diff --git a/Pu240_798-811_TitovAA/160-80_h_Pu240_14-15/h_160-80_Pu240_14-15_gid_Qw1.nb b/Pu240_798-811_TitovAA/160-80_h_Pu240_14-15/h_160-80_Pu240_14-15_gid_Qw1.nb index 78f75b1..5f4ee8a 100644 --- a/Pu240_798-811_TitovAA/160-80_h_Pu240_14-15/h_160-80_Pu240_14-15_gid_Qw1.nb +++ b/Pu240_798-811_TitovAA/160-80_h_Pu240_14-15/h_160-80_Pu240_14-15_gid_Qw1.nb @@ -3,42 +3,4771 @@ (*** 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[ 667465, 15779] +NotebookOptionsPosition[ 626616, 15129] +NotebookOutlinePosition[ 627074, 15148] +CellTagsIndexPosition[ 627031, 15145] 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"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.993815385399456*^9, 3.9938153854750338`*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"f80fe90e-0725-49a1-8f07-ca5e6c08780a"], + +Cell[BoxData["2"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, {3.993815359458637*^9, 3.993815388522393*^9}, + 3.99395864618618*^9, 3.993959239297155*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"bfc290e2-3564-41fc-b47a-385a672f7af3"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.993815078773963*^9, 3.9938150795912027`*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"a41ad132-252c-47fd-879a-c63ba5d37e2e"], + +Cell[BoxData["240"], "Output", CellChangeTimes->{ - 3.9918492290557346`*^9},ExpressionUUID->"1dc76a14-b094-5f49-81bb-\ -fc37192f9bb8"], + 3.9913196497381973`*^9, {3.9938153597191753`*^9, 3.993815388600842*^9}, + 3.993958646269747*^9, 3.9939592393717422`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"290b4370-eabf-47d0-93e5-e897a15bd659"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "160"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.993815083810103*^9, 3.9938150844706078`*^9}}, + CellLabel->"In[3]:=",ExpressionUUID->"44c7ce88-55e1-4308-8a5c-a82f0b55cee3"], + +Cell[BoxData["160"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, {3.9938153597338867`*^9, 3.9938153886223583`*^9}, + 3.9939586462872963`*^9, 3.99395923938348*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"0dfb72fe-9fd9-487b-b4ca-f20c05ee3718"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"fe02f280-0d44-4045-bdd2-eb9a644bba31"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, {3.993815359749675*^9, 3.9938153886357193`*^9}, + 3.993958646302828*^9, 3.993959239395355*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"43636c8b-3f07-4fbe-9564-a5d9a7d0f89b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"24b41abd-6883-4fad-9ec9-f4bec500aa75"], + +Cell[BoxData["0.545`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, {3.99381535976541*^9, 3.993815388649356*^9}, + 3.993958646307432*^9, 3.993959239404201*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"f9274df7-1d0e-40d6-8877-eb41e06c77d9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"3e7872e5-ed5a-408b-9ead-36c1462afa33"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, {3.993815359780024*^9, 3.993815388663189*^9}, + 3.993958646333138*^9, 3.993959239419757*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"cda89b9f-63d0-49fc-8a12-19990b1abb66"] +}, 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->"f57a95ad-b66d-4d0a-b038-bc03eacc2f4b"], + +Cell[BoxData["6.297448870500181`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, {3.9938153597958603`*^9, 3.993815388676372*^9}, + 3.993958646348687*^9, 3.9939592394324923`*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"80f3df00-915c-47d1-af51-7c6932e62316"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"83920ca4-82a9-40ff-b208-cdeb04e2c637"], + +Cell[BoxData["4.9982884808739705`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, {3.993815359810844*^9, 3.993815388688987*^9}, + 3.993958646364296*^9, 3.993959239445403*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"8ff0fc76-e26d-4a92-a352-b6728769a87b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.97776"}]], "Input", + CellChangeTimes->{ + 3.991799283179735*^9, {3.9938151564672937`*^9, 3.9938151618001623`*^9}}, + CellLabel->"In[9]:=",ExpressionUUID->"295b1da7-5ef8-4764-8736-241a2357f048"], + +Cell[BoxData["0.97776`"], "Output", + CellChangeTimes->{{3.993815359825905*^9, 3.993815388702949*^9}, + 3.993958646379671*^9, 3.9939592394655027`*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"3bbae92c-79e1-45b5-ab88-c607214dfb40"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.42961"}]], "Input", + CellChangeTimes->{ + 3.991799280663351*^9, {3.993815163461789*^9, 3.99381517066012*^9}}, + CellLabel->"In[10]:=",ExpressionUUID->"18318d2d-8337-4c13-9fbe-01b8df59f07c"], + +Cell[BoxData["0.42961`"], "Output", + CellChangeTimes->{{3.993815359840959*^9, 3.993815388718238*^9}, + 3.993958646395402*^9, 3.993959239481576*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"9875e4ad-bacd-49bd-a086-c8470c96f423"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"bf951275-92c0-4617-9aca-14c629bd6942"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, {3.993815359855208*^9, 3.993815388731841*^9}, + 3.993958646410099*^9, 3.9939592394937887`*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"6751ce0b-5f4b-4fb6-b46c-8c5b8a2eaa9c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"3aa5259b-be4e-465d-9abc-54ffe123a8a7"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, {3.993815359869401*^9, 3.993815388746388*^9}, + 3.9939586464244757`*^9, 3.9939592395103903`*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"f3927dd8-14bd-4ae0-9a3c-96c369199c39"] +}, 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->"30419540-53a0-47f6-9c9d-b1fcbd00eadd"], + +Cell[BoxData["2.50294615878073`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, {3.993815359883766*^9, 3.993815388758988*^9}, + 3.993958646439068*^9, 3.993959239523426*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"19f41e0b-a0aa-48fc-be02-c7847a1c3eaf"] +}, 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->"18d71e6d-6adf-40c8-bf1f-1ab2f77f5d50"], + +Cell[BoxData["1.478321690160274`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, {3.9938153598984947`*^9, 3.993815388771246*^9}, + 3.993958646454102*^9, 3.993959239538344*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"c60676ed-62cd-41d8-9eb0-bbfca55e1f82"] +}, 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->"cdb14653-0745-4c1c-8ed5-2ac8692a20f6"], + +Cell[BoxData["0.36228762750256105`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, {3.993815359913329*^9, 3.993815388784683*^9}, + 3.993958646469401*^9, 3.993959239555991*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"4bfd6e7b-5e05-4159-a6ce-037dfef52125"] +}, 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->"6ec06dfb-e057-4156-b15d-9055e09971cc"], + +Cell[BoxData[ + RowBox[{"-", "0.0846607903474445`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, {3.993815359929597*^9, 3.993815388797483*^9}, + 3.993958646484239*^9, 3.9939592395730143`*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"0868f9b9-8676-49ff-aa4f-e5768d16ddaa"] +}, 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->"e531e3e0-3b2f-472a-a320-20686b97a066"], + +Cell[BoxData[ + RowBox[{"-", "0.5809541759341679`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, {3.993815359945134*^9, 3.99381538880952*^9}, + 3.9939586464991083`*^9, 3.9939592395866632`*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"29eaf759-71b7-4c59-b844-2a01252eba46"] +}, 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->"c448e1c7-6218-4667-9677-040679403b78"], + +Cell[BoxData["0.700262319146979`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, {3.993815359960987*^9, 3.993815388821504*^9}, + 3.993958646513887*^9, 3.9939592396070747`*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"24543871-78be-4706-b8fb-598cf3785c75"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"ec641958-41df-43ea-9e5b-98a357a742bd"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, {3.993815359975456*^9, 3.993815388833537*^9}, + 3.993958646528556*^9, 3.99395923961871*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"42d86de6-c778-47d4-9a4d-17b815168733"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel->"In[20]:=",ExpressionUUID->"6794bfc2-49f8-4baa-b4ea-e0e9790c4002"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, {3.9938153599899197`*^9, 3.993815388845224*^9}, + 3.99395864654298*^9, 3.9939592396450043`*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"30c7860f-d7a0-4743-9518-6dab6fd5b05e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"82e701c2-3740-4b4d-8797-5b7f810a07a8"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, {3.99381536000439*^9, 3.9938153888577013`*^9}, + 3.9939586465577307`*^9, 3.993959239656252*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"58039968-3b95-4273-8db8-aeb1f5f2689b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"6f151b31-4e90-4712-93f2-d49358ac9e08"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, {3.993815360018857*^9, 3.993815388870207*^9}, + 3.99395864657239*^9, 3.99395923966984*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"9d830ec4-4df9-4558-b3f2-0b04d9f3f177"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[23]:=",ExpressionUUID->"d5ab61b3-5f45-4266-89ff-fae03d7c7bde"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, {3.993815360033464*^9, 3.9938153888824987`*^9}, + 3.9939586465866947`*^9, 3.993959239683504*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"fcfdae9c-74f5-493a-929e-7604afdeb149"] +}, 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.993815261708016*^9, 3.9938152618435717`*^9}}, + CellLabel->"In[24]:=",ExpressionUUID->"e5e306cc-6998-4f09-b059-48a6831ca88b"], + +Cell[BoxData["66"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, {3.993815360047928*^9, 3.9938153888940973`*^9}, + 3.993958646601172*^9, 3.993959239695266*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"cf4e2c4d-831a-4a91-8b2a-7cc690ab2565"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, {3.993815264947379*^9, 3.993815267508748*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"5cab896a-8597-45d4-aec0-55ca037bb26b"], + +Cell[BoxData["28"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, {3.993815360062439*^9, 3.993815388907254*^9}, + 3.993958646615478*^9, 3.993959239706132*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"8959fa1d-372a-424a-97c2-c004fa79324d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"43c2ca0f-88c6-465e-94f9-15945a713dda"], + +Cell[BoxData["80"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, {3.993815360076642*^9, 3.993815388920082*^9}, + 3.993958646629941*^9, 3.993959239717573*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"fdcff431-743d-4911-b4d3-404840d30410"] +}, 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->"84289c64-75a1-430c-8c0f-0d200b186fb0"], + +Cell[BoxData["0.11205`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, {3.993815360091414*^9, 3.993815388933477*^9}, + 3.993958646644432*^9, 3.993959239734592*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"5a870a27-25ff-4d3a-8325-e2b45c5ed938"] +}, 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->"b1cb996c-b767-4b2c-8359-1c43f9c1d843"], + +Cell[BoxData[ + RowBox[{"-", "2.5616499999999998`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, {3.9938153601058817`*^9, 3.993815388947524*^9}, + 3.993958646659143*^9, 3.993959239751707*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"9d88ead5-a5f7-42cf-b014-9bbf803f0687"] +}, 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->"25d1fbfa-8c9d-487e-ae9f-14e21f7b7351"], + +Cell[BoxData["17.9817039793298`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, {3.9938153601211452`*^9, 3.993815388962264*^9}, + 3.9939586466747503`*^9, 3.99395923977217*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"f33d4f92-c9f0-48f9-a3aa-a9b6bc839e91"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"a7a33255-0a34-4a0a-a1b4-2490eb634506"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, {3.993815360135828*^9, 3.993815388975617*^9}, + 3.993958646689221*^9, 3.993959239794631*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"99deb191-637f-430e-8f96-378c4af0daf5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", " ", "1.965"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { + 3.99381519981903*^9, 3.993815203647489*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"7e4e74eb-dddc-4cc4-b305-43e284cade6f"], + +Cell[BoxData["1.965`"], "Output", + CellChangeTimes->{{3.993815360149398*^9, 3.993815388989003*^9}, + 3.993958646703771*^9, 3.9939592398134527`*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"5fc6afc1-57f3-4ca1-bd7d-a1cc4f48e755"] +}, 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->"e25e2c88-7ba1-4ae3-bcd7-9d5822079a14"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.805"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.993815206165124*^9, 3.993815207521797*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"6cd216fb-033d-41d9-97d2-6ce713a2c79b"], + +Cell[BoxData["0.805`"], "Output", + CellChangeTimes->{{3.993815360178578*^9, 3.993815389006834*^9}, + 3.993958646731131*^9, 3.9939592398466053`*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"968bec87-2efa-444c-9527-b63acc278441"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel->"In[34]:=",ExpressionUUID->"065d3f12-8fda-4636-a39f-0382f31ea6ea"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "2.575"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.993815210101787*^9, 3.9938152142375507`*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"0384baff-1fd4-41b1-8a84-56e59a019300"], + +Cell[BoxData["2.575`"], "Output", + CellChangeTimes->{{3.993815360206645*^9, 3.993815389025874*^9}, + 3.99395864675819*^9, 3.993959239866473*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"7df71f5e-9927-4f02-af3d-ea700dd180b4"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel->"In[36]:=",ExpressionUUID->"e1b885c2-f694-4dc1-93dc-37636a8f3a8b"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.195"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, {3.993815217827416*^9, 3.993815218865891*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"621605e2-021c-4687-86da-d471c130672f"], + +Cell[BoxData["1.195`"], "Output", + CellChangeTimes->{{3.9938153602341948`*^9, 3.9938153890444403`*^9}, + 3.993958646785417*^9, 3.99395923988671*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"4479f4cb-10dd-4cca-bfb6-b3b95733e9e6"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel->"In[38]:=",ExpressionUUID->"0b7d36af-851a-45f7-9942-d6d87b167971"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.213"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, {3.993815222374446*^9, + 3.993815224623548*^9}}, + CellLabel->"In[39]:=",ExpressionUUID->"bc4c2474-07e6-4ffe-b341-619093dad03a"], + +Cell[BoxData["1.213`"], "Output", + CellChangeTimes->{{3.99381536026166*^9, 3.993815389060953*^9}, + 3.9939586468116283`*^9, 3.99395923990819*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"ecbabb80-cf91-4a4e-8bc1-69a84760f531"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel->"In[40]:=",ExpressionUUID->"6779ce40-6256-403a-a913-d91001ffc396"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.576"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.9938152272320232`*^9, + 3.993815230573249*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"61231122-df65-46c4-acee-c29963a2d5a2"], + +Cell[BoxData["0.576`"], "Output", + CellChangeTimes->{{3.99381536028929*^9, 3.993815389077355*^9}, + 3.9939586468382273`*^9, 3.993959239929257*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"76b20ce7-60b6-4589-a494-9008888dfb1b"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel->"In[42]:=",ExpressionUUID->"58084802-005c-4de6-8faf-e33ac52754fc"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "1.35"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.993815233406152*^9, + 3.9938152359541283`*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"18a2e58c-992b-41f9-b0f5-f70de96e5c04"], + +Cell[BoxData["1.35`"], "Output", + CellChangeTimes->{{3.993815360317037*^9, 3.993815389094755*^9}, + 3.993958646864482*^9, 3.993959239949684*^9}, + CellLabel->"Out[43]=",ExpressionUUID->"48623f6e-b13a-4d3e-b462-625384dcc53f"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel->"In[44]:=",ExpressionUUID->"5b2449d0-881a-42a4-8221-aeffb64a801a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "0.715"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, {3.99381523872539*^9, 3.9938152401714783`*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"e4bb453d-2cad-45a3-b354-0b505ce137f3"], + +Cell[BoxData["0.715`"], "Output", + CellChangeTimes->{{3.993815360345028*^9, 3.993815389112644*^9}, + 3.9939586468924627`*^9, 3.993959239969776*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"fa52ab0e-fb73-442e-bd82-286d668cc02d"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel->"In[46]:=",ExpressionUUID->"5c974215-3336-4698-9555-c4c3ba92fdf8"], + +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->"5cf95c62-f656-4db9-a300-857d9ee6a5b9"], + +Cell[BoxData["0.10594190044976036`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, {3.993815360436064*^9, 3.993815389153583*^9}, + 3.993958649558243*^9, 3.993959240056705*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"5f3c636a-3c10-4651-9db8-6082db523914"] +}, 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->"0b2948cc-37b1-426f-ae56-3eb5ed7c1f61"], + +Cell[BoxData["6.461769506994958`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, {3.9938153604720716`*^9, 3.993815389182211*^9}, + 3.993958649585424*^9, 3.9939592400988493`*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"0e7cd5be-de2c-4992-877f-0f92dfa1b033"] +}, 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->"1295939a-6eea-4e29-8af4-742def7aa943"], + +Cell[BoxData[ + RowBox[{"-", "16.996339172809833`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, {3.9938153605547743`*^9, 3.993815389210862*^9}, + 3.993958649612328*^9, 3.9939592429495277`*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"9c5f99f4-926a-44b1-abe8-612e162e7081"] +}, 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->"b0e948f1-3e0a-4ca1-917f-0df528c0e848"], + +Cell[BoxData[ + RowBox[{"-", "23.66687085044272`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, {3.9938153605968103`*^9, 3.9938153892445498`*^9}, + 3.9939586496469717`*^9, 3.993959243178138*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"23612c44-6a9b-4ad7-bd78-4b8f6a15d653"] +}, 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->"b2e06db3-3d3d-4834-8308-ac0bae78b1b9"], + +Cell[BoxData[ + RowBox[{"-", "64.87070371918927`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, {3.9938153606388206`*^9, 3.993815389278417*^9}, + 3.993958649683728*^9, 3.9939592432167673`*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"27f61649-3120-414b-b7c2-78f0d76ddd64"] +}, 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->"bd46b7fb-86a1-48df-a125-8e1792b49a8a"], + +Cell[BoxData[ + RowBox[{"-", "180.27815067607094`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, {3.993815360684663*^9, 3.993815389318866*^9}, + 3.993958649726467*^9, 3.9939592432634907`*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"a854b584-2ae5-4fe6-90f7-34ece843027f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[53]:=",ExpressionUUID->"ba6ff89f-354d-41e8-a536-6703faa435d7"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, {3.993815360701696*^9, 3.993815389332931*^9}, + 3.99395864974012*^9, 3.993959243270565*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"d7bc2a31-e884-4cae-8d28-71da6d226b0c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[54]:=",ExpressionUUID->"98c5a542-94c0-4f70-80b5-496376d008cd"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, {3.9938153607167177`*^9, 3.993815389344874*^9}, + 3.993958649755121*^9, 3.993959243276536*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"eeaac736-6b41-4df0-acd8-3abeb9a44ae7"] +}, 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->"1ae5ee39-8c68-4d04-8eec-ca4e8028c968"], + +Cell[BoxData["131.34670371854253`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, {3.993815360730653*^9, 3.9938153893568707`*^9}, + 3.993958649768943*^9, 3.993959243282549*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"99eea30a-cd73-4ef0-81f4-e22a2e424db4"] +}, 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->"356564ee-f7fb-4991-86f3-b0680414151d"], + +Cell[BoxData[ + RowBox[{"-", "121.12984521648005`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, {3.993815360744831*^9, 3.993815389368895*^9}, + 3.993958649781246*^9, 3.9939592432888613`*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"9c80118f-f55a-4a7c-883e-7bfb1ade71e7"] +}, 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->"47533ce2-f3e4-492f-b83d-c3c2af8d9756"], + +Cell[BoxData["137.31484295247708`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, {3.993815360759387*^9, 3.993815389381069*^9}, + 3.99395864979466*^9, 3.993959243294592*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"78d09834-1179-4d6a-a0d0-4bdebdd01a97"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[58]:=",ExpressionUUID->"b31e69eb-1086-4c78-99d9-97de9fbc91c1"], + +Cell[BoxData["0.36228762750256105`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, {3.993815360773879*^9, 3.993815389392989*^9}, + 3.9939586498072023`*^9, 3.99395924330029*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"0b0a30a5-1404-43f5-af1e-f56979d0ebd0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[59]:=",ExpressionUUID->"b7146a2f-115a-4b80-8fec-cfa0d22adb10"], + +Cell[BoxData[ + RowBox[{"-", "0.0846607903474445`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, {3.993815360788493*^9, 3.993815389404903*^9}, + 3.9939586498198338`*^9, 3.9939592433064127`*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"e845a49f-5254-45bd-b2d4-3d2c1e1c2ce9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[60]:=",ExpressionUUID->"4c03d08b-391f-4ec7-be75-4df5692c1809"], + +Cell[BoxData[ + RowBox[{"-", "0.5809541759341679`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, {3.993815360803743*^9, 3.9938153894169493`*^9}, + 3.993958649837104*^9, 3.9939592433120623`*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"9dd93be8-2aca-48fd-8dcd-0a13fc220376"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"d6090912-d6dc-491d-8556-ba12a689d8bd"], + +Cell[BoxData["0.700262319146979`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, {3.9938153608194017`*^9, 3.993815389428903*^9}, + 3.993958649850066*^9, 3.993959243317425*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"b96c68f9-7a62-42a3-91d7-470e244bb56d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[62]:=",ExpressionUUID->"3cbca8d8-900c-44ac-a0ef-5491b57d8b5e"], + +Cell[BoxData["2.50294615878073`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, {3.993815360835617*^9, 3.9938153894408617`*^9}, + 3.993958649863385*^9, 3.993959243323517*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"ad9e39ce-9008-4a43-8b02-fba00855ac99"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[63]:=",ExpressionUUID->"f664e350-dfe8-4ca7-aa00-3ad5ca259132"], + +Cell[BoxData["1.478321690160274`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, {3.993815360850321*^9, 3.9938153894528627`*^9}, + 3.9939586498771133`*^9, 3.993959243330048*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"d5207ad2-3608-47a0-9790-3cf6fa42436e"] +}, 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->"3da7dd47-8b73-4df0-afc8-b20811159bff"], + +Cell[BoxData[ + RowBox[{"-", "34.35384696882824`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, {3.993815360867701*^9, 3.993815389464924*^9}, + 3.993958649889442*^9, 3.993959243339024*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"9b573b9a-9a18-4cb2-9d2e-3c9473147007"] +}, 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->"c5a82b78-2ae6-45a3-8f18-297d88e8548d"], + +Cell[BoxData[ + RowBox[{"-", "7.30490507028344`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, {3.993815360882195*^9, 3.9938153894771433`*^9}, + 3.993958649903101*^9, 3.993959243346076*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"67b3fa61-c7cc-4cb4-b564-4fd08e33ce33"] +}, 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->"d6d2cc12-82db-4128-af87-60006ce43e52"], + +Cell[BoxData["96.99285674971429`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, {3.9938153608971453`*^9, 3.993815389489629*^9}, + 3.993958649916582*^9, 3.9939592433550043`*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"50796f27-98ae-4aa3-b923-532be17a55b5"] +}, 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->"77ec19e8-5453-4bca-9ec4-23854117c261"], + +Cell[BoxData[ + RowBox[{"-", "121.12984521648005`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, {3.9938153609115973`*^9, 3.9938153895018883`*^9}, + 3.993958649928854*^9, 3.99395924336898*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"8b2bb5a2-ed48-4718-b299-7c7d41818ea1"] +}, 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->"90f694db-ef61-46d5-9179-ede5997b843b"], + +Cell[BoxData["130.00993788219364`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, {3.993815360925351*^9, 3.993815389514392*^9}, + 3.993958649941387*^9, 3.9939592433763037`*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"a9d4994a-7c41-4dcb-b66a-3acd3c515d0c"] +}, 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->"36fcba05-165b-4140-b3b6-b68e7001ed6a"], + +Cell[BoxData["33.05673140049902`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, {3.993815360940073*^9, 3.993815389526847*^9}, + 3.993958649954606*^9, 3.993959243382825*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"7e34cc37-8cb6-4d76-ac96-cb90419d02ef"] +}, 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->"91dde1ed-602e-4b6a-8e53-eb68e7b0f696"], + +Cell[BoxData["781.6942369302528`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, {3.9938153609551077`*^9, 3.993815389531186*^9}, + 3.993958649967162*^9, 3.993959243388884*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"e52deddc-add2-456d-943d-816a6a12833c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f1", "=", "0.4769511425"}]], "Input", + CellChangeTimes->{3.991849227197853*^9, 3.99395878463876*^9}, + CellLabel->"In[71]:=",ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], + +Cell[BoxData["0.4769511425`"], "Output", + CellChangeTimes->{3.993959243394483*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"c141bdd3-1dc6-432d-b207-262cc98f2b54"] +}, 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.1349754118"}]], "Input", + CellChangeTimes->{3.9918492290557346`*^9, 3.9939587938511467`*^9}, + CellLabel->"In[73]:=",ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], + +Cell[BoxData["0.1349754118`"], "Output", + CellChangeTimes->{3.9939592434038687`*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"48f558f8-716d-477e-a1b7-aad3a4f47cec"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991849229804535*^9, 3.991849229809536*^9}}, + CellLabel->"In[74]:=",ExpressionUUID->"15fe72e6-19f0-9540-b29f-3056e2e0b957"], Cell[CellGroupData[{ @@ -84,13 +4813,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.6373494975860167`*^-53"], "Output", + CellChangeTimes->{3.9913335367025833`*^9, 3.993959243413784*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"e2ff6d22-ad39-4b67-8561-76e7634de0a3"] }, Open ]], Cell[CellGroupData[{ @@ -124,14 +4851,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["9.762693214915118`*^-55"], "Output", + CellChangeTimes->{3.991333536726557*^9, 3.9939592434200478`*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"9c790a0b-46cc-4e59-978c-58afdffc8e36"] }, Open ]], Cell[CellGroupData[{ @@ -164,14 +4889,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["6.702218915394557`*^-55"], "Output", + CellChangeTimes->{3.9913335367515736`*^9, 3.9939592434265833`*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"9500b497-9ad6-4b7f-82d1-30437e735e13"] }, Open ]], Cell[CellGroupData[{ @@ -194,13 +4917,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["9.344091306104524`"], "Output", + CellChangeTimes->{3.9913335367605553`*^9, 3.993959243433202*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"cb274baf-adcb-4d82-b151-13690aa70046"] }, Open ]], Cell[CellGroupData[{ @@ -225,13 +4946,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["21.711395514870354`"], "Output", + CellChangeTimes->{3.991333536783556*^9, 3.9939592434395943`*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"6a89d836-4200-4b60-bb3d-4d355003c33d"] }, Open ]], Cell[CellGroupData[{ @@ -240,13 +4959,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.8808814259595967`"], "Output", + CellChangeTimes->{3.9913335367915726`*^9, 3.99395924344566*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"a4b1295b-b452-41c1-a284-291bb5930899"] }, Open ]], Cell[CellGroupData[{ @@ -255,13 +4972,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["6.000322396512125`"], "Output", + CellChangeTimes->{3.99133353681583*^9, 3.993959243451914*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"d0847bc9-ffc5-4217-bbaf-68968c1ebd15"] }, Open ]], Cell[CellGroupData[{ @@ -270,13 +4985,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["130.2753727674095`"], "Output", + CellChangeTimes->{3.991333536826782*^9, 3.993959243457879*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"74fb7724-c772-4b41-892c-70a2a99e001b"] }, Open ]], Cell[CellGroupData[{ @@ -285,13 +4998,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["17.575127780122546`"], "Output", + CellChangeTimes->{3.9913335368508377`*^9, 3.993959243463954*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"a29f52fb-ae87-4f69-af03-931df465528e"] }, Open ]], Cell[CellGroupData[{ @@ -480,13 +5191,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.007589235952253015`"], "Output", + CellChangeTimes->{3.9913335368758316`*^9, 3.993959243472905*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"0ebb7e23-24a1-4394-a462-7a8c6980bec8"] }, Open ]], Cell[CellGroupData[{ @@ -499,13 +5208,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.17292664683196`"], "Output", + CellChangeTimes->{3.991333536973074*^9, 3.9939592436177473`*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"2d01b697-c16e-464a-8537-82bdd345808b"] }, Open ]], Cell[CellGroupData[{ @@ -696,13 +5403,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.055233770707633446`"], "Output", + CellChangeTimes->{3.9913335369870644`*^9, 3.993959243625867*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"c8aefaa4-dcea-42c4-ab54-50671fa97349"] }, Open ]], Cell[CellGroupData[{ @@ -715,13 +5420,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.7708789769019453`"], "Output", + CellChangeTimes->{3.9913335370800858`*^9, 3.993959243673732*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"6357b9ca-5a17-419b-aa85-eb594b551e99"] }, Open ]], Cell[CellGroupData[{ @@ -813,13 +5516,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.06376749590987153`"], "Output", + CellChangeTimes->{3.9913335370930634`*^9, 3.9939592436828127`*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"bacaa03d-770c-4adb-9884-29f4f4852cae"] }, Open ]], Cell[CellGroupData[{ @@ -908,13 +5609,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.9362325040901285`"], "Output", + CellChangeTimes->{3.991333537118065*^9, 3.9939592436897783`*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"4d10eeb4-3271-45c5-a39e-12c4e8cf2bc0"] }, Open ]], Cell[CellGroupData[{ @@ -1036,19 +5735,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.05970120237525605`"], "Output", + CellChangeTimes->{3.9913335371420746`*^9, 3.993959243696464*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"0cbfdd98-5fec-4094-a5cd-2a4decf9d465"] }, 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 +5759,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 +5783,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -1109,65 +5807,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[\\\"1.979716014605359`*^-204\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 92, 1, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335371540604`*^9, 3.993959243717577*^9}, CellLabel-> "During evaluation of \ -In[249]:=",ExpressionUUID->"bd0a7da1-672e-6b4e-afbd-4af379292e8d"], +In[92]:=",ExpressionUUID->"085c3212-2bce-4058-adc9-3071550c9bd2"], 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.6250549279060404`*^-209\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 92, 2, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335371540604`*^9, 3.9939592437309113`*^9}, CellLabel-> "During evaluation of \ -In[249]:=",ExpressionUUID->"9a8837e4-2afa-d145-83db-a88ef0e502bc"], +In[92]:=",ExpressionUUID->"eaedf277-c6a5-4238-bd72-08eba092ac23"], 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.637832463539185`*^-214\\\", \ +RowBox[{\\\"143094757247897252281238\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"64\\\", \\\"\[RightSkeleton]\\\"}], \\\"3737600000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 92, 3, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335371540604`*^9, 3.993959243736514*^9}, CellLabel-> "During evaluation of \ -In[249]:=",ExpressionUUID->"0aa4ed5d-b925-834d-b53a-95c75c4ff982"], +In[92]:=",ExpressionUUID->"74b4013f-ea4c-481e-ba46-1d6faf2d82ec"], 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, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335371540604`*^9, 3.993959243742958*^9}, CellLabel-> "During evaluation of \ -In[249]:=",ExpressionUUID->"2742a735-9c26-7640-8a81-3e30eaffa353"], +In[92]:=",ExpressionUUID->"916e15af-6b48-4be5-8349-ce0f892dc1bf"], -Cell[BoxData["4.322031867849086`"], "Output", - CellChangeTimes->{3.9913335399194164`*^9}, - CellLabel-> - "Out[249]=",ExpressionUUID->"d91a6bca-04d7-b84b-93cf-0695498dc4de"] +Cell[BoxData["10.17292664683197`"], "Output", + CellChangeTimes->{3.9913335399194164`*^9, 3.993959245617312*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"3fd2f6dd-0a43-4550-ac5e-2df5df30cf2d"] }, Open ]], Cell[CellGroupData[{ @@ -1182,7 +5885,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 +5909,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -1229,65 +5933,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[\\\"1.979716014605359`*^-204\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 93, 5, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335399544125`*^9, 3.99395924572541*^9}, CellLabel-> "During evaluation of \ -In[250]:=",ExpressionUUID->"2c553d54-16ec-9646-b6d7-75da3c367575"], +In[93]:=",ExpressionUUID->"1c36c76e-0334-47bb-97b0-f192d2fb3a94"], 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.6250549279060404`*^-209\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 93, 6, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335399544125`*^9, 3.99395924573603*^9}, CellLabel-> "During evaluation of \ -In[250]:=",ExpressionUUID->"1c597fdf-5631-a84c-9feb-152df3629d86"], +In[93]:=",ExpressionUUID->"99df1c8a-c3b7-48a7-91d8-997ac996ebaf"], 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.637832463539185`*^-214\\\", \ +RowBox[{\\\"143094757247897252281238\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"64\\\", \\\"\[RightSkeleton]\\\"}], \\\"3737600000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 93, 7, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335399544125`*^9, 3.993959245745232*^9}, CellLabel-> "During evaluation of \ -In[250]:=",ExpressionUUID->"48439b56-7b7d-fa4d-a4e2-5db2bbda0c77"], +In[93]:=",ExpressionUUID->"91835e72-a82c-4448-b1ca-a1fa6ebbf047"], 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, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335399544125`*^9, 3.9939592457540083`*^9}, CellLabel-> "During evaluation of \ -In[250]:=",ExpressionUUID->"66ce390f-34a9-df4d-9875-a339943ada86"], +In[93]:=",ExpressionUUID->"6ba8a9c4-c282-49fd-924b-3f6047080196"], -Cell[BoxData["8.302069082299772`"], "Output", - CellChangeTimes->{3.991333542631773*^9}, - CellLabel-> - "Out[250]=",ExpressionUUID->"2e46fa54-fabe-5040-8f8c-6829b7c76136"] +Cell[BoxData["3.770878976901946`"], "Output", + CellChangeTimes->{3.991333542631773*^9, 3.993959248440637*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"562b5da8-b837-4263-9cba-66112b8756b1"] }, Open ]], Cell[CellGroupData[{ @@ -1297,138 +6006,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.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:eJwV1nlYDd8fB/D29UaLStK+cFPk3nZxPlTSvmovud07kURJihZbEkmS5KeU +FpJEWaKSvqTNRSq+5StKy73t64hEv9Mf88zzep6Z9/nMfM45M2qMA64sPh4e +Hi4+ls7h79avqWx9t2XsDf/YL2EO2jJeaMiwLEVP5JxWz2P35BplaFrWIPEX +eiVLdma+FaLQXyPnxtzM39jl0QmvBC3Z6Ay9qHcBO7lhZV1CyQfkKLrl/F/s +Z63hNxZoH9EPp5DLPCIcNPy5JTamuhMZSerM82GvGtDw/WHxBeW6x70QxLab +iDU9xP6GqFRmnwh27cKweHRJL0q+/pVFwf50Qv7Yk7A+JFw9ul0Se1zIcniW +NoAislLPrMAWSjnoTZ8bRB7b6zUVsJWlcprCq7motvOCmjK2o+KPW+MWo6iE +v9uIik3kqcvpiYwjdzbDaQN2gpZT4j72BJrvim0wxO6U79gYWTKF3IzCWi2w +mT4hey+nTCOhl1ZBdtiT2Tw3K8Jm0CdKhbsbtoi6nuQUjURp+2zcmNgZzFfW +krI/kF9zZOB+bNXb3gkb5n4ghaOG7ChsE90z4/urf6JnMUdenMPeY/SNPWyx +gGY+8MlWYs9GHxYQ0/6DBq93y73CPl4tbk4V+Yvi9JyOvMfOApO7wexFNJ8w +5za0VF9Rk2VECS8I6QTFqolyUEnD5Z4TinwQEDofoY89yQmIvZTCB2kuOk0I +O1aHfPggjB/WS+5M3YWdcV9NY4ImCGcpX5MLsD+3jtb+LRCEXOFthx9jq05X ++iyTFQIZDrxoxC41cEzXmxMCp3TJA2PY9c+O8oZWi0D9PZ4tm8U4iHzV/o1r +QQFua/i1cWxpe4rksVoK1KhujBQR5yD9DkuQMJUAoVdratWxQ/of521cvwzk +FZ7nemEf5GPrb6ZIQofp1WvN2APqZVOJP6RA+mfynjoKfj9Ei+h7ujR8/Mtr +3IvNd3dQbWW4NNg9r4rkk8D10lVcS0akoU1oavN2bB+LtIp3PTLQ9O6UcDv2 ++6CIQ/JvZKGI1XuEdzkHfb2dej5QRA4a25+aUbFHR0oK7ljJQXbKl1AXbLHI +vvZNdXIgu5yiUoBtedrdIPCxPGzVVK+2k+SgqkIjsjhXAdTFuG3lUhxUODAf +ZRapBLmGxkkfVnDQjp1JXw/dUwLZ7A0F/LI4v15m+71BJdDg2qoaYRsU6sqq +eiuD/+2xzdnY9YyAh4JbVOCjz4LQfjkOmp7oOcI9pQpVV0Q+qK7kIJn9lo8e +OqhD/rcEuw+KHDRYKLbHOUQdks/nXVi+moOefmlVHDujDuaf+TY6YvvZ+5/S +rlOHsJtp19nYheuiXK/RNMD1x/jiWyU8/vDtyXh5TXj7oVSoT4WD3IPF9Wx7 +taDv7/oVHpochKJ20jz/aEGiqKBYLrZOYq4xU0EbkHCMPxebp4C+Ld5FGxYz +kVKsFgfd++rrWfGPNrRE7OEp1sbr06P0xKr8NXDyr4mHFBXXZ+nwaZhBhYKo +7B066zmowO3qf3PxVDA8fmU2HjuV0dsjcJ0K+dPuf9uxmccPjyi3U8HtmO66 +hA0cJFWTw+NmoQMp1szhLn08f+jjOtUa6yA+VpfnJp2DFNUvJpzv1wXe/0ld +PmzKQTXnZqm/+PSAe+6WzldsvxnvDkJNDzzbmvWtzTjoRr0mdVuAHqiovzq7 +ahMHqQdXtf38Vw8euVYGN5jj5y0d0CLerIdm6cA+GnCQkqIyoeqtDyK3u78F +WHOQblEk5TeigZKEG5Pfk4MYzFOkniMNVjjpdcZjZ2mkfw30o0FaQnPpPDZ/ +/v0HDdE0iNzhFD3jhdfbjWH39HIaBC6+zhrywftpVmAOVYMOk13LebkBuL/n +7dd7CRlAW9PbWL1gDroZoen8mG0IbEn99P+iOag1ChmfLjKFk9SLcUQhB6kF +fHT0D90MfdQkM41PHMRafFKmFANwvKQzoVWMi+RHngrLM7ZBlPIG64+2XBRJ +N/+SrmMJj/IKRpUucBFjbKFJZtgKvFwuwJYOLrq37ZBw7ntrULnXdXHn2iFU +OBvyT2mGDaTt9Yh1iRtCP7eufFufYAdZ/Xo303qGUDcP/1TvbgdgyI6JG9kM +o7DVB9JOaDhBBkXXYFP5MCrb21R3JdEZNqdHTQpSR9DRGYW5dXtd4Jls1m/n +3BFE2m73aNzlCjMDXhcjtUeRqe+lrQMubuCQeUpcuGIUtSnkhNTT3cEBno8b +m42hVbdO1RSv3Qkhi9kTazvG0NMeHXtHCQ/wGX+Rc3LvOFLumAyOGvOAwTZh +q16eCUS/cqm0oMcTimw0pIxLJlCOwMz69Fde8Ml0SMdWexI92brhc+Izb/iT +oHXE4/gkyjI+J7VQ4gOJP4sg5vMkev9f0Rl6ii94jSs1VG+YQo8dsjUPHvcD +UWoqVeLCFJra78YTxvSHy8o+fIn9U4jcTt0zbhEAzYZTUppm06h4rOvnIaNd +EOdgvMsncxp53SwK8qcEQqgT11NvZBo9rLDbxZ8UCJlO1YuaVjPIVLHtV/Kv +QGgWXCZclDmDNHqCP3/YuxssecrfpPfNoH7xfU7Zfbsh7YjYzt+0WdSa6hhk +vZMBEz5PWgqiZ1FGdK744VYGiFaaepytnUU1tYu/gmyCYJ2SzL7XC7NouR8k +0auCQMwsszFRn0SqKxrfr64JgtUWFF6vjSTSZzusFKoNgkWH7udU/J1zNfe9 +0/lPEOgypure0EmUsTrqTVxzENSEp3BFjUm0qvvu8qbOIJiW1bwetplEmgHy +WX5zQbCt7HR8pw2JTAPHixMNmCCcUCSovZtEt65NHnI0YsIqtosSG3tF+/QW +eRMmuC7bVBfOING41VxH8SYmyHxzu10dROL9i4eXvY0Ju8JT52wIEi2bk/KW +dmGCg8PXJOd9JOq/YCiau58JRyib7wgcJlFqdezep7eYcHFizoA/iUT7aVdN +o4uZ8K6tPucstv2dclGTEia8/KucJnGWRGJXB+9U3mNC4FF1KblkEiVGOA8/ +ecQEv4WFE2rnSRRL1dz3+CUTxKdnxNUvkijk6pvQiq9M0Axx1m3OJJHNskHz +iB4mUN6uzUFXSbQ2kUeC9p0JWqMjGY+xByMM75UP4Hp+fF+Zl0Wi3Y65Yw9G +mZCcFnrwwP9I5CV4KOz+PBPikybs53JIZH1o1cFSORYYfKo2vltIope5Z2zT +V7LAQS5dWbGIRObsac3oVSxIUVGJPIetr/Wmy0IZX18qsC/4FokU/j1m8Z8W +CwIyriSuKibRiFm3nJghC0w0h3xYd0l0kS/vebAbC4KPjc6mlOPn30DJctjJ +go3lN5KHsU/7RkfQPVmQujrqnHUFiaIfOa9Z9GGBWptN6yL2boL3UiaDBZbV +CSF7H5GI3sJgvg5nwWy6X7NqJYn+vaQlrpHGAsWIlKcqNSQqQxJ7uJdYUJqm +Xs7CPj02W3/vMgs8YzTW3MWm2dTHm1xlwdkGg/MGz3H/eIKmHW6woGO5JW1r +LYm2H8jrii5lwa8bH6e21pFISems0ZYyFnTfTalOwJ5tOXCZ/wELNMxJ3ufY ++drIIfUhCxTK7wsY/UOiP93ddQVVLHCOzOtRe0miR/aKxe+aWGDafHCo5xWJ +zs/zCWa0sOCx9q4YuXoSMYqHd3uzWaB02S/RDltSoEqx/z0LrqjuknqEHVrt +dfHXJxaUtZ/4Gf+aRBo6mVGaAyyoq0r4/buBRPP/xrUPDbJA94vODmojiVoT +Wfr3uSyIKfGW9MCO7zUYNh3F/chXlynD/pzV7u80g/sXnNzr2USidGEpq6O8 +BCzXp11PbyZRzXS3byQ/AWMnKnqrsTndJRFhggTYGySf7Mc2f2SZxxAl4P2Q +bDu9Bc+3wOjftlIELOt+VtaCLWlvJW0lQ4BvzK+GcexNxtJUJEvApWQ7U+k3 ++D9WotSDrkBAz2thXU/sTVXfyhXVCCiclLDpwiaKSptkNQhQOCCx8efS9Wkx +35ZrEcC91h8hx8bjETISAlQC4m0W+V2w02Ss94zqE5AfQvetxa76K5MwSCPg +QJG5VCf2wFDPlR4DAvymRlSnsM3qjr7qMCHg9B1tB7W3eD2Hlik/B1yP+tHO +GOxlXscMK7cRsHK/qm8qtqnFDvtySwJKdlka52OnKnyPKdpBwK3XM78bsZ8K +3E/LtSVAuSuqvwu7b+LY7Wv2BKz+SGiPYJs0yH684ExAqV/8E/F3uN/l30eS +XPH4928IKGJfyL7Pd9KdgCMxSqVU7O8RNvpRXgQwr1KFrbAlAuSsD/oQsOLz +gyoXbBObPv8QP9yP8HON/kv3q8SdDwgkwExKZ+wQ9lMx23wvBgEW+iOC8Ut5 +pNwzVyYBia2zR5KW8nr73tsTBGR0WVqkLeWxHwxu30MAr1dXcNZSfZVxfyCE +AK+4BwO5S/n5tis2hRKgktdUc2sp/4L8OsMwAj5vUh0rXcqP7t+64SABlKnH +URXYFGa5FzWCAFriWe9KbGOn+AMakQQ0f8+8Ur2Ub2Z3RimKAGeFHp0X2Cla +K3PkownY6h+k8BL7ieTAQ6mjuP8iqrvrsXt/l7eIxxLgkSXL17CUz4nvFYwn +4HC5xcKSjdrsfi4mEDCrWOLUiP1/qWTOgg== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -1442,104 +6154,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:eJwV1nlYDd8fB/D29UaLStK+cFPk3nZxPlTSvmovud07kURJihZbEkmS5KeU +FpJEWaKSvqTNRSq+5StKy73t64hEv9Mf88zzep6Z9/nMfM45M2qMA64sPh4e +Hi4+ls7h79avqWx9t2XsDf/YL2EO2jJeaMiwLEVP5JxWz2P35BplaFrWIPEX +eiVLdma+FaLQXyPnxtzM39jl0QmvBC3Z6Ay9qHcBO7lhZV1CyQfkKLrl/F/s +Z63hNxZoH9EPp5DLPCIcNPy5JTamuhMZSerM82GvGtDw/WHxBeW6x70QxLab +iDU9xP6GqFRmnwh27cKweHRJL0q+/pVFwf50Qv7Yk7A+JFw9ul0Se1zIcniW +NoAislLPrMAWSjnoTZ8bRB7b6zUVsJWlcprCq7motvOCmjK2o+KPW+MWo6iE +v9uIik3kqcvpiYwjdzbDaQN2gpZT4j72BJrvim0wxO6U79gYWTKF3IzCWi2w +mT4hey+nTCOhl1ZBdtiT2Tw3K8Jm0CdKhbsbtoi6nuQUjURp+2zcmNgZzFfW +krI/kF9zZOB+bNXb3gkb5n4ghaOG7ChsE90z4/urf6JnMUdenMPeY/SNPWyx +gGY+8MlWYs9GHxYQ0/6DBq93y73CPl4tbk4V+Yvi9JyOvMfOApO7wexFNJ8w +5za0VF9Rk2VECS8I6QTFqolyUEnD5Z4TinwQEDofoY89yQmIvZTCB2kuOk0I +O1aHfPggjB/WS+5M3YWdcV9NY4ImCGcpX5MLsD+3jtb+LRCEXOFthx9jq05X ++iyTFQIZDrxoxC41cEzXmxMCp3TJA2PY9c+O8oZWi0D9PZ4tm8U4iHzV/o1r +QQFua/i1cWxpe4rksVoK1KhujBQR5yD9DkuQMJUAoVdratWxQ/of521cvwzk +FZ7nemEf5GPrb6ZIQofp1WvN2APqZVOJP6RA+mfynjoKfj9Ei+h7ujR8/Mtr +3IvNd3dQbWW4NNg9r4rkk8D10lVcS0akoU1oavN2bB+LtIp3PTLQ9O6UcDv2 ++6CIQ/JvZKGI1XuEdzkHfb2dej5QRA4a25+aUbFHR0oK7ljJQXbKl1AXbLHI +vvZNdXIgu5yiUoBtedrdIPCxPGzVVK+2k+SgqkIjsjhXAdTFuG3lUhxUODAf +ZRapBLmGxkkfVnDQjp1JXw/dUwLZ7A0F/LI4v15m+71BJdDg2qoaYRsU6sqq +eiuD/+2xzdnY9YyAh4JbVOCjz4LQfjkOmp7oOcI9pQpVV0Q+qK7kIJn9lo8e +OqhD/rcEuw+KHDRYKLbHOUQdks/nXVi+moOefmlVHDujDuaf+TY6YvvZ+5/S +rlOHsJtp19nYheuiXK/RNMD1x/jiWyU8/vDtyXh5TXj7oVSoT4WD3IPF9Wx7 +taDv7/oVHpochKJ20jz/aEGiqKBYLrZOYq4xU0EbkHCMPxebp4C+Ld5FGxYz +kVKsFgfd++rrWfGPNrRE7OEp1sbr06P0xKr8NXDyr4mHFBXXZ+nwaZhBhYKo +7B066zmowO3qf3PxVDA8fmU2HjuV0dsjcJ0K+dPuf9uxmccPjyi3U8HtmO66 +hA0cJFWTw+NmoQMp1szhLn08f+jjOtUa6yA+VpfnJp2DFNUvJpzv1wXe/0ld +PmzKQTXnZqm/+PSAe+6WzldsvxnvDkJNDzzbmvWtzTjoRr0mdVuAHqiovzq7 +ahMHqQdXtf38Vw8euVYGN5jj5y0d0CLerIdm6cA+GnCQkqIyoeqtDyK3u78F +WHOQblEk5TeigZKEG5Pfk4MYzFOkniMNVjjpdcZjZ2mkfw30o0FaQnPpPDZ/ +/v0HDdE0iNzhFD3jhdfbjWH39HIaBC6+zhrywftpVmAOVYMOk13LebkBuL/n +7dd7CRlAW9PbWL1gDroZoen8mG0IbEn99P+iOag1ChmfLjKFk9SLcUQhB6kF +fHT0D90MfdQkM41PHMRafFKmFANwvKQzoVWMi+RHngrLM7ZBlPIG64+2XBRJ +N/+SrmMJj/IKRpUucBFjbKFJZtgKvFwuwJYOLrq37ZBw7ntrULnXdXHn2iFU +OBvyT2mGDaTt9Yh1iRtCP7eufFufYAdZ/Xo303qGUDcP/1TvbgdgyI6JG9kM +o7DVB9JOaDhBBkXXYFP5MCrb21R3JdEZNqdHTQpSR9DRGYW5dXtd4Jls1m/n +3BFE2m73aNzlCjMDXhcjtUeRqe+lrQMubuCQeUpcuGIUtSnkhNTT3cEBno8b +m42hVbdO1RSv3Qkhi9kTazvG0NMeHXtHCQ/wGX+Rc3LvOFLumAyOGvOAwTZh +q16eCUS/cqm0oMcTimw0pIxLJlCOwMz69Fde8Ml0SMdWexI92brhc+Izb/iT +oHXE4/gkyjI+J7VQ4gOJP4sg5vMkev9f0Rl6ii94jSs1VG+YQo8dsjUPHvcD +UWoqVeLCFJra78YTxvSHy8o+fIn9U4jcTt0zbhEAzYZTUppm06h4rOvnIaNd +EOdgvMsncxp53SwK8qcEQqgT11NvZBo9rLDbxZ8UCJlO1YuaVjPIVLHtV/Kv +QGgWXCZclDmDNHqCP3/YuxssecrfpPfNoH7xfU7Zfbsh7YjYzt+0WdSa6hhk +vZMBEz5PWgqiZ1FGdK744VYGiFaaepytnUU1tYu/gmyCYJ2SzL7XC7NouR8k +0auCQMwsszFRn0SqKxrfr64JgtUWFF6vjSTSZzusFKoNgkWH7udU/J1zNfe9 +0/lPEOgypure0EmUsTrqTVxzENSEp3BFjUm0qvvu8qbOIJiW1bwetplEmgHy +WX5zQbCt7HR8pw2JTAPHixMNmCCcUCSovZtEt65NHnI0YsIqtosSG3tF+/QW +eRMmuC7bVBfOING41VxH8SYmyHxzu10dROL9i4eXvY0Ju8JT52wIEi2bk/KW +dmGCg8PXJOd9JOq/YCiau58JRyib7wgcJlFqdezep7eYcHFizoA/iUT7aVdN +o4uZ8K6tPucstv2dclGTEia8/KucJnGWRGJXB+9U3mNC4FF1KblkEiVGOA8/ +ecQEv4WFE2rnSRRL1dz3+CUTxKdnxNUvkijk6pvQiq9M0Axx1m3OJJHNskHz +iB4mUN6uzUFXSbQ2kUeC9p0JWqMjGY+xByMM75UP4Hp+fF+Zl0Wi3Y65Yw9G +mZCcFnrwwP9I5CV4KOz+PBPikybs53JIZH1o1cFSORYYfKo2vltIope5Z2zT +V7LAQS5dWbGIRObsac3oVSxIUVGJPIetr/Wmy0IZX18qsC/4FokU/j1m8Z8W +CwIyriSuKibRiFm3nJghC0w0h3xYd0l0kS/vebAbC4KPjc6mlOPn30DJctjJ +go3lN5KHsU/7RkfQPVmQujrqnHUFiaIfOa9Z9GGBWptN6yL2boL3UiaDBZbV +CSF7H5GI3sJgvg5nwWy6X7NqJYn+vaQlrpHGAsWIlKcqNSQqQxJ7uJdYUJqm +Xs7CPj02W3/vMgs8YzTW3MWm2dTHm1xlwdkGg/MGz3H/eIKmHW6woGO5JW1r +LYm2H8jrii5lwa8bH6e21pFISems0ZYyFnTfTalOwJ5tOXCZ/wELNMxJ3ufY ++drIIfUhCxTK7wsY/UOiP93ddQVVLHCOzOtRe0miR/aKxe+aWGDafHCo5xWJ +zs/zCWa0sOCx9q4YuXoSMYqHd3uzWaB02S/RDltSoEqx/z0LrqjuknqEHVrt +dfHXJxaUtZ/4Gf+aRBo6mVGaAyyoq0r4/buBRPP/xrUPDbJA94vODmojiVoT +Wfr3uSyIKfGW9MCO7zUYNh3F/chXlynD/pzV7u80g/sXnNzr2USidGEpq6O8 +BCzXp11PbyZRzXS3byQ/AWMnKnqrsTndJRFhggTYGySf7Mc2f2SZxxAl4P2Q +bDu9Bc+3wOjftlIELOt+VtaCLWlvJW0lQ4BvzK+GcexNxtJUJEvApWQ7U+k3 ++D9WotSDrkBAz2thXU/sTVXfyhXVCCiclLDpwiaKSptkNQhQOCCx8efS9Wkx +35ZrEcC91h8hx8bjETISAlQC4m0W+V2w02Ss94zqE5AfQvetxa76K5MwSCPg +QJG5VCf2wFDPlR4DAvymRlSnsM3qjr7qMCHg9B1tB7W3eD2Hlik/B1yP+tHO +GOxlXscMK7cRsHK/qm8qtqnFDvtySwJKdlka52OnKnyPKdpBwK3XM78bsZ8K +3E/LtSVAuSuqvwu7b+LY7Wv2BKz+SGiPYJs0yH684ExAqV/8E/F3uN/l30eS +XPH4928IKGJfyL7Pd9KdgCMxSqVU7O8RNvpRXgQwr1KFrbAlAuSsD/oQsOLz +gyoXbBObPv8QP9yP8HON/kv3q8SdDwgkwExKZ+wQ9lMx23wvBgEW+iOC8Ut5 +pNwzVyYBia2zR5KW8nr73tsTBGR0WVqkLeWxHwxu30MAr1dXcNZSfZVxfyCE +AK+4BwO5S/n5tis2hRKgktdUc2sp/4L8OsMwAj5vUh0rXcqP7t+64SABlKnH +URXYFGa5FzWCAFriWe9KbGOn+AMakQQ0f8+8Ur2Ub2Z3RimKAGeFHp0X2Cla +K3PkownY6h+k8BL7ieTAQ6mjuP8iqrvrsXt/l7eIxxLgkSXL17CUz4nvFYwn +4HC5xcKSjdrsfi4mEDCrWOLUiP1/qWTOgg== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.9887929549829119, - 1.0113097844802965`}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.9887929549829141}, + "PlotRange" -> {{0, 180}, {0.7197236661144167, 1.362983046712313}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7197236661144183}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.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 +6264,131 @@ WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.9887929549829119, - 1.0113097844802965`}}, + "PlotRange" -> {{0, 180}, {0.7197236661144167, 1.362983046712313}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.9887929549829141}, + "AxesOrigin" -> {0, 0.7197236661144183}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 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:eJwV1nlYDd8fB/D29UaLStK+cFPk3nZxPlTSvmovud07kURJihZbEkmS5KeU +FpJEWaKSvqTNRSq+5StKy73t64hEv9Mf88zzep6Z9/nMfM45M2qMA64sPh4e +Hi4+ls7h79avqWx9t2XsDf/YL2EO2jJeaMiwLEVP5JxWz2P35BplaFrWIPEX +eiVLdma+FaLQXyPnxtzM39jl0QmvBC3Z6Ay9qHcBO7lhZV1CyQfkKLrl/F/s +Z63hNxZoH9EPp5DLPCIcNPy5JTamuhMZSerM82GvGtDw/WHxBeW6x70QxLab +iDU9xP6GqFRmnwh27cKweHRJL0q+/pVFwf50Qv7Yk7A+JFw9ul0Se1zIcniW +NoAislLPrMAWSjnoTZ8bRB7b6zUVsJWlcprCq7motvOCmjK2o+KPW+MWo6iE +v9uIik3kqcvpiYwjdzbDaQN2gpZT4j72BJrvim0wxO6U79gYWTKF3IzCWi2w +mT4hey+nTCOhl1ZBdtiT2Tw3K8Jm0CdKhbsbtoi6nuQUjURp+2zcmNgZzFfW +krI/kF9zZOB+bNXb3gkb5n4ghaOG7ChsE90z4/urf6JnMUdenMPeY/SNPWyx +gGY+8MlWYs9GHxYQ0/6DBq93y73CPl4tbk4V+Yvi9JyOvMfOApO7wexFNJ8w +5za0VF9Rk2VECS8I6QTFqolyUEnD5Z4TinwQEDofoY89yQmIvZTCB2kuOk0I +O1aHfPggjB/WS+5M3YWdcV9NY4ImCGcpX5MLsD+3jtb+LRCEXOFthx9jq05X ++iyTFQIZDrxoxC41cEzXmxMCp3TJA2PY9c+O8oZWi0D9PZ4tm8U4iHzV/o1r +QQFua/i1cWxpe4rksVoK1KhujBQR5yD9DkuQMJUAoVdratWxQ/of521cvwzk +FZ7nemEf5GPrb6ZIQofp1WvN2APqZVOJP6RA+mfynjoKfj9Ei+h7ujR8/Mtr +3IvNd3dQbWW4NNg9r4rkk8D10lVcS0akoU1oavN2bB+LtIp3PTLQ9O6UcDv2 ++6CIQ/JvZKGI1XuEdzkHfb2dej5QRA4a25+aUbFHR0oK7ljJQXbKl1AXbLHI +vvZNdXIgu5yiUoBtedrdIPCxPGzVVK+2k+SgqkIjsjhXAdTFuG3lUhxUODAf +ZRapBLmGxkkfVnDQjp1JXw/dUwLZ7A0F/LI4v15m+71BJdDg2qoaYRsU6sqq +eiuD/+2xzdnY9YyAh4JbVOCjz4LQfjkOmp7oOcI9pQpVV0Q+qK7kIJn9lo8e +OqhD/rcEuw+KHDRYKLbHOUQdks/nXVi+moOefmlVHDujDuaf+TY6YvvZ+5/S +rlOHsJtp19nYheuiXK/RNMD1x/jiWyU8/vDtyXh5TXj7oVSoT4WD3IPF9Wx7 +taDv7/oVHpochKJ20jz/aEGiqKBYLrZOYq4xU0EbkHCMPxebp4C+Ld5FGxYz +kVKsFgfd++rrWfGPNrRE7OEp1sbr06P0xKr8NXDyr4mHFBXXZ+nwaZhBhYKo +7B066zmowO3qf3PxVDA8fmU2HjuV0dsjcJ0K+dPuf9uxmccPjyi3U8HtmO66 +hA0cJFWTw+NmoQMp1szhLn08f+jjOtUa6yA+VpfnJp2DFNUvJpzv1wXe/0ld +PmzKQTXnZqm/+PSAe+6WzldsvxnvDkJNDzzbmvWtzTjoRr0mdVuAHqiovzq7 +ahMHqQdXtf38Vw8euVYGN5jj5y0d0CLerIdm6cA+GnCQkqIyoeqtDyK3u78F +WHOQblEk5TeigZKEG5Pfk4MYzFOkniMNVjjpdcZjZ2mkfw30o0FaQnPpPDZ/ +/v0HDdE0iNzhFD3jhdfbjWH39HIaBC6+zhrywftpVmAOVYMOk13LebkBuL/n +7dd7CRlAW9PbWL1gDroZoen8mG0IbEn99P+iOag1ChmfLjKFk9SLcUQhB6kF +fHT0D90MfdQkM41PHMRafFKmFANwvKQzoVWMi+RHngrLM7ZBlPIG64+2XBRJ +N/+SrmMJj/IKRpUucBFjbKFJZtgKvFwuwJYOLrq37ZBw7ntrULnXdXHn2iFU +OBvyT2mGDaTt9Yh1iRtCP7eufFufYAdZ/Xo303qGUDcP/1TvbgdgyI6JG9kM +o7DVB9JOaDhBBkXXYFP5MCrb21R3JdEZNqdHTQpSR9DRGYW5dXtd4Jls1m/n +3BFE2m73aNzlCjMDXhcjtUeRqe+lrQMubuCQeUpcuGIUtSnkhNTT3cEBno8b +m42hVbdO1RSv3Qkhi9kTazvG0NMeHXtHCQ/wGX+Rc3LvOFLumAyOGvOAwTZh +q16eCUS/cqm0oMcTimw0pIxLJlCOwMz69Fde8Ml0SMdWexI92brhc+Izb/iT +oHXE4/gkyjI+J7VQ4gOJP4sg5vMkev9f0Rl6ii94jSs1VG+YQo8dsjUPHvcD +UWoqVeLCFJra78YTxvSHy8o+fIn9U4jcTt0zbhEAzYZTUppm06h4rOvnIaNd +EOdgvMsncxp53SwK8qcEQqgT11NvZBo9rLDbxZ8UCJlO1YuaVjPIVLHtV/Kv +QGgWXCZclDmDNHqCP3/YuxssecrfpPfNoH7xfU7Zfbsh7YjYzt+0WdSa6hhk +vZMBEz5PWgqiZ1FGdK744VYGiFaaepytnUU1tYu/gmyCYJ2SzL7XC7NouR8k +0auCQMwsszFRn0SqKxrfr64JgtUWFF6vjSTSZzusFKoNgkWH7udU/J1zNfe9 +0/lPEOgypure0EmUsTrqTVxzENSEp3BFjUm0qvvu8qbOIJiW1bwetplEmgHy +WX5zQbCt7HR8pw2JTAPHixMNmCCcUCSovZtEt65NHnI0YsIqtosSG3tF+/QW +eRMmuC7bVBfOING41VxH8SYmyHxzu10dROL9i4eXvY0Ju8JT52wIEi2bk/KW +dmGCg8PXJOd9JOq/YCiau58JRyib7wgcJlFqdezep7eYcHFizoA/iUT7aVdN +o4uZ8K6tPucstv2dclGTEia8/KucJnGWRGJXB+9U3mNC4FF1KblkEiVGOA8/ +ecQEv4WFE2rnSRRL1dz3+CUTxKdnxNUvkijk6pvQiq9M0Axx1m3OJJHNskHz +iB4mUN6uzUFXSbQ2kUeC9p0JWqMjGY+xByMM75UP4Hp+fF+Zl0Wi3Y65Yw9G +mZCcFnrwwP9I5CV4KOz+PBPikybs53JIZH1o1cFSORYYfKo2vltIope5Z2zT +V7LAQS5dWbGIRObsac3oVSxIUVGJPIetr/Wmy0IZX18qsC/4FokU/j1m8Z8W +CwIyriSuKibRiFm3nJghC0w0h3xYd0l0kS/vebAbC4KPjc6mlOPn30DJctjJ +go3lN5KHsU/7RkfQPVmQujrqnHUFiaIfOa9Z9GGBWptN6yL2boL3UiaDBZbV +CSF7H5GI3sJgvg5nwWy6X7NqJYn+vaQlrpHGAsWIlKcqNSQqQxJ7uJdYUJqm +Xs7CPj02W3/vMgs8YzTW3MWm2dTHm1xlwdkGg/MGz3H/eIKmHW6woGO5JW1r +LYm2H8jrii5lwa8bH6e21pFISems0ZYyFnTfTalOwJ5tOXCZ/wELNMxJ3ufY ++drIIfUhCxTK7wsY/UOiP93ddQVVLHCOzOtRe0miR/aKxe+aWGDafHCo5xWJ +zs/zCWa0sOCx9q4YuXoSMYqHd3uzWaB02S/RDltSoEqx/z0LrqjuknqEHVrt +dfHXJxaUtZ/4Gf+aRBo6mVGaAyyoq0r4/buBRPP/xrUPDbJA94vODmojiVoT +Wfr3uSyIKfGW9MCO7zUYNh3F/chXlynD/pzV7u80g/sXnNzr2USidGEpq6O8 +BCzXp11PbyZRzXS3byQ/AWMnKnqrsTndJRFhggTYGySf7Mc2f2SZxxAl4P2Q +bDu9Bc+3wOjftlIELOt+VtaCLWlvJW0lQ4BvzK+GcexNxtJUJEvApWQ7U+k3 ++D9WotSDrkBAz2thXU/sTVXfyhXVCCiclLDpwiaKSptkNQhQOCCx8efS9Wkx +35ZrEcC91h8hx8bjETISAlQC4m0W+V2w02Ss94zqE5AfQvetxa76K5MwSCPg +QJG5VCf2wFDPlR4DAvymRlSnsM3qjr7qMCHg9B1tB7W3eD2Hlik/B1yP+tHO +GOxlXscMK7cRsHK/qm8qtqnFDvtySwJKdlka52OnKnyPKdpBwK3XM78bsZ8K +3E/LtSVAuSuqvwu7b+LY7Wv2BKz+SGiPYJs0yH684ExAqV/8E/F3uN/l30eS +XPH4928IKGJfyL7Pd9KdgCMxSqVU7O8RNvpRXgQwr1KFrbAlAuSsD/oQsOLz +gyoXbBObPv8QP9yP8HON/kv3q8SdDwgkwExKZ+wQ9lMx23wvBgEW+iOC8Ut5 +pNwzVyYBia2zR5KW8nr73tsTBGR0WVqkLeWxHwxu30MAr1dXcNZSfZVxfyCE +AK+4BwO5S/n5tis2hRKgktdUc2sp/4L8OsMwAj5vUh0rXcqP7t+64SABlKnH +URXYFGa5FzWCAFriWe9KbGOn+AMakQQ0f8+8Ur2Ub2Z3RimKAGeFHp0X2Cla +K3PkownY6h+k8BL7ieTAQ6mjuP8iqrvrsXt/l7eIxxLgkSXL17CUz4nvFYwn +4HC5xcKSjdrsfi4mEDCrWOLUiP1/qWTOgg== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.9887929549829119, 1.0113097844802965`}}, + "PlotRange" -> {{0, 180}, {0.7197236661144167, 1.362983046712313}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.9887929549829141}, + "AxesOrigin" -> {0, 0.7197236661144183}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 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 +6398,8 @@ WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.9887929549829141}, + AxesOrigin->{0, 0.7197236661144183}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -1712,7 +6427,8 @@ WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.9887929549829119, 1.0113097844802965`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.7197236661144167, 1.362983046712313}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -1720,9 +6436,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.993959504476128*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"ca46c599-7d95-41f4-852a-54151bbd4234"] }, Open ]], Cell[CellGroupData[{ @@ -1737,7 +6452,9 @@ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -1759,8 +6476,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -1785,372 +6501,175 @@ 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[\\\"1.2540786967157945`*^-268\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 95, 9, + 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333813432829*^9, 3.993959504830983*^9}, CellLabel-> "During evaluation of \ -In[252]:=",ExpressionUUID->"546a9ea9-5939-f84a-87c6-58844f58f330"], +In[95]:=",ExpressionUUID->"99e92968-e57a-4096-921c-b3aa721680b5"], 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[\\\"8.624918303558552`*^-280\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 95, + 10, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333813432829*^9, 3.993959504845663*^9}, CellLabel-> "During evaluation of \ -In[252]:=",ExpressionUUID->"b36bffd7-1c84-5c45-a847-b2c31968f579"], +In[95]:=",ExpressionUUID->"dcba6de4-2e62-4e91-a032-0124c625d2d2"], 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[\\\"5.9317821072849144`*^-291\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 95, 11, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333813432829*^9, 3.99395950485456*^9}, CellLabel-> "During evaluation of \ -In[252]:=",ExpressionUUID->"c864bef7-fc73-d94b-8cde-14570cba8095"], +In[95]:=",ExpressionUUID->"c5be8337-13a4-432c-8a90-33ce4a73b6c6"], 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, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333813432829*^9, 3.993959504860635*^9}, CellLabel-> "During evaluation of \ -In[252]:=",ExpressionUUID->"a2e62375-acd2-6740-bfd7-026877c5bd7b"], +In[95]:=",ExpressionUUID->"e2d287df-ed52-4f07-8eb5-a84e1f5d9ae1"], 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:eJwV13lYTV0XAPAGRFKa5+65jaR5dOteaxVFgyhlKJoHIlIJDRqIKL0lUlGq +N6H5nksavIZKKiQKDQol+ioNGkX6jr/O83uec/Zw9lpr7033POLgw8PFxaXD +zcX19znT21SvnJC/YTfhvb1zauOG9mypk2YdsSCf1tzpaacIKP7KU6rjEhQk +03LW2+lB6PbC97wdeTBRF35Q1s4chEclL/18T4KdKTNoZKsDfHxgd2TqfS0s +qZmJ2LHVEyyVh3om3r+Be4wTW7ltguDne+Mr4+/7oCmw2qjeLBbqNt7Kf503 +CbIsR7HC7ksg97Hqq6fGAgjkbbmil3cNxA65FfJt5EUl4+7tY99y4ZKuZY2d +03LUKOBh/VpeAJ3pOo8nVq9CZ6GD/cyEO5CQH/WKR1oYuwbqhF4OFYO1wQER +cSVhXNL3K1VqthiW1zs4qWkKY6d/aOxe3hI406/SbWMmjFwVy668lC2BCMUX +Xy8fEEYtUQl7R9sSOJwj9Ue1Whj/bOrU/1FUAvbX2Ro2LiLIFxfb5O5TCpKX ++8+nZoliq43wrqzHZSC17t6ZuQJRrHge8cGsuQxkas9G7SsXxY7BQLePbWWg +ML72mFqdKM4ZG+9Z+q0MVGwD3WsGRdElqj3y1LJy0F+yYNSvL4bRT6cXX6wr +h20hEl/0msVwuo/19klwOWxfOdh7tU0Mn7qp9yueKAeHvKrO3x/EkHvYxS06 +ohx2tu591TAmhtd62nJ04sphn8a/1c7i4vgxzJLpm1YOB79op8S6i6Nt/ccw +lcpyOOdoteHNjDjODnCfm5grB5m7LTI83BJo5n7N0WChHEpFHWd1V0pgs7dn +XxA3G969cS1PoUmgyTFxVv8KNijbhyjab5HAP26VA8kybKjdemNZa4YEOpeN +PaSZsmHBcrrlJVMSda321K84yYbkgrCiBUtJnK+0EqiPoL5fxhWvaS+Jn02v +CYRFs8H2Kb/ZRR9JXHmr27DzHBsyNxIc2yRJVGecV/NOY8N6tLn6/KMk1qiN +BBWTbAhm5Lo1xUohEfho37JBNljnCE7ZJEphi0GML/cwGxT5IuJbrkhhPnGZ +M/edDa3tO9ltt6VwYc24zIdJNmgFCvD2tkjh68lMInSRDYMFxwt+yEhjV2qp +3Kw4CXvF7L7LcqTxUKzeE00kQT+8Jib7gTRaXFVPZJuTwN+3RoLeII1Mx+83 +dC1IqCrjBdVOaTw6fzdP1ZoECZuqZJ1FaQxveSz7ZQcJrTHKBhY2Mtge5Sda +4kvCprH5sMP9Mjh0wET85HkSTm65rP5kRAZbSAHdiAQSSnM1u0RnZDCh635d ++EUSpBzdGVXLZbHN4o9dYAoJI5VPZ3m1ZJFxwY5PO4OE1NjkkIwTstinf92B +9zYJjd1rlUdiZNGIW255yx0SfhvUtW1IkMVvdudMrhSR4PttWu9LlizmejRL +SpeRYGLrMqFVJ4siWv2PZu6R0Ceuerh+lRzWjr1bw19HguSRR/KSknJ4x1H1 +8/V6Emwbd788QMhheX6svEYDCRVhCRpC+nLo8cBOGZtIuPBxfGjPbjlMtvx2 +fMMrEvTu1PiN5cnhxB6+25e7SPDjcZI0L5bDknKunrFuEq67jDZcvieHH2R0 +sjf3kLBMkK5q0iiHLS2uz0Y+ktAVdPbLme9y6CURXL9qgIQYpr2HzHp55BEI +HiwcJWGLa/YPY3N5rDu5pe3bGAmC0cOnnWzl8W5VfCUxQbVfF1eQ7C6P/QZe +x85OklBpXT287Lw85lZGttDnSIg6xBepnCqPMJiVt+EnCZZJjoLmWfL4T+mp +47vmSWh/PaoTyZbHHtkG1cjfJIzvVgqd7JTH4v9dItO5OHA/LJBP+Is8zv5s +//cKNwdOXf8vXWtUHs9Ox1xP4uGAwKddNQd4FPCfrAu3QpZwQM0vkeuTugJW +nslhCi/ngOux6QsvwhVQ2tJj7UVBDqhcNZcbilNAS8MP89ZCHGq9/ynhS1bA +eDXBviWrORD2e22reb4C6mzZOX1ImANXTruKV71QwAqnWStBMQ7svVlU8O6d +Ak6fyO0vpqz4bM546pMCDmjkZm4W50A5f6qz9rQC/uo7531UggMvUp7duClP +w+LWM6fTpDiQyhHTrVOjoYiOj5KENAec33rUftKloV3bucEUyoNSv7/IWtKQ +Xzz3a6QMB8pMrEIZ22moYpFLH6UcujeNb5czDTO7ZuKcZTnAm6OjfukwDYf3 +1baoyXGg+UlkTdkJGqrb29yLp5zc32z7MpZGxf+2pgHKCmo+R5ZfpeHpooXI +y/IcGNhCcqnm0nBrTh3xlXKx/2LKxiIa6vzHmtZX4IBJacbdU49oaP4l1bie +8qb3LQujjTTMOtm4g4fGATuuJZvd3tDQy8xHiUV591pG8qtuqr17NrdCKHs5 +HO6EARqOrXP9dJvy4fB/FctHaSjREfWqk/KJ/I6DxBwNNRsvH+MjOGAZTo+K +Xkqg5pTG0G7Kz4Ue/Luen0D3lIjqCMrb83c2jgsS2KO/2yKL8rv1EyO3RQl8 +pn47oZqyy8sEYQ8pAmlZTkntlD95qBpJyxOodN7abpiy78xj59d0Aivqjr74 +Q3n4gkvUeVUCi2YrVgjRORBIm/nXbB2BJjeX8clRnuYkN/7UJtCObvdUhXLY +lnXf2QYEjl8Ot9CgzNXzVNifQWD678h4bcpxR92NFDcQeEXN4p+/5l/2y7nL +nMD99584/30/OfNK1KXN1PhoA8N/2xPX1sm3tiWwNC9349/+MuuaG3nsCXTZ +OeT5dzy03T7fq50IFFTgWC9S480fWRQOdiawsHj819/5qMdkGq1zIzD4dPrx +t5TLxA1d+r0IPDyR87CGskHhq6hr+wm8JcL9Jpty9Qb//B0BBN58VU6eogxt +S5pWBhFY9eG2hwvler8b3+tCCXSs6vtoQNnqN0MkIpzA0LLdWisptyS3GxlE +Ezj2ZqldL7V+nVUrovPPE3i7d3pJOGVXu/z8vUkECnXpZW+i/KVvQ5NYKoEt +atcEVlIeXRkiEnedwPmAoUNJVDwF5wgas3IJjCp97W5Dec7gjsv0TQLNWr9o +LqXM69qb71NGoHfl1V1HqPiUKt9ibFlL4GhlxlIFKp6zNvW7/GkgMBA3fXxC +5YNiZ2R0xXMCb+zDTE/KmjycJtW3BJKhdpWZVP6YO8rv5RskUMa7jT1A5eOz +wfvRj0YIjMyS4ARSto10uHl8gsD411zZc5Ic2FVwbvTbPIFrangMF6l8PjQ3 +Ed24io5T7wLjvlH5b3LUV+KrCB1XmbcNbaW8fKiriFeKjkINJVXlohy42V33 +boMiHYe/bMk4KMKB3odXNO4Z0ZGx5OHZCqr+FBvz174xpWPq/6JduSiHlZ/a +NY50PBrQWmhJ1SuJPL/YdTZ0DLvKLmgU4MC2OEZHrhsdx1NmHPJWUPn8pyTg +kTcdb35PmXlF1buRUEXengN0nEjml5nn40D8/pVaUiF0lA7Y+nXjMg48tuk5 +nRRPxxYZ9wclVP3UE4nRDmfT0f/m+3+7qXrMlTBdn15BR+aj/h+vqXrdwuvv +XFFDx9lHMp31VD0/OO0QN/GUjgsSvwJzZkjI71Du9uui+tuxbU7rB7U/32g8 +68iriI2uNhWFgyT8XLe6V9NJET+fv5mr1kbCTJZMjL6zIlYvj8+sfk3ClJCK +MsNNEa3XhZ+0biVhdJLhv+mAIi4sJo+5v6T2yxqvGedIRXyp8c/X/c9IaLa5 +Lxh/UxGX+15x+FpNQuZBV+ibVsTOgIDO3BskXO3Z3/dtXhE3eBmca88i4fK2 +4Ljvi4p4h3ut7ZLrJCTpxz+fW6GEM8MDdJd0EmJ/sXcJKSih7on3a74mU/NL +WBrItFTCK8HX+IJjSGAWFeekpSnhBylF02B3ErqJohsW15TwYI+84lFXEsLS +7mRP3VDCygcvSw7tJeF+TMF1hztKKLMzrXLvbmp/3p2TLvhACdP+mXpMbCdh +7dLLyWc/K2G0tdEzBlD/yy08OlRDGTWhYWWVLAkTItbuO2uVsUZ2zn19Cxs6 +Dim2+j9TxsTwiKyg52x43DAPUS+UcbEyL6ywkTr/hRXRbr9TxtNjA/KidWzQ +6RP4+HNIGSfgOaPxPhsOs1/tyxJVQQ5076jLYcPQNieXL94qGFTYEr3iKBu+ +JLrvDOJTRfVrC8WMlWywGjtuNWCkhk+rtpmrM8phxGt58N2oNdg31q5UFl5K +3T8kec7VrsUusln33sFiEHmpmlQ+po6G25TvPzlYCHLxZduNjDSQwZjVXjC6 +DenrGKtF/TRxULy6R2RNATTLmBlOpmjh3eao1yXr8sFErjZZ+502Ml9Ve94X +ywNB3rwQj1gdbN7HnfzUKAcUYmjMPaq6GOMbKL4q8zqsUNlb4fBMF/ftmE6m +SWeAFku67Pg+PRSn3TZ9JpIGQb0iddZc+qj1Wl86QzgVxiYTnazS9dG/cduF +C2eTYbN2Q6aVpgGeOPl24H5iIjycNP0122KADgkpF5V04+Gwhl7Xax9D3OAQ +OS2dcQZYo97te1YYYUqQ+aCPdgxYKEttXZVnhJk/BP87+S4C1kRfOFFrbIyR +Qs6TrxRPgLoP45FKlzG2Mi3Op9UHg8/D/WfuHl2PwQqH9BLsAmE0YOi4Rch6 +LPK5XfYIA+GE/KGD70LXY7ehqcAfvUC4EHHEYS58PTK8t9ulSwZCuUkowTy7 +HscE2p6eqT0CvytOP6jLXI9lA/MBrSOH4VJZ9tSbuvV4yXGIVrwtAB7ltHtP +iDNQLOTXTkNbf/hkS3cLlWLgh3iDU7cM/YHrZ8CeXzIM6vxxy1Cd5g/m9nx2 +SwkGSvfe0/b4cQAauE2MpdUZKLnmmPXljAPwwvPGCrMNDPz8XG5y2fB+6FL2 +L032ZWDuVxfvngw/mLq9OKt9n4G2JT0JDio+8HWnZc75KgaWrNbK+SzqAx1L +Lm7pr2GgRNoetUgeH6hxl8lIe8zAF0VyQZ0fvSFWytBkoYmBbgItBqrXvGF1 +vH9E8wcGJsRZOvCLeYOG31suHx4T3GPdE/tC0Au8VIpWZG41wQknO8X/VD0g +7Kmrv+p2E+znS2L/lPCAZB+R56SDCQZ5yn8z5/OABzdPJj7fZYJ+9juUf31z +BzHVLUILHiYYsmuSm6fQHRpUB8TcQ03wYkbvOk8dd1BfQyNUb5igv8WrWb9E +V5hQTzUix01Q5b8Xd16ucYGOF2ghOmmCMTaMmdbVLvD48OiOkGkT9HUTGv46 +5wxJpNVRo3kTBFIy27rJGdRNuIqreU1xpf317jF/Z/C0CqDXSZjiKaHnTrfY +e6Ddb7NAO9MUe634fU7Y7obK/F+fp+NNsWhLopjKPScw2hgya51giop8/r5d +uU5w7/OIQM5FU1yzSWI0O8kJSIVeY+tLprhpvDDUab8TFKc/vph9zRR53sc5 +HpdzgpzEOMbmUlPk38lJjjvnCOdDhFLS20xxbemRoHP7d4DzJiU0VWCiGcf7 ++kpHe1hoXy5YRzDxTFfJhWFze8jxGe22VmKiyifDtC5de/h6tuq48xomzlvc +ez8gZA9BTdvKTuoxUdqzqrHsxXa4YBehUGnJxKNi3zP4rLZD9e63vw2OMDFm +4dL8ZLodyAacq9J6zETbpzZNGnPWkLToa5hQy8QI3gbP/F5r4Llkyf5Wz8SX +u2wqdJ9aw1DF0js5TUz8zf5kc/GSNVRznUkXaWOil7NIqKWWNThfjj4+M8DE +yZBFfs4BK0ivOWn4cCULx7+3a68Y3wzi/IfYW3ex0OjHpIivsQXkb4wMG9/D +wuYPYa5HCQvQi0zamLqXhasNlOVTV1iA3Xj52w4PFirpJ9+S/rAJzr6b/ul1 +iIWlCtE9OrGbYC4vyjwshoVcmLzv+JuN0GWa2lZQxMLtXjzN/bHmsP9Y/nWr +UhbSeqaOZRw2h5nSez4j5SwMUf9m7eVsDiKKHbO6FSx8a9WyVl/PHGyWy8v9 +95iFW00Ptj/pM4MH7QXebW9ZeNVD5HnCZjOwFqzUDO1g4Zxl0Ui4gRl0bG6a +kepmoUbKO+UouhlMVQ/Hu35iIad+7MrDXwiauTol/xui+hOTvkNjIzzoMgtN +/M7ChqSe4oJsBGuxHaA9zkK3uWhzTETwPXfsdcg0C/WERz4X+iFMPT6bKTnH +QpXvYs/DnRBi5696Vc+zsG/ZxyVuGxFWG9zR2LfAwn5bqShHXYTsgOrpxUUW +Jrhnrt1LQ/g/zpR92g== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -2164,331 +6683,131 @@ 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:eJwV13lYTV0XAPAGRFKa5+65jaR5dOteaxVFgyhlKJoHIlIJDRqIKL0lUlGq +N6H5nksavIZKKiQKDQol+ioNGkX6jr/O83uec/Zw9lpr7033POLgw8PFxaXD +zcX19znT21SvnJC/YTfhvb1zauOG9mypk2YdsSCf1tzpaacIKP7KU6rjEhQk +03LW2+lB6PbC97wdeTBRF35Q1s4chEclL/18T4KdKTNoZKsDfHxgd2TqfS0s +qZmJ2LHVEyyVh3om3r+Be4wTW7ltguDne+Mr4+/7oCmw2qjeLBbqNt7Kf503 +CbIsR7HC7ksg97Hqq6fGAgjkbbmil3cNxA65FfJt5EUl4+7tY99y4ZKuZY2d +03LUKOBh/VpeAJ3pOo8nVq9CZ6GD/cyEO5CQH/WKR1oYuwbqhF4OFYO1wQER +cSVhXNL3K1VqthiW1zs4qWkKY6d/aOxe3hI406/SbWMmjFwVy668lC2BCMUX +Xy8fEEYtUQl7R9sSOJwj9Ue1Whj/bOrU/1FUAvbX2Ro2LiLIFxfb5O5TCpKX ++8+nZoliq43wrqzHZSC17t6ZuQJRrHge8cGsuQxkas9G7SsXxY7BQLePbWWg +ML72mFqdKM4ZG+9Z+q0MVGwD3WsGRdElqj3y1LJy0F+yYNSvL4bRT6cXX6wr +h20hEl/0msVwuo/19klwOWxfOdh7tU0Mn7qp9yueKAeHvKrO3x/EkHvYxS06 +ohx2tu591TAmhtd62nJ04sphn8a/1c7i4vgxzJLpm1YOB79op8S6i6Nt/ccw +lcpyOOdoteHNjDjODnCfm5grB5m7LTI83BJo5n7N0WChHEpFHWd1V0pgs7dn +XxA3G969cS1PoUmgyTFxVv8KNijbhyjab5HAP26VA8kybKjdemNZa4YEOpeN +PaSZsmHBcrrlJVMSda321K84yYbkgrCiBUtJnK+0EqiPoL5fxhWvaS+Jn02v +CYRFs8H2Kb/ZRR9JXHmr27DzHBsyNxIc2yRJVGecV/NOY8N6tLn6/KMk1qiN +BBWTbAhm5Lo1xUohEfho37JBNljnCE7ZJEphi0GML/cwGxT5IuJbrkhhPnGZ +M/edDa3tO9ltt6VwYc24zIdJNmgFCvD2tkjh68lMInSRDYMFxwt+yEhjV2qp +3Kw4CXvF7L7LcqTxUKzeE00kQT+8Jib7gTRaXFVPZJuTwN+3RoLeII1Mx+83 +dC1IqCrjBdVOaTw6fzdP1ZoECZuqZJ1FaQxveSz7ZQcJrTHKBhY2Mtge5Sda +4kvCprH5sMP9Mjh0wET85HkSTm65rP5kRAZbSAHdiAQSSnM1u0RnZDCh635d ++EUSpBzdGVXLZbHN4o9dYAoJI5VPZ3m1ZJFxwY5PO4OE1NjkkIwTstinf92B +9zYJjd1rlUdiZNGIW255yx0SfhvUtW1IkMVvdudMrhSR4PttWu9LlizmejRL +SpeRYGLrMqFVJ4siWv2PZu6R0Ceuerh+lRzWjr1bw19HguSRR/KSknJ4x1H1 +8/V6Emwbd788QMhheX6svEYDCRVhCRpC+nLo8cBOGZtIuPBxfGjPbjlMtvx2 +fMMrEvTu1PiN5cnhxB6+25e7SPDjcZI0L5bDknKunrFuEq67jDZcvieHH2R0 +sjf3kLBMkK5q0iiHLS2uz0Y+ktAVdPbLme9y6CURXL9qgIQYpr2HzHp55BEI +HiwcJWGLa/YPY3N5rDu5pe3bGAmC0cOnnWzl8W5VfCUxQbVfF1eQ7C6P/QZe +x85OklBpXT287Lw85lZGttDnSIg6xBepnCqPMJiVt+EnCZZJjoLmWfL4T+mp +47vmSWh/PaoTyZbHHtkG1cjfJIzvVgqd7JTH4v9dItO5OHA/LJBP+Is8zv5s +//cKNwdOXf8vXWtUHs9Ox1xP4uGAwKddNQd4FPCfrAu3QpZwQM0vkeuTugJW +nslhCi/ngOux6QsvwhVQ2tJj7UVBDqhcNZcbilNAS8MP89ZCHGq9/ynhS1bA +eDXBviWrORD2e22reb4C6mzZOX1ImANXTruKV71QwAqnWStBMQ7svVlU8O6d +Ak6fyO0vpqz4bM546pMCDmjkZm4W50A5f6qz9rQC/uo7531UggMvUp7duClP +w+LWM6fTpDiQyhHTrVOjoYiOj5KENAec33rUftKloV3bucEUyoNSv7/IWtKQ +Xzz3a6QMB8pMrEIZ22moYpFLH6UcujeNb5czDTO7ZuKcZTnAm6OjfukwDYf3 +1baoyXGg+UlkTdkJGqrb29yLp5zc32z7MpZGxf+2pgHKCmo+R5ZfpeHpooXI +y/IcGNhCcqnm0nBrTh3xlXKx/2LKxiIa6vzHmtZX4IBJacbdU49oaP4l1bie +8qb3LQujjTTMOtm4g4fGATuuJZvd3tDQy8xHiUV591pG8qtuqr17NrdCKHs5 +HO6EARqOrXP9dJvy4fB/FctHaSjREfWqk/KJ/I6DxBwNNRsvH+MjOGAZTo+K +Xkqg5pTG0G7Kz4Ue/Luen0D3lIjqCMrb83c2jgsS2KO/2yKL8rv1EyO3RQl8 +pn47oZqyy8sEYQ8pAmlZTkntlD95qBpJyxOodN7abpiy78xj59d0Aivqjr74 +Q3n4gkvUeVUCi2YrVgjRORBIm/nXbB2BJjeX8clRnuYkN/7UJtCObvdUhXLY +lnXf2QYEjl8Ot9CgzNXzVNifQWD678h4bcpxR92NFDcQeEXN4p+/5l/2y7nL +nMD99584/30/OfNK1KXN1PhoA8N/2xPX1sm3tiWwNC9349/+MuuaG3nsCXTZ +OeT5dzy03T7fq50IFFTgWC9S480fWRQOdiawsHj819/5qMdkGq1zIzD4dPrx +t5TLxA1d+r0IPDyR87CGskHhq6hr+wm8JcL9Jpty9Qb//B0BBN58VU6eogxt +S5pWBhFY9eG2hwvler8b3+tCCXSs6vtoQNnqN0MkIpzA0LLdWisptyS3GxlE +Ezj2ZqldL7V+nVUrovPPE3i7d3pJOGVXu/z8vUkECnXpZW+i/KVvQ5NYKoEt +atcEVlIeXRkiEnedwPmAoUNJVDwF5wgas3IJjCp97W5Dec7gjsv0TQLNWr9o +LqXM69qb71NGoHfl1V1HqPiUKt9ibFlL4GhlxlIFKp6zNvW7/GkgMBA3fXxC +5YNiZ2R0xXMCb+zDTE/KmjycJtW3BJKhdpWZVP6YO8rv5RskUMa7jT1A5eOz +wfvRj0YIjMyS4ARSto10uHl8gsD411zZc5Ic2FVwbvTbPIFrangMF6l8PjQ3 +Ed24io5T7wLjvlH5b3LUV+KrCB1XmbcNbaW8fKiriFeKjkINJVXlohy42V33 +boMiHYe/bMk4KMKB3odXNO4Z0ZGx5OHZCqr+FBvz174xpWPq/6JduSiHlZ/a +NY50PBrQWmhJ1SuJPL/YdTZ0DLvKLmgU4MC2OEZHrhsdx1NmHPJWUPn8pyTg +kTcdb35PmXlF1buRUEXengN0nEjml5nn40D8/pVaUiF0lA7Y+nXjMg48tuk5 +nRRPxxYZ9wclVP3UE4nRDmfT0f/m+3+7qXrMlTBdn15BR+aj/h+vqXrdwuvv +XFFDx9lHMp31VD0/OO0QN/GUjgsSvwJzZkjI71Du9uui+tuxbU7rB7U/32g8 +68iriI2uNhWFgyT8XLe6V9NJET+fv5mr1kbCTJZMjL6zIlYvj8+sfk3ClJCK +MsNNEa3XhZ+0biVhdJLhv+mAIi4sJo+5v6T2yxqvGedIRXyp8c/X/c9IaLa5 +Lxh/UxGX+15x+FpNQuZBV+ibVsTOgIDO3BskXO3Z3/dtXhE3eBmca88i4fK2 +4Ljvi4p4h3ut7ZLrJCTpxz+fW6GEM8MDdJd0EmJ/sXcJKSih7on3a74mU/NL +WBrItFTCK8HX+IJjSGAWFeekpSnhBylF02B3ErqJohsW15TwYI+84lFXEsLS +7mRP3VDCygcvSw7tJeF+TMF1hztKKLMzrXLvbmp/3p2TLvhACdP+mXpMbCdh +7dLLyWc/K2G0tdEzBlD/yy08OlRDGTWhYWWVLAkTItbuO2uVsUZ2zn19Cxs6 +Dim2+j9TxsTwiKyg52x43DAPUS+UcbEyL6ywkTr/hRXRbr9TxtNjA/KidWzQ +6RP4+HNIGSfgOaPxPhsOs1/tyxJVQQ5076jLYcPQNieXL94qGFTYEr3iKBu+ +JLrvDOJTRfVrC8WMlWywGjtuNWCkhk+rtpmrM8phxGt58N2oNdg31q5UFl5K +3T8kec7VrsUusln33sFiEHmpmlQ+po6G25TvPzlYCHLxZduNjDSQwZjVXjC6 +DenrGKtF/TRxULy6R2RNATTLmBlOpmjh3eao1yXr8sFErjZZ+502Ml9Ve94X +ywNB3rwQj1gdbN7HnfzUKAcUYmjMPaq6GOMbKL4q8zqsUNlb4fBMF/ftmE6m +SWeAFku67Pg+PRSn3TZ9JpIGQb0iddZc+qj1Wl86QzgVxiYTnazS9dG/cduF +C2eTYbN2Q6aVpgGeOPl24H5iIjycNP0122KADgkpF5V04+Gwhl7Xax9D3OAQ +OS2dcQZYo97te1YYYUqQ+aCPdgxYKEttXZVnhJk/BP87+S4C1kRfOFFrbIyR +Qs6TrxRPgLoP45FKlzG2Mi3Op9UHg8/D/WfuHl2PwQqH9BLsAmE0YOi4Rch6 +LPK5XfYIA+GE/KGD70LXY7ehqcAfvUC4EHHEYS58PTK8t9ulSwZCuUkowTy7 +HscE2p6eqT0CvytOP6jLXI9lA/MBrSOH4VJZ9tSbuvV4yXGIVrwtAB7ltHtP +iDNQLOTXTkNbf/hkS3cLlWLgh3iDU7cM/YHrZ8CeXzIM6vxxy1Cd5g/m9nx2 +SwkGSvfe0/b4cQAauE2MpdUZKLnmmPXljAPwwvPGCrMNDPz8XG5y2fB+6FL2 +L032ZWDuVxfvngw/mLq9OKt9n4G2JT0JDio+8HWnZc75KgaWrNbK+SzqAx1L +Lm7pr2GgRNoetUgeH6hxl8lIe8zAF0VyQZ0fvSFWytBkoYmBbgItBqrXvGF1 +vH9E8wcGJsRZOvCLeYOG31suHx4T3GPdE/tC0Au8VIpWZG41wQknO8X/VD0g +7Kmrv+p2E+znS2L/lPCAZB+R56SDCQZ5yn8z5/OABzdPJj7fZYJ+9juUf31z +BzHVLUILHiYYsmuSm6fQHRpUB8TcQ03wYkbvOk8dd1BfQyNUb5igv8WrWb9E +V5hQTzUix01Q5b8Xd16ucYGOF2ghOmmCMTaMmdbVLvD48OiOkGkT9HUTGv46 +5wxJpNVRo3kTBFIy27rJGdRNuIqreU1xpf317jF/Z/C0CqDXSZjiKaHnTrfY +e6Ddb7NAO9MUe634fU7Y7obK/F+fp+NNsWhLopjKPScw2hgya51giop8/r5d +uU5w7/OIQM5FU1yzSWI0O8kJSIVeY+tLprhpvDDUab8TFKc/vph9zRR53sc5 +HpdzgpzEOMbmUlPk38lJjjvnCOdDhFLS20xxbemRoHP7d4DzJiU0VWCiGcf7 ++kpHe1hoXy5YRzDxTFfJhWFze8jxGe22VmKiyifDtC5de/h6tuq48xomzlvc +ez8gZA9BTdvKTuoxUdqzqrHsxXa4YBehUGnJxKNi3zP4rLZD9e63vw2OMDFm +4dL8ZLodyAacq9J6zETbpzZNGnPWkLToa5hQy8QI3gbP/F5r4Llkyf5Wz8SX +u2wqdJ9aw1DF0js5TUz8zf5kc/GSNVRznUkXaWOil7NIqKWWNThfjj4+M8DE +yZBFfs4BK0ivOWn4cCULx7+3a68Y3wzi/IfYW3ex0OjHpIivsQXkb4wMG9/D +wuYPYa5HCQvQi0zamLqXhasNlOVTV1iA3Xj52w4PFirpJ9+S/rAJzr6b/ul1 +iIWlCtE9OrGbYC4vyjwshoVcmLzv+JuN0GWa2lZQxMLtXjzN/bHmsP9Y/nWr +UhbSeqaOZRw2h5nSez4j5SwMUf9m7eVsDiKKHbO6FSx8a9WyVl/PHGyWy8v9 +95iFW00Ptj/pM4MH7QXebW9ZeNVD5HnCZjOwFqzUDO1g4Zxl0Ui4gRl0bG6a +kepmoUbKO+UouhlMVQ/Hu35iIad+7MrDXwiauTol/xui+hOTvkNjIzzoMgtN +/M7ChqSe4oJsBGuxHaA9zkK3uWhzTETwPXfsdcg0C/WERz4X+iFMPT6bKTnH +QpXvYs/DnRBi5696Vc+zsG/ZxyVuGxFWG9zR2LfAwn5bqShHXYTsgOrpxUUW +Jrhnrt1LQ/g/zpR92g== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "PlotRange" -> {{0, 30}, {0., 0.07472512481504474}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +6819,19 @@ qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "PlotRange" -> {{0, 30}, {0., 0.07472512481504474}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +6845,130 @@ 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:eJwV13lYTV0XAPAGRFKa5+65jaR5dOteaxVFgyhlKJoHIlIJDRqIKL0lUlGq +N6H5nksavIZKKiQKDQol+ioNGkX6jr/O83uec/Zw9lpr7033POLgw8PFxaXD +zcX19znT21SvnJC/YTfhvb1zauOG9mypk2YdsSCf1tzpaacIKP7KU6rjEhQk +03LW2+lB6PbC97wdeTBRF35Q1s4chEclL/18T4KdKTNoZKsDfHxgd2TqfS0s +qZmJ2LHVEyyVh3om3r+Be4wTW7ltguDne+Mr4+/7oCmw2qjeLBbqNt7Kf503 +CbIsR7HC7ksg97Hqq6fGAgjkbbmil3cNxA65FfJt5EUl4+7tY99y4ZKuZY2d +03LUKOBh/VpeAJ3pOo8nVq9CZ6GD/cyEO5CQH/WKR1oYuwbqhF4OFYO1wQER +cSVhXNL3K1VqthiW1zs4qWkKY6d/aOxe3hI406/SbWMmjFwVy668lC2BCMUX +Xy8fEEYtUQl7R9sSOJwj9Ue1Whj/bOrU/1FUAvbX2Ro2LiLIFxfb5O5TCpKX ++8+nZoliq43wrqzHZSC17t6ZuQJRrHge8cGsuQxkas9G7SsXxY7BQLePbWWg +ML72mFqdKM4ZG+9Z+q0MVGwD3WsGRdElqj3y1LJy0F+yYNSvL4bRT6cXX6wr +h20hEl/0msVwuo/19klwOWxfOdh7tU0Mn7qp9yueKAeHvKrO3x/EkHvYxS06 +ohx2tu591TAmhtd62nJ04sphn8a/1c7i4vgxzJLpm1YOB79op8S6i6Nt/ccw +lcpyOOdoteHNjDjODnCfm5grB5m7LTI83BJo5n7N0WChHEpFHWd1V0pgs7dn +XxA3G969cS1PoUmgyTFxVv8KNijbhyjab5HAP26VA8kybKjdemNZa4YEOpeN +PaSZsmHBcrrlJVMSda321K84yYbkgrCiBUtJnK+0EqiPoL5fxhWvaS+Jn02v +CYRFs8H2Kb/ZRR9JXHmr27DzHBsyNxIc2yRJVGecV/NOY8N6tLn6/KMk1qiN +BBWTbAhm5Lo1xUohEfho37JBNljnCE7ZJEphi0GML/cwGxT5IuJbrkhhPnGZ +M/edDa3tO9ltt6VwYc24zIdJNmgFCvD2tkjh68lMInSRDYMFxwt+yEhjV2qp +3Kw4CXvF7L7LcqTxUKzeE00kQT+8Jib7gTRaXFVPZJuTwN+3RoLeII1Mx+83 +dC1IqCrjBdVOaTw6fzdP1ZoECZuqZJ1FaQxveSz7ZQcJrTHKBhY2Mtge5Sda +4kvCprH5sMP9Mjh0wET85HkSTm65rP5kRAZbSAHdiAQSSnM1u0RnZDCh635d ++EUSpBzdGVXLZbHN4o9dYAoJI5VPZ3m1ZJFxwY5PO4OE1NjkkIwTstinf92B +9zYJjd1rlUdiZNGIW255yx0SfhvUtW1IkMVvdudMrhSR4PttWu9LlizmejRL +SpeRYGLrMqFVJ4siWv2PZu6R0Ceuerh+lRzWjr1bw19HguSRR/KSknJ4x1H1 +8/V6Emwbd788QMhheX6svEYDCRVhCRpC+nLo8cBOGZtIuPBxfGjPbjlMtvx2 +fMMrEvTu1PiN5cnhxB6+25e7SPDjcZI0L5bDknKunrFuEq67jDZcvieHH2R0 +sjf3kLBMkK5q0iiHLS2uz0Y+ktAVdPbLme9y6CURXL9qgIQYpr2HzHp55BEI +HiwcJWGLa/YPY3N5rDu5pe3bGAmC0cOnnWzl8W5VfCUxQbVfF1eQ7C6P/QZe +x85OklBpXT287Lw85lZGttDnSIg6xBepnCqPMJiVt+EnCZZJjoLmWfL4T+mp +47vmSWh/PaoTyZbHHtkG1cjfJIzvVgqd7JTH4v9dItO5OHA/LJBP+Is8zv5s +//cKNwdOXf8vXWtUHs9Ox1xP4uGAwKddNQd4FPCfrAu3QpZwQM0vkeuTugJW +nslhCi/ngOux6QsvwhVQ2tJj7UVBDqhcNZcbilNAS8MP89ZCHGq9/ynhS1bA +eDXBviWrORD2e22reb4C6mzZOX1ImANXTruKV71QwAqnWStBMQ7svVlU8O6d +Ak6fyO0vpqz4bM546pMCDmjkZm4W50A5f6qz9rQC/uo7531UggMvUp7duClP +w+LWM6fTpDiQyhHTrVOjoYiOj5KENAec33rUftKloV3bucEUyoNSv7/IWtKQ +Xzz3a6QMB8pMrEIZ22moYpFLH6UcujeNb5czDTO7ZuKcZTnAm6OjfukwDYf3 +1baoyXGg+UlkTdkJGqrb29yLp5zc32z7MpZGxf+2pgHKCmo+R5ZfpeHpooXI +y/IcGNhCcqnm0nBrTh3xlXKx/2LKxiIa6vzHmtZX4IBJacbdU49oaP4l1bie +8qb3LQujjTTMOtm4g4fGATuuJZvd3tDQy8xHiUV591pG8qtuqr17NrdCKHs5 +HO6EARqOrXP9dJvy4fB/FctHaSjREfWqk/KJ/I6DxBwNNRsvH+MjOGAZTo+K +Xkqg5pTG0G7Kz4Ue/Luen0D3lIjqCMrb83c2jgsS2KO/2yKL8rv1EyO3RQl8 +pn47oZqyy8sEYQ8pAmlZTkntlD95qBpJyxOodN7abpiy78xj59d0Aivqjr74 +Q3n4gkvUeVUCi2YrVgjRORBIm/nXbB2BJjeX8clRnuYkN/7UJtCObvdUhXLY +lnXf2QYEjl8Ot9CgzNXzVNifQWD678h4bcpxR92NFDcQeEXN4p+/5l/2y7nL +nMD99584/30/OfNK1KXN1PhoA8N/2xPX1sm3tiWwNC9349/+MuuaG3nsCXTZ +OeT5dzy03T7fq50IFFTgWC9S480fWRQOdiawsHj819/5qMdkGq1zIzD4dPrx +t5TLxA1d+r0IPDyR87CGskHhq6hr+wm8JcL9Jpty9Qb//B0BBN58VU6eogxt +S5pWBhFY9eG2hwvler8b3+tCCXSs6vtoQNnqN0MkIpzA0LLdWisptyS3GxlE +Ezj2ZqldL7V+nVUrovPPE3i7d3pJOGVXu/z8vUkECnXpZW+i/KVvQ5NYKoEt +atcEVlIeXRkiEnedwPmAoUNJVDwF5wgas3IJjCp97W5Dec7gjsv0TQLNWr9o +LqXM69qb71NGoHfl1V1HqPiUKt9ibFlL4GhlxlIFKp6zNvW7/GkgMBA3fXxC +5YNiZ2R0xXMCb+zDTE/KmjycJtW3BJKhdpWZVP6YO8rv5RskUMa7jT1A5eOz +wfvRj0YIjMyS4ARSto10uHl8gsD411zZc5Ic2FVwbvTbPIFrangMF6l8PjQ3 +Ed24io5T7wLjvlH5b3LUV+KrCB1XmbcNbaW8fKiriFeKjkINJVXlohy42V33 +boMiHYe/bMk4KMKB3odXNO4Z0ZGx5OHZCqr+FBvz174xpWPq/6JduSiHlZ/a +NY50PBrQWmhJ1SuJPL/YdTZ0DLvKLmgU4MC2OEZHrhsdx1NmHPJWUPn8pyTg +kTcdb35PmXlF1buRUEXengN0nEjml5nn40D8/pVaUiF0lA7Y+nXjMg48tuk5 +nRRPxxYZ9wclVP3UE4nRDmfT0f/m+3+7qXrMlTBdn15BR+aj/h+vqXrdwuvv +XFFDx9lHMp31VD0/OO0QN/GUjgsSvwJzZkjI71Du9uui+tuxbU7rB7U/32g8 +68iriI2uNhWFgyT8XLe6V9NJET+fv5mr1kbCTJZMjL6zIlYvj8+sfk3ClJCK +MsNNEa3XhZ+0biVhdJLhv+mAIi4sJo+5v6T2yxqvGedIRXyp8c/X/c9IaLa5 +Lxh/UxGX+15x+FpNQuZBV+ibVsTOgIDO3BskXO3Z3/dtXhE3eBmca88i4fK2 +4Ljvi4p4h3ut7ZLrJCTpxz+fW6GEM8MDdJd0EmJ/sXcJKSih7on3a74mU/NL +WBrItFTCK8HX+IJjSGAWFeekpSnhBylF02B3ErqJohsW15TwYI+84lFXEsLS +7mRP3VDCygcvSw7tJeF+TMF1hztKKLMzrXLvbmp/3p2TLvhACdP+mXpMbCdh +7dLLyWc/K2G0tdEzBlD/yy08OlRDGTWhYWWVLAkTItbuO2uVsUZ2zn19Cxs6 +Dim2+j9TxsTwiKyg52x43DAPUS+UcbEyL6ywkTr/hRXRbr9TxtNjA/KidWzQ +6RP4+HNIGSfgOaPxPhsOs1/tyxJVQQ5076jLYcPQNieXL94qGFTYEr3iKBu+ +JLrvDOJTRfVrC8WMlWywGjtuNWCkhk+rtpmrM8phxGt58N2oNdg31q5UFl5K +3T8kec7VrsUusln33sFiEHmpmlQ+po6G25TvPzlYCHLxZduNjDSQwZjVXjC6 +DenrGKtF/TRxULy6R2RNATTLmBlOpmjh3eao1yXr8sFErjZZ+502Ml9Ve94X +ywNB3rwQj1gdbN7HnfzUKAcUYmjMPaq6GOMbKL4q8zqsUNlb4fBMF/ftmE6m +SWeAFku67Pg+PRSn3TZ9JpIGQb0iddZc+qj1Wl86QzgVxiYTnazS9dG/cduF +C2eTYbN2Q6aVpgGeOPl24H5iIjycNP0122KADgkpF5V04+Gwhl7Xax9D3OAQ +OS2dcQZYo97te1YYYUqQ+aCPdgxYKEttXZVnhJk/BP87+S4C1kRfOFFrbIyR +Qs6TrxRPgLoP45FKlzG2Mi3Op9UHg8/D/WfuHl2PwQqH9BLsAmE0YOi4Rch6 +LPK5XfYIA+GE/KGD70LXY7ehqcAfvUC4EHHEYS58PTK8t9ulSwZCuUkowTy7 +HscE2p6eqT0CvytOP6jLXI9lA/MBrSOH4VJZ9tSbuvV4yXGIVrwtAB7ltHtP +iDNQLOTXTkNbf/hkS3cLlWLgh3iDU7cM/YHrZ8CeXzIM6vxxy1Cd5g/m9nx2 +SwkGSvfe0/b4cQAauE2MpdUZKLnmmPXljAPwwvPGCrMNDPz8XG5y2fB+6FL2 +L032ZWDuVxfvngw/mLq9OKt9n4G2JT0JDio+8HWnZc75KgaWrNbK+SzqAx1L +Lm7pr2GgRNoetUgeH6hxl8lIe8zAF0VyQZ0fvSFWytBkoYmBbgItBqrXvGF1 +vH9E8wcGJsRZOvCLeYOG31suHx4T3GPdE/tC0Au8VIpWZG41wQknO8X/VD0g +7Kmrv+p2E+znS2L/lPCAZB+R56SDCQZ5yn8z5/OABzdPJj7fZYJ+9juUf31z +BzHVLUILHiYYsmuSm6fQHRpUB8TcQ03wYkbvOk8dd1BfQyNUb5igv8WrWb9E +V5hQTzUix01Q5b8Xd16ucYGOF2ghOmmCMTaMmdbVLvD48OiOkGkT9HUTGv46 +5wxJpNVRo3kTBFIy27rJGdRNuIqreU1xpf317jF/Z/C0CqDXSZjiKaHnTrfY +e6Ddb7NAO9MUe634fU7Y7obK/F+fp+NNsWhLopjKPScw2hgya51giop8/r5d +uU5w7/OIQM5FU1yzSWI0O8kJSIVeY+tLprhpvDDUab8TFKc/vph9zRR53sc5 +HpdzgpzEOMbmUlPk38lJjjvnCOdDhFLS20xxbemRoHP7d4DzJiU0VWCiGcf7 ++kpHe1hoXy5YRzDxTFfJhWFze8jxGe22VmKiyifDtC5de/h6tuq48xomzlvc +ez8gZA9BTdvKTuoxUdqzqrHsxXa4YBehUGnJxKNi3zP4rLZD9e63vw2OMDFm +4dL8ZLodyAacq9J6zETbpzZNGnPWkLToa5hQy8QI3gbP/F5r4Llkyf5Wz8SX +u2wqdJ9aw1DF0js5TUz8zf5kc/GSNVRznUkXaWOil7NIqKWWNThfjj4+M8DE +yZBFfs4BK0ivOWn4cCULx7+3a68Y3wzi/IfYW3ex0OjHpIivsQXkb4wMG9/D +wuYPYa5HCQvQi0zamLqXhasNlOVTV1iA3Xj52w4PFirpJ9+S/rAJzr6b/ul1 +iIWlCtE9OrGbYC4vyjwshoVcmLzv+JuN0GWa2lZQxMLtXjzN/bHmsP9Y/nWr +UhbSeqaOZRw2h5nSez4j5SwMUf9m7eVsDiKKHbO6FSx8a9WyVl/PHGyWy8v9 +95iFW00Ptj/pM4MH7QXebW9ZeNVD5HnCZjOwFqzUDO1g4Zxl0Ui4gRl0bG6a +kepmoUbKO+UouhlMVQ/Hu35iIad+7MrDXwiauTol/xui+hOTvkNjIzzoMgtN +/M7ChqSe4oJsBGuxHaA9zkK3uWhzTETwPXfsdcg0C/WERz4X+iFMPT6bKTnH +QpXvYs/DnRBi5696Vc+zsG/ZxyVuGxFWG9zR2LfAwn5bqShHXYTsgOrpxUUW +Jrhnrt1LQ/g/zpR92g== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "PlotRange" -> {{0, 30}, {0., 0.07472512481504474}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +6979,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 +7007,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.07472512481504474}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -2895,25 +7016,622 @@ 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.993959873736998*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"ff965812-28eb-4c16-bd12-8667595ef996"] }, Open ]], 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.005381"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.015959"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.025999"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.035173"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.043213"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.049902"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.055111"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.058771"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.060904"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.061577"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.060934"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.059136"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.056395"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.052912"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.048907"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.044569"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.040087"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.035606"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.031259"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.027134"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.023309"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.019818"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.016691"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.013926"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.01152"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.009447"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.007687"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.006205"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.004972"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.003954"}], "}"}], ",", + RowBox[{ + RowBox[{"{", + RowBox[{"30", ",", "0.003124"}], "}"}], + RowBox[{"\[AliasDelimiter]", + RowBox[{"}", "]"}]}]}]}]}]}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, { + 3.9939586290208063`*^9, 3.993958635570697*^9}}, + CellLabel->"In[96]:=",ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], + +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[96]:=",ExpressionUUID->"6d3700e1-f504-214a-a332-f16397f0b922"], + +Cell[BoxData[ + TemplateBox[{ + "Show", "gcomb", + "\"Could not combine the graphics objects in \ +\\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", \ +RowBox[{GraphicsBox[List[InterpretationBox[List[List[List[Skeleton[3]]], \ +List[]], Annotation[List[List[List[Skeleton[3]]], List[]], \ +Internal`ShallowAssociation[Rule[\\\"HighlightElements\\\", Association[Rule[\ +\\\"Label\\\", List[\\\"XYLabel\\\"]], Rule[\\\"Ball\\\", \ +List[\\\"InterpolatedBall\\\"]]]], Rule[\\\"LayoutOptions\\\", \ +Association[Rule[\\\"PanelPlotLayout\\\", Association[]], \ +Rule[\\\"PlotRange\\\", List[List[0, 30], List[0.`, 0.07472512481504474`]]], \ +Rule[\\\"Frame\\\", List[List[False, False], List[False, False]]], \ +Rule[\\\"AxesOrigin\\\", List[0, 0]], Rule[\\\"ImageSize\\\", List[360, \ +Times[360, Power[GoldenRatio, -1]]]], Rule[\\\"Axes\\\", List[True, True]], \ +Rule[\\\"LabelStyle\\\", List[]], Rule[\\\"AspectRatio\\\", \ +Power[GoldenRatio, -1]], Rule[\\\"DefaultStyle\\\", \ +List[Directive[Opacity[1.`], RGBColor[0.24`, 0.6`, 0.8`], \ +AbsoluteThickness[2]]]], Rule[\\\"HighlightLabelingFunctions\\\", \ +Association[Rule[\\\"CoordinatesToolOptions\\\", \ +Function[List[Function[Identity[Slot[1]]][Part[Slot[1], 1]], \ +Function[Identity[Slot[1]]][Part[Slot[1], 2]]]]], Rule[\\\"ScalingFunctions\\\ +\", List[List[Identity, Identity], List[Identity, Identity]]]]], \ +Rule[\\\"Primitives\\\", List[]], Rule[\\\"GCFlag\\\", False]]], \ +Rule[\\\"Meta\\\", Association[Rule[\\\"DefaultHighlight\\\", \ +List[\\\"Dynamic\\\", None]], Rule[\\\"Index\\\", List[]], \ +Rule[\\\"Function\\\", Plot], Rule[\\\"GroupHighlight\\\", False]]]], \ +\\\"DynamicHighlight\\\"]]], List[Rule[DisplayFunction, Identity], \ +RuleDelayed[PlotInteractivity, True], Rule[DisplayFunction, Identity], \ +RuleDelayed[PlotInteractivity, True], Rule[DefaultBaseStyle, \ +List[\\\"PlotGraphics\\\", \\\"Graphics\\\"]], Rule[DisplayFunction, \ +Identity], Rule[Ticks, List[Automatic, Automatic]], Rule[AxesOrigin, List[0, \ +0]], Rule[FrameTicks, List[List[Automatic, Automatic], List[Automatic, \ +Automatic]]], Rule[GridLines, List[None, None]], \ +RuleDelayed[PlotInteractivity, True], Rule[DefaultBaseStyle, \ +List[\\\"PlotGraphics\\\", \\\"Graphics\\\"]], Rule[DisplayFunction, \ +Identity], Rule[PlotRangePadding, List[List[Scaled[Skeleton[1]], \ +Scaled[Skeleton[1]]], List[Scaled[Skeleton[1]], Scaled[Skeleton[1]]]]], \ +Rule[PlotRangeClipping, True], Rule[ImagePadding, All], \ +RuleDelayed[PlotInteractivity, True], Rule[DisplayFunction, Identity], \ +RuleDelayed[PlotInteractivity, True], Rule[DefaultBaseStyle, \ +List[\\\"PlotGraphics\\\", \\\"Graphics\\\"]], Rule[AspectRatio, \ +NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], Rule[Axes, List[True, \ +True]], Rule[AxesLabel, List[None, None]], Rule[AxesOrigin, List[0, 0]], \ +RuleDelayed[DisplayFunction, Identity], Rule[Frame, List[List[False, False], \ +List[False, False]]], Rule[FrameLabel, List[List[None, None], List[None, \ +None]]], Rule[FrameTicks, List[List[Automatic, Automatic], List[Automatic, \ +Automatic]]], Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \ +Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \ +List[Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \ +Rule[\\\"DefaultGraphicsInteraction\\\", List[Skeleton[3]]], \ +Rule[\\\"DefaultMeshStyle\\\", AbsolutePointSize[Skeleton[1]]], \ +Rule[\\\"ScalingFunctions\\\", None], Rule[\\\"CoordinatesToolOptions\\\", \ +List[Skeleton[2]]]]], Rule[PlotRange, List[List[0, 30], List[0.`, \ +0.07472512481504474`]]], Rule[PlotRangeClipping, True], \ +Rule[PlotRangePadding, List[List[Scaled[Skeleton[1]], Scaled[Skeleton[1]]], \ +List[Scaled[Skeleton[1]], Scaled[Skeleton[1]]]]], Rule[Ticks, List[Automatic, \ +Automatic]]]], \\\",\\\", \\\"xx\\\"}], \\\"]\\\"}]\\).\"", 2, 96, 14, + 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993959873882468*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"1cfdc37b-8f1c-4cd8-bdc4-1d97d7d666b3"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13lYTV0XAPAGRFKa5+65jaR5dOteaxVFgyhlKJoHIlIJDRqIKL0lUlGq +N6H5nksavIZKKiQKDQol+ioNGkX6jr/O83uec/Zw9lpr7033POLgw8PFxaXD +zcX19znT21SvnJC/YTfhvb1zauOG9mypk2YdsSCf1tzpaacIKP7KU6rjEhQk +03LW2+lB6PbC97wdeTBRF35Q1s4chEclL/18T4KdKTNoZKsDfHxgd2TqfS0s +qZmJ2LHVEyyVh3om3r+Be4wTW7ltguDne+Mr4+/7oCmw2qjeLBbqNt7Kf503 +CbIsR7HC7ksg97Hqq6fGAgjkbbmil3cNxA65FfJt5EUl4+7tY99y4ZKuZY2d +03LUKOBh/VpeAJ3pOo8nVq9CZ6GD/cyEO5CQH/WKR1oYuwbqhF4OFYO1wQER +cSVhXNL3K1VqthiW1zs4qWkKY6d/aOxe3hI406/SbWMmjFwVy668lC2BCMUX +Xy8fEEYtUQl7R9sSOJwj9Ue1Whj/bOrU/1FUAvbX2Ro2LiLIFxfb5O5TCpKX ++8+nZoliq43wrqzHZSC17t6ZuQJRrHge8cGsuQxkas9G7SsXxY7BQLePbWWg +ML72mFqdKM4ZG+9Z+q0MVGwD3WsGRdElqj3y1LJy0F+yYNSvL4bRT6cXX6wr +h20hEl/0msVwuo/19klwOWxfOdh7tU0Mn7qp9yueKAeHvKrO3x/EkHvYxS06 +ohx2tu591TAmhtd62nJ04sphn8a/1c7i4vgxzJLpm1YOB79op8S6i6Nt/ccw +lcpyOOdoteHNjDjODnCfm5grB5m7LTI83BJo5n7N0WChHEpFHWd1V0pgs7dn +XxA3G969cS1PoUmgyTFxVv8KNijbhyjab5HAP26VA8kybKjdemNZa4YEOpeN +PaSZsmHBcrrlJVMSda321K84yYbkgrCiBUtJnK+0EqiPoL5fxhWvaS+Jn02v +CYRFs8H2Kb/ZRR9JXHmr27DzHBsyNxIc2yRJVGecV/NOY8N6tLn6/KMk1qiN +BBWTbAhm5Lo1xUohEfho37JBNljnCE7ZJEphi0GML/cwGxT5IuJbrkhhPnGZ +M/edDa3tO9ltt6VwYc24zIdJNmgFCvD2tkjh68lMInSRDYMFxwt+yEhjV2qp +3Kw4CXvF7L7LcqTxUKzeE00kQT+8Jib7gTRaXFVPZJuTwN+3RoLeII1Mx+83 +dC1IqCrjBdVOaTw6fzdP1ZoECZuqZJ1FaQxveSz7ZQcJrTHKBhY2Mtge5Sda +4kvCprH5sMP9Mjh0wET85HkSTm65rP5kRAZbSAHdiAQSSnM1u0RnZDCh635d ++EUSpBzdGVXLZbHN4o9dYAoJI5VPZ3m1ZJFxwY5PO4OE1NjkkIwTstinf92B +9zYJjd1rlUdiZNGIW255yx0SfhvUtW1IkMVvdudMrhSR4PttWu9LlizmejRL +SpeRYGLrMqFVJ4siWv2PZu6R0Ceuerh+lRzWjr1bw19HguSRR/KSknJ4x1H1 +8/V6Emwbd788QMhheX6svEYDCRVhCRpC+nLo8cBOGZtIuPBxfGjPbjlMtvx2 +fMMrEvTu1PiN5cnhxB6+25e7SPDjcZI0L5bDknKunrFuEq67jDZcvieHH2R0 +sjf3kLBMkK5q0iiHLS2uz0Y+ktAVdPbLme9y6CURXL9qgIQYpr2HzHp55BEI +HiwcJWGLa/YPY3N5rDu5pe3bGAmC0cOnnWzl8W5VfCUxQbVfF1eQ7C6P/QZe +x85OklBpXT287Lw85lZGttDnSIg6xBepnCqPMJiVt+EnCZZJjoLmWfL4T+mp +47vmSWh/PaoTyZbHHtkG1cjfJIzvVgqd7JTH4v9dItO5OHA/LJBP+Is8zv5s +//cKNwdOXf8vXWtUHs9Ox1xP4uGAwKddNQd4FPCfrAu3QpZwQM0vkeuTugJW +nslhCi/ngOux6QsvwhVQ2tJj7UVBDqhcNZcbilNAS8MP89ZCHGq9/ynhS1bA +eDXBviWrORD2e22reb4C6mzZOX1ImANXTruKV71QwAqnWStBMQ7svVlU8O6d +Ak6fyO0vpqz4bM546pMCDmjkZm4W50A5f6qz9rQC/uo7531UggMvUp7duClP +w+LWM6fTpDiQyhHTrVOjoYiOj5KENAec33rUftKloV3bucEUyoNSv7/IWtKQ +Xzz3a6QMB8pMrEIZ22moYpFLH6UcujeNb5czDTO7ZuKcZTnAm6OjfukwDYf3 +1baoyXGg+UlkTdkJGqrb29yLp5zc32z7MpZGxf+2pgHKCmo+R5ZfpeHpooXI +y/IcGNhCcqnm0nBrTh3xlXKx/2LKxiIa6vzHmtZX4IBJacbdU49oaP4l1bie +8qb3LQujjTTMOtm4g4fGATuuJZvd3tDQy8xHiUV591pG8qtuqr17NrdCKHs5 +HO6EARqOrXP9dJvy4fB/FctHaSjREfWqk/KJ/I6DxBwNNRsvH+MjOGAZTo+K +Xkqg5pTG0G7Kz4Ue/Luen0D3lIjqCMrb83c2jgsS2KO/2yKL8rv1EyO3RQl8 +pn47oZqyy8sEYQ8pAmlZTkntlD95qBpJyxOodN7abpiy78xj59d0Aivqjr74 +Q3n4gkvUeVUCi2YrVgjRORBIm/nXbB2BJjeX8clRnuYkN/7UJtCObvdUhXLY +lnXf2QYEjl8Ot9CgzNXzVNifQWD678h4bcpxR92NFDcQeEXN4p+/5l/2y7nL +nMD99584/30/OfNK1KXN1PhoA8N/2xPX1sm3tiWwNC9349/+MuuaG3nsCXTZ +OeT5dzy03T7fq50IFFTgWC9S480fWRQOdiawsHj819/5qMdkGq1zIzD4dPrx +t5TLxA1d+r0IPDyR87CGskHhq6hr+wm8JcL9Jpty9Qb//B0BBN58VU6eogxt +S5pWBhFY9eG2hwvler8b3+tCCXSs6vtoQNnqN0MkIpzA0LLdWisptyS3GxlE +Ezj2ZqldL7V+nVUrovPPE3i7d3pJOGVXu/z8vUkECnXpZW+i/KVvQ5NYKoEt +atcEVlIeXRkiEnedwPmAoUNJVDwF5wgas3IJjCp97W5Dec7gjsv0TQLNWr9o +LqXM69qb71NGoHfl1V1HqPiUKt9ibFlL4GhlxlIFKp6zNvW7/GkgMBA3fXxC +5YNiZ2R0xXMCb+zDTE/KmjycJtW3BJKhdpWZVP6YO8rv5RskUMa7jT1A5eOz +wfvRj0YIjMyS4ARSto10uHl8gsD411zZc5Ic2FVwbvTbPIFrangMF6l8PjQ3 +Ed24io5T7wLjvlH5b3LUV+KrCB1XmbcNbaW8fKiriFeKjkINJVXlohy42V33 +boMiHYe/bMk4KMKB3odXNO4Z0ZGx5OHZCqr+FBvz174xpWPq/6JduSiHlZ/a +NY50PBrQWmhJ1SuJPL/YdTZ0DLvKLmgU4MC2OEZHrhsdx1NmHPJWUPn8pyTg +kTcdb35PmXlF1buRUEXengN0nEjml5nn40D8/pVaUiF0lA7Y+nXjMg48tuk5 +nRRPxxYZ9wclVP3UE4nRDmfT0f/m+3+7qXrMlTBdn15BR+aj/h+vqXrdwuvv +XFFDx9lHMp31VD0/OO0QN/GUjgsSvwJzZkjI71Du9uui+tuxbU7rB7U/32g8 +68iriI2uNhWFgyT8XLe6V9NJET+fv5mr1kbCTJZMjL6zIlYvj8+sfk3ClJCK +MsNNEa3XhZ+0biVhdJLhv+mAIi4sJo+5v6T2yxqvGedIRXyp8c/X/c9IaLa5 +Lxh/UxGX+15x+FpNQuZBV+ibVsTOgIDO3BskXO3Z3/dtXhE3eBmca88i4fK2 +4Ljvi4p4h3ut7ZLrJCTpxz+fW6GEM8MDdJd0EmJ/sXcJKSih7on3a74mU/NL +WBrItFTCK8HX+IJjSGAWFeekpSnhBylF02B3ErqJohsW15TwYI+84lFXEsLS +7mRP3VDCygcvSw7tJeF+TMF1hztKKLMzrXLvbmp/3p2TLvhACdP+mXpMbCdh +7dLLyWc/K2G0tdEzBlD/yy08OlRDGTWhYWWVLAkTItbuO2uVsUZ2zn19Cxs6 +Dim2+j9TxsTwiKyg52x43DAPUS+UcbEyL6ywkTr/hRXRbr9TxtNjA/KidWzQ +6RP4+HNIGSfgOaPxPhsOs1/tyxJVQQ5076jLYcPQNieXL94qGFTYEr3iKBu+ +JLrvDOJTRfVrC8WMlWywGjtuNWCkhk+rtpmrM8phxGt58N2oNdg31q5UFl5K +3T8kec7VrsUusln33sFiEHmpmlQ+po6G25TvPzlYCHLxZduNjDSQwZjVXjC6 +DenrGKtF/TRxULy6R2RNATTLmBlOpmjh3eao1yXr8sFErjZZ+502Ml9Ve94X +ywNB3rwQj1gdbN7HnfzUKAcUYmjMPaq6GOMbKL4q8zqsUNlb4fBMF/ftmE6m +SWeAFku67Pg+PRSn3TZ9JpIGQb0iddZc+qj1Wl86QzgVxiYTnazS9dG/cduF +C2eTYbN2Q6aVpgGeOPl24H5iIjycNP0122KADgkpF5V04+Gwhl7Xax9D3OAQ +OS2dcQZYo97te1YYYUqQ+aCPdgxYKEttXZVnhJk/BP87+S4C1kRfOFFrbIyR +Qs6TrxRPgLoP45FKlzG2Mi3Op9UHg8/D/WfuHl2PwQqH9BLsAmE0YOi4Rch6 +LPK5XfYIA+GE/KGD70LXY7ehqcAfvUC4EHHEYS58PTK8t9ulSwZCuUkowTy7 +HscE2p6eqT0CvytOP6jLXI9lA/MBrSOH4VJZ9tSbuvV4yXGIVrwtAB7ltHtP +iDNQLOTXTkNbf/hkS3cLlWLgh3iDU7cM/YHrZ8CeXzIM6vxxy1Cd5g/m9nx2 +SwkGSvfe0/b4cQAauE2MpdUZKLnmmPXljAPwwvPGCrMNDPz8XG5y2fB+6FL2 +L032ZWDuVxfvngw/mLq9OKt9n4G2JT0JDio+8HWnZc75KgaWrNbK+SzqAx1L +Lm7pr2GgRNoetUgeH6hxl8lIe8zAF0VyQZ0fvSFWytBkoYmBbgItBqrXvGF1 +vH9E8wcGJsRZOvCLeYOG31suHx4T3GPdE/tC0Au8VIpWZG41wQknO8X/VD0g +7Kmrv+p2E+znS2L/lPCAZB+R56SDCQZ5yn8z5/OABzdPJj7fZYJ+9juUf31z +BzHVLUILHiYYsmuSm6fQHRpUB8TcQ03wYkbvOk8dd1BfQyNUb5igv8WrWb9E +V5hQTzUix01Q5b8Xd16ucYGOF2ghOmmCMTaMmdbVLvD48OiOkGkT9HUTGv46 +5wxJpNVRo3kTBFIy27rJGdRNuIqreU1xpf317jF/Z/C0CqDXSZjiKaHnTrfY +e6Ddb7NAO9MUe634fU7Y7obK/F+fp+NNsWhLopjKPScw2hgya51giop8/r5d +uU5w7/OIQM5FU1yzSWI0O8kJSIVeY+tLprhpvDDUab8TFKc/vph9zRR53sc5 +HpdzgpzEOMbmUlPk38lJjjvnCOdDhFLS20xxbemRoHP7d4DzJiU0VWCiGcf7 ++kpHe1hoXy5YRzDxTFfJhWFze8jxGe22VmKiyifDtC5de/h6tuq48xomzlvc +ez8gZA9BTdvKTuoxUdqzqrHsxXa4YBehUGnJxKNi3zP4rLZD9e63vw2OMDFm +4dL8ZLodyAacq9J6zETbpzZNGnPWkLToa5hQy8QI3gbP/F5r4Llkyf5Wz8SX +u2wqdJ9aw1DF0js5TUz8zf5kc/GSNVRznUkXaWOil7NIqKWWNThfjj4+M8DE +yZBFfs4BK0ivOWn4cCULx7+3a68Y3wzi/IfYW3ex0OjHpIivsQXkb4wMG9/D +wuYPYa5HCQvQi0zamLqXhasNlOVTV1iA3Xj52w4PFirpJ9+S/rAJzr6b/ul1 +iIWlCtE9OrGbYC4vyjwshoVcmLzv+JuN0GWa2lZQxMLtXjzN/bHmsP9Y/nWr +UhbSeqaOZRw2h5nSez4j5SwMUf9m7eVsDiKKHbO6FSx8a9WyVl/PHGyWy8v9 +95iFW00Ptj/pM4MH7QXebW9ZeNVD5HnCZjOwFqzUDO1g4Zxl0Ui4gRl0bG6a +kepmoUbKO+UouhlMVQ/Hu35iIad+7MrDXwiauTol/xui+hOTvkNjIzzoMgtN +/M7ChqSe4oJsBGuxHaA9zkK3uWhzTETwPXfsdcg0C/WERz4X+iFMPT6bKTnH +QpXvYs/DnRBi5696Vc+zsG/ZxyVuGxFWG9zR2LfAwn5bqShHXYTsgOrpxUUW +Jrhnrt1LQ/g/zpR92g== + "]]}, + 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:eJwV13lYTV0XAPAGRFKa5+65jaR5dOteaxVFgyhlKJoHIlIJDRqIKL0lUlGq +N6H5nksavIZKKiQKDQol+ioNGkX6jr/O83uec/Zw9lpr7033POLgw8PFxaXD +zcX19znT21SvnJC/YTfhvb1zauOG9mypk2YdsSCf1tzpaacIKP7KU6rjEhQk +03LW2+lB6PbC97wdeTBRF35Q1s4chEclL/18T4KdKTNoZKsDfHxgd2TqfS0s +qZmJ2LHVEyyVh3om3r+Be4wTW7ltguDne+Mr4+/7oCmw2qjeLBbqNt7Kf503 +CbIsR7HC7ksg97Hqq6fGAgjkbbmil3cNxA65FfJt5EUl4+7tY99y4ZKuZY2d +03LUKOBh/VpeAJ3pOo8nVq9CZ6GD/cyEO5CQH/WKR1oYuwbqhF4OFYO1wQER +cSVhXNL3K1VqthiW1zs4qWkKY6d/aOxe3hI406/SbWMmjFwVy668lC2BCMUX +Xy8fEEYtUQl7R9sSOJwj9Ue1Whj/bOrU/1FUAvbX2Ro2LiLIFxfb5O5TCpKX ++8+nZoliq43wrqzHZSC17t6ZuQJRrHge8cGsuQxkas9G7SsXxY7BQLePbWWg +ML72mFqdKM4ZG+9Z+q0MVGwD3WsGRdElqj3y1LJy0F+yYNSvL4bRT6cXX6wr +h20hEl/0msVwuo/19klwOWxfOdh7tU0Mn7qp9yueKAeHvKrO3x/EkHvYxS06 +ohx2tu591TAmhtd62nJ04sphn8a/1c7i4vgxzJLpm1YOB79op8S6i6Nt/ccw +lcpyOOdoteHNjDjODnCfm5grB5m7LTI83BJo5n7N0WChHEpFHWd1V0pgs7dn +XxA3G969cS1PoUmgyTFxVv8KNijbhyjab5HAP26VA8kybKjdemNZa4YEOpeN +PaSZsmHBcrrlJVMSda321K84yYbkgrCiBUtJnK+0EqiPoL5fxhWvaS+Jn02v +CYRFs8H2Kb/ZRR9JXHmr27DzHBsyNxIc2yRJVGecV/NOY8N6tLn6/KMk1qiN +BBWTbAhm5Lo1xUohEfho37JBNljnCE7ZJEphi0GML/cwGxT5IuJbrkhhPnGZ +M/edDa3tO9ltt6VwYc24zIdJNmgFCvD2tkjh68lMInSRDYMFxwt+yEhjV2qp +3Kw4CXvF7L7LcqTxUKzeE00kQT+8Jib7gTRaXFVPZJuTwN+3RoLeII1Mx+83 +dC1IqCrjBdVOaTw6fzdP1ZoECZuqZJ1FaQxveSz7ZQcJrTHKBhY2Mtge5Sda +4kvCprH5sMP9Mjh0wET85HkSTm65rP5kRAZbSAHdiAQSSnM1u0RnZDCh635d ++EUSpBzdGVXLZbHN4o9dYAoJI5VPZ3m1ZJFxwY5PO4OE1NjkkIwTstinf92B +9zYJjd1rlUdiZNGIW255yx0SfhvUtW1IkMVvdudMrhSR4PttWu9LlizmejRL +SpeRYGLrMqFVJ4siWv2PZu6R0Ceuerh+lRzWjr1bw19HguSRR/KSknJ4x1H1 +8/V6Emwbd788QMhheX6svEYDCRVhCRpC+nLo8cBOGZtIuPBxfGjPbjlMtvx2 +fMMrEvTu1PiN5cnhxB6+25e7SPDjcZI0L5bDknKunrFuEq67jDZcvieHH2R0 +sjf3kLBMkK5q0iiHLS2uz0Y+ktAVdPbLme9y6CURXL9qgIQYpr2HzHp55BEI +HiwcJWGLa/YPY3N5rDu5pe3bGAmC0cOnnWzl8W5VfCUxQbVfF1eQ7C6P/QZe +x85OklBpXT287Lw85lZGttDnSIg6xBepnCqPMJiVt+EnCZZJjoLmWfL4T+mp +47vmSWh/PaoTyZbHHtkG1cjfJIzvVgqd7JTH4v9dItO5OHA/LJBP+Is8zv5s +//cKNwdOXf8vXWtUHs9Ox1xP4uGAwKddNQd4FPCfrAu3QpZwQM0vkeuTugJW +nslhCi/ngOux6QsvwhVQ2tJj7UVBDqhcNZcbilNAS8MP89ZCHGq9/ynhS1bA +eDXBviWrORD2e22reb4C6mzZOX1ImANXTruKV71QwAqnWStBMQ7svVlU8O6d +Ak6fyO0vpqz4bM546pMCDmjkZm4W50A5f6qz9rQC/uo7531UggMvUp7duClP +w+LWM6fTpDiQyhHTrVOjoYiOj5KENAec33rUftKloV3bucEUyoNSv7/IWtKQ +Xzz3a6QMB8pMrEIZ22moYpFLH6UcujeNb5czDTO7ZuKcZTnAm6OjfukwDYf3 +1baoyXGg+UlkTdkJGqrb29yLp5zc32z7MpZGxf+2pgHKCmo+R5ZfpeHpooXI +y/IcGNhCcqnm0nBrTh3xlXKx/2LKxiIa6vzHmtZX4IBJacbdU49oaP4l1bie +8qb3LQujjTTMOtm4g4fGATuuJZvd3tDQy8xHiUV591pG8qtuqr17NrdCKHs5 +HO6EARqOrXP9dJvy4fB/FctHaSjREfWqk/KJ/I6DxBwNNRsvH+MjOGAZTo+K +Xkqg5pTG0G7Kz4Ue/Luen0D3lIjqCMrb83c2jgsS2KO/2yKL8rv1EyO3RQl8 +pn47oZqyy8sEYQ8pAmlZTkntlD95qBpJyxOodN7abpiy78xj59d0Aivqjr74 +Q3n4gkvUeVUCi2YrVgjRORBIm/nXbB2BJjeX8clRnuYkN/7UJtCObvdUhXLY +lnXf2QYEjl8Ot9CgzNXzVNifQWD678h4bcpxR92NFDcQeEXN4p+/5l/2y7nL +nMD99584/30/OfNK1KXN1PhoA8N/2xPX1sm3tiWwNC9349/+MuuaG3nsCXTZ +OeT5dzy03T7fq50IFFTgWC9S480fWRQOdiawsHj819/5qMdkGq1zIzD4dPrx +t5TLxA1d+r0IPDyR87CGskHhq6hr+wm8JcL9Jpty9Qb//B0BBN58VU6eogxt +S5pWBhFY9eG2hwvler8b3+tCCXSs6vtoQNnqN0MkIpzA0LLdWisptyS3GxlE +Ezj2ZqldL7V+nVUrovPPE3i7d3pJOGVXu/z8vUkECnXpZW+i/KVvQ5NYKoEt +atcEVlIeXRkiEnedwPmAoUNJVDwF5wgas3IJjCp97W5Dec7gjsv0TQLNWr9o +LqXM69qb71NGoHfl1V1HqPiUKt9ibFlL4GhlxlIFKp6zNvW7/GkgMBA3fXxC +5YNiZ2R0xXMCb+zDTE/KmjycJtW3BJKhdpWZVP6YO8rv5RskUMa7jT1A5eOz +wfvRj0YIjMyS4ARSto10uHl8gsD411zZc5Ic2FVwbvTbPIFrangMF6l8PjQ3 +Ed24io5T7wLjvlH5b3LUV+KrCB1XmbcNbaW8fKiriFeKjkINJVXlohy42V33 +boMiHYe/bMk4KMKB3odXNO4Z0ZGx5OHZCqr+FBvz174xpWPq/6JduSiHlZ/a +NY50PBrQWmhJ1SuJPL/YdTZ0DLvKLmgU4MC2OEZHrhsdx1NmHPJWUPn8pyTg +kTcdb35PmXlF1buRUEXengN0nEjml5nn40D8/pVaUiF0lA7Y+nXjMg48tuk5 +nRRPxxYZ9wclVP3UE4nRDmfT0f/m+3+7qXrMlTBdn15BR+aj/h+vqXrdwuvv +XFFDx9lHMp31VD0/OO0QN/GUjgsSvwJzZkjI71Du9uui+tuxbU7rB7U/32g8 +68iriI2uNhWFgyT8XLe6V9NJET+fv5mr1kbCTJZMjL6zIlYvj8+sfk3ClJCK +MsNNEa3XhZ+0biVhdJLhv+mAIi4sJo+5v6T2yxqvGedIRXyp8c/X/c9IaLa5 +Lxh/UxGX+15x+FpNQuZBV+ibVsTOgIDO3BskXO3Z3/dtXhE3eBmca88i4fK2 +4Ljvi4p4h3ut7ZLrJCTpxz+fW6GEM8MDdJd0EmJ/sXcJKSih7on3a74mU/NL +WBrItFTCK8HX+IJjSGAWFeekpSnhBylF02B3ErqJohsW15TwYI+84lFXEsLS +7mRP3VDCygcvSw7tJeF+TMF1hztKKLMzrXLvbmp/3p2TLvhACdP+mXpMbCdh +7dLLyWc/K2G0tdEzBlD/yy08OlRDGTWhYWWVLAkTItbuO2uVsUZ2zn19Cxs6 +Dim2+j9TxsTwiKyg52x43DAPUS+UcbEyL6ywkTr/hRXRbr9TxtNjA/KidWzQ +6RP4+HNIGSfgOaPxPhsOs1/tyxJVQQ5076jLYcPQNieXL94qGFTYEr3iKBu+ +JLrvDOJTRfVrC8WMlWywGjtuNWCkhk+rtpmrM8phxGt58N2oNdg31q5UFl5K +3T8kec7VrsUusln33sFiEHmpmlQ+po6G25TvPzlYCHLxZduNjDSQwZjVXjC6 +DenrGKtF/TRxULy6R2RNATTLmBlOpmjh3eao1yXr8sFErjZZ+502Ml9Ve94X +ywNB3rwQj1gdbN7HnfzUKAcUYmjMPaq6GOMbKL4q8zqsUNlb4fBMF/ftmE6m +SWeAFku67Pg+PRSn3TZ9JpIGQb0iddZc+qj1Wl86QzgVxiYTnazS9dG/cduF +C2eTYbN2Q6aVpgGeOPl24H5iIjycNP0122KADgkpF5V04+Gwhl7Xax9D3OAQ +OS2dcQZYo97te1YYYUqQ+aCPdgxYKEttXZVnhJk/BP87+S4C1kRfOFFrbIyR +Qs6TrxRPgLoP45FKlzG2Mi3Op9UHg8/D/WfuHl2PwQqH9BLsAmE0YOi4Rch6 +LPK5XfYIA+GE/KGD70LXY7ehqcAfvUC4EHHEYS58PTK8t9ulSwZCuUkowTy7 +HscE2p6eqT0CvytOP6jLXI9lA/MBrSOH4VJZ9tSbuvV4yXGIVrwtAB7ltHtP +iDNQLOTXTkNbf/hkS3cLlWLgh3iDU7cM/YHrZ8CeXzIM6vxxy1Cd5g/m9nx2 +SwkGSvfe0/b4cQAauE2MpdUZKLnmmPXljAPwwvPGCrMNDPz8XG5y2fB+6FL2 +L032ZWDuVxfvngw/mLq9OKt9n4G2JT0JDio+8HWnZc75KgaWrNbK+SzqAx1L +Lm7pr2GgRNoetUgeH6hxl8lIe8zAF0VyQZ0fvSFWytBkoYmBbgItBqrXvGF1 +vH9E8wcGJsRZOvCLeYOG31suHx4T3GPdE/tC0Au8VIpWZG41wQknO8X/VD0g +7Kmrv+p2E+znS2L/lPCAZB+R56SDCQZ5yn8z5/OABzdPJj7fZYJ+9juUf31z +BzHVLUILHiYYsmuSm6fQHRpUB8TcQ03wYkbvOk8dd1BfQyNUb5igv8WrWb9E +V5hQTzUix01Q5b8Xd16ucYGOF2ghOmmCMTaMmdbVLvD48OiOkGkT9HUTGv46 +5wxJpNVRo3kTBFIy27rJGdRNuIqreU1xpf317jF/Z/C0CqDXSZjiKaHnTrfY +e6Ddb7NAO9MUe634fU7Y7obK/F+fp+NNsWhLopjKPScw2hgya51giop8/r5d +uU5w7/OIQM5FU1yzSWI0O8kJSIVeY+tLprhpvDDUab8TFKc/vph9zRR53sc5 +HpdzgpzEOMbmUlPk38lJjjvnCOdDhFLS20xxbemRoHP7d4DzJiU0VWCiGcf7 ++kpHe1hoXy5YRzDxTFfJhWFze8jxGe22VmKiyifDtC5de/h6tuq48xomzlvc +ez8gZA9BTdvKTuoxUdqzqrHsxXa4YBehUGnJxKNi3zP4rLZD9e63vw2OMDFm +4dL8ZLodyAacq9J6zETbpzZNGnPWkLToa5hQy8QI3gbP/F5r4Llkyf5Wz8SX +u2wqdJ9aw1DF0js5TUz8zf5kc/GSNVRznUkXaWOil7NIqKWWNThfjj4+M8DE +yZBFfs4BK0ivOWn4cCULx7+3a68Y3wzi/IfYW3ex0OjHpIivsQXkb4wMG9/D +wuYPYa5HCQvQi0zamLqXhasNlOVTV1iA3Xj52w4PFirpJ9+S/rAJzr6b/ul1 +iIWlCtE9OrGbYC4vyjwshoVcmLzv+JuN0GWa2lZQxMLtXjzN/bHmsP9Y/nWr +UhbSeqaOZRw2h5nSez4j5SwMUf9m7eVsDiKKHbO6FSx8a9WyVl/PHGyWy8v9 +95iFW00Ptj/pM4MH7QXebW9ZeNVD5HnCZjOwFqzUDO1g4Zxl0Ui4gRl0bG6a +kepmoUbKO+UouhlMVQ/Hu35iIad+7MrDXwiauTol/xui+hOTvkNjIzzoMgtN +/M7ChqSe4oJsBGuxHaA9zkK3uWhzTETwPXfsdcg0C/WERz4X+iFMPT6bKTnH +QpXvYs/DnRBi5696Vc+zsG/ZxyVuGxFWG9zR2LfAwn5bqShHXYTsgOrpxUUW +Jrhnrt1LQ/g/zpR92g== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07472512481504474}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.07472512481504474}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJwV13lYTV0XAPAGRFKa5+65jaR5dOteaxVFgyhlKJoHIlIJDRqIKL0lUlGq +N6H5nksavIZKKiQKDQol+ioNGkX6jr/O83uec/Zw9lpr7033POLgw8PFxaXD +zcX19znT21SvnJC/YTfhvb1zauOG9mypk2YdsSCf1tzpaacIKP7KU6rjEhQk +03LW2+lB6PbC97wdeTBRF35Q1s4chEclL/18T4KdKTNoZKsDfHxgd2TqfS0s +qZmJ2LHVEyyVh3om3r+Be4wTW7ltguDne+Mr4+/7oCmw2qjeLBbqNt7Kf503 +CbIsR7HC7ksg97Hqq6fGAgjkbbmil3cNxA65FfJt5EUl4+7tY99y4ZKuZY2d +03LUKOBh/VpeAJ3pOo8nVq9CZ6GD/cyEO5CQH/WKR1oYuwbqhF4OFYO1wQER +cSVhXNL3K1VqthiW1zs4qWkKY6d/aOxe3hI406/SbWMmjFwVy668lC2BCMUX +Xy8fEEYtUQl7R9sSOJwj9Ue1Whj/bOrU/1FUAvbX2Ro2LiLIFxfb5O5TCpKX ++8+nZoliq43wrqzHZSC17t6ZuQJRrHge8cGsuQxkas9G7SsXxY7BQLePbWWg +ML72mFqdKM4ZG+9Z+q0MVGwD3WsGRdElqj3y1LJy0F+yYNSvL4bRT6cXX6wr +h20hEl/0msVwuo/19klwOWxfOdh7tU0Mn7qp9yueKAeHvKrO3x/EkHvYxS06 +ohx2tu591TAmhtd62nJ04sphn8a/1c7i4vgxzJLpm1YOB79op8S6i6Nt/ccw +lcpyOOdoteHNjDjODnCfm5grB5m7LTI83BJo5n7N0WChHEpFHWd1V0pgs7dn +XxA3G969cS1PoUmgyTFxVv8KNijbhyjab5HAP26VA8kybKjdemNZa4YEOpeN +PaSZsmHBcrrlJVMSda321K84yYbkgrCiBUtJnK+0EqiPoL5fxhWvaS+Jn02v +CYRFs8H2Kb/ZRR9JXHmr27DzHBsyNxIc2yRJVGecV/NOY8N6tLn6/KMk1qiN +BBWTbAhm5Lo1xUohEfho37JBNljnCE7ZJEphi0GML/cwGxT5IuJbrkhhPnGZ +M/edDa3tO9ltt6VwYc24zIdJNmgFCvD2tkjh68lMInSRDYMFxwt+yEhjV2qp +3Kw4CXvF7L7LcqTxUKzeE00kQT+8Jib7gTRaXFVPZJuTwN+3RoLeII1Mx+83 +dC1IqCrjBdVOaTw6fzdP1ZoECZuqZJ1FaQxveSz7ZQcJrTHKBhY2Mtge5Sda +4kvCprH5sMP9Mjh0wET85HkSTm65rP5kRAZbSAHdiAQSSnM1u0RnZDCh635d ++EUSpBzdGVXLZbHN4o9dYAoJI5VPZ3m1ZJFxwY5PO4OE1NjkkIwTstinf92B +9zYJjd1rlUdiZNGIW255yx0SfhvUtW1IkMVvdudMrhSR4PttWu9LlizmejRL +SpeRYGLrMqFVJ4siWv2PZu6R0Ceuerh+lRzWjr1bw19HguSRR/KSknJ4x1H1 +8/V6Emwbd788QMhheX6svEYDCRVhCRpC+nLo8cBOGZtIuPBxfGjPbjlMtvx2 +fMMrEvTu1PiN5cnhxB6+25e7SPDjcZI0L5bDknKunrFuEq67jDZcvieHH2R0 +sjf3kLBMkK5q0iiHLS2uz0Y+ktAVdPbLme9y6CURXL9qgIQYpr2HzHp55BEI +HiwcJWGLa/YPY3N5rDu5pe3bGAmC0cOnnWzl8W5VfCUxQbVfF1eQ7C6P/QZe +x85OklBpXT287Lw85lZGttDnSIg6xBepnCqPMJiVt+EnCZZJjoLmWfL4T+mp +47vmSWh/PaoTyZbHHtkG1cjfJIzvVgqd7JTH4v9dItO5OHA/LJBP+Is8zv5s +//cKNwdOXf8vXWtUHs9Ox1xP4uGAwKddNQd4FPCfrAu3QpZwQM0vkeuTugJW +nslhCi/ngOux6QsvwhVQ2tJj7UVBDqhcNZcbilNAS8MP89ZCHGq9/ynhS1bA +eDXBviWrORD2e22reb4C6mzZOX1ImANXTruKV71QwAqnWStBMQ7svVlU8O6d +Ak6fyO0vpqz4bM546pMCDmjkZm4W50A5f6qz9rQC/uo7531UggMvUp7duClP +w+LWM6fTpDiQyhHTrVOjoYiOj5KENAec33rUftKloV3bucEUyoNSv7/IWtKQ +Xzz3a6QMB8pMrEIZ22moYpFLH6UcujeNb5czDTO7ZuKcZTnAm6OjfukwDYf3 +1baoyXGg+UlkTdkJGqrb29yLp5zc32z7MpZGxf+2pgHKCmo+R5ZfpeHpooXI +y/IcGNhCcqnm0nBrTh3xlXKx/2LKxiIa6vzHmtZX4IBJacbdU49oaP4l1bie +8qb3LQujjTTMOtm4g4fGATuuJZvd3tDQy8xHiUV591pG8qtuqr17NrdCKHs5 +HO6EARqOrXP9dJvy4fB/FctHaSjREfWqk/KJ/I6DxBwNNRsvH+MjOGAZTo+K +Xkqg5pTG0G7Kz4Ue/Luen0D3lIjqCMrb83c2jgsS2KO/2yKL8rv1EyO3RQl8 +pn47oZqyy8sEYQ8pAmlZTkntlD95qBpJyxOodN7abpiy78xj59d0Aivqjr74 +Q3n4gkvUeVUCi2YrVgjRORBIm/nXbB2BJjeX8clRnuYkN/7UJtCObvdUhXLY +lnXf2QYEjl8Ot9CgzNXzVNifQWD678h4bcpxR92NFDcQeEXN4p+/5l/2y7nL +nMD99584/30/OfNK1KXN1PhoA8N/2xPX1sm3tiWwNC9349/+MuuaG3nsCXTZ +OeT5dzy03T7fq50IFFTgWC9S480fWRQOdiawsHj819/5qMdkGq1zIzD4dPrx +t5TLxA1d+r0IPDyR87CGskHhq6hr+wm8JcL9Jpty9Qb//B0BBN58VU6eogxt +S5pWBhFY9eG2hwvler8b3+tCCXSs6vtoQNnqN0MkIpzA0LLdWisptyS3GxlE +Ezj2ZqldL7V+nVUrovPPE3i7d3pJOGVXu/z8vUkECnXpZW+i/KVvQ5NYKoEt +atcEVlIeXRkiEnedwPmAoUNJVDwF5wgas3IJjCp97W5Dec7gjsv0TQLNWr9o +LqXM69qb71NGoHfl1V1HqPiUKt9ibFlL4GhlxlIFKp6zNvW7/GkgMBA3fXxC +5YNiZ2R0xXMCb+zDTE/KmjycJtW3BJKhdpWZVP6YO8rv5RskUMa7jT1A5eOz +wfvRj0YIjMyS4ARSto10uHl8gsD411zZc5Ic2FVwbvTbPIFrangMF6l8PjQ3 +Ed24io5T7wLjvlH5b3LUV+KrCB1XmbcNbaW8fKiriFeKjkINJVXlohy42V33 +boMiHYe/bMk4KMKB3odXNO4Z0ZGx5OHZCqr+FBvz174xpWPq/6JduSiHlZ/a +NY50PBrQWmhJ1SuJPL/YdTZ0DLvKLmgU4MC2OEZHrhsdx1NmHPJWUPn8pyTg +kTcdb35PmXlF1buRUEXengN0nEjml5nn40D8/pVaUiF0lA7Y+nXjMg48tuk5 +nRRPxxYZ9wclVP3UE4nRDmfT0f/m+3+7qXrMlTBdn15BR+aj/h+vqXrdwuvv +XFFDx9lHMp31VD0/OO0QN/GUjgsSvwJzZkjI71Du9uui+tuxbU7rB7U/32g8 +68iriI2uNhWFgyT8XLe6V9NJET+fv5mr1kbCTJZMjL6zIlYvj8+sfk3ClJCK +MsNNEa3XhZ+0biVhdJLhv+mAIi4sJo+5v6T2yxqvGedIRXyp8c/X/c9IaLa5 +Lxh/UxGX+15x+FpNQuZBV+ibVsTOgIDO3BskXO3Z3/dtXhE3eBmca88i4fK2 +4Ljvi4p4h3ut7ZLrJCTpxz+fW6GEM8MDdJd0EmJ/sXcJKSih7on3a74mU/NL +WBrItFTCK8HX+IJjSGAWFeekpSnhBylF02B3ErqJohsW15TwYI+84lFXEsLS +7mRP3VDCygcvSw7tJeF+TMF1hztKKLMzrXLvbmp/3p2TLvhACdP+mXpMbCdh +7dLLyWc/K2G0tdEzBlD/yy08OlRDGTWhYWWVLAkTItbuO2uVsUZ2zn19Cxs6 +Dim2+j9TxsTwiKyg52x43DAPUS+UcbEyL6ywkTr/hRXRbr9TxtNjA/KidWzQ +6RP4+HNIGSfgOaPxPhsOs1/tyxJVQQ5076jLYcPQNieXL94qGFTYEr3iKBu+ +JLrvDOJTRfVrC8WMlWywGjtuNWCkhk+rtpmrM8phxGt58N2oNdg31q5UFl5K +3T8kec7VrsUusln33sFiEHmpmlQ+po6G25TvPzlYCHLxZduNjDSQwZjVXjC6 +DenrGKtF/TRxULy6R2RNATTLmBlOpmjh3eao1yXr8sFErjZZ+502Ml9Ve94X +ywNB3rwQj1gdbN7HnfzUKAcUYmjMPaq6GOMbKL4q8zqsUNlb4fBMF/ftmE6m +SWeAFku67Pg+PRSn3TZ9JpIGQb0iddZc+qj1Wl86QzgVxiYTnazS9dG/cduF +C2eTYbN2Q6aVpgGeOPl24H5iIjycNP0122KADgkpF5V04+Gwhl7Xax9D3OAQ +OS2dcQZYo97te1YYYUqQ+aCPdgxYKEttXZVnhJk/BP87+S4C1kRfOFFrbIyR +Qs6TrxRPgLoP45FKlzG2Mi3Op9UHg8/D/WfuHl2PwQqH9BLsAmE0YOi4Rch6 +LPK5XfYIA+GE/KGD70LXY7ehqcAfvUC4EHHEYS58PTK8t9ulSwZCuUkowTy7 +HscE2p6eqT0CvytOP6jLXI9lA/MBrSOH4VJZ9tSbuvV4yXGIVrwtAB7ltHtP +iDNQLOTXTkNbf/hkS3cLlWLgh3iDU7cM/YHrZ8CeXzIM6vxxy1Cd5g/m9nx2 +SwkGSvfe0/b4cQAauE2MpdUZKLnmmPXljAPwwvPGCrMNDPz8XG5y2fB+6FL2 +L032ZWDuVxfvngw/mLq9OKt9n4G2JT0JDio+8HWnZc75KgaWrNbK+SzqAx1L +Lm7pr2GgRNoetUgeH6hxl8lIe8zAF0VyQZ0fvSFWytBkoYmBbgItBqrXvGF1 +vH9E8wcGJsRZOvCLeYOG31suHx4T3GPdE/tC0Au8VIpWZG41wQknO8X/VD0g +7Kmrv+p2E+znS2L/lPCAZB+R56SDCQZ5yn8z5/OABzdPJj7fZYJ+9juUf31z +BzHVLUILHiYYsmuSm6fQHRpUB8TcQ03wYkbvOk8dd1BfQyNUb5igv8WrWb9E +V5hQTzUix01Q5b8Xd16ucYGOF2ghOmmCMTaMmdbVLvD48OiOkGkT9HUTGv46 +5wxJpNVRo3kTBFIy27rJGdRNuIqreU1xpf317jF/Z/C0CqDXSZjiKaHnTrfY +e6Ddb7NAO9MUe634fU7Y7obK/F+fp+NNsWhLopjKPScw2hgya51giop8/r5d +uU5w7/OIQM5FU1yzSWI0O8kJSIVeY+tLprhpvDDUab8TFKc/vph9zRR53sc5 +HpdzgpzEOMbmUlPk38lJjjvnCOdDhFLS20xxbemRoHP7d4DzJiU0VWCiGcf7 ++kpHe1hoXy5YRzDxTFfJhWFze8jxGe22VmKiyifDtC5de/h6tuq48xomzlvc +ez8gZA9BTdvKTuoxUdqzqrHsxXa4YBehUGnJxKNi3zP4rLZD9e63vw2OMDFm +4dL8ZLodyAacq9J6zETbpzZNGnPWkLToa5hQy8QI3gbP/F5r4Llkyf5Wz8SX +u2wqdJ9aw1DF0js5TUz8zf5kc/GSNVRznUkXaWOil7NIqKWWNThfjj4+M8DE +yZBFfs4BK0ivOWn4cCULx7+3a68Y3wzi/IfYW3ex0OjHpIivsQXkb4wMG9/D +wuYPYa5HCQvQi0zamLqXhasNlOVTV1iA3Xj52w4PFirpJ9+S/rAJzr6b/ul1 +iIWlCtE9OrGbYC4vyjwshoVcmLzv+JuN0GWa2lZQxMLtXjzN/bHmsP9Y/nWr +UhbSeqaOZRw2h5nSez4j5SwMUf9m7eVsDiKKHbO6FSx8a9WyVl/PHGyWy8v9 +95iFW00Ptj/pM4MH7QXebW9ZeNVD5HnCZjOwFqzUDO1g4Zxl0Ui4gRl0bG6a +kepmoUbKO+UouhlMVQ/Hu35iIad+7MrDXwiauTol/xui+hOTvkNjIzzoMgtN +/M7ChqSe4oJsBGuxHaA9zkK3uWhzTETwPXfsdcg0C/WERz4X+iFMPT6bKTnH +QpXvYs/DnRBi5696Vc+zsG/ZxyVuGxFWG9zR2LfAwn5bqShHXYTsgOrpxUUW +Jrhnrt1LQ/g/zpR92g== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07472512481504474}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.07472512481504474}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}], ",", "xx"}], "]"}]], "Output", + CellChangeTimes->{3.993959873906239*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"2f288751-2b8a-4f34-82d5-6056eb34a0a0"] +}, Open ]], Cell[CellGroupData[{ @@ -2922,14 +7640,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[97]:=",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.11523793627423`"], "Output", + CellChangeTimes->{3.991334803166374*^9, 3.993959873935494*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"0fbbe00d-0a13-46b8-b8e7-5323f5ae9a8b"] }, Open ]], Cell[CellGroupData[{ @@ -2943,7 +7659,9 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -2962,8 +7680,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -2985,191 +7702,184 @@ 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[98]:=",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[\\\"5.960609145632297`*^-252\\\", \ +RowBox[{\\\"9295690268007118823449497\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"9\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"5542386262016000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 98, 15, + 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133480336051*^9, 3.993959874028788*^9}, CellLabel-> "During evaluation of \ -In[255]:=",ExpressionUUID->"c1f83af1-416a-6240-b3fd-c1bfcc643459"], +In[98]:=",ExpressionUUID->"22cac1a8-2df0-4657-b8f3-0bf6a189a560"], 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[\\\"6.353010840829234`*^-261\\\", \ +RowBox[{\\\"7817675515393986930521027\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"12\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1146846355456000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 98, 16, + 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133480336051*^9, 3.993959874035071*^9}, CellLabel-> "During evaluation of \ -In[255]:=",ExpressionUUID->"5cfd3c4b-6190-2c4d-8479-b4ccd7090f94"], +In[98]:=",ExpressionUUID->"4174f30e-7ba5-42ea-ba2e-f442f7e1f6e8"], 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[\\\"6.771245313621772`*^-270\\\", \ +RowBox[{\\\"7035907963854588237468924\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"15\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2161719910400000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 98, 17, + 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133480336051*^9, 3.9939598740437717`*^9}, CellLabel-> "During evaluation of \ -In[255]:=",ExpressionUUID->"288fc6c7-a3fe-9b48-9c0d-bba2713f7084"], +In[98]:=",ExpressionUUID->"5caf66e6-f5c9-455c-91cc-cb972d0e0fc6"], 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, 98, 18, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133480336051*^9, 3.993959874052347*^9}, CellLabel-> "During evaluation of \ -In[255]:=",ExpressionUUID->"09478fd5-b212-2347-91e7-b9097bd6d61d"], +In[98]:=",ExpressionUUID->"5229b1d2-78e4-4edb-bf4f-a96d225627de"], 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:eJwV13c8Vf8bAHBRScre4y43soVwudfzILJSpERkJVGoiL4ooxRNRIlISCrj +DpVVKZJKGjYlGSVF/Iym/E5/ndf7dc75nM/rnGcdql+YSwA/Hx8fYxEf37/j +XP/TRvqpIvOORP+HdrrrzNvz5P6z6E6EiTA7zb9HaYDSL/3kutOBWUMKazuq +D5GbbnYJdBeAV/u5p7ePWoL4hGz6zy4ueC7o9iQddYH3dU5hM12PgH/wacjn +RD+woY+9m+p6Axmks9kp8QfgZ5dx5mTXINx+7LVaJioRGqyuF70umIZpXU4F +SJwHpffVH/205mGXz+z1lVM5ILXX+6aglQDuW7o8QkihANLX2NQ6bVmGP+c7 +nMfXFUNPll79lNhKlNcouB/ZegNOFcW95JcXx4z6ZnKuQRnYGwZJSKuIY9FK +h4s/oQyWNbpsUdMWx8rP/c5OjmVwbGhVn4OFOJZG/jo+sLMMYmktHzOCxHEw +8if7emYZhObL/VWtEccvictFH8yWgfNljpbDdgmUHLz6l59dDrIZQynncyUx +zIp+nbGUDXKat4/9KJbE4yWstaLCbFB4dDzOiy2Jyse69D6IsoE0qX5QrUES ++Vr0QqPl2bDKcZ9P7agkjiXiVIIWGwwWzxsNGUjhTJZnzrAzGzZGyAzrP5PC +x9jePXOJDZuER/svtklhXqOHsFseG1wKqnv+vJVCgU+Lc24XsGHrK8+XTd+k +cGWk2KvAW2zw0iqs8ZCWRl+TgKT8OjbsGdZNS/SRxmHDrY1+/Ww44Wpn/mZO +Gg0M0yRWkzmgUNmqwL9IBunJJ1qDVDhQLun6fY2wDFrN9BpdV+NA55sd7DSy +DDoPWAlL63GA7hxBc7aVwVwJnZo65MCjDVeWvrokg67zjRNmvhyYt5ltfcGU +xdGlDwR+5HEgtTj61ryNLPZM9TwpLyDuX8qXrO0sizIxomt8izng+Hi5xZkA +WXz4edv/qso4kG1F4TmelcWdRmXahnUcMEGHi8/fy6LuTc8o924OhDOuej9N +lMN11Ch975VcsM8XmXE4LYccm9F7rmJcoAnGJrdmymGJ4ZHDNpJceNW+ldNW +IoeVBvsukeS5oLNvhUB/qxzuH1Bcf5XOhdHiqOL/Kcjj5Xbb85OmRFxLOY0r +8uSxs1CRr2onFwxiahPy6uTxxNJFmw0DubB8cLUMtUkehS2Z70uDuFBdIQCq +PfL4OKSiKD2UCzIO1al6C/Jo+Lx0TO8Q8fwEuqG1gwK+LjLLrzrJhXXffkWH +DingHiXbt3OlXPjPNkPj4VcFfPjW4cVkORfKr2r3Ss4pYOx7BbVPbC7Iufow +qpcpIk0oR+ZpJRe+Vj3+LqCjiOfchr/51nHhfGJqxKVDipj/nDHy6RkXmvvU +6V8TFLGbf116SQsX/hg2tJmfUkTD7dnlAa1c2PVpVn84VxHNn0wZdbzmgqnj +9imdBkUcsZ1JT+nmwqC0amjjSiVsEJP4sH6EC7JhD5RlZZWw2WtLzcuPXHBs +3vYiiKKELh7Ry11HuXAn+pSWqIESfvkYLu7yhQsn30+OuW9TwrdFN5pVprig +f6M28FuBEl77VLaZ9IcLgfxbZC1LlfDO6L7ekHkuXN4+0ZRxWwmrw6oGqv9y +YakIVdW0mVi/hxq6fhEPeg8cHz42roSCOezLJkt5kMB09lUwUUYLu8LWcFEe +2O7I+5+xpTKyk9QMC8V4IBL/5egWR2WcN61NahXnweWGpOJUH2X8Nbt5Uk6K +B1X2NV+WpihjXcCeX7FyPIjbK3iYfl4ZkxMTu07J88DmrKuIZa4y3rd1uX5B +gQftryf0DnOU0Yt0kpavxIPJbSqR0z3K2CJ280oihQd3o/cJig8r4271Fo39 +VB4cuXwvS2dCGecsiyu203iwYsCtNoifhKQdijfpdB6oBZ7mG9Ag4RnJhJjj +ajyYSO5JmzckIefF63HX1TyovKmqoggk3LhLx5eszgPLiXrrrZtJ2PHuhVOJ +Bg92HJw92RJDQoNK9DmpzYNVFy2VxpJIeEUhcdZEh0fEx7kywVQS1shHnh8i +HP1H/ZVlEQmno33HtfR4kHl0h3R1CwnbcucNU/V54HntVnFnJwmD7yZqkg14 +QHvyw3hmgISNTlz9m4TZy8976M6SsKSAHlVpyIOWtCdXrimTkVRJn71kxIPz +PKk1DWpk1OttOCNkzAOPDt9HA2vI6NHuCgcJj8r9GVa0IeNt+okpNOFBhald +JGMTGVMmbWfyCUd6XhB08yDjkmiW1DxhgXw9jfRQMj4eW8G+weDBs4eHaysO +kdHng7jOL8KpQ88cXySScT8394WNKQ/clsj1j50mY+qO5nPnCJPUAsKWXSTj +d6lbB9sJj9hy+VSvkrFO3yde2owHpcELaVa3yPjZQoDjQti0/FLlkQdkfGh8 +Ivkh4XVdrfMTzWS8d/rS/DfCTnyL13u/IaM3+7eiIpMH29QZqS/7iP3lZg1b +EvZ3Ce2BETKa6HluCyQcGlNIY0+Q0ZNmcCiZ8KGi7j2UH2QsXylsXUz44cfj +Hs18FKwKevOgnrBNDDUufgkFc08d+txF+LloXaHJcgqaXBt/9IXwpqKtzZMi +FCxppG34Q7jTZOpriSQFk9qEUoRYPNj+4pS4rxwFfS9kRkkSHvBVNZJXpuDo +rWp5BcK75uo9XlMpGHU6eJ8y4S8nt8elqFLQNCU39p/3kecKLTQpWP3cFv5d +P8tLbf6pS8FFW/yr/60Xbas5zjGkIHV++Mu/5/G9eywezKDgzgNNXf/2k7Tf +x4hmTsEGk0VHvhJevvS3R68lBSVunHvfTTg1OzMufT0Fiyb3zj8kLK2rV2Tv +SEEtsczu64SzG5418ztTMK1v8YGThMnbAsZrtlBw4kf1syDCRV8XxMM9KLhk +gDtkTVgjIdtI05uC6T0T90iEK6TXbh/yJ97P3xCPGeJ7Gd58GZezm4KTxmtq +mgjXmAcXbQ6hoBTLtD+TcGPglfGGSArGpK6O0iBs94chERtDwX4X6YlvRLy0 +prYbGcZTUKx5qzaXcE+1UHxRCgWvRH1bpk14h1NRkedZCi4+6np9hIjH4UHz +p1LnKTj3QV0ih/CEcIRE0mUKeg7ZOf8h4jk8X8SYdZV4f3klaiWEfxje2D57 +jYIP+q60bvoX7zv6iwIqKCh6KTk9i8gXObatsc0jCpLMG0T5ifzKXTe0/W8T +BX0e+iRnrCXys+dw/J3nFBxRWdGrQlibn/dUtYOCglc6VjCI/LR0VfYUHKWg +67RnK4vI7yejd+MffKVgQekZ7btreOB42OVa1BQFA17tD9Um7FZ8YuLTLwoW +km5fEiPqw94fU/HNK6mo+W22kkPUF9P9u2Q+SlBRWHJV9WLCy8Z6bwnIUfG0 +RbuyqxYPrvU1dJrTqFixeKfIKFGf+u9nat02omJ8+LbKYaK+lRovf/TGjIrL +PVKHFQhHs4+4TSIVXX42xG9Q5YFMQWCipgMVdX0n+EuI+rgxidF91ZuK//M2 +dNMn6inpb1nIg51UnB5XE3Mk6u3XSJrAuyAq3o1+iX5kHiTvFtaRi6DihNlq +0WPKPKh3eHf0bDIV1z/mpuQS9VxfIkE3hkNFvb5SG3WiH/Cdmm3MukPFcPlM +HWGiX7QKBHvcqaXiDHNj8WcRHuyZdUmaekzFbmFvh8sriPjrpvcF9lLRgku/ +2C1I7PdK83FXARo+Y9xLKyf6109NsX7tLTS8fr2F0kf0x7lchQQDDxpGWaqu +cyf654zoKjrDm4Ytb0Vs24e4MDHNCF4XRMPHjLrv9QNEv631n/M4TENm8Bz1 +YC8XnjncFUm+RkOxwJgFuxdcyN6zAwZnabjqwPsvbGIeuPhu9+CnXzS8FNOr +2UrMCxkbw5PGF2ioGrwibpSYJ84aJD//IaSC8vWpAVI3uJD4m+MmSlLB8MIc +H7urXNhzask+po0K5r7bH6uexgXmrdL8CxdUsOTg+JsXxPzSR7l1xTpHBZ9Y +X/e6u5cL0Rdu5M1cUcEdeTMn84K5cDeh+LLLDRUMTLz3JmAX0d+35WeJ1Kmg +Mc+S1e3FBfUlGanHP6hg2aNx9gZHYh7yjomP1KJjw4Rf1TE1LkxJ2PtsfUTH +TgFvu/1dHOjeS3sV/IQ43zOjk9nOgfqmXxDXQsf1KVG377wm5sfoW+SSTjo6 +OB0t/d9zDugNrnj/c4yOkQeOHHSq50Ao56VXruQqnKZ9E7pYwoGxjVu2D+9c +hcJ6uX8ORXFg+LTP1gOCqhhbmRT0UYQDdt+i7EaM1PCOQ8BImzEbvvovC6+M +W42XKvcEvggtJ/5fZPlPPFLH07L3c+9sKQWJF6pn2d808DOHt8Hc6SYoJVds +MjLSwpYGowPHJUogS5MhJhmojRM6flznv9fgmYLF2uk0HbxzdchhcL4QTJUe +pep26qJk5sHDL4augohAQYRvoh6aHW6cl1qcD6QEMtNddQ02CU7JKxlcBqFV +nndcnqzBE+Gp+dXcLNBhyVdEeeljR+cbi7jyTDjQL9Fgz2eAgl02l6Q56fBt ++vQWuywD/EErPlSikQrrdZuy7bQNUWxaeHv++1Nwf9rs9/dWQ4zNsNMcST0B +oVr6va8D1qKfjgcnc8kxYE3sbHcXMsI5jfvqQjfjwZout2FlgRFGvT/DWPUx +BlbHnzz0yNgYP/WfuNXoEAUaAYwHq3qNccneUu/XguEQcH/3scr9Jlgy2mhW +7RwGEyFjUdYRJri2oyxmyCgMDinv3dMZaYLmrj1MqlIYnIwNc/kRY4J/I93k +uj6GAts0ksI8boL25pLLNQ+Hwp87R+sask0w3LokLbgsBNIr8mbeNJjgyd+x +R/4q7oUH+e07p6QZ6PlB+quhbhAMOFK9I+UYuLEi47erfBDw/Qxx/63AwOi/ +yR5JAkFg6SzotITCwLxi8Q8y3buhaZGpsbwGAwMF/y77k7AbWvyuCFmYM/Ak +Mzy1qTsQeunB5am7GCjcLROlmL4LZkoWvuveZeDYwQDNpjU74eNWm/yUagYG +r2gSHqXshO7FZ2yHahnYnZRElxHbCbU+Cpcu1DMwN2F88MKEPyTKrTWdf8rA +peZxreql/iCWHBz77C0Dz8knW5xT9wetwA6+AH5TrKuSJq3W9gP/VbeEsjeY +YrVbCp/MVh+IfrwjWHWTKSZRj7R9sPGB1ACJ51wXUzzUMS1YY+wDddf+O/3c +zRTb9mZHnJP3ASlVW9F5X1M032I7mV3rDU2qI1I+kabY1BCoRHq9AzRWkymq +V0wxOuPcg4GVXjClcd6IO2mKd2+g4Pgzd+huQWvJaVMU+9Av/5bnDvWhE5sj +Zk0xP8fV591ldzjLtdtv9MsUc/J03WXC3EHDlK+0RsAMSx045T5S7uBnF0Jt +kDHDwn0COY5+26A9cP2KdqYZtvkO0vWE3aCq6PeH2WQz3GdduFB61hWMrCK+ +258yQ1vV6ye0Y13h9oevK/LPmGGBT29vXZArcEn9xvbpZujJFKgVtHaF0qz6 +M3k5ZnjUvN9xw5/NkH86ibG+3AxLzLgK50I2Q0qEaFpWmxlGRvkdvuHhAh7r +VNCMxMTCqQ9kDa9NMN++TKSBwkTNs09jnjlugvyAiT57FSZKpKbF/cfcBB+P +V0d5rGbibW1RFwGlTXDg6caK//SZ6Fuc2JlydyOcdIolVdkwMafT9tzXWieo +2dbxxzCMiQldvMRTPY6gGHKiWqeeiaOJd8Oy/e3g7MKutaceMVF2ir9qnYMd +8KfbcD41MlHVpXRBwMAOxu4suZH/lImdHy86PeS3gxq+Y1kSbUws17YzXlto +Cx4Z8VFzI0zsNzl3e+bTesiq/W/tfWEWLtpHst8dbwMrnNw5CiIs1Kt3G8wI +toH4ARPtKDEW+k2KXWx3tYHdS37Q9aRZuNXpl+IZdRsw3hgpVUBi4VWxrQsD +bdbQOXhgOmkNCxePrC4W1LIG6eV7ORvcWLh7xfyyic9WUGR1OHrSnYWiKaVz +yu1WoH/4rNV5TxZqZgon+d+3AqdJdke3LwuTdikxdM9bwfHO2Z/+e4n9bDWb +a2JZwY+COMvoBBa679pc+umCJfSanW8rvsVCmwurR8K2WcDug0WX7cpZqKEq +VqJnbQFz5bcDvrJZ6BhFal2sbwEStO7va+6wsFLDZuGjsAU4LFNWulfPQpfk +VPm0eoS69uKdbR0sHJA/ExGijWAvUqUd2U2s97bziKciQvf6p3NyfSxUnlUb +8BJCmKn5krxjgIX2jPkWnecA2lf1yj6PsVB80duDT1gAdb0WkafHWRhSpbz3 +iQKAvdRm0J1kYZ+wy8ov381h14mDryNmWbh87vGry1xzmKk/ni37g4UmC+48 +jVRzSPx10b/mFwstI1Me9oWYg5jhDS2veRa2kKr7KhzMIS+kZnZhgYU88YDB +YnVz+D/cGbTT "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -3183,150 +7893,134 @@ 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:eJwV13c8Vf8bAHBRScre4y43soVwudfzILJSpERkJVGoiL4ooxRNRIlISCrj +DpVVKZJKGjYlGSVF/Iym/E5/ndf7dc75nM/rnGcdql+YSwA/Hx8fYxEf37/j +XP/TRvqpIvOORP+HdrrrzNvz5P6z6E6EiTA7zb9HaYDSL/3kutOBWUMKazuq +D5GbbnYJdBeAV/u5p7ePWoL4hGz6zy4ueC7o9iQddYH3dU5hM12PgH/wacjn +RD+woY+9m+p6Axmks9kp8QfgZ5dx5mTXINx+7LVaJioRGqyuF70umIZpXU4F +SJwHpffVH/205mGXz+z1lVM5ILXX+6aglQDuW7o8QkihANLX2NQ6bVmGP+c7 +nMfXFUNPll79lNhKlNcouB/ZegNOFcW95JcXx4z6ZnKuQRnYGwZJSKuIY9FK +h4s/oQyWNbpsUdMWx8rP/c5OjmVwbGhVn4OFOJZG/jo+sLMMYmktHzOCxHEw +8if7emYZhObL/VWtEccvictFH8yWgfNljpbDdgmUHLz6l59dDrIZQynncyUx +zIp+nbGUDXKat4/9KJbE4yWstaLCbFB4dDzOiy2Jyse69D6IsoE0qX5QrUES ++Vr0QqPl2bDKcZ9P7agkjiXiVIIWGwwWzxsNGUjhTJZnzrAzGzZGyAzrP5PC +x9jePXOJDZuER/svtklhXqOHsFseG1wKqnv+vJVCgU+Lc24XsGHrK8+XTd+k +cGWk2KvAW2zw0iqs8ZCWRl+TgKT8OjbsGdZNS/SRxmHDrY1+/Ww44Wpn/mZO +Gg0M0yRWkzmgUNmqwL9IBunJJ1qDVDhQLun6fY2wDFrN9BpdV+NA55sd7DSy +DDoPWAlL63GA7hxBc7aVwVwJnZo65MCjDVeWvrokg67zjRNmvhyYt5ltfcGU +xdGlDwR+5HEgtTj61ryNLPZM9TwpLyDuX8qXrO0sizIxomt8izng+Hi5xZkA +WXz4edv/qso4kG1F4TmelcWdRmXahnUcMEGHi8/fy6LuTc8o924OhDOuej9N +lMN11Ch975VcsM8XmXE4LYccm9F7rmJcoAnGJrdmymGJ4ZHDNpJceNW+ldNW +IoeVBvsukeS5oLNvhUB/qxzuH1Bcf5XOhdHiqOL/Kcjj5Xbb85OmRFxLOY0r +8uSxs1CRr2onFwxiahPy6uTxxNJFmw0DubB8cLUMtUkehS2Z70uDuFBdIQCq +PfL4OKSiKD2UCzIO1al6C/Jo+Lx0TO8Q8fwEuqG1gwK+LjLLrzrJhXXffkWH +DingHiXbt3OlXPjPNkPj4VcFfPjW4cVkORfKr2r3Ss4pYOx7BbVPbC7Iufow +qpcpIk0oR+ZpJRe+Vj3+LqCjiOfchr/51nHhfGJqxKVDipj/nDHy6RkXmvvU +6V8TFLGbf116SQsX/hg2tJmfUkTD7dnlAa1c2PVpVn84VxHNn0wZdbzmgqnj +9imdBkUcsZ1JT+nmwqC0amjjSiVsEJP4sH6EC7JhD5RlZZWw2WtLzcuPXHBs +3vYiiKKELh7Ry11HuXAn+pSWqIESfvkYLu7yhQsn30+OuW9TwrdFN5pVprig +f6M28FuBEl77VLaZ9IcLgfxbZC1LlfDO6L7ekHkuXN4+0ZRxWwmrw6oGqv9y +YakIVdW0mVi/hxq6fhEPeg8cHz42roSCOezLJkt5kMB09lUwUUYLu8LWcFEe +2O7I+5+xpTKyk9QMC8V4IBL/5egWR2WcN61NahXnweWGpOJUH2X8Nbt5Uk6K +B1X2NV+WpihjXcCeX7FyPIjbK3iYfl4ZkxMTu07J88DmrKuIZa4y3rd1uX5B +gQftryf0DnOU0Yt0kpavxIPJbSqR0z3K2CJ280oihQd3o/cJig8r4271Fo39 +VB4cuXwvS2dCGecsiyu203iwYsCtNoifhKQdijfpdB6oBZ7mG9Ag4RnJhJjj +ajyYSO5JmzckIefF63HX1TyovKmqoggk3LhLx5eszgPLiXrrrZtJ2PHuhVOJ +Bg92HJw92RJDQoNK9DmpzYNVFy2VxpJIeEUhcdZEh0fEx7kywVQS1shHnh8i +HP1H/ZVlEQmno33HtfR4kHl0h3R1CwnbcucNU/V54HntVnFnJwmD7yZqkg14 +QHvyw3hmgISNTlz9m4TZy8976M6SsKSAHlVpyIOWtCdXrimTkVRJn71kxIPz +PKk1DWpk1OttOCNkzAOPDt9HA2vI6NHuCgcJj8r9GVa0IeNt+okpNOFBhald +JGMTGVMmbWfyCUd6XhB08yDjkmiW1DxhgXw9jfRQMj4eW8G+weDBs4eHaysO +kdHng7jOL8KpQ88cXySScT8394WNKQ/clsj1j50mY+qO5nPnCJPUAsKWXSTj +d6lbB9sJj9hy+VSvkrFO3yde2owHpcELaVa3yPjZQoDjQti0/FLlkQdkfGh8 +Ivkh4XVdrfMTzWS8d/rS/DfCTnyL13u/IaM3+7eiIpMH29QZqS/7iP3lZg1b +EvZ3Ce2BETKa6HluCyQcGlNIY0+Q0ZNmcCiZ8KGi7j2UH2QsXylsXUz44cfj +Hs18FKwKevOgnrBNDDUufgkFc08d+txF+LloXaHJcgqaXBt/9IXwpqKtzZMi +FCxppG34Q7jTZOpriSQFk9qEUoRYPNj+4pS4rxwFfS9kRkkSHvBVNZJXpuDo +rWp5BcK75uo9XlMpGHU6eJ8y4S8nt8elqFLQNCU39p/3kecKLTQpWP3cFv5d +P8tLbf6pS8FFW/yr/60Xbas5zjGkIHV++Mu/5/G9eywezKDgzgNNXf/2k7Tf +x4hmTsEGk0VHvhJevvS3R68lBSVunHvfTTg1OzMufT0Fiyb3zj8kLK2rV2Tv +SEEtsczu64SzG5418ztTMK1v8YGThMnbAsZrtlBw4kf1syDCRV8XxMM9KLhk +gDtkTVgjIdtI05uC6T0T90iEK6TXbh/yJ97P3xCPGeJ7Gd58GZezm4KTxmtq +mgjXmAcXbQ6hoBTLtD+TcGPglfGGSArGpK6O0iBs94chERtDwX4X6YlvRLy0 +prYbGcZTUKx5qzaXcE+1UHxRCgWvRH1bpk14h1NRkedZCi4+6np9hIjH4UHz +p1LnKTj3QV0ih/CEcIRE0mUKeg7ZOf8h4jk8X8SYdZV4f3klaiWEfxje2D57 +jYIP+q60bvoX7zv6iwIqKCh6KTk9i8gXObatsc0jCpLMG0T5ifzKXTe0/W8T +BX0e+iRnrCXys+dw/J3nFBxRWdGrQlibn/dUtYOCglc6VjCI/LR0VfYUHKWg +67RnK4vI7yejd+MffKVgQekZ7btreOB42OVa1BQFA17tD9Um7FZ8YuLTLwoW +km5fEiPqw94fU/HNK6mo+W22kkPUF9P9u2Q+SlBRWHJV9WLCy8Z6bwnIUfG0 +RbuyqxYPrvU1dJrTqFixeKfIKFGf+u9nat02omJ8+LbKYaK+lRovf/TGjIrL +PVKHFQhHs4+4TSIVXX42xG9Q5YFMQWCipgMVdX0n+EuI+rgxidF91ZuK//M2 +dNMn6inpb1nIg51UnB5XE3Mk6u3XSJrAuyAq3o1+iX5kHiTvFtaRi6DihNlq +0WPKPKh3eHf0bDIV1z/mpuQS9VxfIkE3hkNFvb5SG3WiH/Cdmm3MukPFcPlM +HWGiX7QKBHvcqaXiDHNj8WcRHuyZdUmaekzFbmFvh8sriPjrpvcF9lLRgku/ +2C1I7PdK83FXARo+Y9xLKyf6109NsX7tLTS8fr2F0kf0x7lchQQDDxpGWaqu +cyf654zoKjrDm4Ytb0Vs24e4MDHNCF4XRMPHjLrv9QNEv631n/M4TENm8Bz1 +YC8XnjncFUm+RkOxwJgFuxdcyN6zAwZnabjqwPsvbGIeuPhu9+CnXzS8FNOr +2UrMCxkbw5PGF2ioGrwibpSYJ84aJD//IaSC8vWpAVI3uJD4m+MmSlLB8MIc +H7urXNhzask+po0K5r7bH6uexgXmrdL8CxdUsOTg+JsXxPzSR7l1xTpHBZ9Y +X/e6u5cL0Rdu5M1cUcEdeTMn84K5cDeh+LLLDRUMTLz3JmAX0d+35WeJ1Kmg +Mc+S1e3FBfUlGanHP6hg2aNx9gZHYh7yjomP1KJjw4Rf1TE1LkxJ2PtsfUTH +TgFvu/1dHOjeS3sV/IQ43zOjk9nOgfqmXxDXQsf1KVG377wm5sfoW+SSTjo6 +OB0t/d9zDugNrnj/c4yOkQeOHHSq50Ao56VXruQqnKZ9E7pYwoGxjVu2D+9c +hcJ6uX8ORXFg+LTP1gOCqhhbmRT0UYQDdt+i7EaM1PCOQ8BImzEbvvovC6+M +W42XKvcEvggtJ/5fZPlPPFLH07L3c+9sKQWJF6pn2d808DOHt8Hc6SYoJVds +MjLSwpYGowPHJUogS5MhJhmojRM6flznv9fgmYLF2uk0HbxzdchhcL4QTJUe +pep26qJk5sHDL4augohAQYRvoh6aHW6cl1qcD6QEMtNddQ02CU7JKxlcBqFV +nndcnqzBE+Gp+dXcLNBhyVdEeeljR+cbi7jyTDjQL9Fgz2eAgl02l6Q56fBt ++vQWuywD/EErPlSikQrrdZuy7bQNUWxaeHv++1Nwf9rs9/dWQ4zNsNMcST0B +oVr6va8D1qKfjgcnc8kxYE3sbHcXMsI5jfvqQjfjwZout2FlgRFGvT/DWPUx +BlbHnzz0yNgYP/WfuNXoEAUaAYwHq3qNccneUu/XguEQcH/3scr9Jlgy2mhW +7RwGEyFjUdYRJri2oyxmyCgMDinv3dMZaYLmrj1MqlIYnIwNc/kRY4J/I93k +uj6GAts0ksI8boL25pLLNQ+Hwp87R+sask0w3LokLbgsBNIr8mbeNJjgyd+x +R/4q7oUH+e07p6QZ6PlB+quhbhAMOFK9I+UYuLEi47erfBDw/Qxx/63AwOi/ +yR5JAkFg6SzotITCwLxi8Q8y3buhaZGpsbwGAwMF/y77k7AbWvyuCFmYM/Ak +Mzy1qTsQeunB5am7GCjcLROlmL4LZkoWvuveZeDYwQDNpjU74eNWm/yUagYG +r2gSHqXshO7FZ2yHahnYnZRElxHbCbU+Cpcu1DMwN2F88MKEPyTKrTWdf8rA +peZxreql/iCWHBz77C0Dz8knW5xT9wetwA6+AH5TrKuSJq3W9gP/VbeEsjeY +YrVbCp/MVh+IfrwjWHWTKSZRj7R9sPGB1ACJ51wXUzzUMS1YY+wDddf+O/3c +zRTb9mZHnJP3ASlVW9F5X1M032I7mV3rDU2qI1I+kabY1BCoRHq9AzRWkymq +V0wxOuPcg4GVXjClcd6IO2mKd2+g4Pgzd+huQWvJaVMU+9Av/5bnDvWhE5sj +Zk0xP8fV591ldzjLtdtv9MsUc/J03WXC3EHDlK+0RsAMSx045T5S7uBnF0Jt +kDHDwn0COY5+26A9cP2KdqYZtvkO0vWE3aCq6PeH2WQz3GdduFB61hWMrCK+ +258yQ1vV6ye0Y13h9oevK/LPmGGBT29vXZArcEn9xvbpZujJFKgVtHaF0qz6 +M3k5ZnjUvN9xw5/NkH86ibG+3AxLzLgK50I2Q0qEaFpWmxlGRvkdvuHhAh7r +VNCMxMTCqQ9kDa9NMN++TKSBwkTNs09jnjlugvyAiT57FSZKpKbF/cfcBB+P +V0d5rGbibW1RFwGlTXDg6caK//SZ6Fuc2JlydyOcdIolVdkwMafT9tzXWieo +2dbxxzCMiQldvMRTPY6gGHKiWqeeiaOJd8Oy/e3g7MKutaceMVF2ir9qnYMd +8KfbcD41MlHVpXRBwMAOxu4suZH/lImdHy86PeS3gxq+Y1kSbUws17YzXlto +Cx4Z8VFzI0zsNzl3e+bTesiq/W/tfWEWLtpHst8dbwMrnNw5CiIs1Kt3G8wI +toH4ARPtKDEW+k2KXWx3tYHdS37Q9aRZuNXpl+IZdRsw3hgpVUBi4VWxrQsD +bdbQOXhgOmkNCxePrC4W1LIG6eV7ORvcWLh7xfyyic9WUGR1OHrSnYWiKaVz +yu1WoH/4rNV5TxZqZgon+d+3AqdJdke3LwuTdikxdM9bwfHO2Z/+e4n9bDWb +a2JZwY+COMvoBBa679pc+umCJfSanW8rvsVCmwurR8K2WcDug0WX7cpZqKEq +VqJnbQFz5bcDvrJZ6BhFal2sbwEStO7va+6wsFLDZuGjsAU4LFNWulfPQpfk +VPm0eoS69uKdbR0sHJA/ExGijWAvUqUd2U2s97bziKciQvf6p3NyfSxUnlUb +8BJCmKn5krxjgIX2jPkWnecA2lf1yj6PsVB80duDT1gAdb0WkafHWRhSpbz3 +iQKAvdRm0J1kYZ+wy8ov381h14mDryNmWbh87vGry1xzmKk/ni37g4UmC+48 +jVRzSPx10b/mFwstI1Me9oWYg5jhDS2veRa2kKr7KhzMIS+kZnZhgYU88YDB +YnVz+D/cGbTT "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "PlotRange" -> {{0, 30}, {0., 0.075151293681789}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +8032,19 @@ eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "PlotRange" -> {{0, 30}, {0., 0.075151293681789}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +8058,133 @@ 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:eJwV13c8Vf8bAHBRScre4y43soVwudfzILJSpERkJVGoiL4ooxRNRIlISCrj +DpVVKZJKGjYlGSVF/Iym/E5/ndf7dc75nM/rnGcdql+YSwA/Hx8fYxEf37/j +XP/TRvqpIvOORP+HdrrrzNvz5P6z6E6EiTA7zb9HaYDSL/3kutOBWUMKazuq +D5GbbnYJdBeAV/u5p7ePWoL4hGz6zy4ueC7o9iQddYH3dU5hM12PgH/wacjn +RD+woY+9m+p6Axmks9kp8QfgZ5dx5mTXINx+7LVaJioRGqyuF70umIZpXU4F +SJwHpffVH/205mGXz+z1lVM5ILXX+6aglQDuW7o8QkihANLX2NQ6bVmGP+c7 +nMfXFUNPll79lNhKlNcouB/ZegNOFcW95JcXx4z6ZnKuQRnYGwZJSKuIY9FK +h4s/oQyWNbpsUdMWx8rP/c5OjmVwbGhVn4OFOJZG/jo+sLMMYmktHzOCxHEw +8if7emYZhObL/VWtEccvictFH8yWgfNljpbDdgmUHLz6l59dDrIZQynncyUx +zIp+nbGUDXKat4/9KJbE4yWstaLCbFB4dDzOiy2Jyse69D6IsoE0qX5QrUES ++Vr0QqPl2bDKcZ9P7agkjiXiVIIWGwwWzxsNGUjhTJZnzrAzGzZGyAzrP5PC +x9jePXOJDZuER/svtklhXqOHsFseG1wKqnv+vJVCgU+Lc24XsGHrK8+XTd+k +cGWk2KvAW2zw0iqs8ZCWRl+TgKT8OjbsGdZNS/SRxmHDrY1+/Ww44Wpn/mZO +Gg0M0yRWkzmgUNmqwL9IBunJJ1qDVDhQLun6fY2wDFrN9BpdV+NA55sd7DSy +DDoPWAlL63GA7hxBc7aVwVwJnZo65MCjDVeWvrokg67zjRNmvhyYt5ltfcGU +xdGlDwR+5HEgtTj61ryNLPZM9TwpLyDuX8qXrO0sizIxomt8izng+Hi5xZkA +WXz4edv/qso4kG1F4TmelcWdRmXahnUcMEGHi8/fy6LuTc8o924OhDOuej9N +lMN11Ch975VcsM8XmXE4LYccm9F7rmJcoAnGJrdmymGJ4ZHDNpJceNW+ldNW +IoeVBvsukeS5oLNvhUB/qxzuH1Bcf5XOhdHiqOL/Kcjj5Xbb85OmRFxLOY0r +8uSxs1CRr2onFwxiahPy6uTxxNJFmw0DubB8cLUMtUkehS2Z70uDuFBdIQCq +PfL4OKSiKD2UCzIO1al6C/Jo+Lx0TO8Q8fwEuqG1gwK+LjLLrzrJhXXffkWH +DingHiXbt3OlXPjPNkPj4VcFfPjW4cVkORfKr2r3Ss4pYOx7BbVPbC7Iufow +qpcpIk0oR+ZpJRe+Vj3+LqCjiOfchr/51nHhfGJqxKVDipj/nDHy6RkXmvvU +6V8TFLGbf116SQsX/hg2tJmfUkTD7dnlAa1c2PVpVn84VxHNn0wZdbzmgqnj +9imdBkUcsZ1JT+nmwqC0amjjSiVsEJP4sH6EC7JhD5RlZZWw2WtLzcuPXHBs +3vYiiKKELh7Ry11HuXAn+pSWqIESfvkYLu7yhQsn30+OuW9TwrdFN5pVprig +f6M28FuBEl77VLaZ9IcLgfxbZC1LlfDO6L7ekHkuXN4+0ZRxWwmrw6oGqv9y +YakIVdW0mVi/hxq6fhEPeg8cHz42roSCOezLJkt5kMB09lUwUUYLu8LWcFEe +2O7I+5+xpTKyk9QMC8V4IBL/5egWR2WcN61NahXnweWGpOJUH2X8Nbt5Uk6K +B1X2NV+WpihjXcCeX7FyPIjbK3iYfl4ZkxMTu07J88DmrKuIZa4y3rd1uX5B +gQftryf0DnOU0Yt0kpavxIPJbSqR0z3K2CJ280oihQd3o/cJig8r4271Fo39 +VB4cuXwvS2dCGecsiyu203iwYsCtNoifhKQdijfpdB6oBZ7mG9Ag4RnJhJjj +ajyYSO5JmzckIefF63HX1TyovKmqoggk3LhLx5eszgPLiXrrrZtJ2PHuhVOJ +Bg92HJw92RJDQoNK9DmpzYNVFy2VxpJIeEUhcdZEh0fEx7kywVQS1shHnh8i +HP1H/ZVlEQmno33HtfR4kHl0h3R1CwnbcucNU/V54HntVnFnJwmD7yZqkg14 +QHvyw3hmgISNTlz9m4TZy8976M6SsKSAHlVpyIOWtCdXrimTkVRJn71kxIPz +PKk1DWpk1OttOCNkzAOPDt9HA2vI6NHuCgcJj8r9GVa0IeNt+okpNOFBhald +JGMTGVMmbWfyCUd6XhB08yDjkmiW1DxhgXw9jfRQMj4eW8G+weDBs4eHaysO +kdHng7jOL8KpQ88cXySScT8394WNKQ/clsj1j50mY+qO5nPnCJPUAsKWXSTj +d6lbB9sJj9hy+VSvkrFO3yde2owHpcELaVa3yPjZQoDjQti0/FLlkQdkfGh8 +Ivkh4XVdrfMTzWS8d/rS/DfCTnyL13u/IaM3+7eiIpMH29QZqS/7iP3lZg1b +EvZ3Ce2BETKa6HluCyQcGlNIY0+Q0ZNmcCiZ8KGi7j2UH2QsXylsXUz44cfj +Hs18FKwKevOgnrBNDDUufgkFc08d+txF+LloXaHJcgqaXBt/9IXwpqKtzZMi +FCxppG34Q7jTZOpriSQFk9qEUoRYPNj+4pS4rxwFfS9kRkkSHvBVNZJXpuDo +rWp5BcK75uo9XlMpGHU6eJ8y4S8nt8elqFLQNCU39p/3kecKLTQpWP3cFv5d +P8tLbf6pS8FFW/yr/60Xbas5zjGkIHV++Mu/5/G9eywezKDgzgNNXf/2k7Tf +x4hmTsEGk0VHvhJevvS3R68lBSVunHvfTTg1OzMufT0Fiyb3zj8kLK2rV2Tv +SEEtsczu64SzG5418ztTMK1v8YGThMnbAsZrtlBw4kf1syDCRV8XxMM9KLhk +gDtkTVgjIdtI05uC6T0T90iEK6TXbh/yJ97P3xCPGeJ7Gd58GZezm4KTxmtq +mgjXmAcXbQ6hoBTLtD+TcGPglfGGSArGpK6O0iBs94chERtDwX4X6YlvRLy0 +prYbGcZTUKx5qzaXcE+1UHxRCgWvRH1bpk14h1NRkedZCi4+6np9hIjH4UHz +p1LnKTj3QV0ih/CEcIRE0mUKeg7ZOf8h4jk8X8SYdZV4f3klaiWEfxje2D57 +jYIP+q60bvoX7zv6iwIqKCh6KTk9i8gXObatsc0jCpLMG0T5ifzKXTe0/W8T +BX0e+iRnrCXys+dw/J3nFBxRWdGrQlibn/dUtYOCglc6VjCI/LR0VfYUHKWg +67RnK4vI7yejd+MffKVgQekZ7btreOB42OVa1BQFA17tD9Um7FZ8YuLTLwoW +km5fEiPqw94fU/HNK6mo+W22kkPUF9P9u2Q+SlBRWHJV9WLCy8Z6bwnIUfG0 +RbuyqxYPrvU1dJrTqFixeKfIKFGf+u9nat02omJ8+LbKYaK+lRovf/TGjIrL +PVKHFQhHs4+4TSIVXX42xG9Q5YFMQWCipgMVdX0n+EuI+rgxidF91ZuK//M2 +dNMn6inpb1nIg51UnB5XE3Mk6u3XSJrAuyAq3o1+iX5kHiTvFtaRi6DihNlq +0WPKPKh3eHf0bDIV1z/mpuQS9VxfIkE3hkNFvb5SG3WiH/Cdmm3MukPFcPlM +HWGiX7QKBHvcqaXiDHNj8WcRHuyZdUmaekzFbmFvh8sriPjrpvcF9lLRgku/ +2C1I7PdK83FXARo+Y9xLKyf6109NsX7tLTS8fr2F0kf0x7lchQQDDxpGWaqu +cyf654zoKjrDm4Ytb0Vs24e4MDHNCF4XRMPHjLrv9QNEv631n/M4TENm8Bz1 +YC8XnjncFUm+RkOxwJgFuxdcyN6zAwZnabjqwPsvbGIeuPhu9+CnXzS8FNOr +2UrMCxkbw5PGF2ioGrwibpSYJ84aJD//IaSC8vWpAVI3uJD4m+MmSlLB8MIc +H7urXNhzask+po0K5r7bH6uexgXmrdL8CxdUsOTg+JsXxPzSR7l1xTpHBZ9Y +X/e6u5cL0Rdu5M1cUcEdeTMn84K5cDeh+LLLDRUMTLz3JmAX0d+35WeJ1Kmg +Mc+S1e3FBfUlGanHP6hg2aNx9gZHYh7yjomP1KJjw4Rf1TE1LkxJ2PtsfUTH +TgFvu/1dHOjeS3sV/IQ43zOjk9nOgfqmXxDXQsf1KVG377wm5sfoW+SSTjo6 +OB0t/d9zDugNrnj/c4yOkQeOHHSq50Ao56VXruQqnKZ9E7pYwoGxjVu2D+9c +hcJ6uX8ORXFg+LTP1gOCqhhbmRT0UYQDdt+i7EaM1PCOQ8BImzEbvvovC6+M +W42XKvcEvggtJ/5fZPlPPFLH07L3c+9sKQWJF6pn2d808DOHt8Hc6SYoJVds +MjLSwpYGowPHJUogS5MhJhmojRM6flznv9fgmYLF2uk0HbxzdchhcL4QTJUe +pep26qJk5sHDL4augohAQYRvoh6aHW6cl1qcD6QEMtNddQ02CU7JKxlcBqFV +nndcnqzBE+Gp+dXcLNBhyVdEeeljR+cbi7jyTDjQL9Fgz2eAgl02l6Q56fBt ++vQWuywD/EErPlSikQrrdZuy7bQNUWxaeHv++1Nwf9rs9/dWQ4zNsNMcST0B +oVr6va8D1qKfjgcnc8kxYE3sbHcXMsI5jfvqQjfjwZout2FlgRFGvT/DWPUx +BlbHnzz0yNgYP/WfuNXoEAUaAYwHq3qNccneUu/XguEQcH/3scr9Jlgy2mhW +7RwGEyFjUdYRJri2oyxmyCgMDinv3dMZaYLmrj1MqlIYnIwNc/kRY4J/I93k +uj6GAts0ksI8boL25pLLNQ+Hwp87R+sask0w3LokLbgsBNIr8mbeNJjgyd+x +R/4q7oUH+e07p6QZ6PlB+quhbhAMOFK9I+UYuLEi47erfBDw/Qxx/63AwOi/ +yR5JAkFg6SzotITCwLxi8Q8y3buhaZGpsbwGAwMF/y77k7AbWvyuCFmYM/Ak +Mzy1qTsQeunB5am7GCjcLROlmL4LZkoWvuveZeDYwQDNpjU74eNWm/yUagYG +r2gSHqXshO7FZ2yHahnYnZRElxHbCbU+Cpcu1DMwN2F88MKEPyTKrTWdf8rA +peZxreql/iCWHBz77C0Dz8knW5xT9wetwA6+AH5TrKuSJq3W9gP/VbeEsjeY +YrVbCp/MVh+IfrwjWHWTKSZRj7R9sPGB1ACJ51wXUzzUMS1YY+wDddf+O/3c +zRTb9mZHnJP3ASlVW9F5X1M032I7mV3rDU2qI1I+kabY1BCoRHq9AzRWkymq +V0wxOuPcg4GVXjClcd6IO2mKd2+g4Pgzd+huQWvJaVMU+9Av/5bnDvWhE5sj +Zk0xP8fV591ldzjLtdtv9MsUc/J03WXC3EHDlK+0RsAMSx045T5S7uBnF0Jt +kDHDwn0COY5+26A9cP2KdqYZtvkO0vWE3aCq6PeH2WQz3GdduFB61hWMrCK+ +258yQ1vV6ye0Y13h9oevK/LPmGGBT29vXZArcEn9xvbpZujJFKgVtHaF0qz6 +M3k5ZnjUvN9xw5/NkH86ibG+3AxLzLgK50I2Q0qEaFpWmxlGRvkdvuHhAh7r +VNCMxMTCqQ9kDa9NMN++TKSBwkTNs09jnjlugvyAiT57FSZKpKbF/cfcBB+P +V0d5rGbibW1RFwGlTXDg6caK//SZ6Fuc2JlydyOcdIolVdkwMafT9tzXWieo +2dbxxzCMiQldvMRTPY6gGHKiWqeeiaOJd8Oy/e3g7MKutaceMVF2ir9qnYMd +8KfbcD41MlHVpXRBwMAOxu4suZH/lImdHy86PeS3gxq+Y1kSbUws17YzXlto +Cx4Z8VFzI0zsNzl3e+bTesiq/W/tfWEWLtpHst8dbwMrnNw5CiIs1Kt3G8wI +toH4ARPtKDEW+k2KXWx3tYHdS37Q9aRZuNXpl+IZdRsw3hgpVUBi4VWxrQsD +bdbQOXhgOmkNCxePrC4W1LIG6eV7ORvcWLh7xfyyic9WUGR1OHrSnYWiKaVz +yu1WoH/4rNV5TxZqZgon+d+3AqdJdke3LwuTdikxdM9bwfHO2Z/+e4n9bDWb +a2JZwY+COMvoBBa679pc+umCJfSanW8rvsVCmwurR8K2WcDug0WX7cpZqKEq +VqJnbQFz5bcDvrJZ6BhFal2sbwEStO7va+6wsFLDZuGjsAU4LFNWulfPQpfk +VPm0eoS69uKdbR0sHJA/ExGijWAvUqUd2U2s97bziKciQvf6p3NyfSxUnlUb +8BJCmKn5krxjgIX2jPkWnecA2lf1yj6PsVB80duDT1gAdb0WkafHWRhSpbz3 +iQKAvdRm0J1kYZ+wy8ov381h14mDryNmWbh87vGry1xzmKk/ni37g4UmC+48 +jVRzSPx10b/mFwstI1Me9oWYg5jhDS2veRa2kKr7KhzMIS+kZnZhgYU88YDB +YnVz+D/cGbTT "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "PlotRange" -> {{0, 30}, {0., 0.075151293681789}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +8195,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 +8223,8 @@ eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.08145702771151381}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.075151293681789}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -3552,9 +8232,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.993960509613538*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"1184e9fe-806e-422d-bab9-d42f35cf2b7f"] }, Open ]], Cell[CellGroupData[{ @@ -3566,7 +8245,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[{ @@ -3584,8 +8265,8 @@ Cell[BoxData[ SuperscriptBox[ RowBox[{"(", FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -3606,67 +8287,72 @@ Cell[BoxData[ FractionBox["1", "Cb"], ")"}]}]], RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", - CellLabel-> - "In[256]:=",ExpressionUUID->"86381d88-1537-a242-9cff-0b432b61d63d"], + CellLabel->"In[99]:=",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[\\\"5.311979475431623`*^-151\\\", \ +RowBox[{\\\"192330073695578600598678\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"112\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 99, 19, + 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335257395241*^9, 3.9939605096867647`*^9}, CellLabel-> "During evaluation of \ -In[256]:=",ExpressionUUID->"0a4bed5c-621d-a546-88e9-ce7d779c106a"], +In[99]:=",ExpressionUUID->"69ccd258-5228-4e7c-8fb7-a2ed51ad379e"], 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.5073941850057223`*^-153\\\", \ +RowBox[{\\\"692388265304082962155241\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"115\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 99, 20, + 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335257395241*^9, 3.993960509693033*^9}, CellLabel-> "During evaluation of \ -In[256]:=",ExpressionUUID->"80e3943d-459b-8b41-9869-50a6cf829ef8"], +In[99]:=",ExpressionUUID->"a2c662dc-0996-4c11-853f-86d42d9dbe8d"], 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[\\\"4.277571552183823`*^-156\\\", \ +RowBox[{\\\"257637673519649270217965\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"119\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 99, 21, + 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335257395241*^9, 3.993960509699375*^9}, CellLabel-> "During evaluation of \ -In[256]:=",ExpressionUUID->"36529169-7f05-ee43-8080-ce8fdd404b8d"], +In[99]:=",ExpressionUUID->"47ba3fce-29c0-4b77-92ca-878fcf4fb4fc"], 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, 99, 22, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335257395241*^9, 3.9939605097057323`*^9}, CellLabel-> "During evaluation of \ -In[256]:=",ExpressionUUID->"a6c5f0ff-3356-4c42-b883-ce45e5cc4f41"], +In[99]:=",ExpressionUUID->"382e98c3-7c48-4663-9d5f-020e42cf703c"], -Cell[BoxData["9.332200719005158`"], "Output", - CellChangeTimes->{3.991335263670042*^9}, - CellLabel-> - "Out[256]=",ExpressionUUID->"546f133a-4a8e-8d44-937d-5fc3ea2401d8"] +Cell[BoxData["10.109691685982998`"], "Output", + CellChangeTimes->{3.991335263670042*^9, 3.993960563893345*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"906f4f81-a20b-4887-a572-4564f0056f72"] }, Open ]], Cell[CellGroupData[{ @@ -3733,65 +8419,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[100]:=",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[\\\"1.979716014605359`*^-204\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 100, 23, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335263710146*^9, 3.9939605639528418`*^9}, CellLabel-> "During evaluation of \ -In[257]:=",ExpressionUUID->"2e7d173d-070f-de49-a3c2-9964fb888ede"], +In[100]:=",ExpressionUUID->"08ff967b-eb43-4af2-b87d-e66b6878020a"], 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[\\\"3.6250549279060404`*^-209\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 100, 24, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335263710146*^9, 3.993960563963323*^9}, CellLabel-> "During evaluation of \ -In[257]:=",ExpressionUUID->"04b23985-5685-d344-a2ed-9886796baf32"], +In[100]:=",ExpressionUUID->"0e129904-62ec-46c7-81bd-dd1b5691b485"], 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.637832463539185`*^-214\\\", \ +RowBox[{\\\"143094757247897252281238\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"64\\\", \\\"\[RightSkeleton]\\\"}], \\\"3737600000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 100, 25, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335263710146*^9, 3.993960563972312*^9}, CellLabel-> "During evaluation of \ -In[257]:=",ExpressionUUID->"ccdd27f2-bd64-f442-a708-cfb1052c7f86"], +In[100]:=",ExpressionUUID->"564d05f7-9790-4771-9628-2a1d36360769"], 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, 100, 26, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335263710146*^9, 3.9939605639793177`*^9}, CellLabel-> "During evaluation of \ -In[257]:=",ExpressionUUID->"384ce3fd-4914-6b49-b10c-84d885ed65d6"], +In[100]:=",ExpressionUUID->"6cc3d8c1-b4e6-44b8-af02-294a3f31bf37"], -Cell[BoxData["0.00046079539931050297`"], "Output", - CellChangeTimes->{3.991335268779545*^9}, +Cell[BoxData["0.3868713334204696`"], "Output", + CellChangeTimes->{3.991335268779545*^9, 3.993960571309331*^9}, CellLabel-> - "Out[257]=",ExpressionUUID->"8865a4e5-7fd3-3c49-a115-94c8c5479389"] + "Out[100]=",ExpressionUUID->"3f9f9a18-90b5-43d1-bb70-dd161f289606"] }, Open ]], Cell[CellGroupData[{ @@ -3812,8 +8505,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 +8550,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[101]:=",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[\\\"1.979716014605359`*^-204\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 101, 27, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335268812542*^9, 3.9939605713492107`*^9}, CellLabel-> "During evaluation of \ -In[258]:=",ExpressionUUID->"958049e8-43e1-cc46-81fb-5b3fe1a5d9ee"], +In[101]:=",ExpressionUUID->"ad6660ea-e9fc-4ce2-a5c7-7ffa1c65d994"], 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[\\\"3.6250549279060404`*^-209\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 101, 28, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335268812542*^9, 3.993960571355549*^9}, CellLabel-> "During evaluation of \ -In[258]:=",ExpressionUUID->"6ed73f20-f975-a34c-a5a3-af58e9ecd7ed"], +In[101]:=",ExpressionUUID->"10486da4-70c8-4abe-b1c0-fa198cc72eff"], 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.637832463539185`*^-214\\\", \ +RowBox[{\\\"143094757247897252281238\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"64\\\", \\\"\[RightSkeleton]\\\"}], \\\"3737600000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 101, 29, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335268812542*^9, 3.993960571362155*^9}, CellLabel-> "During evaluation of \ -In[258]:=",ExpressionUUID->"4ce11323-2f48-da4f-84f8-593751381024"], +In[101]:=",ExpressionUUID->"6c6e8596-1e62-4db4-8400-96a01c16ca75"], 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, 101, 30, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335268812542*^9, 3.993960571369834*^9}, CellLabel-> "During evaluation of \ -In[258]:=",ExpressionUUID->"330905cd-5b42-604b-aaf8-fbac43108165"], +In[101]:=",ExpressionUUID->"aeee008b-b3bc-4679-bdc6-c103afca39e5"], -Cell[BoxData["5.104103620353258`"], "Output", - CellChangeTimes->{3.991335272704685*^9}, +Cell[BoxData["28.27713329150644`"], "Output", + CellChangeTimes->{3.991335272704685*^9, 3.993960578391551*^9}, CellLabel-> - "Out[258]=",ExpressionUUID->"020ade62-ec43-7549-8079-7ac012e004c4"] + "Out[101]=",ExpressionUUID->"d461cffd-715a-4818-a56b-51dc34231773"] }, Open ]], Cell[CellGroupData[{ @@ -3937,8 +8636,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 +8681,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[102]:=",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[\\\"1.979716014605359`*^-204\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 102, 31, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913352727386665`*^9, 3.993960578433012*^9}, CellLabel-> "During evaluation of \ -In[259]:=",ExpressionUUID->"9a8eff2d-0d97-2e45-a2f3-ce0634115f7d"], +In[102]:=",ExpressionUUID->"821ff65a-2744-49f9-815e-ccc3653424a2"], 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[\\\"3.6250549279060404`*^-209\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 102, 32, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913352727386665`*^9, 3.9939605784422207`*^9}, CellLabel-> "During evaluation of \ -In[259]:=",ExpressionUUID->"7dd7e17e-c74e-7145-b6ae-77a0f02c67f1"], +In[102]:=",ExpressionUUID->"a7ef99ea-dd30-4550-9aa8-781bd8611a90"], 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.637832463539185`*^-214\\\", \ +RowBox[{\\\"143094757247897252281238\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"64\\\", \\\"\[RightSkeleton]\\\"}], \\\"3737600000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 102, 33, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913352727386665`*^9, 3.9939605784505157`*^9}, CellLabel-> "During evaluation of \ -In[259]:=",ExpressionUUID->"311ddb21-a730-0b41-b633-2d3bac87be85"], +In[102]:=",ExpressionUUID->"0d13d389-72ea-416e-9809-bd3872514b79"], 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, 102, 34, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913352727386665`*^9, 3.99396057845807*^9}, CellLabel-> "During evaluation of \ -In[259]:=",ExpressionUUID->"ecdc16e1-316d-b342-a60b-0f3075607709"], +In[102]:=",ExpressionUUID->"300686cd-63c2-456c-a1b9-d8bc9e648083"], -Cell[BoxData["18.832858301324727`"], "Output", - CellChangeTimes->{3.991335275154251*^9}, +Cell[BoxData["3.885337427685223`"], "Output", + CellChangeTimes->{3.991335275154251*^9, 3.993960582723209*^9}, CellLabel-> - "Out[259]=",ExpressionUUID->"a7fc6f95-4067-504b-8754-5086d2659934"] + "Out[102]=",ExpressionUUID->"7e20cd2b-4f56-42a2-bc9c-07963ebb9d68"] }, Open ]], Cell[CellGroupData[{ @@ -4050,22 +8755,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[103]:=",ExpressionUUID->"69dd09d9-152e-3e4d-9517-4de4791db2f4"], + +Cell[BoxData["0.03690918792798843`"], "Output", + CellChangeTimes->{3.991335275186266*^9, 3.9939605827558517`*^9}, + CellLabel-> + "Out[103]=",ExpressionUUID->"92294ed0-6cb3-41f8-a305-a851900060a5"] }, 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[104]:=",ExpressionUUID->"6ecc7e8c-a7c5-354e-b168-749729cd7104"], Cell[CellGroupData[{ @@ -4088,12 +8794,12 @@ Cell[BoxData[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", CellLabel-> - "In[262]:=",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], + "In[105]:=",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], -Cell[BoxData["5.744985073726737`"], "Output", - CellChangeTimes->{3.9913352752142563`*^9}, +Cell[BoxData["5.767269133120583`"], "Output", + CellChangeTimes->{3.9913352752142563`*^9, 3.99396058277288*^9}, CellLabel-> - "Out[262]=",ExpressionUUID->"fecac54e-ac70-c448-b60d-60e5d8aa9072"] + "Out[105]=",ExpressionUUID->"6789d04a-2a62-401e-880b-2283acd464a1"] }, Open ]], Cell[CellGroupData[{ @@ -4103,12 +8809,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", CellLabel-> - "In[264]:=",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], + "In[106]:=",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], -Cell[BoxData["1.564995573098557`"], "Output", - CellChangeTimes->{3.9913352752482567`*^9}, +Cell[BoxData["2.3941141045834735`"], "Output", + CellChangeTimes->{3.9913352752482567`*^9, 3.993960582781992*^9}, CellLabel-> - "Out[264]=",ExpressionUUID->"31e41e93-aaef-1b4f-a5e6-3cad86684dfc"] + "Out[106]=",ExpressionUUID->"b46b5909-60b5-45d7-ae82-95b3586c0a5c"] }, Open ]], Cell[CellGroupData[{ @@ -4118,12 +8824,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[267]:=",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], + "In[107]:=",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], -Cell[BoxData["8.990876207899632`"], "Output", - CellChangeTimes->{3.9913352753089123`*^9}, +Cell[BoxData["13.80750037653289`"], "Output", + CellChangeTimes->{3.9913352753089123`*^9, 3.993960582791067*^9}, CellLabel-> - "Out[267]=",ExpressionUUID->"d20f2acf-afe0-0844-b0cd-0cdce2394573"] + "Out[107]=",ExpressionUUID->"4776579e-aced-47bd-baac-b62c9f32a2ce"] }, Open ]], Cell[CellGroupData[{ @@ -4313,12 +9019,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[268]:=",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], + "In[108]:=",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], -Cell[BoxData["0.07167004636648908`"], "Output", - CellChangeTimes->{3.9913352753341656`*^9}, +Cell[BoxData["0.007812625584920303`"], "Output", + CellChangeTimes->{3.9913352753341656`*^9, 3.9939605828057547`*^9}, CellLabel-> - "Out[268]=",ExpressionUUID->"ec544098-6efd-4845-b84f-33e39ead67c9"] + "Out[108]=",ExpressionUUID->"bf14244b-a9c2-4cad-8015-b8ccfcc22060"] }, Open ]], Cell[CellGroupData[{ @@ -4332,12 +9038,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[269]:=",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], + "In[109]:=",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], -Cell[BoxData["3.3103666491187544`"], "Output", - CellChangeTimes->{3.9913352754296722`*^9}, +Cell[BoxData["10.026432512049269`"], "Output", + CellChangeTimes->{3.9913352754296722`*^9, 3.9939605829162283`*^9}, CellLabel-> - "Out[269]=",ExpressionUUID->"85f4fe6d-1167-7a40-b761-0a55e5251875"] + "Out[109]=",ExpressionUUID->"35deb700-b36b-4b3b-b967-57a009a46a8d"] }, Open ]], Cell[CellGroupData[{ @@ -4529,12 +9235,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[270]:=",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], + "In[110]:=",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], -Cell[BoxData["0.012832691268660865`"], "Output", - CellChangeTimes->{3.9913352754426765`*^9}, +Cell[BoxData["0.0697484397129706`"], "Output", + CellChangeTimes->{3.9913352754426765`*^9, 3.993960582929679*^9}, CellLabel-> - "Out[270]=",ExpressionUUID->"53db8250-199b-594a-8ebd-fc9cc43217e3"] + "Out[110]=",ExpressionUUID->"748a38af-0d60-4d87-80d3-67c92258a5bc"] }, Open ]], Cell[CellGroupData[{ @@ -4548,12 +9254,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[271]:=",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], + "In[111]:=",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], -Cell[BoxData["7.823229443917166`"], "Output", - CellChangeTimes->{3.991335275540678*^9}, +Cell[BoxData["3.3556580003474505`"], "Output", + CellChangeTimes->{3.991335275540678*^9, 3.993960583023538*^9}, CellLabel-> - "Out[271]=",ExpressionUUID->"0013bb3e-54d0-e343-9869-cf63da2eecbd"] + "Out[111]=",ExpressionUUID->"a7104685-676d-4807-a36a-c80e622dbd69"] }, Open ]], Cell[CellGroupData[{ @@ -4646,12 +9352,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[272]:=",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], + "In[112]:=",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], -Cell[BoxData["0.7884625602161153`"], "Output", - CellChangeTimes->{3.9913352755566807`*^9}, +Cell[BoxData["0.06376749590987153`"], "Output", + CellChangeTimes->{3.9913352755566807`*^9, 3.993960583033424*^9}, CellLabel-> - "Out[272]=",ExpressionUUID->"96d8705a-f744-d447-bad0-55fe1d703f38"] + "Out[112]=",ExpressionUUID->"8f65d4f6-5a5b-496d-b77f-d3bd82f58cb2"] }, Open ]], Cell[CellGroupData[{ @@ -4741,12 +9447,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[273]:=",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], + "In[113]:=",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], -Cell[BoxData["0.21153743978388478`"], "Output", - CellChangeTimes->{3.991335275581682*^9}, +Cell[BoxData["0.9362325040901285`"], "Output", + CellChangeTimes->{3.991335275581682*^9, 3.993960583043038*^9}, CellLabel-> - "Out[273]=",ExpressionUUID->"bad41b21-8b15-a74b-a641-622c6584a958"] + "Out[113]=",ExpressionUUID->"8c844dae-24d8-489c-b0fa-823539098b72"] }, Open ]], Cell[CellGroupData[{ @@ -4869,12 +9575,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[274]:=",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], + "In[114]:=",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], -Cell[BoxData["0.16678935135356415`"], "Output", - CellChangeTimes->{3.9913352756087036`*^9}, +Cell[BoxData["0.05970120237525605`"], "Output", + CellChangeTimes->{3.9913352756087036`*^9, 3.993960583054707*^9}, CellLabel-> - "Out[274]=",ExpressionUUID->"a42f993d-5633-3546-ae09-6931972f9312"] + "Out[114]=",ExpressionUUID->"f900a339-0974-4ebe-b015-01d7d7d149b8"] }, Open ]], Cell[CellGroupData[{ @@ -4889,7 +9595,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 +9619,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -4936,68 +9643,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[115]:=",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.3426805786999644`*^-208\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 115, 35, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335275636673*^9, 3.9939605830699987`*^9}, CellLabel-> "During evaluation of \ -In[275]:=",ExpressionUUID->"91f9ae14-8766-3848-9c79-ec46ad6af7ea"], +In[115]:=",ExpressionUUID->"ca6eab62-70d1-4c1f-b861-9f77ba4e4346"], 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[\\\"1.5088244877482708`*^-213\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 115, 36, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335275636673*^9, 3.993960583078218*^9}, CellLabel-> "During evaluation of \ -In[275]:=",ExpressionUUID->"2440fadc-b12b-424f-a600-97a0a8c9f031"], +In[115]:=",ExpressionUUID->"03c49f63-2369-48a9-963b-6d6a6b2d44de"], 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.6955271201085505`*^-218\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 115, 37, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335275636673*^9, 3.9939605830847197`*^9}, CellLabel-> "During evaluation of \ -In[275]:=",ExpressionUUID->"d4d1d26f-ac2b-a949-95b4-8d60af02cc4b"], +In[115]:=",ExpressionUUID->"62cbaf0c-fbc1-4b77-baa4-7ef73164af53"], 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, 115, 38, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335275636673*^9, 3.993960583091544*^9}, CellLabel-> "During evaluation of \ -In[275]:=",ExpressionUUID->"0cb59396-7a19-6b43-af2b-0a0ce0427b94"], +In[115]:=",ExpressionUUID->"9f1c6cfa-a68e-42ca-a92f-ff9673d83bf8"], -Cell[BoxData["3.3103666491187513`"], "Output", - CellChangeTimes->{3.991335279487499*^9}, +Cell[BoxData["10.026432512049263`"], "Output", + CellChangeTimes->{3.991335279487499*^9, 3.993960586850481*^9}, CellLabel-> - "Out[275]=",ExpressionUUID->"3ceb430a-d440-e040-b6a8-a18a3884b326"] + "Out[115]=",ExpressionUUID->"f8f7272f-35f6-446c-b074-03f73ed37a3c"] }, Open ]], Cell[CellGroupData[{ @@ -5012,7 +9723,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 +9747,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -5059,68 +9771,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[116]:=",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.3426805786999644`*^-208\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 116, 39, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335279522499*^9, 3.993960586889132*^9}, CellLabel-> "During evaluation of \ -In[276]:=",ExpressionUUID->"ccb81c35-09e9-854b-9187-d46e8624546d"], +In[116]:=",ExpressionUUID->"0064c394-2ffd-4545-a224-895c69954b5b"], 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[\\\"1.5088244877482708`*^-213\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 116, 40, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335279522499*^9, 3.993960586897834*^9}, CellLabel-> "During evaluation of \ -In[276]:=",ExpressionUUID->"6dff6307-9a24-c74d-90d8-2f18b14858dc"], +In[116]:=",ExpressionUUID->"73fa343f-dd89-4962-9592-282d21f39962"], 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.6955271201085505`*^-218\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 116, 41, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335279522499*^9, 3.993960586904561*^9}, CellLabel-> "During evaluation of \ -In[276]:=",ExpressionUUID->"11045565-b757-154a-b614-eb73b2dcbc5f"], +In[116]:=",ExpressionUUID->"87d0602a-f356-4fed-83f4-6362a1ed0b61"], 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, 116, 42, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335279522499*^9, 3.9939605869121943`*^9}, CellLabel-> "During evaluation of \ -In[276]:=",ExpressionUUID->"af9dd0c6-d446-9940-b908-9b52fbb611cb"], +In[116]:=",ExpressionUUID->"8ef2809f-b479-4757-9f25-88bbfc290d8d"], -Cell[BoxData["7.82322944391716`"], "Output", - CellChangeTimes->{3.991335283631424*^9}, +Cell[BoxData["3.355658000347451`"], "Output", + CellChangeTimes->{3.991335283631424*^9, 3.993960590688655*^9}, CellLabel-> - "Out[276]=",ExpressionUUID->"d39c46b4-75c6-f741-b7fd-1a1fdbe4155f"] + "Out[116]=",ExpressionUUID->"75a9c207-d983-4fd0-b07e-a2c331a6de91"] }, Open ]], Cell[CellGroupData[{ @@ -5178,94 +9894,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[117]:=",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:eJwV1Hk4VN8fB3C7spQoa2TPEmlIpJxPISVkyZaSmLlKki2/SZY2tClrVELZ +l7ImX6SFSpqiqMTXvnybwVguoajfmT/uc5/Xc57zPu9z7z1Xyeu0A42Hi4vr +B74498CPuhuftn003SIU/XQ5kolM2TlbvcxLUF+yci/H/ZmGyarm9cgwacH+ +D7Yd9YOAiP5rNMonKPEXu5we1chvzkB6TBslrigmuvpG+kVU0SdkgD6Ec2P/ +0xaYsUT5gj7xR6vxYrO6WsLP1nWiCJMzcvzYsiMq7j/N/kV3eu97CGLvnww3 +Dmb0IYWJP+yV2A1LLGF60QDqoaYxRLC/XpA6V+0/hJzNfOdXY7MFzFmzlBFU +HR1yWgJb4EaAm/78KJLRfGogha2w5n5zYN0PJKxFsZTDtpX7mcc2G0cFhp8c +VbGJLGVJnRVs5LZ9zkYTO0rtQPRJxiSav26foovdKdWxJaRoGiGBSuHt2NRD +vieSbswgHrWa7YA9lc71oMKfRE8i5qr3YK9Q1hGbpswhhTfSqQexk6mNlmLr +fqKKwj+/3LEV892iNs//RNKl60u8sY02xbBP1S0gcT7un8HYxw37GCyzJZQi +5KuRhj1LP8MnpL6MXm4R+/kA+3yd8A7NFX9Qzk62WAl2GhgV+zD+IrF+e92X +nH65zeZBRdwwvqdacBK76E1S/wU5HiiOk0W/OX3/8whPuMEDi77VjYLnmShc +a66yzJ8XnJ8lVylhJ5cqqUxS+OFVOMvADburbbzhTzY/qBkKffXBVpx5emjV +OgEYUz/WFIpdYmCbqDMvAFlnq66kYDf9E8btV7cCQrwnS79izzW29/0wE4GN +HoV0nwtMJG4tInauQQT6eoqSwrH1OsxB1FgUOp6dXJmI7Tv8JGuL7irwM9fm +b8AO4GHo7RQRg7ODGTtlLzLRiPLj6eifa0CjZXfFEPYs0bKyVV8cIhZ1z/7B +5ikeVZIOFIePs513ZS7hvvobHIrGxMH/XxrbDvuQWXzFx34JkDb0/NqI3eod +FCz1fh3UknWFtZeZqDf/5nXPFZJw8m7o+m7s8bGi7EILSXCSmGD+xhYKGWo3 +eSEJYpMiKabRTGR++aCB5xMpcPNYu6kZuzbHcK4gUwbidiodGY9hopyRX6Hb +Q+RhvnpdC/0qE+11iu0NfiQP5qGORQ+wx5sk9jwalQeXhfzvLdgGOZvWKbop +ACU3WU3hGn6eXh6V/KYboI5CD2rGnpns/9+PS4qgG2nWr32DiSROmVdV2iiD +plqlkO4tJhrNETpu56sMV93OfPDErvm3TW4iRhmu5e/tS8I+bH3kkvoLZYh8 +pTT1CztHO9ThDkUFRnamvWHE4/VZ+VORUqqQYuezJyqRiQ76COtYDajBQwvu ++A23mQiFOlFcltVAo3ALrzu2VnTmNqqMOiyw3V7dxubK1t8daa8O1boJqqtT +mehRr7tLxUt1mHudROdNw+fTueSC7MONIGdc4fHrDu5nbvOV5aUJz75EKyll +MFG2Y2r3fKQmLFpulSCwb3oN9PPd04Qy0w67Ymzq+TNjCu2a4JnQV2qYyURr +6u9zOZppQWSayrJdFv5+9NladSracEhWoSPpIRPJKd+Kuj68CUCyJNAhn4nq +r81qLvLoACEsdC0f+zDp1kEo6cC2yOrfS9gZTaqauz104MfaRVZBARMp+9R+ +XvimA4onpRf5ivB+S0bUiPe6cCzOtf1DCRPJyykQim56wG8TFf6wgok25YaI +/EYUsIqcuOTynIm8qJfmdGwpoJxu1FCHnaaS2Ot5mALvS3T3KL5gIt6HpWVv +6BTYGy+DWNhdGayDieUU4M/o7rjwCv9P0zzva6roQ9jltFvPX+P3e91a11XA +ALQnRE3PMJjoQZCq3RPGVvija3rkXRcTtYWibZdzjaFoejTn7zITKXl8sT3i +txO22wZ6SKqzEO1v9WP5swDHd0kFUu1YSGqsRlDKazeM7ZeMTrvEQiH6O/5N +1DKH5ovNjR41LOQ1sdQswbKAE8un+eumWOjR7mDBzFZLWNXzSJ5HfwzlzPq+ +LEneB38qr9nePTOGFnZJf2iK2g89k1k7hl6NoR4u3umBYzZQVPzg7CeJceS/ +/nT8BZUDcKX+uU+V9zh6fKL5RUq0HdAbygf4n4+jMFJmXvuEPXTvXW6JlJ5A +c1Z7nN8edQD5a9a+vRETyNg9YdeIvSN8tKfO5oxMoM8y932b9A/Ch88tZXxW +bCSbd6m+QMMJRHJGrgTUslFNv5a1ragzhCh/ygpTn0QKHVM+oRPOsJLdYDGf +OIn0UxJKsvtdIPmQJT2Rfwrd5yN1ExtdwfqZb3u66RSq3rW5K/ofN/j23mZi +R8QUStt2bc1S0SFQYO0v3l03hVq7c2P0b7jDb2lPt4NzU+iJTbpqwPnDwLVB +WmyHwTSaPuXI5U89AnFO/Eap/tNobo/mcbaZB2jrNuZo5E+jgonvC8GGR+E1 +ddutsKFp5Pog1/uIiCc4sgR7/GRnUGXF/qO8sZ7AYJUJqx+cQcZynxevLnpC +p1NxwWzsDFLp9+n6dOIYBFc9OxxYM4OGhU8eSB86BivtdVasZc2gtpu23pZO +XsBoa9e2XEeiZHqm8Jk2L3guwOiwBRLVN/xd9N7nDS8t6wWOECRafRhi9Wu9 +IfNmu+rnaBIprn3bur7eG8679qTYx5BIj2EjLdDgDT7Kd2vasB12uBd2vvSG +sgP94h9jcf760PcR77yBffaa9OurJJLtKV7d3OkN2l2fXXLiSKTqIZV2eN4b +eO8aq25MIZGxJ7sg2oAK/s9OCW7PJlHenalgW0MqcM+0b8vAXts+YyplRAXv +IFlFnhwSsS3mOwpMqGA8Jy79DjtHm4ubsZsKrWamOY55JFo1v8ZN3J4KTPaS +knshiYbjtq7MPEWFxWfDrvqlJLpZF36iJo8KGrEBXAK1JDpFSTWmF1CB1ZSn +5YxtXVi+0qiICp2H7onkYQuljhY+fUSF9ayUefM6EkUH2bGqq6ggw1d6PKqe +ROGaqiefvKLCpa4Lj0cbSOSb+t6vohfn3xG8FNlIon2rRncE9VPBXTwm4TW2 +RjSXKGWQCjXdMc4iTSQaDdr6qHyECrcQi/cO9jHbzImycSqUhBiOPX5NIlf+ +YP/SX1R4aTI7xHhLIstg2YASSRrcSD8Jn96T6FVmjFWiNA2Exc5YrWWQaAdj +RpUuS4MYVLnkjK2n9v67mQINNvjluHVjy3w7Z9atRgM9CZPZvg8kGtveIym0 +lQan3p3K7mwl0S2erGc+jjT4wLLIi23H+98skmbjRAM7247s59iX3elB+i40 +mM+k7Z3HplfZbfx7iAb73PxjaB24P8GdcNsL5+lqfNn5hUT6LV7U14E0MAhg +Pen5SqJvCWrCKvE0MOnst+76TqLHSPT4jwQarC9uUuDrwvkTs02PkmhgxLB/ +qINN2dcUaZRKA2sX+4Yo7Jtc3jM2GTSgBO/bp9hNoj2ns77TS2hgf/lonsO/ +JJKXv2Jo+pgGKmqW8f/Dnm05ncRbRoNql4va6dgP1ZHNzUoauIf2nRnGXu7p +eZFdSwMF4WK3wB4SVVnLFXxspsGAvIdbeC+Jrv/i4U9uoUGv707ndGyvAtYx +NwYN5jar8dVji/HVyg230oD2eSnoF7Zfneutxa80cHrglB7cRyIVrduhqiM0 +EJ2VkXXpJ9GvbxHtzFEaDGfdUgvCboum6ZX+oMEo9cPADezIAQOW8Tien5To +9xK7K639yAGSBnvj+lrUB0iUKLjGIoybgCu3YvMHsetnetxDeAlwRHZWv7H/ +6ykK8ucngHJc4ZrEIP4eqsyzvFYSMJtR278be9ST/ttqDQE3ci8y07HFrC3E +LSQIUHgkEFKBbbJNXBOtI2B9Z8C9t9jxoiXO+jIE3NNlvpjijNf2lcspEcBd +soIwHSIRkVvSvE6FAIuNh7/ZYcfHn+1brUbA/qKwES/sUUJClE+TgJhzIp3R +nHEJy+PjegQUjulJvsWu/SMRNUohwKr16qmv2CPM/pR+AwICu28fG8He/iKs +scOIAB1o3MAzjM+z32OFZ0CAfLXSrCH2KtdzW5/uJmDl4Dc9M2xjs73W5eYE +tKdsFjqAfVNm8GzuXgLyYusSadg1fKXxmVa4D3NsVwD20OS5/DvWBJCy1XFh +2EZv1n2JsyPAclLsdxy2V/ngWKwDARqmGetTsePSS3kuHiTgfFVDVyb2YNA+ +vVBXAr5pVW4qwxb1kLQMOEQA19HLL55y8vYNHfE9TMCC8tBUA2f+hojrHp4E +CEeab2Rw+ghZPXT1IiDpk7nOZ07enOQ/DlQCWnQ+tn7j5A0MtVoTBFy417eq +h5PHKBvdc5yABAM6a4DT72nEMvgS0K+S6jXKyX9otdbEjwCPXJP/sTj5cVLa +W/3xegI0DTYnnz68a3MAAT+yxUOnsUWo5a6aQQSIs808Z7G3HYg8rRJCQBZ1 +YfQnJ3/7/hj5UAJep20WWsS+oSZ9X4pOwNNNzHe/sKvFRirXhBFQ366qvoQ9 +8Lu8RTicAE2HQYVlTv5/kQP8kQS4RChVcWz4ef/C3ygCakwGRzj+P3WAHBg= + "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -5279,106 +9995,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:eJwV1Hk4VN8fB3C7spQoa2TPEmlIpJxPISVkyZaSmLlKki2/SZY2tClrVELZ +l7ImX6SFSpqiqMTXvnybwVguoajfmT/uc5/Xc57zPu9z7z1Xyeu0A42Hi4vr +B74498CPuhuftn003SIU/XQ5kolM2TlbvcxLUF+yci/H/ZmGyarm9cgwacH+ +D7Yd9YOAiP5rNMonKPEXu5we1chvzkB6TBslrigmuvpG+kVU0SdkgD6Ec2P/ +0xaYsUT5gj7xR6vxYrO6WsLP1nWiCJMzcvzYsiMq7j/N/kV3eu97CGLvnww3 +Dmb0IYWJP+yV2A1LLGF60QDqoaYxRLC/XpA6V+0/hJzNfOdXY7MFzFmzlBFU +HR1yWgJb4EaAm/78KJLRfGogha2w5n5zYN0PJKxFsZTDtpX7mcc2G0cFhp8c +VbGJLGVJnRVs5LZ9zkYTO0rtQPRJxiSav26foovdKdWxJaRoGiGBSuHt2NRD +vieSbswgHrWa7YA9lc71oMKfRE8i5qr3YK9Q1hGbpswhhTfSqQexk6mNlmLr +fqKKwj+/3LEV892iNs//RNKl60u8sY02xbBP1S0gcT7un8HYxw37GCyzJZQi +5KuRhj1LP8MnpL6MXm4R+/kA+3yd8A7NFX9Qzk62WAl2GhgV+zD+IrF+e92X +nH65zeZBRdwwvqdacBK76E1S/wU5HiiOk0W/OX3/8whPuMEDi77VjYLnmShc +a66yzJ8XnJ8lVylhJ5cqqUxS+OFVOMvADburbbzhTzY/qBkKffXBVpx5emjV +OgEYUz/WFIpdYmCbqDMvAFlnq66kYDf9E8btV7cCQrwnS79izzW29/0wE4GN +HoV0nwtMJG4tInauQQT6eoqSwrH1OsxB1FgUOp6dXJmI7Tv8JGuL7irwM9fm +b8AO4GHo7RQRg7ODGTtlLzLRiPLj6eifa0CjZXfFEPYs0bKyVV8cIhZ1z/7B +5ikeVZIOFIePs513ZS7hvvobHIrGxMH/XxrbDvuQWXzFx34JkDb0/NqI3eod +FCz1fh3UknWFtZeZqDf/5nXPFZJw8m7o+m7s8bGi7EILSXCSmGD+xhYKGWo3 +eSEJYpMiKabRTGR++aCB5xMpcPNYu6kZuzbHcK4gUwbidiodGY9hopyRX6Hb +Q+RhvnpdC/0qE+11iu0NfiQP5qGORQ+wx5sk9jwalQeXhfzvLdgGOZvWKbop +ACU3WU3hGn6eXh6V/KYboI5CD2rGnpns/9+PS4qgG2nWr32DiSROmVdV2iiD +plqlkO4tJhrNETpu56sMV93OfPDErvm3TW4iRhmu5e/tS8I+bH3kkvoLZYh8 +pTT1CztHO9ThDkUFRnamvWHE4/VZ+VORUqqQYuezJyqRiQ76COtYDajBQwvu ++A23mQiFOlFcltVAo3ALrzu2VnTmNqqMOiyw3V7dxubK1t8daa8O1boJqqtT +mehRr7tLxUt1mHudROdNw+fTueSC7MONIGdc4fHrDu5nbvOV5aUJz75EKyll +MFG2Y2r3fKQmLFpulSCwb3oN9PPd04Qy0w67Ymzq+TNjCu2a4JnQV2qYyURr +6u9zOZppQWSayrJdFv5+9NladSracEhWoSPpIRPJKd+Kuj68CUCyJNAhn4nq +r81qLvLoACEsdC0f+zDp1kEo6cC2yOrfS9gZTaqauz104MfaRVZBARMp+9R+ +XvimA4onpRf5ivB+S0bUiPe6cCzOtf1DCRPJyykQim56wG8TFf6wgok25YaI +/EYUsIqcuOTynIm8qJfmdGwpoJxu1FCHnaaS2Ot5mALvS3T3KL5gIt6HpWVv +6BTYGy+DWNhdGayDieUU4M/o7rjwCv9P0zzva6roQ9jltFvPX+P3e91a11XA +ALQnRE3PMJjoQZCq3RPGVvija3rkXRcTtYWibZdzjaFoejTn7zITKXl8sT3i +txO22wZ6SKqzEO1v9WP5swDHd0kFUu1YSGqsRlDKazeM7ZeMTrvEQiH6O/5N +1DKH5ovNjR41LOQ1sdQswbKAE8un+eumWOjR7mDBzFZLWNXzSJ5HfwzlzPq+ +LEneB38qr9nePTOGFnZJf2iK2g89k1k7hl6NoR4u3umBYzZQVPzg7CeJceS/ +/nT8BZUDcKX+uU+V9zh6fKL5RUq0HdAbygf4n4+jMFJmXvuEPXTvXW6JlJ5A +c1Z7nN8edQD5a9a+vRETyNg9YdeIvSN8tKfO5oxMoM8y932b9A/Ch88tZXxW +bCSbd6m+QMMJRHJGrgTUslFNv5a1ragzhCh/ygpTn0QKHVM+oRPOsJLdYDGf +OIn0UxJKsvtdIPmQJT2Rfwrd5yN1ExtdwfqZb3u66RSq3rW5K/ofN/j23mZi +R8QUStt2bc1S0SFQYO0v3l03hVq7c2P0b7jDb2lPt4NzU+iJTbpqwPnDwLVB +WmyHwTSaPuXI5U89AnFO/Eap/tNobo/mcbaZB2jrNuZo5E+jgonvC8GGR+E1 +ddutsKFp5Pog1/uIiCc4sgR7/GRnUGXF/qO8sZ7AYJUJqx+cQcZynxevLnpC +p1NxwWzsDFLp9+n6dOIYBFc9OxxYM4OGhU8eSB86BivtdVasZc2gtpu23pZO +XsBoa9e2XEeiZHqm8Jk2L3guwOiwBRLVN/xd9N7nDS8t6wWOECRafRhi9Wu9 +IfNmu+rnaBIprn3bur7eG8679qTYx5BIj2EjLdDgDT7Kd2vasB12uBd2vvSG +sgP94h9jcf760PcR77yBffaa9OurJJLtKV7d3OkN2l2fXXLiSKTqIZV2eN4b +eO8aq25MIZGxJ7sg2oAK/s9OCW7PJlHenalgW0MqcM+0b8vAXts+YyplRAXv +IFlFnhwSsS3mOwpMqGA8Jy79DjtHm4ubsZsKrWamOY55JFo1v8ZN3J4KTPaS +knshiYbjtq7MPEWFxWfDrvqlJLpZF36iJo8KGrEBXAK1JDpFSTWmF1CB1ZSn +5YxtXVi+0qiICp2H7onkYQuljhY+fUSF9ayUefM6EkUH2bGqq6ggw1d6PKqe +ROGaqiefvKLCpa4Lj0cbSOSb+t6vohfn3xG8FNlIon2rRncE9VPBXTwm4TW2 +RjSXKGWQCjXdMc4iTSQaDdr6qHyECrcQi/cO9jHbzImycSqUhBiOPX5NIlf+ +YP/SX1R4aTI7xHhLIstg2YASSRrcSD8Jn96T6FVmjFWiNA2Exc5YrWWQaAdj +RpUuS4MYVLnkjK2n9v67mQINNvjluHVjy3w7Z9atRgM9CZPZvg8kGtveIym0 +lQan3p3K7mwl0S2erGc+jjT4wLLIi23H+98skmbjRAM7247s59iX3elB+i40 +mM+k7Z3HplfZbfx7iAb73PxjaB24P8GdcNsL5+lqfNn5hUT6LV7U14E0MAhg +Pen5SqJvCWrCKvE0MOnst+76TqLHSPT4jwQarC9uUuDrwvkTs02PkmhgxLB/ +qINN2dcUaZRKA2sX+4Yo7Jtc3jM2GTSgBO/bp9hNoj2ns77TS2hgf/lonsO/ +JJKXv2Jo+pgGKmqW8f/Dnm05ncRbRoNql4va6dgP1ZHNzUoauIf2nRnGXu7p +eZFdSwMF4WK3wB4SVVnLFXxspsGAvIdbeC+Jrv/i4U9uoUGv707ndGyvAtYx +NwYN5jar8dVji/HVyg230oD2eSnoF7Zfneutxa80cHrglB7cRyIVrduhqiM0 +EJ2VkXXpJ9GvbxHtzFEaDGfdUgvCboum6ZX+oMEo9cPADezIAQOW8Tien5To +9xK7K639yAGSBnvj+lrUB0iUKLjGIoybgCu3YvMHsetnetxDeAlwRHZWv7H/ +6ykK8ucngHJc4ZrEIP4eqsyzvFYSMJtR278be9ST/ttqDQE3ci8y07HFrC3E +LSQIUHgkEFKBbbJNXBOtI2B9Z8C9t9jxoiXO+jIE3NNlvpjijNf2lcspEcBd +soIwHSIRkVvSvE6FAIuNh7/ZYcfHn+1brUbA/qKwES/sUUJClE+TgJhzIp3R +nHEJy+PjegQUjulJvsWu/SMRNUohwKr16qmv2CPM/pR+AwICu28fG8He/iKs +scOIAB1o3MAzjM+z32OFZ0CAfLXSrCH2KtdzW5/uJmDl4Dc9M2xjs73W5eYE +tKdsFjqAfVNm8GzuXgLyYusSadg1fKXxmVa4D3NsVwD20OS5/DvWBJCy1XFh +2EZv1n2JsyPAclLsdxy2V/ngWKwDARqmGetTsePSS3kuHiTgfFVDVyb2YNA+ +vVBXAr5pVW4qwxb1kLQMOEQA19HLL55y8vYNHfE9TMCC8tBUA2f+hojrHp4E +CEeab2Rw+ghZPXT1IiDpk7nOZ07enOQ/DlQCWnQ+tn7j5A0MtVoTBFy417eq +h5PHKBvdc5yABAM6a4DT72nEMvgS0K+S6jXKyX9otdbEjwCPXJP/sTj5cVLa +W/3xegI0DTYnnz68a3MAAT+yxUOnsUWo5a6aQQSIs808Z7G3HYg8rRJCQBZ1 +YfQnJ3/7/hj5UAJep20WWsS+oSZ9X4pOwNNNzHe/sKvFRirXhBFQ366qvoQ9 +8Lu8RTicAE2HQYVlTv5/kQP8kQS4RChVcWz4ef/C3ygCakwGRzj+P3WAHBg= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6152015704378874, - 1.5607999649251942`}}, + "PlotRange" -> {{0, 180}, {0.7967518410080797, + 1.2434061984856566`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6152015704378887}, + "AxesOrigin" -> {0, 0.7967518410080815}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.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 +10106,21 @@ OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6152015704378874, - 1.5607999649251942`}}, + "PlotRange" -> {{0, 180}, {0.7967518410080797, + 1.2434061984856566`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6152015704378887}, + "AxesOrigin" -> {0, 0.7967518410080815}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 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 +10134,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:eJwV1Hk4VN8fB3C7spQoa2TPEmlIpJxPISVkyZaSmLlKki2/SZY2tClrVELZ +l7ImX6SFSpqiqMTXvnybwVguoajfmT/uc5/Xc57zPu9z7z1Xyeu0A42Hi4vr +B74498CPuhuftn003SIU/XQ5kolM2TlbvcxLUF+yci/H/ZmGyarm9cgwacH+ +D7Yd9YOAiP5rNMonKPEXu5we1chvzkB6TBslrigmuvpG+kVU0SdkgD6Ec2P/ +0xaYsUT5gj7xR6vxYrO6WsLP1nWiCJMzcvzYsiMq7j/N/kV3eu97CGLvnww3 +Dmb0IYWJP+yV2A1LLGF60QDqoaYxRLC/XpA6V+0/hJzNfOdXY7MFzFmzlBFU +HR1yWgJb4EaAm/78KJLRfGogha2w5n5zYN0PJKxFsZTDtpX7mcc2G0cFhp8c +VbGJLGVJnRVs5LZ9zkYTO0rtQPRJxiSav26foovdKdWxJaRoGiGBSuHt2NRD +vieSbswgHrWa7YA9lc71oMKfRE8i5qr3YK9Q1hGbpswhhTfSqQexk6mNlmLr +fqKKwj+/3LEV892iNs//RNKl60u8sY02xbBP1S0gcT7un8HYxw37GCyzJZQi +5KuRhj1LP8MnpL6MXm4R+/kA+3yd8A7NFX9Qzk62WAl2GhgV+zD+IrF+e92X +nH65zeZBRdwwvqdacBK76E1S/wU5HiiOk0W/OX3/8whPuMEDi77VjYLnmShc +a66yzJ8XnJ8lVylhJ5cqqUxS+OFVOMvADburbbzhTzY/qBkKffXBVpx5emjV +OgEYUz/WFIpdYmCbqDMvAFlnq66kYDf9E8btV7cCQrwnS79izzW29/0wE4GN +HoV0nwtMJG4tInauQQT6eoqSwrH1OsxB1FgUOp6dXJmI7Tv8JGuL7irwM9fm +b8AO4GHo7RQRg7ODGTtlLzLRiPLj6eifa0CjZXfFEPYs0bKyVV8cIhZ1z/7B +5ikeVZIOFIePs513ZS7hvvobHIrGxMH/XxrbDvuQWXzFx34JkDb0/NqI3eod +FCz1fh3UknWFtZeZqDf/5nXPFZJw8m7o+m7s8bGi7EILSXCSmGD+xhYKGWo3 +eSEJYpMiKabRTGR++aCB5xMpcPNYu6kZuzbHcK4gUwbidiodGY9hopyRX6Hb +Q+RhvnpdC/0qE+11iu0NfiQP5qGORQ+wx5sk9jwalQeXhfzvLdgGOZvWKbop +ACU3WU3hGn6eXh6V/KYboI5CD2rGnpns/9+PS4qgG2nWr32DiSROmVdV2iiD +plqlkO4tJhrNETpu56sMV93OfPDErvm3TW4iRhmu5e/tS8I+bH3kkvoLZYh8 +pTT1CztHO9ThDkUFRnamvWHE4/VZ+VORUqqQYuezJyqRiQ76COtYDajBQwvu ++A23mQiFOlFcltVAo3ALrzu2VnTmNqqMOiyw3V7dxubK1t8daa8O1boJqqtT +mehRr7tLxUt1mHudROdNw+fTueSC7MONIGdc4fHrDu5nbvOV5aUJz75EKyll +MFG2Y2r3fKQmLFpulSCwb3oN9PPd04Qy0w67Ymzq+TNjCu2a4JnQV2qYyURr +6u9zOZppQWSayrJdFv5+9NladSracEhWoSPpIRPJKd+Kuj68CUCyJNAhn4nq +r81qLvLoACEsdC0f+zDp1kEo6cC2yOrfS9gZTaqauz104MfaRVZBARMp+9R+ +XvimA4onpRf5ivB+S0bUiPe6cCzOtf1DCRPJyykQim56wG8TFf6wgok25YaI +/EYUsIqcuOTynIm8qJfmdGwpoJxu1FCHnaaS2Ot5mALvS3T3KL5gIt6HpWVv +6BTYGy+DWNhdGayDieUU4M/o7rjwCv9P0zzva6roQ9jltFvPX+P3e91a11XA +ALQnRE3PMJjoQZCq3RPGVvija3rkXRcTtYWibZdzjaFoejTn7zITKXl8sT3i +txO22wZ6SKqzEO1v9WP5swDHd0kFUu1YSGqsRlDKazeM7ZeMTrvEQiH6O/5N +1DKH5ovNjR41LOQ1sdQswbKAE8un+eumWOjR7mDBzFZLWNXzSJ5HfwzlzPq+ +LEneB38qr9nePTOGFnZJf2iK2g89k1k7hl6NoR4u3umBYzZQVPzg7CeJceS/ +/nT8BZUDcKX+uU+V9zh6fKL5RUq0HdAbygf4n4+jMFJmXvuEPXTvXW6JlJ5A +c1Z7nN8edQD5a9a+vRETyNg9YdeIvSN8tKfO5oxMoM8y932b9A/Ch88tZXxW +bCSbd6m+QMMJRHJGrgTUslFNv5a1ragzhCh/ygpTn0QKHVM+oRPOsJLdYDGf +OIn0UxJKsvtdIPmQJT2Rfwrd5yN1ExtdwfqZb3u66RSq3rW5K/ofN/j23mZi +R8QUStt2bc1S0SFQYO0v3l03hVq7c2P0b7jDb2lPt4NzU+iJTbpqwPnDwLVB +WmyHwTSaPuXI5U89AnFO/Eap/tNobo/mcbaZB2jrNuZo5E+jgonvC8GGR+E1 +ddutsKFp5Pog1/uIiCc4sgR7/GRnUGXF/qO8sZ7AYJUJqx+cQcZynxevLnpC +p1NxwWzsDFLp9+n6dOIYBFc9OxxYM4OGhU8eSB86BivtdVasZc2gtpu23pZO +XsBoa9e2XEeiZHqm8Jk2L3guwOiwBRLVN/xd9N7nDS8t6wWOECRafRhi9Wu9 +IfNmu+rnaBIprn3bur7eG8679qTYx5BIj2EjLdDgDT7Kd2vasB12uBd2vvSG +sgP94h9jcf760PcR77yBffaa9OurJJLtKV7d3OkN2l2fXXLiSKTqIZV2eN4b +eO8aq25MIZGxJ7sg2oAK/s9OCW7PJlHenalgW0MqcM+0b8vAXts+YyplRAXv +IFlFnhwSsS3mOwpMqGA8Jy79DjtHm4ubsZsKrWamOY55JFo1v8ZN3J4KTPaS +knshiYbjtq7MPEWFxWfDrvqlJLpZF36iJo8KGrEBXAK1JDpFSTWmF1CB1ZSn +5YxtXVi+0qiICp2H7onkYQuljhY+fUSF9ayUefM6EkUH2bGqq6ggw1d6PKqe +ROGaqiefvKLCpa4Lj0cbSOSb+t6vohfn3xG8FNlIon2rRncE9VPBXTwm4TW2 +RjSXKGWQCjXdMc4iTSQaDdr6qHyECrcQi/cO9jHbzImycSqUhBiOPX5NIlf+ +YP/SX1R4aTI7xHhLIstg2YASSRrcSD8Jn96T6FVmjFWiNA2Exc5YrWWQaAdj +RpUuS4MYVLnkjK2n9v67mQINNvjluHVjy3w7Z9atRgM9CZPZvg8kGtveIym0 +lQan3p3K7mwl0S2erGc+jjT4wLLIi23H+98skmbjRAM7247s59iX3elB+i40 +mM+k7Z3HplfZbfx7iAb73PxjaB24P8GdcNsL5+lqfNn5hUT6LV7U14E0MAhg +Pen5SqJvCWrCKvE0MOnst+76TqLHSPT4jwQarC9uUuDrwvkTs02PkmhgxLB/ +qINN2dcUaZRKA2sX+4Yo7Jtc3jM2GTSgBO/bp9hNoj2ns77TS2hgf/lonsO/ +JJKXv2Jo+pgGKmqW8f/Dnm05ncRbRoNql4va6dgP1ZHNzUoauIf2nRnGXu7p +eZFdSwMF4WK3wB4SVVnLFXxspsGAvIdbeC+Jrv/i4U9uoUGv707ndGyvAtYx +NwYN5jar8dVji/HVyg230oD2eSnoF7Zfneutxa80cHrglB7cRyIVrduhqiM0 +EJ2VkXXpJ9GvbxHtzFEaDGfdUgvCboum6ZX+oMEo9cPADezIAQOW8Tien5To +9xK7K639yAGSBnvj+lrUB0iUKLjGIoybgCu3YvMHsetnetxDeAlwRHZWv7H/ +6ykK8ucngHJc4ZrEIP4eqsyzvFYSMJtR278be9ST/ttqDQE3ci8y07HFrC3E +LSQIUHgkEFKBbbJNXBOtI2B9Z8C9t9jxoiXO+jIE3NNlvpjijNf2lcspEcBd +soIwHSIRkVvSvE6FAIuNh7/ZYcfHn+1brUbA/qKwES/sUUJClE+TgJhzIp3R +nHEJy+PjegQUjulJvsWu/SMRNUohwKr16qmv2CPM/pR+AwICu28fG8He/iKs +scOIAB1o3MAzjM+z32OFZ0CAfLXSrCH2KtdzW5/uJmDl4Dc9M2xjs73W5eYE +tKdsFjqAfVNm8GzuXgLyYusSadg1fKXxmVa4D3NsVwD20OS5/DvWBJCy1XFh +2EZv1n2JsyPAclLsdxy2V/ngWKwDARqmGetTsePSS3kuHiTgfFVDVyb2YNA+ +vVBXAr5pVW4qwxb1kLQMOEQA19HLL55y8vYNHfE9TMCC8tBUA2f+hojrHp4E +CEeab2Rw+ghZPXT1IiDpk7nOZ07enOQ/DlQCWnQ+tn7j5A0MtVoTBFy417eq +h5PHKBvdc5yABAM6a4DT72nEMvgS0K+S6jXKyX9otdbEjwCPXJP/sTj5cVLa +W/3xegI0DTYnnz68a3MAAT+yxUOnsUWo5a6aQQSIs808Z7G3HYg8rRJCQBZ1 +YfQnJ3/7/hj5UAJep20WWsS+oSZ9X4pOwNNNzHe/sKvFRirXhBFQ366qvoQ9 +8Lu8RTicAE2HQYVlTv5/kQP8kQS4RChVcWz4ef/C3ygCakwGRzj+P3WAHBg= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6152015704378874, 1.5607999649251942`}}, + "PlotRange" -> {{0, 180}, {0.7967518410080797, 1.2434061984856566`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6152015704378887}, + "AxesOrigin" -> {0, 0.7967518410080815}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 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 +10241,8 @@ OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.6152015704378887}, + AxesOrigin->{0, 0.7967518410080815}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -5553,7 +10270,8 @@ OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.6152015704378874, 1.5607999649251942`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.7967518410080797, 1.2434061984856566`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -5561,11 +10279,13 @@ OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913355426284504`*^9}, + CellChangeTimes->{3.9913355426284504`*^9, 3.993960870918931*^9}, CellLabel-> - "Out[277]=",ExpressionUUID->"5f98f6f4-700b-0a4b-af1c-32125fed3e6a"] + "Out[117]=",ExpressionUUID->"1c2a6e9c-7855-4ffc-bd3a-9767af4ca0e1"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"x", "=", RowBox[{"Plot", "[", @@ -5576,7 +10296,9 @@ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -5598,8 +10320,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -5625,14 +10346,1084 @@ 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[118]:=",ExpressionUUID->"00a32bc3-df79-9e43-8f20-d4884962c12d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0214768022018865`*^-273\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 118, + 43, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993960871062295*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"a0720bb1-b42e-4e92-a161-0bc01a61bf78"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.311347504570616`*^-285\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 118, 44, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993960871072071*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"c42df405-54c6-4a3b-92d4-c93f8e4b0ead"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8196905955279415`*^-296\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 118, 45, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939608710794573`*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"3e733786-b0f2-4feb-91af-e8a850855fab"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 118, 46, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939608710881433`*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"77a40528-39b3-4f1a-8b4c-6e03d77f478a"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4VG0bAHAl0Ub2dRYzaCNLwswY923NThKiJGWPVFJZXlukSCKlCAkV +xcycNpSESioqKhF50/basiRU8p3vr3P9rus857nOee7tqPrucfGbLyQkxJ4n +JPT/68/eJ01qaSUmnan6Qew0C5OOAoXDpp2JIKCxE107GYCybb4KnVkQoBU+ +vbJTDyKdy98KdxZDTPtM4eJOM5Ackc+aeSuAhJwW9XdvXeDDXcc9P942QPG0 +kb7hW1+wUhvoGXv7Cu6IBuY96NgHM28Nc0bffgSTOLrfVEsiNJpfLnlZPAEy +CSZeCoHZoPKh+ouv5iy4vRVYioTmg8zu7eWi5sJYJBmW9SCwGLJ0rWodN4vh +8qjh72KXyuBdrk792PJliFbBil8MyyGtJK5tvqIk9q6Tybtaeh1s9YOkZJmS +WHuiaYYmuA5iTS6bV2iRvrFxW0bddTjSr95tZyqJ0iKXVm16ex1iGM++nA6S +RKeDDmdixCohrEjhr0aNJM4UvGmyD6qEjfl8TTsvKVyvFOLVrlYF8qf7j2Vf +kMZV1Vv1Ukx5oLDm5pHpMmkcLw9L9rHigVJDStw2njR+d7my2tCOB9TRVQdW +NErjhpWcoHeuPFC3D/ep/SaNh84+KhsL4MG6BbMG/etksISvfzn8BA+cIuQ+ +6bXIYBY/m1n6mgfOS771nm2XwfEABiHWxQOX4up3f97LYH1IzZHAXh64vdja +9ui7DB6P9x5S+cqDbZqXajxlZfFDhmaDxzQPQj5pn0r0kUX5qcV6Kkp8OOpq +Y/LqpyzWOrytbfPkg9KNVqX58+Qwt2PYTmI7HyqlXad0l8ghJ1QqyHYnH968 +8uadosnhuhfWNkQIH9Q2RjA2Wsvh8/krzznF8KHBoXDhi3NyeL7yHluQz4dZ +q8nW58by+C3fU5TaxYfMsqiKWSt59G7rbGjtIdcvFErV2iiP+/hiItH/8sH+ +4WLTE37y2E5oUR5948N5czphnyGPggNN5zWm+GCEdmeffpDHK+MfGpZLC2A/ +6+L2J4kKeP7gUP+xDQKwLRL/YZeugD4XnVwibQXAEI1Jbc1RwA893t3eDgJ4 +0eHGb7+igKYjv7lqmwSwNnypcG+rAvof6rCO9xbAt7KDZeNKivjQ9eiZ2AgB +bJVxHFYmFHFGY/2ujAsCWBddm1BwVxG9X5XG/C0UwOKPK+VUHyniQnv6reBi +AVRXCYPGO0W8kO92wvCyAOTsqjN15hQx6cfS18U8cv8ENX1LOyVk2M1J1DcI +wOL7r6iwfiVMtl1ZLv9JAIetT69+MKSEfYZJd+Z/EUDlRa0u6Z9KSJlXoDjw +VQAKrj6sajFlfM25//r6oACG7jycEl6rjP99LjFdNCGA7MTMiHOHlLF73ja7 +5fMIaO5epTaUoIxmuZya+vkE/NFvbDdJU8a0FeJJoQsI8P86qffpgjK6XUpS +uytKANvea2xtozJ+S7twQ0ucgI+yGmFNy1RwVikvxleJAPk99yny8io4Y1/+ +uFOZAPtmj+dBdBWMzZiLsKMQcCsqTVNinQp+p9yeVqcTcPzD6MAWDxV0ll93 +o0qdAL2rtQHfi1XwFLMiVk6HgID5m+XNrqlgJtNYb5MuAfleI49O31TBWsto +l3Q9AhaKq2qwm1XQdU1S54Q+AV37Uj4dGVbBgI6wpbksAhKMN+5QMqLgzcan +JevNCLD2Lhg3NKPg9JUmOydzAsTjB5M221NwPNeveZcF+fzG5LJMHwoGh6pb +JVkRcMe2ZnDhMQre2nV6d4YtAXG7RWPVsilorV/7LsWOAKsMV3GzCxSkqNcw +o+0J6Hg5ohPLp6DIf+Mb3R0JGPVgRk68o6Bd3j+6vRsJuB0VLir5iYJnvNMK +b7oQ8E/+vdy1IxTc82t6LHUTAUv73GuD5lOxYOHrDczNBKwISBfqW03FOtro +Kw0PAkZS352a1aeicduWuB7SN8o1mMpARcNRYYXMLQSYjdRbum2i4uVahtR/ +ngR4H5g8/iyaivtnZayCtxGgftZMZSCZiuWBwnuFvAkyPk5eF82kovC0f2YW +6ag/q16YlZD71dbzyrcTYEo9uMOnkorMlnZCx4cAMWwaj71DxZeVOVUC0jlJ +3rLVz6jY0BOaU76DgK2lFWVv3lDxjUNFAt2XAMbjacMffVT83fM5OIs0b3G2 +p/YkFVfwKo2CdxJwULNv0H6OtFUY7QVpE0et2OBFNHQrPiGqt4uAZ6ceF5ZS +aLhab2vff6SzCRndxhU0lGmxagc/Ajxf72jo06Vh24jos1Okvyn8+aRsRcNu +z6z2Vf4EVLFtIlnONMyaLvq0h3Tk1jOi7p40FGtdLiQgLVykszorjIb9btc8 +VwcQ0PIgtrbqEA1j9Vfk+5DO7G+xf55IQ5f8i0NZpN1FFHoH0mm4ZK2VwwPS +1BV+e8TO0nCuDu8Pkv5sLRDSuEhD2FJnLhVIwLXguVPmFTQsZQ9365Pen27P +3HGThh3tf1I3kWZXnrvxz30aOjym2IeRtnjbOjvSTMMDl0zqkkg7Ci3YsP0V +DY+2ibfkkPZYxcps66bhw6zU8BLSO13C3sFnGoYoXhZUkQ6LvsTgjdBwQYT/ +qdukD5V0htCnaXjrTOOyu6QffEnxbBaiY47H3ZX3SFtFq8bFi9Dx2z6n/hrS +TyXuXjJaTMfU+BiTm6SdS9yaR8XpyJw151wj/cZobOiKNB2PWlzuKiTt9TxN +cocCHf+eukLJJN23Q8NAkUKun7MViSXt/7Pe86UqHSE5K8uf9OBxr7hjGnQ8 +OZ30yJ50OO3nJdM1dDy1RL1Ym/Qkkdk8o01HZ/sYDQnSUdZrhvn6dJRXO+X6 +/+8r1PNQMphFx6Y3IVpNpJP3+hgwTOi4JFFWcI704oW/PbvM6Nigktsf8v/z +O58Tl7WBjjqRfxvYpM83tjTP30hHp87Sk63k+dM8/IZrNtPRmxCKyyZdMjQn +ud+TjsdG99E3/z9+ZNd79e+k42OfrthWMr70y9vi8gLpGLpslJNCusYkuGRT +KB37l3nz2KSbAgqHGyPpOCF2ov4cGa82f1hSMdF0PLLsgLcF6dbMDgP9eDoG +HRK+PUjG+7vqRfElx+iomxCcr0N6ZEmEVHI+HS13fHfLJvNpf5G4IfciHRMH +s74xSU/rX/WaLKWj+rVCLp/MP2Hv3hK/KjrutfEzaCDzVYFnbWjVQMdYob6E +e2S+X7Do9/r7iI5ujQsd9Ukz3sXG33pKx+GvaV8ubyVAaz7xROM1HfMy2AnJ +XmT9cKVsFf1Gx+2bZWKVyHqye3osvnmZKmY6Hs28RtYn9l5/uS9Sqmh5RexB +H1m/xAa6KoQVVHGAcLGQJF3a3fjGhKGKTy5a2AQ4E9Bbl6N500AVldXHIr+S +9dEpmdV5cbsqes9Tv82yJPPn7/XQ+7tUUdu+tGUdWX+HIhnCPUGq+GJrqM1q +sj6nBi5ZqxChigGnZU8uNSWg3q4nKSNVFVP+rfMvMyb7hVSCdjRfFd87aZbr +rCPjI22yKfeWKm53LdAeJ/tFq3Cw561aVdy8ppHFI/tJyKRL8thDVTxeVPBR +dS153p1q3QFdqli9mHKjeyUBcoXNKa7CDAyXmGgqJ/vVzJrlvVqbGZg1NcJt +IPvhzwtKCes8GciY7vShCRPwQ0JdjbWdgVM9lK2HyX46MsEKtghi4Pdog4/M +vwL4WLvzp2csA1eGsT03TQmgxe62eGopAw9/9wmk/CeA8yHe8HGSge9nfmUH +tQjgbE/gx6+/GHjk6+qJXc0COO20P3l4joEXi15t3/ZIABnrUp9OL2LiZfdN +gZbkfJD4m+8uQWVigdVdv/FqAYSkiYQbWzHR0Xkw88EVARhXXCs6c4aJsZ+Z +d/CIALrpFYWWeUxMTmAzFicKIOrM1YIfhUy8Yfl3zcs4AdxOKMt3ucrET10m +ah7RAtDzKMoVv8vEormTbTb7BLBK5HRmyr9MHCQaN97bTs4v26PjIzXV8GCr +tex3IwGMSdn6uDWo4Y/q0K+tn/jQuZvxIvixGroZ0K+3kfNb/aNfEPdMDbMX +NMq09pLzXlQF7cobNfyoufNlYycfdD4u/TAzoIamdl362c/4EMZv23ZBWh2f +XE23ayT4MOC02evTLnXsuQs/D8Tz4VO6j9s+UQ3s+nnt8ElpPth8P2jz2WAF +eux8XXJZnwdDO8X234hbidOqe0OzPSrJ/w35+UcbVqHiPZ6Vr+41kHqukcH7 +vhopjs5zHtRyUEmtcjYw0ETj11ezF3Rehtw1rOXSAVrY9UDk8ovaUmhRMl0/ +cWotJp4eMfS6eQnYKg2Z2m+0caJNZ2ftmYsgLlwcsSNRB9X1ddkKQYVATaAZ +b9HQRZ0ucwmzrDxYpL71lstjXay40JnmKp0La7mKVQe36aHc6a1Hh6VyYF+v +VKOt0Dp8biFw+6ycBd8n0jfb5K5DTa9xEx32Sdig/ei8jZY+MlTNJ56+Pg51 +E5zfU636qKDgqlmWlwJhmnpdL/3Wo0smzyxdLQm4I7s6tiwywECTun8L6uLA +Uk3BYVmxAa7ao3pLLCoKVsYfP9RgaIjTIqbDi0UjYbUf6756lyFKP5CxeT64 +F04yHH8lvTfEBxUFjs09e+HHB9/1H3sN0fOa08lnbXuhzjO9oqDfEIOUrHmj +xF5wcf5wVn7YELPZlybKYvbCYU5y+CIhI1QoGT//WGIvNEu+VB1WN0KbjNaQ +GuNw8KsLPHJjrxHOy1ic+69PKIyEDhy0jDDCJ2ufy63fEAqHKLtD3kQaoelX +f0GeVigcj9njMh1thLJDnTLFv3YDjx1JN04xQoP8nR5ZObvhz62ku43njXDO +7Vr4VGsIZFUV/HjVaIRUk0u6x5yC4X5Rx64xWRb+dPmpHpccAH32qtsjFVhY +U9DoeTU8AIRmQrf8VmJhw8yryH6vADDbKOooQmdhx84Kk6N6AfBoHttQcTUL +R7rPCaf3+cMz38JFpiYsrGIG0RLBH7rUgisz/Vn4Z9+k5gcxP/hxZW5K+zYL +Pw+vqfR67Atf3KyKjlWz0LXFbMW2277QueCEdX8tC5ffq40OvuwLtT5K587U +s/CbXu75K0d9IVFhPXv2CQv/2TQwwLf2heWpwTEt71lYWjZ8c/zZDtAMeC3k +N5+Ncukq//zp8YGd6hWLzjuw0ZhHjwox9Yaoh97BGs5sXFHcevWmmjdk+kk9 +FbiwUcKtvFFezBvulh5Of+rOxhztyghm2zaQ0bCWmN3Bxppb7xe4e2+DRxqf +ZXwi2di/6OU9esJWWL2SRtcoZKPpaIF821tPGFudbSAYZSO7lpha98gdOp+h +pfQEG/M3scdSeO5QHzayKWKSjUbnIgMHz7tDhsBmr8EvNnrZz7v4bY87rGYL +XasR5iA9THdcoOQOvjahqo1yHGyxG/8cs98NOgI2LO0w5uBcv219ju5muFPy ++9/JVA7WiTYPBfe4gIF5xJRtGgfbmE/6VJ65wM1/h5YWneBgSnH6r/c1LiCg +9hraZnFw6RLOoaO5LnAtt/5EQR4H0zA87YirCxSlJ7M2VHJw/6fYPLm2jXAs +QuJUbjsHq3j3q91bncHTgokcqjF2R268feqLA8x2iIk30o1x6aBVkFSzAxT5 +jXTbMo0xaEx2XtVVB/iSUn3Qc6UxZha9O84JdYB9T5yqDusZo3nAwrLCSXs4 +7hhDvWNljH70EGrCEnuo8Xj9R3+PMT72l+mVsbMF5dCj1WvrjfGM0IIeUdkN +kDHnvz6tgbTduHD0XyuYn2XF/9pE3i9uvXT+NysYuCVyteiJMc7U7D5iV2sF +NUJHcqXajfFgYHhIi68VeJ6OP/jzszH+NpWZCb5pCbm1h9fXLeFi0/MrMi8C +LWCp4xa+kjgXu10HrhS7WkB8n5HWweVc9AudtDmKFhAoMq2mI8tFXuKaqBQF +CzB0ipQppnKRunvLEq8n5vDm476JZF0uLngc0+a81hxkF+/mO7hz0V7/bJ6E +iBmUmMdGjW7hovVQydmxUVPQi80wz97KRavZtxNf35uC4yjvdecOLv6NjDwi +edMUUt5MzuzczUXRvM8Sbv6mMF0cZxaVwEWn3CCLnGcIXZzs9rIKLnaqxL/8 +5AgQeKAk36aSizemLjyIWQPws/Km3xCPi76Z+jSWGIAUo3NK9xYXFbP+FlAb +TMBOjKJyr56LFeEPlM8ZmsDdjrJd7a+5GHGwoEp7FRdsxe9oRXZy8dfMOcM5 +US50bnjyU6GbfB+vzpVjX4zhR81gqncfF8/NejzhlBqD1kWd6/8NcPF6ieHZ +QKYx3O0yjUwf5mIIfe/sBmFjsJXZBNqjXDS/1dJu3c8B/6MHXkZMctHmzBK3 +yksc+FGfcl5+mouDo41NUkc4kPjr7M6aX1x0DjNZlbuLA8v1r2pum+Vi0j2K +n4klBwpCaybn5ri4vkbZU0SDA/8D0iDL3g== + "]]}, + 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:eJwV13k4VG0bAHAl0Ub2dRYzaCNLwswY923NThKiJGWPVFJZXlukSCKlCAkV +xcycNpSESioqKhF50/basiRU8p3vr3P9rus857nOee7tqPrucfGbLyQkxJ4n +JPT/68/eJ01qaSUmnan6Qew0C5OOAoXDpp2JIKCxE107GYCybb4KnVkQoBU+ +vbJTDyKdy98KdxZDTPtM4eJOM5Ackc+aeSuAhJwW9XdvXeDDXcc9P942QPG0 +kb7hW1+wUhvoGXv7Cu6IBuY96NgHM28Nc0bffgSTOLrfVEsiNJpfLnlZPAEy +CSZeCoHZoPKh+ouv5iy4vRVYioTmg8zu7eWi5sJYJBmW9SCwGLJ0rWodN4vh +8qjh72KXyuBdrk792PJliFbBil8MyyGtJK5tvqIk9q6Tybtaeh1s9YOkZJmS +WHuiaYYmuA5iTS6bV2iRvrFxW0bddTjSr95tZyqJ0iKXVm16ex1iGM++nA6S +RKeDDmdixCohrEjhr0aNJM4UvGmyD6qEjfl8TTsvKVyvFOLVrlYF8qf7j2Vf +kMZV1Vv1Ukx5oLDm5pHpMmkcLw9L9rHigVJDStw2njR+d7my2tCOB9TRVQdW +NErjhpWcoHeuPFC3D/ep/SaNh84+KhsL4MG6BbMG/etksISvfzn8BA+cIuQ+ +6bXIYBY/m1n6mgfOS771nm2XwfEABiHWxQOX4up3f97LYH1IzZHAXh64vdja +9ui7DB6P9x5S+cqDbZqXajxlZfFDhmaDxzQPQj5pn0r0kUX5qcV6Kkp8OOpq +Y/LqpyzWOrytbfPkg9KNVqX58+Qwt2PYTmI7HyqlXad0l8ghJ1QqyHYnH968 +8uadosnhuhfWNkQIH9Q2RjA2Wsvh8/krzznF8KHBoXDhi3NyeL7yHluQz4dZ +q8nW58by+C3fU5TaxYfMsqiKWSt59G7rbGjtIdcvFErV2iiP+/hiItH/8sH+ +4WLTE37y2E5oUR5948N5czphnyGPggNN5zWm+GCEdmeffpDHK+MfGpZLC2A/ +6+L2J4kKeP7gUP+xDQKwLRL/YZeugD4XnVwibQXAEI1Jbc1RwA893t3eDgJ4 +0eHGb7+igKYjv7lqmwSwNnypcG+rAvof6rCO9xbAt7KDZeNKivjQ9eiZ2AgB +bJVxHFYmFHFGY/2ujAsCWBddm1BwVxG9X5XG/C0UwOKPK+VUHyniQnv6reBi +AVRXCYPGO0W8kO92wvCyAOTsqjN15hQx6cfS18U8cv8ENX1LOyVk2M1J1DcI +wOL7r6iwfiVMtl1ZLv9JAIetT69+MKSEfYZJd+Z/EUDlRa0u6Z9KSJlXoDjw +VQAKrj6sajFlfM25//r6oACG7jycEl6rjP99LjFdNCGA7MTMiHOHlLF73ja7 +5fMIaO5epTaUoIxmuZya+vkE/NFvbDdJU8a0FeJJoQsI8P86qffpgjK6XUpS +uytKANvea2xtozJ+S7twQ0ucgI+yGmFNy1RwVikvxleJAPk99yny8io4Y1/+ +uFOZAPtmj+dBdBWMzZiLsKMQcCsqTVNinQp+p9yeVqcTcPzD6MAWDxV0ll93 +o0qdAL2rtQHfi1XwFLMiVk6HgID5m+XNrqlgJtNYb5MuAfleI49O31TBWsto +l3Q9AhaKq2qwm1XQdU1S54Q+AV37Uj4dGVbBgI6wpbksAhKMN+5QMqLgzcan +JevNCLD2Lhg3NKPg9JUmOydzAsTjB5M221NwPNeveZcF+fzG5LJMHwoGh6pb +JVkRcMe2ZnDhMQre2nV6d4YtAXG7RWPVsilorV/7LsWOAKsMV3GzCxSkqNcw +o+0J6Hg5ohPLp6DIf+Mb3R0JGPVgRk68o6Bd3j+6vRsJuB0VLir5iYJnvNMK +b7oQ8E/+vdy1IxTc82t6LHUTAUv73GuD5lOxYOHrDczNBKwISBfqW03FOtro +Kw0PAkZS352a1aeicduWuB7SN8o1mMpARcNRYYXMLQSYjdRbum2i4uVahtR/ +ngR4H5g8/iyaivtnZayCtxGgftZMZSCZiuWBwnuFvAkyPk5eF82kovC0f2YW +6ag/q16YlZD71dbzyrcTYEo9uMOnkorMlnZCx4cAMWwaj71DxZeVOVUC0jlJ +3rLVz6jY0BOaU76DgK2lFWVv3lDxjUNFAt2XAMbjacMffVT83fM5OIs0b3G2 +p/YkFVfwKo2CdxJwULNv0H6OtFUY7QVpE0et2OBFNHQrPiGqt4uAZ6ceF5ZS +aLhab2vff6SzCRndxhU0lGmxagc/Ajxf72jo06Vh24jos1Okvyn8+aRsRcNu +z6z2Vf4EVLFtIlnONMyaLvq0h3Tk1jOi7p40FGtdLiQgLVykszorjIb9btc8 +VwcQ0PIgtrbqEA1j9Vfk+5DO7G+xf55IQ5f8i0NZpN1FFHoH0mm4ZK2VwwPS +1BV+e8TO0nCuDu8Pkv5sLRDSuEhD2FJnLhVIwLXguVPmFTQsZQ9365Pen27P +3HGThh3tf1I3kWZXnrvxz30aOjym2IeRtnjbOjvSTMMDl0zqkkg7Ci3YsP0V +DY+2ibfkkPZYxcps66bhw6zU8BLSO13C3sFnGoYoXhZUkQ6LvsTgjdBwQYT/ +qdukD5V0htCnaXjrTOOyu6QffEnxbBaiY47H3ZX3SFtFq8bFi9Dx2z6n/hrS +TyXuXjJaTMfU+BiTm6SdS9yaR8XpyJw151wj/cZobOiKNB2PWlzuKiTt9TxN +cocCHf+eukLJJN23Q8NAkUKun7MViSXt/7Pe86UqHSE5K8uf9OBxr7hjGnQ8 +OZ30yJ50OO3nJdM1dDy1RL1Ym/Qkkdk8o01HZ/sYDQnSUdZrhvn6dJRXO+X6 +/+8r1PNQMphFx6Y3IVpNpJP3+hgwTOi4JFFWcI704oW/PbvM6Nigktsf8v/z +O58Tl7WBjjqRfxvYpM83tjTP30hHp87Sk63k+dM8/IZrNtPRmxCKyyZdMjQn +ud+TjsdG99E3/z9+ZNd79e+k42OfrthWMr70y9vi8gLpGLpslJNCusYkuGRT +KB37l3nz2KSbAgqHGyPpOCF2ov4cGa82f1hSMdF0PLLsgLcF6dbMDgP9eDoG +HRK+PUjG+7vqRfElx+iomxCcr0N6ZEmEVHI+HS13fHfLJvNpf5G4IfciHRMH +s74xSU/rX/WaLKWj+rVCLp/MP2Hv3hK/KjrutfEzaCDzVYFnbWjVQMdYob6E +e2S+X7Do9/r7iI5ujQsd9Ukz3sXG33pKx+GvaV8ubyVAaz7xROM1HfMy2AnJ +XmT9cKVsFf1Gx+2bZWKVyHqye3osvnmZKmY6Hs28RtYn9l5/uS9Sqmh5RexB +H1m/xAa6KoQVVHGAcLGQJF3a3fjGhKGKTy5a2AQ4E9Bbl6N500AVldXHIr+S +9dEpmdV5cbsqes9Tv82yJPPn7/XQ+7tUUdu+tGUdWX+HIhnCPUGq+GJrqM1q +sj6nBi5ZqxChigGnZU8uNSWg3q4nKSNVFVP+rfMvMyb7hVSCdjRfFd87aZbr +rCPjI22yKfeWKm53LdAeJ/tFq3Cw561aVdy8ppHFI/tJyKRL8thDVTxeVPBR +dS153p1q3QFdqli9mHKjeyUBcoXNKa7CDAyXmGgqJ/vVzJrlvVqbGZg1NcJt +IPvhzwtKCes8GciY7vShCRPwQ0JdjbWdgVM9lK2HyX46MsEKtghi4Pdog4/M +vwL4WLvzp2csA1eGsT03TQmgxe62eGopAw9/9wmk/CeA8yHe8HGSge9nfmUH +tQjgbE/gx6+/GHjk6+qJXc0COO20P3l4joEXi15t3/ZIABnrUp9OL2LiZfdN +gZbkfJD4m+8uQWVigdVdv/FqAYSkiYQbWzHR0Xkw88EVARhXXCs6c4aJsZ+Z +d/CIALrpFYWWeUxMTmAzFicKIOrM1YIfhUy8Yfl3zcs4AdxOKMt3ucrET10m +ah7RAtDzKMoVv8vEormTbTb7BLBK5HRmyr9MHCQaN97bTs4v26PjIzXV8GCr +tex3IwGMSdn6uDWo4Y/q0K+tn/jQuZvxIvixGroZ0K+3kfNb/aNfEPdMDbMX +NMq09pLzXlQF7cobNfyoufNlYycfdD4u/TAzoIamdl362c/4EMZv23ZBWh2f +XE23ayT4MOC02evTLnXsuQs/D8Tz4VO6j9s+UQ3s+nnt8ElpPth8P2jz2WAF +eux8XXJZnwdDO8X234hbidOqe0OzPSrJ/w35+UcbVqHiPZ6Vr+41kHqukcH7 +vhopjs5zHtRyUEmtcjYw0ETj11ezF3Rehtw1rOXSAVrY9UDk8ovaUmhRMl0/ +cWotJp4eMfS6eQnYKg2Z2m+0caJNZ2ftmYsgLlwcsSNRB9X1ddkKQYVATaAZ +b9HQRZ0ucwmzrDxYpL71lstjXay40JnmKp0La7mKVQe36aHc6a1Hh6VyYF+v +VKOt0Dp8biFw+6ycBd8n0jfb5K5DTa9xEx32Sdig/ei8jZY+MlTNJ56+Pg51 +E5zfU636qKDgqlmWlwJhmnpdL/3Wo0smzyxdLQm4I7s6tiwywECTun8L6uLA +Uk3BYVmxAa7ao3pLLCoKVsYfP9RgaIjTIqbDi0UjYbUf6756lyFKP5CxeT64 +F04yHH8lvTfEBxUFjs09e+HHB9/1H3sN0fOa08lnbXuhzjO9oqDfEIOUrHmj +xF5wcf5wVn7YELPZlybKYvbCYU5y+CIhI1QoGT//WGIvNEu+VB1WN0KbjNaQ +GuNw8KsLPHJjrxHOy1ic+69PKIyEDhy0jDDCJ2ufy63fEAqHKLtD3kQaoelX +f0GeVigcj9njMh1thLJDnTLFv3YDjx1JN04xQoP8nR5ZObvhz62ku43njXDO +7Vr4VGsIZFUV/HjVaIRUk0u6x5yC4X5Rx64xWRb+dPmpHpccAH32qtsjFVhY +U9DoeTU8AIRmQrf8VmJhw8yryH6vADDbKOooQmdhx84Kk6N6AfBoHttQcTUL +R7rPCaf3+cMz38JFpiYsrGIG0RLBH7rUgisz/Vn4Z9+k5gcxP/hxZW5K+zYL +Pw+vqfR67Atf3KyKjlWz0LXFbMW2277QueCEdX8tC5ffq40OvuwLtT5K587U +s/CbXu75K0d9IVFhPXv2CQv/2TQwwLf2heWpwTEt71lYWjZ8c/zZDtAMeC3k +N5+Ncukq//zp8YGd6hWLzjuw0ZhHjwox9Yaoh97BGs5sXFHcevWmmjdk+kk9 +FbiwUcKtvFFezBvulh5Of+rOxhztyghm2zaQ0bCWmN3Bxppb7xe4e2+DRxqf +ZXwi2di/6OU9esJWWL2SRtcoZKPpaIF821tPGFudbSAYZSO7lpha98gdOp+h +pfQEG/M3scdSeO5QHzayKWKSjUbnIgMHz7tDhsBmr8EvNnrZz7v4bY87rGYL +XasR5iA9THdcoOQOvjahqo1yHGyxG/8cs98NOgI2LO0w5uBcv219ju5muFPy ++9/JVA7WiTYPBfe4gIF5xJRtGgfbmE/6VJ65wM1/h5YWneBgSnH6r/c1LiCg +9hraZnFw6RLOoaO5LnAtt/5EQR4H0zA87YirCxSlJ7M2VHJw/6fYPLm2jXAs +QuJUbjsHq3j3q91bncHTgokcqjF2R268feqLA8x2iIk30o1x6aBVkFSzAxT5 +jXTbMo0xaEx2XtVVB/iSUn3Qc6UxZha9O84JdYB9T5yqDusZo3nAwrLCSXs4 +7hhDvWNljH70EGrCEnuo8Xj9R3+PMT72l+mVsbMF5dCj1WvrjfGM0IIeUdkN +kDHnvz6tgbTduHD0XyuYn2XF/9pE3i9uvXT+NysYuCVyteiJMc7U7D5iV2sF +NUJHcqXajfFgYHhIi68VeJ6OP/jzszH+NpWZCb5pCbm1h9fXLeFi0/MrMi8C +LWCp4xa+kjgXu10HrhS7WkB8n5HWweVc9AudtDmKFhAoMq2mI8tFXuKaqBQF +CzB0ipQppnKRunvLEq8n5vDm476JZF0uLngc0+a81hxkF+/mO7hz0V7/bJ6E +iBmUmMdGjW7hovVQydmxUVPQi80wz97KRavZtxNf35uC4yjvdecOLv6NjDwi +edMUUt5MzuzczUXRvM8Sbv6mMF0cZxaVwEWn3CCLnGcIXZzs9rIKLnaqxL/8 +5AgQeKAk36aSizemLjyIWQPws/Km3xCPi76Z+jSWGIAUo3NK9xYXFbP+FlAb +TMBOjKJyr56LFeEPlM8ZmsDdjrJd7a+5GHGwoEp7FRdsxe9oRXZy8dfMOcM5 +US50bnjyU6GbfB+vzpVjX4zhR81gqncfF8/NejzhlBqD1kWd6/8NcPF6ieHZ +QKYx3O0yjUwf5mIIfe/sBmFjsJXZBNqjXDS/1dJu3c8B/6MHXkZMctHmzBK3 +yksc+FGfcl5+mouDo41NUkc4kPjr7M6aX1x0DjNZlbuLA8v1r2pum+Vi0j2K +n4klBwpCaybn5ri4vkbZU0SDA/8D0iDL3g== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.075816938824888}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.075816938824888}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJwV13k4VG0bAHAl0Ub2dRYzaCNLwswY923NThKiJGWPVFJZXlukSCKlCAkV +xcycNpSESioqKhF50/basiRU8p3vr3P9rus857nOee7tqPrucfGbLyQkxJ4n +JPT/68/eJ01qaSUmnan6Qew0C5OOAoXDpp2JIKCxE107GYCybb4KnVkQoBU+ +vbJTDyKdy98KdxZDTPtM4eJOM5Ackc+aeSuAhJwW9XdvXeDDXcc9P942QPG0 +kb7hW1+wUhvoGXv7Cu6IBuY96NgHM28Nc0bffgSTOLrfVEsiNJpfLnlZPAEy +CSZeCoHZoPKh+ouv5iy4vRVYioTmg8zu7eWi5sJYJBmW9SCwGLJ0rWodN4vh +8qjh72KXyuBdrk792PJliFbBil8MyyGtJK5tvqIk9q6Tybtaeh1s9YOkZJmS +WHuiaYYmuA5iTS6bV2iRvrFxW0bddTjSr95tZyqJ0iKXVm16ex1iGM++nA6S +RKeDDmdixCohrEjhr0aNJM4UvGmyD6qEjfl8TTsvKVyvFOLVrlYF8qf7j2Vf +kMZV1Vv1Ukx5oLDm5pHpMmkcLw9L9rHigVJDStw2njR+d7my2tCOB9TRVQdW +NErjhpWcoHeuPFC3D/ep/SaNh84+KhsL4MG6BbMG/etksISvfzn8BA+cIuQ+ +6bXIYBY/m1n6mgfOS771nm2XwfEABiHWxQOX4up3f97LYH1IzZHAXh64vdja +9ui7DB6P9x5S+cqDbZqXajxlZfFDhmaDxzQPQj5pn0r0kUX5qcV6Kkp8OOpq +Y/LqpyzWOrytbfPkg9KNVqX58+Qwt2PYTmI7HyqlXad0l8ghJ1QqyHYnH968 +8uadosnhuhfWNkQIH9Q2RjA2Wsvh8/krzznF8KHBoXDhi3NyeL7yHluQz4dZ +q8nW58by+C3fU5TaxYfMsqiKWSt59G7rbGjtIdcvFErV2iiP+/hiItH/8sH+ +4WLTE37y2E5oUR5948N5czphnyGPggNN5zWm+GCEdmeffpDHK+MfGpZLC2A/ +6+L2J4kKeP7gUP+xDQKwLRL/YZeugD4XnVwibQXAEI1Jbc1RwA893t3eDgJ4 +0eHGb7+igKYjv7lqmwSwNnypcG+rAvof6rCO9xbAt7KDZeNKivjQ9eiZ2AgB +bJVxHFYmFHFGY/2ujAsCWBddm1BwVxG9X5XG/C0UwOKPK+VUHyniQnv6reBi +AVRXCYPGO0W8kO92wvCyAOTsqjN15hQx6cfS18U8cv8ENX1LOyVk2M1J1DcI +wOL7r6iwfiVMtl1ZLv9JAIetT69+MKSEfYZJd+Z/EUDlRa0u6Z9KSJlXoDjw +VQAKrj6sajFlfM25//r6oACG7jycEl6rjP99LjFdNCGA7MTMiHOHlLF73ja7 +5fMIaO5epTaUoIxmuZya+vkE/NFvbDdJU8a0FeJJoQsI8P86qffpgjK6XUpS +uytKANvea2xtozJ+S7twQ0ucgI+yGmFNy1RwVikvxleJAPk99yny8io4Y1/+ +uFOZAPtmj+dBdBWMzZiLsKMQcCsqTVNinQp+p9yeVqcTcPzD6MAWDxV0ll93 +o0qdAL2rtQHfi1XwFLMiVk6HgID5m+XNrqlgJtNYb5MuAfleI49O31TBWsto +l3Q9AhaKq2qwm1XQdU1S54Q+AV37Uj4dGVbBgI6wpbksAhKMN+5QMqLgzcan +JevNCLD2Lhg3NKPg9JUmOydzAsTjB5M221NwPNeveZcF+fzG5LJMHwoGh6pb +JVkRcMe2ZnDhMQre2nV6d4YtAXG7RWPVsilorV/7LsWOAKsMV3GzCxSkqNcw +o+0J6Hg5ohPLp6DIf+Mb3R0JGPVgRk68o6Bd3j+6vRsJuB0VLir5iYJnvNMK +b7oQ8E/+vdy1IxTc82t6LHUTAUv73GuD5lOxYOHrDczNBKwISBfqW03FOtro +Kw0PAkZS352a1aeicduWuB7SN8o1mMpARcNRYYXMLQSYjdRbum2i4uVahtR/ +ngR4H5g8/iyaivtnZayCtxGgftZMZSCZiuWBwnuFvAkyPk5eF82kovC0f2YW +6ag/q16YlZD71dbzyrcTYEo9uMOnkorMlnZCx4cAMWwaj71DxZeVOVUC0jlJ +3rLVz6jY0BOaU76DgK2lFWVv3lDxjUNFAt2XAMbjacMffVT83fM5OIs0b3G2 +p/YkFVfwKo2CdxJwULNv0H6OtFUY7QVpE0et2OBFNHQrPiGqt4uAZ6ceF5ZS +aLhab2vff6SzCRndxhU0lGmxagc/Ajxf72jo06Vh24jos1Okvyn8+aRsRcNu +z6z2Vf4EVLFtIlnONMyaLvq0h3Tk1jOi7p40FGtdLiQgLVykszorjIb9btc8 +VwcQ0PIgtrbqEA1j9Vfk+5DO7G+xf55IQ5f8i0NZpN1FFHoH0mm4ZK2VwwPS +1BV+e8TO0nCuDu8Pkv5sLRDSuEhD2FJnLhVIwLXguVPmFTQsZQ9365Pen27P +3HGThh3tf1I3kWZXnrvxz30aOjym2IeRtnjbOjvSTMMDl0zqkkg7Ci3YsP0V +DY+2ibfkkPZYxcps66bhw6zU8BLSO13C3sFnGoYoXhZUkQ6LvsTgjdBwQYT/ +qdukD5V0htCnaXjrTOOyu6QffEnxbBaiY47H3ZX3SFtFq8bFi9Dx2z6n/hrS +TyXuXjJaTMfU+BiTm6SdS9yaR8XpyJw151wj/cZobOiKNB2PWlzuKiTt9TxN +cocCHf+eukLJJN23Q8NAkUKun7MViSXt/7Pe86UqHSE5K8uf9OBxr7hjGnQ8 +OZ30yJ50OO3nJdM1dDy1RL1Ym/Qkkdk8o01HZ/sYDQnSUdZrhvn6dJRXO+X6 +/+8r1PNQMphFx6Y3IVpNpJP3+hgwTOi4JFFWcI704oW/PbvM6Nigktsf8v/z +O58Tl7WBjjqRfxvYpM83tjTP30hHp87Sk63k+dM8/IZrNtPRmxCKyyZdMjQn +ud+TjsdG99E3/z9+ZNd79e+k42OfrthWMr70y9vi8gLpGLpslJNCusYkuGRT +KB37l3nz2KSbAgqHGyPpOCF2ov4cGa82f1hSMdF0PLLsgLcF6dbMDgP9eDoG +HRK+PUjG+7vqRfElx+iomxCcr0N6ZEmEVHI+HS13fHfLJvNpf5G4IfciHRMH +s74xSU/rX/WaLKWj+rVCLp/MP2Hv3hK/KjrutfEzaCDzVYFnbWjVQMdYob6E +e2S+X7Do9/r7iI5ujQsd9Ukz3sXG33pKx+GvaV8ubyVAaz7xROM1HfMy2AnJ +XmT9cKVsFf1Gx+2bZWKVyHqye3osvnmZKmY6Hs28RtYn9l5/uS9Sqmh5RexB +H1m/xAa6KoQVVHGAcLGQJF3a3fjGhKGKTy5a2AQ4E9Bbl6N500AVldXHIr+S +9dEpmdV5cbsqes9Tv82yJPPn7/XQ+7tUUdu+tGUdWX+HIhnCPUGq+GJrqM1q +sj6nBi5ZqxChigGnZU8uNSWg3q4nKSNVFVP+rfMvMyb7hVSCdjRfFd87aZbr +rCPjI22yKfeWKm53LdAeJ/tFq3Cw561aVdy8ppHFI/tJyKRL8thDVTxeVPBR +dS153p1q3QFdqli9mHKjeyUBcoXNKa7CDAyXmGgqJ/vVzJrlvVqbGZg1NcJt +IPvhzwtKCes8GciY7vShCRPwQ0JdjbWdgVM9lK2HyX46MsEKtghi4Pdog4/M +vwL4WLvzp2csA1eGsT03TQmgxe62eGopAw9/9wmk/CeA8yHe8HGSge9nfmUH +tQjgbE/gx6+/GHjk6+qJXc0COO20P3l4joEXi15t3/ZIABnrUp9OL2LiZfdN +gZbkfJD4m+8uQWVigdVdv/FqAYSkiYQbWzHR0Xkw88EVARhXXCs6c4aJsZ+Z +d/CIALrpFYWWeUxMTmAzFicKIOrM1YIfhUy8Yfl3zcs4AdxOKMt3ucrET10m +ah7RAtDzKMoVv8vEormTbTb7BLBK5HRmyr9MHCQaN97bTs4v26PjIzXV8GCr +tex3IwGMSdn6uDWo4Y/q0K+tn/jQuZvxIvixGroZ0K+3kfNb/aNfEPdMDbMX +NMq09pLzXlQF7cobNfyoufNlYycfdD4u/TAzoIamdl362c/4EMZv23ZBWh2f +XE23ayT4MOC02evTLnXsuQs/D8Tz4VO6j9s+UQ3s+nnt8ElpPth8P2jz2WAF +eux8XXJZnwdDO8X234hbidOqe0OzPSrJ/w35+UcbVqHiPZ6Vr+41kHqukcH7 +vhopjs5zHtRyUEmtcjYw0ETj11ezF3Rehtw1rOXSAVrY9UDk8ovaUmhRMl0/ +cWotJp4eMfS6eQnYKg2Z2m+0caJNZ2ftmYsgLlwcsSNRB9X1ddkKQYVATaAZ +b9HQRZ0ucwmzrDxYpL71lstjXay40JnmKp0La7mKVQe36aHc6a1Hh6VyYF+v +VKOt0Dp8biFw+6ycBd8n0jfb5K5DTa9xEx32Sdig/ei8jZY+MlTNJ56+Pg51 +E5zfU636qKDgqlmWlwJhmnpdL/3Wo0smzyxdLQm4I7s6tiwywECTun8L6uLA +Uk3BYVmxAa7ao3pLLCoKVsYfP9RgaIjTIqbDi0UjYbUf6756lyFKP5CxeT64 +F04yHH8lvTfEBxUFjs09e+HHB9/1H3sN0fOa08lnbXuhzjO9oqDfEIOUrHmj +xF5wcf5wVn7YELPZlybKYvbCYU5y+CIhI1QoGT//WGIvNEu+VB1WN0KbjNaQ +GuNw8KsLPHJjrxHOy1ic+69PKIyEDhy0jDDCJ2ufy63fEAqHKLtD3kQaoelX +f0GeVigcj9njMh1thLJDnTLFv3YDjx1JN04xQoP8nR5ZObvhz62ku43njXDO +7Vr4VGsIZFUV/HjVaIRUk0u6x5yC4X5Rx64xWRb+dPmpHpccAH32qtsjFVhY +U9DoeTU8AIRmQrf8VmJhw8yryH6vADDbKOooQmdhx84Kk6N6AfBoHttQcTUL +R7rPCaf3+cMz38JFpiYsrGIG0RLBH7rUgisz/Vn4Z9+k5gcxP/hxZW5K+zYL +Pw+vqfR67Atf3KyKjlWz0LXFbMW2277QueCEdX8tC5ffq40OvuwLtT5K587U +s/CbXu75K0d9IVFhPXv2CQv/2TQwwLf2heWpwTEt71lYWjZ8c/zZDtAMeC3k +N5+Ncukq//zp8YGd6hWLzjuw0ZhHjwox9Yaoh97BGs5sXFHcevWmmjdk+kk9 +FbiwUcKtvFFezBvulh5Of+rOxhztyghm2zaQ0bCWmN3Bxppb7xe4e2+DRxqf +ZXwi2di/6OU9esJWWL2SRtcoZKPpaIF821tPGFudbSAYZSO7lpha98gdOp+h +pfQEG/M3scdSeO5QHzayKWKSjUbnIgMHz7tDhsBmr8EvNnrZz7v4bY87rGYL +XasR5iA9THdcoOQOvjahqo1yHGyxG/8cs98NOgI2LO0w5uBcv219ju5muFPy ++9/JVA7WiTYPBfe4gIF5xJRtGgfbmE/6VJ65wM1/h5YWneBgSnH6r/c1LiCg +9hraZnFw6RLOoaO5LnAtt/5EQR4H0zA87YirCxSlJ7M2VHJw/6fYPLm2jXAs +QuJUbjsHq3j3q91bncHTgokcqjF2R268feqLA8x2iIk30o1x6aBVkFSzAxT5 +jXTbMo0xaEx2XtVVB/iSUn3Qc6UxZha9O84JdYB9T5yqDusZo3nAwrLCSXs4 +7hhDvWNljH70EGrCEnuo8Xj9R3+PMT72l+mVsbMF5dCj1WvrjfGM0IIeUdkN +kDHnvz6tgbTduHD0XyuYn2XF/9pE3i9uvXT+NysYuCVyteiJMc7U7D5iV2sF +NUJHcqXajfFgYHhIi68VeJ6OP/jzszH+NpWZCb5pCbm1h9fXLeFi0/MrMi8C +LWCp4xa+kjgXu10HrhS7WkB8n5HWweVc9AudtDmKFhAoMq2mI8tFXuKaqBQF +CzB0ipQppnKRunvLEq8n5vDm476JZF0uLngc0+a81hxkF+/mO7hz0V7/bJ6E +iBmUmMdGjW7hovVQydmxUVPQi80wz97KRavZtxNf35uC4yjvdecOLv6NjDwi +edMUUt5MzuzczUXRvM8Sbv6mMF0cZxaVwEWn3CCLnGcIXZzs9rIKLnaqxL/8 +5AgQeKAk36aSizemLjyIWQPws/Km3xCPi76Z+jSWGIAUo3NK9xYXFbP+FlAb +TMBOjKJyr56LFeEPlM8ZmsDdjrJd7a+5GHGwoEp7FRdsxe9oRXZy8dfMOcM5 +US50bnjyU6GbfB+vzpVjX4zhR81gqncfF8/NejzhlBqD1kWd6/8NcPF6ieHZ +QKYx3O0yjUwf5mIIfe/sBmFjsJXZBNqjXDS/1dJu3c8B/6MHXkZMctHmzBK3 +yksc+FGfcl5+mouDo41NUkc4kPjr7M6aX1x0DjNZlbuLA8v1r2pum+Vi0j2K +n4klBwpCaybn5ri4vkbZU0SDA/8D0iDL3g== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.075816938824888}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.075816938824888}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993961291105694*^9}, + CellLabel-> + "Out[118]=",ExpressionUUID->"5aca1aac-2e03-4190-bf0b-17bd8788e1d8"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", - RowBox[{"x", ",", "xx"}], "]"}]], "Input",ExpressionUUID->"344da507-9044-\ -ef47-aa8c-99f282e3d6d3"], + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellLabel-> + "In[119]:=",ExpressionUUID->"344da507-9044-ef47-aa8c-99f282e3d6d3"], + +Cell[BoxData[ + TemplateBox[{ + "Show", "gcomb", + "\"Could not combine the graphics objects in \ +\\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", \ +RowBox[{GraphicsBox[List[InterpretationBox[List[List[List[Skeleton[3]]], \ +List[]], Annotation[List[List[List[Skeleton[3]]], List[]], \ +Internal`ShallowAssociation[Rule[\\\"HighlightElements\\\", Association[Rule[\ +\\\"Label\\\", List[\\\"XYLabel\\\"]], Rule[\\\"Ball\\\", \ +List[\\\"InterpolatedBall\\\"]]]], Rule[\\\"LayoutOptions\\\", \ +Association[Rule[\\\"PanelPlotLayout\\\", Association[]], \ +Rule[\\\"PlotRange\\\", List[List[0, 30], List[0.`, 0.075816938824888`]]], \ +Rule[\\\"Frame\\\", List[List[False, False], List[False, False]]], \ +Rule[\\\"AxesOrigin\\\", List[0, 0]], Rule[\\\"ImageSize\\\", List[360, \ +Times[360, Power[GoldenRatio, -1]]]], Rule[\\\"Axes\\\", List[True, True]], \ +Rule[\\\"LabelStyle\\\", List[]], Rule[\\\"AspectRatio\\\", \ +Power[GoldenRatio, -1]], Rule[\\\"DefaultStyle\\\", \ +List[Directive[Opacity[1.`], RGBColor[0.24`, 0.6`, 0.8`], \ +AbsoluteThickness[2]]]], Rule[\\\"HighlightLabelingFunctions\\\", \ +Association[Rule[\\\"CoordinatesToolOptions\\\", \ +Function[List[Function[Identity[Slot[1]]][Part[Slot[1], 1]], \ +Function[Identity[Slot[1]]][Part[Slot[1], 2]]]]], Rule[\\\"ScalingFunctions\\\ +\", List[List[Identity, Identity], List[Identity, Identity]]]]], \ +Rule[\\\"Primitives\\\", List[]], Rule[\\\"GCFlag\\\", False]]], \ +Rule[\\\"Meta\\\", Association[Rule[\\\"DefaultHighlight\\\", \ +List[\\\"Dynamic\\\", None]], Rule[\\\"Index\\\", List[]], \ +Rule[\\\"Function\\\", Plot], Rule[\\\"GroupHighlight\\\", False]]]], \ +\\\"DynamicHighlight\\\"]]], List[Rule[DisplayFunction, Identity], \ +RuleDelayed[PlotInteractivity, True], Rule[DisplayFunction, Identity], \ +RuleDelayed[PlotInteractivity, True], Rule[DefaultBaseStyle, \ +List[\\\"PlotGraphics\\\", \\\"Graphics\\\"]], Rule[DisplayFunction, \ +Identity], Rule[Ticks, List[Automatic, Automatic]], Rule[AxesOrigin, List[0, \ +0]], Rule[FrameTicks, List[List[Automatic, Automatic], List[Automatic, \ +Automatic]]], Rule[GridLines, List[None, None]], \ +RuleDelayed[PlotInteractivity, True], Rule[DefaultBaseStyle, \ +List[\\\"PlotGraphics\\\", \\\"Graphics\\\"]], Rule[DisplayFunction, \ +Identity], Rule[PlotRangePadding, List[List[Scaled[Skeleton[1]], \ +Scaled[Skeleton[1]]], List[Scaled[Skeleton[1]], Scaled[Skeleton[1]]]]], \ +Rule[PlotRangeClipping, True], Rule[ImagePadding, All], \ +RuleDelayed[PlotInteractivity, True], Rule[DisplayFunction, Identity], \ +RuleDelayed[PlotInteractivity, True], Rule[DefaultBaseStyle, \ +List[\\\"PlotGraphics\\\", \\\"Graphics\\\"]], Rule[AspectRatio, \ +NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], Rule[Axes, List[True, \ +True]], Rule[AxesLabel, List[None, None]], Rule[AxesOrigin, List[0, 0]], \ +RuleDelayed[DisplayFunction, Identity], Rule[Frame, List[List[False, False], \ +List[False, False]]], Rule[FrameLabel, List[List[None, None], List[None, \ +None]]], Rule[FrameTicks, List[List[Automatic, Automatic], List[Automatic, \ +Automatic]]], Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \ +Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \ +List[Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \ +Rule[\\\"DefaultGraphicsInteraction\\\", List[Skeleton[3]]], \ +Rule[\\\"DefaultMeshStyle\\\", AbsolutePointSize[Skeleton[1]]], \ +Rule[\\\"ScalingFunctions\\\", None], Rule[\\\"CoordinatesToolOptions\\\", \ +List[Skeleton[2]]]]], Rule[PlotRange, List[List[0, 30], List[0.`, \ +0.075816938824888`]]], Rule[PlotRangeClipping, True], Rule[PlotRangePadding, \ +List[List[Scaled[Skeleton[1]], Scaled[Skeleton[1]]], \ +List[Scaled[Skeleton[1]], Scaled[Skeleton[1]]]]], Rule[Ticks, List[Automatic, \ +Automatic]]]], \\\",\\\", \\\"xx\\\"}], \\\"]\\\"}]\\).\"", 2, 119, 47, + 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993961291158812*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"c2daf135-aa52-488c-ab51-9108a7dd387c"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4VG0bAHAl0Ub2dRYzaCNLwswY923NThKiJGWPVFJZXlukSCKlCAkV +xcycNpSESioqKhF50/basiRU8p3vr3P9rus857nOee7tqPrucfGbLyQkxJ4n +JPT/68/eJ01qaSUmnan6Qew0C5OOAoXDpp2JIKCxE107GYCybb4KnVkQoBU+ +vbJTDyKdy98KdxZDTPtM4eJOM5Ackc+aeSuAhJwW9XdvXeDDXcc9P942QPG0 +kb7hW1+wUhvoGXv7Cu6IBuY96NgHM28Nc0bffgSTOLrfVEsiNJpfLnlZPAEy +CSZeCoHZoPKh+ouv5iy4vRVYioTmg8zu7eWi5sJYJBmW9SCwGLJ0rWodN4vh +8qjh72KXyuBdrk792PJliFbBil8MyyGtJK5tvqIk9q6Tybtaeh1s9YOkZJmS +WHuiaYYmuA5iTS6bV2iRvrFxW0bddTjSr95tZyqJ0iKXVm16ex1iGM++nA6S +RKeDDmdixCohrEjhr0aNJM4UvGmyD6qEjfl8TTsvKVyvFOLVrlYF8qf7j2Vf +kMZV1Vv1Ukx5oLDm5pHpMmkcLw9L9rHigVJDStw2njR+d7my2tCOB9TRVQdW +NErjhpWcoHeuPFC3D/ep/SaNh84+KhsL4MG6BbMG/etksISvfzn8BA+cIuQ+ +6bXIYBY/m1n6mgfOS771nm2XwfEABiHWxQOX4up3f97LYH1IzZHAXh64vdja +9ui7DB6P9x5S+cqDbZqXajxlZfFDhmaDxzQPQj5pn0r0kUX5qcV6Kkp8OOpq +Y/LqpyzWOrytbfPkg9KNVqX58+Qwt2PYTmI7HyqlXad0l8ghJ1QqyHYnH968 +8uadosnhuhfWNkQIH9Q2RjA2Wsvh8/krzznF8KHBoXDhi3NyeL7yHluQz4dZ +q8nW58by+C3fU5TaxYfMsqiKWSt59G7rbGjtIdcvFErV2iiP+/hiItH/8sH+ +4WLTE37y2E5oUR5948N5czphnyGPggNN5zWm+GCEdmeffpDHK+MfGpZLC2A/ +6+L2J4kKeP7gUP+xDQKwLRL/YZeugD4XnVwibQXAEI1Jbc1RwA893t3eDgJ4 +0eHGb7+igKYjv7lqmwSwNnypcG+rAvof6rCO9xbAt7KDZeNKivjQ9eiZ2AgB +bJVxHFYmFHFGY/2ujAsCWBddm1BwVxG9X5XG/C0UwOKPK+VUHyniQnv6reBi +AVRXCYPGO0W8kO92wvCyAOTsqjN15hQx6cfS18U8cv8ENX1LOyVk2M1J1DcI +wOL7r6iwfiVMtl1ZLv9JAIetT69+MKSEfYZJd+Z/EUDlRa0u6Z9KSJlXoDjw +VQAKrj6sajFlfM25//r6oACG7jycEl6rjP99LjFdNCGA7MTMiHOHlLF73ja7 +5fMIaO5epTaUoIxmuZya+vkE/NFvbDdJU8a0FeJJoQsI8P86qffpgjK6XUpS +uytKANvea2xtozJ+S7twQ0ucgI+yGmFNy1RwVikvxleJAPk99yny8io4Y1/+ +uFOZAPtmj+dBdBWMzZiLsKMQcCsqTVNinQp+p9yeVqcTcPzD6MAWDxV0ll93 +o0qdAL2rtQHfi1XwFLMiVk6HgID5m+XNrqlgJtNYb5MuAfleI49O31TBWsto +l3Q9AhaKq2qwm1XQdU1S54Q+AV37Uj4dGVbBgI6wpbksAhKMN+5QMqLgzcan +JevNCLD2Lhg3NKPg9JUmOydzAsTjB5M221NwPNeveZcF+fzG5LJMHwoGh6pb +JVkRcMe2ZnDhMQre2nV6d4YtAXG7RWPVsilorV/7LsWOAKsMV3GzCxSkqNcw +o+0J6Hg5ohPLp6DIf+Mb3R0JGPVgRk68o6Bd3j+6vRsJuB0VLir5iYJnvNMK +b7oQ8E/+vdy1IxTc82t6LHUTAUv73GuD5lOxYOHrDczNBKwISBfqW03FOtro +Kw0PAkZS352a1aeicduWuB7SN8o1mMpARcNRYYXMLQSYjdRbum2i4uVahtR/ +ngR4H5g8/iyaivtnZayCtxGgftZMZSCZiuWBwnuFvAkyPk5eF82kovC0f2YW +6ag/q16YlZD71dbzyrcTYEo9uMOnkorMlnZCx4cAMWwaj71DxZeVOVUC0jlJ +3rLVz6jY0BOaU76DgK2lFWVv3lDxjUNFAt2XAMbjacMffVT83fM5OIs0b3G2 +p/YkFVfwKo2CdxJwULNv0H6OtFUY7QVpE0et2OBFNHQrPiGqt4uAZ6ceF5ZS +aLhab2vff6SzCRndxhU0lGmxagc/Ajxf72jo06Vh24jos1Okvyn8+aRsRcNu +z6z2Vf4EVLFtIlnONMyaLvq0h3Tk1jOi7p40FGtdLiQgLVykszorjIb9btc8 +VwcQ0PIgtrbqEA1j9Vfk+5DO7G+xf55IQ5f8i0NZpN1FFHoH0mm4ZK2VwwPS +1BV+e8TO0nCuDu8Pkv5sLRDSuEhD2FJnLhVIwLXguVPmFTQsZQ9365Pen27P +3HGThh3tf1I3kWZXnrvxz30aOjym2IeRtnjbOjvSTMMDl0zqkkg7Ci3YsP0V +DY+2ibfkkPZYxcps66bhw6zU8BLSO13C3sFnGoYoXhZUkQ6LvsTgjdBwQYT/ +qdukD5V0htCnaXjrTOOyu6QffEnxbBaiY47H3ZX3SFtFq8bFi9Dx2z6n/hrS +TyXuXjJaTMfU+BiTm6SdS9yaR8XpyJw151wj/cZobOiKNB2PWlzuKiTt9TxN +cocCHf+eukLJJN23Q8NAkUKun7MViSXt/7Pe86UqHSE5K8uf9OBxr7hjGnQ8 +OZ30yJ50OO3nJdM1dDy1RL1Ym/Qkkdk8o01HZ/sYDQnSUdZrhvn6dJRXO+X6 +/+8r1PNQMphFx6Y3IVpNpJP3+hgwTOi4JFFWcI704oW/PbvM6Nigktsf8v/z +O58Tl7WBjjqRfxvYpM83tjTP30hHp87Sk63k+dM8/IZrNtPRmxCKyyZdMjQn +ud+TjsdG99E3/z9+ZNd79e+k42OfrthWMr70y9vi8gLpGLpslJNCusYkuGRT +KB37l3nz2KSbAgqHGyPpOCF2ov4cGa82f1hSMdF0PLLsgLcF6dbMDgP9eDoG +HRK+PUjG+7vqRfElx+iomxCcr0N6ZEmEVHI+HS13fHfLJvNpf5G4IfciHRMH +s74xSU/rX/WaLKWj+rVCLp/MP2Hv3hK/KjrutfEzaCDzVYFnbWjVQMdYob6E +e2S+X7Do9/r7iI5ujQsd9Ukz3sXG33pKx+GvaV8ubyVAaz7xROM1HfMy2AnJ +XmT9cKVsFf1Gx+2bZWKVyHqye3osvnmZKmY6Hs28RtYn9l5/uS9Sqmh5RexB +H1m/xAa6KoQVVHGAcLGQJF3a3fjGhKGKTy5a2AQ4E9Bbl6N500AVldXHIr+S +9dEpmdV5cbsqes9Tv82yJPPn7/XQ+7tUUdu+tGUdWX+HIhnCPUGq+GJrqM1q +sj6nBi5ZqxChigGnZU8uNSWg3q4nKSNVFVP+rfMvMyb7hVSCdjRfFd87aZbr +rCPjI22yKfeWKm53LdAeJ/tFq3Cw561aVdy8ppHFI/tJyKRL8thDVTxeVPBR +dS153p1q3QFdqli9mHKjeyUBcoXNKa7CDAyXmGgqJ/vVzJrlvVqbGZg1NcJt +IPvhzwtKCes8GciY7vShCRPwQ0JdjbWdgVM9lK2HyX46MsEKtghi4Pdog4/M +vwL4WLvzp2csA1eGsT03TQmgxe62eGopAw9/9wmk/CeA8yHe8HGSge9nfmUH +tQjgbE/gx6+/GHjk6+qJXc0COO20P3l4joEXi15t3/ZIABnrUp9OL2LiZfdN +gZbkfJD4m+8uQWVigdVdv/FqAYSkiYQbWzHR0Xkw88EVARhXXCs6c4aJsZ+Z +d/CIALrpFYWWeUxMTmAzFicKIOrM1YIfhUy8Yfl3zcs4AdxOKMt3ucrET10m +ah7RAtDzKMoVv8vEormTbTb7BLBK5HRmyr9MHCQaN97bTs4v26PjIzXV8GCr +tex3IwGMSdn6uDWo4Y/q0K+tn/jQuZvxIvixGroZ0K+3kfNb/aNfEPdMDbMX +NMq09pLzXlQF7cobNfyoufNlYycfdD4u/TAzoIamdl362c/4EMZv23ZBWh2f +XE23ayT4MOC02evTLnXsuQs/D8Tz4VO6j9s+UQ3s+nnt8ElpPth8P2jz2WAF +eux8XXJZnwdDO8X234hbidOqe0OzPSrJ/w35+UcbVqHiPZ6Vr+41kHqukcH7 +vhopjs5zHtRyUEmtcjYw0ETj11ezF3Rehtw1rOXSAVrY9UDk8ovaUmhRMl0/ +cWotJp4eMfS6eQnYKg2Z2m+0caJNZ2ftmYsgLlwcsSNRB9X1ddkKQYVATaAZ +b9HQRZ0ucwmzrDxYpL71lstjXay40JnmKp0La7mKVQe36aHc6a1Hh6VyYF+v +VKOt0Dp8biFw+6ycBd8n0jfb5K5DTa9xEx32Sdig/ei8jZY+MlTNJ56+Pg51 +E5zfU636qKDgqlmWlwJhmnpdL/3Wo0smzyxdLQm4I7s6tiwywECTun8L6uLA +Uk3BYVmxAa7ao3pLLCoKVsYfP9RgaIjTIqbDi0UjYbUf6756lyFKP5CxeT64 +F04yHH8lvTfEBxUFjs09e+HHB9/1H3sN0fOa08lnbXuhzjO9oqDfEIOUrHmj +xF5wcf5wVn7YELPZlybKYvbCYU5y+CIhI1QoGT//WGIvNEu+VB1WN0KbjNaQ +GuNw8KsLPHJjrxHOy1ic+69PKIyEDhy0jDDCJ2ufy63fEAqHKLtD3kQaoelX +f0GeVigcj9njMh1thLJDnTLFv3YDjx1JN04xQoP8nR5ZObvhz62ku43njXDO +7Vr4VGsIZFUV/HjVaIRUk0u6x5yC4X5Rx64xWRb+dPmpHpccAH32qtsjFVhY +U9DoeTU8AIRmQrf8VmJhw8yryH6vADDbKOooQmdhx84Kk6N6AfBoHttQcTUL +R7rPCaf3+cMz38JFpiYsrGIG0RLBH7rUgisz/Vn4Z9+k5gcxP/hxZW5K+zYL +Pw+vqfR67Atf3KyKjlWz0LXFbMW2277QueCEdX8tC5ffq40OvuwLtT5K587U +s/CbXu75K0d9IVFhPXv2CQv/2TQwwLf2heWpwTEt71lYWjZ8c/zZDtAMeC3k +N5+Ncukq//zp8YGd6hWLzjuw0ZhHjwox9Yaoh97BGs5sXFHcevWmmjdk+kk9 +FbiwUcKtvFFezBvulh5Of+rOxhztyghm2zaQ0bCWmN3Bxppb7xe4e2+DRxqf +ZXwi2di/6OU9esJWWL2SRtcoZKPpaIF821tPGFudbSAYZSO7lpha98gdOp+h +pfQEG/M3scdSeO5QHzayKWKSjUbnIgMHz7tDhsBmr8EvNnrZz7v4bY87rGYL +XasR5iA9THdcoOQOvjahqo1yHGyxG/8cs98NOgI2LO0w5uBcv219ju5muFPy ++9/JVA7WiTYPBfe4gIF5xJRtGgfbmE/6VJ65wM1/h5YWneBgSnH6r/c1LiCg +9hraZnFw6RLOoaO5LnAtt/5EQR4H0zA87YirCxSlJ7M2VHJw/6fYPLm2jXAs +QuJUbjsHq3j3q91bncHTgokcqjF2R268feqLA8x2iIk30o1x6aBVkFSzAxT5 +jXTbMo0xaEx2XtVVB/iSUn3Qc6UxZha9O84JdYB9T5yqDusZo3nAwrLCSXs4 +7hhDvWNljH70EGrCEnuo8Xj9R3+PMT72l+mVsbMF5dCj1WvrjfGM0IIeUdkN +kDHnvz6tgbTduHD0XyuYn2XF/9pE3i9uvXT+NysYuCVyteiJMc7U7D5iV2sF +NUJHcqXajfFgYHhIi68VeJ6OP/jzszH+NpWZCb5pCbm1h9fXLeFi0/MrMi8C +LWCp4xa+kjgXu10HrhS7WkB8n5HWweVc9AudtDmKFhAoMq2mI8tFXuKaqBQF +CzB0ipQppnKRunvLEq8n5vDm476JZF0uLngc0+a81hxkF+/mO7hz0V7/bJ6E +iBmUmMdGjW7hovVQydmxUVPQi80wz97KRavZtxNf35uC4yjvdecOLv6NjDwi +edMUUt5MzuzczUXRvM8Sbv6mMF0cZxaVwEWn3CCLnGcIXZzs9rIKLnaqxL/8 +5AgQeKAk36aSizemLjyIWQPws/Km3xCPi76Z+jSWGIAUo3NK9xYXFbP+FlAb +TMBOjKJyr56LFeEPlM8ZmsDdjrJd7a+5GHGwoEp7FRdsxe9oRXZy8dfMOcM5 +US50bnjyU6GbfB+vzpVjX4zhR81gqncfF8/NejzhlBqD1kWd6/8NcPF6ieHZ +QKYx3O0yjUwf5mIIfe/sBmFjsJXZBNqjXDS/1dJu3c8B/6MHXkZMctHmzBK3 +yksc+FGfcl5+mouDo41NUkc4kPjr7M6aX1x0DjNZlbuLA8v1r2pum+Vi0j2K +n4klBwpCaybn5ri4vkbZU0SDA/8D0iDL3g== + "]]}, + 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:eJwV13k4VG0bAHAl0Ub2dRYzaCNLwswY923NThKiJGWPVFJZXlukSCKlCAkV +xcycNpSESioqKhF50/basiRU8p3vr3P9rus857nOee7tqPrucfGbLyQkxJ4n +JPT/68/eJ01qaSUmnan6Qew0C5OOAoXDpp2JIKCxE107GYCybb4KnVkQoBU+ +vbJTDyKdy98KdxZDTPtM4eJOM5Ackc+aeSuAhJwW9XdvXeDDXcc9P942QPG0 +kb7hW1+wUhvoGXv7Cu6IBuY96NgHM28Nc0bffgSTOLrfVEsiNJpfLnlZPAEy +CSZeCoHZoPKh+ouv5iy4vRVYioTmg8zu7eWi5sJYJBmW9SCwGLJ0rWodN4vh +8qjh72KXyuBdrk792PJliFbBil8MyyGtJK5tvqIk9q6Tybtaeh1s9YOkZJmS +WHuiaYYmuA5iTS6bV2iRvrFxW0bddTjSr95tZyqJ0iKXVm16ex1iGM++nA6S +RKeDDmdixCohrEjhr0aNJM4UvGmyD6qEjfl8TTsvKVyvFOLVrlYF8qf7j2Vf +kMZV1Vv1Ukx5oLDm5pHpMmkcLw9L9rHigVJDStw2njR+d7my2tCOB9TRVQdW +NErjhpWcoHeuPFC3D/ep/SaNh84+KhsL4MG6BbMG/etksISvfzn8BA+cIuQ+ +6bXIYBY/m1n6mgfOS771nm2XwfEABiHWxQOX4up3f97LYH1IzZHAXh64vdja +9ui7DB6P9x5S+cqDbZqXajxlZfFDhmaDxzQPQj5pn0r0kUX5qcV6Kkp8OOpq +Y/LqpyzWOrytbfPkg9KNVqX58+Qwt2PYTmI7HyqlXad0l8ghJ1QqyHYnH968 +8uadosnhuhfWNkQIH9Q2RjA2Wsvh8/krzznF8KHBoXDhi3NyeL7yHluQz4dZ +q8nW58by+C3fU5TaxYfMsqiKWSt59G7rbGjtIdcvFErV2iiP+/hiItH/8sH+ +4WLTE37y2E5oUR5948N5czphnyGPggNN5zWm+GCEdmeffpDHK+MfGpZLC2A/ +6+L2J4kKeP7gUP+xDQKwLRL/YZeugD4XnVwibQXAEI1Jbc1RwA893t3eDgJ4 +0eHGb7+igKYjv7lqmwSwNnypcG+rAvof6rCO9xbAt7KDZeNKivjQ9eiZ2AgB +bJVxHFYmFHFGY/2ujAsCWBddm1BwVxG9X5XG/C0UwOKPK+VUHyniQnv6reBi +AVRXCYPGO0W8kO92wvCyAOTsqjN15hQx6cfS18U8cv8ENX1LOyVk2M1J1DcI +wOL7r6iwfiVMtl1ZLv9JAIetT69+MKSEfYZJd+Z/EUDlRa0u6Z9KSJlXoDjw +VQAKrj6sajFlfM25//r6oACG7jycEl6rjP99LjFdNCGA7MTMiHOHlLF73ja7 +5fMIaO5epTaUoIxmuZya+vkE/NFvbDdJU8a0FeJJoQsI8P86qffpgjK6XUpS +uytKANvea2xtozJ+S7twQ0ucgI+yGmFNy1RwVikvxleJAPk99yny8io4Y1/+ +uFOZAPtmj+dBdBWMzZiLsKMQcCsqTVNinQp+p9yeVqcTcPzD6MAWDxV0ll93 +o0qdAL2rtQHfi1XwFLMiVk6HgID5m+XNrqlgJtNYb5MuAfleI49O31TBWsto +l3Q9AhaKq2qwm1XQdU1S54Q+AV37Uj4dGVbBgI6wpbksAhKMN+5QMqLgzcan +JevNCLD2Lhg3NKPg9JUmOydzAsTjB5M221NwPNeveZcF+fzG5LJMHwoGh6pb +JVkRcMe2ZnDhMQre2nV6d4YtAXG7RWPVsilorV/7LsWOAKsMV3GzCxSkqNcw +o+0J6Hg5ohPLp6DIf+Mb3R0JGPVgRk68o6Bd3j+6vRsJuB0VLir5iYJnvNMK +b7oQ8E/+vdy1IxTc82t6LHUTAUv73GuD5lOxYOHrDczNBKwISBfqW03FOtro +Kw0PAkZS352a1aeicduWuB7SN8o1mMpARcNRYYXMLQSYjdRbum2i4uVahtR/ +ngR4H5g8/iyaivtnZayCtxGgftZMZSCZiuWBwnuFvAkyPk5eF82kovC0f2YW +6ag/q16YlZD71dbzyrcTYEo9uMOnkorMlnZCx4cAMWwaj71DxZeVOVUC0jlJ +3rLVz6jY0BOaU76DgK2lFWVv3lDxjUNFAt2XAMbjacMffVT83fM5OIs0b3G2 +p/YkFVfwKo2CdxJwULNv0H6OtFUY7QVpE0et2OBFNHQrPiGqt4uAZ6ceF5ZS +aLhab2vff6SzCRndxhU0lGmxagc/Ajxf72jo06Vh24jos1Okvyn8+aRsRcNu +z6z2Vf4EVLFtIlnONMyaLvq0h3Tk1jOi7p40FGtdLiQgLVykszorjIb9btc8 +VwcQ0PIgtrbqEA1j9Vfk+5DO7G+xf55IQ5f8i0NZpN1FFHoH0mm4ZK2VwwPS +1BV+e8TO0nCuDu8Pkv5sLRDSuEhD2FJnLhVIwLXguVPmFTQsZQ9365Pen27P +3HGThh3tf1I3kWZXnrvxz30aOjym2IeRtnjbOjvSTMMDl0zqkkg7Ci3YsP0V +DY+2ibfkkPZYxcps66bhw6zU8BLSO13C3sFnGoYoXhZUkQ6LvsTgjdBwQYT/ +qdukD5V0htCnaXjrTOOyu6QffEnxbBaiY47H3ZX3SFtFq8bFi9Dx2z6n/hrS +TyXuXjJaTMfU+BiTm6SdS9yaR8XpyJw151wj/cZobOiKNB2PWlzuKiTt9TxN +cocCHf+eukLJJN23Q8NAkUKun7MViSXt/7Pe86UqHSE5K8uf9OBxr7hjGnQ8 +OZ30yJ50OO3nJdM1dDy1RL1Ym/Qkkdk8o01HZ/sYDQnSUdZrhvn6dJRXO+X6 +/+8r1PNQMphFx6Y3IVpNpJP3+hgwTOi4JFFWcI704oW/PbvM6Nigktsf8v/z +O58Tl7WBjjqRfxvYpM83tjTP30hHp87Sk63k+dM8/IZrNtPRmxCKyyZdMjQn +ud+TjsdG99E3/z9+ZNd79e+k42OfrthWMr70y9vi8gLpGLpslJNCusYkuGRT +KB37l3nz2KSbAgqHGyPpOCF2ov4cGa82f1hSMdF0PLLsgLcF6dbMDgP9eDoG +HRK+PUjG+7vqRfElx+iomxCcr0N6ZEmEVHI+HS13fHfLJvNpf5G4IfciHRMH +s74xSU/rX/WaLKWj+rVCLp/MP2Hv3hK/KjrutfEzaCDzVYFnbWjVQMdYob6E +e2S+X7Do9/r7iI5ujQsd9Ukz3sXG33pKx+GvaV8ubyVAaz7xROM1HfMy2AnJ +XmT9cKVsFf1Gx+2bZWKVyHqye3osvnmZKmY6Hs28RtYn9l5/uS9Sqmh5RexB +H1m/xAa6KoQVVHGAcLGQJF3a3fjGhKGKTy5a2AQ4E9Bbl6N500AVldXHIr+S +9dEpmdV5cbsqes9Tv82yJPPn7/XQ+7tUUdu+tGUdWX+HIhnCPUGq+GJrqM1q +sj6nBi5ZqxChigGnZU8uNSWg3q4nKSNVFVP+rfMvMyb7hVSCdjRfFd87aZbr +rCPjI22yKfeWKm53LdAeJ/tFq3Cw561aVdy8ppHFI/tJyKRL8thDVTxeVPBR +dS153p1q3QFdqli9mHKjeyUBcoXNKa7CDAyXmGgqJ/vVzJrlvVqbGZg1NcJt +IPvhzwtKCes8GciY7vShCRPwQ0JdjbWdgVM9lK2HyX46MsEKtghi4Pdog4/M +vwL4WLvzp2csA1eGsT03TQmgxe62eGopAw9/9wmk/CeA8yHe8HGSge9nfmUH +tQjgbE/gx6+/GHjk6+qJXc0COO20P3l4joEXi15t3/ZIABnrUp9OL2LiZfdN +gZbkfJD4m+8uQWVigdVdv/FqAYSkiYQbWzHR0Xkw88EVARhXXCs6c4aJsZ+Z +d/CIALrpFYWWeUxMTmAzFicKIOrM1YIfhUy8Yfl3zcs4AdxOKMt3ucrET10m +ah7RAtDzKMoVv8vEormTbTb7BLBK5HRmyr9MHCQaN97bTs4v26PjIzXV8GCr +tex3IwGMSdn6uDWo4Y/q0K+tn/jQuZvxIvixGroZ0K+3kfNb/aNfEPdMDbMX +NMq09pLzXlQF7cobNfyoufNlYycfdD4u/TAzoIamdl362c/4EMZv23ZBWh2f +XE23ayT4MOC02evTLnXsuQs/D8Tz4VO6j9s+UQ3s+nnt8ElpPth8P2jz2WAF +eux8XXJZnwdDO8X234hbidOqe0OzPSrJ/w35+UcbVqHiPZ6Vr+41kHqukcH7 +vhopjs5zHtRyUEmtcjYw0ETj11ezF3Rehtw1rOXSAVrY9UDk8ovaUmhRMl0/ +cWotJp4eMfS6eQnYKg2Z2m+0caJNZ2ftmYsgLlwcsSNRB9X1ddkKQYVATaAZ +b9HQRZ0ucwmzrDxYpL71lstjXay40JnmKp0La7mKVQe36aHc6a1Hh6VyYF+v +VKOt0Dp8biFw+6ycBd8n0jfb5K5DTa9xEx32Sdig/ei8jZY+MlTNJ56+Pg51 +E5zfU636qKDgqlmWlwJhmnpdL/3Wo0smzyxdLQm4I7s6tiwywECTun8L6uLA +Uk3BYVmxAa7ao3pLLCoKVsYfP9RgaIjTIqbDi0UjYbUf6756lyFKP5CxeT64 +F04yHH8lvTfEBxUFjs09e+HHB9/1H3sN0fOa08lnbXuhzjO9oqDfEIOUrHmj +xF5wcf5wVn7YELPZlybKYvbCYU5y+CIhI1QoGT//WGIvNEu+VB1WN0KbjNaQ +GuNw8KsLPHJjrxHOy1ic+69PKIyEDhy0jDDCJ2ufy63fEAqHKLtD3kQaoelX +f0GeVigcj9njMh1thLJDnTLFv3YDjx1JN04xQoP8nR5ZObvhz62ku43njXDO +7Vr4VGsIZFUV/HjVaIRUk0u6x5yC4X5Rx64xWRb+dPmpHpccAH32qtsjFVhY +U9DoeTU8AIRmQrf8VmJhw8yryH6vADDbKOooQmdhx84Kk6N6AfBoHttQcTUL +R7rPCaf3+cMz38JFpiYsrGIG0RLBH7rUgisz/Vn4Z9+k5gcxP/hxZW5K+zYL +Pw+vqfR67Atf3KyKjlWz0LXFbMW2277QueCEdX8tC5ffq40OvuwLtT5K587U +s/CbXu75K0d9IVFhPXv2CQv/2TQwwLf2heWpwTEt71lYWjZ8c/zZDtAMeC3k +N5+Ncukq//zp8YGd6hWLzjuw0ZhHjwox9Yaoh97BGs5sXFHcevWmmjdk+kk9 +FbiwUcKtvFFezBvulh5Of+rOxhztyghm2zaQ0bCWmN3Bxppb7xe4e2+DRxqf +ZXwi2di/6OU9esJWWL2SRtcoZKPpaIF821tPGFudbSAYZSO7lpha98gdOp+h +pfQEG/M3scdSeO5QHzayKWKSjUbnIgMHz7tDhsBmr8EvNnrZz7v4bY87rGYL +XasR5iA9THdcoOQOvjahqo1yHGyxG/8cs98NOgI2LO0w5uBcv219ju5muFPy ++9/JVA7WiTYPBfe4gIF5xJRtGgfbmE/6VJ65wM1/h5YWneBgSnH6r/c1LiCg +9hraZnFw6RLOoaO5LnAtt/5EQR4H0zA87YirCxSlJ7M2VHJw/6fYPLm2jXAs +QuJUbjsHq3j3q91bncHTgokcqjF2R268feqLA8x2iIk30o1x6aBVkFSzAxT5 +jXTbMo0xaEx2XtVVB/iSUn3Qc6UxZha9O84JdYB9T5yqDusZo3nAwrLCSXs4 +7hhDvWNljH70EGrCEnuo8Xj9R3+PMT72l+mVsbMF5dCj1WvrjfGM0IIeUdkN +kDHnvz6tgbTduHD0XyuYn2XF/9pE3i9uvXT+NysYuCVyteiJMc7U7D5iV2sF +NUJHcqXajfFgYHhIi68VeJ6OP/jzszH+NpWZCb5pCbm1h9fXLeFi0/MrMi8C +LWCp4xa+kjgXu10HrhS7WkB8n5HWweVc9AudtDmKFhAoMq2mI8tFXuKaqBQF +CzB0ipQppnKRunvLEq8n5vDm476JZF0uLngc0+a81hxkF+/mO7hz0V7/bJ6E +iBmUmMdGjW7hovVQydmxUVPQi80wz97KRavZtxNf35uC4yjvdecOLv6NjDwi +edMUUt5MzuzczUXRvM8Sbv6mMF0cZxaVwEWn3CCLnGcIXZzs9rIKLnaqxL/8 +5AgQeKAk36aSizemLjyIWQPws/Km3xCPi76Z+jSWGIAUo3NK9xYXFbP+FlAb +TMBOjKJyr56LFeEPlM8ZmsDdjrJd7a+5GHGwoEp7FRdsxe9oRXZy8dfMOcM5 +US50bnjyU6GbfB+vzpVjX4zhR81gqncfF8/NejzhlBqD1kWd6/8NcPF6ieHZ +QKYx3O0yjUwf5mIIfe/sBmFjsJXZBNqjXDS/1dJu3c8B/6MHXkZMctHmzBK3 +yksc+FGfcl5+mouDo41NUkc4kPjr7M6aX1x0DjNZlbuLA8v1r2pum+Vi0j2K +n4klBwpCaybn5ri4vkbZU0SDA/8D0iDL3g== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.075816938824888}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.075816938824888}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJwV13k4VG0bAHAl0Ub2dRYzaCNLwswY923NThKiJGWPVFJZXlukSCKlCAkV +xcycNpSESioqKhF50/basiRU8p3vr3P9rus857nOee7tqPrucfGbLyQkxJ4n +JPT/68/eJ01qaSUmnan6Qew0C5OOAoXDpp2JIKCxE107GYCybb4KnVkQoBU+ +vbJTDyKdy98KdxZDTPtM4eJOM5Ackc+aeSuAhJwW9XdvXeDDXcc9P942QPG0 +kb7hW1+wUhvoGXv7Cu6IBuY96NgHM28Nc0bffgSTOLrfVEsiNJpfLnlZPAEy +CSZeCoHZoPKh+ouv5iy4vRVYioTmg8zu7eWi5sJYJBmW9SCwGLJ0rWodN4vh +8qjh72KXyuBdrk792PJliFbBil8MyyGtJK5tvqIk9q6Tybtaeh1s9YOkZJmS +WHuiaYYmuA5iTS6bV2iRvrFxW0bddTjSr95tZyqJ0iKXVm16ex1iGM++nA6S +RKeDDmdixCohrEjhr0aNJM4UvGmyD6qEjfl8TTsvKVyvFOLVrlYF8qf7j2Vf +kMZV1Vv1Ukx5oLDm5pHpMmkcLw9L9rHigVJDStw2njR+d7my2tCOB9TRVQdW +NErjhpWcoHeuPFC3D/ep/SaNh84+KhsL4MG6BbMG/etksISvfzn8BA+cIuQ+ +6bXIYBY/m1n6mgfOS771nm2XwfEABiHWxQOX4up3f97LYH1IzZHAXh64vdja +9ui7DB6P9x5S+cqDbZqXajxlZfFDhmaDxzQPQj5pn0r0kUX5qcV6Kkp8OOpq +Y/LqpyzWOrytbfPkg9KNVqX58+Qwt2PYTmI7HyqlXad0l8ghJ1QqyHYnH968 +8uadosnhuhfWNkQIH9Q2RjA2Wsvh8/krzznF8KHBoXDhi3NyeL7yHluQz4dZ +q8nW58by+C3fU5TaxYfMsqiKWSt59G7rbGjtIdcvFErV2iiP+/hiItH/8sH+ +4WLTE37y2E5oUR5948N5czphnyGPggNN5zWm+GCEdmeffpDHK+MfGpZLC2A/ +6+L2J4kKeP7gUP+xDQKwLRL/YZeugD4XnVwibQXAEI1Jbc1RwA893t3eDgJ4 +0eHGb7+igKYjv7lqmwSwNnypcG+rAvof6rCO9xbAt7KDZeNKivjQ9eiZ2AgB +bJVxHFYmFHFGY/2ujAsCWBddm1BwVxG9X5XG/C0UwOKPK+VUHyniQnv6reBi +AVRXCYPGO0W8kO92wvCyAOTsqjN15hQx6cfS18U8cv8ENX1LOyVk2M1J1DcI +wOL7r6iwfiVMtl1ZLv9JAIetT69+MKSEfYZJd+Z/EUDlRa0u6Z9KSJlXoDjw +VQAKrj6sajFlfM25//r6oACG7jycEl6rjP99LjFdNCGA7MTMiHOHlLF73ja7 +5fMIaO5epTaUoIxmuZya+vkE/NFvbDdJU8a0FeJJoQsI8P86qffpgjK6XUpS +uytKANvea2xtozJ+S7twQ0ucgI+yGmFNy1RwVikvxleJAPk99yny8io4Y1/+ +uFOZAPtmj+dBdBWMzZiLsKMQcCsqTVNinQp+p9yeVqcTcPzD6MAWDxV0ll93 +o0qdAL2rtQHfi1XwFLMiVk6HgID5m+XNrqlgJtNYb5MuAfleI49O31TBWsto +l3Q9AhaKq2qwm1XQdU1S54Q+AV37Uj4dGVbBgI6wpbksAhKMN+5QMqLgzcan +JevNCLD2Lhg3NKPg9JUmOydzAsTjB5M221NwPNeveZcF+fzG5LJMHwoGh6pb +JVkRcMe2ZnDhMQre2nV6d4YtAXG7RWPVsilorV/7LsWOAKsMV3GzCxSkqNcw +o+0J6Hg5ohPLp6DIf+Mb3R0JGPVgRk68o6Bd3j+6vRsJuB0VLir5iYJnvNMK +b7oQ8E/+vdy1IxTc82t6LHUTAUv73GuD5lOxYOHrDczNBKwISBfqW03FOtro +Kw0PAkZS352a1aeicduWuB7SN8o1mMpARcNRYYXMLQSYjdRbum2i4uVahtR/ +ngR4H5g8/iyaivtnZayCtxGgftZMZSCZiuWBwnuFvAkyPk5eF82kovC0f2YW +6ag/q16YlZD71dbzyrcTYEo9uMOnkorMlnZCx4cAMWwaj71DxZeVOVUC0jlJ +3rLVz6jY0BOaU76DgK2lFWVv3lDxjUNFAt2XAMbjacMffVT83fM5OIs0b3G2 +p/YkFVfwKo2CdxJwULNv0H6OtFUY7QVpE0et2OBFNHQrPiGqt4uAZ6ceF5ZS +aLhab2vff6SzCRndxhU0lGmxagc/Ajxf72jo06Vh24jos1Okvyn8+aRsRcNu +z6z2Vf4EVLFtIlnONMyaLvq0h3Tk1jOi7p40FGtdLiQgLVykszorjIb9btc8 +VwcQ0PIgtrbqEA1j9Vfk+5DO7G+xf55IQ5f8i0NZpN1FFHoH0mm4ZK2VwwPS +1BV+e8TO0nCuDu8Pkv5sLRDSuEhD2FJnLhVIwLXguVPmFTQsZQ9365Pen27P +3HGThh3tf1I3kWZXnrvxz30aOjym2IeRtnjbOjvSTMMDl0zqkkg7Ci3YsP0V +DY+2ibfkkPZYxcps66bhw6zU8BLSO13C3sFnGoYoXhZUkQ6LvsTgjdBwQYT/ +qdukD5V0htCnaXjrTOOyu6QffEnxbBaiY47H3ZX3SFtFq8bFi9Dx2z6n/hrS +TyXuXjJaTMfU+BiTm6SdS9yaR8XpyJw151wj/cZobOiKNB2PWlzuKiTt9TxN +cocCHf+eukLJJN23Q8NAkUKun7MViSXt/7Pe86UqHSE5K8uf9OBxr7hjGnQ8 +OZ30yJ50OO3nJdM1dDy1RL1Ym/Qkkdk8o01HZ/sYDQnSUdZrhvn6dJRXO+X6 +/+8r1PNQMphFx6Y3IVpNpJP3+hgwTOi4JFFWcI704oW/PbvM6Nigktsf8v/z +O58Tl7WBjjqRfxvYpM83tjTP30hHp87Sk63k+dM8/IZrNtPRmxCKyyZdMjQn +ud+TjsdG99E3/z9+ZNd79e+k42OfrthWMr70y9vi8gLpGLpslJNCusYkuGRT +KB37l3nz2KSbAgqHGyPpOCF2ov4cGa82f1hSMdF0PLLsgLcF6dbMDgP9eDoG +HRK+PUjG+7vqRfElx+iomxCcr0N6ZEmEVHI+HS13fHfLJvNpf5G4IfciHRMH +s74xSU/rX/WaLKWj+rVCLp/MP2Hv3hK/KjrutfEzaCDzVYFnbWjVQMdYob6E +e2S+X7Do9/r7iI5ujQsd9Ukz3sXG33pKx+GvaV8ubyVAaz7xROM1HfMy2AnJ +XmT9cKVsFf1Gx+2bZWKVyHqye3osvnmZKmY6Hs28RtYn9l5/uS9Sqmh5RexB +H1m/xAa6KoQVVHGAcLGQJF3a3fjGhKGKTy5a2AQ4E9Bbl6N500AVldXHIr+S +9dEpmdV5cbsqes9Tv82yJPPn7/XQ+7tUUdu+tGUdWX+HIhnCPUGq+GJrqM1q +sj6nBi5ZqxChigGnZU8uNSWg3q4nKSNVFVP+rfMvMyb7hVSCdjRfFd87aZbr +rCPjI22yKfeWKm53LdAeJ/tFq3Cw561aVdy8ppHFI/tJyKRL8thDVTxeVPBR +dS153p1q3QFdqli9mHKjeyUBcoXNKa7CDAyXmGgqJ/vVzJrlvVqbGZg1NcJt +IPvhzwtKCes8GciY7vShCRPwQ0JdjbWdgVM9lK2HyX46MsEKtghi4Pdog4/M +vwL4WLvzp2csA1eGsT03TQmgxe62eGopAw9/9wmk/CeA8yHe8HGSge9nfmUH +tQjgbE/gx6+/GHjk6+qJXc0COO20P3l4joEXi15t3/ZIABnrUp9OL2LiZfdN +gZbkfJD4m+8uQWVigdVdv/FqAYSkiYQbWzHR0Xkw88EVARhXXCs6c4aJsZ+Z +d/CIALrpFYWWeUxMTmAzFicKIOrM1YIfhUy8Yfl3zcs4AdxOKMt3ucrET10m +ah7RAtDzKMoVv8vEormTbTb7BLBK5HRmyr9MHCQaN97bTs4v26PjIzXV8GCr +tex3IwGMSdn6uDWo4Y/q0K+tn/jQuZvxIvixGroZ0K+3kfNb/aNfEPdMDbMX +NMq09pLzXlQF7cobNfyoufNlYycfdD4u/TAzoIamdl362c/4EMZv23ZBWh2f +XE23ayT4MOC02evTLnXsuQs/D8Tz4VO6j9s+UQ3s+nnt8ElpPth8P2jz2WAF +eux8XXJZnwdDO8X234hbidOqe0OzPSrJ/w35+UcbVqHiPZ6Vr+41kHqukcH7 +vhopjs5zHtRyUEmtcjYw0ETj11ezF3Rehtw1rOXSAVrY9UDk8ovaUmhRMl0/ +cWotJp4eMfS6eQnYKg2Z2m+0caJNZ2ftmYsgLlwcsSNRB9X1ddkKQYVATaAZ +b9HQRZ0ucwmzrDxYpL71lstjXay40JnmKp0La7mKVQe36aHc6a1Hh6VyYF+v +VKOt0Dp8biFw+6ycBd8n0jfb5K5DTa9xEx32Sdig/ei8jZY+MlTNJ56+Pg51 +E5zfU636qKDgqlmWlwJhmnpdL/3Wo0smzyxdLQm4I7s6tiwywECTun8L6uLA +Uk3BYVmxAa7ao3pLLCoKVsYfP9RgaIjTIqbDi0UjYbUf6756lyFKP5CxeT64 +F04yHH8lvTfEBxUFjs09e+HHB9/1H3sN0fOa08lnbXuhzjO9oqDfEIOUrHmj +xF5wcf5wVn7YELPZlybKYvbCYU5y+CIhI1QoGT//WGIvNEu+VB1WN0KbjNaQ +GuNw8KsLPHJjrxHOy1ic+69PKIyEDhy0jDDCJ2ufy63fEAqHKLtD3kQaoelX +f0GeVigcj9njMh1thLJDnTLFv3YDjx1JN04xQoP8nR5ZObvhz62ku43njXDO +7Vr4VGsIZFUV/HjVaIRUk0u6x5yC4X5Rx64xWRb+dPmpHpccAH32qtsjFVhY +U9DoeTU8AIRmQrf8VmJhw8yryH6vADDbKOooQmdhx84Kk6N6AfBoHttQcTUL +R7rPCaf3+cMz38JFpiYsrGIG0RLBH7rUgisz/Vn4Z9+k5gcxP/hxZW5K+zYL +Pw+vqfR67Atf3KyKjlWz0LXFbMW2277QueCEdX8tC5ffq40OvuwLtT5K587U +s/CbXu75K0d9IVFhPXv2CQv/2TQwwLf2heWpwTEt71lYWjZ8c/zZDtAMeC3k +N5+Ncukq//zp8YGd6hWLzjuw0ZhHjwox9Yaoh97BGs5sXFHcevWmmjdk+kk9 +FbiwUcKtvFFezBvulh5Of+rOxhztyghm2zaQ0bCWmN3Bxppb7xe4e2+DRxqf +ZXwi2di/6OU9esJWWL2SRtcoZKPpaIF821tPGFudbSAYZSO7lpha98gdOp+h +pfQEG/M3scdSeO5QHzayKWKSjUbnIgMHz7tDhsBmr8EvNnrZz7v4bY87rGYL +XasR5iA9THdcoOQOvjahqo1yHGyxG/8cs98NOgI2LO0w5uBcv219ju5muFPy ++9/JVA7WiTYPBfe4gIF5xJRtGgfbmE/6VJ65wM1/h5YWneBgSnH6r/c1LiCg +9hraZnFw6RLOoaO5LnAtt/5EQR4H0zA87YirCxSlJ7M2VHJw/6fYPLm2jXAs +QuJUbjsHq3j3q91bncHTgokcqjF2R268feqLA8x2iIk30o1x6aBVkFSzAxT5 +jXTbMo0xaEx2XtVVB/iSUn3Qc6UxZha9O84JdYB9T5yqDusZo3nAwrLCSXs4 +7hhDvWNljH70EGrCEnuo8Xj9R3+PMT72l+mVsbMF5dCj1WvrjfGM0IIeUdkN +kDHnvz6tgbTduHD0XyuYn2XF/9pE3i9uvXT+NysYuCVyteiJMc7U7D5iV2sF +NUJHcqXajfFgYHhIi68VeJ6OP/jzszH+NpWZCb5pCbm1h9fXLeFi0/MrMi8C +LWCp4xa+kjgXu10HrhS7WkB8n5HWweVc9AudtDmKFhAoMq2mI8tFXuKaqBQF +CzB0ipQppnKRunvLEq8n5vDm476JZF0uLngc0+a81hxkF+/mO7hz0V7/bJ6E +iBmUmMdGjW7hovVQydmxUVPQi80wz97KRavZtxNf35uC4yjvdecOLv6NjDwi +edMUUt5MzuzczUXRvM8Sbv6mMF0cZxaVwEWn3CCLnGcIXZzs9rIKLnaqxL/8 +5AgQeKAk36aSizemLjyIWQPws/Km3xCPi76Z+jSWGIAUo3NK9xYXFbP+FlAb +TMBOjKJyr56LFeEPlM8ZmsDdjrJd7a+5GHGwoEp7FRdsxe9oRXZy8dfMOcM5 +US50bnjyU6GbfB+vzpVjX4zhR81gqncfF8/NejzhlBqD1kWd6/8NcPF6ieHZ +QKYx3O0yjUwf5mIIfe/sBmFjsJXZBNqjXDS/1dJu3c8B/6MHXkZMctHmzBK3 +yksc+FGfcl5+mouDo41NUkc4kPjr7M6aX1x0DjNZlbuLA8v1r2pum+Vi0j2K +n4klBwpCaybn5ri4vkbZU0SDA/8D0iDL3g== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.075816938824888}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.075816938824888}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}], ",", "xx"}], "]"}]], "Output", + CellChangeTimes->{3.9939612911766376`*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"4ab5e8e8-c5bb-43b4-b6b7-fc73eba722bb"] +}, Open ]], Cell[CellGroupData[{ @@ -5643,7 +11434,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[{ @@ -5661,8 +11454,8 @@ Cell[BoxData[ SuperscriptBox[ RowBox[{"(", FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -5684,66 +11477,73 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[282]:=",ExpressionUUID->"f13d1bd8-d153-ae43-b041-68b993e77854"], + "In[120]:=",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.598815441711911`*^-143\\\", \ +RowBox[{\\\"257637673519649270217965\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"119\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 120, 48, + 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337269930374*^9, 3.993961291214547*^9}, CellLabel-> "During evaluation of \ -In[282]:=",ExpressionUUID->"318da404-8df4-c540-9269-2b249c7e148e"], +In[120]:=",ExpressionUUID->"90e95b9e-46fd-426a-a103-f74ef0d95f38"], 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.1948482198505814`*^-145\\\", \ +RowBox[{\\\"990359217009531794717859\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"122\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 120, 49, + 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337269930374*^9, 3.993961291222377*^9}, CellLabel-> "During evaluation of \ -In[282]:=",ExpressionUUID->"42939765-c33b-c147-a25b-bfa31c71a3cb"], +In[120]:=",ExpressionUUID->"75e57643-6783-47a6-bbc7-11f91b9817c3"], 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.4935115651754905`*^-148\\\", \ +RowBox[{\\\"393073573231083169323518\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"126\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 120, 50, + 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337269930374*^9, 3.9939612912304287`*^9}, CellLabel-> "During evaluation of \ -In[282]:=",ExpressionUUID->"63b912c5-afab-654e-9609-c4b849e9abfe"], +In[120]:=",ExpressionUUID->"4ba8b6f1-ca98-40d1-816a-71e2a5ac3608"], 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, 120, 51, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337269930374*^9, 3.9939612912369337`*^9}, CellLabel-> "During evaluation of \ -In[282]:=",ExpressionUUID->"2c8999d2-d9b5-ef4e-a59d-c314a02b2b2a"], +In[120]:=",ExpressionUUID->"78b4505c-5d26-4d75-968d-09589a31b2b3"], -Cell[BoxData["9.332200719005147`"], "Output", - CellChangeTimes->{3.9913372766841774`*^9}, +Cell[BoxData["10.09131730643388`"], "Output", + CellChangeTimes->{3.9913372766841774`*^9, 3.993961343456011*^9}, CellLabel-> - "Out[282]=",ExpressionUUID->"52013fca-4692-bf47-a0cf-880d71f10fc1"] + "Out[120]=",ExpressionUUID->"4d98680f-527f-4a4d-8f4d-4763a36af6b4"] }, Open ]], Cell[CellGroupData[{ @@ -5810,68 +11610,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[121]:=",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.3426805786999644`*^-208\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 121, 52, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372767181473`*^9, 3.9939613434996758`*^9}, CellLabel-> "During evaluation of \ -In[283]:=",ExpressionUUID->"285f997a-25b4-f647-9523-e0dd05446bae"], +In[121]:=",ExpressionUUID->"7cbd9cd1-1c95-4820-8904-2851b414a00a"], 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[\\\"1.5088244877482708`*^-213\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 121, 53, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372767181473`*^9, 3.993961343506765*^9}, CellLabel-> "During evaluation of \ -In[283]:=",ExpressionUUID->"b1d2a50d-b27b-ca46-afcb-af9e8d59323e"], +In[121]:=",ExpressionUUID->"b9dcbae0-2516-496c-aec9-1155f5a47f80"], 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.6955271201085505`*^-218\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 121, 54, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372767181473`*^9, 3.9939613435132933`*^9}, CellLabel-> "During evaluation of \ -In[283]:=",ExpressionUUID->"a36c085c-b95e-724c-a04e-30924ab7ac52"], +In[121]:=",ExpressionUUID->"6eab2f9a-a67a-4a28-ad51-f297550d49bc"], 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, 121, 55, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372767181473`*^9, 3.993961343519837*^9}, CellLabel-> "During evaluation of \ -In[283]:=",ExpressionUUID->"976edb68-80f3-5a4d-a255-2f217ec84bfa"], +In[121]:=",ExpressionUUID->"edb66632-a246-44a8-b56e-219564ac33df"], -Cell[BoxData["0.5406905105605413`"], "Output", - CellChangeTimes->{3.991337284091696*^9}, +Cell[BoxData["0.16686166815968279`"], "Output", + CellChangeTimes->{3.991337284091696*^9, 3.993961350516438*^9}, CellLabel-> - "Out[283]=",ExpressionUUID->"b7107287-e519-1249-9ef0-b745347bdb78"] + "Out[121]=",ExpressionUUID->"085d3aae-1edd-44c5-b9e3-2ebc751e5418"] }, Open ]], Cell[CellGroupData[{ @@ -5892,8 +11696,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 +11741,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[122]:=",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.3426805786999644`*^-208\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 122, 56, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337284131695*^9, 3.993961350553162*^9}, CellLabel-> "During evaluation of \ -In[284]:=",ExpressionUUID->"2877ed71-3ee8-8044-94b0-c606083c07b7"], +In[122]:=",ExpressionUUID->"4991607e-ad6e-479f-b8ce-ae04fc111395"], 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[\\\"1.5088244877482708`*^-213\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 122, 57, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337284131695*^9, 3.9939613505604753`*^9}, CellLabel-> "During evaluation of \ -In[284]:=",ExpressionUUID->"34cfc5a5-16b6-f24f-acdf-b4e2d29b1bef"], +In[122]:=",ExpressionUUID->"e84b1ac1-41b2-4b61-b64a-5e5f12671122"], 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.6955271201085505`*^-218\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 122, 58, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337284131695*^9, 3.993961350568795*^9}, CellLabel-> "During evaluation of \ -In[284]:=",ExpressionUUID->"7fe7bdbe-3892-5043-b38d-13721c83d41a"], +In[122]:=",ExpressionUUID->"52c05e2a-3a0a-444a-a250-df42bd60c65a"], 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, 122, 59, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337284131695*^9, 3.9939613505761423`*^9}, CellLabel-> "During evaluation of \ -In[284]:=",ExpressionUUID->"93dfb0cd-55fb-1b4a-b671-37d180b9d444"], +In[122]:=",ExpressionUUID->"ffc6b5bc-d91b-4344-a36a-e3b773b69fd3"], -Cell[BoxData["2.9943030245183917`"], "Output", - CellChangeTimes->{3.9913372907074146`*^9}, +Cell[BoxData["27.468593531061998`"], "Output", + CellChangeTimes->{3.9913372907074146`*^9, 3.9939613572370987`*^9}, CellLabel-> - "Out[284]=",ExpressionUUID->"372279b5-5e4a-b545-a159-384b26aa5ab4"] + "Out[122]=",ExpressionUUID->"2c311715-963b-4f59-bdfd-60c5a1d23784"] }, Open ]], Cell[CellGroupData[{ @@ -6020,8 +11827,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 +11872,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[123]:=",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.3426805786999644`*^-208\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 123, 60, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337290744484*^9, 3.993961357282939*^9}, CellLabel-> "During evaluation of \ -In[285]:=",ExpressionUUID->"c14c35e1-e487-c742-a0da-128fdb9754d4"], +In[123]:=",ExpressionUUID->"8b22d3b7-e0a2-455d-b4d4-7a656c838f59"], 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[\\\"1.5088244877482708`*^-213\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 123, 61, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337290744484*^9, 3.993961357292408*^9}, CellLabel-> "During evaluation of \ -In[285]:=",ExpressionUUID->"4396ed61-4d7e-6144-80f0-6d5649cfcb04"], +In[123]:=",ExpressionUUID->"dbee302d-0d64-469c-8d60-ffd925214fba"], 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.6955271201085505`*^-218\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 123, 62, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337290744484*^9, 3.993961357300274*^9}, CellLabel-> "During evaluation of \ -In[285]:=",ExpressionUUID->"00fa2dcd-bc0b-9e44-9f00-15116f344aca"], +In[123]:=",ExpressionUUID->"05505745-51a5-43a5-81b8-c9c2aa359451"], 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, 123, 63, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337290744484*^9, 3.993961357307023*^9}, CellLabel-> "During evaluation of \ -In[285]:=",ExpressionUUID->"78b12bf1-7793-9341-ad5f-c7be406b8be6"], +In[123]:=",ExpressionUUID->"8262b2c9-aa9e-44ba-bf0f-8f47ce0f6525"], -Cell[BoxData["16.72305770548981`"], "Output", - CellChangeTimes->{3.991337294569908*^9}, +Cell[BoxData["3.076797667240766`"], "Output", + CellChangeTimes->{3.991337294569908*^9, 3.993961361653514*^9}, CellLabel-> - "Out[285]=",ExpressionUUID->"9454fa52-ff74-094b-8081-2fc86cf96043"] + "Out[123]=",ExpressionUUID->"d575589b-afae-4394-80c9-98dc06f13cad"] }, Open ]], Cell[CellGroupData[{ @@ -6136,22 +11946,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[124]:=",ExpressionUUID->"f9c66987-c237-7a40-a006-e20e260dbdcb"], + +Cell[BoxData["0.018150512852346395`"], "Output", + CellChangeTimes->{3.9913372946009064`*^9, 3.9939613616899757`*^9}, + CellLabel-> + "Out[124]=",ExpressionUUID->"0d32cf56-3af2-4075-8f28-ba7d52b7b082"] }, 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[125]:=",ExpressionUUID->"770a9ed7-7938-9e48-be64-c31719ef3a6b"], Cell[CellGroupData[{ @@ -6174,12 +11985,12 @@ Cell[BoxData[ RowBox[{"Ir", "*", "Il"}], RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", CellLabel-> - "In[288]:=",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], + "In[126]:=",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], -Cell[BoxData["7.13574266196526`"], "Output", - CellChangeTimes->{3.991337294629921*^9}, +Cell[BoxData["13.370844510582266`"], "Output", + CellChangeTimes->{3.991337294629921*^9, 3.993961361705372*^9}, CellLabel-> - "Out[288]=",ExpressionUUID->"e757c22c-d836-6c4a-a9f7-93553c4bb232"] + "Out[126]=",ExpressionUUID->"bbf36a3f-f589-415d-ad5f-199ce799fb0a"] }, Open ]], Cell[CellGroupData[{ @@ -6189,12 +12000,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb1"]]}]], "Input", CellLabel-> - "In[290]:=",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], + "In[127]:=",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], -Cell[BoxData["1.4042291233212119`"], "Output", - CellChangeTimes->{3.9913372946629753`*^9}, +Cell[BoxData["1.5723547437993994`"], "Output", + CellChangeTimes->{3.9913372946629753`*^9, 3.99396136171628*^9}, CellLabel-> - "Out[290]=",ExpressionUUID->"7f3ee547-87eb-d74d-8f21-a8d42f1dde52"] + "Out[127]=",ExpressionUUID->"6a759206-2e2b-46cb-9f8b-028d637af7ae"] }, Open ]], Cell[CellGroupData[{ @@ -6204,12 +12015,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[293]:=",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], + "In[128]:=",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], -Cell[BoxData["10.020217662457247`"], "Output", - CellChangeTimes->{3.9913372947367725`*^9}, +Cell[BoxData["21.023710794818186`"], "Output", + CellChangeTimes->{3.9913372947367725`*^9, 3.9939613617280407`*^9}, CellLabel-> - "Out[293]=",ExpressionUUID->"0603b6e6-a8b7-1e45-9b15-2769b7fbc373"] + "Out[128]=",ExpressionUUID->"7107eb40-5bf5-4f21-a3a6-4177ea116ca1"] }, Open ]], Cell[CellGroupData[{ @@ -6399,12 +12210,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[294]:=",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], + "In[129]:=",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], -Cell[BoxData["0.06674599726273667`"], "Output", - CellChangeTimes->{3.9913372947513313`*^9}, +Cell[BoxData["0.007395675517606784`"], "Output", + CellChangeTimes->{3.9913372947513313`*^9, 3.993961361741474*^9}, CellLabel-> - "Out[294]=",ExpressionUUID->"8b7a346f-cdda-e24e-b924-d6cfb1b3119a"] + "Out[129]=",ExpressionUUID->"4cf8ad3b-7443-428b-a3cb-3caea3f1d373"] }, Open ]], Cell[CellGroupData[{ @@ -6418,12 +12229,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[295]:=",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], + "In[130]:=",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], -Cell[BoxData["3.430301770911147`"], "Output", - CellChangeTimes->{3.9913372948636913`*^9}, +Cell[BoxData["10.305190310124765`"], "Output", + CellChangeTimes->{3.9913372948636913`*^9, 3.993961361850381*^9}, CellLabel-> - "Out[295]=",ExpressionUUID->"3354b35a-acef-b846-b770-8d2e77b8f68b"] + "Out[130]=",ExpressionUUID->"8e602be2-f8a9-4336-9a26-5330fd3b3998"] }, Open ]], Cell[CellGroupData[{ @@ -6615,12 +12426,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[296]:=",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], + "In[131]:=",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], -Cell[BoxData["0.01266539131451536`"], "Output", - CellChangeTimes->{3.991337294877693*^9}, +Cell[BoxData["0.04639628738216106`"], "Output", + CellChangeTimes->{3.991337294877693*^9, 3.993961361864107*^9}, CellLabel-> - "Out[296]=",ExpressionUUID->"7b76721b-3d4c-c544-9113-83ba4f36ae7f"] + "Out[131]=",ExpressionUUID->"40b08a27-4aa6-497e-bac7-78725a00cabd"] }, Open ]], Cell[CellGroupData[{ @@ -6634,12 +12445,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[297]:=",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], + "In[132]:=",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], -Cell[BoxData["7.874729317258519`"], "Output", - CellChangeTimes->{3.991337294976324*^9}, +Cell[BoxData["4.11436982106697`"], "Output", + CellChangeTimes->{3.991337294976324*^9, 3.9939613619719067`*^9}, CellLabel-> - "Out[297]=",ExpressionUUID->"e9346704-c478-364d-b5eb-0aabe0e2e350"] + "Out[132]=",ExpressionUUID->"b541f4df-94be-426d-8b38-b5981bb8a9c2"] }, Open ]], Cell[CellGroupData[{ @@ -6732,12 +12543,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[298]:=",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], + "In[133]:=",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], -Cell[BoxData["0.7884625602161153`"], "Output", - CellChangeTimes->{3.9913372950022793`*^9}, +Cell[BoxData["0.06376749590987153`"], "Output", + CellChangeTimes->{3.9913372950022793`*^9, 3.993961361981968*^9}, CellLabel-> - "Out[298]=",ExpressionUUID->"33b7f444-6995-e54b-a2a6-ad09016b1850"] + "Out[133]=",ExpressionUUID->"a380c7df-3285-447e-9b59-e427d282f8bf"] }, Open ]], Cell[CellGroupData[{ @@ -6827,12 +12638,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[299]:=",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], + "In[134]:=",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], -Cell[BoxData["0.21153743978388478`"], "Output", - CellChangeTimes->{3.991337295013279*^9}, +Cell[BoxData["0.9362325040901285`"], "Output", + CellChangeTimes->{3.991337295013279*^9, 3.993961361995582*^9}, CellLabel-> - "Out[299]=",ExpressionUUID->"76ba8e46-11c7-f54d-bfb2-cca1b455c838"] + "Out[134]=",ExpressionUUID->"ff5c9b21-8fda-4229-a200-fa7e6f33955d"] }, Open ]], Cell[CellGroupData[{ @@ -6955,12 +12766,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[300]:=",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], + "In[135]:=",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], -Cell[BoxData["0.16678935135356415`"], "Output", - CellChangeTimes->{3.991337295041279*^9}, +Cell[BoxData["0.05970120237525605`"], "Output", + CellChangeTimes->{3.991337295041279*^9, 3.993961362007329*^9}, CellLabel-> - "Out[300]=",ExpressionUUID->"f7c29774-2634-5546-ab63-4d3ac6889f79"] + "Out[135]=",ExpressionUUID->"ee3cdeb3-ac3b-4219-bce1-c6d67b2f442c"] }, Open ]], Cell[CellGroupData[{ @@ -6975,7 +12786,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 +12810,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -7022,68 +12834,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[136]:=",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[\\\"1.727741205452016`*^-204\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 136, 64, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372950662746`*^9, 3.99396136202172*^9}, CellLabel-> "During evaluation of \ -In[301]:=",ExpressionUUID->"3d5a1265-fb27-0b41-a549-5e326650d270"], +In[136]:=",ExpressionUUID->"8071e39d-2dad-4fdd-a52b-722e78d7694f"], 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.041218175877342`*^-209\\\", \ +RowBox[{\\\"143094757247897252281238\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"64\\\", \\\"\[RightSkeleton]\\\"}], \\\"3737600000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 136, 65, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372950662746`*^9, 3.993961362029943*^9}, CellLabel-> "During evaluation of \ -In[301]:=",ExpressionUUID->"0726d23e-32d7-7a41-8d7f-0b62fec75437"], +In[136]:=",ExpressionUUID->"9d66fc90-f22c-4fc1-8a39-788ec591ed40"], 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[\\\"9.452482983855632`*^-214\\\", \ +RowBox[{\\\"302788506336550585827101\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"67\\\", \\\"\[RightSkeleton]\\\"}], \\\"8761600000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 136, 66, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372950662746`*^9, 3.993961362037159*^9}, CellLabel-> "During evaluation of \ -In[301]:=",ExpressionUUID->"b47482ef-bec0-234f-aeb7-9009a378a36d"], +In[136]:=",ExpressionUUID->"2fdd8a8b-53be-43ad-8fd8-88dca0043e5c"], 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, 136, 67, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372950662746`*^9, 3.993961362043889*^9}, CellLabel-> "During evaluation of \ -In[301]:=",ExpressionUUID->"e5e35e3a-0e40-c249-b6f3-c2a6a5a48740"], +In[136]:=",ExpressionUUID->"12d5ed59-5062-44b9-8bf9-7e4846bbc6ad"], -Cell[BoxData["3.430301770911144`"], "Output", - CellChangeTimes->{3.991337298790371*^9}, +Cell[BoxData["10.305190310124758`"], "Output", + CellChangeTimes->{3.991337298790371*^9, 3.9939613660281982`*^9}, CellLabel-> - "Out[301]=",ExpressionUUID->"b33776d0-2a41-694b-9af8-c4d483383e7c"] + "Out[136]=",ExpressionUUID->"d43670b2-8a1a-44ce-b044-fefb2bff1ec4"] }, Open ]], Cell[CellGroupData[{ @@ -7098,7 +12914,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 +12938,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -7145,68 +12962,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[137]:=",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[\\\"1.727741205452016`*^-204\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 137, 68, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372988243732`*^9, 3.9939613660702953`*^9}, CellLabel-> "During evaluation of \ -In[302]:=",ExpressionUUID->"ffb6a3c0-c488-cd48-870e-d66051362026"], +In[137]:=",ExpressionUUID->"cf17f2cb-c3f0-4082-b473-3c75a8d17ac6"], 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.041218175877342`*^-209\\\", \ +RowBox[{\\\"143094757247897252281238\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"64\\\", \\\"\[RightSkeleton]\\\"}], \\\"3737600000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 137, 69, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372988243732`*^9, 3.9939613660774384`*^9}, CellLabel-> "During evaluation of \ -In[302]:=",ExpressionUUID->"ca3fb11a-47f9-c542-a5c9-6e0087e110b9"], +In[137]:=",ExpressionUUID->"3704c7c7-e984-484c-a3cf-d8bd7bb3f3ac"], 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[\\\"9.452482983855632`*^-214\\\", \ +RowBox[{\\\"302788506336550585827101\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"67\\\", \\\"\[RightSkeleton]\\\"}], \\\"8761600000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 137, 70, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372988243732`*^9, 3.993961366086887*^9}, CellLabel-> "During evaluation of \ -In[302]:=",ExpressionUUID->"7e4a0639-38a1-f74e-ab8e-5264cad2d48c"], +In[137]:=",ExpressionUUID->"8a32cbe2-8c0e-4136-9160-53dce2721b76"], 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, 137, 71, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372988243732`*^9, 3.99396136609341*^9}, CellLabel-> "During evaluation of \ -In[302]:=",ExpressionUUID->"101eaea3-75b1-d942-9914-a0fe8a6e2f65"], +In[137]:=",ExpressionUUID->"06e8525d-6e3a-481c-ac83-473972c9fd43"], -Cell[BoxData["7.87472931725852`"], "Output", - CellChangeTimes->{3.991337302457178*^9}, +Cell[BoxData["4.114369821066969`"], "Output", + CellChangeTimes->{3.991337302457178*^9, 3.993961370099128*^9}, CellLabel-> - "Out[302]=",ExpressionUUID->"921a9c76-dcb9-484a-bc19-88ddead9467a"] + "Out[137]=",ExpressionUUID->"4fd8167a-dff3-44ec-a181-36d68f9a8e84"] }, Open ]], Cell[CellGroupData[{ @@ -7264,94 +13085,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[138]:=",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:eJwV1Hc4Vu8fB3BZlZWRlYZdlMJjVer+2CMrlD16POckESFJRksaCIk2GZHs +jIyvn0qlUvlGJd8Ucew9niOVfrc/znWu13Vf530+n3vJMQPtCU4ODo5B/Cy9 +j77burG69d3uHcoTY/wWFNo9nqPNNC5EpzLPywlgd2fopCoa16M1CRb1S7Zj +veUVYDxHfZO6DYLYZeExz3iMW9Cztr0bV2FffCHVGFPwL1qEdFoYu6b16N3f +mh8RZbpimxj2cOfryBN1HWg9nfNWHHsNpeDGNvqKmGRAmxT2nonI7SEt39Hj +wgOwFrvh9zB/eEEPcqBOr5bF/nRa8mTVkV50Yes7W0XscV7j4VlNCvU8MJ3e +hM0bH+TCoPvR7siRX2rY60XuNB+tG0TRb+v9Gdg2Muz740ajKPk2dRZhk5ny +EmorxpF3xC5VU+wYJdvYwy0TaCjtqa41dodku0ZowRTaFLjvgjs2y9Xv0NX4 +aeSZ4/OGhT15m+Ne+ZEZ5MifeSwAe4W8mvCU5hxKPJfzNwY7lfXMTFicjb6o +BHy/iC2b5xKzjWajP8qEciq23pbz4wF182jmaN/QA2xfne8tw0a/Udyiilkn +9mz4MW4+5T/oyd8w7wHsU3X8+iorFpH9bnb3LPZ10Ht4sOUvklVIkBSxxPXl +NhsHFywDKz4VNxvsghdXu0/LcIK11+piT+zJAc/I5HhOSMvW9g3EjlSde1R6 +hAtaVq0VTcFOLZFTmNDkAZ/GOP2v2J2tow2L2Txw5ZnGqwls2elqVyFxXtDU +kviHaw+FCrVsUtRoXrjzJalzC3ZTTcQy/7oVsNvCa/Qs9tyztu+DRgJg/uHX +YRMrColaCQifbBAA0dLd9w5gq7cbg+B2QXBd88M2GtuvrzJTY6sQ+DfZSNdg +B3G2qO8SEAbdyi53LWsKUfLFU7FsEfDM/ZBnYIPnh3y98j1DFNy4c0MIbM6H +/XJSR0XBvmj48UVsWcYG+4IRUdih/LGkDdvVKKn8XbcY8OVZ2QbYUui9T3CI +5BtxiPjKtb/ajkLf8hIve6+QgNlj5TU/sEdHCrIfmEhAavhImtBeCvGF9rbt +bJSAdmmuhoPYxucctbwrJYEk2Q0b7ClUm6Mzl58hDZHgm3DfgUI51ELYjtB1 +EK6lc2iVE4XM98V9CylaB0m5r2RMsUebxEyL+tfB/8bj9KKwtXK2iMu6rIfS +P5dLR7GbmJ6PeHZvgIfBvTdbnSk0PdF9fPCsLATnEq6FrhQSCzCueGQtDwvu +oimPPCnUn8Pna+cnD84LtxNo7MdfW2XGzmPbJM3s9KKQu5XHWeVGeTAvrVl8 +jp2zOcz+hqYC7FBzFP3ujf8/nDcZLakIXlo31JV8KOR4kF/NskcJrOzTXJb5 +UgiF7dN0+qMErtL2gnuxVWMzdFnSyiBseHvjPWyObIZh9F5lmHGgrhgeolDR +Nzen8ifKEOOVuO2SHz6f+wtPr8naCMxJVtGWAFyfsfWnYaYKJM9zVzYEUyjb +If0/OloFfnYcRjIhFEpk9nRz31IBq6RH6uHYrFPHRta3qYBL2qQZI5RCIvV3 +OByMVAHkAi2Kj+H9wxhXrVPYDDefzN+sDqeQjPyVmMt9WyC750G8ZAyF6i/N +qvzkVAOdrvHRi9juMy7tpJwacHuWvfiNfbdJUcXQUw3IwYb+3lMUkj9Y+2H+ +sxpovPb/Un0G91tIKZFvtkLqeG582HkKrZNZT8q6qMPeihEz20QKbckNFfiF +NEFpr9vKwAwKMVln59RsNKGmrG8nG/u6Qso3b3dN+HhJ90tUJoW4skpKX4Rr +glO9hWPiPXze7g47ppRpQrpdslVFNr5Pr3vfUVFgwDU+sFidj9f3stVWZ14t +UJo3SlIso9C9YEW7yhZteDGmYBbXRKHWMKR7Lnc73LGRG3aapZCc50cbD/9d +0FGRNiu+uR8Rf6uK150A+HpF4Lg20Y8kRx4vl2QawuPP03oChf0olKH/NUXV +GEQN5FHmXD9ijv1uFhs2AelK/x+fjQdQkWHI8oz3ZvBWhM+0M2sA5cz6PSlM +tQDBX/z3EOcgmjeQetsUswfMjy6sVw4eRF0cXFM9B6xhA9JYrBocREfWBiad +VrAFOZu+3k1eQ6j4UHPjtVg76CoZv2g5OIQiZqTpzYf2guFTjaHwoGE0Z2m6 +/6WXPWhsNshaEBhB292SDai9DnBruvdwQckI+iB9x6+J4QhRdXbcQbajaM39 +s/X5m/aB0q7L5QY8Y+hxt6qVjeB+uE+OX6OqxtD69smDYWP7QS5IUUHDfxwx +riUXZnc7wWvH0NZTehPoDvfM1pRnznBYWF+I+jOBqgy2dcbWuEBXjKOuWcAk +uq57SeR3gSv8GsjXzvg6id7/l3ueEe8GFTXmxEvTKVRpfVsx6JQ7bDXVvD1Q +N4WmAhw4jrA8IEq+0TdVdRrNmar4jht5wsAtw7In6dMof+zLfIiOF9BcvBPG +QjPI+V6uj4eAN2Tlb/hHMXIGPSrf48UV5w2LMQ/rUqdm0HaZDz8v/vQGa4FE +iefus0ih+2Dnv4cOwN06pav3n86iPv7Dtrd7D8AyrZUiF7fModZEGx+zfUww +eDXAy3tpDqWGZ/Afa2WCj+jyVGJwDtU3/P3pY+ED6zorPw/rs9Eqd4hj1PrA +LNtz7eWzbCS7+uX7tfU+kF3VkV9wjo3UW6yleBt8wOLz8qRXsWxkr+/2oOOJ +D4R2xwXwXGCj1LVhb6Je+UBpnKznsXg2WtP1cFVzhw9Umtz8pn2NjRQ9Ja+7 +0z6Q/qnoge59NtruPZ4fq8UCZf9uDY0XbHT/xmSIjQ4LCny494m/ZKPVbdO7 +JfVYkN21/L957HETuj1/JwtuudJCDa/Y+P7iWNZiyAI+OCdi8JaNhGgRF9G9 +LEh7x+eq0s5GfQnaKzMCWGDhtfDsdA8bJdZFHnp8nwXI07PUfIGNAjTTt4fn +s+CHyroLHL/YyOpB2Uq9AhbUdNQ1VGPzpfc/qC5iQZ3JCnPFP2wUG2w3XFXB +gmnWxIu5v2wUqaJ4uPIpC3odqf0RPDTyS3/jX/6NBfMXv7WsEKaRhVC/fnA3 +CxKXlesXYm+K5RDU/MGCPAGp5bYiNOoP1i4qo1jQ81v6YYoojQ7YZIyVjrKg +tuXIFlFxGjnzhBwpWWDBmdH4+SlpGpmFrAkqlCDg6seT3xgKNHqacd4yRYqA ++wlxx99h67dMK4avISBuytHCV5FG6kpvvhitJ6B4PCvthhKNpD+fNPpPiYD2 +Lqn26Y00GtnRJcGnTcBinm9dzBYaXeHM/OegAwH/C31qxalNI75tAtet9xFw +3ry69iz2ObfwYIYTAYFZ2h7cOjQKr7Db+NeVgJgJB8Sli+snlyWnMQng9WgK +pfVoxHjNZD0/SsBf14hLNfo0+pysxK+QRIBUucKtbCMaFSNB38FkArx8BcO5 +jXH+2GxT0VUCVqc8z2Rha1o0ReulE/Ahz+6jvAmNEjl8pq3vEvC+Obc5zZRG +poGZX8ILCSj4l/XS3YJG69Zd0NldTIDOVWHncuzZ14FXuUoJYGi5MJZb0ihL +GVknPiIg+uWJV8XYf7q6GrNrcf4eweC5PTSqsJLJf9dMQNHwvVxvGxpdXuDk +SX1N4PUW6ijAZuYPH3BpIeDtNX7HWWxh7lqZvvcEeOyM2BRrSyP/OucrPz8R +cOZ5jMFdOxopqKaFKVIEcBkwNxbb02jhc1TbUD8BCcWDI6PYrbGEeskgAf7X +pH+qOtAoukdrePsoASsjTMdysDuvt3nYzhBwqozcmeRIo5TlIiYRy0hgVq5i +Ge+nUf10l1soFwnN2X7Xo7AHugqCj/CQcKbVa6ASW7/COJO5koSKoq52BSe8 +37zDf1mKkLC4IW10FlvYykTURIwEMR71WWVnGu3UFVVB4iSYdMyIO2MnCRbu +Z0iTwHfreV710njt9zIZORJGVmpz+bvQiMwtbBZXIGGtRmNnGnZS0onvq5RI +2LpqdUsjdj8pJsitQgJX29AvEVc8LmbmO6pOwqNZpSsPsGsXxWL6NUnoy33L +eItNDXVf69YiwXlxZGoCe0djxLN2PRL+t8G3VtONRn3+xev/ARIevj98sghb +yPmkdrUhCWH17cOvsLcbmVuVGZPwNfRoCIWdKP3jRK45Cb7eKq3S7jR6zF2S +lGGJ+6/WydHE7p04mXfDigQpRfdkS2y9F+IfE+xIkJD/VHUcm1n2YyTOHtfb +uH4iHjvhdgnnGUcSvBIOwj3sH8EW6mHOJOzy61N7iS3oKWEW5ErCZKDQ646l +PIteDz93EsoTFWOGlr7fEHXZ05uE7iwurRUeuB4+yyxnJu4/rIkhgf1jTqLG +nkUCkjtgpYAt2NP73ookQV31U9Q2bL2W0n5TXxI2OMk278BmVkf9AT8Sqgr0 +N5tgJ2RZrt7pT8Ir1qY8m6X8BMnN2kdIcOfs2em0lB/eZ7AtiIT6XawhT2wB +VpmzSjAJB4RKSwhsXdvoQIVQEn7nP008vJS/Y8/5dWEkxMTcPB+EHa8kdUcy +nITVBjrpodhVwtQjkQgSlDtTG49j9/wqe80fSYJHaCVnxFL+QHQPTzQJaWHp +HiexdT7smf8bQ8LPczv+XfL/ATYK3tk= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -7365,106 +13186,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:eJwV1Hc4Vu8fB3BZlZWRlYZdlMJjVer+2CMrlD16POckESFJRksaCIk2GZHs +jIyvn0qlUvlGJd8Ucew9niOVfrc/znWu13Vf530+n3vJMQPtCU4ODo5B/Cy9 +j77burG69d3uHcoTY/wWFNo9nqPNNC5EpzLPywlgd2fopCoa16M1CRb1S7Zj +veUVYDxHfZO6DYLYZeExz3iMW9Cztr0bV2FffCHVGFPwL1qEdFoYu6b16N3f +mh8RZbpimxj2cOfryBN1HWg9nfNWHHsNpeDGNvqKmGRAmxT2nonI7SEt39Hj +wgOwFrvh9zB/eEEPcqBOr5bF/nRa8mTVkV50Yes7W0XscV7j4VlNCvU8MJ3e +hM0bH+TCoPvR7siRX2rY60XuNB+tG0TRb+v9Gdg2Muz740ajKPk2dRZhk5ny +EmorxpF3xC5VU+wYJdvYwy0TaCjtqa41dodku0ZowRTaFLjvgjs2y9Xv0NX4 +aeSZ4/OGhT15m+Ne+ZEZ5MifeSwAe4W8mvCU5hxKPJfzNwY7lfXMTFicjb6o +BHy/iC2b5xKzjWajP8qEciq23pbz4wF182jmaN/QA2xfne8tw0a/Udyiilkn +9mz4MW4+5T/oyd8w7wHsU3X8+iorFpH9bnb3LPZ10Ht4sOUvklVIkBSxxPXl +NhsHFywDKz4VNxvsghdXu0/LcIK11+piT+zJAc/I5HhOSMvW9g3EjlSde1R6 +hAtaVq0VTcFOLZFTmNDkAZ/GOP2v2J2tow2L2Txw5ZnGqwls2elqVyFxXtDU +kviHaw+FCrVsUtRoXrjzJalzC3ZTTcQy/7oVsNvCa/Qs9tyztu+DRgJg/uHX +YRMrColaCQifbBAA0dLd9w5gq7cbg+B2QXBd88M2GtuvrzJTY6sQ+DfZSNdg +B3G2qO8SEAbdyi53LWsKUfLFU7FsEfDM/ZBnYIPnh3y98j1DFNy4c0MIbM6H +/XJSR0XBvmj48UVsWcYG+4IRUdih/LGkDdvVKKn8XbcY8OVZ2QbYUui9T3CI +5BtxiPjKtb/ajkLf8hIve6+QgNlj5TU/sEdHCrIfmEhAavhImtBeCvGF9rbt +bJSAdmmuhoPYxucctbwrJYEk2Q0b7ClUm6Mzl58hDZHgm3DfgUI51ELYjtB1 +EK6lc2iVE4XM98V9CylaB0m5r2RMsUebxEyL+tfB/8bj9KKwtXK2iMu6rIfS +P5dLR7GbmJ6PeHZvgIfBvTdbnSk0PdF9fPCsLATnEq6FrhQSCzCueGQtDwvu +oimPPCnUn8Pna+cnD84LtxNo7MdfW2XGzmPbJM3s9KKQu5XHWeVGeTAvrVl8 +jp2zOcz+hqYC7FBzFP3ujf8/nDcZLakIXlo31JV8KOR4kF/NskcJrOzTXJb5 +UgiF7dN0+qMErtL2gnuxVWMzdFnSyiBseHvjPWyObIZh9F5lmHGgrhgeolDR +Nzen8ifKEOOVuO2SHz6f+wtPr8naCMxJVtGWAFyfsfWnYaYKJM9zVzYEUyjb +If0/OloFfnYcRjIhFEpk9nRz31IBq6RH6uHYrFPHRta3qYBL2qQZI5RCIvV3 +OByMVAHkAi2Kj+H9wxhXrVPYDDefzN+sDqeQjPyVmMt9WyC750G8ZAyF6i/N +qvzkVAOdrvHRi9juMy7tpJwacHuWvfiNfbdJUcXQUw3IwYb+3lMUkj9Y+2H+ +sxpovPb/Un0G91tIKZFvtkLqeG582HkKrZNZT8q6qMPeihEz20QKbckNFfiF +NEFpr9vKwAwKMVln59RsNKGmrG8nG/u6Qso3b3dN+HhJ90tUJoW4skpKX4Rr +glO9hWPiPXze7g47ppRpQrpdslVFNr5Pr3vfUVFgwDU+sFidj9f3stVWZ14t +UJo3SlIso9C9YEW7yhZteDGmYBbXRKHWMKR7Lnc73LGRG3aapZCc50cbD/9d +0FGRNiu+uR8Rf6uK150A+HpF4Lg20Y8kRx4vl2QawuPP03oChf0olKH/NUXV +GEQN5FHmXD9ijv1uFhs2AelK/x+fjQdQkWHI8oz3ZvBWhM+0M2sA5cz6PSlM +tQDBX/z3EOcgmjeQetsUswfMjy6sVw4eRF0cXFM9B6xhA9JYrBocREfWBiad +VrAFOZu+3k1eQ6j4UHPjtVg76CoZv2g5OIQiZqTpzYf2guFTjaHwoGE0Z2m6 +/6WXPWhsNshaEBhB292SDai9DnBruvdwQckI+iB9x6+J4QhRdXbcQbajaM39 +s/X5m/aB0q7L5QY8Y+hxt6qVjeB+uE+OX6OqxtD69smDYWP7QS5IUUHDfxwx +riUXZnc7wWvH0NZTehPoDvfM1pRnznBYWF+I+jOBqgy2dcbWuEBXjKOuWcAk +uq57SeR3gSv8GsjXzvg6id7/l3ueEe8GFTXmxEvTKVRpfVsx6JQ7bDXVvD1Q +N4WmAhw4jrA8IEq+0TdVdRrNmar4jht5wsAtw7In6dMof+zLfIiOF9BcvBPG +QjPI+V6uj4eAN2Tlb/hHMXIGPSrf48UV5w2LMQ/rUqdm0HaZDz8v/vQGa4FE +iefus0ih+2Dnv4cOwN06pav3n86iPv7Dtrd7D8AyrZUiF7fModZEGx+zfUww +eDXAy3tpDqWGZ/Afa2WCj+jyVGJwDtU3/P3pY+ED6zorPw/rs9Eqd4hj1PrA +LNtz7eWzbCS7+uX7tfU+kF3VkV9wjo3UW6yleBt8wOLz8qRXsWxkr+/2oOOJ +D4R2xwXwXGCj1LVhb6Je+UBpnKznsXg2WtP1cFVzhw9Umtz8pn2NjRQ9Ja+7 +0z6Q/qnoge59NtruPZ4fq8UCZf9uDY0XbHT/xmSIjQ4LCny494m/ZKPVbdO7 +JfVYkN21/L957HETuj1/JwtuudJCDa/Y+P7iWNZiyAI+OCdi8JaNhGgRF9G9 +LEh7x+eq0s5GfQnaKzMCWGDhtfDsdA8bJdZFHnp8nwXI07PUfIGNAjTTt4fn +s+CHyroLHL/YyOpB2Uq9AhbUdNQ1VGPzpfc/qC5iQZ3JCnPFP2wUG2w3XFXB +gmnWxIu5v2wUqaJ4uPIpC3odqf0RPDTyS3/jX/6NBfMXv7WsEKaRhVC/fnA3 +CxKXlesXYm+K5RDU/MGCPAGp5bYiNOoP1i4qo1jQ81v6YYoojQ7YZIyVjrKg +tuXIFlFxGjnzhBwpWWDBmdH4+SlpGpmFrAkqlCDg6seT3xgKNHqacd4yRYqA ++wlxx99h67dMK4avISBuytHCV5FG6kpvvhitJ6B4PCvthhKNpD+fNPpPiYD2 +Lqn26Y00GtnRJcGnTcBinm9dzBYaXeHM/OegAwH/C31qxalNI75tAtet9xFw +3ry69iz2ObfwYIYTAYFZ2h7cOjQKr7Db+NeVgJgJB8Sli+snlyWnMQng9WgK +pfVoxHjNZD0/SsBf14hLNfo0+pysxK+QRIBUucKtbCMaFSNB38FkArx8BcO5 +jXH+2GxT0VUCVqc8z2Rha1o0ReulE/Ahz+6jvAmNEjl8pq3vEvC+Obc5zZRG +poGZX8ILCSj4l/XS3YJG69Zd0NldTIDOVWHncuzZ14FXuUoJYGi5MJZb0ihL +GVknPiIg+uWJV8XYf7q6GrNrcf4eweC5PTSqsJLJf9dMQNHwvVxvGxpdXuDk +SX1N4PUW6ijAZuYPH3BpIeDtNX7HWWxh7lqZvvcEeOyM2BRrSyP/OucrPz8R +cOZ5jMFdOxopqKaFKVIEcBkwNxbb02jhc1TbUD8BCcWDI6PYrbGEeskgAf7X +pH+qOtAoukdrePsoASsjTMdysDuvt3nYzhBwqozcmeRIo5TlIiYRy0hgVq5i +Ge+nUf10l1soFwnN2X7Xo7AHugqCj/CQcKbVa6ASW7/COJO5koSKoq52BSe8 +37zDf1mKkLC4IW10FlvYykTURIwEMR71WWVnGu3UFVVB4iSYdMyIO2MnCRbu +Z0iTwHfreV710njt9zIZORJGVmpz+bvQiMwtbBZXIGGtRmNnGnZS0onvq5RI +2LpqdUsjdj8pJsitQgJX29AvEVc8LmbmO6pOwqNZpSsPsGsXxWL6NUnoy33L +eItNDXVf69YiwXlxZGoCe0djxLN2PRL+t8G3VtONRn3+xev/ARIevj98sghb +yPmkdrUhCWH17cOvsLcbmVuVGZPwNfRoCIWdKP3jRK45Cb7eKq3S7jR6zF2S +lGGJ+6/WydHE7p04mXfDigQpRfdkS2y9F+IfE+xIkJD/VHUcm1n2YyTOHtfb +uH4iHjvhdgnnGUcSvBIOwj3sH8EW6mHOJOzy61N7iS3oKWEW5ErCZKDQ646l +PIteDz93EsoTFWOGlr7fEHXZ05uE7iwurRUeuB4+yyxnJu4/rIkhgf1jTqLG +nkUCkjtgpYAt2NP73ookQV31U9Q2bL2W0n5TXxI2OMk278BmVkf9AT8Sqgr0 +N5tgJ2RZrt7pT8Ir1qY8m6X8BMnN2kdIcOfs2em0lB/eZ7AtiIT6XawhT2wB +VpmzSjAJB4RKSwhsXdvoQIVQEn7nP008vJS/Y8/5dWEkxMTcPB+EHa8kdUcy +nITVBjrpodhVwtQjkQgSlDtTG49j9/wqe80fSYJHaCVnxFL+QHQPTzQJaWHp +HiexdT7smf8bQ8LPczv+XfL/ATYK3tk= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6639439823901716, - 1.4626441816684523`}}, + "PlotRange" -> {{0, 180}, {0.6651668212081809, 1.46032315950316}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.663943982390173}, + "AxesOrigin" -> {0, 0.6651668212081824}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.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 +13296,20 @@ hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6639439823901716, - 1.4626441816684523`}}, + "PlotRange" -> {{0, 180}, {0.6651668212081809, 1.46032315950316}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.663943982390173}, + "AxesOrigin" -> {0, 0.6651668212081824}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 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 +13323,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:eJwV1Hc4Vu8fB3BZlZWRlYZdlMJjVer+2CMrlD16POckESFJRksaCIk2GZHs +jIyvn0qlUvlGJd8Ucew9niOVfrc/znWu13Vf530+n3vJMQPtCU4ODo5B/Cy9 +j77burG69d3uHcoTY/wWFNo9nqPNNC5EpzLPywlgd2fopCoa16M1CRb1S7Zj +veUVYDxHfZO6DYLYZeExz3iMW9Cztr0bV2FffCHVGFPwL1qEdFoYu6b16N3f +mh8RZbpimxj2cOfryBN1HWg9nfNWHHsNpeDGNvqKmGRAmxT2nonI7SEt39Hj +wgOwFrvh9zB/eEEPcqBOr5bF/nRa8mTVkV50Yes7W0XscV7j4VlNCvU8MJ3e +hM0bH+TCoPvR7siRX2rY60XuNB+tG0TRb+v9Gdg2Muz740ajKPk2dRZhk5ny +EmorxpF3xC5VU+wYJdvYwy0TaCjtqa41dodku0ZowRTaFLjvgjs2y9Xv0NX4 +aeSZ4/OGhT15m+Ne+ZEZ5MifeSwAe4W8mvCU5hxKPJfzNwY7lfXMTFicjb6o +BHy/iC2b5xKzjWajP8qEciq23pbz4wF182jmaN/QA2xfne8tw0a/Udyiilkn +9mz4MW4+5T/oyd8w7wHsU3X8+iorFpH9bnb3LPZ10Ht4sOUvklVIkBSxxPXl +NhsHFywDKz4VNxvsghdXu0/LcIK11+piT+zJAc/I5HhOSMvW9g3EjlSde1R6 +hAtaVq0VTcFOLZFTmNDkAZ/GOP2v2J2tow2L2Txw5ZnGqwls2elqVyFxXtDU +kviHaw+FCrVsUtRoXrjzJalzC3ZTTcQy/7oVsNvCa/Qs9tyztu+DRgJg/uHX +YRMrColaCQifbBAA0dLd9w5gq7cbg+B2QXBd88M2GtuvrzJTY6sQ+DfZSNdg +B3G2qO8SEAbdyi53LWsKUfLFU7FsEfDM/ZBnYIPnh3y98j1DFNy4c0MIbM6H +/XJSR0XBvmj48UVsWcYG+4IRUdih/LGkDdvVKKn8XbcY8OVZ2QbYUui9T3CI +5BtxiPjKtb/ajkLf8hIve6+QgNlj5TU/sEdHCrIfmEhAavhImtBeCvGF9rbt +bJSAdmmuhoPYxucctbwrJYEk2Q0b7ClUm6Mzl58hDZHgm3DfgUI51ELYjtB1 +EK6lc2iVE4XM98V9CylaB0m5r2RMsUebxEyL+tfB/8bj9KKwtXK2iMu6rIfS +P5dLR7GbmJ6PeHZvgIfBvTdbnSk0PdF9fPCsLATnEq6FrhQSCzCueGQtDwvu +oimPPCnUn8Pna+cnD84LtxNo7MdfW2XGzmPbJM3s9KKQu5XHWeVGeTAvrVl8 +jp2zOcz+hqYC7FBzFP3ujf8/nDcZLakIXlo31JV8KOR4kF/NskcJrOzTXJb5 +UgiF7dN0+qMErtL2gnuxVWMzdFnSyiBseHvjPWyObIZh9F5lmHGgrhgeolDR +Nzen8ifKEOOVuO2SHz6f+wtPr8naCMxJVtGWAFyfsfWnYaYKJM9zVzYEUyjb +If0/OloFfnYcRjIhFEpk9nRz31IBq6RH6uHYrFPHRta3qYBL2qQZI5RCIvV3 +OByMVAHkAi2Kj+H9wxhXrVPYDDefzN+sDqeQjPyVmMt9WyC750G8ZAyF6i/N +qvzkVAOdrvHRi9juMy7tpJwacHuWvfiNfbdJUcXQUw3IwYb+3lMUkj9Y+2H+ +sxpovPb/Un0G91tIKZFvtkLqeG582HkKrZNZT8q6qMPeihEz20QKbckNFfiF +NEFpr9vKwAwKMVln59RsNKGmrG8nG/u6Qso3b3dN+HhJ90tUJoW4skpKX4Rr +glO9hWPiPXze7g47ppRpQrpdslVFNr5Pr3vfUVFgwDU+sFidj9f3stVWZ14t +UJo3SlIso9C9YEW7yhZteDGmYBbXRKHWMKR7Lnc73LGRG3aapZCc50cbD/9d +0FGRNiu+uR8Rf6uK150A+HpF4Lg20Y8kRx4vl2QawuPP03oChf0olKH/NUXV +GEQN5FHmXD9ijv1uFhs2AelK/x+fjQdQkWHI8oz3ZvBWhM+0M2sA5cz6PSlM +tQDBX/z3EOcgmjeQetsUswfMjy6sVw4eRF0cXFM9B6xhA9JYrBocREfWBiad +VrAFOZu+3k1eQ6j4UHPjtVg76CoZv2g5OIQiZqTpzYf2guFTjaHwoGE0Z2m6 +/6WXPWhsNshaEBhB292SDai9DnBruvdwQckI+iB9x6+J4QhRdXbcQbajaM39 +s/X5m/aB0q7L5QY8Y+hxt6qVjeB+uE+OX6OqxtD69smDYWP7QS5IUUHDfxwx +riUXZnc7wWvH0NZTehPoDvfM1pRnznBYWF+I+jOBqgy2dcbWuEBXjKOuWcAk +uq57SeR3gSv8GsjXzvg6id7/l3ueEe8GFTXmxEvTKVRpfVsx6JQ7bDXVvD1Q +N4WmAhw4jrA8IEq+0TdVdRrNmar4jht5wsAtw7In6dMof+zLfIiOF9BcvBPG +QjPI+V6uj4eAN2Tlb/hHMXIGPSrf48UV5w2LMQ/rUqdm0HaZDz8v/vQGa4FE +iefus0ih+2Dnv4cOwN06pav3n86iPv7Dtrd7D8AyrZUiF7fModZEGx+zfUww +eDXAy3tpDqWGZ/Afa2WCj+jyVGJwDtU3/P3pY+ED6zorPw/rs9Eqd4hj1PrA +LNtz7eWzbCS7+uX7tfU+kF3VkV9wjo3UW6yleBt8wOLz8qRXsWxkr+/2oOOJ +D4R2xwXwXGCj1LVhb6Je+UBpnKznsXg2WtP1cFVzhw9Umtz8pn2NjRQ9Ja+7 +0z6Q/qnoge59NtruPZ4fq8UCZf9uDY0XbHT/xmSIjQ4LCny494m/ZKPVbdO7 +JfVYkN21/L957HETuj1/JwtuudJCDa/Y+P7iWNZiyAI+OCdi8JaNhGgRF9G9 +LEh7x+eq0s5GfQnaKzMCWGDhtfDsdA8bJdZFHnp8nwXI07PUfIGNAjTTt4fn +s+CHyroLHL/YyOpB2Uq9AhbUdNQ1VGPzpfc/qC5iQZ3JCnPFP2wUG2w3XFXB +gmnWxIu5v2wUqaJ4uPIpC3odqf0RPDTyS3/jX/6NBfMXv7WsEKaRhVC/fnA3 +CxKXlesXYm+K5RDU/MGCPAGp5bYiNOoP1i4qo1jQ81v6YYoojQ7YZIyVjrKg +tuXIFlFxGjnzhBwpWWDBmdH4+SlpGpmFrAkqlCDg6seT3xgKNHqacd4yRYqA ++wlxx99h67dMK4avISBuytHCV5FG6kpvvhitJ6B4PCvthhKNpD+fNPpPiYD2 +Lqn26Y00GtnRJcGnTcBinm9dzBYaXeHM/OegAwH/C31qxalNI75tAtet9xFw +3ry69iz2ObfwYIYTAYFZ2h7cOjQKr7Db+NeVgJgJB8Sli+snlyWnMQng9WgK +pfVoxHjNZD0/SsBf14hLNfo0+pysxK+QRIBUucKtbCMaFSNB38FkArx8BcO5 +jXH+2GxT0VUCVqc8z2Rha1o0ReulE/Ahz+6jvAmNEjl8pq3vEvC+Obc5zZRG +poGZX8ILCSj4l/XS3YJG69Zd0NldTIDOVWHncuzZ14FXuUoJYGi5MJZb0ihL +GVknPiIg+uWJV8XYf7q6GrNrcf4eweC5PTSqsJLJf9dMQNHwvVxvGxpdXuDk +SX1N4PUW6ijAZuYPH3BpIeDtNX7HWWxh7lqZvvcEeOyM2BRrSyP/OucrPz8R +cOZ5jMFdOxopqKaFKVIEcBkwNxbb02jhc1TbUD8BCcWDI6PYrbGEeskgAf7X +pH+qOtAoukdrePsoASsjTMdysDuvt3nYzhBwqozcmeRIo5TlIiYRy0hgVq5i +Ge+nUf10l1soFwnN2X7Xo7AHugqCj/CQcKbVa6ASW7/COJO5koSKoq52BSe8 +37zDf1mKkLC4IW10FlvYykTURIwEMR71WWVnGu3UFVVB4iSYdMyIO2MnCRbu +Z0iTwHfreV710njt9zIZORJGVmpz+bvQiMwtbBZXIGGtRmNnGnZS0onvq5RI +2LpqdUsjdj8pJsitQgJX29AvEVc8LmbmO6pOwqNZpSsPsGsXxWL6NUnoy33L +eItNDXVf69YiwXlxZGoCe0djxLN2PRL+t8G3VtONRn3+xev/ARIevj98sghb +yPmkdrUhCWH17cOvsLcbmVuVGZPwNfRoCIWdKP3jRK45Cb7eKq3S7jR6zF2S +lGGJ+6/WydHE7p04mXfDigQpRfdkS2y9F+IfE+xIkJD/VHUcm1n2YyTOHtfb +uH4iHjvhdgnnGUcSvBIOwj3sH8EW6mHOJOzy61N7iS3oKWEW5ErCZKDQ646l +PIteDz93EsoTFWOGlr7fEHXZ05uE7iwurRUeuB4+yyxnJu4/rIkhgf1jTqLG +nkUCkjtgpYAt2NP73ookQV31U9Q2bL2W0n5TXxI2OMk278BmVkf9AT8Sqgr0 +N5tgJ2RZrt7pT8Ir1qY8m6X8BMnN2kdIcOfs2em0lB/eZ7AtiIT6XawhT2wB +VpmzSjAJB4RKSwhsXdvoQIVQEn7nP008vJS/Y8/5dWEkxMTcPB+EHa8kdUcy +nITVBjrpodhVwtQjkQgSlDtTG49j9/wqe80fSYJHaCVnxFL+QHQPTzQJaWHp +HiexdT7smf8bQ8LPczv+XfL/ATYK3tk= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6639439823901716, 1.4626441816684523`}}, + "PlotRange" -> {{0, 180}, {0.6651668212081809, 1.46032315950316}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.663943982390173}, + "AxesOrigin" -> {0, 0.6651668212081824}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 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 +13430,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.6651668212081824}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -7639,7 +13459,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.6651668212081809, 1.46032315950316}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -7647,9 +13468,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.993961616907258*^9}, CellLabel-> - "Out[303]=",ExpressionUUID->"09d149ec-0259-a345-a282-743f783e7913"] + "Out[138]=",ExpressionUUID->"0683a0a9-172b-4134-bc69-7947df7e80da"] }, Open ]], Cell[CellGroupData[{ @@ -7664,7 +13485,9 @@ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -7686,8 +13509,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -7713,252 +13535,175 @@ 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[139]:=",ExpressionUUID->"90696e8b-5a2d-314c-8d58-ac84cb8f4d66"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.976253354341118`*^-271\\\", \ + "\"\\!\\(\\*FractionBox[\\\"4.4673570336051244`*^-266\\\", \ \\\"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, 139, + 72, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337564646551*^9, 3.993961617013073*^9}, CellLabel-> "During evaluation of \ -In[304]:=",ExpressionUUID->"526ffad5-83ae-c149-9912-e494135b3fca"], +In[139]:=",ExpressionUUID->"c8fd1e25-15e1-438f-8787-e71d5dca7a5d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.718150004511881`*^-282\\\", \ + "\"\\!\\(\\*FractionBox[\\\"3.924666640534938`*^-277\\\", \ \\\"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}, + 139, 73, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337564646551*^9, 3.9939616170189047`*^9}, CellLabel-> "During evaluation of \ -In[304]:=",ExpressionUUID->"1adb1680-bdf2-4144-bcc9-7270c61e97b7"], +In[139]:=",ExpressionUUID->"43657b0c-624a-459e-bc16-4606ff1ae5d9"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.4847193100774497`*^-293\\\", \ + "\"\\!\\(\\*FractionBox[\\\"3.447901773567824`*^-288\\\", \ \\\"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, 139, 74, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337564646551*^9, 3.993961617024267*^9}, CellLabel-> "During evaluation of \ -In[304]:=",ExpressionUUID->"9e5d82d5-642b-cb46-8232-be5a5ca7050d"], +In[139]:=",ExpressionUUID->"5afe336d-94f5-437e-985b-a9f00798fffb"], 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, 139, 75, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337564646551*^9, 3.9939616170298843`*^9}, CellLabel-> "During evaluation of \ -In[304]:=",ExpressionUUID->"ef931413-f964-5b45-a755-76cab1ab5309"], +In[139]:=",ExpressionUUID->"813041e5-c71c-4b5d-8821-f41e4ddf7736"], 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:eJwV13k4VG0bAHDRQm/JvjNnJktZUgjDjPuWfS0k+54lSZRoF0WKJFTSQkKL +beYUZSmiBZXKvkS9ovq8iEJU8p3+mut3nes85zzPvZ2h++92DOTl4eHRWMTD +8/d3ZqDpiWJyvlGzhUp1yh4To/ZrUgeMu+NByUs4510nHVD8tb9UdzrsEX99 +8m7nBojecqeLrzsPtn+9Z3ux0xiExyXT57pI6N9zOjK00wHe19jvnuqqhzQb +F6GeDj8wVxzpn+xqhV1rL1fnt0XCXJfe+YmuQWjSV8kZaI6DBpOb+W/zvsOO +Mv6zX/zSQe595Sd/9XmwN3b638Zv2SAW5nNnmQkfKn7sHxbYfx3SN5hX2zvz +446qo+dn4gugJ2t93aTQSpx6d7WkfuoWJOfHvuaVFkadyqTTZyyKwVpnh4j4 +amGM6dQY5joVA/8TR2cVDWEcED/A89qnGE58VOqzMRbG+81LIr7HFMNhxstP +mTuE0cWtdmroZjGE50r9Ua4SxiW7hEpClpaAwxWuuo2HCCpnfjYaelgCkpkf +T2VcFcXLUqSTsUQZSKmVn5gtFMVta94UddDKQKY+MdaLI4obi57ZBawtA4WJ +tftUGkQx+Mih0FBWGSjZRvhWfxHF91nwScW/DLQXz+t+1BZDN/svX7yLy2Bz +lMSQVrMYpozT23rlObDlny8DF9vEsHXgQIo+gwOOeZU9v9+J4Ycknt50ZQ5s +e+P5+tlXMZy63qrJ1uSAl/qNKndxcZyVdqsKQQ7sHNI8F+8rjpZzzmMy/hw4 +udXKqHVGHNMe8cv/L48DMvdaZHgXSWDL7Eioxk0OlIpu/bHhHwlMLfqUv6uI +A52t3pxzNAn0Sb7d9+9dDig6RDEcLCUw7oaW9aUnHKi3y1n65pIEFsf6vDcZ +5sC8+XTLK5YkDvWGfUhYzYW0woNF8+aSeCvgp7iFChcUl/IkaThIIog8WLdY +jQu2T5cbnwmUxESOqMAeLS5kmxB3bVMlUWhFh6ecMRf00ebii/eSOBEr4l/k +xYW9zOs+TfFSWPifkSmZwQXrXMEpmxQpfDV9oOTBBS4wlh1OajkvhfS0JbHV +l7jwpn0bt+2WFMIbRY+KHC6si1jBN9AihQWj/rPHirjwpTCm8JuMND63rX+7 +o54LnmL2Y7J3pdHpdOj502Nc0D5UHXetRhp3u/1ZqzDBheWDayToz6RR/GvX +2tJvXKgs4wPlHmnsLhAIa/jBBQmbyrT1C9Jon719oX4RCW/iFHXMbGSwgyg+ +IyFOgunXnwfDP8rgWdAbFGKScMAyU/XxqAzmnte4qGJIQul1jV7RGRlszN45 +aMAmQWqrL7OSXxaX9I+wXIxJGH3w9AffOllMH92+PNiKhIz4tKhL+2XR3kHS +/qMrCY19axVH42Rxfr4tpcGdhN86DW1GybJYF7sQlOtJQtDnaa2hq7J41lzo +62ZfEgxsPSbXNcii1jc718RgEgbFlcOfrJRDHtO1Q1v2kSC5u1ZeUlIO6Rvv +Lv0VTYJto+urHYQcvm5ub76+n4SKg8nqq7Tl0L0qmTl8iITT7ydG3FzlMMmt +ssYkngSt29XBX/PksGLJixqfVBLiWA5+MvrymLNfZlQinwRL72vf9DbJ46Sr +Mi2ygATBY/8dd7aVx2mX8bDnhSRcaUgoTPOVRxfmXo+Q2yQ8sK76b+kpeaxb +6Lt4qJSECdfV0d975NE/mVz35T4J9w9GLBMeksf7I3f9F1eScPTKw6x14/Jo ++mvpQ7kqElZ8cKnewauADWl3PxvXkKASnMLzQVUBMxKGVb3rSPDeN3365SEF +jOQUy7x/ToLSxU1yIwkKKPPDW+RR49/zP1uyLE0Bd7/UZV9qIuHg77VvNuUr +4ObECk3TFyScP+4tXvlSAXPuteeEtZDgWVBU2NmpgOUJpyw1XpPAeD6rN/VB +AU9cMFYbocxZnuGuOa2AHo8xz/UtCS/PPc8pkKehR6Xfbv52Kr53xTY0qNCw +9ZngoiLK7h1+9R820NB25nObVQcJX6R+D8ma03BGtQkPd5LAl7teNT2chpek +1zvc6yah+fGR6rL9NHR0oC1l9pCQ9rHZ9lU8Dc2YJXxVlBVUAnfzX6Th3pG9 +7zi9VD6UXrp3tJaGvtYZtD3vqHztapkfb6Rhrc/CzlbK9jyLLXxaabg78Vm8 +Zj8JAY7hPTBMQ/V92SIfKIcfusHgjNPwfZLJGe0BEvbnd+8kZmkobHqs4zhl +80P02GNLCOQLnHkr856EF6tqbugvJ1D+XutJP8pb8rc1TggSaHY4SbCAsser +ZGE/KQId7V+fY3wg4YOfsq60PIG0VwJpnpSDZurc39IJLC6J8M+gHEGbuWGs +RmB2CO3kD8rTd9Ma5zQJ1Nsg2af4LxUvS7Uxrg6BPbqXl26mzNP/VDiUSeB0 +ZMLyaMoJkb66DCMC4Sbn8yXKy5f+cu/dRKBy8Oy1Kspp2edj0y0INF7J3NBN +WVxzfb61LYEltZtzvlHObmhu5HUg8Hi4zIjAIAk018CxKmdqP20xIgqU80cX +hPe6E2gSYSGtSVk1LltXzYfAxWk7FliUy8Q3enwMIPCRae1TC8o6d17HXg4h +sCxYdddmylVGoflOuwg8l3VmxokytC1u+mcPdT/7pb8z5SfBOWMN0QR+j20m +/163+s0UOXyIwGUOuz7bU25Ja9fVOUbgou3Zi/6uv1Vpt8foCQK11+vz/n1+ +T6XAsfxTBPZ/1RjRoOxtn5/vmUrglZyAKjnKQ4NGTWIZBLbPP97LT3lHTM/Y +y4sECp3Wkpyk9j/+T5RIwhUCo0/kFHRS3psrqMe+TqDC2HdaJeVZndse0wUE +ph+XPZlF+WiTybGSOwTKPON9F0WZz3sgP7CMQMPJCzR7yknf9jfJ3yNQcOGp +49/4CZ4UHe94QGBp4dHov/GV4ljqmdcTqGlnk5FJ+arpR48/zwj8HIip3pQZ +PUeOVbwgcNg67ogSZQ3eu03KHQTmlHFYd6j8Ii/YjQ/0UPuXThQMoayv9kXk +4gCByfR93QzKm7bKey77Qp1n0z7Xs1T+Pv9y/1jtKIFnhaKEjCnbHnEsiJmk +zsM48MlXKv9dCk+Of/5J4ImjixRNKYfNTh5rXEnHjKiI/sY+qr4igyQ+idBR +xSa9040y/0hvEZ8UHTed6bP7TNVfQV9DpxGDjoki36p/UPU58Oi8erkuHUvX +PKkcp767ivWW17ca0tG0vOx5AOWDnKMuE0jHN5kzXh1U/UvkBcer2dBxxf8e +ryml+sPmBGb3dR86PvW966HbRtX7n5JdtdvpeD6h683ZVqqfRTP4+ndQz//w +tHuY6j9JIf+sk4qiY8gTq8KTb0ios+k/nppExycPZL3yXlH9XCRO8xCXjqn3 +NgRtpPojT/L0k6wKOh6xsL7l+ozKL75Q94pqOh52vZe+/ykJO6cdEyaf0jHi +wu/A0gYq/7sV+4J76TinL6DxrZZ635zGxK18DEwG+X19VP8ekmTL7eFnYAPP +1GBTBRWfNC737EoG+iw9sKq8nNpPfPa7ZkkG3m7BO3F3qfcNDNMyVmegXl+n +4BQ1D+bUhAY0nBkYlC/aZUTNk5mrMnHa7gxU+fO/9oUbJEytUlJk+jAw9sen +pw/zqHz9zgw13cFA1z/DietzqflXHTDjfoSBjdfFiyezqf5pc18wqYBaP8D0 +0cezVH3v9IbBaQbGa//6mRZDwsX+kMHPPxm4tOqX7HdqXmZu3pswtsDAW3wD +Xo5RJKRqJ72YFViNFx4rW/NHkhD/i+uySoFyzcKYQyh1PslLIljmq3G5lFWp +FzWfWUXFuRcurMZJQdEkPyMS+oiiHLPLq3FuIjk3hUXF+8Lta1M5q7Hvt3FA +uQE17+IKrzjeXo2mqzxHF3Sp+LjmZgnWrEYVmtT6A5okrF2SmZb472qU0sbz +8zTqvH0OHYtWV8SmEMEb2xa4MCli7butXhF5PUPlz93nQncY403oc0Vk1WWu +nb/HhbpnPyH2pSJOplV0BpHU99zBItqtTkVkLzkto13ChfWDK97PjSii/B8i +piyPC+Hc115XRZWw/JTnT/0zXBjZ7OwxtF0JPRKff8r25cJQiu+2PcuUsUC9 +v3OWhwtWX2OshnVVcCAoboW6AQdGA/j33otdg5dixCTqM0up/xOSvCfr12K5 +tRLGXSoGkVfKqZyvqrhsQ17O8zt3QC6pbIuurjp+lCklxBNvQZYaU0g0WAOH +r2psTjleCM0yxhu/n1uHhqKvVzWk5YOBXH2aZqcmqlo7xe6IywNBvrwov/j1 +uOVq71L+W7mgEEdjuSlvwOE4FQHbuKsgoORZ4fh8A2aWFJyx4MmGdWzpshgv +LSyn/WYpzVyAPQMiDdY82jholCcQPpYBX7+nOFtlaeNIar1Uues5sNB8lm2l +oYO/WIp2xjKp8Oi74a8fLTq4gmzofZF3CsLVtXrfBm7EvWaKb1rGE4A9vr3d +TUAXlxgK+FYExoOZopTdyjxdzM52PyrMHwtrjp3eX6+nhzGflxlEyB4E1UBm +rVKvHg5csou8GrcPAh+FnLgXqY+REgEhfZ2RML5rJMYsSh8t+8IztBojYb98 +2M7OaH30fRg6kFEZCacP73acPaSPO4OraqOuRALHIJpgJeqj4PorRJl/JPyu +OF7TkE1d32g6vGgyAtLLrk21NuhjgrLzj19iEVCb2759UpyJkaK8Vxy/hcEH +W7pPtBQTLZWejmr3hgHP3C63XzJMVHy3zk25Pgw2OSyzX0IwMTmK8DVKD4Nn +iwz0pFWZGP2IpmSgHQYv/XMEjI2YKBfHm+S6fyf0KoaWpgUx0f+R/spJwVCY +urXwQ/M+E28mXG++vDMYPm0zzz1VycTp+zVRna7B0L34jOXHaiYeOccRVjAP +hmpfmUsX6ph44I4efzsRDPFSGw3mm5gILc2KvZ1BIJQUerj5HRNjbo8ttzIL +AvXgDp5AXgM0lUoOj1MLhAClIoFsOwOEVaLnB2UD4OBT71DlLQZ4QDBy1dvl +AZAWKPKCdDTAlJCzjS/n/KGm4EDKCxcD3LlGs/O/Ln8QU7ZcNe9ngNrzmQee +Z/rDM+VhMd9oA6yKHa0dE/IH1TU0QjnHAMcTDw0/FPGDSdUMXXLCAO98VosI +3ucN3S/RTPS7Ab7UJfKMPbyhLnzcKWraAN1uF8VpGntDKmkVqfvTAPcOqUmb +r/QGVQOe4io+Q6yU83H1KvQCf6td9AYJQ4y/vfLK2nee0B5ssaKdZYhQOuf1 +ydkDHuT/+nc6yRC9nHOlQmNdQdck6od1siGOJjFWYKgrlP87uiL3jCEeWTir +rOzsCqTCgJ51uiFe8WbfZKi5QnFW3Zlrlw2xLX1rVV+XC+SmJDAtSg0x7ueI +lZmOC5yKWnUuq80QBS8qCHFmncHddDUaKrCw7LW7cEOJE8y38ws2ECy8s9nr +Ym+2E+QGjvdZr2bhTX80501ygk+JlTHua1gYVUifiPN3gj1Nm8sOaLFQZmZO +01jKCU7bH1Z4YM7CVrUAh/JER6hy7fits5uF4br4SXG3A8juOlm5ro6FFYdV +l8d02UPqQtDG5HoW7iwSGBeptgfedHPu5ycsvNqhw3x2zR5GKpbczm1i4ZWA +1IY9QfZQxXMiS6SNhUJTkv3/ztiBe+axmJlhFhZvrfgkIGcHWdUHNj76h42m +IUymcIwNiC8P49q5sDFpi5tfVpgl5JscOTjhxsZ+q4rsYUdL0DqSapLhycYz +szXrbJiWYD/B6ej2Y2Ojhbikz1JLSOycngsIY+Ovle8f3rxuAbN5sZsOxrEx +rUtoY9E7c+g1zGgrLGLjVc/Bke8BZhCyL/+KVSkbTVbVtyjbmcFMaXngKIeN +dhOvb+7WNQMRRvePDRVstI3nn9gkYAY2/PJyD+vYGLP2Us9YmSnUtBdub+ug +3tc93shskSlYCz7QiO5mY4/Gte8t/5lAt0XTjFQfG5Wvk0d2dZrAVNV/Sd4f +2Pik1qv5S5EJaFxfX/K/ETY6tMZ7dLqYQE2vcXTKGBvf1ne8WmxiAtZiTqA5 +wcbNvidPWawzgaCT+95GTVP3P5bJElhCrVeXmC05y0bkz29MmtgE8T8vBlT9 +ZGPbTO+87LtNIKRzW91rno1uRRzlhueb4NququmFBTZum6NrHb27Cf4P386a +og== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -7972,211 +13717,130 @@ 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:eJwV13k4VG0bAHDRQm/JvjNnJktZUgjDjPuWfS0k+54lSZRoF0WKJFTSQkKL +beYUZSmiBZXKvkS9ovq8iEJU8p3+mut3nes85zzPvZ2h++92DOTl4eHRWMTD +8/d3ZqDpiWJyvlGzhUp1yh4To/ZrUgeMu+NByUs4510nHVD8tb9UdzrsEX99 +8m7nBojecqeLrzsPtn+9Z3ux0xiExyXT57pI6N9zOjK00wHe19jvnuqqhzQb +F6GeDj8wVxzpn+xqhV1rL1fnt0XCXJfe+YmuQWjSV8kZaI6DBpOb+W/zvsOO +Mv6zX/zSQe595Sd/9XmwN3b638Zv2SAW5nNnmQkfKn7sHxbYfx3SN5hX2zvz +446qo+dn4gugJ2t93aTQSpx6d7WkfuoWJOfHvuaVFkadyqTTZyyKwVpnh4j4 +amGM6dQY5joVA/8TR2cVDWEcED/A89qnGE58VOqzMRbG+81LIr7HFMNhxstP +mTuE0cWtdmroZjGE50r9Ua4SxiW7hEpClpaAwxWuuo2HCCpnfjYaelgCkpkf +T2VcFcXLUqSTsUQZSKmVn5gtFMVta94UddDKQKY+MdaLI4obi57ZBawtA4WJ +tftUGkQx+Mih0FBWGSjZRvhWfxHF91nwScW/DLQXz+t+1BZDN/svX7yLy2Bz +lMSQVrMYpozT23rlObDlny8DF9vEsHXgQIo+gwOOeZU9v9+J4Ycknt50ZQ5s +e+P5+tlXMZy63qrJ1uSAl/qNKndxcZyVdqsKQQ7sHNI8F+8rjpZzzmMy/hw4 +udXKqHVGHNMe8cv/L48DMvdaZHgXSWDL7Eioxk0OlIpu/bHhHwlMLfqUv6uI +A52t3pxzNAn0Sb7d9+9dDig6RDEcLCUw7oaW9aUnHKi3y1n65pIEFsf6vDcZ +5sC8+XTLK5YkDvWGfUhYzYW0woNF8+aSeCvgp7iFChcUl/IkaThIIog8WLdY +jQu2T5cbnwmUxESOqMAeLS5kmxB3bVMlUWhFh6ecMRf00ebii/eSOBEr4l/k +xYW9zOs+TfFSWPifkSmZwQXrXMEpmxQpfDV9oOTBBS4wlh1OajkvhfS0JbHV +l7jwpn0bt+2WFMIbRY+KHC6si1jBN9AihQWj/rPHirjwpTCm8JuMND63rX+7 +o54LnmL2Y7J3pdHpdOj502Nc0D5UHXetRhp3u/1ZqzDBheWDayToz6RR/GvX +2tJvXKgs4wPlHmnsLhAIa/jBBQmbyrT1C9Jon719oX4RCW/iFHXMbGSwgyg+ +IyFOgunXnwfDP8rgWdAbFGKScMAyU/XxqAzmnte4qGJIQul1jV7RGRlszN45 +aMAmQWqrL7OSXxaX9I+wXIxJGH3w9AffOllMH92+PNiKhIz4tKhL+2XR3kHS +/qMrCY19axVH42Rxfr4tpcGdhN86DW1GybJYF7sQlOtJQtDnaa2hq7J41lzo +62ZfEgxsPSbXNcii1jc718RgEgbFlcOfrJRDHtO1Q1v2kSC5u1ZeUlIO6Rvv +Lv0VTYJto+urHYQcvm5ub76+n4SKg8nqq7Tl0L0qmTl8iITT7ydG3FzlMMmt +ssYkngSt29XBX/PksGLJixqfVBLiWA5+MvrymLNfZlQinwRL72vf9DbJ46Sr +Mi2ygATBY/8dd7aVx2mX8bDnhSRcaUgoTPOVRxfmXo+Q2yQ8sK76b+kpeaxb +6Lt4qJSECdfV0d975NE/mVz35T4J9w9GLBMeksf7I3f9F1eScPTKw6x14/Jo ++mvpQ7kqElZ8cKnewauADWl3PxvXkKASnMLzQVUBMxKGVb3rSPDeN3365SEF +jOQUy7x/ToLSxU1yIwkKKPPDW+RR49/zP1uyLE0Bd7/UZV9qIuHg77VvNuUr +4ObECk3TFyScP+4tXvlSAXPuteeEtZDgWVBU2NmpgOUJpyw1XpPAeD6rN/VB +AU9cMFYbocxZnuGuOa2AHo8xz/UtCS/PPc8pkKehR6Xfbv52Kr53xTY0qNCw +9ZngoiLK7h1+9R820NB25nObVQcJX6R+D8ma03BGtQkPd5LAl7teNT2chpek +1zvc6yah+fGR6rL9NHR0oC1l9pCQ9rHZ9lU8Dc2YJXxVlBVUAnfzX6Th3pG9 +7zi9VD6UXrp3tJaGvtYZtD3vqHztapkfb6Rhrc/CzlbK9jyLLXxaabg78Vm8 +Zj8JAY7hPTBMQ/V92SIfKIcfusHgjNPwfZLJGe0BEvbnd+8kZmkobHqs4zhl +80P02GNLCOQLnHkr856EF6tqbugvJ1D+XutJP8pb8rc1TggSaHY4SbCAsser +ZGE/KQId7V+fY3wg4YOfsq60PIG0VwJpnpSDZurc39IJLC6J8M+gHEGbuWGs +RmB2CO3kD8rTd9Ma5zQJ1Nsg2af4LxUvS7Uxrg6BPbqXl26mzNP/VDiUSeB0 +ZMLyaMoJkb66DCMC4Sbn8yXKy5f+cu/dRKBy8Oy1Kspp2edj0y0INF7J3NBN +WVxzfb61LYEltZtzvlHObmhu5HUg8Hi4zIjAIAk018CxKmdqP20xIgqU80cX +hPe6E2gSYSGtSVk1LltXzYfAxWk7FliUy8Q3enwMIPCRae1TC8o6d17HXg4h +sCxYdddmylVGoflOuwg8l3VmxokytC1u+mcPdT/7pb8z5SfBOWMN0QR+j20m +/163+s0UOXyIwGUOuz7bU25Ja9fVOUbgou3Zi/6uv1Vpt8foCQK11+vz/n1+ +T6XAsfxTBPZ/1RjRoOxtn5/vmUrglZyAKjnKQ4NGTWIZBLbPP97LT3lHTM/Y +y4sECp3Wkpyk9j/+T5RIwhUCo0/kFHRS3psrqMe+TqDC2HdaJeVZndse0wUE +ph+XPZlF+WiTybGSOwTKPON9F0WZz3sgP7CMQMPJCzR7yknf9jfJ3yNQcOGp +49/4CZ4UHe94QGBp4dHov/GV4ljqmdcTqGlnk5FJ+arpR48/zwj8HIip3pQZ +PUeOVbwgcNg67ogSZQ3eu03KHQTmlHFYd6j8Ii/YjQ/0UPuXThQMoayv9kXk +4gCByfR93QzKm7bKey77Qp1n0z7Xs1T+Pv9y/1jtKIFnhaKEjCnbHnEsiJmk +zsM48MlXKv9dCk+Of/5J4ImjixRNKYfNTh5rXEnHjKiI/sY+qr4igyQ+idBR +xSa9040y/0hvEZ8UHTed6bP7TNVfQV9DpxGDjoki36p/UPU58Oi8erkuHUvX +PKkcp767ivWW17ca0tG0vOx5AOWDnKMuE0jHN5kzXh1U/UvkBcer2dBxxf8e +ryml+sPmBGb3dR86PvW966HbRtX7n5JdtdvpeD6h683ZVqqfRTP4+ndQz//w +tHuY6j9JIf+sk4qiY8gTq8KTb0ios+k/nppExycPZL3yXlH9XCRO8xCXjqn3 +NgRtpPojT/L0k6wKOh6xsL7l+ozKL75Q94pqOh52vZe+/ykJO6cdEyaf0jHi +wu/A0gYq/7sV+4J76TinL6DxrZZ635zGxK18DEwG+X19VP8ekmTL7eFnYAPP +1GBTBRWfNC737EoG+iw9sKq8nNpPfPa7ZkkG3m7BO3F3qfcNDNMyVmegXl+n +4BQ1D+bUhAY0nBkYlC/aZUTNk5mrMnHa7gxU+fO/9oUbJEytUlJk+jAw9sen +pw/zqHz9zgw13cFA1z/DietzqflXHTDjfoSBjdfFiyezqf5pc18wqYBaP8D0 +0cezVH3v9IbBaQbGa//6mRZDwsX+kMHPPxm4tOqX7HdqXmZu3pswtsDAW3wD +Xo5RJKRqJ72YFViNFx4rW/NHkhD/i+uySoFyzcKYQyh1PslLIljmq3G5lFWp +FzWfWUXFuRcurMZJQdEkPyMS+oiiHLPLq3FuIjk3hUXF+8Lta1M5q7Hvt3FA +uQE17+IKrzjeXo2mqzxHF3Sp+LjmZgnWrEYVmtT6A5okrF2SmZb472qU0sbz +8zTqvH0OHYtWV8SmEMEb2xa4MCli7butXhF5PUPlz93nQncY403oc0Vk1WWu +nb/HhbpnPyH2pSJOplV0BpHU99zBItqtTkVkLzkto13ChfWDK97PjSii/B8i +piyPC+Hc115XRZWw/JTnT/0zXBjZ7OwxtF0JPRKff8r25cJQiu+2PcuUsUC9 +v3OWhwtWX2OshnVVcCAoboW6AQdGA/j33otdg5dixCTqM0up/xOSvCfr12K5 +tRLGXSoGkVfKqZyvqrhsQ17O8zt3QC6pbIuurjp+lCklxBNvQZYaU0g0WAOH +r2psTjleCM0yxhu/n1uHhqKvVzWk5YOBXH2aZqcmqlo7xe6IywNBvrwov/j1 +uOVq71L+W7mgEEdjuSlvwOE4FQHbuKsgoORZ4fh8A2aWFJyx4MmGdWzpshgv +LSyn/WYpzVyAPQMiDdY82jholCcQPpYBX7+nOFtlaeNIar1Uues5sNB8lm2l +oYO/WIp2xjKp8Oi74a8fLTq4gmzofZF3CsLVtXrfBm7EvWaKb1rGE4A9vr3d +TUAXlxgK+FYExoOZopTdyjxdzM52PyrMHwtrjp3eX6+nhzGflxlEyB4E1UBm +rVKvHg5csou8GrcPAh+FnLgXqY+REgEhfZ2RML5rJMYsSh8t+8IztBojYb98 +2M7OaH30fRg6kFEZCacP73acPaSPO4OraqOuRALHIJpgJeqj4PorRJl/JPyu +OF7TkE1d32g6vGgyAtLLrk21NuhjgrLzj19iEVCb2759UpyJkaK8Vxy/hcEH +W7pPtBQTLZWejmr3hgHP3C63XzJMVHy3zk25Pgw2OSyzX0IwMTmK8DVKD4Nn +iwz0pFWZGP2IpmSgHQYv/XMEjI2YKBfHm+S6fyf0KoaWpgUx0f+R/spJwVCY +urXwQ/M+E28mXG++vDMYPm0zzz1VycTp+zVRna7B0L34jOXHaiYeOccRVjAP +hmpfmUsX6ph44I4efzsRDPFSGw3mm5gILc2KvZ1BIJQUerj5HRNjbo8ttzIL +AvXgDp5AXgM0lUoOj1MLhAClIoFsOwOEVaLnB2UD4OBT71DlLQZ4QDBy1dvl +AZAWKPKCdDTAlJCzjS/n/KGm4EDKCxcD3LlGs/O/Ln8QU7ZcNe9ngNrzmQee +Z/rDM+VhMd9oA6yKHa0dE/IH1TU0QjnHAMcTDw0/FPGDSdUMXXLCAO98VosI +3ucN3S/RTPS7Ab7UJfKMPbyhLnzcKWraAN1uF8VpGntDKmkVqfvTAPcOqUmb +r/QGVQOe4io+Q6yU83H1KvQCf6td9AYJQ4y/vfLK2nee0B5ssaKdZYhQOuf1 +ydkDHuT/+nc6yRC9nHOlQmNdQdck6od1siGOJjFWYKgrlP87uiL3jCEeWTir +rOzsCqTCgJ51uiFe8WbfZKi5QnFW3Zlrlw2xLX1rVV+XC+SmJDAtSg0x7ueI +lZmOC5yKWnUuq80QBS8qCHFmncHddDUaKrCw7LW7cEOJE8y38ws2ECy8s9nr +Ym+2E+QGjvdZr2bhTX80501ygk+JlTHua1gYVUifiPN3gj1Nm8sOaLFQZmZO +01jKCU7bH1Z4YM7CVrUAh/JER6hy7fits5uF4br4SXG3A8juOlm5ro6FFYdV +l8d02UPqQtDG5HoW7iwSGBeptgfedHPu5ycsvNqhw3x2zR5GKpbczm1i4ZWA +1IY9QfZQxXMiS6SNhUJTkv3/ztiBe+axmJlhFhZvrfgkIGcHWdUHNj76h42m +IUymcIwNiC8P49q5sDFpi5tfVpgl5JscOTjhxsZ+q4rsYUdL0DqSapLhycYz +szXrbJiWYD/B6ej2Y2Ojhbikz1JLSOycngsIY+Ovle8f3rxuAbN5sZsOxrEx +rUtoY9E7c+g1zGgrLGLjVc/Bke8BZhCyL/+KVSkbTVbVtyjbmcFMaXngKIeN +dhOvb+7WNQMRRvePDRVstI3nn9gkYAY2/PJyD+vYGLP2Us9YmSnUtBdub+ug +3tc93shskSlYCz7QiO5mY4/Gte8t/5lAt0XTjFQfG5Wvk0d2dZrAVNV/Sd4f +2Pik1qv5S5EJaFxfX/K/ETY6tMZ7dLqYQE2vcXTKGBvf1ne8WmxiAtZiTqA5 +wcbNvidPWawzgaCT+95GTVP3P5bJElhCrVeXmC05y0bkz29MmtgE8T8vBlT9 +ZGPbTO+87LtNIKRzW91rno1uRRzlhueb4NququmFBTZum6NrHb27Cf4P386a +og== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "PlotRange" -> {{0, 30}, {0., 0.07376607572608768}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +13852,19 @@ JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "PlotRange" -> {{0, 30}, {0., 0.07376607572608768}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +13878,129 @@ 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:eJwV13k4VG0bAHDRQm/JvjNnJktZUgjDjPuWfS0k+54lSZRoF0WKJFTSQkKL +beYUZSmiBZXKvkS9ovq8iEJU8p3+mut3nes85zzPvZ2h++92DOTl4eHRWMTD +8/d3ZqDpiWJyvlGzhUp1yh4To/ZrUgeMu+NByUs4510nHVD8tb9UdzrsEX99 +8m7nBojecqeLrzsPtn+9Z3ux0xiExyXT57pI6N9zOjK00wHe19jvnuqqhzQb +F6GeDj8wVxzpn+xqhV1rL1fnt0XCXJfe+YmuQWjSV8kZaI6DBpOb+W/zvsOO +Mv6zX/zSQe595Sd/9XmwN3b638Zv2SAW5nNnmQkfKn7sHxbYfx3SN5hX2zvz +446qo+dn4gugJ2t93aTQSpx6d7WkfuoWJOfHvuaVFkadyqTTZyyKwVpnh4j4 +amGM6dQY5joVA/8TR2cVDWEcED/A89qnGE58VOqzMRbG+81LIr7HFMNhxstP +mTuE0cWtdmroZjGE50r9Ua4SxiW7hEpClpaAwxWuuo2HCCpnfjYaelgCkpkf +T2VcFcXLUqSTsUQZSKmVn5gtFMVta94UddDKQKY+MdaLI4obi57ZBawtA4WJ +tftUGkQx+Mih0FBWGSjZRvhWfxHF91nwScW/DLQXz+t+1BZDN/svX7yLy2Bz +lMSQVrMYpozT23rlObDlny8DF9vEsHXgQIo+gwOOeZU9v9+J4Ycknt50ZQ5s +e+P5+tlXMZy63qrJ1uSAl/qNKndxcZyVdqsKQQ7sHNI8F+8rjpZzzmMy/hw4 +udXKqHVGHNMe8cv/L48DMvdaZHgXSWDL7Eioxk0OlIpu/bHhHwlMLfqUv6uI +A52t3pxzNAn0Sb7d9+9dDig6RDEcLCUw7oaW9aUnHKi3y1n65pIEFsf6vDcZ +5sC8+XTLK5YkDvWGfUhYzYW0woNF8+aSeCvgp7iFChcUl/IkaThIIog8WLdY +jQu2T5cbnwmUxESOqMAeLS5kmxB3bVMlUWhFh6ecMRf00ebii/eSOBEr4l/k +xYW9zOs+TfFSWPifkSmZwQXrXMEpmxQpfDV9oOTBBS4wlh1OajkvhfS0JbHV +l7jwpn0bt+2WFMIbRY+KHC6si1jBN9AihQWj/rPHirjwpTCm8JuMND63rX+7 +o54LnmL2Y7J3pdHpdOj502Nc0D5UHXetRhp3u/1ZqzDBheWDayToz6RR/GvX +2tJvXKgs4wPlHmnsLhAIa/jBBQmbyrT1C9Jon719oX4RCW/iFHXMbGSwgyg+ +IyFOgunXnwfDP8rgWdAbFGKScMAyU/XxqAzmnte4qGJIQul1jV7RGRlszN45 +aMAmQWqrL7OSXxaX9I+wXIxJGH3w9AffOllMH92+PNiKhIz4tKhL+2XR3kHS +/qMrCY19axVH42Rxfr4tpcGdhN86DW1GybJYF7sQlOtJQtDnaa2hq7J41lzo +62ZfEgxsPSbXNcii1jc718RgEgbFlcOfrJRDHtO1Q1v2kSC5u1ZeUlIO6Rvv +Lv0VTYJto+urHYQcvm5ub76+n4SKg8nqq7Tl0L0qmTl8iITT7ydG3FzlMMmt +ssYkngSt29XBX/PksGLJixqfVBLiWA5+MvrymLNfZlQinwRL72vf9DbJ46Sr +Mi2ygATBY/8dd7aVx2mX8bDnhSRcaUgoTPOVRxfmXo+Q2yQ8sK76b+kpeaxb +6Lt4qJSECdfV0d975NE/mVz35T4J9w9GLBMeksf7I3f9F1eScPTKw6x14/Jo ++mvpQ7kqElZ8cKnewauADWl3PxvXkKASnMLzQVUBMxKGVb3rSPDeN3365SEF +jOQUy7x/ToLSxU1yIwkKKPPDW+RR49/zP1uyLE0Bd7/UZV9qIuHg77VvNuUr +4ObECk3TFyScP+4tXvlSAXPuteeEtZDgWVBU2NmpgOUJpyw1XpPAeD6rN/VB +AU9cMFYbocxZnuGuOa2AHo8xz/UtCS/PPc8pkKehR6Xfbv52Kr53xTY0qNCw +9ZngoiLK7h1+9R820NB25nObVQcJX6R+D8ma03BGtQkPd5LAl7teNT2chpek +1zvc6yah+fGR6rL9NHR0oC1l9pCQ9rHZ9lU8Dc2YJXxVlBVUAnfzX6Th3pG9 +7zi9VD6UXrp3tJaGvtYZtD3vqHztapkfb6Rhrc/CzlbK9jyLLXxaabg78Vm8 +Zj8JAY7hPTBMQ/V92SIfKIcfusHgjNPwfZLJGe0BEvbnd+8kZmkobHqs4zhl +80P02GNLCOQLnHkr856EF6tqbugvJ1D+XutJP8pb8rc1TggSaHY4SbCAsser +ZGE/KQId7V+fY3wg4YOfsq60PIG0VwJpnpSDZurc39IJLC6J8M+gHEGbuWGs +RmB2CO3kD8rTd9Ma5zQJ1Nsg2af4LxUvS7Uxrg6BPbqXl26mzNP/VDiUSeB0 +ZMLyaMoJkb66DCMC4Sbn8yXKy5f+cu/dRKBy8Oy1Kspp2edj0y0INF7J3NBN +WVxzfb61LYEltZtzvlHObmhu5HUg8Hi4zIjAIAk018CxKmdqP20xIgqU80cX +hPe6E2gSYSGtSVk1LltXzYfAxWk7FliUy8Q3enwMIPCRae1TC8o6d17HXg4h +sCxYdddmylVGoflOuwg8l3VmxokytC1u+mcPdT/7pb8z5SfBOWMN0QR+j20m +/163+s0UOXyIwGUOuz7bU25Ja9fVOUbgou3Zi/6uv1Vpt8foCQK11+vz/n1+ +T6XAsfxTBPZ/1RjRoOxtn5/vmUrglZyAKjnKQ4NGTWIZBLbPP97LT3lHTM/Y +y4sECp3Wkpyk9j/+T5RIwhUCo0/kFHRS3psrqMe+TqDC2HdaJeVZndse0wUE +ph+XPZlF+WiTybGSOwTKPON9F0WZz3sgP7CMQMPJCzR7yknf9jfJ3yNQcOGp +49/4CZ4UHe94QGBp4dHov/GV4ljqmdcTqGlnk5FJ+arpR48/zwj8HIip3pQZ +PUeOVbwgcNg67ogSZQ3eu03KHQTmlHFYd6j8Ii/YjQ/0UPuXThQMoayv9kXk +4gCByfR93QzKm7bKey77Qp1n0z7Xs1T+Pv9y/1jtKIFnhaKEjCnbHnEsiJmk +zsM48MlXKv9dCk+Of/5J4ImjixRNKYfNTh5rXEnHjKiI/sY+qr4igyQ+idBR +xSa9040y/0hvEZ8UHTed6bP7TNVfQV9DpxGDjoki36p/UPU58Oi8erkuHUvX +PKkcp767ivWW17ca0tG0vOx5AOWDnKMuE0jHN5kzXh1U/UvkBcer2dBxxf8e +ryml+sPmBGb3dR86PvW966HbRtX7n5JdtdvpeD6h683ZVqqfRTP4+ndQz//w +tHuY6j9JIf+sk4qiY8gTq8KTb0ios+k/nppExycPZL3yXlH9XCRO8xCXjqn3 +NgRtpPojT/L0k6wKOh6xsL7l+ozKL75Q94pqOh52vZe+/ykJO6cdEyaf0jHi +wu/A0gYq/7sV+4J76TinL6DxrZZ635zGxK18DEwG+X19VP8ekmTL7eFnYAPP +1GBTBRWfNC737EoG+iw9sKq8nNpPfPa7ZkkG3m7BO3F3qfcNDNMyVmegXl+n +4BQ1D+bUhAY0nBkYlC/aZUTNk5mrMnHa7gxU+fO/9oUbJEytUlJk+jAw9sen +pw/zqHz9zgw13cFA1z/DietzqflXHTDjfoSBjdfFiyezqf5pc18wqYBaP8D0 +0cezVH3v9IbBaQbGa//6mRZDwsX+kMHPPxm4tOqX7HdqXmZu3pswtsDAW3wD +Xo5RJKRqJ72YFViNFx4rW/NHkhD/i+uySoFyzcKYQyh1PslLIljmq3G5lFWp +FzWfWUXFuRcurMZJQdEkPyMS+oiiHLPLq3FuIjk3hUXF+8Lta1M5q7Hvt3FA +uQE17+IKrzjeXo2mqzxHF3Sp+LjmZgnWrEYVmtT6A5okrF2SmZb472qU0sbz +8zTqvH0OHYtWV8SmEMEb2xa4MCli7butXhF5PUPlz93nQncY403oc0Vk1WWu +nb/HhbpnPyH2pSJOplV0BpHU99zBItqtTkVkLzkto13ChfWDK97PjSii/B8i +piyPC+Hc115XRZWw/JTnT/0zXBjZ7OwxtF0JPRKff8r25cJQiu+2PcuUsUC9 +v3OWhwtWX2OshnVVcCAoboW6AQdGA/j33otdg5dixCTqM0up/xOSvCfr12K5 +tRLGXSoGkVfKqZyvqrhsQ17O8zt3QC6pbIuurjp+lCklxBNvQZYaU0g0WAOH +r2psTjleCM0yxhu/n1uHhqKvVzWk5YOBXH2aZqcmqlo7xe6IywNBvrwov/j1 +uOVq71L+W7mgEEdjuSlvwOE4FQHbuKsgoORZ4fh8A2aWFJyx4MmGdWzpshgv +LSyn/WYpzVyAPQMiDdY82jholCcQPpYBX7+nOFtlaeNIar1Uues5sNB8lm2l +oYO/WIp2xjKp8Oi74a8fLTq4gmzofZF3CsLVtXrfBm7EvWaKb1rGE4A9vr3d +TUAXlxgK+FYExoOZopTdyjxdzM52PyrMHwtrjp3eX6+nhzGflxlEyB4E1UBm +rVKvHg5csou8GrcPAh+FnLgXqY+REgEhfZ2RML5rJMYsSh8t+8IztBojYb98 +2M7OaH30fRg6kFEZCacP73acPaSPO4OraqOuRALHIJpgJeqj4PorRJl/JPyu +OF7TkE1d32g6vGgyAtLLrk21NuhjgrLzj19iEVCb2759UpyJkaK8Vxy/hcEH +W7pPtBQTLZWejmr3hgHP3C63XzJMVHy3zk25Pgw2OSyzX0IwMTmK8DVKD4Nn +iwz0pFWZGP2IpmSgHQYv/XMEjI2YKBfHm+S6fyf0KoaWpgUx0f+R/spJwVCY +urXwQ/M+E28mXG++vDMYPm0zzz1VycTp+zVRna7B0L34jOXHaiYeOccRVjAP +hmpfmUsX6ph44I4efzsRDPFSGw3mm5gILc2KvZ1BIJQUerj5HRNjbo8ttzIL +AvXgDp5AXgM0lUoOj1MLhAClIoFsOwOEVaLnB2UD4OBT71DlLQZ4QDBy1dvl +AZAWKPKCdDTAlJCzjS/n/KGm4EDKCxcD3LlGs/O/Ln8QU7ZcNe9ngNrzmQee +Z/rDM+VhMd9oA6yKHa0dE/IH1TU0QjnHAMcTDw0/FPGDSdUMXXLCAO98VosI +3ucN3S/RTPS7Ab7UJfKMPbyhLnzcKWraAN1uF8VpGntDKmkVqfvTAPcOqUmb +r/QGVQOe4io+Q6yU83H1KvQCf6td9AYJQ4y/vfLK2nee0B5ssaKdZYhQOuf1 +ydkDHuT/+nc6yRC9nHOlQmNdQdck6od1siGOJjFWYKgrlP87uiL3jCEeWTir +rOzsCqTCgJ51uiFe8WbfZKi5QnFW3Zlrlw2xLX1rVV+XC+SmJDAtSg0x7ueI +lZmOC5yKWnUuq80QBS8qCHFmncHddDUaKrCw7LW7cEOJE8y38ws2ECy8s9nr +Ym+2E+QGjvdZr2bhTX80501ygk+JlTHua1gYVUifiPN3gj1Nm8sOaLFQZmZO +01jKCU7bH1Z4YM7CVrUAh/JER6hy7fits5uF4br4SXG3A8juOlm5ro6FFYdV +l8d02UPqQtDG5HoW7iwSGBeptgfedHPu5ycsvNqhw3x2zR5GKpbczm1i4ZWA +1IY9QfZQxXMiS6SNhUJTkv3/ztiBe+axmJlhFhZvrfgkIGcHWdUHNj76h42m +IUymcIwNiC8P49q5sDFpi5tfVpgl5JscOTjhxsZ+q4rsYUdL0DqSapLhycYz +szXrbJiWYD/B6ej2Y2Ojhbikz1JLSOycngsIY+Ovle8f3rxuAbN5sZsOxrEx +rUtoY9E7c+g1zGgrLGLjVc/Bke8BZhCyL/+KVSkbTVbVtyjbmcFMaXngKIeN +dhOvb+7WNQMRRvePDRVstI3nn9gkYAY2/PJyD+vYGLP2Us9YmSnUtBdub+ug +3tc93shskSlYCz7QiO5mY4/Gte8t/5lAt0XTjFQfG5Wvk0d2dZrAVNV/Sd4f +2Pik1qv5S5EJaFxfX/K/ETY6tMZ7dLqYQE2vcXTKGBvf1ne8WmxiAtZiTqA5 +wcbNvidPWawzgaCT+95GTVP3P5bJElhCrVeXmC05y0bkz29MmtgE8T8vBlT9 +ZGPbTO+87LtNIKRzW91rno1uRRzlhueb4NququmFBTZum6NrHb27Cf4P386a +og== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "PlotRange" -> {{0, 30}, {0., 0.07376607572608768}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +14011,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 +14039,8 @@ JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.22160540372702894`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07376607572608768}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -8463,17 +14048,548 @@ JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913381496467495`*^9}, + CellChangeTimes->{3.9913381496467495`*^9, 3.993961899392288*^9}, CellLabel-> - "Out[304]=",ExpressionUUID->"23497d29-f516-664b-9ee0-ea8f6d88359c"] + "Out[139]=",ExpressionUUID->"1c7a4f98-6575-4b34-820c-f2c8df45a0ed"] }, 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[140]:=",ExpressionUUID->"ea848967-083d-ea47-bce0-5c3b93725916"], + +Cell[BoxData[ + TemplateBox[{ + "Show", "gcomb", + "\"Could not combine the graphics objects in \ +\\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", \ +RowBox[{GraphicsBox[List[InterpretationBox[List[List[List[Skeleton[3]]], \ +List[]], Annotation[List[List[List[Skeleton[3]]], List[]], \ +Internal`ShallowAssociation[Rule[\\\"HighlightElements\\\", Association[Rule[\ +\\\"Label\\\", List[\\\"XYLabel\\\"]], Rule[\\\"Ball\\\", \ +List[\\\"InterpolatedBall\\\"]]]], Rule[\\\"LayoutOptions\\\", \ +Association[Rule[\\\"PanelPlotLayout\\\", Association[]], \ +Rule[\\\"PlotRange\\\", List[List[0, 30], List[0.`, 0.07376607572608768`]]], \ +Rule[\\\"Frame\\\", List[List[False, False], List[False, False]]], \ +Rule[\\\"AxesOrigin\\\", List[0, 0]], Rule[\\\"ImageSize\\\", List[360, \ +Times[360, Power[GoldenRatio, -1]]]], Rule[\\\"Axes\\\", List[True, True]], \ +Rule[\\\"LabelStyle\\\", List[]], Rule[\\\"AspectRatio\\\", \ +Power[GoldenRatio, -1]], Rule[\\\"DefaultStyle\\\", \ +List[Directive[Opacity[1.`], RGBColor[0.24`, 0.6`, 0.8`], \ +AbsoluteThickness[2]]]], Rule[\\\"HighlightLabelingFunctions\\\", \ +Association[Rule[\\\"CoordinatesToolOptions\\\", \ +Function[List[Function[Identity[Slot[1]]][Part[Slot[1], 1]], \ +Function[Identity[Slot[1]]][Part[Slot[1], 2]]]]], Rule[\\\"ScalingFunctions\\\ +\", List[List[Identity, Identity], List[Identity, Identity]]]]], \ +Rule[\\\"Primitives\\\", List[]], Rule[\\\"GCFlag\\\", False]]], \ +Rule[\\\"Meta\\\", Association[Rule[\\\"DefaultHighlight\\\", \ +List[\\\"Dynamic\\\", None]], Rule[\\\"Index\\\", List[]], \ +Rule[\\\"Function\\\", Plot], Rule[\\\"GroupHighlight\\\", False]]]], \ +\\\"DynamicHighlight\\\"]]], List[Rule[DisplayFunction, Identity], \ +RuleDelayed[PlotInteractivity, True], Rule[DisplayFunction, Identity], \ +RuleDelayed[PlotInteractivity, True], Rule[DefaultBaseStyle, \ +List[\\\"PlotGraphics\\\", \\\"Graphics\\\"]], Rule[DisplayFunction, \ +Identity], Rule[Ticks, List[Automatic, Automatic]], Rule[AxesOrigin, List[0, \ +0]], Rule[FrameTicks, List[List[Automatic, Automatic], List[Automatic, \ +Automatic]]], Rule[GridLines, List[None, None]], \ +RuleDelayed[PlotInteractivity, True], Rule[DefaultBaseStyle, \ +List[\\\"PlotGraphics\\\", \\\"Graphics\\\"]], Rule[DisplayFunction, \ +Identity], Rule[PlotRangePadding, List[List[Scaled[Skeleton[1]], \ +Scaled[Skeleton[1]]], List[Scaled[Skeleton[1]], Scaled[Skeleton[1]]]]], \ +Rule[PlotRangeClipping, True], Rule[ImagePadding, All], \ +RuleDelayed[PlotInteractivity, True], Rule[DisplayFunction, Identity], \ +RuleDelayed[PlotInteractivity, True], Rule[DefaultBaseStyle, \ +List[\\\"PlotGraphics\\\", \\\"Graphics\\\"]], Rule[AspectRatio, \ +NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], Rule[Axes, List[True, \ +True]], Rule[AxesLabel, List[None, None]], Rule[AxesOrigin, List[0, 0]], \ +RuleDelayed[DisplayFunction, Identity], Rule[Frame, List[List[False, False], \ +List[False, False]]], Rule[FrameLabel, List[List[None, None], List[None, \ +None]]], Rule[FrameTicks, List[List[Automatic, Automatic], List[Automatic, \ +Automatic]]], Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \ +Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \ +List[Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \ +Rule[\\\"DefaultGraphicsInteraction\\\", List[Skeleton[3]]], \ +Rule[\\\"DefaultMeshStyle\\\", AbsolutePointSize[Skeleton[1]]], \ +Rule[\\\"ScalingFunctions\\\", None], Rule[\\\"CoordinatesToolOptions\\\", \ +List[Skeleton[2]]]]], Rule[PlotRange, List[List[0, 30], List[0.`, \ +0.07376607572608768`]]], Rule[PlotRangeClipping, True], \ +Rule[PlotRangePadding, List[List[Scaled[Skeleton[1]], Scaled[Skeleton[1]]], \ +List[Scaled[Skeleton[1]], Scaled[Skeleton[1]]]]], Rule[Ticks, List[Automatic, \ +Automatic]]]], \\\",\\\", \\\"xx\\\"}], \\\"]\\\"}]\\).\"", 2, 140, 76, + 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939618994306726`*^9}, + CellLabel-> + "During evaluation of \ +In[140]:=",ExpressionUUID->"2d8623b7-848f-4d98-88d7-014af89143aa"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4VG0bAHDRQm/JvjNnJktZUgjDjPuWfS0k+54lSZRoF0WKJFTSQkKL +beYUZSmiBZXKvkS9ovq8iEJU8p3+mut3nes85zzPvZ2h++92DOTl4eHRWMTD +8/d3ZqDpiWJyvlGzhUp1yh4To/ZrUgeMu+NByUs4510nHVD8tb9UdzrsEX99 +8m7nBojecqeLrzsPtn+9Z3ux0xiExyXT57pI6N9zOjK00wHe19jvnuqqhzQb +F6GeDj8wVxzpn+xqhV1rL1fnt0XCXJfe+YmuQWjSV8kZaI6DBpOb+W/zvsOO +Mv6zX/zSQe595Sd/9XmwN3b638Zv2SAW5nNnmQkfKn7sHxbYfx3SN5hX2zvz +446qo+dn4gugJ2t93aTQSpx6d7WkfuoWJOfHvuaVFkadyqTTZyyKwVpnh4j4 +amGM6dQY5joVA/8TR2cVDWEcED/A89qnGE58VOqzMRbG+81LIr7HFMNhxstP +mTuE0cWtdmroZjGE50r9Ua4SxiW7hEpClpaAwxWuuo2HCCpnfjYaelgCkpkf +T2VcFcXLUqSTsUQZSKmVn5gtFMVta94UddDKQKY+MdaLI4obi57ZBawtA4WJ +tftUGkQx+Mih0FBWGSjZRvhWfxHF91nwScW/DLQXz+t+1BZDN/svX7yLy2Bz +lMSQVrMYpozT23rlObDlny8DF9vEsHXgQIo+gwOOeZU9v9+J4Ycknt50ZQ5s +e+P5+tlXMZy63qrJ1uSAl/qNKndxcZyVdqsKQQ7sHNI8F+8rjpZzzmMy/hw4 +udXKqHVGHNMe8cv/L48DMvdaZHgXSWDL7Eioxk0OlIpu/bHhHwlMLfqUv6uI +A52t3pxzNAn0Sb7d9+9dDig6RDEcLCUw7oaW9aUnHKi3y1n65pIEFsf6vDcZ +5sC8+XTLK5YkDvWGfUhYzYW0woNF8+aSeCvgp7iFChcUl/IkaThIIog8WLdY +jQu2T5cbnwmUxESOqMAeLS5kmxB3bVMlUWhFh6ecMRf00ebii/eSOBEr4l/k +xYW9zOs+TfFSWPifkSmZwQXrXMEpmxQpfDV9oOTBBS4wlh1OajkvhfS0JbHV +l7jwpn0bt+2WFMIbRY+KHC6si1jBN9AihQWj/rPHirjwpTCm8JuMND63rX+7 +o54LnmL2Y7J3pdHpdOj502Nc0D5UHXetRhp3u/1ZqzDBheWDayToz6RR/GvX +2tJvXKgs4wPlHmnsLhAIa/jBBQmbyrT1C9Jon719oX4RCW/iFHXMbGSwgyg+ +IyFOgunXnwfDP8rgWdAbFGKScMAyU/XxqAzmnte4qGJIQul1jV7RGRlszN45 +aMAmQWqrL7OSXxaX9I+wXIxJGH3w9AffOllMH92+PNiKhIz4tKhL+2XR3kHS +/qMrCY19axVH42Rxfr4tpcGdhN86DW1GybJYF7sQlOtJQtDnaa2hq7J41lzo +62ZfEgxsPSbXNcii1jc718RgEgbFlcOfrJRDHtO1Q1v2kSC5u1ZeUlIO6Rvv +Lv0VTYJto+urHYQcvm5ub76+n4SKg8nqq7Tl0L0qmTl8iITT7ydG3FzlMMmt +ssYkngSt29XBX/PksGLJixqfVBLiWA5+MvrymLNfZlQinwRL72vf9DbJ46Sr +Mi2ygATBY/8dd7aVx2mX8bDnhSRcaUgoTPOVRxfmXo+Q2yQ8sK76b+kpeaxb +6Lt4qJSECdfV0d975NE/mVz35T4J9w9GLBMeksf7I3f9F1eScPTKw6x14/Jo ++mvpQ7kqElZ8cKnewauADWl3PxvXkKASnMLzQVUBMxKGVb3rSPDeN3365SEF +jOQUy7x/ToLSxU1yIwkKKPPDW+RR49/zP1uyLE0Bd7/UZV9qIuHg77VvNuUr +4ObECk3TFyScP+4tXvlSAXPuteeEtZDgWVBU2NmpgOUJpyw1XpPAeD6rN/VB +AU9cMFYbocxZnuGuOa2AHo8xz/UtCS/PPc8pkKehR6Xfbv52Kr53xTY0qNCw +9ZngoiLK7h1+9R820NB25nObVQcJX6R+D8ma03BGtQkPd5LAl7teNT2chpek +1zvc6yah+fGR6rL9NHR0oC1l9pCQ9rHZ9lU8Dc2YJXxVlBVUAnfzX6Th3pG9 +7zi9VD6UXrp3tJaGvtYZtD3vqHztapkfb6Rhrc/CzlbK9jyLLXxaabg78Vm8 +Zj8JAY7hPTBMQ/V92SIfKIcfusHgjNPwfZLJGe0BEvbnd+8kZmkobHqs4zhl +80P02GNLCOQLnHkr856EF6tqbugvJ1D+XutJP8pb8rc1TggSaHY4SbCAsser +ZGE/KQId7V+fY3wg4YOfsq60PIG0VwJpnpSDZurc39IJLC6J8M+gHEGbuWGs +RmB2CO3kD8rTd9Ma5zQJ1Nsg2af4LxUvS7Uxrg6BPbqXl26mzNP/VDiUSeB0 +ZMLyaMoJkb66DCMC4Sbn8yXKy5f+cu/dRKBy8Oy1Kspp2edj0y0INF7J3NBN +WVxzfb61LYEltZtzvlHObmhu5HUg8Hi4zIjAIAk018CxKmdqP20xIgqU80cX +hPe6E2gSYSGtSVk1LltXzYfAxWk7FliUy8Q3enwMIPCRae1TC8o6d17HXg4h +sCxYdddmylVGoflOuwg8l3VmxokytC1u+mcPdT/7pb8z5SfBOWMN0QR+j20m +/163+s0UOXyIwGUOuz7bU25Ja9fVOUbgou3Zi/6uv1Vpt8foCQK11+vz/n1+ +T6XAsfxTBPZ/1RjRoOxtn5/vmUrglZyAKjnKQ4NGTWIZBLbPP97LT3lHTM/Y +y4sECp3Wkpyk9j/+T5RIwhUCo0/kFHRS3psrqMe+TqDC2HdaJeVZndse0wUE +ph+XPZlF+WiTybGSOwTKPON9F0WZz3sgP7CMQMPJCzR7yknf9jfJ3yNQcOGp +49/4CZ4UHe94QGBp4dHov/GV4ljqmdcTqGlnk5FJ+arpR48/zwj8HIip3pQZ +PUeOVbwgcNg67ogSZQ3eu03KHQTmlHFYd6j8Ii/YjQ/0UPuXThQMoayv9kXk +4gCByfR93QzKm7bKey77Qp1n0z7Xs1T+Pv9y/1jtKIFnhaKEjCnbHnEsiJmk +zsM48MlXKv9dCk+Of/5J4ImjixRNKYfNTh5rXEnHjKiI/sY+qr4igyQ+idBR +xSa9040y/0hvEZ8UHTed6bP7TNVfQV9DpxGDjoki36p/UPU58Oi8erkuHUvX +PKkcp767ivWW17ca0tG0vOx5AOWDnKMuE0jHN5kzXh1U/UvkBcer2dBxxf8e +ryml+sPmBGb3dR86PvW966HbRtX7n5JdtdvpeD6h683ZVqqfRTP4+ndQz//w +tHuY6j9JIf+sk4qiY8gTq8KTb0ios+k/nppExycPZL3yXlH9XCRO8xCXjqn3 +NgRtpPojT/L0k6wKOh6xsL7l+ozKL75Q94pqOh52vZe+/ykJO6cdEyaf0jHi +wu/A0gYq/7sV+4J76TinL6DxrZZ635zGxK18DEwG+X19VP8ekmTL7eFnYAPP +1GBTBRWfNC737EoG+iw9sKq8nNpPfPa7ZkkG3m7BO3F3qfcNDNMyVmegXl+n +4BQ1D+bUhAY0nBkYlC/aZUTNk5mrMnHa7gxU+fO/9oUbJEytUlJk+jAw9sen +pw/zqHz9zgw13cFA1z/DietzqflXHTDjfoSBjdfFiyezqf5pc18wqYBaP8D0 +0cezVH3v9IbBaQbGa//6mRZDwsX+kMHPPxm4tOqX7HdqXmZu3pswtsDAW3wD +Xo5RJKRqJ72YFViNFx4rW/NHkhD/i+uySoFyzcKYQyh1PslLIljmq3G5lFWp +FzWfWUXFuRcurMZJQdEkPyMS+oiiHLPLq3FuIjk3hUXF+8Lta1M5q7Hvt3FA +uQE17+IKrzjeXo2mqzxHF3Sp+LjmZgnWrEYVmtT6A5okrF2SmZb472qU0sbz +8zTqvH0OHYtWV8SmEMEb2xa4MCli7butXhF5PUPlz93nQncY403oc0Vk1WWu +nb/HhbpnPyH2pSJOplV0BpHU99zBItqtTkVkLzkto13ChfWDK97PjSii/B8i +piyPC+Hc115XRZWw/JTnT/0zXBjZ7OwxtF0JPRKff8r25cJQiu+2PcuUsUC9 +v3OWhwtWX2OshnVVcCAoboW6AQdGA/j33otdg5dixCTqM0up/xOSvCfr12K5 +tRLGXSoGkVfKqZyvqrhsQ17O8zt3QC6pbIuurjp+lCklxBNvQZYaU0g0WAOH +r2psTjleCM0yxhu/n1uHhqKvVzWk5YOBXH2aZqcmqlo7xe6IywNBvrwov/j1 +uOVq71L+W7mgEEdjuSlvwOE4FQHbuKsgoORZ4fh8A2aWFJyx4MmGdWzpshgv +LSyn/WYpzVyAPQMiDdY82jholCcQPpYBX7+nOFtlaeNIar1Uues5sNB8lm2l +oYO/WIp2xjKp8Oi74a8fLTq4gmzofZF3CsLVtXrfBm7EvWaKb1rGE4A9vr3d +TUAXlxgK+FYExoOZopTdyjxdzM52PyrMHwtrjp3eX6+nhzGflxlEyB4E1UBm +rVKvHg5csou8GrcPAh+FnLgXqY+REgEhfZ2RML5rJMYsSh8t+8IztBojYb98 +2M7OaH30fRg6kFEZCacP73acPaSPO4OraqOuRALHIJpgJeqj4PorRJl/JPyu +OF7TkE1d32g6vGgyAtLLrk21NuhjgrLzj19iEVCb2759UpyJkaK8Vxy/hcEH +W7pPtBQTLZWejmr3hgHP3C63XzJMVHy3zk25Pgw2OSyzX0IwMTmK8DVKD4Nn +iwz0pFWZGP2IpmSgHQYv/XMEjI2YKBfHm+S6fyf0KoaWpgUx0f+R/spJwVCY +urXwQ/M+E28mXG++vDMYPm0zzz1VycTp+zVRna7B0L34jOXHaiYeOccRVjAP +hmpfmUsX6ph44I4efzsRDPFSGw3mm5gILc2KvZ1BIJQUerj5HRNjbo8ttzIL +AvXgDp5AXgM0lUoOj1MLhAClIoFsOwOEVaLnB2UD4OBT71DlLQZ4QDBy1dvl +AZAWKPKCdDTAlJCzjS/n/KGm4EDKCxcD3LlGs/O/Ln8QU7ZcNe9ngNrzmQee +Z/rDM+VhMd9oA6yKHa0dE/IH1TU0QjnHAMcTDw0/FPGDSdUMXXLCAO98VosI +3ucN3S/RTPS7Ab7UJfKMPbyhLnzcKWraAN1uF8VpGntDKmkVqfvTAPcOqUmb +r/QGVQOe4io+Q6yU83H1KvQCf6td9AYJQ4y/vfLK2nee0B5ssaKdZYhQOuf1 +ydkDHuT/+nc6yRC9nHOlQmNdQdck6od1siGOJjFWYKgrlP87uiL3jCEeWTir +rOzsCqTCgJ51uiFe8WbfZKi5QnFW3Zlrlw2xLX1rVV+XC+SmJDAtSg0x7ueI +lZmOC5yKWnUuq80QBS8qCHFmncHddDUaKrCw7LW7cEOJE8y38ws2ECy8s9nr +Ym+2E+QGjvdZr2bhTX80501ygk+JlTHua1gYVUifiPN3gj1Nm8sOaLFQZmZO +01jKCU7bH1Z4YM7CVrUAh/JER6hy7fits5uF4br4SXG3A8juOlm5ro6FFYdV +l8d02UPqQtDG5HoW7iwSGBeptgfedHPu5ycsvNqhw3x2zR5GKpbczm1i4ZWA +1IY9QfZQxXMiS6SNhUJTkv3/ztiBe+axmJlhFhZvrfgkIGcHWdUHNj76h42m +IUymcIwNiC8P49q5sDFpi5tfVpgl5JscOTjhxsZ+q4rsYUdL0DqSapLhycYz +szXrbJiWYD/B6ej2Y2Ojhbikz1JLSOycngsIY+Ovle8f3rxuAbN5sZsOxrEx +rUtoY9E7c+g1zGgrLGLjVc/Bke8BZhCyL/+KVSkbTVbVtyjbmcFMaXngKIeN +dhOvb+7WNQMRRvePDRVstI3nn9gkYAY2/PJyD+vYGLP2Us9YmSnUtBdub+ug +3tc93shskSlYCz7QiO5mY4/Gte8t/5lAt0XTjFQfG5Wvk0d2dZrAVNV/Sd4f +2Pik1qv5S5EJaFxfX/K/ETY6tMZ7dLqYQE2vcXTKGBvf1ne8WmxiAtZiTqA5 +wcbNvidPWawzgaCT+95GTVP3P5bJElhCrVeXmC05y0bkz29MmtgE8T8vBlT9 +ZGPbTO+87LtNIKRzW91rno1uRRzlhueb4NququmFBTZum6NrHb27Cf4P386a +og== + "]]}, + 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:eJwV13k4VG0bAHDRQm/JvjNnJktZUgjDjPuWfS0k+54lSZRoF0WKJFTSQkKL +beYUZSmiBZXKvkS9ovq8iEJU8p3+mut3nes85zzPvZ2h++92DOTl4eHRWMTD +8/d3ZqDpiWJyvlGzhUp1yh4To/ZrUgeMu+NByUs4510nHVD8tb9UdzrsEX99 +8m7nBojecqeLrzsPtn+9Z3ux0xiExyXT57pI6N9zOjK00wHe19jvnuqqhzQb +F6GeDj8wVxzpn+xqhV1rL1fnt0XCXJfe+YmuQWjSV8kZaI6DBpOb+W/zvsOO +Mv6zX/zSQe595Sd/9XmwN3b638Zv2SAW5nNnmQkfKn7sHxbYfx3SN5hX2zvz +446qo+dn4gugJ2t93aTQSpx6d7WkfuoWJOfHvuaVFkadyqTTZyyKwVpnh4j4 +amGM6dQY5joVA/8TR2cVDWEcED/A89qnGE58VOqzMRbG+81LIr7HFMNhxstP +mTuE0cWtdmroZjGE50r9Ua4SxiW7hEpClpaAwxWuuo2HCCpnfjYaelgCkpkf +T2VcFcXLUqSTsUQZSKmVn5gtFMVta94UddDKQKY+MdaLI4obi57ZBawtA4WJ +tftUGkQx+Mih0FBWGSjZRvhWfxHF91nwScW/DLQXz+t+1BZDN/svX7yLy2Bz +lMSQVrMYpozT23rlObDlny8DF9vEsHXgQIo+gwOOeZU9v9+J4Ycknt50ZQ5s +e+P5+tlXMZy63qrJ1uSAl/qNKndxcZyVdqsKQQ7sHNI8F+8rjpZzzmMy/hw4 +udXKqHVGHNMe8cv/L48DMvdaZHgXSWDL7Eioxk0OlIpu/bHhHwlMLfqUv6uI +A52t3pxzNAn0Sb7d9+9dDig6RDEcLCUw7oaW9aUnHKi3y1n65pIEFsf6vDcZ +5sC8+XTLK5YkDvWGfUhYzYW0woNF8+aSeCvgp7iFChcUl/IkaThIIog8WLdY +jQu2T5cbnwmUxESOqMAeLS5kmxB3bVMlUWhFh6ecMRf00ebii/eSOBEr4l/k +xYW9zOs+TfFSWPifkSmZwQXrXMEpmxQpfDV9oOTBBS4wlh1OajkvhfS0JbHV +l7jwpn0bt+2WFMIbRY+KHC6si1jBN9AihQWj/rPHirjwpTCm8JuMND63rX+7 +o54LnmL2Y7J3pdHpdOj502Nc0D5UHXetRhp3u/1ZqzDBheWDayToz6RR/GvX +2tJvXKgs4wPlHmnsLhAIa/jBBQmbyrT1C9Jon719oX4RCW/iFHXMbGSwgyg+ +IyFOgunXnwfDP8rgWdAbFGKScMAyU/XxqAzmnte4qGJIQul1jV7RGRlszN45 +aMAmQWqrL7OSXxaX9I+wXIxJGH3w9AffOllMH92+PNiKhIz4tKhL+2XR3kHS +/qMrCY19axVH42Rxfr4tpcGdhN86DW1GybJYF7sQlOtJQtDnaa2hq7J41lzo +62ZfEgxsPSbXNcii1jc718RgEgbFlcOfrJRDHtO1Q1v2kSC5u1ZeUlIO6Rvv +Lv0VTYJto+urHYQcvm5ub76+n4SKg8nqq7Tl0L0qmTl8iITT7ydG3FzlMMmt +ssYkngSt29XBX/PksGLJixqfVBLiWA5+MvrymLNfZlQinwRL72vf9DbJ46Sr +Mi2ygATBY/8dd7aVx2mX8bDnhSRcaUgoTPOVRxfmXo+Q2yQ8sK76b+kpeaxb +6Lt4qJSECdfV0d975NE/mVz35T4J9w9GLBMeksf7I3f9F1eScPTKw6x14/Jo ++mvpQ7kqElZ8cKnewauADWl3PxvXkKASnMLzQVUBMxKGVb3rSPDeN3365SEF +jOQUy7x/ToLSxU1yIwkKKPPDW+RR49/zP1uyLE0Bd7/UZV9qIuHg77VvNuUr +4ObECk3TFyScP+4tXvlSAXPuteeEtZDgWVBU2NmpgOUJpyw1XpPAeD6rN/VB +AU9cMFYbocxZnuGuOa2AHo8xz/UtCS/PPc8pkKehR6Xfbv52Kr53xTY0qNCw +9ZngoiLK7h1+9R820NB25nObVQcJX6R+D8ma03BGtQkPd5LAl7teNT2chpek +1zvc6yah+fGR6rL9NHR0oC1l9pCQ9rHZ9lU8Dc2YJXxVlBVUAnfzX6Th3pG9 +7zi9VD6UXrp3tJaGvtYZtD3vqHztapkfb6Rhrc/CzlbK9jyLLXxaabg78Vm8 +Zj8JAY7hPTBMQ/V92SIfKIcfusHgjNPwfZLJGe0BEvbnd+8kZmkobHqs4zhl +80P02GNLCOQLnHkr856EF6tqbugvJ1D+XutJP8pb8rc1TggSaHY4SbCAsser +ZGE/KQId7V+fY3wg4YOfsq60PIG0VwJpnpSDZurc39IJLC6J8M+gHEGbuWGs +RmB2CO3kD8rTd9Ma5zQJ1Nsg2af4LxUvS7Uxrg6BPbqXl26mzNP/VDiUSeB0 +ZMLyaMoJkb66DCMC4Sbn8yXKy5f+cu/dRKBy8Oy1Kspp2edj0y0INF7J3NBN +WVxzfb61LYEltZtzvlHObmhu5HUg8Hi4zIjAIAk018CxKmdqP20xIgqU80cX +hPe6E2gSYSGtSVk1LltXzYfAxWk7FliUy8Q3enwMIPCRae1TC8o6d17HXg4h +sCxYdddmylVGoflOuwg8l3VmxokytC1u+mcPdT/7pb8z5SfBOWMN0QR+j20m +/163+s0UOXyIwGUOuz7bU25Ja9fVOUbgou3Zi/6uv1Vpt8foCQK11+vz/n1+ +T6XAsfxTBPZ/1RjRoOxtn5/vmUrglZyAKjnKQ4NGTWIZBLbPP97LT3lHTM/Y +y4sECp3Wkpyk9j/+T5RIwhUCo0/kFHRS3psrqMe+TqDC2HdaJeVZndse0wUE +ph+XPZlF+WiTybGSOwTKPON9F0WZz3sgP7CMQMPJCzR7yknf9jfJ3yNQcOGp +49/4CZ4UHe94QGBp4dHov/GV4ljqmdcTqGlnk5FJ+arpR48/zwj8HIip3pQZ +PUeOVbwgcNg67ogSZQ3eu03KHQTmlHFYd6j8Ii/YjQ/0UPuXThQMoayv9kXk +4gCByfR93QzKm7bKey77Qp1n0z7Xs1T+Pv9y/1jtKIFnhaKEjCnbHnEsiJmk +zsM48MlXKv9dCk+Of/5J4ImjixRNKYfNTh5rXEnHjKiI/sY+qr4igyQ+idBR +xSa9040y/0hvEZ8UHTed6bP7TNVfQV9DpxGDjoki36p/UPU58Oi8erkuHUvX +PKkcp767ivWW17ca0tG0vOx5AOWDnKMuE0jHN5kzXh1U/UvkBcer2dBxxf8e +ryml+sPmBGb3dR86PvW966HbRtX7n5JdtdvpeD6h683ZVqqfRTP4+ndQz//w +tHuY6j9JIf+sk4qiY8gTq8KTb0ios+k/nppExycPZL3yXlH9XCRO8xCXjqn3 +NgRtpPojT/L0k6wKOh6xsL7l+ozKL75Q94pqOh52vZe+/ykJO6cdEyaf0jHi +wu/A0gYq/7sV+4J76TinL6DxrZZ635zGxK18DEwG+X19VP8ekmTL7eFnYAPP +1GBTBRWfNC737EoG+iw9sKq8nNpPfPa7ZkkG3m7BO3F3qfcNDNMyVmegXl+n +4BQ1D+bUhAY0nBkYlC/aZUTNk5mrMnHa7gxU+fO/9oUbJEytUlJk+jAw9sen +pw/zqHz9zgw13cFA1z/DietzqflXHTDjfoSBjdfFiyezqf5pc18wqYBaP8D0 +0cezVH3v9IbBaQbGa//6mRZDwsX+kMHPPxm4tOqX7HdqXmZu3pswtsDAW3wD +Xo5RJKRqJ72YFViNFx4rW/NHkhD/i+uySoFyzcKYQyh1PslLIljmq3G5lFWp +FzWfWUXFuRcurMZJQdEkPyMS+oiiHLPLq3FuIjk3hUXF+8Lta1M5q7Hvt3FA +uQE17+IKrzjeXo2mqzxHF3Sp+LjmZgnWrEYVmtT6A5okrF2SmZb472qU0sbz +8zTqvH0OHYtWV8SmEMEb2xa4MCli7butXhF5PUPlz93nQncY403oc0Vk1WWu +nb/HhbpnPyH2pSJOplV0BpHU99zBItqtTkVkLzkto13ChfWDK97PjSii/B8i +piyPC+Hc115XRZWw/JTnT/0zXBjZ7OwxtF0JPRKff8r25cJQiu+2PcuUsUC9 +v3OWhwtWX2OshnVVcCAoboW6AQdGA/j33otdg5dixCTqM0up/xOSvCfr12K5 +tRLGXSoGkVfKqZyvqrhsQ17O8zt3QC6pbIuurjp+lCklxBNvQZYaU0g0WAOH +r2psTjleCM0yxhu/n1uHhqKvVzWk5YOBXH2aZqcmqlo7xe6IywNBvrwov/j1 +uOVq71L+W7mgEEdjuSlvwOE4FQHbuKsgoORZ4fh8A2aWFJyx4MmGdWzpshgv +LSyn/WYpzVyAPQMiDdY82jholCcQPpYBX7+nOFtlaeNIar1Uues5sNB8lm2l +oYO/WIp2xjKp8Oi74a8fLTq4gmzofZF3CsLVtXrfBm7EvWaKb1rGE4A9vr3d +TUAXlxgK+FYExoOZopTdyjxdzM52PyrMHwtrjp3eX6+nhzGflxlEyB4E1UBm +rVKvHg5csou8GrcPAh+FnLgXqY+REgEhfZ2RML5rJMYsSh8t+8IztBojYb98 +2M7OaH30fRg6kFEZCacP73acPaSPO4OraqOuRALHIJpgJeqj4PorRJl/JPyu +OF7TkE1d32g6vGgyAtLLrk21NuhjgrLzj19iEVCb2759UpyJkaK8Vxy/hcEH +W7pPtBQTLZWejmr3hgHP3C63XzJMVHy3zk25Pgw2OSyzX0IwMTmK8DVKD4Nn +iwz0pFWZGP2IpmSgHQYv/XMEjI2YKBfHm+S6fyf0KoaWpgUx0f+R/spJwVCY +urXwQ/M+E28mXG++vDMYPm0zzz1VycTp+zVRna7B0L34jOXHaiYeOccRVjAP +hmpfmUsX6ph44I4efzsRDPFSGw3mm5gILc2KvZ1BIJQUerj5HRNjbo8ttzIL +AvXgDp5AXgM0lUoOj1MLhAClIoFsOwOEVaLnB2UD4OBT71DlLQZ4QDBy1dvl +AZAWKPKCdDTAlJCzjS/n/KGm4EDKCxcD3LlGs/O/Ln8QU7ZcNe9ngNrzmQee +Z/rDM+VhMd9oA6yKHa0dE/IH1TU0QjnHAMcTDw0/FPGDSdUMXXLCAO98VosI +3ucN3S/RTPS7Ab7UJfKMPbyhLnzcKWraAN1uF8VpGntDKmkVqfvTAPcOqUmb +r/QGVQOe4io+Q6yU83H1KvQCf6td9AYJQ4y/vfLK2nee0B5ssaKdZYhQOuf1 +ydkDHuT/+nc6yRC9nHOlQmNdQdck6od1siGOJjFWYKgrlP87uiL3jCEeWTir +rOzsCqTCgJ51uiFe8WbfZKi5QnFW3Zlrlw2xLX1rVV+XC+SmJDAtSg0x7ueI +lZmOC5yKWnUuq80QBS8qCHFmncHddDUaKrCw7LW7cEOJE8y38ws2ECy8s9nr +Ym+2E+QGjvdZr2bhTX80501ygk+JlTHua1gYVUifiPN3gj1Nm8sOaLFQZmZO +01jKCU7bH1Z4YM7CVrUAh/JER6hy7fits5uF4br4SXG3A8juOlm5ro6FFYdV +l8d02UPqQtDG5HoW7iwSGBeptgfedHPu5ycsvNqhw3x2zR5GKpbczm1i4ZWA +1IY9QfZQxXMiS6SNhUJTkv3/ztiBe+axmJlhFhZvrfgkIGcHWdUHNj76h42m +IUymcIwNiC8P49q5sDFpi5tfVpgl5JscOTjhxsZ+q4rsYUdL0DqSapLhycYz +szXrbJiWYD/B6ej2Y2Ojhbikz1JLSOycngsIY+Ovle8f3rxuAbN5sZsOxrEx +rUtoY9E7c+g1zGgrLGLjVc/Bke8BZhCyL/+KVSkbTVbVtyjbmcFMaXngKIeN +dhOvb+7WNQMRRvePDRVstI3nn9gkYAY2/PJyD+vYGLP2Us9YmSnUtBdub+ug +3tc93shskSlYCz7QiO5mY4/Gte8t/5lAt0XTjFQfG5Wvk0d2dZrAVNV/Sd4f +2Pik1qv5S5EJaFxfX/K/ETY6tMZ7dLqYQE2vcXTKGBvf1ne8WmxiAtZiTqA5 +wcbNvidPWawzgaCT+95GTVP3P5bJElhCrVeXmC05y0bkz29MmtgE8T8vBlT9 +ZGPbTO+87LtNIKRzW91rno1uRRzlhueb4NququmFBTZum6NrHb27Cf4P386a +og== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07376607572608768}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.07376607572608768}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJwV13k4VG0bAHDRQm/JvjNnJktZUgjDjPuWfS0k+54lSZRoF0WKJFTSQkKL +beYUZSmiBZXKvkS9ovq8iEJU8p3+mut3nes85zzPvZ2h++92DOTl4eHRWMTD +8/d3ZqDpiWJyvlGzhUp1yh4To/ZrUgeMu+NByUs4510nHVD8tb9UdzrsEX99 +8m7nBojecqeLrzsPtn+9Z3ux0xiExyXT57pI6N9zOjK00wHe19jvnuqqhzQb +F6GeDj8wVxzpn+xqhV1rL1fnt0XCXJfe+YmuQWjSV8kZaI6DBpOb+W/zvsOO +Mv6zX/zSQe595Sd/9XmwN3b638Zv2SAW5nNnmQkfKn7sHxbYfx3SN5hX2zvz +446qo+dn4gugJ2t93aTQSpx6d7WkfuoWJOfHvuaVFkadyqTTZyyKwVpnh4j4 +amGM6dQY5joVA/8TR2cVDWEcED/A89qnGE58VOqzMRbG+81LIr7HFMNhxstP +mTuE0cWtdmroZjGE50r9Ua4SxiW7hEpClpaAwxWuuo2HCCpnfjYaelgCkpkf +T2VcFcXLUqSTsUQZSKmVn5gtFMVta94UddDKQKY+MdaLI4obi57ZBawtA4WJ +tftUGkQx+Mih0FBWGSjZRvhWfxHF91nwScW/DLQXz+t+1BZDN/svX7yLy2Bz +lMSQVrMYpozT23rlObDlny8DF9vEsHXgQIo+gwOOeZU9v9+J4Ycknt50ZQ5s +e+P5+tlXMZy63qrJ1uSAl/qNKndxcZyVdqsKQQ7sHNI8F+8rjpZzzmMy/hw4 +udXKqHVGHNMe8cv/L48DMvdaZHgXSWDL7Eioxk0OlIpu/bHhHwlMLfqUv6uI +A52t3pxzNAn0Sb7d9+9dDig6RDEcLCUw7oaW9aUnHKi3y1n65pIEFsf6vDcZ +5sC8+XTLK5YkDvWGfUhYzYW0woNF8+aSeCvgp7iFChcUl/IkaThIIog8WLdY +jQu2T5cbnwmUxESOqMAeLS5kmxB3bVMlUWhFh6ecMRf00ebii/eSOBEr4l/k +xYW9zOs+TfFSWPifkSmZwQXrXMEpmxQpfDV9oOTBBS4wlh1OajkvhfS0JbHV +l7jwpn0bt+2WFMIbRY+KHC6si1jBN9AihQWj/rPHirjwpTCm8JuMND63rX+7 +o54LnmL2Y7J3pdHpdOj502Nc0D5UHXetRhp3u/1ZqzDBheWDayToz6RR/GvX +2tJvXKgs4wPlHmnsLhAIa/jBBQmbyrT1C9Jon719oX4RCW/iFHXMbGSwgyg+ +IyFOgunXnwfDP8rgWdAbFGKScMAyU/XxqAzmnte4qGJIQul1jV7RGRlszN45 +aMAmQWqrL7OSXxaX9I+wXIxJGH3w9AffOllMH92+PNiKhIz4tKhL+2XR3kHS +/qMrCY19axVH42Rxfr4tpcGdhN86DW1GybJYF7sQlOtJQtDnaa2hq7J41lzo +62ZfEgxsPSbXNcii1jc718RgEgbFlcOfrJRDHtO1Q1v2kSC5u1ZeUlIO6Rvv +Lv0VTYJto+urHYQcvm5ub76+n4SKg8nqq7Tl0L0qmTl8iITT7ydG3FzlMMmt +ssYkngSt29XBX/PksGLJixqfVBLiWA5+MvrymLNfZlQinwRL72vf9DbJ46Sr +Mi2ygATBY/8dd7aVx2mX8bDnhSRcaUgoTPOVRxfmXo+Q2yQ8sK76b+kpeaxb +6Lt4qJSECdfV0d975NE/mVz35T4J9w9GLBMeksf7I3f9F1eScPTKw6x14/Jo ++mvpQ7kqElZ8cKnewauADWl3PxvXkKASnMLzQVUBMxKGVb3rSPDeN3365SEF +jOQUy7x/ToLSxU1yIwkKKPPDW+RR49/zP1uyLE0Bd7/UZV9qIuHg77VvNuUr +4ObECk3TFyScP+4tXvlSAXPuteeEtZDgWVBU2NmpgOUJpyw1XpPAeD6rN/VB +AU9cMFYbocxZnuGuOa2AHo8xz/UtCS/PPc8pkKehR6Xfbv52Kr53xTY0qNCw +9ZngoiLK7h1+9R820NB25nObVQcJX6R+D8ma03BGtQkPd5LAl7teNT2chpek +1zvc6yah+fGR6rL9NHR0oC1l9pCQ9rHZ9lU8Dc2YJXxVlBVUAnfzX6Th3pG9 +7zi9VD6UXrp3tJaGvtYZtD3vqHztapkfb6Rhrc/CzlbK9jyLLXxaabg78Vm8 +Zj8JAY7hPTBMQ/V92SIfKIcfusHgjNPwfZLJGe0BEvbnd+8kZmkobHqs4zhl +80P02GNLCOQLnHkr856EF6tqbugvJ1D+XutJP8pb8rc1TggSaHY4SbCAsser +ZGE/KQId7V+fY3wg4YOfsq60PIG0VwJpnpSDZurc39IJLC6J8M+gHEGbuWGs +RmB2CO3kD8rTd9Ma5zQJ1Nsg2af4LxUvS7Uxrg6BPbqXl26mzNP/VDiUSeB0 +ZMLyaMoJkb66DCMC4Sbn8yXKy5f+cu/dRKBy8Oy1Kspp2edj0y0INF7J3NBN +WVxzfb61LYEltZtzvlHObmhu5HUg8Hi4zIjAIAk018CxKmdqP20xIgqU80cX +hPe6E2gSYSGtSVk1LltXzYfAxWk7FliUy8Q3enwMIPCRae1TC8o6d17HXg4h +sCxYdddmylVGoflOuwg8l3VmxokytC1u+mcPdT/7pb8z5SfBOWMN0QR+j20m +/163+s0UOXyIwGUOuz7bU25Ja9fVOUbgou3Zi/6uv1Vpt8foCQK11+vz/n1+ +T6XAsfxTBPZ/1RjRoOxtn5/vmUrglZyAKjnKQ4NGTWIZBLbPP97LT3lHTM/Y +y4sECp3Wkpyk9j/+T5RIwhUCo0/kFHRS3psrqMe+TqDC2HdaJeVZndse0wUE +ph+XPZlF+WiTybGSOwTKPON9F0WZz3sgP7CMQMPJCzR7yknf9jfJ3yNQcOGp +49/4CZ4UHe94QGBp4dHov/GV4ljqmdcTqGlnk5FJ+arpR48/zwj8HIip3pQZ +PUeOVbwgcNg67ogSZQ3eu03KHQTmlHFYd6j8Ii/YjQ/0UPuXThQMoayv9kXk +4gCByfR93QzKm7bKey77Qp1n0z7Xs1T+Pv9y/1jtKIFnhaKEjCnbHnEsiJmk +zsM48MlXKv9dCk+Of/5J4ImjixRNKYfNTh5rXEnHjKiI/sY+qr4igyQ+idBR +xSa9040y/0hvEZ8UHTed6bP7TNVfQV9DpxGDjoki36p/UPU58Oi8erkuHUvX +PKkcp767ivWW17ca0tG0vOx5AOWDnKMuE0jHN5kzXh1U/UvkBcer2dBxxf8e +ryml+sPmBGb3dR86PvW966HbRtX7n5JdtdvpeD6h683ZVqqfRTP4+ndQz//w +tHuY6j9JIf+sk4qiY8gTq8KTb0ios+k/nppExycPZL3yXlH9XCRO8xCXjqn3 +NgRtpPojT/L0k6wKOh6xsL7l+ozKL75Q94pqOh52vZe+/ykJO6cdEyaf0jHi +wu/A0gYq/7sV+4J76TinL6DxrZZ635zGxK18DEwG+X19VP8ekmTL7eFnYAPP +1GBTBRWfNC737EoG+iw9sKq8nNpPfPa7ZkkG3m7BO3F3qfcNDNMyVmegXl+n +4BQ1D+bUhAY0nBkYlC/aZUTNk5mrMnHa7gxU+fO/9oUbJEytUlJk+jAw9sen +pw/zqHz9zgw13cFA1z/DietzqflXHTDjfoSBjdfFiyezqf5pc18wqYBaP8D0 +0cezVH3v9IbBaQbGa//6mRZDwsX+kMHPPxm4tOqX7HdqXmZu3pswtsDAW3wD +Xo5RJKRqJ72YFViNFx4rW/NHkhD/i+uySoFyzcKYQyh1PslLIljmq3G5lFWp +FzWfWUXFuRcurMZJQdEkPyMS+oiiHLPLq3FuIjk3hUXF+8Lta1M5q7Hvt3FA +uQE17+IKrzjeXo2mqzxHF3Sp+LjmZgnWrEYVmtT6A5okrF2SmZb472qU0sbz +8zTqvH0OHYtWV8SmEMEb2xa4MCli7butXhF5PUPlz93nQncY403oc0Vk1WWu +nb/HhbpnPyH2pSJOplV0BpHU99zBItqtTkVkLzkto13ChfWDK97PjSii/B8i +piyPC+Hc115XRZWw/JTnT/0zXBjZ7OwxtF0JPRKff8r25cJQiu+2PcuUsUC9 +v3OWhwtWX2OshnVVcCAoboW6AQdGA/j33otdg5dixCTqM0up/xOSvCfr12K5 +tRLGXSoGkVfKqZyvqrhsQ17O8zt3QC6pbIuurjp+lCklxBNvQZYaU0g0WAOH +r2psTjleCM0yxhu/n1uHhqKvVzWk5YOBXH2aZqcmqlo7xe6IywNBvrwov/j1 +uOVq71L+W7mgEEdjuSlvwOE4FQHbuKsgoORZ4fh8A2aWFJyx4MmGdWzpshgv +LSyn/WYpzVyAPQMiDdY82jholCcQPpYBX7+nOFtlaeNIar1Uues5sNB8lm2l +oYO/WIp2xjKp8Oi74a8fLTq4gmzofZF3CsLVtXrfBm7EvWaKb1rGE4A9vr3d +TUAXlxgK+FYExoOZopTdyjxdzM52PyrMHwtrjp3eX6+nhzGflxlEyB4E1UBm +rVKvHg5csou8GrcPAh+FnLgXqY+REgEhfZ2RML5rJMYsSh8t+8IztBojYb98 +2M7OaH30fRg6kFEZCacP73acPaSPO4OraqOuRALHIJpgJeqj4PorRJl/JPyu +OF7TkE1d32g6vGgyAtLLrk21NuhjgrLzj19iEVCb2759UpyJkaK8Vxy/hcEH +W7pPtBQTLZWejmr3hgHP3C63XzJMVHy3zk25Pgw2OSyzX0IwMTmK8DVKD4Nn +iwz0pFWZGP2IpmSgHQYv/XMEjI2YKBfHm+S6fyf0KoaWpgUx0f+R/spJwVCY +urXwQ/M+E28mXG++vDMYPm0zzz1VycTp+zVRna7B0L34jOXHaiYeOccRVjAP +hmpfmUsX6ph44I4efzsRDPFSGw3mm5gILc2KvZ1BIJQUerj5HRNjbo8ttzIL +AvXgDp5AXgM0lUoOj1MLhAClIoFsOwOEVaLnB2UD4OBT71DlLQZ4QDBy1dvl +AZAWKPKCdDTAlJCzjS/n/KGm4EDKCxcD3LlGs/O/Ln8QU7ZcNe9ngNrzmQee +Z/rDM+VhMd9oA6yKHa0dE/IH1TU0QjnHAMcTDw0/FPGDSdUMXXLCAO98VosI +3ucN3S/RTPS7Ab7UJfKMPbyhLnzcKWraAN1uF8VpGntDKmkVqfvTAPcOqUmb +r/QGVQOe4io+Q6yU83H1KvQCf6td9AYJQ4y/vfLK2nee0B5ssaKdZYhQOuf1 +ydkDHuT/+nc6yRC9nHOlQmNdQdck6od1siGOJjFWYKgrlP87uiL3jCEeWTir +rOzsCqTCgJ51uiFe8WbfZKi5QnFW3Zlrlw2xLX1rVV+XC+SmJDAtSg0x7ueI +lZmOC5yKWnUuq80QBS8qCHFmncHddDUaKrCw7LW7cEOJE8y38ws2ECy8s9nr +Ym+2E+QGjvdZr2bhTX80501ygk+JlTHua1gYVUifiPN3gj1Nm8sOaLFQZmZO +01jKCU7bH1Z4YM7CVrUAh/JER6hy7fits5uF4br4SXG3A8juOlm5ro6FFYdV +l8d02UPqQtDG5HoW7iwSGBeptgfedHPu5ycsvNqhw3x2zR5GKpbczm1i4ZWA +1IY9QfZQxXMiS6SNhUJTkv3/ztiBe+axmJlhFhZvrfgkIGcHWdUHNj76h42m +IUymcIwNiC8P49q5sDFpi5tfVpgl5JscOTjhxsZ+q4rsYUdL0DqSapLhycYz +szXrbJiWYD/B6ej2Y2Ojhbikz1JLSOycngsIY+Ovle8f3rxuAbN5sZsOxrEx +rUtoY9E7c+g1zGgrLGLjVc/Bke8BZhCyL/+KVSkbTVbVtyjbmcFMaXngKIeN +dhOvb+7WNQMRRvePDRVstI3nn9gkYAY2/PJyD+vYGLP2Us9YmSnUtBdub+ug +3tc93shskSlYCz7QiO5mY4/Gte8t/5lAt0XTjFQfG5Wvk0d2dZrAVNV/Sd4f +2Pik1qv5S5EJaFxfX/K/ETY6tMZ7dLqYQE2vcXTKGBvf1ne8WmxiAtZiTqA5 +wcbNvidPWawzgaCT+95GTVP3P5bJElhCrVeXmC05y0bkz29MmtgE8T8vBlT9 +ZGPbTO+87LtNIKRzW91rno1uRRzlhueb4NququmFBTZum6NrHb27Cf4P386a +og== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07376607572608768}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.07376607572608768}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}], ",", "xx"}], "]"}]], "Output", + CellChangeTimes->{3.993961899444194*^9}, + CellLabel-> + "Out[140]=",ExpressionUUID->"5516aa9e-98e8-45a8-a4f9-661c7f7aa0cf"] +}, Open ]], Cell[CellGroupData[{ @@ -8484,7 +14600,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[{ @@ -8502,8 +14620,8 @@ Cell[BoxData[ SuperscriptBox[ RowBox[{"(", FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -8525,66 +14643,73 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[308]:=",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], + "In[141]:=",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.7628833496502375`*^-157\\\", \ +RowBox[{\\\"552513857212233842570175\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"108\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 141, 77, + 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133920579224*^9, 3.993961899467288*^9}, CellLabel-> "During evaluation of \ -In[308]:=",ExpressionUUID->"100796fd-6fde-3c41-9088-c2d3ae2f8aeb"], +In[141]:=",ExpressionUUID->"34275440-b401-4a88-be3c-8916bdeb60a9"], 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[\\\"3.4960067157969793`*^-160\\\", \ +RowBox[{\\\"192330073695578600598678\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"112\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 141, 78, + 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133920579224*^9, 3.993961899472343*^9}, CellLabel-> "During evaluation of \ -In[308]:=",ExpressionUUID->"c91e75b4-9e2b-1e49-a5d5-453d5f87b5e3"], +In[141]:=",ExpressionUUID->"dfa8222c-ed1d-4e51-bf12-ad419c10aef8"], 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[\\\"6.932995855524121`*^-163\\\", \ +RowBox[{\\\"692388265304082962155241\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"115\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 141, 79, + 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133920579224*^9, 3.993961899477133*^9}, CellLabel-> "During evaluation of \ -In[308]:=",ExpressionUUID->"5d8ad6a4-5b83-df49-8c4d-081081895528"], +In[141]:=",ExpressionUUID->"62cf9332-c30f-4cef-880c-acce05f20dc0"], 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, 141, 80, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133920579224*^9, 3.993961899481778*^9}, CellLabel-> "During evaluation of \ -In[308]:=",ExpressionUUID->"26eed7af-5e0a-e840-9956-caca06166010"], +In[141]:=",ExpressionUUID->"6292ab8c-8c19-4e6c-9499-92175bd48d17"], -Cell[BoxData["9.33220071900515`"], "Output", - CellChangeTimes->{3.9913392124888554`*^9}, +Cell[BoxData["10.113775933929283`"], "Output", + CellChangeTimes->{3.9913392124888554`*^9, 3.9939619289199133`*^9}, CellLabel-> - "Out[308]=",ExpressionUUID->"e4e35b92-e786-3044-bf1d-9c587b1357a2"] + "Out[141]=",ExpressionUUID->"6b409aed-873b-4a0c-a42c-32e6bde14cc1"] }, Open ]], Cell[CellGroupData[{ @@ -8651,68 +14776,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[142]:=",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[\\\"1.727741205452016`*^-204\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 142, 81, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392125258827`*^9, 3.993961928942835*^9}, CellLabel-> "During evaluation of \ -In[309]:=",ExpressionUUID->"6b65fc2b-3e1d-714d-aeb9-43978836a621"], +In[142]:=",ExpressionUUID->"40da0574-9c23-4a28-8c30-5010b7430d05"], 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.041218175877342`*^-209\\\", \ +RowBox[{\\\"143094757247897252281238\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"64\\\", \\\"\[RightSkeleton]\\\"}], \\\"3737600000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 142, 82, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392125258827`*^9, 3.9939619289476233`*^9}, CellLabel-> "During evaluation of \ -In[309]:=",ExpressionUUID->"c4736a05-b0e1-5e49-b581-f3ce4c83fe21"], +In[142]:=",ExpressionUUID->"d912ce60-d480-4aba-99dc-ab83be9a3feb"], 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[\\\"9.452482983855632`*^-214\\\", \ +RowBox[{\\\"302788506336550585827101\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"67\\\", \\\"\[RightSkeleton]\\\"}], \\\"8761600000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 142, 83, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392125258827`*^9, 3.9939619289525833`*^9}, CellLabel-> "During evaluation of \ -In[309]:=",ExpressionUUID->"ae8eb83c-0205-8046-8445-e249896b7ee5"], +In[142]:=",ExpressionUUID->"b19ee22f-1185-433b-b1aa-c20cc079f787"], 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, 142, 84, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392125258827`*^9, 3.9939619289570637`*^9}, CellLabel-> "During evaluation of \ -In[309]:=",ExpressionUUID->"5072d590-62c3-7a47-ae1b-6dd617a0b9dc"], +In[142]:=",ExpressionUUID->"e08bbc03-3c7f-4a0f-9833-6440cd727797"], -Cell[BoxData["0.41157157699018565`"], "Output", - CellChangeTimes->{3.9913392196090164`*^9}, +Cell[BoxData["0.6406099098361553`"], "Output", + CellChangeTimes->{3.9913392196090164`*^9, 3.993961933034596*^9}, CellLabel-> - "Out[309]=",ExpressionUUID->"8dd7e1f9-bbea-d84b-ad0e-8922158aee9e"] + "Out[142]=",ExpressionUUID->"d05cf98b-9364-4a16-83f0-da11585228b9"] }, Open ]], Cell[CellGroupData[{ @@ -8733,8 +14862,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 +14907,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[143]:=",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[\\\"1.727741205452016`*^-204\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 143, 85, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392196440163`*^9, 3.993961933057633*^9}, CellLabel-> "During evaluation of \ -In[310]:=",ExpressionUUID->"7ab877ea-0e4b-f948-97c2-7ebafb7901b1"], +In[143]:=",ExpressionUUID->"4caed00d-527c-4c82-984f-90156ad69874"], 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.041218175877342`*^-209\\\", \ +RowBox[{\\\"143094757247897252281238\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"64\\\", \\\"\[RightSkeleton]\\\"}], \\\"3737600000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 143, 86, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392196440163`*^9, 3.9939619330625353`*^9}, CellLabel-> "During evaluation of \ -In[310]:=",ExpressionUUID->"a87a57c5-24bc-dc4a-888a-b3c0095c10c4"], +In[143]:=",ExpressionUUID->"53aa9690-4499-4d15-832f-d92f9c8b87b9"], 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[\\\"9.452482983855632`*^-214\\\", \ +RowBox[{\\\"302788506336550585827101\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"67\\\", \\\"\[RightSkeleton]\\\"}], \\\"8761600000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 143, 87, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392196440163`*^9, 3.993961933067301*^9}, CellLabel-> "During evaluation of \ -In[310]:=",ExpressionUUID->"d8af7fb1-1d43-664e-ae2d-698eaa818746"], +In[143]:=",ExpressionUUID->"dbff69b0-a9ae-441a-b2e4-9d90bf6d7ad3"], 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, 143, 88, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392196440163`*^9, 3.993961933071685*^9}, CellLabel-> "During evaluation of \ -In[310]:=",ExpressionUUID->"7abec434-52e8-c64c-ac86-90da0b27b8aa"], +In[143]:=",ExpressionUUID->"e4777be6-888d-49d7-9687-5b1069a4b834"], -Cell[BoxData["3.215201591157595`"], "Output", - CellChangeTimes->{3.9913392268711624`*^9}, +Cell[BoxData["29.017205540136594`"], "Output", + CellChangeTimes->{3.9913392268711624`*^9, 3.99396193703456*^9}, CellLabel-> - "Out[310]=",ExpressionUUID->"164a4c34-f121-a445-b434-e34aa59666ab"] + "Out[143]=",ExpressionUUID->"846e2f4c-c737-4991-9a8d-b3d37b220cb8"] }, Open ]], Cell[CellGroupData[{ @@ -8861,8 +14993,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 +15038,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[144]:=",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[\\\"1.727741205452016`*^-204\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 144, 89, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339226907137*^9, 3.9939619370602617`*^9}, CellLabel-> "During evaluation of \ -In[311]:=",ExpressionUUID->"92295db4-13f0-284e-8173-df7f8dd20dcf"], +In[144]:=",ExpressionUUID->"204a708d-72bd-4b4d-b7e5-9fa3322cb2dd"], 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.041218175877342`*^-209\\\", \ +RowBox[{\\\"143094757247897252281238\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"64\\\", \\\"\[RightSkeleton]\\\"}], \\\"3737600000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 144, 90, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339226907137*^9, 3.993961937066802*^9}, CellLabel-> "During evaluation of \ -In[311]:=",ExpressionUUID->"c6280e41-1347-0f47-81a9-bcd3687b7b73"], +In[144]:=",ExpressionUUID->"73f7bc51-7163-4e4b-82f8-5a64a56b258e"], 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[\\\"9.452482983855632`*^-214\\\", \ +RowBox[{\\\"302788506336550585827101\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"67\\\", \\\"\[RightSkeleton]\\\"}], \\\"8761600000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 144, 91, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339226907137*^9, 3.993961937072041*^9}, CellLabel-> "During evaluation of \ -In[311]:=",ExpressionUUID->"2aa0f4b1-01ca-4644-884e-b759d4a75412"], +In[144]:=",ExpressionUUID->"3ee05fe1-3fa5-4b55-86a4-846689f0dfae"], 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, 144, 92, 31385712179489109242, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339226907137*^9, 3.993961937076269*^9}, CellLabel-> "During evaluation of \ -In[311]:=",ExpressionUUID->"ab3c3bff-179e-9f4e-b56a-87d1b4f6fc04"], +In[144]:=",ExpressionUUID->"46dfdb9d-5787-4dfe-beab-92f61009926c"], -Cell[BoxData["16.94395627212904`"], "Output", - CellChangeTimes->{3.9913392304284153`*^9}, +Cell[BoxData["4.625409676315273`"], "Output", + CellChangeTimes->{3.9913392304284153`*^9, 3.993961939537724*^9}, CellLabel-> - "Out[311]=",ExpressionUUID->"f5b8154f-e61e-6a4e-b068-b6c1916773ef"] + "Out[144]=",ExpressionUUID->"bc8a1f9b-d563-4660-bdf9-45846431966b"] }, Open ]], Cell[CellGroupData[{ @@ -8977,20 +15112,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[145]:=",ExpressionUUID->"7457b456-6d32-5b44-9679-346c5f5ac532"], + +Cell[BoxData["0.055295623234562434`"], "Output", + CellChangeTimes->{3.9913392304624157`*^9, 3.993961939562264*^9}, + CellLabel-> + "Out[145]=",ExpressionUUID->"172bd822-9627-43a6-b225-f6cafc99b277"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input", + CellLabel-> + "In[146]:=",ExpressionUUID->"7f3f4550-9289-4fc0-ae86-f64e81aae282"] }, -WindowSize->{718.5, 729.75}, -WindowMargins->{{1.5, Automatic}, {Automatic, 8.25}}, +Evaluator->"kernel 1", +WindowSize->{714, 435}, +WindowMargins->{{Automatic, 3}, {444, 15}}, CellContext->Notebook, -FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +Magnification:>1.7 Inherited, +FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", StyleDefinitions->"Default.nb", ExpressionUUID->"e3389233-59d2-de40-a8d1-08f2aab11400" ] @@ -9005,361 +15147,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, 298, 5, 49, "Input",ExpressionUUID->"f80fe90e-0725-49a1-8f07-ca5e6c08780a"], +Cell[877, 29, 244, 4, 56, "Output",ExpressionUUID->"bfc290e2-3564-41fc-b47a-385a672f7af3"] }, 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[1158, 38, 248, 4, 49, "Input",ExpressionUUID->"a41ad132-252c-47fd-879a-c63ba5d37e2e"], +Cell[1409, 44, 253, 4, 56, "Output",ExpressionUUID->"290b4370-eabf-47d0-93e5-e897a15bd659"] }, 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[1699, 53, 223, 4, 49, "Input",ExpressionUUID->"44c7ce88-55e1-4308-8a5c-a82f0b55cee3"], +Cell[1925, 59, 254, 4, 56, "Output",ExpressionUUID->"0dfb72fe-9fd9-487b-b4ca-f20c05ee3718"] }, 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[2216, 68, 175, 3, 49, "Input",ExpressionUUID->"fe02f280-0d44-4045-bdd2-eb9a644bba31"], +Cell[2394, 73, 251, 4, 56, "Output",ExpressionUUID->"43636c8b-3f07-4fbe-9564-a5d9a7d0f89b"] }, 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[2682, 82, 257, 7, 72, "Input",ExpressionUUID->"24b41abd-6883-4fad-9ec9-f4bec500aa75"], +Cell[2942, 91, 251, 4, 56, "Output",ExpressionUUID->"f9274df7-1d0e-40d6-8877-eb41e06c77d9"] }, 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[3230, 100, 131, 2, 49, "Input",ExpressionUUID->"3e7872e5-ed5a-408b-9ead-36c1462afa33"], +Cell[3364, 104, 251, 4, 56, "Output",ExpressionUUID->"cda89b9f-63d0-49fc-8a12-19990b1abb66"] }, 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[3652, 113, 276, 6, 49, "Input",ExpressionUUID->"f57a95ad-b66d-4d0a-b038-bc03eacc2f4b"], +Cell[3931, 121, 268, 4, 56, "Output",ExpressionUUID->"80f3df00-915c-47d1-af51-7c6932e62316"] }, 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[4236, 130, 257, 7, 49, "Input",ExpressionUUID->"83920ca4-82a9-40ff-b208-cdeb04e2c637"], +Cell[4496, 139, 265, 4, 56, "Output",ExpressionUUID->"8ff0fc76-e26d-4a92-a352-b6728769a87b"] }, 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[4798, 148, 229, 4, 49, "Input",ExpressionUUID->"295b1da7-5ef8-4764-8736-241a2357f048"], +Cell[5030, 154, 229, 3, 56, "Output",ExpressionUUID->"3bbae92c-79e1-45b5-ab88-c607214dfb40"] }, 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[5296, 162, 225, 4, 49, "Input",ExpressionUUID->"18318d2d-8337-4c13-9fbe-01b8df59f07c"], +Cell[5524, 168, 228, 3, 56, "Output",ExpressionUUID->"9875e4ad-bacd-49bd-a086-c8470c96f423"] }, 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[5789, 176, 129, 2, 49, "Input",ExpressionUUID->"bf951275-92c0-4617-9aca-14c629bd6942"], +Cell[5921, 180, 250, 4, 56, "Output",ExpressionUUID->"6751ce0b-5f4b-4fb6-b46c-8c5b8a2eaa9c"] }, 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[6208, 189, 129, 2, 49, "Input",ExpressionUUID->"3aa5259b-be4e-465d-9abc-54ffe123a8a7"], +Cell[6340, 193, 252, 4, 56, "Output",ExpressionUUID->"f3927dd8-14bd-4ae0-9a3c-96c369199c39"] }, 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[6629, 202, 557, 19, 132, "Input",ExpressionUUID->"30419540-53a0-47f6-9c9d-b1fcbd00eadd"], +Cell[7189, 223, 264, 4, 56, "Output",ExpressionUUID->"19f41e0b-a0aa-48fc-be02-c7847a1c3eaf"] }, 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[7490, 232, 557, 19, 132, "Input",ExpressionUUID->"18d71e6d-6adf-40c8-bf1f-1ab2f77f5d50"], +Cell[8050, 253, 267, 4, 56, "Output",ExpressionUUID->"c60676ed-62cd-41d8-9eb0-bbfca55e1f82"] }, 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[8354, 262, 1588, 50, 526, "Input",ExpressionUUID->"cdb14653-0745-4c1c-8ed5-2ac8692a20f6"], +Cell[9945, 314, 265, 4, 56, "Output",ExpressionUUID->"4bfd6e7b-5e05-4159-a6ce-037dfef52125"] }, 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[10247, 323, 1422, 46, 491, "Input",ExpressionUUID->"6ec06dfb-e057-4156-b15d-9055e09971cc"], +Cell[11672, 371, 283, 5, 56, "Output",ExpressionUUID->"0868f9b9-8676-49ff-aa4f-e5768d16ddaa"] }, 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[11992, 381, 1422, 46, 491, "Input",ExpressionUUID->"e531e3e0-3b2f-472a-a320-20686b97a066"], +Cell[13417, 429, 286, 5, 56, "Output",ExpressionUUID->"29eaf759-71b7-4c59-b844-2a01252eba46"] }, 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[13740, 439, 1588, 50, 526, "Input",ExpressionUUID->"c448e1c7-6218-4667-9677-040679403b78"], +Cell[15331, 491, 263, 4, 56, "Output",ExpressionUUID->"24543871-78be-4706-b8fb-598cf3785c75"] }, 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[15631, 500, 131, 2, 49, "Input",ExpressionUUID->"ec641958-41df-43ea-9e5b-98a357a742bd"], +Cell[15765, 504, 247, 4, 56, "Output",ExpressionUUID->"42d86de6-c778-47d4-9a4d-17b815168733"] }, 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[16049, 513, 133, 2, 49, "Input",ExpressionUUID->"6794bfc2-49f8-4baa-b4ea-e0e9790c4002"], +Cell[16185, 517, 253, 4, 56, "Output",ExpressionUUID->"30c7860f-d7a0-4743-9518-6dab6fd5b05e"] }, 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[16475, 526, 134, 2, 49, "Input",ExpressionUUID->"82e701c2-3740-4b4d-8797-5b7f810a07a8"], +Cell[16612, 530, 255, 4, 56, "Output",ExpressionUUID->"58039968-3b95-4273-8db8-aeb1f5f2689b"] }, 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[16904, 539, 219, 4, 49, "Input",ExpressionUUID->"6f151b31-4e90-4712-93f2-d49358ac9e08"], +Cell[17126, 545, 263, 5, 56, "Output",ExpressionUUID->"9d830ec4-4df9-4558-b3f2-0b04d9f3f177"] }, 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[17426, 555, 134, 2, 49, "Input",ExpressionUUID->"d5ab61b3-5f45-4266-89ff-fae03d7c7bde"], +Cell[17563, 559, 256, 4, 56, "Output",ExpressionUUID->"fcfdae9c-74f5-493a-929e-7604afdeb149"] }, 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[17856, 568, 324, 5, 49, "Input",ExpressionUUID->"e5e306cc-6998-4f09-b059-48a6831ca88b"], +Cell[18183, 575, 251, 4, 56, "Output",ExpressionUUID->"cf4e2c4d-831a-4a91-8b2a-7cc690ab2565"] }, 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[18471, 584, 296, 5, 49, "Input",ExpressionUUID->"5cab896a-8597-45d4-aec0-55ca037bb26b"], +Cell[18770, 591, 249, 4, 56, "Output",ExpressionUUID->"8959fa1d-372a-424a-97c2-c004fa79324d"] }, 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[19056, 600, 219, 4, 49, "Input",ExpressionUUID->"43c2ca0f-88c6-465e-94f9-15945a713dda"], +Cell[19278, 606, 247, 4, 56, "Output",ExpressionUUID->"fdcff431-743d-4911-b4d3-404840d30410"] }, 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[19562, 615, 350, 10, 72, "Input",ExpressionUUID->"84289c64-75a1-430c-8c0f-0d200b186fb0"], +Cell[19915, 627, 255, 4, 56, "Output",ExpressionUUID->"5a870a27-25ff-4d3a-8325-e2b45c5ed938"] }, 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[20207, 636, 350, 10, 72, "Input",ExpressionUUID->"b1cb996c-b767-4b2c-8359-1c43f9c1d843"], +Cell[20560, 648, 285, 5, 56, "Output",ExpressionUUID->"9d88ead5-a5f7-42cf-b014-9bbf803f0687"] }, 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[20882, 658, 994, 26, 402, "Input",ExpressionUUID->"25d1fbfa-8c9d-487e-ae9f-14e21f7b7351"], +Cell[21879, 686, 267, 4, 56, "Output",ExpressionUUID->"f33d4f92-c9f0-48f9-a3aa-a9b6bc839e91"] }, 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[22183, 695, 199, 3, 49, "Input",ExpressionUUID->"a7a33255-0a34-4a0a-a1b4-2490eb634506"], +Cell[22385, 700, 248, 4, 56, "Output",ExpressionUUID->"99deb191-637f-430e-8f96-378c4af0daf5"] }, 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[22670, 709, 331, 5, 49, "Input",ExpressionUUID->"7e4e74eb-dddc-4cc4-b305-43e284cade6f"], +Cell[23004, 716, 228, 3, 56, "Output",ExpressionUUID->"5fc6afc1-57f3-4ca1-bd7d-a1cc4f48e755"] +}, Open ]], +Cell[23247, 722, 173, 2, 35, "Input",ExpressionUUID->"e25e2c88-7ba1-4ae3-bcd7-9d5822079a14"], +Cell[CellGroupData[{ +Cell[23445, 728, 327, 5, 49, "Input",ExpressionUUID->"6cd216fb-033d-41d9-97d2-6ce713a2c79b"], +Cell[23775, 735, 228, 3, 56, "Output",ExpressionUUID->"968bec87-2efa-444c-9527-b63acc278441"] +}, Open ]], +Cell[24018, 741, 173, 2, 35, "Input",ExpressionUUID->"065d3f12-8fda-4636-a39f-0382f31ea6ea"], +Cell[CellGroupData[{ +Cell[24216, 747, 330, 5, 49, "Input",ExpressionUUID->"0384baff-1fd4-41b1-8a84-56e59a019300"], +Cell[24549, 754, 225, 3, 56, "Output",ExpressionUUID->"7df71f5e-9927-4f02-af3d-ea700dd180b4"] +}, Open ]], +Cell[24789, 760, 173, 2, 35, "Input",ExpressionUUID->"e1b885c2-f694-4dc1-93dc-37636a8f3a8b"], +Cell[CellGroupData[{ +Cell[24987, 766, 352, 5, 49, "Input",ExpressionUUID->"621605e2-021c-4687-86da-d471c130672f"], +Cell[25342, 773, 229, 3, 56, "Output",ExpressionUUID->"4479f4cb-10dd-4cca-bfb6-b3b95733e9e6"] +}, Open ]], +Cell[25586, 779, 171, 2, 35, "Input",ExpressionUUID->"0b7d36af-851a-45f7-9942-d6d87b167971"], +Cell[CellGroupData[{ +Cell[25782, 785, 299, 5, 49, "Input",ExpressionUUID->"bc4c2474-07e6-4ffe-b341-619093dad03a"], +Cell[26084, 792, 226, 3, 56, "Output",ExpressionUUID->"ecbabb80-cf91-4a4e-8bc1-69a84760f531"] +}, Open ]], +Cell[26325, 798, 171, 2, 35, "Input",ExpressionUUID->"6779ce40-6256-403a-a913-d91001ffc396"], +Cell[CellGroupData[{ +Cell[26521, 804, 305, 5, 49, "Input",ExpressionUUID->"61231122-df65-46c4-acee-c29963a2d5a2"], +Cell[26829, 811, 227, 3, 56, "Output",ExpressionUUID->"76b20ce7-60b6-4589-a494-9008888dfb1b"] +}, Open ]], +Cell[27071, 817, 173, 2, 35, "Input",ExpressionUUID->"58084802-005c-4de6-8faf-e33ac52754fc"], +Cell[CellGroupData[{ +Cell[27269, 823, 307, 5, 49, "Input",ExpressionUUID->"18a2e58c-992b-41f9-b0f5-f70de96e5c04"], +Cell[27579, 830, 225, 3, 56, "Output",ExpressionUUID->"48623f6e-b13a-4d3e-b462-625384dcc53f"] +}, Open ]], +Cell[27819, 836, 172, 2, 35, "Input",ExpressionUUID->"5b2449d0-881a-42a4-8221-aeffb64a801a"], +Cell[CellGroupData[{ +Cell[28016, 842, 276, 4, 49, "Input",ExpressionUUID->"e4bb453d-2cad-45a3-b354-0b505ce137f3"], +Cell[28295, 848, 228, 3, 56, "Output",ExpressionUUID->"fa52ab0e-fb73-442e-bd82-286d668cc02d"] +}, Open ]], +Cell[28538, 854, 175, 2, 35, "Input",ExpressionUUID->"5c974215-3336-4698-9555-c4c3ba92fdf8"], +Cell[CellGroupData[{ +Cell[28738, 860, 19809, 485, 4980, "Input",ExpressionUUID->"5cf95c62-f656-4db9-a300-857d9ee6a5b9"], +Cell[48550, 1347, 265, 4, 56, "Output",ExpressionUUID->"5f3c636a-3c10-4651-9db8-6082db523914"] }, 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[48852, 1356, 19748, 489, 5018, "Input",ExpressionUUID->"0b2948cc-37b1-426f-ae56-3eb5ed7c1f61"], +Cell[68603, 1847, 267, 4, 56, "Output",ExpressionUUID->"0e7cd5be-de2c-4992-877f-0f92dfa1b033"] }, 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[68907, 1856, 19748, 483, 5026, "Input",ExpressionUUID->"1295939a-6eea-4e29-8af4-742def7aa943"], +Cell[88658, 2341, 285, 5, 56, "Output",ExpressionUUID->"9c5f99f4-926a-44b1-abe8-612e162e7081"] }, 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[88980, 2351, 22534, 553, 5749, "Input",ExpressionUUID->"b0e948f1-3e0a-4ca1-917f-0df528c0e848"], +Cell[111517, 2906, 286, 5, 56, "Output",ExpressionUUID->"23612c44-6a9b-4ad7-bd78-4b8f6a15d653"] }, 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[111840, 2916, 22535, 553, 5761, "Input",ExpressionUUID->"b2e06db3-3d3d-4834-8308-ac0bae78b1b9"], +Cell[134378, 3471, 286, 5, 56, "Output",ExpressionUUID->"27f61649-3120-414b-b7c2-78f0d76ddd64"] }, 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[134701, 3481, 25491, 626, 6484, "Input",ExpressionUUID->"bd46b7fb-86a1-48df-a125-8e1792b49a8a"], +Cell[160195, 4109, 283, 5, 56, "Output",ExpressionUUID->"a854b584-2ae5-4fe6-90f7-34ece843027f"] }, 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[160515, 4119, 130, 2, 49, "Input",ExpressionUUID->"ba6ff89f-354d-41e8-a536-6703faa435d7"], +Cell[160648, 4123, 247, 4, 56, "Output",ExpressionUUID->"d7bc2a31-e884-4cae-8d28-71da6d226b0c"] }, 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[160932, 4132, 130, 2, 49, "Input",ExpressionUUID->"98c5a542-94c0-4f70-80b5-496376d008cd"], +Cell[161065, 4136, 250, 4, 56, "Output",ExpressionUUID->"eeaac736-6b41-4df0-acd8-3abeb9a44ae7"] }, 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[161352, 4145, 1144, 39, 551, "Input",ExpressionUUID->"1ae5ee39-8c68-4d04-8eec-ca4e8028c968"], +Cell[162499, 4186, 266, 4, 56, "Output",ExpressionUUID->"99eea30a-cd73-4ef0-81f4-e22a2e424db4"] }, 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[162802, 4195, 1041, 35, 549, "Input",ExpressionUUID->"356564ee-f7fb-4991-86f3-b0680414151d"], +Cell[163846, 4232, 283, 5, 56, "Output",ExpressionUUID->"9c80118f-f55a-4a7c-883e-7bfb1ade71e7"] }, 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[164166, 4242, 1144, 39, 551, "Input",ExpressionUUID->"47533ce2-f3e4-492f-b83d-c3c2af8d9756"], +Cell[165313, 4283, 265, 4, 56, "Output",ExpressionUUID->"78d09834-1179-4d6a-a0d0-4bdebdd01a97"] }, 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[165615, 4292, 108, 1, 49, "Input",ExpressionUUID->"b31e69eb-1086-4c78-99d9-97de9fbc91c1"], +Cell[165726, 4295, 268, 4, 56, "Output",ExpressionUUID->"0b0a30a5-1404-43f5-af1e-f56979d0ebd0"] }, 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[166031, 4304, 108, 1, 49, "Input",ExpressionUUID->"b7146a2f-115a-4b80-8fec-cfa0d22adb10"], +Cell[166142, 4307, 287, 5, 56, "Output",ExpressionUUID->"e845a49f-5254-45bd-b2d4-3d2c1e1c2ce9"] }, 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[166466, 4317, 108, 1, 49, "Input",ExpressionUUID->"4c03d08b-391f-4ec7-be75-4df5692c1809"], +Cell[166577, 4320, 285, 5, 56, "Output",ExpressionUUID->"9dd93be8-2aca-48fd-8dcd-0a13fc220376"] }, 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[166899, 4330, 108, 1, 49, "Input",ExpressionUUID->"d6090912-d6dc-491d-8556-ba12a689d8bd"], +Cell[167010, 4333, 265, 4, 56, "Output",ExpressionUUID->"b96c68f9-7a62-42a3-91d7-470e244bb56d"] }, 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[167312, 4342, 107, 1, 49, "Input",ExpressionUUID->"3cbca8d8-900c-44ac-a0ef-5491b57d8b5e"], +Cell[167422, 4345, 266, 4, 56, "Output",ExpressionUUID->"ad9e39ce-9008-4a43-8b02-fba00855ac99"] }, 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[167725, 4354, 107, 1, 49, "Input",ExpressionUUID->"f664e350-dfe8-4ca7-aa00-3ad5ca259132"], +Cell[167835, 4357, 269, 4, 56, "Output",ExpressionUUID->"d5207ad2-3608-47a0-9790-3cf6fa42436e"] }, 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[168141, 4366, 497, 16, 161, "Input",ExpressionUUID->"3da7dd47-8b73-4df0-afc8-b20811159bff"], +Cell[168641, 4384, 282, 5, 56, "Output",ExpressionUUID->"9b573b9a-9a18-4cb2-9d2e-3c9473147007"] }, 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[168960, 4394, 497, 16, 161, "Input",ExpressionUUID->"c5a82b78-2ae6-45a3-8f18-297d88e8548d"], +Cell[169460, 4412, 281, 5, 56, "Output",ExpressionUUID->"67b3fa61-c7cc-4cb4-b564-4fd08e33ce33"] }, 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[169778, 4422, 1788, 60, 807, "Input",ExpressionUUID->"d6d2cc12-82db-4128-af87-60006ce43e52"], +Cell[171569, 4484, 269, 4, 56, "Output",ExpressionUUID->"50796f27-98ae-4aa3-b923-532be17a55b5"] }, 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[171875, 4493, 1101, 36, 586, "Input",ExpressionUUID->"77ec19e8-5453-4bca-9ec4-23854117c261"], +Cell[172979, 4531, 286, 5, 56, "Output",ExpressionUUID->"8b2bb5a2-ed48-4718-b299-7c7d41818ea1"] }, 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[173302, 4541, 1818, 61, 807, "Input",ExpressionUUID->"90f694db-ef61-46d5-9179-ede5997b843b"], +Cell[175123, 4604, 266, 4, 56, "Output",ExpressionUUID->"a9d4994a-7c41-4dcb-b66a-3acd3c515d0c"] }, 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[175426, 4613, 1631, 53, 400, "Input",ExpressionUUID->"36fcba05-165b-4140-b3b6-b68e7001ed6a"], +Cell[177060, 4668, 265, 4, 56, "Output",ExpressionUUID->"7e34cc37-8cb6-4d76-ac96-cb90419d02ef"] }, 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[177362, 4677, 1631, 53, 400, "Input",ExpressionUUID->"91dde1ed-602e-4b6a-8e53-eb68e7b0f696"], +Cell[178996, 4732, 265, 4, 56, "Output",ExpressionUUID->"e52deddc-add2-456d-943d-816a6a12833c"] }, 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[179298, 4741, 203, 3, 49, "Input",ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], +Cell[179504, 4746, 161, 2, 56, "Output",ExpressionUUID->"c141bdd3-1dc6-432d-b207-262cc98f2b54"] +}, Open ]], +Cell[179680, 4751, 173, 2, 49, "Input",ExpressionUUID->"93cad80c-1de7-2e4b-9b8c-14a272e65d1f"], +Cell[CellGroupData[{ +Cell[179878, 4757, 208, 3, 49, "Input",ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], +Cell[180089, 4762, 163, 2, 56, "Output",ExpressionUUID->"48f558f8-716d-477e-a1b7-aad3a4f47cec"] +}, Open ]], +Cell[180267, 4767, 171, 2, 49, "Input",ExpressionUUID->"15fe72e6-19f0-9540-b29f-3056e2e0b957"], +Cell[CellGroupData[{ +Cell[180463, 4773, 1297, 42, 230, "Input",ExpressionUUID->"5e48fe0c-b3e8-2b40-82cb-716b23b2f326"], +Cell[181763, 4817, 196, 2, 56, "Output",ExpressionUUID->"e2ff6d22-ad39-4b67-8561-76e7634de0a3"] }, 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[181996, 4824, 929, 30, 231, "Input",ExpressionUUID->"e4db2648-4e1a-2c46-83ab-fcd932c3b663"], +Cell[182928, 4856, 195, 2, 56, "Output",ExpressionUUID->"9c790a0b-46cc-4e59-978c-58afdffc8e36"] }, 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[183160, 4863, 904, 29, 231, "Input",ExpressionUUID->"e4649c3d-e19e-ca42-95a0-23b66397f1fd"], +Cell[184067, 4894, 197, 2, 56, "Output",ExpressionUUID->"9500b497-9ad6-4b7f-82d1-30437e735e13"] }, 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[184301, 4901, 554, 18, 87, "Input",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], +Cell[184858, 4921, 190, 2, 56, "Output",ExpressionUUID->"cb274baf-adcb-4d82-b151-13690aa70046"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185085, 4928, 619, 20, 87, "Input",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], +Cell[185707, 4950, 191, 2, 56, "Output",ExpressionUUID->"6a89d836-4200-4b60-bb3d-4d355003c33d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185935, 4957, 166, 4, 94, "Input",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], +Cell[186104, 4963, 190, 2, 56, "Output",ExpressionUUID->"a4b1295b-b452-41c1-a284-291bb5930899"] +}, Open ]], +Cell[CellGroupData[{ +Cell[186331, 4970, 166, 4, 92, "Input",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], +Cell[186500, 4976, 187, 2, 56, "Output",ExpressionUUID->"d0847bc9-ffc5-4217-bbaf-68968c1ebd15"] +}, Open ]], +Cell[CellGroupData[{ +Cell[186724, 4983, 177, 4, 73, "Input",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], +Cell[186904, 4989, 188, 2, 56, "Output",ExpressionUUID->"74fb7724-c772-4b41-892c-70a2a99e001b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187129, 4996, 177, 4, 73, "Input",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], +Cell[187309, 5002, 191, 2, 56, "Output",ExpressionUUID->"a29f52fb-ae87-4f69-af03-931df465528e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187537, 5009, 6051, 184, 1592, "Input",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], +Cell[193591, 5195, 193, 2, 56, "Output",ExpressionUUID->"0ebb7e23-24a1-4394-a462-7a8c6980bec8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193821, 5202, 364, 8, 70, "Input",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], +Cell[194188, 5212, 190, 2, 56, "Output",ExpressionUUID->"2d01b697-c16e-464a-8537-82bdd345808b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194415, 5219, 6118, 186, 1595, "Input",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], +Cell[200536, 5407, 193, 2, 56, "Output",ExpressionUUID->"c8aefaa4-dcea-42c4-ab54-50671fa97349"] +}, Open ]], +Cell[CellGroupData[{ +Cell[200766, 5414, 364, 8, 70, "Input",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], +Cell[201133, 5424, 191, 2, 56, "Output",ExpressionUUID->"6357b9ca-5a17-419b-aa85-eb594b551e99"] +}, Open ]], +Cell[CellGroupData[{ +Cell[201361, 5431, 2659, 87, 766, "Input",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], +Cell[204023, 5520, 194, 2, 56, "Output",ExpressionUUID->"bacaa03d-770c-4adb-9884-29f4f4852cae"] +}, Open ]], +Cell[CellGroupData[{ +Cell[204254, 5527, 2599, 84, 695, "Input",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], +Cell[206856, 5613, 191, 2, 56, "Output",ExpressionUUID->"4d10eeb4-3271-45c5-a39e-12c4e8cf2bc0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[207084, 5620, 3708, 117, 1015, "Input",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], +Cell[210795, 5739, 192, 2, 56, "Output",ExpressionUUID->"0cbfdd98-5fec-4094-a5cd-2a4decf9d465"] +}, Open ]], +Cell[211002, 5744, 160, 3, 49, "Input",ExpressionUUID->"ba4a3eff-9e3b-5e47-a896-3a959bbbf44d"], +Cell[CellGroupData[{ +Cell[211187, 5751, 2097, 59, 495, "Input",ExpressionUUID->"738a48f3-b38c-f441-aec4-53babaa73a14"], +Cell[213287, 5812, 630, 13, 162, "Message",ExpressionUUID->"085c3212-2bce-4058-adc9-3071550c9bd2"], +Cell[213920, 5827, 633, 13, 162, "Message",ExpressionUUID->"eaedf277-c6a5-4238-bd72-08eba092ac23"], +Cell[214556, 5842, 630, 13, 162, "Message",ExpressionUUID->"74b4013f-ea4c-481e-ba46-1d6faf2d82ec"], +Cell[215189, 5857, 492, 11, 73, "Message",ExpressionUUID->"916e15af-6b48-4be5-8349-ce0f892dc1bf"], +Cell[215684, 5870, 190, 2, 56, "Output",ExpressionUUID->"3fd2f6dd-0a43-4550-ac5e-2df5df30cf2d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[215911, 5877, 2099, 59, 495, "Input",ExpressionUUID->"86c33485-ed26-8f49-b3d0-7d040d3b48f0"], +Cell[218013, 5938, 629, 13, 162, "Message",ExpressionUUID->"1c36c76e-0334-47bb-97b0-f192d2fb3a94"], +Cell[218645, 5953, 630, 13, 162, "Message",ExpressionUUID->"99df1c8a-c3b7-48a7-91d8-997ac996ebaf"], +Cell[219278, 5968, 630, 13, 162, "Message",ExpressionUUID->"91835e72-a82c-4448-b1ca-a1fa6ebbf047"], +Cell[219911, 5983, 494, 11, 73, "Message",ExpressionUUID->"6ba8a9c4-c282-49fd-924b-3f6047080196"], +Cell[220408, 5996, 188, 2, 56, "Output",ExpressionUUID->"562b5da8-b837-4263-9cba-66112b8756b1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[220633, 6003, 2049, 54, 376, "Input",ExpressionUUID->"f373fe4f-940c-0842-9236-63ec36d318ad"], +Cell[222685, 6059, 20318, 380, 330, "Output",ExpressionUUID->"ca46c599-7d95-41f4-852a-54151bbd4234"] +}, Open ]], +Cell[CellGroupData[{ +Cell[243040, 6444, 2138, 60, 551, "Input",ExpressionUUID->"24fa5db0-1063-354a-bd60-c117a27ff3e1"], +Cell[245181, 6506, 535, 12, 134, "Message",ExpressionUUID->"99e92968-e57a-4096-921c-b3aa721680b5"], +Cell[245719, 6520, 538, 12, 134, "Message",ExpressionUUID->"dcba6de4-2e62-4e91-a032-0124c625d2d2"], +Cell[246260, 6534, 541, 12, 162, "Message",ExpressionUUID->"c5be8337-13a4-432c-8a90-33ce4a73b6c6"], +Cell[246804, 6548, 491, 11, 73, "Message",ExpressionUUID->"e2d287df-ed52-4f07-8eb5-a84e1f5d9ae1"], +Cell[247298, 6561, 25052, 458, 323, "Output",ExpressionUUID->"ff965812-28eb-4c16-bd12-8667595ef996"] +}, Open ]], +Cell[272365, 7022, 2576, 72, 220, "Input",ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], +Cell[CellGroupData[{ +Cell[274966, 7098, 228, 4, 49, "Input",ExpressionUUID->"6d3700e1-f504-214a-a332-f16397f0b922"], +Cell[275197, 7104, 3986, 64, 152, "Message",ExpressionUUID->"1cfdc37b-8f1c-4cd8-bdc4-1d97d7d666b3"], +Cell[279186, 7170, 25399, 462, 115, "Output",ExpressionUUID->"2f288751-2b8a-4f34-82d5-6056eb34a0a0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[304622, 7637, 236, 6, 81, "Input",ExpressionUUID->"9051a5e3-bb9f-d941-bcca-598d0b6835be"], +Cell[304861, 7645, 188, 2, 56, "Output",ExpressionUUID->"0fbbe00d-0a13-46b8-b8e7-5323f5ae9a8b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[305086, 7652, 1861, 53, 585, "Input",ExpressionUUID->"65a995ff-ff3d-634e-9bad-4a8a16073236"], +Cell[306950, 7707, 632, 14, 162, "Message",ExpressionUUID->"22cac1a8-2df0-4657-b8f3-0bf6a189a560"], +Cell[307585, 7723, 633, 14, 162, "Message",ExpressionUUID->"4174f30e-7ba5-42ea-ba2e-f442f7e1f6e8"], +Cell[308221, 7739, 635, 14, 162, "Message",ExpressionUUID->"5caf66e6-f5c9-455c-91cc-cb972d0e0fc6"], +Cell[308859, 7755, 490, 11, 73, "Message",ExpressionUUID->"5229b1d2-78e4-4edb-bf4f-a96d225627de"], +Cell[309352, 7768, 25569, 467, 323, "Output",ExpressionUUID->"1184e9fe-806e-422d-bab9-d42f35cf2b7f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[334958, 8240, 1644, 49, 361, "Input",ExpressionUUID->"86381d88-1537-a242-9cff-0b432b61d63d"], +Cell[336605, 8291, 636, 14, 162, "Message",ExpressionUUID->"69ccd258-5228-4e7c-8fb7-a2ed51ad379e"], +Cell[337244, 8307, 635, 14, 162, "Message",ExpressionUUID->"a2c662dc-0996-4c11-853f-86d42d9dbe8d"], +Cell[337882, 8323, 634, 14, 162, "Message",ExpressionUUID->"47ba3fce-29c0-4b77-92ca-878fcf4fb4fc"], +Cell[338519, 8339, 493, 11, 73, "Message",ExpressionUUID->"382e98c3-7c48-4663-9d5f-020e42cf703c"], +Cell[339015, 8352, 189, 2, 56, "Output",ExpressionUUID->"906f4f81-a20b-4887-a572-4564f0056f72"] +}, Open ]], +Cell[CellGroupData[{ +Cell[339241, 8359, 2270, 64, 597, "Input",ExpressionUUID->"6f0ad284-4db3-da47-b8dc-45830eedfe9c"], +Cell[341514, 8425, 633, 13, 162, "Message",ExpressionUUID->"08ff967b-eb43-4af2-b87d-e66b6878020a"], +Cell[342150, 8440, 632, 13, 162, "Message",ExpressionUUID->"0e129904-62ec-46c7-81bd-dd1b5691b485"], +Cell[342785, 8455, 631, 13, 162, "Message",ExpressionUUID->"564d05f7-9790-4771-9628-2a1d36360769"], +Cell[343419, 8470, 495, 11, 73, "Message",ExpressionUUID->"6cc3d8c1-b4e6-44b8-af02-294a3f31bf37"], +Cell[343917, 8483, 193, 3, 56, "Output",ExpressionUUID->"3f9f9a18-90b5-43d1-bb70-dd161f289606"] +}, Open ]], +Cell[CellGroupData[{ +Cell[344147, 8491, 2233, 63, 597, "Input",ExpressionUUID->"b2dda819-6f34-5c49-bc62-303d815946e5"], +Cell[346383, 8556, 633, 13, 162, "Message",ExpressionUUID->"ad6660ea-e9fc-4ce2-a5c7-7ffa1c65d994"], +Cell[347019, 8571, 632, 13, 162, "Message",ExpressionUUID->"10486da4-70c8-4abe-b1c0-fa198cc72eff"], +Cell[347654, 8586, 631, 13, 162, "Message",ExpressionUUID->"6c6e8596-1e62-4db4-8400-96a01c16ca75"], +Cell[348288, 8601, 493, 11, 73, "Message",ExpressionUUID->"aeee008b-b3bc-4679-bdc6-c103afca39e5"], +Cell[348784, 8614, 192, 3, 56, "Output",ExpressionUUID->"d461cffd-715a-4818-a56b-51dc34231773"] +}, Open ]], +Cell[CellGroupData[{ +Cell[349013, 8622, 2233, 63, 597, "Input",ExpressionUUID->"76a9e77d-1f4c-bb4a-bb13-1a175f609f7d"], +Cell[351249, 8687, 633, 13, 162, "Message",ExpressionUUID->"821ff65a-2744-49f9-815e-ccc3653424a2"], +Cell[351885, 8702, 636, 13, 162, "Message",ExpressionUUID->"a7ef99ea-dd30-4550-9aa8-781bd8611a90"], +Cell[352524, 8717, 635, 13, 162, "Message",ExpressionUUID->"0d13d389-72ea-416e-9809-bd3872514b79"], +Cell[353162, 8732, 494, 11, 73, "Message",ExpressionUUID->"300686cd-63c2-456c-a1b9-d8bc9e648083"], +Cell[353659, 8745, 192, 3, 56, "Output",ExpressionUUID->"7e20cd2b-4f56-42a2-bc9c-07963ebb9d68"] +}, Open ]], +Cell[CellGroupData[{ +Cell[353888, 8753, 238, 6, 79, "Input",ExpressionUUID->"69dd09d9-152e-3e4d-9517-4de4791db2f4"], +Cell[354129, 8761, 196, 3, 56, "Output",ExpressionUUID->"92294ed0-6cb3-41f8-a305-a851900060a5"] +}, Open ]], +Cell[354340, 8767, 271, 6, 119, "Input",ExpressionUUID->"6ecc7e8c-a7c5-354e-b168-749729cd7104"], +Cell[CellGroupData[{ +Cell[354636, 8777, 558, 19, 87, "Input",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], +Cell[355197, 8798, 193, 3, 56, "Output",ExpressionUUID->"6789d04a-2a62-401e-880b-2283acd464a1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[355427, 8806, 170, 5, 94, "Input",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], +Cell[355600, 8813, 195, 3, 56, "Output",ExpressionUUID->"b46b5909-60b5-45d7-ae82-95b3586c0a5c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[355832, 8821, 181, 5, 73, "Input",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], +Cell[356016, 8828, 194, 3, 56, "Output",ExpressionUUID->"4776579e-aced-47bd-baac-b62c9f32a2ce"] +}, Open ]], +Cell[CellGroupData[{ +Cell[356247, 8836, 6055, 185, 1592, "Input",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], +Cell[362305, 9023, 199, 3, 56, "Output",ExpressionUUID->"bf14244b-a9c2-4cad-8015-b8ccfcc22060"] +}, Open ]], +Cell[CellGroupData[{ +Cell[362541, 9031, 368, 9, 70, "Input",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], +Cell[362912, 9042, 197, 3, 56, "Output",ExpressionUUID->"35deb700-b36b-4b3b-b967-57a009a46a8d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[363146, 9050, 6122, 187, 1595, "Input",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], +Cell[369271, 9239, 195, 3, 56, "Output",ExpressionUUID->"748a38af-0d60-4d87-80d3-67c92258a5bc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[369503, 9247, 368, 9, 70, "Input",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], +Cell[369874, 9258, 193, 3, 56, "Output",ExpressionUUID->"a7104685-676d-4807-a36a-c80e622dbd69"] +}, Open ]], +Cell[CellGroupData[{ +Cell[370104, 9266, 2663, 88, 766, "Input",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], +Cell[372770, 9356, 196, 3, 56, "Output",ExpressionUUID->"8f65d4f6-5a5b-496d-b77f-d3bd82f58cb2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[373003, 9364, 2603, 85, 695, "Input",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], +Cell[375609, 9451, 193, 3, 56, "Output",ExpressionUUID->"8c844dae-24d8-489c-b0fa-823539098b72"] +}, Open ]], +Cell[CellGroupData[{ +Cell[375839, 9459, 3712, 118, 1015, "Input",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], +Cell[379554, 9579, 196, 3, 56, "Output",ExpressionUUID->"f900a339-0974-4ebe-b015-01d7d7d149b8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[379787, 9587, 2101, 60, 495, "Input",ExpressionUUID->"d6aa822f-4140-174a-8e29-c889dba5c0d8"], +Cell[381891, 9649, 634, 13, 162, "Message",ExpressionUUID->"ca6eab62-70d1-4c1f-b861-9f77ba4e4346"], +Cell[382528, 9664, 632, 13, 162, "Message",ExpressionUUID->"03c49f63-2369-48a9-963b-6d6a6b2d44de"], +Cell[383163, 9679, 634, 13, 162, "Message",ExpressionUUID->"62cbaf0c-fbc1-4b77-baa4-7ef73164af53"], +Cell[383800, 9694, 493, 11, 73, "Message",ExpressionUUID->"9f1c6cfa-a68e-42ca-a92f-ff9673d83bf8"], +Cell[384296, 9707, 193, 3, 56, "Output",ExpressionUUID->"f8f7272f-35f6-446c-b074-03f73ed37a3c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[384526, 9715, 2103, 60, 495, "Input",ExpressionUUID->"46f3f057-22eb-c143-af7a-23ddab00799c"], +Cell[386632, 9777, 632, 13, 162, "Message",ExpressionUUID->"0064c394-2ffd-4545-a224-895c69954b5b"], +Cell[387267, 9792, 632, 13, 162, "Message",ExpressionUUID->"73fa343f-dd89-4962-9592-282d21f39962"], +Cell[387902, 9807, 632, 13, 162, "Message",ExpressionUUID->"87d0602a-f356-4fed-83f4-6362a1ed0b61"], +Cell[388537, 9822, 495, 11, 73, "Message",ExpressionUUID->"8ef2809f-b479-4757-9f25-88bbfc290d8d"], +Cell[389035, 9835, 192, 3, 56, "Output",ExpressionUUID->"75a9c207-d983-4fd0-b07e-a2c331a6de91"] +}, Open ]], +Cell[CellGroupData[{ +Cell[389264, 9843, 2053, 55, 376, "Input",ExpressionUUID->"0137ed47-cd78-284a-910a-31d165f1571c"], +Cell[391320, 9900, 20251, 383, 330, "Output",ExpressionUUID->"1c2a6e9c-7855-4ffc-bd3a-9767af4ca0e1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[411608, 10288, 2193, 62, 551, "Input",ExpressionUUID->"00a32bc3-df79-9e43-8f20-d4884962c12d"], +Cell[413804, 10352, 516, 12, 134, "Message",ExpressionUUID->"a0720bb1-b42e-4e92-a161-0bc01a61bf78"], +Cell[414323, 10366, 518, 12, 134, "Message",ExpressionUUID->"c42df405-54c6-4a3b-92d4-c93f8e4b0ead"], +Cell[414844, 10380, 524, 12, 162, "Message",ExpressionUUID->"3e733786-b0f2-4feb-91af-e8a850855fab"], +Cell[415371, 10394, 473, 11, 73, "Message",ExpressionUUID->"77a40528-39b3-4f1a-8b4c-6e03d77f478a"], +Cell[415847, 10407, 25623, 468, 332, "Output",ExpressionUUID->"5aca1aac-2e03-4190-bf0b-17bd8788e1d8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[441507, 10880, 164, 4, 49, "Input",ExpressionUUID->"344da507-9044-ef47-aa8c-99f282e3d6d3"], +Cell[441674, 10886, 3984, 64, 151, "Message",ExpressionUUID->"c2daf135-aa52-488c-ab51-9108a7dd387c"], +Cell[445661, 10952, 25994, 472, 124, "Output",ExpressionUUID->"4ab5e8e8-c5bb-43b4-b6b7-fc73eba722bb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[471692, 11429, 1648, 50, 361, "Input",ExpressionUUID->"f13d1bd8-d153-ae43-b041-68b993e77854"], +Cell[473343, 11481, 636, 14, 162, "Message",ExpressionUUID->"90e95b9e-46fd-426a-a103-f74ef0d95f38"], +Cell[473982, 11497, 637, 14, 162, "Message",ExpressionUUID->"75e57643-6783-47a6-bbc7-11f91b9817c3"], +Cell[474622, 11513, 639, 14, 162, "Message",ExpressionUUID->"4ba8b6f1-ca98-40d1-816a-71e2a5ac3608"], +Cell[475264, 11529, 495, 11, 73, "Message",ExpressionUUID->"78b4505c-5d26-4d75-968d-09589a31b2b3"], +Cell[475762, 11542, 194, 3, 56, "Output",ExpressionUUID->"4d98680f-527f-4a4d-8f4d-4763a36af6b4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[475993, 11550, 2272, 64, 597, "Input",ExpressionUUID->"53e25fab-b431-cc42-a467-e4dea0353ed0"], +Cell[478268, 11616, 636, 13, 162, "Message",ExpressionUUID->"7cbd9cd1-1c95-4820-8904-2851b414a00a"], +Cell[478907, 11631, 634, 13, 162, "Message",ExpressionUUID->"b9dcbae0-2516-496c-aec9-1155f5a47f80"], +Cell[479544, 11646, 636, 13, 162, "Message",ExpressionUUID->"6eab2f9a-a67a-4a28-ad51-f297550d49bc"], +Cell[480183, 11661, 495, 11, 73, "Message",ExpressionUUID->"edb66632-a246-44a8-b56e-219564ac33df"], +Cell[480681, 11674, 194, 3, 56, "Output",ExpressionUUID->"085d3aae-1edd-44c5-b9e3-2ebc751e5418"] +}, Open ]], +Cell[CellGroupData[{ +Cell[480912, 11682, 2235, 63, 597, "Input",ExpressionUUID->"b18c819e-620a-d449-97d6-547e3a6fa152"], +Cell[483150, 11747, 632, 13, 162, "Message",ExpressionUUID->"4991607e-ad6e-479f-b8ce-ae04fc111395"], +Cell[483785, 11762, 634, 13, 162, "Message",ExpressionUUID->"e84b1ac1-41b2-4b61-b64a-5e5f12671122"], +Cell[484422, 11777, 632, 13, 162, "Message",ExpressionUUID->"52c05e2a-3a0a-444a-a250-df42bd60c65a"], +Cell[485057, 11792, 495, 11, 73, "Message",ExpressionUUID->"ffc6b5bc-d91b-4344-a36a-e3b773b69fd3"], +Cell[485555, 11805, 197, 3, 56, "Output",ExpressionUUID->"2c311715-963b-4f59-bdfd-60c5a1d23784"] +}, Open ]], +Cell[CellGroupData[{ +Cell[485789, 11813, 2233, 63, 597, "Input",ExpressionUUID->"22ab74c7-5916-9440-9d7d-c3e0f6ab8836"], +Cell[488025, 11878, 632, 13, 162, "Message",ExpressionUUID->"8b22d3b7-e0a2-455d-b4d4-7a656c838f59"], +Cell[488660, 11893, 632, 13, 162, "Message",ExpressionUUID->"dbee302d-0d64-469c-8d60-ffd925214fba"], +Cell[489295, 11908, 632, 13, 162, "Message",ExpressionUUID->"05505745-51a5-43a5-81b8-c9c2aa359451"], +Cell[489930, 11923, 493, 11, 73, "Message",ExpressionUUID->"8262b2c9-aa9e-44ba-bf0f-8f47ce0f6525"], +Cell[490426, 11936, 192, 3, 56, "Output",ExpressionUUID->"d575589b-afae-4394-80c9-98dc06f13cad"] +}, Open ]], +Cell[CellGroupData[{ +Cell[490655, 11944, 238, 6, 79, "Input",ExpressionUUID->"f9c66987-c237-7a40-a006-e20e260dbdcb"], +Cell[490896, 11952, 199, 3, 56, "Output",ExpressionUUID->"0d32cf56-3af2-4075-8f28-ba7d52b7b082"] +}, Open ]], +Cell[491110, 11958, 275, 6, 49, "Input",ExpressionUUID->"770a9ed7-7938-9e48-be64-c31719ef3a6b"], +Cell[CellGroupData[{ +Cell[491410, 11968, 558, 19, 87, "Input",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], +Cell[491971, 11989, 193, 3, 56, "Output",ExpressionUUID->"bbf36a3f-f589-415d-ad5f-199ce799fb0a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[492201, 11997, 170, 5, 94, "Input",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], +Cell[492374, 12004, 194, 3, 56, "Output",ExpressionUUID->"6a759206-2e2b-46cb-9f8b-028d637af7ae"] +}, Open ]], +Cell[CellGroupData[{ +Cell[492605, 12012, 181, 5, 73, "Input",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], +Cell[492789, 12019, 197, 3, 56, "Output",ExpressionUUID->"7107eb40-5bf5-4f21-a3a6-4177ea116ca1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[493023, 12027, 6055, 185, 1592, "Input",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], +Cell[499081, 12214, 197, 3, 56, "Output",ExpressionUUID->"4cf8ad3b-7443-428b-a3cb-3caea3f1d373"] +}, Open ]], +Cell[CellGroupData[{ +Cell[499315, 12222, 368, 9, 70, "Input",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], +Cell[499686, 12233, 195, 3, 56, "Output",ExpressionUUID->"8e602be2-f8a9-4336-9a26-5330fd3b3998"] +}, Open ]], +Cell[CellGroupData[{ +Cell[499918, 12241, 6122, 187, 1595, "Input",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], +Cell[506043, 12430, 194, 3, 56, "Output",ExpressionUUID->"40b08a27-4aa6-497e-bac7-78725a00cabd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[506274, 12438, 368, 9, 70, "Input",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], +Cell[506645, 12449, 193, 3, 56, "Output",ExpressionUUID->"b541f4df-94be-426d-8b38-b5981bb8a9c2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[506875, 12457, 2663, 88, 766, "Input",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], +Cell[509541, 12547, 196, 3, 56, "Output",ExpressionUUID->"a380c7df-3285-447e-9b59-e427d282f8bf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[509774, 12555, 2603, 85, 695, "Input",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], +Cell[512380, 12642, 193, 3, 56, "Output",ExpressionUUID->"ff5c9b21-8fda-4229-a200-fa7e6f33955d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[512610, 12650, 3712, 118, 1015, "Input",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], +Cell[516325, 12770, 194, 3, 56, "Output",ExpressionUUID->"ee3cdeb3-ac3b-4219-bce1-c6d67b2f442c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[516556, 12778, 2101, 60, 495, "Input",ExpressionUUID->"55d51961-97f2-ed4d-8bf8-8a461d652ab4"], +Cell[518660, 12840, 632, 13, 162, "Message",ExpressionUUID->"8071e39d-2dad-4fdd-a52b-722e78d7694f"], +Cell[519295, 12855, 633, 13, 162, "Message",ExpressionUUID->"9d66fc90-f22c-4fc1-8a39-788ec591ed40"], +Cell[519931, 12870, 633, 13, 162, "Message",ExpressionUUID->"2fdd8a8b-53be-43ad-8fd8-88dca0043e5c"], +Cell[520567, 12885, 495, 11, 73, "Message",ExpressionUUID->"12d5ed59-5062-44b9-8bf9-7e4846bbc6ad"], +Cell[521065, 12898, 195, 3, 56, "Output",ExpressionUUID->"d43670b2-8a1a-44ce-b044-fefb2bff1ec4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[521297, 12906, 2101, 60, 495, "Input",ExpressionUUID->"9704b9d3-b449-2144-9970-6a7de047241d"], +Cell[523401, 12968, 635, 13, 162, "Message",ExpressionUUID->"cf17f2cb-c3f0-4082-b473-3c75a8d17ac6"], +Cell[524039, 12983, 635, 13, 162, "Message",ExpressionUUID->"3704c7c7-e984-484c-a3cf-d8bd7bb3f3ac"], +Cell[524677, 12998, 633, 13, 162, "Message",ExpressionUUID->"8a32cbe2-8c0e-4136-9160-53dce2721b76"], +Cell[525313, 13013, 494, 11, 73, "Message",ExpressionUUID->"06e8525d-6e3a-481c-ac83-473972c9fd43"], +Cell[525810, 13026, 192, 3, 56, "Output",ExpressionUUID->"4fd8167a-dff3-44ec-a181-36d68f9a8e84"] +}, Open ]], +Cell[CellGroupData[{ +Cell[526039, 13034, 2051, 55, 376, "Input",ExpressionUUID->"0fd90636-7592-fc40-bf9d-ae1cb915c656"], +Cell[528093, 13091, 20306, 381, 330, "Output",ExpressionUUID->"0683a0a9-172b-4134-bc69-7947df7e80da"] +}, Open ]], +Cell[CellGroupData[{ +Cell[548436, 13477, 2195, 62, 551, "Input",ExpressionUUID->"90696e8b-5a2d-314c-8d58-ac84cb8f4d66"], +Cell[550634, 13541, 538, 12, 134, "Message",ExpressionUUID->"c8fd1e25-15e1-438f-8787-e71d5dca7a5d"], +Cell[551175, 13555, 542, 12, 134, "Message",ExpressionUUID->"43657b0c-624a-459e-bc16-4606ff1ae5d9"], +Cell[551720, 13569, 543, 12, 134, "Message",ExpressionUUID->"5afe336d-94f5-437e-985b-a9f00798fffb"], +Cell[552266, 13583, 495, 11, 73, "Message",ExpressionUUID->"813041e5-c71c-4b5d-8821-f41e4ddf7736"], +Cell[552764, 13596, 24827, 456, 323, "Output",ExpressionUUID->"1c7a4f98-6575-4b34-820c-f2c8df45a0ed"] +}, Open ]], +Cell[CellGroupData[{ +Cell[577628, 14057, 232, 5, 49, "Input",ExpressionUUID->"ea848967-083d-ea47-bce0-5c3b93725916"], +Cell[577863, 14064, 3990, 64, 153, "Message",ExpressionUUID->"2d8623b7-848f-4d98-88d7-014af89143aa"], +Cell[581856, 14130, 25172, 460, 115, "Output",ExpressionUUID->"5516aa9e-98e8-45a8-a4f9-661c7f7aa0cf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[607065, 14595, 1648, 50, 361, "Input",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], +Cell[608716, 14647, 636, 14, 162, "Message",ExpressionUUID->"34275440-b401-4a88-be3c-8916bdeb60a9"], +Cell[609355, 14663, 636, 14, 162, "Message",ExpressionUUID->"dfa8222c-ed1d-4e51-bf12-ad419c10aef8"], +Cell[609994, 14679, 635, 14, 162, "Message",ExpressionUUID->"62cf9332-c30f-4cef-880c-acce05f20dc0"], +Cell[610632, 14695, 492, 11, 73, "Message",ExpressionUUID->"6292ab8c-8c19-4e6c-9499-92175bd48d17"], +Cell[611127, 14708, 197, 3, 56, "Output",ExpressionUUID->"6b409aed-873b-4a0c-a42c-32e6bde14cc1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[611361, 14716, 2272, 64, 597, "Input",ExpressionUUID->"80bba3bc-d8f7-1c4b-9262-0895c02ffd8f"], +Cell[613636, 14782, 633, 13, 162, "Message",ExpressionUUID->"40da0574-9c23-4a28-8c30-5010b7430d05"], +Cell[614272, 14797, 635, 13, 162, "Message",ExpressionUUID->"d912ce60-d480-4aba-99dc-ab83be9a3feb"], +Cell[614910, 14812, 635, 13, 162, "Message",ExpressionUUID->"b19ee22f-1185-433b-b1aa-c20cc079f787"], +Cell[615548, 14827, 497, 11, 73, "Message",ExpressionUUID->"e08bbc03-3c7f-4a0f-9833-6440cd727797"], +Cell[616048, 14840, 195, 3, 56, "Output",ExpressionUUID->"d05cf98b-9364-4a16-83f0-da11585228b9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[616280, 14848, 2233, 63, 597, "Input",ExpressionUUID->"57976ffc-56f1-604b-8519-bead95265db8"], +Cell[618516, 14913, 633, 13, 162, "Message",ExpressionUUID->"4caed00d-527c-4c82-984f-90156ad69874"], +Cell[619152, 14928, 635, 13, 162, "Message",ExpressionUUID->"53aa9690-4499-4d15-832f-d92f9c8b87b9"], +Cell[619790, 14943, 633, 13, 162, "Message",ExpressionUUID->"dbff69b0-a9ae-441a-b2e4-9d90bf6d7ad3"], +Cell[620426, 14958, 495, 11, 73, "Message",ExpressionUUID->"e4777be6-888d-49d7-9687-5b1069a4b834"], +Cell[620924, 14971, 194, 3, 56, "Output",ExpressionUUID->"846e2f4c-c737-4991-9a8d-b3d37b220cb8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[621155, 14979, 2231, 63, 597, "Input",ExpressionUUID->"cfa37210-3ae7-3f49-b290-f19508c6d2f1"], +Cell[623389, 15044, 633, 13, 162, "Message",ExpressionUUID->"204a708d-72bd-4b4d-b7e5-9fa3322cb2dd"], +Cell[624025, 15059, 631, 13, 162, "Message",ExpressionUUID->"73f7bc51-7163-4e4b-82f8-5a64a56b258e"], +Cell[624659, 15074, 631, 13, 162, "Message",ExpressionUUID->"3ee05fe1-3fa5-4b55-86a4-846689f0dfae"], +Cell[625293, 15089, 493, 11, 73, "Message",ExpressionUUID->"46dfdb9d-5787-4dfe-beab-92f61009926c"], +Cell[625789, 15102, 194, 3, 56, "Output",ExpressionUUID->"bc8a1f9b-d563-4660-bdf9-45846431966b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[626020, 15110, 234, 6, 79, "Input",ExpressionUUID->"7457b456-6d32-5b44-9679-346c5f5ac532"], +Cell[626257, 15118, 197, 3, 56, "Output",ExpressionUUID->"172bd822-9627-43a6-b225-f6cafc99b277"] +}, Open ]], +Cell[626469, 15124, 143, 3, 49, "Input",ExpressionUUID->"7f3f4550-9289-4fc0-ae86-f64e81aae282"] } ] *) -(* End of internal cache information *) - diff --git a/Pu240_798-811_TitovAA/160-80_h_Pu240_14-15/h_160-80_Pu240_14-15_gid_Qw2.nb b/Pu240_798-811_TitovAA/160-80_h_Pu240_14-15/h_160-80_Pu240_14-15_gid_Qw2.nb index 1f902d9..1ead6b2 100644 --- a/Pu240_798-811_TitovAA/160-80_h_Pu240_14-15/h_160-80_Pu240_14-15_gid_Qw2.nb +++ b/Pu240_798-811_TitovAA/160-80_h_Pu240_14-15/h_160-80_Pu240_14-15_gid_Qw2.nb @@ -3,42 +3,4771 @@ (*** 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[ 666000, 15977] +NotebookOptionsPosition[ 625437, 15328] +NotebookOutlinePosition[ 625858, 15346] +CellTagsIndexPosition[ 625815, 15343] 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.993815385399456*^9, 3.9938153854750338`*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"460b0626-5ad0-4ea3-b2ce-b8446d7055b3"], + +Cell[BoxData["2"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, {3.993815359458637*^9, 3.993815388522393*^9}, + 3.99395864618618*^9, 3.993959244342595*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"9df04a6c-05b9-4624-a428-21c0f55fdb5a"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.993815078773963*^9, 3.9938150795912027`*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"d0113dd2-8b64-4508-8488-4ab5a0d41256"], + +Cell[BoxData["240"], "Output", CellChangeTimes->{ - 3.991850550777445*^9},ExpressionUUID->"b70cfd2b-21a1-8344-9518-\ -5e27a96171a9"], + 3.9913196497381973`*^9, {3.9938153597191753`*^9, 3.993815388600842*^9}, + 3.993958646269747*^9, 3.993959244409985*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"0ecf59e5-fe2f-4367-a54f-bc7577640f82"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "160"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.993815083810103*^9, 3.9938150844706078`*^9}}, + CellLabel->"In[3]:=",ExpressionUUID->"9aea1bcc-46c5-476a-a835-331029b1c2ae"], + +Cell[BoxData["160"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, {3.9938153597338867`*^9, 3.9938153886223583`*^9}, + 3.9939586462872963`*^9, 3.99395924442661*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"8de7a201-75c0-4276-bbad-8084438d64a3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"c756d8b7-5289-4522-a678-1217a9bba1cc"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, {3.993815359749675*^9, 3.9938153886357193`*^9}, + 3.993958646302828*^9, 3.993959244444615*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"5a04baad-a40c-4745-8ed2-bde44971013a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"92c94db7-5b76-4153-a58b-225ed9280e8e"], + +Cell[BoxData["0.545`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, {3.99381535976541*^9, 3.993815388649356*^9}, + 3.993958646307432*^9, 3.993959244459832*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"57b0c74a-b504-492d-8427-4bd49d3703e8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"5d37a845-ac3d-45da-9b05-088deec0590f"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, {3.993815359780024*^9, 3.993815388663189*^9}, + 3.993958646333138*^9, 3.993959244475849*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"58772bc8-384c-4726-9d2c-663dec581c4b"] +}, 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->"4c47f63e-17d8-4cd0-a871-76f03158ca85"], + +Cell[BoxData["6.297448870500181`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, {3.9938153597958603`*^9, 3.993815388676372*^9}, + 3.993958646348687*^9, 3.993959244496611*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"046b64c5-5dcd-4ed1-9bf3-e9704e3af711"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"fdd5929c-ad63-4ec1-a918-88d602253c38"], + +Cell[BoxData["4.9982884808739705`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, {3.993815359810844*^9, 3.993815388688987*^9}, + 3.993958646364296*^9, 3.993959244511248*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"22cca180-cd1f-41af-b523-8bbfd986fe95"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.97776"}]], "Input", + CellChangeTimes->{ + 3.991799283179735*^9, {3.9938151564672937`*^9, 3.9938151618001623`*^9}}, + CellLabel->"In[9]:=",ExpressionUUID->"dbc1098d-78cc-4e7f-a0c4-b0a690e03a3d"], + +Cell[BoxData["0.97776`"], "Output", + CellChangeTimes->{{3.993815359825905*^9, 3.993815388702949*^9}, + 3.993958646379671*^9, 3.993959244526042*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"66dceb5d-4cbc-4129-8f98-346553ec92a7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.42961"}]], "Input", + CellChangeTimes->{ + 3.991799280663351*^9, {3.993815163461789*^9, 3.99381517066012*^9}}, + CellLabel->"In[10]:=",ExpressionUUID->"4101e0ec-9081-49e1-8b68-a53e438073d6"], + +Cell[BoxData["0.42961`"], "Output", + CellChangeTimes->{{3.993815359840959*^9, 3.993815388718238*^9}, + 3.993958646395402*^9, 3.9939592445402*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"7874b360-c095-45f5-a465-c99480638a98"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"a8b59773-9ff7-43d5-80c4-6adabe07f82c"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, {3.993815359855208*^9, 3.993815388731841*^9}, + 3.993958646410099*^9, 3.9939592445536957`*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"dff8e41a-0935-42c3-afd3-58b63f81345e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"1545e060-e5a9-49c7-8573-a6126541080b"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, {3.993815359869401*^9, 3.993815388746388*^9}, + 3.9939586464244757`*^9, 3.993959244567959*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"bc3c5154-0f83-48fa-aeda-e47f8008f284"] +}, 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->"d9fb462b-2951-4a97-89a1-84a400d4aeec"], + +Cell[BoxData["2.50294615878073`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, {3.993815359883766*^9, 3.993815388758988*^9}, + 3.993958646439068*^9, 3.9939592445822906`*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"ad4f7d3f-a099-45f6-8cd0-60622e23f595"] +}, 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->"71ff1c0a-b605-4e61-87b5-8ca30ee1e510"], + +Cell[BoxData["1.478321690160274`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, {3.9938153598984947`*^9, 3.993815388771246*^9}, + 3.993958646454102*^9, 3.9939592445930777`*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"a4b40b29-3673-4eca-a9cc-eacef3c72b17"] +}, 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->"c8051a63-8573-46f9-a48d-795423aac709"], + +Cell[BoxData["0.36228762750256105`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, {3.993815359913329*^9, 3.993815388784683*^9}, + 3.993958646469401*^9, 3.9939592446169033`*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"d115715d-5abe-46fc-b8c3-76bdc30a7a93"] +}, 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->"27a5d96c-9c34-4873-91cd-05419dd6dd9e"], + +Cell[BoxData[ + RowBox[{"-", "0.0846607903474445`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, {3.993815359929597*^9, 3.993815388797483*^9}, + 3.993958646484239*^9, 3.993959244633162*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"1153032f-3090-4a0c-a3ae-d0b191399501"] +}, 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->"02c993a4-ec47-4c3a-af44-b04453195ef2"], + +Cell[BoxData[ + RowBox[{"-", "0.5809541759341679`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, {3.993815359945134*^9, 3.99381538880952*^9}, + 3.9939586464991083`*^9, 3.993959244650675*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"1229569b-5f51-48f8-a72c-41be3e8e20b7"] +}, 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->"b4aabf7f-0746-4b03-9188-c9713af32470"], + +Cell[BoxData["0.700262319146979`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, {3.993815359960987*^9, 3.993815388821504*^9}, + 3.993958646513887*^9, 3.993959244667481*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"6db632de-fe04-4aa4-a053-7ea45dd49417"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"a02356d7-a842-4b7c-b4f2-80b13bf6d278"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, {3.993815359975456*^9, 3.993815388833537*^9}, + 3.993958646528556*^9, 3.993959244686139*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"be558887-a8a7-49b9-b61f-04bc0d991dfe"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel->"In[20]:=",ExpressionUUID->"3b0fc9ae-d012-446d-9441-24e13d39410e"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, {3.9938153599899197`*^9, 3.993815388845224*^9}, + 3.99395864654298*^9, 3.9939592447040777`*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"c670169d-8844-4390-ac66-405b884576d8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"09f2bd0d-cd5e-449e-9b78-e9379f95b844"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, {3.99381536000439*^9, 3.9938153888577013`*^9}, + 3.9939586465577307`*^9, 3.993959244722802*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"3c54ce69-07c3-4a1e-8da1-7b27466e15d0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"6a1a0d49-28c6-4f80-9499-831f4e6be55e"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, {3.993815360018857*^9, 3.993815388870207*^9}, + 3.99395864657239*^9, 3.9939592447433033`*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"89603138-76fa-4f2d-af18-bffb41b5bb5e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[23]:=",ExpressionUUID->"c39cb063-3db5-4dc9-8a6b-07c19fbe5302"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, {3.993815360033464*^9, 3.9938153888824987`*^9}, + 3.9939586465866947`*^9, 3.993959244761415*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"45afd3f4-10ab-4681-80b6-046cb584e725"] +}, 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.993815261708016*^9, 3.9938152618435717`*^9}}, + CellLabel->"In[24]:=",ExpressionUUID->"48e77027-6d8a-466c-b075-b5e898135f67"], + +Cell[BoxData["66"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, {3.993815360047928*^9, 3.9938153888940973`*^9}, + 3.993958646601172*^9, 3.993959244838827*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"2d79b8ce-d38a-4502-a276-69d304a4d21c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, {3.993815264947379*^9, 3.993815267508748*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"933e2591-36f2-46ad-a74f-019b4fff74c5"], + +Cell[BoxData["28"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, {3.993815360062439*^9, 3.993815388907254*^9}, + 3.993958646615478*^9, 3.9939592449047537`*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"3ffb36c2-fbb6-4864-ba95-1f0a0186062c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"e2e6d884-bec2-4432-af7b-36b3a7736103"], + +Cell[BoxData["80"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, {3.993815360076642*^9, 3.993815388920082*^9}, + 3.993958646629941*^9, 3.99395924492316*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"803d71d0-dded-4397-a45c-2ab2755b9c15"] +}, 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->"842f661b-6db7-47a1-8cf9-1459d1edfa94"], + +Cell[BoxData["0.11205`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, {3.993815360091414*^9, 3.993815388933477*^9}, + 3.993958646644432*^9, 3.9939592449477987`*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"ddf91ec8-7ae5-4307-a12b-40d763b759ec"] +}, 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->"40827574-4e00-42c9-a753-eb22ccb57ce3"], + +Cell[BoxData[ + RowBox[{"-", "2.5616499999999998`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, {3.9938153601058817`*^9, 3.993815388947524*^9}, + 3.993958646659143*^9, 3.9939592449579*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"357cabee-660b-43af-80af-03a4610a284b"] +}, 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->"49c8005d-5097-410f-9026-7073d52b62a2"], + +Cell[BoxData["17.9817039793298`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, {3.9938153601211452`*^9, 3.993815388962264*^9}, + 3.9939586466747503`*^9, 3.9939592449933*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"679ca198-46fc-4300-9752-d363eb1aef5b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"8bb2661d-a797-447a-9224-277d38c42969"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, {3.993815360135828*^9, 3.993815388975617*^9}, + 3.993958646689221*^9, 3.993959245009541*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"0f06c42b-0ca4-46b6-a5ea-a4540e17482e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", " ", "1.965"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { + 3.99381519981903*^9, 3.993815203647489*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"88e666d6-df7c-4e1d-a3c0-f84cd282d5ff"], + +Cell[BoxData["1.965`"], "Output", + CellChangeTimes->{{3.993815360149398*^9, 3.993815388989003*^9}, + 3.993958646703771*^9, 3.9939592450238237`*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"386bb177-2cd2-44e2-9fb7-cf951989bd02"] +}, 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->"38d854c4-c9b3-4c1c-b32f-f2bc0425b756"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.805"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.993815206165124*^9, 3.993815207521797*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"7928222b-a451-4852-b947-2ee8c8261e53"], + +Cell[BoxData["0.805`"], "Output", + CellChangeTimes->{{3.993815360178578*^9, 3.993815389006834*^9}, + 3.993958646731131*^9, 3.993959245050679*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"3211443d-110f-4d39-91bc-890c8d0e5ab9"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel->"In[34]:=",ExpressionUUID->"0655bdd0-f395-4c06-9eea-8704b7554fe8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "2.575"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.993815210101787*^9, 3.9938152142375507`*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"75170604-d865-480b-bc2e-4d7096ea7931"], + +Cell[BoxData["2.575`"], "Output", + CellChangeTimes->{{3.993815360206645*^9, 3.993815389025874*^9}, + 3.99395864675819*^9, 3.993959245077388*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"b963bec6-ae52-4ed8-b8cd-11589911b377"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel->"In[36]:=",ExpressionUUID->"90138e2e-ca10-4017-bbf5-efb166f8f2e2"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.195"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, {3.993815217827416*^9, 3.993815218865891*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"83035bc7-d3e4-475f-a50f-8f3ee01ed073"], + +Cell[BoxData["1.195`"], "Output", + CellChangeTimes->{{3.9938153602341948`*^9, 3.9938153890444403`*^9}, + 3.993958646785417*^9, 3.9939592451038094`*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"2436b04f-931f-41c6-8638-1a4bca6862a2"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel->"In[38]:=",ExpressionUUID->"04cd04b4-7289-4648-9c86-30781f1d7d4a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.213"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, {3.993815222374446*^9, + 3.993815224623548*^9}}, + CellLabel->"In[39]:=",ExpressionUUID->"25517e52-ce49-4286-ad13-14e15851d249"], + +Cell[BoxData["1.213`"], "Output", + CellChangeTimes->{{3.99381536026166*^9, 3.993815389060953*^9}, + 3.9939586468116283`*^9, 3.9939592451388597`*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"cd1eba90-ff6a-42b0-af01-601818778115"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel->"In[40]:=",ExpressionUUID->"ff837e2f-c6c8-4838-a282-6aeb4acca0e6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.576"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.9938152272320232`*^9, + 3.993815230573249*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"11b45eab-5d14-436c-87fb-6ff64594a9dd"], + +Cell[BoxData["0.576`"], "Output", + CellChangeTimes->{{3.99381536028929*^9, 3.993815389077355*^9}, + 3.9939586468382273`*^9, 3.993959250301208*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"60951009-102f-4dd0-8a7f-5555e541f5bc"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel->"In[42]:=",ExpressionUUID->"cbe342c8-e7f9-49f0-b8ba-d39d6e7e3bec"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "1.35"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.993815233406152*^9, + 3.9938152359541283`*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"7ece05e0-433d-4835-9769-ab80255b3c99"], + +Cell[BoxData["1.35`"], "Output", + CellChangeTimes->{{3.993815360317037*^9, 3.993815389094755*^9}, + 3.993958646864482*^9, 3.993959250332861*^9}, + CellLabel->"Out[43]=",ExpressionUUID->"08806337-9347-41b7-849e-67574bb38418"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel->"In[44]:=",ExpressionUUID->"a925d364-bfb7-45aa-8b61-c88d597be4ca"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "0.715"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, {3.99381523872539*^9, 3.9938152401714783`*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"9a2536b4-58ff-4544-a49b-d4230f665b00"], + +Cell[BoxData["0.715`"], "Output", + CellChangeTimes->{{3.993815360345028*^9, 3.993815389112644*^9}, + 3.9939586468924627`*^9, 3.993959250345477*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"8b8b3ea1-ab1e-4f60-94e1-165f1b382528"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel->"In[46]:=",ExpressionUUID->"e1e2982b-8e61-4e26-bdf4-e3a86fa709e0"], + +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->"31156c36-5fc8-4b86-8a5c-d5f1cb9ec3f5"], + +Cell[BoxData["0.10594190044976036`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, {3.993815360436064*^9, 3.993815389153583*^9}, + 3.993958649558243*^9, 3.993959250498219*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"80bc2017-3cdb-4c04-b97e-0fa484383d2d"] +}, 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->"8df493e2-d3b5-4271-91fc-c572c810b7c8"], + +Cell[BoxData["6.461769506994958`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, {3.9938153604720716`*^9, 3.993815389182211*^9}, + 3.993958649585424*^9, 3.993959250562581*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"e2b43876-b2db-44dd-9f77-d84280918728"] +}, 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->"199cd08a-3f62-43c9-b3da-0f3d563bf36b"], + +Cell[BoxData[ + RowBox[{"-", "16.996339172809833`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, {3.9938153605547743`*^9, 3.993815389210862*^9}, + 3.993958649612328*^9, 3.9939592506239033`*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"84c24d4b-4cf0-4c35-aefe-a6d9acc70f86"] +}, 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->"02da2c60-5daa-4524-8052-d62916399b60"], + +Cell[BoxData[ + RowBox[{"-", "23.66687085044272`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, {3.9938153605968103`*^9, 3.9938153892445498`*^9}, + 3.9939586496469717`*^9, 3.993959250694166*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"ba007bcc-4095-4fda-a984-32b65e6ec7aa"] +}, 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->"64e0229c-8114-4ff1-86ca-b44ff885d715"], + +Cell[BoxData[ + RowBox[{"-", "64.87070371918927`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, {3.9938153606388206`*^9, 3.993815389278417*^9}, + 3.993958649683728*^9, 3.9939592507545633`*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"d3c7ba68-cde6-4be8-953f-c7dc2e9705df"] +}, 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->"b7e74a62-0b8f-47dd-8b35-63d112b4f32e"], + +Cell[BoxData[ + RowBox[{"-", "180.27815067607094`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, {3.993815360684663*^9, 3.993815389318866*^9}, + 3.993958649726467*^9, 3.9939592508410788`*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"77141971-1e57-44eb-b554-1d60e0a3fa1a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[53]:=",ExpressionUUID->"fbd0aea8-9f29-490d-a0f7-a647336756f4"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, {3.993815360701696*^9, 3.993815389332931*^9}, + 3.99395864974012*^9, 3.993959250851325*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"b207e49e-23b3-4923-8981-97a87bd0378c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[54]:=",ExpressionUUID->"b7bdd5f0-0b23-4356-babd-7625a55c9496"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, {3.9938153607167177`*^9, 3.993815389344874*^9}, + 3.993958649755121*^9, 3.993959250861043*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"c61b1990-d3e0-46bb-8af1-49e949528c7d"] +}, 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->"0c1b9b28-2f8e-4017-993a-1a69d4b41611"], + +Cell[BoxData["131.34670371854253`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, {3.993815360730653*^9, 3.9938153893568707`*^9}, + 3.993958649768943*^9, 3.9939592508724203`*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"89e856f4-b854-42f9-8362-6a428aadbd9b"] +}, 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->"bb97d487-e94d-4e35-b991-4cdad2a0077b"], + +Cell[BoxData[ + RowBox[{"-", "121.12984521648005`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, {3.993815360744831*^9, 3.993815389368895*^9}, + 3.993958649781246*^9, 3.993959250883099*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"e5e3fbb4-e784-4f6e-b637-79d403cdde7d"] +}, 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->"352b3d68-d774-49db-b08d-3f70638e96e9"], + +Cell[BoxData["137.31484295247708`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, {3.993815360759387*^9, 3.993815389381069*^9}, + 3.99395864979466*^9, 3.993959250894712*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"780bb1a9-c8ef-4e43-84f6-2de513a56143"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[58]:=",ExpressionUUID->"61bee5ce-7b4f-4fd2-aae8-bbab348d2ca6"], + +Cell[BoxData["0.36228762750256105`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, {3.993815360773879*^9, 3.993815389392989*^9}, + 3.9939586498072023`*^9, 3.993959250903789*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"faace9f9-bbbc-4d74-826c-3b1af5a5236a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[59]:=",ExpressionUUID->"754b8817-4eb4-4c5c-91da-e64fa17167ed"], + +Cell[BoxData[ + RowBox[{"-", "0.0846607903474445`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, {3.993815360788493*^9, 3.993815389404903*^9}, + 3.9939586498198338`*^9, 3.993959250912685*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"12986dc6-d8a0-4513-9e4d-ae2ffab49fac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[60]:=",ExpressionUUID->"379e8144-deab-4959-9834-c26e4b726fb9"], + +Cell[BoxData[ + RowBox[{"-", "0.5809541759341679`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, {3.993815360803743*^9, 3.9938153894169493`*^9}, + 3.993958649837104*^9, 3.9939592509220667`*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"ebacda90-db69-4aa0-b0e3-aa3f323d00ce"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"56218321-70c6-4f8f-91e5-adbeb1d201f2"], + +Cell[BoxData["0.700262319146979`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, {3.9938153608194017`*^9, 3.993815389428903*^9}, + 3.993958649850066*^9, 3.993959251061562*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"5906f6e6-d7cb-479b-a4b4-a12b9874d944"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[62]:=",ExpressionUUID->"90a0d2a5-1a6a-4790-813b-fbbf8b6a9988"], + +Cell[BoxData["2.50294615878073`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, {3.993815360835617*^9, 3.9938153894408617`*^9}, + 3.993958649863385*^9, 3.993959251122113*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"db9122aa-74f5-4784-942c-36edc545b0ae"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[63]:=",ExpressionUUID->"0e56efee-1584-4b72-9169-747a0a664b96"], + +Cell[BoxData["1.478321690160274`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, {3.993815360850321*^9, 3.9938153894528627`*^9}, + 3.9939586498771133`*^9, 3.993959251135603*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"2708e060-43e1-4ea5-b431-8565a77da3de"] +}, 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->"d5caf54e-fc7d-4a50-80a9-20fabaf56f3f"], + +Cell[BoxData[ + RowBox[{"-", "34.35384696882824`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, {3.993815360867701*^9, 3.993815389464924*^9}, + 3.993958649889442*^9, 3.993959251154051*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"0a81d0b1-af4e-4250-ad99-3a9e9a56210a"] +}, 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->"43f11a54-3d53-41a2-9f5b-d721ac5665d6"], + +Cell[BoxData[ + RowBox[{"-", "7.30490507028344`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, {3.993815360882195*^9, 3.9938153894771433`*^9}, + 3.993958649903101*^9, 3.993959251172933*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"6de850fa-01ea-41f1-8b30-4016a51c68a0"] +}, 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->"5f117278-352a-40fe-81c0-81b7ab5f5e9a"], + +Cell[BoxData["96.99285674971429`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, {3.9938153608971453`*^9, 3.993815389489629*^9}, + 3.993958649916582*^9, 3.9939592511914577`*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"16dd3976-947a-47fd-88f8-d4a4c470a5b0"] +}, 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->"f10aad61-6906-4bae-88bf-166d5f7bd2f2"], + +Cell[BoxData[ + RowBox[{"-", "121.12984521648005`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, {3.9938153609115973`*^9, 3.9938153895018883`*^9}, + 3.993958649928854*^9, 3.993959251210452*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"c1222ea3-99cf-499a-bfe3-2f6bd970fe43"] +}, 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->"7387c247-fb21-40b8-8d12-cfbf4c014ddc"], + +Cell[BoxData["130.00993788219364`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, {3.993815360925351*^9, 3.993815389514392*^9}, + 3.993958649941387*^9, 3.99395925122858*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"db7c15a4-cbba-44a8-a97c-78ab1abaaade"] +}, 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->"bf5720ea-7568-43eb-bc15-ad8958f98a1e"], + +Cell[BoxData["33.05673140049902`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, {3.993815360940073*^9, 3.993815389526847*^9}, + 3.993958649954606*^9, 3.993959251237212*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"c4ebe602-0d19-4b75-bb02-cf0bd8dbb888"] +}, 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->"12fc4e60-9f5b-4ca7-9b65-df6f697e5098"], + +Cell[BoxData["781.6942369302528`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, {3.9938153609551077`*^9, 3.993815389531186*^9}, + 3.993958649967162*^9, 3.99395925124588*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"08ba059a-1b53-4618-88d0-421d94f785d5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f1", "=", "0.4769511425"}]], "Input", + CellChangeTimes->{3.9918505481678543`*^9, 3.9939589998372717`*^9}, + CellLabel->"In[71]:=",ExpressionUUID->"83cccf0d-dccb-fb42-a058-5e950c758893"], + +Cell[BoxData["0.4769511425`"], "Output", + CellChangeTimes->{3.993959251375169*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"5f8686af-e2d9-4373-a07e-41070196c3e0"] +}, 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.1349754118"}]], "Input", + CellChangeTimes->{3.991850550777445*^9, 3.993959006008535*^9}, + CellLabel->"In[73]:=",ExpressionUUID->"b70cfd2b-21a1-8344-9518-5e27a96171a9"], + +Cell[BoxData["0.1349754118`"], "Output", + CellChangeTimes->{3.99395925139683*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"ceb19aa7-80ee-4655-a27f-b2150bed8591"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918505524437046`*^9, 3.991850552447544*^9}}, + CellLabel->"In[74]:=",ExpressionUUID->"86df0a71-aa65-aa41-b8f1-8c5c5be10fe8"], Cell[CellGroupData[{ @@ -83,9 +4812,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.6373494975860167`*^-53"], "Output", + CellChangeTimes->{3.993959251420682*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"0d172406-525d-4ef2-8b09-a9eb8177faef"] }, Open ]], Cell[CellGroupData[{ @@ -119,11 +4851,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["9.762693214915118`*^-55"], "Output", + CellChangeTimes->{3.9939592514343433`*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"05692aff-1d49-45f9-9f43-bec693dbe1ed"] }, Open ]], Cell[CellGroupData[{ @@ -156,11 +4889,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["6.702218915394557`*^-55"], "Output", + CellChangeTimes->{3.993959251456298*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"460bd812-c96b-4563-8e6d-55b0b8b6e516"] }, Open ]], Cell[CellGroupData[{ @@ -182,10 +4916,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["9.344091306104524`"], "Output", + CellChangeTimes->{3.993959251466056*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"bb99136f-196a-4ded-9cc6-dc2c6453a2a2"] }, Open ]], Cell[CellGroupData[{ @@ -210,10 +4946,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["26.297463726698588`"], "Output", + CellChangeTimes->{3.993959251474784*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"88c6bbb0-fa7b-44d2-9ebe-e3e643df1868"] }, Open ]], Cell[CellGroupData[{ @@ -221,10 +4959,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.8808814259595967`"], "Output", + CellChangeTimes->{3.993959251483162*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"fa5dbbf9-075a-4e83-afcd-bb030c4e0d6d"] }, Open ]], Cell[CellGroupData[{ @@ -232,10 +4972,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.4520712492775845`"], "Output", + CellChangeTimes->{3.9939592514916067`*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"d2f78eb0-35a8-42d4-bad7-51aa0e946fb4"] }, Open ]], Cell[CellGroupData[{ @@ -243,10 +4985,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["143.37564591325352`"], "Output", + CellChangeTimes->{3.993959251510618*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"62a8821f-dcba-464a-9b63-ca78016e2537"] }, Open ]], Cell[CellGroupData[{ @@ -254,10 +4998,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["17.575127780122546`"], "Output", + CellChangeTimes->{3.993959251519815*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"5668f4ee-39e3-4ce4-b3a7-1853bfaa8695"] }, Open ]], Cell[CellGroupData[{ @@ -445,10 +5191,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.0069808822585582415`"], "Output", + CellChangeTimes->{3.993959251534252*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"115236b5-6be1-422b-b76b-94a9c62d63e1"] }, Open ]], Cell[CellGroupData[{ @@ -460,18 +5208,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.60693198709465`"], "Output", + CellChangeTimes->{3.9939592517755404`*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"0477ae47-0cd5-45c2-ae6d-1e0d744ea856"] }, Open ]], Cell[CellGroupData[{ @@ -661,10 +5403,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.055071734330975106`"], "Output", + CellChangeTimes->{3.9939592517976427`*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"c286b5ce-2b84-4519-a332-76158f85d976"] }, Open ]], Cell[CellGroupData[{ @@ -676,18 +5420,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.776422390290081`"], "Output", + CellChangeTimes->{3.993959251885049*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"e34e0ac3-afac-4003-ae87-8284b63a46ad"] }, Open ]], Cell[CellGroupData[{ @@ -778,10 +5516,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.06376749590987153`"], "Output", + CellChangeTimes->{3.993959251899962*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"b19112bf-16d0-47ee-bc01-1a75f49fa0f8"] }, Open ]], Cell[CellGroupData[{ @@ -869,10 +5609,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.9362325040901285`"], "Output", + CellChangeTimes->{3.993959251915378*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"99722679-3c9e-42be-a477-256d96a6510f"] }, Open ]], Cell[CellGroupData[{ @@ -993,16 +5735,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.05970120237525605`"], "Output", + CellChangeTimes->{3.99395925193263*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"6fac49af-b7b9-4487-902b-e96e717b4537"] }, 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 +5807,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[\\\"3.187519916729378`*^-206\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 92, 1, + 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993959251980748*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"82c0858c-7ee2-4c01-a717-44be0d81545a"], 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.080167350371406`*^-211\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 92, 2, + 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993959252001939*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"aeb8523d-217e-4a15-9953-03b7cf759cee"], -Cell[BoxData["4.366771860185332`"], "Output",ExpressionUUID->"1c49befc-babf-0743-9739-e64b536d1c51"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.222795791694571`*^-216\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 92, 3, + 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993959252011093*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"85ae7660-f7c1-4c4f-8a6d-7e7242858a35"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 92, 4, 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993959252019957*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"4b92a453-a6b3-4b76-b705-1e078a9ae4f1"], + +Cell[BoxData["10.606931987094644`"], "Output", + CellChangeTimes->{3.9939592546135*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"7ac131a0-c42c-49b2-aca7-915908a4a2e9"] }, Open ]], Cell[CellGroupData[{ @@ -1145,26 +5932,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[\\\"3.187519916729378`*^-206\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 93, 5, + 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993959254737097*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"f6ce56f2-3474-4f2d-863e-87fbf0386fbe"], 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.080167350371406`*^-211\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 93, 6, + 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99395925474767*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"b81ad44a-d485-454e-8fde-93523f590f7d"], -Cell[BoxData["8.621193087541219`"], "Output",ExpressionUUID->"6af143a4-6ae5-fb45-8cd1-6940f2290ff9"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.222795791694571`*^-216\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 93, 7, + 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939592547552137`*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"3872d2c8-8573-44c4-82ff-940a9abdabc5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 93, 8, 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993959254762228*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"87f12d2d-fd99-4975-a7f4-a92c021aad3d"], + +Cell[BoxData["3.776422390290082`"], "Output", + CellChangeTimes->{3.9939592572644453`*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"618d6669-8cad-40ae-b319-dbae391654d1"] }, Open ]], Cell[CellGroupData[{ @@ -1220,415 +6051,390 @@ 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:eJwV1Hk4F1sYB3C7rqVQ9qWsZSv5ZevKebOVNSklW/r5zZCQkCuFNtxKQqTu +TSJJsiRLWZKWW+IXirKUfWns24gWuccf88zzeebM97zve+YZReZRR4KLg4OD +wtfy/VjDxvWPmxpMMmY2PSB+f0UmE1l6TPM8FMYMbV12T7p+sop5FVIrsHQj +sR1Y7/iEGP+hzk+3jbyxi8KiXvKas9GzrvNHfbAvvJaqicp9j8JrZxYPY5c3 +Hbv1S/cj+pA6MnAEe6Sj7tSJyjYkvdtPJQBbZlDZ9ZvZF5Tz/a+qQGybyVNG +wexudCJVOD8Yu/rXiGBYbi+K2Kz9LRT70xnJk2UB/ci08VNqOPYEn/kIrTuI +jpwQSIrE5osLPMCYH0JyRrUDZ7EVRNNqj1VS6KKUSEIstr3st+wJszHUxjSZ +SsQmbytJaK+YQBODKndTsaNUd0UfYU+iDeUpj9Kw2yRbNofkTiOLCxKtudgs +F9/DV+NmUFeW2kQR9tRNjoxHAbNozO65ezn2CiVtkWndOZQUf83yLXYy6+UO +EfFvyMPm/bP32OvuHYjaNP8Nve6+ltiBbagVM+FfuYCovhcm49g++t3sEbNf +KODV7WcSS18RHXacR0BtEdU/2LKoiH26UtBYfcVvNKW696o29nUwfODNXkLB +SP+tBTbrbq15UC4npGpfdA3Hzn19teeMLBcYsSPc/8ae+upxKjGOC6THFh9f +wz6lMVf8MIAbZPWzQkuwkwsVlSd1eWHNuzgZGrujaaz69x1eYFhTPTwcFFo3 +89hlpTgf2Pq+XxLHzttin6Q9zwdODLsdRtivysM5/SpXQOfxyV/nsOdeNndT +ZkIQV83LrcFJITFbIZGT1UIQn1ejb4qt02IOwkbCQJUmfXDB9h0ovb1540p4 +vj7C9DJ2IBdbZ5uQCFxRDOaexx5UKpiO/iYKrW+UBbq4KESTdX80MsTgjX7Q +s1/YXA+GFKWOiUF18Jcvsty4XsZax9xRMZDK5XVwxXYxS3jU0LMa9seUSHZj +N3oFBUvWi8PckWatHzwU6roXf8lzhQQopq1greWl0Nho7p37FhJgzTzIbYEt +ENLf/GeNBNii4PBEbPPze7d4lkrCylvIehMfhSqy9Ody0qWBZ/PbwEh+CmUN +/gjdGiIP347WfvEVoNBOp9iu4Hx5SLmc8vwG9tir1Zb5Q/IQs2jI+RZ7S5aW ++LoDCvDmIk/iBkE8T6ZHMa/JWlhztmJmFHtmsucv6tw6aErnfXZOmEKr/c1L +iu2UQOqHe+S8CIWGsgR8HHyVoI+nrXqzKIWefGmSHY9RgtjzBi5+2G627ufU +apRAaSEnow87SzPU8YauMpw8xgpuFsP7j9ybipRUAV2hMqXXayi011tQ27pX +FawHH5RMSlEIhTrp7l9UBcE8X5ohTSGN6HQDlrQaJJpdvxSGzXGHYRq5Ww24 +dExruGQolN/luv/RczUo0Oo1lZWlEN++vDMymethSKMx300e12du92mEqQ51 +ntkKikoUurMn9fN8pDpwzJB2gdjxzN4enn/VobzxfvMzbNbp46MKzeogxl8+ +dFCZQqJVaRx7zDRgfcaq9Vkq+PthTGhUKmsCobNZdNt6CskqXYm6NKAFFiFL +Vx5qUajqIq3+nUsbJNqp/WLaeB6zB1pIRW0oyRyICcG+9UpF3dRDG6b5JWW2 +bqSQknfFh4VWbXj59LR43Sbcb96gKlm/EeJkDQ4t6lJIXlaBXHdAB0pe1DsW +GVFI626I0E+kC1Z3jn6030khJuvcnLa9LtzYKbz+BfZ15aQuTzddGG6/90HP +ikLcmYUPX4fpwnfNVgMFawp13BrZm1SkC1IJ+ltnbSh04bpnmroyA/TCy9cW +7MLne8l2ozPfFrAuoYK991MoI0jFoZStB/WBV4Iobwo1hSKD83eNQNymZU10 +AoUUPT7au/ttg4HUff+2V1OIWCorkD8B8MBB4GL7JIUkR5/wSzJNYTquV9Je +cxiFMIy/JGmYQ95VLbfnPsOIOf6rdvWIBfRlWmQk5Q6jfNNg/vTGHTCf8iPP +aGEYZdG+z/OSrcAr1fZcjOUIWtgu9e5VlA10cB03qM4YQZ0c3NO9h+zggr6T +US7nKAqQO5pwRnkXyJfszKvxHEUFh2trUqId4OCEZ8jUu1EUPis9r3l4NzTJ +DVf6G42hOWvLfW8OOsLWR00lzcVjyMg1cfvg7j0Q1X28jL15HH2QTvN9xdgL +l072brTJG0cy2eeqcjY4ARnb4wL6E+hJj4atvfA++LjWIzm1cgIptEx5h47v +gw/Kz+4Zm04iRkpi3p2e/VDo4G5q2TaJ0nhmNya9dIa/iRsP3zCmUNn2TR3R +5QeAb63fwujZKXTd4KLor1wXeMqUiHz3fgo1fr4bw4hzhWPukhxyctOo1O6m +SuBpN+i2+U1J+0+jaf89HAEsd3A7tkmm+Mk0mrNU95kw84CN8zqVPlwzKGe8 +fSFY/yB8/+j8M2z3DHLOuOvlLuQJ9l+zzg7fmEHFj2wOcsd6QrKKYMexoRlk +JPvh+4XvnmCsumr6rOYsUu7x7nh/+BDI7Nm9LdxvFg0IHtl1s/8Q/NaaEt1V +OIua4u29djgx4WKuxMPq4VmUHJYueLyJCXa7N/zLUKFRVfXSdy8rLxCXEF+Q +dabRKjeIZVR4wXnnDB+NczRat+ZNo1yVF6gajsq3Y+uw7aT4qr1AX0jUN/Y8 +jRyNXe+3PfeCF9l/ve6LplGyXGh9xFsv+OcsEZf8N41kOh+sqm3zgvbTN3UH +LtNIxUPyutu8FzwX95ZhXKeRkedETvQWFmRXm8teeECj7BtTwfb6LJD+p61D +LI9Ga5pnTCQNWdCdn254E3vCYr4l508WxLgENeTn0/j/xcHJNmVBUlWbJ7uQ +RivnRQ+I7WbBmRS7lfPFNBq4rPdHuj8Lwvj++8lZRaP4ylOHn2SzwHabVcNw +HY38dVONwnJYgIYzLZzraWR7v+gPw1wWbD5o7fIaWyB16P7jfBZUtCLXDDaN +ooMcRspKWBBlS5c7NtDolLrKkdIXLDhXoPkl8z2NfFPr/R51sSD3+C+zhVYa +Wa0cMg7qYcGtvZUWLm002hDNIazbx4LTTuy+SuyhIL38okEWPOa/PxHRTqND +9unjD8dYcMGnwGaxg0bOvMEBhT9Y0DyptHK4k0Y7gmUC8yQI+NkSuzukn0Yv +0mOsk6QIkEjZ9qUJ25g9oxImQ4CsuseE1gA+L9X6djMFAopF03L6saVbT5p9 +ViWgy8Ms2GaIRqNbOyUE9Ago6+fawzNMoytct5967yEg31ynUWYC979J6Lqd +EwEq1yI2+GCfdw0LYuwnYOWBnfyl2GElDuuXXAhwUFNwspvE9ZOcideYBDhb +7tAJm6IRo47J+u8YAfwRFW1lMzRqTVQVVE4gYOz2r9TWbzQqQMI+VCIBRBWX +t+g8zh+nX+VfJSDa6udba2xdq1eRhqkE6Mul21Rhx3N4zdjdIuC2WKnxPws0 +sjx6uz0sj4D7Cf4N23/QSF7+b32TAgKMs4LbQrDpuqNXuR8SMOvfe/wedqYa +sosvJqC3rtlX8CeNFjs7a+5UELB3cYtxA3aJrWxOQy0BmZZaoWiRRpd+cPEm +1xEQN8RXfASbmTNy6ACbgPCsxrOp2CI8FbIDjQSwAld9Hsf2q3S+8v0TAavf +xfqn/KaRssa1UJVBAk48SljTtESjH60RzcNDBEjNro+Yw26KJnQKKQIm+C3C +ZDjmUGTvlhGjMQJ0FhdUvbA7rje775ol4D+RbI9J7CR+UYtwThJSpUxglnMO +Vc10uoZwk7DYpukkzjWHvnbmBgXwkpBwCXr1sY1LzG8z/yBh1e+XHmHYQ55h +P61FSfiaGDFBY4vYWohZrCZB5dZYpRj3HPrTQEwdiZOQ37SLQwc7QThvH0Oa +hFPWn8d9lp9XdBfJKpJQ+9PHtQWbvJtXK65MQtlgR/f48vqEE92rVElQ4hL/ +zMeD9yNXC/Ook/C+952eAXbC6h0+YzokyOayTyZiV/xeHTWkS0LMx++l2diD +wz0pPVtIiJerIyuxt9aEv2wxJOH8KTOtfuwBvwKFp0CCHbeWpRbvHFrpfFLv +sSkJFnXcetuwjcx22haZk8D1l+c/dtjx0n0n7u4k4VDQv7V+2E94ChPSrUmw +jgxOPIndP3ny3g1bEs6OvGy6gG34WvzjZQcSPlx+8SgLm1nUNxrrSMKYxxGn +IuzLNwu5zu4lweHVmYCn2H1BVjqhziRkF45zt2ALe0jsCHQhITTP5HTXcp5V +v7uvGwmOmnQQtfz+2ohLHp4k1LPPV/5YrkfAOtOZSYKlmZsoNx/Om5Mod2SR +kNSf0CmALdzb32hLkvBQTnGdGLYh++GQpQ/OOyHYLoXNfByxCL4kvE23X7EW ++3Km9Zo//UjgcRzOV8F+cllSUy+AhDv+HW/Vl/PDBrZvCsT9jK5z24gtxCpy +Vg8ioaa3kqWLbbAr8qhyCAmlUbn9esv5W21i5ENJ4BYbazPEjlOVSpMMIyGW +47T5n9hlIoPFouEksBsItW3YvT+L6gRP4fVyaZEmy/lfI3t5I0nguKNqh7D1 +P9gsLEXh+W1dSlz2/62f8R0= + "]]}, + 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:eJwV1Hk4F1sYB3C7rqVQ9qWsZSv5ZevKebOVNSklW/r5zZCQkCuFNtxKQqTu +TSJJsiRLWZKWW+IXirKUfWns24gWuccf88zzeebM97zve+YZReZRR4KLg4OD +wtfy/VjDxvWPmxpMMmY2PSB+f0UmE1l6TPM8FMYMbV12T7p+sop5FVIrsHQj +sR1Y7/iEGP+hzk+3jbyxi8KiXvKas9GzrvNHfbAvvJaqicp9j8JrZxYPY5c3 +Hbv1S/cj+pA6MnAEe6Sj7tSJyjYkvdtPJQBbZlDZ9ZvZF5Tz/a+qQGybyVNG +wexudCJVOD8Yu/rXiGBYbi+K2Kz9LRT70xnJk2UB/ci08VNqOPYEn/kIrTuI +jpwQSIrE5osLPMCYH0JyRrUDZ7EVRNNqj1VS6KKUSEIstr3st+wJszHUxjSZ +SsQmbytJaK+YQBODKndTsaNUd0UfYU+iDeUpj9Kw2yRbNofkTiOLCxKtudgs +F9/DV+NmUFeW2kQR9tRNjoxHAbNozO65ezn2CiVtkWndOZQUf83yLXYy6+UO +EfFvyMPm/bP32OvuHYjaNP8Nve6+ltiBbagVM+FfuYCovhcm49g++t3sEbNf +KODV7WcSS18RHXacR0BtEdU/2LKoiH26UtBYfcVvNKW696o29nUwfODNXkLB +SP+tBTbrbq15UC4npGpfdA3Hzn19teeMLBcYsSPc/8ae+upxKjGOC6THFh9f +wz6lMVf8MIAbZPWzQkuwkwsVlSd1eWHNuzgZGrujaaz69x1eYFhTPTwcFFo3 +89hlpTgf2Pq+XxLHzttin6Q9zwdODLsdRtivysM5/SpXQOfxyV/nsOdeNndT +ZkIQV83LrcFJITFbIZGT1UIQn1ejb4qt02IOwkbCQJUmfXDB9h0ovb1540p4 +vj7C9DJ2IBdbZ5uQCFxRDOaexx5UKpiO/iYKrW+UBbq4KESTdX80MsTgjX7Q +s1/YXA+GFKWOiUF18Jcvsty4XsZax9xRMZDK5XVwxXYxS3jU0LMa9seUSHZj +N3oFBUvWi8PckWatHzwU6roXf8lzhQQopq1greWl0Nho7p37FhJgzTzIbYEt +ENLf/GeNBNii4PBEbPPze7d4lkrCylvIehMfhSqy9Ody0qWBZ/PbwEh+CmUN +/gjdGiIP347WfvEVoNBOp9iu4Hx5SLmc8vwG9tir1Zb5Q/IQs2jI+RZ7S5aW ++LoDCvDmIk/iBkE8T6ZHMa/JWlhztmJmFHtmsucv6tw6aErnfXZOmEKr/c1L +iu2UQOqHe+S8CIWGsgR8HHyVoI+nrXqzKIWefGmSHY9RgtjzBi5+2G627ufU +apRAaSEnow87SzPU8YauMpw8xgpuFsP7j9ybipRUAV2hMqXXayi011tQ27pX +FawHH5RMSlEIhTrp7l9UBcE8X5ohTSGN6HQDlrQaJJpdvxSGzXGHYRq5Ww24 +dExruGQolN/luv/RczUo0Oo1lZWlEN++vDMymethSKMx300e12du92mEqQ51 +ntkKikoUurMn9fN8pDpwzJB2gdjxzN4enn/VobzxfvMzbNbp46MKzeogxl8+ +dFCZQqJVaRx7zDRgfcaq9Vkq+PthTGhUKmsCobNZdNt6CskqXYm6NKAFFiFL +Vx5qUajqIq3+nUsbJNqp/WLaeB6zB1pIRW0oyRyICcG+9UpF3dRDG6b5JWW2 +bqSQknfFh4VWbXj59LR43Sbcb96gKlm/EeJkDQ4t6lJIXlaBXHdAB0pe1DsW +GVFI626I0E+kC1Z3jn6030khJuvcnLa9LtzYKbz+BfZ15aQuTzddGG6/90HP +ikLcmYUPX4fpwnfNVgMFawp13BrZm1SkC1IJ+ltnbSh04bpnmroyA/TCy9cW +7MLne8l2ozPfFrAuoYK991MoI0jFoZStB/WBV4Iobwo1hSKD83eNQNymZU10 +AoUUPT7au/ttg4HUff+2V1OIWCorkD8B8MBB4GL7JIUkR5/wSzJNYTquV9Je +cxiFMIy/JGmYQ95VLbfnPsOIOf6rdvWIBfRlWmQk5Q6jfNNg/vTGHTCf8iPP +aGEYZdG+z/OSrcAr1fZcjOUIWtgu9e5VlA10cB03qM4YQZ0c3NO9h+zggr6T +US7nKAqQO5pwRnkXyJfszKvxHEUFh2trUqId4OCEZ8jUu1EUPis9r3l4NzTJ +DVf6G42hOWvLfW8OOsLWR00lzcVjyMg1cfvg7j0Q1X28jL15HH2QTvN9xdgL +l072brTJG0cy2eeqcjY4ARnb4wL6E+hJj4atvfA++LjWIzm1cgIptEx5h47v +gw/Kz+4Zm04iRkpi3p2e/VDo4G5q2TaJ0nhmNya9dIa/iRsP3zCmUNn2TR3R +5QeAb63fwujZKXTd4KLor1wXeMqUiHz3fgo1fr4bw4hzhWPukhxyctOo1O6m +SuBpN+i2+U1J+0+jaf89HAEsd3A7tkmm+Mk0mrNU95kw84CN8zqVPlwzKGe8 +fSFY/yB8/+j8M2z3DHLOuOvlLuQJ9l+zzg7fmEHFj2wOcsd6QrKKYMexoRlk +JPvh+4XvnmCsumr6rOYsUu7x7nh/+BDI7Nm9LdxvFg0IHtl1s/8Q/NaaEt1V +OIua4u29djgx4WKuxMPq4VmUHJYueLyJCXa7N/zLUKFRVfXSdy8rLxCXEF+Q +dabRKjeIZVR4wXnnDB+NczRat+ZNo1yVF6gajsq3Y+uw7aT4qr1AX0jUN/Y8 +jRyNXe+3PfeCF9l/ve6LplGyXGh9xFsv+OcsEZf8N41kOh+sqm3zgvbTN3UH +LtNIxUPyutu8FzwX95ZhXKeRkedETvQWFmRXm8teeECj7BtTwfb6LJD+p61D +LI9Ga5pnTCQNWdCdn254E3vCYr4l508WxLgENeTn0/j/xcHJNmVBUlWbJ7uQ +RivnRQ+I7WbBmRS7lfPFNBq4rPdHuj8Lwvj++8lZRaP4ylOHn2SzwHabVcNw +HY38dVONwnJYgIYzLZzraWR7v+gPw1wWbD5o7fIaWyB16P7jfBZUtCLXDDaN +ooMcRspKWBBlS5c7NtDolLrKkdIXLDhXoPkl8z2NfFPr/R51sSD3+C+zhVYa +Wa0cMg7qYcGtvZUWLm002hDNIazbx4LTTuy+SuyhIL38okEWPOa/PxHRTqND +9unjD8dYcMGnwGaxg0bOvMEBhT9Y0DyptHK4k0Y7gmUC8yQI+NkSuzukn0Yv +0mOsk6QIkEjZ9qUJ25g9oxImQ4CsuseE1gA+L9X6djMFAopF03L6saVbT5p9 +ViWgy8Ms2GaIRqNbOyUE9Ago6+fawzNMoytct5967yEg31ynUWYC979J6Lqd +EwEq1yI2+GCfdw0LYuwnYOWBnfyl2GElDuuXXAhwUFNwspvE9ZOcideYBDhb +7tAJm6IRo47J+u8YAfwRFW1lMzRqTVQVVE4gYOz2r9TWbzQqQMI+VCIBRBWX +t+g8zh+nX+VfJSDa6udba2xdq1eRhqkE6Mul21Rhx3N4zdjdIuC2WKnxPws0 +sjx6uz0sj4D7Cf4N23/QSF7+b32TAgKMs4LbQrDpuqNXuR8SMOvfe/wedqYa +sosvJqC3rtlX8CeNFjs7a+5UELB3cYtxA3aJrWxOQy0BmZZaoWiRRpd+cPEm +1xEQN8RXfASbmTNy6ACbgPCsxrOp2CI8FbIDjQSwAld9Hsf2q3S+8v0TAavf +xfqn/KaRssa1UJVBAk48SljTtESjH60RzcNDBEjNro+Yw26KJnQKKQIm+C3C +ZDjmUGTvlhGjMQJ0FhdUvbA7rje775ol4D+RbI9J7CR+UYtwThJSpUxglnMO +Vc10uoZwk7DYpukkzjWHvnbmBgXwkpBwCXr1sY1LzG8z/yBh1e+XHmHYQ55h +P61FSfiaGDFBY4vYWohZrCZB5dZYpRj3HPrTQEwdiZOQ37SLQwc7QThvH0Oa +hFPWn8d9lp9XdBfJKpJQ+9PHtQWbvJtXK65MQtlgR/f48vqEE92rVElQ4hL/ +zMeD9yNXC/Ook/C+952eAXbC6h0+YzokyOayTyZiV/xeHTWkS0LMx++l2diD +wz0pPVtIiJerIyuxt9aEv2wxJOH8KTOtfuwBvwKFp0CCHbeWpRbvHFrpfFLv +sSkJFnXcetuwjcx22haZk8D1l+c/dtjx0n0n7u4k4VDQv7V+2E94ChPSrUmw +jgxOPIndP3ny3g1bEs6OvGy6gG34WvzjZQcSPlx+8SgLm1nUNxrrSMKYxxGn +IuzLNwu5zu4lweHVmYCn2H1BVjqhziRkF45zt2ALe0jsCHQhITTP5HTXcp5V +v7uvGwmOmnQQtfz+2ohLHp4k1LPPV/5YrkfAOtOZSYKlmZsoNx/Om5Mod2SR +kNSf0CmALdzb32hLkvBQTnGdGLYh++GQpQ/OOyHYLoXNfByxCL4kvE23X7EW ++3Km9Zo//UjgcRzOV8F+cllSUy+AhDv+HW/Vl/PDBrZvCsT9jK5z24gtxCpy +Vg8ioaa3kqWLbbAr8qhyCAmlUbn9esv5W21i5ENJ4BYbazPEjlOVSpMMIyGW +47T5n9hlIoPFouEksBsItW3YvT+L6gRP4fVyaZEmy/lfI3t5I0nguKNqh7D1 +P9gsLEXh+W1dSlz2/62f8R0= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.749804338789165, 1.31402546911308}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7498043387891666}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.749804338789165, 1.31402546911308}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7498043387891666}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJwV1Hk4F1sYB3C7rqVQ9qWsZSv5ZevKebOVNSklW/r5zZCQkCuFNtxKQqTu +TSJJsiRLWZKWW+IXirKUfWns24gWuccf88zzeebM97zve+YZReZRR4KLg4OD +wtfy/VjDxvWPmxpMMmY2PSB+f0UmE1l6TPM8FMYMbV12T7p+sop5FVIrsHQj +sR1Y7/iEGP+hzk+3jbyxi8KiXvKas9GzrvNHfbAvvJaqicp9j8JrZxYPY5c3 +Hbv1S/cj+pA6MnAEe6Sj7tSJyjYkvdtPJQBbZlDZ9ZvZF5Tz/a+qQGybyVNG +wexudCJVOD8Yu/rXiGBYbi+K2Kz9LRT70xnJk2UB/ci08VNqOPYEn/kIrTuI +jpwQSIrE5osLPMCYH0JyRrUDZ7EVRNNqj1VS6KKUSEIstr3st+wJszHUxjSZ +SsQmbytJaK+YQBODKndTsaNUd0UfYU+iDeUpj9Kw2yRbNofkTiOLCxKtudgs +F9/DV+NmUFeW2kQR9tRNjoxHAbNozO65ezn2CiVtkWndOZQUf83yLXYy6+UO +EfFvyMPm/bP32OvuHYjaNP8Nve6+ltiBbagVM+FfuYCovhcm49g++t3sEbNf +KODV7WcSS18RHXacR0BtEdU/2LKoiH26UtBYfcVvNKW696o29nUwfODNXkLB +SP+tBTbrbq15UC4npGpfdA3Hzn19teeMLBcYsSPc/8ae+upxKjGOC6THFh9f +wz6lMVf8MIAbZPWzQkuwkwsVlSd1eWHNuzgZGrujaaz69x1eYFhTPTwcFFo3 +89hlpTgf2Pq+XxLHzttin6Q9zwdODLsdRtivysM5/SpXQOfxyV/nsOdeNndT +ZkIQV83LrcFJITFbIZGT1UIQn1ejb4qt02IOwkbCQJUmfXDB9h0ovb1540p4 +vj7C9DJ2IBdbZ5uQCFxRDOaexx5UKpiO/iYKrW+UBbq4KESTdX80MsTgjX7Q +s1/YXA+GFKWOiUF18Jcvsty4XsZax9xRMZDK5XVwxXYxS3jU0LMa9seUSHZj +N3oFBUvWi8PckWatHzwU6roXf8lzhQQopq1greWl0Nho7p37FhJgzTzIbYEt +ENLf/GeNBNii4PBEbPPze7d4lkrCylvIehMfhSqy9Ody0qWBZ/PbwEh+CmUN +/gjdGiIP347WfvEVoNBOp9iu4Hx5SLmc8vwG9tir1Zb5Q/IQs2jI+RZ7S5aW ++LoDCvDmIk/iBkE8T6ZHMa/JWlhztmJmFHtmsucv6tw6aErnfXZOmEKr/c1L +iu2UQOqHe+S8CIWGsgR8HHyVoI+nrXqzKIWefGmSHY9RgtjzBi5+2G627ufU +apRAaSEnow87SzPU8YauMpw8xgpuFsP7j9ybipRUAV2hMqXXayi011tQ27pX +FawHH5RMSlEIhTrp7l9UBcE8X5ohTSGN6HQDlrQaJJpdvxSGzXGHYRq5Ww24 +dExruGQolN/luv/RczUo0Oo1lZWlEN++vDMymethSKMx300e12du92mEqQ51 +ntkKikoUurMn9fN8pDpwzJB2gdjxzN4enn/VobzxfvMzbNbp46MKzeogxl8+ +dFCZQqJVaRx7zDRgfcaq9Vkq+PthTGhUKmsCobNZdNt6CskqXYm6NKAFFiFL +Vx5qUajqIq3+nUsbJNqp/WLaeB6zB1pIRW0oyRyICcG+9UpF3dRDG6b5JWW2 +bqSQknfFh4VWbXj59LR43Sbcb96gKlm/EeJkDQ4t6lJIXlaBXHdAB0pe1DsW +GVFI626I0E+kC1Z3jn6030khJuvcnLa9LtzYKbz+BfZ15aQuTzddGG6/90HP +ikLcmYUPX4fpwnfNVgMFawp13BrZm1SkC1IJ+ltnbSh04bpnmroyA/TCy9cW +7MLne8l2ozPfFrAuoYK991MoI0jFoZStB/WBV4Iobwo1hSKD83eNQNymZU10 +AoUUPT7au/ttg4HUff+2V1OIWCorkD8B8MBB4GL7JIUkR5/wSzJNYTquV9Je +cxiFMIy/JGmYQ95VLbfnPsOIOf6rdvWIBfRlWmQk5Q6jfNNg/vTGHTCf8iPP +aGEYZdG+z/OSrcAr1fZcjOUIWtgu9e5VlA10cB03qM4YQZ0c3NO9h+zggr6T +US7nKAqQO5pwRnkXyJfszKvxHEUFh2trUqId4OCEZ8jUu1EUPis9r3l4NzTJ +DVf6G42hOWvLfW8OOsLWR00lzcVjyMg1cfvg7j0Q1X28jL15HH2QTvN9xdgL +l072brTJG0cy2eeqcjY4ARnb4wL6E+hJj4atvfA++LjWIzm1cgIptEx5h47v +gw/Kz+4Zm04iRkpi3p2e/VDo4G5q2TaJ0nhmNya9dIa/iRsP3zCmUNn2TR3R +5QeAb63fwujZKXTd4KLor1wXeMqUiHz3fgo1fr4bw4hzhWPukhxyctOo1O6m +SuBpN+i2+U1J+0+jaf89HAEsd3A7tkmm+Mk0mrNU95kw84CN8zqVPlwzKGe8 +fSFY/yB8/+j8M2z3DHLOuOvlLuQJ9l+zzg7fmEHFj2wOcsd6QrKKYMexoRlk +JPvh+4XvnmCsumr6rOYsUu7x7nh/+BDI7Nm9LdxvFg0IHtl1s/8Q/NaaEt1V +OIua4u29djgx4WKuxMPq4VmUHJYueLyJCXa7N/zLUKFRVfXSdy8rLxCXEF+Q +dabRKjeIZVR4wXnnDB+NczRat+ZNo1yVF6gajsq3Y+uw7aT4qr1AX0jUN/Y8 +jRyNXe+3PfeCF9l/ve6LplGyXGh9xFsv+OcsEZf8N41kOh+sqm3zgvbTN3UH +LtNIxUPyutu8FzwX95ZhXKeRkedETvQWFmRXm8teeECj7BtTwfb6LJD+p61D +LI9Ga5pnTCQNWdCdn254E3vCYr4l508WxLgENeTn0/j/xcHJNmVBUlWbJ7uQ +RivnRQ+I7WbBmRS7lfPFNBq4rPdHuj8Lwvj++8lZRaP4ylOHn2SzwHabVcNw +HY38dVONwnJYgIYzLZzraWR7v+gPw1wWbD5o7fIaWyB16P7jfBZUtCLXDDaN +ooMcRspKWBBlS5c7NtDolLrKkdIXLDhXoPkl8z2NfFPr/R51sSD3+C+zhVYa +Wa0cMg7qYcGtvZUWLm002hDNIazbx4LTTuy+SuyhIL38okEWPOa/PxHRTqND +9unjD8dYcMGnwGaxg0bOvMEBhT9Y0DyptHK4k0Y7gmUC8yQI+NkSuzukn0Yv +0mOsk6QIkEjZ9qUJ25g9oxImQ4CsuseE1gA+L9X6djMFAopF03L6saVbT5p9 +ViWgy8Ms2GaIRqNbOyUE9Ago6+fawzNMoytct5967yEg31ynUWYC979J6Lqd +EwEq1yI2+GCfdw0LYuwnYOWBnfyl2GElDuuXXAhwUFNwspvE9ZOcideYBDhb +7tAJm6IRo47J+u8YAfwRFW1lMzRqTVQVVE4gYOz2r9TWbzQqQMI+VCIBRBWX +t+g8zh+nX+VfJSDa6udba2xdq1eRhqkE6Mul21Rhx3N4zdjdIuC2WKnxPws0 +sjx6uz0sj4D7Cf4N23/QSF7+b32TAgKMs4LbQrDpuqNXuR8SMOvfe/wedqYa +sosvJqC3rtlX8CeNFjs7a+5UELB3cYtxA3aJrWxOQy0BmZZaoWiRRpd+cPEm +1xEQN8RXfASbmTNy6ACbgPCsxrOp2CI8FbIDjQSwAld9Hsf2q3S+8v0TAavf +xfqn/KaRssa1UJVBAk48SljTtESjH60RzcNDBEjNro+Yw26KJnQKKQIm+C3C +ZDjmUGTvlhGjMQJ0FhdUvbA7rje775ol4D+RbI9J7CR+UYtwThJSpUxglnMO +Vc10uoZwk7DYpukkzjWHvnbmBgXwkpBwCXr1sY1LzG8z/yBh1e+XHmHYQ55h +P61FSfiaGDFBY4vYWohZrCZB5dZYpRj3HPrTQEwdiZOQ37SLQwc7QThvH0Oa +hFPWn8d9lp9XdBfJKpJQ+9PHtQWbvJtXK65MQtlgR/f48vqEE92rVElQ4hL/ +zMeD9yNXC/Ook/C+952eAXbC6h0+YzokyOayTyZiV/xeHTWkS0LMx++l2diD +wz0pPVtIiJerIyuxt9aEv2wxJOH8KTOtfuwBvwKFp0CCHbeWpRbvHFrpfFLv +sSkJFnXcetuwjcx22haZk8D1l+c/dtjx0n0n7u4k4VDQv7V+2E94ChPSrUmw +jgxOPIndP3ny3g1bEs6OvGy6gG34WvzjZQcSPlx+8SgLm1nUNxrrSMKYxxGn +IuzLNwu5zu4lweHVmYCn2H1BVjqhziRkF45zt2ALe0jsCHQhITTP5HTXcp5V +v7uvGwmOmnQQtfz+2ohLHp4k1LPPV/5YrkfAOtOZSYKlmZsoNx/Om5Mod2SR +kNSf0CmALdzb32hLkvBQTnGdGLYh++GQpQ/OOyHYLoXNfByxCL4kvE23X7EW ++3Km9Zo//UjgcRzOV8F+cllSUy+AhDv+HW/Vl/PDBrZvCsT9jK5z24gtxCpy +Vg8ioaa3kqWLbbAr8qhyCAmlUbn9esv5W21i5ENJ4BYbazPEjlOVSpMMIyGW +47T5n9hlIoPFouEksBsItW3YvT+L6gRP4fVyaZEmy/lfI3t5I0nguKNqh7D1 +P9gsLEXh+W1dSlz2/62f8R0= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.749804338789165, 1.31402546911308}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7498043387891666}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.7498043387891666}, + 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.749804338789165, 1.31402546911308}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9939595107294073`*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"d87e0530-3797-43cb-a0d6-7572be0073e0"] }, Open ]], Cell[CellGroupData[{ @@ -1691,420 +6497,1381 @@ 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.3261931117146975`*^-272\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 95, 9, + 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939595110910463`*^9}, + CellLabel-> + "During evaluation of \ +In[95]:=",ExpressionUUID->"1203decd-a64d-44b6-a394-d5bee1acec48"], 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[\\\"1.1183798633750706`*^-283\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 95, + 10, 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993959511101445*^9}, + CellLabel-> + "During evaluation of \ +In[95]:=",ExpressionUUID->"255a6036-8324-4416-985c-20e515088015"], 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[\\\"5.376911798525892`*^-295\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 95, 11, 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993959511106916*^9}, + CellLabel-> + "During evaluation of \ +In[95]:=",ExpressionUUID->"884dbd61-26fa-4796-95a5-e8f48d94aa35"], 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, 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993959511112405*^9}, + CellLabel-> + "During evaluation of \ +In[95]:=",ExpressionUUID->"fad9e0cd-51b4-4820-8c82-923fc4c481ba"], 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:eJwV13k4FYsbB3BRkiuVfTfnkEpkC1lO7xsl+xZZsktapJSslaUrKiRSKqJI +i3BmKtlKF5Wda9eClOrasieS3/z+Os/nmec5M/Odd5lheB2z9eHk4OAglnFw +/P93tre2Wv5SzvYV7Jpy230G29tvi4Xu6I6GivWrCko6CUDhZi+x7mQolorh +TOlUhSDrR11c3XdhW0h9W0gnwrox0eRfXRTsmW9wtO60hr5yy2PTXZXwY0r5 +clOHBxjJD32c6GqFdN2IjK624/CrSzt1vGsAYv0l1nM3REKV4f2cf+9OwdHw +J7UVLldAqq/kq5fSIvSav8u3CLkBQn7uj1YacqF/8u6VXrFZkKxmVGZpz4OO +untERbxyoCdN9dXE2tWYMrdLNaHwPlzKiWjmFF+H7hcP60UOPgLRq58vpGQI +ovs6NTHt7HwQ2/zs77lcQUznCn5153E+SFSej3BlC2Ldq1pb7qJ8kBnfdGpD +lSC2VHWqvqjJh/Xmxz3KvtPHm+rIT6P5oLF8UeuzhhBmM6rfLtcuAKtAkS/q +dUJoXsZVlFddALF2JttbZ4Uxamzsl1FjIUg8bZLgXCaCQjsZOY0dhVAgaPdT +7S8RzHtC9Jv3FkJnqxv7iqwIxs3K8mr+KAR5m0CmjbEIXukKXrmXhw2VFpnc +LTdE8MinLmGJTWxYNJppatQXxaHD4p/bfNmQlBuWt2gkiiKcqzIyj7BBnpsj +TtlGFK/1zV/1PcYG89e8OxJ8RLF18RtrJIgNNw2JJ+aJoljy1vhoTQwbtqHZ +9fo+URQPb1jXcJcNJ3XuuNdGi+Fpua5tSz1sMM3inzaLF8PLx899Fv/IBubK +03FNqWL4fJ+OoVo/G1ra95JtD8TwokAMY+9XNmw5zsfV2ySG7BVKjiGTbPie +G5w7KSGODo8e3JPhJcFFyHJU8ok4xtXdfz6pRYJGeFnU7XJxjI2u+JWtQwLv +wEYRxhtxNFGfHbfRJ6GkkAsUesRR9BjPUvYOEkTMSpJUl8Qx0WviFmFOQkuU +/NZdZhLoJlA0Gu5Bws4f82H+nyXQabdxY9l5EkKNryr+MyKB6itfnZyLI6Hg +jvI7wVkJbHygOq12iQQxOw+dEh5JnKoqOXfrMgkjxa9/cm2RxID+ugHjNBJS +opMCb4RI4t8Sn5r4HpIwIKzgX71aCoMZPH90a0gQPVYhLSoqhbEdbtaCdSSY +1zg2HiKk8GKR9d/f60koCruktEZDCjN/aSZfaCbhYt/4kJOjFJYcj7XM7SRB +/WGZ74+7UnjZTzHJ9AsJUfo2nhLbpHF/2s9buEiCsdvtSW0DaayVu+LU8YcE +/sjhc/bm0miQ6B9ygIOC9KqY3CQPaWyU4f5whouCYtPSYe4L0sio9DCJWkXB +uKNc0FSPNJ7YYan1XoiC52HHV677Io3iHheMtUQoOJv+Im3LmDRacLdWJ4hS +wNfvUHaIUwbfSn1dVJOgYINvPEe/ogwOFTRHW8lS4HZq5mJDuAw+7OD07NtI +wfrrBlJDMTKIOOeyTJGi87ucvzJJBk8oDjbIbqYg7PemFoMcGTS5YPSXrTIF +qefchEsaZNAqpV4oXo0Cl3t5uZ2dMvg0SLzqijoFzLdz2tP9tCVfDKVoUMDm +TXFWmZHBFIPaBwmaFDRceZt5T1oWd01emNqrQ0HKEyG1qg2ymGAmGIm6FDh3 +eFb2q8niz52plxT0KPgu9vuLpJEscmYfZH7Xp4ArS1Ux2V8WnROavHcgBboF +N56erZBFG/PVH82NKNjZ1bQ4ViOLzdVnv03StuRYvtu9VRbtRXx+pO6mwNvW +vwcGZVFiRna+1ZgCo3BGROQKAv/Y+q7eZEZB/Zry7G28BC70JQs/p22ds7dm +nJ9A/cgDhIE5BfsaL63zFCPQe1kBWllQcFx2NnvHZgIzdke+3GVFwcyTpJpf +KgRK7384VkY7zHjzKLmVwFLJXgUVawpiAjy0mNsJdN+pSPHZUMDLveD8zoDA +rKhs7mDaSTdTI5J3E3hpYtinl/bNqroaThsCY4WLdufYUiDr6DNaak+g1snM +es49FOSMLK076Uxgr/0GVzfahcKa+z57E+jz+788PjsKqn0zR6uCCDx61ojP +yJ4Ck986AqfDCVyRrrgugXZTUrvW1kgC4Zb/pn9p95Ssisy5QGBC9PLr1nvp +erHMyXFJJHDapnn0Eu0vA9trhVIIJFuGnatpj/0VKBCTTqDOEcFwJQcKTmbx +a7PuECi8JkPFhfbc1of7Zu4RGBRwajGO9tlaw8j8RwS+ueo6SNHmcuvN8Skk +UFZZ9HsP7bjJkFrppwS2Ze7n/kObP1ZwrKOYwM+cq3bIOtL1IlkgkPiCzkeq +Jo1FW4xtrG1USWCd1wF+J9oZOz/v+/OGzmP+wd0A2syeM5FF9fT5iu33xtJ+ +cFTsnn8Lgc0yGoo3aStzPqlV6CCQx5VH9hFt6prFWG8Pga3WGZrPaW/b/F3g +ei+Bjn+X+v9D+0VFtLbVZwIlt2yqr6FtYCftsvI7gf6qT8waab/9/jyyYoTA +KTG5iSba5mds7wVPELiZ2Fn+/+Ot60ZrVWYJHN44kF9L2yE3duzbPIEfKmrf +VNL+oMsUzFqir0eyZmUJba/mcm3H5Qx0EM8LeEz7m7eDy9pVDFxusGNFBm2/ +uYnImtUM3FTtVHWRtm7AAZGvAgwU/3H+zUnaPEPv8rjEGFi23SD4//l0elnt +YEgzsGjztU492vfeV3VuZzIwVTBxUIJ2oN02P5cNDJzX1ro3S+dv0Ph4WZgS +A3+8uCXSTLv3ZarSMy0GTo51CQTRfqzNW9mqR5/fsjFzJ+0w9lmHcWTg01Mv +BtbQFrnrG73ZjIE8GzoS0/9fPxIfRE2sGVjnyZx3pU2lWOcfsGeg/etnslK0 +rWJ0uu+4M3Dfd67biXQ9yvzJP1qxn4G+rOE5A9ojQUyuj4cY2P0lQGCaru+4 +g39tEQtkoOrTihhz2ns/RVRphjKwj1X6aYruB3nnacc9Zxm4+L6UI432K7OP +5xLjGJhivz2+k+6nxGob8ccJDEw0Wpg/TtuF9aagNpmBJ0+pq/HQ/rWlsGd5 +BgOp1vg5Jbof1QWiVMJJOk/neAFrur85Ls1UpxUx8ByL/aHFku4nrsPORWUM +jGe6BVvSPjJjGzPxmoGGqj+YSM+LnG75977v6PtJ0jy5aErBCZsbx2P6GHhD +fOrTftpYt5o7+wsD9YrOKNaaUPCxbFa1d4yBzdceWcTR80oks+a8HRcTn8t4 +LvbvovMUZUmd4GFi+mzEPhXaVBJJXl7NxC52f3rYTjrP6Jsf6kSZuOaOatNK +QzovHz/1HUpMHF1D8S0CfX+b1/Yq2zNRd2SAx46ex7MZElEazkw0eLbB6dQ2 +CqbXrJfXcWfigyGz8hRtut+ndA7vPMTEeZvBirf0PB8o8551PsNEYSfvj3z0 +/K8ze84fd4+Jeyt6w/noffL2xT9kwiMmBlm6xy3R+6ZapcEupZCJARztpT82 +UPBS8NPN2yVMZJQGXnu7nr7+97wbnjUy0fMZaWrPoOffETcYmGFihupiyX/0 +frv+8eDAt3kmflieXVxI77+rVidjRpeYKKI/On5CmH6eGnH1c6vkMJnnmOCE +AAXRC6TDGhk5XCwwNmxYTT+PSyuO6xvJ4UUJ+UNLnBTo5z3OunZNDo28XlZ4 +DpPwnsjL3HVLDj3vTIaM/EdC2LWHt6cz5VA3+/tw4HcSnkflpts+lEO3s65c +EYP0/nfMSuMvl8NhBQeRkD4SNq24mnT+kxyaea998aeVft9xD48MUpLHnR06 +2T7FJDxrD41YryaPG1Mr8x4WkWBnGnK2XVMez7XVJw0/JSFZ89RpdZDHd6ca +pg+SJKzmOxYyZiOPq/4kGpo+ImF5idfxA8Hy+OiAycz9WyRMCJh67K2Ux8GH +klFdp0no9mO2HH4rj/NS9RwFYSS8ejMPEQ3yaBb1WiE6hISksDzZB53ymGt5 ++IhcIAmqA3x9v4bk0SFYhcP0CAn+ZLNrhuB6fDpw+vZGJxKGrOz3fdm/HkPl +vKc0NUj4Eu+x98RKBTzYuDD5mX5/9B9SYqryKaDFxevNrr1s+Ln71+joWgXk +2Jg82fGeDbxcyTGHJBQwXvTi2n862aAaWvXUQ1kBexzam6Ib2HDGR0HQao8C +FuWn+j57zgaR7SPNmzMVcC8jP7svng0mP4JNBrU2oBq3BitBnQ0j3jwnn0Zs +RD/BST3t4gL6+0SUM7ZyE344u4xj0/BjEGhUSGT/UMSfcccyjsnlgVRcobWW +lhJa3Oc70iL3ENI266wV9FXGI7GHxC9uvw91Ejs0p65swTNpKxS2eN8DXanK +JJVOFUySClKw8M0Gfq67gZ7RqljfpO545+YdkImS1XdSUEOLswe8XwZlwqr1 +LkW2b9VwqTF3iLlwC7awxAuDXdVxv6nbYMZoGpzoFagy5dBAq8KacVZPKv1d +FW9vkqaBnfpvtttqpMBulTc3TZS3ojRflY5oaxK8nNJb+Nm0FVVLo9eGzsSD +v5L6u399NDGlbXDBnecCsMb2tzut0kLuD4myV1kxsEtezGL1XS08vD1V54NU +NGyMvBhSqa2NDN0H55z+PQuKPjoV699p42q+8CNLT0LB5+XBv58GbMPPzuG2 +iimnoCKrff+EsA62+Mn5hZcHwPSDpZ8qz3XQ1//+QojwUfBen7fqpoUuKuxT +6XLiOQhhr90OK1jrIq98Q7D2tC8k+QjUU7a6+J+zcopcvy+U3wuNr3fQxZOC +w+Ibin1BSMF4zaKnLi4zSIt5d9AX3igMCnkE6SL/lZTm4YYDoLhRllDI1EXu +PQuhkZk+MKGYokWN62Lbcp/Ecj9v6G7AXYJTurh1YKOuqKs3vPIf2xM4o4uy +8txtpy28IZEyCdCa10V0q35ycIs3KOpyPC7l0sOVfVWxleNe4GVylFEloocf +BZc0QoO9oN13N1+7vh6eiYrpron3hOKchU8zcXo4enmB2pPnDlqGgT9NL+lh +v7yhQu4Vd3j2aYQvK0EP2xffNfKGuAMl06ttmqyHAR+Fk3h3ucPjtFcJt2/p +4chm0/KBPjfIio/R2V2gh1EX5tNHxNzgQuCaK2ltepjLdrkmk+YCzjvlUE9G +H1vC/WdqapxgsZ2Hv4rQR+H04YnzpBNk+Yy9N5XTR2PbZYcdbjrB1/Mlwc4b +9fGPXki6ip8TnKi1KgxV18dryTbFZWud4KLlaZliI308eOWc2TZXRyh17Pi9 +9Zg+EqO3fh/jcgDJo7ElW17po8VUlIldtB0kLh3QvFSpjwX/POu+cdwOOJON +yG/V+qhx5NOyUTc7GCpa8TCrVh/FpImlMj07KOX4O02gTR+vnpImF2b2gPPV +yODZQX2MYEe6z/vtgbSyUM2Xf7Hw5pMe6ZL9tiDM60daOLDQJ0Bb6EioNeQY +ngkbd2KhbRSXptwha1A/k2iY4sLCBlGuZ/85WoPlOLuj25OFGXej7t/ZZg3n +O2d+efuxMPaqnF3IhBXM3Y0wCIti4V9fBR/L/7SEd3opbbl5LPx2JV9wWsQC +Dp7KSTcpYOHC5FfDtl/mMFvwzGeEzUL8p/Z6wwdzEGB2/1QrYuHjl7bOq7PN +wYxHWurFKxaKnQyWfK1qDuXtufvbOuj/yy/W/21tBqb8xcpB3SzckqriFKhp +Bt27a2fF3rPwR3+56woJM5guHY5z62dhBHfTvwGfTUH5jmr+f0MsrNXTNTsR +bArl73YExY+y0JEdnVDoYgqmQntAZZyF/G8DZVYYmMKB2FP/Bs6w8KlnWP8c +nylMvzp/U3SOhRbd5cPXJk0gev66d+k8Cz2auefNu01g7daHSq6LLGxxj5+T +eGkCt4+WziwtsXD7moR2jhwT+B8vWRgV + "]]}, + 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:eJwV13k4FYsbB3BRkiuVfTfnkEpkC1lO7xsl+xZZsktapJSslaUrKiRSKqJI +i3BmKtlKF5Wda9eClOrasieS3/z+Os/nmec5M/Odd5lheB2z9eHk4OAglnFw +/P93tre2Wv5SzvYV7Jpy230G29tvi4Xu6I6GivWrCko6CUDhZi+x7mQolorh +TOlUhSDrR11c3XdhW0h9W0gnwrox0eRfXRTsmW9wtO60hr5yy2PTXZXwY0r5 +clOHBxjJD32c6GqFdN2IjK624/CrSzt1vGsAYv0l1nM3REKV4f2cf+9OwdHw +J7UVLldAqq/kq5fSIvSav8u3CLkBQn7uj1YacqF/8u6VXrFZkKxmVGZpz4OO +untERbxyoCdN9dXE2tWYMrdLNaHwPlzKiWjmFF+H7hcP60UOPgLRq58vpGQI +ovs6NTHt7HwQ2/zs77lcQUznCn5153E+SFSej3BlC2Ldq1pb7qJ8kBnfdGpD +lSC2VHWqvqjJh/Xmxz3KvtPHm+rIT6P5oLF8UeuzhhBmM6rfLtcuAKtAkS/q +dUJoXsZVlFddALF2JttbZ4Uxamzsl1FjIUg8bZLgXCaCQjsZOY0dhVAgaPdT +7S8RzHtC9Jv3FkJnqxv7iqwIxs3K8mr+KAR5m0CmjbEIXukKXrmXhw2VFpnc +LTdE8MinLmGJTWxYNJppatQXxaHD4p/bfNmQlBuWt2gkiiKcqzIyj7BBnpsj +TtlGFK/1zV/1PcYG89e8OxJ8RLF18RtrJIgNNw2JJ+aJoljy1vhoTQwbtqHZ +9fo+URQPb1jXcJcNJ3XuuNdGi+Fpua5tSz1sMM3inzaLF8PLx899Fv/IBubK +03FNqWL4fJ+OoVo/G1ra95JtD8TwokAMY+9XNmw5zsfV2ySG7BVKjiGTbPie +G5w7KSGODo8e3JPhJcFFyHJU8ok4xtXdfz6pRYJGeFnU7XJxjI2u+JWtQwLv +wEYRxhtxNFGfHbfRJ6GkkAsUesRR9BjPUvYOEkTMSpJUl8Qx0WviFmFOQkuU +/NZdZhLoJlA0Gu5Bws4f82H+nyXQabdxY9l5EkKNryr+MyKB6itfnZyLI6Hg +jvI7wVkJbHygOq12iQQxOw+dEh5JnKoqOXfrMgkjxa9/cm2RxID+ugHjNBJS +opMCb4RI4t8Sn5r4HpIwIKzgX71aCoMZPH90a0gQPVYhLSoqhbEdbtaCdSSY +1zg2HiKk8GKR9d/f60koCruktEZDCjN/aSZfaCbhYt/4kJOjFJYcj7XM7SRB +/WGZ74+7UnjZTzHJ9AsJUfo2nhLbpHF/2s9buEiCsdvtSW0DaayVu+LU8YcE +/sjhc/bm0miQ6B9ygIOC9KqY3CQPaWyU4f5whouCYtPSYe4L0sio9DCJWkXB +uKNc0FSPNJ7YYan1XoiC52HHV677Io3iHheMtUQoOJv+Im3LmDRacLdWJ4hS +wNfvUHaIUwbfSn1dVJOgYINvPEe/ogwOFTRHW8lS4HZq5mJDuAw+7OD07NtI +wfrrBlJDMTKIOOeyTJGi87ucvzJJBk8oDjbIbqYg7PemFoMcGTS5YPSXrTIF +qefchEsaZNAqpV4oXo0Cl3t5uZ2dMvg0SLzqijoFzLdz2tP9tCVfDKVoUMDm +TXFWmZHBFIPaBwmaFDRceZt5T1oWd01emNqrQ0HKEyG1qg2ymGAmGIm6FDh3 +eFb2q8niz52plxT0KPgu9vuLpJEscmYfZH7Xp4ArS1Ux2V8WnROavHcgBboF +N56erZBFG/PVH82NKNjZ1bQ4ViOLzdVnv03StuRYvtu9VRbtRXx+pO6mwNvW +vwcGZVFiRna+1ZgCo3BGROQKAv/Y+q7eZEZB/Zry7G28BC70JQs/p22ds7dm +nJ9A/cgDhIE5BfsaL63zFCPQe1kBWllQcFx2NnvHZgIzdke+3GVFwcyTpJpf +KgRK7384VkY7zHjzKLmVwFLJXgUVawpiAjy0mNsJdN+pSPHZUMDLveD8zoDA +rKhs7mDaSTdTI5J3E3hpYtinl/bNqroaThsCY4WLdufYUiDr6DNaak+g1snM +es49FOSMLK076Uxgr/0GVzfahcKa+z57E+jz+788PjsKqn0zR6uCCDx61ojP +yJ4Ck986AqfDCVyRrrgugXZTUrvW1kgC4Zb/pn9p95Ssisy5QGBC9PLr1nvp +erHMyXFJJHDapnn0Eu0vA9trhVIIJFuGnatpj/0VKBCTTqDOEcFwJQcKTmbx +a7PuECi8JkPFhfbc1of7Zu4RGBRwajGO9tlaw8j8RwS+ueo6SNHmcuvN8Skk +UFZZ9HsP7bjJkFrppwS2Ze7n/kObP1ZwrKOYwM+cq3bIOtL1IlkgkPiCzkeq +Jo1FW4xtrG1USWCd1wF+J9oZOz/v+/OGzmP+wd0A2syeM5FF9fT5iu33xtJ+ +cFTsnn8Lgc0yGoo3aStzPqlV6CCQx5VH9hFt6prFWG8Pga3WGZrPaW/b/F3g +ei+Bjn+X+v9D+0VFtLbVZwIlt2yqr6FtYCftsvI7gf6qT8waab/9/jyyYoTA +KTG5iSba5mds7wVPELiZ2Fn+/+Ot60ZrVWYJHN44kF9L2yE3duzbPIEfKmrf +VNL+oMsUzFqir0eyZmUJba/mcm3H5Qx0EM8LeEz7m7eDy9pVDFxusGNFBm2/ +uYnImtUM3FTtVHWRtm7AAZGvAgwU/3H+zUnaPEPv8rjEGFi23SD4//l0elnt +YEgzsGjztU492vfeV3VuZzIwVTBxUIJ2oN02P5cNDJzX1ro3S+dv0Ph4WZgS +A3+8uCXSTLv3ZarSMy0GTo51CQTRfqzNW9mqR5/fsjFzJ+0w9lmHcWTg01Mv +BtbQFrnrG73ZjIE8GzoS0/9fPxIfRE2sGVjnyZx3pU2lWOcfsGeg/etnslK0 +rWJ0uu+4M3Dfd67biXQ9yvzJP1qxn4G+rOE5A9ojQUyuj4cY2P0lQGCaru+4 +g39tEQtkoOrTihhz2ns/RVRphjKwj1X6aYruB3nnacc9Zxm4+L6UI432K7OP +5xLjGJhivz2+k+6nxGob8ccJDEw0Wpg/TtuF9aagNpmBJ0+pq/HQ/rWlsGd5 +BgOp1vg5Jbof1QWiVMJJOk/neAFrur85Ls1UpxUx8ByL/aHFku4nrsPORWUM +jGe6BVvSPjJjGzPxmoGGqj+YSM+LnG75977v6PtJ0jy5aErBCZsbx2P6GHhD +fOrTftpYt5o7+wsD9YrOKNaaUPCxbFa1d4yBzdceWcTR80oks+a8HRcTn8t4 +LvbvovMUZUmd4GFi+mzEPhXaVBJJXl7NxC52f3rYTjrP6Jsf6kSZuOaOatNK +QzovHz/1HUpMHF1D8S0CfX+b1/Yq2zNRd2SAx46ex7MZElEazkw0eLbB6dQ2 +CqbXrJfXcWfigyGz8hRtut+ndA7vPMTEeZvBirf0PB8o8551PsNEYSfvj3z0 +/K8ze84fd4+Jeyt6w/noffL2xT9kwiMmBlm6xy3R+6ZapcEupZCJARztpT82 +UPBS8NPN2yVMZJQGXnu7nr7+97wbnjUy0fMZaWrPoOffETcYmGFihupiyX/0 +frv+8eDAt3kmflieXVxI77+rVidjRpeYKKI/On5CmH6eGnH1c6vkMJnnmOCE +AAXRC6TDGhk5XCwwNmxYTT+PSyuO6xvJ4UUJ+UNLnBTo5z3OunZNDo28XlZ4 +DpPwnsjL3HVLDj3vTIaM/EdC2LWHt6cz5VA3+/tw4HcSnkflpts+lEO3s65c +EYP0/nfMSuMvl8NhBQeRkD4SNq24mnT+kxyaea998aeVft9xD48MUpLHnR06 +2T7FJDxrD41YryaPG1Mr8x4WkWBnGnK2XVMez7XVJw0/JSFZ89RpdZDHd6ca +pg+SJKzmOxYyZiOPq/4kGpo+ImF5idfxA8Hy+OiAycz9WyRMCJh67K2Ux8GH +klFdp0no9mO2HH4rj/NS9RwFYSS8ejMPEQ3yaBb1WiE6hISksDzZB53ymGt5 ++IhcIAmqA3x9v4bk0SFYhcP0CAn+ZLNrhuB6fDpw+vZGJxKGrOz3fdm/HkPl +vKc0NUj4Eu+x98RKBTzYuDD5mX5/9B9SYqryKaDFxevNrr1s+Ln71+joWgXk +2Jg82fGeDbxcyTGHJBQwXvTi2n862aAaWvXUQ1kBexzam6Ib2HDGR0HQao8C +FuWn+j57zgaR7SPNmzMVcC8jP7svng0mP4JNBrU2oBq3BitBnQ0j3jwnn0Zs +RD/BST3t4gL6+0SUM7ZyE344u4xj0/BjEGhUSGT/UMSfcccyjsnlgVRcobWW +lhJa3Oc70iL3ENI266wV9FXGI7GHxC9uvw91Ejs0p65swTNpKxS2eN8DXanK +JJVOFUySClKw8M0Gfq67gZ7RqljfpO545+YdkImS1XdSUEOLswe8XwZlwqr1 +LkW2b9VwqTF3iLlwC7awxAuDXdVxv6nbYMZoGpzoFagy5dBAq8KacVZPKv1d +FW9vkqaBnfpvtttqpMBulTc3TZS3ojRflY5oaxK8nNJb+Nm0FVVLo9eGzsSD +v5L6u399NDGlbXDBnecCsMb2tzut0kLuD4myV1kxsEtezGL1XS08vD1V54NU +NGyMvBhSqa2NDN0H55z+PQuKPjoV699p42q+8CNLT0LB5+XBv58GbMPPzuG2 +iimnoCKrff+EsA62+Mn5hZcHwPSDpZ8qz3XQ1//+QojwUfBen7fqpoUuKuxT +6XLiOQhhr90OK1jrIq98Q7D2tC8k+QjUU7a6+J+zcopcvy+U3wuNr3fQxZOC +w+Ibin1BSMF4zaKnLi4zSIt5d9AX3igMCnkE6SL/lZTm4YYDoLhRllDI1EXu +PQuhkZk+MKGYokWN62Lbcp/Ecj9v6G7AXYJTurh1YKOuqKs3vPIf2xM4o4uy +8txtpy28IZEyCdCa10V0q35ycIs3KOpyPC7l0sOVfVWxleNe4GVylFEloocf +BZc0QoO9oN13N1+7vh6eiYrpron3hOKchU8zcXo4enmB2pPnDlqGgT9NL+lh +v7yhQu4Vd3j2aYQvK0EP2xffNfKGuAMl06ttmqyHAR+Fk3h3ucPjtFcJt2/p +4chm0/KBPjfIio/R2V2gh1EX5tNHxNzgQuCaK2ltepjLdrkmk+YCzjvlUE9G +H1vC/WdqapxgsZ2Hv4rQR+H04YnzpBNk+Yy9N5XTR2PbZYcdbjrB1/Mlwc4b +9fGPXki6ip8TnKi1KgxV18dryTbFZWud4KLlaZliI308eOWc2TZXRyh17Pi9 +9Zg+EqO3fh/jcgDJo7ElW17po8VUlIldtB0kLh3QvFSpjwX/POu+cdwOOJON +yG/V+qhx5NOyUTc7GCpa8TCrVh/FpImlMj07KOX4O02gTR+vnpImF2b2gPPV +yODZQX2MYEe6z/vtgbSyUM2Xf7Hw5pMe6ZL9tiDM60daOLDQJ0Bb6EioNeQY +ngkbd2KhbRSXptwha1A/k2iY4sLCBlGuZ/85WoPlOLuj25OFGXej7t/ZZg3n +O2d+efuxMPaqnF3IhBXM3Y0wCIti4V9fBR/L/7SEd3opbbl5LPx2JV9wWsQC +Dp7KSTcpYOHC5FfDtl/mMFvwzGeEzUL8p/Z6wwdzEGB2/1QrYuHjl7bOq7PN +wYxHWurFKxaKnQyWfK1qDuXtufvbOuj/yy/W/21tBqb8xcpB3SzckqriFKhp +Bt27a2fF3rPwR3+56woJM5guHY5z62dhBHfTvwGfTUH5jmr+f0MsrNXTNTsR +bArl73YExY+y0JEdnVDoYgqmQntAZZyF/G8DZVYYmMKB2FP/Bs6w8KlnWP8c +nylMvzp/U3SOhRbd5cPXJk0gev66d+k8Cz2auefNu01g7daHSq6LLGxxj5+T +eGkCt4+WziwtsXD7moR2jhwT+B8vWRgV + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.0716676081384298}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.0716676081384298}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJwV13k4FYsbB3BRkiuVfTfnkEpkC1lO7xsl+xZZsktapJSslaUrKiRSKqJI +i3BmKtlKF5Wda9eClOrasieS3/z+Os/nmec5M/Odd5lheB2z9eHk4OAglnFw +/P93tre2Wv5SzvYV7Jpy230G29tvi4Xu6I6GivWrCko6CUDhZi+x7mQolorh +TOlUhSDrR11c3XdhW0h9W0gnwrox0eRfXRTsmW9wtO60hr5yy2PTXZXwY0r5 +clOHBxjJD32c6GqFdN2IjK624/CrSzt1vGsAYv0l1nM3REKV4f2cf+9OwdHw +J7UVLldAqq/kq5fSIvSav8u3CLkBQn7uj1YacqF/8u6VXrFZkKxmVGZpz4OO +untERbxyoCdN9dXE2tWYMrdLNaHwPlzKiWjmFF+H7hcP60UOPgLRq58vpGQI +ovs6NTHt7HwQ2/zs77lcQUznCn5153E+SFSej3BlC2Ldq1pb7qJ8kBnfdGpD +lSC2VHWqvqjJh/Xmxz3KvtPHm+rIT6P5oLF8UeuzhhBmM6rfLtcuAKtAkS/q +dUJoXsZVlFddALF2JttbZ4Uxamzsl1FjIUg8bZLgXCaCQjsZOY0dhVAgaPdT +7S8RzHtC9Jv3FkJnqxv7iqwIxs3K8mr+KAR5m0CmjbEIXukKXrmXhw2VFpnc +LTdE8MinLmGJTWxYNJppatQXxaHD4p/bfNmQlBuWt2gkiiKcqzIyj7BBnpsj +TtlGFK/1zV/1PcYG89e8OxJ8RLF18RtrJIgNNw2JJ+aJoljy1vhoTQwbtqHZ +9fo+URQPb1jXcJcNJ3XuuNdGi+Fpua5tSz1sMM3inzaLF8PLx899Fv/IBubK +03FNqWL4fJ+OoVo/G1ra95JtD8TwokAMY+9XNmw5zsfV2ySG7BVKjiGTbPie +G5w7KSGODo8e3JPhJcFFyHJU8ok4xtXdfz6pRYJGeFnU7XJxjI2u+JWtQwLv +wEYRxhtxNFGfHbfRJ6GkkAsUesRR9BjPUvYOEkTMSpJUl8Qx0WviFmFOQkuU +/NZdZhLoJlA0Gu5Bws4f82H+nyXQabdxY9l5EkKNryr+MyKB6itfnZyLI6Hg +jvI7wVkJbHygOq12iQQxOw+dEh5JnKoqOXfrMgkjxa9/cm2RxID+ugHjNBJS +opMCb4RI4t8Sn5r4HpIwIKzgX71aCoMZPH90a0gQPVYhLSoqhbEdbtaCdSSY +1zg2HiKk8GKR9d/f60koCruktEZDCjN/aSZfaCbhYt/4kJOjFJYcj7XM7SRB +/WGZ74+7UnjZTzHJ9AsJUfo2nhLbpHF/2s9buEiCsdvtSW0DaayVu+LU8YcE +/sjhc/bm0miQ6B9ygIOC9KqY3CQPaWyU4f5whouCYtPSYe4L0sio9DCJWkXB +uKNc0FSPNJ7YYan1XoiC52HHV677Io3iHheMtUQoOJv+Im3LmDRacLdWJ4hS +wNfvUHaIUwbfSn1dVJOgYINvPEe/ogwOFTRHW8lS4HZq5mJDuAw+7OD07NtI +wfrrBlJDMTKIOOeyTJGi87ucvzJJBk8oDjbIbqYg7PemFoMcGTS5YPSXrTIF +qefchEsaZNAqpV4oXo0Cl3t5uZ2dMvg0SLzqijoFzLdz2tP9tCVfDKVoUMDm +TXFWmZHBFIPaBwmaFDRceZt5T1oWd01emNqrQ0HKEyG1qg2ymGAmGIm6FDh3 +eFb2q8niz52plxT0KPgu9vuLpJEscmYfZH7Xp4ArS1Ux2V8WnROavHcgBboF +N56erZBFG/PVH82NKNjZ1bQ4ViOLzdVnv03StuRYvtu9VRbtRXx+pO6mwNvW +vwcGZVFiRna+1ZgCo3BGROQKAv/Y+q7eZEZB/Zry7G28BC70JQs/p22ds7dm +nJ9A/cgDhIE5BfsaL63zFCPQe1kBWllQcFx2NnvHZgIzdke+3GVFwcyTpJpf +KgRK7384VkY7zHjzKLmVwFLJXgUVawpiAjy0mNsJdN+pSPHZUMDLveD8zoDA +rKhs7mDaSTdTI5J3E3hpYtinl/bNqroaThsCY4WLdufYUiDr6DNaak+g1snM +es49FOSMLK076Uxgr/0GVzfahcKa+z57E+jz+788PjsKqn0zR6uCCDx61ojP +yJ4Ck986AqfDCVyRrrgugXZTUrvW1kgC4Zb/pn9p95Ssisy5QGBC9PLr1nvp +erHMyXFJJHDapnn0Eu0vA9trhVIIJFuGnatpj/0VKBCTTqDOEcFwJQcKTmbx +a7PuECi8JkPFhfbc1of7Zu4RGBRwajGO9tlaw8j8RwS+ueo6SNHmcuvN8Skk +UFZZ9HsP7bjJkFrppwS2Ze7n/kObP1ZwrKOYwM+cq3bIOtL1IlkgkPiCzkeq +Jo1FW4xtrG1USWCd1wF+J9oZOz/v+/OGzmP+wd0A2syeM5FF9fT5iu33xtJ+ +cFTsnn8Lgc0yGoo3aStzPqlV6CCQx5VH9hFt6prFWG8Pga3WGZrPaW/b/F3g +ei+Bjn+X+v9D+0VFtLbVZwIlt2yqr6FtYCftsvI7gf6qT8waab/9/jyyYoTA +KTG5iSba5mds7wVPELiZ2Fn+/+Ot60ZrVWYJHN44kF9L2yE3duzbPIEfKmrf +VNL+oMsUzFqir0eyZmUJba/mcm3H5Qx0EM8LeEz7m7eDy9pVDFxusGNFBm2/ +uYnImtUM3FTtVHWRtm7AAZGvAgwU/3H+zUnaPEPv8rjEGFi23SD4//l0elnt +YEgzsGjztU492vfeV3VuZzIwVTBxUIJ2oN02P5cNDJzX1ro3S+dv0Ph4WZgS +A3+8uCXSTLv3ZarSMy0GTo51CQTRfqzNW9mqR5/fsjFzJ+0w9lmHcWTg01Mv +BtbQFrnrG73ZjIE8GzoS0/9fPxIfRE2sGVjnyZx3pU2lWOcfsGeg/etnslK0 +rWJ0uu+4M3Dfd67biXQ9yvzJP1qxn4G+rOE5A9ojQUyuj4cY2P0lQGCaru+4 +g39tEQtkoOrTihhz2ns/RVRphjKwj1X6aYruB3nnacc9Zxm4+L6UI432K7OP +5xLjGJhivz2+k+6nxGob8ccJDEw0Wpg/TtuF9aagNpmBJ0+pq/HQ/rWlsGd5 +BgOp1vg5Jbof1QWiVMJJOk/neAFrur85Ls1UpxUx8ByL/aHFku4nrsPORWUM +jGe6BVvSPjJjGzPxmoGGqj+YSM+LnG75977v6PtJ0jy5aErBCZsbx2P6GHhD +fOrTftpYt5o7+wsD9YrOKNaaUPCxbFa1d4yBzdceWcTR80oks+a8HRcTn8t4 +LvbvovMUZUmd4GFi+mzEPhXaVBJJXl7NxC52f3rYTjrP6Jsf6kSZuOaOatNK +QzovHz/1HUpMHF1D8S0CfX+b1/Yq2zNRd2SAx46ex7MZElEazkw0eLbB6dQ2 +CqbXrJfXcWfigyGz8hRtut+ndA7vPMTEeZvBirf0PB8o8551PsNEYSfvj3z0 +/K8ze84fd4+Jeyt6w/noffL2xT9kwiMmBlm6xy3R+6ZapcEupZCJARztpT82 +UPBS8NPN2yVMZJQGXnu7nr7+97wbnjUy0fMZaWrPoOffETcYmGFihupiyX/0 +frv+8eDAt3kmflieXVxI77+rVidjRpeYKKI/On5CmH6eGnH1c6vkMJnnmOCE +AAXRC6TDGhk5XCwwNmxYTT+PSyuO6xvJ4UUJ+UNLnBTo5z3OunZNDo28XlZ4 +DpPwnsjL3HVLDj3vTIaM/EdC2LWHt6cz5VA3+/tw4HcSnkflpts+lEO3s65c +EYP0/nfMSuMvl8NhBQeRkD4SNq24mnT+kxyaea998aeVft9xD48MUpLHnR06 +2T7FJDxrD41YryaPG1Mr8x4WkWBnGnK2XVMez7XVJw0/JSFZ89RpdZDHd6ca +pg+SJKzmOxYyZiOPq/4kGpo+ImF5idfxA8Hy+OiAycz9WyRMCJh67K2Ux8GH +klFdp0no9mO2HH4rj/NS9RwFYSS8ejMPEQ3yaBb1WiE6hISksDzZB53ymGt5 ++IhcIAmqA3x9v4bk0SFYhcP0CAn+ZLNrhuB6fDpw+vZGJxKGrOz3fdm/HkPl +vKc0NUj4Eu+x98RKBTzYuDD5mX5/9B9SYqryKaDFxevNrr1s+Ln71+joWgXk +2Jg82fGeDbxcyTGHJBQwXvTi2n862aAaWvXUQ1kBexzam6Ib2HDGR0HQao8C +FuWn+j57zgaR7SPNmzMVcC8jP7svng0mP4JNBrU2oBq3BitBnQ0j3jwnn0Zs +RD/BST3t4gL6+0SUM7ZyE344u4xj0/BjEGhUSGT/UMSfcccyjsnlgVRcobWW +lhJa3Oc70iL3ENI266wV9FXGI7GHxC9uvw91Ejs0p65swTNpKxS2eN8DXanK +JJVOFUySClKw8M0Gfq67gZ7RqljfpO545+YdkImS1XdSUEOLswe8XwZlwqr1 +LkW2b9VwqTF3iLlwC7awxAuDXdVxv6nbYMZoGpzoFagy5dBAq8KacVZPKv1d +FW9vkqaBnfpvtttqpMBulTc3TZS3ojRflY5oaxK8nNJb+Nm0FVVLo9eGzsSD +v5L6u399NDGlbXDBnecCsMb2tzut0kLuD4myV1kxsEtezGL1XS08vD1V54NU +NGyMvBhSqa2NDN0H55z+PQuKPjoV699p42q+8CNLT0LB5+XBv58GbMPPzuG2 +iimnoCKrff+EsA62+Mn5hZcHwPSDpZ8qz3XQ1//+QojwUfBen7fqpoUuKuxT +6XLiOQhhr90OK1jrIq98Q7D2tC8k+QjUU7a6+J+zcopcvy+U3wuNr3fQxZOC +w+Ibin1BSMF4zaKnLi4zSIt5d9AX3igMCnkE6SL/lZTm4YYDoLhRllDI1EXu +PQuhkZk+MKGYokWN62Lbcp/Ecj9v6G7AXYJTurh1YKOuqKs3vPIf2xM4o4uy +8txtpy28IZEyCdCa10V0q35ycIs3KOpyPC7l0sOVfVWxleNe4GVylFEloocf +BZc0QoO9oN13N1+7vh6eiYrpron3hOKchU8zcXo4enmB2pPnDlqGgT9NL+lh +v7yhQu4Vd3j2aYQvK0EP2xffNfKGuAMl06ttmqyHAR+Fk3h3ucPjtFcJt2/p +4chm0/KBPjfIio/R2V2gh1EX5tNHxNzgQuCaK2ltepjLdrkmk+YCzjvlUE9G +H1vC/WdqapxgsZ2Hv4rQR+H04YnzpBNk+Yy9N5XTR2PbZYcdbjrB1/Mlwc4b +9fGPXki6ip8TnKi1KgxV18dryTbFZWud4KLlaZliI308eOWc2TZXRyh17Pi9 +9Zg+EqO3fh/jcgDJo7ElW17po8VUlIldtB0kLh3QvFSpjwX/POu+cdwOOJON +yG/V+qhx5NOyUTc7GCpa8TCrVh/FpImlMj07KOX4O02gTR+vnpImF2b2gPPV +yODZQX2MYEe6z/vtgbSyUM2Xf7Hw5pMe6ZL9tiDM60daOLDQJ0Bb6EioNeQY +ngkbd2KhbRSXptwha1A/k2iY4sLCBlGuZ/85WoPlOLuj25OFGXej7t/ZZg3n +O2d+efuxMPaqnF3IhBXM3Y0wCIti4V9fBR/L/7SEd3opbbl5LPx2JV9wWsQC +Dp7KSTcpYOHC5FfDtl/mMFvwzGeEzUL8p/Z6wwdzEGB2/1QrYuHjl7bOq7PN +wYxHWurFKxaKnQyWfK1qDuXtufvbOuj/yy/W/21tBqb8xcpB3SzckqriFKhp +Bt27a2fF3rPwR3+56woJM5guHY5z62dhBHfTvwGfTUH5jmr+f0MsrNXTNTsR +bArl73YExY+y0JEdnVDoYgqmQntAZZyF/G8DZVYYmMKB2FP/Bs6w8KlnWP8c +nylMvzp/U3SOhRbd5cPXJk0gev66d+k8Cz2auefNu01g7daHSq6LLGxxj5+T +eGkCt4+WziwtsXD7moR2jhwT+B8vWRgV + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.0716676081384298}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.0716676081384298}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993959853356254*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"28a1a56d-46a4-4c72-a390-e3f4b15a1ea5"] }, 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.005381"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.015959"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.025999"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.035173"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.043213"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.049902"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.055111"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.058771"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.060904"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.061577"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.060934"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.059136"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.056395"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.052912"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.048907"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.044569"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.040087"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.035606"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.031259"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.027134"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.023309"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.019818"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.016691"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.013926"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.01152"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.009447"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.007687"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.006205"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.004972"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.003954"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.003124"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.993959045822629*^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:eJxTTMoPSmViYGCQB2IQDQNLGAINkrnK7CG8D/YFW/1i+sInQPkMDkmGr6Kq +58+C8jkczrencxoxLYLyBRw0tNtWMyssg/JFHAL6mFwO9qyE8iUc3u708W0y +XwPlyzi85X7Rai2+DspXcJimnKJwXm89lK/koKgQ78TaDuOrOFidyz201wjG +V3PYGsTxRMgdpl/D4cmtAMNz92HmazmUHVGU9hBfDeXrOAA5s8O4YO7RcyjZ +dKVq/0WYew0clAL+Nnu0LYHyDR1s9EWlP1vB/GfkcNon868u4wIo39jhkHfB +K+aTs6F8E4edQeebAu5Nh/JNHeT5a8u1vadA+WYOttd6eIrEJ0L55g6HXZpF +bFp7oHwLB/5r/y3PTG+H8i0dus7EPPgU0QzlWzkw5q6OTK+ph/KtHd7OVGXM +yqqE8m0cpK+FiLXGlkD5tg4f5zGfFjQqgPLtHO40Ld3VMD3THgDPenlb + "]]}, + 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:eJxTTMoPSmViYGCQB2IQDQNLGAINkrnK7CG8D/YFW/1i+sInQPkMDkmGr6Kq +58+C8jkczrencxoxLYLyBRw0tNtWMyssg/JFHAL6mFwO9qyE8iUc3u708W0y +XwPlyzi85X7Rai2+DspXcJimnKJwXm89lK/koKgQ78TaDuOrOFidyz201wjG +V3PYGsTxRMgdpl/D4cmtAMNz92HmazmUHVGU9hBfDeXrOAA5s8O4YO7RcyjZ +dKVq/0WYew0clAL+Nnu0LYHyDR1s9EWlP1vB/GfkcNon868u4wIo39jhkHfB +K+aTs6F8E4edQeebAu5Nh/JNHeT5a8u1vadA+WYOttd6eIrEJ0L55g6HXZpF +bFp7oHwLB/5r/y3PTG+H8i0dus7EPPgU0QzlWzkw5q6OTK+ph/KtHd7OVGXM +yqqE8m0cpK+FiLXGlkD5tg4f5zGfFjQqgPLtHO40Ld3VMD3THgDPenlb + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.061577}}, + "Frame" -> {{False, 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.061577}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGCQB2IQDQNLGAINkrnK7CG8D/YFW/1i+sInQPkMDkmGr6Kq +58+C8jkczrencxoxLYLyBRw0tNtWMyssg/JFHAL6mFwO9qyE8iUc3u708W0y +XwPlyzi85X7Rai2+DspXcJimnKJwXm89lK/koKgQ78TaDuOrOFidyz201wjG +V3PYGsTxRMgdpl/D4cmtAMNz92HmazmUHVGU9hBfDeXrOAA5s8O4YO7RcyjZ +dKVq/0WYew0clAL+Nnu0LYHyDR1s9EWlP1vB/GfkcNon868u4wIo39jhkHfB +K+aTs6F8E4edQeebAu5Nh/JNHeT5a8u1vadA+WYOttd6eIrEJ0L55g6HXZpF +bFp7oHwLB/5r/y3PTG+H8i0dus7EPPgU0QzlWzkw5q6OTK+ph/KtHd7OVGXM +yqqE8m0cpK+FiLXGlkD5tg4f5zGfFjQqgPLtHO40Ld3VMD3THgDPenlb + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.061577}}, + "Frame" -> {{False, 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.061577}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993959853519068*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"4b2bd4ee-ed08-4207-9cf0-ec56fb12b4a3"] +}, 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:eJwV13k4FYsbB3BRkiuVfTfnkEpkC1lO7xsl+xZZsktapJSslaUrKiRSKqJI +i3BmKtlKF5Wda9eClOrasieS3/z+Os/nmec5M/Odd5lheB2z9eHk4OAglnFw +/P93tre2Wv5SzvYV7Jpy230G29tvi4Xu6I6GivWrCko6CUDhZi+x7mQolorh +TOlUhSDrR11c3XdhW0h9W0gnwrox0eRfXRTsmW9wtO60hr5yy2PTXZXwY0r5 +clOHBxjJD32c6GqFdN2IjK624/CrSzt1vGsAYv0l1nM3REKV4f2cf+9OwdHw +J7UVLldAqq/kq5fSIvSav8u3CLkBQn7uj1YacqF/8u6VXrFZkKxmVGZpz4OO +untERbxyoCdN9dXE2tWYMrdLNaHwPlzKiWjmFF+H7hcP60UOPgLRq58vpGQI +ovs6NTHt7HwQ2/zs77lcQUznCn5153E+SFSej3BlC2Ldq1pb7qJ8kBnfdGpD +lSC2VHWqvqjJh/Xmxz3KvtPHm+rIT6P5oLF8UeuzhhBmM6rfLtcuAKtAkS/q +dUJoXsZVlFddALF2JttbZ4Uxamzsl1FjIUg8bZLgXCaCQjsZOY0dhVAgaPdT +7S8RzHtC9Jv3FkJnqxv7iqwIxs3K8mr+KAR5m0CmjbEIXukKXrmXhw2VFpnc +LTdE8MinLmGJTWxYNJppatQXxaHD4p/bfNmQlBuWt2gkiiKcqzIyj7BBnpsj +TtlGFK/1zV/1PcYG89e8OxJ8RLF18RtrJIgNNw2JJ+aJoljy1vhoTQwbtqHZ +9fo+URQPb1jXcJcNJ3XuuNdGi+Fpua5tSz1sMM3inzaLF8PLx899Fv/IBubK +03FNqWL4fJ+OoVo/G1ra95JtD8TwokAMY+9XNmw5zsfV2ySG7BVKjiGTbPie +G5w7KSGODo8e3JPhJcFFyHJU8ok4xtXdfz6pRYJGeFnU7XJxjI2u+JWtQwLv +wEYRxhtxNFGfHbfRJ6GkkAsUesRR9BjPUvYOEkTMSpJUl8Qx0WviFmFOQkuU +/NZdZhLoJlA0Gu5Bws4f82H+nyXQabdxY9l5EkKNryr+MyKB6itfnZyLI6Hg +jvI7wVkJbHygOq12iQQxOw+dEh5JnKoqOXfrMgkjxa9/cm2RxID+ugHjNBJS +opMCb4RI4t8Sn5r4HpIwIKzgX71aCoMZPH90a0gQPVYhLSoqhbEdbtaCdSSY +1zg2HiKk8GKR9d/f60koCruktEZDCjN/aSZfaCbhYt/4kJOjFJYcj7XM7SRB +/WGZ74+7UnjZTzHJ9AsJUfo2nhLbpHF/2s9buEiCsdvtSW0DaayVu+LU8YcE +/sjhc/bm0miQ6B9ygIOC9KqY3CQPaWyU4f5whouCYtPSYe4L0sio9DCJWkXB +uKNc0FSPNJ7YYan1XoiC52HHV677Io3iHheMtUQoOJv+Im3LmDRacLdWJ4hS +wNfvUHaIUwbfSn1dVJOgYINvPEe/ogwOFTRHW8lS4HZq5mJDuAw+7OD07NtI +wfrrBlJDMTKIOOeyTJGi87ucvzJJBk8oDjbIbqYg7PemFoMcGTS5YPSXrTIF +qefchEsaZNAqpV4oXo0Cl3t5uZ2dMvg0SLzqijoFzLdz2tP9tCVfDKVoUMDm +TXFWmZHBFIPaBwmaFDRceZt5T1oWd01emNqrQ0HKEyG1qg2ymGAmGIm6FDh3 +eFb2q8niz52plxT0KPgu9vuLpJEscmYfZH7Xp4ArS1Ux2V8WnROavHcgBboF +N56erZBFG/PVH82NKNjZ1bQ4ViOLzdVnv03StuRYvtu9VRbtRXx+pO6mwNvW +vwcGZVFiRna+1ZgCo3BGROQKAv/Y+q7eZEZB/Zry7G28BC70JQs/p22ds7dm +nJ9A/cgDhIE5BfsaL63zFCPQe1kBWllQcFx2NnvHZgIzdke+3GVFwcyTpJpf +KgRK7384VkY7zHjzKLmVwFLJXgUVawpiAjy0mNsJdN+pSPHZUMDLveD8zoDA +rKhs7mDaSTdTI5J3E3hpYtinl/bNqroaThsCY4WLdufYUiDr6DNaak+g1snM +es49FOSMLK076Uxgr/0GVzfahcKa+z57E+jz+788PjsKqn0zR6uCCDx61ojP +yJ4Ck986AqfDCVyRrrgugXZTUrvW1kgC4Zb/pn9p95Ssisy5QGBC9PLr1nvp +erHMyXFJJHDapnn0Eu0vA9trhVIIJFuGnatpj/0VKBCTTqDOEcFwJQcKTmbx +a7PuECi8JkPFhfbc1of7Zu4RGBRwajGO9tlaw8j8RwS+ueo6SNHmcuvN8Skk +UFZZ9HsP7bjJkFrppwS2Ze7n/kObP1ZwrKOYwM+cq3bIOtL1IlkgkPiCzkeq +Jo1FW4xtrG1USWCd1wF+J9oZOz/v+/OGzmP+wd0A2syeM5FF9fT5iu33xtJ+ +cFTsnn8Lgc0yGoo3aStzPqlV6CCQx5VH9hFt6prFWG8Pga3WGZrPaW/b/F3g +ei+Bjn+X+v9D+0VFtLbVZwIlt2yqr6FtYCftsvI7gf6qT8waab/9/jyyYoTA +KTG5iSba5mds7wVPELiZ2Fn+/+Ot60ZrVWYJHN44kF9L2yE3duzbPIEfKmrf +VNL+oMsUzFqir0eyZmUJba/mcm3H5Qx0EM8LeEz7m7eDy9pVDFxusGNFBm2/ +uYnImtUM3FTtVHWRtm7AAZGvAgwU/3H+zUnaPEPv8rjEGFi23SD4//l0elnt +YEgzsGjztU492vfeV3VuZzIwVTBxUIJ2oN02P5cNDJzX1ro3S+dv0Ph4WZgS +A3+8uCXSTLv3ZarSMy0GTo51CQTRfqzNW9mqR5/fsjFzJ+0w9lmHcWTg01Mv +BtbQFrnrG73ZjIE8GzoS0/9fPxIfRE2sGVjnyZx3pU2lWOcfsGeg/etnslK0 +rWJ0uu+4M3Dfd67biXQ9yvzJP1qxn4G+rOE5A9ojQUyuj4cY2P0lQGCaru+4 +g39tEQtkoOrTihhz2ns/RVRphjKwj1X6aYruB3nnacc9Zxm4+L6UI432K7OP +5xLjGJhivz2+k+6nxGob8ccJDEw0Wpg/TtuF9aagNpmBJ0+pq/HQ/rWlsGd5 +BgOp1vg5Jbof1QWiVMJJOk/neAFrur85Ls1UpxUx8ByL/aHFku4nrsPORWUM +jGe6BVvSPjJjGzPxmoGGqj+YSM+LnG75977v6PtJ0jy5aErBCZsbx2P6GHhD +fOrTftpYt5o7+wsD9YrOKNaaUPCxbFa1d4yBzdceWcTR80oks+a8HRcTn8t4 +LvbvovMUZUmd4GFi+mzEPhXaVBJJXl7NxC52f3rYTjrP6Jsf6kSZuOaOatNK +QzovHz/1HUpMHF1D8S0CfX+b1/Yq2zNRd2SAx46ex7MZElEazkw0eLbB6dQ2 +CqbXrJfXcWfigyGz8hRtut+ndA7vPMTEeZvBirf0PB8o8551PsNEYSfvj3z0 +/K8ze84fd4+Jeyt6w/noffL2xT9kwiMmBlm6xy3R+6ZapcEupZCJARztpT82 +UPBS8NPN2yVMZJQGXnu7nr7+97wbnjUy0fMZaWrPoOffETcYmGFihupiyX/0 +frv+8eDAt3kmflieXVxI77+rVidjRpeYKKI/On5CmH6eGnH1c6vkMJnnmOCE +AAXRC6TDGhk5XCwwNmxYTT+PSyuO6xvJ4UUJ+UNLnBTo5z3OunZNDo28XlZ4 +DpPwnsjL3HVLDj3vTIaM/EdC2LWHt6cz5VA3+/tw4HcSnkflpts+lEO3s65c +EYP0/nfMSuMvl8NhBQeRkD4SNq24mnT+kxyaea998aeVft9xD48MUpLHnR06 +2T7FJDxrD41YryaPG1Mr8x4WkWBnGnK2XVMez7XVJw0/JSFZ89RpdZDHd6ca +pg+SJKzmOxYyZiOPq/4kGpo+ImF5idfxA8Hy+OiAycz9WyRMCJh67K2Ux8GH +klFdp0no9mO2HH4rj/NS9RwFYSS8ejMPEQ3yaBb1WiE6hISksDzZB53ymGt5 ++IhcIAmqA3x9v4bk0SFYhcP0CAn+ZLNrhuB6fDpw+vZGJxKGrOz3fdm/HkPl +vKc0NUj4Eu+x98RKBTzYuDD5mX5/9B9SYqryKaDFxevNrr1s+Ln71+joWgXk +2Jg82fGeDbxcyTGHJBQwXvTi2n862aAaWvXUQ1kBexzam6Ib2HDGR0HQao8C +FuWn+j57zgaR7SPNmzMVcC8jP7svng0mP4JNBrU2oBq3BitBnQ0j3jwnn0Zs +RD/BST3t4gL6+0SUM7ZyE344u4xj0/BjEGhUSGT/UMSfcccyjsnlgVRcobWW +lhJa3Oc70iL3ENI266wV9FXGI7GHxC9uvw91Ejs0p65swTNpKxS2eN8DXanK +JJVOFUySClKw8M0Gfq67gZ7RqljfpO545+YdkImS1XdSUEOLswe8XwZlwqr1 +LkW2b9VwqTF3iLlwC7awxAuDXdVxv6nbYMZoGpzoFagy5dBAq8KacVZPKv1d +FW9vkqaBnfpvtttqpMBulTc3TZS3ojRflY5oaxK8nNJb+Nm0FVVLo9eGzsSD +v5L6u399NDGlbXDBnecCsMb2tzut0kLuD4myV1kxsEtezGL1XS08vD1V54NU +NGyMvBhSqa2NDN0H55z+PQuKPjoV699p42q+8CNLT0LB5+XBv58GbMPPzuG2 +iimnoCKrff+EsA62+Mn5hZcHwPSDpZ8qz3XQ1//+QojwUfBen7fqpoUuKuxT +6XLiOQhhr90OK1jrIq98Q7D2tC8k+QjUU7a6+J+zcopcvy+U3wuNr3fQxZOC +w+Ibin1BSMF4zaKnLi4zSIt5d9AX3igMCnkE6SL/lZTm4YYDoLhRllDI1EXu +PQuhkZk+MKGYokWN62Lbcp/Ecj9v6G7AXYJTurh1YKOuqKs3vPIf2xM4o4uy +8txtpy28IZEyCdCa10V0q35ycIs3KOpyPC7l0sOVfVWxleNe4GVylFEloocf +BZc0QoO9oN13N1+7vh6eiYrpron3hOKchU8zcXo4enmB2pPnDlqGgT9NL+lh +v7yhQu4Vd3j2aYQvK0EP2xffNfKGuAMl06ttmqyHAR+Fk3h3ucPjtFcJt2/p +4chm0/KBPjfIio/R2V2gh1EX5tNHxNzgQuCaK2ltepjLdrkmk+YCzjvlUE9G +H1vC/WdqapxgsZ2Hv4rQR+H04YnzpBNk+Yy9N5XTR2PbZYcdbjrB1/Mlwc4b +9fGPXki6ip8TnKi1KgxV18dryTbFZWud4KLlaZliI308eOWc2TZXRyh17Pi9 +9Zg+EqO3fh/jcgDJo7ElW17po8VUlIldtB0kLh3QvFSpjwX/POu+cdwOOJON +yG/V+qhx5NOyUTc7GCpa8TCrVh/FpImlMj07KOX4O02gTR+vnpImF2b2gPPV +yODZQX2MYEe6z/vtgbSyUM2Xf7Hw5pMe6ZL9tiDM60daOLDQJ0Bb6EioNeQY +ngkbd2KhbRSXptwha1A/k2iY4sLCBlGuZ/85WoPlOLuj25OFGXej7t/ZZg3n +O2d+efuxMPaqnF3IhBXM3Y0wCIti4V9fBR/L/7SEd3opbbl5LPx2JV9wWsQC +Dp7KSTcpYOHC5FfDtl/mMFvwzGeEzUL8p/Z6wwdzEGB2/1QrYuHjl7bOq7PN +wYxHWurFKxaKnQyWfK1qDuXtufvbOuj/yy/W/21tBqb8xcpB3SzckqriFKhp +Bt27a2fF3rPwR3+56woJM5guHY5z62dhBHfTvwGfTUH5jmr+f0MsrNXTNTsR +bArl73YExY+y0JEdnVDoYgqmQntAZZyF/G8DZVYYmMKB2FP/Bs6w8KlnWP8c +nylMvzp/U3SOhRbd5cPXJk0gev66d+k8Cz2auefNu01g7daHSq6LLGxxj5+T +eGkCt4+WziwtsXD7moR2jhwT+B8vWRgV + "]]}, + 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:eJwV13k4FYsbB3BRkiuVfTfnkEpkC1lO7xsl+xZZsktapJSslaUrKiRSKqJI +i3BmKtlKF5Wda9eClOrasieS3/z+Os/nmec5M/Odd5lheB2z9eHk4OAglnFw +/P93tre2Wv5SzvYV7Jpy230G29tvi4Xu6I6GivWrCko6CUDhZi+x7mQolorh +TOlUhSDrR11c3XdhW0h9W0gnwrox0eRfXRTsmW9wtO60hr5yy2PTXZXwY0r5 +clOHBxjJD32c6GqFdN2IjK624/CrSzt1vGsAYv0l1nM3REKV4f2cf+9OwdHw +J7UVLldAqq/kq5fSIvSav8u3CLkBQn7uj1YacqF/8u6VXrFZkKxmVGZpz4OO +untERbxyoCdN9dXE2tWYMrdLNaHwPlzKiWjmFF+H7hcP60UOPgLRq58vpGQI +ovs6NTHt7HwQ2/zs77lcQUznCn5153E+SFSej3BlC2Ldq1pb7qJ8kBnfdGpD +lSC2VHWqvqjJh/Xmxz3KvtPHm+rIT6P5oLF8UeuzhhBmM6rfLtcuAKtAkS/q +dUJoXsZVlFddALF2JttbZ4Uxamzsl1FjIUg8bZLgXCaCQjsZOY0dhVAgaPdT +7S8RzHtC9Jv3FkJnqxv7iqwIxs3K8mr+KAR5m0CmjbEIXukKXrmXhw2VFpnc +LTdE8MinLmGJTWxYNJppatQXxaHD4p/bfNmQlBuWt2gkiiKcqzIyj7BBnpsj +TtlGFK/1zV/1PcYG89e8OxJ8RLF18RtrJIgNNw2JJ+aJoljy1vhoTQwbtqHZ +9fo+URQPb1jXcJcNJ3XuuNdGi+Fpua5tSz1sMM3inzaLF8PLx899Fv/IBubK +03FNqWL4fJ+OoVo/G1ra95JtD8TwokAMY+9XNmw5zsfV2ySG7BVKjiGTbPie +G5w7KSGODo8e3JPhJcFFyHJU8ok4xtXdfz6pRYJGeFnU7XJxjI2u+JWtQwLv +wEYRxhtxNFGfHbfRJ6GkkAsUesRR9BjPUvYOEkTMSpJUl8Qx0WviFmFOQkuU +/NZdZhLoJlA0Gu5Bws4f82H+nyXQabdxY9l5EkKNryr+MyKB6itfnZyLI6Hg +jvI7wVkJbHygOq12iQQxOw+dEh5JnKoqOXfrMgkjxa9/cm2RxID+ugHjNBJS +opMCb4RI4t8Sn5r4HpIwIKzgX71aCoMZPH90a0gQPVYhLSoqhbEdbtaCdSSY +1zg2HiKk8GKR9d/f60koCruktEZDCjN/aSZfaCbhYt/4kJOjFJYcj7XM7SRB +/WGZ74+7UnjZTzHJ9AsJUfo2nhLbpHF/2s9buEiCsdvtSW0DaayVu+LU8YcE +/sjhc/bm0miQ6B9ygIOC9KqY3CQPaWyU4f5whouCYtPSYe4L0sio9DCJWkXB +uKNc0FSPNJ7YYan1XoiC52HHV677Io3iHheMtUQoOJv+Im3LmDRacLdWJ4hS +wNfvUHaIUwbfSn1dVJOgYINvPEe/ogwOFTRHW8lS4HZq5mJDuAw+7OD07NtI +wfrrBlJDMTKIOOeyTJGi87ucvzJJBk8oDjbIbqYg7PemFoMcGTS5YPSXrTIF +qefchEsaZNAqpV4oXo0Cl3t5uZ2dMvg0SLzqijoFzLdz2tP9tCVfDKVoUMDm +TXFWmZHBFIPaBwmaFDRceZt5T1oWd01emNqrQ0HKEyG1qg2ymGAmGIm6FDh3 +eFb2q8niz52plxT0KPgu9vuLpJEscmYfZH7Xp4ArS1Ux2V8WnROavHcgBboF +N56erZBFG/PVH82NKNjZ1bQ4ViOLzdVnv03StuRYvtu9VRbtRXx+pO6mwNvW +vwcGZVFiRna+1ZgCo3BGROQKAv/Y+q7eZEZB/Zry7G28BC70JQs/p22ds7dm +nJ9A/cgDhIE5BfsaL63zFCPQe1kBWllQcFx2NnvHZgIzdke+3GVFwcyTpJpf +KgRK7384VkY7zHjzKLmVwFLJXgUVawpiAjy0mNsJdN+pSPHZUMDLveD8zoDA +rKhs7mDaSTdTI5J3E3hpYtinl/bNqroaThsCY4WLdufYUiDr6DNaak+g1snM +es49FOSMLK076Uxgr/0GVzfahcKa+z57E+jz+788PjsKqn0zR6uCCDx61ojP +yJ4Ck986AqfDCVyRrrgugXZTUrvW1kgC4Zb/pn9p95Ssisy5QGBC9PLr1nvp +erHMyXFJJHDapnn0Eu0vA9trhVIIJFuGnatpj/0VKBCTTqDOEcFwJQcKTmbx +a7PuECi8JkPFhfbc1of7Zu4RGBRwajGO9tlaw8j8RwS+ueo6SNHmcuvN8Skk +UFZZ9HsP7bjJkFrppwS2Ze7n/kObP1ZwrKOYwM+cq3bIOtL1IlkgkPiCzkeq +Jo1FW4xtrG1USWCd1wF+J9oZOz/v+/OGzmP+wd0A2syeM5FF9fT5iu33xtJ+ +cFTsnn8Lgc0yGoo3aStzPqlV6CCQx5VH9hFt6prFWG8Pga3WGZrPaW/b/F3g +ei+Bjn+X+v9D+0VFtLbVZwIlt2yqr6FtYCftsvI7gf6qT8waab/9/jyyYoTA +KTG5iSba5mds7wVPELiZ2Fn+/+Ot60ZrVWYJHN44kF9L2yE3duzbPIEfKmrf +VNL+oMsUzFqir0eyZmUJba/mcm3H5Qx0EM8LeEz7m7eDy9pVDFxusGNFBm2/ +uYnImtUM3FTtVHWRtm7AAZGvAgwU/3H+zUnaPEPv8rjEGFi23SD4//l0elnt +YEgzsGjztU492vfeV3VuZzIwVTBxUIJ2oN02P5cNDJzX1ro3S+dv0Ph4WZgS +A3+8uCXSTLv3ZarSMy0GTo51CQTRfqzNW9mqR5/fsjFzJ+0w9lmHcWTg01Mv +BtbQFrnrG73ZjIE8GzoS0/9fPxIfRE2sGVjnyZx3pU2lWOcfsGeg/etnslK0 +rWJ0uu+4M3Dfd67biXQ9yvzJP1qxn4G+rOE5A9ojQUyuj4cY2P0lQGCaru+4 +g39tEQtkoOrTihhz2ns/RVRphjKwj1X6aYruB3nnacc9Zxm4+L6UI432K7OP +5xLjGJhivz2+k+6nxGob8ccJDEw0Wpg/TtuF9aagNpmBJ0+pq/HQ/rWlsGd5 +BgOp1vg5Jbof1QWiVMJJOk/neAFrur85Ls1UpxUx8ByL/aHFku4nrsPORWUM +jGe6BVvSPjJjGzPxmoGGqj+YSM+LnG75977v6PtJ0jy5aErBCZsbx2P6GHhD +fOrTftpYt5o7+wsD9YrOKNaaUPCxbFa1d4yBzdceWcTR80oks+a8HRcTn8t4 +LvbvovMUZUmd4GFi+mzEPhXaVBJJXl7NxC52f3rYTjrP6Jsf6kSZuOaOatNK +QzovHz/1HUpMHF1D8S0CfX+b1/Yq2zNRd2SAx46ex7MZElEazkw0eLbB6dQ2 +CqbXrJfXcWfigyGz8hRtut+ndA7vPMTEeZvBirf0PB8o8551PsNEYSfvj3z0 +/K8ze84fd4+Jeyt6w/noffL2xT9kwiMmBlm6xy3R+6ZapcEupZCJARztpT82 +UPBS8NPN2yVMZJQGXnu7nr7+97wbnjUy0fMZaWrPoOffETcYmGFihupiyX/0 +frv+8eDAt3kmflieXVxI77+rVidjRpeYKKI/On5CmH6eGnH1c6vkMJnnmOCE +AAXRC6TDGhk5XCwwNmxYTT+PSyuO6xvJ4UUJ+UNLnBTo5z3OunZNDo28XlZ4 +DpPwnsjL3HVLDj3vTIaM/EdC2LWHt6cz5VA3+/tw4HcSnkflpts+lEO3s65c +EYP0/nfMSuMvl8NhBQeRkD4SNq24mnT+kxyaea998aeVft9xD48MUpLHnR06 +2T7FJDxrD41YryaPG1Mr8x4WkWBnGnK2XVMez7XVJw0/JSFZ89RpdZDHd6ca +pg+SJKzmOxYyZiOPq/4kGpo+ImF5idfxA8Hy+OiAycz9WyRMCJh67K2Ux8GH +klFdp0no9mO2HH4rj/NS9RwFYSS8ejMPEQ3yaBb1WiE6hISksDzZB53ymGt5 ++IhcIAmqA3x9v4bk0SFYhcP0CAn+ZLNrhuB6fDpw+vZGJxKGrOz3fdm/HkPl +vKc0NUj4Eu+x98RKBTzYuDD5mX5/9B9SYqryKaDFxevNrr1s+Ln71+joWgXk +2Jg82fGeDbxcyTGHJBQwXvTi2n862aAaWvXUQ1kBexzam6Ib2HDGR0HQao8C +FuWn+j57zgaR7SPNmzMVcC8jP7svng0mP4JNBrU2oBq3BitBnQ0j3jwnn0Zs +RD/BST3t4gL6+0SUM7ZyE344u4xj0/BjEGhUSGT/UMSfcccyjsnlgVRcobWW +lhJa3Oc70iL3ENI266wV9FXGI7GHxC9uvw91Ejs0p65swTNpKxS2eN8DXanK +JJVOFUySClKw8M0Gfq67gZ7RqljfpO545+YdkImS1XdSUEOLswe8XwZlwqr1 +LkW2b9VwqTF3iLlwC7awxAuDXdVxv6nbYMZoGpzoFagy5dBAq8KacVZPKv1d +FW9vkqaBnfpvtttqpMBulTc3TZS3ojRflY5oaxK8nNJb+Nm0FVVLo9eGzsSD +v5L6u399NDGlbXDBnecCsMb2tzut0kLuD4myV1kxsEtezGL1XS08vD1V54NU +NGyMvBhSqa2NDN0H55z+PQuKPjoV699p42q+8CNLT0LB5+XBv58GbMPPzuG2 +iimnoCKrff+EsA62+Mn5hZcHwPSDpZ8qz3XQ1//+QojwUfBen7fqpoUuKuxT +6XLiOQhhr90OK1jrIq98Q7D2tC8k+QjUU7a6+J+zcopcvy+U3wuNr3fQxZOC +w+Ibin1BSMF4zaKnLi4zSIt5d9AX3igMCnkE6SL/lZTm4YYDoLhRllDI1EXu +PQuhkZk+MKGYokWN62Lbcp/Ecj9v6G7AXYJTurh1YKOuqKs3vPIf2xM4o4uy +8txtpy28IZEyCdCa10V0q35ycIs3KOpyPC7l0sOVfVWxleNe4GVylFEloocf +BZc0QoO9oN13N1+7vh6eiYrpron3hOKchU8zcXo4enmB2pPnDlqGgT9NL+lh +v7yhQu4Vd3j2aYQvK0EP2xffNfKGuAMl06ttmqyHAR+Fk3h3ucPjtFcJt2/p +4chm0/KBPjfIio/R2V2gh1EX5tNHxNzgQuCaK2ltepjLdrkmk+YCzjvlUE9G +H1vC/WdqapxgsZ2Hv4rQR+H04YnzpBNk+Yy9N5XTR2PbZYcdbjrB1/Mlwc4b +9fGPXki6ip8TnKi1KgxV18dryTbFZWud4KLlaZliI308eOWc2TZXRyh17Pi9 +9Zg+EqO3fh/jcgDJo7ElW17po8VUlIldtB0kLh3QvFSpjwX/POu+cdwOOJON +yG/V+qhx5NOyUTc7GCpa8TCrVh/FpImlMj07KOX4O02gTR+vnpImF2b2gPPV +yODZQX2MYEe6z/vtgbSyUM2Xf7Hw5pMe6ZL9tiDM60daOLDQJ0Bb6EioNeQY +ngkbd2KhbRSXptwha1A/k2iY4sLCBlGuZ/85WoPlOLuj25OFGXej7t/ZZg3n +O2d+efuxMPaqnF3IhBXM3Y0wCIti4V9fBR/L/7SEd3opbbl5LPx2JV9wWsQC +Dp7KSTcpYOHC5FfDtl/mMFvwzGeEzUL8p/Z6wwdzEGB2/1QrYuHjl7bOq7PN +wYxHWurFKxaKnQyWfK1qDuXtufvbOuj/yy/W/21tBqb8xcpB3SzckqriFKhp +Bt27a2fF3rPwR3+56woJM5guHY5z62dhBHfTvwGfTUH5jmr+f0MsrNXTNTsR +bArl73YExY+y0JEdnVDoYgqmQntAZZyF/G8DZVYYmMKB2FP/Bs6w8KlnWP8c +nylMvzp/U3SOhRbd5cPXJk0gev66d+k8Cz2auefNu01g7daHSq6LLGxxj5+T +eGkCt4+WziwtsXD7moR2jhwT+B8vWRgV + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.0716676081384298}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.0716676081384298}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJwV13k4FYsbB3BRkiuVfTfnkEpkC1lO7xsl+xZZsktapJSslaUrKiRSKqJI +i3BmKtlKF5Wda9eClOrasieS3/z+Os/nmec5M/Odd5lheB2z9eHk4OAglnFw +/P93tre2Wv5SzvYV7Jpy230G29tvi4Xu6I6GivWrCko6CUDhZi+x7mQolorh +TOlUhSDrR11c3XdhW0h9W0gnwrox0eRfXRTsmW9wtO60hr5yy2PTXZXwY0r5 +clOHBxjJD32c6GqFdN2IjK624/CrSzt1vGsAYv0l1nM3REKV4f2cf+9OwdHw +J7UVLldAqq/kq5fSIvSav8u3CLkBQn7uj1YacqF/8u6VXrFZkKxmVGZpz4OO +untERbxyoCdN9dXE2tWYMrdLNaHwPlzKiWjmFF+H7hcP60UOPgLRq58vpGQI +ovs6NTHt7HwQ2/zs77lcQUznCn5153E+SFSej3BlC2Ldq1pb7qJ8kBnfdGpD +lSC2VHWqvqjJh/Xmxz3KvtPHm+rIT6P5oLF8UeuzhhBmM6rfLtcuAKtAkS/q +dUJoXsZVlFddALF2JttbZ4Uxamzsl1FjIUg8bZLgXCaCQjsZOY0dhVAgaPdT +7S8RzHtC9Jv3FkJnqxv7iqwIxs3K8mr+KAR5m0CmjbEIXukKXrmXhw2VFpnc +LTdE8MinLmGJTWxYNJppatQXxaHD4p/bfNmQlBuWt2gkiiKcqzIyj7BBnpsj +TtlGFK/1zV/1PcYG89e8OxJ8RLF18RtrJIgNNw2JJ+aJoljy1vhoTQwbtqHZ +9fo+URQPb1jXcJcNJ3XuuNdGi+Fpua5tSz1sMM3inzaLF8PLx899Fv/IBubK +03FNqWL4fJ+OoVo/G1ra95JtD8TwokAMY+9XNmw5zsfV2ySG7BVKjiGTbPie +G5w7KSGODo8e3JPhJcFFyHJU8ok4xtXdfz6pRYJGeFnU7XJxjI2u+JWtQwLv +wEYRxhtxNFGfHbfRJ6GkkAsUesRR9BjPUvYOEkTMSpJUl8Qx0WviFmFOQkuU +/NZdZhLoJlA0Gu5Bws4f82H+nyXQabdxY9l5EkKNryr+MyKB6itfnZyLI6Hg +jvI7wVkJbHygOq12iQQxOw+dEh5JnKoqOXfrMgkjxa9/cm2RxID+ugHjNBJS +opMCb4RI4t8Sn5r4HpIwIKzgX71aCoMZPH90a0gQPVYhLSoqhbEdbtaCdSSY +1zg2HiKk8GKR9d/f60koCruktEZDCjN/aSZfaCbhYt/4kJOjFJYcj7XM7SRB +/WGZ74+7UnjZTzHJ9AsJUfo2nhLbpHF/2s9buEiCsdvtSW0DaayVu+LU8YcE +/sjhc/bm0miQ6B9ygIOC9KqY3CQPaWyU4f5whouCYtPSYe4L0sio9DCJWkXB +uKNc0FSPNJ7YYan1XoiC52HHV677Io3iHheMtUQoOJv+Im3LmDRacLdWJ4hS +wNfvUHaIUwbfSn1dVJOgYINvPEe/ogwOFTRHW8lS4HZq5mJDuAw+7OD07NtI +wfrrBlJDMTKIOOeyTJGi87ucvzJJBk8oDjbIbqYg7PemFoMcGTS5YPSXrTIF +qefchEsaZNAqpV4oXo0Cl3t5uZ2dMvg0SLzqijoFzLdz2tP9tCVfDKVoUMDm +TXFWmZHBFIPaBwmaFDRceZt5T1oWd01emNqrQ0HKEyG1qg2ymGAmGIm6FDh3 +eFb2q8niz52plxT0KPgu9vuLpJEscmYfZH7Xp4ArS1Ux2V8WnROavHcgBboF +N56erZBFG/PVH82NKNjZ1bQ4ViOLzdVnv03StuRYvtu9VRbtRXx+pO6mwNvW +vwcGZVFiRna+1ZgCo3BGROQKAv/Y+q7eZEZB/Zry7G28BC70JQs/p22ds7dm +nJ9A/cgDhIE5BfsaL63zFCPQe1kBWllQcFx2NnvHZgIzdke+3GVFwcyTpJpf +KgRK7384VkY7zHjzKLmVwFLJXgUVawpiAjy0mNsJdN+pSPHZUMDLveD8zoDA +rKhs7mDaSTdTI5J3E3hpYtinl/bNqroaThsCY4WLdufYUiDr6DNaak+g1snM +es49FOSMLK076Uxgr/0GVzfahcKa+z57E+jz+788PjsKqn0zR6uCCDx61ojP +yJ4Ck986AqfDCVyRrrgugXZTUrvW1kgC4Zb/pn9p95Ssisy5QGBC9PLr1nvp +erHMyXFJJHDapnn0Eu0vA9trhVIIJFuGnatpj/0VKBCTTqDOEcFwJQcKTmbx +a7PuECi8JkPFhfbc1of7Zu4RGBRwajGO9tlaw8j8RwS+ueo6SNHmcuvN8Skk +UFZZ9HsP7bjJkFrppwS2Ze7n/kObP1ZwrKOYwM+cq3bIOtL1IlkgkPiCzkeq +Jo1FW4xtrG1USWCd1wF+J9oZOz/v+/OGzmP+wd0A2syeM5FF9fT5iu33xtJ+ +cFTsnn8Lgc0yGoo3aStzPqlV6CCQx5VH9hFt6prFWG8Pga3WGZrPaW/b/F3g +ei+Bjn+X+v9D+0VFtLbVZwIlt2yqr6FtYCftsvI7gf6qT8waab/9/jyyYoTA +KTG5iSba5mds7wVPELiZ2Fn+/+Ot60ZrVWYJHN44kF9L2yE3duzbPIEfKmrf +VNL+oMsUzFqir0eyZmUJba/mcm3H5Qx0EM8LeEz7m7eDy9pVDFxusGNFBm2/ +uYnImtUM3FTtVHWRtm7AAZGvAgwU/3H+zUnaPEPv8rjEGFi23SD4//l0elnt +YEgzsGjztU492vfeV3VuZzIwVTBxUIJ2oN02P5cNDJzX1ro3S+dv0Ph4WZgS +A3+8uCXSTLv3ZarSMy0GTo51CQTRfqzNW9mqR5/fsjFzJ+0w9lmHcWTg01Mv +BtbQFrnrG73ZjIE8GzoS0/9fPxIfRE2sGVjnyZx3pU2lWOcfsGeg/etnslK0 +rWJ0uu+4M3Dfd67biXQ9yvzJP1qxn4G+rOE5A9ojQUyuj4cY2P0lQGCaru+4 +g39tEQtkoOrTihhz2ns/RVRphjKwj1X6aYruB3nnacc9Zxm4+L6UI432K7OP +5xLjGJhivz2+k+6nxGob8ccJDEw0Wpg/TtuF9aagNpmBJ0+pq/HQ/rWlsGd5 +BgOp1vg5Jbof1QWiVMJJOk/neAFrur85Ls1UpxUx8ByL/aHFku4nrsPORWUM +jGe6BVvSPjJjGzPxmoGGqj+YSM+LnG75977v6PtJ0jy5aErBCZsbx2P6GHhD +fOrTftpYt5o7+wsD9YrOKNaaUPCxbFa1d4yBzdceWcTR80oks+a8HRcTn8t4 +LvbvovMUZUmd4GFi+mzEPhXaVBJJXl7NxC52f3rYTjrP6Jsf6kSZuOaOatNK +QzovHz/1HUpMHF1D8S0CfX+b1/Yq2zNRd2SAx46ex7MZElEazkw0eLbB6dQ2 +CqbXrJfXcWfigyGz8hRtut+ndA7vPMTEeZvBirf0PB8o8551PsNEYSfvj3z0 +/K8ze84fd4+Jeyt6w/noffL2xT9kwiMmBlm6xy3R+6ZapcEupZCJARztpT82 +UPBS8NPN2yVMZJQGXnu7nr7+97wbnjUy0fMZaWrPoOffETcYmGFihupiyX/0 +frv+8eDAt3kmflieXVxI77+rVidjRpeYKKI/On5CmH6eGnH1c6vkMJnnmOCE +AAXRC6TDGhk5XCwwNmxYTT+PSyuO6xvJ4UUJ+UNLnBTo5z3OunZNDo28XlZ4 +DpPwnsjL3HVLDj3vTIaM/EdC2LWHt6cz5VA3+/tw4HcSnkflpts+lEO3s65c +EYP0/nfMSuMvl8NhBQeRkD4SNq24mnT+kxyaea998aeVft9xD48MUpLHnR06 +2T7FJDxrD41YryaPG1Mr8x4WkWBnGnK2XVMez7XVJw0/JSFZ89RpdZDHd6ca +pg+SJKzmOxYyZiOPq/4kGpo+ImF5idfxA8Hy+OiAycz9WyRMCJh67K2Ux8GH +klFdp0no9mO2HH4rj/NS9RwFYSS8ejMPEQ3yaBb1WiE6hISksDzZB53ymGt5 ++IhcIAmqA3x9v4bk0SFYhcP0CAn+ZLNrhuB6fDpw+vZGJxKGrOz3fdm/HkPl +vKc0NUj4Eu+x98RKBTzYuDD5mX5/9B9SYqryKaDFxevNrr1s+Ln71+joWgXk +2Jg82fGeDbxcyTGHJBQwXvTi2n862aAaWvXUQ1kBexzam6Ib2HDGR0HQao8C +FuWn+j57zgaR7SPNmzMVcC8jP7svng0mP4JNBrU2oBq3BitBnQ0j3jwnn0Zs +RD/BST3t4gL6+0SUM7ZyE344u4xj0/BjEGhUSGT/UMSfcccyjsnlgVRcobWW +lhJa3Oc70iL3ENI266wV9FXGI7GHxC9uvw91Ejs0p65swTNpKxS2eN8DXanK +JJVOFUySClKw8M0Gfq67gZ7RqljfpO545+YdkImS1XdSUEOLswe8XwZlwqr1 +LkW2b9VwqTF3iLlwC7awxAuDXdVxv6nbYMZoGpzoFagy5dBAq8KacVZPKv1d +FW9vkqaBnfpvtttqpMBulTc3TZS3ojRflY5oaxK8nNJb+Nm0FVVLo9eGzsSD +v5L6u399NDGlbXDBnecCsMb2tzut0kLuD4myV1kxsEtezGL1XS08vD1V54NU +NGyMvBhSqa2NDN0H55z+PQuKPjoV699p42q+8CNLT0LB5+XBv58GbMPPzuG2 +iimnoCKrff+EsA62+Mn5hZcHwPSDpZ8qz3XQ1//+QojwUfBen7fqpoUuKuxT +6XLiOQhhr90OK1jrIq98Q7D2tC8k+QjUU7a6+J+zcopcvy+U3wuNr3fQxZOC +w+Ibin1BSMF4zaKnLi4zSIt5d9AX3igMCnkE6SL/lZTm4YYDoLhRllDI1EXu +PQuhkZk+MKGYokWN62Lbcp/Ecj9v6G7AXYJTurh1YKOuqKs3vPIf2xM4o4uy +8txtpy28IZEyCdCa10V0q35ycIs3KOpyPC7l0sOVfVWxleNe4GVylFEloocf +BZc0QoO9oN13N1+7vh6eiYrpron3hOKchU8zcXo4enmB2pPnDlqGgT9NL+lh +v7yhQu4Vd3j2aYQvK0EP2xffNfKGuAMl06ttmqyHAR+Fk3h3ucPjtFcJt2/p +4chm0/KBPjfIio/R2V2gh1EX5tNHxNzgQuCaK2ltepjLdrkmk+YCzjvlUE9G +H1vC/WdqapxgsZ2Hv4rQR+H04YnzpBNk+Yy9N5XTR2PbZYcdbjrB1/Mlwc4b +9fGPXki6ip8TnKi1KgxV18dryTbFZWud4KLlaZliI308eOWc2TZXRyh17Pi9 +9Zg+EqO3fh/jcgDJo7ElW17po8VUlIldtB0kLh3QvFSpjwX/POu+cdwOOJON +yG/V+qhx5NOyUTc7GCpa8TCrVh/FpImlMj07KOX4O02gTR+vnpImF2b2gPPV +yODZQX2MYEe6z/vtgbSyUM2Xf7Hw5pMe6ZL9tiDM60daOLDQJ0Bb6EioNeQY +ngkbd2KhbRSXptwha1A/k2iY4sLCBlGuZ/85WoPlOLuj25OFGXej7t/ZZg3n +O2d+efuxMPaqnF3IhBXM3Y0wCIti4V9fBR/L/7SEd3opbbl5LPx2JV9wWsQC +Dp7KSTcpYOHC5FfDtl/mMFvwzGeEzUL8p/Z6wwdzEGB2/1QrYuHjl7bOq7PN +wYxHWurFKxaKnQyWfK1qDuXtufvbOuj/yy/W/21tBqb8xcpB3SzckqriFKhp +Bt27a2fF3rPwR3+56woJM5guHY5z62dhBHfTvwGfTUH5jmr+f0MsrNXTNTsR +bArl73YExY+y0JEdnVDoYgqmQntAZZyF/G8DZVYYmMKB2FP/Bs6w8KlnWP8c +nylMvzp/U3SOhRbd5cPXJk0gev66d+k8Cz2auefNu01g7daHSq6LLGxxj5+T +eGkCt4+WziwtsXD7moR2jhwT+B8vWRgV + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.0716676081384298}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJxTTMoPSmViYGCQB2IQDQNLGAINkrnK7CG8D/YFW/1i+sInQPkMDkmGr6Kq +58+C8jkczrencxoxLYLyBRw0tNtWMyssg/JFHAL6mFwO9qyE8iUc3u708W0y +XwPlyzi85X7Rai2+DspXcJimnKJwXm89lK/koKgQ78TaDuOrOFidyz201wjG +V3PYGsTxRMgdpl/D4cmtAMNz92HmazmUHVGU9hBfDeXrOAA5s8O4YO7RcyjZ +dKVq/0WYew0clAL+Nnu0LYHyDR1s9EWlP1vB/GfkcNon868u4wIo39jhkHfB +K+aTs6F8E4edQeebAu5Nh/JNHeT5a8u1vadA+WYOttd6eIrEJ0L55g6HXZpF +bFp7oHwLB/5r/y3PTG+H8i0dus7EPPgU0QzlWzkw5q6OTK+ph/KtHd7OVGXM +yqqE8m0cpK+FiLXGlkD5tg4f5zGfFjQqgPLtHO40Ld3VMD3THgDPenlb + "]]}, + 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:eJxTTMoPSmViYGCQB2IQDQNLGAINkrnK7CG8D/YFW/1i+sInQPkMDkmGr6Kq +58+C8jkczrencxoxLYLyBRw0tNtWMyssg/JFHAL6mFwO9qyE8iUc3u708W0y +XwPlyzi85X7Rai2+DspXcJimnKJwXm89lK/koKgQ78TaDuOrOFidyz201wjG +V3PYGsTxRMgdpl/D4cmtAMNz92HmazmUHVGU9hBfDeXrOAA5s8O4YO7RcyjZ +dKVq/0WYew0clAL+Nnu0LYHyDR1s9EWlP1vB/GfkcNon868u4wIo39jhkHfB +K+aTs6F8E4edQeebAu5Nh/JNHeT5a8u1vadA+WYOttd6eIrEJ0L55g6HXZpF +bFp7oHwLB/5r/y3PTG+H8i0dus7EPPgU0QzlWzkw5q6OTK+ph/KtHd7OVGXM +yqqE8m0cpK+FiLXGlkD5tg4f5zGfFjQqgPLtHO40Ld3VMD3THgDPenlb + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.061577}}, + "Frame" -> {{False, 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.061577}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGCQB2IQDQNLGAINkrnK7CG8D/YFW/1i+sInQPkMDkmGr6Kq +58+C8jkczrencxoxLYLyBRw0tNtWMyssg/JFHAL6mFwO9qyE8iUc3u708W0y +XwPlyzi85X7Rai2+DspXcJimnKJwXm89lK/koKgQ78TaDuOrOFidyz201wjG +V3PYGsTxRMgdpl/D4cmtAMNz92HmazmUHVGU9hBfDeXrOAA5s8O4YO7RcyjZ +dKVq/0WYew0clAL+Nnu0LYHyDR1s9EWlP1vB/GfkcNon868u4wIo39jhkHfB +K+aTs6F8E4edQeebAu5Nh/JNHeT5a8u1vadA+WYOttd6eIrEJ0L55g6HXZpF +bFp7oHwLB/5r/y3PTG+H8i0dus7EPPgU0QzlWzkw5q6OTK+ph/KtHd7OVGXM +yqqE8m0cpK+FiLXGlkD5tg4f5zGfFjQqgPLtHO40Ld3VMD3THgDPenlb + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.061577}}, + "Frame" -> {{False, 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.0716676081384298}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9939598535438433`*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"a79bebd5-ca34-43af-ae01-93bc2e3b87e7"] +}, Open ]], Cell[CellGroupData[{ @@ -2113,11 +7880,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.611643085601408`"], "Output", + CellChangeTimes->{3.9939598535763817`*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"36e864c6-874a-43e2-a304-52422da408bf"] }, Open ]], Cell[CellGroupData[{ @@ -2173,416 +7941,505 @@ 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[\\\"5.960609145632297`*^-252\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 99, 13, 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993959853650576*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"f996beea-6fb5-4767-9a5d-a5a785c6fb91"], 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[\\\"6.353010840829234`*^-261\\\", \ +\\\"78176755153939869305210274200729021751146846355456000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 99, 14, 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993959853658483*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"b7765c84-a4f1-486f-ae6e-fc3b0895c5d1"], 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.771245313621772`*^-270\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 99, 15, 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939598536658154`*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"7b69b561-bd04-4752-acfa-7d03d3484eba"], 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, 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993959853673276*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"af9a4e19-8ac8-447e-b42b-44c22926f073"], 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:eJwV13c8Vv0bB3DRUIlsmee+3UZ2Mm/urguRvaKQjCQpSRmFQopU8oiGJkka +ivucsqJ4ojKaUla2yk+I7Jbfef46r/frrO/5nu/1uc5hbNvrGsjLw8NDLODh ++W873VVfyzqVt+5v6epG5c3m65qvSUWbtSbC02eyAl+aCEDxN9ukWjMgQqM5 +uKpJB6Kc77bwteaCbm6z+c0mBOFRyYy5FgrsLrBaDzU5Q3el497JlqdwuyHM ++tc7P7BiDXWOtzTBWGIRe9HbMJhrMTw31tIHJhM5joZ1CVBjcSvvXe4EjKsM +OLZ6nAHZ7vIv2zT+wMnQy+vz918EsRDfu0ss+PAw66Xji6M5kLHGqsLRnR+P +Pfz8vHprHrRl6VSPr1yBL5TeS969ewtO5cW/4V0ljGLxZb1qPXdB8mz/icyr +onjlkbDElav3QUq9+NhsvihOlwgJLL51H6SfJsdv5Ypi2J/I0WDufZAfWx2p +UiOK5/+tDFeouQ9K9mF+FYOieEQmzNds8D6sXfjHoH+tGLr3y1T6rikEpwiJ +Ad0GMXSQifr990khHHezWdc0LY5KWRU/zrwoAumHr6V5F0jg+9L/xUm9LYJC +UbeZNcsl0M/wRvaF1iL42OTDPaMggU2qzpfj/1cELJcIpou1BPYoa+jGLuLC +U4fsxW8vSqB69GYrUObCH6up169MJdF3kRTr53YupOfHFPyxksQHw6k/n+3k +AmsxT4qmiyT2FnuvTAvhgv2zZWanAyXxVrTgnEgEFy5ZEA/s0yQxI06s7Hsi +F4zQ7kJjtyRuLxCvnMzmQrjxdd/6RCn8E9+eo97CBdscwUm7VClcGfT2tFU7 +F5hLDqW8PieFdRMTOj6dXHjbvIl8f1sKnQeSLh7t54JWmABf12sp/Ed564/8 +71wYzD+Q/0N6FaoQKY+clpDgLeY4IvNgFdbrjmet1iNhbWzFkWuVq/DLJ45Z +hwEJy/pUJRjP6eOP1mSfMCahvIgPlNtW4c9N1fGf1pEgYVeerjO/CsMcb73y +siHh7RGWnqWdNE6qVhSXbyVh/fefMaH90hhEXUlfcIyEaOuzav8OS6M1Mh6v +Syah8Lpmu+i0NC5Vza09mEKClJufcTm/DFKFboH9qSQMlz2b4dOSwf9ZvfuR +cY6EzMT0iIsHZfDuQN3uLfkk9Ikrh9aukMUpWLQ/8xkJknur5CQlZVHHT3hX +yAsS7Os8XgUTsqi9smi9eT0JJTGnNITWyuLAlle5Ay9JONk9NuTpIYv21suW +L2wmQfdORdD3XFn8smFx0/1eEo6YuvhLG8mhkIvP5aKfJFj7XPthaC6HY4et +NC1/kyCY8O2ou70cztsdZbT8IeFKTVJ+up8c3glfunaMh4Iy20ffFp+QQ0ut +7/wziykY81CMmmiTQxm2/NxmEQpKY8KWCA/IYZ158NgDUQrirjzO0hqVQ/Gk +OlcBcQoEejZXBPPKY767zBZKkgKVoFSeHjV5NOWUnHwvS4FP5NTJl7Hy2Dqc +MrpLmQKlC+ayQ0ny6LSqoPu0CkXP3z/3l6TLY9pEteV9VQpifq9+a54nj0tW +7AjvVaPg3FEf8fKX8rhRSCVIQZsC75sF+R8/yuMrszARZR0KmC9mDSd75HH7 +3CKj1Wso4C7L9NKeksf3TS2TrLUUvDzzIvumnAKe7zhv/cOAgswHYmtqVBRw +gf+Ttk+GFHh98H/as0YBc5+9GaoxomBQ6veAjJUCtoxk/HOcTQFfjo5aRqgC +9ubyzw5wKGAXXnwYV6WAI+9PfJu1oGB9y+s/o3UK+KNsYDp7PQWOPAs3+DYp +4C7yEM96SwoCXEPb4LMCPjQYX3nUigKrWEZ8wiICs1smjTqtKWgUqrxhtIzA +LGMT6xAbCpzzNtWNCRLorj/iNUt7y6tTwv5SBLJyjU8vsaMgTGH6hpk6gZeH +lYx4HSiYepBeN6dNIBEaGRlNO8ZafYTUI1DH4Z+KEdpJ+/wMmOsIdLjZvf2V +IwXLFv/yajcn8EZJVL2REwXpl87FZ2wgEN0vGl+nfammoY7XhcCmWFsIdqZA +wSNw5JE7gdcOwMc62nnD88LhXgT6f02NVXKhoEhcf0t/AIEjixdPfqBdG5Q9 +UhNF4MyX3VzRjRTY/DYWORRL4HMB6ddbaL9ObzbQSyDQgNE5n0O7rXxpQt4J +Au8NnM5lutHrxTEvzzuNPh8mxHxpD/StqxfLJHBTr/e1LNqjyyNEkq4Q+EtA +b47XnYLwHEFDznUCj/fJv1xLe1bvzpapmwR+yOQv96cdV2+RcP8ugcHHyOpU +2nw+XXmBRQSa1bf3P6Sd8uNgvdxDAkNUrRTbaQseFx39UEagj1RJ/G/amTKF +ImmPCSyvGpmT2USBFNfa0OopgacmuRlGtK+u79/y9zmBvKa1tq60mW2HE0oa +CfxUP8wMpn17j9TN0LcETsePyRymrcn7oF75A4F5I+cM0mhT5x1Gu9oIPO+U +F36FtpH6oMiFLnr8af3vb9F+XJVo6NRPYD3KenBpm7vJeS8ZJNA5X3JBCe0X +g6UJVcMEJhdkvymjbX/Y9eaBcQJVv8bV/ucm4ZF67WkC9S8l9BTT3px/fPTr +TwI1isJY/13vE5spmjNPYGe5zJn/7rftTaWhx0IGVkw7qvw3nq8Bm71XLmXg +XtvWr6dph8yOJ9StYKCtWfL7Q7TZ+3ZIfBFhIP+Yi3wQbf6h9gI+KQYe798p +6Uj74zYnM4YcA5Nqm6vW0L7ZUfNxHZOBTkSOlAjtCDejEG8VBirs/Mj8Ts+3 ++at7C2I0GLh17Gh3He2uJ+c0ig0Y+CMuJmI/7XuGy542mTBQ9EKPozntGG7c +5jFk4GPh2W5B2hK5QYnqdgxsHotTu/bf+pH+JGnjzEDrbSJf/GhTmc73d7gz +sMgx25ug7ZRk3Hrdl4GN2jNx5+j1KP/3/p6q7QyMFxvRsKM9HMXk6wxm4GVX +3Ut/XOn1snO5llQEAxmSy0o9aG/qja/Rj2agicfrnQtos7wmPTbGMTBjh2VX +Pl0P1XadR9NSGChzuUxqkK6ftFqXVfdOMxC0RrqP0vbmPC+sz2CgZJDlXlna +c1pFbQuvMvBTZfuQBV2PuiJHtGNJBl6MkY0MoeuZ59RUbVYJA5+Mf7syak/X +E98ur5IKBo6pDp7bQ3v3lGvS+DMGbq/8Oe9P50VeK6sjqJ2BHZzqZhadJ/td +LoYldTNwpl0l/zSdP9iwYvGNAQZS52ZdJjZQ0FkxrdM1ysDYiEROMZ1XEtl1 +yW58TFweLp8kSufbgCRHdj8/E8UVubYBdP5R6ST5zwompvGtmiwyp+cz8dKn +BkkmujToz4AZPV+BIbpmGkys3KHew15HP5/6yi5Ndyb2CYzbXaXzd/qq9JG1 +Xky869u+qJrO50khJZaxLxO7Z5Xed+vT9T5hvGt9MBOL4zLvSehR0FcRMO11 +mInPL5TF+tP532BXKphyk4leQvVnQ+j+8eLxv+Tpu0ws0aoQ8af7S632S7fM +IibqBkmWutL954lo76Vr5Uxkfvx8QJNFj79jmUrxKyb2Yt+vagU6/3b7QN8U +E7dUHFfwl6DgQufOvq8/mRiVdfW8Kt3vzjqFJ43MM7Got3rDCN0P09amNM4u +VcQhUmNrqDAFib/IzULyilhgeuOAkwD9Pk4tCjO1UsSeVuWktAUUmBbcyzl/ +XhFvfVD8zj9EQgdRkG15WRG36OmInBskIeb8nWuT2YpYbGnxXf4rCaVH8q+4 +3lFEi/AnHeoDdP/3yMkSrFTEPtv+y2pdJKxedDY9uVcR7zI6ble+o793fGMT +ojRYqJt6PpldSkJxc3S80hoWvm105UkoJsHN9mBcsz4L/YqrNtU8ICFDP/KQ +LrDQ8qr4NQsuCSsE9h4cdWHh9eDbxWp3SFhYvi1sxwEWzkQsW3D2EgnjIrZ+ +m56ycOLEm472WBJaQ5hvd71g4a4ChXEqmoTq5z8h/iUL3dw77qUcICE9pkDh +9kcWJpj6y2mGk6DTJ9A9N8TCv572y712kRBKvtl6VVQJi07962fpQcKQk/uW +ge1K+H1p65oQXRIGUv027V+ijOmiWfoOPVwIHdJg6ggoY+Ncdlod/T05s2Fu +ZGSlMhKtM5rmHVxYxpeRFCytjJbM2PU6H7mgE13z0E9TGT9lCE7MNHLhcKCy +qNNGZbS4enOnQSkXJNYNv1HPVsa4VQ52B1O5YPP9gM1nAxVknlj+zE2XC8MB +/OEP41Wxczh7w6myQvr/RJL3+NPVmCT2yUh3+B6IvFJO435XQ+NjxVtElQpA +NqXI2cBAA2WFn7TyK9+BLHXjlaJBmphYKXfb2OwWNEib6U+c0UIF24gv63bc +BLbs03Ttj9pY+ER4mLvrBgjy5Ub4J+rg5eNQzbl2HeSPKJh6Kq/Bb169TlZx +2bBUybvE9cUaNOzisXzDewW0OKuKDmzVxXwZ/gbbqSzY3yVSY8uzFg+cvAqN +Pefg+0Squ03WWpRyH9G4zc6EDdrPL9lo6mGS6fYXzLZ0eDJh8mvmtR5O2LFX +NvKehlAN3fZ3gfr4/PHS3z1iJ4Azur3Zc6kBTt5UX0bYJIElS8phRa4B6jf7 +20erJIJqwsmDTw0NMWSDX1vZQByoBRpXKbUb4u/djip+z6Ih8MnOYw/3GaGM +18GqitxIqMpp3j4ubowKnQYumg37YPL2/Ix2qTEOKHwVDtbcAwFKBUsvObDR +QKt60F5uJ8Q889ml7MzGqnnZVfJLd0J6oEgj5crGfxob6v5MBkHlzejUxs1s +PEo0Jg2+DAIxZWuhP/5sXO7w+Oyuw0HwXPmzmF8UG9vSliyQ7t0BaqoKhHI2 +G2dvPdg+SgXCuFqmATXGxg6ngN7SuABofYmWohNsZLCtF/HvDYDq0NGNEVNs +HBr2kQ7wDYA0ymafwU82mi5qnzfGAFBj89x7xGeCx1ISBHfxBsA2mz2MGgkT +fK3VP/kqZRs0B20QaDY1wV2dXYzYq/5QlverdyrFBIuZv/g3NPiCgUXEjO0p +E8Qv7LZkri8U9w4L5Jw2wRbd259bz/sCJd9laJthgsECrBMPAnzhXlb16WuX +TfDMO6WPZn99ICc1yXhDoQk+ztfeV27gAycihM5kvTdBw81rnrx86A1e6xXR +RN4UD81KS7r0e8KfZn7BGsIUd2spzf5u9IScwNEOW0VTbEx8u7XioSd8SS4/ +4KVqivAsOXlvsifsr3cqitY1RUcV/l8P1DzhpOMh+TIrUzw8NTyaG+UBjzw+ +/Nbba4orfC3FnstsBpk9x8u1qk1RTT2y5HKWG6TN79A/9dQUk2Su721KdgPe +DCvya60pfhCyaJCIdIOhkkV3cupN8bVeH9a5uMEjnmNZIu9NMRvN4NVyN/A6 +m3Bg+rMpXvYL+7Y5cSNkVUTrP1nOQeNZT029aFcQXxZCOmzmIOPUuQGDVGfI +szgcM+bJwTyn+sM9sc6gezjNItObg5ayk3FZu53BcYz7odWfg1Wh/Glr7Zwh ++ePUXEAIByeFwimx5c4wmxtvHnOEgy2WtccmpJ2g3STzfX4Bfb7Hwk3LjR1g +Z2TeFZtCDh6s77ryRsYBpguLA4e5HJT9oiNV+NceRJitM2tKOCjn/W1Lea09 +2PHLyT6u5mDBc4nBxa72UNmcv/39Bw5GlRZWhuyzA1vBMs2oVg6qyrfNNbjb +QeuG+mmpDg42Hjuubc62g8lH31J8eji41WC5YSyfHWhe17n/vyEOvv6+77L4 +BVuobDeLSh2h93/VOmJ8yBZsxTaC9hgHVw2+exbpbws7jke+i5jiIPPlBwVD +DVuYrE6+JDnLQTu2p1ClsC0k/rwQ8OgnB5fWLhHxnLGBlXp3NLb+4aCXjZC4 +YKcNXNvzaGp+noOK4ncWdTy1gf8DO9sYiQ== + "]]}, + 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:eJwV13c8Vv0bB3DRUIlsmee+3UZ2Mm/urguRvaKQjCQpSRmFQopU8oiGJkka +ivucsqJ4ojKaUla2yk+I7Jbfef46r/frrO/5nu/1uc5hbNvrGsjLw8NDLODh ++W873VVfyzqVt+5v6epG5c3m65qvSUWbtSbC02eyAl+aCEDxN9ukWjMgQqM5 +uKpJB6Kc77bwteaCbm6z+c0mBOFRyYy5FgrsLrBaDzU5Q3el497JlqdwuyHM ++tc7P7BiDXWOtzTBWGIRe9HbMJhrMTw31tIHJhM5joZ1CVBjcSvvXe4EjKsM +OLZ6nAHZ7vIv2zT+wMnQy+vz918EsRDfu0ss+PAw66Xji6M5kLHGqsLRnR+P +Pfz8vHprHrRl6VSPr1yBL5TeS969ewtO5cW/4V0ljGLxZb1qPXdB8mz/icyr +onjlkbDElav3QUq9+NhsvihOlwgJLL51H6SfJsdv5Ypi2J/I0WDufZAfWx2p +UiOK5/+tDFeouQ9K9mF+FYOieEQmzNds8D6sXfjHoH+tGLr3y1T6rikEpwiJ +Ad0GMXSQifr990khHHezWdc0LY5KWRU/zrwoAumHr6V5F0jg+9L/xUm9LYJC +UbeZNcsl0M/wRvaF1iL42OTDPaMggU2qzpfj/1cELJcIpou1BPYoa+jGLuLC +U4fsxW8vSqB69GYrUObCH6up169MJdF3kRTr53YupOfHFPyxksQHw6k/n+3k +AmsxT4qmiyT2FnuvTAvhgv2zZWanAyXxVrTgnEgEFy5ZEA/s0yQxI06s7Hsi +F4zQ7kJjtyRuLxCvnMzmQrjxdd/6RCn8E9+eo97CBdscwUm7VClcGfT2tFU7 +F5hLDqW8PieFdRMTOj6dXHjbvIl8f1sKnQeSLh7t54JWmABf12sp/Ed564/8 +71wYzD+Q/0N6FaoQKY+clpDgLeY4IvNgFdbrjmet1iNhbWzFkWuVq/DLJ45Z +hwEJy/pUJRjP6eOP1mSfMCahvIgPlNtW4c9N1fGf1pEgYVeerjO/CsMcb73y +siHh7RGWnqWdNE6qVhSXbyVh/fefMaH90hhEXUlfcIyEaOuzav8OS6M1Mh6v +Syah8Lpmu+i0NC5Vza09mEKClJufcTm/DFKFboH9qSQMlz2b4dOSwf9ZvfuR +cY6EzMT0iIsHZfDuQN3uLfkk9Ikrh9aukMUpWLQ/8xkJknur5CQlZVHHT3hX +yAsS7Os8XgUTsqi9smi9eT0JJTGnNITWyuLAlle5Ay9JONk9NuTpIYv21suW +L2wmQfdORdD3XFn8smFx0/1eEo6YuvhLG8mhkIvP5aKfJFj7XPthaC6HY4et +NC1/kyCY8O2ou70cztsdZbT8IeFKTVJ+up8c3glfunaMh4Iy20ffFp+QQ0ut +7/wziykY81CMmmiTQxm2/NxmEQpKY8KWCA/IYZ158NgDUQrirjzO0hqVQ/Gk +OlcBcQoEejZXBPPKY767zBZKkgKVoFSeHjV5NOWUnHwvS4FP5NTJl7Hy2Dqc +MrpLmQKlC+ayQ0ny6LSqoPu0CkXP3z/3l6TLY9pEteV9VQpifq9+a54nj0tW +7AjvVaPg3FEf8fKX8rhRSCVIQZsC75sF+R8/yuMrszARZR0KmC9mDSd75HH7 +3CKj1Wso4C7L9NKeksf3TS2TrLUUvDzzIvumnAKe7zhv/cOAgswHYmtqVBRw +gf+Ttk+GFHh98H/as0YBc5+9GaoxomBQ6veAjJUCtoxk/HOcTQFfjo5aRqgC +9ubyzw5wKGAXXnwYV6WAI+9PfJu1oGB9y+s/o3UK+KNsYDp7PQWOPAs3+DYp +4C7yEM96SwoCXEPb4LMCPjQYX3nUigKrWEZ8wiICs1smjTqtKWgUqrxhtIzA +LGMT6xAbCpzzNtWNCRLorj/iNUt7y6tTwv5SBLJyjU8vsaMgTGH6hpk6gZeH +lYx4HSiYepBeN6dNIBEaGRlNO8ZafYTUI1DH4Z+KEdpJ+/wMmOsIdLjZvf2V +IwXLFv/yajcn8EZJVL2REwXpl87FZ2wgEN0vGl+nfammoY7XhcCmWFsIdqZA +wSNw5JE7gdcOwMc62nnD88LhXgT6f02NVXKhoEhcf0t/AIEjixdPfqBdG5Q9 +UhNF4MyX3VzRjRTY/DYWORRL4HMB6ddbaL9ObzbQSyDQgNE5n0O7rXxpQt4J +Au8NnM5lutHrxTEvzzuNPh8mxHxpD/StqxfLJHBTr/e1LNqjyyNEkq4Q+EtA +b47XnYLwHEFDznUCj/fJv1xLe1bvzpapmwR+yOQv96cdV2+RcP8ugcHHyOpU +2nw+XXmBRQSa1bf3P6Sd8uNgvdxDAkNUrRTbaQseFx39UEagj1RJ/G/amTKF +ImmPCSyvGpmT2USBFNfa0OopgacmuRlGtK+u79/y9zmBvKa1tq60mW2HE0oa +CfxUP8wMpn17j9TN0LcETsePyRymrcn7oF75A4F5I+cM0mhT5x1Gu9oIPO+U +F36FtpH6oMiFLnr8af3vb9F+XJVo6NRPYD3KenBpm7vJeS8ZJNA5X3JBCe0X +g6UJVcMEJhdkvymjbX/Y9eaBcQJVv8bV/ucm4ZF67WkC9S8l9BTT3px/fPTr +TwI1isJY/13vE5spmjNPYGe5zJn/7rftTaWhx0IGVkw7qvw3nq8Bm71XLmXg +XtvWr6dph8yOJ9StYKCtWfL7Q7TZ+3ZIfBFhIP+Yi3wQbf6h9gI+KQYe798p +6Uj74zYnM4YcA5Nqm6vW0L7ZUfNxHZOBTkSOlAjtCDejEG8VBirs/Mj8Ts+3 ++at7C2I0GLh17Gh3He2uJ+c0ig0Y+CMuJmI/7XuGy542mTBQ9EKPozntGG7c +5jFk4GPh2W5B2hK5QYnqdgxsHotTu/bf+pH+JGnjzEDrbSJf/GhTmc73d7gz +sMgx25ug7ZRk3Hrdl4GN2jNx5+j1KP/3/p6q7QyMFxvRsKM9HMXk6wxm4GVX +3Ut/XOn1snO5llQEAxmSy0o9aG/qja/Rj2agicfrnQtos7wmPTbGMTBjh2VX +Pl0P1XadR9NSGChzuUxqkK6ftFqXVfdOMxC0RrqP0vbmPC+sz2CgZJDlXlna +c1pFbQuvMvBTZfuQBV2PuiJHtGNJBl6MkY0MoeuZ59RUbVYJA5+Mf7syak/X +E98ur5IKBo6pDp7bQ3v3lGvS+DMGbq/8Oe9P50VeK6sjqJ2BHZzqZhadJ/td +LoYldTNwpl0l/zSdP9iwYvGNAQZS52ZdJjZQ0FkxrdM1ysDYiEROMZ1XEtl1 +yW58TFweLp8kSufbgCRHdj8/E8UVubYBdP5R6ST5zwompvGtmiwyp+cz8dKn +BkkmujToz4AZPV+BIbpmGkys3KHew15HP5/6yi5Ndyb2CYzbXaXzd/qq9JG1 +Xky869u+qJrO50khJZaxLxO7Z5Xed+vT9T5hvGt9MBOL4zLvSehR0FcRMO11 +mInPL5TF+tP532BXKphyk4leQvVnQ+j+8eLxv+Tpu0ws0aoQ8af7S632S7fM +IibqBkmWutL954lo76Vr5Uxkfvx8QJNFj79jmUrxKyb2Yt+vagU6/3b7QN8U +E7dUHFfwl6DgQufOvq8/mRiVdfW8Kt3vzjqFJ43MM7Got3rDCN0P09amNM4u +VcQhUmNrqDAFib/IzULyilhgeuOAkwD9Pk4tCjO1UsSeVuWktAUUmBbcyzl/ +XhFvfVD8zj9EQgdRkG15WRG36OmInBskIeb8nWuT2YpYbGnxXf4rCaVH8q+4 +3lFEi/AnHeoDdP/3yMkSrFTEPtv+y2pdJKxedDY9uVcR7zI6ble+o793fGMT +ojRYqJt6PpldSkJxc3S80hoWvm105UkoJsHN9mBcsz4L/YqrNtU8ICFDP/KQ +LrDQ8qr4NQsuCSsE9h4cdWHh9eDbxWp3SFhYvi1sxwEWzkQsW3D2EgnjIrZ+ +m56ycOLEm472WBJaQ5hvd71g4a4ChXEqmoTq5z8h/iUL3dw77qUcICE9pkDh +9kcWJpj6y2mGk6DTJ9A9N8TCv572y712kRBKvtl6VVQJi07962fpQcKQk/uW +ge1K+H1p65oQXRIGUv027V+ijOmiWfoOPVwIHdJg6ggoY+Ncdlod/T05s2Fu +ZGSlMhKtM5rmHVxYxpeRFCytjJbM2PU6H7mgE13z0E9TGT9lCE7MNHLhcKCy +qNNGZbS4enOnQSkXJNYNv1HPVsa4VQ52B1O5YPP9gM1nAxVknlj+zE2XC8MB +/OEP41Wxczh7w6myQvr/RJL3+NPVmCT2yUh3+B6IvFJO435XQ+NjxVtElQpA +NqXI2cBAA2WFn7TyK9+BLHXjlaJBmphYKXfb2OwWNEib6U+c0UIF24gv63bc +BLbs03Ttj9pY+ER4mLvrBgjy5Ub4J+rg5eNQzbl2HeSPKJh6Kq/Bb169TlZx +2bBUybvE9cUaNOzisXzDewW0OKuKDmzVxXwZ/gbbqSzY3yVSY8uzFg+cvAqN +Pefg+0Squ03WWpRyH9G4zc6EDdrPL9lo6mGS6fYXzLZ0eDJh8mvmtR5O2LFX +NvKehlAN3fZ3gfr4/PHS3z1iJ4Azur3Zc6kBTt5UX0bYJIElS8phRa4B6jf7 +20erJIJqwsmDTw0NMWSDX1vZQByoBRpXKbUb4u/djip+z6Ih8MnOYw/3GaGM +18GqitxIqMpp3j4ubowKnQYumg37YPL2/Ix2qTEOKHwVDtbcAwFKBUsvObDR +QKt60F5uJ8Q889ml7MzGqnnZVfJLd0J6oEgj5crGfxob6v5MBkHlzejUxs1s +PEo0Jg2+DAIxZWuhP/5sXO7w+Oyuw0HwXPmzmF8UG9vSliyQ7t0BaqoKhHI2 +G2dvPdg+SgXCuFqmATXGxg6ngN7SuABofYmWohNsZLCtF/HvDYDq0NGNEVNs +HBr2kQ7wDYA0ymafwU82mi5qnzfGAFBj89x7xGeCx1ISBHfxBsA2mz2MGgkT +fK3VP/kqZRs0B20QaDY1wV2dXYzYq/5QlverdyrFBIuZv/g3NPiCgUXEjO0p +E8Qv7LZkri8U9w4L5Jw2wRbd259bz/sCJd9laJthgsECrBMPAnzhXlb16WuX +TfDMO6WPZn99ICc1yXhDoQk+ztfeV27gAycihM5kvTdBw81rnrx86A1e6xXR +RN4UD81KS7r0e8KfZn7BGsIUd2spzf5u9IScwNEOW0VTbEx8u7XioSd8SS4/ +4KVqivAsOXlvsifsr3cqitY1RUcV/l8P1DzhpOMh+TIrUzw8NTyaG+UBjzw+ +/Nbba4orfC3FnstsBpk9x8u1qk1RTT2y5HKWG6TN79A/9dQUk2Su721KdgPe +DCvya60pfhCyaJCIdIOhkkV3cupN8bVeH9a5uMEjnmNZIu9NMRvN4NVyN/A6 +m3Bg+rMpXvYL+7Y5cSNkVUTrP1nOQeNZT029aFcQXxZCOmzmIOPUuQGDVGfI +szgcM+bJwTyn+sM9sc6gezjNItObg5ayk3FZu53BcYz7odWfg1Wh/Glr7Zwh ++ePUXEAIByeFwimx5c4wmxtvHnOEgy2WtccmpJ2g3STzfX4Bfb7Hwk3LjR1g +Z2TeFZtCDh6s77ryRsYBpguLA4e5HJT9oiNV+NceRJitM2tKOCjn/W1Lea09 +2PHLyT6u5mDBc4nBxa72UNmcv/39Bw5GlRZWhuyzA1vBMs2oVg6qyrfNNbjb +QeuG+mmpDg42Hjuubc62g8lH31J8eji41WC5YSyfHWhe17n/vyEOvv6+77L4 +BVuobDeLSh2h93/VOmJ8yBZsxTaC9hgHVw2+exbpbws7jke+i5jiIPPlBwVD +DVuYrE6+JDnLQTu2p1ClsC0k/rwQ8OgnB5fWLhHxnLGBlXp3NLb+4aCXjZC4 +YKcNXNvzaGp+noOK4ncWdTy1gf8DO9sYiQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07163577145517594}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.07163577145517594}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJwV13c8Vv0bB3DRUIlsmee+3UZ2Mm/urguRvaKQjCQpSRmFQopU8oiGJkka +ivucsqJ4ojKaUla2yk+I7Jbfef46r/frrO/5nu/1uc5hbNvrGsjLw8NDLODh ++W873VVfyzqVt+5v6epG5c3m65qvSUWbtSbC02eyAl+aCEDxN9ukWjMgQqM5 +uKpJB6Kc77bwteaCbm6z+c0mBOFRyYy5FgrsLrBaDzU5Q3el497JlqdwuyHM ++tc7P7BiDXWOtzTBWGIRe9HbMJhrMTw31tIHJhM5joZ1CVBjcSvvXe4EjKsM +OLZ6nAHZ7vIv2zT+wMnQy+vz918EsRDfu0ss+PAw66Xji6M5kLHGqsLRnR+P +Pfz8vHprHrRl6VSPr1yBL5TeS969ewtO5cW/4V0ljGLxZb1qPXdB8mz/icyr +onjlkbDElav3QUq9+NhsvihOlwgJLL51H6SfJsdv5Ypi2J/I0WDufZAfWx2p +UiOK5/+tDFeouQ9K9mF+FYOieEQmzNds8D6sXfjHoH+tGLr3y1T6rikEpwiJ +Ad0GMXSQifr990khHHezWdc0LY5KWRU/zrwoAumHr6V5F0jg+9L/xUm9LYJC +UbeZNcsl0M/wRvaF1iL42OTDPaMggU2qzpfj/1cELJcIpou1BPYoa+jGLuLC +U4fsxW8vSqB69GYrUObCH6up169MJdF3kRTr53YupOfHFPyxksQHw6k/n+3k +AmsxT4qmiyT2FnuvTAvhgv2zZWanAyXxVrTgnEgEFy5ZEA/s0yQxI06s7Hsi +F4zQ7kJjtyRuLxCvnMzmQrjxdd/6RCn8E9+eo97CBdscwUm7VClcGfT2tFU7 +F5hLDqW8PieFdRMTOj6dXHjbvIl8f1sKnQeSLh7t54JWmABf12sp/Ed564/8 +71wYzD+Q/0N6FaoQKY+clpDgLeY4IvNgFdbrjmet1iNhbWzFkWuVq/DLJ45Z +hwEJy/pUJRjP6eOP1mSfMCahvIgPlNtW4c9N1fGf1pEgYVeerjO/CsMcb73y +siHh7RGWnqWdNE6qVhSXbyVh/fefMaH90hhEXUlfcIyEaOuzav8OS6M1Mh6v +Syah8Lpmu+i0NC5Vza09mEKClJufcTm/DFKFboH9qSQMlz2b4dOSwf9ZvfuR +cY6EzMT0iIsHZfDuQN3uLfkk9Ikrh9aukMUpWLQ/8xkJknur5CQlZVHHT3hX +yAsS7Os8XgUTsqi9smi9eT0JJTGnNITWyuLAlle5Ay9JONk9NuTpIYv21suW +L2wmQfdORdD3XFn8smFx0/1eEo6YuvhLG8mhkIvP5aKfJFj7XPthaC6HY4et +NC1/kyCY8O2ou70cztsdZbT8IeFKTVJ+up8c3glfunaMh4Iy20ffFp+QQ0ut +7/wziykY81CMmmiTQxm2/NxmEQpKY8KWCA/IYZ158NgDUQrirjzO0hqVQ/Gk +OlcBcQoEejZXBPPKY767zBZKkgKVoFSeHjV5NOWUnHwvS4FP5NTJl7Hy2Dqc +MrpLmQKlC+ayQ0ny6LSqoPu0CkXP3z/3l6TLY9pEteV9VQpifq9+a54nj0tW +7AjvVaPg3FEf8fKX8rhRSCVIQZsC75sF+R8/yuMrszARZR0KmC9mDSd75HH7 +3CKj1Wso4C7L9NKeksf3TS2TrLUUvDzzIvumnAKe7zhv/cOAgswHYmtqVBRw +gf+Ttk+GFHh98H/as0YBc5+9GaoxomBQ6veAjJUCtoxk/HOcTQFfjo5aRqgC +9ubyzw5wKGAXXnwYV6WAI+9PfJu1oGB9y+s/o3UK+KNsYDp7PQWOPAs3+DYp +4C7yEM96SwoCXEPb4LMCPjQYX3nUigKrWEZ8wiICs1smjTqtKWgUqrxhtIzA +LGMT6xAbCpzzNtWNCRLorj/iNUt7y6tTwv5SBLJyjU8vsaMgTGH6hpk6gZeH +lYx4HSiYepBeN6dNIBEaGRlNO8ZafYTUI1DH4Z+KEdpJ+/wMmOsIdLjZvf2V +IwXLFv/yajcn8EZJVL2REwXpl87FZ2wgEN0vGl+nfammoY7XhcCmWFsIdqZA +wSNw5JE7gdcOwMc62nnD88LhXgT6f02NVXKhoEhcf0t/AIEjixdPfqBdG5Q9 +UhNF4MyX3VzRjRTY/DYWORRL4HMB6ddbaL9ObzbQSyDQgNE5n0O7rXxpQt4J +Au8NnM5lutHrxTEvzzuNPh8mxHxpD/StqxfLJHBTr/e1LNqjyyNEkq4Q+EtA +b47XnYLwHEFDznUCj/fJv1xLe1bvzpapmwR+yOQv96cdV2+RcP8ugcHHyOpU +2nw+XXmBRQSa1bf3P6Sd8uNgvdxDAkNUrRTbaQseFx39UEagj1RJ/G/amTKF +ImmPCSyvGpmT2USBFNfa0OopgacmuRlGtK+u79/y9zmBvKa1tq60mW2HE0oa +CfxUP8wMpn17j9TN0LcETsePyRymrcn7oF75A4F5I+cM0mhT5x1Gu9oIPO+U +F36FtpH6oMiFLnr8af3vb9F+XJVo6NRPYD3KenBpm7vJeS8ZJNA5X3JBCe0X +g6UJVcMEJhdkvymjbX/Y9eaBcQJVv8bV/ucm4ZF67WkC9S8l9BTT3px/fPTr +TwI1isJY/13vE5spmjNPYGe5zJn/7rftTaWhx0IGVkw7qvw3nq8Bm71XLmXg +XtvWr6dph8yOJ9StYKCtWfL7Q7TZ+3ZIfBFhIP+Yi3wQbf6h9gI+KQYe798p +6Uj74zYnM4YcA5Nqm6vW0L7ZUfNxHZOBTkSOlAjtCDejEG8VBirs/Mj8Ts+3 ++at7C2I0GLh17Gh3He2uJ+c0ig0Y+CMuJmI/7XuGy542mTBQ9EKPozntGG7c +5jFk4GPh2W5B2hK5QYnqdgxsHotTu/bf+pH+JGnjzEDrbSJf/GhTmc73d7gz +sMgx25ug7ZRk3Hrdl4GN2jNx5+j1KP/3/p6q7QyMFxvRsKM9HMXk6wxm4GVX +3Ut/XOn1snO5llQEAxmSy0o9aG/qja/Rj2agicfrnQtos7wmPTbGMTBjh2VX +Pl0P1XadR9NSGChzuUxqkK6ftFqXVfdOMxC0RrqP0vbmPC+sz2CgZJDlXlna +c1pFbQuvMvBTZfuQBV2PuiJHtGNJBl6MkY0MoeuZ59RUbVYJA5+Mf7syak/X +E98ur5IKBo6pDp7bQ3v3lGvS+DMGbq/8Oe9P50VeK6sjqJ2BHZzqZhadJ/td +LoYldTNwpl0l/zSdP9iwYvGNAQZS52ZdJjZQ0FkxrdM1ysDYiEROMZ1XEtl1 +yW58TFweLp8kSufbgCRHdj8/E8UVubYBdP5R6ST5zwompvGtmiwyp+cz8dKn +BkkmujToz4AZPV+BIbpmGkys3KHew15HP5/6yi5Ndyb2CYzbXaXzd/qq9JG1 +Xky869u+qJrO50khJZaxLxO7Z5Xed+vT9T5hvGt9MBOL4zLvSehR0FcRMO11 +mInPL5TF+tP532BXKphyk4leQvVnQ+j+8eLxv+Tpu0ws0aoQ8af7S632S7fM +IibqBkmWutL954lo76Vr5Uxkfvx8QJNFj79jmUrxKyb2Yt+vagU6/3b7QN8U +E7dUHFfwl6DgQufOvq8/mRiVdfW8Kt3vzjqFJ43MM7Got3rDCN0P09amNM4u +VcQhUmNrqDAFib/IzULyilhgeuOAkwD9Pk4tCjO1UsSeVuWktAUUmBbcyzl/ +XhFvfVD8zj9EQgdRkG15WRG36OmInBskIeb8nWuT2YpYbGnxXf4rCaVH8q+4 +3lFEi/AnHeoDdP/3yMkSrFTEPtv+y2pdJKxedDY9uVcR7zI6ble+o793fGMT +ojRYqJt6PpldSkJxc3S80hoWvm105UkoJsHN9mBcsz4L/YqrNtU8ICFDP/KQ +LrDQ8qr4NQsuCSsE9h4cdWHh9eDbxWp3SFhYvi1sxwEWzkQsW3D2EgnjIrZ+ +m56ycOLEm472WBJaQ5hvd71g4a4ChXEqmoTq5z8h/iUL3dw77qUcICE9pkDh +9kcWJpj6y2mGk6DTJ9A9N8TCv572y712kRBKvtl6VVQJi07962fpQcKQk/uW +ge1K+H1p65oQXRIGUv027V+ijOmiWfoOPVwIHdJg6ggoY+Ncdlod/T05s2Fu +ZGSlMhKtM5rmHVxYxpeRFCytjJbM2PU6H7mgE13z0E9TGT9lCE7MNHLhcKCy +qNNGZbS4enOnQSkXJNYNv1HPVsa4VQ52B1O5YPP9gM1nAxVknlj+zE2XC8MB +/OEP41Wxczh7w6myQvr/RJL3+NPVmCT2yUh3+B6IvFJO435XQ+NjxVtElQpA +NqXI2cBAA2WFn7TyK9+BLHXjlaJBmphYKXfb2OwWNEib6U+c0UIF24gv63bc +BLbs03Ttj9pY+ER4mLvrBgjy5Ub4J+rg5eNQzbl2HeSPKJh6Kq/Bb169TlZx +2bBUybvE9cUaNOzisXzDewW0OKuKDmzVxXwZ/gbbqSzY3yVSY8uzFg+cvAqN +Pefg+0Squ03WWpRyH9G4zc6EDdrPL9lo6mGS6fYXzLZ0eDJh8mvmtR5O2LFX +NvKehlAN3fZ3gfr4/PHS3z1iJ4Azur3Zc6kBTt5UX0bYJIElS8phRa4B6jf7 +20erJIJqwsmDTw0NMWSDX1vZQByoBRpXKbUb4u/djip+z6Ih8MnOYw/3GaGM +18GqitxIqMpp3j4ubowKnQYumg37YPL2/Ix2qTEOKHwVDtbcAwFKBUsvObDR +QKt60F5uJ8Q889ml7MzGqnnZVfJLd0J6oEgj5crGfxob6v5MBkHlzejUxs1s +PEo0Jg2+DAIxZWuhP/5sXO7w+Oyuw0HwXPmzmF8UG9vSliyQ7t0BaqoKhHI2 +G2dvPdg+SgXCuFqmATXGxg6ngN7SuABofYmWohNsZLCtF/HvDYDq0NGNEVNs +HBr2kQ7wDYA0ymafwU82mi5qnzfGAFBj89x7xGeCx1ISBHfxBsA2mz2MGgkT +fK3VP/kqZRs0B20QaDY1wV2dXYzYq/5QlverdyrFBIuZv/g3NPiCgUXEjO0p +E8Qv7LZkri8U9w4L5Jw2wRbd259bz/sCJd9laJthgsECrBMPAnzhXlb16WuX +TfDMO6WPZn99ICc1yXhDoQk+ztfeV27gAycihM5kvTdBw81rnrx86A1e6xXR +RN4UD81KS7r0e8KfZn7BGsIUd2spzf5u9IScwNEOW0VTbEx8u7XioSd8SS4/ +4KVqivAsOXlvsifsr3cqitY1RUcV/l8P1DzhpOMh+TIrUzw8NTyaG+UBjzw+ +/Nbba4orfC3FnstsBpk9x8u1qk1RTT2y5HKWG6TN79A/9dQUk2Su721KdgPe +DCvya60pfhCyaJCIdIOhkkV3cupN8bVeH9a5uMEjnmNZIu9NMRvN4NVyN/A6 +m3Bg+rMpXvYL+7Y5cSNkVUTrP1nOQeNZT029aFcQXxZCOmzmIOPUuQGDVGfI +szgcM+bJwTyn+sM9sc6gezjNItObg5ayk3FZu53BcYz7odWfg1Wh/Glr7Zwh ++ePUXEAIByeFwimx5c4wmxtvHnOEgy2WtccmpJ2g3STzfX4Bfb7Hwk3LjR1g +Z2TeFZtCDh6s77ryRsYBpguLA4e5HJT9oiNV+NceRJitM2tKOCjn/W1Lea09 +2PHLyT6u5mDBc4nBxa72UNmcv/39Bw5GlRZWhuyzA1vBMs2oVg6qyrfNNbjb +QeuG+mmpDg42Hjuubc62g8lH31J8eji41WC5YSyfHWhe17n/vyEOvv6+77L4 +BVuobDeLSh2h93/VOmJ8yBZsxTaC9hgHVw2+exbpbws7jke+i5jiIPPlBwVD +DVuYrE6+JDnLQTu2p1ClsC0k/rwQ8OgnB5fWLhHxnLGBlXp3NLb+4aCXjZC4 +YKcNXNvzaGp+noOK4ncWdTy1gf8DO9sYiQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07163577145517594}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.07163577145517594}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9939604151408443`*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"5c430002-7b59-4b33-933a-c69717825654"] }, Open ]], Cell[CellGroupData[{ @@ -2633,18 +8490,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[\\\"5.311979475431623`*^-151\\\", \ +RowBox[{\\\"\ +192330073695578600598678251250730514595536743471887934253145779509789\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"22\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1163350940137443209261321198991532417980825600000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 100, 17, 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993960415255867*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"f6300994-3fee-45ff-9da9-7a5fe8e3f669"], -Cell[BoxData["15.784298544249623`"], "Output",ExpressionUUID->"43ddf880-80a2-b142-8665-3b95395a9831"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5073941850057223`*^-153\\\", \ +RowBox[{\\\"\ +692388265304082962155241704502629852543932276498796563311324806235240\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"25\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8063384494795553340756316369516704730972160000000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 100, 18, 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993960415268132*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"30f65740-b8be-4588-88a0-f31a2f4bdd57"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.277571552183823`*^-156\\\", \ +RowBox[{\\\"\ +257637673519649270217965438245428568131597200085202201208143960400132\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"29\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3853705134253980954253210971658303947407360000000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 100, 19, 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993960415277525*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"782e20b0-0b0a-43d1-9f71-bd16b8f8bddc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 100, 20, 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993960415285528*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"50d887b1-fcb1-4d42-9d4f-6ec047b9498a"], + +Cell[BoxData["10.599799453510597`"], "Output", + CellChangeTimes->{3.993960466791185*^9}, + CellLabel-> + "Out[100]=",ExpressionUUID->"1de1b645-d5b9-441b-b546-6e0adf6eb24b"] }, Open ]], Cell[CellGroupData[{ @@ -2711,27 +8628,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[\\\"3.187519916729378`*^-206\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 101, 21, + 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99396046684818*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"c869e8f7-1422-4a13-bf81-1a6634f9e088"], 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.080167350371406`*^-211\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 101, 22, + 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939604668573637`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"c1ef7a01-688f-4e3e-bd2f-a246cb26bf5a"], -Cell[BoxData["0.009432406283458074`"], "Output",ExpressionUUID->"42e3f6c5-e95f-4040-9e12-cbd48f821f10"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.222795791694571`*^-216\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 101, 23, + 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993960466866469*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"fd34e849-332f-4226-ad99-0270ea7d441d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 101, 24, 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939604668738823`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"fbcc0f8c-d80e-42f9-9c21-17c8168146ea"], + +Cell[BoxData["0.3135279583720449`"], "Output", + CellChangeTimes->{3.993960474188171*^9}, + CellLabel-> + "Out[101]=",ExpressionUUID->"e188388d-aa70-4979-b4c4-d12e632975e9"] }, Open ]], Cell[CellGroupData[{ @@ -2752,8 +8714,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 +8759,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[\\\"3.187519916729378`*^-206\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 102, 25, + 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993960474224332*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"3b44bba7-a96e-48bb-a0ed-04963a552fbc"], 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.080167350371406`*^-211\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 102, 26, + 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993960474230047*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"5a668a6f-4619-4f34-9be9-c66388178708"], -Cell[BoxData["5.210321944589433`"], "Output",ExpressionUUID->"7f3b68f0-36cd-5749-996b-97ffcb02c6cf"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.222795791694571`*^-216\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 102, 27, + 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939604742359133`*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"1758833b-4dc1-4d5e-8320-9b0c31cad37c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 102, 28, 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939604742416763`*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"be593cea-d5b1-457e-a97e-48c55f2ba755"], + +Cell[BoxData["30.74136314782567`"], "Output", + CellChangeTimes->{3.993960481087893*^9}, + CellLabel-> + "Out[102]=",ExpressionUUID->"33a8b171-06bb-407a-bf50-a6b743f4c985"] }, Open ]], Cell[CellGroupData[{ @@ -2839,8 +8845,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 +8890,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[\\\"3.187519916729378`*^-206\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 103, 29, + 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939604811288013`*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"e52faf1b-4d5c-4444-b0fe-03db4db33005"], 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.080167350371406`*^-211\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 103, 30, + 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993960481135974*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"187355a4-05c5-47ca-a525-6c4562d4f5ca"], -Cell[BoxData["20.308521034293705`"], "Output",ExpressionUUID->"34543184-0f68-7449-9af8-306cfc525771"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.222795791694571`*^-216\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 103, 31, + 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993960481143066*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"b2baea74-7e3c-4695-9029-17fc02c6272f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 103, 32, 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993960481149208*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"d9013c20-eaf7-44e5-9add-0a7797de907e"], + +Cell[BoxData["3.8967691722366604`"], "Output", + CellChangeTimes->{3.993960485464509*^9}, + CellLabel-> + "Out[103]=",ExpressionUUID->"345f70f5-c56d-469b-a0e9-75b7b09aa2c3"] }, Open ]], Cell[CellGroupData[{ @@ -2914,19 +8964,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.028645893527397576`"], "Output", + CellChangeTimes->{3.99396048549712*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"6d9fb6ef-80ae-474a-963e-05bbba263497"] }, 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 +9001,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["5.767269133120583`"], "Output", + CellChangeTimes->{3.993960485514707*^9}, + CellLabel-> + "Out[106]=",ExpressionUUID->"33dc4d7c-f664-4caf-86d5-1c04a2fbae3d"] }, Open ]], Cell[CellGroupData[{ @@ -2958,10 +9016,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.3941141045834735`"], "Output", + CellChangeTimes->{3.9939604855237722`*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"b901c3c6-9990-4075-a0a1-9f4c179c632e"] }, Open ]], Cell[CellGroupData[{ @@ -2969,10 +9031,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.80750037653289`"], "Output", + CellChangeTimes->{3.993960485533442*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"0e3f1bb8-73a3-48a5-a154-a9083615f5da"] }, Open ]], Cell[CellGroupData[{ @@ -3160,10 +9226,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.007169448528969105`"], "Output", + CellChangeTimes->{3.99396048554732*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"0c9200d1-841f-422a-8908-a938ebe91a17"] }, Open ]], Cell[CellGroupData[{ @@ -3175,18 +9245,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.46651415399159`"], "Output", + CellChangeTimes->{3.9939604856531363`*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"474a8d50-b80c-44e2-ba2e-5836a3e4a752"] }, Open ]], Cell[CellGroupData[{ @@ -3376,10 +9442,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.06949025088068488`"], "Output", + CellChangeTimes->{3.993960485666606*^9}, + CellLabel-> + "Out[111]=",ExpressionUUID->"51240c45-7da2-4255-9d74-247b2a8aca63"] }, Open ]], Cell[CellGroupData[{ @@ -3391,18 +9461,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.36188614125152`"], "Output", + CellChangeTimes->{3.9939604857844257`*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"46682a61-0031-496a-a8e8-7798a43ef0bd"] }, Open ]], Cell[CellGroupData[{ @@ -3493,10 +9559,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.06376749590987153`"], "Output", + CellChangeTimes->{3.9939604857940187`*^9}, + CellLabel-> + "Out[113]=",ExpressionUUID->"f3643777-9e49-4b1b-a159-cfeb0b84f00e"] }, Open ]], Cell[CellGroupData[{ @@ -3584,10 +9654,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.9362325040901285`"], "Output", + CellChangeTimes->{3.9939604858044033`*^9}, + CellLabel-> + "Out[114]=",ExpressionUUID->"fa7ebf00-513e-4d9d-9d8c-ed3b8fe1a3d0"] }, Open ]], Cell[CellGroupData[{ @@ -3708,10 +9782,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.05970120237525605`"], "Output", + CellChangeTimes->{3.993960485818431*^9}, + CellLabel-> + "Out[115]=",ExpressionUUID->"172e94c8-a572-4848-9599-9ae3899540a7"] }, Open ]], Cell[CellGroupData[{ @@ -3773,27 +9851,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.22074676455547`*^-212\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 116, 33, 31385712205708718260, + "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939604858332787`*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"e0b58589-8ae4-4498-a5b2-aca6fefb48fe"], 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.668652650648429`*^-217\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 116, 34, + 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993960485841222*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"84851614-8d53-4d12-9d85-f89d0f2db21a"], -Cell[BoxData["3.3685700770211437`"], "Output",ExpressionUUID->"a8a97847-bb08-1e4d-8ab6-1eb11a1cda8f"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.577986038795301`*^-222\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 116, 35, + 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993960485849818*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"6944002e-a934-4783-bd7e-4fa97c828c9c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 116, 36, 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939604858579493`*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"cb173886-7f62-4969-aff0-8a26d2fbd6fa"], + +Cell[BoxData["10.46651415399159`"], "Output", + CellChangeTimes->{3.993960489675138*^9}, + CellLabel-> + "Out[116]=",ExpressionUUID->"3b9db924-85e0-4026-bf26-0b1d8442c2e7"] }, Open ]], Cell[CellGroupData[{ @@ -3855,27 +9978,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.22074676455547`*^-212\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 117, 37, 31385712205708718260, + "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99396048971427*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"2523e1d5-3263-4f4f-a1f5-53bc1fb92fc2"], 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.668652650648429`*^-217\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 117, 38, + 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993960489722391*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"0876c381-7a1a-48c0-bfb9-ca653e08f012"], -Cell[BoxData["8.161099076568323`"], "Output",ExpressionUUID->"f80834f1-cc9f-1c44-a97c-64c50ba97b67"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.577986038795301`*^-222\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 117, 39, + 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993960489730373*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"01c64225-d3df-408a-ba43-7b464b613ffa"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 117, 40, 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993960489738585*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"7354d395-6309-453c-973a-321a0b69d883"], + +Cell[BoxData["3.3618861412515204`"], "Output", + CellChangeTimes->{3.99396049360563*^9}, + CellLabel-> + "Out[117]=",ExpressionUUID->"a951c5e3-f8c3-4dd4-9b78-f2f449fbd182"] }, Open ]], Cell[CellGroupData[{ @@ -3933,489 +10101,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"], - -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:eJwV1Xk4VdsbB3AUJVPIUJJZIZKDEtd646iUKSmkxLHPNmbOzxS5GSpShsJt +IENk1ihTAzeSKamolDJU23x2hoZbv3X+2M96Ps969ne/691rr63ECrBn8/Hw +8EziizsGdemsv9fTZXpEIFfi3kkKmU4VGrCY5Yi2rNPneijXMFOV2YBcHgle +4tqO6BQQZvyLAn3PWtRi14THNvMzO5DYDgv9+9inn8g+jC19jlxtNnvWYd/v +Cbr6S+8lqj2x9309NvWmPTqivh8l9xflNGKvGVVxmTd/h1LsdHIeYO+ZjjYK +6fiAYj9R7x5hN/2ihMJLP6K4pLdEC/arOJmou/7DqGELz+ZW7CkBJvVNbxRF +U07b27EFUgKdGQtjKOji6IVO7HXiV9qC6r8gw83XdZ5j28jNX58yn0A2As0b +B7DJPGVp7eVTaHa9QvogdqyabYJvxzTSWVZl/Am7X6Zvc2jpLFJv8XaZwCYO ++nhnpHBQ5t+Zz2exZy7zXLvpTyN4yElewF6urL1yVm8OZQRZdi6Jp1Am0bxz +pdQ88n2w3WEFtmKxc+ymhXk0BEcVxLG3bkycOlq/iNpPH/5bAdvL8EMHZf4L +Wd7Ji0TY38KPLV2h/h+aUNdV2YV9ol7IRGP5b+QkwhHbi50NW8s8O/6gmafC +dz2wiaI2ZnApLzDb/9FPwS59kjEUJ8cHgTV1vy9iz3x2jU5L4YP51cIi+djR +mnO3qv2XwMKo2Xwtt94qJZVpPX5Qj/j14yv2m56Jpt8F/KAbVzg2z62fc++g +qJQAkJ+ipZcmUKhc3yZde0EANISbzBSwW+5H8vrVL4eGfcc7nbDnml98+GIu +DNfLW8v6sSWshFdGNQnD1axw23Fs3T4miBiJQO253ea/sX1G7uRt1hGFx2l2 +cmqJFArk69D9S3gl9CwfTAnDHlWunE2YF4dTdneObUjC/SHbBbsZEpC40UEO +sPnKxpRkgyTg2TYxcSdsRYaCfem4BPSl9k+cwj5ofv5m15AkCBlVsqewuz2C +Q2SeSUHssMShtlMUel+cmuy2XBoS7CyXjGJPjJcW3LCQhpjxCz94T1NoRejw +C+OH0mDHGzhggs2Md9B3uyMDxi1yTnex6woN50pyV0NE0pRT7RkKFY7+CNsW +Kg+zTzXYiykU2rU/6X1IhTw0HqGi1p7F+S2SOyrG5IFzILAfsPULN0opOq+D +tvR21hnsFpbrLX5TBSjaVNagmEohzvTQ/76cVISCwJr4g+coJHmUefuWtTL0 +jjNZfOkUGitc4WXnowzrbRp0N2HXvuuRm0xUBv2cL8xD2IesDp9Uf6gMJZcO +m97DLtQKs8/RU4EtP0uOBWbg51PFMzEyqlBmi+amMynk4CmkvfujGjC3Ceqr +ZFMIhe3Xc/xPDS5XJZQ6Ymsm5G4hVqsDfWjKIwWbp4BhFrNXHdQfxOXOY1e8 +d3G8+Ugd5oSvGnXl4O/zQHncmvz10KUs9f30JVwf0/oVxdKAxSCxPEYuhQr2 +Zb1diNGAr5/qgwOxU1kfh5Ze0gD11r9OVWATJ46Nr3uhAcG9TVEb8igk3nCF +Z5+5JnyTy4tXuob3D2NKs15FC/Zna8srFlBITvlcbPLIRhBOuelhW0yhhjPf +NL7zaUOkkW/AP9iHaOc+Ukkbco1uPB3FvtqiqmHmqg2QV+19vIRCyp51vYuv +tcH8YYdj9Q283vJRNfKZDuxMZIyrllNIXm4dqeisC6MhxmO7aii0sShU+CfS +g2KjhJGoBgqxiJNz2jZ6kHk5RL8PO1sl/b3bIT3Qz49u29hIoSX5VdVPwvVg +qnqg4T32m6uUQ3qNHkQevPLK4gE+T7PdrmioMIA5p9ep+Bi/32QrHScBfRjL +zWkUbKPQtWBVuzsdBnDf0fdIcR+FesLQlvgiI+iN9OvIoymk5PrS5rDfXxAY +4P3utfQ4Yv+5WykfAUBV0m84xuNIZrx2mQzLDKxatZTavMZRKMPkXbomE1wH +bvJ/vjiOWJO/2iQpC5DXeSEt1jaOKsxCluV274TDc30JDbwTqPCbz6PyTEt4 +0Pl8KMV4Ai1ul+1sid0Dxmdzi8JjJtAgz5LZj+7WcDT9T71zywTyXxtwPk7F +Fv73zM9XSXASVXq3PbyQYAfu5aL3TzpOokh69YKW914QnfRtFi+cRHO7dxxo +PWIP7ccSjsb/mERGLmnbR/fugxjzp+k37adQ7+orPi0MB1jy5WtZVfEUWnP9 +ZEPJhv3Qf/6xQJLANKod0rSyETkAS68w9B3cp9G6vhnPsMkD4EXUfNZqmEaM +C2nlBUOO8Nu3fqfByhl0ZSmtk97sBLTs5e4cNIPubt/0JuG+M2xXF4ajITMo +e8sZ8V+lB2G/79DAmeszqPttUSIjxQXMFzKlDV/NoDvWl1UDTxyCbZuL44oE +Z9Hs0X08/sRhWHO1vnGj0Sya26HhNWXuCnLf7pyV9JxFJZMDiyGGR+D2D9/P +r7JmkdO1Io/Dwm4gcS0hUbZlFt26uefIkiQ3MEOn9/txZpGRXO/309/dYN5d +f+atHAepDHm+ee7tDl1j8/nxZhw0IuRre3nYHUSGvdoWvTmoJ9XGY+d+Fhhn +a64y5P63wnOFjvWwoPXV7xqjSg5qaPrz3cPSA6RfH4g27uAgsUOQxKjzgHXN +T7/+HOEgxVWt3WsbPADChGTcRjlIt8NaVqDJAzwLvvO3YNubuNzof+QB2ZpF +G5LHcP7asGfHn3qASWtTrPQXDlozWCbW1u8B8/+aeyuNc5Cqq0z2oQUPMNzj +3rlsloOM3KZKEvQJqCSGxFf94qDrOTMhNoYELJ7iqWJhr3rBMZXZSoBco6hk +DfaUxUJfiTEBipe7N1n/x8HnFw9vhxkBPWfe1f39m4NEF8SdJfYSYPGYT2yY +h0YjZw0Ec48SsOZVV0A4P432tm7p8wwg4DtrpP8BdhPPtlzdIAIYEU+WLROg +UU6IqcHjUAJu/dt5NxPbxnmn+2gUAQ6Ti04Vy2h0X9X5vtYZAqrrHa+/EKRR +an20d+11AtK0LLW+idDoqF6WUXgJARHWr3/qidLI6kaN4NZSAgJsIzKCsFdk +jd24V0GASP5bmSnshGA76u5tAhzLrENHxGgUraHqe+cxAT5xV449EaeRT9Yz +v5vvCfDPmPI6IkUjS9Exk+AhAvIFTUWzsDck8IjofSJgs0hzRBf2WLBBRc0o +ATaF+wpMpGnkbpM7WT1BwPGBASQtQyMn/hD/qh8EGGuPZTfJ0mhnyJrAcmk2 +mG6tzR2Wo9Hj3MTd6bJsCO1/LSu7lkYmHRzV8DVs+MtB0NoKW1ft2YD5OjYI +dseP3cJe/TrK/K0aGzQCVw3GytNofNug9AoDNpyT9uldoUCjc3x5jZ772DBl +EFU5oYTXv0k423o/G77vCI2WVaZRvEt4MMORDbZlJUuZ2OG37db/OciGzavL +zP/Bdid50y6y2CBi7x9lrkIjRjuL+DeIDYN/nnWcUqXR6zQ1IZXzbDgg2Nn9 +Xp1GlUjE60saG77eCIr/gx0/+a2lIoMN8Qcafyqsp5GeZUvM1iw2rPphpOeG +ncrjwbG+yoZLUi5Ng9g7AvIGwsvZkLqfsu3cQCN5+VOGppVssEljaFPY39oD +MpZUs+Fn9+cOAQ0a5asj69RbbChyOrkPYf83OPiwoI4NxnvUj1dg37aSK+lq +Y0Ph6GYUo0mj5B98/JntbFBbnbU9C5tVQrk7d7BhbZOeQDX2yqV1ciPdbGg2 +5X01hO1X73Tu+ys2xM0Un0NaNFLRvBimOsqGkOhLXrPYP14ff/F1jA1Go0Jn +BTbSqCeBrVv1hQ28txJC5LBjPupTRhNsaDVLTmRiv8l+cdiWZkM2ym7JwE5f +Jm4RyUvCxan8q+raNGrgDLqELiHBgU4cMsL+PFga7M9PwjV1/pdW2Ca3mXks +QRJ+n255GYQ95hb+c7c4CfyzPIa12CutLCQsJEnoa/EUfoptvEVCA0mRUPDO +/sIA9nmR8gOM1SSUNZc1fefO132okVMigRmmGmCoQyOyqLxNSoUEjXXeA0zs +8+cjPoipkdC6SmHeHnuMlBRZqkFCk8OrHf7cecmdXhO6JJxK2GpxDbvut2Ts +mB4J6G6nWQX26NehC0P6JGzb0sKpxd72MLK5bysJNsJd3t3YI36V6xqBhLgO +tduL2KJOUQb3zEhon7vA5NtEIyPzXVY1TBI4XgeThLBTV3+KKNpFQnLyGxV5 +7NqlVedzd5MgcSrjuBr28HRUcY4V7pfXpdPa2FufSL08a0fCR056rQk2q+bT +eJI9Ca93nXhrjn32chXf3w4kEG/vVe/G/hRsqRvmREJjGm+wI7aIq/TOwIMk +CD0Sdz3MzbMcPuxziIQf5l6/WNz7FY4nu7qRcPv9iO1Rbj0rduc7sUiwchfk +D+bmzUnftydIkBcJ8gvj5n0c7rYiSbA2kEuM5OZ1VI/t8CKBx2iZfQy3vnvH +/wMfErRP6vfEcfPzd68y9sP9OJPPk8DNPyujZeBPwo1eu+Ekbn74yPZNgSRk +fDUNP4MtTNQ4aQSTwPDxe5CCvcU2JkAllASln/21qdz8bXsS5cNIGLOJJ85j +p6jJXpEJJ2Faxf9xGvbdlaO3xCNJyGJe7E3H/vizpl0omoQNSb8yM7j5n2M+ +8seQ0N2ZJ5iJbdi7Z/FPLAl3BE7qcv1/A9YOmQ== + "]]}, + 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:eJwV1Xk4VdsbB3AUJVPIUJJZIZKDEtd646iUKSmkxLHPNmbOzxS5GSpShsJt +IENk1ihTAzeSKamolDJU23x2hoZbv3X+2M96Ps969ne/691rr63ECrBn8/Hw +8EziizsGdemsv9fTZXpEIFfi3kkKmU4VGrCY5Yi2rNPneijXMFOV2YBcHgle +4tqO6BQQZvyLAn3PWtRi14THNvMzO5DYDgv9+9inn8g+jC19jlxtNnvWYd/v +Cbr6S+8lqj2x9309NvWmPTqivh8l9xflNGKvGVVxmTd/h1LsdHIeYO+ZjjYK +6fiAYj9R7x5hN/2ihMJLP6K4pLdEC/arOJmou/7DqGELz+ZW7CkBJvVNbxRF +U07b27EFUgKdGQtjKOji6IVO7HXiV9qC6r8gw83XdZ5j28jNX58yn0A2As0b +B7DJPGVp7eVTaHa9QvogdqyabYJvxzTSWVZl/Am7X6Zvc2jpLFJv8XaZwCYO ++nhnpHBQ5t+Zz2exZy7zXLvpTyN4yElewF6urL1yVm8OZQRZdi6Jp1Am0bxz +pdQ88n2w3WEFtmKxc+ymhXk0BEcVxLG3bkycOlq/iNpPH/5bAdvL8EMHZf4L +Wd7Ji0TY38KPLV2h/h+aUNdV2YV9ol7IRGP5b+QkwhHbi50NW8s8O/6gmafC +dz2wiaI2ZnApLzDb/9FPwS59kjEUJ8cHgTV1vy9iz3x2jU5L4YP51cIi+djR +mnO3qv2XwMKo2Xwtt94qJZVpPX5Qj/j14yv2m56Jpt8F/KAbVzg2z62fc++g +qJQAkJ+ipZcmUKhc3yZde0EANISbzBSwW+5H8vrVL4eGfcc7nbDnml98+GIu +DNfLW8v6sSWshFdGNQnD1axw23Fs3T4miBiJQO253ea/sX1G7uRt1hGFx2l2 +cmqJFArk69D9S3gl9CwfTAnDHlWunE2YF4dTdneObUjC/SHbBbsZEpC40UEO +sPnKxpRkgyTg2TYxcSdsRYaCfem4BPSl9k+cwj5ofv5m15AkCBlVsqewuz2C +Q2SeSUHssMShtlMUel+cmuy2XBoS7CyXjGJPjJcW3LCQhpjxCz94T1NoRejw +C+OH0mDHGzhggs2Md9B3uyMDxi1yTnex6woN50pyV0NE0pRT7RkKFY7+CNsW +Kg+zTzXYiykU2rU/6X1IhTw0HqGi1p7F+S2SOyrG5IFzILAfsPULN0opOq+D +tvR21hnsFpbrLX5TBSjaVNagmEohzvTQ/76cVISCwJr4g+coJHmUefuWtTL0 +jjNZfOkUGitc4WXnowzrbRp0N2HXvuuRm0xUBv2cL8xD2IesDp9Uf6gMJZcO +m97DLtQKs8/RU4EtP0uOBWbg51PFMzEyqlBmi+amMynk4CmkvfujGjC3Ceqr +ZFMIhe3Xc/xPDS5XJZQ6Ymsm5G4hVqsDfWjKIwWbp4BhFrNXHdQfxOXOY1e8 +d3G8+Ugd5oSvGnXl4O/zQHncmvz10KUs9f30JVwf0/oVxdKAxSCxPEYuhQr2 +Zb1diNGAr5/qgwOxU1kfh5Ze0gD11r9OVWATJ46Nr3uhAcG9TVEb8igk3nCF +Z5+5JnyTy4tXuob3D2NKs15FC/Zna8srFlBITvlcbPLIRhBOuelhW0yhhjPf +NL7zaUOkkW/AP9iHaOc+Ukkbco1uPB3FvtqiqmHmqg2QV+19vIRCyp51vYuv +tcH8YYdj9Q283vJRNfKZDuxMZIyrllNIXm4dqeisC6MhxmO7aii0sShU+CfS +g2KjhJGoBgqxiJNz2jZ6kHk5RL8PO1sl/b3bIT3Qz49u29hIoSX5VdVPwvVg +qnqg4T32m6uUQ3qNHkQevPLK4gE+T7PdrmioMIA5p9ep+Bi/32QrHScBfRjL +zWkUbKPQtWBVuzsdBnDf0fdIcR+FesLQlvgiI+iN9OvIoymk5PrS5rDfXxAY +4P3utfQ4Yv+5WykfAUBV0m84xuNIZrx2mQzLDKxatZTavMZRKMPkXbomE1wH +bvJ/vjiOWJO/2iQpC5DXeSEt1jaOKsxCluV274TDc30JDbwTqPCbz6PyTEt4 +0Pl8KMV4Ai1ul+1sid0Dxmdzi8JjJtAgz5LZj+7WcDT9T71zywTyXxtwPk7F +Fv73zM9XSXASVXq3PbyQYAfu5aL3TzpOokh69YKW914QnfRtFi+cRHO7dxxo +PWIP7ccSjsb/mERGLmnbR/fugxjzp+k37adQ7+orPi0MB1jy5WtZVfEUWnP9 +ZEPJhv3Qf/6xQJLANKod0rSyETkAS68w9B3cp9G6vhnPsMkD4EXUfNZqmEaM +C2nlBUOO8Nu3fqfByhl0ZSmtk97sBLTs5e4cNIPubt/0JuG+M2xXF4ajITMo +e8sZ8V+lB2G/79DAmeszqPttUSIjxQXMFzKlDV/NoDvWl1UDTxyCbZuL44oE +Z9Hs0X08/sRhWHO1vnGj0Sya26HhNWXuCnLf7pyV9JxFJZMDiyGGR+D2D9/P +r7JmkdO1Io/Dwm4gcS0hUbZlFt26uefIkiQ3MEOn9/txZpGRXO/309/dYN5d +f+atHAepDHm+ee7tDl1j8/nxZhw0IuRre3nYHUSGvdoWvTmoJ9XGY+d+Fhhn +a64y5P63wnOFjvWwoPXV7xqjSg5qaPrz3cPSA6RfH4g27uAgsUOQxKjzgHXN +T7/+HOEgxVWt3WsbPADChGTcRjlIt8NaVqDJAzwLvvO3YNubuNzof+QB2ZpF +G5LHcP7asGfHn3qASWtTrPQXDlozWCbW1u8B8/+aeyuNc5Cqq0z2oQUPMNzj +3rlsloOM3KZKEvQJqCSGxFf94qDrOTMhNoYELJ7iqWJhr3rBMZXZSoBco6hk +DfaUxUJfiTEBipe7N1n/x8HnFw9vhxkBPWfe1f39m4NEF8SdJfYSYPGYT2yY +h0YjZw0Ec48SsOZVV0A4P432tm7p8wwg4DtrpP8BdhPPtlzdIAIYEU+WLROg +UU6IqcHjUAJu/dt5NxPbxnmn+2gUAQ6Ti04Vy2h0X9X5vtYZAqrrHa+/EKRR +an20d+11AtK0LLW+idDoqF6WUXgJARHWr3/qidLI6kaN4NZSAgJsIzKCsFdk +jd24V0GASP5bmSnshGA76u5tAhzLrENHxGgUraHqe+cxAT5xV449EaeRT9Yz +v5vvCfDPmPI6IkUjS9Exk+AhAvIFTUWzsDck8IjofSJgs0hzRBf2WLBBRc0o +ATaF+wpMpGnkbpM7WT1BwPGBASQtQyMn/hD/qh8EGGuPZTfJ0mhnyJrAcmk2 +mG6tzR2Wo9Hj3MTd6bJsCO1/LSu7lkYmHRzV8DVs+MtB0NoKW1ft2YD5OjYI +dseP3cJe/TrK/K0aGzQCVw3GytNofNug9AoDNpyT9uldoUCjc3x5jZ772DBl +EFU5oYTXv0k423o/G77vCI2WVaZRvEt4MMORDbZlJUuZ2OG37db/OciGzavL +zP/Bdid50y6y2CBi7x9lrkIjRjuL+DeIDYN/nnWcUqXR6zQ1IZXzbDgg2Nn9 +Xp1GlUjE60saG77eCIr/gx0/+a2lIoMN8Qcafyqsp5GeZUvM1iw2rPphpOeG +ncrjwbG+yoZLUi5Ng9g7AvIGwsvZkLqfsu3cQCN5+VOGppVssEljaFPY39oD +MpZUs+Fn9+cOAQ0a5asj69RbbChyOrkPYf83OPiwoI4NxnvUj1dg37aSK+lq +Y0Ph6GYUo0mj5B98/JntbFBbnbU9C5tVQrk7d7BhbZOeQDX2yqV1ciPdbGg2 +5X01hO1X73Tu+ys2xM0Un0NaNFLRvBimOsqGkOhLXrPYP14ff/F1jA1Go0Jn +BTbSqCeBrVv1hQ28txJC5LBjPupTRhNsaDVLTmRiv8l+cdiWZkM2ym7JwE5f +Jm4RyUvCxan8q+raNGrgDLqELiHBgU4cMsL+PFga7M9PwjV1/pdW2Ca3mXks +QRJ+n255GYQ95hb+c7c4CfyzPIa12CutLCQsJEnoa/EUfoptvEVCA0mRUPDO +/sIA9nmR8gOM1SSUNZc1fefO132okVMigRmmGmCoQyOyqLxNSoUEjXXeA0zs +8+cjPoipkdC6SmHeHnuMlBRZqkFCk8OrHf7cecmdXhO6JJxK2GpxDbvut2Ts +mB4J6G6nWQX26NehC0P6JGzb0sKpxd72MLK5bysJNsJd3t3YI36V6xqBhLgO +tduL2KJOUQb3zEhon7vA5NtEIyPzXVY1TBI4XgeThLBTV3+KKNpFQnLyGxV5 +7NqlVedzd5MgcSrjuBr28HRUcY4V7pfXpdPa2FufSL08a0fCR056rQk2q+bT +eJI9Ca93nXhrjn32chXf3w4kEG/vVe/G/hRsqRvmREJjGm+wI7aIq/TOwIMk +CD0Sdz3MzbMcPuxziIQf5l6/WNz7FY4nu7qRcPv9iO1Rbj0rduc7sUiwchfk +D+bmzUnftydIkBcJ8gvj5n0c7rYiSbA2kEuM5OZ1VI/t8CKBx2iZfQy3vnvH +/wMfErRP6vfEcfPzd68y9sP9OJPPk8DNPyujZeBPwo1eu+Ekbn74yPZNgSRk +fDUNP4MtTNQ4aQSTwPDxe5CCvcU2JkAllASln/21qdz8bXsS5cNIGLOJJ85j +p6jJXpEJJ2Faxf9xGvbdlaO3xCNJyGJe7E3H/vizpl0omoQNSb8yM7j5n2M+ +8seQ0N2ZJ5iJbdi7Z/FPLAl3BE7qcv1/A9YOmQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.8285785068221222, + 1.1991159338944446`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.8285785068221241}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.8285785068221222, + 1.1991159338944446`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.8285785068221241}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJwV1Xk4VdsbB3AUJVPIUJJZIZKDEtd646iUKSmkxLHPNmbOzxS5GSpShsJt +IENk1ihTAzeSKamolDJU23x2hoZbv3X+2M96Ps969ne/691rr63ECrBn8/Hw +8EziizsGdemsv9fTZXpEIFfi3kkKmU4VGrCY5Yi2rNPneijXMFOV2YBcHgle +4tqO6BQQZvyLAn3PWtRi14THNvMzO5DYDgv9+9inn8g+jC19jlxtNnvWYd/v +Cbr6S+8lqj2x9309NvWmPTqivh8l9xflNGKvGVVxmTd/h1LsdHIeYO+ZjjYK +6fiAYj9R7x5hN/2ihMJLP6K4pLdEC/arOJmou/7DqGELz+ZW7CkBJvVNbxRF +U07b27EFUgKdGQtjKOji6IVO7HXiV9qC6r8gw83XdZ5j28jNX58yn0A2As0b +B7DJPGVp7eVTaHa9QvogdqyabYJvxzTSWVZl/Am7X6Zvc2jpLFJv8XaZwCYO ++nhnpHBQ5t+Zz2exZy7zXLvpTyN4yElewF6urL1yVm8OZQRZdi6Jp1Am0bxz +pdQ88n2w3WEFtmKxc+ymhXk0BEcVxLG3bkycOlq/iNpPH/5bAdvL8EMHZf4L +Wd7Ji0TY38KPLV2h/h+aUNdV2YV9ol7IRGP5b+QkwhHbi50NW8s8O/6gmafC +dz2wiaI2ZnApLzDb/9FPwS59kjEUJ8cHgTV1vy9iz3x2jU5L4YP51cIi+djR +mnO3qv2XwMKo2Xwtt94qJZVpPX5Qj/j14yv2m56Jpt8F/KAbVzg2z62fc++g +qJQAkJ+ipZcmUKhc3yZde0EANISbzBSwW+5H8vrVL4eGfcc7nbDnml98+GIu +DNfLW8v6sSWshFdGNQnD1axw23Fs3T4miBiJQO253ea/sX1G7uRt1hGFx2l2 +cmqJFArk69D9S3gl9CwfTAnDHlWunE2YF4dTdneObUjC/SHbBbsZEpC40UEO +sPnKxpRkgyTg2TYxcSdsRYaCfem4BPSl9k+cwj5ofv5m15AkCBlVsqewuz2C +Q2SeSUHssMShtlMUel+cmuy2XBoS7CyXjGJPjJcW3LCQhpjxCz94T1NoRejw +C+OH0mDHGzhggs2Md9B3uyMDxi1yTnex6woN50pyV0NE0pRT7RkKFY7+CNsW +Kg+zTzXYiykU2rU/6X1IhTw0HqGi1p7F+S2SOyrG5IFzILAfsPULN0opOq+D +tvR21hnsFpbrLX5TBSjaVNagmEohzvTQ/76cVISCwJr4g+coJHmUefuWtTL0 +jjNZfOkUGitc4WXnowzrbRp0N2HXvuuRm0xUBv2cL8xD2IesDp9Uf6gMJZcO +m97DLtQKs8/RU4EtP0uOBWbg51PFMzEyqlBmi+amMynk4CmkvfujGjC3Ceqr +ZFMIhe3Xc/xPDS5XJZQ6Ymsm5G4hVqsDfWjKIwWbp4BhFrNXHdQfxOXOY1e8 +d3G8+Ugd5oSvGnXl4O/zQHncmvz10KUs9f30JVwf0/oVxdKAxSCxPEYuhQr2 +Zb1diNGAr5/qgwOxU1kfh5Ze0gD11r9OVWATJ46Nr3uhAcG9TVEb8igk3nCF +Z5+5JnyTy4tXuob3D2NKs15FC/Zna8srFlBITvlcbPLIRhBOuelhW0yhhjPf +NL7zaUOkkW/AP9iHaOc+Ukkbco1uPB3FvtqiqmHmqg2QV+19vIRCyp51vYuv +tcH8YYdj9Q283vJRNfKZDuxMZIyrllNIXm4dqeisC6MhxmO7aii0sShU+CfS +g2KjhJGoBgqxiJNz2jZ6kHk5RL8PO1sl/b3bIT3Qz49u29hIoSX5VdVPwvVg +qnqg4T32m6uUQ3qNHkQevPLK4gE+T7PdrmioMIA5p9ep+Bi/32QrHScBfRjL +zWkUbKPQtWBVuzsdBnDf0fdIcR+FesLQlvgiI+iN9OvIoymk5PrS5rDfXxAY +4P3utfQ4Yv+5WykfAUBV0m84xuNIZrx2mQzLDKxatZTavMZRKMPkXbomE1wH +bvJ/vjiOWJO/2iQpC5DXeSEt1jaOKsxCluV274TDc30JDbwTqPCbz6PyTEt4 +0Pl8KMV4Ai1ul+1sid0Dxmdzi8JjJtAgz5LZj+7WcDT9T71zywTyXxtwPk7F +Fv73zM9XSXASVXq3PbyQYAfu5aL3TzpOokh69YKW914QnfRtFi+cRHO7dxxo +PWIP7ccSjsb/mERGLmnbR/fugxjzp+k37adQ7+orPi0MB1jy5WtZVfEUWnP9 +ZEPJhv3Qf/6xQJLANKod0rSyETkAS68w9B3cp9G6vhnPsMkD4EXUfNZqmEaM +C2nlBUOO8Nu3fqfByhl0ZSmtk97sBLTs5e4cNIPubt/0JuG+M2xXF4ajITMo +e8sZ8V+lB2G/79DAmeszqPttUSIjxQXMFzKlDV/NoDvWl1UDTxyCbZuL44oE +Z9Hs0X08/sRhWHO1vnGj0Sya26HhNWXuCnLf7pyV9JxFJZMDiyGGR+D2D9/P +r7JmkdO1Io/Dwm4gcS0hUbZlFt26uefIkiQ3MEOn9/txZpGRXO/309/dYN5d +f+atHAepDHm+ee7tDl1j8/nxZhw0IuRre3nYHUSGvdoWvTmoJ9XGY+d+Fhhn +a64y5P63wnOFjvWwoPXV7xqjSg5qaPrz3cPSA6RfH4g27uAgsUOQxKjzgHXN +T7/+HOEgxVWt3WsbPADChGTcRjlIt8NaVqDJAzwLvvO3YNubuNzof+QB2ZpF +G5LHcP7asGfHn3qASWtTrPQXDlozWCbW1u8B8/+aeyuNc5Cqq0z2oQUPMNzj +3rlsloOM3KZKEvQJqCSGxFf94qDrOTMhNoYELJ7iqWJhr3rBMZXZSoBco6hk +DfaUxUJfiTEBipe7N1n/x8HnFw9vhxkBPWfe1f39m4NEF8SdJfYSYPGYT2yY +h0YjZw0Ec48SsOZVV0A4P432tm7p8wwg4DtrpP8BdhPPtlzdIAIYEU+WLROg +UU6IqcHjUAJu/dt5NxPbxnmn+2gUAQ6Ti04Vy2h0X9X5vtYZAqrrHa+/EKRR +an20d+11AtK0LLW+idDoqF6WUXgJARHWr3/qidLI6kaN4NZSAgJsIzKCsFdk +jd24V0GASP5bmSnshGA76u5tAhzLrENHxGgUraHqe+cxAT5xV449EaeRT9Yz +v5vvCfDPmPI6IkUjS9Exk+AhAvIFTUWzsDck8IjofSJgs0hzRBf2WLBBRc0o +ATaF+wpMpGnkbpM7WT1BwPGBASQtQyMn/hD/qh8EGGuPZTfJ0mhnyJrAcmk2 +mG6tzR2Wo9Hj3MTd6bJsCO1/LSu7lkYmHRzV8DVs+MtB0NoKW1ft2YD5OjYI +dseP3cJe/TrK/K0aGzQCVw3GytNofNug9AoDNpyT9uldoUCjc3x5jZ772DBl +EFU5oYTXv0k423o/G77vCI2WVaZRvEt4MMORDbZlJUuZ2OG37db/OciGzavL +zP/Bdid50y6y2CBi7x9lrkIjRjuL+DeIDYN/nnWcUqXR6zQ1IZXzbDgg2Nn9 +Xp1GlUjE60saG77eCIr/gx0/+a2lIoMN8Qcafyqsp5GeZUvM1iw2rPphpOeG +ncrjwbG+yoZLUi5Ng9g7AvIGwsvZkLqfsu3cQCN5+VOGppVssEljaFPY39oD +MpZUs+Fn9+cOAQ0a5asj69RbbChyOrkPYf83OPiwoI4NxnvUj1dg37aSK+lq +Y0Ph6GYUo0mj5B98/JntbFBbnbU9C5tVQrk7d7BhbZOeQDX2yqV1ciPdbGg2 +5X01hO1X73Tu+ys2xM0Un0NaNFLRvBimOsqGkOhLXrPYP14ff/F1jA1Go0Jn +BTbSqCeBrVv1hQ28txJC5LBjPupTRhNsaDVLTmRiv8l+cdiWZkM2ym7JwE5f +Jm4RyUvCxan8q+raNGrgDLqELiHBgU4cMsL+PFga7M9PwjV1/pdW2Ca3mXks +QRJ+n255GYQ95hb+c7c4CfyzPIa12CutLCQsJEnoa/EUfoptvEVCA0mRUPDO +/sIA9nmR8gOM1SSUNZc1fefO132okVMigRmmGmCoQyOyqLxNSoUEjXXeA0zs +8+cjPoipkdC6SmHeHnuMlBRZqkFCk8OrHf7cecmdXhO6JJxK2GpxDbvut2Ts +mB4J6G6nWQX26NehC0P6JGzb0sKpxd72MLK5bysJNsJd3t3YI36V6xqBhLgO +tduL2KJOUQb3zEhon7vA5NtEIyPzXVY1TBI4XgeThLBTV3+KKNpFQnLyGxV5 +7NqlVedzd5MgcSrjuBr28HRUcY4V7pfXpdPa2FufSL08a0fCR056rQk2q+bT +eJI9Ca93nXhrjn32chXf3w4kEG/vVe/G/hRsqRvmREJjGm+wI7aIq/TOwIMk +CD0Sdz3MzbMcPuxziIQf5l6/WNz7FY4nu7qRcPv9iO1Rbj0rduc7sUiwchfk +D+bmzUnftydIkBcJ8gvj5n0c7rYiSbA2kEuM5OZ1VI/t8CKBx2iZfQy3vnvH +/wMfErRP6vfEcfPzd68y9sP9OJPPk8DNPyujZeBPwo1eu+Ekbn74yPZNgSRk +fDUNP4MtTNQ4aQSTwPDxe5CCvcU2JkAllASln/21qdz8bXsS5cNIGLOJJ85j +p6jJXpEJJ2Faxf9xGvbdlaO3xCNJyGJe7E3H/vizpl0omoQNSb8yM7j5n2M+ +8seQ0N2ZJ5iJbdi7Z/FPLAl3BE7qcv1/A9YOmQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.8285785068221222, 1.1991159338944446`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.8285785068221241}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.8285785068221241}, + 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.8285785068221222, 1.1991159338944446`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.99396078428369*^9}, + CellLabel-> + "Out[118]=",ExpressionUUID->"625ff2b9-91cf-4975-aeed-ae440a98c6c8"] }, Open ]], Cell[CellGroupData[{ @@ -4478,427 +10554,1078 @@ 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[\\\"4.946828226371223`*^-267\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 41, 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939607844288187`*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"f731019a-33b0-4dbe-906c-af5fdcec492b"], 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.3056275365510448`*^-278\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 42, 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993960784435348*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"e2fcce96-43aa-4ac1-b69e-a9fa2ae1f595"], 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[\\\"3.445972219356437`*^-290\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 119, 43, 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993960784441992*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"658802a1-5d4a-47db-b862-9b543e47d90a"], 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, 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939607844491034`*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"7c1e8203-9c05-44f0-849f-e4f06c01f19f"], 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:eJwV1nc8lf0bB3ChqKTskXGfY5XZMDJO14VsWSErozqRR4nEk/IYJaPsmQoV +suKcu2UVaZHRIitSVCoJGankd//+Oq/369zjdV/f6/p8v7S9gQ5MTg4ODsll +HBz//50ban0of7Zo+8noZRVG/Ubbu/LFjxv2xgB+fnhI2YoGKPJsr3hvOjzw +nynltNoMoXblPVy9V+BixvmkT5aGIDAhlr7QQwJO75W6a2kPbxtsAmd6mqH/ +H30XTUsfMJX/MjjV8xLGPydO0MyDYKFHJ2uy5z1sOij69z1EwwPja0UvrvyA +sPjKiFOv0kDqbe3HvaqLEHRcZa++fB4IB3iV8xhzYTfzT9XETCGkbzatt3Hi +xfYd+X/ZH4qgL3dT09S6NbgzelnQgHEpnC2KfMYpIYCTExZBKnEVIJY5kpBx +SQg1FgeKP1lXgbjKrdM/S4RQOtwx5IBzFUg2n4ncwxLCKYW80SGvKpCZ3HhM +6YEQdhx/WtwQXAUK1ke868eEUE3wc4JKbhVs5V7UHtkqjKrbyL7ud1VgGyI6 +uuWpMD5XD1zndKQa4hwttr+cE8F3QhEhowYskLzZKcm5TBRfn9w+vcGQBVVC +jvObV4si59h08kETFrx+6clKkxVFab1subc7WSBvH0K3NxfFG3seV13wZEHz +zoIVz8+LYphWy4JrJAsWTWc7OwzEcCPfpMTnuyxILQmvWDQVw/hejqes+9T9 +Kzji1ezFEPNnk0MescD60SrDJKYYHoupcp5sZ0GeMXHDOlkML7WX9dQMsGAb +WuW0vRXDWiWhsKSfLDiqe9mrNUYc611Oae7QYINlIf+M1TnK35y8nLewgc5z +Mr4zSxxnbhyQYmqx4XmXM/tVqTj6P9y48199Nqgf4eMa6hRHc85H8cfM2DBW +ElYyLSmBF0QD/do82eAhbPNt/Q0J3GZZyv0hkQ1bT9RH5zdI4PFJoaiEJDas +er9BlPZYAifjBVKUU9lQW80Fin0S+PY/bb+9WWwQtapN3bQkgWXslFVlBdT7 +o+U1TawksXTaSj39Bht2fP8VfnhEEgu7rhDdvWw4bp6pfH9cEr0ak/WWDbCh +6rJav9CcJLZcv7JWeZAN4o7eurW863GX3qbxoHdsGK95NM+lvh6ns3OO9X9m +Q0ZMasj5f9ejbZA/59pfbHgvonj44Rop3FXZ+IdHnASxwEZpMTEpbLjSx9Eu +QYJ1i0vHQUIKsd+19dx6Em6Hn1Vdu1UKXZp/lHLLkpD4dvKLq4sUvpFOrexQ +IGFLWb3v9ytS+KL2lPijLSREG9j7SG6TRkcctLK2JMHcM39ax0gaf8MdpSdW +JPBHfT3lZC2N0t1pO7bvJOHig9iSVG9pLOe+ZkyzI6HGsu7rigRp/G690a/O +iYRJF7nQH33SmMll2K3rTcKd8CM8AqPS+C6Yteq4Dwn/Xbybqz4hje0MhbM3 +95LAN7y7/iCnDAa2twYSTBKUfM9xDCvL4PjIeH/bQRI8j80mtp+Qwdb1w6+C +gklQyDGS+hIrg1YdYnyhR0mqfinXeVJl8FVJXF5oCAnhfzY+NyqSwcFe7rsB +oSRknfIUqW2XQZ55XzW1cBI8iitKXr+WwcPXrFSFT5BAf/JTZ2ZYBp/9Phw3 +T5m1KsNNY1YGU6uSnG5EkNCe9qSgWFoWa4IlfJeiSMi4Ibz5gZIsqhcM72mN +JsGt26d5eLMshqRo30mJIWFM/M/oelNZTDNpyxQ4TQJX4Sbl9MOyOMQdIfjl +DAlP70fUV/8ri/E5OZo5cSSkjjy17oiRxRWurxsxngQZJWYgb44shrNkRRIS +SNCrOn/zv0ZZ1CiveTlxloQdPZ2LEy2yGNVx+/GxcyTYcHCbeb2UxZSP+YUL +lPc5HO6DD7K4kLR85c8kEkxP0CKjlhPY5WDS9CyFhLa1DVe3rSLwoVLJPCOV +BLsi55ZJfgJX3rstWUbZveOsgI84gVfX9imGppFwRHbuqqEKgfeJr/98TSdh +9kZqy4IGgetck0QMM6h6m6t8Y2sSqGzbw8qgHBvkrU3fTiBBO9SokUnCqhW/ +3fqNCBRioOZxyql5WZHpZgTyZrdeaqSc9+BpC6c9gay3Ig7GWSTIujC/1TkR +mKZwID+KctH4ksBRNwIb7OPe11FWjs7TVvEiUH/KUHaacrWIlvvIPgKl7L2c +FLNJ0Cx/FnnBj8C5iLLY3ZTrtvsX7TpEoLvxV1Ys5Ye+Bd8ehBI4HXH6dy9l +iz+6gidPEJiFx6T+Uu5M7dLWjCIwQytVn8ghwVEh0H38NFWPgauuQLmvdmVU +UQKBNociw9wpe9oUFXkkExg8PJ0VQnn0/fZW4QwCaz903kqkfDCs71t7DlWv +sdGeS5QnVocIxl4kUIyPZ/E65aOF/DqMywRWavAq1lP+qVnmPltMoO3n+l2P +KP/Xahx1vZzA63FzZ9opc3kOFTGrCeQWSGp6Tjl++t9W6ZsEFhk5LXtJmT9O +aKK7hkC/VAXL//+fsb5KMPkugery3RfaKIuzzHVMmwncMag//4DypR0j7n8f +E/jZdsueWsr0voio220ENj5M66ygXHpIvPjwcwINtmlaX6CsxnmjVbGbep7b +zOs4ymT2zomhPgJlkq4HBlHepjImmDNEYM8HfTEXyncbY3RsR6j+Uz7ZqU/Z +yFHag2eMQPKVVbYU5Sdjd6Iaxwks5U0I/EXV3zrCoThsisCly4Lu3ZRfCnxr +1ZgjMF6pxfU65d0lcROffhG47HlCQAzlN3p0ocIlan2itmU6Ut77rEHHhZuG +Ee23XshRDvg5FdWyhoYWo8VptVS/6AUdEP0oSMObHGHECcq8X/oruMRpWLK2 +xVSXcvHAg9fb6TSUuXncs4LqzxDHbQEeSjTsCJB38KJs1FG5LFyVhkUeI+/W +Uh66l6V6S5uGnzUM+g9Q/V+ps6r5pT4NmyKUTNb8fz5Y/+2eRBpOdbfasaj5 +Eb3iG6NiRcOcPcM249R82cbq9l72ouHVauAxoOZP5u/1Q437afh77EnuE2pe +x0PpXIMHaeheHtZlSzneb7W6eAgN+9iits7JJDRZDZ5KjqehI7nsqD41/8kP +7SUqk2jIPX44rJLKCw/G46rWdBoafazQkKS8oF7dx32JhjMHjjd9pfJli2C0 +xgk2DXekPIv1pfKI4+zsw9zbNFTtolndo/Kqk8vf7XY9DQNl6J0ClP+ZdYid +ekTDLRkqgtVUvhX1yg/49tMwUSbuVjOVh6IFLWccuegY5qkca0vl6agYQyqY +l47F4iMNwVT+kqlsdsoaOro3XH6cfpz6/pi8N0/F6DjCt9epNYz6PmbAFkNV +Oo65Bp9eR+X5gsq6ITUnOm7a52PLG0DC3CXJ6K1udJx4cQf/+pMws1ZBXteL +ji6Lo1pT1H4x8UPXf8dBOgqU923q9CXhff2+ObcIOgb2fD23fx+Vv1Z3+OOL +6XjCqH2Ry43qv7v32UnldBy+e/LxUxcqHzTaHTOq6Zg4XnIteTcJ94Te5eXX +0tGf+1rNGmp/IwdWKd3qoOP4bnW9z7ZUfv3jCe9n6fjzH/5RURMScgb93n/6 +Rcff4t9eVhuTkGl7NPbbEh3h+unvJkbU+myNb/u5Ug45IozuHAQSYn6zd6+V +kcN37q9KUnSp+p5dfsTAVA7ddoxpO6uRYFBRWZidLYd2knvqewRJGCAqCkwu +yOHPjHs6OgJUf2WX5c8UyOG6DO0DmWup/Ta65KJDmRxeWPl30IyPWl+Xwlz+ +BjnsPbrSNWM5CRuXZ6aeeSeH3gr0yLvz1PnG60RUqKo8hqS9qjzQz4YpQUtv +52Z5vHb2TrrNeTb0BtCf+z+Rx+uGSc0z2WxoevwLItvl8TSEZ+VmsiE1vEK2 +9LU87njZptyXwoZN7/neLnyRx41etdu3n2HDYfazPZeEFLBimNPvfDAbvtg6 +uY/uV8B1DLI634INo+e8nYN5FHG2ydWQMcUCi+9hFh+0lTCovE6vXocF4/t4 +j96M3ICYLjvrUFFFne/FOOOaN6Lx2FTmQkslCHYoJrO+K2PC79JO1e/lIBVf +baetrYr5IpxVhkOlkKuiu07IVw1PDM5xbvtaAk8lDbV+pKkj30zlcC13MehJ +NadqvNbA1IkszpClK8DPdSXEJ2YT9rnm6EaqXgaZaFkDV8XNGHRV7dry9HxY +qeBx2+HJZvTP5JyYF7wA6gyJ6rA9W1BHcK+HwopcCB4SfGDJsRU/WayIM57L +hO8/zjlZ5G7FiK7962N3p4OZxuM8CzVNPHbk0VH9pRS490P/93ynJh4erF3f +4ncWDqtu6X/B1EL5bSdsRLPigDGxv8t1pTY6uHMd6Px0CkzkxXeuuaKNl1xG +na+ORMGGqMR/m3V0kDnd0mCfcxKUmbqNCv06eCpxLMH6dhgw7/mdvhm0Db1X +u7VPtB2FxsKu/VMiumgy+WGVu9oRmCldmte4o4tDp7oD6J7+8NHZtDChVhen +x4x8ayz8oZc7yXykXhd77JxG3bX8od5b8nx2ky5WWsxatvH5Q4y4lt5iqy4u +8Dmtsmo4COvi/U8+faOLIVlNLi3SB0HVt5uDyamHzJd+LYlffGGfQsXKvJ16 +KFYQdqi2jAnhjzz9Fe30MB2843hymJDKFGwjHfRwrmowed9pJjQUHz/XtlsP +Hb99NjHxYoKwovnaRR89xB76kSoRJjxW/CDsHaqHHZUtF9fF7gflDbKEYoEe +Xi3IlntzaB9MKWdok5N6eEvomV8P0wd629FE6Icenr+0yPbb7QNNhyd2hcxS +z08/7c9t4QPJpEWQ9i89fM5tLeCu6gPKehyVdVz6WH6f/9zpH96w1+IQ7YGo +PgpHiEw2n/KGLl8zvi4DfayTnPaL2+0FNUW/383G62Owhq2W9GYP0DYOmbc8 +q4/Vu4Q2Z0h4wK1343yFSfoYblcUJMnpAaTMkI5luj6uv5ib4/HKHSpzm5Ly +L+hjk1KpY1WoOxSei9U1q9LHYyqSqf81uUFCyNq03Ff62DPU3Jno7QpuO+RQ +X8YA5YfVrRWfO8NiFy//A8IAhavNtebqnKGQOTFgKWeAHjxP43uKneHjmdow +tw0GaGxnCZ0nnCG41bb6+BYD7CkKvZS4wRkSbU7K1Jga4IswpTbNWCeoc+n+ +oxlogKY8vlGLlo6w/lBcrXqTAcqWlz77tNwBkpcOaJ1tNsCZWZvmwVl74Ew3 +ZX96aICz5m8ODX+why+3l5cVthrgOYP4jtWP7aGO43Su4CsDDHwpfn/hjD24 +ZUaFzX0wwKXKy6Iqq+0ht/641r3VDFzqWWdSJmUHIqsC2Dt3M7DyTox/wUNr +KDKOCJ90ZeDVP3dt3a9Zw5aIZOMMDwb+4pv/tDnRGmwmWd29Pgys2/V7UN3O +Gs68nl3YF8BARVHtC8xBK/h5JdIoPJqBG9uuut38Ywn9+hmvSioYaNnJ/NfC +xgL8jhVdtKhiYCfHgKGmpgXMVd1ijrMYWLJYrqcjaQGC9N75zbcZqFMtcSj2 +ozlY8UpL3W2iDrfRvPUYZQ4NXSX7X3UzUOGttj29xgws+WvUQnsZyPCOXB9X +YAa9Zq1z4gMMzMtL+MAZZwYzdV/jPYep620uqYOzGahd3nT98xcGjjgEpLTM +mkJDv2HouW8MTDsg6TAyaAqWwrtAY5KBRa6booUfm8KBuGMvQmYZ6NXwaKA2 +2xRmms7kif1koLLZ7/dqkaYQ8ytnX90vBhq+5eav8TWFdZplqnsWGRhc0W/p +YmcK+YfqZpeWGJhxOCqOX9cU/geBmQqq + "]]}, + 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:eJwV1nc8lf0bB3ChqKTskXGfY5XZMDJO14VsWSErozqRR4nEk/IYJaPsmQoV +suKcu2UVaZHRIitSVCoJGankd//+Oq/369zjdV/f6/p8v7S9gQ5MTg4ODsll +HBz//50ban0of7Zo+8noZRVG/Ubbu/LFjxv2xgB+fnhI2YoGKPJsr3hvOjzw +nynltNoMoXblPVy9V+BixvmkT5aGIDAhlr7QQwJO75W6a2kPbxtsAmd6mqH/ +H30XTUsfMJX/MjjV8xLGPydO0MyDYKFHJ2uy5z1sOij69z1EwwPja0UvrvyA +sPjKiFOv0kDqbe3HvaqLEHRcZa++fB4IB3iV8xhzYTfzT9XETCGkbzatt3Hi +xfYd+X/ZH4qgL3dT09S6NbgzelnQgHEpnC2KfMYpIYCTExZBKnEVIJY5kpBx +SQg1FgeKP1lXgbjKrdM/S4RQOtwx5IBzFUg2n4ncwxLCKYW80SGvKpCZ3HhM +6YEQdhx/WtwQXAUK1ke868eEUE3wc4JKbhVs5V7UHtkqjKrbyL7ud1VgGyI6 +uuWpMD5XD1zndKQa4hwttr+cE8F3QhEhowYskLzZKcm5TBRfn9w+vcGQBVVC +jvObV4si59h08kETFrx+6clKkxVFab1subc7WSBvH0K3NxfFG3seV13wZEHz +zoIVz8+LYphWy4JrJAsWTWc7OwzEcCPfpMTnuyxILQmvWDQVw/hejqes+9T9 +Kzji1ezFEPNnk0MescD60SrDJKYYHoupcp5sZ0GeMXHDOlkML7WX9dQMsGAb +WuW0vRXDWiWhsKSfLDiqe9mrNUYc611Oae7QYINlIf+M1TnK35y8nLewgc5z +Mr4zSxxnbhyQYmqx4XmXM/tVqTj6P9y48199Nqgf4eMa6hRHc85H8cfM2DBW +ElYyLSmBF0QD/do82eAhbPNt/Q0J3GZZyv0hkQ1bT9RH5zdI4PFJoaiEJDas +er9BlPZYAifjBVKUU9lQW80Fin0S+PY/bb+9WWwQtapN3bQkgWXslFVlBdT7 +o+U1TawksXTaSj39Bht2fP8VfnhEEgu7rhDdvWw4bp6pfH9cEr0ak/WWDbCh +6rJav9CcJLZcv7JWeZAN4o7eurW863GX3qbxoHdsGK95NM+lvh6ns3OO9X9m +Q0ZMasj5f9ejbZA/59pfbHgvonj44Rop3FXZ+IdHnASxwEZpMTEpbLjSx9Eu +QYJ1i0vHQUIKsd+19dx6Em6Hn1Vdu1UKXZp/lHLLkpD4dvKLq4sUvpFOrexQ +IGFLWb3v9ytS+KL2lPijLSREG9j7SG6TRkcctLK2JMHcM39ax0gaf8MdpSdW +JPBHfT3lZC2N0t1pO7bvJOHig9iSVG9pLOe+ZkyzI6HGsu7rigRp/G690a/O +iYRJF7nQH33SmMll2K3rTcKd8CM8AqPS+C6Yteq4Dwn/Xbybqz4hje0MhbM3 +95LAN7y7/iCnDAa2twYSTBKUfM9xDCvL4PjIeH/bQRI8j80mtp+Qwdb1w6+C +gklQyDGS+hIrg1YdYnyhR0mqfinXeVJl8FVJXF5oCAnhfzY+NyqSwcFe7rsB +oSRknfIUqW2XQZ55XzW1cBI8iitKXr+WwcPXrFSFT5BAf/JTZ2ZYBp/9Phw3 +T5m1KsNNY1YGU6uSnG5EkNCe9qSgWFoWa4IlfJeiSMi4Ibz5gZIsqhcM72mN +JsGt26d5eLMshqRo30mJIWFM/M/oelNZTDNpyxQ4TQJX4Sbl9MOyOMQdIfjl +DAlP70fUV/8ri/E5OZo5cSSkjjy17oiRxRWurxsxngQZJWYgb44shrNkRRIS +SNCrOn/zv0ZZ1CiveTlxloQdPZ2LEy2yGNVx+/GxcyTYcHCbeb2UxZSP+YUL +lPc5HO6DD7K4kLR85c8kEkxP0CKjlhPY5WDS9CyFhLa1DVe3rSLwoVLJPCOV +BLsi55ZJfgJX3rstWUbZveOsgI84gVfX9imGppFwRHbuqqEKgfeJr/98TSdh +9kZqy4IGgetck0QMM6h6m6t8Y2sSqGzbw8qgHBvkrU3fTiBBO9SokUnCqhW/ +3fqNCBRioOZxyql5WZHpZgTyZrdeaqSc9+BpC6c9gay3Ig7GWSTIujC/1TkR +mKZwID+KctH4ksBRNwIb7OPe11FWjs7TVvEiUH/KUHaacrWIlvvIPgKl7L2c +FLNJ0Cx/FnnBj8C5iLLY3ZTrtvsX7TpEoLvxV1Ys5Ye+Bd8ehBI4HXH6dy9l +iz+6gidPEJiFx6T+Uu5M7dLWjCIwQytVn8ghwVEh0H38NFWPgauuQLmvdmVU +UQKBNociw9wpe9oUFXkkExg8PJ0VQnn0/fZW4QwCaz903kqkfDCs71t7DlWv +sdGeS5QnVocIxl4kUIyPZ/E65aOF/DqMywRWavAq1lP+qVnmPltMoO3n+l2P +KP/Xahx1vZzA63FzZ9opc3kOFTGrCeQWSGp6Tjl++t9W6ZsEFhk5LXtJmT9O +aKK7hkC/VAXL//+fsb5KMPkugery3RfaKIuzzHVMmwncMag//4DypR0j7n8f +E/jZdsueWsr0voio220ENj5M66ygXHpIvPjwcwINtmlaX6CsxnmjVbGbep7b +zOs4ymT2zomhPgJlkq4HBlHepjImmDNEYM8HfTEXyncbY3RsR6j+Uz7ZqU/Z +yFHag2eMQPKVVbYU5Sdjd6Iaxwks5U0I/EXV3zrCoThsisCly4Lu3ZRfCnxr +1ZgjMF6pxfU65d0lcROffhG47HlCQAzlN3p0ocIlan2itmU6Ut77rEHHhZuG +Ee23XshRDvg5FdWyhoYWo8VptVS/6AUdEP0oSMObHGHECcq8X/oruMRpWLK2 +xVSXcvHAg9fb6TSUuXncs4LqzxDHbQEeSjTsCJB38KJs1FG5LFyVhkUeI+/W +Uh66l6V6S5uGnzUM+g9Q/V+ps6r5pT4NmyKUTNb8fz5Y/+2eRBpOdbfasaj5 +Eb3iG6NiRcOcPcM249R82cbq9l72ouHVauAxoOZP5u/1Q437afh77EnuE2pe +x0PpXIMHaeheHtZlSzneb7W6eAgN+9iits7JJDRZDZ5KjqehI7nsqD41/8kP +7SUqk2jIPX44rJLKCw/G46rWdBoafazQkKS8oF7dx32JhjMHjjd9pfJli2C0 +xgk2DXekPIv1pfKI4+zsw9zbNFTtolndo/Kqk8vf7XY9DQNl6J0ClP+ZdYid +ekTDLRkqgtVUvhX1yg/49tMwUSbuVjOVh6IFLWccuegY5qkca0vl6agYQyqY +l47F4iMNwVT+kqlsdsoaOro3XH6cfpz6/pi8N0/F6DjCt9epNYz6PmbAFkNV +Oo65Bp9eR+X5gsq6ITUnOm7a52PLG0DC3CXJ6K1udJx4cQf/+pMws1ZBXteL +ji6Lo1pT1H4x8UPXf8dBOgqU923q9CXhff2+ObcIOgb2fD23fx+Vv1Z3+OOL +6XjCqH2Ry43qv7v32UnldBy+e/LxUxcqHzTaHTOq6Zg4XnIteTcJ94Te5eXX +0tGf+1rNGmp/IwdWKd3qoOP4bnW9z7ZUfv3jCe9n6fjzH/5RURMScgb93n/6 +Rcff4t9eVhuTkGl7NPbbEh3h+unvJkbU+myNb/u5Ug45IozuHAQSYn6zd6+V +kcN37q9KUnSp+p5dfsTAVA7ddoxpO6uRYFBRWZidLYd2knvqewRJGCAqCkwu +yOHPjHs6OgJUf2WX5c8UyOG6DO0DmWup/Ta65KJDmRxeWPl30IyPWl+Xwlz+ +BjnsPbrSNWM5CRuXZ6aeeSeH3gr0yLvz1PnG60RUqKo8hqS9qjzQz4YpQUtv +52Z5vHb2TrrNeTb0BtCf+z+Rx+uGSc0z2WxoevwLItvl8TSEZ+VmsiE1vEK2 +9LU87njZptyXwoZN7/neLnyRx41etdu3n2HDYfazPZeEFLBimNPvfDAbvtg6 +uY/uV8B1DLI634INo+e8nYN5FHG2ydWQMcUCi+9hFh+0lTCovE6vXocF4/t4 +j96M3ICYLjvrUFFFne/FOOOaN6Lx2FTmQkslCHYoJrO+K2PC79JO1e/lIBVf +baetrYr5IpxVhkOlkKuiu07IVw1PDM5xbvtaAk8lDbV+pKkj30zlcC13MehJ +NadqvNbA1IkszpClK8DPdSXEJ2YT9rnm6EaqXgaZaFkDV8XNGHRV7dry9HxY +qeBx2+HJZvTP5JyYF7wA6gyJ6rA9W1BHcK+HwopcCB4SfGDJsRU/WayIM57L +hO8/zjlZ5G7FiK7962N3p4OZxuM8CzVNPHbk0VH9pRS490P/93ynJh4erF3f +4ncWDqtu6X/B1EL5bSdsRLPigDGxv8t1pTY6uHMd6Px0CkzkxXeuuaKNl1xG +na+ORMGGqMR/m3V0kDnd0mCfcxKUmbqNCv06eCpxLMH6dhgw7/mdvhm0Db1X +u7VPtB2FxsKu/VMiumgy+WGVu9oRmCldmte4o4tDp7oD6J7+8NHZtDChVhen +x4x8ayz8oZc7yXykXhd77JxG3bX8od5b8nx2ky5WWsxatvH5Q4y4lt5iqy4u +8Dmtsmo4COvi/U8+faOLIVlNLi3SB0HVt5uDyamHzJd+LYlffGGfQsXKvJ16 +KFYQdqi2jAnhjzz9Fe30MB2843hymJDKFGwjHfRwrmowed9pJjQUHz/XtlsP +Hb99NjHxYoKwovnaRR89xB76kSoRJjxW/CDsHaqHHZUtF9fF7gflDbKEYoEe +Xi3IlntzaB9MKWdok5N6eEvomV8P0wd629FE6Icenr+0yPbb7QNNhyd2hcxS +z08/7c9t4QPJpEWQ9i89fM5tLeCu6gPKehyVdVz6WH6f/9zpH96w1+IQ7YGo +PgpHiEw2n/KGLl8zvi4DfayTnPaL2+0FNUW/383G62Owhq2W9GYP0DYOmbc8 +q4/Vu4Q2Z0h4wK1343yFSfoYblcUJMnpAaTMkI5luj6uv5ib4/HKHSpzm5Ly +L+hjk1KpY1WoOxSei9U1q9LHYyqSqf81uUFCyNq03Ff62DPU3Jno7QpuO+RQ +X8YA5YfVrRWfO8NiFy//A8IAhavNtebqnKGQOTFgKWeAHjxP43uKneHjmdow +tw0GaGxnCZ0nnCG41bb6+BYD7CkKvZS4wRkSbU7K1Jga4IswpTbNWCeoc+n+ +oxlogKY8vlGLlo6w/lBcrXqTAcqWlz77tNwBkpcOaJ1tNsCZWZvmwVl74Ew3 +ZX96aICz5m8ODX+why+3l5cVthrgOYP4jtWP7aGO43Su4CsDDHwpfn/hjD24 +ZUaFzX0wwKXKy6Iqq+0ht/641r3VDFzqWWdSJmUHIqsC2Dt3M7DyTox/wUNr +KDKOCJ90ZeDVP3dt3a9Zw5aIZOMMDwb+4pv/tDnRGmwmWd29Pgys2/V7UN3O +Gs68nl3YF8BARVHtC8xBK/h5JdIoPJqBG9uuut38Ywn9+hmvSioYaNnJ/NfC +xgL8jhVdtKhiYCfHgKGmpgXMVd1ijrMYWLJYrqcjaQGC9N75zbcZqFMtcSj2 +ozlY8UpL3W2iDrfRvPUYZQ4NXSX7X3UzUOGttj29xgws+WvUQnsZyPCOXB9X +YAa9Zq1z4gMMzMtL+MAZZwYzdV/jPYep620uqYOzGahd3nT98xcGjjgEpLTM +mkJDv2HouW8MTDsg6TAyaAqWwrtAY5KBRa6booUfm8KBuGMvQmYZ6NXwaKA2 +2xRmms7kif1koLLZ7/dqkaYQ8ytnX90vBhq+5eav8TWFdZplqnsWGRhc0W/p +YmcK+YfqZpeWGJhxOCqOX9cU/geBmQqq + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07262909443421478}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.07262909443421478}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJwV1nc8lf0bB3ChqKTskXGfY5XZMDJO14VsWSErozqRR4nEk/IYJaPsmQoV +suKcu2UVaZHRIitSVCoJGankd//+Oq/369zjdV/f6/p8v7S9gQ5MTg4ODsll +HBz//50ban0of7Zo+8noZRVG/Ubbu/LFjxv2xgB+fnhI2YoGKPJsr3hvOjzw +nynltNoMoXblPVy9V+BixvmkT5aGIDAhlr7QQwJO75W6a2kPbxtsAmd6mqH/ +H30XTUsfMJX/MjjV8xLGPydO0MyDYKFHJ2uy5z1sOij69z1EwwPja0UvrvyA +sPjKiFOv0kDqbe3HvaqLEHRcZa++fB4IB3iV8xhzYTfzT9XETCGkbzatt3Hi +xfYd+X/ZH4qgL3dT09S6NbgzelnQgHEpnC2KfMYpIYCTExZBKnEVIJY5kpBx +SQg1FgeKP1lXgbjKrdM/S4RQOtwx5IBzFUg2n4ncwxLCKYW80SGvKpCZ3HhM +6YEQdhx/WtwQXAUK1ke868eEUE3wc4JKbhVs5V7UHtkqjKrbyL7ud1VgGyI6 +uuWpMD5XD1zndKQa4hwttr+cE8F3QhEhowYskLzZKcm5TBRfn9w+vcGQBVVC +jvObV4si59h08kETFrx+6clKkxVFab1subc7WSBvH0K3NxfFG3seV13wZEHz +zoIVz8+LYphWy4JrJAsWTWc7OwzEcCPfpMTnuyxILQmvWDQVw/hejqes+9T9 +Kzji1ezFEPNnk0MescD60SrDJKYYHoupcp5sZ0GeMXHDOlkML7WX9dQMsGAb +WuW0vRXDWiWhsKSfLDiqe9mrNUYc611Oae7QYINlIf+M1TnK35y8nLewgc5z +Mr4zSxxnbhyQYmqx4XmXM/tVqTj6P9y48199Nqgf4eMa6hRHc85H8cfM2DBW +ElYyLSmBF0QD/do82eAhbPNt/Q0J3GZZyv0hkQ1bT9RH5zdI4PFJoaiEJDas +er9BlPZYAifjBVKUU9lQW80Fin0S+PY/bb+9WWwQtapN3bQkgWXslFVlBdT7 +o+U1TawksXTaSj39Bht2fP8VfnhEEgu7rhDdvWw4bp6pfH9cEr0ak/WWDbCh +6rJav9CcJLZcv7JWeZAN4o7eurW863GX3qbxoHdsGK95NM+lvh6ns3OO9X9m +Q0ZMasj5f9ejbZA/59pfbHgvonj44Rop3FXZ+IdHnASxwEZpMTEpbLjSx9Eu +QYJ1i0vHQUIKsd+19dx6Em6Hn1Vdu1UKXZp/lHLLkpD4dvKLq4sUvpFOrexQ +IGFLWb3v9ytS+KL2lPijLSREG9j7SG6TRkcctLK2JMHcM39ax0gaf8MdpSdW +JPBHfT3lZC2N0t1pO7bvJOHig9iSVG9pLOe+ZkyzI6HGsu7rigRp/G690a/O +iYRJF7nQH33SmMll2K3rTcKd8CM8AqPS+C6Yteq4Dwn/Xbybqz4hje0MhbM3 +95LAN7y7/iCnDAa2twYSTBKUfM9xDCvL4PjIeH/bQRI8j80mtp+Qwdb1w6+C +gklQyDGS+hIrg1YdYnyhR0mqfinXeVJl8FVJXF5oCAnhfzY+NyqSwcFe7rsB +oSRknfIUqW2XQZ55XzW1cBI8iitKXr+WwcPXrFSFT5BAf/JTZ2ZYBp/9Phw3 +T5m1KsNNY1YGU6uSnG5EkNCe9qSgWFoWa4IlfJeiSMi4Ibz5gZIsqhcM72mN +JsGt26d5eLMshqRo30mJIWFM/M/oelNZTDNpyxQ4TQJX4Sbl9MOyOMQdIfjl +DAlP70fUV/8ri/E5OZo5cSSkjjy17oiRxRWurxsxngQZJWYgb44shrNkRRIS +SNCrOn/zv0ZZ1CiveTlxloQdPZ2LEy2yGNVx+/GxcyTYcHCbeb2UxZSP+YUL +lPc5HO6DD7K4kLR85c8kEkxP0CKjlhPY5WDS9CyFhLa1DVe3rSLwoVLJPCOV +BLsi55ZJfgJX3rstWUbZveOsgI84gVfX9imGppFwRHbuqqEKgfeJr/98TSdh +9kZqy4IGgetck0QMM6h6m6t8Y2sSqGzbw8qgHBvkrU3fTiBBO9SokUnCqhW/ +3fqNCBRioOZxyql5WZHpZgTyZrdeaqSc9+BpC6c9gay3Ig7GWSTIujC/1TkR +mKZwID+KctH4ksBRNwIb7OPe11FWjs7TVvEiUH/KUHaacrWIlvvIPgKl7L2c +FLNJ0Cx/FnnBj8C5iLLY3ZTrtvsX7TpEoLvxV1Ys5Ye+Bd8ehBI4HXH6dy9l +iz+6gidPEJiFx6T+Uu5M7dLWjCIwQytVn8ghwVEh0H38NFWPgauuQLmvdmVU +UQKBNociw9wpe9oUFXkkExg8PJ0VQnn0/fZW4QwCaz903kqkfDCs71t7DlWv +sdGeS5QnVocIxl4kUIyPZ/E65aOF/DqMywRWavAq1lP+qVnmPltMoO3n+l2P +KP/Xahx1vZzA63FzZ9opc3kOFTGrCeQWSGp6Tjl++t9W6ZsEFhk5LXtJmT9O +aKK7hkC/VAXL//+fsb5KMPkugery3RfaKIuzzHVMmwncMag//4DypR0j7n8f +E/jZdsueWsr0voio220ENj5M66ygXHpIvPjwcwINtmlaX6CsxnmjVbGbep7b +zOs4ymT2zomhPgJlkq4HBlHepjImmDNEYM8HfTEXyncbY3RsR6j+Uz7ZqU/Z +yFHag2eMQPKVVbYU5Sdjd6Iaxwks5U0I/EXV3zrCoThsisCly4Lu3ZRfCnxr +1ZgjMF6pxfU65d0lcROffhG47HlCQAzlN3p0ocIlan2itmU6Ut77rEHHhZuG +Ee23XshRDvg5FdWyhoYWo8VptVS/6AUdEP0oSMObHGHECcq8X/oruMRpWLK2 +xVSXcvHAg9fb6TSUuXncs4LqzxDHbQEeSjTsCJB38KJs1FG5LFyVhkUeI+/W +Uh66l6V6S5uGnzUM+g9Q/V+ps6r5pT4NmyKUTNb8fz5Y/+2eRBpOdbfasaj5 +Eb3iG6NiRcOcPcM249R82cbq9l72ouHVauAxoOZP5u/1Q437afh77EnuE2pe +x0PpXIMHaeheHtZlSzneb7W6eAgN+9iits7JJDRZDZ5KjqehI7nsqD41/8kP +7SUqk2jIPX44rJLKCw/G46rWdBoafazQkKS8oF7dx32JhjMHjjd9pfJli2C0 +xgk2DXekPIv1pfKI4+zsw9zbNFTtolndo/Kqk8vf7XY9DQNl6J0ClP+ZdYid +ekTDLRkqgtVUvhX1yg/49tMwUSbuVjOVh6IFLWccuegY5qkca0vl6agYQyqY +l47F4iMNwVT+kqlsdsoaOro3XH6cfpz6/pi8N0/F6DjCt9epNYz6PmbAFkNV +Oo65Bp9eR+X5gsq6ITUnOm7a52PLG0DC3CXJ6K1udJx4cQf/+pMws1ZBXteL +ji6Lo1pT1H4x8UPXf8dBOgqU923q9CXhff2+ObcIOgb2fD23fx+Vv1Z3+OOL +6XjCqH2Ry43qv7v32UnldBy+e/LxUxcqHzTaHTOq6Zg4XnIteTcJ94Te5eXX +0tGf+1rNGmp/IwdWKd3qoOP4bnW9z7ZUfv3jCe9n6fjzH/5RURMScgb93n/6 +Rcff4t9eVhuTkGl7NPbbEh3h+unvJkbU+myNb/u5Ug45IozuHAQSYn6zd6+V +kcN37q9KUnSp+p5dfsTAVA7ddoxpO6uRYFBRWZidLYd2knvqewRJGCAqCkwu +yOHPjHs6OgJUf2WX5c8UyOG6DO0DmWup/Ta65KJDmRxeWPl30IyPWl+Xwlz+ +BjnsPbrSNWM5CRuXZ6aeeSeH3gr0yLvz1PnG60RUqKo8hqS9qjzQz4YpQUtv +52Z5vHb2TrrNeTb0BtCf+z+Rx+uGSc0z2WxoevwLItvl8TSEZ+VmsiE1vEK2 +9LU87njZptyXwoZN7/neLnyRx41etdu3n2HDYfazPZeEFLBimNPvfDAbvtg6 +uY/uV8B1DLI634INo+e8nYN5FHG2ydWQMcUCi+9hFh+0lTCovE6vXocF4/t4 +j96M3ICYLjvrUFFFne/FOOOaN6Lx2FTmQkslCHYoJrO+K2PC79JO1e/lIBVf +baetrYr5IpxVhkOlkKuiu07IVw1PDM5xbvtaAk8lDbV+pKkj30zlcC13MehJ +NadqvNbA1IkszpClK8DPdSXEJ2YT9rnm6EaqXgaZaFkDV8XNGHRV7dry9HxY +qeBx2+HJZvTP5JyYF7wA6gyJ6rA9W1BHcK+HwopcCB4SfGDJsRU/WayIM57L +hO8/zjlZ5G7FiK7962N3p4OZxuM8CzVNPHbk0VH9pRS490P/93ynJh4erF3f +4ncWDqtu6X/B1EL5bSdsRLPigDGxv8t1pTY6uHMd6Px0CkzkxXeuuaKNl1xG +na+ORMGGqMR/m3V0kDnd0mCfcxKUmbqNCv06eCpxLMH6dhgw7/mdvhm0Db1X +u7VPtB2FxsKu/VMiumgy+WGVu9oRmCldmte4o4tDp7oD6J7+8NHZtDChVhen +x4x8ayz8oZc7yXykXhd77JxG3bX8od5b8nx2ky5WWsxatvH5Q4y4lt5iqy4u +8Dmtsmo4COvi/U8+faOLIVlNLi3SB0HVt5uDyamHzJd+LYlffGGfQsXKvJ16 +KFYQdqi2jAnhjzz9Fe30MB2843hymJDKFGwjHfRwrmowed9pJjQUHz/XtlsP +Hb99NjHxYoKwovnaRR89xB76kSoRJjxW/CDsHaqHHZUtF9fF7gflDbKEYoEe +Xi3IlntzaB9MKWdok5N6eEvomV8P0wd629FE6Icenr+0yPbb7QNNhyd2hcxS +z08/7c9t4QPJpEWQ9i89fM5tLeCu6gPKehyVdVz6WH6f/9zpH96w1+IQ7YGo +PgpHiEw2n/KGLl8zvi4DfayTnPaL2+0FNUW/383G62Owhq2W9GYP0DYOmbc8 +q4/Vu4Q2Z0h4wK1343yFSfoYblcUJMnpAaTMkI5luj6uv5ib4/HKHSpzm5Ly +L+hjk1KpY1WoOxSei9U1q9LHYyqSqf81uUFCyNq03Ff62DPU3Jno7QpuO+RQ +X8YA5YfVrRWfO8NiFy//A8IAhavNtebqnKGQOTFgKWeAHjxP43uKneHjmdow +tw0GaGxnCZ0nnCG41bb6+BYD7CkKvZS4wRkSbU7K1Jga4IswpTbNWCeoc+n+ +oxlogKY8vlGLlo6w/lBcrXqTAcqWlz77tNwBkpcOaJ1tNsCZWZvmwVl74Ew3 +ZX96aICz5m8ODX+why+3l5cVthrgOYP4jtWP7aGO43Su4CsDDHwpfn/hjD24 +ZUaFzX0wwKXKy6Iqq+0ht/641r3VDFzqWWdSJmUHIqsC2Dt3M7DyTox/wUNr +KDKOCJ90ZeDVP3dt3a9Zw5aIZOMMDwb+4pv/tDnRGmwmWd29Pgys2/V7UN3O +Gs68nl3YF8BARVHtC8xBK/h5JdIoPJqBG9uuut38Ywn9+hmvSioYaNnJ/NfC +xgL8jhVdtKhiYCfHgKGmpgXMVd1ijrMYWLJYrqcjaQGC9N75zbcZqFMtcSj2 +ozlY8UpL3W2iDrfRvPUYZQ4NXSX7X3UzUOGttj29xgws+WvUQnsZyPCOXB9X +YAa9Zq1z4gMMzMtL+MAZZwYzdV/jPYep620uqYOzGahd3nT98xcGjjgEpLTM +mkJDv2HouW8MTDsg6TAyaAqWwrtAY5KBRa6booUfm8KBuGMvQmYZ6NXwaKA2 +2xRmms7kif1koLLZ7/dqkaYQ8ytnX90vBhq+5eav8TWFdZplqnsWGRhc0W/p +YmcK+YfqZpeWGJhxOCqOX9cU/geBmQqq + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07262909443421478}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.07262909443421478}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9939611407952423`*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"de052503-50ab-4135-a3ba-058cae74191d"] }, 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:eJwV1nc8lf0bB3ChqKTskXGfY5XZMDJO14VsWSErozqRR4nEk/IYJaPsmQoV +suKcu2UVaZHRIitSVCoJGankd//+Oq/369zjdV/f6/p8v7S9gQ5MTg4ODsll +HBz//50ban0of7Zo+8noZRVG/Ubbu/LFjxv2xgB+fnhI2YoGKPJsr3hvOjzw +nynltNoMoXblPVy9V+BixvmkT5aGIDAhlr7QQwJO75W6a2kPbxtsAmd6mqH/ +H30XTUsfMJX/MjjV8xLGPydO0MyDYKFHJ2uy5z1sOij69z1EwwPja0UvrvyA +sPjKiFOv0kDqbe3HvaqLEHRcZa++fB4IB3iV8xhzYTfzT9XETCGkbzatt3Hi +xfYd+X/ZH4qgL3dT09S6NbgzelnQgHEpnC2KfMYpIYCTExZBKnEVIJY5kpBx +SQg1FgeKP1lXgbjKrdM/S4RQOtwx5IBzFUg2n4ncwxLCKYW80SGvKpCZ3HhM +6YEQdhx/WtwQXAUK1ke868eEUE3wc4JKbhVs5V7UHtkqjKrbyL7ud1VgGyI6 +uuWpMD5XD1zndKQa4hwttr+cE8F3QhEhowYskLzZKcm5TBRfn9w+vcGQBVVC +jvObV4si59h08kETFrx+6clKkxVFab1subc7WSBvH0K3NxfFG3seV13wZEHz +zoIVz8+LYphWy4JrJAsWTWc7OwzEcCPfpMTnuyxILQmvWDQVw/hejqes+9T9 +Kzji1ezFEPNnk0MescD60SrDJKYYHoupcp5sZ0GeMXHDOlkML7WX9dQMsGAb +WuW0vRXDWiWhsKSfLDiqe9mrNUYc611Oae7QYINlIf+M1TnK35y8nLewgc5z +Mr4zSxxnbhyQYmqx4XmXM/tVqTj6P9y48199Nqgf4eMa6hRHc85H8cfM2DBW +ElYyLSmBF0QD/do82eAhbPNt/Q0J3GZZyv0hkQ1bT9RH5zdI4PFJoaiEJDas +er9BlPZYAifjBVKUU9lQW80Fin0S+PY/bb+9WWwQtapN3bQkgWXslFVlBdT7 +o+U1TawksXTaSj39Bht2fP8VfnhEEgu7rhDdvWw4bp6pfH9cEr0ak/WWDbCh +6rJav9CcJLZcv7JWeZAN4o7eurW863GX3qbxoHdsGK95NM+lvh6ns3OO9X9m +Q0ZMasj5f9ejbZA/59pfbHgvonj44Rop3FXZ+IdHnASxwEZpMTEpbLjSx9Eu +QYJ1i0vHQUIKsd+19dx6Em6Hn1Vdu1UKXZp/lHLLkpD4dvKLq4sUvpFOrexQ +IGFLWb3v9ytS+KL2lPijLSREG9j7SG6TRkcctLK2JMHcM39ax0gaf8MdpSdW +JPBHfT3lZC2N0t1pO7bvJOHig9iSVG9pLOe+ZkyzI6HGsu7rigRp/G690a/O +iYRJF7nQH33SmMll2K3rTcKd8CM8AqPS+C6Yteq4Dwn/Xbybqz4hje0MhbM3 +95LAN7y7/iCnDAa2twYSTBKUfM9xDCvL4PjIeH/bQRI8j80mtp+Qwdb1w6+C +gklQyDGS+hIrg1YdYnyhR0mqfinXeVJl8FVJXF5oCAnhfzY+NyqSwcFe7rsB +oSRknfIUqW2XQZ55XzW1cBI8iitKXr+WwcPXrFSFT5BAf/JTZ2ZYBp/9Phw3 +T5m1KsNNY1YGU6uSnG5EkNCe9qSgWFoWa4IlfJeiSMi4Ibz5gZIsqhcM72mN +JsGt26d5eLMshqRo30mJIWFM/M/oelNZTDNpyxQ4TQJX4Sbl9MOyOMQdIfjl +DAlP70fUV/8ri/E5OZo5cSSkjjy17oiRxRWurxsxngQZJWYgb44shrNkRRIS +SNCrOn/zv0ZZ1CiveTlxloQdPZ2LEy2yGNVx+/GxcyTYcHCbeb2UxZSP+YUL +lPc5HO6DD7K4kLR85c8kEkxP0CKjlhPY5WDS9CyFhLa1DVe3rSLwoVLJPCOV +BLsi55ZJfgJX3rstWUbZveOsgI84gVfX9imGppFwRHbuqqEKgfeJr/98TSdh +9kZqy4IGgetck0QMM6h6m6t8Y2sSqGzbw8qgHBvkrU3fTiBBO9SokUnCqhW/ +3fqNCBRioOZxyql5WZHpZgTyZrdeaqSc9+BpC6c9gay3Ig7GWSTIujC/1TkR +mKZwID+KctH4ksBRNwIb7OPe11FWjs7TVvEiUH/KUHaacrWIlvvIPgKl7L2c +FLNJ0Cx/FnnBj8C5iLLY3ZTrtvsX7TpEoLvxV1Ys5Ye+Bd8ehBI4HXH6dy9l +iz+6gidPEJiFx6T+Uu5M7dLWjCIwQytVn8ghwVEh0H38NFWPgauuQLmvdmVU +UQKBNociw9wpe9oUFXkkExg8PJ0VQnn0/fZW4QwCaz903kqkfDCs71t7DlWv +sdGeS5QnVocIxl4kUIyPZ/E65aOF/DqMywRWavAq1lP+qVnmPltMoO3n+l2P +KP/Xahx1vZzA63FzZ9opc3kOFTGrCeQWSGp6Tjl++t9W6ZsEFhk5LXtJmT9O +aKK7hkC/VAXL//+fsb5KMPkugery3RfaKIuzzHVMmwncMag//4DypR0j7n8f +E/jZdsueWsr0voio220ENj5M66ygXHpIvPjwcwINtmlaX6CsxnmjVbGbep7b +zOs4ymT2zomhPgJlkq4HBlHepjImmDNEYM8HfTEXyncbY3RsR6j+Uz7ZqU/Z +yFHag2eMQPKVVbYU5Sdjd6Iaxwks5U0I/EXV3zrCoThsisCly4Lu3ZRfCnxr +1ZgjMF6pxfU65d0lcROffhG47HlCQAzlN3p0ocIlan2itmU6Ut77rEHHhZuG +Ee23XshRDvg5FdWyhoYWo8VptVS/6AUdEP0oSMObHGHECcq8X/oruMRpWLK2 +xVSXcvHAg9fb6TSUuXncs4LqzxDHbQEeSjTsCJB38KJs1FG5LFyVhkUeI+/W +Uh66l6V6S5uGnzUM+g9Q/V+ps6r5pT4NmyKUTNb8fz5Y/+2eRBpOdbfasaj5 +Eb3iG6NiRcOcPcM249R82cbq9l72ouHVauAxoOZP5u/1Q437afh77EnuE2pe +x0PpXIMHaeheHtZlSzneb7W6eAgN+9iits7JJDRZDZ5KjqehI7nsqD41/8kP +7SUqk2jIPX44rJLKCw/G46rWdBoafazQkKS8oF7dx32JhjMHjjd9pfJli2C0 +xgk2DXekPIv1pfKI4+zsw9zbNFTtolndo/Kqk8vf7XY9DQNl6J0ClP+ZdYid +ekTDLRkqgtVUvhX1yg/49tMwUSbuVjOVh6IFLWccuegY5qkca0vl6agYQyqY +l47F4iMNwVT+kqlsdsoaOro3XH6cfpz6/pi8N0/F6DjCt9epNYz6PmbAFkNV +Oo65Bp9eR+X5gsq6ITUnOm7a52PLG0DC3CXJ6K1udJx4cQf/+pMws1ZBXteL +ji6Lo1pT1H4x8UPXf8dBOgqU923q9CXhff2+ObcIOgb2fD23fx+Vv1Z3+OOL +6XjCqH2Ry43qv7v32UnldBy+e/LxUxcqHzTaHTOq6Zg4XnIteTcJ94Te5eXX +0tGf+1rNGmp/IwdWKd3qoOP4bnW9z7ZUfv3jCe9n6fjzH/5RURMScgb93n/6 +Rcff4t9eVhuTkGl7NPbbEh3h+unvJkbU+myNb/u5Ug45IozuHAQSYn6zd6+V +kcN37q9KUnSp+p5dfsTAVA7ddoxpO6uRYFBRWZidLYd2knvqewRJGCAqCkwu +yOHPjHs6OgJUf2WX5c8UyOG6DO0DmWup/Ta65KJDmRxeWPl30IyPWl+Xwlz+ +BjnsPbrSNWM5CRuXZ6aeeSeH3gr0yLvz1PnG60RUqKo8hqS9qjzQz4YpQUtv +52Z5vHb2TrrNeTb0BtCf+z+Rx+uGSc0z2WxoevwLItvl8TSEZ+VmsiE1vEK2 +9LU87njZptyXwoZN7/neLnyRx41etdu3n2HDYfazPZeEFLBimNPvfDAbvtg6 +uY/uV8B1DLI634INo+e8nYN5FHG2ydWQMcUCi+9hFh+0lTCovE6vXocF4/t4 +j96M3ICYLjvrUFFFne/FOOOaN6Lx2FTmQkslCHYoJrO+K2PC79JO1e/lIBVf +baetrYr5IpxVhkOlkKuiu07IVw1PDM5xbvtaAk8lDbV+pKkj30zlcC13MehJ +NadqvNbA1IkszpClK8DPdSXEJ2YT9rnm6EaqXgaZaFkDV8XNGHRV7dry9HxY +qeBx2+HJZvTP5JyYF7wA6gyJ6rA9W1BHcK+HwopcCB4SfGDJsRU/WayIM57L +hO8/zjlZ5G7FiK7962N3p4OZxuM8CzVNPHbk0VH9pRS490P/93ynJh4erF3f +4ncWDqtu6X/B1EL5bSdsRLPigDGxv8t1pTY6uHMd6Px0CkzkxXeuuaKNl1xG +na+ORMGGqMR/m3V0kDnd0mCfcxKUmbqNCv06eCpxLMH6dhgw7/mdvhm0Db1X +u7VPtB2FxsKu/VMiumgy+WGVu9oRmCldmte4o4tDp7oD6J7+8NHZtDChVhen +x4x8ayz8oZc7yXykXhd77JxG3bX8od5b8nx2ky5WWsxatvH5Q4y4lt5iqy4u +8Dmtsmo4COvi/U8+faOLIVlNLi3SB0HVt5uDyamHzJd+LYlffGGfQsXKvJ16 +KFYQdqi2jAnhjzz9Fe30MB2843hymJDKFGwjHfRwrmowed9pJjQUHz/XtlsP +Hb99NjHxYoKwovnaRR89xB76kSoRJjxW/CDsHaqHHZUtF9fF7gflDbKEYoEe +Xi3IlntzaB9MKWdok5N6eEvomV8P0wd629FE6Icenr+0yPbb7QNNhyd2hcxS +z08/7c9t4QPJpEWQ9i89fM5tLeCu6gPKehyVdVz6WH6f/9zpH96w1+IQ7YGo +PgpHiEw2n/KGLl8zvi4DfayTnPaL2+0FNUW/383G62Owhq2W9GYP0DYOmbc8 +q4/Vu4Q2Z0h4wK1343yFSfoYblcUJMnpAaTMkI5luj6uv5ib4/HKHSpzm5Ly +L+hjk1KpY1WoOxSei9U1q9LHYyqSqf81uUFCyNq03Ff62DPU3Jno7QpuO+RQ +X8YA5YfVrRWfO8NiFy//A8IAhavNtebqnKGQOTFgKWeAHjxP43uKneHjmdow +tw0GaGxnCZ0nnCG41bb6+BYD7CkKvZS4wRkSbU7K1Jga4IswpTbNWCeoc+n+ +oxlogKY8vlGLlo6w/lBcrXqTAcqWlz77tNwBkpcOaJ1tNsCZWZvmwVl74Ew3 +ZX96aICz5m8ODX+why+3l5cVthrgOYP4jtWP7aGO43Su4CsDDHwpfn/hjD24 +ZUaFzX0wwKXKy6Iqq+0ht/641r3VDFzqWWdSJmUHIqsC2Dt3M7DyTox/wUNr +KDKOCJ90ZeDVP3dt3a9Zw5aIZOMMDwb+4pv/tDnRGmwmWd29Pgys2/V7UN3O +Gs68nl3YF8BARVHtC8xBK/h5JdIoPJqBG9uuut38Ywn9+hmvSioYaNnJ/NfC +xgL8jhVdtKhiYCfHgKGmpgXMVd1ijrMYWLJYrqcjaQGC9N75zbcZqFMtcSj2 +ozlY8UpL3W2iDrfRvPUYZQ4NXSX7X3UzUOGttj29xgws+WvUQnsZyPCOXB9X +YAa9Zq1z4gMMzMtL+MAZZwYzdV/jPYep620uqYOzGahd3nT98xcGjjgEpLTM +mkJDv2HouW8MTDsg6TAyaAqWwrtAY5KBRa6booUfm8KBuGMvQmYZ6NXwaKA2 +2xRmms7kif1koLLZ7/dqkaYQ8ytnX90vBhq+5eav8TWFdZplqnsWGRhc0W/p +YmcK+YfqZpeWGJhxOCqOX9cU/geBmQqq + "]]}, + 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:eJwV1nc8lf0bB3ChqKTskXGfY5XZMDJO14VsWSErozqRR4nEk/IYJaPsmQoV +suKcu2UVaZHRIitSVCoJGankd//+Oq/369zjdV/f6/p8v7S9gQ5MTg4ODsll +HBz//50ban0of7Zo+8noZRVG/Ubbu/LFjxv2xgB+fnhI2YoGKPJsr3hvOjzw +nynltNoMoXblPVy9V+BixvmkT5aGIDAhlr7QQwJO75W6a2kPbxtsAmd6mqH/ +H30XTUsfMJX/MjjV8xLGPydO0MyDYKFHJ2uy5z1sOij69z1EwwPja0UvrvyA +sPjKiFOv0kDqbe3HvaqLEHRcZa++fB4IB3iV8xhzYTfzT9XETCGkbzatt3Hi +xfYd+X/ZH4qgL3dT09S6NbgzelnQgHEpnC2KfMYpIYCTExZBKnEVIJY5kpBx +SQg1FgeKP1lXgbjKrdM/S4RQOtwx5IBzFUg2n4ncwxLCKYW80SGvKpCZ3HhM +6YEQdhx/WtwQXAUK1ke868eEUE3wc4JKbhVs5V7UHtkqjKrbyL7ud1VgGyI6 +uuWpMD5XD1zndKQa4hwttr+cE8F3QhEhowYskLzZKcm5TBRfn9w+vcGQBVVC +jvObV4si59h08kETFrx+6clKkxVFab1subc7WSBvH0K3NxfFG3seV13wZEHz +zoIVz8+LYphWy4JrJAsWTWc7OwzEcCPfpMTnuyxILQmvWDQVw/hejqes+9T9 +Kzji1ezFEPNnk0MescD60SrDJKYYHoupcp5sZ0GeMXHDOlkML7WX9dQMsGAb +WuW0vRXDWiWhsKSfLDiqe9mrNUYc611Oae7QYINlIf+M1TnK35y8nLewgc5z +Mr4zSxxnbhyQYmqx4XmXM/tVqTj6P9y48199Nqgf4eMa6hRHc85H8cfM2DBW +ElYyLSmBF0QD/do82eAhbPNt/Q0J3GZZyv0hkQ1bT9RH5zdI4PFJoaiEJDas +er9BlPZYAifjBVKUU9lQW80Fin0S+PY/bb+9WWwQtapN3bQkgWXslFVlBdT7 +o+U1TawksXTaSj39Bht2fP8VfnhEEgu7rhDdvWw4bp6pfH9cEr0ak/WWDbCh +6rJav9CcJLZcv7JWeZAN4o7eurW863GX3qbxoHdsGK95NM+lvh6ns3OO9X9m +Q0ZMasj5f9ejbZA/59pfbHgvonj44Rop3FXZ+IdHnASxwEZpMTEpbLjSx9Eu +QYJ1i0vHQUIKsd+19dx6Em6Hn1Vdu1UKXZp/lHLLkpD4dvKLq4sUvpFOrexQ +IGFLWb3v9ytS+KL2lPijLSREG9j7SG6TRkcctLK2JMHcM39ax0gaf8MdpSdW +JPBHfT3lZC2N0t1pO7bvJOHig9iSVG9pLOe+ZkyzI6HGsu7rigRp/G690a/O +iYRJF7nQH33SmMll2K3rTcKd8CM8AqPS+C6Yteq4Dwn/Xbybqz4hje0MhbM3 +95LAN7y7/iCnDAa2twYSTBKUfM9xDCvL4PjIeH/bQRI8j80mtp+Qwdb1w6+C +gklQyDGS+hIrg1YdYnyhR0mqfinXeVJl8FVJXF5oCAnhfzY+NyqSwcFe7rsB +oSRknfIUqW2XQZ55XzW1cBI8iitKXr+WwcPXrFSFT5BAf/JTZ2ZYBp/9Phw3 +T5m1KsNNY1YGU6uSnG5EkNCe9qSgWFoWa4IlfJeiSMi4Ibz5gZIsqhcM72mN +JsGt26d5eLMshqRo30mJIWFM/M/oelNZTDNpyxQ4TQJX4Sbl9MOyOMQdIfjl +DAlP70fUV/8ri/E5OZo5cSSkjjy17oiRxRWurxsxngQZJWYgb44shrNkRRIS +SNCrOn/zv0ZZ1CiveTlxloQdPZ2LEy2yGNVx+/GxcyTYcHCbeb2UxZSP+YUL +lPc5HO6DD7K4kLR85c8kEkxP0CKjlhPY5WDS9CyFhLa1DVe3rSLwoVLJPCOV +BLsi55ZJfgJX3rstWUbZveOsgI84gVfX9imGppFwRHbuqqEKgfeJr/98TSdh +9kZqy4IGgetck0QMM6h6m6t8Y2sSqGzbw8qgHBvkrU3fTiBBO9SokUnCqhW/ +3fqNCBRioOZxyql5WZHpZgTyZrdeaqSc9+BpC6c9gay3Ig7GWSTIujC/1TkR +mKZwID+KctH4ksBRNwIb7OPe11FWjs7TVvEiUH/KUHaacrWIlvvIPgKl7L2c +FLNJ0Cx/FnnBj8C5iLLY3ZTrtvsX7TpEoLvxV1Ys5Ye+Bd8ehBI4HXH6dy9l +iz+6gidPEJiFx6T+Uu5M7dLWjCIwQytVn8ghwVEh0H38NFWPgauuQLmvdmVU +UQKBNociw9wpe9oUFXkkExg8PJ0VQnn0/fZW4QwCaz903kqkfDCs71t7DlWv +sdGeS5QnVocIxl4kUIyPZ/E65aOF/DqMywRWavAq1lP+qVnmPltMoO3n+l2P +KP/Xahx1vZzA63FzZ9opc3kOFTGrCeQWSGp6Tjl++t9W6ZsEFhk5LXtJmT9O +aKK7hkC/VAXL//+fsb5KMPkugery3RfaKIuzzHVMmwncMag//4DypR0j7n8f +E/jZdsueWsr0voio220ENj5M66ygXHpIvPjwcwINtmlaX6CsxnmjVbGbep7b +zOs4ymT2zomhPgJlkq4HBlHepjImmDNEYM8HfTEXyncbY3RsR6j+Uz7ZqU/Z +yFHag2eMQPKVVbYU5Sdjd6Iaxwks5U0I/EXV3zrCoThsisCly4Lu3ZRfCnxr +1ZgjMF6pxfU65d0lcROffhG47HlCQAzlN3p0ocIlan2itmU6Ut77rEHHhZuG +Ee23XshRDvg5FdWyhoYWo8VptVS/6AUdEP0oSMObHGHECcq8X/oruMRpWLK2 +xVSXcvHAg9fb6TSUuXncs4LqzxDHbQEeSjTsCJB38KJs1FG5LFyVhkUeI+/W +Uh66l6V6S5uGnzUM+g9Q/V+ps6r5pT4NmyKUTNb8fz5Y/+2eRBpOdbfasaj5 +Eb3iG6NiRcOcPcM249R82cbq9l72ouHVauAxoOZP5u/1Q437afh77EnuE2pe +x0PpXIMHaeheHtZlSzneb7W6eAgN+9iits7JJDRZDZ5KjqehI7nsqD41/8kP +7SUqk2jIPX44rJLKCw/G46rWdBoafazQkKS8oF7dx32JhjMHjjd9pfJli2C0 +xgk2DXekPIv1pfKI4+zsw9zbNFTtolndo/Kqk8vf7XY9DQNl6J0ClP+ZdYid +ekTDLRkqgtVUvhX1yg/49tMwUSbuVjOVh6IFLWccuegY5qkca0vl6agYQyqY +l47F4iMNwVT+kqlsdsoaOro3XH6cfpz6/pi8N0/F6DjCt9epNYz6PmbAFkNV +Oo65Bp9eR+X5gsq6ITUnOm7a52PLG0DC3CXJ6K1udJx4cQf/+pMws1ZBXteL +ji6Lo1pT1H4x8UPXf8dBOgqU923q9CXhff2+ObcIOgb2fD23fx+Vv1Z3+OOL +6XjCqH2Ry43qv7v32UnldBy+e/LxUxcqHzTaHTOq6Zg4XnIteTcJ94Te5eXX +0tGf+1rNGmp/IwdWKd3qoOP4bnW9z7ZUfv3jCe9n6fjzH/5RURMScgb93n/6 +Rcff4t9eVhuTkGl7NPbbEh3h+unvJkbU+myNb/u5Ug45IozuHAQSYn6zd6+V +kcN37q9KUnSp+p5dfsTAVA7ddoxpO6uRYFBRWZidLYd2knvqewRJGCAqCkwu +yOHPjHs6OgJUf2WX5c8UyOG6DO0DmWup/Ta65KJDmRxeWPl30IyPWl+Xwlz+ +BjnsPbrSNWM5CRuXZ6aeeSeH3gr0yLvz1PnG60RUqKo8hqS9qjzQz4YpQUtv +52Z5vHb2TrrNeTb0BtCf+z+Rx+uGSc0z2WxoevwLItvl8TSEZ+VmsiE1vEK2 +9LU87njZptyXwoZN7/neLnyRx41etdu3n2HDYfazPZeEFLBimNPvfDAbvtg6 +uY/uV8B1DLI634INo+e8nYN5FHG2ydWQMcUCi+9hFh+0lTCovE6vXocF4/t4 +j96M3ICYLjvrUFFFne/FOOOaN6Lx2FTmQkslCHYoJrO+K2PC79JO1e/lIBVf +baetrYr5IpxVhkOlkKuiu07IVw1PDM5xbvtaAk8lDbV+pKkj30zlcC13MehJ +NadqvNbA1IkszpClK8DPdSXEJ2YT9rnm6EaqXgaZaFkDV8XNGHRV7dry9HxY +qeBx2+HJZvTP5JyYF7wA6gyJ6rA9W1BHcK+HwopcCB4SfGDJsRU/WayIM57L +hO8/zjlZ5G7FiK7962N3p4OZxuM8CzVNPHbk0VH9pRS490P/93ynJh4erF3f +4ncWDqtu6X/B1EL5bSdsRLPigDGxv8t1pTY6uHMd6Px0CkzkxXeuuaKNl1xG +na+ORMGGqMR/m3V0kDnd0mCfcxKUmbqNCv06eCpxLMH6dhgw7/mdvhm0Db1X +u7VPtB2FxsKu/VMiumgy+WGVu9oRmCldmte4o4tDp7oD6J7+8NHZtDChVhen +x4x8ayz8oZc7yXykXhd77JxG3bX8od5b8nx2ky5WWsxatvH5Q4y4lt5iqy4u +8Dmtsmo4COvi/U8+faOLIVlNLi3SB0HVt5uDyamHzJd+LYlffGGfQsXKvJ16 +KFYQdqi2jAnhjzz9Fe30MB2843hymJDKFGwjHfRwrmowed9pJjQUHz/XtlsP +Hb99NjHxYoKwovnaRR89xB76kSoRJjxW/CDsHaqHHZUtF9fF7gflDbKEYoEe +Xi3IlntzaB9MKWdok5N6eEvomV8P0wd629FE6Icenr+0yPbb7QNNhyd2hcxS +z08/7c9t4QPJpEWQ9i89fM5tLeCu6gPKehyVdVz6WH6f/9zpH96w1+IQ7YGo +PgpHiEw2n/KGLl8zvi4DfayTnPaL2+0FNUW/383G62Owhq2W9GYP0DYOmbc8 +q4/Vu4Q2Z0h4wK1343yFSfoYblcUJMnpAaTMkI5luj6uv5ib4/HKHSpzm5Ly +L+hjk1KpY1WoOxSei9U1q9LHYyqSqf81uUFCyNq03Ff62DPU3Jno7QpuO+RQ +X8YA5YfVrRWfO8NiFy//A8IAhavNtebqnKGQOTFgKWeAHjxP43uKneHjmdow +tw0GaGxnCZ0nnCG41bb6+BYD7CkKvZS4wRkSbU7K1Jga4IswpTbNWCeoc+n+ +oxlogKY8vlGLlo6w/lBcrXqTAcqWlz77tNwBkpcOaJ1tNsCZWZvmwVl74Ew3 +ZX96aICz5m8ODX+why+3l5cVthrgOYP4jtWP7aGO43Su4CsDDHwpfn/hjD24 +ZUaFzX0wwKXKy6Iqq+0ht/641r3VDFzqWWdSJmUHIqsC2Dt3M7DyTox/wUNr +KDKOCJ90ZeDVP3dt3a9Zw5aIZOMMDwb+4pv/tDnRGmwmWd29Pgys2/V7UN3O +Gs68nl3YF8BARVHtC8xBK/h5JdIoPJqBG9uuut38Ywn9+hmvSioYaNnJ/NfC +xgL8jhVdtKhiYCfHgKGmpgXMVd1ijrMYWLJYrqcjaQGC9N75zbcZqFMtcSj2 +ozlY8UpL3W2iDrfRvPUYZQ4NXSX7X3UzUOGttj29xgws+WvUQnsZyPCOXB9X +YAa9Zq1z4gMMzMtL+MAZZwYzdV/jPYep620uqYOzGahd3nT98xcGjjgEpLTM +mkJDv2HouW8MTDsg6TAyaAqWwrtAY5KBRa6booUfm8KBuGMvQmYZ6NXwaKA2 +2xRmms7kif1koLLZ7/dqkaYQ8ytnX90vBhq+5eav8TWFdZplqnsWGRhc0W/p +YmcK+YfqZpeWGJhxOCqOX9cU/geBmQqq + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07262909443421478}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.07262909443421478}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJwV1nc8lf0bB3ChqKTskXGfY5XZMDJO14VsWSErozqRR4nEk/IYJaPsmQoV +suKcu2UVaZHRIitSVCoJGankd//+Oq/369zjdV/f6/p8v7S9gQ5MTg4ODsll +HBz//50ban0of7Zo+8noZRVG/Ubbu/LFjxv2xgB+fnhI2YoGKPJsr3hvOjzw +nynltNoMoXblPVy9V+BixvmkT5aGIDAhlr7QQwJO75W6a2kPbxtsAmd6mqH/ +H30XTUsfMJX/MjjV8xLGPydO0MyDYKFHJ2uy5z1sOij69z1EwwPja0UvrvyA +sPjKiFOv0kDqbe3HvaqLEHRcZa++fB4IB3iV8xhzYTfzT9XETCGkbzatt3Hi +xfYd+X/ZH4qgL3dT09S6NbgzelnQgHEpnC2KfMYpIYCTExZBKnEVIJY5kpBx +SQg1FgeKP1lXgbjKrdM/S4RQOtwx5IBzFUg2n4ncwxLCKYW80SGvKpCZ3HhM +6YEQdhx/WtwQXAUK1ke868eEUE3wc4JKbhVs5V7UHtkqjKrbyL7ud1VgGyI6 +uuWpMD5XD1zndKQa4hwttr+cE8F3QhEhowYskLzZKcm5TBRfn9w+vcGQBVVC +jvObV4si59h08kETFrx+6clKkxVFab1subc7WSBvH0K3NxfFG3seV13wZEHz +zoIVz8+LYphWy4JrJAsWTWc7OwzEcCPfpMTnuyxILQmvWDQVw/hejqes+9T9 +Kzji1ezFEPNnk0MescD60SrDJKYYHoupcp5sZ0GeMXHDOlkML7WX9dQMsGAb +WuW0vRXDWiWhsKSfLDiqe9mrNUYc611Oae7QYINlIf+M1TnK35y8nLewgc5z +Mr4zSxxnbhyQYmqx4XmXM/tVqTj6P9y48199Nqgf4eMa6hRHc85H8cfM2DBW +ElYyLSmBF0QD/do82eAhbPNt/Q0J3GZZyv0hkQ1bT9RH5zdI4PFJoaiEJDas +er9BlPZYAifjBVKUU9lQW80Fin0S+PY/bb+9WWwQtapN3bQkgWXslFVlBdT7 +o+U1TawksXTaSj39Bht2fP8VfnhEEgu7rhDdvWw4bp6pfH9cEr0ak/WWDbCh +6rJav9CcJLZcv7JWeZAN4o7eurW863GX3qbxoHdsGK95NM+lvh6ns3OO9X9m +Q0ZMasj5f9ejbZA/59pfbHgvonj44Rop3FXZ+IdHnASxwEZpMTEpbLjSx9Eu +QYJ1i0vHQUIKsd+19dx6Em6Hn1Vdu1UKXZp/lHLLkpD4dvKLq4sUvpFOrexQ +IGFLWb3v9ytS+KL2lPijLSREG9j7SG6TRkcctLK2JMHcM39ax0gaf8MdpSdW +JPBHfT3lZC2N0t1pO7bvJOHig9iSVG9pLOe+ZkyzI6HGsu7rigRp/G690a/O +iYRJF7nQH33SmMll2K3rTcKd8CM8AqPS+C6Yteq4Dwn/Xbybqz4hje0MhbM3 +95LAN7y7/iCnDAa2twYSTBKUfM9xDCvL4PjIeH/bQRI8j80mtp+Qwdb1w6+C +gklQyDGS+hIrg1YdYnyhR0mqfinXeVJl8FVJXF5oCAnhfzY+NyqSwcFe7rsB +oSRknfIUqW2XQZ55XzW1cBI8iitKXr+WwcPXrFSFT5BAf/JTZ2ZYBp/9Phw3 +T5m1KsNNY1YGU6uSnG5EkNCe9qSgWFoWa4IlfJeiSMi4Ibz5gZIsqhcM72mN +JsGt26d5eLMshqRo30mJIWFM/M/oelNZTDNpyxQ4TQJX4Sbl9MOyOMQdIfjl +DAlP70fUV/8ri/E5OZo5cSSkjjy17oiRxRWurxsxngQZJWYgb44shrNkRRIS +SNCrOn/zv0ZZ1CiveTlxloQdPZ2LEy2yGNVx+/GxcyTYcHCbeb2UxZSP+YUL +lPc5HO6DD7K4kLR85c8kEkxP0CKjlhPY5WDS9CyFhLa1DVe3rSLwoVLJPCOV +BLsi55ZJfgJX3rstWUbZveOsgI84gVfX9imGppFwRHbuqqEKgfeJr/98TSdh +9kZqy4IGgetck0QMM6h6m6t8Y2sSqGzbw8qgHBvkrU3fTiBBO9SokUnCqhW/ +3fqNCBRioOZxyql5WZHpZgTyZrdeaqSc9+BpC6c9gay3Ig7GWSTIujC/1TkR +mKZwID+KctH4ksBRNwIb7OPe11FWjs7TVvEiUH/KUHaacrWIlvvIPgKl7L2c +FLNJ0Cx/FnnBj8C5iLLY3ZTrtvsX7TpEoLvxV1Ys5Ye+Bd8ehBI4HXH6dy9l +iz+6gidPEJiFx6T+Uu5M7dLWjCIwQytVn8ghwVEh0H38NFWPgauuQLmvdmVU +UQKBNociw9wpe9oUFXkkExg8PJ0VQnn0/fZW4QwCaz903kqkfDCs71t7DlWv +sdGeS5QnVocIxl4kUIyPZ/E65aOF/DqMywRWavAq1lP+qVnmPltMoO3n+l2P +KP/Xahx1vZzA63FzZ9opc3kOFTGrCeQWSGp6Tjl++t9W6ZsEFhk5LXtJmT9O +aKK7hkC/VAXL//+fsb5KMPkugery3RfaKIuzzHVMmwncMag//4DypR0j7n8f +E/jZdsueWsr0voio220ENj5M66ygXHpIvPjwcwINtmlaX6CsxnmjVbGbep7b +zOs4ymT2zomhPgJlkq4HBlHepjImmDNEYM8HfTEXyncbY3RsR6j+Uz7ZqU/Z +yFHag2eMQPKVVbYU5Sdjd6Iaxwks5U0I/EXV3zrCoThsisCly4Lu3ZRfCnxr +1ZgjMF6pxfU65d0lcROffhG47HlCQAzlN3p0ocIlan2itmU6Ut77rEHHhZuG +Ee23XshRDvg5FdWyhoYWo8VptVS/6AUdEP0oSMObHGHECcq8X/oruMRpWLK2 +xVSXcvHAg9fb6TSUuXncs4LqzxDHbQEeSjTsCJB38KJs1FG5LFyVhkUeI+/W +Uh66l6V6S5uGnzUM+g9Q/V+ps6r5pT4NmyKUTNb8fz5Y/+2eRBpOdbfasaj5 +Eb3iG6NiRcOcPcM249R82cbq9l72ouHVauAxoOZP5u/1Q437afh77EnuE2pe +x0PpXIMHaeheHtZlSzneb7W6eAgN+9iits7JJDRZDZ5KjqehI7nsqD41/8kP +7SUqk2jIPX44rJLKCw/G46rWdBoafazQkKS8oF7dx32JhjMHjjd9pfJli2C0 +xgk2DXekPIv1pfKI4+zsw9zbNFTtolndo/Kqk8vf7XY9DQNl6J0ClP+ZdYid +ekTDLRkqgtVUvhX1yg/49tMwUSbuVjOVh6IFLWccuegY5qkca0vl6agYQyqY +l47F4iMNwVT+kqlsdsoaOro3XH6cfpz6/pi8N0/F6DjCt9epNYz6PmbAFkNV +Oo65Bp9eR+X5gsq6ITUnOm7a52PLG0DC3CXJ6K1udJx4cQf/+pMws1ZBXteL +ji6Lo1pT1H4x8UPXf8dBOgqU923q9CXhff2+ObcIOgb2fD23fx+Vv1Z3+OOL +6XjCqH2Ry43qv7v32UnldBy+e/LxUxcqHzTaHTOq6Zg4XnIteTcJ94Te5eXX +0tGf+1rNGmp/IwdWKd3qoOP4bnW9z7ZUfv3jCe9n6fjzH/5RURMScgb93n/6 +Rcff4t9eVhuTkGl7NPbbEh3h+unvJkbU+myNb/u5Ug45IozuHAQSYn6zd6+V +kcN37q9KUnSp+p5dfsTAVA7ddoxpO6uRYFBRWZidLYd2knvqewRJGCAqCkwu +yOHPjHs6OgJUf2WX5c8UyOG6DO0DmWup/Ta65KJDmRxeWPl30IyPWl+Xwlz+ +BjnsPbrSNWM5CRuXZ6aeeSeH3gr0yLvz1PnG60RUqKo8hqS9qjzQz4YpQUtv +52Z5vHb2TrrNeTb0BtCf+z+Rx+uGSc0z2WxoevwLItvl8TSEZ+VmsiE1vEK2 +9LU87njZptyXwoZN7/neLnyRx41etdu3n2HDYfazPZeEFLBimNPvfDAbvtg6 +uY/uV8B1DLI634INo+e8nYN5FHG2ydWQMcUCi+9hFh+0lTCovE6vXocF4/t4 +j96M3ICYLjvrUFFFne/FOOOaN6Lx2FTmQkslCHYoJrO+K2PC79JO1e/lIBVf +baetrYr5IpxVhkOlkKuiu07IVw1PDM5xbvtaAk8lDbV+pKkj30zlcC13MehJ +NadqvNbA1IkszpClK8DPdSXEJ2YT9rnm6EaqXgaZaFkDV8XNGHRV7dry9HxY +qeBx2+HJZvTP5JyYF7wA6gyJ6rA9W1BHcK+HwopcCB4SfGDJsRU/WayIM57L +hO8/zjlZ5G7FiK7962N3p4OZxuM8CzVNPHbk0VH9pRS490P/93ynJh4erF3f +4ncWDqtu6X/B1EL5bSdsRLPigDGxv8t1pTY6uHMd6Px0CkzkxXeuuaKNl1xG +na+ORMGGqMR/m3V0kDnd0mCfcxKUmbqNCv06eCpxLMH6dhgw7/mdvhm0Db1X +u7VPtB2FxsKu/VMiumgy+WGVu9oRmCldmte4o4tDp7oD6J7+8NHZtDChVhen +x4x8ayz8oZc7yXykXhd77JxG3bX8od5b8nx2ky5WWsxatvH5Q4y4lt5iqy4u +8Dmtsmo4COvi/U8+faOLIVlNLi3SB0HVt5uDyamHzJd+LYlffGGfQsXKvJ16 +KFYQdqi2jAnhjzz9Fe30MB2843hymJDKFGwjHfRwrmowed9pJjQUHz/XtlsP +Hb99NjHxYoKwovnaRR89xB76kSoRJjxW/CDsHaqHHZUtF9fF7gflDbKEYoEe +Xi3IlntzaB9MKWdok5N6eEvomV8P0wd629FE6Icenr+0yPbb7QNNhyd2hcxS +z08/7c9t4QPJpEWQ9i89fM5tLeCu6gPKehyVdVz6WH6f/9zpH96w1+IQ7YGo +PgpHiEw2n/KGLl8zvi4DfayTnPaL2+0FNUW/383G62Owhq2W9GYP0DYOmbc8 +q4/Vu4Q2Z0h4wK1343yFSfoYblcUJMnpAaTMkI5luj6uv5ib4/HKHSpzm5Ly +L+hjk1KpY1WoOxSei9U1q9LHYyqSqf81uUFCyNq03Ff62DPU3Jno7QpuO+RQ +X8YA5YfVrRWfO8NiFy//A8IAhavNtebqnKGQOTFgKWeAHjxP43uKneHjmdow +tw0GaGxnCZ0nnCG41bb6+BYD7CkKvZS4wRkSbU7K1Jga4IswpTbNWCeoc+n+ +oxlogKY8vlGLlo6w/lBcrXqTAcqWlz77tNwBkpcOaJ1tNsCZWZvmwVl74Ew3 +ZX96aICz5m8ODX+why+3l5cVthrgOYP4jtWP7aGO43Su4CsDDHwpfn/hjD24 +ZUaFzX0wwKXKy6Iqq+0ht/641r3VDFzqWWdSJmUHIqsC2Dt3M7DyTox/wUNr +KDKOCJ90ZeDVP3dt3a9Zw5aIZOMMDwb+4pv/tDnRGmwmWd29Pgys2/V7UN3O +Gs68nl3YF8BARVHtC8xBK/h5JdIoPJqBG9uuut38Ywn9+hmvSioYaNnJ/NfC +xgL8jhVdtKhiYCfHgKGmpgXMVd1ijrMYWLJYrqcjaQGC9N75zbcZqFMtcSj2 +ozlY8UpL3W2iDrfRvPUYZQ4NXSX7X3UzUOGttj29xgws+WvUQnsZyPCOXB9X +YAa9Zq1z4gMMzMtL+MAZZwYzdV/jPYep620uqYOzGahd3nT98xcGjjgEpLTM +mkJDv2HouW8MTDsg6TAyaAqWwrtAY5KBRa6booUfm8KBuGMvQmYZ6NXwaKA2 +2xRmms7kif1koLLZ7/dqkaYQ8ytnX90vBhq+5eav8TWFdZplqnsWGRhc0W/p +YmcK+YfqZpeWGJhxOCqOX9cU/geBmQqq + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07262909443421478}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJxTTMoPSmViYGCQB2IQDQNLGAINkrnK7CG8D/YFW/1i+sInQPkMDkmGr6Kq +58+C8jkczrencxoxLYLyBRw0tNtWMyssg/JFHAL6mFwO9qyE8iUc3u708W0y +XwPlyzi85X7Rai2+DspXcJimnKJwXm89lK/koKgQ78TaDuOrOFidyz201wjG +V3PYGsTxRMgdpl/D4cmtAMNz92HmazmUHVGU9hBfDeXrOAA5s8O4YO7RcyjZ +dKVq/0WYew0clAL+Nnu0LYHyDR1s9EWlP1vB/GfkcNon868u4wIo39jhkHfB +K+aTs6F8E4edQeebAu5Nh/JNHeT5a8u1vadA+WYOttd6eIrEJ0L55g6HXZpF +bFp7oHwLB/5r/y3PTG+H8i0dus7EPPgU0QzlWzkw5q6OTK+ph/KtHd7OVGXM +yqqE8m0cpK+FiLXGlkD5tg4f5zGfFjQqgPLtHO40Ld3VMD3THgDPenlb + "]]}, + 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:eJxTTMoPSmViYGCQB2IQDQNLGAINkrnK7CG8D/YFW/1i+sInQPkMDkmGr6Kq +58+C8jkczrencxoxLYLyBRw0tNtWMyssg/JFHAL6mFwO9qyE8iUc3u708W0y +XwPlyzi85X7Rai2+DspXcJimnKJwXm89lK/koKgQ78TaDuOrOFidyz201wjG +V3PYGsTxRMgdpl/D4cmtAMNz92HmazmUHVGU9hBfDeXrOAA5s8O4YO7RcyjZ +dKVq/0WYew0clAL+Nnu0LYHyDR1s9EWlP1vB/GfkcNon868u4wIo39jhkHfB +K+aTs6F8E4edQeebAu5Nh/JNHeT5a8u1vadA+WYOttd6eIrEJ0L55g6HXZpF +bFp7oHwLB/5r/y3PTG+H8i0dus7EPPgU0QzlWzkw5q6OTK+ph/KtHd7OVGXM +yqqE8m0cpK+FiLXGlkD5tg4f5zGfFjQqgPLtHO40Ld3VMD3THgDPenlb + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.061577}}, + "Frame" -> {{False, 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.061577}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGCQB2IQDQNLGAINkrnK7CG8D/YFW/1i+sInQPkMDkmGr6Kq +58+C8jkczrencxoxLYLyBRw0tNtWMyssg/JFHAL6mFwO9qyE8iUc3u708W0y +XwPlyzi85X7Rai2+DspXcJimnKJwXm89lK/koKgQ78TaDuOrOFidyz201wjG +V3PYGsTxRMgdpl/D4cmtAMNz92HmazmUHVGU9hBfDeXrOAA5s8O4YO7RcyjZ +dKVq/0WYew0clAL+Nnu0LYHyDR1s9EWlP1vB/GfkcNon868u4wIo39jhkHfB +K+aTs6F8E4edQeebAu5Nh/JNHeT5a8u1vadA+WYOttd6eIrEJ0L55g6HXZpF +bFp7oHwLB/5r/y3PTG+H8i0dus7EPPgU0QzlWzkw5q6OTK+ph/KtHd7OVGXM +yqqE8m0cpK+FiLXGlkD5tg4f5zGfFjQqgPLtHO40Ld3VMD3THgDPenlb + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.061577}}, + "Frame" -> {{False, 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.07262909443421478}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993961140860003*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"d0114226-0b1c-4270-b6d3-1c0403dae6c5"] +}, Open ]], Cell[CellGroupData[{ @@ -4948,18 +11675,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.598815441711911`*^-143\\\", \ +RowBox[{\\\"\ +257637673519649270217965438245428568131597200085202201208143960400132\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"29\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3853705134253980954253210971658303947407360000000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 121, 45, 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993961140906098*^9}, + CellLabel-> + "During evaluation of \ +In[121]:=",ExpressionUUID->"d97cebea-6193-4732-924d-0b859618e366"], -Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"51c9eb8e-8429-9440-b4d1-8a2a914a816b"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1948482198505814`*^-145\\\", \ +RowBox[{\\\"\ +990359217009531794717859144615427415897859637127517261444105383778111\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"32\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3642536072302788149342975054520373833891840000000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 121, 46, 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993961140914967*^9}, + CellLabel-> + "During evaluation of \ +In[121]:=",ExpressionUUID->"26969a69-4981-497d-b34e-1e279677d630"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.4935115651754905`*^-148\\\", \ +RowBox[{\\\"\ +393073573231083169323518294497863141369860489975911601067165426821532\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"36\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"7225670969766164742267991391363746716712960000000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 121, 47, 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993961140922044*^9}, + CellLabel-> + "During evaluation of \ +In[121]:=",ExpressionUUID->"a59372d4-7bdf-46ef-907d-634b3c089a29"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 121, 48, 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993961140930047*^9}, + CellLabel-> + "During evaluation of \ +In[121]:=",ExpressionUUID->"f31f8c20-f5d2-4d7b-bd32-a68b15b1c742"], + +Cell[BoxData["10.566529308313628`"], "Output", + CellChangeTimes->{3.993961194439118*^9}, + CellLabel-> + "Out[121]=",ExpressionUUID->"81cce9ce-a18b-4df7-a583-ee943dd32802"] }, Open ]], Cell[CellGroupData[{ @@ -5026,27 +11813,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.22074676455547`*^-212\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 122, 49, 31385712205708718260, + "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99396119448172*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"2a02bd9d-0dfa-44fa-90c3-50681e95aafd"], 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.668652650648429`*^-217\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 122, 50, + 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939611944887257`*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"070f8af6-6134-4c3e-be0f-32b2ee76c92b"], -Cell[BoxData["0.7273353591556563`"], "Output",ExpressionUUID->"9a717f6e-3c47-7d43-93ae-4bf4814b6aa7"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.577986038795301`*^-222\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 122, 51, + 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993961194496286*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"30e44ad3-910a-4ec6-be76-04ee0218773b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 122, 52, 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993961194503706*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"8b2ad7ce-f1e2-4c9a-80cb-db9dd6511e20"], + +Cell[BoxData["0.12079893748579015`"], "Output", + CellChangeTimes->{3.993961201625922*^9}, + CellLabel-> + "Out[122]=",ExpressionUUID->"414daf2a-34b8-4027-91ec-47f05eddcf66"] }, Open ]], Cell[CellGroupData[{ @@ -5067,8 +11899,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 +11944,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.22074676455547`*^-212\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 123, 53, 31385712205708718260, + "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993961201670726*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"f2da3a18-649f-43e3-ac45-3a0f9208378e"], 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.668652650648429`*^-217\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 123, 54, + 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993961201678791*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"9f78e4f9-62c3-4302-b11f-ffb530497159"], -Cell[BoxData["3.1005213487548544`"], "Output",ExpressionUUID->"3e9bc444-276c-294e-8c8d-12ef37255e0d"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.577986038795301`*^-222\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 123, 55, + 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993961201685568*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"2c6f4dc4-4472-46f7-be9d-29e6093595e7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 123, 56, 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993961201693596*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"22b0af56-5dff-453c-9a55-f3a9116dbde0"], + +Cell[BoxData["29.932823387381234`"], "Output", + CellChangeTimes->{3.993961208472617*^9}, + CellLabel-> + "Out[123]=",ExpressionUUID->"0dab4824-a5cf-4a67-a630-2599f5038d99"] }, Open ]], Cell[CellGroupData[{ @@ -5154,8 +12030,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 +12075,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.22074676455547`*^-212\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 124, 57, 31385712205708718260, + "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939612085084887`*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"68880052-8e5c-44f7-bd5a-c85e8c5f3a0b"], 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.668652650648429`*^-217\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 124, 58, + 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939612085155907`*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"aaf00341-40f0-408b-b66d-b69abf959c71"], -Cell[BoxData["18.198720438459198`"], "Output",ExpressionUUID->"d8ce023f-3349-8348-844a-2526397581d1"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.577986038795301`*^-222\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 124, 59, + 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993961208521907*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"dceec0f3-a4a3-4c47-ab28-001c09149fa9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 124, 60, 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993961208527858*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"a6e2ffa8-f9c6-47f5-a093-c0f36009eeaf"], + +Cell[BoxData["3.0882294117922258`"], "Output", + CellChangeTimes->{3.993961212645084*^9}, + CellLabel-> + "Out[124]=",ExpressionUUID->"cf1d32ed-9c75-423a-9aa0-ed5001483c73"] }, Open ]], Cell[CellGroupData[{ @@ -5229,19 +12149,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.012564190000848425`"], "Output", + CellChangeTimes->{3.993961212678178*^9}, + CellLabel-> + "Out[125]=",ExpressionUUID->"8b3298f0-6e33-440c-9553-c5b75c54bc01"] }, 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 +12186,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["13.370844510582266`"], "Output", + CellChangeTimes->{3.993961212695512*^9}, + CellLabel-> + "Out[127]=",ExpressionUUID->"79f0ff96-49db-40ca-b34e-0d64c141f31b"] }, Open ]], Cell[CellGroupData[{ @@ -5273,10 +12201,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.5723547437993994`"], "Output", + CellChangeTimes->{3.993961212705977*^9}, + CellLabel-> + "Out[128]=",ExpressionUUID->"78025928-97e2-4d01-85b4-abdead64237e"] }, Open ]], Cell[CellGroupData[{ @@ -5284,10 +12216,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["21.023710794818186`"], "Output", + CellChangeTimes->{3.993961212714624*^9}, + CellLabel-> + "Out[129]=",ExpressionUUID->"7e55f69e-bec8-4dbd-9ac9-71b01e99d9b5"] }, Open ]], Cell[CellGroupData[{ @@ -5475,10 +12411,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.006816774200413775`"], "Output", + CellChangeTimes->{3.993961212728531*^9}, + CellLabel-> + "Out[130]=",ExpressionUUID->"fc8f65d0-edeb-4df1-bdc4-8fde9779d539"] }, Open ]], Cell[CellGroupData[{ @@ -5490,18 +12430,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.733849120651792`"], "Output", + CellChangeTimes->{3.9939612128429413`*^9}, + CellLabel-> + "Out[131]=",ExpressionUUID->"a110cc3c-3b38-4031-89e1-5cf128b46d3a"] }, Open ]], Cell[CellGroupData[{ @@ -5691,10 +12627,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.04628190121766947`"], "Output", + CellChangeTimes->{3.9939612128576813`*^9}, + CellLabel-> + "Out[132]=",ExpressionUUID->"8160b266-04bc-429b-aa84-a85e6a8eb4b6"] }, Open ]], Cell[CellGroupData[{ @@ -5706,18 +12646,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.1194510357509815`"], "Output", + CellChangeTimes->{3.993961212973753*^9}, + CellLabel-> + "Out[133]=",ExpressionUUID->"6f929e1b-9b2f-4231-9b82-dc057f1e5c40"] }, Open ]], Cell[CellGroupData[{ @@ -5808,10 +12744,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.06376749590987153`"], "Output", + CellChangeTimes->{3.993961212983452*^9}, + CellLabel-> + "Out[134]=",ExpressionUUID->"4e87ff19-3e2a-4d1d-b02c-5a3651524a89"] }, Open ]], Cell[CellGroupData[{ @@ -5899,10 +12839,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.9362325040901285`"], "Output", + CellChangeTimes->{3.993961212994534*^9}, + CellLabel-> + "Out[135]=",ExpressionUUID->"dda466dc-042e-4aa2-aca7-602b76eaabae"] }, Open ]], Cell[CellGroupData[{ @@ -6023,10 +12967,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.05970120237525605`"], "Output", + CellChangeTimes->{3.9939612130044823`*^9}, + CellLabel-> + "Out[136]=",ExpressionUUID->"7c094bc3-6798-423d-80f7-58d88819ba90"] }, Open ]], Cell[CellGroupData[{ @@ -6088,27 +13036,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.039171903475667`*^-205\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 137, 61, + 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939612130174923`*^9}, + CellLabel-> + "During evaluation of \ +In[137]:=",ExpressionUUID->"9adfaf86-e6c0-4d46-ab11-631bf97a0844"], 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.77677982622047`*^-210\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 137, 62, + 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993961213025025*^9}, + CellLabel-> + "During evaluation of \ +In[137]:=",ExpressionUUID->"82e75240-ca76-453c-af84-096f5c8fe0a5"], -Cell[BoxData["3.486503585502321`"], "Output",ExpressionUUID->"dfa1aa9c-9811-0d49-a9f3-e5e1bcdf702f"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.037944482818637`*^-215\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 137, 63, + 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993961213032219*^9}, + CellLabel-> + "During evaluation of \ +In[137]:=",ExpressionUUID->"272e0464-d5c4-4d70-818e-4134fffa4e27"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 137, 64, 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993961213040371*^9}, + CellLabel-> + "During evaluation of \ +In[137]:=",ExpressionUUID->"a84292ec-e935-4212-a628-f2c3ef6b984f"], + +Cell[BoxData["10.733849120651799`"], "Output", + CellChangeTimes->{3.993961216961069*^9}, + CellLabel-> + "Out[137]=",ExpressionUUID->"bc6ebd3e-6215-4d9f-ba67-ce1b69bb23c3"] }, Open ]], Cell[CellGroupData[{ @@ -6170,27 +13163,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.039171903475667`*^-205\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 138, 65, + 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993961217006298*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"d1e6e0b0-3b02-4e65-be6e-46c716532cd0"], 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.77677982622047`*^-210\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 138, 66, + 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993961217012733*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"8a024bf7-73fe-4579-b13e-8b34fbac17f2"], -Cell[BoxData["8.210479950982325`"], "Output",ExpressionUUID->"b342636b-f081-cc49-b1ae-5647aa39d6ab"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.037944482818637`*^-215\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 138, 67, + 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99396121701937*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"64d275c1-98aa-416a-a522-8d6cb9f8bdbc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 138, 68, 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993961217025661*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"b2ddfad5-01c3-4d99-b197-4757d8da52c9"], + +Cell[BoxData["4.119451035750985`"], "Output", + CellChangeTimes->{3.993961221005786*^9}, + CellLabel-> + "Out[138]=",ExpressionUUID->"72a5d850-7b22-4d1b-b1b6-f364c523b2a7"] }, Open ]], Cell[CellGroupData[{ @@ -6248,489 +13286,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:eJwV1Xk8VdsXAHBkyjxkjmTqEZGZ1F4ZGkwpZB667j3GJFNIJOGpCJF6Kb2i +pIsUJaRJ5adbVJoUme4hc7iHystv++N8zuf7OWevtfY6Z++9lnZgD4OHi4tr +BF/L94OvN6y71/l6S5rQSvlvJiTaMllmQrNlIk969s5l95WaFmrYNqMb0gK9 +y3ahv+IXMXqGJpSOve/Drk1Ifcpny0JK6b/0B7Czn8s/Sq18gzbvjpoYxL7f +efDSouF7NJ83KEpij3a3Jyc2fUIiu9zyR7AV2eo+lM1X1PrPk0Nj2A5TyRYx +rG/obMaGx5PYLYujwgmV/eiQ+rn9M9gf0uQO340cRJknlpIp7El+29E5Qzby +f0ef+oXNfyrKy2ieRF/l21qXsFUkL7YdbBpB2xK0/+M1JZGzEnVt0mYc7eUb +PiuBTVxWk9UTnESaiTYLstipmrsywllTSOHMpWZl7E9yXRtjK3+g7IDdkbrY +dO+w0DOnZlBv2A0fY+zpEq5/b0fOIp7XXEwrbEE1PYkfhhykGVwd54xdSH+6 +XUKGQs8E+aY8sFWve6Xqz1PI6rPPy33Y5rqZk/ubFlDpvFBVPHaI6TfWqM0i +0reOX1WOPZcQxyuk9R86R3tfXot9tEnYSlvwD1LpNP2nBfscmN8MZi3h/NzM +z8v1lbfZRldyQ82hxzGrzEhU+fxMX5oSD8RKWylrYE8P+yfnn+KBhZombWPs +ZB3OnVuRK0Dg4Mtwd+zCmrXqU4Z80AvmhSXY3Z3jLX+uYv9hu9dgq87c8xaT +4Ydw/pKkJ9hMY+cCvXl+CHiiNvEdu/V+EndEkyBQGhXxm81JxHn67tuIjQhY +TqxYPY8t5SgicbhFBHgntXSlLEhk0GULohaisDq84ZYedthQ/eWNG8Tg7+/a +cgR2FA/LYLOIBKTI+Hl9xWarVf/IoCRhrvThnV5L3B+ifWWHkRSkvNEV5t5E +Ip6b5Fr5g1LwRV/2ozq2qtGaPZVjUvDBeR8rDNvbJu/26z5pMGDN6f7B7giK +jpF7KQMKYwvPLTeTqPd67slAQVm4tOMqQcceH6u8esNOFnTqupNysYViB99t +eiQLM74criFs2+NuxoH1cnB80+/0wi0kaiwz5VSUKkDOUz9CGEhUxv4Vbxmr +DAGxbeUuNiTa4Z7VG1OlDJ8eH12dgT3eKr2tilSGSzaLC/exjct0ZVS9VODh +3NZBDVvcT5r/Hb4tayBtpe6RJeyZqb5DI+mqEHn5yosX20gkvd+27o6TGiif +f/uozJ5EZJlQiEuYGjS7FsywsRu+dipNZKpBvb31iXUOJPJ19EvXeqQGi+sT +x25il62P33PeUB2mf0TG3XfE+UevT6fIaQD0DFYMO5PILVhYz75fE46ie+fz +XEmE4t0NPf7ThCoJO94ebJ2MUjO6ghY0nuZ+o+1GIq6rRtYpu7VA9rRofit2 +Va+Px+3HWsDXceXmH3e8Pvcy0xSvrAMfGVfHDE9cn63Th1GaNtDsW3Z89SPR +VdfiL/Mp2jDmeWPR2J9EubT+Pt4L2hD86o9ULjb9aNyYyjttaPk+TWwNIJFk +80UuVxsdGI3QYTID8f9jNKnTpL4eNhk/qCoKIpGS2unUk0O64PdGtaQ2lETN +J+a0f/LowVDPR5M1Ybgfs15dxFo9CLKpssnBvtSqoW3trwfpF1qawsJJpBbc ++Hbhox4IM1nK6/fj+TLZmsTLDTBS/BfzcRSJlJVUCFUvAxDvXeLflkAi3fJY +kd/IEJQFhwnm3ySi0dM5es6GcGMX2a2XjderekFvoK8hREk01dVgr7hSc+t5 +giHYJ06frzuB19ulUbeCWkPIq/ui8/QU3k/PBV7UVjcCfT8Inc3D3/ek4wZP +fmOo9hDcf/k8if6N1nCpZ5nAzIV7VnpMEnXGI7Pj5RaQaSzKzf5MorX+7539 +IjZDzYVzW3XFhhFj6W61ciKAsJCTzQW7YSQ31iAgR7MGGYFN4xLZwyjWyOpr +gY4tGPevDOLtGEa0icU26VE7EBfa5mOoOIKqrGMESju2Q6DC2EOrmBFUNhf2 +mFm4E6w/PEtmvBpBC1vlX7WmOoCphcHSsOl31MO14kf/PicoinkdE3rtO4pc +fSAvTX0XUIemc47JjKLq0LZHRRkukOr2oP1Z0ShKmlWYXx+6G8x2+f94umoM +cey37X0RsAdmLzq0omtjyMInfyt7tyvs+1OQwLEaR28VLoa1GrnB/8TWj8Z1 +jiPFa+nNFX+5w3Nx8YC7hyZQQ5+Oo7PoXvDgip5MU5xEKl3TwfETeyHkiL/f +ykeTyKgon3m1zwPqmWdDPyVOoYu8sxsKnnoClZ0/6iI7je5u1e/OuO8F3J70 +rK7EaXTO7ITkYqU3NJUtuLzpmUYdX8ozjU75gIdI/cADqx+o3qlEI+qoL5Qt +CGTylf9AP/a7ckXS/YA9qvVFVWAGcbZph0za+IP0LTv+tOAZVDHxeSHGNABM +Y5IKmR0zyPPf8iA/kUB4FSJ19KP+LLpz2yFgRVYgfOE6r2F0dhZZKL39mf0z +EEKoFvMts7NIvS+4+03oPggfe+bt6TCHhoTDd5UMYgf2t+Rfm0Oduc5B291p +8OqAi0gXNYcKE0qF4zppcLejb2vhdg5qbln6GbQzCCIyyvYyT3OQuC9kGTUG +waceAdajlxykuupFx+rmIDjPOqNYz+IgA5aTPH9LEGjp2nZXvOKgPVY+Nz49 +DoJvBg7M3A4OKlwd//LI/4JgDTujyPUdByn23BRv+xQE8QeLdj/p5iANf7lz +vvNBcPjl2tWG3znIInCyIsOYDkECwjddeCl07fx0jLMpHYwlL4pK8VFo1buZ +LXLmdAirSfr+FnvSbr6rYhMdEiVPirgKUHj/4uJmWdOBj6256ChEIbF5SS+p +3XRw8K+nrZOg0FCOycrS/XR4QJr6xSlRKLcpObThGh2OjN3rjDSg0H7DYouE +CjrMyS8GCG2kkOON2pXmlXQoUZhmlGMLFZM37lXR4UDRofefDSmUEe0yereO +DlTET2RlQqFkbY3w+id0cG9t1Bm2oFBY8cuI2710mGEnXeiyptBOMdIquo8O +Nx21Wf42FPorg0vUcIAOP52MokawyWiTqlo2HQYbOJK/bCm0z7l04tY4HdhF +Sfdlt1PIky8msuYXHeoj+NNNHCi0PUYxiinLgEp9Ay9BVwo9Kc20L5BnQLp8 +3a8T2FasGY0ERQYEn9WbFXGjkIHmy882KgyoaMsbEXOnkMLHwzZfNBlwiRQe +EPKg0Jhlj6yQCQOKbpPzA94UOs1z+UGwKwMsI+cpKRqev77IOSd3BtittbE5 +in3cJyHayIMBhh42g+PYCXUu65a8GVCayaPSGoTrJ7jzz9IYIHV8/HAYg0JG +7TT6s4MMUNsU/uxsCIU+5msKq+cxQP5+KhURSaFqJBoyks8AMwXZhhbs4xNz +rVVnGODwzaVf/ACFDHe2ppgXM+BNYVzYLexcrqAZp0sMML3e4T4aRaFtBy5/ +TmAy4GlYa/rWGAopK/9tuqWaAQq04oZs7Ln2A2dW3GLAyWJ1tzfYV7SQU+4d +Bkz2Gzz0j6XQfz09j642MiDbqTwoOo5CdY5KFa/bGOB9KKs7+RCFTv7i4Sts +Z4Ds7ebYJmxaxeg+LxYDwsmvsT+xJXgblYY6GJB7rfpaTAKFIpo8T//8wIDm +jy4dgYkUUtc5G6/Bxv3vbdRROUyhXx+PvPtOMsB5YoeKK3ZnBsOgZgS/PyFx +KAs7pd941GKcAf1/a3lOYnefe+e3a5YBvivcP9YlU6hAQNIuiZsAHYWsxxop +FGqe6fGJXUHA7Ug1Hnfs4Z7K6Eg+AkzrtNKOY1vV2V6mrSRALMfKsh+bDEz4 +bS9JwIhgaHF+Kq7f0U7KTpoAhp5sexP2JjMpbSRDQObMe0s2dp4oc6+RAgEX +KhgfTI7i543fapXWEuDNuT/3CpsoZ7bJqOP4wlOyM9h5eYnfxDUJYIqNx8uk +4XyEtCivNgHiv5WmvbDzpLeHjBvg8b5Rzz9jN/6RTiUNCdA6zfVhHpv9va+o +z5iAqasK6jLHKGT5KOlplzkBc/T2OCfsoYhqlQdAQJRixGIdtpjnYZN71gTc +GMuaZ2Fb2OxwrLUlwMP6p/4Qdq7CQGL5DgLCHZ57SqRTqIG3Jq/UHvfLU26n +Jvbg1OHr5x1xP/+tiLfANn8u8z7HhQCTiwnZAdi02oGxrD0EvFerjjyInVNS +w3PMjYCWLMn8Y9gD0TsN4j0JeFa8O+cKtqi/7PYobwLCTmkF1y7H2znoF+ZL +4MNbIeXh8vg1R076BxKgd8s56PNyPUL2VzxpON+L7I3s5Xgc2ft76AQYvPtg +Nb0cr3+ww5EgwEzHKOPXcjzWLXJbCAERu0uEeI/j+u4d+Q/CCBheFH8lgp1z +xX7VpggCusRPsVZhN+TIrTeJJGBvidjK1dgDCUNb9aMIuDRYdEwNW4Re66kd +TcAnd1WLv7DNdqUcUI8lAAqYunrL8S0dMpXjCVAMtvDbiH1KU/6iXAIBlW+e +tRtj35Vg35FMImDnH5c4M+z+37XtwskEuOzo9rVYjj+c0s+XQoC65b40S2zT +tw4LS6kEmOewB5b9fzmP4nM= + "]]}, + 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:eJwV1Xk8VdsXAHBkyjxkjmTqEZGZ1F4ZGkwpZB667j3GJFNIJOGpCJF6Kb2i +pIsUJaRJ5adbVJoUme4hc7iHystv++N8zuf7OWevtfY6Z++9lnZgD4OHi4tr +BF/L94OvN6y71/l6S5rQSvlvJiTaMllmQrNlIk969s5l95WaFmrYNqMb0gK9 +y3ahv+IXMXqGJpSOve/Drk1Ifcpny0JK6b/0B7Czn8s/Sq18gzbvjpoYxL7f +efDSouF7NJ83KEpij3a3Jyc2fUIiu9zyR7AV2eo+lM1X1PrPk0Nj2A5TyRYx +rG/obMaGx5PYLYujwgmV/eiQ+rn9M9gf0uQO340cRJknlpIp7El+29E5Qzby +f0ef+oXNfyrKy2ieRF/l21qXsFUkL7YdbBpB2xK0/+M1JZGzEnVt0mYc7eUb +PiuBTVxWk9UTnESaiTYLstipmrsywllTSOHMpWZl7E9yXRtjK3+g7IDdkbrY +dO+w0DOnZlBv2A0fY+zpEq5/b0fOIp7XXEwrbEE1PYkfhhykGVwd54xdSH+6 +XUKGQs8E+aY8sFWve6Xqz1PI6rPPy33Y5rqZk/ubFlDpvFBVPHaI6TfWqM0i +0reOX1WOPZcQxyuk9R86R3tfXot9tEnYSlvwD1LpNP2nBfscmN8MZi3h/NzM +z8v1lbfZRldyQ82hxzGrzEhU+fxMX5oSD8RKWylrYE8P+yfnn+KBhZombWPs +ZB3OnVuRK0Dg4Mtwd+zCmrXqU4Z80AvmhSXY3Z3jLX+uYv9hu9dgq87c8xaT +4Ydw/pKkJ9hMY+cCvXl+CHiiNvEdu/V+EndEkyBQGhXxm81JxHn67tuIjQhY +TqxYPY8t5SgicbhFBHgntXSlLEhk0GULohaisDq84ZYedthQ/eWNG8Tg7+/a +cgR2FA/LYLOIBKTI+Hl9xWarVf/IoCRhrvThnV5L3B+ifWWHkRSkvNEV5t5E +Ip6b5Fr5g1LwRV/2ozq2qtGaPZVjUvDBeR8rDNvbJu/26z5pMGDN6f7B7giK +jpF7KQMKYwvPLTeTqPd67slAQVm4tOMqQcceH6u8esNOFnTqupNysYViB99t +eiQLM74criFs2+NuxoH1cnB80+/0wi0kaiwz5VSUKkDOUz9CGEhUxv4Vbxmr +DAGxbeUuNiTa4Z7VG1OlDJ8eH12dgT3eKr2tilSGSzaLC/exjct0ZVS9VODh +3NZBDVvcT5r/Hb4tayBtpe6RJeyZqb5DI+mqEHn5yosX20gkvd+27o6TGiif +f/uozJ5EZJlQiEuYGjS7FsywsRu+dipNZKpBvb31iXUOJPJ19EvXeqQGi+sT +x25il62P33PeUB2mf0TG3XfE+UevT6fIaQD0DFYMO5PILVhYz75fE46ie+fz +XEmE4t0NPf7ThCoJO94ebJ2MUjO6ghY0nuZ+o+1GIq6rRtYpu7VA9rRofit2 +Va+Px+3HWsDXceXmH3e8Pvcy0xSvrAMfGVfHDE9cn63Th1GaNtDsW3Z89SPR +VdfiL/Mp2jDmeWPR2J9EubT+Pt4L2hD86o9ULjb9aNyYyjttaPk+TWwNIJFk +80UuVxsdGI3QYTID8f9jNKnTpL4eNhk/qCoKIpGS2unUk0O64PdGtaQ2lETN +J+a0f/LowVDPR5M1Ybgfs15dxFo9CLKpssnBvtSqoW3trwfpF1qawsJJpBbc ++Hbhox4IM1nK6/fj+TLZmsTLDTBS/BfzcRSJlJVUCFUvAxDvXeLflkAi3fJY +kd/IEJQFhwnm3ySi0dM5es6GcGMX2a2XjderekFvoK8hREk01dVgr7hSc+t5 +giHYJ06frzuB19ulUbeCWkPIq/ui8/QU3k/PBV7UVjcCfT8Inc3D3/ek4wZP +fmOo9hDcf/k8if6N1nCpZ5nAzIV7VnpMEnXGI7Pj5RaQaSzKzf5MorX+7539 +IjZDzYVzW3XFhhFj6W61ciKAsJCTzQW7YSQ31iAgR7MGGYFN4xLZwyjWyOpr +gY4tGPevDOLtGEa0icU26VE7EBfa5mOoOIKqrGMESju2Q6DC2EOrmBFUNhf2 +mFm4E6w/PEtmvBpBC1vlX7WmOoCphcHSsOl31MO14kf/PicoinkdE3rtO4pc +fSAvTX0XUIemc47JjKLq0LZHRRkukOr2oP1Z0ShKmlWYXx+6G8x2+f94umoM +cey37X0RsAdmLzq0omtjyMInfyt7tyvs+1OQwLEaR28VLoa1GrnB/8TWj8Z1 +jiPFa+nNFX+5w3Nx8YC7hyZQQ5+Oo7PoXvDgip5MU5xEKl3TwfETeyHkiL/f +ykeTyKgon3m1zwPqmWdDPyVOoYu8sxsKnnoClZ0/6iI7je5u1e/OuO8F3J70 +rK7EaXTO7ITkYqU3NJUtuLzpmUYdX8ozjU75gIdI/cADqx+o3qlEI+qoL5Qt +CGTylf9AP/a7ckXS/YA9qvVFVWAGcbZph0za+IP0LTv+tOAZVDHxeSHGNABM +Y5IKmR0zyPPf8iA/kUB4FSJ19KP+LLpz2yFgRVYgfOE6r2F0dhZZKL39mf0z +EEKoFvMts7NIvS+4+03oPggfe+bt6TCHhoTDd5UMYgf2t+Rfm0Oduc5B291p +8OqAi0gXNYcKE0qF4zppcLejb2vhdg5qbln6GbQzCCIyyvYyT3OQuC9kGTUG +waceAdajlxykuupFx+rmIDjPOqNYz+IgA5aTPH9LEGjp2nZXvOKgPVY+Nz49 +DoJvBg7M3A4OKlwd//LI/4JgDTujyPUdByn23BRv+xQE8QeLdj/p5iANf7lz +vvNBcPjl2tWG3znIInCyIsOYDkECwjddeCl07fx0jLMpHYwlL4pK8VFo1buZ +LXLmdAirSfr+FnvSbr6rYhMdEiVPirgKUHj/4uJmWdOBj6256ChEIbF5SS+p +3XRw8K+nrZOg0FCOycrS/XR4QJr6xSlRKLcpObThGh2OjN3rjDSg0H7DYouE +CjrMyS8GCG2kkOON2pXmlXQoUZhmlGMLFZM37lXR4UDRofefDSmUEe0yereO +DlTET2RlQqFkbY3w+id0cG9t1Bm2oFBY8cuI2710mGEnXeiyptBOMdIquo8O +Nx21Wf42FPorg0vUcIAOP52MokawyWiTqlo2HQYbOJK/bCm0z7l04tY4HdhF +Sfdlt1PIky8msuYXHeoj+NNNHCi0PUYxiinLgEp9Ay9BVwo9Kc20L5BnQLp8 +3a8T2FasGY0ERQYEn9WbFXGjkIHmy882KgyoaMsbEXOnkMLHwzZfNBlwiRQe +EPKg0Jhlj6yQCQOKbpPzA94UOs1z+UGwKwMsI+cpKRqev77IOSd3BtittbE5 +in3cJyHayIMBhh42g+PYCXUu65a8GVCayaPSGoTrJ7jzz9IYIHV8/HAYg0JG +7TT6s4MMUNsU/uxsCIU+5msKq+cxQP5+KhURSaFqJBoyks8AMwXZhhbs4xNz +rVVnGODwzaVf/ACFDHe2ppgXM+BNYVzYLexcrqAZp0sMML3e4T4aRaFtBy5/ +TmAy4GlYa/rWGAopK/9tuqWaAQq04oZs7Ln2A2dW3GLAyWJ1tzfYV7SQU+4d +Bkz2Gzz0j6XQfz09j642MiDbqTwoOo5CdY5KFa/bGOB9KKs7+RCFTv7i4Sts +Z4Ds7ebYJmxaxeg+LxYDwsmvsT+xJXgblYY6GJB7rfpaTAKFIpo8T//8wIDm +jy4dgYkUUtc5G6/Bxv3vbdRROUyhXx+PvPtOMsB5YoeKK3ZnBsOgZgS/PyFx +KAs7pd941GKcAf1/a3lOYnefe+e3a5YBvivcP9YlU6hAQNIuiZsAHYWsxxop +FGqe6fGJXUHA7Ug1Hnfs4Z7K6Eg+AkzrtNKOY1vV2V6mrSRALMfKsh+bDEz4 +bS9JwIhgaHF+Kq7f0U7KTpoAhp5sexP2JjMpbSRDQObMe0s2dp4oc6+RAgEX +KhgfTI7i543fapXWEuDNuT/3CpsoZ7bJqOP4wlOyM9h5eYnfxDUJYIqNx8uk +4XyEtCivNgHiv5WmvbDzpLeHjBvg8b5Rzz9jN/6RTiUNCdA6zfVhHpv9va+o +z5iAqasK6jLHKGT5KOlplzkBc/T2OCfsoYhqlQdAQJRixGIdtpjnYZN71gTc +GMuaZ2Fb2OxwrLUlwMP6p/4Qdq7CQGL5DgLCHZ57SqRTqIG3Jq/UHvfLU26n +Jvbg1OHr5x1xP/+tiLfANn8u8z7HhQCTiwnZAdi02oGxrD0EvFerjjyInVNS +w3PMjYCWLMn8Y9gD0TsN4j0JeFa8O+cKtqi/7PYobwLCTmkF1y7H2znoF+ZL +4MNbIeXh8vg1R076BxKgd8s56PNyPUL2VzxpON+L7I3s5Xgc2ft76AQYvPtg +Nb0cr3+ww5EgwEzHKOPXcjzWLXJbCAERu0uEeI/j+u4d+Q/CCBheFH8lgp1z +xX7VpggCusRPsVZhN+TIrTeJJGBvidjK1dgDCUNb9aMIuDRYdEwNW4Re66kd +TcAnd1WLv7DNdqUcUI8lAAqYunrL8S0dMpXjCVAMtvDbiH1KU/6iXAIBlW+e +tRtj35Vg35FMImDnH5c4M+z+37XtwskEuOzo9rVYjj+c0s+XQoC65b40S2zT +tw4LS6kEmOewB5b9fzmP4nM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.694076106018045, 1.407282720866375}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6940761060180466}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.694076106018045, 1.407282720866375}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6940761060180466}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJwV1Xk8VdsXAHBkyjxkjmTqEZGZ1F4ZGkwpZB667j3GJFNIJOGpCJF6Kb2i +pIsUJaRJ5adbVJoUme4hc7iHystv++N8zuf7OWevtfY6Z++9lnZgD4OHi4tr +BF/L94OvN6y71/l6S5rQSvlvJiTaMllmQrNlIk969s5l95WaFmrYNqMb0gK9 +y3ahv+IXMXqGJpSOve/Drk1Ifcpny0JK6b/0B7Czn8s/Sq18gzbvjpoYxL7f +efDSouF7NJ83KEpij3a3Jyc2fUIiu9zyR7AV2eo+lM1X1PrPk0Nj2A5TyRYx +rG/obMaGx5PYLYujwgmV/eiQ+rn9M9gf0uQO340cRJknlpIp7El+29E5Qzby +f0ef+oXNfyrKy2ieRF/l21qXsFUkL7YdbBpB2xK0/+M1JZGzEnVt0mYc7eUb +PiuBTVxWk9UTnESaiTYLstipmrsywllTSOHMpWZl7E9yXRtjK3+g7IDdkbrY +dO+w0DOnZlBv2A0fY+zpEq5/b0fOIp7XXEwrbEE1PYkfhhykGVwd54xdSH+6 +XUKGQs8E+aY8sFWve6Xqz1PI6rPPy33Y5rqZk/ubFlDpvFBVPHaI6TfWqM0i +0reOX1WOPZcQxyuk9R86R3tfXot9tEnYSlvwD1LpNP2nBfscmN8MZi3h/NzM +z8v1lbfZRldyQ82hxzGrzEhU+fxMX5oSD8RKWylrYE8P+yfnn+KBhZombWPs +ZB3OnVuRK0Dg4Mtwd+zCmrXqU4Z80AvmhSXY3Z3jLX+uYv9hu9dgq87c8xaT +4Ydw/pKkJ9hMY+cCvXl+CHiiNvEdu/V+EndEkyBQGhXxm81JxHn67tuIjQhY +TqxYPY8t5SgicbhFBHgntXSlLEhk0GULohaisDq84ZYedthQ/eWNG8Tg7+/a +cgR2FA/LYLOIBKTI+Hl9xWarVf/IoCRhrvThnV5L3B+ifWWHkRSkvNEV5t5E +Ip6b5Fr5g1LwRV/2ozq2qtGaPZVjUvDBeR8rDNvbJu/26z5pMGDN6f7B7giK +jpF7KQMKYwvPLTeTqPd67slAQVm4tOMqQcceH6u8esNOFnTqupNysYViB99t +eiQLM74criFs2+NuxoH1cnB80+/0wi0kaiwz5VSUKkDOUz9CGEhUxv4Vbxmr +DAGxbeUuNiTa4Z7VG1OlDJ8eH12dgT3eKr2tilSGSzaLC/exjct0ZVS9VODh +3NZBDVvcT5r/Hb4tayBtpe6RJeyZqb5DI+mqEHn5yosX20gkvd+27o6TGiif +f/uozJ5EZJlQiEuYGjS7FsywsRu+dipNZKpBvb31iXUOJPJ19EvXeqQGi+sT +x25il62P33PeUB2mf0TG3XfE+UevT6fIaQD0DFYMO5PILVhYz75fE46ie+fz +XEmE4t0NPf7ThCoJO94ebJ2MUjO6ghY0nuZ+o+1GIq6rRtYpu7VA9rRofit2 +Va+Px+3HWsDXceXmH3e8Pvcy0xSvrAMfGVfHDE9cn63Th1GaNtDsW3Z89SPR +VdfiL/Mp2jDmeWPR2J9EubT+Pt4L2hD86o9ULjb9aNyYyjttaPk+TWwNIJFk +80UuVxsdGI3QYTID8f9jNKnTpL4eNhk/qCoKIpGS2unUk0O64PdGtaQ2lETN +J+a0f/LowVDPR5M1Ybgfs15dxFo9CLKpssnBvtSqoW3trwfpF1qawsJJpBbc ++Hbhox4IM1nK6/fj+TLZmsTLDTBS/BfzcRSJlJVUCFUvAxDvXeLflkAi3fJY +kd/IEJQFhwnm3ySi0dM5es6GcGMX2a2XjderekFvoK8hREk01dVgr7hSc+t5 +giHYJ06frzuB19ulUbeCWkPIq/ui8/QU3k/PBV7UVjcCfT8Inc3D3/ek4wZP +fmOo9hDcf/k8if6N1nCpZ5nAzIV7VnpMEnXGI7Pj5RaQaSzKzf5MorX+7539 +IjZDzYVzW3XFhhFj6W61ciKAsJCTzQW7YSQ31iAgR7MGGYFN4xLZwyjWyOpr +gY4tGPevDOLtGEa0icU26VE7EBfa5mOoOIKqrGMESju2Q6DC2EOrmBFUNhf2 +mFm4E6w/PEtmvBpBC1vlX7WmOoCphcHSsOl31MO14kf/PicoinkdE3rtO4pc +fSAvTX0XUIemc47JjKLq0LZHRRkukOr2oP1Z0ShKmlWYXx+6G8x2+f94umoM +cey37X0RsAdmLzq0omtjyMInfyt7tyvs+1OQwLEaR28VLoa1GrnB/8TWj8Z1 +jiPFa+nNFX+5w3Nx8YC7hyZQQ5+Oo7PoXvDgip5MU5xEKl3TwfETeyHkiL/f +ykeTyKgon3m1zwPqmWdDPyVOoYu8sxsKnnoClZ0/6iI7je5u1e/OuO8F3J70 +rK7EaXTO7ITkYqU3NJUtuLzpmUYdX8ozjU75gIdI/cADqx+o3qlEI+qoL5Qt +CGTylf9AP/a7ckXS/YA9qvVFVWAGcbZph0za+IP0LTv+tOAZVDHxeSHGNABM +Y5IKmR0zyPPf8iA/kUB4FSJ19KP+LLpz2yFgRVYgfOE6r2F0dhZZKL39mf0z +EEKoFvMts7NIvS+4+03oPggfe+bt6TCHhoTDd5UMYgf2t+Rfm0Oduc5B291p +8OqAi0gXNYcKE0qF4zppcLejb2vhdg5qbln6GbQzCCIyyvYyT3OQuC9kGTUG +waceAdajlxykuupFx+rmIDjPOqNYz+IgA5aTPH9LEGjp2nZXvOKgPVY+Nz49 +DoJvBg7M3A4OKlwd//LI/4JgDTujyPUdByn23BRv+xQE8QeLdj/p5iANf7lz +vvNBcPjl2tWG3znIInCyIsOYDkECwjddeCl07fx0jLMpHYwlL4pK8VFo1buZ +LXLmdAirSfr+FnvSbr6rYhMdEiVPirgKUHj/4uJmWdOBj6256ChEIbF5SS+p +3XRw8K+nrZOg0FCOycrS/XR4QJr6xSlRKLcpObThGh2OjN3rjDSg0H7DYouE +CjrMyS8GCG2kkOON2pXmlXQoUZhmlGMLFZM37lXR4UDRofefDSmUEe0yereO +DlTET2RlQqFkbY3w+id0cG9t1Bm2oFBY8cuI2710mGEnXeiyptBOMdIquo8O +Nx21Wf42FPorg0vUcIAOP52MokawyWiTqlo2HQYbOJK/bCm0z7l04tY4HdhF +Sfdlt1PIky8msuYXHeoj+NNNHCi0PUYxiinLgEp9Ay9BVwo9Kc20L5BnQLp8 +3a8T2FasGY0ERQYEn9WbFXGjkIHmy882KgyoaMsbEXOnkMLHwzZfNBlwiRQe +EPKg0Jhlj6yQCQOKbpPzA94UOs1z+UGwKwMsI+cpKRqev77IOSd3BtittbE5 +in3cJyHayIMBhh42g+PYCXUu65a8GVCayaPSGoTrJ7jzz9IYIHV8/HAYg0JG +7TT6s4MMUNsU/uxsCIU+5msKq+cxQP5+KhURSaFqJBoyks8AMwXZhhbs4xNz +rVVnGODwzaVf/ACFDHe2ppgXM+BNYVzYLexcrqAZp0sMML3e4T4aRaFtBy5/ +TmAy4GlYa/rWGAopK/9tuqWaAQq04oZs7Ln2A2dW3GLAyWJ1tzfYV7SQU+4d +Bkz2Gzz0j6XQfz09j642MiDbqTwoOo5CdY5KFa/bGOB9KKs7+RCFTv7i4Sts +Z4Ds7ebYJmxaxeg+LxYDwsmvsT+xJXgblYY6GJB7rfpaTAKFIpo8T//8wIDm +jy4dgYkUUtc5G6/Bxv3vbdRROUyhXx+PvPtOMsB5YoeKK3ZnBsOgZgS/PyFx +KAs7pd941GKcAf1/a3lOYnefe+e3a5YBvivcP9YlU6hAQNIuiZsAHYWsxxop +FGqe6fGJXUHA7Ug1Hnfs4Z7K6Eg+AkzrtNKOY1vV2V6mrSRALMfKsh+bDEz4 +bS9JwIhgaHF+Kq7f0U7KTpoAhp5sexP2JjMpbSRDQObMe0s2dp4oc6+RAgEX +KhgfTI7i543fapXWEuDNuT/3CpsoZ7bJqOP4wlOyM9h5eYnfxDUJYIqNx8uk +4XyEtCivNgHiv5WmvbDzpLeHjBvg8b5Rzz9jN/6RTiUNCdA6zfVhHpv9va+o +z5iAqasK6jLHKGT5KOlplzkBc/T2OCfsoYhqlQdAQJRixGIdtpjnYZN71gTc +GMuaZ2Fb2OxwrLUlwMP6p/4Qdq7CQGL5DgLCHZ57SqRTqIG3Jq/UHvfLU26n +Jvbg1OHr5x1xP/+tiLfANn8u8z7HhQCTiwnZAdi02oGxrD0EvFerjjyInVNS +w3PMjYCWLMn8Y9gD0TsN4j0JeFa8O+cKtqi/7PYobwLCTmkF1y7H2znoF+ZL +4MNbIeXh8vg1R076BxKgd8s56PNyPUL2VzxpON+L7I3s5Xgc2ft76AQYvPtg +Nb0cr3+ww5EgwEzHKOPXcjzWLXJbCAERu0uEeI/j+u4d+Q/CCBheFH8lgp1z +xX7VpggCusRPsVZhN+TIrTeJJGBvidjK1dgDCUNb9aMIuDRYdEwNW4Re66kd +TcAnd1WLv7DNdqUcUI8lAAqYunrL8S0dMpXjCVAMtvDbiH1KU/6iXAIBlW+e +tRtj35Vg35FMImDnH5c4M+z+37XtwskEuOzo9rVYjj+c0s+XQoC65b40S2zT +tw4LS6kEmOewB5b9fzmP4nM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.694076106018045, 1.407282720866375}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6940761060180466}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.6940761060180466}, + 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.694076106018045, 1.407282720866375}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9939614999883423`*^9}, + CellLabel-> + "Out[139]=",ExpressionUUID->"6132a978-c0a9-461a-9c03-cd0001e3c1f1"] }, Open ]], Cell[CellGroupData[{ @@ -6794,425 +13735,1059 @@ 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.4207689959228477`*^-269\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 69, 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993961500117268*^9}, + CellLabel-> + "During evaluation of \ +In[140]:=",ExpressionUUID->"11fbf877-7883-49e0-bd6c-4a3dd0d58570"], 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.5545978807276797`*^-280\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 140, 70, 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939615001232643`*^9}, + CellLabel-> + "During evaluation of \ +In[140]:=",ExpressionUUID->"360094ef-7fee-40c9-9a5b-31a06dd8b493"], 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[\\\"9.983499354268905`*^-292\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 140, 71, 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993961500129273*^9}, + CellLabel-> + "During evaluation of \ +In[140]:=",ExpressionUUID->"cfb75a02-197f-48de-ae4c-3d3a171e37ea"], 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, 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993961500135168*^9}, + CellLabel-> + "During evaluation of \ +In[140]:=",ExpressionUUID->"ca469ac8-1fd2-409e-a892-17175a14198d"], 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:eJwV13k4FWsYAHCRREiIQ5Yzx7GUNVu20/uiVGTNvi9ZKleKSlpQyM0SitSV +ELoqnDmtlkqUUCIRIhVudctWdoU79695fs88z8x87/e9yxD++x0Cubm4uESW +cXH9f53ub3rKTC7aXHNwpKpn2HRzRx7tqGn3KchS0rQNOEAHXNvqT+vOhL6O +gYusA1pw2O5GF093IaQJPdBlHkBYMyqZOdfFgdKgHYEL4XbwocZm/2RXHRQ/ +2JsUF+4LFsxv7390tQPfqpTPBWHhMNe1KWu8awC8mhYd1YNjod78etHrwgkY +8JmIcZpKB5kPlZ/91RZgHaHiHjOQA+KhPjf4zHnwnGn1aJdyPmRutKi2cVqJ +fGsXJdePXYOeHK3aHyJCWNJ+x7NH/TokF8W0ckutwQ0piRZvXG6A5IXBP89f +EcPBKbsQJeEyoKnejZ8tEcMTXx5+OiFZBtJ1iTFebDGsL956upVeBnLj6w8p +14thlvqIoZ9OGSjuDPet/krd/7DouNm1DHSWL+gP6ojj9vfXzPvzy8A2UmJI +u1kcyRu8h8rUy+GM447N7dNrcX+zDLFLrwKk77yS5l4mgf5SBi87WRVQLuY4 +s3GVBDq1R9rbW1TA23Zvdoa8BEZeeflZ26UCmPaRDPvtErjPZ5CZH1UBddZX +V7RdksDR2xP6jKoKWLCYetViIolbnFY9+bCODekl0TcXLCQxOoScKZNnA3MF +V5K6vSQaKH86F6XAhp3PBExTAyUx5ErDILcqGy6b02/vTJPEmn8cRIcN2WCA +VhdffJBEUQ0ZRxEXNkQYFvg0naLhXEryQl4aGyzzhSetUmj4OYlbtDaDDQy+ +40mvsmhYfe/63PsLbGjrcCbf/E3DYCEFM5G/2KARLsjT/4qGzzYU3rW5zoav +JUdKfkpL4ZbrKjSdx2zwFLcZWXdbCtfGHj57aZgNOseq4/JqpLB1J++w4xgb +BAZUJIgGKUxd1y0v9JMNlRU8oNQjhRG6YYsRM2yQsKpM11qSwviRjJx13CS0 +xTF1t1pJ4+X+DOt2CRK2jM1Hhw1Ko8Cyzl39LBKObr+w4cmwNI5/WwxSQRLK +C9TfiU1L44bzv8L2m5FAc/Q1rFy5Du/2cHtPWpAw/ODZDI/GOtRemVnTY0vC ++VPpkZei1uHz4rZ8UT8SBtYqhT0VksGIn588NseRILn/saykpAy+farvr3ya +hJ2Nri176DJoNlQRIJRAwr3oZLXVOjKoSYi6tSWRcPbD+Dc3VxkU5O8V104n +Qbu0OnisUAZf3fUSCswjIc7E3k/aQBZDfKPEkx+QsN077+cmM1mcduyz06si +QTj2+2mnnbIYFdsp0FdNQm59Qkm6ryw+/eU6J/eYhAeWVd9X/CmLppO5LdHP +SBh3VTg80SOL2yqjHp19TcL96HC+NUOyWDy/XGihnYSTuQ9zNEZlMWPs+8d9 +HSQIfnSp3sMthwr7P0lDFwnKwSlcHzfIYZOn1efqPhK8D02dfXlMDlffL3Ba +/YUExYtmMt8S5DCV/7WR5df/43eujC9dDlk9uuVx/5IQ/Xt9m1mRHE76Tpl+ +/k5C1mnvtZUv5ZCRJq6ROE7Cy4znV4tl5dH3Om8hMUfF+7b4xnplebQRcL+t +OE+Ce6df3ceN8vjv/UZPpV8kfKX9HlpnIY91BpnRsgsk8ORrbcgMk8dYPY/J +AS4OGJVfunPysTzykYZRL/g4sKXr1cJoozzyW/9dkbySAzZcy7f5tMvjDDts +bjs/BwIcwnrgH3nsbXdqqBLggMUxIiaWl46fP/1yOibEgRera64ZCNDx2EiG +FlOYA3ZFzo3jwnSU+NeA0UzZoyV5jR+Njs2qTGshEQ6Ey09fM1WlY2BPXHu4 +KAembqc3zmnS0dT81mFuMQ5Eb1cdIXUp+7XqZ1BOOOCrz9hMx2LzOKEScQ5c +rm9u5LanY8MWC6UyCQ7IuwaOVDnRkX90sFpZkgNFw0trItzpyO44d/Aq5Yq1 +eh6DAXRcl3hjayKNA0+Dr47UH6ZjaLNx1kZpDuz4bSh6/BgdV9dnb82i/Cq9 +Q183lvr+P8xkpin3VPLHFv1JxxV6RlCxjgPeNkVFnml07DT8kMInw4Ghgc1N +4ufpOFiTyONFeXRVpGhCLh1zU7PDlihH5AtvYhXQ8aWe1+6dshyY1S31mCqm +4z6RwYRsyjze/UWBFXR8Ejtuw5DjQNLPqCbZO3RMe9s7E0BZ+IzYaOcDOgr1 +W7cWUqaxt2+yqKPjpfcXBGnyHLiyZdBjsYGOYiPtETaUGT0nYu+9oOPmvj2C +pyj//QetOKyNjuf6V3dxKKtz325S6qTjhrZjHR8pc7KtR/t76LhHL5BXkM4B +A9Wvohf76XjcKH6vLmUzR1lPvq90HKNt6zhO+fnX+7GPh+kYn+r9LpfyzhMO +xUd+0DGoK1OyinL7mpEmzWk6fvW/mtJB2aXkzOiXeToeMkWjYcp9Rgyx/CU6 +CqzXJpYRHPBvrdnkupzA/ghtMzHKXwJcPEX4CeyQX7rCoBw6+yO2UYhAkVfO +epqUjQ4ESXwWJZDYylNjSHnlt3c3eWgE9kzSlptSfutva0rIEmiokSq8lXJx +b/3bzQwChQjnvv8d6WgQ6qlMoErv3jBzymYtt5ZFqxH4cFv9MxZlEQvi4sWN +BN7UcB3Updz/KEvtrj6BnToKjSqUb20SqGs3JjD4rdwhKcrR7JMu40igYrjF +9xWUt6+fGBayoJ6nm636g1qvRGHwKVUrAiU3rtrUTXlIuk9yhx2BuZbXhGso +c87blQU5EXhus9ft/+MZK/jMLN6dwG0FBkrRlG0TDLsLfAjMea8X4khZbrHs +j8e7CVzScY5WpTx8mMHzfg+BglV/eS1R+1k1lp0zH0ZggRu/WBvlpJBVGrRI +Aje1Ff51hbLzp5h6vaMEsspDZ4MpM90nXXedJNDROXSDJuVaq/en05IIFCtR +Er1Dnbe0p/ZSt1IJfKA83nSAsierobwpk8BFRSEPNcpzGhU9y68QOKQdIpRD +nWdt0TjNYyS1f2XvW3dQ558reeppzj0C05Ki9o9S+fOKZ6/7vWpqfd2N4+co +75tySPjxjMDud025TVS+FXUze4PfEXhFy/CBpBQHDtpfCk/4QODeicDT16j8 +xWahFdeGCPTx7zNQo/y+elqrf5RA11+LQbpUvktcbUx05GHggeOcUfm1VLwl +WTIHVzIw+fqjDeep+sFJJ8lzQgz8Hd/jxkPZ9tTlvmZJBury3cp6R9WjpMBQ +bVM1BpLS3Nd2U/VqTlWkX92JgTuN60W+UvVv+op0nI47A9VXmMdqUJ5crcg0 +9GHgUNsZkYNUvRydMNy7ZQ8Dt4o/vjhO1deB6oBp9xMM9P2W5/NiOQeare4L +JxUzkKdToGWWqs/PHz4hU28wUIVj1rKG8lPNl47nKxjYac/DpfKbhEdiny7n +VTLwlGPxsp1Uvef0CijfbWGgzWbjrIPTJFze5w0DUwwskhRfNBol4eL7kIEv +8wzk7XpToTxCwgXbiISRJWq9wdEla4ZJSNNJejHLr4BaGcrB76n+c+oX6bJa +TgFHxNudHf8hYV8yb7iJhQJGht6eqe0lweTmrfzsbAUc0Hxz5UoDCb30m1e3 +/qWAzSpcOdZU/4zOLs2bvKqA5OWwXb/qqf4ZV5LrUKqA1byrRe2eUP3bNT9H +uEYBBa7ta+6n+vF63gvpiZ+o9+cq8WeySZDwORZ7WI2JuhFjfc45JNztOBqj +uJGJhkquU7XZJDhaRp3s0GMiKZ4/ppJFQqbeoePawESLounUnxkkCAnujxq1 +Z+KQ8GhaaDIJyyv9w4OOMFH7cGTK7xMk/BC19HWuY+LHNb1d56n5pDuU0bb3 +ORMn3Gb1L/iQUNswDzEvmZjy2QAzvUhIj74p//dbJi565zmfcSNBa0Dww9w3 +Jjp+Cap0sichjGz1uiKmiHnBLsnx1Lz0zdbJY2i3IppbXxLTlSVhKMXX+SCf +Ep6tC1m/vo0NYd/UGFqCSjhiER/S3MKGmW1zIyMiSqhxZmB4zwtqnuPJTNgj +rYRfzISarzWwQeto/R1fdSWUUL41zf2QDScClcRsdynhvcFh2fBSar7bPNyq +elUJybMebUJxbNgxdmTHP/rKqDG9yjeHml+HA1ZG3IlRwZsrFvY0PSqn/i8k +uc/UrUfh0dSlwuVlINqilMYe24BDWmazNOubIJNUYaevr4ZzqzRC5LxKIUfV +UEQsWB1VbS9YHIy/Ds3SpnoTGRooHiKqF367GIxk6tI132qih+IrPF57DYR5 +CiP9TmlhwbMJ28W5ApCLkzdxU9qImSIuu1Xl84Ff0fOew/ONWMR2amI+zwUN +llTFES9tFLl7kMGqugQH+0XrLbl0cN7o+FPmtWwYm0hx2pGjg9m5XJnjM+dh +m2bD5R3quvg6/b6X/7kMeDRh/GvmlS7uUxdtsPVMgzA17XevA/VQYJt4hID7 +WWCN7u5w49fH+3saJ/QPJ8JWJs1aqFAf9zufcf5pchpUYs9G1W3ahHtC2FnG +4bGwIdDwseK7Tejz43mQTNoxCHwUEn/ngAHuu9UeP29yBB7nd+z+sdYQnxxz +uyStGwGTfy/NaN43xOtDagO91/dDgOJN/svWRtjwwap6teVe+LHhvD5n3Ajj +nV3KV3kHwoOiX5+mkozxHa1orOOUH+ibR85YJhvjdvJkINchP7j7aVgwP9UY +Azp3eukF+wFHrn+TZaYx+tx7+rDayg9u5dSm5v1ljPMxqRWGa/0gPyXBcFu5 +MWaq3n8+VeoLf0auzsh5Y4wl4a93Z93xAfctCmgsZ4KtXfUWl254wkLHSuF6 +uglqm71OC8nwhPzA0V5LBRMs1fAws4ryhM+JlUfcVUzQhDZcZWnhCQebbCuO +aptgzDGnXK1BDzhrc1zugYUJOiiVn06le0CVa+dv3f0myFo2IGhQ6gbr/jhT +qVFrgpdDeJXqxpwhbSlIL7nOBFusFibD+5yBO9OC/PLUBHW/iyhpNDnDt3u8 +pflNJiiy7PvZN4XOUMUVnyP6xgTXun4KanJ2BvcLsUem/zHBWt9tbLcnTpBT +fVTv0SoW/m55cbE13xHWCoSS1i4szIuc7dI74wBF5ieix91YePoG4eB9yAG0 +T6SZn/dkoeuWxxLZAQ5gM87u7PZjoUcfc5cOOkDi26m5gFAWrvp9crfCvD3M +FsaYRcex0KDxjUdbuD28Mz7/puQmC3Pn9/uL7rGDkENFuTvKWfiV+7fWajc7 +mC6/GzjMZmFBaMKE1A47EGV0z2y8x0Iel62qbuvtwGqlrMzDWhbW+Lonz3fY +Qk1Hye43nSzccXs2sqTfBiyFH6gf7mZhwKXOX461NtC9rWma1svCwd2nFOUK +bWCy6nuS90cWli8/t4YryAbUC7TK/v3GQoX6p3SuMWuoeWd6OGWEhZPdRGbc +a2uwFN8FmuPU+kR+8cnesYagM4deR06xMHq2hVNw1BomaxMvS86ysP9JZe1Z +T2s4NX8xoGqehcXdvAmpYA0iuqVqXgss7LXcNlzKsIa8P6qmlpZYaOwkN/iB +1xr+A/BzjR0= + "]]}, + 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:eJwV13k4FWsYAHCRREiIQ5Yzx7GUNVu20/uiVGTNvi9ZKleKSlpQyM0SitSV +ELoqnDmtlkqUUCIRIhVudctWdoU79695fs88z8x87/e9yxD++x0Cubm4uESW +cXH9f53ub3rKTC7aXHNwpKpn2HRzRx7tqGn3KchS0rQNOEAHXNvqT+vOhL6O +gYusA1pw2O5GF093IaQJPdBlHkBYMyqZOdfFgdKgHYEL4XbwocZm/2RXHRQ/ +2JsUF+4LFsxv7390tQPfqpTPBWHhMNe1KWu8awC8mhYd1YNjod78etHrwgkY +8JmIcZpKB5kPlZ/91RZgHaHiHjOQA+KhPjf4zHnwnGn1aJdyPmRutKi2cVqJ +fGsXJdePXYOeHK3aHyJCWNJ+x7NH/TokF8W0ckutwQ0piRZvXG6A5IXBP89f +EcPBKbsQJeEyoKnejZ8tEcMTXx5+OiFZBtJ1iTFebDGsL956upVeBnLj6w8p +14thlvqIoZ9OGSjuDPet/krd/7DouNm1DHSWL+gP6ojj9vfXzPvzy8A2UmJI +u1kcyRu8h8rUy+GM447N7dNrcX+zDLFLrwKk77yS5l4mgf5SBi87WRVQLuY4 +s3GVBDq1R9rbW1TA23Zvdoa8BEZeeflZ26UCmPaRDPvtErjPZ5CZH1UBddZX +V7RdksDR2xP6jKoKWLCYetViIolbnFY9+bCODekl0TcXLCQxOoScKZNnA3MF +V5K6vSQaKH86F6XAhp3PBExTAyUx5ErDILcqGy6b02/vTJPEmn8cRIcN2WCA +VhdffJBEUQ0ZRxEXNkQYFvg0naLhXEryQl4aGyzzhSetUmj4OYlbtDaDDQy+ +40mvsmhYfe/63PsLbGjrcCbf/E3DYCEFM5G/2KARLsjT/4qGzzYU3rW5zoav +JUdKfkpL4ZbrKjSdx2zwFLcZWXdbCtfGHj57aZgNOseq4/JqpLB1J++w4xgb +BAZUJIgGKUxd1y0v9JMNlRU8oNQjhRG6YYsRM2yQsKpM11qSwviRjJx13CS0 +xTF1t1pJ4+X+DOt2CRK2jM1Hhw1Ko8Cyzl39LBKObr+w4cmwNI5/WwxSQRLK +C9TfiU1L44bzv8L2m5FAc/Q1rFy5Du/2cHtPWpAw/ODZDI/GOtRemVnTY0vC ++VPpkZei1uHz4rZ8UT8SBtYqhT0VksGIn588NseRILn/saykpAy+farvr3ya +hJ2Nri176DJoNlQRIJRAwr3oZLXVOjKoSYi6tSWRcPbD+Dc3VxkU5O8V104n +Qbu0OnisUAZf3fUSCswjIc7E3k/aQBZDfKPEkx+QsN077+cmM1mcduyz06si +QTj2+2mnnbIYFdsp0FdNQm59Qkm6ryw+/eU6J/eYhAeWVd9X/CmLppO5LdHP +SBh3VTg80SOL2yqjHp19TcL96HC+NUOyWDy/XGihnYSTuQ9zNEZlMWPs+8d9 +HSQIfnSp3sMthwr7P0lDFwnKwSlcHzfIYZOn1efqPhK8D02dfXlMDlffL3Ba +/YUExYtmMt8S5DCV/7WR5df/43eujC9dDlk9uuVx/5IQ/Xt9m1mRHE76Tpl+ +/k5C1mnvtZUv5ZCRJq6ROE7Cy4znV4tl5dH3Om8hMUfF+7b4xnplebQRcL+t +OE+Ce6df3ceN8vjv/UZPpV8kfKX9HlpnIY91BpnRsgsk8ORrbcgMk8dYPY/J +AS4OGJVfunPysTzykYZRL/g4sKXr1cJoozzyW/9dkbySAzZcy7f5tMvjDDts +bjs/BwIcwnrgH3nsbXdqqBLggMUxIiaWl46fP/1yOibEgRera64ZCNDx2EiG +FlOYA3ZFzo3jwnSU+NeA0UzZoyV5jR+Njs2qTGshEQ6Ey09fM1WlY2BPXHu4 +KAembqc3zmnS0dT81mFuMQ5Eb1cdIXUp+7XqZ1BOOOCrz9hMx2LzOKEScQ5c +rm9u5LanY8MWC6UyCQ7IuwaOVDnRkX90sFpZkgNFw0trItzpyO44d/Aq5Yq1 +eh6DAXRcl3hjayKNA0+Dr47UH6ZjaLNx1kZpDuz4bSh6/BgdV9dnb82i/Cq9 +Q183lvr+P8xkpin3VPLHFv1JxxV6RlCxjgPeNkVFnml07DT8kMInw4Ghgc1N +4ufpOFiTyONFeXRVpGhCLh1zU7PDlihH5AtvYhXQ8aWe1+6dshyY1S31mCqm +4z6RwYRsyjze/UWBFXR8Ejtuw5DjQNLPqCbZO3RMe9s7E0BZ+IzYaOcDOgr1 +W7cWUqaxt2+yqKPjpfcXBGnyHLiyZdBjsYGOYiPtETaUGT0nYu+9oOPmvj2C +pyj//QetOKyNjuf6V3dxKKtz325S6qTjhrZjHR8pc7KtR/t76LhHL5BXkM4B +A9Wvohf76XjcKH6vLmUzR1lPvq90HKNt6zhO+fnX+7GPh+kYn+r9LpfyzhMO +xUd+0DGoK1OyinL7mpEmzWk6fvW/mtJB2aXkzOiXeToeMkWjYcp9Rgyx/CU6 +CqzXJpYRHPBvrdnkupzA/ghtMzHKXwJcPEX4CeyQX7rCoBw6+yO2UYhAkVfO +epqUjQ4ESXwWJZDYylNjSHnlt3c3eWgE9kzSlptSfutva0rIEmiokSq8lXJx +b/3bzQwChQjnvv8d6WgQ6qlMoErv3jBzymYtt5ZFqxH4cFv9MxZlEQvi4sWN +BN7UcB3Updz/KEvtrj6BnToKjSqUb20SqGs3JjD4rdwhKcrR7JMu40igYrjF +9xWUt6+fGBayoJ6nm636g1qvRGHwKVUrAiU3rtrUTXlIuk9yhx2BuZbXhGso +c87blQU5EXhus9ft/+MZK/jMLN6dwG0FBkrRlG0TDLsLfAjMea8X4khZbrHs +j8e7CVzScY5WpTx8mMHzfg+BglV/eS1R+1k1lp0zH0ZggRu/WBvlpJBVGrRI +Aje1Ff51hbLzp5h6vaMEsspDZ4MpM90nXXedJNDROXSDJuVaq/en05IIFCtR +Er1Dnbe0p/ZSt1IJfKA83nSAsierobwpk8BFRSEPNcpzGhU9y68QOKQdIpRD +nWdt0TjNYyS1f2XvW3dQ558reeppzj0C05Ki9o9S+fOKZ6/7vWpqfd2N4+co +75tySPjxjMDud025TVS+FXUze4PfEXhFy/CBpBQHDtpfCk/4QODeicDT16j8 +xWahFdeGCPTx7zNQo/y+elqrf5RA11+LQbpUvktcbUx05GHggeOcUfm1VLwl +WTIHVzIw+fqjDeep+sFJJ8lzQgz8Hd/jxkPZ9tTlvmZJBury3cp6R9WjpMBQ +bVM1BpLS3Nd2U/VqTlWkX92JgTuN60W+UvVv+op0nI47A9VXmMdqUJ5crcg0 +9GHgUNsZkYNUvRydMNy7ZQ8Dt4o/vjhO1deB6oBp9xMM9P2W5/NiOQeare4L +JxUzkKdToGWWqs/PHz4hU28wUIVj1rKG8lPNl47nKxjYac/DpfKbhEdiny7n +VTLwlGPxsp1Uvef0CijfbWGgzWbjrIPTJFze5w0DUwwskhRfNBol4eL7kIEv +8wzk7XpToTxCwgXbiISRJWq9wdEla4ZJSNNJejHLr4BaGcrB76n+c+oX6bJa +TgFHxNudHf8hYV8yb7iJhQJGht6eqe0lweTmrfzsbAUc0Hxz5UoDCb30m1e3 +/qWAzSpcOdZU/4zOLs2bvKqA5OWwXb/qqf4ZV5LrUKqA1byrRe2eUP3bNT9H +uEYBBa7ta+6n+vF63gvpiZ+o9+cq8WeySZDwORZ7WI2JuhFjfc45JNztOBqj +uJGJhkquU7XZJDhaRp3s0GMiKZ4/ppJFQqbeoePawESLounUnxkkCAnujxq1 +Z+KQ8GhaaDIJyyv9w4OOMFH7cGTK7xMk/BC19HWuY+LHNb1d56n5pDuU0bb3 +ORMn3Gb1L/iQUNswDzEvmZjy2QAzvUhIj74p//dbJi565zmfcSNBa0Dww9w3 +Jjp+Cap0sichjGz1uiKmiHnBLsnx1Lz0zdbJY2i3IppbXxLTlSVhKMXX+SCf +Ep6tC1m/vo0NYd/UGFqCSjhiER/S3MKGmW1zIyMiSqhxZmB4zwtqnuPJTNgj +rYRfzISarzWwQeto/R1fdSWUUL41zf2QDScClcRsdynhvcFh2fBSar7bPNyq +elUJybMebUJxbNgxdmTHP/rKqDG9yjeHml+HA1ZG3IlRwZsrFvY0PSqn/i8k +uc/UrUfh0dSlwuVlINqilMYe24BDWmazNOubIJNUYaevr4ZzqzRC5LxKIUfV +UEQsWB1VbS9YHIy/Ds3SpnoTGRooHiKqF367GIxk6tI132qih+IrPF57DYR5 +CiP9TmlhwbMJ28W5ApCLkzdxU9qImSIuu1Xl84Ff0fOew/ONWMR2amI+zwUN +llTFES9tFLl7kMGqugQH+0XrLbl0cN7o+FPmtWwYm0hx2pGjg9m5XJnjM+dh +m2bD5R3quvg6/b6X/7kMeDRh/GvmlS7uUxdtsPVMgzA17XevA/VQYJt4hID7 +WWCN7u5w49fH+3saJ/QPJ8JWJs1aqFAf9zufcf5pchpUYs9G1W3ahHtC2FnG +4bGwIdDwseK7Tejz43mQTNoxCHwUEn/ngAHuu9UeP29yBB7nd+z+sdYQnxxz +uyStGwGTfy/NaN43xOtDagO91/dDgOJN/svWRtjwwap6teVe+LHhvD5n3Ajj +nV3KV3kHwoOiX5+mkozxHa1orOOUH+ibR85YJhvjdvJkINchP7j7aVgwP9UY +Azp3eukF+wFHrn+TZaYx+tx7+rDayg9u5dSm5v1ljPMxqRWGa/0gPyXBcFu5 +MWaq3n8+VeoLf0auzsh5Y4wl4a93Z93xAfctCmgsZ4KtXfUWl254wkLHSuF6 +uglqm71OC8nwhPzA0V5LBRMs1fAws4ryhM+JlUfcVUzQhDZcZWnhCQebbCuO +aptgzDGnXK1BDzhrc1zugYUJOiiVn06le0CVa+dv3f0myFo2IGhQ6gbr/jhT +qVFrgpdDeJXqxpwhbSlIL7nOBFusFibD+5yBO9OC/PLUBHW/iyhpNDnDt3u8 +pflNJiiy7PvZN4XOUMUVnyP6xgTXun4KanJ2BvcLsUem/zHBWt9tbLcnTpBT +fVTv0SoW/m55cbE13xHWCoSS1i4szIuc7dI74wBF5ieix91YePoG4eB9yAG0 +T6SZn/dkoeuWxxLZAQ5gM87u7PZjoUcfc5cOOkDi26m5gFAWrvp9crfCvD3M +FsaYRcex0KDxjUdbuD28Mz7/puQmC3Pn9/uL7rGDkENFuTvKWfiV+7fWajc7 +mC6/GzjMZmFBaMKE1A47EGV0z2y8x0Iel62qbuvtwGqlrMzDWhbW+Lonz3fY +Qk1Hye43nSzccXs2sqTfBiyFH6gf7mZhwKXOX461NtC9rWma1svCwd2nFOUK +bWCy6nuS90cWli8/t4YryAbUC7TK/v3GQoX6p3SuMWuoeWd6OGWEhZPdRGbc +a2uwFN8FmuPU+kR+8cnesYagM4deR06xMHq2hVNw1BomaxMvS86ysP9JZe1Z +T2s4NX8xoGqehcXdvAmpYA0iuqVqXgss7LXcNlzKsIa8P6qmlpZYaOwkN/iB +1xr+A/BzjR0= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07082020406062757}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.07082020406062757}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJwV13k4FWsYAHCRREiIQ5Yzx7GUNVu20/uiVGTNvi9ZKleKSlpQyM0SitSV +ELoqnDmtlkqUUCIRIhVudctWdoU79695fs88z8x87/e9yxD++x0Cubm4uESW +cXH9f53ub3rKTC7aXHNwpKpn2HRzRx7tqGn3KchS0rQNOEAHXNvqT+vOhL6O +gYusA1pw2O5GF093IaQJPdBlHkBYMyqZOdfFgdKgHYEL4XbwocZm/2RXHRQ/ +2JsUF+4LFsxv7390tQPfqpTPBWHhMNe1KWu8awC8mhYd1YNjod78etHrwgkY +8JmIcZpKB5kPlZ/91RZgHaHiHjOQA+KhPjf4zHnwnGn1aJdyPmRutKi2cVqJ +fGsXJdePXYOeHK3aHyJCWNJ+x7NH/TokF8W0ckutwQ0piRZvXG6A5IXBP89f +EcPBKbsQJeEyoKnejZ8tEcMTXx5+OiFZBtJ1iTFebDGsL956upVeBnLj6w8p +14thlvqIoZ9OGSjuDPet/krd/7DouNm1DHSWL+gP6ojj9vfXzPvzy8A2UmJI +u1kcyRu8h8rUy+GM447N7dNrcX+zDLFLrwKk77yS5l4mgf5SBi87WRVQLuY4 +s3GVBDq1R9rbW1TA23Zvdoa8BEZeeflZ26UCmPaRDPvtErjPZ5CZH1UBddZX +V7RdksDR2xP6jKoKWLCYetViIolbnFY9+bCODekl0TcXLCQxOoScKZNnA3MF +V5K6vSQaKH86F6XAhp3PBExTAyUx5ErDILcqGy6b02/vTJPEmn8cRIcN2WCA +VhdffJBEUQ0ZRxEXNkQYFvg0naLhXEryQl4aGyzzhSetUmj4OYlbtDaDDQy+ +40mvsmhYfe/63PsLbGjrcCbf/E3DYCEFM5G/2KARLsjT/4qGzzYU3rW5zoav +JUdKfkpL4ZbrKjSdx2zwFLcZWXdbCtfGHj57aZgNOseq4/JqpLB1J++w4xgb +BAZUJIgGKUxd1y0v9JMNlRU8oNQjhRG6YYsRM2yQsKpM11qSwviRjJx13CS0 +xTF1t1pJ4+X+DOt2CRK2jM1Hhw1Ko8Cyzl39LBKObr+w4cmwNI5/WwxSQRLK +C9TfiU1L44bzv8L2m5FAc/Q1rFy5Du/2cHtPWpAw/ODZDI/GOtRemVnTY0vC ++VPpkZei1uHz4rZ8UT8SBtYqhT0VksGIn588NseRILn/saykpAy+farvr3ya +hJ2Nri176DJoNlQRIJRAwr3oZLXVOjKoSYi6tSWRcPbD+Dc3VxkU5O8V104n +Qbu0OnisUAZf3fUSCswjIc7E3k/aQBZDfKPEkx+QsN077+cmM1mcduyz06si +QTj2+2mnnbIYFdsp0FdNQm59Qkm6ryw+/eU6J/eYhAeWVd9X/CmLppO5LdHP +SBh3VTg80SOL2yqjHp19TcL96HC+NUOyWDy/XGihnYSTuQ9zNEZlMWPs+8d9 +HSQIfnSp3sMthwr7P0lDFwnKwSlcHzfIYZOn1efqPhK8D02dfXlMDlffL3Ba +/YUExYtmMt8S5DCV/7WR5df/43eujC9dDlk9uuVx/5IQ/Xt9m1mRHE76Tpl+ +/k5C1mnvtZUv5ZCRJq6ROE7Cy4znV4tl5dH3Om8hMUfF+7b4xnplebQRcL+t +OE+Ce6df3ceN8vjv/UZPpV8kfKX9HlpnIY91BpnRsgsk8ORrbcgMk8dYPY/J +AS4OGJVfunPysTzykYZRL/g4sKXr1cJoozzyW/9dkbySAzZcy7f5tMvjDDts +bjs/BwIcwnrgH3nsbXdqqBLggMUxIiaWl46fP/1yOibEgRera64ZCNDx2EiG +FlOYA3ZFzo3jwnSU+NeA0UzZoyV5jR+Njs2qTGshEQ6Ey09fM1WlY2BPXHu4 +KAembqc3zmnS0dT81mFuMQ5Eb1cdIXUp+7XqZ1BOOOCrz9hMx2LzOKEScQ5c +rm9u5LanY8MWC6UyCQ7IuwaOVDnRkX90sFpZkgNFw0trItzpyO44d/Aq5Yq1 +eh6DAXRcl3hjayKNA0+Dr47UH6ZjaLNx1kZpDuz4bSh6/BgdV9dnb82i/Cq9 +Q183lvr+P8xkpin3VPLHFv1JxxV6RlCxjgPeNkVFnml07DT8kMInw4Ghgc1N +4ufpOFiTyONFeXRVpGhCLh1zU7PDlihH5AtvYhXQ8aWe1+6dshyY1S31mCqm +4z6RwYRsyjze/UWBFXR8Ejtuw5DjQNLPqCbZO3RMe9s7E0BZ+IzYaOcDOgr1 +W7cWUqaxt2+yqKPjpfcXBGnyHLiyZdBjsYGOYiPtETaUGT0nYu+9oOPmvj2C +pyj//QetOKyNjuf6V3dxKKtz325S6qTjhrZjHR8pc7KtR/t76LhHL5BXkM4B +A9Wvohf76XjcKH6vLmUzR1lPvq90HKNt6zhO+fnX+7GPh+kYn+r9LpfyzhMO +xUd+0DGoK1OyinL7mpEmzWk6fvW/mtJB2aXkzOiXeToeMkWjYcp9Rgyx/CU6 +CqzXJpYRHPBvrdnkupzA/ghtMzHKXwJcPEX4CeyQX7rCoBw6+yO2UYhAkVfO +epqUjQ4ESXwWJZDYylNjSHnlt3c3eWgE9kzSlptSfutva0rIEmiokSq8lXJx +b/3bzQwChQjnvv8d6WgQ6qlMoErv3jBzymYtt5ZFqxH4cFv9MxZlEQvi4sWN +BN7UcB3Updz/KEvtrj6BnToKjSqUb20SqGs3JjD4rdwhKcrR7JMu40igYrjF +9xWUt6+fGBayoJ6nm636g1qvRGHwKVUrAiU3rtrUTXlIuk9yhx2BuZbXhGso +c87blQU5EXhus9ft/+MZK/jMLN6dwG0FBkrRlG0TDLsLfAjMea8X4khZbrHs +j8e7CVzScY5WpTx8mMHzfg+BglV/eS1R+1k1lp0zH0ZggRu/WBvlpJBVGrRI +Aje1Ff51hbLzp5h6vaMEsspDZ4MpM90nXXedJNDROXSDJuVaq/en05IIFCtR +Er1Dnbe0p/ZSt1IJfKA83nSAsierobwpk8BFRSEPNcpzGhU9y68QOKQdIpRD +nWdt0TjNYyS1f2XvW3dQ558reeppzj0C05Ki9o9S+fOKZ6/7vWpqfd2N4+co +75tySPjxjMDud025TVS+FXUze4PfEXhFy/CBpBQHDtpfCk/4QODeicDT16j8 +xWahFdeGCPTx7zNQo/y+elqrf5RA11+LQbpUvktcbUx05GHggeOcUfm1VLwl +WTIHVzIw+fqjDeep+sFJJ8lzQgz8Hd/jxkPZ9tTlvmZJBury3cp6R9WjpMBQ +bVM1BpLS3Nd2U/VqTlWkX92JgTuN60W+UvVv+op0nI47A9VXmMdqUJ5crcg0 +9GHgUNsZkYNUvRydMNy7ZQ8Dt4o/vjhO1deB6oBp9xMM9P2W5/NiOQeare4L +JxUzkKdToGWWqs/PHz4hU28wUIVj1rKG8lPNl47nKxjYac/DpfKbhEdiny7n +VTLwlGPxsp1Uvef0CijfbWGgzWbjrIPTJFze5w0DUwwskhRfNBol4eL7kIEv +8wzk7XpToTxCwgXbiISRJWq9wdEla4ZJSNNJejHLr4BaGcrB76n+c+oX6bJa +TgFHxNudHf8hYV8yb7iJhQJGht6eqe0lweTmrfzsbAUc0Hxz5UoDCb30m1e3 +/qWAzSpcOdZU/4zOLs2bvKqA5OWwXb/qqf4ZV5LrUKqA1byrRe2eUP3bNT9H +uEYBBa7ta+6n+vF63gvpiZ+o9+cq8WeySZDwORZ7WI2JuhFjfc45JNztOBqj +uJGJhkquU7XZJDhaRp3s0GMiKZ4/ppJFQqbeoePawESLounUnxkkCAnujxq1 +Z+KQ8GhaaDIJyyv9w4OOMFH7cGTK7xMk/BC19HWuY+LHNb1d56n5pDuU0bb3 +ORMn3Gb1L/iQUNswDzEvmZjy2QAzvUhIj74p//dbJi565zmfcSNBa0Dww9w3 +Jjp+Cap0sichjGz1uiKmiHnBLsnx1Lz0zdbJY2i3IppbXxLTlSVhKMXX+SCf +Ep6tC1m/vo0NYd/UGFqCSjhiER/S3MKGmW1zIyMiSqhxZmB4zwtqnuPJTNgj +rYRfzISarzWwQeto/R1fdSWUUL41zf2QDScClcRsdynhvcFh2fBSar7bPNyq +elUJybMebUJxbNgxdmTHP/rKqDG9yjeHml+HA1ZG3IlRwZsrFvY0PSqn/i8k +uc/UrUfh0dSlwuVlINqilMYe24BDWmazNOubIJNUYaevr4ZzqzRC5LxKIUfV +UEQsWB1VbS9YHIy/Ds3SpnoTGRooHiKqF367GIxk6tI132qih+IrPF57DYR5 +CiP9TmlhwbMJ28W5ApCLkzdxU9qImSIuu1Xl84Ff0fOew/ONWMR2amI+zwUN +llTFES9tFLl7kMGqugQH+0XrLbl0cN7o+FPmtWwYm0hx2pGjg9m5XJnjM+dh +m2bD5R3quvg6/b6X/7kMeDRh/GvmlS7uUxdtsPVMgzA17XevA/VQYJt4hID7 +WWCN7u5w49fH+3saJ/QPJ8JWJs1aqFAf9zufcf5pchpUYs9G1W3ahHtC2FnG +4bGwIdDwseK7Tejz43mQTNoxCHwUEn/ngAHuu9UeP29yBB7nd+z+sdYQnxxz +uyStGwGTfy/NaN43xOtDagO91/dDgOJN/svWRtjwwap6teVe+LHhvD5n3Ajj +nV3KV3kHwoOiX5+mkozxHa1orOOUH+ibR85YJhvjdvJkINchP7j7aVgwP9UY +Azp3eukF+wFHrn+TZaYx+tx7+rDayg9u5dSm5v1ljPMxqRWGa/0gPyXBcFu5 +MWaq3n8+VeoLf0auzsh5Y4wl4a93Z93xAfctCmgsZ4KtXfUWl254wkLHSuF6 +uglqm71OC8nwhPzA0V5LBRMs1fAws4ryhM+JlUfcVUzQhDZcZWnhCQebbCuO +aptgzDGnXK1BDzhrc1zugYUJOiiVn06le0CVa+dv3f0myFo2IGhQ6gbr/jhT +qVFrgpdDeJXqxpwhbSlIL7nOBFusFibD+5yBO9OC/PLUBHW/iyhpNDnDt3u8 +pflNJiiy7PvZN4XOUMUVnyP6xgTXun4KanJ2BvcLsUem/zHBWt9tbLcnTpBT +fVTv0SoW/m55cbE13xHWCoSS1i4szIuc7dI74wBF5ieix91YePoG4eB9yAG0 +T6SZn/dkoeuWxxLZAQ5gM87u7PZjoUcfc5cOOkDi26m5gFAWrvp9crfCvD3M +FsaYRcex0KDxjUdbuD28Mz7/puQmC3Pn9/uL7rGDkENFuTvKWfiV+7fWajc7 +mC6/GzjMZmFBaMKE1A47EGV0z2y8x0Iel62qbuvtwGqlrMzDWhbW+Lonz3fY +Qk1Hye43nSzccXs2sqTfBiyFH6gf7mZhwKXOX461NtC9rWma1svCwd2nFOUK +bWCy6nuS90cWli8/t4YryAbUC7TK/v3GQoX6p3SuMWuoeWd6OGWEhZPdRGbc +a2uwFN8FmuPU+kR+8cnesYagM4deR06xMHq2hVNw1BomaxMvS86ysP9JZe1Z +T2s4NX8xoGqehcXdvAmpYA0iuqVqXgss7LXcNlzKsIa8P6qmlpZYaOwkN/iB +1xr+A/BzjR0= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07082020406062757}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.07082020406062757}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993961782090517*^9}, + CellLabel-> + "Out[140]=",ExpressionUUID->"62e32158-9e1b-42bf-a1c3-4c136bd3a755"] }, 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:eJwV13k4FWsYAHCRREiIQ5Yzx7GUNVu20/uiVGTNvi9ZKleKSlpQyM0SitSV +ELoqnDmtlkqUUCIRIhVudctWdoU79695fs88z8x87/e9yxD++x0Cubm4uESW +cXH9f53ub3rKTC7aXHNwpKpn2HRzRx7tqGn3KchS0rQNOEAHXNvqT+vOhL6O +gYusA1pw2O5GF093IaQJPdBlHkBYMyqZOdfFgdKgHYEL4XbwocZm/2RXHRQ/ +2JsUF+4LFsxv7390tQPfqpTPBWHhMNe1KWu8awC8mhYd1YNjod78etHrwgkY +8JmIcZpKB5kPlZ/91RZgHaHiHjOQA+KhPjf4zHnwnGn1aJdyPmRutKi2cVqJ +fGsXJdePXYOeHK3aHyJCWNJ+x7NH/TokF8W0ckutwQ0piRZvXG6A5IXBP89f +EcPBKbsQJeEyoKnejZ8tEcMTXx5+OiFZBtJ1iTFebDGsL956upVeBnLj6w8p +14thlvqIoZ9OGSjuDPet/krd/7DouNm1DHSWL+gP6ojj9vfXzPvzy8A2UmJI +u1kcyRu8h8rUy+GM447N7dNrcX+zDLFLrwKk77yS5l4mgf5SBi87WRVQLuY4 +s3GVBDq1R9rbW1TA23Zvdoa8BEZeeflZ26UCmPaRDPvtErjPZ5CZH1UBddZX +V7RdksDR2xP6jKoKWLCYetViIolbnFY9+bCODekl0TcXLCQxOoScKZNnA3MF +V5K6vSQaKH86F6XAhp3PBExTAyUx5ErDILcqGy6b02/vTJPEmn8cRIcN2WCA +VhdffJBEUQ0ZRxEXNkQYFvg0naLhXEryQl4aGyzzhSetUmj4OYlbtDaDDQy+ +40mvsmhYfe/63PsLbGjrcCbf/E3DYCEFM5G/2KARLsjT/4qGzzYU3rW5zoav +JUdKfkpL4ZbrKjSdx2zwFLcZWXdbCtfGHj57aZgNOseq4/JqpLB1J++w4xgb +BAZUJIgGKUxd1y0v9JMNlRU8oNQjhRG6YYsRM2yQsKpM11qSwviRjJx13CS0 +xTF1t1pJ4+X+DOt2CRK2jM1Hhw1Ko8Cyzl39LBKObr+w4cmwNI5/WwxSQRLK +C9TfiU1L44bzv8L2m5FAc/Q1rFy5Du/2cHtPWpAw/ODZDI/GOtRemVnTY0vC ++VPpkZei1uHz4rZ8UT8SBtYqhT0VksGIn588NseRILn/saykpAy+farvr3ya +hJ2Nri176DJoNlQRIJRAwr3oZLXVOjKoSYi6tSWRcPbD+Dc3VxkU5O8V104n +Qbu0OnisUAZf3fUSCswjIc7E3k/aQBZDfKPEkx+QsN077+cmM1mcduyz06si +QTj2+2mnnbIYFdsp0FdNQm59Qkm6ryw+/eU6J/eYhAeWVd9X/CmLppO5LdHP +SBh3VTg80SOL2yqjHp19TcL96HC+NUOyWDy/XGihnYSTuQ9zNEZlMWPs+8d9 +HSQIfnSp3sMthwr7P0lDFwnKwSlcHzfIYZOn1efqPhK8D02dfXlMDlffL3Ba +/YUExYtmMt8S5DCV/7WR5df/43eujC9dDlk9uuVx/5IQ/Xt9m1mRHE76Tpl+ +/k5C1mnvtZUv5ZCRJq6ROE7Cy4znV4tl5dH3Om8hMUfF+7b4xnplebQRcL+t +OE+Ce6df3ceN8vjv/UZPpV8kfKX9HlpnIY91BpnRsgsk8ORrbcgMk8dYPY/J +AS4OGJVfunPysTzykYZRL/g4sKXr1cJoozzyW/9dkbySAzZcy7f5tMvjDDts +bjs/BwIcwnrgH3nsbXdqqBLggMUxIiaWl46fP/1yOibEgRera64ZCNDx2EiG +FlOYA3ZFzo3jwnSU+NeA0UzZoyV5jR+Njs2qTGshEQ6Ey09fM1WlY2BPXHu4 +KAembqc3zmnS0dT81mFuMQ5Eb1cdIXUp+7XqZ1BOOOCrz9hMx2LzOKEScQ5c +rm9u5LanY8MWC6UyCQ7IuwaOVDnRkX90sFpZkgNFw0trItzpyO44d/Aq5Yq1 +eh6DAXRcl3hjayKNA0+Dr47UH6ZjaLNx1kZpDuz4bSh6/BgdV9dnb82i/Cq9 +Q183lvr+P8xkpin3VPLHFv1JxxV6RlCxjgPeNkVFnml07DT8kMInw4Ghgc1N +4ufpOFiTyONFeXRVpGhCLh1zU7PDlihH5AtvYhXQ8aWe1+6dshyY1S31mCqm +4z6RwYRsyjze/UWBFXR8Ejtuw5DjQNLPqCbZO3RMe9s7E0BZ+IzYaOcDOgr1 +W7cWUqaxt2+yqKPjpfcXBGnyHLiyZdBjsYGOYiPtETaUGT0nYu+9oOPmvj2C +pyj//QetOKyNjuf6V3dxKKtz325S6qTjhrZjHR8pc7KtR/t76LhHL5BXkM4B +A9Wvohf76XjcKH6vLmUzR1lPvq90HKNt6zhO+fnX+7GPh+kYn+r9LpfyzhMO +xUd+0DGoK1OyinL7mpEmzWk6fvW/mtJB2aXkzOiXeToeMkWjYcp9Rgyx/CU6 +CqzXJpYRHPBvrdnkupzA/ghtMzHKXwJcPEX4CeyQX7rCoBw6+yO2UYhAkVfO +epqUjQ4ESXwWJZDYylNjSHnlt3c3eWgE9kzSlptSfutva0rIEmiokSq8lXJx +b/3bzQwChQjnvv8d6WgQ6qlMoErv3jBzymYtt5ZFqxH4cFv9MxZlEQvi4sWN +BN7UcB3Updz/KEvtrj6BnToKjSqUb20SqGs3JjD4rdwhKcrR7JMu40igYrjF +9xWUt6+fGBayoJ6nm636g1qvRGHwKVUrAiU3rtrUTXlIuk9yhx2BuZbXhGso +c87blQU5EXhus9ft/+MZK/jMLN6dwG0FBkrRlG0TDLsLfAjMea8X4khZbrHs +j8e7CVzScY5WpTx8mMHzfg+BglV/eS1R+1k1lp0zH0ZggRu/WBvlpJBVGrRI +Aje1Ff51hbLzp5h6vaMEsspDZ4MpM90nXXedJNDROXSDJuVaq/en05IIFCtR +Er1Dnbe0p/ZSt1IJfKA83nSAsierobwpk8BFRSEPNcpzGhU9y68QOKQdIpRD +nWdt0TjNYyS1f2XvW3dQ558reeppzj0C05Ki9o9S+fOKZ6/7vWpqfd2N4+co +75tySPjxjMDud025TVS+FXUze4PfEXhFy/CBpBQHDtpfCk/4QODeicDT16j8 +xWahFdeGCPTx7zNQo/y+elqrf5RA11+LQbpUvktcbUx05GHggeOcUfm1VLwl +WTIHVzIw+fqjDeep+sFJJ8lzQgz8Hd/jxkPZ9tTlvmZJBury3cp6R9WjpMBQ +bVM1BpLS3Nd2U/VqTlWkX92JgTuN60W+UvVv+op0nI47A9VXmMdqUJ5crcg0 +9GHgUNsZkYNUvRydMNy7ZQ8Dt4o/vjhO1deB6oBp9xMM9P2W5/NiOQeare4L +JxUzkKdToGWWqs/PHz4hU28wUIVj1rKG8lPNl47nKxjYac/DpfKbhEdiny7n +VTLwlGPxsp1Uvef0CijfbWGgzWbjrIPTJFze5w0DUwwskhRfNBol4eL7kIEv +8wzk7XpToTxCwgXbiISRJWq9wdEla4ZJSNNJejHLr4BaGcrB76n+c+oX6bJa +TgFHxNudHf8hYV8yb7iJhQJGht6eqe0lweTmrfzsbAUc0Hxz5UoDCb30m1e3 +/qWAzSpcOdZU/4zOLs2bvKqA5OWwXb/qqf4ZV5LrUKqA1byrRe2eUP3bNT9H +uEYBBa7ta+6n+vF63gvpiZ+o9+cq8WeySZDwORZ7WI2JuhFjfc45JNztOBqj +uJGJhkquU7XZJDhaRp3s0GMiKZ4/ppJFQqbeoePawESLounUnxkkCAnujxq1 +Z+KQ8GhaaDIJyyv9w4OOMFH7cGTK7xMk/BC19HWuY+LHNb1d56n5pDuU0bb3 +ORMn3Gb1L/iQUNswDzEvmZjy2QAzvUhIj74p//dbJi565zmfcSNBa0Dww9w3 +Jjp+Cap0sichjGz1uiKmiHnBLsnx1Lz0zdbJY2i3IppbXxLTlSVhKMXX+SCf +Ep6tC1m/vo0NYd/UGFqCSjhiER/S3MKGmW1zIyMiSqhxZmB4zwtqnuPJTNgj +rYRfzISarzWwQeto/R1fdSWUUL41zf2QDScClcRsdynhvcFh2fBSar7bPNyq +elUJybMebUJxbNgxdmTHP/rKqDG9yjeHml+HA1ZG3IlRwZsrFvY0PSqn/i8k +uc/UrUfh0dSlwuVlINqilMYe24BDWmazNOubIJNUYaevr4ZzqzRC5LxKIUfV +UEQsWB1VbS9YHIy/Ds3SpnoTGRooHiKqF367GIxk6tI132qih+IrPF57DYR5 +CiP9TmlhwbMJ28W5ApCLkzdxU9qImSIuu1Xl84Ff0fOew/ONWMR2amI+zwUN +llTFES9tFLl7kMGqugQH+0XrLbl0cN7o+FPmtWwYm0hx2pGjg9m5XJnjM+dh +m2bD5R3quvg6/b6X/7kMeDRh/GvmlS7uUxdtsPVMgzA17XevA/VQYJt4hID7 +WWCN7u5w49fH+3saJ/QPJ8JWJs1aqFAf9zufcf5pchpUYs9G1W3ahHtC2FnG +4bGwIdDwseK7Tejz43mQTNoxCHwUEn/ngAHuu9UeP29yBB7nd+z+sdYQnxxz +uyStGwGTfy/NaN43xOtDagO91/dDgOJN/svWRtjwwap6teVe+LHhvD5n3Ajj +nV3KV3kHwoOiX5+mkozxHa1orOOUH+ibR85YJhvjdvJkINchP7j7aVgwP9UY +Azp3eukF+wFHrn+TZaYx+tx7+rDayg9u5dSm5v1ljPMxqRWGa/0gPyXBcFu5 +MWaq3n8+VeoLf0auzsh5Y4wl4a93Z93xAfctCmgsZ4KtXfUWl254wkLHSuF6 +uglqm71OC8nwhPzA0V5LBRMs1fAws4ryhM+JlUfcVUzQhDZcZWnhCQebbCuO +aptgzDGnXK1BDzhrc1zugYUJOiiVn06le0CVa+dv3f0myFo2IGhQ6gbr/jhT +qVFrgpdDeJXqxpwhbSlIL7nOBFusFibD+5yBO9OC/PLUBHW/iyhpNDnDt3u8 +pflNJiiy7PvZN4XOUMUVnyP6xgTXun4KanJ2BvcLsUem/zHBWt9tbLcnTpBT +fVTv0SoW/m55cbE13xHWCoSS1i4szIuc7dI74wBF5ieix91YePoG4eB9yAG0 +T6SZn/dkoeuWxxLZAQ5gM87u7PZjoUcfc5cOOkDi26m5gFAWrvp9crfCvD3M +FsaYRcex0KDxjUdbuD28Mz7/puQmC3Pn9/uL7rGDkENFuTvKWfiV+7fWajc7 +mC6/GzjMZmFBaMKE1A47EGV0z2y8x0Iel62qbuvtwGqlrMzDWhbW+Lonz3fY +Qk1Hye43nSzccXs2sqTfBiyFH6gf7mZhwKXOX461NtC9rWma1svCwd2nFOUK +bWCy6nuS90cWli8/t4YryAbUC7TK/v3GQoX6p3SuMWuoeWd6OGWEhZPdRGbc +a2uwFN8FmuPU+kR+8cnesYagM4deR06xMHq2hVNw1BomaxMvS86ysP9JZe1Z +T2s4NX8xoGqehcXdvAmpYA0iuqVqXgss7LXcNlzKsIa8P6qmlpZYaOwkN/iB +1xr+A/BzjR0= + "]]}, + 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:eJwV13k4FWsYAHCRREiIQ5Yzx7GUNVu20/uiVGTNvi9ZKleKSlpQyM0SitSV +ELoqnDmtlkqUUCIRIhVudctWdoU79695fs88z8x87/e9yxD++x0Cubm4uESW +cXH9f53ub3rKTC7aXHNwpKpn2HRzRx7tqGn3KchS0rQNOEAHXNvqT+vOhL6O +gYusA1pw2O5GF093IaQJPdBlHkBYMyqZOdfFgdKgHYEL4XbwocZm/2RXHRQ/ +2JsUF+4LFsxv7390tQPfqpTPBWHhMNe1KWu8awC8mhYd1YNjod78etHrwgkY +8JmIcZpKB5kPlZ/91RZgHaHiHjOQA+KhPjf4zHnwnGn1aJdyPmRutKi2cVqJ +fGsXJdePXYOeHK3aHyJCWNJ+x7NH/TokF8W0ckutwQ0piRZvXG6A5IXBP89f +EcPBKbsQJeEyoKnejZ8tEcMTXx5+OiFZBtJ1iTFebDGsL956upVeBnLj6w8p +14thlvqIoZ9OGSjuDPet/krd/7DouNm1DHSWL+gP6ojj9vfXzPvzy8A2UmJI +u1kcyRu8h8rUy+GM447N7dNrcX+zDLFLrwKk77yS5l4mgf5SBi87WRVQLuY4 +s3GVBDq1R9rbW1TA23Zvdoa8BEZeeflZ26UCmPaRDPvtErjPZ5CZH1UBddZX +V7RdksDR2xP6jKoKWLCYetViIolbnFY9+bCODekl0TcXLCQxOoScKZNnA3MF +V5K6vSQaKH86F6XAhp3PBExTAyUx5ErDILcqGy6b02/vTJPEmn8cRIcN2WCA +VhdffJBEUQ0ZRxEXNkQYFvg0naLhXEryQl4aGyzzhSetUmj4OYlbtDaDDQy+ +40mvsmhYfe/63PsLbGjrcCbf/E3DYCEFM5G/2KARLsjT/4qGzzYU3rW5zoav +JUdKfkpL4ZbrKjSdx2zwFLcZWXdbCtfGHj57aZgNOseq4/JqpLB1J++w4xgb +BAZUJIgGKUxd1y0v9JMNlRU8oNQjhRG6YYsRM2yQsKpM11qSwviRjJx13CS0 +xTF1t1pJ4+X+DOt2CRK2jM1Hhw1Ko8Cyzl39LBKObr+w4cmwNI5/WwxSQRLK +C9TfiU1L44bzv8L2m5FAc/Q1rFy5Du/2cHtPWpAw/ODZDI/GOtRemVnTY0vC ++VPpkZei1uHz4rZ8UT8SBtYqhT0VksGIn588NseRILn/saykpAy+farvr3ya +hJ2Nri176DJoNlQRIJRAwr3oZLXVOjKoSYi6tSWRcPbD+Dc3VxkU5O8V104n +Qbu0OnisUAZf3fUSCswjIc7E3k/aQBZDfKPEkx+QsN077+cmM1mcduyz06si +QTj2+2mnnbIYFdsp0FdNQm59Qkm6ryw+/eU6J/eYhAeWVd9X/CmLppO5LdHP +SBh3VTg80SOL2yqjHp19TcL96HC+NUOyWDy/XGihnYSTuQ9zNEZlMWPs+8d9 +HSQIfnSp3sMthwr7P0lDFwnKwSlcHzfIYZOn1efqPhK8D02dfXlMDlffL3Ba +/YUExYtmMt8S5DCV/7WR5df/43eujC9dDlk9uuVx/5IQ/Xt9m1mRHE76Tpl+ +/k5C1mnvtZUv5ZCRJq6ROE7Cy4znV4tl5dH3Om8hMUfF+7b4xnplebQRcL+t +OE+Ce6df3ceN8vjv/UZPpV8kfKX9HlpnIY91BpnRsgsk8ORrbcgMk8dYPY/J +AS4OGJVfunPysTzykYZRL/g4sKXr1cJoozzyW/9dkbySAzZcy7f5tMvjDDts +bjs/BwIcwnrgH3nsbXdqqBLggMUxIiaWl46fP/1yOibEgRera64ZCNDx2EiG +FlOYA3ZFzo3jwnSU+NeA0UzZoyV5jR+Njs2qTGshEQ6Ey09fM1WlY2BPXHu4 +KAembqc3zmnS0dT81mFuMQ5Eb1cdIXUp+7XqZ1BOOOCrz9hMx2LzOKEScQ5c +rm9u5LanY8MWC6UyCQ7IuwaOVDnRkX90sFpZkgNFw0trItzpyO44d/Aq5Yq1 +eh6DAXRcl3hjayKNA0+Dr47UH6ZjaLNx1kZpDuz4bSh6/BgdV9dnb82i/Cq9 +Q183lvr+P8xkpin3VPLHFv1JxxV6RlCxjgPeNkVFnml07DT8kMInw4Ghgc1N +4ufpOFiTyONFeXRVpGhCLh1zU7PDlihH5AtvYhXQ8aWe1+6dshyY1S31mCqm +4z6RwYRsyjze/UWBFXR8Ejtuw5DjQNLPqCbZO3RMe9s7E0BZ+IzYaOcDOgr1 +W7cWUqaxt2+yqKPjpfcXBGnyHLiyZdBjsYGOYiPtETaUGT0nYu+9oOPmvj2C +pyj//QetOKyNjuf6V3dxKKtz325S6qTjhrZjHR8pc7KtR/t76LhHL5BXkM4B +A9Wvohf76XjcKH6vLmUzR1lPvq90HKNt6zhO+fnX+7GPh+kYn+r9LpfyzhMO +xUd+0DGoK1OyinL7mpEmzWk6fvW/mtJB2aXkzOiXeToeMkWjYcp9Rgyx/CU6 +CqzXJpYRHPBvrdnkupzA/ghtMzHKXwJcPEX4CeyQX7rCoBw6+yO2UYhAkVfO +epqUjQ4ESXwWJZDYylNjSHnlt3c3eWgE9kzSlptSfutva0rIEmiokSq8lXJx +b/3bzQwChQjnvv8d6WgQ6qlMoErv3jBzymYtt5ZFqxH4cFv9MxZlEQvi4sWN +BN7UcB3Updz/KEvtrj6BnToKjSqUb20SqGs3JjD4rdwhKcrR7JMu40igYrjF +9xWUt6+fGBayoJ6nm636g1qvRGHwKVUrAiU3rtrUTXlIuk9yhx2BuZbXhGso +c87blQU5EXhus9ft/+MZK/jMLN6dwG0FBkrRlG0TDLsLfAjMea8X4khZbrHs +j8e7CVzScY5WpTx8mMHzfg+BglV/eS1R+1k1lp0zH0ZggRu/WBvlpJBVGrRI +Aje1Ff51hbLzp5h6vaMEsspDZ4MpM90nXXedJNDROXSDJuVaq/en05IIFCtR +Er1Dnbe0p/ZSt1IJfKA83nSAsierobwpk8BFRSEPNcpzGhU9y68QOKQdIpRD +nWdt0TjNYyS1f2XvW3dQ558reeppzj0C05Ki9o9S+fOKZ6/7vWpqfd2N4+co +75tySPjxjMDud025TVS+FXUze4PfEXhFy/CBpBQHDtpfCk/4QODeicDT16j8 +xWahFdeGCPTx7zNQo/y+elqrf5RA11+LQbpUvktcbUx05GHggeOcUfm1VLwl +WTIHVzIw+fqjDeep+sFJJ8lzQgz8Hd/jxkPZ9tTlvmZJBury3cp6R9WjpMBQ +bVM1BpLS3Nd2U/VqTlWkX92JgTuN60W+UvVv+op0nI47A9VXmMdqUJ5crcg0 +9GHgUNsZkYNUvRydMNy7ZQ8Dt4o/vjhO1deB6oBp9xMM9P2W5/NiOQeare4L +JxUzkKdToGWWqs/PHz4hU28wUIVj1rKG8lPNl47nKxjYac/DpfKbhEdiny7n +VTLwlGPxsp1Uvef0CijfbWGgzWbjrIPTJFze5w0DUwwskhRfNBol4eL7kIEv +8wzk7XpToTxCwgXbiISRJWq9wdEla4ZJSNNJejHLr4BaGcrB76n+c+oX6bJa +TgFHxNudHf8hYV8yb7iJhQJGht6eqe0lweTmrfzsbAUc0Hxz5UoDCb30m1e3 +/qWAzSpcOdZU/4zOLs2bvKqA5OWwXb/qqf4ZV5LrUKqA1byrRe2eUP3bNT9H +uEYBBa7ta+6n+vF63gvpiZ+o9+cq8WeySZDwORZ7WI2JuhFjfc45JNztOBqj +uJGJhkquU7XZJDhaRp3s0GMiKZ4/ppJFQqbeoePawESLounUnxkkCAnujxq1 +Z+KQ8GhaaDIJyyv9w4OOMFH7cGTK7xMk/BC19HWuY+LHNb1d56n5pDuU0bb3 +ORMn3Gb1L/iQUNswDzEvmZjy2QAzvUhIj74p//dbJi565zmfcSNBa0Dww9w3 +Jjp+Cap0sichjGz1uiKmiHnBLsnx1Lz0zdbJY2i3IppbXxLTlSVhKMXX+SCf +Ep6tC1m/vo0NYd/UGFqCSjhiER/S3MKGmW1zIyMiSqhxZmB4zwtqnuPJTNgj +rYRfzISarzWwQeto/R1fdSWUUL41zf2QDScClcRsdynhvcFh2fBSar7bPNyq +elUJybMebUJxbNgxdmTHP/rKqDG9yjeHml+HA1ZG3IlRwZsrFvY0PSqn/i8k +uc/UrUfh0dSlwuVlINqilMYe24BDWmazNOubIJNUYaevr4ZzqzRC5LxKIUfV +UEQsWB1VbS9YHIy/Ds3SpnoTGRooHiKqF367GIxk6tI132qih+IrPF57DYR5 +CiP9TmlhwbMJ28W5ApCLkzdxU9qImSIuu1Xl84Ff0fOew/ONWMR2amI+zwUN +llTFES9tFLl7kMGqugQH+0XrLbl0cN7o+FPmtWwYm0hx2pGjg9m5XJnjM+dh +m2bD5R3quvg6/b6X/7kMeDRh/GvmlS7uUxdtsPVMgzA17XevA/VQYJt4hID7 +WWCN7u5w49fH+3saJ/QPJ8JWJs1aqFAf9zufcf5pchpUYs9G1W3ahHtC2FnG +4bGwIdDwseK7Tejz43mQTNoxCHwUEn/ngAHuu9UeP29yBB7nd+z+sdYQnxxz +uyStGwGTfy/NaN43xOtDagO91/dDgOJN/svWRtjwwap6teVe+LHhvD5n3Ajj +nV3KV3kHwoOiX5+mkozxHa1orOOUH+ibR85YJhvjdvJkINchP7j7aVgwP9UY +Azp3eukF+wFHrn+TZaYx+tx7+rDayg9u5dSm5v1ljPMxqRWGa/0gPyXBcFu5 +MWaq3n8+VeoLf0auzsh5Y4wl4a93Z93xAfctCmgsZ4KtXfUWl254wkLHSuF6 +uglqm71OC8nwhPzA0V5LBRMs1fAws4ryhM+JlUfcVUzQhDZcZWnhCQebbCuO +aptgzDGnXK1BDzhrc1zugYUJOiiVn06le0CVa+dv3f0myFo2IGhQ6gbr/jhT +qVFrgpdDeJXqxpwhbSlIL7nOBFusFibD+5yBO9OC/PLUBHW/iyhpNDnDt3u8 +pflNJiiy7PvZN4XOUMUVnyP6xgTXun4KanJ2BvcLsUem/zHBWt9tbLcnTpBT +fVTv0SoW/m55cbE13xHWCoSS1i4szIuc7dI74wBF5ieix91YePoG4eB9yAG0 +T6SZn/dkoeuWxxLZAQ5gM87u7PZjoUcfc5cOOkDi26m5gFAWrvp9crfCvD3M +FsaYRcex0KDxjUdbuD28Mz7/puQmC3Pn9/uL7rGDkENFuTvKWfiV+7fWajc7 +mC6/GzjMZmFBaMKE1A47EGV0z2y8x0Iel62qbuvtwGqlrMzDWhbW+Lonz3fY +Qk1Hye43nSzccXs2sqTfBiyFH6gf7mZhwKXOX461NtC9rWma1svCwd2nFOUK +bWCy6nuS90cWli8/t4YryAbUC7TK/v3GQoX6p3SuMWuoeWd6OGWEhZPdRGbc +a2uwFN8FmuPU+kR+8cnesYagM4deR06xMHq2hVNw1BomaxMvS86ysP9JZe1Z +T2s4NX8xoGqehcXdvAmpYA0iuqVqXgss7LXcNlzKsIa8P6qmlpZYaOwkN/iB +1xr+A/BzjR0= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07082020406062757}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.07082020406062757}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJwV13k4FWsYAHCRREiIQ5Yzx7GUNVu20/uiVGTNvi9ZKleKSlpQyM0SitSV +ELoqnDmtlkqUUCIRIhVudctWdoU79695fs88z8x87/e9yxD++x0Cubm4uESW +cXH9f53ub3rKTC7aXHNwpKpn2HRzRx7tqGn3KchS0rQNOEAHXNvqT+vOhL6O +gYusA1pw2O5GF093IaQJPdBlHkBYMyqZOdfFgdKgHYEL4XbwocZm/2RXHRQ/ +2JsUF+4LFsxv7390tQPfqpTPBWHhMNe1KWu8awC8mhYd1YNjod78etHrwgkY +8JmIcZpKB5kPlZ/91RZgHaHiHjOQA+KhPjf4zHnwnGn1aJdyPmRutKi2cVqJ +fGsXJdePXYOeHK3aHyJCWNJ+x7NH/TokF8W0ckutwQ0piRZvXG6A5IXBP89f +EcPBKbsQJeEyoKnejZ8tEcMTXx5+OiFZBtJ1iTFebDGsL956upVeBnLj6w8p +14thlvqIoZ9OGSjuDPet/krd/7DouNm1DHSWL+gP6ojj9vfXzPvzy8A2UmJI +u1kcyRu8h8rUy+GM447N7dNrcX+zDLFLrwKk77yS5l4mgf5SBi87WRVQLuY4 +s3GVBDq1R9rbW1TA23Zvdoa8BEZeeflZ26UCmPaRDPvtErjPZ5CZH1UBddZX +V7RdksDR2xP6jKoKWLCYetViIolbnFY9+bCODekl0TcXLCQxOoScKZNnA3MF +V5K6vSQaKH86F6XAhp3PBExTAyUx5ErDILcqGy6b02/vTJPEmn8cRIcN2WCA +VhdffJBEUQ0ZRxEXNkQYFvg0naLhXEryQl4aGyzzhSetUmj4OYlbtDaDDQy+ +40mvsmhYfe/63PsLbGjrcCbf/E3DYCEFM5G/2KARLsjT/4qGzzYU3rW5zoav +JUdKfkpL4ZbrKjSdx2zwFLcZWXdbCtfGHj57aZgNOseq4/JqpLB1J++w4xgb +BAZUJIgGKUxd1y0v9JMNlRU8oNQjhRG6YYsRM2yQsKpM11qSwviRjJx13CS0 +xTF1t1pJ4+X+DOt2CRK2jM1Hhw1Ko8Cyzl39LBKObr+w4cmwNI5/WwxSQRLK +C9TfiU1L44bzv8L2m5FAc/Q1rFy5Du/2cHtPWpAw/ODZDI/GOtRemVnTY0vC ++VPpkZei1uHz4rZ8UT8SBtYqhT0VksGIn588NseRILn/saykpAy+farvr3ya +hJ2Nri176DJoNlQRIJRAwr3oZLXVOjKoSYi6tSWRcPbD+Dc3VxkU5O8V104n +Qbu0OnisUAZf3fUSCswjIc7E3k/aQBZDfKPEkx+QsN077+cmM1mcduyz06si +QTj2+2mnnbIYFdsp0FdNQm59Qkm6ryw+/eU6J/eYhAeWVd9X/CmLppO5LdHP +SBh3VTg80SOL2yqjHp19TcL96HC+NUOyWDy/XGihnYSTuQ9zNEZlMWPs+8d9 +HSQIfnSp3sMthwr7P0lDFwnKwSlcHzfIYZOn1efqPhK8D02dfXlMDlffL3Ba +/YUExYtmMt8S5DCV/7WR5df/43eujC9dDlk9uuVx/5IQ/Xt9m1mRHE76Tpl+ +/k5C1mnvtZUv5ZCRJq6ROE7Cy4znV4tl5dH3Om8hMUfF+7b4xnplebQRcL+t +OE+Ce6df3ceN8vjv/UZPpV8kfKX9HlpnIY91BpnRsgsk8ORrbcgMk8dYPY/J +AS4OGJVfunPysTzykYZRL/g4sKXr1cJoozzyW/9dkbySAzZcy7f5tMvjDDts +bjs/BwIcwnrgH3nsbXdqqBLggMUxIiaWl46fP/1yOibEgRera64ZCNDx2EiG +FlOYA3ZFzo3jwnSU+NeA0UzZoyV5jR+Njs2qTGshEQ6Ey09fM1WlY2BPXHu4 +KAembqc3zmnS0dT81mFuMQ5Eb1cdIXUp+7XqZ1BOOOCrz9hMx2LzOKEScQ5c +rm9u5LanY8MWC6UyCQ7IuwaOVDnRkX90sFpZkgNFw0trItzpyO44d/Aq5Yq1 +eh6DAXRcl3hjayKNA0+Dr47UH6ZjaLNx1kZpDuz4bSh6/BgdV9dnb82i/Cq9 +Q183lvr+P8xkpin3VPLHFv1JxxV6RlCxjgPeNkVFnml07DT8kMInw4Ghgc1N +4ufpOFiTyONFeXRVpGhCLh1zU7PDlihH5AtvYhXQ8aWe1+6dshyY1S31mCqm +4z6RwYRsyjze/UWBFXR8Ejtuw5DjQNLPqCbZO3RMe9s7E0BZ+IzYaOcDOgr1 +W7cWUqaxt2+yqKPjpfcXBGnyHLiyZdBjsYGOYiPtETaUGT0nYu+9oOPmvj2C +pyj//QetOKyNjuf6V3dxKKtz325S6qTjhrZjHR8pc7KtR/t76LhHL5BXkM4B +A9Wvohf76XjcKH6vLmUzR1lPvq90HKNt6zhO+fnX+7GPh+kYn+r9LpfyzhMO +xUd+0DGoK1OyinL7mpEmzWk6fvW/mtJB2aXkzOiXeToeMkWjYcp9Rgyx/CU6 +CqzXJpYRHPBvrdnkupzA/ghtMzHKXwJcPEX4CeyQX7rCoBw6+yO2UYhAkVfO +epqUjQ4ESXwWJZDYylNjSHnlt3c3eWgE9kzSlptSfutva0rIEmiokSq8lXJx +b/3bzQwChQjnvv8d6WgQ6qlMoErv3jBzymYtt5ZFqxH4cFv9MxZlEQvi4sWN +BN7UcB3Updz/KEvtrj6BnToKjSqUb20SqGs3JjD4rdwhKcrR7JMu40igYrjF +9xWUt6+fGBayoJ6nm636g1qvRGHwKVUrAiU3rtrUTXlIuk9yhx2BuZbXhGso +c87blQU5EXhus9ft/+MZK/jMLN6dwG0FBkrRlG0TDLsLfAjMea8X4khZbrHs +j8e7CVzScY5WpTx8mMHzfg+BglV/eS1R+1k1lp0zH0ZggRu/WBvlpJBVGrRI +Aje1Ff51hbLzp5h6vaMEsspDZ4MpM90nXXedJNDROXSDJuVaq/en05IIFCtR +Er1Dnbe0p/ZSt1IJfKA83nSAsierobwpk8BFRSEPNcpzGhU9y68QOKQdIpRD +nWdt0TjNYyS1f2XvW3dQ558reeppzj0C05Ki9o9S+fOKZ6/7vWpqfd2N4+co +75tySPjxjMDud025TVS+FXUze4PfEXhFy/CBpBQHDtpfCk/4QODeicDT16j8 +xWahFdeGCPTx7zNQo/y+elqrf5RA11+LQbpUvktcbUx05GHggeOcUfm1VLwl +WTIHVzIw+fqjDeep+sFJJ8lzQgz8Hd/jxkPZ9tTlvmZJBury3cp6R9WjpMBQ +bVM1BpLS3Nd2U/VqTlWkX92JgTuN60W+UvVv+op0nI47A9VXmMdqUJ5crcg0 +9GHgUNsZkYNUvRydMNy7ZQ8Dt4o/vjhO1deB6oBp9xMM9P2W5/NiOQeare4L +JxUzkKdToGWWqs/PHz4hU28wUIVj1rKG8lPNl47nKxjYac/DpfKbhEdiny7n +VTLwlGPxsp1Uvef0CijfbWGgzWbjrIPTJFze5w0DUwwskhRfNBol4eL7kIEv +8wzk7XpToTxCwgXbiISRJWq9wdEla4ZJSNNJejHLr4BaGcrB76n+c+oX6bJa +TgFHxNudHf8hYV8yb7iJhQJGht6eqe0lweTmrfzsbAUc0Hxz5UoDCb30m1e3 +/qWAzSpcOdZU/4zOLs2bvKqA5OWwXb/qqf4ZV5LrUKqA1byrRe2eUP3bNT9H +uEYBBa7ta+6n+vF63gvpiZ+o9+cq8WeySZDwORZ7WI2JuhFjfc45JNztOBqj +uJGJhkquU7XZJDhaRp3s0GMiKZ4/ppJFQqbeoePawESLounUnxkkCAnujxq1 +Z+KQ8GhaaDIJyyv9w4OOMFH7cGTK7xMk/BC19HWuY+LHNb1d56n5pDuU0bb3 +ORMn3Gb1L/iQUNswDzEvmZjy2QAzvUhIj74p//dbJi565zmfcSNBa0Dww9w3 +Jjp+Cap0sichjGz1uiKmiHnBLsnx1Lz0zdbJY2i3IppbXxLTlSVhKMXX+SCf +Ep6tC1m/vo0NYd/UGFqCSjhiER/S3MKGmW1zIyMiSqhxZmB4zwtqnuPJTNgj +rYRfzISarzWwQeto/R1fdSWUUL41zf2QDScClcRsdynhvcFh2fBSar7bPNyq +elUJybMebUJxbNgxdmTHP/rKqDG9yjeHml+HA1ZG3IlRwZsrFvY0PSqn/i8k +uc/UrUfh0dSlwuVlINqilMYe24BDWmazNOubIJNUYaevr4ZzqzRC5LxKIUfV +UEQsWB1VbS9YHIy/Ds3SpnoTGRooHiKqF367GIxk6tI132qih+IrPF57DYR5 +CiP9TmlhwbMJ28W5ApCLkzdxU9qImSIuu1Xl84Ff0fOew/ONWMR2amI+zwUN +llTFES9tFLl7kMGqugQH+0XrLbl0cN7o+FPmtWwYm0hx2pGjg9m5XJnjM+dh +m2bD5R3quvg6/b6X/7kMeDRh/GvmlS7uUxdtsPVMgzA17XevA/VQYJt4hID7 +WWCN7u5w49fH+3saJ/QPJ8JWJs1aqFAf9zufcf5pchpUYs9G1W3ahHtC2FnG +4bGwIdDwseK7Tejz43mQTNoxCHwUEn/ngAHuu9UeP29yBB7nd+z+sdYQnxxz +uyStGwGTfy/NaN43xOtDagO91/dDgOJN/svWRtjwwap6teVe+LHhvD5n3Ajj +nV3KV3kHwoOiX5+mkozxHa1orOOUH+ibR85YJhvjdvJkINchP7j7aVgwP9UY +Azp3eukF+wFHrn+TZaYx+tx7+rDayg9u5dSm5v1ljPMxqRWGa/0gPyXBcFu5 +MWaq3n8+VeoLf0auzsh5Y4wl4a93Z93xAfctCmgsZ4KtXfUWl254wkLHSuF6 +uglqm71OC8nwhPzA0V5LBRMs1fAws4ryhM+JlUfcVUzQhDZcZWnhCQebbCuO +aptgzDGnXK1BDzhrc1zugYUJOiiVn06le0CVa+dv3f0myFo2IGhQ6gbr/jhT +qVFrgpdDeJXqxpwhbSlIL7nOBFusFibD+5yBO9OC/PLUBHW/iyhpNDnDt3u8 +pflNJiiy7PvZN4XOUMUVnyP6xgTXun4KanJ2BvcLsUem/zHBWt9tbLcnTpBT +fVTv0SoW/m55cbE13xHWCoSS1i4szIuc7dI74wBF5ieix91YePoG4eB9yAG0 +T6SZn/dkoeuWxxLZAQ5gM87u7PZjoUcfc5cOOkDi26m5gFAWrvp9crfCvD3M +FsaYRcex0KDxjUdbuD28Mz7/puQmC3Pn9/uL7rGDkENFuTvKWfiV+7fWajc7 +mC6/GzjMZmFBaMKE1A47EGV0z2y8x0Iel62qbuvtwGqlrMzDWhbW+Lonz3fY +Qk1Hye43nSzccXs2sqTfBiyFH6gf7mZhwKXOX461NtC9rWma1svCwd2nFOUK +bWCy6nuS90cWli8/t4YryAbUC7TK/v3GQoX6p3SuMWuoeWd6OGWEhZPdRGbc +a2uwFN8FmuPU+kR+8cnesYagM4deR06xMHq2hVNw1BomaxMvS86ysP9JZe1Z +T2s4NX8xoGqehcXdvAmpYA0iuqVqXgss7LXcNlzKsIa8P6qmlpZYaOwkN/iB +1xr+A/BzjR0= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07082020406062757}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJxTTMoPSmViYGCQB2IQDQNLGAINkrnK7CG8D/YFW/1i+sInQPkMDkmGr6Kq +58+C8jkczrencxoxLYLyBRw0tNtWMyssg/JFHAL6mFwO9qyE8iUc3u708W0y +XwPlyzi85X7Rai2+DspXcJimnKJwXm89lK/koKgQ78TaDuOrOFidyz201wjG +V3PYGsTxRMgdpl/D4cmtAMNz92HmazmUHVGU9hBfDeXrOAA5s8O4YO7RcyjZ +dKVq/0WYew0clAL+Nnu0LYHyDR1s9EWlP1vB/GfkcNon868u4wIo39jhkHfB +K+aTs6F8E4edQeebAu5Nh/JNHeT5a8u1vadA+WYOttd6eIrEJ0L55g6HXZpF +bFp7oHwLB/5r/y3PTG+H8i0dus7EPPgU0QzlWzkw5q6OTK+ph/KtHd7OVGXM +yqqE8m0cpK+FiLXGlkD5tg4f5zGfFjQqgPLtHO40Ld3VMD3THgDPenlb + "]]}, + 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:eJxTTMoPSmViYGCQB2IQDQNLGAINkrnK7CG8D/YFW/1i+sInQPkMDkmGr6Kq +58+C8jkczrencxoxLYLyBRw0tNtWMyssg/JFHAL6mFwO9qyE8iUc3u708W0y +XwPlyzi85X7Rai2+DspXcJimnKJwXm89lK/koKgQ78TaDuOrOFidyz201wjG +V3PYGsTxRMgdpl/D4cmtAMNz92HmazmUHVGU9hBfDeXrOAA5s8O4YO7RcyjZ +dKVq/0WYew0clAL+Nnu0LYHyDR1s9EWlP1vB/GfkcNon868u4wIo39jhkHfB +K+aTs6F8E4edQeebAu5Nh/JNHeT5a8u1vadA+WYOttd6eIrEJ0L55g6HXZpF +bFp7oHwLB/5r/y3PTG+H8i0dus7EPPgU0QzlWzkw5q6OTK+ph/KtHd7OVGXM +yqqE8m0cpK+FiLXGlkD5tg4f5zGfFjQqgPLtHO40Ld3VMD3THgDPenlb + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.061577}}, + "Frame" -> {{False, 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.061577}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGCQB2IQDQNLGAINkrnK7CG8D/YFW/1i+sInQPkMDkmGr6Kq +58+C8jkczrencxoxLYLyBRw0tNtWMyssg/JFHAL6mFwO9qyE8iUc3u708W0y +XwPlyzi85X7Rai2+DspXcJimnKJwXm89lK/koKgQ78TaDuOrOFidyz201wjG +V3PYGsTxRMgdpl/D4cmtAMNz92HmazmUHVGU9hBfDeXrOAA5s8O4YO7RcyjZ +dKVq/0WYew0clAL+Nnu0LYHyDR1s9EWlP1vB/GfkcNon868u4wIo39jhkHfB +K+aTs6F8E4edQeebAu5Nh/JNHeT5a8u1vadA+WYOttd6eIrEJ0L55g6HXZpF +bFp7oHwLB/5r/y3PTG+H8i0dus7EPPgU0QzlWzkw5q6OTK+ph/KtHd7OVGXM +yqqE8m0cpK+FiLXGlkD5tg4f5zGfFjQqgPLtHO40Ld3VMD3THgDPenlb + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.061577}}, + "Frame" -> {{False, 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.07082020406062757}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9939617821357527`*^9}, + CellLabel-> + "Out[141]=",ExpressionUUID->"9442fd73-ba75-44dc-a0f0-06cb5a334bdf"] +}, Open ]], Cell[CellGroupData[{ @@ -7262,18 +14837,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[\\\"1.7628833496502375`*^-157\\\", \ +RowBox[{\\\"\ +552513857212233842570175958778312308519209260189278753959051363142168\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"18\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1583212683407106418618000954093361543354777600000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 142, 73, 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993961782165825*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"cd303d7b-6027-440b-b77e-cd3051c0547b"], -Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"6941b2ce-51d7-0b43-b524-1e41573ef5f9"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.4960067157969793`*^-160\\\", \ +RowBox[{\\\"\ +192330073695578600598678251250730514595536743471887934253145779509789\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"22\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1163350940137443209261321198991532417980825600000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 142, 74, 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993961782171633*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"090935fe-18e7-47c6-b5d2-708fabfb089c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.932995855524121`*^-163\\\", \ +RowBox[{\\\"\ +692388265304082962155241704502629852543932276498796563311324806235240\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"25\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8063384494795553340756316369516704730972160000000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 142, 75, 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993961782177444*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"7560182f-2c17-4b4d-ac48-11d0095608a5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 142, 76, 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993961782182535*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"59b6966e-f5ef-4099-ba1b-a580b95337f1"], + +Cell[BoxData["10.608209827194274`"], "Output", + CellChangeTimes->{3.993961815112237*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"3acd7bf3-89fe-4631-a682-5791760c2cf8"] }, Open ]], Cell[CellGroupData[{ @@ -7340,27 +14975,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.039171903475667`*^-205\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 143, 77, + 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993961815138357*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"a56839f8-7d21-4cc3-aae8-81038ddd21e7"], 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.77677982622047`*^-210\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 143, 78, + 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993961815143539*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"12fa7bfc-44e7-4a85-bec1-0776f13487d5"], -Cell[BoxData["0.576602516746911`"], "Output",ExpressionUUID->"7a6165f1-f4e7-1f40-9890-5c13218f6833"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.037944482818637`*^-215\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 143, 79, + 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993961815148878*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"df4f730f-7541-45f3-b732-12e610929a90"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 143, 80, 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993961815153741*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"97990ad0-0cfd-49ce-a2f3-141f7d808aa2"], + +Cell[BoxData["0.5434825194274011`"], "Output", + CellChangeTimes->{3.993961819795278*^9}, + CellLabel-> + "Out[143]=",ExpressionUUID->"e7ddc101-62f5-4ea4-b0c8-2295fc7b9084"] }, Open ]], Cell[CellGroupData[{ @@ -7381,8 +15061,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 +15106,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.039171903475667`*^-205\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 144, 81, + 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939618198215227`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"fd3e5ab6-657d-4aca-99ce-32e7e4e9dcad"], 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.77677982622047`*^-210\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 144, 82, + 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993961819827289*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"b67c9f51-2760-4624-85fa-831e58082fa9"], -Cell[BoxData["3.32141991539404`"], "Output",ExpressionUUID->"c7a13a95-1179-054f-9108-fe96e6564880"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.037944482818637`*^-215\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 144, 83, + 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993961819834036*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"e97091ba-7709-462e-88ee-5f5d4e289149"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 144, 84, 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993961819839645*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"1a5e9754-b4f9-4048-b7d6-99cb27e4dc87"], + +Cell[BoxData["31.481435396455716`"], "Output", + CellChangeTimes->{3.993961824244499*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"91d30bc6-4bbe-454d-9561-28d1b1a1a985"] }, Open ]], Cell[CellGroupData[{ @@ -7468,8 +15192,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 +15237,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.039171903475667`*^-205\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 145, 85, + 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993961824274794*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"48aefad8-e0a5-44a6-969d-63a00ca673ac"], 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.77677982622047`*^-210\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 145, 86, + 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993961824280026*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"728057e9-3ad2-45da-9527-8d7df9467c41"], -Cell[BoxData["18.419619005098298`"], "Output",ExpressionUUID->"7d22c643-14ba-7245-8972-7de9bf840536"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.037944482818637`*^-215\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 145, 87, + 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99396182428609*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"bfe2b59a-b019-467a-850e-131ff524fce5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 145, 88, 31385712205708718260, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993961824290763*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"c5023676-f219-4feb-b2fe-c76d4d9f2de0"], + +Cell[BoxData["4.636841420866732`"], "Output", + CellChangeTimes->{3.9939618271113873`*^9}, + CellLabel-> + "Out[145]=",ExpressionUUID->"83df2ffc-8c20-4088-b5d7-20b0045d88e5"] }, Open ]], Cell[CellGroupData[{ @@ -7543,17 +15311,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.04498287357867626`"], "Output", + CellChangeTimes->{3.993961827137925*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"f3381a26-dcc8-477e-a566-ee2634303afe"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input", + CellLabel-> + "In[147]:=",ExpressionUUID->"c07660da-eaef-4a6e-abe8-c49a8dc72d02"] }, -WindowSize->{718.5, 729.75}, -WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +Evaluator->"6", +WindowSize->{714, 435}, +WindowMargins->{{Automatic, 3}, {444, 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->"370f2b53-61d0-7c4a-817b-bf9dca2c7a0a" ] @@ -7568,354 +15345,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, 298, 5, 29, "Input",ExpressionUUID->"460b0626-5ad0-4ea3-b2ce-b8446d7055b3"], +Cell[877, 29, 244, 4, 33, "Output",ExpressionUUID->"9df04a6c-05b9-4624-a428-21c0f55fdb5a"] }, 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[1158, 38, 248, 4, 29, "Input",ExpressionUUID->"d0113dd2-8b64-4508-8488-4ab5a0d41256"], +Cell[1409, 44, 251, 4, 33, "Output",ExpressionUUID->"0ecf59e5-fe2f-4367-a54f-bc7577640f82"] }, 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[1697, 53, 223, 4, 29, "Input",ExpressionUUID->"9aea1bcc-46c5-476a-a835-331029b1c2ae"], +Cell[1923, 59, 254, 4, 33, "Output",ExpressionUUID->"8de7a201-75c0-4276-bbad-8084438d64a3"] }, 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[2214, 68, 175, 3, 29, "Input",ExpressionUUID->"c756d8b7-5289-4522-a678-1217a9bba1cc"], +Cell[2392, 73, 251, 4, 33, "Output",ExpressionUUID->"5a04baad-a40c-4745-8ed2-bde44971013a"] }, 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[2680, 82, 257, 7, 42, "Input",ExpressionUUID->"92c94db7-5b76-4153-a58b-225ed9280e8e"], +Cell[2940, 91, 251, 4, 33, "Output",ExpressionUUID->"57b0c74a-b504-492d-8427-4bd49d3703e8"] }, 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[3228, 100, 131, 2, 29, "Input",ExpressionUUID->"5d37a845-ac3d-45da-9b05-088deec0590f"], +Cell[3362, 104, 251, 4, 33, "Output",ExpressionUUID->"58772bc8-384c-4726-9d2c-663dec581c4b"] }, 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[3650, 113, 276, 6, 29, "Input",ExpressionUUID->"4c47f63e-17d8-4cd0-a871-76f03158ca85"], +Cell[3929, 121, 266, 4, 33, "Output",ExpressionUUID->"046b64c5-5dcd-4ed1-9bf3-e9704e3af711"] }, 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[4232, 130, 257, 7, 29, "Input",ExpressionUUID->"fdd5929c-ad63-4ec1-a918-88d602253c38"], +Cell[4492, 139, 265, 4, 33, "Output",ExpressionUUID->"22cca180-cd1f-41af-b523-8bbfd986fe95"] }, 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[4794, 148, 229, 4, 29, "Input",ExpressionUUID->"dbc1098d-78cc-4e7f-a0c4-b0a690e03a3d"], +Cell[5026, 154, 227, 3, 33, "Output",ExpressionUUID->"66dceb5d-4cbc-4129-8f98-346553ec92a7"] }, 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[5290, 162, 225, 4, 29, "Input",ExpressionUUID->"4101e0ec-9081-49e1-8b68-a53e438073d6"], +Cell[5518, 168, 226, 3, 33, "Output",ExpressionUUID->"7874b360-c095-45f5-a465-c99480638a98"] }, 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[5781, 176, 129, 2, 29, "Input",ExpressionUUID->"a8b59773-9ff7-43d5-80c4-6adabe07f82c"], +Cell[5913, 180, 250, 4, 33, "Output",ExpressionUUID->"dff8e41a-0935-42c3-afd3-58b63f81345e"] }, 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[6200, 189, 129, 2, 29, "Input",ExpressionUUID->"1545e060-e5a9-49c7-8573-a6126541080b"], +Cell[6332, 193, 250, 4, 33, "Output",ExpressionUUID->"bc3c5154-0f83-48fa-aeda-e47f8008f284"] }, 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[6619, 202, 557, 19, 79, "Input",ExpressionUUID->"d9fb462b-2951-4a97-89a1-84a400d4aeec"], +Cell[7179, 223, 266, 4, 33, "Output",ExpressionUUID->"ad4f7d3f-a099-45f6-8cd0-60622e23f595"] }, 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[7482, 232, 557, 19, 79, "Input",ExpressionUUID->"71ff1c0a-b605-4e61-87b5-8ca30ee1e510"], +Cell[8042, 253, 269, 4, 33, "Output",ExpressionUUID->"a4b40b29-3673-4eca-a9cc-eacef3c72b17"] }, 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[8348, 262, 1588, 50, 158, "Input",ExpressionUUID->"c8051a63-8573-46f9-a48d-795423aac709"], +Cell[9939, 314, 267, 4, 33, "Output",ExpressionUUID->"d115715d-5abe-46fc-b8c3-76bdc30a7a93"] }, 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[10243, 323, 1422, 46, 158, "Input",ExpressionUUID->"27a5d96c-9c34-4873-91cd-05419dd6dd9e"], +Cell[11668, 371, 281, 5, 33, "Output",ExpressionUUID->"1153032f-3090-4a0c-a3ae-d0b191399501"] }, 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[11986, 381, 1422, 46, 158, "Input",ExpressionUUID->"02c993a4-ec47-4c3a-af44-b04453195ef2"], +Cell[13411, 429, 284, 5, 33, "Output",ExpressionUUID->"1229569b-5f51-48f8-a72c-41be3e8e20b7"] }, 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[13732, 439, 1588, 50, 158, "Input",ExpressionUUID->"b4aabf7f-0746-4b03-9188-c9713af32470"], +Cell[15323, 491, 261, 4, 33, "Output",ExpressionUUID->"6db632de-fe04-4aa4-a053-7ea45dd49417"] }, 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[15621, 500, 131, 2, 29, "Input",ExpressionUUID->"a02356d7-a842-4b7c-b4f2-80b13bf6d278"], +Cell[15755, 504, 248, 4, 33, "Output",ExpressionUUID->"be558887-a8a7-49b9-b61f-04bc0d991dfe"] }, 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[16040, 513, 133, 2, 29, "Input",ExpressionUUID->"3b0fc9ae-d012-446d-9441-24e13d39410e"], +Cell[16176, 517, 253, 4, 33, "Output",ExpressionUUID->"c670169d-8844-4390-ac66-405b884576d8"] }, 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[16466, 526, 134, 2, 29, "Input",ExpressionUUID->"09f2bd0d-cd5e-449e-9b78-e9379f95b844"], +Cell[16603, 530, 255, 4, 33, "Output",ExpressionUUID->"3c54ce69-07c3-4a1e-8da1-7b27466e15d0"] }, 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[16895, 539, 219, 4, 29, "Input",ExpressionUUID->"6a1a0d49-28c6-4f80-9499-831f4e6be55e"], +Cell[17117, 545, 266, 5, 33, "Output",ExpressionUUID->"89603138-76fa-4f2d-af18-bffb41b5bb5e"] }, 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[17420, 555, 134, 2, 29, "Input",ExpressionUUID->"c39cb063-3db5-4dc9-8a6b-07c19fbe5302"], +Cell[17557, 559, 256, 4, 33, "Output",ExpressionUUID->"45afd3f4-10ab-4681-80b6-046cb584e725"] }, 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[17850, 568, 324, 5, 29, "Input",ExpressionUUID->"48e77027-6d8a-466c-b075-b5e898135f67"], +Cell[18177, 575, 251, 4, 33, "Output",ExpressionUUID->"2d79b8ce-d38a-4502-a276-69d304a4d21c"] }, 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[18465, 584, 296, 5, 29, "Input",ExpressionUUID->"933e2591-36f2-46ad-a74f-019b4fff74c5"], +Cell[18764, 591, 251, 4, 33, "Output",ExpressionUUID->"3ffb36c2-fbb6-4864-ba95-1f0a0186062c"] }, 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[19052, 600, 219, 4, 29, "Input",ExpressionUUID->"e2e6d884-bec2-4432-af7b-36b3a7736103"], +Cell[19274, 606, 246, 4, 33, "Output",ExpressionUUID->"803d71d0-dded-4397-a45c-2ab2755b9c15"] }, 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[19557, 615, 350, 10, 42, "Input",ExpressionUUID->"842f661b-6db7-47a1-8cf9-1459d1edfa94"], +Cell[19910, 627, 257, 4, 33, "Output",ExpressionUUID->"ddf91ec8-7ae5-4307-a12b-40d763b759ec"] }, 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[20204, 636, 350, 10, 42, "Input",ExpressionUUID->"40827574-4e00-42c9-a753-eb22ccb57ce3"], +Cell[20557, 648, 283, 5, 33, "Output",ExpressionUUID->"357cabee-660b-43af-80af-03a4610a284b"] }, 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[20877, 658, 994, 26, 81, "Input",ExpressionUUID->"49c8005d-5097-410f-9026-7073d52b62a2"], +Cell[21874, 686, 266, 4, 33, "Output",ExpressionUUID->"679ca198-46fc-4300-9752-d363eb1aef5b"] }, 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[22177, 695, 199, 3, 29, "Input",ExpressionUUID->"8bb2661d-a797-447a-9224-277d38c42969"], +Cell[22379, 700, 248, 4, 33, "Output",ExpressionUUID->"0f06c42b-0ca4-46b6-a5ea-a4540e17482e"] }, 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[22664, 709, 331, 5, 29, "Input",ExpressionUUID->"88e666d6-df7c-4e1d-a3c0-f84cd282d5ff"], +Cell[22998, 716, 228, 3, 33, "Output",ExpressionUUID->"386bb177-2cd2-44e2-9fb7-cf951989bd02"] +}, Open ]], +Cell[23241, 722, 173, 2, 35, "Input",ExpressionUUID->"38d854c4-c9b3-4c1c-b32f-f2bc0425b756"], +Cell[CellGroupData[{ +Cell[23439, 728, 327, 5, 29, "Input",ExpressionUUID->"7928222b-a451-4852-b947-2ee8c8261e53"], +Cell[23769, 735, 226, 3, 33, "Output",ExpressionUUID->"3211443d-110f-4d39-91bc-890c8d0e5ab9"] +}, Open ]], +Cell[24010, 741, 173, 2, 35, "Input",ExpressionUUID->"0655bdd0-f395-4c06-9eea-8704b7554fe8"], +Cell[CellGroupData[{ +Cell[24208, 747, 330, 5, 29, "Input",ExpressionUUID->"75170604-d865-480b-bc2e-4d7096ea7931"], +Cell[24541, 754, 225, 3, 33, "Output",ExpressionUUID->"b963bec6-ae52-4ed8-b8cd-11589911b377"] +}, Open ]], +Cell[24781, 760, 173, 2, 35, "Input",ExpressionUUID->"90138e2e-ca10-4017-bbf5-efb166f8f2e2"], +Cell[CellGroupData[{ +Cell[24979, 766, 352, 5, 29, "Input",ExpressionUUID->"83035bc7-d3e4-475f-a50f-8f3ee01ed073"], +Cell[25334, 773, 232, 3, 33, "Output",ExpressionUUID->"2436b04f-931f-41c6-8638-1a4bca6862a2"] +}, Open ]], +Cell[25581, 779, 171, 2, 35, "Input",ExpressionUUID->"04cd04b4-7289-4648-9c86-30781f1d7d4a"], +Cell[CellGroupData[{ +Cell[25777, 785, 299, 5, 29, "Input",ExpressionUUID->"25517e52-ce49-4286-ad13-14e15851d249"], +Cell[26079, 792, 229, 3, 33, "Output",ExpressionUUID->"cd1eba90-ff6a-42b0-af01-601818778115"] +}, Open ]], +Cell[26323, 798, 171, 2, 35, "Input",ExpressionUUID->"ff837e2f-c6c8-4838-a282-6aeb4acca0e6"], +Cell[CellGroupData[{ +Cell[26519, 804, 305, 5, 29, "Input",ExpressionUUID->"11b45eab-5d14-436c-87fb-6ff64594a9dd"], +Cell[26827, 811, 227, 3, 33, "Output",ExpressionUUID->"60951009-102f-4dd0-8a7f-5555e541f5bc"] +}, Open ]], +Cell[27069, 817, 173, 2, 35, "Input",ExpressionUUID->"cbe342c8-e7f9-49f0-b8ba-d39d6e7e3bec"], +Cell[CellGroupData[{ +Cell[27267, 823, 307, 5, 29, "Input",ExpressionUUID->"7ece05e0-433d-4835-9769-ab80255b3c99"], +Cell[27577, 830, 225, 3, 33, "Output",ExpressionUUID->"08806337-9347-41b7-849e-67574bb38418"] +}, Open ]], +Cell[27817, 836, 172, 2, 35, "Input",ExpressionUUID->"a925d364-bfb7-45aa-8b61-c88d597be4ca"], +Cell[CellGroupData[{ +Cell[28014, 842, 276, 4, 29, "Input",ExpressionUUID->"9a2536b4-58ff-4544-a49b-d4230f665b00"], +Cell[28293, 848, 228, 3, 33, "Output",ExpressionUUID->"8b8b3ea1-ab1e-4f60-94e1-165f1b382528"] +}, Open ]], +Cell[28536, 854, 175, 2, 35, "Input",ExpressionUUID->"e1e2982b-8e61-4e26-bdf4-e3a86fa709e0"], +Cell[CellGroupData[{ +Cell[28736, 860, 19809, 485, 1844, "Input",ExpressionUUID->"31156c36-5fc8-4b86-8a5c-d5f1cb9ec3f5"], +Cell[48548, 1347, 265, 4, 33, "Output",ExpressionUUID->"80bc2017-3cdb-4c04-b97e-0fa484383d2d"] }, 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[48850, 1356, 19748, 489, 1981, "Input",ExpressionUUID->"8df493e2-d3b5-4271-91fc-c572c810b7c8"], +Cell[68601, 1847, 265, 4, 33, "Output",ExpressionUUID->"e2b43876-b2db-44dd-9f77-d84280918728"] }, 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[68903, 1856, 19748, 483, 1970, "Input",ExpressionUUID->"199cd08a-3f62-43c9-b3da-0f3d563bf36b"], +Cell[88654, 2341, 285, 5, 33, "Output",ExpressionUUID->"84c24d4b-4cf0-4c35-aefe-a6d9acc70f86"] }, 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[88976, 2351, 22534, 553, 2217, "Input",ExpressionUUID->"02da2c60-5daa-4524-8052-d62916399b60"], +Cell[111513, 2906, 286, 5, 33, "Output",ExpressionUUID->"ba007bcc-4095-4fda-a984-32b65e6ec7aa"] }, 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[111836, 2916, 22535, 553, 2254, "Input",ExpressionUUID->"64e0229c-8114-4ff1-86ca-b44ff885d715"], +Cell[134374, 3471, 286, 5, 33, "Output",ExpressionUUID->"d3c7ba68-cde6-4be8-953f-c7dc2e9705df"] }, 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[134697, 3481, 25491, 626, 2501, "Input",ExpressionUUID->"b7e74a62-0b8f-47dd-8b35-63d112b4f32e"], +Cell[160191, 4109, 283, 5, 33, "Output",ExpressionUUID->"77141971-1e57-44eb-b554-1d60e0a3fa1a"] }, 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[160511, 4119, 130, 2, 29, "Input",ExpressionUUID->"fbd0aea8-9f29-490d-a0f7-a647336756f4"], +Cell[160644, 4123, 247, 4, 33, "Output",ExpressionUUID->"b207e49e-23b3-4923-8981-97a87bd0378c"] }, 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[160928, 4132, 130, 2, 29, "Input",ExpressionUUID->"b7bdd5f0-0b23-4356-babd-7625a55c9496"], +Cell[161061, 4136, 250, 4, 33, "Output",ExpressionUUID->"c61b1990-d3e0-46bb-8af1-49e949528c7d"] }, 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[161348, 4145, 1144, 39, 107, "Input",ExpressionUUID->"0c1b9b28-2f8e-4017-993a-1a69d4b41611"], +Cell[162495, 4186, 268, 4, 33, "Output",ExpressionUUID->"89e856f4-b854-42f9-8362-6a428aadbd9b"] }, 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[162800, 4195, 1041, 35, 107, "Input",ExpressionUUID->"bb97d487-e94d-4e35-b991-4cdad2a0077b"], +Cell[163844, 4232, 281, 5, 33, "Output",ExpressionUUID->"e5e3fbb4-e784-4f6e-b637-79d403cdde7d"] }, 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[164162, 4242, 1144, 39, 107, "Input",ExpressionUUID->"352b3d68-d774-49db-b08d-3f70638e96e9"], +Cell[165309, 4283, 265, 4, 33, "Output",ExpressionUUID->"780bb1a9-c8ef-4e43-84f6-2de513a56143"] }, 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[165611, 4292, 108, 1, 29, "Input",ExpressionUUID->"61bee5ce-7b4f-4fd2-aae8-bbab348d2ca6"], +Cell[165722, 4295, 269, 4, 33, "Output",ExpressionUUID->"faace9f9-bbbc-4d74-826c-3b1af5a5236a"] }, 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[166028, 4304, 108, 1, 29, "Input",ExpressionUUID->"754b8817-4eb4-4c5c-91da-e64fa17167ed"], +Cell[166139, 4307, 285, 5, 33, "Output",ExpressionUUID->"12986dc6-d8a0-4513-9e4d-ae2ffab49fac"] }, 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[166461, 4317, 108, 1, 29, "Input",ExpressionUUID->"379e8144-deab-4959-9834-c26e4b726fb9"], +Cell[166572, 4320, 285, 5, 33, "Output",ExpressionUUID->"ebacda90-db69-4aa0-b0e3-aa3f323d00ce"] }, 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[166894, 4330, 108, 1, 29, "Input",ExpressionUUID->"56218321-70c6-4f8f-91e5-adbeb1d201f2"], +Cell[167005, 4333, 265, 4, 33, "Output",ExpressionUUID->"5906f6e6-d7cb-479b-a4b4-a12b9874d944"] }, 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[167307, 4342, 107, 1, 29, "Input",ExpressionUUID->"90a0d2a5-1a6a-4790-813b-fbbf8b6a9988"], +Cell[167417, 4345, 266, 4, 33, "Output",ExpressionUUID->"db9122aa-74f5-4784-942c-36edc545b0ae"] }, 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[167720, 4354, 107, 1, 29, "Input",ExpressionUUID->"0e56efee-1584-4b72-9169-747a0a664b96"], +Cell[167830, 4357, 269, 4, 33, "Output",ExpressionUUID->"2708e060-43e1-4ea5-b431-8565a77da3de"] }, 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[168136, 4366, 497, 16, 55, "Input",ExpressionUUID->"d5caf54e-fc7d-4a50-80a9-20fabaf56f3f"], +Cell[168636, 4384, 282, 5, 33, "Output",ExpressionUUID->"0a81d0b1-af4e-4250-ad99-3a9e9a56210a"] }, 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[168955, 4394, 497, 16, 55, "Input",ExpressionUUID->"43f11a54-3d53-41a2-9f5b-d721ac5665d6"], +Cell[169455, 4412, 281, 5, 33, "Output",ExpressionUUID->"6de850fa-01ea-41f1-8b30-4016a51c68a0"] }, 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[169773, 4422, 1788, 60, 183, "Input",ExpressionUUID->"5f117278-352a-40fe-81c0-81b7ab5f5e9a"], +Cell[171564, 4484, 269, 4, 33, "Output",ExpressionUUID->"16dd3976-947a-47fd-88f8-d4a4c470a5b0"] }, 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[171870, 4493, 1101, 36, 131, "Input",ExpressionUUID->"f10aad61-6906-4bae-88bf-166d5f7bd2f2"], +Cell[172974, 4531, 287, 5, 33, "Output",ExpressionUUID->"c1222ea3-99cf-499a-bfe3-2f6bd970fe43"] }, 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[173298, 4541, 1818, 61, 160, "Input",ExpressionUUID->"7387c247-fb21-40b8-8d12-cfbf4c014ddc"], +Cell[175119, 4604, 263, 4, 33, "Output",ExpressionUUID->"db7c15a4-cbba-44a8-a97c-78ab1abaaade"] }, 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[175419, 4613, 1631, 53, 162, "Input",ExpressionUUID->"bf5720ea-7568-43eb-bc15-ad8958f98a1e"], +Cell[177053, 4668, 265, 4, 33, "Output",ExpressionUUID->"c4ebe602-0d19-4b75-bb02-cf0bd8dbb888"] }, 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[177355, 4677, 1631, 53, 162, "Input",ExpressionUUID->"12fc4e60-9f5b-4ca7-9b65-df6f697e5098"], +Cell[178989, 4732, 264, 4, 33, "Output",ExpressionUUID->"08ba059a-1b53-4618-88d0-421d94f785d5"] }, 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[179290, 4741, 208, 3, 29, "Input",ExpressionUUID->"83cccf0d-dccb-fb42-a058-5e950c758893"], +Cell[179501, 4746, 161, 2, 33, "Output",ExpressionUUID->"5f8686af-e2d9-4373-a07e-41070196c3e0"] }, Open ]], -Cell[208234, 7211, 138, 3, 70, "Input",ExpressionUUID->"4ad58a38-0776-5240-aa41-ba7c8ff64fb9"], +Cell[179677, 4751, 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[179873, 4757, 204, 3, 29, "Input",ExpressionUUID->"b70cfd2b-21a1-8344-9518-5e27a96171a9"], +Cell[180080, 4762, 160, 2, 33, "Output",ExpressionUUID->"ceb19aa7-80ee-4655-a27f-b2150bed8591"] +}, Open ]], +Cell[180255, 4767, 173, 2, 29, "Input",ExpressionUUID->"86df0a71-aa65-aa41-b8f1-8c5c5be10fe8"], +Cell[CellGroupData[{ +Cell[180453, 4773, 1297, 42, 111, "Input",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"], +Cell[181753, 4817, 172, 2, 33, "Output",ExpressionUUID->"0d172406-525d-4ef2-8b09-a9eb8177faef"] }, 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[181962, 4824, 929, 30, 96, "Input",ExpressionUUID->"c16f367e-d189-2745-b3b8-a9b137c5e3b6"], +Cell[182894, 4856, 173, 2, 33, "Output",ExpressionUUID->"05692aff-1d49-45f9-9f43-bec693dbe1ed"] }, 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[183104, 4863, 904, 29, 55, "Input",ExpressionUUID->"b7d001ae-480c-4b41-8df9-8010347227f7"], +Cell[184011, 4894, 171, 2, 33, "Output",ExpressionUUID->"460bd812-c96b-4563-8e6d-55b0b8b6e516"] }, 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[184219, 4901, 554, 18, 51, "Input",ExpressionUUID->"d15e5e59-9ad8-e247-a132-b43b2736212a"], +Cell[184776, 4921, 166, 2, 33, "Output",ExpressionUUID->"bb99136f-196a-4ded-9cc6-dc2c6453a2a2"] }, 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[184979, 4928, 647, 21, 51, "Input",ExpressionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"], +Cell[185629, 4951, 167, 2, 33, "Output",ExpressionUUID->"88c6bbb0-fa7b-44d2-9ebe-e3e643df1868"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185833, 4958, 166, 4, 55, "Input",ExpressionUUID->"906db7f6-73f3-8a4e-88a4-7c75445a4f32"], +Cell[186002, 4964, 167, 2, 33, "Output",ExpressionUUID->"fa5dbbf9-075a-4e83-afcd-bb030c4e0d6d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[186206, 4971, 166, 4, 54, "Input",ExpressionUUID->"731b68b1-c44a-6c4a-a9f8-bc957ede9a68"], +Cell[186375, 4977, 169, 2, 33, "Output",ExpressionUUID->"d2f78eb0-35a8-42d4-bad7-51aa0e946fb4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[186581, 4984, 177, 4, 43, "Input",ExpressionUUID->"71af6813-eb8f-4944-8d03-7bcd77a7b4b4"], +Cell[186761, 4990, 167, 2, 33, "Output",ExpressionUUID->"62a8821f-dcba-464a-9b63-ca78016e2537"] +}, Open ]], +Cell[CellGroupData[{ +Cell[186965, 4997, 177, 4, 43, "Input",ExpressionUUID->"28815b73-08dc-e64f-8823-2a55ad6b8ca8"], +Cell[187145, 5003, 167, 2, 33, "Output",ExpressionUUID->"5668f4ee-39e3-4ce4-b3a7-1853bfaa8695"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187349, 5010, 6051, 184, 474, "Input",ExpressionUUID->"137e8d46-8eff-3c47-bf8f-1350d0b8a0bb"], +Cell[193403, 5196, 170, 2, 33, "Output",ExpressionUUID->"115236b5-6be1-422b-b76b-94a9c62d63e1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193610, 5203, 364, 8, 41, "Input",ExpressionUUID->"65edd566-4493-2440-9c51-9fca28ce324b"], +Cell[193977, 5213, 168, 2, 33, "Output",ExpressionUUID->"0477ae47-0cd5-45c2-ae6d-1e0d744ea856"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194182, 5220, 6118, 186, 474, "Input",ExpressionUUID->"d808e80b-1928-8046-afec-31463f4946cd"], +Cell[200303, 5408, 171, 2, 33, "Output",ExpressionUUID->"c286b5ce-2b84-4519-a332-76158f85d976"] +}, Open ]], +Cell[CellGroupData[{ +Cell[200511, 5415, 364, 8, 41, "Input",ExpressionUUID->"56b1717f-bc75-4047-98f0-7a0dede3f8a9"], +Cell[200878, 5425, 166, 2, 33, "Output",ExpressionUUID->"e34e0ac3-afac-4003-ae87-8284b63a46ad"] +}, Open ]], +Cell[CellGroupData[{ +Cell[201081, 5432, 2659, 87, 285, "Input",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-f74418e31aeb"], +Cell[203743, 5521, 168, 2, 33, "Output",ExpressionUUID->"b19112bf-16d0-47ee-bc01-1a75f49fa0f8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[203948, 5528, 2599, 84, 211, "Input",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-91d5391478d5"], +Cell[206550, 5614, 167, 2, 33, "Output",ExpressionUUID->"99722679-3c9e-42be-a477-256d96a6510f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[206754, 5621, 3708, 117, 327, "Input",ExpressionUUID->"bea639c9-f172-ef4e-9454-9d4e027f5fa2"], +Cell[210465, 5740, 167, 2, 33, "Output",ExpressionUUID->"6fac49af-b7b9-4487-902b-e96e717b4537"] +}, Open ]], +Cell[210647, 5745, 160, 3, 29, "Input",ExpressionUUID->"752e2dd5-bee6-2048-8697-fe84d79611fa"], +Cell[CellGroupData[{ +Cell[210832, 5752, 2073, 58, 234, "Input",ExpressionUUID->"f8b12d93-5bd9-8641-aa98-3d78ebb0f21b"], +Cell[212908, 5812, 562, 13, 80, "Message",ExpressionUUID->"82c0858c-7ee2-4c01-a717-44be0d81545a"], +Cell[213473, 5827, 565, 13, 80, "Message",ExpressionUUID->"aeb8523d-217e-4a15-9953-03b7cf759cee"], +Cell[214041, 5842, 568, 13, 80, "Message",ExpressionUUID->"85ae7660-f7c1-4c4f-8a6d-7e7242858a35"], +Cell[214612, 5857, 461, 11, 26, "Message",ExpressionUUID->"4b92a453-a6b3-4b76-b705-1e078a9ae4f1"], +Cell[215076, 5870, 165, 2, 33, "Output",ExpressionUUID->"7ac131a0-c42c-49b2-aca7-915908a4a2e9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[215278, 5877, 2070, 58, 234, "Input",ExpressionUUID->"cbefe077-df46-c24c-b854-69741ca50d38"], +Cell[217351, 5937, 562, 13, 80, "Message",ExpressionUUID->"f6ce56f2-3474-4f2d-863e-87fbf0386fbe"], +Cell[217916, 5952, 564, 13, 80, "Message",ExpressionUUID->"b81ad44a-d485-454e-8fde-93523f590f7d"], +Cell[218483, 5967, 570, 13, 80, "Message",ExpressionUUID->"3872d2c8-8573-44c4-82ff-940a9abdabc5"], +Cell[219056, 5982, 461, 11, 26, "Message",ExpressionUUID->"87f12d2d-fd99-4975-a7f4-a92c021aad3d"], +Cell[219520, 5995, 168, 2, 33, "Output",ExpressionUUID->"618d6669-8cad-40ae-b319-dbae391654d1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[219725, 6002, 1957, 52, 102, "Input",ExpressionUUID->"b9a7e2d9-7e48-cb4c-89bc-12d8b19f0936"], +Cell[221685, 6056, 20254, 380, 236, "Output",ExpressionUUID->"d87e0530-3797-43cb-a0d6-7572be0073e0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[241976, 6441, 2113, 59, 261, "Input",ExpressionUUID->"4b73592e-b155-8f42-b33d-562f8b3faecd"], +Cell[244092, 6502, 508, 12, 59, "Message",ExpressionUUID->"1203decd-a64d-44b6-a394-d5bee1acec48"], +Cell[244603, 6516, 510, 12, 59, "Message",ExpressionUUID->"255a6036-8324-4416-985c-20e515088015"], +Cell[245116, 6530, 512, 12, 59, "Message",ExpressionUUID->"884dbd61-26fa-4796-95a5-e8f48d94aa35"], +Cell[245631, 6544, 462, 11, 26, "Message",ExpressionUUID->"fad9e0cd-51b4-4820-8c82-923fc4c481ba"], +Cell[246096, 6557, 23964, 440, 232, "Output",ExpressionUUID->"28a1a56d-46a4-4c72-a390-e3f4b15a1ea5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[270097, 7002, 2477, 69, 169, "Input",ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-5e6c7b4b5678"], +Cell[272577, 7073, 9465, 219, 239, "Output",ExpressionUUID->"4b2bd4ee-ed08-4207-9cf0-ec56fb12b4a3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[282079, 7297, 228, 4, 29, "Input",ExpressionUUID->"cd9a8165-891b-9245-aca1-3f60fcfd9a79"], +Cell[282310, 7303, 30323, 569, 232, "Output",ExpressionUUID->"a79bebd5-ca34-43af-ae01-93bc2e3b87e7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[312670, 7877, 234, 6, 47, "Input",ExpressionUUID->"c213919d-017d-a948-8e46-fe19384187c3"], +Cell[312907, 7885, 169, 2, 33, "Output",ExpressionUUID->"36e864c6-874a-43e2-a304-52422da408bf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[313113, 7892, 1833, 52, 190, "Input",ExpressionUUID->"3764dfb4-9656-4349-b0a1-77ebd1a3e048"], +Cell[314949, 7946, 515, 12, 59, "Message",ExpressionUUID->"f996beea-6fb5-4767-9a5d-a5a785c6fb91"], +Cell[315467, 7960, 518, 12, 59, "Message",ExpressionUUID->"b7765c84-a4f1-486f-ae6e-fc3b0895c5d1"], +Cell[315988, 7974, 523, 12, 59, "Message",ExpressionUUID->"7b69b561-bd04-4752-acfa-7d03d3484eba"], +Cell[316514, 7988, 462, 11, 26, "Message",ExpressionUUID->"af9a4e19-8ac8-447e-b42b-44c22926f073"], +Cell[316979, 8001, 23982, 440, 232, "Output",ExpressionUUID->"5c430002-7b59-4b33-933a-c69717825654"] +}, Open ]], +Cell[CellGroupData[{ +Cell[340998, 8446, 1616, 48, 104, "Input",ExpressionUUID->"7899a8a7-561e-a946-a6c9-870ef14ce01b"], +Cell[342617, 8496, 696, 15, 80, "Message",ExpressionUUID->"f6300994-3fee-45ff-9da9-7a5fe8e3f669"], +Cell[343316, 8513, 697, 15, 80, "Message",ExpressionUUID->"30f65740-b8be-4588-88a0-f31a2f4bdd57"], +Cell[344016, 8530, 696, 15, 80, "Message",ExpressionUUID->"782e20b0-0b0a-43d1-9f71-bd16b8f8bddc"], +Cell[344715, 8547, 464, 11, 26, "Message",ExpressionUUID->"50d887b1-fcb1-4d42-9d4f-6ec047b9498a"], +Cell[345182, 8560, 171, 3, 33, "Output",ExpressionUUID->"1de1b645-d5b9-441b-b546-6e0adf6eb24b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[345390, 8568, 2270, 64, 212, "Input",ExpressionUUID->"6fd9b05c-8008-7b42-b1b4-8e83e9537fdc"], +Cell[347663, 8634, 564, 13, 80, "Message",ExpressionUUID->"c869e8f7-1422-4a13-bf81-1a6634f9e088"], +Cell[348230, 8649, 570, 13, 80, "Message",ExpressionUUID->"c1ef7a01-688f-4e3e-bd2f-a246cb26bf5a"], +Cell[348803, 8664, 571, 13, 80, "Message",ExpressionUUID->"fd34e849-332f-4226-ad99-0270ea7d441d"], +Cell[349377, 8679, 466, 11, 26, "Message",ExpressionUUID->"fbcc0f8c-d80e-42f9-9c21-17c8168146ea"], +Cell[349846, 8692, 171, 3, 33, "Output",ExpressionUUID->"e188388d-aa70-4979-b4c4-d12e632975e9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[350054, 8700, 2231, 63, 212, "Input",ExpressionUUID->"ccaee6a3-c390-0444-bf16-3471356a3614"], +Cell[352288, 8765, 565, 13, 80, "Message",ExpressionUUID->"3b44bba7-a96e-48bb-a0ed-04963a552fbc"], +Cell[352856, 8780, 568, 13, 80, "Message",ExpressionUUID->"5a668a6f-4619-4f34-9be9-c66388178708"], +Cell[353427, 8795, 573, 13, 80, "Message",ExpressionUUID->"1758833b-4dc1-4d5e-8320-9b0c31cad37c"], +Cell[354003, 8810, 466, 11, 26, "Message",ExpressionUUID->"be593cea-d5b1-457e-a97e-48c55f2ba755"], +Cell[354472, 8823, 170, 3, 33, "Output",ExpressionUUID->"33a8b171-06bb-407a-bf50-a6b743f4c985"] +}, Open ]], +Cell[CellGroupData[{ +Cell[354679, 8831, 2233, 63, 212, "Input",ExpressionUUID->"ca0cc669-d7ba-5b4a-b58b-286954db37c5"], +Cell[356915, 8896, 567, 13, 80, "Message",ExpressionUUID->"e52faf1b-4d5c-4444-b0fe-03db4db33005"], +Cell[357485, 8911, 568, 13, 80, "Message",ExpressionUUID->"187355a4-05c5-47ca-a525-6c4562d4f5ca"], +Cell[358056, 8926, 571, 13, 80, "Message",ExpressionUUID->"b2baea74-7e3c-4695-9029-17fc02c6272f"], +Cell[358630, 8941, 464, 11, 26, "Message",ExpressionUUID->"d9013c20-eaf7-44e5-9add-0a7797de907e"], +Cell[359097, 8954, 171, 3, 33, "Output",ExpressionUUID->"345f70f5-c56d-469b-a0e9-75b7b09aa2c3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[359305, 8962, 238, 6, 46, "Input",ExpressionUUID->"7ec678fd-8398-414a-aeba-20e078d734cd"], +Cell[359546, 8970, 172, 3, 33, "Output",ExpressionUUID->"6d9fb6ef-80ae-474a-963e-05bbba263497"] +}, Open ]], +Cell[359733, 8976, 273, 6, 29, "Input",ExpressionUUID->"ca329276-48d7-8943-8408-dd2997d3499c"], +Cell[CellGroupData[{ +Cell[360031, 8986, 558, 19, 51, "Input",ExpressionUUID->"681c316f-cd82-ae4b-824f-5eb2b3081f6d"], +Cell[360592, 9007, 170, 3, 33, "Output",ExpressionUUID->"33dc4d7c-f664-4caf-86d5-1c04a2fbae3d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[360799, 9015, 170, 5, 55, "Input",ExpressionUUID->"11e77a67-96b2-a645-89cd-559587f30b91"], +Cell[360972, 9022, 173, 3, 33, "Output",ExpressionUUID->"b901c3c6-9990-4075-a0a1-9f4c179c632e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[361182, 9030, 181, 5, 43, "Input",ExpressionUUID->"3c5f43e9-afc4-be40-8f37-0116656ecd38"], +Cell[361366, 9037, 170, 3, 33, "Output",ExpressionUUID->"0e3f1bb8-73a3-48a5-a154-a9083615f5da"] +}, Open ]], +Cell[CellGroupData[{ +Cell[361573, 9045, 6055, 185, 474, "Input",ExpressionUUID->"f07a8476-d7bc-1049-82a6-7cf06f61e28f"], +Cell[367631, 9232, 172, 3, 33, "Output",ExpressionUUID->"0c9200d1-841f-422a-8908-a938ebe91a17"] +}, Open ]], +Cell[CellGroupData[{ +Cell[367840, 9240, 368, 9, 41, "Input",ExpressionUUID->"b88b1a94-22d7-2843-88e3-f607b95c8af9"], +Cell[368211, 9251, 172, 3, 33, "Output",ExpressionUUID->"474a8d50-b80c-44e2-ba2e-5836a3e4a752"] +}, Open ]], +Cell[CellGroupData[{ +Cell[368420, 9259, 6122, 187, 474, "Input",ExpressionUUID->"9d771aab-c0b4-f24c-9b53-9472e00c4d82"], +Cell[374545, 9448, 172, 3, 33, "Output",ExpressionUUID->"51240c45-7da2-4255-9d74-247b2a8aca63"] +}, Open ]], +Cell[CellGroupData[{ +Cell[374754, 9456, 368, 9, 41, "Input",ExpressionUUID->"47e2a8e8-6af3-374f-9eea-9c2b6faaaf4a"], +Cell[375125, 9467, 171, 3, 33, "Output",ExpressionUUID->"46682a61-0031-496a-a8e8-7798a43ef0bd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[375333, 9475, 2663, 88, 285, "Input",ExpressionUUID->"d8757b1c-19d9-d548-8de4-6b0985b9b3bc"], +Cell[377999, 9565, 174, 3, 33, "Output",ExpressionUUID->"f3643777-9e49-4b1b-a159-cfeb0b84f00e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[378210, 9573, 2603, 85, 211, "Input",ExpressionUUID->"58b59182-fae5-674d-b49e-4868d83e9702"], +Cell[380816, 9660, 173, 3, 33, "Output",ExpressionUUID->"fa7ebf00-513e-4d9d-9d8c-ed3b8fe1a3d0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[381026, 9668, 3712, 118, 327, "Input",ExpressionUUID->"5caf1614-7e5c-9940-98cd-9460e2c074b2"], +Cell[384741, 9788, 172, 3, 33, "Output",ExpressionUUID->"172e94c8-a572-4848-9599-9ae3899540a7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[384950, 9796, 2075, 59, 234, "Input",ExpressionUUID->"db0784f6-51d0-fd44-b0e8-05d6af1a6e52"], +Cell[387028, 9857, 563, 13, 80, "Message",ExpressionUUID->"e0b58589-8ae4-4498-a5b2-aca6fefb48fe"], +Cell[387594, 9872, 565, 13, 80, "Message",ExpressionUUID->"84851614-8d53-4d12-9d85-f89d0f2db21a"], +Cell[388162, 9887, 568, 13, 80, "Message",ExpressionUUID->"6944002e-a934-4783-bd7e-4fa97c828c9c"], +Cell[388733, 9902, 466, 11, 26, "Message",ExpressionUUID->"cb173886-7f62-4969-aff0-8a26d2fbd6fa"], +Cell[389202, 9915, 170, 3, 33, "Output",ExpressionUUID->"3b9db924-85e0-4026-bf26-0b1d8442c2e7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[389409, 9923, 2077, 59, 234, "Input",ExpressionUUID->"7ca6aa7a-7318-6f41-95dc-f69c33a31448"], +Cell[391489, 9984, 560, 13, 80, "Message",ExpressionUUID->"2523e1d5-3263-4f4f-a1f5-53bc1fb92fc2"], +Cell[392052, 9999, 565, 13, 80, "Message",ExpressionUUID->"0876c381-7a1a-48c0-bfb9-ca653e08f012"], +Cell[392620, 10014, 568, 13, 80, "Message",ExpressionUUID->"01c64225-d3df-408a-ba43-7b464b613ffa"], +Cell[393191, 10029, 464, 11, 26, "Message",ExpressionUUID->"7354d395-6309-453c-973a-321a0b69d883"], +Cell[393658, 10042, 170, 3, 33, "Output",ExpressionUUID->"a951c5e3-f8c3-4dd4-9b78-f2f449fbd182"] +}, Open ]], +Cell[CellGroupData[{ +Cell[393865, 10050, 2053, 55, 151, "Input",ExpressionUUID->"611f92ea-b199-2643-9788-194fae57c34e"], +Cell[395921, 10107, 20529, 386, 236, "Output",ExpressionUUID->"625ff2b9-91cf-4975-aeed-ae440a98c6c8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[416487, 10498, 2141, 60, 261, "Input",ExpressionUUID->"f4c3d53a-1214-a145-beb0-494cdae35e56"], +Cell[418631, 10560, 507, 12, 59, "Message",ExpressionUUID->"f731019a-33b0-4dbe-906c-af5fdcec492b"], +Cell[419141, 10574, 509, 12, 59, "Message",ExpressionUUID->"e2fcce96-43aa-4ac1-b69e-a9fa2ae1f595"], +Cell[419653, 10588, 511, 12, 59, "Message",ExpressionUUID->"658802a1-5d4a-47db-b862-9b543e47d90a"], +Cell[420167, 10602, 466, 11, 26, "Message",ExpressionUUID->"7c1e8203-9c05-44f0-849f-e4f06c01f19f"], +Cell[420636, 10615, 23608, 435, 232, "Output",ExpressionUUID->"de052503-50ab-4135-a3ba-058cae74191d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[444281, 11055, 232, 5, 29, "Input",ExpressionUUID->"2335a158-7588-4c40-bdb5-53b7ef04b97c"], +Cell[444516, 11062, 29963, 564, 232, "Output",ExpressionUUID->"d0114226-0b1c-4270-b6d3-1c0403dae6c5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[474516, 11631, 1616, 48, 104, "Input",ExpressionUUID->"01995149-3665-fe4e-b326-b20429031afd"], +Cell[476135, 11681, 696, 15, 80, "Message",ExpressionUUID->"d97cebea-6193-4732-924d-0b859618e366"], +Cell[476834, 11698, 697, 15, 80, "Message",ExpressionUUID->"26969a69-4981-497d-b34e-1e279677d630"], +Cell[477534, 11715, 697, 15, 80, "Message",ExpressionUUID->"a59372d4-7bdf-46ef-907d-634b3c089a29"], +Cell[478234, 11732, 464, 11, 26, "Message",ExpressionUUID->"f31f8c20-f5d2-4d7b-bd32-a68b15b1c742"], +Cell[478701, 11745, 171, 3, 33, "Output",ExpressionUUID->"81cce9ce-a18b-4df7-a583-ee943dd32802"] +}, Open ]], +Cell[CellGroupData[{ +Cell[478909, 11753, 2274, 64, 212, "Input",ExpressionUUID->"11b1e372-f457-5a4d-bcee-062a3c04ed96"], +Cell[481186, 11819, 560, 13, 80, "Message",ExpressionUUID->"2a02bd9d-0dfa-44fa-90c3-50681e95aafd"], +Cell[481749, 11834, 567, 13, 80, "Message",ExpressionUUID->"070f8af6-6134-4c3e-be0f-32b2ee76c92b"], +Cell[482319, 11849, 568, 13, 80, "Message",ExpressionUUID->"30e44ad3-910a-4ec6-be76-04ee0218773b"], +Cell[482890, 11864, 464, 11, 26, "Message",ExpressionUUID->"8b2ad7ce-f1e2-4c9a-80cb-db9dd6511e20"], +Cell[483357, 11877, 172, 3, 33, "Output",ExpressionUUID->"414daf2a-34b8-4027-91ec-47f05eddcf66"] +}, Open ]], +Cell[CellGroupData[{ +Cell[483566, 11885, 2232, 63, 212, "Input",ExpressionUUID->"8cb4e371-90a5-d347-adec-3382e7679ba8"], +Cell[485801, 11950, 561, 13, 80, "Message",ExpressionUUID->"f2da3a18-649f-43e3-ac45-3a0f9208378e"], +Cell[486365, 11965, 565, 13, 80, "Message",ExpressionUUID->"9f78e4f9-62c3-4302-b11f-ffb530497159"], +Cell[486933, 11980, 568, 13, 80, "Message",ExpressionUUID->"2c6f4dc4-4472-46f7-be9d-29e6093595e7"], +Cell[487504, 11995, 464, 11, 26, "Message",ExpressionUUID->"22b0af56-5dff-453c-9a55-f3a9116dbde0"], +Cell[487971, 12008, 171, 3, 33, "Output",ExpressionUUID->"0dab4824-a5cf-4a67-a630-2599f5038d99"] +}, Open ]], +Cell[CellGroupData[{ +Cell[488179, 12016, 2235, 63, 212, "Input",ExpressionUUID->"732b358a-c98a-0347-8b16-2462b23d6249"], +Cell[490417, 12081, 563, 13, 80, "Message",ExpressionUUID->"68880052-8e5c-44f7-bd5a-c85e8c5f3a0b"], +Cell[490983, 12096, 567, 13, 80, "Message",ExpressionUUID->"aaf00341-40f0-408b-b66d-b69abf959c71"], +Cell[491553, 12111, 568, 13, 80, "Message",ExpressionUUID->"dceec0f3-a4a3-4c47-ab28-001c09149fa9"], +Cell[492124, 12126, 464, 11, 26, "Message",ExpressionUUID->"a6e2ffa8-f9c6-47f5-a093-c0f36009eeaf"], +Cell[492591, 12139, 171, 3, 33, "Output",ExpressionUUID->"cf1d32ed-9c75-423a-9aa0-ed5001483c73"] +}, Open ]], +Cell[CellGroupData[{ +Cell[492799, 12147, 238, 6, 46, "Input",ExpressionUUID->"3d20548b-905d-0343-8df1-168ec8f367e1"], +Cell[493040, 12155, 173, 3, 33, "Output",ExpressionUUID->"8b3298f0-6e33-440c-9553-c5b75c54bc01"] +}, Open ]], +Cell[493228, 12161, 273, 6, 29, "Input",ExpressionUUID->"ca34450b-ff3b-f34a-a2ed-e661a25a7ba1"], +Cell[CellGroupData[{ +Cell[493526, 12171, 558, 19, 51, "Input",ExpressionUUID->"601c24ee-3f7b-c74d-891b-10a6d009e34b"], +Cell[494087, 12192, 171, 3, 33, "Output",ExpressionUUID->"79f0ff96-49db-40ca-b34e-0d64c141f31b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[494295, 12200, 170, 5, 55, "Input",ExpressionUUID->"05949206-8ee0-5646-bb01-e9142212274d"], +Cell[494468, 12207, 171, 3, 33, "Output",ExpressionUUID->"78025928-97e2-4d01-85b4-abdead64237e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[494676, 12215, 181, 5, 43, "Input",ExpressionUUID->"25a02cc2-cb9a-bc4b-93f0-a7873f982a23"], +Cell[494860, 12222, 171, 3, 33, "Output",ExpressionUUID->"7e55f69e-bec8-4dbd-9ac9-71b01e99d9b5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[495068, 12230, 6055, 185, 474, "Input",ExpressionUUID->"df51ca6a-83a1-6340-b13c-0185de64c37f"], +Cell[501126, 12417, 173, 3, 33, "Output",ExpressionUUID->"fc8f65d0-edeb-4df1-bdc4-8fde9779d539"] +}, Open ]], +Cell[CellGroupData[{ +Cell[501336, 12425, 368, 9, 41, "Input",ExpressionUUID->"731f0e35-7798-8b45-a769-075ac4b3983f"], +Cell[501707, 12436, 173, 3, 33, "Output",ExpressionUUID->"a110cc3c-3b38-4031-89e1-5cf128b46d3a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[501917, 12444, 6122, 187, 474, "Input",ExpressionUUID->"413c8e7d-149c-5d4a-9ccb-23aebae2e6d5"], +Cell[508042, 12633, 174, 3, 33, "Output",ExpressionUUID->"8160b266-04bc-429b-aa84-a85e6a8eb4b6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[508253, 12641, 368, 9, 41, "Input",ExpressionUUID->"e11d7eb8-00a8-f540-98a0-89164ac4bae9"], +Cell[508624, 12652, 171, 3, 33, "Output",ExpressionUUID->"6f929e1b-9b2f-4231-9b82-dc057f1e5c40"] +}, Open ]], +Cell[CellGroupData[{ +Cell[508832, 12660, 2663, 88, 285, "Input",ExpressionUUID->"08e21b26-8d64-ea4e-8647-1ee89e798d8f"], +Cell[511498, 12750, 172, 3, 33, "Output",ExpressionUUID->"4e87ff19-3e2a-4d1d-b02c-5a3651524a89"] +}, Open ]], +Cell[CellGroupData[{ +Cell[511707, 12758, 2603, 85, 211, "Input",ExpressionUUID->"ae5c0a90-3245-6943-a137-f30d036fcdd2"], +Cell[514313, 12845, 171, 3, 33, "Output",ExpressionUUID->"dda466dc-042e-4aa2-aca7-602b76eaabae"] +}, Open ]], +Cell[CellGroupData[{ +Cell[514521, 12853, 3712, 118, 327, "Input",ExpressionUUID->"46af1283-32d6-7240-acd2-307af56b44db"], +Cell[518236, 12973, 174, 3, 33, "Output",ExpressionUUID->"7c094bc3-6798-423d-80f7-58d88819ba90"] +}, Open ]], +Cell[CellGroupData[{ +Cell[518447, 12981, 2077, 59, 234, "Input",ExpressionUUID->"cd516020-ac7f-224d-b1ff-af0307420662"], +Cell[520527, 13042, 570, 13, 80, "Message",ExpressionUUID->"9adfaf86-e6c0-4d46-ab11-631bf97a0844"], +Cell[521100, 13057, 570, 13, 80, "Message",ExpressionUUID->"82e75240-ca76-453c-af84-096f5c8fe0a5"], +Cell[521673, 13072, 575, 13, 80, "Message",ExpressionUUID->"272e0464-d5c4-4d70-818e-4134fffa4e27"], +Cell[522251, 13087, 464, 11, 26, "Message",ExpressionUUID->"a84292ec-e935-4212-a628-f2c3ef6b984f"], +Cell[522718, 13100, 171, 3, 33, "Output",ExpressionUUID->"bc6ebd3e-6215-4d9f-ba67-ce1b69bb23c3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[522926, 13108, 2077, 59, 234, "Input",ExpressionUUID->"a9d0e817-a1c8-6546-a901-34313c6ec04d"], +Cell[525006, 13169, 568, 13, 80, "Message",ExpressionUUID->"d1e6e0b0-3b02-4e65-be6e-46c716532cd0"], +Cell[525577, 13184, 570, 13, 80, "Message",ExpressionUUID->"8a024bf7-73fe-4579-b13e-8b34fbac17f2"], +Cell[526150, 13199, 574, 13, 80, "Message",ExpressionUUID->"64d275c1-98aa-416a-a522-8d6cb9f8bdbc"], +Cell[526727, 13214, 464, 11, 26, "Message",ExpressionUUID->"b2ddfad5-01c3-4d99-b197-4757d8da52c9"], +Cell[527194, 13227, 170, 3, 33, "Output",ExpressionUUID->"72a5d850-7b22-4d1b-b1b6-f364c523b2a7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[527401, 13235, 2053, 55, 151, "Input",ExpressionUUID->"f68960b0-cff6-3245-b906-ad38cf07d634"], +Cell[529457, 13292, 20262, 381, 236, "Output",ExpressionUUID->"6132a978-c0a9-461a-9c03-cd0001e3c1f1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[549756, 13678, 2165, 61, 261, "Input",ExpressionUUID->"d43bf17b-b492-0e4a-af4a-6a3bc399953c"], +Cell[551924, 13741, 509, 12, 59, "Message",ExpressionUUID->"11fbf877-7883-49e0-bd6c-4a3dd0d58570"], +Cell[552436, 13755, 514, 12, 59, "Message",ExpressionUUID->"360094ef-7fee-40c9-9a5b-31a06dd8b493"], +Cell[552953, 13769, 514, 12, 59, "Message",ExpressionUUID->"cfb75a02-197f-48de-ae4c-3d3a171e37ea"], +Cell[553470, 13783, 464, 11, 26, "Message",ExpressionUUID->"ca469ac8-1fd2-409e-a892-17175a14198d"], +Cell[553937, 13796, 22997, 426, 232, "Output",ExpressionUUID->"62e32158-9e1b-42bf-a1c3-4c136bd3a755"] +}, Open ]], +Cell[CellGroupData[{ +Cell[576971, 14227, 164, 4, 29, "Input",ExpressionUUID->"4ad58a38-0776-5240-aa41-ba7c8ff64fb9"], +Cell[577138, 14233, 29356, 555, 232, "Output",ExpressionUUID->"9442fd73-ba75-44dc-a0f0-06cb5a334bdf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[606531, 14793, 1616, 48, 104, "Input",ExpressionUUID->"3edaf53b-bb09-6646-b79e-9350413e0b42"], +Cell[608150, 14843, 697, 15, 80, "Message",ExpressionUUID->"cd303d7b-6027-440b-b77e-cd3051c0547b"], +Cell[608850, 14860, 697, 15, 80, "Message",ExpressionUUID->"090935fe-18e7-47c6-b5d2-708fabfb089c"], +Cell[609550, 14877, 696, 15, 80, "Message",ExpressionUUID->"7560182f-2c17-4b4d-ac48-11d0095608a5"], +Cell[610249, 14894, 464, 11, 26, "Message",ExpressionUUID->"59b6966e-f5ef-4099-ba1b-a580b95337f1"], +Cell[610716, 14907, 171, 3, 33, "Output",ExpressionUUID->"3acd7bf3-89fe-4631-a682-5791760c2cf8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[610924, 14915, 2272, 64, 212, "Input",ExpressionUUID->"d2148290-3e90-8347-bddd-5dd8190b0268"], +Cell[613199, 14981, 568, 13, 80, "Message",ExpressionUUID->"a56839f8-7d21-4cc3-aae8-81038ddd21e7"], +Cell[613770, 14996, 570, 13, 80, "Message",ExpressionUUID->"12fa7bfc-44e7-4a85-bec1-0776f13487d5"], +Cell[614343, 15011, 575, 13, 80, "Message",ExpressionUUID->"df4f730f-7541-45f3-b732-12e610929a90"], +Cell[614921, 15026, 464, 11, 26, "Message",ExpressionUUID->"97990ad0-0cfd-49ce-a2f3-141f7d808aa2"], +Cell[615388, 15039, 171, 3, 33, "Output",ExpressionUUID->"e7ddc101-62f5-4ea4-b0c8-2295fc7b9084"] +}, Open ]], +Cell[CellGroupData[{ +Cell[615596, 15047, 2231, 63, 212, "Input",ExpressionUUID->"3cdd2064-36e7-b44d-bb0f-98d71f8a8458"], +Cell[617830, 15112, 570, 13, 80, "Message",ExpressionUUID->"fd3e5ab6-657d-4aca-99ce-32e7e4e9dcad"], +Cell[618403, 15127, 570, 13, 80, "Message",ExpressionUUID->"b67c9f51-2760-4624-85fa-831e58082fa9"], +Cell[618976, 15142, 575, 13, 80, "Message",ExpressionUUID->"e97091ba-7709-462e-88ee-5f5d4e289149"], +Cell[619554, 15157, 464, 11, 26, "Message",ExpressionUUID->"1a5e9754-b4f9-4048-b7d6-99cb27e4dc87"], +Cell[620021, 15170, 171, 3, 33, "Output",ExpressionUUID->"91d30bc6-4bbe-454d-9561-28d1b1a1a985"] +}, Open ]], +Cell[CellGroupData[{ +Cell[620229, 15178, 2233, 63, 212, "Input",ExpressionUUID->"c1d3ae3d-f5ac-b04d-af0f-57c1fe1d0585"], +Cell[622465, 15243, 568, 13, 80, "Message",ExpressionUUID->"48aefad8-e0a5-44a6-969d-63a00ca673ac"], +Cell[623036, 15258, 570, 13, 80, "Message",ExpressionUUID->"728057e9-3ad2-45da-9527-8d7df9467c41"], +Cell[623609, 15273, 574, 13, 80, "Message",ExpressionUUID->"bfe2b59a-b019-467a-850e-131ff524fce5"], +Cell[624186, 15288, 464, 11, 26, "Message",ExpressionUUID->"c5023676-f219-4feb-b2fe-c76d4d9f2de0"], +Cell[624653, 15301, 172, 3, 33, "Output",ExpressionUUID->"83df2ffc-8c20-4088-b5d7-20b0045d88e5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[624862, 15309, 238, 6, 46, "Input",ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-1ca469b254bd"], +Cell[625103, 15317, 172, 3, 33, "Output",ExpressionUUID->"f3381a26-dcc8-477e-a566-ee2634303afe"] +}, Open ]], +Cell[625290, 15323, 143, 3, 29, "Input",ExpressionUUID->"c07660da-eaef-4a6e-abe8-c49a8dc72d02"] } ] *) -(* End of internal cache information *) - diff --git a/Pu240_798-811_TitovAA/160-80_h_Pu240_14-15/h_160-80_Pu240_14-15_osc_Qw1.nb b/Pu240_798-811_TitovAA/160-80_h_Pu240_14-15/h_160-80_Pu240_14-15_osc_Qw1.nb index af7a9fc..a2c0e11 100644 --- a/Pu240_798-811_TitovAA/160-80_h_Pu240_14-15/h_160-80_Pu240_14-15_osc_Qw1.nb +++ b/Pu240_798-811_TitovAA/160-80_h_Pu240_14-15/h_160-80_Pu240_14-15_osc_Qw1.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 592703, 14690] -NotebookOptionsPosition[ 550529, 14019] -NotebookOutlinePosition[ 550969, 14037] -CellTagsIndexPosition[ 550926, 14034] +NotebookDataLength[ 677241, 16451] +NotebookOptionsPosition[ 634523, 15767] +NotebookOutlinePosition[ 634963, 15785] +CellTagsIndexPosition[ 634920, 15782] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -26,13 +26,14 @@ Cell[BoxData[ 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, 3.9920650045886707`*^9, {3.993815385399456*^9, 3.9938153854750338`*^9}}, CellLabel-> - "In[102]:=",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], + "In[104]:=",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], Cell[BoxData["2"], "Output", CellChangeTimes->{ - 3.991320420900818*^9, {3.993815359458637*^9, 3.993815388522393*^9}}, + 3.991320420900818*^9, {3.993815359458637*^9, 3.993815388522393*^9}, + 3.99395864618618*^9, 3.993959240052945*^9}, CellLabel-> - "Out[102]=",ExpressionUUID->"63b5906b-e178-4d24-87f0-3eb93a7d821b"] + "Out[104]=",ExpressionUUID->"a9a5fb07-efa3-4ce1-831a-c88fd0ca4555"] }, Open ]], Cell[CellGroupData[{ @@ -42,13 +43,14 @@ Cell[BoxData[ CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { 3.993815078773963*^9, 3.9938150795912027`*^9}}, CellLabel-> - "In[103]:=",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], + "In[105]:=",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], Cell[BoxData["240"], "Output", CellChangeTimes->{ - 3.9913196497381973`*^9, {3.9938153597191753`*^9, 3.993815388600842*^9}}, + 3.9913196497381973`*^9, {3.9938153597191753`*^9, 3.993815388600842*^9}, + 3.993958646269747*^9, 3.9939592401918383`*^9}, CellLabel-> - "Out[103]=",ExpressionUUID->"ecc67123-9912-4c49-bc37-9525b91a7e65"] + "Out[105]=",ExpressionUUID->"ab53ef7c-2d24-4fa5-bdc6-152c4d33f037"] }, Open ]], Cell[CellGroupData[{ @@ -58,13 +60,14 @@ Cell[BoxData[ CellChangeTimes->{ 3.991798961431202*^9, {3.993815083810103*^9, 3.9938150844706078`*^9}}, CellLabel-> - "In[104]:=",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], + "In[106]:=",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], Cell[BoxData["160"], "Output", CellChangeTimes->{ - 3.9913196497578354`*^9, {3.9938153597338867`*^9, 3.9938153886223583`*^9}}, + 3.9913196497578354`*^9, {3.9938153597338867`*^9, 3.9938153886223583`*^9}, + 3.9939586462872963`*^9, 3.993959240208694*^9}, CellLabel-> - "Out[104]=",ExpressionUUID->"6d12210a-f944-45d2-8899-a6a810f4bf55"] + "Out[106]=",ExpressionUUID->"13e41668-a435-4dda-b9a2-6d3494df318f"] }, Open ]], Cell[CellGroupData[{ @@ -73,13 +76,14 @@ Cell[BoxData[ RowBox[{"a1", "=", "0.55"}]], "Input", CellChangeTimes->{3.9434144380252676`*^9}, CellLabel-> - "In[105]:=",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], + "In[107]:=",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], Cell[BoxData["0.55`"], "Output", CellChangeTimes->{ - 3.991319649777508*^9, {3.993815359749675*^9, 3.9938153886357193`*^9}}, + 3.991319649777508*^9, {3.993815359749675*^9, 3.9938153886357193`*^9}, + 3.993958646302828*^9, 3.993959240219701*^9}, CellLabel-> - "Out[105]=",ExpressionUUID->"9219d10a-36b1-45f9-8268-61973b929b9d"] + "Out[107]=",ExpressionUUID->"3cb477c6-0607-409d-920a-b106c23fb6c4"] }, Open ]], Cell[CellGroupData[{ @@ -92,13 +96,14 @@ Cell[BoxData[ RowBox[{ RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", CellLabel-> - "In[106]:=",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], + "In[108]:=",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], Cell[BoxData["0.545`"], "Output", CellChangeTimes->{ - 3.9913196497965145`*^9, {3.99381535976541*^9, 3.993815388649356*^9}}, + 3.9913196497965145`*^9, {3.99381535976541*^9, 3.993815388649356*^9}, + 3.993958646307432*^9, 3.993959240247266*^9}, CellLabel-> - "Out[106]=",ExpressionUUID->"195ba534-dc31-4b84-a3d4-d4b813a6e348"] + "Out[108]=",ExpressionUUID->"ec478b7f-2783-4572-89d7-75a1371ab72e"] }, Open ]], Cell[CellGroupData[{ @@ -106,13 +111,14 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"p0", "=", "0.17"}]], "Input", CellLabel-> - "In[107]:=",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], + "In[109]:=",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], Cell[BoxData["0.17`"], "Output", CellChangeTimes->{ - 3.9913196498144608`*^9, {3.993815359780024*^9, 3.993815388663189*^9}}, + 3.9913196498144608`*^9, {3.993815359780024*^9, 3.993815388663189*^9}, + 3.993958646333138*^9, 3.993959240262512*^9}, CellLabel-> - "Out[107]=",ExpressionUUID->"9350aeef-b5e0-404b-bf63-e48717103d13"] + "Out[109]=",ExpressionUUID->"952cfc55-88c7-4100-b313-19952153b52f"] }, Open ]], Cell[CellGroupData[{ @@ -124,13 +130,14 @@ Cell[BoxData[ RowBox[{"1", "/", "3"}]]}]}]], "Input", CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, CellLabel-> - "In[108]:=",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], + "In[110]:=",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], Cell[BoxData["6.297448870500181`"], "Output", CellChangeTimes->{ - 3.9913196498225155`*^9, {3.9938153597958603`*^9, 3.993815388676372*^9}}, + 3.9913196498225155`*^9, {3.9938153597958603`*^9, 3.993815388676372*^9}, + 3.993958646348687*^9, 3.9939592402723227`*^9}, CellLabel-> - "Out[108]=",ExpressionUUID->"9092633e-048a-4094-b0f2-40044b6e6eef"] + "Out[110]=",ExpressionUUID->"879e0690-82ab-430f-996b-52c758873082"] }, Open ]], Cell[CellGroupData[{ @@ -143,13 +150,14 @@ Cell[BoxData[ RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"1", "/", "3"}]]}]}]], "Input", CellLabel-> - "In[109]:=",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], + "In[111]:=",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], Cell[BoxData["4.9982884808739705`"], "Output", CellChangeTimes->{ - 3.9913196498425236`*^9, {3.993815359810844*^9, 3.993815388688987*^9}}, + 3.9913196498425236`*^9, {3.993815359810844*^9, 3.993815388688987*^9}, + 3.993958646364296*^9, 3.993959240281878*^9}, CellLabel-> - "Out[109]=",ExpressionUUID->"299e74d9-6c35-47ea-ae02-0c210ce09cc0"] + "Out[111]=",ExpressionUUID->"a849c59e-27e0-4820-8e7a-a4cf10b5117b"] }, Open ]], Cell[CellGroupData[{ @@ -159,12 +167,13 @@ Cell[BoxData[ CellChangeTimes->{ 3.991799283179735*^9, {3.9938151564672937`*^9, 3.9938151618001623`*^9}}, CellLabel-> - "In[110]:=",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], + "In[112]:=",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], Cell[BoxData["0.97776`"], "Output", - CellChangeTimes->{{3.993815359825905*^9, 3.993815388702949*^9}}, + CellChangeTimes->{{3.993815359825905*^9, 3.993815388702949*^9}, + 3.993958646379671*^9, 3.9939592402913303`*^9}, CellLabel-> - "Out[110]=",ExpressionUUID->"3246f67a-e41f-4524-8dd3-07b181d4d934"] + "Out[112]=",ExpressionUUID->"2302fcbc-34fd-4c4c-86bb-ac644cc6a55a"] }, Open ]], Cell[CellGroupData[{ @@ -174,12 +183,13 @@ Cell[BoxData[ CellChangeTimes->{ 3.991799280663351*^9, {3.993815163461789*^9, 3.99381517066012*^9}}, CellLabel-> - "In[111]:=",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], + "In[113]:=",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], Cell[BoxData["0.42961`"], "Output", - CellChangeTimes->{{3.993815359840959*^9, 3.993815388718238*^9}}, + CellChangeTimes->{{3.993815359840959*^9, 3.993815388718238*^9}, + 3.993958646395402*^9, 3.99395924030123*^9}, CellLabel-> - "Out[111]=",ExpressionUUID->"77db9ebb-7b84-4383-a354-4a39faf0d29a"] + "Out[113]=",ExpressionUUID->"cf3836cd-0774-4fb9-9fa1-0648291922bf"] }, Open ]], Cell[CellGroupData[{ @@ -187,13 +197,14 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x1", "=", "0"}]], "Input", CellLabel-> - "In[112]:=",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], + "In[114]:=",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], Cell[BoxData["0"], "Output", CellChangeTimes->{ - 3.9913196498927155`*^9, {3.993815359855208*^9, 3.993815388731841*^9}}, + 3.9913196498927155`*^9, {3.993815359855208*^9, 3.993815388731841*^9}, + 3.993958646410099*^9, 3.993959240325426*^9}, CellLabel-> - "Out[112]=",ExpressionUUID->"07b77744-a6d5-4f56-906f-89b4d3fc4aa6"] + "Out[114]=",ExpressionUUID->"0a07047d-bbbd-4118-bf40-6b950a77c13d"] }, Open ]], Cell[CellGroupData[{ @@ -201,13 +212,14 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x2", "=", "0"}]], "Input", CellLabel-> - "In[113]:=",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], + "In[115]:=",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], Cell[BoxData["0"], "Output", CellChangeTimes->{ - 3.9913196498996067`*^9, {3.993815359869401*^9, 3.993815388746388*^9}}, + 3.9913196498996067`*^9, {3.993815359869401*^9, 3.993815388746388*^9}, + 3.9939586464244757`*^9, 3.993959240330694*^9}, CellLabel-> - "Out[113]=",ExpressionUUID->"06f63b55-e00e-4017-9547-f926363f55cb"] + "Out[115]=",ExpressionUUID->"d04d1e28-e0df-485f-a849-c0576e959923"] }, Open ]], Cell[CellGroupData[{ @@ -232,13 +244,14 @@ Cell[BoxData[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", CellLabel-> - "In[114]:=",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], + "In[116]:=",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], Cell[BoxData["2.50294615878073`"], "Output", CellChangeTimes->{ - 3.9913197863028755`*^9, {3.993815359883766*^9, 3.993815388758988*^9}}, + 3.9913197863028755`*^9, {3.993815359883766*^9, 3.993815388758988*^9}, + 3.993958646439068*^9, 3.993959240342214*^9}, CellLabel-> - "Out[114]=",ExpressionUUID->"66ea7439-12b2-4c19-a096-6526d100db10"] + "Out[116]=",ExpressionUUID->"6eacb911-d7e9-4e27-ba5e-0e4ffda94d0e"] }, Open ]], Cell[CellGroupData[{ @@ -263,13 +276,14 @@ Cell[BoxData[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", CellLabel-> - "In[115]:=",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], + "In[117]:=",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], Cell[BoxData["1.478321690160274`"], "Output", CellChangeTimes->{ - 3.9913197864610195`*^9, {3.9938153598984947`*^9, 3.993815388771246*^9}}, + 3.9913197864610195`*^9, {3.9938153598984947`*^9, 3.993815388771246*^9}, + 3.993958646454102*^9, 3.993959240351659*^9}, CellLabel-> - "Out[115]=",ExpressionUUID->"9b737606-f48c-42f3-b363-6620e82ed16b"] + "Out[117]=",ExpressionUUID->"1cfcd1e5-00ad-4336-b8bc-c20130d97bd9"] }, Open ]], Cell[CellGroupData[{ @@ -325,13 +339,14 @@ Cell[BoxData[ SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", CellLabel-> - "In[116]:=",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], + "In[118]:=",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], Cell[BoxData["0.36228762750256105`"], "Output", CellChangeTimes->{ - 3.991319786533783*^9, {3.993815359913329*^9, 3.993815388784683*^9}}, + 3.991319786533783*^9, {3.993815359913329*^9, 3.993815388784683*^9}, + 3.993958646469401*^9, 3.9939592403610287`*^9}, CellLabel-> - "Out[116]=",ExpressionUUID->"09bde119-fb4a-4206-8aef-16ab6c6087c4"] + "Out[118]=",ExpressionUUID->"3f033dce-57c5-4fed-8bc9-6cb0ebb3b6c5"] }, Open ]], Cell[CellGroupData[{ @@ -383,14 +398,15 @@ Cell[BoxData[ SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", CellLabel-> - "In[117]:=",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], + "In[119]:=",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], Cell[BoxData[ RowBox[{"-", "0.0846607903474445`"}]], "Output", CellChangeTimes->{ - 3.991319786540777*^9, {3.993815359929597*^9, 3.993815388797483*^9}}, + 3.991319786540777*^9, {3.993815359929597*^9, 3.993815388797483*^9}, + 3.993958646484239*^9, 3.993959240370975*^9}, CellLabel-> - "Out[117]=",ExpressionUUID->"051e4918-b990-48c8-bf40-becace4c489a"] + "Out[119]=",ExpressionUUID->"50187f20-b76d-419a-8c5b-56efe41c65e9"] }, Open ]], Cell[CellGroupData[{ @@ -442,14 +458,15 @@ Cell[BoxData[ SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", CellLabel-> - "In[118]:=",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], + "In[120]:=",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], Cell[BoxData[ RowBox[{"-", "0.5809541759341679`"}]], "Output", CellChangeTimes->{ - 3.9913197865777817`*^9, {3.993815359945134*^9, 3.99381538880952*^9}}, + 3.9913197865777817`*^9, {3.993815359945134*^9, 3.99381538880952*^9}, + 3.9939586464991083`*^9, 3.993959240380562*^9}, CellLabel-> - "Out[118]=",ExpressionUUID->"2c2a8d85-2211-4a31-a5c1-dba7c1942b95"] + "Out[120]=",ExpressionUUID->"0cee25e3-3a23-49a3-8bb6-9161df9213ee"] }, Open ]], Cell[CellGroupData[{ @@ -505,13 +522,14 @@ Cell[BoxData[ SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", CellLabel-> - "In[119]:=",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], + "In[121]:=",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], Cell[BoxData["0.700262319146979`"], "Output", CellChangeTimes->{ - 3.9913197866129*^9, {3.993815359960987*^9, 3.993815388821504*^9}}, + 3.9913197866129*^9, {3.993815359960987*^9, 3.993815388821504*^9}, + 3.993958646513887*^9, 3.99395924039006*^9}, CellLabel-> - "Out[119]=",ExpressionUUID->"c7efe675-5339-4cb5-a444-daef0f3a8d40"] + "Out[121]=",ExpressionUUID->"51d90ea7-0061-4fb8-8f91-f197c6511ecc"] }, Open ]], Cell[CellGroupData[{ @@ -519,13 +537,14 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", CellLabel-> - "In[120]:=",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], + "In[122]:=",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], Cell[BoxData["300"], "Output", CellChangeTimes->{ - 3.991319786620775*^9, {3.993815359975456*^9, 3.993815388833537*^9}}, + 3.991319786620775*^9, {3.993815359975456*^9, 3.993815388833537*^9}, + 3.993958646528556*^9, 3.9939592403989973`*^9}, CellLabel-> - "Out[120]=",ExpressionUUID->"344518e9-7202-4083-af57-89b54e16881d"] + "Out[122]=",ExpressionUUID->"cd613fee-7343-46b6-ba46-7f5837d0b227"] }, Open ]], Cell[CellGroupData[{ @@ -533,13 +552,14 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fin", "=", "0.09"}]], "Input", CellLabel-> - "In[121]:=",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], + "In[123]:=",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], Cell[BoxData["0.09`"], "Output", CellChangeTimes->{ - 3.991319786657793*^9, {3.9938153599899197`*^9, 3.993815388845224*^9}}, + 3.991319786657793*^9, {3.9938153599899197`*^9, 3.993815388845224*^9}, + 3.99395864654298*^9, 3.9939592404090643`*^9}, CellLabel-> - "Out[121]=",ExpressionUUID->"473280c8-f4ad-4770-9b75-caff22aa6512"] + "Out[123]=",ExpressionUUID->"8d80e80c-031f-49e6-9361-ce17caafbab6"] }, Open ]], Cell[CellGroupData[{ @@ -547,13 +567,14 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffin", "=", "0.42"}]], "Input", CellLabel-> - "In[122]:=",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], + "In[124]:=",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], Cell[BoxData["0.42`"], "Output", CellChangeTimes->{ - 3.9913197866657925`*^9, {3.99381536000439*^9, 3.9938153888577013`*^9}}, + 3.9913197866657925`*^9, {3.99381536000439*^9, 3.9938153888577013`*^9}, + 3.9939586465577307`*^9, 3.9939592404190483`*^9}, CellLabel-> - "Out[122]=",ExpressionUUID->"b4ba628d-4dd4-42e9-ae63-51a5e960fb76"] + "Out[124]=",ExpressionUUID->"22fa51d2-e002-4937-be16-981199cc158e"] }, Open ]], Cell[CellGroupData[{ @@ -563,14 +584,15 @@ Cell[BoxData[ RowBox[{"-", "2.59"}]}]], "Input", CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, CellLabel-> - "In[123]:=",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], + "In[125]:=",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], Cell[BoxData[ RowBox[{"-", "2.59`"}]], "Output", CellChangeTimes->{ - 3.9913197866996*^9, {3.993815360018857*^9, 3.993815388870207*^9}}, + 3.9913197866996*^9, {3.993815360018857*^9, 3.993815388870207*^9}, + 3.99395864657239*^9, 3.99395924042947*^9}, CellLabel-> - "Out[123]=",ExpressionUUID->"8faa4825-abe7-4274-8319-8af06ba79fa8"] + "Out[125]=",ExpressionUUID->"ed15e73b-1d85-418e-8eed-ea366d8d0ca4"] }, Open ]], Cell[CellGroupData[{ @@ -578,13 +600,14 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffex", "=", "0.54"}]], "Input", CellLabel-> - "In[124]:=",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], + "In[126]:=",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], Cell[BoxData["0.54`"], "Output", CellChangeTimes->{ - 3.9913197867406044`*^9, {3.993815360033464*^9, 3.9938153888824987`*^9}}, + 3.9913197867406044`*^9, {3.993815360033464*^9, 3.9938153888824987`*^9}, + 3.9939586465866947`*^9, 3.993959240439692*^9}, CellLabel-> - "Out[124]=",ExpressionUUID->"207d73c1-84c4-4ea7-83b5-9cd442379f12"] + "Out[126]=",ExpressionUUID->"8b38613a-7843-46e9-83ca-2159a3aebdcc"] }, Open ]], Cell[CellGroupData[{ @@ -595,13 +618,14 @@ Cell[BoxData[ 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, { 3.993815261708016*^9, 3.9938152618435717`*^9}}, CellLabel-> - "In[125]:=",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], + "In[127]:=",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], Cell[BoxData["66"], "Output", CellChangeTimes->{ - 3.9913197867861958`*^9, {3.993815360047928*^9, 3.9938153888940973`*^9}}, + 3.9913197867861958`*^9, {3.993815360047928*^9, 3.9938153888940973`*^9}, + 3.993958646601172*^9, 3.993959240449429*^9}, CellLabel-> - "Out[125]=",ExpressionUUID->"baeb442a-a1cb-49d1-9e57-de88d0b4e029"] + "Out[127]=",ExpressionUUID->"a49fb441-bd95-4b49-b9c6-c8b012c938da"] }, Open ]], Cell[CellGroupData[{ @@ -612,13 +636,14 @@ Cell[BoxData[ CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, 3.9916443064841423`*^9, {3.993815264947379*^9, 3.993815267508748*^9}}, CellLabel-> - "In[126]:=",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], + "In[128]:=",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], Cell[BoxData["28"], "Output", CellChangeTimes->{ - 3.9913197867928696`*^9, {3.993815360062439*^9, 3.993815388907254*^9}}, + 3.9913197867928696`*^9, {3.993815360062439*^9, 3.993815388907254*^9}, + 3.993958646615478*^9, 3.9939592404591093`*^9}, CellLabel-> - "Out[126]=",ExpressionUUID->"e804ad41-c53b-4b3f-b6cf-735a2e5b1f06"] + "Out[128]=",ExpressionUUID->"b80292aa-b2a2-4ed7-ae2c-5273471adf98"] }, Open ]], Cell[CellGroupData[{ @@ -628,13 +653,14 @@ Cell[BoxData[ RowBox[{"A", "-", "A1"}]}]], "Input", CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, CellLabel-> - "In[127]:=",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], + "In[129]:=",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], Cell[BoxData["80"], "Output", CellChangeTimes->{ - 3.991319786827894*^9, {3.993815360076642*^9, 3.993815388920082*^9}}, + 3.991319786827894*^9, {3.993815360076642*^9, 3.993815388920082*^9}, + 3.993958646629941*^9, 3.9939592404688396`*^9}, CellLabel-> - "Out[127]=",ExpressionUUID->"fd81990d-d84a-41cc-b6b7-0917aecac8a5"] + "Out[129]=",ExpressionUUID->"53b3ef6c-c879-45c6-b932-6730c1c85061"] }, Open ]], Cell[CellGroupData[{ @@ -650,13 +676,14 @@ Cell[BoxData[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", CellLabel-> - "In[128]:=",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], + "In[130]:=",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], Cell[BoxData["0.11205`"], "Output", CellChangeTimes->{ - 3.9913197868648605`*^9, {3.993815360091414*^9, 3.993815388933477*^9}}, + 3.9913197868648605`*^9, {3.993815360091414*^9, 3.993815388933477*^9}, + 3.993958646644432*^9, 3.993959240478635*^9}, CellLabel-> - "Out[128]=",ExpressionUUID->"b9142d93-944a-410a-bab4-103f70157835"] + "Out[130]=",ExpressionUUID->"5ecabcad-dc5c-4069-821d-40284df3af25"] }, Open ]], Cell[CellGroupData[{ @@ -672,14 +699,15 @@ Cell[BoxData[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", CellLabel-> - "In[129]:=",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], + "In[131]:=",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], Cell[BoxData[ RowBox[{"-", "2.5616499999999998`"}]], "Output", CellChangeTimes->{ - 3.9913197868718567`*^9, {3.9938153601058817`*^9, 3.993815388947524*^9}}, + 3.9913197868718567`*^9, {3.9938153601058817`*^9, 3.993815388947524*^9}, + 3.993958646659143*^9, 3.9939592404882402`*^9}, CellLabel-> - "Out[129]=",ExpressionUUID->"7abd2059-ee0a-4ed0-9721-7ae3ae0f9652"] + "Out[131]=",ExpressionUUID->"f2c2f01b-90f3-49e6-ac35-2570baaaa52f"] }, Open ]], Cell[CellGroupData[{ @@ -711,13 +739,14 @@ Cell[BoxData[ 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, 3.943418448948422*^9}, {3.9919752185010967`*^9, 3.9919752200326233`*^9}}, CellLabel-> - "In[130]:=",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], + "In[132]:=",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], Cell[BoxData["17.9817039793298`"], "Output", CellChangeTimes->{ - 3.9913197869068584`*^9, {3.9938153601211452`*^9, 3.993815388962264*^9}}, + 3.9913197869068584`*^9, {3.9938153601211452`*^9, 3.993815388962264*^9}, + 3.9939586466747503`*^9, 3.993959240498886*^9}, CellLabel-> - "Out[130]=",ExpressionUUID->"fd69610c-ef0a-4a2b-a9dd-dd528e28ce9a"] + "Out[132]=",ExpressionUUID->"bf09b7f3-434c-4827-989a-085dc7d1bd82"] }, Open ]], Cell[CellGroupData[{ @@ -726,13 +755,14 @@ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, CellLabel-> - "In[131]:=",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], + "In[133]:=",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], Cell[BoxData["300"], "Output", CellChangeTimes->{ - 3.991319786940857*^9, {3.993815360135828*^9, 3.993815388975617*^9}}, + 3.991319786940857*^9, {3.993815360135828*^9, 3.993815388975617*^9}, + 3.993958646689221*^9, 3.9939592405083647`*^9}, CellLabel-> - "Out[131]=",ExpressionUUID->"b034a34d-5170-4359-8106-296076296593"] + "Out[133]=",ExpressionUUID->"a3c62cf8-91fb-491d-be11-1567616e89e0"] }, Open ]], Cell[CellGroupData[{ @@ -743,18 +773,19 @@ Cell[BoxData[ 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { 3.99381519981903*^9, 3.993815203647489*^9}}, CellLabel-> - "In[132]:=",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], + "In[134]:=",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], Cell[BoxData["1.965`"], "Output", - CellChangeTimes->{{3.993815360149398*^9, 3.993815388989003*^9}}, + CellChangeTimes->{{3.993815360149398*^9, 3.993815388989003*^9}, + 3.993958646703771*^9, 3.993959240517766*^9}, CellLabel-> - "Out[132]=",ExpressionUUID->"8782fd6b-0447-4368-999c-6dd3377d9a71"] + "Out[134]=",ExpressionUUID->"16b7e669-78f7-4325-8156-792fff036840"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, CellLabel-> - "In[133]:=",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], + "In[135]:=",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], Cell[CellGroupData[{ @@ -764,18 +795,19 @@ Cell[BoxData[ 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { 3.993815206165124*^9, 3.993815207521797*^9}}, CellLabel-> - "In[134]:=",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], + "In[136]:=",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], Cell[BoxData["0.805`"], "Output", - CellChangeTimes->{{3.993815360178578*^9, 3.993815389006834*^9}}, + CellChangeTimes->{{3.993815360178578*^9, 3.993815389006834*^9}, + 3.993958646731131*^9, 3.993959240530867*^9}, CellLabel-> - "Out[134]=",ExpressionUUID->"3cfd4e3a-ded7-441b-884e-29e26344b219"] + "Out[136]=",ExpressionUUID->"e2b9ed26-d1f9-4430-8a95-c0883180fce1"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, CellLabel-> - "In[135]:=",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], + "In[137]:=",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], Cell[CellGroupData[{ @@ -785,18 +817,19 @@ Cell[BoxData[ 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { 3.993815210101787*^9, 3.9938152142375507`*^9}}, CellLabel-> - "In[136]:=",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], + "In[138]:=",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], Cell[BoxData["2.575`"], "Output", - CellChangeTimes->{{3.993815360206645*^9, 3.993815389025874*^9}}, + CellChangeTimes->{{3.993815360206645*^9, 3.993815389025874*^9}, + 3.99395864675819*^9, 3.993959240543399*^9}, CellLabel-> - "Out[136]=",ExpressionUUID->"cec0c890-94b4-4459-ae7a-788899a224a4"] + "Out[138]=",ExpressionUUID->"0c91077a-2442-48ac-8db9-fbdf0dc9615b"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, CellLabel-> - "In[137]:=",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], + "In[139]:=",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], Cell[CellGroupData[{ @@ -806,18 +839,19 @@ Cell[BoxData[ 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, 3.991799359954439*^9, {3.993815217827416*^9, 3.993815218865891*^9}}, CellLabel-> - "In[138]:=",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], + "In[140]:=",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], Cell[BoxData["1.195`"], "Output", - CellChangeTimes->{{3.9938153602341948`*^9, 3.9938153890444403`*^9}}, + CellChangeTimes->{{3.9938153602341948`*^9, 3.9938153890444403`*^9}, + 3.993958646785417*^9, 3.993959240556076*^9}, CellLabel-> - "Out[138]=",ExpressionUUID->"75298492-1609-4626-8ec4-2ba9eaad8866"] + "Out[140]=",ExpressionUUID->"b0bf74c9-2db7-467d-86d7-576900070905"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, CellLabel-> - "In[139]:=",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], + "In[141]:=",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], Cell[CellGroupData[{ @@ -827,18 +861,19 @@ Cell[BoxData[ 3.991718016467348*^9, 3.991799361414671*^9, {3.993815222374446*^9, 3.993815224623548*^9}}, CellLabel-> - "In[140]:=",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], + "In[142]:=",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], Cell[BoxData["1.213`"], "Output", - CellChangeTimes->{{3.99381536026166*^9, 3.993815389060953*^9}}, + CellChangeTimes->{{3.99381536026166*^9, 3.993815389060953*^9}, + 3.9939586468116283`*^9, 3.993959240568568*^9}, CellLabel-> - "Out[140]=",ExpressionUUID->"0ff287ba-3e3b-491c-8eda-d1775b6e6609"] + "Out[142]=",ExpressionUUID->"a888dd19-4d58-4eec-b32f-16e57dcc7d26"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, CellLabel-> - "In[141]:=",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], + "In[143]:=",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], Cell[CellGroupData[{ @@ -848,18 +883,19 @@ Cell[BoxData[ 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.9938152272320232`*^9, 3.993815230573249*^9}}, CellLabel-> - "In[142]:=",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], + "In[144]:=",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], Cell[BoxData["0.576`"], "Output", - CellChangeTimes->{{3.99381536028929*^9, 3.993815389077355*^9}}, + CellChangeTimes->{{3.99381536028929*^9, 3.993815389077355*^9}, + 3.9939586468382273`*^9, 3.993959240581381*^9}, CellLabel-> - "Out[142]=",ExpressionUUID->"314a8975-bc09-4a68-959e-e43188184321"] + "Out[144]=",ExpressionUUID->"26d10228-69e1-444c-969c-d95754e125e0"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, CellLabel-> - "In[143]:=",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], + "In[145]:=",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], Cell[CellGroupData[{ @@ -869,18 +905,19 @@ Cell[BoxData[ 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.993815233406152*^9, 3.9938152359541283`*^9}}, CellLabel-> - "In[144]:=",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], + "In[146]:=",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], Cell[BoxData["1.35`"], "Output", - CellChangeTimes->{{3.993815360317037*^9, 3.993815389094755*^9}}, + CellChangeTimes->{{3.993815360317037*^9, 3.993815389094755*^9}, + 3.993958646864482*^9, 3.993959240596607*^9}, CellLabel-> - "Out[144]=",ExpressionUUID->"326575a0-cfd7-40b3-aa55-9056f7df9c2b"] + "Out[146]=",ExpressionUUID->"02ab5665-8182-481d-b707-d89f2e4461be"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, CellLabel-> - "In[145]:=",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], + "In[147]:=",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], Cell[CellGroupData[{ @@ -889,18 +926,19 @@ Cell[BoxData[ CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, 3.9917993660901737`*^9, {3.99381523872539*^9, 3.9938152401714783`*^9}}, CellLabel-> - "In[146]:=",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], + "In[148]:=",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], Cell[BoxData["0.715`"], "Output", - CellChangeTimes->{{3.993815360345028*^9, 3.993815389112644*^9}}, + CellChangeTimes->{{3.993815360345028*^9, 3.993815389112644*^9}, + 3.9939586468924627`*^9, 3.993959240609065*^9}, CellLabel-> - "Out[146]=",ExpressionUUID->"9b00b717-7751-416a-8259-f11492ddd6f7"] + "Out[148]=",ExpressionUUID->"f19b94a8-5e6e-4bde-abe5-ec1ac1c215ab"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, CellLabel-> - "In[147]:=",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], + "In[149]:=",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], Cell[CellGroupData[{ @@ -1390,13 +1428,14 @@ Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== "], CellLabel-> - "In[148]:=",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], + "In[150]:=",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], Cell[BoxData["0.10594190044976036`"], "Output", CellChangeTimes->{ - 3.991319787430073*^9, {3.993815360436064*^9, 3.993815389153583*^9}}, + 3.991319787430073*^9, {3.993815360436064*^9, 3.993815389153583*^9}, + 3.993958649558243*^9, 3.9939592406511602`*^9}, CellLabel-> - "Out[148]=",ExpressionUUID->"08234167-fe68-46e5-85d2-f92625024e1c"] + "Out[150]=",ExpressionUUID->"8ab563c2-371c-432a-b605-3a1b5b5dad3c"] }, Open ]], Cell[CellGroupData[{ @@ -1891,13 +1930,14 @@ Cell[BoxData[ 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, CellLabel-> - "In[149]:=",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], + "In[151]:=",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], Cell[BoxData["6.461769506994958`"], "Output", CellChangeTimes->{ - 3.991319787574972*^9, {3.9938153604720716`*^9, 3.993815389182211*^9}}, + 3.991319787574972*^9, {3.9938153604720716`*^9, 3.993815389182211*^9}, + 3.993958649585424*^9, 3.993959240684887*^9}, CellLabel-> - "Out[149]=",ExpressionUUID->"f95fd5dc-bf0d-4adf-a9aa-89edcc176a6a"] + "Out[151]=",ExpressionUUID->"9f062c12-c840-4488-aec2-3ea8a89c9f9e"] }, Open ]], Cell[CellGroupData[{ @@ -2386,14 +2426,15 @@ Cell[BoxData[ 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, CellLabel-> - "In[150]:=",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], + "In[152]:=",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], Cell[BoxData[ RowBox[{"-", "16.996339172809833`"}]], "Output", CellChangeTimes->{ - 3.991319787641424*^9, {3.9938153605547743`*^9, 3.993815389210862*^9}}, + 3.991319787641424*^9, {3.9938153605547743`*^9, 3.993815389210862*^9}, + 3.993958649612328*^9, 3.993959240714374*^9}, CellLabel-> - "Out[150]=",ExpressionUUID->"8cc9ba84-4ba2-4eb1-a3a5-4f67f2ee23fa"] + "Out[152]=",ExpressionUUID->"4a1dfd64-c0b7-4c04-962c-62567faee8e3"] }, Open ]], Cell[CellGroupData[{ @@ -2952,14 +2993,15 @@ Cell[BoxData[ RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", CellLabel-> - "In[151]:=",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], + "In[153]:=",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], Cell[BoxData[ RowBox[{"-", "23.66687085044272`"}]], "Output", CellChangeTimes->{ - 3.991319787711939*^9, {3.9938153605968103`*^9, 3.9938153892445498`*^9}}, + 3.991319787711939*^9, {3.9938153605968103`*^9, 3.9938153892445498`*^9}, + 3.9939586496469717`*^9, 3.99395924074958*^9}, CellLabel-> - "Out[151]=",ExpressionUUID->"405d46e9-7a10-424d-bbfa-5f198f569ffc"] + "Out[153]=",ExpressionUUID->"0f7625b1-65a4-4e0c-ac57-7d6656cca917"] }, Open ]], Cell[CellGroupData[{ @@ -3518,14 +3560,15 @@ Cell[BoxData[ RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", CellLabel-> - "In[152]:=",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], + "In[154]:=",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], Cell[BoxData[ RowBox[{"-", "64.87070371918927`"}]], "Output", CellChangeTimes->{ - 3.9913197877723045`*^9, {3.9938153606388206`*^9, 3.993815389278417*^9}}, + 3.9913197877723045`*^9, {3.9938153606388206`*^9, 3.993815389278417*^9}, + 3.993958649683728*^9, 3.99395924078442*^9}, CellLabel-> - "Out[152]=",ExpressionUUID->"561b09ba-d395-4800-93a0-11986edc9f8e"] + "Out[154]=",ExpressionUUID->"84f31232-3ead-4642-ac10-79431cbfa49f"] }, Open ]], Cell[CellGroupData[{ @@ -4157,14 +4200,15 @@ Cell[BoxData[ RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", CellLabel-> - "In[153]:=",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], + "In[155]:=",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], Cell[BoxData[ RowBox[{"-", "180.27815067607094`"}]], "Output", CellChangeTimes->{ - 3.991319787833355*^9, {3.993815360684663*^9, 3.993815389318866*^9}}, + 3.991319787833355*^9, {3.993815360684663*^9, 3.993815389318866*^9}, + 3.993958649726467*^9, 3.993959240833187*^9}, CellLabel-> - "Out[153]=",ExpressionUUID->"91c6bfa4-6bfa-4097-bb1e-e49529ae8ed3"] + "Out[155]=",ExpressionUUID->"ba2445f1-7f0b-4579-8cd5-cc681e7c5912"] }, Open ]], Cell[CellGroupData[{ @@ -4172,13 +4216,14 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U21", "=", "0"}]], "Input", CellLabel-> - "In[154]:=",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], + "In[156]:=",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], Cell[BoxData["0"], "Output", CellChangeTimes->{ - 3.9913204210013676`*^9, {3.993815360701696*^9, 3.993815389332931*^9}}, + 3.9913204210013676`*^9, {3.993815360701696*^9, 3.993815389332931*^9}, + 3.99395864974012*^9, 3.993959240843995*^9}, CellLabel-> - "Out[154]=",ExpressionUUID->"828d4ec5-8104-4b24-b674-b5f348bb4584"] + "Out[156]=",ExpressionUUID->"85c41d92-1532-423d-b633-e1978b69c6ad"] }, Open ]], Cell[CellGroupData[{ @@ -4186,13 +4231,14 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U22", "=", "0"}]], "Input", CellLabel-> - "In[155]:=",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], + "In[157]:=",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], Cell[BoxData["0"], "Output", CellChangeTimes->{ - 3.9913204210355663`*^9, {3.9938153607167177`*^9, 3.993815389344874*^9}}, + 3.9913204210355663`*^9, {3.9938153607167177`*^9, 3.993815389344874*^9}, + 3.993958649755121*^9, 3.993959240849769*^9}, CellLabel-> - "Out[155]=",ExpressionUUID->"964a9a97-05d0-49ed-b4fa-0b02d5ba5a24"] + "Out[157]=",ExpressionUUID->"cae24648-d812-44c1-b473-1adb6a80b2c8"] }, Open ]], Cell[CellGroupData[{ @@ -4237,13 +4283,14 @@ Cell[BoxData[ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", CellLabel-> - "In[156]:=",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], + "In[158]:=",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], Cell[BoxData["131.34670371854253`"], "Output", CellChangeTimes->{ - 3.991320421068556*^9, {3.993815360730653*^9, 3.9938153893568707`*^9}}, + 3.991320421068556*^9, {3.993815360730653*^9, 3.9938153893568707`*^9}, + 3.993958649768943*^9, 3.993959240860825*^9}, CellLabel-> - "Out[156]=",ExpressionUUID->"bdd56dc4-c5b9-48fe-b907-4c00a8590475"] + "Out[158]=",ExpressionUUID->"d3183bdb-a0cd-4f0b-b9e0-cc1a70afa715"] }, Open ]], Cell[CellGroupData[{ @@ -4284,14 +4331,15 @@ Cell[BoxData[ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", CellLabel-> - "In[157]:=",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], + "In[159]:=",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], Cell[BoxData[ RowBox[{"-", "121.12984521648005`"}]], "Output", CellChangeTimes->{ - 3.991320421098543*^9, {3.993815360744831*^9, 3.993815389368895*^9}}, + 3.991320421098543*^9, {3.993815360744831*^9, 3.993815389368895*^9}, + 3.993958649781246*^9, 3.9939592408754377`*^9}, CellLabel-> - "Out[157]=",ExpressionUUID->"e09ff24e-d37a-4041-b731-af2e5f752f61"] + "Out[159]=",ExpressionUUID->"4ff3b0ee-1447-4bd4-a418-275811180720"] }, Open ]], Cell[CellGroupData[{ @@ -4336,93 +4384,100 @@ Cell[BoxData[ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", CellLabel-> - "In[158]:=",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], + "In[160]:=",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], Cell[BoxData["137.31484295247708`"], "Output", CellChangeTimes->{ - 3.9913204211275444`*^9, {3.993815360759387*^9, 3.993815389381069*^9}}, + 3.9913204211275444`*^9, {3.993815360759387*^9, 3.993815389381069*^9}, + 3.99395864979466*^9, 3.993959240889702*^9}, CellLabel-> - "Out[158]=",ExpressionUUID->"5b5463ac-f754-4e40-8ccf-5b0630031fcd"] + "Out[160]=",ExpressionUUID->"c44ad502-bcaa-4d7c-a6b7-05c16bc1024d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c11"], "Input", CellLabel-> - "In[159]:=",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], + "In[161]:=",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], Cell[BoxData["0.36228762750256105`"], "Output", CellChangeTimes->{ - 3.9913204211385536`*^9, {3.993815360773879*^9, 3.993815389392989*^9}}, + 3.9913204211385536`*^9, {3.993815360773879*^9, 3.993815389392989*^9}, + 3.9939586498072023`*^9, 3.993959240899477*^9}, CellLabel-> - "Out[159]=",ExpressionUUID->"351c99d1-b71e-4da9-bff0-47474f32a9fc"] + "Out[161]=",ExpressionUUID->"8549581e-6e9f-4648-a8a4-282b12998faf"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c12"], "Input", CellLabel-> - "In[160]:=",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], + "In[162]:=",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], Cell[BoxData[ RowBox[{"-", "0.0846607903474445`"}]], "Output", CellChangeTimes->{ - 3.9913204211683464`*^9, {3.993815360788493*^9, 3.993815389404903*^9}}, + 3.9913204211683464`*^9, {3.993815360788493*^9, 3.993815389404903*^9}, + 3.9939586498198338`*^9, 3.993959240910729*^9}, CellLabel-> - "Out[160]=",ExpressionUUID->"5f87da00-ba16-46fe-9fae-4341555570cc"] + "Out[162]=",ExpressionUUID->"c720f44c-e962-49f3-83a4-7ab674a7253d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c21"], "Input", CellLabel-> - "In[161]:=",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], + "In[163]:=",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], Cell[BoxData[ RowBox[{"-", "0.5809541759341679`"}]], "Output", CellChangeTimes->{ - 3.991320421199068*^9, {3.993815360803743*^9, 3.9938153894169493`*^9}}, + 3.991320421199068*^9, {3.993815360803743*^9, 3.9938153894169493`*^9}, + 3.993958649837104*^9, 3.993959240920765*^9}, CellLabel-> - "Out[161]=",ExpressionUUID->"6de9b9d0-e130-42c8-a6ed-829cd3bae792"] + "Out[163]=",ExpressionUUID->"0d95941f-8c66-4767-99e0-4e11c5e9c317"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c22"], "Input", CellLabel-> - "In[162]:=",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], + "In[164]:=",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], Cell[BoxData["0.700262319146979`"], "Output", CellChangeTimes->{ - 3.991320421228037*^9, {3.9938153608194017`*^9, 3.993815389428903*^9}}, + 3.991320421228037*^9, {3.9938153608194017`*^9, 3.993815389428903*^9}, + 3.993958649850066*^9, 3.993959240930368*^9}, CellLabel-> - "Out[162]=",ExpressionUUID->"3580e79e-4e01-413b-9f56-ff363a4a4b88"] + "Out[164]=",ExpressionUUID->"c40a374c-596f-4f68-b311-d9cbd5f7b642"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w1"], "Input", CellLabel-> - "In[163]:=",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], + "In[165]:=",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], Cell[BoxData["2.50294615878073`"], "Output", CellChangeTimes->{ - 3.9913204212585373`*^9, {3.993815360835617*^9, 3.9938153894408617`*^9}}, + 3.9913204212585373`*^9, {3.993815360835617*^9, 3.9938153894408617`*^9}, + 3.993958649863385*^9, 3.9939592409400167`*^9}, CellLabel-> - "Out[163]=",ExpressionUUID->"7d2b9478-3706-4acf-b542-35d26962e7bf"] + "Out[165]=",ExpressionUUID->"26bee78e-88dc-4789-9cbd-bd1b64e16b1b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w2"], "Input", CellLabel-> - "In[164]:=",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], + "In[166]:=",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], Cell[BoxData["1.478321690160274`"], "Output", CellChangeTimes->{ - 3.9913204212884274`*^9, {3.993815360850321*^9, 3.9938153894528627`*^9}}, + 3.9913204212884274`*^9, {3.993815360850321*^9, 3.9938153894528627`*^9}, + 3.9939586498771133`*^9, 3.993959240949666*^9}, CellLabel-> - "Out[164]=",ExpressionUUID->"c016084d-06aa-47ac-8cb1-95ccf3f62ff4"] + "Out[166]=",ExpressionUUID->"903052c0-a334-4dbe-8531-7b35c38334b0"] }, Open ]], Cell[CellGroupData[{ @@ -4444,14 +4499,15 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", CellLabel-> - "In[165]:=",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], + "In[167]:=",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], Cell[BoxData[ RowBox[{"-", "34.35384696882824`"}]], "Output", CellChangeTimes->{ - 3.9913204213185234`*^9, {3.993815360867701*^9, 3.993815389464924*^9}}, + 3.9913204213185234`*^9, {3.993815360867701*^9, 3.993815389464924*^9}, + 3.993958649889442*^9, 3.9939592409596167`*^9}, CellLabel-> - "Out[165]=",ExpressionUUID->"7f6f454f-bf8c-4928-aebc-4c8e5acbd63a"] + "Out[167]=",ExpressionUUID->"d19df074-b109-4361-aca5-2bfad46a685a"] }, Open ]], Cell[CellGroupData[{ @@ -4473,14 +4529,15 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", CellLabel-> - "In[166]:=",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], + "In[168]:=",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], Cell[BoxData[ RowBox[{"-", "7.30490507028344`"}]], "Output", CellChangeTimes->{ - 3.991320421349531*^9, {3.993815360882195*^9, 3.9938153894771433`*^9}}, + 3.991320421349531*^9, {3.993815360882195*^9, 3.9938153894771433`*^9}, + 3.993958649903101*^9, 3.993959240969482*^9}, CellLabel-> - "Out[166]=",ExpressionUUID->"0722742a-8aa1-4110-b45f-a491a9e2776f"] + "Out[168]=",ExpressionUUID->"cf38699d-4147-48fc-b552-346bee406c82"] }, Open ]], Cell[CellGroupData[{ @@ -4546,13 +4603,14 @@ Cell[BoxData[ RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]}]}]], "Input", CellLabel-> - "In[167]:=",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], + "In[169]:=",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], Cell[BoxData["96.99285674971429`"], "Output", CellChangeTimes->{ - 3.9913204213784294`*^9, {3.9938153608971453`*^9, 3.993815389489629*^9}}, + 3.9913204213784294`*^9, {3.9938153608971453`*^9, 3.993815389489629*^9}, + 3.993958649916582*^9, 3.993959240979701*^9}, CellLabel-> - "Out[167]=",ExpressionUUID->"fee4d34c-61be-43d9-b3eb-6517ab3cde97"] + "Out[169]=",ExpressionUUID->"1b47b7a5-4b75-4b5e-b24d-519ccd326430"] }, Open ]], Cell[CellGroupData[{ @@ -4594,14 +4652,15 @@ Cell[BoxData[ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", CellLabel-> - "In[168]:=",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], + "In[170]:=",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], Cell[BoxData[ RowBox[{"-", "121.12984521648005`"}]], "Output", CellChangeTimes->{ - 3.9913204213904285`*^9, {3.9938153609115973`*^9, 3.9938153895018883`*^9}}, + 3.9913204213904285`*^9, {3.9938153609115973`*^9, 3.9938153895018883`*^9}, + 3.993958649928854*^9, 3.9939592409894247`*^9}, CellLabel-> - "Out[168]=",ExpressionUUID->"5b17f712-af11-48d5-b9e2-23063db7cb14"] + "Out[170]=",ExpressionUUID->"ac80075a-a06b-4884-8663-e770c13965a4"] }, Open ]], Cell[CellGroupData[{ @@ -4668,13 +4727,14 @@ Cell[BoxData[ RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]}]}]], "Input", CellLabel-> - "In[169]:=",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], + "In[171]:=",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], Cell[BoxData["130.00993788219364`"], "Output", CellChangeTimes->{ - 3.991320421419428*^9, {3.993815360925351*^9, 3.993815389514392*^9}}, + 3.991320421419428*^9, {3.993815360925351*^9, 3.993815389514392*^9}, + 3.993958649941387*^9, 3.993959240999456*^9}, CellLabel-> - "Out[169]=",ExpressionUUID->"5c2af64e-1289-455d-a961-bed4c4233c44"] + "Out[171]=",ExpressionUUID->"99d3e00e-8db6-42e7-89a3-1562475d72fb"] }, Open ]], Cell[CellGroupData[{ @@ -4733,13 +4793,14 @@ Cell[BoxData[ "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", CellLabel-> - "In[170]:=",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], + "In[172]:=",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], Cell[BoxData["33.05673140049902`"], "Output", CellChangeTimes->{ - 3.9913204214494324`*^9, {3.993815360940073*^9, 3.993815389526847*^9}}, + 3.9913204214494324`*^9, {3.993815360940073*^9, 3.993815389526847*^9}, + 3.993958649954606*^9, 3.993959241009656*^9}, CellLabel-> - "Out[170]=",ExpressionUUID->"19673e06-cccd-488c-ab30-ab99fc1262cf"] + "Out[172]=",ExpressionUUID->"5119f483-f20d-43a7-95f4-1d86237e8467"] }, Open ]], Cell[CellGroupData[{ @@ -4798,13 +4859,14 @@ Cell[BoxData[ "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", CellLabel-> - "In[171]:=",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], + "In[173]:=",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], Cell[BoxData["781.6942369302528`"], "Output", CellChangeTimes->{ - 3.991320421481529*^9, {3.9938153609551077`*^9, 3.993815389531186*^9}}, + 3.991320421481529*^9, {3.9938153609551077`*^9, 3.993815389531186*^9}, + 3.993958649967162*^9, 3.993959241019372*^9}, CellLabel-> - "Out[171]=",ExpressionUUID->"fe2a68d7-0bee-4f26-bced-35d3d53b9775"] + "Out[173]=",ExpressionUUID->"c1d92fd0-3ce2-44dd-9e8a-d5b60dc1f7c2"] }, Open ]], Cell[CellGroupData[{ @@ -4814,18 +4876,19 @@ Cell[BoxData[ CellChangeTimes->{ 3.991799412462593*^9, {3.993815277812922*^9, 3.99381528808337*^9}}, CellLabel-> - "In[172]:=",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], + "In[174]:=",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], Cell[BoxData["0.8778`"], "Output", - CellChangeTimes->{{3.993815360970145*^9, 3.9938153895543222`*^9}}, + CellChangeTimes->{{3.993815360970145*^9, 3.9938153895543222`*^9}, + 3.9939586499795837`*^9, 3.9939592410286427`*^9}, CellLabel-> - "Out[172]=",ExpressionUUID->"d29d000d-c801-4cf6-b0be-3375500f840c"] + "Out[174]=",ExpressionUUID->"85594dee-c264-411f-a513-8a4300e6bd31"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.99184866880085*^9, 3.9918486688048573`*^9}}, CellLabel-> - "In[173]:=",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], + "In[175]:=",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], Cell[CellGroupData[{ @@ -4834,18 +4897,19 @@ Cell[BoxData[ CellChangeTimes->{ 3.991799414288656*^9, {3.9938152922738667`*^9, 3.993815300131135*^9}}, CellLabel-> - "In[174]:=",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], + "In[176]:=",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], Cell[BoxData["0.6077`"], "Output", - CellChangeTimes->{{3.993815360988246*^9, 3.993815389569374*^9}}, + CellChangeTimes->{{3.993815360988246*^9, 3.993815389569374*^9}, + 3.993958649995223*^9, 3.9939592410409727`*^9}, CellLabel-> - "Out[174]=",ExpressionUUID->"33a747ba-36b6-4e5f-bb2f-42b611f64592"] + "Out[176]=",ExpressionUUID->"0fa6846e-5369-4130-9f9e-a7ceb1987892"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848669922333*^9, 3.9918486699293537`*^9}}, CellLabel-> - "In[175]:=",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], + "In[177]:=",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], Cell[CellGroupData[{ @@ -4892,13 +4956,14 @@ Cell[BoxData[ RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], ")"}]}]], "Input", CellLabel-> - "In[176]:=",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], + "In[178]:=",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], Cell[BoxData["1.6373494975860167`*^-53"], "Output", CellChangeTimes->{ - 3.99132042156752*^9, {3.993815361005994*^9, 3.993815389584311*^9}}, + 3.99132042156752*^9, {3.993815361005994*^9, 3.993815389584311*^9}, + 3.99395865001195*^9, 3.9939592410781603`*^9}, CellLabel-> - "Out[176]=",ExpressionUUID->"f6db4df5-b7f2-4fe9-91c7-aef809670022"] + "Out[178]=",ExpressionUUID->"738ad1b0-f5e6-4bb2-aac5-0760969fa1ad"] }, Open ]], Cell[CellGroupData[{ @@ -4934,13 +4999,14 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", CellChangeTimes->{3.991557471461853*^9}, CellLabel-> - "In[177]:=",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], + "In[179]:=",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], Cell[BoxData["1.7967651904833187`*^-54"], "Output", CellChangeTimes->{ - 3.99132042159643*^9, {3.9938153610204*^9, 3.993815389596504*^9}}, + 3.99132042159643*^9, {3.9938153610204*^9, 3.993815389596504*^9}, + 3.993958650024137*^9, 3.9939592411015882`*^9}, CellLabel-> - "Out[177]=",ExpressionUUID->"09e0d501-a131-4b59-94d3-3fa6af498799"] + "Out[179]=",ExpressionUUID->"2f67cdad-20e4-42da-804d-6b02d19cf32e"] }, Open ]], Cell[CellGroupData[{ @@ -4975,13 +5041,14 @@ Cell[BoxData[ "f2"}]}]], "Input", CellChangeTimes->{{3.991557474366678*^9, 3.99155747655138*^9}}, CellLabel-> - "In[178]:=",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], + "In[180]:=",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], Cell[BoxData["3.0175410325255053`*^-54"], "Output", CellChangeTimes->{ - 3.9913204216085243`*^9, {3.993815361034885*^9, 3.993815389609229*^9}}, + 3.9913204216085243`*^9, {3.993815361034885*^9, 3.993815389609229*^9}, + 3.993958650038262*^9, 3.9939592411075077`*^9}, CellLabel-> - "Out[178]=",ExpressionUUID->"0db80185-8211-4c10-964c-fa5afb62d34b"] + "Out[180]=",ExpressionUUID->"8889a1b4-5042-4578-88e9-bfd40a274f34"] }, Open ]], Cell[CellGroupData[{ @@ -5005,7 +5072,7 @@ Cell[BoxData[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", CellLabel-> - "In[179]:=",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], + "In[181]:=",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], Cell[BoxData["16.34376778536805`"], "Output", CellChangeTimes->{ @@ -5015,9 +5082,9 @@ Cell[BoxData["16.34376778536805`"], "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.993815361049447*^9, - 3.9938153896216288`*^9}}, + 3.9938153896216288`*^9}, 3.9939586500516148`*^9, 3.993959241112667*^9}, CellLabel-> - "Out[179]=",ExpressionUUID->"69cd868d-9590-48c3-b383-dd731abebb0c"] + "Out[181]=",ExpressionUUID->"37b2d053-def3-43d9-8615-ae0125df0198"] }, Open ]], Cell[CellGroupData[{ @@ -5044,7 +5111,7 @@ Cell[BoxData[ RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", CellChangeTimes->{3.992086162437586*^9}, CellLabel-> - "In[180]:=",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], + "In[182]:=",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], Cell[BoxData["53.9921469252098`"], "Output", CellChangeTimes->{ @@ -5053,9 +5120,10 @@ Cell[BoxData["53.9921469252098`"], "Output", 3.992086668289461*^9, {3.992086776775297*^9, 3.9920868041333256`*^9}, 3.992091247484524*^9, {3.9920913926676064`*^9, 3.9920914468313007`*^9}, { 3.9920915031479607`*^9, 3.9920915226223583`*^9}, {3.9920915619450817`*^9, - 3.992091588571615*^9}, {3.993815361063991*^9, 3.993815389635419*^9}}, + 3.992091588571615*^9}, {3.993815361063991*^9, 3.993815389635419*^9}, + 3.993958650064806*^9, 3.993959241117744*^9}, CellLabel-> - "Out[180]=",ExpressionUUID->"12e4e99b-0e00-46df-ae19-d58dc1b9358b"] + "Out[182]=",ExpressionUUID->"2fb2aed8-2d96-4dd2-8599-821672e19831"] }, Open ]], Cell[CellGroupData[{ @@ -5065,7 +5133,7 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", CellLabel-> - "In[181]:=",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], + "In[183]:=",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], Cell[BoxData["1.4221776946684166`"], "Output", CellChangeTimes->{ @@ -5075,9 +5143,9 @@ Cell[BoxData["1.4221776946684166`"], "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.993815361078586*^9, - 3.993815389648085*^9}}, + 3.993815389648085*^9}, 3.9939586500807743`*^9, 3.993959241122847*^9}, CellLabel-> - "Out[181]=",ExpressionUUID->"c3bf06d9-e6a9-4cbe-b0c2-6902a46705a3"] + "Out[183]=",ExpressionUUID->"c486d52e-e696-4f82-a064-7be33d538ec8"] }, Open ]], Cell[CellGroupData[{ @@ -5088,7 +5156,7 @@ Cell[BoxData[ FractionBox["Kw", "Qw2"]]}]], "Input", CellChangeTimes->{{3.992086303949501*^9, 3.992086304210249*^9}}, CellLabel-> - "In[182]:=",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], + "In[184]:=",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], Cell[BoxData["3.8049868183828597`"], "Output", CellChangeTimes->{ @@ -5097,9 +5165,10 @@ Cell[BoxData["3.8049868183828597`"], "Output", 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.9938153610939817`*^9, 3.9938153896605663`*^9}}, + 3.9938153610939817`*^9, 3.9938153896605663`*^9}, 3.9939586500937*^9, + 3.9939592411278353`*^9}, CellLabel-> - "Out[182]=",ExpressionUUID->"f6d2e9dd-914f-449e-9325-41595df00515"] + "Out[184]=",ExpressionUUID->"acca76e3-ce04-4230-8ed2-2e9056e88a0e"] }, Open ]], Cell[CellGroupData[{ @@ -5110,7 +5179,7 @@ Cell[BoxData[ RowBox[{"Qw2", "*", "hw"}], "1"]}]], "Input", CellChangeTimes->{3.992086167409481*^9}, CellLabel-> - "In[183]:=",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], + "In[185]:=",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], Cell[BoxData["205.43940734661393`"], "Output", CellChangeTimes->{ @@ -5119,9 +5188,10 @@ Cell[BoxData["205.43940734661393`"], "Output", 3.9920866683466625`*^9, {3.9920867768341465`*^9, 3.9920868041850357`*^9}, 3.992091247547844*^9, {3.9920913927375374`*^9, 3.992091446867302*^9}, { 3.992091503209553*^9, 3.992091522657341*^9}, {3.992091561999613*^9, - 3.9920915886284447`*^9}, {3.993815361108458*^9, 3.9938153896729*^9}}, + 3.9920915886284447`*^9}, {3.993815361108458*^9, 3.9938153896729*^9}, + 3.9939586501067877`*^9, 3.993959241132579*^9}, CellLabel-> - "Out[183]=",ExpressionUUID->"3a2a6831-9c94-4ae5-975c-cc844165c3fb"] + "Out[185]=",ExpressionUUID->"17d67621-1a21-4579-a10c-6d172efc831e"] }, Open ]], Cell[CellGroupData[{ @@ -5131,7 +5201,7 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[184]:=",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], + "In[186]:=",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], Cell[BoxData["23.243741991190667`"], "Output", CellChangeTimes->{ @@ -5141,9 +5211,9 @@ Cell[BoxData["23.243741991190667`"], "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.9938153611229563`*^9, - 3.9938153896851387`*^9}}, + 3.9938153896851387`*^9}, 3.993958650120467*^9, 3.993959241137412*^9}, CellLabel-> - "Out[184]=",ExpressionUUID->"83e12e09-8fb0-497f-a1fb-5edbc468eb83"] + "Out[186]=",ExpressionUUID->"ab07be69-4284-4f78-a859-5ed66ab00c8d"] }, Open ]], Cell[CellGroupData[{ @@ -5333,7 +5403,7 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[185]:=",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], + "In[187]:=",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], Cell[BoxData["0.005740832890061576`"], "Output", CellChangeTimes->{ @@ -5342,9 +5412,10 @@ Cell[BoxData["0.005740832890061576`"], "Output", 3.992086602254381*^9, {3.992086776882221*^9, 3.9920868042180786`*^9}, 3.992091247578861*^9, {3.9920913927664986`*^9, 3.992091446900387*^9}, { 3.992091503241564*^9, 3.9920915226853714`*^9}, {3.9920915620301514`*^9, - 3.992091588657053*^9}, {3.9938153611382103`*^9, 3.993815389698512*^9}}, + 3.992091588657053*^9}, {3.9938153611382103`*^9, 3.993815389698512*^9}, + 3.993958650133861*^9, 3.9939592411445093`*^9}, CellLabel-> - "Out[185]=",ExpressionUUID->"c6c0dac8-25dd-48f5-a8c0-756292745786"] + "Out[187]=",ExpressionUUID->"8c3f4f6b-dcfb-4bcf-b080-0f9183dcb737"] }, Open ]], Cell[CellGroupData[{ @@ -5359,7 +5430,7 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", Background->RGBColor[0.4, 0.6, 1, 0.33], CellLabel-> - "In[186]:=",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], + "In[188]:=",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], Cell[BoxData["11.696542093469247`"], "Output", CellChangeTimes->{ @@ -5368,10 +5439,11 @@ Cell[BoxData["11.696542093469247`"], "Output", 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.993815362449792*^9, 3.993815389738867*^9}}, + 3.9920915887305927`*^9}, {3.993815362449792*^9, 3.993815389738867*^9}, + 3.993958650306497*^9, 3.993959241189907*^9}, Background->RGBColor[0.14, 0.8, 0.14, 0.33], CellLabel-> - "Out[186]=",ExpressionUUID->"6b271ee4-1352-4206-97ba-ad0227c7181d"] + "Out[188]=",ExpressionUUID->"f81d4af2-e2fd-4900-bc0d-9fae69e9c838"] }, Open ]], Cell[BoxData[ @@ -5384,7 +5456,7 @@ Cell[BoxData[ 3.9920863634349823`*^9}, {3.9920864985362244`*^9, 3.992086501430176*^9}, { 3.9920869541635437`*^9, 3.992086954848522*^9}}, CellLabel-> - "In[187]:=",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], + "In[189]:=",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], Cell[CellGroupData[{ @@ -5407,13 +5479,14 @@ Cell[BoxData[ RowBox[{"Ih", "*", "Ir"}], RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", CellLabel-> - "In[188]:=",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], + "In[190]:=",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], Cell[BoxData["36.97727872671027`"], "Output", CellChangeTimes->{ - 3.991320421637537*^9, {3.993815362530883*^9, 3.993815389755418*^9}}, + 3.991320421637537*^9, {3.993815362530883*^9, 3.993815389755418*^9}, + 3.993958650329685*^9, 3.993959241198105*^9}, CellLabel-> - "Out[188]=",ExpressionUUID->"bac87680-2e69-480c-b62d-d1d376ca7098"] + "Out[190]=",ExpressionUUID->"b8bad34a-7788-4532-bf78-36411ffec5ec"] }, Open ]], Cell[CellGroupData[{ @@ -5439,13 +5512,14 @@ Cell[BoxData[ RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", CellLabel-> - "In[189]:=",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], + "In[191]:=",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], Cell[BoxData["53.9921469252098`"], "Output", CellChangeTimes->{ - 3.9913204216685333`*^9, {3.993815362543713*^9, 3.993815389767619*^9}}, + 3.9913204216685333`*^9, {3.993815362543713*^9, 3.993815389767619*^9}, + 3.99395865042551*^9, 3.993959241202883*^9}, CellLabel-> - "Out[189]=",ExpressionUUID->"9514bec6-dec8-4a0a-bfe3-69b8a28a0920"] + "Out[191]=",ExpressionUUID->"2c839f86-aacf-49ed-91f4-c0467939c11f"] }, Open ]], Cell[CellGroupData[{ @@ -5455,13 +5529,14 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb3"]]}]], "Input", CellLabel-> - "In[190]:=",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], + "In[192]:=",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], Cell[BoxData["0.9455020635637891`"], "Output", CellChangeTimes->{ - 3.991320421698473*^9, {3.99381536255886*^9, 3.993815389779593*^9}}, + 3.991320421698473*^9, {3.99381536255886*^9, 3.993815389779593*^9}, + 3.993958650439556*^9, 3.9939592412074327`*^9}, CellLabel-> - "Out[190]=",ExpressionUUID->"73135486-0c0d-4d4f-9056-410acff0996c"] + "Out[192]=",ExpressionUUID->"9bbad2a6-f2e6-4930-9dde-d8b966c12464"] }, Open ]], Cell[CellGroupData[{ @@ -5471,13 +5546,14 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kw", "Qw3"]]}]], "Input", CellLabel-> - "In[191]:=",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], + "In[193]:=",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], Cell[BoxData["3.8049868183828597`"], "Output", CellChangeTimes->{ - 3.991320421726494*^9, {3.993815362573694*^9, 3.993815389791954*^9}}, + 3.991320421726494*^9, {3.993815362573694*^9, 3.993815389791954*^9}, + 3.9939586504524517`*^9, 3.993959241212167*^9}, CellLabel-> - "Out[191]=",ExpressionUUID->"35162479-2722-49fa-8b99-b48a270cacc2"] + "Out[193]=",ExpressionUUID->"ed97d04f-0b09-409b-b0a8-3fdc8958cd2d"] }, Open ]], Cell[CellGroupData[{ @@ -5487,13 +5563,14 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", CellLabel-> - "In[192]:=",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], + "In[194]:=",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], Cell[BoxData["205.43940734661393`"], "Output", CellChangeTimes->{ - 3.9913204217554817`*^9, {3.9938153625872*^9, 3.9938153898042173`*^9}}, + 3.9913204217554817`*^9, {3.9938153625872*^9, 3.9938153898042173`*^9}, + 3.9939586504654827`*^9, 3.9939592412171803`*^9}, CellLabel-> - "Out[192]=",ExpressionUUID->"2e1eb69b-f888-4a60-9056-73645a7e1bc2"] + "Out[194]=",ExpressionUUID->"e4ab2809-bcec-46e1-b22c-f5962c5b8d6b"] }, Open ]], Cell[CellGroupData[{ @@ -5503,13 +5580,14 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[193]:=",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], + "In[195]:=",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], Cell[BoxData["34.96209334107796`"], "Output", CellChangeTimes->{ - 3.9913204217855225`*^9, {3.99381536260116*^9, 3.993815389816533*^9}}, + 3.9913204217855225`*^9, {3.99381536260116*^9, 3.993815389816533*^9}, + 3.9939586504785213`*^9, 3.9939592412222958`*^9}, CellLabel-> - "Out[193]=",ExpressionUUID->"714737fd-fa76-4f0f-b729-9e094dda2da8"] + "Out[195]=",ExpressionUUID->"d8298e7b-e84c-4635-8aa2-e7bd5bc4f51e"] }, Open ]], Cell[CellGroupData[{ @@ -5699,13 +5777,14 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[194]:=",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], + "In[196]:=",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], Cell[BoxData["0.005378972736240544`"], "Output", CellChangeTimes->{ - 3.9913204218154297`*^9, {3.993815362615349*^9, 3.993815389829891*^9}}, + 3.9913204218154297`*^9, {3.993815362615349*^9, 3.993815389829891*^9}, + 3.993958650492879*^9, 3.993959241228752*^9}, CellLabel-> - "Out[194]=",ExpressionUUID->"5cc96bc6-62a6-494e-ac5f-4cc5dda11179"] + "Out[196]=",ExpressionUUID->"a579cf95-2750-44ac-b494-201f4f83d231"] }, Open ]], Cell[CellGroupData[{ @@ -5719,13 +5798,14 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[195]:=",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], + "In[197]:=",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], Cell[BoxData["12.08357019148503`"], "Output", CellChangeTimes->{ - 3.991320422776104*^9, {3.993815363687105*^9, 3.993815389870799*^9}}, + 3.991320422776104*^9, {3.993815363687105*^9, 3.993815389870799*^9}, + 3.993958650532485*^9, 3.993959241291789*^9}, CellLabel-> - "Out[195]=",ExpressionUUID->"ebc048cf-2d73-43aa-a563-074e6e50f2fc"] + "Out[197]=",ExpressionUUID->"6a814903-de95-4b0a-bf3c-a09aba2b6eda"] }, Open ]], Cell[CellGroupData[{ @@ -5917,13 +5997,14 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[196]:=",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], + "In[198]:=",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], Cell[BoxData["0.025540993144754713`"], "Output", CellChangeTimes->{ - 3.9913204229248886`*^9, {3.993815363715906*^9, 3.993815389885956*^9}}, + 3.9913204229248886`*^9, {3.993815363715906*^9, 3.993815389885956*^9}, + 3.993958650548257*^9, 3.9939592413001757`*^9}, CellLabel-> - "Out[196]=",ExpressionUUID->"01101861-89ab-44d8-b070-fbc24d6fe784"] + "Out[198]=",ExpressionUUID->"8b5952fa-df7b-4d2e-bb08-6d76b814479c"] }, Open ]], Cell[CellGroupData[{ @@ -5937,13 +6018,14 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[197]:=",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], + "In[199]:=",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], Cell[BoxData["5.545312820025607`"], "Output", CellChangeTimes->{ - 3.9913204230053368`*^9, {3.993815364782249*^9, 3.993815389926042*^9}}, + 3.9913204230053368`*^9, {3.993815364782249*^9, 3.993815389926042*^9}, + 3.993958650588243*^9, 3.993959241346119*^9}, CellLabel-> - "Out[197]=",ExpressionUUID->"f4ea9163-737f-4922-92e6-742e9bb0099b"] + "Out[199]=",ExpressionUUID->"950b0482-a297-498b-a36c-8cf04d86b94f"] }, Open ]], Cell[CellGroupData[{ @@ -6036,13 +6118,14 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[198]:=",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], + "In[200]:=",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], Cell[BoxData["0.14282325327174822`"], "Output", CellChangeTimes->{ - 3.9913204230393543`*^9, {3.993815364804628*^9, 3.993815389940508*^9}}, + 3.9913204230393543`*^9, {3.993815364804628*^9, 3.993815389940508*^9}, + 3.993958650603387*^9, 3.9939592413527803`*^9}, CellLabel-> - "Out[198]=",ExpressionUUID->"300232b9-6ebe-4645-82de-bc51c77aff95"] + "Out[200]=",ExpressionUUID->"ad197901-c35e-433a-87ff-90997f407a95"] }, Open ]], Cell[CellGroupData[{ @@ -6132,13 +6215,14 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[199]:=",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], + "In[201]:=",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], Cell[BoxData["0.8571767467282517`"], "Output", CellChangeTimes->{ - 3.9913204230728855`*^9, {3.993815364819632*^9, 3.993815389953794*^9}}, + 3.9913204230728855`*^9, {3.993815364819632*^9, 3.993815389953794*^9}, + 3.993958650617095*^9, 3.9939592413587*^9}, CellLabel-> - "Out[199]=",ExpressionUUID->"5b948ee0-d80f-4ce6-a6c1-40085602b35e"] + "Out[201]=",ExpressionUUID->"853ef337-9927-4eb7-a946-92f635d743cf"] }, Open ]], Cell[CellGroupData[{ @@ -6261,20 +6345,21 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[200]:=",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], + "In[202]:=",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], Cell[BoxData["0.1224247715966223`"], "Output", CellChangeTimes->{ - 3.9913204231038837`*^9, {3.9938153648346643`*^9, 3.9938153899668922`*^9}}, + 3.9913204231038837`*^9, {3.9938153648346643`*^9, 3.9938153899668922`*^9}, + 3.993958650630941*^9, 3.993959241364792*^9}, CellLabel-> - "Out[200]=",ExpressionUUID->"8dd17c01-304d-4c74-8140-5cc0ec128577"] + "Out[202]=",ExpressionUUID->"52535f3a-4a2f-4296-b3bf-94e5ad050399"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"x", ",", "y"}], "]"}]], "Input", CellLabel-> - "In[201]:=",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], + "In[203]:=",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], Cell[CellGroupData[{ @@ -6337,7 +6422,7 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{3.991799443370365*^9}, CellLabel-> - "In[202]:=",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], + "In[204]:=",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], Cell[BoxData[ TemplateBox[{ @@ -6345,14 +6430,16 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"3.6683078720477823`*^-224\\\", \ \\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ 6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ -number; precision may be lost.\"", 2, 202, 5, 31384767268309585254, "Local"}, +number; precision may be lost.\"", 2, 204, 9, 31385708286630252094, + "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ - 3.9913204231548862`*^9, {3.9938153648897247`*^9, 3.993815389983438*^9}}, + 3.9913204231548862`*^9, {3.9938153648897247`*^9, 3.993815389983438*^9}, + 3.993958650660944*^9, 3.9939592413741083`*^9}, CellLabel-> "During evaluation of \ -In[202]:=",ExpressionUUID->"24ddef42-a97d-4161-af7e-aefc6a340db4"], +In[204]:=",ExpressionUUID->"fe50f6f6-8b11-4097-9ac4-3ff35e578189"], Cell[BoxData[ TemplateBox[{ @@ -6361,15 +6448,16 @@ Cell[BoxData[ RowBox[{\\\"66571774943749718920876976437469564842640151\\\", RowBox[{\\\"\ \[LeftSkeleton]\\\", \\\"7\\\", \\\"\[RightSkeleton]\\\"}], \ \\\"862032185661739706282409984000000000000000000\\\"}]]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 202, - 6, 31384767268309585254, "Local"}, +represent as a normalized machine number; precision may be lost.\"", 2, 204, + 10, 31385708286630252094, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ - 3.9913204231548862`*^9, {3.9938153648897247`*^9, 3.993815389987796*^9}}, + 3.9913204231548862`*^9, {3.9938153648897247`*^9, 3.993815389983438*^9}, + 3.993958650660944*^9, 3.9939592414146223`*^9}, CellLabel-> "During evaluation of \ -In[202]:=",ExpressionUUID->"ebe21aef-21aa-4887-b9a1-582c46efcd64"], +In[204]:=",ExpressionUUID->"5836f404-8a9f-41ba-a836-d5225287fb7f"], Cell[BoxData[ TemplateBox[{ @@ -6378,35 +6466,38 @@ Cell[BoxData[ RowBox[{\\\"11190715368044327750599419739138633850047809\\\", RowBox[{\\\"\ \[LeftSkeleton]\\\", \\\"12\\\", \\\"\[RightSkeleton]\\\"}], \ \\\"76104097384446260731183104000000000000000000\\\"}]]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 202, - 7, 31384767268309585254, "Local"}, +represent as a normalized machine number; precision may be lost.\"", 2, 204, + 11, 31385708286630252094, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ - 3.9913204231548862`*^9, {3.9938153648897247`*^9, 3.993815389992485*^9}}, + 3.9913204231548862`*^9, {3.9938153648897247`*^9, 3.993815389983438*^9}, + 3.993958650660944*^9, 3.993959241420021*^9}, CellLabel-> "During evaluation of \ -In[202]:=",ExpressionUUID->"7e505664-885f-4626-8682-5e5488c2fbff"], +In[204]:=",ExpressionUUID->"10ca8129-3cd8-479a-9b29-7e7ad537b79b"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 202, 8, 31384767268309585254, "Local"}, +during this calculation.\"", 2, 204, 12, 31385708286630252094, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ - 3.9913204231548862`*^9, {3.9938153648897247`*^9, 3.993815389995472*^9}}, + 3.9913204231548862`*^9, {3.9938153648897247`*^9, 3.993815389983438*^9}, + 3.993958650660944*^9, 3.993959241424098*^9}, CellLabel-> "During evaluation of \ -In[202]:=",ExpressionUUID->"ba6ba694-57e8-4b2f-9423-a143b00c4265"], +In[204]:=",ExpressionUUID->"054c6a23-b68e-4dba-a3b1-82c9f504af16"], -Cell[BoxData["$Aborted"], "Output", +Cell[BoxData["12.083570191485034`"], "Output", CellChangeTimes->{ - 3.9913204260017204`*^9, {3.993815367323818*^9, 3.9938153905819902`*^9}}, + 3.9913204260017204`*^9, {3.993815367323818*^9, 3.9938153905819902`*^9}, + 3.993958651871976*^9, 3.9939592424907007`*^9}, CellLabel-> - "Out[202]=",ExpressionUUID->"4fdb48e0-36df-4828-89a4-d1d051224bd0"] + "Out[204]=",ExpressionUUID->"987c8bb9-43b9-4b8f-960b-2976d79d8eab"] }, Open ]], Cell[CellGroupData[{ @@ -6468,67 +6559,79 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9917994459475594`*^9},ExpressionUUID->"0f581ffd-dfa8-e845-a733-\ -ca6cc08b08a0"], + CellChangeTimes->{3.9917994459475594`*^9}, + CellLabel-> + "In[205]:=",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], 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, 84, 5, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913204262354183`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.6683078720477823`*^-224\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 205, 13, 31385708286630252094, + "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913204262354183`*^9, 3.993958651907987*^9, + 3.993959242529249*^9}, CellLabel-> "During evaluation of \ -In[84]:=",ExpressionUUID->"365becfb-66c2-b442-8b7b-c6077e53a212"], +In[205]:=",ExpressionUUID->"62acd717-eb91-4842-9a67-595464b2d25b"], 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, 84, 6, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99132042625132*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.844622738082695`*^-230\\\", \ +RowBox[{\\\"66571774943749718920876976437469564842640151\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"7\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"862032185661739706282409984000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 205, + 14, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913204262354183`*^9, 3.993958651907987*^9, + 3.9939592425334063`*^9}, CellLabel-> "During evaluation of \ -In[84]:=",ExpressionUUID->"2b170196-02e0-d544-a5a5-d90722dc10dc"], +In[205]:=",ExpressionUUID->"d9eaa369-a6f3-4f61-84ce-f25867c9c069"], 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, 84, 7, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991320426261322*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.2771245506317303`*^-235\\\", \ +RowBox[{\\\"11190715368044327750599419739138633850047809\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"12\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"76104097384446260731183104000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 205, + 15, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913204262354183`*^9, 3.993958651907987*^9, + 3.993959242537269*^9}, CellLabel-> "During evaluation of \ -In[84]:=",ExpressionUUID->"02967e8e-3430-cf4f-b706-b82af40300a2"], +In[205]:=",ExpressionUUID->"299fd6f8-de41-42ad-8e75-ef5fd7185119"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 84, 8, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991320426270418*^9}, +during this calculation.\"", 2, 205, 16, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913204262354183`*^9, 3.993958651907987*^9, + 3.993959242542573*^9}, CellLabel-> "During evaluation of \ -In[84]:=",ExpressionUUID->"a8933e75-6bbd-684a-8439-656414d7fe5d"], +In[205]:=",ExpressionUUID->"624573a1-3ca6-426a-8554-c3841b02aaa6"], -Cell[BoxData["8.233206772574558`"], "Output", - CellChangeTimes->{3.991320428882721*^9}, - CellLabel->"Out[84]=",ExpressionUUID->"0790c690-9267-6441-bc9c-d353ab16b428"] +Cell[BoxData["5.545312820025613`"], "Output", + CellChangeTimes->{3.991320428882721*^9, 3.993958653030588*^9, + 3.993959243822031*^9}, + CellLabel-> + "Out[205]=",ExpressionUUID->"7fe0ee60-03da-447d-835d-29202b30402d"] }, Open ]], Cell[CellGroupData[{ @@ -6538,140 +6641,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},ExpressionUUID->"1834f328-2171-004d-99c2-\ -8b70b5354bda"], + CellChangeTimes->{3.9917994505623856`*^9}, + CellLabel-> + "In[206]:=",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:eJwV1nk0VlsfB3BzGRvMROZSmYdosH8ZMo+lzOlxnmMqRLmKDAm3awi5pVGF -kgyZmpRX6UookiJFxueR4TGekPBuf5x11mftc77nu/Zee68jTwt2onOwsbEN -42v1fuKD+pYnrR+MDHnrTapmKWTEytOjmRYhxNm3XIndm6OfpWT6AnmW6muu -2oF4zyOg8x/q1H7bUY5dFhFTx23ajD41ZVKPsC/US9TGFH5Elh+vXijBftZ6 -4tYf7c9oTcX3Sw+xR7oao05Xd6I3C+4iBdhSQ4ruv0y+o5X9Evx52NYTUYZh -zT+QhPPGiBzsmj8j/BGFfchyzsr9GvaXOPHIx0ED6IZkXWUWNovHdGRWewix -vYo8n4bNkxLiqjPHQGr84Y1J2LIbbjacqB5Gr9UrEmOx7aR/3WOZjKE0l8Wj -IdjkbQUxtbUspGjBG+eLHaNsnxDYPIHeDxwR88LuFG/XOlk4hTQ5WbmW2IRb -gP+llGnUr696wwh78gbbnfKgGXQjvJJPB3utgtr6KW0KiSTXWUlhZxF15utF -fyHnL9abBLHl7rvGaMz9QjlSasTKDIUMdiSyjlfPI+0UrsP92H76P5pHTP6g -9hCnd3ewZyNOcfGpLCE73XHbdOzYav49qmuXkfSJOYto7GwweOjbvIISj/ve -dcEm8htMQwvZwS9KbIAHu7D+Um+cNAfk+6ZKT03jvkyvqIwUDog9m97YhR21 -jap4FMQJVYetU4qws0rlFSe0uYEVxpdjid3VOlaznMsNS5UuKRrYctNP3IRE -eUCa7dCkCHaRrl2m2hwP6C+EbOqZotCbZ2fYj1WvBbEXldwB2FTdpx/DJgKg -F6ki7zdJoY02AusjawRgYDkj2Rhbs90UBA0F4T2dw3kTdsBg1W0tdSGwcdrI -/WGCQiEczZp7BdaDJHztUsUeUiiZSvi1AXaqvCXqxvH8kI28LTobwSgjq+4S -NsdDhrzEiY1wgWM+zgdbTmezU+HoRhD5/kCGHdvNJL38Q68wvFvp+ag7RqEW -n9Aw8SZRmMxV3Rk9QqGe+2nJ3mvFIPCyb5Yp9thoYe4DMzEQs2U58mHznRz4 -tLtWDCb2r2Fd+kkh0/MHdb2rxEH5xNuHOcMUep6nTxXkSIJkxrjFVQaF8oZ+ -h+86KQPr7JcCRfspZOGc1BNWLAPX9uwWed+H898I7y9myIBIV732eWzdvB2i -cq6y4Jr+p22yF88nzauC22gzLO71vFP3g0LTE71/DcfLwY562XP23RQSPm5a -WWGrAK7KS8/YOinEyOPzcwhQgFtncszvd1Do6fdW6fFEBTAj/G1tsT1sPONV -ahWgIL7q1ZUvuN/2cKer2orQJ7xip/IZf3/k/mS0uBIExajwb2uj0EFffjWr -PmUwKRRNaG6iEAp31j68pAym9kYOBPa2hJydhKQKeEXOX1tspBBbro5xtKMK -ZBkElG7FLu5xP1z+SgXCr5h9iWrA+/NQUZzU3S3AXqazQ/A/3M/U9ssITRUW -i37FfHhJIWmFizHJgztgeLrHuLOYQi/+mVVd4FADY8HCtWbYHjOu7aS8GvC/ -C95bVkShW2+UVI291KCQhzab9JBCCr7P2+Y71KDv8pbr6g9wv6IhZbJJHZby -XjK88ygkIy1LyrlqAqdZnr3bNQrtyD8psIi0QWP93r/vn6cQjYin1Oy0IU1p -u+FSPN5fipk93h7acHl0PNQJm/Nu6aP6CG24G0DGLcbh/XFr5GBmmTZ0jbkI -WsTg8y/b+6aqog6Efd222Hgar0eyjboLjy7Euhuwnw6i0J1QJYeqZj2Q4Ow4 -F3WIQq3haOf5fEOQXFeben0TheS9Ptt5HtsLH9vctWK/zyL6yuMSmdMA65Jc -z7dfm0Xio0/XiNOMIVXyvuWU7Sw6qbPne+Y2U7iYxBOfyD6LaON/GoRHzCC6 -Vjp2tHwGFRuHrclpMYfpu0mWu9xmUN5swKuiLEvIyS2omuKaQfP7JN6/ibGG -hKTU7afvTaNuNs6pvqO28Gl3Ce9Ri2kUtCk4PU7RHtbYRZWwT06hEv+G2n8T -HGBCrENROH0KnZmRnNvu7whj1rLnKP0pRFntP/T2iBNY+0+wHemYRIbuGfuG -HA/AvWv1YQtnJlGb5M2ANzoHgZnomx+iMomk7sW/KNjqDO/UZa0YVyfQ095t -NnaCh2C75LCF/xwLybZP+oaPHwKDBGmRQQ8W0vk3oyi39zB4VyzZrqkeRze5 -ZtQz61wgyluQ95nqOHq8T6Mr4ZkrBNaYfmrOHEPZO//Z8KfQDYJ4NqvGc4+h -lm/5iTop7tBoMr/M+/coqrK9oRQS6wFmkb79izyjaOr4AbYgwhNMzEcPafw7 -gqj9qn4sEy84FkiPZ20fQQXjX+fD9I+AV+dNqqX2J3K5k+/jKeANm6OfDiT5 -/EQV5dZHOJO8oX45+NoD7p/IULpt4cKCN5yz6R1srhxGir2+XR/9j0Jh7EvP -b4HDaJA/0P7GwFH4KiSv1aA4jFrT7HzMnWlw9tjtV6JMJsqKyOE/1UqD6Usz -pwKLmOhFzcqCj6UPtKZnr587zUTrPCBJ57kPDGvpnd7tyERyIm9bNr3wgSP9 -WruyHZhIs9lWgqfGB3pf+R2n7JnIaY/7g85XPlCyErGtzA7nbwpvOvvOB9po -LctqNkwk1f1wXUOnDzCGngjuNWciJS/xbI85H7BxZJQ+2stEht6sggRdArTK -d5Pj25no3tXJMDt9Apr0r6cFY4t8mjYSNyBg5umY5PQ2JmKZzbUX7Cbguaan -67wqE583bOzNxgSwZxhE8m5lIqG5Da4bHQlQy+KwNFJiosFUPd6c4wQoDoUv -T21iIse3O9t9gwkYHBCKi8WuYduVo3mCgA+Wh8l12FfDjPRenyTA+NSUi7o0 -E9m5mh8diiTA6LVIT4gkEz1Tcn22/R8CivN9ybViTJRWHeX/9B4BXfuFaHHr -mOi49hXDiAICkK2+jiy2zYMyXoNCAuSvLtGqhZiI7wrjwZNiAg44+PT8EmSi -hFCHkceVBJSXeZiGCjBRlKpSYNVrAmgJV5rO8DJRwJWmY+U9BGRML1S3cTKR -pRBjT2gvAYvBTM9I7K0JbILa/QRku+/zUsJmhOoVlw0RAPG6Z/7iYKKjdjnj -j8YImE9mySqwM5ELd1hQ6W8CCLEAqQvLDGQeJhVSJEaH1tCMlpsLDPQ6J9Eq -U4IOaz5u+myNvad5WilCig6jxdmWv+cZSFO56auJLB0G9NxjXLAlOyJNvinT -IVG3W0YK/yeN7uoW49Ojg8pFf+XyWQa6yHH7pe8BOjjXPz2gN8lAfBoC2bbO -dNgyj3SnJhjovHtEqM5hOvBaJ8YXY0dUOmxZcaPD5mdWQVuwj5LsGZdpdDg4 -nXxSjsVAOo004r8TdHD7WWu8ZYyBOjKU+RXT6SAkNvU9aZiBSpCg33AGHXoM -6zSdsc+Pz74pvkSHA7K9gwrY2pZvog2u0MEi9tfx/zEZKI3NZ9r2Fh3e+kdx -LjEYaH/w7a8RRXRo+2vr7n+GGEhG5m99oxI6LPvsueSJPdsYfInzER2CdFKt -tbDvqiDbtAo6mEP/96+DDLTU3V2b+5wOGm0m5zSwK22kCz400CEzyqBjrJ+B -kn9zcGc10qFA56V2PTatYOSoazMdmu6HsnKw13M9lx5soYPJ72OJB7GPVbtc -XPhChyLBFIPXfQykuO1yuNIQHTZ8+JFX2stAvzvOfvrJoMNVxmbOi9itCXTN -0mE6BDsmvgrCju7THTEcowOtts5LA7sr+5On/Qwd2tsnpap+MFDmmg1mZ9hJ -WKuQfbWth4FeTHe7n+QkIZD3IrMSm9ldGBrETULideviK9h7Kk1v03hJ+Cgs -fNsLm+EdsWi1gYQvOu8UprtxfxuzjWbCJDCMvql3Yu/euVEViZJA9heX12Cn -CxYd0pEkIeJmpnzq6vjzH2XS8iRwbbW6oYFN5hc1iCqS0LbFkZRcfT799I91 -yiRc8xAp4MRmkMKCXKokfPd9n/n1Ox4XNvcb0ySBVfKHKxn7+bJwDEObhCOs -jpQI7KGfvf/26pIwWxKYQmLvqj1T125AQqdg9bQJ9uCxEtmXQILfQZY7F7aQ -S6TeE2MSHl4/d4f6xkCGJhY2ZaYkCHk3ezGx0yT7T+dbkBC9MQaasZ9ylabn -WJGQ5c0k/oc9MBF5/6oN7j/KyV6BbVAv+jnVgQSU7XL7OjatrH80yYmEUxrp -uenYqTdKOc4dxPM1cUY2Ebs/1FIz3IUEmTm/yFBsQS8x8xA3EqbfBXr6r+ZZ -DngGeJBg3iP3xHv1/c1nk728Sehhv/PRYbUPn9VdFxoJtIrATMvVPErsmRNB -QukIs9F4Na9voMWGJKEuRjRyz2pe8yPGfj8S6Lazd/VX+z05uwQBJKzROm+s -tZp/10pk9zHcj+8/1x2r+ani2/WCSJCteTy8ZTU/YnCfRggJbpquE4rYAkSZ -i2ooCUZWRcflsHfaRwcrnsR5c6U+Mqv5u6wTZcJJqFEiPkphpyhL3BSPIGH3 -m4bHEtiP1w9VbDhDgui7bmFx7L7Fskb+KBIyVXOHRVfzmdF93NEkTPRI6K1a -v816fiUGr+eg0YII9v8BEOUgTQ== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Hk4Vd3bB3ARIsqUE6LMIUMHodS6MzYgQ2TOcM42JHF4pJB6Cj8VSSre +MmVIIkNlTkTlyakUkSJDnGqbzzFVyrv8sa99fa6193fd+95rLXmfE/Z0bi4u +rgl8rdxD32ipVne82SPwRLsq+xaJ9kzm6/uYlSB9iU89Kx7M3pGmZNaAtr7p +Ns7BtqW95hPSfY4SfyiPrrgiMraF14yJDGkvO3KxE19sbIotfoeUdtUv38Gu +7QjNWqJ+QHGBqxj52OSnV9Gn6j8ixkSGaiG29Kii27xpH2I0XthShH1wKtoo +jDmAZrub3YuxG5fItZHFQyhX266vBLv7HCWqKvgrsm6iZpdhT/KZkbPUUdQd +SxRUYvNdDnHRXWAhJ9r45GNsOdHMttD674jLtzWqFttGZr5w0nQcbYkNPNqM +TeQoSGqumUQP/zWseo4dq3wo7hhzCl0NcrZ9hf2R0rU9vHgGtTxOsunCprkG +Bly7zEbbZ+9U9mJP3+bKrQzmIK0eAdcB7DUKmiIz1DmUi5iMMew0WoulyIZ5 +ZJ6pOjKDveWuS6z2wjziHOpKX8Q23BY/ebx+EW11k2fy3SaR/44BJmm6hAQD +ElxVsGcj/1ktqPIHJXUFsrSwz9avNVZb8xcdY2Y9NsBOB8P7fsxlJD6+IHsA +m1bQZsYoXgU7E49JMrCLX1wbPCfDDfd/vW2Ixp7+5hl99TI3HFw8X5iAHa0+ +97A8mAcm+T6ZZmGnlckrTlF5Idl6Z+Eb7E8d441/83ihgIvi9xl7C7vadd0G +PujmNzn2HbtEzyZVc4EPEol/d/Nkkqi19vSqoPo14Bl9V8AYe66lc+C7qRAc +HHeGOmwxKyGRqEYhiFi9v5CJrdNlBsJGwjDrZOs2gB048jhnu9Y6KEvIq+TN +IlEIN1Nnt5AIvO91kHTCHlV4MBM3LwrgcqOCNxv3h3gl8FZXDPqID2tksbnv +s+Q3hooB7ZpKmR72Ft3N9sVjYnCj5893GraraUrlm0FxeFL6j+h/2G99GWGU +9g3Qmqarn5NDoi93ky95rZGEb3VETAP2+Fhx3j1zSWi/XyDRiy0Y/rVzV5Mk +jGua64jnksjswmE9r8cUeKX5V+YSdl3+jrmibCn4PTDVmniHRPmjvyJ2hssC +GrZxeZZPon2OCV/CSmVB8MPuxVHs8VZxi1KWLPTuEOgTKCCRXv62DVtc5MDE +RZdhj93q4/mQd89mGPN4+ZGFzZ4aPPn9/BYY9I5J3nSXROLHzR49tFYAQW0i +vf4eiVj5gv62gQqQoD/07ht2TV+HzES8Anh5qNpKFJPI3crjvEqTAlQXiMkE +Y+drRNhnUBVBaMaBVLqP5yfvTp+hKEH75Ozx7BISHfZbq3lgSBn+NFB428pI +hCIcqUf+KEMAvGP+xlaPyzagSanANvvr3drlJOLK0zU5Y6cC+47uLE/HLv3i +dqSyWQU8ckeijlfg/elUck76jipIlEuHKz7E9ZlZd5M+aiDZPTTcVEWiPIeb +nxfOqMF2vzhyCTvZZ2hw9S01WH1XRs+oGq/vs/+MyXWqQcbcpqRKbNGGTC4H +U3WoJN2cimrw+tGdVK9X1IC9XSLmOXUkklG4EntpZBuUrD+U1NxIooaLs2o/ +uTXhQiaZufYp7gfHpYuQ14R4jeXfjthZrUpqJp6aYHw2OWcMW8Gv7v1ijybo +mCldkm7G31syqky0a4HybqnR+BYSycrIEVtcdIDzyywvo41E2wrChX4jKuSK +Fi0VdpLIh3Z+TtOGCvwndiv+xU5XTP3i5U4FwSCuJMcuEvHcKSt/EUmFW2qC +6rwf8H7LIg+nVlDhYvmai37d+DxN98pUU9SFltGkQcNe/H8vWWk58+mB8DHn +L8IDJMplKNk+ZuqDbW3H67NjJOqIQAYXCozggvGHBhHBMSTv+cHGI2g3pDaz +at5sG0P05aoHsqcAHE9mdPrbjSHKWA0/xccELKx1r+XEjKFwXeO+VHUz+G/f +Zi+Z+2PIZ2KpTZw0B59qd4vUz2Oo1CSMP/utJSSLPf8YJDGO8mcDm0vS9oMo +GZlFWI+jxb0bX7fGHoSGVS+WHK+Mo34unpkhb2sQ3eA/pd41joI3nUg5p3gI +3NnyyizKBHoQ0NZ0Pc4WpLrvLovQJ9BpjtSCRoAdaCao7g4on0BzByycXh61 +hzfiq4NO8k4iI7ere0ftHICy1aCK6j6J3ktlBrbqHoYqZ6fYlrJJJF14vqFo +qyP8cW3xXBKaQjWD6lY2wk5wsaDrhx4xheS6pv0iJpxgwLReJ+TpFNK9frUk +b/AIxIRQT02JTKPM1Ryt1BZn0Nm492Q4mkZVe7U/xdW6gP9RrzYbxjRKN7go +ulTsCrFyKWRo/jR6+7kgXveyG9QyxJ20O6fRY+vbSiFn3cHB/0ZaBu8Mmjnu +wBVM84DR/43s09CbQXMWav6Tpp6QNZisJu89g4omehfDdhwFPy6j04MpM8g5 +t8DXQ8gLxLXHI6kNM+hh5cGjPAlekHOYpyXhxwwyknn/M/GnFzx1O3RJRIyN +FAf9Pr0L8AazCCp1wICNRtYeO3T7qzfwH9mjxPBko45kG19LRx/4+6343Y9Y +NkqLzF77T4cP/LjAL6eay0YNjcs/fff7Qn9zkHVkIxutd4cE3TpfeF14b6Sg +m422SLx8u6nBF2IaTz3h72EjHab1Rr5GX7hp5ewSgG1v7HbvY7MveNoIfdL4 +iPM3RbTH/OcLo+uG/5T2spF0//31bR99Qat6oqWwj42UPCnp7gu+EBXvMB0w +zEZGXpNFcXo02JR6U0pvgo0KM6bDbHbQoKPvysBZbIlO9h6KIQ00m5qPv8ae +NF/oKtpFg8UPpcP0STY+v7hWMU1ocH3nPc20KTZatyDqImZHgypRO2DN4H4k +6QtkH6eBo+1raa95NrJ7adDld4IGOvRn3QXYjVw7s3VCaTAs3esyhp0Rtkf/ +WTgN5kUOPP5ngY1sXCy9R6NooLXVvilhkY1qlVxqNS7SQFClY3PuLzZKro8O +qCmkQdb6c8yiv2x0nHrTKLKIBom7HyiwsK3uVQgYFtOgPgbtVVxmI8GbrHvV +pTTg7Q/tuY0dx7Alqx7R4PAaO78kLg6KVlM69vgZfr5nZB2Nm4MCb7YHVX6h +QWgkn803Xg7av45lzBikwUHLkDxZPg7aGsclTB2mAfcevyYHbBZDv7RiFPcn +4KvtU2xvm+yJ8nEaeKXQ26/xc5Azb1hw2S8aKNzeJk8V4CDLMOmQEkk6tPTP +KJsJcdCz7PgDqRvpwH/1ifdJbGMmWylSmg6CDgauxdg6yu29pnJ0EJ/YeG69 +MAdJ9USZflamw+WedwXd2GM7+yUF9emQYqBo7ryeg65w5zzxc6DDjyW/0q1i +HCSoLZRu7UiHp8F8DAfsC26RDN0jOP//zrNjsCMf2aouu9KhLoNb9T22N7Hq +6g0fOmSXhnicFOcg3Vc+tOehdJBVoPx+JMFBPVeV1yqm0KGm6UXnkiQHPUDC +/t+v0kEliu/ZJgrOn5htLb1GB4n0o+HG2NT9rWcMb9IhpMhGOQo7mcuXbZ1F +h8iYquo5bIsTOb2RJXRQdDt5a2AjB8nK/m/Hngd0ML2V8t9v7NlXJ67xlNOB +e1diPUWKg+6oIOvkh3TIl1g7ZoP9p7+/Ka+ODk5KsyfrsB9ZyRS9aaPDT5FL +FvHSHHTpFzdv2is6JFaLV2Rh+xSR3i5MXA9730AVtsjqOpmRt3TYH1Iaz8IO +qne+8rObDg0661aZynCQovqNCKVROni+acmdxv7VE9P5g0UH1s3n5rybOKgj +jq5T9p0OfcH7SqWwzwzpkUbjdHjk8/LFXuxP6Z0ehzh0YLYTilewU/lFzU+v +ImB+XuWcnCwHNbD73cJ5CHh9jddmO/a3/mJGMC8BS+KH35piGz8yy/ERIOD8 +Nf0pP2yWV+TvA6IEnBtuzCvBFrEyFzMXJyAms0P8CfYuAzE1tIEArvW7DV9j +pwiXOOlKEWDmvClrfGW8bqBCRp4Ah57KflU5DiIKSto2KBLA3u88rY+dknJq +YL0yAcvyFtWm2CxCXHi1GgHuD9nenivj4pb+4zoEiD86op6CXfdXPJZFJaDF +dc3ALezRH4PXB/UImGXPWN7F3tl0uqXLkIAXlIAdT7BHgh7IPQECmNdr40ax +1zlH6VebEFDziadvEtvIdJ9VhRkBaVGnWQvYyVLDpwr2EXDV6xtFYDMH1awu +S8k+QMA2gc97RLG/TkXdzbAioKh7TkoK2/DFhg9JtgSkq94eV8X2qRgeS7DH +/TqmPKKFnXS7jPvfwwRoOL67oo89zNivE+FMgIJUEo8JtrCnpGWIKwGs9bfa +LVfy9n/1CHQn4MjoS0vrlfc3x1zy9CKg8utp9yMr9QgeuOPsQ8DmuOVZt5W8 +OclaexoBe+az93qt5A19fWtFECCd4mZCW8ljlrMs/AkwrN6+4LdSX3XMHwgk +4N5nea9jK/l3DkjsCiJg1SmNmOCV/CSKhn4wAXaSNjahK/mRI3u1QwjQsUjs +DMMWolU4qzEIeFbYJxSBbXDozAnFcAKyhyx/nVzJ33kwXjaCgJn7r26dwr6s +vDGTEkmAxwvazGnsKpHRh6KnCRD+s+F3FPbQ74pXa6MJqFf9UhO9kv/tzBDv +GQJS1Z6ox2DveH9wcTkW1zNTabvi/wdX6hHS "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -6685,105 +6791,107 @@ v816fiUGr+eg0YII9v8BEOUgTQ== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk0VlsfB3BzGRvMROZSmYdosH8ZMo+lzOlxnmMqRLmKDAm3awi5pVGF -kgyZmpRX6UookiJFxueR4TGekPBuf5x11mftc77nu/Zee68jTwt2onOwsbEN -42v1fuKD+pYnrR+MDHnrTapmKWTEytOjmRYhxNm3XIndm6OfpWT6AnmW6muu -2oF4zyOg8x/q1H7bUY5dFhFTx23ajD41ZVKPsC/US9TGFH5Elh+vXijBftZ6 -4tYf7c9oTcX3Sw+xR7oao05Xd6I3C+4iBdhSQ4ruv0y+o5X9Evx52NYTUYZh -zT+QhPPGiBzsmj8j/BGFfchyzsr9GvaXOPHIx0ED6IZkXWUWNovHdGRWewix -vYo8n4bNkxLiqjPHQGr84Y1J2LIbbjacqB5Gr9UrEmOx7aR/3WOZjKE0l8Wj -IdjkbQUxtbUspGjBG+eLHaNsnxDYPIHeDxwR88LuFG/XOlk4hTQ5WbmW2IRb -gP+llGnUr696wwh78gbbnfKgGXQjvJJPB3utgtr6KW0KiSTXWUlhZxF15utF -fyHnL9abBLHl7rvGaMz9QjlSasTKDIUMdiSyjlfPI+0UrsP92H76P5pHTP6g -9hCnd3ewZyNOcfGpLCE73XHbdOzYav49qmuXkfSJOYto7GwweOjbvIISj/ve -dcEm8htMQwvZwS9KbIAHu7D+Um+cNAfk+6ZKT03jvkyvqIwUDog9m97YhR21 -jap4FMQJVYetU4qws0rlFSe0uYEVxpdjid3VOlaznMsNS5UuKRrYctNP3IRE -eUCa7dCkCHaRrl2m2hwP6C+EbOqZotCbZ2fYj1WvBbEXldwB2FTdpx/DJgKg -F6ki7zdJoY02AusjawRgYDkj2Rhbs90UBA0F4T2dw3kTdsBg1W0tdSGwcdrI -/WGCQiEczZp7BdaDJHztUsUeUiiZSvi1AXaqvCXqxvH8kI28LTobwSgjq+4S -NsdDhrzEiY1wgWM+zgdbTmezU+HoRhD5/kCGHdvNJL38Q68wvFvp+ag7RqEW -n9Aw8SZRmMxV3Rk9QqGe+2nJ3mvFIPCyb5Yp9thoYe4DMzEQs2U58mHznRz4 -tLtWDCb2r2Fd+kkh0/MHdb2rxEH5xNuHOcMUep6nTxXkSIJkxrjFVQaF8oZ+ -h+86KQPr7JcCRfspZOGc1BNWLAPX9uwWed+H898I7y9myIBIV732eWzdvB2i -cq6y4Jr+p22yF88nzauC22gzLO71vFP3g0LTE71/DcfLwY562XP23RQSPm5a -WWGrAK7KS8/YOinEyOPzcwhQgFtncszvd1Do6fdW6fFEBTAj/G1tsT1sPONV -ahWgIL7q1ZUvuN/2cKer2orQJ7xip/IZf3/k/mS0uBIExajwb2uj0EFffjWr -PmUwKRRNaG6iEAp31j68pAym9kYOBPa2hJydhKQKeEXOX1tspBBbro5xtKMK -ZBkElG7FLu5xP1z+SgXCr5h9iWrA+/NQUZzU3S3AXqazQ/A/3M/U9ssITRUW -i37FfHhJIWmFizHJgztgeLrHuLOYQi/+mVVd4FADY8HCtWbYHjOu7aS8GvC/ -C95bVkShW2+UVI291KCQhzab9JBCCr7P2+Y71KDv8pbr6g9wv6IhZbJJHZby -XjK88ygkIy1LyrlqAqdZnr3bNQrtyD8psIi0QWP93r/vn6cQjYin1Oy0IU1p -u+FSPN5fipk93h7acHl0PNQJm/Nu6aP6CG24G0DGLcbh/XFr5GBmmTZ0jbkI -WsTg8y/b+6aqog6Efd222Hgar0eyjboLjy7Euhuwnw6i0J1QJYeqZj2Q4Ow4 -F3WIQq3haOf5fEOQXFeben0TheS9Ptt5HtsLH9vctWK/zyL6yuMSmdMA65Jc -z7dfm0Xio0/XiNOMIVXyvuWU7Sw6qbPne+Y2U7iYxBOfyD6LaON/GoRHzCC6 -Vjp2tHwGFRuHrclpMYfpu0mWu9xmUN5swKuiLEvIyS2omuKaQfP7JN6/ibGG -hKTU7afvTaNuNs6pvqO28Gl3Ce9Ri2kUtCk4PU7RHtbYRZWwT06hEv+G2n8T -HGBCrENROH0KnZmRnNvu7whj1rLnKP0pRFntP/T2iBNY+0+wHemYRIbuGfuG -HA/AvWv1YQtnJlGb5M2ANzoHgZnomx+iMomk7sW/KNjqDO/UZa0YVyfQ095t -NnaCh2C75LCF/xwLybZP+oaPHwKDBGmRQQ8W0vk3oyi39zB4VyzZrqkeRze5 -ZtQz61wgyluQ95nqOHq8T6Mr4ZkrBNaYfmrOHEPZO//Z8KfQDYJ4NqvGc4+h -lm/5iTop7tBoMr/M+/coqrK9oRQS6wFmkb79izyjaOr4AbYgwhNMzEcPafw7 -gqj9qn4sEy84FkiPZ20fQQXjX+fD9I+AV+dNqqX2J3K5k+/jKeANm6OfDiT5 -/EQV5dZHOJO8oX45+NoD7p/IULpt4cKCN5yz6R1srhxGir2+XR/9j0Jh7EvP -b4HDaJA/0P7GwFH4KiSv1aA4jFrT7HzMnWlw9tjtV6JMJsqKyOE/1UqD6Usz -pwKLmOhFzcqCj6UPtKZnr587zUTrPCBJ57kPDGvpnd7tyERyIm9bNr3wgSP9 -WruyHZhIs9lWgqfGB3pf+R2n7JnIaY/7g85XPlCyErGtzA7nbwpvOvvOB9po -LctqNkwk1f1wXUOnDzCGngjuNWciJS/xbI85H7BxZJQ+2stEht6sggRdArTK -d5Pj25no3tXJMDt9Apr0r6cFY4t8mjYSNyBg5umY5PQ2JmKZzbUX7Cbguaan -67wqE583bOzNxgSwZxhE8m5lIqG5Da4bHQlQy+KwNFJiosFUPd6c4wQoDoUv -T21iIse3O9t9gwkYHBCKi8WuYduVo3mCgA+Wh8l12FfDjPRenyTA+NSUi7o0 -E9m5mh8diiTA6LVIT4gkEz1Tcn22/R8CivN9ybViTJRWHeX/9B4BXfuFaHHr -mOi49hXDiAICkK2+jiy2zYMyXoNCAuSvLtGqhZiI7wrjwZNiAg44+PT8EmSi -hFCHkceVBJSXeZiGCjBRlKpSYNVrAmgJV5rO8DJRwJWmY+U9BGRML1S3cTKR -pRBjT2gvAYvBTM9I7K0JbILa/QRku+/zUsJmhOoVlw0RAPG6Z/7iYKKjdjnj -j8YImE9mySqwM5ELd1hQ6W8CCLEAqQvLDGQeJhVSJEaH1tCMlpsLDPQ6J9Eq -U4IOaz5u+myNvad5WilCig6jxdmWv+cZSFO56auJLB0G9NxjXLAlOyJNvinT -IVG3W0YK/yeN7uoW49Ojg8pFf+XyWQa6yHH7pe8BOjjXPz2gN8lAfBoC2bbO -dNgyj3SnJhjovHtEqM5hOvBaJ8YXY0dUOmxZcaPD5mdWQVuwj5LsGZdpdDg4 -nXxSjsVAOo004r8TdHD7WWu8ZYyBOjKU+RXT6SAkNvU9aZiBSpCg33AGHXoM -6zSdsc+Pz74pvkSHA7K9gwrY2pZvog2u0MEi9tfx/zEZKI3NZ9r2Fh3e+kdx -LjEYaH/w7a8RRXRo+2vr7n+GGEhG5m99oxI6LPvsueSJPdsYfInzER2CdFKt -tbDvqiDbtAo6mEP/96+DDLTU3V2b+5wOGm0m5zSwK22kCz400CEzyqBjrJ+B -kn9zcGc10qFA56V2PTatYOSoazMdmu6HsnKw13M9lx5soYPJ72OJB7GPVbtc -XPhChyLBFIPXfQykuO1yuNIQHTZ8+JFX2stAvzvOfvrJoMNVxmbOi9itCXTN -0mE6BDsmvgrCju7THTEcowOtts5LA7sr+5On/Qwd2tsnpap+MFDmmg1mZ9hJ -WKuQfbWth4FeTHe7n+QkIZD3IrMSm9ldGBrETULideviK9h7Kk1v03hJ+Cgs -fNsLm+EdsWi1gYQvOu8UprtxfxuzjWbCJDCMvql3Yu/euVEViZJA9heX12Cn -CxYd0pEkIeJmpnzq6vjzH2XS8iRwbbW6oYFN5hc1iCqS0LbFkZRcfT799I91 -yiRc8xAp4MRmkMKCXKokfPd9n/n1Ox4XNvcb0ySBVfKHKxn7+bJwDEObhCOs -jpQI7KGfvf/26pIwWxKYQmLvqj1T125AQqdg9bQJ9uCxEtmXQILfQZY7F7aQ -S6TeE2MSHl4/d4f6xkCGJhY2ZaYkCHk3ezGx0yT7T+dbkBC9MQaasZ9ylabn -WJGQ5c0k/oc9MBF5/6oN7j/KyV6BbVAv+jnVgQSU7XL7OjatrH80yYmEUxrp -uenYqTdKOc4dxPM1cUY2Ebs/1FIz3IUEmTm/yFBsQS8x8xA3EqbfBXr6r+ZZ -DngGeJBg3iP3xHv1/c1nk728Sehhv/PRYbUPn9VdFxoJtIrATMvVPErsmRNB -QukIs9F4Na9voMWGJKEuRjRyz2pe8yPGfj8S6Lazd/VX+z05uwQBJKzROm+s -tZp/10pk9zHcj+8/1x2r+ani2/WCSJCteTy8ZTU/YnCfRggJbpquE4rYAkSZ -i2ooCUZWRcflsHfaRwcrnsR5c6U+Mqv5u6wTZcJJqFEiPkphpyhL3BSPIGH3 -m4bHEtiP1w9VbDhDgui7bmFx7L7Fskb+KBIyVXOHRVfzmdF93NEkTPRI6K1a -v816fiUGr+eg0YII9v8BEOUgTQ== +1:eJwV1Hk4Vd3bB3ARIsqUE6LMIUMHodS6MzYgQ2TOcM42JHF4pJB6Cj8VSSre +MmVIIkNlTkTlyakUkSJDnGqbzzFVyrv8sa99fa6193fd+95rLXmfE/Z0bi4u +rgl8rdxD32ipVne82SPwRLsq+xaJ9kzm6/uYlSB9iU89Kx7M3pGmZNaAtr7p +Ns7BtqW95hPSfY4SfyiPrrgiMraF14yJDGkvO3KxE19sbIotfoeUdtUv38Gu +7QjNWqJ+QHGBqxj52OSnV9Gn6j8ixkSGaiG29Kii27xpH2I0XthShH1wKtoo +jDmAZrub3YuxG5fItZHFQyhX266vBLv7HCWqKvgrsm6iZpdhT/KZkbPUUdQd +SxRUYvNdDnHRXWAhJ9r45GNsOdHMttD674jLtzWqFttGZr5w0nQcbYkNPNqM +TeQoSGqumUQP/zWseo4dq3wo7hhzCl0NcrZ9hf2R0rU9vHgGtTxOsunCprkG +Bly7zEbbZ+9U9mJP3+bKrQzmIK0eAdcB7DUKmiIz1DmUi5iMMew0WoulyIZ5 +ZJ6pOjKDveWuS6z2wjziHOpKX8Q23BY/ebx+EW11k2fy3SaR/44BJmm6hAQD +ElxVsGcj/1ktqPIHJXUFsrSwz9avNVZb8xcdY2Y9NsBOB8P7fsxlJD6+IHsA +m1bQZsYoXgU7E49JMrCLX1wbPCfDDfd/vW2Ixp7+5hl99TI3HFw8X5iAHa0+ +97A8mAcm+T6ZZmGnlckrTlF5Idl6Z+Eb7E8d441/83ihgIvi9xl7C7vadd0G +PujmNzn2HbtEzyZVc4EPEol/d/Nkkqi19vSqoPo14Bl9V8AYe66lc+C7qRAc +HHeGOmwxKyGRqEYhiFi9v5CJrdNlBsJGwjDrZOs2gB048jhnu9Y6KEvIq+TN +IlEIN1Nnt5AIvO91kHTCHlV4MBM3LwrgcqOCNxv3h3gl8FZXDPqID2tksbnv +s+Q3hooB7ZpKmR72Ft3N9sVjYnCj5893GraraUrlm0FxeFL6j+h/2G99GWGU +9g3Qmqarn5NDoi93ky95rZGEb3VETAP2+Fhx3j1zSWi/XyDRiy0Y/rVzV5Mk +jGua64jnksjswmE9r8cUeKX5V+YSdl3+jrmibCn4PTDVmniHRPmjvyJ2hssC +GrZxeZZPon2OCV/CSmVB8MPuxVHs8VZxi1KWLPTuEOgTKCCRXv62DVtc5MDE +RZdhj93q4/mQd89mGPN4+ZGFzZ4aPPn9/BYY9I5J3nSXROLHzR49tFYAQW0i +vf4eiVj5gv62gQqQoD/07ht2TV+HzES8Anh5qNpKFJPI3crjvEqTAlQXiMkE +Y+drRNhnUBVBaMaBVLqP5yfvTp+hKEH75Ozx7BISHfZbq3lgSBn+NFB428pI +hCIcqUf+KEMAvGP+xlaPyzagSanANvvr3drlJOLK0zU5Y6cC+47uLE/HLv3i +dqSyWQU8ckeijlfg/elUck76jipIlEuHKz7E9ZlZd5M+aiDZPTTcVEWiPIeb +nxfOqMF2vzhyCTvZZ2hw9S01WH1XRs+oGq/vs/+MyXWqQcbcpqRKbNGGTC4H +U3WoJN2cimrw+tGdVK9X1IC9XSLmOXUkklG4EntpZBuUrD+U1NxIooaLs2o/ +uTXhQiaZufYp7gfHpYuQ14R4jeXfjthZrUpqJp6aYHw2OWcMW8Gv7v1ijybo +mCldkm7G31syqky0a4HybqnR+BYSycrIEVtcdIDzyywvo41E2wrChX4jKuSK +Fi0VdpLIh3Z+TtOGCvwndiv+xU5XTP3i5U4FwSCuJMcuEvHcKSt/EUmFW2qC +6rwf8H7LIg+nVlDhYvmai37d+DxN98pUU9SFltGkQcNe/H8vWWk58+mB8DHn +L8IDJMplKNk+ZuqDbW3H67NjJOqIQAYXCozggvGHBhHBMSTv+cHGI2g3pDaz +at5sG0P05aoHsqcAHE9mdPrbjSHKWA0/xccELKx1r+XEjKFwXeO+VHUz+G/f +Zi+Z+2PIZ2KpTZw0B59qd4vUz2Oo1CSMP/utJSSLPf8YJDGO8mcDm0vS9oMo +GZlFWI+jxb0bX7fGHoSGVS+WHK+Mo34unpkhb2sQ3eA/pd41joI3nUg5p3gI +3NnyyizKBHoQ0NZ0Pc4WpLrvLovQJ9BpjtSCRoAdaCao7g4on0BzByycXh61 +hzfiq4NO8k4iI7ere0ftHICy1aCK6j6J3ktlBrbqHoYqZ6fYlrJJJF14vqFo +qyP8cW3xXBKaQjWD6lY2wk5wsaDrhx4xheS6pv0iJpxgwLReJ+TpFNK9frUk +b/AIxIRQT02JTKPM1Ryt1BZn0Nm492Q4mkZVe7U/xdW6gP9RrzYbxjRKN7go +ulTsCrFyKWRo/jR6+7kgXveyG9QyxJ20O6fRY+vbSiFn3cHB/0ZaBu8Mmjnu +wBVM84DR/43s09CbQXMWav6Tpp6QNZisJu89g4omehfDdhwFPy6j04MpM8g5 +t8DXQ8gLxLXHI6kNM+hh5cGjPAlekHOYpyXhxwwyknn/M/GnFzx1O3RJRIyN +FAf9Pr0L8AazCCp1wICNRtYeO3T7qzfwH9mjxPBko45kG19LRx/4+6343Y9Y +NkqLzF77T4cP/LjAL6eay0YNjcs/fff7Qn9zkHVkIxutd4cE3TpfeF14b6Sg +m422SLx8u6nBF2IaTz3h72EjHab1Rr5GX7hp5ewSgG1v7HbvY7MveNoIfdL4 +iPM3RbTH/OcLo+uG/5T2spF0//31bR99Qat6oqWwj42UPCnp7gu+EBXvMB0w +zEZGXpNFcXo02JR6U0pvgo0KM6bDbHbQoKPvysBZbIlO9h6KIQ00m5qPv8ae +NF/oKtpFg8UPpcP0STY+v7hWMU1ocH3nPc20KTZatyDqImZHgypRO2DN4H4k +6QtkH6eBo+1raa95NrJ7adDld4IGOvRn3QXYjVw7s3VCaTAs3esyhp0Rtkf/ +WTgN5kUOPP5ngY1sXCy9R6NooLXVvilhkY1qlVxqNS7SQFClY3PuLzZKro8O +qCmkQdb6c8yiv2x0nHrTKLKIBom7HyiwsK3uVQgYFtOgPgbtVVxmI8GbrHvV +pTTg7Q/tuY0dx7Alqx7R4PAaO78kLg6KVlM69vgZfr5nZB2Nm4MCb7YHVX6h +QWgkn803Xg7av45lzBikwUHLkDxZPg7aGsclTB2mAfcevyYHbBZDv7RiFPcn +4KvtU2xvm+yJ8nEaeKXQ26/xc5Azb1hw2S8aKNzeJk8V4CDLMOmQEkk6tPTP +KJsJcdCz7PgDqRvpwH/1ifdJbGMmWylSmg6CDgauxdg6yu29pnJ0EJ/YeG69 +MAdJ9USZflamw+WedwXd2GM7+yUF9emQYqBo7ryeg65w5zzxc6DDjyW/0q1i +HCSoLZRu7UiHp8F8DAfsC26RDN0jOP//zrNjsCMf2aouu9KhLoNb9T22N7Hq +6g0fOmSXhnicFOcg3Vc+tOehdJBVoPx+JMFBPVeV1yqm0KGm6UXnkiQHPUDC +/t+v0kEliu/ZJgrOn5htLb1GB4n0o+HG2NT9rWcMb9IhpMhGOQo7mcuXbZ1F +h8iYquo5bIsTOb2RJXRQdDt5a2AjB8nK/m/Hngd0ML2V8t9v7NlXJ67xlNOB +e1diPUWKg+6oIOvkh3TIl1g7ZoP9p7+/Ka+ODk5KsyfrsB9ZyRS9aaPDT5FL +FvHSHHTpFzdv2is6JFaLV2Rh+xSR3i5MXA9730AVtsjqOpmRt3TYH1Iaz8IO +qne+8rObDg0661aZynCQovqNCKVROni+acmdxv7VE9P5g0UH1s3n5rybOKgj +jq5T9p0OfcH7SqWwzwzpkUbjdHjk8/LFXuxP6Z0ehzh0YLYTilewU/lFzU+v +ImB+XuWcnCwHNbD73cJ5CHh9jddmO/a3/mJGMC8BS+KH35piGz8yy/ERIOD8 +Nf0pP2yWV+TvA6IEnBtuzCvBFrEyFzMXJyAms0P8CfYuAzE1tIEArvW7DV9j +pwiXOOlKEWDmvClrfGW8bqBCRp4Ah57KflU5DiIKSto2KBLA3u88rY+dknJq +YL0yAcvyFtWm2CxCXHi1GgHuD9nenivj4pb+4zoEiD86op6CXfdXPJZFJaDF +dc3ALezRH4PXB/UImGXPWN7F3tl0uqXLkIAXlIAdT7BHgh7IPQECmNdr40ax +1zlH6VebEFDziadvEtvIdJ9VhRkBaVGnWQvYyVLDpwr2EXDV6xtFYDMH1awu +S8k+QMA2gc97RLG/TkXdzbAioKh7TkoK2/DFhg9JtgSkq94eV8X2qRgeS7DH +/TqmPKKFnXS7jPvfwwRoOL67oo89zNivE+FMgIJUEo8JtrCnpGWIKwGs9bfa +LVfy9n/1CHQn4MjoS0vrlfc3x1zy9CKg8utp9yMr9QgeuOPsQ8DmuOVZt5W8 +OclaexoBe+az93qt5A19fWtFECCd4mZCW8ljlrMs/AkwrN6+4LdSX3XMHwgk +4N5nea9jK/l3DkjsCiJg1SmNmOCV/CSKhn4wAXaSNjahK/mRI3u1QwjQsUjs +DMMWolU4qzEIeFbYJxSBbXDozAnFcAKyhyx/nVzJ33kwXjaCgJn7r26dwr6s +vDGTEkmAxwvazGnsKpHRh6KnCRD+s+F3FPbQ74pXa6MJqFf9UhO9kv/tzBDv +GQJS1Z6ox2DveH9wcTkW1zNTabvi/wdX6hHS "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.7142433994369197, 1.372243180027523}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.7142433994369213}, + "PlotRange" -> {{0, 180}, {0.8314970548944142, + 1.1951878692917328`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.831497054894416}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -6795,131 +6903,133 @@ v816fiUGr+eg0YII9v8BEOUgTQ== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.7142433994369197, 1.372243180027523}}, + "PlotRange" -> {{0, 180}, {0.8314970548944142, + 1.1951878692917328`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.7142433994369213}, + "AxesOrigin" -> {0, 0.831497054894416}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 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.80048673422974, - 202.74756866009872`}, {-11.626778089982832`, 5.710721910017167}}], + 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:eJwV1nk0VlsfB3BzGRvMROZSmYdosH8ZMo+lzOlxnmMqRLmKDAm3awi5pVGF -kgyZmpRX6UookiJFxueR4TGekPBuf5x11mftc77nu/Zee68jTwt2onOwsbEN -42v1fuKD+pYnrR+MDHnrTapmKWTEytOjmRYhxNm3XIndm6OfpWT6AnmW6muu -2oF4zyOg8x/q1H7bUY5dFhFTx23ajD41ZVKPsC/US9TGFH5Elh+vXijBftZ6 -4tYf7c9oTcX3Sw+xR7oao05Xd6I3C+4iBdhSQ4ruv0y+o5X9Evx52NYTUYZh -zT+QhPPGiBzsmj8j/BGFfchyzsr9GvaXOPHIx0ED6IZkXWUWNovHdGRWewix -vYo8n4bNkxLiqjPHQGr84Y1J2LIbbjacqB5Gr9UrEmOx7aR/3WOZjKE0l8Wj -IdjkbQUxtbUspGjBG+eLHaNsnxDYPIHeDxwR88LuFG/XOlk4hTQ5WbmW2IRb -gP+llGnUr696wwh78gbbnfKgGXQjvJJPB3utgtr6KW0KiSTXWUlhZxF15utF -fyHnL9abBLHl7rvGaMz9QjlSasTKDIUMdiSyjlfPI+0UrsP92H76P5pHTP6g -9hCnd3ewZyNOcfGpLCE73XHbdOzYav49qmuXkfSJOYto7GwweOjbvIISj/ve -dcEm8htMQwvZwS9KbIAHu7D+Um+cNAfk+6ZKT03jvkyvqIwUDog9m97YhR21 -jap4FMQJVYetU4qws0rlFSe0uYEVxpdjid3VOlaznMsNS5UuKRrYctNP3IRE -eUCa7dCkCHaRrl2m2hwP6C+EbOqZotCbZ2fYj1WvBbEXldwB2FTdpx/DJgKg -F6ki7zdJoY02AusjawRgYDkj2Rhbs90UBA0F4T2dw3kTdsBg1W0tdSGwcdrI -/WGCQiEczZp7BdaDJHztUsUeUiiZSvi1AXaqvCXqxvH8kI28LTobwSgjq+4S -NsdDhrzEiY1wgWM+zgdbTmezU+HoRhD5/kCGHdvNJL38Q68wvFvp+ag7RqEW -n9Aw8SZRmMxV3Rk9QqGe+2nJ3mvFIPCyb5Yp9thoYe4DMzEQs2U58mHznRz4 -tLtWDCb2r2Fd+kkh0/MHdb2rxEH5xNuHOcMUep6nTxXkSIJkxrjFVQaF8oZ+ -h+86KQPr7JcCRfspZOGc1BNWLAPX9uwWed+H898I7y9myIBIV732eWzdvB2i -cq6y4Jr+p22yF88nzauC22gzLO71vFP3g0LTE71/DcfLwY562XP23RQSPm5a -WWGrAK7KS8/YOinEyOPzcwhQgFtncszvd1Do6fdW6fFEBTAj/G1tsT1sPONV -ahWgIL7q1ZUvuN/2cKer2orQJ7xip/IZf3/k/mS0uBIExajwb2uj0EFffjWr -PmUwKRRNaG6iEAp31j68pAym9kYOBPa2hJydhKQKeEXOX1tspBBbro5xtKMK -ZBkElG7FLu5xP1z+SgXCr5h9iWrA+/NQUZzU3S3AXqazQ/A/3M/U9ssITRUW -i37FfHhJIWmFizHJgztgeLrHuLOYQi/+mVVd4FADY8HCtWbYHjOu7aS8GvC/ -C95bVkShW2+UVI291KCQhzab9JBCCr7P2+Y71KDv8pbr6g9wv6IhZbJJHZby -XjK88ygkIy1LyrlqAqdZnr3bNQrtyD8psIi0QWP93r/vn6cQjYin1Oy0IU1p -u+FSPN5fipk93h7acHl0PNQJm/Nu6aP6CG24G0DGLcbh/XFr5GBmmTZ0jbkI -WsTg8y/b+6aqog6Efd222Hgar0eyjboLjy7Euhuwnw6i0J1QJYeqZj2Q4Ow4 -F3WIQq3haOf5fEOQXFeben0TheS9Ptt5HtsLH9vctWK/zyL6yuMSmdMA65Jc -z7dfm0Xio0/XiNOMIVXyvuWU7Sw6qbPne+Y2U7iYxBOfyD6LaON/GoRHzCC6 -Vjp2tHwGFRuHrclpMYfpu0mWu9xmUN5swKuiLEvIyS2omuKaQfP7JN6/ibGG -hKTU7afvTaNuNs6pvqO28Gl3Ce9Ri2kUtCk4PU7RHtbYRZWwT06hEv+G2n8T -HGBCrENROH0KnZmRnNvu7whj1rLnKP0pRFntP/T2iBNY+0+wHemYRIbuGfuG -HA/AvWv1YQtnJlGb5M2ANzoHgZnomx+iMomk7sW/KNjqDO/UZa0YVyfQ095t -NnaCh2C75LCF/xwLybZP+oaPHwKDBGmRQQ8W0vk3oyi39zB4VyzZrqkeRze5 -ZtQz61wgyluQ95nqOHq8T6Mr4ZkrBNaYfmrOHEPZO//Z8KfQDYJ4NqvGc4+h -lm/5iTop7tBoMr/M+/coqrK9oRQS6wFmkb79izyjaOr4AbYgwhNMzEcPafw7 -gqj9qn4sEy84FkiPZ20fQQXjX+fD9I+AV+dNqqX2J3K5k+/jKeANm6OfDiT5 -/EQV5dZHOJO8oX45+NoD7p/IULpt4cKCN5yz6R1srhxGir2+XR/9j0Jh7EvP -b4HDaJA/0P7GwFH4KiSv1aA4jFrT7HzMnWlw9tjtV6JMJsqKyOE/1UqD6Usz -pwKLmOhFzcqCj6UPtKZnr587zUTrPCBJ57kPDGvpnd7tyERyIm9bNr3wgSP9 -WruyHZhIs9lWgqfGB3pf+R2n7JnIaY/7g85XPlCyErGtzA7nbwpvOvvOB9po -LctqNkwk1f1wXUOnDzCGngjuNWciJS/xbI85H7BxZJQ+2stEht6sggRdArTK -d5Pj25no3tXJMDt9Apr0r6cFY4t8mjYSNyBg5umY5PQ2JmKZzbUX7Cbguaan -67wqE583bOzNxgSwZxhE8m5lIqG5Da4bHQlQy+KwNFJiosFUPd6c4wQoDoUv -T21iIse3O9t9gwkYHBCKi8WuYduVo3mCgA+Wh8l12FfDjPRenyTA+NSUi7o0 -E9m5mh8diiTA6LVIT4gkEz1Tcn22/R8CivN9ybViTJRWHeX/9B4BXfuFaHHr -mOi49hXDiAICkK2+jiy2zYMyXoNCAuSvLtGqhZiI7wrjwZNiAg44+PT8EmSi -hFCHkceVBJSXeZiGCjBRlKpSYNVrAmgJV5rO8DJRwJWmY+U9BGRML1S3cTKR -pRBjT2gvAYvBTM9I7K0JbILa/QRku+/zUsJmhOoVlw0RAPG6Z/7iYKKjdjnj -j8YImE9mySqwM5ELd1hQ6W8CCLEAqQvLDGQeJhVSJEaH1tCMlpsLDPQ6J9Eq -U4IOaz5u+myNvad5WilCig6jxdmWv+cZSFO56auJLB0G9NxjXLAlOyJNvinT -IVG3W0YK/yeN7uoW49Ojg8pFf+XyWQa6yHH7pe8BOjjXPz2gN8lAfBoC2bbO -dNgyj3SnJhjovHtEqM5hOvBaJ8YXY0dUOmxZcaPD5mdWQVuwj5LsGZdpdDg4 -nXxSjsVAOo004r8TdHD7WWu8ZYyBOjKU+RXT6SAkNvU9aZiBSpCg33AGHXoM -6zSdsc+Pz74pvkSHA7K9gwrY2pZvog2u0MEi9tfx/zEZKI3NZ9r2Fh3e+kdx -LjEYaH/w7a8RRXRo+2vr7n+GGEhG5m99oxI6LPvsueSJPdsYfInzER2CdFKt -tbDvqiDbtAo6mEP/96+DDLTU3V2b+5wOGm0m5zSwK22kCz400CEzyqBjrJ+B -kn9zcGc10qFA56V2PTatYOSoazMdmu6HsnKw13M9lx5soYPJ72OJB7GPVbtc -XPhChyLBFIPXfQykuO1yuNIQHTZ8+JFX2stAvzvOfvrJoMNVxmbOi9itCXTN -0mE6BDsmvgrCju7THTEcowOtts5LA7sr+5On/Qwd2tsnpap+MFDmmg1mZ9hJ -WKuQfbWth4FeTHe7n+QkIZD3IrMSm9ldGBrETULideviK9h7Kk1v03hJ+Cgs -fNsLm+EdsWi1gYQvOu8UprtxfxuzjWbCJDCMvql3Yu/euVEViZJA9heX12Cn -CxYd0pEkIeJmpnzq6vjzH2XS8iRwbbW6oYFN5hc1iCqS0LbFkZRcfT799I91 -yiRc8xAp4MRmkMKCXKokfPd9n/n1Ox4XNvcb0ySBVfKHKxn7+bJwDEObhCOs -jpQI7KGfvf/26pIwWxKYQmLvqj1T125AQqdg9bQJ9uCxEtmXQILfQZY7F7aQ -S6TeE2MSHl4/d4f6xkCGJhY2ZaYkCHk3ezGx0yT7T+dbkBC9MQaasZ9ylabn -WJGQ5c0k/oc9MBF5/6oN7j/KyV6BbVAv+jnVgQSU7XL7OjatrH80yYmEUxrp -uenYqTdKOc4dxPM1cUY2Ebs/1FIz3IUEmTm/yFBsQS8x8xA3EqbfBXr6r+ZZ -DngGeJBg3iP3xHv1/c1nk728Sehhv/PRYbUPn9VdFxoJtIrATMvVPErsmRNB -QukIs9F4Na9voMWGJKEuRjRyz2pe8yPGfj8S6Lazd/VX+z05uwQBJKzROm+s -tZp/10pk9zHcj+8/1x2r+ani2/WCSJCteTy8ZTU/YnCfRggJbpquE4rYAkSZ -i2ooCUZWRcflsHfaRwcrnsR5c6U+Mqv5u6wTZcJJqFEiPkphpyhL3BSPIGH3 -m4bHEtiP1w9VbDhDgui7bmFx7L7Fskb+KBIyVXOHRVfzmdF93NEkTPRI6K1a -v816fiUGr+eg0YII9v8BEOUgTQ== +1:eJwV1Hk4Vd3bB3ARIsqUE6LMIUMHodS6MzYgQ2TOcM42JHF4pJB6Cj8VSSre +MmVIIkNlTkTlyakUkSJDnGqbzzFVyrv8sa99fa6193fd+95rLXmfE/Z0bi4u +rgl8rdxD32ipVne82SPwRLsq+xaJ9kzm6/uYlSB9iU89Kx7M3pGmZNaAtr7p +Ns7BtqW95hPSfY4SfyiPrrgiMraF14yJDGkvO3KxE19sbIotfoeUdtUv38Gu +7QjNWqJ+QHGBqxj52OSnV9Gn6j8ixkSGaiG29Kii27xpH2I0XthShH1wKtoo +jDmAZrub3YuxG5fItZHFQyhX266vBLv7HCWqKvgrsm6iZpdhT/KZkbPUUdQd +SxRUYvNdDnHRXWAhJ9r45GNsOdHMttD674jLtzWqFttGZr5w0nQcbYkNPNqM +TeQoSGqumUQP/zWseo4dq3wo7hhzCl0NcrZ9hf2R0rU9vHgGtTxOsunCprkG +Bly7zEbbZ+9U9mJP3+bKrQzmIK0eAdcB7DUKmiIz1DmUi5iMMew0WoulyIZ5 +ZJ6pOjKDveWuS6z2wjziHOpKX8Q23BY/ebx+EW11k2fy3SaR/44BJmm6hAQD +ElxVsGcj/1ktqPIHJXUFsrSwz9avNVZb8xcdY2Y9NsBOB8P7fsxlJD6+IHsA +m1bQZsYoXgU7E49JMrCLX1wbPCfDDfd/vW2Ixp7+5hl99TI3HFw8X5iAHa0+ +97A8mAcm+T6ZZmGnlckrTlF5Idl6Z+Eb7E8d441/83ihgIvi9xl7C7vadd0G +PujmNzn2HbtEzyZVc4EPEol/d/Nkkqi19vSqoPo14Bl9V8AYe66lc+C7qRAc +HHeGOmwxKyGRqEYhiFi9v5CJrdNlBsJGwjDrZOs2gB048jhnu9Y6KEvIq+TN +IlEIN1Nnt5AIvO91kHTCHlV4MBM3LwrgcqOCNxv3h3gl8FZXDPqID2tksbnv +s+Q3hooB7ZpKmR72Ft3N9sVjYnCj5893GraraUrlm0FxeFL6j+h/2G99GWGU +9g3Qmqarn5NDoi93ky95rZGEb3VETAP2+Fhx3j1zSWi/XyDRiy0Y/rVzV5Mk +jGua64jnksjswmE9r8cUeKX5V+YSdl3+jrmibCn4PTDVmniHRPmjvyJ2hssC +GrZxeZZPon2OCV/CSmVB8MPuxVHs8VZxi1KWLPTuEOgTKCCRXv62DVtc5MDE +RZdhj93q4/mQd89mGPN4+ZGFzZ4aPPn9/BYY9I5J3nSXROLHzR49tFYAQW0i +vf4eiVj5gv62gQqQoD/07ht2TV+HzES8Anh5qNpKFJPI3crjvEqTAlQXiMkE +Y+drRNhnUBVBaMaBVLqP5yfvTp+hKEH75Ozx7BISHfZbq3lgSBn+NFB428pI +hCIcqUf+KEMAvGP+xlaPyzagSanANvvr3drlJOLK0zU5Y6cC+47uLE/HLv3i +dqSyWQU8ckeijlfg/elUck76jipIlEuHKz7E9ZlZd5M+aiDZPTTcVEWiPIeb +nxfOqMF2vzhyCTvZZ2hw9S01WH1XRs+oGq/vs/+MyXWqQcbcpqRKbNGGTC4H +U3WoJN2cimrw+tGdVK9X1IC9XSLmOXUkklG4EntpZBuUrD+U1NxIooaLs2o/ +uTXhQiaZufYp7gfHpYuQ14R4jeXfjthZrUpqJp6aYHw2OWcMW8Gv7v1ijybo +mCldkm7G31syqky0a4HybqnR+BYSycrIEVtcdIDzyywvo41E2wrChX4jKuSK +Fi0VdpLIh3Z+TtOGCvwndiv+xU5XTP3i5U4FwSCuJMcuEvHcKSt/EUmFW2qC +6rwf8H7LIg+nVlDhYvmai37d+DxN98pUU9SFltGkQcNe/H8vWWk58+mB8DHn +L8IDJMplKNk+ZuqDbW3H67NjJOqIQAYXCozggvGHBhHBMSTv+cHGI2g3pDaz +at5sG0P05aoHsqcAHE9mdPrbjSHKWA0/xccELKx1r+XEjKFwXeO+VHUz+G/f +Zi+Z+2PIZ2KpTZw0B59qd4vUz2Oo1CSMP/utJSSLPf8YJDGO8mcDm0vS9oMo +GZlFWI+jxb0bX7fGHoSGVS+WHK+Mo34unpkhb2sQ3eA/pd41joI3nUg5p3gI +3NnyyizKBHoQ0NZ0Pc4WpLrvLovQJ9BpjtSCRoAdaCao7g4on0BzByycXh61 +hzfiq4NO8k4iI7ere0ftHICy1aCK6j6J3ktlBrbqHoYqZ6fYlrJJJF14vqFo +qyP8cW3xXBKaQjWD6lY2wk5wsaDrhx4xheS6pv0iJpxgwLReJ+TpFNK9frUk +b/AIxIRQT02JTKPM1Ryt1BZn0Nm492Q4mkZVe7U/xdW6gP9RrzYbxjRKN7go +ulTsCrFyKWRo/jR6+7kgXveyG9QyxJ20O6fRY+vbSiFn3cHB/0ZaBu8Mmjnu +wBVM84DR/43s09CbQXMWav6Tpp6QNZisJu89g4omehfDdhwFPy6j04MpM8g5 +t8DXQ8gLxLXHI6kNM+hh5cGjPAlekHOYpyXhxwwyknn/M/GnFzx1O3RJRIyN +FAf9Pr0L8AazCCp1wICNRtYeO3T7qzfwH9mjxPBko45kG19LRx/4+6343Y9Y +NkqLzF77T4cP/LjAL6eay0YNjcs/fff7Qn9zkHVkIxutd4cE3TpfeF14b6Sg +m422SLx8u6nBF2IaTz3h72EjHab1Rr5GX7hp5ewSgG1v7HbvY7MveNoIfdL4 +iPM3RbTH/OcLo+uG/5T2spF0//31bR99Qat6oqWwj42UPCnp7gu+EBXvMB0w +zEZGXpNFcXo02JR6U0pvgo0KM6bDbHbQoKPvysBZbIlO9h6KIQ00m5qPv8ae +NF/oKtpFg8UPpcP0STY+v7hWMU1ocH3nPc20KTZatyDqImZHgypRO2DN4H4k +6QtkH6eBo+1raa95NrJ7adDld4IGOvRn3QXYjVw7s3VCaTAs3esyhp0Rtkf/ +WTgN5kUOPP5ngY1sXCy9R6NooLXVvilhkY1qlVxqNS7SQFClY3PuLzZKro8O +qCmkQdb6c8yiv2x0nHrTKLKIBom7HyiwsK3uVQgYFtOgPgbtVVxmI8GbrHvV +pTTg7Q/tuY0dx7Alqx7R4PAaO78kLg6KVlM69vgZfr5nZB2Nm4MCb7YHVX6h +QWgkn803Xg7av45lzBikwUHLkDxZPg7aGsclTB2mAfcevyYHbBZDv7RiFPcn +4KvtU2xvm+yJ8nEaeKXQ26/xc5Azb1hw2S8aKNzeJk8V4CDLMOmQEkk6tPTP +KJsJcdCz7PgDqRvpwH/1ifdJbGMmWylSmg6CDgauxdg6yu29pnJ0EJ/YeG69 +MAdJ9USZflamw+WedwXd2GM7+yUF9emQYqBo7ryeg65w5zzxc6DDjyW/0q1i +HCSoLZRu7UiHp8F8DAfsC26RDN0jOP//zrNjsCMf2aouu9KhLoNb9T22N7Hq +6g0fOmSXhnicFOcg3Vc+tOehdJBVoPx+JMFBPVeV1yqm0KGm6UXnkiQHPUDC +/t+v0kEliu/ZJgrOn5htLb1GB4n0o+HG2NT9rWcMb9IhpMhGOQo7mcuXbZ1F +h8iYquo5bIsTOb2RJXRQdDt5a2AjB8nK/m/Hngd0ML2V8t9v7NlXJ67xlNOB +e1diPUWKg+6oIOvkh3TIl1g7ZoP9p7+/Ka+ODk5KsyfrsB9ZyRS9aaPDT5FL +FvHSHHTpFzdv2is6JFaLV2Rh+xSR3i5MXA9730AVtsjqOpmRt3TYH1Iaz8IO +qne+8rObDg0661aZynCQovqNCKVROni+acmdxv7VE9P5g0UH1s3n5rybOKgj +jq5T9p0OfcH7SqWwzwzpkUbjdHjk8/LFXuxP6Z0ehzh0YLYTilewU/lFzU+v +ImB+XuWcnCwHNbD73cJ5CHh9jddmO/a3/mJGMC8BS+KH35piGz8yy/ERIOD8 +Nf0pP2yWV+TvA6IEnBtuzCvBFrEyFzMXJyAms0P8CfYuAzE1tIEArvW7DV9j +pwiXOOlKEWDmvClrfGW8bqBCRp4Ah57KflU5DiIKSto2KBLA3u88rY+dknJq +YL0yAcvyFtWm2CxCXHi1GgHuD9nenivj4pb+4zoEiD86op6CXfdXPJZFJaDF +dc3ALezRH4PXB/UImGXPWN7F3tl0uqXLkIAXlIAdT7BHgh7IPQECmNdr40ax +1zlH6VebEFDziadvEtvIdJ9VhRkBaVGnWQvYyVLDpwr2EXDV6xtFYDMH1awu +S8k+QMA2gc97RLG/TkXdzbAioKh7TkoK2/DFhg9JtgSkq94eV8X2qRgeS7DH +/TqmPKKFnXS7jPvfwwRoOL67oo89zNivE+FMgIJUEo8JtrCnpGWIKwGs9bfa +LVfy9n/1CHQn4MjoS0vrlfc3x1zy9CKg8utp9yMr9QgeuOPsQ8DmuOVZt5W8 +OclaexoBe+az93qt5A19fWtFECCd4mZCW8ljlrMs/AkwrN6+4LdSX3XMHwgk +4N5nea9jK/l3DkjsCiJg1SmNmOCV/CSKhn4wAXaSNjahK/mRI3u1QwjQsUjs +DMMWolU4qzEIeFbYJxSBbXDozAnFcAKyhyx/nVzJ33kwXjaCgJn7r26dwr6s +vDGTEkmAxwvazGnsKpHRh6KnCRD+s+F3FPbQ74pXa6MJqFf9UhO9kv/tzBDv +GQJS1Z6ox2DveH9wcTkW1zNTabvi/wdX6hHS "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.7142433994369197, 1.372243180027523}}, + "PlotRange" -> {{0, 180}, {0.8314970548944142, 1.1951878692917328`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.7142433994369213}, + "AxesOrigin" -> {0, 0.831497054894416}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -6929,7 +7039,8 @@ v816fiUGr+eg0YII9v8BEOUgTQ== AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.7142433994369213}, + AxesOrigin->{0, 0.831497054894416}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -6957,7 +7068,8 @@ v816fiUGr+eg0YII9v8BEOUgTQ== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.7142433994369197, 1.372243180027523}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.8314970548944142, 1.1951878692917328`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -6965,8 +7077,10 @@ v816fiUGr+eg0YII9v8BEOUgTQ== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913206956809444`*^9}, - CellLabel->"Out[85]=",ExpressionUUID->"5d2ddb35-b7b8-514c-917f-fcc77dc8600c"] + CellChangeTimes->{3.9913206956809444`*^9, 3.993958656505198*^9, + 3.993959501585697*^9}, + CellLabel-> + "Out[206]=",ExpressionUUID->"cc9d3397-7642-44b4-a4b3-c24fe4c5a0fd"] }, Open ]], Cell[CellGroupData[{ @@ -7029,274 +7143,160 @@ 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[207]:=",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.3559275616020787`*^-274\\\", \ + "\"\\!\\(\\*FractionBox[\\\"4.010969218986148`*^-268\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 207, + 17, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991320696298666*^9, 3.993959501910804*^9}, + CellLabel-> + "During evaluation of \ +In[207]:=",ExpressionUUID->"0c3a806d-92ad-4f51-87de-3d30089a545b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.810939972463251`*^-280\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 207, + 18, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991320696298666*^9, 3.99395950191744*^9}, + CellLabel-> + "During evaluation of \ +In[207]:=",ExpressionUUID->"5e7e8083-251d-40bd-88c1-2173be5e8cb2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9699436962492898`*^-292\\\", \ \\\"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, 207, + 19, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991320696298666*^9, 3.993959501924746*^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"], +In[207]:=",ExpressionUUID->"ab768ce9-4011-4f61-8353-bbae4b41ab76"], 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, 207, 20, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991320696298666*^9, 3.9939595019316893`*^9}, CellLabel-> "During evaluation of \ -In[86]:=",ExpressionUUID->"32a908f1-0097-2943-9511-bd82e083c1e0"], +In[207]:=",ExpressionUUID->"418dcade-37a2-4357-85be-bfe43e6c42bb"], 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:eJwV13k0Vd0bB3BvSiTzLNM9515DxlS84vY8hpQGRUlUKEOUuUiq1xDRYAhJ +KiSSdO+5JEUDSTRIplCKSCrKPDb5nd9fZ33W2muvZ6+9n+/eh7E3wN5zHh8f +H/8/fHz//051Pa9hnslbvX+hh8aQjdnq1iz5I+Yd0aBpYLdeelwBUOb1XvmO +FJCNvOP+dkwLQrfcbOfvyIXZpR8bbo+ZgMSQXMpsewmY66b/FzlmA90PbAMm +2qshPGjF475RJ7BmDnwYbW8GA5s13MRhH5htNz4/0t4LIKzeYdV/BJ5YFuQ1 +5Y7DkTU3yrWaT4NSd3n/Xp0/oGjrZfmtIhWkfV1vLrTkx7aBI1L5dy5CyjLr ++7YOgri577lgYE82vM0wqBoVF8F5J52s/l7LhTN5Ea/nKUig43GhjyKO+SCX +9ulU6hUp9B1v8am9XwBx22xWN0/JYHr8Ra+Yu4WgWNqgOO8fWXzDP/g3ubIQ +uFLbppcJy6KKkMHzjLpCaGt24Z1TlUULtyfDF9sLgWl3iLBbJ4tyloX7904X +QvWmbIHGi7JYFUfaCBvdhD/Wkw2vzORw5vD5mDLqJhw0uer6PFoe7/d7lFun +FcH6HNGJDWfl0SIk1SE/swiIhcfiG87Lo+mukvS5nCJobN1e3HJDHnf6vF9Q +wCkCvcDF/F0N8rjhaPfpx7VF8PX64etjigooEmPzkjlTBLukbX8sua2AGhlu +q6863gKr4Z/h/p8UcXqybp+LEAeOrEtb+vi7IprdS3wYL8oB7lXdd1JTirix +WOo1V4oD8tvcTMoFl6DvtyzmkDIHvt97Os2vtwSX7+tNMzHkQGp08qGLYUuQ +EL3vxe/MgV4Zdf8aESUsMdgysOc6B+QCKpXl5JTQdLVfEH8RBzY+2/HKR00J +g4sCeTkUB8rCz+iILVdC2ZfjDg33OHC6e2TAaYcSfrh9jT31ggOGhff3Decq +YfuSh2FhQxyIMrPbo/ivMvoJKF6yNuTCOpesMWMLZUyNDFpwz4gLopGDJxw2 +KmPtWIEn05QLl5/EXk92U8bpVjHBIUsu3FtfMShwShk/ld5st3LgwsgOMnT8 +rTL2Lop4yHeYCy4hk6frj6pgtsDO2pIyLrAuWCgNxKrgF6XG5ScquPT6kzgL +k1XQb9vNy7aPuBD+W6vRIk8FbRoy9rQ95cL5Ey4y5fUqOEiNVRa2cqH+XF12 +vrIq9hieF3Mb5cIq7sXS/ypV0TYd14poUGDV3vBn6Jkq5jcLmC9cSoEt3/y1 +rs2q+IZ8+vm3DgXu9v5v4bMqJl46tazTkALro4yIyAVq6K++4L37agoCVaeu +mWur4bofpxryt1FQsy/7x5NQNWRZSAwMHafA5reJ5LGjamhPWM+5RFLQkNxq +tCJSDVs2WtS/iKbgbblQZN4pNaw655N0Po6CIeFDkrGX1XADXqibTqZAnrfO +2LpaDdMqzx0YzqXAd2Y08pkIA0kJVSnqCQWrgrxk+yUZ+Hp+2MfKpxQIDrwr +4pdn4L7/zMtf1lGQ3/mkbTXBQCGGTHLrSwq6Hp3XuWPEQJ5pwpebLRRsjjXp +uOrKQO1x7a/7eylQ+cvxq/Rg4OflsnU6fRR8DyX4P/gwMOh7+cNvnymI9xbW +kz/EwNW/fSa3faOgasOHE4nxDNzouy1/ZJgCQ8ko/aPFDFwn6V/N/k0B35nJ +mowyBtopBkQW/6HXz7/fuew+A13f5bqrzVFwYNI+dvQpA31q0xqm+XiQ18Hs +3PeOgXHXm38W8vMg2O5iYGw3A8ueSR7dMp8H+EJE4FofA9tXRJ+boP3h/pRB +1xADpUprolcK8EA2+9nJbfwE+vo1nsgU5EGfHFspWJDAr/wR1bpCPChJLi5O +EqG9RO7SI9qbozPfv5AjMDt5cMnbRTyI9/Q1NNchMLMv02d0MQ9mtcW7dB0I +LFickEuJ82DqimLUcmcCHQc+VSlK8GBCjMU0cSVQK3Mm/QTtoXGT/VY+BF6d +tfG1leRB7333KefjBFY46j1/JsWDbl3/i27RBKb3SdxmSPPgfXaYmVccgVPs +KzvCaLedSIgOOkdgfUlhh4oMD15suCsan0/g6fjCii2yPKh7+Lg44SaBOYPt +SRdo1+jXb0ulCHSJuMt8T/uRVE9mVjmBjcoZSS5yPLgfO8jOe0Sgpe1Vr8u0 +701Pfix8QuCanwfm2mmXdC7SuPOKwLd2O8PWyfOA2iTzoqKZwKUTZ5yO075V +qepX1U7gj7/n/1K0r19bcftlD4GpAVvTRRV4cE0Gtjf1E1iUKnt6Fe2cOJvZ +tkEC+S83W3rQzjzgAr2TBP797SRcTPvCB+/eLz8JvNv0r2Ir7bTNB2N/zBFo +Gm08OkH73OPjmuPzSfxv8mOylCIPEpfHv5wRIrEkvmpWn/aZ/BT/v6Ikjoru +1VlPO17uisR8aRJnGu209tKOPVVQKqRAYvNZpdHDtKN/FTuKqZB4OmRzzBna +EX4PfkqTJH4xDPt0mfax7toripokSvQwxW7RPmLXhGq6JK4T71tYTjv0Secn +liGJF2qsGp7QPriy/6S2MYnxIW1762kHFoxoLTMjsUFEq7aZtr/Cr3ojcxJ/ +D9TPtNE+cGZBoJk1iUYf7H910Pb+IyZlsYHELvWNDf+3V4Bi2dotJNocWx/8 +//HuPUynTQ4k+vF//NJE222r/m97ZxIztmbrv6S9+6lJ9g5XEhVClqyvpu1s +bGXh4kHi1McvxndpOxbafnb3ocdHZswW0t62xCnex5/EKM7jpEzadgnu2gEH +SZw1mPkZT9t2zq/hUBiJFZZNpiG0NwSFBYUfJ/FWQq+9K+11n6KlI6Pp9bKq +cS3tNQ4Jd2PjSDyXLCCgS9ui7oLzmbMkmldbXxOnbVZ0Kyc9ncR8X3nvJno/ +O9WKstdcInFNx8pfPNrh6YVZE9kkJrHMeIm070Zdv2xfSOJi64koK9rbp/Mu +/cOl1789O1uJ9oTvtUxeCYke1ayeMfr8Ge7IyRB9QGJoQUXTRdpNr7IuPKwi +kf21Jmo/7UDLK+m+T+l6pXIdTWhz9TLTXjSQqK7fGNpEn3etBWnJJ3tIzFId +SB6k++VZeErSyn4SfzLDjnNoe40kJ/YNkOj2b3uqH+28zoSzFhMkLgkXwa90 +P6qVxMX/FWDiUvnEvDq6Xys1TsZxhJnYJd32I5y2y5WYk7vEmfh0gM9Th/al ++KiYCgUmeteIdJ+i+1/W9WhkqA4TD9sfFden8+FO65EI1jImTqltbm+h82Pb ++rD/Wlcy8Xjd0sZQ2ikrQ44ZAhOJMgnnu3T+iCwOCBuyY2KVguMHQowH88v3 +BnodputRCpfPE6b7UW9PgMwxJm48Yww6tC3yXP1rIpmYdeG/nBI63yKSdvkS +p5n4rLtFuoLOv5+e2727LjPxrXRLy+2FPBiVXO+2vZqJ5uufs7bS+dvhSzTu +r2PigIB2Vsk8HlTV/oSIeiYWB0cKi9NODi9SvdHGRM5gd10Nnd8GvYu7ZweY +eOvIaJk2nf/+xa93X5Fi4dC3MRXuCAXbhW+8KpZnoRKvwFmHvi9We0aya5VZ +aLzd/cL1HxSIKCxTHtZgYUrOa4WkAQpuRaa8RzMW3v1Uc8CAvo8GNjvs7PNg +IcP1cvKdNgqaC3VfzviwcHtMQOJEKwUV/AKmIgEsnKuRz9en77dTd8sUjY6w +UMhphsh8TYGmqvy7uAQWBpc6n8FnFOwberdDu4yFLfcMPVrvUdB31m178EJ1 +XJQRMI+8QNc/oEMYLFZHNXt9U9HzFEyvnf3xQ1wdo2yi/p1KoWARf0qsj6I6 +bg3iP/kgkQKDI09K3XTV8WPIrWTiJAXHPdWlNm9Vx6u1a+McDlEgu/r7a+1s +dez/asB0s6Ug59K9S9+uqaPcl+mQ/g0UaM3G7Cu4oY4TKzeX+dhQYFaqPEeU +qGPQ44WC+6zo98jSzXqKT9XRUZeUYa+igCdbclZwUB3Hplfx72DR743hwzaf +jTRw7NKym/azXFBapnJS0EwDcyq/OppNcWEouKZa21wDuw7GZxHjXEibEjcL +3qCB0Uoxf/q+c6HrT6HenKsGKmSnLTf/yIXgxe+lFE5p4KKw3EVOtVzI1MKu +jZ0aGNynXi+ZTL/H3AUPlkZo4qHKyHFJRXr+LKuHlTGaqNLf8o+lLBeG30Yu +fHlKEwuGCONASS6MbZ691JOqiZZVV5WrF3Fh2nSgRvSGJpZg4SKrXxyYJ10v +69OoiZOBZd8ed3JAoSapQpmhhU4HbgwWZ3Lo/xW5eXHVWgiy4lM14hyQfKWe +yBteilJ7Qr6bTxWBUjy1xchIB7X/bhpOyrsJGdom4lL7dHFgeGjTpF0hvFA0 +Xzl+Tg8//E4YqpwsgFVK1cn6bfqYmegUVBlwHUT5cw/tiTZAUy5fYOyfPFCJ +UjVzUl+GF2MG8PX+ayDE2lVmX7cMZxIjxLt7r4IeW4E6vNsQ+w1Ly1Ycy4Hg +Lskn6/mWo6nQdu2a+VkwPH7WwSZjOT7C3ozO3ZdgrX5tpo3uCrTUqfzm1pMB +j8ZNf003rMDPlWvfTNung7+O4bsmz5XocO3o7hHpNGAPebQ6CRmh8NWpPM/G +c7CGKb9JJNcIZR7sLOksTQLNyNNh1cbG6LpIxYeteRaWeppUst4ZY5k0+oXm +xoPnI++Y0qB/Ebzi1ArzY6Eyp9VjVMYE9Rbv+HG+PBombsxN6981QYfhnMQp +zUhwZxUJZW5ahZHDtyz+CB+D0aWpRiUjq1At6+8e7+HDcC/vV89kvCm2Pahy +Fkg4BM5WJJqqmGG9zyvV8ewgWOIXV65XZYYPDevFom/7gcwi3+JNjmw83TIn +n7DCB/Isj4ePOLFRrJ8j0sXwAcPjiZapu9jIDLzybJWYD9iO8N507GHjTomG +cLkBbzjZNjnr7stGK07K8t053jCTG2ERHsXGoER/KRkxb3hnmtpyvYiNZU8f +FotNeoF3SN5lGy4bJ24czG/45AVT3Due33lsDPRW4WY0e4Ek0TG9rIyNlbbH +vm7iecEGQWWlh1VsbGqt9Tbz9YIHrdc9Wt6w0eKddTuz3xPWi97TDe1gowe3 +NyHljSd0rH0+Jd9J16dRMk/4qSdMVAzGu3xkY4TifgmlPE/QvWrA+TbARmHx +3zqP9nrCg3fmoWd/sPFg2bfVUfb0fNJbQX+EjSr2S/tsLTzpbQlpOjTJxl/D +m1qECHq+qpOZcjNs9GKekpyW8ITonxfcK36y0aC07vXQP54gvqJQZ/cfNi7Q +Ll8wOuoBWX4Vk3NzbFx4WJT60+MB/wN/sVln "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -7310,233 +7310,115 @@ 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:eJwV13k0Vd0bB3BvSiTzLNM9515DxlS84vY8hpQGRUlUKEOUuUiq1xDRYAhJ +KiSSdO+5JEUDSTRIplCKSCrKPDb5nd9fZ33W2muvZ6+9n+/eh7E3wN5zHh8f +H/8/fHz//051Pa9hnslbvX+hh8aQjdnq1iz5I+Yd0aBpYLdeelwBUOb1XvmO +FJCNvOP+dkwLQrfcbOfvyIXZpR8bbo+ZgMSQXMpsewmY66b/FzlmA90PbAMm +2qshPGjF475RJ7BmDnwYbW8GA5s13MRhH5htNz4/0t4LIKzeYdV/BJ5YFuQ1 +5Y7DkTU3yrWaT4NSd3n/Xp0/oGjrZfmtIhWkfV1vLrTkx7aBI1L5dy5CyjLr ++7YOgri577lgYE82vM0wqBoVF8F5J52s/l7LhTN5Ea/nKUig43GhjyKO+SCX +9ulU6hUp9B1v8am9XwBx22xWN0/JYHr8Ra+Yu4WgWNqgOO8fWXzDP/g3ubIQ +uFLbppcJy6KKkMHzjLpCaGt24Z1TlUULtyfDF9sLgWl3iLBbJ4tyloX7904X +QvWmbIHGi7JYFUfaCBvdhD/Wkw2vzORw5vD5mDLqJhw0uer6PFoe7/d7lFun +FcH6HNGJDWfl0SIk1SE/swiIhcfiG87Lo+mukvS5nCJobN1e3HJDHnf6vF9Q +wCkCvcDF/F0N8rjhaPfpx7VF8PX64etjigooEmPzkjlTBLukbX8sua2AGhlu +q6863gKr4Z/h/p8UcXqybp+LEAeOrEtb+vi7IprdS3wYL8oB7lXdd1JTirix +WOo1V4oD8tvcTMoFl6DvtyzmkDIHvt97Os2vtwSX7+tNMzHkQGp08qGLYUuQ +EL3vxe/MgV4Zdf8aESUsMdgysOc6B+QCKpXl5JTQdLVfEH8RBzY+2/HKR00J +g4sCeTkUB8rCz+iILVdC2ZfjDg33OHC6e2TAaYcSfrh9jT31ggOGhff3Decq +YfuSh2FhQxyIMrPbo/ivMvoJKF6yNuTCOpesMWMLZUyNDFpwz4gLopGDJxw2 +KmPtWIEn05QLl5/EXk92U8bpVjHBIUsu3FtfMShwShk/ld5st3LgwsgOMnT8 +rTL2Lop4yHeYCy4hk6frj6pgtsDO2pIyLrAuWCgNxKrgF6XG5ScquPT6kzgL +k1XQb9vNy7aPuBD+W6vRIk8FbRoy9rQ95cL5Ey4y5fUqOEiNVRa2cqH+XF12 +vrIq9hieF3Mb5cIq7sXS/ypV0TYd14poUGDV3vBn6Jkq5jcLmC9cSoEt3/y1 +rs2q+IZ8+vm3DgXu9v5v4bMqJl46tazTkALro4yIyAVq6K++4L37agoCVaeu +mWur4bofpxryt1FQsy/7x5NQNWRZSAwMHafA5reJ5LGjamhPWM+5RFLQkNxq +tCJSDVs2WtS/iKbgbblQZN4pNaw655N0Po6CIeFDkrGX1XADXqibTqZAnrfO +2LpaDdMqzx0YzqXAd2Y08pkIA0kJVSnqCQWrgrxk+yUZ+Hp+2MfKpxQIDrwr +4pdn4L7/zMtf1lGQ3/mkbTXBQCGGTHLrSwq6Hp3XuWPEQJ5pwpebLRRsjjXp +uOrKQO1x7a/7eylQ+cvxq/Rg4OflsnU6fRR8DyX4P/gwMOh7+cNvnymI9xbW +kz/EwNW/fSa3faOgasOHE4nxDNzouy1/ZJgCQ8ko/aPFDFwn6V/N/k0B35nJ +mowyBtopBkQW/6HXz7/fuew+A13f5bqrzVFwYNI+dvQpA31q0xqm+XiQ18Hs +3PeOgXHXm38W8vMg2O5iYGw3A8ueSR7dMp8H+EJE4FofA9tXRJ+boP3h/pRB +1xADpUprolcK8EA2+9nJbfwE+vo1nsgU5EGfHFspWJDAr/wR1bpCPChJLi5O +EqG9RO7SI9qbozPfv5AjMDt5cMnbRTyI9/Q1NNchMLMv02d0MQ9mtcW7dB0I +LFickEuJ82DqimLUcmcCHQc+VSlK8GBCjMU0cSVQK3Mm/QTtoXGT/VY+BF6d +tfG1leRB7333KefjBFY46j1/JsWDbl3/i27RBKb3SdxmSPPgfXaYmVccgVPs +KzvCaLedSIgOOkdgfUlhh4oMD15suCsan0/g6fjCii2yPKh7+Lg44SaBOYPt +SRdo1+jXb0ulCHSJuMt8T/uRVE9mVjmBjcoZSS5yPLgfO8jOe0Sgpe1Vr8u0 +701Pfix8QuCanwfm2mmXdC7SuPOKwLd2O8PWyfOA2iTzoqKZwKUTZ5yO075V +qepX1U7gj7/n/1K0r19bcftlD4GpAVvTRRV4cE0Gtjf1E1iUKnt6Fe2cOJvZ +tkEC+S83W3rQzjzgAr2TBP797SRcTPvCB+/eLz8JvNv0r2Ir7bTNB2N/zBFo +Gm08OkH73OPjmuPzSfxv8mOylCIPEpfHv5wRIrEkvmpWn/aZ/BT/v6Ikjoru +1VlPO17uisR8aRJnGu209tKOPVVQKqRAYvNZpdHDtKN/FTuKqZB4OmRzzBna +EX4PfkqTJH4xDPt0mfax7toripokSvQwxW7RPmLXhGq6JK4T71tYTjv0Secn +liGJF2qsGp7QPriy/6S2MYnxIW1762kHFoxoLTMjsUFEq7aZtr/Cr3ojcxJ/ +D9TPtNE+cGZBoJk1iUYf7H910Pb+IyZlsYHELvWNDf+3V4Bi2dotJNocWx/8 +//HuPUynTQ4k+vF//NJE222r/m97ZxIztmbrv6S9+6lJ9g5XEhVClqyvpu1s +bGXh4kHi1McvxndpOxbafnb3ocdHZswW0t62xCnex5/EKM7jpEzadgnu2gEH +SZw1mPkZT9t2zq/hUBiJFZZNpiG0NwSFBYUfJ/FWQq+9K+11n6KlI6Pp9bKq +cS3tNQ4Jd2PjSDyXLCCgS9ui7oLzmbMkmldbXxOnbVZ0Kyc9ncR8X3nvJno/ +O9WKstdcInFNx8pfPNrh6YVZE9kkJrHMeIm070Zdv2xfSOJi64koK9rbp/Mu +/cOl1789O1uJ9oTvtUxeCYke1ayeMfr8Ge7IyRB9QGJoQUXTRdpNr7IuPKwi +kf21Jmo/7UDLK+m+T+l6pXIdTWhz9TLTXjSQqK7fGNpEn3etBWnJJ3tIzFId +SB6k++VZeErSyn4SfzLDjnNoe40kJ/YNkOj2b3uqH+28zoSzFhMkLgkXwa90 +P6qVxMX/FWDiUvnEvDq6Xys1TsZxhJnYJd32I5y2y5WYk7vEmfh0gM9Th/al ++KiYCgUmeteIdJ+i+1/W9WhkqA4TD9sfFden8+FO65EI1jImTqltbm+h82Pb ++rD/Wlcy8Xjd0sZQ2ikrQ44ZAhOJMgnnu3T+iCwOCBuyY2KVguMHQowH88v3 +BnodputRCpfPE6b7UW9PgMwxJm48Yww6tC3yXP1rIpmYdeG/nBI63yKSdvkS +p5n4rLtFuoLOv5+e2727LjPxrXRLy+2FPBiVXO+2vZqJ5uufs7bS+dvhSzTu +r2PigIB2Vsk8HlTV/oSIeiYWB0cKi9NODi9SvdHGRM5gd10Nnd8GvYu7ZweY +eOvIaJk2nf/+xa93X5Fi4dC3MRXuCAXbhW+8KpZnoRKvwFmHvi9We0aya5VZ +aLzd/cL1HxSIKCxTHtZgYUrOa4WkAQpuRaa8RzMW3v1Uc8CAvo8GNjvs7PNg +IcP1cvKdNgqaC3VfzviwcHtMQOJEKwUV/AKmIgEsnKuRz9en77dTd8sUjY6w +UMhphsh8TYGmqvy7uAQWBpc6n8FnFOwberdDu4yFLfcMPVrvUdB31m178EJ1 +XJQRMI+8QNc/oEMYLFZHNXt9U9HzFEyvnf3xQ1wdo2yi/p1KoWARf0qsj6I6 +bg3iP/kgkQKDI09K3XTV8WPIrWTiJAXHPdWlNm9Vx6u1a+McDlEgu/r7a+1s +dez/asB0s6Ug59K9S9+uqaPcl+mQ/g0UaM3G7Cu4oY4TKzeX+dhQYFaqPEeU +qGPQ44WC+6zo98jSzXqKT9XRUZeUYa+igCdbclZwUB3Hplfx72DR743hwzaf +jTRw7NKym/azXFBapnJS0EwDcyq/OppNcWEouKZa21wDuw7GZxHjXEibEjcL +3qCB0Uoxf/q+c6HrT6HenKsGKmSnLTf/yIXgxe+lFE5p4KKw3EVOtVzI1MKu +jZ0aGNynXi+ZTL/H3AUPlkZo4qHKyHFJRXr+LKuHlTGaqNLf8o+lLBeG30Yu +fHlKEwuGCONASS6MbZ691JOqiZZVV5WrF3Fh2nSgRvSGJpZg4SKrXxyYJ10v +69OoiZOBZd8ed3JAoSapQpmhhU4HbgwWZ3Lo/xW5eXHVWgiy4lM14hyQfKWe +yBteilJ7Qr6bTxWBUjy1xchIB7X/bhpOyrsJGdom4lL7dHFgeGjTpF0hvFA0 +Xzl+Tg8//E4YqpwsgFVK1cn6bfqYmegUVBlwHUT5cw/tiTZAUy5fYOyfPFCJ +UjVzUl+GF2MG8PX+ayDE2lVmX7cMZxIjxLt7r4IeW4E6vNsQ+w1Ly1Ycy4Hg +Lskn6/mWo6nQdu2a+VkwPH7WwSZjOT7C3ozO3ZdgrX5tpo3uCrTUqfzm1pMB +j8ZNf003rMDPlWvfTNung7+O4bsmz5XocO3o7hHpNGAPebQ6CRmh8NWpPM/G +c7CGKb9JJNcIZR7sLOksTQLNyNNh1cbG6LpIxYeteRaWeppUst4ZY5k0+oXm +xoPnI++Y0qB/Ebzi1ArzY6Eyp9VjVMYE9Rbv+HG+PBombsxN6981QYfhnMQp +zUhwZxUJZW5ahZHDtyz+CB+D0aWpRiUjq1At6+8e7+HDcC/vV89kvCm2Pahy +Fkg4BM5WJJqqmGG9zyvV8ewgWOIXV65XZYYPDevFom/7gcwi3+JNjmw83TIn +n7DCB/Isj4ePOLFRrJ8j0sXwAcPjiZapu9jIDLzybJWYD9iO8N507GHjTomG +cLkBbzjZNjnr7stGK07K8t053jCTG2ERHsXGoER/KRkxb3hnmtpyvYiNZU8f +FotNeoF3SN5lGy4bJ24czG/45AVT3Due33lsDPRW4WY0e4Ek0TG9rIyNlbbH +vm7iecEGQWWlh1VsbGqt9Tbz9YIHrdc9Wt6w0eKddTuz3xPWi97TDe1gowe3 +NyHljSd0rH0+Jd9J16dRMk/4qSdMVAzGu3xkY4TifgmlPE/QvWrA+TbARmHx +3zqP9nrCg3fmoWd/sPFg2bfVUfb0fNJbQX+EjSr2S/tsLTzpbQlpOjTJxl/D +m1qECHq+qpOZcjNs9GKekpyW8ITonxfcK36y0aC07vXQP54gvqJQZ/cfNi7Q +Ll8wOuoBWX4Vk3NzbFx4WJT60+MB/wN/sVln "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}}, + "PlotRange" -> {{0, 30}, {0., 0.0629096616347525}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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" -> @@ -7548,19 +7430,19 @@ HbLGog== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}}, + "PlotRange" -> {{0, 30}, {0., 0.0629096616347525}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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|>, @@ -7574,232 +7456,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:eJwV13k0Vd0bB3BvSiTzLNM9515DxlS84vY8hpQGRUlUKEOUuUiq1xDRYAhJ +KiSSdO+5JEUDSTRIplCKSCrKPDb5nd9fZ33W2muvZ6+9n+/eh7E3wN5zHh8f +H/8/fHz//051Pa9hnslbvX+hh8aQjdnq1iz5I+Yd0aBpYLdeelwBUOb1XvmO +FJCNvOP+dkwLQrfcbOfvyIXZpR8bbo+ZgMSQXMpsewmY66b/FzlmA90PbAMm +2qshPGjF475RJ7BmDnwYbW8GA5s13MRhH5htNz4/0t4LIKzeYdV/BJ5YFuQ1 +5Y7DkTU3yrWaT4NSd3n/Xp0/oGjrZfmtIhWkfV1vLrTkx7aBI1L5dy5CyjLr ++7YOgri577lgYE82vM0wqBoVF8F5J52s/l7LhTN5Ea/nKUig43GhjyKO+SCX +9ulU6hUp9B1v8am9XwBx22xWN0/JYHr8Ra+Yu4WgWNqgOO8fWXzDP/g3ubIQ +uFLbppcJy6KKkMHzjLpCaGt24Z1TlUULtyfDF9sLgWl3iLBbJ4tyloX7904X +QvWmbIHGi7JYFUfaCBvdhD/Wkw2vzORw5vD5mDLqJhw0uer6PFoe7/d7lFun +FcH6HNGJDWfl0SIk1SE/swiIhcfiG87Lo+mukvS5nCJobN1e3HJDHnf6vF9Q +wCkCvcDF/F0N8rjhaPfpx7VF8PX64etjigooEmPzkjlTBLukbX8sua2AGhlu +q6863gKr4Z/h/p8UcXqybp+LEAeOrEtb+vi7IprdS3wYL8oB7lXdd1JTirix +WOo1V4oD8tvcTMoFl6DvtyzmkDIHvt97Os2vtwSX7+tNMzHkQGp08qGLYUuQ +EL3vxe/MgV4Zdf8aESUsMdgysOc6B+QCKpXl5JTQdLVfEH8RBzY+2/HKR00J +g4sCeTkUB8rCz+iILVdC2ZfjDg33OHC6e2TAaYcSfrh9jT31ggOGhff3Decq +YfuSh2FhQxyIMrPbo/ivMvoJKF6yNuTCOpesMWMLZUyNDFpwz4gLopGDJxw2 +KmPtWIEn05QLl5/EXk92U8bpVjHBIUsu3FtfMShwShk/ld5st3LgwsgOMnT8 +rTL2Lop4yHeYCy4hk6frj6pgtsDO2pIyLrAuWCgNxKrgF6XG5ScquPT6kzgL +k1XQb9vNy7aPuBD+W6vRIk8FbRoy9rQ95cL5Ey4y5fUqOEiNVRa2cqH+XF12 +vrIq9hieF3Mb5cIq7sXS/ypV0TYd14poUGDV3vBn6Jkq5jcLmC9cSoEt3/y1 +rs2q+IZ8+vm3DgXu9v5v4bMqJl46tazTkALro4yIyAVq6K++4L37agoCVaeu +mWur4bofpxryt1FQsy/7x5NQNWRZSAwMHafA5reJ5LGjamhPWM+5RFLQkNxq +tCJSDVs2WtS/iKbgbblQZN4pNaw655N0Po6CIeFDkrGX1XADXqibTqZAnrfO +2LpaDdMqzx0YzqXAd2Y08pkIA0kJVSnqCQWrgrxk+yUZ+Hp+2MfKpxQIDrwr +4pdn4L7/zMtf1lGQ3/mkbTXBQCGGTHLrSwq6Hp3XuWPEQJ5pwpebLRRsjjXp +uOrKQO1x7a/7eylQ+cvxq/Rg4OflsnU6fRR8DyX4P/gwMOh7+cNvnymI9xbW +kz/EwNW/fSa3faOgasOHE4nxDNzouy1/ZJgCQ8ko/aPFDFwn6V/N/k0B35nJ +mowyBtopBkQW/6HXz7/fuew+A13f5bqrzVFwYNI+dvQpA31q0xqm+XiQ18Hs +3PeOgXHXm38W8vMg2O5iYGw3A8ueSR7dMp8H+EJE4FofA9tXRJ+boP3h/pRB +1xADpUprolcK8EA2+9nJbfwE+vo1nsgU5EGfHFspWJDAr/wR1bpCPChJLi5O +EqG9RO7SI9qbozPfv5AjMDt5cMnbRTyI9/Q1NNchMLMv02d0MQ9mtcW7dB0I +LFickEuJ82DqimLUcmcCHQc+VSlK8GBCjMU0cSVQK3Mm/QTtoXGT/VY+BF6d +tfG1leRB7333KefjBFY46j1/JsWDbl3/i27RBKb3SdxmSPPgfXaYmVccgVPs +KzvCaLedSIgOOkdgfUlhh4oMD15suCsan0/g6fjCii2yPKh7+Lg44SaBOYPt +SRdo1+jXb0ulCHSJuMt8T/uRVE9mVjmBjcoZSS5yPLgfO8jOe0Sgpe1Vr8u0 +701Pfix8QuCanwfm2mmXdC7SuPOKwLd2O8PWyfOA2iTzoqKZwKUTZ5yO075V +qepX1U7gj7/n/1K0r19bcftlD4GpAVvTRRV4cE0Gtjf1E1iUKnt6Fe2cOJvZ +tkEC+S83W3rQzjzgAr2TBP797SRcTPvCB+/eLz8JvNv0r2Ir7bTNB2N/zBFo +Gm08OkH73OPjmuPzSfxv8mOylCIPEpfHv5wRIrEkvmpWn/aZ/BT/v6Ikjoru +1VlPO17uisR8aRJnGu209tKOPVVQKqRAYvNZpdHDtKN/FTuKqZB4OmRzzBna +EX4PfkqTJH4xDPt0mfax7toripokSvQwxW7RPmLXhGq6JK4T71tYTjv0Secn +liGJF2qsGp7QPriy/6S2MYnxIW1762kHFoxoLTMjsUFEq7aZtr/Cr3ojcxJ/ +D9TPtNE+cGZBoJk1iUYf7H910Pb+IyZlsYHELvWNDf+3V4Bi2dotJNocWx/8 +//HuPUynTQ4k+vF//NJE222r/m97ZxIztmbrv6S9+6lJ9g5XEhVClqyvpu1s +bGXh4kHi1McvxndpOxbafnb3ocdHZswW0t62xCnex5/EKM7jpEzadgnu2gEH +SZw1mPkZT9t2zq/hUBiJFZZNpiG0NwSFBYUfJ/FWQq+9K+11n6KlI6Pp9bKq +cS3tNQ4Jd2PjSDyXLCCgS9ui7oLzmbMkmldbXxOnbVZ0Kyc9ncR8X3nvJno/ +O9WKstdcInFNx8pfPNrh6YVZE9kkJrHMeIm070Zdv2xfSOJi64koK9rbp/Mu +/cOl1789O1uJ9oTvtUxeCYke1ayeMfr8Ge7IyRB9QGJoQUXTRdpNr7IuPKwi +kf21Jmo/7UDLK+m+T+l6pXIdTWhz9TLTXjSQqK7fGNpEn3etBWnJJ3tIzFId +SB6k++VZeErSyn4SfzLDjnNoe40kJ/YNkOj2b3uqH+28zoSzFhMkLgkXwa90 +P6qVxMX/FWDiUvnEvDq6Xys1TsZxhJnYJd32I5y2y5WYk7vEmfh0gM9Th/al ++KiYCgUmeteIdJ+i+1/W9WhkqA4TD9sfFden8+FO65EI1jImTqltbm+h82Pb ++rD/Wlcy8Xjd0sZQ2ikrQ44ZAhOJMgnnu3T+iCwOCBuyY2KVguMHQowH88v3 +BnodputRCpfPE6b7UW9PgMwxJm48Yww6tC3yXP1rIpmYdeG/nBI63yKSdvkS +p5n4rLtFuoLOv5+e2727LjPxrXRLy+2FPBiVXO+2vZqJ5uufs7bS+dvhSzTu +r2PigIB2Vsk8HlTV/oSIeiYWB0cKi9NODi9SvdHGRM5gd10Nnd8GvYu7ZweY +eOvIaJk2nf/+xa93X5Fi4dC3MRXuCAXbhW+8KpZnoRKvwFmHvi9We0aya5VZ +aLzd/cL1HxSIKCxTHtZgYUrOa4WkAQpuRaa8RzMW3v1Uc8CAvo8GNjvs7PNg +IcP1cvKdNgqaC3VfzviwcHtMQOJEKwUV/AKmIgEsnKuRz9en77dTd8sUjY6w +UMhphsh8TYGmqvy7uAQWBpc6n8FnFOwberdDu4yFLfcMPVrvUdB31m178EJ1 +XJQRMI+8QNc/oEMYLFZHNXt9U9HzFEyvnf3xQ1wdo2yi/p1KoWARf0qsj6I6 +bg3iP/kgkQKDI09K3XTV8WPIrWTiJAXHPdWlNm9Vx6u1a+McDlEgu/r7a+1s +dez/asB0s6Ug59K9S9+uqaPcl+mQ/g0UaM3G7Cu4oY4TKzeX+dhQYFaqPEeU +qGPQ44WC+6zo98jSzXqKT9XRUZeUYa+igCdbclZwUB3Hplfx72DR743hwzaf +jTRw7NKym/azXFBapnJS0EwDcyq/OppNcWEouKZa21wDuw7GZxHjXEibEjcL +3qCB0Uoxf/q+c6HrT6HenKsGKmSnLTf/yIXgxe+lFE5p4KKw3EVOtVzI1MKu +jZ0aGNynXi+ZTL/H3AUPlkZo4qHKyHFJRXr+LKuHlTGaqNLf8o+lLBeG30Yu +fHlKEwuGCONASS6MbZ691JOqiZZVV5WrF3Fh2nSgRvSGJpZg4SKrXxyYJ10v +69OoiZOBZd8ed3JAoSapQpmhhU4HbgwWZ3Lo/xW5eXHVWgiy4lM14hyQfKWe +yBteilJ7Qr6bTxWBUjy1xchIB7X/bhpOyrsJGdom4lL7dHFgeGjTpF0hvFA0 +Xzl+Tg8//E4YqpwsgFVK1cn6bfqYmegUVBlwHUT5cw/tiTZAUy5fYOyfPFCJ +UjVzUl+GF2MG8PX+ayDE2lVmX7cMZxIjxLt7r4IeW4E6vNsQ+w1Ly1Ycy4Hg +Lskn6/mWo6nQdu2a+VkwPH7WwSZjOT7C3ozO3ZdgrX5tpo3uCrTUqfzm1pMB +j8ZNf003rMDPlWvfTNung7+O4bsmz5XocO3o7hHpNGAPebQ6CRmh8NWpPM/G +c7CGKb9JJNcIZR7sLOksTQLNyNNh1cbG6LpIxYeteRaWeppUst4ZY5k0+oXm +xoPnI++Y0qB/Ebzi1ArzY6Eyp9VjVMYE9Rbv+HG+PBombsxN6981QYfhnMQp +zUhwZxUJZW5ahZHDtyz+CB+D0aWpRiUjq1At6+8e7+HDcC/vV89kvCm2Pahy +Fkg4BM5WJJqqmGG9zyvV8ewgWOIXV65XZYYPDevFom/7gcwi3+JNjmw83TIn +n7DCB/Isj4ePOLFRrJ8j0sXwAcPjiZapu9jIDLzybJWYD9iO8N507GHjTomG +cLkBbzjZNjnr7stGK07K8t053jCTG2ERHsXGoER/KRkxb3hnmtpyvYiNZU8f +FotNeoF3SN5lGy4bJ24czG/45AVT3Due33lsDPRW4WY0e4Ek0TG9rIyNlbbH +vm7iecEGQWWlh1VsbGqt9Tbz9YIHrdc9Wt6w0eKddTuz3xPWi97TDe1gowe3 +NyHljSd0rH0+Jd9J16dRMk/4qSdMVAzGu3xkY4TifgmlPE/QvWrA+TbARmHx +3zqP9nrCg3fmoWd/sPFg2bfVUfb0fNJbQX+EjSr2S/tsLTzpbQlpOjTJxl/D +m1qECHq+qpOZcjNs9GKekpyW8ITonxfcK36y0aC07vXQP54gvqJQZ/cfNi7Q +Ll8wOuoBWX4Vk3NzbFx4WJT60+MB/wN/sVln "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}}, + "PlotRange" -> {{0, 30}, {0., 0.0629096616347525}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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|>, @@ -7810,6 +7574,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}}, @@ -7837,7 +7602,8 @@ HbLGog== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.12263499218727081`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.0629096616347525}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -7845,24 +7611,859 @@ 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.9939597704669743`*^9}, + CellLabel-> + "Out[207]=",ExpressionUUID->"37f72b49-d2e6-48ae-9ae2-24e54431e2a3"] }, 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.005381"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.015959"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.025999"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.035173"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.043213"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.049902"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.055111"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.058771"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.060904"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.061577"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.060934"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.059136"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.056395"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.052912"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.048907"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.044569"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.040087"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.035606"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.031259"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.027134"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.023309"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.019818"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.016691"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.013926"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.01152"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.009447"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.007687"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.006205"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.004972"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.003954"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.003124"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, { + 3.9939585059199047`*^9, 3.993958507072918*^9}, 3.993958600544734*^9}, + CellLabel-> + "In[208]:=",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:eJxTTMoPSmViYGCQB2IQDQNLGAINkrnK7CG8D/YFW/1i+sInQPkMDkmGr6Kq +58+C8jkczrencxoxLYLyBRw0tNtWMyssg/JFHAL6mFwO9qyE8iUc3u708W0y +XwPlyzi85X7Rai2+DspXcJimnKJwXm89lK/koKgQ78TaDuOrOFidyz201wjG +V3PYGsTxRMgdpl/D4cmtAMNz92HmazmUHVGU9hBfDeXrOAA5s8O4YO7RcyjZ +dKVq/0WYew0clAL+Nnu0LYHyDR1s9EWlP1vB/GfkcNon868u4wIo39jhkHfB +K+aTs6F8E4edQeebAu5Nh/JNHeT5a8u1vadA+WYOttd6eIrEJ0L55g6HXZpF +bFp7oHwLB/5r/y3PTG+H8i0dus7EPPgU0QzlWzkw5q6OTK+ph/KtHd7OVGXM +yqqE8m0cpK+FiLXGlkD5tg4f5zGfFjQqgPLtHO40Ld3VMD3THgDPenlb + "]]}, + 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:eJxTTMoPSmViYGCQB2IQDQNLGAINkrnK7CG8D/YFW/1i+sInQPkMDkmGr6Kq +58+C8jkczrencxoxLYLyBRw0tNtWMyssg/JFHAL6mFwO9qyE8iUc3u708W0y +XwPlyzi85X7Rai2+DspXcJimnKJwXm89lK/koKgQ78TaDuOrOFidyz201wjG +V3PYGsTxRMgdpl/D4cmtAMNz92HmazmUHVGU9hBfDeXrOAA5s8O4YO7RcyjZ +dKVq/0WYew0clAL+Nnu0LYHyDR1s9EWlP1vB/GfkcNon868u4wIo39jhkHfB +K+aTs6F8E4edQeebAu5Nh/JNHeT5a8u1vadA+WYOttd6eIrEJ0L55g6HXZpF +bFp7oHwLB/5r/y3PTG+H8i0dus7EPPgU0QzlWzkw5q6OTK+ph/KtHd7OVGXM +yqqE8m0cpK+FiLXGlkD5tg4f5zGfFjQqgPLtHO40Ld3VMD3THgDPenlb + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.061577}}, + "Frame" -> {{False, 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.061577}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGCQB2IQDQNLGAINkrnK7CG8D/YFW/1i+sInQPkMDkmGr6Kq +58+C8jkczrencxoxLYLyBRw0tNtWMyssg/JFHAL6mFwO9qyE8iUc3u708W0y +XwPlyzi85X7Rai2+DspXcJimnKJwXm89lK/koKgQ78TaDuOrOFidyz201wjG +V3PYGsTxRMgdpl/D4cmtAMNz92HmazmUHVGU9hBfDeXrOAA5s8O4YO7RcyjZ +dKVq/0WYew0clAL+Nnu0LYHyDR1s9EWlP1vB/GfkcNon868u4wIo39jhkHfB +K+aTs6F8E4edQeebAu5Nh/JNHeT5a8u1vadA+WYOttd6eIrEJ0L55g6HXZpF +bFp7oHwLB/5r/y3PTG+H8i0dus7EPPgU0QzlWzkw5q6OTK+ph/KtHd7OVGXM +yqqE8m0cpK+FiLXGlkD5tg4f5zGfFjQqgPLtHO40Ld3VMD3THgDPenlb + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.061577}}, + "Frame" -> {{False, 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.061577}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9939597706337023`*^9}, + CellLabel-> + "Out[208]=",ExpressionUUID->"5ee811a4-492d-4370-adae-0a8d1e1b789b"] +}, 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[209]:=",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:eJwV13k0Vd0bB3BvSiTzLNM9515DxlS84vY8hpQGRUlUKEOUuUiq1xDRYAhJ +KiSSdO+5JEUDSTRIplCKSCrKPDb5nd9fZ33W2muvZ6+9n+/eh7E3wN5zHh8f +H/8/fHz//051Pa9hnslbvX+hh8aQjdnq1iz5I+Yd0aBpYLdeelwBUOb1XvmO +FJCNvOP+dkwLQrfcbOfvyIXZpR8bbo+ZgMSQXMpsewmY66b/FzlmA90PbAMm +2qshPGjF475RJ7BmDnwYbW8GA5s13MRhH5htNz4/0t4LIKzeYdV/BJ5YFuQ1 +5Y7DkTU3yrWaT4NSd3n/Xp0/oGjrZfmtIhWkfV1vLrTkx7aBI1L5dy5CyjLr ++7YOgri577lgYE82vM0wqBoVF8F5J52s/l7LhTN5Ea/nKUig43GhjyKO+SCX +9ulU6hUp9B1v8am9XwBx22xWN0/JYHr8Ra+Yu4WgWNqgOO8fWXzDP/g3ubIQ +uFLbppcJy6KKkMHzjLpCaGt24Z1TlUULtyfDF9sLgWl3iLBbJ4tyloX7904X +QvWmbIHGi7JYFUfaCBvdhD/Wkw2vzORw5vD5mDLqJhw0uer6PFoe7/d7lFun +FcH6HNGJDWfl0SIk1SE/swiIhcfiG87Lo+mukvS5nCJobN1e3HJDHnf6vF9Q +wCkCvcDF/F0N8rjhaPfpx7VF8PX64etjigooEmPzkjlTBLukbX8sua2AGhlu +q6863gKr4Z/h/p8UcXqybp+LEAeOrEtb+vi7IprdS3wYL8oB7lXdd1JTirix +WOo1V4oD8tvcTMoFl6DvtyzmkDIHvt97Os2vtwSX7+tNMzHkQGp08qGLYUuQ +EL3vxe/MgV4Zdf8aESUsMdgysOc6B+QCKpXl5JTQdLVfEH8RBzY+2/HKR00J +g4sCeTkUB8rCz+iILVdC2ZfjDg33OHC6e2TAaYcSfrh9jT31ggOGhff3Decq +YfuSh2FhQxyIMrPbo/ivMvoJKF6yNuTCOpesMWMLZUyNDFpwz4gLopGDJxw2 +KmPtWIEn05QLl5/EXk92U8bpVjHBIUsu3FtfMShwShk/ld5st3LgwsgOMnT8 +rTL2Lop4yHeYCy4hk6frj6pgtsDO2pIyLrAuWCgNxKrgF6XG5ScquPT6kzgL +k1XQb9vNy7aPuBD+W6vRIk8FbRoy9rQ95cL5Ey4y5fUqOEiNVRa2cqH+XF12 +vrIq9hieF3Mb5cIq7sXS/ypV0TYd14poUGDV3vBn6Jkq5jcLmC9cSoEt3/y1 +rs2q+IZ8+vm3DgXu9v5v4bMqJl46tazTkALro4yIyAVq6K++4L37agoCVaeu +mWur4bofpxryt1FQsy/7x5NQNWRZSAwMHafA5reJ5LGjamhPWM+5RFLQkNxq +tCJSDVs2WtS/iKbgbblQZN4pNaw655N0Po6CIeFDkrGX1XADXqibTqZAnrfO +2LpaDdMqzx0YzqXAd2Y08pkIA0kJVSnqCQWrgrxk+yUZ+Hp+2MfKpxQIDrwr +4pdn4L7/zMtf1lGQ3/mkbTXBQCGGTHLrSwq6Hp3XuWPEQJ5pwpebLRRsjjXp +uOrKQO1x7a/7eylQ+cvxq/Rg4OflsnU6fRR8DyX4P/gwMOh7+cNvnymI9xbW +kz/EwNW/fSa3faOgasOHE4nxDNzouy1/ZJgCQ8ko/aPFDFwn6V/N/k0B35nJ +mowyBtopBkQW/6HXz7/fuew+A13f5bqrzVFwYNI+dvQpA31q0xqm+XiQ18Hs +3PeOgXHXm38W8vMg2O5iYGw3A8ueSR7dMp8H+EJE4FofA9tXRJ+boP3h/pRB +1xADpUprolcK8EA2+9nJbfwE+vo1nsgU5EGfHFspWJDAr/wR1bpCPChJLi5O +EqG9RO7SI9qbozPfv5AjMDt5cMnbRTyI9/Q1NNchMLMv02d0MQ9mtcW7dB0I +LFickEuJ82DqimLUcmcCHQc+VSlK8GBCjMU0cSVQK3Mm/QTtoXGT/VY+BF6d +tfG1leRB7333KefjBFY46j1/JsWDbl3/i27RBKb3SdxmSPPgfXaYmVccgVPs +KzvCaLedSIgOOkdgfUlhh4oMD15suCsan0/g6fjCii2yPKh7+Lg44SaBOYPt +SRdo1+jXb0ulCHSJuMt8T/uRVE9mVjmBjcoZSS5yPLgfO8jOe0Sgpe1Vr8u0 +701Pfix8QuCanwfm2mmXdC7SuPOKwLd2O8PWyfOA2iTzoqKZwKUTZ5yO075V +qepX1U7gj7/n/1K0r19bcftlD4GpAVvTRRV4cE0Gtjf1E1iUKnt6Fe2cOJvZ +tkEC+S83W3rQzjzgAr2TBP797SRcTPvCB+/eLz8JvNv0r2Ir7bTNB2N/zBFo +Gm08OkH73OPjmuPzSfxv8mOylCIPEpfHv5wRIrEkvmpWn/aZ/BT/v6Ikjoru +1VlPO17uisR8aRJnGu209tKOPVVQKqRAYvNZpdHDtKN/FTuKqZB4OmRzzBna +EX4PfkqTJH4xDPt0mfax7toripokSvQwxW7RPmLXhGq6JK4T71tYTjv0Secn +liGJF2qsGp7QPriy/6S2MYnxIW1762kHFoxoLTMjsUFEq7aZtr/Cr3ojcxJ/ +D9TPtNE+cGZBoJk1iUYf7H910Pb+IyZlsYHELvWNDf+3V4Bi2dotJNocWx/8 +//HuPUynTQ4k+vF//NJE222r/m97ZxIztmbrv6S9+6lJ9g5XEhVClqyvpu1s +bGXh4kHi1McvxndpOxbafnb3ocdHZswW0t62xCnex5/EKM7jpEzadgnu2gEH +SZw1mPkZT9t2zq/hUBiJFZZNpiG0NwSFBYUfJ/FWQq+9K+11n6KlI6Pp9bKq +cS3tNQ4Jd2PjSDyXLCCgS9ui7oLzmbMkmldbXxOnbVZ0Kyc9ncR8X3nvJno/ +O9WKstdcInFNx8pfPNrh6YVZE9kkJrHMeIm070Zdv2xfSOJi64koK9rbp/Mu +/cOl1789O1uJ9oTvtUxeCYke1ayeMfr8Ge7IyRB9QGJoQUXTRdpNr7IuPKwi +kf21Jmo/7UDLK+m+T+l6pXIdTWhz9TLTXjSQqK7fGNpEn3etBWnJJ3tIzFId +SB6k++VZeErSyn4SfzLDjnNoe40kJ/YNkOj2b3uqH+28zoSzFhMkLgkXwa90 +P6qVxMX/FWDiUvnEvDq6Xys1TsZxhJnYJd32I5y2y5WYk7vEmfh0gM9Th/al ++KiYCgUmeteIdJ+i+1/W9WhkqA4TD9sfFden8+FO65EI1jImTqltbm+h82Pb ++rD/Wlcy8Xjd0sZQ2ikrQ44ZAhOJMgnnu3T+iCwOCBuyY2KVguMHQowH88v3 +BnodputRCpfPE6b7UW9PgMwxJm48Yww6tC3yXP1rIpmYdeG/nBI63yKSdvkS +p5n4rLtFuoLOv5+e2727LjPxrXRLy+2FPBiVXO+2vZqJ5uufs7bS+dvhSzTu +r2PigIB2Vsk8HlTV/oSIeiYWB0cKi9NODi9SvdHGRM5gd10Nnd8GvYu7ZweY +eOvIaJk2nf/+xa93X5Fi4dC3MRXuCAXbhW+8KpZnoRKvwFmHvi9We0aya5VZ +aLzd/cL1HxSIKCxTHtZgYUrOa4WkAQpuRaa8RzMW3v1Uc8CAvo8GNjvs7PNg +IcP1cvKdNgqaC3VfzviwcHtMQOJEKwUV/AKmIgEsnKuRz9en77dTd8sUjY6w +UMhphsh8TYGmqvy7uAQWBpc6n8FnFOwberdDu4yFLfcMPVrvUdB31m178EJ1 +XJQRMI+8QNc/oEMYLFZHNXt9U9HzFEyvnf3xQ1wdo2yi/p1KoWARf0qsj6I6 +bg3iP/kgkQKDI09K3XTV8WPIrWTiJAXHPdWlNm9Vx6u1a+McDlEgu/r7a+1s +dez/asB0s6Ug59K9S9+uqaPcl+mQ/g0UaM3G7Cu4oY4TKzeX+dhQYFaqPEeU +qGPQ44WC+6zo98jSzXqKT9XRUZeUYa+igCdbclZwUB3Hplfx72DR743hwzaf +jTRw7NKym/azXFBapnJS0EwDcyq/OppNcWEouKZa21wDuw7GZxHjXEibEjcL +3qCB0Uoxf/q+c6HrT6HenKsGKmSnLTf/yIXgxe+lFE5p4KKw3EVOtVzI1MKu +jZ0aGNynXi+ZTL/H3AUPlkZo4qHKyHFJRXr+LKuHlTGaqNLf8o+lLBeG30Yu +fHlKEwuGCONASS6MbZ691JOqiZZVV5WrF3Fh2nSgRvSGJpZg4SKrXxyYJ10v +69OoiZOBZd8ed3JAoSapQpmhhU4HbgwWZ3Lo/xW5eXHVWgiy4lM14hyQfKWe +yBteilJ7Qr6bTxWBUjy1xchIB7X/bhpOyrsJGdom4lL7dHFgeGjTpF0hvFA0 +Xzl+Tg8//E4YqpwsgFVK1cn6bfqYmegUVBlwHUT5cw/tiTZAUy5fYOyfPFCJ +UjVzUl+GF2MG8PX+ayDE2lVmX7cMZxIjxLt7r4IeW4E6vNsQ+w1Ly1Ycy4Hg +Lskn6/mWo6nQdu2a+VkwPH7WwSZjOT7C3ozO3ZdgrX5tpo3uCrTUqfzm1pMB +j8ZNf003rMDPlWvfTNung7+O4bsmz5XocO3o7hHpNGAPebQ6CRmh8NWpPM/G +c7CGKb9JJNcIZR7sLOksTQLNyNNh1cbG6LpIxYeteRaWeppUst4ZY5k0+oXm +xoPnI++Y0qB/Ebzi1ArzY6Eyp9VjVMYE9Rbv+HG+PBombsxN6981QYfhnMQp +zUhwZxUJZW5ahZHDtyz+CB+D0aWpRiUjq1At6+8e7+HDcC/vV89kvCm2Pahy +Fkg4BM5WJJqqmGG9zyvV8ewgWOIXV65XZYYPDevFom/7gcwi3+JNjmw83TIn +n7DCB/Isj4ePOLFRrJ8j0sXwAcPjiZapu9jIDLzybJWYD9iO8N507GHjTomG +cLkBbzjZNjnr7stGK07K8t053jCTG2ERHsXGoER/KRkxb3hnmtpyvYiNZU8f +FotNeoF3SN5lGy4bJ24czG/45AVT3Due33lsDPRW4WY0e4Ek0TG9rIyNlbbH +vm7iecEGQWWlh1VsbGqt9Tbz9YIHrdc9Wt6w0eKddTuz3xPWi97TDe1gowe3 +NyHljSd0rH0+Jd9J16dRMk/4qSdMVAzGu3xkY4TifgmlPE/QvWrA+TbARmHx +3zqP9nrCg3fmoWd/sPFg2bfVUfb0fNJbQX+EjSr2S/tsLTzpbQlpOjTJxl/D +m1qECHq+qpOZcjNs9GKekpyW8ITonxfcK36y0aC07vXQP54gvqJQZ/cfNi7Q +Ll8wOuoBWX4Vk3NzbFx4WJT60+MB/wN/sVln + "]]}, + 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:eJwV13k0Vd0bB3BvSiTzLNM9515DxlS84vY8hpQGRUlUKEOUuUiq1xDRYAhJ +KiSSdO+5JEUDSTRIplCKSCrKPDb5nd9fZ33W2muvZ6+9n+/eh7E3wN5zHh8f +H/8/fHz//051Pa9hnslbvX+hh8aQjdnq1iz5I+Yd0aBpYLdeelwBUOb1XvmO +FJCNvOP+dkwLQrfcbOfvyIXZpR8bbo+ZgMSQXMpsewmY66b/FzlmA90PbAMm +2qshPGjF475RJ7BmDnwYbW8GA5s13MRhH5htNz4/0t4LIKzeYdV/BJ5YFuQ1 +5Y7DkTU3yrWaT4NSd3n/Xp0/oGjrZfmtIhWkfV1vLrTkx7aBI1L5dy5CyjLr ++7YOgri577lgYE82vM0wqBoVF8F5J52s/l7LhTN5Ea/nKUig43GhjyKO+SCX +9ulU6hUp9B1v8am9XwBx22xWN0/JYHr8Ra+Yu4WgWNqgOO8fWXzDP/g3ubIQ +uFLbppcJy6KKkMHzjLpCaGt24Z1TlUULtyfDF9sLgWl3iLBbJ4tyloX7904X +QvWmbIHGi7JYFUfaCBvdhD/Wkw2vzORw5vD5mDLqJhw0uer6PFoe7/d7lFun +FcH6HNGJDWfl0SIk1SE/swiIhcfiG87Lo+mukvS5nCJobN1e3HJDHnf6vF9Q +wCkCvcDF/F0N8rjhaPfpx7VF8PX64etjigooEmPzkjlTBLukbX8sua2AGhlu +q6863gKr4Z/h/p8UcXqybp+LEAeOrEtb+vi7IprdS3wYL8oB7lXdd1JTirix +WOo1V4oD8tvcTMoFl6DvtyzmkDIHvt97Os2vtwSX7+tNMzHkQGp08qGLYUuQ +EL3vxe/MgV4Zdf8aESUsMdgysOc6B+QCKpXl5JTQdLVfEH8RBzY+2/HKR00J +g4sCeTkUB8rCz+iILVdC2ZfjDg33OHC6e2TAaYcSfrh9jT31ggOGhff3Decq +YfuSh2FhQxyIMrPbo/ivMvoJKF6yNuTCOpesMWMLZUyNDFpwz4gLopGDJxw2 +KmPtWIEn05QLl5/EXk92U8bpVjHBIUsu3FtfMShwShk/ld5st3LgwsgOMnT8 +rTL2Lop4yHeYCy4hk6frj6pgtsDO2pIyLrAuWCgNxKrgF6XG5ScquPT6kzgL +k1XQb9vNy7aPuBD+W6vRIk8FbRoy9rQ95cL5Ey4y5fUqOEiNVRa2cqH+XF12 +vrIq9hieF3Mb5cIq7sXS/ypV0TYd14poUGDV3vBn6Jkq5jcLmC9cSoEt3/y1 +rs2q+IZ8+vm3DgXu9v5v4bMqJl46tazTkALro4yIyAVq6K++4L37agoCVaeu +mWur4bofpxryt1FQsy/7x5NQNWRZSAwMHafA5reJ5LGjamhPWM+5RFLQkNxq +tCJSDVs2WtS/iKbgbblQZN4pNaw655N0Po6CIeFDkrGX1XADXqibTqZAnrfO +2LpaDdMqzx0YzqXAd2Y08pkIA0kJVSnqCQWrgrxk+yUZ+Hp+2MfKpxQIDrwr +4pdn4L7/zMtf1lGQ3/mkbTXBQCGGTHLrSwq6Hp3XuWPEQJ5pwpebLRRsjjXp +uOrKQO1x7a/7eylQ+cvxq/Rg4OflsnU6fRR8DyX4P/gwMOh7+cNvnymI9xbW +kz/EwNW/fSa3faOgasOHE4nxDNzouy1/ZJgCQ8ko/aPFDFwn6V/N/k0B35nJ +mowyBtopBkQW/6HXz7/fuew+A13f5bqrzVFwYNI+dvQpA31q0xqm+XiQ18Hs +3PeOgXHXm38W8vMg2O5iYGw3A8ueSR7dMp8H+EJE4FofA9tXRJ+boP3h/pRB +1xADpUprolcK8EA2+9nJbfwE+vo1nsgU5EGfHFspWJDAr/wR1bpCPChJLi5O +EqG9RO7SI9qbozPfv5AjMDt5cMnbRTyI9/Q1NNchMLMv02d0MQ9mtcW7dB0I +LFickEuJ82DqimLUcmcCHQc+VSlK8GBCjMU0cSVQK3Mm/QTtoXGT/VY+BF6d +tfG1leRB7333KefjBFY46j1/JsWDbl3/i27RBKb3SdxmSPPgfXaYmVccgVPs +KzvCaLedSIgOOkdgfUlhh4oMD15suCsan0/g6fjCii2yPKh7+Lg44SaBOYPt +SRdo1+jXb0ulCHSJuMt8T/uRVE9mVjmBjcoZSS5yPLgfO8jOe0Sgpe1Vr8u0 +701Pfix8QuCanwfm2mmXdC7SuPOKwLd2O8PWyfOA2iTzoqKZwKUTZ5yO075V +qepX1U7gj7/n/1K0r19bcftlD4GpAVvTRRV4cE0Gtjf1E1iUKnt6Fe2cOJvZ +tkEC+S83W3rQzjzgAr2TBP797SRcTPvCB+/eLz8JvNv0r2Ir7bTNB2N/zBFo +Gm08OkH73OPjmuPzSfxv8mOylCIPEpfHv5wRIrEkvmpWn/aZ/BT/v6Ikjoru +1VlPO17uisR8aRJnGu209tKOPVVQKqRAYvNZpdHDtKN/FTuKqZB4OmRzzBna +EX4PfkqTJH4xDPt0mfax7toripokSvQwxW7RPmLXhGq6JK4T71tYTjv0Secn +liGJF2qsGp7QPriy/6S2MYnxIW1762kHFoxoLTMjsUFEq7aZtr/Cr3ojcxJ/ +D9TPtNE+cGZBoJk1iUYf7H910Pb+IyZlsYHELvWNDf+3V4Bi2dotJNocWx/8 +//HuPUynTQ4k+vF//NJE222r/m97ZxIztmbrv6S9+6lJ9g5XEhVClqyvpu1s +bGXh4kHi1McvxndpOxbafnb3ocdHZswW0t62xCnex5/EKM7jpEzadgnu2gEH +SZw1mPkZT9t2zq/hUBiJFZZNpiG0NwSFBYUfJ/FWQq+9K+11n6KlI6Pp9bKq +cS3tNQ4Jd2PjSDyXLCCgS9ui7oLzmbMkmldbXxOnbVZ0Kyc9ncR8X3nvJno/ +O9WKstdcInFNx8pfPNrh6YVZE9kkJrHMeIm070Zdv2xfSOJi64koK9rbp/Mu +/cOl1789O1uJ9oTvtUxeCYke1ayeMfr8Ge7IyRB9QGJoQUXTRdpNr7IuPKwi +kf21Jmo/7UDLK+m+T+l6pXIdTWhz9TLTXjSQqK7fGNpEn3etBWnJJ3tIzFId +SB6k++VZeErSyn4SfzLDjnNoe40kJ/YNkOj2b3uqH+28zoSzFhMkLgkXwa90 +P6qVxMX/FWDiUvnEvDq6Xys1TsZxhJnYJd32I5y2y5WYk7vEmfh0gM9Th/al ++KiYCgUmeteIdJ+i+1/W9WhkqA4TD9sfFden8+FO65EI1jImTqltbm+h82Pb ++rD/Wlcy8Xjd0sZQ2ikrQ44ZAhOJMgnnu3T+iCwOCBuyY2KVguMHQowH88v3 +BnodputRCpfPE6b7UW9PgMwxJm48Yww6tC3yXP1rIpmYdeG/nBI63yKSdvkS +p5n4rLtFuoLOv5+e2727LjPxrXRLy+2FPBiVXO+2vZqJ5uufs7bS+dvhSzTu +r2PigIB2Vsk8HlTV/oSIeiYWB0cKi9NODi9SvdHGRM5gd10Nnd8GvYu7ZweY +eOvIaJk2nf/+xa93X5Fi4dC3MRXuCAXbhW+8KpZnoRKvwFmHvi9We0aya5VZ +aLzd/cL1HxSIKCxTHtZgYUrOa4WkAQpuRaa8RzMW3v1Uc8CAvo8GNjvs7PNg +IcP1cvKdNgqaC3VfzviwcHtMQOJEKwUV/AKmIgEsnKuRz9en77dTd8sUjY6w +UMhphsh8TYGmqvy7uAQWBpc6n8FnFOwberdDu4yFLfcMPVrvUdB31m178EJ1 +XJQRMI+8QNc/oEMYLFZHNXt9U9HzFEyvnf3xQ1wdo2yi/p1KoWARf0qsj6I6 +bg3iP/kgkQKDI09K3XTV8WPIrWTiJAXHPdWlNm9Vx6u1a+McDlEgu/r7a+1s +dez/asB0s6Ug59K9S9+uqaPcl+mQ/g0UaM3G7Cu4oY4TKzeX+dhQYFaqPEeU +qGPQ44WC+6zo98jSzXqKT9XRUZeUYa+igCdbclZwUB3Hplfx72DR743hwzaf +jTRw7NKym/azXFBapnJS0EwDcyq/OppNcWEouKZa21wDuw7GZxHjXEibEjcL +3qCB0Uoxf/q+c6HrT6HenKsGKmSnLTf/yIXgxe+lFE5p4KKw3EVOtVzI1MKu +jZ0aGNynXi+ZTL/H3AUPlkZo4qHKyHFJRXr+LKuHlTGaqNLf8o+lLBeG30Yu +fHlKEwuGCONASS6MbZ691JOqiZZVV5WrF3Fh2nSgRvSGJpZg4SKrXxyYJ10v +69OoiZOBZd8ed3JAoSapQpmhhU4HbgwWZ3Lo/xW5eXHVWgiy4lM14hyQfKWe +yBteilJ7Qr6bTxWBUjy1xchIB7X/bhpOyrsJGdom4lL7dHFgeGjTpF0hvFA0 +Xzl+Tg8//E4YqpwsgFVK1cn6bfqYmegUVBlwHUT5cw/tiTZAUy5fYOyfPFCJ +UjVzUl+GF2MG8PX+ayDE2lVmX7cMZxIjxLt7r4IeW4E6vNsQ+w1Ly1Ycy4Hg +Lskn6/mWo6nQdu2a+VkwPH7WwSZjOT7C3ozO3ZdgrX5tpo3uCrTUqfzm1pMB +j8ZNf003rMDPlWvfTNung7+O4bsmz5XocO3o7hHpNGAPebQ6CRmh8NWpPM/G +c7CGKb9JJNcIZR7sLOksTQLNyNNh1cbG6LpIxYeteRaWeppUst4ZY5k0+oXm +xoPnI++Y0qB/Ebzi1ArzY6Eyp9VjVMYE9Rbv+HG+PBombsxN6981QYfhnMQp +zUhwZxUJZW5ahZHDtyz+CB+D0aWpRiUjq1At6+8e7+HDcC/vV89kvCm2Pahy +Fkg4BM5WJJqqmGG9zyvV8ewgWOIXV65XZYYPDevFom/7gcwi3+JNjmw83TIn +n7DCB/Isj4ePOLFRrJ8j0sXwAcPjiZapu9jIDLzybJWYD9iO8N507GHjTomG +cLkBbzjZNjnr7stGK07K8t053jCTG2ERHsXGoER/KRkxb3hnmtpyvYiNZU8f +FotNeoF3SN5lGy4bJ24czG/45AVT3Due33lsDPRW4WY0e4Ek0TG9rIyNlbbH +vm7iecEGQWWlh1VsbGqt9Tbz9YIHrdc9Wt6w0eKddTuz3xPWi97TDe1gowe3 +NyHljSd0rH0+Jd9J16dRMk/4qSdMVAzGu3xkY4TifgmlPE/QvWrA+TbARmHx +3zqP9nrCg3fmoWd/sPFg2bfVUfb0fNJbQX+EjSr2S/tsLTzpbQlpOjTJxl/D +m1qECHq+qpOZcjNs9GKekpyW8ITonxfcK36y0aC07vXQP54gvqJQZ/cfNi7Q +Ll8wOuoBWX4Vk3NzbFx4WJT60+MB/wN/sVln + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.0629096616347525}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.0629096616347525}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJwV13k0Vd0bB3BvSiTzLNM9515DxlS84vY8hpQGRUlUKEOUuUiq1xDRYAhJ +KiSSdO+5JEUDSTRIplCKSCrKPDb5nd9fZ33W2muvZ6+9n+/eh7E3wN5zHh8f +H/8/fHz//051Pa9hnslbvX+hh8aQjdnq1iz5I+Yd0aBpYLdeelwBUOb1XvmO +FJCNvOP+dkwLQrfcbOfvyIXZpR8bbo+ZgMSQXMpsewmY66b/FzlmA90PbAMm +2qshPGjF475RJ7BmDnwYbW8GA5s13MRhH5htNz4/0t4LIKzeYdV/BJ5YFuQ1 +5Y7DkTU3yrWaT4NSd3n/Xp0/oGjrZfmtIhWkfV1vLrTkx7aBI1L5dy5CyjLr ++7YOgri577lgYE82vM0wqBoVF8F5J52s/l7LhTN5Ea/nKUig43GhjyKO+SCX +9ulU6hUp9B1v8am9XwBx22xWN0/JYHr8Ra+Yu4WgWNqgOO8fWXzDP/g3ubIQ +uFLbppcJy6KKkMHzjLpCaGt24Z1TlUULtyfDF9sLgWl3iLBbJ4tyloX7904X +QvWmbIHGi7JYFUfaCBvdhD/Wkw2vzORw5vD5mDLqJhw0uer6PFoe7/d7lFun +FcH6HNGJDWfl0SIk1SE/swiIhcfiG87Lo+mukvS5nCJobN1e3HJDHnf6vF9Q +wCkCvcDF/F0N8rjhaPfpx7VF8PX64etjigooEmPzkjlTBLukbX8sua2AGhlu +q6863gKr4Z/h/p8UcXqybp+LEAeOrEtb+vi7IprdS3wYL8oB7lXdd1JTirix +WOo1V4oD8tvcTMoFl6DvtyzmkDIHvt97Os2vtwSX7+tNMzHkQGp08qGLYUuQ +EL3vxe/MgV4Zdf8aESUsMdgysOc6B+QCKpXl5JTQdLVfEH8RBzY+2/HKR00J +g4sCeTkUB8rCz+iILVdC2ZfjDg33OHC6e2TAaYcSfrh9jT31ggOGhff3Decq +YfuSh2FhQxyIMrPbo/ivMvoJKF6yNuTCOpesMWMLZUyNDFpwz4gLopGDJxw2 +KmPtWIEn05QLl5/EXk92U8bpVjHBIUsu3FtfMShwShk/ld5st3LgwsgOMnT8 +rTL2Lop4yHeYCy4hk6frj6pgtsDO2pIyLrAuWCgNxKrgF6XG5ScquPT6kzgL +k1XQb9vNy7aPuBD+W6vRIk8FbRoy9rQ95cL5Ey4y5fUqOEiNVRa2cqH+XF12 +vrIq9hieF3Mb5cIq7sXS/ypV0TYd14poUGDV3vBn6Jkq5jcLmC9cSoEt3/y1 +rs2q+IZ8+vm3DgXu9v5v4bMqJl46tazTkALro4yIyAVq6K++4L37agoCVaeu +mWur4bofpxryt1FQsy/7x5NQNWRZSAwMHafA5reJ5LGjamhPWM+5RFLQkNxq +tCJSDVs2WtS/iKbgbblQZN4pNaw655N0Po6CIeFDkrGX1XADXqibTqZAnrfO +2LpaDdMqzx0YzqXAd2Y08pkIA0kJVSnqCQWrgrxk+yUZ+Hp+2MfKpxQIDrwr +4pdn4L7/zMtf1lGQ3/mkbTXBQCGGTHLrSwq6Hp3XuWPEQJ5pwpebLRRsjjXp +uOrKQO1x7a/7eylQ+cvxq/Rg4OflsnU6fRR8DyX4P/gwMOh7+cNvnymI9xbW +kz/EwNW/fSa3faOgasOHE4nxDNzouy1/ZJgCQ8ko/aPFDFwn6V/N/k0B35nJ +mowyBtopBkQW/6HXz7/fuew+A13f5bqrzVFwYNI+dvQpA31q0xqm+XiQ18Hs +3PeOgXHXm38W8vMg2O5iYGw3A8ueSR7dMp8H+EJE4FofA9tXRJ+boP3h/pRB +1xADpUprolcK8EA2+9nJbfwE+vo1nsgU5EGfHFspWJDAr/wR1bpCPChJLi5O +EqG9RO7SI9qbozPfv5AjMDt5cMnbRTyI9/Q1NNchMLMv02d0MQ9mtcW7dB0I +LFickEuJ82DqimLUcmcCHQc+VSlK8GBCjMU0cSVQK3Mm/QTtoXGT/VY+BF6d +tfG1leRB7333KefjBFY46j1/JsWDbl3/i27RBKb3SdxmSPPgfXaYmVccgVPs +KzvCaLedSIgOOkdgfUlhh4oMD15suCsan0/g6fjCii2yPKh7+Lg44SaBOYPt +SRdo1+jXb0ulCHSJuMt8T/uRVE9mVjmBjcoZSS5yPLgfO8jOe0Sgpe1Vr8u0 +701Pfix8QuCanwfm2mmXdC7SuPOKwLd2O8PWyfOA2iTzoqKZwKUTZ5yO075V +qepX1U7gj7/n/1K0r19bcftlD4GpAVvTRRV4cE0Gtjf1E1iUKnt6Fe2cOJvZ +tkEC+S83W3rQzjzgAr2TBP797SRcTPvCB+/eLz8JvNv0r2Ir7bTNB2N/zBFo +Gm08OkH73OPjmuPzSfxv8mOylCIPEpfHv5wRIrEkvmpWn/aZ/BT/v6Ikjoru +1VlPO17uisR8aRJnGu209tKOPVVQKqRAYvNZpdHDtKN/FTuKqZB4OmRzzBna +EX4PfkqTJH4xDPt0mfax7toripokSvQwxW7RPmLXhGq6JK4T71tYTjv0Secn +liGJF2qsGp7QPriy/6S2MYnxIW1762kHFoxoLTMjsUFEq7aZtr/Cr3ojcxJ/ +D9TPtNE+cGZBoJk1iUYf7H910Pb+IyZlsYHELvWNDf+3V4Bi2dotJNocWx/8 +//HuPUynTQ4k+vF//NJE222r/m97ZxIztmbrv6S9+6lJ9g5XEhVClqyvpu1s +bGXh4kHi1McvxndpOxbafnb3ocdHZswW0t62xCnex5/EKM7jpEzadgnu2gEH +SZw1mPkZT9t2zq/hUBiJFZZNpiG0NwSFBYUfJ/FWQq+9K+11n6KlI6Pp9bKq +cS3tNQ4Jd2PjSDyXLCCgS9ui7oLzmbMkmldbXxOnbVZ0Kyc9ncR8X3nvJno/ +O9WKstdcInFNx8pfPNrh6YVZE9kkJrHMeIm070Zdv2xfSOJi64koK9rbp/Mu +/cOl1789O1uJ9oTvtUxeCYke1ayeMfr8Ge7IyRB9QGJoQUXTRdpNr7IuPKwi +kf21Jmo/7UDLK+m+T+l6pXIdTWhz9TLTXjSQqK7fGNpEn3etBWnJJ3tIzFId +SB6k++VZeErSyn4SfzLDjnNoe40kJ/YNkOj2b3uqH+28zoSzFhMkLgkXwa90 +P6qVxMX/FWDiUvnEvDq6Xys1TsZxhJnYJd32I5y2y5WYk7vEmfh0gM9Th/al ++KiYCgUmeteIdJ+i+1/W9WhkqA4TD9sfFden8+FO65EI1jImTqltbm+h82Pb ++rD/Wlcy8Xjd0sZQ2ikrQ44ZAhOJMgnnu3T+iCwOCBuyY2KVguMHQowH88v3 +BnodputRCpfPE6b7UW9PgMwxJm48Yww6tC3yXP1rIpmYdeG/nBI63yKSdvkS +p5n4rLtFuoLOv5+e2727LjPxrXRLy+2FPBiVXO+2vZqJ5uufs7bS+dvhSzTu +r2PigIB2Vsk8HlTV/oSIeiYWB0cKi9NODi9SvdHGRM5gd10Nnd8GvYu7ZweY +eOvIaJk2nf/+xa93X5Fi4dC3MRXuCAXbhW+8KpZnoRKvwFmHvi9We0aya5VZ +aLzd/cL1HxSIKCxTHtZgYUrOa4WkAQpuRaa8RzMW3v1Uc8CAvo8GNjvs7PNg +IcP1cvKdNgqaC3VfzviwcHtMQOJEKwUV/AKmIgEsnKuRz9en77dTd8sUjY6w +UMhphsh8TYGmqvy7uAQWBpc6n8FnFOwberdDu4yFLfcMPVrvUdB31m178EJ1 +XJQRMI+8QNc/oEMYLFZHNXt9U9HzFEyvnf3xQ1wdo2yi/p1KoWARf0qsj6I6 +bg3iP/kgkQKDI09K3XTV8WPIrWTiJAXHPdWlNm9Vx6u1a+McDlEgu/r7a+1s +dez/asB0s6Ug59K9S9+uqaPcl+mQ/g0UaM3G7Cu4oY4TKzeX+dhQYFaqPEeU +qGPQ44WC+6zo98jSzXqKT9XRUZeUYa+igCdbclZwUB3Hplfx72DR743hwzaf +jTRw7NKym/azXFBapnJS0EwDcyq/OppNcWEouKZa21wDuw7GZxHjXEibEjcL +3qCB0Uoxf/q+c6HrT6HenKsGKmSnLTf/yIXgxe+lFE5p4KKw3EVOtVzI1MKu +jZ0aGNynXi+ZTL/H3AUPlkZo4qHKyHFJRXr+LKuHlTGaqNLf8o+lLBeG30Yu +fHlKEwuGCONASS6MbZ691JOqiZZVV5WrF3Fh2nSgRvSGJpZg4SKrXxyYJ10v +69OoiZOBZd8ed3JAoSapQpmhhU4HbgwWZ3Lo/xW5eXHVWgiy4lM14hyQfKWe +yBteilJ7Qr6bTxWBUjy1xchIB7X/bhpOyrsJGdom4lL7dHFgeGjTpF0hvFA0 +Xzl+Tg8//E4YqpwsgFVK1cn6bfqYmegUVBlwHUT5cw/tiTZAUy5fYOyfPFCJ +UjVzUl+GF2MG8PX+ayDE2lVmX7cMZxIjxLt7r4IeW4E6vNsQ+w1Ly1Ycy4Hg +Lskn6/mWo6nQdu2a+VkwPH7WwSZjOT7C3ozO3ZdgrX5tpo3uCrTUqfzm1pMB +j8ZNf003rMDPlWvfTNung7+O4bsmz5XocO3o7hHpNGAPebQ6CRmh8NWpPM/G +c7CGKb9JJNcIZR7sLOksTQLNyNNh1cbG6LpIxYeteRaWeppUst4ZY5k0+oXm +xoPnI++Y0qB/Ebzi1ArzY6Eyp9VjVMYE9Rbv+HG+PBombsxN6981QYfhnMQp +zUhwZxUJZW5ahZHDtyz+CB+D0aWpRiUjq1At6+8e7+HDcC/vV89kvCm2Pahy +Fkg4BM5WJJqqmGG9zyvV8ewgWOIXV65XZYYPDevFom/7gcwi3+JNjmw83TIn +n7DCB/Isj4ePOLFRrJ8j0sXwAcPjiZapu9jIDLzybJWYD9iO8N507GHjTomG +cLkBbzjZNjnr7stGK07K8t053jCTG2ERHsXGoER/KRkxb3hnmtpyvYiNZU8f +FotNeoF3SN5lGy4bJ24czG/45AVT3Due33lsDPRW4WY0e4Ek0TG9rIyNlbbH +vm7iecEGQWWlh1VsbGqt9Tbz9YIHrdc9Wt6w0eKddTuz3xPWi97TDe1gowe3 +NyHljSd0rH0+Jd9J16dRMk/4qSdMVAzGu3xkY4TifgmlPE/QvWrA+TbARmHx +3zqP9nrCg3fmoWd/sPFg2bfVUfb0fNJbQX+EjSr2S/tsLTzpbQlpOjTJxl/D +m1qECHq+qpOZcjNs9GKekpyW8ITonxfcK36y0aC07vXQP54gvqJQZ/cfNi7Q +Ll8wOuoBWX4Vk3NzbFx4WJT60+MB/wN/sVln + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.0629096616347525}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJxTTMoPSmViYGCQB2IQDQNLGAINkrnK7CG8D/YFW/1i+sInQPkMDkmGr6Kq +58+C8jkczrencxoxLYLyBRw0tNtWMyssg/JFHAL6mFwO9qyE8iUc3u708W0y +XwPlyzi85X7Rai2+DspXcJimnKJwXm89lK/koKgQ78TaDuOrOFidyz201wjG +V3PYGsTxRMgdpl/D4cmtAMNz92HmazmUHVGU9hBfDeXrOAA5s8O4YO7RcyjZ +dKVq/0WYew0clAL+Nnu0LYHyDR1s9EWlP1vB/GfkcNon868u4wIo39jhkHfB +K+aTs6F8E4edQeebAu5Nh/JNHeT5a8u1vadA+WYOttd6eIrEJ0L55g6HXZpF +bFp7oHwLB/5r/y3PTG+H8i0dus7EPPgU0QzlWzkw5q6OTK+ph/KtHd7OVGXM +yqqE8m0cpK+FiLXGlkD5tg4f5zGfFjQqgPLtHO40Ld3VMD3THgDPenlb + "]]}, + 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:eJxTTMoPSmViYGCQB2IQDQNLGAINkrnK7CG8D/YFW/1i+sInQPkMDkmGr6Kq +58+C8jkczrencxoxLYLyBRw0tNtWMyssg/JFHAL6mFwO9qyE8iUc3u708W0y +XwPlyzi85X7Rai2+DspXcJimnKJwXm89lK/koKgQ78TaDuOrOFidyz201wjG +V3PYGsTxRMgdpl/D4cmtAMNz92HmazmUHVGU9hBfDeXrOAA5s8O4YO7RcyjZ +dKVq/0WYew0clAL+Nnu0LYHyDR1s9EWlP1vB/GfkcNon868u4wIo39jhkHfB +K+aTs6F8E4edQeebAu5Nh/JNHeT5a8u1vadA+WYOttd6eIrEJ0L55g6HXZpF +bFp7oHwLB/5r/y3PTG+H8i0dus7EPPgU0QzlWzkw5q6OTK+ph/KtHd7OVGXM +yqqE8m0cpK+FiLXGlkD5tg4f5zGfFjQqgPLtHO40Ld3VMD3THgDPenlb + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.061577}}, + "Frame" -> {{False, 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.061577}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGCQB2IQDQNLGAINkrnK7CG8D/YFW/1i+sInQPkMDkmGr6Kq +58+C8jkczrencxoxLYLyBRw0tNtWMyssg/JFHAL6mFwO9qyE8iUc3u708W0y +XwPlyzi85X7Rai2+DspXcJimnKJwXm89lK/koKgQ78TaDuOrOFidyz201wjG +V3PYGsTxRMgdpl/D4cmtAMNz92HmazmUHVGU9hBfDeXrOAA5s8O4YO7RcyjZ +dKVq/0WYew0clAL+Nnu0LYHyDR1s9EWlP1vB/GfkcNon868u4wIo39jhkHfB +K+aTs6F8E4edQeebAu5Nh/JNHeT5a8u1vadA+WYOttd6eIrEJ0L55g6HXZpF +bFp7oHwLB/5r/y3PTG+H8i0dus7EPPgU0QzlWzkw5q6OTK+ph/KtHd7OVGXM +yqqE8m0cpK+FiLXGlkD5tg4f5zGfFjQqgPLtHO40Ld3VMD3THgDPenlb + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.061577}}, + "Frame" -> {{False, 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.0629096616347525}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.99395977066817*^9}, + CellLabel-> + "Out[209]=",ExpressionUUID->"6f716bef-b33a-4363-918b-90540967b81d"] +}, Open ]], Cell[CellGroupData[{ @@ -7871,12 +8472,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[210]:=",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.70243020919583`"], "Output", + CellChangeTimes->{3.9913229040054893`*^9, 3.9939597707003183`*^9}, + CellLabel-> + "Out[210]=",ExpressionUUID->"e383eab1-7b0f-42c0-a7fe-63f91c045bca"] }, Open ]], Cell[CellGroupData[{ @@ -7932,158 +8535,159 @@ 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[211]:=",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.2192044618644736`*^-272\\\", \ + "\"\\!\\(\\*FractionBox[\\\"3.539476942573031`*^-261\\\", \ \\\"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, 211, 21, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913229042538757`*^9, 3.993959770778001*^9}, CellLabel-> "During evaluation of \ -In[89]:=",ExpressionUUID->"1fdfd709-87fa-2d47-912a-2bb16540a45a"], +In[211]:=",ExpressionUUID->"ce848234-476b-4f84-a01b-a05d1f7cb894"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.752435063894365`*^-282\\\", \ + "\"\\!\\(\\*FractionBox[\\\"7.991043562128011`*^-271\\\", \ \\\"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, 211, 22, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913229042538757`*^9, 3.993959770786462*^9}, CellLabel-> "During evaluation of \ -In[89]:=",ExpressionUUID->"02f7e2ed-ac22-9d4d-8071-ab116260ee28"], +In[211]:=",ExpressionUUID->"bc6ae7c8-5ff9-4f9f-8493-289bd5db4e17"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8041303347326428`*^-280\\\", \ +\\\"78176755153939869305210274200729021751146846355456000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 211, 23, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913229042538757`*^9, 3.993959770794621*^9}, + CellLabel-> + "During evaluation of \ +In[211]:=",ExpressionUUID->"caf80f91-8025-4b2d-9ed5-2ad9d9ca8ee9"], 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, 211, 24, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913229042538757`*^9, 3.993959770802251*^9}, CellLabel-> "During evaluation of \ -In[89]:=",ExpressionUUID->"7db76209-a5a6-1947-80c1-912d214b981c"], +In[211]:=",ExpressionUUID->"91d44f0a-ef64-49af-81f6-eedeb7a3749e"], 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:eJwV1nk0VWsbAPBuChHJkGPmnH3Ms8h0PE+GClEopVtSSCTOQQhlnocMGUqG +kExnF5dKJYo0K1REE6V7qVAZGpRvf3/stddvrXet/e73eZ9BaX+gs/fSJUuW +/KGe/7/nXt/rItKrLIqLfQXCT5lYPC2lHV0/GAdShzmHMiIlASUe76cN5sKj +rFCnHZEqELq1boBnsAK4MWMyRpHrYPWkZO6PgSaYsl58LRC5Ed5cdwycGbgF +t11ut6ZF7IANxMSrLwN9wASXqvJwH/gxsC5/emAUlJwXVy7nhEGn1fmq3opv +YDo0pm5klwKyb1o/7Nf8DYKfsrgJozkg7r+3js+KB8fne99XbC+EXL0N1xy3 +82MT78hY/sIZeFGk2/FFRAjDKrX2F/wqh/Sq6MdLpVajVl93i8zxSpA8+S41 +r0QMRdaIHlp74xwkb7O16JuTwIMPVvusqzgPwSZn996Lo+HUzZfyX9m1YFcu +PGOfQcNVuo+SDMJqgc4XldKTT8N+wxUWnGO18OSpa2N/DQ3fau4tGkmtBW32 +Sp7XPTT0dcqdzK+ohf+qw6q/SkuhZnt48+b+Wtgt7vhZ5h8pdFjTFzilVwfW +Uz8jAt5JY9p438DXd3VwdNNJ9ZufpLH+rwMf1MbrgDyrNSQ2J43cbfVb90zW +AW2bh0krvww+yDVd1/q9Dj5duT3Poy2DOnrSNjZC9ZAXlx1yKlwGl71Y0CAN +62FUQjmgS0gW+eQ7cm7G10OsudM+aWM5/PexT9t78QbY5F76dZ2lHE6b0Y5l +STWAcMzH+O2b5fBybMQHA/kGONOZWJ3tIYeigb9bOCoNcMXu6kfeVDlcOjlg +02rSANM7GaHfXshhiYijTPieBnA/Mpv2MFIenQ/2+TafbQBmoaXsRKI89rTJ +2vWfa6D2e4LLly2P7zOD+j/XNkDEgtoTyyp5HNQKGZFoaoD8eHeJ1ofy+NUu +5JPerQZ4mHOn7JycAuokrHp8aqQBTMlTzcfbFdDAlhuvJscF64Ge35N3FdCp +40RSjCIXHJcs27i3TwFFP7jd7mdwwdM54AWMKaBGqfl8gDoXNkQqRccsV0T5 +rHTd8HVcYCvMVa7XUMRe3C//fCsXunzKPneGKmJeY47xzRgu2C6YiEZFKqKM +SLpIeTwXerKfGq2NUUT9oir1yCQuvGhdEVOVqohreA2UlTO4MCkYIpp4RhFf +WXet31LIBdrFTes23FJEtYkAm8kGLvh//xJzV0gJ+fdviNr3jAumnANrPogq +oZMNX/XCABf4J4bqeWhKGD1nfiRviAvnhjufW9CVUMP65vLmN1x4fSNfs8VI +CU98if7VMc6FLYkmg2f3KuGpxtYygd9ckP/DPdzupYRHXl119VjkwqdQOs8r +XyX8s3jiauNfJKQcFNSmhSjhDG9j2kZeEjrsX8VnpSjh5Rsju2AVCfqisTqR +jUpYFzeo7aFIwpL02a6iS0oorpA+zaaT0MPjt+vSNSWMKgn0OUaQcGjWOfHL +bSVcvcAXlqpKQtUgMewzpISypagVoEvCmrK7Sdt46MisdgjzAxJ+aIi81tpO +R+WV99v1d5EwVyIda7CLjmVPhtSa/yZhZhWTMNlLR02DZ/F6e0iY/GbiZ+1L +x1YjcQFFDxJGr3nO7TpGx6T6u5yH3iTct78snHKOjnNBFus92STcabvZmFlH +xy5f8++VHBK6dB5uy7tAx8CWa7Vvg0i4ITZyurSVjtoZfy06HCGhaVhApeUR +HZ9t1Un6fpSE04fcYXSWjufLJ89lxpFQ+Org6L8/6Zj9rtAtK56Ek1uCEz8v +0tGkQ1ssPYGELIOUB99XMND+nmxxeBIJcb8ad6ySZ6BLzkdRIo2E6MPXf4oz +GJgV/FlgeToJUW+6S6RVGSjX8VZ4lHJo5/A7pj4D3UoaWNmZ1HmmL2ebb2Cg +4KWozW3ZJBz8vUrM0p6BQXXnW4/nkHAgUPrSxq0M7E7+aWyeS4KHi86C8y4G +ekpZcurzSNgm45biG8BA/nt1r3cVkOCU6akRGMxAnvZ93xYoOy4e7gkJZ6D0 +1xrF4kISNr2LE4+JY2DlM/W7D4pIMK9vKC8oYKDB+Z/7/pwmYVixvsymmIEx +qr6l4cUkRBTUls6UMbA1xypyivLl2OozzrUM9Do1Q+s/Q4LrfFXxXyQDM0dU +h6GEiqd/5emLTQz08UrAWsr6O8uLhK8zsKYyaJ5TSkLvo9LCtg4Glmf42PVS +ZluVFPjfZuAr/k1WWmUkkNqnT97vYWCxeYHaMGWHqqK8o/0MrD3lR9MqJ+GT +VGGu6iADvZ/OX4ikrLb8ZHbSCAPzN4m8FD5Lwt2I3BOGHxiYVMAb5EL5wHR2 +1vsJBrIn0v85SXn5gROZeVMMvKK942wf5arhzAzLGQauGFIwF6ogwcopI/3L +dwZKTpUkWFMe7U5LK//NQPWF1MhwyopNySl/eAm0mM4Oe065XSUpmStI4O56 +heNLKklwL0lI2i1CoB7vMiMVygui8YmCEgSWWv8os6NcnBKbcFWKQKu11677 +UTb9Ex3vK0+gtSZvZjLlweDjcTQGgc9XFq4+SzlsPCr2jgqBf4GG/WXKa/ZG +xoRqUuubY0zvU255ejSaqUeg84ftb19Q3mYXfvypIfW9576sD5S/tYceizcl +EIWjnKco5xoeidIHAr1LNivOUtarD44csSJQW+bM+XnKTxSDIrI3Ufs7pzE+ +RzmggH0UHAhMenN97CtloZWB4ZNOBN76trr0I+WG2MNhJa4EeuZ8Fh2hbDd/ +KHTz3wQufhK16ac87u935NdeAg06bAxvUU4ZPRhS50Wgsa3dey5llZ0+wW6+ +BIbZjTkXUO5+5B3EH0BglMDL2EjK3lZenMtBBLq4zHD2UF7Wup99IIzAPUEz +DHPKldr7AiWiCJxfV1kkSdmyam9AVwwVn/k7T6ao+LyVcj8cnEhgdqL6oy7K +0Sd2+9PTqPMzzcsqoCy//O9DvVkEHpq8L+FN+XqEm19MHoERC6c9dSn/9HY9 ++PoMgdfENV3bqPtyanibT+ZZAuN2xC0cp2zs5HLAvJrAFq9ifxblUPOtXqcv +EPijx4Z7kbqfX0TtPFxvEbgR/u1mU/d50J/+xO8OgW2/Tc1WU+7o/gnRDwms +eD49xaXyITuiXqHmOYFL9tXIv6TyR3d05ZsfEwQ2mwaTglS+0czHHIWnCYxn +L1pmUfm4pKDtBn2WwFUsO0Uhyo9tA0rtFwncFe7auniKil/j4z0lYkwUtheI +v0Llv6tgzaNGGhMNfDZGylG28I5hdcsxkT1wr+s4VS+EpPTkplSY6HRgcotR +PhXfmNyXaM5E5i8+76NU/ZnYsv3v915MvFGuEL01g4S+Wq0H332ZePOum3Ak +Vd+u8vCaCQUysSh835IKqh6mXr4kbXSUiTbWTqvHUkhQVaANJWcy0ZYjw4uJ +JPhMDu3UuMREB41iY7tjVL3a9M9duMZE0cvfI82iSDCqSDfe1sHE3r5Na9Ui +SeB1Nacdu89Enyp3/p/hJFS3lQz0vGbiUvc+d04ICe8zPFyD+JRRyXXD/ct+ +1P9PaNJ1Vyrju273B0m+JMxv/PH5s4gyWp4/3u18kAQBntxEX2ll/OdlEzlC +9Rfdo53NHlrK2GwluX+Y6j/HvJXFtrgoY6d3uA64Uvln8emxRpkyPq4fcHxs +QUJ58ZXi8Upl1OmjhQOLqkc/EnzO1yijD1fiWoMZVV+b5RbpTcqYec8597gx +CZ7qW7SlbyvjfrF9FYt6JFxc05TB/1EZPUk97XCqv9pOhdmOGamgHd8GfTs+ +EmT15JP4zVXQful5ttFyqj8Gdd3SWK+CWvl5AQo8VH+aEzEPslfBV37B5L9/ +qHnhd6324l4V5H2u5OU0x4WglS/FpFJVsI5tM5D2ngun1fD15mEVHNsnGFx2 +g5pPDn2QZr9VQbU3WzYqX+cCcDN25I2pYJz6Sr66Vi68133x5MWUCjpYJzjW +NHNB2zio88AyVRz67wIRU8eFzg1VNTFaqij4VUStNJ+aPzz5g5ujVVF6s96x +El9qPiq1bmtPUMWcIz73eg9wYepFDN+DVFWs67Gz5fHiwtctP4pH8lTR1Dhz +fI87F+bNJrqEa1TR+Byr74szF5aKP1zj+0QVHzyWDMs344JU14mrckpqKH2u +uemZADXfEZJLk2+pocHxuYFkav4UfaScdXFKHQOmogp2dtaDbMqFrUZGmthU +7SRn0lgHRRomImI+WhgrUxNnUFgL96XXG37L0UaPX2enlgbWgKnsrWyd5zqY +eOPlxF3Z8yDMUxGyL04XE33kPCeenQP5WAVzN2U9TLg9cMfRvwpWMHdfcr6j +h5zq1skjvJWgzZK6ELZHH6Xz2eojrWch6LVop90SAzzk9WY/3bUcpr5lbLct +MkB75ddphoxS2KjTfdpWay1yvKt/9LQWw41vZr/me9bi5Li+vJ/hKQjQ1B/q +9TbEPPEjRfHzBcCa9HrqtsIID3Mkf0nWnQQbguYgVGGEvclXJjyrckE1Ji38 +1rp1ePsT3a3+bjaoe5u0M4fW4ejmR/itNxO8bxxMaOYYY+er3vHZgjRoL3/q +9UXCBK0ehF9K9UiGmZrFeZ3LJnjibXvwr9gE8GTWrzjtYIqa2UdjSsXi4It6 +nlHTtClyPN3+K/OKhitVv0ZmU8ywZZbtm+MTCbusGWgmb46F67v73MbCQOZw +cqt2hzkOCGtcV4sLAQkB/0aHHSzcZGips/4SB6qsjkVMu7Gwa3Nhf2IdB/SP +ZVnl7WahKH/3v09KOeA4ffHZ4D4W9u19vD0imQNJz2d/ePqzMHUTh0fajQPf +K6ItI2JZ+InmEZX2mw1DZnn91fUsFCxzqJG3Z8PBI1VnbEkWvm9MjdVENsyR +Ld6fLrJQ8uTbSDRkgyh9cF7vEgt7F0TvRyiwwZ5fTratg4VPw/lEOP8FwvWn +1V79z1hoMaz/qIEVCHbCV7RCB1n4MEptZ5pqIAxuvDdHG2Zh3jKNgWCxQJi5 ++jHF/S0LTUuflviNB4DWWV3u+AQLXQyTb3/ID4DrQ+tDMz6z8Fl/wUFGbADY +ibuAzjQL47bfHzzkHwAHko/0hsyycGekgZCiVQDMdCSdlvzOwvMtLXfStQMg +7meh59WfLIzhmTXjkQ4AkbW1mnt+s3CbiJR30vIAKD18dXZxkYUP1thZSHw5 +DP8DgmA9lw== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -8097,117 +8701,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:eJwV1nk0VWsbAPBuChHJkGPmnH3Ms8h0PE+GClEopVtSSCTOQQhlnocMGUqG +kExnF5dKJYo0K1REE6V7qVAZGpRvf3/stddvrXet/e73eZ9BaX+gs/fSJUuW +/KGe/7/nXt/rItKrLIqLfQXCT5lYPC2lHV0/GAdShzmHMiIlASUe76cN5sKj +rFCnHZEqELq1boBnsAK4MWMyRpHrYPWkZO6PgSaYsl58LRC5Ed5cdwycGbgF +t11ut6ZF7IANxMSrLwN9wASXqvJwH/gxsC5/emAUlJwXVy7nhEGn1fmq3opv +YDo0pm5klwKyb1o/7Nf8DYKfsrgJozkg7r+3js+KB8fne99XbC+EXL0N1xy3 +82MT78hY/sIZeFGk2/FFRAjDKrX2F/wqh/Sq6MdLpVajVl93i8zxSpA8+S41 +r0QMRdaIHlp74xwkb7O16JuTwIMPVvusqzgPwSZn996Lo+HUzZfyX9m1YFcu +PGOfQcNVuo+SDMJqgc4XldKTT8N+wxUWnGO18OSpa2N/DQ3fau4tGkmtBW32 +Sp7XPTT0dcqdzK+ohf+qw6q/SkuhZnt48+b+Wtgt7vhZ5h8pdFjTFzilVwfW +Uz8jAt5JY9p438DXd3VwdNNJ9ZufpLH+rwMf1MbrgDyrNSQ2J43cbfVb90zW +AW2bh0krvww+yDVd1/q9Dj5duT3Poy2DOnrSNjZC9ZAXlx1yKlwGl71Y0CAN +62FUQjmgS0gW+eQ7cm7G10OsudM+aWM5/PexT9t78QbY5F76dZ2lHE6b0Y5l +STWAcMzH+O2b5fBybMQHA/kGONOZWJ3tIYeigb9bOCoNcMXu6kfeVDlcOjlg +02rSANM7GaHfXshhiYijTPieBnA/Mpv2MFIenQ/2+TafbQBmoaXsRKI89rTJ +2vWfa6D2e4LLly2P7zOD+j/XNkDEgtoTyyp5HNQKGZFoaoD8eHeJ1ofy+NUu +5JPerQZ4mHOn7JycAuokrHp8aqQBTMlTzcfbFdDAlhuvJscF64Ge35N3FdCp +40RSjCIXHJcs27i3TwFFP7jd7mdwwdM54AWMKaBGqfl8gDoXNkQqRccsV0T5 +rHTd8HVcYCvMVa7XUMRe3C//fCsXunzKPneGKmJeY47xzRgu2C6YiEZFKqKM +SLpIeTwXerKfGq2NUUT9oir1yCQuvGhdEVOVqohreA2UlTO4MCkYIpp4RhFf +WXet31LIBdrFTes23FJEtYkAm8kGLvh//xJzV0gJ+fdviNr3jAumnANrPogq +oZMNX/XCABf4J4bqeWhKGD1nfiRviAvnhjufW9CVUMP65vLmN1x4fSNfs8VI +CU98if7VMc6FLYkmg2f3KuGpxtYygd9ckP/DPdzupYRHXl119VjkwqdQOs8r +XyX8s3jiauNfJKQcFNSmhSjhDG9j2kZeEjrsX8VnpSjh5Rsju2AVCfqisTqR +jUpYFzeo7aFIwpL02a6iS0oorpA+zaaT0MPjt+vSNSWMKgn0OUaQcGjWOfHL +bSVcvcAXlqpKQtUgMewzpISypagVoEvCmrK7Sdt46MisdgjzAxJ+aIi81tpO +R+WV99v1d5EwVyIda7CLjmVPhtSa/yZhZhWTMNlLR02DZ/F6e0iY/GbiZ+1L +x1YjcQFFDxJGr3nO7TpGx6T6u5yH3iTct78snHKOjnNBFus92STcabvZmFlH +xy5f8++VHBK6dB5uy7tAx8CWa7Vvg0i4ITZyurSVjtoZfy06HCGhaVhApeUR +HZ9t1Un6fpSE04fcYXSWjufLJ89lxpFQ+Org6L8/6Zj9rtAtK56Ek1uCEz8v +0tGkQ1ssPYGELIOUB99XMND+nmxxeBIJcb8ad6ySZ6BLzkdRIo2E6MPXf4oz +GJgV/FlgeToJUW+6S6RVGSjX8VZ4lHJo5/A7pj4D3UoaWNmZ1HmmL2ebb2Cg +4KWozW3ZJBz8vUrM0p6BQXXnW4/nkHAgUPrSxq0M7E7+aWyeS4KHi86C8y4G +ekpZcurzSNgm45biG8BA/nt1r3cVkOCU6akRGMxAnvZ93xYoOy4e7gkJZ6D0 +1xrF4kISNr2LE4+JY2DlM/W7D4pIMK9vKC8oYKDB+Z/7/pwmYVixvsymmIEx +qr6l4cUkRBTUls6UMbA1xypyivLl2OozzrUM9Do1Q+s/Q4LrfFXxXyQDM0dU +h6GEiqd/5emLTQz08UrAWsr6O8uLhK8zsKYyaJ5TSkLvo9LCtg4Glmf42PVS +ZluVFPjfZuAr/k1WWmUkkNqnT97vYWCxeYHaMGWHqqK8o/0MrD3lR9MqJ+GT +VGGu6iADvZ/OX4ikrLb8ZHbSCAPzN4m8FD5Lwt2I3BOGHxiYVMAb5EL5wHR2 +1vsJBrIn0v85SXn5gROZeVMMvKK942wf5arhzAzLGQauGFIwF6ogwcopI/3L +dwZKTpUkWFMe7U5LK//NQPWF1MhwyopNySl/eAm0mM4Oe065XSUpmStI4O56 +heNLKklwL0lI2i1CoB7vMiMVygui8YmCEgSWWv8os6NcnBKbcFWKQKu11677 +UTb9Ex3vK0+gtSZvZjLlweDjcTQGgc9XFq4+SzlsPCr2jgqBf4GG/WXKa/ZG +xoRqUuubY0zvU255ejSaqUeg84ftb19Q3mYXfvypIfW9576sD5S/tYceizcl +EIWjnKco5xoeidIHAr1LNivOUtarD44csSJQW+bM+XnKTxSDIrI3Ufs7pzE+ +RzmggH0UHAhMenN97CtloZWB4ZNOBN76trr0I+WG2MNhJa4EeuZ8Fh2hbDd/ +KHTz3wQufhK16ac87u935NdeAg06bAxvUU4ZPRhS50Wgsa3dey5llZ0+wW6+ +BIbZjTkXUO5+5B3EH0BglMDL2EjK3lZenMtBBLq4zHD2UF7Wup99IIzAPUEz +DHPKldr7AiWiCJxfV1kkSdmyam9AVwwVn/k7T6ao+LyVcj8cnEhgdqL6oy7K +0Sd2+9PTqPMzzcsqoCy//O9DvVkEHpq8L+FN+XqEm19MHoERC6c9dSn/9HY9 ++PoMgdfENV3bqPtyanibT+ZZAuN2xC0cp2zs5HLAvJrAFq9ifxblUPOtXqcv +EPijx4Z7kbqfX0TtPFxvEbgR/u1mU/d50J/+xO8OgW2/Tc1WU+7o/gnRDwms +eD49xaXyITuiXqHmOYFL9tXIv6TyR3d05ZsfEwQ2mwaTglS+0czHHIWnCYxn +L1pmUfm4pKDtBn2WwFUsO0Uhyo9tA0rtFwncFe7auniKil/j4z0lYkwUtheI +v0Llv6tgzaNGGhMNfDZGylG28I5hdcsxkT1wr+s4VS+EpPTkplSY6HRgcotR +PhXfmNyXaM5E5i8+76NU/ZnYsv3v915MvFGuEL01g4S+Wq0H332ZePOum3Ak +Vd+u8vCaCQUysSh835IKqh6mXr4kbXSUiTbWTqvHUkhQVaANJWcy0ZYjw4uJ +JPhMDu3UuMREB41iY7tjVL3a9M9duMZE0cvfI82iSDCqSDfe1sHE3r5Na9Ui +SeB1Nacdu89Enyp3/p/hJFS3lQz0vGbiUvc+d04ICe8zPFyD+JRRyXXD/ct+ +1P9PaNJ1Vyrju273B0m+JMxv/PH5s4gyWp4/3u18kAQBntxEX2ll/OdlEzlC +9Rfdo53NHlrK2GwluX+Y6j/HvJXFtrgoY6d3uA64Uvln8emxRpkyPq4fcHxs +QUJ58ZXi8Upl1OmjhQOLqkc/EnzO1yijD1fiWoMZVV+b5RbpTcqYec8597gx +CZ7qW7SlbyvjfrF9FYt6JFxc05TB/1EZPUk97XCqv9pOhdmOGamgHd8GfTs+ +EmT15JP4zVXQful5ttFyqj8Gdd3SWK+CWvl5AQo8VH+aEzEPslfBV37B5L9/ +qHnhd6324l4V5H2u5OU0x4WglS/FpFJVsI5tM5D2ngun1fD15mEVHNsnGFx2 +g5pPDn2QZr9VQbU3WzYqX+cCcDN25I2pYJz6Sr66Vi68133x5MWUCjpYJzjW +NHNB2zio88AyVRz67wIRU8eFzg1VNTFaqij4VUStNJ+aPzz5g5ujVVF6s96x +El9qPiq1bmtPUMWcIz73eg9wYepFDN+DVFWs67Gz5fHiwtctP4pH8lTR1Dhz +fI87F+bNJrqEa1TR+Byr74szF5aKP1zj+0QVHzyWDMs344JU14mrckpqKH2u +uemZADXfEZJLk2+pocHxuYFkav4UfaScdXFKHQOmogp2dtaDbMqFrUZGmthU +7SRn0lgHRRomImI+WhgrUxNnUFgL96XXG37L0UaPX2enlgbWgKnsrWyd5zqY +eOPlxF3Z8yDMUxGyL04XE33kPCeenQP5WAVzN2U9TLg9cMfRvwpWMHdfcr6j +h5zq1skjvJWgzZK6ELZHH6Xz2eojrWch6LVop90SAzzk9WY/3bUcpr5lbLct +MkB75ddphoxS2KjTfdpWay1yvKt/9LQWw41vZr/me9bi5Li+vJ/hKQjQ1B/q +9TbEPPEjRfHzBcCa9HrqtsIID3Mkf0nWnQQbguYgVGGEvclXJjyrckE1Ji38 +1rp1ePsT3a3+bjaoe5u0M4fW4ejmR/itNxO8bxxMaOYYY+er3vHZgjRoL3/q +9UXCBK0ehF9K9UiGmZrFeZ3LJnjibXvwr9gE8GTWrzjtYIqa2UdjSsXi4It6 +nlHTtClyPN3+K/OKhitVv0ZmU8ywZZbtm+MTCbusGWgmb46F67v73MbCQOZw +cqt2hzkOCGtcV4sLAQkB/0aHHSzcZGips/4SB6qsjkVMu7Gwa3Nhf2IdB/SP +ZVnl7WahKH/3v09KOeA4ffHZ4D4W9u19vD0imQNJz2d/ePqzMHUTh0fajQPf +K6ItI2JZ+InmEZX2mw1DZnn91fUsFCxzqJG3Z8PBI1VnbEkWvm9MjdVENsyR +Ld6fLrJQ8uTbSDRkgyh9cF7vEgt7F0TvRyiwwZ5fTratg4VPw/lEOP8FwvWn +1V79z1hoMaz/qIEVCHbCV7RCB1n4MEptZ5pqIAxuvDdHG2Zh3jKNgWCxQJi5 ++jHF/S0LTUuflviNB4DWWV3u+AQLXQyTb3/ID4DrQ+tDMz6z8Fl/wUFGbADY +ibuAzjQL47bfHzzkHwAHko/0hsyycGekgZCiVQDMdCSdlvzOwvMtLXfStQMg +7meh59WfLIzhmTXjkQ4AkbW1mnt+s3CbiJR30vIAKD18dXZxkYUP1thZSHw5 +DP8DgmA9lw== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "PlotRange" -> {{0, 30}, {0., 0.05984472199457112}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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" -> @@ -8219,19 +8820,19 @@ U0FU/w== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "PlotRange" -> {{0, 30}, {0., 0.05984472199457112}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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|>, @@ -8245,116 +8846,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:eJwV1nk0VWsbAPBuChHJkGPmnH3Ms8h0PE+GClEopVtSSCTOQQhlnocMGUqG +kExnF5dKJYo0K1REE6V7qVAZGpRvf3/stddvrXet/e73eZ9BaX+gs/fSJUuW +/KGe/7/nXt/rItKrLIqLfQXCT5lYPC2lHV0/GAdShzmHMiIlASUe76cN5sKj +rFCnHZEqELq1boBnsAK4MWMyRpHrYPWkZO6PgSaYsl58LRC5Ed5cdwycGbgF +t11ut6ZF7IANxMSrLwN9wASXqvJwH/gxsC5/emAUlJwXVy7nhEGn1fmq3opv +YDo0pm5klwKyb1o/7Nf8DYKfsrgJozkg7r+3js+KB8fne99XbC+EXL0N1xy3 +82MT78hY/sIZeFGk2/FFRAjDKrX2F/wqh/Sq6MdLpVajVl93i8zxSpA8+S41 +r0QMRdaIHlp74xwkb7O16JuTwIMPVvusqzgPwSZn996Lo+HUzZfyX9m1YFcu +PGOfQcNVuo+SDMJqgc4XldKTT8N+wxUWnGO18OSpa2N/DQ3fau4tGkmtBW32 +Sp7XPTT0dcqdzK+ohf+qw6q/SkuhZnt48+b+Wtgt7vhZ5h8pdFjTFzilVwfW +Uz8jAt5JY9p438DXd3VwdNNJ9ZufpLH+rwMf1MbrgDyrNSQ2J43cbfVb90zW +AW2bh0krvww+yDVd1/q9Dj5duT3Poy2DOnrSNjZC9ZAXlx1yKlwGl71Y0CAN +62FUQjmgS0gW+eQ7cm7G10OsudM+aWM5/PexT9t78QbY5F76dZ2lHE6b0Y5l +STWAcMzH+O2b5fBybMQHA/kGONOZWJ3tIYeigb9bOCoNcMXu6kfeVDlcOjlg +02rSANM7GaHfXshhiYijTPieBnA/Mpv2MFIenQ/2+TafbQBmoaXsRKI89rTJ +2vWfa6D2e4LLly2P7zOD+j/XNkDEgtoTyyp5HNQKGZFoaoD8eHeJ1ofy+NUu +5JPerQZ4mHOn7JycAuokrHp8aqQBTMlTzcfbFdDAlhuvJscF64Ge35N3FdCp +40RSjCIXHJcs27i3TwFFP7jd7mdwwdM54AWMKaBGqfl8gDoXNkQqRccsV0T5 +rHTd8HVcYCvMVa7XUMRe3C//fCsXunzKPneGKmJeY47xzRgu2C6YiEZFKqKM +SLpIeTwXerKfGq2NUUT9oir1yCQuvGhdEVOVqohreA2UlTO4MCkYIpp4RhFf +WXet31LIBdrFTes23FJEtYkAm8kGLvh//xJzV0gJ+fdviNr3jAumnANrPogq +oZMNX/XCABf4J4bqeWhKGD1nfiRviAvnhjufW9CVUMP65vLmN1x4fSNfs8VI +CU98if7VMc6FLYkmg2f3KuGpxtYygd9ckP/DPdzupYRHXl119VjkwqdQOs8r +XyX8s3jiauNfJKQcFNSmhSjhDG9j2kZeEjrsX8VnpSjh5Rsju2AVCfqisTqR +jUpYFzeo7aFIwpL02a6iS0oorpA+zaaT0MPjt+vSNSWMKgn0OUaQcGjWOfHL +bSVcvcAXlqpKQtUgMewzpISypagVoEvCmrK7Sdt46MisdgjzAxJ+aIi81tpO +R+WV99v1d5EwVyIda7CLjmVPhtSa/yZhZhWTMNlLR02DZ/F6e0iY/GbiZ+1L +x1YjcQFFDxJGr3nO7TpGx6T6u5yH3iTct78snHKOjnNBFus92STcabvZmFlH +xy5f8++VHBK6dB5uy7tAx8CWa7Vvg0i4ITZyurSVjtoZfy06HCGhaVhApeUR +HZ9t1Un6fpSE04fcYXSWjufLJ89lxpFQ+Org6L8/6Zj9rtAtK56Ek1uCEz8v +0tGkQ1ssPYGELIOUB99XMND+nmxxeBIJcb8ad6ySZ6BLzkdRIo2E6MPXf4oz +GJgV/FlgeToJUW+6S6RVGSjX8VZ4lHJo5/A7pj4D3UoaWNmZ1HmmL2ebb2Cg +4KWozW3ZJBz8vUrM0p6BQXXnW4/nkHAgUPrSxq0M7E7+aWyeS4KHi86C8y4G +ekpZcurzSNgm45biG8BA/nt1r3cVkOCU6akRGMxAnvZ93xYoOy4e7gkJZ6D0 +1xrF4kISNr2LE4+JY2DlM/W7D4pIMK9vKC8oYKDB+Z/7/pwmYVixvsymmIEx +qr6l4cUkRBTUls6UMbA1xypyivLl2OozzrUM9Do1Q+s/Q4LrfFXxXyQDM0dU +h6GEiqd/5emLTQz08UrAWsr6O8uLhK8zsKYyaJ5TSkLvo9LCtg4Glmf42PVS +ZluVFPjfZuAr/k1WWmUkkNqnT97vYWCxeYHaMGWHqqK8o/0MrD3lR9MqJ+GT +VGGu6iADvZ/OX4ikrLb8ZHbSCAPzN4m8FD5Lwt2I3BOGHxiYVMAb5EL5wHR2 +1vsJBrIn0v85SXn5gROZeVMMvKK942wf5arhzAzLGQauGFIwF6ogwcopI/3L +dwZKTpUkWFMe7U5LK//NQPWF1MhwyopNySl/eAm0mM4Oe065XSUpmStI4O56 +heNLKklwL0lI2i1CoB7vMiMVygui8YmCEgSWWv8os6NcnBKbcFWKQKu11677 +UTb9Ex3vK0+gtSZvZjLlweDjcTQGgc9XFq4+SzlsPCr2jgqBf4GG/WXKa/ZG +xoRqUuubY0zvU255ejSaqUeg84ftb19Q3mYXfvypIfW9576sD5S/tYceizcl +EIWjnKco5xoeidIHAr1LNivOUtarD44csSJQW+bM+XnKTxSDIrI3Ufs7pzE+ +RzmggH0UHAhMenN97CtloZWB4ZNOBN76trr0I+WG2MNhJa4EeuZ8Fh2hbDd/ +KHTz3wQufhK16ac87u935NdeAg06bAxvUU4ZPRhS50Wgsa3dey5llZ0+wW6+ +BIbZjTkXUO5+5B3EH0BglMDL2EjK3lZenMtBBLq4zHD2UF7Wup99IIzAPUEz +DHPKldr7AiWiCJxfV1kkSdmyam9AVwwVn/k7T6ao+LyVcj8cnEhgdqL6oy7K +0Sd2+9PTqPMzzcsqoCy//O9DvVkEHpq8L+FN+XqEm19MHoERC6c9dSn/9HY9 ++PoMgdfENV3bqPtyanibT+ZZAuN2xC0cp2zs5HLAvJrAFq9ifxblUPOtXqcv +EPijx4Z7kbqfX0TtPFxvEbgR/u1mU/d50J/+xO8OgW2/Tc1WU+7o/gnRDwms +eD49xaXyITuiXqHmOYFL9tXIv6TyR3d05ZsfEwQ2mwaTglS+0czHHIWnCYxn +L1pmUfm4pKDtBn2WwFUsO0Uhyo9tA0rtFwncFe7auniKil/j4z0lYkwUtheI +v0Llv6tgzaNGGhMNfDZGylG28I5hdcsxkT1wr+s4VS+EpPTkplSY6HRgcotR +PhXfmNyXaM5E5i8+76NU/ZnYsv3v915MvFGuEL01g4S+Wq0H332ZePOum3Ak +Vd+u8vCaCQUysSh835IKqh6mXr4kbXSUiTbWTqvHUkhQVaANJWcy0ZYjw4uJ +JPhMDu3UuMREB41iY7tjVL3a9M9duMZE0cvfI82iSDCqSDfe1sHE3r5Na9Ui +SeB1Nacdu89Enyp3/p/hJFS3lQz0vGbiUvc+d04ICe8zPFyD+JRRyXXD/ct+ +1P9PaNJ1Vyrju273B0m+JMxv/PH5s4gyWp4/3u18kAQBntxEX2ll/OdlEzlC +9Rfdo53NHlrK2GwluX+Y6j/HvJXFtrgoY6d3uA64Uvln8emxRpkyPq4fcHxs +QUJ58ZXi8Upl1OmjhQOLqkc/EnzO1yijD1fiWoMZVV+b5RbpTcqYec8597gx +CZ7qW7SlbyvjfrF9FYt6JFxc05TB/1EZPUk97XCqv9pOhdmOGamgHd8GfTs+ +EmT15JP4zVXQful5ttFyqj8Gdd3SWK+CWvl5AQo8VH+aEzEPslfBV37B5L9/ +qHnhd6324l4V5H2u5OU0x4WglS/FpFJVsI5tM5D2ngun1fD15mEVHNsnGFx2 +g5pPDn2QZr9VQbU3WzYqX+cCcDN25I2pYJz6Sr66Vi68133x5MWUCjpYJzjW +NHNB2zio88AyVRz67wIRU8eFzg1VNTFaqij4VUStNJ+aPzz5g5ujVVF6s96x +El9qPiq1bmtPUMWcIz73eg9wYepFDN+DVFWs67Gz5fHiwtctP4pH8lTR1Dhz +fI87F+bNJrqEa1TR+Byr74szF5aKP1zj+0QVHzyWDMs344JU14mrckpqKH2u +uemZADXfEZJLk2+pocHxuYFkav4UfaScdXFKHQOmogp2dtaDbMqFrUZGmthU +7SRn0lgHRRomImI+WhgrUxNnUFgL96XXG37L0UaPX2enlgbWgKnsrWyd5zqY +eOPlxF3Z8yDMUxGyL04XE33kPCeenQP5WAVzN2U9TLg9cMfRvwpWMHdfcr6j +h5zq1skjvJWgzZK6ELZHH6Xz2eojrWch6LVop90SAzzk9WY/3bUcpr5lbLct +MkB75ddphoxS2KjTfdpWay1yvKt/9LQWw41vZr/me9bi5Li+vJ/hKQjQ1B/q +9TbEPPEjRfHzBcCa9HrqtsIID3Mkf0nWnQQbguYgVGGEvclXJjyrckE1Ji38 +1rp1ePsT3a3+bjaoe5u0M4fW4ejmR/itNxO8bxxMaOYYY+er3vHZgjRoL3/q +9UXCBK0ehF9K9UiGmZrFeZ3LJnjibXvwr9gE8GTWrzjtYIqa2UdjSsXi4It6 +nlHTtClyPN3+K/OKhitVv0ZmU8ywZZbtm+MTCbusGWgmb46F67v73MbCQOZw +cqt2hzkOCGtcV4sLAQkB/0aHHSzcZGips/4SB6qsjkVMu7Gwa3Nhf2IdB/SP +ZVnl7WahKH/3v09KOeA4ffHZ4D4W9u19vD0imQNJz2d/ePqzMHUTh0fajQPf +K6ItI2JZ+InmEZX2mw1DZnn91fUsFCxzqJG3Z8PBI1VnbEkWvm9MjdVENsyR +Ld6fLrJQ8uTbSDRkgyh9cF7vEgt7F0TvRyiwwZ5fTratg4VPw/lEOP8FwvWn +1V79z1hoMaz/qIEVCHbCV7RCB1n4MEptZ5pqIAxuvDdHG2Zh3jKNgWCxQJi5 ++jHF/S0LTUuflviNB4DWWV3u+AQLXQyTb3/ID4DrQ+tDMz6z8Fl/wUFGbADY +ibuAzjQL47bfHzzkHwAHko/0hsyycGekgZCiVQDMdCSdlvzOwvMtLXfStQMg +7meh59WfLIzhmTXjkQ4AkbW1mnt+s3CbiJR30vIAKD18dXZxkYUP1thZSHw5 +DP8DgmA9lw== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "PlotRange" -> {{0, 30}, {0., 0.05984472199457112}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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|>, @@ -8365,6 +8963,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}}, @@ -8392,7 +8991,8 @@ U0FU/w== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.06741909458355917}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.05984472199457112}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -8400,8 +9000,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.993960191702434*^9}, + CellLabel-> + "Out[211]=",ExpressionUUID->"0226de08-6f76-4587-9913-f88f20e10a55"] }, Open ]], Cell[CellGroupData[{ @@ -8453,65 +9054,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[212]:=",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.923680906106016`*^-171\\\", \ +RowBox[{\\\"18274627092335829218864095445902180793856136\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"52\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"67383679745821507584000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 212, + 25, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323664732767*^9, 3.993960191824697*^9}, CellLabel-> "During evaluation of \ -In[90]:=",ExpressionUUID->"e283daf4-b253-944e-a35b-b9d739b4810d"], +In[212]:=",ExpressionUUID->"ecb5410d-e184-4e12-8a1f-d5c83697d7ce"], 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.1563224049618347`*^-174\\\", \ +RowBox[{\\\"53288812601251278002207702320250759194884493\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"55\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"90810138815516114944000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 212, + 26, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323664732767*^9, 3.9939601918338203`*^9}, CellLabel-> "During evaluation of \ -In[90]:=",ExpressionUUID->"45f4fe27-f32a-9441-bd55-e0801ff04328"], +In[212]:=",ExpressionUUID->"56cffef2-2c25-43c8-8ec2-60e9923c6dd6"], 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[\\\"6.950640825994835`*^-178\\\", \ +RowBox[{\\\"16119865811878511595667829951875854656452559\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"59\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"00669916936247705600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 212, + 27, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323664732767*^9, 3.9939601918403683`*^9}, CellLabel-> "During evaluation of \ -In[90]:=",ExpressionUUID->"8fffabed-e171-5e42-9ba8-fd51ae8f5dd5"], +In[212]:=",ExpressionUUID->"ffa8f6d9-a3ec-4c75-b8de-183bb29bc06e"], 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, 212, 28, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323664732767*^9, 3.9939601918463163`*^9}, CellLabel-> "During evaluation of \ -In[90]:=",ExpressionUUID->"8b648472-e40f-a549-a057-c6eeb9f14028"], +In[212]:=",ExpressionUUID->"263d9c58-07af-4266-a874-ba1e2f46537f"], -Cell[BoxData["11.275343508420768`"], "Output", - CellChangeTimes->{3.9913236764669056`*^9}, - CellLabel->"Out[90]=",ExpressionUUID->"c7b55151-fc31-d94c-8a4e-01b34fb0adaf"] +Cell[BoxData["12.701921702224839`"], "Output", + CellChangeTimes->{3.9913236764669056`*^9, 3.99396023601156*^9}, + CellLabel-> + "Out[212]=",ExpressionUUID->"c682550c-a8c3-47bc-8e6f-ed4c2e9d75f7"] }, Open ]], Cell[CellGroupData[{ @@ -8578,67 +9188,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[213]:=",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.6683078720477823`*^-224\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 213, 29, 31385708286630252094, + "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913236765399036`*^9, 3.993960236079197*^9}, CellLabel-> "During evaluation of \ -In[91]:=",ExpressionUUID->"3632efc4-f65f-2f41-a6ff-4f71c0ebce84"], +In[213]:=",ExpressionUUID->"4f2291fd-19b6-47e3-ab4e-62799cd21dd7"], 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[\\\"6.844622738082695`*^-230\\\", \ +RowBox[{\\\"66571774943749718920876976437469564842640151\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"7\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"862032185661739706282409984000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 213, + 30, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913236765399036`*^9, 3.993960236087474*^9}, CellLabel-> "During evaluation of \ -In[91]:=",ExpressionUUID->"779c5516-83d5-5d41-8a7a-6b58e876b564"], +In[213]:=",ExpressionUUID->"83fd7fc0-40ac-415c-8eb9-5c19f744cd2f"], 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.2771245506317303`*^-235\\\", \ +RowBox[{\\\"11190715368044327750599419739138633850047809\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"12\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"76104097384446260731183104000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 213, + 31, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913236765399036`*^9, 3.993960236093903*^9}, CellLabel-> "During evaluation of \ -In[91]:=",ExpressionUUID->"8e3711bd-8e48-2e4f-9802-ad11f73b56ef"], +In[213]:=",ExpressionUUID->"0c6d341d-9f07-4375-a707-0e04baafc3af"], 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, 213, 32, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913236765399036`*^9, 3.993960236101906*^9}, CellLabel-> "During evaluation of \ -In[91]:=",ExpressionUUID->"f612a69b-4740-9240-9908-d284159fa285"], +In[213]:=",ExpressionUUID->"f0958036-726a-48b9-8817-854fb497eeb6"], -Cell[BoxData["0.5376063675902706`"], "Output", - CellChangeTimes->{3.9913236883162384`*^9}, - CellLabel->"Out[91]=",ExpressionUUID->"bfa217e6-2060-bc4b-b710-35d6c4ca9627"] +Cell[BoxData["0.22171984055019145`"], "Output", + CellChangeTimes->{3.9913236883162384`*^9, 3.993960242665186*^9}, + CellLabel-> + "Out[213]=",ExpressionUUID->"0f4ad498-d668-4ee3-9664-c78eef2a59be"] }, Open ]], Cell[CellGroupData[{ @@ -8659,8 +9276,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -8705,67 +9321,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[214]:=",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.6683078720477823`*^-224\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 214, 33, 31385708286630252094, + "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99132368839011*^9, 3.993960242703771*^9}, CellLabel-> "During evaluation of \ -In[92]:=",ExpressionUUID->"3ebcf84a-7882-bd47-b9c8-0657501c09d4"], +In[214]:=",ExpressionUUID->"a5c93ae9-e6ee-4c06-bccc-c945076b5a39"], 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[\\\"6.844622738082695`*^-230\\\", \ +RowBox[{\\\"66571774943749718920876976437469564842640151\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"7\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"862032185661739706282409984000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 214, + 34, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99132368839011*^9, 3.993960242712027*^9}, CellLabel-> "During evaluation of \ -In[92]:=",ExpressionUUID->"5ba908af-818e-5d45-9b4d-c738ed936632"], +In[214]:=",ExpressionUUID->"5ecc8f8a-9080-4667-91d6-12ffdaa39a36"], 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.2771245506317303`*^-235\\\", \ +RowBox[{\\\"11190715368044327750599419739138633850047809\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"12\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"76104097384446260731183104000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 214, + 35, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99132368839011*^9, 3.993960242720467*^9}, CellLabel-> "During evaluation of \ -In[92]:=",ExpressionUUID->"b25ed3b8-96c0-f246-8b73-bf5dca1bf3be"], +In[214]:=",ExpressionUUID->"8f0ad0e6-db62-4e50-8f6b-253991d0c3ef"], 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, 214, 36, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99132368839011*^9, 3.993960242726385*^9}, CellLabel-> "During evaluation of \ -In[92]:=",ExpressionUUID->"4d7ee3e1-e220-9e46-b1cc-01012021a276"], +In[214]:=",ExpressionUUID->"094083fb-0959-4d12-b38a-d8953f514363"], -Cell[BoxData["10.498798062085507`"], "Output", - CellChangeTimes->{3.9913236988049507`*^9}, - CellLabel->"Out[92]=",ExpressionUUID->"f21819b7-4040-3a47-b212-dc05454fc812"] +Cell[BoxData["39.896435086328424`"], "Output", + CellChangeTimes->{3.9913236988049507`*^9, 3.993960248991026*^9}, + CellLabel-> + "Out[214]=",ExpressionUUID->"e5a1445c-8af3-41ba-afaa-837e7555c72a"] }, Open ]], Cell[CellGroupData[{ @@ -8786,8 +9409,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -8832,67 +9454,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[215]:=",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.6683078720477823`*^-224\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 215, 37, 31385708286630252094, + "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323698915848*^9, 3.9939602490351152`*^9}, CellLabel-> "During evaluation of \ -In[93]:=",ExpressionUUID->"abd6af2a-56b2-2644-a5c5-5aa91718971c"], +In[215]:=",ExpressionUUID->"f2a13e83-0601-4d36-bd18-289c10a57cb2"], 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[\\\"6.844622738082695`*^-230\\\", \ +RowBox[{\\\"66571774943749718920876976437469564842640151\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"7\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"862032185661739706282409984000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 215, + 38, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323698915848*^9, 3.993960249044031*^9}, CellLabel-> "During evaluation of \ -In[93]:=",ExpressionUUID->"31d8f902-5be7-c54f-8e99-429decd85903"], +In[215]:=",ExpressionUUID->"4d719217-c027-4158-9fae-a8652c2b5421"], 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.2771245506317303`*^-235\\\", \ +RowBox[{\\\"11190715368044327750599419739138633850047809\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"12\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"76104097384446260731183104000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 215, + 39, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323698915848*^9, 3.9939602490526857`*^9}, CellLabel-> "During evaluation of \ -In[93]:=",ExpressionUUID->"666728b2-41bd-114c-ad81-a56ae7cb85e9"], +In[215]:=",ExpressionUUID->"749595b3-27a9-4a60-9da0-cf620432c4eb"], 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, 215, 40, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323698915848*^9, 3.99396024906111*^9}, CellLabel-> "During evaluation of \ -In[93]:=",ExpressionUUID->"7a1ee219-911f-6846-82f7-c389bec607c2"], +In[215]:=",ExpressionUUID->"e88374a1-22dc-4feb-a2fc-1b51a744257b"], -Cell[BoxData["18.521732102530788`"], "Output", - CellChangeTimes->{3.991323706795576*^9}, - CellLabel->"Out[93]=",ExpressionUUID->"f40d5525-ccff-eb4c-a859-e6917373a7f1"] +Cell[BoxData["8.402251055246213`"], "Output", + CellChangeTimes->{3.991323706795576*^9, 3.9939602528244057`*^9}, + CellLabel-> + "Out[215]=",ExpressionUUID->"b8b4f5eb-441b-44f6-9adc-ae4b9dca59c1"] }, Open ]], Cell[CellGroupData[{ @@ -8901,21 +9530,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[216]:=",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.012109875687014934`"], "Output", + CellChangeTimes->{3.991323706858589*^9, 3.993960252864686*^9}, + CellLabel-> + "Out[216]=",ExpressionUUID->"c2a99505-9956-407b-b124-4696cae57ab4"] }, 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[217]:=",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"], Cell[CellGroupData[{ @@ -8937,11 +9568,13 @@ Cell[BoxData[ FractionBox[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", - CellLabel->"In[96]:=",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], + CellLabel-> + "In[218]:=",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.34376778536805`"], "Output", + CellChangeTimes->{3.991323706886154*^9, 3.993960252881228*^9}, + CellLabel-> + "Out[218]=",ExpressionUUID->"d5929414-1fba-4b07-9688-fd4d361abc13"] }, Open ]], Cell[CellGroupData[{ @@ -8950,11 +9583,13 @@ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", - CellLabel->"In[98]:=",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], + CellLabel-> + "In[219]:=",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.4221776946684166`"], "Output", + CellChangeTimes->{3.9913237069236546`*^9, 3.993960252892435*^9}, + CellLabel-> + "Out[219]=",ExpressionUUID->"0ab71679-554d-49d5-9dae-e9d812a80f38"] }, Open ]], Cell[CellGroupData[{ @@ -8964,12 +9599,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[101]:=",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], + "In[220]:=",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], -Cell[BoxData["16.598525115055164`"], "Output", - CellChangeTimes->{3.9913237069753113`*^9}, +Cell[BoxData["23.243741991190667`"], "Output", + CellChangeTimes->{3.9913237069753113`*^9, 3.993960252902934*^9}, CellLabel-> - "Out[101]=",ExpressionUUID->"f46a3dc4-a4b4-034f-91be-6596e81ebf6d"] + "Out[220]=",ExpressionUUID->"b9637100-760f-49c7-907a-ff75788fd373"] }, Open ]], Cell[CellGroupData[{ @@ -9159,12 +9794,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[102]:=",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], + "In[221]:=",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], -Cell[BoxData["0.02467166981689615`"], "Output", - CellChangeTimes->{3.991323707000412*^9}, +Cell[BoxData["0.005740832890061576`"], "Output", + CellChangeTimes->{3.991323707000412*^9, 3.993960252918421*^9}, CellLabel-> - "Out[102]=",ExpressionUUID->"ccd4df45-d425-704c-b4a9-648b41b92e77"] + "Out[221]=",ExpressionUUID->"b8153e8b-f9a8-41e1-af3c-82c7bea99152"] }, Open ]], Cell[CellGroupData[{ @@ -9178,12 +9813,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[103]:=",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], + "In[222]:=",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], -Cell[BoxData["5.642163519289108`"], "Output", - CellChangeTimes->{3.991323707203314*^9}, +Cell[BoxData["11.696542093469247`"], "Output", + CellChangeTimes->{3.991323707203314*^9, 3.993960253021957*^9}, CellLabel-> - "Out[103]=",ExpressionUUID->"1ebb6633-805d-cf47-abbc-564ac9bf2374"] + "Out[222]=",ExpressionUUID->"0faee5b1-5faa-4170-92c1-3f48ae43bc12"] }, Open ]], Cell[CellGroupData[{ @@ -9375,12 +10010,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[104]:=",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], + "In[223]:=",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], -Cell[BoxData["0.012834083028601704`"], "Output", - CellChangeTimes->{3.9913237072224197`*^9}, +Cell[BoxData["0.036450595585506784`"], "Output", + CellChangeTimes->{3.9913237072224197`*^9, 3.99396025303404*^9}, CellLabel-> - "Out[104]=",ExpressionUUID->"a3a95ff2-cddf-6a4c-ac06-8cc3fd5707bc"] + "Out[223]=",ExpressionUUID->"e9be25f5-ea18-4af3-9dda-116acf74ff68"] }, Open ]], Cell[CellGroupData[{ @@ -9394,12 +10029,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[105]:=",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], + "In[224]:=",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], -Cell[BoxData["7.82280524717004`"], "Output", - CellChangeTimes->{3.991323707432623*^9}, +Cell[BoxData["4.64186628886409`"], "Output", + CellChangeTimes->{3.991323707432623*^9, 3.9939602531411343`*^9}, CellLabel-> - "Out[105]=",ExpressionUUID->"53071608-cf53-7441-9033-6c9cf2e7fa8e"] + "Out[224]=",ExpressionUUID->"c53b671a-df6c-4b7b-ac86-69534398fa7e"] }, Open ]], Cell[CellGroupData[{ @@ -9492,12 +10127,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[106]:=",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], + "In[225]:=",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], -Cell[BoxData["0.6154782275967796`"], "Output", - CellChangeTimes->{3.9913237074497375`*^9}, +Cell[BoxData["0.14282325327174822`"], "Output", + CellChangeTimes->{3.9913237074497375`*^9, 3.993960253153103*^9}, CellLabel-> - "Out[106]=",ExpressionUUID->"547b87cc-d628-4d49-8e04-72542aa7650e"] + "Out[225]=",ExpressionUUID->"9f1144c2-6cfe-42eb-b907-f2d1439db699"] }, Open ]], Cell[CellGroupData[{ @@ -9587,12 +10222,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[107]:=",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], + "In[226]:=",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], -Cell[BoxData["0.3845217724032204`"], "Output", - CellChangeTimes->{3.991323707467621*^9}, +Cell[BoxData["0.8571767467282517`"], "Output", + CellChangeTimes->{3.991323707467621*^9, 3.9939602531642447`*^9}, CellLabel-> - "Out[107]=",ExpressionUUID->"a8edf49c-9c61-9e4b-9fa8-4de409daba96"] + "Out[226]=",ExpressionUUID->"00f64a19-0434-498a-a9c6-985ba04cf2e7"] }, Open ]], Cell[CellGroupData[{ @@ -9715,12 +10350,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[108]:=",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], + "In[227]:=",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], -Cell[BoxData["0.2366647789511063`"], "Output", - CellChangeTimes->{3.991323707488617*^9}, +Cell[BoxData["0.1224247715966223`"], "Output", + CellChangeTimes->{3.991323707488617*^9, 3.9939602531760597`*^9}, CellLabel-> - "Out[108]=",ExpressionUUID->"3584cc50-41a2-ae4b-af54-859d095b0154"] + "Out[227]=",ExpressionUUID->"2b9824d3-4ef0-40b0-9b47-5785c208aec1"] }, Open ]], Cell[CellGroupData[{ @@ -9782,68 +10417,69 @@ 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[228]:=",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[\\\"7.844442621317018`*^-232\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 228, 41, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237075117207`*^9, 3.993960253191943*^9}, CellLabel-> "During evaluation of \ -In[109]:=",ExpressionUUID->"d59869d2-8577-0547-8448-230bc5a4ac5e"], +In[228]:=",ExpressionUUID->"21e061db-9fe0-4b8e-9a85-4b01e81d3dc0"], 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.2512478050338404`*^-238\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 228, 42, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237075117207`*^9, 3.993960253201064*^9}, CellLabel-> "During evaluation of \ -In[109]:=",ExpressionUUID->"844f4204-3100-6d45-b5d2-238cc22b8006"], +In[228]:=",ExpressionUUID->"9057dc14-1620-4fb0-b559-e06501b3b97d"], 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.9958346885570677`*^-245\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 228, 43, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237075117207`*^9, 3.993960253210417*^9}, CellLabel-> "During evaluation of \ -In[109]:=",ExpressionUUID->"f91c55eb-7b3d-3340-b869-4269b99a071c"], +In[228]:=",ExpressionUUID->"6bf0e770-ff6f-4982-9299-0846b158f8fd"], 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, 228, 44, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237075117207`*^9, 3.993960253217258*^9}, CellLabel-> "During evaluation of \ -In[109]:=",ExpressionUUID->"efd89e15-8a66-4047-aee7-4fb3607a30a7"], +In[228]:=",ExpressionUUID->"16ef0941-d8f6-48c9-9812-008987f9aa8e"], -Cell[BoxData["5.642163519289105`"], "Output", - CellChangeTimes->{3.9913237161181736`*^9}, +Cell[BoxData["11.69654209346924`"], "Output", + CellChangeTimes->{3.9913237161181736`*^9, 3.9939602564735727`*^9}, CellLabel-> - "Out[109]=",ExpressionUUID->"e68f2098-b3f7-6745-819f-009e252dd442"] + "Out[228]=",ExpressionUUID->"967adaf7-8c54-475b-b400-fe2ef9da08de"] }, Open ]], Cell[CellGroupData[{ @@ -9905,68 +10541,69 @@ 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[229]:=",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[\\\"7.844442621317018`*^-232\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 229, 45, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237161871567`*^9, 3.9939602565120173`*^9}, CellLabel-> "During evaluation of \ -In[110]:=",ExpressionUUID->"feb3ed0a-8d45-dd4c-a945-407106f88295"], +In[229]:=",ExpressionUUID->"f3a7e894-798f-4fba-bdfb-eba7689af6e8"], 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.2512478050338404`*^-238\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 229, 46, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237161871567`*^9, 3.993960256520262*^9}, CellLabel-> "During evaluation of \ -In[110]:=",ExpressionUUID->"d5a6c2e7-2143-1843-8d40-686107f6aa27"], +In[229]:=",ExpressionUUID->"23dfe279-8f5e-44e7-9336-fa6ae58841bd"], 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.9958346885570677`*^-245\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 229, 47, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237161871567`*^9, 3.993960256526884*^9}, CellLabel-> "During evaluation of \ -In[110]:=",ExpressionUUID->"a15d89dd-0dfc-c845-aec3-fe7d60156e1f"], +In[229]:=",ExpressionUUID->"bbdf3526-dd61-455c-8398-08cde095e909"], 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, 229, 48, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237161871567`*^9, 3.993960256533239*^9}, CellLabel-> "During evaluation of \ -In[110]:=",ExpressionUUID->"0f9408e4-b654-4a40-9b38-655b18398efc"], +In[229]:=",ExpressionUUID->"b59a0bf5-c5c9-4688-8bd8-a5f19c63198f"], -Cell[BoxData["7.822805247170038`"], "Output", - CellChangeTimes->{3.991323724852854*^9}, +Cell[BoxData["4.64186628886409`"], "Output", + CellChangeTimes->{3.991323724852854*^9, 3.9939602598167763`*^9}, CellLabel-> - "Out[110]=",ExpressionUUID->"f72e3d82-4d19-7143-9513-38a15cee4d51"] + "Out[229]=",ExpressionUUID->"f513b1b9-5ad0-44de-861f-953555c5afa1"] }, Open ]], Cell[CellGroupData[{ @@ -10024,95 +10661,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[230]:=",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:eJwV1Xk4VdsbB3CZUijTIYQ4yBDpHGSq9eLQYIzKlDKcvQ0h4bqmqKRuk5BK +A6fBPA+pUP3cuBEqRVdEkanIOSeU6lZ+a/+xn/18nrXXd7177bXWVg844EYI +CggIzOCLuh98Zrj2bvezzdbnubNVt/loMzffJIBVjjrV6TOUhzmm2Zqs+2ic +8fcbyq7sp6ISzH9Qf1v7Q8o1cSktIqwu9PS9+UXKJx+vak4pfYGaj8sFUG7o +Ppj3k/EKZdz11KA8NdCRFN/0Gs3Hi/ZVYiuN032+2g6i5B6Vw5QdeEnm0V3v +UF5Hngrlhz+nxONKR1AeebKqAvvfIwqJdyJGUVHVkAllrihrap4xjhoqr1aX +Y4ueifRiLkygivAWNcqq0rntB5s+INuFnall2M7KXwu5tp9Q5OX6taXY5HUN +eQMxLuroPBZcgp2i5ZK2v4uHmD8f5BZjv1bo3RBT+hmtz44YL8Rme4eGnD8z +izxWTywUYPOvCdyojZhDLaNtv/OxxTQMpD4zviDhxI6PN7Gz2S1bpGhfkUvU +9NMb2GuKvFLWL3xFrQuxhdexzdYd54Y3fUMnRJ4Z52EHm77rmrL9idofJz/O +wZ6P+0N4ufYv1Nby1ekS9uEmcStdsd9okjbw5AJ2DpiVBXUtou0Go3lZVH0F +7ayo0iXw46jgw9PYpY/PDx9RFgT3Q68/nKTqndyblHlGEC51KIn9hZ2k96Wu +OkIIFGfG6MeoeqvU6TyGCFiEne9OxB7o/vTw9y0RsJTpzoun6p+9672CJgod +KMH/T+xyY+csgwVR0B5UaI3Cbm1IWBLWJAa9c0m/g7G/tPS8+2ArAU2bVm11 +x5ZxlJBKfCgB69hTKq7YRr0skDSXhDpP7QlH7NCx+usbDFdAR+egkz12pGCX +0SYJKXD94ZBghj2uUfk57as0WHnHbVGi5ofsWPacKQOdp8VZ8tiCZRPqqw7K +gO15SaYMVS9Tza10Wgb0z+37sAzb2zaj9tmwLDjst6v+VsdHzwOjohU6aXCF +FlHfg/22KP20n5g8eBQq9z/D/jRdeqvETh6CbDbznmAvjxntsWyWBzH3sdn/ +YbOO7TT2q1eAClqzRxl2Y77pl2KOItR9Uc5Jwc4f/xFrEaMCLI8XX1Wwt+46 +8Ta6QgWYN873K1D5rbL2FRMqEKl4oVoa2zh/HW2NlyrsjvawFMFuDdhbJ7JZ +DTLlJluma/loljf854fUNWDK4Ny4gy0bzrpd56QB++KWn7fFnshfHuwaqgF9 +smW/LbHvDXYrzxzXgMkjV/caY+9x9E3VbtaARK2I/zSx8/Vj3S4z6IA+ThWL +YBtPFfGTFTSh0LK9p7WGj3YGiRtsH9GCnNcR4RbYKHYXw+OXFki11WduwNZL +42xkK2oDodFbqoMtcItpk7xDG/LuXG6Sx6546+NR+7c2bLrl7TFbjffn7vIj +SjfXgg9na1wR9j2W079TAbpg8aSIvQz7lvulNwvJupCZu05rsYqP0gNGhoWv +6sIzFc7APDb78B/Tqj26EKbmqjmMLX0/V8DdVg8crBcYd7BDmVy9Jro+DO4X +2eyHraxxLuX02Dq44lIoVV7JR/dPzet+FzQAu7i8aA72njmvXlLdAG4kVjzJ +ws5r1dS12WsAooScSzy2RlDjy299BvDAWvN/dth65eNaZKch1JbamgxW8JGK +siq5xssIUoxjjyyW89G6ghiJ/xADvBr6BtXK+CiAnfrFwJkB4p/VVKSxc+hZ +b/32MEDnQ5ibILbQzarqx3EMkIhVvDZWivdb3tTOrBoG1Ey8KSvGPpnjl6tL +Z0J20OIDQ+yJ046GnqLG4PLk9m1GCR/diNJ0re8ygbNi4oZKRXzUHYs2Hisw +x/tL+MCvG3ykvveVs2/YJpAPjJKyusZHxOKdSpV4ADeLeUWri3ykMH1vqUKA +DRjkzB6QOcdHMUyrwSw9FlhOBs91ncD1z/xsl52yA4E1p2g6h/H3tIleynm+ +Bax8Q6bc/sTrZz707/LsbVBTJeWSG8FH36xXPW1NcQDeiyGyns1HQwJCn0f8 +naDE4Z/Ac958FLH6QMYRuguwWGYlj1z5qDKkvflCmivkWemT3XZ8lDCnuKAf +sgOONuymeVri82O7/e62fW5QWLXe6/F6PjL3ybQe3+EOtnSHl5s0+eilYm5o +K3MnjEpeJ/cp4v9JYer9Yp1d4OPVrZwmidfXsJ6js+Ru+KzXGnNAEP8PevlB +sTO7oWeXj70RD5/zFzLLbw17gGQ87+yLPh7KFZ4zzGrxhKf0LVqbHvHQHev1 +A2kNXiBicnNmQxkP5Ww8Jf2z1BuuOPoeErrAQ8/fFBxnnvGBdNWC3K7DPFTv +dE0z8vAe6HCvfZGwn4c+h7sLRLB9IbZwsGOjJw99sdcN5truBdHWOX8Bex4q +nun/Fm26Dz4XLhpKMnnI80ZBoK+EH9xn+1swNXiortZhn9AJP4D3zXqTUjxk +rvzy+8nvfiCxyIm9t4SH6MNBAy9C/CFx7TKvzjkuGhPf73Jt1B9UberWdY9z +UXe6c+CWXQFgyKB5DvVzUXYcR/yP7gDI7K/X033GRfcfLn4P3BYILx2HQr61 +cNHKPXCC2RgIVz6HEMVNXLRGru356vuB0KZ/+tNxbKMup1WiDwNhIan/JIHt +ZuVT8vrvQEiQFVlKx85eHdt56EkgqGc9Fec0cpHSUNnK9teBQD/VCVcbuEhz +r0LOnoVAiD8RTeTf5SJzP25xmjEbrOsGf36v46LCy/xoZ1M2LHqVf32HLdcz +u1nBjA1RFgzhx9hcu4XeYks2tL8ivLOw8/UFlnTZsGEoMWNOH3vFgrSXzA42 +OLClBgJq8XycNVnGCWdDelnY4XfVXLSjbWNv0AE26KdEzbVhPxSw4BgdZMMP +8d0J1diXozebPIphQ+yvxpYj2M5eW/zHE9kg93C1nRZ2g6ZXg/4pNpzbBUKR +VVyU3pQUcq+QDZnDfTFylVwUzrhkHlfMhv5r554vVnCRY0nNMrNSNvjRj2ya +xl5+aaLkbgXun0Rzf4SdFuU6dec2G9xKVYmD2Em6mvvrH+HxzE5p9ZRzUeil +zrDat2w4bOeiWlDGRdtWTFhFDbOh9y7tfRa2TpqAJOM9G3wvMxsOY09EmVTU +jLPhjVr8jT3Y/s6cmepPbCixtvWmYXuKREdU/WCDzPeM8FOlXLQlWimyXJ6A +C2Yda1JLuOgR5/j2rFUE9LzQ+XEQ26prVjNOiYDkfaFTfthGWp39tqoErNa7 +shJhK/Yl2r7RIoA39zjsZzEXTVsMyS83IWBNt2Z0IvY5wesPgtwJMAnSvXOq +CL//eokcp10ETE4UhSdhH/OJi2J6EJAYo2UVgR1323XtojcBChNrVN2w/ckl +mRcDCJCQXv9VCZvZEcD+5yABrHvuC9WFXNSXqSVOzyBArK/HhlvARZVIMvhD +JgHxJD1vFPvYzHxrxXkC+sfOSPZjM7a1JptdIoB5v0qnFTtdIHDWKY+Al79t +XK9i2x+43h9XTsDSSUnCCVtF5S/TzZUEpP7YKMjCnu84cF6omgD0KLXOAvum +NnJKryNAaNNRNx3sX0NDzbcaCdDdsfaoMPZtR+XiZ+0EjLCiipvzuej0D0GR +7A4CfnVPn7iHHVA85e/VRcDTgbOJ1dhSwo3KY88JaFtw5FzHDmvyPPf9XwKy +Vz56fQSbrncxVnOcAGvWgOxW7B99h3o+TuD5ShUztcbuTiOMqj4QUC5JhFlg +J48YT5l/ImClRynNAHsgp8fXZQ7Pf2OEtyx21lJpu4QlJLzLoFeM3sLnweyQ +T4wQCVmWz8KGsCeHSqMiREjQf5pv14dtdZt1PWAZCYHqfTad2BN+cf9tlyaB +m+u9/za2lKOdjJ0sCR+uRMxXYltulNFFNBJiXWoulmBnSJbvZiqSsF6/VZtD +tTe+q1FWJ6GG1PnjNDZZUN5Oo5MgOtHYdpx6PiP+3UotEtadSWYepcYjZSWF +dUnQDbqyO55ql90S/MmIhIL7+p3B2I2/ZVMmGCQsDDtPsrHHPw5fGDYmYY95 +wWp/bIvmhJZeMxJokZ9eemGPhVWqPgAS7IWmwx2xV3gmmty1IUFzpMJ9G7a5 +7VbHGhYJV/IK3Oyx0xXfxxdsJSH1oPE1wL4nXJXB2U5C2rvOiU3Yo7zEosuO +JOx8m7PdEtvsMe3VWVcSOg17fU2xA2reT59wI+Fjl42kMfbZa1WCR3eSkJM9 ++WoD9vuobUaxniTE6PTWGmBL7pXfEulNAs94dZs+lbdt1Dd0Dwlq01fmdan+ +aodO7/Uj4UGr1VVtqp7l2296BpDwS9lPTovK+yLf4MYmYepYYyGdyhsZfe5I +klBNc3TToPK6qifsg0l4+15OQZ2q7+6hXxBKQv6i3Bc1Kv/mdjnLMBLSDzl+ +UqXyzyrom0RghzX9VKHy48as10eS4PjGX5uyBLvGUzeKBM6/KGQ19kaX5AP0 +GBJ+h+z6R5nKt3A4rhJLQiTnpgXlM1qrchXiSPBJWftECfuO1HiddAIJUVJj +kZRH/qvpEE8iwdLz9QbKEpPJIyLJJCR5C0tQNn3p8G0xBa8vxeBFRez/A9Pu +OvM= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -10126,107 +10762,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:eJwV1Xk4VdsbB3CZUijTIYQ4yBDpHGSq9eLQYIzKlDKcvQ0h4bqmqKRuk5BK +A6fBPA+pUP3cuBEqRVdEkanIOSeU6lZ+a/+xn/18nrXXd7177bXWVg844EYI +CggIzOCLuh98Zrj2bvezzdbnubNVt/loMzffJIBVjjrV6TOUhzmm2Zqs+2ic +8fcbyq7sp6ISzH9Qf1v7Q8o1cSktIqwu9PS9+UXKJx+vak4pfYGaj8sFUG7o +Ppj3k/EKZdz11KA8NdCRFN/0Gs3Hi/ZVYiuN032+2g6i5B6Vw5QdeEnm0V3v +UF5Hngrlhz+nxONKR1AeebKqAvvfIwqJdyJGUVHVkAllrihrap4xjhoqr1aX +Y4ueifRiLkygivAWNcqq0rntB5s+INuFnall2M7KXwu5tp9Q5OX6taXY5HUN +eQMxLuroPBZcgp2i5ZK2v4uHmD8f5BZjv1bo3RBT+hmtz44YL8Rme4eGnD8z +izxWTywUYPOvCdyojZhDLaNtv/OxxTQMpD4zviDhxI6PN7Gz2S1bpGhfkUvU +9NMb2GuKvFLWL3xFrQuxhdexzdYd54Y3fUMnRJ4Z52EHm77rmrL9idofJz/O +wZ6P+0N4ufYv1Nby1ekS9uEmcStdsd9okjbw5AJ2DpiVBXUtou0Go3lZVH0F +7ayo0iXw46jgw9PYpY/PDx9RFgT3Q68/nKTqndyblHlGEC51KIn9hZ2k96Wu +OkIIFGfG6MeoeqvU6TyGCFiEne9OxB7o/vTw9y0RsJTpzoun6p+9672CJgod +KMH/T+xyY+csgwVR0B5UaI3Cbm1IWBLWJAa9c0m/g7G/tPS8+2ArAU2bVm11 +x5ZxlJBKfCgB69hTKq7YRr0skDSXhDpP7QlH7NCx+usbDFdAR+egkz12pGCX +0SYJKXD94ZBghj2uUfk57as0WHnHbVGi5ofsWPacKQOdp8VZ8tiCZRPqqw7K +gO15SaYMVS9Tza10Wgb0z+37sAzb2zaj9tmwLDjst6v+VsdHzwOjohU6aXCF +FlHfg/22KP20n5g8eBQq9z/D/jRdeqvETh6CbDbznmAvjxntsWyWBzH3sdn/ +YbOO7TT2q1eAClqzRxl2Y77pl2KOItR9Uc5Jwc4f/xFrEaMCLI8XX1Wwt+46 +8Ta6QgWYN873K1D5rbL2FRMqEKl4oVoa2zh/HW2NlyrsjvawFMFuDdhbJ7JZ +DTLlJluma/loljf854fUNWDK4Ny4gy0bzrpd56QB++KWn7fFnshfHuwaqgF9 +smW/LbHvDXYrzxzXgMkjV/caY+9x9E3VbtaARK2I/zSx8/Vj3S4z6IA+ThWL +YBtPFfGTFTSh0LK9p7WGj3YGiRtsH9GCnNcR4RbYKHYXw+OXFki11WduwNZL +42xkK2oDodFbqoMtcItpk7xDG/LuXG6Sx6546+NR+7c2bLrl7TFbjffn7vIj +SjfXgg9na1wR9j2W079TAbpg8aSIvQz7lvulNwvJupCZu05rsYqP0gNGhoWv +6sIzFc7APDb78B/Tqj26EKbmqjmMLX0/V8DdVg8crBcYd7BDmVy9Jro+DO4X +2eyHraxxLuX02Dq44lIoVV7JR/dPzet+FzQAu7i8aA72njmvXlLdAG4kVjzJ +ws5r1dS12WsAooScSzy2RlDjy299BvDAWvN/dth65eNaZKch1JbamgxW8JGK +siq5xssIUoxjjyyW89G6ghiJ/xADvBr6BtXK+CiAnfrFwJkB4p/VVKSxc+hZ +b/32MEDnQ5ibILbQzarqx3EMkIhVvDZWivdb3tTOrBoG1Ey8KSvGPpnjl6tL +Z0J20OIDQ+yJ046GnqLG4PLk9m1GCR/diNJ0re8ygbNi4oZKRXzUHYs2Hisw +x/tL+MCvG3ykvveVs2/YJpAPjJKyusZHxOKdSpV4ADeLeUWri3ykMH1vqUKA +DRjkzB6QOcdHMUyrwSw9FlhOBs91ncD1z/xsl52yA4E1p2g6h/H3tIleynm+ +Bax8Q6bc/sTrZz707/LsbVBTJeWSG8FH36xXPW1NcQDeiyGyns1HQwJCn0f8 +naDE4Z/Ac958FLH6QMYRuguwWGYlj1z5qDKkvflCmivkWemT3XZ8lDCnuKAf +sgOONuymeVri82O7/e62fW5QWLXe6/F6PjL3ybQe3+EOtnSHl5s0+eilYm5o +K3MnjEpeJ/cp4v9JYer9Yp1d4OPVrZwmidfXsJ6js+Ru+KzXGnNAEP8PevlB +sTO7oWeXj70RD5/zFzLLbw17gGQ87+yLPh7KFZ4zzGrxhKf0LVqbHvHQHev1 +A2kNXiBicnNmQxkP5Ww8Jf2z1BuuOPoeErrAQ8/fFBxnnvGBdNWC3K7DPFTv +dE0z8vAe6HCvfZGwn4c+h7sLRLB9IbZwsGOjJw99sdcN5truBdHWOX8Bex4q +nun/Fm26Dz4XLhpKMnnI80ZBoK+EH9xn+1swNXiortZhn9AJP4D3zXqTUjxk +rvzy+8nvfiCxyIm9t4SH6MNBAy9C/CFx7TKvzjkuGhPf73Jt1B9UberWdY9z +UXe6c+CWXQFgyKB5DvVzUXYcR/yP7gDI7K/X033GRfcfLn4P3BYILx2HQr61 +cNHKPXCC2RgIVz6HEMVNXLRGru356vuB0KZ/+tNxbKMup1WiDwNhIan/JIHt +ZuVT8vrvQEiQFVlKx85eHdt56EkgqGc9Fec0cpHSUNnK9teBQD/VCVcbuEhz +r0LOnoVAiD8RTeTf5SJzP25xmjEbrOsGf36v46LCy/xoZ1M2LHqVf32HLdcz +u1nBjA1RFgzhx9hcu4XeYks2tL8ivLOw8/UFlnTZsGEoMWNOH3vFgrSXzA42 +OLClBgJq8XycNVnGCWdDelnY4XfVXLSjbWNv0AE26KdEzbVhPxSw4BgdZMMP +8d0J1diXozebPIphQ+yvxpYj2M5eW/zHE9kg93C1nRZ2g6ZXg/4pNpzbBUKR +VVyU3pQUcq+QDZnDfTFylVwUzrhkHlfMhv5r554vVnCRY0nNMrNSNvjRj2ya +xl5+aaLkbgXun0Rzf4SdFuU6dec2G9xKVYmD2Em6mvvrH+HxzE5p9ZRzUeil +zrDat2w4bOeiWlDGRdtWTFhFDbOh9y7tfRa2TpqAJOM9G3wvMxsOY09EmVTU +jLPhjVr8jT3Y/s6cmepPbCixtvWmYXuKREdU/WCDzPeM8FOlXLQlWimyXJ6A +C2Yda1JLuOgR5/j2rFUE9LzQ+XEQ26prVjNOiYDkfaFTfthGWp39tqoErNa7 +shJhK/Yl2r7RIoA39zjsZzEXTVsMyS83IWBNt2Z0IvY5wesPgtwJMAnSvXOq +CL//eokcp10ETE4UhSdhH/OJi2J6EJAYo2UVgR1323XtojcBChNrVN2w/ckl +mRcDCJCQXv9VCZvZEcD+5yABrHvuC9WFXNSXqSVOzyBArK/HhlvARZVIMvhD +JgHxJD1vFPvYzHxrxXkC+sfOSPZjM7a1JptdIoB5v0qnFTtdIHDWKY+Al79t +XK9i2x+43h9XTsDSSUnCCVtF5S/TzZUEpP7YKMjCnu84cF6omgD0KLXOAvum +NnJKryNAaNNRNx3sX0NDzbcaCdDdsfaoMPZtR+XiZ+0EjLCiipvzuej0D0GR +7A4CfnVPn7iHHVA85e/VRcDTgbOJ1dhSwo3KY88JaFtw5FzHDmvyPPf9XwKy +Vz56fQSbrncxVnOcAGvWgOxW7B99h3o+TuD5ShUztcbuTiOMqj4QUC5JhFlg +J48YT5l/ImClRynNAHsgp8fXZQ7Pf2OEtyx21lJpu4QlJLzLoFeM3sLnweyQ +T4wQCVmWz8KGsCeHSqMiREjQf5pv14dtdZt1PWAZCYHqfTad2BN+cf9tlyaB +m+u9/za2lKOdjJ0sCR+uRMxXYltulNFFNBJiXWoulmBnSJbvZiqSsF6/VZtD +tTe+q1FWJ6GG1PnjNDZZUN5Oo5MgOtHYdpx6PiP+3UotEtadSWYepcYjZSWF +dUnQDbqyO55ql90S/MmIhIL7+p3B2I2/ZVMmGCQsDDtPsrHHPw5fGDYmYY95 +wWp/bIvmhJZeMxJokZ9eemGPhVWqPgAS7IWmwx2xV3gmmty1IUFzpMJ9G7a5 +7VbHGhYJV/IK3Oyx0xXfxxdsJSH1oPE1wL4nXJXB2U5C2rvOiU3Yo7zEosuO +JOx8m7PdEtvsMe3VWVcSOg17fU2xA2reT59wI+Fjl42kMfbZa1WCR3eSkJM9 ++WoD9vuobUaxniTE6PTWGmBL7pXfEulNAs94dZs+lbdt1Dd0Dwlq01fmdan+ +aodO7/Uj4UGr1VVtqp7l2296BpDwS9lPTovK+yLf4MYmYepYYyGdyhsZfe5I +klBNc3TToPK6qifsg0l4+15OQZ2q7+6hXxBKQv6i3Bc1Kv/mdjnLMBLSDzl+ +UqXyzyrom0RghzX9VKHy48as10eS4PjGX5uyBLvGUzeKBM6/KGQ19kaX5AP0 +GBJ+h+z6R5nKt3A4rhJLQiTnpgXlM1qrchXiSPBJWftECfuO1HiddAIJUVJj +kZRH/qvpEE8iwdLz9QbKEpPJIyLJJCR5C0tQNn3p8G0xBa8vxeBFRez/A9Pu +OvM= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5082122808512877, - 1.8240550855476267`}}, + "PlotRange" -> {{0, 180}, {0.9574098575983914, + 1.0441131104973496`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5082122808512888}, + "AxesOrigin" -> {0, 0.9574098575983935}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -10238,21 +10873,21 @@ jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5082122808512877, - 1.8240550855476267`}}, + "PlotRange" -> {{0, 180}, {0.9574098575983914, + 1.0441131104973496`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5082122808512888}, + "AxesOrigin" -> {0, 0.9574098575983935}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10266,105 +10901,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:eJwV1Xk4VdsbB3CZUijTIYQ4yBDpHGSq9eLQYIzKlDKcvQ0h4bqmqKRuk5BK +A6fBPA+pUP3cuBEqRVdEkanIOSeU6lZ+a/+xn/18nrXXd7177bXWVg844EYI +CggIzOCLuh98Zrj2bvezzdbnubNVt/loMzffJIBVjjrV6TOUhzmm2Zqs+2ic +8fcbyq7sp6ISzH9Qf1v7Q8o1cSktIqwu9PS9+UXKJx+vak4pfYGaj8sFUG7o +Ppj3k/EKZdz11KA8NdCRFN/0Gs3Hi/ZVYiuN032+2g6i5B6Vw5QdeEnm0V3v +UF5Hngrlhz+nxONKR1AeebKqAvvfIwqJdyJGUVHVkAllrihrap4xjhoqr1aX +Y4ueifRiLkygivAWNcqq0rntB5s+INuFnall2M7KXwu5tp9Q5OX6taXY5HUN +eQMxLuroPBZcgp2i5ZK2v4uHmD8f5BZjv1bo3RBT+hmtz44YL8Rme4eGnD8z +izxWTywUYPOvCdyojZhDLaNtv/OxxTQMpD4zviDhxI6PN7Gz2S1bpGhfkUvU +9NMb2GuKvFLWL3xFrQuxhdexzdYd54Y3fUMnRJ4Z52EHm77rmrL9idofJz/O +wZ6P+0N4ufYv1Nby1ekS9uEmcStdsd9okjbw5AJ2DpiVBXUtou0Go3lZVH0F +7ayo0iXw46jgw9PYpY/PDx9RFgT3Q68/nKTqndyblHlGEC51KIn9hZ2k96Wu +OkIIFGfG6MeoeqvU6TyGCFiEne9OxB7o/vTw9y0RsJTpzoun6p+9672CJgod +KMH/T+xyY+csgwVR0B5UaI3Cbm1IWBLWJAa9c0m/g7G/tPS8+2ArAU2bVm11 +x5ZxlJBKfCgB69hTKq7YRr0skDSXhDpP7QlH7NCx+usbDFdAR+egkz12pGCX +0SYJKXD94ZBghj2uUfk57as0WHnHbVGi5ofsWPacKQOdp8VZ8tiCZRPqqw7K +gO15SaYMVS9Tza10Wgb0z+37sAzb2zaj9tmwLDjst6v+VsdHzwOjohU6aXCF +FlHfg/22KP20n5g8eBQq9z/D/jRdeqvETh6CbDbznmAvjxntsWyWBzH3sdn/ +YbOO7TT2q1eAClqzRxl2Y77pl2KOItR9Uc5Jwc4f/xFrEaMCLI8XX1Wwt+46 +8Ta6QgWYN873K1D5rbL2FRMqEKl4oVoa2zh/HW2NlyrsjvawFMFuDdhbJ7JZ +DTLlJluma/loljf854fUNWDK4Ny4gy0bzrpd56QB++KWn7fFnshfHuwaqgF9 +smW/LbHvDXYrzxzXgMkjV/caY+9x9E3VbtaARK2I/zSx8/Vj3S4z6IA+ThWL +YBtPFfGTFTSh0LK9p7WGj3YGiRtsH9GCnNcR4RbYKHYXw+OXFki11WduwNZL +42xkK2oDodFbqoMtcItpk7xDG/LuXG6Sx6546+NR+7c2bLrl7TFbjffn7vIj +SjfXgg9na1wR9j2W079TAbpg8aSIvQz7lvulNwvJupCZu05rsYqP0gNGhoWv +6sIzFc7APDb78B/Tqj26EKbmqjmMLX0/V8DdVg8crBcYd7BDmVy9Jro+DO4X +2eyHraxxLuX02Dq44lIoVV7JR/dPzet+FzQAu7i8aA72njmvXlLdAG4kVjzJ +ws5r1dS12WsAooScSzy2RlDjy299BvDAWvN/dth65eNaZKch1JbamgxW8JGK +siq5xssIUoxjjyyW89G6ghiJ/xADvBr6BtXK+CiAnfrFwJkB4p/VVKSxc+hZ +b/32MEDnQ5ibILbQzarqx3EMkIhVvDZWivdb3tTOrBoG1Ey8KSvGPpnjl6tL +Z0J20OIDQ+yJ046GnqLG4PLk9m1GCR/diNJ0re8ygbNi4oZKRXzUHYs2Hisw +x/tL+MCvG3ykvveVs2/YJpAPjJKyusZHxOKdSpV4ADeLeUWri3ykMH1vqUKA +DRjkzB6QOcdHMUyrwSw9FlhOBs91ncD1z/xsl52yA4E1p2g6h/H3tIleynm+ +Bax8Q6bc/sTrZz707/LsbVBTJeWSG8FH36xXPW1NcQDeiyGyns1HQwJCn0f8 +naDE4Z/Ac958FLH6QMYRuguwWGYlj1z5qDKkvflCmivkWemT3XZ8lDCnuKAf +sgOONuymeVri82O7/e62fW5QWLXe6/F6PjL3ybQe3+EOtnSHl5s0+eilYm5o +K3MnjEpeJ/cp4v9JYer9Yp1d4OPVrZwmidfXsJ6js+Ru+KzXGnNAEP8PevlB +sTO7oWeXj70RD5/zFzLLbw17gGQ87+yLPh7KFZ4zzGrxhKf0LVqbHvHQHev1 +A2kNXiBicnNmQxkP5Ww8Jf2z1BuuOPoeErrAQ8/fFBxnnvGBdNWC3K7DPFTv +dE0z8vAe6HCvfZGwn4c+h7sLRLB9IbZwsGOjJw99sdcN5truBdHWOX8Bex4q +nun/Fm26Dz4XLhpKMnnI80ZBoK+EH9xn+1swNXiortZhn9AJP4D3zXqTUjxk +rvzy+8nvfiCxyIm9t4SH6MNBAy9C/CFx7TKvzjkuGhPf73Jt1B9UberWdY9z +UXe6c+CWXQFgyKB5DvVzUXYcR/yP7gDI7K/X033GRfcfLn4P3BYILx2HQr61 +cNHKPXCC2RgIVz6HEMVNXLRGru356vuB0KZ/+tNxbKMup1WiDwNhIan/JIHt +ZuVT8vrvQEiQFVlKx85eHdt56EkgqGc9Fec0cpHSUNnK9teBQD/VCVcbuEhz +r0LOnoVAiD8RTeTf5SJzP25xmjEbrOsGf36v46LCy/xoZ1M2LHqVf32HLdcz +u1nBjA1RFgzhx9hcu4XeYks2tL8ivLOw8/UFlnTZsGEoMWNOH3vFgrSXzA42 +OLClBgJq8XycNVnGCWdDelnY4XfVXLSjbWNv0AE26KdEzbVhPxSw4BgdZMMP +8d0J1diXozebPIphQ+yvxpYj2M5eW/zHE9kg93C1nRZ2g6ZXg/4pNpzbBUKR +VVyU3pQUcq+QDZnDfTFylVwUzrhkHlfMhv5r554vVnCRY0nNMrNSNvjRj2ya +xl5+aaLkbgXun0Rzf4SdFuU6dec2G9xKVYmD2Em6mvvrH+HxzE5p9ZRzUeil +zrDat2w4bOeiWlDGRdtWTFhFDbOh9y7tfRa2TpqAJOM9G3wvMxsOY09EmVTU +jLPhjVr8jT3Y/s6cmepPbCixtvWmYXuKREdU/WCDzPeM8FOlXLQlWimyXJ6A +C2Yda1JLuOgR5/j2rFUE9LzQ+XEQ26prVjNOiYDkfaFTfthGWp39tqoErNa7 +shJhK/Yl2r7RIoA39zjsZzEXTVsMyS83IWBNt2Z0IvY5wesPgtwJMAnSvXOq +CL//eokcp10ETE4UhSdhH/OJi2J6EJAYo2UVgR1323XtojcBChNrVN2w/ckl +mRcDCJCQXv9VCZvZEcD+5yABrHvuC9WFXNSXqSVOzyBArK/HhlvARZVIMvhD +JgHxJD1vFPvYzHxrxXkC+sfOSPZjM7a1JptdIoB5v0qnFTtdIHDWKY+Al79t +XK9i2x+43h9XTsDSSUnCCVtF5S/TzZUEpP7YKMjCnu84cF6omgD0KLXOAvum +NnJKryNAaNNRNx3sX0NDzbcaCdDdsfaoMPZtR+XiZ+0EjLCiipvzuej0D0GR +7A4CfnVPn7iHHVA85e/VRcDTgbOJ1dhSwo3KY88JaFtw5FzHDmvyPPf9XwKy +Vz56fQSbrncxVnOcAGvWgOxW7B99h3o+TuD5ShUztcbuTiOMqj4QUC5JhFlg +J48YT5l/ImClRynNAHsgp8fXZQ7Pf2OEtyx21lJpu4QlJLzLoFeM3sLnweyQ +T4wQCVmWz8KGsCeHSqMiREjQf5pv14dtdZt1PWAZCYHqfTad2BN+cf9tlyaB +m+u9/za2lKOdjJ0sCR+uRMxXYltulNFFNBJiXWoulmBnSJbvZiqSsF6/VZtD +tTe+q1FWJ6GG1PnjNDZZUN5Oo5MgOtHYdpx6PiP+3UotEtadSWYepcYjZSWF +dUnQDbqyO55ql90S/MmIhIL7+p3B2I2/ZVMmGCQsDDtPsrHHPw5fGDYmYY95 +wWp/bIvmhJZeMxJokZ9eemGPhVWqPgAS7IWmwx2xV3gmmty1IUFzpMJ9G7a5 +7VbHGhYJV/IK3Oyx0xXfxxdsJSH1oPE1wL4nXJXB2U5C2rvOiU3Yo7zEosuO +JOx8m7PdEtvsMe3VWVcSOg17fU2xA2reT59wI+Fjl42kMfbZa1WCR3eSkJM9 ++WoD9vuobUaxniTE6PTWGmBL7pXfEulNAs94dZs+lbdt1Dd0Dwlq01fmdan+ +aodO7/Uj4UGr1VVtqp7l2296BpDwS9lPTovK+yLf4MYmYepYYyGdyhsZfe5I +klBNc3TToPK6qifsg0l4+15OQZ2q7+6hXxBKQv6i3Bc1Kv/mdjnLMBLSDzl+ +UqXyzyrom0RghzX9VKHy48as10eS4PjGX5uyBLvGUzeKBM6/KGQ19kaX5AP0 +GBJ+h+z6R5nKt3A4rhJLQiTnpgXlM1qrchXiSPBJWftECfuO1HiddAIJUVJj +kZRH/qvpEE8iwdLz9QbKEpPJIyLJJCR5C0tQNn3p8G0xBa8vxeBFRez/A9Pu +OvM= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5082122808512877, 1.8240550855476267`}}, + "PlotRange" -> {{0, 180}, {0.9574098575983914, 1.0441131104973496`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5082122808512888}, + "AxesOrigin" -> {0, 0.9574098575983935}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10374,7 +11008,8 @@ jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.5082122808512888}, + AxesOrigin->{0, 0.9574098575983935}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -10402,7 +11037,8 @@ jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.5082122808512877, 1.8240550855476267`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.9574098575983914, 1.0441131104973496`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -10410,9 +11046,9 @@ jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913242457281837`*^9}, + CellChangeTimes->{3.9913242457281837`*^9, 3.993960539241609*^9}, CellLabel-> - "Out[111]=",ExpressionUUID->"02187549-f2f0-9c4d-81fc-d12919ea7802"] + "Out[230]=",ExpressionUUID->"52c22aed-c647-40dc-acd3-7678ca8f9ad8"] }, Open ]], Cell[CellGroupData[{ @@ -10475,158 +11111,158 @@ 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[231]:=",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[\\\"2.1256638575790646`*^-278\\\", \ +\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 231, + 49, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991324246104725*^9, 3.9939605393970757`*^9}, CellLabel-> "During evaluation of \ -In[112]:=",ExpressionUUID->"75033ea5-32d5-4445-bfb0-a981507a2e9a"], +In[231]:=",ExpressionUUID->"3c2b6c3e-ab94-432b-a8d7-898b80709076"], 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}, + "\"\\!\\(\\*FractionBox[\\\"1.2734864565971235`*^-291\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 231, + 50, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991324246104725*^9, 3.993960539404315*^9}, CellLabel-> "During evaluation of \ -In[112]:=",ExpressionUUID->"bc53c85b-e7c9-be4a-8ed4-30975f08af5c"], +In[231]:=",ExpressionUUID->"9c1983a0-c6ca-42cd-898e-86e5ed8770b2"], 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}, + "\"\\!\\(\\*FractionBox[\\\"7.629464787453934`*^-305\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 231, + 51, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991324246104725*^9, 3.9939605394116077`*^9}, CellLabel-> "During evaluation of \ -In[112]:=",ExpressionUUID->"e09d101b-c5d3-424f-aab9-c5788f3b9ef6"], +In[231]:=",ExpressionUUID->"0e130ab8-c9d8-4902-b72c-25716b3d64ce"], 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, 231, 52, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991324246104725*^9, 3.993960539417927*^9}, CellLabel-> "During evaluation of \ -In[112]:=",ExpressionUUID->"28f777a6-eb27-df49-a698-bd7806baa94c"], +In[231]:=",ExpressionUUID->"d3dcd190-3148-41bb-bb84-b4a08fa2317a"], 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:eJwV13k0VV8bB/BKiZJEmYd7z72GQoZ0S1zPQyVDk0pFCUlCKCGUMmT6UZmT +hAxF4h5DhiiFSkKTMk/NKSIhGrz7/eOsuz5r33XOfvZ69nefwzzoscNxzqxZ +s/6S6/+/E71P6tlR2QZXdpYtlNcyMGhNk/QzbA+G7vOa9dNFMoDLnh2UbI8D +0dwz1VVFquCz/WYbX3smhPzLHI8r0oMlwxJxU23F4CrvFWZVZA591Vs9frbV +gv7DmMxceh8Yswd7RtteQk2Oyo2ZAleYaluTONL2Fh66aZx0zToFdetvZL/I +HIMW51z+panRINtX+fGg2l+44HXRZa1AIiw9antz/no+9PscYVBkfwXitIyr +tloKYO72eHfezwzoSNa8PyqyCI+LXhmsacqCqOyzz+ZILUFxHSsjpYzrIJHw +LjL+qhje77vds1M2D8J3mRq8nFiGcspJ+iuU8kG6tEV6zmxxfMzul3JYmQ+F +YrsmtRaK4xb33OQkTj68eXmAjlUQxznTb3yGjPOBbeFFWZiIY28v3xVrp3yo +3ZLO//yyOCrzM0q0buTDX+PxlmZ9Cbyr3zCnmboFJ3Sv2T4JlsSKI3GfowUL +wCxD+Kd5tCRO6kysHVtcANT80xEtiZLYrRdXtEu8AJ637i56lSuJVUVVUoKs +Alh5TIivt0USN9yWubNGvwA+Xz95/Ye0FN7aeWMg360A9i/dOiRTIoV1BVzj +oaYCWHWqKiitWgotro8OlL8sgAVvVcSZj6Rw2/GbKQHtBVDJ4wOlDilUvCB7 +cPpdAYibV8Zozkih8ddBw8pp8vwgts5Gc2mE6Xsim5ULYcP3aX/3d9K4WcM9 +uv50IfiZJKx48E0a03t7LNuDCqHwmnqn2IQ0WntbOX0KKwTJXXa6lQIyGL5a +7OBkTCF8q3g4ybdSBmN7VUt7swshPjjG67KvDP42LapqfFoIb5cpudcvkkX1 +im2ykuI8kPCokZOQkMX+0cyWBGkebG7Y2+zMkMUbn/QahBR4UOYfpbZ4lSzu +U/aOHVbmwX99I4NWe2VxwcoHAX66PNDOq3L6nimL5wo9n93ax4MgfQt76bVy +mPMtjflfKg9MDqT9WGMkhyfLcsPqM3ggHPg1xHKzHFYP77WfyuZBal3o9Rg7 +OeQJ8Xx3FPCgwuzOV/5IOeTkp3Bq7/JgZC/LZ6xDDjW12zWSe3hwwHv8v6ZT +8jhPxpUTI0SD4iUj2cFQebRg3RCxFKZJ/RcL5sfIY5uznqqECA3+f5Y/N8qW +x4FH26l4MRoSQw4sq2ySx20lifIu0jQ0xT5Oz5FTwNkla0MTlGlYV3i59EyN +AraHp/V1Aw0b2lr+DjcoYHyi/HstQxq2zpq7yfalAnY7OkedM6LBYYd7B3xQ +QFcXxzpqIw3Gp5hnA+cx0CEA+43MaDimMJFlqMrArqlkQdFdNIyXxDRMaTBw +ZGGataElmZ+J6lCRDgNzLz7c4b6bhtDjdhzKgIGsR9m6D/bSkFLX2DDHgoET +/X1fzGxoqHdKH6rzYaBnyyeJYUcaTP/oip4+xcAZ7V//Jg/T0BLTytEJZKCj +mlDcjBMNHZWCgdmRDDRPi7w734WG4YVeoqGpDLT9PWfVHzcaJGmTNca1DHQP ++fTW25uGqxve7fv3iIFndOcXW/vQQHUEBJY9ZeC8W7Ha3JM0qM8peaL0moFz +oneY/valwWiX3P75nxnIEI5v23eahqO/RgMbFjHRt1/9SWEwWc/jh8U/ijKR +zT7XfyaEBoHBznw+SSbmewyabD5HQ05X3RsDionydJ9wXygNvfcS1W5zmFgz +dCDgfQQNt9YsqH2px8Sb1ZRqeiRZL/rMnhFkIsdmSn3PfzSIZzoFq5oz0dt8 +SKcmioZtobrt12yZ6NDnu9vjAg3y/wrcag4x8Uj4nqqlF0l/+FB8Pc5MDGvy +8SsnjjiycKWkFxMHeCl84zE03DfvCbkQwcQN+okHtsfToC0apHGqiIn7Zzve +jLhEw6yo8frkMiZqO7x4z5dM1pvPxbqsiokmwnuDThO7ju8IHX3IxJY1s985 +XqYhu53d5dTJxEnGbCupKzR4Wlw+FtrHxJFUv9KzxNi4iD/rPRO7ast83hH3 +VE1o9g4zEdT7tbJSSX3pDWG7+Cj0W3snni+NhvcSXFlPAQr5beQ5lsTFMUVF +FxdRqH5BakM28bbglO5GCQpl/prmrEsn9f8W9vwsS+Hq1VVTQcTfToTM56co +bHTTq35EHOF4VNtQjcL4c5/Om2TQsLu3//EBLQq71uxKCyVm77G0Oc2hcCrB +QuE+8X0Tg4hypPBXQpi3+jUaLjwolnu9kcKZTr7NdsT71ymX/DCjcK/I1cQY +4ilVkV51Swq7ZW6f+0I8cVU6aJU1hf/GBE4syaTh52JFtq4thbI2V4Y5xKNB +Go8NDlGYNXfBLyvi4TFdlw3OFJ5mjV30J/7quGGRmTuFeQHjZcnEn9u20ttO +UDhhT7uVEn8wtdpp6UthYF5daTPx2yqHCesACk+WP4t+T9yn7n7ZLpjCa77e +E7+Iu9N99Q+HU7jEYfePBVlkvywJ6XONpvCO99IgaeI3IeeDj8eS+a3dkaVM +/Gr8kuLJJArbK4uttImfO2U2nL5CoXVcR/Y64uaOW67BGRT69LuEInGjeblw +RA6F880W/llP/Pjug6LzNymM/W0ruJG4XqNpVzyPwnc3hAv/P/7g2pvJ5FIK +y8PvDgLxPbGBlLRKCk2txO7rEleFfuVm36OQz658pRZxxeR4f14dhaKHLNYo +Ed92nnWO10ChSHFkpyRxcdcC5dvNFF6RFpQSJOZtWdZ45yWFk6O+YxOk/ls1 +Cm732ygsWBzi8pY4T2uFyKNu0k8tL848Jb6epVPydIDCQwtEtIqJs5bB7hcf +KTzC+hKURJwRbjr15iuFAtMCnr7EKa4H4O04qedLi/Zq4ks9R95+mqZQ3OzZ +XBHihG0nQodmKBQbb/T9/P/+WRXx9JcgC3evczeNI47KiXP/J8xCc2mvGw7E +ERJXl8xdysLiZ1o3tYmDfxftWSzPwi1lSRlPSD+edaueXspi4U2FjMRY4tN9 +j65Kq7BwYYui9h5in7qud4raLNR/4nGoi/S7a9S8Y/rGLNScl/bgMdkvR/4u +FjMyZ6HehCJ/APFhD+myTdtZuH9P46QGsd1OjT87rFk4mGT44cJVGnbJWEU4 +u7PQuOLnH02yPy3OO6h6nGBhdKDTvVdk/26dcWvx8mWhydbb2l7EJu+ClwYG +s1Cc2cgpTKFBP/9WRlISC318zB/wk3zoYuSnb7zCwn6bTQ/TSH74J+Wl/Uxn +4TeZT806xOVB11N35LHwvL3fd2uSP9p7M5KFq8n/f7acu5hIw/J5CTFhAyx8 +NRMWmBJLQ4N/3MXVH0l9t6IlxIgPj8RceD/IwljJ6epIkm/ZXeejjX6ycKog +YvVxkn+M4vCIf/xs/KI1PKxynuSN7alAHzU2KtXSi/VJ/t5u9TurqMXGV5+O +tyeGk/rNfM+0rmbjgoiiyqEwGuJWe5/WBja+aNRvuETye5GQh++wBRvr9kco +vyb5P7fy4LHDJ9nY/EwicJycD6OiZna7a9noIZ2q9cKDhvaj1HOXx2x09huQ +6XYn+fJoGs42sdHwX9jAe3I+xfjnK+S+YaOBidOcEVcaNN8K9U0NsvGwQV3x +N3K+uRc9s7kqpoiXF2+NDbSlYXCb5b73hxSxY73nCcktNLzMU3/6y1kRveKl +AvrNabjDx6+3yEMR7cO8zlwn53NkeZk0x08R67Z/dFUzoUFFQbIz/LwiLp6t +vZCxngan4c69qmWKmPxUW+XGWpK/0Xa7Pecr4VXos9CjyPMH1ShNISXMeJyn +0sOgYXLT1NCQiBIWKXzZGaBAwwK+uFBnaSVc1NJ2s0KWzN+vrtROXQkjlX57 +yEjQEOCoJLZtpxI+CVafG7eQrL/Bt2eq6Uo44+4SGfuRB6bfT5p+4CgjLdjk +veQ0D2S15MME9JUxtydLHX15MOxZX6tqqIwbO1SOuXrxIGFCRN/TXBm1nnte +LT/Kg96/eStnbJWxZH/OSyUbHngKdYtJRSpj2sso74NcHqQsx97NXcr4iY6V +s/lN3h8dBE6UnlVBxcbJV61uheR7QmJOeO1ynFUorZ/NKQDRZqUL9PcVmLvM +LNfrRz7IRvC2czhqeMByarLY+yYkq+qKiDmp42v1I9VJf3OhUdpw9VjsSlwx +8FqIPnsD1snWxmi80cDotkMuwh05IMyX6WUfrIm1o66CBzdng3yQgr6VkhYK +bkotuXQtEwQV95fteKyFnR+6Q+7yX4OVXCneSRtttCl+psNVTAfPXtE6s1mr +8FtozkpDuVT4PhZtaZq8Cpf30oZ6rpdhk8ajFFN1Hdzg1/qvZDAJ7o3p/Z5s +0cGp+sbZPQcSwF1Nu/OF42qs/ZeeI7g8DrjDh1qtBDloY8KbpD9chI1syS2L +MjlY3dj0Q1kuGlQC//OtXbMG7Zr1HzyqjIAVjro1ip1rsFvZa6HD4VBwvHfk +XOnxtahuFfXFKzUYajJaD40u00UbMZHl+1vPws/cmUmNcl1kbXePAOVT4KCY +L5iyZR3OXHt1tG3LSRhdEc8pHlmH3QLpx9k5J6Ai+/fAeIQeTkxPHC/PPwbW +G0hWyeujYPPBIp7RUZBxC69ceV8fm6rLfogFOcGyBUeLtuzhYkM4T8SsxAGy +1wf4j1hxsd//tWpSlgNoB1xYH7+fi+9KvogOxTvA1hH6dbs9F+OORKhXeTlA +2JvxKYejXJR/QI+2cRzgV+ZZI/8gLtrbzmQJ3z0InXrxr67nc9F9xijQ5IU9 +HPHOTjUt5KLAsoSht7X2MFF42/EbzUWrXxc9wkvtQZRqn9Qq42KAo+SV4Uv2 +YC4gJ3v3PhdrxOrHdGztobr1+qFXr8l43/am1O92YCZcoe7TzsV8L75Prwfs +oH3TkwnJLjLOOXlXstUOft75GnGgn4tKWbnhVRV2oH5Ns+DLIBcFzRsmvYLt +oLrT0Cd6iIuprkJ7fnuR+y3dCRojXFy3aJtxlJMdHA73fuE1zkUVUdGax5vJ +/e6HpUj84uK5TRVcL7CD4OlLDnemyfpk5nJWaNuBiE6ems1fLorW+md/YdtB +mtud8ZkZLp5XbAgqlrCD/wFvkUNy "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -10640,117 +11276,113 @@ 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:eJwV13k0VV8bB/BKiZJEmYd7z72GQoZ0S1zPQyVDk0pFCUlCKCGUMmT6UZmT +hAxF4h5DhiiFSkKTMk/NKSIhGrz7/eOsuz5r33XOfvZ69nefwzzoscNxzqxZ +s/6S6/+/E71P6tlR2QZXdpYtlNcyMGhNk/QzbA+G7vOa9dNFMoDLnh2UbI8D +0dwz1VVFquCz/WYbX3smhPzLHI8r0oMlwxJxU23F4CrvFWZVZA591Vs9frbV +gv7DmMxceh8Yswd7RtteQk2Oyo2ZAleYaluTONL2Fh66aZx0zToFdetvZL/I +HIMW51z+panRINtX+fGg2l+44HXRZa1AIiw9antz/no+9PscYVBkfwXitIyr +tloKYO72eHfezwzoSNa8PyqyCI+LXhmsacqCqOyzz+ZILUFxHSsjpYzrIJHw +LjL+qhje77vds1M2D8J3mRq8nFiGcspJ+iuU8kG6tEV6zmxxfMzul3JYmQ+F +YrsmtRaK4xb33OQkTj68eXmAjlUQxznTb3yGjPOBbeFFWZiIY28v3xVrp3yo +3ZLO//yyOCrzM0q0buTDX+PxlmZ9Cbyr3zCnmboFJ3Sv2T4JlsSKI3GfowUL +wCxD+Kd5tCRO6kysHVtcANT80xEtiZLYrRdXtEu8AJ637i56lSuJVUVVUoKs +Alh5TIivt0USN9yWubNGvwA+Xz95/Ye0FN7aeWMg360A9i/dOiRTIoV1BVzj +oaYCWHWqKiitWgotro8OlL8sgAVvVcSZj6Rw2/GbKQHtBVDJ4wOlDilUvCB7 +cPpdAYibV8Zozkih8ddBw8pp8vwgts5Gc2mE6Xsim5ULYcP3aX/3d9K4WcM9 +uv50IfiZJKx48E0a03t7LNuDCqHwmnqn2IQ0WntbOX0KKwTJXXa6lQIyGL5a +7OBkTCF8q3g4ybdSBmN7VUt7swshPjjG67KvDP42LapqfFoIb5cpudcvkkX1 +im2ykuI8kPCokZOQkMX+0cyWBGkebG7Y2+zMkMUbn/QahBR4UOYfpbZ4lSzu +U/aOHVbmwX99I4NWe2VxwcoHAX66PNDOq3L6nimL5wo9n93ax4MgfQt76bVy +mPMtjflfKg9MDqT9WGMkhyfLcsPqM3ggHPg1xHKzHFYP77WfyuZBal3o9Rg7 +OeQJ8Xx3FPCgwuzOV/5IOeTkp3Bq7/JgZC/LZ6xDDjW12zWSe3hwwHv8v6ZT +8jhPxpUTI0SD4iUj2cFQebRg3RCxFKZJ/RcL5sfIY5uznqqECA3+f5Y/N8qW +x4FH26l4MRoSQw4sq2ySx20lifIu0jQ0xT5Oz5FTwNkla0MTlGlYV3i59EyN +AraHp/V1Aw0b2lr+DjcoYHyi/HstQxq2zpq7yfalAnY7OkedM6LBYYd7B3xQ +QFcXxzpqIw3Gp5hnA+cx0CEA+43MaDimMJFlqMrArqlkQdFdNIyXxDRMaTBw +ZGGataElmZ+J6lCRDgNzLz7c4b6bhtDjdhzKgIGsR9m6D/bSkFLX2DDHgoET +/X1fzGxoqHdKH6rzYaBnyyeJYUcaTP/oip4+xcAZ7V//Jg/T0BLTytEJZKCj +mlDcjBMNHZWCgdmRDDRPi7w734WG4YVeoqGpDLT9PWfVHzcaJGmTNca1DHQP ++fTW25uGqxve7fv3iIFndOcXW/vQQHUEBJY9ZeC8W7Ha3JM0qM8peaL0moFz +oneY/valwWiX3P75nxnIEI5v23eahqO/RgMbFjHRt1/9SWEwWc/jh8U/ijKR +zT7XfyaEBoHBznw+SSbmewyabD5HQ05X3RsDionydJ9wXygNvfcS1W5zmFgz +dCDgfQQNt9YsqH2px8Sb1ZRqeiRZL/rMnhFkIsdmSn3PfzSIZzoFq5oz0dt8 +SKcmioZtobrt12yZ6NDnu9vjAg3y/wrcag4x8Uj4nqqlF0l/+FB8Pc5MDGvy +8SsnjjiycKWkFxMHeCl84zE03DfvCbkQwcQN+okHtsfToC0apHGqiIn7Zzve +jLhEw6yo8frkMiZqO7x4z5dM1pvPxbqsiokmwnuDThO7ju8IHX3IxJY1s985 +XqYhu53d5dTJxEnGbCupKzR4Wlw+FtrHxJFUv9KzxNi4iD/rPRO7ast83hH3 +VE1o9g4zEdT7tbJSSX3pDWG7+Cj0W3snni+NhvcSXFlPAQr5beQ5lsTFMUVF +FxdRqH5BakM28bbglO5GCQpl/prmrEsn9f8W9vwsS+Hq1VVTQcTfToTM56co +bHTTq35EHOF4VNtQjcL4c5/Om2TQsLu3//EBLQq71uxKCyVm77G0Oc2hcCrB +QuE+8X0Tg4hypPBXQpi3+jUaLjwolnu9kcKZTr7NdsT71ymX/DCjcK/I1cQY +4ilVkV51Swq7ZW6f+0I8cVU6aJU1hf/GBE4syaTh52JFtq4thbI2V4Y5xKNB +Go8NDlGYNXfBLyvi4TFdlw3OFJ5mjV30J/7quGGRmTuFeQHjZcnEn9u20ttO +UDhhT7uVEn8wtdpp6UthYF5daTPx2yqHCesACk+WP4t+T9yn7n7ZLpjCa77e +E7+Iu9N99Q+HU7jEYfePBVlkvywJ6XONpvCO99IgaeI3IeeDj8eS+a3dkaVM +/Gr8kuLJJArbK4uttImfO2U2nL5CoXVcR/Y64uaOW67BGRT69LuEInGjeblw +RA6F880W/llP/Pjug6LzNymM/W0ruJG4XqNpVzyPwnc3hAv/P/7g2pvJ5FIK +y8PvDgLxPbGBlLRKCk2txO7rEleFfuVm36OQz658pRZxxeR4f14dhaKHLNYo +Ed92nnWO10ChSHFkpyRxcdcC5dvNFF6RFpQSJOZtWdZ45yWFk6O+YxOk/ls1 +Cm732ygsWBzi8pY4T2uFyKNu0k8tL848Jb6epVPydIDCQwtEtIqJs5bB7hcf +KTzC+hKURJwRbjr15iuFAtMCnr7EKa4H4O04qedLi/Zq4ks9R95+mqZQ3OzZ +XBHihG0nQodmKBQbb/T9/P/+WRXx9JcgC3evczeNI47KiXP/J8xCc2mvGw7E +ERJXl8xdysLiZ1o3tYmDfxftWSzPwi1lSRlPSD+edaueXspi4U2FjMRY4tN9 +j65Kq7BwYYui9h5in7qud4raLNR/4nGoi/S7a9S8Y/rGLNScl/bgMdkvR/4u +FjMyZ6HehCJ/APFhD+myTdtZuH9P46QGsd1OjT87rFk4mGT44cJVGnbJWEU4 +u7PQuOLnH02yPy3OO6h6nGBhdKDTvVdk/26dcWvx8mWhydbb2l7EJu+ClwYG +s1Cc2cgpTKFBP/9WRlISC318zB/wk3zoYuSnb7zCwn6bTQ/TSH74J+Wl/Uxn +4TeZT806xOVB11N35LHwvL3fd2uSP9p7M5KFq8n/f7acu5hIw/J5CTFhAyx8 +NRMWmBJLQ4N/3MXVH0l9t6IlxIgPj8RceD/IwljJ6epIkm/ZXeejjX6ycKog +YvVxkn+M4vCIf/xs/KI1PKxynuSN7alAHzU2KtXSi/VJ/t5u9TurqMXGV5+O +tyeGk/rNfM+0rmbjgoiiyqEwGuJWe5/WBja+aNRvuETye5GQh++wBRvr9kco +vyb5P7fy4LHDJ9nY/EwicJycD6OiZna7a9noIZ2q9cKDhvaj1HOXx2x09huQ +6XYn+fJoGs42sdHwX9jAe3I+xfjnK+S+YaOBidOcEVcaNN8K9U0NsvGwQV3x +N3K+uRc9s7kqpoiXF2+NDbSlYXCb5b73hxSxY73nCcktNLzMU3/6y1kRveKl +AvrNabjDx6+3yEMR7cO8zlwn53NkeZk0x08R67Z/dFUzoUFFQbIz/LwiLp6t +vZCxngan4c69qmWKmPxUW+XGWpK/0Xa7Pecr4VXos9CjyPMH1ShNISXMeJyn +0sOgYXLT1NCQiBIWKXzZGaBAwwK+uFBnaSVc1NJ2s0KWzN+vrtROXQkjlX57 +yEjQEOCoJLZtpxI+CVafG7eQrL/Bt2eq6Uo44+4SGfuRB6bfT5p+4CgjLdjk +veQ0D2S15MME9JUxtydLHX15MOxZX6tqqIwbO1SOuXrxIGFCRN/TXBm1nnte +LT/Kg96/eStnbJWxZH/OSyUbHngKdYtJRSpj2sso74NcHqQsx97NXcr4iY6V +s/lN3h8dBE6UnlVBxcbJV61uheR7QmJOeO1ynFUorZ/NKQDRZqUL9PcVmLvM +LNfrRz7IRvC2czhqeMByarLY+yYkq+qKiDmp42v1I9VJf3OhUdpw9VjsSlwx +8FqIPnsD1snWxmi80cDotkMuwh05IMyX6WUfrIm1o66CBzdng3yQgr6VkhYK +bkotuXQtEwQV95fteKyFnR+6Q+7yX4OVXCneSRtttCl+psNVTAfPXtE6s1mr +8FtozkpDuVT4PhZtaZq8Cpf30oZ6rpdhk8ajFFN1Hdzg1/qvZDAJ7o3p/Z5s +0cGp+sbZPQcSwF1Nu/OF42qs/ZeeI7g8DrjDh1qtBDloY8KbpD9chI1syS2L +MjlY3dj0Q1kuGlQC//OtXbMG7Zr1HzyqjIAVjro1ip1rsFvZa6HD4VBwvHfk +XOnxtahuFfXFKzUYajJaD40u00UbMZHl+1vPws/cmUmNcl1kbXePAOVT4KCY +L5iyZR3OXHt1tG3LSRhdEc8pHlmH3QLpx9k5J6Ai+/fAeIQeTkxPHC/PPwbW +G0hWyeujYPPBIp7RUZBxC69ceV8fm6rLfogFOcGyBUeLtuzhYkM4T8SsxAGy +1wf4j1hxsd//tWpSlgNoB1xYH7+fi+9KvogOxTvA1hH6dbs9F+OORKhXeTlA +2JvxKYejXJR/QI+2cRzgV+ZZI/8gLtrbzmQJ3z0InXrxr67nc9F9xijQ5IU9 +HPHOTjUt5KLAsoSht7X2MFF42/EbzUWrXxc9wkvtQZRqn9Qq42KAo+SV4Uv2 +YC4gJ3v3PhdrxOrHdGztobr1+qFXr8l43/am1O92YCZcoe7TzsV8L75Prwfs +oH3TkwnJLjLOOXlXstUOft75GnGgn4tKWbnhVRV2oH5Ns+DLIBcFzRsmvYLt +oLrT0Cd6iIuprkJ7fnuR+y3dCRojXFy3aJtxlJMdHA73fuE1zkUVUdGax5vJ +/e6HpUj84uK5TRVcL7CD4OlLDnemyfpk5nJWaNuBiE6ems1fLorW+md/YdtB +mtud8ZkZLp5XbAgqlrCD/wFvkUNy "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "PlotRange" -> {{0, 30}, {0., 0.06499129752044853}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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" -> @@ -10762,19 +11394,19 @@ uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "PlotRange" -> {{0, 30}, {0., 0.06499129752044853}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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|>, @@ -10788,116 +11420,112 @@ 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:eJwV13k0VV8bB/BKiZJEmYd7z72GQoZ0S1zPQyVDk0pFCUlCKCGUMmT6UZmT +hAxF4h5DhiiFSkKTMk/NKSIhGrz7/eOsuz5r33XOfvZ69nefwzzoscNxzqxZ +s/6S6/+/E71P6tlR2QZXdpYtlNcyMGhNk/QzbA+G7vOa9dNFMoDLnh2UbI8D +0dwz1VVFquCz/WYbX3smhPzLHI8r0oMlwxJxU23F4CrvFWZVZA591Vs9frbV +gv7DmMxceh8Yswd7RtteQk2Oyo2ZAleYaluTONL2Fh66aZx0zToFdetvZL/I +HIMW51z+panRINtX+fGg2l+44HXRZa1AIiw9antz/no+9PscYVBkfwXitIyr +tloKYO72eHfezwzoSNa8PyqyCI+LXhmsacqCqOyzz+ZILUFxHSsjpYzrIJHw +LjL+qhje77vds1M2D8J3mRq8nFiGcspJ+iuU8kG6tEV6zmxxfMzul3JYmQ+F +YrsmtRaK4xb33OQkTj68eXmAjlUQxznTb3yGjPOBbeFFWZiIY28v3xVrp3yo +3ZLO//yyOCrzM0q0buTDX+PxlmZ9Cbyr3zCnmboFJ3Sv2T4JlsSKI3GfowUL +wCxD+Kd5tCRO6kysHVtcANT80xEtiZLYrRdXtEu8AJ637i56lSuJVUVVUoKs +Alh5TIivt0USN9yWubNGvwA+Xz95/Ye0FN7aeWMg360A9i/dOiRTIoV1BVzj +oaYCWHWqKiitWgotro8OlL8sgAVvVcSZj6Rw2/GbKQHtBVDJ4wOlDilUvCB7 +cPpdAYibV8Zozkih8ddBw8pp8vwgts5Gc2mE6Xsim5ULYcP3aX/3d9K4WcM9 +uv50IfiZJKx48E0a03t7LNuDCqHwmnqn2IQ0WntbOX0KKwTJXXa6lQIyGL5a +7OBkTCF8q3g4ybdSBmN7VUt7swshPjjG67KvDP42LapqfFoIb5cpudcvkkX1 +im2ykuI8kPCokZOQkMX+0cyWBGkebG7Y2+zMkMUbn/QahBR4UOYfpbZ4lSzu +U/aOHVbmwX99I4NWe2VxwcoHAX66PNDOq3L6nimL5wo9n93ax4MgfQt76bVy +mPMtjflfKg9MDqT9WGMkhyfLcsPqM3ggHPg1xHKzHFYP77WfyuZBal3o9Rg7 +OeQJ8Xx3FPCgwuzOV/5IOeTkp3Bq7/JgZC/LZ6xDDjW12zWSe3hwwHv8v6ZT +8jhPxpUTI0SD4iUj2cFQebRg3RCxFKZJ/RcL5sfIY5uznqqECA3+f5Y/N8qW +x4FH26l4MRoSQw4sq2ySx20lifIu0jQ0xT5Oz5FTwNkla0MTlGlYV3i59EyN +AraHp/V1Aw0b2lr+DjcoYHyi/HstQxq2zpq7yfalAnY7OkedM6LBYYd7B3xQ +QFcXxzpqIw3Gp5hnA+cx0CEA+43MaDimMJFlqMrArqlkQdFdNIyXxDRMaTBw +ZGGataElmZ+J6lCRDgNzLz7c4b6bhtDjdhzKgIGsR9m6D/bSkFLX2DDHgoET +/X1fzGxoqHdKH6rzYaBnyyeJYUcaTP/oip4+xcAZ7V//Jg/T0BLTytEJZKCj +mlDcjBMNHZWCgdmRDDRPi7w734WG4YVeoqGpDLT9PWfVHzcaJGmTNca1DHQP ++fTW25uGqxve7fv3iIFndOcXW/vQQHUEBJY9ZeC8W7Ha3JM0qM8peaL0moFz +oneY/valwWiX3P75nxnIEI5v23eahqO/RgMbFjHRt1/9SWEwWc/jh8U/ijKR +zT7XfyaEBoHBznw+SSbmewyabD5HQ05X3RsDionydJ9wXygNvfcS1W5zmFgz +dCDgfQQNt9YsqH2px8Sb1ZRqeiRZL/rMnhFkIsdmSn3PfzSIZzoFq5oz0dt8 +SKcmioZtobrt12yZ6NDnu9vjAg3y/wrcag4x8Uj4nqqlF0l/+FB8Pc5MDGvy +8SsnjjiycKWkFxMHeCl84zE03DfvCbkQwcQN+okHtsfToC0apHGqiIn7Zzve +jLhEw6yo8frkMiZqO7x4z5dM1pvPxbqsiokmwnuDThO7ju8IHX3IxJY1s985 +XqYhu53d5dTJxEnGbCupKzR4Wlw+FtrHxJFUv9KzxNi4iD/rPRO7ast83hH3 +VE1o9g4zEdT7tbJSSX3pDWG7+Cj0W3snni+NhvcSXFlPAQr5beQ5lsTFMUVF +FxdRqH5BakM28bbglO5GCQpl/prmrEsn9f8W9vwsS+Hq1VVTQcTfToTM56co +bHTTq35EHOF4VNtQjcL4c5/Om2TQsLu3//EBLQq71uxKCyVm77G0Oc2hcCrB +QuE+8X0Tg4hypPBXQpi3+jUaLjwolnu9kcKZTr7NdsT71ymX/DCjcK/I1cQY +4ilVkV51Swq7ZW6f+0I8cVU6aJU1hf/GBE4syaTh52JFtq4thbI2V4Y5xKNB +Go8NDlGYNXfBLyvi4TFdlw3OFJ5mjV30J/7quGGRmTuFeQHjZcnEn9u20ttO +UDhhT7uVEn8wtdpp6UthYF5daTPx2yqHCesACk+WP4t+T9yn7n7ZLpjCa77e +E7+Iu9N99Q+HU7jEYfePBVlkvywJ6XONpvCO99IgaeI3IeeDj8eS+a3dkaVM +/Gr8kuLJJArbK4uttImfO2U2nL5CoXVcR/Y64uaOW67BGRT69LuEInGjeblw +RA6F880W/llP/Pjug6LzNymM/W0ruJG4XqNpVzyPwnc3hAv/P/7g2pvJ5FIK +y8PvDgLxPbGBlLRKCk2txO7rEleFfuVm36OQz658pRZxxeR4f14dhaKHLNYo +Ed92nnWO10ChSHFkpyRxcdcC5dvNFF6RFpQSJOZtWdZ45yWFk6O+YxOk/ls1 +Cm732ygsWBzi8pY4T2uFyKNu0k8tL848Jb6epVPydIDCQwtEtIqJs5bB7hcf +KTzC+hKURJwRbjr15iuFAtMCnr7EKa4H4O04qedLi/Zq4ks9R95+mqZQ3OzZ +XBHihG0nQodmKBQbb/T9/P/+WRXx9JcgC3evczeNI47KiXP/J8xCc2mvGw7E +ERJXl8xdysLiZ1o3tYmDfxftWSzPwi1lSRlPSD+edaueXspi4U2FjMRY4tN9 +j65Kq7BwYYui9h5in7qud4raLNR/4nGoi/S7a9S8Y/rGLNScl/bgMdkvR/4u +FjMyZ6HehCJ/APFhD+myTdtZuH9P46QGsd1OjT87rFk4mGT44cJVGnbJWEU4 +u7PQuOLnH02yPy3OO6h6nGBhdKDTvVdk/26dcWvx8mWhydbb2l7EJu+ClwYG +s1Cc2cgpTKFBP/9WRlISC318zB/wk3zoYuSnb7zCwn6bTQ/TSH74J+Wl/Uxn +4TeZT806xOVB11N35LHwvL3fd2uSP9p7M5KFq8n/f7acu5hIw/J5CTFhAyx8 +NRMWmBJLQ4N/3MXVH0l9t6IlxIgPj8RceD/IwljJ6epIkm/ZXeejjX6ycKog +YvVxkn+M4vCIf/xs/KI1PKxynuSN7alAHzU2KtXSi/VJ/t5u9TurqMXGV5+O +tyeGk/rNfM+0rmbjgoiiyqEwGuJWe5/WBja+aNRvuETye5GQh++wBRvr9kco +vyb5P7fy4LHDJ9nY/EwicJycD6OiZna7a9noIZ2q9cKDhvaj1HOXx2x09huQ +6XYn+fJoGs42sdHwX9jAe3I+xfjnK+S+YaOBidOcEVcaNN8K9U0NsvGwQV3x +N3K+uRc9s7kqpoiXF2+NDbSlYXCb5b73hxSxY73nCcktNLzMU3/6y1kRveKl +AvrNabjDx6+3yEMR7cO8zlwn53NkeZk0x08R67Z/dFUzoUFFQbIz/LwiLp6t +vZCxngan4c69qmWKmPxUW+XGWpK/0Xa7Pecr4VXos9CjyPMH1ShNISXMeJyn +0sOgYXLT1NCQiBIWKXzZGaBAwwK+uFBnaSVc1NJ2s0KWzN+vrtROXQkjlX57 +yEjQEOCoJLZtpxI+CVafG7eQrL/Bt2eq6Uo44+4SGfuRB6bfT5p+4CgjLdjk +veQ0D2S15MME9JUxtydLHX15MOxZX6tqqIwbO1SOuXrxIGFCRN/TXBm1nnte +LT/Kg96/eStnbJWxZH/OSyUbHngKdYtJRSpj2sso74NcHqQsx97NXcr4iY6V +s/lN3h8dBE6UnlVBxcbJV61uheR7QmJOeO1ynFUorZ/NKQDRZqUL9PcVmLvM +LNfrRz7IRvC2czhqeMByarLY+yYkq+qKiDmp42v1I9VJf3OhUdpw9VjsSlwx +8FqIPnsD1snWxmi80cDotkMuwh05IMyX6WUfrIm1o66CBzdng3yQgr6VkhYK +bkotuXQtEwQV95fteKyFnR+6Q+7yX4OVXCneSRtttCl+psNVTAfPXtE6s1mr +8FtozkpDuVT4PhZtaZq8Cpf30oZ6rpdhk8ajFFN1Hdzg1/qvZDAJ7o3p/Z5s +0cGp+sbZPQcSwF1Nu/OF42qs/ZeeI7g8DrjDh1qtBDloY8KbpD9chI1syS2L +MjlY3dj0Q1kuGlQC//OtXbMG7Zr1HzyqjIAVjro1ip1rsFvZa6HD4VBwvHfk +XOnxtahuFfXFKzUYajJaD40u00UbMZHl+1vPws/cmUmNcl1kbXePAOVT4KCY +L5iyZR3OXHt1tG3LSRhdEc8pHlmH3QLpx9k5J6Ai+/fAeIQeTkxPHC/PPwbW +G0hWyeujYPPBIp7RUZBxC69ceV8fm6rLfogFOcGyBUeLtuzhYkM4T8SsxAGy +1wf4j1hxsd//tWpSlgNoB1xYH7+fi+9KvogOxTvA1hH6dbs9F+OORKhXeTlA +2JvxKYejXJR/QI+2cRzgV+ZZI/8gLtrbzmQJ3z0InXrxr67nc9F9xijQ5IU9 +HPHOTjUt5KLAsoSht7X2MFF42/EbzUWrXxc9wkvtQZRqn9Qq42KAo+SV4Uv2 +YC4gJ3v3PhdrxOrHdGztobr1+qFXr8l43/am1O92YCZcoe7TzsV8L75Prwfs +oH3TkwnJLjLOOXlXstUOft75GnGgn4tKWbnhVRV2oH5Ns+DLIBcFzRsmvYLt +oLrT0Cd6iIuprkJ7fnuR+y3dCRojXFy3aJtxlJMdHA73fuE1zkUVUdGax5vJ +/e6HpUj84uK5TRVcL7CD4OlLDnemyfpk5nJWaNuBiE6ems1fLorW+md/YdtB +mtud8ZkZLp5XbAgqlrCD/wFvkUNy "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "PlotRange" -> {{0, 30}, {0., 0.06499129752044853}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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|>, @@ -10908,6 +11536,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}}, @@ -10935,7 +11564,8 @@ uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.13473082946272152`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06499129752044853}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -10943,22 +11573,562 @@ uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991324915847246*^9}, + CellChangeTimes->{3.991324915847246*^9, 3.993960792317672*^9}, CellLabel-> - "Out[112]=",ExpressionUUID->"cd997d80-b342-8b4c-95c9-b33408882f73"] + "Out[231]=",ExpressionUUID->"b1587433-462c-4c12-a6c3-f63c1ee08a99"] }, 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[232]:=",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[233]:=",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:eJwV13k0VV8bB/BKiZJEmYd7z72GQoZ0S1zPQyVDk0pFCUlCKCGUMmT6UZmT +hAxF4h5DhiiFSkKTMk/NKSIhGrz7/eOsuz5r33XOfvZ69nefwzzoscNxzqxZ +s/6S6/+/E71P6tlR2QZXdpYtlNcyMGhNk/QzbA+G7vOa9dNFMoDLnh2UbI8D +0dwz1VVFquCz/WYbX3smhPzLHI8r0oMlwxJxU23F4CrvFWZVZA591Vs9frbV +gv7DmMxceh8Yswd7RtteQk2Oyo2ZAleYaluTONL2Fh66aZx0zToFdetvZL/I +HIMW51z+panRINtX+fGg2l+44HXRZa1AIiw9antz/no+9PscYVBkfwXitIyr +tloKYO72eHfezwzoSNa8PyqyCI+LXhmsacqCqOyzz+ZILUFxHSsjpYzrIJHw +LjL+qhje77vds1M2D8J3mRq8nFiGcspJ+iuU8kG6tEV6zmxxfMzul3JYmQ+F +YrsmtRaK4xb33OQkTj68eXmAjlUQxznTb3yGjPOBbeFFWZiIY28v3xVrp3yo +3ZLO//yyOCrzM0q0buTDX+PxlmZ9Cbyr3zCnmboFJ3Sv2T4JlsSKI3GfowUL +wCxD+Kd5tCRO6kysHVtcANT80xEtiZLYrRdXtEu8AJ637i56lSuJVUVVUoKs +Alh5TIivt0USN9yWubNGvwA+Xz95/Ye0FN7aeWMg360A9i/dOiRTIoV1BVzj +oaYCWHWqKiitWgotro8OlL8sgAVvVcSZj6Rw2/GbKQHtBVDJ4wOlDilUvCB7 +cPpdAYibV8Zozkih8ddBw8pp8vwgts5Gc2mE6Xsim5ULYcP3aX/3d9K4WcM9 +uv50IfiZJKx48E0a03t7LNuDCqHwmnqn2IQ0WntbOX0KKwTJXXa6lQIyGL5a +7OBkTCF8q3g4ybdSBmN7VUt7swshPjjG67KvDP42LapqfFoIb5cpudcvkkX1 +im2ykuI8kPCokZOQkMX+0cyWBGkebG7Y2+zMkMUbn/QahBR4UOYfpbZ4lSzu +U/aOHVbmwX99I4NWe2VxwcoHAX66PNDOq3L6nimL5wo9n93ax4MgfQt76bVy +mPMtjflfKg9MDqT9WGMkhyfLcsPqM3ggHPg1xHKzHFYP77WfyuZBal3o9Rg7 +OeQJ8Xx3FPCgwuzOV/5IOeTkp3Bq7/JgZC/LZ6xDDjW12zWSe3hwwHv8v6ZT +8jhPxpUTI0SD4iUj2cFQebRg3RCxFKZJ/RcL5sfIY5uznqqECA3+f5Y/N8qW +x4FH26l4MRoSQw4sq2ySx20lifIu0jQ0xT5Oz5FTwNkla0MTlGlYV3i59EyN +AraHp/V1Aw0b2lr+DjcoYHyi/HstQxq2zpq7yfalAnY7OkedM6LBYYd7B3xQ +QFcXxzpqIw3Gp5hnA+cx0CEA+43MaDimMJFlqMrArqlkQdFdNIyXxDRMaTBw +ZGGataElmZ+J6lCRDgNzLz7c4b6bhtDjdhzKgIGsR9m6D/bSkFLX2DDHgoET +/X1fzGxoqHdKH6rzYaBnyyeJYUcaTP/oip4+xcAZ7V//Jg/T0BLTytEJZKCj +mlDcjBMNHZWCgdmRDDRPi7w734WG4YVeoqGpDLT9PWfVHzcaJGmTNca1DHQP ++fTW25uGqxve7fv3iIFndOcXW/vQQHUEBJY9ZeC8W7Ha3JM0qM8peaL0moFz +oneY/valwWiX3P75nxnIEI5v23eahqO/RgMbFjHRt1/9SWEwWc/jh8U/ijKR +zT7XfyaEBoHBznw+SSbmewyabD5HQ05X3RsDionydJ9wXygNvfcS1W5zmFgz +dCDgfQQNt9YsqH2px8Sb1ZRqeiRZL/rMnhFkIsdmSn3PfzSIZzoFq5oz0dt8 +SKcmioZtobrt12yZ6NDnu9vjAg3y/wrcag4x8Uj4nqqlF0l/+FB8Pc5MDGvy +8SsnjjiycKWkFxMHeCl84zE03DfvCbkQwcQN+okHtsfToC0apHGqiIn7Zzve +jLhEw6yo8frkMiZqO7x4z5dM1pvPxbqsiokmwnuDThO7ju8IHX3IxJY1s985 +XqYhu53d5dTJxEnGbCupKzR4Wlw+FtrHxJFUv9KzxNi4iD/rPRO7ast83hH3 +VE1o9g4zEdT7tbJSSX3pDWG7+Cj0W3snni+NhvcSXFlPAQr5beQ5lsTFMUVF +FxdRqH5BakM28bbglO5GCQpl/prmrEsn9f8W9vwsS+Hq1VVTQcTfToTM56co +bHTTq35EHOF4VNtQjcL4c5/Om2TQsLu3//EBLQq71uxKCyVm77G0Oc2hcCrB +QuE+8X0Tg4hypPBXQpi3+jUaLjwolnu9kcKZTr7NdsT71ymX/DCjcK/I1cQY +4ilVkV51Swq7ZW6f+0I8cVU6aJU1hf/GBE4syaTh52JFtq4thbI2V4Y5xKNB +Go8NDlGYNXfBLyvi4TFdlw3OFJ5mjV30J/7quGGRmTuFeQHjZcnEn9u20ttO +UDhhT7uVEn8wtdpp6UthYF5daTPx2yqHCesACk+WP4t+T9yn7n7ZLpjCa77e +E7+Iu9N99Q+HU7jEYfePBVlkvywJ6XONpvCO99IgaeI3IeeDj8eS+a3dkaVM +/Gr8kuLJJArbK4uttImfO2U2nL5CoXVcR/Y64uaOW67BGRT69LuEInGjeblw +RA6F880W/llP/Pjug6LzNymM/W0ruJG4XqNpVzyPwnc3hAv/P/7g2pvJ5FIK +y8PvDgLxPbGBlLRKCk2txO7rEleFfuVm36OQz658pRZxxeR4f14dhaKHLNYo +Ed92nnWO10ChSHFkpyRxcdcC5dvNFF6RFpQSJOZtWdZ45yWFk6O+YxOk/ls1 +Cm732ygsWBzi8pY4T2uFyKNu0k8tL848Jb6epVPydIDCQwtEtIqJs5bB7hcf +KTzC+hKURJwRbjr15iuFAtMCnr7EKa4H4O04qedLi/Zq4ks9R95+mqZQ3OzZ +XBHihG0nQodmKBQbb/T9/P/+WRXx9JcgC3evczeNI47KiXP/J8xCc2mvGw7E +ERJXl8xdysLiZ1o3tYmDfxftWSzPwi1lSRlPSD+edaueXspi4U2FjMRY4tN9 +j65Kq7BwYYui9h5in7qud4raLNR/4nGoi/S7a9S8Y/rGLNScl/bgMdkvR/4u +FjMyZ6HehCJ/APFhD+myTdtZuH9P46QGsd1OjT87rFk4mGT44cJVGnbJWEU4 +u7PQuOLnH02yPy3OO6h6nGBhdKDTvVdk/26dcWvx8mWhydbb2l7EJu+ClwYG +s1Cc2cgpTKFBP/9WRlISC318zB/wk3zoYuSnb7zCwn6bTQ/TSH74J+Wl/Uxn +4TeZT806xOVB11N35LHwvL3fd2uSP9p7M5KFq8n/f7acu5hIw/J5CTFhAyx8 +NRMWmBJLQ4N/3MXVH0l9t6IlxIgPj8RceD/IwljJ6epIkm/ZXeejjX6ycKog +YvVxkn+M4vCIf/xs/KI1PKxynuSN7alAHzU2KtXSi/VJ/t5u9TurqMXGV5+O +tyeGk/rNfM+0rmbjgoiiyqEwGuJWe5/WBja+aNRvuETye5GQh++wBRvr9kco +vyb5P7fy4LHDJ9nY/EwicJycD6OiZna7a9noIZ2q9cKDhvaj1HOXx2x09huQ +6XYn+fJoGs42sdHwX9jAe3I+xfjnK+S+YaOBidOcEVcaNN8K9U0NsvGwQV3x +N3K+uRc9s7kqpoiXF2+NDbSlYXCb5b73hxSxY73nCcktNLzMU3/6y1kRveKl +AvrNabjDx6+3yEMR7cO8zlwn53NkeZk0x08R67Z/dFUzoUFFQbIz/LwiLp6t +vZCxngan4c69qmWKmPxUW+XGWpK/0Xa7Pecr4VXos9CjyPMH1ShNISXMeJyn +0sOgYXLT1NCQiBIWKXzZGaBAwwK+uFBnaSVc1NJ2s0KWzN+vrtROXQkjlX57 +yEjQEOCoJLZtpxI+CVafG7eQrL/Bt2eq6Uo44+4SGfuRB6bfT5p+4CgjLdjk +veQ0D2S15MME9JUxtydLHX15MOxZX6tqqIwbO1SOuXrxIGFCRN/TXBm1nnte +LT/Kg96/eStnbJWxZH/OSyUbHngKdYtJRSpj2sso74NcHqQsx97NXcr4iY6V +s/lN3h8dBE6UnlVBxcbJV61uheR7QmJOeO1ynFUorZ/NKQDRZqUL9PcVmLvM +LNfrRz7IRvC2czhqeMByarLY+yYkq+qKiDmp42v1I9VJf3OhUdpw9VjsSlwx +8FqIPnsD1snWxmi80cDotkMuwh05IMyX6WUfrIm1o66CBzdng3yQgr6VkhYK +bkotuXQtEwQV95fteKyFnR+6Q+7yX4OVXCneSRtttCl+psNVTAfPXtE6s1mr +8FtozkpDuVT4PhZtaZq8Cpf30oZ6rpdhk8ajFFN1Hdzg1/qvZDAJ7o3p/Z5s +0cGp+sbZPQcSwF1Nu/OF42qs/ZeeI7g8DrjDh1qtBDloY8KbpD9chI1syS2L +MjlY3dj0Q1kuGlQC//OtXbMG7Zr1HzyqjIAVjro1ip1rsFvZa6HD4VBwvHfk +XOnxtahuFfXFKzUYajJaD40u00UbMZHl+1vPws/cmUmNcl1kbXePAOVT4KCY +L5iyZR3OXHt1tG3LSRhdEc8pHlmH3QLpx9k5J6Ai+/fAeIQeTkxPHC/PPwbW +G0hWyeujYPPBIp7RUZBxC69ceV8fm6rLfogFOcGyBUeLtuzhYkM4T8SsxAGy +1wf4j1hxsd//tWpSlgNoB1xYH7+fi+9KvogOxTvA1hH6dbs9F+OORKhXeTlA +2JvxKYejXJR/QI+2cRzgV+ZZI/8gLtrbzmQJ3z0InXrxr67nc9F9xijQ5IU9 +HPHOTjUt5KLAsoSht7X2MFF42/EbzUWrXxc9wkvtQZRqn9Qq42KAo+SV4Uv2 +YC4gJ3v3PhdrxOrHdGztobr1+qFXr8l43/am1O92YCZcoe7TzsV8L75Prwfs +oH3TkwnJLjLOOXlXstUOft75GnGgn4tKWbnhVRV2oH5Ns+DLIBcFzRsmvYLt +oLrT0Cd6iIuprkJ7fnuR+y3dCRojXFy3aJtxlJMdHA73fuE1zkUVUdGax5vJ +/e6HpUj84uK5TRVcL7CD4OlLDnemyfpk5nJWaNuBiE6ems1fLorW+md/YdtB +mtud8ZkZLp5XbAgqlrCD/wFvkUNy + "]]}, + 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:eJwV13k0VV8bB/BKiZJEmYd7z72GQoZ0S1zPQyVDk0pFCUlCKCGUMmT6UZmT +hAxF4h5DhiiFSkKTMk/NKSIhGrz7/eOsuz5r33XOfvZ69nefwzzoscNxzqxZ +s/6S6/+/E71P6tlR2QZXdpYtlNcyMGhNk/QzbA+G7vOa9dNFMoDLnh2UbI8D +0dwz1VVFquCz/WYbX3smhPzLHI8r0oMlwxJxU23F4CrvFWZVZA591Vs9frbV +gv7DmMxceh8Yswd7RtteQk2Oyo2ZAleYaluTONL2Fh66aZx0zToFdetvZL/I +HIMW51z+panRINtX+fGg2l+44HXRZa1AIiw9antz/no+9PscYVBkfwXitIyr +tloKYO72eHfezwzoSNa8PyqyCI+LXhmsacqCqOyzz+ZILUFxHSsjpYzrIJHw +LjL+qhje77vds1M2D8J3mRq8nFiGcspJ+iuU8kG6tEV6zmxxfMzul3JYmQ+F +YrsmtRaK4xb33OQkTj68eXmAjlUQxznTb3yGjPOBbeFFWZiIY28v3xVrp3yo +3ZLO//yyOCrzM0q0buTDX+PxlmZ9Cbyr3zCnmboFJ3Sv2T4JlsSKI3GfowUL +wCxD+Kd5tCRO6kysHVtcANT80xEtiZLYrRdXtEu8AJ637i56lSuJVUVVUoKs +Alh5TIivt0USN9yWubNGvwA+Xz95/Ye0FN7aeWMg360A9i/dOiRTIoV1BVzj +oaYCWHWqKiitWgotro8OlL8sgAVvVcSZj6Rw2/GbKQHtBVDJ4wOlDilUvCB7 +cPpdAYibV8Zozkih8ddBw8pp8vwgts5Gc2mE6Xsim5ULYcP3aX/3d9K4WcM9 +uv50IfiZJKx48E0a03t7LNuDCqHwmnqn2IQ0WntbOX0KKwTJXXa6lQIyGL5a +7OBkTCF8q3g4ybdSBmN7VUt7swshPjjG67KvDP42LapqfFoIb5cpudcvkkX1 +im2ykuI8kPCokZOQkMX+0cyWBGkebG7Y2+zMkMUbn/QahBR4UOYfpbZ4lSzu +U/aOHVbmwX99I4NWe2VxwcoHAX66PNDOq3L6nimL5wo9n93ax4MgfQt76bVy +mPMtjflfKg9MDqT9WGMkhyfLcsPqM3ggHPg1xHKzHFYP77WfyuZBal3o9Rg7 +OeQJ8Xx3FPCgwuzOV/5IOeTkp3Bq7/JgZC/LZ6xDDjW12zWSe3hwwHv8v6ZT +8jhPxpUTI0SD4iUj2cFQebRg3RCxFKZJ/RcL5sfIY5uznqqECA3+f5Y/N8qW +x4FH26l4MRoSQw4sq2ySx20lifIu0jQ0xT5Oz5FTwNkla0MTlGlYV3i59EyN +AraHp/V1Aw0b2lr+DjcoYHyi/HstQxq2zpq7yfalAnY7OkedM6LBYYd7B3xQ +QFcXxzpqIw3Gp5hnA+cx0CEA+43MaDimMJFlqMrArqlkQdFdNIyXxDRMaTBw +ZGGataElmZ+J6lCRDgNzLz7c4b6bhtDjdhzKgIGsR9m6D/bSkFLX2DDHgoET +/X1fzGxoqHdKH6rzYaBnyyeJYUcaTP/oip4+xcAZ7V//Jg/T0BLTytEJZKCj +mlDcjBMNHZWCgdmRDDRPi7w734WG4YVeoqGpDLT9PWfVHzcaJGmTNca1DHQP ++fTW25uGqxve7fv3iIFndOcXW/vQQHUEBJY9ZeC8W7Ha3JM0qM8peaL0moFz +oneY/valwWiX3P75nxnIEI5v23eahqO/RgMbFjHRt1/9SWEwWc/jh8U/ijKR +zT7XfyaEBoHBznw+SSbmewyabD5HQ05X3RsDionydJ9wXygNvfcS1W5zmFgz +dCDgfQQNt9YsqH2px8Sb1ZRqeiRZL/rMnhFkIsdmSn3PfzSIZzoFq5oz0dt8 +SKcmioZtobrt12yZ6NDnu9vjAg3y/wrcag4x8Uj4nqqlF0l/+FB8Pc5MDGvy +8SsnjjiycKWkFxMHeCl84zE03DfvCbkQwcQN+okHtsfToC0apHGqiIn7Zzve +jLhEw6yo8frkMiZqO7x4z5dM1pvPxbqsiokmwnuDThO7ju8IHX3IxJY1s985 +XqYhu53d5dTJxEnGbCupKzR4Wlw+FtrHxJFUv9KzxNi4iD/rPRO7ast83hH3 +VE1o9g4zEdT7tbJSSX3pDWG7+Cj0W3snni+NhvcSXFlPAQr5beQ5lsTFMUVF +FxdRqH5BakM28bbglO5GCQpl/prmrEsn9f8W9vwsS+Hq1VVTQcTfToTM56co +bHTTq35EHOF4VNtQjcL4c5/Om2TQsLu3//EBLQq71uxKCyVm77G0Oc2hcCrB +QuE+8X0Tg4hypPBXQpi3+jUaLjwolnu9kcKZTr7NdsT71ymX/DCjcK/I1cQY +4ilVkV51Swq7ZW6f+0I8cVU6aJU1hf/GBE4syaTh52JFtq4thbI2V4Y5xKNB +Go8NDlGYNXfBLyvi4TFdlw3OFJ5mjV30J/7quGGRmTuFeQHjZcnEn9u20ttO +UDhhT7uVEn8wtdpp6UthYF5daTPx2yqHCesACk+WP4t+T9yn7n7ZLpjCa77e +E7+Iu9N99Q+HU7jEYfePBVlkvywJ6XONpvCO99IgaeI3IeeDj8eS+a3dkaVM +/Gr8kuLJJArbK4uttImfO2U2nL5CoXVcR/Y64uaOW67BGRT69LuEInGjeblw +RA6F880W/llP/Pjug6LzNymM/W0ruJG4XqNpVzyPwnc3hAv/P/7g2pvJ5FIK +y8PvDgLxPbGBlLRKCk2txO7rEleFfuVm36OQz658pRZxxeR4f14dhaKHLNYo +Ed92nnWO10ChSHFkpyRxcdcC5dvNFF6RFpQSJOZtWdZ45yWFk6O+YxOk/ls1 +Cm732ygsWBzi8pY4T2uFyKNu0k8tL848Jb6epVPydIDCQwtEtIqJs5bB7hcf +KTzC+hKURJwRbjr15iuFAtMCnr7EKa4H4O04qedLi/Zq4ks9R95+mqZQ3OzZ +XBHihG0nQodmKBQbb/T9/P/+WRXx9JcgC3evczeNI47KiXP/J8xCc2mvGw7E +ERJXl8xdysLiZ1o3tYmDfxftWSzPwi1lSRlPSD+edaueXspi4U2FjMRY4tN9 +j65Kq7BwYYui9h5in7qud4raLNR/4nGoi/S7a9S8Y/rGLNScl/bgMdkvR/4u +FjMyZ6HehCJ/APFhD+myTdtZuH9P46QGsd1OjT87rFk4mGT44cJVGnbJWEU4 +u7PQuOLnH02yPy3OO6h6nGBhdKDTvVdk/26dcWvx8mWhydbb2l7EJu+ClwYG +s1Cc2cgpTKFBP/9WRlISC318zB/wk3zoYuSnb7zCwn6bTQ/TSH74J+Wl/Uxn +4TeZT806xOVB11N35LHwvL3fd2uSP9p7M5KFq8n/f7acu5hIw/J5CTFhAyx8 +NRMWmBJLQ4N/3MXVH0l9t6IlxIgPj8RceD/IwljJ6epIkm/ZXeejjX6ycKog +YvVxkn+M4vCIf/xs/KI1PKxynuSN7alAHzU2KtXSi/VJ/t5u9TurqMXGV5+O +tyeGk/rNfM+0rmbjgoiiyqEwGuJWe5/WBja+aNRvuETye5GQh++wBRvr9kco +vyb5P7fy4LHDJ9nY/EwicJycD6OiZna7a9noIZ2q9cKDhvaj1HOXx2x09huQ +6XYn+fJoGs42sdHwX9jAe3I+xfjnK+S+YaOBidOcEVcaNN8K9U0NsvGwQV3x +N3K+uRc9s7kqpoiXF2+NDbSlYXCb5b73hxSxY73nCcktNLzMU3/6y1kRveKl +AvrNabjDx6+3yEMR7cO8zlwn53NkeZk0x08R67Z/dFUzoUFFQbIz/LwiLp6t +vZCxngan4c69qmWKmPxUW+XGWpK/0Xa7Pecr4VXos9CjyPMH1ShNISXMeJyn +0sOgYXLT1NCQiBIWKXzZGaBAwwK+uFBnaSVc1NJ2s0KWzN+vrtROXQkjlX57 +yEjQEOCoJLZtpxI+CVafG7eQrL/Bt2eq6Uo44+4SGfuRB6bfT5p+4CgjLdjk +veQ0D2S15MME9JUxtydLHX15MOxZX6tqqIwbO1SOuXrxIGFCRN/TXBm1nnte +LT/Kg96/eStnbJWxZH/OSyUbHngKdYtJRSpj2sso74NcHqQsx97NXcr4iY6V +s/lN3h8dBE6UnlVBxcbJV61uheR7QmJOeO1ynFUorZ/NKQDRZqUL9PcVmLvM +LNfrRz7IRvC2czhqeMByarLY+yYkq+qKiDmp42v1I9VJf3OhUdpw9VjsSlwx +8FqIPnsD1snWxmi80cDotkMuwh05IMyX6WUfrIm1o66CBzdng3yQgr6VkhYK +bkotuXQtEwQV95fteKyFnR+6Q+7yX4OVXCneSRtttCl+psNVTAfPXtE6s1mr +8FtozkpDuVT4PhZtaZq8Cpf30oZ6rpdhk8ajFFN1Hdzg1/qvZDAJ7o3p/Z5s +0cGp+sbZPQcSwF1Nu/OF42qs/ZeeI7g8DrjDh1qtBDloY8KbpD9chI1syS2L +MjlY3dj0Q1kuGlQC//OtXbMG7Zr1HzyqjIAVjro1ip1rsFvZa6HD4VBwvHfk +XOnxtahuFfXFKzUYajJaD40u00UbMZHl+1vPws/cmUmNcl1kbXePAOVT4KCY +L5iyZR3OXHt1tG3LSRhdEc8pHlmH3QLpx9k5J6Ai+/fAeIQeTkxPHC/PPwbW +G0hWyeujYPPBIp7RUZBxC69ceV8fm6rLfogFOcGyBUeLtuzhYkM4T8SsxAGy +1wf4j1hxsd//tWpSlgNoB1xYH7+fi+9KvogOxTvA1hH6dbs9F+OORKhXeTlA +2JvxKYejXJR/QI+2cRzgV+ZZI/8gLtrbzmQJ3z0InXrxr67nc9F9xijQ5IU9 +HPHOTjUt5KLAsoSht7X2MFF42/EbzUWrXxc9wkvtQZRqn9Qq42KAo+SV4Uv2 +YC4gJ3v3PhdrxOrHdGztobr1+qFXr8l43/am1O92YCZcoe7TzsV8L75Prwfs +oH3TkwnJLjLOOXlXstUOft75GnGgn4tKWbnhVRV2oH5Ns+DLIBcFzRsmvYLt +oLrT0Cd6iIuprkJ7fnuR+y3dCRojXFy3aJtxlJMdHA73fuE1zkUVUdGax5vJ +/e6HpUj84uK5TRVcL7CD4OlLDnemyfpk5nJWaNuBiE6ems1fLorW+md/YdtB +mtud8ZkZLp5XbAgqlrCD/wFvkUNy + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06499129752044853}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.06499129752044853}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJwV13k0VV8bB/BKiZJEmYd7z72GQoZ0S1zPQyVDk0pFCUlCKCGUMmT6UZmT +hAxF4h5DhiiFSkKTMk/NKSIhGrz7/eOsuz5r33XOfvZ69nefwzzoscNxzqxZ +s/6S6/+/E71P6tlR2QZXdpYtlNcyMGhNk/QzbA+G7vOa9dNFMoDLnh2UbI8D +0dwz1VVFquCz/WYbX3smhPzLHI8r0oMlwxJxU23F4CrvFWZVZA591Vs9frbV +gv7DmMxceh8Yswd7RtteQk2Oyo2ZAleYaluTONL2Fh66aZx0zToFdetvZL/I +HIMW51z+panRINtX+fGg2l+44HXRZa1AIiw9antz/no+9PscYVBkfwXitIyr +tloKYO72eHfezwzoSNa8PyqyCI+LXhmsacqCqOyzz+ZILUFxHSsjpYzrIJHw +LjL+qhje77vds1M2D8J3mRq8nFiGcspJ+iuU8kG6tEV6zmxxfMzul3JYmQ+F +YrsmtRaK4xb33OQkTj68eXmAjlUQxznTb3yGjPOBbeFFWZiIY28v3xVrp3yo +3ZLO//yyOCrzM0q0buTDX+PxlmZ9Cbyr3zCnmboFJ3Sv2T4JlsSKI3GfowUL +wCxD+Kd5tCRO6kysHVtcANT80xEtiZLYrRdXtEu8AJ637i56lSuJVUVVUoKs +Alh5TIivt0USN9yWubNGvwA+Xz95/Ye0FN7aeWMg360A9i/dOiRTIoV1BVzj +oaYCWHWqKiitWgotro8OlL8sgAVvVcSZj6Rw2/GbKQHtBVDJ4wOlDilUvCB7 +cPpdAYibV8Zozkih8ddBw8pp8vwgts5Gc2mE6Xsim5ULYcP3aX/3d9K4WcM9 +uv50IfiZJKx48E0a03t7LNuDCqHwmnqn2IQ0WntbOX0KKwTJXXa6lQIyGL5a +7OBkTCF8q3g4ybdSBmN7VUt7swshPjjG67KvDP42LapqfFoIb5cpudcvkkX1 +im2ykuI8kPCokZOQkMX+0cyWBGkebG7Y2+zMkMUbn/QahBR4UOYfpbZ4lSzu +U/aOHVbmwX99I4NWe2VxwcoHAX66PNDOq3L6nimL5wo9n93ax4MgfQt76bVy +mPMtjflfKg9MDqT9WGMkhyfLcsPqM3ggHPg1xHKzHFYP77WfyuZBal3o9Rg7 +OeQJ8Xx3FPCgwuzOV/5IOeTkp3Bq7/JgZC/LZ6xDDjW12zWSe3hwwHv8v6ZT +8jhPxpUTI0SD4iUj2cFQebRg3RCxFKZJ/RcL5sfIY5uznqqECA3+f5Y/N8qW +x4FH26l4MRoSQw4sq2ySx20lifIu0jQ0xT5Oz5FTwNkla0MTlGlYV3i59EyN +AraHp/V1Aw0b2lr+DjcoYHyi/HstQxq2zpq7yfalAnY7OkedM6LBYYd7B3xQ +QFcXxzpqIw3Gp5hnA+cx0CEA+43MaDimMJFlqMrArqlkQdFdNIyXxDRMaTBw +ZGGataElmZ+J6lCRDgNzLz7c4b6bhtDjdhzKgIGsR9m6D/bSkFLX2DDHgoET +/X1fzGxoqHdKH6rzYaBnyyeJYUcaTP/oip4+xcAZ7V//Jg/T0BLTytEJZKCj +mlDcjBMNHZWCgdmRDDRPi7w734WG4YVeoqGpDLT9PWfVHzcaJGmTNca1DHQP ++fTW25uGqxve7fv3iIFndOcXW/vQQHUEBJY9ZeC8W7Ha3JM0qM8peaL0moFz +oneY/valwWiX3P75nxnIEI5v23eahqO/RgMbFjHRt1/9SWEwWc/jh8U/ijKR +zT7XfyaEBoHBznw+SSbmewyabD5HQ05X3RsDionydJ9wXygNvfcS1W5zmFgz +dCDgfQQNt9YsqH2px8Sb1ZRqeiRZL/rMnhFkIsdmSn3PfzSIZzoFq5oz0dt8 +SKcmioZtobrt12yZ6NDnu9vjAg3y/wrcag4x8Uj4nqqlF0l/+FB8Pc5MDGvy +8SsnjjiycKWkFxMHeCl84zE03DfvCbkQwcQN+okHtsfToC0apHGqiIn7Zzve +jLhEw6yo8frkMiZqO7x4z5dM1pvPxbqsiokmwnuDThO7ju8IHX3IxJY1s985 +XqYhu53d5dTJxEnGbCupKzR4Wlw+FtrHxJFUv9KzxNi4iD/rPRO7ast83hH3 +VE1o9g4zEdT7tbJSSX3pDWG7+Cj0W3snni+NhvcSXFlPAQr5beQ5lsTFMUVF +FxdRqH5BakM28bbglO5GCQpl/prmrEsn9f8W9vwsS+Hq1VVTQcTfToTM56co +bHTTq35EHOF4VNtQjcL4c5/Om2TQsLu3//EBLQq71uxKCyVm77G0Oc2hcCrB +QuE+8X0Tg4hypPBXQpi3+jUaLjwolnu9kcKZTr7NdsT71ymX/DCjcK/I1cQY +4ilVkV51Swq7ZW6f+0I8cVU6aJU1hf/GBE4syaTh52JFtq4thbI2V4Y5xKNB +Go8NDlGYNXfBLyvi4TFdlw3OFJ5mjV30J/7quGGRmTuFeQHjZcnEn9u20ttO +UDhhT7uVEn8wtdpp6UthYF5daTPx2yqHCesACk+WP4t+T9yn7n7ZLpjCa77e +E7+Iu9N99Q+HU7jEYfePBVlkvywJ6XONpvCO99IgaeI3IeeDj8eS+a3dkaVM +/Gr8kuLJJArbK4uttImfO2U2nL5CoXVcR/Y64uaOW67BGRT69LuEInGjeblw +RA6F880W/llP/Pjug6LzNymM/W0ruJG4XqNpVzyPwnc3hAv/P/7g2pvJ5FIK +y8PvDgLxPbGBlLRKCk2txO7rEleFfuVm36OQz658pRZxxeR4f14dhaKHLNYo +Ed92nnWO10ChSHFkpyRxcdcC5dvNFF6RFpQSJOZtWdZ45yWFk6O+YxOk/ls1 +Cm732ygsWBzi8pY4T2uFyKNu0k8tL848Jb6epVPydIDCQwtEtIqJs5bB7hcf +KTzC+hKURJwRbjr15iuFAtMCnr7EKa4H4O04qedLi/Zq4ks9R95+mqZQ3OzZ +XBHihG0nQodmKBQbb/T9/P/+WRXx9JcgC3evczeNI47KiXP/J8xCc2mvGw7E +ERJXl8xdysLiZ1o3tYmDfxftWSzPwi1lSRlPSD+edaueXspi4U2FjMRY4tN9 +j65Kq7BwYYui9h5in7qud4raLNR/4nGoi/S7a9S8Y/rGLNScl/bgMdkvR/4u +FjMyZ6HehCJ/APFhD+myTdtZuH9P46QGsd1OjT87rFk4mGT44cJVGnbJWEU4 +u7PQuOLnH02yPy3OO6h6nGBhdKDTvVdk/26dcWvx8mWhydbb2l7EJu+ClwYG +s1Cc2cgpTKFBP/9WRlISC318zB/wk3zoYuSnb7zCwn6bTQ/TSH74J+Wl/Uxn +4TeZT806xOVB11N35LHwvL3fd2uSP9p7M5KFq8n/f7acu5hIw/J5CTFhAyx8 +NRMWmBJLQ4N/3MXVH0l9t6IlxIgPj8RceD/IwljJ6epIkm/ZXeejjX6ycKog +YvVxkn+M4vCIf/xs/KI1PKxynuSN7alAHzU2KtXSi/VJ/t5u9TurqMXGV5+O +tyeGk/rNfM+0rmbjgoiiyqEwGuJWe5/WBja+aNRvuETye5GQh++wBRvr9kco +vyb5P7fy4LHDJ9nY/EwicJycD6OiZna7a9noIZ2q9cKDhvaj1HOXx2x09huQ +6XYn+fJoGs42sdHwX9jAe3I+xfjnK+S+YaOBidOcEVcaNN8K9U0NsvGwQV3x +N3K+uRc9s7kqpoiXF2+NDbSlYXCb5b73hxSxY73nCcktNLzMU3/6y1kRveKl +AvrNabjDx6+3yEMR7cO8zlwn53NkeZk0x08R67Z/dFUzoUFFQbIz/LwiLp6t +vZCxngan4c69qmWKmPxUW+XGWpK/0Xa7Pecr4VXos9CjyPMH1ShNISXMeJyn +0sOgYXLT1NCQiBIWKXzZGaBAwwK+uFBnaSVc1NJ2s0KWzN+vrtROXQkjlX57 +yEjQEOCoJLZtpxI+CVafG7eQrL/Bt2eq6Uo44+4SGfuRB6bfT5p+4CgjLdjk +veQ0D2S15MME9JUxtydLHX15MOxZX6tqqIwbO1SOuXrxIGFCRN/TXBm1nnte +LT/Kg96/eStnbJWxZH/OSyUbHngKdYtJRSpj2sso74NcHqQsx97NXcr4iY6V +s/lN3h8dBE6UnlVBxcbJV61uheR7QmJOeO1ynFUorZ/NKQDRZqUL9PcVmLvM +LNfrRz7IRvC2czhqeMByarLY+yYkq+qKiDmp42v1I9VJf3OhUdpw9VjsSlwx +8FqIPnsD1snWxmi80cDotkMuwh05IMyX6WUfrIm1o66CBzdng3yQgr6VkhYK +bkotuXQtEwQV95fteKyFnR+6Q+7yX4OVXCneSRtttCl+psNVTAfPXtE6s1mr +8FtozkpDuVT4PhZtaZq8Cpf30oZ6rpdhk8ajFFN1Hdzg1/qvZDAJ7o3p/Z5s +0cGp+sbZPQcSwF1Nu/OF42qs/ZeeI7g8DrjDh1qtBDloY8KbpD9chI1syS2L +MjlY3dj0Q1kuGlQC//OtXbMG7Zr1HzyqjIAVjro1ip1rsFvZa6HD4VBwvHfk +XOnxtahuFfXFKzUYajJaD40u00UbMZHl+1vPws/cmUmNcl1kbXePAOVT4KCY +L5iyZR3OXHt1tG3LSRhdEc8pHlmH3QLpx9k5J6Ai+/fAeIQeTkxPHC/PPwbW +G0hWyeujYPPBIp7RUZBxC69ceV8fm6rLfogFOcGyBUeLtuzhYkM4T8SsxAGy +1wf4j1hxsd//tWpSlgNoB1xYH7+fi+9KvogOxTvA1hH6dbs9F+OORKhXeTlA +2JvxKYejXJR/QI+2cRzgV+ZZI/8gLtrbzmQJ3z0InXrxr67nc9F9xijQ5IU9 +HPHOTjUt5KLAsoSht7X2MFF42/EbzUWrXxc9wkvtQZRqn9Qq42KAo+SV4Uv2 +YC4gJ3v3PhdrxOrHdGztobr1+qFXr8l43/am1O92YCZcoe7TzsV8L75Prwfs +oH3TkwnJLjLOOXlXstUOft75GnGgn4tKWbnhVRV2oH5Ns+DLIBcFzRsmvYLt +oLrT0Cd6iIuprkJ7fnuR+y3dCRojXFy3aJtxlJMdHA73fuE1zkUVUdGax5vJ +/e6HpUj84uK5TRVcL7CD4OlLDnemyfpk5nJWaNuBiE6ems1fLorW+md/YdtB +mtud8ZkZLp5XbAgqlrCD/wFvkUNy + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06499129752044853}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJxTTMoPSmViYGCQB2IQDQNLGAINkrnK7CG8D/YFW/1i+sInQPkMDkmGr6Kq +58+C8jkczrencxoxLYLyBRw0tNtWMyssg/JFHAL6mFwO9qyE8iUc3u708W0y +XwPlyzi85X7Rai2+DspXcJimnKJwXm89lK/koKgQ78TaDuOrOFidyz201wjG +V3PYGsTxRMgdpl/D4cmtAMNz92HmazmUHVGU9hBfDeXrOAA5s8O4YO7RcyjZ +dKVq/0WYew0clAL+Nnu0LYHyDR1s9EWlP1vB/GfkcNon868u4wIo39jhkHfB +K+aTs6F8E4edQeebAu5Nh/JNHeT5a8u1vadA+WYOttd6eIrEJ0L55g6HXZpF +bFp7oHwLB/5r/y3PTG+H8i0dus7EPPgU0QzlWzkw5q6OTK+ph/KtHd7OVGXM +yqqE8m0cpK+FiLXGlkD5tg4f5zGfFjQqgPLtHO40Ld3VMD3THgDPenlb + "]]}, + 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:eJxTTMoPSmViYGCQB2IQDQNLGAINkrnK7CG8D/YFW/1i+sInQPkMDkmGr6Kq +58+C8jkczrencxoxLYLyBRw0tNtWMyssg/JFHAL6mFwO9qyE8iUc3u708W0y +XwPlyzi85X7Rai2+DspXcJimnKJwXm89lK/koKgQ78TaDuOrOFidyz201wjG +V3PYGsTxRMgdpl/D4cmtAMNz92HmazmUHVGU9hBfDeXrOAA5s8O4YO7RcyjZ +dKVq/0WYew0clAL+Nnu0LYHyDR1s9EWlP1vB/GfkcNon868u4wIo39jhkHfB +K+aTs6F8E4edQeebAu5Nh/JNHeT5a8u1vadA+WYOttd6eIrEJ0L55g6HXZpF +bFp7oHwLB/5r/y3PTG+H8i0dus7EPPgU0QzlWzkw5q6OTK+ph/KtHd7OVGXM +yqqE8m0cpK+FiLXGlkD5tg4f5zGfFjQqgPLtHO40Ld3VMD3THgDPenlb + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.061577}}, + "Frame" -> {{False, 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.061577}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGCQB2IQDQNLGAINkrnK7CG8D/YFW/1i+sInQPkMDkmGr6Kq +58+C8jkczrencxoxLYLyBRw0tNtWMyssg/JFHAL6mFwO9qyE8iUc3u708W0y +XwPlyzi85X7Rai2+DspXcJimnKJwXm89lK/koKgQ78TaDuOrOFidyz201wjG +V3PYGsTxRMgdpl/D4cmtAMNz92HmazmUHVGU9hBfDeXrOAA5s8O4YO7RcyjZ +dKVq/0WYew0clAL+Nnu0LYHyDR1s9EWlP1vB/GfkcNon868u4wIo39jhkHfB +K+aTs6F8E4edQeebAu5Nh/JNHeT5a8u1vadA+WYOttd6eIrEJ0L55g6HXZpF +bFp7oHwLB/5r/y3PTG+H8i0dus7EPPgU0QzlWzkw5q6OTK+ph/KtHd7OVGXM +yqqE8m0cpK+FiLXGlkD5tg4f5zGfFjQqgPLtHO40Ld3VMD3THgDPenlb + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.061577}}, + "Frame" -> {{False, 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.06499129752044853}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993960792377486*^9}, + CellLabel-> + "Out[233]=",ExpressionUUID->"9b2b3222-bc34-4318-b652-ee2577e2f2bd"] +}, Open ]], Cell[CellGroupData[{ @@ -11010,66 +12180,73 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[116]:=",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], + "In[234]:=",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[\\\"3.003347079883528`*^-161\\\", \ +RowBox[{\\\"50551899186051012364014314729082680202635225\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"62\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"00859512072804761600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 234, + 53, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265068365192`*^9, 3.993960792414905*^9}, CellLabel-> "During evaluation of \ -In[116]:=",ExpressionUUID->"96d01a47-7c9a-1944-8904-f1788b2f0a8a"], +In[234]:=",ExpressionUUID->"94489e8c-1cb5-4aae-a296-eb4bf6ff69ce"], 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[\\\"4.0844557382941524`*^-164\\\", \ +RowBox[{\\\"16424312045547973917068250855478962797836184\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"66\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"92554724542670438400000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 234, + 54, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265068365192`*^9, 3.993960792423583*^9}, CellLabel-> "During evaluation of \ -In[116]:=",ExpressionUUID->"fee09e7b-7835-394b-93fe-35ddd26f69d1"], +In[234]:=",ExpressionUUID->"1387aee6-dcdc-44d5-aaa7-471aadea45d1"], 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[\\\"5.554728852294686`*^-167\\\", \ +RowBox[{\\\"55251385721223384257017595877831230851920926\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"69\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"54093361543354777600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 234, + 55, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265068365192`*^9, 3.9939607924313917`*^9}, CellLabel-> "During evaluation of \ -In[116]:=",ExpressionUUID->"fc12fc14-afc1-0a48-8829-94d858477ec4"], +In[234]:=",ExpressionUUID->"97ecb3f6-96cd-40fe-8428-88b3ec8eec79"], 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, 234, 56, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265068365192`*^9, 3.9939607924385223`*^9}, CellLabel-> "During evaluation of \ -In[116]:=",ExpressionUUID->"41b1346d-6d7d-5d4d-9b1a-88cde3361cf3"], +In[234]:=",ExpressionUUID->"29272bd0-91b5-489b-9b72-40b3113a0ee7"], -Cell[BoxData["11.275343508404701`"], "Output", - CellChangeTimes->{3.991326513010317*^9}, +Cell[BoxData["12.69200568674265`"], "Output", + CellChangeTimes->{3.991326513010317*^9, 3.993960837561308*^9}, CellLabel-> - "Out[116]=",ExpressionUUID->"0bbffe2c-809c-1149-a08f-e3342cda31a0"] + "Out[234]=",ExpressionUUID->"33cd1388-780f-484c-821c-4412847fa484"] }, Open ]], Cell[CellGroupData[{ @@ -11136,68 +12313,69 @@ 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[235]:=",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[\\\"7.844442621317018`*^-232\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 235, 57, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265130447063`*^9, 3.993960837599021*^9}, CellLabel-> "During evaluation of \ -In[117]:=",ExpressionUUID->"922f5f31-888f-7340-96cd-65ecb8ea2e84"], +In[235]:=",ExpressionUUID->"413df039-d1f0-40cc-ba28-df23175f2706"], 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.2512478050338404`*^-238\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 235, 58, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265130447063`*^9, 3.993960837607328*^9}, CellLabel-> "During evaluation of \ -In[117]:=",ExpressionUUID->"287b836d-7493-d44f-85b0-183d2793165c"], +In[235]:=",ExpressionUUID->"988627d0-f563-4923-8b21-49a13d3bb941"], 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.9958346885570677`*^-245\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 235, 59, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265130447063`*^9, 3.993960837614338*^9}, CellLabel-> "During evaluation of \ -In[117]:=",ExpressionUUID->"962d88f7-2937-fe4b-ba97-3fe8099808d5"], +In[235]:=",ExpressionUUID->"9c604d8a-0baa-423c-b18a-8732dfeddf4e"], 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, 235, 60, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265130447063`*^9, 3.9939608376209927`*^9}, CellLabel-> "During evaluation of \ -In[117]:=",ExpressionUUID->"2ec951f6-2332-9241-84af-c7ac25232c2e"], +In[235]:=",ExpressionUUID->"151374f9-ef06-42d3-9ec3-ac3d518c4f2d"], -Cell[BoxData["1.662840304462236`"], "Output", - CellChangeTimes->{3.9913265201819115`*^9}, +Cell[BoxData["0.010331209215169095`"], "Output", + CellChangeTimes->{3.9913265201819115`*^9, 3.993960843389575*^9}, CellLabel-> - "Out[117]=",ExpressionUUID->"3eb28fb3-5fd6-4240-b231-e1f0fa53f4dc"] + "Out[235]=",ExpressionUUID->"e3da2886-614c-48a9-aefe-029771455ed3"] }, Open ]], Cell[CellGroupData[{ @@ -11218,8 +12396,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -11264,68 +12441,69 @@ 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[236]:=",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[\\\"7.844442621317018`*^-232\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 236, 61, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326520216116*^9, 3.993960843428314*^9}, CellLabel-> "During evaluation of \ -In[118]:=",ExpressionUUID->"8fc71a81-55ed-5940-a6a0-1fa4e0c6425a"], +In[236]:=",ExpressionUUID->"49c9dea2-938c-4740-9f21-4ab9b501896c"], 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.2512478050338404`*^-238\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 236, 62, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326520216116*^9, 3.993960843435568*^9}, CellLabel-> "During evaluation of \ -In[118]:=",ExpressionUUID->"001b2f06-491c-6c4f-881b-1d7c12c1b14f"], +In[236]:=",ExpressionUUID->"9146775b-8474-415c-bb86-60a3e71cb962"], 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.9958346885570677`*^-245\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 236, 63, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326520216116*^9, 3.993960843443111*^9}, CellLabel-> "During evaluation of \ -In[118]:=",ExpressionUUID->"865c0491-32b6-3549-83ec-bdf42c3a31aa"], +In[236]:=",ExpressionUUID->"a4d33c59-be3a-4159-b51b-6c1a51a8ce2c"], 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, 236, 64, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326520216116*^9, 3.993960843450382*^9}, CellLabel-> "During evaluation of \ -In[118]:=",ExpressionUUID->"3566013f-7b44-504c-95a5-32d3ac2ece3d"], +In[236]:=",ExpressionUUID->"7dbaf65e-47d8-4278-b310-a6f4a685017b"], -Cell[BoxData["8.698310175000124`"], "Output", - CellChangeTimes->{3.9913265264075394`*^9}, +Cell[BoxData["37.38165536468873`"], "Output", + CellChangeTimes->{3.9913265264075394`*^9, 3.993960848907799*^9}, CellLabel-> - "Out[118]=",ExpressionUUID->"9cc3c720-52c0-b040-a0b4-75ff2aab4396"] + "Out[236]=",ExpressionUUID->"82990ad7-0074-421f-ba94-58a1a040ebe8"] }, Open ]], Cell[CellGroupData[{ @@ -11346,8 +12524,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -11392,68 +12569,69 @@ 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[237]:=",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[\\\"7.844442621317018`*^-232\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 237, 65, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265264435444`*^9, 3.993960848945614*^9}, CellLabel-> "During evaluation of \ -In[119]:=",ExpressionUUID->"bc9996c1-a929-5b41-9541-f607e96932b8"], +In[237]:=",ExpressionUUID->"5142eb42-3bc7-405c-9464-7ea2adc48902"], 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.2512478050338404`*^-238\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 237, 66, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265264435444`*^9, 3.9939608489546328`*^9}, CellLabel-> "During evaluation of \ -In[119]:=",ExpressionUUID->"eb28c83b-0aac-8d4e-a729-f978b41e689a"], +In[237]:=",ExpressionUUID->"7962084e-8658-4134-a423-a04c3cf78f2c"], 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.9958346885570677`*^-245\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 237, 67, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265264435444`*^9, 3.993960848963952*^9}, CellLabel-> "During evaluation of \ -In[119]:=",ExpressionUUID->"70b030cf-db8c-c440-8526-b10f71bb72b3"], +In[237]:=",ExpressionUUID->"fda57212-3ece-4f7e-80b5-b56025955856"], 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, 237, 68, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265264435444`*^9, 3.99396084897228*^9}, CellLabel-> "During evaluation of \ -In[119]:=",ExpressionUUID->"4d72b001-01d6-d944-9c97-6d0d7d2eccbb"], +In[237]:=",ExpressionUUID->"203db6b1-f42b-446d-a1aa-05b49a31228c"], -Cell[BoxData["16.721244215445346`"], "Output", - CellChangeTimes->{3.9913265299431496`*^9}, +Cell[BoxData["5.887471333606407`"], "Output", + CellChangeTimes->{3.9913265299431496`*^9, 3.993960852279888*^9}, CellLabel-> - "Out[119]=",ExpressionUUID->"c15d23fa-1bed-9640-940a-c33e3a830230"] + "Out[237]=",ExpressionUUID->"7fbf773d-653e-4d75-924e-b96ac266b8a4"] }, Open ]], Cell[CellGroupData[{ @@ -11462,22 +12640,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[238]:=",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"], + +Cell[BoxData["0.0006963979580830805`"], "Output", + CellChangeTimes->{3.991326529975149*^9, 3.9939608523203573`*^9}, + CellLabel-> + "Out[238]=",ExpressionUUID->"523bfb2f-0fa5-41ae-9096-be9e305429e0"] }, 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[239]:=",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"], Cell[CellGroupData[{ @@ -11500,12 +12679,12 @@ Cell[BoxData[ RowBox[{"Ir", "*", "Il"}], RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", CellLabel-> - "In[122]:=",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], + "In[240]:=",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], -Cell[BoxData["29.129739599983825`"], "Output", - CellChangeTimes->{3.9913265300040226`*^9}, +Cell[BoxData["23.497029110268144`"], "Output", + CellChangeTimes->{3.9913265300040226`*^9, 3.993960852337839*^9}, CellLabel-> - "Out[122]=",ExpressionUUID->"26c56722-6e97-cb4f-b35b-a00d42f1d8f6"] + "Out[240]=",ExpressionUUID->"7e1ac2e1-c855-4857-bd83-0825d7bac6e6"] }, Open ]], Cell[CellGroupData[{ @@ -11515,12 +12694,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb1"]]}]], "Input", CellLabel-> - "In[124]:=",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], + "In[241]:=",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], -Cell[BoxData["0.6950071373045505`"], "Output", - CellChangeTimes->{3.991326530052025*^9}, +Cell[BoxData["1.186105929549187`"], "Output", + CellChangeTimes->{3.991326530052025*^9, 3.993960852346534*^9}, CellLabel-> - "Out[124]=",ExpressionUUID->"7e7edb0d-1306-d742-8b32-e7c6dc694892"] + "Out[241]=",ExpressionUUID->"263cb3f1-3b0d-4fc1-a553-d0cfe26e8e47"] }, Open ]], Cell[CellGroupData[{ @@ -11530,12 +12709,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[127]:=",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], + "In[242]:=",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], -Cell[BoxData["20.245376929811762`"], "Output", - CellChangeTimes->{3.9913265300922585`*^9}, +Cell[BoxData["27.869965554478902`"], "Output", + CellChangeTimes->{3.9913265300922585`*^9, 3.9939608523556843`*^9}, CellLabel-> - "Out[127]=",ExpressionUUID->"e5353287-a717-554a-9c6b-1021438b30ff"] + "Out[242]=",ExpressionUUID->"1591d511-d6d7-473d-86c6-29e935d2f3b9"] }, Open ]], Cell[CellGroupData[{ @@ -11725,12 +12904,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[128]:=",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], + "In[243]:=",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], -Cell[BoxData["0.022635100966331548`"], "Output", - CellChangeTimes->{3.9913265301172295`*^9}, +Cell[BoxData["0.005592310210604828`"], "Output", + CellChangeTimes->{3.9913265301172295`*^9, 3.99396085236683*^9}, CellLabel-> - "Out[128]=",ExpressionUUID->"ed4bd4f3-e1cc-fa47-b5b5-475b6e581b1f"] + "Out[243]=",ExpressionUUID->"6d49b682-dcc3-49a0-9ff1-415879839e6e"] }, Open ]], Cell[CellGroupData[{ @@ -11744,12 +12923,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[129]:=",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], + "In[244]:=",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], -Cell[BoxData["5.890521190513567`"], "Output", - CellChangeTimes->{3.991326530210228*^9}, +Cell[BoxData["11.85084488272336`"], "Output", + CellChangeTimes->{3.991326530210228*^9, 3.99396085247544*^9}, CellLabel-> - "Out[129]=",ExpressionUUID->"0c9f07a0-dfdf-6e41-964a-0bcdc0cbcb45"] + "Out[244]=",ExpressionUUID->"4832343c-ae39-465f-9098-7cc6a784070e"] }, Open ]], Cell[CellGroupData[{ @@ -11941,12 +13120,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[130]:=",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], + "In[245]:=",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], -Cell[BoxData["0.012260254107801566`"], "Output", - CellChangeTimes->{3.9913265302252293`*^9}, +Cell[BoxData["0.03119091510742229`"], "Output", + CellChangeTimes->{3.9913265302252293`*^9, 3.993960852488509*^9}, CellLabel-> - "Out[130]=",ExpressionUUID->"579eace1-979d-7347-a36f-c1fefbf459f5"] + "Out[245]=",ExpressionUUID->"5afd1aae-69e4-4e07-8939-def7e9dab7ea"] }, Open ]], Cell[CellGroupData[{ @@ -11960,12 +13139,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[131]:=",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], + "In[246]:=",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], -Cell[BoxData["8.003781147223087`"], "Output", - CellChangeTimes->{3.9913265303172264`*^9}, +Cell[BoxData["5.0180026040014605`"], "Output", + CellChangeTimes->{3.9913265303172264`*^9, 3.993960852597834*^9}, CellLabel-> - "Out[131]=",ExpressionUUID->"0225baf1-4541-ed4d-8528-13926fef86cd"] + "Out[246]=",ExpressionUUID->"09219f72-7524-4245-be3b-7ad1314f284b"] }, Open ]], Cell[CellGroupData[{ @@ -12058,12 +13237,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[132]:=",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], + "In[247]:=",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], -Cell[BoxData["0.6154782275967796`"], "Output", - CellChangeTimes->{3.9913265303292294`*^9}, +Cell[BoxData["0.14282325327174822`"], "Output", + CellChangeTimes->{3.9913265303292294`*^9, 3.993960852610194*^9}, CellLabel-> - "Out[132]=",ExpressionUUID->"f7c789e7-838d-b443-a597-00e69e7c3611"] + "Out[247]=",ExpressionUUID->"175bf8c7-ec17-4998-8d14-59cb33988ab0"] }, Open ]], Cell[CellGroupData[{ @@ -12153,12 +13332,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[133]:=",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], + "In[248]:=",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], -Cell[BoxData["0.3845217724032204`"], "Output", - CellChangeTimes->{3.991326530340416*^9}, +Cell[BoxData["0.8571767467282517`"], "Output", + CellChangeTimes->{3.991326530340416*^9, 3.993960852625297*^9}, CellLabel-> - "Out[133]=",ExpressionUUID->"fc2bf760-d110-cb46-bd02-e934de9fd4f9"] + "Out[248]=",ExpressionUUID->"e09164b1-5c0c-4f00-8be1-ab00cf8a7496"] }, Open ]], Cell[CellGroupData[{ @@ -12281,12 +13460,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[134]:=",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], + "In[249]:=",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], -Cell[BoxData["0.2366647789511063`"], "Output", - CellChangeTimes->{3.991326530367384*^9}, +Cell[BoxData["0.1224247715966223`"], "Output", + CellChangeTimes->{3.991326530367384*^9, 3.993960852639044*^9}, CellLabel-> - "Out[134]=",ExpressionUUID->"4304216c-b250-ab48-915e-b844e71a70f1"] + "Out[249]=",ExpressionUUID->"43afa503-7f37-4d80-93c5-60c77716c97c"] }, Open ]], Cell[CellGroupData[{ @@ -12348,68 +13527,70 @@ 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[250]:=",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[\\\"2.3028821558911452`*^-233\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 250, 69, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265303923836`*^9, 3.9939608526572227`*^9}, CellLabel-> "During evaluation of \ -In[135]:=",ExpressionUUID->"ef0dcda5-4eb3-fb4f-a7ba-cf9592c754fd"], +In[250]:=",ExpressionUUID->"74b49590-7139-4c26-8a94-ac70e70874c3"], 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.193731305278652`*^-240\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 250, 70, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265303923836`*^9, 3.993960852664838*^9}, CellLabel-> "During evaluation of \ -In[135]:=",ExpressionUUID->"516128bc-41b4-3d49-8276-2fe73d5d437e"], +In[250]:=",ExpressionUUID->"d9d45a48-9923-4344-b05b-6a37b1c2b09a"], 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.1713515084749544`*^-246\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 250, 71, 31385708286630252094, + "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265303923836`*^9, 3.9939608526716003`*^9}, CellLabel-> "During evaluation of \ -In[135]:=",ExpressionUUID->"83555127-edb0-f34d-bade-abdcd60ad387"], +In[250]:=",ExpressionUUID->"ddc6472f-51b1-4aa2-b4df-b7c057434580"], 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, 250, 72, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265303923836`*^9, 3.9939608526798353`*^9}, CellLabel-> "During evaluation of \ -In[135]:=",ExpressionUUID->"f8efe38f-0b83-4645-b574-b25c08902457"], +In[250]:=",ExpressionUUID->"1f4697e6-72d5-4c3d-9efb-ce98ed03f574"], -Cell[BoxData["5.890521190513565`"], "Output", - CellChangeTimes->{3.9913265339749985`*^9}, +Cell[BoxData["11.850844882723354`"], "Output", + CellChangeTimes->{3.9913265339749985`*^9, 3.99396085593871*^9}, CellLabel-> - "Out[135]=",ExpressionUUID->"de5933f0-d736-3443-950a-4744d8abefe5"] + "Out[250]=",ExpressionUUID->"4b97a184-8247-4e1f-a51e-d507fcc87bf8"] }, Open ]], Cell[CellGroupData[{ @@ -12471,68 +13652,70 @@ 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[251]:=",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[\\\"2.3028821558911452`*^-233\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 251, 73, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265340092525`*^9, 3.993960855974666*^9}, CellLabel-> "During evaluation of \ -In[136]:=",ExpressionUUID->"d0c389d2-1c6b-3a44-bd00-6e54df438015"], +In[251]:=",ExpressionUUID->"6ad66865-c9db-44d0-bed7-0375e23df679"], 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.193731305278652`*^-240\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 251, 74, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265340092525`*^9, 3.993960855983906*^9}, CellLabel-> "During evaluation of \ -In[136]:=",ExpressionUUID->"3f819d0b-3458-d54e-bb8e-ed758b92949a"], +In[251]:=",ExpressionUUID->"4506c5b8-4b22-45fc-b315-d113b3be1b11"], 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.1713515084749544`*^-246\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 251, 75, 31385708286630252094, + "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265340092525`*^9, 3.993960855991844*^9}, CellLabel-> "During evaluation of \ -In[136]:=",ExpressionUUID->"7403c575-bafd-2049-8d02-89293c73f7f1"], +In[251]:=",ExpressionUUID->"9bcefa65-57f2-4513-88b7-328799f98275"], 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, 251, 76, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265340092525`*^9, 3.993960856000222*^9}, CellLabel-> "During evaluation of \ -In[136]:=",ExpressionUUID->"29512b1b-8a2c-1740-986b-fb78e7d2ec89"], +In[251]:=",ExpressionUUID->"9bd429f0-5c1d-47d0-afa5-344c9901bca8"], -Cell[BoxData["8.00378114722308`"], "Output", - CellChangeTimes->{3.9913265375649567`*^9}, +Cell[BoxData["5.018002604001468`"], "Output", + CellChangeTimes->{3.9913265375649567`*^9, 3.993960859141028*^9}, CellLabel-> - "Out[136]=",ExpressionUUID->"686785b6-8c83-3e43-88fb-689383b13a2d"] + "Out[251]=",ExpressionUUID->"e51d6dd0-d0a1-48e0-a5ba-ec1c564b732d"] }, Open ]], Cell[CellGroupData[{ @@ -12590,92 +13773,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[252]:=",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:eJwV1Hk4VdsbB3BDRwPJkIjInCHSOeZivUVEZjIfw7HPJklCUqYSDUSoe9Mt +kRIhY4MpP5VmF5dGkiFDnTh2SSTyW+eP/ezn86y93/V911rPUmLtd2EL8PHx +TeCH9z7QrrvhXme7+a9vZ/u0tnKROfe6AcuyHDHy2ByeB/INz6taNiFm84iY +NrYT8a+QCOMxqncVc+a5OjbpEc2yDRV5j5TyfPqJTEtS6X+os51Q2Ihd33ng +yjz9NdpZllnGM6fnRfzhxnfo9BeWiw627IiKz0+LD8g5eVBCF3vXZLxJVFs/ +6gtbMcFz8zxHOLZ0EJ3K7xvYhP3mmHTc3fBPyGSVD1cPmytkyflBH0H6VclS +dGyhMxFejJlRNB3t5s7AVhDPe3ag8TPyceys0sd2kPt5g2sxjuppT2qMsMkC +5TU6y7jI6H/I2wQ7Sc0xdW/bJNpjEyS3Bfud9KvN0aXfkEdiMcccm/AO3XPu +zHeUvfB0FrCpy3xXa8KnkOHPbEUL7GXKOmLf6NOod1LpvjX2eeKRtZjUT7Sz +aWyzLbZisVfSppmfiJnr3mKHbbzxBHdf4yzSXrFJywU7xLC/jWMxj364P93s +h/0j9uCSFeoLyF23KyoQ+2ij8FbNZX/QRuHUDgI7F4zLgtsWUY3pUPdeXr6i +Z5aRpfxgNXVQLA679Mm5gWNyAiCS3LQ+iZd3zC8++4wAZD28ufM4drzWdG1V +uCA4Xzw0ls7LW6mkMkmngez6Xs8r2D2d481/rtFg4bGzwTVe/u/3vEWlhCD4 +2D7tEuxyfYccnRkh8HI+R9Rgt9Yf4Q9rXAa5b7JXPMOeftTd/9lCBFzvKavN +YkvYiYjFNYvARY0NGovYeq8sYaXJShhrtLURMuOi0OE7BZt1ReH6k4mR1dgR +Am16ZiJiEH469xQDe0S54lvqT3GwOKAaFYP9g3yxvIMhAaJpHI8kbIGyUSWZ +AxKQLPTc+xS2ImO9S+lXCTCx+LfhH2xvi6ya9gFJkFAe+dSC3REUGSX9UgqW +jPe/lzDnoo/FmekBy9bA8OBkvjz2+NfSazd3rIGZ0VUpGtgroj91b2lZA3Zd +CTfMsS1T3PQD7kjDvUY+tzDshuuG0yX5a0F+razzv9jXR+ZiTKPlISiPv6MI +cdHO3Sc/Rt2Sh8dzh/1qscdbJa1ujcrDrrNSyx5g61/fKKXopQB672tvfsBu +ZfnV0szXw7RYnLoUcNH3yYFDn48rAp/sVVo6tuQ+y9u19sowFhW9O20bF41e +XxHiFKoMTM4SjUvYdR865SZOKAOlWbi6HNvXjnlcvUUZpkYWt7RjX9eOcblI +V4HHhvRHktvx/JxiKlFaFQwj7tdcw3YLFtaxHVQDtahTYm8tuAjF7KZ7LKiB +r4ZIMwdbKzXfiFirDiFkUsofbL5rjO2JzupA/63nq27JRbc++njUPFAHqbpi +w0PYQu7lx2QLN8Aa/7UX5HfgfJb2bzgsTVCrOLYYb8VF11wv9M4kasJWK93n +57AzWYMDSy5pghWjvKwUmzh68KtCtybcn5NufIct3pTH52qhBcSJHEFDa3x+ +GFytRhVtWJTXMp3GllM+m5Q+vBGefPM1PGHDRU1pPzR/CejAnwcfbQuxfae8 +XpFKOrDr0t74Zuwrraqa2/10ACUVGM5gKwc3dM2+1QEBD/uloba43/IRNfKl +LryMDpDZvYuL5OUUSEUvPfALTeGCPRdtLIoW+Y3o4O8cKrrfmYtYxPFpHQc6 +1B9DC2exc1VyPgb40oFZLEirxhYsrKx6EkuHKw9c/Kewe65w3HKq6VB+eND8 +sAu+T3MD8jRVGODhHVxy2hXvb7qdrqeQPhT3Lpe9v5uLrkaqOt1pM4DFggi5 +cG8u6oxBRilFJvA43bvyM5uLlPxeOzDDzMBYxUd/OJKL2It3K+QPA7jnMewT +j3KR9Ne6pdKs7TB6o7i+K4uLohlbP+RoWUJIhtjQ0as4/8T8M0nODth2IatC +vRbv5/aopfkd1rB/iG5Y9RSfnx+hD8rP28B0Jl+39Acumt0m829r0i6gFyhC +whQX9fEJfhsMtIe01+ImZcKTKHzd/qxjKo4gNhY5aKwyiSr2PGv5K9UJNPTP +ND82m0RHptbOaO9xhrvMuQshHpNo2tbK/am/C1RSga2C0ZPIxCd724izKyym +k//rzppEXWvzQlsZbsAtrxqA8kkke+N4U4nGbhhbt8Ep9sUkqhvQsnNY6Q6S +BrZfaGOTSOEVFRwz4Q6/KxVt8vgpxPgru/zagAdk30wYnxWjUN6SKd2cR55Q +Rktcbr+eQne3bepJrfcCwfSmrIe6FMo1ShOfL/WGXzVM9TYzCnX0Fp1gnPGB +U8s09a7totAd+8uqEUd9oa2u8WCAN4W+7XPlCyeYsMVGGLqCKTRtpRnCtfCD +rPp0/RvRFCqZeD8bZegP6hlfy9YlU8jzalEQUyQAcl166zZlUqi2Zpe/4MkA +0HvolV3xD4VM5Lp+nf4VAPdrCl2biiikMhDc89+eQGirumj6vZJCw8J7HS9/ +CoSJuTpDywYKdWY6BFnvZoFU5ay36iMKnY/NFz7YyQKtVo32oZcUampe/BVk +EwTJdwQgrZtCq3zhJKMhCBYyCj90vKeQ4uqnHeuagiDrh7P2F2y9NnsZoeYg +kJi9sUegh0IuW31uvnsQBP89Nr6jj31+XczLhOdB8Mi76WQutmxf2apn74LA +iOYow+ylkKqfdK7vTBBM0mzfvf+A+wnglqTqE3CancG82k+hGxepKAdDAgQ0 +C+XvYK/u/m4ubUyAWQ5/xzNs7o6ZVyVbCIhR+YdGYV/X5uNv207APYWlD80G +KCQ6I+4l4UzA6Lq4mDfYwxkGy/P3EcBc8Hk0P0gh56dGr4L3E6AY3nNTdIhC +zXym+XoHCOiXjT6miH0xytzgYTQB9SenBC2xHbysA0fiCPid9nt3Gna9qle9 +dhoBQ4NzG1d/olBmY/yeuhsEJI/vzFs3TKF99AsmsSUEHM+guW3EtrtZvdy4 +lID1jTvnt2CvuDB6894tAirnmEo+2KmRTpy7twn4vFB4Pxc7XlN1752HBPQY +55iJj1Ao9MLLsJqPBKQ2SbvOYNuIjm6NHCDAvjXMmDZKIY1UvpX0IQIW/VVX +SWKPRhrcqh4hwFb+XpYudqBD/kTVOAEq0fbDBLYnLSq8co6ADDePtnZs6yjZ +iPI1bOD0j+VeGKPQw/wTtjkybHDONqy4jr217btqrCwb6rjaNdXYemov31so +sKFWQOjES+y1b+MsetXY8NTEg/kH+6tp35oVBmxItI14HvCZQmcFCu4Hu7LB +MWHwrMwX3P8mkVz73Xg+jYFDKtgpPrGRDA821MgHOehix9522rDozYaCP9+e +WGAHkvzZf7PYEF8nM7oPm/GCRTw+wIZlAnW9zdhvs9WEVbLYcGRwMc+VQ6EK +tDLkczYbROeUWnywUyZ+tN46x4ZzCd+7grDpNq2JxhfYcMf88oso7Ey+oO/2 +V9jgZMYvcA7ban/B+9hyNgjWn85qx5aXP2VoXsEG5mab+6+xf7zYf06wig3F +Kbd6PmAXqiP7zFo20JJZYxzshb6+lmsNbOhICd8p9JVCt+3kStqfsWGrYK6G +KXb6nADt/As28PUQ/oDNKuEEerWx4atu+wkrbLElDXLDHWyQI6OLXbDDGj3P +/nrDhgf/8euFYqto/R2jOsKGd50NzL+x594mdH8ZZcMEkrlyCbszla2HL37I +XyLcUYCdOKjPMRnH682tECjD7sntZjpOsSFce6SqGTtnqfiOI/wkdDHvanzC +bvre5xMtSML4mY/UGPZYX2lkOI2Eg6bPi8axt962LGAtJ8Fhy/DraezRgNjf +tuIkPCdVHZeO4/x2OyR2SJLQK+qWIIy9xUhCE0mRQG/cnrsKO2tluTtjLQkh +J33OS/PGG/qr5ZRImFGLKFLHJovKn0mpkLBZLsNEi/d91uH+VWokzEuQDTrY +o6TkyiWaJGy8ZZuszxuXtA4Z1yNhbM9rrW3YDX8kk0bpJLAsn6taYo98Gfhr +QJ8E89wYYWts05Yjj14Zk8BMn79ihz0cVqFwH0hwVKn46I4t6hlncG87Ce8Q +ae6FbWKx067akgR4/DrNBztz7dDhop0kGKn3fPHHrltSmZVvS4L1+fD5QOxP +k3HFF+1IMMiq/x2EbfxE6nWGEwnheyNbgrFZ1UNfT7qQ4DTen7oHO+NypUCy +GwmW5oLGe7GHIm30YjxJsL8VygrHXum3xjrCmwTpuIqe/bx6Np+Yob4kuMUV +owO8/9cnpPsFkOByuq4jipdnhW2hJ4uEAffOuWhevek19S4ECXFvLkvE8OoN +fuqwI0loGZeXPsSr11Y1ahVCAuOo67JYXr57CQsQivs7bDbKc0ah7eotYSRI +PeytOsyrnyGtbRBOwpyVbsgRXv3Y4W2bIkiYmtYXicMWIao9NSNJ+Nk8eZln +I8fE/SrRJLw55ycbz6tvuuuEfAxe75BjKTyfUZPJk47F+7vZs5fnu2IjteJH +SPD9PKSQgD34u/qFcDwJ71OUHHkWGUscpCWS+P5ZHcazYdeu2cUkEmT9Gw7y +/H9ioSo0 "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -12689,104 +13874,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:eJwV1Hk4VdsbB3BDRwPJkIjInCHSOeZivUVEZjIfw7HPJklCUqYSDUSoe9Mt +kRIhY4MpP5VmF5dGkiFDnTh2SSTyW+eP/ezn86y93/V911rPUmLtd2EL8PHx +TeCH9z7QrrvhXme7+a9vZ/u0tnKROfe6AcuyHDHy2ByeB/INz6taNiFm84iY +NrYT8a+QCOMxqncVc+a5OjbpEc2yDRV5j5TyfPqJTEtS6X+os51Q2Ihd33ng +yjz9NdpZllnGM6fnRfzhxnfo9BeWiw627IiKz0+LD8g5eVBCF3vXZLxJVFs/ +6gtbMcFz8zxHOLZ0EJ3K7xvYhP3mmHTc3fBPyGSVD1cPmytkyflBH0H6VclS +dGyhMxFejJlRNB3t5s7AVhDPe3ag8TPyceys0sd2kPt5g2sxjuppT2qMsMkC +5TU6y7jI6H/I2wQ7Sc0xdW/bJNpjEyS3Bfud9KvN0aXfkEdiMcccm/AO3XPu +zHeUvfB0FrCpy3xXa8KnkOHPbEUL7GXKOmLf6NOod1LpvjX2eeKRtZjUT7Sz +aWyzLbZisVfSppmfiJnr3mKHbbzxBHdf4yzSXrFJywU7xLC/jWMxj364P93s +h/0j9uCSFeoLyF23KyoQ+2ij8FbNZX/QRuHUDgI7F4zLgtsWUY3pUPdeXr6i +Z5aRpfxgNXVQLA679Mm5gWNyAiCS3LQ+iZd3zC8++4wAZD28ufM4drzWdG1V +uCA4Xzw0ls7LW6mkMkmngez6Xs8r2D2d481/rtFg4bGzwTVe/u/3vEWlhCD4 +2D7tEuxyfYccnRkh8HI+R9Rgt9Yf4Q9rXAa5b7JXPMOeftTd/9lCBFzvKavN +YkvYiYjFNYvARY0NGovYeq8sYaXJShhrtLURMuOi0OE7BZt1ReH6k4mR1dgR +Am16ZiJiEH469xQDe0S54lvqT3GwOKAaFYP9g3yxvIMhAaJpHI8kbIGyUSWZ +AxKQLPTc+xS2ImO9S+lXCTCx+LfhH2xvi6ya9gFJkFAe+dSC3REUGSX9UgqW +jPe/lzDnoo/FmekBy9bA8OBkvjz2+NfSazd3rIGZ0VUpGtgroj91b2lZA3Zd +CTfMsS1T3PQD7kjDvUY+tzDshuuG0yX5a0F+razzv9jXR+ZiTKPlISiPv6MI +cdHO3Sc/Rt2Sh8dzh/1qscdbJa1ujcrDrrNSyx5g61/fKKXopQB672tvfsBu +ZfnV0szXw7RYnLoUcNH3yYFDn48rAp/sVVo6tuQ+y9u19sowFhW9O20bF41e +XxHiFKoMTM4SjUvYdR865SZOKAOlWbi6HNvXjnlcvUUZpkYWt7RjX9eOcblI +V4HHhvRHktvx/JxiKlFaFQwj7tdcw3YLFtaxHVQDtahTYm8tuAjF7KZ7LKiB +r4ZIMwdbKzXfiFirDiFkUsofbL5rjO2JzupA/63nq27JRbc++njUPFAHqbpi +w0PYQu7lx2QLN8Aa/7UX5HfgfJb2bzgsTVCrOLYYb8VF11wv9M4kasJWK93n +57AzWYMDSy5pghWjvKwUmzh68KtCtybcn5NufIct3pTH52qhBcSJHEFDa3x+ +GFytRhVtWJTXMp3GllM+m5Q+vBGefPM1PGHDRU1pPzR/CejAnwcfbQuxfae8 +XpFKOrDr0t74Zuwrraqa2/10ACUVGM5gKwc3dM2+1QEBD/uloba43/IRNfKl +LryMDpDZvYuL5OUUSEUvPfALTeGCPRdtLIoW+Y3o4O8cKrrfmYtYxPFpHQc6 +1B9DC2exc1VyPgb40oFZLEirxhYsrKx6EkuHKw9c/Kewe65w3HKq6VB+eND8 +sAu+T3MD8jRVGODhHVxy2hXvb7qdrqeQPhT3Lpe9v5uLrkaqOt1pM4DFggi5 +cG8u6oxBRilFJvA43bvyM5uLlPxeOzDDzMBYxUd/OJKL2It3K+QPA7jnMewT +j3KR9Ne6pdKs7TB6o7i+K4uLohlbP+RoWUJIhtjQ0as4/8T8M0nODth2IatC +vRbv5/aopfkd1rB/iG5Y9RSfnx+hD8rP28B0Jl+39Acumt0m829r0i6gFyhC +whQX9fEJfhsMtIe01+ImZcKTKHzd/qxjKo4gNhY5aKwyiSr2PGv5K9UJNPTP +ND82m0RHptbOaO9xhrvMuQshHpNo2tbK/am/C1RSga2C0ZPIxCd724izKyym +k//rzppEXWvzQlsZbsAtrxqA8kkke+N4U4nGbhhbt8Ep9sUkqhvQsnNY6Q6S +BrZfaGOTSOEVFRwz4Q6/KxVt8vgpxPgru/zagAdk30wYnxWjUN6SKd2cR55Q +Rktcbr+eQne3bepJrfcCwfSmrIe6FMo1ShOfL/WGXzVM9TYzCnX0Fp1gnPGB +U8s09a7totAd+8uqEUd9oa2u8WCAN4W+7XPlCyeYsMVGGLqCKTRtpRnCtfCD +rPp0/RvRFCqZeD8bZegP6hlfy9YlU8jzalEQUyQAcl166zZlUqi2Zpe/4MkA +0HvolV3xD4VM5Lp+nf4VAPdrCl2biiikMhDc89+eQGirumj6vZJCw8J7HS9/ +CoSJuTpDywYKdWY6BFnvZoFU5ay36iMKnY/NFz7YyQKtVo32oZcUampe/BVk +EwTJdwQgrZtCq3zhJKMhCBYyCj90vKeQ4uqnHeuagiDrh7P2F2y9NnsZoeYg +kJi9sUegh0IuW31uvnsQBP89Nr6jj31+XczLhOdB8Mi76WQutmxf2apn74LA +iOYow+ylkKqfdK7vTBBM0mzfvf+A+wnglqTqE3CancG82k+hGxepKAdDAgQ0 +C+XvYK/u/m4ubUyAWQ5/xzNs7o6ZVyVbCIhR+YdGYV/X5uNv207APYWlD80G +KCQ6I+4l4UzA6Lq4mDfYwxkGy/P3EcBc8Hk0P0gh56dGr4L3E6AY3nNTdIhC +zXym+XoHCOiXjT6miH0xytzgYTQB9SenBC2xHbysA0fiCPid9nt3Gna9qle9 +dhoBQ4NzG1d/olBmY/yeuhsEJI/vzFs3TKF99AsmsSUEHM+guW3EtrtZvdy4 +lID1jTvnt2CvuDB6894tAirnmEo+2KmRTpy7twn4vFB4Pxc7XlN1752HBPQY +55iJj1Ao9MLLsJqPBKQ2SbvOYNuIjm6NHCDAvjXMmDZKIY1UvpX0IQIW/VVX +SWKPRhrcqh4hwFb+XpYudqBD/kTVOAEq0fbDBLYnLSq8co6ADDePtnZs6yjZ +iPI1bOD0j+VeGKPQw/wTtjkybHDONqy4jr217btqrCwb6rjaNdXYemov31so +sKFWQOjES+y1b+MsetXY8NTEg/kH+6tp35oVBmxItI14HvCZQmcFCu4Hu7LB +MWHwrMwX3P8mkVz73Xg+jYFDKtgpPrGRDA821MgHOehix9522rDozYaCP9+e +WGAHkvzZf7PYEF8nM7oPm/GCRTw+wIZlAnW9zdhvs9WEVbLYcGRwMc+VQ6EK +tDLkczYbROeUWnywUyZ+tN46x4ZzCd+7grDpNq2JxhfYcMf88oso7Ey+oO/2 +V9jgZMYvcA7ban/B+9hyNgjWn85qx5aXP2VoXsEG5mab+6+xf7zYf06wig3F +Kbd6PmAXqiP7zFo20JJZYxzshb6+lmsNbOhICd8p9JVCt+3kStqfsWGrYK6G +KXb6nADt/As28PUQ/oDNKuEEerWx4atu+wkrbLElDXLDHWyQI6OLXbDDGj3P +/nrDhgf/8euFYqto/R2jOsKGd50NzL+x594mdH8ZZcMEkrlyCbszla2HL37I +XyLcUYCdOKjPMRnH682tECjD7sntZjpOsSFce6SqGTtnqfiOI/wkdDHvanzC +bvre5xMtSML4mY/UGPZYX2lkOI2Eg6bPi8axt962LGAtJ8Fhy/DraezRgNjf +tuIkPCdVHZeO4/x2OyR2SJLQK+qWIIy9xUhCE0mRQG/cnrsKO2tluTtjLQkh +J33OS/PGG/qr5ZRImFGLKFLHJovKn0mpkLBZLsNEi/d91uH+VWokzEuQDTrY +o6TkyiWaJGy8ZZuszxuXtA4Z1yNhbM9rrW3YDX8kk0bpJLAsn6taYo98Gfhr +QJ8E89wYYWts05Yjj14Zk8BMn79ihz0cVqFwH0hwVKn46I4t6hlncG87Ce8Q +ae6FbWKx067akgR4/DrNBztz7dDhop0kGKn3fPHHrltSmZVvS4L1+fD5QOxP +k3HFF+1IMMiq/x2EbfxE6nWGEwnheyNbgrFZ1UNfT7qQ4DTen7oHO+NypUCy +GwmW5oLGe7GHIm30YjxJsL8VygrHXum3xjrCmwTpuIqe/bx6Np+Yob4kuMUV +owO8/9cnpPsFkOByuq4jipdnhW2hJ4uEAffOuWhevek19S4ECXFvLkvE8OoN +fuqwI0loGZeXPsSr11Y1ahVCAuOo67JYXr57CQsQivs7bDbKc0ah7eotYSRI +PeytOsyrnyGtbRBOwpyVbsgRXv3Y4W2bIkiYmtYXicMWIao9NSNJ+Nk8eZln +I8fE/SrRJLw55ycbz6tvuuuEfAxe75BjKTyfUZPJk47F+7vZs5fnu2IjteJH +SPD9PKSQgD34u/qFcDwJ71OUHHkWGUscpCWS+P5ZHcazYdeu2cUkEmT9Gw7y +/H9ioSo0 "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6007907022525464, - 1.5921070201523966`}}, + "PlotRange" -> {{0, 180}, {0.9448446586025617, + 1.0577368353605778`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6007907022525477}, + "AxesOrigin" -> {0, 0.9448446586025638}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -12798,21 +13985,21 @@ l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6007907022525464, - 1.5921070201523966`}}, + "PlotRange" -> {{0, 180}, {0.9448446586025617, + 1.0577368353605778`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6007907022525477}, + "AxesOrigin" -> {0, 0.9448446586025638}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -12826,102 +14013,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:eJwV1Hk4VdsbB3BDRwPJkIjInCHSOeZivUVEZjIfw7HPJklCUqYSDUSoe9Mt +kRIhY4MpP5VmF5dGkiFDnTh2SSTyW+eP/ezn86y93/V911rPUmLtd2EL8PHx +TeCH9z7QrrvhXme7+a9vZ/u0tnKROfe6AcuyHDHy2ByeB/INz6taNiFm84iY +NrYT8a+QCOMxqncVc+a5OjbpEc2yDRV5j5TyfPqJTEtS6X+os51Q2Ihd33ng +yjz9NdpZllnGM6fnRfzhxnfo9BeWiw627IiKz0+LD8g5eVBCF3vXZLxJVFs/ +6gtbMcFz8zxHOLZ0EJ3K7xvYhP3mmHTc3fBPyGSVD1cPmytkyflBH0H6VclS +dGyhMxFejJlRNB3t5s7AVhDPe3ag8TPyceys0sd2kPt5g2sxjuppT2qMsMkC +5TU6y7jI6H/I2wQ7Sc0xdW/bJNpjEyS3Bfud9KvN0aXfkEdiMcccm/AO3XPu +zHeUvfB0FrCpy3xXa8KnkOHPbEUL7GXKOmLf6NOod1LpvjX2eeKRtZjUT7Sz +aWyzLbZisVfSppmfiJnr3mKHbbzxBHdf4yzSXrFJywU7xLC/jWMxj364P93s +h/0j9uCSFeoLyF23KyoQ+2ij8FbNZX/QRuHUDgI7F4zLgtsWUY3pUPdeXr6i +Z5aRpfxgNXVQLA679Mm5gWNyAiCS3LQ+iZd3zC8++4wAZD28ufM4drzWdG1V +uCA4Xzw0ls7LW6mkMkmngez6Xs8r2D2d481/rtFg4bGzwTVe/u/3vEWlhCD4 +2D7tEuxyfYccnRkh8HI+R9Rgt9Yf4Q9rXAa5b7JXPMOeftTd/9lCBFzvKavN +YkvYiYjFNYvARY0NGovYeq8sYaXJShhrtLURMuOi0OE7BZt1ReH6k4mR1dgR +Am16ZiJiEH469xQDe0S54lvqT3GwOKAaFYP9g3yxvIMhAaJpHI8kbIGyUSWZ +AxKQLPTc+xS2ImO9S+lXCTCx+LfhH2xvi6ya9gFJkFAe+dSC3REUGSX9UgqW +jPe/lzDnoo/FmekBy9bA8OBkvjz2+NfSazd3rIGZ0VUpGtgroj91b2lZA3Zd +CTfMsS1T3PQD7kjDvUY+tzDshuuG0yX5a0F+razzv9jXR+ZiTKPlISiPv6MI +cdHO3Sc/Rt2Sh8dzh/1qscdbJa1ujcrDrrNSyx5g61/fKKXopQB672tvfsBu +ZfnV0szXw7RYnLoUcNH3yYFDn48rAp/sVVo6tuQ+y9u19sowFhW9O20bF41e +XxHiFKoMTM4SjUvYdR865SZOKAOlWbi6HNvXjnlcvUUZpkYWt7RjX9eOcblI +V4HHhvRHktvx/JxiKlFaFQwj7tdcw3YLFtaxHVQDtahTYm8tuAjF7KZ7LKiB +r4ZIMwdbKzXfiFirDiFkUsofbL5rjO2JzupA/63nq27JRbc++njUPFAHqbpi +w0PYQu7lx2QLN8Aa/7UX5HfgfJb2bzgsTVCrOLYYb8VF11wv9M4kasJWK93n +57AzWYMDSy5pghWjvKwUmzh68KtCtybcn5NufIct3pTH52qhBcSJHEFDa3x+ +GFytRhVtWJTXMp3GllM+m5Q+vBGefPM1PGHDRU1pPzR/CejAnwcfbQuxfae8 +XpFKOrDr0t74Zuwrraqa2/10ACUVGM5gKwc3dM2+1QEBD/uloba43/IRNfKl +LryMDpDZvYuL5OUUSEUvPfALTeGCPRdtLIoW+Y3o4O8cKrrfmYtYxPFpHQc6 +1B9DC2exc1VyPgb40oFZLEirxhYsrKx6EkuHKw9c/Kewe65w3HKq6VB+eND8 +sAu+T3MD8jRVGODhHVxy2hXvb7qdrqeQPhT3Lpe9v5uLrkaqOt1pM4DFggi5 +cG8u6oxBRilFJvA43bvyM5uLlPxeOzDDzMBYxUd/OJKL2It3K+QPA7jnMewT +j3KR9Ne6pdKs7TB6o7i+K4uLohlbP+RoWUJIhtjQ0as4/8T8M0nODth2IatC +vRbv5/aopfkd1rB/iG5Y9RSfnx+hD8rP28B0Jl+39Acumt0m829r0i6gFyhC +whQX9fEJfhsMtIe01+ImZcKTKHzd/qxjKo4gNhY5aKwyiSr2PGv5K9UJNPTP +ND82m0RHptbOaO9xhrvMuQshHpNo2tbK/am/C1RSga2C0ZPIxCd724izKyym +k//rzppEXWvzQlsZbsAtrxqA8kkke+N4U4nGbhhbt8Ep9sUkqhvQsnNY6Q6S +BrZfaGOTSOEVFRwz4Q6/KxVt8vgpxPgru/zagAdk30wYnxWjUN6SKd2cR55Q +Rktcbr+eQne3bepJrfcCwfSmrIe6FMo1ShOfL/WGXzVM9TYzCnX0Fp1gnPGB +U8s09a7totAd+8uqEUd9oa2u8WCAN4W+7XPlCyeYsMVGGLqCKTRtpRnCtfCD +rPp0/RvRFCqZeD8bZegP6hlfy9YlU8jzalEQUyQAcl166zZlUqi2Zpe/4MkA +0HvolV3xD4VM5Lp+nf4VAPdrCl2biiikMhDc89+eQGirumj6vZJCw8J7HS9/ +CoSJuTpDywYKdWY6BFnvZoFU5ay36iMKnY/NFz7YyQKtVo32oZcUampe/BVk +EwTJdwQgrZtCq3zhJKMhCBYyCj90vKeQ4uqnHeuagiDrh7P2F2y9NnsZoeYg +kJi9sUegh0IuW31uvnsQBP89Nr6jj31+XczLhOdB8Mi76WQutmxf2apn74LA +iOYow+ylkKqfdK7vTBBM0mzfvf+A+wnglqTqE3CancG82k+hGxepKAdDAgQ0 +C+XvYK/u/m4ubUyAWQ5/xzNs7o6ZVyVbCIhR+YdGYV/X5uNv207APYWlD80G +KCQ6I+4l4UzA6Lq4mDfYwxkGy/P3EcBc8Hk0P0gh56dGr4L3E6AY3nNTdIhC +zXym+XoHCOiXjT6miH0xytzgYTQB9SenBC2xHbysA0fiCPid9nt3Gna9qle9 +dhoBQ4NzG1d/olBmY/yeuhsEJI/vzFs3TKF99AsmsSUEHM+guW3EtrtZvdy4 +lID1jTvnt2CvuDB6894tAirnmEo+2KmRTpy7twn4vFB4Pxc7XlN1752HBPQY +55iJj1Ao9MLLsJqPBKQ2SbvOYNuIjm6NHCDAvjXMmDZKIY1UvpX0IQIW/VVX +SWKPRhrcqh4hwFb+XpYudqBD/kTVOAEq0fbDBLYnLSq8co6ADDePtnZs6yjZ +iPI1bOD0j+VeGKPQw/wTtjkybHDONqy4jr217btqrCwb6rjaNdXYemov31so +sKFWQOjES+y1b+MsetXY8NTEg/kH+6tp35oVBmxItI14HvCZQmcFCu4Hu7LB +MWHwrMwX3P8mkVz73Xg+jYFDKtgpPrGRDA821MgHOehix9522rDozYaCP9+e +WGAHkvzZf7PYEF8nM7oPm/GCRTw+wIZlAnW9zdhvs9WEVbLYcGRwMc+VQ6EK +tDLkczYbROeUWnywUyZ+tN46x4ZzCd+7grDpNq2JxhfYcMf88oso7Ey+oO/2 +V9jgZMYvcA7ban/B+9hyNgjWn85qx5aXP2VoXsEG5mab+6+xf7zYf06wig3F +Kbd6PmAXqiP7zFo20JJZYxzshb6+lmsNbOhICd8p9JVCt+3kStqfsWGrYK6G +KXb6nADt/As28PUQ/oDNKuEEerWx4atu+wkrbLElDXLDHWyQI6OLXbDDGj3P +/nrDhgf/8euFYqto/R2jOsKGd50NzL+x594mdH8ZZcMEkrlyCbszla2HL37I +XyLcUYCdOKjPMRnH682tECjD7sntZjpOsSFce6SqGTtnqfiOI/wkdDHvanzC +bvre5xMtSML4mY/UGPZYX2lkOI2Eg6bPi8axt962LGAtJ8Fhy/DraezRgNjf +tuIkPCdVHZeO4/x2OyR2SJLQK+qWIIy9xUhCE0mRQG/cnrsKO2tluTtjLQkh +J33OS/PGG/qr5ZRImFGLKFLHJovKn0mpkLBZLsNEi/d91uH+VWokzEuQDTrY +o6TkyiWaJGy8ZZuszxuXtA4Z1yNhbM9rrW3YDX8kk0bpJLAsn6taYo98Gfhr +QJ8E89wYYWts05Yjj14Zk8BMn79ihz0cVqFwH0hwVKn46I4t6hlncG87Ce8Q +ae6FbWKx067akgR4/DrNBztz7dDhop0kGKn3fPHHrltSmZVvS4L1+fD5QOxP +k3HFF+1IMMiq/x2EbfxE6nWGEwnheyNbgrFZ1UNfT7qQ4DTen7oHO+NypUCy +GwmW5oLGe7GHIm30YjxJsL8VygrHXum3xjrCmwTpuIqe/bx6Np+Yob4kuMUV +owO8/9cnpPsFkOByuq4jipdnhW2hJ4uEAffOuWhevek19S4ECXFvLkvE8OoN +fuqwI0loGZeXPsSr11Y1ahVCAuOo67JYXr57CQsQivs7bDbKc0ah7eotYSRI +PeytOsyrnyGtbRBOwpyVbsgRXv3Y4W2bIkiYmtYXicMWIao9NSNJ+Nk8eZln +I8fE/SrRJLw55ycbz6tvuuuEfAxe75BjKTyfUZPJk47F+7vZs5fnu2IjteJH +SPD9PKSQgD34u/qFcDwJ71OUHHkWGUscpCWS+P5ZHcazYdeu2cUkEmT9Gw7y +/H9ioSo0 "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6007907022525464, 1.5921070201523966`}}, + "PlotRange" -> {{0, 180}, {0.9448446586025617, 1.0577368353605778`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6007907022525477}, + "AxesOrigin" -> {0, 0.9448446586025638}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -12931,7 +14120,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.9448446586025638}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -12959,7 +14149,8 @@ l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.6007907022525464, 1.5921070201523966`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.9448446586025617, 1.0577368353605778`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -12967,9 +14158,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.993961147872555*^9}, CellLabel-> - "Out[137]=",ExpressionUUID->"9eb47740-dc4f-3248-80e4-ef19d916a0ad"] + "Out[252]=",ExpressionUUID->"6daec290-f786-4e63-a645-f78f243b3811"] }, Open ]], Cell[CellGroupData[{ @@ -13032,154 +14223,157 @@ 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[253]:=",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.962223088138177`*^-266\\\", \ + "\"\\!\\(\\*FractionBox[\\\"3.065149205173798`*^-275\\\", \ +\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 253, + 77, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326773051552*^9, 3.9939611480052557`*^9}, + CellLabel-> + "During evaluation of \ +In[253]:=",ExpressionUUID->"30972f83-ff0c-45a4-b407-c4621c16498f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.5964375872117238`*^-288\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 253, + 78, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326773051552*^9, 3.993961148013589*^9}, + CellLabel-> + "During evaluation of \ +In[253]:=",ExpressionUUID->"cfe1eefe-44e9-4901-97c1-e7e7e4f9c9df"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1993996680183103`*^-301\\\", \ \\\"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, 253, + 79, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326773051552*^9, 3.9939611480209*^9}, CellLabel-> "During evaluation of \ -In[138]:=",ExpressionUUID->"6bc1b8c6-3100-6640-9985-3abfd43de799"], - -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}, - CellLabel-> - "During evaluation of \ -In[138]:=",ExpressionUUID->"82e13dda-210b-a94d-9e1d-a821db42ab6b"], - -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}, - CellLabel-> - "During evaluation of \ -In[138]:=",ExpressionUUID->"9d37688a-c69d-ed49-bce7-cf0090e0ecb8"], +In[253]:=",ExpressionUUID->"0cfb608a-5dc3-41f0-b2e3-b4fa7e1b2a0a"], 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, 253, 80, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326773051552*^9, 3.9939611480289803`*^9}, CellLabel-> "During evaluation of \ -In[138]:=",ExpressionUUID->"4e87d0d8-b47a-ef47-85af-16467b219f50"], +In[253]:=",ExpressionUUID->"6f80750b-2967-4c67-a278-83eed6386c34"], 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:eJwV13k41OsXAHBxhRuRnWzznbGUPSExnYMSKoQ2txDZIlEqlGvLkqWQClki +lHW+upKlZElJpaiQim5K94dEtmj7vf6YZ57P88yc9z1nznve7zDcDtt7cHNx +cc2T1+L77MDDe6zEwg0lItx3VH3YG17kSoeY9kWBtaBTTPKCLKDEUzfpvjQI +3a+lY7ewGo7blfby9BWAskJlg9rCelgxLpU233sD+nYL9E/OW8PgbZvD070t +UHlrVafVvBNYsEbeTvZ2w3BiU0Tr7EGY7zW8MNH7HqrrbCPqxkKh1fxaYVfB +FPRqfPus8y4R5Abrht00fsLtVal50eHpIO7nUspnzoNlvs3HjW5kQZquRYPN +Dn4M5Raw1ku4Aq8ydJomRYTQs8hEwMbhKiQWhj/lllmB9qGtsfkyxSCVPnTm +fI4YZmxtLPNLug5xjlYbumclUHB4LVdjSinIVnfKci+RxMrO8dGPGaVQKeY4 +p7tMEt2uCdzkzy+Fnm5nOlVREvfcjnu9oaoUWNuDqO2Wkph0nN/lUFcptGzL +W/osUxKtHmYEdIuUwU+Lmc4nJlI45LIuoyaxDI4a5bs8jJJG7ZDvaxoCy8H6 +yvLpLUnSeOPsQI5icDlQfKfiOy9I42BmwoHwv8vh2YudVc+vS+O0fiCPbmI5 +aAUI8gx0SmP9gOrJvYXl8F/xieKvsjJ4t+7x1POX5bBX3Obzyn9k0E7r1S4z +/QrY+GUh1H9IFuMZub7LhisgxDJ9dfOYLDpYxdxfNVoBlfma/WKzshi7aVWm ++UQFSDu6GtXxr0RGo2KRz0IFjNW2zfForcT02m2O4csr4XxUSlBm8EpcW54+ +90y/Et5LqPjfE5LDaMdbjwQjK0Hq8F15KSk5pIOjJjNjKmFr++4nPkpyaKAy +lkQlVEJNaKKGsJ4cljfks1TOV0LC4MTInt1yaNq1pG+2sBLWlDR4fSmQQ+7s +lB2NDyoh0mT7ftl18njyppr8sAAHLJ1zvxqayePgyctJ65ZzYHnEaPSOrfL4 +KNe5OEaUA9mtMcUprvKYaZL6SnglB2qt60eXnpHHhY8yGz+oc2BiN/P41Ct5 +HOVScUreygHnYzMJj08qYCvjjdP7MxxQvmQmNxKjgHFdUwkJyRyS/7kKvhQF +bA75w18zlQOhP1Y9MytUQHPrOBv3DA5ciHaWqHusgDe88qPPFXPgceqDvCJ5 +RTS03Co10syB9ZWZ1X/fVcTp/2S+lU5zYGNv58/xdkW8xmusdmKOAzZcf2x2 +6VbEsF/7H2xY4IC7vf8r+KiIn5qjHZt+c8DiJCM8glcJ/R3s/rLgpSFAcfaq +qboSyif8iCgSpmHmn5T2eW0lrJCo0vgkQkOopfrnqrVK2GtUcl5FlIaYQFcD +aoMS7gvzTM8VpyGrtaOde7sS6r9G76MyNNzzyvvcelwJJW//nU5TNFj9MBI9 +dVIJ2340iHUyaehMeWGwNkIJNx2JsP8fi4ZXdQIRhWeU8Fx4s7CMKg3jy4JE +Y7KV8Hm+buo+dRqkaUtDixayH4OeyVA9Gvy+TUa0CzHwnJOjo4AZDesDPSWH +RRk4pkQZTRLzj/SX8UgzkGXkcbrHnIai1609GygGDvII2WVuomGg8YLGTQMG +Xl/i0P7bkgbbGKO+fBcGZl3YXWBnS4PCr4pDdw8w8L+Y0yxhOxrGjlM8b30Y +eNTthPgj4njvZVrSQQwUrsgGY3samra8jT4bz8Du0KBnPxxpWCMaqX2yioEh +aweteZ1o4EqcuZdRw8Bbd6w/ZBF38hx0qmlgoCd/4JTmXzT4ztjHTLYx0DiK +69jWvTQU9rFee/UzMDflqZivMw1HtmcGxAwykNetymeMGDuEll79wMCApdFG +vi40vG2Y1RkYZ+DxzpVW+11pkMxrj3XkoRBEbQ213Wj4IMWWO8JP4cB8j282 +8Y2UqqpzQhRGWJUq8LmT/KOy3nRIUWiv57fkJXG8h98aUw0Kba8IPbL3oGHn +wLsHzroUzqzIWVJOzNq1Y98pAwrzbefruT1J/pYb4m8hhR++utdeJ55XFxnQ +3EHhUMTa8R4vGmZzZCP1nChsMbEXXOlNw7SwMsvIhcK0nMfte4nHp4wObvSh +cB0trviKeNRjo5C1P4W97tz1Yj40/NdrQ9sepdDibtLMFuL3De6zTmEUGund +sbtJPKjpn+kaReHbk3GBw8Rv8oJNPOPI+o8M9CUOkv5aET3om0Shcpxztilx +T3RyVGAqhbkX0q75Ej+fuaR84iKFS929dp0nfuZV0H7qMoUpA4HltcQdW24t +jy+isF/9b8sfxA/uNFcll1K44mB5iqwv6Xftx47nORRWaPlEGBA35/fMZVRT +OD69RdqOuFHs36zcOgpP1Y3t9iJuiBllFzZSyLcwZHaKuHZu5l1JK4W/qjt6 +zhLf9OE6zWmnUMVnvUQe8Y3Xf6refEKhjcSTX+XEnG0SHfXdFE4ayqfXEpff +VTzU1Evq39n2spm4RHe1yP03FE7tdLvXTlx8de0/j/6lMP3RWdcnxFclYGfX +MIVniz+VPiW+Emc13zNKYeqgQOGic+Ydst9MkPijaVsXP5/l6wzvZyg0b1Qq +Wox36a33+08LFPLe3165uF667dGYz78ptP5yz3txP6nNYWpTfzDRoUDm5eJ+ +z+rFP/omwETr1i9TucSJRWn+v5Yz8WXVp7bFfOOlclb8Ic7ER5YFWxbrEXPm +WrWADBN73jbFLNYr6nvVLmEFJq4w/Ri0WM/wQ7cXxJlMbLhdJWNIfGrwfo6s +GhN7xR8GrSQO2d6FSppMfBLbGfuT/F7HW18PKa9houJDD7u3xEf1h2PVDZn4 +7U+97nrigGsTq3RNmDgy1S94kdg3kTfAxIKJX2lbziZi75/CYmZbmHhntbe0 +LLHnYdmazXYkv4tfTcZIv7k6aP+wd2KiYcl8/RnifW1GebtdmDha2iaxg9jJ +cKOZ8wEmhtkXaCkQO67cE+/jT+rhoJtTQvp9e7K7+uGj5Pu0wbQvsc3vQ51B +wUwsqfu6TIPYcihKPCKKiZIvjSKKyHkyKSu/cvEiE0/6dpwNI+fttVJZ3qbL +TDzHfuOnRxx6sSR3Oo+Jsk/1//pEzuutyOJs+xIm0lkzB62I1+y+krH8NhO7 +t+h4zpLz3vUk99KdJiaKr1/ak00cYJ5z0a+NiesdLjmZEldqZaV3dDKRZ3Z1 +4WkyP1bxpqfE/svEqtL/WU6TedMemnZOf5iJUo7e/onEnhMpZz+MMHHCZ3WF +EnHh6+Qks2km3l/eGryJzCulG3Hxv5ayUNrBZXfwPjKvXE5GHNdg4fsHog3R +e0j/vwgJV9ZlYaqBUv2P3aRe1sF/v9Bn4QW+xtdHidP0j51aAywcauM/s3cX +DUKCh4PHt7Pw+uqwbKkdNPxR5xbgeYKFvlOfNfTJvL6qtf+wxCkW6qXmZ6eQ ++W5W6OJ/L4KF3iXh60ZsSD+d2+tHJbAwclp97tI2GhY8dnoPZLPw/imf/LfW +NEyKWrvubCHxveP0RMn90edHPTv4gIVy73Ya40Yy/+4vQPhjFnYfC1fzI/dN +SmiZ4vUeFkbVC9fcMaVB573g4PwICyvCyqo3b6DBv+rpvhwxZdxVMTc9Z0DD +iO2Ovz4cUMb0CzT7qQoN3SWaj775KOM6q+DTDco01PMsNRY6rIwP2oY6ish9 +eeZWjaxBiDIy+ZY6BZH7VU1Ruj8uWRnLFtQy5+Vp8Brv361eo4ygGbqniNzP +H5Jcdx7hU8HCmtbhOC6y/ogGpSOogvlfbJsyfnFgbvP8588iKlj3y85T4QcH +/uRJi/GRVUGLuZouRfI8oRPSWu2qqYKHE9Hm+xgHwjxUxGwdVPAHnyBDso8D +khvGnqrnqSDX975dH8s4YPXlhNVHA1W8e3hdgok1B+R0FWL5TVQx8VfZhloL +DowfudeibqqKLwbtonTMOZA+K2JyZIsqZpwfbpQ04cDAzxKt3y6q+G2Zs3m9 +JgeOCL4Rkzmjiryfzqi7iHAgaxUObH2tikXWz2S1nlfCmDv/0epwNaw9d/OU +jW0l+T8gxR3XsgoV1VpFhlZXgOgTlbP0l9W4ZPa7QPlcGcjFc+wMDDSwqFwp +cl9SKWSoG4mIeWniwbmiVmdmCXTImupPpWphBN7YNnfjGqyXa0nR7tHG/a3f +r9qS5/3lPAVB+6N0sECy/Z3wpUJQiFQ02aOii5PVnJhrMwUgoLy3xv6BLgpl +/1Mr5JYPWmwZzol9azCwPzJz8mMeHBkQbbXm0sN45WiuTR+z4ctU0g6rDD08 +/cRDe9AgCzZr38+y0lyLvaG3G6lbl6Bxyvj7XOdaTM7xDnBedQH8Ndb0d3no +Y8h3iaTAL2nAHj/wYo+AAXZpvHxaeiMFNrGktwkVGOCC49JMjeRkUItICG4x +NMQWK6+en1IJsNrD6K5yvyEaprzi1eXEgkej9+nqwHW4bFXkzU9Po+HulRcH +JiWM0DE5XiuLNxKmr/+e075lhFZc08HGWmHgrlwmkLVtPWo0d2T5qYXA5Orz +Bjcm1mNJZEBHvt0xqC38/u9MvDHuUD76vy6NI+C0kYnGCiY4w+iTujLjDysP +xdVpNZng8zwvLsEhH5D4069q2y42mhQKVX/q9IBC87DQiT1s/H05NZ230QPW +hJ01P7+XjTwx6mVaFR5gM0G/7NvPRvX7Ke4FiR4Q2zMz7+7HRl8Wj6uwlQd8 +Kwg3C41k4zT35eiFtgPQb3z+eXEZG6eEw699fuAO3scKs60q2dhiN2DsVesO +s5U3PcZoNgYcaLUbve4OolTfnG4NG5O5ez+KJrjDFn55uTtNbExpimUMbnWH +2y+KDzx/ycaZxmN8Xi/cwHp5rebxPjb+J6G0LLbNDfo2P5yVfs1Gr32fDTg1 +bjBdPxrv/I6Ney+vmFTMdAPNfJ2K/42w8Rr/vZ2hzm5wu9/0eNJnNs5H3uEe +sSXxxB1Ae4KN7AWLMndTN/CMO9YVNMPGvnWub4JYJF5TbJbUNzaa7lV0EpR0 +g6iFS+71C2zkWv+ksYLPDUTWlmjs+8nGx7d4effM74fcQ/Uzv3+zUdzPU3X5 +6H74P0SRFfM= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -13193,113 +14387,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:eJwV13k41OsXAHBxhRuRnWzznbGUPSExnYMSKoQ2txDZIlEqlGvLkqWQClki +lHW+upKlZElJpaiQim5K94dEtmj7vf6YZ57P88yc9z1nznve7zDcDtt7cHNx +cc2T1+L77MDDe6zEwg0lItx3VH3YG17kSoeY9kWBtaBTTPKCLKDEUzfpvjQI +3a+lY7ewGo7blfby9BWAskJlg9rCelgxLpU233sD+nYL9E/OW8PgbZvD070t +UHlrVafVvBNYsEbeTvZ2w3BiU0Tr7EGY7zW8MNH7HqrrbCPqxkKh1fxaYVfB +FPRqfPus8y4R5Abrht00fsLtVal50eHpIO7nUspnzoNlvs3HjW5kQZquRYPN +Dn4M5Raw1ku4Aq8ydJomRYTQs8hEwMbhKiQWhj/lllmB9qGtsfkyxSCVPnTm +fI4YZmxtLPNLug5xjlYbumclUHB4LVdjSinIVnfKci+RxMrO8dGPGaVQKeY4 +p7tMEt2uCdzkzy+Fnm5nOlVREvfcjnu9oaoUWNuDqO2Wkph0nN/lUFcptGzL +W/osUxKtHmYEdIuUwU+Lmc4nJlI45LIuoyaxDI4a5bs8jJJG7ZDvaxoCy8H6 +yvLpLUnSeOPsQI5icDlQfKfiOy9I42BmwoHwv8vh2YudVc+vS+O0fiCPbmI5 +aAUI8gx0SmP9gOrJvYXl8F/xieKvsjJ4t+7x1POX5bBX3Obzyn9k0E7r1S4z +/QrY+GUh1H9IFuMZub7LhisgxDJ9dfOYLDpYxdxfNVoBlfma/WKzshi7aVWm ++UQFSDu6GtXxr0RGo2KRz0IFjNW2zfForcT02m2O4csr4XxUSlBm8EpcW54+ +90y/Et5LqPjfE5LDaMdbjwQjK0Hq8F15KSk5pIOjJjNjKmFr++4nPkpyaKAy +lkQlVEJNaKKGsJ4cljfks1TOV0LC4MTInt1yaNq1pG+2sBLWlDR4fSmQQ+7s +lB2NDyoh0mT7ftl18njyppr8sAAHLJ1zvxqayePgyctJ65ZzYHnEaPSOrfL4 +KNe5OEaUA9mtMcUprvKYaZL6SnglB2qt60eXnpHHhY8yGz+oc2BiN/P41Ct5 +HOVScUreygHnYzMJj08qYCvjjdP7MxxQvmQmNxKjgHFdUwkJyRyS/7kKvhQF +bA75w18zlQOhP1Y9MytUQHPrOBv3DA5ciHaWqHusgDe88qPPFXPgceqDvCJ5 +RTS03Co10syB9ZWZ1X/fVcTp/2S+lU5zYGNv58/xdkW8xmusdmKOAzZcf2x2 +6VbEsF/7H2xY4IC7vf8r+KiIn5qjHZt+c8DiJCM8glcJ/R3s/rLgpSFAcfaq +qboSyif8iCgSpmHmn5T2eW0lrJCo0vgkQkOopfrnqrVK2GtUcl5FlIaYQFcD +aoMS7gvzTM8VpyGrtaOde7sS6r9G76MyNNzzyvvcelwJJW//nU5TNFj9MBI9 +dVIJ2340iHUyaehMeWGwNkIJNx2JsP8fi4ZXdQIRhWeU8Fx4s7CMKg3jy4JE +Y7KV8Hm+buo+dRqkaUtDixayH4OeyVA9Gvy+TUa0CzHwnJOjo4AZDesDPSWH +RRk4pkQZTRLzj/SX8UgzkGXkcbrHnIai1609GygGDvII2WVuomGg8YLGTQMG +Xl/i0P7bkgbbGKO+fBcGZl3YXWBnS4PCr4pDdw8w8L+Y0yxhOxrGjlM8b30Y +eNTthPgj4njvZVrSQQwUrsgGY3samra8jT4bz8Du0KBnPxxpWCMaqX2yioEh +aweteZ1o4EqcuZdRw8Bbd6w/ZBF38hx0qmlgoCd/4JTmXzT4ztjHTLYx0DiK +69jWvTQU9rFee/UzMDflqZivMw1HtmcGxAwykNetymeMGDuEll79wMCApdFG +vi40vG2Y1RkYZ+DxzpVW+11pkMxrj3XkoRBEbQ213Wj4IMWWO8JP4cB8j282 +8Y2UqqpzQhRGWJUq8LmT/KOy3nRIUWiv57fkJXG8h98aUw0Kba8IPbL3oGHn +wLsHzroUzqzIWVJOzNq1Y98pAwrzbefruT1J/pYb4m8hhR++utdeJ55XFxnQ +3EHhUMTa8R4vGmZzZCP1nChsMbEXXOlNw7SwMsvIhcK0nMfte4nHp4wObvSh +cB0trviKeNRjo5C1P4W97tz1Yj40/NdrQ9sepdDibtLMFuL3De6zTmEUGund +sbtJPKjpn+kaReHbk3GBw8Rv8oJNPOPI+o8M9CUOkv5aET3om0Shcpxztilx +T3RyVGAqhbkX0q75Ej+fuaR84iKFS929dp0nfuZV0H7qMoUpA4HltcQdW24t +jy+isF/9b8sfxA/uNFcll1K44mB5iqwv6Xftx47nORRWaPlEGBA35/fMZVRT +OD69RdqOuFHs36zcOgpP1Y3t9iJuiBllFzZSyLcwZHaKuHZu5l1JK4W/qjt6 +zhLf9OE6zWmnUMVnvUQe8Y3Xf6refEKhjcSTX+XEnG0SHfXdFE4ayqfXEpff +VTzU1Evq39n2spm4RHe1yP03FE7tdLvXTlx8de0/j/6lMP3RWdcnxFclYGfX +MIVniz+VPiW+Emc13zNKYeqgQOGic+Ydst9MkPijaVsXP5/l6wzvZyg0b1Qq +Wox36a33+08LFPLe3165uF667dGYz78ptP5yz3txP6nNYWpTfzDRoUDm5eJ+ +z+rFP/omwETr1i9TucSJRWn+v5Yz8WXVp7bFfOOlclb8Ic7ER5YFWxbrEXPm +WrWADBN73jbFLNYr6nvVLmEFJq4w/Ri0WM/wQ7cXxJlMbLhdJWNIfGrwfo6s +GhN7xR8GrSQO2d6FSppMfBLbGfuT/F7HW18PKa9houJDD7u3xEf1h2PVDZn4 +7U+97nrigGsTq3RNmDgy1S94kdg3kTfAxIKJX2lbziZi75/CYmZbmHhntbe0 +LLHnYdmazXYkv4tfTcZIv7k6aP+wd2KiYcl8/RnifW1GebtdmDha2iaxg9jJ +cKOZ8wEmhtkXaCkQO67cE+/jT+rhoJtTQvp9e7K7+uGj5Pu0wbQvsc3vQ51B +wUwsqfu6TIPYcihKPCKKiZIvjSKKyHkyKSu/cvEiE0/6dpwNI+fttVJZ3qbL +TDzHfuOnRxx6sSR3Oo+Jsk/1//pEzuutyOJs+xIm0lkzB62I1+y+krH8NhO7 +t+h4zpLz3vUk99KdJiaKr1/ak00cYJ5z0a+NiesdLjmZEldqZaV3dDKRZ3Z1 +4WkyP1bxpqfE/svEqtL/WU6TedMemnZOf5iJUo7e/onEnhMpZz+MMHHCZ3WF +EnHh6+Qks2km3l/eGryJzCulG3Hxv5ayUNrBZXfwPjKvXE5GHNdg4fsHog3R +e0j/vwgJV9ZlYaqBUv2P3aRe1sF/v9Bn4QW+xtdHidP0j51aAywcauM/s3cX +DUKCh4PHt7Pw+uqwbKkdNPxR5xbgeYKFvlOfNfTJvL6qtf+wxCkW6qXmZ6eQ ++W5W6OJ/L4KF3iXh60ZsSD+d2+tHJbAwclp97tI2GhY8dnoPZLPw/imf/LfW +NEyKWrvubCHxveP0RMn90edHPTv4gIVy73Ya40Yy/+4vQPhjFnYfC1fzI/dN +SmiZ4vUeFkbVC9fcMaVB573g4PwICyvCyqo3b6DBv+rpvhwxZdxVMTc9Z0DD +iO2Ovz4cUMb0CzT7qQoN3SWaj775KOM6q+DTDco01PMsNRY6rIwP2oY6ish9 +eeZWjaxBiDIy+ZY6BZH7VU1Ruj8uWRnLFtQy5+Vp8Brv361eo4ygGbqniNzP +H5Jcdx7hU8HCmtbhOC6y/ogGpSOogvlfbJsyfnFgbvP8588iKlj3y85T4QcH +/uRJi/GRVUGLuZouRfI8oRPSWu2qqYKHE9Hm+xgHwjxUxGwdVPAHnyBDso8D +khvGnqrnqSDX975dH8s4YPXlhNVHA1W8e3hdgok1B+R0FWL5TVQx8VfZhloL +DowfudeibqqKLwbtonTMOZA+K2JyZIsqZpwfbpQ04cDAzxKt3y6q+G2Zs3m9 +JgeOCL4Rkzmjiryfzqi7iHAgaxUObH2tikXWz2S1nlfCmDv/0epwNaw9d/OU +jW0l+T8gxR3XsgoV1VpFhlZXgOgTlbP0l9W4ZPa7QPlcGcjFc+wMDDSwqFwp +cl9SKWSoG4mIeWniwbmiVmdmCXTImupPpWphBN7YNnfjGqyXa0nR7tHG/a3f +r9qS5/3lPAVB+6N0sECy/Z3wpUJQiFQ02aOii5PVnJhrMwUgoLy3xv6BLgpl +/1Mr5JYPWmwZzol9azCwPzJz8mMeHBkQbbXm0sN45WiuTR+z4ctU0g6rDD08 +/cRDe9AgCzZr38+y0lyLvaG3G6lbl6Bxyvj7XOdaTM7xDnBedQH8Ndb0d3no +Y8h3iaTAL2nAHj/wYo+AAXZpvHxaeiMFNrGktwkVGOCC49JMjeRkUItICG4x +NMQWK6+en1IJsNrD6K5yvyEaprzi1eXEgkej9+nqwHW4bFXkzU9Po+HulRcH +JiWM0DE5XiuLNxKmr/+e075lhFZc08HGWmHgrlwmkLVtPWo0d2T5qYXA5Orz +Bjcm1mNJZEBHvt0xqC38/u9MvDHuUD76vy6NI+C0kYnGCiY4w+iTujLjDysP +xdVpNZng8zwvLsEhH5D4069q2y42mhQKVX/q9IBC87DQiT1s/H05NZ230QPW +hJ01P7+XjTwx6mVaFR5gM0G/7NvPRvX7Ke4FiR4Q2zMz7+7HRl8Wj6uwlQd8 +Kwg3C41k4zT35eiFtgPQb3z+eXEZG6eEw699fuAO3scKs60q2dhiN2DsVesO +s5U3PcZoNgYcaLUbve4OolTfnG4NG5O5ez+KJrjDFn55uTtNbExpimUMbnWH +2y+KDzx/ycaZxmN8Xi/cwHp5rebxPjb+J6G0LLbNDfo2P5yVfs1Gr32fDTg1 +bjBdPxrv/I6Ney+vmFTMdAPNfJ2K/42w8Rr/vZ2hzm5wu9/0eNJnNs5H3uEe +sSXxxB1Ae4KN7AWLMndTN/CMO9YVNMPGvnWub4JYJF5TbJbUNzaa7lV0EpR0 +g6iFS+71C2zkWv+ksYLPDUTWlmjs+8nGx7d4effM74fcQ/Uzv3+zUdzPU3X5 +6H74P0SRFfM= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "PlotRange" -> {{0, 30}, {0., 0.06414506838305042}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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" -> @@ -13311,19 +14504,19 @@ g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "PlotRange" -> {{0, 30}, {0., 0.06414506838305042}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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|>, @@ -13337,112 +14530,111 @@ 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:eJwV13k41OsXAHBxhRuRnWzznbGUPSExnYMSKoQ2txDZIlEqlGvLkqWQClki +lHW+upKlZElJpaiQim5K94dEtmj7vf6YZ57P88yc9z1nznve7zDcDtt7cHNx +cc2T1+L77MDDe6zEwg0lItx3VH3YG17kSoeY9kWBtaBTTPKCLKDEUzfpvjQI +3a+lY7ewGo7blfby9BWAskJlg9rCelgxLpU233sD+nYL9E/OW8PgbZvD070t +UHlrVafVvBNYsEbeTvZ2w3BiU0Tr7EGY7zW8MNH7HqrrbCPqxkKh1fxaYVfB +FPRqfPus8y4R5Abrht00fsLtVal50eHpIO7nUspnzoNlvs3HjW5kQZquRYPN +Dn4M5Raw1ku4Aq8ydJomRYTQs8hEwMbhKiQWhj/lllmB9qGtsfkyxSCVPnTm +fI4YZmxtLPNLug5xjlYbumclUHB4LVdjSinIVnfKci+RxMrO8dGPGaVQKeY4 +p7tMEt2uCdzkzy+Fnm5nOlVREvfcjnu9oaoUWNuDqO2Wkph0nN/lUFcptGzL +W/osUxKtHmYEdIuUwU+Lmc4nJlI45LIuoyaxDI4a5bs8jJJG7ZDvaxoCy8H6 +yvLpLUnSeOPsQI5icDlQfKfiOy9I42BmwoHwv8vh2YudVc+vS+O0fiCPbmI5 +aAUI8gx0SmP9gOrJvYXl8F/xieKvsjJ4t+7x1POX5bBX3Obzyn9k0E7r1S4z +/QrY+GUh1H9IFuMZub7LhisgxDJ9dfOYLDpYxdxfNVoBlfma/WKzshi7aVWm ++UQFSDu6GtXxr0RGo2KRz0IFjNW2zfForcT02m2O4csr4XxUSlBm8EpcW54+ +90y/Et5LqPjfE5LDaMdbjwQjK0Hq8F15KSk5pIOjJjNjKmFr++4nPkpyaKAy +lkQlVEJNaKKGsJ4cljfks1TOV0LC4MTInt1yaNq1pG+2sBLWlDR4fSmQQ+7s +lB2NDyoh0mT7ftl18njyppr8sAAHLJ1zvxqayePgyctJ65ZzYHnEaPSOrfL4 +KNe5OEaUA9mtMcUprvKYaZL6SnglB2qt60eXnpHHhY8yGz+oc2BiN/P41Ct5 +HOVScUreygHnYzMJj08qYCvjjdP7MxxQvmQmNxKjgHFdUwkJyRyS/7kKvhQF +bA75w18zlQOhP1Y9MytUQHPrOBv3DA5ciHaWqHusgDe88qPPFXPgceqDvCJ5 +RTS03Co10syB9ZWZ1X/fVcTp/2S+lU5zYGNv58/xdkW8xmusdmKOAzZcf2x2 +6VbEsF/7H2xY4IC7vf8r+KiIn5qjHZt+c8DiJCM8glcJ/R3s/rLgpSFAcfaq +qboSyif8iCgSpmHmn5T2eW0lrJCo0vgkQkOopfrnqrVK2GtUcl5FlIaYQFcD +aoMS7gvzTM8VpyGrtaOde7sS6r9G76MyNNzzyvvcelwJJW//nU5TNFj9MBI9 +dVIJ2340iHUyaehMeWGwNkIJNx2JsP8fi4ZXdQIRhWeU8Fx4s7CMKg3jy4JE +Y7KV8Hm+buo+dRqkaUtDixayH4OeyVA9Gvy+TUa0CzHwnJOjo4AZDesDPSWH +RRk4pkQZTRLzj/SX8UgzkGXkcbrHnIai1609GygGDvII2WVuomGg8YLGTQMG +Xl/i0P7bkgbbGKO+fBcGZl3YXWBnS4PCr4pDdw8w8L+Y0yxhOxrGjlM8b30Y +eNTthPgj4njvZVrSQQwUrsgGY3samra8jT4bz8Du0KBnPxxpWCMaqX2yioEh +aweteZ1o4EqcuZdRw8Bbd6w/ZBF38hx0qmlgoCd/4JTmXzT4ztjHTLYx0DiK +69jWvTQU9rFee/UzMDflqZivMw1HtmcGxAwykNetymeMGDuEll79wMCApdFG +vi40vG2Y1RkYZ+DxzpVW+11pkMxrj3XkoRBEbQ213Wj4IMWWO8JP4cB8j282 +8Y2UqqpzQhRGWJUq8LmT/KOy3nRIUWiv57fkJXG8h98aUw0Kba8IPbL3oGHn +wLsHzroUzqzIWVJOzNq1Y98pAwrzbefruT1J/pYb4m8hhR++utdeJ55XFxnQ +3EHhUMTa8R4vGmZzZCP1nChsMbEXXOlNw7SwMsvIhcK0nMfte4nHp4wObvSh +cB0trviKeNRjo5C1P4W97tz1Yj40/NdrQ9sepdDibtLMFuL3De6zTmEUGund +sbtJPKjpn+kaReHbk3GBw8Rv8oJNPOPI+o8M9CUOkv5aET3om0Shcpxztilx +T3RyVGAqhbkX0q75Ej+fuaR84iKFS929dp0nfuZV0H7qMoUpA4HltcQdW24t +jy+isF/9b8sfxA/uNFcll1K44mB5iqwv6Xftx47nORRWaPlEGBA35/fMZVRT +OD69RdqOuFHs36zcOgpP1Y3t9iJuiBllFzZSyLcwZHaKuHZu5l1JK4W/qjt6 +zhLf9OE6zWmnUMVnvUQe8Y3Xf6refEKhjcSTX+XEnG0SHfXdFE4ayqfXEpff +VTzU1Evq39n2spm4RHe1yP03FE7tdLvXTlx8de0/j/6lMP3RWdcnxFclYGfX +MIVniz+VPiW+Emc13zNKYeqgQOGic+Ydst9MkPijaVsXP5/l6wzvZyg0b1Qq +Wox36a33+08LFPLe3165uF667dGYz78ptP5yz3txP6nNYWpTfzDRoUDm5eJ+ +z+rFP/omwETr1i9TucSJRWn+v5Yz8WXVp7bFfOOlclb8Ic7ER5YFWxbrEXPm +WrWADBN73jbFLNYr6nvVLmEFJq4w/Ri0WM/wQ7cXxJlMbLhdJWNIfGrwfo6s +GhN7xR8GrSQO2d6FSppMfBLbGfuT/F7HW18PKa9houJDD7u3xEf1h2PVDZn4 +7U+97nrigGsTq3RNmDgy1S94kdg3kTfAxIKJX2lbziZi75/CYmZbmHhntbe0 +LLHnYdmazXYkv4tfTcZIv7k6aP+wd2KiYcl8/RnifW1GebtdmDha2iaxg9jJ +cKOZ8wEmhtkXaCkQO67cE+/jT+rhoJtTQvp9e7K7+uGj5Pu0wbQvsc3vQ51B +wUwsqfu6TIPYcihKPCKKiZIvjSKKyHkyKSu/cvEiE0/6dpwNI+fttVJZ3qbL +TDzHfuOnRxx6sSR3Oo+Jsk/1//pEzuutyOJs+xIm0lkzB62I1+y+krH8NhO7 +t+h4zpLz3vUk99KdJiaKr1/ak00cYJ5z0a+NiesdLjmZEldqZaV3dDKRZ3Z1 +4WkyP1bxpqfE/svEqtL/WU6TedMemnZOf5iJUo7e/onEnhMpZz+MMHHCZ3WF +EnHh6+Qks2km3l/eGryJzCulG3Hxv5ayUNrBZXfwPjKvXE5GHNdg4fsHog3R +e0j/vwgJV9ZlYaqBUv2P3aRe1sF/v9Bn4QW+xtdHidP0j51aAywcauM/s3cX +DUKCh4PHt7Pw+uqwbKkdNPxR5xbgeYKFvlOfNfTJvL6qtf+wxCkW6qXmZ6eQ ++W5W6OJ/L4KF3iXh60ZsSD+d2+tHJbAwclp97tI2GhY8dnoPZLPw/imf/LfW +NEyKWrvubCHxveP0RMn90edHPTv4gIVy73Ya40Yy/+4vQPhjFnYfC1fzI/dN +SmiZ4vUeFkbVC9fcMaVB573g4PwICyvCyqo3b6DBv+rpvhwxZdxVMTc9Z0DD +iO2Ovz4cUMb0CzT7qQoN3SWaj775KOM6q+DTDco01PMsNRY6rIwP2oY6ish9 +eeZWjaxBiDIy+ZY6BZH7VU1Ruj8uWRnLFtQy5+Vp8Brv361eo4ygGbqniNzP +H5Jcdx7hU8HCmtbhOC6y/ogGpSOogvlfbJsyfnFgbvP8588iKlj3y85T4QcH +/uRJi/GRVUGLuZouRfI8oRPSWu2qqYKHE9Hm+xgHwjxUxGwdVPAHnyBDso8D +khvGnqrnqSDX975dH8s4YPXlhNVHA1W8e3hdgok1B+R0FWL5TVQx8VfZhloL +DowfudeibqqKLwbtonTMOZA+K2JyZIsqZpwfbpQ04cDAzxKt3y6q+G2Zs3m9 +JgeOCL4Rkzmjiryfzqi7iHAgaxUObH2tikXWz2S1nlfCmDv/0epwNaw9d/OU +jW0l+T8gxR3XsgoV1VpFhlZXgOgTlbP0l9W4ZPa7QPlcGcjFc+wMDDSwqFwp +cl9SKWSoG4mIeWniwbmiVmdmCXTImupPpWphBN7YNnfjGqyXa0nR7tHG/a3f +r9qS5/3lPAVB+6N0sECy/Z3wpUJQiFQ02aOii5PVnJhrMwUgoLy3xv6BLgpl +/1Mr5JYPWmwZzol9azCwPzJz8mMeHBkQbbXm0sN45WiuTR+z4ctU0g6rDD08 +/cRDe9AgCzZr38+y0lyLvaG3G6lbl6Bxyvj7XOdaTM7xDnBedQH8Ndb0d3no +Y8h3iaTAL2nAHj/wYo+AAXZpvHxaeiMFNrGktwkVGOCC49JMjeRkUItICG4x +NMQWK6+en1IJsNrD6K5yvyEaprzi1eXEgkej9+nqwHW4bFXkzU9Po+HulRcH +JiWM0DE5XiuLNxKmr/+e075lhFZc08HGWmHgrlwmkLVtPWo0d2T5qYXA5Orz +Bjcm1mNJZEBHvt0xqC38/u9MvDHuUD76vy6NI+C0kYnGCiY4w+iTujLjDysP +xdVpNZng8zwvLsEhH5D4069q2y42mhQKVX/q9IBC87DQiT1s/H05NZ230QPW +hJ01P7+XjTwx6mVaFR5gM0G/7NvPRvX7Ke4FiR4Q2zMz7+7HRl8Wj6uwlQd8 +Kwg3C41k4zT35eiFtgPQb3z+eXEZG6eEw699fuAO3scKs60q2dhiN2DsVesO +s5U3PcZoNgYcaLUbve4OolTfnG4NG5O5ez+KJrjDFn55uTtNbExpimUMbnWH +2y+KDzx/ycaZxmN8Xi/cwHp5rebxPjb+J6G0LLbNDfo2P5yVfs1Gr32fDTg1 +bjBdPxrv/I6Ney+vmFTMdAPNfJ2K/42w8Rr/vZ2hzm5wu9/0eNJnNs5H3uEe +sSXxxB1Ae4KN7AWLMndTN/CMO9YVNMPGvnWub4JYJF5TbJbUNzaa7lV0EpR0 +g6iFS+71C2zkWv+ksYLPDUTWlmjs+8nGx7d4effM74fcQ/Uzv3+zUdzPU3X5 +6H74P0SRFfM= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "PlotRange" -> {{0, 30}, {0., 0.06414506838305042}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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|>, @@ -13453,6 +14645,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}}, @@ -13480,7 +14673,8 @@ g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.12905028199662316`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06414506838305042}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -13488,22 +14682,559 @@ g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991327033758711*^9}, + CellChangeTimes->{3.991327033758711*^9, 3.993961407421803*^9}, CellLabel-> - "Out[138]=",ExpressionUUID->"6974e3c4-9b35-2f4b-97bf-745f60f533f8"] + "Out[253]=",ExpressionUUID->"106ffece-677e-4ac3-bf49-10c4305d921d"] }, 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[254]:=",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[255]:=",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:eJwV13k41OsXAHBxhRuRnWzznbGUPSExnYMSKoQ2txDZIlEqlGvLkqWQClki +lHW+upKlZElJpaiQim5K94dEtmj7vf6YZ57P88yc9z1nznve7zDcDtt7cHNx +cc2T1+L77MDDe6zEwg0lItx3VH3YG17kSoeY9kWBtaBTTPKCLKDEUzfpvjQI +3a+lY7ewGo7blfby9BWAskJlg9rCelgxLpU233sD+nYL9E/OW8PgbZvD070t +UHlrVafVvBNYsEbeTvZ2w3BiU0Tr7EGY7zW8MNH7HqrrbCPqxkKh1fxaYVfB +FPRqfPus8y4R5Abrht00fsLtVal50eHpIO7nUspnzoNlvs3HjW5kQZquRYPN +Dn4M5Raw1ku4Aq8ydJomRYTQs8hEwMbhKiQWhj/lllmB9qGtsfkyxSCVPnTm +fI4YZmxtLPNLug5xjlYbumclUHB4LVdjSinIVnfKci+RxMrO8dGPGaVQKeY4 +p7tMEt2uCdzkzy+Fnm5nOlVREvfcjnu9oaoUWNuDqO2Wkph0nN/lUFcptGzL +W/osUxKtHmYEdIuUwU+Lmc4nJlI45LIuoyaxDI4a5bs8jJJG7ZDvaxoCy8H6 +yvLpLUnSeOPsQI5icDlQfKfiOy9I42BmwoHwv8vh2YudVc+vS+O0fiCPbmI5 +aAUI8gx0SmP9gOrJvYXl8F/xieKvsjJ4t+7x1POX5bBX3Obzyn9k0E7r1S4z +/QrY+GUh1H9IFuMZub7LhisgxDJ9dfOYLDpYxdxfNVoBlfma/WKzshi7aVWm ++UQFSDu6GtXxr0RGo2KRz0IFjNW2zfForcT02m2O4csr4XxUSlBm8EpcW54+ +90y/Et5LqPjfE5LDaMdbjwQjK0Hq8F15KSk5pIOjJjNjKmFr++4nPkpyaKAy +lkQlVEJNaKKGsJ4cljfks1TOV0LC4MTInt1yaNq1pG+2sBLWlDR4fSmQQ+7s +lB2NDyoh0mT7ftl18njyppr8sAAHLJ1zvxqayePgyctJ65ZzYHnEaPSOrfL4 +KNe5OEaUA9mtMcUprvKYaZL6SnglB2qt60eXnpHHhY8yGz+oc2BiN/P41Ct5 +HOVScUreygHnYzMJj08qYCvjjdP7MxxQvmQmNxKjgHFdUwkJyRyS/7kKvhQF +bA75w18zlQOhP1Y9MytUQHPrOBv3DA5ciHaWqHusgDe88qPPFXPgceqDvCJ5 +RTS03Co10syB9ZWZ1X/fVcTp/2S+lU5zYGNv58/xdkW8xmusdmKOAzZcf2x2 +6VbEsF/7H2xY4IC7vf8r+KiIn5qjHZt+c8DiJCM8glcJ/R3s/rLgpSFAcfaq +qboSyif8iCgSpmHmn5T2eW0lrJCo0vgkQkOopfrnqrVK2GtUcl5FlIaYQFcD +aoMS7gvzTM8VpyGrtaOde7sS6r9G76MyNNzzyvvcelwJJW//nU5TNFj9MBI9 +dVIJ2340iHUyaehMeWGwNkIJNx2JsP8fi4ZXdQIRhWeU8Fx4s7CMKg3jy4JE +Y7KV8Hm+buo+dRqkaUtDixayH4OeyVA9Gvy+TUa0CzHwnJOjo4AZDesDPSWH +RRk4pkQZTRLzj/SX8UgzkGXkcbrHnIai1609GygGDvII2WVuomGg8YLGTQMG +Xl/i0P7bkgbbGKO+fBcGZl3YXWBnS4PCr4pDdw8w8L+Y0yxhOxrGjlM8b30Y +eNTthPgj4njvZVrSQQwUrsgGY3samra8jT4bz8Du0KBnPxxpWCMaqX2yioEh +aweteZ1o4EqcuZdRw8Bbd6w/ZBF38hx0qmlgoCd/4JTmXzT4ztjHTLYx0DiK +69jWvTQU9rFee/UzMDflqZivMw1HtmcGxAwykNetymeMGDuEll79wMCApdFG +vi40vG2Y1RkYZ+DxzpVW+11pkMxrj3XkoRBEbQ213Wj4IMWWO8JP4cB8j282 +8Y2UqqpzQhRGWJUq8LmT/KOy3nRIUWiv57fkJXG8h98aUw0Kba8IPbL3oGHn +wLsHzroUzqzIWVJOzNq1Y98pAwrzbefruT1J/pYb4m8hhR++utdeJ55XFxnQ +3EHhUMTa8R4vGmZzZCP1nChsMbEXXOlNw7SwMsvIhcK0nMfte4nHp4wObvSh +cB0trviKeNRjo5C1P4W97tz1Yj40/NdrQ9sepdDibtLMFuL3De6zTmEUGund +sbtJPKjpn+kaReHbk3GBw8Rv8oJNPOPI+o8M9CUOkv5aET3om0Shcpxztilx +T3RyVGAqhbkX0q75Ej+fuaR84iKFS929dp0nfuZV0H7qMoUpA4HltcQdW24t +jy+isF/9b8sfxA/uNFcll1K44mB5iqwv6Xftx47nORRWaPlEGBA35/fMZVRT +OD69RdqOuFHs36zcOgpP1Y3t9iJuiBllFzZSyLcwZHaKuHZu5l1JK4W/qjt6 +zhLf9OE6zWmnUMVnvUQe8Y3Xf6refEKhjcSTX+XEnG0SHfXdFE4ayqfXEpff +VTzU1Evq39n2spm4RHe1yP03FE7tdLvXTlx8de0/j/6lMP3RWdcnxFclYGfX +MIVniz+VPiW+Emc13zNKYeqgQOGic+Ydst9MkPijaVsXP5/l6wzvZyg0b1Qq +Wox36a33+08LFPLe3165uF667dGYz78ptP5yz3txP6nNYWpTfzDRoUDm5eJ+ +z+rFP/omwETr1i9TucSJRWn+v5Yz8WXVp7bFfOOlclb8Ic7ER5YFWxbrEXPm +WrWADBN73jbFLNYr6nvVLmEFJq4w/Ri0WM/wQ7cXxJlMbLhdJWNIfGrwfo6s +GhN7xR8GrSQO2d6FSppMfBLbGfuT/F7HW18PKa9houJDD7u3xEf1h2PVDZn4 +7U+97nrigGsTq3RNmDgy1S94kdg3kTfAxIKJX2lbziZi75/CYmZbmHhntbe0 +LLHnYdmazXYkv4tfTcZIv7k6aP+wd2KiYcl8/RnifW1GebtdmDha2iaxg9jJ +cKOZ8wEmhtkXaCkQO67cE+/jT+rhoJtTQvp9e7K7+uGj5Pu0wbQvsc3vQ51B +wUwsqfu6TIPYcihKPCKKiZIvjSKKyHkyKSu/cvEiE0/6dpwNI+fttVJZ3qbL +TDzHfuOnRxx6sSR3Oo+Jsk/1//pEzuutyOJs+xIm0lkzB62I1+y+krH8NhO7 +t+h4zpLz3vUk99KdJiaKr1/ak00cYJ5z0a+NiesdLjmZEldqZaV3dDKRZ3Z1 +4WkyP1bxpqfE/svEqtL/WU6TedMemnZOf5iJUo7e/onEnhMpZz+MMHHCZ3WF +EnHh6+Qks2km3l/eGryJzCulG3Hxv5ayUNrBZXfwPjKvXE5GHNdg4fsHog3R +e0j/vwgJV9ZlYaqBUv2P3aRe1sF/v9Bn4QW+xtdHidP0j51aAywcauM/s3cX +DUKCh4PHt7Pw+uqwbKkdNPxR5xbgeYKFvlOfNfTJvL6qtf+wxCkW6qXmZ6eQ ++W5W6OJ/L4KF3iXh60ZsSD+d2+tHJbAwclp97tI2GhY8dnoPZLPw/imf/LfW +NEyKWrvubCHxveP0RMn90edHPTv4gIVy73Ya40Yy/+4vQPhjFnYfC1fzI/dN +SmiZ4vUeFkbVC9fcMaVB573g4PwICyvCyqo3b6DBv+rpvhwxZdxVMTc9Z0DD +iO2Ovz4cUMb0CzT7qQoN3SWaj775KOM6q+DTDco01PMsNRY6rIwP2oY6ish9 +eeZWjaxBiDIy+ZY6BZH7VU1Ruj8uWRnLFtQy5+Vp8Brv361eo4ygGbqniNzP +H5Jcdx7hU8HCmtbhOC6y/ogGpSOogvlfbJsyfnFgbvP8588iKlj3y85T4QcH +/uRJi/GRVUGLuZouRfI8oRPSWu2qqYKHE9Hm+xgHwjxUxGwdVPAHnyBDso8D +khvGnqrnqSDX975dH8s4YPXlhNVHA1W8e3hdgok1B+R0FWL5TVQx8VfZhloL +DowfudeibqqKLwbtonTMOZA+K2JyZIsqZpwfbpQ04cDAzxKt3y6q+G2Zs3m9 +JgeOCL4Rkzmjiryfzqi7iHAgaxUObH2tikXWz2S1nlfCmDv/0epwNaw9d/OU +jW0l+T8gxR3XsgoV1VpFhlZXgOgTlbP0l9W4ZPa7QPlcGcjFc+wMDDSwqFwp +cl9SKWSoG4mIeWniwbmiVmdmCXTImupPpWphBN7YNnfjGqyXa0nR7tHG/a3f +r9qS5/3lPAVB+6N0sECy/Z3wpUJQiFQ02aOii5PVnJhrMwUgoLy3xv6BLgpl +/1Mr5JYPWmwZzol9azCwPzJz8mMeHBkQbbXm0sN45WiuTR+z4ctU0g6rDD08 +/cRDe9AgCzZr38+y0lyLvaG3G6lbl6Bxyvj7XOdaTM7xDnBedQH8Ndb0d3no +Y8h3iaTAL2nAHj/wYo+AAXZpvHxaeiMFNrGktwkVGOCC49JMjeRkUItICG4x +NMQWK6+en1IJsNrD6K5yvyEaprzi1eXEgkej9+nqwHW4bFXkzU9Po+HulRcH +JiWM0DE5XiuLNxKmr/+e075lhFZc08HGWmHgrlwmkLVtPWo0d2T5qYXA5Orz +Bjcm1mNJZEBHvt0xqC38/u9MvDHuUD76vy6NI+C0kYnGCiY4w+iTujLjDysP +xdVpNZng8zwvLsEhH5D4069q2y42mhQKVX/q9IBC87DQiT1s/H05NZ230QPW +hJ01P7+XjTwx6mVaFR5gM0G/7NvPRvX7Ke4FiR4Q2zMz7+7HRl8Wj6uwlQd8 +Kwg3C41k4zT35eiFtgPQb3z+eXEZG6eEw699fuAO3scKs60q2dhiN2DsVesO +s5U3PcZoNgYcaLUbve4OolTfnG4NG5O5ez+KJrjDFn55uTtNbExpimUMbnWH +2y+KDzx/ycaZxmN8Xi/cwHp5rebxPjb+J6G0LLbNDfo2P5yVfs1Gr32fDTg1 +bjBdPxrv/I6Ney+vmFTMdAPNfJ2K/42w8Rr/vZ2hzm5wu9/0eNJnNs5H3uEe +sSXxxB1Ae4KN7AWLMndTN/CMO9YVNMPGvnWub4JYJF5TbJbUNzaa7lV0EpR0 +g6iFS+71C2zkWv+ksYLPDUTWlmjs+8nGx7d4effM74fcQ/Uzv3+zUdzPU3X5 +6H74P0SRFfM= + "]]}, + 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:eJwV13k41OsXAHBxhRuRnWzznbGUPSExnYMSKoQ2txDZIlEqlGvLkqWQClki +lHW+upKlZElJpaiQim5K94dEtmj7vf6YZ57P88yc9z1nznve7zDcDtt7cHNx +cc2T1+L77MDDe6zEwg0lItx3VH3YG17kSoeY9kWBtaBTTPKCLKDEUzfpvjQI +3a+lY7ewGo7blfby9BWAskJlg9rCelgxLpU233sD+nYL9E/OW8PgbZvD070t +UHlrVafVvBNYsEbeTvZ2w3BiU0Tr7EGY7zW8MNH7HqrrbCPqxkKh1fxaYVfB +FPRqfPus8y4R5Abrht00fsLtVal50eHpIO7nUspnzoNlvs3HjW5kQZquRYPN +Dn4M5Raw1ku4Aq8ydJomRYTQs8hEwMbhKiQWhj/lllmB9qGtsfkyxSCVPnTm +fI4YZmxtLPNLug5xjlYbumclUHB4LVdjSinIVnfKci+RxMrO8dGPGaVQKeY4 +p7tMEt2uCdzkzy+Fnm5nOlVREvfcjnu9oaoUWNuDqO2Wkph0nN/lUFcptGzL +W/osUxKtHmYEdIuUwU+Lmc4nJlI45LIuoyaxDI4a5bs8jJJG7ZDvaxoCy8H6 +yvLpLUnSeOPsQI5icDlQfKfiOy9I42BmwoHwv8vh2YudVc+vS+O0fiCPbmI5 +aAUI8gx0SmP9gOrJvYXl8F/xieKvsjJ4t+7x1POX5bBX3Obzyn9k0E7r1S4z +/QrY+GUh1H9IFuMZub7LhisgxDJ9dfOYLDpYxdxfNVoBlfma/WKzshi7aVWm ++UQFSDu6GtXxr0RGo2KRz0IFjNW2zfForcT02m2O4csr4XxUSlBm8EpcW54+ +90y/Et5LqPjfE5LDaMdbjwQjK0Hq8F15KSk5pIOjJjNjKmFr++4nPkpyaKAy +lkQlVEJNaKKGsJ4cljfks1TOV0LC4MTInt1yaNq1pG+2sBLWlDR4fSmQQ+7s +lB2NDyoh0mT7ftl18njyppr8sAAHLJ1zvxqayePgyctJ65ZzYHnEaPSOrfL4 +KNe5OEaUA9mtMcUprvKYaZL6SnglB2qt60eXnpHHhY8yGz+oc2BiN/P41Ct5 +HOVScUreygHnYzMJj08qYCvjjdP7MxxQvmQmNxKjgHFdUwkJyRyS/7kKvhQF +bA75w18zlQOhP1Y9MytUQHPrOBv3DA5ciHaWqHusgDe88qPPFXPgceqDvCJ5 +RTS03Co10syB9ZWZ1X/fVcTp/2S+lU5zYGNv58/xdkW8xmusdmKOAzZcf2x2 +6VbEsF/7H2xY4IC7vf8r+KiIn5qjHZt+c8DiJCM8glcJ/R3s/rLgpSFAcfaq +qboSyif8iCgSpmHmn5T2eW0lrJCo0vgkQkOopfrnqrVK2GtUcl5FlIaYQFcD +aoMS7gvzTM8VpyGrtaOde7sS6r9G76MyNNzzyvvcelwJJW//nU5TNFj9MBI9 +dVIJ2340iHUyaehMeWGwNkIJNx2JsP8fi4ZXdQIRhWeU8Fx4s7CMKg3jy4JE +Y7KV8Hm+buo+dRqkaUtDixayH4OeyVA9Gvy+TUa0CzHwnJOjo4AZDesDPSWH +RRk4pkQZTRLzj/SX8UgzkGXkcbrHnIai1609GygGDvII2WVuomGg8YLGTQMG +Xl/i0P7bkgbbGKO+fBcGZl3YXWBnS4PCr4pDdw8w8L+Y0yxhOxrGjlM8b30Y +eNTthPgj4njvZVrSQQwUrsgGY3samra8jT4bz8Du0KBnPxxpWCMaqX2yioEh +aweteZ1o4EqcuZdRw8Bbd6w/ZBF38hx0qmlgoCd/4JTmXzT4ztjHTLYx0DiK +69jWvTQU9rFee/UzMDflqZivMw1HtmcGxAwykNetymeMGDuEll79wMCApdFG +vi40vG2Y1RkYZ+DxzpVW+11pkMxrj3XkoRBEbQ213Wj4IMWWO8JP4cB8j282 +8Y2UqqpzQhRGWJUq8LmT/KOy3nRIUWiv57fkJXG8h98aUw0Kba8IPbL3oGHn +wLsHzroUzqzIWVJOzNq1Y98pAwrzbefruT1J/pYb4m8hhR++utdeJ55XFxnQ +3EHhUMTa8R4vGmZzZCP1nChsMbEXXOlNw7SwMsvIhcK0nMfte4nHp4wObvSh +cB0trviKeNRjo5C1P4W97tz1Yj40/NdrQ9sepdDibtLMFuL3De6zTmEUGund +sbtJPKjpn+kaReHbk3GBw8Rv8oJNPOPI+o8M9CUOkv5aET3om0Shcpxztilx +T3RyVGAqhbkX0q75Ej+fuaR84iKFS929dp0nfuZV0H7qMoUpA4HltcQdW24t +jy+isF/9b8sfxA/uNFcll1K44mB5iqwv6Xftx47nORRWaPlEGBA35/fMZVRT +OD69RdqOuFHs36zcOgpP1Y3t9iJuiBllFzZSyLcwZHaKuHZu5l1JK4W/qjt6 +zhLf9OE6zWmnUMVnvUQe8Y3Xf6refEKhjcSTX+XEnG0SHfXdFE4ayqfXEpff +VTzU1Evq39n2spm4RHe1yP03FE7tdLvXTlx8de0/j/6lMP3RWdcnxFclYGfX +MIVniz+VPiW+Emc13zNKYeqgQOGic+Ydst9MkPijaVsXP5/l6wzvZyg0b1Qq +Wox36a33+08LFPLe3165uF667dGYz78ptP5yz3txP6nNYWpTfzDRoUDm5eJ+ +z+rFP/omwETr1i9TucSJRWn+v5Yz8WXVp7bFfOOlclb8Ic7ER5YFWxbrEXPm +WrWADBN73jbFLNYr6nvVLmEFJq4w/Ri0WM/wQ7cXxJlMbLhdJWNIfGrwfo6s +GhN7xR8GrSQO2d6FSppMfBLbGfuT/F7HW18PKa9houJDD7u3xEf1h2PVDZn4 +7U+97nrigGsTq3RNmDgy1S94kdg3kTfAxIKJX2lbziZi75/CYmZbmHhntbe0 +LLHnYdmazXYkv4tfTcZIv7k6aP+wd2KiYcl8/RnifW1GebtdmDha2iaxg9jJ +cKOZ8wEmhtkXaCkQO67cE+/jT+rhoJtTQvp9e7K7+uGj5Pu0wbQvsc3vQ51B +wUwsqfu6TIPYcihKPCKKiZIvjSKKyHkyKSu/cvEiE0/6dpwNI+fttVJZ3qbL +TDzHfuOnRxx6sSR3Oo+Jsk/1//pEzuutyOJs+xIm0lkzB62I1+y+krH8NhO7 +t+h4zpLz3vUk99KdJiaKr1/ak00cYJ5z0a+NiesdLjmZEldqZaV3dDKRZ3Z1 +4WkyP1bxpqfE/svEqtL/WU6TedMemnZOf5iJUo7e/onEnhMpZz+MMHHCZ3WF +EnHh6+Qks2km3l/eGryJzCulG3Hxv5ayUNrBZXfwPjKvXE5GHNdg4fsHog3R +e0j/vwgJV9ZlYaqBUv2P3aRe1sF/v9Bn4QW+xtdHidP0j51aAywcauM/s3cX +DUKCh4PHt7Pw+uqwbKkdNPxR5xbgeYKFvlOfNfTJvL6qtf+wxCkW6qXmZ6eQ ++W5W6OJ/L4KF3iXh60ZsSD+d2+tHJbAwclp97tI2GhY8dnoPZLPw/imf/LfW +NEyKWrvubCHxveP0RMn90edHPTv4gIVy73Ya40Yy/+4vQPhjFnYfC1fzI/dN +SmiZ4vUeFkbVC9fcMaVB573g4PwICyvCyqo3b6DBv+rpvhwxZdxVMTc9Z0DD +iO2Ovz4cUMb0CzT7qQoN3SWaj775KOM6q+DTDco01PMsNRY6rIwP2oY6ish9 +eeZWjaxBiDIy+ZY6BZH7VU1Ruj8uWRnLFtQy5+Vp8Brv361eo4ygGbqniNzP +H5Jcdx7hU8HCmtbhOC6y/ogGpSOogvlfbJsyfnFgbvP8588iKlj3y85T4QcH +/uRJi/GRVUGLuZouRfI8oRPSWu2qqYKHE9Hm+xgHwjxUxGwdVPAHnyBDso8D +khvGnqrnqSDX975dH8s4YPXlhNVHA1W8e3hdgok1B+R0FWL5TVQx8VfZhloL +DowfudeibqqKLwbtonTMOZA+K2JyZIsqZpwfbpQ04cDAzxKt3y6q+G2Zs3m9 +JgeOCL4Rkzmjiryfzqi7iHAgaxUObH2tikXWz2S1nlfCmDv/0epwNaw9d/OU +jW0l+T8gxR3XsgoV1VpFhlZXgOgTlbP0l9W4ZPa7QPlcGcjFc+wMDDSwqFwp +cl9SKWSoG4mIeWniwbmiVmdmCXTImupPpWphBN7YNnfjGqyXa0nR7tHG/a3f +r9qS5/3lPAVB+6N0sECy/Z3wpUJQiFQ02aOii5PVnJhrMwUgoLy3xv6BLgpl +/1Mr5JYPWmwZzol9azCwPzJz8mMeHBkQbbXm0sN45WiuTR+z4ctU0g6rDD08 +/cRDe9AgCzZr38+y0lyLvaG3G6lbl6Bxyvj7XOdaTM7xDnBedQH8Ndb0d3no +Y8h3iaTAL2nAHj/wYo+AAXZpvHxaeiMFNrGktwkVGOCC49JMjeRkUItICG4x +NMQWK6+en1IJsNrD6K5yvyEaprzi1eXEgkej9+nqwHW4bFXkzU9Po+HulRcH +JiWM0DE5XiuLNxKmr/+e075lhFZc08HGWmHgrlwmkLVtPWo0d2T5qYXA5Orz +Bjcm1mNJZEBHvt0xqC38/u9MvDHuUD76vy6NI+C0kYnGCiY4w+iTujLjDysP +xdVpNZng8zwvLsEhH5D4069q2y42mhQKVX/q9IBC87DQiT1s/H05NZ230QPW +hJ01P7+XjTwx6mVaFR5gM0G/7NvPRvX7Ke4FiR4Q2zMz7+7HRl8Wj6uwlQd8 +Kwg3C41k4zT35eiFtgPQb3z+eXEZG6eEw699fuAO3scKs60q2dhiN2DsVesO +s5U3PcZoNgYcaLUbve4OolTfnG4NG5O5ez+KJrjDFn55uTtNbExpimUMbnWH +2y+KDzx/ycaZxmN8Xi/cwHp5rebxPjb+J6G0LLbNDfo2P5yVfs1Gr32fDTg1 +bjBdPxrv/I6Ney+vmFTMdAPNfJ2K/42w8Rr/vZ2hzm5wu9/0eNJnNs5H3uEe +sSXxxB1Ae4KN7AWLMndTN/CMO9YVNMPGvnWub4JYJF5TbJbUNzaa7lV0EpR0 +g6iFS+71C2zkWv+ksYLPDUTWlmjs+8nGx7d4effM74fcQ/Uzv3+zUdzPU3X5 +6H74P0SRFfM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06414506838305042}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.06414506838305042}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJwV13k41OsXAHBxhRuRnWzznbGUPSExnYMSKoQ2txDZIlEqlGvLkqWQClki +lHW+upKlZElJpaiQim5K94dEtmj7vf6YZ57P88yc9z1nznve7zDcDtt7cHNx +cc2T1+L77MDDe6zEwg0lItx3VH3YG17kSoeY9kWBtaBTTPKCLKDEUzfpvjQI +3a+lY7ewGo7blfby9BWAskJlg9rCelgxLpU233sD+nYL9E/OW8PgbZvD070t +UHlrVafVvBNYsEbeTvZ2w3BiU0Tr7EGY7zW8MNH7HqrrbCPqxkKh1fxaYVfB +FPRqfPus8y4R5Abrht00fsLtVal50eHpIO7nUspnzoNlvs3HjW5kQZquRYPN +Dn4M5Raw1ku4Aq8ydJomRYTQs8hEwMbhKiQWhj/lllmB9qGtsfkyxSCVPnTm +fI4YZmxtLPNLug5xjlYbumclUHB4LVdjSinIVnfKci+RxMrO8dGPGaVQKeY4 +p7tMEt2uCdzkzy+Fnm5nOlVREvfcjnu9oaoUWNuDqO2Wkph0nN/lUFcptGzL +W/osUxKtHmYEdIuUwU+Lmc4nJlI45LIuoyaxDI4a5bs8jJJG7ZDvaxoCy8H6 +yvLpLUnSeOPsQI5icDlQfKfiOy9I42BmwoHwv8vh2YudVc+vS+O0fiCPbmI5 +aAUI8gx0SmP9gOrJvYXl8F/xieKvsjJ4t+7x1POX5bBX3Obzyn9k0E7r1S4z +/QrY+GUh1H9IFuMZub7LhisgxDJ9dfOYLDpYxdxfNVoBlfma/WKzshi7aVWm ++UQFSDu6GtXxr0RGo2KRz0IFjNW2zfForcT02m2O4csr4XxUSlBm8EpcW54+ +90y/Et5LqPjfE5LDaMdbjwQjK0Hq8F15KSk5pIOjJjNjKmFr++4nPkpyaKAy +lkQlVEJNaKKGsJ4cljfks1TOV0LC4MTInt1yaNq1pG+2sBLWlDR4fSmQQ+7s +lB2NDyoh0mT7ftl18njyppr8sAAHLJ1zvxqayePgyctJ65ZzYHnEaPSOrfL4 +KNe5OEaUA9mtMcUprvKYaZL6SnglB2qt60eXnpHHhY8yGz+oc2BiN/P41Ct5 +HOVScUreygHnYzMJj08qYCvjjdP7MxxQvmQmNxKjgHFdUwkJyRyS/7kKvhQF +bA75w18zlQOhP1Y9MytUQHPrOBv3DA5ciHaWqHusgDe88qPPFXPgceqDvCJ5 +RTS03Co10syB9ZWZ1X/fVcTp/2S+lU5zYGNv58/xdkW8xmusdmKOAzZcf2x2 +6VbEsF/7H2xY4IC7vf8r+KiIn5qjHZt+c8DiJCM8glcJ/R3s/rLgpSFAcfaq +qboSyif8iCgSpmHmn5T2eW0lrJCo0vgkQkOopfrnqrVK2GtUcl5FlIaYQFcD +aoMS7gvzTM8VpyGrtaOde7sS6r9G76MyNNzzyvvcelwJJW//nU5TNFj9MBI9 +dVIJ2340iHUyaehMeWGwNkIJNx2JsP8fi4ZXdQIRhWeU8Fx4s7CMKg3jy4JE +Y7KV8Hm+buo+dRqkaUtDixayH4OeyVA9Gvy+TUa0CzHwnJOjo4AZDesDPSWH +RRk4pkQZTRLzj/SX8UgzkGXkcbrHnIai1609GygGDvII2WVuomGg8YLGTQMG +Xl/i0P7bkgbbGKO+fBcGZl3YXWBnS4PCr4pDdw8w8L+Y0yxhOxrGjlM8b30Y +eNTthPgj4njvZVrSQQwUrsgGY3samra8jT4bz8Du0KBnPxxpWCMaqX2yioEh +aweteZ1o4EqcuZdRw8Bbd6w/ZBF38hx0qmlgoCd/4JTmXzT4ztjHTLYx0DiK +69jWvTQU9rFee/UzMDflqZivMw1HtmcGxAwykNetymeMGDuEll79wMCApdFG +vi40vG2Y1RkYZ+DxzpVW+11pkMxrj3XkoRBEbQ213Wj4IMWWO8JP4cB8j282 +8Y2UqqpzQhRGWJUq8LmT/KOy3nRIUWiv57fkJXG8h98aUw0Kba8IPbL3oGHn +wLsHzroUzqzIWVJOzNq1Y98pAwrzbefruT1J/pYb4m8hhR++utdeJ55XFxnQ +3EHhUMTa8R4vGmZzZCP1nChsMbEXXOlNw7SwMsvIhcK0nMfte4nHp4wObvSh +cB0trviKeNRjo5C1P4W97tz1Yj40/NdrQ9sepdDibtLMFuL3De6zTmEUGund +sbtJPKjpn+kaReHbk3GBw8Rv8oJNPOPI+o8M9CUOkv5aET3om0Shcpxztilx +T3RyVGAqhbkX0q75Ej+fuaR84iKFS929dp0nfuZV0H7qMoUpA4HltcQdW24t +jy+isF/9b8sfxA/uNFcll1K44mB5iqwv6Xftx47nORRWaPlEGBA35/fMZVRT +OD69RdqOuFHs36zcOgpP1Y3t9iJuiBllFzZSyLcwZHaKuHZu5l1JK4W/qjt6 +zhLf9OE6zWmnUMVnvUQe8Y3Xf6refEKhjcSTX+XEnG0SHfXdFE4ayqfXEpff +VTzU1Evq39n2spm4RHe1yP03FE7tdLvXTlx8de0/j/6lMP3RWdcnxFclYGfX +MIVniz+VPiW+Emc13zNKYeqgQOGic+Ydst9MkPijaVsXP5/l6wzvZyg0b1Qq +Wox36a33+08LFPLe3165uF667dGYz78ptP5yz3txP6nNYWpTfzDRoUDm5eJ+ +z+rFP/omwETr1i9TucSJRWn+v5Yz8WXVp7bFfOOlclb8Ic7ER5YFWxbrEXPm +WrWADBN73jbFLNYr6nvVLmEFJq4w/Ri0WM/wQ7cXxJlMbLhdJWNIfGrwfo6s +GhN7xR8GrSQO2d6FSppMfBLbGfuT/F7HW18PKa9houJDD7u3xEf1h2PVDZn4 +7U+97nrigGsTq3RNmDgy1S94kdg3kTfAxIKJX2lbziZi75/CYmZbmHhntbe0 +LLHnYdmazXYkv4tfTcZIv7k6aP+wd2KiYcl8/RnifW1GebtdmDha2iaxg9jJ +cKOZ8wEmhtkXaCkQO67cE+/jT+rhoJtTQvp9e7K7+uGj5Pu0wbQvsc3vQ51B +wUwsqfu6TIPYcihKPCKKiZIvjSKKyHkyKSu/cvEiE0/6dpwNI+fttVJZ3qbL +TDzHfuOnRxx6sSR3Oo+Jsk/1//pEzuutyOJs+xIm0lkzB62I1+y+krH8NhO7 +t+h4zpLz3vUk99KdJiaKr1/ak00cYJ5z0a+NiesdLjmZEldqZaV3dDKRZ3Z1 +4WkyP1bxpqfE/svEqtL/WU6TedMemnZOf5iJUo7e/onEnhMpZz+MMHHCZ3WF +EnHh6+Qks2km3l/eGryJzCulG3Hxv5ayUNrBZXfwPjKvXE5GHNdg4fsHog3R +e0j/vwgJV9ZlYaqBUv2P3aRe1sF/v9Bn4QW+xtdHidP0j51aAywcauM/s3cX +DUKCh4PHt7Pw+uqwbKkdNPxR5xbgeYKFvlOfNfTJvL6qtf+wxCkW6qXmZ6eQ ++W5W6OJ/L4KF3iXh60ZsSD+d2+tHJbAwclp97tI2GhY8dnoPZLPw/imf/LfW +NEyKWrvubCHxveP0RMn90edHPTv4gIVy73Ya40Yy/+4vQPhjFnYfC1fzI/dN +SmiZ4vUeFkbVC9fcMaVB573g4PwICyvCyqo3b6DBv+rpvhwxZdxVMTc9Z0DD +iO2Ovz4cUMb0CzT7qQoN3SWaj775KOM6q+DTDco01PMsNRY6rIwP2oY6ish9 +eeZWjaxBiDIy+ZY6BZH7VU1Ruj8uWRnLFtQy5+Vp8Brv361eo4ygGbqniNzP +H5Jcdx7hU8HCmtbhOC6y/ogGpSOogvlfbJsyfnFgbvP8588iKlj3y85T4QcH +/uRJi/GRVUGLuZouRfI8oRPSWu2qqYKHE9Hm+xgHwjxUxGwdVPAHnyBDso8D +khvGnqrnqSDX975dH8s4YPXlhNVHA1W8e3hdgok1B+R0FWL5TVQx8VfZhloL +DowfudeibqqKLwbtonTMOZA+K2JyZIsqZpwfbpQ04cDAzxKt3y6q+G2Zs3m9 +JgeOCL4Rkzmjiryfzqi7iHAgaxUObH2tikXWz2S1nlfCmDv/0epwNaw9d/OU +jW0l+T8gxR3XsgoV1VpFhlZXgOgTlbP0l9W4ZPa7QPlcGcjFc+wMDDSwqFwp +cl9SKWSoG4mIeWniwbmiVmdmCXTImupPpWphBN7YNnfjGqyXa0nR7tHG/a3f +r9qS5/3lPAVB+6N0sECy/Z3wpUJQiFQ02aOii5PVnJhrMwUgoLy3xv6BLgpl +/1Mr5JYPWmwZzol9azCwPzJz8mMeHBkQbbXm0sN45WiuTR+z4ctU0g6rDD08 +/cRDe9AgCzZr38+y0lyLvaG3G6lbl6Bxyvj7XOdaTM7xDnBedQH8Ndb0d3no +Y8h3iaTAL2nAHj/wYo+AAXZpvHxaeiMFNrGktwkVGOCC49JMjeRkUItICG4x +NMQWK6+en1IJsNrD6K5yvyEaprzi1eXEgkej9+nqwHW4bFXkzU9Po+HulRcH +JiWM0DE5XiuLNxKmr/+e075lhFZc08HGWmHgrlwmkLVtPWo0d2T5qYXA5Orz +Bjcm1mNJZEBHvt0xqC38/u9MvDHuUD76vy6NI+C0kYnGCiY4w+iTujLjDysP +xdVpNZng8zwvLsEhH5D4069q2y42mhQKVX/q9IBC87DQiT1s/H05NZ230QPW +hJ01P7+XjTwx6mVaFR5gM0G/7NvPRvX7Ke4FiR4Q2zMz7+7HRl8Wj6uwlQd8 +Kwg3C41k4zT35eiFtgPQb3z+eXEZG6eEw699fuAO3scKs60q2dhiN2DsVesO +s5U3PcZoNgYcaLUbve4OolTfnG4NG5O5ez+KJrjDFn55uTtNbExpimUMbnWH +2y+KDzx/ycaZxmN8Xi/cwHp5rebxPjb+J6G0LLbNDfo2P5yVfs1Gr32fDTg1 +bjBdPxrv/I6Ney+vmFTMdAPNfJ2K/42w8Rr/vZ2hzm5wu9/0eNJnNs5H3uEe +sSXxxB1Ae4KN7AWLMndTN/CMO9YVNMPGvnWub4JYJF5TbJbUNzaa7lV0EpR0 +g6iFS+71C2zkWv+ksYLPDUTWlmjs+8nGx7d4effM74fcQ/Uzv3+zUdzPU3X5 +6H74P0SRFfM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06414506838305042}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJxTTMoPSmViYGCQB2IQDQNLGAINkrnK7CG8D/YFW/1i+sInQPkMDkmGr6Kq +58+C8jkczrencxoxLYLyBRw0tNtWMyssg/JFHAL6mFwO9qyE8iUc3u708W0y +XwPlyzi85X7Rai2+DspXcJimnKJwXm89lK/koKgQ78TaDuOrOFidyz201wjG +V3PYGsTxRMgdpl/D4cmtAMNz92HmazmUHVGU9hBfDeXrOAA5s8O4YO7RcyjZ +dKVq/0WYew0clAL+Nnu0LYHyDR1s9EWlP1vB/GfkcNon868u4wIo39jhkHfB +K+aTs6F8E4edQeebAu5Nh/JNHeT5a8u1vadA+WYOttd6eIrEJ0L55g6HXZpF +bFp7oHwLB/5r/y3PTG+H8i0dus7EPPgU0QzlWzkw5q6OTK+ph/KtHd7OVGXM +yqqE8m0cpK+FiLXGlkD5tg4f5zGfFjQqgPLtHO40Ld3VMD3THgDPenlb + "]]}, + 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:eJxTTMoPSmViYGCQB2IQDQNLGAINkrnK7CG8D/YFW/1i+sInQPkMDkmGr6Kq +58+C8jkczrencxoxLYLyBRw0tNtWMyssg/JFHAL6mFwO9qyE8iUc3u708W0y +XwPlyzi85X7Rai2+DspXcJimnKJwXm89lK/koKgQ78TaDuOrOFidyz201wjG +V3PYGsTxRMgdpl/D4cmtAMNz92HmazmUHVGU9hBfDeXrOAA5s8O4YO7RcyjZ +dKVq/0WYew0clAL+Nnu0LYHyDR1s9EWlP1vB/GfkcNon868u4wIo39jhkHfB +K+aTs6F8E4edQeebAu5Nh/JNHeT5a8u1vadA+WYOttd6eIrEJ0L55g6HXZpF +bFp7oHwLB/5r/y3PTG+H8i0dus7EPPgU0QzlWzkw5q6OTK+ph/KtHd7OVGXM +yqqE8m0cpK+FiLXGlkD5tg4f5zGfFjQqgPLtHO40Ld3VMD3THgDPenlb + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.061577}}, + "Frame" -> {{False, 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.061577}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGCQB2IQDQNLGAINkrnK7CG8D/YFW/1i+sInQPkMDkmGr6Kq +58+C8jkczrencxoxLYLyBRw0tNtWMyssg/JFHAL6mFwO9qyE8iUc3u708W0y +XwPlyzi85X7Rai2+DspXcJimnKJwXm89lK/koKgQ78TaDuOrOFidyz201wjG +V3PYGsTxRMgdpl/D4cmtAMNz92HmazmUHVGU9hBfDeXrOAA5s8O4YO7RcyjZ +dKVq/0WYew0clAL+Nnu0LYHyDR1s9EWlP1vB/GfkcNon868u4wIo39jhkHfB +K+aTs6F8E4edQeebAu5Nh/JNHeT5a8u1vadA+WYOttd6eIrEJ0L55g6HXZpF +bFp7oHwLB/5r/y3PTG+H8i0dus7EPPgU0QzlWzkw5q6OTK+ph/KtHd7OVGXM +yqqE8m0cpK+FiLXGlkD5tg4f5zGfFjQqgPLtHO40Ld3VMD3THgDPenlb + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.061577}}, + "Frame" -> {{False, 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.06414506838305042}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993961407517611*^9}, + CellLabel-> + "Out[255]=",ExpressionUUID->"7fad279d-cb4d-4db9-b31f-78899e79d630"] +}, Open ]], Cell[CellGroupData[{ @@ -13555,66 +15286,73 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[142]:=",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], + "In[256]:=",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[\\\"4.7068938712005146`*^-167\\\", \ +RowBox[{\\\"16119865811878511595667829951875854656452559\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"59\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"00669916936247705600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 256, + 81, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279097599506`*^9, 3.993961407563878*^9}, CellLabel-> "During evaluation of \ -In[142]:=",ExpressionUUID->"8906bbab-e37b-4b4c-898f-52bfc96dde7b"], +In[256]:=",ExpressionUUID->"58f1f452-41b8-46cf-b658-1e8a306177e4"], 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[\\\"4.452483353543099`*^-170\\\", \ +RowBox[{\\\"50551899186051012364014314729082680202635225\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"62\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"00859512072804761600000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 256, + 82, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279097599506`*^9, 3.9939614075718412`*^9}, CellLabel-> "During evaluation of \ -In[142]:=",ExpressionUUID->"6ae14bce-ec42-7f4d-9914-0630eea4cdf9"], +In[256]:=",ExpressionUUID->"a17dd183-ba0e-401c-8c3a-d8b1ee036c54"], 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.2118238813236786`*^-173\\\", \ +RowBox[{\\\"16424312045547973917068250855478962797836184\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"66\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"92554724542670438400000000000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 256, + 83, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279097599506`*^9, 3.99396140758147*^9}, CellLabel-> "During evaluation of \ -In[142]:=",ExpressionUUID->"7e98a506-896d-0d47-8502-b83685d9a60c"], +In[256]:=",ExpressionUUID->"5781f17b-7fdb-4fd0-9b9b-bc2894e79396"], 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, 256, 84, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279097599506`*^9, 3.993961407588023*^9}, CellLabel-> "During evaluation of \ -In[142]:=",ExpressionUUID->"400e66c2-06b5-814e-a2be-19c4c75ccbf0"], +In[256]:=",ExpressionUUID->"737eb4b1-9b99-4de8-ba65-6f8911c6c141"], -Cell[BoxData["11.275343508420296`"], "Output", - CellChangeTimes->{3.9913279159698696`*^9}, +Cell[BoxData["12.699539680928126`"], "Output", + CellChangeTimes->{3.9913279159698696`*^9, 3.993961452632902*^9}, CellLabel-> - "Out[142]=",ExpressionUUID->"f202ab02-e319-144b-97e8-ae603395b346"] + "Out[256]=",ExpressionUUID->"583963dc-81b6-4c21-80e2-9eac5ba4c27e"] }, Open ]], Cell[CellGroupData[{ @@ -13681,68 +15419,70 @@ 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[257]:=",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[\\\"2.3028821558911452`*^-233\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 257, 85, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327916008396*^9, 3.9939614526762657`*^9}, CellLabel-> "During evaluation of \ -In[143]:=",ExpressionUUID->"2d7e67d1-8691-e348-9ca8-caa63b533102"], +In[257]:=",ExpressionUUID->"523a6360-a6a9-4e49-9897-f4c391fb1646"], 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.193731305278652`*^-240\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 257, 86, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327916008396*^9, 3.993961452684121*^9}, CellLabel-> "During evaluation of \ -In[143]:=",ExpressionUUID->"f0eb6f1d-f621-8647-b6a6-8bf673e41ebb"], +In[257]:=",ExpressionUUID->"359cac77-e1a1-4a17-b6fc-05cc812eee08"], 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.1713515084749544`*^-246\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 257, 87, 31385708286630252094, + "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327916008396*^9, 3.993961452693684*^9}, CellLabel-> "During evaluation of \ -In[143]:=",ExpressionUUID->"64fda82a-0f74-2743-89a8-afd600de203a"], +In[257]:=",ExpressionUUID->"8eead7c5-ed67-484c-91a4-6780a905f08d"], 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, 257, 88, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327916008396*^9, 3.99396145270217*^9}, CellLabel-> "During evaluation of \ -In[143]:=",ExpressionUUID->"971a319d-8ab4-464d-a08e-f97fe8d4c0e1"], +In[257]:=",ExpressionUUID->"9b315962-a164-4d2a-9620-85d403232096"], -Cell[BoxData["1.0734937398087425`"], "Output", - CellChangeTimes->{3.991327922931429*^9}, +Cell[BoxData["0.019174441576443733`"], "Output", + CellChangeTimes->{3.991327922931429*^9, 3.993961458838949*^9}, CellLabel-> - "Out[143]=",ExpressionUUID->"b3c37f48-9827-884f-94d9-1f76aed7bfaa"] + "Out[257]=",ExpressionUUID->"5742c6ee-fcfa-46d4-b914-835953332318"] }, Open ]], Cell[CellGroupData[{ @@ -13763,8 +15503,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -13809,68 +15548,70 @@ 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[258]:=",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[\\\"2.3028821558911452`*^-233\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 258, 89, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279229664307`*^9, 3.993961458881192*^9}, CellLabel-> "During evaluation of \ -In[144]:=",ExpressionUUID->"1040ba10-c733-df44-b556-0998dc0163c9"], +In[258]:=",ExpressionUUID->"6c9ec524-7a32-4612-bef2-ad1f84a3da9d"], 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.193731305278652`*^-240\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 258, 90, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279229664307`*^9, 3.993961458889299*^9}, CellLabel-> "During evaluation of \ -In[144]:=",ExpressionUUID->"e451b852-84c2-a941-b1d7-812ecad4750e"], +In[258]:=",ExpressionUUID->"af3879cc-610a-4a1a-adf9-71a6558c661f"], 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.1713515084749544`*^-246\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 258, 91, 31385708286630252094, + "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279229664307`*^9, 3.993961458896303*^9}, CellLabel-> "During evaluation of \ -In[144]:=",ExpressionUUID->"a15e0c9d-d634-6e47-94c5-2ce40fcb4d52"], +In[258]:=",ExpressionUUID->"cd63b8f3-b683-423a-bee2-cd1acf83a72d"], 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, 258, 92, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279229664307`*^9, 3.993961458904924*^9}, CellLabel-> "During evaluation of \ -In[144]:=",ExpressionUUID->"a3ddc92b-b5c9-5e46-be44-6165430ec35f"], +In[258]:=",ExpressionUUID->"a84efb2d-6fd6-4630-92eb-b7b9a66acb13"], -Cell[BoxData["9.48093127226425`"], "Output", - CellChangeTimes->{3.9913279288200035`*^9}, +Cell[BoxData["38.374451437904476`"], "Output", + CellChangeTimes->{3.9913279288200035`*^9, 3.993961464767069*^9}, CellLabel-> - "Out[144]=",ExpressionUUID->"978bf39b-9d1f-a54f-a6de-a2e3d269e126"] + "Out[258]=",ExpressionUUID->"43492c28-b567-414a-a483-39ff6855c008"] }, Open ]], Cell[CellGroupData[{ @@ -13891,8 +15632,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -13937,68 +15677,70 @@ 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[259]:=",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[\\\"2.3028821558911452`*^-233\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 259, 93, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327928854006*^9, 3.993961464807434*^9}, CellLabel-> "During evaluation of \ -In[145]:=",ExpressionUUID->"57c74c2a-63a6-9846-b3f7-1a08cebb8172"], +In[259]:=",ExpressionUUID->"b2b7bf7f-b2f7-47b5-b521-7528974ec84d"], 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.193731305278652`*^-240\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 259, 94, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327928854006*^9, 3.993961464814938*^9}, CellLabel-> "During evaluation of \ -In[145]:=",ExpressionUUID->"2e606101-b73e-f443-8324-5b1c64dcaa7f"], +In[259]:=",ExpressionUUID->"3c94fec3-a03a-449b-bc2f-8b93af73fcd6"], 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.1713515084749544`*^-246\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 259, 95, 31385708286630252094, + "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327928854006*^9, 3.993961464821312*^9}, CellLabel-> "During evaluation of \ -In[145]:=",ExpressionUUID->"4da9173d-4ced-1e49-83f6-426d72ec8cf3"], +In[259]:=",ExpressionUUID->"689282fd-c56c-4a39-a6b3-7618aea003a0"], 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, 259, 96, 31385708286630252094, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327928854006*^9, 3.99396146482759*^9}, CellLabel-> "During evaluation of \ -In[145]:=",ExpressionUUID->"a2dba8d9-69c9-cb46-bbb4-f7192fe3e138"], +In[259]:=",ExpressionUUID->"d86019a8-a524-4b57-80a4-5add0dd0f17d"], -Cell[BoxData["17.503865312709518`"], "Output", - CellChangeTimes->{3.9913279320131683`*^9}, +Cell[BoxData["6.880267406822037`"], "Output", + CellChangeTimes->{3.9913279320131683`*^9, 3.993961468287107*^9}, CellLabel-> - "Out[145]=",ExpressionUUID->"12fa1803-dc21-9349-8d62-d5d5f0fa85c6"] + "Out[259]=",ExpressionUUID->"18d73612-1a6e-4cce-a638-e4ced0bc8bba"] }, Open ]], Cell[CellGroupData[{ @@ -14007,17 +15749,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[260]:=",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], + +Cell[BoxData["0.0011800461048311753`"], "Output", + CellChangeTimes->{3.9913279320452003`*^9, 3.9939614683213987`*^9}, + CellLabel-> + "Out[260]=",ExpressionUUID->"52b2ae8b-4aa1-4485-a2e8-ec8a5ecddd06"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input", + CellChangeTimes->{{3.993958925987282*^9, 3.993958928029352*^9}}, + CellLabel-> + "In[261]:=",ExpressionUUID->"4a107597-f742-49a1-8511-f72cb122299c"] }, -WindowSize->{714, 876}, +WindowSize->{714, 435}, WindowMargins->{{Automatic, 3}, {3, Automatic}}, CellContext->Notebook, Magnification:>1.2 Inherited, @@ -14038,660 +15786,673 @@ CellTagsIndex->{} Notebook[{ Cell[CellGroupData[{ Cell[576, 22, 303, 6, 35, "Input",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], -Cell[882, 30, 202, 4, 40, "Output",ExpressionUUID->"63b5906b-e178-4d24-87f0-3eb93a7d821b"] +Cell[882, 30, 249, 5, 40, "Output",ExpressionUUID->"a9a5fb07-efa3-4ce1-831a-c88fd0ca4555"] }, Open ]], Cell[CellGroupData[{ -Cell[1121, 39, 253, 5, 35, "Input",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], -Cell[1377, 46, 208, 4, 40, "Output",ExpressionUUID->"ecc67123-9912-4c49-bc37-9525b91a7e65"] +Cell[1168, 40, 253, 5, 35, "Input",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], +Cell[1424, 47, 258, 5, 40, "Output",ExpressionUUID->"ab53ef7c-2d24-4fa5-bdc6-152c4d33f037"] }, Open ]], Cell[CellGroupData[{ -Cell[1622, 55, 228, 5, 35, "Input",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], -Cell[1853, 62, 210, 4, 40, "Output",ExpressionUUID->"6d12210a-f944-45d2-8899-a6a810f4bf55"] +Cell[1719, 57, 228, 5, 35, "Input",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], +Cell[1950, 64, 260, 5, 40, "Output",ExpressionUUID->"13e41668-a435-4dda-b9a2-6d3494df318f"] }, Open ]], Cell[CellGroupData[{ -Cell[2100, 71, 180, 4, 35, "Input",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], -Cell[2283, 77, 208, 4, 40, "Output",ExpressionUUID->"9219d10a-36b1-45f9-8268-61973b929b9d"] +Cell[2247, 74, 180, 4, 35, "Input",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], +Cell[2430, 80, 256, 5, 40, "Output",ExpressionUUID->"3cb477c6-0607-409d-920a-b106c23fb6c4"] }, Open ]], Cell[CellGroupData[{ -Cell[2528, 86, 262, 8, 52, "Input",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], -Cell[2793, 96, 208, 4, 40, "Output",ExpressionUUID->"195ba534-dc31-4b84-a3d4-d4b813a6e348"] +Cell[2723, 90, 262, 8, 52, "Input",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], +Cell[2988, 100, 256, 5, 40, "Output",ExpressionUUID->"ec478b7f-2783-4572-89d7-75a1371ab72e"] }, Open ]], Cell[CellGroupData[{ -Cell[3038, 105, 136, 3, 35, "Input",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], -Cell[3177, 110, 208, 4, 40, "Output",ExpressionUUID->"9350aeef-b5e0-404b-bf63-e48717103d13"] +Cell[3281, 110, 136, 3, 35, "Input",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], +Cell[3420, 115, 256, 5, 40, "Output",ExpressionUUID->"952cfc55-88c7-4100-b313-19952153b52f"] }, Open ]], Cell[CellGroupData[{ -Cell[3422, 119, 281, 7, 35, "Input",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], -Cell[3706, 128, 223, 4, 40, "Output",ExpressionUUID->"9092633e-048a-4094-b0f2-40044b6e6eef"] +Cell[3713, 125, 281, 7, 35, "Input",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], +Cell[3997, 134, 273, 5, 40, "Output",ExpressionUUID->"879e0690-82ab-430f-996b-52c758873082"] }, Open ]], Cell[CellGroupData[{ -Cell[3966, 137, 262, 8, 35, "Input",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], -Cell[4231, 147, 222, 4, 40, "Output",ExpressionUUID->"299e74d9-6c35-47ea-ae02-0c210ce09cc0"] +Cell[4307, 144, 262, 8, 35, "Input",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], +Cell[4572, 154, 270, 5, 40, "Output",ExpressionUUID->"a849c59e-27e0-4820-8e7a-a4cf10b5117b"] }, Open ]], Cell[CellGroupData[{ -Cell[4490, 156, 234, 5, 35, "Input",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], -Cell[4727, 163, 184, 3, 40, "Output",ExpressionUUID->"3246f67a-e41f-4524-8dd3-07b181d4d934"] +Cell[4879, 164, 234, 5, 35, "Input",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], +Cell[5116, 171, 234, 4, 40, "Output",ExpressionUUID->"2302fcbc-34fd-4c4c-86bb-ac644cc6a55a"] }, Open ]], Cell[CellGroupData[{ -Cell[4948, 171, 229, 5, 35, "Input",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], -Cell[5180, 178, 184, 3, 40, "Output",ExpressionUUID->"77db9ebb-7b84-4383-a354-4a39faf0d29a"] +Cell[5387, 180, 229, 5, 35, "Input",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], +Cell[5619, 187, 231, 4, 40, "Output",ExpressionUUID->"cf3836cd-0774-4fb9-9fa1-0648291922bf"] }, Open ]], Cell[CellGroupData[{ -Cell[5401, 186, 133, 3, 35, "Input",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], -Cell[5537, 191, 204, 4, 40, "Output",ExpressionUUID->"07b77744-a6d5-4f56-906f-89b4d3fc4aa6"] +Cell[5887, 196, 133, 3, 35, "Input",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], +Cell[6023, 201, 252, 5, 40, "Output",ExpressionUUID->"0a07047d-bbbd-4118-bf40-6b950a77c13d"] }, Open ]], Cell[CellGroupData[{ -Cell[5778, 200, 133, 3, 35, "Input",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], -Cell[5914, 205, 204, 4, 40, "Output",ExpressionUUID->"06f63b55-e00e-4017-9547-f926363f55cb"] +Cell[6312, 211, 133, 3, 35, "Input",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], +Cell[6448, 216, 254, 5, 40, "Output",ExpressionUUID->"d04d1e28-e0df-485f-a849-c0576e959923"] }, Open ]], Cell[CellGroupData[{ -Cell[6155, 214, 561, 20, 95, "Input",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], -Cell[6719, 236, 220, 4, 40, "Output",ExpressionUUID->"66ea7439-12b2-4c19-a096-6526d100db10"] +Cell[6739, 226, 561, 20, 95, "Input",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], +Cell[7303, 248, 268, 5, 40, "Output",ExpressionUUID->"6eacb911-d7e9-4e27-ba5e-0e4ffda94d0e"] }, Open ]], Cell[CellGroupData[{ -Cell[6976, 245, 561, 20, 95, "Input",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], -Cell[7540, 267, 223, 4, 40, "Output",ExpressionUUID->"9b737606-f48c-42f3-b363-6620e82ed16b"] +Cell[7608, 258, 561, 20, 95, "Input",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], +Cell[8172, 280, 271, 5, 40, "Output",ExpressionUUID->"1cfcd1e5-00ad-4336-b8bc-c20130d97bd9"] }, Open ]], Cell[CellGroupData[{ -Cell[7800, 276, 1592, 51, 68, "Input",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], -Cell[9395, 329, 221, 4, 40, "Output",ExpressionUUID->"09bde119-fb4a-4206-8aef-16ab6c6087c4"] +Cell[8480, 290, 1592, 51, 199, "Input",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], +Cell[10075, 343, 271, 5, 40, "Output",ExpressionUUID->"3f033dce-57c5-4fed-8bc9-6cb0ebb3b6c5"] }, Open ]], Cell[CellGroupData[{ -Cell[9653, 338, 1426, 47, 68, "Input",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], -Cell[11082, 387, 237, 5, 40, "Output",ExpressionUUID->"051e4918-b990-48c8-bf40-becace4c489a"] +Cell[10383, 353, 1426, 47, 199, "Input",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], +Cell[11812, 402, 285, 6, 40, "Output",ExpressionUUID->"50187f20-b76d-419a-8c5b-56efe41c65e9"] }, Open ]], Cell[CellGroupData[{ -Cell[11356, 397, 1426, 47, 68, "Input",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], -Cell[12785, 446, 238, 5, 40, "Output",ExpressionUUID->"2c2a8d85-2211-4a31-a5c1-dba7c1942b95"] +Cell[12134, 413, 1426, 47, 199, "Input",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], +Cell[13563, 462, 288, 6, 40, "Output",ExpressionUUID->"0cee25e3-3a23-49a3-8bb6-9161df9213ee"] }, Open ]], Cell[CellGroupData[{ -Cell[13060, 456, 1592, 51, 68, "Input",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], -Cell[14655, 509, 217, 4, 40, "Output",ExpressionUUID->"c7efe675-5339-4cb5-a444-daef0f3a8d40"] +Cell[13888, 473, 1592, 51, 199, "Input",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], +Cell[15483, 526, 264, 5, 40, "Output",ExpressionUUID->"51d90ea7-0061-4fb8-8f91-f197c6511ecc"] }, Open ]], Cell[CellGroupData[{ -Cell[14909, 518, 135, 3, 35, "Input",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], -Cell[15047, 523, 204, 4, 40, "Output",ExpressionUUID->"344518e9-7202-4083-af57-89b54e16881d"] +Cell[15784, 536, 135, 3, 35, "Input",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], +Cell[15922, 541, 254, 5, 40, "Output",ExpressionUUID->"cd613fee-7343-46b6-ba46-7f5837d0b227"] }, Open ]], Cell[CellGroupData[{ -Cell[15288, 532, 137, 3, 35, "Input",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], -Cell[15428, 537, 208, 4, 40, "Output",ExpressionUUID->"473280c8-f4ad-4770-9b75-caff22aa6512"] +Cell[16213, 551, 137, 3, 35, "Input",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], +Cell[16353, 556, 257, 5, 40, "Output",ExpressionUUID->"8d80e80c-031f-49e6-9361-ce17caafbab6"] }, Open ]], Cell[CellGroupData[{ -Cell[15673, 546, 138, 3, 35, "Input",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], -Cell[15814, 551, 209, 4, 40, "Output",ExpressionUUID->"b4ba628d-4dd4-42e9-ae63-51a5e960fb76"] +Cell[16647, 566, 138, 3, 35, "Input",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], +Cell[16788, 571, 261, 5, 40, "Output",ExpressionUUID->"22fa51d2-e002-4937-be16-981199cc158e"] }, Open ]], Cell[CellGroupData[{ -Cell[16060, 560, 223, 5, 35, "Input",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], -Cell[16286, 567, 221, 5, 40, "Output",ExpressionUUID->"8faa4825-abe7-4274-8319-8af06ba79fa8"] +Cell[17086, 581, 223, 5, 35, "Input",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], +Cell[17312, 588, 267, 6, 40, "Output",ExpressionUUID->"ed15e73b-1d85-418e-8eed-ea366d8d0ca4"] }, Open ]], Cell[CellGroupData[{ -Cell[16544, 577, 138, 3, 35, "Input",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], -Cell[16685, 582, 210, 4, 40, "Output",ExpressionUUID->"207d73c1-84c4-4ea7-83b5-9cd442379f12"] +Cell[17616, 599, 138, 3, 35, "Input",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], +Cell[17757, 604, 260, 5, 40, "Output",ExpressionUUID->"8b38613a-7843-46e9-83ca-2159a3aebdcc"] }, Open ]], Cell[CellGroupData[{ -Cell[16932, 591, 328, 6, 35, "Input",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], -Cell[17263, 599, 207, 4, 40, "Output",ExpressionUUID->"baeb442a-a1cb-49d1-9e57-de88d0b4e029"] +Cell[18054, 614, 328, 6, 35, "Input",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], +Cell[18385, 622, 255, 5, 40, "Output",ExpressionUUID->"a49fb441-bd95-4b49-b9c6-c8b012c938da"] }, Open ]], Cell[CellGroupData[{ -Cell[17507, 608, 300, 6, 35, "Input",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], -Cell[17810, 616, 205, 4, 40, "Output",ExpressionUUID->"e804ad41-c53b-4b3f-b6cf-735a2e5b1f06"] +Cell[18677, 632, 300, 6, 35, "Input",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], +Cell[18980, 640, 255, 5, 40, "Output",ExpressionUUID->"b80292aa-b2a2-4ed7-ae2c-5273471adf98"] }, Open ]], Cell[CellGroupData[{ -Cell[18052, 625, 223, 5, 35, "Input",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], -Cell[18278, 632, 203, 4, 40, "Output",ExpressionUUID->"fd81990d-d84a-41cc-b6b7-0917aecac8a5"] +Cell[19272, 650, 223, 5, 35, "Input",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], +Cell[19498, 657, 253, 5, 40, "Output",ExpressionUUID->"53b3ef6c-c879-45c6-b932-6730c1c85061"] }, Open ]], Cell[CellGroupData[{ -Cell[18518, 641, 354, 11, 52, "Input",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], -Cell[18875, 654, 211, 4, 40, "Output",ExpressionUUID->"b9142d93-944a-410a-bab4-103f70157835"] +Cell[19788, 667, 354, 11, 52, "Input",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], +Cell[20145, 680, 259, 5, 40, "Output",ExpressionUUID->"5ecabcad-dc5c-4069-821d-40284df3af25"] }, Open ]], Cell[CellGroupData[{ -Cell[19123, 663, 354, 11, 52, "Input",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], -Cell[19480, 676, 241, 5, 40, "Output",ExpressionUUID->"7abd2059-ee0a-4ed0-9721-7ae3ae0f9652"] +Cell[20441, 690, 354, 11, 52, "Input",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], +Cell[20798, 703, 291, 6, 40, "Output",ExpressionUUID->"f2c2f01b-90f3-49e6-ac35-2570baaaa52f"] }, Open ]], Cell[CellGroupData[{ -Cell[19758, 686, 998, 27, 53, "Input",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], -Cell[20759, 715, 222, 4, 40, "Output",ExpressionUUID->"fd69610c-ef0a-4a2b-a9dd-dd528e28ce9a"] +Cell[21126, 714, 998, 27, 99, "Input",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], +Cell[22127, 743, 272, 5, 40, "Output",ExpressionUUID->"bf09b7f3-434c-4827-989a-085dc7d1bd82"] }, Open ]], Cell[CellGroupData[{ -Cell[21018, 724, 203, 4, 35, "Input",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], -Cell[21224, 730, 204, 4, 40, "Output",ExpressionUUID->"b034a34d-5170-4359-8106-296076296593"] +Cell[22436, 753, 203, 4, 35, "Input",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], +Cell[22642, 759, 254, 5, 40, "Output",ExpressionUUID->"a3c62cf8-91fb-491d-be11-1567616e89e0"] }, Open ]], Cell[CellGroupData[{ -Cell[21465, 739, 335, 6, 35, "Input",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], -Cell[21803, 747, 182, 3, 40, "Output",ExpressionUUID->"8782fd6b-0447-4368-999c-6dd3377d9a71"] +Cell[22933, 769, 335, 6, 35, "Input",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], +Cell[23271, 777, 230, 4, 40, "Output",ExpressionUUID->"16b7e669-78f7-4325-8156-792fff036840"] }, Open ]], -Cell[22000, 753, 177, 3, 35, "Input",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], +Cell[23516, 784, 177, 3, 35, "Input",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], Cell[CellGroupData[{ -Cell[22202, 760, 331, 6, 35, "Input",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], -Cell[22536, 768, 182, 3, 40, "Output",ExpressionUUID->"3cfd4e3a-ded7-441b-884e-29e26344b219"] +Cell[23718, 791, 331, 6, 35, "Input",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], +Cell[24052, 799, 230, 4, 40, "Output",ExpressionUUID->"e2b9ed26-d1f9-4430-8a95-c0883180fce1"] }, Open ]], -Cell[22733, 774, 177, 3, 35, "Input",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], +Cell[24297, 806, 177, 3, 35, "Input",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], Cell[CellGroupData[{ -Cell[22935, 781, 334, 6, 35, "Input",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], -Cell[23272, 789, 182, 3, 40, "Output",ExpressionUUID->"cec0c890-94b4-4459-ae7a-788899a224a4"] +Cell[24499, 813, 334, 6, 35, "Input",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], +Cell[24836, 821, 229, 4, 40, "Output",ExpressionUUID->"0c91077a-2442-48ac-8db9-fbdf0dc9615b"] }, Open ]], -Cell[23469, 795, 177, 3, 35, "Input",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], +Cell[25080, 828, 177, 3, 35, "Input",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], Cell[CellGroupData[{ -Cell[23671, 802, 356, 6, 35, "Input",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], -Cell[24030, 810, 186, 3, 40, "Output",ExpressionUUID->"75298492-1609-4626-8ec4-2ba9eaad8866"] +Cell[25282, 835, 356, 6, 35, "Input",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], +Cell[25641, 843, 234, 4, 40, "Output",ExpressionUUID->"b0bf74c9-2db7-467d-86d7-576900070905"] }, Open ]], -Cell[24231, 816, 175, 3, 35, "Input",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], +Cell[25890, 850, 175, 3, 35, "Input",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], Cell[CellGroupData[{ -Cell[24431, 823, 303, 6, 35, "Input",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], -Cell[24737, 831, 181, 3, 40, "Output",ExpressionUUID->"0ff287ba-3e3b-491c-8eda-d1775b6e6609"] +Cell[26090, 857, 303, 6, 35, "Input",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], +Cell[26396, 865, 231, 4, 40, "Output",ExpressionUUID->"a888dd19-4d58-4eec-b32f-16e57dcc7d26"] }, Open ]], -Cell[24933, 837, 175, 3, 35, "Input",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], +Cell[26642, 872, 175, 3, 35, "Input",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], Cell[CellGroupData[{ -Cell[25133, 844, 309, 6, 35, "Input",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], -Cell[25445, 852, 181, 3, 40, "Output",ExpressionUUID->"314a8975-bc09-4a68-959e-e43188184321"] +Cell[26842, 879, 309, 6, 35, "Input",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], +Cell[27154, 887, 231, 4, 40, "Output",ExpressionUUID->"26d10228-69e1-444c-969c-d95754e125e0"] }, Open ]], -Cell[25641, 858, 177, 3, 35, "Input",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], +Cell[27400, 894, 177, 3, 35, "Input",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], Cell[CellGroupData[{ -Cell[25843, 865, 311, 6, 35, "Input",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], -Cell[26157, 873, 181, 3, 40, "Output",ExpressionUUID->"326575a0-cfd7-40b3-aa55-9056f7df9c2b"] +Cell[27602, 901, 311, 6, 35, "Input",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], +Cell[27916, 909, 229, 4, 40, "Output",ExpressionUUID->"02ab5665-8182-481d-b707-d89f2e4461be"] }, Open ]], -Cell[26353, 879, 176, 3, 35, "Input",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], +Cell[28160, 916, 176, 3, 35, "Input",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], Cell[CellGroupData[{ -Cell[26554, 886, 280, 5, 35, "Input",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], -Cell[26837, 893, 182, 3, 40, "Output",ExpressionUUID->"9b00b717-7751-416a-8259-f11492ddd6f7"] +Cell[28361, 923, 280, 5, 35, "Input",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], +Cell[28644, 930, 232, 4, 40, "Output",ExpressionUUID->"f19b94a8-5e6e-4bde-abe5-ec1ac1c215ab"] }, Open ]], -Cell[27034, 899, 179, 3, 35, "Input",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], +Cell[28891, 937, 179, 3, 35, "Input",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], Cell[CellGroupData[{ -Cell[27238, 906, 19813, 486, 1614, "Input",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], -Cell[47054, 1394, 221, 4, 40, "Output",ExpressionUUID->"08234167-fe68-46e5-85d2-f92625024e1c"] +Cell[29095, 944, 19813, 486, 2839, "Input",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], +Cell[48911, 1432, 271, 5, 40, "Output",ExpressionUUID->"8ab563c2-371c-432a-b605-3a1b5b5dad3c"] }, Open ]], Cell[CellGroupData[{ -Cell[47312, 1403, 19752, 490, 1627, "Input",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], -Cell[67067, 1895, 221, 4, 40, "Output",ExpressionUUID->"f95fd5dc-bf0d-4adf-a9aa-89edcc176a6a"] +Cell[49219, 1442, 19752, 490, 2839, "Input",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], +Cell[68974, 1934, 269, 5, 40, "Output",ExpressionUUID->"9f062c12-c840-4488-aec2-3ea8a89c9f9e"] }, Open ]], Cell[CellGroupData[{ -Cell[67325, 1904, 19752, 484, 1626, "Input",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], -Cell[87080, 2390, 239, 5, 40, "Output",ExpressionUUID->"8cc9ba84-4ba2-4eb1-a3a5-4f67f2ee23fa"] +Cell[69280, 1944, 19752, 484, 2838, "Input",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], +Cell[89035, 2430, 287, 6, 40, "Output",ExpressionUUID->"4a1dfd64-c0b7-4c04-962c-62567faee8e3"] }, Open ]], Cell[CellGroupData[{ -Cell[87356, 2400, 22538, 554, 1809, "Input",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], -Cell[109897, 2956, 240, 5, 40, "Output",ExpressionUUID->"405d46e9-7a10-424d-bbfa-5f198f569ffc"] +Cell[89359, 2441, 22538, 554, 3235, "Input",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], +Cell[111900, 2997, 289, 6, 40, "Output",ExpressionUUID->"0f7625b1-65a4-4e0c-ac57-7d6656cca917"] }, Open ]], Cell[CellGroupData[{ -Cell[110174, 2966, 22539, 554, 1809, "Input",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], -Cell[132716, 3522, 240, 5, 40, "Output",ExpressionUUID->"561b09ba-d395-4800-93a0-11986edc9f8e"] +Cell[112226, 3008, 22539, 554, 3235, "Input",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], +Cell[134768, 3564, 287, 6, 40, "Output",ExpressionUUID->"84f31232-3ead-4642-ac10-79431cbfa49f"] }, Open ]], Cell[CellGroupData[{ -Cell[132993, 3532, 25495, 627, 1965, "Input",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], -Cell[158491, 4161, 237, 5, 40, "Output",ExpressionUUID->"91c6bfa4-6bfa-4097-bb1e-e49529ae8ed3"] +Cell[135092, 3575, 25495, 627, 3632, "Input",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], +Cell[160590, 4204, 285, 6, 40, "Output",ExpressionUUID->"ba2445f1-7f0b-4579-8cd5-cc681e7c5912"] }, Open ]], Cell[CellGroupData[{ -Cell[158765, 4171, 134, 3, 35, "Input",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], -Cell[158902, 4176, 204, 4, 40, "Output",ExpressionUUID->"828d4ec5-8104-4b24-b674-b5f348bb4584"] +Cell[160912, 4215, 134, 3, 35, "Input",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], +Cell[161049, 4220, 251, 5, 40, "Output",ExpressionUUID->"85c41d92-1532-423d-b633-e1978b69c6ad"] }, Open ]], Cell[CellGroupData[{ -Cell[159143, 4185, 134, 3, 35, "Input",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], -Cell[159280, 4190, 206, 4, 40, "Output",ExpressionUUID->"964a9a97-05d0-49ed-b4fa-0b02d5ba5a24"] +Cell[161337, 4230, 134, 3, 35, "Input",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], +Cell[161474, 4235, 254, 5, 40, "Output",ExpressionUUID->"cae24648-d812-44c1-b473-1adb6a80b2c8"] }, Open ]], Cell[CellGroupData[{ -Cell[159523, 4199, 1148, 40, 68, "Input",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], -Cell[160674, 4241, 222, 4, 40, "Output",ExpressionUUID->"bdd56dc4-c5b9-48fe-b907-4c00a8590475"] +Cell[161765, 4245, 1148, 40, 133, "Input",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], +Cell[162916, 4287, 270, 5, 40, "Output",ExpressionUUID->"d3183bdb-a0cd-4f0b-b9e0-cc1a70afa715"] }, Open ]], Cell[CellGroupData[{ -Cell[160933, 4250, 1045, 36, 68, "Input",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], -Cell[161981, 4288, 237, 5, 40, "Output",ExpressionUUID->"e09ff24e-d37a-4041-b731-af2e5f752f61"] +Cell[163223, 4297, 1045, 36, 133, "Input",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], +Cell[164271, 4335, 287, 6, 40, "Output",ExpressionUUID->"4ff3b0ee-1447-4bd4-a418-275811180720"] }, Open ]], Cell[CellGroupData[{ -Cell[162255, 4298, 1148, 40, 68, "Input",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], -Cell[163406, 4340, 222, 4, 40, "Output",ExpressionUUID->"5b5463ac-f754-4e40-8ccf-5b0630031fcd"] +Cell[164595, 4346, 1148, 40, 133, "Input",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], +Cell[165746, 4388, 269, 5, 40, "Output",ExpressionUUID->"c44ad502-bcaa-4d7c-a6b7-05c16bc1024d"] }, Open ]], Cell[CellGroupData[{ -Cell[163665, 4349, 112, 2, 35, "Input",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], -Cell[163780, 4353, 223, 4, 40, "Output",ExpressionUUID->"351c99d1-b71e-4da9-bff0-47474f32a9fc"] +Cell[166052, 4398, 112, 2, 35, "Input",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], +Cell[166167, 4402, 273, 5, 40, "Output",ExpressionUUID->"8549581e-6e9f-4648-a8a4-282b12998faf"] }, Open ]], Cell[CellGroupData[{ -Cell[164040, 4362, 112, 2, 35, "Input",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], -Cell[164155, 4366, 239, 5, 40, "Output",ExpressionUUID->"5f87da00-ba16-46fe-9fae-4341555570cc"] +Cell[166477, 4412, 112, 2, 35, "Input",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], +Cell[166592, 4416, 289, 6, 40, "Output",ExpressionUUID->"c720f44c-e962-49f3-83a4-7ab674a7253d"] }, Open ]], Cell[CellGroupData[{ -Cell[164431, 4376, 112, 2, 35, "Input",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], -Cell[164546, 4380, 239, 5, 40, "Output",ExpressionUUID->"6de9b9d0-e130-42c8-a6ed-829cd3bae792"] +Cell[166918, 4427, 112, 2, 35, "Input",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], +Cell[167033, 4431, 287, 6, 40, "Output",ExpressionUUID->"0d95941f-8c66-4767-99e0-4e11c5e9c317"] }, Open ]], Cell[CellGroupData[{ -Cell[164822, 4390, 112, 2, 35, "Input",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], -Cell[164937, 4394, 221, 4, 40, "Output",ExpressionUUID->"3580e79e-4e01-413b-9f56-ff363a4a4b88"] +Cell[167357, 4442, 112, 2, 35, "Input",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], +Cell[167472, 4446, 269, 5, 40, "Output",ExpressionUUID->"c40a374c-596f-4f68-b311-d9cbd5f7b642"] }, Open ]], Cell[CellGroupData[{ -Cell[165195, 4403, 111, 2, 35, "Input",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], -Cell[165309, 4407, 222, 4, 40, "Output",ExpressionUUID->"7d2b9478-3706-4acf-b542-35d26962e7bf"] +Cell[167778, 4456, 111, 2, 35, "Input",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], +Cell[167892, 4460, 272, 5, 40, "Output",ExpressionUUID->"26bee78e-88dc-4789-9cbd-bd1b64e16b1b"] }, Open ]], Cell[CellGroupData[{ -Cell[165568, 4416, 111, 2, 35, "Input",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], -Cell[165682, 4420, 223, 4, 40, "Output",ExpressionUUID->"c016084d-06aa-47ac-8cb1-95ccf3f62ff4"] +Cell[168201, 4470, 111, 2, 35, "Input",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], +Cell[168315, 4474, 273, 5, 40, "Output",ExpressionUUID->"903052c0-a334-4dbe-8531-7b35c38334b0"] }, Open ]], Cell[CellGroupData[{ -Cell[165942, 4429, 501, 17, 66, "Input",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], -Cell[166446, 4448, 238, 5, 40, "Output",ExpressionUUID->"7f6f454f-bf8c-4928-aebc-4c8e5acbd63a"] +Cell[168625, 4484, 501, 17, 66, "Input",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], +Cell[169129, 4503, 288, 6, 40, "Output",ExpressionUUID->"d19df074-b109-4361-aca5-2bfad46a685a"] }, Open ]], Cell[CellGroupData[{ -Cell[166721, 4458, 501, 17, 66, "Input",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], -Cell[167225, 4477, 237, 5, 40, "Output",ExpressionUUID->"0722742a-8aa1-4110-b45f-a491a9e2776f"] +Cell[169454, 4514, 501, 17, 66, "Input",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], +Cell[169958, 4533, 285, 6, 40, "Output",ExpressionUUID->"cf38699d-4147-48fc-b552-346bee406c82"] }, Open ]], Cell[CellGroupData[{ -Cell[167499, 4487, 1792, 61, 132, "Input",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], -Cell[169294, 4550, 223, 4, 40, "Output",ExpressionUUID->"fee4d34c-61be-43d9-b3eb-6517ab3cde97"] +Cell[170280, 4544, 1792, 61, 317, "Input",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], +Cell[172075, 4607, 271, 5, 40, "Output",ExpressionUUID->"1b47b7a5-4b75-4b5e-b24d-519ccd326430"] }, Open ]], Cell[CellGroupData[{ -Cell[169554, 4559, 1105, 37, 68, "Input",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], -Cell[170662, 4598, 243, 5, 40, "Output",ExpressionUUID->"5b17f712-af11-48d5-b9e2-23063db7cb14"] +Cell[172383, 4617, 1105, 37, 162, "Input",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], +Cell[173491, 4656, 293, 6, 40, "Output",ExpressionUUID->"ac80075a-a06b-4884-8663-e770c13965a4"] }, Open ]], Cell[CellGroupData[{ -Cell[170942, 4608, 1822, 62, 133, "Input",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], -Cell[172767, 4672, 220, 4, 40, "Output",ExpressionUUID->"5c2af64e-1289-455d-a961-bed4c4233c44"] +Cell[173821, 4667, 1822, 62, 317, "Input",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], +Cell[175646, 4731, 268, 5, 40, "Output",ExpressionUUID->"99d3e00e-8db6-42e7-89a3-1562475d72fb"] }, Open ]], Cell[CellGroupData[{ -Cell[173024, 4681, 1635, 54, 97, "Input",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], -Cell[174662, 4737, 221, 4, 40, "Output",ExpressionUUID->"19673e06-cccd-488c-ab30-ab99fc1262cf"] +Cell[175951, 4741, 1635, 54, 199, "Input",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], +Cell[177589, 4797, 269, 5, 40, "Output",ExpressionUUID->"5119f483-f20d-43a7-95f4-1d86237e8467"] }, Open ]], Cell[CellGroupData[{ -Cell[174920, 4746, 1635, 54, 97, "Input",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], -Cell[176558, 4802, 221, 4, 40, "Output",ExpressionUUID->"fe2a68d7-0bee-4f26-bced-35d3d53b9775"] +Cell[177895, 4807, 1635, 54, 199, "Input",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], +Cell[179533, 4863, 269, 5, 40, "Output",ExpressionUUID->"c1d92fd0-3ce2-44dd-9e8a-d5b60dc1f7c2"] }, Open ]], Cell[CellGroupData[{ -Cell[176816, 4811, 233, 5, 35, "Input",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], -Cell[177052, 4818, 185, 3, 40, "Output",ExpressionUUID->"d29d000d-c801-4cf6-b0be-3375500f840c"] +Cell[179839, 4873, 233, 5, 35, "Input",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], +Cell[180075, 4880, 237, 4, 40, "Output",ExpressionUUID->"85594dee-c264-411f-a513-8a4300e6bd31"] }, Open ]], -Cell[177252, 4824, 176, 3, 35, "Input",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], +Cell[180327, 4887, 176, 3, 35, "Input",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], Cell[CellGroupData[{ -Cell[177453, 4831, 231, 5, 35, "Input",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], -Cell[177687, 4838, 183, 3, 40, "Output",ExpressionUUID->"33a747ba-36b6-4e5f-bb2f-42b611f64592"] +Cell[180528, 4894, 231, 5, 35, "Input",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], +Cell[180762, 4901, 233, 4, 40, "Output",ExpressionUUID->"0fa6846e-5369-4130-9f9e-a7ceb1987892"] }, Open ]], -Cell[177885, 4844, 177, 3, 35, "Input",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], +Cell[181010, 4908, 177, 3, 35, "Input",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], Cell[CellGroupData[{ -Cell[178087, 4851, 1301, 43, 58, "Input",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], -Cell[179391, 4896, 224, 4, 40, "Output",ExpressionUUID->"f6db4df5-b7f2-4fe9-91c7-aef809670022"] +Cell[181212, 4915, 1301, 43, 165, "Input",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], +Cell[182516, 4960, 273, 5, 40, "Output",ExpressionUUID->"738ad1b0-f5e6-4bb2-aac5-0760969fa1ad"] }, Open ]], Cell[CellGroupData[{ -Cell[179652, 4905, 931, 31, 68, "Input",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], -Cell[180586, 4938, 222, 4, 40, "Output",ExpressionUUID->"09e0d501-a131-4b59-94d3-3fa6af498799"] +Cell[182826, 4970, 931, 31, 120, "Input",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], +Cell[183760, 5003, 272, 5, 40, "Output",ExpressionUUID->"2f67cdad-20e4-42da-804d-6b02d19cf32e"] }, Open ]], Cell[CellGroupData[{ -Cell[180845, 4947, 907, 30, 68, "Input",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], -Cell[181755, 4979, 227, 4, 40, "Output",ExpressionUUID->"0db80185-8211-4c10-964c-fa5afb62d34b"] +Cell[184069, 5013, 907, 30, 120, "Input",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], +Cell[184979, 5045, 277, 5, 40, "Output",ExpressionUUID->"8889a1b4-5042-4578-88e9-bfd40a274f34"] }, Open ]], Cell[CellGroupData[{ -Cell[182019, 4988, 558, 19, 63, "Input",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], -Cell[182580, 5009, 618, 10, 40, "Output",ExpressionUUID->"69cd868d-9590-48c3-b383-dd731abebb0c"] +Cell[185293, 5055, 558, 19, 63, "Input",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], +Cell[185854, 5076, 664, 10, 40, "Output",ExpressionUUID->"37b2d053-def3-43d9-8615-ae0125df0198"] }, Open ]], Cell[CellGroupData[{ -Cell[183235, 5024, 665, 22, 63, "Input",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], -Cell[183903, 5048, 598, 9, 40, "Output",ExpressionUUID->"12e4e99b-0e00-46df-ae19-d58dc1b9358b"] +Cell[186555, 5091, 665, 22, 63, "Input",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], +Cell[187223, 5115, 646, 10, 40, "Output",ExpressionUUID->"2fb2aed8-2d96-4dd2-8599-821672e19831"] }, Open ]], Cell[CellGroupData[{ -Cell[184538, 5062, 170, 5, 67, "Input",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], -Cell[184711, 5069, 628, 10, 40, "Output",ExpressionUUID->"c3bf06d9-e6a9-4cbe-b0c2-6902a46705a3"] +Cell[187906, 5130, 170, 5, 67, "Input",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], +Cell[188079, 5137, 674, 10, 40, "Output",ExpressionUUID->"c486d52e-e696-4f82-a064-7be33d538ec8"] }, Open ]], Cell[CellGroupData[{ -Cell[185376, 5084, 236, 6, 66, "Input",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], -Cell[185615, 5092, 570, 9, 40, "Output",ExpressionUUID->"f6d2e9dd-914f-449e-9325-41595df00515"] +Cell[188790, 5152, 236, 6, 66, "Input",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], +Cell[189029, 5160, 618, 10, 40, "Output",ExpressionUUID->"acca76e3-ce04-4230-8ed2-2e9056e88a0e"] }, Open ]], Cell[CellGroupData[{ -Cell[186222, 5106, 223, 6, 52, "Input",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], -Cell[186448, 5114, 594, 9, 40, "Output",ExpressionUUID->"3a2a6831-9c94-4ae5-975c-cc844165c3fb"] +Cell[189684, 5175, 223, 6, 52, "Input",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], +Cell[189910, 5183, 644, 10, 40, "Output",ExpressionUUID->"17d67621-1a21-4579-a10c-6d172efc831e"] }, Open ]], Cell[CellGroupData[{ -Cell[187079, 5128, 181, 5, 52, "Input",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], -Cell[187263, 5135, 622, 10, 40, "Output",ExpressionUUID->"83e12e09-8fb0-497f-a1fb-5edbc468eb83"] +Cell[190591, 5198, 181, 5, 52, "Input",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], +Cell[190775, 5205, 666, 10, 40, "Output",ExpressionUUID->"ab07be69-4284-4f78-a859-5ed66ab00c8d"] }, Open ]], Cell[CellGroupData[{ -Cell[187922, 5150, 6055, 185, 401, "Input",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], -Cell[193980, 5337, 596, 9, 40, "Output",ExpressionUUID->"c6c0dac8-25dd-48f5-a8c0-756292745786"] +Cell[191478, 5220, 6055, 185, 777, "Input",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], +Cell[197536, 5407, 646, 10, 40, "Output",ExpressionUUID->"8c3f4f6b-dcfb-4bcf-b080-0f9183dcb737"] }, Open ]], Cell[CellGroupData[{ -Cell[194613, 5351, 410, 10, 70, "Input",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], -Cell[195026, 5363, 617, 10, 59, "Output",ExpressionUUID->"6b271ee4-1352-4206-97ba-ad0227c7181d"] +Cell[198219, 5422, 410, 10, 70, "Input",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], +Cell[198632, 5434, 665, 11, 59, "Output",ExpressionUUID->"f81d4af2-e2fd-4900-bc0d-9fae69e9c838"] }, Open ]], -Cell[195658, 5376, 492, 10, 35, "Input",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], +Cell[199312, 5448, 492, 10, 35, "Input",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], Cell[CellGroupData[{ -Cell[196175, 5390, 558, 19, 63, "Input",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], -Cell[196736, 5411, 219, 4, 40, "Output",ExpressionUUID->"bac87680-2e69-480c-b62d-d1d376ca7098"] +Cell[199829, 5462, 558, 19, 63, "Input",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], +Cell[200390, 5483, 267, 5, 40, "Output",ExpressionUUID->"b8bad34a-7788-4532-bf78-36411ffec5ec"] }, Open ]], Cell[CellGroupData[{ -Cell[196992, 5420, 623, 21, 63, "Input",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], -Cell[197618, 5443, 220, 4, 40, "Output",ExpressionUUID->"9514bec6-dec8-4a0a-bfe3-69b8a28a0920"] +Cell[200694, 5493, 623, 21, 63, "Input",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], +Cell[201320, 5516, 267, 5, 40, "Output",ExpressionUUID->"2c839f86-aacf-49ed-91f4-c0467939c11f"] }, Open ]], Cell[CellGroupData[{ -Cell[197875, 5452, 170, 5, 67, "Input",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], -Cell[198048, 5459, 219, 4, 40, "Output",ExpressionUUID->"73135486-0c0d-4d4f-9056-410acff0996c"] +Cell[201624, 5526, 170, 5, 67, "Input",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], +Cell[201797, 5533, 269, 5, 40, "Output",ExpressionUUID->"9bbad2a6-f2e6-4930-9dde-d8b966c12464"] }, Open ]], Cell[CellGroupData[{ -Cell[198304, 5468, 170, 5, 66, "Input",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], -Cell[198477, 5475, 220, 4, 40, "Output",ExpressionUUID->"35162479-2722-49fa-8b99-b48a270cacc2"] +Cell[202103, 5543, 170, 5, 66, "Input",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], +Cell[202276, 5550, 270, 5, 40, "Output",ExpressionUUID->"ed97d04f-0b09-409b-b0a8-3fdc8958cd2d"] }, Open ]], Cell[CellGroupData[{ -Cell[198734, 5484, 181, 5, 52, "Input",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], -Cell[198918, 5491, 222, 4, 40, "Output",ExpressionUUID->"2e1eb69b-f888-4a60-9056-73645a7e1bc2"] +Cell[202583, 5560, 181, 5, 52, "Input",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], +Cell[202767, 5567, 274, 5, 40, "Output",ExpressionUUID->"e4ab2809-bcec-46e1-b22c-f5962c5b8d6b"] }, Open ]], Cell[CellGroupData[{ -Cell[199177, 5500, 181, 5, 52, "Input",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], -Cell[199361, 5507, 220, 4, 40, "Output",ExpressionUUID->"714737fd-fa76-4f0f-b729-9e094dda2da8"] +Cell[203078, 5577, 181, 5, 52, "Input",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], +Cell[203262, 5584, 272, 5, 40, "Output",ExpressionUUID->"d8298e7b-e84c-4635-8aa2-e7bd5bc4f51e"] }, Open ]], Cell[CellGroupData[{ -Cell[199618, 5516, 6055, 185, 401, "Input",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], -Cell[205676, 5703, 224, 4, 40, "Output",ExpressionUUID->"5cc96bc6-62a6-494e-ac5f-4cc5dda11179"] +Cell[203571, 5594, 6055, 185, 777, "Input",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], +Cell[209629, 5781, 272, 5, 40, "Output",ExpressionUUID->"a579cf95-2750-44ac-b494-201f4f83d231"] }, Open ]], Cell[CellGroupData[{ -Cell[205937, 5712, 368, 9, 50, "Input",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], -Cell[206308, 5723, 219, 4, 40, "Output",ExpressionUUID->"ebc048cf-2d73-43aa-a563-074e6e50f2fc"] +Cell[209938, 5791, 368, 9, 50, "Input",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], +Cell[210309, 5802, 267, 5, 40, "Output",ExpressionUUID->"6a814903-de95-4b0a-bf3c-a09aba2b6eda"] }, Open ]], Cell[CellGroupData[{ -Cell[206564, 5732, 6122, 187, 840, "Input",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], -Cell[212689, 5921, 224, 4, 40, "Output",ExpressionUUID->"01101861-89ab-44d8-b070-fbc24d6fe784"] +Cell[210613, 5812, 6122, 187, 840, "Input",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], +Cell[216738, 6001, 274, 5, 40, "Output",ExpressionUUID->"8b5952fa-df7b-4d2e-bb08-6d76b814479c"] }, Open ]], Cell[CellGroupData[{ -Cell[212950, 5930, 368, 9, 50, "Input",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], -Cell[213321, 5941, 221, 4, 40, "Output",ExpressionUUID->"f4ea9163-737f-4922-92e6-742e9bb0099b"] +Cell[217049, 6011, 368, 9, 50, "Input",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], +Cell[217420, 6022, 269, 5, 40, "Output",ExpressionUUID->"950b0482-a297-498b-a36c-8cf04d86b94f"] }, Open ]], Cell[CellGroupData[{ -Cell[213579, 5950, 2663, 88, 406, "Input",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], -Cell[216245, 6040, 223, 4, 40, "Output",ExpressionUUID->"300232b9-6ebe-4645-82de-bc51c77aff95"] +Cell[217726, 6032, 2663, 88, 406, "Input",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], +Cell[220392, 6122, 273, 5, 40, "Output",ExpressionUUID->"ad197901-c35e-433a-87ff-90997f407a95"] }, Open ]], Cell[CellGroupData[{ -Cell[216505, 6049, 2603, 85, 406, "Input",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], -Cell[219111, 6136, 222, 4, 40, "Output",ExpressionUUID->"5b948ee0-d80f-4ce6-a6c1-40085602b35e"] +Cell[220702, 6132, 2603, 85, 406, "Input",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], +Cell[223308, 6219, 268, 5, 40, "Output",ExpressionUUID->"853ef337-9927-4eb7-a946-92f635d743cf"] }, Open ]], Cell[CellGroupData[{ -Cell[219370, 6145, 3712, 118, 535, "Input",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], -Cell[223085, 6265, 226, 4, 40, "Output",ExpressionUUID->"8dd17c01-304d-4c74-8140-5cc0ec128577"] +Cell[223613, 6229, 3712, 118, 535, "Input",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], +Cell[227328, 6349, 274, 5, 40, "Output",ExpressionUUID->"52535f3a-4a2f-4296-b3bf-94e5ad050399"] }, Open ]], -Cell[223326, 6272, 164, 4, 105, "Input",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], +Cell[227617, 6357, 164, 4, 35, "Input",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], Cell[CellGroupData[{ -Cell[223515, 6280, 2075, 59, 261, "Input",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], -Cell[225593, 6341, 608, 13, 96, "Message",ExpressionUUID->"24ddef42-a97d-4161-af7e-aefc6a340db4"], -Cell[226204, 6356, 701, 15, 72, "Message",ExpressionUUID->"ebe21aef-21aa-4887-b9a1-582c46efcd64"], -Cell[226908, 6373, 702, 15, 72, "Message",ExpressionUUID->"7e505664-885f-4626-8682-5e5488c2fbff"], -Cell[227613, 6390, 520, 12, 31, "Message",ExpressionUUID->"ba6ba694-57e8-4b2f-9423-a143b00c4265"], -Cell[228136, 6404, 213, 4, 40, "Output",ExpressionUUID->"4fdb48e0-36df-4828-89a4-d1d051224bd0"] +Cell[227806, 6365, 2075, 59, 261, "Input",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], +Cell[229884, 6426, 665, 15, 96, "Message",ExpressionUUID->"fe50f6f6-8b11-4097-9ac4-3ff35e578189"], +Cell[230552, 6443, 755, 16, 72, "Message",ExpressionUUID->"5836f404-8a9f-41ba-a836-d5225287fb7f"], +Cell[231310, 6461, 754, 16, 72, "Message",ExpressionUUID->"10ca8129-3cd8-479a-9b29-7e7ad537b79b"], +Cell[232067, 6479, 572, 13, 31, "Message",ExpressionUUID->"054c6a23-b68e-4dba-a3b1-82c9f504af16"], +Cell[232642, 6494, 274, 5, 40, "Output",ExpressionUUID->"987c8bb9-43b9-4b8f-960b-2976d79d8eab"] }, Open ]], Cell[CellGroupData[{ -Cell[228386, 6413, 2054, 59, 105, "Input",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], -Cell[230443, 6474, 556, 12, 105, "Message",ExpressionUUID->"365becfb-66c2-b442-8b7b-c6077e53a212"], -Cell[231002, 6488, 556, 12, 105, "Message",ExpressionUUID->"2b170196-02e0-d544-a5a5-d90722dc10dc"], -Cell[231561, 6502, 559, 12, 105, "Message",ExpressionUUID->"02967e8e-3430-cf4f-b706-b82af40300a2"], -Cell[232123, 6516, 452, 10, 105, "Message",ExpressionUUID->"a8933e75-6bbd-684a-8439-656414d7fe5d"], -Cell[232578, 6528, 166, 2, 105, "Output",ExpressionUUID->"0790c690-9267-6441-bc9c-d353ab16b428"] +Cell[232953, 6504, 2077, 59, 261, "Input",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], +Cell[235033, 6565, 612, 14, 96, "Message",ExpressionUUID->"62acd717-eb91-4842-9a67-595464b2d25b"], +Cell[235648, 6581, 703, 15, 72, "Message",ExpressionUUID->"d9eaa369-a6f3-4f61-84ce-f25867c9c069"], +Cell[236354, 6598, 702, 15, 72, "Message",ExpressionUUID->"299fd6f8-de41-42ad-8e75-ef5fd7185119"], +Cell[237059, 6615, 520, 12, 31, "Message",ExpressionUUID->"624573a1-3ca6-426a-8554-c3841b02aaa6"], +Cell[237582, 6629, 217, 4, 40, "Output",ExpressionUUID->"7fe0ee60-03da-447d-835d-29202b30402d"] }, Open ]], Cell[CellGroupData[{ -Cell[232781, 6535, 1938, 53, 105, "Input",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], -Cell[234722, 6590, 20226, 378, 105, "Output",ExpressionUUID->"5d2ddb35-b7b8-514c-917f-fcc77dc8600c"] +Cell[237836, 6638, 2053, 55, 218, "Input",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], +Cell[239892, 6695, 20563, 387, 283, "Output",ExpressionUUID->"cc9d3397-7642-44b4-a4b3-c24fe4c5a0fd"] }, Open ]], Cell[CellGroupData[{ -Cell[254985, 6973, 2094, 60, 105, "Input",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], -Cell[257082, 7035, 497, 11, 105, "Message",ExpressionUUID->"cb33453f-b5ca-e14d-a319-662822d35ed2"], -Cell[257582, 7048, 501, 11, 105, "Message",ExpressionUUID->"aa5fb574-aeea-7141-9d86-babfa2192485"], -Cell[258086, 7061, 503, 11, 105, "Message",ExpressionUUID->"dec65c86-5426-6949-9e38-c5bc3eb7722e"], -Cell[258592, 7074, 455, 10, 105, "Message",ExpressionUUID->"32a908f1-0097-2943-9511-bd82e083c1e0"], -Cell[259050, 7086, 43631, 762, 105, "Output",ExpressionUUID->"704b46fd-7ca5-4147-bbb4-19991a3778e5"] +Cell[260492, 7087, 2117, 60, 294, "Input",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], +Cell[262612, 7149, 532, 12, 70, "Message",ExpressionUUID->"0c3a806d-92ad-4f51-87de-3d30089a545b"], +Cell[263147, 7163, 533, 12, 70, "Message",ExpressionUUID->"5e7e8083-251d-40bd-88c1-2173be5e8cb2"], +Cell[263683, 7177, 538, 12, 70, "Message",ExpressionUUID->"ab768ce9-4011-4f61-8353-bbae4b41ab76"], +Cell[264224, 7191, 495, 11, 31, "Message",ExpressionUUID->"418dcade-37a2-4357-85be-bfe43e6c42bb"], +Cell[264722, 7204, 22176, 411, 279, "Output",ExpressionUUID->"37f72b49-d2e6-48ae-9ae2-24e54431e2a3"] }, Open ]], -Cell[302696, 7851, 232, 6, 105, "Input",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], -Cell[302931, 7859, 209, 5, 105, "Input",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], Cell[CellGroupData[{ -Cell[303165, 7868, 212, 6, 105, "Input",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], -Cell[303380, 7876, 168, 2, 105, "Output",ExpressionUUID->"1f95faab-1b52-5440-9bc8-bbd29c090294"] +Cell[286935, 7620, 2529, 70, 258, "Input",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], +Cell[289467, 7692, 9471, 220, 286, "Output",ExpressionUUID->"5ee811a4-492d-4370-adae-0a8d1e1b789b"] }, Open ]], Cell[CellGroupData[{ -Cell[303585, 7883, 1814, 53, 105, "Input",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], -Cell[305402, 7938, 505, 11, 105, "Message",ExpressionUUID->"34609962-a5ff-c943-bd24-1be35ec9ac87"], -Cell[305910, 7951, 509, 11, 105, "Message",ExpressionUUID->"1fdfd709-87fa-2d47-912a-2bb16540a45a"], -Cell[306422, 7964, 508, 11, 105, "Message",ExpressionUUID->"02f7e2ed-ac22-9d4d-8071-ab116260ee28"], -Cell[306933, 7977, 455, 10, 105, "Message",ExpressionUUID->"7db76209-a5a6-1947-80c1-912d214b981c"], -Cell[307391, 7989, 22399, 414, 105, "Output",ExpressionUUID->"b5f713da-fcb5-f640-b2b9-a3f5b5d5c325"] +Cell[298975, 7917, 232, 5, 35, "Input",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], +Cell[299210, 7924, 28506, 540, 279, "Output",ExpressionUUID->"6f716bef-b33a-4363-918b-90540967b81d"] }, Open ]], Cell[CellGroupData[{ -Cell[329827, 8408, 1612, 47, 105, "Input",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], -Cell[331442, 8457, 581, 12, 105, "Message",ExpressionUUID->"e283daf4-b253-944e-a35b-b9d739b4810d"], -Cell[332026, 8471, 584, 12, 105, "Message",ExpressionUUID->"45f4fe27-f32a-9441-bd55-e0801ff04328"], -Cell[332613, 8485, 590, 12, 105, "Message",ExpressionUUID->"8fffabed-e171-5e42-9ba8-fd51ae8f5dd5"], -Cell[333206, 8499, 455, 10, 105, "Message",ExpressionUUID->"8b648472-e40f-a549-a057-c6eeb9f14028"], -Cell[333664, 8511, 169, 2, 105, "Output",ExpressionUUID->"c7b55151-fc31-d94c-8a4e-01b34fb0adaf"] +Cell[327753, 8469, 237, 7, 58, "Input",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], +Cell[327993, 8478, 196, 3, 40, "Output",ExpressionUUID->"e383eab1-7b0f-42c0-a7fe-63f91c045bca"] }, Open ]], Cell[CellGroupData[{ -Cell[333870, 8518, 2249, 64, 105, "Input",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], -Cell[336122, 8584, 557, 12, 105, "Message",ExpressionUUID->"3632efc4-f65f-2f41-a6ff-4f71c0ebce84"], -Cell[336682, 8598, 560, 12, 105, "Message",ExpressionUUID->"779c5516-83d5-5d41-8a7a-6b58e876b564"], -Cell[337245, 8612, 560, 12, 105, "Message",ExpressionUUID->"8e3711bd-8e48-2e4f-9802-ad11f73b56ef"], -Cell[337808, 8626, 455, 10, 105, "Message",ExpressionUUID->"f612a69b-4740-9240-9908-d284159fa285"], -Cell[338266, 8638, 169, 2, 105, "Output",ExpressionUUID->"bfa217e6-2060-bc4b-b710-35d6c4ca9627"] +Cell[328226, 8486, 1837, 53, 294, "Input",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], +Cell[330066, 8541, 548, 12, 70, "Message",ExpressionUUID->"ce848234-476b-4f84-a01b-a05d1f7cb894"], +Cell[330617, 8555, 548, 12, 70, "Message",ExpressionUUID->"bc6ae7c8-5ff9-4f9f-8493-289bd5db4e17"], +Cell[331168, 8569, 552, 12, 70, "Message",ExpressionUUID->"caf80f91-8025-4b2d-9ed5-2ad9d9ca8ee9"], +Cell[331723, 8583, 495, 11, 31, "Message",ExpressionUUID->"91d44f0a-ef64-49af-81f6-eedeb7a3749e"], +Cell[332221, 8596, 21923, 408, 279, "Output",ExpressionUUID->"0226de08-6f76-4587-9913-f88f20e10a55"] }, Open ]], Cell[CellGroupData[{ -Cell[338472, 8645, 2221, 64, 105, "Input",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], -Cell[340696, 8711, 554, 12, 105, "Message",ExpressionUUID->"3ebcf84a-7882-bd47-b9c8-0657501c09d4"], -Cell[341253, 8725, 560, 12, 105, "Message",ExpressionUUID->"5ba908af-818e-5d45-9b4d-c738ed936632"], -Cell[341816, 8739, 560, 12, 105, "Message",ExpressionUUID->"b25ed3b8-96c0-f246-8b73-bf5dca1bf3be"], -Cell[342379, 8753, 455, 10, 105, "Message",ExpressionUUID->"4d7ee3e1-e220-9e46-b1cc-01012021a276"], -Cell[342837, 8765, 169, 2, 105, "Output",ExpressionUUID->"f21819b7-4040-3a47-b212-dc05454fc812"] +Cell[354181, 9009, 1616, 48, 124, "Input",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], +Cell[355800, 9059, 674, 14, 72, "Message",ExpressionUUID->"ecb5410d-e184-4e12-8a1f-d5c83697d7ce"], +Cell[356477, 9075, 677, 14, 72, "Message",ExpressionUUID->"56cffef2-2c25-43c8-8ec2-60e9923c6dd6"], +Cell[357157, 9091, 676, 14, 72, "Message",ExpressionUUID->"ffa8f6d9-a3ec-4c75-b8de-183bb29bc06e"], +Cell[357836, 9107, 495, 11, 31, "Message",ExpressionUUID->"263d9c58-07af-4266-a874-ba1e2f46537f"], +Cell[358334, 9120, 194, 3, 40, "Output",ExpressionUUID->"c682550c-a8c3-47bc-8e6f-ed4c2e9d75f7"] }, Open ]], Cell[CellGroupData[{ -Cell[343043, 8772, 2223, 64, 105, "Input",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], -Cell[345269, 8838, 555, 12, 105, "Message",ExpressionUUID->"abd6af2a-56b2-2644-a5c5-5aa91718971c"], -Cell[345827, 8852, 558, 12, 105, "Message",ExpressionUUID->"31d8f902-5be7-c54f-8e99-429decd85903"], -Cell[346388, 8866, 560, 12, 105, "Message",ExpressionUUID->"666728b2-41bd-114c-ad81-a56ae7cb85e9"], -Cell[346951, 8880, 453, 10, 105, "Message",ExpressionUUID->"7a1ee219-911f-6846-82f7-c389bec607c2"], -Cell[347407, 8892, 167, 2, 105, "Output",ExpressionUUID->"f40d5525-ccff-eb4c-a859-e6917373a7f1"] +Cell[358565, 9128, 2272, 64, 331, "Input",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], +Cell[360840, 9194, 587, 13, 96, "Message",ExpressionUUID->"4f2291fd-19b6-47e3-ab4e-62799cd21dd7"], +Cell[361430, 9209, 676, 14, 72, "Message",ExpressionUUID->"83fd7fc0-40ac-415c-8eb9-5c19f744cd2f"], +Cell[362109, 9225, 677, 14, 72, "Message",ExpressionUUID->"0c6d341d-9f07-4375-a707-0e04baafc3af"], +Cell[362789, 9241, 495, 11, 31, "Message",ExpressionUUID->"f0958036-726a-48b9-8817-854fb497eeb6"], +Cell[363287, 9254, 196, 3, 40, "Output",ExpressionUUID->"0f4ad498-d668-4ee3-9664-c78eef2a59be"] }, Open ]], Cell[CellGroupData[{ -Cell[347611, 8899, 213, 6, 105, "Input",ExpressionUUID->"fcd1131c-ba92-0b46-817b-e5f89f4ec38f"], -Cell[347827, 8907, 169, 2, 105, "Output",ExpressionUUID->"3749f94f-79b1-2342-af7e-bc4d815737fe"] +Cell[363520, 9262, 2233, 63, 331, "Input",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], +Cell[365756, 9327, 584, 13, 96, "Message",ExpressionUUID->"a5c93ae9-e6ee-4c06-bccc-c945076b5a39"], +Cell[366343, 9342, 673, 14, 72, "Message",ExpressionUUID->"5ecc8f8a-9080-4667-91d6-12ffdaa39a36"], +Cell[367019, 9358, 674, 14, 72, "Message",ExpressionUUID->"8f0ad0e6-db62-4e50-8f6b-253991d0c3ef"], +Cell[367696, 9374, 492, 11, 31, "Message",ExpressionUUID->"094083fb-0959-4d12-b38a-d8953f514363"], +Cell[368191, 9387, 195, 3, 40, "Output",ExpressionUUID->"e5a1445c-8af3-41ba-afaa-837e7555c72a"] }, Open ]], -Cell[348011, 8912, 247, 5, 105, "Input",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"], Cell[CellGroupData[{ -Cell[348283, 8921, 554, 18, 105, "Input",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], -Cell[348840, 8941, 167, 2, 105, "Output",ExpressionUUID->"aad53d59-da78-9348-9ac4-1e0902e814d3"] +Cell[368423, 9395, 2235, 63, 331, "Input",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], +Cell[370661, 9460, 587, 13, 96, "Message",ExpressionUUID->"f2a13e83-0601-4d36-bd18-289c10a57cb2"], +Cell[371251, 9475, 674, 14, 72, "Message",ExpressionUUID->"4d719217-c027-4158-9fae-a8652c2b5421"], +Cell[371928, 9491, 677, 14, 72, "Message",ExpressionUUID->"749595b3-27a9-4a60-9da0-cf620432c4eb"], +Cell[372608, 9507, 492, 11, 31, "Message",ExpressionUUID->"e88374a1-22dc-4feb-a2fc-1b51a744257b"], +Cell[373103, 9520, 194, 3, 40, "Output",ExpressionUUID->"b8b4f5eb-441b-44f6-9adc-ae4b9dca59c1"] }, Open ]], Cell[CellGroupData[{ -Cell[349044, 8948, 166, 4, 105, "Input",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], -Cell[349213, 8954, 169, 2, 105, "Output",ExpressionUUID->"4fef6a46-506a-e14c-9df4-f75ab9f6cdb2"] +Cell[373334, 9528, 236, 6, 56, "Input",ExpressionUUID->"fcd1131c-ba92-0b46-817b-e5f89f4ec38f"], +Cell[373573, 9536, 195, 3, 40, "Output",ExpressionUUID->"c2a99505-9956-407b-b124-4696cae57ab4"] }, Open ]], +Cell[373783, 9542, 273, 6, 35, "Input",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"], Cell[CellGroupData[{ -Cell[349419, 8961, 181, 5, 105, "Input",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], -Cell[349603, 8968, 173, 3, 105, "Output",ExpressionUUID->"f46a3dc4-a4b4-034f-91be-6596e81ebf6d"] +Cell[374081, 9552, 558, 19, 63, "Input",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], +Cell[374642, 9573, 192, 3, 40, "Output",ExpressionUUID->"d5929414-1fba-4b07-9688-fd4d361abc13"] }, Open ]], Cell[CellGroupData[{ -Cell[349813, 8976, 6055, 185, 105, "Input",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], -Cell[355871, 9163, 172, 3, 105, "Output",ExpressionUUID->"ccd4df45-d425-704c-b4a9-648b41b92e77"] +Cell[374871, 9581, 170, 5, 67, "Input",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], +Cell[375044, 9588, 195, 3, 40, "Output",ExpressionUUID->"0ab71679-554d-49d5-9dae-e9d812a80f38"] }, Open ]], Cell[CellGroupData[{ -Cell[356080, 9171, 368, 9, 105, "Input",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], -Cell[356451, 9182, 170, 3, 105, "Output",ExpressionUUID->"1ebb6633-805d-cf47-abbc-564ac9bf2374"] +Cell[375276, 9596, 181, 5, 52, "Input",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], +Cell[375460, 9603, 195, 3, 40, "Output",ExpressionUUID->"b9637100-760f-49c7-907a-ff75788fd373"] }, Open ]], Cell[CellGroupData[{ -Cell[356658, 9190, 6122, 187, 105, "Input",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], -Cell[362783, 9379, 175, 3, 105, "Output",ExpressionUUID->"a3a95ff2-cddf-6a4c-ac06-8cc3fd5707bc"] +Cell[375692, 9611, 6055, 185, 777, "Input",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], +Cell[381750, 9798, 195, 3, 40, "Output",ExpressionUUID->"b8153e8b-f9a8-41e1-af3c-82c7bea99152"] }, Open ]], Cell[CellGroupData[{ -Cell[362995, 9387, 368, 9, 105, "Input",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], -Cell[363366, 9398, 169, 3, 105, "Output",ExpressionUUID->"53071608-cf53-7441-9033-6c9cf2e7fa8e"] +Cell[381982, 9806, 368, 9, 50, "Input",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], +Cell[382353, 9817, 193, 3, 40, "Output",ExpressionUUID->"0faee5b1-5faa-4170-92c1-3f48ae43bc12"] }, Open ]], Cell[CellGroupData[{ -Cell[363572, 9406, 2663, 88, 105, "Input",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], -Cell[366238, 9496, 173, 3, 105, "Output",ExpressionUUID->"547b87cc-d628-4d49-8e04-72542aa7650e"] +Cell[382583, 9825, 6122, 187, 840, "Input",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], +Cell[388708, 10014, 196, 3, 40, "Output",ExpressionUUID->"e9be25f5-ea18-4af3-9dda-116acf74ff68"] }, Open ]], Cell[CellGroupData[{ -Cell[366448, 9504, 2603, 85, 105, "Input",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], -Cell[369054, 9591, 171, 3, 105, "Output",ExpressionUUID->"a8edf49c-9c61-9e4b-9fa8-4de409daba96"] +Cell[388941, 10022, 368, 9, 50, "Input",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], +Cell[389312, 10033, 193, 3, 40, "Output",ExpressionUUID->"c53b671a-df6c-4b7b-ac86-69534398fa7e"] }, Open ]], Cell[CellGroupData[{ -Cell[369262, 9599, 3712, 118, 105, "Input",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], -Cell[372977, 9719, 171, 3, 105, "Output",ExpressionUUID->"3584cc50-41a2-ae4b-af54-859d095b0154"] +Cell[389542, 10041, 2663, 88, 406, "Input",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], +Cell[392208, 10131, 196, 3, 40, "Output",ExpressionUUID->"9f1144c2-6cfe-42eb-b907-f2d1439db699"] }, Open ]], Cell[CellGroupData[{ -Cell[373185, 9727, 2052, 59, 105, "Input",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], -Cell[375240, 9788, 572, 12, 105, "Message",ExpressionUUID->"d59869d2-8577-0547-8448-230bc5a4ac5e"], -Cell[375815, 9802, 573, 12, 105, "Message",ExpressionUUID->"844f4204-3100-6d45-b5d2-238cc22b8006"], -Cell[376391, 9816, 578, 12, 105, "Message",ExpressionUUID->"f91c55eb-7b3d-3340-b869-4269b99a071c"], -Cell[376972, 9830, 457, 10, 105, "Message",ExpressionUUID->"efd89e15-8a66-4047-aee7-4fb3607a30a7"], -Cell[377432, 9842, 172, 3, 105, "Output",ExpressionUUID->"e68f2098-b3f7-6745-819f-009e252dd442"] +Cell[392441, 10139, 2603, 85, 406, "Input",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], +Cell[395047, 10226, 195, 3, 40, "Output",ExpressionUUID->"00f64a19-0434-498a-a9c6-985ba04cf2e7"] }, Open ]], Cell[CellGroupData[{ -Cell[377641, 9850, 2054, 59, 105, "Input",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], -Cell[379698, 9911, 572, 12, 105, "Message",ExpressionUUID->"feb3ed0a-8d45-dd4c-a945-407106f88295"], -Cell[380273, 9925, 575, 12, 105, "Message",ExpressionUUID->"d5a6c2e7-2143-1843-8d40-686107f6aa27"], -Cell[380851, 9939, 576, 12, 105, "Message",ExpressionUUID->"a15d89dd-0dfc-c845-aec3-fe7d60156e1f"], -Cell[381430, 9953, 457, 10, 105, "Message",ExpressionUUID->"0f9408e4-b654-4a40-9b38-655b18398efc"], -Cell[381890, 9965, 170, 3, 105, "Output",ExpressionUUID->"f72e3d82-4d19-7143-9513-38a15cee4d51"] +Cell[395279, 10234, 3712, 118, 535, "Input",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], +Cell[398994, 10354, 195, 3, 40, "Output",ExpressionUUID->"2b9824d3-4ef0-40b0-9b47-5785c208aec1"] }, Open ]], Cell[CellGroupData[{ -Cell[382097, 9973, 2030, 55, 105, "Input",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], -Cell[384130, 10030, 20377, 384, 105, "Output",ExpressionUUID->"02187549-f2f0-9c4d-81fc-d12919ea7802"] +Cell[399226, 10362, 2075, 59, 261, "Input",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], +Cell[401304, 10423, 566, 12, 96, "Message",ExpressionUUID->"21e061db-9fe0-4b8e-9a85-4b01e81d3dc0"], +Cell[401873, 10437, 571, 12, 96, "Message",ExpressionUUID->"9057dc14-1620-4fb0-b559-e06501b3b97d"], +Cell[402447, 10451, 574, 12, 96, "Message",ExpressionUUID->"6bf0e770-ff6f-4982-9299-0846b158f8fd"], +Cell[403024, 10465, 495, 11, 31, "Message",ExpressionUUID->"16ef0941-d8f6-48c9-9812-008987f9aa8e"], +Cell[403522, 10478, 196, 3, 40, "Output",ExpressionUUID->"967adaf7-8c54-475b-b400-fe2ef9da08de"] }, Open ]], Cell[CellGroupData[{ -Cell[404544, 10419, 2118, 60, 105, "Input",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], -Cell[406665, 10481, 499, 11, 105, "Message",ExpressionUUID->"75033ea5-32d5-4445-bfb0-a981507a2e9a"], -Cell[407167, 10494, 504, 11, 105, "Message",ExpressionUUID->"bc53c85b-e7c9-be4a-8ed4-30975f08af5c"], -Cell[407674, 10507, 507, 11, 105, "Message",ExpressionUUID->"e09d101b-c5d3-424f-aab9-c5788f3b9ef6"], -Cell[408184, 10520, 455, 10, 105, "Message",ExpressionUUID->"28f777a6-eb27-df49-a698-bd7806baa94c"], -Cell[408642, 10532, 22381, 415, 105, "Output",ExpressionUUID->"cd997d80-b342-8b4c-95c9-b33408882f73"] +Cell[403755, 10486, 2077, 59, 261, "Input",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], +Cell[405835, 10547, 568, 12, 96, "Message",ExpressionUUID->"f3a7e894-798f-4fba-bdfb-eba7689af6e8"], +Cell[406406, 10561, 571, 12, 96, "Message",ExpressionUUID->"23dfe279-8f5e-44e7-9336-fa6ae58841bd"], +Cell[406980, 10575, 574, 12, 96, "Message",ExpressionUUID->"bbdf3526-dd61-455c-8398-08cde095e909"], +Cell[407557, 10589, 495, 11, 31, "Message",ExpressionUUID->"b59a0bf5-c5c9-4688-8bd8-a5f19c63198f"], +Cell[408055, 10602, 193, 3, 40, "Output",ExpressionUUID->"f513b1b9-5ad0-44de-861f-953555c5afa1"] }, Open ]], -Cell[431038, 10950, 174, 3, 105, "Input",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], -Cell[431215, 10955, 209, 5, 105, "Input",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"], Cell[CellGroupData[{ -Cell[431449, 10964, 1616, 48, 105, "Input",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], -Cell[433068, 11014, 594, 12, 105, "Message",ExpressionUUID->"96d01a47-7c9a-1944-8904-f1788b2f0a8a"], -Cell[433665, 11028, 594, 12, 105, "Message",ExpressionUUID->"fee09e7b-7835-394b-93fe-35ddd26f69d1"], -Cell[434262, 11042, 598, 12, 105, "Message",ExpressionUUID->"fc12fc14-afc1-0a48-8829-94d858477ec4"], -Cell[434863, 11056, 457, 10, 105, "Message",ExpressionUUID->"41b1346d-6d7d-5d4d-9b1a-88cde3361cf3"], -Cell[435323, 11068, 171, 3, 105, "Output",ExpressionUUID->"0bbffe2c-809c-1149-a08f-e3342cda31a0"] +Cell[408285, 10610, 2053, 55, 218, "Input",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], +Cell[410341, 10667, 20263, 383, 279, "Output",ExpressionUUID->"52c22aed-c647-40dc-acd3-7678ca8f9ad8"] }, Open ]], Cell[CellGroupData[{ -Cell[435531, 11076, 2247, 64, 105, "Input",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], -Cell[437781, 11142, 572, 12, 105, "Message",ExpressionUUID->"922f5f31-888f-7340-96cd-65ecb8ea2e84"], -Cell[438356, 11156, 573, 12, 105, "Message",ExpressionUUID->"287b836d-7493-d44f-85b0-183d2793165c"], -Cell[438932, 11170, 578, 12, 105, "Message",ExpressionUUID->"962d88f7-2937-fe4b-ba97-3fe8099808d5"], -Cell[439513, 11184, 455, 10, 105, "Message",ExpressionUUID->"2ec951f6-2332-9241-84af-c7ac25232c2e"], -Cell[439971, 11196, 172, 3, 105, "Output",ExpressionUUID->"3eb28fb3-5fd6-4240-b231-e1f0fa53f4dc"] +Cell[430641, 11055, 2141, 60, 294, "Input",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], +Cell[432785, 11117, 532, 12, 70, "Message",ExpressionUUID->"3c2b6c3e-ab94-432b-a8d7-898b80709076"], +Cell[433320, 11131, 533, 12, 70, "Message",ExpressionUUID->"9c1983a0-c6ca-42cd-898e-86e5ed8770b2"], +Cell[433856, 11145, 536, 12, 70, "Message",ExpressionUUID->"0e130ab8-c9d8-4902-b72c-25716b3d64ce"], +Cell[434395, 11159, 493, 11, 31, "Message",ExpressionUUID->"d3dcd190-3148-41bb-bb84-b4a08fa2317a"], +Cell[434891, 11172, 21786, 405, 279, "Output",ExpressionUUID->"b1587433-462c-4c12-a6c3-f63c1ee08a99"] }, Open ]], +Cell[456692, 11580, 200, 4, 35, "Input",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], Cell[CellGroupData[{ -Cell[440180, 11204, 2221, 64, 105, "Input",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], -Cell[442404, 11270, 570, 12, 105, "Message",ExpressionUUID->"8fc71a81-55ed-5940-a6a0-1fa4e0c6425a"], -Cell[442977, 11284, 573, 12, 105, "Message",ExpressionUUID->"001b2f06-491c-6c4f-881b-1d7c12c1b14f"], -Cell[443553, 11298, 578, 12, 105, "Message",ExpressionUUID->"865c0491-32b6-3549-83ec-bdf42c3a31aa"], -Cell[444134, 11312, 455, 10, 105, "Message",ExpressionUUID->"3566013f-7b44-504c-95a5-32d3ac2ece3d"], -Cell[444592, 11324, 172, 3, 105, "Output",ExpressionUUID->"9cc3c720-52c0-b040-a0b4-75ff2aab4396"] +Cell[456917, 11588, 232, 5, 35, "Input",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"], +Cell[457152, 11595, 28121, 534, 279, "Output",ExpressionUUID->"9b2b3222-bc34-4318-b652-ee2577e2f2bd"] }, Open ]], Cell[CellGroupData[{ -Cell[444801, 11332, 2221, 64, 105, "Input",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], -Cell[447025, 11398, 572, 12, 105, "Message",ExpressionUUID->"bc9996c1-a929-5b41-9541-f607e96932b8"], -Cell[447600, 11412, 575, 12, 105, "Message",ExpressionUUID->"eb28c83b-0aac-8d4e-a729-f978b41e689a"], -Cell[448178, 11426, 578, 12, 105, "Message",ExpressionUUID->"70b030cf-db8c-c440-8526-b10f71bb72b3"], -Cell[448759, 11440, 455, 10, 105, "Message",ExpressionUUID->"4d72b001-01d6-d944-9c97-6d0d7d2eccbb"], -Cell[449217, 11452, 173, 3, 105, "Output",ExpressionUUID->"c15d23fa-1bed-9640-940a-c33e3a830230"] +Cell[485310, 12134, 1616, 48, 124, "Input",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], +Cell[486929, 12184, 676, 14, 72, "Message",ExpressionUUID->"94489e8c-1cb5-4aae-a296-eb4bf6ff69ce"], +Cell[487608, 12200, 677, 14, 72, "Message",ExpressionUUID->"1387aee6-dcdc-44d5-aaa7-471aadea45d1"], +Cell[488288, 12216, 678, 14, 72, "Message",ExpressionUUID->"97ecb3f6-96cd-40fe-8428-88b3ec8eec79"], +Cell[488969, 12232, 497, 11, 31, "Message",ExpressionUUID->"29272bd0-91b5-489b-9b72-40b3113a0ee7"], +Cell[489469, 12245, 192, 3, 40, "Output",ExpressionUUID->"33cd1388-780f-484c-821c-4412847fa484"] }, Open ]], Cell[CellGroupData[{ -Cell[449427, 11460, 213, 6, 105, "Input",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"], -Cell[449643, 11468, 172, 3, 105, "Output",ExpressionUUID->"2d0467ed-c049-384d-ae20-12fc79688cfb"] +Cell[489698, 12253, 2270, 64, 331, "Input",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], +Cell[491971, 12319, 566, 12, 96, "Message",ExpressionUUID->"413df039-d1f0-40cc-ba28-df23175f2706"], +Cell[492540, 12333, 571, 12, 96, "Message",ExpressionUUID->"988627d0-f563-4923-8b21-49a13d3bb941"], +Cell[493114, 12347, 574, 12, 96, "Message",ExpressionUUID->"9c604d8a-0baa-423c-b18a-8732dfeddf4e"], +Cell[493691, 12361, 497, 11, 31, "Message",ExpressionUUID->"151374f9-ef06-42d3-9ec3-ac3d518c4f2d"], +Cell[494191, 12374, 197, 3, 40, "Output",ExpressionUUID->"e3da2886-614c-48a9-aefe-029771455ed3"] }, Open ]], -Cell[449830, 11474, 245, 5, 105, "Input",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"], Cell[CellGroupData[{ -Cell[450100, 11483, 558, 19, 105, "Input",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], -Cell[450661, 11504, 173, 3, 105, "Output",ExpressionUUID->"26c56722-6e97-cb4f-b35b-a00d42f1d8f6"] +Cell[494425, 12382, 2233, 63, 331, "Input",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], +Cell[496661, 12447, 564, 12, 96, "Message",ExpressionUUID->"49c9dea2-938c-4740-9f21-4ab9b501896c"], +Cell[497228, 12461, 569, 12, 96, "Message",ExpressionUUID->"9146775b-8474-415c-bb86-60a3e71cb962"], +Cell[497800, 12475, 572, 12, 96, "Message",ExpressionUUID->"a4d33c59-be3a-4159-b51b-6c1a51a8ce2c"], +Cell[498375, 12489, 493, 11, 31, "Message",ExpressionUUID->"7dbaf65e-47d8-4278-b310-a6f4a685017b"], +Cell[498871, 12502, 194, 3, 40, "Output",ExpressionUUID->"82990ad7-0074-421f-ba94-58a1a040ebe8"] }, Open ]], Cell[CellGroupData[{ -Cell[450871, 11512, 170, 5, 105, "Input",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], -Cell[451044, 11519, 171, 3, 105, "Output",ExpressionUUID->"7e7edb0d-1306-d742-8b32-e7c6dc694892"] +Cell[499102, 12510, 2233, 63, 331, "Input",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], +Cell[501338, 12575, 566, 12, 96, "Message",ExpressionUUID->"5142eb42-3bc7-405c-9464-7ea2adc48902"], +Cell[501907, 12589, 573, 12, 96, "Message",ExpressionUUID->"7962084e-8658-4134-a423-a04c3cf78f2c"], +Cell[502483, 12603, 574, 12, 96, "Message",ExpressionUUID->"fda57212-3ece-4f7e-80b5-b56025955856"], +Cell[503060, 12617, 494, 11, 31, "Message",ExpressionUUID->"203db6b1-f42b-446d-a1aa-05b49a31228c"], +Cell[503557, 12630, 194, 3, 40, "Output",ExpressionUUID->"7fbf773d-653e-4d75-924e-b96ac266b8a4"] }, Open ]], Cell[CellGroupData[{ -Cell[451252, 11527, 181, 5, 105, "Input",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], -Cell[451436, 11534, 173, 3, 105, "Output",ExpressionUUID->"e5353287-a717-554a-9c6b-1021438b30ff"] +Cell[503788, 12638, 236, 6, 56, "Input",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"], +Cell[504027, 12646, 198, 3, 40, "Output",ExpressionUUID->"523bfb2f-0fa5-41ae-9096-be9e305429e0"] }, Open ]], +Cell[504240, 12652, 271, 6, 35, "Input",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"], Cell[CellGroupData[{ -Cell[451646, 11542, 6055, 185, 105, "Input",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], -Cell[457704, 11729, 175, 3, 105, "Output",ExpressionUUID->"ed4bd4f3-e1cc-fa47-b5b5-475b6e581b1f"] +Cell[504536, 12662, 558, 19, 63, "Input",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], +Cell[505097, 12683, 195, 3, 40, "Output",ExpressionUUID->"7e1ac2e1-c855-4857-bd83-0825d7bac6e6"] }, Open ]], Cell[CellGroupData[{ -Cell[457916, 11737, 368, 9, 105, "Input",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], -Cell[458287, 11748, 170, 3, 105, "Output",ExpressionUUID->"0c9f07a0-dfdf-6e41-964a-0bcdc0cbcb45"] +Cell[505329, 12691, 170, 5, 67, "Input",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], +Cell[505502, 12698, 192, 3, 40, "Output",ExpressionUUID->"263cb3f1-3b0d-4fc1-a553-d0cfe26e8e47"] }, Open ]], Cell[CellGroupData[{ -Cell[458494, 11756, 6122, 187, 105, "Input",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], -Cell[464619, 11945, 175, 3, 105, "Output",ExpressionUUID->"579eace1-979d-7347-a36f-c1fefbf459f5"] +Cell[505731, 12706, 181, 5, 52, "Input",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], +Cell[505915, 12713, 197, 3, 40, "Output",ExpressionUUID->"1591d511-d6d7-473d-86c6-29e935d2f3b9"] }, Open ]], Cell[CellGroupData[{ -Cell[464831, 11953, 368, 9, 105, "Input",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], -Cell[465202, 11964, 172, 3, 105, "Output",ExpressionUUID->"0225baf1-4541-ed4d-8528-13926fef86cd"] +Cell[506149, 12721, 6055, 185, 777, "Input",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], +Cell[512207, 12908, 196, 3, 40, "Output",ExpressionUUID->"6d49b682-dcc3-49a0-9ff1-415879839e6e"] }, Open ]], Cell[CellGroupData[{ -Cell[465411, 11972, 2663, 88, 105, "Input",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], -Cell[468077, 12062, 173, 3, 105, "Output",ExpressionUUID->"f7c789e7-838d-b443-a597-00e69e7c3611"] +Cell[512440, 12916, 368, 9, 50, "Input",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], +Cell[512811, 12927, 191, 3, 40, "Output",ExpressionUUID->"4832343c-ae39-465f-9098-7cc6a784070e"] }, Open ]], Cell[CellGroupData[{ -Cell[468287, 12070, 2603, 85, 105, "Input",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], -Cell[470893, 12157, 171, 3, 105, "Output",ExpressionUUID->"fc2bf760-d110-cb46-bd02-e934de9fd4f9"] +Cell[513039, 12935, 6122, 187, 840, "Input",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], +Cell[519164, 13124, 196, 3, 40, "Output",ExpressionUUID->"5afd1aae-69e4-4e07-8939-def7e9dab7ea"] }, Open ]], Cell[CellGroupData[{ -Cell[471101, 12165, 3712, 118, 105, "Input",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], -Cell[474816, 12285, 171, 3, 105, "Output",ExpressionUUID->"4304216c-b250-ab48-915e-b844e71a70f1"] +Cell[519397, 13132, 368, 9, 50, "Input",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], +Cell[519768, 13143, 195, 3, 40, "Output",ExpressionUUID->"09219f72-7524-4245-be3b-7ad1314f284b"] }, Open ]], Cell[CellGroupData[{ -Cell[475024, 12293, 2052, 59, 105, "Input",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], -Cell[477079, 12354, 568, 12, 105, "Message",ExpressionUUID->"ef0dcda5-4eb3-fb4f-a7ba-cf9592c754fd"], -Cell[477650, 12368, 572, 12, 105, "Message",ExpressionUUID->"516128bc-41b4-3d49-8276-2fe73d5d437e"], -Cell[478225, 12382, 574, 12, 105, "Message",ExpressionUUID->"83555127-edb0-f34d-bade-abdcd60ad387"], -Cell[478802, 12396, 457, 10, 105, "Message",ExpressionUUID->"f8efe38f-0b83-4645-b574-b25c08902457"], -Cell[479262, 12408, 172, 3, 105, "Output",ExpressionUUID->"de5933f0-d736-3443-950a-4744d8abefe5"] +Cell[520000, 13151, 2663, 88, 406, "Input",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], +Cell[522666, 13241, 196, 3, 40, "Output",ExpressionUUID->"175bf8c7-ec17-4998-8d14-59cb33988ab0"] }, Open ]], Cell[CellGroupData[{ -Cell[479471, 12416, 2054, 59, 105, "Input",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], -Cell[481528, 12477, 568, 12, 105, "Message",ExpressionUUID->"d0c389d2-1c6b-3a44-bd00-6e54df438015"], -Cell[482099, 12491, 572, 12, 105, "Message",ExpressionUUID->"3f819d0b-3458-d54e-bb8e-ed758b92949a"], -Cell[482674, 12505, 574, 12, 105, "Message",ExpressionUUID->"7403c575-bafd-2049-8d02-89293c73f7f1"], -Cell[483251, 12519, 457, 10, 105, "Message",ExpressionUUID->"29512b1b-8a2c-1740-986b-fb78e7d2ec89"], -Cell[483711, 12531, 171, 3, 105, "Output",ExpressionUUID->"686785b6-8c83-3e43-88fb-689383b13a2d"] +Cell[522899, 13249, 2603, 85, 406, "Input",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], +Cell[525505, 13336, 193, 3, 40, "Output",ExpressionUUID->"e09164b1-5c0c-4f00-8be1-ab00cf8a7496"] }, Open ]], Cell[CellGroupData[{ -Cell[483919, 12539, 2030, 55, 105, "Input",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], -Cell[485952, 12596, 19960, 375, 105, "Output",ExpressionUUID->"9eb47740-dc4f-3248-80e4-ef19d916a0ad"] +Cell[525735, 13344, 3712, 118, 535, "Input",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], +Cell[529450, 13464, 193, 3, 40, "Output",ExpressionUUID->"43afa503-7f37-4d80-93c5-60c77716c97c"] }, Open ]], Cell[CellGroupData[{ -Cell[505949, 12976, 2118, 60, 105, "Input",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], -Cell[508070, 13038, 496, 11, 105, "Message",ExpressionUUID->"6bc1b8c6-3100-6640-9985-3abfd43de799"], -Cell[508569, 13051, 501, 11, 105, "Message",ExpressionUUID->"82e13dda-210b-a94d-9e1d-a821db42ab6b"], -Cell[509073, 13064, 505, 11, 105, "Message",ExpressionUUID->"9d37688a-c69d-ed49-bce7-cf0090e0ecb8"], -Cell[509581, 13077, 455, 10, 105, "Message",ExpressionUUID->"4e87d0d8-b47a-ef47-85af-16467b219f50"], -Cell[510039, 13089, 21721, 403, 105, "Output",ExpressionUUID->"6974e3c4-9b35-2f4b-97bf-745f60f533f8"] +Cell[529680, 13472, 2075, 59, 261, "Input",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], +Cell[531758, 13533, 573, 12, 96, "Message",ExpressionUUID->"74b49590-7139-4c26-8a94-ac70e70874c3"], +Cell[532334, 13547, 573, 12, 96, "Message",ExpressionUUID->"d9d45a48-9923-4344-b05b-6a37b1c2b09a"], +Cell[532910, 13561, 583, 13, 96, "Message",ExpressionUUID->"ddc6472f-51b1-4aa2-b4df-b7c057434580"], +Cell[533496, 13576, 497, 11, 31, "Message",ExpressionUUID->"1f4697e6-72d5-4c3d-9efb-ce98ed03f574"], +Cell[533996, 13589, 194, 3, 40, "Output",ExpressionUUID->"4b97a184-8247-4e1f-a51e-d507fcc87bf8"] }, Open ]], -Cell[531775, 13495, 181, 3, 105, "Input",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], -Cell[531959, 13500, 207, 5, 105, "Input",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"], Cell[CellGroupData[{ -Cell[532191, 13509, 1616, 48, 105, "Input",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], -Cell[533810, 13559, 589, 12, 105, "Message",ExpressionUUID->"8906bbab-e37b-4b4c-898f-52bfc96dde7b"], -Cell[534402, 13573, 588, 12, 105, "Message",ExpressionUUID->"6ae14bce-ec42-7f4d-9914-0630eea4cdf9"], -Cell[534993, 13587, 594, 12, 105, "Message",ExpressionUUID->"7e98a506-896d-0d47-8502-b83685d9a60c"], -Cell[535590, 13601, 455, 10, 105, "Message",ExpressionUUID->"400e66c2-06b5-814e-a2be-19c4c75ccbf0"], -Cell[536048, 13613, 173, 3, 105, "Output",ExpressionUUID->"f202ab02-e319-144b-97e8-ae603395b346"] +Cell[534227, 13597, 2077, 59, 261, "Input",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], +Cell[536307, 13658, 571, 12, 96, "Message",ExpressionUUID->"6ad66865-c9db-44d0-bed7-0375e23df679"], +Cell[536881, 13672, 573, 12, 96, "Message",ExpressionUUID->"4506c5b8-4b22-45fc-b315-d113b3be1b11"], +Cell[537457, 13686, 581, 13, 96, "Message",ExpressionUUID->"9bcefa65-57f2-4513-88b7-328799f98275"], +Cell[538041, 13701, 495, 11, 31, "Message",ExpressionUUID->"9bd429f0-5c1d-47d0-afa5-344c9901bca8"], +Cell[538539, 13714, 194, 3, 40, "Output",ExpressionUUID->"e51d6dd0-d0a1-48e0-a5ba-ec1c564b732d"] }, Open ]], Cell[CellGroupData[{ -Cell[536258, 13621, 2246, 64, 105, "Input",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], -Cell[538507, 13687, 566, 12, 105, "Message",ExpressionUUID->"2d7e67d1-8691-e348-9ca8-caa63b533102"], -Cell[539076, 13701, 570, 12, 105, "Message",ExpressionUUID->"f0eb6f1d-f621-8647-b6a6-8bf673e41ebb"], -Cell[539649, 13715, 574, 12, 105, "Message",ExpressionUUID->"64fda82a-0f74-2743-89a8-afd600de203a"], -Cell[540226, 13729, 456, 10, 105, "Message",ExpressionUUID->"971a319d-8ab4-464d-a08e-f97fe8d4c0e1"], -Cell[540685, 13741, 171, 3, 105, "Output",ExpressionUUID->"b3c37f48-9827-884f-94d9-1f76aed7bfaa"] +Cell[538770, 13722, 2053, 55, 218, "Input",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], +Cell[540826, 13779, 20275, 383, 279, "Output",ExpressionUUID->"6daec290-f786-4e63-a645-f78f243b3811"] }, Open ]], Cell[CellGroupData[{ -Cell[540893, 13749, 2221, 64, 105, "Input",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], -Cell[543117, 13815, 569, 12, 105, "Message",ExpressionUUID->"1040ba10-c733-df44-b556-0998dc0163c9"], -Cell[543689, 13829, 571, 12, 105, "Message",ExpressionUUID->"e451b852-84c2-a941-b1d7-812ecad4750e"], -Cell[544263, 13843, 575, 12, 105, "Message",ExpressionUUID->"a15e0c9d-d634-6e47-94c5-2ce40fcb4d52"], -Cell[544841, 13857, 458, 10, 31, "Message",ExpressionUUID->"a3ddc92b-b5c9-5e46-be44-6165430ec35f"], -Cell[545302, 13869, 171, 3, 40, "Output",ExpressionUUID->"978bf39b-9d1f-a54f-a6de-a2e3d269e126"] +Cell[561138, 14167, 2141, 60, 294, "Input",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], +Cell[563282, 14229, 531, 12, 70, "Message",ExpressionUUID->"30972f83-ff0c-45a4-b407-c4621c16498f"], +Cell[563816, 14243, 533, 12, 70, "Message",ExpressionUUID->"cfe1eefe-44e9-4901-97c1-e7e7e4f9c9df"], +Cell[564352, 14257, 533, 12, 70, "Message",ExpressionUUID->"0cfb608a-5dc3-41f0-b2e3-b4fa7e1b2a0a"], +Cell[564888, 14271, 495, 11, 31, "Message",ExpressionUUID->"6f80750b-2967-4c67-a278-83eed6386c34"], +Cell[565386, 14284, 21555, 402, 279, "Output",ExpressionUUID->"106ffece-677e-4ac3-bf49-10c4305d921d"] }, Open ]], +Cell[586956, 14689, 207, 4, 35, "Input",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], Cell[CellGroupData[{ -Cell[545510, 13877, 2223, 64, 331, "Input",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], -Cell[547736, 13943, 567, 12, 96, "Message",ExpressionUUID->"57c74c2a-63a6-9846-b3f7-1a08cebb8172"], -Cell[548306, 13957, 571, 12, 96, "Message",ExpressionUUID->"2e606101-b73e-f443-8324-5b1c64dcaa7f"], -Cell[548880, 13971, 573, 12, 96, "Message",ExpressionUUID->"4da9173d-4ced-1e49-83f6-426d72ec8cf3"], -Cell[549456, 13985, 456, 10, 31, "Message",ExpressionUUID->"a2dba8d9-69c9-cb46-bbb4-f7192fe3e138"], -Cell[549915, 13997, 173, 3, 40, "Output",ExpressionUUID->"12fa1803-dc21-9349-8d62-d5d5f0fa85c6"] +Cell[587188, 14697, 230, 5, 35, "Input",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"], +Cell[587421, 14704, 27890, 531, 279, "Output",ExpressionUUID->"7fad279d-cb4d-4db9-b31f-78899e79d630"] }, Open ]], Cell[CellGroupData[{ -Cell[550125, 14005, 211, 6, 56, "Input",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], -Cell[550339, 14013, 174, 3, 40, "Output",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"] -}, Open ]] +Cell[615348, 15240, 1616, 48, 124, "Input",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], +Cell[616967, 15290, 677, 14, 72, "Message",ExpressionUUID->"58f1f452-41b8-46cf-b658-1e8a306177e4"], +Cell[617647, 15306, 678, 14, 72, "Message",ExpressionUUID->"a17dd183-ba0e-401c-8c3a-d8b1ee036c54"], +Cell[618328, 15322, 676, 14, 72, "Message",ExpressionUUID->"5781f17b-7fdb-4fd0-9b9b-bc2894e79396"], +Cell[619007, 15338, 495, 11, 31, "Message",ExpressionUUID->"737eb4b1-9b99-4de8-ba65-6f8911c6c141"], +Cell[619505, 15351, 195, 3, 40, "Output",ExpressionUUID->"583963dc-81b6-4c21-80e2-9eac5ba4c27e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[619737, 15359, 2269, 64, 331, "Input",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], +Cell[622009, 15425, 571, 12, 96, "Message",ExpressionUUID->"523a6360-a6a9-4e49-9897-f4c391fb1646"], +Cell[622583, 15439, 571, 12, 96, "Message",ExpressionUUID->"359cac77-e1a1-4a17-b6fc-05cc812eee08"], +Cell[623157, 15453, 579, 13, 96, "Message",ExpressionUUID->"8eead7c5-ed67-484c-91a4-6780a905f08d"], +Cell[623739, 15468, 492, 11, 31, "Message",ExpressionUUID->"9b315962-a164-4d2a-9620-85d403232096"], +Cell[624234, 15481, 195, 3, 40, "Output",ExpressionUUID->"5742c6ee-fcfa-46d4-b914-835953332318"] +}, Open ]], +Cell[CellGroupData[{ +Cell[624466, 15489, 2233, 63, 331, "Input",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], +Cell[626702, 15554, 571, 12, 96, "Message",ExpressionUUID->"6c9ec524-7a32-4612-bef2-ad1f84a3da9d"], +Cell[627276, 15568, 573, 12, 96, "Message",ExpressionUUID->"af3879cc-610a-4a1a-adf9-71a6558c661f"], +Cell[627852, 15582, 581, 13, 96, "Message",ExpressionUUID->"cd63b8f3-b683-423a-bee2-cd1acf83a72d"], +Cell[628436, 15597, 495, 11, 31, "Message",ExpressionUUID->"a84efb2d-6fd6-4630-92eb-b7b9a66acb13"], +Cell[628934, 15610, 195, 3, 40, "Output",ExpressionUUID->"43492c28-b567-414a-a483-39ff6855c008"] +}, Open ]], +Cell[CellGroupData[{ +Cell[629166, 15618, 2235, 63, 331, "Input",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], +Cell[631404, 15683, 569, 12, 96, "Message",ExpressionUUID->"b2b7bf7f-b2f7-47b5-b521-7528974ec84d"], +Cell[631976, 15697, 571, 12, 96, "Message",ExpressionUUID->"3c94fec3-a03a-449b-bc2f-8b93af73fcd6"], +Cell[632550, 15711, 579, 13, 96, "Message",ExpressionUUID->"689282fd-c56c-4a39-a6b3-7618aea003a0"], +Cell[633132, 15726, 492, 11, 31, "Message",ExpressionUUID->"d86019a8-a524-4b57-80a4-5add0dd0f17d"], +Cell[633627, 15739, 194, 3, 40, "Output",ExpressionUUID->"18d73612-1a6e-4cce-a638-e4ced0bc8bba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[633858, 15747, 234, 6, 56, "Input",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], +Cell[634095, 15755, 200, 3, 40, "Output",ExpressionUUID->"52b2ae8b-4aa1-4485-a2e8-ec8a5ecddd06"] +}, Open ]], +Cell[634310, 15761, 209, 4, 35, "Input",ExpressionUUID->"4a107597-f742-49a1-8511-f72cb122299c"] } ] *) diff --git a/Pu240_798-811_TitovAA/160-80_h_Pu240_14-15/h_160-80_Pu240_14-15_osc_Qw2.nb b/Pu240_798-811_TitovAA/160-80_h_Pu240_14-15/h_160-80_Pu240_14-15_osc_Qw2.nb index a320d64..5089591 100644 --- a/Pu240_798-811_TitovAA/160-80_h_Pu240_14-15/h_160-80_Pu240_14-15_osc_Qw2.nb +++ b/Pu240_798-811_TitovAA/160-80_h_Pu240_14-15/h_160-80_Pu240_14-15_osc_Qw2.nb @@ -3,42 +3,4772 @@ (*** 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[ 660592, 15775] +NotebookOptionsPosition[ 619519, 15121] +NotebookOutlinePosition[ 619952, 15139] +CellTagsIndexPosition[ 619909, 15136] 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.993815385399456*^9, 3.9938153854750338`*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"b6f2f39e-93b0-4ffa-923d-06f7ff3cce6d"], + +Cell[BoxData["2"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, {3.993815359458637*^9, 3.993815388522393*^9}, + 3.99395864618618*^9, 3.993959247192506*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"e86554bd-1d88-4ec9-b877-3c2521969677"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.993815078773963*^9, 3.9938150795912027`*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"b3a6fb85-cf7d-4dec-8156-e13b5e9a4a4f"], + +Cell[BoxData["240"], "Output", CellChangeTimes->{ - 3.991849690724144*^9},ExpressionUUID->"328429c4-9130-334e-ba7f-\ -7dc8ec78e5b4"], + 3.9913196497381973`*^9, {3.9938153597191753`*^9, 3.993815388600842*^9}, + 3.993958646269747*^9, 3.9939592472959023`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"6f5ee75f-e4cb-4ef4-936e-2b9189490b31"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "160"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.993815083810103*^9, 3.9938150844706078`*^9}}, + CellLabel->"In[3]:=",ExpressionUUID->"0ac9b701-c287-4bcb-b073-60a046eeb63d"], + +Cell[BoxData["160"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, {3.9938153597338867`*^9, 3.9938153886223583`*^9}, + 3.9939586462872963`*^9, 3.99395924731593*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"395b0803-f4f9-4fc1-be3b-c7fd9d196d2c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"a9b1ff7d-b6eb-4924-a2a4-0ab3bafb5562"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, {3.993815359749675*^9, 3.9938153886357193`*^9}, + 3.993958646302828*^9, 3.99395924732721*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"2d81e506-ce5d-47fe-8177-3fa1446980ca"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"6a5e4a78-ed66-4ac8-8e14-92c47a8e55f1"], + +Cell[BoxData["0.545`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, {3.99381535976541*^9, 3.993815388649356*^9}, + 3.993958646307432*^9, 3.99395924736067*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"c34b1cac-1d56-4c44-8e62-aebd1e02901c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"ed3b39f2-5b5e-4704-ad75-fe4579ffa72e"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, {3.993815359780024*^9, 3.993815388663189*^9}, + 3.993958646333138*^9, 3.9939592473765*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"075d6119-1c54-4e44-b302-aadd2a1b506e"] +}, 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->"aa11ea33-325d-4ec8-a103-6db78ea0e605"], + +Cell[BoxData["6.297448870500181`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, {3.9938153597958603`*^9, 3.993815388676372*^9}, + 3.993958646348687*^9, 3.993959247392654*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"f42937fd-1966-44e3-955b-c2cd9e8a7d4e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"e927c194-bd3b-4046-a715-4a4c2fb8e2ba"], + +Cell[BoxData["4.9982884808739705`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, {3.993815359810844*^9, 3.993815388688987*^9}, + 3.993958646364296*^9, 3.993959247411482*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"2a505b40-0b21-43c9-b003-63fcd12a789f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.97776"}]], "Input", + CellChangeTimes->{ + 3.991799283179735*^9, {3.9938151564672937`*^9, 3.9938151618001623`*^9}}, + CellLabel->"In[9]:=",ExpressionUUID->"ce119d4b-e5fc-46f9-9c1b-bd5a3d3150fd"], + +Cell[BoxData["0.97776`"], "Output", + CellChangeTimes->{{3.993815359825905*^9, 3.993815388702949*^9}, + 3.993958646379671*^9, 3.993959247425067*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"e1b88d65-3700-41fc-97e9-51482be4d572"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.42961"}]], "Input", + CellChangeTimes->{ + 3.991799280663351*^9, {3.993815163461789*^9, 3.99381517066012*^9}}, + CellLabel->"In[10]:=",ExpressionUUID->"f966197e-ebe0-4624-94f0-bed0ce59795b"], + +Cell[BoxData["0.42961`"], "Output", + CellChangeTimes->{{3.993815359840959*^9, 3.993815388718238*^9}, + 3.993958646395402*^9, 3.993959247441923*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"8cd0d07a-36f5-4941-89fc-36189def5f79"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"e8de052c-f433-4412-ae51-56767d8a98ed"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, {3.993815359855208*^9, 3.993815388731841*^9}, + 3.993958646410099*^9, 3.993959247459188*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"d1a7a010-fb58-4380-bd8a-c69e212e4af4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"bf17a62c-40f7-4c6f-a70b-ad2e39e8addd"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, {3.993815359869401*^9, 3.993815388746388*^9}, + 3.9939586464244757`*^9, 3.9939592474758663`*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"84b5a055-32ab-44bc-a1f2-cf84425b8686"] +}, 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->"161fa6f4-259e-4702-b299-443b6a281e81"], + +Cell[BoxData["2.50294615878073`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, {3.993815359883766*^9, 3.993815388758988*^9}, + 3.993958646439068*^9, 3.993959247493389*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"f17a5619-f205-4930-9c1d-2197417b96b9"] +}, 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->"c6f32788-85ac-46ae-8131-b7b41ea549e9"], + +Cell[BoxData["1.478321690160274`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, {3.9938153598984947`*^9, 3.993815388771246*^9}, + 3.993958646454102*^9, 3.993959247510749*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"3b9fb2b8-f736-4de0-8a3c-244bc4ff9d24"] +}, 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->"fc2bcb47-59d7-418d-8eb4-678031fa0d4f"], + +Cell[BoxData["0.36228762750256105`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, {3.993815359913329*^9, 3.993815388784683*^9}, + 3.993958646469401*^9, 3.9939592475277557`*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"c42872d6-2986-404e-a738-97a28a90a378"] +}, 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->"6b73e008-7b51-4e70-a7b4-5df4b6e0c11b"], + +Cell[BoxData[ + RowBox[{"-", "0.0846607903474445`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, {3.993815359929597*^9, 3.993815388797483*^9}, + 3.993958646484239*^9, 3.993959247544993*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"12ec9a5d-76df-4b48-b443-4f30db1f9b95"] +}, 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->"5497f24d-934b-4e66-9910-496c471a7e15"], + +Cell[BoxData[ + RowBox[{"-", "0.5809541759341679`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, {3.993815359945134*^9, 3.99381538880952*^9}, + 3.9939586464991083`*^9, 3.993959247561386*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"0289860c-bc47-48d9-8db7-c6ed0399df3e"] +}, 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->"e2db64e1-73cf-4b67-b0ed-2d3bf1ab691d"], + +Cell[BoxData["0.700262319146979`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, {3.993815359960987*^9, 3.993815388821504*^9}, + 3.993958646513887*^9, 3.993959247630767*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"9c626b96-c70f-4e95-8062-a19ffe6afa60"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"3308eb87-eb9e-4eb2-8b6d-5c3edfaa9391"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, {3.993815359975456*^9, 3.993815388833537*^9}, + 3.993958646528556*^9, 3.9939592476682863`*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"0be97938-ab79-4700-9361-2fe1c863ee04"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel->"In[20]:=",ExpressionUUID->"0a267714-d797-479c-9281-926c498c54a0"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, {3.9938153599899197`*^9, 3.993815388845224*^9}, + 3.99395864654298*^9, 3.993959247679944*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"874c2903-6541-4733-a8ec-95a23c487742"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"3589c749-f1a8-49cf-962e-230ede154e34"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, {3.99381536000439*^9, 3.9938153888577013`*^9}, + 3.9939586465577307`*^9, 3.99395924769445*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"c5b7281f-85de-4d31-889c-67c580a7511f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"491532fc-d31b-4b63-9494-f2aebf07b137"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, {3.993815360018857*^9, 3.993815388870207*^9}, + 3.99395864657239*^9, 3.993959247709392*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"5dcaa45c-1114-4388-a20f-a70f60e2e6b8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[23]:=",ExpressionUUID->"137ffa77-5e4e-4e83-bdaf-3b8c71b7e99d"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, {3.993815360033464*^9, 3.9938153888824987`*^9}, + 3.9939586465866947`*^9, 3.993959247722993*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"eb4ffdac-89ca-4446-a14f-062e09f2a1f3"] +}, 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.993815261708016*^9, 3.9938152618435717`*^9}}, + CellLabel->"In[24]:=",ExpressionUUID->"e7afc510-3aae-4c8d-8f8d-75e0db78c9b0"], + +Cell[BoxData["66"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, {3.993815360047928*^9, 3.9938153888940973`*^9}, + 3.993958646601172*^9, 3.993959247734597*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"d3b83622-be8c-4d5a-9c04-6fc9968c49fd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, {3.993815264947379*^9, 3.993815267508748*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"ef6b1d03-04f3-43ee-819f-3e962597c32c"], + +Cell[BoxData["28"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, {3.993815360062439*^9, 3.993815388907254*^9}, + 3.993958646615478*^9, 3.9939592477448177`*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"8afdf224-b08a-4c51-8125-c78deb697bd4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"14174da3-21fd-4324-b414-fe59a0e7c8b2"], + +Cell[BoxData["80"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, {3.993815360076642*^9, 3.993815388920082*^9}, + 3.993958646629941*^9, 3.993959247754423*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"f53798cd-69ee-4307-9107-f9536e4c7e6d"] +}, 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->"f03df283-f42b-4f28-950a-ad1b7dbca487"], + +Cell[BoxData["0.11205`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, {3.993815360091414*^9, 3.993815388933477*^9}, + 3.993958646644432*^9, 3.99395924776388*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"28554183-72d0-49d8-be91-59bbfe91c1d7"] +}, 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->"96ddc3c1-c144-4d7e-bb7f-b358db72338a"], + +Cell[BoxData[ + RowBox[{"-", "2.5616499999999998`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, {3.9938153601058817`*^9, 3.993815388947524*^9}, + 3.993958646659143*^9, 3.993959247772592*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"cc186e97-7e1d-4a63-81e9-55a6a8bf3ec8"] +}, 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->"d2ca60e0-639f-4db2-b5e5-ff022354134f"], + +Cell[BoxData["17.9817039793298`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, {3.9938153601211452`*^9, 3.993815388962264*^9}, + 3.9939586466747503`*^9, 3.993959247781702*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"71671359-8307-4b75-b45c-c1618c95d8c5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"26bb1297-27c8-4699-a3e0-f2fc8f92a3e0"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, {3.993815360135828*^9, 3.993815388975617*^9}, + 3.993958646689221*^9, 3.993959247793076*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"f4e7b072-54c0-470e-a826-427b5ddd3c65"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", " ", "1.965"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { + 3.99381519981903*^9, 3.993815203647489*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"c36b2ec7-5177-44bf-8e69-ed1317b662fd"], + +Cell[BoxData["1.965`"], "Output", + CellChangeTimes->{{3.993815360149398*^9, 3.993815388989003*^9}, + 3.993958646703771*^9, 3.993959247803975*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"d2e6f0da-2a92-4de7-8991-ac80fcf8480d"] +}, 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->"c170de59-bd97-4364-9589-2d5d70fbb995"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.805"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.993815206165124*^9, 3.993815207521797*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"30d1f7fe-c278-4ebe-ac8c-df44c995b0f4"], + +Cell[BoxData["0.805`"], "Output", + CellChangeTimes->{{3.993815360178578*^9, 3.993815389006834*^9}, + 3.993958646731131*^9, 3.993959247818645*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"027ab1d6-056f-4825-af85-4731344d135d"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel->"In[34]:=",ExpressionUUID->"2fc9a84e-66c2-4145-ad40-f8c57f4e55f5"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "2.575"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.993815210101787*^9, 3.9938152142375507`*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"e29686c2-1ddd-44de-a20e-eaf724772ba4"], + +Cell[BoxData["2.575`"], "Output", + CellChangeTimes->{{3.993815360206645*^9, 3.993815389025874*^9}, + 3.99395864675819*^9, 3.9939592507602377`*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"55651b70-4161-4b0a-8b62-e57818fffd91"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel->"In[36]:=",ExpressionUUID->"29a1f07e-8676-41a9-bd17-2e34a313365b"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.195"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, {3.993815217827416*^9, 3.993815218865891*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"65e00fe8-d346-49a9-9594-0c6371698770"], + +Cell[BoxData["1.195`"], "Output", + CellChangeTimes->{{3.9938153602341948`*^9, 3.9938153890444403`*^9}, + 3.993958646785417*^9, 3.9939592510841837`*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"f6498d4f-30b3-4e77-b318-d3b54dc3773c"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel->"In[38]:=",ExpressionUUID->"3c9ccc48-f1ab-4896-944f-00e098abc23c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.213"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, {3.993815222374446*^9, + 3.993815224623548*^9}}, + CellLabel->"In[39]:=",ExpressionUUID->"be2c524e-276a-483b-8cfd-e5322f9f5112"], + +Cell[BoxData["1.213`"], "Output", + CellChangeTimes->{{3.99381536026166*^9, 3.993815389060953*^9}, + 3.9939586468116283`*^9, 3.993959251098156*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"16f0b05d-cf0a-4c91-9a95-9062e3fbcb0e"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel->"In[40]:=",ExpressionUUID->"9edd0cd5-3ea0-465d-bf10-7d036567eff2"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.576"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.9938152272320232`*^9, + 3.993815230573249*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"339104f4-9d50-4943-a73c-3be36f1813d0"], + +Cell[BoxData["0.576`"], "Output", + CellChangeTimes->{{3.99381536028929*^9, 3.993815389077355*^9}, + 3.9939586468382273`*^9, 3.993959251127239*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"eb7ba657-7804-4ac1-85a0-3670a3e4280d"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel->"In[42]:=",ExpressionUUID->"c015b567-1fca-4c4c-8723-7a28b0a18b25"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "1.35"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.993815233406152*^9, + 3.9938152359541283`*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"2dca6e8d-b914-427c-9e51-b61eac577074"], + +Cell[BoxData["1.35`"], "Output", + CellChangeTimes->{{3.993815360317037*^9, 3.993815389094755*^9}, + 3.993958646864482*^9, 3.993959251159032*^9}, + CellLabel->"Out[43]=",ExpressionUUID->"2ab180a1-653e-4841-8bfe-1c6a24cecdff"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel->"In[44]:=",ExpressionUUID->"6acd81c8-273c-4861-8e07-e1645ecc303b"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "0.715"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, {3.99381523872539*^9, 3.9938152401714783`*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"3d96fe7a-93a9-467e-a821-624ce66453dc"], + +Cell[BoxData["0.715`"], "Output", + CellChangeTimes->{{3.993815360345028*^9, 3.993815389112644*^9}, + 3.9939586468924627`*^9, 3.99395925119646*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"1c3123c2-de5b-440c-841d-6f33bb766203"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel->"In[46]:=",ExpressionUUID->"44e66cd8-5feb-4da9-b9b7-da93b2ddae23"], + +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->"fa30ac69-66b0-42f2-a0a8-3630a90b7025"], + +Cell[BoxData["0.10594190044976036`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, {3.993815360436064*^9, 3.993815389153583*^9}, + 3.993958649558243*^9, 3.993959251365121*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"ad1ce450-1bd4-4fa6-94ed-4d590409a772"] +}, 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->"67c71e92-6321-406f-84a2-00bc3d48bd73"], + +Cell[BoxData["6.461769506994958`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, {3.9938153604720716`*^9, 3.993815389182211*^9}, + 3.993958649585424*^9, 3.993959251440439*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"11495c87-9ae1-4d10-97d2-2d2f0707329e"] +}, 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->"132aada4-6663-4334-ad3c-7235b14d501f"], + +Cell[BoxData[ + RowBox[{"-", "16.996339172809833`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, {3.9938153605547743`*^9, 3.993815389210862*^9}, + 3.993958649612328*^9, 3.99395925149676*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"92162329-be20-4f7a-bff3-8d917f932e72"] +}, 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->"794eda41-ea81-471d-af5c-fa0e33973abf"], + +Cell[BoxData[ + RowBox[{"-", "23.66687085044272`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, {3.9938153605968103`*^9, 3.9938153892445498`*^9}, + 3.9939586496469717`*^9, 3.9939592515656347`*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"d2095dbd-a23b-43a0-9c23-5c4ee69d9dff"] +}, 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->"38b75da5-9141-4b4b-b19a-ccc39ecfb42f"], + +Cell[BoxData[ + RowBox[{"-", "64.87070371918927`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, {3.9938153606388206`*^9, 3.993815389278417*^9}, + 3.993958649683728*^9, 3.993959251628635*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"a5582f04-17e8-4296-a4a2-88803829e477"] +}, 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->"489dcf77-e70c-4939-9299-f254cd856cb6"], + +Cell[BoxData[ + RowBox[{"-", "180.27815067607094`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, {3.993815360684663*^9, 3.993815389318866*^9}, + 3.993958649726467*^9, 3.993959251729751*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"15c1b9f7-a82c-4d69-b962-045c74894d50"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[53]:=",ExpressionUUID->"8ce462f6-3ddd-4c18-aa9f-a8c154b05988"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, {3.993815360701696*^9, 3.993815389332931*^9}, + 3.99395864974012*^9, 3.993959251742247*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"faf2926c-c0a0-4ff8-8f7a-3010a180b423"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[54]:=",ExpressionUUID->"5bc4a271-2ebf-4166-967c-d682044901e9"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, {3.9938153607167177`*^9, 3.993815389344874*^9}, + 3.993958649755121*^9, 3.9939592517531633`*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"356f0d06-ffae-4c3d-85b7-94a3d137ae2c"] +}, 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->"47cf03cd-cf91-40f3-af6b-ecde127789ed"], + +Cell[BoxData["131.34670371854253`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, {3.993815360730653*^9, 3.9938153893568707`*^9}, + 3.993958649768943*^9, 3.9939592517648687`*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"91797e91-29f5-493a-9f82-69f84c134679"] +}, 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->"faa71250-a381-4043-8a3a-a850f77b6725"], + +Cell[BoxData[ + RowBox[{"-", "121.12984521648005`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, {3.993815360744831*^9, 3.993815389368895*^9}, + 3.993958649781246*^9, 3.993959251780869*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"495a958c-be4d-46f9-8f41-6369f02aa0e4"] +}, 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->"f89b02c9-d31a-4091-8584-36d26689f581"], + +Cell[BoxData["137.31484295247708`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, {3.993815360759387*^9, 3.993815389381069*^9}, + 3.99395864979466*^9, 3.993959251847085*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"3f822da4-4aa0-476b-8b00-f3ad0541b359"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[58]:=",ExpressionUUID->"1366fe92-7f59-4f02-b665-4b95151b4dee"], + +Cell[BoxData["0.36228762750256105`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, {3.993815360773879*^9, 3.993815389392989*^9}, + 3.9939586498072023`*^9, 3.993959251859859*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"bc4e45e5-fd08-496f-a37b-de056368f367"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[59]:=",ExpressionUUID->"41d0427c-462d-480e-8d81-328c3d53e09e"], + +Cell[BoxData[ + RowBox[{"-", "0.0846607903474445`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, {3.993815360788493*^9, 3.993815389404903*^9}, + 3.9939586498198338`*^9, 3.9939592518696747`*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"7eaa074a-9b21-4d33-a800-345afe317a11"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[60]:=",ExpressionUUID->"d7aa9e4f-749a-47b1-b866-9103436d9b66"], + +Cell[BoxData[ + RowBox[{"-", "0.5809541759341679`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, {3.993815360803743*^9, 3.9938153894169493`*^9}, + 3.993958649837104*^9, 3.993959251878714*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"5748df11-8eba-4694-b68a-7996a2e71f8e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"7367e1e4-6f3a-4a6b-be9a-cd073fdbd8d1"], + +Cell[BoxData["0.700262319146979`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, {3.9938153608194017`*^9, 3.993815389428903*^9}, + 3.993958649850066*^9, 3.99395925189403*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"7621794a-147b-400d-8162-debc519ec53e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[62]:=",ExpressionUUID->"a9948b97-f787-4829-952e-4e70e354f5c5"], + +Cell[BoxData["2.50294615878073`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, {3.993815360835617*^9, 3.9938153894408617`*^9}, + 3.993958649863385*^9, 3.993959251909299*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"f35d8a85-2674-4072-a8c2-9eb0c3bfd427"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[63]:=",ExpressionUUID->"5ad9b69b-7e40-419d-bb55-7c5632f8afd4"], + +Cell[BoxData["1.478321690160274`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, {3.993815360850321*^9, 3.9938153894528627`*^9}, + 3.9939586498771133`*^9, 3.993959251926564*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"19408def-6527-4f0b-845a-b2ef2188fe49"] +}, 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->"75046c0a-85f0-4725-9e2a-de4f8d41b673"], + +Cell[BoxData[ + RowBox[{"-", "34.35384696882824`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, {3.993815360867701*^9, 3.993815389464924*^9}, + 3.993958649889442*^9, 3.9939592519427557`*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"c8d108e8-8100-4c2a-aa09-83820bf5376c"] +}, 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->"853f8874-70d7-461d-b252-940c4f104021"], + +Cell[BoxData[ + RowBox[{"-", "7.30490507028344`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, {3.993815360882195*^9, 3.9938153894771433`*^9}, + 3.993958649903101*^9, 3.993959251957233*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"19ce778c-1978-4808-836f-6b5b4930b8db"] +}, 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->"6c3a21c2-ca85-4651-b0a0-0af55a6debdd"], + +Cell[BoxData["96.99285674971429`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, {3.9938153608971453`*^9, 3.993815389489629*^9}, + 3.993958649916582*^9, 3.993959251969593*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"76f20420-2af7-4490-8d35-f2951b5f73c0"] +}, 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->"8574918a-44d2-4fac-8ac3-e98d44e3dc18"], + +Cell[BoxData[ + RowBox[{"-", "121.12984521648005`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, {3.9938153609115973`*^9, 3.9938153895018883`*^9}, + 3.993958649928854*^9, 3.993959252028661*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"9faa6782-2528-414f-9d32-c7db5eeac55a"] +}, 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->"c6cd9dfd-d4f6-46c6-8c97-90e6e8d31f51"], + +Cell[BoxData["130.00993788219364`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, {3.993815360925351*^9, 3.993815389514392*^9}, + 3.993958649941387*^9, 3.993959252041794*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"e4f3275d-1cdb-49cb-a8c4-741918e96334"] +}, 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->"8ef6ea1c-6dc9-4286-8439-b82539b2090c"], + +Cell[BoxData["33.05673140049902`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, {3.993815360940073*^9, 3.993815389526847*^9}, + 3.993958649954606*^9, 3.9939592520558043`*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"d0f42b3b-d5e5-4641-a023-37cdefd09076"] +}, 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->"e2af3266-7118-41e2-9a83-cd6fa8fbaaba"], + +Cell[BoxData["781.6942369302528`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, {3.9938153609551077`*^9, 3.993815389531186*^9}, + 3.993958649967162*^9, 3.993959252069071*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"bcd75b0d-b015-4200-a8a6-2527507549d9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f1", "=", "0.8778240158"}]], "Input", + CellChangeTimes->{ + 3.9918496921150837`*^9, {3.993958961611327*^9, 3.993958969259808*^9}}, + CellLabel->"In[71]:=",ExpressionUUID->"ede64bc2-06f7-8743-a0a6-6f058773310c"], + +Cell[BoxData["0.8778240158`"], "Output", + CellChangeTimes->{3.99395925207797*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"cf39844b-3079-418f-bc96-212bf3037472"] +}, 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.6076615422"}]], "Input", + CellChangeTimes->{3.991849690724144*^9, 3.9939589780696373`*^9}, + CellLabel->"In[73]:=",ExpressionUUID->"328429c4-9130-334e-ba7f-7dc8ec78e5b4"], + +Cell[BoxData["0.6076615422`"], "Output", + CellChangeTimes->{3.993959252095573*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"14be0107-8ef1-4bf7-90c6-c3134afa7def"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991849693382303*^9, 3.991849693386299*^9}}, + CellLabel->"In[74]:=",ExpressionUUID->"b3364ab6-86a4-7a46-ae33-623392314869"], Cell[CellGroupData[{ @@ -84,13 +4814,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.6373494975860167`*^-53"], "Output", + CellChangeTimes->{3.991339230528511*^9, 3.993959252113224*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"187ddf22-c71e-4a3e-9ca2-6328f61cbdc8"] }, Open ]], Cell[CellGroupData[{ @@ -124,14 +4852,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.7968143483250388`*^-54"], "Output", + CellChangeTimes->{3.991339230554512*^9, 3.993959252122805*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"3206c440-6b20-4c12-8d78-26fe0cc1b2fb"] }, Open ]], Cell[CellGroupData[{ @@ -164,14 +4890,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.017350069896708`*^-54"], "Output", + CellChangeTimes->{3.9913392305796223`*^9, 3.993959252134151*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"3256363d-67fe-45b0-b755-6b88f992f022"] }, Open ]], Cell[CellGroupData[{ @@ -194,13 +4918,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["36.975302781936904`"], "Output", + CellChangeTimes->{3.9913392305906105`*^9, 3.993959252144637*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"87edbc21-7959-403d-9673-89c7a41e7cf4"] }, Open ]], Cell[CellGroupData[{ @@ -226,13 +4948,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["90.40738238087226`"], "Output", + CellChangeTimes->{3.99133923061561*^9, 3.993959252155986*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"67f89a18-2e18-436d-b655-c42a2595a0ca"] }, Open ]], Cell[CellGroupData[{ @@ -241,13 +4961,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.9455273268444259`"], "Output", + CellChangeTimes->{3.9913392306426105`*^9, 3.9939592521657887`*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"f7080098-dfdf-489d-9154-a3113797181f"] }, Open ]], Cell[CellGroupData[{ @@ -256,13 +4974,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["2.9404683387947776`"], "Output", + CellChangeTimes->{3.99133923065361*^9, 3.9939592521748238`*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"00b20656-1594-4889-a5fb-2fff8d986a2b"] }, Open ]], Cell[CellGroupData[{ @@ -271,13 +4987,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["265.8400454842677`"], "Output", + CellChangeTimes->{3.9913392306776104`*^9, 3.993959252183729*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"eb115c4a-f4cf-4266-9157-8d8ffcad971d"] }, Open ]], Cell[CellGroupData[{ @@ -286,13 +5000,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["34.961159198668064`"], "Output", + CellChangeTimes->{3.991339230703802*^9, 3.9939592521932373`*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"3937bde6-6548-47d2-a50a-6d8aaeaf015e"] }, Open ]], Cell[CellGroupData[{ @@ -481,13 +5193,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.004342299754814529`"], "Output", + CellChangeTimes->{3.9913392307297993`*^9, 3.9939592522059813`*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"f631783b-269b-40cc-b895-f292ce64d8a4"] }, Open ]], Cell[CellGroupData[{ @@ -500,13 +5210,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.448846620677312`"], "Output", + CellChangeTimes->{3.991339230837267*^9, 3.9939592524391336`*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"fdc9bf83-dbdf-4652-b3fa-9e6938f054d4"] }, Open ]], Cell[CellGroupData[{ @@ -697,13 +5405,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.024762864693492422`"], "Output", + CellChangeTimes->{3.9913392308522797`*^9, 3.9939592524544907`*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"5b257b64-da0e-4de8-a104-36796fd11721"] }, Open ]], Cell[CellGroupData[{ @@ -716,13 +5422,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.631764661748295`"], "Output", + CellChangeTimes->{3.991339230966341*^9, 3.993959252539501*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"31d6d603-ab5e-4b05-b599-732767c399e8"] }, Open ]], Cell[CellGroupData[{ @@ -814,13 +5518,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.1428121564505765`"], "Output", + CellChangeTimes->{3.991339230988348*^9, 3.9939592525511723`*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"3de8fbd9-b569-4ec9-95b1-af8b38d5d2a6"] }, Open ]], Cell[CellGroupData[{ @@ -909,13 +5611,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.8571878435494235`"], "Output", + CellChangeTimes->{3.991339231030445*^9, 3.993959252563724*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"defff76a-22ce-4e8a-a987-5cb8338cc635"] }, Open ]], Cell[CellGroupData[{ @@ -1037,19 +5737,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.12241684442051255`"], "Output", + CellChangeTimes->{3.991339231060343*^9, 3.993959252577292*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"108240f7-e6c9-465c-a138-448a34f5ec2a"] }, 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 +5808,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[\\\"2.5400457702965323`*^-237\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 92, 1, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392310873375`*^9, 3.9939592526091957`*^9}, CellLabel-> "During evaluation of \ -In[332]:=",ExpressionUUID->"56fc0528-7ab2-a142-bc04-9f31af965213"], +In[92]:=",ExpressionUUID->"9d1c2215-1fb3-4d41-aeb2-6182170607ce"], 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.7190609939935228`*^-244\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 92, 2, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392310873375`*^9, 3.9939592526271563`*^9}, CellLabel-> "During evaluation of \ -In[332]:=",ExpressionUUID->"523f0cae-d948-764c-a560-b9272d5e2d53"], +In[92]:=",ExpressionUUID->"759543b0-accc-4dc7-b6f0-e3f0ac3e30fd"], 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[\\\"1.1634320671020835`*^-251\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 92, 3, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392310873375`*^9, 3.993959252634741*^9}, CellLabel-> "During evaluation of \ -In[332]:=",ExpressionUUID->"0a6922e0-d70a-8f48-87c3-f1e8776a3316"], +In[92]:=",ExpressionUUID->"61243c89-bf70-46f3-999c-d43a0d90a8e3"], 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, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392310873375`*^9, 3.993959252643071*^9}, CellLabel-> "During evaluation of \ -In[332]:=",ExpressionUUID->"777b8d50-cc35-c140-9ef3-025284fd7e68"], +In[92]:=",ExpressionUUID->"f87b86b7-eff2-4d31-97d1-425952bb95d2"], -Cell[BoxData["6.551890985609901`"], "Output", - CellChangeTimes->{3.9913392346332226`*^9}, - CellLabel-> - "Out[332]=",ExpressionUUID->"bbad1871-e996-ef4b-8dc6-3a39d5c410ef"] +Cell[BoxData["13.448846620677301`"], "Output", + CellChangeTimes->{3.9913392346332226`*^9, 3.993959254954484*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"82d2465c-07c3-405f-92f2-2cd7a3830d96"] }, Open ]], Cell[CellGroupData[{ @@ -1233,68 +5930,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[\\\"2.5400457702965323`*^-237\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 93, 5, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339234667631*^9, 3.9939592550918503`*^9}, CellLabel-> "During evaluation of \ -In[333]:=",ExpressionUUID->"e613a9b2-edeb-4743-aa3f-3db45e0849dd"], +In[93]:=",ExpressionUUID->"c2314923-863f-4dd1-843e-fdcbb6f6b30e"], 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.7190609939935228`*^-244\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 93, 6, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339234667631*^9, 3.9939592551016483`*^9}, CellLabel-> "During evaluation of \ -In[333]:=",ExpressionUUID->"d082687e-fa98-c642-8741-e0aeeee8492c"], +In[93]:=",ExpressionUUID->"a5a818d6-b84d-4096-8d7a-7966d6002387"], 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[\\\"1.1634320671020835`*^-251\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 93, 7, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339234667631*^9, 3.993959255111005*^9}, CellLabel-> "During evaluation of \ -In[333]:=",ExpressionUUID->"1cb847b5-98cf-0a42-bcd2-893a3a64388b"], +In[93]:=",ExpressionUUID->"133f91e1-6b0e-459a-9782-747de42dc4be"], 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, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339234667631*^9, 3.9939592551198893`*^9}, CellLabel-> "During evaluation of \ -In[333]:=",ExpressionUUID->"0d526236-fa4c-334c-9891-0cc458f43fbe"], +In[93]:=",ExpressionUUID->"23869b62-dc45-40b1-8495-13a20acbdb50"], -Cell[BoxData["8.906440683949707`"], "Output", - CellChangeTimes->{3.99133923819088*^9}, - CellLabel-> - "Out[333]=",ExpressionUUID->"a61472f3-b6b3-5d40-8ec5-35b87df5c824"] +Cell[BoxData["5.631764661748293`"], "Output", + CellChangeTimes->{3.99133923819088*^9, 3.9939592571052*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"85e13b0c-cb6d-443b-a6e9-3eb087dd5cd7"] }, Open ]], Cell[CellGroupData[{ @@ -1350,92 +6046,92 @@ 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:eJwV03k4Vd0XB3CZkqHMkpfioiiSa4i89sqQyEzmxHXvERVCCFFJJUOhfoYI +GTMkEYXkRZQUhShD5spw701JVPrt+8d5zvN51tlrf9fez5Gl+NvS2NnY2Bbw +w3qfeq26va7ntf4Qx3mDEy10pE8v0KQYlaMj3bWHWB7L0bohb9SIMq47erNs +TX3FzU9+hk4d8LrJclVYdCuXURfyob/vZzmufXNzdOkbFBHbsOMk9uOeU7d/ +q/eji+t5klie/dAZeaZhEAX4P+Xyw94yTXL9YTiMzOrGr7F8iBGpE9T1EVkM ++u3yx276PcsXVjqOnnUSQyy/Oy8RUes3ieZiX2QFYNO5jWa/q08jc7a0gFPY +3AkBzuTlGRS6u9shEFtGKPv5qYbPiLE+0CoI21LqRxHdcB7FXVgOPY1N5MqJ +q/DQUcyGD8Uh2NEKVrHHuxhIimP7bCj2oETfnuDSryhfgK0oHJvq4uuTmrCI +Pv6K3xqJzcxiy3vg9w3FS1woO4vNI6ci+FV9CfVfLl89h32D2moiKPYDnX0w +9uQC9rZi5+jdyz9QR21U6kXsvbsu0U82/EQu9OXTV7CPaX3smjX8jcQOD0sk +Y38PO83Jq/gH/Uhy80vFPtfAp6fEs4ZEuo0HbmKnw94y766/qHXGdiyTla/w +uVFg6ToYm7LrLsQubU8dOy/FDo3tmx+XsPJ+co9MTmAHvTzjh2XYkcpL1ff9 +OCCx+N1UFStvpSyJoc4F77LfbHuK/aFnvmktnwto9DfZLaz8i3UuG8W4wYax +V6Udu1zDMkVlmRtyLXRjXmG3PQ5fd6KBB9ztuPhHsJdaez9+NuSHUOPr1/9i +C5vzC0Y08UOUSWY6ZysdqfUZgYCOAGR9hdoN2L5TD3P3qG4EK34vdVHsAPYu +tX/5BYFR91VFGXta7t7X2B9C0FjA2OOC/Z3o3NBNFob66uxUD2z2shnZzaeE +YavQJK839jbyVtvSOWEgNNR1g7FdDK8/eD0mAu3GA7euYXd7BQZJvBSD4ppx +307s0eKkeA8ecTjb1qfwFnt+rjT/rrE4fL7k9OM9Nm/wZO++ZnEItRYc/IJt +dNFew+OhBOyeI9/mbaOj+gKtpZIcSXjaNqphjV0wvRqiGywNFdrSV+awDx6+ +PBpUIQ3/JVcbLGHPt4kcqJiRBj4qj+BfbI2CXWLbnGXgWeDchPAzfJ4U92ou +/a2gJRDnsw97kTEW+jlmG1ysqli5hi1y0qim2kIODM60y5q009FMAe8xa185 +uBsqR7bDfjTcI7VwSQ5kt+90PIrtZn4kRrFZDjq3wkAodsHOENsMdRI4LxF1 +d7E1ZouZURLywPNt87JgBx3Ze/OpmI0rQIcKxX8BG4UcVnf8owAuyTcTfmEr +x+ZoUyUVQV6tuGHDczpiyycbRNkowrAjxUoRu2LU1fHBf4pAKpO38MDmdig/ +v+XOdpBy1ckbwH5kZPFulqIEZkHBRb0v6CjfLm1oOUoJWgW51yaxkyjjY5y3 +lODUOnfv79jUc6fnZHqVwKDgiL9YJx0JNWaz2Rkqw3rtWHsnbF8yXbmBtBMy +ZxoDx7Gl5K5Fx0/tAp3FDz/Zuuio8ep3pRV2FVDcLSglhu32zbmPkFWBteOb +bJWwb7fJKxm4q0CkjveaDbacd/3bnwMqkLPT1boAW7l8WoF4qQojFQcHzV/R +kbSUDLHNWQ1ij2X5V7ymo12Fwfy/kDp4BesFlb+hIwo1ZknFUh2u5YJAG3Y6 +KWXUw00dvkyIPx7C5rhTeb89TB2KxjUO8L3F/9vtWfuUKnV4LSmmdRw7Lt0j +W4lEhgJOh+Oqvfh+481Vnbg1oGGjIqmlj47yAuWtH3ZpQl6je7TMIB31hCDt +i4U68MOxKcFhjI5k3fstj5z4F0iFF/1zv9AR7W/tPekzAFYly03O3+hIYu7R +egmKATR6fIzj+EtHwWS94RRlI8hbveEwy8tAlIXfz0VmjUE1zzowSoKBKgyC +1ud0m0B9BZ+/tCIDFXz3/a/8hin0NzFyczQY6Of+za/aog+Bw+z2Uj1jBhph +4/g67mkBNYTQU08HBvL7x//6eZIV6PbqLm30ZqB7Ps+bb8ZaQ+bNUaG+MwwU +/k1yeaePDbQPZfnOxzPQktkBh46jtpC4XnlZNJeBdFyT90/b2MHwKqnBuYaB +3kpm+7aR7WHrp/iYrA4G2lIU01iy4zDwSQrHvRxmoEdjyuaWAg6gF3RirZ3J +QDJ9TO+QBQdI5F/r+Zedicg3k8vzxxwhMSHr+Td+Jsrm/Kaa0uoEd/LmAxbE +mah2/+4PsY+dYYvLWnWZLBOla18V+l3qAiUiU1JbdjFR91DhJXKCK1ic21Ra +qclEDy2y5APOuYEJiVN/DDHR15N2bH7UI2DcrF+93ZSJlg4oHaMbuoN2skXd +mg0TlSy8/xmkdRTi6rP4DVyZyCmv0OsIvwf4bX1WlOjFRNUPDh3luOwBUu/C +FLadYCIdqbcrcSse8OCkceuDICYijXl/eOPjCUORNgcqw5loiu+4VdakJ6zV +rPU3nmeiniRLL5PDFCDdqvr08jIT3QjL4TvdQ4E3tebHWhKZqLHp74qXqReM +lIa7r6Qw0SY3uEyu94JrjaGe+mlMtE20o/ufRi8oS1DOtMJW67LYzN3kBTWF +lR0e2LZ6rncH//MCt3nldTHYN/4JeXn2hReYpj5ZaMfeMlK26fmgF9jFipab +pzORvLtEutuyF8QebK22ysDzeNBLYjWoEB7FUUC+xURFGcwgSy0qnDewFd6P +Ldq7qC+xlwruWekhlth04+W+kn1U2CjLI+uDXbCTbV2XARVcOBz/ZGNvXBZy +FrahgqjW0FuuLHweiZobck5S4Q19aPYVtk2Hdp+3PxXKKgzEP2A3senmqJ2i +ws/xC9oz2BlB+potwVRYlUhwXcO2dDbxnI6ggs9oiZJqNhM9lnd+vPMqFSa9 +TUbisZMaIn0eFVEhfV4qC91mopPqaTphJVQYqjE1M8M2v1u1YW8pFZrXZdHt +sXnTZu7WVVBhQb5M0hc7NtB6traGCu/T3FdSsSOV5I8/bKHCREXw6DS2b9rL +Ew9GqZC0dlj3Qg4TmW6c0Qsco4K9YVlZPPaOWDYB9QkqWO3bKHITeyZQs6Jq +mgoBGautxdieljkL9+dx/liXe13YTlxBfpWrVMiULSwQzWUik6AtAeXiNHCP +XhXOxm7JuWSWspkGDr2xPwqx9boW5cO20GBhv9Hre9hqCi/fG8rQ4MMZR5dm +bMmBCMMhBRqcHGiZmsCe0x0R59WkQX8Gf4tCHhNdY8994m2H68GZGXeweXfz +p1scpkHz4i72UuyLrmGBZEcacLcOu1dhh9VYb//rQoOLE8nfn2J7EuuS/0eh +wRPR/cnD2OROCvXZKRpMGKpeE7nDRAPJCnyk6zSIW7TKCMO+hwSOfU7G60Mi +tkZhX1z43laRSgNjRf1bMdjqpm1Re9No0OR/OSgJO4nNa9HiNg0O58sU52Mf +8M99H1ZOg/VvNmzpwpaWvqKlf48Ge0vPrPRgf+/0T+W4T4NHeeGv+7HvKCKL +pGoaDF5Qdf6I/WdkpDm/ngbPXOy/fsWuMZcqef2cBspmFrvE8pkofpWd60Yn +DSzti6iS2JSSWU/nLhos7olPkcYW5KyXmuqmQcvu5dcK2CcanK6tvKPByoBV +pyY2Sfl/IfLTNCACWjvtsFcHzvZ+mcHz1ta6OmL3xNLUKj/TIO3gngkX7Khx +jVmdeRqcM23o9sT+kN57xOobDTTrpFT8sVPWCxmHryPAPn6QeRm7cXHENZiD +AN4YObV47E8jpYF+XAREGLpSkrD1aoxyKRsIuLSUlnMDe8Yj7JeZEAFF+7XO +5rLymxsLG4sQYJJJt8vH3qctrITECIi9kipdhH1doNyBLEnAhNyduDJWvf5j +lZQsAQZnX7Y9xCYKy5+LkQi4UjKu/oj1/fUzHzcpEHDuwkRqPWs/QkSAU4mA +Olq+6lNWXcTk2LwaAWZy/3R0YNeviUTPqBMw8O181wvs6S9jN8c0CAh639P2 +Elu3Oby1by8BZGWlpG7sqRP3ZJ4AAQyFpzHvsDc6RWjWGRDQ0Xts2yC2juFB +8yojAqgmq5XvsZMkJ84UHiTgKKO3eBj7EWfl9RwzAqJGpQRHsScZEcUZ5gQM +8hw6/hF7b7tYf6I1AaPJ7qvjrPuumpi7bEtAX42B6iR2YlYl+wV7AjJvCRye +wp4INFULccLzmDlGzGALuIubBLgQIDjWH/6J1c908oivGwG2/bonP7PWbz0b +7+5BAOlynfIsKw+v2R0nCgFiUt1LLE8siT+2pRJg86Sreo7Vb3yy25wg4ILb +feo8q1/X/ZkDxwi4+vkMzwIrX93ZP+BLQJitUg7LiXfMRPedICA5oWkHndU/ +UWKnph8BVld1ClmeCJvavzsA94dMUQY2P7XKSSmQgNCCsRCWta2i/EnBBLyo +4O9imaJ76JJ0CAEx9jKiTOwEhc3ZEmEECKeIWbFcKzhdLRROgKTnYiTL47+q +OvkiCfB5UpPNMv+nqHGuKAI4C9yqWNZ6e+jn32gCZERm61j+P8kJWuo= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -1449,104 +6145,104 @@ 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:eJwV03k4Vd0XB3CZkqHMkpfioiiSa4i89sqQyEzmxHXvERVCCFFJJUOhfoYI +GTMkEYXkRZQUhShD5spw701JVPrt+8d5zvN51tlrf9fez5Gl+NvS2NnY2Bbw +w3qfeq26va7ntf4Qx3mDEy10pE8v0KQYlaMj3bWHWB7L0bohb9SIMq47erNs +TX3FzU9+hk4d8LrJclVYdCuXURfyob/vZzmufXNzdOkbFBHbsOMk9uOeU7d/ +q/eji+t5klie/dAZeaZhEAX4P+Xyw94yTXL9YTiMzOrGr7F8iBGpE9T1EVkM ++u3yx276PcsXVjqOnnUSQyy/Oy8RUes3ieZiX2QFYNO5jWa/q08jc7a0gFPY +3AkBzuTlGRS6u9shEFtGKPv5qYbPiLE+0CoI21LqRxHdcB7FXVgOPY1N5MqJ +q/DQUcyGD8Uh2NEKVrHHuxhIimP7bCj2oETfnuDSryhfgK0oHJvq4uuTmrCI +Pv6K3xqJzcxiy3vg9w3FS1woO4vNI6ci+FV9CfVfLl89h32D2moiKPYDnX0w +9uQC9rZi5+jdyz9QR21U6kXsvbsu0U82/EQu9OXTV7CPaX3smjX8jcQOD0sk +Y38PO83Jq/gH/Uhy80vFPtfAp6fEs4ZEuo0HbmKnw94y766/qHXGdiyTla/w +uVFg6ToYm7LrLsQubU8dOy/FDo3tmx+XsPJ+co9MTmAHvTzjh2XYkcpL1ff9 +OCCx+N1UFStvpSyJoc4F77LfbHuK/aFnvmktnwto9DfZLaz8i3UuG8W4wYax +V6Udu1zDMkVlmRtyLXRjXmG3PQ5fd6KBB9ztuPhHsJdaez9+NuSHUOPr1/9i +C5vzC0Y08UOUSWY6ZysdqfUZgYCOAGR9hdoN2L5TD3P3qG4EK34vdVHsAPYu +tX/5BYFR91VFGXta7t7X2B9C0FjA2OOC/Z3o3NBNFob66uxUD2z2shnZzaeE +YavQJK839jbyVtvSOWEgNNR1g7FdDK8/eD0mAu3GA7euYXd7BQZJvBSD4ppx +307s0eKkeA8ecTjb1qfwFnt+rjT/rrE4fL7k9OM9Nm/wZO++ZnEItRYc/IJt +dNFew+OhBOyeI9/mbaOj+gKtpZIcSXjaNqphjV0wvRqiGywNFdrSV+awDx6+ +PBpUIQ3/JVcbLGHPt4kcqJiRBj4qj+BfbI2CXWLbnGXgWeDchPAzfJ4U92ou +/a2gJRDnsw97kTEW+jlmG1ysqli5hi1y0qim2kIODM60y5q009FMAe8xa185 +uBsqR7bDfjTcI7VwSQ5kt+90PIrtZn4kRrFZDjq3wkAodsHOENsMdRI4LxF1 +d7E1ZouZURLywPNt87JgBx3Ze/OpmI0rQIcKxX8BG4UcVnf8owAuyTcTfmEr +x+ZoUyUVQV6tuGHDczpiyycbRNkowrAjxUoRu2LU1fHBf4pAKpO38MDmdig/ +v+XOdpBy1ckbwH5kZPFulqIEZkHBRb0v6CjfLm1oOUoJWgW51yaxkyjjY5y3 +lODUOnfv79jUc6fnZHqVwKDgiL9YJx0JNWaz2Rkqw3rtWHsnbF8yXbmBtBMy +ZxoDx7Gl5K5Fx0/tAp3FDz/Zuuio8ep3pRV2FVDcLSglhu32zbmPkFWBteOb +bJWwb7fJKxm4q0CkjveaDbacd/3bnwMqkLPT1boAW7l8WoF4qQojFQcHzV/R +kbSUDLHNWQ1ij2X5V7ymo12Fwfy/kDp4BesFlb+hIwo1ZknFUh2u5YJAG3Y6 +KWXUw00dvkyIPx7C5rhTeb89TB2KxjUO8L3F/9vtWfuUKnV4LSmmdRw7Lt0j +W4lEhgJOh+Oqvfh+481Vnbg1oGGjIqmlj47yAuWtH3ZpQl6je7TMIB31hCDt +i4U68MOxKcFhjI5k3fstj5z4F0iFF/1zv9AR7W/tPekzAFYly03O3+hIYu7R +egmKATR6fIzj+EtHwWS94RRlI8hbveEwy8tAlIXfz0VmjUE1zzowSoKBKgyC +1ud0m0B9BZ+/tCIDFXz3/a/8hin0NzFyczQY6Of+za/aog+Bw+z2Uj1jBhph +4/g67mkBNYTQU08HBvL7x//6eZIV6PbqLm30ZqB7Ps+bb8ZaQ+bNUaG+MwwU +/k1yeaePDbQPZfnOxzPQktkBh46jtpC4XnlZNJeBdFyT90/b2MHwKqnBuYaB +3kpm+7aR7WHrp/iYrA4G2lIU01iy4zDwSQrHvRxmoEdjyuaWAg6gF3RirZ3J +QDJ9TO+QBQdI5F/r+Zedicg3k8vzxxwhMSHr+Td+Jsrm/Kaa0uoEd/LmAxbE +mah2/+4PsY+dYYvLWnWZLBOla18V+l3qAiUiU1JbdjFR91DhJXKCK1ic21Ra +qclEDy2y5APOuYEJiVN/DDHR15N2bH7UI2DcrF+93ZSJlg4oHaMbuoN2skXd +mg0TlSy8/xmkdRTi6rP4DVyZyCmv0OsIvwf4bX1WlOjFRNUPDh3luOwBUu/C +FLadYCIdqbcrcSse8OCkceuDICYijXl/eOPjCUORNgcqw5loiu+4VdakJ6zV +rPU3nmeiniRLL5PDFCDdqvr08jIT3QjL4TvdQ4E3tebHWhKZqLHp74qXqReM +lIa7r6Qw0SY3uEyu94JrjaGe+mlMtE20o/ufRi8oS1DOtMJW67LYzN3kBTWF +lR0e2LZ6rncH//MCt3nldTHYN/4JeXn2hReYpj5ZaMfeMlK26fmgF9jFipab +pzORvLtEutuyF8QebK22ysDzeNBLYjWoEB7FUUC+xURFGcwgSy0qnDewFd6P +Ldq7qC+xlwruWekhlth04+W+kn1U2CjLI+uDXbCTbV2XARVcOBz/ZGNvXBZy +FrahgqjW0FuuLHweiZobck5S4Q19aPYVtk2Hdp+3PxXKKgzEP2A3senmqJ2i +ws/xC9oz2BlB+potwVRYlUhwXcO2dDbxnI6ggs9oiZJqNhM9lnd+vPMqFSa9 +TUbisZMaIn0eFVEhfV4qC91mopPqaTphJVQYqjE1M8M2v1u1YW8pFZrXZdHt +sXnTZu7WVVBhQb5M0hc7NtB6traGCu/T3FdSsSOV5I8/bKHCREXw6DS2b9rL +Ew9GqZC0dlj3Qg4TmW6c0Qsco4K9YVlZPPaOWDYB9QkqWO3bKHITeyZQs6Jq +mgoBGautxdieljkL9+dx/liXe13YTlxBfpWrVMiULSwQzWUik6AtAeXiNHCP +XhXOxm7JuWSWspkGDr2xPwqx9boW5cO20GBhv9Hre9hqCi/fG8rQ4MMZR5dm +bMmBCMMhBRqcHGiZmsCe0x0R59WkQX8Gf4tCHhNdY8994m2H68GZGXeweXfz +p1scpkHz4i72UuyLrmGBZEcacLcOu1dhh9VYb//rQoOLE8nfn2J7EuuS/0eh +wRPR/cnD2OROCvXZKRpMGKpeE7nDRAPJCnyk6zSIW7TKCMO+hwSOfU7G60Mi +tkZhX1z43laRSgNjRf1bMdjqpm1Re9No0OR/OSgJO4nNa9HiNg0O58sU52Mf +8M99H1ZOg/VvNmzpwpaWvqKlf48Ge0vPrPRgf+/0T+W4T4NHeeGv+7HvKCKL +pGoaDF5Qdf6I/WdkpDm/ngbPXOy/fsWuMZcqef2cBspmFrvE8pkofpWd60Yn +DSzti6iS2JSSWU/nLhos7olPkcYW5KyXmuqmQcvu5dcK2CcanK6tvKPByoBV +pyY2Sfl/IfLTNCACWjvtsFcHzvZ+mcHz1ta6OmL3xNLUKj/TIO3gngkX7Khx +jVmdeRqcM23o9sT+kN57xOobDTTrpFT8sVPWCxmHryPAPn6QeRm7cXHENZiD +AN4YObV47E8jpYF+XAREGLpSkrD1aoxyKRsIuLSUlnMDe8Yj7JeZEAFF+7XO +5rLymxsLG4sQYJJJt8vH3qctrITECIi9kipdhH1doNyBLEnAhNyduDJWvf5j +lZQsAQZnX7Y9xCYKy5+LkQi4UjKu/oj1/fUzHzcpEHDuwkRqPWs/QkSAU4mA +Olq+6lNWXcTk2LwaAWZy/3R0YNeviUTPqBMw8O181wvs6S9jN8c0CAh639P2 +Elu3Oby1by8BZGWlpG7sqRP3ZJ4AAQyFpzHvsDc6RWjWGRDQ0Xts2yC2juFB +8yojAqgmq5XvsZMkJ84UHiTgKKO3eBj7EWfl9RwzAqJGpQRHsScZEcUZ5gQM +8hw6/hF7b7tYf6I1AaPJ7qvjrPuumpi7bEtAX42B6iR2YlYl+wV7AjJvCRye +wp4INFULccLzmDlGzGALuIubBLgQIDjWH/6J1c908oivGwG2/bonP7PWbz0b +7+5BAOlynfIsKw+v2R0nCgFiUt1LLE8siT+2pRJg86Sreo7Vb3yy25wg4ILb +feo8q1/X/ZkDxwi4+vkMzwIrX93ZP+BLQJitUg7LiXfMRPedICA5oWkHndU/ +UWKnph8BVld1ClmeCJvavzsA94dMUQY2P7XKSSmQgNCCsRCWta2i/EnBBLyo +4O9imaJ76JJ0CAEx9jKiTOwEhc3ZEmEECKeIWbFcKzhdLRROgKTnYiTL47+q +OvkiCfB5UpPNMv+nqHGuKAI4C9yqWNZ6e+jn32gCZERm61j+P8kJWuo= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5986424829233534, - 1.5968711170700145`}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5986424829233548}, + "PlotRange" -> {{0, 180}, {0.9612332629113739, 1.040024488845297}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.961233262911376}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.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 +6254,130 @@ i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5986424829233534, - 1.5968711170700145`}}, + "PlotRange" -> {{0, 180}, {0.9612332629113739, 1.040024488845297}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5986424829233548}, + "AxesOrigin" -> {0, 0.961233262911376}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 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:eJwV03k4Vd0XB3CZkqHMkpfioiiSa4i89sqQyEzmxHXvERVCCFFJJUOhfoYI +GTMkEYXkRZQUhShD5spw701JVPrt+8d5zvN51tlrf9fez5Gl+NvS2NnY2Bbw +w3qfeq26va7ntf4Qx3mDEy10pE8v0KQYlaMj3bWHWB7L0bohb9SIMq47erNs +TX3FzU9+hk4d8LrJclVYdCuXURfyob/vZzmufXNzdOkbFBHbsOMk9uOeU7d/ +q/eji+t5klie/dAZeaZhEAX4P+Xyw94yTXL9YTiMzOrGr7F8iBGpE9T1EVkM ++u3yx276PcsXVjqOnnUSQyy/Oy8RUes3ieZiX2QFYNO5jWa/q08jc7a0gFPY +3AkBzuTlGRS6u9shEFtGKPv5qYbPiLE+0CoI21LqRxHdcB7FXVgOPY1N5MqJ +q/DQUcyGD8Uh2NEKVrHHuxhIimP7bCj2oETfnuDSryhfgK0oHJvq4uuTmrCI +Pv6K3xqJzcxiy3vg9w3FS1woO4vNI6ci+FV9CfVfLl89h32D2moiKPYDnX0w +9uQC9rZi5+jdyz9QR21U6kXsvbsu0U82/EQu9OXTV7CPaX3smjX8jcQOD0sk +Y38PO83Jq/gH/Uhy80vFPtfAp6fEs4ZEuo0HbmKnw94y766/qHXGdiyTla/w +uVFg6ToYm7LrLsQubU8dOy/FDo3tmx+XsPJ+co9MTmAHvTzjh2XYkcpL1ff9 +OCCx+N1UFStvpSyJoc4F77LfbHuK/aFnvmktnwto9DfZLaz8i3UuG8W4wYax +V6Udu1zDMkVlmRtyLXRjXmG3PQ5fd6KBB9ztuPhHsJdaez9+NuSHUOPr1/9i +C5vzC0Y08UOUSWY6ZysdqfUZgYCOAGR9hdoN2L5TD3P3qG4EK34vdVHsAPYu +tX/5BYFR91VFGXta7t7X2B9C0FjA2OOC/Z3o3NBNFob66uxUD2z2shnZzaeE +YavQJK839jbyVtvSOWEgNNR1g7FdDK8/eD0mAu3GA7euYXd7BQZJvBSD4ppx +307s0eKkeA8ecTjb1qfwFnt+rjT/rrE4fL7k9OM9Nm/wZO++ZnEItRYc/IJt +dNFew+OhBOyeI9/mbaOj+gKtpZIcSXjaNqphjV0wvRqiGywNFdrSV+awDx6+ +PBpUIQ3/JVcbLGHPt4kcqJiRBj4qj+BfbI2CXWLbnGXgWeDchPAzfJ4U92ou +/a2gJRDnsw97kTEW+jlmG1ysqli5hi1y0qim2kIODM60y5q009FMAe8xa185 +uBsqR7bDfjTcI7VwSQ5kt+90PIrtZn4kRrFZDjq3wkAodsHOENsMdRI4LxF1 +d7E1ZouZURLywPNt87JgBx3Ze/OpmI0rQIcKxX8BG4UcVnf8owAuyTcTfmEr +x+ZoUyUVQV6tuGHDczpiyycbRNkowrAjxUoRu2LU1fHBf4pAKpO38MDmdig/ +v+XOdpBy1ckbwH5kZPFulqIEZkHBRb0v6CjfLm1oOUoJWgW51yaxkyjjY5y3 +lODUOnfv79jUc6fnZHqVwKDgiL9YJx0JNWaz2Rkqw3rtWHsnbF8yXbmBtBMy +ZxoDx7Gl5K5Fx0/tAp3FDz/Zuuio8ep3pRV2FVDcLSglhu32zbmPkFWBteOb +bJWwb7fJKxm4q0CkjveaDbacd/3bnwMqkLPT1boAW7l8WoF4qQojFQcHzV/R +kbSUDLHNWQ1ij2X5V7ymo12Fwfy/kDp4BesFlb+hIwo1ZknFUh2u5YJAG3Y6 +KWXUw00dvkyIPx7C5rhTeb89TB2KxjUO8L3F/9vtWfuUKnV4LSmmdRw7Lt0j +W4lEhgJOh+Oqvfh+481Vnbg1oGGjIqmlj47yAuWtH3ZpQl6je7TMIB31hCDt +i4U68MOxKcFhjI5k3fstj5z4F0iFF/1zv9AR7W/tPekzAFYly03O3+hIYu7R +egmKATR6fIzj+EtHwWS94RRlI8hbveEwy8tAlIXfz0VmjUE1zzowSoKBKgyC +1ud0m0B9BZ+/tCIDFXz3/a/8hin0NzFyczQY6Of+za/aog+Bw+z2Uj1jBhph +4/g67mkBNYTQU08HBvL7x//6eZIV6PbqLm30ZqB7Ps+bb8ZaQ+bNUaG+MwwU +/k1yeaePDbQPZfnOxzPQktkBh46jtpC4XnlZNJeBdFyT90/b2MHwKqnBuYaB +3kpm+7aR7WHrp/iYrA4G2lIU01iy4zDwSQrHvRxmoEdjyuaWAg6gF3RirZ3J +QDJ9TO+QBQdI5F/r+Zedicg3k8vzxxwhMSHr+Td+Jsrm/Kaa0uoEd/LmAxbE +mah2/+4PsY+dYYvLWnWZLBOla18V+l3qAiUiU1JbdjFR91DhJXKCK1ic21Ra +qclEDy2y5APOuYEJiVN/DDHR15N2bH7UI2DcrF+93ZSJlg4oHaMbuoN2skXd +mg0TlSy8/xmkdRTi6rP4DVyZyCmv0OsIvwf4bX1WlOjFRNUPDh3luOwBUu/C +FLadYCIdqbcrcSse8OCkceuDICYijXl/eOPjCUORNgcqw5loiu+4VdakJ6zV +rPU3nmeiniRLL5PDFCDdqvr08jIT3QjL4TvdQ4E3tebHWhKZqLHp74qXqReM +lIa7r6Qw0SY3uEyu94JrjaGe+mlMtE20o/ufRi8oS1DOtMJW67LYzN3kBTWF +lR0e2LZ6rncH//MCt3nldTHYN/4JeXn2hReYpj5ZaMfeMlK26fmgF9jFipab +pzORvLtEutuyF8QebK22ysDzeNBLYjWoEB7FUUC+xURFGcwgSy0qnDewFd6P +Ldq7qC+xlwruWekhlth04+W+kn1U2CjLI+uDXbCTbV2XARVcOBz/ZGNvXBZy +FrahgqjW0FuuLHweiZobck5S4Q19aPYVtk2Hdp+3PxXKKgzEP2A3senmqJ2i +ws/xC9oz2BlB+potwVRYlUhwXcO2dDbxnI6ggs9oiZJqNhM9lnd+vPMqFSa9 +TUbisZMaIn0eFVEhfV4qC91mopPqaTphJVQYqjE1M8M2v1u1YW8pFZrXZdHt +sXnTZu7WVVBhQb5M0hc7NtB6traGCu/T3FdSsSOV5I8/bKHCREXw6DS2b9rL +Ew9GqZC0dlj3Qg4TmW6c0Qsco4K9YVlZPPaOWDYB9QkqWO3bKHITeyZQs6Jq +mgoBGautxdieljkL9+dx/liXe13YTlxBfpWrVMiULSwQzWUik6AtAeXiNHCP +XhXOxm7JuWSWspkGDr2xPwqx9boW5cO20GBhv9Hre9hqCi/fG8rQ4MMZR5dm +bMmBCMMhBRqcHGiZmsCe0x0R59WkQX8Gf4tCHhNdY8994m2H68GZGXeweXfz +p1scpkHz4i72UuyLrmGBZEcacLcOu1dhh9VYb//rQoOLE8nfn2J7EuuS/0eh +wRPR/cnD2OROCvXZKRpMGKpeE7nDRAPJCnyk6zSIW7TKCMO+hwSOfU7G60Mi +tkZhX1z43laRSgNjRf1bMdjqpm1Re9No0OR/OSgJO4nNa9HiNg0O58sU52Mf +8M99H1ZOg/VvNmzpwpaWvqKlf48Ge0vPrPRgf+/0T+W4T4NHeeGv+7HvKCKL +pGoaDF5Qdf6I/WdkpDm/ngbPXOy/fsWuMZcqef2cBspmFrvE8pkofpWd60Yn +DSzti6iS2JSSWU/nLhos7olPkcYW5KyXmuqmQcvu5dcK2CcanK6tvKPByoBV +pyY2Sfl/IfLTNCACWjvtsFcHzvZ+mcHz1ta6OmL3xNLUKj/TIO3gngkX7Khx +jVmdeRqcM23o9sT+kN57xOobDTTrpFT8sVPWCxmHryPAPn6QeRm7cXHENZiD +AN4YObV47E8jpYF+XAREGLpSkrD1aoxyKRsIuLSUlnMDe8Yj7JeZEAFF+7XO +5rLymxsLG4sQYJJJt8vH3qctrITECIi9kipdhH1doNyBLEnAhNyduDJWvf5j +lZQsAQZnX7Y9xCYKy5+LkQi4UjKu/oj1/fUzHzcpEHDuwkRqPWs/QkSAU4mA +Olq+6lNWXcTk2LwaAWZy/3R0YNeviUTPqBMw8O181wvs6S9jN8c0CAh639P2 +Elu3Oby1by8BZGWlpG7sqRP3ZJ4AAQyFpzHvsDc6RWjWGRDQ0Xts2yC2juFB +8yojAqgmq5XvsZMkJ84UHiTgKKO3eBj7EWfl9RwzAqJGpQRHsScZEcUZ5gQM +8hw6/hF7b7tYf6I1AaPJ7qvjrPuumpi7bEtAX42B6iR2YlYl+wV7AjJvCRye +wp4INFULccLzmDlGzGALuIubBLgQIDjWH/6J1c908oivGwG2/bonP7PWbz0b +7+5BAOlynfIsKw+v2R0nCgFiUt1LLE8siT+2pRJg86Sreo7Vb3yy25wg4ILb +feo8q1/X/ZkDxwi4+vkMzwIrX93ZP+BLQJitUg7LiXfMRPedICA5oWkHndU/ +UWKnph8BVld1ClmeCJvavzsA94dMUQY2P7XKSSmQgNCCsRCWta2i/EnBBLyo +4O9imaJ76JJ0CAEx9jKiTOwEhc3ZEmEECKeIWbFcKzhdLRROgKTnYiTL47+q +OvkiCfB5UpPNMv+nqHGuKAI4C9yqWNZ6e+jn32gCZERm61j+P8kJWuo= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5986424829233534, 1.5968711170700145`}}, + "PlotRange" -> {{0, 180}, {0.9612332629113739, 1.040024488845297}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5986424829233548}, + "AxesOrigin" -> {0, 0.961233262911376}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 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 +6387,8 @@ i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.5986424829233548}, + AxesOrigin->{0, 0.961233262911376}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -1719,7 +6416,8 @@ i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.5986424829233534, 1.5968711170700145`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.9612332629113739, 1.040024488845297}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -1727,9 +6425,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.993959516009519*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"5ca0d8df-55fd-42cd-8c1f-e769b3e4162d"] }, Open ]], Cell[CellGroupData[{ @@ -1792,262 +6489,159 @@ 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.2687175896869365`*^-272\\\", \ +\\\"5919012181389927685417441689600000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 95, 9, + 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339493498577*^9, 3.993959516390306*^9}, CellLabel-> "During evaluation of \ -In[335]:=",ExpressionUUID->"53d31480-3c5e-ef4a-987b-a232cf0b03f3"], +In[95]:=",ExpressionUUID->"d5113b95-74c9-45bd-8e4a-eb11ceaa44be"], 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[\\\"3.2250259170993776`*^-286\\\", \ +\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 95, + 10, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339493498577*^9, 3.9939595163970833`*^9}, CellLabel-> "During evaluation of \ -In[335]:=",ExpressionUUID->"b7d94271-16f1-6346-b579-21279019eafb"], +In[95]:=",ExpressionUUID->"d3b317b1-8b36-4456-8b79-3660a74b51c5"], 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.197878117642504`*^-300\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 95, + 11, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339493498577*^9, 3.993959516402896*^9}, CellLabel-> "During evaluation of \ -In[335]:=",ExpressionUUID->"bfaea4b0-a812-1847-9911-9291b70d2c8f"], +In[95]:=",ExpressionUUID->"60db4b2d-5b30-49bd-907f-2a822b92b8ef"], 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, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339493498577*^9, 3.993959516409121*^9}, CellLabel-> "During evaluation of \ -In[335]:=",ExpressionUUID->"07354318-4dcc-6049-94e1-9227bd3406fc"], +In[95]:=",ExpressionUUID->"a78bb5af-d5aa-4a77-b8d2-89ccdd2ec3c6"], 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:eJwV1nk4VO0bB3BRSUWiIluMOTP2kAgz3XdliaQUpd6KspSIFGNNUraivKjs +IglzKvWmkFZEWdqso5SkBVmyt/k9vz/mOtdn5jrXPOe5n/t7H5V9PlvchIWE +hIRnkA+5jnc+q2KeyVvtEHV9iVGL4eqmLNmgNW0RENTJPlXzYxHg4hf7ZNsS +oceVYZ/ygwm8zUWtIm25UOaR4RPywwAWDsgkTrXegseGvnXbf5jB+wpbn9HW +J9Bwf1h/eNgeLJi974ZbX4PXA9vOg0OuMNVqdH6o9SOkuJjm7ur1g8p1V/Ne +5Y7AoVCHi9E3IkHhfdnnfVp/4OzuMLvFE+dgkZdTkeg6EfSsqtU27EqGRD2L +e7YOc1BQq3FL6HcqtKfoPhqWFMeUmfXhlRFZcCbv+AvhpQtx5ISB9omzOSCT +3B2blCmNT60D4rLzLkO0vdXq1+OL0afXYKWv5xU4apzj9CxCFvvbu5Mbqatg +Nvgz2LtbDumHRjvPJBRA0Ppkjcf9cijpWJJ253wBXM/RFkiPy+GpkrXNnWkF +IGvvbFw2Rx7l5NYbsa4UQH9p9YSIjjzecIH8hLICSIpI8EsNlMd2ux99b7oK +4ONilneVuALmmuvKSOkWwgmO3V65VYr4JT1jbE9lIazfk/XDaK0ibp3lbc+q +LQSJ8L6TDjaKWC3UubC3vhAyKiPzE5wV8YJZ5VX3lkIotS7vmx2riGfUx4wN +vhXCkKMqb6RdEcc81zcoSxTBHv+x0/UhSti1VStqtUMRmFxPvR32cBnWm/Xd +iGwrArPWxj8Dtcsw2OYAT+VtEdgKzbR0er0Ms96Wi5e/LwKXLd7t0LMMS6w6 +r3d9LgKLEJXj4bOUUapc997csSI4vGz88hpNZWw3Tf9bKcmHqv3Z3yt5yng3 +b6/bG3M+WP02lgoNUcZZr0TtxKz40JjQZGgQrow2z9IlODZ8aC8TC8+LVcbq +trbpi1v4MDDPTyoyQxkF5h0V6k58kC1eb2TxRBmLLVNu3w7gg9fkcHituApe +9hDd7pHPBxNf9yWfpVQwsWijKK+QD3N6BXwRWRW8Ma43HUbz4UpHZctqhgpu +jrrwNPIWHzofnNcqMVTBmzlWZe4P+LAp0rgtx0kF96c27OI180Ff6sTykJsq +eKdU2KRRiAahM2NVKXdUsJC3dIOrCA2NIgd33rmngtnXXPjjs2jwHNsSOVyt +ggGm5Tsl59GQ18bs2C9QwaSwm6Eyi2lYkl0bZS/CwChRFyl/NRqmNCU7tR0Y +KHNS7bWPDQ3jmXInVuxkYNzfS8FRtjSMLqCYxk4MNBUIslI30zAwYnzQzIOB +KitEd5XY0/Dxnsv4zmMMnO5N+e/JLhqeb7grEXOFgczYNK2VXjTU3H98M76I +gQPP4IG0Nw1Vy+vtk24wsPFB7asBH5p82ZWWVcbAY/tZ4WlHabjVMZdd0sBA +O/P0WbXBNKR57oGPYwyMqJtcGBpDw8V3Bz5++UnW2yw9yjhNQ/Kmo5Hfpxmo +ltO95+kZGs6uiKmbFFNFcfNDL4XP0RDx6+b2BUqq+NLuw/It58n+nJl1mGOh +ivuLtddvyKGBw6cvXbigiuVH5mDRHRo6lPnZ5umqeMPXWL3xLg3BFwqzRrNV +McGWozBYSsPdE/kZWwpVMa/cR0XtHg36jpdSJCpUMftx8W3eQxrUZyUnRHWp +4uAp871RNTTUBieeW/lZFdkrVBVCamlwH0o4+6lXFTdRvV+8npH6dMTHrR1V +xTeMubct62hQvhUd83c2E5fkx2gKGkm9nELCeVpMPLCkROhoMw0lTUHHKT0m +htkbCxu30GBvHRjWtJKJM1JWKvwmTlzpH6oPTBTvik0PaqNBfL5P4IAdE6su +uzbbddBAnzgUkLmNiQ2iHgVCb2mwnvDk2fzDxPXxbRdp4piPB/yKXJl4UvJX +w693NMws23fYPYCJFr7+VwI+0HBZZ6/P4lAmDhhNeCzoomFtnpN3VTgTjzaN +2OYRHz+3y4txmonjjYdCqz/S8NNt24HODCaKyQwe7flEQ2qH/f74HCYer2y0 +du+hYZXdVndOPhMvUQ4Wn4h5nM2uaTfI+sDvWutnGoalrJ23PWFiqOcX64yv +NLR5MV4erGGi94UN2gu+0fDo6U84Xs9EwZXDpWHECcH8ZQUtTHwnW1m3tZeG +wKaT5yo6mOhSa+9QRuyss2v65QcmZo/4nJbvo0H34/z3U71MpGoW/mwmluX0 +2EoMMfGqxwxDnX7SbxfuP2CMMfFuiI3ySeIXVt5ZG6aZaGvRIKz6nYY7ly0k +nGdSWJlx+Pch4qw/SmF+YhT2Z1pfLSH2vvlid6Y0hX26p6RNB2jYNq+g4aYs +hdemHFoCiVe7hXOfKlJoJ1i78T9i1kPHawIGhV7/zArqJRZfqqc4yKZw/kXH +nUqDpB+PiMWLaFO4ddXksC3x2/qu3zL6FOqFXMJQYjo88S1yKDS5+ndWA3Gy +4KCNwxoKJdqXhw0Rhxqsq/CwoFCV61wsOUSD61l5rbANFOp02mZqE2/4OpKe +uJnCfId75pbE+mvr5111oNC5zq1oN7FcRl7IvZ0UbhyTqD9MLDwe2vfCiSL1 +DeSHE/ducvjnkyuFiTNcrOKJXxdq1016UDgllZh/gbhcZLapuA+F4ytrKzOI +c3d3Fqn4UZjSVZuTTRx7946cYRCFE7KOa/7vwwvPnbYOo7D1oMnldGJHz/0/ +95ykEIcNapOJsRoOHo0hthO/eZpYbZmsIDqewpDy2D3HiCWDhqwyEin89vnw +Ky/iyde1ZcUXKXSXOz13B/EHrRz16gwKvRmZc9cS10YFpbbnUFjqcOQ1m7j4 +g53YQD6FXUmv980lTjHRCBKmKZQ2j674RvYzPFn425KbFF7fsfNDNfH+AYGj +5h3yf1ZLXmQR267/rxbuUXhycVSsH7Fh7plV9o8o3LHOX9KSePY2juyx5xTO +Oykc/ZHUe+DGoph/X1C4eZ1JIJ+4Rez7xJUmCn8+Zhr7Euffz2xt7KRw2+IN +2iPkfJ2V4Vl2d1N4t5K57wYxz9f27sRXCnW7+z0OEJtT0xeURyjc3ho79pKc +309xztuOiLLw5M+30qHkvHv3ajF057NQ/Q2YUcQTllPfv0uy0JGeKKkj/TJX +JDHSQ46FbrJLnSWJdYMqbztrszDFUP5jIOnH8pZz4Ur6LGx7Iq87n3idwS6b +t4YszLz0oSrjCznvg6Pd25Hcz+RVl5B+PubGkt60lYXRvxUMa0gezK780Tnf +kYWnGKcbzIgTlB8WPd/FwuLva28+7P5/Pm5fa+HOQiHGPudrJE+e28X6coNY +KMYZP3yA5NGS1f0vNLNZ2K+SPbWb5Nul9NL0b5dZOLHdsqhYQPJ46tT+qwUs +HG8/d0uImHNbcZpxi4Uje7vrU0g+umhs0pGrZmGE7xtOIcnX4iW34ub0sbDg ++jC94QUNJn5hjk8HWailX6PjR/K48pU189QoC5US+6TTGkh94rrvTf9hYZCv +7LxOkt+/hRf3jUuy8bS84LEFyXurwQCrHkM2GsY3TKY/okFBTylqDoeNCsq+ +RyLJvBg4UvVEcw0bB2UY3zwfkH4dl+Qc2cDGfof4V8sraOj8U6gz7cRGq23P +CpPIPDoy/6300lg2di0x21p/jQYz24jNnLNs3PZ1pnQUTYNMglq8UxIbK2Jj +35PZBhXS/rPzM9k4mSnIzSkg+y0vMaV/i40vq1IHLC+T+aqOnTYdbOSHvgiZ +k0KDl+dnucMf2Hh2cFV40gUa4Frc9qQeNiY8j8qRJ/Pzk277y/ZBNlbX9qxW +TaRBZ9WRSveZanhUaO8MyTiyPxZ5BeHaavhOSiLO+TgN/S5zjt4+roY2Vu9m +9LiQ580yu//wlBpOapfKKe2jYbA9XLQuVg1tv2w6Y+9Mw49NU+ldSWpY+PZh +QBl5n5gw7a2SKFDD2eFTqS4OJG8W1S/xeKmGDfHJX4wtaFhada5cUUUdP73U +ax6jaPJ+LyMc/UQdP3PiHHre8eHbPssC0xp1XJb+ZPxKBx/icgJsh+rUsZkt +EeHazoc3Sm1pO5rVUWmL686OJj44L01dofVVHU/PTNIoruNDkIS82ytxDfzU +UyI+UcoHelKpVn6HBsqJbhEXSuSDVAPrbPGgBhpXp7/XXc2Hv4O6V56PaqBI +5PQrI1M+9EqZVnya0sA112cmc1bx4Ynjpl7ZmZrIbj1/BvT5cPRTgMUJWU0s +/LzRQ5PFh6ZftX/t1mjiuZ493enifLio4ekzkqiJZQOWv74IikAh5sZmQ0Mt +rFhOu3r7FEGKprGk9H5tNEv+3NaeWAjP5dasHPlXBxnSbUOpeQVgovAkYXnL +cjT/cPvkg/irICGS67c3QhfX8IYKzYPzQenEMs4Olh7mBBXn2q+7AmLUrjtb +avSQ1/F8WYZYHuhwl94I2K2P3/7JXiT4kAtHOqUqrYVWYEN/lvRQZg4MjsQ5 +WKWsQIcOXs2OI5fAcvnTNCttA9ycW1WQnZMFD0ZMf000GuBqy5yzm0wzwFtL +X/DKbSXKaFe3ai9IA+6Aa9MOMUMUi8zfGfn8IpgzZTeK5xqiUbv39YHK86AW +fjrwiZERWjo96ua/TwINN+OHlMAI0WbNVcXBf8HtwYFTt31XoYLjrv4S0wR4 +eKnJdXixMR5+u8reZHY8jBZMTyy/a4xTK3Vk736KBReKL5a20QRFLwh8g/Wi +YVgjyfDWkAn6zFqn6B5+CkrzfnWNxZiiyfOObI5BBOw0U0VTJQ7O1ZKw9qXC +Qf5QdJnOIw7GLOJsclwdCovnet3cuJ2L7NCv7d+bAyFv3bHgoR1cvGR37e+x +mkDQP3Z2XdIuLj789aVlUVkg2A4VN7ft5aLnmFbatoxAiGoZm3LxIr+f6jHU +cAmEydzja4NPcLGwOWSZ5I8AEJgmvcnnc7H1FWfzs0UBcMA/L8PqOhevzJ+7 +Qks0AMavl7j1F3OxbyEr7vwUD6QYbRN6d7iY+i4xNaSTBxvmKCrcf0TWd1Kr +L7mABxVN+a5vmrnYeUmk9CeXB9YSpdq8Ni7e59+TqdLlQZvls3HZDi66SD9r +TFLlwWh5X8yeD1xcN0vJ1EKMB9o5ute+9XLxaJlpy3iTP1QI1vDivnMxa69m ++Y8af7BetBWWD3Gx2/d9z2i5P7hH+7/yG+Nie2Xt/Pk5/jD6KCpNZpKLXxNk +Zqok+0PEz4su5T+5aNW525QT7Q+SBoVau/9wMV+koHh3sD9kHSofm57m4qC2 +8L7IQ/7wP8MJkhE= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -2061,221 +6655,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:eJwV1nk4VO0bB3BRSUWiIluMOTP2kAgz3XdliaQUpd6KspSIFGNNUraivKjs +IglzKvWmkFZEWdqso5SkBVmyt/k9vz/mOtdn5jrXPOe5n/t7H5V9PlvchIWE +hIRnkA+5jnc+q2KeyVvtEHV9iVGL4eqmLNmgNW0RENTJPlXzYxHg4hf7ZNsS +oceVYZ/ygwm8zUWtIm25UOaR4RPywwAWDsgkTrXegseGvnXbf5jB+wpbn9HW +J9Bwf1h/eNgeLJi974ZbX4PXA9vOg0OuMNVqdH6o9SOkuJjm7ur1g8p1V/Ne +5Y7AoVCHi9E3IkHhfdnnfVp/4OzuMLvFE+dgkZdTkeg6EfSsqtU27EqGRD2L +e7YOc1BQq3FL6HcqtKfoPhqWFMeUmfXhlRFZcCbv+AvhpQtx5ISB9omzOSCT +3B2blCmNT60D4rLzLkO0vdXq1+OL0afXYKWv5xU4apzj9CxCFvvbu5Mbqatg +Nvgz2LtbDumHRjvPJBRA0Ppkjcf9cijpWJJ253wBXM/RFkiPy+GpkrXNnWkF +IGvvbFw2Rx7l5NYbsa4UQH9p9YSIjjzecIH8hLICSIpI8EsNlMd2ux99b7oK +4ONilneVuALmmuvKSOkWwgmO3V65VYr4JT1jbE9lIazfk/XDaK0ibp3lbc+q +LQSJ8L6TDjaKWC3UubC3vhAyKiPzE5wV8YJZ5VX3lkIotS7vmx2riGfUx4wN +vhXCkKMqb6RdEcc81zcoSxTBHv+x0/UhSti1VStqtUMRmFxPvR32cBnWm/Xd +iGwrArPWxj8Dtcsw2OYAT+VtEdgKzbR0er0Ms96Wi5e/LwKXLd7t0LMMS6w6 +r3d9LgKLEJXj4bOUUapc997csSI4vGz88hpNZWw3Tf9bKcmHqv3Z3yt5yng3 +b6/bG3M+WP02lgoNUcZZr0TtxKz40JjQZGgQrow2z9IlODZ8aC8TC8+LVcbq +trbpi1v4MDDPTyoyQxkF5h0V6k58kC1eb2TxRBmLLVNu3w7gg9fkcHituApe +9hDd7pHPBxNf9yWfpVQwsWijKK+QD3N6BXwRWRW8Ma43HUbz4UpHZctqhgpu +jrrwNPIWHzofnNcqMVTBmzlWZe4P+LAp0rgtx0kF96c27OI180Ff6sTykJsq +eKdU2KRRiAahM2NVKXdUsJC3dIOrCA2NIgd33rmngtnXXPjjs2jwHNsSOVyt +ggGm5Tsl59GQ18bs2C9QwaSwm6Eyi2lYkl0bZS/CwChRFyl/NRqmNCU7tR0Y +KHNS7bWPDQ3jmXInVuxkYNzfS8FRtjSMLqCYxk4MNBUIslI30zAwYnzQzIOB +KitEd5XY0/Dxnsv4zmMMnO5N+e/JLhqeb7grEXOFgczYNK2VXjTU3H98M76I +gQPP4IG0Nw1Vy+vtk24wsPFB7asBH5p82ZWWVcbAY/tZ4WlHabjVMZdd0sBA +O/P0WbXBNKR57oGPYwyMqJtcGBpDw8V3Bz5++UnW2yw9yjhNQ/Kmo5Hfpxmo +ltO95+kZGs6uiKmbFFNFcfNDL4XP0RDx6+b2BUqq+NLuw/It58n+nJl1mGOh +ivuLtddvyKGBw6cvXbigiuVH5mDRHRo6lPnZ5umqeMPXWL3xLg3BFwqzRrNV +McGWozBYSsPdE/kZWwpVMa/cR0XtHg36jpdSJCpUMftx8W3eQxrUZyUnRHWp +4uAp871RNTTUBieeW/lZFdkrVBVCamlwH0o4+6lXFTdRvV+8npH6dMTHrR1V +xTeMubct62hQvhUd83c2E5fkx2gKGkm9nELCeVpMPLCkROhoMw0lTUHHKT0m +htkbCxu30GBvHRjWtJKJM1JWKvwmTlzpH6oPTBTvik0PaqNBfL5P4IAdE6su +uzbbddBAnzgUkLmNiQ2iHgVCb2mwnvDk2fzDxPXxbRdp4piPB/yKXJl4UvJX +w693NMws23fYPYCJFr7+VwI+0HBZZ6/P4lAmDhhNeCzoomFtnpN3VTgTjzaN +2OYRHz+3y4txmonjjYdCqz/S8NNt24HODCaKyQwe7flEQ2qH/f74HCYer2y0 +du+hYZXdVndOPhMvUQ4Wn4h5nM2uaTfI+sDvWutnGoalrJ23PWFiqOcX64yv +NLR5MV4erGGi94UN2gu+0fDo6U84Xs9EwZXDpWHECcH8ZQUtTHwnW1m3tZeG +wKaT5yo6mOhSa+9QRuyss2v65QcmZo/4nJbvo0H34/z3U71MpGoW/mwmluX0 +2EoMMfGqxwxDnX7SbxfuP2CMMfFuiI3ySeIXVt5ZG6aZaGvRIKz6nYY7ly0k +nGdSWJlx+Pch4qw/SmF+YhT2Z1pfLSH2vvlid6Y0hX26p6RNB2jYNq+g4aYs +hdemHFoCiVe7hXOfKlJoJ1i78T9i1kPHawIGhV7/zArqJRZfqqc4yKZw/kXH +nUqDpB+PiMWLaFO4ddXksC3x2/qu3zL6FOqFXMJQYjo88S1yKDS5+ndWA3Gy +4KCNwxoKJdqXhw0Rhxqsq/CwoFCV61wsOUSD61l5rbANFOp02mZqE2/4OpKe +uJnCfId75pbE+mvr5111oNC5zq1oN7FcRl7IvZ0UbhyTqD9MLDwe2vfCiSL1 +DeSHE/ducvjnkyuFiTNcrOKJXxdq1016UDgllZh/gbhcZLapuA+F4ytrKzOI +c3d3Fqn4UZjSVZuTTRx7946cYRCFE7KOa/7vwwvPnbYOo7D1oMnldGJHz/0/ +95ykEIcNapOJsRoOHo0hthO/eZpYbZmsIDqewpDy2D3HiCWDhqwyEin89vnw +Ky/iyde1ZcUXKXSXOz13B/EHrRz16gwKvRmZc9cS10YFpbbnUFjqcOQ1m7j4 +g53YQD6FXUmv980lTjHRCBKmKZQ2j674RvYzPFn425KbFF7fsfNDNfH+AYGj +5h3yf1ZLXmQR267/rxbuUXhycVSsH7Fh7plV9o8o3LHOX9KSePY2juyx5xTO +Oykc/ZHUe+DGoph/X1C4eZ1JIJ+4Rez7xJUmCn8+Zhr7Euffz2xt7KRw2+IN +2iPkfJ2V4Vl2d1N4t5K57wYxz9f27sRXCnW7+z0OEJtT0xeURyjc3ho79pKc +309xztuOiLLw5M+30qHkvHv3ajF057NQ/Q2YUcQTllPfv0uy0JGeKKkj/TJX +JDHSQ46FbrJLnSWJdYMqbztrszDFUP5jIOnH8pZz4Ur6LGx7Iq87n3idwS6b +t4YszLz0oSrjCznvg6Pd25Hcz+RVl5B+PubGkt60lYXRvxUMa0gezK780Tnf +kYWnGKcbzIgTlB8WPd/FwuLva28+7P5/Pm5fa+HOQiHGPudrJE+e28X6coNY +KMYZP3yA5NGS1f0vNLNZ2K+SPbWb5Nul9NL0b5dZOLHdsqhYQPJ46tT+qwUs +HG8/d0uImHNbcZpxi4Uje7vrU0g+umhs0pGrZmGE7xtOIcnX4iW34ub0sbDg ++jC94QUNJn5hjk8HWailX6PjR/K48pU189QoC5US+6TTGkh94rrvTf9hYZCv +7LxOkt+/hRf3jUuy8bS84LEFyXurwQCrHkM2GsY3TKY/okFBTylqDoeNCsq+ +RyLJvBg4UvVEcw0bB2UY3zwfkH4dl+Qc2cDGfof4V8sraOj8U6gz7cRGq23P +CpPIPDoy/6300lg2di0x21p/jQYz24jNnLNs3PZ1pnQUTYNMglq8UxIbK2Jj +35PZBhXS/rPzM9k4mSnIzSkg+y0vMaV/i40vq1IHLC+T+aqOnTYdbOSHvgiZ +k0KDl+dnucMf2Hh2cFV40gUa4Frc9qQeNiY8j8qRJ/Pzk277y/ZBNlbX9qxW +TaRBZ9WRSveZanhUaO8MyTiyPxZ5BeHaavhOSiLO+TgN/S5zjt4+roY2Vu9m +9LiQ580yu//wlBpOapfKKe2jYbA9XLQuVg1tv2w6Y+9Mw49NU+ldSWpY+PZh +QBl5n5gw7a2SKFDD2eFTqS4OJG8W1S/xeKmGDfHJX4wtaFhada5cUUUdP73U +ax6jaPJ+LyMc/UQdP3PiHHre8eHbPssC0xp1XJb+ZPxKBx/icgJsh+rUsZkt +EeHazoc3Sm1pO5rVUWmL686OJj44L01dofVVHU/PTNIoruNDkIS82ytxDfzU +UyI+UcoHelKpVn6HBsqJbhEXSuSDVAPrbPGgBhpXp7/XXc2Hv4O6V56PaqBI +5PQrI1M+9EqZVnya0sA112cmc1bx4Ynjpl7ZmZrIbj1/BvT5cPRTgMUJWU0s +/LzRQ5PFh6ZftX/t1mjiuZ493enifLio4ekzkqiJZQOWv74IikAh5sZmQ0Mt +rFhOu3r7FEGKprGk9H5tNEv+3NaeWAjP5dasHPlXBxnSbUOpeQVgovAkYXnL +cjT/cPvkg/irICGS67c3QhfX8IYKzYPzQenEMs4Olh7mBBXn2q+7AmLUrjtb +avSQ1/F8WYZYHuhwl94I2K2P3/7JXiT4kAtHOqUqrYVWYEN/lvRQZg4MjsQ5 +WKWsQIcOXs2OI5fAcvnTNCttA9ycW1WQnZMFD0ZMf000GuBqy5yzm0wzwFtL +X/DKbSXKaFe3ai9IA+6Aa9MOMUMUi8zfGfn8IpgzZTeK5xqiUbv39YHK86AW +fjrwiZERWjo96ua/TwINN+OHlMAI0WbNVcXBf8HtwYFTt31XoYLjrv4S0wR4 +eKnJdXixMR5+u8reZHY8jBZMTyy/a4xTK3Vk736KBReKL5a20QRFLwh8g/Wi +YVgjyfDWkAn6zFqn6B5+CkrzfnWNxZiiyfOObI5BBOw0U0VTJQ7O1ZKw9qXC +Qf5QdJnOIw7GLOJsclwdCovnet3cuJ2L7NCv7d+bAyFv3bHgoR1cvGR37e+x +mkDQP3Z2XdIuLj789aVlUVkg2A4VN7ft5aLnmFbatoxAiGoZm3LxIr+f6jHU +cAmEydzja4NPcLGwOWSZ5I8AEJgmvcnnc7H1FWfzs0UBcMA/L8PqOhevzJ+7 +Qks0AMavl7j1F3OxbyEr7vwUD6QYbRN6d7iY+i4xNaSTBxvmKCrcf0TWd1Kr +L7mABxVN+a5vmrnYeUmk9CeXB9YSpdq8Ni7e59+TqdLlQZvls3HZDi66SD9r +TFLlwWh5X8yeD1xcN0vJ1EKMB9o5ute+9XLxaJlpy3iTP1QI1vDivnMxa69m ++Y8af7BetBWWD3Gx2/d9z2i5P7hH+7/yG+Nie2Xt/Pk5/jD6KCpNZpKLXxNk +Zqok+0PEz4su5T+5aNW525QT7Q+SBoVau/9wMV+koHh3sD9kHSofm57m4qC2 +8L7IQ/7wP8MJkhE= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "PlotRange" -> {{0, 30}, {0., 0.05652331209097666}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +6775,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.05652331209097666}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +6801,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:eJwV1nk4VO0bB3BRSUWiIluMOTP2kAgz3XdliaQUpd6KspSIFGNNUraivKjs +IglzKvWmkFZEWdqso5SkBVmyt/k9vz/mOtdn5jrXPOe5n/t7H5V9PlvchIWE +hIRnkA+5jnc+q2KeyVvtEHV9iVGL4eqmLNmgNW0RENTJPlXzYxHg4hf7ZNsS +oceVYZ/ygwm8zUWtIm25UOaR4RPywwAWDsgkTrXegseGvnXbf5jB+wpbn9HW +J9Bwf1h/eNgeLJi974ZbX4PXA9vOg0OuMNVqdH6o9SOkuJjm7ur1g8p1V/Ne +5Y7AoVCHi9E3IkHhfdnnfVp/4OzuMLvFE+dgkZdTkeg6EfSsqtU27EqGRD2L +e7YOc1BQq3FL6HcqtKfoPhqWFMeUmfXhlRFZcCbv+AvhpQtx5ISB9omzOSCT +3B2blCmNT60D4rLzLkO0vdXq1+OL0afXYKWv5xU4apzj9CxCFvvbu5Mbqatg +Nvgz2LtbDumHRjvPJBRA0Ppkjcf9cijpWJJ253wBXM/RFkiPy+GpkrXNnWkF +IGvvbFw2Rx7l5NYbsa4UQH9p9YSIjjzecIH8hLICSIpI8EsNlMd2ux99b7oK +4ONilneVuALmmuvKSOkWwgmO3V65VYr4JT1jbE9lIazfk/XDaK0ibp3lbc+q +LQSJ8L6TDjaKWC3UubC3vhAyKiPzE5wV8YJZ5VX3lkIotS7vmx2riGfUx4wN +vhXCkKMqb6RdEcc81zcoSxTBHv+x0/UhSti1VStqtUMRmFxPvR32cBnWm/Xd +iGwrArPWxj8Dtcsw2OYAT+VtEdgKzbR0er0Ms96Wi5e/LwKXLd7t0LMMS6w6 +r3d9LgKLEJXj4bOUUapc997csSI4vGz88hpNZWw3Tf9bKcmHqv3Z3yt5yng3 +b6/bG3M+WP02lgoNUcZZr0TtxKz40JjQZGgQrow2z9IlODZ8aC8TC8+LVcbq +trbpi1v4MDDPTyoyQxkF5h0V6k58kC1eb2TxRBmLLVNu3w7gg9fkcHituApe +9hDd7pHPBxNf9yWfpVQwsWijKK+QD3N6BXwRWRW8Ma43HUbz4UpHZctqhgpu +jrrwNPIWHzofnNcqMVTBmzlWZe4P+LAp0rgtx0kF96c27OI180Ff6sTykJsq +eKdU2KRRiAahM2NVKXdUsJC3dIOrCA2NIgd33rmngtnXXPjjs2jwHNsSOVyt +ggGm5Tsl59GQ18bs2C9QwaSwm6Eyi2lYkl0bZS/CwChRFyl/NRqmNCU7tR0Y +KHNS7bWPDQ3jmXInVuxkYNzfS8FRtjSMLqCYxk4MNBUIslI30zAwYnzQzIOB +KitEd5XY0/Dxnsv4zmMMnO5N+e/JLhqeb7grEXOFgczYNK2VXjTU3H98M76I +gQPP4IG0Nw1Vy+vtk24wsPFB7asBH5p82ZWWVcbAY/tZ4WlHabjVMZdd0sBA +O/P0WbXBNKR57oGPYwyMqJtcGBpDw8V3Bz5++UnW2yw9yjhNQ/Kmo5Hfpxmo +ltO95+kZGs6uiKmbFFNFcfNDL4XP0RDx6+b2BUqq+NLuw/It58n+nJl1mGOh +ivuLtddvyKGBw6cvXbigiuVH5mDRHRo6lPnZ5umqeMPXWL3xLg3BFwqzRrNV +McGWozBYSsPdE/kZWwpVMa/cR0XtHg36jpdSJCpUMftx8W3eQxrUZyUnRHWp +4uAp871RNTTUBieeW/lZFdkrVBVCamlwH0o4+6lXFTdRvV+8npH6dMTHrR1V +xTeMubct62hQvhUd83c2E5fkx2gKGkm9nELCeVpMPLCkROhoMw0lTUHHKT0m +htkbCxu30GBvHRjWtJKJM1JWKvwmTlzpH6oPTBTvik0PaqNBfL5P4IAdE6su +uzbbddBAnzgUkLmNiQ2iHgVCb2mwnvDk2fzDxPXxbRdp4piPB/yKXJl4UvJX +w693NMws23fYPYCJFr7+VwI+0HBZZ6/P4lAmDhhNeCzoomFtnpN3VTgTjzaN +2OYRHz+3y4txmonjjYdCqz/S8NNt24HODCaKyQwe7flEQ2qH/f74HCYer2y0 +du+hYZXdVndOPhMvUQ4Wn4h5nM2uaTfI+sDvWutnGoalrJ23PWFiqOcX64yv +NLR5MV4erGGi94UN2gu+0fDo6U84Xs9EwZXDpWHECcH8ZQUtTHwnW1m3tZeG +wKaT5yo6mOhSa+9QRuyss2v65QcmZo/4nJbvo0H34/z3U71MpGoW/mwmluX0 +2EoMMfGqxwxDnX7SbxfuP2CMMfFuiI3ySeIXVt5ZG6aZaGvRIKz6nYY7ly0k +nGdSWJlx+Pch4qw/SmF+YhT2Z1pfLSH2vvlid6Y0hX26p6RNB2jYNq+g4aYs +hdemHFoCiVe7hXOfKlJoJ1i78T9i1kPHawIGhV7/zArqJRZfqqc4yKZw/kXH +nUqDpB+PiMWLaFO4ddXksC3x2/qu3zL6FOqFXMJQYjo88S1yKDS5+ndWA3Gy +4KCNwxoKJdqXhw0Rhxqsq/CwoFCV61wsOUSD61l5rbANFOp02mZqE2/4OpKe +uJnCfId75pbE+mvr5111oNC5zq1oN7FcRl7IvZ0UbhyTqD9MLDwe2vfCiSL1 +DeSHE/ducvjnkyuFiTNcrOKJXxdq1016UDgllZh/gbhcZLapuA+F4ytrKzOI +c3d3Fqn4UZjSVZuTTRx7946cYRCFE7KOa/7vwwvPnbYOo7D1oMnldGJHz/0/ +95ykEIcNapOJsRoOHo0hthO/eZpYbZmsIDqewpDy2D3HiCWDhqwyEin89vnw +Ky/iyde1ZcUXKXSXOz13B/EHrRz16gwKvRmZc9cS10YFpbbnUFjqcOQ1m7j4 +g53YQD6FXUmv980lTjHRCBKmKZQ2j674RvYzPFn425KbFF7fsfNDNfH+AYGj +5h3yf1ZLXmQR267/rxbuUXhycVSsH7Fh7plV9o8o3LHOX9KSePY2juyx5xTO +Oykc/ZHUe+DGoph/X1C4eZ1JIJ+4Rez7xJUmCn8+Zhr7Euffz2xt7KRw2+IN +2iPkfJ2V4Vl2d1N4t5K57wYxz9f27sRXCnW7+z0OEJtT0xeURyjc3ho79pKc +309xztuOiLLw5M+30qHkvHv3ajF057NQ/Q2YUcQTllPfv0uy0JGeKKkj/TJX +JDHSQ46FbrJLnSWJdYMqbztrszDFUP5jIOnH8pZz4Ur6LGx7Iq87n3idwS6b +t4YszLz0oSrjCznvg6Pd25Hcz+RVl5B+PubGkt60lYXRvxUMa0gezK780Tnf +kYWnGKcbzIgTlB8WPd/FwuLva28+7P5/Pm5fa+HOQiHGPudrJE+e28X6coNY +KMYZP3yA5NGS1f0vNLNZ2K+SPbWb5Nul9NL0b5dZOLHdsqhYQPJ46tT+qwUs +HG8/d0uImHNbcZpxi4Uje7vrU0g+umhs0pGrZmGE7xtOIcnX4iW34ub0sbDg ++jC94QUNJn5hjk8HWailX6PjR/K48pU189QoC5US+6TTGkh94rrvTf9hYZCv +7LxOkt+/hRf3jUuy8bS84LEFyXurwQCrHkM2GsY3TKY/okFBTylqDoeNCsq+ +RyLJvBg4UvVEcw0bB2UY3zwfkH4dl+Qc2cDGfof4V8sraOj8U6gz7cRGq23P +CpPIPDoy/6300lg2di0x21p/jQYz24jNnLNs3PZ1pnQUTYNMglq8UxIbK2Jj +35PZBhXS/rPzM9k4mSnIzSkg+y0vMaV/i40vq1IHLC+T+aqOnTYdbOSHvgiZ +k0KDl+dnucMf2Hh2cFV40gUa4Frc9qQeNiY8j8qRJ/Pzk277y/ZBNlbX9qxW +TaRBZ9WRSveZanhUaO8MyTiyPxZ5BeHaavhOSiLO+TgN/S5zjt4+roY2Vu9m +9LiQ580yu//wlBpOapfKKe2jYbA9XLQuVg1tv2w6Y+9Mw49NU+ldSWpY+PZh +QBl5n5gw7a2SKFDD2eFTqS4OJG8W1S/xeKmGDfHJX4wtaFhada5cUUUdP73U +ax6jaPJ+LyMc/UQdP3PiHHre8eHbPssC0xp1XJb+ZPxKBx/icgJsh+rUsZkt +EeHazoc3Sm1pO5rVUWmL686OJj44L01dofVVHU/PTNIoruNDkIS82ytxDfzU +UyI+UcoHelKpVn6HBsqJbhEXSuSDVAPrbPGgBhpXp7/XXc2Hv4O6V56PaqBI +5PQrI1M+9EqZVnya0sA112cmc1bx4Ynjpl7ZmZrIbj1/BvT5cPRTgMUJWU0s +/LzRQ5PFh6ZftX/t1mjiuZ493enifLio4ekzkqiJZQOWv74IikAh5sZmQ0Mt +rFhOu3r7FEGKprGk9H5tNEv+3NaeWAjP5dasHPlXBxnSbUOpeQVgovAkYXnL +cjT/cPvkg/irICGS67c3QhfX8IYKzYPzQenEMs4Olh7mBBXn2q+7AmLUrjtb +avSQ1/F8WYZYHuhwl94I2K2P3/7JXiT4kAtHOqUqrYVWYEN/lvRQZg4MjsQ5 +WKWsQIcOXs2OI5fAcvnTNCttA9ycW1WQnZMFD0ZMf000GuBqy5yzm0wzwFtL +X/DKbSXKaFe3ai9IA+6Aa9MOMUMUi8zfGfn8IpgzZTeK5xqiUbv39YHK86AW +fjrwiZERWjo96ua/TwINN+OHlMAI0WbNVcXBf8HtwYFTt31XoYLjrv4S0wR4 +eKnJdXixMR5+u8reZHY8jBZMTyy/a4xTK3Vk736KBReKL5a20QRFLwh8g/Wi +YVgjyfDWkAn6zFqn6B5+CkrzfnWNxZiiyfOObI5BBOw0U0VTJQ7O1ZKw9qXC +Qf5QdJnOIw7GLOJsclwdCovnet3cuJ2L7NCv7d+bAyFv3bHgoR1cvGR37e+x +mkDQP3Z2XdIuLj789aVlUVkg2A4VN7ft5aLnmFbatoxAiGoZm3LxIr+f6jHU +cAmEydzja4NPcLGwOWSZ5I8AEJgmvcnnc7H1FWfzs0UBcMA/L8PqOhevzJ+7 +Qks0AMavl7j1F3OxbyEr7vwUD6QYbRN6d7iY+i4xNaSTBxvmKCrcf0TWd1Kr +L7mABxVN+a5vmrnYeUmk9CeXB9YSpdq8Ni7e59+TqdLlQZvls3HZDi66SD9r +TFLlwWh5X8yeD1xcN0vJ1EKMB9o5ute+9XLxaJlpy3iTP1QI1vDivnMxa69m ++Y8af7BetBWWD3Gx2/d9z2i5P7hH+7/yG+Nie2Xt/Pk5/jD6KCpNZpKLXxNk +Zqok+0PEz4su5T+5aNW525QT7Q+SBoVau/9wMV+koHh3sD9kHSofm57m4qC2 +8L7IQ/7wP8MJkhE= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "PlotRange" -> {{0, 30}, {0., 0.05652331209097666}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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.05652331209097666}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -2572,25 +6956,792 @@ 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.9939597420620117`*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"37d936d2-5312-4b79-86bd-11d3da09f6c8"] }, 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[{"{", + RowBox[{"0", ",", "0.005381"}], "}"}]}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.015959"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.025999"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.035173"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.043213"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.049902"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.055111"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.058771"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.060904"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.061577"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.060934"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.059136"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.056395"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.052912"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.048907"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.044569"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.040087"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.035606"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.031259"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.027134"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.023309"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.019818"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.016691"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.013926"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.01152"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.009447"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.007687"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.006205"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.004972"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.003954"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.003124"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.993959035045884*^9}, + CellLabel->"In[96]:=",ExpressionUUID->"2d5a8299-5376-9747-8056-2bd9764114a1"], + +Cell[BoxData[ + TemplateBox[{ + "Thread", "tdlen", + "\"Objects of unequal length in \\!\\(\\*RowBox[{RowBox[{\\\"{\\\", \ +\\\"}\\\"}], \\\" \\\", RowBox[{\\\"{\\\", RowBox[{\\\"0\\\", \\\",\\\", \ +\\\"0.005381`\\\"}], \\\"}\\\"}]}]\\) cannot be combined.\"", 2, 96, 13, + 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993959742175293*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"fcdfeaaf-38e0-4bf3-8e36-204182675806"], + +Cell[BoxData[ + TemplateBox[{ + "ListPlot", "nonopt", + "\"Options expected (instead of \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"30\ +\\\", \\\",\\\", \\\"0.003124`\\\"}], \\\"}\\\"}]\\)) beyond position \ +\\!\\(\\*RowBox[{\\\"1\\\"}]\\) in \\!\\(\\*RowBox[{\\\"ListPlot\\\", \\\"[\\\ +\", RowBox[{RowBox[{RowBox[{\\\"{\\\", \\\"}\\\"}], \\\" \\\", \ +RowBox[{\\\"{\\\", RowBox[{\\\"0\\\", \\\",\\\", \\\"0.005381`\\\"}], \\\"}\\\ +\"}]}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"1\\\", \\\",\\\", \ +\\\"0.015959`\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"2\ +\\\", \\\",\\\", \\\"0.025999`\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\ +\", RowBox[{\\\"3\\\", \\\",\\\", \\\"0.035173`\\\"}], \\\"}\\\"}], \ +\\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"4\\\", \\\",\\\", \ +\\\"0.043213`\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"5\ +\\\", \\\",\\\", \\\"0.049902`\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\ +\", RowBox[{\\\"6\\\", \\\",\\\", \\\"0.055111`\\\"}], \\\"}\\\"}], \ +\\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"7\\\", \\\",\\\", \ +\\\"0.058771`\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"8\ +\\\", \\\",\\\", \\\"0.060904`\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"13\\\", \\\"\[RightSkeleton]\\\"}], \\\",\\\", \ +RowBox[{\\\"{\\\", RowBox[{\\\"22\\\", \\\",\\\", \\\"0.016691`\\\"}], \ +\\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"23\\\", \\\",\\\", \ +\\\"0.013926`\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \ +RowBox[{\\\"24\\\", \\\",\\\", \\\"0.01152`\\\"}], \\\"}\\\"}], \\\",\\\", \ +RowBox[{\\\"{\\\", RowBox[{\\\"25\\\", \\\",\\\", \\\"0.009447`\\\"}], \ +\\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"26\\\", \\\",\\\", \ +\\\"0.007687`\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \ +RowBox[{\\\"27\\\", \\\",\\\", \\\"0.006205`\\\"}], \\\"}\\\"}], \\\",\\\", \ +RowBox[{\\\"{\\\", RowBox[{\\\"28\\\", \\\",\\\", \\\"0.004972`\\\"}], \ +\\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"29\\\", \\\",\\\", \ +\\\"0.003954`\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \ +RowBox[{\\\"30\\\", \\\",\\\", \\\"0.003124`\\\"}], \\\"}\\\"}]}], \ +\\\"]\\\"}]\\). An option must be a rule or a list of rules.\"", 2, 96, 14, + 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993959742225574*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"82396e71-0c72-4dde-829e-9ca275f0b071"], + +Cell[BoxData[ + RowBox[{"ListPlot", "[", + RowBox[{ + RowBox[{ + RowBox[{"{", "}"}], " ", + RowBox[{"{", + RowBox[{"0", ",", "0.005381`"}], "}"}]}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.015959`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.025999`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.035173`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.043213`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.049902`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.055111`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.058771`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.060904`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.061577`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.060934`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.059136`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.056395`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.052912`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.048907`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.044569`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.040087`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.035606`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.031259`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.027134`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.023309`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.019818`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.016691`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.013926`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.01152`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.009447`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.007687`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.006205`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.004972`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.003954`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.003124`"}], "}"}]}], "]"}]], "Output", + CellChangeTimes->{3.993959742237567*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"0759e290-2317-4148-8feb-29c855be44fc"] +}, 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[ + TemplateBox[{ + "Show", "gcomb", + "\"Could not combine the graphics objects in \ +\\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", \ +RowBox[{GraphicsBox[List[InterpretationBox[List[List[List[Skeleton[3]]], \ +List[]], Annotation[List[List[List[Skeleton[3]]], List[]], \ +Internal`ShallowAssociation[Rule[\\\"HighlightElements\\\", Association[Rule[\ +\\\"Label\\\", List[\\\"XYLabel\\\"]], Rule[\\\"Ball\\\", \ +List[\\\"InterpolatedBall\\\"]]]], Rule[\\\"LayoutOptions\\\", \ +Association[Rule[\\\"PanelPlotLayout\\\", Association[]], \ +Rule[\\\"PlotRange\\\", List[List[0, 30], List[0.`, 0.05652331209097666`]]], \ +Rule[\\\"Frame\\\", List[List[False, False], List[False, False]]], \ +Rule[\\\"AxesOrigin\\\", List[0, 0]], Rule[\\\"ImageSize\\\", List[360, \ +Times[360, Power[GoldenRatio, -1]]]], Rule[\\\"Axes\\\", List[True, True]], \ +Rule[\\\"LabelStyle\\\", List[]], Rule[\\\"AspectRatio\\\", \ +Power[GoldenRatio, -1]], Rule[\\\"DefaultStyle\\\", \ +List[Directive[Opacity[1.`], RGBColor[0.24`, 0.6`, 0.8`], \ +AbsoluteThickness[2]]]], Rule[\\\"HighlightLabelingFunctions\\\", \ +Association[Rule[\\\"CoordinatesToolOptions\\\", \ +Function[List[Function[Identity[Slot[1]]][Part[Slot[1], 1]], \ +Function[Identity[Slot[1]]][Part[Slot[1], 2]]]]], Rule[\\\"ScalingFunctions\\\ +\", List[List[Identity, Identity], List[Identity, Identity]]]]], \ +Rule[\\\"Primitives\\\", List[]], Rule[\\\"GCFlag\\\", False]]], \ +Rule[\\\"Meta\\\", Association[Rule[\\\"DefaultHighlight\\\", \ +List[\\\"Dynamic\\\", None]], Rule[\\\"Index\\\", List[]], \ +Rule[\\\"Function\\\", Plot], Rule[\\\"GroupHighlight\\\", False]]]], \ +\\\"DynamicHighlight\\\"]]], List[Rule[DisplayFunction, Identity], \ +RuleDelayed[PlotInteractivity, True], Rule[DisplayFunction, Identity], \ +RuleDelayed[PlotInteractivity, True], Rule[DefaultBaseStyle, \ +List[\\\"PlotGraphics\\\", \\\"Graphics\\\"]], Rule[DisplayFunction, \ +Identity], Rule[Ticks, List[Automatic, Automatic]], Rule[AxesOrigin, List[0, \ +0]], Rule[FrameTicks, List[List[Automatic, Automatic], List[Automatic, \ +Automatic]]], Rule[GridLines, List[None, None]], \ +RuleDelayed[PlotInteractivity, True], Rule[DefaultBaseStyle, \ +List[\\\"PlotGraphics\\\", \\\"Graphics\\\"]], Rule[DisplayFunction, \ +Identity], Rule[PlotRangePadding, List[List[Scaled[Skeleton[1]], \ +Scaled[Skeleton[1]]], List[Scaled[Skeleton[1]], Scaled[Skeleton[1]]]]], \ +Rule[PlotRangeClipping, True], Rule[ImagePadding, All], \ +RuleDelayed[PlotInteractivity, True], Rule[DisplayFunction, Identity], \ +RuleDelayed[PlotInteractivity, True], Rule[DefaultBaseStyle, \ +List[\\\"PlotGraphics\\\", \\\"Graphics\\\"]], Rule[AspectRatio, \ +NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], Rule[Axes, List[True, \ +True]], Rule[AxesLabel, List[None, None]], Rule[AxesOrigin, List[0, 0]], \ +RuleDelayed[DisplayFunction, Identity], Rule[Frame, List[List[False, False], \ +List[False, False]]], Rule[FrameLabel, List[List[None, None], List[None, \ +None]]], Rule[FrameTicks, List[List[Automatic, Automatic], List[Automatic, \ +Automatic]]], Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \ +Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \ +List[Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \ +Rule[\\\"DefaultGraphicsInteraction\\\", List[Skeleton[3]]], \ +Rule[\\\"DefaultMeshStyle\\\", AbsolutePointSize[Skeleton[1]]], \ +Rule[\\\"ScalingFunctions\\\", None], Rule[\\\"CoordinatesToolOptions\\\", \ +List[Skeleton[2]]]]], Rule[PlotRange, List[List[0, 30], List[0.`, \ +0.05652331209097666`]]], Rule[PlotRangeClipping, True], \ +Rule[PlotRangePadding, List[List[Scaled[Skeleton[1]], Scaled[Skeleton[1]]], \ +List[Scaled[Skeleton[1]], Scaled[Skeleton[1]]]]], Rule[Ticks, List[Automatic, \ +Automatic]]]], \\\",\\\", RowBox[{\\\"ListPlot\\\", \\\"[\\\", \ +RowBox[{RowBox[{RowBox[{\\\"{\\\", \\\"}\\\"}], \\\" \\\", RowBox[{\\\"{\\\", \ +RowBox[{\\\"0\\\", \\\",\\\", \\\"0.005381`\\\"}], \\\"}\\\"}]}], \\\",\\\", \ +RowBox[{\\\"{\\\", RowBox[{\\\"1\\\", \\\",\\\", \\\"0.015959`\\\"}], \\\"}\\\ +\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"2\\\", \\\",\\\", \ +\\\"0.025999`\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"3\ +\\\", \\\",\\\", \\\"0.035173`\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\ +\", RowBox[{\\\"4\\\", \\\",\\\", \\\"0.043213`\\\"}], \\\"}\\\"}], \ +\\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"5\\\", \\\",\\\", \ +\\\"0.049902`\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"6\ +\\\", \\\",\\\", \\\"0.055111`\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\ +\", RowBox[{\\\"7\\\", \\\",\\\", \\\"0.058771`\\\"}], \\\"}\\\"}], \ +\\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"8\\\", \\\",\\\", \ +\\\"0.060904`\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"13\\\", \\\"\[RightSkeleton]\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \ +RowBox[{\\\"22\\\", \\\",\\\", \\\"0.016691`\\\"}], \\\"}\\\"}], \\\",\\\", \ +RowBox[{\\\"{\\\", RowBox[{\\\"23\\\", \\\",\\\", \\\"0.013926`\\\"}], \ +\\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"24\\\", \\\",\\\", \ +\\\"0.01152`\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"25\ +\\\", \\\",\\\", \\\"0.009447`\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\ +\", RowBox[{\\\"26\\\", \\\",\\\", \\\"0.007687`\\\"}], \\\"}\\\"}], \ +\\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"27\\\", \\\",\\\", \ +\\\"0.006205`\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \ +RowBox[{\\\"28\\\", \\\",\\\", \\\"0.004972`\\\"}], \\\"}\\\"}], \\\",\\\", \ +RowBox[{\\\"{\\\", RowBox[{\\\"29\\\", \\\",\\\", \\\"0.003954`\\\"}], \ +\\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"30\\\", \\\",\\\", \ +\\\"0.003124`\\\"}], \\\"}\\\"}]}], \\\"]\\\"}]}], \\\"]\\\"}]\\).\"", 2, 97, + 15, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993959742289757*^9}, + CellLabel-> + "During evaluation of \ +In[97]:=",ExpressionUUID->"ec565c86-9ecf-4de0-bce9-51c06e67edc4"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk4VO0bB3BRSUWiIluMOTP2kAgz3XdliaQUpd6KspSIFGNNUraivKjs +IglzKvWmkFZEWdqso5SkBVmyt/k9vz/mOtdn5jrXPOe5n/t7H5V9PlvchIWE +hIRnkA+5jnc+q2KeyVvtEHV9iVGL4eqmLNmgNW0RENTJPlXzYxHg4hf7ZNsS +oceVYZ/ygwm8zUWtIm25UOaR4RPywwAWDsgkTrXegseGvnXbf5jB+wpbn9HW +J9Bwf1h/eNgeLJi974ZbX4PXA9vOg0OuMNVqdH6o9SOkuJjm7ur1g8p1V/Ne +5Y7AoVCHi9E3IkHhfdnnfVp/4OzuMLvFE+dgkZdTkeg6EfSsqtU27EqGRD2L +e7YOc1BQq3FL6HcqtKfoPhqWFMeUmfXhlRFZcCbv+AvhpQtx5ISB9omzOSCT +3B2blCmNT60D4rLzLkO0vdXq1+OL0afXYKWv5xU4apzj9CxCFvvbu5Mbqatg +Nvgz2LtbDumHRjvPJBRA0Ppkjcf9cijpWJJ253wBXM/RFkiPy+GpkrXNnWkF +IGvvbFw2Rx7l5NYbsa4UQH9p9YSIjjzecIH8hLICSIpI8EsNlMd2ux99b7oK +4ONilneVuALmmuvKSOkWwgmO3V65VYr4JT1jbE9lIazfk/XDaK0ibp3lbc+q +LQSJ8L6TDjaKWC3UubC3vhAyKiPzE5wV8YJZ5VX3lkIotS7vmx2riGfUx4wN +vhXCkKMqb6RdEcc81zcoSxTBHv+x0/UhSti1VStqtUMRmFxPvR32cBnWm/Xd +iGwrArPWxj8Dtcsw2OYAT+VtEdgKzbR0er0Ms96Wi5e/LwKXLd7t0LMMS6w6 +r3d9LgKLEJXj4bOUUapc997csSI4vGz88hpNZWw3Tf9bKcmHqv3Z3yt5yng3 +b6/bG3M+WP02lgoNUcZZr0TtxKz40JjQZGgQrow2z9IlODZ8aC8TC8+LVcbq +trbpi1v4MDDPTyoyQxkF5h0V6k58kC1eb2TxRBmLLVNu3w7gg9fkcHituApe +9hDd7pHPBxNf9yWfpVQwsWijKK+QD3N6BXwRWRW8Ma43HUbz4UpHZctqhgpu +jrrwNPIWHzofnNcqMVTBmzlWZe4P+LAp0rgtx0kF96c27OI180Ff6sTykJsq +eKdU2KRRiAahM2NVKXdUsJC3dIOrCA2NIgd33rmngtnXXPjjs2jwHNsSOVyt +ggGm5Tsl59GQ18bs2C9QwaSwm6Eyi2lYkl0bZS/CwChRFyl/NRqmNCU7tR0Y +KHNS7bWPDQ3jmXInVuxkYNzfS8FRtjSMLqCYxk4MNBUIslI30zAwYnzQzIOB +KitEd5XY0/Dxnsv4zmMMnO5N+e/JLhqeb7grEXOFgczYNK2VXjTU3H98M76I +gQPP4IG0Nw1Vy+vtk24wsPFB7asBH5p82ZWWVcbAY/tZ4WlHabjVMZdd0sBA +O/P0WbXBNKR57oGPYwyMqJtcGBpDw8V3Bz5++UnW2yw9yjhNQ/Kmo5Hfpxmo +ltO95+kZGs6uiKmbFFNFcfNDL4XP0RDx6+b2BUqq+NLuw/It58n+nJl1mGOh +ivuLtddvyKGBw6cvXbigiuVH5mDRHRo6lPnZ5umqeMPXWL3xLg3BFwqzRrNV +McGWozBYSsPdE/kZWwpVMa/cR0XtHg36jpdSJCpUMftx8W3eQxrUZyUnRHWp +4uAp871RNTTUBieeW/lZFdkrVBVCamlwH0o4+6lXFTdRvV+8npH6dMTHrR1V +xTeMubct62hQvhUd83c2E5fkx2gKGkm9nELCeVpMPLCkROhoMw0lTUHHKT0m +htkbCxu30GBvHRjWtJKJM1JWKvwmTlzpH6oPTBTvik0PaqNBfL5P4IAdE6su +uzbbddBAnzgUkLmNiQ2iHgVCb2mwnvDk2fzDxPXxbRdp4piPB/yKXJl4UvJX +w693NMws23fYPYCJFr7+VwI+0HBZZ6/P4lAmDhhNeCzoomFtnpN3VTgTjzaN +2OYRHz+3y4txmonjjYdCqz/S8NNt24HODCaKyQwe7flEQ2qH/f74HCYer2y0 +du+hYZXdVndOPhMvUQ4Wn4h5nM2uaTfI+sDvWutnGoalrJ23PWFiqOcX64yv +NLR5MV4erGGi94UN2gu+0fDo6U84Xs9EwZXDpWHECcH8ZQUtTHwnW1m3tZeG +wKaT5yo6mOhSa+9QRuyss2v65QcmZo/4nJbvo0H34/z3U71MpGoW/mwmluX0 +2EoMMfGqxwxDnX7SbxfuP2CMMfFuiI3ySeIXVt5ZG6aZaGvRIKz6nYY7ly0k +nGdSWJlx+Pch4qw/SmF+YhT2Z1pfLSH2vvlid6Y0hX26p6RNB2jYNq+g4aYs +hdemHFoCiVe7hXOfKlJoJ1i78T9i1kPHawIGhV7/zArqJRZfqqc4yKZw/kXH +nUqDpB+PiMWLaFO4ddXksC3x2/qu3zL6FOqFXMJQYjo88S1yKDS5+ndWA3Gy +4KCNwxoKJdqXhw0Rhxqsq/CwoFCV61wsOUSD61l5rbANFOp02mZqE2/4OpKe +uJnCfId75pbE+mvr5111oNC5zq1oN7FcRl7IvZ0UbhyTqD9MLDwe2vfCiSL1 +DeSHE/ducvjnkyuFiTNcrOKJXxdq1016UDgllZh/gbhcZLapuA+F4ytrKzOI +c3d3Fqn4UZjSVZuTTRx7946cYRCFE7KOa/7vwwvPnbYOo7D1oMnldGJHz/0/ +95ykEIcNapOJsRoOHo0hthO/eZpYbZmsIDqewpDy2D3HiCWDhqwyEin89vnw +Ky/iyde1ZcUXKXSXOz13B/EHrRz16gwKvRmZc9cS10YFpbbnUFjqcOQ1m7j4 +g53YQD6FXUmv980lTjHRCBKmKZQ2j674RvYzPFn425KbFF7fsfNDNfH+AYGj +5h3yf1ZLXmQR267/rxbuUXhycVSsH7Fh7plV9o8o3LHOX9KSePY2juyx5xTO +Oykc/ZHUe+DGoph/X1C4eZ1JIJ+4Rez7xJUmCn8+Zhr7Euffz2xt7KRw2+IN +2iPkfJ2V4Vl2d1N4t5K57wYxz9f27sRXCnW7+z0OEJtT0xeURyjc3ho79pKc +309xztuOiLLw5M+30qHkvHv3ajF057NQ/Q2YUcQTllPfv0uy0JGeKKkj/TJX +JDHSQ46FbrJLnSWJdYMqbztrszDFUP5jIOnH8pZz4Ur6LGx7Iq87n3idwS6b +t4YszLz0oSrjCznvg6Pd25Hcz+RVl5B+PubGkt60lYXRvxUMa0gezK780Tnf +kYWnGKcbzIgTlB8WPd/FwuLva28+7P5/Pm5fa+HOQiHGPudrJE+e28X6coNY +KMYZP3yA5NGS1f0vNLNZ2K+SPbWb5Nul9NL0b5dZOLHdsqhYQPJ46tT+qwUs +HG8/d0uImHNbcZpxi4Uje7vrU0g+umhs0pGrZmGE7xtOIcnX4iW34ub0sbDg ++jC94QUNJn5hjk8HWailX6PjR/K48pU189QoC5US+6TTGkh94rrvTf9hYZCv +7LxOkt+/hRf3jUuy8bS84LEFyXurwQCrHkM2GsY3TKY/okFBTylqDoeNCsq+ +RyLJvBg4UvVEcw0bB2UY3zwfkH4dl+Qc2cDGfof4V8sraOj8U6gz7cRGq23P +CpPIPDoy/6300lg2di0x21p/jQYz24jNnLNs3PZ1pnQUTYNMglq8UxIbK2Jj +35PZBhXS/rPzM9k4mSnIzSkg+y0vMaV/i40vq1IHLC+T+aqOnTYdbOSHvgiZ +k0KDl+dnucMf2Hh2cFV40gUa4Frc9qQeNiY8j8qRJ/Pzk277y/ZBNlbX9qxW +TaRBZ9WRSveZanhUaO8MyTiyPxZ5BeHaavhOSiLO+TgN/S5zjt4+roY2Vu9m +9LiQ580yu//wlBpOapfKKe2jYbA9XLQuVg1tv2w6Y+9Mw49NU+ldSWpY+PZh +QBl5n5gw7a2SKFDD2eFTqS4OJG8W1S/xeKmGDfHJX4wtaFhada5cUUUdP73U +ax6jaPJ+LyMc/UQdP3PiHHre8eHbPssC0xp1XJb+ZPxKBx/icgJsh+rUsZkt +EeHazoc3Sm1pO5rVUWmL686OJj44L01dofVVHU/PTNIoruNDkIS82ytxDfzU +UyI+UcoHelKpVn6HBsqJbhEXSuSDVAPrbPGgBhpXp7/XXc2Hv4O6V56PaqBI +5PQrI1M+9EqZVnya0sA112cmc1bx4Ynjpl7ZmZrIbj1/BvT5cPRTgMUJWU0s +/LzRQ5PFh6ZftX/t1mjiuZ493enifLio4ekzkqiJZQOWv74IikAh5sZmQ0Mt +rFhOu3r7FEGKprGk9H5tNEv+3NaeWAjP5dasHPlXBxnSbUOpeQVgovAkYXnL +cjT/cPvkg/irICGS67c3QhfX8IYKzYPzQenEMs4Olh7mBBXn2q+7AmLUrjtb +avSQ1/F8WYZYHuhwl94I2K2P3/7JXiT4kAtHOqUqrYVWYEN/lvRQZg4MjsQ5 +WKWsQIcOXs2OI5fAcvnTNCttA9ycW1WQnZMFD0ZMf000GuBqy5yzm0wzwFtL +X/DKbSXKaFe3ai9IA+6Aa9MOMUMUi8zfGfn8IpgzZTeK5xqiUbv39YHK86AW +fjrwiZERWjo96ua/TwINN+OHlMAI0WbNVcXBf8HtwYFTt31XoYLjrv4S0wR4 +eKnJdXixMR5+u8reZHY8jBZMTyy/a4xTK3Vk736KBReKL5a20QRFLwh8g/Wi +YVgjyfDWkAn6zFqn6B5+CkrzfnWNxZiiyfOObI5BBOw0U0VTJQ7O1ZKw9qXC +Qf5QdJnOIw7GLOJsclwdCovnet3cuJ2L7NCv7d+bAyFv3bHgoR1cvGR37e+x +mkDQP3Z2XdIuLj789aVlUVkg2A4VN7ft5aLnmFbatoxAiGoZm3LxIr+f6jHU +cAmEydzja4NPcLGwOWSZ5I8AEJgmvcnnc7H1FWfzs0UBcMA/L8PqOhevzJ+7 +Qks0AMavl7j1F3OxbyEr7vwUD6QYbRN6d7iY+i4xNaSTBxvmKCrcf0TWd1Kr +L7mABxVN+a5vmrnYeUmk9CeXB9YSpdq8Ni7e59+TqdLlQZvls3HZDi66SD9r +TFLlwWh5X8yeD1xcN0vJ1EKMB9o5ute+9XLxaJlpy3iTP1QI1vDivnMxa69m ++Y8af7BetBWWD3Gx2/d9z2i5P7hH+7/yG+Nie2Xt/Pk5/jD6KCpNZpKLXxNk +Zqok+0PEz4su5T+5aNW525QT7Q+SBoVau/9wMV+koHh3sD9kHSofm57m4qC2 +8L7IQ/7wP8MJkhE= + "]]}, + 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:eJwV1nk4VO0bB3BRSUWiIluMOTP2kAgz3XdliaQUpd6KspSIFGNNUraivKjs +IglzKvWmkFZEWdqso5SkBVmyt/k9vz/mOtdn5jrXPOe5n/t7H5V9PlvchIWE +hIRnkA+5jnc+q2KeyVvtEHV9iVGL4eqmLNmgNW0RENTJPlXzYxHg4hf7ZNsS +oceVYZ/ygwm8zUWtIm25UOaR4RPywwAWDsgkTrXegseGvnXbf5jB+wpbn9HW +J9Bwf1h/eNgeLJi974ZbX4PXA9vOg0OuMNVqdH6o9SOkuJjm7ur1g8p1V/Ne +5Y7AoVCHi9E3IkHhfdnnfVp/4OzuMLvFE+dgkZdTkeg6EfSsqtU27EqGRD2L +e7YOc1BQq3FL6HcqtKfoPhqWFMeUmfXhlRFZcCbv+AvhpQtx5ISB9omzOSCT +3B2blCmNT60D4rLzLkO0vdXq1+OL0afXYKWv5xU4apzj9CxCFvvbu5Mbqatg +Nvgz2LtbDumHRjvPJBRA0Ppkjcf9cijpWJJ253wBXM/RFkiPy+GpkrXNnWkF +IGvvbFw2Rx7l5NYbsa4UQH9p9YSIjjzecIH8hLICSIpI8EsNlMd2ux99b7oK +4ONilneVuALmmuvKSOkWwgmO3V65VYr4JT1jbE9lIazfk/XDaK0ibp3lbc+q +LQSJ8L6TDjaKWC3UubC3vhAyKiPzE5wV8YJZ5VX3lkIotS7vmx2riGfUx4wN +vhXCkKMqb6RdEcc81zcoSxTBHv+x0/UhSti1VStqtUMRmFxPvR32cBnWm/Xd +iGwrArPWxj8Dtcsw2OYAT+VtEdgKzbR0er0Ms96Wi5e/LwKXLd7t0LMMS6w6 +r3d9LgKLEJXj4bOUUapc997csSI4vGz88hpNZWw3Tf9bKcmHqv3Z3yt5yng3 +b6/bG3M+WP02lgoNUcZZr0TtxKz40JjQZGgQrow2z9IlODZ8aC8TC8+LVcbq +trbpi1v4MDDPTyoyQxkF5h0V6k58kC1eb2TxRBmLLVNu3w7gg9fkcHituApe +9hDd7pHPBxNf9yWfpVQwsWijKK+QD3N6BXwRWRW8Ma43HUbz4UpHZctqhgpu +jrrwNPIWHzofnNcqMVTBmzlWZe4P+LAp0rgtx0kF96c27OI180Ff6sTykJsq +eKdU2KRRiAahM2NVKXdUsJC3dIOrCA2NIgd33rmngtnXXPjjs2jwHNsSOVyt +ggGm5Tsl59GQ18bs2C9QwaSwm6Eyi2lYkl0bZS/CwChRFyl/NRqmNCU7tR0Y +KHNS7bWPDQ3jmXInVuxkYNzfS8FRtjSMLqCYxk4MNBUIslI30zAwYnzQzIOB +KitEd5XY0/Dxnsv4zmMMnO5N+e/JLhqeb7grEXOFgczYNK2VXjTU3H98M76I +gQPP4IG0Nw1Vy+vtk24wsPFB7asBH5p82ZWWVcbAY/tZ4WlHabjVMZdd0sBA +O/P0WbXBNKR57oGPYwyMqJtcGBpDw8V3Bz5++UnW2yw9yjhNQ/Kmo5Hfpxmo +ltO95+kZGs6uiKmbFFNFcfNDL4XP0RDx6+b2BUqq+NLuw/It58n+nJl1mGOh +ivuLtddvyKGBw6cvXbigiuVH5mDRHRo6lPnZ5umqeMPXWL3xLg3BFwqzRrNV +McGWozBYSsPdE/kZWwpVMa/cR0XtHg36jpdSJCpUMftx8W3eQxrUZyUnRHWp +4uAp871RNTTUBieeW/lZFdkrVBVCamlwH0o4+6lXFTdRvV+8npH6dMTHrR1V +xTeMubct62hQvhUd83c2E5fkx2gKGkm9nELCeVpMPLCkROhoMw0lTUHHKT0m +htkbCxu30GBvHRjWtJKJM1JWKvwmTlzpH6oPTBTvik0PaqNBfL5P4IAdE6su +uzbbddBAnzgUkLmNiQ2iHgVCb2mwnvDk2fzDxPXxbRdp4piPB/yKXJl4UvJX +w693NMws23fYPYCJFr7+VwI+0HBZZ6/P4lAmDhhNeCzoomFtnpN3VTgTjzaN +2OYRHz+3y4txmonjjYdCqz/S8NNt24HODCaKyQwe7flEQ2qH/f74HCYer2y0 +du+hYZXdVndOPhMvUQ4Wn4h5nM2uaTfI+sDvWutnGoalrJ23PWFiqOcX64yv +NLR5MV4erGGi94UN2gu+0fDo6U84Xs9EwZXDpWHECcH8ZQUtTHwnW1m3tZeG +wKaT5yo6mOhSa+9QRuyss2v65QcmZo/4nJbvo0H34/z3U71MpGoW/mwmluX0 +2EoMMfGqxwxDnX7SbxfuP2CMMfFuiI3ySeIXVt5ZG6aZaGvRIKz6nYY7ly0k +nGdSWJlx+Pch4qw/SmF+YhT2Z1pfLSH2vvlid6Y0hX26p6RNB2jYNq+g4aYs +hdemHFoCiVe7hXOfKlJoJ1i78T9i1kPHawIGhV7/zArqJRZfqqc4yKZw/kXH +nUqDpB+PiMWLaFO4ddXksC3x2/qu3zL6FOqFXMJQYjo88S1yKDS5+ndWA3Gy +4KCNwxoKJdqXhw0Rhxqsq/CwoFCV61wsOUSD61l5rbANFOp02mZqE2/4OpKe +uJnCfId75pbE+mvr5111oNC5zq1oN7FcRl7IvZ0UbhyTqD9MLDwe2vfCiSL1 +DeSHE/ducvjnkyuFiTNcrOKJXxdq1016UDgllZh/gbhcZLapuA+F4ytrKzOI +c3d3Fqn4UZjSVZuTTRx7946cYRCFE7KOa/7vwwvPnbYOo7D1oMnldGJHz/0/ +95ykEIcNapOJsRoOHo0hthO/eZpYbZmsIDqewpDy2D3HiCWDhqwyEin89vnw +Ky/iyde1ZcUXKXSXOz13B/EHrRz16gwKvRmZc9cS10YFpbbnUFjqcOQ1m7j4 +g53YQD6FXUmv980lTjHRCBKmKZQ2j674RvYzPFn425KbFF7fsfNDNfH+AYGj +5h3yf1ZLXmQR267/rxbuUXhycVSsH7Fh7plV9o8o3LHOX9KSePY2juyx5xTO +Oykc/ZHUe+DGoph/X1C4eZ1JIJ+4Rez7xJUmCn8+Zhr7Euffz2xt7KRw2+IN +2iPkfJ2V4Vl2d1N4t5K57wYxz9f27sRXCnW7+z0OEJtT0xeURyjc3ho79pKc +309xztuOiLLw5M+30qHkvHv3ajF057NQ/Q2YUcQTllPfv0uy0JGeKKkj/TJX +JDHSQ46FbrJLnSWJdYMqbztrszDFUP5jIOnH8pZz4Ur6LGx7Iq87n3idwS6b +t4YszLz0oSrjCznvg6Pd25Hcz+RVl5B+PubGkt60lYXRvxUMa0gezK780Tnf +kYWnGKcbzIgTlB8WPd/FwuLva28+7P5/Pm5fa+HOQiHGPudrJE+e28X6coNY +KMYZP3yA5NGS1f0vNLNZ2K+SPbWb5Nul9NL0b5dZOLHdsqhYQPJ46tT+qwUs +HG8/d0uImHNbcZpxi4Uje7vrU0g+umhs0pGrZmGE7xtOIcnX4iW34ub0sbDg ++jC94QUNJn5hjk8HWailX6PjR/K48pU189QoC5US+6TTGkh94rrvTf9hYZCv +7LxOkt+/hRf3jUuy8bS84LEFyXurwQCrHkM2GsY3TKY/okFBTylqDoeNCsq+ +RyLJvBg4UvVEcw0bB2UY3zwfkH4dl+Qc2cDGfof4V8sraOj8U6gz7cRGq23P +CpPIPDoy/6300lg2di0x21p/jQYz24jNnLNs3PZ1pnQUTYNMglq8UxIbK2Jj +35PZBhXS/rPzM9k4mSnIzSkg+y0vMaV/i40vq1IHLC+T+aqOnTYdbOSHvgiZ +k0KDl+dnucMf2Hh2cFV40gUa4Frc9qQeNiY8j8qRJ/Pzk277y/ZBNlbX9qxW +TaRBZ9WRSveZanhUaO8MyTiyPxZ5BeHaavhOSiLO+TgN/S5zjt4+roY2Vu9m +9LiQ580yu//wlBpOapfKKe2jYbA9XLQuVg1tv2w6Y+9Mw49NU+ldSWpY+PZh +QBl5n5gw7a2SKFDD2eFTqS4OJG8W1S/xeKmGDfHJX4wtaFhada5cUUUdP73U +ax6jaPJ+LyMc/UQdP3PiHHre8eHbPssC0xp1XJb+ZPxKBx/icgJsh+rUsZkt +EeHazoc3Sm1pO5rVUWmL686OJj44L01dofVVHU/PTNIoruNDkIS82ytxDfzU +UyI+UcoHelKpVn6HBsqJbhEXSuSDVAPrbPGgBhpXp7/XXc2Hv4O6V56PaqBI +5PQrI1M+9EqZVnya0sA112cmc1bx4Ynjpl7ZmZrIbj1/BvT5cPRTgMUJWU0s +/LzRQ5PFh6ZftX/t1mjiuZ493enifLio4ekzkqiJZQOWv74IikAh5sZmQ0Mt +rFhOu3r7FEGKprGk9H5tNEv+3NaeWAjP5dasHPlXBxnSbUOpeQVgovAkYXnL +cjT/cPvkg/irICGS67c3QhfX8IYKzYPzQenEMs4Olh7mBBXn2q+7AmLUrjtb +avSQ1/F8WYZYHuhwl94I2K2P3/7JXiT4kAtHOqUqrYVWYEN/lvRQZg4MjsQ5 +WKWsQIcOXs2OI5fAcvnTNCttA9ycW1WQnZMFD0ZMf000GuBqy5yzm0wzwFtL +X/DKbSXKaFe3ai9IA+6Aa9MOMUMUi8zfGfn8IpgzZTeK5xqiUbv39YHK86AW +fjrwiZERWjo96ua/TwINN+OHlMAI0WbNVcXBf8HtwYFTt31XoYLjrv4S0wR4 +eKnJdXixMR5+u8reZHY8jBZMTyy/a4xTK3Vk736KBReKL5a20QRFLwh8g/Wi +YVgjyfDWkAn6zFqn6B5+CkrzfnWNxZiiyfOObI5BBOw0U0VTJQ7O1ZKw9qXC +Qf5QdJnOIw7GLOJsclwdCovnet3cuJ2L7NCv7d+bAyFv3bHgoR1cvGR37e+x +mkDQP3Z2XdIuLj789aVlUVkg2A4VN7ft5aLnmFbatoxAiGoZm3LxIr+f6jHU +cAmEydzja4NPcLGwOWSZ5I8AEJgmvcnnc7H1FWfzs0UBcMA/L8PqOhevzJ+7 +Qks0AMavl7j1F3OxbyEr7vwUD6QYbRN6d7iY+i4xNaSTBxvmKCrcf0TWd1Kr +L7mABxVN+a5vmrnYeUmk9CeXB9YSpdq8Ni7e59+TqdLlQZvls3HZDi66SD9r +TFLlwWh5X8yeD1xcN0vJ1EKMB9o5ute+9XLxaJlpy3iTP1QI1vDivnMxa69m ++Y8af7BetBWWD3Gx2/d9z2i5P7hH+7/yG+Nie2Xt/Pk5/jD6KCpNZpKLXxNk +Zqok+0PEz4su5T+5aNW525QT7Q+SBoVau/9wMV+koHh3sD9kHSofm57m4qC2 +8L7IQ/7wP8MJkhE= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.05652331209097666}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.05652331209097666}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJwV1nk4VO0bB3BRSUWiIluMOTP2kAgz3XdliaQUpd6KspSIFGNNUraivKjs +IglzKvWmkFZEWdqso5SkBVmyt/k9vz/mOtdn5jrXPOe5n/t7H5V9PlvchIWE +hIRnkA+5jnc+q2KeyVvtEHV9iVGL4eqmLNmgNW0RENTJPlXzYxHg4hf7ZNsS +oceVYZ/ygwm8zUWtIm25UOaR4RPywwAWDsgkTrXegseGvnXbf5jB+wpbn9HW +J9Bwf1h/eNgeLJi974ZbX4PXA9vOg0OuMNVqdH6o9SOkuJjm7ur1g8p1V/Ne +5Y7AoVCHi9E3IkHhfdnnfVp/4OzuMLvFE+dgkZdTkeg6EfSsqtU27EqGRD2L +e7YOc1BQq3FL6HcqtKfoPhqWFMeUmfXhlRFZcCbv+AvhpQtx5ISB9omzOSCT +3B2blCmNT60D4rLzLkO0vdXq1+OL0afXYKWv5xU4apzj9CxCFvvbu5Mbqatg +Nvgz2LtbDumHRjvPJBRA0Ppkjcf9cijpWJJ253wBXM/RFkiPy+GpkrXNnWkF +IGvvbFw2Rx7l5NYbsa4UQH9p9YSIjjzecIH8hLICSIpI8EsNlMd2ux99b7oK +4ONilneVuALmmuvKSOkWwgmO3V65VYr4JT1jbE9lIazfk/XDaK0ibp3lbc+q +LQSJ8L6TDjaKWC3UubC3vhAyKiPzE5wV8YJZ5VX3lkIotS7vmx2riGfUx4wN +vhXCkKMqb6RdEcc81zcoSxTBHv+x0/UhSti1VStqtUMRmFxPvR32cBnWm/Xd +iGwrArPWxj8Dtcsw2OYAT+VtEdgKzbR0er0Ms96Wi5e/LwKXLd7t0LMMS6w6 +r3d9LgKLEJXj4bOUUapc997csSI4vGz88hpNZWw3Tf9bKcmHqv3Z3yt5yng3 +b6/bG3M+WP02lgoNUcZZr0TtxKz40JjQZGgQrow2z9IlODZ8aC8TC8+LVcbq +trbpi1v4MDDPTyoyQxkF5h0V6k58kC1eb2TxRBmLLVNu3w7gg9fkcHituApe +9hDd7pHPBxNf9yWfpVQwsWijKK+QD3N6BXwRWRW8Ma43HUbz4UpHZctqhgpu +jrrwNPIWHzofnNcqMVTBmzlWZe4P+LAp0rgtx0kF96c27OI180Ff6sTykJsq +eKdU2KRRiAahM2NVKXdUsJC3dIOrCA2NIgd33rmngtnXXPjjs2jwHNsSOVyt +ggGm5Tsl59GQ18bs2C9QwaSwm6Eyi2lYkl0bZS/CwChRFyl/NRqmNCU7tR0Y +KHNS7bWPDQ3jmXInVuxkYNzfS8FRtjSMLqCYxk4MNBUIslI30zAwYnzQzIOB +KitEd5XY0/Dxnsv4zmMMnO5N+e/JLhqeb7grEXOFgczYNK2VXjTU3H98M76I +gQPP4IG0Nw1Vy+vtk24wsPFB7asBH5p82ZWWVcbAY/tZ4WlHabjVMZdd0sBA +O/P0WbXBNKR57oGPYwyMqJtcGBpDw8V3Bz5++UnW2yw9yjhNQ/Kmo5Hfpxmo +ltO95+kZGs6uiKmbFFNFcfNDL4XP0RDx6+b2BUqq+NLuw/It58n+nJl1mGOh +ivuLtddvyKGBw6cvXbigiuVH5mDRHRo6lPnZ5umqeMPXWL3xLg3BFwqzRrNV +McGWozBYSsPdE/kZWwpVMa/cR0XtHg36jpdSJCpUMftx8W3eQxrUZyUnRHWp +4uAp871RNTTUBieeW/lZFdkrVBVCamlwH0o4+6lXFTdRvV+8npH6dMTHrR1V +xTeMubct62hQvhUd83c2E5fkx2gKGkm9nELCeVpMPLCkROhoMw0lTUHHKT0m +htkbCxu30GBvHRjWtJKJM1JWKvwmTlzpH6oPTBTvik0PaqNBfL5P4IAdE6su +uzbbddBAnzgUkLmNiQ2iHgVCb2mwnvDk2fzDxPXxbRdp4piPB/yKXJl4UvJX +w693NMws23fYPYCJFr7+VwI+0HBZZ6/P4lAmDhhNeCzoomFtnpN3VTgTjzaN +2OYRHz+3y4txmonjjYdCqz/S8NNt24HODCaKyQwe7flEQ2qH/f74HCYer2y0 +du+hYZXdVndOPhMvUQ4Wn4h5nM2uaTfI+sDvWutnGoalrJ23PWFiqOcX64yv +NLR5MV4erGGi94UN2gu+0fDo6U84Xs9EwZXDpWHECcH8ZQUtTHwnW1m3tZeG +wKaT5yo6mOhSa+9QRuyss2v65QcmZo/4nJbvo0H34/z3U71MpGoW/mwmluX0 +2EoMMfGqxwxDnX7SbxfuP2CMMfFuiI3ySeIXVt5ZG6aZaGvRIKz6nYY7ly0k +nGdSWJlx+Pch4qw/SmF+YhT2Z1pfLSH2vvlid6Y0hX26p6RNB2jYNq+g4aYs +hdemHFoCiVe7hXOfKlJoJ1i78T9i1kPHawIGhV7/zArqJRZfqqc4yKZw/kXH +nUqDpB+PiMWLaFO4ddXksC3x2/qu3zL6FOqFXMJQYjo88S1yKDS5+ndWA3Gy +4KCNwxoKJdqXhw0Rhxqsq/CwoFCV61wsOUSD61l5rbANFOp02mZqE2/4OpKe +uJnCfId75pbE+mvr5111oNC5zq1oN7FcRl7IvZ0UbhyTqD9MLDwe2vfCiSL1 +DeSHE/ducvjnkyuFiTNcrOKJXxdq1016UDgllZh/gbhcZLapuA+F4ytrKzOI +c3d3Fqn4UZjSVZuTTRx7946cYRCFE7KOa/7vwwvPnbYOo7D1oMnldGJHz/0/ +95ykEIcNapOJsRoOHo0hthO/eZpYbZmsIDqewpDy2D3HiCWDhqwyEin89vnw +Ky/iyde1ZcUXKXSXOz13B/EHrRz16gwKvRmZc9cS10YFpbbnUFjqcOQ1m7j4 +g53YQD6FXUmv980lTjHRCBKmKZQ2j674RvYzPFn425KbFF7fsfNDNfH+AYGj +5h3yf1ZLXmQR267/rxbuUXhycVSsH7Fh7plV9o8o3LHOX9KSePY2juyx5xTO +Oykc/ZHUe+DGoph/X1C4eZ1JIJ+4Rez7xJUmCn8+Zhr7Euffz2xt7KRw2+IN +2iPkfJ2V4Vl2d1N4t5K57wYxz9f27sRXCnW7+z0OEJtT0xeURyjc3ho79pKc +309xztuOiLLw5M+30qHkvHv3ajF057NQ/Q2YUcQTllPfv0uy0JGeKKkj/TJX +JDHSQ46FbrJLnSWJdYMqbztrszDFUP5jIOnH8pZz4Ur6LGx7Iq87n3idwS6b +t4YszLz0oSrjCznvg6Pd25Hcz+RVl5B+PubGkt60lYXRvxUMa0gezK780Tnf +kYWnGKcbzIgTlB8WPd/FwuLva28+7P5/Pm5fa+HOQiHGPudrJE+e28X6coNY +KMYZP3yA5NGS1f0vNLNZ2K+SPbWb5Nul9NL0b5dZOLHdsqhYQPJ46tT+qwUs +HG8/d0uImHNbcZpxi4Uje7vrU0g+umhs0pGrZmGE7xtOIcnX4iW34ub0sbDg ++jC94QUNJn5hjk8HWailX6PjR/K48pU189QoC5US+6TTGkh94rrvTf9hYZCv +7LxOkt+/hRf3jUuy8bS84LEFyXurwQCrHkM2GsY3TKY/okFBTylqDoeNCsq+ +RyLJvBg4UvVEcw0bB2UY3zwfkH4dl+Qc2cDGfof4V8sraOj8U6gz7cRGq23P +CpPIPDoy/6300lg2di0x21p/jQYz24jNnLNs3PZ1pnQUTYNMglq8UxIbK2Jj +35PZBhXS/rPzM9k4mSnIzSkg+y0vMaV/i40vq1IHLC+T+aqOnTYdbOSHvgiZ +k0KDl+dnucMf2Hh2cFV40gUa4Frc9qQeNiY8j8qRJ/Pzk277y/ZBNlbX9qxW +TaRBZ9WRSveZanhUaO8MyTiyPxZ5BeHaavhOSiLO+TgN/S5zjt4+roY2Vu9m +9LiQ580yu//wlBpOapfKKe2jYbA9XLQuVg1tv2w6Y+9Mw49NU+ldSWpY+PZh +QBl5n5gw7a2SKFDD2eFTqS4OJG8W1S/xeKmGDfHJX4wtaFhada5cUUUdP73U +ax6jaPJ+LyMc/UQdP3PiHHre8eHbPssC0xp1XJb+ZPxKBx/icgJsh+rUsZkt +EeHazoc3Sm1pO5rVUWmL686OJj44L01dofVVHU/PTNIoruNDkIS82ytxDfzU +UyI+UcoHelKpVn6HBsqJbhEXSuSDVAPrbPGgBhpXp7/XXc2Hv4O6V56PaqBI +5PQrI1M+9EqZVnya0sA112cmc1bx4Ynjpl7ZmZrIbj1/BvT5cPRTgMUJWU0s +/LzRQ5PFh6ZftX/t1mjiuZ493enifLio4ekzkqiJZQOWv74IikAh5sZmQ0Mt +rFhOu3r7FEGKprGk9H5tNEv+3NaeWAjP5dasHPlXBxnSbUOpeQVgovAkYXnL +cjT/cPvkg/irICGS67c3QhfX8IYKzYPzQenEMs4Olh7mBBXn2q+7AmLUrjtb +avSQ1/F8WYZYHuhwl94I2K2P3/7JXiT4kAtHOqUqrYVWYEN/lvRQZg4MjsQ5 +WKWsQIcOXs2OI5fAcvnTNCttA9ycW1WQnZMFD0ZMf000GuBqy5yzm0wzwFtL +X/DKbSXKaFe3ai9IA+6Aa9MOMUMUi8zfGfn8IpgzZTeK5xqiUbv39YHK86AW +fjrwiZERWjo96ua/TwINN+OHlMAI0WbNVcXBf8HtwYFTt31XoYLjrv4S0wR4 +eKnJdXixMR5+u8reZHY8jBZMTyy/a4xTK3Vk736KBReKL5a20QRFLwh8g/Wi +YVgjyfDWkAn6zFqn6B5+CkrzfnWNxZiiyfOObI5BBOw0U0VTJQ7O1ZKw9qXC +Qf5QdJnOIw7GLOJsclwdCovnet3cuJ2L7NCv7d+bAyFv3bHgoR1cvGR37e+x +mkDQP3Z2XdIuLj789aVlUVkg2A4VN7ft5aLnmFbatoxAiGoZm3LxIr+f6jHU +cAmEydzja4NPcLGwOWSZ5I8AEJgmvcnnc7H1FWfzs0UBcMA/L8PqOhevzJ+7 +Qks0AMavl7j1F3OxbyEr7vwUD6QYbRN6d7iY+i4xNaSTBxvmKCrcf0TWd1Kr +L7mABxVN+a5vmrnYeUmk9CeXB9YSpdq8Ni7e59+TqdLlQZvls3HZDi66SD9r +TFLlwWh5X8yeD1xcN0vJ1EKMB9o5ute+9XLxaJlpy3iTP1QI1vDivnMxa69m ++Y8af7BetBWWD3Gx2/d9z2i5P7hH+7/yG+Nie2Xt/Pk5/jD6KCpNZpKLXxNk +Zqok+0PEz4su5T+5aNW525QT7Q+SBoVau/9wMV+koHh3sD9kHSofm57m4qC2 +8L7IQ/7wP8MJkhE= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.05652331209097666}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.05652331209097666}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}], ",", + RowBox[{"ListPlot", "[", + RowBox[{ + RowBox[{ + RowBox[{"{", "}"}], " ", + RowBox[{"{", + RowBox[{"0", ",", "0.005381`"}], "}"}]}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.015959`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.025999`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.035173`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.043213`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.049902`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.055111`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.058771`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.060904`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.061577`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.060934`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.059136`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.056395`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.052912`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.048907`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.044569`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.040087`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.035606`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.031259`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.027134`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.023309`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.019818`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.016691`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.013926`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.01152`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.009447`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.007687`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.006205`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.004972`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.003954`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.003124`"}], "}"}]}], "]"}]}], "]"}]], "Output", + CellChangeTimes->{3.993959742346178*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"8744e5e3-c973-4550-8f04-c4f4306ac290"] +}, Open ]], Cell[CellGroupData[{ @@ -2599,14 +7750,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.449577276890766`"], "Output", + CellChangeTimes->{3.991340544411957*^9, 3.9939597423817997`*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"fc06e429-42d5-4c26-b06d-71657030b706"] }, Open ]], Cell[CellGroupData[{ @@ -2662,157 +7811,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[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[\\\"3.5470662652062806`*^-261\\\", \ \\\"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, 16, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340544611845*^9, 3.993959742472475*^9}, CellLabel-> "During evaluation of \ -In[338]:=",ExpressionUUID->"dec01940-92d8-ec46-9a19-7eeb83f307cb"], +In[99]:=",ExpressionUUID->"50dfac4e-d26d-42bc-a803-c84448629854"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.752435063894365`*^-282\\\", \ + "\"\\!\\(\\*FractionBox[\\\"8.008813214263695`*^-271\\\", \ \\\"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, 17, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340544611845*^9, 3.9939597424787273`*^9}, CellLabel-> "During evaluation of \ -In[338]:=",ExpressionUUID->"b8576457-d231-bd44-9899-a0c0bb16b9e8"], +In[99]:=",ExpressionUUID->"bc29f965-1223-48bf-adf6-917f9d3935a6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8082856170501985`*^-280\\\", \ +\\\"78176755153939869305210274200729021751146846355456000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 99, 18, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340544611845*^9, 3.993959742486978*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"e326fcee-e23c-4503-87eb-b720f15a66c7"], 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, 19, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340544611845*^9, 3.993959742494948*^9}, CellLabel-> "During evaluation of \ -In[338]:=",ExpressionUUID->"8bc3094a-336c-7a48-a7ed-1449be3156c0"], +In[99]:=",ExpressionUUID->"905e8bf6-7afc-4b31-9dae-3fb7c08f8212"], 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:eJwV13s4lNsXB3A/EkqOkGvIMO/MuOSSlBhrOYlIriFFiggVpSvFDBWKJAop +l1CZVw45Urml5JKSErl0opTOCbmcUFL57fPHPPN8nud9ZvZes/Z3r9HwDXXx +FxYSEhL+H3mR9+m+x4+0EgoschzHlkQ0r7DoyFYMt+yOgVt7rTaVMGUAl7T5 +KnanwEhUWG4skwGHneguke480P+RYB/CNILFowopM11lILG/eo0L83for3YI +nex6CD+vGabOY7qAtdbQm4mudrB5pOHUr+kLM12rLo53DcCM8co8V/UwqF97 +o+BF3hdQrt9os6s1Bpb23/voq/sT1mn1rEquTQC5PT602FoRPO9RSslRKZBi +aF3l4CaO4iaPrZOupkFPhkHdhPQitGgP6NmZlwkJBbw2YaXFWKIiHixbmw0K +F96fTs2SxYG9+94ftrwKcZtsLdqnl2DM5XfJKgN5cMD0qs/jGEVsk1kcmhpV +AFZj3yNC3ivjfF1lx2Pd1yDa3HmH8mpVZPGzjoLoDVjzx6XyqPvqKO7Vneqp +XghWXc9+jjar4/PWemU1zUJwEJpn49Oujift1OXeUoXg5xLSA4Pq+Na+3Ntr +eSFYH9Pg8UWXoVq+k60JtxD2qU/nW+osw0vCGbtDtxTCo105n+sPL0OH2Vru +dEoh7Pk2wW9epIFde5IuuPwohDX7A+Q/ymigTr7Zqoq5QhAf6i0SUdRAicBr +nfIiArj2uv6VBUMDr9ndFG2TEEBf7UXd2yYauG1/hpGKggAcT5l2X/XRwOhp +v4cMQwEYyUTrH7ulgcPM5JFRXwEIJUw9yqjQQIeQXul//QXwTCR4S0WVBgbc +HDX8N1AAu6dcTk00aOCyyZrgTyECKOjWer2rVwMrMuXv/RkhAPmc5thNIgzs +fnz29Z3zApjRke7Tc2PgsqXVI1E1ApjOUo5esYWBCy9/iVtSJ4DJ35hapj4M +LHvDAsFDAYx+MQ22CmLgU9HFws1NAhio8pveEsnAYwVP3gy8EEDLhjtS8dcY +qOLdtChpUACZu7fBwBQD+7s3hFUtoCH9TeDA398ZKF853TMlScMFxwOnPs8x +cLBx1FfvNxqSVsQ/+Sahiac+pvSkytIQM3vL4zc1TXxg5eNjsZSG3Qmi+8yt +NTF50PmHhB4N5kU3c9PSNPHucQfpSHsaXi8ryll3WROFM4LemDnQEJEmyJ7M +0cSdvAHDb4403Im+fsVFoImi1k37g1xpMNqcmyFVTb4vYqfr8i00cEQvJMe+ +08SUZzvaLHfRIO9zjH9YVws7I21sz/NouN0RzmMaamFE+/6w/0XTsMnuaFTH +Si0M3BOuHRpDQ8rKQ8eNQAvDs9jr156iYZFk6NFRZy2cpTZZPjtDw7x7vvsC +jmjhljMHAkIv0jAhY7fd/aEWyvuPBL8tpKF7D+N5cJMWDqZ+DVGhaahr/A68 +p1qYIMXKdi2iITmiSL3wlRbW2EfyqoppMBiQ7J8Z0sKLy4Y2B5XREHKrzTtL +lokWG4Puc6tocF9Y2HpLkYmaLkMFG6ppsPDncxtVmXj62liVew1Zn5Kh6hiL +iUrR+vyd92m4yU/5C82Z6NS2au+2ehqGHN22ftjJxPeep1c/baGhXaD35FsQ +E5fc+x5Y/ISGSpH5ZotCmTiZ2vgi4SkNp+9UKJuEM/GM5goHfEYDW12xN+4s +E6WS+n7FvaBBOnzc9koKE2vicn65tNPwrb35Xmk6EwODnNeovKShOTb8Us9V +Jlonbd2V30HDrtHezToVTCyrHC5I6aLBYf2fzVBFnl8pe96mmwaTvITVm+qY +2O/TVz1DPN/dXDGyhYklxy073XppuF6T1fWsj4kPgCf/+S8aPiRudw8TozA8 +fZd1xjtSryFdhoEkhUfnJDwVB2j4ajPz+bM0hTaXaiTTiBeIpJwKUqYwdcP0 +5jPvSb3D68u361H465d0svsg2f+rc3w1IwpFxLMr6onXGnvZ/2VCoU8AP3r5 +R1L/scn3HkihuOVn0Z/Ekf6UrKMrhXfHFndG/kPWW/9vn+RmCtuGJzjdxMnL +7tMtXhT20TzK4BMNBa89frcOoHAsy12xh3i5qZbUvN0UbiwJl9IeIv2cNt7z +IJRCTYtfxUeJW5xP7+eGU1jwbWBIapj0Z4kbdzaS7O+4+ml34jeSDIl7MRTS +eofbLxOPN1XmGidSmKSzPFB9hPS7xUibTg6FmVa/ihZ8piH38t3Ln/IpTK+E +EiDmzJzcdaOQQqUjKjvCiM3LVecYZRSy03e1PyduXDzU8raCwuvXqlJ+EDuF +VqRlV1Fo6LRfhBqlwU/bcblyA4UL1Z5+3U88EqfyvesxhW6uHscvEB8e/Lvh +4jMKrddL/1lOLLS2/LzrSwpfPgq+0k58JpfvvbibQrE3vatHieV+2XPa/qKw +e7wjXmyMhqytSlOJ7yiUvtmaqEZM3Russ/tI4bz5a9atIC6VL0sUH6bwluW5 +snXEaw5GbW4co9D88++dbsT1L+y0Tk5SOPWupdiP2F5fYdxyhkIHqyzzUOJX +ie+r5n5SGHjCIOYo8fahkrgaYRZyPWejeMSfbI67HhNjoVbLwRUnicOurVc3 +lWThPKZcbizxD+Elw9PSLGwQdm74z7Hb31WUL2FhknV+/n/P/1ZbHBOmzEJb +1RNmfOIMlQgHA3UWVv4MPBtOzAi3Vh7VZOGywtZL+4hvvpL5WMRmoTWlvcOf +2MS4/1aQHgsXPPn63oO47nxRJMuIhfFGpYz1xLZjR2wHTVjYZdmqakK81FAt +VtychY2WtMQy4tGwRw91LFkYXc9x+K+eD8qD5xysWZjw4+/hYVLvC9PS5mEb +WLg4Nvp9K3HA6jtHLzqx8K5X6spiYtMI79t33Vho/LZy4DRx30/B8jkfFkps +fehkRlwKTrsZ/iy8MNcnI018Inr6xrpgsj/6jNEA6Re26FqNxIMsvHRd8mwU +8XfrT94l4Sw0KGc8Xk/cGn8usz2KhfmWNv7SxGGSf8kqnWbh8RioSyf9a+UQ +42SexMKm7258D2KFZPZZn1QWUseF8uWIq2UPzb+excLidZdl4kj/J7mprH2c +x8JRlxfbzYl3pD/gjdxgYd+/lNwYOU/zVaRmjMpYaJ9Yd9OeuNurfKX7HRZu +XLsx9Ss5j0XZW8LCq1kYK5bwLofYiXFj+H4jC32g5M4/5DxncrDP/jULf2Y2 +eG39m4Y9uz8q73vLQiN3kdQJkgdQnOiROsjC2RuUySniDwY9z3vGWLja+H5D +AcmT5avD6gPmsTHv559LG0j+CEUoCp2RYOPkZPpTa+KXVbXmxVJsbJYtHm0g +eXUUFlZ8UWSj2waFxGqSb/XWBYV8PTbavKqwSOinIS3ebjDfiI2SDSMp3/po +CGwZ12haxcYLU7e3+RFLOXAvL/qdjVtr7/kYvqFhs9urs5nubIxLzFEuIXk6 +4id+oJzHxrW/NS4y6iT9km1Vc/8kG09UsjIjSF6P9fDFnpxm4xUj9bo6kuf/ +Os5cfpdK1s85/HodyfuvZkOPpArZuC7dz3dFGw3Cck/lg56z8fsaY5srzeR+ +dBTfcbCTjQIbpZraJhpEz1gV8XrZqH/YuauvkQZxoRpI+8DGuQ8HZxUayHpH +igPrv7ExYqJoScgDGpQenatU1eBg69khHfoeDcpzT+ZxKA6eE/MyvXGX9Psa +cUdjHQ76R7Cnr96hQa2U/95uJQeD5bP5ybdp0LqyX/KoLQevyGePON8ieX/Q +dVv7fg4yhAdrA8j9bK2lIBz3kIPdDUy7NxfIefe1KTRr4uCmRPupG6k0JF49 +4jD+hIOHjsaX7kshv49ad6ZnJwezZnI8f5wjeaF0aYXuPxzkJc/E/iDzQLiU +iv+LRdqope7ckcsn5/mbWrOKpzaeNOkIiwymwXGVY8hzb22cVKDtFgaReh7i +yZ3y1Ua76tF16WQ+Mf3Sv310tzbGKZsJBDtJ/n7OnamL0sZjYhzju9to6B9g +6AQUaOPNA5yPx11okGmlkkrHtPGr4IKSYDUNv8YMrrVMamNnv2VQtwm572XM +qj/MaGOGm3Ou6EoaHm52HFKcp4Nx+zqaPA1pOPDhiHW0og6Zr7RkP3Fo6Jht +/uVsqYOdP7Y4FyiT+U57d+iXFB2UE0vkpH4XwNL4EicTE13MOdv2mF8uAPqP +4vqZNbp4/aDQE48yAazuLDKpAV2U29ZI6ZUKYBOjcKmVrS7ORHeNtxcJILE6 +9x9nL10c+cQfWJAvgNnx8/y9Mbp47G1Hly6ZX3s9D5YWPNPFALeWUe4eAWTo +mErL7tJDwbCvWbUqmUeVLVd+Ob8cLQe1XRccIPP50ofJ+q/0cSHHPiUw/wZI +ieQd3BFjgAULu6OS266DWrS6uSdliB9eHuzJ6LkGEkyvCpcmQ4yemdna11sA +y7lKJUe8jXDh7Y5C+w/5ENYnU28ntAItinVvybXnwdiXRDfbjBWo4SUsbP3s +KtjoN2ba6hkjXdPFg2e5UPvFbPbrM2Mc0vVzPxGWAyG6Rr0v/FdimM1evWUH +soA7urPDU8IEm3udNpe7XCb/sxQ3LsozwdHJsws++l4CNv/M0YerVmGZt4e2 +fkI6aPub3mf2rsJWOYa4ZPZF8K8NPFm+fzXWBm4Xkx1Mhfu5HTsnlpiiz0Mn +kQHVFJgsnPuqf8cUV7J7PfSOJIMfs0gic+MaDOu0mgibnwQT2qkmZeNr0MYs +tez04gS4WzD7bireDHWTjUU7I+Nhi5UmmqmZ42DU26g3jFhQ2Rt3b3mdOVo+ +VQr+8ugELFmw59ZGDy6qjKWlPamKhoK1kRHjnlw883PBOdk/o8EoMmltqhcX +m2TE67bR0eAwXtrZvYOLPnGpj39lREPsq6kZvz1crFiStsf/cDR8y+P9HhHN +xbfp1lFPDaOh1yz15fUiLpYpmKv+ovkQeKjgiu0fXGzZy9G8mceH6T9u+4+U +ks+7nevknckHGUb3V8MKLloMTak/Ps2HDeKqS2vquHh90XV+YyAfqjuu73zZ +ycWgKL+nHiw+2End1TvczcV1gS1iq9X50G3zeFrxNRdvCO7uUFHgw2TlcPy2 +t1w08ukPGZ7PB72rBsWfhrhY+9K3ekcrD6p7LQ8nfuYiU9931rWGB3ZyrqA/ +zkXOa4MQ+2IeBMQdenFwioutr5OHHM/yYLIuNlPhGxfjFzyZ2BLJg5jv6X6V +37kYAxR7z14eSBsLdL1/cjE1+FDiCW8eZO+tnJqb42LowBnVqxt58H8WU31/ + "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -2826,116 +7977,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:eJwV13s4lNsXB3A/EkqOkGvIMO/MuOSSlBhrOYlIriFFiggVpSvFDBWKJAop +l1CZVw45Urml5JKSErl0opTOCbmcUFL57fPHPPN8nud9ZvZes/Z3r9HwDXXx +FxYSEhL+H3mR9+m+x4+0EgoschzHlkQ0r7DoyFYMt+yOgVt7rTaVMGUAl7T5 +KnanwEhUWG4skwGHneguke480P+RYB/CNILFowopM11lILG/eo0L83for3YI +nex6CD+vGabOY7qAtdbQm4mudrB5pOHUr+kLM12rLo53DcCM8co8V/UwqF97 +o+BF3hdQrt9os6s1Bpb23/voq/sT1mn1rEquTQC5PT602FoRPO9RSslRKZBi +aF3l4CaO4iaPrZOupkFPhkHdhPQitGgP6NmZlwkJBbw2YaXFWKIiHixbmw0K +F96fTs2SxYG9+94ftrwKcZtsLdqnl2DM5XfJKgN5cMD0qs/jGEVsk1kcmhpV +AFZj3yNC3ivjfF1lx2Pd1yDa3HmH8mpVZPGzjoLoDVjzx6XyqPvqKO7Vneqp +XghWXc9+jjar4/PWemU1zUJwEJpn49Oujift1OXeUoXg5xLSA4Pq+Na+3Ntr +eSFYH9Pg8UWXoVq+k60JtxD2qU/nW+osw0vCGbtDtxTCo105n+sPL0OH2Vru +dEoh7Pk2wW9epIFde5IuuPwohDX7A+Q/ymigTr7Zqoq5QhAf6i0SUdRAicBr +nfIiArj2uv6VBUMDr9ndFG2TEEBf7UXd2yYauG1/hpGKggAcT5l2X/XRwOhp +v4cMQwEYyUTrH7ulgcPM5JFRXwEIJUw9yqjQQIeQXul//QXwTCR4S0WVBgbc +HDX8N1AAu6dcTk00aOCyyZrgTyECKOjWer2rVwMrMuXv/RkhAPmc5thNIgzs +fnz29Z3zApjRke7Tc2PgsqXVI1E1ApjOUo5esYWBCy9/iVtSJ4DJ35hapj4M +LHvDAsFDAYx+MQ22CmLgU9HFws1NAhio8pveEsnAYwVP3gy8EEDLhjtS8dcY +qOLdtChpUACZu7fBwBQD+7s3hFUtoCH9TeDA398ZKF853TMlScMFxwOnPs8x +cLBx1FfvNxqSVsQ/+Sahiac+pvSkytIQM3vL4zc1TXxg5eNjsZSG3Qmi+8yt +NTF50PmHhB4N5kU3c9PSNPHucQfpSHsaXi8ryll3WROFM4LemDnQEJEmyJ7M +0cSdvAHDb4403Im+fsVFoImi1k37g1xpMNqcmyFVTb4vYqfr8i00cEQvJMe+ +08SUZzvaLHfRIO9zjH9YVws7I21sz/NouN0RzmMaamFE+/6w/0XTsMnuaFTH +Si0M3BOuHRpDQ8rKQ8eNQAvDs9jr156iYZFk6NFRZy2cpTZZPjtDw7x7vvsC +jmjhljMHAkIv0jAhY7fd/aEWyvuPBL8tpKF7D+N5cJMWDqZ+DVGhaahr/A68 +p1qYIMXKdi2iITmiSL3wlRbW2EfyqoppMBiQ7J8Z0sKLy4Y2B5XREHKrzTtL +lokWG4Puc6tocF9Y2HpLkYmaLkMFG6ppsPDncxtVmXj62liVew1Zn5Kh6hiL +iUrR+vyd92m4yU/5C82Z6NS2au+2ehqGHN22ftjJxPeep1c/baGhXaD35FsQ +E5fc+x5Y/ISGSpH5ZotCmTiZ2vgi4SkNp+9UKJuEM/GM5goHfEYDW12xN+4s +E6WS+n7FvaBBOnzc9koKE2vicn65tNPwrb35Xmk6EwODnNeovKShOTb8Us9V +Jlonbd2V30HDrtHezToVTCyrHC5I6aLBYf2fzVBFnl8pe96mmwaTvITVm+qY +2O/TVz1DPN/dXDGyhYklxy073XppuF6T1fWsj4kPgCf/+S8aPiRudw8TozA8 +fZd1xjtSryFdhoEkhUfnJDwVB2j4ajPz+bM0hTaXaiTTiBeIpJwKUqYwdcP0 +5jPvSb3D68u361H465d0svsg2f+rc3w1IwpFxLMr6onXGnvZ/2VCoU8AP3r5 +R1L/scn3HkihuOVn0Z/Ekf6UrKMrhXfHFndG/kPWW/9vn+RmCtuGJzjdxMnL +7tMtXhT20TzK4BMNBa89frcOoHAsy12xh3i5qZbUvN0UbiwJl9IeIv2cNt7z +IJRCTYtfxUeJW5xP7+eGU1jwbWBIapj0Z4kbdzaS7O+4+ml34jeSDIl7MRTS +eofbLxOPN1XmGidSmKSzPFB9hPS7xUibTg6FmVa/ihZ8piH38t3Ln/IpTK+E +EiDmzJzcdaOQQqUjKjvCiM3LVecYZRSy03e1PyduXDzU8raCwuvXqlJ+EDuF +VqRlV1Fo6LRfhBqlwU/bcblyA4UL1Z5+3U88EqfyvesxhW6uHscvEB8e/Lvh +4jMKrddL/1lOLLS2/LzrSwpfPgq+0k58JpfvvbibQrE3vatHieV+2XPa/qKw +e7wjXmyMhqytSlOJ7yiUvtmaqEZM3Russ/tI4bz5a9atIC6VL0sUH6bwluW5 +snXEaw5GbW4co9D88++dbsT1L+y0Tk5SOPWupdiP2F5fYdxyhkIHqyzzUOJX +ie+r5n5SGHjCIOYo8fahkrgaYRZyPWejeMSfbI67HhNjoVbLwRUnicOurVc3 +lWThPKZcbizxD+Elw9PSLGwQdm74z7Hb31WUL2FhknV+/n/P/1ZbHBOmzEJb +1RNmfOIMlQgHA3UWVv4MPBtOzAi3Vh7VZOGywtZL+4hvvpL5WMRmoTWlvcOf +2MS4/1aQHgsXPPn63oO47nxRJMuIhfFGpYz1xLZjR2wHTVjYZdmqakK81FAt +VtychY2WtMQy4tGwRw91LFkYXc9x+K+eD8qD5xysWZjw4+/hYVLvC9PS5mEb +WLg4Nvp9K3HA6jtHLzqx8K5X6spiYtMI79t33Vho/LZy4DRx30/B8jkfFkps +fehkRlwKTrsZ/iy8MNcnI018Inr6xrpgsj/6jNEA6Re26FqNxIMsvHRd8mwU +8XfrT94l4Sw0KGc8Xk/cGn8usz2KhfmWNv7SxGGSf8kqnWbh8RioSyf9a+UQ +42SexMKm7258D2KFZPZZn1QWUseF8uWIq2UPzb+excLidZdl4kj/J7mprH2c +x8JRlxfbzYl3pD/gjdxgYd+/lNwYOU/zVaRmjMpYaJ9Yd9OeuNurfKX7HRZu +XLsx9Ss5j0XZW8LCq1kYK5bwLofYiXFj+H4jC32g5M4/5DxncrDP/jULf2Y2 +eG39m4Y9uz8q73vLQiN3kdQJkgdQnOiROsjC2RuUySniDwY9z3vGWLja+H5D +AcmT5avD6gPmsTHv559LG0j+CEUoCp2RYOPkZPpTa+KXVbXmxVJsbJYtHm0g +eXUUFlZ8UWSj2waFxGqSb/XWBYV8PTbavKqwSOinIS3ebjDfiI2SDSMp3/po +CGwZ12haxcYLU7e3+RFLOXAvL/qdjVtr7/kYvqFhs9urs5nubIxLzFEuIXk6 +4id+oJzHxrW/NS4y6iT9km1Vc/8kG09UsjIjSF6P9fDFnpxm4xUj9bo6kuf/ +Os5cfpdK1s85/HodyfuvZkOPpArZuC7dz3dFGw3Cck/lg56z8fsaY5srzeR+ +dBTfcbCTjQIbpZraJhpEz1gV8XrZqH/YuauvkQZxoRpI+8DGuQ8HZxUayHpH +igPrv7ExYqJoScgDGpQenatU1eBg69khHfoeDcpzT+ZxKA6eE/MyvXGX9Psa +cUdjHQ76R7Cnr96hQa2U/95uJQeD5bP5ybdp0LqyX/KoLQevyGePON8ieX/Q +dVv7fg4yhAdrA8j9bK2lIBz3kIPdDUy7NxfIefe1KTRr4uCmRPupG6k0JF49 +4jD+hIOHjsaX7kshv49ad6ZnJwezZnI8f5wjeaF0aYXuPxzkJc/E/iDzQLiU +iv+LRdqope7ckcsn5/mbWrOKpzaeNOkIiwymwXGVY8hzb22cVKDtFgaReh7i +yZ3y1Ua76tF16WQ+Mf3Sv310tzbGKZsJBDtJ/n7OnamL0sZjYhzju9to6B9g +6AQUaOPNA5yPx11okGmlkkrHtPGr4IKSYDUNv8YMrrVMamNnv2VQtwm572XM +qj/MaGOGm3Ou6EoaHm52HFKcp4Nx+zqaPA1pOPDhiHW0og6Zr7RkP3Fo6Jht +/uVsqYOdP7Y4FyiT+U57d+iXFB2UE0vkpH4XwNL4EicTE13MOdv2mF8uAPqP +4vqZNbp4/aDQE48yAazuLDKpAV2U29ZI6ZUKYBOjcKmVrS7ORHeNtxcJILE6 +9x9nL10c+cQfWJAvgNnx8/y9Mbp47G1Hly6ZX3s9D5YWPNPFALeWUe4eAWTo +mErL7tJDwbCvWbUqmUeVLVd+Ob8cLQe1XRccIPP50ofJ+q/0cSHHPiUw/wZI +ieQd3BFjgAULu6OS266DWrS6uSdliB9eHuzJ6LkGEkyvCpcmQ4yemdna11sA +y7lKJUe8jXDh7Y5C+w/5ENYnU28ntAItinVvybXnwdiXRDfbjBWo4SUsbP3s +KtjoN2ba6hkjXdPFg2e5UPvFbPbrM2Mc0vVzPxGWAyG6Rr0v/FdimM1evWUH +soA7urPDU8IEm3udNpe7XCb/sxQ3LsozwdHJsws++l4CNv/M0YerVmGZt4e2 +fkI6aPub3mf2rsJWOYa4ZPZF8K8NPFm+fzXWBm4Xkx1Mhfu5HTsnlpiiz0Mn +kQHVFJgsnPuqf8cUV7J7PfSOJIMfs0gic+MaDOu0mgibnwQT2qkmZeNr0MYs +tez04gS4WzD7bireDHWTjUU7I+Nhi5UmmqmZ42DU26g3jFhQ2Rt3b3mdOVo+ +VQr+8ugELFmw59ZGDy6qjKWlPamKhoK1kRHjnlw883PBOdk/o8EoMmltqhcX +m2TE67bR0eAwXtrZvYOLPnGpj39lREPsq6kZvz1crFiStsf/cDR8y+P9HhHN +xbfp1lFPDaOh1yz15fUiLpYpmKv+ovkQeKjgiu0fXGzZy9G8mceH6T9u+4+U +ks+7nevknckHGUb3V8MKLloMTak/Ps2HDeKqS2vquHh90XV+YyAfqjuu73zZ +ycWgKL+nHiw+2End1TvczcV1gS1iq9X50G3zeFrxNRdvCO7uUFHgw2TlcPy2 +t1w08ukPGZ7PB72rBsWfhrhY+9K3ekcrD6p7LQ8nfuYiU9931rWGB3ZyrqA/ +zkXOa4MQ+2IeBMQdenFwioutr5OHHM/yYLIuNlPhGxfjFzyZ2BLJg5jv6X6V +37kYAxR7z14eSBsLdL1/cjE1+FDiCW8eZO+tnJqb42LowBnVqxt58H8WU31/ + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "PlotRange" -> {{0, 30}, {0., 0.052608691774826556`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +8097,19 @@ C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "PlotRange" -> {{0, 30}, {0., 0.052608691774826556`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +8123,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:eJwV13s4lNsXB3A/EkqOkGvIMO/MuOSSlBhrOYlIriFFiggVpSvFDBWKJAop +l1CZVw45Urml5JKSErl0opTOCbmcUFL57fPHPPN8nud9ZvZes/Z3r9HwDXXx +FxYSEhL+H3mR9+m+x4+0EgoschzHlkQ0r7DoyFYMt+yOgVt7rTaVMGUAl7T5 +KnanwEhUWG4skwGHneguke480P+RYB/CNILFowopM11lILG/eo0L83for3YI +nex6CD+vGabOY7qAtdbQm4mudrB5pOHUr+kLM12rLo53DcCM8co8V/UwqF97 +o+BF3hdQrt9os6s1Bpb23/voq/sT1mn1rEquTQC5PT602FoRPO9RSslRKZBi +aF3l4CaO4iaPrZOupkFPhkHdhPQitGgP6NmZlwkJBbw2YaXFWKIiHixbmw0K +F96fTs2SxYG9+94ftrwKcZtsLdqnl2DM5XfJKgN5cMD0qs/jGEVsk1kcmhpV +AFZj3yNC3ivjfF1lx2Pd1yDa3HmH8mpVZPGzjoLoDVjzx6XyqPvqKO7Vneqp +XghWXc9+jjar4/PWemU1zUJwEJpn49Oujift1OXeUoXg5xLSA4Pq+Na+3Ntr +eSFYH9Pg8UWXoVq+k60JtxD2qU/nW+osw0vCGbtDtxTCo105n+sPL0OH2Vru +dEoh7Pk2wW9epIFde5IuuPwohDX7A+Q/ymigTr7Zqoq5QhAf6i0SUdRAicBr +nfIiArj2uv6VBUMDr9ndFG2TEEBf7UXd2yYauG1/hpGKggAcT5l2X/XRwOhp +v4cMQwEYyUTrH7ulgcPM5JFRXwEIJUw9yqjQQIeQXul//QXwTCR4S0WVBgbc +HDX8N1AAu6dcTk00aOCyyZrgTyECKOjWer2rVwMrMuXv/RkhAPmc5thNIgzs +fnz29Z3zApjRke7Tc2PgsqXVI1E1ApjOUo5esYWBCy9/iVtSJ4DJ35hapj4M +LHvDAsFDAYx+MQ22CmLgU9HFws1NAhio8pveEsnAYwVP3gy8EEDLhjtS8dcY +qOLdtChpUACZu7fBwBQD+7s3hFUtoCH9TeDA398ZKF853TMlScMFxwOnPs8x +cLBx1FfvNxqSVsQ/+Sahiac+pvSkytIQM3vL4zc1TXxg5eNjsZSG3Qmi+8yt +NTF50PmHhB4N5kU3c9PSNPHucQfpSHsaXi8ryll3WROFM4LemDnQEJEmyJ7M +0cSdvAHDb4403Im+fsVFoImi1k37g1xpMNqcmyFVTb4vYqfr8i00cEQvJMe+ +08SUZzvaLHfRIO9zjH9YVws7I21sz/NouN0RzmMaamFE+/6w/0XTsMnuaFTH +Si0M3BOuHRpDQ8rKQ8eNQAvDs9jr156iYZFk6NFRZy2cpTZZPjtDw7x7vvsC +jmjhljMHAkIv0jAhY7fd/aEWyvuPBL8tpKF7D+N5cJMWDqZ+DVGhaahr/A68 +p1qYIMXKdi2iITmiSL3wlRbW2EfyqoppMBiQ7J8Z0sKLy4Y2B5XREHKrzTtL +lokWG4Puc6tocF9Y2HpLkYmaLkMFG6ppsPDncxtVmXj62liVew1Zn5Kh6hiL +iUrR+vyd92m4yU/5C82Z6NS2au+2ehqGHN22ftjJxPeep1c/baGhXaD35FsQ +E5fc+x5Y/ISGSpH5ZotCmTiZ2vgi4SkNp+9UKJuEM/GM5goHfEYDW12xN+4s +E6WS+n7FvaBBOnzc9koKE2vicn65tNPwrb35Xmk6EwODnNeovKShOTb8Us9V +Jlonbd2V30HDrtHezToVTCyrHC5I6aLBYf2fzVBFnl8pe96mmwaTvITVm+qY +2O/TVz1DPN/dXDGyhYklxy073XppuF6T1fWsj4kPgCf/+S8aPiRudw8TozA8 +fZd1xjtSryFdhoEkhUfnJDwVB2j4ajPz+bM0hTaXaiTTiBeIpJwKUqYwdcP0 +5jPvSb3D68u361H465d0svsg2f+rc3w1IwpFxLMr6onXGnvZ/2VCoU8AP3r5 +R1L/scn3HkihuOVn0Z/Ekf6UrKMrhXfHFndG/kPWW/9vn+RmCtuGJzjdxMnL +7tMtXhT20TzK4BMNBa89frcOoHAsy12xh3i5qZbUvN0UbiwJl9IeIv2cNt7z +IJRCTYtfxUeJW5xP7+eGU1jwbWBIapj0Z4kbdzaS7O+4+ml34jeSDIl7MRTS +eofbLxOPN1XmGidSmKSzPFB9hPS7xUibTg6FmVa/ihZ8piH38t3Ln/IpTK+E +EiDmzJzcdaOQQqUjKjvCiM3LVecYZRSy03e1PyduXDzU8raCwuvXqlJ+EDuF +VqRlV1Fo6LRfhBqlwU/bcblyA4UL1Z5+3U88EqfyvesxhW6uHscvEB8e/Lvh +4jMKrddL/1lOLLS2/LzrSwpfPgq+0k58JpfvvbibQrE3vatHieV+2XPa/qKw +e7wjXmyMhqytSlOJ7yiUvtmaqEZM3Russ/tI4bz5a9atIC6VL0sUH6bwluW5 +snXEaw5GbW4co9D88++dbsT1L+y0Tk5SOPWupdiP2F5fYdxyhkIHqyzzUOJX +ie+r5n5SGHjCIOYo8fahkrgaYRZyPWejeMSfbI67HhNjoVbLwRUnicOurVc3 +lWThPKZcbizxD+Elw9PSLGwQdm74z7Hb31WUL2FhknV+/n/P/1ZbHBOmzEJb +1RNmfOIMlQgHA3UWVv4MPBtOzAi3Vh7VZOGywtZL+4hvvpL5WMRmoTWlvcOf +2MS4/1aQHgsXPPn63oO47nxRJMuIhfFGpYz1xLZjR2wHTVjYZdmqakK81FAt +VtychY2WtMQy4tGwRw91LFkYXc9x+K+eD8qD5xysWZjw4+/hYVLvC9PS5mEb +WLg4Nvp9K3HA6jtHLzqx8K5X6spiYtMI79t33Vho/LZy4DRx30/B8jkfFkps +fehkRlwKTrsZ/iy8MNcnI018Inr6xrpgsj/6jNEA6Re26FqNxIMsvHRd8mwU +8XfrT94l4Sw0KGc8Xk/cGn8usz2KhfmWNv7SxGGSf8kqnWbh8RioSyf9a+UQ +42SexMKm7258D2KFZPZZn1QWUseF8uWIq2UPzb+excLidZdl4kj/J7mprH2c +x8JRlxfbzYl3pD/gjdxgYd+/lNwYOU/zVaRmjMpYaJ9Yd9OeuNurfKX7HRZu +XLsx9Ss5j0XZW8LCq1kYK5bwLofYiXFj+H4jC32g5M4/5DxncrDP/jULf2Y2 +eG39m4Y9uz8q73vLQiN3kdQJkgdQnOiROsjC2RuUySniDwY9z3vGWLja+H5D +AcmT5avD6gPmsTHv559LG0j+CEUoCp2RYOPkZPpTa+KXVbXmxVJsbJYtHm0g +eXUUFlZ8UWSj2waFxGqSb/XWBYV8PTbavKqwSOinIS3ebjDfiI2SDSMp3/po +CGwZ12haxcYLU7e3+RFLOXAvL/qdjVtr7/kYvqFhs9urs5nubIxLzFEuIXk6 +4id+oJzHxrW/NS4y6iT9km1Vc/8kG09UsjIjSF6P9fDFnpxm4xUj9bo6kuf/ +Os5cfpdK1s85/HodyfuvZkOPpArZuC7dz3dFGw3Cck/lg56z8fsaY5srzeR+ +dBTfcbCTjQIbpZraJhpEz1gV8XrZqH/YuauvkQZxoRpI+8DGuQ8HZxUayHpH +igPrv7ExYqJoScgDGpQenatU1eBg69khHfoeDcpzT+ZxKA6eE/MyvXGX9Psa +cUdjHQ76R7Cnr96hQa2U/95uJQeD5bP5ybdp0LqyX/KoLQevyGePON8ieX/Q +dVv7fg4yhAdrA8j9bK2lIBz3kIPdDUy7NxfIefe1KTRr4uCmRPupG6k0JF49 +4jD+hIOHjsaX7kshv49ad6ZnJwezZnI8f5wjeaF0aYXuPxzkJc/E/iDzQLiU +iv+LRdqope7ckcsn5/mbWrOKpzaeNOkIiwymwXGVY8hzb22cVKDtFgaReh7i +yZ3y1Ua76tF16WQ+Mf3Sv310tzbGKZsJBDtJ/n7OnamL0sZjYhzju9to6B9g +6AQUaOPNA5yPx11okGmlkkrHtPGr4IKSYDUNv8YMrrVMamNnv2VQtwm572XM +qj/MaGOGm3Ou6EoaHm52HFKcp4Nx+zqaPA1pOPDhiHW0og6Zr7RkP3Fo6Jht +/uVsqYOdP7Y4FyiT+U57d+iXFB2UE0vkpH4XwNL4EicTE13MOdv2mF8uAPqP +4vqZNbp4/aDQE48yAazuLDKpAV2U29ZI6ZUKYBOjcKmVrS7ORHeNtxcJILE6 +9x9nL10c+cQfWJAvgNnx8/y9Mbp47G1Hly6ZX3s9D5YWPNPFALeWUe4eAWTo +mErL7tJDwbCvWbUqmUeVLVd+Ob8cLQe1XRccIPP50ofJ+q/0cSHHPiUw/wZI +ieQd3BFjgAULu6OS266DWrS6uSdliB9eHuzJ6LkGEkyvCpcmQ4yemdna11sA +y7lKJUe8jXDh7Y5C+w/5ENYnU28ntAItinVvybXnwdiXRDfbjBWo4SUsbP3s +KtjoN2ba6hkjXdPFg2e5UPvFbPbrM2Mc0vVzPxGWAyG6Rr0v/FdimM1evWUH +soA7urPDU8IEm3udNpe7XCb/sxQ3LsozwdHJsws++l4CNv/M0YerVmGZt4e2 +fkI6aPub3mf2rsJWOYa4ZPZF8K8NPFm+fzXWBm4Xkx1Mhfu5HTsnlpiiz0Mn +kQHVFJgsnPuqf8cUV7J7PfSOJIMfs0gic+MaDOu0mgibnwQT2qkmZeNr0MYs +tez04gS4WzD7bireDHWTjUU7I+Nhi5UmmqmZ42DU26g3jFhQ2Rt3b3mdOVo+ +VQr+8ugELFmw59ZGDy6qjKWlPamKhoK1kRHjnlw883PBOdk/o8EoMmltqhcX +m2TE67bR0eAwXtrZvYOLPnGpj39lREPsq6kZvz1crFiStsf/cDR8y+P9HhHN +xbfp1lFPDaOh1yz15fUiLpYpmKv+ovkQeKjgiu0fXGzZy9G8mceH6T9u+4+U +ks+7nevknckHGUb3V8MKLloMTak/Ps2HDeKqS2vquHh90XV+YyAfqjuu73zZ +ycWgKL+nHiw+2End1TvczcV1gS1iq9X50G3zeFrxNRdvCO7uUFHgw2TlcPy2 +t1w08ukPGZ7PB72rBsWfhrhY+9K3ekcrD6p7LQ8nfuYiU9931rWGB3ZyrqA/ +zkXOa4MQ+2IeBMQdenFwioutr5OHHM/yYLIuNlPhGxfjFzyZ2BLJg5jv6X6V +37kYAxR7z14eSBsLdL1/cjE1+FDiCW8eZO+tnJqb42LowBnVqxt58H8WU31/ + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "PlotRange" -> {{0, 30}, {0., 0.052608691774826556`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +8241,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 +8269,8 @@ C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.060553949877372025`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.052608691774826556`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -3127,9 +8278,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.993960177088481*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"1d97d1bb-be09-4ac1-a43f-990bd915c459"] }, Open ]], Cell[CellGroupData[{ @@ -3182,66 +8332,72 @@ 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.9317859838661827`*^-171\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 100, 20, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340881982744*^9, 3.993960177167506*^9}, CellLabel-> "During evaluation of \ -In[339]:=",ExpressionUUID->"6b02dcd6-679e-e045-823b-19e8112735bb"], +In[100]:=",ExpressionUUID->"bfb906e1-9072-46a3-a8b5-f14e2415d957"], 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.1612864786621942`*^-174\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 100, 21, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340881982744*^9, 3.993960177174436*^9}, CellLabel-> "During evaluation of \ -In[339]:=",ExpressionUUID->"1777b2e8-4814-3b40-9d26-e365522e2fa7"], +In[100]:=",ExpressionUUID->"fcbdfaed-04c2-4089-a9d2-945c17a77c27"], 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[\\\"6.981033596820306`*^-178\\\", \ +RowBox[{\\\"\ +161198658118785115956678299518758546564525592888043685145303185612679\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"8\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3109099682969421627018644700669916936247705600000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 100, 22, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340881982744*^9, 3.9939601771815453`*^9}, CellLabel-> "During evaluation of \ -In[339]:=",ExpressionUUID->"343e800a-6390-7b48-892a-7785bb4151c8"], +In[100]:=",ExpressionUUID->"57911859-7c89-4f0d-a9e0-49b566c47b6f"], 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, 23, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340881982744*^9, 3.993960177188311*^9}, CellLabel-> "During evaluation of \ -In[339]:=",ExpressionUUID->"30a8c837-a97a-f04a-b90a-1e6b32a15ee9"], +In[100]:=",ExpressionUUID->"a0b23b2b-55b7-4caa-9e88-86c68381c39d"], -Cell[BoxData["12.553654989521348`"], "Output", - CellChangeTimes->{3.9913408882266617`*^9}, +Cell[BoxData["14.443777368723445`"], "Output", + CellChangeTimes->{3.9913408882266617`*^9, 3.993960221663093*^9}, CellLabel-> - "Out[339]=",ExpressionUUID->"ae05a7c3-f5d6-d640-8f8e-efe8f63ceb63"] + "Out[100]=",ExpressionUUID->"053885aa-6ae2-4a58-97ed-9d9032de7a2c"] }, Open ]], Cell[CellGroupData[{ @@ -3309,68 +8465,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[\\\"2.5400457702965323`*^-237\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 101, 24, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913408882626343`*^9, 3.993960221713908*^9}, CellLabel-> "During evaluation of \ -In[340]:=",ExpressionUUID->"089dc3ff-480d-db4f-bbed-05630517df59"], +In[101]:=",ExpressionUUID->"7002e965-8cb0-400d-bc5f-41fcfd73e079"], 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.7190609939935228`*^-244\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 101, 25, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913408882626343`*^9, 3.993960221720274*^9}, CellLabel-> "During evaluation of \ -In[340]:=",ExpressionUUID->"6e93a9b9-9460-8649-881d-48f37a709a1b"], +In[101]:=",ExpressionUUID->"54759fac-f2f7-44ae-a898-dd4f0162f421"], 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.1634320671020835`*^-251\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 101, 26, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913408882626343`*^9, 3.9939602217266273`*^9}, CellLabel-> "During evaluation of \ -In[340]:=",ExpressionUUID->"1ee8858a-971e-d34f-bafe-57ab88be1238"], +In[101]:=",ExpressionUUID->"318c763e-2b9c-420c-b7f8-18e848f98b1b"], 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, 27, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913408882626343`*^9, 3.993960221733665*^9}, CellLabel-> "During evaluation of \ -In[340]:=",ExpressionUUID->"96f8e027-4313-4f4f-a21d-2291fe960276"], +In[101]:=",ExpressionUUID->"48a8a968-d1bb-4939-9452-7caae43d76ff"], -Cell[BoxData["1.3456729512531673`"], "Output", - CellChangeTimes->{3.991340895263792*^9}, +Cell[BoxData["0.011903357968422472`"], "Output", + CellChangeTimes->{3.991340895263792*^9, 3.9939602273464603`*^9}, CellLabel-> - "Out[340]=",ExpressionUUID->"53e3f7cd-1b3e-7343-931d-6e137013b0b0"] + "Out[101]=",ExpressionUUID->"ed626b55-107c-427f-9155-a6eb89c5cdc7"] }, Open ]], Cell[CellGroupData[{ @@ -3391,8 +8548,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 +8593,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[\\\"2.5400457702965323`*^-237\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 102, 28, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340895297941*^9, 3.9939602273883123`*^9}, CellLabel-> "During evaluation of \ -In[341]:=",ExpressionUUID->"2abeeb06-100d-8a4f-bcb1-ddb8c833ff54"], +In[102]:=",ExpressionUUID->"4e389852-d898-405f-95c0-42891191edd8"], 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.7190609939935228`*^-244\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 102, 29, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340895297941*^9, 3.993960227396914*^9}, CellLabel-> "During evaluation of \ -In[341]:=",ExpressionUUID->"7e411bd4-b3ce-e244-9ce0-8d1f78e8cd14"], +In[102]:=",ExpressionUUID->"762a3970-ae5c-4499-b80c-d615a0d7d590"], 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.1634320671020835`*^-251\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 102, 30, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340895297941*^9, 3.9939602274043827`*^9}, CellLabel-> "During evaluation of \ -In[341]:=",ExpressionUUID->"1eef1d19-4a0f-cd45-ac5f-c8b603cf3443"], +In[102]:=",ExpressionUUID->"6d8bf4bd-bfdd-48b3-9c50-632165201997"], 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, 31, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340895297941*^9, 3.9939602274102783`*^9}, CellLabel-> "During evaluation of \ -In[341]:=",ExpressionUUID->"6022a732-4a2e-1544-a8b7-891b74c71e8b"], +In[102]:=",ExpressionUUID->"81907627-a496-4e03-b143-1dee720e71db"], -Cell[BoxData["11.729429210875175`"], "Output", - CellChangeTimes->{3.9913409010488796`*^9}, +Cell[BoxData["49.42123960111502`"], "Output", + CellChangeTimes->{3.9913409010488796`*^9, 3.993960232657*^9}, CellLabel-> - "Out[341]=",ExpressionUUID->"3c53d31a-b5c8-d04c-a31f-fccb4feaa955"] + "Out[102]=",ExpressionUUID->"78237a81-38ed-4bb2-9094-16ac55a6937a"] }, Open ]], Cell[CellGroupData[{ @@ -3519,8 +8676,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 +8721,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[\\\"2.5400457702965323`*^-237\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 103, 32, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913409010848827`*^9, 3.9939602326949863`*^9}, CellLabel-> "During evaluation of \ -In[342]:=",ExpressionUUID->"419d88aa-08de-a042-b43b-49810fba72bb"], +In[103]:=",ExpressionUUID->"daf860ba-037c-4d3f-9df3-755b95f56646"], 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.7190609939935228`*^-244\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 103, 33, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913409010848827`*^9, 3.9939602327024403`*^9}, CellLabel-> "During evaluation of \ -In[342]:=",ExpressionUUID->"4a9a6268-a319-d748-9834-40ccb49d2b51"], +In[103]:=",ExpressionUUID->"c82992a8-de99-439f-95a9-9058ec8e3de9"], 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.1634320671020835`*^-251\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 103, 34, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913409010848827`*^9, 3.993960232708625*^9}, CellLabel-> "During evaluation of \ -In[342]:=",ExpressionUUID->"575d1045-9e4b-4643-b969-4ea2653f65d7"], +In[103]:=",ExpressionUUID->"05acf2f2-04c3-4934-a1b6-acfe2dc05de4"], 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, 35, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913409010848827`*^9, 3.993960232715064*^9}, CellLabel-> "During evaluation of \ -In[342]:=",ExpressionUUID->"0c807644-74de-9c49-acac-c7123cbacadc"], +In[103]:=",ExpressionUUID->"c3e601f8-6a5e-416b-8ccc-3214a869febc"], -Cell[BoxData["21.67464099510054`"], "Output", - CellChangeTimes->{3.991340904517517*^9}, +Cell[BoxData["8.666276671089207`"], "Output", + CellChangeTimes->{3.991340904517517*^9, 3.9939602358741827`*^9}, CellLabel-> - "Out[342]=",ExpressionUUID->"40f79c92-c788-c843-8a8c-07266b265dee"] + "Out[103]=",ExpressionUUID->"c4ba81d8-6384-4535-b8a8-e53b75096a4c"] }, Open ]], Cell[CellGroupData[{ @@ -3635,22 +8792,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.0005751702336331368`"], "Output", + CellChangeTimes->{3.991340904549515*^9, 3.993960235907873*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"471178ec-d4be-4aac-a1e8-766fd2d714f4"] }, 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 +8831,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.343662005986232`"], "Output", + CellChangeTimes->{3.9913409045775146`*^9, 3.9939602359210663`*^9}, CellLabel-> - "Out[345]=",ExpressionUUID->"c9ac712d-c12f-0747-84df-4fbc596a4bc5"] + "Out[106]=",ExpressionUUID->"f0587a64-4fe6-47b2-8be7-ed63e61b910d"] }, Open ]], Cell[CellGroupData[{ @@ -3688,12 +8846,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.4221822969672744`"], "Output", + CellChangeTimes->{3.991340904625164*^9, 3.993960235929308*^9}, CellLabel-> - "Out[347]=",ExpressionUUID->"265915a4-bf42-cc4a-850a-ff4e02169aa3"] + "Out[107]=",ExpressionUUID->"42a0fd5f-7ceb-49d5-b76c-0dabdded22c0"] }, Open ]], Cell[CellGroupData[{ @@ -3703,12 +8861,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["23.243666772530272`"], "Output", + CellChangeTimes->{3.9913409046880226`*^9, 3.993960235938115*^9}, CellLabel-> - "Out[350]=",ExpressionUUID->"31530b6e-e89a-9145-8021-0dc6b1c7eda5"] + "Out[108]=",ExpressionUUID->"af62a0d7-3d88-44a3-b268-9926a9bba2b2"] }, Open ]], Cell[CellGroupData[{ @@ -3898,12 +9056,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.004575083982978524`"], "Output", + CellChangeTimes->{3.9913409047132187`*^9, 3.993960235951447*^9}, CellLabel-> - "Out[351]=",ExpressionUUID->"498f3df6-21c9-ce42-acfb-0b180bf5016e"] + "Out[109]=",ExpressionUUID->"47b5e493-b50c-4539-be8d-4c7fcdaae669"] }, Open ]], Cell[CellGroupData[{ @@ -3917,12 +9075,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.102235625853758`"], "Output", + CellChangeTimes->{3.9913409048112164`*^9, 3.993960236064376*^9}, CellLabel-> - "Out[352]=",ExpressionUUID->"7c93e621-3415-c743-b6e4-6e9478aa49a4"] + "Out[110]=",ExpressionUUID->"672f1031-afbe-4b98-80f4-69febd5431cb"] }, Open ]], Cell[CellGroupData[{ @@ -4114,12 +9272,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.034885070759042236`"], "Output", + CellChangeTimes->{3.991340904825058*^9, 3.9939602361091213`*^9}, CellLabel-> - "Out[353]=",ExpressionUUID->"ac3c9970-0aac-ba4f-878d-3a3d1e5e2e3e"] + "Out[111]=",ExpressionUUID->"7695d0f0-f094-446f-b9b9-e5cbcbe9f353"] }, Open ]], Cell[CellGroupData[{ @@ -4133,12 +9291,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.7448789419968085`"], "Output", + CellChangeTimes->{3.9913409049303207`*^9, 3.993960236221447*^9}, CellLabel-> - "Out[354]=",ExpressionUUID->"d74ba3c3-6f35-614a-92df-d33bcc5e630d"] + "Out[112]=",ExpressionUUID->"76f2300d-ea2d-4092-a9ec-0b1691d38200"] }, Open ]], Cell[CellGroupData[{ @@ -4231,12 +9389,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.1428121564505765`"], "Output", + CellChangeTimes->{3.991340904948307*^9, 3.9939602362314377`*^9}, CellLabel-> - "Out[355]=",ExpressionUUID->"33da748c-8c98-4649-9b81-8e00dd5f5d44"] + "Out[113]=",ExpressionUUID->"09a034a6-7177-4d1c-a8e7-7f0cbd3e661b"] }, Open ]], Cell[CellGroupData[{ @@ -4326,12 +9484,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.8571878435494235`"], "Output", + CellChangeTimes->{3.991340904981308*^9, 3.993960236240991*^9}, CellLabel-> - "Out[356]=",ExpressionUUID->"a300919b-1d52-ed46-bc06-5e86812c0bf8"] + "Out[114]=",ExpressionUUID->"da5ddb02-8d74-4ac6-9a0a-0623f876e945"] }, Open ]], Cell[CellGroupData[{ @@ -4454,12 +9612,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.12241684442051255`"], "Output", + CellChangeTimes->{3.99134090500931*^9, 3.993960236253313*^9}, CellLabel-> - "Out[357]=",ExpressionUUID->"45caa3aa-b655-b94b-bc88-ae750a9e28b8"] + "Out[115]=",ExpressionUUID->"3aae1df9-4e86-4586-8645-3e39297e58e9"] }, Open ]], Cell[CellGroupData[{ @@ -4521,68 +9679,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[\\\"7.049832024735876`*^-221\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 116, 36, 31385712218820257286, + "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340905038307*^9, 3.993960236268944*^9}, CellLabel-> "During evaluation of \ -In[358]:=",ExpressionUUID->"fdac5db3-60d6-7a42-93b8-a74d8fc5d39e"], +In[116]:=",ExpressionUUID->"40f1c3d3-6d6f-492b-b978-4d65d8585d60"], 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.5968358570050139`*^-226\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 116, 37, 31385712218820257286, + "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340905038307*^9, 3.9939602362756977`*^9}, CellLabel-> "During evaluation of \ -In[358]:=",ExpressionUUID->"46e50c50-b3b4-9847-b413-3bf52122b53e"], +In[116]:=",ExpressionUUID->"c4ce8621-24b5-45e5-8f5b-e730a95ebf1c"], 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[\\\"3.616943985714989`*^-232\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 116, 38, 31385712218820257286, + "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340905038307*^9, 3.993960236283181*^9}, CellLabel-> "During evaluation of \ -In[358]:=",ExpressionUUID->"5df9105e-cc71-b049-a285-30acff0c246a"], +In[116]:=",ExpressionUUID->"1523cb05-179f-4983-81d5-1ce13cd81786"], 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, 39, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340905038307*^9, 3.993960236290389*^9}, CellLabel-> "During evaluation of \ -In[358]:=",ExpressionUUID->"84079c6c-500c-0643-b357-e1da142371e6"], +In[116]:=",ExpressionUUID->"d1c3dfa4-4977-4f18-ad97-5cd16fbb6615"], -Cell[BoxData["6.028089553291301`"], "Output", - CellChangeTimes->{3.991340908920454*^9}, +Cell[BoxData["13.10223562585376`"], "Output", + CellChangeTimes->{3.991340908920454*^9, 3.993960240014963*^9}, CellLabel-> - "Out[358]=",ExpressionUUID->"8303ac5a-d080-3741-a2d8-b7ff63ccb029"] + "Out[116]=",ExpressionUUID->"fd725c76-6739-417e-96cc-14da37ae9886"] }, Open ]], Cell[CellGroupData[{ @@ -4644,68 +9806,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[\\\"7.049832024735876`*^-221\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 117, 40, 31385712218820257286, + "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340908954941*^9, 3.993960240051795*^9}, CellLabel-> "During evaluation of \ -In[359]:=",ExpressionUUID->"65ad7cc5-5634-7d43-8ec3-48fd3e044014"], +In[117]:=",ExpressionUUID->"b2864d76-1625-4ed0-8cef-4b9b4b97b3db"], 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.5968358570050139`*^-226\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 117, 41, 31385712218820257286, + "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340908954941*^9, 3.993960240059888*^9}, CellLabel-> "During evaluation of \ -In[359]:=",ExpressionUUID->"c7632c59-b44f-2c47-aaf4-873ba9758677"], +In[117]:=",ExpressionUUID->"90791c3a-bb0d-4a6b-a2ef-3d1cd7140c9b"], 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[\\\"3.616943985714989`*^-232\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 117, 42, 31385712218820257286, + "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340908954941*^9, 3.993960240066625*^9}, CellLabel-> "During evaluation of \ -In[359]:=",ExpressionUUID->"509e3117-7502-a34e-9f96-72b696066a2b"], +In[117]:=",ExpressionUUID->"5283846d-6fcd-41ba-b089-5747fda741fb"], 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, 43, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340908954941*^9, 3.9939602400727043`*^9}, CellLabel-> "During evaluation of \ -In[359]:=",ExpressionUUID->"0e1f3a7a-70f7-bc47-9700-06e687643558"], +In[117]:=",ExpressionUUID->"baae04cc-44ed-4ba8-9dbb-669cf0d5716d"], -Cell[BoxData["8.528497747663296`"], "Output", - CellChangeTimes->{3.991340912767397*^9}, +Cell[BoxData["4.744878941996809`"], "Output", + CellChangeTimes->{3.991340912767397*^9, 3.993960243507677*^9}, CellLabel-> - "Out[359]=",ExpressionUUID->"15bebbf4-baae-a44a-84b5-59b3a1f444c3"] + "Out[117]=",ExpressionUUID->"116c5862-f4fa-4ec8-92d5-b83321d03677"] }, Open ]], Cell[CellGroupData[{ @@ -4763,95 +9929,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:eJwV1nk0Vd8XAHBzGctMIjzyNZXMpM4WESFFZSjpee+KZCYikmhQiShKZEwy +U0I0kISkKCpjhnTN7xnKL/U7/rjrrs869+69zz5nnXvlqD4H6GwsLCxT+Fq9 ++7VvUarqaN+p4aNrYKTJRDunc3SopoVo926eDasezNBNUjB9hjgnLj7bjm1L +e8fFp/Ua/TxZIrvqspDIBk7TNsT97ZyZIfblJokXkQUfkKrdH3UD7OoOv/Q/ +mp9Q5aJctx42+bUlPLS2Bz2amTPWxd4wSnFeNOlFTT5e3trYe2fCDQLaBpB9 +acIRTez6PyRvSMEQ2s84zqeB/TlKPOyJ9zByjug7q449zWVKzmuOopIcjjIV +bK6rvo5aS2PIoK47VwlbRvBes1/tOIpWOnxEAdtGajFv2mQSVSQfEZDGJu7L +i6mvnUYjEcPcktiRivtiTrbNoBMXJN6IYPeId20LLJhD69jjY3mxaU6eHjev +MtCt9A+XuLBn01gyy72ZyPxuoxUr9lp59fVzmgto3LZecnEbEyXRGszXiy4i +V48m+Vls2QeOkVuXFhFbVtTUT2x9tdjpU7W/UGOsSHMv9gndgTbS5A9qtWlI +eI49HxLEwbN5BWW7heVXYZ+r5TVSXvsXbYiZOleCnQL6j9zb/iHhBfbT6di0 +3GZT/wJWeECIh4RiFzTdHIySYoPAS3VpPtizP1zCE66yQVTc5mg6drjKQkWp +Nzuc1TBLtl2tt0SOMqPJCcciBtsp2F87Juv/ZnPC9pWXrBKr9TOqnAREuSBF +0m+RF7tQ2yZRfYkLLkruVGRqMFFj9RlWr9q14Ohen1KPvdDQOTBuwgeZFS09 +FthCVnzrw+r54GlmSZc+tkaXKfAb8MNdnrsXlbA9Rx7f37ZFAAat4oU4sH3Z +2jR28K0HxX6duuqtTDQqXzwXsygISz0D7uLY80QL93stIaiU9v7Eis32aExO +wk8IrO9sXZ7YguvV2nSgYEII0rsdPJ5jO5ncKG8fFIarc+n9VOz3bv4B4q2i +0Gswq5SmzkT9D67Hua4VA7l+Y57z2JMTBdkPd4vBxe8r2e7YPIHDndtfiME8 +NK5swza9YK/t+lgctPmWLBvUmKgmR3chP0MScs+H7+tRZaKc0eVgw0BpqF52 +3dSmzER7Dl7sDyiShiK3ZutH2JONwmZFY9JQpU/dcQVbO0dNVNZRBoQrdria +YzdSXSo4d26CeG/ux/X/MRFjZvD0eLQsiMdWp2cqMZHwKdPKCmt5qA8zStRX +ZKKxHJ4Ttp7ykDkUO7MO+2lvh9RUrDwceHFL4IcCEx2xOhq9+YU8iFpKJSZh +56gGH0jVpMCGMfOSSQrOTz6YjRBXgD/tLWYJ8kxk786rbjmkCHkpA+sLNzER +Cj6oeXhFEeoi3uaEY6vEZOjRJDcDsfn6ihU2S7bWroj9m2HwdP3KpAwTFfU7 +Hy5/uRn6O5wNVLC5DhVGbchSgka13KzUjbg+U+vPJFUZXDIfu1tJMlG23e1v +SxHKoCwRniWKfZ06NMhxVxlytwxm9Uvg/X0uaEKmUxmcHe/O+2ALPrvHYmei +Ar9nk3vjxfH+0ZpWqaWoQvOewMZGUSaSko+PjBtRg9jBWQq7EBM9uzKv/JtN +HcS/7f72XBD3g+nYRcipQ33vpE04dnqjgvIuF3XgiTp0cn49E8m713z81a0O +9sKZoUPr8HwLRxWJ1i0QXBk8X8zPRNJSMoSsowZ4pPHni3MzkVpuIN//kCb0 +6lRayv9jICotekHdRhPse3eydv1loBRKYr/rEU0QyNsYGYPNnlVS2hSiCVnS +Sx0/Vhjoazppn1imCYf2b21/+IeBLqe43lOmaIFr2V9dyjIDjcVZbXHg0gaX +pZ+ck/MMlOmvYPu4TQcEw7a0dv9koI5gpHch1wDmhdUnmO0MJOfyyeao1w4g +6VcsxksZiP7vSbF0KIDgmdDmzwkMJD7xdI04dRcYUuJDRU8xUKCWUW+iiins +5w0souzB9U/9aRYmd4PvhzK7cjkGKtoVsCbjvTkcFT794vXCHMqZ93xZmGQB +ee8q7vxumUO/jCXeNUbuBfnKaI/xO3Ooj4V9bui4New1U9W185xD3ht9bkRR +9kFGfNB2bqM5VOzR/CI5xhZ0RxrX8HLPoTNMySVVj/0Qy596b6FnFi1Ymh16 +c+wASLMmDKTkzCID5wTj0f128HLEv3mr3yz6KHnPs1HLHroFnkz6Gc+iDXnR +z/L/Owinn6cvKQrMoqeDKlY2/IdguO7ohdd1M0ima9Y9eOoQdPNVz2dQZ5BW +ckJh9uBhYG+vkG1jnUH3OJhbEhsc4FOyXHLBw2n0xHjr15hqRziUkNn53Woa +pehdEfxT4AQmV5bYvs5PofffcmO1rjpDfoCBaVnuFHpsnabge+4ItLx6hSzt +ptDcKTsWb9pR+CK2uKeZewotmCmfmDZxgdoLvi+FXk+i/KkvvwJ0jwE9d+Xw +yYhJ5JCZ63aUzxU2ydtm7gH8nSrfe4z9oitwFbvcVmOdRAZSH39f/u0KM3Bw +xr5lAlEG3b9+8DgOSlMeCaEpE2iE9+S+tOHjYKtVzOghJlDHdRs384NUEPGt +43ptNIGSQjJ4gzqocF+FP+6L8AR6Vv/vt5uFG+gUrigGzZJo3RG4qFXjBgEF +Si3PO0kkK/Lm/cZnbjAQZxxuha3RZi3BVe8GMbYiZ798JNEBI+eHPS/dQF1z +0nP+A4mSNga3nn3rBrtr7yypd5BoQ9+jdc09brDNJuVzSRuJFFzEU44suUGZ +xVjV9GsSGbhO58do04B8237CsZpEeamzATa6NDgTeVidBVukk7FTXJ8Gfjx9 +ug+ekmh691JX/nYalF4allisIvH5xcLatosGnTtYJG8/IZHAkqCj0H4a0D1i +eMYqSDRyTYc74xQNUtvGa6qKSbT/jV6Xuw8NDqccknPHrmcxzNDwo8GkyVib +GHZqwE6dV4E0KIr3YQYXkcjG0fz4aBgNrvLtiTAsJFG1gmO16hUarEtciWt/ +SKLrteEeT/NosFSYf10ll0SnNG8bhOTTYOZrE8dIDomsHpZx6xfQoEk1qO4e +Ns/tsYdVRTTQe4O/Ytgx/rbkk0oazObFX1zJIlG4ssLJx69wvu9rNw/dJ5Hn +7Vav8n4aILMgp69pJLIQGDPyH6TBUCtSSMP+L4aFX/M7DcYUH2u4YI/56xSV +jdJA8VS24PBdEh23yZgqnaSBR2k2c+YOiRw4A7xLlmmgYPhNXyyVROYBG3wL +xejQYKP3LimZRK8yYi0TJejQqG931AnbqI2hELKBDuU17Eay2BqKrV9MZOjA +HFQcLUwikWR3mMk3RToYTsSMvb1JognDPjEeHTpEX/HME0okUTzb/Tp3Ozrw +S2nKDlzH89/Kl2J9kA4yqR4XirEvOIf4ax2mg5majV4EdkilrdI/JzqE2Mpd +lsE+TrAm3KLS4dt5tj7qNRJptVBpr/3owLPD1Gw5jkTdCYq8lBt06PRXoNAu +k6gY8Z8YT6CD81QY/hnF8afmG4tu4np+0NduxNa0aIzQv00H8Y3Mf12X8Pqx +uDGs0+nwOe2voiW2mc/9LyGFdLj+Sc/G+CKJpKUv6e4spkOFNOkuhz3f4nOT +vZQO3Rd0mlixszYj6+sVdLhpkGrbEEuilb6+F9k1dLjTnp5mgV1pJZXf3kyH +Ubd5QbcYEsUts3EmtdDBY4YWZI5NzSePO7bR4Y9zoLQa9nqOGqmR93RgUfXb +vniBRF61DvG/P9NBu3yi+Bo2ReVWsMIo7reaSuDbaBItd5/t/DmG85UXy5Vj +d8TQNUrG6XCLtVv4LnbEkDZpMEmHPlGRplPYX1M6j+5j0oFSbE4Vw05cI7j7 +DCsBpvHtoYHnSfSM0eccyE5AmmE0Oob9o6/A35uTwOfTaydLbKNK0/tUbgJE +fs8nyGGPuYb8z1KQgC5+LvauKFy/1W6h3cIE/NLcFvQSe7uekDISJcAqaNKo +BPsGf+EhLUkCotxF3sWtjtcMlEnJETBuv212DzaRW9gsSiFg7fMRAYPV52+E +DqxTJGDDfpVoZewxQpifQ5mAkS9eXryr48LmJyY1CDAq/WTceY5ENX+FI8c0 +CehJkuVvwh79OZg8qE1Ai+M/9WpswxdnGrr0CeDYE+p7H3vEq1imDgjQb3b7 +5Y8t4BCmU7WLgO63B3xPYBuY7LEqMyWgTbB7hwv2dcnvobl7CFBbd/+LJfZT +jpIbGZYENAiMPjDGHp4Je5BqRcD0+PNWfWz9JtFP12wJWCrXE/kPm1r2feLi +AQJqv3fpy2JfSythO29PwFevtRUS2N/9LTSCHQi4w6qVz4PN7yJm7utEwJix +CoVjNZ7F8FHPIwR8MH/KXInE7286G+fiSsAN1tRkBvZTHsssByruz+AEMYX9 +fUGs+gANr2fvp2vj2PxDw++tCAJ2rDnMM4Kt31Y6ZnaCAHF/n94BbGrV2RXw +JIBXfRNH72r8LEuR7V64H2ZEVM9q/GviqjreBDS3mdp/Wo0fMmK81ZcAudaa +8I/YfLQyB2V/nM+qefk9tt6+CB9KIAE/nE61v1uNb7g3VjqYgJ1/Hy61Yl9V +lLgnHkJA0Y6I4BbsJ+tHKwTPEPBThrR8iz30v7IW3nACwvOmAptX4/+IGOKM +ICCs+9L8G2zdj3t//YskYLmi9u2q/w9QqRWn "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -4865,106 +10031,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:eJwV1nk0Vd8XAHBzGctMIjzyNZXMpM4WESFFZSjpee+KZCYikmhQiShKZEwy +U0I0kISkKCpjhnTN7xnKL/U7/rjrrs869+69zz5nnXvlqD4H6GwsLCxT+Fq9 ++7VvUarqaN+p4aNrYKTJRDunc3SopoVo926eDasezNBNUjB9hjgnLj7bjm1L +e8fFp/Ua/TxZIrvqspDIBk7TNsT97ZyZIfblJokXkQUfkKrdH3UD7OoOv/Q/ +mp9Q5aJctx42+bUlPLS2Bz2amTPWxd4wSnFeNOlFTT5e3trYe2fCDQLaBpB9 +acIRTez6PyRvSMEQ2s84zqeB/TlKPOyJ9zByjug7q449zWVKzmuOopIcjjIV +bK6rvo5aS2PIoK47VwlbRvBes1/tOIpWOnxEAdtGajFv2mQSVSQfEZDGJu7L +i6mvnUYjEcPcktiRivtiTrbNoBMXJN6IYPeId20LLJhD69jjY3mxaU6eHjev +MtCt9A+XuLBn01gyy72ZyPxuoxUr9lp59fVzmgto3LZecnEbEyXRGszXiy4i +V48m+Vls2QeOkVuXFhFbVtTUT2x9tdjpU7W/UGOsSHMv9gndgTbS5A9qtWlI +eI49HxLEwbN5BWW7heVXYZ+r5TVSXvsXbYiZOleCnQL6j9zb/iHhBfbT6di0 +3GZT/wJWeECIh4RiFzTdHIySYoPAS3VpPtizP1zCE66yQVTc5mg6drjKQkWp +Nzuc1TBLtl2tt0SOMqPJCcciBtsp2F87Juv/ZnPC9pWXrBKr9TOqnAREuSBF +0m+RF7tQ2yZRfYkLLkruVGRqMFFj9RlWr9q14Ohen1KPvdDQOTBuwgeZFS09 +FthCVnzrw+r54GlmSZc+tkaXKfAb8MNdnrsXlbA9Rx7f37ZFAAat4oU4sH3Z +2jR28K0HxX6duuqtTDQqXzwXsygISz0D7uLY80QL93stIaiU9v7Eis32aExO +wk8IrO9sXZ7YguvV2nSgYEII0rsdPJ5jO5ncKG8fFIarc+n9VOz3bv4B4q2i +0Gswq5SmzkT9D67Hua4VA7l+Y57z2JMTBdkPd4vBxe8r2e7YPIHDndtfiME8 +NK5swza9YK/t+lgctPmWLBvUmKgmR3chP0MScs+H7+tRZaKc0eVgw0BpqF52 +3dSmzER7Dl7sDyiShiK3ZutH2JONwmZFY9JQpU/dcQVbO0dNVNZRBoQrdria +YzdSXSo4d26CeG/ux/X/MRFjZvD0eLQsiMdWp2cqMZHwKdPKCmt5qA8zStRX +ZKKxHJ4Ttp7ykDkUO7MO+2lvh9RUrDwceHFL4IcCEx2xOhq9+YU8iFpKJSZh +56gGH0jVpMCGMfOSSQrOTz6YjRBXgD/tLWYJ8kxk786rbjmkCHkpA+sLNzER +Cj6oeXhFEeoi3uaEY6vEZOjRJDcDsfn6ihU2S7bWroj9m2HwdP3KpAwTFfU7 +Hy5/uRn6O5wNVLC5DhVGbchSgka13KzUjbg+U+vPJFUZXDIfu1tJMlG23e1v +SxHKoCwRniWKfZ06NMhxVxlytwxm9Uvg/X0uaEKmUxmcHe/O+2ALPrvHYmei +Ar9nk3vjxfH+0ZpWqaWoQvOewMZGUSaSko+PjBtRg9jBWQq7EBM9uzKv/JtN +HcS/7f72XBD3g+nYRcipQ33vpE04dnqjgvIuF3XgiTp0cn49E8m713z81a0O +9sKZoUPr8HwLRxWJ1i0QXBk8X8zPRNJSMoSsowZ4pPHni3MzkVpuIN//kCb0 +6lRayv9jICotekHdRhPse3eydv1loBRKYr/rEU0QyNsYGYPNnlVS2hSiCVnS +Sx0/Vhjoazppn1imCYf2b21/+IeBLqe43lOmaIFr2V9dyjIDjcVZbXHg0gaX +pZ+ck/MMlOmvYPu4TQcEw7a0dv9koI5gpHch1wDmhdUnmO0MJOfyyeao1w4g +6VcsxksZiP7vSbF0KIDgmdDmzwkMJD7xdI04dRcYUuJDRU8xUKCWUW+iiins +5w0souzB9U/9aRYmd4PvhzK7cjkGKtoVsCbjvTkcFT794vXCHMqZ93xZmGQB +ee8q7vxumUO/jCXeNUbuBfnKaI/xO3Ooj4V9bui4New1U9W185xD3ht9bkRR +9kFGfNB2bqM5VOzR/CI5xhZ0RxrX8HLPoTNMySVVj/0Qy596b6FnFi1Ymh16 +c+wASLMmDKTkzCID5wTj0f128HLEv3mr3yz6KHnPs1HLHroFnkz6Gc+iDXnR +z/L/Owinn6cvKQrMoqeDKlY2/IdguO7ohdd1M0ima9Y9eOoQdPNVz2dQZ5BW +ckJh9uBhYG+vkG1jnUH3OJhbEhsc4FOyXHLBw2n0xHjr15hqRziUkNn53Woa +pehdEfxT4AQmV5bYvs5PofffcmO1rjpDfoCBaVnuFHpsnabge+4ItLx6hSzt +ptDcKTsWb9pR+CK2uKeZewotmCmfmDZxgdoLvi+FXk+i/KkvvwJ0jwE9d+Xw +yYhJ5JCZ63aUzxU2ydtm7gH8nSrfe4z9oitwFbvcVmOdRAZSH39f/u0KM3Bw +xr5lAlEG3b9+8DgOSlMeCaEpE2iE9+S+tOHjYKtVzOghJlDHdRs384NUEPGt +43ptNIGSQjJ4gzqocF+FP+6L8AR6Vv/vt5uFG+gUrigGzZJo3RG4qFXjBgEF +Si3PO0kkK/Lm/cZnbjAQZxxuha3RZi3BVe8GMbYiZ798JNEBI+eHPS/dQF1z +0nP+A4mSNga3nn3rBrtr7yypd5BoQ9+jdc09brDNJuVzSRuJFFzEU44suUGZ +xVjV9GsSGbhO58do04B8237CsZpEeamzATa6NDgTeVidBVukk7FTXJ8Gfjx9 +ug+ekmh691JX/nYalF4allisIvH5xcLatosGnTtYJG8/IZHAkqCj0H4a0D1i +eMYqSDRyTYc74xQNUtvGa6qKSbT/jV6Xuw8NDqccknPHrmcxzNDwo8GkyVib +GHZqwE6dV4E0KIr3YQYXkcjG0fz4aBgNrvLtiTAsJFG1gmO16hUarEtciWt/ +SKLrteEeT/NosFSYf10ll0SnNG8bhOTTYOZrE8dIDomsHpZx6xfQoEk1qO4e +Ns/tsYdVRTTQe4O/Ytgx/rbkk0oazObFX1zJIlG4ssLJx69wvu9rNw/dJ5Hn +7Vav8n4aILMgp69pJLIQGDPyH6TBUCtSSMP+L4aFX/M7DcYUH2u4YI/56xSV +jdJA8VS24PBdEh23yZgqnaSBR2k2c+YOiRw4A7xLlmmgYPhNXyyVROYBG3wL +xejQYKP3LimZRK8yYi0TJejQqG931AnbqI2hELKBDuU17Eay2BqKrV9MZOjA +HFQcLUwikWR3mMk3RToYTsSMvb1JognDPjEeHTpEX/HME0okUTzb/Tp3Ozrw +S2nKDlzH89/Kl2J9kA4yqR4XirEvOIf4ax2mg5majV4EdkilrdI/JzqE2Mpd +lsE+TrAm3KLS4dt5tj7qNRJptVBpr/3owLPD1Gw5jkTdCYq8lBt06PRXoNAu +k6gY8Z8YT6CD81QY/hnF8afmG4tu4np+0NduxNa0aIzQv00H8Y3Mf12X8Pqx +uDGs0+nwOe2voiW2mc/9LyGFdLj+Sc/G+CKJpKUv6e4spkOFNOkuhz3f4nOT +vZQO3Rd0mlixszYj6+sVdLhpkGrbEEuilb6+F9k1dLjTnp5mgV1pJZXf3kyH +Ubd5QbcYEsUts3EmtdDBY4YWZI5NzSePO7bR4Y9zoLQa9nqOGqmR93RgUfXb +vniBRF61DvG/P9NBu3yi+Bo2ReVWsMIo7reaSuDbaBItd5/t/DmG85UXy5Vj +d8TQNUrG6XCLtVv4LnbEkDZpMEmHPlGRplPYX1M6j+5j0oFSbE4Vw05cI7j7 +DCsBpvHtoYHnSfSM0eccyE5AmmE0Oob9o6/A35uTwOfTaydLbKNK0/tUbgJE +fs8nyGGPuYb8z1KQgC5+LvauKFy/1W6h3cIE/NLcFvQSe7uekDISJcAqaNKo +BPsGf+EhLUkCotxF3sWtjtcMlEnJETBuv212DzaRW9gsSiFg7fMRAYPV52+E +DqxTJGDDfpVoZewxQpifQ5mAkS9eXryr48LmJyY1CDAq/WTceY5ENX+FI8c0 +CehJkuVvwh79OZg8qE1Ai+M/9WpswxdnGrr0CeDYE+p7H3vEq1imDgjQb3b7 +5Y8t4BCmU7WLgO63B3xPYBuY7LEqMyWgTbB7hwv2dcnvobl7CFBbd/+LJfZT +jpIbGZYENAiMPjDGHp4Je5BqRcD0+PNWfWz9JtFP12wJWCrXE/kPm1r2feLi +AQJqv3fpy2JfSythO29PwFevtRUS2N/9LTSCHQi4w6qVz4PN7yJm7utEwJix +CoVjNZ7F8FHPIwR8MH/KXInE7286G+fiSsAN1tRkBvZTHsssByruz+AEMYX9 +fUGs+gANr2fvp2vj2PxDw++tCAJ2rDnMM4Kt31Y6ZnaCAHF/n94BbGrV2RXw +JIBXfRNH72r8LEuR7V64H2ZEVM9q/GviqjreBDS3mdp/Wo0fMmK81ZcAudaa +8I/YfLQyB2V/nM+qefk9tt6+CB9KIAE/nE61v1uNb7g3VjqYgJ1/Hy61Yl9V +lLgnHkJA0Y6I4BbsJ+tHKwTPEPBThrR8iz30v7IW3nACwvOmAptX4/+IGOKM +ICCs+9L8G2zdj3t//YskYLmi9u2q/w9QqRWn "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.4222837130873766, 2.103798844286089}}, + "PlotRange" -> {{0, 180}, {0.8280981960393767, 1.199764464842655}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.42228371308737755`}, + "AxesOrigin" -> {0, 0.8280981960393786}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.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 +10142,20 @@ GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.4222837130873766, 2.103798844286089}}, + "PlotRange" -> {{0, 180}, {0.8280981960393767, 1.199764464842655}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.42228371308737755`}, + "AxesOrigin" -> {0, 0.8280981960393786}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 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 +10169,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:eJwV1nk0Vd8XAHBzGctMIjzyNZXMpM4WESFFZSjpee+KZCYikmhQiShKZEwy +U0I0kISkKCpjhnTN7xnKL/U7/rjrrs869+69zz5nnXvlqD4H6GwsLCxT+Fq9 ++7VvUarqaN+p4aNrYKTJRDunc3SopoVo926eDasezNBNUjB9hjgnLj7bjm1L +e8fFp/Ua/TxZIrvqspDIBk7TNsT97ZyZIfblJokXkQUfkKrdH3UD7OoOv/Q/ +mp9Q5aJctx42+bUlPLS2Bz2amTPWxd4wSnFeNOlFTT5e3trYe2fCDQLaBpB9 +acIRTez6PyRvSMEQ2s84zqeB/TlKPOyJ9zByjug7q449zWVKzmuOopIcjjIV +bK6rvo5aS2PIoK47VwlbRvBes1/tOIpWOnxEAdtGajFv2mQSVSQfEZDGJu7L +i6mvnUYjEcPcktiRivtiTrbNoBMXJN6IYPeId20LLJhD69jjY3mxaU6eHjev +MtCt9A+XuLBn01gyy72ZyPxuoxUr9lp59fVzmgto3LZecnEbEyXRGszXiy4i +V48m+Vls2QeOkVuXFhFbVtTUT2x9tdjpU7W/UGOsSHMv9gndgTbS5A9qtWlI +eI49HxLEwbN5BWW7heVXYZ+r5TVSXvsXbYiZOleCnQL6j9zb/iHhBfbT6di0 +3GZT/wJWeECIh4RiFzTdHIySYoPAS3VpPtizP1zCE66yQVTc5mg6drjKQkWp +Nzuc1TBLtl2tt0SOMqPJCcciBtsp2F87Juv/ZnPC9pWXrBKr9TOqnAREuSBF +0m+RF7tQ2yZRfYkLLkruVGRqMFFj9RlWr9q14Ohen1KPvdDQOTBuwgeZFS09 +FthCVnzrw+r54GlmSZc+tkaXKfAb8MNdnrsXlbA9Rx7f37ZFAAat4oU4sH3Z +2jR28K0HxX6duuqtTDQqXzwXsygISz0D7uLY80QL93stIaiU9v7Eis32aExO +wk8IrO9sXZ7YguvV2nSgYEII0rsdPJ5jO5ncKG8fFIarc+n9VOz3bv4B4q2i +0Gswq5SmzkT9D67Hua4VA7l+Y57z2JMTBdkPd4vBxe8r2e7YPIHDndtfiME8 +NK5swza9YK/t+lgctPmWLBvUmKgmR3chP0MScs+H7+tRZaKc0eVgw0BpqF52 +3dSmzER7Dl7sDyiShiK3ZutH2JONwmZFY9JQpU/dcQVbO0dNVNZRBoQrdria +YzdSXSo4d26CeG/ux/X/MRFjZvD0eLQsiMdWp2cqMZHwKdPKCmt5qA8zStRX +ZKKxHJ4Ttp7ykDkUO7MO+2lvh9RUrDwceHFL4IcCEx2xOhq9+YU8iFpKJSZh +56gGH0jVpMCGMfOSSQrOTz6YjRBXgD/tLWYJ8kxk786rbjmkCHkpA+sLNzER +Cj6oeXhFEeoi3uaEY6vEZOjRJDcDsfn6ihU2S7bWroj9m2HwdP3KpAwTFfU7 +Hy5/uRn6O5wNVLC5DhVGbchSgka13KzUjbg+U+vPJFUZXDIfu1tJMlG23e1v +SxHKoCwRniWKfZ06NMhxVxlytwxm9Uvg/X0uaEKmUxmcHe/O+2ALPrvHYmei +Ar9nk3vjxfH+0ZpWqaWoQvOewMZGUSaSko+PjBtRg9jBWQq7EBM9uzKv/JtN +HcS/7f72XBD3g+nYRcipQ33vpE04dnqjgvIuF3XgiTp0cn49E8m713z81a0O +9sKZoUPr8HwLRxWJ1i0QXBk8X8zPRNJSMoSsowZ4pPHni3MzkVpuIN//kCb0 +6lRayv9jICotekHdRhPse3eydv1loBRKYr/rEU0QyNsYGYPNnlVS2hSiCVnS +Sx0/Vhjoazppn1imCYf2b21/+IeBLqe43lOmaIFr2V9dyjIDjcVZbXHg0gaX +pZ+ck/MMlOmvYPu4TQcEw7a0dv9koI5gpHch1wDmhdUnmO0MJOfyyeao1w4g +6VcsxksZiP7vSbF0KIDgmdDmzwkMJD7xdI04dRcYUuJDRU8xUKCWUW+iiins +5w0souzB9U/9aRYmd4PvhzK7cjkGKtoVsCbjvTkcFT794vXCHMqZ93xZmGQB +ee8q7vxumUO/jCXeNUbuBfnKaI/xO3Ooj4V9bui4New1U9W185xD3ht9bkRR +9kFGfNB2bqM5VOzR/CI5xhZ0RxrX8HLPoTNMySVVj/0Qy596b6FnFi1Ymh16 +c+wASLMmDKTkzCID5wTj0f128HLEv3mr3yz6KHnPs1HLHroFnkz6Gc+iDXnR +z/L/Owinn6cvKQrMoqeDKlY2/IdguO7ohdd1M0ima9Y9eOoQdPNVz2dQZ5BW +ckJh9uBhYG+vkG1jnUH3OJhbEhsc4FOyXHLBw2n0xHjr15hqRziUkNn53Woa +pehdEfxT4AQmV5bYvs5PofffcmO1rjpDfoCBaVnuFHpsnabge+4ItLx6hSzt +ptDcKTsWb9pR+CK2uKeZewotmCmfmDZxgdoLvi+FXk+i/KkvvwJ0jwE9d+Xw +yYhJ5JCZ63aUzxU2ydtm7gH8nSrfe4z9oitwFbvcVmOdRAZSH39f/u0KM3Bw +xr5lAlEG3b9+8DgOSlMeCaEpE2iE9+S+tOHjYKtVzOghJlDHdRs384NUEPGt +43ptNIGSQjJ4gzqocF+FP+6L8AR6Vv/vt5uFG+gUrigGzZJo3RG4qFXjBgEF +Si3PO0kkK/Lm/cZnbjAQZxxuha3RZi3BVe8GMbYiZ798JNEBI+eHPS/dQF1z +0nP+A4mSNga3nn3rBrtr7yypd5BoQ9+jdc09brDNJuVzSRuJFFzEU44suUGZ +xVjV9GsSGbhO58do04B8237CsZpEeamzATa6NDgTeVidBVukk7FTXJ8Gfjx9 +ug+ekmh691JX/nYalF4allisIvH5xcLatosGnTtYJG8/IZHAkqCj0H4a0D1i +eMYqSDRyTYc74xQNUtvGa6qKSbT/jV6Xuw8NDqccknPHrmcxzNDwo8GkyVib +GHZqwE6dV4E0KIr3YQYXkcjG0fz4aBgNrvLtiTAsJFG1gmO16hUarEtciWt/ +SKLrteEeT/NosFSYf10ll0SnNG8bhOTTYOZrE8dIDomsHpZx6xfQoEk1qO4e +Ns/tsYdVRTTQe4O/Ytgx/rbkk0oazObFX1zJIlG4ssLJx69wvu9rNw/dJ5Hn +7Vav8n4aILMgp69pJLIQGDPyH6TBUCtSSMP+L4aFX/M7DcYUH2u4YI/56xSV +jdJA8VS24PBdEh23yZgqnaSBR2k2c+YOiRw4A7xLlmmgYPhNXyyVROYBG3wL +xejQYKP3LimZRK8yYi0TJejQqG931AnbqI2hELKBDuU17Eay2BqKrV9MZOjA +HFQcLUwikWR3mMk3RToYTsSMvb1JognDPjEeHTpEX/HME0okUTzb/Tp3Ozrw +S2nKDlzH89/Kl2J9kA4yqR4XirEvOIf4ax2mg5majV4EdkilrdI/JzqE2Mpd +lsE+TrAm3KLS4dt5tj7qNRJptVBpr/3owLPD1Gw5jkTdCYq8lBt06PRXoNAu +k6gY8Z8YT6CD81QY/hnF8afmG4tu4np+0NduxNa0aIzQv00H8Y3Mf12X8Pqx +uDGs0+nwOe2voiW2mc/9LyGFdLj+Sc/G+CKJpKUv6e4spkOFNOkuhz3f4nOT +vZQO3Rd0mlixszYj6+sVdLhpkGrbEEuilb6+F9k1dLjTnp5mgV1pJZXf3kyH +Ubd5QbcYEsUts3EmtdDBY4YWZI5NzSePO7bR4Y9zoLQa9nqOGqmR93RgUfXb +vniBRF61DvG/P9NBu3yi+Bo2ReVWsMIo7reaSuDbaBItd5/t/DmG85UXy5Vj +d8TQNUrG6XCLtVv4LnbEkDZpMEmHPlGRplPYX1M6j+5j0oFSbE4Vw05cI7j7 +DCsBpvHtoYHnSfSM0eccyE5AmmE0Oob9o6/A35uTwOfTaydLbKNK0/tUbgJE +fs8nyGGPuYb8z1KQgC5+LvauKFy/1W6h3cIE/NLcFvQSe7uekDISJcAqaNKo +BPsGf+EhLUkCotxF3sWtjtcMlEnJETBuv212DzaRW9gsSiFg7fMRAYPV52+E +DqxTJGDDfpVoZewxQpifQ5mAkS9eXryr48LmJyY1CDAq/WTceY5ENX+FI8c0 +CehJkuVvwh79OZg8qE1Ai+M/9WpswxdnGrr0CeDYE+p7H3vEq1imDgjQb3b7 +5Y8t4BCmU7WLgO63B3xPYBuY7LEqMyWgTbB7hwv2dcnvobl7CFBbd/+LJfZT +jpIbGZYENAiMPjDGHp4Je5BqRcD0+PNWfWz9JtFP12wJWCrXE/kPm1r2feLi +AQJqv3fpy2JfSythO29PwFevtRUS2N/9LTSCHQi4w6qVz4PN7yJm7utEwJix +CoVjNZ7F8FHPIwR8MH/KXInE7286G+fiSsAN1tRkBvZTHsssByruz+AEMYX9 +fUGs+gANr2fvp2vj2PxDw++tCAJ2rDnMM4Kt31Y6ZnaCAHF/n94BbGrV2RXw +JIBXfRNH72r8LEuR7V64H2ZEVM9q/GviqjreBDS3mdp/Wo0fMmK81ZcAudaa +8I/YfLQyB2V/nM+qefk9tt6+CB9KIAE/nE61v1uNb7g3VjqYgJ1/Hy61Yl9V +lLgnHkJA0Y6I4BbsJ+tHKwTPEPBThrR8iz30v7IW3nACwvOmAptX4/+IGOKM +ICCs+9L8G2zdj3t//YskYLmi9u2q/w9QqRWn "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.4222837130873766, 2.103798844286089}}, + "PlotRange" -> {{0, 180}, {0.8280981960393767, 1.199764464842655}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.42228371308737755`}, + "AxesOrigin" -> {0, 0.8280981960393786}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 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 +10277,8 @@ GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.42228371308737755`}, + AxesOrigin->{0, 0.8280981960393786}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -5139,7 +10306,8 @@ GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.4222837130873766, 2.103798844286089}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.8280981960393767, 1.199764464842655}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -5147,9 +10315,9 @@ GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913411752988663`*^9}, + CellChangeTimes->{3.9913411752988663`*^9, 3.9939605297205343`*^9}, CellLabel-> - "Out[360]=",ExpressionUUID->"d9c156b6-0b42-724f-8e7d-964560057978"] + "Out[118]=",ExpressionUUID->"2a3460cd-8ada-445e-9852-ca017bbc5e5f"] }, Open ]], Cell[CellGroupData[{ @@ -5212,157 +10380,158 @@ 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[\\\"2.4288475615524613`*^-278\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 44, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913411755393047`*^9, 3.9939605298782187`*^9}, CellLabel-> "During evaluation of \ -In[361]:=",ExpressionUUID->"74b51561-a06a-7345-9196-225d76f7f21f"], +In[119]:=",ExpressionUUID->"ff3c1c97-4340-45a5-9a9a-9f49e69132ce"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.7974258435449576`*^-278\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.066332801593683`*^-290\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 45, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913411755393047`*^9, 3.9939605298852177`*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"be2852be-7be0-45fd-b278-e869dbbeb204"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7579247518575805`*^-302\\\", \ \\\"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, 46, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913411755393047`*^9, 3.993960529892826*^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->"8e584e31-507d-4cbe-ac97-fd83b31f5602"], 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, 47, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913411755393047`*^9, 3.99396052990125*^9}, CellLabel-> "During evaluation of \ -In[361]:=",ExpressionUUID->"43062041-d596-b540-8a1c-36df0575e1f0"], +In[119]:=",ExpressionUUID->"367982dc-4849-4b40-9180-f0e8970f1b4b"], 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:eJwV1nk4VPsbAHAlN0uWiKRsM2cGZU+KjPe1ZElRQlFClrSIiCwtSJayXWvZ +ScLMKfqhCBUqSSHKVi66ujdZk6Xk+p3+mOc8n+c5553v95x3+cof87Z2X8nF +xbVE/X5f5wZeNhHXC/UjlEQMcoV36HflSAYZ9ITDSittiV2iEoDibccke5JA +erzCTEyUCQH7Sru5ewqAW1oq9PtabVg7sT7pR/d9EBCIT3m91gT+qrX0/t7d +AOL3tbmPrLUDE2L043T3W1j/1XewVNgDfnRvT53qHoY/FaKJb7wB0Gh0p7Cj +YAa2tkUWS3RHwqa/qj8fU16C6F3GtrGdibDutFPpaiNu7HWLd9+8kApJGiaP +LG15cfZhkkfU/kzovaH+ZFpEEIeHKt1k/siD64WX21ZuWIuX5NIf258qgPUp +n2KSs8VQyHEPJzelEKJszPXfzonjJ8+Wbf95FoGfTr7Ty3BJPByyVoehUgzG +kz+Dz3ySwpcZlcO2WSUQZJay+emYFKZaRKTH5JfA3XyVPrE5KVy4KraipqgE +JG2cdap5N6J+NE6LlJfA2MNn89yqG1HcO42V/qwEksMTz90M3Ihvd8aY8EyU +wLA480yT4CYUEPiI7nqlEKa330VqhzQKesXaK7aVgtnRnG/bDaXx0oU6s8+d +pSAU+vWK7R5pvCG1yjSvpxSyGq8WJTpLo+iwsg/vcCk83F3z9Y8YaYwfzvYp ++V4KU4foATO90jjEU8ivuoENR/1nr7WGyGBUjVAfOrGBkW64afSqDNZMvvMK +dWVT600gVyfKoFCLnWDtcTYE/1JqNyyUwduDh7wVfNiQeuWoeHWrDHJNOdS/ +CWVD658vcm9Ly6KQlOkVp3w26N69WXHpsSwyHn4pi/mLDcbdb5YmmmWR3/tp +NP8nNlhyrTJ1eiuL//xKnYz6zAZX6zO9MCKLeoJnTwaOs8EkRP5yKI8cMmsr +JdQX2eAjO3fLYIsccian7X+Kc6DpeO54Y4Ac8s0uaC6accD8l47ohRA5rJpU +Xye0hwNvEru0tULl0Kg/IUraigO91XyhhTFyqLLflqFpy4EJgXOiV7PksGxW +wUDThQOSZWbbTRrk0GDnCen4QA6cXpgObRaUx/gYwzuVhRzQPesh8VlUHptZ +Bf3JdzjAO9rH5paUR9pXf+EzpRy43d/4Xp8mj841eQESZRwYqE9VrtSWx7+N +LSy2P+KA1VWdnnwnedwN0geq2zmgKRqmFlIuj8bKbK2nCxzguj7bdKNKHn1U +r8/LLlLr5z7pUPWIet7tdVPwEgdOzVpfnX4mj3XLIqHEShIKe4j+433y6GUw +HWEmQIJEbnOkDTcNxdtbGJ2bSPixRWRAxZaGqelmA7N6JMxlS4VtdaDh5QnL +FW/0SfguzCB0nGjo52LlUoAkTMzonDQ+QcPciwp9YEzC8CPXOYeLNAzKrqvd +a0FCi8UDoejbNDT/YF5ReYiEF3VPy+NKaXi8vH1ovwMJTWqtNsn3aJjmt9dm +9DAJ9WJDGTnVNDwsbcgv4kTC/X5+hcrXNMz2mGlWdSch49RRGJ6l4l95wl/j +Q0L6R8/hf37SMGGHUrOULwkpVn5Xx5dpaOdo1Hnej4T4rdGvFvjoOJXY1cUM +ICF8sfygsAwdN8YmpB4KIeHUdR4fPRM6uvNNJApcJcFzSVjM0IKOD829vTUi +SfDwlqoy3UfHFinJ2weiSHA+oPbL2oGOqYt2knExJNhstI8+cYaOThKTal1x +JOixOXlpaXSUFFxR/r9UEvrl2Lm7Mum4L6o4JiGNhOC0kpzvuXSsVNit55lO +woOwoizrEjreZOVqiNwkQfNQ3g2hWjo+8719SjeLhI7XOel1T+g4p6JGX6Ls +Y5SddvoZHYN2ra6uzSbhrmpGSssbOhadfB+mmUuCEk9KYuQQHR0tAtMX8klo +Dk5K2PaZjlzCP/YVFFD7mUqM/3uUjpZqrHGzW1Q+9MfFGn6n442iA+2xhSTI +3Y+K/u8PAo+F3N83WUTCY4XIKFKAwKTbRuqhd0g4mh0ReUSEwHWBKvOCxSRk +RodF1GwgMEjbiSVXQuWTU0hogDKB/5XdeiTLJqGyK+gyQ4PAZR2nz+mUbXYH +XuraRuDHMMWlNRwSkrb5X9AEAm+pmE2PU9Zg+4UMGRG4rbqjzZ4koV3ONzjR +jMCz1m1ZDZQF13gHTuwn0MUmadX1uyRwwrzOZ9sRWPosPm+U8u75UwF7DhNo +aeulYnqPhOhhz3OlbgTmKxtvmqe8qvqYj8d5AhfFM500y0m4periLX6BQGv/ +f5KDKBsWOp1pCiXwx3q++jrKlxOOnKZdIzD9seWc3n0SZHgOn+qIJ/CwfiVP +IOXaYPuTockEXpnxFyyj/NPdznMgi0BBmUTe9f8j4Wa/zfG4fAK/taot7aK8 +Y/8BD70iAp8SVWNnKXc/3+/+tZTA1adfdGdQDtDb55Zxj3p/TryPn1AWv2/p +al5B4C4tmVufKFco7D228JDAlKS7EdwVJFhnW7jcqSPwaoaTmxzladHdznYN +BBoNdRvqUu45TWs/+YLAtHXPxqwpP3n+Ey63Ephhe0LYk3KxXOe95A4CeVZm +soMoJwazZYvfE1gpqdEQRTmw60pCbT+B9jrcNkmUnVWPLLcPUvcXfnG5Sdks +Wst7ZITA5h11Y1mU1YfX/PVjlMCD5w/O/rak3oil0BSB4ZeSLvy+nyutrp42 +S+1PwPzK73j/Tqaqbv9J4IsQO/5oym3mZ3Islgkce5EmGky56paJkPMqBvJE +f876vd6cJZlL5/gY2DNFKz1AOfLg/Hi0EANnO5V27qR8przNMVuMgbtye/fJ +UrYTKH5dLsnAkiNrx5ap96fvHsp6Ls3AxPIywY+UmY8PkX00BiYMpFdVURbc +oCE9qcDAhfo7/8RS/u7LF8etwkCf5qf5TpQ/tA79Wq/JwBT+5hFVypzQpA+o +x0CLAEK4kfr+KX0n99gaMPC/WoO5KMoXtIxqT5gw8Kl/70lzyhb/zmQm7WPg +9hWCXA1UfmkatgrcsWWgWNk52u/8k8oqDHnkwMCg6Il3ypRHrWwP/+3GwIKR +qpmYMhLelqi8WjjBQK+Fd05bKddw/7FT0JuBv6yKnXup/I55UCWlHcTAFksh +YiNlRVnJvqg4BjKOp7zyp+pHJGjKPCuJgeIn/pvjprzwtrm6LJ2BjXeC6uOp ++muODLrZm89ApzJHRgZVr8cn+g5tqWLgqL2IVzRV35Zm/2uGRww0L9dKXqTq +X7vg+g6bJ1S8+LEjpyj/YacnebGFgdOpwwNI9YuiuuzuNwMMfDl240Ej1V/+ +jnW2813NRKfbYclKVL86M6pMU1/DRMmPvD7nckiYN/0xPi7CxBHa4dO/+xs/ +d9LVE1JMfD6a9MKI6n/qQY0VzipMbNBpklGn+uVFd6aY1QHq+deyPKFJ1P83 +fhtYc4iJVqWrIftPKp/lHpe2HGHi24Sy2w8Sf/e7g4YmHkx0vpL461M8NZ/2 +x5xlBTHRtYb9j9R1qn/pj7VtyWVip3ee18orJORlPsz8couJIQbK3d/CqP76 +I+L4nWIm5vW0Bw+GUv2+QnqZdp+J8iov/P53iQTXzVaqUs+Y2BagbrwjmIQy +ifuxvF+ZSLN2kamn5pX55HnzEW0FHMqeePaEmnebNGQiefUUUFfm5So9ah5O ++DY1bDFQQM/Tr2gV1LxMmRPR87VQwLcH3nBl2pIwsFSiuuykgPJ70tyMrEjw +XfNBbEOMAmYafW5ZNqDmoxIO7OlXQIUb+Uw1BgmnT32W8hlUQDHtb1fM6CQA +GXsweUQBrQfPjhyVp76Hem9776QCFlyrqQ6XJkF1h2+jxypFPCDNaS4SJ6HR +pLA4VEURf/Izr7vwkDDmyutXcVkR/7TyFyodps5DOcZ1jyMUcdWu1h6fQQ5M +9oaufhWjiOsMBP/VGuDAN6sfmUPJihj+bqa3opcD8ztHm4SKFfG5yrctKdR5 +ZuW6VokT7YrYZFAY31HHgQ1NCTXS8kp40iIiziqNQ53316+MalBCmiOYZgIH +vhwzLd75QgltM02Wx/U4EJt/3nLqlRKmR5+4qa/LgU6Zngz7d0o4Hbd0vleL +A84bbm5V/lcJrcONf84qcSBIaKN7h+BmXHZd/NYixgHOgkzzRnvKxm+qv46w +QfQ1M75scjMq/lWgbBDBhk3R9/ZpaytjhZ9G0KX0UrixRUdE7LgK2q2dcnTM +LYEWKYNtM3+q4pEHW3hn04pBd1NDotp7NQzwfqS+3v0OCHEXnHMJV8fMDtct +fLpFIBMmq2fP1EDZ1fODOV8LgY9xpMr6hQZOPbufuz37FqiyNtw776iJAqai +XmddC8B3QLRxN9dWPC4puo4jkg+TM7G25je2ouhC5sNr5blgqvY8w1xFC3Xf +jgcsOmRD/czOxfk3Wjhfz5Qv+jsDzihr9nW4b0PdnJZ1W+/eANaEW5c9nzY2 +Gc4JyLumwS5Ccq9ggTbuhcHahw4poBh6LbBh+3bcXvulEQKTYLO7zmNG33Zs +v1Wyf0dcIrjXe0ZUnN2B8+fFtAYa4+BxXpfbtLgOqr1OaW05cQ2+Fy/Pqz3Q +QTKv42qOaxS4Mth8GXt18Yut31Ht1xEwvTlZ+/6ULlpGXBjcrB8ODwsXh2aj +d+JAQYL5bbFQcDCm404ZPfSQeJo/tPcCbPSKqlZ9ooez+gYfwmIDQZz/dPne +gyyMg1EJ05P+UGh0MXjKnoWaIs9MhB39QfNivFHyERa2ljtIDlj5g+VU2bse +FxbWhq+4kbDNHyLfz/5wPc1CHhOjVoMV/rBQcNkwOIyF5E17uaGb56BvZ3Jn +EZuFdwuE1X61+YGnf2GW+V0Wcq9yOZLS6Adzdyvdx8pYWBeQMKL5wA9EaT3z +GlUsvBbcsPJKjh9Y8EpvqnvCQuEh7S3eXn5Q21Xk1vmOhZ2Oo+b+a/xgt9BD +lYAeFtZrHVL15fKDHtOXc5L9LPR7l2Hh/90Xvtd8jT46yMJ3D/oV4j/4gkq+ +OvlllIX73i8o8ZO+UNtnEBA7zkKPwer0Hfm+sHvdAVCbovZr2aLsleoLHlH+ +HedmWbi2W6Lp34tUvCeRGesXWDhQO/1UzdcXwn+mu9b8ZKF6nv3ABQ9fENEq +UXZcYmHRnPT6dgdfyPGqmV1epuKzhE4qWfnC/wHhZDuO "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -5376,116 +10545,113 @@ 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:eJwV1nk4VPsbAHAlN0uWiKRsM2cGZU+KjPe1ZElRQlFClrSIiCwtSJayXWvZ +ScLMKfqhCBUqSSHKVi66ujdZk6Xk+p3+mOc8n+c5553v95x3+cof87Z2X8nF +xbVE/X5f5wZeNhHXC/UjlEQMcoV36HflSAYZ9ITDSittiV2iEoDibccke5JA +erzCTEyUCQH7Sru5ewqAW1oq9PtabVg7sT7pR/d9EBCIT3m91gT+qrX0/t7d +AOL3tbmPrLUDE2L043T3W1j/1XewVNgDfnRvT53qHoY/FaKJb7wB0Gh0p7Cj +YAa2tkUWS3RHwqa/qj8fU16C6F3GtrGdibDutFPpaiNu7HWLd9+8kApJGiaP +LG15cfZhkkfU/kzovaH+ZFpEEIeHKt1k/siD64WX21ZuWIuX5NIf258qgPUp +n2KSs8VQyHEPJzelEKJszPXfzonjJ8+Wbf95FoGfTr7Ty3BJPByyVoehUgzG +kz+Dz3ySwpcZlcO2WSUQZJay+emYFKZaRKTH5JfA3XyVPrE5KVy4KraipqgE +JG2cdap5N6J+NE6LlJfA2MNn89yqG1HcO42V/qwEksMTz90M3Ihvd8aY8EyU +wLA480yT4CYUEPiI7nqlEKa330VqhzQKesXaK7aVgtnRnG/bDaXx0oU6s8+d +pSAU+vWK7R5pvCG1yjSvpxSyGq8WJTpLo+iwsg/vcCk83F3z9Y8YaYwfzvYp ++V4KU4foATO90jjEU8ivuoENR/1nr7WGyGBUjVAfOrGBkW64afSqDNZMvvMK +dWVT600gVyfKoFCLnWDtcTYE/1JqNyyUwduDh7wVfNiQeuWoeHWrDHJNOdS/ +CWVD658vcm9Ly6KQlOkVp3w26N69WXHpsSwyHn4pi/mLDcbdb5YmmmWR3/tp +NP8nNlhyrTJ1eiuL//xKnYz6zAZX6zO9MCKLeoJnTwaOs8EkRP5yKI8cMmsr +JdQX2eAjO3fLYIsccian7X+Kc6DpeO54Y4Ac8s0uaC6accD8l47ohRA5rJpU +Xye0hwNvEru0tULl0Kg/IUraigO91XyhhTFyqLLflqFpy4EJgXOiV7PksGxW +wUDThQOSZWbbTRrk0GDnCen4QA6cXpgObRaUx/gYwzuVhRzQPesh8VlUHptZ +Bf3JdzjAO9rH5paUR9pXf+EzpRy43d/4Xp8mj841eQESZRwYqE9VrtSWx7+N +LSy2P+KA1VWdnnwnedwN0geq2zmgKRqmFlIuj8bKbK2nCxzguj7bdKNKHn1U +r8/LLlLr5z7pUPWIet7tdVPwEgdOzVpfnX4mj3XLIqHEShIKe4j+433y6GUw +HWEmQIJEbnOkDTcNxdtbGJ2bSPixRWRAxZaGqelmA7N6JMxlS4VtdaDh5QnL +FW/0SfguzCB0nGjo52LlUoAkTMzonDQ+QcPciwp9YEzC8CPXOYeLNAzKrqvd +a0FCi8UDoejbNDT/YF5ReYiEF3VPy+NKaXi8vH1ovwMJTWqtNsn3aJjmt9dm +9DAJ9WJDGTnVNDwsbcgv4kTC/X5+hcrXNMz2mGlWdSch49RRGJ6l4l95wl/j +Q0L6R8/hf37SMGGHUrOULwkpVn5Xx5dpaOdo1Hnej4T4rdGvFvjoOJXY1cUM +ICF8sfygsAwdN8YmpB4KIeHUdR4fPRM6uvNNJApcJcFzSVjM0IKOD829vTUi +SfDwlqoy3UfHFinJ2weiSHA+oPbL2oGOqYt2knExJNhstI8+cYaOThKTal1x +JOixOXlpaXSUFFxR/r9UEvrl2Lm7Mum4L6o4JiGNhOC0kpzvuXSsVNit55lO +woOwoizrEjreZOVqiNwkQfNQ3g2hWjo+8719SjeLhI7XOel1T+g4p6JGX6Ls +Y5SddvoZHYN2ra6uzSbhrmpGSssbOhadfB+mmUuCEk9KYuQQHR0tAtMX8klo +Dk5K2PaZjlzCP/YVFFD7mUqM/3uUjpZqrHGzW1Q+9MfFGn6n442iA+2xhSTI +3Y+K/u8PAo+F3N83WUTCY4XIKFKAwKTbRuqhd0g4mh0ReUSEwHWBKvOCxSRk +RodF1GwgMEjbiSVXQuWTU0hogDKB/5XdeiTLJqGyK+gyQ4PAZR2nz+mUbXYH +XuraRuDHMMWlNRwSkrb5X9AEAm+pmE2PU9Zg+4UMGRG4rbqjzZ4koV3ONzjR +jMCz1m1ZDZQF13gHTuwn0MUmadX1uyRwwrzOZ9sRWPosPm+U8u75UwF7DhNo +aeulYnqPhOhhz3OlbgTmKxtvmqe8qvqYj8d5AhfFM500y0m4periLX6BQGv/ +f5KDKBsWOp1pCiXwx3q++jrKlxOOnKZdIzD9seWc3n0SZHgOn+qIJ/CwfiVP +IOXaYPuTockEXpnxFyyj/NPdznMgi0BBmUTe9f8j4Wa/zfG4fAK/taot7aK8 +Y/8BD70iAp8SVWNnKXc/3+/+tZTA1adfdGdQDtDb55Zxj3p/TryPn1AWv2/p +al5B4C4tmVufKFco7D228JDAlKS7EdwVJFhnW7jcqSPwaoaTmxzladHdznYN +BBoNdRvqUu45TWs/+YLAtHXPxqwpP3n+Ey63Ephhe0LYk3KxXOe95A4CeVZm +soMoJwazZYvfE1gpqdEQRTmw60pCbT+B9jrcNkmUnVWPLLcPUvcXfnG5Sdks +Wst7ZITA5h11Y1mU1YfX/PVjlMCD5w/O/rak3oil0BSB4ZeSLvy+nyutrp42 +S+1PwPzK73j/Tqaqbv9J4IsQO/5oym3mZ3Islgkce5EmGky56paJkPMqBvJE +f876vd6cJZlL5/gY2DNFKz1AOfLg/Hi0EANnO5V27qR8przNMVuMgbtye/fJ +UrYTKH5dLsnAkiNrx5ap96fvHsp6Ls3AxPIywY+UmY8PkX00BiYMpFdVURbc +oCE9qcDAhfo7/8RS/u7LF8etwkCf5qf5TpQ/tA79Wq/JwBT+5hFVypzQpA+o +x0CLAEK4kfr+KX0n99gaMPC/WoO5KMoXtIxqT5gw8Kl/70lzyhb/zmQm7WPg +9hWCXA1UfmkatgrcsWWgWNk52u/8k8oqDHnkwMCg6Il3ypRHrWwP/+3GwIKR +qpmYMhLelqi8WjjBQK+Fd05bKddw/7FT0JuBv6yKnXup/I55UCWlHcTAFksh +YiNlRVnJvqg4BjKOp7zyp+pHJGjKPCuJgeIn/pvjprzwtrm6LJ2BjXeC6uOp ++muODLrZm89ApzJHRgZVr8cn+g5tqWLgqL2IVzRV35Zm/2uGRww0L9dKXqTq +X7vg+g6bJ1S8+LEjpyj/YacnebGFgdOpwwNI9YuiuuzuNwMMfDl240Ej1V/+ +jnW2813NRKfbYclKVL86M6pMU1/DRMmPvD7nckiYN/0xPi7CxBHa4dO/+xs/ +d9LVE1JMfD6a9MKI6n/qQY0VzipMbNBpklGn+uVFd6aY1QHq+deyPKFJ1P83 +fhtYc4iJVqWrIftPKp/lHpe2HGHi24Sy2w8Sf/e7g4YmHkx0vpL461M8NZ/2 +x5xlBTHRtYb9j9R1qn/pj7VtyWVip3ee18orJORlPsz8couJIQbK3d/CqP76 +I+L4nWIm5vW0Bw+GUv2+QnqZdp+J8iov/P53iQTXzVaqUs+Y2BagbrwjmIQy +ifuxvF+ZSLN2kamn5pX55HnzEW0FHMqeePaEmnebNGQiefUUUFfm5So9ah5O ++DY1bDFQQM/Tr2gV1LxMmRPR87VQwLcH3nBl2pIwsFSiuuykgPJ70tyMrEjw +XfNBbEOMAmYafW5ZNqDmoxIO7OlXQIUb+Uw1BgmnT32W8hlUQDHtb1fM6CQA +GXsweUQBrQfPjhyVp76Hem9776QCFlyrqQ6XJkF1h2+jxypFPCDNaS4SJ6HR +pLA4VEURf/Izr7vwkDDmyutXcVkR/7TyFyodps5DOcZ1jyMUcdWu1h6fQQ5M +9oaufhWjiOsMBP/VGuDAN6sfmUPJihj+bqa3opcD8ztHm4SKFfG5yrctKdR5 +ZuW6VokT7YrYZFAY31HHgQ1NCTXS8kp40iIiziqNQ53316+MalBCmiOYZgIH +vhwzLd75QgltM02Wx/U4EJt/3nLqlRKmR5+4qa/LgU6Zngz7d0o4Hbd0vleL +A84bbm5V/lcJrcONf84qcSBIaKN7h+BmXHZd/NYixgHOgkzzRnvKxm+qv46w +QfQ1M75scjMq/lWgbBDBhk3R9/ZpaytjhZ9G0KX0UrixRUdE7LgK2q2dcnTM +LYEWKYNtM3+q4pEHW3hn04pBd1NDotp7NQzwfqS+3v0OCHEXnHMJV8fMDtct +fLpFIBMmq2fP1EDZ1fODOV8LgY9xpMr6hQZOPbufuz37FqiyNtw776iJAqai +XmddC8B3QLRxN9dWPC4puo4jkg+TM7G25je2ouhC5sNr5blgqvY8w1xFC3Xf +jgcsOmRD/czOxfk3Wjhfz5Qv+jsDzihr9nW4b0PdnJZ1W+/eANaEW5c9nzY2 +Gc4JyLumwS5Ccq9ggTbuhcHahw4poBh6LbBh+3bcXvulEQKTYLO7zmNG33Zs +v1Wyf0dcIrjXe0ZUnN2B8+fFtAYa4+BxXpfbtLgOqr1OaW05cQ2+Fy/Pqz3Q +QTKv42qOaxS4Mth8GXt18Yut31Ht1xEwvTlZ+/6ULlpGXBjcrB8ODwsXh2aj +d+JAQYL5bbFQcDCm404ZPfSQeJo/tPcCbPSKqlZ9ooez+gYfwmIDQZz/dPne +gyyMg1EJ05P+UGh0MXjKnoWaIs9MhB39QfNivFHyERa2ljtIDlj5g+VU2bse +FxbWhq+4kbDNHyLfz/5wPc1CHhOjVoMV/rBQcNkwOIyF5E17uaGb56BvZ3Jn +EZuFdwuE1X61+YGnf2GW+V0Wcq9yOZLS6Adzdyvdx8pYWBeQMKL5wA9EaT3z +GlUsvBbcsPJKjh9Y8EpvqnvCQuEh7S3eXn5Q21Xk1vmOhZ2Oo+b+a/xgt9BD +lYAeFtZrHVL15fKDHtOXc5L9LPR7l2Hh/90Xvtd8jT46yMJ3D/oV4j/4gkq+ +OvlllIX73i8o8ZO+UNtnEBA7zkKPwer0Hfm+sHvdAVCbovZr2aLsleoLHlH+ +HedmWbi2W6Lp34tUvCeRGesXWDhQO/1UzdcXwn+mu9b8ZKF6nv3ABQ9fENEq +UXZcYmHRnPT6dgdfyPGqmV1epuKzhE4qWfnC/wHhZDuO "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "PlotRange" -> {{0, 30}, {0., 0.05801859373944634}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +10663,19 @@ YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "PlotRange" -> {{0, 30}, {0., 0.05801859373944634}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +10689,112 @@ 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:eJwV1nk4VPsbAHAlN0uWiKRsM2cGZU+KjPe1ZElRQlFClrSIiCwtSJayXWvZ +ScLMKfqhCBUqSSHKVi66ujdZk6Xk+p3+mOc8n+c5553v95x3+cof87Z2X8nF +xbVE/X5f5wZeNhHXC/UjlEQMcoV36HflSAYZ9ITDSittiV2iEoDibccke5JA +erzCTEyUCQH7Sru5ewqAW1oq9PtabVg7sT7pR/d9EBCIT3m91gT+qrX0/t7d +AOL3tbmPrLUDE2L043T3W1j/1XewVNgDfnRvT53qHoY/FaKJb7wB0Gh0p7Cj +YAa2tkUWS3RHwqa/qj8fU16C6F3GtrGdibDutFPpaiNu7HWLd9+8kApJGiaP +LG15cfZhkkfU/kzovaH+ZFpEEIeHKt1k/siD64WX21ZuWIuX5NIf258qgPUp +n2KSs8VQyHEPJzelEKJszPXfzonjJ8+Wbf95FoGfTr7Ty3BJPByyVoehUgzG +kz+Dz3ySwpcZlcO2WSUQZJay+emYFKZaRKTH5JfA3XyVPrE5KVy4KraipqgE +JG2cdap5N6J+NE6LlJfA2MNn89yqG1HcO42V/qwEksMTz90M3Ihvd8aY8EyU +wLA480yT4CYUEPiI7nqlEKa330VqhzQKesXaK7aVgtnRnG/bDaXx0oU6s8+d +pSAU+vWK7R5pvCG1yjSvpxSyGq8WJTpLo+iwsg/vcCk83F3z9Y8YaYwfzvYp ++V4KU4foATO90jjEU8ivuoENR/1nr7WGyGBUjVAfOrGBkW64afSqDNZMvvMK +dWVT600gVyfKoFCLnWDtcTYE/1JqNyyUwduDh7wVfNiQeuWoeHWrDHJNOdS/ +CWVD658vcm9Ly6KQlOkVp3w26N69WXHpsSwyHn4pi/mLDcbdb5YmmmWR3/tp +NP8nNlhyrTJ1eiuL//xKnYz6zAZX6zO9MCKLeoJnTwaOs8EkRP5yKI8cMmsr +JdQX2eAjO3fLYIsccian7X+Kc6DpeO54Y4Ac8s0uaC6accD8l47ohRA5rJpU +Xye0hwNvEru0tULl0Kg/IUraigO91XyhhTFyqLLflqFpy4EJgXOiV7PksGxW +wUDThQOSZWbbTRrk0GDnCen4QA6cXpgObRaUx/gYwzuVhRzQPesh8VlUHptZ +Bf3JdzjAO9rH5paUR9pXf+EzpRy43d/4Xp8mj841eQESZRwYqE9VrtSWx7+N +LSy2P+KA1VWdnnwnedwN0geq2zmgKRqmFlIuj8bKbK2nCxzguj7bdKNKHn1U +r8/LLlLr5z7pUPWIet7tdVPwEgdOzVpfnX4mj3XLIqHEShIKe4j+433y6GUw +HWEmQIJEbnOkDTcNxdtbGJ2bSPixRWRAxZaGqelmA7N6JMxlS4VtdaDh5QnL +FW/0SfguzCB0nGjo52LlUoAkTMzonDQ+QcPciwp9YEzC8CPXOYeLNAzKrqvd +a0FCi8UDoejbNDT/YF5ReYiEF3VPy+NKaXi8vH1ovwMJTWqtNsn3aJjmt9dm +9DAJ9WJDGTnVNDwsbcgv4kTC/X5+hcrXNMz2mGlWdSch49RRGJ6l4l95wl/j +Q0L6R8/hf37SMGGHUrOULwkpVn5Xx5dpaOdo1Hnej4T4rdGvFvjoOJXY1cUM +ICF8sfygsAwdN8YmpB4KIeHUdR4fPRM6uvNNJApcJcFzSVjM0IKOD829vTUi +SfDwlqoy3UfHFinJ2weiSHA+oPbL2oGOqYt2knExJNhstI8+cYaOThKTal1x +JOixOXlpaXSUFFxR/r9UEvrl2Lm7Mum4L6o4JiGNhOC0kpzvuXSsVNit55lO +woOwoizrEjreZOVqiNwkQfNQ3g2hWjo+8719SjeLhI7XOel1T+g4p6JGX6Ls +Y5SddvoZHYN2ra6uzSbhrmpGSssbOhadfB+mmUuCEk9KYuQQHR0tAtMX8klo +Dk5K2PaZjlzCP/YVFFD7mUqM/3uUjpZqrHGzW1Q+9MfFGn6n442iA+2xhSTI +3Y+K/u8PAo+F3N83WUTCY4XIKFKAwKTbRuqhd0g4mh0ReUSEwHWBKvOCxSRk +RodF1GwgMEjbiSVXQuWTU0hogDKB/5XdeiTLJqGyK+gyQ4PAZR2nz+mUbXYH +XuraRuDHMMWlNRwSkrb5X9AEAm+pmE2PU9Zg+4UMGRG4rbqjzZ4koV3ONzjR +jMCz1m1ZDZQF13gHTuwn0MUmadX1uyRwwrzOZ9sRWPosPm+U8u75UwF7DhNo +aeulYnqPhOhhz3OlbgTmKxtvmqe8qvqYj8d5AhfFM500y0m4periLX6BQGv/ +f5KDKBsWOp1pCiXwx3q++jrKlxOOnKZdIzD9seWc3n0SZHgOn+qIJ/CwfiVP +IOXaYPuTockEXpnxFyyj/NPdznMgi0BBmUTe9f8j4Wa/zfG4fAK/taot7aK8 +Y/8BD70iAp8SVWNnKXc/3+/+tZTA1adfdGdQDtDb55Zxj3p/TryPn1AWv2/p +al5B4C4tmVufKFco7D228JDAlKS7EdwVJFhnW7jcqSPwaoaTmxzladHdznYN +BBoNdRvqUu45TWs/+YLAtHXPxqwpP3n+Ey63Ephhe0LYk3KxXOe95A4CeVZm +soMoJwazZYvfE1gpqdEQRTmw60pCbT+B9jrcNkmUnVWPLLcPUvcXfnG5Sdks +Wst7ZITA5h11Y1mU1YfX/PVjlMCD5w/O/rak3oil0BSB4ZeSLvy+nyutrp42 +S+1PwPzK73j/Tqaqbv9J4IsQO/5oym3mZ3Islgkce5EmGky56paJkPMqBvJE +f876vd6cJZlL5/gY2DNFKz1AOfLg/Hi0EANnO5V27qR8przNMVuMgbtye/fJ +UrYTKH5dLsnAkiNrx5ap96fvHsp6Ls3AxPIywY+UmY8PkX00BiYMpFdVURbc +oCE9qcDAhfo7/8RS/u7LF8etwkCf5qf5TpQ/tA79Wq/JwBT+5hFVypzQpA+o +x0CLAEK4kfr+KX0n99gaMPC/WoO5KMoXtIxqT5gw8Kl/70lzyhb/zmQm7WPg +9hWCXA1UfmkatgrcsWWgWNk52u/8k8oqDHnkwMCg6Il3ypRHrWwP/+3GwIKR +qpmYMhLelqi8WjjBQK+Fd05bKddw/7FT0JuBv6yKnXup/I55UCWlHcTAFksh +YiNlRVnJvqg4BjKOp7zyp+pHJGjKPCuJgeIn/pvjprzwtrm6LJ2BjXeC6uOp ++muODLrZm89ApzJHRgZVr8cn+g5tqWLgqL2IVzRV35Zm/2uGRww0L9dKXqTq +X7vg+g6bJ1S8+LEjpyj/YacnebGFgdOpwwNI9YuiuuzuNwMMfDl240Ej1V/+ +jnW2813NRKfbYclKVL86M6pMU1/DRMmPvD7nckiYN/0xPi7CxBHa4dO/+xs/ +d9LVE1JMfD6a9MKI6n/qQY0VzipMbNBpklGn+uVFd6aY1QHq+deyPKFJ1P83 +fhtYc4iJVqWrIftPKp/lHpe2HGHi24Sy2w8Sf/e7g4YmHkx0vpL461M8NZ/2 +x5xlBTHRtYb9j9R1qn/pj7VtyWVip3ee18orJORlPsz8couJIQbK3d/CqP76 +I+L4nWIm5vW0Bw+GUv2+QnqZdp+J8iov/P53iQTXzVaqUs+Y2BagbrwjmIQy +ifuxvF+ZSLN2kamn5pX55HnzEW0FHMqeePaEmnebNGQiefUUUFfm5So9ah5O ++DY1bDFQQM/Tr2gV1LxMmRPR87VQwLcH3nBl2pIwsFSiuuykgPJ70tyMrEjw +XfNBbEOMAmYafW5ZNqDmoxIO7OlXQIUb+Uw1BgmnT32W8hlUQDHtb1fM6CQA +GXsweUQBrQfPjhyVp76Hem9776QCFlyrqQ6XJkF1h2+jxypFPCDNaS4SJ6HR +pLA4VEURf/Izr7vwkDDmyutXcVkR/7TyFyodps5DOcZ1jyMUcdWu1h6fQQ5M +9oaufhWjiOsMBP/VGuDAN6sfmUPJihj+bqa3opcD8ztHm4SKFfG5yrctKdR5 +ZuW6VokT7YrYZFAY31HHgQ1NCTXS8kp40iIiziqNQ53316+MalBCmiOYZgIH +vhwzLd75QgltM02Wx/U4EJt/3nLqlRKmR5+4qa/LgU6Zngz7d0o4Hbd0vleL +A84bbm5V/lcJrcONf84qcSBIaKN7h+BmXHZd/NYixgHOgkzzRnvKxm+qv46w +QfQ1M75scjMq/lWgbBDBhk3R9/ZpaytjhZ9G0KX0UrixRUdE7LgK2q2dcnTM +LYEWKYNtM3+q4pEHW3hn04pBd1NDotp7NQzwfqS+3v0OCHEXnHMJV8fMDtct +fLpFIBMmq2fP1EDZ1fODOV8LgY9xpMr6hQZOPbufuz37FqiyNtw776iJAqai +XmddC8B3QLRxN9dWPC4puo4jkg+TM7G25je2ouhC5sNr5blgqvY8w1xFC3Xf +jgcsOmRD/czOxfk3Wjhfz5Qv+jsDzihr9nW4b0PdnJZ1W+/eANaEW5c9nzY2 +Gc4JyLumwS5Ccq9ggTbuhcHahw4poBh6LbBh+3bcXvulEQKTYLO7zmNG33Zs +v1Wyf0dcIrjXe0ZUnN2B8+fFtAYa4+BxXpfbtLgOqr1OaW05cQ2+Fy/Pqz3Q +QTKv42qOaxS4Mth8GXt18Yut31Ht1xEwvTlZ+/6ULlpGXBjcrB8ODwsXh2aj +d+JAQYL5bbFQcDCm404ZPfSQeJo/tPcCbPSKqlZ9ooez+gYfwmIDQZz/dPne +gyyMg1EJ05P+UGh0MXjKnoWaIs9MhB39QfNivFHyERa2ljtIDlj5g+VU2bse +FxbWhq+4kbDNHyLfz/5wPc1CHhOjVoMV/rBQcNkwOIyF5E17uaGb56BvZ3Jn +EZuFdwuE1X61+YGnf2GW+V0Wcq9yOZLS6Adzdyvdx8pYWBeQMKL5wA9EaT3z +GlUsvBbcsPJKjh9Y8EpvqnvCQuEh7S3eXn5Q21Xk1vmOhZ2Oo+b+a/xgt9BD +lYAeFtZrHVL15fKDHtOXc5L9LPR7l2Hh/90Xvtd8jT46yMJ3D/oV4j/4gkq+ +OvlllIX73i8o8ZO+UNtnEBA7zkKPwer0Hfm+sHvdAVCbovZr2aLsleoLHlH+ +HedmWbi2W6Lp34tUvCeRGesXWDhQO/1UzdcXwn+mu9b8ZKF6nv3ABQ9fENEq +UXZcYmHRnPT6dgdfyPGqmV1epuKzhE4qWfnC/wHhZDuO "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "PlotRange" -> {{0, 30}, {0., 0.05801859373944634}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +10805,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 +10833,8 @@ YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.1261051971575712}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.05801859373944634}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -5677,17 +10842,589 @@ YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913414579436264`*^9}, + CellChangeTimes->{3.9913414579436264`*^9, 3.993960834098048*^9}, CellLabel-> - "Out[361]=",ExpressionUUID->"4ce3b436-d895-8b48-899f-c7dec78bd5cd"] + "Out[119]=",ExpressionUUID->"25ac54ce-c0d0-49e7-a5e0-ba32c13129c8"] }, 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[ + TemplateBox[{ + "Show", "gcomb", + "\"Could not combine the graphics objects in \ +\\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", \ +RowBox[{GraphicsBox[List[InterpretationBox[List[List[List[Skeleton[3]]], \ +List[]], Annotation[List[List[List[Skeleton[3]]], List[]], \ +Internal`ShallowAssociation[Rule[\\\"HighlightElements\\\", Association[Rule[\ +\\\"Label\\\", List[\\\"XYLabel\\\"]], Rule[\\\"Ball\\\", \ +List[\\\"InterpolatedBall\\\"]]]], Rule[\\\"LayoutOptions\\\", \ +Association[Rule[\\\"PanelPlotLayout\\\", Association[]], \ +Rule[\\\"PlotRange\\\", List[List[0, 30], List[0.`, 0.05801859373944634`]]], \ +Rule[\\\"Frame\\\", List[List[False, False], List[False, False]]], \ +Rule[\\\"AxesOrigin\\\", List[0, 0]], Rule[\\\"ImageSize\\\", List[360, \ +Times[360, Power[GoldenRatio, -1]]]], Rule[\\\"Axes\\\", List[True, True]], \ +Rule[\\\"LabelStyle\\\", List[]], Rule[\\\"AspectRatio\\\", \ +Power[GoldenRatio, -1]], Rule[\\\"DefaultStyle\\\", \ +List[Directive[Opacity[1.`], RGBColor[0.24`, 0.6`, 0.8`], \ +AbsoluteThickness[2]]]], Rule[\\\"HighlightLabelingFunctions\\\", \ +Association[Rule[\\\"CoordinatesToolOptions\\\", \ +Function[List[Function[Identity[Slot[1]]][Part[Slot[1], 1]], \ +Function[Identity[Slot[1]]][Part[Slot[1], 2]]]]], Rule[\\\"ScalingFunctions\\\ +\", List[List[Identity, Identity], List[Identity, Identity]]]]], \ +Rule[\\\"Primitives\\\", List[]], Rule[\\\"GCFlag\\\", False]]], \ +Rule[\\\"Meta\\\", Association[Rule[\\\"DefaultHighlight\\\", \ +List[\\\"Dynamic\\\", None]], Rule[\\\"Index\\\", List[]], \ +Rule[\\\"Function\\\", Plot], Rule[\\\"GroupHighlight\\\", False]]]], \ +\\\"DynamicHighlight\\\"]]], List[Rule[DisplayFunction, Identity], \ +RuleDelayed[PlotInteractivity, True], Rule[DisplayFunction, Identity], \ +RuleDelayed[PlotInteractivity, True], Rule[DefaultBaseStyle, \ +List[\\\"PlotGraphics\\\", \\\"Graphics\\\"]], Rule[DisplayFunction, \ +Identity], Rule[Ticks, List[Automatic, Automatic]], Rule[AxesOrigin, List[0, \ +0]], Rule[FrameTicks, List[List[Automatic, Automatic], List[Automatic, \ +Automatic]]], Rule[GridLines, List[None, None]], \ +RuleDelayed[PlotInteractivity, True], Rule[DefaultBaseStyle, \ +List[\\\"PlotGraphics\\\", \\\"Graphics\\\"]], Rule[DisplayFunction, \ +Identity], Rule[PlotRangePadding, List[List[Scaled[Skeleton[1]], \ +Scaled[Skeleton[1]]], List[Scaled[Skeleton[1]], Scaled[Skeleton[1]]]]], \ +Rule[PlotRangeClipping, True], Rule[ImagePadding, All], \ +RuleDelayed[PlotInteractivity, True], Rule[DisplayFunction, Identity], \ +RuleDelayed[PlotInteractivity, True], Rule[DefaultBaseStyle, \ +List[\\\"PlotGraphics\\\", \\\"Graphics\\\"]], Rule[AspectRatio, \ +NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], Rule[Axes, List[True, \ +True]], Rule[AxesLabel, List[None, None]], Rule[AxesOrigin, List[0, 0]], \ +RuleDelayed[DisplayFunction, Identity], Rule[Frame, List[List[False, False], \ +List[False, False]]], Rule[FrameLabel, List[List[None, None], List[None, \ +None]]], Rule[FrameTicks, List[List[Automatic, Automatic], List[Automatic, \ +Automatic]]], Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \ +Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \ +List[Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \ +Rule[\\\"DefaultGraphicsInteraction\\\", List[Skeleton[3]]], \ +Rule[\\\"DefaultMeshStyle\\\", AbsolutePointSize[Skeleton[1]]], \ +Rule[\\\"ScalingFunctions\\\", None], Rule[\\\"CoordinatesToolOptions\\\", \ +List[Skeleton[2]]]]], Rule[PlotRange, List[List[0, 30], List[0.`, \ +0.05801859373944634`]]], Rule[PlotRangeClipping, True], \ +Rule[PlotRangePadding, List[List[Scaled[Skeleton[1]], Scaled[Skeleton[1]]], \ +List[Scaled[Skeleton[1]], Scaled[Skeleton[1]]]]], Rule[Ticks, List[Automatic, \ +Automatic]]]], \\\",\\\", RowBox[{\\\"ListPlot\\\", \\\"[\\\", \ +RowBox[{RowBox[{RowBox[{\\\"{\\\", \\\"}\\\"}], \\\" \\\", RowBox[{\\\"{\\\", \ +RowBox[{\\\"0\\\", \\\",\\\", \\\"0.005381`\\\"}], \\\"}\\\"}]}], \\\",\\\", \ +RowBox[{\\\"{\\\", RowBox[{\\\"1\\\", \\\",\\\", \\\"0.015959`\\\"}], \\\"}\\\ +\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"2\\\", \\\",\\\", \ +\\\"0.025999`\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"3\ +\\\", \\\",\\\", \\\"0.035173`\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\ +\", RowBox[{\\\"4\\\", \\\",\\\", \\\"0.043213`\\\"}], \\\"}\\\"}], \ +\\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"5\\\", \\\",\\\", \ +\\\"0.049902`\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"6\ +\\\", \\\",\\\", \\\"0.055111`\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\ +\", RowBox[{\\\"7\\\", \\\",\\\", \\\"0.058771`\\\"}], \\\"}\\\"}], \ +\\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"8\\\", \\\",\\\", \ +\\\"0.060904`\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"13\\\", \\\"\[RightSkeleton]\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \ +RowBox[{\\\"22\\\", \\\",\\\", \\\"0.016691`\\\"}], \\\"}\\\"}], \\\",\\\", \ +RowBox[{\\\"{\\\", RowBox[{\\\"23\\\", \\\",\\\", \\\"0.013926`\\\"}], \ +\\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"24\\\", \\\",\\\", \ +\\\"0.01152`\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"25\ +\\\", \\\",\\\", \\\"0.009447`\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\ +\", RowBox[{\\\"26\\\", \\\",\\\", \\\"0.007687`\\\"}], \\\"}\\\"}], \ +\\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"27\\\", \\\",\\\", \ +\\\"0.006205`\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \ +RowBox[{\\\"28\\\", \\\",\\\", \\\"0.004972`\\\"}], \\\"}\\\"}], \\\",\\\", \ +RowBox[{\\\"{\\\", RowBox[{\\\"29\\\", \\\",\\\", \\\"0.003954`\\\"}], \ +\\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"30\\\", \\\",\\\", \ +\\\"0.003124`\\\"}], \\\"}\\\"}]}], \\\"]\\\"}]}], \\\"]\\\"}]\\).\"", 2, 120, + 48, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993960834158494*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"0def0c01-8606-4d7d-a1d6-da240b4caa78"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk4VPsbAHAlN0uWiKRsM2cGZU+KjPe1ZElRQlFClrSIiCwtSJayXWvZ +ScLMKfqhCBUqSSHKVi66ujdZk6Xk+p3+mOc8n+c5553v95x3+cof87Z2X8nF +xbVE/X5f5wZeNhHXC/UjlEQMcoV36HflSAYZ9ITDSittiV2iEoDibccke5JA +erzCTEyUCQH7Sru5ewqAW1oq9PtabVg7sT7pR/d9EBCIT3m91gT+qrX0/t7d +AOL3tbmPrLUDE2L043T3W1j/1XewVNgDfnRvT53qHoY/FaKJb7wB0Gh0p7Cj +YAa2tkUWS3RHwqa/qj8fU16C6F3GtrGdibDutFPpaiNu7HWLd9+8kApJGiaP +LG15cfZhkkfU/kzovaH+ZFpEEIeHKt1k/siD64WX21ZuWIuX5NIf258qgPUp +n2KSs8VQyHEPJzelEKJszPXfzonjJ8+Wbf95FoGfTr7Ty3BJPByyVoehUgzG +kz+Dz3ySwpcZlcO2WSUQZJay+emYFKZaRKTH5JfA3XyVPrE5KVy4KraipqgE +JG2cdap5N6J+NE6LlJfA2MNn89yqG1HcO42V/qwEksMTz90M3Ihvd8aY8EyU +wLA480yT4CYUEPiI7nqlEKa330VqhzQKesXaK7aVgtnRnG/bDaXx0oU6s8+d +pSAU+vWK7R5pvCG1yjSvpxSyGq8WJTpLo+iwsg/vcCk83F3z9Y8YaYwfzvYp ++V4KU4foATO90jjEU8ivuoENR/1nr7WGyGBUjVAfOrGBkW64afSqDNZMvvMK +dWVT600gVyfKoFCLnWDtcTYE/1JqNyyUwduDh7wVfNiQeuWoeHWrDHJNOdS/ +CWVD658vcm9Ly6KQlOkVp3w26N69WXHpsSwyHn4pi/mLDcbdb5YmmmWR3/tp +NP8nNlhyrTJ1eiuL//xKnYz6zAZX6zO9MCKLeoJnTwaOs8EkRP5yKI8cMmsr +JdQX2eAjO3fLYIsccian7X+Kc6DpeO54Y4Ac8s0uaC6accD8l47ohRA5rJpU +Xye0hwNvEru0tULl0Kg/IUraigO91XyhhTFyqLLflqFpy4EJgXOiV7PksGxW +wUDThQOSZWbbTRrk0GDnCen4QA6cXpgObRaUx/gYwzuVhRzQPesh8VlUHptZ +Bf3JdzjAO9rH5paUR9pXf+EzpRy43d/4Xp8mj841eQESZRwYqE9VrtSWx7+N +LSy2P+KA1VWdnnwnedwN0geq2zmgKRqmFlIuj8bKbK2nCxzguj7bdKNKHn1U +r8/LLlLr5z7pUPWIet7tdVPwEgdOzVpfnX4mj3XLIqHEShIKe4j+433y6GUw +HWEmQIJEbnOkDTcNxdtbGJ2bSPixRWRAxZaGqelmA7N6JMxlS4VtdaDh5QnL +FW/0SfguzCB0nGjo52LlUoAkTMzonDQ+QcPciwp9YEzC8CPXOYeLNAzKrqvd +a0FCi8UDoejbNDT/YF5ReYiEF3VPy+NKaXi8vH1ovwMJTWqtNsn3aJjmt9dm +9DAJ9WJDGTnVNDwsbcgv4kTC/X5+hcrXNMz2mGlWdSch49RRGJ6l4l95wl/j +Q0L6R8/hf37SMGGHUrOULwkpVn5Xx5dpaOdo1Hnej4T4rdGvFvjoOJXY1cUM +ICF8sfygsAwdN8YmpB4KIeHUdR4fPRM6uvNNJApcJcFzSVjM0IKOD829vTUi +SfDwlqoy3UfHFinJ2weiSHA+oPbL2oGOqYt2knExJNhstI8+cYaOThKTal1x +JOixOXlpaXSUFFxR/r9UEvrl2Lm7Mum4L6o4JiGNhOC0kpzvuXSsVNit55lO +woOwoizrEjreZOVqiNwkQfNQ3g2hWjo+8719SjeLhI7XOel1T+g4p6JGX6Ls +Y5SddvoZHYN2ra6uzSbhrmpGSssbOhadfB+mmUuCEk9KYuQQHR0tAtMX8klo +Dk5K2PaZjlzCP/YVFFD7mUqM/3uUjpZqrHGzW1Q+9MfFGn6n442iA+2xhSTI +3Y+K/u8PAo+F3N83WUTCY4XIKFKAwKTbRuqhd0g4mh0ReUSEwHWBKvOCxSRk +RodF1GwgMEjbiSVXQuWTU0hogDKB/5XdeiTLJqGyK+gyQ4PAZR2nz+mUbXYH +XuraRuDHMMWlNRwSkrb5X9AEAm+pmE2PU9Zg+4UMGRG4rbqjzZ4koV3ONzjR +jMCz1m1ZDZQF13gHTuwn0MUmadX1uyRwwrzOZ9sRWPosPm+U8u75UwF7DhNo +aeulYnqPhOhhz3OlbgTmKxtvmqe8qvqYj8d5AhfFM500y0m4periLX6BQGv/ +f5KDKBsWOp1pCiXwx3q++jrKlxOOnKZdIzD9seWc3n0SZHgOn+qIJ/CwfiVP +IOXaYPuTockEXpnxFyyj/NPdznMgi0BBmUTe9f8j4Wa/zfG4fAK/taot7aK8 +Y/8BD70iAp8SVWNnKXc/3+/+tZTA1adfdGdQDtDb55Zxj3p/TryPn1AWv2/p +al5B4C4tmVufKFco7D228JDAlKS7EdwVJFhnW7jcqSPwaoaTmxzladHdznYN +BBoNdRvqUu45TWs/+YLAtHXPxqwpP3n+Ey63Ephhe0LYk3KxXOe95A4CeVZm +soMoJwazZYvfE1gpqdEQRTmw60pCbT+B9jrcNkmUnVWPLLcPUvcXfnG5Sdks +Wst7ZITA5h11Y1mU1YfX/PVjlMCD5w/O/rak3oil0BSB4ZeSLvy+nyutrp42 +S+1PwPzK73j/Tqaqbv9J4IsQO/5oym3mZ3Islgkce5EmGky56paJkPMqBvJE +f876vd6cJZlL5/gY2DNFKz1AOfLg/Hi0EANnO5V27qR8przNMVuMgbtye/fJ +UrYTKH5dLsnAkiNrx5ap96fvHsp6Ls3AxPIywY+UmY8PkX00BiYMpFdVURbc +oCE9qcDAhfo7/8RS/u7LF8etwkCf5qf5TpQ/tA79Wq/JwBT+5hFVypzQpA+o +x0CLAEK4kfr+KX0n99gaMPC/WoO5KMoXtIxqT5gw8Kl/70lzyhb/zmQm7WPg +9hWCXA1UfmkatgrcsWWgWNk52u/8k8oqDHnkwMCg6Il3ypRHrWwP/+3GwIKR +qpmYMhLelqi8WjjBQK+Fd05bKddw/7FT0JuBv6yKnXup/I55UCWlHcTAFksh +YiNlRVnJvqg4BjKOp7zyp+pHJGjKPCuJgeIn/pvjprzwtrm6LJ2BjXeC6uOp ++muODLrZm89ApzJHRgZVr8cn+g5tqWLgqL2IVzRV35Zm/2uGRww0L9dKXqTq +X7vg+g6bJ1S8+LEjpyj/YacnebGFgdOpwwNI9YuiuuzuNwMMfDl240Ej1V/+ +jnW2813NRKfbYclKVL86M6pMU1/DRMmPvD7nckiYN/0xPi7CxBHa4dO/+xs/ +d9LVE1JMfD6a9MKI6n/qQY0VzipMbNBpklGn+uVFd6aY1QHq+deyPKFJ1P83 +fhtYc4iJVqWrIftPKp/lHpe2HGHi24Sy2w8Sf/e7g4YmHkx0vpL461M8NZ/2 +x5xlBTHRtYb9j9R1qn/pj7VtyWVip3ee18orJORlPsz8couJIQbK3d/CqP76 +I+L4nWIm5vW0Bw+GUv2+QnqZdp+J8iov/P53iQTXzVaqUs+Y2BagbrwjmIQy +ifuxvF+ZSLN2kamn5pX55HnzEW0FHMqeePaEmnebNGQiefUUUFfm5So9ah5O ++DY1bDFQQM/Tr2gV1LxMmRPR87VQwLcH3nBl2pIwsFSiuuykgPJ70tyMrEjw +XfNBbEOMAmYafW5ZNqDmoxIO7OlXQIUb+Uw1BgmnT32W8hlUQDHtb1fM6CQA +GXsweUQBrQfPjhyVp76Hem9776QCFlyrqQ6XJkF1h2+jxypFPCDNaS4SJ6HR +pLA4VEURf/Izr7vwkDDmyutXcVkR/7TyFyodps5DOcZ1jyMUcdWu1h6fQQ5M +9oaufhWjiOsMBP/VGuDAN6sfmUPJihj+bqa3opcD8ztHm4SKFfG5yrctKdR5 +ZuW6VokT7YrYZFAY31HHgQ1NCTXS8kp40iIiziqNQ53316+MalBCmiOYZgIH +vhwzLd75QgltM02Wx/U4EJt/3nLqlRKmR5+4qa/LgU6Zngz7d0o4Hbd0vleL +A84bbm5V/lcJrcONf84qcSBIaKN7h+BmXHZd/NYixgHOgkzzRnvKxm+qv46w +QfQ1M75scjMq/lWgbBDBhk3R9/ZpaytjhZ9G0KX0UrixRUdE7LgK2q2dcnTM +LYEWKYNtM3+q4pEHW3hn04pBd1NDotp7NQzwfqS+3v0OCHEXnHMJV8fMDtct +fLpFIBMmq2fP1EDZ1fODOV8LgY9xpMr6hQZOPbufuz37FqiyNtw776iJAqai +XmddC8B3QLRxN9dWPC4puo4jkg+TM7G25je2ouhC5sNr5blgqvY8w1xFC3Xf +jgcsOmRD/czOxfk3Wjhfz5Qv+jsDzihr9nW4b0PdnJZ1W+/eANaEW5c9nzY2 +Gc4JyLumwS5Ccq9ggTbuhcHahw4poBh6LbBh+3bcXvulEQKTYLO7zmNG33Zs +v1Wyf0dcIrjXe0ZUnN2B8+fFtAYa4+BxXpfbtLgOqr1OaW05cQ2+Fy/Pqz3Q +QTKv42qOaxS4Mth8GXt18Yut31Ht1xEwvTlZ+/6ULlpGXBjcrB8ODwsXh2aj +d+JAQYL5bbFQcDCm404ZPfSQeJo/tPcCbPSKqlZ9ooez+gYfwmIDQZz/dPne +gyyMg1EJ05P+UGh0MXjKnoWaIs9MhB39QfNivFHyERa2ljtIDlj5g+VU2bse +FxbWhq+4kbDNHyLfz/5wPc1CHhOjVoMV/rBQcNkwOIyF5E17uaGb56BvZ3Jn +EZuFdwuE1X61+YGnf2GW+V0Wcq9yOZLS6Adzdyvdx8pYWBeQMKL5wA9EaT3z +GlUsvBbcsPJKjh9Y8EpvqnvCQuEh7S3eXn5Q21Xk1vmOhZ2Oo+b+a/xgt9BD +lYAeFtZrHVL15fKDHtOXc5L9LPR7l2Hh/90Xvtd8jT46yMJ3D/oV4j/4gkq+ +OvlllIX73i8o8ZO+UNtnEBA7zkKPwer0Hfm+sHvdAVCbovZr2aLsleoLHlH+ +HedmWbi2W6Lp34tUvCeRGesXWDhQO/1UzdcXwn+mu9b8ZKF6nv3ABQ9fENEq +UXZcYmHRnPT6dgdfyPGqmV1epuKzhE4qWfnC/wHhZDuO + "]]}, + 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:eJwV1nk4VPsbAHAlN0uWiKRsM2cGZU+KjPe1ZElRQlFClrSIiCwtSJayXWvZ +ScLMKfqhCBUqSSHKVi66ujdZk6Xk+p3+mOc8n+c5553v95x3+cof87Z2X8nF +xbVE/X5f5wZeNhHXC/UjlEQMcoV36HflSAYZ9ITDSittiV2iEoDibccke5JA +erzCTEyUCQH7Sru5ewqAW1oq9PtabVg7sT7pR/d9EBCIT3m91gT+qrX0/t7d +AOL3tbmPrLUDE2L043T3W1j/1XewVNgDfnRvT53qHoY/FaKJb7wB0Gh0p7Cj +YAa2tkUWS3RHwqa/qj8fU16C6F3GtrGdibDutFPpaiNu7HWLd9+8kApJGiaP +LG15cfZhkkfU/kzovaH+ZFpEEIeHKt1k/siD64WX21ZuWIuX5NIf258qgPUp +n2KSs8VQyHEPJzelEKJszPXfzonjJ8+Wbf95FoGfTr7Ty3BJPByyVoehUgzG +kz+Dz3ySwpcZlcO2WSUQZJay+emYFKZaRKTH5JfA3XyVPrE5KVy4KraipqgE +JG2cdap5N6J+NE6LlJfA2MNn89yqG1HcO42V/qwEksMTz90M3Ihvd8aY8EyU +wLA480yT4CYUEPiI7nqlEKa330VqhzQKesXaK7aVgtnRnG/bDaXx0oU6s8+d +pSAU+vWK7R5pvCG1yjSvpxSyGq8WJTpLo+iwsg/vcCk83F3z9Y8YaYwfzvYp ++V4KU4foATO90jjEU8ivuoENR/1nr7WGyGBUjVAfOrGBkW64afSqDNZMvvMK +dWVT600gVyfKoFCLnWDtcTYE/1JqNyyUwduDh7wVfNiQeuWoeHWrDHJNOdS/ +CWVD658vcm9Ly6KQlOkVp3w26N69WXHpsSwyHn4pi/mLDcbdb5YmmmWR3/tp +NP8nNlhyrTJ1eiuL//xKnYz6zAZX6zO9MCKLeoJnTwaOs8EkRP5yKI8cMmsr +JdQX2eAjO3fLYIsccian7X+Kc6DpeO54Y4Ac8s0uaC6accD8l47ohRA5rJpU +Xye0hwNvEru0tULl0Kg/IUraigO91XyhhTFyqLLflqFpy4EJgXOiV7PksGxW +wUDThQOSZWbbTRrk0GDnCen4QA6cXpgObRaUx/gYwzuVhRzQPesh8VlUHptZ +Bf3JdzjAO9rH5paUR9pXf+EzpRy43d/4Xp8mj841eQESZRwYqE9VrtSWx7+N +LSy2P+KA1VWdnnwnedwN0geq2zmgKRqmFlIuj8bKbK2nCxzguj7bdKNKHn1U +r8/LLlLr5z7pUPWIet7tdVPwEgdOzVpfnX4mj3XLIqHEShIKe4j+433y6GUw +HWEmQIJEbnOkDTcNxdtbGJ2bSPixRWRAxZaGqelmA7N6JMxlS4VtdaDh5QnL +FW/0SfguzCB0nGjo52LlUoAkTMzonDQ+QcPciwp9YEzC8CPXOYeLNAzKrqvd +a0FCi8UDoejbNDT/YF5ReYiEF3VPy+NKaXi8vH1ovwMJTWqtNsn3aJjmt9dm +9DAJ9WJDGTnVNDwsbcgv4kTC/X5+hcrXNMz2mGlWdSch49RRGJ6l4l95wl/j +Q0L6R8/hf37SMGGHUrOULwkpVn5Xx5dpaOdo1Hnej4T4rdGvFvjoOJXY1cUM +ICF8sfygsAwdN8YmpB4KIeHUdR4fPRM6uvNNJApcJcFzSVjM0IKOD829vTUi +SfDwlqoy3UfHFinJ2weiSHA+oPbL2oGOqYt2knExJNhstI8+cYaOThKTal1x +JOixOXlpaXSUFFxR/r9UEvrl2Lm7Mum4L6o4JiGNhOC0kpzvuXSsVNit55lO +woOwoizrEjreZOVqiNwkQfNQ3g2hWjo+8719SjeLhI7XOel1T+g4p6JGX6Ls +Y5SddvoZHYN2ra6uzSbhrmpGSssbOhadfB+mmUuCEk9KYuQQHR0tAtMX8klo +Dk5K2PaZjlzCP/YVFFD7mUqM/3uUjpZqrHGzW1Q+9MfFGn6n442iA+2xhSTI +3Y+K/u8PAo+F3N83WUTCY4XIKFKAwKTbRuqhd0g4mh0ReUSEwHWBKvOCxSRk +RodF1GwgMEjbiSVXQuWTU0hogDKB/5XdeiTLJqGyK+gyQ4PAZR2nz+mUbXYH +XuraRuDHMMWlNRwSkrb5X9AEAm+pmE2PU9Zg+4UMGRG4rbqjzZ4koV3ONzjR +jMCz1m1ZDZQF13gHTuwn0MUmadX1uyRwwrzOZ9sRWPosPm+U8u75UwF7DhNo +aeulYnqPhOhhz3OlbgTmKxtvmqe8qvqYj8d5AhfFM500y0m4periLX6BQGv/ +f5KDKBsWOp1pCiXwx3q++jrKlxOOnKZdIzD9seWc3n0SZHgOn+qIJ/CwfiVP +IOXaYPuTockEXpnxFyyj/NPdznMgi0BBmUTe9f8j4Wa/zfG4fAK/taot7aK8 +Y/8BD70iAp8SVWNnKXc/3+/+tZTA1adfdGdQDtDb55Zxj3p/TryPn1AWv2/p +al5B4C4tmVufKFco7D228JDAlKS7EdwVJFhnW7jcqSPwaoaTmxzladHdznYN +BBoNdRvqUu45TWs/+YLAtHXPxqwpP3n+Ey63Ephhe0LYk3KxXOe95A4CeVZm +soMoJwazZYvfE1gpqdEQRTmw60pCbT+B9jrcNkmUnVWPLLcPUvcXfnG5Sdks +Wst7ZITA5h11Y1mU1YfX/PVjlMCD5w/O/rak3oil0BSB4ZeSLvy+nyutrp42 +S+1PwPzK73j/Tqaqbv9J4IsQO/5oym3mZ3Islgkce5EmGky56paJkPMqBvJE +f876vd6cJZlL5/gY2DNFKz1AOfLg/Hi0EANnO5V27qR8przNMVuMgbtye/fJ +UrYTKH5dLsnAkiNrx5ap96fvHsp6Ls3AxPIywY+UmY8PkX00BiYMpFdVURbc +oCE9qcDAhfo7/8RS/u7LF8etwkCf5qf5TpQ/tA79Wq/JwBT+5hFVypzQpA+o +x0CLAEK4kfr+KX0n99gaMPC/WoO5KMoXtIxqT5gw8Kl/70lzyhb/zmQm7WPg +9hWCXA1UfmkatgrcsWWgWNk52u/8k8oqDHnkwMCg6Il3ypRHrWwP/+3GwIKR +qpmYMhLelqi8WjjBQK+Fd05bKddw/7FT0JuBv6yKnXup/I55UCWlHcTAFksh +YiNlRVnJvqg4BjKOp7zyp+pHJGjKPCuJgeIn/pvjprzwtrm6LJ2BjXeC6uOp ++muODLrZm89ApzJHRgZVr8cn+g5tqWLgqL2IVzRV35Zm/2uGRww0L9dKXqTq +X7vg+g6bJ1S8+LEjpyj/YacnebGFgdOpwwNI9YuiuuzuNwMMfDl240Ej1V/+ +jnW2813NRKfbYclKVL86M6pMU1/DRMmPvD7nckiYN/0xPi7CxBHa4dO/+xs/ +d9LVE1JMfD6a9MKI6n/qQY0VzipMbNBpklGn+uVFd6aY1QHq+deyPKFJ1P83 +fhtYc4iJVqWrIftPKp/lHpe2HGHi24Sy2w8Sf/e7g4YmHkx0vpL461M8NZ/2 +x5xlBTHRtYb9j9R1qn/pj7VtyWVip3ee18orJORlPsz8couJIQbK3d/CqP76 +I+L4nWIm5vW0Bw+GUv2+QnqZdp+J8iov/P53iQTXzVaqUs+Y2BagbrwjmIQy +ifuxvF+ZSLN2kamn5pX55HnzEW0FHMqeePaEmnebNGQiefUUUFfm5So9ah5O ++DY1bDFQQM/Tr2gV1LxMmRPR87VQwLcH3nBl2pIwsFSiuuykgPJ70tyMrEjw +XfNBbEOMAmYafW5ZNqDmoxIO7OlXQIUb+Uw1BgmnT32W8hlUQDHtb1fM6CQA +GXsweUQBrQfPjhyVp76Hem9776QCFlyrqQ6XJkF1h2+jxypFPCDNaS4SJ6HR +pLA4VEURf/Izr7vwkDDmyutXcVkR/7TyFyodps5DOcZ1jyMUcdWu1h6fQQ5M +9oaufhWjiOsMBP/VGuDAN6sfmUPJihj+bqa3opcD8ztHm4SKFfG5yrctKdR5 +ZuW6VokT7YrYZFAY31HHgQ1NCTXS8kp40iIiziqNQ53316+MalBCmiOYZgIH +vhwzLd75QgltM02Wx/U4EJt/3nLqlRKmR5+4qa/LgU6Zngz7d0o4Hbd0vleL +A84bbm5V/lcJrcONf84qcSBIaKN7h+BmXHZd/NYixgHOgkzzRnvKxm+qv46w +QfQ1M75scjMq/lWgbBDBhk3R9/ZpaytjhZ9G0KX0UrixRUdE7LgK2q2dcnTM +LYEWKYNtM3+q4pEHW3hn04pBd1NDotp7NQzwfqS+3v0OCHEXnHMJV8fMDtct +fLpFIBMmq2fP1EDZ1fODOV8LgY9xpMr6hQZOPbufuz37FqiyNtw776iJAqai +XmddC8B3QLRxN9dWPC4puo4jkg+TM7G25je2ouhC5sNr5blgqvY8w1xFC3Xf +jgcsOmRD/czOxfk3Wjhfz5Qv+jsDzihr9nW4b0PdnJZ1W+/eANaEW5c9nzY2 +Gc4JyLumwS5Ccq9ggTbuhcHahw4poBh6LbBh+3bcXvulEQKTYLO7zmNG33Zs +v1Wyf0dcIrjXe0ZUnN2B8+fFtAYa4+BxXpfbtLgOqr1OaW05cQ2+Fy/Pqz3Q +QTKv42qOaxS4Mth8GXt18Yut31Ht1xEwvTlZ+/6ULlpGXBjcrB8ODwsXh2aj +d+JAQYL5bbFQcDCm404ZPfSQeJo/tPcCbPSKqlZ9ooez+gYfwmIDQZz/dPne +gyyMg1EJ05P+UGh0MXjKnoWaIs9MhB39QfNivFHyERa2ljtIDlj5g+VU2bse +FxbWhq+4kbDNHyLfz/5wPc1CHhOjVoMV/rBQcNkwOIyF5E17uaGb56BvZ3Jn +EZuFdwuE1X61+YGnf2GW+V0Wcq9yOZLS6Adzdyvdx8pYWBeQMKL5wA9EaT3z +GlUsvBbcsPJKjh9Y8EpvqnvCQuEh7S3eXn5Q21Xk1vmOhZ2Oo+b+a/xgt9BD +lYAeFtZrHVL15fKDHtOXc5L9LPR7l2Hh/90Xvtd8jT46yMJ3D/oV4j/4gkq+ +OvlllIX73i8o8ZO+UNtnEBA7zkKPwer0Hfm+sHvdAVCbovZr2aLsleoLHlH+ +HedmWbi2W6Lp34tUvCeRGesXWDhQO/1UzdcXwn+mu9b8ZKF6nv3ABQ9fENEq +UXZcYmHRnPT6dgdfyPGqmV1epuKzhE4qWfnC/wHhZDuO + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.05801859373944634}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.05801859373944634}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJwV1nk4VPsbAHAlN0uWiKRsM2cGZU+KjPe1ZElRQlFClrSIiCwtSJayXWvZ +ScLMKfqhCBUqSSHKVi66ujdZk6Xk+p3+mOc8n+c5553v95x3+cof87Z2X8nF +xbVE/X5f5wZeNhHXC/UjlEQMcoV36HflSAYZ9ITDSittiV2iEoDibccke5JA +erzCTEyUCQH7Sru5ewqAW1oq9PtabVg7sT7pR/d9EBCIT3m91gT+qrX0/t7d +AOL3tbmPrLUDE2L043T3W1j/1XewVNgDfnRvT53qHoY/FaKJb7wB0Gh0p7Cj +YAa2tkUWS3RHwqa/qj8fU16C6F3GtrGdibDutFPpaiNu7HWLd9+8kApJGiaP +LG15cfZhkkfU/kzovaH+ZFpEEIeHKt1k/siD64WX21ZuWIuX5NIf258qgPUp +n2KSs8VQyHEPJzelEKJszPXfzonjJ8+Wbf95FoGfTr7Ty3BJPByyVoehUgzG +kz+Dz3ySwpcZlcO2WSUQZJay+emYFKZaRKTH5JfA3XyVPrE5KVy4KraipqgE +JG2cdap5N6J+NE6LlJfA2MNn89yqG1HcO42V/qwEksMTz90M3Ihvd8aY8EyU +wLA480yT4CYUEPiI7nqlEKa330VqhzQKesXaK7aVgtnRnG/bDaXx0oU6s8+d +pSAU+vWK7R5pvCG1yjSvpxSyGq8WJTpLo+iwsg/vcCk83F3z9Y8YaYwfzvYp ++V4KU4foATO90jjEU8ivuoENR/1nr7WGyGBUjVAfOrGBkW64afSqDNZMvvMK +dWVT600gVyfKoFCLnWDtcTYE/1JqNyyUwduDh7wVfNiQeuWoeHWrDHJNOdS/ +CWVD658vcm9Ly6KQlOkVp3w26N69WXHpsSwyHn4pi/mLDcbdb5YmmmWR3/tp +NP8nNlhyrTJ1eiuL//xKnYz6zAZX6zO9MCKLeoJnTwaOs8EkRP5yKI8cMmsr +JdQX2eAjO3fLYIsccian7X+Kc6DpeO54Y4Ac8s0uaC6accD8l47ohRA5rJpU +Xye0hwNvEru0tULl0Kg/IUraigO91XyhhTFyqLLflqFpy4EJgXOiV7PksGxW +wUDThQOSZWbbTRrk0GDnCen4QA6cXpgObRaUx/gYwzuVhRzQPesh8VlUHptZ +Bf3JdzjAO9rH5paUR9pXf+EzpRy43d/4Xp8mj841eQESZRwYqE9VrtSWx7+N +LSy2P+KA1VWdnnwnedwN0geq2zmgKRqmFlIuj8bKbK2nCxzguj7bdKNKHn1U +r8/LLlLr5z7pUPWIet7tdVPwEgdOzVpfnX4mj3XLIqHEShIKe4j+433y6GUw +HWEmQIJEbnOkDTcNxdtbGJ2bSPixRWRAxZaGqelmA7N6JMxlS4VtdaDh5QnL +FW/0SfguzCB0nGjo52LlUoAkTMzonDQ+QcPciwp9YEzC8CPXOYeLNAzKrqvd +a0FCi8UDoejbNDT/YF5ReYiEF3VPy+NKaXi8vH1ovwMJTWqtNsn3aJjmt9dm +9DAJ9WJDGTnVNDwsbcgv4kTC/X5+hcrXNMz2mGlWdSch49RRGJ6l4l95wl/j +Q0L6R8/hf37SMGGHUrOULwkpVn5Xx5dpaOdo1Hnej4T4rdGvFvjoOJXY1cUM +ICF8sfygsAwdN8YmpB4KIeHUdR4fPRM6uvNNJApcJcFzSVjM0IKOD829vTUi +SfDwlqoy3UfHFinJ2weiSHA+oPbL2oGOqYt2knExJNhstI8+cYaOThKTal1x +JOixOXlpaXSUFFxR/r9UEvrl2Lm7Mum4L6o4JiGNhOC0kpzvuXSsVNit55lO +woOwoizrEjreZOVqiNwkQfNQ3g2hWjo+8719SjeLhI7XOel1T+g4p6JGX6Ls +Y5SddvoZHYN2ra6uzSbhrmpGSssbOhadfB+mmUuCEk9KYuQQHR0tAtMX8klo +Dk5K2PaZjlzCP/YVFFD7mUqM/3uUjpZqrHGzW1Q+9MfFGn6n442iA+2xhSTI +3Y+K/u8PAo+F3N83WUTCY4XIKFKAwKTbRuqhd0g4mh0ReUSEwHWBKvOCxSRk +RodF1GwgMEjbiSVXQuWTU0hogDKB/5XdeiTLJqGyK+gyQ4PAZR2nz+mUbXYH +XuraRuDHMMWlNRwSkrb5X9AEAm+pmE2PU9Zg+4UMGRG4rbqjzZ4koV3ONzjR +jMCz1m1ZDZQF13gHTuwn0MUmadX1uyRwwrzOZ9sRWPosPm+U8u75UwF7DhNo +aeulYnqPhOhhz3OlbgTmKxtvmqe8qvqYj8d5AhfFM500y0m4periLX6BQGv/ +f5KDKBsWOp1pCiXwx3q++jrKlxOOnKZdIzD9seWc3n0SZHgOn+qIJ/CwfiVP +IOXaYPuTockEXpnxFyyj/NPdznMgi0BBmUTe9f8j4Wa/zfG4fAK/taot7aK8 +Y/8BD70iAp8SVWNnKXc/3+/+tZTA1adfdGdQDtDb55Zxj3p/TryPn1AWv2/p +al5B4C4tmVufKFco7D228JDAlKS7EdwVJFhnW7jcqSPwaoaTmxzladHdznYN +BBoNdRvqUu45TWs/+YLAtHXPxqwpP3n+Ey63Ephhe0LYk3KxXOe95A4CeVZm +soMoJwazZYvfE1gpqdEQRTmw60pCbT+B9jrcNkmUnVWPLLcPUvcXfnG5Sdks +Wst7ZITA5h11Y1mU1YfX/PVjlMCD5w/O/rak3oil0BSB4ZeSLvy+nyutrp42 +S+1PwPzK73j/Tqaqbv9J4IsQO/5oym3mZ3Islgkce5EmGky56paJkPMqBvJE +f876vd6cJZlL5/gY2DNFKz1AOfLg/Hi0EANnO5V27qR8przNMVuMgbtye/fJ +UrYTKH5dLsnAkiNrx5ap96fvHsp6Ls3AxPIywY+UmY8PkX00BiYMpFdVURbc +oCE9qcDAhfo7/8RS/u7LF8etwkCf5qf5TpQ/tA79Wq/JwBT+5hFVypzQpA+o +x0CLAEK4kfr+KX0n99gaMPC/WoO5KMoXtIxqT5gw8Kl/70lzyhb/zmQm7WPg +9hWCXA1UfmkatgrcsWWgWNk52u/8k8oqDHnkwMCg6Il3ypRHrWwP/+3GwIKR +qpmYMhLelqi8WjjBQK+Fd05bKddw/7FT0JuBv6yKnXup/I55UCWlHcTAFksh +YiNlRVnJvqg4BjKOp7zyp+pHJGjKPCuJgeIn/pvjprzwtrm6LJ2BjXeC6uOp ++muODLrZm89ApzJHRgZVr8cn+g5tqWLgqL2IVzRV35Zm/2uGRww0L9dKXqTq +X7vg+g6bJ1S8+LEjpyj/YacnebGFgdOpwwNI9YuiuuzuNwMMfDl240Ej1V/+ +jnW2813NRKfbYclKVL86M6pMU1/DRMmPvD7nckiYN/0xPi7CxBHa4dO/+xs/ +d9LVE1JMfD6a9MKI6n/qQY0VzipMbNBpklGn+uVFd6aY1QHq+deyPKFJ1P83 +fhtYc4iJVqWrIftPKp/lHpe2HGHi24Sy2w8Sf/e7g4YmHkx0vpL461M8NZ/2 +x5xlBTHRtYb9j9R1qn/pj7VtyWVip3ee18orJORlPsz8couJIQbK3d/CqP76 +I+L4nWIm5vW0Bw+GUv2+QnqZdp+J8iov/P53iQTXzVaqUs+Y2BagbrwjmIQy +ifuxvF+ZSLN2kamn5pX55HnzEW0FHMqeePaEmnebNGQiefUUUFfm5So9ah5O ++DY1bDFQQM/Tr2gV1LxMmRPR87VQwLcH3nBl2pIwsFSiuuykgPJ70tyMrEjw +XfNBbEOMAmYafW5ZNqDmoxIO7OlXQIUb+Uw1BgmnT32W8hlUQDHtb1fM6CQA +GXsweUQBrQfPjhyVp76Hem9776QCFlyrqQ6XJkF1h2+jxypFPCDNaS4SJ6HR +pLA4VEURf/Izr7vwkDDmyutXcVkR/7TyFyodps5DOcZ1jyMUcdWu1h6fQQ5M +9oaufhWjiOsMBP/VGuDAN6sfmUPJihj+bqa3opcD8ztHm4SKFfG5yrctKdR5 +ZuW6VokT7YrYZFAY31HHgQ1NCTXS8kp40iIiziqNQ53316+MalBCmiOYZgIH +vhwzLd75QgltM02Wx/U4EJt/3nLqlRKmR5+4qa/LgU6Zngz7d0o4Hbd0vleL +A84bbm5V/lcJrcONf84qcSBIaKN7h+BmXHZd/NYixgHOgkzzRnvKxm+qv46w +QfQ1M75scjMq/lWgbBDBhk3R9/ZpaytjhZ9G0KX0UrixRUdE7LgK2q2dcnTM +LYEWKYNtM3+q4pEHW3hn04pBd1NDotp7NQzwfqS+3v0OCHEXnHMJV8fMDtct +fLpFIBMmq2fP1EDZ1fODOV8LgY9xpMr6hQZOPbufuz37FqiyNtw776iJAqai +XmddC8B3QLRxN9dWPC4puo4jkg+TM7G25je2ouhC5sNr5blgqvY8w1xFC3Xf +jgcsOmRD/czOxfk3Wjhfz5Qv+jsDzihr9nW4b0PdnJZ1W+/eANaEW5c9nzY2 +Gc4JyLumwS5Ccq9ggTbuhcHahw4poBh6LbBh+3bcXvulEQKTYLO7zmNG33Zs +v1Wyf0dcIrjXe0ZUnN2B8+fFtAYa4+BxXpfbtLgOqr1OaW05cQ2+Fy/Pqz3Q +QTKv42qOaxS4Mth8GXt18Yut31Ht1xEwvTlZ+/6ULlpGXBjcrB8ODwsXh2aj +d+JAQYL5bbFQcDCm404ZPfSQeJo/tPcCbPSKqlZ9ooez+gYfwmIDQZz/dPne +gyyMg1EJ05P+UGh0MXjKnoWaIs9MhB39QfNivFHyERa2ljtIDlj5g+VU2bse +FxbWhq+4kbDNHyLfz/5wPc1CHhOjVoMV/rBQcNkwOIyF5E17uaGb56BvZ3Jn +EZuFdwuE1X61+YGnf2GW+V0Wcq9yOZLS6Adzdyvdx8pYWBeQMKL5wA9EaT3z +GlUsvBbcsPJKjh9Y8EpvqnvCQuEh7S3eXn5Q21Xk1vmOhZ2Oo+b+a/xgt9BD +lYAeFtZrHVL15fKDHtOXc5L9LPR7l2Hh/90Xvtd8jT46yMJ3D/oV4j/4gkq+ +OvlllIX73i8o8ZO+UNtnEBA7zkKPwer0Hfm+sHvdAVCbovZr2aLsleoLHlH+ +HedmWbi2W6Lp34tUvCeRGesXWDhQO/1UzdcXwn+mu9b8ZKF6nv3ABQ9fENEq +UXZcYmHRnPT6dgdfyPGqmV1epuKzhE4qWfnC/wHhZDuO + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.05801859373944634}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.05801859373944634}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}], ",", + RowBox[{"ListPlot", "[", + RowBox[{ + RowBox[{ + RowBox[{"{", "}"}], " ", + RowBox[{"{", + RowBox[{"0", ",", "0.005381`"}], "}"}]}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.015959`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.025999`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.035173`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.043213`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.049902`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.055111`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.058771`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.060904`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.061577`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.060934`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.059136`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.056395`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.052912`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.048907`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.044569`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.040087`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.035606`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.031259`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.027134`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.023309`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.019818`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.016691`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.013926`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.01152`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.009447`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.007687`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.006205`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.004972`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.003954`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.003124`"}], "}"}]}], "]"}]}], "]"}]], "Output", + CellChangeTimes->{3.99396083418089*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"0faa6837-f20a-476a-920c-86ff3478cf87"] +}, Open ]], Cell[CellGroupData[{ @@ -5739,66 +11476,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[\\\"3.008795160597196`*^-161\\\", \ +RowBox[{\\\"\ +505518991860510123640143147290826802026352259296904996615670790081361\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"11\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0136605792106222330469781300859512072804761600000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 121, 49, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423358439445`*^9, 3.993960834218298*^9}, CellLabel-> "During evaluation of \ -In[365]:=",ExpressionUUID->"bf4d283e-fed2-af41-90e7-a9b6911d8baf"], +In[121]:=",ExpressionUUID->"8768632c-a358-4964-9f3d-c0611ea884e1"], 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[\\\"4.0919973828797126`*^-164\\\", \ +RowBox[{\\\"\ +164243120455479739170682508554789627978361849045564433400431439697434\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"15\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3832218553116351696319446492554724542670438400000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 121, 50, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423358439445`*^9, 3.99396083422604*^9}, CellLabel-> "During evaluation of \ -In[365]:=",ExpressionUUID->"9f6ca4d5-4251-0341-9c65-a603c68721f6"], +In[121]:=",ExpressionUUID->"f9d9d673-2569-435d-91c8-c8bcf06433b8"], 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[\\\"5.5651653528221285`*^-167\\\", \ +RowBox[{\\\"\ +552513857212233842570175958778312308519209260189278753959051363142168\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"18\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1583212683407106418618000954093361543354777600000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 121, 51, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423358439445`*^9, 3.9939608342341833`*^9}, CellLabel-> "During evaluation of \ -In[365]:=",ExpressionUUID->"108eeaac-8397-bf4f-90a4-e14dbe759ebf"], +In[121]:=",ExpressionUUID->"660c6af2-7003-47cd-ac72-7845ccca8f2e"], 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, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423358439445`*^9, 3.993960834241901*^9}, CellLabel-> "During evaluation of \ -In[365]:=",ExpressionUUID->"1a2f2a3c-e511-b846-8a84-9fad6555a680"], +In[121]:=",ExpressionUUID->"0439f412-d8b3-4e82-8432-cc67ea705b63"], -Cell[BoxData["12.5536549879565`"], "Output", - CellChangeTimes->{3.9913423425170345`*^9}, +Cell[BoxData["14.38556101720215`"], "Output", + CellChangeTimes->{3.9913423425170345`*^9, 3.993960882599218*^9}, CellLabel-> - "Out[365]=",ExpressionUUID->"ca1793f9-9753-5e46-b385-c8dd36228fd1"] + "Out[121]=",ExpressionUUID->"6af39a80-9710-4c53-8bdb-42e07940e67e"] }, Open ]], Cell[CellGroupData[{ @@ -5865,68 +11612,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[\\\"7.049832024735876`*^-221\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 122, 53, 31385712218820257286, + "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423425545177`*^9, 3.993960882636849*^9}, CellLabel-> "During evaluation of \ -In[366]:=",ExpressionUUID->"642a7168-3d33-6b4e-9213-0f67bfd30f54"], +In[122]:=",ExpressionUUID->"4c5d71d7-dec2-4f71-be32-c3ce5a70312c"], 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.5968358570050139`*^-226\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 122, 54, 31385712218820257286, + "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423425545177`*^9, 3.993960882645027*^9}, CellLabel-> "During evaluation of \ -In[366]:=",ExpressionUUID->"315984db-f497-2940-bd36-1d820037ad00"], +In[122]:=",ExpressionUUID->"b3962705-f0bb-4c79-823c-78e157861eeb"], 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[\\\"3.616943985714989`*^-232\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 122, 55, 31385712218820257286, + "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423425545177`*^9, 3.993960882653376*^9}, CellLabel-> "During evaluation of \ -In[366]:=",ExpressionUUID->"2698bbc8-6aa1-c54b-9b5c-3f71a7eb3345"], +In[122]:=",ExpressionUUID->"9fc7655a-87a8-4acc-aba3-f41ffabe9318"], 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, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423425545177`*^9, 3.9939608826608963`*^9}, CellLabel-> "During evaluation of \ -In[366]:=",ExpressionUUID->"7f632647-49b8-a945-8682-8e4f7ae37cda"], +In[122]:=",ExpressionUUID->"6f004f19-323d-4391-bd9d-42a302496aa4"], -Cell[BoxData["2.904399821349581`"], "Output", - CellChangeTimes->{3.9913423499055786`*^9}, +Cell[BoxData["0.2147121485028529`"], "Output", + CellChangeTimes->{3.9913423499055786`*^9, 3.993960889546487*^9}, CellLabel-> - "Out[366]=",ExpressionUUID->"0f5bf0f0-4e96-2c4d-9011-c6ae92f19c83"] + "Out[122]=",ExpressionUUID->"fe067fb2-5a0c-41b1-8f52-24ace4aa32f7"] }, Open ]], Cell[CellGroupData[{ @@ -5947,8 +11698,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 +11743,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[\\\"7.049832024735876`*^-221\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 123, 57, 31385712218820257286, + "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423499435787`*^9, 3.993960889583829*^9}, CellLabel-> "During evaluation of \ -In[367]:=",ExpressionUUID->"704bc64b-0e53-8146-9696-c0e9ea00ec4d"], +In[123]:=",ExpressionUUID->"8e33adfc-7d16-4103-bdb1-85d9feee83bf"], 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.5968358570050139`*^-226\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 123, 58, 31385712218820257286, + "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423499435787`*^9, 3.993960889590794*^9}, CellLabel-> "During evaluation of \ -In[367]:=",ExpressionUUID->"68985ea1-064e-2c42-b957-ce16147f9e13"], +In[123]:=",ExpressionUUID->"6603d9e8-cc7c-4215-8fb3-4395484c1621"], 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[\\\"3.616943985714989`*^-232\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 123, 59, 31385712218820257286, + "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423499435787`*^9, 3.993960889597928*^9}, CellLabel-> "During evaluation of \ -In[367]:=",ExpressionUUID->"48a38db6-6d68-6140-9cb6-9dfc686aa062"], +In[123]:=",ExpressionUUID->"7b56cda5-dad8-4f21-a0a2-f6ad9480593a"], 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, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423499435787`*^9, 3.993960889606564*^9}, CellLabel-> "During evaluation of \ -In[367]:=",ExpressionUUID->"ac6e6758-d573-7947-b88c-92831bb5be70"], +In[123]:=",ExpressionUUID->"f748f6c4-e561-4ac9-9eab-198ae7e0480f"], -Cell[BoxData["9.928941323789857`"], "Output", - CellChangeTimes->{3.991342356382967*^9}, +Cell[BoxData["46.90664420608921`"], "Output", + CellChangeTimes->{3.991342356382967*^9, 3.993960896137149*^9}, CellLabel-> - "Out[367]=",ExpressionUUID->"4d1b179c-7677-2745-8308-576346b6bf0b"] + "Out[123]=",ExpressionUUID->"44c01aaf-8dce-4024-b26d-efd48ebb8e19"] }, Open ]], Cell[CellGroupData[{ @@ -6074,8 +11829,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 +11874,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[\\\"7.049832024735876`*^-221\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 124, 61, 31385712218820257286, + "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342356420965*^9, 3.993960896171627*^9}, CellLabel-> "During evaluation of \ -In[368]:=",ExpressionUUID->"0a9cfe95-3a6f-384b-8656-bdf67695e5d7"], +In[124]:=",ExpressionUUID->"7d69cc25-7123-480f-8d68-6a9a5d31620d"], 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.5968358570050139`*^-226\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 124, 62, 31385712218820257286, + "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342356420965*^9, 3.9939608961783133`*^9}, CellLabel-> "During evaluation of \ -In[368]:=",ExpressionUUID->"700ebedb-417e-8043-ab89-eb4672a7847d"], +In[124]:=",ExpressionUUID->"65171f14-d814-4b70-9cfd-b71a830caa18"], 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[\\\"3.616943985714989`*^-232\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 124, 63, 31385712218820257286, + "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342356420965*^9, 3.993960896185205*^9}, CellLabel-> "During evaluation of \ -In[368]:=",ExpressionUUID->"599826a9-6d60-6843-9eef-e381cafa0758"], +In[124]:=",ExpressionUUID->"9b77ba5c-4e3d-4ad0-ba68-4f4e1fbae1f0"], 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, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342356420965*^9, 3.9939608961921186`*^9}, CellLabel-> "During evaluation of \ -In[368]:=",ExpressionUUID->"d92d3772-b819-d145-8d96-f897b04ae4a7"], +In[124]:=",ExpressionUUID->"f9b44228-56c0-41b4-9fef-8fd32ecb6810"], -Cell[BoxData["19.874153108015193`"], "Output", - CellChangeTimes->{3.9913423600715523`*^9}, +Cell[BoxData["6.151681276063519`"], "Output", + CellChangeTimes->{3.9913423600715523`*^9, 3.993960900185402*^9}, CellLabel-> - "Out[368]=",ExpressionUUID->"98a57fa3-05ea-0d42-95b5-58c14727d753"] + "Out[124]=",ExpressionUUID->"baef806c-e796-41df-a274-e5151d0d2744"] }, Open ]], Cell[CellGroupData[{ @@ -6190,22 +11948,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.012639867538312484`"], "Output", + CellChangeTimes->{3.9913423601046352`*^9, 3.993960900223979*^9}, + CellLabel-> + "Out[125]=",ExpressionUUID->"25c79cd1-7d7d-4058-99cc-075313ce3af0"] }, 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 +11987,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["23.49760839690054`"], "Output", + CellChangeTimes->{3.9913423601345863`*^9, 3.993960900240735*^9}, CellLabel-> - "Out[371]=",ExpressionUUID->"b967ea88-4a73-d84a-86f5-ad4ded7dfd59"] + "Out[127]=",ExpressionUUID->"c979cb63-edc7-4239-9021-41c85315d3ab"] }, Open ]], Cell[CellGroupData[{ @@ -6243,12 +12002,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.1860913089219984`"], "Output", + CellChangeTimes->{3.9913423601709976`*^9, 3.993960900250202*^9}, CellLabel-> - "Out[373]=",ExpressionUUID->"fd8ea80a-f1d4-be4f-9cfa-b37871c5703d"] + "Out[128]=",ExpressionUUID->"1d7afd31-a2dc-4e8c-8086-8a8c5bb9c6b9"] }, Open ]], Cell[CellGroupData[{ @@ -6258,12 +12017,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["27.8703091000163`"], "Output", + CellChangeTimes->{3.9913423602320137`*^9, 3.9939609002588243`*^9}, CellLabel-> - "Out[376]=",ExpressionUUID->"7d039035-dcf9-ec46-abdb-20c0c777b3ef"] + "Out[129]=",ExpressionUUID->"6a256b8f-a09a-4ecc-8d8d-eabba3744858"] }, Open ]], Cell[CellGroupData[{ @@ -6453,12 +12212,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.004480249304002216`"], "Output", + CellChangeTimes->{3.991342360260002*^9, 3.993960900271975*^9}, CellLabel-> - "Out[377]=",ExpressionUUID->"ec08a5f9-ba46-9147-9d7b-cc1decdb981f"] + "Out[130]=",ExpressionUUID->"a352459b-84db-4ff9-b7be-1a0f6afe0d0a"] }, Open ]], Cell[CellGroupData[{ @@ -6472,12 +12231,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.240178804763007`"], "Output", + CellChangeTimes->{3.9913423603598785`*^9, 3.993960900384206*^9}, CellLabel-> - "Out[378]=",ExpressionUUID->"71ad1ede-d77d-ee46-a908-e7b20c10ebe8"] + "Out[131]=",ExpressionUUID->"6e333ee4-5f19-4f4a-917b-f7b9742c0267"] }, Open ]], Cell[CellGroupData[{ @@ -6669,12 +12428,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.03003706593963775`"], "Output", + CellChangeTimes->{3.991342360375868*^9, 3.9939609003978243`*^9}, CellLabel-> - "Out[379]=",ExpressionUUID->"819de60b-5785-6448-8fe2-0db5976d700d"] + "Out[132]=",ExpressionUUID->"bb353587-7ca9-4368-a0be-894ea856f4e3"] }, Open ]], Cell[CellGroupData[{ @@ -6688,12 +12447,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.113475585246222`"], "Output", + CellChangeTimes->{3.991342360471882*^9, 3.993960900499866*^9}, CellLabel-> - "Out[380]=",ExpressionUUID->"8dd6a8d3-1dbb-0d4a-9edc-e78196c49a86"] + "Out[133]=",ExpressionUUID->"37a2f616-c123-4116-8563-06723ef03627"] }, Open ]], Cell[CellGroupData[{ @@ -6786,12 +12545,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.1428121564505765`"], "Output", + CellChangeTimes->{3.991342360486868*^9, 3.993960900509574*^9}, CellLabel-> - "Out[381]=",ExpressionUUID->"ae861452-cf77-f740-9f62-141306c9a07a"] + "Out[134]=",ExpressionUUID->"f5f34bb7-3962-4e1d-84c8-3ab771fe8a11"] }, Open ]], Cell[CellGroupData[{ @@ -6881,12 +12640,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.8571878435494235`"], "Output", + CellChangeTimes->{3.9913423605138645`*^9, 3.993960900519512*^9}, CellLabel-> - "Out[382]=",ExpressionUUID->"253d4a43-9313-5444-b0f9-3aae32edd842"] + "Out[135]=",ExpressionUUID->"c337aeb8-b7b6-4422-a30c-33b3b396bc4f"] }, Open ]], Cell[CellGroupData[{ @@ -7009,12 +12768,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.12241684442051255`"], "Output", + CellChangeTimes->{3.9913423605448647`*^9, 3.993960900532539*^9}, CellLabel-> - "Out[383]=",ExpressionUUID->"0c1e1373-3726-9c43-862b-62a8708f83a9"] + "Out[136]=",ExpressionUUID->"5518e873-74c3-44f2-bc74-1dbd04f06335"] }, Open ]], Cell[CellGroupData[{ @@ -7076,68 +12835,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[\\\"3.8721697666950166`*^-231\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 137, 65, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342360571863*^9, 3.993960900546247*^9}, CellLabel-> "During evaluation of \ -In[384]:=",ExpressionUUID->"d55599c5-2bb2-8f4a-a245-aa6d5998cb8f"], +In[137]:=",ExpressionUUID->"fbb34dca-5cbe-46e0-b9ed-7c087112bc54"], 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[\\\"1.5403513354851324`*^-237\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 137, 66, 31385712218820257286, + "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342360571863*^9, 3.993960900554614*^9}, CellLabel-> "During evaluation of \ -In[384]:=",ExpressionUUID->"bdcd3bac-beba-5242-b376-95b5ed40a02a"], +In[137]:=",ExpressionUUID->"429a6b4f-5b33-49e4-9b1a-38fb22734e83"], 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.127526373297336`*^-244\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 137, 67, 31385712218820257286, + "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342360571863*^9, 3.9939609005618773`*^9}, CellLabel-> "During evaluation of \ -In[384]:=",ExpressionUUID->"b91a3ff7-a025-fd4e-b11c-58fa6385068b"], +In[137]:=",ExpressionUUID->"de4f244d-dcdf-4b7d-ace9-035b60c67ee1"], 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, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342360571863*^9, 3.993960900569804*^9}, CellLabel-> "During evaluation of \ -In[384]:=",ExpressionUUID->"9e66d374-59c2-ce4b-b0d2-5a3813a10542"], +In[137]:=",ExpressionUUID->"cf85cd28-3669-4da1-9ac9-91dce89f2fa0"], -Cell[BoxData["6.261157591052324`"], "Output", - CellChangeTimes->{3.9913423642473736`*^9}, +Cell[BoxData["13.240178804763032`"], "Output", + CellChangeTimes->{3.9913423642473736`*^9, 3.993960903947865*^9}, CellLabel-> - "Out[384]=",ExpressionUUID->"5742ee33-8e4b-444c-91b6-6d4c403c91e9"] + "Out[137]=",ExpressionUUID->"dcafcb98-6db0-4740-8c67-8d9c1af70780"] }, Open ]], Cell[CellGroupData[{ @@ -7199,68 +12961,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[\\\"3.8721697666950166`*^-231\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 138, 69, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342364284378*^9, 3.9939609039846783`*^9}, CellLabel-> "During evaluation of \ -In[385]:=",ExpressionUUID->"49d9e2db-79aa-5b48-897e-3089c92c79b4"], +In[138]:=",ExpressionUUID->"6a599a7a-c579-45b5-8a25-3a09c230920b"], 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[\\\"1.5403513354851324`*^-237\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 138, 70, 31385712218820257286, + "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342364284378*^9, 3.993960903991784*^9}, CellLabel-> "During evaluation of \ -In[385]:=",ExpressionUUID->"2361061c-25a8-4549-ba9e-397593d876d4"], +In[138]:=",ExpressionUUID->"69dd2a10-a995-480e-b261-2872ec46c2f5"], 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.127526373297336`*^-244\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 138, 71, 31385712218820257286, + "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342364284378*^9, 3.9939609039974117`*^9}, CellLabel-> "During evaluation of \ -In[385]:=",ExpressionUUID->"a2993171-fcd7-8742-bf17-921d87bded0b"], +In[138]:=",ExpressionUUID->"c889eb62-9f57-49d4-ba90-c9415fea530c"], 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, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342364284378*^9, 3.993960904003707*^9}, CellLabel-> "During evaluation of \ -In[385]:=",ExpressionUUID->"c72ccd11-884d-074a-bf1c-ed71d6dc6298"], +In[138]:=",ExpressionUUID->"c0b7f4e1-c5a3-4374-a6cc-9567bac589cd"], -Cell[BoxData["8.694797556550144`"], "Output", - CellChangeTimes->{3.9913423679416714`*^9}, +Cell[BoxData["5.113475585246226`"], "Output", + CellChangeTimes->{3.9913423679416714`*^9, 3.993960907321457*^9}, CellLabel-> - "Out[385]=",ExpressionUUID->"9dfb51ec-f6bd-9540-91f7-9d4800c6c680"] + "Out[138]=",ExpressionUUID->"5fe1dde2-f455-4ebe-b8ef-d02508c73d60"] }, Open ]], Cell[CellGroupData[{ @@ -7318,95 +13083,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:eJwV1Hk4VF0cB3C7soWSLZKtiEwGITm/ULLvW2QZdy4qu0RE3lAUIYXeSmUN +2VqEXqlUKqGoJIpChRkzVCTVe+aP+9zn85x7v+d77nLW0cKd6TxcXFwMfHDO +kd2b1jf1dpveyegz8Q5hI1NmqT7NogY9Fr1C4Xik2CBf1eIOKgkXE+HYkXgu +IEJ9iFIbZXp2YzfEJT/gt+hCd9+1x3Oc8UimPbnqBXo2KyDCcXNv5MUl3VfI +lHsqzQt7cvBpYnzrAHotGfrZE1tuXMX7h/kQitDPonBsM5NoFN31AQnF2wR4 +YLctTQrHVY2i+zMV8e7Yr1OkE26FfULvr12Jd8NmClhMftMdR+1Ptga4Yguc +jPCizk+gGe9oigu2osSFzsjWL2hVstVnJ2x7+R/lTPNpdJzxQtgBm7ykvFp7 +GRP1xqXG22Enqzmk7euaQdxSr7ttsAek+zfHVLHRP9IelF3YxO69IadPzqJ3 +3ekmO7FZ57kuN4bNIS0jd4oF9jJlbXG27nekP9LfjbDziQeW4lI/EH9yavw2 +bKUKr2Sd+R/oR36/8FZsQ610ZmjrAhrk9visjx1s8KFr0nwJmXpOxWtif4s7 +wCek/hs9lS0LWI99pFXYRGPZHyS1nXuzKnYhGFYHdf1FtSOX0xU4/co6LaKq +uOF280nRFdhVj06PpMjzgDgrQFeY0/ezb2LuSR5YxTtkKoidqPn9en0YL0iq +tIv9DcZ969apzOjyQ+Bh50wG9mDvdNufEn7ovuM5/QVbabZpt5iUAKwYEDAY +w67Rs8/TnhcAAWufI4PYHc2HuPe3LoMBzQXWQ+zvD/o+fDEXATsnb7NCbElb +EfGENhHg6+suysWm9FuAqJEolJbU9mdi7x27eWnzJjEoX7r5LRE7gqeLsk1E +HIzuzg/7YY8r17LTfkjA8dpZNyXsb+TT5T1USehYTB2TxuapnlgnEykJ3VI5 +7is4falrnaumJKHadNX47yA22m2e09g9shLKqxnVb7F7AqOipZ9JQZ9g8+gJ +7PcV2Sf8l62GncK7KlOwp6eqSq7uWA05Vn7OB7GFYj71bW1fDdVNmk40bItU +Vz3/m9KAOlx+GmC3lBp8ryyWBd6EqW+DJBuVji/GGscogHJp/WVR7F1ux95H +X1OA6jjZR1zY0x0rd16bUIBdr1++mKOzkV6plpSSlyKg3q3Fb7E7aL7X+U3X +QkuDoGQp9uzMyMEvR5WgjXnGUw97ZajFjet2yrBN6kCUGcFGE6VCwY57lSEy +xeOoLvbtoV55RroyjLdeT1DG9rHdc1S9XRl+uX1Q5sEu3RjrXKSrAoP1G23a +A/H8kxWsJGlV0Kka4zPEdg0S1rYeVYPbG8vXS9HYCMW66Xr8VgOty5aZPNia +acVbCFl1GLyb/momgI24SqhmSU7YAWNqT7Gvvff2aLynDiLp1rWHsQXca1Lk +rqyH0M1UvxF/3M/C7vUkTQNYVMIu34+NSlwK3s0nacDd3sVHSdjZtNERvn81 +YHwNqRGCTRw5MKXYpwG31O9XbsOWuHOBy8VcE4zVO3LHffH3Q2VqtqpsBHuf +ArHN2PLKp5JPjGnBq41r7t3yYaM7md80fvJow/JB/53nsX3mvPrJddrwF2rq +U7AvdqhqmPlqg9enAD1bbOWglpcLb7RB/8bphQ/eeL0142rks00gsRgdy4Ot +IK9IKnlRQEeuw5vqxUZaZTEiv5AujIiJRu1wYyMacfS7tr0uyBSmp6tjF6rk +vff30YVfb9anCmLzXqmrfxSnC03bpo2fuOL/7eKka16DLoR7dZ61wc4o9L+g +oUIF9+ebhWxd8Ps9YbvJU0APmCm2c1ud2OhylKrjzS59yHn5OmLAlo16Y9GW +1DIjyK37cW29GRut831lv2f/Nlg2kK+kZsBG9L+3ahXiATJaHxlWaLCR9NRt +QWmaGRR21Gk/lmOjGKrJUJ6mBQiu65G9LYz7M5Y6V07ugGiTJ0ozv1jomlm0 +YHGPJdiepeS0f2Wh0m9779XkW0GqRH7kxzcstLBd5nlHsg24psRnXnnAQsNc +vOzRADsYFotRWqhlobA14TkpKg4Qt+WipPS/LFQb0tl+Js0RKnqJTT9TWejQ +nOz8xhAnCH5Ijn8OZ6Hv1jvdH/s5Q+u+DYnNnixk5J27fdzJBSKrfKuatrPQ +S9kLezuorjCvLDenpMVCcuVH71RucIOv/ltl61ex0O0RTVt7UXcYFni0t/n3 +DFLsZwXFMtzhdKZKn37fDKKeya0pGfGA5Kxo2pmyGXSBb25T3gNPCGzOm7yc +MINubdcZTGv2gkJ+4+MCDjOocEumxFLVbvj3h2XPDtUZ1POuLJ160htWFFz9 +cPA3E920O68accQHxC2XtG70MxE71IUrjNgDvJMeQnz1TPR9p0Yw09wXjKXi +tkVmMVEl4+1CtIEfWNkKHDkXwkSel8sC94j4w5Fmw9Q3Vkx0vdHGj/eYP5iV ++Sd6ajCRkfzLnxk//YFJWfr1RYSJVEaCBl+EBEDQOXv9iVkGGhPe53D+UwAo +C6UMDA4wUG+2faClGw12NaY8Lr/PQPlxxcIHemkQNvno3FwNA91p+/sz0CoQ +XmfZPpQ5x0ArfOAYtSUQ+ISyHNoyGUhp1eOeNXcCwepkdMYRbEqXnYxAWyBs +UK+eNsN2NvG+OnAvEGobZHQ6M3D+mthnh58EQiTFuLT/OAPJDVev6BwIhLLD +C07f0xlI1Ve60Gc+EPYrCXa7HWUgI39mZZoeAQraom9OJzJQeREr2t6AgNw1 +l0YDsVf1zZpKGxJQcfu+uB42c8d8f+VWAsq924b6Exh4/+Li7jIj4G7b/Y0y +2GLzEl6STgSoFp+tKIvHzyNLf3lxKAF6rBfKQ7EM5PR4S39QOAGhfn3367Hb +uIyLKZEExPScP5aGXRRtqn8/hgArr+xkHWx7L8uA8QQCHF3kNNIOMFCzqlfz +xkwCmnnNiS0xDJTdmhhyu5yALdxzaU2RDBSqW2AUV0nAhuDu1Fxs26sNyw2r +CGivoFbswxYqmLjadI2A6+aX3ZWw06IcJ2/dIECmSsf/RAQDJWqo7rt5nwD2 +Geu1weEMtLfg2f7G9wSMy/7nbhLKQFZiEyZRIwTMuoU+kcPekMYlqvuRgOKI +F34/9zPQRJT+tYZxnLehZf4WdoB9MaN+moDGyzr9VGxP/uiwukUCtH1vgd4+ +BrKMlouoWU2HlwetWA4hDHS/ON06T4YOWS5/CAq2SdesapwcHZaJjPNKYFPU +nr01V6SDWrxd+8tgBpJ9k2D+To0OdSV1VE/sKePh1UL6dNiz9j3/viAGOsVz +6b8gFzpE3LvqX0/H69cRKbRzo0NPzCrFs9ip3nFRVA86PK4a4E/EjrvhuP7v +bjpESUe57sIOILlzz9LoUPtOkPmRYCDqUxrxMJIOG8zqVyphv8lVE1bJoUNL +kgKlhcZAtUg0+EsuHeynDS+VY6cyvnVcO02H1YSj/mlsXauOJMMCOuxwj+3e +j53NFThrd5EOQ5sb76zD3hl+6W1cDR1ii1Iz8gIYSEHhuIFpLR26E25YpWB/ +exp+mreeDhbuU5sisK+oI7vs63i9SRHB9ti/h4fbS1rooCU7WSCCfcNWvrK7 +kw65Q+u+nvJnoBOLPPz5T+nwt0xo8Qg2rXIywKuLDv1sXkoUtjhfi/xYDx0U +zTWF3bD3t3qe+vmaDjJDrklrsFU0z8aqjtPh+OgZz0Y/Blp8c7jv6wQdvF48 +bCnD7k2jU+q+0EF/n5hZEXbSqN6k0TQdmAem7h7BHizs2+MwRwePk6NxTth5 +ghI7DnGToOKmOPLTF+8Hs8PeMbwkFJt9CmRifx6uigrjJ6GpaVLqE7bJDYtL +tOUkPLB/wPcce8I/7pe1BAkrHK+KlmCL2+6Q3LGSBKWqHN4i7K1bJDWQFAmF +yW3rT2HniNa4U2VJ4A6bWUzgjLd8aJBfR8JwQWOXBzZZVtMppULCpPygngPn ++pz4DyvUSBhJs3m2kzMfuVKUT4OEVwWiRw044ystg6cpJCxJyirKYLf8WZk8 +oUsCj965BXHs8a8jZ0b0SNBaE8wthG3cfuhBvyEJHhlTF5b24P1hf63if0CC +oHsRzxi2mGeCfpMZCWu2ZTi8xzYy32XbYEGCsXnn0wHsbNmP8WW7SPinTs+2 +G/s2X11OsTUJrFya8xPsTzMJFUW2JCyeGEnvwDZ8JPUqy5EEk4rnh1qxaQ0f +p445k9BN3WbchJ11vo7nH1cSFGt/r7+O/THKihLrSYKfZlR2Nbao72rLiN0k +nExXF6zk5Fl92rPXh4TdqVq1pZz71x4+4etPghX3pmMXOX2ErK940kgIeaLR +/C8n7/vqZmeChKGOg7JFnLzRTz22JAkXJWUqz3LyuuondgaT8KFHiJ7P6dd0 ++DfsJYEi7eiYx8m/Yr1q634SXLi/hORw8rOkN+qHkXCq9GVDNic/bmy7TgQJ +uVLiG7KwRYgGT40o/LzIS10nsLc4JIWrxJDwrvxocSYn39gmXSGWBLPx5ksZ +2CfVZC5Ix5FgoW3eexz7lvj4dYlDJMQfX7uJ49FfDU+FE0kI/WPfcoyT/zlp +lD+JhKD8FzEcG7y0WfibTMJDu4o9HP8P+dv6qQ== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -7420,107 +13184,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:eJwV1Hk4VF0cB3C7soWSLZKtiEwGITm/ULLvW2QZdy4qu0RE3lAUIYXeSmUN +2VqEXqlUKqGoJIpChRkzVCTVe+aP+9zn85x7v+d77nLW0cKd6TxcXFwMfHDO +kd2b1jf1dpveyegz8Q5hI1NmqT7NogY9Fr1C4Xik2CBf1eIOKgkXE+HYkXgu +IEJ9iFIbZXp2YzfEJT/gt+hCd9+1x3Oc8UimPbnqBXo2KyDCcXNv5MUl3VfI +lHsqzQt7cvBpYnzrAHotGfrZE1tuXMX7h/kQitDPonBsM5NoFN31AQnF2wR4 +YLctTQrHVY2i+zMV8e7Yr1OkE26FfULvr12Jd8NmClhMftMdR+1Ptga4Yguc +jPCizk+gGe9oigu2osSFzsjWL2hVstVnJ2x7+R/lTPNpdJzxQtgBm7ykvFp7 +GRP1xqXG22Enqzmk7euaQdxSr7ttsAek+zfHVLHRP9IelF3YxO69IadPzqJ3 +3ekmO7FZ57kuN4bNIS0jd4oF9jJlbXG27nekP9LfjbDziQeW4lI/EH9yavw2 +bKUKr2Sd+R/oR36/8FZsQ610ZmjrAhrk9visjx1s8KFr0nwJmXpOxWtif4s7 +wCek/hs9lS0LWI99pFXYRGPZHyS1nXuzKnYhGFYHdf1FtSOX0xU4/co6LaKq +uOF280nRFdhVj06PpMjzgDgrQFeY0/ezb2LuSR5YxTtkKoidqPn9en0YL0iq +tIv9DcZ969apzOjyQ+Bh50wG9mDvdNufEn7ovuM5/QVbabZpt5iUAKwYEDAY +w67Rs8/TnhcAAWufI4PYHc2HuPe3LoMBzQXWQ+zvD/o+fDEXATsnb7NCbElb +EfGENhHg6+suysWm9FuAqJEolJbU9mdi7x27eWnzJjEoX7r5LRE7gqeLsk1E +HIzuzg/7YY8r17LTfkjA8dpZNyXsb+TT5T1USehYTB2TxuapnlgnEykJ3VI5 +7is4falrnaumJKHadNX47yA22m2e09g9shLKqxnVb7F7AqOipZ9JQZ9g8+gJ +7PcV2Sf8l62GncK7KlOwp6eqSq7uWA05Vn7OB7GFYj71bW1fDdVNmk40bItU +Vz3/m9KAOlx+GmC3lBp8ryyWBd6EqW+DJBuVji/GGscogHJp/WVR7F1ux95H +X1OA6jjZR1zY0x0rd16bUIBdr1++mKOzkV6plpSSlyKg3q3Fb7E7aL7X+U3X +QkuDoGQp9uzMyMEvR5WgjXnGUw97ZajFjet2yrBN6kCUGcFGE6VCwY57lSEy +xeOoLvbtoV55RroyjLdeT1DG9rHdc1S9XRl+uX1Q5sEu3RjrXKSrAoP1G23a +A/H8kxWsJGlV0Kka4zPEdg0S1rYeVYPbG8vXS9HYCMW66Xr8VgOty5aZPNia +acVbCFl1GLyb/momgI24SqhmSU7YAWNqT7Gvvff2aLynDiLp1rWHsQXca1Lk +rqyH0M1UvxF/3M/C7vUkTQNYVMIu34+NSlwK3s0nacDd3sVHSdjZtNERvn81 +YHwNqRGCTRw5MKXYpwG31O9XbsOWuHOBy8VcE4zVO3LHffH3Q2VqtqpsBHuf +ArHN2PLKp5JPjGnBq41r7t3yYaM7md80fvJow/JB/53nsX3mvPrJddrwF2rq +U7AvdqhqmPlqg9enAD1bbOWglpcLb7RB/8bphQ/eeL0142rks00gsRgdy4Ot +IK9IKnlRQEeuw5vqxUZaZTEiv5AujIiJRu1wYyMacfS7tr0uyBSmp6tjF6rk +vff30YVfb9anCmLzXqmrfxSnC03bpo2fuOL/7eKka16DLoR7dZ61wc4o9L+g +oUIF9+ebhWxd8Ps9YbvJU0APmCm2c1ud2OhylKrjzS59yHn5OmLAlo16Y9GW +1DIjyK37cW29GRut831lv2f/Nlg2kK+kZsBG9L+3ahXiATJaHxlWaLCR9NRt +QWmaGRR21Gk/lmOjGKrJUJ6mBQiu65G9LYz7M5Y6V07ugGiTJ0ozv1jomlm0 +YHGPJdiepeS0f2Wh0m9779XkW0GqRH7kxzcstLBd5nlHsg24psRnXnnAQsNc +vOzRADsYFotRWqhlobA14TkpKg4Qt+WipPS/LFQb0tl+Js0RKnqJTT9TWejQ +nOz8xhAnCH5Ijn8OZ6Hv1jvdH/s5Q+u+DYnNnixk5J27fdzJBSKrfKuatrPQ +S9kLezuorjCvLDenpMVCcuVH71RucIOv/ltl61ex0O0RTVt7UXcYFni0t/n3 +DFLsZwXFMtzhdKZKn37fDKKeya0pGfGA5Kxo2pmyGXSBb25T3gNPCGzOm7yc +MINubdcZTGv2gkJ+4+MCDjOocEumxFLVbvj3h2XPDtUZ1POuLJ160htWFFz9 +cPA3E920O68accQHxC2XtG70MxE71IUrjNgDvJMeQnz1TPR9p0Yw09wXjKXi +tkVmMVEl4+1CtIEfWNkKHDkXwkSel8sC94j4w5Fmw9Q3Vkx0vdHGj/eYP5iV ++Sd6ajCRkfzLnxk//YFJWfr1RYSJVEaCBl+EBEDQOXv9iVkGGhPe53D+UwAo +C6UMDA4wUG+2faClGw12NaY8Lr/PQPlxxcIHemkQNvno3FwNA91p+/sz0CoQ +XmfZPpQ5x0ArfOAYtSUQ+ISyHNoyGUhp1eOeNXcCwepkdMYRbEqXnYxAWyBs +UK+eNsN2NvG+OnAvEGobZHQ6M3D+mthnh58EQiTFuLT/OAPJDVev6BwIhLLD +C07f0xlI1Ve60Gc+EPYrCXa7HWUgI39mZZoeAQraom9OJzJQeREr2t6AgNw1 +l0YDsVf1zZpKGxJQcfu+uB42c8d8f+VWAsq924b6Exh4/+Li7jIj4G7b/Y0y +2GLzEl6STgSoFp+tKIvHzyNLf3lxKAF6rBfKQ7EM5PR4S39QOAGhfn3367Hb +uIyLKZEExPScP5aGXRRtqn8/hgArr+xkHWx7L8uA8QQCHF3kNNIOMFCzqlfz +xkwCmnnNiS0xDJTdmhhyu5yALdxzaU2RDBSqW2AUV0nAhuDu1Fxs26sNyw2r +CGivoFbswxYqmLjadI2A6+aX3ZWw06IcJ2/dIECmSsf/RAQDJWqo7rt5nwD2 +Geu1weEMtLfg2f7G9wSMy/7nbhLKQFZiEyZRIwTMuoU+kcPekMYlqvuRgOKI +F34/9zPQRJT+tYZxnLehZf4WdoB9MaN+moDGyzr9VGxP/uiwukUCtH1vgd4+ +BrKMlouoWU2HlwetWA4hDHS/ON06T4YOWS5/CAq2SdesapwcHZaJjPNKYFPU +nr01V6SDWrxd+8tgBpJ9k2D+To0OdSV1VE/sKePh1UL6dNiz9j3/viAGOsVz +6b8gFzpE3LvqX0/H69cRKbRzo0NPzCrFs9ip3nFRVA86PK4a4E/EjrvhuP7v +bjpESUe57sIOILlzz9LoUPtOkPmRYCDqUxrxMJIOG8zqVyphv8lVE1bJoUNL +kgKlhcZAtUg0+EsuHeynDS+VY6cyvnVcO02H1YSj/mlsXauOJMMCOuxwj+3e +j53NFThrd5EOQ5sb76zD3hl+6W1cDR1ii1Iz8gIYSEHhuIFpLR26E25YpWB/ +exp+mreeDhbuU5sisK+oI7vs63i9SRHB9ti/h4fbS1rooCU7WSCCfcNWvrK7 +kw65Q+u+nvJnoBOLPPz5T+nwt0xo8Qg2rXIywKuLDv1sXkoUtjhfi/xYDx0U +zTWF3bD3t3qe+vmaDjJDrklrsFU0z8aqjtPh+OgZz0Y/Blp8c7jv6wQdvF48 +bCnD7k2jU+q+0EF/n5hZEXbSqN6k0TQdmAem7h7BHizs2+MwRwePk6NxTth5 +ghI7DnGToOKmOPLTF+8Hs8PeMbwkFJt9CmRifx6uigrjJ6GpaVLqE7bJDYtL +tOUkPLB/wPcce8I/7pe1BAkrHK+KlmCL2+6Q3LGSBKWqHN4i7K1bJDWQFAmF +yW3rT2HniNa4U2VJ4A6bWUzgjLd8aJBfR8JwQWOXBzZZVtMppULCpPygngPn ++pz4DyvUSBhJs3m2kzMfuVKUT4OEVwWiRw044ystg6cpJCxJyirKYLf8WZk8 +oUsCj965BXHs8a8jZ0b0SNBaE8wthG3cfuhBvyEJHhlTF5b24P1hf63if0CC +oHsRzxi2mGeCfpMZCWu2ZTi8xzYy32XbYEGCsXnn0wHsbNmP8WW7SPinTs+2 +G/s2X11OsTUJrFya8xPsTzMJFUW2JCyeGEnvwDZ8JPUqy5EEk4rnh1qxaQ0f +p445k9BN3WbchJ11vo7nH1cSFGt/r7+O/THKihLrSYKfZlR2Nbao72rLiN0k +nExXF6zk5Fl92rPXh4TdqVq1pZz71x4+4etPghX3pmMXOX2ErK940kgIeaLR +/C8n7/vqZmeChKGOg7JFnLzRTz22JAkXJWUqz3LyuuondgaT8KFHiJ7P6dd0 ++DfsJYEi7eiYx8m/Yr1q634SXLi/hORw8rOkN+qHkXCq9GVDNic/bmy7TgQJ +uVLiG7KwRYgGT40o/LzIS10nsLc4JIWrxJDwrvxocSYn39gmXSGWBLPx5ksZ +2CfVZC5Ix5FgoW3eexz7lvj4dYlDJMQfX7uJ49FfDU+FE0kI/WPfcoyT/zlp +lD+JhKD8FzEcG7y0WfibTMJDu4o9HP8P+dv6qQ== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5012481131960838, - 1.8440472181603567`}}, + "PlotRange" -> {{0, 180}, {0.9176670865221516, + 1.0882217765834943`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5012481131960849}, + "AxesOrigin" -> {0, 0.9176670865221536}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.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 +13295,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.9176670865221516, + 1.0882217765834943`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5012481131960849}, + "AxesOrigin" -> {0, 0.9176670865221536}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 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 +13323,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:eJwV1Hk4VF0cB3C7soWSLZKtiEwGITm/ULLvW2QZdy4qu0RE3lAUIYXeSmUN +2VqEXqlUKqGoJIpChRkzVCTVe+aP+9zn85x7v+d77nLW0cKd6TxcXFwMfHDO +kd2b1jf1dpveyegz8Q5hI1NmqT7NogY9Fr1C4Xik2CBf1eIOKgkXE+HYkXgu +IEJ9iFIbZXp2YzfEJT/gt+hCd9+1x3Oc8UimPbnqBXo2KyDCcXNv5MUl3VfI +lHsqzQt7cvBpYnzrAHotGfrZE1tuXMX7h/kQitDPonBsM5NoFN31AQnF2wR4 +YLctTQrHVY2i+zMV8e7Yr1OkE26FfULvr12Jd8NmClhMftMdR+1Ptga4Yguc +jPCizk+gGe9oigu2osSFzsjWL2hVstVnJ2x7+R/lTPNpdJzxQtgBm7ykvFp7 +GRP1xqXG22Enqzmk7euaQdxSr7ttsAek+zfHVLHRP9IelF3YxO69IadPzqJ3 +3ekmO7FZ57kuN4bNIS0jd4oF9jJlbXG27nekP9LfjbDziQeW4lI/EH9yavw2 +bKUKr2Sd+R/oR36/8FZsQ610ZmjrAhrk9visjx1s8KFr0nwJmXpOxWtif4s7 +wCek/hs9lS0LWI99pFXYRGPZHyS1nXuzKnYhGFYHdf1FtSOX0xU4/co6LaKq +uOF280nRFdhVj06PpMjzgDgrQFeY0/ezb2LuSR5YxTtkKoidqPn9en0YL0iq +tIv9DcZ969apzOjyQ+Bh50wG9mDvdNufEn7ovuM5/QVbabZpt5iUAKwYEDAY +w67Rs8/TnhcAAWufI4PYHc2HuPe3LoMBzQXWQ+zvD/o+fDEXATsnb7NCbElb +EfGENhHg6+suysWm9FuAqJEolJbU9mdi7x27eWnzJjEoX7r5LRE7gqeLsk1E +HIzuzg/7YY8r17LTfkjA8dpZNyXsb+TT5T1USehYTB2TxuapnlgnEykJ3VI5 +7is4falrnaumJKHadNX47yA22m2e09g9shLKqxnVb7F7AqOipZ9JQZ9g8+gJ +7PcV2Sf8l62GncK7KlOwp6eqSq7uWA05Vn7OB7GFYj71bW1fDdVNmk40bItU +Vz3/m9KAOlx+GmC3lBp8ryyWBd6EqW+DJBuVji/GGscogHJp/WVR7F1ux95H +X1OA6jjZR1zY0x0rd16bUIBdr1++mKOzkV6plpSSlyKg3q3Fb7E7aL7X+U3X +QkuDoGQp9uzMyMEvR5WgjXnGUw97ZajFjet2yrBN6kCUGcFGE6VCwY57lSEy +xeOoLvbtoV55RroyjLdeT1DG9rHdc1S9XRl+uX1Q5sEu3RjrXKSrAoP1G23a +A/H8kxWsJGlV0Kka4zPEdg0S1rYeVYPbG8vXS9HYCMW66Xr8VgOty5aZPNia +acVbCFl1GLyb/momgI24SqhmSU7YAWNqT7Gvvff2aLynDiLp1rWHsQXca1Lk +rqyH0M1UvxF/3M/C7vUkTQNYVMIu34+NSlwK3s0nacDd3sVHSdjZtNERvn81 +YHwNqRGCTRw5MKXYpwG31O9XbsOWuHOBy8VcE4zVO3LHffH3Q2VqtqpsBHuf +ArHN2PLKp5JPjGnBq41r7t3yYaM7md80fvJow/JB/53nsX3mvPrJddrwF2rq +U7AvdqhqmPlqg9enAD1bbOWglpcLb7RB/8bphQ/eeL0142rks00gsRgdy4Ot +IK9IKnlRQEeuw5vqxUZaZTEiv5AujIiJRu1wYyMacfS7tr0uyBSmp6tjF6rk +vff30YVfb9anCmLzXqmrfxSnC03bpo2fuOL/7eKka16DLoR7dZ61wc4o9L+g +oUIF9+ebhWxd8Ps9YbvJU0APmCm2c1ud2OhylKrjzS59yHn5OmLAlo16Y9GW +1DIjyK37cW29GRut831lv2f/Nlg2kK+kZsBG9L+3ahXiATJaHxlWaLCR9NRt +QWmaGRR21Gk/lmOjGKrJUJ6mBQiu65G9LYz7M5Y6V07ugGiTJ0ozv1jomlm0 +YHGPJdiepeS0f2Wh0m9779XkW0GqRH7kxzcstLBd5nlHsg24psRnXnnAQsNc +vOzRADsYFotRWqhlobA14TkpKg4Qt+WipPS/LFQb0tl+Js0RKnqJTT9TWejQ +nOz8xhAnCH5Ijn8OZ6Hv1jvdH/s5Q+u+DYnNnixk5J27fdzJBSKrfKuatrPQ +S9kLezuorjCvLDenpMVCcuVH71RucIOv/ltl61ex0O0RTVt7UXcYFni0t/n3 +DFLsZwXFMtzhdKZKn37fDKKeya0pGfGA5Kxo2pmyGXSBb25T3gNPCGzOm7yc +MINubdcZTGv2gkJ+4+MCDjOocEumxFLVbvj3h2XPDtUZ1POuLJ160htWFFz9 +cPA3E920O68accQHxC2XtG70MxE71IUrjNgDvJMeQnz1TPR9p0Yw09wXjKXi +tkVmMVEl4+1CtIEfWNkKHDkXwkSel8sC94j4w5Fmw9Q3Vkx0vdHGj/eYP5iV ++Sd6ajCRkfzLnxk//YFJWfr1RYSJVEaCBl+EBEDQOXv9iVkGGhPe53D+UwAo +C6UMDA4wUG+2faClGw12NaY8Lr/PQPlxxcIHemkQNvno3FwNA91p+/sz0CoQ +XmfZPpQ5x0ArfOAYtSUQ+ISyHNoyGUhp1eOeNXcCwepkdMYRbEqXnYxAWyBs +UK+eNsN2NvG+OnAvEGobZHQ6M3D+mthnh58EQiTFuLT/OAPJDVev6BwIhLLD +C07f0xlI1Ve60Gc+EPYrCXa7HWUgI39mZZoeAQraom9OJzJQeREr2t6AgNw1 +l0YDsVf1zZpKGxJQcfu+uB42c8d8f+VWAsq924b6Exh4/+Li7jIj4G7b/Y0y +2GLzEl6STgSoFp+tKIvHzyNLf3lxKAF6rBfKQ7EM5PR4S39QOAGhfn3367Hb +uIyLKZEExPScP5aGXRRtqn8/hgArr+xkHWx7L8uA8QQCHF3kNNIOMFCzqlfz +xkwCmnnNiS0xDJTdmhhyu5yALdxzaU2RDBSqW2AUV0nAhuDu1Fxs26sNyw2r +CGivoFbswxYqmLjadI2A6+aX3ZWw06IcJ2/dIECmSsf/RAQDJWqo7rt5nwD2 +Geu1weEMtLfg2f7G9wSMy/7nbhLKQFZiEyZRIwTMuoU+kcPekMYlqvuRgOKI +F34/9zPQRJT+tYZxnLehZf4WdoB9MaN+moDGyzr9VGxP/uiwukUCtH1vgd4+ +BrKMlouoWU2HlwetWA4hDHS/ON06T4YOWS5/CAq2SdesapwcHZaJjPNKYFPU +nr01V6SDWrxd+8tgBpJ9k2D+To0OdSV1VE/sKePh1UL6dNiz9j3/viAGOsVz +6b8gFzpE3LvqX0/H69cRKbRzo0NPzCrFs9ip3nFRVA86PK4a4E/EjrvhuP7v +bjpESUe57sIOILlzz9LoUPtOkPmRYCDqUxrxMJIOG8zqVyphv8lVE1bJoUNL +kgKlhcZAtUg0+EsuHeynDS+VY6cyvnVcO02H1YSj/mlsXauOJMMCOuxwj+3e +j53NFThrd5EOQ5sb76zD3hl+6W1cDR1ii1Iz8gIYSEHhuIFpLR26E25YpWB/ +exp+mreeDhbuU5sisK+oI7vs63i9SRHB9ti/h4fbS1rooCU7WSCCfcNWvrK7 +kw65Q+u+nvJnoBOLPPz5T+nwt0xo8Qg2rXIywKuLDv1sXkoUtjhfi/xYDx0U +zTWF3bD3t3qe+vmaDjJDrklrsFU0z8aqjtPh+OgZz0Y/Blp8c7jv6wQdvF48 +bCnD7k2jU+q+0EF/n5hZEXbSqN6k0TQdmAem7h7BHizs2+MwRwePk6NxTth5 +ghI7DnGToOKmOPLTF+8Hs8PeMbwkFJt9CmRifx6uigrjJ6GpaVLqE7bJDYtL +tOUkPLB/wPcce8I/7pe1BAkrHK+KlmCL2+6Q3LGSBKWqHN4i7K1bJDWQFAmF +yW3rT2HniNa4U2VJ4A6bWUzgjLd8aJBfR8JwQWOXBzZZVtMppULCpPygngPn ++pz4DyvUSBhJs3m2kzMfuVKUT4OEVwWiRw044ystg6cpJCxJyirKYLf8WZk8 +oUsCj965BXHs8a8jZ0b0SNBaE8wthG3cfuhBvyEJHhlTF5b24P1hf63if0CC +oHsRzxi2mGeCfpMZCWu2ZTi8xzYy32XbYEGCsXnn0wHsbNmP8WW7SPinTs+2 +G/s2X11OsTUJrFya8xPsTzMJFUW2JCyeGEnvwDZ8JPUqy5EEk4rnh1qxaQ0f +p445k9BN3WbchJ11vo7nH1cSFGt/r7+O/THKihLrSYKfZlR2Nbao72rLiN0k +nExXF6zk5Fl92rPXh4TdqVq1pZz71x4+4etPghX3pmMXOX2ErK940kgIeaLR +/C8n7/vqZmeChKGOg7JFnLzRTz22JAkXJWUqz3LyuuondgaT8KFHiJ7P6dd0 ++DfsJYEi7eiYx8m/Yr1q634SXLi/hORw8rOkN+qHkXCq9GVDNic/bmy7TgQJ +uVLiG7KwRYgGT40o/LzIS10nsLc4JIWrxJDwrvxocSYn39gmXSGWBLPx5ksZ +2CfVZC5Ix5FgoW3eexz7lvj4dYlDJMQfX7uJ49FfDU+FE0kI/WPfcoyT/zlp +lD+JhKD8FzEcG7y0WfibTMJDu4o9HP8P+dv6qQ== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5012481131960838, 1.8440472181603567`}}, + "PlotRange" -> {{0, 180}, {0.9176670865221516, 1.0882217765834943`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5012481131960849}, + "AxesOrigin" -> {0, 0.9176670865221536}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 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 +13430,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.9176670865221536}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -7696,7 +13459,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.9176670865221516, 1.0882217765834943`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -7704,9 +13468,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.993961196475711*^9}, CellLabel-> - "Out[386]=",ExpressionUUID->"e400bdb6-95ee-464e-9e4c-d5d7da48485f"] + "Out[139]=",ExpressionUUID->"a3dbdbff-9708-4542-9ea9-dde1b9aea34d"] }, Open ]], Cell[CellGroupData[{ @@ -7769,156 +13533,159 @@ 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[\\\"4.592635570687546`*^-270\\\", \ +\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 73, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913426299467087`*^9, 3.993961196627521*^9}, CellLabel-> "During evaluation of \ -In[387]:=",ExpressionUUID->"1c59fae3-3f74-0144-b936-915cf372347d"], +In[140]:=",ExpressionUUID->"a9a5100b-2bb2-497b-be56-cc9da3a96af1"], 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}, + "\"\\!\\(\\*FractionBox[\\\"6.861923771776273`*^-283\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 74, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913426299467087`*^9, 3.993961196635683*^9}, CellLabel-> "During evaluation of \ -In[387]:=",ExpressionUUID->"c058b3d2-ecc0-7348-bdec-143a71e7f77c"], +In[140]:=",ExpressionUUID->"2bb7c4a7-5a06-4c96-9335-7d753236c24f"], 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}, + "\"\\!\\(\\*FractionBox[\\\"1.0252500361708274`*^-295\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 75, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913426299467087`*^9, 3.9939611966439867`*^9}, CellLabel-> "During evaluation of \ -In[387]:=",ExpressionUUID->"049ee41e-a5fd-7e46-9ca5-37402fcadc74"], +In[140]:=",ExpressionUUID->"58a8ebf5-b4ae-4df4-8622-337c41e5b667"], 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, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913426299467087`*^9, 3.993961196652179*^9}, CellLabel-> "During evaluation of \ -In[387]:=",ExpressionUUID->"5bf93938-89e6-8d49-a495-6173a8c36739"], +In[140]:=",ExpressionUUID->"94cf24c1-9781-4794-b2bd-fed91188e6dd"], 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:eJwd1nk4VevbB3AnFQ0kDhkybXtt81xk2N03FaEUkjQgQ5lCGUrJeBIphCgZ +IhV7r1VIlDShciTRUURHRTpSisxN3uf3/rGudX3+WNczrPv+Po+yZ7CjzxwB +AYHf5Pnfe7L370Z2Sslqyf2LTEfTjFd3FEhHWnTFg5NZ7jcqXxJQ8pmndFcG +3P8qZzSRR0HEZl6nYFcxvD3XbNiZtxKWflmWMdNZCTIDscUVeevgTZ198Hhn +PQxI07lr85zBij3072jnc+DApNalXB+Y6TQ+M9LZB83f9s0YZIVDw5orJe3F +YzB0uiOyyi0Rlr+59cFT6xf4VSd2Zx9Jhz8D3XlCawQxPOaBUn7iGcjQt7pt +7yyM4Tn5mpmPcuHVWb37o2IimBH3RxA3sBBSSmKezZFZisZu4Q/ylxbDsqz+ +5Mx8Ccx4s9pb37AEjm+xWf18UhIv9iuaqM+5DKEmRe5/x0vj1Rd3IiLrr8Da +r98PB/XLYlBqncEfemUQuT5L48FnWezPFltmsLIMrhZpd0tMymKsXVqLu2kZ +SG/xMLklLIfXzrWXVawtg883H04J6sjhfrFRtq5rGWTGp4edOySHmv5zXqfH +lUGfJCeoUWQ5Gt4K8Bp+VgZx5g67ZVfJY+aXVZW/PHmw3q3gm7GlPF5P6jK4 +v5cHorGfEpw3yOOYkHR/dCAP8hqOXU73kEcDzbr2kXAe3LSt/TQ/WR7jeyr6 +LifxYGSbSsTYK3nkTS25toPhgVv4xImWIwqoFF3/+8MYD6gcy+VDxxSw591C +Dd1pHplvGiOUroDnqZexoT95cPineptliQJa8Jjykbl8OJPgJnmrRQFl5+Qv +uyPJh5bTjwsvySuiopfNVL4RH0yvnquKvqeIRq6lz2PC+bC2s/XXlyZFTPSd +cF4cyQd7gbnW7s8VMeGBfMKZKD54OQa9ggFFfOKt3JOfwAerI8oxsfOUsHZU +ICHxNB9CFCcvWmgqoY7q1boamg+NewuHGyKUMO5Dmn3uWz7Y/DQRjzqihIMt +19Xr+vnQmt5htCJWCfP2/Sjv/sCHV7cWxJYkK+HRg/6NIsN8+LIoTPxYnhKu +GpSbs2GGD9Ll642t6pVQWzp5Qm0pDYHTo7FNIsroMz7W4LOaBtP9e6Q+iCtj +RZ81z8WCBuGhbr6gtDLqVAYw69bScKmn4eVqljJKhCgukrKloffuGa0bRsq4 +YtEmzSRnGjYdM+kqclfGzo27TCsDaDAQj9M9UqGMqeYheYpnaBBImWg8W62M +mTJGV87k0NAq6L+9+rYyVn3b1CWUS0PAhOOx0YfKqJoyePVtAQ0lXeyevd3K ++GBvrbF3KQ1ShU2JWwRZeDFwduH1WhpmNMV6tZ1Z+L5COOrAaxom82XjDLez +MKZhW5t3Lw3jSyi2iTsLsxdLHHF6S8OXMRP/tX4sbNCJfkG9p6Hvttfk9qMs +fOjuziv4REOzXY1o0iUWKq8xW/VuhobHdx5UnOKxMCHJQu3cDxoadVu2ZF5j +YW31h/CNv2i4K/Eut+AWGS9oXJMvwEBlz0LVG09ZuHE2U8xMiIHcADfom2Dh +trZv6owEAzn/+vb9952FKVH+OpqSDGRtCj02PMvCzNNBZy9JMZBqmPRkeoEK +FqjrFabJMBD/o8JliYIKmtZvTFylyEBAyrwQcysVHNPpM+hVZ8D31xIJSzsV +jK4aecbSZGBPsGy19WYVFLbV7vHSYsDDSfen43YV1Dbbv7pHh4Etcq5JfkEq +mJUkur7QkAFzPn0hO1sFTcI0P0aZM9CjxC9cd14FI30G70ZwGTicXVYwXqiC +Mgs+xu1bzUBN3OU8xzIVPPqK3+6ADBhsu3BWtE4F73eIXZ5Yw0D704KcO/dV +cI3Qg7GXaxkIWZOfHfhQBZM6rhrcWMfAVZ3crOZWMh++TaKvNQPq87LSE9+p +YN6XxgyeLQNNhzPSVn5QwQrlK4dC7ch6RtJT3w+R9eW9dTLZwEBJz6mTluMq ++CQr+PPtjQwoVR5P+j2fjQoiVVV5mxmQcj8SG6HFRukFLJmnzgzc6IiMofTZ +eHNWPMtnK1m/7aHojpVs9BX7vPgHccbK8CgDYKN1ZMr35dsYEFkcfOiLAxuD +byx+Yb6dATpu38H8rWwMD2uyv0NsOxUQsWEH+f6vvmbTHQwk9fmG8bzZuDw/ +vEVrJwNzb3mG7DnIRsHPIvOGdzFwUWd3sGQUG3nUtSJnNwYsS9yDGmPZ2N1q +ue42cUzazkDWCTbuWJd18ag7AwrzdgS0p7LxdXGUezdx3WFX/9hMNjak0ewV +Hgx899nq25vHxkku92kv8bmeLXtPFbFx48qWCt3dDKxycNpjfpmN5aqzRUeJ +I8w3e+deY2Ond+UVMU8GJCvtvWyq2PgowfuuM3GV6kbP6ZtszF2n0J9DPCpu +67G1no3FtktdJbwY6Apktfk/ZmOKa7KnA/H9R98hpoWNH65OTqUQlyr9cy2z +nY3NWkqyDcTph/mKpS/Z6O349O9J4kMdCWl1PWzMN3skpOpN6lFn52zbWzZW +Xvinw4l4fdKK4IEBMr8Xd/WPEuv1LX4zM8TG/5odFC8SS5sP2IuOkPEWuhQ8 +JBbIvnOXNcHGxtvnrr0nHvx6Rsf4Oxvf5A84Cfgw8MwmqMBulo21i4ROShNX +X7QS9ZhLYfZM8zZt4oJfCtFhCygUnvhdu5o40WVqOEmUwlL2/usbiIMqnu3K +l6CQbz1i6UK8dVHp0wppCqNu2Pm7Ea/2ieU+kqdwzy4nDU9izr1tTDeLwpWP +OhP+ZxEZffmvqhTeFeEddCceP7DglKA2hVcGz893JX7d8u7nMgMK3xTF6G8i +buTUBmoZU+goqzZjQUzHZrxGcwqPNfm66RNndftvcLagUOumpKc8cdSKNXV+ +VhS+TBacN5/YO1VOK9qOwqQDQus/kf2wGxw7n7GZQgezKc2nxAaWLYuuOFP4 +Dcsq+MSyeSVHbm+nMC50/FUi8ZzJqE/P3Cn84Vx+yY14aJPzjvfeFPb/qpI0 +JH5epv1k2o/CUfEejbnEtYLzzUSCKcxp/THQTv5vck21rFEkhSqTWQ5exCFL +007YRlPow6sXVCXeFrD3u1sChQZnnN3/I/WlpijdffwUhSZtclJuxGKRIzZ5 +GRQW/Ccc+ifx9POmW+U5FFINrVGPSf02JUaee1VE4XSYW64K8d4v3ds0q8n/ +iRaQqiL9Yb/+ehPcpvD3Cda3TcRGxSmrttynMHqxYvwg6a/5W82ljzZTaE0b +PFhCfPlOfmdrL9lPp4oOI9KvqcsirPv7yf5opvveJP0csd++ZmqQwuSpfTVG +xOuo2WylMQqtntUnq5P+f3/SY+sBIQ52ja6UHXQh9TKkxdJbzEEhy//euRJP +Wc8MD4tx0OdH+csmki8LBTOO+clyUO3vE7YFJI/0IhuqPLQ5OFToGqLqxMBR +H47EJicOTn+/ues6ybP5Dd96F2/j4O9/fR2mSd6lK93jNe/koHmxY7Tp/+ef +i6XVHg62JH9MrCZ52eyQvJ8bycFvQ+2+p0ieSq3+/EyzkIOp4toKNSSfL5y/ +ef7jRQ7KfXsypw1I3s78tfdKKQcLTnG0P5A8N6+Sn2VVEmubb11I8t5LY5OO +7EMOsqJMxAxMGCiXqjwp/ImDAzJqnbN6DNh8PWgzYKSKW9V2eeQqMLBcXyFR +2FwVvehl45byDHw50FivaaGKwU9LDwzKkfqdFDM/YKeKWbKnV2iQ86z3V5nO +rLsqTs71/JhEzsMDi19LyCSr4ohflVDV/85Ldezd0KOKt+I/VTYNk/tJwAfZ +kLequDuaviX2mQZgTrpkDqhiSTzV6jxEw3u9V22vvqpiGKuG3fmBBp1VBxr2 +zFXDpV2VV6rf0NBgVVIaq62GLDv5P4baaPjsJRxaFaOG+ybuTahXkPtAwdo7 +9/5Sw8tWH3MVr9Hw9VWs0JNkNXTdLX9SnKHh26aZ8+8y1dCib5HLCLl/TJkN +NYqWqmHnwGsm5QINc/5skfJrU8PpG2wXyzQaZBrTauWV1fFur9+eGn+a3P+X +zTler468dyeezcrQ8NHTutTssTpWOnrsj1lGw8mig/YjT9TxxifR6Z9/0vCP +Qleu6wt1nHh/r2Z0CQ0eMucMtQbVsWDuuGz9PBoiReV82kU0MGwurpsd4QM9 +rdAk56qBQ00iL0cf8kH8KSe1/KsGVi32uTfsx4flSdc2GxlpYb3hsI97Mg/O +apqISezVxq2jx5X888qgWdZi5dhpHVQvN9+dVVAKpsvr03Vf6qLbsz+W5hy8 +AqKCxWG74/XQXI9/4LfzZVCIUzR35ehjq/h3yzGxS7CA2lnt+FgfmQAfrfrm +i6DDlbl2cJcB+u58lVyZUwwHesUbbAUM8bmGoTDLrgi+jp10tjlriKUun4IF +pC+Ate6jXBvtFbjd865+/9t8uDtm9mOqdQVu0W3LTgk5D0FaBt3tPitRNVR2 +tJV7DrhfvDtcFxhhVvoZx5fj2bCOLb1RpNgIq3KsmJrPWaAWe+JQvbExflSf +WCu7IBM0fEzuUd3GuOfMZJef3Gnwuev7V9X+VXgp+uDCya5UuHehw3tU0gRf +fw190BGWAuOls1O6NSbIW2g6PeuZBF4Uf0HuRlPs8hKUCL9/DEY1Mo0qR0zx +eo/4OxOVBLhZ8uPdRJIZ9gVWKj4ZioXta1XQTMEcXbfb62m8PQpy+47f0rlv +jsXGflwpgcMguTCwYqMLFz3F6gq2PoiAkjVHD4+4cvHJ8QbHC9cjwOBo6prM +nVzcvdy1cuRSBNiPlL/o2s3F3++HAi6diIDElxMzXoFcfBhcn+q2JQKmi2Ms +D8dx8azH9gaRj+HQbZb5z2U+Fx8teuTmsCwcfMNL8myucnGwfDgmcGE4TF69 +4fO5nItV+ZyFqb/CQJzVNaVfzcV5T/c7vO8PAzth+eV37nNR8M3nkH/Lw6Cu +47L3Py+4WNcvoiiwIQxsRW9qR3RxUcYl+GUshEGX9d+T0j1c/HTe/4WQYRiM +135KcnvLxblGT4vUZMNAu0iP+TjERU2PLJMbg6FQ120RcXKYi5JVUmN7X4eC +7Z9OoDvCxRXCQf1KbaGw53h4e9gEFy2+GntcqgmF8fuJucumuSh1+NBgCD8U +4r/neNV+56L7pHqhZWEoiK0o09r1i4xnbhgvmxkKBftqJ2ZnuXhd8kjadGIo +/B/53UAg "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -7932,115 +13699,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:eJwd1nk4VevbB3AnFQ0kDhkybXtt81xk2N03FaEUkjQgQ5lCGUrJeBIphCgZ +IhV7r1VIlDShciTRUURHRTpSisxN3uf3/rGudX3+WNczrPv+Po+yZ7CjzxwB +AYHf5Pnfe7L370Z2Sslqyf2LTEfTjFd3FEhHWnTFg5NZ7jcqXxJQ8pmndFcG +3P8qZzSRR0HEZl6nYFcxvD3XbNiZtxKWflmWMdNZCTIDscUVeevgTZ198Hhn +PQxI07lr85zBij3072jnc+DApNalXB+Y6TQ+M9LZB83f9s0YZIVDw5orJe3F +YzB0uiOyyi0Rlr+59cFT6xf4VSd2Zx9Jhz8D3XlCawQxPOaBUn7iGcjQt7pt +7yyM4Tn5mpmPcuHVWb37o2IimBH3RxA3sBBSSmKezZFZisZu4Q/ylxbDsqz+ +5Mx8Ccx4s9pb37AEjm+xWf18UhIv9iuaqM+5DKEmRe5/x0vj1Rd3IiLrr8Da +r98PB/XLYlBqncEfemUQuT5L48FnWezPFltmsLIMrhZpd0tMymKsXVqLu2kZ +SG/xMLklLIfXzrWXVawtg883H04J6sjhfrFRtq5rGWTGp4edOySHmv5zXqfH +lUGfJCeoUWQ5Gt4K8Bp+VgZx5g67ZVfJY+aXVZW/PHmw3q3gm7GlPF5P6jK4 +v5cHorGfEpw3yOOYkHR/dCAP8hqOXU73kEcDzbr2kXAe3LSt/TQ/WR7jeyr6 +LifxYGSbSsTYK3nkTS25toPhgVv4xImWIwqoFF3/+8MYD6gcy+VDxxSw591C +Dd1pHplvGiOUroDnqZexoT95cPineptliQJa8Jjykbl8OJPgJnmrRQFl5+Qv +uyPJh5bTjwsvySuiopfNVL4RH0yvnquKvqeIRq6lz2PC+bC2s/XXlyZFTPSd +cF4cyQd7gbnW7s8VMeGBfMKZKD54OQa9ggFFfOKt3JOfwAerI8oxsfOUsHZU +ICHxNB9CFCcvWmgqoY7q1boamg+NewuHGyKUMO5Dmn3uWz7Y/DQRjzqihIMt +19Xr+vnQmt5htCJWCfP2/Sjv/sCHV7cWxJYkK+HRg/6NIsN8+LIoTPxYnhKu +GpSbs2GGD9Ll642t6pVQWzp5Qm0pDYHTo7FNIsroMz7W4LOaBtP9e6Q+iCtj +RZ81z8WCBuGhbr6gtDLqVAYw69bScKmn4eVqljJKhCgukrKloffuGa0bRsq4 +YtEmzSRnGjYdM+kqclfGzo27TCsDaDAQj9M9UqGMqeYheYpnaBBImWg8W62M +mTJGV87k0NAq6L+9+rYyVn3b1CWUS0PAhOOx0YfKqJoyePVtAQ0lXeyevd3K ++GBvrbF3KQ1ShU2JWwRZeDFwduH1WhpmNMV6tZ1Z+L5COOrAaxom82XjDLez +MKZhW5t3Lw3jSyi2iTsLsxdLHHF6S8OXMRP/tX4sbNCJfkG9p6Hvttfk9qMs +fOjuziv4REOzXY1o0iUWKq8xW/VuhobHdx5UnOKxMCHJQu3cDxoadVu2ZF5j +YW31h/CNv2i4K/Eut+AWGS9oXJMvwEBlz0LVG09ZuHE2U8xMiIHcADfom2Dh +trZv6owEAzn/+vb9952FKVH+OpqSDGRtCj02PMvCzNNBZy9JMZBqmPRkeoEK +FqjrFabJMBD/o8JliYIKmtZvTFylyEBAyrwQcysVHNPpM+hVZ8D31xIJSzsV +jK4aecbSZGBPsGy19WYVFLbV7vHSYsDDSfen43YV1Dbbv7pHh4Etcq5JfkEq +mJUkur7QkAFzPn0hO1sFTcI0P0aZM9CjxC9cd14FI30G70ZwGTicXVYwXqiC +Mgs+xu1bzUBN3OU8xzIVPPqK3+6ADBhsu3BWtE4F73eIXZ5Yw0D704KcO/dV +cI3Qg7GXaxkIWZOfHfhQBZM6rhrcWMfAVZ3crOZWMh++TaKvNQPq87LSE9+p +YN6XxgyeLQNNhzPSVn5QwQrlK4dC7ch6RtJT3w+R9eW9dTLZwEBJz6mTluMq ++CQr+PPtjQwoVR5P+j2fjQoiVVV5mxmQcj8SG6HFRukFLJmnzgzc6IiMofTZ +eHNWPMtnK1m/7aHojpVs9BX7vPgHccbK8CgDYKN1ZMr35dsYEFkcfOiLAxuD +byx+Yb6dATpu38H8rWwMD2uyv0NsOxUQsWEH+f6vvmbTHQwk9fmG8bzZuDw/ +vEVrJwNzb3mG7DnIRsHPIvOGdzFwUWd3sGQUG3nUtSJnNwYsS9yDGmPZ2N1q +ue42cUzazkDWCTbuWJd18ag7AwrzdgS0p7LxdXGUezdx3WFX/9hMNjak0ewV +Hgx899nq25vHxkku92kv8bmeLXtPFbFx48qWCt3dDKxycNpjfpmN5aqzRUeJ +I8w3e+deY2Ond+UVMU8GJCvtvWyq2PgowfuuM3GV6kbP6ZtszF2n0J9DPCpu +67G1no3FtktdJbwY6Apktfk/ZmOKa7KnA/H9R98hpoWNH65OTqUQlyr9cy2z +nY3NWkqyDcTph/mKpS/Z6O349O9J4kMdCWl1PWzMN3skpOpN6lFn52zbWzZW +Xvinw4l4fdKK4IEBMr8Xd/WPEuv1LX4zM8TG/5odFC8SS5sP2IuOkPEWuhQ8 +JBbIvnOXNcHGxtvnrr0nHvx6Rsf4Oxvf5A84Cfgw8MwmqMBulo21i4ROShNX +X7QS9ZhLYfZM8zZt4oJfCtFhCygUnvhdu5o40WVqOEmUwlL2/usbiIMqnu3K +l6CQbz1i6UK8dVHp0wppCqNu2Pm7Ea/2ieU+kqdwzy4nDU9izr1tTDeLwpWP +OhP+ZxEZffmvqhTeFeEddCceP7DglKA2hVcGz893JX7d8u7nMgMK3xTF6G8i +buTUBmoZU+goqzZjQUzHZrxGcwqPNfm66RNndftvcLagUOumpKc8cdSKNXV+ +VhS+TBacN5/YO1VOK9qOwqQDQus/kf2wGxw7n7GZQgezKc2nxAaWLYuuOFP4 +Dcsq+MSyeSVHbm+nMC50/FUi8ZzJqE/P3Cn84Vx+yY14aJPzjvfeFPb/qpI0 +JH5epv1k2o/CUfEejbnEtYLzzUSCKcxp/THQTv5vck21rFEkhSqTWQ5exCFL +007YRlPow6sXVCXeFrD3u1sChQZnnN3/I/WlpijdffwUhSZtclJuxGKRIzZ5 +GRQW/Ccc+ifx9POmW+U5FFINrVGPSf02JUaee1VE4XSYW64K8d4v3ds0q8n/ +iRaQqiL9Yb/+ehPcpvD3Cda3TcRGxSmrttynMHqxYvwg6a/5W82ljzZTaE0b +PFhCfPlOfmdrL9lPp4oOI9KvqcsirPv7yf5opvveJP0csd++ZmqQwuSpfTVG +xOuo2WylMQqtntUnq5P+f3/SY+sBIQ52ja6UHXQh9TKkxdJbzEEhy//euRJP +Wc8MD4tx0OdH+csmki8LBTOO+clyUO3vE7YFJI/0IhuqPLQ5OFToGqLqxMBR +H47EJicOTn+/ues6ybP5Dd96F2/j4O9/fR2mSd6lK93jNe/koHmxY7Tp/+ef +i6XVHg62JH9MrCZ52eyQvJ8bycFvQ+2+p0ieSq3+/EyzkIOp4toKNSSfL5y/ +ef7jRQ7KfXsypw1I3s78tfdKKQcLTnG0P5A8N6+Sn2VVEmubb11I8t5LY5OO +7EMOsqJMxAxMGCiXqjwp/ImDAzJqnbN6DNh8PWgzYKSKW9V2eeQqMLBcXyFR +2FwVvehl45byDHw50FivaaGKwU9LDwzKkfqdFDM/YKeKWbKnV2iQ86z3V5nO +rLsqTs71/JhEzsMDi19LyCSr4ohflVDV/85Ldezd0KOKt+I/VTYNk/tJwAfZ +kLequDuaviX2mQZgTrpkDqhiSTzV6jxEw3u9V22vvqpiGKuG3fmBBp1VBxr2 +zFXDpV2VV6rf0NBgVVIaq62GLDv5P4baaPjsJRxaFaOG+ybuTahXkPtAwdo7 +9/5Sw8tWH3MVr9Hw9VWs0JNkNXTdLX9SnKHh26aZ8+8y1dCib5HLCLl/TJkN +NYqWqmHnwGsm5QINc/5skfJrU8PpG2wXyzQaZBrTauWV1fFur9+eGn+a3P+X +zTler468dyeezcrQ8NHTutTssTpWOnrsj1lGw8mig/YjT9TxxifR6Z9/0vCP +Qleu6wt1nHh/r2Z0CQ0eMucMtQbVsWDuuGz9PBoiReV82kU0MGwurpsd4QM9 +rdAk56qBQ00iL0cf8kH8KSe1/KsGVi32uTfsx4flSdc2GxlpYb3hsI97Mg/O +apqISezVxq2jx5X888qgWdZi5dhpHVQvN9+dVVAKpsvr03Vf6qLbsz+W5hy8 +AqKCxWG74/XQXI9/4LfzZVCIUzR35ehjq/h3yzGxS7CA2lnt+FgfmQAfrfrm +i6DDlbl2cJcB+u58lVyZUwwHesUbbAUM8bmGoTDLrgi+jp10tjlriKUun4IF +pC+Ate6jXBvtFbjd865+/9t8uDtm9mOqdQVu0W3LTgk5D0FaBt3tPitRNVR2 +tJV7DrhfvDtcFxhhVvoZx5fj2bCOLb1RpNgIq3KsmJrPWaAWe+JQvbExflSf +WCu7IBM0fEzuUd3GuOfMZJef3Gnwuev7V9X+VXgp+uDCya5UuHehw3tU0gRf +fw190BGWAuOls1O6NSbIW2g6PeuZBF4Uf0HuRlPs8hKUCL9/DEY1Mo0qR0zx +eo/4OxOVBLhZ8uPdRJIZ9gVWKj4ZioXta1XQTMEcXbfb62m8PQpy+47f0rlv +jsXGflwpgcMguTCwYqMLFz3F6gq2PoiAkjVHD4+4cvHJ8QbHC9cjwOBo6prM +nVzcvdy1cuRSBNiPlL/o2s3F3++HAi6diIDElxMzXoFcfBhcn+q2JQKmi2Ms +D8dx8azH9gaRj+HQbZb5z2U+Fx8teuTmsCwcfMNL8myucnGwfDgmcGE4TF69 +4fO5nItV+ZyFqb/CQJzVNaVfzcV5T/c7vO8PAzth+eV37nNR8M3nkH/Lw6Cu +47L3Py+4WNcvoiiwIQxsRW9qR3RxUcYl+GUshEGX9d+T0j1c/HTe/4WQYRiM +135KcnvLxblGT4vUZMNAu0iP+TjERU2PLJMbg6FQ120RcXKYi5JVUmN7X4eC +7Z9OoDvCxRXCQf1KbaGw53h4e9gEFy2+GntcqgmF8fuJucumuSh1+NBgCD8U +4r/neNV+56L7pHqhZWEoiK0o09r1i4xnbhgvmxkKBftqJ2ZnuXhd8kjadGIo +/B/53UAg "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "PlotRange" -> {{0, 30}, {0., 0.05741412982378017}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +13818,19 @@ ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "PlotRange" -> {{0, 30}, {0., 0.05741412982378017}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +13844,113 @@ 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:eJwd1nk4VevbB3AnFQ0kDhkybXtt81xk2N03FaEUkjQgQ5lCGUrJeBIphCgZ +IhV7r1VIlDShciTRUURHRTpSisxN3uf3/rGudX3+WNczrPv+Po+yZ7CjzxwB +AYHf5Pnfe7L370Z2Sslqyf2LTEfTjFd3FEhHWnTFg5NZ7jcqXxJQ8pmndFcG +3P8qZzSRR0HEZl6nYFcxvD3XbNiZtxKWflmWMdNZCTIDscUVeevgTZ198Hhn +PQxI07lr85zBij3072jnc+DApNalXB+Y6TQ+M9LZB83f9s0YZIVDw5orJe3F +YzB0uiOyyi0Rlr+59cFT6xf4VSd2Zx9Jhz8D3XlCawQxPOaBUn7iGcjQt7pt +7yyM4Tn5mpmPcuHVWb37o2IimBH3RxA3sBBSSmKezZFZisZu4Q/ylxbDsqz+ +5Mx8Ccx4s9pb37AEjm+xWf18UhIv9iuaqM+5DKEmRe5/x0vj1Rd3IiLrr8Da +r98PB/XLYlBqncEfemUQuT5L48FnWezPFltmsLIMrhZpd0tMymKsXVqLu2kZ +SG/xMLklLIfXzrWXVawtg883H04J6sjhfrFRtq5rGWTGp4edOySHmv5zXqfH +lUGfJCeoUWQ5Gt4K8Bp+VgZx5g67ZVfJY+aXVZW/PHmw3q3gm7GlPF5P6jK4 +v5cHorGfEpw3yOOYkHR/dCAP8hqOXU73kEcDzbr2kXAe3LSt/TQ/WR7jeyr6 +LifxYGSbSsTYK3nkTS25toPhgVv4xImWIwqoFF3/+8MYD6gcy+VDxxSw591C +Dd1pHplvGiOUroDnqZexoT95cPineptliQJa8Jjykbl8OJPgJnmrRQFl5+Qv +uyPJh5bTjwsvySuiopfNVL4RH0yvnquKvqeIRq6lz2PC+bC2s/XXlyZFTPSd +cF4cyQd7gbnW7s8VMeGBfMKZKD54OQa9ggFFfOKt3JOfwAerI8oxsfOUsHZU +ICHxNB9CFCcvWmgqoY7q1boamg+NewuHGyKUMO5Dmn3uWz7Y/DQRjzqihIMt +19Xr+vnQmt5htCJWCfP2/Sjv/sCHV7cWxJYkK+HRg/6NIsN8+LIoTPxYnhKu +GpSbs2GGD9Ll642t6pVQWzp5Qm0pDYHTo7FNIsroMz7W4LOaBtP9e6Q+iCtj +RZ81z8WCBuGhbr6gtDLqVAYw69bScKmn4eVqljJKhCgukrKloffuGa0bRsq4 +YtEmzSRnGjYdM+kqclfGzo27TCsDaDAQj9M9UqGMqeYheYpnaBBImWg8W62M +mTJGV87k0NAq6L+9+rYyVn3b1CWUS0PAhOOx0YfKqJoyePVtAQ0lXeyevd3K ++GBvrbF3KQ1ShU2JWwRZeDFwduH1WhpmNMV6tZ1Z+L5COOrAaxom82XjDLez +MKZhW5t3Lw3jSyi2iTsLsxdLHHF6S8OXMRP/tX4sbNCJfkG9p6Hvttfk9qMs +fOjuziv4REOzXY1o0iUWKq8xW/VuhobHdx5UnOKxMCHJQu3cDxoadVu2ZF5j +YW31h/CNv2i4K/Eut+AWGS9oXJMvwEBlz0LVG09ZuHE2U8xMiIHcADfom2Dh +trZv6owEAzn/+vb9952FKVH+OpqSDGRtCj02PMvCzNNBZy9JMZBqmPRkeoEK +FqjrFabJMBD/o8JliYIKmtZvTFylyEBAyrwQcysVHNPpM+hVZ8D31xIJSzsV +jK4aecbSZGBPsGy19WYVFLbV7vHSYsDDSfen43YV1Dbbv7pHh4Etcq5JfkEq +mJUkur7QkAFzPn0hO1sFTcI0P0aZM9CjxC9cd14FI30G70ZwGTicXVYwXqiC +Mgs+xu1bzUBN3OU8xzIVPPqK3+6ADBhsu3BWtE4F73eIXZ5Yw0D704KcO/dV +cI3Qg7GXaxkIWZOfHfhQBZM6rhrcWMfAVZ3crOZWMh++TaKvNQPq87LSE9+p +YN6XxgyeLQNNhzPSVn5QwQrlK4dC7ch6RtJT3w+R9eW9dTLZwEBJz6mTluMq ++CQr+PPtjQwoVR5P+j2fjQoiVVV5mxmQcj8SG6HFRukFLJmnzgzc6IiMofTZ +eHNWPMtnK1m/7aHojpVs9BX7vPgHccbK8CgDYKN1ZMr35dsYEFkcfOiLAxuD +byx+Yb6dATpu38H8rWwMD2uyv0NsOxUQsWEH+f6vvmbTHQwk9fmG8bzZuDw/ +vEVrJwNzb3mG7DnIRsHPIvOGdzFwUWd3sGQUG3nUtSJnNwYsS9yDGmPZ2N1q +ue42cUzazkDWCTbuWJd18ag7AwrzdgS0p7LxdXGUezdx3WFX/9hMNjak0ewV +Hgx899nq25vHxkku92kv8bmeLXtPFbFx48qWCt3dDKxycNpjfpmN5aqzRUeJ +I8w3e+deY2Ond+UVMU8GJCvtvWyq2PgowfuuM3GV6kbP6ZtszF2n0J9DPCpu +67G1no3FtktdJbwY6Apktfk/ZmOKa7KnA/H9R98hpoWNH65OTqUQlyr9cy2z +nY3NWkqyDcTph/mKpS/Z6O349O9J4kMdCWl1PWzMN3skpOpN6lFn52zbWzZW +Xvinw4l4fdKK4IEBMr8Xd/WPEuv1LX4zM8TG/5odFC8SS5sP2IuOkPEWuhQ8 +JBbIvnOXNcHGxtvnrr0nHvx6Rsf4Oxvf5A84Cfgw8MwmqMBulo21i4ROShNX +X7QS9ZhLYfZM8zZt4oJfCtFhCygUnvhdu5o40WVqOEmUwlL2/usbiIMqnu3K +l6CQbz1i6UK8dVHp0wppCqNu2Pm7Ea/2ieU+kqdwzy4nDU9izr1tTDeLwpWP +OhP+ZxEZffmvqhTeFeEddCceP7DglKA2hVcGz893JX7d8u7nMgMK3xTF6G8i +buTUBmoZU+goqzZjQUzHZrxGcwqPNfm66RNndftvcLagUOumpKc8cdSKNXV+ +VhS+TBacN5/YO1VOK9qOwqQDQus/kf2wGxw7n7GZQgezKc2nxAaWLYuuOFP4 +Dcsq+MSyeSVHbm+nMC50/FUi8ZzJqE/P3Cn84Vx+yY14aJPzjvfeFPb/qpI0 +JH5epv1k2o/CUfEejbnEtYLzzUSCKcxp/THQTv5vck21rFEkhSqTWQ5exCFL +007YRlPow6sXVCXeFrD3u1sChQZnnN3/I/WlpijdffwUhSZtclJuxGKRIzZ5 +GRQW/Ccc+ifx9POmW+U5FFINrVGPSf02JUaee1VE4XSYW64K8d4v3ds0q8n/ +iRaQqiL9Yb/+ehPcpvD3Cda3TcRGxSmrttynMHqxYvwg6a/5W82ljzZTaE0b +PFhCfPlOfmdrL9lPp4oOI9KvqcsirPv7yf5opvveJP0csd++ZmqQwuSpfTVG +xOuo2WylMQqtntUnq5P+f3/SY+sBIQ52ja6UHXQh9TKkxdJbzEEhy//euRJP +Wc8MD4tx0OdH+csmki8LBTOO+clyUO3vE7YFJI/0IhuqPLQ5OFToGqLqxMBR +H47EJicOTn+/ues6ybP5Dd96F2/j4O9/fR2mSd6lK93jNe/koHmxY7Tp/+ef +i6XVHg62JH9MrCZ52eyQvJ8bycFvQ+2+p0ieSq3+/EyzkIOp4toKNSSfL5y/ +ef7jRQ7KfXsypw1I3s78tfdKKQcLTnG0P5A8N6+Sn2VVEmubb11I8t5LY5OO +7EMOsqJMxAxMGCiXqjwp/ImDAzJqnbN6DNh8PWgzYKSKW9V2eeQqMLBcXyFR +2FwVvehl45byDHw50FivaaGKwU9LDwzKkfqdFDM/YKeKWbKnV2iQ86z3V5nO +rLsqTs71/JhEzsMDi19LyCSr4ohflVDV/85Ldezd0KOKt+I/VTYNk/tJwAfZ +kLequDuaviX2mQZgTrpkDqhiSTzV6jxEw3u9V22vvqpiGKuG3fmBBp1VBxr2 +zFXDpV2VV6rf0NBgVVIaq62GLDv5P4baaPjsJRxaFaOG+ybuTahXkPtAwdo7 +9/5Sw8tWH3MVr9Hw9VWs0JNkNXTdLX9SnKHh26aZ8+8y1dCib5HLCLl/TJkN +NYqWqmHnwGsm5QINc/5skfJrU8PpG2wXyzQaZBrTauWV1fFur9+eGn+a3P+X +zTler468dyeezcrQ8NHTutTssTpWOnrsj1lGw8mig/YjT9TxxifR6Z9/0vCP +Qleu6wt1nHh/r2Z0CQ0eMucMtQbVsWDuuGz9PBoiReV82kU0MGwurpsd4QM9 +rdAk56qBQ00iL0cf8kH8KSe1/KsGVi32uTfsx4flSdc2GxlpYb3hsI97Mg/O +apqISezVxq2jx5X888qgWdZi5dhpHVQvN9+dVVAKpsvr03Vf6qLbsz+W5hy8 +AqKCxWG74/XQXI9/4LfzZVCIUzR35ehjq/h3yzGxS7CA2lnt+FgfmQAfrfrm +i6DDlbl2cJcB+u58lVyZUwwHesUbbAUM8bmGoTDLrgi+jp10tjlriKUun4IF +pC+Ate6jXBvtFbjd865+/9t8uDtm9mOqdQVu0W3LTgk5D0FaBt3tPitRNVR2 +tJV7DrhfvDtcFxhhVvoZx5fj2bCOLb1RpNgIq3KsmJrPWaAWe+JQvbExflSf +WCu7IBM0fEzuUd3GuOfMZJef3Gnwuev7V9X+VXgp+uDCya5UuHehw3tU0gRf +fw190BGWAuOls1O6NSbIW2g6PeuZBF4Uf0HuRlPs8hKUCL9/DEY1Mo0qR0zx +eo/4OxOVBLhZ8uPdRJIZ9gVWKj4ZioXta1XQTMEcXbfb62m8PQpy+47f0rlv +jsXGflwpgcMguTCwYqMLFz3F6gq2PoiAkjVHD4+4cvHJ8QbHC9cjwOBo6prM +nVzcvdy1cuRSBNiPlL/o2s3F3++HAi6diIDElxMzXoFcfBhcn+q2JQKmi2Ms +D8dx8azH9gaRj+HQbZb5z2U+Fx8teuTmsCwcfMNL8myucnGwfDgmcGE4TF69 +4fO5nItV+ZyFqb/CQJzVNaVfzcV5T/c7vO8PAzth+eV37nNR8M3nkH/Lw6Cu +47L3Py+4WNcvoiiwIQxsRW9qR3RxUcYl+GUshEGX9d+T0j1c/HTe/4WQYRiM +135KcnvLxblGT4vUZMNAu0iP+TjERU2PLJMbg6FQ120RcXKYi5JVUmN7X4eC +7Z9OoDvCxRXCQf1KbaGw53h4e9gEFy2+GntcqgmF8fuJucumuSh1+NBgCD8U +4r/neNV+56L7pHqhZWEoiK0o09r1i4xnbhgvmxkKBftqJ2ZnuXhd8kjadGIo +/B/53UAg "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "PlotRange" -> {{0, 30}, {0., 0.05741412982378017}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +13961,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 +13989,8 @@ ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.12141098789525176`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.05741412982378017}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -8231,17 +13998,592 @@ ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913429049348164`*^9}, + CellChangeTimes->{3.9913429049348164`*^9, 3.993961475423465*^9}, CellLabel-> - "Out[387]=",ExpressionUUID->"0ea0f8f9-2a4b-804f-a2c8-287645f62313"] + "Out[140]=",ExpressionUUID->"0d271a84-ea1c-4b28-949f-faf0e1f92d89"] }, 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[ + TemplateBox[{ + "Show", "gcomb", + "\"Could not combine the graphics objects in \ +\\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", \ +RowBox[{GraphicsBox[List[InterpretationBox[List[List[List[Skeleton[3]]], \ +List[]], Annotation[List[List[List[Skeleton[3]]], List[]], \ +Internal`ShallowAssociation[Rule[\\\"HighlightElements\\\", Association[Rule[\ +\\\"Label\\\", List[\\\"XYLabel\\\"]], Rule[\\\"Ball\\\", \ +List[\\\"InterpolatedBall\\\"]]]], Rule[\\\"LayoutOptions\\\", \ +Association[Rule[\\\"PanelPlotLayout\\\", Association[]], \ +Rule[\\\"PlotRange\\\", List[List[0, 30], List[0.`, 0.05741412982378017`]]], \ +Rule[\\\"Frame\\\", List[List[False, False], List[False, False]]], \ +Rule[\\\"AxesOrigin\\\", List[0, 0]], Rule[\\\"ImageSize\\\", List[360, \ +Times[360, Power[GoldenRatio, -1]]]], Rule[\\\"Axes\\\", List[True, True]], \ +Rule[\\\"LabelStyle\\\", List[]], Rule[\\\"AspectRatio\\\", \ +Power[GoldenRatio, -1]], Rule[\\\"DefaultStyle\\\", \ +List[Directive[Opacity[1.`], RGBColor[0.24`, 0.6`, 0.8`], \ +AbsoluteThickness[2]]]], Rule[\\\"HighlightLabelingFunctions\\\", \ +Association[Rule[\\\"CoordinatesToolOptions\\\", \ +Function[List[Function[Identity[Slot[1]]][Part[Slot[1], 1]], \ +Function[Identity[Slot[1]]][Part[Slot[1], 2]]]]], Rule[\\\"ScalingFunctions\\\ +\", List[List[Identity, Identity], List[Identity, Identity]]]]], \ +Rule[\\\"Primitives\\\", List[]], Rule[\\\"GCFlag\\\", False]]], \ +Rule[\\\"Meta\\\", Association[Rule[\\\"DefaultHighlight\\\", \ +List[\\\"Dynamic\\\", None]], Rule[\\\"Index\\\", List[]], \ +Rule[\\\"Function\\\", Plot], Rule[\\\"GroupHighlight\\\", False]]]], \ +\\\"DynamicHighlight\\\"]]], List[Rule[DisplayFunction, Identity], \ +RuleDelayed[PlotInteractivity, True], Rule[DisplayFunction, Identity], \ +RuleDelayed[PlotInteractivity, True], Rule[DefaultBaseStyle, \ +List[\\\"PlotGraphics\\\", \\\"Graphics\\\"]], Rule[DisplayFunction, \ +Identity], Rule[Ticks, List[Automatic, Automatic]], Rule[AxesOrigin, List[0, \ +0]], Rule[FrameTicks, List[List[Automatic, Automatic], List[Automatic, \ +Automatic]]], Rule[GridLines, List[None, None]], \ +RuleDelayed[PlotInteractivity, True], Rule[DefaultBaseStyle, \ +List[\\\"PlotGraphics\\\", \\\"Graphics\\\"]], Rule[DisplayFunction, \ +Identity], Rule[PlotRangePadding, List[List[Scaled[Skeleton[1]], \ +Scaled[Skeleton[1]]], List[Scaled[Skeleton[1]], Scaled[Skeleton[1]]]]], \ +Rule[PlotRangeClipping, True], Rule[ImagePadding, All], \ +RuleDelayed[PlotInteractivity, True], Rule[DisplayFunction, Identity], \ +RuleDelayed[PlotInteractivity, True], Rule[DefaultBaseStyle, \ +List[\\\"PlotGraphics\\\", \\\"Graphics\\\"]], Rule[AspectRatio, \ +NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], Rule[Axes, List[True, \ +True]], Rule[AxesLabel, List[None, None]], Rule[AxesOrigin, List[0, 0]], \ +RuleDelayed[DisplayFunction, Identity], Rule[Frame, List[List[False, False], \ +List[False, False]]], Rule[FrameLabel, List[List[None, None], List[None, \ +None]]], Rule[FrameTicks, List[List[Automatic, Automatic], List[Automatic, \ +Automatic]]], Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \ +Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \ +List[Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \ +Rule[\\\"DefaultGraphicsInteraction\\\", List[Skeleton[3]]], \ +Rule[\\\"DefaultMeshStyle\\\", AbsolutePointSize[Skeleton[1]]], \ +Rule[\\\"ScalingFunctions\\\", None], Rule[\\\"CoordinatesToolOptions\\\", \ +List[Skeleton[2]]]]], Rule[PlotRange, List[List[0, 30], List[0.`, \ +0.05741412982378017`]]], Rule[PlotRangeClipping, True], \ +Rule[PlotRangePadding, List[List[Scaled[Skeleton[1]], Scaled[Skeleton[1]]], \ +List[Scaled[Skeleton[1]], Scaled[Skeleton[1]]]]], Rule[Ticks, List[Automatic, \ +Automatic]]]], \\\",\\\", RowBox[{\\\"ListPlot\\\", \\\"[\\\", \ +RowBox[{RowBox[{RowBox[{\\\"{\\\", \\\"}\\\"}], \\\" \\\", RowBox[{\\\"{\\\", \ +RowBox[{\\\"0\\\", \\\",\\\", \\\"0.005381`\\\"}], \\\"}\\\"}]}], \\\",\\\", \ +RowBox[{\\\"{\\\", RowBox[{\\\"1\\\", \\\",\\\", \\\"0.015959`\\\"}], \\\"}\\\ +\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"2\\\", \\\",\\\", \ +\\\"0.025999`\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"3\ +\\\", \\\",\\\", \\\"0.035173`\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\ +\", RowBox[{\\\"4\\\", \\\",\\\", \\\"0.043213`\\\"}], \\\"}\\\"}], \ +\\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"5\\\", \\\",\\\", \ +\\\"0.049902`\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"6\ +\\\", \\\",\\\", \\\"0.055111`\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\ +\", RowBox[{\\\"7\\\", \\\",\\\", \\\"0.058771`\\\"}], \\\"}\\\"}], \ +\\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"8\\\", \\\",\\\", \ +\\\"0.060904`\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"13\\\", \\\"\[RightSkeleton]\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \ +RowBox[{\\\"22\\\", \\\",\\\", \\\"0.016691`\\\"}], \\\"}\\\"}], \\\",\\\", \ +RowBox[{\\\"{\\\", RowBox[{\\\"23\\\", \\\",\\\", \\\"0.013926`\\\"}], \ +\\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"24\\\", \\\",\\\", \ +\\\"0.01152`\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"25\ +\\\", \\\",\\\", \\\"0.009447`\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\ +\", RowBox[{\\\"26\\\", \\\",\\\", \\\"0.007687`\\\"}], \\\"}\\\"}], \ +\\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"27\\\", \\\",\\\", \ +\\\"0.006205`\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \ +RowBox[{\\\"28\\\", \\\",\\\", \\\"0.004972`\\\"}], \\\"}\\\"}], \\\",\\\", \ +RowBox[{\\\"{\\\", RowBox[{\\\"29\\\", \\\",\\\", \\\"0.003954`\\\"}], \ +\\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"30\\\", \\\",\\\", \ +\\\"0.003124`\\\"}], \\\"}\\\"}]}], \\\"]\\\"}]}], \\\"]\\\"}]\\).\"", 2, 141, + 77, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939614754800243`*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"b7f160fd-6c78-47db-adf3-f291325c8906"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwd1nk4VevbB3AnFQ0kDhkybXtt81xk2N03FaEUkjQgQ5lCGUrJeBIphCgZ +IhV7r1VIlDShciTRUURHRTpSisxN3uf3/rGudX3+WNczrPv+Po+yZ7CjzxwB +AYHf5Pnfe7L370Z2Sslqyf2LTEfTjFd3FEhHWnTFg5NZ7jcqXxJQ8pmndFcG +3P8qZzSRR0HEZl6nYFcxvD3XbNiZtxKWflmWMdNZCTIDscUVeevgTZ198Hhn +PQxI07lr85zBij3072jnc+DApNalXB+Y6TQ+M9LZB83f9s0YZIVDw5orJe3F +YzB0uiOyyi0Rlr+59cFT6xf4VSd2Zx9Jhz8D3XlCawQxPOaBUn7iGcjQt7pt +7yyM4Tn5mpmPcuHVWb37o2IimBH3RxA3sBBSSmKezZFZisZu4Q/ylxbDsqz+ +5Mx8Ccx4s9pb37AEjm+xWf18UhIv9iuaqM+5DKEmRe5/x0vj1Rd3IiLrr8Da +r98PB/XLYlBqncEfemUQuT5L48FnWezPFltmsLIMrhZpd0tMymKsXVqLu2kZ +SG/xMLklLIfXzrWXVawtg883H04J6sjhfrFRtq5rGWTGp4edOySHmv5zXqfH +lUGfJCeoUWQ5Gt4K8Bp+VgZx5g67ZVfJY+aXVZW/PHmw3q3gm7GlPF5P6jK4 +v5cHorGfEpw3yOOYkHR/dCAP8hqOXU73kEcDzbr2kXAe3LSt/TQ/WR7jeyr6 +LifxYGSbSsTYK3nkTS25toPhgVv4xImWIwqoFF3/+8MYD6gcy+VDxxSw591C +Dd1pHplvGiOUroDnqZexoT95cPineptliQJa8Jjykbl8OJPgJnmrRQFl5+Qv +uyPJh5bTjwsvySuiopfNVL4RH0yvnquKvqeIRq6lz2PC+bC2s/XXlyZFTPSd +cF4cyQd7gbnW7s8VMeGBfMKZKD54OQa9ggFFfOKt3JOfwAerI8oxsfOUsHZU +ICHxNB9CFCcvWmgqoY7q1boamg+NewuHGyKUMO5Dmn3uWz7Y/DQRjzqihIMt +19Xr+vnQmt5htCJWCfP2/Sjv/sCHV7cWxJYkK+HRg/6NIsN8+LIoTPxYnhKu +GpSbs2GGD9Ll642t6pVQWzp5Qm0pDYHTo7FNIsroMz7W4LOaBtP9e6Q+iCtj +RZ81z8WCBuGhbr6gtDLqVAYw69bScKmn4eVqljJKhCgukrKloffuGa0bRsq4 +YtEmzSRnGjYdM+kqclfGzo27TCsDaDAQj9M9UqGMqeYheYpnaBBImWg8W62M +mTJGV87k0NAq6L+9+rYyVn3b1CWUS0PAhOOx0YfKqJoyePVtAQ0lXeyevd3K ++GBvrbF3KQ1ShU2JWwRZeDFwduH1WhpmNMV6tZ1Z+L5COOrAaxom82XjDLez +MKZhW5t3Lw3jSyi2iTsLsxdLHHF6S8OXMRP/tX4sbNCJfkG9p6Hvttfk9qMs +fOjuziv4REOzXY1o0iUWKq8xW/VuhobHdx5UnOKxMCHJQu3cDxoadVu2ZF5j +YW31h/CNv2i4K/Eut+AWGS9oXJMvwEBlz0LVG09ZuHE2U8xMiIHcADfom2Dh +trZv6owEAzn/+vb9952FKVH+OpqSDGRtCj02PMvCzNNBZy9JMZBqmPRkeoEK +FqjrFabJMBD/o8JliYIKmtZvTFylyEBAyrwQcysVHNPpM+hVZ8D31xIJSzsV +jK4aecbSZGBPsGy19WYVFLbV7vHSYsDDSfen43YV1Dbbv7pHh4Etcq5JfkEq +mJUkur7QkAFzPn0hO1sFTcI0P0aZM9CjxC9cd14FI30G70ZwGTicXVYwXqiC +Mgs+xu1bzUBN3OU8xzIVPPqK3+6ADBhsu3BWtE4F73eIXZ5Yw0D704KcO/dV +cI3Qg7GXaxkIWZOfHfhQBZM6rhrcWMfAVZ3crOZWMh++TaKvNQPq87LSE9+p +YN6XxgyeLQNNhzPSVn5QwQrlK4dC7ch6RtJT3w+R9eW9dTLZwEBJz6mTluMq ++CQr+PPtjQwoVR5P+j2fjQoiVVV5mxmQcj8SG6HFRukFLJmnzgzc6IiMofTZ +eHNWPMtnK1m/7aHojpVs9BX7vPgHccbK8CgDYKN1ZMr35dsYEFkcfOiLAxuD +byx+Yb6dATpu38H8rWwMD2uyv0NsOxUQsWEH+f6vvmbTHQwk9fmG8bzZuDw/ +vEVrJwNzb3mG7DnIRsHPIvOGdzFwUWd3sGQUG3nUtSJnNwYsS9yDGmPZ2N1q +ue42cUzazkDWCTbuWJd18ag7AwrzdgS0p7LxdXGUezdx3WFX/9hMNjak0ewV +Hgx899nq25vHxkku92kv8bmeLXtPFbFx48qWCt3dDKxycNpjfpmN5aqzRUeJ +I8w3e+deY2Ond+UVMU8GJCvtvWyq2PgowfuuM3GV6kbP6ZtszF2n0J9DPCpu +67G1no3FtktdJbwY6Apktfk/ZmOKa7KnA/H9R98hpoWNH65OTqUQlyr9cy2z +nY3NWkqyDcTph/mKpS/Z6O349O9J4kMdCWl1PWzMN3skpOpN6lFn52zbWzZW +Xvinw4l4fdKK4IEBMr8Xd/WPEuv1LX4zM8TG/5odFC8SS5sP2IuOkPEWuhQ8 +JBbIvnOXNcHGxtvnrr0nHvx6Rsf4Oxvf5A84Cfgw8MwmqMBulo21i4ROShNX +X7QS9ZhLYfZM8zZt4oJfCtFhCygUnvhdu5o40WVqOEmUwlL2/usbiIMqnu3K +l6CQbz1i6UK8dVHp0wppCqNu2Pm7Ea/2ieU+kqdwzy4nDU9izr1tTDeLwpWP +OhP+ZxEZffmvqhTeFeEddCceP7DglKA2hVcGz893JX7d8u7nMgMK3xTF6G8i +buTUBmoZU+goqzZjQUzHZrxGcwqPNfm66RNndftvcLagUOumpKc8cdSKNXV+ +VhS+TBacN5/YO1VOK9qOwqQDQus/kf2wGxw7n7GZQgezKc2nxAaWLYuuOFP4 +Dcsq+MSyeSVHbm+nMC50/FUi8ZzJqE/P3Cn84Vx+yY14aJPzjvfeFPb/qpI0 +JH5epv1k2o/CUfEejbnEtYLzzUSCKcxp/THQTv5vck21rFEkhSqTWQ5exCFL +007YRlPow6sXVCXeFrD3u1sChQZnnN3/I/WlpijdffwUhSZtclJuxGKRIzZ5 +GRQW/Ccc+ifx9POmW+U5FFINrVGPSf02JUaee1VE4XSYW64K8d4v3ds0q8n/ +iRaQqiL9Yb/+ehPcpvD3Cda3TcRGxSmrttynMHqxYvwg6a/5W82ljzZTaE0b +PFhCfPlOfmdrL9lPp4oOI9KvqcsirPv7yf5opvveJP0csd++ZmqQwuSpfTVG +xOuo2WylMQqtntUnq5P+f3/SY+sBIQ52ja6UHXQh9TKkxdJbzEEhy//euRJP +Wc8MD4tx0OdH+csmki8LBTOO+clyUO3vE7YFJI/0IhuqPLQ5OFToGqLqxMBR +H47EJicOTn+/ues6ybP5Dd96F2/j4O9/fR2mSd6lK93jNe/koHmxY7Tp/+ef +i6XVHg62JH9MrCZ52eyQvJ8bycFvQ+2+p0ieSq3+/EyzkIOp4toKNSSfL5y/ +ef7jRQ7KfXsypw1I3s78tfdKKQcLTnG0P5A8N6+Sn2VVEmubb11I8t5LY5OO +7EMOsqJMxAxMGCiXqjwp/ImDAzJqnbN6DNh8PWgzYKSKW9V2eeQqMLBcXyFR +2FwVvehl45byDHw50FivaaGKwU9LDwzKkfqdFDM/YKeKWbKnV2iQ86z3V5nO +rLsqTs71/JhEzsMDi19LyCSr4ohflVDV/85Ldezd0KOKt+I/VTYNk/tJwAfZ +kLequDuaviX2mQZgTrpkDqhiSTzV6jxEw3u9V22vvqpiGKuG3fmBBp1VBxr2 +zFXDpV2VV6rf0NBgVVIaq62GLDv5P4baaPjsJRxaFaOG+ybuTahXkPtAwdo7 +9/5Sw8tWH3MVr9Hw9VWs0JNkNXTdLX9SnKHh26aZ8+8y1dCib5HLCLl/TJkN +NYqWqmHnwGsm5QINc/5skfJrU8PpG2wXyzQaZBrTauWV1fFur9+eGn+a3P+X +zTler468dyeezcrQ8NHTutTssTpWOnrsj1lGw8mig/YjT9TxxifR6Z9/0vCP +Qleu6wt1nHh/r2Z0CQ0eMucMtQbVsWDuuGz9PBoiReV82kU0MGwurpsd4QM9 +rdAk56qBQ00iL0cf8kH8KSe1/KsGVi32uTfsx4flSdc2GxlpYb3hsI97Mg/O +apqISezVxq2jx5X888qgWdZi5dhpHVQvN9+dVVAKpsvr03Vf6qLbsz+W5hy8 +AqKCxWG74/XQXI9/4LfzZVCIUzR35ehjq/h3yzGxS7CA2lnt+FgfmQAfrfrm +i6DDlbl2cJcB+u58lVyZUwwHesUbbAUM8bmGoTDLrgi+jp10tjlriKUun4IF +pC+Ate6jXBvtFbjd865+/9t8uDtm9mOqdQVu0W3LTgk5D0FaBt3tPitRNVR2 +tJV7DrhfvDtcFxhhVvoZx5fj2bCOLb1RpNgIq3KsmJrPWaAWe+JQvbExflSf +WCu7IBM0fEzuUd3GuOfMZJef3Gnwuev7V9X+VXgp+uDCya5UuHehw3tU0gRf +fw190BGWAuOls1O6NSbIW2g6PeuZBF4Uf0HuRlPs8hKUCL9/DEY1Mo0qR0zx +eo/4OxOVBLhZ8uPdRJIZ9gVWKj4ZioXta1XQTMEcXbfb62m8PQpy+47f0rlv +jsXGflwpgcMguTCwYqMLFz3F6gq2PoiAkjVHD4+4cvHJ8QbHC9cjwOBo6prM +nVzcvdy1cuRSBNiPlL/o2s3F3++HAi6diIDElxMzXoFcfBhcn+q2JQKmi2Ms +D8dx8azH9gaRj+HQbZb5z2U+Fx8teuTmsCwcfMNL8myucnGwfDgmcGE4TF69 +4fO5nItV+ZyFqb/CQJzVNaVfzcV5T/c7vO8PAzth+eV37nNR8M3nkH/Lw6Cu +47L3Py+4WNcvoiiwIQxsRW9qR3RxUcYl+GUshEGX9d+T0j1c/HTe/4WQYRiM +135KcnvLxblGT4vUZMNAu0iP+TjERU2PLJMbg6FQ120RcXKYi5JVUmN7X4eC +7Z9OoDvCxRXCQf1KbaGw53h4e9gEFy2+GntcqgmF8fuJucumuSh1+NBgCD8U +4r/neNV+56L7pHqhZWEoiK0o09r1i4xnbhgvmxkKBftqJ2ZnuXhd8kjadGIo +/B/53UAg + "]]}, + 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:eJwd1nk4VevbB3AnFQ0kDhkybXtt81xk2N03FaEUkjQgQ5lCGUrJeBIphCgZ +IhV7r1VIlDShciTRUURHRTpSisxN3uf3/rGudX3+WNczrPv+Po+yZ7CjzxwB +AYHf5Pnfe7L370Z2Sslqyf2LTEfTjFd3FEhHWnTFg5NZ7jcqXxJQ8pmndFcG +3P8qZzSRR0HEZl6nYFcxvD3XbNiZtxKWflmWMdNZCTIDscUVeevgTZ198Hhn +PQxI07lr85zBij3072jnc+DApNalXB+Y6TQ+M9LZB83f9s0YZIVDw5orJe3F +YzB0uiOyyi0Rlr+59cFT6xf4VSd2Zx9Jhz8D3XlCawQxPOaBUn7iGcjQt7pt +7yyM4Tn5mpmPcuHVWb37o2IimBH3RxA3sBBSSmKezZFZisZu4Q/ylxbDsqz+ +5Mx8Ccx4s9pb37AEjm+xWf18UhIv9iuaqM+5DKEmRe5/x0vj1Rd3IiLrr8Da +r98PB/XLYlBqncEfemUQuT5L48FnWezPFltmsLIMrhZpd0tMymKsXVqLu2kZ +SG/xMLklLIfXzrWXVawtg883H04J6sjhfrFRtq5rGWTGp4edOySHmv5zXqfH +lUGfJCeoUWQ5Gt4K8Bp+VgZx5g67ZVfJY+aXVZW/PHmw3q3gm7GlPF5P6jK4 +v5cHorGfEpw3yOOYkHR/dCAP8hqOXU73kEcDzbr2kXAe3LSt/TQ/WR7jeyr6 +LifxYGSbSsTYK3nkTS25toPhgVv4xImWIwqoFF3/+8MYD6gcy+VDxxSw591C +Dd1pHplvGiOUroDnqZexoT95cPineptliQJa8Jjykbl8OJPgJnmrRQFl5+Qv +uyPJh5bTjwsvySuiopfNVL4RH0yvnquKvqeIRq6lz2PC+bC2s/XXlyZFTPSd +cF4cyQd7gbnW7s8VMeGBfMKZKD54OQa9ggFFfOKt3JOfwAerI8oxsfOUsHZU +ICHxNB9CFCcvWmgqoY7q1boamg+NewuHGyKUMO5Dmn3uWz7Y/DQRjzqihIMt +19Xr+vnQmt5htCJWCfP2/Sjv/sCHV7cWxJYkK+HRg/6NIsN8+LIoTPxYnhKu +GpSbs2GGD9Ll642t6pVQWzp5Qm0pDYHTo7FNIsroMz7W4LOaBtP9e6Q+iCtj +RZ81z8WCBuGhbr6gtDLqVAYw69bScKmn4eVqljJKhCgukrKloffuGa0bRsq4 +YtEmzSRnGjYdM+kqclfGzo27TCsDaDAQj9M9UqGMqeYheYpnaBBImWg8W62M +mTJGV87k0NAq6L+9+rYyVn3b1CWUS0PAhOOx0YfKqJoyePVtAQ0lXeyevd3K ++GBvrbF3KQ1ShU2JWwRZeDFwduH1WhpmNMV6tZ1Z+L5COOrAaxom82XjDLez +MKZhW5t3Lw3jSyi2iTsLsxdLHHF6S8OXMRP/tX4sbNCJfkG9p6Hvttfk9qMs +fOjuziv4REOzXY1o0iUWKq8xW/VuhobHdx5UnOKxMCHJQu3cDxoadVu2ZF5j +YW31h/CNv2i4K/Eut+AWGS9oXJMvwEBlz0LVG09ZuHE2U8xMiIHcADfom2Dh +trZv6owEAzn/+vb9952FKVH+OpqSDGRtCj02PMvCzNNBZy9JMZBqmPRkeoEK +FqjrFabJMBD/o8JliYIKmtZvTFylyEBAyrwQcysVHNPpM+hVZ8D31xIJSzsV +jK4aecbSZGBPsGy19WYVFLbV7vHSYsDDSfen43YV1Dbbv7pHh4Etcq5JfkEq +mJUkur7QkAFzPn0hO1sFTcI0P0aZM9CjxC9cd14FI30G70ZwGTicXVYwXqiC +Mgs+xu1bzUBN3OU8xzIVPPqK3+6ADBhsu3BWtE4F73eIXZ5Yw0D704KcO/dV +cI3Qg7GXaxkIWZOfHfhQBZM6rhrcWMfAVZ3crOZWMh++TaKvNQPq87LSE9+p +YN6XxgyeLQNNhzPSVn5QwQrlK4dC7ch6RtJT3w+R9eW9dTLZwEBJz6mTluMq ++CQr+PPtjQwoVR5P+j2fjQoiVVV5mxmQcj8SG6HFRukFLJmnzgzc6IiMofTZ +eHNWPMtnK1m/7aHojpVs9BX7vPgHccbK8CgDYKN1ZMr35dsYEFkcfOiLAxuD +byx+Yb6dATpu38H8rWwMD2uyv0NsOxUQsWEH+f6vvmbTHQwk9fmG8bzZuDw/ +vEVrJwNzb3mG7DnIRsHPIvOGdzFwUWd3sGQUG3nUtSJnNwYsS9yDGmPZ2N1q +ue42cUzazkDWCTbuWJd18ag7AwrzdgS0p7LxdXGUezdx3WFX/9hMNjak0ewV +Hgx899nq25vHxkku92kv8bmeLXtPFbFx48qWCt3dDKxycNpjfpmN5aqzRUeJ +I8w3e+deY2Ond+UVMU8GJCvtvWyq2PgowfuuM3GV6kbP6ZtszF2n0J9DPCpu +67G1no3FtktdJbwY6Apktfk/ZmOKa7KnA/H9R98hpoWNH65OTqUQlyr9cy2z +nY3NWkqyDcTph/mKpS/Z6O349O9J4kMdCWl1PWzMN3skpOpN6lFn52zbWzZW +Xvinw4l4fdKK4IEBMr8Xd/WPEuv1LX4zM8TG/5odFC8SS5sP2IuOkPEWuhQ8 +JBbIvnOXNcHGxtvnrr0nHvx6Rsf4Oxvf5A84Cfgw8MwmqMBulo21i4ROShNX +X7QS9ZhLYfZM8zZt4oJfCtFhCygUnvhdu5o40WVqOEmUwlL2/usbiIMqnu3K +l6CQbz1i6UK8dVHp0wppCqNu2Pm7Ea/2ieU+kqdwzy4nDU9izr1tTDeLwpWP +OhP+ZxEZffmvqhTeFeEddCceP7DglKA2hVcGz893JX7d8u7nMgMK3xTF6G8i +buTUBmoZU+goqzZjQUzHZrxGcwqPNfm66RNndftvcLagUOumpKc8cdSKNXV+ +VhS+TBacN5/YO1VOK9qOwqQDQus/kf2wGxw7n7GZQgezKc2nxAaWLYuuOFP4 +Dcsq+MSyeSVHbm+nMC50/FUi8ZzJqE/P3Cn84Vx+yY14aJPzjvfeFPb/qpI0 +JH5epv1k2o/CUfEejbnEtYLzzUSCKcxp/THQTv5vck21rFEkhSqTWQ5exCFL +007YRlPow6sXVCXeFrD3u1sChQZnnN3/I/WlpijdffwUhSZtclJuxGKRIzZ5 +GRQW/Ccc+ifx9POmW+U5FFINrVGPSf02JUaee1VE4XSYW64K8d4v3ds0q8n/ +iRaQqiL9Yb/+ehPcpvD3Cda3TcRGxSmrttynMHqxYvwg6a/5W82ljzZTaE0b +PFhCfPlOfmdrL9lPp4oOI9KvqcsirPv7yf5opvveJP0csd++ZmqQwuSpfTVG +xOuo2WylMQqtntUnq5P+f3/SY+sBIQ52ja6UHXQh9TKkxdJbzEEhy//euRJP +Wc8MD4tx0OdH+csmki8LBTOO+clyUO3vE7YFJI/0IhuqPLQ5OFToGqLqxMBR +H47EJicOTn+/ues6ybP5Dd96F2/j4O9/fR2mSd6lK93jNe/koHmxY7Tp/+ef +i6XVHg62JH9MrCZ52eyQvJ8bycFvQ+2+p0ieSq3+/EyzkIOp4toKNSSfL5y/ +ef7jRQ7KfXsypw1I3s78tfdKKQcLTnG0P5A8N6+Sn2VVEmubb11I8t5LY5OO +7EMOsqJMxAxMGCiXqjwp/ImDAzJqnbN6DNh8PWgzYKSKW9V2eeQqMLBcXyFR +2FwVvehl45byDHw50FivaaGKwU9LDwzKkfqdFDM/YKeKWbKnV2iQ86z3V5nO +rLsqTs71/JhEzsMDi19LyCSr4ohflVDV/85Ldezd0KOKt+I/VTYNk/tJwAfZ +kLequDuaviX2mQZgTrpkDqhiSTzV6jxEw3u9V22vvqpiGKuG3fmBBp1VBxr2 +zFXDpV2VV6rf0NBgVVIaq62GLDv5P4baaPjsJRxaFaOG+ybuTahXkPtAwdo7 +9/5Sw8tWH3MVr9Hw9VWs0JNkNXTdLX9SnKHh26aZ8+8y1dCib5HLCLl/TJkN +NYqWqmHnwGsm5QINc/5skfJrU8PpG2wXyzQaZBrTauWV1fFur9+eGn+a3P+X +zTler468dyeezcrQ8NHTutTssTpWOnrsj1lGw8mig/YjT9TxxifR6Z9/0vCP +Qleu6wt1nHh/r2Z0CQ0eMucMtQbVsWDuuGz9PBoiReV82kU0MGwurpsd4QM9 +rdAk56qBQ00iL0cf8kH8KSe1/KsGVi32uTfsx4flSdc2GxlpYb3hsI97Mg/O +apqISezVxq2jx5X888qgWdZi5dhpHVQvN9+dVVAKpsvr03Vf6qLbsz+W5hy8 +AqKCxWG74/XQXI9/4LfzZVCIUzR35ehjq/h3yzGxS7CA2lnt+FgfmQAfrfrm +i6DDlbl2cJcB+u58lVyZUwwHesUbbAUM8bmGoTDLrgi+jp10tjlriKUun4IF +pC+Ate6jXBvtFbjd865+/9t8uDtm9mOqdQVu0W3LTgk5D0FaBt3tPitRNVR2 +tJV7DrhfvDtcFxhhVvoZx5fj2bCOLb1RpNgIq3KsmJrPWaAWe+JQvbExflSf +WCu7IBM0fEzuUd3GuOfMZJef3Gnwuev7V9X+VXgp+uDCya5UuHehw3tU0gRf +fw190BGWAuOls1O6NSbIW2g6PeuZBF4Uf0HuRlPs8hKUCL9/DEY1Mo0qR0zx +eo/4OxOVBLhZ8uPdRJIZ9gVWKj4ZioXta1XQTMEcXbfb62m8PQpy+47f0rlv +jsXGflwpgcMguTCwYqMLFz3F6gq2PoiAkjVHD4+4cvHJ8QbHC9cjwOBo6prM +nVzcvdy1cuRSBNiPlL/o2s3F3++HAi6diIDElxMzXoFcfBhcn+q2JQKmi2Ms +D8dx8azH9gaRj+HQbZb5z2U+Fx8teuTmsCwcfMNL8myucnGwfDgmcGE4TF69 +4fO5nItV+ZyFqb/CQJzVNaVfzcV5T/c7vO8PAzth+eV37nNR8M3nkH/Lw6Cu +47L3Py+4WNcvoiiwIQxsRW9qR3RxUcYl+GUshEGX9d+T0j1c/HTe/4WQYRiM +135KcnvLxblGT4vUZMNAu0iP+TjERU2PLJMbg6FQ120RcXKYi5JVUmN7X4eC +7Z9OoDvCxRXCQf1KbaGw53h4e9gEFy2+GntcqgmF8fuJucumuSh1+NBgCD8U +4r/neNV+56L7pHqhZWEoiK0o09r1i4xnbhgvmxkKBftqJ2ZnuXhd8kjadGIo +/B/53UAg + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.05741412982378017}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.05741412982378017}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJwd1nk4VevbB3AnFQ0kDhkybXtt81xk2N03FaEUkjQgQ5lCGUrJeBIphCgZ +IhV7r1VIlDShciTRUURHRTpSisxN3uf3/rGudX3+WNczrPv+Po+yZ7CjzxwB +AYHf5Pnfe7L370Z2Sslqyf2LTEfTjFd3FEhHWnTFg5NZ7jcqXxJQ8pmndFcG +3P8qZzSRR0HEZl6nYFcxvD3XbNiZtxKWflmWMdNZCTIDscUVeevgTZ198Hhn +PQxI07lr85zBij3072jnc+DApNalXB+Y6TQ+M9LZB83f9s0YZIVDw5orJe3F +YzB0uiOyyi0Rlr+59cFT6xf4VSd2Zx9Jhz8D3XlCawQxPOaBUn7iGcjQt7pt +7yyM4Tn5mpmPcuHVWb37o2IimBH3RxA3sBBSSmKezZFZisZu4Q/ylxbDsqz+ +5Mx8Ccx4s9pb37AEjm+xWf18UhIv9iuaqM+5DKEmRe5/x0vj1Rd3IiLrr8Da +r98PB/XLYlBqncEfemUQuT5L48FnWezPFltmsLIMrhZpd0tMymKsXVqLu2kZ +SG/xMLklLIfXzrWXVawtg883H04J6sjhfrFRtq5rGWTGp4edOySHmv5zXqfH +lUGfJCeoUWQ5Gt4K8Bp+VgZx5g67ZVfJY+aXVZW/PHmw3q3gm7GlPF5P6jK4 +v5cHorGfEpw3yOOYkHR/dCAP8hqOXU73kEcDzbr2kXAe3LSt/TQ/WR7jeyr6 +LifxYGSbSsTYK3nkTS25toPhgVv4xImWIwqoFF3/+8MYD6gcy+VDxxSw591C +Dd1pHplvGiOUroDnqZexoT95cPineptliQJa8Jjykbl8OJPgJnmrRQFl5+Qv +uyPJh5bTjwsvySuiopfNVL4RH0yvnquKvqeIRq6lz2PC+bC2s/XXlyZFTPSd +cF4cyQd7gbnW7s8VMeGBfMKZKD54OQa9ggFFfOKt3JOfwAerI8oxsfOUsHZU +ICHxNB9CFCcvWmgqoY7q1boamg+NewuHGyKUMO5Dmn3uWz7Y/DQRjzqihIMt +19Xr+vnQmt5htCJWCfP2/Sjv/sCHV7cWxJYkK+HRg/6NIsN8+LIoTPxYnhKu +GpSbs2GGD9Ll642t6pVQWzp5Qm0pDYHTo7FNIsroMz7W4LOaBtP9e6Q+iCtj +RZ81z8WCBuGhbr6gtDLqVAYw69bScKmn4eVqljJKhCgukrKloffuGa0bRsq4 +YtEmzSRnGjYdM+kqclfGzo27TCsDaDAQj9M9UqGMqeYheYpnaBBImWg8W62M +mTJGV87k0NAq6L+9+rYyVn3b1CWUS0PAhOOx0YfKqJoyePVtAQ0lXeyevd3K ++GBvrbF3KQ1ShU2JWwRZeDFwduH1WhpmNMV6tZ1Z+L5COOrAaxom82XjDLez +MKZhW5t3Lw3jSyi2iTsLsxdLHHF6S8OXMRP/tX4sbNCJfkG9p6Hvttfk9qMs +fOjuziv4REOzXY1o0iUWKq8xW/VuhobHdx5UnOKxMCHJQu3cDxoadVu2ZF5j +YW31h/CNv2i4K/Eut+AWGS9oXJMvwEBlz0LVG09ZuHE2U8xMiIHcADfom2Dh +trZv6owEAzn/+vb9952FKVH+OpqSDGRtCj02PMvCzNNBZy9JMZBqmPRkeoEK +FqjrFabJMBD/o8JliYIKmtZvTFylyEBAyrwQcysVHNPpM+hVZ8D31xIJSzsV +jK4aecbSZGBPsGy19WYVFLbV7vHSYsDDSfen43YV1Dbbv7pHh4Etcq5JfkEq +mJUkur7QkAFzPn0hO1sFTcI0P0aZM9CjxC9cd14FI30G70ZwGTicXVYwXqiC +Mgs+xu1bzUBN3OU8xzIVPPqK3+6ADBhsu3BWtE4F73eIXZ5Yw0D704KcO/dV +cI3Qg7GXaxkIWZOfHfhQBZM6rhrcWMfAVZ3crOZWMh++TaKvNQPq87LSE9+p +YN6XxgyeLQNNhzPSVn5QwQrlK4dC7ch6RtJT3w+R9eW9dTLZwEBJz6mTluMq ++CQr+PPtjQwoVR5P+j2fjQoiVVV5mxmQcj8SG6HFRukFLJmnzgzc6IiMofTZ +eHNWPMtnK1m/7aHojpVs9BX7vPgHccbK8CgDYKN1ZMr35dsYEFkcfOiLAxuD +byx+Yb6dATpu38H8rWwMD2uyv0NsOxUQsWEH+f6vvmbTHQwk9fmG8bzZuDw/ +vEVrJwNzb3mG7DnIRsHPIvOGdzFwUWd3sGQUG3nUtSJnNwYsS9yDGmPZ2N1q +ue42cUzazkDWCTbuWJd18ag7AwrzdgS0p7LxdXGUezdx3WFX/9hMNjak0ewV +Hgx899nq25vHxkku92kv8bmeLXtPFbFx48qWCt3dDKxycNpjfpmN5aqzRUeJ +I8w3e+deY2Ond+UVMU8GJCvtvWyq2PgowfuuM3GV6kbP6ZtszF2n0J9DPCpu +67G1no3FtktdJbwY6Apktfk/ZmOKa7KnA/H9R98hpoWNH65OTqUQlyr9cy2z +nY3NWkqyDcTph/mKpS/Z6O349O9J4kMdCWl1PWzMN3skpOpN6lFn52zbWzZW +Xvinw4l4fdKK4IEBMr8Xd/WPEuv1LX4zM8TG/5odFC8SS5sP2IuOkPEWuhQ8 +JBbIvnOXNcHGxtvnrr0nHvx6Rsf4Oxvf5A84Cfgw8MwmqMBulo21i4ROShNX +X7QS9ZhLYfZM8zZt4oJfCtFhCygUnvhdu5o40WVqOEmUwlL2/usbiIMqnu3K +l6CQbz1i6UK8dVHp0wppCqNu2Pm7Ea/2ieU+kqdwzy4nDU9izr1tTDeLwpWP +OhP+ZxEZffmvqhTeFeEddCceP7DglKA2hVcGz893JX7d8u7nMgMK3xTF6G8i +buTUBmoZU+goqzZjQUzHZrxGcwqPNfm66RNndftvcLagUOumpKc8cdSKNXV+ +VhS+TBacN5/YO1VOK9qOwqQDQus/kf2wGxw7n7GZQgezKc2nxAaWLYuuOFP4 +Dcsq+MSyeSVHbm+nMC50/FUi8ZzJqE/P3Cn84Vx+yY14aJPzjvfeFPb/qpI0 +JH5epv1k2o/CUfEejbnEtYLzzUSCKcxp/THQTv5vck21rFEkhSqTWQ5exCFL +007YRlPow6sXVCXeFrD3u1sChQZnnN3/I/WlpijdffwUhSZtclJuxGKRIzZ5 +GRQW/Ccc+ifx9POmW+U5FFINrVGPSf02JUaee1VE4XSYW64K8d4v3ds0q8n/ +iRaQqiL9Yb/+ehPcpvD3Cda3TcRGxSmrttynMHqxYvwg6a/5W82ljzZTaE0b +PFhCfPlOfmdrL9lPp4oOI9KvqcsirPv7yf5opvveJP0csd++ZmqQwuSpfTVG +xOuo2WylMQqtntUnq5P+f3/SY+sBIQ52ja6UHXQh9TKkxdJbzEEhy//euRJP +Wc8MD4tx0OdH+csmki8LBTOO+clyUO3vE7YFJI/0IhuqPLQ5OFToGqLqxMBR +H47EJicOTn+/ues6ybP5Dd96F2/j4O9/fR2mSd6lK93jNe/koHmxY7Tp/+ef +i6XVHg62JH9MrCZ52eyQvJ8bycFvQ+2+p0ieSq3+/EyzkIOp4toKNSSfL5y/ +ef7jRQ7KfXsypw1I3s78tfdKKQcLTnG0P5A8N6+Sn2VVEmubb11I8t5LY5OO +7EMOsqJMxAxMGCiXqjwp/ImDAzJqnbN6DNh8PWgzYKSKW9V2eeQqMLBcXyFR +2FwVvehl45byDHw50FivaaGKwU9LDwzKkfqdFDM/YKeKWbKnV2iQ86z3V5nO +rLsqTs71/JhEzsMDi19LyCSr4ohflVDV/85Ldezd0KOKt+I/VTYNk/tJwAfZ +kLequDuaviX2mQZgTrpkDqhiSTzV6jxEw3u9V22vvqpiGKuG3fmBBp1VBxr2 +zFXDpV2VV6rf0NBgVVIaq62GLDv5P4baaPjsJRxaFaOG+ybuTahXkPtAwdo7 +9/5Sw8tWH3MVr9Hw9VWs0JNkNXTdLX9SnKHh26aZ8+8y1dCib5HLCLl/TJkN +NYqWqmHnwGsm5QINc/5skfJrU8PpG2wXyzQaZBrTauWV1fFur9+eGn+a3P+X +zTler468dyeezcrQ8NHTutTssTpWOnrsj1lGw8mig/YjT9TxxifR6Z9/0vCP +Qleu6wt1nHh/r2Z0CQ0eMucMtQbVsWDuuGz9PBoiReV82kU0MGwurpsd4QM9 +rdAk56qBQ00iL0cf8kH8KSe1/KsGVi32uTfsx4flSdc2GxlpYb3hsI97Mg/O +apqISezVxq2jx5X888qgWdZi5dhpHVQvN9+dVVAKpsvr03Vf6qLbsz+W5hy8 +AqKCxWG74/XQXI9/4LfzZVCIUzR35ehjq/h3yzGxS7CA2lnt+FgfmQAfrfrm +i6DDlbl2cJcB+u58lVyZUwwHesUbbAUM8bmGoTDLrgi+jp10tjlriKUun4IF +pC+Ate6jXBvtFbjd865+/9t8uDtm9mOqdQVu0W3LTgk5D0FaBt3tPitRNVR2 +tJV7DrhfvDtcFxhhVvoZx5fj2bCOLb1RpNgIq3KsmJrPWaAWe+JQvbExflSf +WCu7IBM0fEzuUd3GuOfMZJef3Gnwuev7V9X+VXgp+uDCya5UuHehw3tU0gRf +fw190BGWAuOls1O6NSbIW2g6PeuZBF4Uf0HuRlPs8hKUCL9/DEY1Mo0qR0zx +eo/4OxOVBLhZ8uPdRJIZ9gVWKj4ZioXta1XQTMEcXbfb62m8PQpy+47f0rlv +jsXGflwpgcMguTCwYqMLFz3F6gq2PoiAkjVHD4+4cvHJ8QbHC9cjwOBo6prM +nVzcvdy1cuRSBNiPlL/o2s3F3++HAi6diIDElxMzXoFcfBhcn+q2JQKmi2Ms +D8dx8azH9gaRj+HQbZb5z2U+Fx8teuTmsCwcfMNL8myucnGwfDgmcGE4TF69 +4fO5nItV+ZyFqb/CQJzVNaVfzcV5T/c7vO8PAzth+eV37nNR8M3nkH/Lw6Cu +47L3Py+4WNcvoiiwIQxsRW9qR3RxUcYl+GUshEGX9d+T0j1c/HTe/4WQYRiM +135KcnvLxblGT4vUZMNAu0iP+TjERU2PLJMbg6FQ120RcXKYi5JVUmN7X4eC +7Z9OoDvCxRXCQf1KbaGw53h4e9gEFy2+GntcqgmF8fuJucumuSh1+NBgCD8U +4r/neNV+56L7pHqhZWEoiK0o09r1i4xnbhgvmxkKBftqJ2ZnuXhd8kjadGIo +/B/53UAg + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.05741412982378017}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.05741412982378017}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}], ",", + RowBox[{"ListPlot", "[", + RowBox[{ + RowBox[{ + RowBox[{"{", "}"}], " ", + RowBox[{"{", + RowBox[{"0", ",", "0.005381`"}], "}"}]}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.015959`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.025999`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.035173`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.043213`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.049902`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.055111`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.058771`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.060904`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.061577`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.060934`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.059136`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.056395`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.052912`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.048907`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.044569`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.040087`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.035606`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.031259`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.027134`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.023309`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.019818`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.016691`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.013926`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.01152`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.009447`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.007687`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.006205`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.004972`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.003954`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.003124`"}], "}"}]}], "]"}]}], "]"}]], "Output", + CellChangeTimes->{3.993961475498678*^9}, + CellLabel-> + "Out[141]=",ExpressionUUID->"033142fd-f07b-4a8b-bb7f-785e65dddfd5"] +}, Open ]], Cell[CellGroupData[{ @@ -8293,66 +14635,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[\\\"4.707214396163438`*^-167\\\", \ +RowBox[{\\\"\ +161198658118785115956678299518758546564525592888043685145303185612679\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"8\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3109099682969421627018644700669916936247705600000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 142, 78, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437636167164`*^9, 3.993961475532732*^9}, CellLabel-> "During evaluation of \ -In[391]:=",ExpressionUUID->"cb4665e4-f252-8e4c-9d71-b694fbe7aa53"], +In[142]:=",ExpressionUUID->"1626dd6e-5e5d-4b4a-9ef7-a8ba61e52bed"], 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[\\\"4.45279206685952`*^-170\\\", \ +RowBox[{\\\"\ +505518991860510123640143147290826802026352259296904996615670790081361\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"11\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0136605792106222330469781300859512072804761600000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 142, 79, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437636167164`*^9, 3.99396147553985*^9}, CellLabel-> "During evaluation of \ -In[391]:=",ExpressionUUID->"e67b353a-d4a9-454a-9cac-3e22ef8a4d4b"], +In[142]:=",ExpressionUUID->"55743939-7d28-4517-9143-e08994eb8663"], 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[\\\"4.212121123449807`*^-173\\\", \ +RowBox[{\\\"\ +164243120455479739170682508554789627978361849045564433400431439697434\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"15\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3832218553116351696319446492554724542670438400000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 142, 80, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437636167164`*^9, 3.993961475546767*^9}, CellLabel-> "During evaluation of \ -In[391]:=",ExpressionUUID->"9dbc6a20-c95c-084e-b19f-b6bb6bd70d6b"], +In[142]:=",ExpressionUUID->"80ee1d4d-970c-4528-bfee-a0864035c1af"], 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, 81, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437636167164`*^9, 3.9939614755543947`*^9}, CellLabel-> "During evaluation of \ -In[391]:=",ExpressionUUID->"f9b6cbc5-ab52-2741-b8bf-bf6796495def"], +In[142]:=",ExpressionUUID->"38a7dcdc-c1d6-481c-9cfb-f2d3f67c4d7b"], -Cell[BoxData["12.55365498945131`"], "Output", - CellChangeTimes->{3.991343769962549*^9}, +Cell[BoxData["14.426589190114948`"], "Output", + CellChangeTimes->{3.991343769962549*^9, 3.99396151696325*^9}, CellLabel-> - "Out[391]=",ExpressionUUID->"1439e238-af89-2243-beb8-0a46e5e09115"] + "Out[142]=",ExpressionUUID->"f94abfca-0fed-4dc2-b201-82b8d0c54dcf"] }, Open ]], Cell[CellGroupData[{ @@ -8419,68 +14771,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[\\\"3.8721697666950166`*^-231\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 143, 82, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991343769999645*^9, 3.993961516996627*^9}, CellLabel-> "During evaluation of \ -In[392]:=",ExpressionUUID->"033374a1-a008-6240-84e3-c1c7a7e65b75"], +In[143]:=",ExpressionUUID->"031bf58b-6ae4-4a58-9575-f596d0b7869e"], 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[\\\"1.5403513354851324`*^-237\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 143, 83, 31385712218820257286, + "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991343769999645*^9, 3.993961517002613*^9}, CellLabel-> "During evaluation of \ -In[392]:=",ExpressionUUID->"88ab6d85-4789-7346-aeee-8e9a4b87248d"], +In[143]:=",ExpressionUUID->"dd014f31-48f0-44e4-ac7b-d6f0f7884e34"], 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.127526373297336`*^-244\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 143, 84, 31385712218820257286, + "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991343769999645*^9, 3.993961517008555*^9}, CellLabel-> "During evaluation of \ -In[392]:=",ExpressionUUID->"051100a9-488b-4d4d-83c7-cdc54aef13e0"], +In[143]:=",ExpressionUUID->"778ffd0e-2bdf-441e-93c3-85691f6835bd"], 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, 85, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991343769999645*^9, 3.993961517014861*^9}, CellLabel-> "During evaluation of \ -In[392]:=",ExpressionUUID->"a33cd954-f1de-bf45-8642-effd7c3e029f"], +In[143]:=",ExpressionUUID->"0b2f6759-c90e-4bf4-a247-a8cd7b0ebcb1"], -Cell[BoxData["2.1234790234082306`"], "Output", - CellChangeTimes->{3.9913437771602173`*^9}, +Cell[BoxData["0.049748423952020886`"], "Output", + CellChangeTimes->{3.9913437771602173`*^9, 3.993961522660078*^9}, CellLabel-> - "Out[392]=",ExpressionUUID->"48a4017b-948a-6a48-8b10-d81adf4b9038"] + "Out[143]=",ExpressionUUID->"93dd6e62-ccd6-4fe1-b3b1-f675987be228"] }, Open ]], Cell[CellGroupData[{ @@ -8501,8 +14856,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 +14901,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[\\\"3.8721697666950166`*^-231\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 144, 86, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437771982174`*^9, 3.993961522695552*^9}, CellLabel-> "During evaluation of \ -In[393]:=",ExpressionUUID->"d8156b3f-4442-9146-9c48-cb34fdfb79d3"], +In[144]:=",ExpressionUUID->"f8cf236a-067c-417b-a735-568e48572bc1"], 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[\\\"1.5403513354851324`*^-237\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 144, 87, 31385712218820257286, + "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437771982174`*^9, 3.993961522701976*^9}, CellLabel-> "During evaluation of \ -In[393]:=",ExpressionUUID->"60007a19-2492-cd46-a203-7c2bbbc6591f"], +In[144]:=",ExpressionUUID->"84998f94-da2a-4f3e-9112-755947275a9b"], 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.127526373297336`*^-244\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 144, 88, 31385712218820257286, + "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437771982174`*^9, 3.993961522708363*^9}, CellLabel-> "During evaluation of \ -In[393]:=",ExpressionUUID->"8754c4a5-0539-0247-94a5-8a81a9ae7e49"], +In[144]:=",ExpressionUUID->"ccfd84bf-f24c-47d3-b71c-71c716f78cec"], 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, 89, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437771982174`*^9, 3.993961522715355*^9}, CellLabel-> "During evaluation of \ -In[393]:=",ExpressionUUID->"3af4c7f8-fe90-6646-8e3b-058500b348e9"], +In[144]:=",ExpressionUUID->"3add9896-a062-4c78-be8b-42fc5304d7f9"], -Cell[BoxData["10.711562421053975`"], "Output", - CellChangeTimes->{3.991343783589731*^9}, +Cell[BoxData["47.89953014687087`"], "Output", + CellChangeTimes->{3.991343783589731*^9, 3.993961528152315*^9}, CellLabel-> - "Out[393]=",ExpressionUUID->"46f7d520-9bcf-9d48-ae7c-54e91ca06983"] + "Out[144]=",ExpressionUUID->"110f94b7-03e1-4cf4-9435-691d49aa079e"] }, Open ]], Cell[CellGroupData[{ @@ -8629,8 +14986,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 +15031,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[\\\"3.8721697666950166`*^-231\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 145, 90, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437836316223`*^9, 3.993961528184429*^9}, CellLabel-> "During evaluation of \ -In[394]:=",ExpressionUUID->"ba4db233-5a2e-4340-98d0-df918a11e2c7"], +In[145]:=",ExpressionUUID->"2daabce0-f924-4143-b0ba-98b24814df6a"], 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[\\\"1.5403513354851324`*^-237\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 145, 91, 31385712218820257286, + "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437836316223`*^9, 3.9939615281917467`*^9}, CellLabel-> "During evaluation of \ -In[394]:=",ExpressionUUID->"444b24ca-68bb-7144-a655-403eefa4900f"], +In[145]:=",ExpressionUUID->"e4f2a8ff-e773-4bbc-9927-cf852b04f89d"], 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.127526373297336`*^-244\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 145, 92, 31385712218820257286, + "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437836316223`*^9, 3.993961528197979*^9}, CellLabel-> "During evaluation of \ -In[394]:=",ExpressionUUID->"f2dc2286-68d4-d74f-83ea-dd0f591156a8"], +In[145]:=",ExpressionUUID->"70276ff7-7544-4fca-b044-09e46413b975"], 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, 93, 31385712218820257286, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437836316223`*^9, 3.993961528204832*^9}, CellLabel-> "During evaluation of \ -In[394]:=",ExpressionUUID->"4974a702-c238-6d47-b5b2-a3c25cacf142"], +In[145]:=",ExpressionUUID->"a3827b0b-1950-4cae-8b48-7553c492947a"], -Cell[BoxData["20.656774205279326`"], "Output", - CellChangeTimes->{3.9913437870822353`*^9}, +Cell[BoxData["7.144567216845136`"], "Output", + CellChangeTimes->{3.9913437870822353`*^9, 3.993961531576426*^9}, CellLabel-> - "Out[394]=",ExpressionUUID->"d46043b7-707b-4740-ab89-0a2b96978cff"] + "Out[145]=",ExpressionUUID->"568544f2-dbc1-46c2-8d5e-3d3398baa39c"] }, Open ]], Cell[CellGroupData[{ @@ -8745,20 +15104,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.0026892163112090927`"], "Output", + CellChangeTimes->{3.991343787117275*^9, 3.993961531605991*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"b2053b0f-3053-4dbd-93b3-502e23665c41"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input", + CellLabel-> + "In[147]:=",ExpressionUUID->"7afd5de5-8380-489d-9e4f-fdc4c03f7acb"] }, -WindowSize->{718.5, 729.75}, -WindowMargins->{{17.25, Automatic}, {Automatic, 24}}, +Evaluator->"kernel 5", +WindowSize->{714, 435}, +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->"c5c6a337-d1c3-0f45-98d9-a2509510bd89" ] @@ -8773,368 +15138,646 @@ 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, 298, 5, 29, "Input",ExpressionUUID->"b6f2f39e-93b0-4ffa-923d-06f7ff3cce6d"], +Cell[877, 29, 244, 4, 33, "Output",ExpressionUUID->"e86554bd-1d88-4ec9-b877-3c2521969677"] }, 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[1158, 38, 248, 4, 29, "Input",ExpressionUUID->"b3a6fb85-cf7d-4dec-8156-e13b5e9a4a4f"], +Cell[1409, 44, 253, 4, 33, "Output",ExpressionUUID->"6f5ee75f-e4cb-4ef4-936e-2b9189490b31"] }, 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[1699, 53, 223, 4, 29, "Input",ExpressionUUID->"0ac9b701-c287-4bcb-b073-60a046eeb63d"], +Cell[1925, 59, 254, 4, 33, "Output",ExpressionUUID->"395b0803-f4f9-4fc1-be3b-c7fd9d196d2c"] }, 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[2216, 68, 175, 3, 29, "Input",ExpressionUUID->"a9b1ff7d-b6eb-4924-a2a4-0ab3bafb5562"], +Cell[2394, 73, 250, 4, 33, "Output",ExpressionUUID->"2d81e506-ce5d-47fe-8177-3fa1446980ca"] }, 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[2681, 82, 257, 7, 42, "Input",ExpressionUUID->"6a5e4a78-ed66-4ac8-8e14-92c47a8e55f1"], +Cell[2941, 91, 250, 4, 33, "Output",ExpressionUUID->"c34b1cac-1d56-4c44-8e62-aebd1e02901c"] }, 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[3228, 100, 131, 2, 29, "Input",ExpressionUUID->"ed3b39f2-5b5e-4704-ad75-fe4579ffa72e"], +Cell[3362, 104, 249, 4, 33, "Output",ExpressionUUID->"075d6119-1c54-4e44-b302-aadd2a1b506e"] }, 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[3648, 113, 276, 6, 29, "Input",ExpressionUUID->"aa11ea33-325d-4ec8-a103-6db78ea0e605"], +Cell[3927, 121, 266, 4, 33, "Output",ExpressionUUID->"f42937fd-1966-44e3-955b-c2cd9e8a7d4e"] }, 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[4230, 130, 257, 7, 29, "Input",ExpressionUUID->"e927c194-bd3b-4046-a715-4a4c2fb8e2ba"], +Cell[4490, 139, 265, 4, 33, "Output",ExpressionUUID->"2a505b40-0b21-43c9-b003-63fcd12a789f"] }, 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[4792, 148, 229, 4, 29, "Input",ExpressionUUID->"ce119d4b-e5fc-46f9-9c1b-bd5a3d3150fd"], +Cell[5024, 154, 227, 3, 33, "Output",ExpressionUUID->"e1b88d65-3700-41fc-97e9-51482be4d572"] }, 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[5288, 162, 225, 4, 29, "Input",ExpressionUUID->"f966197e-ebe0-4624-94f0-bed0ce59795b"], +Cell[5516, 168, 228, 3, 33, "Output",ExpressionUUID->"8cd0d07a-36f5-4941-89fc-36189def5f79"] }, 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[5781, 176, 129, 2, 29, "Input",ExpressionUUID->"e8de052c-f433-4412-ae51-56767d8a98ed"], +Cell[5913, 180, 248, 4, 33, "Output",ExpressionUUID->"d1a7a010-fb58-4380-bd8a-c69e212e4af4"] }, 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[6198, 189, 129, 2, 29, "Input",ExpressionUUID->"bf17a62c-40f7-4c6f-a70b-ad2e39e8addd"], +Cell[6330, 193, 252, 4, 33, "Output",ExpressionUUID->"84b5a055-32ab-44bc-a1f2-cf84425b8686"] }, 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[6619, 202, 557, 19, 79, "Input",ExpressionUUID->"161fa6f4-259e-4702-b299-443b6a281e81"], +Cell[7179, 223, 264, 4, 33, "Output",ExpressionUUID->"f17a5619-f205-4930-9c1d-2197417b96b9"] }, 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[7480, 232, 557, 19, 79, "Input",ExpressionUUID->"c6f32788-85ac-46ae-8131-b7b41ea549e9"], +Cell[8040, 253, 267, 4, 33, "Output",ExpressionUUID->"3b9fb2b8-f736-4de0-8a3c-244bc4ff9d24"] }, 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[8344, 262, 1588, 50, 158, "Input",ExpressionUUID->"fc2bcb47-59d7-418d-8eb4-678031fa0d4f"], +Cell[9935, 314, 267, 4, 33, "Output",ExpressionUUID->"c42872d6-2986-404e-a738-97a28a90a378"] }, 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[10239, 323, 1422, 46, 158, "Input",ExpressionUUID->"6b73e008-7b51-4e70-a7b4-5df4b6e0c11b"], +Cell[11664, 371, 281, 5, 33, "Output",ExpressionUUID->"12ec9a5d-76df-4b48-b443-4f30db1f9b95"] }, 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[11982, 381, 1422, 46, 158, "Input",ExpressionUUID->"5497f24d-934b-4e66-9910-496c471a7e15"], +Cell[13407, 429, 284, 5, 33, "Output",ExpressionUUID->"0289860c-bc47-48d9-8db7-c6ed0399df3e"] }, 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[13728, 439, 1588, 50, 158, "Input",ExpressionUUID->"e2db64e1-73cf-4b67-b0ed-2d3bf1ab691d"], +Cell[15319, 491, 261, 4, 33, "Output",ExpressionUUID->"9c626b96-c70f-4e95-8062-a19ffe6afa60"] }, 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[15617, 500, 131, 2, 29, "Input",ExpressionUUID->"3308eb87-eb9e-4eb2-8b6d-5c3edfaa9391"], +Cell[15751, 504, 250, 4, 33, "Output",ExpressionUUID->"0be97938-ab79-4700-9361-2fe1c863ee04"] }, 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[16038, 513, 133, 2, 29, "Input",ExpressionUUID->"0a267714-d797-479c-9281-926c498c54a0"], +Cell[16174, 517, 251, 4, 33, "Output",ExpressionUUID->"874c2903-6541-4733-a8ec-95a23c487742"] }, 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[16462, 526, 134, 2, 29, "Input",ExpressionUUID->"3589c749-f1a8-49cf-962e-230ede154e34"], +Cell[16599, 530, 254, 4, 33, "Output",ExpressionUUID->"c5b7281f-85de-4d31-889c-67c580a7511f"] }, 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[16890, 539, 219, 4, 29, "Input",ExpressionUUID->"491532fc-d31b-4b63-9494-f2aebf07b137"], +Cell[17112, 545, 264, 5, 33, "Output",ExpressionUUID->"5dcaa45c-1114-4388-a20f-a70f60e2e6b8"] }, 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[17413, 555, 134, 2, 29, "Input",ExpressionUUID->"137ffa77-5e4e-4e83-bdaf-3b8c71b7e99d"], +Cell[17550, 559, 256, 4, 33, "Output",ExpressionUUID->"eb4ffdac-89ca-4446-a14f-062e09f2a1f3"] }, 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[17843, 568, 324, 5, 29, "Input",ExpressionUUID->"e7afc510-3aae-4c8d-8f8d-75e0db78c9b0"], +Cell[18170, 575, 251, 4, 33, "Output",ExpressionUUID->"d3b83622-be8c-4d5a-9c04-6fc9968c49fd"] }, 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[18458, 584, 296, 5, 29, "Input",ExpressionUUID->"ef6b1d03-04f3-43ee-819f-3e962597c32c"], +Cell[18757, 591, 251, 4, 33, "Output",ExpressionUUID->"8afdf224-b08a-4c51-8125-c78deb697bd4"] }, 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[19045, 600, 219, 4, 29, "Input",ExpressionUUID->"14174da3-21fd-4324-b414-fe59a0e7c8b2"], +Cell[19267, 606, 247, 4, 33, "Output",ExpressionUUID->"f53798cd-69ee-4307-9107-f9536e4c7e6d"] }, 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[19551, 615, 350, 10, 42, "Input",ExpressionUUID->"f03df283-f42b-4f28-950a-ad1b7dbca487"], +Cell[19904, 627, 254, 4, 33, "Output",ExpressionUUID->"28554183-72d0-49d8-be91-59bbfe91c1d7"] }, 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[20195, 636, 350, 10, 42, "Input",ExpressionUUID->"96ddc3c1-c144-4d7e-bb7f-b358db72338a"], +Cell[20548, 648, 285, 5, 33, "Output",ExpressionUUID->"cc186e97-7e1d-4a63-81e9-55a6a8bf3ec8"] }, 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[20870, 658, 994, 26, 81, "Input",ExpressionUUID->"d2ca60e0-639f-4db2-b5e5-ff022354134f"], +Cell[21867, 686, 268, 4, 33, "Output",ExpressionUUID->"71671359-8307-4b75-b45c-c1618c95d8c5"] }, 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[22172, 695, 199, 3, 29, "Input",ExpressionUUID->"26bb1297-27c8-4699-a3e0-f2fc8f92a3e0"], +Cell[22374, 700, 248, 4, 33, "Output",ExpressionUUID->"f4e7b072-54c0-470e-a826-427b5ddd3c65"] }, 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[22659, 709, 331, 5, 29, "Input",ExpressionUUID->"c36b2ec7-5177-44bf-8e69-ed1317b662fd"], +Cell[22993, 716, 226, 3, 33, "Output",ExpressionUUID->"d2e6f0da-2a92-4de7-8991-ac80fcf8480d"] +}, Open ]], +Cell[23234, 722, 173, 2, 35, "Input",ExpressionUUID->"c170de59-bd97-4364-9589-2d5d70fbb995"], +Cell[CellGroupData[{ +Cell[23432, 728, 327, 5, 29, "Input",ExpressionUUID->"30d1f7fe-c278-4ebe-ac8c-df44c995b0f4"], +Cell[23762, 735, 226, 3, 33, "Output",ExpressionUUID->"027ab1d6-056f-4825-af85-4731344d135d"] +}, Open ]], +Cell[24003, 741, 173, 2, 35, "Input",ExpressionUUID->"2fc9a84e-66c2-4145-ad40-f8c57f4e55f5"], +Cell[CellGroupData[{ +Cell[24201, 747, 330, 5, 29, "Input",ExpressionUUID->"e29686c2-1ddd-44de-a20e-eaf724772ba4"], +Cell[24534, 754, 227, 3, 33, "Output",ExpressionUUID->"55651b70-4161-4b0a-8b62-e57818fffd91"] +}, Open ]], +Cell[24776, 760, 173, 2, 35, "Input",ExpressionUUID->"29a1f07e-8676-41a9-bd17-2e34a313365b"], +Cell[CellGroupData[{ +Cell[24974, 766, 352, 5, 29, "Input",ExpressionUUID->"65e00fe8-d346-49a9-9594-0c6371698770"], +Cell[25329, 773, 232, 3, 33, "Output",ExpressionUUID->"f6498d4f-30b3-4e77-b318-d3b54dc3773c"] +}, Open ]], +Cell[25576, 779, 171, 2, 35, "Input",ExpressionUUID->"3c9ccc48-f1ab-4896-944f-00e098abc23c"], +Cell[CellGroupData[{ +Cell[25772, 785, 299, 5, 29, "Input",ExpressionUUID->"be2c524e-276a-483b-8cfd-e5322f9f5112"], +Cell[26074, 792, 227, 3, 33, "Output",ExpressionUUID->"16f0b05d-cf0a-4c91-9a95-9062e3fbcb0e"] +}, Open ]], +Cell[26316, 798, 171, 2, 35, "Input",ExpressionUUID->"9edd0cd5-3ea0-465d-bf10-7d036567eff2"], +Cell[CellGroupData[{ +Cell[26512, 804, 305, 5, 29, "Input",ExpressionUUID->"339104f4-9d50-4943-a73c-3be36f1813d0"], +Cell[26820, 811, 227, 3, 33, "Output",ExpressionUUID->"eb7ba657-7804-4ac1-85a0-3670a3e4280d"] +}, Open ]], +Cell[27062, 817, 173, 2, 35, "Input",ExpressionUUID->"c015b567-1fca-4c4c-8723-7a28b0a18b25"], +Cell[CellGroupData[{ +Cell[27260, 823, 307, 5, 29, "Input",ExpressionUUID->"2dca6e8d-b914-427c-9e51-b61eac577074"], +Cell[27570, 830, 225, 3, 33, "Output",ExpressionUUID->"2ab180a1-653e-4841-8bfe-1c6a24cecdff"] +}, Open ]], +Cell[27810, 836, 172, 2, 35, "Input",ExpressionUUID->"6acd81c8-273c-4861-8e07-e1645ecc303b"], +Cell[CellGroupData[{ +Cell[28007, 842, 276, 4, 29, "Input",ExpressionUUID->"3d96fe7a-93a9-467e-a821-624ce66453dc"], +Cell[28286, 848, 227, 3, 33, "Output",ExpressionUUID->"1c3123c2-de5b-440c-841d-6f33bb766203"] +}, Open ]], +Cell[28528, 854, 175, 2, 35, "Input",ExpressionUUID->"44e66cd8-5feb-4da9-b9b7-da93b2ddae23"], +Cell[CellGroupData[{ +Cell[28728, 860, 19809, 485, 1844, "Input",ExpressionUUID->"fa30ac69-66b0-42f2-a0a8-3630a90b7025"], +Cell[48540, 1347, 265, 4, 33, "Output",ExpressionUUID->"ad1ce450-1bd4-4fa6-94ed-4d590409a772"] }, 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[48842, 1356, 19748, 489, 1981, "Input",ExpressionUUID->"67c71e92-6321-406f-84a2-00bc3d48bd73"], +Cell[68593, 1847, 265, 4, 33, "Output",ExpressionUUID->"11495c87-9ae1-4d10-97d2-2d2f0707329e"] }, 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[68895, 1856, 19748, 483, 1970, "Input",ExpressionUUID->"132aada4-6663-4334-ad3c-7235b14d501f"], +Cell[88646, 2341, 282, 5, 33, "Output",ExpressionUUID->"92162329-be20-4f7a-bff3-8d917f932e72"] }, 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[88965, 2351, 22534, 553, 2217, "Input",ExpressionUUID->"794eda41-ea81-471d-af5c-fa0e33973abf"], +Cell[111502, 2906, 288, 5, 33, "Output",ExpressionUUID->"d2095dbd-a23b-43a0-9c23-5c4ee69d9dff"] }, 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[111827, 2916, 22535, 553, 2254, "Input",ExpressionUUID->"38b75da5-9141-4b4b-b19a-ccc39ecfb42f"], +Cell[134365, 3471, 284, 5, 33, "Output",ExpressionUUID->"a5582f04-17e8-4296-a4a2-88803829e477"] }, 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[134686, 3481, 25491, 626, 2501, "Input",ExpressionUUID->"489dcf77-e70c-4939-9299-f254cd856cb6"], +Cell[160180, 4109, 281, 5, 33, "Output",ExpressionUUID->"15c1b9f7-a82c-4d69-b962-045c74894d50"] }, 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[160498, 4119, 130, 2, 29, "Input",ExpressionUUID->"8ce462f6-3ddd-4c18-aa9f-a8c154b05988"], +Cell[160631, 4123, 247, 4, 33, "Output",ExpressionUUID->"faf2926c-c0a0-4ff8-8f7a-3010a180b423"] }, 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[160915, 4132, 130, 2, 29, "Input",ExpressionUUID->"5bc4a271-2ebf-4166-967c-d682044901e9"], +Cell[161048, 4136, 252, 4, 33, "Output",ExpressionUUID->"356f0d06-ffae-4c3d-85b7-94a3d137ae2c"] }, 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[161337, 4145, 1144, 39, 107, "Input",ExpressionUUID->"47cf03cd-cf91-40f3-af6b-ecde127789ed"], +Cell[162484, 4186, 268, 4, 33, "Output",ExpressionUUID->"91797e91-29f5-493a-9f82-69f84c134679"] }, 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[162789, 4195, 1041, 35, 107, "Input",ExpressionUUID->"faa71250-a381-4043-8a3a-a850f77b6725"], +Cell[163833, 4232, 281, 5, 33, "Output",ExpressionUUID->"495a958c-be4d-46f9-8f41-6369f02aa0e4"] }, 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[164151, 4242, 1144, 39, 107, "Input",ExpressionUUID->"f89b02c9-d31a-4091-8584-36d26689f581"], +Cell[165298, 4283, 265, 4, 33, "Output",ExpressionUUID->"3f822da4-4aa0-476b-8b00-f3ad0541b359"] }, 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[165600, 4292, 108, 1, 29, "Input",ExpressionUUID->"1366fe92-7f59-4f02-b665-4b95151b4dee"], +Cell[165711, 4295, 269, 4, 33, "Output",ExpressionUUID->"bc4e45e5-fd08-496f-a37b-de056368f367"] }, 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[166017, 4304, 108, 1, 29, "Input",ExpressionUUID->"41d0427c-462d-480e-8d81-328c3d53e09e"], +Cell[166128, 4307, 287, 5, 33, "Output",ExpressionUUID->"7eaa074a-9b21-4d33-a800-345afe317a11"] }, 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[166452, 4317, 108, 1, 29, "Input",ExpressionUUID->"d7aa9e4f-749a-47b1-b866-9103436d9b66"], +Cell[166563, 4320, 283, 5, 33, "Output",ExpressionUUID->"5748df11-8eba-4694-b68a-7996a2e71f8e"] }, 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[166883, 4330, 108, 1, 29, "Input",ExpressionUUID->"7367e1e4-6f3a-4a6b-be9a-cd073fdbd8d1"], +Cell[166994, 4333, 264, 4, 33, "Output",ExpressionUUID->"7621794a-147b-400d-8162-debc519ec53e"] }, 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[167295, 4342, 107, 1, 29, "Input",ExpressionUUID->"a9948b97-f787-4829-952e-4e70e354f5c5"], +Cell[167405, 4345, 266, 4, 33, "Output",ExpressionUUID->"f35d8a85-2674-4072-a8c2-9eb0c3bfd427"] }, 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[167708, 4354, 107, 1, 29, "Input",ExpressionUUID->"5ad9b69b-7e40-419d-bb55-7c5632f8afd4"], +Cell[167818, 4357, 269, 4, 33, "Output",ExpressionUUID->"19408def-6527-4f0b-845a-b2ef2188fe49"] }, 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[168124, 4366, 497, 16, 55, "Input",ExpressionUUID->"75046c0a-85f0-4725-9e2a-de4f8d41b673"], +Cell[168624, 4384, 284, 5, 33, "Output",ExpressionUUID->"c8d108e8-8100-4c2a-aa09-83820bf5376c"] }, 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[168945, 4394, 497, 16, 55, "Input",ExpressionUUID->"853f8874-70d7-461d-b252-940c4f104021"], +Cell[169445, 4412, 281, 5, 33, "Output",ExpressionUUID->"19ce778c-1978-4808-836f-6b5b4930b8db"] }, 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[169763, 4422, 1788, 60, 183, "Input",ExpressionUUID->"6c3a21c2-ca85-4651-b0a0-0af55a6debdd"], +Cell[171554, 4484, 267, 4, 33, "Output",ExpressionUUID->"76f20420-2af7-4490-8d35-f2951b5f73c0"] }, 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[171858, 4493, 1101, 36, 131, "Input",ExpressionUUID->"8574918a-44d2-4fac-8ac3-e98d44e3dc18"], +Cell[172962, 4531, 287, 5, 33, "Output",ExpressionUUID->"9faa6782-2528-414f-9d32-c7db5eeac55a"] }, 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[173286, 4541, 1818, 61, 160, "Input",ExpressionUUID->"c6cd9dfd-d4f6-46c6-8c97-90e6e8d31f51"], +Cell[175107, 4604, 264, 4, 33, "Output",ExpressionUUID->"e4f3275d-1cdb-49cb-a8c4-741918e96334"] }, 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[175408, 4613, 1631, 53, 162, "Input",ExpressionUUID->"8ef6ea1c-6dc9-4286-8439-b82539b2090c"], +Cell[177042, 4668, 267, 4, 33, "Output",ExpressionUUID->"d0f42b3b-d5e5-4641-a023-37cdefd09076"] }, 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[177346, 4677, 1631, 53, 162, "Input",ExpressionUUID->"e2af3266-7118-41e2-9a83-cd6fa8fbaaba"], +Cell[178980, 4732, 265, 4, 33, "Output",ExpressionUUID->"bcd75b0d-b015-4200-a8a6-2527507549d9"] }, 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[179282, 4741, 233, 4, 29, "Input",ExpressionUUID->"ede64bc2-06f7-8743-a0a6-6f058773310c"], +Cell[179518, 4747, 160, 2, 33, "Output",ExpressionUUID->"cf39844b-3079-418f-bc96-212bf3037472"] }, Open ]], -Cell[338016, 8238, 209, 5, 70, "Input",ExpressionUUID->"b530b35f-2a32-0145-82a7-25a7a01bdd8f"], +Cell[179693, 4752, 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[179893, 4758, 206, 3, 29, "Input",ExpressionUUID->"328429c4-9130-334e-ba7f-7dc8ec78e5b4"], +Cell[180102, 4763, 161, 2, 33, "Output",ExpressionUUID->"14be0107-8ef1-4bf7-90c6-c3134afa7def"] +}, Open ]], +Cell[180278, 4768, 171, 2, 29, "Input",ExpressionUUID->"b3364ab6-86a4-7a46-ae33-623392314869"], +Cell[CellGroupData[{ +Cell[180474, 4774, 1297, 42, 111, "Input",ExpressionUUID->"789c64dd-6722-a64c-864a-7fd89b074ad2"], +Cell[181774, 4818, 194, 2, 33, "Output",ExpressionUUID->"187ddf22-c71e-4a3e-9ca2-6328f61cbdc8"] }, 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[182005, 4825, 927, 30, 96, "Input",ExpressionUUID->"35e76fc7-2f05-694a-b379-67189aa511ad"], +Cell[182935, 4857, 194, 2, 33, "Output",ExpressionUUID->"3206c440-6b20-4c12-8d78-26fe0cc1b2fb"] }, 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[183166, 4864, 906, 29, 55, "Input",ExpressionUUID->"a10e19cd-f567-6b4d-a841-5f01117db38b"], +Cell[184075, 4895, 195, 2, 33, "Output",ExpressionUUID->"3256363d-67fe-45b0-b755-6b88f992f022"] }, 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[184307, 4902, 554, 18, 51, "Input",ExpressionUUID->"289c2a6f-fa01-2645-80ce-1661c17fd90c"], +Cell[184864, 4922, 191, 2, 33, "Output",ExpressionUUID->"87edbc21-7959-403d-9673-89c7a41e7cf4"] }, 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[185092, 4929, 647, 21, 51, "Input",ExpressionUUID->"399520f6-f2e9-6f4a-a02c-50158b624262"], +Cell[185742, 4952, 187, 2, 33, "Output",ExpressionUUID->"67f89a18-2e18-436d-b655-c42a2595a0ca"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185966, 4959, 166, 4, 55, "Input",ExpressionUUID->"7ee61184-68bc-584d-8849-9a0186a8f35d"], +Cell[186135, 4965, 193, 2, 33, "Output",ExpressionUUID->"f7080098-dfdf-489d-9154-a3113797181f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[186365, 4972, 166, 4, 54, "Input",ExpressionUUID->"0ec92d80-8d9e-2746-9b01-4edb32bf4eac"], +Cell[186534, 4978, 190, 2, 33, "Output",ExpressionUUID->"00b20656-1594-4889-a5fb-2fff8d986a2b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[186761, 4985, 177, 4, 43, "Input",ExpressionUUID->"8c869977-4b92-8745-b065-cb6318fdcdb7"], +Cell[186941, 4991, 190, 2, 33, "Output",ExpressionUUID->"eb115c4a-f4cf-4266-9157-8d8ffcad971d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187168, 4998, 177, 4, 43, "Input",ExpressionUUID->"e2c1a337-e3c1-be4c-aa33-ae15497f38bc"], +Cell[187348, 5004, 191, 2, 33, "Output",ExpressionUUID->"3937bde6-6548-47d2-a50a-6d8aaeaf015e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187576, 5011, 6051, 184, 474, "Input",ExpressionUUID->"abbe4489-628a-134f-b142-f0e18f19d6f9"], +Cell[193630, 5197, 195, 2, 33, "Output",ExpressionUUID->"f631783b-269b-40cc-b895-f292ce64d8a4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193862, 5204, 364, 8, 41, "Input",ExpressionUUID->"9e4d84a7-8664-a749-b8b4-3df6645764a5"], +Cell[194229, 5214, 191, 2, 33, "Output",ExpressionUUID->"fdc9bf83-dbdf-4652-b3fa-9e6938f054d4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194457, 5221, 6118, 186, 474, "Input",ExpressionUUID->"29cc8bdf-8683-214b-bd33-b4d8b4da1114"], +Cell[200578, 5409, 195, 2, 33, "Output",ExpressionUUID->"5b257b64-da0e-4de8-a104-36796fd11721"] +}, Open ]], +Cell[CellGroupData[{ +Cell[200810, 5416, 364, 8, 41, "Input",ExpressionUUID->"2190c129-8a98-bf45-873d-af8f8d048936"], +Cell[201177, 5426, 188, 2, 33, "Output",ExpressionUUID->"31d6d603-ab5e-4b05-b599-732767c399e8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[201402, 5433, 2659, 87, 285, "Input",ExpressionUUID->"972f1c0f-a59f-2847-8b2b-bd88c5077325"], +Cell[204064, 5522, 191, 2, 33, "Output",ExpressionUUID->"3de8fbd9-b569-4ec9-95b1-af8b38d5d2a6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[204292, 5529, 2599, 84, 211, "Input",ExpressionUUID->"c06a7373-f345-6147-b882-1c88bef9608a"], +Cell[206894, 5615, 189, 2, 33, "Output",ExpressionUUID->"defff76a-22ce-4e8a-a987-5cb8338cc635"] +}, Open ]], +Cell[CellGroupData[{ +Cell[207120, 5622, 3708, 117, 327, "Input",ExpressionUUID->"82838793-cf71-8049-a4ac-b01daf51205b"], +Cell[210831, 5741, 190, 2, 33, "Output",ExpressionUUID->"108240f7-e6c9-465c-a138-448a34f5ec2a"] +}, Open ]], +Cell[211036, 5746, 160, 3, 29, "Input",ExpressionUUID->"0055f95b-c532-e24d-bdc4-544ea2d2fbd9"], +Cell[CellGroupData[{ +Cell[211221, 5753, 2073, 58, 234, "Input",ExpressionUUID->"574b810b-aa4a-d545-b080-c44fbe83a713"], +Cell[213297, 5813, 563, 12, 59, "Message",ExpressionUUID->"9d1c2215-1fb3-4d41-aeb2-6182170607ce"], +Cell[213863, 5827, 566, 12, 59, "Message",ExpressionUUID->"759543b0-accc-4dc7-b6f0-e3f0ac3e30fd"], +Cell[214432, 5841, 568, 12, 59, "Message",ExpressionUUID->"61243c89-bf70-46f3-999c-d43a0d90a8e3"], +Cell[215003, 5855, 492, 11, 26, "Message",ExpressionUUID->"f87b86b7-eff2-4d31-97d1-425952bb95d2"], +Cell[215498, 5868, 191, 2, 33, "Output",ExpressionUUID->"82d2465c-07c3-405f-92f2-2cd7a3830d96"] +}, Open ]], +Cell[CellGroupData[{ +Cell[215726, 5875, 2071, 58, 234, "Input",ExpressionUUID->"3d7dd6a2-2692-2b4d-8922-656c90598e75"], +Cell[217800, 5935, 561, 12, 59, "Message",ExpressionUUID->"c2314923-863f-4dd1-843e-fdcbb6f6b30e"], +Cell[218364, 5949, 564, 12, 59, "Message",ExpressionUUID->"a5a818d6-b84d-4096-8d7a-7966d6002387"], +Cell[218931, 5963, 566, 12, 59, "Message",ExpressionUUID->"133f91e1-6b0e-459a-9782-747de42dc4be"], +Cell[219500, 5977, 492, 11, 26, "Message",ExpressionUUID->"23869b62-dc45-40b1-8495-13a20acbdb50"], +Cell[219995, 5990, 185, 2, 33, "Output",ExpressionUUID->"85e13b0c-cb6d-443b-a6e9-3eb087dd5cd7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[220217, 5997, 1955, 52, 102, "Input",ExpressionUUID->"9c540ba7-8bb4-ef46-919c-62296271f174"], +Cell[222175, 6051, 20191, 377, 232, "Output",ExpressionUUID->"5ca0d8df-55fd-42cd-8c1f-e769b3e4162d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[242403, 6433, 2111, 59, 261, "Input",ExpressionUUID->"6e33cb28-ef1e-1547-b52d-2171e7786920"], +Cell[244517, 6494, 524, 12, 59, "Message",ExpressionUUID->"d5113b95-74c9-45bd-8e4a-eb11ceaa44be"], +Cell[245044, 6508, 530, 12, 59, "Message",ExpressionUUID->"d3b317b1-8b36-4456-8b79-3660a74b51c5"], +Cell[245577, 6522, 530, 12, 59, "Message",ExpressionUUID->"60db4b2d-5b30-49bd-907f-2a822b92b8ef"], +Cell[246110, 6536, 491, 11, 26, "Message",ExpressionUUID->"a78bb5af-d5aa-4a77-b8d2-89ccdd2ec3c6"], +Cell[246604, 6549, 22114, 410, 232, "Output",ExpressionUUID->"37d936d2-5312-4b79-86bd-11d3da09f6c8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[268755, 6964, 2433, 70, 169, "Input",ExpressionUUID->"2d5a8299-5376-9747-8056-2bd9764114a1"], +Cell[271191, 7036, 511, 12, 26, "Message",ExpressionUUID->"fcdfeaaf-38e0-4bf3-8e36-204182675806"], +Cell[271705, 7050, 2491, 39, 94, "Message",ExpressionUUID->"82396e71-0c72-4dde-829e-9ca275f0b071"], +Cell[274199, 7091, 2329, 68, 153, "Output",ExpressionUUID->"0759e290-2317-4148-8feb-29c855be44fc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[276565, 7164, 228, 4, 29, "Input",ExpressionUUID->"d5fa6d0d-0ad8-f845-b7df-0ac982b58a3a"], +Cell[276796, 7170, 5912, 90, 132, "Message",ExpressionUUID->"ec565c86-9ecf-4de0-bce9-51c06e67edc4"], +Cell[282711, 7262, 24770, 480, 219, "Output",ExpressionUUID->"8744e5e3-c973-4550-8f04-c4f4306ac290"] +}, Open ]], +Cell[CellGroupData[{ +Cell[307518, 7747, 236, 6, 47, "Input",ExpressionUUID->"650e43f8-1352-de46-8137-52adca93b0cf"], +Cell[307757, 7755, 191, 2, 33, "Output",ExpressionUUID->"fc06e429-42d5-4c26-b06d-71657030b706"] +}, Open ]], +Cell[CellGroupData[{ +Cell[307985, 7762, 1833, 52, 190, "Input",ExpressionUUID->"9ad75b45-8f6d-114b-80bd-d2b12a49fd20"], +Cell[309821, 7816, 545, 12, 59, "Message",ExpressionUUID->"50dfac4e-d26d-42bc-a803-c84448629854"], +Cell[310369, 7830, 546, 12, 59, "Message",ExpressionUUID->"bc29f965-1223-48bf-adf6-917f9d3935a6"], +Cell[310918, 7844, 548, 12, 59, "Message",ExpressionUUID->"e326fcee-e23c-4503-87eb-b720f15a66c7"], +Cell[311469, 7858, 491, 11, 26, "Message",ExpressionUUID->"905e8bf6-7afc-4b31-9dae-3fb7c08f8212"], +Cell[311963, 7871, 22074, 410, 232, "Output",ExpressionUUID->"1d97d1bb-be09-4ac1-a43f-990bd915c459"] +}, Open ]], +Cell[CellGroupData[{ +Cell[334074, 8286, 1616, 48, 104, "Input",ExpressionUUID->"94eefac7-0bb7-7249-8430-0b2ddd6df117"], +Cell[335693, 8336, 630, 13, 80, "Message",ExpressionUUID->"bfb906e1-9072-46a3-a8b5-f14e2415d957"], +Cell[336326, 8351, 633, 13, 80, "Message",ExpressionUUID->"fcbdfaed-04c2-4089-a9d2-945c17a77c27"], +Cell[336962, 8366, 726, 15, 80, "Message",ExpressionUUID->"57911859-7c89-4f0d-a9e0-49b566c47b6f"], +Cell[337691, 8383, 493, 11, 26, "Message",ExpressionUUID->"a0b23b2b-55b7-4caa-9e88-86c68381c39d"], +Cell[338187, 8396, 195, 3, 33, "Output",ExpressionUUID->"053885aa-6ae2-4a58-97ed-9d9032de7a2c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[338419, 8404, 2296, 65, 212, "Input",ExpressionUUID->"1d118f77-7d68-dd41-b0af-09454f88e7f1"], +Cell[340718, 8471, 564, 12, 59, "Message",ExpressionUUID->"7002e965-8cb0-400d-bc5f-41fcfd73e079"], +Cell[341285, 8485, 567, 12, 59, "Message",ExpressionUUID->"54759fac-f2f7-44ae-a898-dd4f0162f421"], +Cell[341855, 8499, 573, 12, 59, "Message",ExpressionUUID->"318c763e-2b9c-420c-b7f8-18e848f98b1b"], +Cell[342431, 8513, 495, 11, 26, "Message",ExpressionUUID->"48a8a968-d1bb-4939-9452-7caae43d76ff"], +Cell[342929, 8526, 197, 3, 33, "Output",ExpressionUUID->"ed626b55-107c-427f-9155-a6eb89c5cdc7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[343163, 8534, 2233, 63, 212, "Input",ExpressionUUID->"c8039063-5f4d-134a-b6ba-e19335f7a9f6"], +Cell[345399, 8599, 564, 12, 59, "Message",ExpressionUUID->"4e389852-d898-405f-95c0-42891191edd8"], +Cell[345966, 8613, 565, 12, 59, "Message",ExpressionUUID->"762a3970-ae5c-4499-b80c-d615a0d7d590"], +Cell[346534, 8627, 571, 12, 59, "Message",ExpressionUUID->"6d8bf4bd-bfdd-48b3-9c50-632165201997"], +Cell[347108, 8641, 495, 11, 26, "Message",ExpressionUUID->"81907627-a496-4e03-b143-1dee720e71db"], +Cell[347606, 8654, 191, 3, 33, "Output",ExpressionUUID->"78237a81-38ed-4bb2-9094-16ac55a6937a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[347834, 8662, 2235, 63, 212, "Input",ExpressionUUID->"a474307a-af78-3040-90ec-fb8d284b16bb"], +Cell[350072, 8727, 566, 12, 59, "Message",ExpressionUUID->"daf860ba-037c-4d3f-9df3-755b95f56646"], +Cell[350641, 8741, 569, 12, 59, "Message",ExpressionUUID->"c82992a8-de99-439f-95a9-9058ec8e3de9"], +Cell[351213, 8755, 571, 12, 59, "Message",ExpressionUUID->"05acf2f2-04c3-4934-a1b6-acfe2dc05de4"], +Cell[351787, 8769, 495, 11, 26, "Message",ExpressionUUID->"c3e601f8-6a5e-416b-8ccc-3214a869febc"], +Cell[352285, 8782, 194, 3, 33, "Output",ExpressionUUID->"c4ba81d8-6384-4535-b8a8-e53b75096a4c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[352516, 8790, 236, 6, 46, "Input",ExpressionUUID->"ce14ed0e-a62a-1e46-b7cf-f67bfdbd9bc7"], +Cell[352755, 8798, 196, 3, 33, "Output",ExpressionUUID->"471178ec-d4be-4aac-a1e8-766fd2d714f4"] +}, Open ]], +Cell[352966, 8804, 270, 6, 29, "Input",ExpressionUUID->"d104d373-080a-854b-92ff-e87abbd4c41c"], +Cell[CellGroupData[{ +Cell[353261, 8814, 558, 19, 51, "Input",ExpressionUUID->"b6bc4645-bb9b-da49-b314-4566a6ca9506"], +Cell[353822, 8835, 197, 3, 33, "Output",ExpressionUUID->"f0587a64-4fe6-47b2-8be7-ed63e61b910d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[354056, 8843, 170, 5, 55, "Input",ExpressionUUID->"1f225213-8143-a346-8c4e-e69f41e85c6f"], +Cell[354229, 8850, 193, 3, 33, "Output",ExpressionUUID->"42a0fd5f-7ceb-49d5-b76c-0dabdded22c0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[354459, 8858, 181, 5, 43, "Input",ExpressionUUID->"4b9388d7-dfe0-ca44-90a4-ea60f173579a"], +Cell[354643, 8865, 195, 3, 33, "Output",ExpressionUUID->"af62a0d7-3d88-44a3-b268-9926a9bba2b2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[354875, 8873, 6055, 185, 474, "Input",ExpressionUUID->"b0d5a77d-c2c5-e84d-b4be-bec051c1557c"], +Cell[360933, 9060, 197, 3, 33, "Output",ExpressionUUID->"47b5e493-b50c-4539-be8d-4c7fcdaae669"] +}, Open ]], +Cell[CellGroupData[{ +Cell[361167, 9068, 368, 9, 41, "Input",ExpressionUUID->"e543ccd6-d1e6-3c4d-9364-2a9eec09292b"], +Cell[361538, 9079, 195, 3, 33, "Output",ExpressionUUID->"672f1031-afbe-4b98-80f4-69febd5431cb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[361770, 9087, 6122, 187, 474, "Input",ExpressionUUID->"50e98a1c-f33a-9242-9267-bbd8a1753662"], +Cell[367895, 9276, 197, 3, 33, "Output",ExpressionUUID->"7695d0f0-f094-446f-b9b9-e5cbcbe9f353"] +}, Open ]], +Cell[CellGroupData[{ +Cell[368129, 9284, 368, 9, 41, "Input",ExpressionUUID->"339251a5-83bd-8642-8c5c-4fff9ebe10d7"], +Cell[368500, 9295, 195, 3, 33, "Output",ExpressionUUID->"76f2300d-ea2d-4092-a9ec-0b1691d38200"] +}, Open ]], +Cell[CellGroupData[{ +Cell[368732, 9303, 2663, 88, 285, "Input",ExpressionUUID->"ad1f9bb1-e9e6-5b4f-9f95-8eeef0cc66ae"], +Cell[371398, 9393, 195, 3, 33, "Output",ExpressionUUID->"09a034a6-7177-4d1c-a8e7-7f0cbd3e661b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[371630, 9401, 2603, 85, 211, "Input",ExpressionUUID->"4b0fdfc8-7d81-3a4d-90ed-a9bb76dc96a0"], +Cell[374236, 9488, 193, 3, 33, "Output",ExpressionUUID->"da5ddb02-8d74-4ac6-9a0a-0623f876e945"] +}, Open ]], +Cell[CellGroupData[{ +Cell[374466, 9496, 3712, 118, 327, "Input",ExpressionUUID->"31524ab0-bcc9-e948-9393-cfc225600ff2"], +Cell[378181, 9616, 193, 3, 33, "Output",ExpressionUUID->"3aae1df9-4e86-4586-8645-3e39297e58e9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[378411, 9624, 2075, 59, 234, "Input",ExpressionUUID->"486d514f-ec65-1e4e-b780-7e9487f745c3"], +Cell[380489, 9685, 584, 13, 63, "Message",ExpressionUUID->"40f1c3d3-6d6f-492b-b978-4d65d8585d60"], +Cell[381076, 9700, 590, 13, 80, "Message",ExpressionUUID->"c4ce8621-24b5-45e5-8f5b-e730a95ebf1c"], +Cell[381669, 9715, 591, 13, 80, "Message",ExpressionUUID->"1523cb05-179f-4983-81d5-1ce13cd81786"], +Cell[382263, 9730, 493, 11, 26, "Message",ExpressionUUID->"d1c3dfa4-4977-4f18-ad97-5cd16fbb6615"], +Cell[382759, 9743, 192, 3, 33, "Output",ExpressionUUID->"fd725c76-6739-417e-96cc-14da37ae9886"] +}, Open ]], +Cell[CellGroupData[{ +Cell[382988, 9751, 2077, 59, 234, "Input",ExpressionUUID->"c7144ce5-8356-d548-8854-18c538c3321c"], +Cell[385068, 9812, 584, 13, 63, "Message",ExpressionUUID->"b2864d76-1625-4ed0-8cef-4b9b4b97b3db"], +Cell[385655, 9827, 588, 13, 80, "Message",ExpressionUUID->"90791c3a-bb0d-4a6b-a2ef-3d1cd7140c9b"], +Cell[386246, 9842, 591, 13, 80, "Message",ExpressionUUID->"5283846d-6fcd-41ba-b089-5747fda741fb"], +Cell[386840, 9857, 495, 11, 26, "Message",ExpressionUUID->"baae04cc-44ed-4ba8-9dbb-669cf0d5716d"], +Cell[387338, 9870, 192, 3, 33, "Output",ExpressionUUID->"116c5862-f4fa-4ec8-92d5-b83321d03677"] +}, Open ]], +Cell[CellGroupData[{ +Cell[387567, 9878, 2051, 55, 151, "Input",ExpressionUUID->"b2db949b-a7b9-8f4b-afbd-a45df2eabf0c"], +Cell[389621, 9935, 20509, 384, 236, "Output",ExpressionUUID->"2a3460cd-8ada-445e-9852-ca017bbc5e5f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[410167, 10324, 2143, 60, 261, "Input",ExpressionUUID->"92d458c4-bfde-c447-a06c-70a15768b745"], +Cell[412313, 10386, 539, 12, 59, "Message",ExpressionUUID->"ff3c1c97-4340-45a5-9a9a-9f49e69132ce"], +Cell[412855, 10400, 541, 12, 59, "Message",ExpressionUUID->"be2852be-7be0-45fd-b278-e869dbbeb204"], +Cell[413399, 10414, 543, 12, 59, "Message",ExpressionUUID->"8e584e31-507d-4cbe-ac97-fd83b31f5602"], +Cell[413945, 10428, 494, 11, 26, "Message",ExpressionUUID->"367982dc-4849-4b40-9180-f0e8970f1b4b"], +Cell[414442, 10441, 21836, 405, 233, "Output",ExpressionUUID->"25ac54ce-c0d0-49e7-a5e0-ba32c13129c8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[436315, 10851, 232, 5, 29, "Input",ExpressionUUID->"e1c8585a-8b57-f841-82e1-8e8787fb2589"], +Cell[436550, 10858, 5914, 90, 131, "Message",ExpressionUUID->"0def0c01-8606-4d7d-a1d6-da240b4caa78"], +Cell[442467, 10950, 24491, 475, 224, "Output",ExpressionUUID->"0faa6837-f20a-476a-920c-86ff3478cf87"] +}, Open ]], +Cell[CellGroupData[{ +Cell[466995, 11430, 1616, 48, 104, "Input",ExpressionUUID->"8cd26316-ef9d-184c-93c8-dd96bfd24ea1"], +Cell[468614, 11480, 727, 15, 80, "Message",ExpressionUUID->"8768632c-a358-4964-9f3d-c0611ea884e1"], +Cell[469344, 11497, 727, 15, 80, "Message",ExpressionUUID->"f9d9d673-2569-435d-91c8-c8bcf06433b8"], +Cell[470074, 11514, 730, 15, 80, "Message",ExpressionUUID->"660c6af2-7003-47cd-ac72-7845ccca8f2e"], +Cell[470807, 11531, 495, 11, 26, "Message",ExpressionUUID->"0439f412-d8b3-4e82-8432-cc67ea705b63"], +Cell[471305, 11544, 194, 3, 33, "Output",ExpressionUUID->"6af39a80-9710-4c53-8bdb-42e07940e67e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[471536, 11552, 2271, 64, 212, "Input",ExpressionUUID->"e0ae6f48-c6a6-a24c-812a-30286a178ca1"], +Cell[473810, 11618, 586, 13, 63, "Message",ExpressionUUID->"4c5d71d7-dec2-4f71-be32-c3ce5a70312c"], +Cell[474399, 11633, 590, 13, 80, "Message",ExpressionUUID->"b3962705-f0bb-4c79-823c-78e157861eeb"], +Cell[474992, 11648, 593, 13, 80, "Message",ExpressionUUID->"9fc7655a-87a8-4acc-aba3-f41ffabe9318"], +Cell[475588, 11663, 497, 11, 26, "Message",ExpressionUUID->"6f004f19-323d-4391-bd9d-42a302496aa4"], +Cell[476088, 11676, 195, 3, 33, "Output",ExpressionUUID->"fe067fb2-5a0c-41b1-8f52-24ace4aa32f7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[476320, 11684, 2229, 63, 212, "Input",ExpressionUUID->"bce0eb71-ca49-364f-a3be-8e8c3542c5fb"], +Cell[478552, 11749, 586, 13, 63, "Message",ExpressionUUID->"8e33adfc-7d16-4103-bdb1-85d9feee83bf"], +Cell[479141, 11764, 590, 13, 80, "Message",ExpressionUUID->"6603d9e8-cc7c-4215-8fb3-4395484c1621"], +Cell[479734, 11779, 593, 13, 80, "Message",ExpressionUUID->"7b56cda5-dad8-4f21-a0a2-f6ad9480593a"], +Cell[480330, 11794, 495, 11, 26, "Message",ExpressionUUID->"f748f6c4-e561-4ac9-9eab-198ae7e0480f"], +Cell[480828, 11807, 192, 3, 33, "Output",ExpressionUUID->"44c01aaf-8dce-4024-b26d-efd48ebb8e19"] +}, Open ]], +Cell[CellGroupData[{ +Cell[481057, 11815, 2235, 63, 212, "Input",ExpressionUUID->"935796a8-6280-564a-b4d0-fc6fb6cd41f8"], +Cell[483295, 11880, 584, 13, 63, "Message",ExpressionUUID->"7d69cc25-7123-480f-8d68-6a9a5d31620d"], +Cell[483882, 11895, 590, 13, 80, "Message",ExpressionUUID->"65171f14-d814-4b70-9cfd-b71a830caa18"], +Cell[484475, 11910, 591, 13, 80, "Message",ExpressionUUID->"9b77ba5c-4e3d-4ad0-ba68-4f4e1fbae1f0"], +Cell[485069, 11925, 495, 11, 26, "Message",ExpressionUUID->"f9b44228-56c0-41b4-9fef-8fd32ecb6810"], +Cell[485567, 11938, 194, 3, 33, "Output",ExpressionUUID->"baef806c-e796-41df-a274-e5151d0d2744"] +}, Open ]], +Cell[CellGroupData[{ +Cell[485798, 11946, 236, 6, 46, "Input",ExpressionUUID->"ee52036b-90c5-e14a-aed9-684ff23ed035"], +Cell[486037, 11954, 197, 3, 33, "Output",ExpressionUUID->"25c79cd1-7d7d-4058-99cc-075313ce3af0"] +}, Open ]], +Cell[486249, 11960, 273, 6, 29, "Input",ExpressionUUID->"c6d4a146-4cca-7e4e-b483-85227a6e6b51"], +Cell[CellGroupData[{ +Cell[486547, 11970, 558, 19, 51, "Input",ExpressionUUID->"28979542-d43a-e54a-88e0-087a68060d62"], +Cell[487108, 11991, 194, 3, 33, "Output",ExpressionUUID->"c979cb63-edc7-4239-9021-41c85315d3ab"] +}, Open ]], +Cell[CellGroupData[{ +Cell[487339, 11999, 170, 5, 55, "Input",ExpressionUUID->"c3303a76-2bd9-454b-b35d-6119cde0197e"], +Cell[487512, 12006, 195, 3, 33, "Output",ExpressionUUID->"1d7afd31-a2dc-4e8c-8086-8a8c5bb9c6b9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[487744, 12014, 181, 5, 43, "Input",ExpressionUUID->"b83c9900-e14a-064d-b097-089d758a0eb6"], +Cell[487928, 12021, 195, 3, 33, "Output",ExpressionUUID->"6a256b8f-a09a-4ecc-8d8d-eabba3744858"] +}, Open ]], +Cell[CellGroupData[{ +Cell[488160, 12029, 6055, 185, 474, "Input",ExpressionUUID->"17437a0c-d9be-a242-b57f-efef95056982"], +Cell[494218, 12216, 195, 3, 33, "Output",ExpressionUUID->"a352459b-84db-4ff9-b7be-1a0f6afe0d0a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[494450, 12224, 368, 9, 41, "Input",ExpressionUUID->"b3706ed1-2e71-9941-86c4-d789cf8ea193"], +Cell[494821, 12235, 195, 3, 33, "Output",ExpressionUUID->"6e333ee4-5f19-4f4a-917b-f7b9742c0267"] +}, Open ]], +Cell[CellGroupData[{ +Cell[495053, 12243, 6122, 187, 474, "Input",ExpressionUUID->"2dad5775-7b90-2241-a408-e59b2ea47cb0"], +Cell[501178, 12432, 196, 3, 33, "Output",ExpressionUUID->"bb353587-7ca9-4368-a0be-894ea856f4e3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[501411, 12440, 368, 9, 41, "Input",ExpressionUUID->"ea913ab0-daa5-1f4d-93f4-2e6143537b5d"], +Cell[501782, 12451, 192, 3, 33, "Output",ExpressionUUID->"37a2f616-c123-4116-8563-06723ef03627"] +}, Open ]], +Cell[CellGroupData[{ +Cell[502011, 12459, 2663, 88, 285, "Input",ExpressionUUID->"53a0bfe7-010b-d445-822a-52c57127f779"], +Cell[504677, 12549, 193, 3, 33, "Output",ExpressionUUID->"f5f34bb7-3962-4e1d-84c8-3ab771fe8a11"] +}, Open ]], +Cell[CellGroupData[{ +Cell[504907, 12557, 2603, 85, 211, "Input",ExpressionUUID->"4e482268-3ff3-d74a-9ba6-ed262245ad4b"], +Cell[507513, 12644, 195, 3, 33, "Output",ExpressionUUID->"c337aeb8-b7b6-4422-a30c-33b3b396bc4f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[507745, 12652, 3712, 118, 327, "Input",ExpressionUUID->"df39eab0-0939-764b-8de6-27d0ba2be7e8"], +Cell[511460, 12772, 196, 3, 33, "Output",ExpressionUUID->"5518e873-74c3-44f2-bc74-1dbd04f06335"] +}, Open ]], +Cell[CellGroupData[{ +Cell[511693, 12780, 2075, 59, 234, "Input",ExpressionUUID->"6b25ec99-ae49-ec4d-9652-65328572e509"], +Cell[513771, 12841, 572, 12, 59, "Message",ExpressionUUID->"fbb34dca-5cbe-46e0-b9ed-7c087112bc54"], +Cell[514346, 12855, 579, 13, 83, "Message",ExpressionUUID->"429a6b4f-5b33-49e4-9b1a-38fb22734e83"], +Cell[514928, 12870, 583, 13, 63, "Message",ExpressionUUID->"de4f244d-dcdf-4b7d-ace9-035b60c67ee1"], +Cell[515514, 12885, 493, 11, 26, "Message",ExpressionUUID->"cf85cd28-3669-4da1-9ac9-91dce89f2fa0"], +Cell[516010, 12898, 195, 3, 33, "Output",ExpressionUUID->"dcafcb98-6db0-4740-8c67-8d9c1af70780"] +}, Open ]], +Cell[CellGroupData[{ +Cell[516242, 12906, 2075, 59, 234, "Input",ExpressionUUID->"3e2baf62-fab9-eb41-8de7-aa229443ac14"], +Cell[518320, 12967, 574, 12, 59, "Message",ExpressionUUID->"6a599a7a-c579-45b5-8a25-3a09c230920b"], +Cell[518897, 12981, 579, 13, 83, "Message",ExpressionUUID->"69dd2a10-a995-480e-b261-2872ec46c2f5"], +Cell[519479, 12996, 583, 13, 63, "Message",ExpressionUUID->"c889eb62-9f57-49d4-ba90-c9415fea530c"], +Cell[520065, 13011, 493, 11, 26, "Message",ExpressionUUID->"c0b7f4e1-c5a3-4374-a6cc-9567bac589cd"], +Cell[520561, 13024, 194, 3, 33, "Output",ExpressionUUID->"5fe1dde2-f455-4ebe-b8ef-d02508c73d60"] +}, Open ]], +Cell[CellGroupData[{ +Cell[520792, 13032, 2051, 55, 151, "Input",ExpressionUUID->"725c3011-bda9-4c42-96ce-9a77a5dc787c"], +Cell[522846, 13089, 20369, 383, 232, "Output",ExpressionUUID->"a3dbdbff-9708-4542-9ea9-dde1b9aea34d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[543252, 13477, 2141, 60, 261, "Input",ExpressionUUID->"1ea503b1-33a1-2744-a92d-2e1269faf5ed"], +Cell[545396, 13539, 531, 12, 59, "Message",ExpressionUUID->"a9a5100b-2bb2-497b-be56-cc9da3a96af1"], +Cell[545930, 13553, 534, 12, 59, "Message",ExpressionUUID->"2bb7c4a7-5a06-4c96-9335-7d753236c24f"], +Cell[546467, 13567, 539, 12, 59, "Message",ExpressionUUID->"58a8ebf5-b4ae-4df4-8622-337c41e5b667"], +Cell[547009, 13581, 495, 11, 26, "Message",ExpressionUUID->"94cf24c1-9781-4794-b2bd-fed91188e6dd"], +Cell[547507, 13594, 21911, 408, 236, "Output",ExpressionUUID->"0d271a84-ea1c-4b28-949f-faf0e1f92d89"] +}, Open ]], +Cell[CellGroupData[{ +Cell[569455, 14007, 232, 5, 29, "Input",ExpressionUUID->"b530b35f-2a32-0145-82a7-25a7a01bdd8f"], +Cell[569690, 14014, 5916, 90, 131, "Message",ExpressionUUID->"b7f160fd-6c78-47db-adf3-f291325c8906"], +Cell[575609, 14106, 24567, 478, 224, "Output",ExpressionUUID->"033142fd-f07b-4a8b-bb7f-785e65dddfd5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[600213, 14589, 1616, 48, 104, "Input",ExpressionUUID->"a0d63734-417a-b84f-b5c7-88ca33cb9355"], +Cell[601832, 14639, 726, 15, 80, "Message",ExpressionUUID->"1626dd6e-5e5d-4b4a-9ef7-a8ba61e52bed"], +Cell[602561, 14656, 725, 15, 80, "Message",ExpressionUUID->"55743939-7d28-4517-9143-e08994eb8663"], +Cell[603289, 14673, 727, 15, 80, "Message",ExpressionUUID->"80ee1d4d-970c-4528-bfee-a0864035c1af"], +Cell[604019, 14690, 497, 11, 26, "Message",ExpressionUUID->"38a7dcdc-c1d6-481c-9cfb-f2d3f67c4d7b"], +Cell[604519, 14703, 192, 3, 33, "Output",ExpressionUUID->"f94abfca-0fed-4dc2-b201-82b8d0c54dcf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[604748, 14711, 2274, 64, 212, "Input",ExpressionUUID->"97b28b29-5d04-5c42-a0e8-93b70f20e7f6"], +Cell[607025, 14777, 572, 12, 59, "Message",ExpressionUUID->"031bf58b-6ae4-4a58-9575-f596d0b7869e"], +Cell[607600, 14791, 579, 13, 83, "Message",ExpressionUUID->"dd014f31-48f0-44e4-ac7b-d6f0f7884e34"], +Cell[608182, 14806, 581, 13, 63, "Message",ExpressionUUID->"778ffd0e-2bdf-441e-93c3-85691f6835bd"], +Cell[608766, 14821, 493, 11, 26, "Message",ExpressionUUID->"0b2f6759-c90e-4bf4-a247-a8cd7b0ebcb1"], +Cell[609262, 14834, 197, 3, 33, "Output",ExpressionUUID->"93dd6e62-ccd6-4fe1-b3b1-f675987be228"] +}, Open ]], +Cell[CellGroupData[{ +Cell[609496, 14842, 2233, 63, 212, "Input",ExpressionUUID->"f9d1ad25-05cb-d544-8ab6-cdce838d9efe"], +Cell[611732, 14907, 574, 12, 59, "Message",ExpressionUUID->"f8cf236a-067c-417b-a735-568e48572bc1"], +Cell[612309, 14921, 581, 13, 83, "Message",ExpressionUUID->"84998f94-da2a-4f3e-9112-755947275a9b"], +Cell[612893, 14936, 583, 13, 63, "Message",ExpressionUUID->"ccfd84bf-f24c-47d3-b71c-71c716f78cec"], +Cell[613479, 14951, 495, 11, 26, "Message",ExpressionUUID->"3add9896-a062-4c78-be8b-42fc5304d7f9"], +Cell[613977, 14964, 192, 3, 33, "Output",ExpressionUUID->"110f94b7-03e1-4cf4-9435-691d49aa079e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[614206, 14972, 2233, 63, 212, "Input",ExpressionUUID->"0794d062-69d5-0a45-936e-533b19d33de6"], +Cell[616442, 15037, 574, 12, 59, "Message",ExpressionUUID->"2daabce0-f924-4143-b0ba-98b24814df6a"], +Cell[617019, 15051, 583, 13, 83, "Message",ExpressionUUID->"e4f2a8ff-e773-4bbc-9927-cf852b04f89d"], +Cell[617605, 15066, 583, 13, 63, "Message",ExpressionUUID->"70276ff7-7544-4fca-b044-09e46413b975"], +Cell[618191, 15081, 495, 11, 26, "Message",ExpressionUUID->"a3827b0b-1950-4cae-8b48-7553c492947a"], +Cell[618689, 15094, 194, 3, 33, "Output",ExpressionUUID->"568544f2-dbc1-46c2-8d5e-3d3398baa39c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[618920, 15102, 238, 6, 46, "Input",ExpressionUUID->"95c56266-e4d3-624e-89c1-cedeeeb0247a"], +Cell[619161, 15110, 196, 3, 33, "Output",ExpressionUUID->"b2053b0f-3053-4dbd-93b3-502e23665c41"] +}, Open ]], +Cell[619372, 15116, 143, 3, 29, "Input",ExpressionUUID->"7afd5de5-8380-489d-9e4f-fdc4c03f7acb"] } ] *) -(* End of internal cache information *) - diff --git a/Pu240_798-811_TitovAA/160-80_h_Pu240_14-15/h_160-80_Pu240_14-15_pr_Qw1.nb b/Pu240_798-811_TitovAA/160-80_h_Pu240_14-15/h_160-80_Pu240_14-15_pr_Qw1.nb index 14330be..0db114f 100644 --- a/Pu240_798-811_TitovAA/160-80_h_Pu240_14-15/h_160-80_Pu240_14-15_pr_Qw1.nb +++ b/Pu240_798-811_TitovAA/160-80_h_Pu240_14-15/h_160-80_Pu240_14-15_pr_Qw1.nb @@ -3,42 +3,4772 @@ (*** 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[ 675853, 16089] +NotebookOptionsPosition[ 635207, 15439] +NotebookOutlinePosition[ 635668, 15458] +CellTagsIndexPosition[ 635625, 15455] 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"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.993815385399456*^9, 3.9938153854750338`*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"b04642d5-ffb7-4865-9ffa-63fe8bc1cd00"], + +Cell[BoxData["2"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, {3.993815359458637*^9, 3.993815388522393*^9}, + 3.99395864618618*^9, 3.993959235869625*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"aa444fe5-7efa-4fab-8cb5-dd39ceb375ce"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.993815078773963*^9, 3.9938150795912027`*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"5cdaa65d-6eb3-4afc-90c3-29fe27ee2581"], + +Cell[BoxData["240"], "Output", CellChangeTimes->{ - 3.9918488509977226`*^9},ExpressionUUID->"45ed831b-459a-9a41-990f-\ -c079ad464f5d"], + 3.9913196497381973`*^9, {3.9938153597191753`*^9, 3.993815388600842*^9}, + 3.993958646269747*^9, 3.993959236129637*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"c6abd544-dea7-43ca-b640-111c8788e477"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "160"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.993815083810103*^9, 3.9938150844706078`*^9}}, + CellLabel->"In[3]:=",ExpressionUUID->"383433a9-9bd2-4ae3-8a52-edd607fe7015"], + +Cell[BoxData["160"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, {3.9938153597338867`*^9, 3.9938153886223583`*^9}, + 3.9939586462872963`*^9, 3.993959236141199*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"245224e0-0b96-4ed3-a57e-c38a375d4a01"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"80d9861d-2e36-45a0-a027-07445d92f1e5"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, {3.993815359749675*^9, 3.9938153886357193`*^9}, + 3.993958646302828*^9, 3.993959236152614*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"c05918a1-7fcf-4b41-9c6a-cfac609a0cfb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"9c7ec549-3ddb-4e3c-b133-7046aefa13fc"], + +Cell[BoxData["0.545`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, {3.99381535976541*^9, 3.993815388649356*^9}, + 3.993958646307432*^9, 3.9939592361642237`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"7457e7a9-77e9-4f0a-960f-5673afde6a70"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"ee73caec-91b1-4456-b6bf-e39b6d077c98"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, {3.993815359780024*^9, 3.993815388663189*^9}, + 3.993958646333138*^9, 3.993959236176235*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"643dfc0e-0a3b-4772-ba55-e4cd3a1d8129"] +}, 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->"f9aa966a-aea3-4181-92e8-b50edcf7732f"], + +Cell[BoxData["6.297448870500181`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, {3.9938153597958603`*^9, 3.993815388676372*^9}, + 3.993958646348687*^9, 3.993959236187949*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"e3e91273-794b-4128-b57e-904393367ba8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"1f856d4c-eb7f-4cab-aa88-e425a6d2590a"], + +Cell[BoxData["4.9982884808739705`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, {3.993815359810844*^9, 3.993815388688987*^9}, + 3.993958646364296*^9, 3.993959236199747*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"d565210e-f1ee-4f97-a548-f6a777d45c44"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.97776"}]], "Input", + CellChangeTimes->{ + 3.991799283179735*^9, {3.9938151564672937`*^9, 3.9938151618001623`*^9}}, + CellLabel->"In[9]:=",ExpressionUUID->"a4a3b7a1-16e8-4513-9a20-9e20f2efe985"], + +Cell[BoxData["0.97776`"], "Output", + CellChangeTimes->{{3.993815359825905*^9, 3.993815388702949*^9}, + 3.993958646379671*^9, 3.993959236211437*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"976a19b5-ee14-446b-b8e4-40d692d135fb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.42961"}]], "Input", + CellChangeTimes->{ + 3.991799280663351*^9, {3.993815163461789*^9, 3.99381517066012*^9}}, + CellLabel->"In[10]:=",ExpressionUUID->"d1288368-4ef7-4b09-a83b-693f5c1687e5"], + +Cell[BoxData["0.42961`"], "Output", + CellChangeTimes->{{3.993815359840959*^9, 3.993815388718238*^9}, + 3.993958646395402*^9, 3.993959236223085*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"09e6d736-bbfd-4630-8247-f1b2f128bbf5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"6eae9e77-7005-4e01-8ff7-68d604236f04"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, {3.993815359855208*^9, 3.993815388731841*^9}, + 3.993958646410099*^9, 3.993959236233918*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"697592cf-6688-49c2-8ca7-024e2a2a4b40"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"73422c0e-6070-46a0-9298-80eece4b9b2c"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, {3.993815359869401*^9, 3.993815388746388*^9}, + 3.9939586464244757`*^9, 3.993959236244486*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"2d1e2031-da76-4fbe-8e31-4bcfc14f3fd1"] +}, 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->"a4123eae-2927-4292-9d90-8d4517364f8b"], + +Cell[BoxData["2.50294615878073`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, {3.993815359883766*^9, 3.993815388758988*^9}, + 3.993958646439068*^9, 3.993959236255815*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"404042f1-6b5d-433a-96a9-5e6a9e6c1a61"] +}, 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->"6b925200-2f02-4654-a2de-7d5feb32e161"], + +Cell[BoxData["1.478321690160274`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, {3.9938153598984947`*^9, 3.993815388771246*^9}, + 3.993958646454102*^9, 3.993959236266879*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"e2b4a8da-abf2-4b29-a09c-e34a54a39fb8"] +}, 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->"4b204fd8-93a4-497e-8e7c-0712efda67f2"], + +Cell[BoxData["0.36228762750256105`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, {3.993815359913329*^9, 3.993815388784683*^9}, + 3.993958646469401*^9, 3.993959236277577*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"e7d05edc-d242-4d6b-97f3-d7b7a6bf6535"] +}, 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->"15aaa7d8-5bfc-43e0-8c47-ebf31edbb945"], + +Cell[BoxData[ + RowBox[{"-", "0.0846607903474445`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, {3.993815359929597*^9, 3.993815388797483*^9}, + 3.993958646484239*^9, 3.9939592362876368`*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"fbc21a8a-34a9-42ec-a626-6ae7ba70877c"] +}, 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->"c9fd15c3-cf7f-4fff-b816-df202d046e87"], + +Cell[BoxData[ + RowBox[{"-", "0.5809541759341679`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, {3.993815359945134*^9, 3.99381538880952*^9}, + 3.9939586464991083`*^9, 3.9939592363023787`*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"4eb7cae1-4da9-4258-a871-7e53a6c99f09"] +}, 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->"a7026fee-3761-4fc4-a83f-b75a9d01b437"], + +Cell[BoxData["0.700262319146979`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, {3.993815359960987*^9, 3.993815388821504*^9}, + 3.993958646513887*^9, 3.993959236308443*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"ef81bf07-8c73-483a-b667-d47bab305ed7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"6673914a-6035-468d-a531-9e6268a0ac41"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, {3.993815359975456*^9, 3.993815388833537*^9}, + 3.993958646528556*^9, 3.99395923633158*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"ed80f399-f7bd-4fcb-9315-1efa6c5f0e3d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel->"In[20]:=",ExpressionUUID->"ca06e577-1622-4913-9c7c-d3e91208c2d2"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, {3.9938153599899197`*^9, 3.993815388845224*^9}, + 3.99395864654298*^9, 3.993959236342636*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"c99ad6e8-7d11-4ee6-a7dc-4fd0ed13ff18"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"2902dfa9-be92-4a66-b661-0488b8fe1470"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, {3.99381536000439*^9, 3.9938153888577013`*^9}, + 3.9939586465577307`*^9, 3.993959236354624*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"f06ad94d-69f8-476d-b207-6b0e87d68133"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"fe3936ba-e1f7-4d13-a75b-c2ed7f597658"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, {3.993815360018857*^9, 3.993815388870207*^9}, + 3.99395864657239*^9, 3.993959236365851*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"3a92afa6-d38c-462e-b2d4-3323a2dcc9af"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[23]:=",ExpressionUUID->"f905b70f-1f16-45dd-b397-174899b771f4"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, {3.993815360033464*^9, 3.9938153888824987`*^9}, + 3.9939586465866947`*^9, 3.9939592363768463`*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"216f0990-9a8a-4763-96f4-9f9d11dfab7a"] +}, 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.993815261708016*^9, 3.9938152618435717`*^9}}, + CellLabel->"In[24]:=",ExpressionUUID->"3e90efe3-50bd-409f-9435-ebb9a13863e1"], + +Cell[BoxData["66"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, {3.993815360047928*^9, 3.9938153888940973`*^9}, + 3.993958646601172*^9, 3.993959236388495*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"82cfe6f9-ac14-4321-a58e-8903a8eec4b8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, {3.993815264947379*^9, 3.993815267508748*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"3a4dfe1d-e8d9-47a2-afb3-460a9d85df0b"], + +Cell[BoxData["28"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, {3.993815360062439*^9, 3.993815388907254*^9}, + 3.993958646615478*^9, 3.9939592363995256`*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"732c006b-f876-4b5f-9f3b-4dba3978c6d7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"00c60361-21cf-469e-a553-e089f78ad9b7"], + +Cell[BoxData["80"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, {3.993815360076642*^9, 3.993815388920082*^9}, + 3.993958646629941*^9, 3.993959236410165*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"20c2ca39-0295-4d34-8a4a-151e2c86d7fd"] +}, 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->"34b3e88b-7b8a-4050-b839-e595e2b09a04"], + +Cell[BoxData["0.11205`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, {3.993815360091414*^9, 3.993815388933477*^9}, + 3.993958646644432*^9, 3.993959236422176*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"69565d37-0072-49f4-86bf-03ccc9dac824"] +}, 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->"c022a2b1-cbba-4a12-808e-dff4fb7a104d"], + +Cell[BoxData[ + RowBox[{"-", "2.5616499999999998`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, {3.9938153601058817`*^9, 3.993815388947524*^9}, + 3.993958646659143*^9, 3.993959236433631*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"98fcbd96-0c88-436a-afae-1cef98dc6681"] +}, 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->"9e93496a-05df-44c7-8ea7-480f62254fca"], + +Cell[BoxData["17.9817039793298`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, {3.9938153601211452`*^9, 3.993815388962264*^9}, + 3.9939586466747503`*^9, 3.9939592364458*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"451b2212-2a59-419f-b587-8c985380436f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"a94d4f72-63ba-41bf-92e5-b8dac941f305"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, {3.993815360135828*^9, 3.993815388975617*^9}, + 3.993958646689221*^9, 3.993959236456891*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"caa5381d-47e3-4a45-836d-57ea250359a8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", " ", "1.965"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { + 3.99381519981903*^9, 3.993815203647489*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"52357539-edb0-4d26-8456-bc320ca3d609"], + +Cell[BoxData["1.965`"], "Output", + CellChangeTimes->{{3.993815360149398*^9, 3.993815388989003*^9}, + 3.993958646703771*^9, 3.993959236467237*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"14c0f9d4-b62b-4183-985a-0b148cb8590f"] +}, 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->"86e9e300-7e0f-4e8a-850c-106556848aea"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.805"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.993815206165124*^9, 3.993815207521797*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"8f7455e7-45cd-4b4d-af07-2b183e720173"], + +Cell[BoxData["0.805`"], "Output", + CellChangeTimes->{{3.993815360178578*^9, 3.993815389006834*^9}, + 3.993958646731131*^9, 3.99395923648691*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"09e48dcb-5485-4aa3-beb4-885d126c69a7"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel->"In[34]:=",ExpressionUUID->"64d22397-2efb-4191-a2f0-310db6020fc4"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "2.575"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.993815210101787*^9, 3.9938152142375507`*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"4d9b9970-b35e-4aa0-b355-74106145e1f3"], + +Cell[BoxData["2.575`"], "Output", + CellChangeTimes->{{3.993815360206645*^9, 3.993815389025874*^9}, + 3.99395864675819*^9, 3.9939592365056763`*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"999e7baf-e209-4566-a1b3-2366b4aee08f"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel->"In[36]:=",ExpressionUUID->"7d07264a-1c34-4829-a42a-8778a7da04f1"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.195"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, {3.993815217827416*^9, 3.993815218865891*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"b5955296-bd00-4504-aa30-b5a4dd4e1c58"], + +Cell[BoxData["1.195`"], "Output", + CellChangeTimes->{{3.9938153602341948`*^9, 3.9938153890444403`*^9}, + 3.993958646785417*^9, 3.993959236523686*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"bc7f1be9-1f03-4832-92e7-c4557be4ff81"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel->"In[38]:=",ExpressionUUID->"9f989820-46ba-46cc-976f-451dcf4f23d6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.213"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, {3.993815222374446*^9, + 3.993815224623548*^9}}, + CellLabel->"In[39]:=",ExpressionUUID->"d63e8c1e-384d-4dba-bd8c-b60d0bda98eb"], + +Cell[BoxData["1.213`"], "Output", + CellChangeTimes->{{3.99381536026166*^9, 3.993815389060953*^9}, + 3.9939586468116283`*^9, 3.993959236544088*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"e8889870-9692-4021-ac7b-85aa256e47c0"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel->"In[40]:=",ExpressionUUID->"93a32d2f-5ecd-4480-8527-a88a22c646b6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.576"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.9938152272320232`*^9, + 3.993815230573249*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"d63f073b-8ea6-45b2-80ec-2d72c4e1511f"], + +Cell[BoxData["0.576`"], "Output", + CellChangeTimes->{{3.99381536028929*^9, 3.993815389077355*^9}, + 3.9939586468382273`*^9, 3.9939592365629253`*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"553d78ee-941f-4467-8ea6-35d55a439522"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel->"In[42]:=",ExpressionUUID->"19258401-9132-49dd-8d76-d5741418d287"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "1.35"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.993815233406152*^9, + 3.9938152359541283`*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"eb1379fb-2903-408f-ba15-86d45be95bcd"], + +Cell[BoxData["1.35`"], "Output", + CellChangeTimes->{{3.993815360317037*^9, 3.993815389094755*^9}, + 3.993958646864482*^9, 3.99395923658039*^9}, + CellLabel->"Out[43]=",ExpressionUUID->"f1f4e140-a259-42d6-9532-ab2dfbd0092b"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel->"In[44]:=",ExpressionUUID->"172ebf25-978a-47a3-8399-d557ce823775"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "0.715"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, {3.99381523872539*^9, 3.9938152401714783`*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"ec4d3efe-c02d-4409-8d8e-c5abe71b25af"], + +Cell[BoxData["0.715`"], "Output", + CellChangeTimes->{{3.993815360345028*^9, 3.993815389112644*^9}, + 3.9939586468924627`*^9, 3.9939592365981073`*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"11c61f3e-5cc4-499e-aec3-4b9f9a431fff"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel->"In[46]:=",ExpressionUUID->"ad782cb0-d4a8-493a-865f-cb88934afaba"], + +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->"974baa1f-44ec-4189-a851-6a6c82931ae7"], + +Cell[BoxData["0.10594190044976036`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, {3.993815360436064*^9, 3.993815389153583*^9}, + 3.993958649558243*^9, 3.993959236673503*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"51b8bb06-ae44-491d-8018-be2695af21c6"] +}, 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->"81c1261a-a519-4052-bfa3-20746bdf3e3f"], + +Cell[BoxData["6.461769506994958`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, {3.9938153604720716`*^9, 3.993815389182211*^9}, + 3.993958649585424*^9, 3.9939592367032824`*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"6c98560f-6342-40cc-9c5f-7fead0fad87d"] +}, 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->"6fec22f8-2bcd-46e1-943b-1e6fc727c0b8"], + +Cell[BoxData[ + RowBox[{"-", "16.996339172809833`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, {3.9938153605547743`*^9, 3.993815389210862*^9}, + 3.993958649612328*^9, 3.993959236752701*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"87175e17-c893-46bb-9588-56497598c941"] +}, 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->"3fc3427f-9cbb-4ed9-b982-087f4d66e422"], + +Cell[BoxData[ + RowBox[{"-", "23.66687085044272`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, {3.9938153605968103`*^9, 3.9938153892445498`*^9}, + 3.9939586496469717`*^9, 3.9939592367867517`*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"5c39dbb0-2b66-471b-96b8-16f9f592f590"] +}, 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->"0625f04f-11fe-4e1d-8bb1-efc0751e5947"], + +Cell[BoxData[ + RowBox[{"-", "64.87070371918927`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, {3.9938153606388206`*^9, 3.993815389278417*^9}, + 3.993958649683728*^9, 3.993959236819531*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"e8af1b74-355b-4a5e-929e-cb122a0d3d72"] +}, 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->"988e474a-df07-42c1-ad1d-22d6d95864e8"], + +Cell[BoxData[ + RowBox[{"-", "180.27815067607094`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, {3.993815360684663*^9, 3.993815389318866*^9}, + 3.993958649726467*^9, 3.9939592368596354`*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"8cd604b3-e28d-4631-8ff7-0c30ba8de744"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[53]:=",ExpressionUUID->"c8b34fc8-229b-475d-bf5e-4d45b52ef0c8"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, {3.993815360701696*^9, 3.993815389332931*^9}, + 3.99395864974012*^9, 3.993959236872335*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"29536043-56ac-40b0-83c9-539db9d29dae"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[54]:=",ExpressionUUID->"c93adcbf-fb75-407b-b162-83e059b6e347"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, {3.9938153607167177`*^9, 3.993815389344874*^9}, + 3.993958649755121*^9, 3.993959236883649*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"e7b28861-27bb-4523-ad32-dca1308d9ea8"] +}, 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->"b151f202-408f-4a4c-aa75-0d52339ec6d6"], + +Cell[BoxData["131.34670371854253`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, {3.993815360730653*^9, 3.9938153893568707`*^9}, + 3.993958649768943*^9, 3.99395923693112*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"f3fddca0-7c04-464b-9872-fa1571072805"] +}, 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->"6d308759-d07e-4ccf-bd66-600e97365892"], + +Cell[BoxData[ + RowBox[{"-", "121.12984521648005`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, {3.993815360744831*^9, 3.993815389368895*^9}, + 3.993958649781246*^9, 3.99395923694219*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"30c4ebe6-cba0-44a9-804b-7980667a45fe"] +}, 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->"8c45a6f2-d285-4834-b235-cbeef07e8c48"], + +Cell[BoxData["137.31484295247708`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, {3.993815360759387*^9, 3.993815389381069*^9}, + 3.99395864979466*^9, 3.993959236954571*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"8140ab4b-c3a5-435f-9e93-6dc5f0054e3d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[58]:=",ExpressionUUID->"960fe648-427b-43fa-961b-eb79d7a71dae"], + +Cell[BoxData["0.36228762750256105`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, {3.993815360773879*^9, 3.993815389392989*^9}, + 3.9939586498072023`*^9, 3.993959236967781*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"62bc537b-6587-4d90-852e-107d1b567a95"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[59]:=",ExpressionUUID->"6f7fb5be-8bb6-41ca-baf5-05818eba776a"], + +Cell[BoxData[ + RowBox[{"-", "0.0846607903474445`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, {3.993815360788493*^9, 3.993815389404903*^9}, + 3.9939586498198338`*^9, 3.993959236982122*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"1951f6da-1af0-46fb-b324-23caeacf887f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[60]:=",ExpressionUUID->"701e46b2-0fb9-4a73-9922-18f5c8cb8049"], + +Cell[BoxData[ + RowBox[{"-", "0.5809541759341679`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, {3.993815360803743*^9, 3.9938153894169493`*^9}, + 3.993958649837104*^9, 3.993959236991741*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"beecd80e-573e-44b6-8d91-cb288684c6cd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"f8d84ace-ddee-44de-a7bc-880cbffd153c"], + +Cell[BoxData["0.700262319146979`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, {3.9938153608194017`*^9, 3.993815389428903*^9}, + 3.993958649850066*^9, 3.9939592370013247`*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"3fb1ef4b-6e9b-4a70-82e2-7633ed1e0cda"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[62]:=",ExpressionUUID->"4c118a39-81d3-45d2-8da1-7e309961ff1b"], + +Cell[BoxData["2.50294615878073`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, {3.993815360835617*^9, 3.9938153894408617`*^9}, + 3.993958649863385*^9, 3.9939592370111513`*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"3545b561-af12-41be-a099-dc0914076041"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[63]:=",ExpressionUUID->"63894018-20b0-44d6-9b8a-83ff7fb7cb0e"], + +Cell[BoxData["1.478321690160274`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, {3.993815360850321*^9, 3.9938153894528627`*^9}, + 3.9939586498771133`*^9, 3.993959237020591*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"1d038171-e9fb-47a3-8be3-f30625d91b08"] +}, 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->"4f5688ae-4530-488d-8fa9-79ebd2a708ef"], + +Cell[BoxData[ + RowBox[{"-", "34.35384696882824`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, {3.993815360867701*^9, 3.993815389464924*^9}, + 3.993958649889442*^9, 3.99395923703092*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"15668aa0-8042-4dbb-833d-82a4293a5fe0"] +}, 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->"4c76fc48-4d2c-4374-a6c9-63f468985be5"], + +Cell[BoxData[ + RowBox[{"-", "7.30490507028344`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, {3.993815360882195*^9, 3.9938153894771433`*^9}, + 3.993958649903101*^9, 3.993959237040588*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"62c50798-b4a5-43c9-b419-2b0251efc149"] +}, 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->"17788a04-8e24-4e34-a0f9-1e3354cfc915"], + +Cell[BoxData["96.99285674971429`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, {3.9938153608971453`*^9, 3.993815389489629*^9}, + 3.993958649916582*^9, 3.99395923705112*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"d584a53e-ec97-4ae6-bef2-e2ecbe8abf20"] +}, 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->"77d4cda4-2ac6-4636-8372-486b6b8dde3a"], + +Cell[BoxData[ + RowBox[{"-", "121.12984521648005`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, {3.9938153609115973`*^9, 3.9938153895018883`*^9}, + 3.993958649928854*^9, 3.9939592370634623`*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"3bdd97cf-d028-4666-a8ee-52803f189b52"] +}, 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->"1efc8b9d-492f-46b1-88cb-d5496cd6be24"], + +Cell[BoxData["130.00993788219364`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, {3.993815360925351*^9, 3.993815389514392*^9}, + 3.993958649941387*^9, 3.993959237074785*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"d08fba9e-5ea0-4b3a-9597-beb24d090910"] +}, 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->"d67e7983-3095-4d20-9bc2-644b495a613a"], + +Cell[BoxData["33.05673140049902`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, {3.993815360940073*^9, 3.993815389526847*^9}, + 3.993958649954606*^9, 3.993959237091518*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"b4003c46-6fdc-453f-8253-30db730cc4d5"] +}, 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->"2ad0f88e-648b-41f4-b747-131f028dd563"], + +Cell[BoxData["781.6942369302528`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, {3.9938153609551077`*^9, 3.993815389531186*^9}, + 3.993958649967162*^9, 3.993959237107003*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"673ec28a-6845-41ea-b589-c6ea462d1484"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f1", "=", " ", "0.4848271964"}]], "Input", + CellChangeTimes->{ + 3.9918488488187084`*^9, {3.993958747452752*^9, 3.993958757475491*^9}}, + CellLabel->"In[71]:=",ExpressionUUID->"bdefbecf-0aaa-4a45-a861-406cf54e52d1"], + +Cell[BoxData["0.4848271964`"], "Output", + CellChangeTimes->{3.993959237120648*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"48a3e596-da63-4a4d-8280-f0107e3edcc8"] +}, 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.2433640156"}]], "Input", + CellChangeTimes->{3.9918488509977226`*^9, 3.993958763829214*^9}, + CellLabel->"In[73]:=",ExpressionUUID->"45ed831b-459a-9a41-990f-c079ad464f5d"], + +Cell[BoxData["0.2433640156`"], "Output", + CellChangeTimes->{3.993959237142602*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"b20c53f1-894b-44e1-8bde-a33641ed4805"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848851636154*^9, 3.9918488516427097`*^9}}, + CellLabel->"In[74]:=",ExpressionUUID->"bc946e22-fdd1-8b4b-8e5a-11f4dcb03e07"], Cell[CellGroupData[{ @@ -84,13 +4814,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.6373494975860167`*^-53"], "Output", + CellChangeTimes->{3.9913279321052856`*^9, 3.993959237163958*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"8fd3b7f9-f173-4350-8196-7ef4b375488e"] }, Open ]], Cell[CellGroupData[{ @@ -124,14 +4852,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["9.923907836536108`*^-55"], "Output", + CellChangeTimes->{3.991327932129387*^9, 3.993959237175356*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"fb32bd02-f55e-42a6-bec2-1a6af9fa27ee"] }, Open ]], Cell[CellGroupData[{ @@ -164,14 +4890,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.2084266955951574`*^-54"], "Output", + CellChangeTimes->{3.991327932138338*^9, 3.9939592371861153`*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"15776590-65b5-4755-9f36-f2278e55e762"] }, Open ]], Cell[CellGroupData[{ @@ -194,13 +4918,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["16.331901248311265`"], "Output", + CellChangeTimes->{3.9913279321616154`*^9, 3.993959237196886*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"12b8da03-513f-4b5c-a919-9e35072bbc51"] }, Open ]], Cell[CellGroupData[{ @@ -225,13 +4947,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["28.154904274662304`"], "Output", + CellChangeTimes->{3.9913279321696014`*^9, 3.993959237207292*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"c3eaa25f-1d0d-48bf-808a-84be7cd0e401"] }, Open ]], Cell[CellGroupData[{ @@ -240,13 +4960,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.42269426832524`"], "Output", + CellChangeTimes->{3.9913279321926613`*^9, 3.993959237217804*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"c0df80c2-9042-4769-8731-b15f4e116a01"] }, Open ]], Cell[CellGroupData[{ @@ -255,13 +4973,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.269160500142118`"], "Output", + CellChangeTimes->{3.991327932200657*^9, 3.993959237228215*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"1341fdb5-ceb4-423e-a9fa-2deee0a805a9"] }, Open ]], Cell[CellGroupData[{ @@ -270,13 +4986,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["148.35270948933308`"], "Output", + CellChangeTimes->{3.99132793222501*^9, 3.9939592372435713`*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"7441419e-28e1-4d8d-865d-69c3e1b4b8a9"] }, Open ]], Cell[CellGroupData[{ @@ -285,13 +4999,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["23.23530229682627`"], "Output", + CellChangeTimes->{3.9913279322642612`*^9, 3.9939592372669563`*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"d4cf53d9-6c78-4931-8811-3fff7c75130d"] }, Open ]], Cell[CellGroupData[{ @@ -480,13 +5192,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.007075627808825085`"], "Output", + CellChangeTimes->{3.9913279322906475`*^9, 3.993959237281847*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"d4819def-5378-436f-b8c6-e98586033204"] }, Open ]], Cell[CellGroupData[{ @@ -499,13 +5209,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.535677071320581`"], "Output", + CellChangeTimes->{3.9913279323826447`*^9, 3.993959237397869*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"bd661483-7fc3-4cd6-8c22-49c67397d736"] }, Open ]], Cell[CellGroupData[{ @@ -696,13 +5404,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.04006584393631149`"], "Output", + CellChangeTimes->{3.991327932394655*^9, 3.993959237414035*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"277392c7-6e8c-480e-909b-da95e9be1bec"] }, Open ]], Cell[CellGroupData[{ @@ -715,13 +5421,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.427492081811309`"], "Output", + CellChangeTimes->{3.991327932491659*^9, 3.993959237456059*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"08d15a1e-e124-4ffc-ab6a-f1aebe42186a"] }, Open ]], Cell[CellGroupData[{ @@ -813,13 +5517,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.10778842427476491`"], "Output", + CellChangeTimes->{3.991327932509678*^9, 3.993959237470948*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"b271bb60-308c-450e-8994-0982ae828003"] }, Open ]], Cell[CellGroupData[{ @@ -908,13 +5610,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.892211575725235`"], "Output", + CellChangeTimes->{3.9913279325457134`*^9, 3.9939592374856243`*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"2ded5b18-4146-462e-981d-0c0f21f5d9e4"] }, Open ]], Cell[CellGroupData[{ @@ -1036,19 +5736,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.09617007986712818`"], "Output", + CellChangeTimes->{3.9913279325697117`*^9, 3.9939592374998417`*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"020408fc-b830-4f2e-8283-69848237cbfe"] }, 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 +5760,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 +5784,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -1109,68 +5808,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[\\\"1.1258542440017847`*^-212\\\", \ +RowBox[{\\\"111907153680443277505994197391\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"260731183104000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 92, 1, + 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279325947113`*^9, 3.993959237526905*^9}, CellLabel-> "During evaluation of \ -In[166]:=",ExpressionUUID->"055bf31f-37b2-724c-aeef-d922f7a205c7"], +In[92]:=",ExpressionUUID->"39730416-587b-40ae-9ea0-2498d6db1d95"], 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[\\\"7.620897572841534`*^-218\\\", \ +RowBox[{\\\"197404219092301941520573764198\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"929806995456000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 92, 2, + 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279325947113`*^9, 3.993959237532185*^9}, CellLabel-> "During evaluation of \ -In[166]:=",ExpressionUUID->"eeead3e4-54a5-7c4d-95b2-292dcdbe105a"], +In[92]:=",ExpressionUUID->"d0cb3754-d58b-4c0c-bced-bd98d64f8f20"], 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[\\\"5.158578930191422`*^-223\\\", \ +RowBox[{\\\"365000401101666289871540890002\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"213134598144000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 92, 3, + 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279325947113`*^9, 3.9939592375359993`*^9}, CellLabel-> "During evaluation of \ -In[166]:=",ExpressionUUID->"87e34a07-7a78-bf46-b222-6e72d11fd18d"], +In[92]:=",ExpressionUUID->"b6b5a1ae-7885-404f-a55d-5b103b12943d"], 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, 4, 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279325947113`*^9, 3.9939592375396633`*^9}, CellLabel-> "During evaluation of \ -In[166]:=",ExpressionUUID->"1cf9faa5-3432-3349-b45a-58344623fc63"], +In[92]:=",ExpressionUUID->"840254ef-9b71-4c7e-a036-d0e002f17663"], -Cell[BoxData["4.912080544466506`"], "Output", - CellChangeTimes->{3.9913279359974174`*^9}, - CellLabel-> - "Out[166]=",ExpressionUUID->"acb58738-85fd-0f40-b8fa-3a779aa79369"] +Cell[BoxData["10.535677071320602`"], "Output", + CellChangeTimes->{3.9913279359974174`*^9, 3.993959238802884*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"27175306-5f63-4b60-869f-c810b7ad6c6d"] }, Open ]], Cell[CellGroupData[{ @@ -1185,7 +5889,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 +5913,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -1232,68 +5937,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[\\\"1.1258542440017847`*^-212\\\", \ +RowBox[{\\\"111907153680443277505994197391\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"260731183104000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 93, 5, + 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327936033827*^9, 3.993959238884017*^9}, CellLabel-> "During evaluation of \ -In[167]:=",ExpressionUUID->"6fb03e9c-623b-b24d-bccd-c05b2662537c"], +In[93]:=",ExpressionUUID->"5b746853-635c-4c02-8c8d-584f49a071d6"], 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[\\\"7.620897572841534`*^-218\\\", \ +RowBox[{\\\"197404219092301941520573764198\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"929806995456000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 93, 6, + 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327936033827*^9, 3.993959238892531*^9}, CellLabel-> "During evaluation of \ -In[167]:=",ExpressionUUID->"410ed293-2b04-a346-b193-5e006759c884"], +In[93]:=",ExpressionUUID->"b84cb90e-8f92-4047-b2fb-b476317e9df7"], 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[\\\"5.158578930191422`*^-223\\\", \ +RowBox[{\\\"365000401101666289871540890002\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"213134598144000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 93, 7, + 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327936033827*^9, 3.993959238897332*^9}, CellLabel-> "During evaluation of \ -In[167]:=",ExpressionUUID->"9e59cf72-2df3-6741-910e-ddcc2125aa8b"], +In[93]:=",ExpressionUUID->"32dd0491-c786-459a-981d-7e3efdb0c35c"], 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, 8, 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327936033827*^9, 3.993959238901739*^9}, CellLabel-> "During evaluation of \ -In[167]:=",ExpressionUUID->"6f223de4-f4b9-0a4c-b3b3-f489f4259713"], +In[93]:=",ExpressionUUID->"86bdec20-44c8-4a78-bc58-4f266e24c7ff"], -Cell[BoxData["7.868441587445692`"], "Output", - CellChangeTimes->{3.9913279393385086`*^9}, - CellLabel-> - "Out[167]=",ExpressionUUID->"d8300689-0813-6149-9a7f-c358ba826aac"] +Cell[BoxData["4.4274920818113115`"], "Output", + CellChangeTimes->{3.9913279393385086`*^9, 3.9939592401840267`*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"8539b052-e691-429e-b628-97494db8c63d"] }, Open ]], Cell[CellGroupData[{ @@ -1303,141 +6013,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:eJwV1Hk8VN0fB3B7Ej2W7EvZt0gzQ5Scr60iJFEIacy9lcpaUoQWnjZrnvCU +pUgSskVJnrZfqaZoXzQhS80YM8yMrVK/44/7uq/369z7Od/zvedcfXq0HyEh +Jib2HV9z99gX1qat3S+cNG5xXVQV2ciJV2FLd6tBOh88d8+5r9Qu38itHdH3 +0wfn7Mt4LiNP/R9qzKHWqWE3JKY+kHZjIh+Ljk517JOPNO6mVr9EWi4SNE3s +W92xJb8ob5Hzhz98LWzOp6fJB29/QGPcll862FpDhlsnXT8j4zTT4MXY6/nJ +DvHMXmSVt1HWALvjF2dBYnU/kjC0nWeM/e6IelJL1AD6Q3m12QybJ+PGEVGG +kNd9sylLbJkzMUHUqWE076X992XYekrFnbG3v6P8bRIWNGwf7clKnisXycze +K12NTZYZqFnJ8tBh+ZuvXbBTjTek72by0ecLOwLXYX9Qf7N8X/U4anYWbvLH +ZgRH7jp7RoAmNnc9DcYeuyB2sTFKiA7zGHnbsWUNrBTHKRMorrJdJQY7n/Fg +raLqJLr6OOX5AewlV4JSl01NIpm9P96nYtsvzeDtvT2Nxtz1enOwd9r1Mjmu +v9A2pNHSgi1K3C8lZzKL3mdXTtzFTru9wNFc9jeq28lLf4ZdCPbXdjD/IKmW +6sL+ufoud7rFVYsD8fJthpISG1U/Ott3RFsCeAk2XnrYY9/CknPPSIBFtRvd +EjvZYqKpPkoSMtqL0tZg51/XN+RTpGHq8mR6Gvanbm7H73JpYD3XfZmNvUTQ +GrxQVQbSTv7eU4pdQ/PJs5qSgej/uOf+w35465D4ntuysH51cpOkMhtNPHjd ++91VHtRcd/51HlvZS14xqUMeViq+WNyAbfPGDRQcFMB2zaLsx9iRgzfKllsv +hOBx51MT2DESTJvV8opQShgIA1TYaMigbjx9Ugk0u6azzBbh/pBP53dRlSGo +lch0w5a4NqyvEasMFO0mTjj2Eupiv+oRZYgK5t/7FzvYNafxRZ8KCN6OflVW +ZaOuiLh49WeqgOok+YvU2OjLlazT4bJqcONlYo8dNnekuvyquxpsOfLCJAhb +bt/A61V31UDyhPanEmy34/608Bvq8NzDsclanY3aKuwmqko1wYhWtCxcg40q +hn4krNynC052D3zltNloXcDfX+JrdeEKqlKwxeY+VFlTO6wLlqS7bjg2rWKp +6pIgPbgpW0VrxX5ID2uSdloMAzkL3XbpsJGA33fg+7ElwGJvG/qsy0Yqe92a +m7wNINNMjiKhz0bDFXI7fSMNwP38mPsK7Jufu7VHMwzg/ExWzR7sEK/QYyZ3 +DaBxrzD2A3aFZYJfEcUQ2ljBrCYDPD/nyliKuhFs7ymzO2TERv47Flh59hsD +98SIwM2MjVBCAGXLrDHQStP1jmFbpJeuYGiaQPb+sqJ72GLlVJeUjSZw1CMw +BZmzUe2XrVsa75lA2YcucWSBz+fmmiNal0xBK/bDmNdSXJ+b9zsO3RyUW9Si +K2zYqHxTQc9UijlsnN92ioudRe/vkzpvDtsUWBO05Xh/p+0f0XttDpo/L7Y9 +wlZqLxbb5GoBs6Ymv0cpeP9QeRa3DS2BIqawd70tG2kbZKeeHlwKJm+FbOeV +bNR+SmQ+I2EF31ZtGP0XO0QY9IbUt4Kf/jQfEXbJQyNzlzArkHM5b1a1io0M +drS9mn5vBa7RH9Gi1Xi9NUPG5DNrMLMSn55FbKSrrUcuCbKB1txVWepr2Gjp +5X3yPxEFhPZ8z4hNbERnHJuw8qEAubJhKRO70DDvS3gIBd49Hthm689Gkpeu +1z9KpIBpX1GbbAA+byUc/7wGCtjS3Z2bNuP/aWF4sbkhFe7rxJ9VD8bf97SX +daAMDd5FsDx0t7PRxTgj3xtMWzC0mRToxLBRdwJacfyyAxjT7kf9ymcj/bC3 +PqF7VsOTtYM5sx1sRPxpqdM9CPCf8bzYwBE2Uh+5OU+d7gK9nN+NSvoctI/q ++DnPwg1abvoEJQdyEH30V6cKxx2cHss8aD3LQbUu8fNKu9ZCjdNBp5iPHFQh +irxXk+8BVeaBoTmLR9C0s8bzh6nrASX1+86PHUEsMcnx/u3ewP1mn7nv0QiK +0onOOWK4Abykuap9WlxUt6vz7j/pvlBWWxiQlsRFh4SaU5a7NoKoSbXa+xMX +TXiu2fx4mx9IPU5v+OI+ihy25joPbdwEhZI7M02bR9ErzeLIh1R/kK4PK/yl +x0Nalcfaq8wCoLWoq+TNOR662Wfh5aOwGeQ/JXFt5PhI783YjoTRzZAZcvCd +XQofUf/JrSnv2wKrR9W/iH7zUbGU0DrvQSAIrBR16h3HUIvzsk/pt4Jgx4U7 +E+JpY6hwxSmlX9XBkGWTWs28P4a6ei5nUM9shbQLSVax4uPohvcFo5i0EOjo +Z4btdh9H43s3iUUxQqG7rGthwfFxNLHGfCfPNQzESnks7r1xVDX6cTrebhu8 +mz31OlpSgAIvXo4IlQ+Hz79CS2yRADU1rt8m+Xc4cCYTrbRSBMhB+9XMyZlw +iBtQqb/UIkCGfTs+vdy1HThSt5tLRgRocMHuDRcGtgNTdnqYpy9E3Vk+EWsD +6HCrx6fXdaMQ5SeWLtjfTYeUEoWCA2lC1N7xZybCIwJieeIbXaqF6K8Q+Jva +FgEFMSj/HVOIlix63KXTHgFmcafa6M+FyIbprSHTEQHHLtqd5mH7OW69+uFe +BBz9Fmwp3YXzdRKeHX4SAbNLYhjWL4VIi3Xtr84PEWCa21MZ81aIjMLUC0Om +IiDgZeb7JpYQOYTzqtJpDPh2/QRpMypElUVj8T52DPhxnnatBHvRa4GTuj0D +dA8xy+R5QsRzn3pTtYoB8vVHS75hV1iKiTNdGFBTFfq1aEyIFk4pBSlvZID7 +x7MpfKEQDWbazi/dy4BIntvFsB9ClHU7edfNSgYUWd6J95ARob2UAofEKgb4 +FBe0X8T2utow376aAX90FFtmsOUKhq+21jKA43etrWqeCKXH+XJamhngbLF6 +vuR8EUo2N9p94z4DjmYeb6haIEKRBc/2NH5hwOGoqC+tiiLksXDYMa4P523I +M5JREiGzdDEFylcGnHX6rumPPRxnW9swxADTw3+U+NjbfUpH67kMEJCNdvoq +IhQoHR91/QcDDGYkPRJURWhtvFZMjRoB705t8RzQFKH7pRmeeRoE2LJ6TK20 +RMiRKTBK1CLA4/mjigRsG+NnH131CLj7rCxZVluENN8nufYYE5B9QKvcVEeE +Rlay1ORsCdA1Ebu3SU+EsiXK7uzYRACr6R8B3QCvf5l8oXcAAYur+JVl2Me3 +JsZRtxDgl7dhhoWd2Oxr+ieYAAmYObDFENdPiueeoxMwatPb424kQtSndMb/ +Ygk4yDhqq2giQu9zjRcY5hCQ2PGEH2wuQnVIYef3XALuXFwnexL7+KjoYe1Z +Akrrk562YFM8HqbYF+A8yuB6JQsRyhKLEHiXEHC9WM7lPvaa6LKPiTUEeFVS +J1WWipCu7gk7pzoC6tm/Kx2xRU+jz0rWEzDA0BYnsC+ZIO+sJgJaxm0amrFn +Way75W0ExBUvE/O1EqFmL+2qF50ETAfX+idYi9DpHxLS+U8JoOWMFxRh06s4 +24OYBNh52Rxvx1aUatMe7CLAOuTkFvFlIrTndmD2zDsCqq8uYWdgG1qcSzAa +IiBH40HTERsR+vH+8Gv2MAHPmbHHS7G70wmb698JSG3unm3HTumncRy4BGQ4 +ZnEmsT8Vvg7dICRA+k7+NXK5COXNU3I/JE5CzVBIpy1FhNoFrK37JEk403R4 +3Bf7G6s6LkqaBJm7x2p3Yzs2u5XR55MwL23pl1Ls4fDEn55KJGR6R+tLUnH9 +Xu7K7iokkA72/VrYq1YomyNVEti0+1QKdo5CzWaqJgmSLbK52+bG23obtPVJ +uF7Ot7yBTV6u6VQ1JCF2re+RJ3PP5xzs/cuYBFGN3y4W9jCpoiBlTkLHSetx +SRoeV1m7k2tDgmvkQO967LbfKqnDFBL4cYInIdhD7L5/+mgkpL8+sWYv9sq7 +hx68sSehvAdNncEe3FOndwdIaFQ4afcYe2Fgkm2rC16v3/HmN9gOruu8GtxI +mIkcf9iPnaX59eDldSQYvVAv/oF9U+p6TqknCRrlTIaMrQgN8JOuFHmR4ETn +dChh2z9SfZvpS0LtmUALU2x6w9eRv/1IGF18edVy7MwL1yWO+pPgM+rXuxL7 +a5yHTUIg7n/YM5YXtkKY2tqYYNyfx3n2AXN5HgOhkSEkxE00G4fOvb/48Omw +cBLuiEu17sa+Ked5KZBOwjcX661xc3kTarf8GCRMK9TlJs7l9Q90eZEkRLsf +DU6Zy2PWD6/ZScKR3qs3js3V13p4FiJJkB82LD8xl3/Jc9GqPSSUJPANMufy +M9UtbaNISLq/wDZ3Lj9x0HlZDAnZCxM/5mPLMxoCzeNIONhEVSzEXrEhJdpw +HwkZuk4f/53LX7k+QzeBhDbmOVox9hljjWL1RBI6/VcblGK3KA41KR0iQSF0 ++aUy7P6fDU8XJJNQXBbXfHEu/1tKv3QK7i9PLOgStt2r9dN/UklgmH3OnvP/ +AftTwuQ= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -1451,106 +6161,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:eJwV1Hk8VN0fB3B7Ej2W7EvZt0gzQ5Scr60iJFEIacy9lcpaUoQWnjZrnvCU +pUgSskVJnrZfqaZoXzQhS80YM8yMrVK/44/7uq/369z7Od/zvedcfXq0HyEh +Jib2HV9z99gX1qat3S+cNG5xXVQV2ciJV2FLd6tBOh88d8+5r9Qu38itHdH3 +0wfn7Mt4LiNP/R9qzKHWqWE3JKY+kHZjIh+Ljk517JOPNO6mVr9EWi4SNE3s +W92xJb8ob5Hzhz98LWzOp6fJB29/QGPcll862FpDhlsnXT8j4zTT4MXY6/nJ +DvHMXmSVt1HWALvjF2dBYnU/kjC0nWeM/e6IelJL1AD6Q3m12QybJ+PGEVGG +kNd9sylLbJkzMUHUqWE076X992XYekrFnbG3v6P8bRIWNGwf7clKnisXycze +K12NTZYZqFnJ8tBh+ZuvXbBTjTek72by0ecLOwLXYX9Qf7N8X/U4anYWbvLH +ZgRH7jp7RoAmNnc9DcYeuyB2sTFKiA7zGHnbsWUNrBTHKRMorrJdJQY7n/Fg +raLqJLr6OOX5AewlV4JSl01NIpm9P96nYtsvzeDtvT2Nxtz1enOwd9r1Mjmu +v9A2pNHSgi1K3C8lZzKL3mdXTtzFTru9wNFc9jeq28lLf4ZdCPbXdjD/IKmW +6sL+ufoud7rFVYsD8fJthpISG1U/Ott3RFsCeAk2XnrYY9/CknPPSIBFtRvd +EjvZYqKpPkoSMtqL0tZg51/XN+RTpGHq8mR6Gvanbm7H73JpYD3XfZmNvUTQ +GrxQVQbSTv7eU4pdQ/PJs5qSgej/uOf+w35465D4ntuysH51cpOkMhtNPHjd ++91VHtRcd/51HlvZS14xqUMeViq+WNyAbfPGDRQcFMB2zaLsx9iRgzfKllsv +hOBx51MT2DESTJvV8opQShgIA1TYaMigbjx9Ugk0u6azzBbh/pBP53dRlSGo +lch0w5a4NqyvEasMFO0mTjj2Eupiv+oRZYgK5t/7FzvYNafxRZ8KCN6OflVW +ZaOuiLh49WeqgOok+YvU2OjLlazT4bJqcONlYo8dNnekuvyquxpsOfLCJAhb +bt/A61V31UDyhPanEmy34/608Bvq8NzDsclanY3aKuwmqko1wYhWtCxcg40q +hn4krNynC052D3zltNloXcDfX+JrdeEKqlKwxeY+VFlTO6wLlqS7bjg2rWKp +6pIgPbgpW0VrxX5ID2uSdloMAzkL3XbpsJGA33fg+7ElwGJvG/qsy0Yqe92a +m7wNINNMjiKhz0bDFXI7fSMNwP38mPsK7Jufu7VHMwzg/ExWzR7sEK/QYyZ3 +DaBxrzD2A3aFZYJfEcUQ2ljBrCYDPD/nyliKuhFs7ymzO2TERv47Flh59hsD +98SIwM2MjVBCAGXLrDHQStP1jmFbpJeuYGiaQPb+sqJ72GLlVJeUjSZw1CMw +BZmzUe2XrVsa75lA2YcucWSBz+fmmiNal0xBK/bDmNdSXJ+b9zsO3RyUW9Si +K2zYqHxTQc9UijlsnN92ioudRe/vkzpvDtsUWBO05Xh/p+0f0XttDpo/L7Y9 +wlZqLxbb5GoBs6Ymv0cpeP9QeRa3DS2BIqawd70tG2kbZKeeHlwKJm+FbOeV +bNR+SmQ+I2EF31ZtGP0XO0QY9IbUt4Kf/jQfEXbJQyNzlzArkHM5b1a1io0M +drS9mn5vBa7RH9Gi1Xi9NUPG5DNrMLMSn55FbKSrrUcuCbKB1txVWepr2Gjp +5X3yPxEFhPZ8z4hNbERnHJuw8qEAubJhKRO70DDvS3gIBd49Hthm689Gkpeu +1z9KpIBpX1GbbAA+byUc/7wGCtjS3Z2bNuP/aWF4sbkhFe7rxJ9VD8bf97SX +daAMDd5FsDx0t7PRxTgj3xtMWzC0mRToxLBRdwJacfyyAxjT7kf9ymcj/bC3 +PqF7VsOTtYM5sx1sRPxpqdM9CPCf8bzYwBE2Uh+5OU+d7gK9nN+NSvoctI/q ++DnPwg1abvoEJQdyEH30V6cKxx2cHss8aD3LQbUu8fNKu9ZCjdNBp5iPHFQh +irxXk+8BVeaBoTmLR9C0s8bzh6nrASX1+86PHUEsMcnx/u3ewP1mn7nv0QiK +0onOOWK4Abykuap9WlxUt6vz7j/pvlBWWxiQlsRFh4SaU5a7NoKoSbXa+xMX +TXiu2fx4mx9IPU5v+OI+ihy25joPbdwEhZI7M02bR9ErzeLIh1R/kK4PK/yl +x0Nalcfaq8wCoLWoq+TNOR662Wfh5aOwGeQ/JXFt5PhI783YjoTRzZAZcvCd +XQofUf/JrSnv2wKrR9W/iH7zUbGU0DrvQSAIrBR16h3HUIvzsk/pt4Jgx4U7 +E+JpY6hwxSmlX9XBkGWTWs28P4a6ei5nUM9shbQLSVax4uPohvcFo5i0EOjo +Z4btdh9H43s3iUUxQqG7rGthwfFxNLHGfCfPNQzESnks7r1xVDX6cTrebhu8 +mz31OlpSgAIvXo4IlQ+Hz79CS2yRADU1rt8m+Xc4cCYTrbRSBMhB+9XMyZlw +iBtQqb/UIkCGfTs+vdy1HThSt5tLRgRocMHuDRcGtgNTdnqYpy9E3Vk+EWsD +6HCrx6fXdaMQ5SeWLtjfTYeUEoWCA2lC1N7xZybCIwJieeIbXaqF6K8Q+Jva +FgEFMSj/HVOIlix63KXTHgFmcafa6M+FyIbprSHTEQHHLtqd5mH7OW69+uFe +BBz9Fmwp3YXzdRKeHX4SAbNLYhjWL4VIi3Xtr84PEWCa21MZ81aIjMLUC0Om +IiDgZeb7JpYQOYTzqtJpDPh2/QRpMypElUVj8T52DPhxnnatBHvRa4GTuj0D +dA8xy+R5QsRzn3pTtYoB8vVHS75hV1iKiTNdGFBTFfq1aEyIFk4pBSlvZID7 +x7MpfKEQDWbazi/dy4BIntvFsB9ClHU7edfNSgYUWd6J95ARob2UAofEKgb4 +FBe0X8T2utow376aAX90FFtmsOUKhq+21jKA43etrWqeCKXH+XJamhngbLF6 +vuR8EUo2N9p94z4DjmYeb6haIEKRBc/2NH5hwOGoqC+tiiLksXDYMa4P523I +M5JREiGzdDEFylcGnHX6rumPPRxnW9swxADTw3+U+NjbfUpH67kMEJCNdvoq +IhQoHR91/QcDDGYkPRJURWhtvFZMjRoB705t8RzQFKH7pRmeeRoE2LJ6TK20 +RMiRKTBK1CLA4/mjigRsG+NnH131CLj7rCxZVluENN8nufYYE5B9QKvcVEeE +Rlay1ORsCdA1Ebu3SU+EsiXK7uzYRACr6R8B3QCvf5l8oXcAAYur+JVl2Me3 +JsZRtxDgl7dhhoWd2Oxr+ieYAAmYObDFENdPiueeoxMwatPb424kQtSndMb/ +Ygk4yDhqq2giQu9zjRcY5hCQ2PGEH2wuQnVIYef3XALuXFwnexL7+KjoYe1Z +Akrrk562YFM8HqbYF+A8yuB6JQsRyhKLEHiXEHC9WM7lPvaa6LKPiTUEeFVS +J1WWipCu7gk7pzoC6tm/Kx2xRU+jz0rWEzDA0BYnsC+ZIO+sJgJaxm0amrFn +Way75W0ExBUvE/O1EqFmL+2qF50ETAfX+idYi9DpHxLS+U8JoOWMFxRh06s4 +24OYBNh52Rxvx1aUatMe7CLAOuTkFvFlIrTndmD2zDsCqq8uYWdgG1qcSzAa +IiBH40HTERsR+vH+8Gv2MAHPmbHHS7G70wmb698JSG3unm3HTumncRy4BGQ4 +ZnEmsT8Vvg7dICRA+k7+NXK5COXNU3I/JE5CzVBIpy1FhNoFrK37JEk403R4 +3Bf7G6s6LkqaBJm7x2p3Yzs2u5XR55MwL23pl1Ls4fDEn55KJGR6R+tLUnH9 +Xu7K7iokkA72/VrYq1YomyNVEti0+1QKdo5CzWaqJgmSLbK52+bG23obtPVJ +uF7Ot7yBTV6u6VQ1JCF2re+RJ3PP5xzs/cuYBFGN3y4W9jCpoiBlTkLHSetx +SRoeV1m7k2tDgmvkQO967LbfKqnDFBL4cYInIdhD7L5/+mgkpL8+sWYv9sq7 +hx68sSehvAdNncEe3FOndwdIaFQ4afcYe2Fgkm2rC16v3/HmN9gOruu8GtxI +mIkcf9iPnaX59eDldSQYvVAv/oF9U+p6TqknCRrlTIaMrQgN8JOuFHmR4ETn +dChh2z9SfZvpS0LtmUALU2x6w9eRv/1IGF18edVy7MwL1yWO+pPgM+rXuxL7 +a5yHTUIg7n/YM5YXtkKY2tqYYNyfx3n2AXN5HgOhkSEkxE00G4fOvb/48Omw +cBLuiEu17sa+Ked5KZBOwjcX661xc3kTarf8GCRMK9TlJs7l9Q90eZEkRLsf +DU6Zy2PWD6/ZScKR3qs3js3V13p4FiJJkB82LD8xl3/Jc9GqPSSUJPANMufy +M9UtbaNISLq/wDZ3Lj9x0HlZDAnZCxM/5mPLMxoCzeNIONhEVSzEXrEhJdpw +HwkZuk4f/53LX7k+QzeBhDbmOVox9hljjWL1RBI6/VcblGK3KA41KR0iQSF0 ++aUy7P6fDU8XJJNQXBbXfHEu/1tKv3QK7i9PLOgStt2r9dN/UklgmH3OnvP/ +AftTwuQ= "]]}, "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.7832132632372888, + 1.2630944842844878`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7832132632372906}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.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 +6272,132 @@ f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.8190010003206292, 1.212160280392001}}, + "PlotRange" -> {{0, 180}, {0.7832132632372888, + 1.2630944842844878`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.819001000320631}, + "AxesOrigin" -> {0, 0.7832132632372906}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 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:eJwV1Hk8VN0fB3B7Ej2W7EvZt0gzQ5Scr60iJFEIacy9lcpaUoQWnjZrnvCU +pUgSskVJnrZfqaZoXzQhS80YM8yMrVK/44/7uq/369z7Od/zvedcfXq0HyEh +Jib2HV9z99gX1qat3S+cNG5xXVQV2ciJV2FLd6tBOh88d8+5r9Qu38itHdH3 +0wfn7Mt4LiNP/R9qzKHWqWE3JKY+kHZjIh+Ljk517JOPNO6mVr9EWi4SNE3s +W92xJb8ob5Hzhz98LWzOp6fJB29/QGPcll862FpDhlsnXT8j4zTT4MXY6/nJ +DvHMXmSVt1HWALvjF2dBYnU/kjC0nWeM/e6IelJL1AD6Q3m12QybJ+PGEVGG +kNd9sylLbJkzMUHUqWE076X992XYekrFnbG3v6P8bRIWNGwf7clKnisXycze +K12NTZYZqFnJ8tBh+ZuvXbBTjTek72by0ecLOwLXYX9Qf7N8X/U4anYWbvLH +ZgRH7jp7RoAmNnc9DcYeuyB2sTFKiA7zGHnbsWUNrBTHKRMorrJdJQY7n/Fg +raLqJLr6OOX5AewlV4JSl01NIpm9P96nYtsvzeDtvT2Nxtz1enOwd9r1Mjmu +v9A2pNHSgi1K3C8lZzKL3mdXTtzFTru9wNFc9jeq28lLf4ZdCPbXdjD/IKmW +6sL+ufoud7rFVYsD8fJthpISG1U/Ott3RFsCeAk2XnrYY9/CknPPSIBFtRvd +EjvZYqKpPkoSMtqL0tZg51/XN+RTpGHq8mR6Gvanbm7H73JpYD3XfZmNvUTQ +GrxQVQbSTv7eU4pdQ/PJs5qSgej/uOf+w35465D4ntuysH51cpOkMhtNPHjd ++91VHtRcd/51HlvZS14xqUMeViq+WNyAbfPGDRQcFMB2zaLsx9iRgzfKllsv +hOBx51MT2DESTJvV8opQShgIA1TYaMigbjx9Ugk0u6azzBbh/pBP53dRlSGo +lch0w5a4NqyvEasMFO0mTjj2Eupiv+oRZYgK5t/7FzvYNafxRZ8KCN6OflVW +ZaOuiLh49WeqgOok+YvU2OjLlazT4bJqcONlYo8dNnekuvyquxpsOfLCJAhb +bt/A61V31UDyhPanEmy34/608Bvq8NzDsclanY3aKuwmqko1wYhWtCxcg40q +hn4krNynC052D3zltNloXcDfX+JrdeEKqlKwxeY+VFlTO6wLlqS7bjg2rWKp +6pIgPbgpW0VrxX5ID2uSdloMAzkL3XbpsJGA33fg+7ElwGJvG/qsy0Yqe92a +m7wNINNMjiKhz0bDFXI7fSMNwP38mPsK7Jufu7VHMwzg/ExWzR7sEK/QYyZ3 +DaBxrzD2A3aFZYJfEcUQ2ljBrCYDPD/nyliKuhFs7ymzO2TERv47Flh59hsD +98SIwM2MjVBCAGXLrDHQStP1jmFbpJeuYGiaQPb+sqJ72GLlVJeUjSZw1CMw +BZmzUe2XrVsa75lA2YcucWSBz+fmmiNal0xBK/bDmNdSXJ+b9zsO3RyUW9Si +K2zYqHxTQc9UijlsnN92ioudRe/vkzpvDtsUWBO05Xh/p+0f0XttDpo/L7Y9 +wlZqLxbb5GoBs6Ymv0cpeP9QeRa3DS2BIqawd70tG2kbZKeeHlwKJm+FbOeV +bNR+SmQ+I2EF31ZtGP0XO0QY9IbUt4Kf/jQfEXbJQyNzlzArkHM5b1a1io0M +drS9mn5vBa7RH9Gi1Xi9NUPG5DNrMLMSn55FbKSrrUcuCbKB1txVWepr2Gjp +5X3yPxEFhPZ8z4hNbERnHJuw8qEAubJhKRO70DDvS3gIBd49Hthm689Gkpeu +1z9KpIBpX1GbbAA+byUc/7wGCtjS3Z2bNuP/aWF4sbkhFe7rxJ9VD8bf97SX +daAMDd5FsDx0t7PRxTgj3xtMWzC0mRToxLBRdwJacfyyAxjT7kf9ymcj/bC3 +PqF7VsOTtYM5sx1sRPxpqdM9CPCf8bzYwBE2Uh+5OU+d7gK9nN+NSvoctI/q ++DnPwg1abvoEJQdyEH30V6cKxx2cHss8aD3LQbUu8fNKu9ZCjdNBp5iPHFQh +irxXk+8BVeaBoTmLR9C0s8bzh6nrASX1+86PHUEsMcnx/u3ewP1mn7nv0QiK +0onOOWK4Abykuap9WlxUt6vz7j/pvlBWWxiQlsRFh4SaU5a7NoKoSbXa+xMX +TXiu2fx4mx9IPU5v+OI+ihy25joPbdwEhZI7M02bR9ErzeLIh1R/kK4PK/yl +x0Nalcfaq8wCoLWoq+TNOR662Wfh5aOwGeQ/JXFt5PhI783YjoTRzZAZcvCd +XQofUf/JrSnv2wKrR9W/iH7zUbGU0DrvQSAIrBR16h3HUIvzsk/pt4Jgx4U7 +E+JpY6hwxSmlX9XBkGWTWs28P4a6ei5nUM9shbQLSVax4uPohvcFo5i0EOjo +Z4btdh9H43s3iUUxQqG7rGthwfFxNLHGfCfPNQzESnks7r1xVDX6cTrebhu8 +mz31OlpSgAIvXo4IlQ+Hz79CS2yRADU1rt8m+Xc4cCYTrbRSBMhB+9XMyZlw +iBtQqb/UIkCGfTs+vdy1HThSt5tLRgRocMHuDRcGtgNTdnqYpy9E3Vk+EWsD +6HCrx6fXdaMQ5SeWLtjfTYeUEoWCA2lC1N7xZybCIwJieeIbXaqF6K8Q+Jva +FgEFMSj/HVOIlix63KXTHgFmcafa6M+FyIbprSHTEQHHLtqd5mH7OW69+uFe +BBz9Fmwp3YXzdRKeHX4SAbNLYhjWL4VIi3Xtr84PEWCa21MZ81aIjMLUC0Om +IiDgZeb7JpYQOYTzqtJpDPh2/QRpMypElUVj8T52DPhxnnatBHvRa4GTuj0D +dA8xy+R5QsRzn3pTtYoB8vVHS75hV1iKiTNdGFBTFfq1aEyIFk4pBSlvZID7 +x7MpfKEQDWbazi/dy4BIntvFsB9ClHU7edfNSgYUWd6J95ARob2UAofEKgb4 +FBe0X8T2utow376aAX90FFtmsOUKhq+21jKA43etrWqeCKXH+XJamhngbLF6 +vuR8EUo2N9p94z4DjmYeb6haIEKRBc/2NH5hwOGoqC+tiiLksXDYMa4P523I +M5JREiGzdDEFylcGnHX6rumPPRxnW9swxADTw3+U+NjbfUpH67kMEJCNdvoq +IhQoHR91/QcDDGYkPRJURWhtvFZMjRoB705t8RzQFKH7pRmeeRoE2LJ6TK20 +RMiRKTBK1CLA4/mjigRsG+NnH131CLj7rCxZVluENN8nufYYE5B9QKvcVEeE +Rlay1ORsCdA1Ebu3SU+EsiXK7uzYRACr6R8B3QCvf5l8oXcAAYur+JVl2Me3 +JsZRtxDgl7dhhoWd2Oxr+ieYAAmYObDFENdPiueeoxMwatPb424kQtSndMb/ +Ygk4yDhqq2giQu9zjRcY5hCQ2PGEH2wuQnVIYef3XALuXFwnexL7+KjoYe1Z +Akrrk562YFM8HqbYF+A8yuB6JQsRyhKLEHiXEHC9WM7lPvaa6LKPiTUEeFVS +J1WWipCu7gk7pzoC6tm/Kx2xRU+jz0rWEzDA0BYnsC+ZIO+sJgJaxm0amrFn +Way75W0ExBUvE/O1EqFmL+2qF50ETAfX+idYi9DpHxLS+U8JoOWMFxRh06s4 +24OYBNh52Rxvx1aUatMe7CLAOuTkFvFlIrTndmD2zDsCqq8uYWdgG1qcSzAa +IiBH40HTERsR+vH+8Gv2MAHPmbHHS7G70wmb698JSG3unm3HTumncRy4BGQ4 +ZnEmsT8Vvg7dICRA+k7+NXK5COXNU3I/JE5CzVBIpy1FhNoFrK37JEk403R4 +3Bf7G6s6LkqaBJm7x2p3Yzs2u5XR55MwL23pl1Ls4fDEn55KJGR6R+tLUnH9 +Xu7K7iokkA72/VrYq1YomyNVEti0+1QKdo5CzWaqJgmSLbK52+bG23obtPVJ +uF7Ot7yBTV6u6VQ1JCF2re+RJ3PP5xzs/cuYBFGN3y4W9jCpoiBlTkLHSetx +SRoeV1m7k2tDgmvkQO967LbfKqnDFBL4cYInIdhD7L5/+mgkpL8+sWYv9sq7 +hx68sSehvAdNncEe3FOndwdIaFQ4afcYe2Fgkm2rC16v3/HmN9gOruu8GtxI +mIkcf9iPnaX59eDldSQYvVAv/oF9U+p6TqknCRrlTIaMrQgN8JOuFHmR4ETn +dChh2z9SfZvpS0LtmUALU2x6w9eRv/1IGF18edVy7MwL1yWO+pPgM+rXuxL7 +a5yHTUIg7n/YM5YXtkKY2tqYYNyfx3n2AXN5HgOhkSEkxE00G4fOvb/48Omw +cBLuiEu17sa+Ked5KZBOwjcX661xc3kTarf8GCRMK9TlJs7l9Q90eZEkRLsf +DU6Zy2PWD6/ZScKR3qs3js3V13p4FiJJkB82LD8xl3/Jc9GqPSSUJPANMufy +M9UtbaNISLq/wDZ3Lj9x0HlZDAnZCxM/5mPLMxoCzeNIONhEVSzEXrEhJdpw +HwkZuk4f/53LX7k+QzeBhDbmOVox9hljjWL1RBI6/VcblGK3KA41KR0iQSF0 ++aUy7P6fDU8XJJNQXBbXfHEu/1tKv3QK7i9PLOgStt2r9dN/UklgmH3OnvP/ +AftTwuQ= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.8190010003206292, 1.212160280392001}}, + "PlotRange" -> {{0, 180}, {0.7832132632372888, 1.2630944842844878`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.819001000320631}, + "AxesOrigin" -> {0, 0.7832132632372906}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 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 +6407,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.7832132632372906}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -1725,7 +6436,8 @@ f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.8190010003206292, 1.212160280392001}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.7832132632372888, 1.2630944842844878`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -1733,9 +6445,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.993959492937047*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"fc0748ee-5156-4985-b452-eb08223269ed"] }, Open ]], Cell[CellGroupData[{ @@ -1798,348 +6509,169 @@ 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[\\\"2.0920717392490182`*^-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}, +represent as a normalized machine number; precision may be lost.\"", 2, 95, 9, + 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913281934227676`*^9, 3.993959493297492*^9}, CellLabel-> "During evaluation of \ -In[169]:=",ExpressionUUID->"eede1010-35b4-8e43-8206-4c3ebae733c0"], +In[95]:=",ExpressionUUID->"f9ef3f2c-dbb9-40cf-8606-7d3b2bfd7d84"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.5836247142456827`*^-279\\\", \ + "\"\\!\\(\\*FractionBox[\\\"5.3188657967627495`*^-279\\\", \ \\\"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, + 10, 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913281934227676`*^9, 3.9939594933055887`*^9}, CellLabel-> "During evaluation of \ -In[169]:=",ExpressionUUID->"01174b23-a2bd-8e4e-90f5-af7e82df101e"], +In[95]:=",ExpressionUUID->"1af91980-f7e6-4e30-84aa-b25571519fc2"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.3739060311364366`*^-291\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.3522640181606722`*^-290\\\", \ \\\"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}, +to represent as a normalized machine number; precision may be lost.\"", 2, 95, + 11, 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913281934227676`*^9, 3.993959493311496*^9}, CellLabel-> "During evaluation of \ -In[169]:=",ExpressionUUID->"ec7385ad-4809-8947-afea-81e4a95fc523"], +In[95]:=",ExpressionUUID->"7ce82f6f-0a70-451b-ab76-4789e2d1179f"], 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, 12, 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913281934227676`*^9, 3.993959493318163*^9}, CellLabel-> "During evaluation of \ -In[169]:=",ExpressionUUID->"4176ecfe-3aff-0f4b-824e-b07e40312968"], +In[95]:=",ExpressionUUID->"488a4e50-f111-4d02-afbf-da31b622831e"], 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:eJwV13c8Vf8fB3DRQFLmvck495rJnhnX+42SETJCQtlNJFklo0hpCMkoSSgU +9540rBIi0kJW3yiV+vpKRhSR3/n9dR7Px+dxzueMz/v1/hyGT7CjPzcXFxex +hIvr/8eZgdYmuZRCk0aanp9ErplJVx49yrQ3AXS+WSkaCTEAxV750HvToC84 +aUxESBPCt5X28PQWwD7NzVaza0xBaIyWNttDQv1J/85XaxxgsNYu+GdPA9Tx +zZ6zXuMNFnIj7yd6OmDn6sDhzYKHYLZH/9J4zxDE1uxqYy2Ph0bzm4VvCqZg ++LWsV1DWRZAcrBr2UVmAM/1ioQ9eZoPogV2lK8x5sOr23M+wR/mQpmlRY7ed +FyO4owc3FxZCX5ZG/cSaVXgwtN9Mee4mpBTGvuJeK4QCW4yvfdQrA1rGp9Pp +V0Xwo5+XJvv3HaBvuHfyd7EI0puaDeS5y0GiISnWky2ChfGCvBkry0F6fP0R +xUYRHB6InvCSLgf5rSG7a76JYFHwTHeJeTloL13Q+6QtipNGc6PC58rBPkz8 +s1abKIprtVQpr6uAU85WJh0zYmh+IaVBSpgNEpUvJbiXiCM7bVuntzgbykWc +f2muFMeADdO0Agk2dHd4sS/KiOOzOm0jmiwb5BzCmA6W4tgWoz/Qqc2GBttr +y19ni+Ma0yrMdGbDgsX0yxfGNJzlH6Wx0tmQWhxdtmBBw3MKwZPLL1PnL+dK +VnWgYZDy9pn2HDZsfcpves6fhoanPKJsC9iQY07c3XqehsOhKgEEhw0b0eby +80EaGrTplq96yYbDBtd3tSbQ8baJ4uDSZRywzhf8aXOWjoqD/fvW8XKAueJY +8stLdCy9yMhRW8mB110unM5bdDzfbfzJWogDaiECPAMv6fhe5aH0TikOfCuO +KJ6UWItDYg/1+nU44CFq933d3bVYnfaX28mbA9pHa+LzatfiCtVQrr++HOAf +UhJnNK/FxV7lgqIADlRV8IBC31oMWd7aMbKfA+I2Vakai2vxBO3Ef1vDqfnj +5XQ220hgMP9d0ZAzHNj0Yy466JMEHpMas9ZmcyDKMkP5yagEErns5kCSA+XX +VftFZiRwZdSYQHYlB+jOuw2qeNdh7BHO7MRDDow+fPqLR20dFn7ycI95woH0 +hNSw7Mh1mNuSt3/uDQeGxBSCmlZJYtyYevaFcQ7Qgh9L0WiSmCul9d5zkgNb +n7m92EtI4o5sqZ9KPzlwPzpFZbW2JPIk/sm994sDZwbHR3a4SSJnSvj9rb8c +0CqpCfxRIIkiJXmHfq0kId7YwVtioxS2+2lG68uRYOmVN6lvJoWt80e9HsuT +IBj334ntW6WQnd6Wbq5IwpXGxOLU3VLYIlY2hcokPLSu/m/5aSmM3wBZqzVI +GHeTDZ/qk8LKhUcz84YkPIgOWSH0WQpVRvU0rI1JOH6lLkttTAon79Cb0lkk +CHxwrdnLLY0LH3IX1iEJioFnuT4oS+P4q5BWrs0keB2ZPtN+VBqdWy+6SNqR +IH/ZTHIkURo3LVqcVLcnqfd34c6KVGlcJzolDttIiJ5f/9qsUBrfX5g76ORI +wqUTXmJV7dLo+fvCzDYXEjyKyoq7u6UxM7pu1xZXEpgtv/V/fpDGw6IZ2oZu +JLD5093Vp6VRIEtZWsydhPaLLdeKpGTQQa9WJN+ThPS7opqNijJYJTkyHOVF +gvtb74YPmjLoFlGlvG0XCd/o85/XWcjgZXPbFZO7SeDJ11BOC5JBP6u59Sv9 +SDAsz648/lgGlVyCm9P3krCp5+XC2DMZ5BmadVLeR4Id19ItuzpkMHNatLOO +sq9jUB98kcEDWexb7/aTYHGUERu3jMCnLRlNkwdJeL669sZGfgIH+e9NhASR +sK3Q5dm4IIH6Ax/FRinvfJEi5E0n0Oe7qkVfMAkhMjM3TDcQ6J3l5H7hEAnT +d1OfzaoTGP0x02macrTlhu8cHQKHlmVYuYWSkHhotx7ThMCd4/lqYodJ4F/+ +x73fjMAjMvIywZRTcy7Fpm0hkOuPzepmyjmNbc+4HQjUbQqd2BdGgoyb//fq +7QReFv3++SHlwtFFocPuBPa8/dvPc4SECjHdnZ98CQy89OVNKmWd0lexuXsI +tP1g2NVBudpkX6HTQQKNdZT+EQonoSnw2vfGcAILrnUuJlG2mjcQPnaUwKL3 +NKk6yi9Tu/R04gjsDOEyH6fsLB+8c/QkgZnGjqFEBAl9VXxxhacJFH3fUWZL +2cuusNDjPIHsYsvxCMqfh0xaRdMJPF8Ujdco743o+95+mUCBqxpXGymPrQwT +TrxCoOUK7RVfKB/OF9RnXScwVdQmlieShN86JTuniwgcLzVbLkP5eKt53J1S +Asv9P1/Rp8zjNVDoX0FgVcYfc1vKyZORrVKV1PMZO8/voix4SmTs7UMCeUVr +moMpp68rFz5fR6D8qYUbxyjT2Zb6Fg0EGt39NyOJ8tVNn3b+bSZQYo9dzjnK +zL6YuPvPCTRR/FN5kfKtg/SioNfU95Ct/5JGWZX7bqvCWwL1IEj1/+Nkpu3Y +QB+ByYI9Z89S3rjhm/DlAQL5utqXJlKue5ygb/+JwNJ4ZmY0ZTNnKY8V3wj8 ++qDM9CDllm8P4h6PEohPjXk9KW+NcSyKmCCwuqh0xIpyh9D3VvUZAj25n/+r +Tdm1+NTY1zkCb2iELV9H+R9Dpkj+IoHzmjGmi9T79HlVq++2lIG2d+tyP1D+ +6uvqsYaPgS4CguKPKR/4PRH3bBUDLWELJ4ey4aEA8WFhBt7hnuIKocw70l/G +Q2fgrbiFSVPK3T72pgwpBi59HJO8hnLRu8ZuEyYDH5alNLyj1keY88YDHooM +1JPEghuUzV7cXhKtwsDU9kqlPZQHHl1SuafHwNwd1mpfqfV4W5+/ocOIgReU +blRcpxzNPu46jtT9Saj840ZZvCAwYYMNA3+vsjSqo9a7faJB7/VdDPTgU9X0 +oupD+u+dg4/9GLjsTOKGv1R9jYYzed7vZSDHlN6fQzl5z0o1ehgDed/Fu7VR +9Vhv8/7E+WQG6mvcnlsSQsL5Joe1t88xsL5H/MEpqp49WM3lrWnU8w/Ma/BT +nlWr6Ft6lYHvrv3nvYyqfy3hePWjHAY2hLr0dVH5wZUy3ZR1n4HtVVkFSPkl +zz73+zUMdFjyQquEypv9046JE08Z6Len+3YIlU+FvXLvAvsZGBspv74vgIRQ +h+yQxEEGFkyV2mygjG2rlt/4zECTkXaTaH8S3tfMaAyMMfDGxbZcQSrvxK89 +S3LmYeIzZ3EnIW+qvmgsyVBeJkbd/SRpTeUjmcrhXFjFxDpUfhJL5ad9Qs4/ +bTQmKr2UyftI5W2y/wEtUxUmhm540h5L5fHshjUDqtuZuFRunKboRMLMVYl4 +bXcmlgcvuadF5f3P1fJyBruYmLNmk6eRA1WvUwb7Nu1l4r9XTLvMqX4xVOM7 +4x7DxHO74o5r2pDQZvNAMLmIiZOHjPrizKj1XPeEc66Umo8/ss7TlMob9Xbn +9Aom7nF5Uq9P9adHIh9z8qqYKH4vaf0nqn+R7/gV771goqWg602aAZV/+71g +aJqJcTxvD/1WI+Hy+z1DX+eYuDCdMXhTlYQM+8OJ3xeZePhXb5yzCvU9tZOf +/+aTxQQFGd+i9SQk/OG4rpaWxZPWjOfyVD/en7IsxNhCFt/0VNgV0EkwLrud +n5kpi6VmrIPpixx4R5Rd25wriwshhdG8VH+PzizJ+3lNFgn3DtbReQ48iC++ +4lgii4vCY//umKX6v1t+lmCtLKpmKv/+Q+0f1i/LSE36KIu1DO7hzi/UfmfX +0bhwFTlMdb431N/KgXtdUbHymnI4mB3SyfuMA87Wkce7dOXwXdb4VZ1mDqTp +HjmmBXL4gbuzKbGBA6sEgiPHHORwdsIkWrCGA0urfEICIuRQ2/VkYnUZByaE +rXe7NMhh4Ik/BokpHOg9wHy9r0UOHeNEo8xPc6C+eQ5i2+VQeZL0WEziQGp0 +mcytbjnsrI+jhSRwQGNIYHB2RA6/eoUl6kZxIIjzyvOqiDyae9tmOFD7txH7 +7Ts/+8njTNUmep8JBz6f3e0SukIBZa1stx79lw1WPyKsvugpoueHmqxEXTaM ++vIeroxVQrdtupNBZDn1/0DjPtWwHvvmWkry+m+D8AuF8+wfysjd/lniEV8Z +SCZXbNPTU0HX/Xqky5ISyNpgsEYkUBWfKleFrxK7CW0SprpTF9UwbkVK7KJ2 +ERhKNqSqd6ujKVf3sKX2DRDkKQjzTtBAx6s9jB2+10E6XsZ4h4Im6rCURCp5 +rgGfvMd9xxZN7Bv/b7ViUi6osdZWRHhqoXZphsiLyCwIHRButObSRuTO+BIf +cAl+TJ3dbpWljXHPV8utakqDLerNOVaqOkjmf7f3C0yFR1NGf3691EHrjTkR +QipnIUhFq/+Nvy7O6TftzbFJBtaYX9cOPj2MkRyMOXvhJGyWo9uuKtBDJd/t +y+Ri4kEp7kxkg74+TvdzHm8qjwFlf4PH8v36eDSraMixIhL8H+05WXloI+J2 +SXPu0jB4nN/lNyFmgGNWX31qf4TAz1uLv9QfGGBVYNoeXfZ+GHaxyD9dZYDc +p8kXYrn7oXfpOctPNQYY7Vs9xpO0H2p2S2Rn1hvgHZa9FZ/Hfkig6xoutBpg +ZVBiwQPe/bAmed+xtn8M8IT4/OwVv32gEviWy5/bEJ9u5dXfqbAXfOXL+HJs +DbH5SaWU9usAiH7qtU9hmyGGDzfZt9cGQKq/8HPS0RCvXra+f7gkAGqLos4+ +dzVEckKD63tCAIgqWK5e8DbEN752hcl6AdCs8EV0d7ghTrmZSHnm+4Oykgyh +cM0Q+8M6Os2O+8GEcroeOW6Id0ZFf1l5+0BvO24WmTLERLV5EXNHH6gPGnMK +mzZEvSSBQQtzHzhPWh3SmzNEc6ZbYJC8Dygbct2u5jFCnmMDmcYj3uBjdZDR +KG6EnT/KlV8f8YauwC0CXcZGuFdr3KM0Yzc8LPzzcTrZCF9JrvVqGfQEPfOw +X9YpRvhmsvqGZosn3Ps4KpB/zghv1G4vulPuCaT0gL51mhEGlZJkf4wn3M6q +P5eXa4SRn9I7Vkh5Qv7ZRIMt5UY4qnGWXuTlAafDVl/M6jRCzVdz0oVj7uC+ +SRaNpI1Rb21d5Elwg4UuXsFGwhglg1JbHNa7Qb7/2DtrWWOsZG7i1RRxg+Gk +qgh3JWNU8FBWl//qCqGt9hVRWsZ404zVOHTBFc7YHZN+aGGMlrO22bc+u0C1 +29t5nWBjzJutbBPI3Q7rDp6qUqs3xhI/2dUPNzrB+cUA3ZQGY1w1NRfyTtEJ +uNMsOF+bqOv9nZlbSXOCkfvLSvJbjdE1p9kvY9oRqrlOZgl3GqPogfQ807uO +4J4RFzHzxRivC/GoL9d0hKyaKN1HK1moNJBbN6/rAGL8Bzi2riz80pZZV9Ji +B4XmMdHjO1jo/iA8+/ktO9CKOW+e7sHC4kFrZb4zdmA3zn7b683CfcmzYj1b +7SCpe3rW9wALo+ssmms6beF3QaxZdDwLvevYBpnDW6HfKL2zuIyF9enD/osy +NrDnSOEVq3IWlv4QYAcvtYGZ8nv+o2xqvP+JzOw3axBm9v7SvM9CMTdRhitp +DTa8UpJ19Sxkby9IYllYQ21XsV/nWxZOXD43UBBqBdaCD1XDe1n4Qstr1xU3 +K+jd0jpDf8dC+j9Cr++YWMHP6v+SvT6wcK2Ksy59pRWoXte48+8IC8/Yayzy +FllCbb9p+NnvLPzcQI49TrEEa1EnUB9nYfexMv3zoZYQcOrIm7BpFoZEFqeE +ULuun/VJObTfLLzJl33opKIlJMxd9q2eY+GyqKGACkFLWKNTouK5wMJnHbQd +E9NbIO9g9fTiIgvrSvt0rd9vgf8BVhMWnQ== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -2153,307 +6685,125 @@ 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:eJwV13c8Vf8fB3DRQFLmvck495rJnhnX+42SETJCQtlNJFklo0hpCMkoSSgU +9540rBIi0kJW3yiV+vpKRhSR3/n9dR7Px+dxzueMz/v1/hyGT7CjPzcXFxex +hIvr/8eZgdYmuZRCk0aanp9ErplJVx49yrQ3AXS+WSkaCTEAxV750HvToC84 +aUxESBPCt5X28PQWwD7NzVaza0xBaIyWNttDQv1J/85XaxxgsNYu+GdPA9Tx +zZ6zXuMNFnIj7yd6OmDn6sDhzYKHYLZH/9J4zxDE1uxqYy2Ph0bzm4VvCqZg ++LWsV1DWRZAcrBr2UVmAM/1ioQ9eZoPogV2lK8x5sOr23M+wR/mQpmlRY7ed +FyO4owc3FxZCX5ZG/cSaVXgwtN9Mee4mpBTGvuJeK4QCW4yvfdQrA1rGp9Pp +V0Xwo5+XJvv3HaBvuHfyd7EI0puaDeS5y0GiISnWky2ChfGCvBkry0F6fP0R +xUYRHB6InvCSLgf5rSG7a76JYFHwTHeJeTloL13Q+6QtipNGc6PC58rBPkz8 +s1abKIprtVQpr6uAU85WJh0zYmh+IaVBSpgNEpUvJbiXiCM7bVuntzgbykWc +f2muFMeADdO0Agk2dHd4sS/KiOOzOm0jmiwb5BzCmA6W4tgWoz/Qqc2GBttr +y19ni+Ma0yrMdGbDgsX0yxfGNJzlH6Wx0tmQWhxdtmBBw3MKwZPLL1PnL+dK +VnWgYZDy9pn2HDZsfcpves6fhoanPKJsC9iQY07c3XqehsOhKgEEhw0b0eby +80EaGrTplq96yYbDBtd3tSbQ8baJ4uDSZRywzhf8aXOWjoqD/fvW8XKAueJY +8stLdCy9yMhRW8mB110unM5bdDzfbfzJWogDaiECPAMv6fhe5aH0TikOfCuO +KJ6UWItDYg/1+nU44CFq933d3bVYnfaX28mbA9pHa+LzatfiCtVQrr++HOAf +UhJnNK/FxV7lgqIADlRV8IBC31oMWd7aMbKfA+I2Vakai2vxBO3Ef1vDqfnj +5XQ220hgMP9d0ZAzHNj0Yy466JMEHpMas9ZmcyDKMkP5yagEErns5kCSA+XX +VftFZiRwZdSYQHYlB+jOuw2qeNdh7BHO7MRDDow+fPqLR20dFn7ycI95woH0 +hNSw7Mh1mNuSt3/uDQeGxBSCmlZJYtyYevaFcQ7Qgh9L0WiSmCul9d5zkgNb +n7m92EtI4o5sqZ9KPzlwPzpFZbW2JPIk/sm994sDZwbHR3a4SSJnSvj9rb8c +0CqpCfxRIIkiJXmHfq0kId7YwVtioxS2+2lG68uRYOmVN6lvJoWt80e9HsuT +IBj334ntW6WQnd6Wbq5IwpXGxOLU3VLYIlY2hcokPLSu/m/5aSmM3wBZqzVI +GHeTDZ/qk8LKhUcz84YkPIgOWSH0WQpVRvU0rI1JOH6lLkttTAon79Cb0lkk +CHxwrdnLLY0LH3IX1iEJioFnuT4oS+P4q5BWrs0keB2ZPtN+VBqdWy+6SNqR +IH/ZTHIkURo3LVqcVLcnqfd34c6KVGlcJzolDttIiJ5f/9qsUBrfX5g76ORI +wqUTXmJV7dLo+fvCzDYXEjyKyoq7u6UxM7pu1xZXEpgtv/V/fpDGw6IZ2oZu +JLD5093Vp6VRIEtZWsydhPaLLdeKpGTQQa9WJN+ThPS7opqNijJYJTkyHOVF +gvtb74YPmjLoFlGlvG0XCd/o85/XWcjgZXPbFZO7SeDJ11BOC5JBP6u59Sv9 +SDAsz648/lgGlVyCm9P3krCp5+XC2DMZ5BmadVLeR4Id19ItuzpkMHNatLOO +sq9jUB98kcEDWexb7/aTYHGUERu3jMCnLRlNkwdJeL669sZGfgIH+e9NhASR +sK3Q5dm4IIH6Ax/FRinvfJEi5E0n0Oe7qkVfMAkhMjM3TDcQ6J3l5H7hEAnT +d1OfzaoTGP0x02macrTlhu8cHQKHlmVYuYWSkHhotx7ThMCd4/lqYodJ4F/+ +x73fjMAjMvIywZRTcy7Fpm0hkOuPzepmyjmNbc+4HQjUbQqd2BdGgoyb//fq +7QReFv3++SHlwtFFocPuBPa8/dvPc4SECjHdnZ98CQy89OVNKmWd0lexuXsI +tP1g2NVBudpkX6HTQQKNdZT+EQonoSnw2vfGcAILrnUuJlG2mjcQPnaUwKL3 +NKk6yi9Tu/R04gjsDOEyH6fsLB+8c/QkgZnGjqFEBAl9VXxxhacJFH3fUWZL +2cuusNDjPIHsYsvxCMqfh0xaRdMJPF8Ujdco743o+95+mUCBqxpXGymPrQwT +TrxCoOUK7RVfKB/OF9RnXScwVdQmlieShN86JTuniwgcLzVbLkP5eKt53J1S +Asv9P1/Rp8zjNVDoX0FgVcYfc1vKyZORrVKV1PMZO8/voix4SmTs7UMCeUVr +moMpp68rFz5fR6D8qYUbxyjT2Zb6Fg0EGt39NyOJ8tVNn3b+bSZQYo9dzjnK +zL6YuPvPCTRR/FN5kfKtg/SioNfU95Ct/5JGWZX7bqvCWwL1IEj1/+Nkpu3Y +QB+ByYI9Z89S3rjhm/DlAQL5utqXJlKue5ygb/+JwNJ4ZmY0ZTNnKY8V3wj8 ++qDM9CDllm8P4h6PEohPjXk9KW+NcSyKmCCwuqh0xIpyh9D3VvUZAj25n/+r +Tdm1+NTY1zkCb2iELV9H+R9Dpkj+IoHzmjGmi9T79HlVq++2lIG2d+tyP1D+ +6uvqsYaPgS4CguKPKR/4PRH3bBUDLWELJ4ey4aEA8WFhBt7hnuIKocw70l/G +Q2fgrbiFSVPK3T72pgwpBi59HJO8hnLRu8ZuEyYDH5alNLyj1keY88YDHooM +1JPEghuUzV7cXhKtwsDU9kqlPZQHHl1SuafHwNwd1mpfqfV4W5+/ocOIgReU +blRcpxzNPu46jtT9Saj840ZZvCAwYYMNA3+vsjSqo9a7faJB7/VdDPTgU9X0 +oupD+u+dg4/9GLjsTOKGv1R9jYYzed7vZSDHlN6fQzl5z0o1ehgDed/Fu7VR +9Vhv8/7E+WQG6mvcnlsSQsL5Joe1t88xsL5H/MEpqp49WM3lrWnU8w/Ma/BT +nlWr6Ft6lYHvrv3nvYyqfy3hePWjHAY2hLr0dVH5wZUy3ZR1n4HtVVkFSPkl +zz73+zUMdFjyQquEypv9046JE08Z6Len+3YIlU+FvXLvAvsZGBspv74vgIRQ +h+yQxEEGFkyV2mygjG2rlt/4zECTkXaTaH8S3tfMaAyMMfDGxbZcQSrvxK89 +S3LmYeIzZ3EnIW+qvmgsyVBeJkbd/SRpTeUjmcrhXFjFxDpUfhJL5ad9Qs4/ +bTQmKr2UyftI5W2y/wEtUxUmhm540h5L5fHshjUDqtuZuFRunKboRMLMVYl4 +bXcmlgcvuadF5f3P1fJyBruYmLNmk6eRA1WvUwb7Nu1l4r9XTLvMqX4xVOM7 +4x7DxHO74o5r2pDQZvNAMLmIiZOHjPrizKj1XPeEc66Umo8/ss7TlMob9Xbn +9Aom7nF5Uq9P9adHIh9z8qqYKH4vaf0nqn+R7/gV771goqWg602aAZV/+71g +aJqJcTxvD/1WI+Hy+z1DX+eYuDCdMXhTlYQM+8OJ3xeZePhXb5yzCvU9tZOf +/+aTxQQFGd+i9SQk/OG4rpaWxZPWjOfyVD/en7IsxNhCFt/0VNgV0EkwLrud +n5kpi6VmrIPpixx4R5Rd25wriwshhdG8VH+PzizJ+3lNFgn3DtbReQ48iC++ +4lgii4vCY//umKX6v1t+lmCtLKpmKv/+Q+0f1i/LSE36KIu1DO7hzi/UfmfX +0bhwFTlMdb431N/KgXtdUbHymnI4mB3SyfuMA87Wkce7dOXwXdb4VZ1mDqTp +HjmmBXL4gbuzKbGBA6sEgiPHHORwdsIkWrCGA0urfEICIuRQ2/VkYnUZByaE +rXe7NMhh4Ik/BokpHOg9wHy9r0UOHeNEo8xPc6C+eQ5i2+VQeZL0WEziQGp0 +mcytbjnsrI+jhSRwQGNIYHB2RA6/eoUl6kZxIIjzyvOqiDyae9tmOFD7txH7 +7Ts/+8njTNUmep8JBz6f3e0SukIBZa1stx79lw1WPyKsvugpoueHmqxEXTaM ++vIeroxVQrdtupNBZDn1/0DjPtWwHvvmWkry+m+D8AuF8+wfysjd/lniEV8Z +SCZXbNPTU0HX/Xqky5ISyNpgsEYkUBWfKleFrxK7CW0SprpTF9UwbkVK7KJ2 +ERhKNqSqd6ujKVf3sKX2DRDkKQjzTtBAx6s9jB2+10E6XsZ4h4Im6rCURCp5 +rgGfvMd9xxZN7Bv/b7ViUi6osdZWRHhqoXZphsiLyCwIHRButObSRuTO+BIf +cAl+TJ3dbpWljXHPV8utakqDLerNOVaqOkjmf7f3C0yFR1NGf3691EHrjTkR +QipnIUhFq/+Nvy7O6TftzbFJBtaYX9cOPj2MkRyMOXvhJGyWo9uuKtBDJd/t +y+Ri4kEp7kxkg74+TvdzHm8qjwFlf4PH8v36eDSraMixIhL8H+05WXloI+J2 +SXPu0jB4nN/lNyFmgGNWX31qf4TAz1uLv9QfGGBVYNoeXfZ+GHaxyD9dZYDc +p8kXYrn7oXfpOctPNQYY7Vs9xpO0H2p2S2Rn1hvgHZa9FZ/Hfkig6xoutBpg +ZVBiwQPe/bAmed+xtn8M8IT4/OwVv32gEviWy5/bEJ9u5dXfqbAXfOXL+HJs +DbH5SaWU9usAiH7qtU9hmyGGDzfZt9cGQKq/8HPS0RCvXra+f7gkAGqLos4+ +dzVEckKD63tCAIgqWK5e8DbEN752hcl6AdCs8EV0d7ghTrmZSHnm+4Oykgyh +cM0Q+8M6Os2O+8GEcroeOW6Id0ZFf1l5+0BvO24WmTLERLV5EXNHH6gPGnMK +mzZEvSSBQQtzHzhPWh3SmzNEc6ZbYJC8Dygbct2u5jFCnmMDmcYj3uBjdZDR +KG6EnT/KlV8f8YauwC0CXcZGuFdr3KM0Yzc8LPzzcTrZCF9JrvVqGfQEPfOw +X9YpRvhmsvqGZosn3Ps4KpB/zghv1G4vulPuCaT0gL51mhEGlZJkf4wn3M6q +P5eXa4SRn9I7Vkh5Qv7ZRIMt5UY4qnGWXuTlAafDVl/M6jRCzVdz0oVj7uC+ +SRaNpI1Rb21d5Elwg4UuXsFGwhglg1JbHNa7Qb7/2DtrWWOsZG7i1RRxg+Gk +qgh3JWNU8FBWl//qCqGt9hVRWsZ404zVOHTBFc7YHZN+aGGMlrO22bc+u0C1 +29t5nWBjzJutbBPI3Q7rDp6qUqs3xhI/2dUPNzrB+cUA3ZQGY1w1NRfyTtEJ +uNMsOF+bqOv9nZlbSXOCkfvLSvJbjdE1p9kvY9oRqrlOZgl3GqPogfQ807uO +4J4RFzHzxRivC/GoL9d0hKyaKN1HK1moNJBbN6/rAGL8Bzi2riz80pZZV9Ji +B4XmMdHjO1jo/iA8+/ktO9CKOW+e7sHC4kFrZb4zdmA3zn7b683CfcmzYj1b +7SCpe3rW9wALo+ssmms6beF3QaxZdDwLvevYBpnDW6HfKL2zuIyF9enD/osy +NrDnSOEVq3IWlv4QYAcvtYGZ8nv+o2xqvP+JzOw3axBm9v7SvM9CMTdRhitp +DTa8UpJ19Sxkby9IYllYQ21XsV/nWxZOXD43UBBqBdaCD1XDe1n4Qstr1xU3 +K+jd0jpDf8dC+j9Cr++YWMHP6v+SvT6wcK2Ksy59pRWoXte48+8IC8/Yayzy +FllCbb9p+NnvLPzcQI49TrEEa1EnUB9nYfexMv3zoZYQcOrIm7BpFoZEFqeE +ULuun/VJObTfLLzJl33opKIlJMxd9q2eY+GyqKGACkFLWKNTouK5wMJnHbQd +E9NbIO9g9fTiIgvrSvt0rd9vgf8BVhMWnQ== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "PlotRange" -> {{0, 30}, {0., 0.07215231045860267}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +6815,19 @@ Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "PlotRange" -> {{0, 30}, {0., 0.07215231045860267}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +6841,124 @@ 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:eJwV13c8Vf8fB3DRQFLmvck495rJnhnX+42SETJCQtlNJFklo0hpCMkoSSgU +9540rBIi0kJW3yiV+vpKRhSR3/n9dR7Px+dxzueMz/v1/hyGT7CjPzcXFxex +hIvr/8eZgdYmuZRCk0aanp9ErplJVx49yrQ3AXS+WSkaCTEAxV750HvToC84 +aUxESBPCt5X28PQWwD7NzVaza0xBaIyWNttDQv1J/85XaxxgsNYu+GdPA9Tx +zZ6zXuMNFnIj7yd6OmDn6sDhzYKHYLZH/9J4zxDE1uxqYy2Ph0bzm4VvCqZg ++LWsV1DWRZAcrBr2UVmAM/1ioQ9eZoPogV2lK8x5sOr23M+wR/mQpmlRY7ed +FyO4owc3FxZCX5ZG/cSaVXgwtN9Mee4mpBTGvuJeK4QCW4yvfdQrA1rGp9Pp +V0Xwo5+XJvv3HaBvuHfyd7EI0puaDeS5y0GiISnWky2ChfGCvBkry0F6fP0R +xUYRHB6InvCSLgf5rSG7a76JYFHwTHeJeTloL13Q+6QtipNGc6PC58rBPkz8 +s1abKIprtVQpr6uAU85WJh0zYmh+IaVBSpgNEpUvJbiXiCM7bVuntzgbykWc +f2muFMeADdO0Agk2dHd4sS/KiOOzOm0jmiwb5BzCmA6W4tgWoz/Qqc2GBttr +y19ni+Ma0yrMdGbDgsX0yxfGNJzlH6Wx0tmQWhxdtmBBw3MKwZPLL1PnL+dK +VnWgYZDy9pn2HDZsfcpves6fhoanPKJsC9iQY07c3XqehsOhKgEEhw0b0eby +80EaGrTplq96yYbDBtd3tSbQ8baJ4uDSZRywzhf8aXOWjoqD/fvW8XKAueJY +8stLdCy9yMhRW8mB110unM5bdDzfbfzJWogDaiECPAMv6fhe5aH0TikOfCuO +KJ6UWItDYg/1+nU44CFq933d3bVYnfaX28mbA9pHa+LzatfiCtVQrr++HOAf +UhJnNK/FxV7lgqIADlRV8IBC31oMWd7aMbKfA+I2Vakai2vxBO3Ef1vDqfnj +5XQ220hgMP9d0ZAzHNj0Yy466JMEHpMas9ZmcyDKMkP5yagEErns5kCSA+XX +VftFZiRwZdSYQHYlB+jOuw2qeNdh7BHO7MRDDow+fPqLR20dFn7ycI95woH0 +hNSw7Mh1mNuSt3/uDQeGxBSCmlZJYtyYevaFcQ7Qgh9L0WiSmCul9d5zkgNb +n7m92EtI4o5sqZ9KPzlwPzpFZbW2JPIk/sm994sDZwbHR3a4SSJnSvj9rb8c +0CqpCfxRIIkiJXmHfq0kId7YwVtioxS2+2lG68uRYOmVN6lvJoWt80e9HsuT +IBj334ntW6WQnd6Wbq5IwpXGxOLU3VLYIlY2hcokPLSu/m/5aSmM3wBZqzVI +GHeTDZ/qk8LKhUcz84YkPIgOWSH0WQpVRvU0rI1JOH6lLkttTAon79Cb0lkk +CHxwrdnLLY0LH3IX1iEJioFnuT4oS+P4q5BWrs0keB2ZPtN+VBqdWy+6SNqR +IH/ZTHIkURo3LVqcVLcnqfd34c6KVGlcJzolDttIiJ5f/9qsUBrfX5g76ORI +wqUTXmJV7dLo+fvCzDYXEjyKyoq7u6UxM7pu1xZXEpgtv/V/fpDGw6IZ2oZu +JLD5093Vp6VRIEtZWsydhPaLLdeKpGTQQa9WJN+ThPS7opqNijJYJTkyHOVF +gvtb74YPmjLoFlGlvG0XCd/o85/XWcjgZXPbFZO7SeDJ11BOC5JBP6u59Sv9 +SDAsz648/lgGlVyCm9P3krCp5+XC2DMZ5BmadVLeR4Id19ItuzpkMHNatLOO +sq9jUB98kcEDWexb7/aTYHGUERu3jMCnLRlNkwdJeL669sZGfgIH+e9NhASR +sK3Q5dm4IIH6Ax/FRinvfJEi5E0n0Oe7qkVfMAkhMjM3TDcQ6J3l5H7hEAnT +d1OfzaoTGP0x02macrTlhu8cHQKHlmVYuYWSkHhotx7ThMCd4/lqYodJ4F/+ +x73fjMAjMvIywZRTcy7Fpm0hkOuPzepmyjmNbc+4HQjUbQqd2BdGgoyb//fq +7QReFv3++SHlwtFFocPuBPa8/dvPc4SECjHdnZ98CQy89OVNKmWd0lexuXsI +tP1g2NVBudpkX6HTQQKNdZT+EQonoSnw2vfGcAILrnUuJlG2mjcQPnaUwKL3 +NKk6yi9Tu/R04gjsDOEyH6fsLB+8c/QkgZnGjqFEBAl9VXxxhacJFH3fUWZL +2cuusNDjPIHsYsvxCMqfh0xaRdMJPF8Ujdco743o+95+mUCBqxpXGymPrQwT +TrxCoOUK7RVfKB/OF9RnXScwVdQmlieShN86JTuniwgcLzVbLkP5eKt53J1S +Asv9P1/Rp8zjNVDoX0FgVcYfc1vKyZORrVKV1PMZO8/voix4SmTs7UMCeUVr +moMpp68rFz5fR6D8qYUbxyjT2Zb6Fg0EGt39NyOJ8tVNn3b+bSZQYo9dzjnK +zL6YuPvPCTRR/FN5kfKtg/SioNfU95Ct/5JGWZX7bqvCWwL1IEj1/+Nkpu3Y +QB+ByYI9Z89S3rjhm/DlAQL5utqXJlKue5ygb/+JwNJ4ZmY0ZTNnKY8V3wj8 ++qDM9CDllm8P4h6PEohPjXk9KW+NcSyKmCCwuqh0xIpyh9D3VvUZAj25n/+r +Tdm1+NTY1zkCb2iELV9H+R9Dpkj+IoHzmjGmi9T79HlVq++2lIG2d+tyP1D+ +6uvqsYaPgS4CguKPKR/4PRH3bBUDLWELJ4ey4aEA8WFhBt7hnuIKocw70l/G +Q2fgrbiFSVPK3T72pgwpBi59HJO8hnLRu8ZuEyYDH5alNLyj1keY88YDHooM +1JPEghuUzV7cXhKtwsDU9kqlPZQHHl1SuafHwNwd1mpfqfV4W5+/ocOIgReU +blRcpxzNPu46jtT9Saj840ZZvCAwYYMNA3+vsjSqo9a7faJB7/VdDPTgU9X0 +oupD+u+dg4/9GLjsTOKGv1R9jYYzed7vZSDHlN6fQzl5z0o1ehgDed/Fu7VR +9Vhv8/7E+WQG6mvcnlsSQsL5Joe1t88xsL5H/MEpqp49WM3lrWnU8w/Ma/BT +nlWr6Ft6lYHvrv3nvYyqfy3hePWjHAY2hLr0dVH5wZUy3ZR1n4HtVVkFSPkl +zz73+zUMdFjyQquEypv9046JE08Z6Len+3YIlU+FvXLvAvsZGBspv74vgIRQ +h+yQxEEGFkyV2mygjG2rlt/4zECTkXaTaH8S3tfMaAyMMfDGxbZcQSrvxK89 +S3LmYeIzZ3EnIW+qvmgsyVBeJkbd/SRpTeUjmcrhXFjFxDpUfhJL5ad9Qs4/ +bTQmKr2UyftI5W2y/wEtUxUmhm540h5L5fHshjUDqtuZuFRunKboRMLMVYl4 +bXcmlgcvuadF5f3P1fJyBruYmLNmk6eRA1WvUwb7Nu1l4r9XTLvMqX4xVOM7 +4x7DxHO74o5r2pDQZvNAMLmIiZOHjPrizKj1XPeEc66Umo8/ss7TlMob9Xbn +9Aom7nF5Uq9P9adHIh9z8qqYKH4vaf0nqn+R7/gV771goqWg602aAZV/+71g +aJqJcTxvD/1WI+Hy+z1DX+eYuDCdMXhTlYQM+8OJ3xeZePhXb5yzCvU9tZOf +/+aTxQQFGd+i9SQk/OG4rpaWxZPWjOfyVD/en7IsxNhCFt/0VNgV0EkwLrud +n5kpi6VmrIPpixx4R5Rd25wriwshhdG8VH+PzizJ+3lNFgn3DtbReQ48iC++ +4lgii4vCY//umKX6v1t+lmCtLKpmKv/+Q+0f1i/LSE36KIu1DO7hzi/UfmfX +0bhwFTlMdb431N/KgXtdUbHymnI4mB3SyfuMA87Wkce7dOXwXdb4VZ1mDqTp +HjmmBXL4gbuzKbGBA6sEgiPHHORwdsIkWrCGA0urfEICIuRQ2/VkYnUZByaE +rXe7NMhh4Ik/BokpHOg9wHy9r0UOHeNEo8xPc6C+eQ5i2+VQeZL0WEziQGp0 +mcytbjnsrI+jhSRwQGNIYHB2RA6/eoUl6kZxIIjzyvOqiDyae9tmOFD7txH7 +7Ts/+8njTNUmep8JBz6f3e0SukIBZa1stx79lw1WPyKsvugpoueHmqxEXTaM ++vIeroxVQrdtupNBZDn1/0DjPtWwHvvmWkry+m+D8AuF8+wfysjd/lniEV8Z +SCZXbNPTU0HX/Xqky5ISyNpgsEYkUBWfKleFrxK7CW0SprpTF9UwbkVK7KJ2 +ERhKNqSqd6ujKVf3sKX2DRDkKQjzTtBAx6s9jB2+10E6XsZ4h4Im6rCURCp5 +rgGfvMd9xxZN7Bv/b7ViUi6osdZWRHhqoXZphsiLyCwIHRButObSRuTO+BIf +cAl+TJ3dbpWljXHPV8utakqDLerNOVaqOkjmf7f3C0yFR1NGf3691EHrjTkR +QipnIUhFq/+Nvy7O6TftzbFJBtaYX9cOPj2MkRyMOXvhJGyWo9uuKtBDJd/t +y+Ri4kEp7kxkg74+TvdzHm8qjwFlf4PH8v36eDSraMixIhL8H+05WXloI+J2 +SXPu0jB4nN/lNyFmgGNWX31qf4TAz1uLv9QfGGBVYNoeXfZ+GHaxyD9dZYDc +p8kXYrn7oXfpOctPNQYY7Vs9xpO0H2p2S2Rn1hvgHZa9FZ/Hfkig6xoutBpg +ZVBiwQPe/bAmed+xtn8M8IT4/OwVv32gEviWy5/bEJ9u5dXfqbAXfOXL+HJs +DbH5SaWU9usAiH7qtU9hmyGGDzfZt9cGQKq/8HPS0RCvXra+f7gkAGqLos4+ +dzVEckKD63tCAIgqWK5e8DbEN752hcl6AdCs8EV0d7ghTrmZSHnm+4Oykgyh +cM0Q+8M6Os2O+8GEcroeOW6Id0ZFf1l5+0BvO24WmTLERLV5EXNHH6gPGnMK +mzZEvSSBQQtzHzhPWh3SmzNEc6ZbYJC8Dygbct2u5jFCnmMDmcYj3uBjdZDR +KG6EnT/KlV8f8YauwC0CXcZGuFdr3KM0Yzc8LPzzcTrZCF9JrvVqGfQEPfOw +X9YpRvhmsvqGZosn3Ps4KpB/zghv1G4vulPuCaT0gL51mhEGlZJkf4wn3M6q +P5eXa4SRn9I7Vkh5Qv7ZRIMt5UY4qnGWXuTlAafDVl/M6jRCzVdz0oVj7uC+ +SRaNpI1Rb21d5Elwg4UuXsFGwhglg1JbHNa7Qb7/2DtrWWOsZG7i1RRxg+Gk +qgh3JWNU8FBWl//qCqGt9hVRWsZ404zVOHTBFc7YHZN+aGGMlrO22bc+u0C1 +29t5nWBjzJutbBPI3Q7rDp6qUqs3xhI/2dUPNzrB+cUA3ZQGY1w1NRfyTtEJ +uNMsOF+bqOv9nZlbSXOCkfvLSvJbjdE1p9kvY9oRqrlOZgl3GqPogfQ807uO +4J4RFzHzxRivC/GoL9d0hKyaKN1HK1moNJBbN6/rAGL8Bzi2riz80pZZV9Ji +B4XmMdHjO1jo/iA8+/ktO9CKOW+e7sHC4kFrZb4zdmA3zn7b683CfcmzYj1b +7SCpe3rW9wALo+ssmms6beF3QaxZdDwLvevYBpnDW6HfKL2zuIyF9enD/osy +NrDnSOEVq3IWlv4QYAcvtYGZ8nv+o2xqvP+JzOw3axBm9v7SvM9CMTdRhitp +DTa8UpJ19Sxkby9IYllYQ21XsV/nWxZOXD43UBBqBdaCD1XDe1n4Qstr1xU3 +K+jd0jpDf8dC+j9Cr++YWMHP6v+SvT6wcK2Ksy59pRWoXte48+8IC8/Yayzy +FllCbb9p+NnvLPzcQI49TrEEa1EnUB9nYfexMv3zoZYQcOrIm7BpFoZEFqeE +ULuun/VJObTfLLzJl33opKIlJMxd9q2eY+GyqKGACkFLWKNTouK5wMJnHbQd +E9NbIO9g9fTiIgvrSvt0rd9vgf8BVhMWnQ== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "PlotRange" -> {{0, 30}, {0., 0.07215231045860267}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +6969,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 +6997,8 @@ Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.15475569508294718`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07215231045860267}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -2836,25 +7006,884 @@ 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.993959821489759*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"b6a7364e-972b-458d-be6b-3a0000d8ef45"] }, 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.005381"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.015959"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.025999"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.035173"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.043213"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.049902"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.055111"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.058771"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.060904"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.061577"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.060934"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.059136"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.056395"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.052912"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.048907"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.044569"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.040087"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.035606"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.031259"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.027134"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.023309"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.019818"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.016691"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.013926"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.01152"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.009447"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.007687"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.006205"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.004972"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.003954"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.003124"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, { + 3.993958609582444*^9, 3.9939586163174*^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:eJxTTMoPSmViYGCQB2IQDQNLGAINkrnK7CG8D/YFW/1i+sInQPkMDkmGr6Kq +58+C8jkczrencxoxLYLyBRw0tNtWMyssg/JFHAL6mFwO9qyE8iUc3u708W0y +XwPlyzi85X7Rai2+DspXcJimnKJwXm89lK/koKgQ78TaDuOrOFidyz201wjG +V3PYGsTxRMgdpl/D4cmtAMNz92HmazmUHVGU9hBfDeXrOAA5s8O4YO7RcyjZ +dKVq/0WYew0clAL+Nnu0LYHyDR1s9EWlP1vB/GfkcNon868u4wIo39jhkHfB +K+aTs6F8E4edQeebAu5Nh/JNHeT5a8u1vadA+WYOttd6eIrEJ0L55g6HXZpF +bFp7oHwLB/5r/y3PTG+H8i0dus7EPPgU0QzlWzkw5q6OTK+ph/KtHd7OVGXM +yqqE8m0cpK+FiLXGlkD5tg4f5zGfFjQqgPLtHO40Ld3VMD3THgDPenlb + "]]}, + 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:eJxTTMoPSmViYGCQB2IQDQNLGAINkrnK7CG8D/YFW/1i+sInQPkMDkmGr6Kq +58+C8jkczrencxoxLYLyBRw0tNtWMyssg/JFHAL6mFwO9qyE8iUc3u708W0y +XwPlyzi85X7Rai2+DspXcJimnKJwXm89lK/koKgQ78TaDuOrOFidyz201wjG +V3PYGsTxRMgdpl/D4cmtAMNz92HmazmUHVGU9hBfDeXrOAA5s8O4YO7RcyjZ +dKVq/0WYew0clAL+Nnu0LYHyDR1s9EWlP1vB/GfkcNon868u4wIo39jhkHfB +K+aTs6F8E4edQeebAu5Nh/JNHeT5a8u1vadA+WYOttd6eIrEJ0L55g6HXZpF +bFp7oHwLB/5r/y3PTG+H8i0dus7EPPgU0QzlWzkw5q6OTK+ph/KtHd7OVGXM +yqqE8m0cpK+FiLXGlkD5tg4f5zGfFjQqgPLtHO40Ld3VMD3THgDPenlb + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.061577}}, + "Frame" -> {{False, 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.061577}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGCQB2IQDQNLGAINkrnK7CG8D/YFW/1i+sInQPkMDkmGr6Kq +58+C8jkczrencxoxLYLyBRw0tNtWMyssg/JFHAL6mFwO9qyE8iUc3u708W0y +XwPlyzi85X7Rai2+DspXcJimnKJwXm89lK/koKgQ78TaDuOrOFidyz201wjG +V3PYGsTxRMgdpl/D4cmtAMNz92HmazmUHVGU9hBfDeXrOAA5s8O4YO7RcyjZ +dKVq/0WYew0clAL+Nnu0LYHyDR1s9EWlP1vB/GfkcNon868u4wIo39jhkHfB +K+aTs6F8E4edQeebAu5Nh/JNHeT5a8u1vadA+WYOttd6eIrEJ0L55g6HXZpF +bFp7oHwLB/5r/y3PTG+H8i0dus7EPPgU0QzlWzkw5q6OTK+ph/KtHd7OVGXM +yqqE8m0cpK+FiLXGlkD5tg4f5zGfFjQqgPLtHO40Ld3VMD3THgDPenlb + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.061577}}, + "Frame" -> {{False, 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.061577}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9939598216536913`*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"a49b2d34-32b1-45e7-9f69-5633f27b30b8"] +}, 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:eJwV13c8Vf8fB3DRQFLmvck495rJnhnX+42SETJCQtlNJFklo0hpCMkoSSgU +9540rBIi0kJW3yiV+vpKRhSR3/n9dR7Px+dxzueMz/v1/hyGT7CjPzcXFxex +hIvr/8eZgdYmuZRCk0aanp9ErplJVx49yrQ3AXS+WSkaCTEAxV750HvToC84 +aUxESBPCt5X28PQWwD7NzVaza0xBaIyWNttDQv1J/85XaxxgsNYu+GdPA9Tx +zZ6zXuMNFnIj7yd6OmDn6sDhzYKHYLZH/9J4zxDE1uxqYy2Ph0bzm4VvCqZg ++LWsV1DWRZAcrBr2UVmAM/1ioQ9eZoPogV2lK8x5sOr23M+wR/mQpmlRY7ed +FyO4owc3FxZCX5ZG/cSaVXgwtN9Mee4mpBTGvuJeK4QCW4yvfdQrA1rGp9Pp +V0Xwo5+XJvv3HaBvuHfyd7EI0puaDeS5y0GiISnWky2ChfGCvBkry0F6fP0R +xUYRHB6InvCSLgf5rSG7a76JYFHwTHeJeTloL13Q+6QtipNGc6PC58rBPkz8 +s1abKIprtVQpr6uAU85WJh0zYmh+IaVBSpgNEpUvJbiXiCM7bVuntzgbykWc +f2muFMeADdO0Agk2dHd4sS/KiOOzOm0jmiwb5BzCmA6W4tgWoz/Qqc2GBttr +y19ni+Ma0yrMdGbDgsX0yxfGNJzlH6Wx0tmQWhxdtmBBw3MKwZPLL1PnL+dK +VnWgYZDy9pn2HDZsfcpves6fhoanPKJsC9iQY07c3XqehsOhKgEEhw0b0eby +80EaGrTplq96yYbDBtd3tSbQ8baJ4uDSZRywzhf8aXOWjoqD/fvW8XKAueJY +8stLdCy9yMhRW8mB110unM5bdDzfbfzJWogDaiECPAMv6fhe5aH0TikOfCuO +KJ6UWItDYg/1+nU44CFq933d3bVYnfaX28mbA9pHa+LzatfiCtVQrr++HOAf +UhJnNK/FxV7lgqIADlRV8IBC31oMWd7aMbKfA+I2Vakai2vxBO3Ef1vDqfnj +5XQ220hgMP9d0ZAzHNj0Yy466JMEHpMas9ZmcyDKMkP5yagEErns5kCSA+XX +VftFZiRwZdSYQHYlB+jOuw2qeNdh7BHO7MRDDow+fPqLR20dFn7ycI95woH0 +hNSw7Mh1mNuSt3/uDQeGxBSCmlZJYtyYevaFcQ7Qgh9L0WiSmCul9d5zkgNb +n7m92EtI4o5sqZ9KPzlwPzpFZbW2JPIk/sm994sDZwbHR3a4SSJnSvj9rb8c +0CqpCfxRIIkiJXmHfq0kId7YwVtioxS2+2lG68uRYOmVN6lvJoWt80e9HsuT +IBj334ntW6WQnd6Wbq5IwpXGxOLU3VLYIlY2hcokPLSu/m/5aSmM3wBZqzVI +GHeTDZ/qk8LKhUcz84YkPIgOWSH0WQpVRvU0rI1JOH6lLkttTAon79Cb0lkk +CHxwrdnLLY0LH3IX1iEJioFnuT4oS+P4q5BWrs0keB2ZPtN+VBqdWy+6SNqR +IH/ZTHIkURo3LVqcVLcnqfd34c6KVGlcJzolDttIiJ5f/9qsUBrfX5g76ORI +wqUTXmJV7dLo+fvCzDYXEjyKyoq7u6UxM7pu1xZXEpgtv/V/fpDGw6IZ2oZu +JLD5093Vp6VRIEtZWsydhPaLLdeKpGTQQa9WJN+ThPS7opqNijJYJTkyHOVF +gvtb74YPmjLoFlGlvG0XCd/o85/XWcjgZXPbFZO7SeDJ11BOC5JBP6u59Sv9 +SDAsz648/lgGlVyCm9P3krCp5+XC2DMZ5BmadVLeR4Id19ItuzpkMHNatLOO +sq9jUB98kcEDWexb7/aTYHGUERu3jMCnLRlNkwdJeL669sZGfgIH+e9NhASR +sK3Q5dm4IIH6Ax/FRinvfJEi5E0n0Oe7qkVfMAkhMjM3TDcQ6J3l5H7hEAnT +d1OfzaoTGP0x02macrTlhu8cHQKHlmVYuYWSkHhotx7ThMCd4/lqYodJ4F/+ +x73fjMAjMvIywZRTcy7Fpm0hkOuPzepmyjmNbc+4HQjUbQqd2BdGgoyb//fq +7QReFv3++SHlwtFFocPuBPa8/dvPc4SECjHdnZ98CQy89OVNKmWd0lexuXsI +tP1g2NVBudpkX6HTQQKNdZT+EQonoSnw2vfGcAILrnUuJlG2mjcQPnaUwKL3 +NKk6yi9Tu/R04gjsDOEyH6fsLB+8c/QkgZnGjqFEBAl9VXxxhacJFH3fUWZL +2cuusNDjPIHsYsvxCMqfh0xaRdMJPF8Ujdco743o+95+mUCBqxpXGymPrQwT +TrxCoOUK7RVfKB/OF9RnXScwVdQmlieShN86JTuniwgcLzVbLkP5eKt53J1S +Asv9P1/Rp8zjNVDoX0FgVcYfc1vKyZORrVKV1PMZO8/voix4SmTs7UMCeUVr +moMpp68rFz5fR6D8qYUbxyjT2Zb6Fg0EGt39NyOJ8tVNn3b+bSZQYo9dzjnK +zL6YuPvPCTRR/FN5kfKtg/SioNfU95Ct/5JGWZX7bqvCWwL1IEj1/+Nkpu3Y +QB+ByYI9Z89S3rjhm/DlAQL5utqXJlKue5ygb/+JwNJ4ZmY0ZTNnKY8V3wj8 ++qDM9CDllm8P4h6PEohPjXk9KW+NcSyKmCCwuqh0xIpyh9D3VvUZAj25n/+r +Tdm1+NTY1zkCb2iELV9H+R9Dpkj+IoHzmjGmi9T79HlVq++2lIG2d+tyP1D+ +6uvqsYaPgS4CguKPKR/4PRH3bBUDLWELJ4ey4aEA8WFhBt7hnuIKocw70l/G +Q2fgrbiFSVPK3T72pgwpBi59HJO8hnLRu8ZuEyYDH5alNLyj1keY88YDHooM +1JPEghuUzV7cXhKtwsDU9kqlPZQHHl1SuafHwNwd1mpfqfV4W5+/ocOIgReU +blRcpxzNPu46jtT9Saj840ZZvCAwYYMNA3+vsjSqo9a7faJB7/VdDPTgU9X0 +oupD+u+dg4/9GLjsTOKGv1R9jYYzed7vZSDHlN6fQzl5z0o1ehgDed/Fu7VR +9Vhv8/7E+WQG6mvcnlsSQsL5Joe1t88xsL5H/MEpqp49WM3lrWnU8w/Ma/BT +nlWr6Ft6lYHvrv3nvYyqfy3hePWjHAY2hLr0dVH5wZUy3ZR1n4HtVVkFSPkl +zz73+zUMdFjyQquEypv9046JE08Z6Len+3YIlU+FvXLvAvsZGBspv74vgIRQ +h+yQxEEGFkyV2mygjG2rlt/4zECTkXaTaH8S3tfMaAyMMfDGxbZcQSrvxK89 +S3LmYeIzZ3EnIW+qvmgsyVBeJkbd/SRpTeUjmcrhXFjFxDpUfhJL5ad9Qs4/ +bTQmKr2UyftI5W2y/wEtUxUmhm540h5L5fHshjUDqtuZuFRunKboRMLMVYl4 +bXcmlgcvuadF5f3P1fJyBruYmLNmk6eRA1WvUwb7Nu1l4r9XTLvMqX4xVOM7 +4x7DxHO74o5r2pDQZvNAMLmIiZOHjPrizKj1XPeEc66Umo8/ss7TlMob9Xbn +9Aom7nF5Uq9P9adHIh9z8qqYKH4vaf0nqn+R7/gV771goqWg602aAZV/+71g +aJqJcTxvD/1WI+Hy+z1DX+eYuDCdMXhTlYQM+8OJ3xeZePhXb5yzCvU9tZOf +/+aTxQQFGd+i9SQk/OG4rpaWxZPWjOfyVD/en7IsxNhCFt/0VNgV0EkwLrud +n5kpi6VmrIPpixx4R5Rd25wriwshhdG8VH+PzizJ+3lNFgn3DtbReQ48iC++ +4lgii4vCY//umKX6v1t+lmCtLKpmKv/+Q+0f1i/LSE36KIu1DO7hzi/UfmfX +0bhwFTlMdb431N/KgXtdUbHymnI4mB3SyfuMA87Wkce7dOXwXdb4VZ1mDqTp +HjmmBXL4gbuzKbGBA6sEgiPHHORwdsIkWrCGA0urfEICIuRQ2/VkYnUZByaE +rXe7NMhh4Ik/BokpHOg9wHy9r0UOHeNEo8xPc6C+eQ5i2+VQeZL0WEziQGp0 +mcytbjnsrI+jhSRwQGNIYHB2RA6/eoUl6kZxIIjzyvOqiDyae9tmOFD7txH7 +7Ts/+8njTNUmep8JBz6f3e0SukIBZa1stx79lw1WPyKsvugpoueHmqxEXTaM ++vIeroxVQrdtupNBZDn1/0DjPtWwHvvmWkry+m+D8AuF8+wfysjd/lniEV8Z +SCZXbNPTU0HX/Xqky5ISyNpgsEYkUBWfKleFrxK7CW0SprpTF9UwbkVK7KJ2 +ERhKNqSqd6ujKVf3sKX2DRDkKQjzTtBAx6s9jB2+10E6XsZ4h4Im6rCURCp5 +rgGfvMd9xxZN7Bv/b7ViUi6osdZWRHhqoXZphsiLyCwIHRButObSRuTO+BIf +cAl+TJ3dbpWljXHPV8utakqDLerNOVaqOkjmf7f3C0yFR1NGf3691EHrjTkR +QipnIUhFq/+Nvy7O6TftzbFJBtaYX9cOPj2MkRyMOXvhJGyWo9uuKtBDJd/t +y+Ri4kEp7kxkg74+TvdzHm8qjwFlf4PH8v36eDSraMixIhL8H+05WXloI+J2 +SXPu0jB4nN/lNyFmgGNWX31qf4TAz1uLv9QfGGBVYNoeXfZ+GHaxyD9dZYDc +p8kXYrn7oXfpOctPNQYY7Vs9xpO0H2p2S2Rn1hvgHZa9FZ/Hfkig6xoutBpg +ZVBiwQPe/bAmed+xtn8M8IT4/OwVv32gEviWy5/bEJ9u5dXfqbAXfOXL+HJs +DbH5SaWU9usAiH7qtU9hmyGGDzfZt9cGQKq/8HPS0RCvXra+f7gkAGqLos4+ +dzVEckKD63tCAIgqWK5e8DbEN752hcl6AdCs8EV0d7ghTrmZSHnm+4Oykgyh +cM0Q+8M6Os2O+8GEcroeOW6Id0ZFf1l5+0BvO24WmTLERLV5EXNHH6gPGnMK +mzZEvSSBQQtzHzhPWh3SmzNEc6ZbYJC8Dygbct2u5jFCnmMDmcYj3uBjdZDR +KG6EnT/KlV8f8YauwC0CXcZGuFdr3KM0Yzc8LPzzcTrZCF9JrvVqGfQEPfOw +X9YpRvhmsvqGZosn3Ps4KpB/zghv1G4vulPuCaT0gL51mhEGlZJkf4wn3M6q +P5eXa4SRn9I7Vkh5Qv7ZRIMt5UY4qnGWXuTlAafDVl/M6jRCzVdz0oVj7uC+ +SRaNpI1Rb21d5Elwg4UuXsFGwhglg1JbHNa7Qb7/2DtrWWOsZG7i1RRxg+Gk +qgh3JWNU8FBWl//qCqGt9hVRWsZ404zVOHTBFc7YHZN+aGGMlrO22bc+u0C1 +29t5nWBjzJutbBPI3Q7rDp6qUqs3xhI/2dUPNzrB+cUA3ZQGY1w1NRfyTtEJ +uNMsOF+bqOv9nZlbSXOCkfvLSvJbjdE1p9kvY9oRqrlOZgl3GqPogfQ807uO +4J4RFzHzxRivC/GoL9d0hKyaKN1HK1moNJBbN6/rAGL8Bzi2riz80pZZV9Ji +B4XmMdHjO1jo/iA8+/ktO9CKOW+e7sHC4kFrZb4zdmA3zn7b683CfcmzYj1b +7SCpe3rW9wALo+ssmms6beF3QaxZdDwLvevYBpnDW6HfKL2zuIyF9enD/osy +NrDnSOEVq3IWlv4QYAcvtYGZ8nv+o2xqvP+JzOw3axBm9v7SvM9CMTdRhitp +DTa8UpJ19Sxkby9IYllYQ21XsV/nWxZOXD43UBBqBdaCD1XDe1n4Qstr1xU3 +K+jd0jpDf8dC+j9Cr++YWMHP6v+SvT6wcK2Ksy59pRWoXte48+8IC8/Yayzy +FllCbb9p+NnvLPzcQI49TrEEa1EnUB9nYfexMv3zoZYQcOrIm7BpFoZEFqeE +ULuun/VJObTfLLzJl33opKIlJMxd9q2eY+GyqKGACkFLWKNTouK5wMJnHbQd +E9NbIO9g9fTiIgvrSvt0rd9vgf8BVhMWnQ== + "]]}, + 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:eJwV13c8Vf8fB3DRQFLmvck495rJnhnX+42SETJCQtlNJFklo0hpCMkoSSgU +9540rBIi0kJW3yiV+vpKRhSR3/n9dR7Px+dxzueMz/v1/hyGT7CjPzcXFxex +hIvr/8eZgdYmuZRCk0aanp9ErplJVx49yrQ3AXS+WSkaCTEAxV750HvToC84 +aUxESBPCt5X28PQWwD7NzVaza0xBaIyWNttDQv1J/85XaxxgsNYu+GdPA9Tx +zZ6zXuMNFnIj7yd6OmDn6sDhzYKHYLZH/9J4zxDE1uxqYy2Ph0bzm4VvCqZg ++LWsV1DWRZAcrBr2UVmAM/1ioQ9eZoPogV2lK8x5sOr23M+wR/mQpmlRY7ed +FyO4owc3FxZCX5ZG/cSaVXgwtN9Mee4mpBTGvuJeK4QCW4yvfdQrA1rGp9Pp +V0Xwo5+XJvv3HaBvuHfyd7EI0puaDeS5y0GiISnWky2ChfGCvBkry0F6fP0R +xUYRHB6InvCSLgf5rSG7a76JYFHwTHeJeTloL13Q+6QtipNGc6PC58rBPkz8 +s1abKIprtVQpr6uAU85WJh0zYmh+IaVBSpgNEpUvJbiXiCM7bVuntzgbykWc +f2muFMeADdO0Agk2dHd4sS/KiOOzOm0jmiwb5BzCmA6W4tgWoz/Qqc2GBttr +y19ni+Ma0yrMdGbDgsX0yxfGNJzlH6Wx0tmQWhxdtmBBw3MKwZPLL1PnL+dK +VnWgYZDy9pn2HDZsfcpves6fhoanPKJsC9iQY07c3XqehsOhKgEEhw0b0eby +80EaGrTplq96yYbDBtd3tSbQ8baJ4uDSZRywzhf8aXOWjoqD/fvW8XKAueJY +8stLdCy9yMhRW8mB110unM5bdDzfbfzJWogDaiECPAMv6fhe5aH0TikOfCuO +KJ6UWItDYg/1+nU44CFq933d3bVYnfaX28mbA9pHa+LzatfiCtVQrr++HOAf +UhJnNK/FxV7lgqIADlRV8IBC31oMWd7aMbKfA+I2Vakai2vxBO3Ef1vDqfnj +5XQ220hgMP9d0ZAzHNj0Yy466JMEHpMas9ZmcyDKMkP5yagEErns5kCSA+XX +VftFZiRwZdSYQHYlB+jOuw2qeNdh7BHO7MRDDow+fPqLR20dFn7ycI95woH0 +hNSw7Mh1mNuSt3/uDQeGxBSCmlZJYtyYevaFcQ7Qgh9L0WiSmCul9d5zkgNb +n7m92EtI4o5sqZ9KPzlwPzpFZbW2JPIk/sm994sDZwbHR3a4SSJnSvj9rb8c +0CqpCfxRIIkiJXmHfq0kId7YwVtioxS2+2lG68uRYOmVN6lvJoWt80e9HsuT +IBj334ntW6WQnd6Wbq5IwpXGxOLU3VLYIlY2hcokPLSu/m/5aSmM3wBZqzVI +GHeTDZ/qk8LKhUcz84YkPIgOWSH0WQpVRvU0rI1JOH6lLkttTAon79Cb0lkk +CHxwrdnLLY0LH3IX1iEJioFnuT4oS+P4q5BWrs0keB2ZPtN+VBqdWy+6SNqR +IH/ZTHIkURo3LVqcVLcnqfd34c6KVGlcJzolDttIiJ5f/9qsUBrfX5g76ORI +wqUTXmJV7dLo+fvCzDYXEjyKyoq7u6UxM7pu1xZXEpgtv/V/fpDGw6IZ2oZu +JLD5093Vp6VRIEtZWsydhPaLLdeKpGTQQa9WJN+ThPS7opqNijJYJTkyHOVF +gvtb74YPmjLoFlGlvG0XCd/o85/XWcjgZXPbFZO7SeDJ11BOC5JBP6u59Sv9 +SDAsz648/lgGlVyCm9P3krCp5+XC2DMZ5BmadVLeR4Id19ItuzpkMHNatLOO +sq9jUB98kcEDWexb7/aTYHGUERu3jMCnLRlNkwdJeL669sZGfgIH+e9NhASR +sK3Q5dm4IIH6Ax/FRinvfJEi5E0n0Oe7qkVfMAkhMjM3TDcQ6J3l5H7hEAnT +d1OfzaoTGP0x02macrTlhu8cHQKHlmVYuYWSkHhotx7ThMCd4/lqYodJ4F/+ +x73fjMAjMvIywZRTcy7Fpm0hkOuPzepmyjmNbc+4HQjUbQqd2BdGgoyb//fq +7QReFv3++SHlwtFFocPuBPa8/dvPc4SECjHdnZ98CQy89OVNKmWd0lexuXsI +tP1g2NVBudpkX6HTQQKNdZT+EQonoSnw2vfGcAILrnUuJlG2mjcQPnaUwKL3 +NKk6yi9Tu/R04gjsDOEyH6fsLB+8c/QkgZnGjqFEBAl9VXxxhacJFH3fUWZL +2cuusNDjPIHsYsvxCMqfh0xaRdMJPF8Ujdco743o+95+mUCBqxpXGymPrQwT +TrxCoOUK7RVfKB/OF9RnXScwVdQmlieShN86JTuniwgcLzVbLkP5eKt53J1S +Asv9P1/Rp8zjNVDoX0FgVcYfc1vKyZORrVKV1PMZO8/voix4SmTs7UMCeUVr +moMpp68rFz5fR6D8qYUbxyjT2Zb6Fg0EGt39NyOJ8tVNn3b+bSZQYo9dzjnK +zL6YuPvPCTRR/FN5kfKtg/SioNfU95Ct/5JGWZX7bqvCWwL1IEj1/+Nkpu3Y +QB+ByYI9Z89S3rjhm/DlAQL5utqXJlKue5ygb/+JwNJ4ZmY0ZTNnKY8V3wj8 ++qDM9CDllm8P4h6PEohPjXk9KW+NcSyKmCCwuqh0xIpyh9D3VvUZAj25n/+r +Tdm1+NTY1zkCb2iELV9H+R9Dpkj+IoHzmjGmi9T79HlVq++2lIG2d+tyP1D+ +6uvqsYaPgS4CguKPKR/4PRH3bBUDLWELJ4ey4aEA8WFhBt7hnuIKocw70l/G +Q2fgrbiFSVPK3T72pgwpBi59HJO8hnLRu8ZuEyYDH5alNLyj1keY88YDHooM +1JPEghuUzV7cXhKtwsDU9kqlPZQHHl1SuafHwNwd1mpfqfV4W5+/ocOIgReU +blRcpxzNPu46jtT9Saj840ZZvCAwYYMNA3+vsjSqo9a7faJB7/VdDPTgU9X0 +oupD+u+dg4/9GLjsTOKGv1R9jYYzed7vZSDHlN6fQzl5z0o1ehgDed/Fu7VR +9Vhv8/7E+WQG6mvcnlsSQsL5Joe1t88xsL5H/MEpqp49WM3lrWnU8w/Ma/BT +nlWr6Ft6lYHvrv3nvYyqfy3hePWjHAY2hLr0dVH5wZUy3ZR1n4HtVVkFSPkl +zz73+zUMdFjyQquEypv9046JE08Z6Len+3YIlU+FvXLvAvsZGBspv74vgIRQ +h+yQxEEGFkyV2mygjG2rlt/4zECTkXaTaH8S3tfMaAyMMfDGxbZcQSrvxK89 +S3LmYeIzZ3EnIW+qvmgsyVBeJkbd/SRpTeUjmcrhXFjFxDpUfhJL5ad9Qs4/ +bTQmKr2UyftI5W2y/wEtUxUmhm540h5L5fHshjUDqtuZuFRunKboRMLMVYl4 +bXcmlgcvuadF5f3P1fJyBruYmLNmk6eRA1WvUwb7Nu1l4r9XTLvMqX4xVOM7 +4x7DxHO74o5r2pDQZvNAMLmIiZOHjPrizKj1XPeEc66Umo8/ss7TlMob9Xbn +9Aom7nF5Uq9P9adHIh9z8qqYKH4vaf0nqn+R7/gV771goqWg602aAZV/+71g +aJqJcTxvD/1WI+Hy+z1DX+eYuDCdMXhTlYQM+8OJ3xeZePhXb5yzCvU9tZOf +/+aTxQQFGd+i9SQk/OG4rpaWxZPWjOfyVD/en7IsxNhCFt/0VNgV0EkwLrud +n5kpi6VmrIPpixx4R5Rd25wriwshhdG8VH+PzizJ+3lNFgn3DtbReQ48iC++ +4lgii4vCY//umKX6v1t+lmCtLKpmKv/+Q+0f1i/LSE36KIu1DO7hzi/UfmfX +0bhwFTlMdb431N/KgXtdUbHymnI4mB3SyfuMA87Wkce7dOXwXdb4VZ1mDqTp +HjmmBXL4gbuzKbGBA6sEgiPHHORwdsIkWrCGA0urfEICIuRQ2/VkYnUZByaE +rXe7NMhh4Ik/BokpHOg9wHy9r0UOHeNEo8xPc6C+eQ5i2+VQeZL0WEziQGp0 +mcytbjnsrI+jhSRwQGNIYHB2RA6/eoUl6kZxIIjzyvOqiDyae9tmOFD7txH7 +7Ts/+8njTNUmep8JBz6f3e0SukIBZa1stx79lw1WPyKsvugpoueHmqxEXTaM ++vIeroxVQrdtupNBZDn1/0DjPtWwHvvmWkry+m+D8AuF8+wfysjd/lniEV8Z +SCZXbNPTU0HX/Xqky5ISyNpgsEYkUBWfKleFrxK7CW0SprpTF9UwbkVK7KJ2 +ERhKNqSqd6ujKVf3sKX2DRDkKQjzTtBAx6s9jB2+10E6XsZ4h4Im6rCURCp5 +rgGfvMd9xxZN7Bv/b7ViUi6osdZWRHhqoXZphsiLyCwIHRButObSRuTO+BIf +cAl+TJ3dbpWljXHPV8utakqDLerNOVaqOkjmf7f3C0yFR1NGf3691EHrjTkR +QipnIUhFq/+Nvy7O6TftzbFJBtaYX9cOPj2MkRyMOXvhJGyWo9uuKtBDJd/t +y+Ri4kEp7kxkg74+TvdzHm8qjwFlf4PH8v36eDSraMixIhL8H+05WXloI+J2 +SXPu0jB4nN/lNyFmgGNWX31qf4TAz1uLv9QfGGBVYNoeXfZ+GHaxyD9dZYDc +p8kXYrn7oXfpOctPNQYY7Vs9xpO0H2p2S2Rn1hvgHZa9FZ/Hfkig6xoutBpg +ZVBiwQPe/bAmed+xtn8M8IT4/OwVv32gEviWy5/bEJ9u5dXfqbAXfOXL+HJs +DbH5SaWU9usAiH7qtU9hmyGGDzfZt9cGQKq/8HPS0RCvXra+f7gkAGqLos4+ +dzVEckKD63tCAIgqWK5e8DbEN752hcl6AdCs8EV0d7ghTrmZSHnm+4Oykgyh +cM0Q+8M6Os2O+8GEcroeOW6Id0ZFf1l5+0BvO24WmTLERLV5EXNHH6gPGnMK +mzZEvSSBQQtzHzhPWh3SmzNEc6ZbYJC8Dygbct2u5jFCnmMDmcYj3uBjdZDR +KG6EnT/KlV8f8YauwC0CXcZGuFdr3KM0Yzc8LPzzcTrZCF9JrvVqGfQEPfOw +X9YpRvhmsvqGZosn3Ps4KpB/zghv1G4vulPuCaT0gL51mhEGlZJkf4wn3M6q +P5eXa4SRn9I7Vkh5Qv7ZRIMt5UY4qnGWXuTlAafDVl/M6jRCzVdz0oVj7uC+ +SRaNpI1Rb21d5Elwg4UuXsFGwhglg1JbHNa7Qb7/2DtrWWOsZG7i1RRxg+Gk +qgh3JWNU8FBWl//qCqGt9hVRWsZ404zVOHTBFc7YHZN+aGGMlrO22bc+u0C1 +29t5nWBjzJutbBPI3Q7rDp6qUqs3xhI/2dUPNzrB+cUA3ZQGY1w1NRfyTtEJ +uNMsOF+bqOv9nZlbSXOCkfvLSvJbjdE1p9kvY9oRqrlOZgl3GqPogfQ807uO +4J4RFzHzxRivC/GoL9d0hKyaKN1HK1moNJBbN6/rAGL8Bzi2riz80pZZV9Ji +B4XmMdHjO1jo/iA8+/ktO9CKOW+e7sHC4kFrZb4zdmA3zn7b683CfcmzYj1b +7SCpe3rW9wALo+ssmms6beF3QaxZdDwLvevYBpnDW6HfKL2zuIyF9enD/osy +NrDnSOEVq3IWlv4QYAcvtYGZ8nv+o2xqvP+JzOw3axBm9v7SvM9CMTdRhitp +DTa8UpJ19Sxkby9IYllYQ21XsV/nWxZOXD43UBBqBdaCD1XDe1n4Qstr1xU3 +K+jd0jpDf8dC+j9Cr++YWMHP6v+SvT6wcK2Ksy59pRWoXte48+8IC8/Yayzy +FllCbb9p+NnvLPzcQI49TrEEa1EnUB9nYfexMv3zoZYQcOrIm7BpFoZEFqeE +ULuun/VJObTfLLzJl33opKIlJMxd9q2eY+GyqKGACkFLWKNTouK5wMJnHbQd +E9NbIO9g9fTiIgvrSvt0rd9vgf8BVhMWnQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07215231045860267}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.07215231045860267}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJwV13c8Vf8fB3DRQFLmvck495rJnhnX+42SETJCQtlNJFklo0hpCMkoSSgU +9540rBIi0kJW3yiV+vpKRhSR3/n9dR7Px+dxzueMz/v1/hyGT7CjPzcXFxex +hIvr/8eZgdYmuZRCk0aanp9ErplJVx49yrQ3AXS+WSkaCTEAxV750HvToC84 +aUxESBPCt5X28PQWwD7NzVaza0xBaIyWNttDQv1J/85XaxxgsNYu+GdPA9Tx +zZ6zXuMNFnIj7yd6OmDn6sDhzYKHYLZH/9J4zxDE1uxqYy2Ph0bzm4VvCqZg ++LWsV1DWRZAcrBr2UVmAM/1ioQ9eZoPogV2lK8x5sOr23M+wR/mQpmlRY7ed +FyO4owc3FxZCX5ZG/cSaVXgwtN9Mee4mpBTGvuJeK4QCW4yvfdQrA1rGp9Pp +V0Xwo5+XJvv3HaBvuHfyd7EI0puaDeS5y0GiISnWky2ChfGCvBkry0F6fP0R +xUYRHB6InvCSLgf5rSG7a76JYFHwTHeJeTloL13Q+6QtipNGc6PC58rBPkz8 +s1abKIprtVQpr6uAU85WJh0zYmh+IaVBSpgNEpUvJbiXiCM7bVuntzgbykWc +f2muFMeADdO0Agk2dHd4sS/KiOOzOm0jmiwb5BzCmA6W4tgWoz/Qqc2GBttr +y19ni+Ma0yrMdGbDgsX0yxfGNJzlH6Wx0tmQWhxdtmBBw3MKwZPLL1PnL+dK +VnWgYZDy9pn2HDZsfcpves6fhoanPKJsC9iQY07c3XqehsOhKgEEhw0b0eby +80EaGrTplq96yYbDBtd3tSbQ8baJ4uDSZRywzhf8aXOWjoqD/fvW8XKAueJY +8stLdCy9yMhRW8mB110unM5bdDzfbfzJWogDaiECPAMv6fhe5aH0TikOfCuO +KJ6UWItDYg/1+nU44CFq933d3bVYnfaX28mbA9pHa+LzatfiCtVQrr++HOAf +UhJnNK/FxV7lgqIADlRV8IBC31oMWd7aMbKfA+I2Vakai2vxBO3Ef1vDqfnj +5XQ220hgMP9d0ZAzHNj0Yy466JMEHpMas9ZmcyDKMkP5yagEErns5kCSA+XX +VftFZiRwZdSYQHYlB+jOuw2qeNdh7BHO7MRDDow+fPqLR20dFn7ycI95woH0 +hNSw7Mh1mNuSt3/uDQeGxBSCmlZJYtyYevaFcQ7Qgh9L0WiSmCul9d5zkgNb +n7m92EtI4o5sqZ9KPzlwPzpFZbW2JPIk/sm994sDZwbHR3a4SSJnSvj9rb8c +0CqpCfxRIIkiJXmHfq0kId7YwVtioxS2+2lG68uRYOmVN6lvJoWt80e9HsuT +IBj334ntW6WQnd6Wbq5IwpXGxOLU3VLYIlY2hcokPLSu/m/5aSmM3wBZqzVI +GHeTDZ/qk8LKhUcz84YkPIgOWSH0WQpVRvU0rI1JOH6lLkttTAon79Cb0lkk +CHxwrdnLLY0LH3IX1iEJioFnuT4oS+P4q5BWrs0keB2ZPtN+VBqdWy+6SNqR +IH/ZTHIkURo3LVqcVLcnqfd34c6KVGlcJzolDttIiJ5f/9qsUBrfX5g76ORI +wqUTXmJV7dLo+fvCzDYXEjyKyoq7u6UxM7pu1xZXEpgtv/V/fpDGw6IZ2oZu +JLD5093Vp6VRIEtZWsydhPaLLdeKpGTQQa9WJN+ThPS7opqNijJYJTkyHOVF +gvtb74YPmjLoFlGlvG0XCd/o85/XWcjgZXPbFZO7SeDJ11BOC5JBP6u59Sv9 +SDAsz648/lgGlVyCm9P3krCp5+XC2DMZ5BmadVLeR4Id19ItuzpkMHNatLOO +sq9jUB98kcEDWexb7/aTYHGUERu3jMCnLRlNkwdJeL669sZGfgIH+e9NhASR +sK3Q5dm4IIH6Ax/FRinvfJEi5E0n0Oe7qkVfMAkhMjM3TDcQ6J3l5H7hEAnT +d1OfzaoTGP0x02macrTlhu8cHQKHlmVYuYWSkHhotx7ThMCd4/lqYodJ4F/+ +x73fjMAjMvIywZRTcy7Fpm0hkOuPzepmyjmNbc+4HQjUbQqd2BdGgoyb//fq +7QReFv3++SHlwtFFocPuBPa8/dvPc4SECjHdnZ98CQy89OVNKmWd0lexuXsI +tP1g2NVBudpkX6HTQQKNdZT+EQonoSnw2vfGcAILrnUuJlG2mjcQPnaUwKL3 +NKk6yi9Tu/R04gjsDOEyH6fsLB+8c/QkgZnGjqFEBAl9VXxxhacJFH3fUWZL +2cuusNDjPIHsYsvxCMqfh0xaRdMJPF8Ujdco743o+95+mUCBqxpXGymPrQwT +TrxCoOUK7RVfKB/OF9RnXScwVdQmlieShN86JTuniwgcLzVbLkP5eKt53J1S +Asv9P1/Rp8zjNVDoX0FgVcYfc1vKyZORrVKV1PMZO8/voix4SmTs7UMCeUVr +moMpp68rFz5fR6D8qYUbxyjT2Zb6Fg0EGt39NyOJ8tVNn3b+bSZQYo9dzjnK +zL6YuPvPCTRR/FN5kfKtg/SioNfU95Ct/5JGWZX7bqvCWwL1IEj1/+Nkpu3Y +QB+ByYI9Z89S3rjhm/DlAQL5utqXJlKue5ygb/+JwNJ4ZmY0ZTNnKY8V3wj8 ++qDM9CDllm8P4h6PEohPjXk9KW+NcSyKmCCwuqh0xIpyh9D3VvUZAj25n/+r +Tdm1+NTY1zkCb2iELV9H+R9Dpkj+IoHzmjGmi9T79HlVq++2lIG2d+tyP1D+ +6uvqsYaPgS4CguKPKR/4PRH3bBUDLWELJ4ey4aEA8WFhBt7hnuIKocw70l/G +Q2fgrbiFSVPK3T72pgwpBi59HJO8hnLRu8ZuEyYDH5alNLyj1keY88YDHooM +1JPEghuUzV7cXhKtwsDU9kqlPZQHHl1SuafHwNwd1mpfqfV4W5+/ocOIgReU +blRcpxzNPu46jtT9Saj840ZZvCAwYYMNA3+vsjSqo9a7faJB7/VdDPTgU9X0 +oupD+u+dg4/9GLjsTOKGv1R9jYYzed7vZSDHlN6fQzl5z0o1ehgDed/Fu7VR +9Vhv8/7E+WQG6mvcnlsSQsL5Joe1t88xsL5H/MEpqp49WM3lrWnU8w/Ma/BT +nlWr6Ft6lYHvrv3nvYyqfy3hePWjHAY2hLr0dVH5wZUy3ZR1n4HtVVkFSPkl +zz73+zUMdFjyQquEypv9046JE08Z6Len+3YIlU+FvXLvAvsZGBspv74vgIRQ +h+yQxEEGFkyV2mygjG2rlt/4zECTkXaTaH8S3tfMaAyMMfDGxbZcQSrvxK89 +S3LmYeIzZ3EnIW+qvmgsyVBeJkbd/SRpTeUjmcrhXFjFxDpUfhJL5ad9Qs4/ +bTQmKr2UyftI5W2y/wEtUxUmhm540h5L5fHshjUDqtuZuFRunKboRMLMVYl4 +bXcmlgcvuadF5f3P1fJyBruYmLNmk6eRA1WvUwb7Nu1l4r9XTLvMqX4xVOM7 +4x7DxHO74o5r2pDQZvNAMLmIiZOHjPrizKj1XPeEc66Umo8/ss7TlMob9Xbn +9Aom7nF5Uq9P9adHIh9z8qqYKH4vaf0nqn+R7/gV771goqWg602aAZV/+71g +aJqJcTxvD/1WI+Hy+z1DX+eYuDCdMXhTlYQM+8OJ3xeZePhXb5yzCvU9tZOf +/+aTxQQFGd+i9SQk/OG4rpaWxZPWjOfyVD/en7IsxNhCFt/0VNgV0EkwLrud +n5kpi6VmrIPpixx4R5Rd25wriwshhdG8VH+PzizJ+3lNFgn3DtbReQ48iC++ +4lgii4vCY//umKX6v1t+lmCtLKpmKv/+Q+0f1i/LSE36KIu1DO7hzi/UfmfX +0bhwFTlMdb431N/KgXtdUbHymnI4mB3SyfuMA87Wkce7dOXwXdb4VZ1mDqTp +HjmmBXL4gbuzKbGBA6sEgiPHHORwdsIkWrCGA0urfEICIuRQ2/VkYnUZByaE +rXe7NMhh4Ik/BokpHOg9wHy9r0UOHeNEo8xPc6C+eQ5i2+VQeZL0WEziQGp0 +mcytbjnsrI+jhSRwQGNIYHB2RA6/eoUl6kZxIIjzyvOqiDyae9tmOFD7txH7 +7Ts/+8njTNUmep8JBz6f3e0SukIBZa1stx79lw1WPyKsvugpoueHmqxEXTaM ++vIeroxVQrdtupNBZDn1/0DjPtWwHvvmWkry+m+D8AuF8+wfysjd/lniEV8Z +SCZXbNPTU0HX/Xqky5ISyNpgsEYkUBWfKleFrxK7CW0SprpTF9UwbkVK7KJ2 +ERhKNqSqd6ujKVf3sKX2DRDkKQjzTtBAx6s9jB2+10E6XsZ4h4Im6rCURCp5 +rgGfvMd9xxZN7Bv/b7ViUi6osdZWRHhqoXZphsiLyCwIHRButObSRuTO+BIf +cAl+TJ3dbpWljXHPV8utakqDLerNOVaqOkjmf7f3C0yFR1NGf3691EHrjTkR +QipnIUhFq/+Nvy7O6TftzbFJBtaYX9cOPj2MkRyMOXvhJGyWo9uuKtBDJd/t +y+Ri4kEp7kxkg74+TvdzHm8qjwFlf4PH8v36eDSraMixIhL8H+05WXloI+J2 +SXPu0jB4nN/lNyFmgGNWX31qf4TAz1uLv9QfGGBVYNoeXfZ+GHaxyD9dZYDc +p8kXYrn7oXfpOctPNQYY7Vs9xpO0H2p2S2Rn1hvgHZa9FZ/Hfkig6xoutBpg +ZVBiwQPe/bAmed+xtn8M8IT4/OwVv32gEviWy5/bEJ9u5dXfqbAXfOXL+HJs +DbH5SaWU9usAiH7qtU9hmyGGDzfZt9cGQKq/8HPS0RCvXra+f7gkAGqLos4+ +dzVEckKD63tCAIgqWK5e8DbEN752hcl6AdCs8EV0d7ghTrmZSHnm+4Oykgyh +cM0Q+8M6Os2O+8GEcroeOW6Id0ZFf1l5+0BvO24WmTLERLV5EXNHH6gPGnMK +mzZEvSSBQQtzHzhPWh3SmzNEc6ZbYJC8Dygbct2u5jFCnmMDmcYj3uBjdZDR +KG6EnT/KlV8f8YauwC0CXcZGuFdr3KM0Yzc8LPzzcTrZCF9JrvVqGfQEPfOw +X9YpRvhmsvqGZosn3Ps4KpB/zghv1G4vulPuCaT0gL51mhEGlZJkf4wn3M6q +P5eXa4SRn9I7Vkh5Qv7ZRIMt5UY4qnGWXuTlAafDVl/M6jRCzVdz0oVj7uC+ +SRaNpI1Rb21d5Elwg4UuXsFGwhglg1JbHNa7Qb7/2DtrWWOsZG7i1RRxg+Gk +qgh3JWNU8FBWl//qCqGt9hVRWsZ404zVOHTBFc7YHZN+aGGMlrO22bc+u0C1 +29t5nWBjzJutbBPI3Q7rDp6qUqs3xhI/2dUPNzrB+cUA3ZQGY1w1NRfyTtEJ +uNMsOF+bqOv9nZlbSXOCkfvLSvJbjdE1p9kvY9oRqrlOZgl3GqPogfQ807uO +4J4RFzHzxRivC/GoL9d0hKyaKN1HK1moNJBbN6/rAGL8Bzi2riz80pZZV9Ji +B4XmMdHjO1jo/iA8+/ktO9CKOW+e7sHC4kFrZb4zdmA3zn7b683CfcmzYj1b +7SCpe3rW9wALo+ssmms6beF3QaxZdDwLvevYBpnDW6HfKL2zuIyF9enD/osy +NrDnSOEVq3IWlv4QYAcvtYGZ8nv+o2xqvP+JzOw3axBm9v7SvM9CMTdRhitp +DTa8UpJ19Sxkby9IYllYQ21XsV/nWxZOXD43UBBqBdaCD1XDe1n4Qstr1xU3 +K+jd0jpDf8dC+j9Cr++YWMHP6v+SvT6wcK2Ksy59pRWoXte48+8IC8/Yayzy +FllCbb9p+NnvLPzcQI49TrEEa1EnUB9nYfexMv3zoZYQcOrIm7BpFoZEFqeE +ULuun/VJObTfLLzJl33opKIlJMxd9q2eY+GyqKGACkFLWKNTouK5wMJnHbQd +E9NbIO9g9fTiIgvrSvt0rd9vgf8BVhMWnQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07215231045860267}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJxTTMoPSmViYGCQB2IQDQNLGAINkrnK7CG8D/YFW/1i+sInQPkMDkmGr6Kq +58+C8jkczrencxoxLYLyBRw0tNtWMyssg/JFHAL6mFwO9qyE8iUc3u708W0y +XwPlyzi85X7Rai2+DspXcJimnKJwXm89lK/koKgQ78TaDuOrOFidyz201wjG +V3PYGsTxRMgdpl/D4cmtAMNz92HmazmUHVGU9hBfDeXrOAA5s8O4YO7RcyjZ +dKVq/0WYew0clAL+Nnu0LYHyDR1s9EWlP1vB/GfkcNon868u4wIo39jhkHfB +K+aTs6F8E4edQeebAu5Nh/JNHeT5a8u1vadA+WYOttd6eIrEJ0L55g6HXZpF +bFp7oHwLB/5r/y3PTG+H8i0dus7EPPgU0QzlWzkw5q6OTK+ph/KtHd7OVGXM +yqqE8m0cpK+FiLXGlkD5tg4f5zGfFjQqgPLtHO40Ld3VMD3THgDPenlb + "]]}, + 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:eJxTTMoPSmViYGCQB2IQDQNLGAINkrnK7CG8D/YFW/1i+sInQPkMDkmGr6Kq +58+C8jkczrencxoxLYLyBRw0tNtWMyssg/JFHAL6mFwO9qyE8iUc3u708W0y +XwPlyzi85X7Rai2+DspXcJimnKJwXm89lK/koKgQ78TaDuOrOFidyz201wjG +V3PYGsTxRMgdpl/D4cmtAMNz92HmazmUHVGU9hBfDeXrOAA5s8O4YO7RcyjZ +dKVq/0WYew0clAL+Nnu0LYHyDR1s9EWlP1vB/GfkcNon868u4wIo39jhkHfB +K+aTs6F8E4edQeebAu5Nh/JNHeT5a8u1vadA+WYOttd6eIrEJ0L55g6HXZpF +bFp7oHwLB/5r/y3PTG+H8i0dus7EPPgU0QzlWzkw5q6OTK+ph/KtHd7OVGXM +yqqE8m0cpK+FiLXGlkD5tg4f5zGfFjQqgPLtHO40Ld3VMD3THgDPenlb + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.061577}}, + "Frame" -> {{False, 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.061577}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGCQB2IQDQNLGAINkrnK7CG8D/YFW/1i+sInQPkMDkmGr6Kq +58+C8jkczrencxoxLYLyBRw0tNtWMyssg/JFHAL6mFwO9qyE8iUc3u708W0y +XwPlyzi85X7Rai2+DspXcJimnKJwXm89lK/koKgQ78TaDuOrOFidyz201wjG +V3PYGsTxRMgdpl/D4cmtAMNz92HmazmUHVGU9hBfDeXrOAA5s8O4YO7RcyjZ +dKVq/0WYew0clAL+Nnu0LYHyDR1s9EWlP1vB/GfkcNon868u4wIo39jhkHfB +K+aTs6F8E4edQeebAu5Nh/JNHeT5a8u1vadA+WYOttd6eIrEJ0L55g6HXZpF +bFp7oHwLB/5r/y3PTG+H8i0dus7EPPgU0QzlWzkw5q6OTK+ph/KtHd7OVGXM +yqqE8m0cpK+FiLXGlkD5tg4f5zGfFjQqgPLtHO40Ld3VMD3THgDPenlb + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.061577}}, + "Frame" -> {{False, 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.07215231045860267}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993959821679152*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"dd94de66-277a-45bd-8dd6-48f081e8104e"] +}, Open ]], Cell[CellGroupData[{ @@ -2863,14 +7892,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["10.7942552113593`"], "Output", + CellChangeTimes->{3.9913294794877434`*^9, 3.993959821705879*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"78b7a8a2-635e-4d9a-bad0-186aa3aa49c1"] }, Open ]], Cell[CellGroupData[{ @@ -2926,177 +7953,164 @@ 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[\\\"6.51645802235142`*^-260\\\", \ \\\"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, 13, 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913294796838703`*^9, 3.993959821805903*^9}, CellLabel-> "During evaluation of \ -In[172]:=",ExpressionUUID->"321e1ff2-86f6-7244-895a-0b744ecd0cf1"], +In[99]:=",ExpressionUUID->"79b13ad1-653a-4056-8611-60c063ed6a08"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.6088527253781134`*^-269\\\", \ +\\\"78176755153939869305210274200729021751146846355456000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 99, 14, 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913294796838703`*^9, 3.993959821811968*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"09852616-dade-4ef5-a3a4-27231a3522f6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9986038349050043`*^-278\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 99, 15, 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913294796838703`*^9, 3.993959821817753*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"ebcdf6f4-f802-4e76-ac69-05cbf75d1f54"], 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, 16, 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913294796838703`*^9, 3.993959821823461*^9}, CellLabel-> "During evaluation of \ -In[172]:=",ExpressionUUID->"43e0f399-4fd6-3f4d-a3a8-ef137bebb344"], +In[99]:=",ExpressionUUID->"6f407c6a-940b-45f8-a6ce-ddbee339cee9"], 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:eJwV13k8VF8bAHCMQokihrHNjK3sZMkyPY8lZckekiWkkkIhIaGytUj0IgkJ +pSxzRdkTyRLatKm0l2yRLSLv/f11P9/Pveece59zzvOcy/AJcvDj4uDgWMPJ +wfHfdWag84HcmcJN6pw1IQW1xpv6csUijF+fADWWB2ufCR1Q5LGP2Os0SDko +PmtiogFH7G6+orwugOZt5ybWmyCsGaOmzb2qhOLJ7d8oJnbwocEmaOpVC/Tv +yK8/bbwLzOWG3k+8egZqD0NqqiEY5l7p/W/81Wdg+DhHBGyMhVbT64VPCyah +SjLHw6stFSQ/1H73UVmET3I2MYs5WbD2gNdNHlMKJnoW3Z2byYM0TfN6m+28 +SK2SnLhfew3eZGk0T6xehfdX18efmiiGM4Uxj7nE1+BwV0PMC5GbQL34JTn9 +ijBGPjlplt1RCmLK1af+FAujOk+nw+DTUqC1JMR4sIVxuUNJkcbbUpAeXx+m +2CqM3V0Ja9mjpSBvHbyrflAYsVxjxl+oDDZwL+p+2bAWU+ztHnW4lYFtqOhX +ra61aLDptobyjzJIdLLY9GxGBCVurm6xHisHWlUvjYtTFKPXPRvvnimHcmGn +Wc2VorgliUvCfKkcXj7zZF+QEcVcVylP2dUVIGcfyrTfKordzO6EZM0KaNmW +t/zJJVG0MdO4TgmpgEXz6d4eIyoeqLj8smS8AlKLI28tmlNxWLf255Y/ZPvl +HEmq9lRU6ij/OLBUAdZtK4zP+VGxne9XfRQPG7JN6betU6i4K5Mz11+UDRvR +KvPRByoeC+hxyt7AhhD9q16dJ8TQtqiBzyaADZb5AlNWZ8VQpzTm4aFANjB5 +jiX1/k8MG3M9dqcdYsOTPmfi+Q0x/KHHbdoVzga1YH7KQK8YPlTcl7z2FBsG +i8OLf9PE0auaul44hw3ua21GJW6L49474jtrOtmwIao+LrdBHK8PrpA82s2G +FZ/XiTIeiiMPrbFB+zEbaisooPBGHCVcIq4U9rFB1Ko2VWNJHI85i733/ECO +HyenvdmKhrHipp6sKTaY/ZqPDPxCQ9s8va8FEgREbL2odH+EhumCQx9+SxFQ +flW1X3iGhh8pX94BnQAxp136tbwSuKpZ5e0TOQJGatpmKWoSmEUZHelVJSD9 +RGropaMSuKDimGAIBHwWUQh8sEoSy8X8Hr7yIoAadE+KSpVEsYbvBh3eBFh3 +uPb40yXxpUrAnWpfAu5EnlER3CCJ2pcDWhP3EnD6w/jQDldJrArnMuINIkCr +pH7vrwJJNM79/SEymoA4I3tv2kYplOjO+Lgui4Ctnrm/9UyksCYop+ndJQIE +YodPbreWQlqav+K5ywTktMYXp+6SwuvBgpe/5BJQY1k3vDxZCu/x14nuLSJg +3FX2yOQbKZzIy3zQQRBwNzKYZ81XKfQJOX1q820Cjuc0ZqmNSeGoaMbLpioC ++D+61PtzSaNG+ITW9bsEKO49y/FRSRrDN7X32zQS4Bk2fbo7Sho7Rfvc5tsJ +kM80kRyKl8aYrvsR2Plf/M6X8aRK4ymXdRtOdhEQubD+iUmhNKqa5YT/6ybg +fyc9RWq7pbE6559z91MCui+05xVJyWAgsTDR1k/G+/ZazVZFGWxpuLb44i0B +bi+8Wz5qyiARpVT2+R0Bg2ILXyXMZbBq3HF+YoAASr6GUlqgDG7UrPEc/EyA +QfmlquP3ZLB8cuVH7SECzF71Lo51yKAr34FxjmECbDi4t3g9k0FrqwnJLtK+ +DoFv4JsMDqy91u04SoB5FCMmdhkdOfIcMszGCXgk2HBt4wo63ngbnzlH2q7Q +uWNcgI7HL+6qvTVBwM6eM2u8xeiYYL3Tm2eSgGCZmWvGynSciqp2yJkmYPp2 +asecOh29DYL8DWbIeGxVHiW06Wh0MbboBen4Q7t0mZvoSMkUTKX8ISC7tauD +y56O/ke6gTVPgIyr32jddjp2NimnPSBdOLK0JsSNjmdb7wlY/CWgQkRn5xdf +Ogq2cCZbLBDwYG/eaOsROorYHElf948AiwV9oWNRdDzovrT1Eune1D5d7Vg6 +Vh59qMqzRMCbWr7YwmQ6eoTmJ/aT9rQpLHRPoeOZJ4uLwFEJXz9v6lybTseA +DWrFBaTHVoYKxefQUSugMMWLsxJC8gX0WFfpuEzC4Ekt6T/aJTuni+iYnGBi +voarEiieA4V+FXR0z3J4dpe0GHurnnkLHeM+yUd/oVTCFbMvO/89pOOTJa4w +Re5KYL6Jjr3ziI6u/JXF+0irct3uVHhBR4s547rPpCszto0NvKFjWvSJKxLL +KmGj8qBQ5gAdv+s6NdqTNnGScucZpGNJyaHqatLtg3dj743QMUKNef4Laeto +h6LwCToqHVe9IbC8Ep6tGe1Un6GjU+YWTj3SLsWJYz/m6WgsIX/ZnfQ7A6Zw +/hLZ37aoIzGkfR436LlyM1B4LcfFPNI/fF3cV/MxMGHaf6qB9IE/E7Edqxgo +SAvOekXa4NAe0e9CDKyVfO8zQZp3qP8WRYyBvIUSf3h4KuGlj60xQ4qBuSHU +HRKki962vtzEZOA/pcYEZdKhThsPuCsysMlsPm4jaZOeUs5IFQa+F2m0MiG9 +2pyRmanJQN2eqa9bSQ80/U+lWpcc7/AFG2vSpXorWp4ZMrD7+8nk/xzJPu4y +jgy88akxw4L01vWTI6vMGZj1WzPclLRowd4TylYM3B/zXNmA9FfaO6qFHQNr +WjOqVUlXptuV7dnOQO0nwSLSpGP520xOuTGQctrFeiVp23j911e9GEi7abxz +mvxe6X9lB+/tZmB6g4LpO9IjR5iU9/4MfCGzxN1Muu5XRtZ8IAM1uR9czSed +tG+lmlgoAxf3B9GOk3b+FNOqE8HAefmFIFfScm5Tro7HGXj9pd81ddLNVu9P +piQxsKik5XofOb8pD+zFS88xMJNKRBaQdmc9LO9MY+Df1SHqB0nPqVW84b7C +wO98h0zmyPXUcV02iFnAwIa75QV1pDPoWdx4nYHm1q2DR0lrCcWpRxHkeNrR +SiPkeuU4M/0g6w4DC04qrbtKupey3+1OPQMdypsEHUkHTDvET7QxMEqqKr+M +XO8Gge00wUcM5Lsoa+1MmveHIVvlCQPFLTK+/SX3S+Frubd7+xk4YnbzO4v0 +YftLwfEfyP4HvOz6yf2GXauWX/vKQNedxqUhpN/Xz2gMjDHQbLZm0xVyv4rm +dSQ4UZjonfR3+NEiAV+pLMnDvEw0qj/DbUe6MpUgzq9iYq9qI/UpmR9sT2S/ +66IyMfWstVYXmT+S/A5oGasw0V/A1DlrjoA55dUDqtuZaKlD21Y0RcDMFVrc +BjcmDmuHNSyQ+W1KUF5O34uJAnPmjvakxyb195v5M3GdS+LfCTIffq73nXGL +ZuJQrZLTml8EdFndFUgqYuL28HiRzkEC2hvvE+duMrFNy+DY5A8yX6l3O6VX +MLFgb6qEBOkm4U/ZubVMnHaO4/X5Rr7/2xWK1T1M/GGpV9f7icyPAZ7weZqJ +/MzxUDmyXmS+3/f5xzwTHa31hphvCLhoGxI/usTENNWvJdKvCUjZkPToD58s +zjKm+AVeEnDiL+EiKC2L8qoVcf/Vn4Azy4KNzGVRvSZQvrODAKNbpfkZGaSF +2oI7yXr4ln4rb/NlWXzy9GjKabJeRmaU5E7lyeLkSqVDFpVkPY0rznEokcX3 +vbuTmyvIeu6anyXQIIsf8wPpF28SsH7ZxdSET7Jom5TW+jSPnC+vqNgjKnKY +eOVLW1kSAdV9ETHymnJI3NPfvz6RACfLo8f7dORQR0JrsiCegDSdsGNaIIdf +koTvnj9BwCr+oKNj9nJooTvOtDtGAHetT/CecDk82tcYeJA8T0wIWe5ybpFD +wZM9XAwnAl4fYD7Z3y6HYfvza7UdCGh+OA8x3XI44FglaW5HQGrkLZkbL+Vw +/fDvEW9rAjQ+83+YG5LDqO+Kb6PNCAgkHntcEZZHcPOjbdUmYMh2+86vu+Wx +KvJFuroQud7O7nI+zKOAl0unnme0syFwSIWpwa+AifqaOyzb2DC7ZW50dLUC +tglHyS60kOc7Slq8P00BK+TvnXFrYoNGRGvVLlUF9H7Q1cVVzYZoPwVhW0cF +zGV5c3IVkOe9TSOPlfMUsDr0vEVrJBssfoVbfNNVxLM3HztcUGTDiC9vSFXM +OlyM2NJh3VxO/m9QuRJb1qOd/PofywXLQKhHIYX9SwmtBe/7MrxugWRShZ2u +rgqmZZS5ZxwpgSxl/dXCe1Vx6fA1ualr16GLZqwzeUENAyLdzadeFYGBZEuq ++kt1rM92E/X+eQ0EKAWh3ic0MKuwbdlf+QKQjpMx2qGgiW/fTOiHbcsHPnn3 +Ow7tmmirfui6gcIV8j9KvCLcQwtf854OptCy4fCAUKslxwakdmymCnBlwq/J +s9stsjbg8Puw3XVOF2GL+sNsC1VtZB6+k8//8wI0TRr+ne3VxlMKQXqzy89D +oIpW/1M/HZTk9+fe+Pc0sMZ29+3g00WBpaxrK/gTYbOc2LZVBbqYHVTtnNB+ +EtbFnj7aoqeHfLd9ayJ/xYKSn/49+X49fJfhRhkPOQZ+TftOVR3aiIvyB41V ++Y/Cvfy+3RMi+jgkcdWqcDgEpm4szarf1UfZXv+Fw2HB4Ct/iy97mwHOT2zx +v7onACaU0nUrxw3wZ+mdd2uc9kBN4d9P00mG6CP+WJ3b1Qd0TUNnLc8YYoTH +FE+1hQ9Ufxrhzz9niOr7ey4EGfpApfSAnmUaeX9VbhGnjA+UZjWfy71siMl7 +1Q0vffeG/LPx+lvKDVHN1vv8hXBvSA4VvJD13BD3KEw3n8jfBW5msmgobYSs +yT/bsmiesNjHK9BKN0L/n1He4RyekO839tZS1gjvaw3a7v/uAd8TasPd1hnh +zm73s2cqPeBwp21FhBb5/KFhlTorDzhtc0y6xtwIP8wk72mMc4c61xcL2kFG +WLPUdp5nwQ0kDibWqjUbYW9PICGu6AopS3t0zrQYYVVyxAynsCtwpZkTPx4Y +4Wmf4L9//rnA0J1lJfmdRpjPZ8oQfuUCdRynsoSeG2Hiae3PM4ku4HYxNnzm +mxEqBIaFhI44Q1Z9hE7TShbuU7IKWNG8HURWHCC2ubDQYaiup+W8IxSaRkeO +72Dh1xY/VIx2BK3oFNN0dxbqchYfuLzfEWzG2S9ee7NwOn5TW+VmR0h4OT3n +e4CFsfYRkLPgAH8KYkwi41i4sMOMbXfQAfoN058X32LhesqVQ5M77GFfWGGO +RTkLr3T9/aRvYQ8z5dV+I2wW/vTJIVI22oMQ8/Ws5h2yvchLM1+qPVjxSkk2 +NrPwrHwP9e4LO2joK979/AULk4wc9nJstwNLgRrVI69Z6PotdEJxsx283tI5 +I/aWhVK3tHQ9dOxgqm44yfMjC5tEaO3jInagelWj7OcQ2X/L2v6wClto6Dc+ +cnaUhTrnr+7OTbUFy7WOoD7OwiC38dZPh2xhT2LY09BpFob9OUDUaNvCVHNC +NvUPGS8KRcxa1BZOzGf61s2z0O6oMvf8rA2s1i5R8Vhk4TOark/LGxvIPVg3 +vbTEwnO10dJF9Tbwf4OarRc= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -3110,136 +8124,120 @@ 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:eJwV13k8VF8bAHCMQokihrHNjK3sZMkyPY8lZckekiWkkkIhIaGytUj0IgkJ +pSxzRdkTyRLatKm0l2yRLSLv/f11P9/Pveece59zzvOcy/AJcvDj4uDgWMPJ +wfHfdWag84HcmcJN6pw1IQW1xpv6csUijF+fADWWB2ufCR1Q5LGP2Os0SDko +PmtiogFH7G6+orwugOZt5ybWmyCsGaOmzb2qhOLJ7d8oJnbwocEmaOpVC/Tv +yK8/bbwLzOWG3k+8egZqD0NqqiEY5l7p/W/81Wdg+DhHBGyMhVbT64VPCyah +SjLHw6stFSQ/1H73UVmET3I2MYs5WbD2gNdNHlMKJnoW3Z2byYM0TfN6m+28 +SK2SnLhfew3eZGk0T6xehfdX18efmiiGM4Uxj7nE1+BwV0PMC5GbQL34JTn9 +ijBGPjlplt1RCmLK1af+FAujOk+nw+DTUqC1JMR4sIVxuUNJkcbbUpAeXx+m +2CqM3V0Ja9mjpSBvHbyrflAYsVxjxl+oDDZwL+p+2bAWU+ztHnW4lYFtqOhX +ra61aLDptobyjzJIdLLY9GxGBCVurm6xHisHWlUvjYtTFKPXPRvvnimHcmGn +Wc2VorgliUvCfKkcXj7zZF+QEcVcVylP2dUVIGcfyrTfKordzO6EZM0KaNmW +t/zJJVG0MdO4TgmpgEXz6d4eIyoeqLj8smS8AlKLI28tmlNxWLf255Y/ZPvl +HEmq9lRU6ij/OLBUAdZtK4zP+VGxne9XfRQPG7JN6betU6i4K5Mz11+UDRvR +KvPRByoeC+hxyt7AhhD9q16dJ8TQtqiBzyaADZb5AlNWZ8VQpzTm4aFANjB5 +jiX1/k8MG3M9dqcdYsOTPmfi+Q0x/KHHbdoVzga1YH7KQK8YPlTcl7z2FBsG +i8OLf9PE0auaul44hw3ua21GJW6L49474jtrOtmwIao+LrdBHK8PrpA82s2G +FZ/XiTIeiiMPrbFB+zEbaisooPBGHCVcIq4U9rFB1Ko2VWNJHI85i733/ECO +HyenvdmKhrHipp6sKTaY/ZqPDPxCQ9s8va8FEgREbL2odH+EhumCQx9+SxFQ +flW1X3iGhh8pX94BnQAxp136tbwSuKpZ5e0TOQJGatpmKWoSmEUZHelVJSD9 +RGropaMSuKDimGAIBHwWUQh8sEoSy8X8Hr7yIoAadE+KSpVEsYbvBh3eBFh3 +uPb40yXxpUrAnWpfAu5EnlER3CCJ2pcDWhP3EnD6w/jQDldJrArnMuINIkCr +pH7vrwJJNM79/SEymoA4I3tv2kYplOjO+Lgui4Ctnrm/9UyksCYop+ndJQIE +YodPbreWQlqav+K5ywTktMYXp+6SwuvBgpe/5BJQY1k3vDxZCu/x14nuLSJg +3FX2yOQbKZzIy3zQQRBwNzKYZ81XKfQJOX1q820Cjuc0ZqmNSeGoaMbLpioC ++D+61PtzSaNG+ITW9bsEKO49y/FRSRrDN7X32zQS4Bk2fbo7Sho7Rfvc5tsJ +kM80kRyKl8aYrvsR2Plf/M6X8aRK4ymXdRtOdhEQubD+iUmhNKqa5YT/6ybg +fyc9RWq7pbE6559z91MCui+05xVJyWAgsTDR1k/G+/ZazVZFGWxpuLb44i0B +bi+8Wz5qyiARpVT2+R0Bg2ILXyXMZbBq3HF+YoAASr6GUlqgDG7UrPEc/EyA +QfmlquP3ZLB8cuVH7SECzF71Lo51yKAr34FxjmECbDi4t3g9k0FrqwnJLtK+ +DoFv4JsMDqy91u04SoB5FCMmdhkdOfIcMszGCXgk2HBt4wo63ngbnzlH2q7Q +uWNcgI7HL+6qvTVBwM6eM2u8xeiYYL3Tm2eSgGCZmWvGynSciqp2yJkmYPp2 +asecOh29DYL8DWbIeGxVHiW06Wh0MbboBen4Q7t0mZvoSMkUTKX8ISC7tauD +y56O/ke6gTVPgIyr32jddjp2NimnPSBdOLK0JsSNjmdb7wlY/CWgQkRn5xdf +Ogq2cCZbLBDwYG/eaOsROorYHElf948AiwV9oWNRdDzovrT1Eune1D5d7Vg6 +Vh59qMqzRMCbWr7YwmQ6eoTmJ/aT9rQpLHRPoeOZJ4uLwFEJXz9v6lybTseA +DWrFBaTHVoYKxefQUSugMMWLsxJC8gX0WFfpuEzC4Ekt6T/aJTuni+iYnGBi +voarEiieA4V+FXR0z3J4dpe0GHurnnkLHeM+yUd/oVTCFbMvO/89pOOTJa4w +Re5KYL6Jjr3ziI6u/JXF+0irct3uVHhBR4s547rPpCszto0NvKFjWvSJKxLL +KmGj8qBQ5gAdv+s6NdqTNnGScucZpGNJyaHqatLtg3dj743QMUKNef4Laeto +h6LwCToqHVe9IbC8Ep6tGe1Un6GjU+YWTj3SLsWJYz/m6WgsIX/ZnfQ7A6Zw +/hLZ37aoIzGkfR436LlyM1B4LcfFPNI/fF3cV/MxMGHaf6qB9IE/E7Edqxgo +SAvOekXa4NAe0e9CDKyVfO8zQZp3qP8WRYyBvIUSf3h4KuGlj60xQ4qBuSHU +HRKki962vtzEZOA/pcYEZdKhThsPuCsysMlsPm4jaZOeUs5IFQa+F2m0MiG9 +2pyRmanJQN2eqa9bSQ80/U+lWpcc7/AFG2vSpXorWp4ZMrD7+8nk/xzJPu4y +jgy88akxw4L01vWTI6vMGZj1WzPclLRowd4TylYM3B/zXNmA9FfaO6qFHQNr +WjOqVUlXptuV7dnOQO0nwSLSpGP520xOuTGQctrFeiVp23j911e9GEi7abxz +mvxe6X9lB+/tZmB6g4LpO9IjR5iU9/4MfCGzxN1Muu5XRtZ8IAM1uR9czSed +tG+lmlgoAxf3B9GOk3b+FNOqE8HAefmFIFfScm5Tro7HGXj9pd81ddLNVu9P +piQxsKik5XofOb8pD+zFS88xMJNKRBaQdmc9LO9MY+Df1SHqB0nPqVW84b7C +wO98h0zmyPXUcV02iFnAwIa75QV1pDPoWdx4nYHm1q2DR0lrCcWpRxHkeNrR +SiPkeuU4M/0g6w4DC04qrbtKupey3+1OPQMdypsEHUkHTDvET7QxMEqqKr+M +XO8Gge00wUcM5Lsoa+1MmveHIVvlCQPFLTK+/SX3S+Frubd7+xk4YnbzO4v0 +YftLwfEfyP4HvOz6yf2GXauWX/vKQNedxqUhpN/Xz2gMjDHQbLZm0xVyv4rm +dSQ4UZjonfR3+NEiAV+pLMnDvEw0qj/DbUe6MpUgzq9iYq9qI/UpmR9sT2S/ +66IyMfWstVYXmT+S/A5oGasw0V/A1DlrjoA55dUDqtuZaKlD21Y0RcDMFVrc +BjcmDmuHNSyQ+W1KUF5O34uJAnPmjvakxyb195v5M3GdS+LfCTIffq73nXGL +ZuJQrZLTml8EdFndFUgqYuL28HiRzkEC2hvvE+duMrFNy+DY5A8yX6l3O6VX +MLFgb6qEBOkm4U/ZubVMnHaO4/X5Rr7/2xWK1T1M/GGpV9f7icyPAZ7weZqJ +/MzxUDmyXmS+3/f5xzwTHa31hphvCLhoGxI/usTENNWvJdKvCUjZkPToD58s +zjKm+AVeEnDiL+EiKC2L8qoVcf/Vn4Azy4KNzGVRvSZQvrODAKNbpfkZGaSF +2oI7yXr4ln4rb/NlWXzy9GjKabJeRmaU5E7lyeLkSqVDFpVkPY0rznEokcX3 +vbuTmyvIeu6anyXQIIsf8wPpF28SsH7ZxdSET7Jom5TW+jSPnC+vqNgjKnKY +eOVLW1kSAdV9ETHymnJI3NPfvz6RACfLo8f7dORQR0JrsiCegDSdsGNaIIdf +koTvnj9BwCr+oKNj9nJooTvOtDtGAHetT/CecDk82tcYeJA8T0wIWe5ybpFD +wZM9XAwnAl4fYD7Z3y6HYfvza7UdCGh+OA8x3XI44FglaW5HQGrkLZkbL+Vw +/fDvEW9rAjQ+83+YG5LDqO+Kb6PNCAgkHntcEZZHcPOjbdUmYMh2+86vu+Wx +KvJFuroQud7O7nI+zKOAl0unnme0syFwSIWpwa+AifqaOyzb2DC7ZW50dLUC +tglHyS60kOc7Slq8P00BK+TvnXFrYoNGRGvVLlUF9H7Q1cVVzYZoPwVhW0cF +zGV5c3IVkOe9TSOPlfMUsDr0vEVrJBssfoVbfNNVxLM3HztcUGTDiC9vSFXM +OlyM2NJh3VxO/m9QuRJb1qOd/PofywXLQKhHIYX9SwmtBe/7MrxugWRShZ2u +rgqmZZS5ZxwpgSxl/dXCe1Vx6fA1ualr16GLZqwzeUENAyLdzadeFYGBZEuq ++kt1rM92E/X+eQ0EKAWh3ic0MKuwbdlf+QKQjpMx2qGgiW/fTOiHbcsHPnn3 +Ow7tmmirfui6gcIV8j9KvCLcQwtf854OptCy4fCAUKslxwakdmymCnBlwq/J +s9stsjbg8Puw3XVOF2GL+sNsC1VtZB6+k8//8wI0TRr+ne3VxlMKQXqzy89D +oIpW/1M/HZTk9+fe+Pc0sMZ29+3g00WBpaxrK/gTYbOc2LZVBbqYHVTtnNB+ +EtbFnj7aoqeHfLd9ayJ/xYKSn/49+X49fJfhRhkPOQZ+TftOVR3aiIvyB41V ++Y/Cvfy+3RMi+jgkcdWqcDgEpm4szarf1UfZXv+Fw2HB4Ct/iy97mwHOT2zx +v7onACaU0nUrxw3wZ+mdd2uc9kBN4d9P00mG6CP+WJ3b1Qd0TUNnLc8YYoTH +FE+1hQ9Ufxrhzz9niOr7ey4EGfpApfSAnmUaeX9VbhGnjA+UZjWfy71siMl7 +1Q0vffeG/LPx+lvKDVHN1vv8hXBvSA4VvJD13BD3KEw3n8jfBW5msmgobYSs +yT/bsmiesNjHK9BKN0L/n1He4RyekO839tZS1gjvaw3a7v/uAd8TasPd1hnh +zm73s2cqPeBwp21FhBb5/KFhlTorDzhtc0y6xtwIP8wk72mMc4c61xcL2kFG +WLPUdp5nwQ0kDibWqjUbYW9PICGu6AopS3t0zrQYYVVyxAynsCtwpZkTPx4Y +4Wmf4L9//rnA0J1lJfmdRpjPZ8oQfuUCdRynsoSeG2Hiae3PM4ku4HYxNnzm +mxEqBIaFhI44Q1Z9hE7TShbuU7IKWNG8HURWHCC2ubDQYaiup+W8IxSaRkeO +72Dh1xY/VIx2BK3oFNN0dxbqchYfuLzfEWzG2S9ee7NwOn5TW+VmR0h4OT3n +e4CFsfYRkLPgAH8KYkwi41i4sMOMbXfQAfoN058X32LhesqVQ5M77GFfWGGO +RTkLr3T9/aRvYQ8z5dV+I2wW/vTJIVI22oMQ8/Ws5h2yvchLM1+qPVjxSkk2 +NrPwrHwP9e4LO2joK979/AULk4wc9nJstwNLgRrVI69Z6PotdEJxsx283tI5 +I/aWhVK3tHQ9dOxgqm44yfMjC5tEaO3jInagelWj7OcQ2X/L2v6wClto6Dc+ +cnaUhTrnr+7OTbUFy7WOoD7OwiC38dZPh2xhT2LY09BpFob9OUDUaNvCVHNC +NvUPGS8KRcxa1BZOzGf61s2z0O6oMvf8rA2s1i5R8Vhk4TOark/LGxvIPVg3 +vbTEwnO10dJF9Tbwf4OarRc= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "PlotRange" -> {{0, 30}, {0., 0.07042387349420237}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +8249,19 @@ D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "PlotRange" -> {{0, 30}, {0., 0.07042387349420237}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +8275,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:eJwV13k8VF8bAHCMQokihrHNjK3sZMkyPY8lZckekiWkkkIhIaGytUj0IgkJ +pSxzRdkTyRLatKm0l2yRLSLv/f11P9/Pveece59zzvOcy/AJcvDj4uDgWMPJ +wfHfdWag84HcmcJN6pw1IQW1xpv6csUijF+fADWWB2ufCR1Q5LGP2Os0SDko +PmtiogFH7G6+orwugOZt5ybWmyCsGaOmzb2qhOLJ7d8oJnbwocEmaOpVC/Tv +yK8/bbwLzOWG3k+8egZqD0NqqiEY5l7p/W/81Wdg+DhHBGyMhVbT64VPCyah +SjLHw6stFSQ/1H73UVmET3I2MYs5WbD2gNdNHlMKJnoW3Z2byYM0TfN6m+28 +SK2SnLhfew3eZGk0T6xehfdX18efmiiGM4Uxj7nE1+BwV0PMC5GbQL34JTn9 +ijBGPjlplt1RCmLK1af+FAujOk+nw+DTUqC1JMR4sIVxuUNJkcbbUpAeXx+m +2CqM3V0Ja9mjpSBvHbyrflAYsVxjxl+oDDZwL+p+2bAWU+ztHnW4lYFtqOhX +ra61aLDptobyjzJIdLLY9GxGBCVurm6xHisHWlUvjYtTFKPXPRvvnimHcmGn +Wc2VorgliUvCfKkcXj7zZF+QEcVcVylP2dUVIGcfyrTfKordzO6EZM0KaNmW +t/zJJVG0MdO4TgmpgEXz6d4eIyoeqLj8smS8AlKLI28tmlNxWLf255Y/ZPvl +HEmq9lRU6ij/OLBUAdZtK4zP+VGxne9XfRQPG7JN6betU6i4K5Mz11+UDRvR +KvPRByoeC+hxyt7AhhD9q16dJ8TQtqiBzyaADZb5AlNWZ8VQpzTm4aFANjB5 +jiX1/k8MG3M9dqcdYsOTPmfi+Q0x/KHHbdoVzga1YH7KQK8YPlTcl7z2FBsG +i8OLf9PE0auaul44hw3ua21GJW6L49474jtrOtmwIao+LrdBHK8PrpA82s2G +FZ/XiTIeiiMPrbFB+zEbaisooPBGHCVcIq4U9rFB1Ko2VWNJHI85i733/ECO +HyenvdmKhrHipp6sKTaY/ZqPDPxCQ9s8va8FEgREbL2odH+EhumCQx9+SxFQ +flW1X3iGhh8pX94BnQAxp136tbwSuKpZ5e0TOQJGatpmKWoSmEUZHelVJSD9 +RGropaMSuKDimGAIBHwWUQh8sEoSy8X8Hr7yIoAadE+KSpVEsYbvBh3eBFh3 +uPb40yXxpUrAnWpfAu5EnlER3CCJ2pcDWhP3EnD6w/jQDldJrArnMuINIkCr +pH7vrwJJNM79/SEymoA4I3tv2kYplOjO+Lgui4Ctnrm/9UyksCYop+ndJQIE +YodPbreWQlqav+K5ywTktMYXp+6SwuvBgpe/5BJQY1k3vDxZCu/x14nuLSJg +3FX2yOQbKZzIy3zQQRBwNzKYZ81XKfQJOX1q820Cjuc0ZqmNSeGoaMbLpioC ++D+61PtzSaNG+ITW9bsEKO49y/FRSRrDN7X32zQS4Bk2fbo7Sho7Rfvc5tsJ +kM80kRyKl8aYrvsR2Plf/M6X8aRK4ymXdRtOdhEQubD+iUmhNKqa5YT/6ybg +fyc9RWq7pbE6559z91MCui+05xVJyWAgsTDR1k/G+/ZazVZFGWxpuLb44i0B +bi+8Wz5qyiARpVT2+R0Bg2ILXyXMZbBq3HF+YoAASr6GUlqgDG7UrPEc/EyA +QfmlquP3ZLB8cuVH7SECzF71Lo51yKAr34FxjmECbDi4t3g9k0FrqwnJLtK+ +DoFv4JsMDqy91u04SoB5FCMmdhkdOfIcMszGCXgk2HBt4wo63ngbnzlH2q7Q +uWNcgI7HL+6qvTVBwM6eM2u8xeiYYL3Tm2eSgGCZmWvGynSciqp2yJkmYPp2 +asecOh29DYL8DWbIeGxVHiW06Wh0MbboBen4Q7t0mZvoSMkUTKX8ISC7tauD +y56O/ke6gTVPgIyr32jddjp2NimnPSBdOLK0JsSNjmdb7wlY/CWgQkRn5xdf +Ogq2cCZbLBDwYG/eaOsROorYHElf948AiwV9oWNRdDzovrT1Eune1D5d7Vg6 +Vh59qMqzRMCbWr7YwmQ6eoTmJ/aT9rQpLHRPoeOZJ4uLwFEJXz9v6lybTseA +DWrFBaTHVoYKxefQUSugMMWLsxJC8gX0WFfpuEzC4Ekt6T/aJTuni+iYnGBi +voarEiieA4V+FXR0z3J4dpe0GHurnnkLHeM+yUd/oVTCFbMvO/89pOOTJa4w +Re5KYL6Jjr3ziI6u/JXF+0irct3uVHhBR4s547rPpCszto0NvKFjWvSJKxLL +KmGj8qBQ5gAdv+s6NdqTNnGScucZpGNJyaHqatLtg3dj743QMUKNef4Laeto +h6LwCToqHVe9IbC8Ep6tGe1Un6GjU+YWTj3SLsWJYz/m6WgsIX/ZnfQ7A6Zw +/hLZ37aoIzGkfR436LlyM1B4LcfFPNI/fF3cV/MxMGHaf6qB9IE/E7Edqxgo +SAvOekXa4NAe0e9CDKyVfO8zQZp3qP8WRYyBvIUSf3h4KuGlj60xQ4qBuSHU +HRKki962vtzEZOA/pcYEZdKhThsPuCsysMlsPm4jaZOeUs5IFQa+F2m0MiG9 +2pyRmanJQN2eqa9bSQ80/U+lWpcc7/AFG2vSpXorWp4ZMrD7+8nk/xzJPu4y +jgy88akxw4L01vWTI6vMGZj1WzPclLRowd4TylYM3B/zXNmA9FfaO6qFHQNr +WjOqVUlXptuV7dnOQO0nwSLSpGP520xOuTGQctrFeiVp23j911e9GEi7abxz +mvxe6X9lB+/tZmB6g4LpO9IjR5iU9/4MfCGzxN1Muu5XRtZ8IAM1uR9czSed +tG+lmlgoAxf3B9GOk3b+FNOqE8HAefmFIFfScm5Tro7HGXj9pd81ddLNVu9P +piQxsKik5XofOb8pD+zFS88xMJNKRBaQdmc9LO9MY+Df1SHqB0nPqVW84b7C +wO98h0zmyPXUcV02iFnAwIa75QV1pDPoWdx4nYHm1q2DR0lrCcWpRxHkeNrR +SiPkeuU4M/0g6w4DC04qrbtKupey3+1OPQMdypsEHUkHTDvET7QxMEqqKr+M +XO8Gge00wUcM5Lsoa+1MmveHIVvlCQPFLTK+/SX3S+Frubd7+xk4YnbzO4v0 +YftLwfEfyP4HvOz6yf2GXauWX/vKQNedxqUhpN/Xz2gMjDHQbLZm0xVyv4rm +dSQ4UZjonfR3+NEiAV+pLMnDvEw0qj/DbUe6MpUgzq9iYq9qI/UpmR9sT2S/ +66IyMfWstVYXmT+S/A5oGasw0V/A1DlrjoA55dUDqtuZaKlD21Y0RcDMFVrc +BjcmDmuHNSyQ+W1KUF5O34uJAnPmjvakxyb195v5M3GdS+LfCTIffq73nXGL +ZuJQrZLTml8EdFndFUgqYuL28HiRzkEC2hvvE+duMrFNy+DY5A8yX6l3O6VX +MLFgb6qEBOkm4U/ZubVMnHaO4/X5Rr7/2xWK1T1M/GGpV9f7icyPAZ7weZqJ +/MzxUDmyXmS+3/f5xzwTHa31hphvCLhoGxI/usTENNWvJdKvCUjZkPToD58s +zjKm+AVeEnDiL+EiKC2L8qoVcf/Vn4Azy4KNzGVRvSZQvrODAKNbpfkZGaSF +2oI7yXr4ln4rb/NlWXzy9GjKabJeRmaU5E7lyeLkSqVDFpVkPY0rznEokcX3 +vbuTmyvIeu6anyXQIIsf8wPpF28SsH7ZxdSET7Jom5TW+jSPnC+vqNgjKnKY +eOVLW1kSAdV9ETHymnJI3NPfvz6RACfLo8f7dORQR0JrsiCegDSdsGNaIIdf +koTvnj9BwCr+oKNj9nJooTvOtDtGAHetT/CecDk82tcYeJA8T0wIWe5ybpFD +wZM9XAwnAl4fYD7Z3y6HYfvza7UdCGh+OA8x3XI44FglaW5HQGrkLZkbL+Vw +/fDvEW9rAjQ+83+YG5LDqO+Kb6PNCAgkHntcEZZHcPOjbdUmYMh2+86vu+Wx +KvJFuroQud7O7nI+zKOAl0unnme0syFwSIWpwa+AifqaOyzb2DC7ZW50dLUC +tglHyS60kOc7Slq8P00BK+TvnXFrYoNGRGvVLlUF9H7Q1cVVzYZoPwVhW0cF +zGV5c3IVkOe9TSOPlfMUsDr0vEVrJBssfoVbfNNVxLM3HztcUGTDiC9vSFXM +OlyM2NJh3VxO/m9QuRJb1qOd/PofywXLQKhHIYX9SwmtBe/7MrxugWRShZ2u +rgqmZZS5ZxwpgSxl/dXCe1Vx6fA1ualr16GLZqwzeUENAyLdzadeFYGBZEuq ++kt1rM92E/X+eQ0EKAWh3ic0MKuwbdlf+QKQjpMx2qGgiW/fTOiHbcsHPnn3 +Ow7tmmirfui6gcIV8j9KvCLcQwtf854OptCy4fCAUKslxwakdmymCnBlwq/J +s9stsjbg8Puw3XVOF2GL+sNsC1VtZB6+k8//8wI0TRr+ne3VxlMKQXqzy89D +oIpW/1M/HZTk9+fe+Pc0sMZ29+3g00WBpaxrK/gTYbOc2LZVBbqYHVTtnNB+ +EtbFnj7aoqeHfLd9ayJ/xYKSn/49+X49fJfhRhkPOQZ+TftOVR3aiIvyB41V ++Y/Cvfy+3RMi+jgkcdWqcDgEpm4szarf1UfZXv+Fw2HB4Ct/iy97mwHOT2zx +v7onACaU0nUrxw3wZ+mdd2uc9kBN4d9P00mG6CP+WJ3b1Qd0TUNnLc8YYoTH +FE+1hQ9Ufxrhzz9niOr7ey4EGfpApfSAnmUaeX9VbhGnjA+UZjWfy71siMl7 +1Q0vffeG/LPx+lvKDVHN1vv8hXBvSA4VvJD13BD3KEw3n8jfBW5msmgobYSs +yT/bsmiesNjHK9BKN0L/n1He4RyekO839tZS1gjvaw3a7v/uAd8TasPd1hnh +zm73s2cqPeBwp21FhBb5/KFhlTorDzhtc0y6xtwIP8wk72mMc4c61xcL2kFG +WLPUdp5nwQ0kDibWqjUbYW9PICGu6AopS3t0zrQYYVVyxAynsCtwpZkTPx4Y +4Wmf4L9//rnA0J1lJfmdRpjPZ8oQfuUCdRynsoSeG2Hiae3PM4ku4HYxNnzm +mxEqBIaFhI44Q1Z9hE7TShbuU7IKWNG8HURWHCC2ubDQYaiup+W8IxSaRkeO +72Dh1xY/VIx2BK3oFNN0dxbqchYfuLzfEWzG2S9ee7NwOn5TW+VmR0h4OT3n +e4CFsfYRkLPgAH8KYkwi41i4sMOMbXfQAfoN058X32LhesqVQ5M77GFfWGGO +RTkLr3T9/aRvYQ8z5dV+I2wW/vTJIVI22oMQ8/Ws5h2yvchLM1+qPVjxSkk2 +NrPwrHwP9e4LO2joK979/AULk4wc9nJstwNLgRrVI69Z6PotdEJxsx283tI5 +I/aWhVK3tHQ9dOxgqm44yfMjC5tEaO3jInagelWj7OcQ2X/L2v6wClto6Dc+ +cnaUhTrnr+7OTbUFy7WOoD7OwiC38dZPh2xhT2LY09BpFob9OUDUaNvCVHNC +NvUPGS8KRcxa1BZOzGf61s2z0O6oMvf8rA2s1i5R8Vhk4TOark/LGxvIPVg3 +vbTEwnO10dJF9Tbwf4OarRc= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "PlotRange" -> {{0, 30}, {0., 0.07042387349420237}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +8398,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 +8426,8 @@ D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.07773075306777268}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07042387349420237}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -3451,9 +8435,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.993960333653842*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"a23663fa-7c84-4f79-abfe-a8d0b2987f20"] }, Open ]], Cell[CellGroupData[{ @@ -3506,66 +8489,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[\\\"2.778350039441047`*^-159\\\", \ +RowBox[{\\\"505518991860510123640143147290\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"90\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"761600000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 100, 17, + 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913298974999084`*^9, 3.993960333777129*^9}, CellLabel-> "During evaluation of \ -In[173]:=",ExpressionUUID->"6dc439d9-4983-a74d-a424-1e627442f8ec"], +In[100]:=",ExpressionUUID->"c9aa50e6-6751-4be3-a36c-596bbdb9726b"], 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[\\\"4.096623139172448`*^-162\\\", \ +RowBox[{\\\"164243120455479739170682508554\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"94\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"438400000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 100, 18, + 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913298974999084`*^9, 3.993960333785576*^9}, CellLabel-> "During evaluation of \ -In[173]:=",ExpressionUUID->"cbbb0a14-cac3-b246-be52-03554c6d0159"], +In[100]:=",ExpressionUUID->"0593898a-01d0-4602-8e92-558e5d816255"], 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[\\\"6.040391205630597`*^-165\\\", \ +RowBox[{\\\"552513857212233842570175958778\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"97\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"777600000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 100, 19, + 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913298974999084`*^9, 3.993960333792984*^9}, CellLabel-> "During evaluation of \ -In[173]:=",ExpressionUUID->"afaf59d8-5c82-5843-ba76-5dd1061c22bd"], +In[100]:=",ExpressionUUID->"16d2ad36-ed5d-4cc3-895d-ec41d074bb09"], 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, 20, 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913298974999084`*^9, 3.9939603337997017`*^9}, CellLabel-> "During evaluation of \ -In[173]:=",ExpressionUUID->"370cb98e-1084-6940-9e45-78218dc7334e"], +In[100]:=",ExpressionUUID->"522cf4ac-8860-4ece-af4a-1284f17a5ace"], -Cell[BoxData["9.77956849963325`"], "Output", - CellChangeTimes->{3.991329904262455*^9}, +Cell[BoxData["10.793076188605106`"], "Output", + CellChangeTimes->{3.991329904262455*^9, 3.993960381090536*^9}, CellLabel-> - "Out[173]=",ExpressionUUID->"49c1839c-f9a0-514a-9803-38aedd206508"] + "Out[100]=",ExpressionUUID->"45947dbe-ad61-4823-b6d9-55ad563449b3"] }, Open ]], Cell[CellGroupData[{ @@ -3632,68 +8622,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[\\\"1.1258542440017847`*^-212\\\", \ +RowBox[{\\\"111907153680443277505994197391\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"260731183104000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 101, 21, + 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329904300501*^9, 3.993960381158699*^9}, CellLabel-> "During evaluation of \ -In[174]:=",ExpressionUUID->"e4da2c2e-bc79-8048-aec6-e0a36c5fd50c"], +In[101]:=",ExpressionUUID->"ab0eedfc-e8f7-461f-8624-882f2f1a896d"], 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[\\\"7.620897572841534`*^-218\\\", \ +RowBox[{\\\"197404219092301941520573764198\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"929806995456000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 101, 22, + 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329904300501*^9, 3.993960381168454*^9}, CellLabel-> "During evaluation of \ -In[174]:=",ExpressionUUID->"ff48d9a8-4f15-044a-8d17-d378e560badf"], +In[101]:=",ExpressionUUID->"f9c6ff8a-ca09-467f-abdd-9a1342c868f3"], 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[\\\"5.158578930191422`*^-223\\\", \ +RowBox[{\\\"365000401101666289871540890002\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"213134598144000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 101, 23, + 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329904300501*^9, 3.993960381175497*^9}, CellLabel-> "During evaluation of \ -In[174]:=",ExpressionUUID->"d97cd881-ad70-0043-811a-b6650c7bff48"], +In[101]:=",ExpressionUUID->"7eb3cda8-ce59-47ef-82f7-23c3e1122334"], 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, 24, 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329904300501*^9, 3.993960381182597*^9}, CellLabel-> "During evaluation of \ -In[174]:=",ExpressionUUID->"dc1ff9fc-c736-e742-9bd5-f36a7c2c6c53"], +In[101]:=",ExpressionUUID->"bb7cf901-6985-414f-b7f7-e261295ceef0"], -Cell[BoxData["0.1491428555515254`"], "Output", - CellChangeTimes->{3.9913299110465336`*^9}, +Cell[BoxData["0.26627666492463226`"], "Output", + CellChangeTimes->{3.9913299110465336`*^9, 3.993960388106524*^9}, CellLabel-> - "Out[174]=",ExpressionUUID->"207fc206-b3fa-1a42-8709-2c8aaaf304b0"] + "Out[101]=",ExpressionUUID->"2ff71d0b-9729-4660-a7a5-0c9b02a8d711"] }, Open ]], Cell[CellGroupData[{ @@ -3714,8 +8711,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 +8756,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[\\\"1.1258542440017847`*^-212\\\", \ +RowBox[{\\\"111907153680443277505994197391\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"260731183104000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 102, 25, + 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329911081766*^9, 3.9939603881553707`*^9}, CellLabel-> "During evaluation of \ -In[175]:=",ExpressionUUID->"079487fc-3029-b74e-ba27-a61cf73f30a2"], +In[102]:=",ExpressionUUID->"ac1bb8ce-f675-4bb6-a4ec-77edd4f8e5b7"], 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[\\\"7.620897572841534`*^-218\\\", \ +RowBox[{\\\"197404219092301941520573764198\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"929806995456000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 102, 26, + 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329911081766*^9, 3.993960388163742*^9}, CellLabel-> "During evaluation of \ -In[175]:=",ExpressionUUID->"6fef6245-eafb-7343-8d9c-509c47662fd8"], +In[102]:=",ExpressionUUID->"b827412f-b60c-4b16-856b-7d564a372c9b"], 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[\\\"5.158578930191422`*^-223\\\", \ +RowBox[{\\\"365000401101666289871540890002\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"213134598144000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 102, 27, + 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329911081766*^9, 3.993960388172604*^9}, CellLabel-> "During evaluation of \ -In[175]:=",ExpressionUUID->"caeb451e-fce0-a24e-bdb2-20066bf32e23"], +In[102]:=",ExpressionUUID->"fbc9ba09-6a7f-44e1-bd5e-86c2b3e0b08a"], 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, 28, 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329911081766*^9, 3.993960388179427*^9}, CellLabel-> "During evaluation of \ -In[175]:=",ExpressionUUID->"b9263c45-06ba-d24d-a71c-72933a67fb86"], +In[102]:=",ExpressionUUID->"092c67a1-d778-4836-9f00-c3c94f0b4872"], -Cell[BoxData["6.5928699937564845`"], "Output", - CellChangeTimes->{3.9913299163114815`*^9}, +Cell[BoxData["30.32972372216769`"], "Output", + CellChangeTimes->{3.9913299163114815`*^9, 3.9939603946329412`*^9}, CellLabel-> - "Out[175]=",ExpressionUUID->"fdc26e81-7e73-a54e-8b48-fba744fd21b7"] + "Out[102]=",ExpressionUUID->"09ac4ddb-29fc-4efa-9ab7-fea84305f46c"] }, Open ]], Cell[CellGroupData[{ @@ -3842,8 +8845,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 +8890,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[\\\"1.1258542440017847`*^-212\\\", \ +RowBox[{\\\"111907153680443277505994197391\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"260731183104000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 103, 29, + 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299163444805`*^9, 3.9939603946760674`*^9}, CellLabel-> "During evaluation of \ -In[176]:=",ExpressionUUID->"3270b87e-9743-ef45-96a4-2ce51373a203"], +In[103]:=",ExpressionUUID->"a2d8d0a3-68bb-4fea-b3d5-972d5ec48195"], 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[\\\"7.620897572841534`*^-218\\\", \ +RowBox[{\\\"197404219092301941520573764198\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"929806995456000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 103, 30, + 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299163444805`*^9, 3.993960394682848*^9}, CellLabel-> "During evaluation of \ -In[176]:=",ExpressionUUID->"b5a7511b-af1a-b946-83d4-1951541611b2"], +In[103]:=",ExpressionUUID->"4ba0a4a4-8c31-4fd1-9287-e49eb2adf270"], 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[\\\"5.158578930191422`*^-223\\\", \ +RowBox[{\\\"365000401101666289871540890002\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"213134598144000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 103, 31, + 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299163444805`*^9, 3.9939603946921883`*^9}, CellLabel-> "During evaluation of \ -In[176]:=",ExpressionUUID->"55836c22-e074-4442-9aa3-8442534fcabe"], +In[103]:=",ExpressionUUID->"98f1c1da-426a-409e-9974-797388bfdd0e"], 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, 32, 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299163444805`*^9, 3.993960394700295*^9}, CellLabel-> "During evaluation of \ -In[176]:=",ExpressionUUID->"18c3aa33-3860-5f41-a9ac-8cd3806fef7e"], +In[103]:=",ExpressionUUID->"93978044-2700-4bbc-9cac-4efdf464c3d4"], -Cell[BoxData["16.916908616104454`"], "Output", - CellChangeTimes->{3.9913299193276234`*^9}, +Cell[BoxData["5.35622903497758`"], "Output", + CellChangeTimes->{3.9913299193276234`*^9, 3.993960398696072*^9}, CellLabel-> - "Out[176]=",ExpressionUUID->"62510f7e-bac9-8b4e-86ce-182bdd5d56b9"] + "Out[103]=",ExpressionUUID->"460e5040-7ee6-453b-a24b-e36449554bcf"] }, Open ]], Cell[CellGroupData[{ @@ -3958,22 +8967,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.020891485028392026`"], "Output", + CellChangeTimes->{3.99132991935894*^9, 3.9939603987331467`*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"1aa0e1fd-6148-4c8a-8ad4-443142f50fe8"] }, 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 +9006,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["7.907885837852411`"], "Output", + CellChangeTimes->{3.9913299193849545`*^9, 3.993960398747953*^9}, CellLabel-> - "Out[179]=",ExpressionUUID->"e3d357af-87e3-0047-959d-fa0139c5bfc4"] + "Out[106]=",ExpressionUUID->"c2ff59f1-94bd-4812-a5da-42a4adb96872"] }, Open ]], Cell[CellGroupData[{ @@ -4011,12 +9021,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["2.0445595246777404`"], "Output", + CellChangeTimes->{3.9913299194207077`*^9, 3.993960398756616*^9}, CellLabel-> - "Out[181]=",ExpressionUUID->"93dda073-df54-8f4e-afab-666de5caf927"] + "Out[107]=",ExpressionUUID->"39bc95e4-9915-4ac1-979e-95ab360a78de"] }, Open ]], Cell[CellGroupData[{ @@ -4026,12 +9036,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["16.16814330984536`"], "Output", + CellChangeTimes->{3.9913299194738407`*^9, 3.993960398764793*^9}, CellLabel-> - "Out[184]=",ExpressionUUID->"db5e4010-00e8-574c-8b32-365b8147ba2d"] + "Out[108]=",ExpressionUUID->"d7cf0c82-85ec-471c-8185-71490ac095c4"] }, Open ]], Cell[CellGroupData[{ @@ -4221,12 +9231,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.007448065232158538`"], "Output", + CellChangeTimes->{3.991329919501911*^9, 3.993960398776181*^9}, CellLabel-> - "Out[185]=",ExpressionUUID->"6f5204f9-42a7-0343-a2cd-76cd7618ba90"] + "Out[109]=",ExpressionUUID->"68ff6b5a-1d0f-45cb-8a6f-d0bed098f291"] }, Open ]], Cell[CellGroupData[{ @@ -4240,12 +9250,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.268882980263136`"], "Output", + CellChangeTimes->{3.991329919596855*^9, 3.993960398880824*^9}, CellLabel-> - "Out[186]=",ExpressionUUID->"732feb85-572c-6a40-bb32-258aa6fbb12e"] + "Out[110]=",ExpressionUUID->"3a0594bb-14e5-4010-ab08-c6cfedd69f36"] }, Open ]], Cell[CellGroupData[{ @@ -4437,12 +9447,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.05589166260706076`"], "Output", + CellChangeTimes->{3.9913299196126003`*^9, 3.9939603988942013`*^9}, CellLabel-> - "Out[187]=",ExpressionUUID->"330db3dd-df0f-5e4b-9e84-63e3da6287e1"] + "Out[111]=",ExpressionUUID->"fcae2904-b2d3-41ab-af45-d41337786cf6"] }, Open ]], Cell[CellGroupData[{ @@ -4456,12 +9466,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.7486200721984706`"], "Output", + CellChangeTimes->{3.9913299197036095`*^9, 3.99396039900266*^9}, CellLabel-> - "Out[188]=",ExpressionUUID->"8403ef7a-5add-ea45-a6c0-a6dc70f27bb8"] + "Out[112]=",ExpressionUUID->"c81dd3dc-cbaf-4dd9-b963-8acc1ceefa07"] }, Open ]], Cell[CellGroupData[{ @@ -4554,12 +9564,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.10778842427476491`"], "Output", + CellChangeTimes->{3.9913299197165985`*^9, 3.993960399012951*^9}, CellLabel-> - "Out[189]=",ExpressionUUID->"aac00e4f-5d2b-4341-8ca5-f49d9556633e"] + "Out[113]=",ExpressionUUID->"4a8215ff-4b1b-484d-a3e7-d04f5c394c32"] }, Open ]], Cell[CellGroupData[{ @@ -4649,12 +9659,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.892211575725235`"], "Output", + CellChangeTimes->{3.991329919739599*^9, 3.993960399024426*^9}, CellLabel-> - "Out[190]=",ExpressionUUID->"eeee5a47-9547-7746-bb79-936b40364d7e"] + "Out[114]=",ExpressionUUID->"f5409872-6ff4-41bb-82a5-8b0f81b1cfc2"] }, Open ]], Cell[CellGroupData[{ @@ -4777,12 +9787,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.09617007986712818`"], "Output", + CellChangeTimes->{3.9913299197646008`*^9, 3.9939603990346537`*^9}, CellLabel-> - "Out[191]=",ExpressionUUID->"a1352554-6686-ff4e-be47-04b42c29b000"] + "Out[115]=",ExpressionUUID->"c4a4d21d-3a11-48cc-b7cf-e8cc4650a42d"] }, Open ]], Cell[CellGroupData[{ @@ -4797,7 +9807,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 +9831,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -4844,68 +9855,75 @@ 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[\\\"3.3793144507272477`*^-230\\\", \ +RowBox[{\\\"189440899156242768942779436337\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"26\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"5245236398325760000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 116, 33, + 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329919788595*^9, 3.99396039904994*^9}, CellLabel-> "During evaluation of \ -In[192]:=",ExpressionUUID->"c854318c-035d-f249-9a8c-a9608e137436"], +In[116]:=",ExpressionUUID->"fbea46e5-7ce1-4191-afdb-0c8e80f88900"], 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[\\\"2.1227803276726105`*^-236\\\", \ +RowBox[{\\\"273552658381614558353373506071\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"29\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4121359182397440000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 116, 34, + 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329919788595*^9, 3.993960399058333*^9}, CellLabel-> "During evaluation of \ -In[192]:=",ExpressionUUID->"fc1eef58-3b5b-8c4c-bab7-60a3682b1d45"], +In[116]:=",ExpressionUUID->"1dc3d008-124b-48af-a988-0a7711af31fb"], 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[\\\"1.3334646376527863`*^-242\\\", \ +RowBox[{\\\"416073593398435743255481102734\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"32\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8587316426506240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 116, 35, + 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329919788595*^9, 3.993960399066383*^9}, CellLabel-> "During evaluation of \ -In[192]:=",ExpressionUUID->"2e134293-05b5-624c-b206-73b12a84c5ea"], +In[116]:=",ExpressionUUID->"d89d746c-9ca3-4db7-a61a-d3d039e191a4"], 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, 36, 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329919788595*^9, 3.993960399072667*^9}, CellLabel-> "During evaluation of \ -In[192]:=",ExpressionUUID->"2cac2ff4-fc29-a048-9fae-70918ed41968"], +In[116]:=",ExpressionUUID->"665ecc2f-a59b-48a6-a654-463bf228a93b"], -Cell[BoxData["4.190766798679958`"], "Output", - CellChangeTimes->{3.991329923627493*^9}, +Cell[BoxData["10.268882980263127`"], "Output", + CellChangeTimes->{3.991329923627493*^9, 3.9939604025189943`*^9}, CellLabel-> - "Out[192]=",ExpressionUUID->"2dcc4178-0b8d-9f48-a040-f2fc5cb8eacd"] + "Out[116]=",ExpressionUUID->"2293081d-69c1-4772-9627-9248820e955a"] }, Open ]], Cell[CellGroupData[{ @@ -4920,7 +9938,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 +9962,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -4967,68 +9986,75 @@ 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[\\\"3.3793144507272477`*^-230\\\", \ +RowBox[{\\\"189440899156242768942779436337\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"26\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"5245236398325760000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 117, 37, + 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299236609*^9, 3.993960402560655*^9}, CellLabel-> "During evaluation of \ -In[193]:=",ExpressionUUID->"ac808335-5ecc-ee4f-a7ac-d889b0bf6e05"], +In[117]:=",ExpressionUUID->"41c5affc-5f36-445c-85d2-edfdad6f7f9b"], 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[\\\"2.1227803276726105`*^-236\\\", \ +RowBox[{\\\"273552658381614558353373506071\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"29\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4121359182397440000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 117, 38, + 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299236609*^9, 3.993960402569601*^9}, CellLabel-> "During evaluation of \ -In[193]:=",ExpressionUUID->"36b7d718-32d9-a441-b985-1fed8f0f10fd"], +In[117]:=",ExpressionUUID->"e640f572-73ad-4d1f-8f50-1051e2e06b0c"], 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[\\\"1.3334646376527863`*^-242\\\", \ +RowBox[{\\\"416073593398435743255481102734\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"32\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8587316426506240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 117, 39, + 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299236609*^9, 3.99396040257843*^9}, CellLabel-> "During evaluation of \ -In[193]:=",ExpressionUUID->"ab31a569-fab4-434a-9c76-33aa9b59b117"], +In[117]:=",ExpressionUUID->"0e9118ea-f5be-4919-924c-11b6bc223050"], 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, 40, 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299236609*^9, 3.993960402586946*^9}, CellLabel-> "During evaluation of \ -In[193]:=",ExpressionUUID->"4c41e56d-f5cb-b94c-b99a-06e306247825"], +In[117]:=",ExpressionUUID->"7f1072b5-68e2-4df5-b41d-751cc77b8e4b"], -Cell[BoxData["7.439513700547696`"], "Output", - CellChangeTimes->{3.9913299274564743`*^9}, +Cell[BoxData["3.748620072198468`"], "Output", + CellChangeTimes->{3.9913299274564743`*^9, 3.993960405944312*^9}, CellLabel-> - "Out[193]=",ExpressionUUID->"5ec230cf-b87d-3e41-bc7f-1f3f2ff283ef"] + "Out[117]=",ExpressionUUID->"69249271-004c-4c13-8640-6fada117556e"] }, Open ]], Cell[CellGroupData[{ @@ -5086,93 +10112,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:eJwV03k8VVsUB3BDVIYyj5FZEsmlkNorQ4ZMIVEprnuPIZmTMvR60oQIFZUo +FDJkjHjqRT2JSJLIPCTDcSKhlLfvH+dzPt/PPue311r7HHm6vz2Tg42NbRpf +rHvgW03VJ21vd59ItxX8JEGi3WS2Lt2kACXnCW1keSBje4qSSS062HvInGU7 +Rgs3H+0lWr1jUzzLJWFn67lMmtG5sjPTLF9+JfH8bP47lG9j792NXd0WeHdZ ++wPaxFnM1oM90d0UcbqmC9k2JZaxLDWqePiH8Wd08s7Cuc/Y+2Yi9IOb+9HF +gOHjvdh1yxO8YfmDiG7oGNiH3XlOPLzSbxiVf7dI6scmuU0mvmuPopa4hrcD +2NxxAS60hTEkvFCvMoQtK5jeGFgzjuhK5reGsW2kfzwgjadQ/YW+92PYRKaC +mMYaEvXcpNLGsc8q28Ycb55BZkoXwyewu8Q7toXkf0Mmh/ZcI7EZh3y8k+Nm +kVkn4yWFTd1hu1fqN4eeBfGJzmGvUdAQ+KY9j9qyv3AvYqcw6s0ERH8gB07p +vJ/Ycg9dzm5d+IFoIu3Eb2y9LRfIEzWLKONdkw6nJIm8tvc3Txgvo1LJYSkB +7O9hJ1fxqPxGxwO10oSx/6rhNVRb8wd1M9lo4tipoPfIs3kFBUarVstiM3Ia +TYLy2UF1OH79Vuz8V8kD56Q5YGf4pDcNm/pyNOJaHAc8t27q34EdsXm+7LEf +J8R288juwU4pllec0eYClU/XRhyxu9um6v5kcUF18pzUIWy52SeH1olyw5bu +Dt9j2AU6NkkaC9wwKC3q4YPdUH2G3bdmDRwpjEk7hz1f/75/3JgPnk5MaVRg +C1nxCYTX8UHH/IPSWmytDhPg1+eHtKTCgw3YPiMVmds010EyeZejAzuAo1lr +F58ArHRyf/6OPapQ9C3mhyAMqsXeMZTC8yGa1rbShCDgVY/yXmyOR2PyEoFC +MDIV2GqLLUfbaJ8/KQSJPb7RHtiHjBNL3w4IgyNbgl8cdqtHULD4G1FI+8O3 +fwS77+HVWLc1YiBvcapvBntqMj8rz1QMwE827hc2T8jw+53PxSB2SM5cWJpE +JucdddwqxMHfZtTIBPtp9vb53AxJCE7vNSrAzh79GWoQIgPUqeeeKRtIZH7g +Yl9woQwwlQxn72NPNQjvLRyTgenCZ6kl2DrZW0TlXGSBWdWj34rdQD9axrV7 +I2xafaCZV4ZEszMDp8aj5eDRvrJtV7CFT5iUl1krQNouoaXbsiQay+bxsvNR +gDrfLZxF2FWf26SnLyjAnMgOtefYR6xco1WeK0B+gtTrEexs9VD7NG1FeCDH +6bx1I95/4iEVJa4ETnJ3S15jO3ryalgOKoPh2w5rYXkSodAD2gd/K8OrXT88 +N2FvjsnYwZBUgWO/Ou/swmbLohlF7VeB8CftTl7YhX2HD5b+qwJbHNJ4n2Fz +OxWck7qvCmyGiacCFXB9JtadE3Q1SLtnZz+hSKIsh5s9C1FqEN979gWHEomu +0gcHVt1Wg/ERG2tpbMZfJydl36uBunhjqRW2YG06m4PxZlgWXPvPY2wfGrm5 +RlEdKhvftUQqk0haIeFs7MgWCOHO7lJXJVHtle9qSxwa8DtZ7YcF9pE5lw5C +XgMsE7u0vbDvNiipGR3VgOt5BWtzsBU8n7YvftQA9IFdQ24T7rdgVJl4owmj +fn/MN6iRSEZalpBz0QL7fX1N6uok2pITwvcLaUN1bOv1h1tJRGdEz2vYaAO7 +eM94E3aqYlKf2xFt4JzKcyKxOe8XP34Vpg3uMrF/62rh/+3uhGNSiTYEr2hK +v8S+nOqWrqZIA/4XyTZft+HzjbXSdObWAXZ981JTHRLdC1Kyq2jWheZ8Dn4b +fRK1haId53P0wceQr/6uKYnkj36wcfXdBV3tkurxDiRirlQWyZwGiLbNvaJC +J5H4ZNVqcboRSJ9KOV8UTKIQmuHnpM0msNXVgC81Btc/vdwoPGEKN0y/dsWl +4vM0Cl6d0WoGEbxBP9KL8Pfz3effghQL0PFvPBPXQKLFPRItDWf3Af3kQ/fy +XhL1snF+G3S3BhTvF1y5QCK/Df6J5xRtIfNiVcI6wRlU5N34/HqMHUR7Bipl +acygM3OSC+re+4Hnyar63RYzaN5yr9N/x+zBB0WnCXjNIP3D1/aM7ncAKy7z +RdmLM6hdMt2ngeYIEebaqDR7Bkk9iK7N3XQA9IWUM/e9nEFVA5utbPidYLmY +c6/MyAyS7aA8Q6edoFmaX8+CnUK069cKsgYOgpXWtmcDghRKXzWnmVTvDJfS +ugNc5SlUuWdrd0y1C2g6nVkQ0aZQ6o4rgsv5h8Bt/ZeXLkYUau3JuUCLOwzn +HVYKHfdTqML6jlLAX0cgQzQ209KdQt9OOLD5MVzh2+Itsx5/Cs3vVfMijY+C +zmCr94tICuVOf1oM3n4M3mU76R2Oo5DzvRwPVz43eGJczBmSRqGy0n3HOC+6 +QeStfkHOhxTSl25furzkBgYd1fUcZRRSHPDsfuftDuJFL8Ul6yg0wnvc9s6w +O9xesu60eU2htqs2HmYH6ND5OiV1rp1CKWEZvCfb6MCzbt4n5DOFautWljws +PIBO3Yh/NUKh9UfgIu2pB/DfjvBOnaSQnMh/rRtqPWDq10uyDFur2VqCu84D +vjKs6K3Y9oaH87r+9QBVC24R7imcvyH0TeRrDwi8OH4vCFuq99H6xi4PiHLb +xTSfppDSUfHUIwseECa79fQYiftxI3NjdBiglnTHYeobhR6kUcE22xnwjWfg +LfsshUTez+4W12PAX5GqBuLYpOlCR+5OBuwMqRnYg52tzsbebMSA25P/nbiB +vW5B0EVoPwPqty/FGM7hecTrrs04wQD/Kq2siO8U2v/fjg5PfwYY3amSTsSu +YzPI0ApkQPLK+vNZ2GnBu3VfhDCAg0dVqQnbxsXMfTScASbdTffE5ilUreRS +rX6FAWOLSdcKsK/WRHhXPWDAk0/les0/KHRC+6Z+WC4DdNfm2fViW+WVrNXL +Z0Bb7IAzic1zcyzvSSEDoveKGAgsUCgmyG6ispwBsOSNHLAj1JSOV7xgwK2o +QsdObJ+bb3xL+xiwFNGS2bZIIYt1Y4ZBAwwo6ayo68feFMPGrz3EgBdF1c0k +9liQbmHJKO5Pa3013xKF3G0yph9PMSBU8l27GbYzV7Bf8U8GiF4uWVuDbRYs +FVAgxoRFcY3I6z8p9CLjgmWSBBNWcy5UZWEbNs8qhUkxYSFlaLAEW0v5zSdj +WSb8OSf5qwVb8mO4cY8yE3weD1ly/aLQpEGvGI8uE3rDXh8NwE7gyPzH04EJ +v+LDbfWWcf9b+VKtDzBB6IGkhgn2+cNhQbSDTDC1KVuwxQ4rt1NdOcSEv1c6 +HDyx3Qn2azfoTPhHslz1Ojatic54GciE/KhFw2nsj9eUeRUTmSBVWCyW8JtC +RYjfa/waE044iFA3sc9Pf28oTGaCZsvbqkxsbYuGKL2bTDjuZyRRin2VzWPW ++i4TLkkJru/A3uuf+SmsAM9jdWWPyB8Kychc2r67iAkWBSr5G7C/N/kncz5m +QnPskKcS9n0VZH21jAkfzuuX0LB/9/Y+z3rKBH2GQ/h+7HIr6dy3jUzgci+b +uowd+5ODK6UJz+9kYnEiNj13wt2lmQnafxe738QWWPVUeqSVCVOuJcnZ2L41 +zglLnUyYj6jQrMNW3HwjVGmUCS1xNkBi//wY+f7rGBMOtPMvzGG3xTC1iseZ +cF1udfoSdtSgzoT+FBNceB5UrlqhUHfqe1fbOSasbbgkJ4WdtFrQ9Aw7AS21 +0W/3YNfO9h4O4SRgRiqcwwz7S29+kB8XAU7u0fJW2IblJpn0tQQ8vNsg54Q9 +5hb2y1KQAFWxZUVvbAErUyFTYQJuDvk+PoG9c4eQGhIl4EvthGoQdiJ/gRNN +koC8D7xdZ1jrT/tLpOUJ2J3z0TAWm8gpaBRVJGC6P1s+gfV84un+9coEJL0P +/5bE2o8Q5l+lhtfppva3WOvCZl5TWgTMcuySyMV++kf47Jg2AR8+Wh94hD36 +deD6gA4BdjeYkUXYBs/P1HfoEcCfmHu1HHvEt0j2HyAgVz2k4hn2Oudw3SdG +BDyaK7N8ga1vbG5VYkJA6uHFpgbsq5JDp3PMCRBadzXuNXbVquLEDEsCLPv7 +Wt5gD8+EP0yzIqDGlfazBVvvleiHeDsCii6MCbdj00uGJi/aE5DYaMLegR1/ +p5jjb0cCTo3lfPqAPRRkoRXqTIDEsv++T9j8R8XMAg4RMHe7a6SblWcx7Opz +hID1Xsben1nvb4yMPepGgM2ULK2fVQ+P5X1nOq7HNSFsgJU3L1ZtzyDA0Jc9 +b5CVNzjcakUQ0PYzpGGIldf8eGyvFwH/Tn1tGmbV9yTyN/gQMKnqVjvCyr9v +KbLTlwCDlI+po6z8eHF1XT8CKqXt3MZY+WEje7YGEBCV/1roCzYfo8RZLYiA +Rk2TxyzvsI3yVwwhYDD1md44K99g3wWZUAK29ewsYDlOWSJdPIwAnYkqnq/Y +lQKjZYJnCIio3e7I8uCvkibeCDxPy4pLLPN9iRrkiiKgIkEnl+Xt7fsWV84S +YHSpvJTl/wGlYkS0 "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -5186,105 +10213,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:eJwV03k8VVsUB3BDVIYyj5FZEsmlkNorQ4ZMIVEprnuPIZmTMvR60oQIFZUo +FDJkjHjqRT2JSJLIPCTDcSKhlLfvH+dzPt/PPue311r7HHm6vz2Tg42NbRpf +rHvgW03VJ21vd59ItxX8JEGi3WS2Lt2kACXnCW1keSBje4qSSS062HvInGU7 +Rgs3H+0lWr1jUzzLJWFn67lMmtG5sjPTLF9+JfH8bP47lG9j792NXd0WeHdZ ++wPaxFnM1oM90d0UcbqmC9k2JZaxLDWqePiH8Wd08s7Cuc/Y+2Yi9IOb+9HF +gOHjvdh1yxO8YfmDiG7oGNiH3XlOPLzSbxiVf7dI6scmuU0mvmuPopa4hrcD +2NxxAS60hTEkvFCvMoQtK5jeGFgzjuhK5reGsW2kfzwgjadQ/YW+92PYRKaC +mMYaEvXcpNLGsc8q28Ycb55BZkoXwyewu8Q7toXkf0Mmh/ZcI7EZh3y8k+Nm +kVkn4yWFTd1hu1fqN4eeBfGJzmGvUdAQ+KY9j9qyv3AvYqcw6s0ERH8gB07p +vJ/Ycg9dzm5d+IFoIu3Eb2y9LRfIEzWLKONdkw6nJIm8tvc3Txgvo1LJYSkB +7O9hJ1fxqPxGxwO10oSx/6rhNVRb8wd1M9lo4tipoPfIs3kFBUarVstiM3Ia +TYLy2UF1OH79Vuz8V8kD56Q5YGf4pDcNm/pyNOJaHAc8t27q34EdsXm+7LEf +J8R288juwU4pllec0eYClU/XRhyxu9um6v5kcUF18pzUIWy52SeH1olyw5bu +Dt9j2AU6NkkaC9wwKC3q4YPdUH2G3bdmDRwpjEk7hz1f/75/3JgPnk5MaVRg +C1nxCYTX8UHH/IPSWmytDhPg1+eHtKTCgw3YPiMVmds010EyeZejAzuAo1lr +F58ArHRyf/6OPapQ9C3mhyAMqsXeMZTC8yGa1rbShCDgVY/yXmyOR2PyEoFC +MDIV2GqLLUfbaJ8/KQSJPb7RHtiHjBNL3w4IgyNbgl8cdqtHULD4G1FI+8O3 +fwS77+HVWLc1YiBvcapvBntqMj8rz1QMwE827hc2T8jw+53PxSB2SM5cWJpE +JucdddwqxMHfZtTIBPtp9vb53AxJCE7vNSrAzh79GWoQIgPUqeeeKRtIZH7g +Yl9woQwwlQxn72NPNQjvLRyTgenCZ6kl2DrZW0TlXGSBWdWj34rdQD9axrV7 +I2xafaCZV4ZEszMDp8aj5eDRvrJtV7CFT5iUl1krQNouoaXbsiQay+bxsvNR +gDrfLZxF2FWf26SnLyjAnMgOtefYR6xco1WeK0B+gtTrEexs9VD7NG1FeCDH +6bx1I95/4iEVJa4ETnJ3S15jO3ryalgOKoPh2w5rYXkSodAD2gd/K8OrXT88 +N2FvjsnYwZBUgWO/Ou/swmbLohlF7VeB8CftTl7YhX2HD5b+qwJbHNJ4n2Fz +OxWck7qvCmyGiacCFXB9JtadE3Q1SLtnZz+hSKIsh5s9C1FqEN979gWHEomu +0gcHVt1Wg/ERG2tpbMZfJydl36uBunhjqRW2YG06m4PxZlgWXPvPY2wfGrm5 +RlEdKhvftUQqk0haIeFs7MgWCOHO7lJXJVHtle9qSxwa8DtZ7YcF9pE5lw5C +XgMsE7u0vbDvNiipGR3VgOt5BWtzsBU8n7YvftQA9IFdQ24T7rdgVJl4owmj +fn/MN6iRSEZalpBz0QL7fX1N6uok2pITwvcLaUN1bOv1h1tJRGdEz2vYaAO7 +eM94E3aqYlKf2xFt4JzKcyKxOe8XP34Vpg3uMrF/62rh/+3uhGNSiTYEr2hK +v8S+nOqWrqZIA/4XyTZft+HzjbXSdObWAXZ981JTHRLdC1Kyq2jWheZ8Dn4b +fRK1haId53P0wceQr/6uKYnkj36wcfXdBV3tkurxDiRirlQWyZwGiLbNvaJC +J5H4ZNVqcboRSJ9KOV8UTKIQmuHnpM0msNXVgC81Btc/vdwoPGEKN0y/dsWl +4vM0Cl6d0WoGEbxBP9KL8Pfz3effghQL0PFvPBPXQKLFPRItDWf3Af3kQ/fy +XhL1snF+G3S3BhTvF1y5QCK/Df6J5xRtIfNiVcI6wRlU5N34/HqMHUR7Bipl +acygM3OSC+re+4Hnyar63RYzaN5yr9N/x+zBB0WnCXjNIP3D1/aM7ncAKy7z +RdmLM6hdMt2ngeYIEebaqDR7Bkk9iK7N3XQA9IWUM/e9nEFVA5utbPidYLmY +c6/MyAyS7aA8Q6edoFmaX8+CnUK069cKsgYOgpXWtmcDghRKXzWnmVTvDJfS +ugNc5SlUuWdrd0y1C2g6nVkQ0aZQ6o4rgsv5h8Bt/ZeXLkYUau3JuUCLOwzn +HVYKHfdTqML6jlLAX0cgQzQ209KdQt9OOLD5MVzh2+Itsx5/Cs3vVfMijY+C +zmCr94tICuVOf1oM3n4M3mU76R2Oo5DzvRwPVz43eGJczBmSRqGy0n3HOC+6 +QeStfkHOhxTSl25furzkBgYd1fUcZRRSHPDsfuftDuJFL8Ul6yg0wnvc9s6w +O9xesu60eU2htqs2HmYH6ND5OiV1rp1CKWEZvCfb6MCzbt4n5DOFautWljws +PIBO3Yh/NUKh9UfgIu2pB/DfjvBOnaSQnMh/rRtqPWDq10uyDFur2VqCu84D +vjKs6K3Y9oaH87r+9QBVC24R7imcvyH0TeRrDwi8OH4vCFuq99H6xi4PiHLb +xTSfppDSUfHUIwseECa79fQYiftxI3NjdBiglnTHYeobhR6kUcE22xnwjWfg +LfsshUTez+4W12PAX5GqBuLYpOlCR+5OBuwMqRnYg52tzsbebMSA25P/nbiB +vW5B0EVoPwPqty/FGM7hecTrrs04wQD/Kq2siO8U2v/fjg5PfwYY3amSTsSu +YzPI0ApkQPLK+vNZ2GnBu3VfhDCAg0dVqQnbxsXMfTScASbdTffE5ilUreRS +rX6FAWOLSdcKsK/WRHhXPWDAk0/les0/KHRC+6Z+WC4DdNfm2fViW+WVrNXL +Z0Bb7IAzic1zcyzvSSEDoveKGAgsUCgmyG6ispwBsOSNHLAj1JSOV7xgwK2o +QsdObJ+bb3xL+xiwFNGS2bZIIYt1Y4ZBAwwo6ayo68feFMPGrz3EgBdF1c0k +9liQbmHJKO5Pa3013xKF3G0yph9PMSBU8l27GbYzV7Bf8U8GiF4uWVuDbRYs +FVAgxoRFcY3I6z8p9CLjgmWSBBNWcy5UZWEbNs8qhUkxYSFlaLAEW0v5zSdj +WSb8OSf5qwVb8mO4cY8yE3weD1ly/aLQpEGvGI8uE3rDXh8NwE7gyPzH04EJ +v+LDbfWWcf9b+VKtDzBB6IGkhgn2+cNhQbSDTDC1KVuwxQ4rt1NdOcSEv1c6 +HDyx3Qn2azfoTPhHslz1Ojatic54GciE/KhFw2nsj9eUeRUTmSBVWCyW8JtC +RYjfa/waE044iFA3sc9Pf28oTGaCZsvbqkxsbYuGKL2bTDjuZyRRin2VzWPW ++i4TLkkJru/A3uuf+SmsAM9jdWWPyB8Kychc2r67iAkWBSr5G7C/N/kncz5m +QnPskKcS9n0VZH21jAkfzuuX0LB/9/Y+z3rKBH2GQ/h+7HIr6dy3jUzgci+b +uowd+5ODK6UJz+9kYnEiNj13wt2lmQnafxe738QWWPVUeqSVCVOuJcnZ2L41 +zglLnUyYj6jQrMNW3HwjVGmUCS1xNkBi//wY+f7rGBMOtPMvzGG3xTC1iseZ +cF1udfoSdtSgzoT+FBNceB5UrlqhUHfqe1fbOSasbbgkJ4WdtFrQ9Aw7AS21 +0W/3YNfO9h4O4SRgRiqcwwz7S29+kB8XAU7u0fJW2IblJpn0tQQ8vNsg54Q9 +5hb2y1KQAFWxZUVvbAErUyFTYQJuDvk+PoG9c4eQGhIl4EvthGoQdiJ/gRNN +koC8D7xdZ1jrT/tLpOUJ2J3z0TAWm8gpaBRVJGC6P1s+gfV84un+9coEJL0P +/5bE2o8Q5l+lhtfppva3WOvCZl5TWgTMcuySyMV++kf47Jg2AR8+Wh94hD36 +deD6gA4BdjeYkUXYBs/P1HfoEcCfmHu1HHvEt0j2HyAgVz2k4hn2Oudw3SdG +BDyaK7N8ga1vbG5VYkJA6uHFpgbsq5JDp3PMCRBadzXuNXbVquLEDEsCLPv7 +Wt5gD8+EP0yzIqDGlfazBVvvleiHeDsCii6MCbdj00uGJi/aE5DYaMLegR1/ +p5jjb0cCTo3lfPqAPRRkoRXqTIDEsv++T9j8R8XMAg4RMHe7a6SblWcx7Opz +hID1Xsben1nvb4yMPepGgM2ULK2fVQ+P5X1nOq7HNSFsgJU3L1ZtzyDA0Jc9 +b5CVNzjcakUQ0PYzpGGIldf8eGyvFwH/Tn1tGmbV9yTyN/gQMKnqVjvCyr9v +KbLTlwCDlI+po6z8eHF1XT8CKqXt3MZY+WEje7YGEBCV/1roCzYfo8RZLYiA +Rk2TxyzvsI3yVwwhYDD1md44K99g3wWZUAK29ewsYDlOWSJdPIwAnYkqnq/Y +lQKjZYJnCIio3e7I8uCvkibeCDxPy4pLLPN9iRrkiiKgIkEnl+Xt7fsWV84S +YHSpvJTl/wGlYkS0 "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5311368545847401, - 1.7610246145622632`}}, + "PlotRange" -> {{0, 180}, {0.9405331934075726, + 1.0624787312194859`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5311368545847414}, + "AxesOrigin" -> {0, 0.9405331934075747}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.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 +10324,21 @@ TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5311368545847401, - 1.7610246145622632`}}, + "PlotRange" -> {{0, 180}, {0.9405331934075726, + 1.0624787312194859`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5311368545847414}, + "AxesOrigin" -> {0, 0.9405331934075747}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 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 +10352,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:eJwV03k8VVsUB3BDVIYyj5FZEsmlkNorQ4ZMIVEprnuPIZmTMvR60oQIFZUo +FDJkjHjqRT2JSJLIPCTDcSKhlLfvH+dzPt/PPue311r7HHm6vz2Tg42NbRpf +rHvgW03VJ21vd59ItxX8JEGi3WS2Lt2kACXnCW1keSBje4qSSS062HvInGU7 +Rgs3H+0lWr1jUzzLJWFn67lMmtG5sjPTLF9+JfH8bP47lG9j792NXd0WeHdZ ++wPaxFnM1oM90d0UcbqmC9k2JZaxLDWqePiH8Wd08s7Cuc/Y+2Yi9IOb+9HF +gOHjvdh1yxO8YfmDiG7oGNiH3XlOPLzSbxiVf7dI6scmuU0mvmuPopa4hrcD +2NxxAS60hTEkvFCvMoQtK5jeGFgzjuhK5reGsW2kfzwgjadQ/YW+92PYRKaC +mMYaEvXcpNLGsc8q28Ycb55BZkoXwyewu8Q7toXkf0Mmh/ZcI7EZh3y8k+Nm +kVkn4yWFTd1hu1fqN4eeBfGJzmGvUdAQ+KY9j9qyv3AvYqcw6s0ERH8gB07p +vJ/Ycg9dzm5d+IFoIu3Eb2y9LRfIEzWLKONdkw6nJIm8tvc3Txgvo1LJYSkB +7O9hJ1fxqPxGxwO10oSx/6rhNVRb8wd1M9lo4tipoPfIs3kFBUarVstiM3Ia +TYLy2UF1OH79Vuz8V8kD56Q5YGf4pDcNm/pyNOJaHAc8t27q34EdsXm+7LEf +J8R288juwU4pllec0eYClU/XRhyxu9um6v5kcUF18pzUIWy52SeH1olyw5bu +Dt9j2AU6NkkaC9wwKC3q4YPdUH2G3bdmDRwpjEk7hz1f/75/3JgPnk5MaVRg +C1nxCYTX8UHH/IPSWmytDhPg1+eHtKTCgw3YPiMVmds010EyeZejAzuAo1lr +F58ArHRyf/6OPapQ9C3mhyAMqsXeMZTC8yGa1rbShCDgVY/yXmyOR2PyEoFC +MDIV2GqLLUfbaJ8/KQSJPb7RHtiHjBNL3w4IgyNbgl8cdqtHULD4G1FI+8O3 +fwS77+HVWLc1YiBvcapvBntqMj8rz1QMwE827hc2T8jw+53PxSB2SM5cWJpE +JucdddwqxMHfZtTIBPtp9vb53AxJCE7vNSrAzh79GWoQIgPUqeeeKRtIZH7g +Yl9woQwwlQxn72NPNQjvLRyTgenCZ6kl2DrZW0TlXGSBWdWj34rdQD9axrV7 +I2xafaCZV4ZEszMDp8aj5eDRvrJtV7CFT5iUl1krQNouoaXbsiQay+bxsvNR +gDrfLZxF2FWf26SnLyjAnMgOtefYR6xco1WeK0B+gtTrEexs9VD7NG1FeCDH +6bx1I95/4iEVJa4ETnJ3S15jO3ryalgOKoPh2w5rYXkSodAD2gd/K8OrXT88 +N2FvjsnYwZBUgWO/Ou/swmbLohlF7VeB8CftTl7YhX2HD5b+qwJbHNJ4n2Fz +OxWck7qvCmyGiacCFXB9JtadE3Q1SLtnZz+hSKIsh5s9C1FqEN979gWHEomu +0gcHVt1Wg/ERG2tpbMZfJydl36uBunhjqRW2YG06m4PxZlgWXPvPY2wfGrm5 +RlEdKhvftUQqk0haIeFs7MgWCOHO7lJXJVHtle9qSxwa8DtZ7YcF9pE5lw5C +XgMsE7u0vbDvNiipGR3VgOt5BWtzsBU8n7YvftQA9IFdQ24T7rdgVJl4owmj +fn/MN6iRSEZalpBz0QL7fX1N6uok2pITwvcLaUN1bOv1h1tJRGdEz2vYaAO7 +eM94E3aqYlKf2xFt4JzKcyKxOe8XP34Vpg3uMrF/62rh/+3uhGNSiTYEr2hK +v8S+nOqWrqZIA/4XyTZft+HzjbXSdObWAXZ981JTHRLdC1Kyq2jWheZ8Dn4b +fRK1haId53P0wceQr/6uKYnkj36wcfXdBV3tkurxDiRirlQWyZwGiLbNvaJC +J5H4ZNVqcboRSJ9KOV8UTKIQmuHnpM0msNXVgC81Btc/vdwoPGEKN0y/dsWl +4vM0Cl6d0WoGEbxBP9KL8Pfz3effghQL0PFvPBPXQKLFPRItDWf3Af3kQ/fy +XhL1snF+G3S3BhTvF1y5QCK/Df6J5xRtIfNiVcI6wRlU5N34/HqMHUR7Bipl +acygM3OSC+re+4Hnyar63RYzaN5yr9N/x+zBB0WnCXjNIP3D1/aM7ncAKy7z +RdmLM6hdMt2ngeYIEebaqDR7Bkk9iK7N3XQA9IWUM/e9nEFVA5utbPidYLmY +c6/MyAyS7aA8Q6edoFmaX8+CnUK069cKsgYOgpXWtmcDghRKXzWnmVTvDJfS +ugNc5SlUuWdrd0y1C2g6nVkQ0aZQ6o4rgsv5h8Bt/ZeXLkYUau3JuUCLOwzn +HVYKHfdTqML6jlLAX0cgQzQ209KdQt9OOLD5MVzh2+Itsx5/Cs3vVfMijY+C +zmCr94tICuVOf1oM3n4M3mU76R2Oo5DzvRwPVz43eGJczBmSRqGy0n3HOC+6 +QeStfkHOhxTSl25furzkBgYd1fUcZRRSHPDsfuftDuJFL8Ul6yg0wnvc9s6w +O9xesu60eU2htqs2HmYH6ND5OiV1rp1CKWEZvCfb6MCzbt4n5DOFautWljws +PIBO3Yh/NUKh9UfgIu2pB/DfjvBOnaSQnMh/rRtqPWDq10uyDFur2VqCu84D +vjKs6K3Y9oaH87r+9QBVC24R7imcvyH0TeRrDwi8OH4vCFuq99H6xi4PiHLb +xTSfppDSUfHUIwseECa79fQYiftxI3NjdBiglnTHYeobhR6kUcE22xnwjWfg +LfsshUTez+4W12PAX5GqBuLYpOlCR+5OBuwMqRnYg52tzsbebMSA25P/nbiB +vW5B0EVoPwPqty/FGM7hecTrrs04wQD/Kq2siO8U2v/fjg5PfwYY3amSTsSu +YzPI0ApkQPLK+vNZ2GnBu3VfhDCAg0dVqQnbxsXMfTScASbdTffE5ilUreRS +rX6FAWOLSdcKsK/WRHhXPWDAk0/les0/KHRC+6Z+WC4DdNfm2fViW+WVrNXL +Z0Bb7IAzic1zcyzvSSEDoveKGAgsUCgmyG6ispwBsOSNHLAj1JSOV7xgwK2o +QsdObJ+bb3xL+xiwFNGS2bZIIYt1Y4ZBAwwo6ayo68feFMPGrz3EgBdF1c0k +9liQbmHJKO5Pa3013xKF3G0yph9PMSBU8l27GbYzV7Bf8U8GiF4uWVuDbRYs +FVAgxoRFcY3I6z8p9CLjgmWSBBNWcy5UZWEbNs8qhUkxYSFlaLAEW0v5zSdj +WSb8OSf5qwVb8mO4cY8yE3weD1ly/aLQpEGvGI8uE3rDXh8NwE7gyPzH04EJ +v+LDbfWWcf9b+VKtDzBB6IGkhgn2+cNhQbSDTDC1KVuwxQ4rt1NdOcSEv1c6 +HDyx3Qn2azfoTPhHslz1Ojatic54GciE/KhFw2nsj9eUeRUTmSBVWCyW8JtC +RYjfa/waE044iFA3sc9Pf28oTGaCZsvbqkxsbYuGKL2bTDjuZyRRin2VzWPW ++i4TLkkJru/A3uuf+SmsAM9jdWWPyB8Kychc2r67iAkWBSr5G7C/N/kncz5m +QnPskKcS9n0VZH21jAkfzuuX0LB/9/Y+z3rKBH2GQ/h+7HIr6dy3jUzgci+b +uowd+5ODK6UJz+9kYnEiNj13wt2lmQnafxe738QWWPVUeqSVCVOuJcnZ2L41 +zglLnUyYj6jQrMNW3HwjVGmUCS1xNkBi//wY+f7rGBMOtPMvzGG3xTC1iseZ +cF1udfoSdtSgzoT+FBNceB5UrlqhUHfqe1fbOSasbbgkJ4WdtFrQ9Aw7AS21 +0W/3YNfO9h4O4SRgRiqcwwz7S29+kB8XAU7u0fJW2IblJpn0tQQ8vNsg54Q9 +5hb2y1KQAFWxZUVvbAErUyFTYQJuDvk+PoG9c4eQGhIl4EvthGoQdiJ/gRNN +koC8D7xdZ1jrT/tLpOUJ2J3z0TAWm8gpaBRVJGC6P1s+gfV84un+9coEJL0P +/5bE2o8Q5l+lhtfppva3WOvCZl5TWgTMcuySyMV++kf47Jg2AR8+Wh94hD36 +deD6gA4BdjeYkUXYBs/P1HfoEcCfmHu1HHvEt0j2HyAgVz2k4hn2Oudw3SdG +BDyaK7N8ga1vbG5VYkJA6uHFpgbsq5JDp3PMCRBadzXuNXbVquLEDEsCLPv7 +Wt5gD8+EP0yzIqDGlfazBVvvleiHeDsCii6MCbdj00uGJi/aE5DYaMLegR1/ +p5jjb0cCTo3lfPqAPRRkoRXqTIDEsv++T9j8R8XMAg4RMHe7a6SblWcx7Opz +hID1Xsben1nvb4yMPepGgM2ULK2fVQ+P5X1nOq7HNSFsgJU3L1ZtzyDA0Jc9 +b5CVNzjcakUQ0PYzpGGIldf8eGyvFwH/Tn1tGmbV9yTyN/gQMKnqVjvCyr9v +KbLTlwCDlI+po6z8eHF1XT8CKqXt3MZY+WEje7YGEBCV/1roCzYfo8RZLYiA +Rk2TxyzvsI3yVwwhYDD1md44K99g3wWZUAK29ewsYDlOWSJdPIwAnYkqnq/Y +lQKjZYJnCIio3e7I8uCvkibeCDxPy4pLLPN9iRrkiiKgIkEnl+Xt7fsWV84S +YHSpvJTl/wGlYkS0 "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5311368545847401, 1.7610246145622632`}}, + "PlotRange" -> {{0, 180}, {0.9405331934075726, 1.0624787312194859`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5311368545847414}, + "AxesOrigin" -> {0, 0.9405331934075747}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 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 +10459,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.9405331934075747}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -5458,7 +10488,8 @@ TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.5311368545847401, 1.7610246145622632`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.9405331934075726, 1.0624787312194859`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -5466,9 +10497,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.993960693960209*^9}, CellLabel-> - "Out[194]=",ExpressionUUID->"3d0b6a0d-2dc0-3b48-b8dd-35b5149ee27f"] + "Out[118]=",ExpressionUUID->"97a65d37-1b29-4555-bb66-b3137cc26842"] }, Open ]], Cell[CellGroupData[{ @@ -5531,213 +10562,177 @@ 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[\\\"1.590336289136237`*^-278\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 41, 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913301737143345`*^9, 3.993960694094845*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"6edb7460-8fa7-4d2e-b847-40199ce737ef"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.7521822284223066`*^-291\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 42, 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913301737143345`*^9, 3.99396069410156*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"54e5e801-c35a-42aa-8f39-060fad53ea11"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.852763765413958`*^-304\\\", \ \\\"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, + 43, 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913301737143345`*^9, 3.993960694108083*^9}, CellLabel-> "During evaluation of \ -In[195]:=",ExpressionUUID->"abf9cb8a-fbbf-7a43-abcd-82efb32ab217"], - -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}, - 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[119]:=",ExpressionUUID->"34cfb5f2-c591-4c10-b271-5156fb01b9da"], 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, 44, 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913301737143345`*^9, 3.993960694116385*^9}, CellLabel-> "During evaluation of \ -In[195]:=",ExpressionUUID->"fa59df63-76ff-4147-acd0-9eeaf33582c5"], +In[119]:=",ExpressionUUID->"be72f63f-63f6-4731-bff3-6f4344c9e889"], 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:eJwV13k8Fd8bB3BfWixFZF/nXkuFEMK93J7HEtkS2SJroZAWW0RZCkWylLTZ +aaHcO5UKlUhFRJFQiUgqRNZK9ZvfX/N6v+b1OjPnnOf5nBma714HP24uLi7d +/7i4/n+d7Wt6rJRasqFG/zL95RnTDZ15klHG3QnguvB0n94cDVCszVeyOwu6 +Hv/lXz63DiK2XHvD010Ep3mvpE3MGoPwuETWzzckvBZbUGiYtYcPtZv3Tr+p +hwT2iSrNWR8wV/r6fvLNKyAOFXhPTe2Hn2/0z0y8+Qhr+dkey7/FQ4Pp5ZKX +RVMQGWnU1peQBbIf7g37qv+BVo2z7e9pF0A02OvaUlMeXLFc5PK2nELIWmde +s9mJFwd3zJlYXi6FnlytuskVy5F7WKcmU+4qpJYcaeOWEkazw2+j3oVWgJXu +bhExRWGs/MKVJxBXAbyPHZxWrRXGotKTQTppFXB0UPmttbEwCod1/AwuqYAY +esvw6d3CSKyILUnurICQAsm/KtXCKOry36ZtOtfB/iJH3dpdBHvtImW8vl0H +idODx7MvrUSH+nSuE2aVIKl2++h82Upk6FeO0TdXgnR90hEP9krUzJZccdul +EuQn1oSvaliJc6cWTzwOrARlm33eNSMrsVA0/XdWRiXoLPqjN6gjihZXjpl+ +7q0EuzDxIe1mUfznZXJadz0btgiM9J3tEMW82Da7bAYbHIru9Sy8E0XjcIcz +4yw2OLdvb3vyXRSVO8Jrz5uzwUO9uNpNTAxvlkntbXJhQ9CQZmaCtxiuChXi +i4tiQ7Kj5YZXs2I4Xeq+266aDdK3Xkhz/yeO15cZhGQ/YMONlY5z6wTEsXhg +69aOejZ0vfJkZyqIY01Ue635czYo2YfR7TeJo6jfF+6Ft2yot81f0n5OHDfu +DBUuWGDDH/OZF61GEjjsyb2hhcmBjLLo8j/mErgpLepm6gYOKC3hSllrL4GM +ngwuCxMO2DTyG5/0k8Bszi+CY8mB86bETZt0CazzzY7Y6soBA7Q++/yDBH6P +mndtD+NAKKPQqylBEhstif3XrnHAqkBw2jpNEpcx9w5dv84B+tKYlBdnJNF+ +1qHqOpsD7Z3OnI4rkmj95ld4URUHNPYt4+l7IYls179+3vUcGCmLLPshLYUM +NU9xjR4ObBfdPCZzUwo/6f7ZIbyIBJ1DNfF5tVIo26z2smAJCfwfV4vTnkjh +lkKrAnU+Eu5V8oBKjxQOWoj6MQRJELe+l6H1TwqP5+unr5IkoT1eSXejtTQO +j+ScdFYjwez7r+iQQWkU2Bc5zWVHQtSm06qPRqUxdcPaKBF7Em4Uru1dOSuN +XhdKU4mtJEg6ejPu8cpgnJOUu7YLCaN3G+d4NGTw54HhCnUvErITMsLOHZRB +K09r/5gQEp69XaM0Gi+DrfJm4877SFjQbejYkCqD7SM7+TQOkOD/eUZ76JIM +fpm48OtlOAlMG/dJjQYZZGkldUzEkPBRTCXk8XJZvNPcfufECRIk9j6Uk5CQ +Rb4LKws10kiweebaupuQxVjlL4ptJ0moik5VF9KRxQkN/vnFmSSc+DDxdZur +LBrypw1bnSVB+2pNwPciWSyyEjDVLiYhgNtJwqRCFnni63/nl5Bw0X38yenb +suj4NtyJv4yEJYI0FeYzWWxObB3rvEJC74GkoaNjssi/07PO+AYJ8Ub2PtIG +clisKu0TfZeETZ55P/RN5DBryavGlnskCMZ9S3SykcM03xgjmRpq/IZjZRne +cljSGOdbcZ+Eu1bV35Ycl8MkvujS/HoSJlwVI6Z65PCzxVxF83MS7kTvWyo8 +JIdt8t0pfS0kHL54P1djXA6lvAsTxltJWNbvUrObWx4z5CU6uNtJWBWQxtWv +Ko88Ob//LHSQ4Bk+c6LlkDw2ccvpGLwlQfmsiezXY9R95UV2gu/+v3+nri/N +kMeFQoGcfsrRC2vaTUrkMTd9+kpUHwlnEj3F7rXI46fhh79iB0jYXlpe1tUl +j4MiOinrP5JAfzqvP90vjy/z31h8oczmz3bTnJFHfyFHn41DJLRkPs0vlVPA +3R1V4u3DVH3cFF3XsEoBN4Kl3e7PJLi99qnvX6eA7iKBj/5SHpFcGJIxV8Av +12Sc5b+QUMm0jGBsUUDPW5nRVyhHbM9Z6uKmgOHl3u80vpLAU6ClmhWigKdy ++921vpHQ/Ci2pvKgAloujTtUTjljsNmmNUEBo7Y6vaOPkiC/ym8v71kFLOZK +9VsyRtXbjXO3Dj9UQIh6zCkYp/rhzYs/488U0PZrcdcc5c1ciyy8XlHjm5x7 +aP2dhB0OIT3wSQGzeVcMfKEccqiYzh5XwC11BjK6EyQcLOkOIuYVUPBHo+wh +yuaHaEfiFhMYesIv6h/l50K1xQb8BLaNKHcZTZKwpcT52YQggSGVZX8iKHcZ +TI5eWUlg67e6ieuU3VtThX0kCWQe3sweoNzvo6InJUcgQ0qVJfKD6p/ZOreX +NAJnUDMXKO9TmC02ViNw0H11bQblmZsZz35qEmgd+CbpFuXoTWpjHF0Cy5gq +iq8pc71vFA5kEHjQezrzB+Vj+7316BsI3M6idy6bovJlyW+3XhMCg7kyvypS +zjh/5kiWBYGcUnqXPmUxTa0SKxsCE2fund1E+XxD8zNuewK/JzK1nCkruPqN +VTsRuJqdQh3AJJSM/hMOdSPwW/HxLwGUVePP66l5EdjjoLgsmHKl2Hr3wR0E +TkUZ8e2hrHut7ciFXQRO5NUOBFKu3hBYsnUPgeVCaTl+lKFjUZPAAQKTB7JX +e1B+HJA/1hBBYOfE/Vx7ypYLDJGYQwQa9E9/NqH8IqNTTzeOQEFJJYl1lB2V +97qPHiWwvVF/lSzlnnt8cSXHCUx4Kyu1iLLn5pKS7ekECgg9Ghuh1mfo44Ym +0WwCc3tEypop747sGWs5S6Bo5H+mVymPC4SJHLtIYPSnmMajlEMLBPVZhdTz +h8I1PCjP6151nyklsGjq/WFtyoebTOOuXyPQ0vHynUWUeTz7SvwqCfRZ0tjT +Qe13yo+DTXK3CFzTpDqcT1kweeX467sEmkm3vt9FWZK9Sd+8nsAYkUtZk1R9 +XTIbdP/7hKq3gDv2HMr0nti4qucE6pV+/reH8lrum00qrwn8ZBG0to+qXzLH +dryvh0CP9ZwbmZQN1EZEzvZR85f5QTehbOIot33pCIEN3fYj56h+eDpyJ+7h +KIFO/3YZGlO2iXUojZwkEGuDjn2i+smlLHn88y8CMw6ocytTDp6fjHu2nIbZ +9Serj1D9yNzvLz4sQsPSg0yzxZR5v/aW80jSUP2qh3ky1c+lbxu6NtBp+FdN +514c1e99D86o39ajIf1+fKwllQ8V+vz1rwxpKJtNvR2VJ9Hswy4TSEO57i+D +kpTFiwIS1KxpqBy83r2Xyh+7Y4zuQi8a3twxX6ZD5ZP83+t7Hu6k4eXXck7x +VJ6NRtB53u+mYebvzozn/dR67xLQkAyjoaWBV5XTBxLqrN8npqfQcFjq0wek +8lFbJF7zEIeGrv0lH0JfU/2TOvM4t4qGq9Y38qd2UvXFE+hWVUPDUemDPXlU +/gbNOBybbKRhyUOdgNqXVP13K70N6KWhyXhiUBuV3+L5z5Iceej4+riJs3Mj +VV8SLNkDvHRcWPd0p8Fjan8yOJxTy+m4OuP2WokGaj4J5981S9BRi69wurmO +el+/YG1jdTpK6Z07IlBLwk+1FX1rnei4xra2Y5JDwuwl6XgdNzoG3yeDy9gk +TAspKzG86FgnuGbGpZKq1ylGoNluOuZdNO3lVFDnbc2OWbdYOn7QkJIzvkzl +qfUdwZRSOm7xK3/y4gLV30Ge8HGGjmF13q/ZCSScfb/r4+dfdHTluq+6JJ6E +03ahx8b+0bH4rFGe6xES0nVSns/zKeLuwsJP04dISPjNcRGSV8S+w4sIAeq8 +D0pdvM/IXBHNuX6ervQnwai8oiAnRxGfug6sHrQg4S1Rnr/xgiKWCl1bzm1O +7XfO1bzpfEVMaRW9IG9GnY/xZRcdripSz++7tQWp/XEtyBWsVUReUc7ScwYk +rFl8OiNpQBHPP58xr1lNrbfXobgIdSW8m9xP2C0lYVLEytu5XgmvrM9sX7jP +ge5genvgUyXcp77g417Dgbonv+BIixJWDSmdvnOX+n6MLle40qWEutLhA7tu +ckDr47IPP78q4aqko3aVVzgQwmnzuLRSGV3jHsy0ZHHgq52T+9BOZTxVt8fV +xY8DQ2nezgeWqmCA8aYQ3kUcsPweaflJbxUuDnp8Xp3JhtEdvKG3jqzGqNXq +xKH0G9T/iwR3cv0aLF5dHJVxsgJEWlXS2d9VUa3mhJXc+Wsgm1K5RU9PHdWt +Ax3/7LsCuWqMFSsD1iLW+OotCSqDZmnj9VOZGvghaTctPbwEmLL1GZpdmqgZ +Iflm+c4iEOQpCvNJ0MKfxc8b3I4XgHy8gtE2lXWYImDYEGtyCfiUt1c5PF2H +Auq9QS6PzoEGS6oy0kMbE4b+qknfzYEDfSINVlw6eFJrqMWWkw3fp9KcLHN1 +0Fj6aaK0QiZYaD45b7lWFz29Q1NErp+EB1OGv+de6OLYOpl+AdZxCFHX7n3p +tx4vqVa0pWccA9b4zs5tfHqI+0rejwklwEYlSdvlRXq476lHzuHgw7A67sTB +en19PGZrVOJ2KgpU/RgPlXv1cbx241Tz4nDwe7Dr6K39BlhVul0rcvd+GN/z +NXJjmAEmJe3hF3DfDwflgoO6IgzwNm/i1BWb/XAiZq/D/CEDdDwg3settR/Y +zAjCKMkAK/eeOKoxtw8WqhJrG84b4ILaorPeyfsgqzJv+lWDAV7jSRSU9NwL +Dws6d06KMZD3Ft2wWTcY+m1oXhGSDKy5+rlVSi4YuH7u2fZbmoGaGU4u0YuD +wcR+6ebFBANnTehrQrqC4Ml/TH0pVQZ2a9c2KkQFQYtvPp/xBga+Dz3dWfQo +EHqVAm9k+DPwuJu+44jnbpi+8m9O8w4Do94FBEY984dhZ/OC4/cYyOf4gkuk +yh+6F53cNFjDwNq65oA7xf5Q4y19LqeOgW6M5NTVR/whQXI9808TAxMCMvyL +9fxhRUpgTPM7Bt6P63OauewH6gGvufy4mbg+kTnQk70TdiiX8523ZeLG3BYB +tVO+EN3oGaiyhYmfAz5Phx/2hQw/keekAxM/LGdPte7xhdrSqLTnLkzUcAwU +LrXxBVGVTUJ/fJj4SWXFyDi/LzxR+STqHcFEkbDp/i/HfUB1tQKhks/ErMu6 ++WaZ3jCpmq1HTjAx3iEr72qyB3S34MaVU0wUYvyzkQvxgLqQ8a1hM0wM1WP6 +ljh6QDppuV/vFxNlV/VmjNI8QJXJVVHNY4h23hI3dtzfDr6We2gN4ob4Vehc +6Mc5d+gMsFjWaWSIfs1jx9ui3eBuye+BmRRD/K/c12bwtgvomYbNWaUaoqEq +X8mGQhe4PTC6rOCkIQ7dnuy/muYCpHyfvlWWIS6CpoHKHS5QkVt3Mu+CIc5p +OA8eFHGBgrRjDIsbhtgnqLhy9oAzHA8TysztMEQbu4I4F3ACNzNFNJQ3Qnt3 +65Bcnq3wp5NXsIEwQjkftNGcdIACv/G3VopGeMB5iK+rzwGGk+5Fuq02wre/ +uWcdqh3gQJNdZZS2Ee4XiLHjO+AAJzbHyN81N8KgLTf5PYfsodr19YLuXiMc +8NrBta1zC8jsSb6nUWeE4sWZDwIe2EL6P//1qfVGqIrXfduLbIE7y5zz+bER +dlhqztsl28LXqsVXC5qMUKxcoSp7iy1Ucx3NFekwwjNcN6vUhmzA7XRc5Own +IxxRflp5SsgGcmui1j8QYOEtdaeouxFWIMYfzLF1YeGu5NbKdYkWUGIaGz2x +jYWXcmw/mwZagHZsumn2dhYeOSQ0tcfeAjZPsF93+7AwU+ekAR9hAUldMz93 +BLPwa/ENZ7cH5jBfdMQkOp6F96f3Djr92wi9htkdZeUs9PP3mVPPMoNd4SUX +LW9Q92VHYkRjzGD2xm2/UTYLlfNjDwr7m4EIvXtuXRULmcccjlszzcCaV072 +fh0L2348lHwwaAq1nWU7O16zcPvtRLuTTFOwEry7NqKbhcWxo20NyqbQbdE0 +K/mWGq/l/VVBYVOYrv6W4tnPQomHfUoDn01gbaHW9S9fWTiQdXZrZI4J1PYa +R6SNUfNbp1G7OcEErES3guYECx8lp00zQkzAPzn8ZdgMC2NZhRnW5iYwXZd0 +XmKehY+Phb/ar20CCb/O7qj+xUIFW9uCcnkTWKF7Vd3jDwvvjDh+mec3gbw9 +1TP//rHwxc7HF7fNGcP/APFnyiI= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -5751,172 +10746,132 @@ 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:eJwV13k8Fd8bB3BfWixFZF/nXkuFEMK93J7HEtkS2SJroZAWW0RZCkWylLTZ +aaHcO5UKlUhFRJFQiUgqRNZK9ZvfX/N6v+b1OjPnnOf5nBma714HP24uLi7d +/7i4/n+d7Wt6rJRasqFG/zL95RnTDZ15klHG3QnguvB0n94cDVCszVeyOwu6 +Hv/lXz63DiK2XHvD010Ep3mvpE3MGoPwuETWzzckvBZbUGiYtYcPtZv3Tr+p +hwT2iSrNWR8wV/r6fvLNKyAOFXhPTe2Hn2/0z0y8+Qhr+dkey7/FQ4Pp5ZKX +RVMQGWnU1peQBbIf7g37qv+BVo2z7e9pF0A02OvaUlMeXLFc5PK2nELIWmde +s9mJFwd3zJlYXi6FnlytuskVy5F7WKcmU+4qpJYcaeOWEkazw2+j3oVWgJXu +bhExRWGs/MKVJxBXAbyPHZxWrRXGotKTQTppFXB0UPmttbEwCod1/AwuqYAY +esvw6d3CSKyILUnurICQAsm/KtXCKOry36ZtOtfB/iJH3dpdBHvtImW8vl0H +idODx7MvrUSH+nSuE2aVIKl2++h82Upk6FeO0TdXgnR90hEP9krUzJZccdul +EuQn1oSvaliJc6cWTzwOrARlm33eNSMrsVA0/XdWRiXoLPqjN6gjihZXjpl+ +7q0EuzDxIe1mUfznZXJadz0btgiM9J3tEMW82Da7bAYbHIru9Sy8E0XjcIcz +4yw2OLdvb3vyXRSVO8Jrz5uzwUO9uNpNTAxvlkntbXJhQ9CQZmaCtxiuChXi +i4tiQ7Kj5YZXs2I4Xeq+266aDdK3Xkhz/yeO15cZhGQ/YMONlY5z6wTEsXhg +69aOejZ0vfJkZyqIY01Ue635czYo2YfR7TeJo6jfF+6Ft2yot81f0n5OHDfu +DBUuWGDDH/OZF61GEjjsyb2hhcmBjLLo8j/mErgpLepm6gYOKC3hSllrL4GM +ngwuCxMO2DTyG5/0k8Bszi+CY8mB86bETZt0CazzzY7Y6soBA7Q++/yDBH6P +mndtD+NAKKPQqylBEhstif3XrnHAqkBw2jpNEpcx9w5dv84B+tKYlBdnJNF+ +1qHqOpsD7Z3OnI4rkmj95ld4URUHNPYt4+l7IYls179+3vUcGCmLLPshLYUM +NU9xjR4ObBfdPCZzUwo/6f7ZIbyIBJ1DNfF5tVIo26z2smAJCfwfV4vTnkjh +lkKrAnU+Eu5V8oBKjxQOWoj6MQRJELe+l6H1TwqP5+unr5IkoT1eSXejtTQO +j+ScdFYjwez7r+iQQWkU2Bc5zWVHQtSm06qPRqUxdcPaKBF7Em4Uru1dOSuN +XhdKU4mtJEg6ejPu8cpgnJOUu7YLCaN3G+d4NGTw54HhCnUvErITMsLOHZRB +K09r/5gQEp69XaM0Gi+DrfJm4877SFjQbejYkCqD7SM7+TQOkOD/eUZ76JIM +fpm48OtlOAlMG/dJjQYZZGkldUzEkPBRTCXk8XJZvNPcfufECRIk9j6Uk5CQ +Rb4LKws10kiweebaupuQxVjlL4ptJ0moik5VF9KRxQkN/vnFmSSc+DDxdZur +LBrypw1bnSVB+2pNwPciWSyyEjDVLiYhgNtJwqRCFnni63/nl5Bw0X38yenb +suj4NtyJv4yEJYI0FeYzWWxObB3rvEJC74GkoaNjssi/07PO+AYJ8Ub2PtIG +clisKu0TfZeETZ55P/RN5DBryavGlnskCMZ9S3SykcM03xgjmRpq/IZjZRne +cljSGOdbcZ+Eu1bV35Ycl8MkvujS/HoSJlwVI6Z65PCzxVxF83MS7kTvWyo8 +JIdt8t0pfS0kHL54P1djXA6lvAsTxltJWNbvUrObWx4z5CU6uNtJWBWQxtWv +Ko88Ob//LHSQ4Bk+c6LlkDw2ccvpGLwlQfmsiezXY9R95UV2gu/+v3+nri/N +kMeFQoGcfsrRC2vaTUrkMTd9+kpUHwlnEj3F7rXI46fhh79iB0jYXlpe1tUl +j4MiOinrP5JAfzqvP90vjy/z31h8oczmz3bTnJFHfyFHn41DJLRkPs0vlVPA +3R1V4u3DVH3cFF3XsEoBN4Kl3e7PJLi99qnvX6eA7iKBj/5SHpFcGJIxV8Av +12Sc5b+QUMm0jGBsUUDPW5nRVyhHbM9Z6uKmgOHl3u80vpLAU6ClmhWigKdy ++921vpHQ/Ci2pvKgAloujTtUTjljsNmmNUEBo7Y6vaOPkiC/ym8v71kFLOZK +9VsyRtXbjXO3Dj9UQIh6zCkYp/rhzYs/488U0PZrcdcc5c1ciyy8XlHjm5x7 +aP2dhB0OIT3wSQGzeVcMfKEccqiYzh5XwC11BjK6EyQcLOkOIuYVUPBHo+wh +yuaHaEfiFhMYesIv6h/l50K1xQb8BLaNKHcZTZKwpcT52YQggSGVZX8iKHcZ +TI5eWUlg67e6ieuU3VtThX0kCWQe3sweoNzvo6InJUcgQ0qVJfKD6p/ZOreX +NAJnUDMXKO9TmC02ViNw0H11bQblmZsZz35qEmgd+CbpFuXoTWpjHF0Cy5gq +iq8pc71vFA5kEHjQezrzB+Vj+7316BsI3M6idy6bovJlyW+3XhMCg7kyvypS +zjh/5kiWBYGcUnqXPmUxTa0SKxsCE2fund1E+XxD8zNuewK/JzK1nCkruPqN +VTsRuJqdQh3AJJSM/hMOdSPwW/HxLwGUVePP66l5EdjjoLgsmHKl2Hr3wR0E +TkUZ8e2hrHut7ciFXQRO5NUOBFKu3hBYsnUPgeVCaTl+lKFjUZPAAQKTB7JX +e1B+HJA/1hBBYOfE/Vx7ypYLDJGYQwQa9E9/NqH8IqNTTzeOQEFJJYl1lB2V +97qPHiWwvVF/lSzlnnt8cSXHCUx4Kyu1iLLn5pKS7ekECgg9Ghuh1mfo44Ym +0WwCc3tEypop747sGWs5S6Bo5H+mVymPC4SJHLtIYPSnmMajlEMLBPVZhdTz +h8I1PCjP6151nyklsGjq/WFtyoebTOOuXyPQ0vHynUWUeTz7SvwqCfRZ0tjT +Qe13yo+DTXK3CFzTpDqcT1kweeX467sEmkm3vt9FWZK9Sd+8nsAYkUtZk1R9 +XTIbdP/7hKq3gDv2HMr0nti4qucE6pV+/reH8lrum00qrwn8ZBG0to+qXzLH +dryvh0CP9ZwbmZQN1EZEzvZR85f5QTehbOIot33pCIEN3fYj56h+eDpyJ+7h +KIFO/3YZGlO2iXUojZwkEGuDjn2i+smlLHn88y8CMw6ocytTDp6fjHu2nIbZ +9Serj1D9yNzvLz4sQsPSg0yzxZR5v/aW80jSUP2qh3ky1c+lbxu6NtBp+FdN +514c1e99D86o39ajIf1+fKwllQ8V+vz1rwxpKJtNvR2VJ9Hswy4TSEO57i+D +kpTFiwIS1KxpqBy83r2Xyh+7Y4zuQi8a3twxX6ZD5ZP83+t7Hu6k4eXXck7x +VJ6NRtB53u+mYebvzozn/dR67xLQkAyjoaWBV5XTBxLqrN8npqfQcFjq0wek +8lFbJF7zEIeGrv0lH0JfU/2TOvM4t4qGq9Y38qd2UvXFE+hWVUPDUemDPXlU +/gbNOBybbKRhyUOdgNqXVP13K70N6KWhyXhiUBuV3+L5z5Iceej4+riJs3Mj +VV8SLNkDvHRcWPd0p8Fjan8yOJxTy+m4OuP2WokGaj4J5981S9BRi69wurmO +el+/YG1jdTpK6Z07IlBLwk+1FX1rnei4xra2Y5JDwuwl6XgdNzoG3yeDy9gk +TAspKzG86FgnuGbGpZKq1ylGoNluOuZdNO3lVFDnbc2OWbdYOn7QkJIzvkzl +qfUdwZRSOm7xK3/y4gLV30Ge8HGGjmF13q/ZCSScfb/r4+dfdHTluq+6JJ6E +03ahx8b+0bH4rFGe6xES0nVSns/zKeLuwsJP04dISPjNcRGSV8S+w4sIAeq8 +D0pdvM/IXBHNuX6ervQnwai8oiAnRxGfug6sHrQg4S1Rnr/xgiKWCl1bzm1O +7XfO1bzpfEVMaRW9IG9GnY/xZRcdripSz++7tQWp/XEtyBWsVUReUc7ScwYk +rFl8OiNpQBHPP58xr1lNrbfXobgIdSW8m9xP2C0lYVLEytu5XgmvrM9sX7jP +ge5genvgUyXcp77g417Dgbonv+BIixJWDSmdvnOX+n6MLle40qWEutLhA7tu +ckDr47IPP78q4aqko3aVVzgQwmnzuLRSGV3jHsy0ZHHgq52T+9BOZTxVt8fV +xY8DQ2nezgeWqmCA8aYQ3kUcsPweaflJbxUuDnp8Xp3JhtEdvKG3jqzGqNXq +xKH0G9T/iwR3cv0aLF5dHJVxsgJEWlXS2d9VUa3mhJXc+Wsgm1K5RU9PHdWt +Ax3/7LsCuWqMFSsD1iLW+OotCSqDZmnj9VOZGvghaTctPbwEmLL1GZpdmqgZ +Iflm+c4iEOQpCvNJ0MKfxc8b3I4XgHy8gtE2lXWYImDYEGtyCfiUt1c5PF2H +Auq9QS6PzoEGS6oy0kMbE4b+qknfzYEDfSINVlw6eFJrqMWWkw3fp9KcLHN1 +0Fj6aaK0QiZYaD45b7lWFz29Q1NErp+EB1OGv+de6OLYOpl+AdZxCFHX7n3p +tx4vqVa0pWccA9b4zs5tfHqI+0rejwklwEYlSdvlRXq476lHzuHgw7A67sTB +en19PGZrVOJ2KgpU/RgPlXv1cbx241Tz4nDwe7Dr6K39BlhVul0rcvd+GN/z +NXJjmAEmJe3hF3DfDwflgoO6IgzwNm/i1BWb/XAiZq/D/CEDdDwg3settR/Y +zAjCKMkAK/eeOKoxtw8WqhJrG84b4ILaorPeyfsgqzJv+lWDAV7jSRSU9NwL +Dws6d06KMZD3Ft2wWTcY+m1oXhGSDKy5+rlVSi4YuH7u2fZbmoGaGU4u0YuD +wcR+6ebFBANnTehrQrqC4Ml/TH0pVQZ2a9c2KkQFQYtvPp/xBga+Dz3dWfQo +EHqVAm9k+DPwuJu+44jnbpi+8m9O8w4Do94FBEY984dhZ/OC4/cYyOf4gkuk +yh+6F53cNFjDwNq65oA7xf5Q4y19LqeOgW6M5NTVR/whQXI9808TAxMCMvyL +9fxhRUpgTPM7Bt6P63OauewH6gGvufy4mbg+kTnQk70TdiiX8523ZeLG3BYB +tVO+EN3oGaiyhYmfAz5Phx/2hQw/keekAxM/LGdPte7xhdrSqLTnLkzUcAwU +LrXxBVGVTUJ/fJj4SWXFyDi/LzxR+STqHcFEkbDp/i/HfUB1tQKhks/ErMu6 ++WaZ3jCpmq1HTjAx3iEr72qyB3S34MaVU0wUYvyzkQvxgLqQ8a1hM0wM1WP6 +ljh6QDppuV/vFxNlV/VmjNI8QJXJVVHNY4h23hI3dtzfDr6We2gN4ob4Vehc +6Mc5d+gMsFjWaWSIfs1jx9ui3eBuye+BmRRD/K/c12bwtgvomYbNWaUaoqEq +X8mGQhe4PTC6rOCkIQ7dnuy/muYCpHyfvlWWIS6CpoHKHS5QkVt3Mu+CIc5p +OA8eFHGBgrRjDIsbhtgnqLhy9oAzHA8TysztMEQbu4I4F3ACNzNFNJQ3Qnt3 +65Bcnq3wp5NXsIEwQjkftNGcdIACv/G3VopGeMB5iK+rzwGGk+5Fuq02wre/ +uWcdqh3gQJNdZZS2Ee4XiLHjO+AAJzbHyN81N8KgLTf5PYfsodr19YLuXiMc +8NrBta1zC8jsSb6nUWeE4sWZDwIe2EL6P//1qfVGqIrXfduLbIE7y5zz+bER +dlhqztsl28LXqsVXC5qMUKxcoSp7iy1Ucx3NFekwwjNcN6vUhmzA7XRc5Own +IxxRflp5SsgGcmui1j8QYOEtdaeouxFWIMYfzLF1YeGu5NbKdYkWUGIaGz2x +jYWXcmw/mwZagHZsumn2dhYeOSQ0tcfeAjZPsF93+7AwU+ekAR9hAUldMz93 +BLPwa/ENZ7cH5jBfdMQkOp6F96f3Djr92wi9htkdZeUs9PP3mVPPMoNd4SUX +LW9Q92VHYkRjzGD2xm2/UTYLlfNjDwr7m4EIvXtuXRULmcccjlszzcCaV072 +fh0L2348lHwwaAq1nWU7O16zcPvtRLuTTFOwEry7NqKbhcWxo20NyqbQbdE0 +K/mWGq/l/VVBYVOYrv6W4tnPQomHfUoDn01gbaHW9S9fWTiQdXZrZI4J1PYa +R6SNUfNbp1G7OcEErES3guYECx8lp00zQkzAPzn8ZdgMC2NZhRnW5iYwXZd0 +XmKehY+Phb/ar20CCb/O7qj+xUIFW9uCcnkTWKF7Vd3jDwvvjDh+mec3gbw9 +1TP//rHwxc7HF7fNGcP/APFnyiI= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "PlotRange" -> {{0, 30}, {0., 0.07402688479894674}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +10883,19 @@ L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "PlotRange" -> {{0, 30}, {0., 0.07402688479894674}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +10909,131 @@ 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:eJwV13k8Fd8bB3BfWixFZF/nXkuFEMK93J7HEtkS2SJroZAWW0RZCkWylLTZ +aaHcO5UKlUhFRJFQiUgqRNZK9ZvfX/N6v+b1OjPnnOf5nBma714HP24uLi7d +/7i4/n+d7Wt6rJRasqFG/zL95RnTDZ15klHG3QnguvB0n94cDVCszVeyOwu6 +Hv/lXz63DiK2XHvD010Ep3mvpE3MGoPwuETWzzckvBZbUGiYtYcPtZv3Tr+p +hwT2iSrNWR8wV/r6fvLNKyAOFXhPTe2Hn2/0z0y8+Qhr+dkey7/FQ4Pp5ZKX +RVMQGWnU1peQBbIf7g37qv+BVo2z7e9pF0A02OvaUlMeXLFc5PK2nELIWmde +s9mJFwd3zJlYXi6FnlytuskVy5F7WKcmU+4qpJYcaeOWEkazw2+j3oVWgJXu +bhExRWGs/MKVJxBXAbyPHZxWrRXGotKTQTppFXB0UPmttbEwCod1/AwuqYAY +esvw6d3CSKyILUnurICQAsm/KtXCKOry36ZtOtfB/iJH3dpdBHvtImW8vl0H +idODx7MvrUSH+nSuE2aVIKl2++h82Upk6FeO0TdXgnR90hEP9krUzJZccdul +EuQn1oSvaliJc6cWTzwOrARlm33eNSMrsVA0/XdWRiXoLPqjN6gjihZXjpl+ +7q0EuzDxIe1mUfznZXJadz0btgiM9J3tEMW82Da7bAYbHIru9Sy8E0XjcIcz +4yw2OLdvb3vyXRSVO8Jrz5uzwUO9uNpNTAxvlkntbXJhQ9CQZmaCtxiuChXi +i4tiQ7Kj5YZXs2I4Xeq+266aDdK3Xkhz/yeO15cZhGQ/YMONlY5z6wTEsXhg +69aOejZ0vfJkZyqIY01Ue635czYo2YfR7TeJo6jfF+6Ft2yot81f0n5OHDfu +DBUuWGDDH/OZF61GEjjsyb2hhcmBjLLo8j/mErgpLepm6gYOKC3hSllrL4GM +ngwuCxMO2DTyG5/0k8Bszi+CY8mB86bETZt0CazzzY7Y6soBA7Q++/yDBH6P +mndtD+NAKKPQqylBEhstif3XrnHAqkBw2jpNEpcx9w5dv84B+tKYlBdnJNF+ +1qHqOpsD7Z3OnI4rkmj95ld4URUHNPYt4+l7IYls179+3vUcGCmLLPshLYUM +NU9xjR4ObBfdPCZzUwo/6f7ZIbyIBJ1DNfF5tVIo26z2smAJCfwfV4vTnkjh +lkKrAnU+Eu5V8oBKjxQOWoj6MQRJELe+l6H1TwqP5+unr5IkoT1eSXejtTQO +j+ScdFYjwez7r+iQQWkU2Bc5zWVHQtSm06qPRqUxdcPaKBF7Em4Uru1dOSuN +XhdKU4mtJEg6ejPu8cpgnJOUu7YLCaN3G+d4NGTw54HhCnUvErITMsLOHZRB +K09r/5gQEp69XaM0Gi+DrfJm4877SFjQbejYkCqD7SM7+TQOkOD/eUZ76JIM +fpm48OtlOAlMG/dJjQYZZGkldUzEkPBRTCXk8XJZvNPcfufECRIk9j6Uk5CQ +Rb4LKws10kiweebaupuQxVjlL4ptJ0moik5VF9KRxQkN/vnFmSSc+DDxdZur +LBrypw1bnSVB+2pNwPciWSyyEjDVLiYhgNtJwqRCFnni63/nl5Bw0X38yenb +suj4NtyJv4yEJYI0FeYzWWxObB3rvEJC74GkoaNjssi/07PO+AYJ8Ub2PtIG +clisKu0TfZeETZ55P/RN5DBryavGlnskCMZ9S3SykcM03xgjmRpq/IZjZRne +cljSGOdbcZ+Eu1bV35Ycl8MkvujS/HoSJlwVI6Z65PCzxVxF83MS7kTvWyo8 +JIdt8t0pfS0kHL54P1djXA6lvAsTxltJWNbvUrObWx4z5CU6uNtJWBWQxtWv +Ko88Ob//LHSQ4Bk+c6LlkDw2ccvpGLwlQfmsiezXY9R95UV2gu/+v3+nri/N +kMeFQoGcfsrRC2vaTUrkMTd9+kpUHwlnEj3F7rXI46fhh79iB0jYXlpe1tUl +j4MiOinrP5JAfzqvP90vjy/z31h8oczmz3bTnJFHfyFHn41DJLRkPs0vlVPA +3R1V4u3DVH3cFF3XsEoBN4Kl3e7PJLi99qnvX6eA7iKBj/5SHpFcGJIxV8Av +12Sc5b+QUMm0jGBsUUDPW5nRVyhHbM9Z6uKmgOHl3u80vpLAU6ClmhWigKdy ++921vpHQ/Ci2pvKgAloujTtUTjljsNmmNUEBo7Y6vaOPkiC/ym8v71kFLOZK +9VsyRtXbjXO3Dj9UQIh6zCkYp/rhzYs/488U0PZrcdcc5c1ciyy8XlHjm5x7 +aP2dhB0OIT3wSQGzeVcMfKEccqiYzh5XwC11BjK6EyQcLOkOIuYVUPBHo+wh +yuaHaEfiFhMYesIv6h/l50K1xQb8BLaNKHcZTZKwpcT52YQggSGVZX8iKHcZ +TI5eWUlg67e6ieuU3VtThX0kCWQe3sweoNzvo6InJUcgQ0qVJfKD6p/ZOreX +NAJnUDMXKO9TmC02ViNw0H11bQblmZsZz35qEmgd+CbpFuXoTWpjHF0Cy5gq +iq8pc71vFA5kEHjQezrzB+Vj+7316BsI3M6idy6bovJlyW+3XhMCg7kyvypS +zjh/5kiWBYGcUnqXPmUxTa0SKxsCE2fund1E+XxD8zNuewK/JzK1nCkruPqN +VTsRuJqdQh3AJJSM/hMOdSPwW/HxLwGUVePP66l5EdjjoLgsmHKl2Hr3wR0E +TkUZ8e2hrHut7ciFXQRO5NUOBFKu3hBYsnUPgeVCaTl+lKFjUZPAAQKTB7JX +e1B+HJA/1hBBYOfE/Vx7ypYLDJGYQwQa9E9/NqH8IqNTTzeOQEFJJYl1lB2V +97qPHiWwvVF/lSzlnnt8cSXHCUx4Kyu1iLLn5pKS7ekECgg9Ghuh1mfo44Ym +0WwCc3tEypop747sGWs5S6Bo5H+mVymPC4SJHLtIYPSnmMajlEMLBPVZhdTz +h8I1PCjP6151nyklsGjq/WFtyoebTOOuXyPQ0vHynUWUeTz7SvwqCfRZ0tjT +Qe13yo+DTXK3CFzTpDqcT1kweeX467sEmkm3vt9FWZK9Sd+8nsAYkUtZk1R9 +XTIbdP/7hKq3gDv2HMr0nti4qucE6pV+/reH8lrum00qrwn8ZBG0to+qXzLH +dryvh0CP9ZwbmZQN1EZEzvZR85f5QTehbOIot33pCIEN3fYj56h+eDpyJ+7h +KIFO/3YZGlO2iXUojZwkEGuDjn2i+smlLHn88y8CMw6ocytTDp6fjHu2nIbZ +9Serj1D9yNzvLz4sQsPSg0yzxZR5v/aW80jSUP2qh3ky1c+lbxu6NtBp+FdN +514c1e99D86o39ajIf1+fKwllQ8V+vz1rwxpKJtNvR2VJ9Hswy4TSEO57i+D +kpTFiwIS1KxpqBy83r2Xyh+7Y4zuQi8a3twxX6ZD5ZP83+t7Hu6k4eXXck7x +VJ6NRtB53u+mYebvzozn/dR67xLQkAyjoaWBV5XTBxLqrN8npqfQcFjq0wek +8lFbJF7zEIeGrv0lH0JfU/2TOvM4t4qGq9Y38qd2UvXFE+hWVUPDUemDPXlU +/gbNOBybbKRhyUOdgNqXVP13K70N6KWhyXhiUBuV3+L5z5Iceej4+riJs3Mj +VV8SLNkDvHRcWPd0p8Fjan8yOJxTy+m4OuP2WokGaj4J5981S9BRi69wurmO +el+/YG1jdTpK6Z07IlBLwk+1FX1rnei4xra2Y5JDwuwl6XgdNzoG3yeDy9gk +TAspKzG86FgnuGbGpZKq1ylGoNluOuZdNO3lVFDnbc2OWbdYOn7QkJIzvkzl +qfUdwZRSOm7xK3/y4gLV30Ge8HGGjmF13q/ZCSScfb/r4+dfdHTluq+6JJ6E +03ahx8b+0bH4rFGe6xES0nVSns/zKeLuwsJP04dISPjNcRGSV8S+w4sIAeq8 +D0pdvM/IXBHNuX6ervQnwai8oiAnRxGfug6sHrQg4S1Rnr/xgiKWCl1bzm1O +7XfO1bzpfEVMaRW9IG9GnY/xZRcdripSz++7tQWp/XEtyBWsVUReUc7ScwYk +rFl8OiNpQBHPP58xr1lNrbfXobgIdSW8m9xP2C0lYVLEytu5XgmvrM9sX7jP +ge5genvgUyXcp77g417Dgbonv+BIixJWDSmdvnOX+n6MLle40qWEutLhA7tu +ckDr47IPP78q4aqko3aVVzgQwmnzuLRSGV3jHsy0ZHHgq52T+9BOZTxVt8fV +xY8DQ2nezgeWqmCA8aYQ3kUcsPweaflJbxUuDnp8Xp3JhtEdvKG3jqzGqNXq +xKH0G9T/iwR3cv0aLF5dHJVxsgJEWlXS2d9VUa3mhJXc+Wsgm1K5RU9PHdWt +Ax3/7LsCuWqMFSsD1iLW+OotCSqDZmnj9VOZGvghaTctPbwEmLL1GZpdmqgZ +Iflm+c4iEOQpCvNJ0MKfxc8b3I4XgHy8gtE2lXWYImDYEGtyCfiUt1c5PF2H +Auq9QS6PzoEGS6oy0kMbE4b+qknfzYEDfSINVlw6eFJrqMWWkw3fp9KcLHN1 +0Fj6aaK0QiZYaD45b7lWFz29Q1NErp+EB1OGv+de6OLYOpl+AdZxCFHX7n3p +tx4vqVa0pWccA9b4zs5tfHqI+0rejwklwEYlSdvlRXq476lHzuHgw7A67sTB +en19PGZrVOJ2KgpU/RgPlXv1cbx241Tz4nDwe7Dr6K39BlhVul0rcvd+GN/z +NXJjmAEmJe3hF3DfDwflgoO6IgzwNm/i1BWb/XAiZq/D/CEDdDwg3settR/Y +zAjCKMkAK/eeOKoxtw8WqhJrG84b4ILaorPeyfsgqzJv+lWDAV7jSRSU9NwL +Dws6d06KMZD3Ft2wWTcY+m1oXhGSDKy5+rlVSi4YuH7u2fZbmoGaGU4u0YuD +wcR+6ebFBANnTehrQrqC4Ml/TH0pVQZ2a9c2KkQFQYtvPp/xBga+Dz3dWfQo +EHqVAm9k+DPwuJu+44jnbpi+8m9O8w4Do94FBEY984dhZ/OC4/cYyOf4gkuk +yh+6F53cNFjDwNq65oA7xf5Q4y19LqeOgW6M5NTVR/whQXI9808TAxMCMvyL +9fxhRUpgTPM7Bt6P63OauewH6gGvufy4mbg+kTnQk70TdiiX8523ZeLG3BYB +tVO+EN3oGaiyhYmfAz5Phx/2hQw/keekAxM/LGdPte7xhdrSqLTnLkzUcAwU +LrXxBVGVTUJ/fJj4SWXFyDi/LzxR+STqHcFEkbDp/i/HfUB1tQKhks/ErMu6 ++WaZ3jCpmq1HTjAx3iEr72qyB3S34MaVU0wUYvyzkQvxgLqQ8a1hM0wM1WP6 +ljh6QDppuV/vFxNlV/VmjNI8QJXJVVHNY4h23hI3dtzfDr6We2gN4ob4Vehc +6Mc5d+gMsFjWaWSIfs1jx9ui3eBuye+BmRRD/K/c12bwtgvomYbNWaUaoqEq +X8mGQhe4PTC6rOCkIQ7dnuy/muYCpHyfvlWWIS6CpoHKHS5QkVt3Mu+CIc5p +OA8eFHGBgrRjDIsbhtgnqLhy9oAzHA8TysztMEQbu4I4F3ACNzNFNJQ3Qnt3 +65Bcnq3wp5NXsIEwQjkftNGcdIACv/G3VopGeMB5iK+rzwGGk+5Fuq02wre/ +uWcdqh3gQJNdZZS2Ee4XiLHjO+AAJzbHyN81N8KgLTf5PYfsodr19YLuXiMc +8NrBta1zC8jsSb6nUWeE4sWZDwIe2EL6P//1qfVGqIrXfduLbIE7y5zz+bER +dlhqztsl28LXqsVXC5qMUKxcoSp7iy1Ucx3NFekwwjNcN6vUhmzA7XRc5Own +IxxRflp5SsgGcmui1j8QYOEtdaeouxFWIMYfzLF1YeGu5NbKdYkWUGIaGz2x +jYWXcmw/mwZagHZsumn2dhYeOSQ0tcfeAjZPsF93+7AwU+ekAR9hAUldMz93 +BLPwa/ENZ7cH5jBfdMQkOp6F96f3Djr92wi9htkdZeUs9PP3mVPPMoNd4SUX +LW9Q92VHYkRjzGD2xm2/UTYLlfNjDwr7m4EIvXtuXRULmcccjlszzcCaV072 +fh0L2348lHwwaAq1nWU7O16zcPvtRLuTTFOwEry7NqKbhcWxo20NyqbQbdE0 +K/mWGq/l/VVBYVOYrv6W4tnPQomHfUoDn01gbaHW9S9fWTiQdXZrZI4J1PYa +R6SNUfNbp1G7OcEErES3guYECx8lp00zQkzAPzn8ZdgMC2NZhRnW5iYwXZd0 +XmKehY+Phb/ar20CCb/O7qj+xUIFW9uCcnkTWKF7Vd3jDwvvjDh+mec3gbw9 +1TP//rHwxc7HF7fNGcP/APFnyiI= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "PlotRange" -> {{0, 30}, {0., 0.07402688479894674}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +11044,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 +11072,8 @@ L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.1813924222088017}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07402688479894674}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -6164,17 +11081,613 @@ L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913306567510605`*^9}, + CellChangeTimes->{3.9913306567510605`*^9, 3.993961043225479*^9}, CellLabel-> - "Out[195]=",ExpressionUUID->"4ab96fbd-92e0-8a42-8552-436bb2f629b6"] + "Out[119]=",ExpressionUUID->"14d3f4bc-7cdd-4464-a231-3fb60935405b"] }, 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:eJwV13k8Fd8bB3BfWixFZF/nXkuFEMK93J7HEtkS2SJroZAWW0RZCkWylLTZ +aaHcO5UKlUhFRJFQiUgqRNZK9ZvfX/N6v+b1OjPnnOf5nBma714HP24uLi7d +/7i4/n+d7Wt6rJRasqFG/zL95RnTDZ15klHG3QnguvB0n94cDVCszVeyOwu6 +Hv/lXz63DiK2XHvD010Ep3mvpE3MGoPwuETWzzckvBZbUGiYtYcPtZv3Tr+p +hwT2iSrNWR8wV/r6fvLNKyAOFXhPTe2Hn2/0z0y8+Qhr+dkey7/FQ4Pp5ZKX +RVMQGWnU1peQBbIf7g37qv+BVo2z7e9pF0A02OvaUlMeXLFc5PK2nELIWmde +s9mJFwd3zJlYXi6FnlytuskVy5F7WKcmU+4qpJYcaeOWEkazw2+j3oVWgJXu +bhExRWGs/MKVJxBXAbyPHZxWrRXGotKTQTppFXB0UPmttbEwCod1/AwuqYAY +esvw6d3CSKyILUnurICQAsm/KtXCKOry36ZtOtfB/iJH3dpdBHvtImW8vl0H +idODx7MvrUSH+nSuE2aVIKl2++h82Upk6FeO0TdXgnR90hEP9krUzJZccdul +EuQn1oSvaliJc6cWTzwOrARlm33eNSMrsVA0/XdWRiXoLPqjN6gjihZXjpl+ +7q0EuzDxIe1mUfznZXJadz0btgiM9J3tEMW82Da7bAYbHIru9Sy8E0XjcIcz +4yw2OLdvb3vyXRSVO8Jrz5uzwUO9uNpNTAxvlkntbXJhQ9CQZmaCtxiuChXi +i4tiQ7Kj5YZXs2I4Xeq+266aDdK3Xkhz/yeO15cZhGQ/YMONlY5z6wTEsXhg +69aOejZ0vfJkZyqIY01Ue635czYo2YfR7TeJo6jfF+6Ft2yot81f0n5OHDfu +DBUuWGDDH/OZF61GEjjsyb2hhcmBjLLo8j/mErgpLepm6gYOKC3hSllrL4GM +ngwuCxMO2DTyG5/0k8Bszi+CY8mB86bETZt0CazzzY7Y6soBA7Q++/yDBH6P +mndtD+NAKKPQqylBEhstif3XrnHAqkBw2jpNEpcx9w5dv84B+tKYlBdnJNF+ +1qHqOpsD7Z3OnI4rkmj95ld4URUHNPYt4+l7IYls179+3vUcGCmLLPshLYUM +NU9xjR4ObBfdPCZzUwo/6f7ZIbyIBJ1DNfF5tVIo26z2smAJCfwfV4vTnkjh +lkKrAnU+Eu5V8oBKjxQOWoj6MQRJELe+l6H1TwqP5+unr5IkoT1eSXejtTQO +j+ScdFYjwez7r+iQQWkU2Bc5zWVHQtSm06qPRqUxdcPaKBF7Em4Uru1dOSuN +XhdKU4mtJEg6ejPu8cpgnJOUu7YLCaN3G+d4NGTw54HhCnUvErITMsLOHZRB +K09r/5gQEp69XaM0Gi+DrfJm4877SFjQbejYkCqD7SM7+TQOkOD/eUZ76JIM +fpm48OtlOAlMG/dJjQYZZGkldUzEkPBRTCXk8XJZvNPcfufECRIk9j6Uk5CQ +Rb4LKws10kiweebaupuQxVjlL4ptJ0moik5VF9KRxQkN/vnFmSSc+DDxdZur +LBrypw1bnSVB+2pNwPciWSyyEjDVLiYhgNtJwqRCFnni63/nl5Bw0X38yenb +suj4NtyJv4yEJYI0FeYzWWxObB3rvEJC74GkoaNjssi/07PO+AYJ8Ub2PtIG +clisKu0TfZeETZ55P/RN5DBryavGlnskCMZ9S3SykcM03xgjmRpq/IZjZRne +cljSGOdbcZ+Eu1bV35Ycl8MkvujS/HoSJlwVI6Z65PCzxVxF83MS7kTvWyo8 +JIdt8t0pfS0kHL54P1djXA6lvAsTxltJWNbvUrObWx4z5CU6uNtJWBWQxtWv +Ko88Ob//LHSQ4Bk+c6LlkDw2ccvpGLwlQfmsiezXY9R95UV2gu/+v3+nri/N +kMeFQoGcfsrRC2vaTUrkMTd9+kpUHwlnEj3F7rXI46fhh79iB0jYXlpe1tUl +j4MiOinrP5JAfzqvP90vjy/z31h8oczmz3bTnJFHfyFHn41DJLRkPs0vlVPA +3R1V4u3DVH3cFF3XsEoBN4Kl3e7PJLi99qnvX6eA7iKBj/5SHpFcGJIxV8Av +12Sc5b+QUMm0jGBsUUDPW5nRVyhHbM9Z6uKmgOHl3u80vpLAU6ClmhWigKdy ++921vpHQ/Ci2pvKgAloujTtUTjljsNmmNUEBo7Y6vaOPkiC/ym8v71kFLOZK +9VsyRtXbjXO3Dj9UQIh6zCkYp/rhzYs/488U0PZrcdcc5c1ciyy8XlHjm5x7 +aP2dhB0OIT3wSQGzeVcMfKEccqiYzh5XwC11BjK6EyQcLOkOIuYVUPBHo+wh +yuaHaEfiFhMYesIv6h/l50K1xQb8BLaNKHcZTZKwpcT52YQggSGVZX8iKHcZ +TI5eWUlg67e6ieuU3VtThX0kCWQe3sweoNzvo6InJUcgQ0qVJfKD6p/ZOreX +NAJnUDMXKO9TmC02ViNw0H11bQblmZsZz35qEmgd+CbpFuXoTWpjHF0Cy5gq +iq8pc71vFA5kEHjQezrzB+Vj+7316BsI3M6idy6bovJlyW+3XhMCg7kyvypS +zjh/5kiWBYGcUnqXPmUxTa0SKxsCE2fund1E+XxD8zNuewK/JzK1nCkruPqN +VTsRuJqdQh3AJJSM/hMOdSPwW/HxLwGUVePP66l5EdjjoLgsmHKl2Hr3wR0E +TkUZ8e2hrHut7ciFXQRO5NUOBFKu3hBYsnUPgeVCaTl+lKFjUZPAAQKTB7JX +e1B+HJA/1hBBYOfE/Vx7ypYLDJGYQwQa9E9/NqH8IqNTTzeOQEFJJYl1lB2V +97qPHiWwvVF/lSzlnnt8cSXHCUx4Kyu1iLLn5pKS7ekECgg9Ghuh1mfo44Ym +0WwCc3tEypop747sGWs5S6Bo5H+mVymPC4SJHLtIYPSnmMajlEMLBPVZhdTz +h8I1PCjP6151nyklsGjq/WFtyoebTOOuXyPQ0vHynUWUeTz7SvwqCfRZ0tjT +Qe13yo+DTXK3CFzTpDqcT1kweeX467sEmkm3vt9FWZK9Sd+8nsAYkUtZk1R9 +XTIbdP/7hKq3gDv2HMr0nti4qucE6pV+/reH8lrum00qrwn8ZBG0to+qXzLH +dryvh0CP9ZwbmZQN1EZEzvZR85f5QTehbOIot33pCIEN3fYj56h+eDpyJ+7h +KIFO/3YZGlO2iXUojZwkEGuDjn2i+smlLHn88y8CMw6ocytTDp6fjHu2nIbZ +9Serj1D9yNzvLz4sQsPSg0yzxZR5v/aW80jSUP2qh3ky1c+lbxu6NtBp+FdN +514c1e99D86o39ajIf1+fKwllQ8V+vz1rwxpKJtNvR2VJ9Hswy4TSEO57i+D +kpTFiwIS1KxpqBy83r2Xyh+7Y4zuQi8a3twxX6ZD5ZP83+t7Hu6k4eXXck7x +VJ6NRtB53u+mYebvzozn/dR67xLQkAyjoaWBV5XTBxLqrN8npqfQcFjq0wek +8lFbJF7zEIeGrv0lH0JfU/2TOvM4t4qGq9Y38qd2UvXFE+hWVUPDUemDPXlU +/gbNOBybbKRhyUOdgNqXVP13K70N6KWhyXhiUBuV3+L5z5Iceej4+riJs3Mj +VV8SLNkDvHRcWPd0p8Fjan8yOJxTy+m4OuP2WokGaj4J5981S9BRi69wurmO +el+/YG1jdTpK6Z07IlBLwk+1FX1rnei4xra2Y5JDwuwl6XgdNzoG3yeDy9gk +TAspKzG86FgnuGbGpZKq1ylGoNluOuZdNO3lVFDnbc2OWbdYOn7QkJIzvkzl +qfUdwZRSOm7xK3/y4gLV30Ge8HGGjmF13q/ZCSScfb/r4+dfdHTluq+6JJ6E +03ahx8b+0bH4rFGe6xES0nVSns/zKeLuwsJP04dISPjNcRGSV8S+w4sIAeq8 +D0pdvM/IXBHNuX6ervQnwai8oiAnRxGfug6sHrQg4S1Rnr/xgiKWCl1bzm1O +7XfO1bzpfEVMaRW9IG9GnY/xZRcdripSz++7tQWp/XEtyBWsVUReUc7ScwYk +rFl8OiNpQBHPP58xr1lNrbfXobgIdSW8m9xP2C0lYVLEytu5XgmvrM9sX7jP +ge5genvgUyXcp77g417Dgbonv+BIixJWDSmdvnOX+n6MLle40qWEutLhA7tu +ckDr47IPP78q4aqko3aVVzgQwmnzuLRSGV3jHsy0ZHHgq52T+9BOZTxVt8fV +xY8DQ2nezgeWqmCA8aYQ3kUcsPweaflJbxUuDnp8Xp3JhtEdvKG3jqzGqNXq +xKH0G9T/iwR3cv0aLF5dHJVxsgJEWlXS2d9VUa3mhJXc+Wsgm1K5RU9PHdWt +Ax3/7LsCuWqMFSsD1iLW+OotCSqDZmnj9VOZGvghaTctPbwEmLL1GZpdmqgZ +Iflm+c4iEOQpCvNJ0MKfxc8b3I4XgHy8gtE2lXWYImDYEGtyCfiUt1c5PF2H +Auq9QS6PzoEGS6oy0kMbE4b+qknfzYEDfSINVlw6eFJrqMWWkw3fp9KcLHN1 +0Fj6aaK0QiZYaD45b7lWFz29Q1NErp+EB1OGv+de6OLYOpl+AdZxCFHX7n3p +tx4vqVa0pWccA9b4zs5tfHqI+0rejwklwEYlSdvlRXq476lHzuHgw7A67sTB +en19PGZrVOJ2KgpU/RgPlXv1cbx241Tz4nDwe7Dr6K39BlhVul0rcvd+GN/z +NXJjmAEmJe3hF3DfDwflgoO6IgzwNm/i1BWb/XAiZq/D/CEDdDwg3settR/Y +zAjCKMkAK/eeOKoxtw8WqhJrG84b4ILaorPeyfsgqzJv+lWDAV7jSRSU9NwL +Dws6d06KMZD3Ft2wWTcY+m1oXhGSDKy5+rlVSi4YuH7u2fZbmoGaGU4u0YuD +wcR+6ebFBANnTehrQrqC4Ml/TH0pVQZ2a9c2KkQFQYtvPp/xBga+Dz3dWfQo +EHqVAm9k+DPwuJu+44jnbpi+8m9O8w4Do94FBEY984dhZ/OC4/cYyOf4gkuk +yh+6F53cNFjDwNq65oA7xf5Q4y19LqeOgW6M5NTVR/whQXI9808TAxMCMvyL +9fxhRUpgTPM7Bt6P63OauewH6gGvufy4mbg+kTnQk70TdiiX8523ZeLG3BYB +tVO+EN3oGaiyhYmfAz5Phx/2hQw/keekAxM/LGdPte7xhdrSqLTnLkzUcAwU +LrXxBVGVTUJ/fJj4SWXFyDi/LzxR+STqHcFEkbDp/i/HfUB1tQKhks/ErMu6 ++WaZ3jCpmq1HTjAx3iEr72qyB3S34MaVU0wUYvyzkQvxgLqQ8a1hM0wM1WP6 +ljh6QDppuV/vFxNlV/VmjNI8QJXJVVHNY4h23hI3dtzfDr6We2gN4ob4Vehc +6Mc5d+gMsFjWaWSIfs1jx9ui3eBuye+BmRRD/K/c12bwtgvomYbNWaUaoqEq +X8mGQhe4PTC6rOCkIQ7dnuy/muYCpHyfvlWWIS6CpoHKHS5QkVt3Mu+CIc5p +OA8eFHGBgrRjDIsbhtgnqLhy9oAzHA8TysztMEQbu4I4F3ACNzNFNJQ3Qnt3 +65Bcnq3wp5NXsIEwQjkftNGcdIACv/G3VopGeMB5iK+rzwGGk+5Fuq02wre/ +uWcdqh3gQJNdZZS2Ee4XiLHjO+AAJzbHyN81N8KgLTf5PYfsodr19YLuXiMc +8NrBta1zC8jsSb6nUWeE4sWZDwIe2EL6P//1qfVGqIrXfduLbIE7y5zz+bER +dlhqztsl28LXqsVXC5qMUKxcoSp7iy1Ucx3NFekwwjNcN6vUhmzA7XRc5Own +IxxRflp5SsgGcmui1j8QYOEtdaeouxFWIMYfzLF1YeGu5NbKdYkWUGIaGz2x +jYWXcmw/mwZagHZsumn2dhYeOSQ0tcfeAjZPsF93+7AwU+ekAR9hAUldMz93 +BLPwa/ENZ7cH5jBfdMQkOp6F96f3Djr92wi9htkdZeUs9PP3mVPPMoNd4SUX +LW9Q92VHYkRjzGD2xm2/UTYLlfNjDwr7m4EIvXtuXRULmcccjlszzcCaV072 +fh0L2348lHwwaAq1nWU7O16zcPvtRLuTTFOwEry7NqKbhcWxo20NyqbQbdE0 +K/mWGq/l/VVBYVOYrv6W4tnPQomHfUoDn01gbaHW9S9fWTiQdXZrZI4J1PYa +R6SNUfNbp1G7OcEErES3guYECx8lp00zQkzAPzn8ZdgMC2NZhRnW5iYwXZd0 +XmKehY+Phb/ar20CCb/O7qj+xUIFW9uCcnkTWKF7Vd3jDwvvjDh+mec3gbw9 +1TP//rHwxc7HF7fNGcP/APFnyiI= + "]]}, + 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:eJwV13k8Fd8bB3BfWixFZF/nXkuFEMK93J7HEtkS2SJroZAWW0RZCkWylLTZ +aaHcO5UKlUhFRJFQiUgqRNZK9ZvfX/N6v+b1OjPnnOf5nBma714HP24uLi7d +/7i4/n+d7Wt6rJRasqFG/zL95RnTDZ15klHG3QnguvB0n94cDVCszVeyOwu6 +Hv/lXz63DiK2XHvD010Ep3mvpE3MGoPwuETWzzckvBZbUGiYtYcPtZv3Tr+p +hwT2iSrNWR8wV/r6fvLNKyAOFXhPTe2Hn2/0z0y8+Qhr+dkey7/FQ4Pp5ZKX +RVMQGWnU1peQBbIf7g37qv+BVo2z7e9pF0A02OvaUlMeXLFc5PK2nELIWmde +s9mJFwd3zJlYXi6FnlytuskVy5F7WKcmU+4qpJYcaeOWEkazw2+j3oVWgJXu +bhExRWGs/MKVJxBXAbyPHZxWrRXGotKTQTppFXB0UPmttbEwCod1/AwuqYAY +esvw6d3CSKyILUnurICQAsm/KtXCKOry36ZtOtfB/iJH3dpdBHvtImW8vl0H +idODx7MvrUSH+nSuE2aVIKl2++h82Upk6FeO0TdXgnR90hEP9krUzJZccdul +EuQn1oSvaliJc6cWTzwOrARlm33eNSMrsVA0/XdWRiXoLPqjN6gjihZXjpl+ +7q0EuzDxIe1mUfznZXJadz0btgiM9J3tEMW82Da7bAYbHIru9Sy8E0XjcIcz +4yw2OLdvb3vyXRSVO8Jrz5uzwUO9uNpNTAxvlkntbXJhQ9CQZmaCtxiuChXi +i4tiQ7Kj5YZXs2I4Xeq+266aDdK3Xkhz/yeO15cZhGQ/YMONlY5z6wTEsXhg +69aOejZ0vfJkZyqIY01Ue635czYo2YfR7TeJo6jfF+6Ft2yot81f0n5OHDfu +DBUuWGDDH/OZF61GEjjsyb2hhcmBjLLo8j/mErgpLepm6gYOKC3hSllrL4GM +ngwuCxMO2DTyG5/0k8Bszi+CY8mB86bETZt0CazzzY7Y6soBA7Q++/yDBH6P +mndtD+NAKKPQqylBEhstif3XrnHAqkBw2jpNEpcx9w5dv84B+tKYlBdnJNF+ +1qHqOpsD7Z3OnI4rkmj95ld4URUHNPYt4+l7IYls179+3vUcGCmLLPshLYUM +NU9xjR4ObBfdPCZzUwo/6f7ZIbyIBJ1DNfF5tVIo26z2smAJCfwfV4vTnkjh +lkKrAnU+Eu5V8oBKjxQOWoj6MQRJELe+l6H1TwqP5+unr5IkoT1eSXejtTQO +j+ScdFYjwez7r+iQQWkU2Bc5zWVHQtSm06qPRqUxdcPaKBF7Em4Uru1dOSuN +XhdKU4mtJEg6ejPu8cpgnJOUu7YLCaN3G+d4NGTw54HhCnUvErITMsLOHZRB +K09r/5gQEp69XaM0Gi+DrfJm4877SFjQbejYkCqD7SM7+TQOkOD/eUZ76JIM +fpm48OtlOAlMG/dJjQYZZGkldUzEkPBRTCXk8XJZvNPcfufECRIk9j6Uk5CQ +Rb4LKws10kiweebaupuQxVjlL4ptJ0moik5VF9KRxQkN/vnFmSSc+DDxdZur +LBrypw1bnSVB+2pNwPciWSyyEjDVLiYhgNtJwqRCFnni63/nl5Bw0X38yenb +suj4NtyJv4yEJYI0FeYzWWxObB3rvEJC74GkoaNjssi/07PO+AYJ8Ub2PtIG +clisKu0TfZeETZ55P/RN5DBryavGlnskCMZ9S3SykcM03xgjmRpq/IZjZRne +cljSGOdbcZ+Eu1bV35Ycl8MkvujS/HoSJlwVI6Z65PCzxVxF83MS7kTvWyo8 +JIdt8t0pfS0kHL54P1djXA6lvAsTxltJWNbvUrObWx4z5CU6uNtJWBWQxtWv +Ko88Ob//LHSQ4Bk+c6LlkDw2ccvpGLwlQfmsiezXY9R95UV2gu/+v3+nri/N +kMeFQoGcfsrRC2vaTUrkMTd9+kpUHwlnEj3F7rXI46fhh79iB0jYXlpe1tUl +j4MiOinrP5JAfzqvP90vjy/z31h8oczmz3bTnJFHfyFHn41DJLRkPs0vlVPA +3R1V4u3DVH3cFF3XsEoBN4Kl3e7PJLi99qnvX6eA7iKBj/5SHpFcGJIxV8Av +12Sc5b+QUMm0jGBsUUDPW5nRVyhHbM9Z6uKmgOHl3u80vpLAU6ClmhWigKdy ++921vpHQ/Ci2pvKgAloujTtUTjljsNmmNUEBo7Y6vaOPkiC/ym8v71kFLOZK +9VsyRtXbjXO3Dj9UQIh6zCkYp/rhzYs/488U0PZrcdcc5c1ciyy8XlHjm5x7 +aP2dhB0OIT3wSQGzeVcMfKEccqiYzh5XwC11BjK6EyQcLOkOIuYVUPBHo+wh +yuaHaEfiFhMYesIv6h/l50K1xQb8BLaNKHcZTZKwpcT52YQggSGVZX8iKHcZ +TI5eWUlg67e6ieuU3VtThX0kCWQe3sweoNzvo6InJUcgQ0qVJfKD6p/ZOreX +NAJnUDMXKO9TmC02ViNw0H11bQblmZsZz35qEmgd+CbpFuXoTWpjHF0Cy5gq +iq8pc71vFA5kEHjQezrzB+Vj+7316BsI3M6idy6bovJlyW+3XhMCg7kyvypS +zjh/5kiWBYGcUnqXPmUxTa0SKxsCE2fund1E+XxD8zNuewK/JzK1nCkruPqN +VTsRuJqdQh3AJJSM/hMOdSPwW/HxLwGUVePP66l5EdjjoLgsmHKl2Hr3wR0E +TkUZ8e2hrHut7ciFXQRO5NUOBFKu3hBYsnUPgeVCaTl+lKFjUZPAAQKTB7JX +e1B+HJA/1hBBYOfE/Vx7ypYLDJGYQwQa9E9/NqH8IqNTTzeOQEFJJYl1lB2V +97qPHiWwvVF/lSzlnnt8cSXHCUx4Kyu1iLLn5pKS7ekECgg9Ghuh1mfo44Ym +0WwCc3tEypop747sGWs5S6Bo5H+mVymPC4SJHLtIYPSnmMajlEMLBPVZhdTz +h8I1PCjP6151nyklsGjq/WFtyoebTOOuXyPQ0vHynUWUeTz7SvwqCfRZ0tjT +Qe13yo+DTXK3CFzTpDqcT1kweeX467sEmkm3vt9FWZK9Sd+8nsAYkUtZk1R9 +XTIbdP/7hKq3gDv2HMr0nti4qucE6pV+/reH8lrum00qrwn8ZBG0to+qXzLH +dryvh0CP9ZwbmZQN1EZEzvZR85f5QTehbOIot33pCIEN3fYj56h+eDpyJ+7h +KIFO/3YZGlO2iXUojZwkEGuDjn2i+smlLHn88y8CMw6ocytTDp6fjHu2nIbZ +9Serj1D9yNzvLz4sQsPSg0yzxZR5v/aW80jSUP2qh3ky1c+lbxu6NtBp+FdN +514c1e99D86o39ajIf1+fKwllQ8V+vz1rwxpKJtNvR2VJ9Hswy4TSEO57i+D +kpTFiwIS1KxpqBy83r2Xyh+7Y4zuQi8a3twxX6ZD5ZP83+t7Hu6k4eXXck7x +VJ6NRtB53u+mYebvzozn/dR67xLQkAyjoaWBV5XTBxLqrN8npqfQcFjq0wek +8lFbJF7zEIeGrv0lH0JfU/2TOvM4t4qGq9Y38qd2UvXFE+hWVUPDUemDPXlU +/gbNOBybbKRhyUOdgNqXVP13K70N6KWhyXhiUBuV3+L5z5Iceej4+riJs3Mj +VV8SLNkDvHRcWPd0p8Fjan8yOJxTy+m4OuP2WokGaj4J5981S9BRi69wurmO +el+/YG1jdTpK6Z07IlBLwk+1FX1rnei4xra2Y5JDwuwl6XgdNzoG3yeDy9gk +TAspKzG86FgnuGbGpZKq1ylGoNluOuZdNO3lVFDnbc2OWbdYOn7QkJIzvkzl +qfUdwZRSOm7xK3/y4gLV30Ge8HGGjmF13q/ZCSScfb/r4+dfdHTluq+6JJ6E +03ahx8b+0bH4rFGe6xES0nVSns/zKeLuwsJP04dISPjNcRGSV8S+w4sIAeq8 +D0pdvM/IXBHNuX6ervQnwai8oiAnRxGfug6sHrQg4S1Rnr/xgiKWCl1bzm1O +7XfO1bzpfEVMaRW9IG9GnY/xZRcdripSz++7tQWp/XEtyBWsVUReUc7ScwYk +rFl8OiNpQBHPP58xr1lNrbfXobgIdSW8m9xP2C0lYVLEytu5XgmvrM9sX7jP +ge5genvgUyXcp77g417Dgbonv+BIixJWDSmdvnOX+n6MLle40qWEutLhA7tu +ckDr47IPP78q4aqko3aVVzgQwmnzuLRSGV3jHsy0ZHHgq52T+9BOZTxVt8fV +xY8DQ2nezgeWqmCA8aYQ3kUcsPweaflJbxUuDnp8Xp3JhtEdvKG3jqzGqNXq +xKH0G9T/iwR3cv0aLF5dHJVxsgJEWlXS2d9VUa3mhJXc+Wsgm1K5RU9PHdWt +Ax3/7LsCuWqMFSsD1iLW+OotCSqDZmnj9VOZGvghaTctPbwEmLL1GZpdmqgZ +Iflm+c4iEOQpCvNJ0MKfxc8b3I4XgHy8gtE2lXWYImDYEGtyCfiUt1c5PF2H +Auq9QS6PzoEGS6oy0kMbE4b+qknfzYEDfSINVlw6eFJrqMWWkw3fp9KcLHN1 +0Fj6aaK0QiZYaD45b7lWFz29Q1NErp+EB1OGv+de6OLYOpl+AdZxCFHX7n3p +tx4vqVa0pWccA9b4zs5tfHqI+0rejwklwEYlSdvlRXq476lHzuHgw7A67sTB +en19PGZrVOJ2KgpU/RgPlXv1cbx241Tz4nDwe7Dr6K39BlhVul0rcvd+GN/z +NXJjmAEmJe3hF3DfDwflgoO6IgzwNm/i1BWb/XAiZq/D/CEDdDwg3settR/Y +zAjCKMkAK/eeOKoxtw8WqhJrG84b4ILaorPeyfsgqzJv+lWDAV7jSRSU9NwL +Dws6d06KMZD3Ft2wWTcY+m1oXhGSDKy5+rlVSi4YuH7u2fZbmoGaGU4u0YuD +wcR+6ebFBANnTehrQrqC4Ml/TH0pVQZ2a9c2KkQFQYtvPp/xBga+Dz3dWfQo +EHqVAm9k+DPwuJu+44jnbpi+8m9O8w4Do94FBEY984dhZ/OC4/cYyOf4gkuk +yh+6F53cNFjDwNq65oA7xf5Q4y19LqeOgW6M5NTVR/whQXI9808TAxMCMvyL +9fxhRUpgTPM7Bt6P63OauewH6gGvufy4mbg+kTnQk70TdiiX8523ZeLG3BYB +tVO+EN3oGaiyhYmfAz5Phx/2hQw/keekAxM/LGdPte7xhdrSqLTnLkzUcAwU +LrXxBVGVTUJ/fJj4SWXFyDi/LzxR+STqHcFEkbDp/i/HfUB1tQKhks/ErMu6 ++WaZ3jCpmq1HTjAx3iEr72qyB3S34MaVU0wUYvyzkQvxgLqQ8a1hM0wM1WP6 +ljh6QDppuV/vFxNlV/VmjNI8QJXJVVHNY4h23hI3dtzfDr6We2gN4ob4Vehc +6Mc5d+gMsFjWaWSIfs1jx9ui3eBuye+BmRRD/K/c12bwtgvomYbNWaUaoqEq +X8mGQhe4PTC6rOCkIQ7dnuy/muYCpHyfvlWWIS6CpoHKHS5QkVt3Mu+CIc5p +OA8eFHGBgrRjDIsbhtgnqLhy9oAzHA8TysztMEQbu4I4F3ACNzNFNJQ3Qnt3 +65Bcnq3wp5NXsIEwQjkftNGcdIACv/G3VopGeMB5iK+rzwGGk+5Fuq02wre/ +uWcdqh3gQJNdZZS2Ee4XiLHjO+AAJzbHyN81N8KgLTf5PYfsodr19YLuXiMc +8NrBta1zC8jsSb6nUWeE4sWZDwIe2EL6P//1qfVGqIrXfduLbIE7y5zz+bER +dlhqztsl28LXqsVXC5qMUKxcoSp7iy1Ucx3NFekwwjNcN6vUhmzA7XRc5Own +IxxRflp5SsgGcmui1j8QYOEtdaeouxFWIMYfzLF1YeGu5NbKdYkWUGIaGz2x +jYWXcmw/mwZagHZsumn2dhYeOSQ0tcfeAjZPsF93+7AwU+ekAR9hAUldMz93 +BLPwa/ENZ7cH5jBfdMQkOp6F96f3Djr92wi9htkdZeUs9PP3mVPPMoNd4SUX +LW9Q92VHYkRjzGD2xm2/UTYLlfNjDwr7m4EIvXtuXRULmcccjlszzcCaV072 +fh0L2348lHwwaAq1nWU7O16zcPvtRLuTTFOwEry7NqKbhcWxo20NyqbQbdE0 +K/mWGq/l/VVBYVOYrv6W4tnPQomHfUoDn01gbaHW9S9fWTiQdXZrZI4J1PYa +R6SNUfNbp1G7OcEErES3guYECx8lp00zQkzAPzn8ZdgMC2NZhRnW5iYwXZd0 +XmKehY+Phb/ar20CCb/O7qj+xUIFW9uCcnkTWKF7Vd3jDwvvjDh+mec3gbw9 +1TP//rHwxc7HF7fNGcP/APFnyiI= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07402688479894674}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.07402688479894674}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJwV13k8Fd8bB3BfWixFZF/nXkuFEMK93J7HEtkS2SJroZAWW0RZCkWylLTZ +aaHcO5UKlUhFRJFQiUgqRNZK9ZvfX/N6v+b1OjPnnOf5nBma714HP24uLi7d +/7i4/n+d7Wt6rJRasqFG/zL95RnTDZ15klHG3QnguvB0n94cDVCszVeyOwu6 +Hv/lXz63DiK2XHvD010Ep3mvpE3MGoPwuETWzzckvBZbUGiYtYcPtZv3Tr+p +hwT2iSrNWR8wV/r6fvLNKyAOFXhPTe2Hn2/0z0y8+Qhr+dkey7/FQ4Pp5ZKX +RVMQGWnU1peQBbIf7g37qv+BVo2z7e9pF0A02OvaUlMeXLFc5PK2nELIWmde +s9mJFwd3zJlYXi6FnlytuskVy5F7WKcmU+4qpJYcaeOWEkazw2+j3oVWgJXu +bhExRWGs/MKVJxBXAbyPHZxWrRXGotKTQTppFXB0UPmttbEwCod1/AwuqYAY +esvw6d3CSKyILUnurICQAsm/KtXCKOry36ZtOtfB/iJH3dpdBHvtImW8vl0H +idODx7MvrUSH+nSuE2aVIKl2++h82Upk6FeO0TdXgnR90hEP9krUzJZccdul +EuQn1oSvaliJc6cWTzwOrARlm33eNSMrsVA0/XdWRiXoLPqjN6gjihZXjpl+ +7q0EuzDxIe1mUfznZXJadz0btgiM9J3tEMW82Da7bAYbHIru9Sy8E0XjcIcz +4yw2OLdvb3vyXRSVO8Jrz5uzwUO9uNpNTAxvlkntbXJhQ9CQZmaCtxiuChXi +i4tiQ7Kj5YZXs2I4Xeq+266aDdK3Xkhz/yeO15cZhGQ/YMONlY5z6wTEsXhg +69aOejZ0vfJkZyqIY01Ue635czYo2YfR7TeJo6jfF+6Ft2yot81f0n5OHDfu +DBUuWGDDH/OZF61GEjjsyb2hhcmBjLLo8j/mErgpLepm6gYOKC3hSllrL4GM +ngwuCxMO2DTyG5/0k8Bszi+CY8mB86bETZt0CazzzY7Y6soBA7Q++/yDBH6P +mndtD+NAKKPQqylBEhstif3XrnHAqkBw2jpNEpcx9w5dv84B+tKYlBdnJNF+ +1qHqOpsD7Z3OnI4rkmj95ld4URUHNPYt4+l7IYls179+3vUcGCmLLPshLYUM +NU9xjR4ObBfdPCZzUwo/6f7ZIbyIBJ1DNfF5tVIo26z2smAJCfwfV4vTnkjh +lkKrAnU+Eu5V8oBKjxQOWoj6MQRJELe+l6H1TwqP5+unr5IkoT1eSXejtTQO +j+ScdFYjwez7r+iQQWkU2Bc5zWVHQtSm06qPRqUxdcPaKBF7Em4Uru1dOSuN +XhdKU4mtJEg6ejPu8cpgnJOUu7YLCaN3G+d4NGTw54HhCnUvErITMsLOHZRB +K09r/5gQEp69XaM0Gi+DrfJm4877SFjQbejYkCqD7SM7+TQOkOD/eUZ76JIM +fpm48OtlOAlMG/dJjQYZZGkldUzEkPBRTCXk8XJZvNPcfufECRIk9j6Uk5CQ +Rb4LKws10kiweebaupuQxVjlL4ptJ0moik5VF9KRxQkN/vnFmSSc+DDxdZur +LBrypw1bnSVB+2pNwPciWSyyEjDVLiYhgNtJwqRCFnni63/nl5Bw0X38yenb +suj4NtyJv4yEJYI0FeYzWWxObB3rvEJC74GkoaNjssi/07PO+AYJ8Ub2PtIG +clisKu0TfZeETZ55P/RN5DBryavGlnskCMZ9S3SykcM03xgjmRpq/IZjZRne +cljSGOdbcZ+Eu1bV35Ycl8MkvujS/HoSJlwVI6Z65PCzxVxF83MS7kTvWyo8 +JIdt8t0pfS0kHL54P1djXA6lvAsTxltJWNbvUrObWx4z5CU6uNtJWBWQxtWv +Ko88Ob//LHSQ4Bk+c6LlkDw2ccvpGLwlQfmsiezXY9R95UV2gu/+v3+nri/N +kMeFQoGcfsrRC2vaTUrkMTd9+kpUHwlnEj3F7rXI46fhh79iB0jYXlpe1tUl +j4MiOinrP5JAfzqvP90vjy/z31h8oczmz3bTnJFHfyFHn41DJLRkPs0vlVPA +3R1V4u3DVH3cFF3XsEoBN4Kl3e7PJLi99qnvX6eA7iKBj/5SHpFcGJIxV8Av +12Sc5b+QUMm0jGBsUUDPW5nRVyhHbM9Z6uKmgOHl3u80vpLAU6ClmhWigKdy ++921vpHQ/Ci2pvKgAloujTtUTjljsNmmNUEBo7Y6vaOPkiC/ym8v71kFLOZK +9VsyRtXbjXO3Dj9UQIh6zCkYp/rhzYs/488U0PZrcdcc5c1ciyy8XlHjm5x7 +aP2dhB0OIT3wSQGzeVcMfKEccqiYzh5XwC11BjK6EyQcLOkOIuYVUPBHo+wh +yuaHaEfiFhMYesIv6h/l50K1xQb8BLaNKHcZTZKwpcT52YQggSGVZX8iKHcZ +TI5eWUlg67e6ieuU3VtThX0kCWQe3sweoNzvo6InJUcgQ0qVJfKD6p/ZOreX +NAJnUDMXKO9TmC02ViNw0H11bQblmZsZz35qEmgd+CbpFuXoTWpjHF0Cy5gq +iq8pc71vFA5kEHjQezrzB+Vj+7316BsI3M6idy6bovJlyW+3XhMCg7kyvypS +zjh/5kiWBYGcUnqXPmUxTa0SKxsCE2fund1E+XxD8zNuewK/JzK1nCkruPqN +VTsRuJqdQh3AJJSM/hMOdSPwW/HxLwGUVePP66l5EdjjoLgsmHKl2Hr3wR0E +TkUZ8e2hrHut7ciFXQRO5NUOBFKu3hBYsnUPgeVCaTl+lKFjUZPAAQKTB7JX +e1B+HJA/1hBBYOfE/Vx7ypYLDJGYQwQa9E9/NqH8IqNTTzeOQEFJJYl1lB2V +97qPHiWwvVF/lSzlnnt8cSXHCUx4Kyu1iLLn5pKS7ekECgg9Ghuh1mfo44Ym +0WwCc3tEypop747sGWs5S6Bo5H+mVymPC4SJHLtIYPSnmMajlEMLBPVZhdTz +h8I1PCjP6151nyklsGjq/WFtyoebTOOuXyPQ0vHynUWUeTz7SvwqCfRZ0tjT +Qe13yo+DTXK3CFzTpDqcT1kweeX467sEmkm3vt9FWZK9Sd+8nsAYkUtZk1R9 +XTIbdP/7hKq3gDv2HMr0nti4qucE6pV+/reH8lrum00qrwn8ZBG0to+qXzLH +dryvh0CP9ZwbmZQN1EZEzvZR85f5QTehbOIot33pCIEN3fYj56h+eDpyJ+7h +KIFO/3YZGlO2iXUojZwkEGuDjn2i+smlLHn88y8CMw6ocytTDp6fjHu2nIbZ +9Serj1D9yNzvLz4sQsPSg0yzxZR5v/aW80jSUP2qh3ky1c+lbxu6NtBp+FdN +514c1e99D86o39ajIf1+fKwllQ8V+vz1rwxpKJtNvR2VJ9Hswy4TSEO57i+D +kpTFiwIS1KxpqBy83r2Xyh+7Y4zuQi8a3twxX6ZD5ZP83+t7Hu6k4eXXck7x +VJ6NRtB53u+mYebvzozn/dR67xLQkAyjoaWBV5XTBxLqrN8npqfQcFjq0wek +8lFbJF7zEIeGrv0lH0JfU/2TOvM4t4qGq9Y38qd2UvXFE+hWVUPDUemDPXlU +/gbNOBybbKRhyUOdgNqXVP13K70N6KWhyXhiUBuV3+L5z5Iceej4+riJs3Mj +VV8SLNkDvHRcWPd0p8Fjan8yOJxTy+m4OuP2WokGaj4J5981S9BRi69wurmO +el+/YG1jdTpK6Z07IlBLwk+1FX1rnei4xra2Y5JDwuwl6XgdNzoG3yeDy9gk +TAspKzG86FgnuGbGpZKq1ylGoNluOuZdNO3lVFDnbc2OWbdYOn7QkJIzvkzl +qfUdwZRSOm7xK3/y4gLV30Ge8HGGjmF13q/ZCSScfb/r4+dfdHTluq+6JJ6E +03ahx8b+0bH4rFGe6xES0nVSns/zKeLuwsJP04dISPjNcRGSV8S+w4sIAeq8 +D0pdvM/IXBHNuX6ervQnwai8oiAnRxGfug6sHrQg4S1Rnr/xgiKWCl1bzm1O +7XfO1bzpfEVMaRW9IG9GnY/xZRcdripSz++7tQWp/XEtyBWsVUReUc7ScwYk +rFl8OiNpQBHPP58xr1lNrbfXobgIdSW8m9xP2C0lYVLEytu5XgmvrM9sX7jP +ge5genvgUyXcp77g417Dgbonv+BIixJWDSmdvnOX+n6MLle40qWEutLhA7tu +ckDr47IPP78q4aqko3aVVzgQwmnzuLRSGV3jHsy0ZHHgq52T+9BOZTxVt8fV +xY8DQ2nezgeWqmCA8aYQ3kUcsPweaflJbxUuDnp8Xp3JhtEdvKG3jqzGqNXq +xKH0G9T/iwR3cv0aLF5dHJVxsgJEWlXS2d9VUa3mhJXc+Wsgm1K5RU9PHdWt +Ax3/7LsCuWqMFSsD1iLW+OotCSqDZmnj9VOZGvghaTctPbwEmLL1GZpdmqgZ +Iflm+c4iEOQpCvNJ0MKfxc8b3I4XgHy8gtE2lXWYImDYEGtyCfiUt1c5PF2H +Auq9QS6PzoEGS6oy0kMbE4b+qknfzYEDfSINVlw6eFJrqMWWkw3fp9KcLHN1 +0Fj6aaK0QiZYaD45b7lWFz29Q1NErp+EB1OGv+de6OLYOpl+AdZxCFHX7n3p +tx4vqVa0pWccA9b4zs5tfHqI+0rejwklwEYlSdvlRXq476lHzuHgw7A67sTB +en19PGZrVOJ2KgpU/RgPlXv1cbx241Tz4nDwe7Dr6K39BlhVul0rcvd+GN/z +NXJjmAEmJe3hF3DfDwflgoO6IgzwNm/i1BWb/XAiZq/D/CEDdDwg3settR/Y +zAjCKMkAK/eeOKoxtw8WqhJrG84b4ILaorPeyfsgqzJv+lWDAV7jSRSU9NwL +Dws6d06KMZD3Ft2wWTcY+m1oXhGSDKy5+rlVSi4YuH7u2fZbmoGaGU4u0YuD +wcR+6ebFBANnTehrQrqC4Ml/TH0pVQZ2a9c2KkQFQYtvPp/xBga+Dz3dWfQo +EHqVAm9k+DPwuJu+44jnbpi+8m9O8w4Do94FBEY984dhZ/OC4/cYyOf4gkuk +yh+6F53cNFjDwNq65oA7xf5Q4y19LqeOgW6M5NTVR/whQXI9808TAxMCMvyL +9fxhRUpgTPM7Bt6P63OauewH6gGvufy4mbg+kTnQk70TdiiX8523ZeLG3BYB +tVO+EN3oGaiyhYmfAz5Phx/2hQw/keekAxM/LGdPte7xhdrSqLTnLkzUcAwU +LrXxBVGVTUJ/fJj4SWXFyDi/LzxR+STqHcFEkbDp/i/HfUB1tQKhks/ErMu6 ++WaZ3jCpmq1HTjAx3iEr72qyB3S34MaVU0wUYvyzkQvxgLqQ8a1hM0wM1WP6 +ljh6QDppuV/vFxNlV/VmjNI8QJXJVVHNY4h23hI3dtzfDr6We2gN4ob4Vehc +6Mc5d+gMsFjWaWSIfs1jx9ui3eBuye+BmRRD/K/c12bwtgvomYbNWaUaoqEq +X8mGQhe4PTC6rOCkIQ7dnuy/muYCpHyfvlWWIS6CpoHKHS5QkVt3Mu+CIc5p +OA8eFHGBgrRjDIsbhtgnqLhy9oAzHA8TysztMEQbu4I4F3ACNzNFNJQ3Qnt3 +65Bcnq3wp5NXsIEwQjkftNGcdIACv/G3VopGeMB5iK+rzwGGk+5Fuq02wre/ +uWcdqh3gQJNdZZS2Ee4XiLHjO+AAJzbHyN81N8KgLTf5PYfsodr19YLuXiMc +8NrBta1zC8jsSb6nUWeE4sWZDwIe2EL6P//1qfVGqIrXfduLbIE7y5zz+bER +dlhqztsl28LXqsVXC5qMUKxcoSp7iy1Ucx3NFekwwjNcN6vUhmzA7XRc5Own +IxxRflp5SsgGcmui1j8QYOEtdaeouxFWIMYfzLF1YeGu5NbKdYkWUGIaGz2x +jYWXcmw/mwZagHZsumn2dhYeOSQ0tcfeAjZPsF93+7AwU+ekAR9hAUldMz93 +BLPwa/ENZ7cH5jBfdMQkOp6F96f3Djr92wi9htkdZeUs9PP3mVPPMoNd4SUX +LW9Q92VHYkRjzGD2xm2/UTYLlfNjDwr7m4EIvXtuXRULmcccjlszzcCaV072 +fh0L2348lHwwaAq1nWU7O16zcPvtRLuTTFOwEry7NqKbhcWxo20NyqbQbdE0 +K/mWGq/l/VVBYVOYrv6W4tnPQomHfUoDn01gbaHW9S9fWTiQdXZrZI4J1PYa +R6SNUfNbp1G7OcEErES3guYECx8lp00zQkzAPzn8ZdgMC2NZhRnW5iYwXZd0 +XmKehY+Phb/ar20CCb/O7qj+xUIFW9uCcnkTWKF7Vd3jDwvvjDh+mec3gbw9 +1TP//rHwxc7HF7fNGcP/APFnyiI= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07402688479894674}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJxTTMoPSmViYGCQB2IQDQNLGAINkrnK7CG8D/YFW/1i+sInQPkMDkmGr6Kq +58+C8jkczrencxoxLYLyBRw0tNtWMyssg/JFHAL6mFwO9qyE8iUc3u708W0y +XwPlyzi85X7Rai2+DspXcJimnKJwXm89lK/koKgQ78TaDuOrOFidyz201wjG +V3PYGsTxRMgdpl/D4cmtAMNz92HmazmUHVGU9hBfDeXrOAA5s8O4YO7RcyjZ +dKVq/0WYew0clAL+Nnu0LYHyDR1s9EWlP1vB/GfkcNon868u4wIo39jhkHfB +K+aTs6F8E4edQeebAu5Nh/JNHeT5a8u1vadA+WYOttd6eIrEJ0L55g6HXZpF +bFp7oHwLB/5r/y3PTG+H8i0dus7EPPgU0QzlWzkw5q6OTK+ph/KtHd7OVGXM +yqqE8m0cpK+FiLXGlkD5tg4f5zGfFjQqgPLtHO40Ld3VMD3THgDPenlb + "]]}, + 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:eJxTTMoPSmViYGCQB2IQDQNLGAINkrnK7CG8D/YFW/1i+sInQPkMDkmGr6Kq +58+C8jkczrencxoxLYLyBRw0tNtWMyssg/JFHAL6mFwO9qyE8iUc3u708W0y +XwPlyzi85X7Rai2+DspXcJimnKJwXm89lK/koKgQ78TaDuOrOFidyz201wjG +V3PYGsTxRMgdpl/D4cmtAMNz92HmazmUHVGU9hBfDeXrOAA5s8O4YO7RcyjZ +dKVq/0WYew0clAL+Nnu0LYHyDR1s9EWlP1vB/GfkcNon868u4wIo39jhkHfB +K+aTs6F8E4edQeebAu5Nh/JNHeT5a8u1vadA+WYOttd6eIrEJ0L55g6HXZpF +bFp7oHwLB/5r/y3PTG+H8i0dus7EPPgU0QzlWzkw5q6OTK+ph/KtHd7OVGXM +yqqE8m0cpK+FiLXGlkD5tg4f5zGfFjQqgPLtHO40Ld3VMD3THgDPenlb + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.061577}}, + "Frame" -> {{False, 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.061577}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGCQB2IQDQNLGAINkrnK7CG8D/YFW/1i+sInQPkMDkmGr6Kq +58+C8jkczrencxoxLYLyBRw0tNtWMyssg/JFHAL6mFwO9qyE8iUc3u708W0y +XwPlyzi85X7Rai2+DspXcJimnKJwXm89lK/koKgQ78TaDuOrOFidyz201wjG +V3PYGsTxRMgdpl/D4cmtAMNz92HmazmUHVGU9hBfDeXrOAA5s8O4YO7RcyjZ +dKVq/0WYew0clAL+Nnu0LYHyDR1s9EWlP1vB/GfkcNon868u4wIo39jhkHfB +K+aTs6F8E4edQeebAu5Nh/JNHeT5a8u1vadA+WYOttd6eIrEJ0L55g6HXZpF +bFp7oHwLB/5r/y3PTG+H8i0dus7EPPgU0QzlWzkw5q6OTK+ph/KtHd7OVGXM +yqqE8m0cpK+FiLXGlkD5tg4f5zGfFjQqgPLtHO40Ld3VMD3THgDPenlb + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.061577}}, + "Frame" -> {{False, 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.07402688479894674}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9939610432910957`*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"801e2d25-364b-420f-88c0-cccbae2f4c14"] +}, Open ]], Cell[CellGroupData[{ @@ -6226,66 +11739,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[\\\"3.414357735221361`*^-149\\\", \ +RowBox[{\\\"192330073695578600598678251250\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"101\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"825600000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 121, 45, + 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331752212366*^9, 3.993961043330448*^9}, CellLabel-> "During evaluation of \ -In[199]:=",ExpressionUUID->"3273c967-a8f4-6b46-8292-dfd9dc69311d"], +In[121]:=",ExpressionUUID->"8f86b061-660b-4e2c-a645-def7e2c2fa75"], 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[\\\"1.0397392264452215`*^-151\\\", \ +RowBox[{\\\"692388265304082962155241704502\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"104\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"160000000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 121, 46, + 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331752212366*^9, 3.993961043340219*^9}, CellLabel-> "During evaluation of \ -In[199]:=",ExpressionUUID->"cf5457ae-7056-8a4b-afa3-32b95e922259"], +In[121]:=",ExpressionUUID->"b3401709-98db-4368-ae83-d91b30e7054d"], 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[\\\"3.166210874323689`*^-154\\\", \ +RowBox[{\\\"257637673519649270217965438245\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"108\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"360000000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 121, 47, + 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331752212366*^9, 3.99396104334929*^9}, CellLabel-> "During evaluation of \ -In[199]:=",ExpressionUUID->"7ef79528-2ca4-544d-8bbf-e4564533e47a"], +In[121]:=",ExpressionUUID->"e75fa12e-c00e-4028-a5d7-ed439faadc06"], 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, 48, 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331752212366*^9, 3.9939610433571997`*^9}, CellLabel-> "During evaluation of \ -In[199]:=",ExpressionUUID->"3f59bf2a-0193-1b41-9437-359e4e291f20"], +In[121]:=",ExpressionUUID->"2bc2cadb-d2b8-470b-b820-76440bf33626"], -Cell[BoxData["9.779568499633264`"], "Output", - CellChangeTimes->{3.991331759108553*^9}, +Cell[BoxData["10.780268386110258`"], "Output", + CellChangeTimes->{3.991331759108553*^9, 3.9939610963464813`*^9}, CellLabel-> - "Out[199]=",ExpressionUUID->"6c94ff26-1921-5a44-a360-bda32f564938"] + "Out[121]=",ExpressionUUID->"f69ea7ab-10c2-4277-aa0d-f26b26730b05"] }, Open ]], Cell[CellGroupData[{ @@ -6352,68 +11872,75 @@ 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[\\\"3.3793144507272477`*^-230\\\", \ +RowBox[{\\\"189440899156242768942779436337\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"26\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"5245236398325760000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 122, 49, + 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317591425533`*^9, 3.993961096386807*^9}, CellLabel-> "During evaluation of \ -In[200]:=",ExpressionUUID->"33abd0dc-5204-1046-87c9-87cecac6793f"], +In[122]:=",ExpressionUUID->"411fd6c5-5bfc-43c9-a00b-b3e160fe6935"], 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[\\\"2.1227803276726105`*^-236\\\", \ +RowBox[{\\\"273552658381614558353373506071\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"29\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4121359182397440000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 122, 50, + 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317591425533`*^9, 3.9939610963949137`*^9}, CellLabel-> "During evaluation of \ -In[200]:=",ExpressionUUID->"a3e9f415-30c2-d04b-a044-33980d6ef6e9"], +In[122]:=",ExpressionUUID->"31b44f71-b30c-4e03-a618-24e21d9c05d6"], 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[\\\"1.3334646376527863`*^-242\\\", \ +RowBox[{\\\"416073593398435743255481102734\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"32\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8587316426506240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 122, 51, + 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317591425533`*^9, 3.9939610964014*^9}, CellLabel-> "During evaluation of \ -In[200]:=",ExpressionUUID->"3dddc3ab-89f8-ab44-a85d-f5130722f198"], +In[122]:=",ExpressionUUID->"35b704a4-dd47-4d89-a57e-22d4a7ad7772"], 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, 52, 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317591425533`*^9, 3.993961096408532*^9}, CellLabel-> "During evaluation of \ -In[200]:=",ExpressionUUID->"a3229605-5a49-544b-bbf6-cc14edd6c936"], +In[122]:=",ExpressionUUID->"2a54b319-9e57-451c-a013-ebef05c343f0"], -Cell[BoxData["1.044718879268698`"], "Output", - CellChangeTimes->{3.991331766558941*^9}, +Cell[BoxData["0.014479504613244949`"], "Output", + CellChangeTimes->{3.991331766558941*^9, 3.993961102766604*^9}, CellLabel-> - "Out[200]=",ExpressionUUID->"2f0f984a-e452-7f46-a8f1-230feda2f30b"] + "Out[122]=",ExpressionUUID->"b8ff7216-e582-41fe-b235-294bb347b633"] }, Open ]], Cell[CellGroupData[{ @@ -6434,8 +11961,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 +12006,75 @@ 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[\\\"3.3793144507272477`*^-230\\\", \ +RowBox[{\\\"189440899156242768942779436337\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"26\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"5245236398325760000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 123, 53, + 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317665951805`*^9, 3.993961102815094*^9}, CellLabel-> "During evaluation of \ -In[201]:=",ExpressionUUID->"1a479ad6-386a-fb47-95e4-f8a3ab25eccc"], +In[123]:=",ExpressionUUID->"b1f36425-1fbb-4b2b-b80d-8e9737c105e4"], 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[\\\"2.1227803276726105`*^-236\\\", \ +RowBox[{\\\"273552658381614558353373506071\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"29\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4121359182397440000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 123, 54, + 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317665951805`*^9, 3.993961102824294*^9}, CellLabel-> "During evaluation of \ -In[201]:=",ExpressionUUID->"c45746b8-a614-4245-b137-e38355d43857"], +In[123]:=",ExpressionUUID->"f1624693-fff7-44aa-971c-b69af844cd05"], 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[\\\"1.3334646376527863`*^-242\\\", \ +RowBox[{\\\"416073593398435743255481102734\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"32\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8587316426506240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 123, 55, + 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317665951805`*^9, 3.993961102833274*^9}, CellLabel-> "During evaluation of \ -In[201]:=",ExpressionUUID->"7ef9264b-fdf5-8e46-a39d-9d01a56d9fbc"], +In[123]:=",ExpressionUUID->"49eafb94-ffa4-47a2-b78e-bf94a51ef634"], 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, 56, 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317665951805`*^9, 3.993961102841761*^9}, CellLabel-> "During evaluation of \ -In[201]:=",ExpressionUUID->"424cc344-67bf-5349-951a-e3d6864f9105"], +In[123]:=",ExpressionUUID->"091b7866-a1ef-4838-afe0-98203562b596"], -Cell[BoxData["4.7987767072565894`"], "Output", - CellChangeTimes->{3.991331773590704*^9}, +Cell[BoxData["28.813098423999335`"], "Output", + CellChangeTimes->{3.991331773590704*^9, 3.9939611085631943`*^9}, CellLabel-> - "Out[201]=",ExpressionUUID->"d6fb3ea3-39a2-5b42-96f2-520a52fd0d9f"] + "Out[123]=",ExpressionUUID->"44a16648-39f4-4c62-91bb-a5f8cd75e82c"] }, Open ]], Cell[CellGroupData[{ @@ -6562,8 +12095,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 +12140,75 @@ 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[\\\"3.3793144507272477`*^-230\\\", \ +RowBox[{\\\"189440899156242768942779436337\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"26\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"5245236398325760000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 124, 57, + 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317736257057`*^9, 3.993961108602426*^9}, CellLabel-> "During evaluation of \ -In[202]:=",ExpressionUUID->"7c3b7078-d094-2344-a157-26438223ef0f"], +In[124]:=",ExpressionUUID->"198101cf-4fcc-49e2-8301-02419fcde165"], 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[\\\"2.1227803276726105`*^-236\\\", \ +RowBox[{\\\"273552658381614558353373506071\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"29\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4121359182397440000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 124, 58, + 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317736257057`*^9, 3.993961108609833*^9}, CellLabel-> "During evaluation of \ -In[202]:=",ExpressionUUID->"a4aaa457-e588-7a42-9066-29e614b18d91"], +In[124]:=",ExpressionUUID->"29b271ab-5629-4e03-ba58-fd8eadfcdaff"], 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[\\\"1.3334646376527863`*^-242\\\", \ +RowBox[{\\\"416073593398435743255481102734\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"32\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8587316426506240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 124, 59, + 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317736257057`*^9, 3.99396110861644*^9}, CellLabel-> "During evaluation of \ -In[202]:=",ExpressionUUID->"8e9701ac-9508-2346-b853-523f9f269328"], +In[124]:=",ExpressionUUID->"31bdb65d-3f20-46fd-aef5-d940d7a60e16"], 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, 60, 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317736257057`*^9, 3.9939611086238947`*^9}, CellLabel-> "During evaluation of \ -In[202]:=",ExpressionUUID->"062aadbd-03a7-1f42-b815-d27ae6ddc83e"], +In[124]:=",ExpressionUUID->"04ac1e2e-4cf3-4e70-bdea-63f3d5ffdbfe"], -Cell[BoxData["15.12281532960454`"], "Output", - CellChangeTimes->{3.991331777337887*^9}, +Cell[BoxData["3.8396037368092415`"], "Output", + CellChangeTimes->{3.991331777337887*^9, 3.993961112204383*^9}, CellLabel-> - "Out[202]=",ExpressionUUID->"484b070c-cc4a-7049-8a18-4aa38bea8cd9"] + "Out[124]=",ExpressionUUID->"65b41a39-e255-4aeb-98d5-d553699eb331"] }, Open ]], Cell[CellGroupData[{ @@ -6678,22 +12217,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.001376624578945906`"], "Output", + CellChangeTimes->{3.9913317773679104`*^9, 3.993961112238462*^9}, + CellLabel-> + "Out[125]=",ExpressionUUID->"de4d258b-de1b-4349-a8c8-174611d3d9ca"] }, 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 +12256,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["13.579024065519944`"], "Output", + CellChangeTimes->{3.9913317774008274`*^9, 3.9939611122536*^9}, CellLabel-> - "Out[205]=",ExpressionUUID->"ddfcd06d-5644-fb4b-b789-815d8db71ce6"] + "Out[127]=",ExpressionUUID->"6dc28b93-c58e-4520-a423-982570079032"] }, Open ]], Cell[CellGroupData[{ @@ -6731,12 +12271,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.560255332286267`"], "Output", + CellChangeTimes->{3.9913317774358253`*^9, 3.9939611122631407`*^9}, CellLabel-> - "Out[207]=",ExpressionUUID->"96020250-b44c-694d-acbe-eb8b1c066e25"] + "Out[128]=",ExpressionUUID->"18cc84b0-4ab7-4569-a95a-aa05d7169990"] }, Open ]], Cell[CellGroupData[{ @@ -6746,12 +12286,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["21.186744705471035`"], "Output", + CellChangeTimes->{3.991331777510603*^9, 3.993961112272965*^9}, CellLabel-> - "Out[210]=",ExpressionUUID->"a3cad59a-97f1-1b4b-a0d3-0fcbb55e71c0"] + "Out[129]=",ExpressionUUID->"f3a4a65b-4bd2-4e63-a9c8-81e04441f788"] }, Open ]], Cell[CellGroupData[{ @@ -6941,12 +12481,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.007179696293673852`"], "Output", + CellChangeTimes->{3.991331777537592*^9, 3.993961112285*^9}, CellLabel-> - "Out[211]=",ExpressionUUID->"221426ad-3f43-834a-96dc-c22bf0ed0e23"] + "Out[130]=",ExpressionUUID->"1d19e12c-bde7-4e91-9aa9-61f25981a09f"] }, Open ]], Cell[CellGroupData[{ @@ -6960,12 +12500,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.459041924635638`"], "Output", + CellChangeTimes->{3.9913317776362495`*^9, 3.9939611123899508`*^9}, CellLabel-> - "Out[212]=",ExpressionUUID->"54964f1a-0c74-5b45-a5d4-8b241885bf9d"] + "Out[131]=",ExpressionUUID->"6b07b6ef-d1bd-4396-a3f4-d0c0d5f52410"] }, Open ]], Cell[CellGroupData[{ @@ -7157,12 +12697,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.04364838028345939`"], "Output", + CellChangeTimes->{3.9913317776511555`*^9, 3.99396111240222*^9}, CellLabel-> - "Out[213]=",ExpressionUUID->"637b4460-08e1-2c47-b235-20b94d0413ac"] + "Out[132]=",ExpressionUUID->"22a035d6-3275-4936-87d1-03a70979ccea"] }, Open ]], Cell[CellGroupData[{ @@ -7176,12 +12716,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.241904379478339`"], "Output", + CellChangeTimes->{3.991331777742655*^9, 3.993961112504023*^9}, CellLabel-> - "Out[214]=",ExpressionUUID->"55b9de35-b316-8a4b-b6c7-df263fdc91bc"] + "Out[133]=",ExpressionUUID->"c00c7b7e-f948-48a9-a36d-6b15b2b98142"] }, Open ]], Cell[CellGroupData[{ @@ -7274,12 +12814,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.10778842427476491`"], "Output", + CellChangeTimes->{3.9913317777546787`*^9, 3.993961112514304*^9}, CellLabel-> - "Out[215]=",ExpressionUUID->"fd2a841e-0c22-9146-97fa-d652989dadbe"] + "Out[134]=",ExpressionUUID->"cd5ee18f-c934-4dff-a8c9-0273580b7301"] }, Open ]], Cell[CellGroupData[{ @@ -7369,12 +12909,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.892211575725235`"], "Output", + CellChangeTimes->{3.991331777779663*^9, 3.9939611125246468`*^9}, CellLabel-> - "Out[216]=",ExpressionUUID->"94bd0f60-5228-9b42-83fe-23a478d55c7c"] + "Out[135]=",ExpressionUUID->"ca859937-cc43-4646-b722-3d42041fc1f8"] }, Open ]], Cell[CellGroupData[{ @@ -7497,12 +13037,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.09617007986712818`"], "Output", + CellChangeTimes->{3.9913317778036633`*^9, 3.993961112536092*^9}, CellLabel-> - "Out[217]=",ExpressionUUID->"fe51f341-63c7-8f47-9357-139cd58159ba"] + "Out[136]=",ExpressionUUID->"3c95c753-2581-4ae2-ad0a-686e0090e507"] }, Open ]], Cell[CellGroupData[{ @@ -7517,7 +13057,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 +13081,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -7564,68 +13105,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[\\\"2.6179837634720744`*^-213\\\", \ +RowBox[{\\\"665717749437497189208769764374\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"35\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9706282409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 137, 61, + 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317778296604`*^9, 3.993961112553185*^9}, CellLabel-> "During evaluation of \ -In[218]:=",ExpressionUUID->"0e079558-1b2f-5a46-8c66-a9ee31993ddb"], +In[137]:=",ExpressionUUID->"00e2bbc4-d99c-4fa8-954a-66743b7eaca2"], 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[\\\"1.268867057984324`*^-218\\\", \ +RowBox[{\\\"111907153680443277505994197391\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"260731183104000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 137, 62, + 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317778296604`*^9, 3.993961112560401*^9}, CellLabel-> "During evaluation of \ -In[218]:=",ExpressionUUID->"d148db97-53f1-5f42-bd2e-6e779140d5b6"], +In[137]:=",ExpressionUUID->"e5ea677e-705d-492d-8f31-b3da90f3f255"], 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.149860947580956`*^-224\\\", \ +RowBox[{\\\"197404219092301941520573764198\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"929806995456000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 137, 63, + 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317778296604`*^9, 3.9939611125673943`*^9}, CellLabel-> "During evaluation of \ -In[218]:=",ExpressionUUID->"186b0633-6992-1247-a396-6e446c898f15"], +In[137]:=",ExpressionUUID->"544d0b10-03f6-4909-8ec0-3ce61586ebd6"], 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, 64, 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317778296604`*^9, 3.993961112573989*^9}, CellLabel-> "During evaluation of \ -In[218]:=",ExpressionUUID->"81723359-f225-2c46-ac9d-0c5bbdaa253b"], +In[137]:=",ExpressionUUID->"97812c31-4b0c-4a1d-aed6-7e395d94675d"], -Cell[BoxData["4.37160597269358`"], "Output", - CellChangeTimes->{3.991331781456501*^9}, +Cell[BoxData["10.459041924635645`"], "Output", + CellChangeTimes->{3.991331781456501*^9, 3.993961116381002*^9}, CellLabel-> - "Out[218]=",ExpressionUUID->"dfb1ce0b-e756-e84a-9724-ecf250122f19"] + "Out[137]=",ExpressionUUID->"b45a8627-096c-479f-b804-9f794b70171c"] }, Open ]], Cell[CellGroupData[{ @@ -7640,7 +13188,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 +13212,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -7687,67 +13236,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[\\\"2.6179837634720744`*^-213\\\", \ +RowBox[{\\\"665717749437497189208769764374\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"35\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9706282409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 138, 65, + 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331781491499*^9, 3.9939611164248734`*^9}, CellLabel-> "During evaluation of \ -In[219]:=",ExpressionUUID->"90df9b1f-7133-e445-8661-0af9d5feb8bd"], +In[138]:=",ExpressionUUID->"13975125-4d6e-4554-8ea9-1d9a9eec1ac7"], 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[\\\"1.268867057984324`*^-218\\\", \ +RowBox[{\\\"111907153680443277505994197391\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"260731183104000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 138, 66, + 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331781491499*^9, 3.993961116433599*^9}, CellLabel-> "During evaluation of \ -In[219]:=",ExpressionUUID->"93c48be2-5ad7-ad43-88e8-2c6ab8e2f132"], +In[138]:=",ExpressionUUID->"95d79b26-2b3a-412a-9dc8-219bde2b019c"], 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.149860947580956`*^-224\\\", \ +RowBox[{\\\"197404219092301941520573764198\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"929806995456000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 138, 67, + 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331781491499*^9, 3.9939611164404993`*^9}, CellLabel-> "During evaluation of \ -In[219]:=",ExpressionUUID->"cbcbafce-f556-944f-b5f3-9a75f9ae2725"], +In[138]:=",ExpressionUUID->"88c2e1f1-35cf-4238-8b4c-0383b78a579f"], 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, 68, 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331781491499*^9, 3.993961116447117*^9}, CellLabel-> "During evaluation of \ -In[219]:=",ExpressionUUID->"83820e0a-b24a-cc46-bd5a-b19f0104c185"], +In[138]:=",ExpressionUUID->"f78e2a75-1bab-4030-a205-cb81915e4cd1"], -Cell[BoxData["7.54286262106163`"], "Output", - CellChangeTimes->{3.9913317851500416`*^9}, +Cell[BoxData["4.241904379478345`"], "Output", + CellChangeTimes->{3.9913317851500416`*^9, 3.993961120194821*^9}, CellLabel-> - "Out[219]=",ExpressionUUID->"0d63c418-a50b-b94b-ad7d-1a46c6eb320d"] + "Out[138]=",ExpressionUUID->"189acdbc-ae8c-43a3-bc1a-5511bd4796f5"] }, Open ]], Cell[CellGroupData[{ @@ -7805,93 +13362,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[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:eJwV1Hk4VVsfB3ARN2MhM2XWMXfMivXLFDpkykwc52ySKSRFNNAgJOnSLaTI +kJRMoXo1C8Ut0TVFoRyzbYhU7/LHfvbzedbe3/Vdaw9y9HAnJjsbG9skPtbO +h95pqtR1vDPtfuWhNb2bhUynCvXoFuVIRTXFac2D+fpZihaP0Pop8UdrdmC8 +5eLTeYkMBblCZrArYxOfc1q0IcVMR/os9vlX4k2JZf+ifWE/8+aw6zsO5a1S +P6Kkmxzy89isnpb4o42f0DvV4PEFbMkRBa9F8z5Uxq71cwl7z3S8UVTbZ/RU +0clxBfvJKos3tmwICV34MLmK3XVSLK427Csa06zq+IM9xWXBmqeOoHcbZpfZ +rVmIKzXCQ2dpFBVvSjvAhb1FMLf5UON3VGRydisPtr3U4u0p8wm0ZfCKrxA2 +cUNeVGPDFPKEsm+i2IlKe5MPtk0jm2vSdVLYn8Q6t0eXzaJlASmKMjbDM/jA +5dQ5NMlX3KqGPXOdreBBGIn+155RvR17g7zGplnqAioljnuYYmcxnu/eJLKI +qJInRCyxZYs9ErWWFtEdx0ExGrah+pmp0MYfSJqjftoTO0j/cxvLfBW9sn0z +Hoc9H3t4PY/yLySzWtOThH2ikXcnZcNvJJf2Z2M6dg4Y3gls+4OSpkrsCtb6 +FTVbRJatg6QxR5FW7LJXlwdPSrHDVLe8Qdda32++8ZdS2eFg5978Iex41YWq ++2Ec0HTisdnyWt97cgrTVE5A5sMf1WxYqKdj4snvW5wwvytT1Qhbdq7OU0CE +C/bvvfbSCrtc1z5TY4kLTLifvKNjv6g/ti6kcQMYze/SyMNeeP7h83dzPghU +k5OSt2UhIRrfprgnfEAZ3e+qh63daQH8RvzwRpo2bI0dPFxzY7umAGQKqP+I +wI5gb9M24dsE2yw42F5ij8hXzCYvCoJNxceL8Xvw/hAt3O06QnBP5N1CFjb7 +nVE58UNC4P8mvOIutqzOVqeycSHIHr0rNojtaZ7x4N2gMBw8wtdiTWOh9oDI +KLFWEajJ4a2g2LHQQHH6Bb8NovCvepTpbuyJ8bJbpZaisLEvQY6JzRP99cOO +JlHwlD75uQDbIslF169GDAb6lHdstWehhkL9hZJ8Cfj0rCCCspeFCkdWYoyj +ZaDNMPLfOEcWst53diDqrgzole4RKMCeeCFsdXdUBvijlC+/wtYtVBeR9dgC +U3ED0UJOeD/pvlWcplvh+ma7nLvYc9ODR76floUF29e+s84sJBxqUV1lJw8b +46S/Vbiy0GghT5BDsDxsLqUp9GM/7OuQmjwjD8oT4cW8bizkTfM5rdwkD4uV +aWcPYBeqxThdpSrA843ixdvc8fys4pkEMUXgniXp1R4s5BLIq2E7pARnXq+8 +WefDQihmH9XtlxJkeJyaNMBWTc43YEgoQ2eGrGsYNtstHbMER2UoLMpb7MW+ +O+Dl9uCpMvwwuRTd4Iu/T9fyk5I3VUBAqS0gyQ/3s7DrYtEpsFJqx0tjsNAt +5+zepQQKLKoldqRgp9OHBtdfo8CB+KqeN9iME4fHt3ygAG+X3BNrJgsJPspl +czZXBRVP9qc2BH5/dKZUGxXUgGltUOsexEJS8hcTLwyrQ3FSkEdZCAs9Spmn +LLNrgPJQy9slbG/So5OQ0wAdN6vLlqEslPdCkWLmqwG6F5MEv2DLBza8/9Gt +ARKj63q3hOP1lo8oEa2aYN4qUVB8iIVkpLYQsh7awD1iPbcQw0LqRdF8PxEV +irbWBiWfYiE64/SChj0VVF1kLw9i5yhkDvh5UyHj+gTHztMsxHHz3v1XsVSI +ESl+SGL35LFcMiup8FQhOYxIxv/THL9cioIOlG6Y4vE4h5/vBZqmO5cuGBjH +/45MZ6GCSEWHmjY9UElRTjt6jYU6YpBBUpERPJ52dIppZCE534/2PiEmcPjo +VcPuzyzE/FNbIXMU4MLrX7FaXONIbPzhX2J0MwhwyXtxTnccRevs7MtUtYDW +oTD1nYxxRJ9cbRZmWcL9QCE3iexxdNcs6q/89t2Q/qvvSPv7cVQ4H/y0PMsG +TliH6j8QmEA/dom/fZG4B469rTsq4DKB+tk4Zof87eDUSf76s9cnUJh0eMZJ +hb1QRqduHfs6gSoONDddSXaA6IGMTAe9SXSMlFhSO+AI4UX9GYNJk2jB1sr1 +9X4niG68YtkyMImMvC7tGnF0BrMxcyLLeAq9l8gNfqHjAht6XtO2XJ5CkrdP +PyrZtg++SFSOsS1OoYeDqjR7flc4H6LG+8xlGm3pnAmMmXQF7pWGyJtV00jn +yqXyW4Nu8CUjU1RfYAblric1M5+7A7XDt7kVzaDaXVo9yfUesKpMBgnGzKAc +gxTB1TJPWPj4D1F0Zwa19xad0Un1gmJSb7K4fwbV2F1XjDjhDV2PdfaUCc+i +2VBntjCGDwSd02/KtZxFC1aUoClzX7C/ENw7cngWlUz+9yNKfz90Nimm7Cid +Re4FRQE+fH4QAzlxfd2zqOrBnv0cZ/2g29VkQ+2GOWQk9X75/LIfjOlYdYfr +ziGFwcCefw/4Q5dQb5uZzxwa5j249/pXf3By5xghz8yhjnT7gN376OCz4OS3 +7c4cyorN5z3cQYdpCWk3pfY59OjJn+UAmwCgPJc7MjY1hzZ6w1mdhgDoC+hL +keUmkezm1+3SjwLg7V9uZSnY2m124lxPAuDgupWz89hOO71KPz0NAKp0wvHX +PCTKko5pPf4mAEybhvcG85FIsv/OxuZPAZDwX3TyrY0kUvQVy/FeCoDcpOz2 +ryIkMvKbKknWZcCpz6q9OXIkun11JspenwF9tV5qE9ibP8yZihkygCauiZA8 +iaYslzpLdjAAnU6vHMYuVGNb12bGgBuPZZvUFUkksCToIeTIgIH4urhKZRIN +p+lx54cywPHiCZU0NRI5vjboDAxnQBZ/+qdP2E/YjPO1DzHA9wY7TVGdRFej +TPWeRTNgOfXn0QZse4/d/iNxDEj8qDL7VYNE9Yoe9WopDOh19bZQ0yZRemP8 +gYe3GeBjaY4u6JIolJptFFuC+5Z5dr3FppVWchuWMcAvUn37Jj0S8WSPltbd +ZcCI/eftWdjJkQ6s2moGnL5X6HtVn0TxFMWDNc8YsJX45JtjSKLg7NaQBwMM +OItuvQjaSSIbgdGdkYMMeNYl+eIW9rZkNn7qFwYQKl5nBrBHI/XuVo4wwP9v +CWdnExL52+dP3p9ggFZhM5+xKYncOaPC7q0woOPewMpPRKLdUZIR5aJMKGvt +y3Q0J9Gz/DO2meJMGMvs0D+PvbNtTjFWkgkvB+ovNWFrK7X+Z76FCSUH7EI0 +LUgk0R1n3qvEhHyb3CouSxKNG/eL8ugxofoEJanUikQX2W88DnRmgq2p23Kd +DV6/Fl+O3T4mmBwIDR3FTvKKjdRxY0LF04vZm21JFFvtoPLHkwkepwf4I7D9 +iXWX/qYz4aft5EmFPSTSaaEzXh5iQqSe8al4Gom6LynxKmQwwVqLp37RnkQV +iD/o+yUmvG1rDJLYi/Mn51/cvcwEGQd69w5sqs2LBMNsJow2x88mYqezBczZ +5THheGqEOKcDiazCb/wXW86EWeVaDQ5HEsnInNM3rcDrj3jaIoc93xJ+meM+ +3h/aCWXAvqmM7NKrmPDmFLdkPPav/v6mWw1MWJQcmpnBrqZJlbxrZsL7gKOe +75xIdGGFnTOrhQn75zmHvmPTS1j+Hm1M+OcLnzKHM4k2rW+QGm5nQlFJ/Lg+ +dkij+8XlLibQPc4HXMNWUP07RnGECX5KeZzuLiRa6T7+YWyUCcwf+yLDsDuS +mdr3vjPBX94tNwk7YUiXZTTBBHkPVc372D05H3z2kkyQ0G42Xr+PRJl/CVoe +W0fA9aRrv/KxH831e0VzEFCjmBdcjf2tvywyjJOAI5Epyc3YO6stbtC5CUg+ +JfxyGnvUL/anrSABx/Qyg41dcX+apZClMAEVpalWNOwdBkIUJELA6ox7hw92 +Bn+5q44EAZJs3pOJa+MNnyul5AhIVXxGa8ImisqbRRRwfi9bdvva9RlHP29U +IkDl+Wr6APYoIcy/nkLA1mb5cz/XxoV3B01oE/DP4ve87W4kavgtnDhKJeC3 +0ntXU+yRscErg7oEMGUCH9liGzcde95pSIBjUWoGHXs4pGLLYyBgoSbTOx1b +wD1Or86MgM2Bt0/mYBuZW9MqLQhoeeDmchM7XeLL0SJrPP9yKnsN9sP19zLy +bQko5RAYeIz9dTqu+CqNgPvNyoGvsA1fiXxMcyDglLbkqS5seuWX8bNOBPTZ +zgkPYKddv8d+yoWANwI+ziPYXyJttGPcCRAUHO2Zw+b3Fd0d4UnATU12heW1 +PJuvPsHeBJhUl4v/Wbt/6/ELvn4E5FqU8vG44z48tjfd6QTY/b3MsxH7y4Jo +vRODgJH+zlphbP6hr+00ggCb/cabxLEN2+6PWgURsO8gRUwam153/BcEE9C9 +v6B1K3baTdvNO0JwfnGBhsJafpqYml4YAaENFBPltfzY4V1aEQSslzFa2YbN +x6h0p0QSIOLfzlDDNtibEK4QTYC70kS8xlq+8Z4zMjEEHBS5aKaFnaoknisW +S8DyWF2NNnbtppEqwWMEXAsiurZjD/2sbOGNx/0D/imkruV/SxjiTMD3NzrL +6mDrv9/z408iAfe8Mm3W/H8re/Pv "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -7905,105 +13464,107 @@ 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:eJwV1Hk4VVsfB3ARN2MhM2XWMXfMivXLFDpkykwc52ySKSRFNNAgJOnSLaTI +kJRMoXo1C8Ut0TVFoRyzbYhU7/LHfvbzedbe3/Vdaw9y9HAnJjsbG9skPtbO +h95pqtR1vDPtfuWhNb2bhUynCvXoFuVIRTXFac2D+fpZihaP0Pop8UdrdmC8 +5eLTeYkMBblCZrArYxOfc1q0IcVMR/os9vlX4k2JZf+ifWE/8+aw6zsO5a1S +P6Kkmxzy89isnpb4o42f0DvV4PEFbMkRBa9F8z5Uxq71cwl7z3S8UVTbZ/RU +0clxBfvJKos3tmwICV34MLmK3XVSLK427Csa06zq+IM9xWXBmqeOoHcbZpfZ +rVmIKzXCQ2dpFBVvSjvAhb1FMLf5UON3VGRydisPtr3U4u0p8wm0ZfCKrxA2 +cUNeVGPDFPKEsm+i2IlKe5MPtk0jm2vSdVLYn8Q6t0eXzaJlASmKMjbDM/jA +5dQ5NMlX3KqGPXOdreBBGIn+155RvR17g7zGplnqAioljnuYYmcxnu/eJLKI +qJInRCyxZYs9ErWWFtEdx0ExGrah+pmp0MYfSJqjftoTO0j/cxvLfBW9sn0z +Hoc9H3t4PY/yLySzWtOThH2ikXcnZcNvJJf2Z2M6dg4Y3gls+4OSpkrsCtb6 +FTVbRJatg6QxR5FW7LJXlwdPSrHDVLe8Qdda32++8ZdS2eFg5978Iex41YWq ++2Ec0HTisdnyWt97cgrTVE5A5sMf1WxYqKdj4snvW5wwvytT1Qhbdq7OU0CE +C/bvvfbSCrtc1z5TY4kLTLifvKNjv6g/ti6kcQMYze/SyMNeeP7h83dzPghU +k5OSt2UhIRrfprgnfEAZ3e+qh63daQH8RvzwRpo2bI0dPFxzY7umAGQKqP+I +wI5gb9M24dsE2yw42F5ij8hXzCYvCoJNxceL8Xvw/hAt3O06QnBP5N1CFjb7 +nVE58UNC4P8mvOIutqzOVqeycSHIHr0rNojtaZ7x4N2gMBw8wtdiTWOh9oDI +KLFWEajJ4a2g2LHQQHH6Bb8NovCvepTpbuyJ8bJbpZaisLEvQY6JzRP99cOO +JlHwlD75uQDbIslF169GDAb6lHdstWehhkL9hZJ8Cfj0rCCCspeFCkdWYoyj +ZaDNMPLfOEcWst53diDqrgzole4RKMCeeCFsdXdUBvijlC+/wtYtVBeR9dgC +U3ED0UJOeD/pvlWcplvh+ma7nLvYc9ODR76floUF29e+s84sJBxqUV1lJw8b +46S/Vbiy0GghT5BDsDxsLqUp9GM/7OuQmjwjD8oT4cW8bizkTfM5rdwkD4uV +aWcPYBeqxThdpSrA843ixdvc8fys4pkEMUXgniXp1R4s5BLIq2E7pARnXq+8 +WefDQihmH9XtlxJkeJyaNMBWTc43YEgoQ2eGrGsYNtstHbMER2UoLMpb7MW+ +O+Dl9uCpMvwwuRTd4Iu/T9fyk5I3VUBAqS0gyQ/3s7DrYtEpsFJqx0tjsNAt +5+zepQQKLKoldqRgp9OHBtdfo8CB+KqeN9iME4fHt3ygAG+X3BNrJgsJPspl +czZXBRVP9qc2BH5/dKZUGxXUgGltUOsexEJS8hcTLwyrQ3FSkEdZCAs9Spmn +LLNrgPJQy9slbG/So5OQ0wAdN6vLlqEslPdCkWLmqwG6F5MEv2DLBza8/9Gt +ARKj63q3hOP1lo8oEa2aYN4qUVB8iIVkpLYQsh7awD1iPbcQw0LqRdF8PxEV +irbWBiWfYiE64/SChj0VVF1kLw9i5yhkDvh5UyHj+gTHztMsxHHz3v1XsVSI +ESl+SGL35LFcMiup8FQhOYxIxv/THL9cioIOlG6Y4vE4h5/vBZqmO5cuGBjH +/45MZ6GCSEWHmjY9UElRTjt6jYU6YpBBUpERPJ52dIppZCE534/2PiEmcPjo +VcPuzyzE/FNbIXMU4MLrX7FaXONIbPzhX2J0MwhwyXtxTnccRevs7MtUtYDW +oTD1nYxxRJ9cbRZmWcL9QCE3iexxdNcs6q/89t2Q/qvvSPv7cVQ4H/y0PMsG +TliH6j8QmEA/dom/fZG4B469rTsq4DKB+tk4Zof87eDUSf76s9cnUJh0eMZJ +hb1QRqduHfs6gSoONDddSXaA6IGMTAe9SXSMlFhSO+AI4UX9GYNJk2jB1sr1 +9X4niG68YtkyMImMvC7tGnF0BrMxcyLLeAq9l8gNfqHjAht6XtO2XJ5CkrdP +PyrZtg++SFSOsS1OoYeDqjR7flc4H6LG+8xlGm3pnAmMmXQF7pWGyJtV00jn +yqXyW4Nu8CUjU1RfYAblric1M5+7A7XDt7kVzaDaXVo9yfUesKpMBgnGzKAc +gxTB1TJPWPj4D1F0Zwa19xad0Un1gmJSb7K4fwbV2F1XjDjhDV2PdfaUCc+i +2VBntjCGDwSd02/KtZxFC1aUoClzX7C/ENw7cngWlUz+9yNKfz90Nimm7Cid +Re4FRQE+fH4QAzlxfd2zqOrBnv0cZ/2g29VkQ+2GOWQk9X75/LIfjOlYdYfr +ziGFwcCefw/4Q5dQb5uZzxwa5j249/pXf3By5xghz8yhjnT7gN376OCz4OS3 +7c4cyorN5z3cQYdpCWk3pfY59OjJn+UAmwCgPJc7MjY1hzZ6w1mdhgDoC+hL +keUmkezm1+3SjwLg7V9uZSnY2m124lxPAuDgupWz89hOO71KPz0NAKp0wvHX +PCTKko5pPf4mAEybhvcG85FIsv/OxuZPAZDwX3TyrY0kUvQVy/FeCoDcpOz2 +ryIkMvKbKknWZcCpz6q9OXIkun11JspenwF9tV5qE9ibP8yZihkygCauiZA8 +iaYslzpLdjAAnU6vHMYuVGNb12bGgBuPZZvUFUkksCToIeTIgIH4urhKZRIN +p+lx54cywPHiCZU0NRI5vjboDAxnQBZ/+qdP2E/YjPO1DzHA9wY7TVGdRFej +TPWeRTNgOfXn0QZse4/d/iNxDEj8qDL7VYNE9Yoe9WopDOh19bZQ0yZRemP8 +gYe3GeBjaY4u6JIolJptFFuC+5Z5dr3FppVWchuWMcAvUn37Jj0S8WSPltbd +ZcCI/eftWdjJkQ6s2moGnL5X6HtVn0TxFMWDNc8YsJX45JtjSKLg7NaQBwMM +OItuvQjaSSIbgdGdkYMMeNYl+eIW9rZkNn7qFwYQKl5nBrBHI/XuVo4wwP9v +CWdnExL52+dP3p9ggFZhM5+xKYncOaPC7q0woOPewMpPRKLdUZIR5aJMKGvt +y3Q0J9Gz/DO2meJMGMvs0D+PvbNtTjFWkgkvB+ovNWFrK7X+Z76FCSUH7EI0 +LUgk0R1n3qvEhHyb3CouSxKNG/eL8ugxofoEJanUikQX2W88DnRmgq2p23Kd +DV6/Fl+O3T4mmBwIDR3FTvKKjdRxY0LF04vZm21JFFvtoPLHkwkepwf4I7D9 +iXWX/qYz4aft5EmFPSTSaaEzXh5iQqSe8al4Gom6LynxKmQwwVqLp37RnkQV +iD/o+yUmvG1rDJLYi/Mn51/cvcwEGQd69w5sqs2LBMNsJow2x88mYqezBczZ +5THheGqEOKcDiazCb/wXW86EWeVaDQ5HEsnInNM3rcDrj3jaIoc93xJ+meM+ +3h/aCWXAvqmM7NKrmPDmFLdkPPav/v6mWw1MWJQcmpnBrqZJlbxrZsL7gKOe +75xIdGGFnTOrhQn75zmHvmPTS1j+Hm1M+OcLnzKHM4k2rW+QGm5nQlFJ/Lg+ +dkij+8XlLibQPc4HXMNWUP07RnGECX5KeZzuLiRa6T7+YWyUCcwf+yLDsDuS +mdr3vjPBX94tNwk7YUiXZTTBBHkPVc372D05H3z2kkyQ0G42Xr+PRJl/CVoe +W0fA9aRrv/KxH831e0VzEFCjmBdcjf2tvywyjJOAI5Epyc3YO6stbtC5CUg+ +JfxyGnvUL/anrSABx/Qyg41dcX+apZClMAEVpalWNOwdBkIUJELA6ox7hw92 +Bn+5q44EAZJs3pOJa+MNnyul5AhIVXxGa8ImisqbRRRwfi9bdvva9RlHP29U +IkDl+Wr6APYoIcy/nkLA1mb5cz/XxoV3B01oE/DP4ve87W4kavgtnDhKJeC3 +0ntXU+yRscErg7oEMGUCH9liGzcde95pSIBjUWoGHXs4pGLLYyBgoSbTOx1b +wD1Or86MgM2Bt0/mYBuZW9MqLQhoeeDmchM7XeLL0SJrPP9yKnsN9sP19zLy +bQko5RAYeIz9dTqu+CqNgPvNyoGvsA1fiXxMcyDglLbkqS5seuWX8bNOBPTZ +zgkPYKddv8d+yoWANwI+ziPYXyJttGPcCRAUHO2Zw+b3Fd0d4UnATU12heW1 +PJuvPsHeBJhUl4v/Wbt/6/ELvn4E5FqU8vG44z48tjfd6QTY/b3MsxH7y4Jo +vRODgJH+zlphbP6hr+00ggCb/cabxLEN2+6PWgURsO8gRUwam153/BcEE9C9 +v6B1K3baTdvNO0JwfnGBhsJafpqYml4YAaENFBPltfzY4V1aEQSslzFa2YbN +x6h0p0QSIOLfzlDDNtibEK4QTYC70kS8xlq+8Z4zMjEEHBS5aKaFnaoknisW +S8DyWF2NNnbtppEqwWMEXAsiurZjD/2sbOGNx/0D/imkruV/SxjiTMD3NzrL +6mDrv9/z408iAfe8Mm3W/H8re/Pv "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6044061540843431, - 1.5841467887057727`}}, + "PlotRange" -> {{0, 180}, {0.8212810444658442, + 1.2090332864661197`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6044061540843444}, + "AxesOrigin" -> {0, 0.8212810444658459}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.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 +13576,21 @@ r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6044061540843431, - 1.5841467887057727`}}, + "PlotRange" -> {{0, 180}, {0.8212810444658442, + 1.2090332864661197`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6044061540843444}, + "AxesOrigin" -> {0, 0.8212810444658459}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 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 +13604,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:eJwV1Hk4VVsfB3ARN2MhM2XWMXfMivXLFDpkykwc52ySKSRFNNAgJOnSLaTI +kJRMoXo1C8Ut0TVFoRyzbYhU7/LHfvbzedbe3/Vdaw9y9HAnJjsbG9skPtbO +h95pqtR1vDPtfuWhNb2bhUynCvXoFuVIRTXFac2D+fpZihaP0Pop8UdrdmC8 +5eLTeYkMBblCZrArYxOfc1q0IcVMR/os9vlX4k2JZf+ifWE/8+aw6zsO5a1S +P6Kkmxzy89isnpb4o42f0DvV4PEFbMkRBa9F8z5Uxq71cwl7z3S8UVTbZ/RU +0clxBfvJKos3tmwICV34MLmK3XVSLK427Csa06zq+IM9xWXBmqeOoHcbZpfZ +rVmIKzXCQ2dpFBVvSjvAhb1FMLf5UON3VGRydisPtr3U4u0p8wm0ZfCKrxA2 +cUNeVGPDFPKEsm+i2IlKe5MPtk0jm2vSdVLYn8Q6t0eXzaJlASmKMjbDM/jA +5dQ5NMlX3KqGPXOdreBBGIn+155RvR17g7zGplnqAioljnuYYmcxnu/eJLKI +qJInRCyxZYs9ErWWFtEdx0ExGrah+pmp0MYfSJqjftoTO0j/cxvLfBW9sn0z +Hoc9H3t4PY/yLySzWtOThH2ikXcnZcNvJJf2Z2M6dg4Y3gls+4OSpkrsCtb6 +FTVbRJatg6QxR5FW7LJXlwdPSrHDVLe8Qdda32++8ZdS2eFg5978Iex41YWq ++2Ec0HTisdnyWt97cgrTVE5A5sMf1WxYqKdj4snvW5wwvytT1Qhbdq7OU0CE +C/bvvfbSCrtc1z5TY4kLTLifvKNjv6g/ti6kcQMYze/SyMNeeP7h83dzPghU +k5OSt2UhIRrfprgnfEAZ3e+qh63daQH8RvzwRpo2bI0dPFxzY7umAGQKqP+I +wI5gb9M24dsE2yw42F5ij8hXzCYvCoJNxceL8Xvw/hAt3O06QnBP5N1CFjb7 +nVE58UNC4P8mvOIutqzOVqeycSHIHr0rNojtaZ7x4N2gMBw8wtdiTWOh9oDI +KLFWEajJ4a2g2LHQQHH6Bb8NovCvepTpbuyJ8bJbpZaisLEvQY6JzRP99cOO +JlHwlD75uQDbIslF169GDAb6lHdstWehhkL9hZJ8Cfj0rCCCspeFCkdWYoyj +ZaDNMPLfOEcWst53diDqrgzole4RKMCeeCFsdXdUBvijlC+/wtYtVBeR9dgC +U3ED0UJOeD/pvlWcplvh+ma7nLvYc9ODR76floUF29e+s84sJBxqUV1lJw8b +46S/Vbiy0GghT5BDsDxsLqUp9GM/7OuQmjwjD8oT4cW8bizkTfM5rdwkD4uV +aWcPYBeqxThdpSrA843ixdvc8fys4pkEMUXgniXp1R4s5BLIq2E7pARnXq+8 +WefDQihmH9XtlxJkeJyaNMBWTc43YEgoQ2eGrGsYNtstHbMER2UoLMpb7MW+ +O+Dl9uCpMvwwuRTd4Iu/T9fyk5I3VUBAqS0gyQ/3s7DrYtEpsFJqx0tjsNAt +5+zepQQKLKoldqRgp9OHBtdfo8CB+KqeN9iME4fHt3ygAG+X3BNrJgsJPspl +czZXBRVP9qc2BH5/dKZUGxXUgGltUOsexEJS8hcTLwyrQ3FSkEdZCAs9Spmn +LLNrgPJQy9slbG/So5OQ0wAdN6vLlqEslPdCkWLmqwG6F5MEv2DLBza8/9Gt +ARKj63q3hOP1lo8oEa2aYN4qUVB8iIVkpLYQsh7awD1iPbcQw0LqRdF8PxEV +irbWBiWfYiE64/SChj0VVF1kLw9i5yhkDvh5UyHj+gTHztMsxHHz3v1XsVSI +ESl+SGL35LFcMiup8FQhOYxIxv/THL9cioIOlG6Y4vE4h5/vBZqmO5cuGBjH +/45MZ6GCSEWHmjY9UElRTjt6jYU6YpBBUpERPJ52dIppZCE534/2PiEmcPjo +VcPuzyzE/FNbIXMU4MLrX7FaXONIbPzhX2J0MwhwyXtxTnccRevs7MtUtYDW +oTD1nYxxRJ9cbRZmWcL9QCE3iexxdNcs6q/89t2Q/qvvSPv7cVQ4H/y0PMsG +TliH6j8QmEA/dom/fZG4B469rTsq4DKB+tk4Zof87eDUSf76s9cnUJh0eMZJ +hb1QRqduHfs6gSoONDddSXaA6IGMTAe9SXSMlFhSO+AI4UX9GYNJk2jB1sr1 +9X4niG68YtkyMImMvC7tGnF0BrMxcyLLeAq9l8gNfqHjAht6XtO2XJ5CkrdP +PyrZtg++SFSOsS1OoYeDqjR7flc4H6LG+8xlGm3pnAmMmXQF7pWGyJtV00jn +yqXyW4Nu8CUjU1RfYAblric1M5+7A7XDt7kVzaDaXVo9yfUesKpMBgnGzKAc +gxTB1TJPWPj4D1F0Zwa19xad0Un1gmJSb7K4fwbV2F1XjDjhDV2PdfaUCc+i +2VBntjCGDwSd02/KtZxFC1aUoClzX7C/ENw7cngWlUz+9yNKfz90Nimm7Cid +Re4FRQE+fH4QAzlxfd2zqOrBnv0cZ/2g29VkQ+2GOWQk9X75/LIfjOlYdYfr +ziGFwcCefw/4Q5dQb5uZzxwa5j249/pXf3By5xghz8yhjnT7gN376OCz4OS3 +7c4cyorN5z3cQYdpCWk3pfY59OjJn+UAmwCgPJc7MjY1hzZ6w1mdhgDoC+hL +keUmkezm1+3SjwLg7V9uZSnY2m124lxPAuDgupWz89hOO71KPz0NAKp0wvHX +PCTKko5pPf4mAEybhvcG85FIsv/OxuZPAZDwX3TyrY0kUvQVy/FeCoDcpOz2 +ryIkMvKbKknWZcCpz6q9OXIkun11JspenwF9tV5qE9ibP8yZihkygCauiZA8 +iaYslzpLdjAAnU6vHMYuVGNb12bGgBuPZZvUFUkksCToIeTIgIH4urhKZRIN +p+lx54cywPHiCZU0NRI5vjboDAxnQBZ/+qdP2E/YjPO1DzHA9wY7TVGdRFej +TPWeRTNgOfXn0QZse4/d/iNxDEj8qDL7VYNE9Yoe9WopDOh19bZQ0yZRemP8 +gYe3GeBjaY4u6JIolJptFFuC+5Z5dr3FppVWchuWMcAvUn37Jj0S8WSPltbd +ZcCI/eftWdjJkQ6s2moGnL5X6HtVn0TxFMWDNc8YsJX45JtjSKLg7NaQBwMM +OItuvQjaSSIbgdGdkYMMeNYl+eIW9rZkNn7qFwYQKl5nBrBHI/XuVo4wwP9v +CWdnExL52+dP3p9ggFZhM5+xKYncOaPC7q0woOPewMpPRKLdUZIR5aJMKGvt +y3Q0J9Gz/DO2meJMGMvs0D+PvbNtTjFWkgkvB+ovNWFrK7X+Z76FCSUH7EI0 +LUgk0R1n3qvEhHyb3CouSxKNG/eL8ugxofoEJanUikQX2W88DnRmgq2p23Kd +DV6/Fl+O3T4mmBwIDR3FTvKKjdRxY0LF04vZm21JFFvtoPLHkwkepwf4I7D9 +iXWX/qYz4aft5EmFPSTSaaEzXh5iQqSe8al4Gom6LynxKmQwwVqLp37RnkQV +iD/o+yUmvG1rDJLYi/Mn51/cvcwEGQd69w5sqs2LBMNsJow2x88mYqezBczZ +5THheGqEOKcDiazCb/wXW86EWeVaDQ5HEsnInNM3rcDrj3jaIoc93xJ+meM+ +3h/aCWXAvqmM7NKrmPDmFLdkPPav/v6mWw1MWJQcmpnBrqZJlbxrZsL7gKOe +75xIdGGFnTOrhQn75zmHvmPTS1j+Hm1M+OcLnzKHM4k2rW+QGm5nQlFJ/Lg+ +dkij+8XlLibQPc4HXMNWUP07RnGECX5KeZzuLiRa6T7+YWyUCcwf+yLDsDuS +mdr3vjPBX94tNwk7YUiXZTTBBHkPVc372D05H3z2kkyQ0G42Xr+PRJl/CVoe +W0fA9aRrv/KxH831e0VzEFCjmBdcjf2tvywyjJOAI5Epyc3YO6stbtC5CUg+ +JfxyGnvUL/anrSABx/Qyg41dcX+apZClMAEVpalWNOwdBkIUJELA6ox7hw92 +Bn+5q44EAZJs3pOJa+MNnyul5AhIVXxGa8ImisqbRRRwfi9bdvva9RlHP29U +IkDl+Wr6APYoIcy/nkLA1mb5cz/XxoV3B01oE/DP4ve87W4kavgtnDhKJeC3 +0ntXU+yRscErg7oEMGUCH9liGzcde95pSIBjUWoGHXs4pGLLYyBgoSbTOx1b +wD1Or86MgM2Bt0/mYBuZW9MqLQhoeeDmchM7XeLL0SJrPP9yKnsN9sP19zLy +bQko5RAYeIz9dTqu+CqNgPvNyoGvsA1fiXxMcyDglLbkqS5seuWX8bNOBPTZ +zgkPYKddv8d+yoWANwI+ziPYXyJttGPcCRAUHO2Zw+b3Fd0d4UnATU12heW1 +PJuvPsHeBJhUl4v/Wbt/6/ELvn4E5FqU8vG44z48tjfd6QTY/b3MsxH7y4Jo +vRODgJH+zlphbP6hr+00ggCb/cabxLEN2+6PWgURsO8gRUwam153/BcEE9C9 +v6B1K3baTdvNO0JwfnGBhsJafpqYml4YAaENFBPltfzY4V1aEQSslzFa2YbN +x6h0p0QSIOLfzlDDNtibEK4QTYC70kS8xlq+8Z4zMjEEHBS5aKaFnaoknisW +S8DyWF2NNnbtppEqwWMEXAsiurZjD/2sbOGNx/0D/imkruV/SxjiTMD3NzrL +6mDrv9/z408iAfe8Mm3W/H8re/Pv "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6044061540843431, 1.5841467887057727`}}, + "PlotRange" -> {{0, 180}, {0.8212810444658442, 1.2090332864661197`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6044061540843444}, + "AxesOrigin" -> {0, 0.8212810444658459}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 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 +13712,8 @@ r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.6044061540843444}, + AxesOrigin->{0, 0.8212810444658459}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -8177,7 +13741,8 @@ r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.6044061540843431, 1.5841467887057727`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.8212810444658442, 1.2090332864661197`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -8185,9 +13750,9 @@ r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913320330871353`*^9}, + CellChangeTimes->{3.9913320330871353`*^9, 3.993961414337655*^9}, CellLabel-> - "Out[220]=",ExpressionUUID->"a15038e3-a3ab-e64e-ad3b-e8cb09ec92a2"] + "Out[139]=",ExpressionUUID->"a09936f9-e961-4fd4-9441-fa44e6c4b1c5"] }, Open ]], Cell[CellGroupData[{ @@ -8250,205 +13815,169 @@ 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\\\", \ -\\\"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}, + "\"\\!\\(\\*FractionBox[\\\"9.63510818527984`*^-271\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 69, 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991332033325203*^9, 3.993961414470084*^9}, CellLabel-> "During evaluation of \ -In[221]:=",ExpressionUUID->"bf289d91-76e3-3e4e-937f-93db9b038d39"], +In[140]:=",ExpressionUUID->"05330ff3-5cbc-4ed5-8d6b-8a3493edf31e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.376858869110442`*^-282\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.7539785318771148`*^-282\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 70, 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991332033325203*^9, 3.993961414477236*^9}, + CellLabel-> + "During evaluation of \ +In[140]:=",ExpressionUUID->"336d21dd-aacd-4ea7-b458-9586d00ef90a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.192948777664863`*^-294\\\", \ \\\"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}, + 140, 71, 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991332033325203*^9, 3.993961414486146*^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->"58e1e31f-9b5a-4bd9-8397-c6c839388b97"], 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, 72, 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991332033325203*^9, 3.993961414493574*^9}, CellLabel-> "During evaluation of \ -In[221]:=",ExpressionUUID->"e66837df-658a-2c4c-973b-50c515d3781f"], +In[140]:=",ExpressionUUID->"a6c7d211-0a00-4c01-9076-72d15e795daa"], 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:eJwV13c8lf/7B3BRSEX25j7HSGTLPq5L6phZGYWPETJCyYqGEVEhIaFBJV+V +dM5dfBAlJLSUEZESGkL5hKLkd//+Oo/nH+d+r+t6ve+btnufcyAnBweH3AoO +jv//nR/uaFU8VWYWNJFdpTKyxaznkkS8eX8KHLb+HHTUiQYo+mK3RH8upL1t +z3Nz0oZYxxuvufqvgGb84b0mTuYgOC2eu/CaBMO5suH1Tk7wrsF+3+zrZrBw +EahNd/QDpuLE25nXryDEd7Azyj4SFl4bnP3++gM4pgu90mAmQ4vF/8peXvkB +Mdi+/efAGZB5V/dx96YloGtpNJ5RLwaRMJ8bPBZc2KrHufx+sRRytZn37F15 +MdVDL613sgwGCrWaZtavw/j8h+vGbSvgVFniC05JQdy3Unbs6+mbIJ4/eiLv +ojBuMe7hFnGrAgm16tRf5cK4pPxpOM+nCqSajyf+wxLGax9euawLqQK57xtj +NrQIYxBxQHTqUBUo2e33vfdZGKXPLLT7XK4C3ZVL+qO6IrhFsm1h/dcqcIgW +G9PpFEE+9y+/i+NvQ7qLtdmreVGsPyBhn2nOAqm7z6U4V4ghzUW5u2sbC6qE +XX5qrxFD5aKhaEEbFvS98madkRfDpb9la9OdWaDoFE13shLD/NpbKRb+LGje +XsLdVSSGLxw+bl6RyoIl5tzzZ6bi+CpNPyqrmQU55Qk3l5jiaKD234hLG/V/ +bo4MdSdxHMrd4S/RyQK7R3zmWYHiqLa46WLeSxYUWxB37LLFUedF3ieP9yww +RNtzT96J4/n701WbllgQZXTZpyNFAkvyIkWGdNlgU8o/a5spgU/FLZum9NlA +5zmc8fysBIpfjPnz24gNXT1u7O4KCfxd3qbEj2zQ2L+Wa/i5BIpa95mstmPD +5/K48v+kJJGbd0ushz8bvETsp6TvSGLcShv/kNNs0D10L/lSgySaGdMU1+Wy +ge+DihitTRL5t/4beyufDXW3uUB5QBIXzQpejhaxQcy2LkdrWRLDLxX5bSij +xk9W1NtmK4WksxAfXy0btn5bTIgYlUKlY6oss7dsiLfKV304KYV3RHUGQ96x +oeqy+hvheSmU2F394MwIGyRcfI3qeKUxL12+5vU4GyZrH/3k0pDGFU9sfEyn +2ZCXkhNddFAaf5aFDQX/ZUP74EbFyWRp/CPi0ejDQcIfvZZus1PS+Dlg1nMH +Jwl7Ps3pjF2Uxvu7/+nW4ibB2M5zRqNFGoVEYu+0riPhg6hyROs6GWSapyY6 +ypAgvu+BrLi4DK6EHF9hORLs2nc+CyFk0NArfGW3PAk1Cac2CejK4KrGlQVW +CiScfPd9YtdOGQzwb5pYq0qCzvV7Qd+uyOCTzbpVi/okJJs6+UkZyuJ4gMre +cHsSrLwv/WewRRaZMm97PzqQwJ/09ZirnSyqj3UnejmRcKElrTzHVxajTSby +TF1IqLWp/8p9QhZ7gPXsxS4Svu9UiP0xIIufumyELQJI+DdhP4/gmCw6tGs2 +JAWScPRCY6HGtCxybw6vqt9Dwtr37vdCOOXwUl9ppEIICRuCMjneq8qhK99C +Wns4Cd4xcyefHpJDuQQyxS+WBKVzW2Qm0uSQU1hKJCCOpPb/9C2eHDlUt5Ff +3H2QhIQ/G7u2lMnhuPWfNtcEEs4e8xateyqHcSgSL3CUBK9rN8v7+uSw62B0 +6yxl+uNfBrPv5VDZ9FhoXyIJLL48D805aj7Mzo7sZBKennlcck1WHvlU+L92 +p5KQd0dEu2WDPMoVTNAupJHg0evX/F5bHiOsn9f5Hifhs8SfMWmmPIqPTgq8 +SyeBq1RLNTdCHr/PZIWxTpLQ+fDIvdsH5fH9u6vNnqdIyBnttHuWIo9M9E3i +yiRBbkPgPt5z8vg1U0vfKouqh6qiu0cfyOORjypXy0+TsPX186Xpdnn83/Ls +sFoOCfYcKy19XslT6wtavkXZ3zliAMblsW9QaqbiDAnMQ7TEpFUEBhX+uBmf +R8ITgYarhnwEVoQTtI+UHcvc2r/zE+jo/TDJIZ8Ez2enBP0kCLyT7copeZaE +/fLzV83VCEwcrlRILyBh7k5O+4ImgV2NHisGKSdYqU2x9Qj8Mn/4hdo5EtIi +ffXpZgRy2apjK2U+7t8eb7YQaHxv69iaQmq9xWcTcy0JzNIYPeRIubils53T +icBL6l0ZXZTldwZO1bsSmKdctbymiISyyWXBKA8Cef9oh2+lrJpcrK/mQ+A3 +S6VX8ZRvi272HPUn8GqAs2YlZb0bLxLPBxPoFZaaNki53iy0bEc4gWWG6b08 +xSS0BpVMtcQS2Gims8edsvUfI6HDhwisHI2pSKD8PKdHXy+JQE/6w0/FlF2U +9nlOphKocWJUsZbyQN3qpLITBFbvvuX7irK3fVmZVzaBatXfzn+hPPbBrEMk +j9oP88OvlyiHxA1MPT1HYE+qkojAeRKm10QLpV0gcPrOfWdZylGl/AaMywSy +7kvnq1D+pXfdc+4agee2Cw5oUT7aYZF06waBZx5G0/Upc3kPlwXeJjBGVybS +kHLGfwc7ZO8SeDRq+JEBZf504eneWgJrePNoepTzpKuEshsJTNISSlOnLMGy +MmA2Ezj3Vm9GgfLFraOef9sIDK/r2SNOmT5wJKnmCYH/yT/9yEO5IlziWkQX +tT/0+cg5aj3qnHc6lHsJ9D2usfo9ZbJg+/TwAIFvm51uPaZsqPZZ6NwwgYc4 +GT6VlBsfpBg4jBKYTnsun015i4usF89nAv+9NfotjPLjz/8mPZgk8Ma4V5cV +ZbsjztfiZgi0rZVsplF+JTjVoTlPoFvr4qOf1Hm6l6dPf1oksMl9ZKiT8pAx +Xbh0mdr/fbd5zlPe/aLBYOdKGgZVW1oGUw77NZPUvo6GA0MBvItUfRlH7hH7 +KETD2jD1vXWUeSfe3OSSoGGSjnVADOVrgy19ZnQatpQLyI1S9RvtYhjmtYGG +utt4RvIpb3lWuSJhEw2f/fxqZkF5+P7ZTdX6NHyRSnSdpfqh0oCv+ZUJDXmK +WlcZ/39/sI66f0ca7tX9++YN1U9iV4JS1GxpuNZ1LFiIskOaUf9lHxp+ZGfr +7qL6Ue7vrfAHATRU5/96/EMulW+xdK63ITT0r995LJhyRvAaDYloGlYX6x8O +pfq7yfbtsewMGkZJdJ9mUvmQ3eokWZlFQ/fIk9urs6m8Y7RVdeTS0IvFfZ+g +vKBxe2DlRRr+HDZomKLyRkcoWfMQm4a3JwQdfal84jg111pYQ8Pv+xLb7p6g ++oEr1KPmHg0ts84vrKK8d845beYRDTmlx4ovUflW1q84GPSGmk8H11QFlY9i +Je3HXbjoyDGWMUmn8nVMnCFzgJeOpINQm8URql5y2OzT6+j42qBuv99hav0p +xUOd4nRsPF1glkfldUZgmI75Jjq6u5qMdFF5v6C2fljdlY7aQxyh1REkzF+U +Stb1oGPJ7/LFCup+mBVQUjTyoWOEnEd2URjVXz+MQreG0PERH1drZCh1f97z +n/c4QkexoG2Zf6n7p9P2X/6Ma3S8ntjPPulF1V/jQ3bWDTpefTmyzsGTygfN +py55t+noKsZOXu9Bwn3hkeJLdXT8eG68+qQ7Nf9Bvg3Vz+jIrX0txsuZyq+9 +3vBhjo4vooIOx1qScO5t8IdPi9TzB3hm1zJJyHeISptapuPL3S2FpVup89HN +ePJrtQL22c9FPDAnIeU3211ATgFjL2+LHjSh9vfUqv2mTAXMqwkRydYkwfRm +ZWlBgQJ+i+lx+SRCwiBxs2TbeQVUdjkfvVWYqq+C65dmSxQwPUWUWSJI3bfJ +5RecryvgZnoDpz0/db47Swv5GxTQ4qsAVw4PCRtX5eccH1FAI71++v8WqPcj +n0NJsZsUsXuNEK/qEBtmhGx83ZoV8aFb5o3WYjb0h9G7Qh8rItm2xii4kA1N +bYuQ+FQRM44mhq4uYENOwk35ij5FXDGR0LD1DBu0Pqx9tzChiIl7dliVpLMh +gv3in4vCStg28ttrPIoNEw6unmMBSnjU4M2BJhs2jGX6uh3gUUa7X1ce8/3H +Autvcdbj+htQW75pYsqABZP+vFF3E1VQXvUGxt2oor4PxDnTmzeii74hbaGt +EoSeKWezvqlimngG/+bJGyCTcdtRX38TujwsuOH9pgIK1YzWCwepo0jfT5Xz +H8uhU8p8848zGijzt2t9xnIZGMs052j2aaLr4kattoUrwM91JdovRQsFXEnT +JOXLIJcsb7pLWRtbDMWcStIuwWolrxrnx9pY2bxxPpz7PGgwJG/H/aODFe8i +y28vnIMDw0ItNhy6eNFjNFlsIh++/ch0tS7UxQfH/hFttc0FS822Ymt1PVys +d1Ho/Hwa7v8w+f3zuR5mGhSF39lxCiI26bx5GbgZxdokY0KT04ExHdCza7U+ +TsdzCjb3HoNtihLb113Rx5owJS7l7iRQSTp5sNnAAC+vauzYE38YVAONHii9 +McDycVHJq+fjIPB+cOrdSENMPNX1V/tuFDwo7QmYETVCTq5n1Rcl9sNsxfJP +zX+N8PMG87eEcSh8dGOWnqgzwr0jv8M6lUKhf2WW1eg9I1y6yxmfLBgK93yl +igqajPCBbsKE+JcQSJHYbLzUYYTzR8SixgtDYH1G6OHOISMU1O8hlhaDYVNQ +L0cgpzFmvos4+K09CPyVbq4u3m6MhzSS7UNPBkLCI+9QZUdjbGNsfP8kLhBy +AoWekM7GWCZ+zt0kMBAarsVnPnE3Rsdjwq8tMBBElK0ElvyMcXbOSW9xPgDa +lMdFfGONcTR43H5uTwCoqsgTyiXGKGkS/3TS0R9mVPP0ye/GOJZ0wEXF1g/6 +n+I24R/GKLtRabbD1A+aIqZ3RM9Rz5vZ/idGww+ySetI/UVjXGwg1acE/UDV +mKOynssEY+Kk97oP+MJu63Bai5gJJilb84mF+kJPkOXaHlMTvH+gy1RR2Qdq +y36PzGWYYHDhtm1HubxA3yL6p80pE/SbPPRt/aQnVI9Mri3NMkHh40de3u3x +BFJu2MAm1wQ7trkIa5V7QmVhU9al8yb4Q2tn2A9rTyjNTDOyrDLBkpFXkWX5 +HnAiWuBMYbcJuqbOFAbr7wKPrQpoImeKPuOFZduvu8FSDy9/C2GKRWsLdI3y +3aA0cHrQRsEUW51BTj/RDT4er4vzUDHFJye+9Pm7usGBDofb8TqmyK+z8UQW +pxuctD8sV8s0RcPVbaUCvq5Qv7P3j94+U5xx4LU6ssEFpMPT6zSaTHGPtU3d +8XEnyF7es/lUsyla9BL0vF4n4Mxlsj+1mqJVXJdB5SMnmKhZdb20wxSttcos +V5Y7QT1HaqFQtyletAhbYxvkBB75SXHz46YoXTveojbpCIX34jffX8PAIe8D +d5aXHECUL4y93Z2B0mIjD72z7aDM4kjC910MvFj4144ZaQc6R7It8rwYWJNk +ss/KxQ7sv7N6+/0YeGdPr9IFKTs43je34B/GQMOFPPHEClv4dSVxS0IyA59n +JIrROmzgjUled/lNarzuI25WstYQHFN2wbqKgbnjZt6eXNYwX1UdOMlioOKt +pwnHv1iBEL3/p3YNAxOuGlxTrLECW15ZmcYmBkr12ZcfdbSChp7ygO5eBpro +LdcWnrAEG/5a9dh+BlZ2PZBVjLSEfsuOeYlBBppz+gW37bSE2fqvGd7vGfji +qWqgg4olqF/WuvVlgoE03dpf+9uZ0PDGPDZzioF8zdwZbBYTbER2gOZ3BnLv +1w3lLWLCnvSYl9FzDFT6kDr8K4QJs03Hi8V/MfD6nRi7XGcmpCye869fZODV +mqFWcxMmrNe7vumfJWo8gcbNPIpMuBReP7e8zMCpZKWsD2uZ8H+GVhOV "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -8462,164 +13991,124 @@ 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:eJwV13c8lf/7B3BRSEX25j7HSGTLPq5L6phZGYWPETJCyYqGEVEhIaFBJV+V +dM5dfBAlJLSUEZESGkL5hKLkd//+Oo/nH+d+r+t6ve+btnufcyAnBweH3AoO +jv//nR/uaFU8VWYWNJFdpTKyxaznkkS8eX8KHLb+HHTUiQYo+mK3RH8upL1t +z3Nz0oZYxxuvufqvgGb84b0mTuYgOC2eu/CaBMO5suH1Tk7wrsF+3+zrZrBw +EahNd/QDpuLE25nXryDEd7Azyj4SFl4bnP3++gM4pgu90mAmQ4vF/8peXvkB +Mdi+/efAGZB5V/dx96YloGtpNJ5RLwaRMJ8bPBZc2KrHufx+sRRytZn37F15 +MdVDL613sgwGCrWaZtavw/j8h+vGbSvgVFniC05JQdy3Unbs6+mbIJ4/eiLv +ojBuMe7hFnGrAgm16tRf5cK4pPxpOM+nCqSajyf+wxLGax9euawLqQK57xtj +NrQIYxBxQHTqUBUo2e33vfdZGKXPLLT7XK4C3ZVL+qO6IrhFsm1h/dcqcIgW +G9PpFEE+9y+/i+NvQ7qLtdmreVGsPyBhn2nOAqm7z6U4V4ghzUW5u2sbC6qE +XX5qrxFD5aKhaEEbFvS98madkRfDpb9la9OdWaDoFE13shLD/NpbKRb+LGje +XsLdVSSGLxw+bl6RyoIl5tzzZ6bi+CpNPyqrmQU55Qk3l5jiaKD234hLG/V/ +bo4MdSdxHMrd4S/RyQK7R3zmWYHiqLa46WLeSxYUWxB37LLFUedF3ieP9yww +RNtzT96J4/n701WbllgQZXTZpyNFAkvyIkWGdNlgU8o/a5spgU/FLZum9NlA +5zmc8fysBIpfjPnz24gNXT1u7O4KCfxd3qbEj2zQ2L+Wa/i5BIpa95mstmPD +5/K48v+kJJGbd0ushz8bvETsp6TvSGLcShv/kNNs0D10L/lSgySaGdMU1+Wy +ge+DihitTRL5t/4beyufDXW3uUB5QBIXzQpejhaxQcy2LkdrWRLDLxX5bSij +xk9W1NtmK4WksxAfXy0btn5bTIgYlUKlY6oss7dsiLfKV304KYV3RHUGQ96x +oeqy+hvheSmU2F394MwIGyRcfI3qeKUxL12+5vU4GyZrH/3k0pDGFU9sfEyn +2ZCXkhNddFAaf5aFDQX/ZUP74EbFyWRp/CPi0ejDQcIfvZZus1PS+Dlg1nMH +Jwl7Ps3pjF2Uxvu7/+nW4ibB2M5zRqNFGoVEYu+0riPhg6hyROs6GWSapyY6 +ypAgvu+BrLi4DK6EHF9hORLs2nc+CyFk0NArfGW3PAk1Cac2CejK4KrGlQVW +CiScfPd9YtdOGQzwb5pYq0qCzvV7Qd+uyOCTzbpVi/okJJs6+UkZyuJ4gMre +cHsSrLwv/WewRRaZMm97PzqQwJ/09ZirnSyqj3UnejmRcKElrTzHVxajTSby +TF1IqLWp/8p9QhZ7gPXsxS4Svu9UiP0xIIufumyELQJI+DdhP4/gmCw6tGs2 +JAWScPRCY6HGtCxybw6vqt9Dwtr37vdCOOXwUl9ppEIICRuCMjneq8qhK99C +Wns4Cd4xcyefHpJDuQQyxS+WBKVzW2Qm0uSQU1hKJCCOpPb/9C2eHDlUt5Ff +3H2QhIQ/G7u2lMnhuPWfNtcEEs4e8xateyqHcSgSL3CUBK9rN8v7+uSw62B0 +6yxl+uNfBrPv5VDZ9FhoXyIJLL48D805aj7Mzo7sZBKennlcck1WHvlU+L92 +p5KQd0dEu2WDPMoVTNAupJHg0evX/F5bHiOsn9f5Hifhs8SfMWmmPIqPTgq8 +SyeBq1RLNTdCHr/PZIWxTpLQ+fDIvdsH5fH9u6vNnqdIyBnttHuWIo9M9E3i +yiRBbkPgPt5z8vg1U0vfKouqh6qiu0cfyOORjypXy0+TsPX186Xpdnn83/Ls +sFoOCfYcKy19XslT6wtavkXZ3zliAMblsW9QaqbiDAnMQ7TEpFUEBhX+uBmf +R8ITgYarhnwEVoQTtI+UHcvc2r/zE+jo/TDJIZ8Ez2enBP0kCLyT7copeZaE +/fLzV83VCEwcrlRILyBh7k5O+4ImgV2NHisGKSdYqU2x9Qj8Mn/4hdo5EtIi +ffXpZgRy2apjK2U+7t8eb7YQaHxv69iaQmq9xWcTcy0JzNIYPeRIubils53T +icBL6l0ZXZTldwZO1bsSmKdctbymiISyyWXBKA8Cef9oh2+lrJpcrK/mQ+A3 +S6VX8ZRvi272HPUn8GqAs2YlZb0bLxLPBxPoFZaaNki53iy0bEc4gWWG6b08 +xSS0BpVMtcQS2Gims8edsvUfI6HDhwisHI2pSKD8PKdHXy+JQE/6w0/FlF2U +9nlOphKocWJUsZbyQN3qpLITBFbvvuX7irK3fVmZVzaBatXfzn+hPPbBrEMk +j9oP88OvlyiHxA1MPT1HYE+qkojAeRKm10QLpV0gcPrOfWdZylGl/AaMywSy +7kvnq1D+pXfdc+4agee2Cw5oUT7aYZF06waBZx5G0/Upc3kPlwXeJjBGVybS +kHLGfwc7ZO8SeDRq+JEBZf504eneWgJrePNoepTzpKuEshsJTNISSlOnLMGy +MmA2Ezj3Vm9GgfLFraOef9sIDK/r2SNOmT5wJKnmCYH/yT/9yEO5IlziWkQX +tT/0+cg5aj3qnHc6lHsJ9D2usfo9ZbJg+/TwAIFvm51uPaZsqPZZ6NwwgYc4 +GT6VlBsfpBg4jBKYTnsun015i4usF89nAv+9NfotjPLjz/8mPZgk8Ma4V5cV +ZbsjztfiZgi0rZVsplF+JTjVoTlPoFvr4qOf1Hm6l6dPf1oksMl9ZKiT8pAx +Xbh0mdr/fbd5zlPe/aLBYOdKGgZVW1oGUw77NZPUvo6GA0MBvItUfRlH7hH7 +KETD2jD1vXWUeSfe3OSSoGGSjnVADOVrgy19ZnQatpQLyI1S9RvtYhjmtYGG +utt4RvIpb3lWuSJhEw2f/fxqZkF5+P7ZTdX6NHyRSnSdpfqh0oCv+ZUJDXmK +WlcZ/39/sI66f0ca7tX9++YN1U9iV4JS1GxpuNZ1LFiIskOaUf9lHxp+ZGfr +7qL6Ue7vrfAHATRU5/96/EMulW+xdK63ITT0r995LJhyRvAaDYloGlYX6x8O +pfq7yfbtsewMGkZJdJ9mUvmQ3eokWZlFQ/fIk9urs6m8Y7RVdeTS0IvFfZ+g +vKBxe2DlRRr+HDZomKLyRkcoWfMQm4a3JwQdfal84jg111pYQ8Pv+xLb7p6g ++oEr1KPmHg0ts84vrKK8d845beYRDTmlx4ovUflW1q84GPSGmk8H11QFlY9i +Je3HXbjoyDGWMUmn8nVMnCFzgJeOpINQm8URql5y2OzT6+j42qBuv99hav0p +xUOd4nRsPF1glkfldUZgmI75Jjq6u5qMdFF5v6C2fljdlY7aQxyh1REkzF+U +Stb1oGPJ7/LFCup+mBVQUjTyoWOEnEd2URjVXz+MQreG0PERH1drZCh1f97z +n/c4QkexoG2Zf6n7p9P2X/6Ma3S8ntjPPulF1V/jQ3bWDTpefTmyzsGTygfN +py55t+noKsZOXu9Bwn3hkeJLdXT8eG68+qQ7Nf9Bvg3Vz+jIrX0txsuZyq+9 +3vBhjo4vooIOx1qScO5t8IdPi9TzB3hm1zJJyHeISptapuPL3S2FpVup89HN +ePJrtQL22c9FPDAnIeU3211ATgFjL2+LHjSh9vfUqv2mTAXMqwkRydYkwfRm +ZWlBgQJ+i+lx+SRCwiBxs2TbeQVUdjkfvVWYqq+C65dmSxQwPUWUWSJI3bfJ +5RecryvgZnoDpz0/db47Swv5GxTQ4qsAVw4PCRtX5eccH1FAI71++v8WqPcj +n0NJsZsUsXuNEK/qEBtmhGx83ZoV8aFb5o3WYjb0h9G7Qh8rItm2xii4kA1N +bYuQ+FQRM44mhq4uYENOwk35ij5FXDGR0LD1DBu0Pqx9tzChiIl7dliVpLMh +gv3in4vCStg28ttrPIoNEw6unmMBSnjU4M2BJhs2jGX6uh3gUUa7X1ce8/3H +Autvcdbj+htQW75pYsqABZP+vFF3E1VQXvUGxt2oor4PxDnTmzeii74hbaGt +EoSeKWezvqlimngG/+bJGyCTcdtRX38TujwsuOH9pgIK1YzWCwepo0jfT5Xz +H8uhU8p8848zGijzt2t9xnIZGMs052j2aaLr4kattoUrwM91JdovRQsFXEnT +JOXLIJcsb7pLWRtbDMWcStIuwWolrxrnx9pY2bxxPpz7PGgwJG/H/aODFe8i +y28vnIMDw0ItNhy6eNFjNFlsIh++/ch0tS7UxQfH/hFttc0FS822Ymt1PVys +d1Ho/Hwa7v8w+f3zuR5mGhSF39lxCiI26bx5GbgZxdokY0KT04ExHdCza7U+ +TsdzCjb3HoNtihLb113Rx5owJS7l7iRQSTp5sNnAAC+vauzYE38YVAONHii9 +McDycVHJq+fjIPB+cOrdSENMPNX1V/tuFDwo7QmYETVCTq5n1Rcl9sNsxfJP +zX+N8PMG87eEcSh8dGOWnqgzwr0jv8M6lUKhf2WW1eg9I1y6yxmfLBgK93yl +igqajPCBbsKE+JcQSJHYbLzUYYTzR8SixgtDYH1G6OHOISMU1O8hlhaDYVNQ +L0cgpzFmvos4+K09CPyVbq4u3m6MhzSS7UNPBkLCI+9QZUdjbGNsfP8kLhBy +AoWekM7GWCZ+zt0kMBAarsVnPnE3Rsdjwq8tMBBElK0ElvyMcXbOSW9xPgDa +lMdFfGONcTR43H5uTwCoqsgTyiXGKGkS/3TS0R9mVPP0ye/GOJZ0wEXF1g/6 +n+I24R/GKLtRabbD1A+aIqZ3RM9Rz5vZ/idGww+ySetI/UVjXGwg1acE/UDV +mKOynssEY+Kk97oP+MJu63Bai5gJJilb84mF+kJPkOXaHlMTvH+gy1RR2Qdq +y36PzGWYYHDhtm1HubxA3yL6p80pE/SbPPRt/aQnVI9Mri3NMkHh40de3u3x +BFJu2MAm1wQ7trkIa5V7QmVhU9al8yb4Q2tn2A9rTyjNTDOyrDLBkpFXkWX5 +HnAiWuBMYbcJuqbOFAbr7wKPrQpoImeKPuOFZduvu8FSDy9/C2GKRWsLdI3y +3aA0cHrQRsEUW51BTj/RDT4er4vzUDHFJye+9Pm7usGBDofb8TqmyK+z8UQW +pxuctD8sV8s0RcPVbaUCvq5Qv7P3j94+U5xx4LU6ssEFpMPT6zSaTHGPtU3d +8XEnyF7es/lUsyla9BL0vF4n4Mxlsj+1mqJVXJdB5SMnmKhZdb20wxSttcos +V5Y7QT1HaqFQtyletAhbYxvkBB75SXHz46YoXTveojbpCIX34jffX8PAIe8D +d5aXHECUL4y93Z2B0mIjD72z7aDM4kjC910MvFj4144ZaQc6R7It8rwYWJNk +ss/KxQ7sv7N6+/0YeGdPr9IFKTs43je34B/GQMOFPPHEClv4dSVxS0IyA59n +JIrROmzgjUled/lNarzuI25WstYQHFN2wbqKgbnjZt6eXNYwX1UdOMlioOKt +pwnHv1iBEL3/p3YNAxOuGlxTrLECW15ZmcYmBkr12ZcfdbSChp7ygO5eBpro +LdcWnrAEG/5a9dh+BlZ2PZBVjLSEfsuOeYlBBppz+gW37bSE2fqvGd7vGfji +qWqgg4olqF/WuvVlgoE03dpf+9uZ0PDGPDZzioF8zdwZbBYTbER2gOZ3BnLv +1w3lLWLCnvSYl9FzDFT6kDr8K4QJs03Hi8V/MfD6nRi7XGcmpCye869fZODV +mqFWcxMmrNe7vumfJWo8gcbNPIpMuBReP7e8zMCpZKWsD2uZ8H+GVhOV "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "PlotRange" -> {{0, 30}, {0., 0.07268097650030632}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +14120,19 @@ M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "PlotRange" -> {{0, 30}, {0., 0.07268097650030632}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +14146,123 @@ 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:eJwV13c8lf/7B3BRSEX25j7HSGTLPq5L6phZGYWPETJCyYqGEVEhIaFBJV+V +dM5dfBAlJLSUEZESGkL5hKLkd//+Oo/nH+d+r+t6ve+btnufcyAnBweH3AoO +jv//nR/uaFU8VWYWNJFdpTKyxaznkkS8eX8KHLb+HHTUiQYo+mK3RH8upL1t +z3Nz0oZYxxuvufqvgGb84b0mTuYgOC2eu/CaBMO5suH1Tk7wrsF+3+zrZrBw +EahNd/QDpuLE25nXryDEd7Azyj4SFl4bnP3++gM4pgu90mAmQ4vF/8peXvkB +Mdi+/efAGZB5V/dx96YloGtpNJ5RLwaRMJ8bPBZc2KrHufx+sRRytZn37F15 +MdVDL613sgwGCrWaZtavw/j8h+vGbSvgVFniC05JQdy3Unbs6+mbIJ4/eiLv +ojBuMe7hFnGrAgm16tRf5cK4pPxpOM+nCqSajyf+wxLGax9euawLqQK57xtj +NrQIYxBxQHTqUBUo2e33vfdZGKXPLLT7XK4C3ZVL+qO6IrhFsm1h/dcqcIgW +G9PpFEE+9y+/i+NvQ7qLtdmreVGsPyBhn2nOAqm7z6U4V4ghzUW5u2sbC6qE +XX5qrxFD5aKhaEEbFvS98madkRfDpb9la9OdWaDoFE13shLD/NpbKRb+LGje +XsLdVSSGLxw+bl6RyoIl5tzzZ6bi+CpNPyqrmQU55Qk3l5jiaKD234hLG/V/ +bo4MdSdxHMrd4S/RyQK7R3zmWYHiqLa46WLeSxYUWxB37LLFUedF3ieP9yww +RNtzT96J4/n701WbllgQZXTZpyNFAkvyIkWGdNlgU8o/a5spgU/FLZum9NlA +5zmc8fysBIpfjPnz24gNXT1u7O4KCfxd3qbEj2zQ2L+Wa/i5BIpa95mstmPD +5/K48v+kJJGbd0ushz8bvETsp6TvSGLcShv/kNNs0D10L/lSgySaGdMU1+Wy +ge+DihitTRL5t/4beyufDXW3uUB5QBIXzQpejhaxQcy2LkdrWRLDLxX5bSij +xk9W1NtmK4WksxAfXy0btn5bTIgYlUKlY6oss7dsiLfKV304KYV3RHUGQ96x +oeqy+hvheSmU2F394MwIGyRcfI3qeKUxL12+5vU4GyZrH/3k0pDGFU9sfEyn +2ZCXkhNddFAaf5aFDQX/ZUP74EbFyWRp/CPi0ejDQcIfvZZus1PS+Dlg1nMH +Jwl7Ps3pjF2Uxvu7/+nW4ibB2M5zRqNFGoVEYu+0riPhg6hyROs6GWSapyY6 +ypAgvu+BrLi4DK6EHF9hORLs2nc+CyFk0NArfGW3PAk1Cac2CejK4KrGlQVW +CiScfPd9YtdOGQzwb5pYq0qCzvV7Qd+uyOCTzbpVi/okJJs6+UkZyuJ4gMre +cHsSrLwv/WewRRaZMm97PzqQwJ/09ZirnSyqj3UnejmRcKElrTzHVxajTSby +TF1IqLWp/8p9QhZ7gPXsxS4Svu9UiP0xIIufumyELQJI+DdhP4/gmCw6tGs2 +JAWScPRCY6HGtCxybw6vqt9Dwtr37vdCOOXwUl9ppEIICRuCMjneq8qhK99C +Wns4Cd4xcyefHpJDuQQyxS+WBKVzW2Qm0uSQU1hKJCCOpPb/9C2eHDlUt5Ff +3H2QhIQ/G7u2lMnhuPWfNtcEEs4e8xateyqHcSgSL3CUBK9rN8v7+uSw62B0 +6yxl+uNfBrPv5VDZ9FhoXyIJLL48D805aj7Mzo7sZBKennlcck1WHvlU+L92 +p5KQd0dEu2WDPMoVTNAupJHg0evX/F5bHiOsn9f5Hifhs8SfMWmmPIqPTgq8 +SyeBq1RLNTdCHr/PZIWxTpLQ+fDIvdsH5fH9u6vNnqdIyBnttHuWIo9M9E3i +yiRBbkPgPt5z8vg1U0vfKouqh6qiu0cfyOORjypXy0+TsPX186Xpdnn83/Ls +sFoOCfYcKy19XslT6wtavkXZ3zliAMblsW9QaqbiDAnMQ7TEpFUEBhX+uBmf +R8ITgYarhnwEVoQTtI+UHcvc2r/zE+jo/TDJIZ8Ez2enBP0kCLyT7copeZaE +/fLzV83VCEwcrlRILyBh7k5O+4ImgV2NHisGKSdYqU2x9Qj8Mn/4hdo5EtIi +ffXpZgRy2apjK2U+7t8eb7YQaHxv69iaQmq9xWcTcy0JzNIYPeRIubils53T +icBL6l0ZXZTldwZO1bsSmKdctbymiISyyWXBKA8Cef9oh2+lrJpcrK/mQ+A3 +S6VX8ZRvi272HPUn8GqAs2YlZb0bLxLPBxPoFZaaNki53iy0bEc4gWWG6b08 +xSS0BpVMtcQS2Gims8edsvUfI6HDhwisHI2pSKD8PKdHXy+JQE/6w0/FlF2U +9nlOphKocWJUsZbyQN3qpLITBFbvvuX7irK3fVmZVzaBatXfzn+hPPbBrEMk +j9oP88OvlyiHxA1MPT1HYE+qkojAeRKm10QLpV0gcPrOfWdZylGl/AaMywSy +7kvnq1D+pXfdc+4agee2Cw5oUT7aYZF06waBZx5G0/Upc3kPlwXeJjBGVybS +kHLGfwc7ZO8SeDRq+JEBZf504eneWgJrePNoepTzpKuEshsJTNISSlOnLMGy +MmA2Ezj3Vm9GgfLFraOef9sIDK/r2SNOmT5wJKnmCYH/yT/9yEO5IlziWkQX +tT/0+cg5aj3qnHc6lHsJ9D2usfo9ZbJg+/TwAIFvm51uPaZsqPZZ6NwwgYc4 +GT6VlBsfpBg4jBKYTnsun015i4usF89nAv+9NfotjPLjz/8mPZgk8Ma4V5cV +ZbsjztfiZgi0rZVsplF+JTjVoTlPoFvr4qOf1Hm6l6dPf1oksMl9ZKiT8pAx +Xbh0mdr/fbd5zlPe/aLBYOdKGgZVW1oGUw77NZPUvo6GA0MBvItUfRlH7hH7 +KETD2jD1vXWUeSfe3OSSoGGSjnVADOVrgy19ZnQatpQLyI1S9RvtYhjmtYGG +utt4RvIpb3lWuSJhEw2f/fxqZkF5+P7ZTdX6NHyRSnSdpfqh0oCv+ZUJDXmK +WlcZ/39/sI66f0ca7tX9++YN1U9iV4JS1GxpuNZ1LFiIskOaUf9lHxp+ZGfr +7qL6Ue7vrfAHATRU5/96/EMulW+xdK63ITT0r995LJhyRvAaDYloGlYX6x8O +pfq7yfbtsewMGkZJdJ9mUvmQ3eokWZlFQ/fIk9urs6m8Y7RVdeTS0IvFfZ+g +vKBxe2DlRRr+HDZomKLyRkcoWfMQm4a3JwQdfal84jg111pYQ8Pv+xLb7p6g ++oEr1KPmHg0ts84vrKK8d845beYRDTmlx4ovUflW1q84GPSGmk8H11QFlY9i +Je3HXbjoyDGWMUmn8nVMnCFzgJeOpINQm8URql5y2OzT6+j42qBuv99hav0p +xUOd4nRsPF1glkfldUZgmI75Jjq6u5qMdFF5v6C2fljdlY7aQxyh1REkzF+U +Stb1oGPJ7/LFCup+mBVQUjTyoWOEnEd2URjVXz+MQreG0PERH1drZCh1f97z +n/c4QkexoG2Zf6n7p9P2X/6Ma3S8ntjPPulF1V/jQ3bWDTpefTmyzsGTygfN +py55t+noKsZOXu9Bwn3hkeJLdXT8eG68+qQ7Nf9Bvg3Vz+jIrX0txsuZyq+9 +3vBhjo4vooIOx1qScO5t8IdPi9TzB3hm1zJJyHeISptapuPL3S2FpVup89HN +ePJrtQL22c9FPDAnIeU3211ATgFjL2+LHjSh9vfUqv2mTAXMqwkRydYkwfRm +ZWlBgQJ+i+lx+SRCwiBxs2TbeQVUdjkfvVWYqq+C65dmSxQwPUWUWSJI3bfJ +5RecryvgZnoDpz0/db47Swv5GxTQ4qsAVw4PCRtX5eccH1FAI71++v8WqPcj +n0NJsZsUsXuNEK/qEBtmhGx83ZoV8aFb5o3WYjb0h9G7Qh8rItm2xii4kA1N +bYuQ+FQRM44mhq4uYENOwk35ij5FXDGR0LD1DBu0Pqx9tzChiIl7dliVpLMh +gv3in4vCStg28ttrPIoNEw6unmMBSnjU4M2BJhs2jGX6uh3gUUa7X1ce8/3H +Autvcdbj+htQW75pYsqABZP+vFF3E1VQXvUGxt2oor4PxDnTmzeii74hbaGt +EoSeKWezvqlimngG/+bJGyCTcdtRX38TujwsuOH9pgIK1YzWCwepo0jfT5Xz +H8uhU8p8848zGijzt2t9xnIZGMs052j2aaLr4kattoUrwM91JdovRQsFXEnT +JOXLIJcsb7pLWRtbDMWcStIuwWolrxrnx9pY2bxxPpz7PGgwJG/H/aODFe8i +y28vnIMDw0ItNhy6eNFjNFlsIh++/ch0tS7UxQfH/hFttc0FS822Ymt1PVys +d1Ho/Hwa7v8w+f3zuR5mGhSF39lxCiI26bx5GbgZxdokY0KT04ExHdCza7U+ +TsdzCjb3HoNtihLb113Rx5owJS7l7iRQSTp5sNnAAC+vauzYE38YVAONHii9 +McDycVHJq+fjIPB+cOrdSENMPNX1V/tuFDwo7QmYETVCTq5n1Rcl9sNsxfJP +zX+N8PMG87eEcSh8dGOWnqgzwr0jv8M6lUKhf2WW1eg9I1y6yxmfLBgK93yl +igqajPCBbsKE+JcQSJHYbLzUYYTzR8SixgtDYH1G6OHOISMU1O8hlhaDYVNQ +L0cgpzFmvos4+K09CPyVbq4u3m6MhzSS7UNPBkLCI+9QZUdjbGNsfP8kLhBy +AoWekM7GWCZ+zt0kMBAarsVnPnE3Rsdjwq8tMBBElK0ElvyMcXbOSW9xPgDa +lMdFfGONcTR43H5uTwCoqsgTyiXGKGkS/3TS0R9mVPP0ye/GOJZ0wEXF1g/6 +n+I24R/GKLtRabbD1A+aIqZ3RM9Rz5vZ/idGww+ySetI/UVjXGwg1acE/UDV +mKOynssEY+Kk97oP+MJu63Bai5gJJilb84mF+kJPkOXaHlMTvH+gy1RR2Qdq +y36PzGWYYHDhtm1HubxA3yL6p80pE/SbPPRt/aQnVI9Mri3NMkHh40de3u3x +BFJu2MAm1wQ7trkIa5V7QmVhU9al8yb4Q2tn2A9rTyjNTDOyrDLBkpFXkWX5 +HnAiWuBMYbcJuqbOFAbr7wKPrQpoImeKPuOFZduvu8FSDy9/C2GKRWsLdI3y +3aA0cHrQRsEUW51BTj/RDT4er4vzUDHFJye+9Pm7usGBDofb8TqmyK+z8UQW +pxuctD8sV8s0RcPVbaUCvq5Qv7P3j94+U5xx4LU6ssEFpMPT6zSaTHGPtU3d +8XEnyF7es/lUsyla9BL0vF4n4Mxlsj+1mqJVXJdB5SMnmKhZdb20wxSttcos +V5Y7QT1HaqFQtyletAhbYxvkBB75SXHz46YoXTveojbpCIX34jffX8PAIe8D +d5aXHECUL4y93Z2B0mIjD72z7aDM4kjC910MvFj4144ZaQc6R7It8rwYWJNk +ss/KxQ7sv7N6+/0YeGdPr9IFKTs43je34B/GQMOFPPHEClv4dSVxS0IyA59n +JIrROmzgjUled/lNarzuI25WstYQHFN2wbqKgbnjZt6eXNYwX1UdOMlioOKt +pwnHv1iBEL3/p3YNAxOuGlxTrLECW15ZmcYmBkr12ZcfdbSChp7ygO5eBpro +LdcWnrAEG/5a9dh+BlZ2PZBVjLSEfsuOeYlBBppz+gW37bSE2fqvGd7vGfji +qWqgg4olqF/WuvVlgoE03dpf+9uZ0PDGPDZzioF8zdwZbBYTbER2gOZ3BnLv +1w3lLWLCnvSYl9FzDFT6kDr8K4QJs03Hi8V/MfD6nRi7XGcmpCye869fZODV +mqFWcxMmrNe7vumfJWo8gcbNPIpMuBReP7e8zMCpZKWsD2uZ8H+GVhOV "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "PlotRange" -> {{0, 30}, {0., 0.07268097650030632}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +14273,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 +14301,8 @@ M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.17388882737814787`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07268097650030632}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -8859,17 +14310,589 @@ M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913324679337597`*^9}, + CellChangeTimes->{3.9913324679337597`*^9, 3.993961713832102*^9}, CellLabel-> - "Out[221]=",ExpressionUUID->"0c8adc65-2b3c-a14f-87e8-79cdde17788b"] + "Out[140]=",ExpressionUUID->"1e5f2a59-311b-45c8-af42-be3d466b7803"] }, 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:eJwV13c8lf/7B3BRSEX25j7HSGTLPq5L6phZGYWPETJCyYqGEVEhIaFBJV+V +dM5dfBAlJLSUEZESGkL5hKLkd//+Oo/nH+d+r+t6ve+btnufcyAnBweH3AoO +jv//nR/uaFU8VWYWNJFdpTKyxaznkkS8eX8KHLb+HHTUiQYo+mK3RH8upL1t +z3Nz0oZYxxuvufqvgGb84b0mTuYgOC2eu/CaBMO5suH1Tk7wrsF+3+zrZrBw +EahNd/QDpuLE25nXryDEd7Azyj4SFl4bnP3++gM4pgu90mAmQ4vF/8peXvkB +Mdi+/efAGZB5V/dx96YloGtpNJ5RLwaRMJ8bPBZc2KrHufx+sRRytZn37F15 +MdVDL613sgwGCrWaZtavw/j8h+vGbSvgVFniC05JQdy3Unbs6+mbIJ4/eiLv +ojBuMe7hFnGrAgm16tRf5cK4pPxpOM+nCqSajyf+wxLGax9euawLqQK57xtj +NrQIYxBxQHTqUBUo2e33vfdZGKXPLLT7XK4C3ZVL+qO6IrhFsm1h/dcqcIgW +G9PpFEE+9y+/i+NvQ7qLtdmreVGsPyBhn2nOAqm7z6U4V4ghzUW5u2sbC6qE +XX5qrxFD5aKhaEEbFvS98madkRfDpb9la9OdWaDoFE13shLD/NpbKRb+LGje +XsLdVSSGLxw+bl6RyoIl5tzzZ6bi+CpNPyqrmQU55Qk3l5jiaKD234hLG/V/ +bo4MdSdxHMrd4S/RyQK7R3zmWYHiqLa46WLeSxYUWxB37LLFUedF3ieP9yww +RNtzT96J4/n701WbllgQZXTZpyNFAkvyIkWGdNlgU8o/a5spgU/FLZum9NlA +5zmc8fysBIpfjPnz24gNXT1u7O4KCfxd3qbEj2zQ2L+Wa/i5BIpa95mstmPD +5/K48v+kJJGbd0ushz8bvETsp6TvSGLcShv/kNNs0D10L/lSgySaGdMU1+Wy +ge+DihitTRL5t/4beyufDXW3uUB5QBIXzQpejhaxQcy2LkdrWRLDLxX5bSij +xk9W1NtmK4WksxAfXy0btn5bTIgYlUKlY6oss7dsiLfKV304KYV3RHUGQ96x +oeqy+hvheSmU2F394MwIGyRcfI3qeKUxL12+5vU4GyZrH/3k0pDGFU9sfEyn +2ZCXkhNddFAaf5aFDQX/ZUP74EbFyWRp/CPi0ejDQcIfvZZus1PS+Dlg1nMH +Jwl7Ps3pjF2Uxvu7/+nW4ibB2M5zRqNFGoVEYu+0riPhg6hyROs6GWSapyY6 +ypAgvu+BrLi4DK6EHF9hORLs2nc+CyFk0NArfGW3PAk1Cac2CejK4KrGlQVW +CiScfPd9YtdOGQzwb5pYq0qCzvV7Qd+uyOCTzbpVi/okJJs6+UkZyuJ4gMre +cHsSrLwv/WewRRaZMm97PzqQwJ/09ZirnSyqj3UnejmRcKElrTzHVxajTSby +TF1IqLWp/8p9QhZ7gPXsxS4Svu9UiP0xIIufumyELQJI+DdhP4/gmCw6tGs2 +JAWScPRCY6HGtCxybw6vqt9Dwtr37vdCOOXwUl9ppEIICRuCMjneq8qhK99C +Wns4Cd4xcyefHpJDuQQyxS+WBKVzW2Qm0uSQU1hKJCCOpPb/9C2eHDlUt5Ff +3H2QhIQ/G7u2lMnhuPWfNtcEEs4e8xateyqHcSgSL3CUBK9rN8v7+uSw62B0 +6yxl+uNfBrPv5VDZ9FhoXyIJLL48D805aj7Mzo7sZBKennlcck1WHvlU+L92 +p5KQd0dEu2WDPMoVTNAupJHg0evX/F5bHiOsn9f5Hifhs8SfMWmmPIqPTgq8 +SyeBq1RLNTdCHr/PZIWxTpLQ+fDIvdsH5fH9u6vNnqdIyBnttHuWIo9M9E3i +yiRBbkPgPt5z8vg1U0vfKouqh6qiu0cfyOORjypXy0+TsPX186Xpdnn83/Ls +sFoOCfYcKy19XslT6wtavkXZ3zliAMblsW9QaqbiDAnMQ7TEpFUEBhX+uBmf +R8ITgYarhnwEVoQTtI+UHcvc2r/zE+jo/TDJIZ8Ez2enBP0kCLyT7copeZaE +/fLzV83VCEwcrlRILyBh7k5O+4ImgV2NHisGKSdYqU2x9Qj8Mn/4hdo5EtIi +ffXpZgRy2apjK2U+7t8eb7YQaHxv69iaQmq9xWcTcy0JzNIYPeRIubils53T +icBL6l0ZXZTldwZO1bsSmKdctbymiISyyWXBKA8Cef9oh2+lrJpcrK/mQ+A3 +S6VX8ZRvi272HPUn8GqAs2YlZb0bLxLPBxPoFZaaNki53iy0bEc4gWWG6b08 +xSS0BpVMtcQS2Gims8edsvUfI6HDhwisHI2pSKD8PKdHXy+JQE/6w0/FlF2U +9nlOphKocWJUsZbyQN3qpLITBFbvvuX7irK3fVmZVzaBatXfzn+hPPbBrEMk +j9oP88OvlyiHxA1MPT1HYE+qkojAeRKm10QLpV0gcPrOfWdZylGl/AaMywSy +7kvnq1D+pXfdc+4agee2Cw5oUT7aYZF06waBZx5G0/Upc3kPlwXeJjBGVybS +kHLGfwc7ZO8SeDRq+JEBZf504eneWgJrePNoepTzpKuEshsJTNISSlOnLMGy +MmA2Ezj3Vm9GgfLFraOef9sIDK/r2SNOmT5wJKnmCYH/yT/9yEO5IlziWkQX +tT/0+cg5aj3qnHc6lHsJ9D2usfo9ZbJg+/TwAIFvm51uPaZsqPZZ6NwwgYc4 +GT6VlBsfpBg4jBKYTnsun015i4usF89nAv+9NfotjPLjz/8mPZgk8Ma4V5cV +ZbsjztfiZgi0rZVsplF+JTjVoTlPoFvr4qOf1Hm6l6dPf1oksMl9ZKiT8pAx +Xbh0mdr/fbd5zlPe/aLBYOdKGgZVW1oGUw77NZPUvo6GA0MBvItUfRlH7hH7 +KETD2jD1vXWUeSfe3OSSoGGSjnVADOVrgy19ZnQatpQLyI1S9RvtYhjmtYGG +utt4RvIpb3lWuSJhEw2f/fxqZkF5+P7ZTdX6NHyRSnSdpfqh0oCv+ZUJDXmK +WlcZ/39/sI66f0ca7tX9++YN1U9iV4JS1GxpuNZ1LFiIskOaUf9lHxp+ZGfr +7qL6Ue7vrfAHATRU5/96/EMulW+xdK63ITT0r995LJhyRvAaDYloGlYX6x8O +pfq7yfbtsewMGkZJdJ9mUvmQ3eokWZlFQ/fIk9urs6m8Y7RVdeTS0IvFfZ+g +vKBxe2DlRRr+HDZomKLyRkcoWfMQm4a3JwQdfal84jg111pYQ8Pv+xLb7p6g ++oEr1KPmHg0ts84vrKK8d845beYRDTmlx4ovUflW1q84GPSGmk8H11QFlY9i +Je3HXbjoyDGWMUmn8nVMnCFzgJeOpINQm8URql5y2OzT6+j42qBuv99hav0p +xUOd4nRsPF1glkfldUZgmI75Jjq6u5qMdFF5v6C2fljdlY7aQxyh1REkzF+U +Stb1oGPJ7/LFCup+mBVQUjTyoWOEnEd2URjVXz+MQreG0PERH1drZCh1f97z +n/c4QkexoG2Zf6n7p9P2X/6Ma3S8ntjPPulF1V/jQ3bWDTpefTmyzsGTygfN +py55t+noKsZOXu9Bwn3hkeJLdXT8eG68+qQ7Nf9Bvg3Vz+jIrX0txsuZyq+9 +3vBhjo4vooIOx1qScO5t8IdPi9TzB3hm1zJJyHeISptapuPL3S2FpVup89HN +ePJrtQL22c9FPDAnIeU3211ATgFjL2+LHjSh9vfUqv2mTAXMqwkRydYkwfRm +ZWlBgQJ+i+lx+SRCwiBxs2TbeQVUdjkfvVWYqq+C65dmSxQwPUWUWSJI3bfJ +5RecryvgZnoDpz0/db47Swv5GxTQ4qsAVw4PCRtX5eccH1FAI71++v8WqPcj +n0NJsZsUsXuNEK/qEBtmhGx83ZoV8aFb5o3WYjb0h9G7Qh8rItm2xii4kA1N +bYuQ+FQRM44mhq4uYENOwk35ij5FXDGR0LD1DBu0Pqx9tzChiIl7dliVpLMh +gv3in4vCStg28ttrPIoNEw6unmMBSnjU4M2BJhs2jGX6uh3gUUa7X1ce8/3H +Autvcdbj+htQW75pYsqABZP+vFF3E1VQXvUGxt2oor4PxDnTmzeii74hbaGt +EoSeKWezvqlimngG/+bJGyCTcdtRX38TujwsuOH9pgIK1YzWCwepo0jfT5Xz +H8uhU8p8848zGijzt2t9xnIZGMs052j2aaLr4kattoUrwM91JdovRQsFXEnT +JOXLIJcsb7pLWRtbDMWcStIuwWolrxrnx9pY2bxxPpz7PGgwJG/H/aODFe8i +y28vnIMDw0ItNhy6eNFjNFlsIh++/ch0tS7UxQfH/hFttc0FS822Ymt1PVys +d1Ho/Hwa7v8w+f3zuR5mGhSF39lxCiI26bx5GbgZxdokY0KT04ExHdCza7U+ +TsdzCjb3HoNtihLb113Rx5owJS7l7iRQSTp5sNnAAC+vauzYE38YVAONHii9 +McDycVHJq+fjIPB+cOrdSENMPNX1V/tuFDwo7QmYETVCTq5n1Rcl9sNsxfJP +zX+N8PMG87eEcSh8dGOWnqgzwr0jv8M6lUKhf2WW1eg9I1y6yxmfLBgK93yl +igqajPCBbsKE+JcQSJHYbLzUYYTzR8SixgtDYH1G6OHOISMU1O8hlhaDYVNQ +L0cgpzFmvos4+K09CPyVbq4u3m6MhzSS7UNPBkLCI+9QZUdjbGNsfP8kLhBy +AoWekM7GWCZ+zt0kMBAarsVnPnE3Rsdjwq8tMBBElK0ElvyMcXbOSW9xPgDa +lMdFfGONcTR43H5uTwCoqsgTyiXGKGkS/3TS0R9mVPP0ye/GOJZ0wEXF1g/6 +n+I24R/GKLtRabbD1A+aIqZ3RM9Rz5vZ/idGww+ySetI/UVjXGwg1acE/UDV +mKOynssEY+Kk97oP+MJu63Bai5gJJilb84mF+kJPkOXaHlMTvH+gy1RR2Qdq +y36PzGWYYHDhtm1HubxA3yL6p80pE/SbPPRt/aQnVI9Mri3NMkHh40de3u3x +BFJu2MAm1wQ7trkIa5V7QmVhU9al8yb4Q2tn2A9rTyjNTDOyrDLBkpFXkWX5 +HnAiWuBMYbcJuqbOFAbr7wKPrQpoImeKPuOFZduvu8FSDy9/C2GKRWsLdI3y +3aA0cHrQRsEUW51BTj/RDT4er4vzUDHFJye+9Pm7usGBDofb8TqmyK+z8UQW +pxuctD8sV8s0RcPVbaUCvq5Qv7P3j94+U5xx4LU6ssEFpMPT6zSaTHGPtU3d +8XEnyF7es/lUsyla9BL0vF4n4Mxlsj+1mqJVXJdB5SMnmKhZdb20wxSttcos +V5Y7QT1HaqFQtyletAhbYxvkBB75SXHz46YoXTveojbpCIX34jffX8PAIe8D +d5aXHECUL4y93Z2B0mIjD72z7aDM4kjC910MvFj4144ZaQc6R7It8rwYWJNk +ss/KxQ7sv7N6+/0YeGdPr9IFKTs43je34B/GQMOFPPHEClv4dSVxS0IyA59n +JIrROmzgjUled/lNarzuI25WstYQHFN2wbqKgbnjZt6eXNYwX1UdOMlioOKt +pwnHv1iBEL3/p3YNAxOuGlxTrLECW15ZmcYmBkr12ZcfdbSChp7ygO5eBpro +LdcWnrAEG/5a9dh+BlZ2PZBVjLSEfsuOeYlBBppz+gW37bSE2fqvGd7vGfji +qWqgg4olqF/WuvVlgoE03dpf+9uZ0PDGPDZzioF8zdwZbBYTbER2gOZ3BnLv +1w3lLWLCnvSYl9FzDFT6kDr8K4QJs03Hi8V/MfD6nRi7XGcmpCye869fZODV +mqFWcxMmrNe7vumfJWo8gcbNPIpMuBReP7e8zMCpZKWsD2uZ8H+GVhOV + "]]}, + 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:eJwV13c8lf/7B3BRSEX25j7HSGTLPq5L6phZGYWPETJCyYqGEVEhIaFBJV+V +dM5dfBAlJLSUEZESGkL5hKLkd//+Oo/nH+d+r+t6ve+btnufcyAnBweH3AoO +jv//nR/uaFU8VWYWNJFdpTKyxaznkkS8eX8KHLb+HHTUiQYo+mK3RH8upL1t +z3Nz0oZYxxuvufqvgGb84b0mTuYgOC2eu/CaBMO5suH1Tk7wrsF+3+zrZrBw +EahNd/QDpuLE25nXryDEd7Azyj4SFl4bnP3++gM4pgu90mAmQ4vF/8peXvkB +Mdi+/efAGZB5V/dx96YloGtpNJ5RLwaRMJ8bPBZc2KrHufx+sRRytZn37F15 +MdVDL613sgwGCrWaZtavw/j8h+vGbSvgVFniC05JQdy3Unbs6+mbIJ4/eiLv +ojBuMe7hFnGrAgm16tRf5cK4pPxpOM+nCqSajyf+wxLGax9euawLqQK57xtj +NrQIYxBxQHTqUBUo2e33vfdZGKXPLLT7XK4C3ZVL+qO6IrhFsm1h/dcqcIgW +G9PpFEE+9y+/i+NvQ7qLtdmreVGsPyBhn2nOAqm7z6U4V4ghzUW5u2sbC6qE +XX5qrxFD5aKhaEEbFvS98madkRfDpb9la9OdWaDoFE13shLD/NpbKRb+LGje +XsLdVSSGLxw+bl6RyoIl5tzzZ6bi+CpNPyqrmQU55Qk3l5jiaKD234hLG/V/ +bo4MdSdxHMrd4S/RyQK7R3zmWYHiqLa46WLeSxYUWxB37LLFUedF3ieP9yww +RNtzT96J4/n701WbllgQZXTZpyNFAkvyIkWGdNlgU8o/a5spgU/FLZum9NlA +5zmc8fysBIpfjPnz24gNXT1u7O4KCfxd3qbEj2zQ2L+Wa/i5BIpa95mstmPD +5/K48v+kJJGbd0ushz8bvETsp6TvSGLcShv/kNNs0D10L/lSgySaGdMU1+Wy +ge+DihitTRL5t/4beyufDXW3uUB5QBIXzQpejhaxQcy2LkdrWRLDLxX5bSij +xk9W1NtmK4WksxAfXy0btn5bTIgYlUKlY6oss7dsiLfKV304KYV3RHUGQ96x +oeqy+hvheSmU2F394MwIGyRcfI3qeKUxL12+5vU4GyZrH/3k0pDGFU9sfEyn +2ZCXkhNddFAaf5aFDQX/ZUP74EbFyWRp/CPi0ejDQcIfvZZus1PS+Dlg1nMH +Jwl7Ps3pjF2Uxvu7/+nW4ibB2M5zRqNFGoVEYu+0riPhg6hyROs6GWSapyY6 +ypAgvu+BrLi4DK6EHF9hORLs2nc+CyFk0NArfGW3PAk1Cac2CejK4KrGlQVW +CiScfPd9YtdOGQzwb5pYq0qCzvV7Qd+uyOCTzbpVi/okJJs6+UkZyuJ4gMre +cHsSrLwv/WewRRaZMm97PzqQwJ/09ZirnSyqj3UnejmRcKElrTzHVxajTSby +TF1IqLWp/8p9QhZ7gPXsxS4Svu9UiP0xIIufumyELQJI+DdhP4/gmCw6tGs2 +JAWScPRCY6HGtCxybw6vqt9Dwtr37vdCOOXwUl9ppEIICRuCMjneq8qhK99C +Wns4Cd4xcyefHpJDuQQyxS+WBKVzW2Qm0uSQU1hKJCCOpPb/9C2eHDlUt5Ff +3H2QhIQ/G7u2lMnhuPWfNtcEEs4e8xateyqHcSgSL3CUBK9rN8v7+uSw62B0 +6yxl+uNfBrPv5VDZ9FhoXyIJLL48D805aj7Mzo7sZBKennlcck1WHvlU+L92 +p5KQd0dEu2WDPMoVTNAupJHg0evX/F5bHiOsn9f5Hifhs8SfMWmmPIqPTgq8 +SyeBq1RLNTdCHr/PZIWxTpLQ+fDIvdsH5fH9u6vNnqdIyBnttHuWIo9M9E3i +yiRBbkPgPt5z8vg1U0vfKouqh6qiu0cfyOORjypXy0+TsPX186Xpdnn83/Ls +sFoOCfYcKy19XslT6wtavkXZ3zliAMblsW9QaqbiDAnMQ7TEpFUEBhX+uBmf +R8ITgYarhnwEVoQTtI+UHcvc2r/zE+jo/TDJIZ8Ez2enBP0kCLyT7copeZaE +/fLzV83VCEwcrlRILyBh7k5O+4ImgV2NHisGKSdYqU2x9Qj8Mn/4hdo5EtIi +ffXpZgRy2apjK2U+7t8eb7YQaHxv69iaQmq9xWcTcy0JzNIYPeRIubils53T +icBL6l0ZXZTldwZO1bsSmKdctbymiISyyWXBKA8Cef9oh2+lrJpcrK/mQ+A3 +S6VX8ZRvi272HPUn8GqAs2YlZb0bLxLPBxPoFZaaNki53iy0bEc4gWWG6b08 +xSS0BpVMtcQS2Gims8edsvUfI6HDhwisHI2pSKD8PKdHXy+JQE/6w0/FlF2U +9nlOphKocWJUsZbyQN3qpLITBFbvvuX7irK3fVmZVzaBatXfzn+hPPbBrEMk +j9oP88OvlyiHxA1MPT1HYE+qkojAeRKm10QLpV0gcPrOfWdZylGl/AaMywSy +7kvnq1D+pXfdc+4agee2Cw5oUT7aYZF06waBZx5G0/Upc3kPlwXeJjBGVybS +kHLGfwc7ZO8SeDRq+JEBZf504eneWgJrePNoepTzpKuEshsJTNISSlOnLMGy +MmA2Ezj3Vm9GgfLFraOef9sIDK/r2SNOmT5wJKnmCYH/yT/9yEO5IlziWkQX +tT/0+cg5aj3qnHc6lHsJ9D2usfo9ZbJg+/TwAIFvm51uPaZsqPZZ6NwwgYc4 +GT6VlBsfpBg4jBKYTnsun015i4usF89nAv+9NfotjPLjz/8mPZgk8Ma4V5cV +ZbsjztfiZgi0rZVsplF+JTjVoTlPoFvr4qOf1Hm6l6dPf1oksMl9ZKiT8pAx +Xbh0mdr/fbd5zlPe/aLBYOdKGgZVW1oGUw77NZPUvo6GA0MBvItUfRlH7hH7 +KETD2jD1vXWUeSfe3OSSoGGSjnVADOVrgy19ZnQatpQLyI1S9RvtYhjmtYGG +utt4RvIpb3lWuSJhEw2f/fxqZkF5+P7ZTdX6NHyRSnSdpfqh0oCv+ZUJDXmK +WlcZ/39/sI66f0ca7tX9++YN1U9iV4JS1GxpuNZ1LFiIskOaUf9lHxp+ZGfr +7qL6Ue7vrfAHATRU5/96/EMulW+xdK63ITT0r995LJhyRvAaDYloGlYX6x8O +pfq7yfbtsewMGkZJdJ9mUvmQ3eokWZlFQ/fIk9urs6m8Y7RVdeTS0IvFfZ+g +vKBxe2DlRRr+HDZomKLyRkcoWfMQm4a3JwQdfal84jg111pYQ8Pv+xLb7p6g ++oEr1KPmHg0ts84vrKK8d845beYRDTmlx4ovUflW1q84GPSGmk8H11QFlY9i +Je3HXbjoyDGWMUmn8nVMnCFzgJeOpINQm8URql5y2OzT6+j42qBuv99hav0p +xUOd4nRsPF1glkfldUZgmI75Jjq6u5qMdFF5v6C2fljdlY7aQxyh1REkzF+U +Stb1oGPJ7/LFCup+mBVQUjTyoWOEnEd2URjVXz+MQreG0PERH1drZCh1f97z +n/c4QkexoG2Zf6n7p9P2X/6Ma3S8ntjPPulF1V/jQ3bWDTpefTmyzsGTygfN +py55t+noKsZOXu9Bwn3hkeJLdXT8eG68+qQ7Nf9Bvg3Vz+jIrX0txsuZyq+9 +3vBhjo4vooIOx1qScO5t8IdPi9TzB3hm1zJJyHeISptapuPL3S2FpVup89HN +ePJrtQL22c9FPDAnIeU3211ATgFjL2+LHjSh9vfUqv2mTAXMqwkRydYkwfRm +ZWlBgQJ+i+lx+SRCwiBxs2TbeQVUdjkfvVWYqq+C65dmSxQwPUWUWSJI3bfJ +5RecryvgZnoDpz0/db47Swv5GxTQ4qsAVw4PCRtX5eccH1FAI71++v8WqPcj +n0NJsZsUsXuNEK/qEBtmhGx83ZoV8aFb5o3WYjb0h9G7Qh8rItm2xii4kA1N +bYuQ+FQRM44mhq4uYENOwk35ij5FXDGR0LD1DBu0Pqx9tzChiIl7dliVpLMh +gv3in4vCStg28ttrPIoNEw6unmMBSnjU4M2BJhs2jGX6uh3gUUa7X1ce8/3H +Autvcdbj+htQW75pYsqABZP+vFF3E1VQXvUGxt2oor4PxDnTmzeii74hbaGt +EoSeKWezvqlimngG/+bJGyCTcdtRX38TujwsuOH9pgIK1YzWCwepo0jfT5Xz +H8uhU8p8848zGijzt2t9xnIZGMs052j2aaLr4kattoUrwM91JdovRQsFXEnT +JOXLIJcsb7pLWRtbDMWcStIuwWolrxrnx9pY2bxxPpz7PGgwJG/H/aODFe8i +y28vnIMDw0ItNhy6eNFjNFlsIh++/ch0tS7UxQfH/hFttc0FS822Ymt1PVys +d1Ho/Hwa7v8w+f3zuR5mGhSF39lxCiI26bx5GbgZxdokY0KT04ExHdCza7U+ +TsdzCjb3HoNtihLb113Rx5owJS7l7iRQSTp5sNnAAC+vauzYE38YVAONHii9 +McDycVHJq+fjIPB+cOrdSENMPNX1V/tuFDwo7QmYETVCTq5n1Rcl9sNsxfJP +zX+N8PMG87eEcSh8dGOWnqgzwr0jv8M6lUKhf2WW1eg9I1y6yxmfLBgK93yl +igqajPCBbsKE+JcQSJHYbLzUYYTzR8SixgtDYH1G6OHOISMU1O8hlhaDYVNQ +L0cgpzFmvos4+K09CPyVbq4u3m6MhzSS7UNPBkLCI+9QZUdjbGNsfP8kLhBy +AoWekM7GWCZ+zt0kMBAarsVnPnE3Rsdjwq8tMBBElK0ElvyMcXbOSW9xPgDa +lMdFfGONcTR43H5uTwCoqsgTyiXGKGkS/3TS0R9mVPP0ye/GOJZ0wEXF1g/6 +n+I24R/GKLtRabbD1A+aIqZ3RM9Rz5vZ/idGww+ySetI/UVjXGwg1acE/UDV +mKOynssEY+Kk97oP+MJu63Bai5gJJilb84mF+kJPkOXaHlMTvH+gy1RR2Qdq +y36PzGWYYHDhtm1HubxA3yL6p80pE/SbPPRt/aQnVI9Mri3NMkHh40de3u3x +BFJu2MAm1wQ7trkIa5V7QmVhU9al8yb4Q2tn2A9rTyjNTDOyrDLBkpFXkWX5 +HnAiWuBMYbcJuqbOFAbr7wKPrQpoImeKPuOFZduvu8FSDy9/C2GKRWsLdI3y +3aA0cHrQRsEUW51BTj/RDT4er4vzUDHFJye+9Pm7usGBDofb8TqmyK+z8UQW +pxuctD8sV8s0RcPVbaUCvq5Qv7P3j94+U5xx4LU6ssEFpMPT6zSaTHGPtU3d +8XEnyF7es/lUsyla9BL0vF4n4Mxlsj+1mqJVXJdB5SMnmKhZdb20wxSttcos +V5Y7QT1HaqFQtyletAhbYxvkBB75SXHz46YoXTveojbpCIX34jffX8PAIe8D +d5aXHECUL4y93Z2B0mIjD72z7aDM4kjC910MvFj4144ZaQc6R7It8rwYWJNk +ss/KxQ7sv7N6+/0YeGdPr9IFKTs43je34B/GQMOFPPHEClv4dSVxS0IyA59n +JIrROmzgjUled/lNarzuI25WstYQHFN2wbqKgbnjZt6eXNYwX1UdOMlioOKt +pwnHv1iBEL3/p3YNAxOuGlxTrLECW15ZmcYmBkr12ZcfdbSChp7ygO5eBpro +LdcWnrAEG/5a9dh+BlZ2PZBVjLSEfsuOeYlBBppz+gW37bSE2fqvGd7vGfji +qWqgg4olqF/WuvVlgoE03dpf+9uZ0PDGPDZzioF8zdwZbBYTbER2gOZ3BnLv +1w3lLWLCnvSYl9FzDFT6kDr8K4QJs03Hi8V/MfD6nRi7XGcmpCye869fZODV +mqFWcxMmrNe7vumfJWo8gcbNPIpMuBReP7e8zMCpZKWsD2uZ8H+GVhOV + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07268097650030632}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.07268097650030632}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJwV13c8lf/7B3BRSEX25j7HSGTLPq5L6phZGYWPETJCyYqGEVEhIaFBJV+V +dM5dfBAlJLSUEZESGkL5hKLkd//+Oo/nH+d+r+t6ve+btnufcyAnBweH3AoO +jv//nR/uaFU8VWYWNJFdpTKyxaznkkS8eX8KHLb+HHTUiQYo+mK3RH8upL1t +z3Nz0oZYxxuvufqvgGb84b0mTuYgOC2eu/CaBMO5suH1Tk7wrsF+3+zrZrBw +EahNd/QDpuLE25nXryDEd7Azyj4SFl4bnP3++gM4pgu90mAmQ4vF/8peXvkB +Mdi+/efAGZB5V/dx96YloGtpNJ5RLwaRMJ8bPBZc2KrHufx+sRRytZn37F15 +MdVDL613sgwGCrWaZtavw/j8h+vGbSvgVFniC05JQdy3Unbs6+mbIJ4/eiLv +ojBuMe7hFnGrAgm16tRf5cK4pPxpOM+nCqSajyf+wxLGax9euawLqQK57xtj +NrQIYxBxQHTqUBUo2e33vfdZGKXPLLT7XK4C3ZVL+qO6IrhFsm1h/dcqcIgW +G9PpFEE+9y+/i+NvQ7qLtdmreVGsPyBhn2nOAqm7z6U4V4ghzUW5u2sbC6qE +XX5qrxFD5aKhaEEbFvS98madkRfDpb9la9OdWaDoFE13shLD/NpbKRb+LGje +XsLdVSSGLxw+bl6RyoIl5tzzZ6bi+CpNPyqrmQU55Qk3l5jiaKD234hLG/V/ +bo4MdSdxHMrd4S/RyQK7R3zmWYHiqLa46WLeSxYUWxB37LLFUedF3ieP9yww +RNtzT96J4/n701WbllgQZXTZpyNFAkvyIkWGdNlgU8o/a5spgU/FLZum9NlA +5zmc8fysBIpfjPnz24gNXT1u7O4KCfxd3qbEj2zQ2L+Wa/i5BIpa95mstmPD +5/K48v+kJJGbd0ushz8bvETsp6TvSGLcShv/kNNs0D10L/lSgySaGdMU1+Wy +ge+DihitTRL5t/4beyufDXW3uUB5QBIXzQpejhaxQcy2LkdrWRLDLxX5bSij +xk9W1NtmK4WksxAfXy0btn5bTIgYlUKlY6oss7dsiLfKV304KYV3RHUGQ96x +oeqy+hvheSmU2F394MwIGyRcfI3qeKUxL12+5vU4GyZrH/3k0pDGFU9sfEyn +2ZCXkhNddFAaf5aFDQX/ZUP74EbFyWRp/CPi0ejDQcIfvZZus1PS+Dlg1nMH +Jwl7Ps3pjF2Uxvu7/+nW4ibB2M5zRqNFGoVEYu+0riPhg6hyROs6GWSapyY6 +ypAgvu+BrLi4DK6EHF9hORLs2nc+CyFk0NArfGW3PAk1Cac2CejK4KrGlQVW +CiScfPd9YtdOGQzwb5pYq0qCzvV7Qd+uyOCTzbpVi/okJJs6+UkZyuJ4gMre +cHsSrLwv/WewRRaZMm97PzqQwJ/09ZirnSyqj3UnejmRcKElrTzHVxajTSby +TF1IqLWp/8p9QhZ7gPXsxS4Svu9UiP0xIIufumyELQJI+DdhP4/gmCw6tGs2 +JAWScPRCY6HGtCxybw6vqt9Dwtr37vdCOOXwUl9ppEIICRuCMjneq8qhK99C +Wns4Cd4xcyefHpJDuQQyxS+WBKVzW2Qm0uSQU1hKJCCOpPb/9C2eHDlUt5Ff +3H2QhIQ/G7u2lMnhuPWfNtcEEs4e8xateyqHcSgSL3CUBK9rN8v7+uSw62B0 +6yxl+uNfBrPv5VDZ9FhoXyIJLL48D805aj7Mzo7sZBKennlcck1WHvlU+L92 +p5KQd0dEu2WDPMoVTNAupJHg0evX/F5bHiOsn9f5Hifhs8SfMWmmPIqPTgq8 +SyeBq1RLNTdCHr/PZIWxTpLQ+fDIvdsH5fH9u6vNnqdIyBnttHuWIo9M9E3i +yiRBbkPgPt5z8vg1U0vfKouqh6qiu0cfyOORjypXy0+TsPX186Xpdnn83/Ls +sFoOCfYcKy19XslT6wtavkXZ3zliAMblsW9QaqbiDAnMQ7TEpFUEBhX+uBmf +R8ITgYarhnwEVoQTtI+UHcvc2r/zE+jo/TDJIZ8Ez2enBP0kCLyT7copeZaE +/fLzV83VCEwcrlRILyBh7k5O+4ImgV2NHisGKSdYqU2x9Qj8Mn/4hdo5EtIi +ffXpZgRy2apjK2U+7t8eb7YQaHxv69iaQmq9xWcTcy0JzNIYPeRIubils53T +icBL6l0ZXZTldwZO1bsSmKdctbymiISyyWXBKA8Cef9oh2+lrJpcrK/mQ+A3 +S6VX8ZRvi272HPUn8GqAs2YlZb0bLxLPBxPoFZaaNki53iy0bEc4gWWG6b08 +xSS0BpVMtcQS2Gims8edsvUfI6HDhwisHI2pSKD8PKdHXy+JQE/6w0/FlF2U +9nlOphKocWJUsZbyQN3qpLITBFbvvuX7irK3fVmZVzaBatXfzn+hPPbBrEMk +j9oP88OvlyiHxA1MPT1HYE+qkojAeRKm10QLpV0gcPrOfWdZylGl/AaMywSy +7kvnq1D+pXfdc+4agee2Cw5oUT7aYZF06waBZx5G0/Upc3kPlwXeJjBGVybS +kHLGfwc7ZO8SeDRq+JEBZf504eneWgJrePNoepTzpKuEshsJTNISSlOnLMGy +MmA2Ezj3Vm9GgfLFraOef9sIDK/r2SNOmT5wJKnmCYH/yT/9yEO5IlziWkQX +tT/0+cg5aj3qnHc6lHsJ9D2usfo9ZbJg+/TwAIFvm51uPaZsqPZZ6NwwgYc4 +GT6VlBsfpBg4jBKYTnsun015i4usF89nAv+9NfotjPLjz/8mPZgk8Ma4V5cV +ZbsjztfiZgi0rZVsplF+JTjVoTlPoFvr4qOf1Hm6l6dPf1oksMl9ZKiT8pAx +Xbh0mdr/fbd5zlPe/aLBYOdKGgZVW1oGUw77NZPUvo6GA0MBvItUfRlH7hH7 +KETD2jD1vXWUeSfe3OSSoGGSjnVADOVrgy19ZnQatpQLyI1S9RvtYhjmtYGG +utt4RvIpb3lWuSJhEw2f/fxqZkF5+P7ZTdX6NHyRSnSdpfqh0oCv+ZUJDXmK +WlcZ/39/sI66f0ca7tX9++YN1U9iV4JS1GxpuNZ1LFiIskOaUf9lHxp+ZGfr +7qL6Ue7vrfAHATRU5/96/EMulW+xdK63ITT0r995LJhyRvAaDYloGlYX6x8O +pfq7yfbtsewMGkZJdJ9mUvmQ3eokWZlFQ/fIk9urs6m8Y7RVdeTS0IvFfZ+g +vKBxe2DlRRr+HDZomKLyRkcoWfMQm4a3JwQdfal84jg111pYQ8Pv+xLb7p6g ++oEr1KPmHg0ts84vrKK8d845beYRDTmlx4ovUflW1q84GPSGmk8H11QFlY9i +Je3HXbjoyDGWMUmn8nVMnCFzgJeOpINQm8URql5y2OzT6+j42qBuv99hav0p +xUOd4nRsPF1glkfldUZgmI75Jjq6u5qMdFF5v6C2fljdlY7aQxyh1REkzF+U +Stb1oGPJ7/LFCup+mBVQUjTyoWOEnEd2URjVXz+MQreG0PERH1drZCh1f97z +n/c4QkexoG2Zf6n7p9P2X/6Ma3S8ntjPPulF1V/jQ3bWDTpefTmyzsGTygfN +py55t+noKsZOXu9Bwn3hkeJLdXT8eG68+qQ7Nf9Bvg3Vz+jIrX0txsuZyq+9 +3vBhjo4vooIOx1qScO5t8IdPi9TzB3hm1zJJyHeISptapuPL3S2FpVup89HN +ePJrtQL22c9FPDAnIeU3211ATgFjL2+LHjSh9vfUqv2mTAXMqwkRydYkwfRm +ZWlBgQJ+i+lx+SRCwiBxs2TbeQVUdjkfvVWYqq+C65dmSxQwPUWUWSJI3bfJ +5RecryvgZnoDpz0/db47Swv5GxTQ4qsAVw4PCRtX5eccH1FAI71++v8WqPcj +n0NJsZsUsXuNEK/qEBtmhGx83ZoV8aFb5o3WYjb0h9G7Qh8rItm2xii4kA1N +bYuQ+FQRM44mhq4uYENOwk35ij5FXDGR0LD1DBu0Pqx9tzChiIl7dliVpLMh +gv3in4vCStg28ttrPIoNEw6unmMBSnjU4M2BJhs2jGX6uh3gUUa7X1ce8/3H +Autvcdbj+htQW75pYsqABZP+vFF3E1VQXvUGxt2oor4PxDnTmzeii74hbaGt +EoSeKWezvqlimngG/+bJGyCTcdtRX38TujwsuOH9pgIK1YzWCwepo0jfT5Xz +H8uhU8p8848zGijzt2t9xnIZGMs052j2aaLr4kattoUrwM91JdovRQsFXEnT +JOXLIJcsb7pLWRtbDMWcStIuwWolrxrnx9pY2bxxPpz7PGgwJG/H/aODFe8i +y28vnIMDw0ItNhy6eNFjNFlsIh++/ch0tS7UxQfH/hFttc0FS822Ymt1PVys +d1Ho/Hwa7v8w+f3zuR5mGhSF39lxCiI26bx5GbgZxdokY0KT04ExHdCza7U+ +TsdzCjb3HoNtihLb113Rx5owJS7l7iRQSTp5sNnAAC+vauzYE38YVAONHii9 +McDycVHJq+fjIPB+cOrdSENMPNX1V/tuFDwo7QmYETVCTq5n1Rcl9sNsxfJP +zX+N8PMG87eEcSh8dGOWnqgzwr0jv8M6lUKhf2WW1eg9I1y6yxmfLBgK93yl +igqajPCBbsKE+JcQSJHYbLzUYYTzR8SixgtDYH1G6OHOISMU1O8hlhaDYVNQ +L0cgpzFmvos4+K09CPyVbq4u3m6MhzSS7UNPBkLCI+9QZUdjbGNsfP8kLhBy +AoWekM7GWCZ+zt0kMBAarsVnPnE3Rsdjwq8tMBBElK0ElvyMcXbOSW9xPgDa +lMdFfGONcTR43H5uTwCoqsgTyiXGKGkS/3TS0R9mVPP0ye/GOJZ0wEXF1g/6 +n+I24R/GKLtRabbD1A+aIqZ3RM9Rz5vZ/idGww+ySetI/UVjXGwg1acE/UDV +mKOynssEY+Kk97oP+MJu63Bai5gJJilb84mF+kJPkOXaHlMTvH+gy1RR2Qdq +y36PzGWYYHDhtm1HubxA3yL6p80pE/SbPPRt/aQnVI9Mri3NMkHh40de3u3x +BFJu2MAm1wQ7trkIa5V7QmVhU9al8yb4Q2tn2A9rTyjNTDOyrDLBkpFXkWX5 +HnAiWuBMYbcJuqbOFAbr7wKPrQpoImeKPuOFZduvu8FSDy9/C2GKRWsLdI3y +3aA0cHrQRsEUW51BTj/RDT4er4vzUDHFJye+9Pm7usGBDofb8TqmyK+z8UQW +pxuctD8sV8s0RcPVbaUCvq5Qv7P3j94+U5xx4LU6ssEFpMPT6zSaTHGPtU3d +8XEnyF7es/lUsyla9BL0vF4n4Mxlsj+1mqJVXJdB5SMnmKhZdb20wxSttcos +V5Y7QT1HaqFQtyletAhbYxvkBB75SXHz46YoXTveojbpCIX34jffX8PAIe8D +d5aXHECUL4y93Z2B0mIjD72z7aDM4kjC910MvFj4144ZaQc6R7It8rwYWJNk +ss/KxQ7sv7N6+/0YeGdPr9IFKTs43je34B/GQMOFPPHEClv4dSVxS0IyA59n +JIrROmzgjUled/lNarzuI25WstYQHFN2wbqKgbnjZt6eXNYwX1UdOMlioOKt +pwnHv1iBEL3/p3YNAxOuGlxTrLECW15ZmcYmBkr12ZcfdbSChp7ygO5eBpro +LdcWnrAEG/5a9dh+BlZ2PZBVjLSEfsuOeYlBBppz+gW37bSE2fqvGd7vGfji +qWqgg4olqF/WuvVlgoE03dpf+9uZ0PDGPDZzioF8zdwZbBYTbER2gOZ3BnLv +1w3lLWLCnvSYl9FzDFT6kDr8K4QJs03Hi8V/MfD6nRi7XGcmpCye869fZODV +mqFWcxMmrNe7vumfJWo8gcbNPIpMuBReP7e8zMCpZKWsD2uZ8H+GVhOV + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07268097650030632}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJxTTMoPSmViYGCQB2IQDQNLGAINkrnK7CG8D/YFW/1i+sInQPkMDkmGr6Kq +58+C8jkczrencxoxLYLyBRw0tNtWMyssg/JFHAL6mFwO9qyE8iUc3u708W0y +XwPlyzi85X7Rai2+DspXcJimnKJwXm89lK/koKgQ78TaDuOrOFidyz201wjG +V3PYGsTxRMgdpl/D4cmtAMNz92HmazmUHVGU9hBfDeXrOAA5s8O4YO7RcyjZ +dKVq/0WYew0clAL+Nnu0LYHyDR1s9EWlP1vB/GfkcNon868u4wIo39jhkHfB +K+aTs6F8E4edQeebAu5Nh/JNHeT5a8u1vadA+WYOttd6eIrEJ0L55g6HXZpF +bFp7oHwLB/5r/y3PTG+H8i0dus7EPPgU0QzlWzkw5q6OTK+ph/KtHd7OVGXM +yqqE8m0cpK+FiLXGlkD5tg4f5zGfFjQqgPLtHO40Ld3VMD3THgDPenlb + "]]}, + 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:eJxTTMoPSmViYGCQB2IQDQNLGAINkrnK7CG8D/YFW/1i+sInQPkMDkmGr6Kq +58+C8jkczrencxoxLYLyBRw0tNtWMyssg/JFHAL6mFwO9qyE8iUc3u708W0y +XwPlyzi85X7Rai2+DspXcJimnKJwXm89lK/koKgQ78TaDuOrOFidyz201wjG +V3PYGsTxRMgdpl/D4cmtAMNz92HmazmUHVGU9hBfDeXrOAA5s8O4YO7RcyjZ +dKVq/0WYew0clAL+Nnu0LYHyDR1s9EWlP1vB/GfkcNon868u4wIo39jhkHfB +K+aTs6F8E4edQeebAu5Nh/JNHeT5a8u1vadA+WYOttd6eIrEJ0L55g6HXZpF +bFp7oHwLB/5r/y3PTG+H8i0dus7EPPgU0QzlWzkw5q6OTK+ph/KtHd7OVGXM +yqqE8m0cpK+FiLXGlkD5tg4f5zGfFjQqgPLtHO40Ld3VMD3THgDPenlb + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.061577}}, + "Frame" -> {{False, 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.061577}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGCQB2IQDQNLGAINkrnK7CG8D/YFW/1i+sInQPkMDkmGr6Kq +58+C8jkczrencxoxLYLyBRw0tNtWMyssg/JFHAL6mFwO9qyE8iUc3u708W0y +XwPlyzi85X7Rai2+DspXcJimnKJwXm89lK/koKgQ78TaDuOrOFidyz201wjG +V3PYGsTxRMgdpl/D4cmtAMNz92HmazmUHVGU9hBfDeXrOAA5s8O4YO7RcyjZ +dKVq/0WYew0clAL+Nnu0LYHyDR1s9EWlP1vB/GfkcNon868u4wIo39jhkHfB +K+aTs6F8E4edQeebAu5Nh/JNHeT5a8u1vadA+WYOttd6eIrEJ0L55g6HXZpF +bFp7oHwLB/5r/y3PTG+H8i0dus7EPPgU0QzlWzkw5q6OTK+ph/KtHd7OVGXM +yqqE8m0cpK+FiLXGlkD5tg4f5zGfFjQqgPLtHO40Ld3VMD3THgDPenlb + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.061577}}, + "Frame" -> {{False, 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.07268097650030632}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993961713887907*^9}, + CellLabel-> + "Out[141]=",ExpressionUUID->"37dd3df3-b40b-43a8-aba1-734484ee552e"] +}, Open ]], Cell[CellGroupData[{ @@ -8921,66 +14944,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.520591954580688`*^-157\\\", \ +RowBox[{\\\"164243120455479739170682508554\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"94\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"438400000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 142, 73, + 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333512859148*^9, 3.993961713922797*^9}, CellLabel-> "During evaluation of \ -In[225]:=",ExpressionUUID->"6cb27c14-3e28-3a42-b8b7-fdcba2488488"], +In[142]:=",ExpressionUUID->"11dbfb4c-d555-4eae-b047-f39638b4e646"], 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[\\\"2.696621100488728`*^-160\\\", \ +RowBox[{\\\"552513857212233842570175958778\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"97\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"777600000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 142, 74, + 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333512859148*^9, 3.993961713928895*^9}, CellLabel-> "During evaluation of \ -In[225]:=",ExpressionUUID->"cb81e4d8-f3c2-a440-be93-8add6661d63f"], +In[142]:=",ExpressionUUID->"08e4777d-56c7-42ef-a427-7d7494cdce7e"], 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[\\\"4.78219376190654`*^-163\\\", \ +RowBox[{\\\"192330073695578600598678251250\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"101\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"825600000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 142, 75, + 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333512859148*^9, 3.993961713934675*^9}, CellLabel-> "During evaluation of \ -In[225]:=",ExpressionUUID->"6fc2d4bb-75da-4f4f-bee0-560983907484"], +In[142]:=",ExpressionUUID->"5762a3e8-3c06-4a72-b760-11bb6a16ba7a"], 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, 76, 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333512859148*^9, 3.9939617139404087`*^9}, CellLabel-> "During evaluation of \ -In[225]:=",ExpressionUUID->"a75f01ed-738d-2b4a-b751-ccae7a894e31"], +In[142]:=",ExpressionUUID->"963c3e7c-9cf1-4bf0-a423-7cf2d2239fcb"], -Cell[BoxData["9.779568499633264`"], "Output", - CellChangeTimes->{3.9913335200445786`*^9}, +Cell[BoxData["10.79198672783676`"], "Output", + CellChangeTimes->{3.9913335200445786`*^9, 3.9939617511228228`*^9}, CellLabel-> - "Out[225]=",ExpressionUUID->"a9b05d7b-788a-eb45-8401-918c1ed97234"] + "Out[142]=",ExpressionUUID->"1563fd01-95aa-48ff-b7b5-be74de0b9095"] }, Open ]], Cell[CellGroupData[{ @@ -9047,68 +15077,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[\\\"2.6179837634720744`*^-213\\\", \ +RowBox[{\\\"665717749437497189208769764374\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"35\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9706282409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 143, 77, + 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335200775414`*^9, 3.993961751156831*^9}, CellLabel-> "During evaluation of \ -In[226]:=",ExpressionUUID->"e3c0ae99-c55d-1a40-897e-ede7de12487f"], +In[143]:=",ExpressionUUID->"3d08f8bd-90a2-48f0-adbe-1f2bb5e2a362"], 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[\\\"1.268867057984324`*^-218\\\", \ +RowBox[{\\\"111907153680443277505994197391\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"260731183104000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 143, 78, + 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335200775414`*^9, 3.993961751162533*^9}, CellLabel-> "During evaluation of \ -In[226]:=",ExpressionUUID->"0a52e0c9-3a0a-a24b-a9af-01175c4ee0f4"], +In[143]:=",ExpressionUUID->"72459c46-cf6d-4f27-94a5-abfe4a7c734c"], 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.149860947580956`*^-224\\\", \ +RowBox[{\\\"197404219092301941520573764198\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"929806995456000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 143, 79, + 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335200775414`*^9, 3.993961751170211*^9}, CellLabel-> "During evaluation of \ -In[226]:=",ExpressionUUID->"e6adb683-0ea5-4b48-bbb8-23c8c11e4418"], +In[143]:=",ExpressionUUID->"eb020dc6-f592-4214-ba62-4e034efae1e1"], 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, 80, 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335200775414`*^9, 3.9939617511765223`*^9}, CellLabel-> "During evaluation of \ -In[226]:=",ExpressionUUID->"12441524-bcf6-244b-b009-fad76aa84cea"], +In[143]:=",ExpressionUUID->"0c63a378-31d0-45ec-91c9-da5c7ec168ff"], -Cell[BoxData["0.7348275136088338`"], "Output", - CellChangeTimes->{3.9913335271231823`*^9}, +Cell[BoxData["0.16658820043800557`"], "Output", + CellChangeTimes->{3.9913335271231823`*^9, 3.993961756569002*^9}, CellLabel-> - "Out[226]=",ExpressionUUID->"cc74ac59-df4c-cf4b-a4af-36b2436eea23"] + "Out[143]=",ExpressionUUID->"965e47a5-1e5d-47bb-86de-e8ac5be15ef5"] }, Open ]], Cell[CellGroupData[{ @@ -9129,8 +15166,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 +15211,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[\\\"2.6179837634720744`*^-213\\\", \ +RowBox[{\\\"665717749437497189208769764374\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"35\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9706282409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 144, 81, + 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335271591835`*^9, 3.993961756603077*^9}, CellLabel-> "During evaluation of \ -In[227]:=",ExpressionUUID->"ee3e5086-63b9-a04a-8b60-1a07bbedb00c"], +In[144]:=",ExpressionUUID->"01a5bd35-9f8e-4854-beeb-2844a2ea3a71"], 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[\\\"1.268867057984324`*^-218\\\", \ +RowBox[{\\\"111907153680443277505994197391\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"260731183104000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 144, 82, + 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335271591835`*^9, 3.993961756609559*^9}, CellLabel-> "During evaluation of \ -In[227]:=",ExpressionUUID->"f824dc64-7721-2e40-87b9-9d308e655a7c"], +In[144]:=",ExpressionUUID->"4c3d43bc-43a5-4a35-b2fe-66b8a357a6bb"], 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.149860947580956`*^-224\\\", \ +RowBox[{\\\"197404219092301941520573764198\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"929806995456000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 144, 83, + 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335271591835`*^9, 3.9939617566158867`*^9}, CellLabel-> "During evaluation of \ -In[227]:=",ExpressionUUID->"830b9065-dbdb-094f-aba8-2b0b04ca96a6"], +In[144]:=",ExpressionUUID->"01ab13ce-2cf2-41ad-b76c-74a96292bed5"], 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, 84, 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335271591835`*^9, 3.993961756621893*^9}, CellLabel-> "During evaluation of \ -In[227]:=",ExpressionUUID->"f79b172f-d4db-f24b-98c7-2b2531d3e183"], +In[144]:=",ExpressionUUID->"724a1a9e-f328-43bc-8a33-0b6c1fb35673"], -Cell[BoxData["5.221864211842707`"], "Output", - CellChangeTimes->{3.9913335331581306`*^9}, +Cell[BoxData["29.890099500676808`"], "Output", + CellChangeTimes->{3.9913335331581306`*^9, 3.993961761633374*^9}, CellLabel-> - "Out[227]=",ExpressionUUID->"88b0c8ab-c0ff-2a4c-be6a-f15bb3bf7202"] + "Out[144]=",ExpressionUUID->"c457aa4d-4fee-461a-a0c8-d8da75aedc3b"] }, Open ]], Cell[CellGroupData[{ @@ -9257,8 +15300,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 +15345,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[\\\"2.6179837634720744`*^-213\\\", \ +RowBox[{\\\"665717749437497189208769764374\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"35\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9706282409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 145, 85, + 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335331923027`*^9, 3.9939617616667347`*^9}, CellLabel-> "During evaluation of \ -In[228]:=",ExpressionUUID->"f816110f-9bc3-0e4e-85c9-2e71a255bbb9"], +In[145]:=",ExpressionUUID->"12f49fde-4c2e-4bd2-992b-de6dc77e0890"], 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[\\\"1.268867057984324`*^-218\\\", \ +RowBox[{\\\"111907153680443277505994197391\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"260731183104000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 145, 86, + 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335331923027`*^9, 3.9939617616740313`*^9}, CellLabel-> "During evaluation of \ -In[228]:=",ExpressionUUID->"36d057a5-55b4-f047-814d-965f9626b543"], +In[145]:=",ExpressionUUID->"8cb689ab-a864-432b-b2a4-289f5039be44"], 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.149860947580956`*^-224\\\", \ +RowBox[{\\\"197404219092301941520573764198\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"929806995456000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 145, 87, + 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335331923027`*^9, 3.99396176167968*^9}, CellLabel-> "During evaluation of \ -In[228]:=",ExpressionUUID->"4ef30680-44fe-0244-870d-45b0a67e7a3d"], +In[145]:=",ExpressionUUID->"67117b63-8e69-4ade-aa7b-42255c9503cd"], 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, 88, 31385706307412191250, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335331923027`*^9, 3.9939617616872463`*^9}, CellLabel-> "During evaluation of \ -In[228]:=",ExpressionUUID->"c685c306-1cc4-0a4f-bb39-965ed01378a7"], +In[145]:=",ExpressionUUID->"4c679554-0f8a-428a-865a-9d7f36fd66fc"], -Cell[BoxData["15.545902834190647`"], "Output", - CellChangeTimes->{3.9913335366055527`*^9}, +Cell[BoxData["4.916604813486631`"], "Output", + CellChangeTimes->{3.9913335366055527`*^9, 3.993961764784423*^9}, CellLabel-> - "Out[228]=",ExpressionUUID->"621ca10b-eff8-834f-a283-22ac03a895a3"] + "Out[145]=",ExpressionUUID->"373ea168-eca0-485a-b00f-30d3b7df6e98"] }, Open ]], Cell[CellGroupData[{ @@ -9373,21 +15422,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.013741935487717061`"], "Output", + CellChangeTimes->{3.9913335366395893`*^9, 3.993961764817565*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"6aaceb32-4fa4-406e-80e9-8e07031394ac"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input", + CellLabel-> + "In[147]:=",ExpressionUUID->"4fd92e61-34cc-4115-9b97-37057230a01b"] }, -WindowSize->{718.5, 729.75}, -WindowMargins->{{0, Automatic}, {Automatic, 0}}, +Evaluator->"Local", +WindowSize->{714, 876}, +WindowMargins->{{-3, Automatic}, {3, Automatic}}, CellContext->Notebook, -Magnification:>0.8 Inherited, -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->"5cbbdd72-8791-4241-8a7a-ad89ed63e6b0" ] @@ -9402,368 +15457,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, 298, 5, 40, "Input",ExpressionUUID->"b04642d5-ffb7-4865-9ffa-63fe8bc1cd00"], +Cell[877, 29, 244, 4, 46, "Output",ExpressionUUID->"aa444fe5-7efa-4fab-8cb5-dd39ceb375ce"] }, 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[1158, 38, 248, 4, 40, "Input",ExpressionUUID->"5cdaa65d-6eb3-4afc-90c3-29fe27ee2581"], +Cell[1409, 44, 251, 4, 46, "Output",ExpressionUUID->"c6abd544-dea7-43ca-b640-111c8788e477"] }, 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[1697, 53, 223, 4, 40, "Input",ExpressionUUID->"383433a9-9bd2-4ae3-8a52-edd607fe7015"], +Cell[1923, 59, 255, 4, 46, "Output",ExpressionUUID->"245224e0-0b96-4ed3-a57e-c38a375d4a01"] }, 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[2215, 68, 175, 3, 40, "Input",ExpressionUUID->"80d9861d-2e36-45a0-a027-07445d92f1e5"], +Cell[2393, 73, 251, 4, 46, "Output",ExpressionUUID->"c05918a1-7fcf-4b41-9c6a-cfac609a0cfb"] }, 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[2681, 82, 257, 7, 59, "Input",ExpressionUUID->"9c7ec549-3ddb-4e3c-b133-7046aefa13fc"], +Cell[2941, 91, 253, 4, 46, "Output",ExpressionUUID->"7457e7a9-77e9-4f0a-960f-5673afde6a70"] }, 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[3231, 100, 131, 2, 40, "Input",ExpressionUUID->"ee73caec-91b1-4456-b6bf-e39b6d077c98"], +Cell[3365, 104, 251, 4, 46, "Output",ExpressionUUID->"643dfc0e-0a3b-4772-ba55-e4cd3a1d8129"] }, 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[3653, 113, 276, 6, 40, "Input",ExpressionUUID->"f9aa966a-aea3-4181-92e8-b50edcf7732f"], +Cell[3932, 121, 266, 4, 46, "Output",ExpressionUUID->"e3e91273-794b-4128-b57e-904393367ba8"] }, 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[4235, 130, 257, 7, 40, "Input",ExpressionUUID->"1f856d4c-eb7f-4cab-aa88-e425a6d2590a"], +Cell[4495, 139, 265, 4, 46, "Output",ExpressionUUID->"d565210e-f1ee-4f97-a548-f6a777d45c44"] }, 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[4797, 148, 229, 4, 40, "Input",ExpressionUUID->"a4a3b7a1-16e8-4513-9a20-9e20f2efe985"], +Cell[5029, 154, 227, 3, 46, "Output",ExpressionUUID->"976a19b5-ee14-446b-b8e4-40d692d135fb"] }, 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[5293, 162, 225, 4, 40, "Input",ExpressionUUID->"d1288368-4ef7-4b09-a83b-693f5c1687e5"], +Cell[5521, 168, 228, 3, 46, "Output",ExpressionUUID->"09e6d736-bbfd-4630-8247-f1b2f128bbf5"] }, 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[5786, 176, 129, 2, 40, "Input",ExpressionUUID->"6eae9e77-7005-4e01-8ff7-68d604236f04"], +Cell[5918, 180, 248, 4, 46, "Output",ExpressionUUID->"697592cf-6688-49c2-8ca7-024e2a2a4b40"] }, 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[6203, 189, 129, 2, 40, "Input",ExpressionUUID->"73422c0e-6070-46a0-9298-80eece4b9b2c"], +Cell[6335, 193, 250, 4, 46, "Output",ExpressionUUID->"2d1e2031-da76-4fbe-8e31-4bcfc14f3fd1"] }, 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[6622, 202, 557, 19, 109, "Input",ExpressionUUID->"a4123eae-2927-4292-9d90-8d4517364f8b"], +Cell[7182, 223, 264, 4, 46, "Output",ExpressionUUID->"404042f1-6b5d-433a-96a9-5e6a9e6c1a61"] }, 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[7483, 232, 557, 19, 109, "Input",ExpressionUUID->"6b925200-2f02-4654-a2de-7d5feb32e161"], +Cell[8043, 253, 267, 4, 46, "Output",ExpressionUUID->"e2b4a8da-abf2-4b29-a09c-e34a54a39fb8"] }, 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[8347, 262, 1588, 50, 293, "Input",ExpressionUUID->"4b204fd8-93a4-497e-8e7c-0712efda67f2"], +Cell[9938, 314, 265, 4, 46, "Output",ExpressionUUID->"e7d05edc-d242-4d6b-97f3-d7b7a6bf6535"] }, 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[10240, 323, 1422, 46, 232, "Input",ExpressionUUID->"15aaa7d8-5bfc-43e0-8c47-ebf31edbb945"], +Cell[11665, 371, 283, 5, 46, "Output",ExpressionUUID->"fbc21a8a-34a9-42ec-a626-6ae7ba70877c"] }, 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[11985, 381, 1422, 46, 232, "Input",ExpressionUUID->"c9fd15c3-cf7f-4fff-b816-df202d046e87"], +Cell[13410, 429, 286, 5, 46, "Output",ExpressionUUID->"4eb7cae1-4da9-4258-a871-7e53a6c99f09"] }, 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[13733, 439, 1588, 50, 293, "Input",ExpressionUUID->"a7026fee-3761-4fc4-a83f-b75a9d01b437"], +Cell[15324, 491, 261, 4, 46, "Output",ExpressionUUID->"ef81bf07-8c73-483a-b667-d47bab305ed7"] }, 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[15622, 500, 131, 2, 40, "Input",ExpressionUUID->"6673914a-6035-468d-a531-9e6268a0ac41"], +Cell[15756, 504, 247, 4, 46, "Output",ExpressionUUID->"ed80f399-f7bd-4fcb-9315-1efa6c5f0e3d"] }, 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[16040, 513, 133, 2, 40, "Input",ExpressionUUID->"ca06e577-1622-4913-9c7c-d3e91208c2d2"], +Cell[16176, 517, 251, 4, 46, "Output",ExpressionUUID->"c99ad6e8-7d11-4ee6-a7dc-4fd0ed13ff18"] }, 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[16464, 526, 134, 2, 40, "Input",ExpressionUUID->"2902dfa9-be92-4a66-b661-0488b8fe1470"], +Cell[16601, 530, 255, 4, 46, "Output",ExpressionUUID->"f06ad94d-69f8-476d-b207-6b0e87d68133"] }, 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[16893, 539, 219, 4, 40, "Input",ExpressionUUID->"fe3936ba-e1f7-4d13-a75b-c2ed7f597658"], +Cell[17115, 545, 264, 5, 46, "Output",ExpressionUUID->"3a92afa6-d38c-462e-b2d4-3323a2dcc9af"] }, 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[17416, 555, 134, 2, 40, "Input",ExpressionUUID->"f905b70f-1f16-45dd-b397-174899b771f4"], +Cell[17553, 559, 258, 4, 46, "Output",ExpressionUUID->"216f0990-9a8a-4763-96f4-9f9d11dfab7a"] }, 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[17848, 568, 324, 5, 40, "Input",ExpressionUUID->"3e90efe3-50bd-409f-9435-ebb9a13863e1"], +Cell[18175, 575, 251, 4, 46, "Output",ExpressionUUID->"82cfe6f9-ac14-4321-a58e-8903a8eec4b8"] }, 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[18463, 584, 296, 5, 40, "Input",ExpressionUUID->"3a4dfe1d-e8d9-47a2-afb3-460a9d85df0b"], +Cell[18762, 591, 251, 4, 46, "Output",ExpressionUUID->"732c006b-f876-4b5f-9f3b-4dba3978c6d7"] }, 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[19050, 600, 219, 4, 40, "Input",ExpressionUUID->"00c60361-21cf-469e-a553-e089f78ad9b7"], +Cell[19272, 606, 247, 4, 46, "Output",ExpressionUUID->"20c2ca39-0295-4d34-8a4a-151e2c86d7fd"] }, 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[19556, 615, 350, 10, 59, "Input",ExpressionUUID->"34b3e88b-7b8a-4050-b839-e595e2b09a04"], +Cell[19909, 627, 255, 4, 46, "Output",ExpressionUUID->"69565d37-0072-49f4-86bf-03ccc9dac824"] }, 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[20201, 636, 350, 10, 59, "Input",ExpressionUUID->"c022a2b1-cbba-4a12-808e-dff4fb7a104d"], +Cell[20554, 648, 285, 5, 46, "Output",ExpressionUUID->"98fcbd96-0c88-436a-afae-1cef98dc6681"] }, 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[20876, 658, 994, 26, 201, "Input",ExpressionUUID->"9e93496a-05df-44c7-8ea7-480f62254fca"], +Cell[21873, 686, 266, 4, 46, "Output",ExpressionUUID->"451b2212-2a59-419f-b587-8c985380436f"] }, 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[22176, 695, 199, 3, 40, "Input",ExpressionUUID->"a94d4f72-63ba-41bf-92e5-b8dac941f305"], +Cell[22378, 700, 248, 4, 46, "Output",ExpressionUUID->"caa5381d-47e3-4a45-836d-57ea250359a8"] }, 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[22663, 709, 331, 5, 40, "Input",ExpressionUUID->"52357539-edb0-4d26-8456-bc320ca3d609"], +Cell[22997, 716, 226, 3, 46, "Output",ExpressionUUID->"14c0f9d4-b62b-4183-985a-0b148cb8590f"] +}, Open ]], +Cell[23238, 722, 173, 2, 35, "Input",ExpressionUUID->"86e9e300-7e0f-4e8a-850c-106556848aea"], +Cell[CellGroupData[{ +Cell[23436, 728, 327, 5, 40, "Input",ExpressionUUID->"8f7455e7-45cd-4b4d-af07-2b183e720173"], +Cell[23766, 735, 225, 3, 46, "Output",ExpressionUUID->"09e48dcb-5485-4aa3-beb4-885d126c69a7"] +}, Open ]], +Cell[24006, 741, 173, 2, 35, "Input",ExpressionUUID->"64d22397-2efb-4191-a2f0-310db6020fc4"], +Cell[CellGroupData[{ +Cell[24204, 747, 330, 5, 40, "Input",ExpressionUUID->"4d9b9970-b35e-4aa0-b355-74106145e1f3"], +Cell[24537, 754, 227, 3, 46, "Output",ExpressionUUID->"999e7baf-e209-4566-a1b3-2366b4aee08f"] +}, Open ]], +Cell[24779, 760, 173, 2, 35, "Input",ExpressionUUID->"7d07264a-1c34-4829-a42a-8778a7da04f1"], +Cell[CellGroupData[{ +Cell[24977, 766, 352, 5, 40, "Input",ExpressionUUID->"b5955296-bd00-4504-aa30-b5a4dd4e1c58"], +Cell[25332, 773, 230, 3, 46, "Output",ExpressionUUID->"bc7f1be9-1f03-4832-92e7-c4557be4ff81"] +}, Open ]], +Cell[25577, 779, 171, 2, 35, "Input",ExpressionUUID->"9f989820-46ba-46cc-976f-451dcf4f23d6"], +Cell[CellGroupData[{ +Cell[25773, 785, 299, 5, 40, "Input",ExpressionUUID->"d63e8c1e-384d-4dba-bd8c-b60d0bda98eb"], +Cell[26075, 792, 227, 3, 46, "Output",ExpressionUUID->"e8889870-9692-4021-ac7b-85aa256e47c0"] +}, Open ]], +Cell[26317, 798, 171, 2, 35, "Input",ExpressionUUID->"93a32d2f-5ecd-4480-8527-a88a22c646b6"], +Cell[CellGroupData[{ +Cell[26513, 804, 305, 5, 40, "Input",ExpressionUUID->"d63f073b-8ea6-45b2-80ec-2d72c4e1511f"], +Cell[26821, 811, 229, 3, 46, "Output",ExpressionUUID->"553d78ee-941f-4467-8ea6-35d55a439522"] +}, Open ]], +Cell[27065, 817, 173, 2, 35, "Input",ExpressionUUID->"19258401-9132-49dd-8d76-d5741418d287"], +Cell[CellGroupData[{ +Cell[27263, 823, 307, 5, 40, "Input",ExpressionUUID->"eb1379fb-2903-408f-ba15-86d45be95bcd"], +Cell[27573, 830, 224, 3, 46, "Output",ExpressionUUID->"f1f4e140-a259-42d6-9532-ab2dfbd0092b"] +}, Open ]], +Cell[27812, 836, 172, 2, 35, "Input",ExpressionUUID->"172ebf25-978a-47a3-8399-d557ce823775"], +Cell[CellGroupData[{ +Cell[28009, 842, 276, 4, 40, "Input",ExpressionUUID->"ec4d3efe-c02d-4409-8d8e-c5abe71b25af"], +Cell[28288, 848, 230, 3, 46, "Output",ExpressionUUID->"11c61f3e-5cc4-499e-aec3-4b9f9a431fff"] +}, Open ]], +Cell[28533, 854, 175, 2, 35, "Input",ExpressionUUID->"ad782cb0-d4a8-493a-865f-cb88934afaba"], +Cell[CellGroupData[{ +Cell[28733, 860, 19809, 485, 3376, "Input",ExpressionUUID->"974baa1f-44ec-4189-a851-6a6c82931ae7"], +Cell[48545, 1347, 265, 4, 46, "Output",ExpressionUUID->"51b8bb06-ae44-491d-8018-be2695af21c6"] }, 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[48847, 1356, 19748, 489, 3376, "Input",ExpressionUUID->"81c1261a-a519-4052-bfa3-20746bdf3e3f"], +Cell[68598, 1847, 267, 4, 46, "Output",ExpressionUUID->"6c98560f-6342-40cc-9c5f-7fead0fad87d"] }, 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[68902, 1856, 19748, 483, 3375, "Input",ExpressionUUID->"6fec22f8-2bcd-46e1-943b-1e6fc727c0b8"], +Cell[88653, 2341, 283, 5, 46, "Output",ExpressionUUID->"87175e17-c893-46bb-9588-56497598c941"] }, 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[88973, 2351, 22534, 553, 3857, "Input",ExpressionUUID->"3fc3427f-9cbb-4ed9-b982-087f4d66e422"], +Cell[111510, 2906, 288, 5, 46, "Output",ExpressionUUID->"5c39dbb0-2b66-471b-96b8-16f9f592f590"] }, 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[111835, 2916, 22535, 553, 3857, "Input",ExpressionUUID->"0625f04f-11fe-4e1d-8bb1-efc0751e5947"], +Cell[134373, 3471, 284, 5, 46, "Output",ExpressionUUID->"e8af1b74-355b-4a5e-929e-cb122a0d3d72"] }, 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[134694, 3481, 25491, 626, 4339, "Input",ExpressionUUID->"988e474a-df07-42c1-ad1d-22d6d95864e8"], +Cell[160188, 4109, 283, 5, 46, "Output",ExpressionUUID->"8cd604b3-e28d-4631-8ff7-0c30ba8de744"] }, 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[160508, 4119, 130, 2, 40, "Input",ExpressionUUID->"c8b34fc8-229b-475d-bf5e-4d45b52ef0c8"], +Cell[160641, 4123, 247, 4, 46, "Output",ExpressionUUID->"29536043-56ac-40b0-83c9-539db9d29dae"] }, 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[160925, 4132, 130, 2, 40, "Input",ExpressionUUID->"c93adcbf-fb75-407b-b162-83e059b6e347"], +Cell[161058, 4136, 250, 4, 46, "Output",ExpressionUUID->"e7b28861-27bb-4523-ad32-dca1308d9ea8"] }, 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[161345, 4145, 1144, 39, 155, "Input",ExpressionUUID->"b151f202-408f-4a4c-aa75-0d52339ec6d6"], +Cell[162492, 4186, 265, 4, 46, "Output",ExpressionUUID->"f3fddca0-7c04-464b-9872-fa1571072805"] }, 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[162794, 4195, 1041, 35, 210, "Input",ExpressionUUID->"6d308759-d07e-4ccf-bd66-600e97365892"], +Cell[163838, 4232, 280, 5, 46, "Output",ExpressionUUID->"30c4ebe6-cba0-44a9-804b-7980667a45fe"] }, 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[164155, 4242, 1144, 39, 155, "Input",ExpressionUUID->"8c45a6f2-d285-4834-b235-cbeef07e8c48"], +Cell[165302, 4283, 265, 4, 46, "Output",ExpressionUUID->"8140ab4b-c3a5-435f-9e93-6dc5f0054e3d"] }, 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[165604, 4292, 108, 1, 40, "Input",ExpressionUUID->"960fe648-427b-43fa-961b-eb79d7a71dae"], +Cell[165715, 4295, 269, 4, 46, "Output",ExpressionUUID->"62bc537b-6587-4d90-852e-107d1b567a95"] }, 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[166021, 4304, 108, 1, 40, "Input",ExpressionUUID->"6f7fb5be-8bb6-41ca-baf5-05818eba776a"], +Cell[166132, 4307, 285, 5, 46, "Output",ExpressionUUID->"1951f6da-1af0-46fb-b324-23caeacf887f"] }, 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[166454, 4317, 108, 1, 40, "Input",ExpressionUUID->"701e46b2-0fb9-4a73-9922-18f5c8cb8049"], +Cell[166565, 4320, 283, 5, 46, "Output",ExpressionUUID->"beecd80e-573e-44b6-8d91-cb288684c6cd"] }, 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[166885, 4330, 108, 1, 40, "Input",ExpressionUUID->"f8d84ace-ddee-44de-a7bc-880cbffd153c"], +Cell[166996, 4333, 267, 4, 46, "Output",ExpressionUUID->"3fb1ef4b-6e9b-4a70-82e2-7633ed1e0cda"] }, 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[167300, 4342, 107, 1, 40, "Input",ExpressionUUID->"4c118a39-81d3-45d2-8da1-7e309961ff1b"], +Cell[167410, 4345, 268, 4, 46, "Output",ExpressionUUID->"3545b561-af12-41be-a099-dc0914076041"] }, 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[167715, 4354, 107, 1, 40, "Input",ExpressionUUID->"63894018-20b0-44d6-9b8a-83ff7fb7cb0e"], +Cell[167825, 4357, 269, 4, 46, "Output",ExpressionUUID->"1d038171-e9fb-47a3-8be3-f30625d91b08"] }, 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[168131, 4366, 497, 16, 77, "Input",ExpressionUUID->"4f5688ae-4530-488d-8fa9-79ebd2a708ef"], +Cell[168631, 4384, 281, 5, 46, "Output",ExpressionUUID->"15668aa0-8042-4dbb-833d-82a4293a5fe0"] }, 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[168949, 4394, 497, 16, 77, "Input",ExpressionUUID->"4c76fc48-4d2c-4374-a6c9-63f468985be5"], +Cell[169449, 4412, 281, 5, 46, "Output",ExpressionUUID->"62c50798-b4a5-43c9-b419-2b0251efc149"] }, 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[169767, 4422, 1788, 60, 473, "Input",ExpressionUUID->"17788a04-8e24-4e34-a0f9-1e3354cfc915"], +Cell[171558, 4484, 266, 4, 46, "Output",ExpressionUUID->"d584a53e-ec97-4ae6-bef2-e2ecbe8abf20"] }, 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[171861, 4493, 1101, 36, 241, "Input",ExpressionUUID->"77d4cda4-2ac6-4636-8372-486b6b8dde3a"], +Cell[172965, 4531, 289, 5, 46, "Output",ExpressionUUID->"3bdd97cf-d028-4666-a8ee-52803f189b52"] }, 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[173291, 4541, 1818, 61, 473, "Input",ExpressionUUID->"1efc8b9d-492f-46b1-88cb-d5496cd6be24"], +Cell[175112, 4604, 264, 4, 46, "Output",ExpressionUUID->"d08fba9e-5ea0-4b3a-9597-beb24d090910"] }, 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[175413, 4613, 1631, 53, 228, "Input",ExpressionUUID->"d67e7983-3095-4d20-9bc2-644b495a613a"], +Cell[177047, 4668, 265, 4, 46, "Output",ExpressionUUID->"b4003c46-6fdc-453f-8253-30db730cc4d5"] }, 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[177349, 4677, 1631, 53, 228, "Input",ExpressionUUID->"2ad0f88e-648b-41f4-b747-131f028dd563"], +Cell[178983, 4732, 265, 4, 46, "Output",ExpressionUUID->"673ec28a-6845-41ea-b589-c6ea462d1484"] }, 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[179285, 4741, 238, 4, 40, "Input",ExpressionUUID->"bdefbecf-0aaa-4a45-a861-406cf54e52d1"], +Cell[179526, 4747, 161, 2, 46, "Output",ExpressionUUID->"48a3e596-da63-4a4d-8280-f0107e3edcc8"] }, Open ]], -Cell[376133, 8866, 209, 5, 56, "Input",ExpressionUUID->"f380af60-a605-c546-a4c8-b989835aa113"], +Cell[179702, 4752, 173, 2, 40, "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[179900, 4758, 206, 3, 40, "Input",ExpressionUUID->"45ed831b-459a-9a41-990f-c079ad464f5d"], +Cell[180109, 4763, 161, 2, 46, "Output",ExpressionUUID->"b20c53f1-894b-44e1-8bde-a33641ed4805"] +}, Open ]], +Cell[180285, 4768, 173, 2, 40, "Input",ExpressionUUID->"bc946e22-fdd1-8b4b-8e5a-11f4dcb03e07"], +Cell[CellGroupData[{ +Cell[180483, 4774, 1297, 42, 158, "Input",ExpressionUUID->"78018a61-7851-fe4d-b32f-cb68a3158f29"], +Cell[181783, 4818, 196, 2, 46, "Output",ExpressionUUID->"8fd3b7f9-f173-4350-8196-7ef4b375488e"] }, 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[182016, 4825, 929, 30, 139, "Input",ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-7221ff813b6d"], +Cell[182948, 4857, 193, 2, 46, "Output",ExpressionUUID->"fb32bd02-f55e-42a6-bec2-1a6af9fa27ee"] }, 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[183178, 4864, 906, 29, 139, "Input",ExpressionUUID->"f22831a7-63b7-f444-8e3a-fa370a62ac27"], +Cell[184087, 4895, 196, 2, 46, "Output",ExpressionUUID->"15776590-65b5-4755-9f36-f2278e55e762"] }, 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[184320, 4902, 554, 18, 73, "Input",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"], +Cell[184877, 4922, 191, 2, 46, "Output",ExpressionUUID->"12b8da03-513f-4b5c-a919-9e35072bbc51"] }, 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[185105, 4929, 619, 20, 73, "Input",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"], +Cell[185727, 4951, 191, 2, 46, "Output",ExpressionUUID->"c3eaa25f-1d0d-48bf-808a-84be7cd0e401"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185955, 4958, 166, 4, 77, "Input",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"], +Cell[186124, 4964, 189, 2, 46, "Output",ExpressionUUID->"c0df80c2-9042-4769-8731-b15f4e116a01"] +}, Open ]], +Cell[CellGroupData[{ +Cell[186350, 4971, 166, 4, 77, "Input",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"], +Cell[186519, 4977, 188, 2, 46, "Output",ExpressionUUID->"1341fdb5-ceb4-423e-a9fa-2deee0a805a9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[186744, 4984, 177, 4, 60, "Input",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"], +Cell[186924, 4990, 190, 2, 46, "Output",ExpressionUUID->"7441419e-28e1-4d8d-865d-69c3e1b4b8a9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187151, 4997, 177, 4, 60, "Input",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"], +Cell[187331, 5003, 192, 2, 46, "Output",ExpressionUUID->"d4cf53d9-6c78-4931-8811-3fff7c75130d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187560, 5010, 6051, 184, 1094, "Input",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"], +Cell[193614, 5196, 193, 2, 46, "Output",ExpressionUUID->"d4819def-5378-436f-b8c6-e98586033204"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193844, 5203, 364, 8, 58, "Input",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"], +Cell[194211, 5213, 191, 2, 46, "Output",ExpressionUUID->"bd661483-7fc3-4cd6-8c22-49c67397d736"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194439, 5220, 6118, 186, 1094, "Input",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"], +Cell[200560, 5408, 190, 2, 46, "Output",ExpressionUUID->"277392c7-6e8c-480e-909b-da95e9be1bec"] +}, Open ]], +Cell[CellGroupData[{ +Cell[200787, 5415, 364, 8, 58, "Input",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"], +Cell[201154, 5425, 188, 2, 46, "Output",ExpressionUUID->"08d15a1e-e124-4ffc-ab6a-f1aebe42186a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[201379, 5432, 2659, 87, 470, "Input",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"], +Cell[204041, 5521, 190, 2, 46, "Output",ExpressionUUID->"b271bb60-308c-450e-8994-0982ae828003"] +}, Open ]], +Cell[CellGroupData[{ +Cell[204268, 5528, 2599, 84, 470, "Input",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"], +Cell[206870, 5614, 192, 2, 46, "Output",ExpressionUUID->"2ded5b18-4146-462e-981d-0c0f21f5d9e4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[207099, 5621, 3708, 117, 620, "Input",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"], +Cell[210810, 5740, 194, 2, 46, "Output",ExpressionUUID->"020408fc-b830-4f2e-8283-69848237cbfe"] +}, Open ]], +Cell[211019, 5745, 160, 3, 40, "Input",ExpressionUUID->"714abd93-e0d1-eb45-a9e1-7a2f5d020eb1"], +Cell[CellGroupData[{ +Cell[211204, 5752, 2099, 59, 292, "Input",ExpressionUUID->"137c38a2-741c-bd43-b6d9-c0135e32eaf8"], +Cell[213306, 5813, 643, 14, 84, "Message",ExpressionUUID->"39730416-587b-40ae-9ea0-2498d6db1d95"], +Cell[213952, 5829, 642, 14, 84, "Message",ExpressionUUID->"d0cb3754-d58b-4c0c-bced-bd98d64f8f20"], +Cell[214597, 5845, 644, 14, 84, "Message",ExpressionUUID->"b6b5a1ae-7885-404f-a55d-5b103b12943d"], +Cell[215244, 5861, 491, 11, 60, "Message",ExpressionUUID->"840254ef-9b71-4c7e-a036-d0e002f17663"], +Cell[215738, 5874, 191, 2, 46, "Output",ExpressionUUID->"27175306-5f63-4b60-869f-c810b7ad6c6d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[215966, 5881, 2097, 59, 292, "Input",ExpressionUUID->"9b196534-2ca5-e54b-8014-b0ab3cd09ac2"], +Cell[218066, 5942, 641, 14, 84, "Message",ExpressionUUID->"5b746853-635c-4c02-8c8d-584f49a071d6"], +Cell[218710, 5958, 640, 14, 84, "Message",ExpressionUUID->"b84cb90e-8f92-4047-b2fb-b476317e9df7"], +Cell[219353, 5974, 640, 14, 84, "Message",ExpressionUUID->"32dd0491-c786-459a-981d-7e3efdb0c35c"], +Cell[219996, 5990, 487, 11, 60, "Message",ExpressionUUID->"86bdec20-44c8-4a78-bc58-4f266e24c7ff"], +Cell[220486, 6003, 193, 2, 46, "Output",ExpressionUUID->"8539b052-e691-429e-b628-97494db8c63d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[220716, 6010, 2047, 54, 292, "Input",ExpressionUUID->"124cd7db-c537-8943-bef2-1a154ab4a709"], +Cell[222766, 6066, 20271, 382, 331, "Output",ExpressionUUID->"fc0748ee-5156-4985-b452-eb08223269ed"] +}, Open ]], +Cell[CellGroupData[{ +Cell[243074, 6453, 2113, 59, 387, "Input",ExpressionUUID->"5a7f9400-1446-9746-a463-bade8ae5c530"], +Cell[245190, 6514, 531, 12, 105, "Message",ExpressionUUID->"f9ef3f2c-dbb9-40cf-8606-7d3b2bfd7d84"], +Cell[245724, 6528, 537, 12, 105, "Message",ExpressionUUID->"1af91980-f7e6-4e30-84aa-b25571519fc2"], +Cell[246264, 6542, 538, 12, 105, "Message",ExpressionUUID->"7ce82f6f-0a70-451b-ab76-4789e2d1179f"], +Cell[246805, 6556, 490, 11, 60, "Message",ExpressionUUID->"488a4e50-f111-4d02-afbf-da31b622831e"], +Cell[247298, 6569, 24004, 440, 325, "Output",ExpressionUUID->"b6a7364e-972b-458d-be6b-3a0000d8ef45"] +}, Open ]], +Cell[CellGroupData[{ +Cell[271339, 7014, 2498, 69, 323, "Input",ExpressionUUID->"0f83f761-b16d-5343-987d-511095eaf120"], +Cell[273840, 7085, 9467, 219, 334, "Output",ExpressionUUID->"a49b2d34-32b1-45e7-9f69-5633f27b30b8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[283344, 7309, 228, 4, 40, "Input",ExpressionUUID->"8cdd4baa-f7c9-104e-b978-89d3982ba28f"], +Cell[283575, 7315, 30337, 569, 325, "Output",ExpressionUUID->"dd94de66-277a-45bd-8dd6-48f081e8104e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[313949, 7889, 236, 6, 67, "Input",ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-3438788b15d6"], +Cell[314188, 7897, 189, 2, 46, "Output",ExpressionUUID->"78b7a8a2-635e-4d9a-bad0-186aa3aa49c1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[314414, 7904, 1835, 52, 339, "Input",ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-0e75880d5d98"], +Cell[316252, 7958, 542, 12, 112, "Message",ExpressionUUID->"79b13ad1-653a-4056-8611-60c063ed6a08"], +Cell[316797, 7972, 547, 12, 112, "Message",ExpressionUUID->"09852616-dade-4ef5-a3a4-27231a3522f6"], +Cell[317347, 7986, 550, 12, 112, "Message",ExpressionUUID->"ebcdf6f4-f802-4e76-ac69-05cbf75d1f54"], +Cell[317900, 8000, 490, 11, 60, "Message",ExpressionUUID->"6f407c6a-940b-45f8-a6ce-ddbee339cee9"], +Cell[318393, 8013, 23053, 425, 325, "Output",ExpressionUUID->"a23663fa-7c84-4f79-abfe-a8d0b2987f20"] +}, Open ]], +Cell[CellGroupData[{ +Cell[341483, 8443, 1616, 48, 144, "Input",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"], +Cell[343102, 8493, 645, 14, 84, "Message",ExpressionUUID->"c9aa50e6-6751-4be3-a36c-596bbdb9726b"], +Cell[343750, 8509, 645, 14, 84, "Message",ExpressionUUID->"0593898a-01d0-4602-8e92-558e5d816255"], +Cell[344398, 8525, 645, 14, 84, "Message",ExpressionUUID->"16d2ad36-ed5d-4cc3-895d-ec41d074bb09"], +Cell[345046, 8541, 494, 11, 60, "Message",ExpressionUUID->"522cf4ac-8860-4ece-af4a-1284f17a5ace"], +Cell[345543, 8554, 193, 3, 46, "Output",ExpressionUUID->"45947dbe-ad61-4823-b6d9-55ad563449b3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[345773, 8562, 2272, 64, 461, "Input",ExpressionUUID->"eb852908-4d60-c84e-80d9-a57fd4094f56"], +Cell[348048, 8628, 644, 14, 84, "Message",ExpressionUUID->"ab0eedfc-e8f7-461f-8624-882f2f1a896d"], +Cell[348695, 8644, 643, 14, 84, "Message",ExpressionUUID->"f9c6ff8a-ca09-467f-abdd-9a1342c868f3"], +Cell[349341, 8660, 643, 14, 84, "Message",ExpressionUUID->"7eb3cda8-ce59-47ef-82f7-23c3e1122334"], +Cell[349987, 8676, 490, 11, 60, "Message",ExpressionUUID->"bb7cf901-6985-414f-b7f7-e261295ceef0"], +Cell[350480, 8689, 196, 3, 46, "Output",ExpressionUUID->"2ff71d0b-9729-4660-a7a5-0c9b02a8d711"] +}, Open ]], +Cell[CellGroupData[{ +Cell[350713, 8697, 2235, 63, 461, "Input",ExpressionUUID->"d11037f6-09e7-b44f-8a1d-47c1a485c608"], +Cell[352951, 8762, 646, 14, 84, "Message",ExpressionUUID->"ac1bb8ce-f675-4bb6-a4ec-77edd4f8e5b7"], +Cell[353600, 8778, 643, 14, 84, "Message",ExpressionUUID->"b827412f-b60c-4b16-856b-7d564a372c9b"], +Cell[354246, 8794, 643, 14, 84, "Message",ExpressionUUID->"fbc9ba09-6a7f-44e1-bd5e-86c2b3e0b08a"], +Cell[354892, 8810, 490, 11, 60, "Message",ExpressionUUID->"092c67a1-d778-4836-9f00-c3c94f0b4872"], +Cell[355385, 8823, 196, 3, 46, "Output",ExpressionUUID->"09ac4ddb-29fc-4efa-9ab7-fea84305f46c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[355618, 8831, 2233, 63, 461, "Input",ExpressionUUID->"431dd2fa-6331-2449-bc19-0d79e6ed8953"], +Cell[357854, 8896, 648, 14, 84, "Message",ExpressionUUID->"a2d8d0a3-68bb-4fea-b3d5-972d5ec48195"], +Cell[358505, 8912, 645, 14, 84, "Message",ExpressionUUID->"4ba0a4a4-8c31-4fd1-9287-e49eb2adf270"], +Cell[359153, 8928, 647, 14, 84, "Message",ExpressionUUID->"98f1c1da-426a-409e-9974-797388bfdd0e"], +Cell[359803, 8944, 492, 11, 60, "Message",ExpressionUUID->"93978044-2700-4bbc-9cac-4efdf464c3d4"], +Cell[360298, 8957, 193, 3, 46, "Output",ExpressionUUID->"460e5040-7ee6-453b-a24b-e36449554bcf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[360528, 8965, 236, 6, 66, "Input",ExpressionUUID->"8c5df121-e0b9-a146-bc34-b231aa8028b9"], +Cell[360767, 8973, 196, 3, 46, "Output",ExpressionUUID->"1aa0e1fd-6148-4c8a-8ad4-443142f50fe8"] +}, Open ]], +Cell[360978, 8979, 271, 6, 40, "Input",ExpressionUUID->"831a27fc-89ff-e041-97f1-0ec5d19a7879"], +Cell[CellGroupData[{ +Cell[361274, 8989, 558, 19, 73, "Input",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"], +Cell[361835, 9010, 194, 3, 46, "Output",ExpressionUUID->"c2ff59f1-94bd-4812-a5da-42a4adb96872"] +}, Open ]], +Cell[CellGroupData[{ +Cell[362066, 9018, 170, 5, 77, "Input",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"], +Cell[362239, 9025, 195, 3, 46, "Output",ExpressionUUID->"39bc95e4-9915-4ac1-979e-95ab360a78de"] +}, Open ]], +Cell[CellGroupData[{ +Cell[362471, 9033, 181, 5, 60, "Input",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"], +Cell[362655, 9040, 194, 3, 46, "Output",ExpressionUUID->"d7cf0c82-85ec-471c-8185-71490ac095c4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[362886, 9048, 6055, 185, 1094, "Input",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"], +Cell[368944, 9235, 195, 3, 46, "Output",ExpressionUUID->"68ff6b5a-1d0f-45cb-8a6f-d0bed098f291"] +}, Open ]], +Cell[CellGroupData[{ +Cell[369176, 9243, 368, 9, 58, "Input",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"], +Cell[369547, 9254, 193, 3, 46, "Output",ExpressionUUID->"3a0594bb-14e5-4010-ab08-c6cfedd69f36"] +}, Open ]], +Cell[CellGroupData[{ +Cell[369777, 9262, 6122, 187, 1094, "Input",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"], +Cell[375902, 9451, 198, 3, 46, "Output",ExpressionUUID->"fcae2904-b2d3-41ab-af45-d41337786cf6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[376137, 9459, 368, 9, 58, "Input",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"], +Cell[376508, 9470, 194, 3, 46, "Output",ExpressionUUID->"c81dd3dc-cbaf-4dd9-b963-8acc1ceefa07"] +}, Open ]], +Cell[CellGroupData[{ +Cell[376739, 9478, 2663, 88, 470, "Input",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"], +Cell[379405, 9568, 196, 3, 46, "Output",ExpressionUUID->"4a8215ff-4b1b-484d-a3e7-d04f5c394c32"] +}, Open ]], +Cell[CellGroupData[{ +Cell[379638, 9576, 2603, 85, 470, "Input",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"], +Cell[382244, 9663, 192, 3, 46, "Output",ExpressionUUID->"f5409872-6ff4-41bb-82a5-8b0f81b1cfc2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[382473, 9671, 3712, 118, 620, "Input",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"], +Cell[386188, 9791, 198, 3, 46, "Output",ExpressionUUID->"c4a4d21d-3a11-48cc-b7cf-e8cc4650a42d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[386423, 9799, 2101, 60, 292, "Input",ExpressionUUID->"220bdeed-2e17-e94c-a7b0-3e066daf15d7"], +Cell[388527, 9861, 644, 14, 108, "Message",ExpressionUUID->"fbea46e5-7ce1-4191-afdb-0c8e80f88900"], +Cell[389174, 9877, 645, 14, 108, "Message",ExpressionUUID->"1dc3d008-124b-48af-a988-0a7711af31fb"], +Cell[389822, 9893, 645, 14, 108, "Message",ExpressionUUID->"d89d746c-9ca3-4db7-a61a-d3d039e191a4"], +Cell[390470, 9909, 490, 11, 60, "Message",ExpressionUUID->"665ecc2f-a59b-48a6-a654-463bf228a93b"], +Cell[390963, 9922, 195, 3, 46, "Output",ExpressionUUID->"2293081d-69c1-4772-9627-9248820e955a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[391195, 9930, 2103, 60, 292, "Input",ExpressionUUID->"b8791a07-33fe-8c4f-9c59-dd23af9a4471"], +Cell[393301, 9992, 643, 14, 108, "Message",ExpressionUUID->"41c5affc-5f36-445c-85d2-edfdad6f7f9b"], +Cell[393947, 10008, 643, 14, 108, "Message",ExpressionUUID->"e640f572-73ad-4d1f-8f50-1051e2e06b0c"], +Cell[394593, 10024, 642, 14, 108, "Message",ExpressionUUID->"0e9118ea-f5be-4919-924c-11b6bc223050"], +Cell[395238, 10040, 488, 11, 60, "Message",ExpressionUUID->"7f1072b5-68e2-4df5-b41d-751cc77b8e4b"], +Cell[395729, 10053, 194, 3, 46, "Output",ExpressionUUID->"69249271-004c-4c13-8640-6fada117556e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[395960, 10061, 2051, 55, 292, "Input",ExpressionUUID->"3fe6e7f1-b44a-234f-af77-3cf1fdaf28d9"], +Cell[398014, 10118, 20299, 383, 325, "Output",ExpressionUUID->"97a65d37-1b29-4555-bb66-b3137cc26842"] +}, Open ]], +Cell[CellGroupData[{ +Cell[418350, 10506, 2138, 60, 387, "Input",ExpressionUUID->"ab29778f-f183-804b-b871-4070462057d7"], +Cell[420491, 10568, 531, 12, 82, "Message",ExpressionUUID->"6edb7460-8fa7-4d2e-b847-40199ce737ef"], +Cell[421025, 10582, 533, 12, 105, "Message",ExpressionUUID->"54e5e801-c35a-42aa-8f39-060fad53ea11"], +Cell[421561, 10596, 536, 12, 105, "Message",ExpressionUUID->"34cfb5f2-c591-4c10-b271-5156fb01b9da"], +Cell[422100, 10610, 492, 11, 60, "Message",ExpressionUUID->"be72f63f-63f6-4731-bff3-6f4344c9e889"], +Cell[422595, 10623, 25265, 462, 325, "Output",ExpressionUUID->"14d3f4bc-7cdd-4464-a231-3fb60935405b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[447897, 11090, 232, 5, 40, "Input",ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-6bd251746ea6"], +Cell[448132, 11097, 31600, 591, 325, "Output",ExpressionUUID->"801e2d25-364b-420f-88c0-cccbae2f4c14"] +}, Open ]], +Cell[CellGroupData[{ +Cell[479769, 11693, 1616, 48, 144, "Input",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"], +Cell[481388, 11743, 644, 14, 84, "Message",ExpressionUUID->"8f86b061-660b-4e2c-a645-def7e2c2fa75"], +Cell[482035, 11759, 645, 14, 84, "Message",ExpressionUUID->"b3401709-98db-4368-ae83-d91b30e7054d"], +Cell[482683, 11775, 643, 14, 84, "Message",ExpressionUUID->"e75fa12e-c00e-4028-a5d7-ed439faadc06"], +Cell[483329, 11791, 492, 11, 60, "Message",ExpressionUUID->"2bc2cadb-d2b8-470b-b820-76440bf33626"], +Cell[483824, 11804, 195, 3, 46, "Output",ExpressionUUID->"f69ea7ab-10c2-4277-aa0d-f26b26730b05"] +}, Open ]], +Cell[CellGroupData[{ +Cell[484056, 11812, 2270, 64, 461, "Input",ExpressionUUID->"5a0cc4bb-b2b0-c64c-958a-7a397847208f"], +Cell[486329, 11878, 647, 14, 108, "Message",ExpressionUUID->"411fd6c5-5bfc-43c9-a00b-b3e160fe6935"], +Cell[486979, 11894, 649, 14, 108, "Message",ExpressionUUID->"31b44f71-b30c-4e03-a618-24e21d9c05d6"], +Cell[487631, 11910, 645, 14, 108, "Message",ExpressionUUID->"35b704a4-dd47-4d89-a57e-22d4a7ad7772"], +Cell[488279, 11926, 492, 11, 60, "Message",ExpressionUUID->"2a54b319-9e57-451c-a013-ebef05c343f0"], +Cell[488774, 11939, 195, 3, 46, "Output",ExpressionUUID->"b8ff7216-e582-41fe-b235-294bb347b633"] +}, Open ]], +Cell[CellGroupData[{ +Cell[489006, 11947, 2231, 63, 461, "Input",ExpressionUUID->"22b50200-0b82-dc47-9932-f1f0210d6caf"], +Cell[491240, 12012, 647, 14, 108, "Message",ExpressionUUID->"b1f36425-1fbb-4b2b-b80d-8e9737c105e4"], +Cell[491890, 12028, 647, 14, 108, "Message",ExpressionUUID->"f1624693-fff7-44aa-971c-b69af844cd05"], +Cell[492540, 12044, 647, 14, 108, "Message",ExpressionUUID->"49eafb94-ffa4-47a2-b78e-bf94a51ef634"], +Cell[493190, 12060, 492, 11, 60, "Message",ExpressionUUID->"091b7866-a1ef-4838-afe0-98203562b596"], +Cell[493685, 12073, 195, 3, 46, "Output",ExpressionUUID->"44a16648-39f4-4c62-91bb-a5f8cd75e82c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[493917, 12081, 2233, 63, 461, "Input",ExpressionUUID->"8a5105db-666c-444e-9451-d3e8d1574bcd"], +Cell[496153, 12146, 647, 14, 108, "Message",ExpressionUUID->"198101cf-4fcc-49e2-8301-02419fcde165"], +Cell[496803, 12162, 647, 14, 108, "Message",ExpressionUUID->"29b271ab-5629-4e03-ba58-fd8eadfcdaff"], +Cell[497453, 12178, 646, 14, 108, "Message",ExpressionUUID->"31bdb65d-3f20-46fd-aef5-d940d7a60e16"], +Cell[498102, 12194, 494, 11, 60, "Message",ExpressionUUID->"04ac1e2e-4cf3-4e70-bdea-63f3d5ffdbfe"], +Cell[498599, 12207, 193, 3, 46, "Output",ExpressionUUID->"65b41a39-e255-4aeb-98d5-d553699eb331"] +}, Open ]], +Cell[CellGroupData[{ +Cell[498829, 12215, 236, 6, 66, "Input",ExpressionUUID->"d0efa798-230b-fa46-b413-76bfd8e40ccb"], +Cell[499068, 12223, 197, 3, 46, "Output",ExpressionUUID->"de4d258b-de1b-4349-a8c8-174611d3d9ca"] +}, Open ]], +Cell[499280, 12229, 273, 6, 40, "Input",ExpressionUUID->"f842f74e-f562-934a-9011-6604b8708636"], +Cell[CellGroupData[{ +Cell[499578, 12239, 558, 19, 73, "Input",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"], +Cell[500139, 12260, 193, 3, 46, "Output",ExpressionUUID->"6dc28b93-c58e-4520-a423-982570079032"] +}, Open ]], +Cell[CellGroupData[{ +Cell[500369, 12268, 170, 5, 77, "Input",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"], +Cell[500542, 12275, 196, 3, 46, "Output",ExpressionUUID->"18cc84b0-4ab7-4569-a95a-aa05d7169990"] +}, Open ]], +Cell[CellGroupData[{ +Cell[500775, 12283, 181, 5, 60, "Input",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"], +Cell[500959, 12290, 193, 3, 46, "Output",ExpressionUUID->"f3a4a65b-4bd2-4e63-a9c8-81e04441f788"] +}, Open ]], +Cell[CellGroupData[{ +Cell[501189, 12298, 6055, 185, 1094, "Input",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"], +Cell[507247, 12485, 192, 3, 46, "Output",ExpressionUUID->"1d19e12c-bde7-4e91-9aa9-61f25981a09f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[507476, 12493, 368, 9, 58, "Input",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"], +Cell[507847, 12504, 197, 3, 46, "Output",ExpressionUUID->"6b07b6ef-d1bd-4396-a3f4-d0c0d5f52410"] +}, Open ]], +Cell[CellGroupData[{ +Cell[508081, 12512, 6122, 187, 1094, "Input",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"], +Cell[514206, 12701, 195, 3, 46, "Output",ExpressionUUID->"22a035d6-3275-4936-87d1-03a70979ccea"] +}, Open ]], +Cell[CellGroupData[{ +Cell[514438, 12709, 368, 9, 58, "Input",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"], +Cell[514809, 12720, 192, 3, 46, "Output",ExpressionUUID->"c00c7b7e-f948-48a9-a36d-6b15b2b98142"] +}, Open ]], +Cell[CellGroupData[{ +Cell[515038, 12728, 2663, 88, 470, "Input",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"], +Cell[517704, 12818, 196, 3, 46, "Output",ExpressionUUID->"cd5ee18f-c934-4dff-a8c9-0273580b7301"] +}, Open ]], +Cell[CellGroupData[{ +Cell[517937, 12826, 2603, 85, 470, "Input",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"], +Cell[520543, 12913, 194, 3, 46, "Output",ExpressionUUID->"ca859937-cc43-4646-b722-3d42041fc1f8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[520774, 12921, 3712, 118, 620, "Input",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"], +Cell[524489, 13041, 196, 3, 46, "Output",ExpressionUUID->"3c95c753-2581-4ae2-ad0a-686e0090e507"] +}, Open ]], +Cell[CellGroupData[{ +Cell[524722, 13049, 2103, 60, 292, "Input",ExpressionUUID->"1dec41a6-6752-2041-9d38-804123b5ccd0"], +Cell[526828, 13111, 647, 14, 108, "Message",ExpressionUUID->"00e2bbc4-d99c-4fa8-954a-66743b7eaca2"], +Cell[527478, 13127, 645, 14, 84, "Message",ExpressionUUID->"e5ea677e-705d-492d-8f31-b3da90f3f255"], +Cell[528126, 13143, 647, 14, 84, "Message",ExpressionUUID->"544d0b10-03f6-4909-8ec0-3ce61586ebd6"], +Cell[528776, 13159, 492, 11, 60, "Message",ExpressionUUID->"97812c31-4b0c-4a1d-aed6-7e395d94675d"], +Cell[529271, 13172, 193, 3, 46, "Output",ExpressionUUID->"b45a8627-096c-479f-b804-9f794b70171c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[529501, 13180, 2100, 60, 292, "Input",ExpressionUUID->"442c9cc5-031c-244c-a3bb-8044e56b047f"], +Cell[531604, 13242, 647, 14, 108, "Message",ExpressionUUID->"13975125-4d6e-4554-8ea9-1d9a9eec1ac7"], +Cell[532254, 13258, 643, 14, 84, "Message",ExpressionUUID->"95d79b26-2b3a-412a-9dc8-219bde2b019c"], +Cell[532900, 13274, 645, 14, 84, "Message",ExpressionUUID->"88c2e1f1-35cf-4238-8b4c-0383b78a579f"], +Cell[533548, 13290, 490, 11, 60, "Message",ExpressionUUID->"f78e2a75-1bab-4030-a205-cb81915e4cd1"], +Cell[534041, 13303, 194, 3, 46, "Output",ExpressionUUID->"189acdbc-ae8c-43a3-bc1a-5511bd4796f5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[534272, 13311, 2053, 55, 292, "Input",ExpressionUUID->"75bdb70f-74f6-1a4c-9c04-b799ae260294"], +Cell[536328, 13368, 20518, 386, 333, "Output",ExpressionUUID->"a09936f9-e961-4fd4-9441-fa44e6c4b1c5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[556883, 13759, 2143, 60, 387, "Input",ExpressionUUID->"cbec275e-4d01-7747-9ece-7fa9a2a651b1"], +Cell[559029, 13821, 530, 12, 105, "Message",ExpressionUUID->"05330ff3-5cbc-4ed5-8d6b-8a3493edf31e"], +Cell[559562, 13835, 535, 12, 105, "Message",ExpressionUUID->"336d21dd-aacd-4ea7-b458-9586d00ef90a"], +Cell[560100, 13849, 537, 12, 105, "Message",ExpressionUUID->"58e1e31f-9b5a-4bd9-8397-c6c839388b97"], +Cell[560640, 13863, 490, 11, 60, "Message",ExpressionUUID->"a6c7d211-0a00-4c01-9076-72d15e795daa"], +Cell[561133, 13876, 23885, 438, 325, "Output",ExpressionUUID->"1e5f2a59-311b-45c8-af42-be3d466b7803"] +}, Open ]], +Cell[CellGroupData[{ +Cell[585055, 14319, 232, 5, 40, "Input",ExpressionUUID->"f380af60-a605-c546-a4c8-b989835aa113"], +Cell[585290, 14326, 30218, 567, 325, "Output",ExpressionUUID->"37dd3df3-b40b-43a8-aba1-734484ee552e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[615545, 14898, 1616, 48, 144, "Input",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"], +Cell[617164, 14948, 643, 14, 84, "Message",ExpressionUUID->"11dbfb4c-d555-4eae-b047-f39638b4e646"], +Cell[617810, 14964, 643, 14, 84, "Message",ExpressionUUID->"08e4777d-56c7-42ef-a427-7d7494cdce7e"], +Cell[618456, 14980, 643, 14, 84, "Message",ExpressionUUID->"5762a3e8-3c06-4a72-b760-11bb6a16ba7a"], +Cell[619102, 14996, 492, 11, 60, "Message",ExpressionUUID->"963c3e7c-9cf1-4bf0-a423-7cf2d2239fcb"], +Cell[619597, 15009, 196, 3, 46, "Output",ExpressionUUID->"1563fd01-95aa-48ff-b7b5-be74de0b9095"] +}, Open ]], +Cell[CellGroupData[{ +Cell[619830, 15017, 2272, 64, 461, "Input",ExpressionUUID->"f2835c98-560f-8e47-bdab-0d2700971836"], +Cell[622105, 15083, 647, 14, 108, "Message",ExpressionUUID->"3d08f8bd-90a2-48f0-adbe-1f2bb5e2a362"], +Cell[622755, 15099, 645, 14, 84, "Message",ExpressionUUID->"72459c46-cf6d-4f27-94a5-abfe4a7c734c"], +Cell[623403, 15115, 645, 14, 84, "Message",ExpressionUUID->"eb020dc6-f592-4214-ba62-4e034efae1e1"], +Cell[624051, 15131, 494, 11, 60, "Message",ExpressionUUID->"0c63a378-31d0-45ec-91c9-da5c7ec168ff"], +Cell[624548, 15144, 196, 3, 46, "Output",ExpressionUUID->"965e47a5-1e5d-47bb-86de-e8ac5be15ef5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[624781, 15152, 2233, 63, 461, "Input",ExpressionUUID->"ca837916-250f-4d4e-8368-5a08f479e656"], +Cell[627017, 15217, 647, 14, 108, "Message",ExpressionUUID->"01a5bd35-9f8e-4854-beeb-2844a2ea3a71"], +Cell[627667, 15233, 645, 14, 84, "Message",ExpressionUUID->"4c3d43bc-43a5-4a35-b2fe-66b8a357a6bb"], +Cell[628315, 15249, 647, 14, 84, "Message",ExpressionUUID->"01ab13ce-2cf2-41ad-b76c-74a96292bed5"], +Cell[628965, 15265, 492, 11, 60, "Message",ExpressionUUID->"724a1a9e-f328-43bc-8a33-0b6c1fb35673"], +Cell[629460, 15278, 195, 3, 46, "Output",ExpressionUUID->"c457aa4d-4fee-461a-a0c8-d8da75aedc3b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[629692, 15286, 2235, 63, 461, "Input",ExpressionUUID->"b579991f-985b-234a-94aa-ed18c097f8c0"], +Cell[631930, 15351, 649, 14, 108, "Message",ExpressionUUID->"12f49fde-4c2e-4bd2-992b-de6dc77e0890"], +Cell[632582, 15367, 647, 14, 84, "Message",ExpressionUUID->"8cb689ab-a864-432b-b2a4-289f5039be44"], +Cell[633232, 15383, 644, 14, 84, "Message",ExpressionUUID->"67117b63-8e69-4ade-aa7b-42255c9503cd"], +Cell[633879, 15399, 494, 11, 60, "Message",ExpressionUUID->"4c679554-0f8a-428a-865a-9d7f36fd66fc"], +Cell[634376, 15412, 194, 3, 46, "Output",ExpressionUUID->"373ea168-eca0-485a-b00f-30d3b7df6e98"] +}, Open ]], +Cell[CellGroupData[{ +Cell[634607, 15420, 238, 6, 66, "Input",ExpressionUUID->"afb7855c-8700-d444-926c-6d96abe14e67"], +Cell[634848, 15428, 197, 3, 46, "Output",ExpressionUUID->"6aaceb32-4fa4-406e-80e9-8e07031394ac"] +}, Open ]], +Cell[635060, 15434, 143, 3, 40, "Input",ExpressionUUID->"4fd92e61-34cc-4115-9b97-37057230a01b"] } ] *) -(* End of internal cache information *) - diff --git a/Pu240_798-811_TitovAA/160-80_h_Pu240_14-15/h_160-80_Pu240_14-15_pr_Qw2.nb b/Pu240_798-811_TitovAA/160-80_h_Pu240_14-15/h_160-80_Pu240_14-15_pr_Qw2.nb index 1226680..f3f6107 100644 --- a/Pu240_798-811_TitovAA/160-80_h_Pu240_14-15/h_160-80_Pu240_14-15_pr_Qw2.nb +++ b/Pu240_798-811_TitovAA/160-80_h_Pu240_14-15/h_160-80_Pu240_14-15_pr_Qw2.nb @@ -3,42 +3,4771 @@ (*** 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[ 660540, 15829] +NotebookOptionsPosition[ 619968, 15180] +NotebookOutlinePosition[ 620402, 15198] +CellTagsIndexPosition[ 620359, 15195] 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.993815385399456*^9, 3.9938153854750338`*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"d60583fa-07c8-4897-a59a-86f3dc8d0276"], + +Cell[BoxData["2"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, {3.993815359458637*^9, 3.993815388522393*^9}, + 3.99395864618618*^9, 3.993959249260396*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"ac8fe135-d25c-49d9-8cc0-62743ba5f11e"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.993815078773963*^9, 3.9938150795912027`*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"4897d368-ed74-4e55-adfc-0daa97f01365"], + +Cell[BoxData["240"], "Output", CellChangeTimes->{ - 3.9918501402114105`*^9},ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-\ -092c5143dcf0"], + 3.9913196497381973`*^9, {3.9938153597191753`*^9, 3.993815388600842*^9}, + 3.993958646269747*^9, 3.99395924933932*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"933fc0c7-2e20-423e-9728-afd9ed7a0e38"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "160"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.993815083810103*^9, 3.9938150844706078`*^9}}, + CellLabel->"In[3]:=",ExpressionUUID->"5331caa0-0f8e-48d3-82b7-22062059282c"], + +Cell[BoxData["160"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, {3.9938153597338867`*^9, 3.9938153886223583`*^9}, + 3.9939586462872963`*^9, 3.993959249348695*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"6d2df5f4-e29f-47bd-918c-64801b8ed4d8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"7a531246-230c-45c5-be84-e966e28aa265"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, {3.993815359749675*^9, 3.9938153886357193`*^9}, + 3.993958646302828*^9, 3.9939592493589983`*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"7756e4c9-7921-4161-86b6-2f41bee21a17"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"bfc8c9da-5fcf-4579-974c-4501dd30ea71"], + +Cell[BoxData["0.545`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, {3.99381535976541*^9, 3.993815388649356*^9}, + 3.993958646307432*^9, 3.9939592493676043`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"6de254c6-3e9a-48ef-93c2-136bc8208217"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"4ea5bf5d-7c87-4e83-8cac-6d6c08e36207"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, {3.993815359780024*^9, 3.993815388663189*^9}, + 3.993958646333138*^9, 3.993959249375937*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"64b9fc1e-8fb0-40ab-9f7c-59db63903052"] +}, 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->"c40fe154-833b-42eb-ba9f-f177babdfa24"], + +Cell[BoxData["6.297448870500181`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, {3.9938153597958603`*^9, 3.993815388676372*^9}, + 3.993958646348687*^9, 3.9939592493838387`*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"63d41660-8f6e-4709-8f14-0901ac44f92d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"f1a21579-f6f4-4eb2-9229-ab8f69b9b3f0"], + +Cell[BoxData["4.9982884808739705`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, {3.993815359810844*^9, 3.993815388688987*^9}, + 3.993958646364296*^9, 3.993959249392082*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"305c8b9f-0fda-46a3-abc3-296a79802fa9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.97776"}]], "Input", + CellChangeTimes->{ + 3.991799283179735*^9, {3.9938151564672937`*^9, 3.9938151618001623`*^9}}, + CellLabel->"In[9]:=",ExpressionUUID->"87bd62d8-ed24-49d6-a76b-fdc8e636f312"], + +Cell[BoxData["0.97776`"], "Output", + CellChangeTimes->{{3.993815359825905*^9, 3.993815388702949*^9}, + 3.993958646379671*^9, 3.9939592494008427`*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"1be3421a-4bcf-4117-80db-503a730d8e7b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.42961"}]], "Input", + CellChangeTimes->{ + 3.991799280663351*^9, {3.993815163461789*^9, 3.99381517066012*^9}}, + CellLabel->"In[10]:=",ExpressionUUID->"eac9a29e-0678-4aa2-bbeb-51699e7f0cdc"], + +Cell[BoxData["0.42961`"], "Output", + CellChangeTimes->{{3.993815359840959*^9, 3.993815388718238*^9}, + 3.993958646395402*^9, 3.993959249409375*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"95bad680-410a-4c25-a6d9-06f2e0a45be7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"337e902d-15db-41a8-9afe-a6a97f0cb326"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, {3.993815359855208*^9, 3.993815388731841*^9}, + 3.993958646410099*^9, 3.993959249419229*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"560ffd9d-1799-4764-90ec-f264f4f9e964"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"9eb53275-8bc4-44f9-9e67-a9be869b6343"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, {3.993815359869401*^9, 3.993815388746388*^9}, + 3.9939586464244757`*^9, 3.993959249430194*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"4f501e5c-823b-4799-ac3c-3c25a0f1cbb4"] +}, 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->"5e10a12e-4936-44a0-93c8-c7bfc22801cd"], + +Cell[BoxData["2.50294615878073`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, {3.993815359883766*^9, 3.993815388758988*^9}, + 3.993958646439068*^9, 3.993959249438931*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"74ab0598-0f01-4065-83e2-52dfdb891f3e"] +}, 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->"c40778eb-2b02-4593-ab8b-b97e44d6b945"], + +Cell[BoxData["1.478321690160274`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, {3.9938153598984947`*^9, 3.993815388771246*^9}, + 3.993958646454102*^9, 3.993959249447317*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"8fabbfd3-3c70-44ec-8ad3-5dc21358d7c6"] +}, 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->"408c3093-d80d-41f6-b106-aebcb6e9305a"], + +Cell[BoxData["0.36228762750256105`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, {3.993815359913329*^9, 3.993815388784683*^9}, + 3.993958646469401*^9, 3.9939592494572477`*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"44da73ce-69e9-46cb-85a5-30ec61bccffd"] +}, 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->"60bffa82-621d-49e8-9309-45181da6fc56"], + +Cell[BoxData[ + RowBox[{"-", "0.0846607903474445`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, {3.993815359929597*^9, 3.993815388797483*^9}, + 3.993958646484239*^9, 3.993959249466654*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"5b977ede-831d-4706-b4bf-4d30e879dbd0"] +}, 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->"bde74a1b-7a2b-4b96-9355-4528635ba433"], + +Cell[BoxData[ + RowBox[{"-", "0.5809541759341679`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, {3.993815359945134*^9, 3.99381538880952*^9}, + 3.9939586464991083`*^9, 3.993959249476202*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"d3f6c4ea-8419-418b-905b-a5dab57fbeb8"] +}, 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->"fa044a01-1600-4db4-9230-ded739562dd2"], + +Cell[BoxData["0.700262319146979`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, {3.993815359960987*^9, 3.993815388821504*^9}, + 3.993958646513887*^9, 3.9939592494858932`*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"c1516524-4b53-43d0-a534-762003dac61c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"4622c7e6-0fea-41e7-8e4e-dd4d6c071ae5"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, {3.993815359975456*^9, 3.993815388833537*^9}, + 3.993958646528556*^9, 3.993959249494399*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"aabdb603-da0b-4214-adf2-56823b61720b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel->"In[20]:=",ExpressionUUID->"b4c3b6ed-43e9-4f2c-86ae-df1e98d7bb74"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, {3.9938153599899197`*^9, 3.993815388845224*^9}, + 3.99395864654298*^9, 3.993959249503824*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"666a3234-abdf-466b-b844-73349fbdb639"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"91f419a7-20c5-4048-9a15-7cab46ce7573"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, {3.99381536000439*^9, 3.9938153888577013`*^9}, + 3.9939586465577307`*^9, 3.993959249513702*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"1a4ab423-f04c-4f33-911b-ec5a14b38a7e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"a9610357-5354-42d8-a067-7da596524bc4"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, {3.993815360018857*^9, 3.993815388870207*^9}, + 3.99395864657239*^9, 3.993959249522518*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"46afb194-0fee-4945-978e-6d8d5848d320"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[23]:=",ExpressionUUID->"93302733-3592-49db-a28e-1af7dffa7b01"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, {3.993815360033464*^9, 3.9938153888824987`*^9}, + 3.9939586465866947`*^9, 3.993959249531473*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"d17c76f0-36d3-4b36-9264-1c521b13076e"] +}, 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.993815261708016*^9, 3.9938152618435717`*^9}}, + CellLabel->"In[24]:=",ExpressionUUID->"6647e7a9-0934-49cf-acdd-0acf932cd15b"], + +Cell[BoxData["66"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, {3.993815360047928*^9, 3.9938153888940973`*^9}, + 3.993958646601172*^9, 3.993959249542149*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"89dd007b-b47b-4efc-8817-d9b009ea83f7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, {3.993815264947379*^9, 3.993815267508748*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"7058d540-9d11-4c88-ae18-9aa20d80c478"], + +Cell[BoxData["28"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, {3.993815360062439*^9, 3.993815388907254*^9}, + 3.993958646615478*^9, 3.993959249554575*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"b098903f-113b-4c41-8f9c-ac60af99a1d0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"b57821cb-d8ab-4a14-b62c-4bfdd0fbe3f8"], + +Cell[BoxData["80"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, {3.993815360076642*^9, 3.993815388920082*^9}, + 3.993958646629941*^9, 3.9939592495654383`*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"2270e617-9548-4ebd-a559-218072e918f7"] +}, 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->"0054828d-c6dc-4be3-bc95-f964d2ea8865"], + +Cell[BoxData["0.11205`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, {3.993815360091414*^9, 3.993815388933477*^9}, + 3.993958646644432*^9, 3.9939592495751266`*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"82861ac6-edd6-4def-a57c-daf5ce67189f"] +}, 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->"af83d294-25e5-456f-a0f4-36970400e113"], + +Cell[BoxData[ + RowBox[{"-", "2.5616499999999998`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, {3.9938153601058817`*^9, 3.993815388947524*^9}, + 3.993958646659143*^9, 3.993959249584084*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"6ba846ad-a398-4445-b8da-2e5755979f1b"] +}, 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->"74b35f0f-9b91-4164-ac3f-11a5f78c6f05"], + +Cell[BoxData["17.9817039793298`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, {3.9938153601211452`*^9, 3.993815388962264*^9}, + 3.9939586466747503`*^9, 3.9939592495961514`*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"7e7d9f69-9ff9-47c8-b1da-f9721ab1f14e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"c7f07f27-8f2e-440a-b014-a6b95f852c1d"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, {3.993815360135828*^9, 3.993815388975617*^9}, + 3.993958646689221*^9, 3.9939592496068563`*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"a3f79d0f-7f66-469e-a6b5-8bac4194088e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", " ", "1.965"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { + 3.99381519981903*^9, 3.993815203647489*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"c72a9326-f1ae-4af3-b38f-05f3725f95b6"], + +Cell[BoxData["1.965`"], "Output", + CellChangeTimes->{{3.993815360149398*^9, 3.993815388989003*^9}, + 3.993958646703771*^9, 3.99395924961539*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"8a59600f-df1c-41cd-9e4e-1b26e20f3911"] +}, 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->"9faad396-be18-47c1-8aba-bfc00a8a5f40"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.805"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.993815206165124*^9, 3.993815207521797*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"47fabd49-5cb3-4c6f-90a5-0e6e360882b3"], + +Cell[BoxData["0.805`"], "Output", + CellChangeTimes->{{3.993815360178578*^9, 3.993815389006834*^9}, + 3.993958646731131*^9, 3.993959249628416*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"ec085dbb-685c-46ab-811f-3b1db8e4629a"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel->"In[34]:=",ExpressionUUID->"56ededd2-6c8f-4aed-9003-b16df34dc5f1"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "2.575"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.993815210101787*^9, 3.9938152142375507`*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"062637b4-3e71-408a-ac39-1bf55d970deb"], + +Cell[BoxData["2.575`"], "Output", + CellChangeTimes->{{3.993815360206645*^9, 3.993815389025874*^9}, + 3.99395864675819*^9, 3.9939592496414757`*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"de796b90-458e-4ae9-96e3-5ce2db00382b"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel->"In[36]:=",ExpressionUUID->"15ffb5cb-83f1-41fc-aa61-77159d969183"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.195"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, {3.993815217827416*^9, 3.993815218865891*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"2bc5b7ea-e745-4b1b-89f1-921d1ab9730c"], + +Cell[BoxData["1.195`"], "Output", + CellChangeTimes->{{3.9938153602341948`*^9, 3.9938153890444403`*^9}, + 3.993958646785417*^9, 3.993959249656823*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"487e8aff-01f5-404d-a759-f4c16826e40c"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel->"In[38]:=",ExpressionUUID->"577e2245-ac09-43fe-82d3-5fe31525cf61"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.213"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, {3.993815222374446*^9, + 3.993815224623548*^9}}, + CellLabel->"In[39]:=",ExpressionUUID->"0fa5defa-d32f-4b72-8830-7e126f753181"], + +Cell[BoxData["1.213`"], "Output", + CellChangeTimes->{{3.99381536026166*^9, 3.993815389060953*^9}, + 3.9939586468116283`*^9, 3.9939592496725283`*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"2ac99708-9ec7-439f-9839-fea7ccf0faa6"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel->"In[40]:=",ExpressionUUID->"5981f3ef-ca86-4ccf-a0e7-fb0a68a483e2"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.576"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.9938152272320232`*^9, + 3.993815230573249*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"21925cf7-a825-4cbc-be02-1a7270ec0f99"], + +Cell[BoxData["0.576`"], "Output", + CellChangeTimes->{{3.99381536028929*^9, 3.993815389077355*^9}, + 3.9939586468382273`*^9, 3.993959249687393*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"898de461-5ba7-4250-875c-b20caaa2f83e"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel->"In[42]:=",ExpressionUUID->"24545006-4135-428a-95b1-5f713a78fc5a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "1.35"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.993815233406152*^9, + 3.9938152359541283`*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"8605c0fb-5326-4bf4-a83a-1bb337b61f20"], + +Cell[BoxData["1.35`"], "Output", + CellChangeTimes->{{3.993815360317037*^9, 3.993815389094755*^9}, + 3.993958646864482*^9, 3.993959249701441*^9}, + CellLabel->"Out[43]=",ExpressionUUID->"6b584644-0a7c-4bde-8191-c7beedea6b22"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel->"In[44]:=",ExpressionUUID->"9fce0652-b610-4666-a747-241ffe6c4ddb"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "0.715"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, {3.99381523872539*^9, 3.9938152401714783`*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"e690e103-d588-4171-9561-2a477274e5ce"], + +Cell[BoxData["0.715`"], "Output", + CellChangeTimes->{{3.993815360345028*^9, 3.993815389112644*^9}, + 3.9939586468924627`*^9, 3.993959249718199*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"f1640712-7ad1-4ced-b9ef-6855ba58235e"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel->"In[46]:=",ExpressionUUID->"2846e356-86a3-473a-9411-05fd4589cc58"], + +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->"db576353-fcb2-46a5-bacb-02cb347f91d0"], + +Cell[BoxData["0.10594190044976036`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, {3.993815360436064*^9, 3.993815389153583*^9}, + 3.993958649558243*^9, 3.99395924986185*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"689c4d83-2ab2-4426-aae4-1b5bea75b868"] +}, 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->"317d4ffa-d000-44e5-8cfc-4d08bcda3461"], + +Cell[BoxData["6.461769506994958`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, {3.9938153604720716`*^9, 3.993815389182211*^9}, + 3.993958649585424*^9, 3.993959249917519*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"08646258-70eb-4051-babc-6d52b8861403"] +}, 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->"68e02301-0330-4a21-a990-a1ce7a1cc3c2"], + +Cell[BoxData[ + RowBox[{"-", "16.996339172809833`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, {3.9938153605547743`*^9, 3.993815389210862*^9}, + 3.993958649612328*^9, 3.993959249981978*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"7d69d298-2485-4604-a7cb-708734349f8a"] +}, 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->"18c15172-897e-4128-b238-25a2654e8235"], + +Cell[BoxData[ + RowBox[{"-", "23.66687085044272`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, {3.9938153605968103`*^9, 3.9938153892445498`*^9}, + 3.9939586496469717`*^9, 3.993959250067174*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"24909f8d-4fbd-402a-a528-d5c3b46d6a46"] +}, 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->"d4cb0eb5-d35c-4e24-af5e-117e66070a58"], + +Cell[BoxData[ + RowBox[{"-", "64.87070371918927`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, {3.9938153606388206`*^9, 3.993815389278417*^9}, + 3.993958649683728*^9, 3.993959250284627*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"fa05c79f-d9df-4dde-9e64-bce49de4d33c"] +}, 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->"71c1a455-ceb4-48f3-ad34-ebc7cb66426c"], + +Cell[BoxData[ + RowBox[{"-", "180.27815067607094`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, {3.993815360684663*^9, 3.993815389318866*^9}, + 3.993958649726467*^9, 3.993959250391343*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"8f0fe0a1-c62d-4404-9752-0cb058a0345f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[53]:=",ExpressionUUID->"c78162bb-e8ea-4ee9-8903-a087a758791e"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, {3.993815360701696*^9, 3.993815389332931*^9}, + 3.99395864974012*^9, 3.993959250403511*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"ffe1f587-e9ba-4360-994d-c7f96472f045"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[54]:=",ExpressionUUID->"3ae180aa-5b38-404e-8f82-c44871edc30d"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, {3.9938153607167177`*^9, 3.993815389344874*^9}, + 3.993958649755121*^9, 3.99395925041243*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"bc50d184-364e-4d3b-a5aa-b96dd4712da5"] +}, 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->"e55705b3-87a9-4660-9889-63b7e8852df8"], + +Cell[BoxData["131.34670371854253`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, {3.993815360730653*^9, 3.9938153893568707`*^9}, + 3.993958649768943*^9, 3.993959250421485*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"376e4204-806a-427e-85e6-f55a4d66aa5d"] +}, 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->"003426f0-4df3-4eea-b825-53e5f302a8c7"], + +Cell[BoxData[ + RowBox[{"-", "121.12984521648005`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, {3.993815360744831*^9, 3.993815389368895*^9}, + 3.993958649781246*^9, 3.9939592504304256`*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"329bb579-f97a-495c-8b59-a486dd727d29"] +}, 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->"5dd3a5c0-e2ad-44d3-b705-446241544733"], + +Cell[BoxData["137.31484295247708`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, {3.993815360759387*^9, 3.993815389381069*^9}, + 3.99395864979466*^9, 3.993959250440256*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"43d19224-dffb-4736-9006-2b905c5fccbc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[58]:=",ExpressionUUID->"f540aa55-693c-4c41-a7bc-b752615cb1c0"], + +Cell[BoxData["0.36228762750256105`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, {3.993815360773879*^9, 3.993815389392989*^9}, + 3.9939586498072023`*^9, 3.9939592504492693`*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"039c3ea6-8752-483c-b074-4cce08ddbae8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[59]:=",ExpressionUUID->"535a56c9-a4b0-434a-a852-01ea81c0c7a8"], + +Cell[BoxData[ + RowBox[{"-", "0.0846607903474445`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, {3.993815360788493*^9, 3.993815389404903*^9}, + 3.9939586498198338`*^9, 3.99395925045811*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"8bc8a499-3614-4b4f-a9be-5ed887ebd441"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[60]:=",ExpressionUUID->"903892b7-223a-4787-9e72-9057463ebc4b"], + +Cell[BoxData[ + RowBox[{"-", "0.5809541759341679`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, {3.993815360803743*^9, 3.9938153894169493`*^9}, + 3.993958649837104*^9, 3.9939592504698067`*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"3faee401-bf0d-4efc-b74d-dffa3773428d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"9436200e-2372-41a9-a88a-fd23339fa5b2"], + +Cell[BoxData["0.700262319146979`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, {3.9938153608194017`*^9, 3.993815389428903*^9}, + 3.993958649850066*^9, 3.993959250481374*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"f2c1c5d0-cd6f-4ce6-aaf1-cd0aeb5a3b10"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[62]:=",ExpressionUUID->"fd58b108-6824-4a71-990a-ce684335fd1e"], + +Cell[BoxData["2.50294615878073`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, {3.993815360835617*^9, 3.9938153894408617`*^9}, + 3.993958649863385*^9, 3.9939592504914017`*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"1ae96ff6-4e93-47b4-b717-de506519011d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[63]:=",ExpressionUUID->"dc706c10-ca47-4783-ad0d-1e6c2810725a"], + +Cell[BoxData["1.478321690160274`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, {3.993815360850321*^9, 3.9938153894528627`*^9}, + 3.9939586498771133`*^9, 3.993959250513373*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"7936033b-a2bb-4cd0-bd6e-19f6f4f41d39"] +}, 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->"75313578-47d8-4002-b93a-1c80729c42e6"], + +Cell[BoxData[ + RowBox[{"-", "34.35384696882824`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, {3.993815360867701*^9, 3.993815389464924*^9}, + 3.993958649889442*^9, 3.993959250522767*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"d64b8542-0870-4c4f-bb49-23ace75179d0"] +}, 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->"efd85ac6-87b3-446d-9273-068e0653b420"], + +Cell[BoxData[ + RowBox[{"-", "7.30490507028344`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, {3.993815360882195*^9, 3.9938153894771433`*^9}, + 3.993958649903101*^9, 3.993959250534216*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"ae425e42-59ee-423f-8876-4973ff7cc242"] +}, 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->"79261068-0437-4d44-8f0f-aa629a2b9a28"], + +Cell[BoxData["96.99285674971429`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, {3.9938153608971453`*^9, 3.993815389489629*^9}, + 3.993958649916582*^9, 3.9939592505442867`*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"64176826-3985-4c76-9601-b7155efaade2"] +}, 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->"2fe8c172-9b38-46aa-961a-e1da3d962a13"], + +Cell[BoxData[ + RowBox[{"-", "121.12984521648005`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, {3.9938153609115973`*^9, 3.9938153895018883`*^9}, + 3.993958649928854*^9, 3.993959250554673*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"b0c25908-f0bf-4899-982c-2d615f8fac66"] +}, 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->"1fde1861-66f4-4a12-90b7-be411c748d4f"], + +Cell[BoxData["130.00993788219364`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, {3.993815360925351*^9, 3.993815389514392*^9}, + 3.993958649941387*^9, 3.993959250578248*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"0b0185db-9503-49a3-b350-d3d7d16255fd"] +}, 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->"d14c9b7b-0dd7-430b-a82b-68a4d782f5c2"], + +Cell[BoxData["33.05673140049902`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, {3.993815360940073*^9, 3.993815389526847*^9}, + 3.993958649954606*^9, 3.99395925058918*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"526fa8a8-381a-423c-90ba-afc0f24773e6"] +}, 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->"d8bb0a04-7017-48ff-a26e-130682b81be2"], + +Cell[BoxData["781.6942369302528`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, {3.9938153609551077`*^9, 3.993815389531186*^9}, + 3.993958649967162*^9, 3.993959250602108*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"c10cbe0d-4c8f-4dbb-9c2b-5f4834b74ff0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f1", "=", "0.4848271964"}]], "Input", + CellChangeTimes->{3.9918501413985214`*^9, 3.993958986135695*^9}, + CellLabel->"In[71]:=",ExpressionUUID->"5894836c-9594-0940-b94c-299085c765cc"], + +Cell[BoxData["0.4848271964`"], "Output", + CellChangeTimes->{3.9939592506109657`*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"bd607392-00a3-4d7e-8a4c-bb8deb4f1d0c"] +}, 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.2433640156"}]], "Input", + CellChangeTimes->{3.9918501402114105`*^9, 3.993958991130828*^9}, + CellLabel->"In[73]:=",ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-092c5143dcf0"], + +Cell[BoxData["0.2433640156`"], "Output", + CellChangeTimes->{3.993959250629233*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"7eca3fca-00a9-4f00-bc52-c2ba9b4c5c1b"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918501388085117`*^9, 3.991850138811516*^9}}, + CellLabel->"In[74]:=",ExpressionUUID->"6e7c45d7-0298-ce41-ba97-a3c857e6ae57"], Cell[CellGroupData[{ @@ -84,13 +4813,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.6373494975860167`*^-53"], "Output", + CellChangeTimes->{3.9913437871842365`*^9, 3.9939592506508913`*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"61444a1f-d253-4316-acbd-b366fe8a9a22"] }, Open ]], Cell[CellGroupData[{ @@ -124,14 +4851,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["9.923907836536108`*^-55"], "Output", + CellChangeTimes->{3.9913437872132397`*^9, 3.9939592506614428`*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"f5ba6216-34a0-4185-95b9-67028bd65793"] }, Open ]], Cell[CellGroupData[{ @@ -164,14 +4889,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.2084266955951574`*^-54"], "Output", + CellChangeTimes->{3.9913437872412376`*^9, 3.99395925067064*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"880bc4e4-43cc-4776-bc6e-ba5d611bed15"] }, Open ]], Cell[CellGroupData[{ @@ -194,13 +4917,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.331901248311265`"], "Output", + CellChangeTimes->{3.9913437872672386`*^9, 3.993959250680045*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"72910405-9231-4f9b-b229-3a9b2ae907fb"] }, Open ]], Cell[CellGroupData[{ @@ -226,13 +4947,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["36.23237204771826`"], "Output", + CellChangeTimes->{3.991343787279253*^9, 3.99395925068867*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"10d0f827-b7bf-4763-989d-e9741e19dd98"] }, Open ]], Cell[CellGroupData[{ @@ -241,13 +4960,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.42269426832524`"], "Output", + CellChangeTimes->{3.9913437873062572`*^9, 3.993959250708*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"1f44328e-8af9-4881-b2c7-798c2d00c46c"] }, Open ]], Cell[CellGroupData[{ @@ -256,13 +4973,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.644832651792054`"], "Output", + CellChangeTimes->{3.9913437873353844`*^9, 3.9939592507296677`*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"0d61d19c-4365-4874-9c14-c19e1fa5def9"] }, Open ]], Cell[CellGroupData[{ @@ -271,13 +4986,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["168.2933047391195`"], "Output", + CellChangeTimes->{3.991343787361582*^9, 3.993959250739593*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"d5621a79-c0e8-4708-bc7e-9f1d95fa1aa5"] }, Open ]], Cell[CellGroupData[{ @@ -286,13 +4999,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["23.23530229682627`"], "Output", + CellChangeTimes->{3.9913437873734856`*^9, 3.9939592507485113`*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"848a5265-7509-4dce-a4a9-d1a468b4c2ae"] }, Open ]], Cell[CellGroupData[{ @@ -481,13 +5192,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.006361171152997824`"], "Output", + CellChangeTimes->{3.9913437874002857`*^9, 3.993959250776992*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"c08bc9dd-3f0d-49ea-ad00-128b3d38aa37"] }, Open ]], Cell[CellGroupData[{ @@ -500,13 +5209,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.111594913060902`"], "Output", + CellChangeTimes->{3.9913437875033875`*^9, 3.993959251050611*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"587e36ae-2a15-42fd-9cff-463b2f9b283d"] }, Open ]], Cell[CellGroupData[{ @@ -697,13 +5404,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.039697360230760384`"], "Output", + CellChangeTimes->{3.9913437875342865`*^9, 3.993959251069028*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"676918ba-3dfa-4c31-ac4f-ca3500736e59"] }, Open ]], Cell[CellGroupData[{ @@ -716,13 +5421,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.447993321912683`"], "Output", + CellChangeTimes->{3.9913437876352882`*^9, 3.993959251143742*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"cb461df5-6d03-498a-87cb-d794069ee652"] }, Open ]], Cell[CellGroupData[{ @@ -814,13 +5517,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.10778842427476491`"], "Output", + CellChangeTimes->{3.991343787650694*^9, 3.993959251163755*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"ea2c46ab-327f-4f19-a41d-2960faca8994"] }, Open ]], Cell[CellGroupData[{ @@ -909,13 +5610,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.892211575725235`"], "Output", + CellChangeTimes->{3.9913437876776943`*^9, 3.993959251179572*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"cd2b6ab3-f3a2-4108-b68c-8d242d2800c1"] }, Open ]], Cell[CellGroupData[{ @@ -1037,19 +5736,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.09617007986712818`"], "Output", + CellChangeTimes->{3.9913437877049465`*^9, 3.993959251201447*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"6428fbb9-c041-4352-a2fa-3f88d475fbdd"] }, 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 +5807,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\\\", \ + "\"\\!\\(\\*FractionBox[\\\"3.0233415790207448`*^-220\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 92, 1, 31385712231930919302, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437877189426`*^9, 3.993959251253833*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"085fd413-fa8b-4e1d-8eb2-99da2e101568"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.828775088393333`*^-226\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 92, 2, 31385712231930919302, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437877189426`*^9, 3.993959251340742*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"158b11e4-b617-4d80-b19d-3f2567dd7fb6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.195299545660717`*^-231\\\", \ \\\"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}, +normalized machine number; precision may be lost.\"", 2, 92, 3, + 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437877189426`*^9, 3.993959251348772*^9}, CellLabel-> "During evaluation of \ -In[415]:=",ExpressionUUID->"0833bd34-3252-a046-9aa3-94c1d6e5cfe9"], - -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}, - CellLabel-> - "During evaluation of \ -In[415]:=",ExpressionUUID->"f24a3618-ee43-704a-86fe-493dbed35e8d"], - -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}, - CellLabel-> - "During evaluation of \ -In[415]:=",ExpressionUUID->"86271901-aa3c-5542-ab18-fc06d3fd3f32"], +In[92]:=",ExpressionUUID->"c287d1ae-4751-4119-aecc-aff659cdc55b"], 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, 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437877189426`*^9, 3.9939592513547163`*^9}, CellLabel-> "During evaluation of \ -In[415]:=",ExpressionUUID->"ce9bd686-d768-5440-b47e-1ee2b5aa0183"], +In[92]:=",ExpressionUUID->"eda3d432-8d7b-4729-bccf-2ce4a1399d09"], -Cell[BoxData["5.020278507983898`"], "Output", - CellChangeTimes->{3.991343791131052*^9}, - CellLabel-> - "Out[415]=",ExpressionUUID->"a6ab28bd-0b4e-3443-93b3-734d7cf3d8a2"] +Cell[BoxData["11.111594913060912`"], "Output", + CellChangeTimes->{3.991343791131052*^9, 3.993959253735754*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"090fcfe3-a173-4cd8-b109-5ba9dd9d4b14"] }, Open ]], Cell[CellGroupData[{ @@ -1233,68 +5932,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\\\", \ + "\"\\!\\(\\*FractionBox[\\\"3.0233415790207448`*^-220\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 93, 5, 31385712231930919302, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437911686516`*^9, 3.993959253843822*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"ea6e14cd-c611-4afe-b956-f4b4242139a1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.828775088393333`*^-226\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 93, 6, 31385712231930919302, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437911686516`*^9, 3.993959253856793*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"b331c7fc-b1ec-4c03-bc95-63bb5690c46a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.195299545660717`*^-231\\\", \ \\\"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}, +normalized machine number; precision may be lost.\"", 2, 93, 7, + 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437911686516`*^9, 3.993959253866787*^9}, CellLabel-> "During evaluation of \ -In[416]:=",ExpressionUUID->"44f2ed65-5109-0141-bef6-eebaeda3d61d"], - -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}, - CellLabel-> - "During evaluation of \ -In[416]:=",ExpressionUUID->"ba49f32e-1ff7-b147-9f42-9c90ccc55447"], - -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}, - CellLabel-> - "During evaluation of \ -In[416]:=",ExpressionUUID->"fa95acf1-55b2-c042-9a9f-32e1ebea5c1e"], +In[93]:=",ExpressionUUID->"bcd272bf-2a5f-4c44-9188-825647c8041f"], 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, 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437911686516`*^9, 3.9939592538753557`*^9}, CellLabel-> "During evaluation of \ -In[416]:=",ExpressionUUID->"3c3d4134-2c7d-0949-9759-036664c530e3"], +In[93]:=",ExpressionUUID->"b65d5919-d451-4f19-965a-3b4539b73eba"], -Cell[BoxData["8.223604958038848`"], "Output", - CellChangeTimes->{3.991343794599764*^9}, - CellLabel-> - "Out[416]=",ExpressionUUID->"742dfe41-8369-8942-b522-c174c845c383"] +Cell[BoxData["4.44799332191268`"], "Output", + CellChangeTimes->{3.991343794599764*^9, 3.9939592561201277`*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"416b1d0b-c26a-41de-b5c3-43d2927f57e3"] }, Open ]], Cell[CellGroupData[{ @@ -1350,94 +6051,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:eJwV1Hk0Vd0bB3CZIvN4QzKra+7KrPZTpLcyROmlkOGeo8whryQqoYGKBs0q +ZIgkyZD8CkkIURnKPFQHF9fUYPhtf5x11mftvb77efY++yh5BjoQnBwcHGP4 +WX4fadRZV9zcuHnCrMqyo5xCm1npBp6WuYjIbiSW3ZtqeFXVshz1P2XVLns3 +8wOvoP5bpGivEtCJXRAeXcVj2YCexPs5fsU+V7P6dXTOR3Tcvi7qG3Zp85F7 +84zPyCjHnOrCpjrrIo+9bEfTCVUpPdiyQyoHZi2+oeQpt/g+7F3jkSYhDT1o +S5tw6QB2xTwlEJ7Th+h6rVrD2F9O0Y6/CBhAMTOP+39gs3gtqWnGELosf7Nz +BJs3IchZf24Ytd+9JTmOvVbsbu2Rlz9Qic/Ty2xsW7nZRyyLUXSreLXdH2zy +vrK0Nh8LiazxTVrEjlazi/VtGEdV1z5Kcb2iUDvt04bQnEl0Pb5zUBCbud/n +8JUENkr7Fqkrjj1xh+PBs4Ap9IdDv5yGzaesLTrJmEFc3p23VbCvMqu2i0rN +ItuoehYdWzHTOVp3bhb9EmmO0cM21opj+b/8hRwsJEI3Yx8y7GmgLOZRhHy0 +vyv2dPhR7lXqC8h2C/9HAvvkSwFzOt8icud/FBaAfQOMH3s3LKF2ftrZk8v1 +ZdRaBuesAFm91qpM7JyaK72n5DihsZdl9Gy53u9ukUkJnHBWdQ2rHDtSY6bw +aQAX/K7LUWxdrjdfSWWcwQOC66/e46ygUGfzaMViGg9oCBqriGArsov3C0vx +Qr3h6E857NyNtsnac7xwN/PMJkPs6tKIFX4v+QCVBy34Y89Utfb8sBAE0/d8 +vT+xxa0FRY9XCIKAtfj4X2y9T5YgZCIEIvPlu4T/RyGfwaL7G3SEISF3ekwf +O4izQW+ToCjUxQ1+Po09pPxkMnZWDCpuHdfXfY33h6zjb9IXh5qWoDVW2JyP +h5VWHxEHWs2KPa7YivoKDjkj4iDmOJOVgL3f4vKzxl4J8OZd/YuF3eQVHEKr +lwIzrnHlyjcU6s68eMGdTxpmaYFDXdijIzlp2duk4Tr9zMxv7FWhA61mr6Wh +m/BdZFRSyPLM3o3uRTRYHFEszMIuSzecyUqVgVLl0syHVRRKH/oTZhoqD5xR +vaXNbyn0j2N8d0iePPSlGD6dwh6tlrDKG5YHc38lSrqGQhvTtaQUndeCqnnh +ejfsak+3Qp7NCuDXUNI8js0e7/3vR4wiMHxb6xVqKSThb/m80EYZOPVsfZ7V +UWg4fdWh3T7K8NOZ3tKFXfKtWW4sThnqP8ed4K+nkIu1a4z6a2Vw0au554Gd +rhnmcJOhAiUMSwGpBrw+lTkRRVMFH86sC2c/UGivt4D2zj416PqsqfawmUIo +zJHx74IaWAjxzn3C1ohNNWLKqMOek3n8fB8pxJGmvzXKXh3ktTwmA7Dzug/8 +++yNOlwZsqpDLfh+7ss9JftwHeSNeD4Ya8X1Wdp8oTzp0H7UvedYG4XS9qR8 +nYuig50q8/1z7Iuefb3ct+mg9EJuehybefLoyNpWOlySTBPwbqeQWPldjj0W +GtAe8merUwf+fvRZGi9VNEFVhLfF6iuF5JQvRV8Y1AK1tVq+e3soVH5+mv6b +Uxty5xNl72K7TDl/IpW0gb9yXGoY+161Kn2rmzaUT+RNhPdSSNm7rOVXmzak +S00aPOzD/eYOqZH1OlC0K3CRc5BC8nJrSUVnPUhV6D+x8INCWhmhgn8RA/gk +LIc/T1HIkxkzo23LACG5Qh/NaXxfVZK73V0YcJvi3HAKm+th/tOacAbkRqIY +7Rl83+5Re5MLGJDox7v53Cz+n95wv0tX0YcupxQBm9/4fC9Y6zjxbgQip2+e +Z4lCD4JVdxc1GICw/ctBc4ER1ByGjM5kmMBX9SsJxvQRpOT22dbVbxMYWFX7 +WO8aQcTSiyfyxwBk1SpPbQgcQbSRkpU0z60QWl2ilHBrBIXqm39L1rCE02KF +LxTfjSDPsflaCWobmHlV6qbOjqC8rSErU5u2Q6P3JwsHnVGUPu3zJvfqDhAo +a41VIEfRry2rP1RH74KvMc5ZeY9GURcH12Sfhw3IRO9IFaBGUcCawMunVOzA +J78l005rDD05XPv6WuxuWNE2dOfdf2MoYkpmTvOwPYwNuN0KfDOGZnZa7Xt3 +0AG+vylsSpBkIZMDSVuG7PfAL2F01uIwC7XI3PWp1t8LHdS7HR1lLCT7KKY8 +a70jBBXTPnyUGkclvRrWtkL7wNQ+XKPdbxyt/TThHTa2D+waNox8qRpH+teS +ctN6/4XT/+tX6BObQHe5p3SSq5xg9NWZfXpoAr3YotsZW+oMJMOjpCBoAt0w +Oi82n7Mfko2GXSIeTKCmrxlx+gkHIPrOpOh44wQqsrmjGnTSBaR57G5PLE2g +Sf89HAFMV9h/70OkrvYkmrGiH2JZuMFhaV/lDqdJlDXW8SvE8CAIJbSoM+In +kdODDC9XQXdQ2KBtaFowiQqf7TrIFe8OzzL6bTd0TSITuZbf5367g/6xV8WR +3Gyk0uvd+fGwByRc+1GhQGejQQFfuzsDHqC5DnxP2LJR80Vbr+2OniBQcbhz +KICNroanChxt9oSV1IKUxCU2Kq9Y+u21wwsexAbIBT9mIxEXiNcv84Jv7pKB +XyrZSFHyXdOaci+4lnhG2qCKjfQabFbzVnjBl8ifp69gO5gfyG5/4wVK8Qdz +7Kpx/pqw+hPvvSBXOJXx9i0byXY9Fqlt94I6/pvyGbVspOpGu+Ey5wVo1pHP +uJGNTNxZWbEbmVAUmJ6a2c5Gj25OhNgaMoF+Sb13Eluylb2ZZsyETkY2ZdbB +Rqxtc5+yzJhAmiS6NmGna3KsaNjKBFlWV+lUJxsJz4k5i9szwfSZ8jZGF96P +RAP+VH8mpDHDfeP62Mj+ndEn70Am8D5I/foeu4LDNFXvCBNu7y6XFOpno5sh +mw0qQ5kwZPaiLxnb1nm7x9BxJpjMNw7dHmCjUlXnUs3zTPioWHEpbYiNLr6M +PFzyCM/3X29w7icb+TNSTMKzmFDoIRdbjW2dXcBvnMOE6T0odQl7VcpwdnEe +E+5oLW04SrFRbPBu6sVzJpS9fdjsOsJGkXRV36JKJnRn5I2qjrGRT0q937Nu +Jvwdyg4+P8FGO4SHzYN7mdA7IDlfgb0+lkOI0c8E8+kB2yns4WCDvIIhJqjC +9d0HJtnIwzZ17OkoE9Rj0qvWs9nIiSckIP8PEwxvWniVTrHR9hDZoFxpAsiB +x+4Fs2xUmRq3M3k1AUFmkz/7sc0b2KrhsgQgQoYhOYfPX62+w2ItAWsOzS0e +xZZpO27xVY2AiDS984a/2GjEtEt6lQEBmrQf7o9/s9ElzvuvvPfg/MjnA17z +uH9dwRs2jgSYjS6ZJ2KfORAerP8vAWIXD+19gR3+fPe6pf0ENC1GvFq5gOsn +VyRd9yRgKp0/PBNbv86T+fYIru+GxPnORTZqS1ITULlMQH9px4Lwiin0BAkd ++pFEwLXRY9+0sc+MTVfnXSHgVI7OKWtsxo7qKOMUAnx13605h32Rw4ttc4+A +tny7O0vYVoH3O8JzCaBdzS/t45xC8vJnDTc/IcC5cmJuHnu6LvAK11MCHuiL +zNO4ptBDdWRzsZCAEwtfHG2wF7q6XqeVEXArxsSuCPu5tVxWYy0B39Nu74vg +nkIX/nDyXK0jgKPVfDIJ2zOL8nBuIEC3+7x9NrYod5ncYBMBvB7KXm3Yfi+d +Lv3+QkBiHPu9Hs8UUtG4HqY6RMBC7Pu0duw/bSdafw4TwK35K2UUuzmW0Mv/ +QcBBRo49B+8UiurbSJmMEsC/cFFqHXbnjVZXuykCsuTkeo5gJ68U2xaxgoQd +uvb/zWOXs7sOhHKREHZuPk145RT63pUTHMBDQmjbrXhFbPPnlvc9+UkYyMkI +scAedg//u1OMhDbJ3O5YbFHrbeLbJEgoffSo8hq2mZE4HUmRsH8p2jUD+7JQ +7j59GRKsXr0trloeL+spkFMiIbXdbXEem8zIrZVSIWHnG9Gbq/jw/MvHekTU +SBiZv0TRsIdJCSFuOgkxp1kFG5bHJbYfGtUjgXw9+9EDu2xRInqYgesZ61L2 +xx762XutdyMJUkUxGuHYpq8jqj4ZkzAXw+2WiD3o92TtKyCByMt3fI4t7HTc +oHgrCUnDB11eYZtY/GNdYEmCWHmlTA32RZn+Yxn/kGAvdLvkC3YJd/7l1J0k +iAgJ3+rGHhg/nnnTmgTFAh3GMLZxjdTnxN0kZJOhcdPYngX9I/EOJFTuSdn6 +FzvxTj7n6b0k+NzxKlrBP4X6g3fohTmRwAiarhDCFnKT3h60n4RbOsWOEtjG +OwZcfVxI0MhXSFuNnahw4oKbOwmsz90eytglq3Y+dPLE66/c2Kq+nDcjXerA +JCFCVOuvxnJe30CTNUnCsENNh85yXsPTYatDeL9NOQMZ2J7FJxbAh4TITT1l +Bsv5D3dKmvnhfrtdXhkv5yfSNA0CSEjJjggzW84PH9yiG0TCKiPj4U3YgswC +J3owCf70a4KAbWQXFagSSkKQTtLPLcv5prvi5MNIqF7UPGGBnaC2+i4tnAQh +N+KdJfYL0aFCsQgSKNlNtduw+/4W1AlE4vMSLoy2Ws7/HtXHE0XC67XvxpZt +2LLr11I0Cc0mx8S3Y/8fB1g1mg== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -1451,105 +6152,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:eJwV1Hk0Vd0bB3CZIvN4QzKra+7KrPZTpLcyROmlkOGeo8whryQqoYGKBs0q +ZIgkyZD8CkkIURnKPFQHF9fUYPhtf5x11mftvb77efY++yh5BjoQnBwcHGP4 +WX4fadRZV9zcuHnCrMqyo5xCm1npBp6WuYjIbiSW3ZtqeFXVshz1P2XVLns3 +8wOvoP5bpGivEtCJXRAeXcVj2YCexPs5fsU+V7P6dXTOR3Tcvi7qG3Zp85F7 +84zPyCjHnOrCpjrrIo+9bEfTCVUpPdiyQyoHZi2+oeQpt/g+7F3jkSYhDT1o +S5tw6QB2xTwlEJ7Th+h6rVrD2F9O0Y6/CBhAMTOP+39gs3gtqWnGELosf7Nz +BJs3IchZf24Ytd+9JTmOvVbsbu2Rlz9Qic/Ty2xsW7nZRyyLUXSreLXdH2zy +vrK0Nh8LiazxTVrEjlazi/VtGEdV1z5Kcb2iUDvt04bQnEl0Pb5zUBCbud/n +8JUENkr7Fqkrjj1xh+PBs4Ap9IdDv5yGzaesLTrJmEFc3p23VbCvMqu2i0rN +ItuoehYdWzHTOVp3bhb9EmmO0cM21opj+b/8hRwsJEI3Yx8y7GmgLOZRhHy0 +vyv2dPhR7lXqC8h2C/9HAvvkSwFzOt8icud/FBaAfQOMH3s3LKF2ftrZk8v1 +ZdRaBuesAFm91qpM7JyaK72n5DihsZdl9Gy53u9ukUkJnHBWdQ2rHDtSY6bw +aQAX/K7LUWxdrjdfSWWcwQOC66/e46ygUGfzaMViGg9oCBqriGArsov3C0vx +Qr3h6E857NyNtsnac7xwN/PMJkPs6tKIFX4v+QCVBy34Y89Utfb8sBAE0/d8 +vT+xxa0FRY9XCIKAtfj4X2y9T5YgZCIEIvPlu4T/RyGfwaL7G3SEISF3ekwf +O4izQW+ToCjUxQ1+Po09pPxkMnZWDCpuHdfXfY33h6zjb9IXh5qWoDVW2JyP +h5VWHxEHWs2KPa7YivoKDjkj4iDmOJOVgL3f4vKzxl4J8OZd/YuF3eQVHEKr +lwIzrnHlyjcU6s68eMGdTxpmaYFDXdijIzlp2duk4Tr9zMxv7FWhA61mr6Wh +m/BdZFRSyPLM3o3uRTRYHFEszMIuSzecyUqVgVLl0syHVRRKH/oTZhoqD5xR +vaXNbyn0j2N8d0iePPSlGD6dwh6tlrDKG5YHc38lSrqGQhvTtaQUndeCqnnh +ejfsak+3Qp7NCuDXUNI8js0e7/3vR4wiMHxb6xVqKSThb/m80EYZOPVsfZ7V +UWg4fdWh3T7K8NOZ3tKFXfKtWW4sThnqP8ed4K+nkIu1a4z6a2Vw0au554Gd +rhnmcJOhAiUMSwGpBrw+lTkRRVMFH86sC2c/UGivt4D2zj416PqsqfawmUIo +zJHx74IaWAjxzn3C1ohNNWLKqMOek3n8fB8pxJGmvzXKXh3ktTwmA7Dzug/8 +++yNOlwZsqpDLfh+7ss9JftwHeSNeD4Ya8X1Wdp8oTzp0H7UvedYG4XS9qR8 +nYuig50q8/1z7Iuefb3ct+mg9EJuehybefLoyNpWOlySTBPwbqeQWPldjj0W +GtAe8merUwf+fvRZGi9VNEFVhLfF6iuF5JQvRV8Y1AK1tVq+e3soVH5+mv6b +Uxty5xNl72K7TDl/IpW0gb9yXGoY+161Kn2rmzaUT+RNhPdSSNm7rOVXmzak +S00aPOzD/eYOqZH1OlC0K3CRc5BC8nJrSUVnPUhV6D+x8INCWhmhgn8RA/gk +LIc/T1HIkxkzo23LACG5Qh/NaXxfVZK73V0YcJvi3HAKm+th/tOacAbkRqIY +7Rl83+5Re5MLGJDox7v53Cz+n95wv0tX0YcupxQBm9/4fC9Y6zjxbgQip2+e +Z4lCD4JVdxc1GICw/ctBc4ER1ByGjM5kmMBX9SsJxvQRpOT22dbVbxMYWFX7 +WO8aQcTSiyfyxwBk1SpPbQgcQbSRkpU0z60QWl2ilHBrBIXqm39L1rCE02KF +LxTfjSDPsflaCWobmHlV6qbOjqC8rSErU5u2Q6P3JwsHnVGUPu3zJvfqDhAo +a41VIEfRry2rP1RH74KvMc5ZeY9GURcH12Sfhw3IRO9IFaBGUcCawMunVOzA +J78l005rDD05XPv6WuxuWNE2dOfdf2MoYkpmTvOwPYwNuN0KfDOGZnZa7Xt3 +0AG+vylsSpBkIZMDSVuG7PfAL2F01uIwC7XI3PWp1t8LHdS7HR1lLCT7KKY8 +a70jBBXTPnyUGkclvRrWtkL7wNQ+XKPdbxyt/TThHTa2D+waNox8qRpH+teS +ctN6/4XT/+tX6BObQHe5p3SSq5xg9NWZfXpoAr3YotsZW+oMJMOjpCBoAt0w +Oi82n7Mfko2GXSIeTKCmrxlx+gkHIPrOpOh44wQqsrmjGnTSBaR57G5PLE2g +Sf89HAFMV9h/70OkrvYkmrGiH2JZuMFhaV/lDqdJlDXW8SvE8CAIJbSoM+In +kdODDC9XQXdQ2KBtaFowiQqf7TrIFe8OzzL6bTd0TSITuZbf5367g/6xV8WR +3Gyk0uvd+fGwByRc+1GhQGejQQFfuzsDHqC5DnxP2LJR80Vbr+2OniBQcbhz +KICNroanChxt9oSV1IKUxCU2Kq9Y+u21wwsexAbIBT9mIxEXiNcv84Jv7pKB +XyrZSFHyXdOaci+4lnhG2qCKjfQabFbzVnjBl8ifp69gO5gfyG5/4wVK8Qdz +7Kpx/pqw+hPvvSBXOJXx9i0byXY9Fqlt94I6/pvyGbVspOpGu+Ey5wVo1pHP +uJGNTNxZWbEbmVAUmJ6a2c5Gj25OhNgaMoF+Sb13Eluylb2ZZsyETkY2ZdbB +Rqxtc5+yzJhAmiS6NmGna3KsaNjKBFlWV+lUJxsJz4k5i9szwfSZ8jZGF96P +RAP+VH8mpDHDfeP62Mj+ndEn70Am8D5I/foeu4LDNFXvCBNu7y6XFOpno5sh +mw0qQ5kwZPaiLxnb1nm7x9BxJpjMNw7dHmCjUlXnUs3zTPioWHEpbYiNLr6M +PFzyCM/3X29w7icb+TNSTMKzmFDoIRdbjW2dXcBvnMOE6T0odQl7VcpwdnEe +E+5oLW04SrFRbPBu6sVzJpS9fdjsOsJGkXRV36JKJnRn5I2qjrGRT0q937Nu +Jvwdyg4+P8FGO4SHzYN7mdA7IDlfgb0+lkOI0c8E8+kB2yns4WCDvIIhJqjC +9d0HJtnIwzZ17OkoE9Rj0qvWs9nIiSckIP8PEwxvWniVTrHR9hDZoFxpAsiB +x+4Fs2xUmRq3M3k1AUFmkz/7sc0b2KrhsgQgQoYhOYfPX62+w2ItAWsOzS0e +xZZpO27xVY2AiDS984a/2GjEtEt6lQEBmrQf7o9/s9ElzvuvvPfg/MjnA17z +uH9dwRs2jgSYjS6ZJ2KfORAerP8vAWIXD+19gR3+fPe6pf0ENC1GvFq5gOsn +VyRd9yRgKp0/PBNbv86T+fYIru+GxPnORTZqS1ITULlMQH9px4Lwiin0BAkd ++pFEwLXRY9+0sc+MTVfnXSHgVI7OKWtsxo7qKOMUAnx13605h32Rw4ttc4+A +tny7O0vYVoH3O8JzCaBdzS/t45xC8vJnDTc/IcC5cmJuHnu6LvAK11MCHuiL +zNO4ptBDdWRzsZCAEwtfHG2wF7q6XqeVEXArxsSuCPu5tVxWYy0B39Nu74vg +nkIX/nDyXK0jgKPVfDIJ2zOL8nBuIEC3+7x9NrYod5ncYBMBvB7KXm3Yfi+d +Lv3+QkBiHPu9Hs8UUtG4HqY6RMBC7Pu0duw/bSdafw4TwK35K2UUuzmW0Mv/ +QcBBRo49B+8UiurbSJmMEsC/cFFqHXbnjVZXuykCsuTkeo5gJ68U2xaxgoQd +uvb/zWOXs7sOhHKREHZuPk145RT63pUTHMBDQmjbrXhFbPPnlvc9+UkYyMkI +scAedg//u1OMhDbJ3O5YbFHrbeLbJEgoffSo8hq2mZE4HUmRsH8p2jUD+7JQ +7j59GRKsXr0trloeL+spkFMiIbXdbXEem8zIrZVSIWHnG9Gbq/jw/MvHekTU +SBiZv0TRsIdJCSFuOgkxp1kFG5bHJbYfGtUjgXw9+9EDu2xRInqYgesZ61L2 +xx762XutdyMJUkUxGuHYpq8jqj4ZkzAXw+2WiD3o92TtKyCByMt3fI4t7HTc +oHgrCUnDB11eYZtY/GNdYEmCWHmlTA32RZn+Yxn/kGAvdLvkC3YJd/7l1J0k +iAgJ3+rGHhg/nnnTmgTFAh3GMLZxjdTnxN0kZJOhcdPYngX9I/EOJFTuSdn6 +FzvxTj7n6b0k+NzxKlrBP4X6g3fohTmRwAiarhDCFnKT3h60n4RbOsWOEtjG +OwZcfVxI0MhXSFuNnahw4oKbOwmsz90eytglq3Y+dPLE66/c2Kq+nDcjXerA +JCFCVOuvxnJe30CTNUnCsENNh85yXsPTYatDeL9NOQMZ2J7FJxbAh4TITT1l +Bsv5D3dKmvnhfrtdXhkv5yfSNA0CSEjJjggzW84PH9yiG0TCKiPj4U3YgswC +J3owCf70a4KAbWQXFagSSkKQTtLPLcv5prvi5MNIqF7UPGGBnaC2+i4tnAQh +N+KdJfYL0aFCsQgSKNlNtduw+/4W1AlE4vMSLoy2Ws7/HtXHE0XC67XvxpZt +2LLr11I0Cc0mx8S3Y/8fB1g1mg== "]]}, "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.8355528204937155, + 1.1897650453207582`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.8355528204937174}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.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,133 @@ rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.7504249066936051, 1.313047485013753}}, + "PlotRange" -> {{0, 180}, {0.8355528204937155, + 1.1897650453207582`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.7504249066936067}, + "AxesOrigin" -> {0, 0.8355528204937174}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 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:eJwV1Hk0Vd0bB3CZIvN4QzKra+7KrPZTpLcyROmlkOGeo8whryQqoYGKBs0q +ZIgkyZD8CkkIURnKPFQHF9fUYPhtf5x11mftvb77efY++yh5BjoQnBwcHGP4 +WX4fadRZV9zcuHnCrMqyo5xCm1npBp6WuYjIbiSW3ZtqeFXVshz1P2XVLns3 +8wOvoP5bpGivEtCJXRAeXcVj2YCexPs5fsU+V7P6dXTOR3Tcvi7qG3Zp85F7 +84zPyCjHnOrCpjrrIo+9bEfTCVUpPdiyQyoHZi2+oeQpt/g+7F3jkSYhDT1o +S5tw6QB2xTwlEJ7Th+h6rVrD2F9O0Y6/CBhAMTOP+39gs3gtqWnGELosf7Nz +BJs3IchZf24Ytd+9JTmOvVbsbu2Rlz9Qic/Ty2xsW7nZRyyLUXSreLXdH2zy +vrK0Nh8LiazxTVrEjlazi/VtGEdV1z5Kcb2iUDvt04bQnEl0Pb5zUBCbud/n +8JUENkr7Fqkrjj1xh+PBs4Ap9IdDv5yGzaesLTrJmEFc3p23VbCvMqu2i0rN +ItuoehYdWzHTOVp3bhb9EmmO0cM21opj+b/8hRwsJEI3Yx8y7GmgLOZRhHy0 +vyv2dPhR7lXqC8h2C/9HAvvkSwFzOt8icud/FBaAfQOMH3s3LKF2ftrZk8v1 +ZdRaBuesAFm91qpM7JyaK72n5DihsZdl9Gy53u9ukUkJnHBWdQ2rHDtSY6bw +aQAX/K7LUWxdrjdfSWWcwQOC66/e46ygUGfzaMViGg9oCBqriGArsov3C0vx +Qr3h6E857NyNtsnac7xwN/PMJkPs6tKIFX4v+QCVBy34Y89Utfb8sBAE0/d8 +vT+xxa0FRY9XCIKAtfj4X2y9T5YgZCIEIvPlu4T/RyGfwaL7G3SEISF3ekwf +O4izQW+ToCjUxQ1+Po09pPxkMnZWDCpuHdfXfY33h6zjb9IXh5qWoDVW2JyP +h5VWHxEHWs2KPa7YivoKDjkj4iDmOJOVgL3f4vKzxl4J8OZd/YuF3eQVHEKr +lwIzrnHlyjcU6s68eMGdTxpmaYFDXdijIzlp2duk4Tr9zMxv7FWhA61mr6Wh +m/BdZFRSyPLM3o3uRTRYHFEszMIuSzecyUqVgVLl0syHVRRKH/oTZhoqD5xR +vaXNbyn0j2N8d0iePPSlGD6dwh6tlrDKG5YHc38lSrqGQhvTtaQUndeCqnnh +ejfsak+3Qp7NCuDXUNI8js0e7/3vR4wiMHxb6xVqKSThb/m80EYZOPVsfZ7V +UWg4fdWh3T7K8NOZ3tKFXfKtWW4sThnqP8ed4K+nkIu1a4z6a2Vw0au554Gd +rhnmcJOhAiUMSwGpBrw+lTkRRVMFH86sC2c/UGivt4D2zj416PqsqfawmUIo +zJHx74IaWAjxzn3C1ohNNWLKqMOek3n8fB8pxJGmvzXKXh3ktTwmA7Dzug/8 +++yNOlwZsqpDLfh+7ss9JftwHeSNeD4Ya8X1Wdp8oTzp0H7UvedYG4XS9qR8 +nYuig50q8/1z7Iuefb3ct+mg9EJuehybefLoyNpWOlySTBPwbqeQWPldjj0W +GtAe8merUwf+fvRZGi9VNEFVhLfF6iuF5JQvRV8Y1AK1tVq+e3soVH5+mv6b +Uxty5xNl72K7TDl/IpW0gb9yXGoY+161Kn2rmzaUT+RNhPdSSNm7rOVXmzak +S00aPOzD/eYOqZH1OlC0K3CRc5BC8nJrSUVnPUhV6D+x8INCWhmhgn8RA/gk +LIc/T1HIkxkzo23LACG5Qh/NaXxfVZK73V0YcJvi3HAKm+th/tOacAbkRqIY +7Rl83+5Re5MLGJDox7v53Cz+n95wv0tX0YcupxQBm9/4fC9Y6zjxbgQip2+e +Z4lCD4JVdxc1GICw/ctBc4ER1ByGjM5kmMBX9SsJxvQRpOT22dbVbxMYWFX7 +WO8aQcTSiyfyxwBk1SpPbQgcQbSRkpU0z60QWl2ilHBrBIXqm39L1rCE02KF +LxTfjSDPsflaCWobmHlV6qbOjqC8rSErU5u2Q6P3JwsHnVGUPu3zJvfqDhAo +a41VIEfRry2rP1RH74KvMc5ZeY9GURcH12Sfhw3IRO9IFaBGUcCawMunVOzA +J78l005rDD05XPv6WuxuWNE2dOfdf2MoYkpmTvOwPYwNuN0KfDOGZnZa7Xt3 +0AG+vylsSpBkIZMDSVuG7PfAL2F01uIwC7XI3PWp1t8LHdS7HR1lLCT7KKY8 +a70jBBXTPnyUGkclvRrWtkL7wNQ+XKPdbxyt/TThHTa2D+waNox8qRpH+teS +ctN6/4XT/+tX6BObQHe5p3SSq5xg9NWZfXpoAr3YotsZW+oMJMOjpCBoAt0w +Oi82n7Mfko2GXSIeTKCmrxlx+gkHIPrOpOh44wQqsrmjGnTSBaR57G5PLE2g +Sf89HAFMV9h/70OkrvYkmrGiH2JZuMFhaV/lDqdJlDXW8SvE8CAIJbSoM+In +kdODDC9XQXdQ2KBtaFowiQqf7TrIFe8OzzL6bTd0TSITuZbf5367g/6xV8WR +3Gyk0uvd+fGwByRc+1GhQGejQQFfuzsDHqC5DnxP2LJR80Vbr+2OniBQcbhz +KICNroanChxt9oSV1IKUxCU2Kq9Y+u21wwsexAbIBT9mIxEXiNcv84Jv7pKB +XyrZSFHyXdOaci+4lnhG2qCKjfQabFbzVnjBl8ifp69gO5gfyG5/4wVK8Qdz +7Kpx/pqw+hPvvSBXOJXx9i0byXY9Fqlt94I6/pvyGbVspOpGu+Ey5wVo1pHP +uJGNTNxZWbEbmVAUmJ6a2c5Gj25OhNgaMoF+Sb13Eluylb2ZZsyETkY2ZdbB +Rqxtc5+yzJhAmiS6NmGna3KsaNjKBFlWV+lUJxsJz4k5i9szwfSZ8jZGF96P +RAP+VH8mpDHDfeP62Mj+ndEn70Am8D5I/foeu4LDNFXvCBNu7y6XFOpno5sh +mw0qQ5kwZPaiLxnb1nm7x9BxJpjMNw7dHmCjUlXnUs3zTPioWHEpbYiNLr6M +PFzyCM/3X29w7icb+TNSTMKzmFDoIRdbjW2dXcBvnMOE6T0odQl7VcpwdnEe +E+5oLW04SrFRbPBu6sVzJpS9fdjsOsJGkXRV36JKJnRn5I2qjrGRT0q937Nu +Jvwdyg4+P8FGO4SHzYN7mdA7IDlfgb0+lkOI0c8E8+kB2yns4WCDvIIhJqjC +9d0HJtnIwzZ17OkoE9Rj0qvWs9nIiSckIP8PEwxvWniVTrHR9hDZoFxpAsiB +x+4Fs2xUmRq3M3k1AUFmkz/7sc0b2KrhsgQgQoYhOYfPX62+w2ItAWsOzS0e +xZZpO27xVY2AiDS984a/2GjEtEt6lQEBmrQf7o9/s9ElzvuvvPfg/MjnA17z +uH9dwRs2jgSYjS6ZJ2KfORAerP8vAWIXD+19gR3+fPe6pf0ENC1GvFq5gOsn +VyRd9yRgKp0/PBNbv86T+fYIru+GxPnORTZqS1ITULlMQH9px4Lwiin0BAkd ++pFEwLXRY9+0sc+MTVfnXSHgVI7OKWtsxo7qKOMUAnx13605h32Rw4ttc4+A +tny7O0vYVoH3O8JzCaBdzS/t45xC8vJnDTc/IcC5cmJuHnu6LvAK11MCHuiL +zNO4ptBDdWRzsZCAEwtfHG2wF7q6XqeVEXArxsSuCPu5tVxWYy0B39Nu74vg +nkIX/nDyXK0jgKPVfDIJ2zOL8nBuIEC3+7x9NrYod5ncYBMBvB7KXm3Yfi+d +Lv3+QkBiHPu9Hs8UUtG4HqY6RMBC7Pu0duw/bSdafw4TwK35K2UUuzmW0Mv/ +QcBBRo49B+8UiurbSJmMEsC/cFFqHXbnjVZXuykCsuTkeo5gJ68U2xaxgoQd +uvb/zWOXs7sOhHKREHZuPk145RT63pUTHMBDQmjbrXhFbPPnlvc9+UkYyMkI +scAedg//u1OMhDbJ3O5YbFHrbeLbJEgoffSo8hq2mZE4HUmRsH8p2jUD+7JQ +7j59GRKsXr0trloeL+spkFMiIbXdbXEem8zIrZVSIWHnG9Gbq/jw/MvHekTU +SBiZv0TRsIdJCSFuOgkxp1kFG5bHJbYfGtUjgXw9+9EDu2xRInqYgesZ61L2 +xx762XutdyMJUkUxGuHYpq8jqj4ZkzAXw+2WiD3o92TtKyCByMt3fI4t7HTc +oHgrCUnDB11eYZtY/GNdYEmCWHmlTA32RZn+Yxn/kGAvdLvkC3YJd/7l1J0k +iAgJ3+rGHhg/nnnTmgTFAh3GMLZxjdTnxN0kZJOhcdPYngX9I/EOJFTuSdn6 +FzvxTj7n6b0k+NzxKlrBP4X6g3fohTmRwAiarhDCFnKT3h60n4RbOsWOEtjG +OwZcfVxI0MhXSFuNnahw4oKbOwmsz90eytglq3Y+dPLE66/c2Kq+nDcjXerA +JCFCVOuvxnJe30CTNUnCsENNh85yXsPTYatDeL9NOQMZ2J7FJxbAh4TITT1l +Bsv5D3dKmvnhfrtdXhkv5yfSNA0CSEjJjggzW84PH9yiG0TCKiPj4U3YgswC +J3owCf70a4KAbWQXFagSSkKQTtLPLcv5prvi5MNIqF7UPGGBnaC2+i4tnAQh +N+KdJfYL0aFCsQgSKNlNtduw+/4W1AlE4vMSLoy2Ws7/HtXHE0XC67XvxpZt +2LLr11I0Cc0mx8S3Y/8fB1g1mg== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.7504249066936051, 1.313047485013753}}, + "PlotRange" -> {{0, 180}, {0.8355528204937155, 1.1897650453207582`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.7504249066936067}, + "AxesOrigin" -> {0, 0.8355528204937174}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 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 +6400,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.8355528204937174}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -1723,7 +6429,8 @@ rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.7504249066936051, 1.313047485013753}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.8355528204937155, 1.1897650453207582`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -1731,9 +6438,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.9939601539175987`*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"01b87bcc-0597-4634-8451-d53bf323bde5"] }, Open ]], Cell[CellGroupData[{ @@ -1796,340 +6502,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[\\\"9.881110351917437`*^-275\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 95, 9, + 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913440621885586`*^9, 3.993960154308895*^9}, + CellLabel-> + "During evaluation of \ +In[95]:=",ExpressionUUID->"207ee5c1-9255-470b-b822-1b28ab3668cd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2065253029855947`*^-286\\\", \ \\\"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, + 10, 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913440621885586`*^9, 3.9939601543172483`*^9}, CellLabel-> "During evaluation of \ -In[418]:=",ExpressionUUID->"8a980d1e-9dd5-194d-803a-ac5d63bbe693"], +In[95]:=",ExpressionUUID->"cc9e6ffb-418d-4964-946d-3388e0868f84"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.133412609607657`*^-284\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.4732183478367876`*^-298\\\", \ \\\"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, + 11, 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913440621885586`*^9, 3.993960154324088*^9}, CellLabel-> "During evaluation of \ -In[418]:=",ExpressionUUID->"637082a9-fe74-7345-8895-dee77343ee6f"], - -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}, - CellLabel-> - "During evaluation of \ -In[418]:=",ExpressionUUID->"b2e7262c-7c6d-d94d-a545-ea4b363e579a"], +In[95]:=",ExpressionUUID->"06e8b6d3-511a-46a2-9db6-c394aee7b87f"], 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, 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913440621885586`*^9, 3.993960154330531*^9}, CellLabel-> "During evaluation of \ -In[418]:=",ExpressionUUID->"40c56d25-ed26-3045-9759-ae8eef5eb7cb"], +In[95]:=",ExpressionUUID->"c79e89d9-b7cf-46d8-b31d-7c6d89cbe097"], 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:eJwV13k0VW8XB3DRQImiDNfQPdeUMVMk97Y3RaJMXUKmCA1CEpnCLUOiVBQq +IpRw3dOgDKkfGqhUyBzNSYbKFFHvef8667PWOc961jnfvfdzCK9Aex9+Pj4+ +oXl8fP+/TvY1NiieLNigJhn0XbkKN7TlSIWbdHKAWytkSOPJA6586SXVeRY6 +M4pE2sq1INT2RodAZz6ws1wuFpZvgOUjkmenO26C24sbnz3LraG/xjpwvKMO +JGodcpK47mCuOPj2Z0cLqJdy/24qCYDpDsOMHx0f4NV4ZLpFzlGo33it4HX+ +GHS861P9XnIaZPsrv3hpzIHeCrOMapMLsMLf48aijQIoZvxrsalxDpzVMa+2 +dhDEk+pNg3rcfOjK1H74c9lS/KWm9+l6XSGcLIh5yS+9HA2d407farwOkukf +T5y7LI78dHwUubcEpNTvHP9dJI5PvpS+yAguAVpdQowbTxyfLTcuuhFZAvI/ +VA+r1IvjrKFifUNqCShtDfKsHhBHQ/tdKVVkCejNnzP4qLcC+RZc9C75XQI2 +IRKfdJtWYEKv861sTikksrdsaJlciaYqhcXhCWVAu91M458ngaG5qU5fT5UB +V5w9pbNEAg/Zc4usL5RBe4s778wqCVw59kZ28fUyULQLYdhZSOC19UOO+o1l +ULctd+GrLAlcbC9j7LCYC3PmE80vmJK4tmNuXn0iF9KKIkrmzCWxZMuNH16n +uaC4kC9J004Sfftf7p49z4WtjxabpPpI4urEL90yRVzI3ki/tfWUJIZPeg4J +N3BhHVpdeNYvifsVRmTv/uXCIaM8j0aOFPq0jAyrBJaD5RWRcasUKXxRGvPs +2OFyYCyKSmrOkELNXImJrshyeNXmSLZel8KZi3Lqh5PKQStIWKCvWQprit1p +fnnlMFAUVvSLJo1tmWTjupZycF1hPSxzSxqvgs6vp5I80IusjsupkcbnNhE+ +F2k8WPxhtQTxWBpFCqP/7JPjQWW5ACh3SeMok3N6ngIPJKwq07T/SWNy+k5H +YS0evIpT1DezouE4PnfK3MiDTaMzEQEfaVhjMqOS7M+DcIt0tf+GaOgXKHBi +PIAH3DzNbvFJGk6Ve6u6HuSBFNvTqFJQBt+ddF+tEMqDoXuPpgS0ZHBdVg89 +LYYH5zhpIVlHZPDAdsclX87w4MNK5YCGpbJIg4A9nNs8kAx8ICcpKYuJ6Wq9 +6RU82PrU6cVeuiyGv7Y7W3CPBxURJzVE9WSx9HHI4+oaHiT3/xh0dpJF/zKw +b2zggW5xtd9oviyemHgvs6uNB3FMu120dXLI3dRVc/wnDyzcc34Zmsqh7X5z +N58xHojEfj/msFUOr+/pbDKd4MGl+viiNE85dPx1SWT8Nw/uWVZ9X3hCDgOf +MU20+Uj44aQQOtYlh3UNhdmiIiTcjQhatPyTHIaps/Tui5Jw9NL9TK0RORyy +1cnxW06C8Lsd1Xv55ZHPLHfo5goSVPxS+N6pUW5oOawgQ4L74Ynk55HyuEa/ +4pS/CglKF0xlB+Pl0bFUJuLrapJ6f6fLFqXJ46FCwQ0eaiREzKq+Mi2Qx7v7 +FO3MNEnIOOa+svK5PN4WMed91yXh+ZknuYVyq5Aha3k7j0XCem7W7aMPVmFH +5k3xClsSNnU0z408XYX8JnMeVXYkWPPN3+zRsgrtV7rOVNuT4G0f0AWfV+H2 +IBGZu2wSzCOJmNgFdHxAC5FKdSIhaNXkVRN1OrZPd/ve8yBh4lba0+k1dJxK +cm4840ntz0J9mNSnI+2LVNyeXSTEH/Q0YGygY0C/8a+l3iRk1zc95bejo2uA +98A6XxIa/HKH60PpOJ3RmibqT8KWWSOxqEg6xqqrxNVSbk5rM9CPpWNnRErz +vgMkdFUKxRacoOP7I+c51QEkjCwJEYu/RMe0ieXurIMkHLoiYsjKo+Oiec5m +HZR/6xfvnCiko4ZBe2pAMAkC7n0FPuV0tPmbtinjEAlSPAtD8zo65hv92VF/ +mITLmz7u/PuYjj7RH3ZYhJLA6IqOrXhGxz8Hre43Udbkv9Wo/IaO64paq56E +kWDKlnNdNEDHhUzDtPxwEp4M3I19METHo6/znolFkLA12r4w7CcdVyziOxhL +eUdR4sjXGTrWJvf82R5Jgv/vn7FPlxKY5bCU0RtFfa+DvhJfxAg0vaNpC9Ek +CA52lwhIEehV/jY8l3JhT337BgaBUTlf6xyPkhDCXufvqkKghvJ/H8som74o +nRehQWC5v6oAfwwJfbUZGncMCDwuysU8yqWGi+tajAlUtrX1HKIcwTu64wcS +qCaZGqcfS4JEvh9H3YpAi8uDz6opf6L1Sm6xJZARd2FyhvLNc7Zlvg4EPtSb +UjKMI8Em3qgzz4PA/a2jGUWU5f+WHXiwm0D2CpnOLspDoQyBt3sJ5DXJMRZz +SKgaPZ85E0Dgs8X1IYaUk/Ys0ZIKIVC1tP3VLsqO72Pq14YT+MFCyfAEZUWX +caftRwlUYkVdL6P8q2XPSNAxar2iYqWXlB9avT12Kona/+6o8mHKpxrspEtT +Cby9osFc6BgJrqzH3MazBG6TtBsiKKtVrN/09QKBkDx+xZDytFZ51/zLBF6x +jPWxpPz0mkIgI5/A2rHH610on6dnzsdrBCb0XST8KO/OEs52KyVQiGilHaSs +Kxa3JpIk8F2qicoRynwnJxoyKwgsuFWzOYpys8A+l4pqAp17adHRlC9F9Y22 +PiTwo7De00jK+yfs438+IvDI/LeqYZTXBzyhiT4jUJj5Mz+QsuBXY57GKwKb +Plvo+1Bu9+CZWb4hMGzoft8OygWdij1+3QQO/FK7uplysF1WUHw/lY/t+zn6 +lLFp6cKrnwgMX7UzWp6yyEbOxYffCDwh35G+gPLb6kntvhECFZprGr9R769U +f//jP2MEznoOyj6jHFHWv1N6msDQ2g2niylL5D5NYAsw8PFMd5sb5U+SLNlg +QQbmqn0q1qN8M40kTy9l4Oyj83kLKdtwsnubJBm4/QRn9ur/8/FHJHhAloFD +aZxdAf/Px6FjixYyGChTVzm0lnKSj7+uiQYDXUe9wmuovDn2vXvirkM9vzkv +KpKy4g4HtygDBh6NKS82pPzQYkPSXWRgz/2e49eoPE+rL+vTdGDgNfaMkw9V +D5OXaXF6LgxcsvbGblHK46JKikYeDJR1PF5dQdXTyJjRvk17Gfgrx8h6jqq/ +D9Xeky7RDJzUdaHvo+qzXzMgy5PDwI23hXL+UvXbm3uE6ZvIwO/VUwfSKLcf +S+UcPMPAW58VBUup+m+yuiuSVMjA2IA/G+qp/vDk/n9k6g0Gdj9o8TOl3LDm +OftcOQOTxxiDtVQ/qRV/n51TSe1vY/vfcqr/3OxZrHLnBQPDDppygqn+lL3f +HT5MMPCS3NuH4VS/u/B2z4evMwzMeKryo5nqh+k2h+KH/zHwr0BzIkH5lF7S +s99CCihkOj1Wu58Ezh9yh6i8Am65E93dvYfK28kFQUxzBTR0yLh7wYuEPXOi +4qZWCji0Ore/nurXvoG0is22CmhyKThmmOrnntvXzNq7KCBdfreaEdXv2TLO +SXsDFHBASGTLzZ0kMEtKr5w/r4BGJ+cnaVDzoodekmt2UQE/MwjSZDuVn/PF +OeO5Cmj3yeQ2m5ovd+OKLtkXK6D2/C6rEGoe6TpdyRSpUcCmswc7sraSoLog +PS3hvQL2BorRYjZRefOIjA3VUMQlwaaa96j5dqctPEZJRxHJgbf6yTrUfiyP +HG1bq4iP2g/ouGiTcHbt4ShdUERX/n7hcWo+LhUOPDJip4h6eht9RFVJmF/p +FeQbpogzhpPun+VJ+Clm6elYp4ipKxMurRAiodOf8WrfE0V8OiQ8kriIytfj +GYh5Tq1/NmH69wIS0iJKVl1vV8ThlwOmbfwkaH8Q7p8eVMR2XvaDwFkeBJAv +3S6LK6Flt6+38SgPBm0cdn7arYRj71siNVt58CnF0zF4kTJ+m2+j/iCdun9Q +g6EtrIwsxoMnL87yYGrz9PDwMmWcvipT0p1Gnd8EzsbvpSmjalCa5WgKD7TD +6297airjVV9twfnxPIj2URa32a6MBoIL3XpDqPPchqGX6rnKeHF5yj6b7TzY +Mhq25bOBCmYNvt8XtoQ6j3kLHrodsxr5Ql8w/e5xqf8JSf7EOlV0S9BmeuuX +gdgL5VO8UTVcrXij6m1JCcgmldsaGGjgN96rFunBYshUN1om7qeJV+ZcivwN +r0MTzWTt2Bkt1O0Ni/dJKIL1snVpa9rXYHzkOfpkeQGICOSH7OJoI1uUY27w +Nx/k41YxnZV1cMrW4ky6Xh4IKblW2D/RQV2Wl3qWQC5osaTLw9x0UfvaiNaX +vxchuE+s3pJPD/WiLqtWfMmE0bEUhy2ZevjoecJOXd3zsHnN4+wtmvqokPdZ +r6PyHNSOGf+ZatbH4vNcXVOTMxCgodv92mctmtNo0h5Wp4A1srvNWcgA5xw/ +mhUqJ4OZotS2pfkG+Dp76l9vSQKsjk0+UmdoiLPzKnm6l46Bmo/RA6VuQ2y1 +Hqs3LI4Fn9o9x28fXIcrCyfe7DgSBQ+utO3+udIIXQ93Mv/rC4Px6/+m1tw1 +wiB1szvJk4fAW6lEKHvbenSaVXK9+TIIfqqdM7j5Yz16mKht63m4H+4V/Hk/ +kWSMX4tlzLRX+oHLJgU0lmcix12c7NTwhrk2QZF6OhML42Z2MuW84YrPSI+l +AhO5RPSikqXe8CWhMsxlNRO9xu9vLh7xguBGm/JwXSZGGEX/t5r0gmTrKPl7 +5kyci5wz1VrnBVVOb2b1A5lIjq/XVrXeBTIHEiu1HjKRGdYzoaTjAaf++a49 +WcdEpVOizi+kPID/rDn5tYGJN8k4djyfBwxWLCi+0shEMQ5nVPmVO1TxHc8U +a2Xi3V6XijVB7uCSHhs2+ZmJ3QPSGTa33CCzOnxt7RIWfuzuLzth5gorF/uT +23awcDdX/cbMBWco2Bgd8cOZhfMWWHGIOGfQjT618ZwrC1tiUra67HMG6x+8 +N527WDiss+zEPJYzJLRPTHv7s/DNxUB3pY9O8Ds/xjQijoXL9307cE/XCbqN +z7UWlbCwUv35o5o+R9hzuODSFi4Lg/1EGpc0OcIk947PEI+FWS6/2fvvOIIY +o3NKp4KFy/oHunemOIKVoJzs/YcsTKF5HJhn7Ag1bUW7W9+w8Jiju5bDRQew +FLmnGdrJQpMR/qvXEh2gc3PjpFQPC3++1xkTCnGA8arvSe7vWBg3kflnbqsD +aOZpl30bZKFKf+qx/H9sqOk2CU0ZZuHUL++S4CE2WK7YDmt+sFBSVtbFvosN +vomHX4dMsNAmYwM1VNgw/jAhW/I3Cw2OVCtbX2EDZ+aCd9UMC9dmQNL+VDYs +0y/WcJtjoVCrJzMzgg05B6om/v1j4WaFqnVtfmz4H8VogCQ= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -2143,299 +6670,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:eJwV13k0VW8XB3DRQImiDNfQPdeUMVMk97Y3RaJMXUKmCA1CEpnCLUOiVBQq +IpRw3dOgDKkfGqhUyBzNSYbKFFHvef8667PWOc961jnfvfdzCK9Aex9+Pj4+ +oXl8fP+/TvY1NiieLNigJhn0XbkKN7TlSIWbdHKAWytkSOPJA6586SXVeRY6 +M4pE2sq1INT2RodAZz6ws1wuFpZvgOUjkmenO26C24sbnz3LraG/xjpwvKMO +JGodcpK47mCuOPj2Z0cLqJdy/24qCYDpDsOMHx0f4NV4ZLpFzlGo33it4HX+ +GHS861P9XnIaZPsrv3hpzIHeCrOMapMLsMLf48aijQIoZvxrsalxDpzVMa+2 +dhDEk+pNg3rcfOjK1H74c9lS/KWm9+l6XSGcLIh5yS+9HA2d407farwOkukf +T5y7LI78dHwUubcEpNTvHP9dJI5PvpS+yAguAVpdQowbTxyfLTcuuhFZAvI/ +VA+r1IvjrKFifUNqCShtDfKsHhBHQ/tdKVVkCejNnzP4qLcC+RZc9C75XQI2 +IRKfdJtWYEKv861sTikksrdsaJlciaYqhcXhCWVAu91M458ngaG5qU5fT5UB +V5w9pbNEAg/Zc4usL5RBe4s778wqCVw59kZ28fUyULQLYdhZSOC19UOO+o1l +ULctd+GrLAlcbC9j7LCYC3PmE80vmJK4tmNuXn0iF9KKIkrmzCWxZMuNH16n +uaC4kC9J004Sfftf7p49z4WtjxabpPpI4urEL90yRVzI3ki/tfWUJIZPeg4J +N3BhHVpdeNYvifsVRmTv/uXCIaM8j0aOFPq0jAyrBJaD5RWRcasUKXxRGvPs +2OFyYCyKSmrOkELNXImJrshyeNXmSLZel8KZi3Lqh5PKQStIWKCvWQprit1p +fnnlMFAUVvSLJo1tmWTjupZycF1hPSxzSxqvgs6vp5I80IusjsupkcbnNhE+ +F2k8WPxhtQTxWBpFCqP/7JPjQWW5ACh3SeMok3N6ngIPJKwq07T/SWNy+k5H +YS0evIpT1DezouE4PnfK3MiDTaMzEQEfaVhjMqOS7M+DcIt0tf+GaOgXKHBi +PIAH3DzNbvFJGk6Ve6u6HuSBFNvTqFJQBt+ddF+tEMqDoXuPpgS0ZHBdVg89 +LYYH5zhpIVlHZPDAdsclX87w4MNK5YCGpbJIg4A9nNs8kAx8ICcpKYuJ6Wq9 +6RU82PrU6cVeuiyGv7Y7W3CPBxURJzVE9WSx9HHI4+oaHiT3/xh0dpJF/zKw +b2zggW5xtd9oviyemHgvs6uNB3FMu120dXLI3dRVc/wnDyzcc34Zmsqh7X5z +N58xHojEfj/msFUOr+/pbDKd4MGl+viiNE85dPx1SWT8Nw/uWVZ9X3hCDgOf +MU20+Uj44aQQOtYlh3UNhdmiIiTcjQhatPyTHIaps/Tui5Jw9NL9TK0RORyy +1cnxW06C8Lsd1Xv55ZHPLHfo5goSVPxS+N6pUW5oOawgQ4L74Ynk55HyuEa/ +4pS/CglKF0xlB+Pl0bFUJuLrapJ6f6fLFqXJ46FCwQ0eaiREzKq+Mi2Qx7v7 +FO3MNEnIOOa+svK5PN4WMed91yXh+ZknuYVyq5Aha3k7j0XCem7W7aMPVmFH +5k3xClsSNnU0z408XYX8JnMeVXYkWPPN3+zRsgrtV7rOVNuT4G0f0AWfV+H2 +IBGZu2wSzCOJmNgFdHxAC5FKdSIhaNXkVRN1OrZPd/ve8yBh4lba0+k1dJxK +cm4840ntz0J9mNSnI+2LVNyeXSTEH/Q0YGygY0C/8a+l3iRk1zc95bejo2uA +98A6XxIa/HKH60PpOJ3RmibqT8KWWSOxqEg6xqqrxNVSbk5rM9CPpWNnRErz +vgMkdFUKxRacoOP7I+c51QEkjCwJEYu/RMe0ieXurIMkHLoiYsjKo+Oiec5m +HZR/6xfvnCiko4ZBe2pAMAkC7n0FPuV0tPmbtinjEAlSPAtD8zo65hv92VF/ +mITLmz7u/PuYjj7RH3ZYhJLA6IqOrXhGxz8Hre43Udbkv9Wo/IaO64paq56E +kWDKlnNdNEDHhUzDtPxwEp4M3I19METHo6/znolFkLA12r4w7CcdVyziOxhL +eUdR4sjXGTrWJvf82R5Jgv/vn7FPlxKY5bCU0RtFfa+DvhJfxAg0vaNpC9Ek +CA52lwhIEehV/jY8l3JhT337BgaBUTlf6xyPkhDCXufvqkKghvJ/H8som74o +nRehQWC5v6oAfwwJfbUZGncMCDwuysU8yqWGi+tajAlUtrX1HKIcwTu64wcS +qCaZGqcfS4JEvh9H3YpAi8uDz6opf6L1Sm6xJZARd2FyhvLNc7Zlvg4EPtSb +UjKMI8Em3qgzz4PA/a2jGUWU5f+WHXiwm0D2CpnOLspDoQyBt3sJ5DXJMRZz +SKgaPZ85E0Dgs8X1IYaUk/Ys0ZIKIVC1tP3VLsqO72Pq14YT+MFCyfAEZUWX +caftRwlUYkVdL6P8q2XPSNAxar2iYqWXlB9avT12Kona/+6o8mHKpxrspEtT +Cby9osFc6BgJrqzH3MazBG6TtBsiKKtVrN/09QKBkDx+xZDytFZ51/zLBF6x +jPWxpPz0mkIgI5/A2rHH610on6dnzsdrBCb0XST8KO/OEs52KyVQiGilHaSs +Kxa3JpIk8F2qicoRynwnJxoyKwgsuFWzOYpys8A+l4pqAp17adHRlC9F9Y22 +PiTwo7De00jK+yfs438+IvDI/LeqYZTXBzyhiT4jUJj5Mz+QsuBXY57GKwKb +Plvo+1Bu9+CZWb4hMGzoft8OygWdij1+3QQO/FK7uplysF1WUHw/lY/t+zn6 +lLFp6cKrnwgMX7UzWp6yyEbOxYffCDwh35G+gPLb6kntvhECFZprGr9R769U +f//jP2MEznoOyj6jHFHWv1N6msDQ2g2niylL5D5NYAsw8PFMd5sb5U+SLNlg +QQbmqn0q1qN8M40kTy9l4Oyj83kLKdtwsnubJBm4/QRn9ur/8/FHJHhAloFD +aZxdAf/Px6FjixYyGChTVzm0lnKSj7+uiQYDXUe9wmuovDn2vXvirkM9vzkv +KpKy4g4HtygDBh6NKS82pPzQYkPSXWRgz/2e49eoPE+rL+vTdGDgNfaMkw9V +D5OXaXF6LgxcsvbGblHK46JKikYeDJR1PF5dQdXTyJjRvk17Gfgrx8h6jqq/ +D9Xeky7RDJzUdaHvo+qzXzMgy5PDwI23hXL+UvXbm3uE6ZvIwO/VUwfSKLcf +S+UcPMPAW58VBUup+m+yuiuSVMjA2IA/G+qp/vDk/n9k6g0Gdj9o8TOl3LDm +OftcOQOTxxiDtVQ/qRV/n51TSe1vY/vfcqr/3OxZrHLnBQPDDppygqn+lL3f +HT5MMPCS3NuH4VS/u/B2z4evMwzMeKryo5nqh+k2h+KH/zHwr0BzIkH5lF7S +s99CCihkOj1Wu58Ezh9yh6i8Am65E93dvYfK28kFQUxzBTR0yLh7wYuEPXOi +4qZWCji0Ore/nurXvoG0is22CmhyKThmmOrnntvXzNq7KCBdfreaEdXv2TLO +SXsDFHBASGTLzZ0kMEtKr5w/r4BGJ+cnaVDzoodekmt2UQE/MwjSZDuVn/PF +OeO5Cmj3yeQ2m5ovd+OKLtkXK6D2/C6rEGoe6TpdyRSpUcCmswc7sraSoLog +PS3hvQL2BorRYjZRefOIjA3VUMQlwaaa96j5dqctPEZJRxHJgbf6yTrUfiyP +HG1bq4iP2g/ouGiTcHbt4ShdUERX/n7hcWo+LhUOPDJip4h6eht9RFVJmF/p +FeQbpogzhpPun+VJ+Clm6elYp4ipKxMurRAiodOf8WrfE0V8OiQ8kriIytfj +GYh5Tq1/NmH69wIS0iJKVl1vV8ThlwOmbfwkaH8Q7p8eVMR2XvaDwFkeBJAv +3S6LK6Flt6+38SgPBm0cdn7arYRj71siNVt58CnF0zF4kTJ+m2+j/iCdun9Q +g6EtrIwsxoMnL87yYGrz9PDwMmWcvipT0p1Gnd8EzsbvpSmjalCa5WgKD7TD +6297airjVV9twfnxPIj2URa32a6MBoIL3XpDqPPchqGX6rnKeHF5yj6b7TzY +Mhq25bOBCmYNvt8XtoQ6j3kLHrodsxr5Ql8w/e5xqf8JSf7EOlV0S9BmeuuX +gdgL5VO8UTVcrXij6m1JCcgmldsaGGjgN96rFunBYshUN1om7qeJV+ZcivwN +r0MTzWTt2Bkt1O0Ni/dJKIL1snVpa9rXYHzkOfpkeQGICOSH7OJoI1uUY27w +Nx/k41YxnZV1cMrW4ky6Xh4IKblW2D/RQV2Wl3qWQC5osaTLw9x0UfvaiNaX +vxchuE+s3pJPD/WiLqtWfMmE0bEUhy2ZevjoecJOXd3zsHnN4+wtmvqokPdZ +r6PyHNSOGf+ZatbH4vNcXVOTMxCgodv92mctmtNo0h5Wp4A1srvNWcgA5xw/ +mhUqJ4OZotS2pfkG+Dp76l9vSQKsjk0+UmdoiLPzKnm6l46Bmo/RA6VuQ2y1 +Hqs3LI4Fn9o9x28fXIcrCyfe7DgSBQ+utO3+udIIXQ93Mv/rC4Px6/+m1tw1 +wiB1szvJk4fAW6lEKHvbenSaVXK9+TIIfqqdM7j5Yz16mKht63m4H+4V/Hk/ +kWSMX4tlzLRX+oHLJgU0lmcix12c7NTwhrk2QZF6OhML42Z2MuW84YrPSI+l +AhO5RPSikqXe8CWhMsxlNRO9xu9vLh7xguBGm/JwXSZGGEX/t5r0gmTrKPl7 +5kyci5wz1VrnBVVOb2b1A5lIjq/XVrXeBTIHEiu1HjKRGdYzoaTjAaf++a49 +WcdEpVOizi+kPID/rDn5tYGJN8k4djyfBwxWLCi+0shEMQ5nVPmVO1TxHc8U +a2Xi3V6XijVB7uCSHhs2+ZmJ3QPSGTa33CCzOnxt7RIWfuzuLzth5gorF/uT +23awcDdX/cbMBWco2Bgd8cOZhfMWWHGIOGfQjT618ZwrC1tiUra67HMG6x+8 +N527WDiss+zEPJYzJLRPTHv7s/DNxUB3pY9O8Ds/xjQijoXL9307cE/XCbqN +z7UWlbCwUv35o5o+R9hzuODSFi4Lg/1EGpc0OcIk947PEI+FWS6/2fvvOIIY +o3NKp4KFy/oHunemOIKVoJzs/YcsTKF5HJhn7Ag1bUW7W9+w8Jiju5bDRQew +FLmnGdrJQpMR/qvXEh2gc3PjpFQPC3++1xkTCnGA8arvSe7vWBg3kflnbqsD +aOZpl30bZKFKf+qx/H9sqOk2CU0ZZuHUL++S4CE2WK7YDmt+sFBSVtbFvosN +vomHX4dMsNAmYwM1VNgw/jAhW/I3Cw2OVCtbX2EDZ+aCd9UMC9dmQNL+VDYs +0y/WcJtjoVCrJzMzgg05B6om/v1j4WaFqnVtfmz4H8VogCQ= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "PlotRange" -> {{0, 30}, {0., 0.06841263107604457}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +6792,19 @@ xZ+NDXq9HfXOhZcGEP8DWaJNdQ== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "PlotRange" -> {{0, 30}, {0., 0.06841263107604457}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +6818,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:eJwV13k0VW8XB3DRQImiDNfQPdeUMVMk97Y3RaJMXUKmCA1CEpnCLUOiVBQq +IpRw3dOgDKkfGqhUyBzNSYbKFFHvef8667PWOc961jnfvfdzCK9Aex9+Pj4+ +oXl8fP+/TvY1NiieLNigJhn0XbkKN7TlSIWbdHKAWytkSOPJA6586SXVeRY6 +M4pE2sq1INT2RodAZz6ws1wuFpZvgOUjkmenO26C24sbnz3LraG/xjpwvKMO +JGodcpK47mCuOPj2Z0cLqJdy/24qCYDpDsOMHx0f4NV4ZLpFzlGo33it4HX+ +GHS861P9XnIaZPsrv3hpzIHeCrOMapMLsMLf48aijQIoZvxrsalxDpzVMa+2 +dhDEk+pNg3rcfOjK1H74c9lS/KWm9+l6XSGcLIh5yS+9HA2d407farwOkukf +T5y7LI78dHwUubcEpNTvHP9dJI5PvpS+yAguAVpdQowbTxyfLTcuuhFZAvI/ +VA+r1IvjrKFifUNqCShtDfKsHhBHQ/tdKVVkCejNnzP4qLcC+RZc9C75XQI2 +IRKfdJtWYEKv861sTikksrdsaJlciaYqhcXhCWVAu91M458ngaG5qU5fT5UB +V5w9pbNEAg/Zc4usL5RBe4s778wqCVw59kZ28fUyULQLYdhZSOC19UOO+o1l +ULctd+GrLAlcbC9j7LCYC3PmE80vmJK4tmNuXn0iF9KKIkrmzCWxZMuNH16n +uaC4kC9J004Sfftf7p49z4WtjxabpPpI4urEL90yRVzI3ki/tfWUJIZPeg4J +N3BhHVpdeNYvifsVRmTv/uXCIaM8j0aOFPq0jAyrBJaD5RWRcasUKXxRGvPs +2OFyYCyKSmrOkELNXImJrshyeNXmSLZel8KZi3Lqh5PKQStIWKCvWQprit1p +fnnlMFAUVvSLJo1tmWTjupZycF1hPSxzSxqvgs6vp5I80IusjsupkcbnNhE+ +F2k8WPxhtQTxWBpFCqP/7JPjQWW5ACh3SeMok3N6ngIPJKwq07T/SWNy+k5H +YS0evIpT1DezouE4PnfK3MiDTaMzEQEfaVhjMqOS7M+DcIt0tf+GaOgXKHBi +PIAH3DzNbvFJGk6Ve6u6HuSBFNvTqFJQBt+ddF+tEMqDoXuPpgS0ZHBdVg89 +LYYH5zhpIVlHZPDAdsclX87w4MNK5YCGpbJIg4A9nNs8kAx8ICcpKYuJ6Wq9 +6RU82PrU6cVeuiyGv7Y7W3CPBxURJzVE9WSx9HHI4+oaHiT3/xh0dpJF/zKw +b2zggW5xtd9oviyemHgvs6uNB3FMu120dXLI3dRVc/wnDyzcc34Zmsqh7X5z +N58xHojEfj/msFUOr+/pbDKd4MGl+viiNE85dPx1SWT8Nw/uWVZ9X3hCDgOf +MU20+Uj44aQQOtYlh3UNhdmiIiTcjQhatPyTHIaps/Tui5Jw9NL9TK0RORyy +1cnxW06C8Lsd1Xv55ZHPLHfo5goSVPxS+N6pUW5oOawgQ4L74Ynk55HyuEa/ +4pS/CglKF0xlB+Pl0bFUJuLrapJ6f6fLFqXJ46FCwQ0eaiREzKq+Mi2Qx7v7 +FO3MNEnIOOa+svK5PN4WMed91yXh+ZknuYVyq5Aha3k7j0XCem7W7aMPVmFH +5k3xClsSNnU0z408XYX8JnMeVXYkWPPN3+zRsgrtV7rOVNuT4G0f0AWfV+H2 +IBGZu2wSzCOJmNgFdHxAC5FKdSIhaNXkVRN1OrZPd/ve8yBh4lba0+k1dJxK +cm4840ntz0J9mNSnI+2LVNyeXSTEH/Q0YGygY0C/8a+l3iRk1zc95bejo2uA +98A6XxIa/HKH60PpOJ3RmibqT8KWWSOxqEg6xqqrxNVSbk5rM9CPpWNnRErz +vgMkdFUKxRacoOP7I+c51QEkjCwJEYu/RMe0ieXurIMkHLoiYsjKo+Oiec5m +HZR/6xfvnCiko4ZBe2pAMAkC7n0FPuV0tPmbtinjEAlSPAtD8zo65hv92VF/ +mITLmz7u/PuYjj7RH3ZYhJLA6IqOrXhGxz8Hre43Udbkv9Wo/IaO64paq56E +kWDKlnNdNEDHhUzDtPxwEp4M3I19METHo6/znolFkLA12r4w7CcdVyziOxhL +eUdR4sjXGTrWJvf82R5Jgv/vn7FPlxKY5bCU0RtFfa+DvhJfxAg0vaNpC9Ek +CA52lwhIEehV/jY8l3JhT337BgaBUTlf6xyPkhDCXufvqkKghvJ/H8som74o +nRehQWC5v6oAfwwJfbUZGncMCDwuysU8yqWGi+tajAlUtrX1HKIcwTu64wcS +qCaZGqcfS4JEvh9H3YpAi8uDz6opf6L1Sm6xJZARd2FyhvLNc7Zlvg4EPtSb +UjKMI8Em3qgzz4PA/a2jGUWU5f+WHXiwm0D2CpnOLspDoQyBt3sJ5DXJMRZz +SKgaPZ85E0Dgs8X1IYaUk/Ys0ZIKIVC1tP3VLsqO72Pq14YT+MFCyfAEZUWX +caftRwlUYkVdL6P8q2XPSNAxar2iYqWXlB9avT12Kona/+6o8mHKpxrspEtT +Cby9osFc6BgJrqzH3MazBG6TtBsiKKtVrN/09QKBkDx+xZDytFZ51/zLBF6x +jPWxpPz0mkIgI5/A2rHH610on6dnzsdrBCb0XST8KO/OEs52KyVQiGilHaSs +Kxa3JpIk8F2qicoRynwnJxoyKwgsuFWzOYpys8A+l4pqAp17adHRlC9F9Y22 +PiTwo7De00jK+yfs438+IvDI/LeqYZTXBzyhiT4jUJj5Mz+QsuBXY57GKwKb +Plvo+1Bu9+CZWb4hMGzoft8OygWdij1+3QQO/FK7uplysF1WUHw/lY/t+zn6 +lLFp6cKrnwgMX7UzWp6yyEbOxYffCDwh35G+gPLb6kntvhECFZprGr9R769U +f//jP2MEznoOyj6jHFHWv1N6msDQ2g2niylL5D5NYAsw8PFMd5sb5U+SLNlg +QQbmqn0q1qN8M40kTy9l4Oyj83kLKdtwsnubJBm4/QRn9ur/8/FHJHhAloFD +aZxdAf/Px6FjixYyGChTVzm0lnKSj7+uiQYDXUe9wmuovDn2vXvirkM9vzkv +KpKy4g4HtygDBh6NKS82pPzQYkPSXWRgz/2e49eoPE+rL+vTdGDgNfaMkw9V +D5OXaXF6LgxcsvbGblHK46JKikYeDJR1PF5dQdXTyJjRvk17Gfgrx8h6jqq/ +D9Xeky7RDJzUdaHvo+qzXzMgy5PDwI23hXL+UvXbm3uE6ZvIwO/VUwfSKLcf +S+UcPMPAW58VBUup+m+yuiuSVMjA2IA/G+qp/vDk/n9k6g0Gdj9o8TOl3LDm +OftcOQOTxxiDtVQ/qRV/n51TSe1vY/vfcqr/3OxZrHLnBQPDDppygqn+lL3f +HT5MMPCS3NuH4VS/u/B2z4evMwzMeKryo5nqh+k2h+KH/zHwr0BzIkH5lF7S +s99CCihkOj1Wu58Ezh9yh6i8Am65E93dvYfK28kFQUxzBTR0yLh7wYuEPXOi +4qZWCji0Ore/nurXvoG0is22CmhyKThmmOrnntvXzNq7KCBdfreaEdXv2TLO +SXsDFHBASGTLzZ0kMEtKr5w/r4BGJ+cnaVDzoodekmt2UQE/MwjSZDuVn/PF +OeO5Cmj3yeQ2m5ovd+OKLtkXK6D2/C6rEGoe6TpdyRSpUcCmswc7sraSoLog +PS3hvQL2BorRYjZRefOIjA3VUMQlwaaa96j5dqctPEZJRxHJgbf6yTrUfiyP +HG1bq4iP2g/ouGiTcHbt4ShdUERX/n7hcWo+LhUOPDJip4h6eht9RFVJmF/p +FeQbpogzhpPun+VJ+Clm6elYp4ipKxMurRAiodOf8WrfE0V8OiQ8kriIytfj +GYh5Tq1/NmH69wIS0iJKVl1vV8ThlwOmbfwkaH8Q7p8eVMR2XvaDwFkeBJAv +3S6LK6Flt6+38SgPBm0cdn7arYRj71siNVt58CnF0zF4kTJ+m2+j/iCdun9Q +g6EtrIwsxoMnL87yYGrz9PDwMmWcvipT0p1Gnd8EzsbvpSmjalCa5WgKD7TD +6297airjVV9twfnxPIj2URa32a6MBoIL3XpDqPPchqGX6rnKeHF5yj6b7TzY +Mhq25bOBCmYNvt8XtoQ6j3kLHrodsxr5Ql8w/e5xqf8JSf7EOlV0S9BmeuuX +gdgL5VO8UTVcrXij6m1JCcgmldsaGGjgN96rFunBYshUN1om7qeJV+ZcivwN +r0MTzWTt2Bkt1O0Ni/dJKIL1snVpa9rXYHzkOfpkeQGICOSH7OJoI1uUY27w +Nx/k41YxnZV1cMrW4ky6Xh4IKblW2D/RQV2Wl3qWQC5osaTLw9x0UfvaiNaX +vxchuE+s3pJPD/WiLqtWfMmE0bEUhy2ZevjoecJOXd3zsHnN4+wtmvqokPdZ +r6PyHNSOGf+ZatbH4vNcXVOTMxCgodv92mctmtNo0h5Wp4A1srvNWcgA5xw/ +mhUqJ4OZotS2pfkG+Dp76l9vSQKsjk0+UmdoiLPzKnm6l46Bmo/RA6VuQ2y1 +Hqs3LI4Fn9o9x28fXIcrCyfe7DgSBQ+utO3+udIIXQ93Mv/rC4Px6/+m1tw1 +wiB1szvJk4fAW6lEKHvbenSaVXK9+TIIfqqdM7j5Yz16mKht63m4H+4V/Hk/ +kWSMX4tlzLRX+oHLJgU0lmcix12c7NTwhrk2QZF6OhML42Z2MuW84YrPSI+l +AhO5RPSikqXe8CWhMsxlNRO9xu9vLh7xguBGm/JwXSZGGEX/t5r0gmTrKPl7 +5kyci5wz1VrnBVVOb2b1A5lIjq/XVrXeBTIHEiu1HjKRGdYzoaTjAaf++a49 +WcdEpVOizi+kPID/rDn5tYGJN8k4djyfBwxWLCi+0shEMQ5nVPmVO1TxHc8U +a2Xi3V6XijVB7uCSHhs2+ZmJ3QPSGTa33CCzOnxt7RIWfuzuLzth5gorF/uT +23awcDdX/cbMBWco2Bgd8cOZhfMWWHGIOGfQjT618ZwrC1tiUra67HMG6x+8 +N527WDiss+zEPJYzJLRPTHv7s/DNxUB3pY9O8Ds/xjQijoXL9307cE/XCbqN +z7UWlbCwUv35o5o+R9hzuODSFi4Lg/1EGpc0OcIk947PEI+FWS6/2fvvOIIY +o3NKp4KFy/oHunemOIKVoJzs/YcsTKF5HJhn7Ag1bUW7W9+w8Jiju5bDRQew +FLmnGdrJQpMR/qvXEh2gc3PjpFQPC3++1xkTCnGA8arvSe7vWBg3kflnbqsD +aOZpl30bZKFKf+qx/H9sqOk2CU0ZZuHUL++S4CE2WK7YDmt+sFBSVtbFvosN +vomHX4dMsNAmYwM1VNgw/jAhW/I3Cw2OVCtbX2EDZ+aCd9UMC9dmQNL+VDYs +0y/WcJtjoVCrJzMzgg05B6om/v1j4WaFqnVtfmz4H8VogCQ= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "PlotRange" -> {{0, 30}, {0., 0.06841263107604457}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +6938,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 +6966,8 @@ xZ+NDXq9HfXOhZcGEP8DWaJNdQ== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.15142054732361562`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06841263107604457}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -2810,25 +6975,860 @@ 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.993960474114843*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"2dcd44a4-f93a-4403-b35c-450400e1abe5"] }, 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.005381"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.015959"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.025999"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.035173"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.043213"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.049902"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.055111"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.058771"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.060904"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.061577"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.060934"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.059136"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.056395"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.052912"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.048907"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.044569"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.040087"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.035606"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.031259"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.027134"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.023309"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.019818"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.016691"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.013926"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.01152"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.009447"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.007687"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.006205"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.004972"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.003954"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.003124"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.993959019867813*^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:eJxTTMoPSmViYGCQB2IQDQNLGAINkrnK7CG8D/YFW/1i+sInQPkMDkmGr6Kq +58+C8jkczrencxoxLYLyBRw0tNtWMyssg/JFHAL6mFwO9qyE8iUc3u708W0y +XwPlyzi85X7Rai2+DspXcJimnKJwXm89lK/koKgQ78TaDuOrOFidyz201wjG +V3PYGsTxRMgdpl/D4cmtAMNz92HmazmUHVGU9hBfDeXrOAA5s8O4YO7RcyjZ +dKVq/0WYew0clAL+Nnu0LYHyDR1s9EWlP1vB/GfkcNon868u4wIo39jhkHfB +K+aTs6F8E4edQeebAu5Nh/JNHeT5a8u1vadA+WYOttd6eIrEJ0L55g6HXZpF +bFp7oHwLB/5r/y3PTG+H8i0dus7EPPgU0QzlWzkw5q6OTK+ph/KtHd7OVGXM +yqqE8m0cpK+FiLXGlkD5tg4f5zGfFjQqgPLtHO40Ld3VMD3THgDPenlb + "]]}, + 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:eJxTTMoPSmViYGCQB2IQDQNLGAINkrnK7CG8D/YFW/1i+sInQPkMDkmGr6Kq +58+C8jkczrencxoxLYLyBRw0tNtWMyssg/JFHAL6mFwO9qyE8iUc3u708W0y +XwPlyzi85X7Rai2+DspXcJimnKJwXm89lK/koKgQ78TaDuOrOFidyz201wjG +V3PYGsTxRMgdpl/D4cmtAMNz92HmazmUHVGU9hBfDeXrOAA5s8O4YO7RcyjZ +dKVq/0WYew0clAL+Nnu0LYHyDR1s9EWlP1vB/GfkcNon868u4wIo39jhkHfB +K+aTs6F8E4edQeebAu5Nh/JNHeT5a8u1vadA+WYOttd6eIrEJ0L55g6HXZpF +bFp7oHwLB/5r/y3PTG+H8i0dus7EPPgU0QzlWzkw5q6OTK+ph/KtHd7OVGXM +yqqE8m0cpK+FiLXGlkD5tg4f5zGfFjQqgPLtHO40Ld3VMD3THgDPenlb + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.061577}}, + "Frame" -> {{False, 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.061577}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGCQB2IQDQNLGAINkrnK7CG8D/YFW/1i+sInQPkMDkmGr6Kq +58+C8jkczrencxoxLYLyBRw0tNtWMyssg/JFHAL6mFwO9qyE8iUc3u708W0y +XwPlyzi85X7Rai2+DspXcJimnKJwXm89lK/koKgQ78TaDuOrOFidyz201wjG +V3PYGsTxRMgdpl/D4cmtAMNz92HmazmUHVGU9hBfDeXrOAA5s8O4YO7RcyjZ +dKVq/0WYew0clAL+Nnu0LYHyDR1s9EWlP1vB/GfkcNon868u4wIo39jhkHfB +K+aTs6F8E4edQeebAu5Nh/JNHeT5a8u1vadA+WYOttd6eIrEJ0L55g6HXZpF +bFp7oHwLB/5r/y3PTG+H8i0dus7EPPgU0QzlWzkw5q6OTK+ph/KtHd7OVGXM +yqqE8m0cpK+FiLXGlkD5tg4f5zGfFjQqgPLtHO40Ld3VMD3THgDPenlb + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.061577}}, + "Frame" -> {{False, 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.061577}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993960474372497*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"f13bf60e-4985-4f3d-81f3-01f672ffae50"] +}, 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:eJwV13k0VW8XB3DRQImiDNfQPdeUMVMk97Y3RaJMXUKmCA1CEpnCLUOiVBQq +IpRw3dOgDKkfGqhUyBzNSYbKFFHvef8667PWOc961jnfvfdzCK9Aex9+Pj4+ +oXl8fP+/TvY1NiieLNigJhn0XbkKN7TlSIWbdHKAWytkSOPJA6586SXVeRY6 +M4pE2sq1INT2RodAZz6ws1wuFpZvgOUjkmenO26C24sbnz3LraG/xjpwvKMO +JGodcpK47mCuOPj2Z0cLqJdy/24qCYDpDsOMHx0f4NV4ZLpFzlGo33it4HX+ +GHS861P9XnIaZPsrv3hpzIHeCrOMapMLsMLf48aijQIoZvxrsalxDpzVMa+2 +dhDEk+pNg3rcfOjK1H74c9lS/KWm9+l6XSGcLIh5yS+9HA2d407farwOkukf +T5y7LI78dHwUubcEpNTvHP9dJI5PvpS+yAguAVpdQowbTxyfLTcuuhFZAvI/ +VA+r1IvjrKFifUNqCShtDfKsHhBHQ/tdKVVkCejNnzP4qLcC+RZc9C75XQI2 +IRKfdJtWYEKv861sTikksrdsaJlciaYqhcXhCWVAu91M458ngaG5qU5fT5UB +V5w9pbNEAg/Zc4usL5RBe4s778wqCVw59kZ28fUyULQLYdhZSOC19UOO+o1l +ULctd+GrLAlcbC9j7LCYC3PmE80vmJK4tmNuXn0iF9KKIkrmzCWxZMuNH16n +uaC4kC9J004Sfftf7p49z4WtjxabpPpI4urEL90yRVzI3ki/tfWUJIZPeg4J +N3BhHVpdeNYvifsVRmTv/uXCIaM8j0aOFPq0jAyrBJaD5RWRcasUKXxRGvPs +2OFyYCyKSmrOkELNXImJrshyeNXmSLZel8KZi3Lqh5PKQStIWKCvWQprit1p +fnnlMFAUVvSLJo1tmWTjupZycF1hPSxzSxqvgs6vp5I80IusjsupkcbnNhE+ +F2k8WPxhtQTxWBpFCqP/7JPjQWW5ACh3SeMok3N6ngIPJKwq07T/SWNy+k5H +YS0evIpT1DezouE4PnfK3MiDTaMzEQEfaVhjMqOS7M+DcIt0tf+GaOgXKHBi +PIAH3DzNbvFJGk6Ve6u6HuSBFNvTqFJQBt+ddF+tEMqDoXuPpgS0ZHBdVg89 +LYYH5zhpIVlHZPDAdsclX87w4MNK5YCGpbJIg4A9nNs8kAx8ICcpKYuJ6Wq9 +6RU82PrU6cVeuiyGv7Y7W3CPBxURJzVE9WSx9HHI4+oaHiT3/xh0dpJF/zKw +b2zggW5xtd9oviyemHgvs6uNB3FMu120dXLI3dRVc/wnDyzcc34Zmsqh7X5z +N58xHojEfj/msFUOr+/pbDKd4MGl+viiNE85dPx1SWT8Nw/uWVZ9X3hCDgOf +MU20+Uj44aQQOtYlh3UNhdmiIiTcjQhatPyTHIaps/Tui5Jw9NL9TK0RORyy +1cnxW06C8Lsd1Xv55ZHPLHfo5goSVPxS+N6pUW5oOawgQ4L74Ynk55HyuEa/ +4pS/CglKF0xlB+Pl0bFUJuLrapJ6f6fLFqXJ46FCwQ0eaiREzKq+Mi2Qx7v7 +FO3MNEnIOOa+svK5PN4WMed91yXh+ZknuYVyq5Aha3k7j0XCem7W7aMPVmFH +5k3xClsSNnU0z408XYX8JnMeVXYkWPPN3+zRsgrtV7rOVNuT4G0f0AWfV+H2 +IBGZu2wSzCOJmNgFdHxAC5FKdSIhaNXkVRN1OrZPd/ve8yBh4lba0+k1dJxK +cm4840ntz0J9mNSnI+2LVNyeXSTEH/Q0YGygY0C/8a+l3iRk1zc95bejo2uA +98A6XxIa/HKH60PpOJ3RmibqT8KWWSOxqEg6xqqrxNVSbk5rM9CPpWNnRErz +vgMkdFUKxRacoOP7I+c51QEkjCwJEYu/RMe0ieXurIMkHLoiYsjKo+Oiec5m +HZR/6xfvnCiko4ZBe2pAMAkC7n0FPuV0tPmbtinjEAlSPAtD8zo65hv92VF/ +mITLmz7u/PuYjj7RH3ZYhJLA6IqOrXhGxz8Hre43Udbkv9Wo/IaO64paq56E +kWDKlnNdNEDHhUzDtPxwEp4M3I19METHo6/znolFkLA12r4w7CcdVyziOxhL +eUdR4sjXGTrWJvf82R5Jgv/vn7FPlxKY5bCU0RtFfa+DvhJfxAg0vaNpC9Ek +CA52lwhIEehV/jY8l3JhT337BgaBUTlf6xyPkhDCXufvqkKghvJ/H8som74o +nRehQWC5v6oAfwwJfbUZGncMCDwuysU8yqWGi+tajAlUtrX1HKIcwTu64wcS +qCaZGqcfS4JEvh9H3YpAi8uDz6opf6L1Sm6xJZARd2FyhvLNc7Zlvg4EPtSb +UjKMI8Em3qgzz4PA/a2jGUWU5f+WHXiwm0D2CpnOLspDoQyBt3sJ5DXJMRZz +SKgaPZ85E0Dgs8X1IYaUk/Ys0ZIKIVC1tP3VLsqO72Pq14YT+MFCyfAEZUWX +caftRwlUYkVdL6P8q2XPSNAxar2iYqWXlB9avT12Kona/+6o8mHKpxrspEtT +Cby9osFc6BgJrqzH3MazBG6TtBsiKKtVrN/09QKBkDx+xZDytFZ51/zLBF6x +jPWxpPz0mkIgI5/A2rHH610on6dnzsdrBCb0XST8KO/OEs52KyVQiGilHaSs +Kxa3JpIk8F2qicoRynwnJxoyKwgsuFWzOYpys8A+l4pqAp17adHRlC9F9Y22 +PiTwo7De00jK+yfs438+IvDI/LeqYZTXBzyhiT4jUJj5Mz+QsuBXY57GKwKb +Plvo+1Bu9+CZWb4hMGzoft8OygWdij1+3QQO/FK7uplysF1WUHw/lY/t+zn6 +lLFp6cKrnwgMX7UzWp6yyEbOxYffCDwh35G+gPLb6kntvhECFZprGr9R769U +f//jP2MEznoOyj6jHFHWv1N6msDQ2g2niylL5D5NYAsw8PFMd5sb5U+SLNlg +QQbmqn0q1qN8M40kTy9l4Oyj83kLKdtwsnubJBm4/QRn9ur/8/FHJHhAloFD +aZxdAf/Px6FjixYyGChTVzm0lnKSj7+uiQYDXUe9wmuovDn2vXvirkM9vzkv +KpKy4g4HtygDBh6NKS82pPzQYkPSXWRgz/2e49eoPE+rL+vTdGDgNfaMkw9V +D5OXaXF6LgxcsvbGblHK46JKikYeDJR1PF5dQdXTyJjRvk17Gfgrx8h6jqq/ +D9Xeky7RDJzUdaHvo+qzXzMgy5PDwI23hXL+UvXbm3uE6ZvIwO/VUwfSKLcf +S+UcPMPAW58VBUup+m+yuiuSVMjA2IA/G+qp/vDk/n9k6g0Gdj9o8TOl3LDm +OftcOQOTxxiDtVQ/qRV/n51TSe1vY/vfcqr/3OxZrHLnBQPDDppygqn+lL3f +HT5MMPCS3NuH4VS/u/B2z4evMwzMeKryo5nqh+k2h+KH/zHwr0BzIkH5lF7S +s99CCihkOj1Wu58Ezh9yh6i8Am65E93dvYfK28kFQUxzBTR0yLh7wYuEPXOi +4qZWCji0Ore/nurXvoG0is22CmhyKThmmOrnntvXzNq7KCBdfreaEdXv2TLO +SXsDFHBASGTLzZ0kMEtKr5w/r4BGJ+cnaVDzoodekmt2UQE/MwjSZDuVn/PF +OeO5Cmj3yeQ2m5ovd+OKLtkXK6D2/C6rEGoe6TpdyRSpUcCmswc7sraSoLog +PS3hvQL2BorRYjZRefOIjA3VUMQlwaaa96j5dqctPEZJRxHJgbf6yTrUfiyP +HG1bq4iP2g/ouGiTcHbt4ShdUERX/n7hcWo+LhUOPDJip4h6eht9RFVJmF/p +FeQbpogzhpPun+VJ+Clm6elYp4ipKxMurRAiodOf8WrfE0V8OiQ8kriIytfj +GYh5Tq1/NmH69wIS0iJKVl1vV8ThlwOmbfwkaH8Q7p8eVMR2XvaDwFkeBJAv +3S6LK6Flt6+38SgPBm0cdn7arYRj71siNVt58CnF0zF4kTJ+m2+j/iCdun9Q +g6EtrIwsxoMnL87yYGrz9PDwMmWcvipT0p1Gnd8EzsbvpSmjalCa5WgKD7TD +6297airjVV9twfnxPIj2URa32a6MBoIL3XpDqPPchqGX6rnKeHF5yj6b7TzY +Mhq25bOBCmYNvt8XtoQ6j3kLHrodsxr5Ql8w/e5xqf8JSf7EOlV0S9BmeuuX +gdgL5VO8UTVcrXij6m1JCcgmldsaGGjgN96rFunBYshUN1om7qeJV+ZcivwN +r0MTzWTt2Bkt1O0Ni/dJKIL1snVpa9rXYHzkOfpkeQGICOSH7OJoI1uUY27w +Nx/k41YxnZV1cMrW4ky6Xh4IKblW2D/RQV2Wl3qWQC5osaTLw9x0UfvaiNaX +vxchuE+s3pJPD/WiLqtWfMmE0bEUhy2ZevjoecJOXd3zsHnN4+wtmvqokPdZ +r6PyHNSOGf+ZatbH4vNcXVOTMxCgodv92mctmtNo0h5Wp4A1srvNWcgA5xw/ +mhUqJ4OZotS2pfkG+Dp76l9vSQKsjk0+UmdoiLPzKnm6l46Bmo/RA6VuQ2y1 +Hqs3LI4Fn9o9x28fXIcrCyfe7DgSBQ+utO3+udIIXQ93Mv/rC4Px6/+m1tw1 +wiB1szvJk4fAW6lEKHvbenSaVXK9+TIIfqqdM7j5Yz16mKht63m4H+4V/Hk/ +kWSMX4tlzLRX+oHLJgU0lmcix12c7NTwhrk2QZF6OhML42Z2MuW84YrPSI+l +AhO5RPSikqXe8CWhMsxlNRO9xu9vLh7xguBGm/JwXSZGGEX/t5r0gmTrKPl7 +5kyci5wz1VrnBVVOb2b1A5lIjq/XVrXeBTIHEiu1HjKRGdYzoaTjAaf++a49 +WcdEpVOizi+kPID/rDn5tYGJN8k4djyfBwxWLCi+0shEMQ5nVPmVO1TxHc8U +a2Xi3V6XijVB7uCSHhs2+ZmJ3QPSGTa33CCzOnxt7RIWfuzuLzth5gorF/uT +23awcDdX/cbMBWco2Bgd8cOZhfMWWHGIOGfQjT618ZwrC1tiUra67HMG6x+8 +N527WDiss+zEPJYzJLRPTHv7s/DNxUB3pY9O8Ds/xjQijoXL9307cE/XCbqN +z7UWlbCwUv35o5o+R9hzuODSFi4Lg/1EGpc0OcIk947PEI+FWS6/2fvvOIIY +o3NKp4KFy/oHunemOIKVoJzs/YcsTKF5HJhn7Ag1bUW7W9+w8Jiju5bDRQew +FLmnGdrJQpMR/qvXEh2gc3PjpFQPC3++1xkTCnGA8arvSe7vWBg3kflnbqsD +aOZpl30bZKFKf+qx/H9sqOk2CU0ZZuHUL++S4CE2WK7YDmt+sFBSVtbFvosN +vomHX4dMsNAmYwM1VNgw/jAhW/I3Cw2OVCtbX2EDZ+aCd9UMC9dmQNL+VDYs +0y/WcJtjoVCrJzMzgg05B6om/v1j4WaFqnVtfmz4H8VogCQ= + "]]}, + 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:eJwV13k0VW8XB3DRQImiDNfQPdeUMVMk97Y3RaJMXUKmCA1CEpnCLUOiVBQq +IpRw3dOgDKkfGqhUyBzNSYbKFFHvef8667PWOc961jnfvfdzCK9Aex9+Pj4+ +oXl8fP+/TvY1NiieLNigJhn0XbkKN7TlSIWbdHKAWytkSOPJA6586SXVeRY6 +M4pE2sq1INT2RodAZz6ws1wuFpZvgOUjkmenO26C24sbnz3LraG/xjpwvKMO +JGodcpK47mCuOPj2Z0cLqJdy/24qCYDpDsOMHx0f4NV4ZLpFzlGo33it4HX+ +GHS861P9XnIaZPsrv3hpzIHeCrOMapMLsMLf48aijQIoZvxrsalxDpzVMa+2 +dhDEk+pNg3rcfOjK1H74c9lS/KWm9+l6XSGcLIh5yS+9HA2d407farwOkukf +T5y7LI78dHwUubcEpNTvHP9dJI5PvpS+yAguAVpdQowbTxyfLTcuuhFZAvI/ +VA+r1IvjrKFifUNqCShtDfKsHhBHQ/tdKVVkCejNnzP4qLcC+RZc9C75XQI2 +IRKfdJtWYEKv861sTikksrdsaJlciaYqhcXhCWVAu91M458ngaG5qU5fT5UB +V5w9pbNEAg/Zc4usL5RBe4s778wqCVw59kZ28fUyULQLYdhZSOC19UOO+o1l +ULctd+GrLAlcbC9j7LCYC3PmE80vmJK4tmNuXn0iF9KKIkrmzCWxZMuNH16n +uaC4kC9J004Sfftf7p49z4WtjxabpPpI4urEL90yRVzI3ki/tfWUJIZPeg4J +N3BhHVpdeNYvifsVRmTv/uXCIaM8j0aOFPq0jAyrBJaD5RWRcasUKXxRGvPs +2OFyYCyKSmrOkELNXImJrshyeNXmSLZel8KZi3Lqh5PKQStIWKCvWQprit1p +fnnlMFAUVvSLJo1tmWTjupZycF1hPSxzSxqvgs6vp5I80IusjsupkcbnNhE+ +F2k8WPxhtQTxWBpFCqP/7JPjQWW5ACh3SeMok3N6ngIPJKwq07T/SWNy+k5H +YS0evIpT1DezouE4PnfK3MiDTaMzEQEfaVhjMqOS7M+DcIt0tf+GaOgXKHBi +PIAH3DzNbvFJGk6Ve6u6HuSBFNvTqFJQBt+ddF+tEMqDoXuPpgS0ZHBdVg89 +LYYH5zhpIVlHZPDAdsclX87w4MNK5YCGpbJIg4A9nNs8kAx8ICcpKYuJ6Wq9 +6RU82PrU6cVeuiyGv7Y7W3CPBxURJzVE9WSx9HHI4+oaHiT3/xh0dpJF/zKw +b2zggW5xtd9oviyemHgvs6uNB3FMu120dXLI3dRVc/wnDyzcc34Zmsqh7X5z +N58xHojEfj/msFUOr+/pbDKd4MGl+viiNE85dPx1SWT8Nw/uWVZ9X3hCDgOf +MU20+Uj44aQQOtYlh3UNhdmiIiTcjQhatPyTHIaps/Tui5Jw9NL9TK0RORyy +1cnxW06C8Lsd1Xv55ZHPLHfo5goSVPxS+N6pUW5oOawgQ4L74Ynk55HyuEa/ +4pS/CglKF0xlB+Pl0bFUJuLrapJ6f6fLFqXJ46FCwQ0eaiREzKq+Mi2Qx7v7 +FO3MNEnIOOa+svK5PN4WMed91yXh+ZknuYVyq5Aha3k7j0XCem7W7aMPVmFH +5k3xClsSNnU0z408XYX8JnMeVXYkWPPN3+zRsgrtV7rOVNuT4G0f0AWfV+H2 +IBGZu2wSzCOJmNgFdHxAC5FKdSIhaNXkVRN1OrZPd/ve8yBh4lba0+k1dJxK +cm4840ntz0J9mNSnI+2LVNyeXSTEH/Q0YGygY0C/8a+l3iRk1zc95bejo2uA +98A6XxIa/HKH60PpOJ3RmibqT8KWWSOxqEg6xqqrxNVSbk5rM9CPpWNnRErz +vgMkdFUKxRacoOP7I+c51QEkjCwJEYu/RMe0ieXurIMkHLoiYsjKo+Oiec5m +HZR/6xfvnCiko4ZBe2pAMAkC7n0FPuV0tPmbtinjEAlSPAtD8zo65hv92VF/ +mITLmz7u/PuYjj7RH3ZYhJLA6IqOrXhGxz8Hre43Udbkv9Wo/IaO64paq56E +kWDKlnNdNEDHhUzDtPxwEp4M3I19METHo6/znolFkLA12r4w7CcdVyziOxhL +eUdR4sjXGTrWJvf82R5Jgv/vn7FPlxKY5bCU0RtFfa+DvhJfxAg0vaNpC9Ek +CA52lwhIEehV/jY8l3JhT337BgaBUTlf6xyPkhDCXufvqkKghvJ/H8som74o +nRehQWC5v6oAfwwJfbUZGncMCDwuysU8yqWGi+tajAlUtrX1HKIcwTu64wcS +qCaZGqcfS4JEvh9H3YpAi8uDz6opf6L1Sm6xJZARd2FyhvLNc7Zlvg4EPtSb +UjKMI8Em3qgzz4PA/a2jGUWU5f+WHXiwm0D2CpnOLspDoQyBt3sJ5DXJMRZz +SKgaPZ85E0Dgs8X1IYaUk/Ys0ZIKIVC1tP3VLsqO72Pq14YT+MFCyfAEZUWX +caftRwlUYkVdL6P8q2XPSNAxar2iYqWXlB9avT12Kona/+6o8mHKpxrspEtT +Cby9osFc6BgJrqzH3MazBG6TtBsiKKtVrN/09QKBkDx+xZDytFZ51/zLBF6x +jPWxpPz0mkIgI5/A2rHH610on6dnzsdrBCb0XST8KO/OEs52KyVQiGilHaSs +Kxa3JpIk8F2qicoRynwnJxoyKwgsuFWzOYpys8A+l4pqAp17adHRlC9F9Y22 +PiTwo7De00jK+yfs438+IvDI/LeqYZTXBzyhiT4jUJj5Mz+QsuBXY57GKwKb +Plvo+1Bu9+CZWb4hMGzoft8OygWdij1+3QQO/FK7uplysF1WUHw/lY/t+zn6 +lLFp6cKrnwgMX7UzWp6yyEbOxYffCDwh35G+gPLb6kntvhECFZprGr9R769U +f//jP2MEznoOyj6jHFHWv1N6msDQ2g2niylL5D5NYAsw8PFMd5sb5U+SLNlg +QQbmqn0q1qN8M40kTy9l4Oyj83kLKdtwsnubJBm4/QRn9ur/8/FHJHhAloFD +aZxdAf/Px6FjixYyGChTVzm0lnKSj7+uiQYDXUe9wmuovDn2vXvirkM9vzkv +KpKy4g4HtygDBh6NKS82pPzQYkPSXWRgz/2e49eoPE+rL+vTdGDgNfaMkw9V +D5OXaXF6LgxcsvbGblHK46JKikYeDJR1PF5dQdXTyJjRvk17Gfgrx8h6jqq/ +D9Xeky7RDJzUdaHvo+qzXzMgy5PDwI23hXL+UvXbm3uE6ZvIwO/VUwfSKLcf +S+UcPMPAW58VBUup+m+yuiuSVMjA2IA/G+qp/vDk/n9k6g0Gdj9o8TOl3LDm +OftcOQOTxxiDtVQ/qRV/n51TSe1vY/vfcqr/3OxZrHLnBQPDDppygqn+lL3f +HT5MMPCS3NuH4VS/u/B2z4evMwzMeKryo5nqh+k2h+KH/zHwr0BzIkH5lF7S +s99CCihkOj1Wu58Ezh9yh6i8Am65E93dvYfK28kFQUxzBTR0yLh7wYuEPXOi +4qZWCji0Ore/nurXvoG0is22CmhyKThmmOrnntvXzNq7KCBdfreaEdXv2TLO +SXsDFHBASGTLzZ0kMEtKr5w/r4BGJ+cnaVDzoodekmt2UQE/MwjSZDuVn/PF +OeO5Cmj3yeQ2m5ovd+OKLtkXK6D2/C6rEGoe6TpdyRSpUcCmswc7sraSoLog +PS3hvQL2BorRYjZRefOIjA3VUMQlwaaa96j5dqctPEZJRxHJgbf6yTrUfiyP +HG1bq4iP2g/ouGiTcHbt4ShdUERX/n7hcWo+LhUOPDJip4h6eht9RFVJmF/p +FeQbpogzhpPun+VJ+Clm6elYp4ipKxMurRAiodOf8WrfE0V8OiQ8kriIytfj +GYh5Tq1/NmH69wIS0iJKVl1vV8ThlwOmbfwkaH8Q7p8eVMR2XvaDwFkeBJAv +3S6LK6Flt6+38SgPBm0cdn7arYRj71siNVt58CnF0zF4kTJ+m2+j/iCdun9Q +g6EtrIwsxoMnL87yYGrz9PDwMmWcvipT0p1Gnd8EzsbvpSmjalCa5WgKD7TD +6297airjVV9twfnxPIj2URa32a6MBoIL3XpDqPPchqGX6rnKeHF5yj6b7TzY +Mhq25bOBCmYNvt8XtoQ6j3kLHrodsxr5Ql8w/e5xqf8JSf7EOlV0S9BmeuuX +gdgL5VO8UTVcrXij6m1JCcgmldsaGGjgN96rFunBYshUN1om7qeJV+ZcivwN +r0MTzWTt2Bkt1O0Ni/dJKIL1snVpa9rXYHzkOfpkeQGICOSH7OJoI1uUY27w +Nx/k41YxnZV1cMrW4ky6Xh4IKblW2D/RQV2Wl3qWQC5osaTLw9x0UfvaiNaX +vxchuE+s3pJPD/WiLqtWfMmE0bEUhy2ZevjoecJOXd3zsHnN4+wtmvqokPdZ +r6PyHNSOGf+ZatbH4vNcXVOTMxCgodv92mctmtNo0h5Wp4A1srvNWcgA5xw/ +mhUqJ4OZotS2pfkG+Dp76l9vSQKsjk0+UmdoiLPzKnm6l46Bmo/RA6VuQ2y1 +Hqs3LI4Fn9o9x28fXIcrCyfe7DgSBQ+utO3+udIIXQ93Mv/rC4Px6/+m1tw1 +wiB1szvJk4fAW6lEKHvbenSaVXK9+TIIfqqdM7j5Yz16mKht63m4H+4V/Hk/ +kWSMX4tlzLRX+oHLJgU0lmcix12c7NTwhrk2QZF6OhML42Z2MuW84YrPSI+l +AhO5RPSikqXe8CWhMsxlNRO9xu9vLh7xguBGm/JwXSZGGEX/t5r0gmTrKPl7 +5kyci5wz1VrnBVVOb2b1A5lIjq/XVrXeBTIHEiu1HjKRGdYzoaTjAaf++a49 +WcdEpVOizi+kPID/rDn5tYGJN8k4djyfBwxWLCi+0shEMQ5nVPmVO1TxHc8U +a2Xi3V6XijVB7uCSHhs2+ZmJ3QPSGTa33CCzOnxt7RIWfuzuLzth5gorF/uT +23awcDdX/cbMBWco2Bgd8cOZhfMWWHGIOGfQjT618ZwrC1tiUra67HMG6x+8 +N527WDiss+zEPJYzJLRPTHv7s/DNxUB3pY9O8Ds/xjQijoXL9307cE/XCbqN +z7UWlbCwUv35o5o+R9hzuODSFi4Lg/1EGpc0OcIk947PEI+FWS6/2fvvOIIY +o3NKp4KFy/oHunemOIKVoJzs/YcsTKF5HJhn7Ag1bUW7W9+w8Jiju5bDRQew +FLmnGdrJQpMR/qvXEh2gc3PjpFQPC3++1xkTCnGA8arvSe7vWBg3kflnbqsD +aOZpl30bZKFKf+qx/H9sqOk2CU0ZZuHUL++S4CE2WK7YDmt+sFBSVtbFvosN +vomHX4dMsNAmYwM1VNgw/jAhW/I3Cw2OVCtbX2EDZ+aCd9UMC9dmQNL+VDYs +0y/WcJtjoVCrJzMzgg05B6om/v1j4WaFqnVtfmz4H8VogCQ= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06841263107604457}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.06841263107604457}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJwV13k0VW8XB3DRQImiDNfQPdeUMVMk97Y3RaJMXUKmCA1CEpnCLUOiVBQq +IpRw3dOgDKkfGqhUyBzNSYbKFFHvef8667PWOc961jnfvfdzCK9Aex9+Pj4+ +oXl8fP+/TvY1NiieLNigJhn0XbkKN7TlSIWbdHKAWytkSOPJA6586SXVeRY6 +M4pE2sq1INT2RodAZz6ws1wuFpZvgOUjkmenO26C24sbnz3LraG/xjpwvKMO +JGodcpK47mCuOPj2Z0cLqJdy/24qCYDpDsOMHx0f4NV4ZLpFzlGo33it4HX+ +GHS861P9XnIaZPsrv3hpzIHeCrOMapMLsMLf48aijQIoZvxrsalxDpzVMa+2 +dhDEk+pNg3rcfOjK1H74c9lS/KWm9+l6XSGcLIh5yS+9HA2d407farwOkukf +T5y7LI78dHwUubcEpNTvHP9dJI5PvpS+yAguAVpdQowbTxyfLTcuuhFZAvI/ +VA+r1IvjrKFifUNqCShtDfKsHhBHQ/tdKVVkCejNnzP4qLcC+RZc9C75XQI2 +IRKfdJtWYEKv861sTikksrdsaJlciaYqhcXhCWVAu91M458ngaG5qU5fT5UB +V5w9pbNEAg/Zc4usL5RBe4s778wqCVw59kZ28fUyULQLYdhZSOC19UOO+o1l +ULctd+GrLAlcbC9j7LCYC3PmE80vmJK4tmNuXn0iF9KKIkrmzCWxZMuNH16n +uaC4kC9J004Sfftf7p49z4WtjxabpPpI4urEL90yRVzI3ki/tfWUJIZPeg4J +N3BhHVpdeNYvifsVRmTv/uXCIaM8j0aOFPq0jAyrBJaD5RWRcasUKXxRGvPs +2OFyYCyKSmrOkELNXImJrshyeNXmSLZel8KZi3Lqh5PKQStIWKCvWQprit1p +fnnlMFAUVvSLJo1tmWTjupZycF1hPSxzSxqvgs6vp5I80IusjsupkcbnNhE+ +F2k8WPxhtQTxWBpFCqP/7JPjQWW5ACh3SeMok3N6ngIPJKwq07T/SWNy+k5H +YS0evIpT1DezouE4PnfK3MiDTaMzEQEfaVhjMqOS7M+DcIt0tf+GaOgXKHBi +PIAH3DzNbvFJGk6Ve6u6HuSBFNvTqFJQBt+ddF+tEMqDoXuPpgS0ZHBdVg89 +LYYH5zhpIVlHZPDAdsclX87w4MNK5YCGpbJIg4A9nNs8kAx8ICcpKYuJ6Wq9 +6RU82PrU6cVeuiyGv7Y7W3CPBxURJzVE9WSx9HHI4+oaHiT3/xh0dpJF/zKw +b2zggW5xtd9oviyemHgvs6uNB3FMu120dXLI3dRVc/wnDyzcc34Zmsqh7X5z +N58xHojEfj/msFUOr+/pbDKd4MGl+viiNE85dPx1SWT8Nw/uWVZ9X3hCDgOf +MU20+Uj44aQQOtYlh3UNhdmiIiTcjQhatPyTHIaps/Tui5Jw9NL9TK0RORyy +1cnxW06C8Lsd1Xv55ZHPLHfo5goSVPxS+N6pUW5oOawgQ4L74Ynk55HyuEa/ +4pS/CglKF0xlB+Pl0bFUJuLrapJ6f6fLFqXJ46FCwQ0eaiREzKq+Mi2Qx7v7 +FO3MNEnIOOa+svK5PN4WMed91yXh+ZknuYVyq5Aha3k7j0XCem7W7aMPVmFH +5k3xClsSNnU0z408XYX8JnMeVXYkWPPN3+zRsgrtV7rOVNuT4G0f0AWfV+H2 +IBGZu2wSzCOJmNgFdHxAC5FKdSIhaNXkVRN1OrZPd/ve8yBh4lba0+k1dJxK +cm4840ntz0J9mNSnI+2LVNyeXSTEH/Q0YGygY0C/8a+l3iRk1zc95bejo2uA +98A6XxIa/HKH60PpOJ3RmibqT8KWWSOxqEg6xqqrxNVSbk5rM9CPpWNnRErz +vgMkdFUKxRacoOP7I+c51QEkjCwJEYu/RMe0ieXurIMkHLoiYsjKo+Oiec5m +HZR/6xfvnCiko4ZBe2pAMAkC7n0FPuV0tPmbtinjEAlSPAtD8zo65hv92VF/ +mITLmz7u/PuYjj7RH3ZYhJLA6IqOrXhGxz8Hre43Udbkv9Wo/IaO64paq56E +kWDKlnNdNEDHhUzDtPxwEp4M3I19METHo6/znolFkLA12r4w7CcdVyziOxhL +eUdR4sjXGTrWJvf82R5Jgv/vn7FPlxKY5bCU0RtFfa+DvhJfxAg0vaNpC9Ek +CA52lwhIEehV/jY8l3JhT337BgaBUTlf6xyPkhDCXufvqkKghvJ/H8som74o +nRehQWC5v6oAfwwJfbUZGncMCDwuysU8yqWGi+tajAlUtrX1HKIcwTu64wcS +qCaZGqcfS4JEvh9H3YpAi8uDz6opf6L1Sm6xJZARd2FyhvLNc7Zlvg4EPtSb +UjKMI8Em3qgzz4PA/a2jGUWU5f+WHXiwm0D2CpnOLspDoQyBt3sJ5DXJMRZz +SKgaPZ85E0Dgs8X1IYaUk/Ys0ZIKIVC1tP3VLsqO72Pq14YT+MFCyfAEZUWX +caftRwlUYkVdL6P8q2XPSNAxar2iYqWXlB9avT12Kona/+6o8mHKpxrspEtT +Cby9osFc6BgJrqzH3MazBG6TtBsiKKtVrN/09QKBkDx+xZDytFZ51/zLBF6x +jPWxpPz0mkIgI5/A2rHH610on6dnzsdrBCb0XST8KO/OEs52KyVQiGilHaSs +Kxa3JpIk8F2qicoRynwnJxoyKwgsuFWzOYpys8A+l4pqAp17adHRlC9F9Y22 +PiTwo7De00jK+yfs438+IvDI/LeqYZTXBzyhiT4jUJj5Mz+QsuBXY57GKwKb +Plvo+1Bu9+CZWb4hMGzoft8OygWdij1+3QQO/FK7uplysF1WUHw/lY/t+zn6 +lLFp6cKrnwgMX7UzWp6yyEbOxYffCDwh35G+gPLb6kntvhECFZprGr9R769U +f//jP2MEznoOyj6jHFHWv1N6msDQ2g2niylL5D5NYAsw8PFMd5sb5U+SLNlg +QQbmqn0q1qN8M40kTy9l4Oyj83kLKdtwsnubJBm4/QRn9ur/8/FHJHhAloFD +aZxdAf/Px6FjixYyGChTVzm0lnKSj7+uiQYDXUe9wmuovDn2vXvirkM9vzkv +KpKy4g4HtygDBh6NKS82pPzQYkPSXWRgz/2e49eoPE+rL+vTdGDgNfaMkw9V +D5OXaXF6LgxcsvbGblHK46JKikYeDJR1PF5dQdXTyJjRvk17Gfgrx8h6jqq/ +D9Xeky7RDJzUdaHvo+qzXzMgy5PDwI23hXL+UvXbm3uE6ZvIwO/VUwfSKLcf +S+UcPMPAW58VBUup+m+yuiuSVMjA2IA/G+qp/vDk/n9k6g0Gdj9o8TOl3LDm +OftcOQOTxxiDtVQ/qRV/n51TSe1vY/vfcqr/3OxZrHLnBQPDDppygqn+lL3f +HT5MMPCS3NuH4VS/u/B2z4evMwzMeKryo5nqh+k2h+KH/zHwr0BzIkH5lF7S +s99CCihkOj1Wu58Ezh9yh6i8Am65E93dvYfK28kFQUxzBTR0yLh7wYuEPXOi +4qZWCji0Ore/nurXvoG0is22CmhyKThmmOrnntvXzNq7KCBdfreaEdXv2TLO +SXsDFHBASGTLzZ0kMEtKr5w/r4BGJ+cnaVDzoodekmt2UQE/MwjSZDuVn/PF +OeO5Cmj3yeQ2m5ovd+OKLtkXK6D2/C6rEGoe6TpdyRSpUcCmswc7sraSoLog +PS3hvQL2BorRYjZRefOIjA3VUMQlwaaa96j5dqctPEZJRxHJgbf6yTrUfiyP +HG1bq4iP2g/ouGiTcHbt4ShdUERX/n7hcWo+LhUOPDJip4h6eht9RFVJmF/p +FeQbpogzhpPun+VJ+Clm6elYp4ipKxMurRAiodOf8WrfE0V8OiQ8kriIytfj +GYh5Tq1/NmH69wIS0iJKVl1vV8ThlwOmbfwkaH8Q7p8eVMR2XvaDwFkeBJAv +3S6LK6Flt6+38SgPBm0cdn7arYRj71siNVt58CnF0zF4kTJ+m2+j/iCdun9Q +g6EtrIwsxoMnL87yYGrz9PDwMmWcvipT0p1Gnd8EzsbvpSmjalCa5WgKD7TD +6297airjVV9twfnxPIj2URa32a6MBoIL3XpDqPPchqGX6rnKeHF5yj6b7TzY +Mhq25bOBCmYNvt8XtoQ6j3kLHrodsxr5Ql8w/e5xqf8JSf7EOlV0S9BmeuuX +gdgL5VO8UTVcrXij6m1JCcgmldsaGGjgN96rFunBYshUN1om7qeJV+ZcivwN +r0MTzWTt2Bkt1O0Ni/dJKIL1snVpa9rXYHzkOfpkeQGICOSH7OJoI1uUY27w +Nx/k41YxnZV1cMrW4ky6Xh4IKblW2D/RQV2Wl3qWQC5osaTLw9x0UfvaiNaX +vxchuE+s3pJPD/WiLqtWfMmE0bEUhy2ZevjoecJOXd3zsHnN4+wtmvqokPdZ +r6PyHNSOGf+ZatbH4vNcXVOTMxCgodv92mctmtNo0h5Wp4A1srvNWcgA5xw/ +mhUqJ4OZotS2pfkG+Dp76l9vSQKsjk0+UmdoiLPzKnm6l46Bmo/RA6VuQ2y1 +Hqs3LI4Fn9o9x28fXIcrCyfe7DgSBQ+utO3+udIIXQ93Mv/rC4Px6/+m1tw1 +wiB1szvJk4fAW6lEKHvbenSaVXK9+TIIfqqdM7j5Yz16mKht63m4H+4V/Hk/ +kWSMX4tlzLRX+oHLJgU0lmcix12c7NTwhrk2QZF6OhML42Z2MuW84YrPSI+l +AhO5RPSikqXe8CWhMsxlNRO9xu9vLh7xguBGm/JwXSZGGEX/t5r0gmTrKPl7 +5kyci5wz1VrnBVVOb2b1A5lIjq/XVrXeBTIHEiu1HjKRGdYzoaTjAaf++a49 +WcdEpVOizi+kPID/rDn5tYGJN8k4djyfBwxWLCi+0shEMQ5nVPmVO1TxHc8U +a2Xi3V6XijVB7uCSHhs2+ZmJ3QPSGTa33CCzOnxt7RIWfuzuLzth5gorF/uT +23awcDdX/cbMBWco2Bgd8cOZhfMWWHGIOGfQjT618ZwrC1tiUra67HMG6x+8 +N527WDiss+zEPJYzJLRPTHv7s/DNxUB3pY9O8Ds/xjQijoXL9307cE/XCbqN +z7UWlbCwUv35o5o+R9hzuODSFi4Lg/1EGpc0OcIk947PEI+FWS6/2fvvOIIY +o3NKp4KFy/oHunemOIKVoJzs/YcsTKF5HJhn7Ag1bUW7W9+w8Jiju5bDRQew +FLmnGdrJQpMR/qvXEh2gc3PjpFQPC3++1xkTCnGA8arvSe7vWBg3kflnbqsD +aOZpl30bZKFKf+qx/H9sqOk2CU0ZZuHUL++S4CE2WK7YDmt+sFBSVtbFvosN +vomHX4dMsNAmYwM1VNgw/jAhW/I3Cw2OVCtbX2EDZ+aCd9UMC9dmQNL+VDYs +0y/WcJtjoVCrJzMzgg05B6om/v1j4WaFqnVtfmz4H8VogCQ= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06841263107604457}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJxTTMoPSmViYGCQB2IQDQNLGAINkrnK7CG8D/YFW/1i+sInQPkMDkmGr6Kq +58+C8jkczrencxoxLYLyBRw0tNtWMyssg/JFHAL6mFwO9qyE8iUc3u708W0y +XwPlyzi85X7Rai2+DspXcJimnKJwXm89lK/koKgQ78TaDuOrOFidyz201wjG +V3PYGsTxRMgdpl/D4cmtAMNz92HmazmUHVGU9hBfDeXrOAA5s8O4YO7RcyjZ +dKVq/0WYew0clAL+Nnu0LYHyDR1s9EWlP1vB/GfkcNon868u4wIo39jhkHfB +K+aTs6F8E4edQeebAu5Nh/JNHeT5a8u1vadA+WYOttd6eIrEJ0L55g6HXZpF +bFp7oHwLB/5r/y3PTG+H8i0dus7EPPgU0QzlWzkw5q6OTK+ph/KtHd7OVGXM +yqqE8m0cpK+FiLXGlkD5tg4f5zGfFjQqgPLtHO40Ld3VMD3THgDPenlb + "]]}, + 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:eJxTTMoPSmViYGCQB2IQDQNLGAINkrnK7CG8D/YFW/1i+sInQPkMDkmGr6Kq +58+C8jkczrencxoxLYLyBRw0tNtWMyssg/JFHAL6mFwO9qyE8iUc3u708W0y +XwPlyzi85X7Rai2+DspXcJimnKJwXm89lK/koKgQ78TaDuOrOFidyz201wjG +V3PYGsTxRMgdpl/D4cmtAMNz92HmazmUHVGU9hBfDeXrOAA5s8O4YO7RcyjZ +dKVq/0WYew0clAL+Nnu0LYHyDR1s9EWlP1vB/GfkcNon868u4wIo39jhkHfB +K+aTs6F8E4edQeebAu5Nh/JNHeT5a8u1vadA+WYOttd6eIrEJ0L55g6HXZpF +bFp7oHwLB/5r/y3PTG+H8i0dus7EPPgU0QzlWzkw5q6OTK+ph/KtHd7OVGXM +yqqE8m0cpK+FiLXGlkD5tg4f5zGfFjQqgPLtHO40Ld3VMD3THgDPenlb + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.061577}}, + "Frame" -> {{False, 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.061577}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGCQB2IQDQNLGAINkrnK7CG8D/YFW/1i+sInQPkMDkmGr6Kq +58+C8jkczrencxoxLYLyBRw0tNtWMyssg/JFHAL6mFwO9qyE8iUc3u708W0y +XwPlyzi85X7Rai2+DspXcJimnKJwXm89lK/koKgQ78TaDuOrOFidyz201wjG +V3PYGsTxRMgdpl/D4cmtAMNz92HmazmUHVGU9hBfDeXrOAA5s8O4YO7RcyjZ +dKVq/0WYew0clAL+Nnu0LYHyDR1s9EWlP1vB/GfkcNon868u4wIo39jhkHfB +K+aTs6F8E4edQeebAu5Nh/JNHeT5a8u1vadA+WYOttd6eIrEJ0L55g6HXZpF +bFp7oHwLB/5r/y3PTG+H8i0dus7EPPgU0QzlWzkw5q6OTK+ph/KtHd7OVGXM +yqqE8m0cpK+FiLXGlkD5tg4f5zGfFjQqgPLtHO40Ld3VMD3THgDPenlb + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.061577}}, + "Frame" -> {{False, 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.06841263107604457}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993960474402772*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"b4dbfdaf-b900-4ee8-b845-934b392b94aa"] +}, Open ]], Cell[CellGroupData[{ @@ -2837,14 +7837,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.496836628142175`"], "Output", + CellChangeTimes->{3.9913453868532257`*^9, 3.993960474431357*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"5e4b876e-2f79-47de-b0dc-0b50cc53b58b"] }, Open ]], Cell[CellGroupData[{ @@ -2900,171 +7898,157 @@ 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[\\\"6.51645802235142`*^-260\\\", \ \\\"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, 13, 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345387062414*^9, 3.993960474538848*^9}, CellLabel-> "During evaluation of \ -In[421]:=",ExpressionUUID->"67cdfb4c-9282-934a-b3c5-526027acebf5"], +In[99]:=",ExpressionUUID->"3147dea7-a7ae-4d54-bbc9-edae025b3e29"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.6088527253781134`*^-269\\\", \ +\\\"78176755153939869305210274200729021751146846355456000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 99, 14, 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345387062414*^9, 3.99396047454729*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"0ae355dc-8d23-407d-ac43-82c89998bd2e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9986038349050043`*^-278\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 99, 15, 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345387062414*^9, 3.993960474555294*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"5c4c2477-1e48-4a29-aa02-b87ad855810b"], 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, 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345387062414*^9, 3.993960474562182*^9}, CellLabel-> "During evaluation of \ -In[421]:=",ExpressionUUID->"760e7203-a507-b249-aaf5-4906557faed2"], +In[99]:=",ExpressionUUID->"4ee8d471-d13e-4e3f-ac30-e1ed2fa453c5"], 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:eJwV13k8VN8bB3BRoq+lKPsyc2eGyr7E1zKeh5S1lCiVUCopO2VLtkS7KElK +i5QscxWylMquBZWylCWtXyGyRYvf+f0xr3m9X687957z3PN8zhnmDn/HXfx8 +fHx/yOf/35M9TbXs49lm6U2OHlMAZm2XZcLNO+LAJcB1j99tBcAlLTtkOlIg +bf4tCY3b6nBg3e12gY5rsOxUSST/bVNYNCydMt1+B940qsXU5dpD7/21/uPt +1fDmX5VVQrmusJo90D3a/hLaLt7s0czxgel2w3Mj7f3Q4b72YWfGQahZeTP7 +xbUxYHo7d/lnnASF3vLPO9T/gGH33Vm1x+dgsY/77fkrBTCkIuZZ79pMSNFZ +XbnWWQhFzh8vCzh8FTrTtR+NLhTFCE+9dfsDsuF4dnQLv+winCf12JfhfBOk +z344mnpJEoXqk7wiu3Mh0cnG7OXkEtxYzx0wGM4DueJmOf45Uthyv0Xk8GQe +FEo6Ten8I4XiXnGHnv7Ngzcv3egzylI40+pnZyOeD+z1IdR6ayksYL4M4NPO +h+o1WYKtF6TwHOOQvGtAPvxZPdH83FQa9/aM9FcP5kOw0VX3pjgZLJYLlGG3 +FYDtFbFxuxMyaPXgp9GxrgKg5h9Maj4ng07zFbnf+gqgtW1j0atbMijinPP5 +0lABaAaICPQ0y+BBoZ+VdYKF8DUnNOeHnCzmv9VXUv63EFwXrx2SvyuL1uJJ +sZNphaAXWRl7+b4sFruc0SjLLIQF/UulmPWyuC/NrijkWiGU8wRApVMWe4In +zHoKCkHKrjxZe1YWBZU9fINrC6E1lq2/yk4OpSdWD90YKQTL7zMRfh/kUDLd +N3z5Kh6EW59d/nhQDjnBC+Q1bHlQeFWjS3JSDgW/ltcsd+CBjJOHUbmQPFZK +LV8uvZkHg2V1UwKa8vhC+JhtsQ8PUuOSQy6EyaORv3P7bAoP+peo+NWKKqBY +ep3Tu7c8kPZ/qCgtrYAdB+17oI8H9o0uz70ZCjgzRgVc/siD0ojj6uJ6Cshx +MSmwH+LBsd6Rgc0uCng4synZ9y8PdHMrvb5fI/dbFXm6T5yGWNP12+X+VcSg +okFHFy0arN0u/zC0UMSpvs35njo0iMV8i3e2V0SJ8VEFHz0aMmsScpI9FHFi +tYtliCENZbYV3wSPKqJjIKtoO9Aw4sI6MNapiE33szWL1tLgtn/i2LNIJdwe +m2vJ3kcD57yFwkCCEu5epv3tpQ9N5n+6YH6yEo6Jc+hDfjRE/F7WapGthLNq +4WnPA2k4F++2pPyZEkrPtr2zDqPh2ZmGrBuKyhgovSG15DANxoUXig89VEbR +zdL/eV+kwbK9+c9wozLqXdjhlpNJw1q+uVbuL5XRUuDGlr5LNHg6+nXCJ2Vs +FbT7z/4KDasjmdEx8xg44t7jJXSDhgDlyevmagws9lTWFS6kYeJucuO0FgP7 +0xdylXhkfNZqQ0X6DGxWUmvTpmlICPQwoMwYaNtsemvtHRoyap408q9noE34 ++VGfUhpqvbKGag4wsCxHbbN+FQ02v40kDkYy8B9zvfXUQxqak9sM9GMY+PfM +0reij2joLBeOyT7KwDvi23O6H9Mw/E+IREImAy8kNLE96miQoa0NV1czcK6x +lezoUxouWX7Y+reegVuE3rmVPaOB6oyKKX3KwE1GRaZRz2nQ4L/bpPKagalR +tdWzzTRYOCm6zv/KwIlqi7lfX9Dg83M0plGUiRO3+O6vaif1DNwt9VmCiZ+K +5zHHiYUGuvIEZJgYEHarIquDhhtva96YUUzs2S92ariThp6qc+olBkzULg2t +2/uOhnzDBdUvTZgo1xXTy99N6kUf2jSCTLwx1aibTix1zStOzY6JjTYhiRU9 +NDgkGHVcdWdi+OTodHcfDUp/C3wf7mSiYsatYff3ZH0coAS6vZlo2OHD7CVO +2vOPpkwIE7lVKStf99PwyK47/lQSE1t08o5f+UjDqdr1svknyfgbGHEin2hw +5dYXNqUw8Qszq3I/8bQmr3PuJSbyP8IZ+EyDrkSsVmQRE1PnCJXd/UID3/GJ +2vRSJv604XUIfyXvR2DvltJKJlZqHjHfRrxvwjFhtI6JD+Z4Dv8iNvZrkBN/ +ysT3xRV6Vv+Ren0xodVbmWhz8lPNaeLsDvZbry7y+3j3BpkBGoLWXwhI6GXi +zJ15ppuJ8Ymo4PWPTJRYpvE3jbi7clK7Z5iJo5Ylvgu+kXrq76v/NcZEPeMg +BSSOKOjdKjvNxNDF3vLBxFJZjUecBChUMq0VeUH8UZqrECREoZbwMb7fxHeS +i4pOi1KYWW5vxR6kIUZYxapAgsKKW1XvbYgd4jLePZGm8NzrlFYfYqVfYkFf +FSgs6D+4+CTxYHD8fEGKwvVLdApvE1cMTmWyVImdd16uI07a5aNrrk5hqPqz +T93EG3v6Gtx0KJSvV0oYI2Zvct520IBC3rBElOAQDT9amn5cMKFwtaRHsxTx +I2uzpHtIoZp5VTib+NTjO4qvV1G4k/M5WovY1Vj17g9bCq1Fzrw3JF5+96L1 +wnUU/ugLy+IST6st7NFwpnBC3aUCiScvycXqbaFw/8xjA3PicXEO28idwh17 +ZpcB8WisVoPZTgoVedVnjYmHx4z2WnqT69OrQvWIv+2yFLX1o9AqOufVMuKv +7Wtph2AK5zho5ioSf7LZvME5jEKIXzAtRtxf6Tm5JYpCP9WRmj9kvr0afhc8 +4ig0eHN2wQDxu6ww092JFFqUFz5/Rdy5KL533wkKy5LGRSuJ38SfjAs8Q+HT +Y4rPsohfTZznhKZR6Jr6XiiOuNXrWuPBixTGC0zXbid+YndPLOkGhbVuglWy +xA0PHhedvE1h4BP/36PkfddqPXNK5VEocVnyQQNxleT7jMvlFF6OnGrYR1yZ +8I2bXUXhEneepDFx2dREX24NhbTrmY/z/r9e3i5QLXlOoZhlk8z/1yNvzZIn +FS8pvOp4MWoLcf5DZd9H7RSa1J7eq0Ccc13/7tP3FPaNdvemk/Wesc8N+ico +DOtTXhNC+uN8957+LzMUZt1bJMQhPusQnDA0S2FVp9b6V6TfTuklPf0pzMLo +17PJS4njfhVtEldiYZ1V8LsS0q/RvvdnFrNY6BRkrbSB+GBv/SW5pSz06gsZ +HyL9fqDm7QeOLgslsn94KBDvOz4vwHQ1Cx8nh65zJfmw54+4pIUdCyuXTNt+ +Jvmx21+u1GodC5nCin2+xB4btH47bmGhtVZk936SP07ym5O8/Vi4wXXc2Jvk +k2le/pW0NBbqjp1Y0UPy7i0jL2vVRRYuMTjbak8ckZZ7eTyLXP9i0/Zyko/3 +YnMyHXNZGH768e4TJD91Xa6ki90nz184Kin3moZl884mH3nPQrnj/qfbWmho +jEg5veIzCxcdtmqniHePJJ/6OMDC7wnlyv4kr7PfnjxhMc7C3lbNkjkkzxl3 +EpP+CrIxWLxhnvgT0v/ukTEH1NnooMPf9aSGhpK28GiODhvrXs6Lnq4m87EN +O9S2go31Ga+1VIhTVuw/qAts5F9RdC+c7DeiIv5hw+vZ+PzL2hDhBzTMLd8R +sDuUjb8/vjZ/VkL6RcLWY2M1G8VsVVZ+JPtjhw/VureBjTpzT7ZUZZP+rZ+B +6GdszBoTUDt/nYbkiDzlW2/YaKb1w9H8Kg3a/SK90wNstJlKiY0k+7FfUcu2 +S5Ic/LpCUycphYYBB+etH3dy8EXC0RzhKBpe5mo8/enNwaqLm8azIkneCAia +iPpz0PqJu7Z+BA1H75XKGYRz0GVUNnRjKA1LlWW6Ek9yMNhUdWscOS94DXe5 +qJVyMNNMzy1sF8nDEx4bg+arYP/nZ54f7cjzB9QpbREVlNzH173RloYpq+mh +oYXEzZ3ZDdY0LBBISfCWU8FQ7w5W9ioy/vCaYg8NFfRnJk5ak/NN1C4VSYcN +Kth5bFOehS6pv9lgi1qWCjJ8Qs1/S5H9/XuozScDVZzXkf1vwD0eKOgoHREy +VcWcbPFNBnd5MBxUW61mror9xr9+/yzkwdnJhaZBdqro8IL7NTiHBz1/cjVn +3VXxrGNfBJ7jQZDIO0nZo6qon8SfYBDEg4xl2GP/VhWd4nZ331hGzo+eQsHF +0UsRvK68Ej9dSP5PSPMnVi/DvNNz07LNCkDiucop+vtylDZuP9f6IQ8Uknjr +DAzUMUylQH/K4TakqxktlPTSwIXHEucI196CJ3LmK8bOaKLzryuil/RvgrFC +dbLWGy1sjM2e2RR1A8QEroVsj9PGeAVpobgP10EpVtl0s4oOxouP28trXANh +jmupY4MOipdIZB47egU0ubK80G26GHSodO9K5csQ1CNRY8unh7433s1NFb8I +38dOONuk6+GBaMXlF7akg5VWfYaNhj7mP8ToJ13noGrM5NdUsz5S5wrBeUMq ++Knrdr3YtQJb1vT3JrDPAHd4Z9tmYQPMSNxkaTB6ElaxZdaIXjPAISvz/77B +MVgacyys2tAQFa3frV45eQSW7zJ6yOkyxLqQe3+px/Gwq2rP4eLAf/GiSE5K +3+JYeHilbefoEiO8qj6Uxz8/CsZvzU5p3TPCcL/5NzMzwsCTkyecscYY+dg8 +/bTfITC6PNXgzogxht7M/2KSEghl2b/eTySZ4NltaYsarvjCFksWmiiZ4tCZ +cm+JsT0g75tYrvnIFItD+w62XNgJSxb4FK3ZxMVbHXJF3zjbIXtlVMTIZi6+ +dhr0LJPeDrpRp1amunIx/+ybNaeFt8PaEfp1x3YuhjUf4G0d8oAjbyamPX24 +uFunf55fiQf8vBZtERHLRSvZ6U/BVh7QZZL6KiePi4b2Hqpln9xgz/7sTJtC +Lv4N4e9pfOoGk4UluwZpLk4KV6cMFrmBBNUxpVPKRe1X+U0+h9zATkhR4cEj +LoY3XNNzkHGD+205O1+95uKeEE+jFIdtYCtWpnGgg4ujVi1pzw22QYdV06TM +Wy4W1p1AeaVtMF7xLcmtj4vrNRTXDA26gsZV7YL/Brho4O8ps++4K9zvMj9w +YoiLW+vFcgyDXcF28QbQGuHivksVS6W2usLuxP0vQia4+Cm/8r2QmiuMPzqS +If2TjD/Qn19R0hXiZs57Vsxwcaqlb9Di11ZYqJ+rvu0PF9/ctkmL+LAVLvtW +TMzOkvtzvo7VPN0K/wMn0VYs "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -3078,130 +8062,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:eJwV13k8VN8bB3BRoq+lKPsyc2eGyr7E1zKeh5S1lCiVUCopO2VLtkS7KElK +i5QscxWylMquBZWylCWtXyGyRYvf+f0xr3m9X687957z3PN8zhnmDn/HXfx8 +fHx/yOf/35M9TbXs49lm6U2OHlMAZm2XZcLNO+LAJcB1j99tBcAlLTtkOlIg +bf4tCY3b6nBg3e12gY5rsOxUSST/bVNYNCydMt1+B940qsXU5dpD7/21/uPt +1fDmX5VVQrmusJo90D3a/hLaLt7s0czxgel2w3Mj7f3Q4b72YWfGQahZeTP7 +xbUxYHo7d/lnnASF3vLPO9T/gGH33Vm1x+dgsY/77fkrBTCkIuZZ79pMSNFZ +XbnWWQhFzh8vCzh8FTrTtR+NLhTFCE+9dfsDsuF4dnQLv+winCf12JfhfBOk +z344mnpJEoXqk7wiu3Mh0cnG7OXkEtxYzx0wGM4DueJmOf45Uthyv0Xk8GQe +FEo6Ten8I4XiXnGHnv7Ngzcv3egzylI40+pnZyOeD+z1IdR6ayksYL4M4NPO +h+o1WYKtF6TwHOOQvGtAPvxZPdH83FQa9/aM9FcP5kOw0VX3pjgZLJYLlGG3 +FYDtFbFxuxMyaPXgp9GxrgKg5h9Maj4ng07zFbnf+gqgtW1j0atbMijinPP5 +0lABaAaICPQ0y+BBoZ+VdYKF8DUnNOeHnCzmv9VXUv63EFwXrx2SvyuL1uJJ +sZNphaAXWRl7+b4sFruc0SjLLIQF/UulmPWyuC/NrijkWiGU8wRApVMWe4In +zHoKCkHKrjxZe1YWBZU9fINrC6E1lq2/yk4OpSdWD90YKQTL7zMRfh/kUDLd +N3z5Kh6EW59d/nhQDjnBC+Q1bHlQeFWjS3JSDgW/ltcsd+CBjJOHUbmQPFZK +LV8uvZkHg2V1UwKa8vhC+JhtsQ8PUuOSQy6EyaORv3P7bAoP+peo+NWKKqBY +ep3Tu7c8kPZ/qCgtrYAdB+17oI8H9o0uz70ZCjgzRgVc/siD0ojj6uJ6Cshx +MSmwH+LBsd6Rgc0uCng4synZ9y8PdHMrvb5fI/dbFXm6T5yGWNP12+X+VcSg +okFHFy0arN0u/zC0UMSpvs35njo0iMV8i3e2V0SJ8VEFHz0aMmsScpI9FHFi +tYtliCENZbYV3wSPKqJjIKtoO9Aw4sI6MNapiE33szWL1tLgtn/i2LNIJdwe +m2vJ3kcD57yFwkCCEu5epv3tpQ9N5n+6YH6yEo6Jc+hDfjRE/F7WapGthLNq +4WnPA2k4F++2pPyZEkrPtr2zDqPh2ZmGrBuKyhgovSG15DANxoUXig89VEbR +zdL/eV+kwbK9+c9wozLqXdjhlpNJw1q+uVbuL5XRUuDGlr5LNHg6+nXCJ2Vs +FbT7z/4KDasjmdEx8xg44t7jJXSDhgDlyevmagws9lTWFS6kYeJucuO0FgP7 +0xdylXhkfNZqQ0X6DGxWUmvTpmlICPQwoMwYaNtsemvtHRoyap408q9noE34 ++VGfUhpqvbKGag4wsCxHbbN+FQ02v40kDkYy8B9zvfXUQxqak9sM9GMY+PfM +0reij2joLBeOyT7KwDvi23O6H9Mw/E+IREImAy8kNLE96miQoa0NV1czcK6x +lezoUxouWX7Y+reegVuE3rmVPaOB6oyKKX3KwE1GRaZRz2nQ4L/bpPKagalR +tdWzzTRYOCm6zv/KwIlqi7lfX9Dg83M0plGUiRO3+O6vaif1DNwt9VmCiZ+K +5zHHiYUGuvIEZJgYEHarIquDhhtva96YUUzs2S92ariThp6qc+olBkzULg2t +2/uOhnzDBdUvTZgo1xXTy99N6kUf2jSCTLwx1aibTix1zStOzY6JjTYhiRU9 +NDgkGHVcdWdi+OTodHcfDUp/C3wf7mSiYsatYff3ZH0coAS6vZlo2OHD7CVO +2vOPpkwIE7lVKStf99PwyK47/lQSE1t08o5f+UjDqdr1svknyfgbGHEin2hw +5dYXNqUw8Qszq3I/8bQmr3PuJSbyP8IZ+EyDrkSsVmQRE1PnCJXd/UID3/GJ +2vRSJv604XUIfyXvR2DvltJKJlZqHjHfRrxvwjFhtI6JD+Z4Dv8iNvZrkBN/ +ysT3xRV6Vv+Ren0xodVbmWhz8lPNaeLsDvZbry7y+3j3BpkBGoLWXwhI6GXi +zJ15ppuJ8Ymo4PWPTJRYpvE3jbi7clK7Z5iJo5Ylvgu+kXrq76v/NcZEPeMg +BSSOKOjdKjvNxNDF3vLBxFJZjUecBChUMq0VeUH8UZqrECREoZbwMb7fxHeS +i4pOi1KYWW5vxR6kIUZYxapAgsKKW1XvbYgd4jLePZGm8NzrlFYfYqVfYkFf +FSgs6D+4+CTxYHD8fEGKwvVLdApvE1cMTmWyVImdd16uI07a5aNrrk5hqPqz +T93EG3v6Gtx0KJSvV0oYI2Zvct520IBC3rBElOAQDT9amn5cMKFwtaRHsxTx +I2uzpHtIoZp5VTib+NTjO4qvV1G4k/M5WovY1Vj17g9bCq1Fzrw3JF5+96L1 +wnUU/ugLy+IST6st7NFwpnBC3aUCiScvycXqbaFw/8xjA3PicXEO28idwh17 +ZpcB8WisVoPZTgoVedVnjYmHx4z2WnqT69OrQvWIv+2yFLX1o9AqOufVMuKv +7Wtph2AK5zho5ioSf7LZvME5jEKIXzAtRtxf6Tm5JYpCP9WRmj9kvr0afhc8 +4ig0eHN2wQDxu6ww092JFFqUFz5/Rdy5KL533wkKy5LGRSuJ38SfjAs8Q+HT +Y4rPsohfTZznhKZR6Jr6XiiOuNXrWuPBixTGC0zXbid+YndPLOkGhbVuglWy +xA0PHhedvE1h4BP/36PkfddqPXNK5VEocVnyQQNxleT7jMvlFF6OnGrYR1yZ +8I2bXUXhEneepDFx2dREX24NhbTrmY/z/r9e3i5QLXlOoZhlk8z/1yNvzZIn +FS8pvOp4MWoLcf5DZd9H7RSa1J7eq0Ccc13/7tP3FPaNdvemk/Wesc8N+ico +DOtTXhNC+uN8957+LzMUZt1bJMQhPusQnDA0S2FVp9b6V6TfTuklPf0pzMLo +17PJS4njfhVtEldiYZ1V8LsS0q/RvvdnFrNY6BRkrbSB+GBv/SW5pSz06gsZ +HyL9fqDm7QeOLgslsn94KBDvOz4vwHQ1Cx8nh65zJfmw54+4pIUdCyuXTNt+ +Jvmx21+u1GodC5nCin2+xB4btH47bmGhtVZk936SP07ym5O8/Vi4wXXc2Jvk +k2le/pW0NBbqjp1Y0UPy7i0jL2vVRRYuMTjbak8ckZZ7eTyLXP9i0/Zyko/3 +YnMyHXNZGH768e4TJD91Xa6ki90nz184Kin3moZl884mH3nPQrnj/qfbWmho +jEg5veIzCxcdtmqniHePJJ/6OMDC7wnlyv4kr7PfnjxhMc7C3lbNkjkkzxl3 +EpP+CrIxWLxhnvgT0v/ukTEH1NnooMPf9aSGhpK28GiODhvrXs6Lnq4m87EN +O9S2go31Ga+1VIhTVuw/qAts5F9RdC+c7DeiIv5hw+vZ+PzL2hDhBzTMLd8R +sDuUjb8/vjZ/VkL6RcLWY2M1G8VsVVZ+JPtjhw/VureBjTpzT7ZUZZP+rZ+B +6GdszBoTUDt/nYbkiDzlW2/YaKb1w9H8Kg3a/SK90wNstJlKiY0k+7FfUcu2 +S5Ic/LpCUycphYYBB+etH3dy8EXC0RzhKBpe5mo8/enNwaqLm8azIkneCAia +iPpz0PqJu7Z+BA1H75XKGYRz0GVUNnRjKA1LlWW6Ek9yMNhUdWscOS94DXe5 +qJVyMNNMzy1sF8nDEx4bg+arYP/nZ54f7cjzB9QpbREVlNzH173RloYpq+mh +oYXEzZ3ZDdY0LBBISfCWU8FQ7w5W9ioy/vCaYg8NFfRnJk5ak/NN1C4VSYcN +Kth5bFOehS6pv9lgi1qWCjJ8Qs1/S5H9/XuozScDVZzXkf1vwD0eKOgoHREy +VcWcbPFNBnd5MBxUW61mror9xr9+/yzkwdnJhaZBdqro8IL7NTiHBz1/cjVn +3VXxrGNfBJ7jQZDIO0nZo6qon8SfYBDEg4xl2GP/VhWd4nZ331hGzo+eQsHF +0UsRvK68Ej9dSP5PSPMnVi/DvNNz07LNCkDiucop+vtylDZuP9f6IQ8Uknjr +DAzUMUylQH/K4TakqxktlPTSwIXHEucI196CJ3LmK8bOaKLzryuil/RvgrFC +dbLWGy1sjM2e2RR1A8QEroVsj9PGeAVpobgP10EpVtl0s4oOxouP28trXANh +jmupY4MOipdIZB47egU0ubK80G26GHSodO9K5csQ1CNRY8unh7433s1NFb8I +38dOONuk6+GBaMXlF7akg5VWfYaNhj7mP8ToJ13noGrM5NdUsz5S5wrBeUMq ++Knrdr3YtQJb1vT3JrDPAHd4Z9tmYQPMSNxkaTB6ElaxZdaIXjPAISvz/77B +MVgacyys2tAQFa3frV45eQSW7zJ6yOkyxLqQe3+px/Gwq2rP4eLAf/GiSE5K +3+JYeHilbefoEiO8qj6Uxz8/CsZvzU5p3TPCcL/5NzMzwsCTkyecscYY+dg8 +/bTfITC6PNXgzogxht7M/2KSEghl2b/eTySZ4NltaYsarvjCFksWmiiZ4tCZ +cm+JsT0g75tYrvnIFItD+w62XNgJSxb4FK3ZxMVbHXJF3zjbIXtlVMTIZi6+ +dhr0LJPeDrpRp1amunIx/+ybNaeFt8PaEfp1x3YuhjUf4G0d8oAjbyamPX24 +uFunf55fiQf8vBZtERHLRSvZ6U/BVh7QZZL6KiePi4b2Hqpln9xgz/7sTJtC +Lv4N4e9pfOoGk4UluwZpLk4KV6cMFrmBBNUxpVPKRe1X+U0+h9zATkhR4cEj +LoY3XNNzkHGD+205O1+95uKeEE+jFIdtYCtWpnGgg4ujVi1pzw22QYdV06TM +Wy4W1p1AeaVtMF7xLcmtj4vrNRTXDA26gsZV7YL/Brho4O8ps++4K9zvMj9w +YoiLW+vFcgyDXcF28QbQGuHivksVS6W2usLuxP0vQia4+Cm/8r2QmiuMPzqS +If2TjD/Qn19R0hXiZs57Vsxwcaqlb9Di11ZYqJ+rvu0PF9/ctkmL+LAVLvtW +TMzOkvtzvo7VPN0K/wMn0VYs "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "PlotRange" -> {{0, 30}, {0., 0.06612022005899994}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +8180,19 @@ EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "PlotRange" -> {{0, 30}, {0., 0.06612022005899994}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +8206,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:eJwV13k8VN8bB3BRoq+lKPsyc2eGyr7E1zKeh5S1lCiVUCopO2VLtkS7KElK +i5QscxWylMquBZWylCWtXyGyRYvf+f0xr3m9X687957z3PN8zhnmDn/HXfx8 +fHx/yOf/35M9TbXs49lm6U2OHlMAZm2XZcLNO+LAJcB1j99tBcAlLTtkOlIg +bf4tCY3b6nBg3e12gY5rsOxUSST/bVNYNCydMt1+B940qsXU5dpD7/21/uPt +1fDmX5VVQrmusJo90D3a/hLaLt7s0czxgel2w3Mj7f3Q4b72YWfGQahZeTP7 +xbUxYHo7d/lnnASF3vLPO9T/gGH33Vm1x+dgsY/77fkrBTCkIuZZ79pMSNFZ +XbnWWQhFzh8vCzh8FTrTtR+NLhTFCE+9dfsDsuF4dnQLv+winCf12JfhfBOk +z344mnpJEoXqk7wiu3Mh0cnG7OXkEtxYzx0wGM4DueJmOf45Uthyv0Xk8GQe +FEo6Ten8I4XiXnGHnv7Ngzcv3egzylI40+pnZyOeD+z1IdR6ayksYL4M4NPO +h+o1WYKtF6TwHOOQvGtAPvxZPdH83FQa9/aM9FcP5kOw0VX3pjgZLJYLlGG3 +FYDtFbFxuxMyaPXgp9GxrgKg5h9Maj4ng07zFbnf+gqgtW1j0atbMijinPP5 +0lABaAaICPQ0y+BBoZ+VdYKF8DUnNOeHnCzmv9VXUv63EFwXrx2SvyuL1uJJ +sZNphaAXWRl7+b4sFruc0SjLLIQF/UulmPWyuC/NrijkWiGU8wRApVMWe4In +zHoKCkHKrjxZe1YWBZU9fINrC6E1lq2/yk4OpSdWD90YKQTL7zMRfh/kUDLd +N3z5Kh6EW59d/nhQDjnBC+Q1bHlQeFWjS3JSDgW/ltcsd+CBjJOHUbmQPFZK +LV8uvZkHg2V1UwKa8vhC+JhtsQ8PUuOSQy6EyaORv3P7bAoP+peo+NWKKqBY +ep3Tu7c8kPZ/qCgtrYAdB+17oI8H9o0uz70ZCjgzRgVc/siD0ojj6uJ6Cshx +MSmwH+LBsd6Rgc0uCng4synZ9y8PdHMrvb5fI/dbFXm6T5yGWNP12+X+VcSg +okFHFy0arN0u/zC0UMSpvs35njo0iMV8i3e2V0SJ8VEFHz0aMmsScpI9FHFi +tYtliCENZbYV3wSPKqJjIKtoO9Aw4sI6MNapiE33szWL1tLgtn/i2LNIJdwe +m2vJ3kcD57yFwkCCEu5epv3tpQ9N5n+6YH6yEo6Jc+hDfjRE/F7WapGthLNq +4WnPA2k4F++2pPyZEkrPtr2zDqPh2ZmGrBuKyhgovSG15DANxoUXig89VEbR +zdL/eV+kwbK9+c9wozLqXdjhlpNJw1q+uVbuL5XRUuDGlr5LNHg6+nXCJ2Vs +FbT7z/4KDasjmdEx8xg44t7jJXSDhgDlyevmagws9lTWFS6kYeJucuO0FgP7 +0xdylXhkfNZqQ0X6DGxWUmvTpmlICPQwoMwYaNtsemvtHRoyap408q9noE34 ++VGfUhpqvbKGag4wsCxHbbN+FQ02v40kDkYy8B9zvfXUQxqak9sM9GMY+PfM +0reij2joLBeOyT7KwDvi23O6H9Mw/E+IREImAy8kNLE96miQoa0NV1czcK6x +lezoUxouWX7Y+reegVuE3rmVPaOB6oyKKX3KwE1GRaZRz2nQ4L/bpPKagalR +tdWzzTRYOCm6zv/KwIlqi7lfX9Dg83M0plGUiRO3+O6vaif1DNwt9VmCiZ+K +5zHHiYUGuvIEZJgYEHarIquDhhtva96YUUzs2S92ariThp6qc+olBkzULg2t +2/uOhnzDBdUvTZgo1xXTy99N6kUf2jSCTLwx1aibTix1zStOzY6JjTYhiRU9 +NDgkGHVcdWdi+OTodHcfDUp/C3wf7mSiYsatYff3ZH0coAS6vZlo2OHD7CVO +2vOPpkwIE7lVKStf99PwyK47/lQSE1t08o5f+UjDqdr1svknyfgbGHEin2hw +5dYXNqUw8Qszq3I/8bQmr3PuJSbyP8IZ+EyDrkSsVmQRE1PnCJXd/UID3/GJ +2vRSJv604XUIfyXvR2DvltJKJlZqHjHfRrxvwjFhtI6JD+Z4Dv8iNvZrkBN/ +ysT3xRV6Vv+Ren0xodVbmWhz8lPNaeLsDvZbry7y+3j3BpkBGoLWXwhI6GXi +zJ15ppuJ8Ymo4PWPTJRYpvE3jbi7clK7Z5iJo5Ylvgu+kXrq76v/NcZEPeMg +BSSOKOjdKjvNxNDF3vLBxFJZjUecBChUMq0VeUH8UZqrECREoZbwMb7fxHeS +i4pOi1KYWW5vxR6kIUZYxapAgsKKW1XvbYgd4jLePZGm8NzrlFYfYqVfYkFf +FSgs6D+4+CTxYHD8fEGKwvVLdApvE1cMTmWyVImdd16uI07a5aNrrk5hqPqz +T93EG3v6Gtx0KJSvV0oYI2Zvct520IBC3rBElOAQDT9amn5cMKFwtaRHsxTx +I2uzpHtIoZp5VTib+NTjO4qvV1G4k/M5WovY1Vj17g9bCq1Fzrw3JF5+96L1 +wnUU/ugLy+IST6st7NFwpnBC3aUCiScvycXqbaFw/8xjA3PicXEO28idwh17 +ZpcB8WisVoPZTgoVedVnjYmHx4z2WnqT69OrQvWIv+2yFLX1o9AqOufVMuKv +7Wtph2AK5zho5ioSf7LZvME5jEKIXzAtRtxf6Tm5JYpCP9WRmj9kvr0afhc8 +4ig0eHN2wQDxu6ww092JFFqUFz5/Rdy5KL533wkKy5LGRSuJ38SfjAs8Q+HT +Y4rPsohfTZznhKZR6Jr6XiiOuNXrWuPBixTGC0zXbid+YndPLOkGhbVuglWy +xA0PHhedvE1h4BP/36PkfddqPXNK5VEocVnyQQNxleT7jMvlFF6OnGrYR1yZ +8I2bXUXhEneepDFx2dREX24NhbTrmY/z/r9e3i5QLXlOoZhlk8z/1yNvzZIn +FS8pvOp4MWoLcf5DZd9H7RSa1J7eq0Ccc13/7tP3FPaNdvemk/Wesc8N+ico +DOtTXhNC+uN8957+LzMUZt1bJMQhPusQnDA0S2FVp9b6V6TfTuklPf0pzMLo +17PJS4njfhVtEldiYZ1V8LsS0q/RvvdnFrNY6BRkrbSB+GBv/SW5pSz06gsZ +HyL9fqDm7QeOLgslsn94KBDvOz4vwHQ1Cx8nh65zJfmw54+4pIUdCyuXTNt+ +Jvmx21+u1GodC5nCin2+xB4btH47bmGhtVZk936SP07ym5O8/Vi4wXXc2Jvk +k2le/pW0NBbqjp1Y0UPy7i0jL2vVRRYuMTjbak8ckZZ7eTyLXP9i0/Zyko/3 +YnMyHXNZGH768e4TJD91Xa6ki90nz184Kin3moZl884mH3nPQrnj/qfbWmho +jEg5veIzCxcdtmqniHePJJ/6OMDC7wnlyv4kr7PfnjxhMc7C3lbNkjkkzxl3 +EpP+CrIxWLxhnvgT0v/ukTEH1NnooMPf9aSGhpK28GiODhvrXs6Lnq4m87EN +O9S2go31Ga+1VIhTVuw/qAts5F9RdC+c7DeiIv5hw+vZ+PzL2hDhBzTMLd8R +sDuUjb8/vjZ/VkL6RcLWY2M1G8VsVVZ+JPtjhw/VureBjTpzT7ZUZZP+rZ+B +6GdszBoTUDt/nYbkiDzlW2/YaKb1w9H8Kg3a/SK90wNstJlKiY0k+7FfUcu2 +S5Ic/LpCUycphYYBB+etH3dy8EXC0RzhKBpe5mo8/enNwaqLm8azIkneCAia +iPpz0PqJu7Z+BA1H75XKGYRz0GVUNnRjKA1LlWW6Ek9yMNhUdWscOS94DXe5 +qJVyMNNMzy1sF8nDEx4bg+arYP/nZ54f7cjzB9QpbREVlNzH173RloYpq+mh +oYXEzZ3ZDdY0LBBISfCWU8FQ7w5W9ioy/vCaYg8NFfRnJk5ak/NN1C4VSYcN +Kth5bFOehS6pv9lgi1qWCjJ8Qs1/S5H9/XuozScDVZzXkf1vwD0eKOgoHREy +VcWcbPFNBnd5MBxUW61mror9xr9+/yzkwdnJhaZBdqro8IL7NTiHBz1/cjVn +3VXxrGNfBJ7jQZDIO0nZo6qon8SfYBDEg4xl2GP/VhWd4nZ331hGzo+eQsHF +0UsRvK68Ej9dSP5PSPMnVi/DvNNz07LNCkDiucop+vtylDZuP9f6IQ8Uknjr +DAzUMUylQH/K4TakqxktlPTSwIXHEucI196CJ3LmK8bOaKLzryuil/RvgrFC +dbLWGy1sjM2e2RR1A8QEroVsj9PGeAVpobgP10EpVtl0s4oOxouP28trXANh +jmupY4MOipdIZB47egU0ubK80G26GHSodO9K5csQ1CNRY8unh7433s1NFb8I +38dOONuk6+GBaMXlF7akg5VWfYaNhj7mP8ToJ13noGrM5NdUsz5S5wrBeUMq ++Knrdr3YtQJb1vT3JrDPAHd4Z9tmYQPMSNxkaTB6ElaxZdaIXjPAISvz/77B +MVgacyys2tAQFa3frV45eQSW7zJ6yOkyxLqQe3+px/Gwq2rP4eLAf/GiSE5K +3+JYeHilbefoEiO8qj6Uxz8/CsZvzU5p3TPCcL/5NzMzwsCTkyecscYY+dg8 +/bTfITC6PNXgzogxht7M/2KSEghl2b/eTySZ4NltaYsarvjCFksWmiiZ4tCZ +cm+JsT0g75tYrvnIFItD+w62XNgJSxb4FK3ZxMVbHXJF3zjbIXtlVMTIZi6+ +dhr0LJPeDrpRp1amunIx/+ybNaeFt8PaEfp1x3YuhjUf4G0d8oAjbyamPX24 +uFunf55fiQf8vBZtERHLRSvZ6U/BVh7QZZL6KiePi4b2Hqpln9xgz/7sTJtC +Lv4N4e9pfOoGk4UluwZpLk4KV6cMFrmBBNUxpVPKRe1X+U0+h9zATkhR4cEj +LoY3XNNzkHGD+205O1+95uKeEE+jFIdtYCtWpnGgg4ujVi1pzw22QYdV06TM +Wy4W1p1AeaVtMF7xLcmtj4vrNRTXDA26gsZV7YL/Brho4O8ps++4K9zvMj9w +YoiLW+vFcgyDXcF28QbQGuHivksVS6W2usLuxP0vQia4+Cm/8r2QmiuMPzqS +If2TjD/Qn19R0hXiZs57Vsxwcaqlb9Di11ZYqJ+rvu0PF9/ctkmL+LAVLvtW +TMzOkvtzvo7VPN0K/wMn0VYs "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "PlotRange" -> {{0, 30}, {0., 0.06612022005899994}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +8322,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 +8350,8 @@ EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.07335635796919572}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06612022005899994}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -3407,9 +8359,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.9939609600496597`*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"545a7d0c-5943-4d8d-8147-dc2459ede95a"] }, Open ]], Cell[CellGroupData[{ @@ -3462,66 +8413,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[\\\"2.778350039441047`*^-159\\\", \ +RowBox[{\\\"\ +505518991860510123640143147290826802026352259296904996615670790081361\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"11\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0136605792106222330469781300859512072804761600000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 100, 17, 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345785749161*^9, 3.993960960176495*^9}, CellLabel-> "During evaluation of \ -In[422]:=",ExpressionUUID->"b6e3034b-dd99-1142-8723-42090efc2980"], +In[100]:=",ExpressionUUID->"232bb946-93a0-4b8b-89d3-78bfd041bde7"], 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[\\\"4.096623139172448`*^-162\\\", \ +RowBox[{\\\"\ +164243120455479739170682508554789627978361849045564433400431439697434\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"15\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3832218553116351696319446492554724542670438400000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 100, 18, 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345785749161*^9, 3.9939609601853456`*^9}, CellLabel-> "During evaluation of \ -In[422]:=",ExpressionUUID->"54e48413-1d3a-b844-8316-bcdf9191e67e"], +In[100]:=",ExpressionUUID->"20302d2b-6691-4a63-b829-b3018b1f0b97"], 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[\\\"6.040391205630597`*^-165\\\", \ +RowBox[{\\\"\ +552513857212233842570175958778312308519209260189278753959051363142168\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"18\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1583212683407106418618000954093361543354777600000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 100, 19, 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345785749161*^9, 3.99396096019389*^9}, CellLabel-> "During evaluation of \ -In[422]:=",ExpressionUUID->"44ccd47c-7323-4a4e-a9d6-7424d8b3399f"], +In[100]:=",ExpressionUUID->"5549fed3-910d-430d-ae23-217c398f0ea2"], 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, 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345785749161*^9, 3.993960960201542*^9}, CellLabel-> "During evaluation of \ -In[422]:=",ExpressionUUID->"4c2e41d3-b5d7-3f4c-ba94-0408b6a0e82d"], +In[100]:=",ExpressionUUID->"e440c172-c55b-476b-b600-66517026c98d"], -Cell[BoxData["10.362747935330768`"], "Output", - CellChangeTimes->{3.991345792196575*^9}, +Cell[BoxData["11.49309087597734`"], "Output", + CellChangeTimes->{3.991345792196575*^9, 3.993961006111906*^9}, CellLabel-> - "Out[422]=",ExpressionUUID->"c1bfc082-c70f-3140-a59c-c21547622f5b"] + "Out[100]=",ExpressionUUID->"9d992897-2ae3-41c6-b70d-858cf6f75c77"] }, Open ]], Cell[CellGroupData[{ @@ -3588,68 +8549,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"], + 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\\\", \ + "\"\\!\\(\\*FractionBox[\\\"3.0233415790207448`*^-220\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 101, 21, 31385712231930919302, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345792232563*^9, 3.993961006169754*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"1cede343-11b3-4762-a4c1-3ca2d277dc7d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.828775088393333`*^-226\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 101, 22, 31385712231930919302, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345792232563*^9, 3.9939610061773157`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"72bb54a2-1a28-4030-b7e1-a8a2a6c85577"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.195299545660717`*^-231\\\", \ \\\"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}, +normalized machine number; precision may be lost.\"", 2, 101, 23, + 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345792232563*^9, 3.99396100618414*^9}, CellLabel-> "During evaluation of \ -In[423]:=",ExpressionUUID->"0e308aaf-a4b5-d740-9882-5c338a63d7a7"], - -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}, - CellLabel-> - "During evaluation of \ -In[423]:=",ExpressionUUID->"5e35cc91-e340-c74b-b6dd-42063e8a308b"], - -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}, - CellLabel-> - "During evaluation of \ -In[423]:=",ExpressionUUID->"c3f5c3a9-ece1-e648-aa3a-3f66f2873ea7"], +In[101]:=",ExpressionUUID->"82560c2a-af85-46d6-93cf-54654d8698ce"], 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, 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345792232563*^9, 3.993961006190387*^9}, CellLabel-> "During evaluation of \ -In[423]:=",ExpressionUUID->"41503ce3-67a0-8a4a-b10a-c3db53fd260d"], +In[101]:=",ExpressionUUID->"62c4266a-15c9-420b-88ec-ecde62b22809"], -Cell[BoxData["0.32136877427435395`"], "Output", - CellChangeTimes->{3.991345799137081*^9}, +Cell[BoxData["0.15522562705274107`"], "Output", + CellChangeTimes->{3.991345799137081*^9, 3.993961012924089*^9}, CellLabel-> - "Out[423]=",ExpressionUUID->"d9451200-e1de-5d43-8d07-ddcfc9babc52"] + "Out[101]=",ExpressionUUID->"1e2fdef1-a8fd-4ee7-ab90-24f6d2589dd9"] }, Open ]], Cell[CellGroupData[{ @@ -3670,8 +8635,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 +8680,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"], + 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\\\", \ + "\"\\!\\(\\*FractionBox[\\\"3.0233415790207448`*^-220\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 102, 25, 31385712231930919302, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913457991730843`*^9, 3.9939610129604387`*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"a97b0002-cc12-4c21-9cf2-0325c5512739"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.828775088393333`*^-226\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 102, 26, 31385712231930919302, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913457991730843`*^9, 3.993961012968176*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"a2e1da92-f95d-4803-80e5-187cefa7ebd8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.195299545660717`*^-231\\\", \ \\\"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}, +normalized machine number; precision may be lost.\"", 2, 102, 27, + 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913457991730843`*^9, 3.993961012976503*^9}, CellLabel-> "During evaluation of \ -In[424]:=",ExpressionUUID->"2247cd70-3ffa-2245-971e-6c6a2bd1ecfc"], - -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}, - CellLabel-> - "During evaluation of \ -In[424]:=",ExpressionUUID->"d9ae7d5b-4e89-a74f-be53-15700ab2593c"], - -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}, - CellLabel-> - "During evaluation of \ -In[424]:=",ExpressionUUID->"821c7ce3-36cc-9549-9881-1225eb1561cf"], +In[102]:=",ExpressionUUID->"5505c3ba-770c-4c1b-a2e3-dabe2c5f4e35"], 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, 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913457991730843`*^9, 3.9939610129835978`*^9}, CellLabel-> "During evaluation of \ -In[424]:=",ExpressionUUID->"52af17f2-aff2-c34f-85c8-700b3d2f5f39"], +In[102]:=",ExpressionUUID->"d8815217-8d8a-42a1-8bf1-91609246d148"], -Cell[BoxData["6.886509882261309`"], "Output", - CellChangeTimes->{3.991345804559931*^9}, +Cell[BoxData["33.73621483229818`"], "Output", + CellChangeTimes->{3.991345804559931*^9, 3.993961019317862*^9}, CellLabel-> - "Out[424]=",ExpressionUUID->"9a4afbd4-21df-4744-836a-2ed068742fdd"] + "Out[102]=",ExpressionUUID->"eaafd451-0a2a-43a9-8b53-c77f5b3404be"] }, Open ]], Cell[CellGroupData[{ @@ -3798,8 +8766,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 +8811,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"], + 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\\\", \ + "\"\\!\\(\\*FractionBox[\\\"3.0233415790207448`*^-220\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 103, 29, 31385712231930919302, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458046014442`*^9, 3.993961019353593*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"160e513b-7771-416a-9fe3-8288497a273b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.828775088393333`*^-226\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 103, 30, 31385712231930919302, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458046014442`*^9, 3.993961019361038*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"51a91909-ca77-4da0-8c1e-6b2c601eeeac"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.195299545660717`*^-231\\\", \ \\\"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}, +normalized machine number; precision may be lost.\"", 2, 103, 31, + 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458046014442`*^9, 3.993961019367749*^9}, CellLabel-> "During evaluation of \ -In[425]:=",ExpressionUUID->"3701f96f-691c-9040-a8a1-ff3958638338"], - -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}, - CellLabel-> - "During evaluation of \ -In[425]:=",ExpressionUUID->"9e260603-f97f-ac44-8251-869444fbcc24"], - -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}, - CellLabel-> - "During evaluation of \ -In[425]:=",ExpressionUUID->"f34d60ab-6a89-fd45-89b6-5f3b4b17dd22"], +In[103]:=",ExpressionUUID->"9adbc5bd-4868-4884-828c-82c1fac2dcb2"], 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, 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458046014442`*^9, 3.9939610193755817`*^9}, CellLabel-> "During evaluation of \ -In[425]:=",ExpressionUUID->"27fa1c02-4896-1547-8cb5-b1b86182517f"], +In[103]:=",ExpressionUUID->"9fd9e336-c9c6-432a-b201-a427adb13849"], -Cell[BoxData["18.478556086442907`"], "Output", - CellChangeTimes->{3.991345807954506*^9}, +Cell[BoxData["5.4059472810049245`"], "Output", + CellChangeTimes->{3.991345807954506*^9, 3.9939610233496513`*^9}, CellLabel-> - "Out[425]=",ExpressionUUID->"7fdd69fb-d48e-e24a-a681-093b62cad9ba"] + "Out[103]=",ExpressionUUID->"9c8c492f-7506-424c-8bfa-6b330f940324"] }, Open ]], Cell[CellGroupData[{ @@ -3914,22 +8885,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.011494215705653881`"], "Output", + CellChangeTimes->{3.991345807987507*^9, 3.993961023380537*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"13a2770a-986e-472a-943b-4602bd656049"] }, 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 +8924,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["7.907885837852411`"], "Output", + CellChangeTimes->{3.991345808020666*^9, 3.993961023394618*^9}, CellLabel-> - "Out[428]=",ExpressionUUID->"c70c9f2e-d3ac-284f-9a22-d110345400ba"] + "Out[106]=",ExpressionUUID->"3e08c2d1-5be1-4cd4-a601-cdbe89e8f9ec"] }, Open ]], Cell[CellGroupData[{ @@ -3967,12 +8939,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["2.0445595246777404`"], "Output", + CellChangeTimes->{3.9913458080616665`*^9, 3.9939610234031067`*^9}, CellLabel-> - "Out[430]=",ExpressionUUID->"dc218355-20da-7845-8c8d-e506361cd90c"] + "Out[107]=",ExpressionUUID->"ee83f23d-d8b7-435b-b943-5e649a935534"] }, Open ]], Cell[CellGroupData[{ @@ -3982,12 +8954,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["16.16814330984536`"], "Output", + CellChangeTimes->{3.991345808188246*^9, 3.993961023411772*^9}, CellLabel-> - "Out[433]=",ExpressionUUID->"b98e2d62-3142-7d4b-8175-9f6bcc8f676f"] + "Out[108]=",ExpressionUUID->"1cba0d8e-4d27-475c-b150-91a6c135d884"] }, Open ]], Cell[CellGroupData[{ @@ -4177,12 +9149,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.006660601196524469`"], "Output", + CellChangeTimes->{3.991345808220566*^9, 3.993961023425355*^9}, CellLabel-> - "Out[434]=",ExpressionUUID->"e2235b96-63a9-b14d-b5d1-d13c73c5b35b"] + "Out[109]=",ExpressionUUID->"00c6c309-baef-4790-8aea-9359d8437b0a"] }, Open ]], Cell[CellGroupData[{ @@ -4196,12 +9168,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["10.858959794710934`"], "Output", + CellChangeTimes->{3.9913458083195686`*^9, 3.993961023523015*^9}, CellLabel-> - "Out[435]=",ExpressionUUID->"776526ba-6ae1-2140-8428-6e0766592ce2"] + "Out[110]=",ExpressionUUID->"980c9473-7c74-4ad0-98c6-3e3816e6b161"] }, Open ]], Cell[CellGroupData[{ @@ -4393,12 +9365,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.05517718449374487`"], "Output", + CellChangeTimes->{3.991345808334568*^9, 3.9939610235348597`*^9}, CellLabel-> - "Out[436]=",ExpressionUUID->"4456bf68-737e-1947-bc9d-24db2abd4b39"] + "Out[111]=",ExpressionUUID->"8b9d0c15-3c74-4c81-b6ea-d614600d2c9b"] }, Open ]], Cell[CellGroupData[{ @@ -4412,12 +9384,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.7728120683340705`"], "Output", + CellChangeTimes->{3.991345808432392*^9, 3.993961023630673*^9}, CellLabel-> - "Out[437]=",ExpressionUUID->"04031349-1bc1-2c40-8d25-2e90a8f4b902"] + "Out[112]=",ExpressionUUID->"8fcefb12-0b82-4406-b5eb-1915ad74b92c"] }, Open ]], Cell[CellGroupData[{ @@ -4510,12 +9482,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.10778842427476491`"], "Output", + CellChangeTimes->{3.991345808448488*^9, 3.993961023640086*^9}, CellLabel-> - "Out[438]=",ExpressionUUID->"ab924ecc-12c3-f448-be6e-b37b3bf2a7ea"] + "Out[113]=",ExpressionUUID->"0a0b4bf4-b019-47b2-97ab-a493cb869e63"] }, Open ]], Cell[CellGroupData[{ @@ -4605,12 +9577,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.892211575725235`"], "Output", + CellChangeTimes->{3.9913458084773808`*^9, 3.993961023649878*^9}, CellLabel-> - "Out[439]=",ExpressionUUID->"edd230b8-d34a-9d46-9fb1-cbff36fb79ff"] + "Out[114]=",ExpressionUUID->"0da1b911-76f8-451e-b0c6-87d33e92ec9b"] }, Open ]], Cell[CellGroupData[{ @@ -4733,12 +9705,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.09617007986712818`"], "Output", + CellChangeTimes->{3.9913458085134735`*^9, 3.993961023659881*^9}, CellLabel-> - "Out[440]=",ExpressionUUID->"7ff053b6-f84b-bf44-8265-ecf6593e97c0"] + "Out[115]=",ExpressionUUID->"16d1991e-748c-4a3e-8b6c-bc92582d0e65"] }, Open ]], Cell[CellGroupData[{ @@ -4800,67 +9772,69 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.99185025346871*^9},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}, + CellChangeTimes->{3.99185025346871*^9}, CellLabel-> - "During evaluation of \ -In[441]:=",ExpressionUUID->"ba9cccb8-fdfa-1d4c-9151-4c0bb8135009"], + "In[116]:=",ExpressionUUID->"77c444cf-c5b4-4b4b-9808-ff76b28fd32d"], 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}, - CellLabel-> - "During evaluation of \ -In[441]:=",ExpressionUUID->"dda5376f-614c-1846-a3e1-09857b4bcae6"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ + "\"\\!\\(\\*FractionBox[\\\"2.0783807514178647`*^-261\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) 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}, + 116, 33, 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458085463753`*^9, 3.993961023672611*^9}, CellLabel-> "During evaluation of \ -In[441]:=",ExpressionUUID->"7a2a8f8b-abfe-9646-a4d6-23b88b4059ef"], +In[116]:=",ExpressionUUID->"ae01c417-7898-4871-aacb-2c0219e9b2b1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.77023432780569`*^-272\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 116, 34, 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458085463753`*^9, 3.993961023681375*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"58e23e6a-8b37-48e8-b884-299db667cb4a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.904979824693877`*^-282\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 116, 35, 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458085463753`*^9, 3.9939610236889687`*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"63a7de97-3d8b-487d-aea7-fb6639520362"], 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, 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458085463753`*^9, 3.9939610236952047`*^9}, CellLabel-> "During evaluation of \ -In[441]:=",ExpressionUUID->"61579f38-09d5-bc4c-9509-0aaf4718ceff"], +In[116]:=",ExpressionUUID->"e2080512-2ed6-4355-a5d6-2c1e670fa518"], -Cell[BoxData["4.317080886816564`"], "Output", - CellChangeTimes->{3.9913458125059433`*^9}, +Cell[BoxData["10.858959794710948`"], "Output", + CellChangeTimes->{3.9913458125059433`*^9, 3.993961026167782*^9}, CellLabel-> - "Out[441]=",ExpressionUUID->"87b4581c-42ec-3248-906f-f100fdcc36d4"] + "Out[116]=",ExpressionUUID->"c0852c96-67df-4767-9dae-33e0ffd22f0e"] }, Open ]], Cell[CellGroupData[{ @@ -4922,68 +9896,69 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918502579298553`*^9},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}, + CellChangeTimes->{3.9918502579298553`*^9}, CellLabel-> - "During evaluation of \ -In[442]:=",ExpressionUUID->"19016d8b-0ad0-804c-b867-298523611be5"], + "In[117]:=",ExpressionUUID->"baacd3f7-96e4-2949-b9f9-9afb90e551d9"], 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}, - CellLabel-> - "During evaluation of \ -In[442]:=",ExpressionUUID->"b91abb11-65b8-3b43-a495-4cb1457edd27"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ + "\"\\!\\(\\*FractionBox[\\\"2.0783807514178647`*^-261\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) 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}, + 117, 37, 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345812542961*^9, 3.993961026202174*^9}, CellLabel-> "During evaluation of \ -In[442]:=",ExpressionUUID->"120f2ab5-c971-b748-a471-5d053961b4f2"], +In[117]:=",ExpressionUUID->"05aecc1a-54fa-45a7-8d69-aee06133e71f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.77023432780569`*^-272\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 117, 38, 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345812542961*^9, 3.9939610262110357`*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"df752497-f1dc-4963-b01c-e9ec8b34d361"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.904979824693877`*^-282\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 117, 39, 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345812542961*^9, 3.993961026218157*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"69d546a3-f1eb-4b97-872a-d5192920d145"], 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, 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345812542961*^9, 3.9939610262238197`*^9}, CellLabel-> "During evaluation of \ -In[442]:=",ExpressionUUID->"e219a46d-9b55-8b4b-a17f-972d0b60293c"], +In[117]:=",ExpressionUUID->"c75a625a-477d-4d82-a074-e6dc43c94d9e"], -Cell[BoxData["7.8141966696182585`"], "Output", - CellChangeTimes->{3.991345816415531*^9}, +Cell[BoxData["3.772812068334074`"], "Output", + CellChangeTimes->{3.991345816415531*^9, 3.99396102864694*^9}, CellLabel-> - "Out[442]=",ExpressionUUID->"15e7db41-f53f-7c4b-886f-7ba04bf10a25"] + "Out[117]=",ExpressionUUID->"72710185-910a-4b3f-9e18-09b2c849a6de"] }, Open ]], Cell[CellGroupData[{ @@ -5041,95 +10016,86 @@ 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:eJwd0nk0lVsfB/BDyJzhmiOZiijOQcjt+WWMa0qUsTjO85CZI50bKUWTkqQb +tytlTiQyhVoN3pLcKJoUkaGueR7K8O7tj732+qy99nd997CRGeZMctNotF40 +8Bzxeuum6tbXO/fqJESIcI8TZZzjz3gtmglz84RwbPl+Vc9Z8y8EdT4hBPuP +sVhjdvNXQjs3Khj70eKgEKeohzB7YhGE/T5eJqYqtJeo65k+hD3KZzE4Te8n +inkTA7D5LoS7M+YGCC2dGQpbSTyzMaLuB2HvZkliOyjM5o+aDxMTDxJ9samb +KtI6/KNEyfjhg9jH1R0Tg5rHiIQtVt7YH2Xa9aKKJgiRu6fdsFkegYeuXJgk +hGZnXbHH/6HdKg+dIqrNrPdi86voiE3QZ4gXg2fssdNYz6zFpGaJBCuOLbZy +gfvxbXOzRH7BbmtsI+3ToyF188THo+cAO8Dwa/Og+SIxHpikhz3NOcwjqLFE +5MzF6GCfqBMy1eRfJmKT7DSx08Hojn/zCnHv5UXl1X55jRaRRVxQVJAigl30 +/Ep3vAI3aB2O51/t+/1A7OUL3CBl57wGO1Zr5v690DUQIJM2L4z7lm5UHaPz +gr9Oeg92R+vwo+UcXjjseO4ztvJktYeoFB/cPubxDrtY3yFVZ44PRGmZjdgN +D45yBdfxQ0NBdgn2zLO2rz/MhSGt514EtoSdsFjMI2EQlpwOwNZttwARYxEY +fCTugx3YV3lTb6soBJ79Yo8dzt2s+7uwGMxOl27C7le5O5E4Kw5LrQ7tQvh+ +qCaBFoYE6P4yfonNfWdgo2yEBJjeWXmIrczY4Fw0JAEKN+ULsD3MU8pfd0sC +fTr5CHaLXyRb5pUUrOOPFMfuKkhO8uGXBpdZXh7s4aGinNuW0nCVEzUriCwY +1du247E0TJn2dGBbJLjo+1TKgEDPwi3s2lzDmcIsOYiN26yJndv/M9okShGq +O04qCCDvdj3TxS5RhA8RWYLYww2SViUDiqB99voCP7J+rraUsrsSVBjSP2A3 +MA/c5925Ac4/+JSCPTnWfeTHKWVQdpRYXossGWJRcd9eBYyG9B7zIQ/kCgY4 +BarA9Sy4g13zpVVh5LQKbF7Y+he2l533KY3HKsBzqygIO3dLtHMGXRU2/Kco +ha0/WDAeJ6MG0RdmfHmRXfyFdGx71GFCit27BpmIdqXvX1IH1tfZJmytxKzt +LDkNWKrzLMem5TDM4vZowOWKxhPYJV2e+8ufaMC6f7etx+bbVxwvn70Jdo4z +7LlxPwv794NMTdBeuyGdhpyz99rnuThNOG7YGIOdzOzp5rmuCZ/vOB/EZp04 +PKTUpgnJYUIa2OL1mbS95lognyRcvsKF/g9jVKtOdQsEXHdoWEZWULl0PKlP +GzY/73qziFx/flpzgVsHkt7M38X2mnJvpzbqwJuF0STsGw1qmmYHdGCiKMwS +W8W/9u38Bx048e5p1S9kreJ+derVVnh5qjz1J7KighKl7K4LP8693DaPrJ0X +JfyLoENOfvjKJDKTdWpGx4EOHvS099jpqqldPl50IGUySrDXZJfee86hw8U5 +K0/sjhuDLqlldLDdz6icQD6X7pOpqcoAss3Jbxx5IMluqxufPgTLlhWOIN+K +VHOqbDaA5FdZH78jt0YT2xPyjGHO6UveJ+SNB945eAf/Dvz+J2+9RCZXqu4q +/gmQFXG0vwZZZqhmrQzTDMT1/LpykaMYpl9StSzg9yqrmBTcf2SxUXLQEkqP +GC0dRS4xY6/NarGGI6cKJZnIudOBT4rTbKD4mHyoDfL8Ltl/G47/AS9SCTsd +5E7amokeX3vI0KvwFkMOXR+WEq/qCNF2Ls7TtHHi7qHGx1cTneCmzURXO/LR +Kbm5LYf2gHqnSlEV8oyt1b4XB51hD5tP/SqyseflXf179sKbYZs0NvJbuczA +BoYLRIZ7texFls8/VV+42RWkZae49ZBrurXsHET2waJ+grMYslL7uH/0yD4w +/BUf0r0yRjCuXi7O6d4P2Zs6vv+NnMkztTX1mRtUmXwK9kCu2rWtI/GBO/hU +mlhIIadvPy++WOQB+SbfyLfLY0TL57zTjAueIHJyjHEVudL+H7XwE15wX1KX +dEGeCNlLC2V5Q/xjgetyyDNWmgGj5gegasituWdpjCgc+TTPNjwIadTi6QJk +t1t5ft7CPvBCYDyRjXy//I+Da874gCLVOPM7srHC24VzCz6QL5jRJIqs2u3f +8eaQL9ScnyR7F8eIPqEgx396fSH5/XJlNXJrsoOftSsTRMM7rFKR0zhZQodb +mXA2JjoxBLn+0cqCn40fvNh0NtIeeZ0XnGHU+oFQvZQpA1n5txct6+v9wDMz +4i0dWbfZXpbvkR+cbJA4hO1s6nn74xM/cOZWv6aH89dHvzr20g8MhM/PbkOW +77yzrvGjH3D/6/VUG1ntgEy615wfcKXvT9ZANvYZLUzUZ4HLfY0FeeT8jHG2 +gyELpJm9+di/tU3ulDFiwfPxThfsUcu59sIdLKh/eqFMDjl3C42r2YwF9/73 +JkQWWXRO3F1iDwu48pcmpPB9XDQQyAphQerk8mZx5D0vtrf7h7FgnW58lxjy +I5pJlm4EC9g/dqVhZ7B3GjyNYgF0xtGwHdytfftjWDDl+v2zKPIDNfcHW86z +oCsq+oYwcnJd7KGafBYEaRU78yOH0K8ZcwpZQDd2Fce2u10mYFSEztdh0roW +WfDawO3qEhZ099Y5YCdGOg1WVbCgJO6qAx9yrKZaUOVTFvSpFbnzIAdeexVc +3sWCmMXITBqyjeiAaWQ3C9quVfphb06kidC/sSDDxEALeyDSoKSsnwVXcoeq +V36NEb4OWSP3hlkgEmDwfhnZjZcdWvqTBeEZhNISsjVbPrxYmoTdZpZfFpCf +Zp22TZUl4UvTeB62afOkGkeehIXsvjBsXfVXn8yVSLjvlMeDLfchxvyzOgm6 +Qkl688hDJp3SggYknNIbSp9FvsR986H/XhKMBqRvTCELbhNOt3cl4cGetnDs +BE9OJGM/CSqxH82xORVOm1Y8SBiSezg4iftTXJf/YpJg3Tq2A5vRxGT9L4KE +5paloXHkD5fVhVRTSFiybD05inyXEAn4cZmEjLcSvtgJI9MNJVdIiOG9SmDT +bRrijK6RkEW5LY0gJ9P8Ju1vkPDM4XMMtlXYzU+cYhK0g9oShpEVFc8a7rxL +wiNbcX/s6aawK2vukXB4LNkGO1uDsE++T4Jjis067KXOzsc5tSSoHqzPHEKu +sFMofN1Iwv6yjOeDyEk/uXnTmkh4XtFejM0sHPR1byaBme54BVuMp1ahr4WE +G3y8vtjBdW6XFt6TYHg7dOU/ZFWtv6LV+kngOO3cjf3zw7G2/wZI4Bfk0LFb +E0nd0h/o/Won1mPH9egPGg+T8HBt3uQP5I70Nm/HKRLUIoVuYaeuFbc8ykVB +098fBbDrJzs9o9ZQoOrKO/sd+XtnUWQoLwVhnfHfsE0rLG4yBSiY9gqsxx7w +4fyyFadAb9cCG1vMzlLCUpKC75dzmdg7tktoElIUVNRl7cFOESnex5CjQDsr +UXd1vfZrmcJGChRerpscQKbyihulVClI5DHpxU5J+fPrOnUKwlUq2rEHKEkR +Hk0KBgXTa1bXJa0DhnUp4BQpJWDXLkseH6BTUCjbeAS7/7/uq936FNRGPAnC +Nnl89Fm7EQUF33NcsPuC7yo9BApkFjdpYYu6xRhUm1Ew+dFJGdvYfLddmQUF +LgUvpbGT5b79mbebgjSFOzzYNTylKVm2FEQ8lVzsR+4diynIsKPgoXfzFLbR +c6l3F50oCGLr9GEzy74NnXGmgGvs3Rfsi/+Ucp90ocDc9/U77G+RNrrRbhRE +bSltxBY5IG0d7kFBfMK1p6t5Nr3egV4U6L9vqV/dv+FY0gEfCsRI3XLsGkHb +bDcmBTPZbiWreTPSD5xZFKh9bi1czevpbbGjKGgRychdzWu+N2AVQAF7R9nN +1X7Vx5YgkAJdllzman627W87gilwOvsmYzX/oswWg1AKLAs//bWaz+nbtS2c +guVnemnY2x3jwlSjKDAaf3MJ+4K6bKYMh4IRkfIL2D2/ypqEYilIUHp7Htvw +7R/zK8cpsFehr/r/1vjgsQ== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -5143,107 +10109,98 @@ 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:eJwd0nk0lVsfB/BDyJzhmiOZiijOQcjt+WWMa0qUsTjO85CZI50bKUWTkqQb +tytlTiQyhVoN3pLcKJoUkaGueR7K8O7tj732+qy99nd997CRGeZMctNotF40 +8Bzxeuum6tbXO/fqJESIcI8TZZzjz3gtmglz84RwbPl+Vc9Z8y8EdT4hBPuP +sVhjdvNXQjs3Khj70eKgEKeohzB7YhGE/T5eJqYqtJeo65k+hD3KZzE4Te8n +inkTA7D5LoS7M+YGCC2dGQpbSTyzMaLuB2HvZkliOyjM5o+aDxMTDxJ9samb +KtI6/KNEyfjhg9jH1R0Tg5rHiIQtVt7YH2Xa9aKKJgiRu6fdsFkegYeuXJgk +hGZnXbHH/6HdKg+dIqrNrPdi86voiE3QZ4gXg2fssdNYz6zFpGaJBCuOLbZy +gfvxbXOzRH7BbmtsI+3ToyF188THo+cAO8Dwa/Og+SIxHpikhz3NOcwjqLFE +5MzF6GCfqBMy1eRfJmKT7DSx08Hojn/zCnHv5UXl1X55jRaRRVxQVJAigl30 +/Ep3vAI3aB2O51/t+/1A7OUL3CBl57wGO1Zr5v690DUQIJM2L4z7lm5UHaPz +gr9Oeg92R+vwo+UcXjjseO4ztvJktYeoFB/cPubxDrtY3yFVZ44PRGmZjdgN +D45yBdfxQ0NBdgn2zLO2rz/MhSGt514EtoSdsFjMI2EQlpwOwNZttwARYxEY +fCTugx3YV3lTb6soBJ79Yo8dzt2s+7uwGMxOl27C7le5O5E4Kw5LrQ7tQvh+ +qCaBFoYE6P4yfonNfWdgo2yEBJjeWXmIrczY4Fw0JAEKN+ULsD3MU8pfd0sC +fTr5CHaLXyRb5pUUrOOPFMfuKkhO8uGXBpdZXh7s4aGinNuW0nCVEzUriCwY +1du247E0TJn2dGBbJLjo+1TKgEDPwi3s2lzDmcIsOYiN26yJndv/M9okShGq +O04qCCDvdj3TxS5RhA8RWYLYww2SViUDiqB99voCP7J+rraUsrsSVBjSP2A3 +MA/c5925Ac4/+JSCPTnWfeTHKWVQdpRYXossGWJRcd9eBYyG9B7zIQ/kCgY4 +BarA9Sy4g13zpVVh5LQKbF7Y+he2l533KY3HKsBzqygIO3dLtHMGXRU2/Kco +ha0/WDAeJ6MG0RdmfHmRXfyFdGx71GFCit27BpmIdqXvX1IH1tfZJmytxKzt +LDkNWKrzLMem5TDM4vZowOWKxhPYJV2e+8ufaMC6f7etx+bbVxwvn70Jdo4z +7LlxPwv794NMTdBeuyGdhpyz99rnuThNOG7YGIOdzOzp5rmuCZ/vOB/EZp04 +PKTUpgnJYUIa2OL1mbS95lognyRcvsKF/g9jVKtOdQsEXHdoWEZWULl0PKlP +GzY/73qziFx/flpzgVsHkt7M38X2mnJvpzbqwJuF0STsGw1qmmYHdGCiKMwS +W8W/9u38Bx048e5p1S9kreJ+derVVnh5qjz1J7KighKl7K4LP8693DaPrJ0X +JfyLoENOfvjKJDKTdWpGx4EOHvS099jpqqldPl50IGUySrDXZJfee86hw8U5 +K0/sjhuDLqlldLDdz6icQD6X7pOpqcoAss3Jbxx5IMluqxufPgTLlhWOIN+K +VHOqbDaA5FdZH78jt0YT2xPyjGHO6UveJ+SNB945eAf/Dvz+J2+9RCZXqu4q +/gmQFXG0vwZZZqhmrQzTDMT1/LpykaMYpl9StSzg9yqrmBTcf2SxUXLQEkqP +GC0dRS4xY6/NarGGI6cKJZnIudOBT4rTbKD4mHyoDfL8Ltl/G47/AS9SCTsd +5E7amokeX3vI0KvwFkMOXR+WEq/qCNF2Ls7TtHHi7qHGx1cTneCmzURXO/LR +Kbm5LYf2gHqnSlEV8oyt1b4XB51hD5tP/SqyseflXf179sKbYZs0NvJbuczA +BoYLRIZ7texFls8/VV+42RWkZae49ZBrurXsHET2waJ+grMYslL7uH/0yD4w +/BUf0r0yRjCuXi7O6d4P2Zs6vv+NnMkztTX1mRtUmXwK9kCu2rWtI/GBO/hU +mlhIIadvPy++WOQB+SbfyLfLY0TL57zTjAueIHJyjHEVudL+H7XwE15wX1KX +dEGeCNlLC2V5Q/xjgetyyDNWmgGj5gegasituWdpjCgc+TTPNjwIadTi6QJk +t1t5ft7CPvBCYDyRjXy//I+Da874gCLVOPM7srHC24VzCz6QL5jRJIqs2u3f +8eaQL9ScnyR7F8eIPqEgx396fSH5/XJlNXJrsoOftSsTRMM7rFKR0zhZQodb +mXA2JjoxBLn+0cqCn40fvNh0NtIeeZ0XnGHU+oFQvZQpA1n5txct6+v9wDMz +4i0dWbfZXpbvkR+cbJA4hO1s6nn74xM/cOZWv6aH89dHvzr20g8MhM/PbkOW +77yzrvGjH3D/6/VUG1ntgEy615wfcKXvT9ZANvYZLUzUZ4HLfY0FeeT8jHG2 +gyELpJm9+di/tU3ulDFiwfPxThfsUcu59sIdLKh/eqFMDjl3C42r2YwF9/73 +JkQWWXRO3F1iDwu48pcmpPB9XDQQyAphQerk8mZx5D0vtrf7h7FgnW58lxjy +I5pJlm4EC9g/dqVhZ7B3GjyNYgF0xtGwHdytfftjWDDl+v2zKPIDNfcHW86z +oCsq+oYwcnJd7KGafBYEaRU78yOH0K8ZcwpZQDd2Fce2u10mYFSEztdh0roW +WfDawO3qEhZ099Y5YCdGOg1WVbCgJO6qAx9yrKZaUOVTFvSpFbnzIAdeexVc +3sWCmMXITBqyjeiAaWQ3C9quVfphb06kidC/sSDDxEALeyDSoKSsnwVXcoeq +V36NEb4OWSP3hlkgEmDwfhnZjZcdWvqTBeEZhNISsjVbPrxYmoTdZpZfFpCf +Zp22TZUl4UvTeB62afOkGkeehIXsvjBsXfVXn8yVSLjvlMeDLfchxvyzOgm6 +Qkl688hDJp3SggYknNIbSp9FvsR986H/XhKMBqRvTCELbhNOt3cl4cGetnDs +BE9OJGM/CSqxH82xORVOm1Y8SBiSezg4iftTXJf/YpJg3Tq2A5vRxGT9L4KE +5paloXHkD5fVhVRTSFiybD05inyXEAn4cZmEjLcSvtgJI9MNJVdIiOG9SmDT +bRrijK6RkEW5LY0gJ9P8Ju1vkPDM4XMMtlXYzU+cYhK0g9oShpEVFc8a7rxL +wiNbcX/s6aawK2vukXB4LNkGO1uDsE++T4Jjis067KXOzsc5tSSoHqzPHEKu +sFMofN1Iwv6yjOeDyEk/uXnTmkh4XtFejM0sHPR1byaBme54BVuMp1ahr4WE +G3y8vtjBdW6XFt6TYHg7dOU/ZFWtv6LV+kngOO3cjf3zw7G2/wZI4Bfk0LFb +E0nd0h/o/Won1mPH9egPGg+T8HBt3uQP5I70Nm/HKRLUIoVuYaeuFbc8ykVB +098fBbDrJzs9o9ZQoOrKO/sd+XtnUWQoLwVhnfHfsE0rLG4yBSiY9gqsxx7w +4fyyFadAb9cCG1vMzlLCUpKC75dzmdg7tktoElIUVNRl7cFOESnex5CjQDsr +UXd1vfZrmcJGChRerpscQKbyihulVClI5DHpxU5J+fPrOnUKwlUq2rEHKEkR +Hk0KBgXTa1bXJa0DhnUp4BQpJWDXLkseH6BTUCjbeAS7/7/uq936FNRGPAnC +Nnl89Fm7EQUF33NcsPuC7yo9BApkFjdpYYu6xRhUm1Ew+dFJGdvYfLddmQUF +LgUvpbGT5b79mbebgjSFOzzYNTylKVm2FEQ8lVzsR+4diynIsKPgoXfzFLbR +c6l3F50oCGLr9GEzy74NnXGmgGvs3Rfsi/+Ucp90ocDc9/U77G+RNrrRbhRE +bSltxBY5IG0d7kFBfMK1p6t5Nr3egV4U6L9vqV/dv+FY0gEfCsRI3XLsGkHb +bDcmBTPZbiWreTPSD5xZFKh9bi1czevpbbGjKGgRychdzWu+N2AVQAF7R9nN +1X7Vx5YgkAJdllzman627W87gilwOvsmYzX/oswWg1AKLAs//bWaz+nbtS2c +guVnemnY2x3jwlSjKDAaf3MJ+4K6bKYMh4IRkfIL2D2/ypqEYilIUHp7Htvw +7R/zK8cpsFehr/r/1vjgsQ== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.48341415918018676`, - 1.8971786059380225`}}, + "PlotRange" -> {{0, 180}, {0.9994991015565319, + 1.0005011018973462`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.4834141591801878}, + "AxesOrigin" -> {0, 0.9994991015565341}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.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 +10212,21 @@ icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.48341415918018676`, - 1.8971786059380225`}}, + "PlotRange" -> {{0, 180}, {0.9994991015565319, + 1.0005011018973462`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.4834141591801878}, + "AxesOrigin" -> {0, 0.9994991015565341}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 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 +10240,96 @@ 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:eJwd0nk0lVsfB/BDyJzhmiOZiijOQcjt+WWMa0qUsTjO85CZI50bKUWTkqQb +tytlTiQyhVoN3pLcKJoUkaGueR7K8O7tj732+qy99nd997CRGeZMctNotF40 +8Bzxeuum6tbXO/fqJESIcI8TZZzjz3gtmglz84RwbPl+Vc9Z8y8EdT4hBPuP +sVhjdvNXQjs3Khj70eKgEKeohzB7YhGE/T5eJqYqtJeo65k+hD3KZzE4Te8n +inkTA7D5LoS7M+YGCC2dGQpbSTyzMaLuB2HvZkliOyjM5o+aDxMTDxJ9samb +KtI6/KNEyfjhg9jH1R0Tg5rHiIQtVt7YH2Xa9aKKJgiRu6fdsFkegYeuXJgk +hGZnXbHH/6HdKg+dIqrNrPdi86voiE3QZ4gXg2fssdNYz6zFpGaJBCuOLbZy +gfvxbXOzRH7BbmtsI+3ToyF188THo+cAO8Dwa/Og+SIxHpikhz3NOcwjqLFE +5MzF6GCfqBMy1eRfJmKT7DSx08Hojn/zCnHv5UXl1X55jRaRRVxQVJAigl30 +/Ep3vAI3aB2O51/t+/1A7OUL3CBl57wGO1Zr5v690DUQIJM2L4z7lm5UHaPz +gr9Oeg92R+vwo+UcXjjseO4ztvJktYeoFB/cPubxDrtY3yFVZ44PRGmZjdgN +D45yBdfxQ0NBdgn2zLO2rz/MhSGt514EtoSdsFjMI2EQlpwOwNZttwARYxEY +fCTugx3YV3lTb6soBJ79Yo8dzt2s+7uwGMxOl27C7le5O5E4Kw5LrQ7tQvh+ +qCaBFoYE6P4yfonNfWdgo2yEBJjeWXmIrczY4Fw0JAEKN+ULsD3MU8pfd0sC +fTr5CHaLXyRb5pUUrOOPFMfuKkhO8uGXBpdZXh7s4aGinNuW0nCVEzUriCwY +1du247E0TJn2dGBbJLjo+1TKgEDPwi3s2lzDmcIsOYiN26yJndv/M9okShGq +O04qCCDvdj3TxS5RhA8RWYLYww2SViUDiqB99voCP7J+rraUsrsSVBjSP2A3 +MA/c5925Ac4/+JSCPTnWfeTHKWVQdpRYXossGWJRcd9eBYyG9B7zIQ/kCgY4 +BarA9Sy4g13zpVVh5LQKbF7Y+he2l533KY3HKsBzqygIO3dLtHMGXRU2/Kco +ha0/WDAeJ6MG0RdmfHmRXfyFdGx71GFCit27BpmIdqXvX1IH1tfZJmytxKzt +LDkNWKrzLMem5TDM4vZowOWKxhPYJV2e+8ufaMC6f7etx+bbVxwvn70Jdo4z +7LlxPwv794NMTdBeuyGdhpyz99rnuThNOG7YGIOdzOzp5rmuCZ/vOB/EZp04 +PKTUpgnJYUIa2OL1mbS95lognyRcvsKF/g9jVKtOdQsEXHdoWEZWULl0PKlP +GzY/73qziFx/flpzgVsHkt7M38X2mnJvpzbqwJuF0STsGw1qmmYHdGCiKMwS +W8W/9u38Bx048e5p1S9kreJ+derVVnh5qjz1J7KighKl7K4LP8693DaPrJ0X +JfyLoENOfvjKJDKTdWpGx4EOHvS099jpqqldPl50IGUySrDXZJfee86hw8U5 +K0/sjhuDLqlldLDdz6icQD6X7pOpqcoAss3Jbxx5IMluqxufPgTLlhWOIN+K +VHOqbDaA5FdZH78jt0YT2xPyjGHO6UveJ+SNB945eAf/Dvz+J2+9RCZXqu4q +/gmQFXG0vwZZZqhmrQzTDMT1/LpykaMYpl9StSzg9yqrmBTcf2SxUXLQEkqP +GC0dRS4xY6/NarGGI6cKJZnIudOBT4rTbKD4mHyoDfL8Ltl/G47/AS9SCTsd +5E7amokeX3vI0KvwFkMOXR+WEq/qCNF2Ls7TtHHi7qHGx1cTneCmzURXO/LR +Kbm5LYf2gHqnSlEV8oyt1b4XB51hD5tP/SqyseflXf179sKbYZs0NvJbuczA +BoYLRIZ7texFls8/VV+42RWkZae49ZBrurXsHET2waJ+grMYslL7uH/0yD4w +/BUf0r0yRjCuXi7O6d4P2Zs6vv+NnMkztTX1mRtUmXwK9kCu2rWtI/GBO/hU +mlhIIadvPy++WOQB+SbfyLfLY0TL57zTjAueIHJyjHEVudL+H7XwE15wX1KX +dEGeCNlLC2V5Q/xjgetyyDNWmgGj5gegasituWdpjCgc+TTPNjwIadTi6QJk +t1t5ft7CPvBCYDyRjXy//I+Da874gCLVOPM7srHC24VzCz6QL5jRJIqs2u3f +8eaQL9ScnyR7F8eIPqEgx396fSH5/XJlNXJrsoOftSsTRMM7rFKR0zhZQodb +mXA2JjoxBLn+0cqCn40fvNh0NtIeeZ0XnGHU+oFQvZQpA1n5txct6+v9wDMz +4i0dWbfZXpbvkR+cbJA4hO1s6nn74xM/cOZWv6aH89dHvzr20g8MhM/PbkOW +77yzrvGjH3D/6/VUG1ntgEy615wfcKXvT9ZANvYZLUzUZ4HLfY0FeeT8jHG2 +gyELpJm9+di/tU3ulDFiwfPxThfsUcu59sIdLKh/eqFMDjl3C42r2YwF9/73 +JkQWWXRO3F1iDwu48pcmpPB9XDQQyAphQerk8mZx5D0vtrf7h7FgnW58lxjy +I5pJlm4EC9g/dqVhZ7B3GjyNYgF0xtGwHdytfftjWDDl+v2zKPIDNfcHW86z +oCsq+oYwcnJd7KGafBYEaRU78yOH0K8ZcwpZQDd2Fce2u10mYFSEztdh0roW +WfDawO3qEhZ099Y5YCdGOg1WVbCgJO6qAx9yrKZaUOVTFvSpFbnzIAdeexVc +3sWCmMXITBqyjeiAaWQ3C9quVfphb06kidC/sSDDxEALeyDSoKSsnwVXcoeq +V36NEb4OWSP3hlkgEmDwfhnZjZcdWvqTBeEZhNISsjVbPrxYmoTdZpZfFpCf +Zp22TZUl4UvTeB62afOkGkeehIXsvjBsXfVXn8yVSLjvlMeDLfchxvyzOgm6 +Qkl688hDJp3SggYknNIbSp9FvsR986H/XhKMBqRvTCELbhNOt3cl4cGetnDs +BE9OJGM/CSqxH82xORVOm1Y8SBiSezg4iftTXJf/YpJg3Tq2A5vRxGT9L4KE +5paloXHkD5fVhVRTSFiybD05inyXEAn4cZmEjLcSvtgJI9MNJVdIiOG9SmDT +bRrijK6RkEW5LY0gJ9P8Ju1vkPDM4XMMtlXYzU+cYhK0g9oShpEVFc8a7rxL +wiNbcX/s6aawK2vukXB4LNkGO1uDsE++T4Jjis067KXOzsc5tSSoHqzPHEKu +sFMofN1Iwv6yjOeDyEk/uXnTmkh4XtFejM0sHPR1byaBme54BVuMp1ahr4WE +G3y8vtjBdW6XFt6TYHg7dOU/ZFWtv6LV+kngOO3cjf3zw7G2/wZI4Bfk0LFb +E0nd0h/o/Won1mPH9egPGg+T8HBt3uQP5I70Nm/HKRLUIoVuYaeuFbc8ykVB +098fBbDrJzs9o9ZQoOrKO/sd+XtnUWQoLwVhnfHfsE0rLG4yBSiY9gqsxx7w +4fyyFadAb9cCG1vMzlLCUpKC75dzmdg7tktoElIUVNRl7cFOESnex5CjQDsr +UXd1vfZrmcJGChRerpscQKbyihulVClI5DHpxU5J+fPrOnUKwlUq2rEHKEkR +Hk0KBgXTa1bXJa0DhnUp4BQpJWDXLkseH6BTUCjbeAS7/7/uq936FNRGPAnC +Nnl89Fm7EQUF33NcsPuC7yo9BApkFjdpYYu6xRhUm1Ew+dFJGdvYfLddmQUF +LgUvpbGT5b79mbebgjSFOzzYNTylKVm2FEQ8lVzsR+4diynIsKPgoXfzFLbR +c6l3F50oCGLr9GEzy74NnXGmgGvs3Rfsi/+Ucp90ocDc9/U77G+RNrrRbhRE +bSltxBY5IG0d7kFBfMK1p6t5Nr3egV4U6L9vqV/dv+FY0gEfCsRI3XLsGkHb +bDcmBTPZbiWreTPSD5xZFKh9bi1czevpbbGjKGgRychdzWu+N2AVQAF7R9nN +1X7Vx5YgkAJdllzman627W87gilwOvsmYzX/oswWg1AKLAs//bWaz+nbtS2c +guVnemnY2x3jwlSjKDAaf3MJ+4K6bKYMh4IRkfIL2D2/ypqEYilIUHp7Htvw +7R/zK8cpsFehr/r/1vjgsQ== "]]}, "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.9994991015565319, 1.0005011018973462`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9994991015565341}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 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 +10339,8 @@ icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.4834141591801878}, + AxesOrigin->{0, 0.9994991015565341}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -5419,7 +10368,8 @@ icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.48341415918018676`, 1.8971786059380225`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.9994991015565319, 1.0005011018973462`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -5427,9 +10377,9 @@ icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913460797739086`*^9}, + CellChangeTimes->{3.9913460797739086`*^9, 3.993961302205991*^9}, CellLabel-> - "Out[443]=",ExpressionUUID->"33ceb84f-c9c7-504c-ae94-1b1d69b769af"] + "Out[118]=",ExpressionUUID->"77553b83-7f0c-43bd-930b-71a9ad740b62"] }, Open ]], Cell[CellGroupData[{ @@ -5492,207 +10442,163 @@ 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[\\\"3.2082459129669`*^-287\\\", \ +\\\"126513546505547170185216000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 119, 41, + 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991346080016945*^9, 3.993961302355795*^9}, CellLabel-> "During evaluation of \ -In[444]:=",ExpressionUUID->"b616cb85-0c12-9449-8e54-a070530c7874"], +In[119]:=",ExpressionUUID->"4e0fd8e7-2422-4137-b499-612abdfd909b"], 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}, + "\"\\!\\(\\*FractionBox[\\\"4.505003767259736`*^-304\\\", \ +\\\"40990389067797283140009984000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 119, 42, + 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991346080016945*^9, 3.9939613023648787`*^9}, CellLabel-> "During evaluation of \ -In[444]:=",ExpressionUUID->"d17cbbe2-194b-ec4c-bb30-d2fcc4c1a181"], +In[119]:=",ExpressionUUID->"f9056cad-aa99-40d9-9628-9d52328a16ab"], 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}, + "\"\\!\\(\\*SuperscriptBox[\\\"3.7472593715250746`*^-9\\\", \\\"38\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 119, 43, 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991346080016945*^9, 3.993961302371623*^9}, CellLabel-> "During evaluation of \ -In[444]:=",ExpressionUUID->"6c23e3dc-9bc5-a441-99df-2985793b0df8"], +In[119]:=",ExpressionUUID->"c200c452-f221-4573-b0d1-e2836c8c05b5"], 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, 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991346080016945*^9, 3.993961302377698*^9}, CellLabel-> "During evaluation of \ -In[444]:=",ExpressionUUID->"de9af779-0821-a544-b1ce-6c66cf00e4d6"], +In[119]:=",ExpressionUUID->"521e47a3-2d70-4841-b4d8-45d5c79a13f2"], 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:eJwV13k8VdsXAHAPRWWKzNO910UDEiLDbS2ReU7IE2WKBkmiKFMpJSUJeeap +ZLqnMg95qKRIkrGukvBkajAU8ju/v87n+8fZ++y111p7H6r7STsvdjY2Nv6/ +2Nj+/5xnvWihx+btfua+ZnvVRf3d3Rli5/T7okDm2DvbHwIUQOHX7mJ9CWCj +5RfVIaAKQTYPejn6cmCP+iSrXABh47Rowq/eh7DGXzEjXsAGhuqsTv7sbYJu +ww4DCYFDYESf+PCttwt0Dessbfj84Vev1p3Z3mFIH/4jpsYVAc0G9/Le5PyA +nSaTokMJ8SA1VD3qrrQCbm6buFv3pcCm424PuAw4MLd/MTXibiYk7DCqtdrP +jQWnq9oCI3OhP0W18ZsAL2a5j1xkEQUQmxf+ml18I7LC+v8odBaCaOLnq7fT +hdDyU1+gSHgxiG0rv7RYIIQzK6p6zjHFINF0OfwgUwjb5396pdwqBpnZLWcU +m4WQvnbje468YpC38D9UOy6EHxbV1ZJbi0Gdc0Xzs/omrB5ajikVKAHrQJER +tbZN6HXnpWNKWglcsTfd3TUvjOI1qbtpuaUg8bhDgv0vEUxVjHLLLCqFUiH7 +hR0bRNDqaH2G8ONS6OlyZd6SFUGD3PjAqZZSoNsG0mxNRPD3ykdPs9FSaLLM +XNt5VwSzzRmpVYplsGI019GuJ4pjXRumD+WXQXxBSNGKkSgKvLljwlZSBvS1 +bDHKtqLoeNChMOVxGVg8Xa8f5yWKot7U0MfNZZBqQHlkcUMU//pn0TrlUxns +QvPkl0OimMY+JMfNx4TT2tluL6LE8LzyZpmhvUwwy+L7aX5dDN1PrT+5xpQJ +NK7zMR13xFCloqBsswUTOrsdiLf3xTAgP3XVy44JKv48HKwOMfxQFNVb68qE +8YLggu8S4pigs2rXHcQEl01WU5KPxLE+woKrKo8J6qG1kRl14nhToGTL+XtM +WD+8WYT6TBx98pe1GQ+YUF3GAQr94nh/9AS9oowJIubV8aqr4uhHzFAu1pDz +R9I19ppL4J7/lBquvmaC4czvEL/PEtj+LmrMdIEJ50wSt/47KYF8S1afM38x +oTRbeUBoXgJ3GV6Y+r7EBDH7Q9rV3JLI2xCgHM9GwGTV0wUOFdLrN7rdW0fA +7aj4wLtnJfFyjWWBiSQBw8IKfi28Ulju4d7vqEeA6Mkn0qKiUviK7jduvZsA +i1andl+KFGb0r67fiwRUhMQq8atL4fDAzVgFQwKuDc1OHHCSwmWRaxHPzAlQ +K6w9MpMjhTNKTSdCnAmI1LM9LLFLGpuswqUfnyHAxDXju9YeaTyY4f75VDAB +fBFfL+63kMYPhcv6SucISGuOLog/JI2zPybbks4TUGVW83XtVWkcSKeKGlwk +YNZJLuhHvzQWxR5dWLxJQGWIP9fGEWnMTaoKibhFQFhafYrKtDSOnUxO57xN +AM9Hx1pfdhk8lzjczJ5EgOKR62wft8qg8J0vmT3/EOB6Zu7aq1AZvLLlEfuH +AgLkk/dITUTL4E3+/iqV+/+P380SrngZNC4OELlQSEDI8pbOPXkyOGwg3cZf +TMCdi67C1a9k8HeyJY2XIODVreeZ+dKyWOlqsdGnhoz3o007mhVlUb+HJ+JS +LQHO7w43fdwhi1Eon5leR8C42PKIpJEsph2rnn3aQABHlurWBD9ZNJuQ/z7d +RIBO6d3HYU9kUaRzZj6njQDD3o6V6VZZnDhpZxH6kgArNk5jty5ZbB2DVptX +BHjY+fXDF1mcXte780c7AUah1PCINRRMvDM0L/yGgJf8dbm71lNw0v/CzV7S +NnkOrbN8FHSYnLFL6iLg7/bYjYfFKPiFP9plQzcB/rLzufrbKGhktXD1bQ8B +c4/iW39tp+BwRF1MWC8ZD5NtU4QGBQ02tlco9BEQfeqQJm03BVv6xHL9+glI +bW5rZbelYOahC6/eDxLQciRzqjmInL+o7YvaRwJMl7UFz4dSkFGhKkuQ7ojv +1tSIoGCU975bSp8I6K9eF5F3lYJ/0vbQJIcJmN4QKBidRkH2ejHu3s8EnM7i +02JkU3Aiv0wMRghY1Cj8ey6fgl1Ky955pDlcWXleZRR03gBPvL8QIMY00TJq +oqCohrV/2ygB6Yaf//7zjIJcWacipMYIoPVfiKh4SUH66eNvj5FWZn/0QuEd +BT1nYwzZxwl4mGQ5zeon18+x5GFKete2ccFkFgWP2Iy2xpHeYy/twjVOQT7P +Ti++/wh4Pl4Z8WSSgt736JlmpC0u2OUHf6Ogm2Q65RJpx4Ir02O/KbjrbPGf +adLvdWhCWasU/G843YUyQYD76zotJ04qrkb4rLEmfXzxW0QrLxVN1Pfq5JHW +OeUtMipIxaueCyPtpLknBoo4xKgY8+6S50/SPe7W+lRpKlJ9X1eLfiUgf7C5 +ZzeNivUD1V+0SAfa7zruokjF8nrF/+xJ72kv/itEiYr3zq+0+JEWMKImJ++g +4oATJSSaNKvhjlK5JhVTfYPW3SVdrLW+qUuXisn/jJ4uJB3CDHOcRSoC06mm +grTJlh+TvEZUlGCUf2gkLZJzJGqbORW3FX1hPSc9IvFe1NSGisaa3Q0vST+8 +bVPivZ+KpyePhb0iHcHzdM8lZyrql6TItJG2jtbuy3ajovIW46wW0jJ/Sk48 +8aTi3EdPzjrSk0E0jg++VJylfzRnkq6ZSUr57UfFU5vuB2eTjvHZoCIWSMYj +vTjmJmmHT+HNO89R0SqEFR5Cmu7802lfGBUPaGx3dSf9vctn2v8iFRdkb9GN +STeaf7h4I4aK+QcX3m4mfaPFVrw4jorjfftPcJF2YTwrfZFAxQbj7G/DZPy3 +VugYjiVT8fOW14drSf9SKevnTKeiVuu7hnjSrffkTtJyqMijUbzOg3QSJYUT +71Ex1sjMQI20mmDk9lCCiox7jZefk/nBFjvXklJBxdGY6wlxpDs4jjpX1FLx +pSbXLRvSx+bsor89pWJu4qJvO5mPOn7PJfhfku8v+xhdIc09pstU6qSiQEao ++G7SeX30wSMDVFx74OK9HDLfA2zv+kcPUbFv11lPG9LYxrs2d4SKiyw+qSWy +Xj7Uzquypql413hLuDFpkczWy/YcNFybHLCjjqy3EVGGVAA3DcODOodsST+M +J4ibvDQMHPkeP0LWq3VU6vs2URqur8xbZSMd43VcTV+Jhodyn2wTIevdgfXx +uesOGlqZIm8i2Q/ojvsPntekYX99zy8+0o0mu2MqkYa16qGLSywyntsEWMr7 +aSjpa1j48D0B8+kSkerONJS5LtwrSfonvzxd242GS/OJ6lFk/5n+oX3U0JeG +oXfKzhsNkOdfrce88wUaPhuYOlZC9rM280q+mHwaSmX75M+R/fF5/b9E3AMa +sgV7aauRbtn+yv52GQ3NPNJ4jncS0CD0KTWjmoZCNbOBvR3kegfXK5a303Cn +OOtoHNmfU4+5wvAcDRV9NgwGtRCQ/MFneOw3DTfWBg1faSYg0fp09NQqDSPj +UCeJ7Pc31GNeLq6TQ/GHFkMPGgmIWiIc+WXkUH5sVvoxeV4ci13jr2ckh0vb +Iz2NHxOgV1SclZQkh1dZ8PVsNgGDlKLMvf/I4YOhwt/mWWQ9JhVm/MyUw8E4 +pbdSmeR5GVmQZlcohx0mup8r08j8cspK4asjx89qv/s2mYAtaxLjL3+Sw6lw +H42cOHJ/3UIjgpToKCfn35FDntfl3efC5XfQkdNZsU81iAB7s7Nh3TvpKBKc +8qIukICEnWfOqwEd+2kJRzpOEcDLc/LstC0dA+ycivqOEcBZ7e7vHUxH9oud +KtfcCPgmaHbIoYmOXK2u4j57Ceg7Tus8+pyOJXrXZOINyP1+9hvCX9HxktWx +rnJ9AuJDimTv99AxNOic+W8GAarDPEO/Jsj55tfeO6JJgB/x+mC6kDwaUDgV +3ykQMGG9/+8RT3mskmCd5lxL5uf1Qw4BXAqYo28e/KeeCX4TSjRVHgXk5hnW +flrLhAXjX1NTAgpYSFzUv1ZN3t84EqJ9JRRwcNmGzl/OBNVzzY8PKSvgl/Fl +B85iJlzwUhCy3keO99LSJ/0ueZ/bPfl6W6YCKjmc+HPrNBNMZ4JNv2gq4nWX +HvdmGhMmPbhPPw7fjGEiOSKvG0vJ/wlR9itNW/DqpJjXT7ESEGxXuMGc2Yqf +h0Ms1E4VgVRMmY2mphKWj2q9S40vhJRt2gJCR5TxTLy6elDLPWiT0N/545YK +yvGkTXxcyQcdqab47T3bkc7MnxTalAd8HDmBh6NUUexknLCYfQ7IRMrqHVDY +gd4GSQ5bw7JgnbxLhd3zHbg3wtU07Vo6qDDEy4IPquFlQwtBn/BUCGAJNpux +qaPR0nBbl3cyzPy4vt80RR29jkpJhlcmgvH2Z6mmyho4LfD7dI1JAjT80F1a +6NBAj5wTXrH1N8FPSW3gjddO7LM/ILPpfiwwpj27D6zTxFubQvcrlFyBvXQx +S94cTaRMFBmMuVyCzRHXzjZpaeGMa0PVr7ORsNVL+4n8gBZ2fDUXnDl+Abwa +fC49PrULF2tC6rSmzsKTrG7Pb8LaWHxGcfTKo0D4eX91YXulNu73VbnWI38K +POSL1qVa6iC9crhULeM4fNt6W/PhrA6On3Xbq+5+BKrylj7Nxeji9b87TKv2 +eICmQeCCWawudn38kTWi7gHlnyZ5suJ0kX61bFBC3gMeyrC0zBJ0Ufvsz9E8 +Lg8oTmmMy/hHF3P2ujaptLtD1vVobeNSXdS56bi6ydkdrgby30p5q4vC3y0v +cIUeBmdDOdSV0cPtd+ofdTHdYKWbm6+ZoofZYwsuJXfcIMtretBMTg+NZ0wc +0kLcYPRydbDzZj2skvrOVWnoBgEvrMvOqemhYkAjP6vfFa5ZnZepMtLDiYRp +jnEuV6hxerescVIPabLNfMkBLiB54kq1SqMeHuAVWWgPPwA3Vr13xjbp4Unh +w7tZRw8Ae4IRMdZCOpt1f2X/AZioWFOY9UIPzScdm32VDkAN26UUwbd6iC1u +gvP9TuCcGBE8/0UPJZur9vZqOUFK7bmdDRsYqDurujXsjwMIrz9OWDoykNPT +Qje03B7yDC6EzB5gYKZlYs26HHtQu3DD4LYLA6VECn3v37AHq1nmu77DDBx/ +IbNVxMceLvfM/fI4zkC0qP9FSNrDYk74npBIBgr2Ogh+it4HA7q33xYUMXCN +u5Nhp5cd+JzJSzMtZWDFRIGVtb0dzJeWe00yGehokbv1wx47EKT1LeyoYODA +pKOyPMUOzLmlpeobGfgo4Lmm16At1HUXeL59x8DKlxkaafa2YMZXpRzUx8BX +kor+HIa20Gf8Yl5skIHOu+/3nFW3hZ81X2NcPzJwKef+UpygLShnq5b8N8FA +WaZrzKE3NlA3oB90fYr8fpbBH61/bcBs0z7YPsvA9yW9ltKEDXhfOfMmcI6c +j7PDduMtG/jZeDlVdJGBiSmy32UjbSDqd7JHzW8G/hlZMdA7ZQMCGoVKB1cY +6MLnx/A+bAMZJ2rmVlcZGFYY0p1uawP/A/kC2Og= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -5706,166 +10612,119 @@ 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:eJwV13k8VdsXAHAPRWWKzNO910UDEiLDbS2ReU7IE2WKBkmiKFMpJSUJeeap +ZLqnMg95qKRIkrGukvBkajAU8ju/v87n+8fZ++y111p7H6r7STsvdjY2Nv6/ +2Nj+/5xnvWihx+btfua+ZnvVRf3d3Rli5/T7okDm2DvbHwIUQOHX7mJ9CWCj +5RfVIaAKQTYPejn6cmCP+iSrXABh47Rowq/eh7DGXzEjXsAGhuqsTv7sbYJu +ww4DCYFDYESf+PCttwt0Dessbfj84Vev1p3Z3mFIH/4jpsYVAc0G9/Le5PyA +nSaTokMJ8SA1VD3qrrQCbm6buFv3pcCm424PuAw4MLd/MTXibiYk7DCqtdrP +jQWnq9oCI3OhP0W18ZsAL2a5j1xkEQUQmxf+ml18I7LC+v8odBaCaOLnq7fT +hdDyU1+gSHgxiG0rv7RYIIQzK6p6zjHFINF0OfwgUwjb5396pdwqBpnZLWcU +m4WQvnbje468YpC38D9UOy6EHxbV1ZJbi0Gdc0Xzs/omrB5ajikVKAHrQJER +tbZN6HXnpWNKWglcsTfd3TUvjOI1qbtpuaUg8bhDgv0vEUxVjHLLLCqFUiH7 +hR0bRNDqaH2G8ONS6OlyZd6SFUGD3PjAqZZSoNsG0mxNRPD3ykdPs9FSaLLM +XNt5VwSzzRmpVYplsGI019GuJ4pjXRumD+WXQXxBSNGKkSgKvLljwlZSBvS1 +bDHKtqLoeNChMOVxGVg8Xa8f5yWKot7U0MfNZZBqQHlkcUMU//pn0TrlUxns +QvPkl0OimMY+JMfNx4TT2tluL6LE8LzyZpmhvUwwy+L7aX5dDN1PrT+5xpQJ +NK7zMR13xFCloqBsswUTOrsdiLf3xTAgP3XVy44JKv48HKwOMfxQFNVb68qE +8YLggu8S4pigs2rXHcQEl01WU5KPxLE+woKrKo8J6qG1kRl14nhToGTL+XtM +WD+8WYT6TBx98pe1GQ+YUF3GAQr94nh/9AS9oowJIubV8aqr4uhHzFAu1pDz +R9I19ppL4J7/lBquvmaC4czvEL/PEtj+LmrMdIEJ50wSt/47KYF8S1afM38x +oTRbeUBoXgJ3GV6Y+r7EBDH7Q9rV3JLI2xCgHM9GwGTV0wUOFdLrN7rdW0fA +7aj4wLtnJfFyjWWBiSQBw8IKfi28Ulju4d7vqEeA6Mkn0qKiUviK7jduvZsA +i1andl+KFGb0r67fiwRUhMQq8atL4fDAzVgFQwKuDc1OHHCSwmWRaxHPzAlQ +K6w9MpMjhTNKTSdCnAmI1LM9LLFLGpuswqUfnyHAxDXju9YeaTyY4f75VDAB +fBFfL+63kMYPhcv6SucISGuOLog/JI2zPybbks4TUGVW83XtVWkcSKeKGlwk +YNZJLuhHvzQWxR5dWLxJQGWIP9fGEWnMTaoKibhFQFhafYrKtDSOnUxO57xN +AM9Hx1pfdhk8lzjczJ5EgOKR62wft8qg8J0vmT3/EOB6Zu7aq1AZvLLlEfuH +AgLkk/dITUTL4E3+/iqV+/+P380SrngZNC4OELlQSEDI8pbOPXkyOGwg3cZf +TMCdi67C1a9k8HeyJY2XIODVreeZ+dKyWOlqsdGnhoz3o007mhVlUb+HJ+JS +LQHO7w43fdwhi1Eon5leR8C42PKIpJEsph2rnn3aQABHlurWBD9ZNJuQ/z7d +RIBO6d3HYU9kUaRzZj6njQDD3o6V6VZZnDhpZxH6kgArNk5jty5ZbB2DVptX +BHjY+fXDF1mcXte780c7AUah1PCINRRMvDM0L/yGgJf8dbm71lNw0v/CzV7S +NnkOrbN8FHSYnLFL6iLg7/bYjYfFKPiFP9plQzcB/rLzufrbKGhktXD1bQ8B +c4/iW39tp+BwRF1MWC8ZD5NtU4QGBQ02tlco9BEQfeqQJm03BVv6xHL9+glI +bW5rZbelYOahC6/eDxLQciRzqjmInL+o7YvaRwJMl7UFz4dSkFGhKkuQ7ojv +1tSIoGCU975bSp8I6K9eF5F3lYJ/0vbQJIcJmN4QKBidRkH2ejHu3s8EnM7i +02JkU3Aiv0wMRghY1Cj8ey6fgl1Ky955pDlcWXleZRR03gBPvL8QIMY00TJq +oqCohrV/2ygB6Yaf//7zjIJcWacipMYIoPVfiKh4SUH66eNvj5FWZn/0QuEd +BT1nYwzZxwl4mGQ5zeon18+x5GFKete2ccFkFgWP2Iy2xpHeYy/twjVOQT7P +Ti++/wh4Pl4Z8WSSgt736JlmpC0u2OUHf6Ogm2Q65RJpx4Ir02O/KbjrbPGf +adLvdWhCWasU/G843YUyQYD76zotJ04qrkb4rLEmfXzxW0QrLxVN1Pfq5JHW +OeUtMipIxaueCyPtpLknBoo4xKgY8+6S50/SPe7W+lRpKlJ9X1eLfiUgf7C5 +ZzeNivUD1V+0SAfa7zruokjF8nrF/+xJ72kv/itEiYr3zq+0+JEWMKImJ++g +4oATJSSaNKvhjlK5JhVTfYPW3SVdrLW+qUuXisn/jJ4uJB3CDHOcRSoC06mm +grTJlh+TvEZUlGCUf2gkLZJzJGqbORW3FX1hPSc9IvFe1NSGisaa3Q0vST+8 +bVPivZ+KpyePhb0iHcHzdM8lZyrql6TItJG2jtbuy3ajovIW46wW0jJ/Sk48 +8aTi3EdPzjrSk0E0jg++VJylfzRnkq6ZSUr57UfFU5vuB2eTjvHZoCIWSMYj +vTjmJmmHT+HNO89R0SqEFR5Cmu7802lfGBUPaGx3dSf9vctn2v8iFRdkb9GN +STeaf7h4I4aK+QcX3m4mfaPFVrw4jorjfftPcJF2YTwrfZFAxQbj7G/DZPy3 +VugYjiVT8fOW14drSf9SKevnTKeiVuu7hnjSrffkTtJyqMijUbzOg3QSJYUT +71Ex1sjMQI20mmDk9lCCiox7jZefk/nBFjvXklJBxdGY6wlxpDs4jjpX1FLx +pSbXLRvSx+bsor89pWJu4qJvO5mPOn7PJfhfku8v+xhdIc09pstU6qSiQEao ++G7SeX30wSMDVFx74OK9HDLfA2zv+kcPUbFv11lPG9LYxrs2d4SKiyw+qSWy +Xj7Uzquypql413hLuDFpkczWy/YcNFybHLCjjqy3EVGGVAA3DcODOodsST+M +J4ibvDQMHPkeP0LWq3VU6vs2URqur8xbZSMd43VcTV+Jhodyn2wTIevdgfXx +uesOGlqZIm8i2Q/ojvsPntekYX99zy8+0o0mu2MqkYa16qGLSywyntsEWMr7 +aSjpa1j48D0B8+kSkerONJS5LtwrSfonvzxd242GS/OJ6lFk/5n+oX3U0JeG +oXfKzhsNkOdfrce88wUaPhuYOlZC9rM280q+mHwaSmX75M+R/fF5/b9E3AMa +sgV7aauRbtn+yv52GQ3NPNJ4jncS0CD0KTWjmoZCNbOBvR3kegfXK5a303Cn +OOtoHNmfU4+5wvAcDRV9NgwGtRCQ/MFneOw3DTfWBg1faSYg0fp09NQqDSPj +UCeJ7Pc31GNeLq6TQ/GHFkMPGgmIWiIc+WXkUH5sVvoxeV4ci13jr2ckh0vb +Iz2NHxOgV1SclZQkh1dZ8PVsNgGDlKLMvf/I4YOhwt/mWWQ9JhVm/MyUw8E4 +pbdSmeR5GVmQZlcohx0mup8r08j8cspK4asjx89qv/s2mYAtaxLjL3+Sw6lw +H42cOHJ/3UIjgpToKCfn35FDntfl3efC5XfQkdNZsU81iAB7s7Nh3TvpKBKc +8qIukICEnWfOqwEd+2kJRzpOEcDLc/LstC0dA+ycivqOEcBZ7e7vHUxH9oud +KtfcCPgmaHbIoYmOXK2u4j57Ceg7Tus8+pyOJXrXZOINyP1+9hvCX9HxktWx +rnJ9AuJDimTv99AxNOic+W8GAarDPEO/Jsj55tfeO6JJgB/x+mC6kDwaUDgV +3ykQMGG9/+8RT3mskmCd5lxL5uf1Qw4BXAqYo28e/KeeCX4TSjRVHgXk5hnW +flrLhAXjX1NTAgpYSFzUv1ZN3t84EqJ9JRRwcNmGzl/OBNVzzY8PKSvgl/Fl +B85iJlzwUhCy3keO99LSJ/0ueZ/bPfl6W6YCKjmc+HPrNBNMZ4JNv2gq4nWX +HvdmGhMmPbhPPw7fjGEiOSKvG0vJ/wlR9itNW/DqpJjXT7ESEGxXuMGc2Yqf +h0Ms1E4VgVRMmY2mphKWj2q9S40vhJRt2gJCR5TxTLy6elDLPWiT0N/545YK +yvGkTXxcyQcdqab47T3bkc7MnxTalAd8HDmBh6NUUexknLCYfQ7IRMrqHVDY +gd4GSQ5bw7JgnbxLhd3zHbg3wtU07Vo6qDDEy4IPquFlQwtBn/BUCGAJNpux +qaPR0nBbl3cyzPy4vt80RR29jkpJhlcmgvH2Z6mmyho4LfD7dI1JAjT80F1a +6NBAj5wTXrH1N8FPSW3gjddO7LM/ILPpfiwwpj27D6zTxFubQvcrlFyBvXQx +S94cTaRMFBmMuVyCzRHXzjZpaeGMa0PVr7ORsNVL+4n8gBZ2fDUXnDl+Abwa +fC49PrULF2tC6rSmzsKTrG7Pb8LaWHxGcfTKo0D4eX91YXulNu73VbnWI38K +POSL1qVa6iC9crhULeM4fNt6W/PhrA6On3Xbq+5+BKrylj7Nxeji9b87TKv2 +eICmQeCCWawudn38kTWi7gHlnyZ5suJ0kX61bFBC3gMeyrC0zBJ0Ufvsz9E8 +Lg8oTmmMy/hHF3P2ujaptLtD1vVobeNSXdS56bi6ydkdrgby30p5q4vC3y0v +cIUeBmdDOdSV0cPtd+ofdTHdYKWbm6+ZoofZYwsuJXfcIMtretBMTg+NZ0wc +0kLcYPRydbDzZj2skvrOVWnoBgEvrMvOqemhYkAjP6vfFa5ZnZepMtLDiYRp +jnEuV6hxerescVIPabLNfMkBLiB54kq1SqMeHuAVWWgPPwA3Vr13xjbp4Unh +w7tZRw8Ae4IRMdZCOpt1f2X/AZioWFOY9UIPzScdm32VDkAN26UUwbd6iC1u +gvP9TuCcGBE8/0UPJZur9vZqOUFK7bmdDRsYqDurujXsjwMIrz9OWDoykNPT +Qje03B7yDC6EzB5gYKZlYs26HHtQu3DD4LYLA6VECn3v37AHq1nmu77DDBx/ +IbNVxMceLvfM/fI4zkC0qP9FSNrDYk74npBIBgr2Ogh+it4HA7q33xYUMXCN +u5Nhp5cd+JzJSzMtZWDFRIGVtb0dzJeWe00yGehokbv1wx47EKT1LeyoYODA +pKOyPMUOzLmlpeobGfgo4Lmm16At1HUXeL59x8DKlxkaafa2YMZXpRzUx8BX +kor+HIa20Gf8Yl5skIHOu+/3nFW3hZ81X2NcPzJwKef+UpygLShnq5b8N8FA +WaZrzKE3NlA3oB90fYr8fpbBH61/bcBs0z7YPsvA9yW9ltKEDXhfOfMmcI6c +j7PDduMtG/jZeDlVdJGBiSmy32UjbSDqd7JHzW8G/hlZMdA7ZQMCGoVKB1cY +6MLnx/A+bAMZJ2rmVlcZGFYY0p1uawP/A/kC2Og= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "PlotRange" -> {{0, 30}, {0., 0.07000425421203875}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +10736,19 @@ heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "PlotRange" -> {{0, 30}, {0., 0.07000425421203875}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +10762,118 @@ 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:eJwV13k8VdsXAHAPRWWKzNO910UDEiLDbS2ReU7IE2WKBkmiKFMpJSUJeeap +ZLqnMg95qKRIkrGukvBkajAU8ju/v87n+8fZ++y111p7H6r7STsvdjY2Nv6/ +2Nj+/5xnvWihx+btfua+ZnvVRf3d3Rli5/T7okDm2DvbHwIUQOHX7mJ9CWCj +5RfVIaAKQTYPejn6cmCP+iSrXABh47Rowq/eh7DGXzEjXsAGhuqsTv7sbYJu +ww4DCYFDYESf+PCttwt0Dessbfj84Vev1p3Z3mFIH/4jpsYVAc0G9/Le5PyA +nSaTokMJ8SA1VD3qrrQCbm6buFv3pcCm424PuAw4MLd/MTXibiYk7DCqtdrP +jQWnq9oCI3OhP0W18ZsAL2a5j1xkEQUQmxf+ml18I7LC+v8odBaCaOLnq7fT +hdDyU1+gSHgxiG0rv7RYIIQzK6p6zjHFINF0OfwgUwjb5396pdwqBpnZLWcU +m4WQvnbje468YpC38D9UOy6EHxbV1ZJbi0Gdc0Xzs/omrB5ajikVKAHrQJER +tbZN6HXnpWNKWglcsTfd3TUvjOI1qbtpuaUg8bhDgv0vEUxVjHLLLCqFUiH7 +hR0bRNDqaH2G8ONS6OlyZd6SFUGD3PjAqZZSoNsG0mxNRPD3ykdPs9FSaLLM +XNt5VwSzzRmpVYplsGI019GuJ4pjXRumD+WXQXxBSNGKkSgKvLljwlZSBvS1 +bDHKtqLoeNChMOVxGVg8Xa8f5yWKot7U0MfNZZBqQHlkcUMU//pn0TrlUxns +QvPkl0OimMY+JMfNx4TT2tluL6LE8LzyZpmhvUwwy+L7aX5dDN1PrT+5xpQJ +NK7zMR13xFCloqBsswUTOrsdiLf3xTAgP3XVy44JKv48HKwOMfxQFNVb68qE +8YLggu8S4pigs2rXHcQEl01WU5KPxLE+woKrKo8J6qG1kRl14nhToGTL+XtM +WD+8WYT6TBx98pe1GQ+YUF3GAQr94nh/9AS9oowJIubV8aqr4uhHzFAu1pDz +R9I19ppL4J7/lBquvmaC4czvEL/PEtj+LmrMdIEJ50wSt/47KYF8S1afM38x +oTRbeUBoXgJ3GV6Y+r7EBDH7Q9rV3JLI2xCgHM9GwGTV0wUOFdLrN7rdW0fA +7aj4wLtnJfFyjWWBiSQBw8IKfi28Ulju4d7vqEeA6Mkn0qKiUviK7jduvZsA +i1andl+KFGb0r67fiwRUhMQq8atL4fDAzVgFQwKuDc1OHHCSwmWRaxHPzAlQ +K6w9MpMjhTNKTSdCnAmI1LM9LLFLGpuswqUfnyHAxDXju9YeaTyY4f75VDAB +fBFfL+63kMYPhcv6SucISGuOLog/JI2zPybbks4TUGVW83XtVWkcSKeKGlwk +YNZJLuhHvzQWxR5dWLxJQGWIP9fGEWnMTaoKibhFQFhafYrKtDSOnUxO57xN +AM9Hx1pfdhk8lzjczJ5EgOKR62wft8qg8J0vmT3/EOB6Zu7aq1AZvLLlEfuH +AgLkk/dITUTL4E3+/iqV+/+P380SrngZNC4OELlQSEDI8pbOPXkyOGwg3cZf +TMCdi67C1a9k8HeyJY2XIODVreeZ+dKyWOlqsdGnhoz3o007mhVlUb+HJ+JS +LQHO7w43fdwhi1Eon5leR8C42PKIpJEsph2rnn3aQABHlurWBD9ZNJuQ/z7d +RIBO6d3HYU9kUaRzZj6njQDD3o6V6VZZnDhpZxH6kgArNk5jty5ZbB2DVptX +BHjY+fXDF1mcXte780c7AUah1PCINRRMvDM0L/yGgJf8dbm71lNw0v/CzV7S +NnkOrbN8FHSYnLFL6iLg7/bYjYfFKPiFP9plQzcB/rLzufrbKGhktXD1bQ8B +c4/iW39tp+BwRF1MWC8ZD5NtU4QGBQ02tlco9BEQfeqQJm03BVv6xHL9+glI +bW5rZbelYOahC6/eDxLQciRzqjmInL+o7YvaRwJMl7UFz4dSkFGhKkuQ7ojv +1tSIoGCU975bSp8I6K9eF5F3lYJ/0vbQJIcJmN4QKBidRkH2ejHu3s8EnM7i +02JkU3Aiv0wMRghY1Cj8ey6fgl1Ky955pDlcWXleZRR03gBPvL8QIMY00TJq +oqCohrV/2ygB6Yaf//7zjIJcWacipMYIoPVfiKh4SUH66eNvj5FWZn/0QuEd +BT1nYwzZxwl4mGQ5zeon18+x5GFKete2ccFkFgWP2Iy2xpHeYy/twjVOQT7P +Ti++/wh4Pl4Z8WSSgt736JlmpC0u2OUHf6Ogm2Q65RJpx4Ir02O/KbjrbPGf +adLvdWhCWasU/G843YUyQYD76zotJ04qrkb4rLEmfXzxW0QrLxVN1Pfq5JHW +OeUtMipIxaueCyPtpLknBoo4xKgY8+6S50/SPe7W+lRpKlJ9X1eLfiUgf7C5 +ZzeNivUD1V+0SAfa7zruokjF8nrF/+xJ72kv/itEiYr3zq+0+JEWMKImJ++g +4oATJSSaNKvhjlK5JhVTfYPW3SVdrLW+qUuXisn/jJ4uJB3CDHOcRSoC06mm +grTJlh+TvEZUlGCUf2gkLZJzJGqbORW3FX1hPSc9IvFe1NSGisaa3Q0vST+8 +bVPivZ+KpyePhb0iHcHzdM8lZyrql6TItJG2jtbuy3ajovIW46wW0jJ/Sk48 +8aTi3EdPzjrSk0E0jg++VJylfzRnkq6ZSUr57UfFU5vuB2eTjvHZoCIWSMYj +vTjmJmmHT+HNO89R0SqEFR5Cmu7802lfGBUPaGx3dSf9vctn2v8iFRdkb9GN +STeaf7h4I4aK+QcX3m4mfaPFVrw4jorjfftPcJF2YTwrfZFAxQbj7G/DZPy3 +VugYjiVT8fOW14drSf9SKevnTKeiVuu7hnjSrffkTtJyqMijUbzOg3QSJYUT +71Ex1sjMQI20mmDk9lCCiox7jZefk/nBFjvXklJBxdGY6wlxpDs4jjpX1FLx +pSbXLRvSx+bsor89pWJu4qJvO5mPOn7PJfhfku8v+xhdIc09pstU6qSiQEao ++G7SeX30wSMDVFx74OK9HDLfA2zv+kcPUbFv11lPG9LYxrs2d4SKiyw+qSWy +Xj7Uzquypql413hLuDFpkczWy/YcNFybHLCjjqy3EVGGVAA3DcODOodsST+M +J4ibvDQMHPkeP0LWq3VU6vs2URqur8xbZSMd43VcTV+Jhodyn2wTIevdgfXx +uesOGlqZIm8i2Q/ojvsPntekYX99zy8+0o0mu2MqkYa16qGLSywyntsEWMr7 +aSjpa1j48D0B8+kSkerONJS5LtwrSfonvzxd242GS/OJ6lFk/5n+oX3U0JeG +oXfKzhsNkOdfrce88wUaPhuYOlZC9rM280q+mHwaSmX75M+R/fF5/b9E3AMa +sgV7aauRbtn+yv52GQ3NPNJ4jncS0CD0KTWjmoZCNbOBvR3kegfXK5a303Cn +OOtoHNmfU4+5wvAcDRV9NgwGtRCQ/MFneOw3DTfWBg1faSYg0fp09NQqDSPj +UCeJ7Pc31GNeLq6TQ/GHFkMPGgmIWiIc+WXkUH5sVvoxeV4ci13jr2ckh0vb +Iz2NHxOgV1SclZQkh1dZ8PVsNgGDlKLMvf/I4YOhwt/mWWQ9JhVm/MyUw8E4 +pbdSmeR5GVmQZlcohx0mup8r08j8cspK4asjx89qv/s2mYAtaxLjL3+Sw6lw +H42cOHJ/3UIjgpToKCfn35FDntfl3efC5XfQkdNZsU81iAB7s7Nh3TvpKBKc +8qIukICEnWfOqwEd+2kJRzpOEcDLc/LstC0dA+ycivqOEcBZ7e7vHUxH9oud +KtfcCPgmaHbIoYmOXK2u4j57Ceg7Tus8+pyOJXrXZOINyP1+9hvCX9HxktWx +rnJ9AuJDimTv99AxNOic+W8GAarDPEO/Jsj55tfeO6JJgB/x+mC6kDwaUDgV +3ykQMGG9/+8RT3mskmCd5lxL5uf1Qw4BXAqYo28e/KeeCX4TSjRVHgXk5hnW +flrLhAXjX1NTAgpYSFzUv1ZN3t84EqJ9JRRwcNmGzl/OBNVzzY8PKSvgl/Fl +B85iJlzwUhCy3keO99LSJ/0ueZ/bPfl6W6YCKjmc+HPrNBNMZ4JNv2gq4nWX +HvdmGhMmPbhPPw7fjGEiOSKvG0vJ/wlR9itNW/DqpJjXT7ESEGxXuMGc2Yqf +h0Ms1E4VgVRMmY2mphKWj2q9S40vhJRt2gJCR5TxTLy6elDLPWiT0N/545YK +yvGkTXxcyQcdqab47T3bkc7MnxTalAd8HDmBh6NUUexknLCYfQ7IRMrqHVDY +gd4GSQ5bw7JgnbxLhd3zHbg3wtU07Vo6qDDEy4IPquFlQwtBn/BUCGAJNpux +qaPR0nBbl3cyzPy4vt80RR29jkpJhlcmgvH2Z6mmyho4LfD7dI1JAjT80F1a +6NBAj5wTXrH1N8FPSW3gjddO7LM/ILPpfiwwpj27D6zTxFubQvcrlFyBvXQx +S94cTaRMFBmMuVyCzRHXzjZpaeGMa0PVr7ORsNVL+4n8gBZ2fDUXnDl+Abwa +fC49PrULF2tC6rSmzsKTrG7Pb8LaWHxGcfTKo0D4eX91YXulNu73VbnWI38K +POSL1qVa6iC9crhULeM4fNt6W/PhrA6On3Xbq+5+BKrylj7Nxeji9b87TKv2 +eICmQeCCWawudn38kTWi7gHlnyZ5suJ0kX61bFBC3gMeyrC0zBJ0Ufvsz9E8 +Lg8oTmmMy/hHF3P2ujaptLtD1vVobeNSXdS56bi6ydkdrgby30p5q4vC3y0v +cIUeBmdDOdSV0cPtd+ofdTHdYKWbm6+ZoofZYwsuJXfcIMtretBMTg+NZ0wc +0kLcYPRydbDzZj2skvrOVWnoBgEvrMvOqemhYkAjP6vfFa5ZnZepMtLDiYRp +jnEuV6hxerescVIPabLNfMkBLiB54kq1SqMeHuAVWWgPPwA3Vr13xjbp4Unh +w7tZRw8Ae4IRMdZCOpt1f2X/AZioWFOY9UIPzScdm32VDkAN26UUwbd6iC1u +gvP9TuCcGBE8/0UPJZur9vZqOUFK7bmdDRsYqDurujXsjwMIrz9OWDoykNPT +Qje03B7yDC6EzB5gYKZlYs26HHtQu3DD4LYLA6VECn3v37AHq1nmu77DDBx/ +IbNVxMceLvfM/fI4zkC0qP9FSNrDYk74npBIBgr2Ogh+it4HA7q33xYUMXCN +u5Nhp5cd+JzJSzMtZWDFRIGVtb0dzJeWe00yGehokbv1wx47EKT1LeyoYODA +pKOyPMUOzLmlpeobGfgo4Lmm16At1HUXeL59x8DKlxkaafa2YMZXpRzUx8BX +kor+HIa20Gf8Yl5skIHOu+/3nFW3hZ81X2NcPzJwKef+UpygLShnq5b8N8FA +WaZrzKE3NlA3oB90fYr8fpbBH61/bcBs0z7YPsvA9yW9ltKEDXhfOfMmcI6c +j7PDduMtG/jZeDlVdJGBiSmy32UjbSDqd7JHzW8G/hlZMdA7ZQMCGoVKB1cY +6MLnx/A+bAMZJ2rmVlcZGFYY0p1uawP/A/kC2Og= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "PlotRange" -> {{0, 30}, {0., 0.07000425421203875}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +10884,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 +10912,8 @@ heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.1760850255633475}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07000425421203875}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -6107,17 +10921,574 @@ heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913465524249306`*^9}, + CellChangeTimes->{3.9913465524249306`*^9, 3.993961499134606*^9}, CellLabel-> - "Out[444]=",ExpressionUUID->"d2a47969-eb62-c243-9b06-713ae9ea0a7d"] + "Out[119]=",ExpressionUUID->"f270b8ae-ec4d-47c5-b6cf-607ca18dd088"] }, 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:eJwV13k8VdsXAHAPRWWKzNO910UDEiLDbS2ReU7IE2WKBkmiKFMpJSUJeeap +ZLqnMg95qKRIkrGukvBkajAU8ju/v87n+8fZ++y111p7H6r7STsvdjY2Nv6/ +2Nj+/5xnvWihx+btfua+ZnvVRf3d3Rli5/T7okDm2DvbHwIUQOHX7mJ9CWCj +5RfVIaAKQTYPejn6cmCP+iSrXABh47Rowq/eh7DGXzEjXsAGhuqsTv7sbYJu +ww4DCYFDYESf+PCttwt0Dessbfj84Vev1p3Z3mFIH/4jpsYVAc0G9/Le5PyA +nSaTokMJ8SA1VD3qrrQCbm6buFv3pcCm424PuAw4MLd/MTXibiYk7DCqtdrP +jQWnq9oCI3OhP0W18ZsAL2a5j1xkEQUQmxf+ml18I7LC+v8odBaCaOLnq7fT +hdDyU1+gSHgxiG0rv7RYIIQzK6p6zjHFINF0OfwgUwjb5396pdwqBpnZLWcU +m4WQvnbje468YpC38D9UOy6EHxbV1ZJbi0Gdc0Xzs/omrB5ajikVKAHrQJER +tbZN6HXnpWNKWglcsTfd3TUvjOI1qbtpuaUg8bhDgv0vEUxVjHLLLCqFUiH7 +hR0bRNDqaH2G8ONS6OlyZd6SFUGD3PjAqZZSoNsG0mxNRPD3ykdPs9FSaLLM +XNt5VwSzzRmpVYplsGI019GuJ4pjXRumD+WXQXxBSNGKkSgKvLljwlZSBvS1 +bDHKtqLoeNChMOVxGVg8Xa8f5yWKot7U0MfNZZBqQHlkcUMU//pn0TrlUxns +QvPkl0OimMY+JMfNx4TT2tluL6LE8LzyZpmhvUwwy+L7aX5dDN1PrT+5xpQJ +NK7zMR13xFCloqBsswUTOrsdiLf3xTAgP3XVy44JKv48HKwOMfxQFNVb68qE +8YLggu8S4pigs2rXHcQEl01WU5KPxLE+woKrKo8J6qG1kRl14nhToGTL+XtM +WD+8WYT6TBx98pe1GQ+YUF3GAQr94nh/9AS9oowJIubV8aqr4uhHzFAu1pDz +R9I19ppL4J7/lBquvmaC4czvEL/PEtj+LmrMdIEJ50wSt/47KYF8S1afM38x +oTRbeUBoXgJ3GV6Y+r7EBDH7Q9rV3JLI2xCgHM9GwGTV0wUOFdLrN7rdW0fA +7aj4wLtnJfFyjWWBiSQBw8IKfi28Ulju4d7vqEeA6Mkn0qKiUviK7jduvZsA +i1andl+KFGb0r67fiwRUhMQq8atL4fDAzVgFQwKuDc1OHHCSwmWRaxHPzAlQ +K6w9MpMjhTNKTSdCnAmI1LM9LLFLGpuswqUfnyHAxDXju9YeaTyY4f75VDAB +fBFfL+63kMYPhcv6SucISGuOLog/JI2zPybbks4TUGVW83XtVWkcSKeKGlwk +YNZJLuhHvzQWxR5dWLxJQGWIP9fGEWnMTaoKibhFQFhafYrKtDSOnUxO57xN +AM9Hx1pfdhk8lzjczJ5EgOKR62wft8qg8J0vmT3/EOB6Zu7aq1AZvLLlEfuH +AgLkk/dITUTL4E3+/iqV+/+P380SrngZNC4OELlQSEDI8pbOPXkyOGwg3cZf +TMCdi67C1a9k8HeyJY2XIODVreeZ+dKyWOlqsdGnhoz3o007mhVlUb+HJ+JS +LQHO7w43fdwhi1Eon5leR8C42PKIpJEsph2rnn3aQABHlurWBD9ZNJuQ/z7d +RIBO6d3HYU9kUaRzZj6njQDD3o6V6VZZnDhpZxH6kgArNk5jty5ZbB2DVptX +BHjY+fXDF1mcXte780c7AUah1PCINRRMvDM0L/yGgJf8dbm71lNw0v/CzV7S +NnkOrbN8FHSYnLFL6iLg7/bYjYfFKPiFP9plQzcB/rLzufrbKGhktXD1bQ8B +c4/iW39tp+BwRF1MWC8ZD5NtU4QGBQ02tlco9BEQfeqQJm03BVv6xHL9+glI +bW5rZbelYOahC6/eDxLQciRzqjmInL+o7YvaRwJMl7UFz4dSkFGhKkuQ7ojv +1tSIoGCU975bSp8I6K9eF5F3lYJ/0vbQJIcJmN4QKBidRkH2ejHu3s8EnM7i +02JkU3Aiv0wMRghY1Cj8ey6fgl1Ky955pDlcWXleZRR03gBPvL8QIMY00TJq +oqCohrV/2ygB6Yaf//7zjIJcWacipMYIoPVfiKh4SUH66eNvj5FWZn/0QuEd +BT1nYwzZxwl4mGQ5zeon18+x5GFKete2ccFkFgWP2Iy2xpHeYy/twjVOQT7P +Ti++/wh4Pl4Z8WSSgt736JlmpC0u2OUHf6Ogm2Q65RJpx4Ir02O/KbjrbPGf +adLvdWhCWasU/G843YUyQYD76zotJ04qrkb4rLEmfXzxW0QrLxVN1Pfq5JHW +OeUtMipIxaueCyPtpLknBoo4xKgY8+6S50/SPe7W+lRpKlJ9X1eLfiUgf7C5 +ZzeNivUD1V+0SAfa7zruokjF8nrF/+xJ72kv/itEiYr3zq+0+JEWMKImJ++g +4oATJSSaNKvhjlK5JhVTfYPW3SVdrLW+qUuXisn/jJ4uJB3CDHOcRSoC06mm +grTJlh+TvEZUlGCUf2gkLZJzJGqbORW3FX1hPSc9IvFe1NSGisaa3Q0vST+8 +bVPivZ+KpyePhb0iHcHzdM8lZyrql6TItJG2jtbuy3ajovIW46wW0jJ/Sk48 +8aTi3EdPzjrSk0E0jg++VJylfzRnkq6ZSUr57UfFU5vuB2eTjvHZoCIWSMYj +vTjmJmmHT+HNO89R0SqEFR5Cmu7802lfGBUPaGx3dSf9vctn2v8iFRdkb9GN +STeaf7h4I4aK+QcX3m4mfaPFVrw4jorjfftPcJF2YTwrfZFAxQbj7G/DZPy3 +VugYjiVT8fOW14drSf9SKevnTKeiVuu7hnjSrffkTtJyqMijUbzOg3QSJYUT +71Ex1sjMQI20mmDk9lCCiox7jZefk/nBFjvXklJBxdGY6wlxpDs4jjpX1FLx +pSbXLRvSx+bsor89pWJu4qJvO5mPOn7PJfhfku8v+xhdIc09pstU6qSiQEao ++G7SeX30wSMDVFx74OK9HDLfA2zv+kcPUbFv11lPG9LYxrs2d4SKiyw+qSWy +Xj7Uzquypql413hLuDFpkczWy/YcNFybHLCjjqy3EVGGVAA3DcODOodsST+M +J4ibvDQMHPkeP0LWq3VU6vs2URqur8xbZSMd43VcTV+Jhodyn2wTIevdgfXx +uesOGlqZIm8i2Q/ojvsPntekYX99zy8+0o0mu2MqkYa16qGLSywyntsEWMr7 +aSjpa1j48D0B8+kSkerONJS5LtwrSfonvzxd242GS/OJ6lFk/5n+oX3U0JeG +oXfKzhsNkOdfrce88wUaPhuYOlZC9rM280q+mHwaSmX75M+R/fF5/b9E3AMa +sgV7aauRbtn+yv52GQ3NPNJ4jncS0CD0KTWjmoZCNbOBvR3kegfXK5a303Cn +OOtoHNmfU4+5wvAcDRV9NgwGtRCQ/MFneOw3DTfWBg1faSYg0fp09NQqDSPj +UCeJ7Pc31GNeLq6TQ/GHFkMPGgmIWiIc+WXkUH5sVvoxeV4ci13jr2ckh0vb +Iz2NHxOgV1SclZQkh1dZ8PVsNgGDlKLMvf/I4YOhwt/mWWQ9JhVm/MyUw8E4 +pbdSmeR5GVmQZlcohx0mup8r08j8cspK4asjx89qv/s2mYAtaxLjL3+Sw6lw +H42cOHJ/3UIjgpToKCfn35FDntfl3efC5XfQkdNZsU81iAB7s7Nh3TvpKBKc +8qIukICEnWfOqwEd+2kJRzpOEcDLc/LstC0dA+ycivqOEcBZ7e7vHUxH9oud +KtfcCPgmaHbIoYmOXK2u4j57Ceg7Tus8+pyOJXrXZOINyP1+9hvCX9HxktWx +rnJ9AuJDimTv99AxNOic+W8GAarDPEO/Jsj55tfeO6JJgB/x+mC6kDwaUDgV +3ykQMGG9/+8RT3mskmCd5lxL5uf1Qw4BXAqYo28e/KeeCX4TSjRVHgXk5hnW +flrLhAXjX1NTAgpYSFzUv1ZN3t84EqJ9JRRwcNmGzl/OBNVzzY8PKSvgl/Fl +B85iJlzwUhCy3keO99LSJ/0ueZ/bPfl6W6YCKjmc+HPrNBNMZ4JNv2gq4nWX +HvdmGhMmPbhPPw7fjGEiOSKvG0vJ/wlR9itNW/DqpJjXT7ESEGxXuMGc2Yqf +h0Ms1E4VgVRMmY2mphKWj2q9S40vhJRt2gJCR5TxTLy6elDLPWiT0N/545YK +yvGkTXxcyQcdqab47T3bkc7MnxTalAd8HDmBh6NUUexknLCYfQ7IRMrqHVDY +gd4GSQ5bw7JgnbxLhd3zHbg3wtU07Vo6qDDEy4IPquFlQwtBn/BUCGAJNpux +qaPR0nBbl3cyzPy4vt80RR29jkpJhlcmgvH2Z6mmyho4LfD7dI1JAjT80F1a +6NBAj5wTXrH1N8FPSW3gjddO7LM/ILPpfiwwpj27D6zTxFubQvcrlFyBvXQx +S94cTaRMFBmMuVyCzRHXzjZpaeGMa0PVr7ORsNVL+4n8gBZ2fDUXnDl+Abwa +fC49PrULF2tC6rSmzsKTrG7Pb8LaWHxGcfTKo0D4eX91YXulNu73VbnWI38K +POSL1qVa6iC9crhULeM4fNt6W/PhrA6On3Xbq+5+BKrylj7Nxeji9b87TKv2 +eICmQeCCWawudn38kTWi7gHlnyZ5suJ0kX61bFBC3gMeyrC0zBJ0Ufvsz9E8 +Lg8oTmmMy/hHF3P2ujaptLtD1vVobeNSXdS56bi6ydkdrgby30p5q4vC3y0v +cIUeBmdDOdSV0cPtd+ofdTHdYKWbm6+ZoofZYwsuJXfcIMtretBMTg+NZ0wc +0kLcYPRydbDzZj2skvrOVWnoBgEvrMvOqemhYkAjP6vfFa5ZnZepMtLDiYRp +jnEuV6hxerescVIPabLNfMkBLiB54kq1SqMeHuAVWWgPPwA3Vr13xjbp4Unh +w7tZRw8Ae4IRMdZCOpt1f2X/AZioWFOY9UIPzScdm32VDkAN26UUwbd6iC1u +gvP9TuCcGBE8/0UPJZur9vZqOUFK7bmdDRsYqDurujXsjwMIrz9OWDoykNPT +Qje03B7yDC6EzB5gYKZlYs26HHtQu3DD4LYLA6VECn3v37AHq1nmu77DDBx/ +IbNVxMceLvfM/fI4zkC0qP9FSNrDYk74npBIBgr2Ogh+it4HA7q33xYUMXCN +u5Nhp5cd+JzJSzMtZWDFRIGVtb0dzJeWe00yGehokbv1wx47EKT1LeyoYODA +pKOyPMUOzLmlpeobGfgo4Lmm16At1HUXeL59x8DKlxkaafa2YMZXpRzUx8BX +kor+HIa20Gf8Yl5skIHOu+/3nFW3hZ81X2NcPzJwKef+UpygLShnq5b8N8FA +WaZrzKE3NlA3oB90fYr8fpbBH61/bcBs0z7YPsvA9yW9ltKEDXhfOfMmcI6c +j7PDduMtG/jZeDlVdJGBiSmy32UjbSDqd7JHzW8G/hlZMdA7ZQMCGoVKB1cY +6MLnx/A+bAMZJ2rmVlcZGFYY0p1uawP/A/kC2Og= + "]]}, + 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:eJwV13k8VdsXAHAPRWWKzNO910UDEiLDbS2ReU7IE2WKBkmiKFMpJSUJeeap +ZLqnMg95qKRIkrGukvBkajAU8ju/v87n+8fZ++y111p7H6r7STsvdjY2Nv6/ +2Nj+/5xnvWihx+btfua+ZnvVRf3d3Rli5/T7okDm2DvbHwIUQOHX7mJ9CWCj +5RfVIaAKQTYPejn6cmCP+iSrXABh47Rowq/eh7DGXzEjXsAGhuqsTv7sbYJu +ww4DCYFDYESf+PCttwt0Dessbfj84Vev1p3Z3mFIH/4jpsYVAc0G9/Le5PyA +nSaTokMJ8SA1VD3qrrQCbm6buFv3pcCm424PuAw4MLd/MTXibiYk7DCqtdrP +jQWnq9oCI3OhP0W18ZsAL2a5j1xkEQUQmxf+ml18I7LC+v8odBaCaOLnq7fT +hdDyU1+gSHgxiG0rv7RYIIQzK6p6zjHFINF0OfwgUwjb5396pdwqBpnZLWcU +m4WQvnbje468YpC38D9UOy6EHxbV1ZJbi0Gdc0Xzs/omrB5ajikVKAHrQJER +tbZN6HXnpWNKWglcsTfd3TUvjOI1qbtpuaUg8bhDgv0vEUxVjHLLLCqFUiH7 +hR0bRNDqaH2G8ONS6OlyZd6SFUGD3PjAqZZSoNsG0mxNRPD3ykdPs9FSaLLM +XNt5VwSzzRmpVYplsGI019GuJ4pjXRumD+WXQXxBSNGKkSgKvLljwlZSBvS1 +bDHKtqLoeNChMOVxGVg8Xa8f5yWKot7U0MfNZZBqQHlkcUMU//pn0TrlUxns +QvPkl0OimMY+JMfNx4TT2tluL6LE8LzyZpmhvUwwy+L7aX5dDN1PrT+5xpQJ +NK7zMR13xFCloqBsswUTOrsdiLf3xTAgP3XVy44JKv48HKwOMfxQFNVb68qE +8YLggu8S4pigs2rXHcQEl01WU5KPxLE+woKrKo8J6qG1kRl14nhToGTL+XtM +WD+8WYT6TBx98pe1GQ+YUF3GAQr94nh/9AS9oowJIubV8aqr4uhHzFAu1pDz +R9I19ppL4J7/lBquvmaC4czvEL/PEtj+LmrMdIEJ50wSt/47KYF8S1afM38x +oTRbeUBoXgJ3GV6Y+r7EBDH7Q9rV3JLI2xCgHM9GwGTV0wUOFdLrN7rdW0fA +7aj4wLtnJfFyjWWBiSQBw8IKfi28Ulju4d7vqEeA6Mkn0qKiUviK7jduvZsA +i1andl+KFGb0r67fiwRUhMQq8atL4fDAzVgFQwKuDc1OHHCSwmWRaxHPzAlQ +K6w9MpMjhTNKTSdCnAmI1LM9LLFLGpuswqUfnyHAxDXju9YeaTyY4f75VDAB +fBFfL+63kMYPhcv6SucISGuOLog/JI2zPybbks4TUGVW83XtVWkcSKeKGlwk +YNZJLuhHvzQWxR5dWLxJQGWIP9fGEWnMTaoKibhFQFhafYrKtDSOnUxO57xN +AM9Hx1pfdhk8lzjczJ5EgOKR62wft8qg8J0vmT3/EOB6Zu7aq1AZvLLlEfuH +AgLkk/dITUTL4E3+/iqV+/+P380SrngZNC4OELlQSEDI8pbOPXkyOGwg3cZf +TMCdi67C1a9k8HeyJY2XIODVreeZ+dKyWOlqsdGnhoz3o007mhVlUb+HJ+JS +LQHO7w43fdwhi1Eon5leR8C42PKIpJEsph2rnn3aQABHlurWBD9ZNJuQ/z7d +RIBO6d3HYU9kUaRzZj6njQDD3o6V6VZZnDhpZxH6kgArNk5jty5ZbB2DVptX +BHjY+fXDF1mcXte780c7AUah1PCINRRMvDM0L/yGgJf8dbm71lNw0v/CzV7S +NnkOrbN8FHSYnLFL6iLg7/bYjYfFKPiFP9plQzcB/rLzufrbKGhktXD1bQ8B +c4/iW39tp+BwRF1MWC8ZD5NtU4QGBQ02tlco9BEQfeqQJm03BVv6xHL9+glI +bW5rZbelYOahC6/eDxLQciRzqjmInL+o7YvaRwJMl7UFz4dSkFGhKkuQ7ojv +1tSIoGCU975bSp8I6K9eF5F3lYJ/0vbQJIcJmN4QKBidRkH2ejHu3s8EnM7i +02JkU3Aiv0wMRghY1Cj8ey6fgl1Ky955pDlcWXleZRR03gBPvL8QIMY00TJq +oqCohrV/2ygB6Yaf//7zjIJcWacipMYIoPVfiKh4SUH66eNvj5FWZn/0QuEd +BT1nYwzZxwl4mGQ5zeon18+x5GFKete2ccFkFgWP2Iy2xpHeYy/twjVOQT7P +Ti++/wh4Pl4Z8WSSgt736JlmpC0u2OUHf6Ogm2Q65RJpx4Ir02O/KbjrbPGf +adLvdWhCWasU/G843YUyQYD76zotJ04qrkb4rLEmfXzxW0QrLxVN1Pfq5JHW +OeUtMipIxaueCyPtpLknBoo4xKgY8+6S50/SPe7W+lRpKlJ9X1eLfiUgf7C5 +ZzeNivUD1V+0SAfa7zruokjF8nrF/+xJ72kv/itEiYr3zq+0+JEWMKImJ++g +4oATJSSaNKvhjlK5JhVTfYPW3SVdrLW+qUuXisn/jJ4uJB3CDHOcRSoC06mm +grTJlh+TvEZUlGCUf2gkLZJzJGqbORW3FX1hPSc9IvFe1NSGisaa3Q0vST+8 +bVPivZ+KpyePhb0iHcHzdM8lZyrql6TItJG2jtbuy3ajovIW46wW0jJ/Sk48 +8aTi3EdPzjrSk0E0jg++VJylfzRnkq6ZSUr57UfFU5vuB2eTjvHZoCIWSMYj +vTjmJmmHT+HNO89R0SqEFR5Cmu7802lfGBUPaGx3dSf9vctn2v8iFRdkb9GN +STeaf7h4I4aK+QcX3m4mfaPFVrw4jorjfftPcJF2YTwrfZFAxQbj7G/DZPy3 +VugYjiVT8fOW14drSf9SKevnTKeiVuu7hnjSrffkTtJyqMijUbzOg3QSJYUT +71Ex1sjMQI20mmDk9lCCiox7jZefk/nBFjvXklJBxdGY6wlxpDs4jjpX1FLx +pSbXLRvSx+bsor89pWJu4qJvO5mPOn7PJfhfku8v+xhdIc09pstU6qSiQEao ++G7SeX30wSMDVFx74OK9HDLfA2zv+kcPUbFv11lPG9LYxrs2d4SKiyw+qSWy +Xj7Uzquypql413hLuDFpkczWy/YcNFybHLCjjqy3EVGGVAA3DcODOodsST+M +J4ibvDQMHPkeP0LWq3VU6vs2URqur8xbZSMd43VcTV+Jhodyn2wTIevdgfXx +uesOGlqZIm8i2Q/ojvsPntekYX99zy8+0o0mu2MqkYa16qGLSywyntsEWMr7 +aSjpa1j48D0B8+kSkerONJS5LtwrSfonvzxd242GS/OJ6lFk/5n+oX3U0JeG +oXfKzhsNkOdfrce88wUaPhuYOlZC9rM280q+mHwaSmX75M+R/fF5/b9E3AMa +sgV7aauRbtn+yv52GQ3NPNJ4jncS0CD0KTWjmoZCNbOBvR3kegfXK5a303Cn +OOtoHNmfU4+5wvAcDRV9NgwGtRCQ/MFneOw3DTfWBg1faSYg0fp09NQqDSPj +UCeJ7Pc31GNeLq6TQ/GHFkMPGgmIWiIc+WXkUH5sVvoxeV4ci13jr2ckh0vb +Iz2NHxOgV1SclZQkh1dZ8PVsNgGDlKLMvf/I4YOhwt/mWWQ9JhVm/MyUw8E4 +pbdSmeR5GVmQZlcohx0mup8r08j8cspK4asjx89qv/s2mYAtaxLjL3+Sw6lw +H42cOHJ/3UIjgpToKCfn35FDntfl3efC5XfQkdNZsU81iAB7s7Nh3TvpKBKc +8qIukICEnWfOqwEd+2kJRzpOEcDLc/LstC0dA+ycivqOEcBZ7e7vHUxH9oud +KtfcCPgmaHbIoYmOXK2u4j57Ceg7Tus8+pyOJXrXZOINyP1+9hvCX9HxktWx +rnJ9AuJDimTv99AxNOic+W8GAarDPEO/Jsj55tfeO6JJgB/x+mC6kDwaUDgV +3ykQMGG9/+8RT3mskmCd5lxL5uf1Qw4BXAqYo28e/KeeCX4TSjRVHgXk5hnW +flrLhAXjX1NTAgpYSFzUv1ZN3t84EqJ9JRRwcNmGzl/OBNVzzY8PKSvgl/Fl +B85iJlzwUhCy3keO99LSJ/0ueZ/bPfl6W6YCKjmc+HPrNBNMZ4JNv2gq4nWX +HvdmGhMmPbhPPw7fjGEiOSKvG0vJ/wlR9itNW/DqpJjXT7ESEGxXuMGc2Yqf +h0Ms1E4VgVRMmY2mphKWj2q9S40vhJRt2gJCR5TxTLy6elDLPWiT0N/545YK +yvGkTXxcyQcdqab47T3bkc7MnxTalAd8HDmBh6NUUexknLCYfQ7IRMrqHVDY +gd4GSQ5bw7JgnbxLhd3zHbg3wtU07Vo6qDDEy4IPquFlQwtBn/BUCGAJNpux +qaPR0nBbl3cyzPy4vt80RR29jkpJhlcmgvH2Z6mmyho4LfD7dI1JAjT80F1a +6NBAj5wTXrH1N8FPSW3gjddO7LM/ILPpfiwwpj27D6zTxFubQvcrlFyBvXQx +S94cTaRMFBmMuVyCzRHXzjZpaeGMa0PVr7ORsNVL+4n8gBZ2fDUXnDl+Abwa +fC49PrULF2tC6rSmzsKTrG7Pb8LaWHxGcfTKo0D4eX91YXulNu73VbnWI38K +POSL1qVa6iC9crhULeM4fNt6W/PhrA6On3Xbq+5+BKrylj7Nxeji9b87TKv2 +eICmQeCCWawudn38kTWi7gHlnyZ5suJ0kX61bFBC3gMeyrC0zBJ0Ufvsz9E8 +Lg8oTmmMy/hHF3P2ujaptLtD1vVobeNSXdS56bi6ydkdrgby30p5q4vC3y0v +cIUeBmdDOdSV0cPtd+ofdTHdYKWbm6+ZoofZYwsuJXfcIMtretBMTg+NZ0wc +0kLcYPRydbDzZj2skvrOVWnoBgEvrMvOqemhYkAjP6vfFa5ZnZepMtLDiYRp +jnEuV6hxerescVIPabLNfMkBLiB54kq1SqMeHuAVWWgPPwA3Vr13xjbp4Unh +w7tZRw8Ae4IRMdZCOpt1f2X/AZioWFOY9UIPzScdm32VDkAN26UUwbd6iC1u +gvP9TuCcGBE8/0UPJZur9vZqOUFK7bmdDRsYqDurujXsjwMIrz9OWDoykNPT +Qje03B7yDC6EzB5gYKZlYs26HHtQu3DD4LYLA6VECn3v37AHq1nmu77DDBx/ +IbNVxMceLvfM/fI4zkC0qP9FSNrDYk74npBIBgr2Ogh+it4HA7q33xYUMXCN +u5Nhp5cd+JzJSzMtZWDFRIGVtb0dzJeWe00yGehokbv1wx47EKT1LeyoYODA +pKOyPMUOzLmlpeobGfgo4Lmm16At1HUXeL59x8DKlxkaafa2YMZXpRzUx8BX +kor+HIa20Gf8Yl5skIHOu+/3nFW3hZ81X2NcPzJwKef+UpygLShnq5b8N8FA +WaZrzKE3NlA3oB90fYr8fpbBH61/bcBs0z7YPsvA9yW9ltKEDXhfOfMmcI6c +j7PDduMtG/jZeDlVdJGBiSmy32UjbSDqd7JHzW8G/hlZMdA7ZQMCGoVKB1cY +6MLnx/A+bAMZJ2rmVlcZGFYY0p1uawP/A/kC2Og= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07000425421203875}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.07000425421203875}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJwV13k8VdsXAHAPRWWKzNO910UDEiLDbS2ReU7IE2WKBkmiKFMpJSUJeeap +ZLqnMg95qKRIkrGukvBkajAU8ju/v87n+8fZ++y111p7H6r7STsvdjY2Nv6/ +2Nj+/5xnvWihx+btfua+ZnvVRf3d3Rli5/T7okDm2DvbHwIUQOHX7mJ9CWCj +5RfVIaAKQTYPejn6cmCP+iSrXABh47Rowq/eh7DGXzEjXsAGhuqsTv7sbYJu +ww4DCYFDYESf+PCttwt0Dessbfj84Vev1p3Z3mFIH/4jpsYVAc0G9/Le5PyA +nSaTokMJ8SA1VD3qrrQCbm6buFv3pcCm424PuAw4MLd/MTXibiYk7DCqtdrP +jQWnq9oCI3OhP0W18ZsAL2a5j1xkEQUQmxf+ml18I7LC+v8odBaCaOLnq7fT +hdDyU1+gSHgxiG0rv7RYIIQzK6p6zjHFINF0OfwgUwjb5396pdwqBpnZLWcU +m4WQvnbje468YpC38D9UOy6EHxbV1ZJbi0Gdc0Xzs/omrB5ajikVKAHrQJER +tbZN6HXnpWNKWglcsTfd3TUvjOI1qbtpuaUg8bhDgv0vEUxVjHLLLCqFUiH7 +hR0bRNDqaH2G8ONS6OlyZd6SFUGD3PjAqZZSoNsG0mxNRPD3ykdPs9FSaLLM +XNt5VwSzzRmpVYplsGI019GuJ4pjXRumD+WXQXxBSNGKkSgKvLljwlZSBvS1 +bDHKtqLoeNChMOVxGVg8Xa8f5yWKot7U0MfNZZBqQHlkcUMU//pn0TrlUxns +QvPkl0OimMY+JMfNx4TT2tluL6LE8LzyZpmhvUwwy+L7aX5dDN1PrT+5xpQJ +NK7zMR13xFCloqBsswUTOrsdiLf3xTAgP3XVy44JKv48HKwOMfxQFNVb68qE +8YLggu8S4pigs2rXHcQEl01WU5KPxLE+woKrKo8J6qG1kRl14nhToGTL+XtM +WD+8WYT6TBx98pe1GQ+YUF3GAQr94nh/9AS9oowJIubV8aqr4uhHzFAu1pDz +R9I19ppL4J7/lBquvmaC4czvEL/PEtj+LmrMdIEJ50wSt/47KYF8S1afM38x +oTRbeUBoXgJ3GV6Y+r7EBDH7Q9rV3JLI2xCgHM9GwGTV0wUOFdLrN7rdW0fA +7aj4wLtnJfFyjWWBiSQBw8IKfi28Ulju4d7vqEeA6Mkn0qKiUviK7jduvZsA +i1andl+KFGb0r67fiwRUhMQq8atL4fDAzVgFQwKuDc1OHHCSwmWRaxHPzAlQ +K6w9MpMjhTNKTSdCnAmI1LM9LLFLGpuswqUfnyHAxDXju9YeaTyY4f75VDAB +fBFfL+63kMYPhcv6SucISGuOLog/JI2zPybbks4TUGVW83XtVWkcSKeKGlwk +YNZJLuhHvzQWxR5dWLxJQGWIP9fGEWnMTaoKibhFQFhafYrKtDSOnUxO57xN +AM9Hx1pfdhk8lzjczJ5EgOKR62wft8qg8J0vmT3/EOB6Zu7aq1AZvLLlEfuH +AgLkk/dITUTL4E3+/iqV+/+P380SrngZNC4OELlQSEDI8pbOPXkyOGwg3cZf +TMCdi67C1a9k8HeyJY2XIODVreeZ+dKyWOlqsdGnhoz3o007mhVlUb+HJ+JS +LQHO7w43fdwhi1Eon5leR8C42PKIpJEsph2rnn3aQABHlurWBD9ZNJuQ/z7d +RIBO6d3HYU9kUaRzZj6njQDD3o6V6VZZnDhpZxH6kgArNk5jty5ZbB2DVptX +BHjY+fXDF1mcXte780c7AUah1PCINRRMvDM0L/yGgJf8dbm71lNw0v/CzV7S +NnkOrbN8FHSYnLFL6iLg7/bYjYfFKPiFP9plQzcB/rLzufrbKGhktXD1bQ8B +c4/iW39tp+BwRF1MWC8ZD5NtU4QGBQ02tlco9BEQfeqQJm03BVv6xHL9+glI +bW5rZbelYOahC6/eDxLQciRzqjmInL+o7YvaRwJMl7UFz4dSkFGhKkuQ7ojv +1tSIoGCU975bSp8I6K9eF5F3lYJ/0vbQJIcJmN4QKBidRkH2ejHu3s8EnM7i +02JkU3Aiv0wMRghY1Cj8ey6fgl1Ky955pDlcWXleZRR03gBPvL8QIMY00TJq +oqCohrV/2ygB6Yaf//7zjIJcWacipMYIoPVfiKh4SUH66eNvj5FWZn/0QuEd +BT1nYwzZxwl4mGQ5zeon18+x5GFKete2ccFkFgWP2Iy2xpHeYy/twjVOQT7P +Ti++/wh4Pl4Z8WSSgt736JlmpC0u2OUHf6Ogm2Q65RJpx4Ir02O/KbjrbPGf +adLvdWhCWasU/G843YUyQYD76zotJ04qrkb4rLEmfXzxW0QrLxVN1Pfq5JHW +OeUtMipIxaueCyPtpLknBoo4xKgY8+6S50/SPe7W+lRpKlJ9X1eLfiUgf7C5 +ZzeNivUD1V+0SAfa7zruokjF8nrF/+xJ72kv/itEiYr3zq+0+JEWMKImJ++g +4oATJSSaNKvhjlK5JhVTfYPW3SVdrLW+qUuXisn/jJ4uJB3CDHOcRSoC06mm +grTJlh+TvEZUlGCUf2gkLZJzJGqbORW3FX1hPSc9IvFe1NSGisaa3Q0vST+8 +bVPivZ+KpyePhb0iHcHzdM8lZyrql6TItJG2jtbuy3ajovIW46wW0jJ/Sk48 +8aTi3EdPzjrSk0E0jg++VJylfzRnkq6ZSUr57UfFU5vuB2eTjvHZoCIWSMYj +vTjmJmmHT+HNO89R0SqEFR5Cmu7802lfGBUPaGx3dSf9vctn2v8iFRdkb9GN +STeaf7h4I4aK+QcX3m4mfaPFVrw4jorjfftPcJF2YTwrfZFAxQbj7G/DZPy3 +VugYjiVT8fOW14drSf9SKevnTKeiVuu7hnjSrffkTtJyqMijUbzOg3QSJYUT +71Ex1sjMQI20mmDk9lCCiox7jZefk/nBFjvXklJBxdGY6wlxpDs4jjpX1FLx +pSbXLRvSx+bsor89pWJu4qJvO5mPOn7PJfhfku8v+xhdIc09pstU6qSiQEao ++G7SeX30wSMDVFx74OK9HDLfA2zv+kcPUbFv11lPG9LYxrs2d4SKiyw+qSWy +Xj7Uzquypql413hLuDFpkczWy/YcNFybHLCjjqy3EVGGVAA3DcODOodsST+M +J4ibvDQMHPkeP0LWq3VU6vs2URqur8xbZSMd43VcTV+Jhodyn2wTIevdgfXx +uesOGlqZIm8i2Q/ojvsPntekYX99zy8+0o0mu2MqkYa16qGLSywyntsEWMr7 +aSjpa1j48D0B8+kSkerONJS5LtwrSfonvzxd242GS/OJ6lFk/5n+oX3U0JeG +oXfKzhsNkOdfrce88wUaPhuYOlZC9rM280q+mHwaSmX75M+R/fF5/b9E3AMa +sgV7aauRbtn+yv52GQ3NPNJ4jncS0CD0KTWjmoZCNbOBvR3kegfXK5a303Cn +OOtoHNmfU4+5wvAcDRV9NgwGtRCQ/MFneOw3DTfWBg1faSYg0fp09NQqDSPj +UCeJ7Pc31GNeLq6TQ/GHFkMPGgmIWiIc+WXkUH5sVvoxeV4ci13jr2ckh0vb +Iz2NHxOgV1SclZQkh1dZ8PVsNgGDlKLMvf/I4YOhwt/mWWQ9JhVm/MyUw8E4 +pbdSmeR5GVmQZlcohx0mup8r08j8cspK4asjx89qv/s2mYAtaxLjL3+Sw6lw +H42cOHJ/3UIjgpToKCfn35FDntfl3efC5XfQkdNZsU81iAB7s7Nh3TvpKBKc +8qIukICEnWfOqwEd+2kJRzpOEcDLc/LstC0dA+ycivqOEcBZ7e7vHUxH9oud +KtfcCPgmaHbIoYmOXK2u4j57Ceg7Tus8+pyOJXrXZOINyP1+9hvCX9HxktWx +rnJ9AuJDimTv99AxNOic+W8GAarDPEO/Jsj55tfeO6JJgB/x+mC6kDwaUDgV +3ykQMGG9/+8RT3mskmCd5lxL5uf1Qw4BXAqYo28e/KeeCX4TSjRVHgXk5hnW +flrLhAXjX1NTAgpYSFzUv1ZN3t84EqJ9JRRwcNmGzl/OBNVzzY8PKSvgl/Fl +B85iJlzwUhCy3keO99LSJ/0ueZ/bPfl6W6YCKjmc+HPrNBNMZ4JNv2gq4nWX +HvdmGhMmPbhPPw7fjGEiOSKvG0vJ/wlR9itNW/DqpJjXT7ESEGxXuMGc2Yqf +h0Ms1E4VgVRMmY2mphKWj2q9S40vhJRt2gJCR5TxTLy6elDLPWiT0N/545YK +yvGkTXxcyQcdqab47T3bkc7MnxTalAd8HDmBh6NUUexknLCYfQ7IRMrqHVDY +gd4GSQ5bw7JgnbxLhd3zHbg3wtU07Vo6qDDEy4IPquFlQwtBn/BUCGAJNpux +qaPR0nBbl3cyzPy4vt80RR29jkpJhlcmgvH2Z6mmyho4LfD7dI1JAjT80F1a +6NBAj5wTXrH1N8FPSW3gjddO7LM/ILPpfiwwpj27D6zTxFubQvcrlFyBvXQx +S94cTaRMFBmMuVyCzRHXzjZpaeGMa0PVr7ORsNVL+4n8gBZ2fDUXnDl+Abwa +fC49PrULF2tC6rSmzsKTrG7Pb8LaWHxGcfTKo0D4eX91YXulNu73VbnWI38K +POSL1qVa6iC9crhULeM4fNt6W/PhrA6On3Xbq+5+BKrylj7Nxeji9b87TKv2 +eICmQeCCWawudn38kTWi7gHlnyZ5suJ0kX61bFBC3gMeyrC0zBJ0Ufvsz9E8 +Lg8oTmmMy/hHF3P2ujaptLtD1vVobeNSXdS56bi6ydkdrgby30p5q4vC3y0v +cIUeBmdDOdSV0cPtd+ofdTHdYKWbm6+ZoofZYwsuJXfcIMtretBMTg+NZ0wc +0kLcYPRydbDzZj2skvrOVWnoBgEvrMvOqemhYkAjP6vfFa5ZnZepMtLDiYRp +jnEuV6hxerescVIPabLNfMkBLiB54kq1SqMeHuAVWWgPPwA3Vr13xjbp4Unh +w7tZRw8Ae4IRMdZCOpt1f2X/AZioWFOY9UIPzScdm32VDkAN26UUwbd6iC1u +gvP9TuCcGBE8/0UPJZur9vZqOUFK7bmdDRsYqDurujXsjwMIrz9OWDoykNPT +Qje03B7yDC6EzB5gYKZlYs26HHtQu3DD4LYLA6VECn3v37AHq1nmu77DDBx/ +IbNVxMceLvfM/fI4zkC0qP9FSNrDYk74npBIBgr2Ogh+it4HA7q33xYUMXCN +u5Nhp5cd+JzJSzMtZWDFRIGVtb0dzJeWe00yGehokbv1wx47EKT1LeyoYODA +pKOyPMUOzLmlpeobGfgo4Lmm16At1HUXeL59x8DKlxkaafa2YMZXpRzUx8BX +kor+HIa20Gf8Yl5skIHOu+/3nFW3hZ81X2NcPzJwKef+UpygLShnq5b8N8FA +WaZrzKE3NlA3oB90fYr8fpbBH61/bcBs0z7YPsvA9yW9ltKEDXhfOfMmcI6c +j7PDduMtG/jZeDlVdJGBiSmy32UjbSDqd7JHzW8G/hlZMdA7ZQMCGoVKB1cY +6MLnx/A+bAMZJ2rmVlcZGFYY0p1uawP/A/kC2Og= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07000425421203875}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJxTTMoPSmViYGCQB2IQDQNLGAINkrnK7CG8D/YFW/1i+sInQPkMDkmGr6Kq +58+C8jkczrencxoxLYLyBRw0tNtWMyssg/JFHAL6mFwO9qyE8iUc3u708W0y +XwPlyzi85X7Rai2+DspXcJimnKJwXm89lK/koKgQ78TaDuOrOFidyz201wjG +V3PYGsTxRMgdpl/D4cmtAMNz92HmazmUHVGU9hBfDeXrOAA5s8O4YO7RcyjZ +dKVq/0WYew0clAL+Nnu0LYHyDR1s9EWlP1vB/GfkcNon868u4wIo39jhkHfB +K+aTs6F8E4edQeebAu5Nh/JNHeT5a8u1vadA+WYOttd6eIrEJ0L55g6HXZpF +bFp7oHwLB/5r/y3PTG+H8i0dus7EPPgU0QzlWzkw5q6OTK+ph/KtHd7OVGXM +yqqE8m0cpK+FiLXGlkD5tg4f5zGfFjQqgPLtHO40Ld3VMD3THgDPenlb + "]]}, + 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:eJxTTMoPSmViYGCQB2IQDQNLGAINkrnK7CG8D/YFW/1i+sInQPkMDkmGr6Kq +58+C8jkczrencxoxLYLyBRw0tNtWMyssg/JFHAL6mFwO9qyE8iUc3u708W0y +XwPlyzi85X7Rai2+DspXcJimnKJwXm89lK/koKgQ78TaDuOrOFidyz201wjG +V3PYGsTxRMgdpl/D4cmtAMNz92HmazmUHVGU9hBfDeXrOAA5s8O4YO7RcyjZ +dKVq/0WYew0clAL+Nnu0LYHyDR1s9EWlP1vB/GfkcNon868u4wIo39jhkHfB +K+aTs6F8E4edQeebAu5Nh/JNHeT5a8u1vadA+WYOttd6eIrEJ0L55g6HXZpF +bFp7oHwLB/5r/y3PTG+H8i0dus7EPPgU0QzlWzkw5q6OTK+ph/KtHd7OVGXM +yqqE8m0cpK+FiLXGlkD5tg4f5zGfFjQqgPLtHO40Ld3VMD3THgDPenlb + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.061577}}, + "Frame" -> {{False, 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.061577}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGCQB2IQDQNLGAINkrnK7CG8D/YFW/1i+sInQPkMDkmGr6Kq +58+C8jkczrencxoxLYLyBRw0tNtWMyssg/JFHAL6mFwO9qyE8iUc3u708W0y +XwPlyzi85X7Rai2+DspXcJimnKJwXm89lK/koKgQ78TaDuOrOFidyz201wjG +V3PYGsTxRMgdpl/D4cmtAMNz92HmazmUHVGU9hBfDeXrOAA5s8O4YO7RcyjZ +dKVq/0WYew0clAL+Nnu0LYHyDR1s9EWlP1vB/GfkcNon868u4wIo39jhkHfB +K+aTs6F8E4edQeebAu5Nh/JNHeT5a8u1vadA+WYOttd6eIrEJ0L55g6HXZpF +bFp7oHwLB/5r/y3PTG+H8i0dus7EPPgU0QzlWzkw5q6OTK+ph/KtHd7OVGXM +yqqE8m0cpK+FiLXGlkD5tg4f5zGfFjQqgPLtHO40Ld3VMD3THgDPenlb + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.061577}}, + "Frame" -> {{False, 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.07000425421203875}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9939614991953583`*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"df7a43d7-3f75-4183-bb69-a58d649acf03"] +}, Open ]], Cell[CellGroupData[{ @@ -6169,66 +11540,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[\\\"3.414357735221361`*^-149\\\", \ +RowBox[{\\\"\ +192330073695578600598678251250730514595536743471887934253145779509789\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"22\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1163350940137443209261321198991532417980825600000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 121, 45, 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347571140808*^9, 3.9939614992353573`*^9}, CellLabel-> "During evaluation of \ -In[448]:=",ExpressionUUID->"ca0dab71-62e4-1c4e-b2d5-91f300055932"], +In[121]:=",ExpressionUUID->"23361d02-c303-414c-8bbd-70b8fc997692"], 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.0397392264452215`*^-151\\\", \ +RowBox[{\\\"\ +692388265304082962155241704502629852543932276498796563311324806235240\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"25\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8063384494795553340756316369516704730972160000000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 121, 46, 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347571140808*^9, 3.993961499241784*^9}, CellLabel-> "During evaluation of \ -In[448]:=",ExpressionUUID->"aa43f3fc-5ec5-414d-bbd9-cf1b638f0a27"], +In[121]:=",ExpressionUUID->"057c736d-f868-4551-b56e-5e6318011738"], 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[\\\"3.166210874323689`*^-154\\\", \ +RowBox[{\\\"\ +257637673519649270217965438245428568131597200085202201208143960400132\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"29\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3853705134253980954253210971658303947407360000000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 121, 47, 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347571140808*^9, 3.993961499247911*^9}, CellLabel-> "During evaluation of \ -In[448]:=",ExpressionUUID->"eaa52aca-1e19-e84e-9825-10ec4ac94baf"], +In[121]:=",ExpressionUUID->"0f076661-9784-4b3f-8c2e-8bb63baed908"], 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, 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347571140808*^9, 3.99396149925346*^9}, CellLabel-> "During evaluation of \ -In[448]:=",ExpressionUUID->"40ddf79f-d82f-b94d-9b78-050a48c24dda"], +In[121]:=",ExpressionUUID->"033fe409-8cde-4e7f-807a-2223bc3070f8"], -Cell[BoxData["10.362747935330763`"], "Output", - CellChangeTimes->{3.991347578228073*^9}, +Cell[BoxData["11.462757829517917`"], "Output", + CellChangeTimes->{3.991347578228073*^9, 3.993961543025025*^9}, CellLabel-> - "Out[448]=",ExpressionUUID->"f752c3f0-fe06-284b-bff8-a09adf8994cc"] + "Out[121]=",ExpressionUUID->"5e48cae3-8111-4c84-9b64-e057ea57760f"] }, Open ]], Cell[CellGroupData[{ @@ -6295,68 +11676,69 @@ 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"], - -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}, + CellChangeTimes->{{3.9918503106317043`*^9, 3.9918503148567924`*^9}}, CellLabel-> - "During evaluation of \ -In[449]:=",ExpressionUUID->"03b49875-7e1c-734a-9395-591c7a6a0147"], + "In[122]:=",ExpressionUUID->"fcc64ab7-eee0-e44f-9b2d-2a98ba29b602"], 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}, - CellLabel-> - "During evaluation of \ -In[449]:=",ExpressionUUID->"bbc1c804-e094-2b49-bceb-c837038552fa"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ + "\"\\!\\(\\*FractionBox[\\\"2.0783807514178647`*^-261\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) 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}, + 122, 49, 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347578265545*^9, 3.993961543054524*^9}, CellLabel-> "During evaluation of \ -In[449]:=",ExpressionUUID->"340351a4-e10e-7141-b933-75e80a563962"], +In[122]:=",ExpressionUUID->"0482b4e1-ed0c-41df-8be9-d285a0426000"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.77023432780569`*^-272\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 122, 50, 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347578265545*^9, 3.9939615430599613`*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"ad296f3f-fbd6-4f59-8b09-1797d811de1b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.904979824693877`*^-282\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 122, 51, 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347578265545*^9, 3.993961543065523*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"935444d6-6b46-4ae0-bce2-7cdda525136f"], 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, 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347578265545*^9, 3.993961543072241*^9}, CellLabel-> "During evaluation of \ -In[449]:=",ExpressionUUID->"45363ba5-7011-ce4a-bbb2-25b54117d598"], +In[122]:=",ExpressionUUID->"83c62e17-896d-49a9-a815-6bd038229d0e"], -Cell[BoxData["1.4359199941844076`"], "Output", - CellChangeTimes->{3.9913475858902473`*^9}, +Cell[BoxData["1.0419079651869`*^-6"], "Output", + CellChangeTimes->{3.9913475858902473`*^9, 3.993961546503976*^9}, CellLabel-> - "Out[449]=",ExpressionUUID->"a7117811-d866-a74a-b451-2e5611fcbe98"] + "Out[122]=",ExpressionUUID->"dabda49a-c786-46de-ab0d-77a4631461bf"] }, Open ]], Cell[CellGroupData[{ @@ -6377,8 +11759,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 +11804,69 @@ 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"], - -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}, + CellChangeTimes->{{3.991850318596199*^9, 3.991850321359722*^9}}, CellLabel-> - "During evaluation of \ -In[450]:=",ExpressionUUID->"d229ea6a-26e4-d448-90bf-3044f07066eb"], + "In[123]:=",ExpressionUUID->"edfdd675-c60b-304e-9e16-68452b971319"], 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}, - CellLabel-> - "During evaluation of \ -In[450]:=",ExpressionUUID->"7911ebc5-127d-5841-a246-fcff3e2e3d7f"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ + "\"\\!\\(\\*FractionBox[\\\"2.0783807514178647`*^-261\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) 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}, + 123, 53, 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913475859272156`*^9, 3.993961546530436*^9}, CellLabel-> "During evaluation of \ -In[450]:=",ExpressionUUID->"62b490bd-3e68-5b49-8d2e-1bbb1e520215"], +In[123]:=",ExpressionUUID->"85dde972-ffc4-44f8-aee3-c94d9b8002e6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.77023432780569`*^-272\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 123, 54, 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913475859272156`*^9, 3.993961546536447*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"c177734c-4150-4752-8624-d76e8273906c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.904979824693877`*^-282\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 123, 55, 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913475859272156`*^9, 3.993961546541562*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"ce8acdb3-8ad2-45ae-85e3-d3f5cffdae2e"], 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, 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913475859272156`*^9, 3.993961546546739*^9}, CellLabel-> "During evaluation of \ -In[450]:=",ExpressionUUID->"2c340204-da84-dd4d-abb8-8821cc152f8d"], +In[123]:=",ExpressionUUID->"baf51b35-e81d-4b53-9e79-2b766d74e591"], -Cell[BoxData["5.09241659576143`"], "Output", - CellChangeTimes->{3.9913475931276417`*^9}, +Cell[BoxData["32.21958953412966`"], "Output", + CellChangeTimes->{3.9913475931276417`*^9, 3.9939615494659*^9}, CellLabel-> - "Out[450]=",ExpressionUUID->"88b2df22-3f75-ff45-90a9-fda3ac3bb827"] + "Out[123]=",ExpressionUUID->"3571578e-cce0-4dad-9b67-8a7919b5bad7"] }, Open ]], Cell[CellGroupData[{ @@ -6505,8 +11887,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 +11932,69 @@ 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"], - -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}, + CellChangeTimes->{{3.991850325611994*^9, 3.991850328926569*^9}}, CellLabel-> - "During evaluation of \ -In[451]:=",ExpressionUUID->"8c45e08e-3e6d-d74b-a260-2b9be908c427"], + "In[124]:=",ExpressionUUID->"d0469d46-2e74-494a-be85-b41cb2f3fa92"], 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}, - CellLabel-> - "During evaluation of \ -In[451]:=",ExpressionUUID->"05cc4b97-7653-f04b-8664-f56b3128e201"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ + "\"\\!\\(\\*FractionBox[\\\"2.0783807514178647`*^-261\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) 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}, + 124, 57, 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99134759316485*^9, 3.993961549492428*^9}, CellLabel-> "During evaluation of \ -In[451]:=",ExpressionUUID->"880f1d89-ca48-ef4c-8955-16a02dd06624"], +In[124]:=",ExpressionUUID->"980ed828-a2ff-4a83-84e1-3c4779e08e4d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.77023432780569`*^-272\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 124, 58, 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99134759316485*^9, 3.9939615494994183`*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"dc0e6e38-5d06-40fa-9c88-7034f0cfe74b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.904979824693877`*^-282\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 124, 59, 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99134759316485*^9, 3.993961549506082*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"344fdc38-861e-49fc-a779-a1dd321d2f2f"], 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, 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99134759316485*^9, 3.99396154951182*^9}, CellLabel-> "During evaluation of \ -In[451]:=",ExpressionUUID->"fbbc91b1-3b40-a04c-8f78-5ca75ca88c9b"], +In[124]:=",ExpressionUUID->"b69d56c9-2b6b-4612-8b7a-2dcef0fc447f"], -Cell[BoxData["16.684462799943017`"], "Output", - CellChangeTimes->{3.9913475973006153`*^9}, +Cell[BoxData["3.8893219828365972`"], "Output", + CellChangeTimes->{3.9913475973006153`*^9, 3.993961551491872*^9}, CellLabel-> - "Out[451]=",ExpressionUUID->"ea027f70-f222-b745-8c2e-f4a8bd2e0421"] + "Out[124]=",ExpressionUUID->"fe9b6f00-d869-45c9-b25f-dfca23b6ba33"] }, 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["9.307486335825762`*^-8"], "Output", + CellChangeTimes->{3.991347597341627*^9, 3.99396155151755*^9}, + CellLabel-> + "Out[125]=",ExpressionUUID->"09bb02ff-e417-4994-8fd3-04a40510818b"] }, 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["13.579024065519944`"], "Output", + CellChangeTimes->{3.991347597372614*^9, 3.993961551528306*^9}, CellLabel-> - "Out[454]=",ExpressionUUID->"9fbf2f5c-e66a-8c48-92c5-cb97211e83a1"] + "Out[127]=",ExpressionUUID->"c466acef-ba1d-4d6b-b433-06c00f6d51c9"] }, 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.560255332286267`"], "Output", + CellChangeTimes->{3.991347597428034*^9, 3.993961551535392*^9}, CellLabel-> - "Out[456]=",ExpressionUUID->"7a911217-f777-234b-9e3e-66fa91b95a93"] + "Out[128]=",ExpressionUUID->"3c363f13-9baa-4801-9285-3df619171c67"] }, 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["21.186744705471035`"], "Output", + CellChangeTimes->{3.9913475974971066`*^9, 3.993961551543981*^9}, CellLabel-> - "Out[459]=",ExpressionUUID->"71512215-c060-b042-87dd-cf63c2fdbe79"] + "Out[129]=",ExpressionUUID->"d6f0c885-4546-4dfa-b531-a89bb1efcf9f"] }, 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.006445159479268069`"], "Output", + CellChangeTimes->{3.991347597528105*^9, 3.993961551555633*^9}, CellLabel-> - "Out[460]=",ExpressionUUID->"83eb5a5c-2221-9048-9616-76c841caa7ff"] + "Out[130]=",ExpressionUUID->"85f4a9c1-cd20-4b69-bf4f-b988e930a70e"] }, 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.038958652975232`"], "Output", + CellChangeTimes->{3.9913475976441536`*^9, 3.993961551645039*^9}, CellLabel-> - "Out[461]=",ExpressionUUID->"3469ea64-5888-e347-a592-fe58acf45252"] + "Out[131]=",ExpressionUUID->"50e72d10-5a00-46ee-aff3-9a56f7c641ef"] }, 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.04321141295700431`"], "Output", + CellChangeTimes->{3.991347597671173*^9, 3.9939615516555643`*^9}, CellLabel-> - "Out[462]=",ExpressionUUID->"6078ae64-e041-ef46-9c98-aeb384a7565b"] + "Out[132]=",ExpressionUUID->"79aca6f3-c5bb-42c5-85ff-5b389c448f4d"] }, 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.263298162446008`"], "Output", + CellChangeTimes->{3.9913475977705975`*^9, 3.993961551735896*^9}, CellLabel-> - "Out[463]=",ExpressionUUID->"ed53339e-8a54-b740-a712-127e0aa48364"] + "Out[133]=",ExpressionUUID->"1af264f7-b8f0-4532-8958-f0f9acd96b48"] }, 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.10778842427476491`"], "Output", + CellChangeTimes->{3.9913475977856007`*^9, 3.9939615517438707`*^9}, CellLabel-> - "Out[464]=",ExpressionUUID->"0881e898-a895-4f44-9932-c9b57f23fb23"] + "Out[134]=",ExpressionUUID->"16fb2023-2d1b-4f8b-afe7-8e9481112d89"] }, 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.892211575725235`"], "Output", + CellChangeTimes->{3.991347597813669*^9, 3.993961551751925*^9}, CellLabel-> - "Out[465]=",ExpressionUUID->"6f8be6ff-3439-7547-b2e5-a7f15df03852"] + "Out[135]=",ExpressionUUID->"092c09b2-1ed8-45ea-9d13-f798ed432cee"] }, 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.09617007986712818`"], "Output", + CellChangeTimes->{3.9913475978426323`*^9, 3.993961551760727*^9}, CellLabel-> - "Out[466]=",ExpressionUUID->"5f1268db-50d9-294a-839d-2dc73b3483c5"] + "Out[136]=",ExpressionUUID->"c9f66789-1e41-40f8-abdb-f6caea2c74f4"] }, Open ]], Cell[CellGroupData[{ @@ -7507,68 +12890,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[\\\"2.9291471240747297`*^-223\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 137, 61, 31385712231930919302, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347597872814*^9, 3.9939615517731543`*^9}, CellLabel-> "During evaluation of \ -In[467]:=",ExpressionUUID->"fea97571-51b6-bc4d-8922-e67cbea226be"], +In[137]:=",ExpressionUUID->"8ce8f1a8-c74a-4605-a45c-7e090ddd1fdb"], 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[\\\"5.7644807146583556`*^-229\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 137, 62, 31385712231930919302, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347597872814*^9, 3.9939615517799253`*^9}, CellLabel-> "During evaluation of \ -In[467]:=",ExpressionUUID->"f9381c1d-d837-a646-bb62-f69cb564b78b"], +In[137]:=",ExpressionUUID->"1506cdad-5229-4ecb-a9d3-fddf652938e4"], 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.134433898405313`*^-234\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 137, 63, 31385712231930919302, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347597872814*^9, 3.9939615517860317`*^9}, CellLabel-> "During evaluation of \ -In[467]:=",ExpressionUUID->"2dd3f3b2-ca3e-6c42-abc0-5cf7523a6a65"], +In[137]:=",ExpressionUUID->"494d1628-5d41-4dd4-8c13-09919ecf9e54"], 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, 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347597872814*^9, 3.9939615517914057`*^9}, CellLabel-> "During evaluation of \ -In[467]:=",ExpressionUUID->"5a727290-5b6b-a347-9739-3df9958ec415"], +In[137]:=",ExpressionUUID->"4c6c4308-6227-470b-99e6-dd92e3d7b918"], -Cell[BoxData["4.492838724335523`"], "Output", - CellChangeTimes->{3.9913476018505497`*^9}, +Cell[BoxData["11.038958652975234`"], "Output", + CellChangeTimes->{3.9913476018505497`*^9, 3.9939615545091333`*^9}, CellLabel-> - "Out[467]=",ExpressionUUID->"44426372-aa84-bf4c-9f95-4de13286a09a"] + "Out[137]=",ExpressionUUID->"fbaeb813-7b95-47f9-ac95-313c67c356b3"] }, Open ]], Cell[CellGroupData[{ @@ -7630,68 +13017,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[\\\"2.9291471240747297`*^-223\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 138, 65, 31385712231930919302, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913476018885117`*^9, 3.9939615545375757`*^9}, CellLabel-> "During evaluation of \ -In[468]:=",ExpressionUUID->"a32ffe4b-5346-7b46-9dee-b8bad033001e"], +In[138]:=",ExpressionUUID->"ee078afe-d5c1-4a21-aa90-85414905d920"], 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[\\\"5.7644807146583556`*^-229\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 138, 66, 31385712231930919302, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913476018885117`*^9, 3.9939615545432043`*^9}, CellLabel-> "During evaluation of \ -In[468]:=",ExpressionUUID->"902c6490-8537-484d-8825-0d2295db4f12"], +In[138]:=",ExpressionUUID->"1ffd6574-4a5a-4546-b4c5-815a6673116f"], 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.134433898405313`*^-234\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 138, 67, 31385712231930919302, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913476018885117`*^9, 3.993961554550783*^9}, CellLabel-> "During evaluation of \ -In[468]:=",ExpressionUUID->"1b49285c-a5d9-074c-871b-37b4cadb7269"], +In[138]:=",ExpressionUUID->"6ae42e72-de08-4c9d-bbbb-1d3206ca0a04"], 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, 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913476018885117`*^9, 3.993961554557139*^9}, CellLabel-> "During evaluation of \ -In[468]:=",ExpressionUUID->"2ff3d4da-4949-1448-b68b-aac1ae56bb1a"], +In[138]:=",ExpressionUUID->"f0505a56-5d54-4684-b3d2-d0905e7c8812"], -Cell[BoxData["7.912653285153152`"], "Output", - CellChangeTimes->{3.9913476058912296`*^9}, +Cell[BoxData["4.26329816244601`"], "Output", + CellChangeTimes->{3.9913476058912296`*^9, 3.99396155729115*^9}, CellLabel-> - "Out[468]=",ExpressionUUID->"046dcac0-9165-4b41-8a82-c19ed01a7ad4"] + "Out[138]=",ExpressionUUID->"7bed2a85-f543-43f3-b174-09f55848a4a8"] }, Open ]], Cell[CellGroupData[{ @@ -7749,93 +13140,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[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:eJwV1Hk8Fd0fB3DZsu+7yL4rudZS55slZQup7HHdOyT7npQ8lhYSUun3CFki +KQlZk0q7olAeRYRbcS13Utr9zv1jXvN6v2bmcz7nnJlRpUa60zk5ODjm8ME+ +R79Yp93S/2KL1BWthQguJtoyX2lKta1Dxg/+5Y/EHi81K9Sw7USE4w9Ptl1p +z3mFKA/QdUs0ynZDUup9HtteNJkTfi4K+8RDue7U2pfIGDIyorHb+qNLfhsP +oT7n9OoY7JmRpykHO4bRzuuhK7HYCtPqPt9s3iFzr4058diOCymWsb3vUYEt +6ZyI3fV7RjCpdgJp0wtsD2K/TpM9dCtiEnldV4g6hD3PazuzZDyNkER2/2Fs +3pwoL8oyAzWnTdKPYiuLX3wc3fEJbWaqG6Vjuyh+uzxvg3vu9w06gU2UqckY +8s2jcg+P3hzsVM2dmQd6FxB1lhKahz0sO7ghrpaFWLev2BZh07xD95/JIVHG +I5RWjL1YzHHpZsQXZCp3myzD5lMzFGMZf0UPFcPjarELafftxaS/oS/5pRn1 +2CrVXqnrl7+htKHWJ03YFgZZ8+Ed31GxVSl5BzvE7H3vjM1vJHDM/M4w9lJS +PLeA1h/0Prw44T320Q5BK12+v8hygUFlYBeBxdXg3hU0KGIwssTuV/XYNqZ2 +FcwURttIcTNR7cMz42mKnEAz+HtpDfbiR/+U/BxOuPc6wlQTO0Xva+ONCC7o +yvr10wy7sF5VfcGYBz7/7eDwwx7pZ3b9reCBG+NU3mBsFbLFW0SaF15+n4Vo +7DoTlwLDZV5w7anwyMLuaUteFdbBB24O5d9uYn+9P/D+k40QiNz/n4YMDxNJ +OAmJHeoSgodjlRc0sI0GbUHYUhiaZ/udKNihU81lG9aJgPGaU+Fu2FGcvUab +hcQgw+5EUR72tNp1VuY3cfBU0ypU4MXrQzzl76NIwJCv7KwBNudVhqpctATY +31E7irBVKGvda2clQPBJJo2O7W2Td/PFuCSEaYbLNGH3BcXEyj6TholSK2W/ +1Uw0Vp2bHcAnA6sLT+6JxWbO1lZcsZOBjyKfe09gC8RNDmzqloG1i4OxLdi2 +GR4mAc2ycN5rd600HxO1V5p9rSmVh5I077ZR7Mrpnwkb45QAxap5Fwsw0fbd +x8ZirylBf/wNj1ZsZo/ktmsMJQjdZ5c5iG1SaSCt4qUM3r+PHhcWxOtJ9W/k +2bIWwi7qyf6DTS6MJ35KV4Gjr4o94oWYSDLctqnRWQ0qhnwdMkSYiFEpEOIa +qgbd96y5q7Fb3/UrzmWpgWq69NITbF8nv3StbjUIeXs4XkwU99NPcL9grA5i +OrBSim0yU714RFYD3oS0Gj4RYyKPYEFDhwlNOLbv7IKNJBOhhN3Ge/9ogvrT +o4Vh2HqZpeY0eS3YaagWfhabo4JifcRNC1bu/tP2EfvamM/em3e1YE6+pCtX +Cn+fe+rSFMq1IaHT9SBDGvezdX49Q9WFItr3mk45JqrYdf7t8hFdqBbNuTeL +nUudGOf+VxdI65uiivL4/T4aP6s8oAtjSQ22ydjinRc5dtnowfFdXvKbFPD7 +Q5nX61DXB70Xm8IeKjKRotrp1OwpA/h8+0A911om6jy5pPuD0xAquRg9m7F9 +v3gNEqqGkE68l0nCLunR0LX2NwSpjO1Rc9hqwe2vvr8xBL3We99HVPB866Y1 +iWfrgIh44H9XjYmUFJUJFS8jyNEWj+nQYiKDqjihX/jv9+19iz1tPRNRaelf +DV2MwVMg+GQNdpF6wViArzH4H/ZcNYfNVV5/42GSMUSQP7MTjPD3VjLjUdBg +DKPNAlI5G/B/qijgoq46BTakNc91U/D+Zjut8+Q1gU9Pp9vcLJjoUoyGa3Ov +KXQzf9uJWjNRfwIyz6iyhNMHl8VZXkyk6j/k4he2GTalRKXyxzMRfeXWdaWD +AMXCw3cy85lIdrZ1tSzVGmrbFSgjjUwUR7F6V6BnC47ZwWnib3D/ud+PJWfs +4PmAKuPwb7yf1rGrS/vs4Z9Y7x9bdeZQ5VLo3brCHSCjY9/5fdcc+r5V7nlP +qiOslfpBBmTNoVEOLtZEoDPA0PTpZ+1zKGJNZF6a+k4ojNzdqD8/h67vf9x9 +NtMVSkxPLsXrzKPkL/LL+vvdQMBLIUwlcB59ddi259E+d+BfmFrzomweWfrk +b5122wU9BpdKwybm0Sv5i6E9FA+wNGBB0NoFpHA5vbNGZzeEqcQN69MWUOu4 +npOL8B5wVXuZf7VqASkPLgYnzO2Bk0IWKyOMBUQ5m19XMb4Xurzi/YxlF9FF +7i/rCu57QsTK/oRBi0V0a+v6kcw2L+BRXVQO9ltEReYnxX/XesOF1nA+27RF +1Pe2KouS4wO1sj8rssoXUbNzsUbUUV8Yp7xKNH+4iFjhuzgiaH6QnKi9gfvj +Ivq6TTdk3sYfUi+u5TjOy0I1c/99jzXbB8/s3Y+/1mYhz0tVQX5CARBqlM09 +Y8dCjTcd93EdC4B4r5TELXQWslR89ePEjwB44jDloZbGQurjwSMv9wdCzWr5 +jYL/stCU4IGdxZOBwLOnhB7QzEL9uS5B9rupEBo7Pqzey0KFSaWC8f1UuMGR +rlH3gYU6u1Z+BO0IAu0s9OzQNxYS9YVjlPYguLwQu+kRL4lUpB71rekMgkcr +G+X4V5PIqNdZjrcrCLTWez5zwHa38rkyfDcIQqITmp5jF65JeHb4SRDQNSLy +X/KRSGH0qujj4SDYMNUc+VKARBr+skW+y0FgcGnhRIMIiSwD5msyTWhQlOB2 +mSVNossXFmNdzGgwViZkpilDIqkBcousBQ3sH8yVemLP2y0P1myiwfKiEOcd +7Ep9jlW91jSg7TRYOSFLIpFlcS8JNxo8kAoelpMn0dQpU/7ScBpIOLtMyq8h +kdsj88HgSBrMdb+7th27i2NjqVE0DVzGFtwSsS/EbjG9F0cDfkae1iC2i5d9 +4PQhGnyvt1iVo0SiNg2vNv2TNLj6ZiVxSZlEuR0p+1sv04BqsdGxRpVE4cbn +LZNqaPDa5FLoS2ynKw38FrU0YLFSaT+xBc4zrrRco0FPSOFHRzUSZca4ztxq +wnkGNXpz2Cm6Ggea79GglfNvmY4GiULPPwu7OUaDwG8WlHQtEu0QYVjFjNNA +8v7PC9XYOpkcwsYfaFAi0jbyDJsRY3qtYZoGwvVrZiS1SRToUjp3g0kDpduK +UI7tyRMbUf8Tzyfyw4MWHRLZxypE1cnQYcOOMpWHeiS6V5rlUCBHhw89GhGf +sK16SY0kBTpkaIbmCujj/dd89p+NMh1OZ2rbu2DLvzlk81aTDoXxf4oGsGc3 +jsoImNJheaaufciARKc5y24H76LD789Tb1vW4fmvFypy3k2Hxf2qyYPYGT5J +MZS9dDjlUTOziJ3U5Kq94k0HhT/HrHXX4/7EqvxzVDqse77h+XlsylMq7UE0 +HY6neDuGGZHoTb6moHoeHcKXo4fIDSS6joRDPuXj+88UG/EZ4/y5pZ5rZ+hQ +/boqSAnbeEfPEYvzdJC84Ohmj53LEUQ6l9Chva/a4QL2tsiy/5Lq6CBb/qLR +lEIiJaXjZluu06HMipG9HXvpaeQZrht0WBPesckHu1wLOec20qHx7Tm1o9h/ +Rke7K9rp4Pv5ndBj7CYnxZoXj/F66Qi6u5qQKPsnJ0/hUzzeGaWqAGxqzUyg +Vy8dyIr+vihsMe52xak+OnjySdTlYYd1eJ7+8ZoOiYqDqS+w1fXOJWhM0+Hh +5FKBtSmJfr45PPCZQQcOA/d9rtj9mXSj+k90WL3TnMsf+8iEyYwlkw53Ms68 +TMIeKRrw2/mFDqKU8ON12AWrxe2SVxHgH53qJ2RGok5y1CeOiwAzoePzctgf +R2tjIngIeN7F56yJbdVkW0blJ2BYNCxmMzYjIOmXgzgBh1xO+x/AFnOyk7CT +JKCdMPRJwN5kLqGLpAmwOmGumYadJ1y3hyJPACf1pOo59vX29w2KqgTYcfJ0 +3MYmquoeS6vj58dG1R6x7887+F5Uk4AhTznPfvZ4hKQwty4BlQeu6X1gX5e0 +D2EaEeAQYBHFZU6i9r+SqQxjAkTc/loLYk9/Hj87bkJAsJTSpAT2xu7k+4MW +BPjqBmarYk+FXVe+DQRIFH0+ZIUt4nnItMWagMhfPm3W2JY2250abAnYx6fS +sx07V/7DwartBFzj/d9WD+xW7vq8UgcCrFNcmrywJxcOVV9wImCgwm3JH9vi +ofTQKVcCdnltfReCTW34MHvMnYD+UoOMcOxTxfWc/3jgfH7aj2jsDzE7jBI8 +CXj3t8kxGVvYX8Y+ypuAm4nPdY6w83ZM+oX6EhA7t34gjf382sPZ/gEEJLP6 +Tx9n9xFwKPekEiB6SaQ8m533VabNnUaASl5hWi47b2Kyz4nA/fdR1+Wz83pv +MLaFELCjJbHmDLtfy+E/EEqAmN3gwll2frmD1KYwAq7eTuQuYuefktU3jSDA +5V0g4wI7P2lq6/ooAu5SC87+iy1Ea/DUjSFgtzy/xEVs851HItXjCBh78cCn +hJ2/0TFLKYGAl56PY0qxczTlLsomEaB6RmxvGfYtselG8WQC3AJK+C5hT/xq +eCqYQkDClehjbAt9PDLBc4QAff+TA2ybvXL8vpJKQFncJybb/wcSp9Jf "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -7849,105 +13241,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:eJwV1Hk8Fd0fB3DZsu+7yL4rudZS55slZQup7HHdOyT7npQ8lhYSUun3CFki +KQlZk0q7olAeRYRbcS13Utr9zv1jXvN6v2bmcz7nnJlRpUa60zk5ODjm8ME+ +R79Yp93S/2KL1BWthQguJtoyX2lKta1Dxg/+5Y/EHi81K9Sw7USE4w9Ptl1p +z3mFKA/QdUs0ynZDUup9HtteNJkTfi4K+8RDue7U2pfIGDIyorHb+qNLfhsP +oT7n9OoY7JmRpykHO4bRzuuhK7HYCtPqPt9s3iFzr4058diOCymWsb3vUYEt +6ZyI3fV7RjCpdgJp0wtsD2K/TpM9dCtiEnldV4g6hD3PazuzZDyNkER2/2Fs +3pwoL8oyAzWnTdKPYiuLX3wc3fEJbWaqG6Vjuyh+uzxvg3vu9w06gU2UqckY +8s2jcg+P3hzsVM2dmQd6FxB1lhKahz0sO7ghrpaFWLev2BZh07xD95/JIVHG +I5RWjL1YzHHpZsQXZCp3myzD5lMzFGMZf0UPFcPjarELafftxaS/oS/5pRn1 +2CrVXqnrl7+htKHWJ03YFgZZ8+Ed31GxVSl5BzvE7H3vjM1vJHDM/M4w9lJS +PLeA1h/0Prw44T320Q5BK12+v8hygUFlYBeBxdXg3hU0KGIwssTuV/XYNqZ2 +FcwURttIcTNR7cMz42mKnEAz+HtpDfbiR/+U/BxOuPc6wlQTO0Xva+ONCC7o +yvr10wy7sF5VfcGYBz7/7eDwwx7pZ3b9reCBG+NU3mBsFbLFW0SaF15+n4Vo +7DoTlwLDZV5w7anwyMLuaUteFdbBB24O5d9uYn+9P/D+k40QiNz/n4YMDxNJ +OAmJHeoSgodjlRc0sI0GbUHYUhiaZ/udKNihU81lG9aJgPGaU+Fu2FGcvUab +hcQgw+5EUR72tNp1VuY3cfBU0ypU4MXrQzzl76NIwJCv7KwBNudVhqpctATY +31E7irBVKGvda2clQPBJJo2O7W2Td/PFuCSEaYbLNGH3BcXEyj6TholSK2W/ +1Uw0Vp2bHcAnA6sLT+6JxWbO1lZcsZOBjyKfe09gC8RNDmzqloG1i4OxLdi2 +GR4mAc2ycN5rd600HxO1V5p9rSmVh5I077ZR7Mrpnwkb45QAxap5Fwsw0fbd +x8ZirylBf/wNj1ZsZo/ktmsMJQjdZ5c5iG1SaSCt4qUM3r+PHhcWxOtJ9W/k +2bIWwi7qyf6DTS6MJ35KV4Gjr4o94oWYSDLctqnRWQ0qhnwdMkSYiFEpEOIa +qgbd96y5q7Fb3/UrzmWpgWq69NITbF8nv3StbjUIeXs4XkwU99NPcL9grA5i +OrBSim0yU714RFYD3oS0Gj4RYyKPYEFDhwlNOLbv7IKNJBOhhN3Ge/9ogvrT +o4Vh2HqZpeY0eS3YaagWfhabo4JifcRNC1bu/tP2EfvamM/em3e1YE6+pCtX +Cn+fe+rSFMq1IaHT9SBDGvezdX49Q9WFItr3mk45JqrYdf7t8hFdqBbNuTeL +nUudGOf+VxdI65uiivL4/T4aP6s8oAtjSQ22ydjinRc5dtnowfFdXvKbFPD7 +Q5nX61DXB70Xm8IeKjKRotrp1OwpA/h8+0A911om6jy5pPuD0xAquRg9m7F9 +v3gNEqqGkE68l0nCLunR0LX2NwSpjO1Rc9hqwe2vvr8xBL3We99HVPB866Y1 +iWfrgIh44H9XjYmUFJUJFS8jyNEWj+nQYiKDqjihX/jv9+19iz1tPRNRaelf +DV2MwVMg+GQNdpF6wViArzH4H/ZcNYfNVV5/42GSMUSQP7MTjPD3VjLjUdBg +DKPNAlI5G/B/qijgoq46BTakNc91U/D+Zjut8+Q1gU9Pp9vcLJjoUoyGa3Ov +KXQzf9uJWjNRfwIyz6iyhNMHl8VZXkyk6j/k4he2GTalRKXyxzMRfeXWdaWD +AMXCw3cy85lIdrZ1tSzVGmrbFSgjjUwUR7F6V6BnC47ZwWnib3D/ud+PJWfs +4PmAKuPwb7yf1rGrS/vs4Z9Y7x9bdeZQ5VLo3brCHSCjY9/5fdcc+r5V7nlP +qiOslfpBBmTNoVEOLtZEoDPA0PTpZ+1zKGJNZF6a+k4ojNzdqD8/h67vf9x9 +NtMVSkxPLsXrzKPkL/LL+vvdQMBLIUwlcB59ddi259E+d+BfmFrzomweWfrk +b5122wU9BpdKwybm0Sv5i6E9FA+wNGBB0NoFpHA5vbNGZzeEqcQN69MWUOu4 +npOL8B5wVXuZf7VqASkPLgYnzO2Bk0IWKyOMBUQ5m19XMb4Xurzi/YxlF9FF +7i/rCu57QsTK/oRBi0V0a+v6kcw2L+BRXVQO9ltEReYnxX/XesOF1nA+27RF +1Pe2KouS4wO1sj8rssoXUbNzsUbUUV8Yp7xKNH+4iFjhuzgiaH6QnKi9gfvj +Ivq6TTdk3sYfUi+u5TjOy0I1c/99jzXbB8/s3Y+/1mYhz0tVQX5CARBqlM09 +Y8dCjTcd93EdC4B4r5TELXQWslR89ePEjwB44jDloZbGQurjwSMv9wdCzWr5 +jYL/stCU4IGdxZOBwLOnhB7QzEL9uS5B9rupEBo7Pqzey0KFSaWC8f1UuMGR +rlH3gYU6u1Z+BO0IAu0s9OzQNxYS9YVjlPYguLwQu+kRL4lUpB71rekMgkcr +G+X4V5PIqNdZjrcrCLTWez5zwHa38rkyfDcIQqITmp5jF65JeHb4SRDQNSLy +X/KRSGH0qujj4SDYMNUc+VKARBr+skW+y0FgcGnhRIMIiSwD5msyTWhQlOB2 +mSVNossXFmNdzGgwViZkpilDIqkBcousBQ3sH8yVemLP2y0P1myiwfKiEOcd +7Ep9jlW91jSg7TRYOSFLIpFlcS8JNxo8kAoelpMn0dQpU/7ScBpIOLtMyq8h +kdsj88HgSBrMdb+7th27i2NjqVE0DVzGFtwSsS/EbjG9F0cDfkae1iC2i5d9 +4PQhGnyvt1iVo0SiNg2vNv2TNLj6ZiVxSZlEuR0p+1sv04BqsdGxRpVE4cbn +LZNqaPDa5FLoS2ynKw38FrU0YLFSaT+xBc4zrrRco0FPSOFHRzUSZca4ztxq +wnkGNXpz2Cm6Ggea79GglfNvmY4GiULPPwu7OUaDwG8WlHQtEu0QYVjFjNNA +8v7PC9XYOpkcwsYfaFAi0jbyDJsRY3qtYZoGwvVrZiS1SRToUjp3g0kDpduK +UI7tyRMbUf8Tzyfyw4MWHRLZxypE1cnQYcOOMpWHeiS6V5rlUCBHhw89GhGf +sK16SY0kBTpkaIbmCujj/dd89p+NMh1OZ2rbu2DLvzlk81aTDoXxf4oGsGc3 +jsoImNJheaaufciARKc5y24H76LD789Tb1vW4fmvFypy3k2Hxf2qyYPYGT5J +MZS9dDjlUTOziJ3U5Kq94k0HhT/HrHXX4/7EqvxzVDqse77h+XlsylMq7UE0 +HY6neDuGGZHoTb6moHoeHcKXo4fIDSS6joRDPuXj+88UG/EZ4/y5pZ5rZ+hQ +/boqSAnbeEfPEYvzdJC84Ohmj53LEUQ6l9Chva/a4QL2tsiy/5Lq6CBb/qLR +lEIiJaXjZluu06HMipG9HXvpaeQZrht0WBPesckHu1wLOec20qHx7Tm1o9h/ +Rke7K9rp4Pv5ndBj7CYnxZoXj/F66Qi6u5qQKPsnJ0/hUzzeGaWqAGxqzUyg +Vy8dyIr+vihsMe52xak+OnjySdTlYYd1eJ7+8ZoOiYqDqS+w1fXOJWhM0+Hh +5FKBtSmJfr45PPCZQQcOA/d9rtj9mXSj+k90WL3TnMsf+8iEyYwlkw53Ms68 +TMIeKRrw2/mFDqKU8ON12AWrxe2SVxHgH53qJ2RGok5y1CeOiwAzoePzctgf +R2tjIngIeN7F56yJbdVkW0blJ2BYNCxmMzYjIOmXgzgBh1xO+x/AFnOyk7CT +JKCdMPRJwN5kLqGLpAmwOmGumYadJ1y3hyJPACf1pOo59vX29w2KqgTYcfJ0 +3MYmquoeS6vj58dG1R6x7887+F5Uk4AhTznPfvZ4hKQwty4BlQeu6X1gX5e0 +D2EaEeAQYBHFZU6i9r+SqQxjAkTc/loLYk9/Hj87bkJAsJTSpAT2xu7k+4MW +BPjqBmarYk+FXVe+DQRIFH0+ZIUt4nnItMWagMhfPm3W2JY2250abAnYx6fS +sx07V/7DwartBFzj/d9WD+xW7vq8UgcCrFNcmrywJxcOVV9wImCgwm3JH9vi +ofTQKVcCdnltfReCTW34MHvMnYD+UoOMcOxTxfWc/3jgfH7aj2jsDzE7jBI8 +CXj3t8kxGVvYX8Y+ypuAm4nPdY6w83ZM+oX6EhA7t34gjf382sPZ/gEEJLP6 +Tx9n9xFwKPekEiB6SaQ8m533VabNnUaASl5hWi47b2Kyz4nA/fdR1+Wz83pv +MLaFELCjJbHmDLtfy+E/EEqAmN3gwll2frmD1KYwAq7eTuQuYuefktU3jSDA +5V0g4wI7P2lq6/ooAu5SC87+iy1Ea/DUjSFgtzy/xEVs851HItXjCBh78cCn +hJ2/0TFLKYGAl56PY0qxczTlLsomEaB6RmxvGfYtselG8WQC3AJK+C5hT/xq +eCqYQkDClehjbAt9PDLBc4QAff+TA2ybvXL8vpJKQFncJybb/wcSp9Jf "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5511670383120075, - 1.7091854080147844`}}, + "PlotRange" -> {{0, 180}, {0.8754191084783849, + 1.1385821584911255`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5511670383120088}, + "AxesOrigin" -> {0, 0.8754191084783869}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.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 +13352,21 @@ wTw= "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5511670383120075, - 1.7091854080147844`}}, + "PlotRange" -> {{0, 180}, {0.8754191084783849, + 1.1385821584911255`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5511670383120088}, + "AxesOrigin" -> {0, 0.8754191084783869}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 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 +13380,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:eJwV1Hk8Fd0fB3DZsu+7yL4rudZS55slZQup7HHdOyT7npQ8lhYSUun3CFki +KQlZk0q7olAeRYRbcS13Utr9zv1jXvN6v2bmcz7nnJlRpUa60zk5ODjm8ME+ +R79Yp93S/2KL1BWthQguJtoyX2lKta1Dxg/+5Y/EHi81K9Sw7USE4w9Ptl1p +z3mFKA/QdUs0ynZDUup9HtteNJkTfi4K+8RDue7U2pfIGDIyorHb+qNLfhsP +oT7n9OoY7JmRpykHO4bRzuuhK7HYCtPqPt9s3iFzr4058diOCymWsb3vUYEt +6ZyI3fV7RjCpdgJp0wtsD2K/TpM9dCtiEnldV4g6hD3PazuzZDyNkER2/2Fs +3pwoL8oyAzWnTdKPYiuLX3wc3fEJbWaqG6Vjuyh+uzxvg3vu9w06gU2UqckY +8s2jcg+P3hzsVM2dmQd6FxB1lhKahz0sO7ghrpaFWLev2BZh07xD95/JIVHG +I5RWjL1YzHHpZsQXZCp3myzD5lMzFGMZf0UPFcPjarELafftxaS/oS/5pRn1 +2CrVXqnrl7+htKHWJ03YFgZZ8+Ed31GxVSl5BzvE7H3vjM1vJHDM/M4w9lJS +PLeA1h/0Prw44T320Q5BK12+v8hygUFlYBeBxdXg3hU0KGIwssTuV/XYNqZ2 +FcwURttIcTNR7cMz42mKnEAz+HtpDfbiR/+U/BxOuPc6wlQTO0Xva+ONCC7o +yvr10wy7sF5VfcGYBz7/7eDwwx7pZ3b9reCBG+NU3mBsFbLFW0SaF15+n4Vo +7DoTlwLDZV5w7anwyMLuaUteFdbBB24O5d9uYn+9P/D+k40QiNz/n4YMDxNJ +OAmJHeoSgodjlRc0sI0GbUHYUhiaZ/udKNihU81lG9aJgPGaU+Fu2FGcvUab +hcQgw+5EUR72tNp1VuY3cfBU0ypU4MXrQzzl76NIwJCv7KwBNudVhqpctATY +31E7irBVKGvda2clQPBJJo2O7W2Td/PFuCSEaYbLNGH3BcXEyj6TholSK2W/ +1Uw0Vp2bHcAnA6sLT+6JxWbO1lZcsZOBjyKfe09gC8RNDmzqloG1i4OxLdi2 +GR4mAc2ycN5rd600HxO1V5p9rSmVh5I077ZR7Mrpnwkb45QAxap5Fwsw0fbd +x8ZirylBf/wNj1ZsZo/ktmsMJQjdZ5c5iG1SaSCt4qUM3r+PHhcWxOtJ9W/k +2bIWwi7qyf6DTS6MJ35KV4Gjr4o94oWYSDLctqnRWQ0qhnwdMkSYiFEpEOIa +qgbd96y5q7Fb3/UrzmWpgWq69NITbF8nv3StbjUIeXs4XkwU99NPcL9grA5i +OrBSim0yU714RFYD3oS0Gj4RYyKPYEFDhwlNOLbv7IKNJBOhhN3Ge/9ogvrT +o4Vh2HqZpeY0eS3YaagWfhabo4JifcRNC1bu/tP2EfvamM/em3e1YE6+pCtX +Cn+fe+rSFMq1IaHT9SBDGvezdX49Q9WFItr3mk45JqrYdf7t8hFdqBbNuTeL +nUudGOf+VxdI65uiivL4/T4aP6s8oAtjSQ22ydjinRc5dtnowfFdXvKbFPD7 +Q5nX61DXB70Xm8IeKjKRotrp1OwpA/h8+0A911om6jy5pPuD0xAquRg9m7F9 +v3gNEqqGkE68l0nCLunR0LX2NwSpjO1Rc9hqwe2vvr8xBL3We99HVPB866Y1 +iWfrgIh44H9XjYmUFJUJFS8jyNEWj+nQYiKDqjihX/jv9+19iz1tPRNRaelf +DV2MwVMg+GQNdpF6wViArzH4H/ZcNYfNVV5/42GSMUSQP7MTjPD3VjLjUdBg +DKPNAlI5G/B/qijgoq46BTakNc91U/D+Zjut8+Q1gU9Pp9vcLJjoUoyGa3Ov +KXQzf9uJWjNRfwIyz6iyhNMHl8VZXkyk6j/k4he2GTalRKXyxzMRfeXWdaWD +AMXCw3cy85lIdrZ1tSzVGmrbFSgjjUwUR7F6V6BnC47ZwWnib3D/ud+PJWfs +4PmAKuPwb7yf1rGrS/vs4Z9Y7x9bdeZQ5VLo3brCHSCjY9/5fdcc+r5V7nlP +qiOslfpBBmTNoVEOLtZEoDPA0PTpZ+1zKGJNZF6a+k4ojNzdqD8/h67vf9x9 +NtMVSkxPLsXrzKPkL/LL+vvdQMBLIUwlcB59ddi259E+d+BfmFrzomweWfrk +b5122wU9BpdKwybm0Sv5i6E9FA+wNGBB0NoFpHA5vbNGZzeEqcQN69MWUOu4 +npOL8B5wVXuZf7VqASkPLgYnzO2Bk0IWKyOMBUQ5m19XMb4Xurzi/YxlF9FF +7i/rCu57QsTK/oRBi0V0a+v6kcw2L+BRXVQO9ltEReYnxX/XesOF1nA+27RF +1Pe2KouS4wO1sj8rssoXUbNzsUbUUV8Yp7xKNH+4iFjhuzgiaH6QnKi9gfvj +Ivq6TTdk3sYfUi+u5TjOy0I1c/99jzXbB8/s3Y+/1mYhz0tVQX5CARBqlM09 +Y8dCjTcd93EdC4B4r5TELXQWslR89ePEjwB44jDloZbGQurjwSMv9wdCzWr5 +jYL/stCU4IGdxZOBwLOnhB7QzEL9uS5B9rupEBo7Pqzey0KFSaWC8f1UuMGR +rlH3gYU6u1Z+BO0IAu0s9OzQNxYS9YVjlPYguLwQu+kRL4lUpB71rekMgkcr +G+X4V5PIqNdZjrcrCLTWez5zwHa38rkyfDcIQqITmp5jF65JeHb4SRDQNSLy +X/KRSGH0qujj4SDYMNUc+VKARBr+skW+y0FgcGnhRIMIiSwD5msyTWhQlOB2 +mSVNossXFmNdzGgwViZkpilDIqkBcousBQ3sH8yVemLP2y0P1myiwfKiEOcd +7Ep9jlW91jSg7TRYOSFLIpFlcS8JNxo8kAoelpMn0dQpU/7ScBpIOLtMyq8h +kdsj88HgSBrMdb+7th27i2NjqVE0DVzGFtwSsS/EbjG9F0cDfkae1iC2i5d9 +4PQhGnyvt1iVo0SiNg2vNv2TNLj6ZiVxSZlEuR0p+1sv04BqsdGxRpVE4cbn +LZNqaPDa5FLoS2ynKw38FrU0YLFSaT+xBc4zrrRco0FPSOFHRzUSZca4ztxq +wnkGNXpz2Cm6Ggea79GglfNvmY4GiULPPwu7OUaDwG8WlHQtEu0QYVjFjNNA +8v7PC9XYOpkcwsYfaFAi0jbyDJsRY3qtYZoGwvVrZiS1SRToUjp3g0kDpduK +UI7tyRMbUf8Tzyfyw4MWHRLZxypE1cnQYcOOMpWHeiS6V5rlUCBHhw89GhGf +sK16SY0kBTpkaIbmCujj/dd89p+NMh1OZ2rbu2DLvzlk81aTDoXxf4oGsGc3 +jsoImNJheaaufciARKc5y24H76LD789Tb1vW4fmvFypy3k2Hxf2qyYPYGT5J +MZS9dDjlUTOziJ3U5Kq94k0HhT/HrHXX4/7EqvxzVDqse77h+XlsylMq7UE0 +HY6neDuGGZHoTb6moHoeHcKXo4fIDSS6joRDPuXj+88UG/EZ4/y5pZ5rZ+hQ +/boqSAnbeEfPEYvzdJC84Ohmj53LEUQ6l9Chva/a4QL2tsiy/5Lq6CBb/qLR +lEIiJaXjZluu06HMipG9HXvpaeQZrht0WBPesckHu1wLOec20qHx7Tm1o9h/ +Rke7K9rp4Pv5ndBj7CYnxZoXj/F66Qi6u5qQKPsnJ0/hUzzeGaWqAGxqzUyg +Vy8dyIr+vihsMe52xak+OnjySdTlYYd1eJ7+8ZoOiYqDqS+w1fXOJWhM0+Hh +5FKBtSmJfr45PPCZQQcOA/d9rtj9mXSj+k90WL3TnMsf+8iEyYwlkw53Ms68 +TMIeKRrw2/mFDqKU8ON12AWrxe2SVxHgH53qJ2RGok5y1CeOiwAzoePzctgf +R2tjIngIeN7F56yJbdVkW0blJ2BYNCxmMzYjIOmXgzgBh1xO+x/AFnOyk7CT +JKCdMPRJwN5kLqGLpAmwOmGumYadJ1y3hyJPACf1pOo59vX29w2KqgTYcfJ0 +3MYmquoeS6vj58dG1R6x7887+F5Uk4AhTznPfvZ4hKQwty4BlQeu6X1gX5e0 +D2EaEeAQYBHFZU6i9r+SqQxjAkTc/loLYk9/Hj87bkJAsJTSpAT2xu7k+4MW +BPjqBmarYk+FXVe+DQRIFH0+ZIUt4nnItMWagMhfPm3W2JY2250abAnYx6fS +sx07V/7DwartBFzj/d9WD+xW7vq8UgcCrFNcmrywJxcOVV9wImCgwm3JH9vi +ofTQKVcCdnltfReCTW34MHvMnYD+UoOMcOxTxfWc/3jgfH7aj2jsDzE7jBI8 +CXj3t8kxGVvYX8Y+ypuAm4nPdY6w83ZM+oX6EhA7t34gjf382sPZ/gEEJLP6 +Tx9n9xFwKPekEiB6SaQ8m533VabNnUaASl5hWi47b2Kyz4nA/fdR1+Wz83pv +MLaFELCjJbHmDLtfy+E/EEqAmN3gwll2frmD1KYwAq7eTuQuYuefktU3jSDA +5V0g4wI7P2lq6/ooAu5SC87+iy1Ea/DUjSFgtzy/xEVs851HItXjCBh78cCn +hJ2/0TFLKYGAl56PY0qxczTlLsomEaB6RmxvGfYtselG8WQC3AJK+C5hT/xq +eCqYQkDClehjbAt9PDLBc4QAff+TA2ybvXL8vpJKQFncJybb/wcSp9Jf "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5511670383120075, 1.7091854080147844`}}, + "PlotRange" -> {{0, 180}, {0.8754191084783849, 1.1385821584911255`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5511670383120088}, + "AxesOrigin" -> {0, 0.8754191084783869}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 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 +13487,8 @@ wTw= AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.5511670383120088}, + AxesOrigin->{0, 0.8754191084783869}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -8121,7 +13516,8 @@ wTw= Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.5511670383120075, 1.7091854080147844`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.8754191084783849, 1.1385821584911255`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -8129,9 +13525,9 @@ wTw= Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991347865018469*^9}, + CellChangeTimes->{3.991347865018469*^9, 3.99396177921703*^9}, CellLabel-> - "Out[469]=",ExpressionUUID->"d1cda4a3-f1fb-0d44-a506-74525ae66245"] + "Out[139]=",ExpressionUUID->"909c2def-77b8-4693-85a6-8f163cafcebc"] }, Open ]], Cell[CellGroupData[{ @@ -8195,199 +13591,164 @@ 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[\\\"1.294867111522628`*^-267\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 69, 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913478652482224`*^9, 3.993961779314376*^9}, + CellLabel-> + "During evaluation of \ +In[140]:=",ExpressionUUID->"7a3341c1-5c89-42da-aa3f-4cca71a7a809"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.57111885607495`*^-280\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 70, 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913478652482224`*^9, 3.993961779320661*^9}, + CellLabel-> + "During evaluation of \ +In[140]:=",ExpressionUUID->"a202c3c5-9849-405a-b0b9-ee3d464c0644"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.074572775996606`*^-292\\\", \ \\\"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, + 71, 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913478652482224`*^9, 3.9939617793259573`*^9}, CellLabel-> "During evaluation of \ -In[470]:=",ExpressionUUID->"56dc07a7-05cc-424a-8fff-08f056385a44"], - -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}, - 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[140]:=",ExpressionUUID->"df76cdc4-eec6-4eec-a571-15bbb0beab42"], 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, 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913478652482224`*^9, 3.993961779332694*^9}, CellLabel-> "During evaluation of \ -In[470]:=",ExpressionUUID->"64c101a8-dc8b-1f4e-9946-a38ce949c736"], +In[140]:=",ExpressionUUID->"2c8c5ad4-dfe3-4610-9c26-418abf207410"], 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:eJwV13k0lG8bB3CRSiFbBllmxqDse8h0XRRCUZaSEJUtQshaWYq08CPKklBZ +s81TIVRkC5U2WxSSUipLllDyPu9fcz5nzpx55r6/9/e+hnbY18qVnY2NjXcF +G9v/X+cG2poYl3K3rd0Q38j6hds6s0RCDXqj4ex0pnQnRQpww8vDIr1XIMt9 +jj2eogJBe+70cPTegsIUuRZHCgD/OOXKQs9deMWrFUShWMLgQwvfmZ4G+Pnl +wyVd4UNgzBj7MNXzBvg4DjYPCvjCQs+Wq5M9wxDWd0HoEmcENG4vyH19axp+ +8RyS/L02EcQHq78cVlyCJS/uXYUJqSDkfejO6u0cqKSWN5x9IwuuqBnXWtiu +QZ6UptMp327BuzTV+ik+HuTdmt47w5kPl3IjXrKL8uPpGeuQHMEioKR8upB8 +QxBlX4ZGtlcVg4hCxbn5fEHc7vWtZbK+GMQaYiMcWYI41bb0mL+9GCQnN5+U +axTEiZaTddvfF4PMLj/n2q+CaNBc8NGdrQQ0Vi5pf9IQQg1mI6vcpAQsA4VH +1NuFUOHfr2WtNyVw3sZ025u5DZhgb0Ib7S4FsfsdYuwrhPGTd0/7gcFSKBO0 ++a22ThgFrWommkdLofuNEytJShjVEx4XXJwvBcbeQPrencJ4YLNyVbNoGTTs +zl71Kl0YxQPaElYcLIMl49mOF/oU3Pqf5MmLvWWQmB9WvGRMwVcORqPyQ2XA +WMUWp7SXgvPt7rVNo2Wwq3mtQbwrBf9d4D8/MlcGGdup93YlUFDWPj2jU6gc +dNA89dkgBTkr5FSCLMshQPfmobZoEbTc0XO8tq4czHJ4Z8wvi+DKCpcSwZZy +oK8+FddxVQTLNbNF3J6Xw6vOfcTbQhHkUeYLXegtB2U/bo6BDhHcmKll1TdV +Dl/zg/N/iYli3rIVxZCfBQ5CFj833hPFdwLiGbXAAo3w2qish6L451e000VD +Fqwd3iRMaxFFeZ1B7X1GLKgu5wDZd6J4zN5W+rMZC4TNqxNVl0Ux/uPJsUFb +FryKYmgamYthUK2RsqkXC3ZMLIb5fBJDLv2GrLFkFoTuTJF/8kMMnRzPX7e8 +xoKym0p9gnNiOGX+vY1IY4GIjbNu9ZqNaCXcVXv8Bgt+PGj+zaG8EWk6hnON ++SxIjk4MTA/ZiFneqb3fHrBgeIOsTxOPOMr5zAqK97OA4lsnQaGIo7zMw0C5 +DyzY1Wr3wpMqjm0/GtaqDrKgMuyS4noNcaRHb+nR+cSCi4OTYwfsxFHHOWhu +03cWqBfVuk/cEketsLigs4ssiNLf6yKmI4HHofQznULATqesX1sMJdBi46Do +oggBvJHfz9ruksB/rYHcHWIEZDbG5Cc6S2AzQ1TZW5KAB2Y131ddkMA4q0zv +KBkCJu2kg6bfSaAwbwSDT4OAqjC/1fwjEjghy+9xT5OAM5mP0pTHJbByoNzX +WpsA7qH9tZ7skphdkv38gi4Bcu6X2YbkJbEvY1/rSyDA6eTsxefhkqg5XEN/ +Yk6ATKqh+FiMJLKtSuhR3U2Q6/df6epESaxKW7//hgUBYX83vzLMlUTln6NV +3nsJuHrWaUP1c0nMcC7g+byPgOdJT7PzJKSQEmzsr+9CQPI9IbVGOSl8bnyd +K/QwAfZdLg1DalL4tFM94O4RAr6K/B3ZaCyF2fUqdRvdCODIUZW/4iOFh41r +d7YeI0CvLP3+mToplJMcS70QQMCOno6l8VYp/HqtZyAqkAALtpUmh95IoZBD +oUfwSQKOWPm8g89SqLfcYmwfTIBxOC0ikpOKgR0justhBPhJzd02UKBio4O2 +a0sUAbP3ElsXVKjoJndKIDma/H07FX4SmlT8kQdrHc8SEHPCWZu+jYoTZ5n9 +X88RkNHY3sq+l4oBNZv5h84T0OSe/bMxiIq+xGXYHU+A6V9dgVPhVHyh1fh6 +nHRHYqe2ZiQV6XeqK+MTCHhXzRWZe4GK7Y484Y3/ETC+LlAgJpOKepvP/eW9 +QkBADu8W5k0q1v76pnGd9Lxm0cHZPCo+X+HTwEgm18dpINe1nIrqbNyjKikE +iLB2bjFuoGJ8/iEn2WsE3Njx6eC/FiqyuQU43SBNf3c6svIZFUOyFWr4UwlQ +Yr/XJttFRSnT3thfpA1tJBxWf6XiPW7vmJR0Ap5+rYqs+0FF0dGv/nOkd522 +ygueomL5tap62wwC9uefHx9dpKJERkkE93UCvOenIlt5aFhV0HzdPpPcrxNu +wl8EaBgu6jtbSnrNWF8xhwgNo8yy4B/pvP7G7m10GkbklhdevUFAoI2Ot4Mc +De+xGG3vSRu+KFkRpkjDCwZGH6hZBAw8vqpYoU1Di+SqT9mkS7asbXizlUbu +z62ePtJhrDP7J5GGjoNeDQLZ5PnaPP2Dx5j8/i8fc01IC99yj1Ywp6GoUmdE +KOkRsfcU0z00PDEhYFNI+m7ynlI3WxpmafjSO0lbxuj23jxEw+smrSx6DgGS +/0qP1x2l4YP1Xv5GpH8E0Tk+eNJQzDRYzZV0zcS1tEUfGsYNPxmPIh3nsU5Z +JJCG2knU4uuk932MaNQKpaHqK0/3u6QZ9jN21mdo2DoYyGgh/euNx7jfWRpy +NIt+6iZdb/7hbEIcDdlN1XJHSCc07RUtiadh4HyKxwRpB2ZLWdsVGv6lS6n9 +Ji1fqbdjNJWGOX13/v0hvaBc/m7lDRpqTgu+WSLdWiDtS79Fw8YVW0r+kr5G +TVuJBTRcPjgVP0/6aDp3hmMJDXMptJAp0uoCUSrhBA2/ceV5jZJmuzTblFZJ +rneLg2cf6Q6OY/aVtTQUuLnJv5105qmBibf15H4WfoutIu01axUz1UxDvztR +hTdJ6/k8FVv/jMyH6tueONJrRreyFF/RkD/qyYbjpLsPsYzMumiYnal6xIJ0 +bi+j372PhgbA+USRtP/edL+YQRquH2SoriGN7Tyrbo/Q8H7xSWKI3C/e7dHX +67/RsD9+wKiS9IfaOdWBcRqmypqMx5Eu0fRq+TNNw+cdqcV2pMNKBw+KLpDv +X6s+I/P/fGS3xtpw0PGTrcixSjJPIxSmuP8aOtr/lT8XRvpuIkH8x0NHCama +qq2kLaMz3rdT6Ki3yOZbQeZV8g+v/1dxOnpwpMwcJ/0j4OzqVXQ6Omy2T5Um +HefqrW6gSMeiDdt0Ysn87xsYeuqkRseYWn0dDdKM/baOp7TpyKaveuADeZ7q +d26Lq0I6PhGtW7GZ9IIC34CSLR2tI6TXZJHnce6GWJSGPR13/ThP1SY9s16G +oXuIjgc4P4Q/SyP7ZFr32A5P8vkK2Jd/kud7uPbInP1pOgZxsu0VIPtgUMkn +3TmajsFdRRkpVwl4nx2i73aejtkCBcpCpLvPxkefSKLj1Wo73XVkv7SbV/HG +5dHR03dkujeJ7IdHT4j4O3TkYJy4Y0S6SeW5TXI5Hdlj++6WJxLwWPBjRlY1 +HUdogo/CyX67279WruIFHbnej72evkz2p5cTDM/SUdshoeso2Z+pHzyGRxfp +eCTZT6IgloAUy4CYn8t0lPzNavkSQ+ZfI+7ZPJc0em5BAyeyf6P/EPvXS0rj +9prDv5TI/va6xOmnbyyNXV3PGHvJfvdYWi9oaC6Ngu92LHqGEuDmK1Zpskca +C+Y2G0SGEOBsrfLXyl4apfdYyOUFEWCz8UCcp480xmXfP/HKnwD94pKca9ek +MaLO6Espef/0U4uzja5Lo/7wk3KWJ5mfa0VZM9nS6DW+3YLwIO/fqPxMqyJp +5DvVyFNC3l/qdjlpvA+lcSqqsOw8ed9t5kxJjP0ojdxs0zq9B8i8HQqPDFJk +YE3+87gRYwIqOkMjZNQYWGn6LOe2Efk8ZiFnOrUYaL7UVOS8g4ArWidPqQMD +Bfm3Xek0IICH2zdkfC8DL/u6d9/WJ2Bl9WE/t2AGzmPa7JAaAVMCZs77Ghg4 +Rjwd7yfniV5v+qtjTxl4USCJqSdK5qtlESKeM7Di9hvDa+Q8khhWLFXYzUBP +7jMnTYQIUB3mHlwYY6BE/tPMBB4CfIiXjjcEZZBDvOsfa5kFY5a2B0eOyuCg +bF6ExTALRi477/NfLYvM4hdfVG+ywGdMka7KLYv+XwZdFLJZ8Ntk4edPPlm8 +p8IlzSDnsbUcV2I8xWTxfUxVOF86C1RDG+87K8lixQr5252JLDjtKitoaS2L +9TIirHWR5Hy47cdLhWxZXPAYmNvqyALTiWDTz9pyeGauGAcFyPnuyJqA+xGb +MG7TiZCAh2Xk/xMK+/mGzeh7weGxqXIpCLyQTWBNyCOn6Izsx8xiEI8r36Ot +rYhjZwqKzN8UQZqCLp+guxI+SuI3MhUphHYxA63pJGU0KH2kssIlH/TEGxJV +ulUwKPu+yOdzucDLcSvQJVoVjd9WlI913ALJKCn9A7JqGBBudq6f7SZwyThU +Wj1VQ+Mk8aSy9CxQZoqWBzuqowLbEYvKK9fBf0Cg0YxNAyc3vLk4F5oGE9OX +bU3TNFDnhGlXTMtVMFFpyTBV0sTS5bzh2D3J8Hh665/fHZro0FqW8rg/EXwU +1fteu2rhro9d4rYX4oE5frTzAJc2Mlw/88/4XgAjhshunlva2HI/QPc9Wyxs +irwY0rBlCyY6DAlZL0WDvKtunUzfFvQKORM7QokE18ce5+6f0MHXOS8Iqm84 +1OV0Hp3aoIvd+x5Z3Z0MgpnC5d8qVbpokXbu7A56AByRKebK2K2HTYuJRxwE +/GBKPln77qQerqrb2DIXeAwe5P75OBu3FVl+Q5Y9U65gv0Mat0rqY13+MzVJ +5cOw1LmGt5Gqj0l6q1tFpQ5Djut4v5m0PsodrqVT+Q7Dl9jqYPtN+mi3eox7 +9y8X8G+zLA9V10fakNMauSoXuGhxSvKBMfl5hzjDbkMXqLHr+qvpq49XgzKO +/XZxho3Hz1cr1+vj0220rKlwR0hYdtO61KCP3xbcfNKOOgL7FWNitEkf7bnM +fSx3O8JYJWdRTps+ppu59/6UdIQatnNpAm/1MZnn777vDQ5gnxIZPPdZH9W1 +f/N95HGAtNpQrcfrmDib0dwYUm4PG9Z6E7v3M7HohXCyj5Qd5G4/HTZ5gIni +gak3rnLZgfrphO3JDkzUe/xFrGN6P1hMsrp6XZh4cbgHAlr3Q2z37MIRbyZ+ +sQuduuy/H+ZvRRiGRTHRwjR7frptH/RtTX6bX8xE+3in1wYxtuBxMjfTtIyJ +NY8Kd0SdsIW5sgrXHywm1jIXGl852oIAvfe3WiUT0VCjNlvbFszXSIg/qmfi +cFyfw9+vNvCwM//o2y4mmmT8t7Jgjw2Y8T5QCuplIlW+SX6YaQO9Jm1zIv1M +rCgKJBQVbGCm5nuc0xATx+UkKic4bUDppmrptzEm8rwMCVJ8aA0P+wyCLv9k +ooq0bdjHImswE7IGlUkmtj/pv5iXag1u50++Dpxl4qUkl0L7AGuYqY/NoMwz +MSr+To65izVEL6YeqVlkooOH2ilzS2vg0yxSdFxi4r/ZAlV7pjVkHa+ZXV5m +IlOr+V6wgjX8D0/ftXY= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -8401,158 +13762,119 @@ 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:eJwV13k0lG8bB3CRSiFbBllmxqDse8h0XRRCUZaSEJUtQshaWYq08CPKklBZ +s81TIVRkC5U2WxSSUipLllDyPu9fcz5nzpx55r6/9/e+hnbY18qVnY2NjXcF +G9v/X+cG2poYl3K3rd0Q38j6hds6s0RCDXqj4ex0pnQnRQpww8vDIr1XIMt9 +jj2eogJBe+70cPTegsIUuRZHCgD/OOXKQs9deMWrFUShWMLgQwvfmZ4G+Pnl +wyVd4UNgzBj7MNXzBvg4DjYPCvjCQs+Wq5M9wxDWd0HoEmcENG4vyH19axp+ +8RyS/L02EcQHq78cVlyCJS/uXYUJqSDkfejO6u0cqKSWN5x9IwuuqBnXWtiu +QZ6UptMp327BuzTV+ik+HuTdmt47w5kPl3IjXrKL8uPpGeuQHMEioKR8upB8 +QxBlX4ZGtlcVg4hCxbn5fEHc7vWtZbK+GMQaYiMcWYI41bb0mL+9GCQnN5+U +axTEiZaTddvfF4PMLj/n2q+CaNBc8NGdrQQ0Vi5pf9IQQg1mI6vcpAQsA4VH +1NuFUOHfr2WtNyVw3sZ025u5DZhgb0Ib7S4FsfsdYuwrhPGTd0/7gcFSKBO0 ++a22ThgFrWommkdLofuNEytJShjVEx4XXJwvBcbeQPrencJ4YLNyVbNoGTTs +zl71Kl0YxQPaElYcLIMl49mOF/oU3Pqf5MmLvWWQmB9WvGRMwVcORqPyQ2XA +WMUWp7SXgvPt7rVNo2Wwq3mtQbwrBf9d4D8/MlcGGdup93YlUFDWPj2jU6gc +dNA89dkgBTkr5FSCLMshQPfmobZoEbTc0XO8tq4czHJ4Z8wvi+DKCpcSwZZy +oK8+FddxVQTLNbNF3J6Xw6vOfcTbQhHkUeYLXegtB2U/bo6BDhHcmKll1TdV +Dl/zg/N/iYli3rIVxZCfBQ5CFj833hPFdwLiGbXAAo3w2qish6L451e000VD +Fqwd3iRMaxFFeZ1B7X1GLKgu5wDZd6J4zN5W+rMZC4TNqxNVl0Ux/uPJsUFb +FryKYmgamYthUK2RsqkXC3ZMLIb5fBJDLv2GrLFkFoTuTJF/8kMMnRzPX7e8 +xoKym0p9gnNiOGX+vY1IY4GIjbNu9ZqNaCXcVXv8Bgt+PGj+zaG8EWk6hnON ++SxIjk4MTA/ZiFneqb3fHrBgeIOsTxOPOMr5zAqK97OA4lsnQaGIo7zMw0C5 +DyzY1Wr3wpMqjm0/GtaqDrKgMuyS4noNcaRHb+nR+cSCi4OTYwfsxFHHOWhu +03cWqBfVuk/cEketsLigs4ssiNLf6yKmI4HHofQznULATqesX1sMJdBi46Do +oggBvJHfz9ruksB/rYHcHWIEZDbG5Cc6S2AzQ1TZW5KAB2Y131ddkMA4q0zv +KBkCJu2kg6bfSaAwbwSDT4OAqjC/1fwjEjghy+9xT5OAM5mP0pTHJbByoNzX +WpsA7qH9tZ7skphdkv38gi4Bcu6X2YbkJbEvY1/rSyDA6eTsxefhkqg5XEN/ +Yk6ATKqh+FiMJLKtSuhR3U2Q6/df6epESaxKW7//hgUBYX83vzLMlUTln6NV +3nsJuHrWaUP1c0nMcC7g+byPgOdJT7PzJKSQEmzsr+9CQPI9IbVGOSl8bnyd +K/QwAfZdLg1DalL4tFM94O4RAr6K/B3ZaCyF2fUqdRvdCODIUZW/4iOFh41r +d7YeI0CvLP3+mToplJMcS70QQMCOno6l8VYp/HqtZyAqkAALtpUmh95IoZBD +oUfwSQKOWPm8g89SqLfcYmwfTIBxOC0ikpOKgR0justhBPhJzd02UKBio4O2 +a0sUAbP3ElsXVKjoJndKIDma/H07FX4SmlT8kQdrHc8SEHPCWZu+jYoTZ5n9 +X88RkNHY3sq+l4oBNZv5h84T0OSe/bMxiIq+xGXYHU+A6V9dgVPhVHyh1fh6 +nHRHYqe2ZiQV6XeqK+MTCHhXzRWZe4GK7Y484Y3/ETC+LlAgJpOKepvP/eW9 +QkBADu8W5k0q1v76pnGd9Lxm0cHZPCo+X+HTwEgm18dpINe1nIrqbNyjKikE +iLB2bjFuoGJ8/iEn2WsE3Njx6eC/FiqyuQU43SBNf3c6svIZFUOyFWr4UwlQ +Yr/XJttFRSnT3thfpA1tJBxWf6XiPW7vmJR0Ap5+rYqs+0FF0dGv/nOkd522 +ygueomL5tap62wwC9uefHx9dpKJERkkE93UCvOenIlt5aFhV0HzdPpPcrxNu +wl8EaBgu6jtbSnrNWF8xhwgNo8yy4B/pvP7G7m10GkbklhdevUFAoI2Ot4Mc +De+xGG3vSRu+KFkRpkjDCwZGH6hZBAw8vqpYoU1Di+SqT9mkS7asbXizlUbu +z62ePtJhrDP7J5GGjoNeDQLZ5PnaPP2Dx5j8/i8fc01IC99yj1Ywp6GoUmdE +KOkRsfcU0z00PDEhYFNI+m7ynlI3WxpmafjSO0lbxuj23jxEw+smrSx6DgGS +/0qP1x2l4YP1Xv5GpH8E0Tk+eNJQzDRYzZV0zcS1tEUfGsYNPxmPIh3nsU5Z +JJCG2knU4uuk932MaNQKpaHqK0/3u6QZ9jN21mdo2DoYyGgh/euNx7jfWRpy +NIt+6iZdb/7hbEIcDdlN1XJHSCc07RUtiadh4HyKxwRpB2ZLWdsVGv6lS6n9 +Ji1fqbdjNJWGOX13/v0hvaBc/m7lDRpqTgu+WSLdWiDtS79Fw8YVW0r+kr5G +TVuJBTRcPjgVP0/6aDp3hmMJDXMptJAp0uoCUSrhBA2/ceV5jZJmuzTblFZJ +rneLg2cf6Q6OY/aVtTQUuLnJv5105qmBibf15H4WfoutIu01axUz1UxDvztR +hTdJ6/k8FVv/jMyH6tueONJrRreyFF/RkD/qyYbjpLsPsYzMumiYnal6xIJ0 +bi+j372PhgbA+USRtP/edL+YQRquH2SoriGN7Tyrbo/Q8H7xSWKI3C/e7dHX +67/RsD9+wKiS9IfaOdWBcRqmypqMx5Eu0fRq+TNNw+cdqcV2pMNKBw+KLpDv +X6s+I/P/fGS3xtpw0PGTrcixSjJPIxSmuP8aOtr/lT8XRvpuIkH8x0NHCama +qq2kLaMz3rdT6Ki3yOZbQeZV8g+v/1dxOnpwpMwcJ/0j4OzqVXQ6Omy2T5Um +HefqrW6gSMeiDdt0Ysn87xsYeuqkRseYWn0dDdKM/baOp7TpyKaveuADeZ7q +d26Lq0I6PhGtW7GZ9IIC34CSLR2tI6TXZJHnce6GWJSGPR13/ThP1SY9s16G +oXuIjgc4P4Q/SyP7ZFr32A5P8vkK2Jd/kud7uPbInP1pOgZxsu0VIPtgUMkn +3TmajsFdRRkpVwl4nx2i73aejtkCBcpCpLvPxkefSKLj1Wo73XVkv7SbV/HG +5dHR03dkujeJ7IdHT4j4O3TkYJy4Y0S6SeW5TXI5Hdlj++6WJxLwWPBjRlY1 +HUdogo/CyX67279WruIFHbnej72evkz2p5cTDM/SUdshoeso2Z+pHzyGRxfp +eCTZT6IgloAUy4CYn8t0lPzNavkSQ+ZfI+7ZPJc0em5BAyeyf6P/EPvXS0rj +9prDv5TI/va6xOmnbyyNXV3PGHvJfvdYWi9oaC6Ngu92LHqGEuDmK1Zpskca +C+Y2G0SGEOBsrfLXyl4apfdYyOUFEWCz8UCcp480xmXfP/HKnwD94pKca9ek +MaLO6Espef/0U4uzja5Lo/7wk3KWJ5mfa0VZM9nS6DW+3YLwIO/fqPxMqyJp +5DvVyFNC3l/qdjlpvA+lcSqqsOw8ed9t5kxJjP0ojdxs0zq9B8i8HQqPDFJk +YE3+87gRYwIqOkMjZNQYWGn6LOe2Efk8ZiFnOrUYaL7UVOS8g4ArWidPqQMD +Bfm3Xek0IICH2zdkfC8DL/u6d9/WJ2Bl9WE/t2AGzmPa7JAaAVMCZs77Ghg4 +Rjwd7yfniV5v+qtjTxl4USCJqSdK5qtlESKeM7Di9hvDa+Q8khhWLFXYzUBP +7jMnTYQIUB3mHlwYY6BE/tPMBB4CfIiXjjcEZZBDvOsfa5kFY5a2B0eOyuCg +bF6ExTALRi477/NfLYvM4hdfVG+ywGdMka7KLYv+XwZdFLJZ8Ntk4edPPlm8 +p8IlzSDnsbUcV2I8xWTxfUxVOF86C1RDG+87K8lixQr5252JLDjtKitoaS2L +9TIirHWR5Hy47cdLhWxZXPAYmNvqyALTiWDTz9pyeGauGAcFyPnuyJqA+xGb +MG7TiZCAh2Xk/xMK+/mGzeh7weGxqXIpCLyQTWBNyCOn6Izsx8xiEI8r36Ot +rYhjZwqKzN8UQZqCLp+guxI+SuI3MhUphHYxA63pJGU0KH2kssIlH/TEGxJV +ulUwKPu+yOdzucDLcSvQJVoVjd9WlI913ALJKCn9A7JqGBBudq6f7SZwyThU +Wj1VQ+Mk8aSy9CxQZoqWBzuqowLbEYvKK9fBf0Cg0YxNAyc3vLk4F5oGE9OX +bU3TNFDnhGlXTMtVMFFpyTBV0sTS5bzh2D3J8Hh665/fHZro0FqW8rg/EXwU +1fteu2rhro9d4rYX4oE5frTzAJc2Mlw/88/4XgAjhshunlva2HI/QPc9Wyxs +irwY0rBlCyY6DAlZL0WDvKtunUzfFvQKORM7QokE18ce5+6f0MHXOS8Iqm84 +1OV0Hp3aoIvd+x5Z3Z0MgpnC5d8qVbpokXbu7A56AByRKebK2K2HTYuJRxwE +/GBKPln77qQerqrb2DIXeAwe5P75OBu3FVl+Q5Y9U65gv0Mat0rqY13+MzVJ +5cOw1LmGt5Gqj0l6q1tFpQ5Djut4v5m0PsodrqVT+Q7Dl9jqYPtN+mi3eox7 +9y8X8G+zLA9V10fakNMauSoXuGhxSvKBMfl5hzjDbkMXqLHr+qvpq49XgzKO +/XZxho3Hz1cr1+vj0220rKlwR0hYdtO61KCP3xbcfNKOOgL7FWNitEkf7bnM +fSx3O8JYJWdRTps+ppu59/6UdIQatnNpAm/1MZnn777vDQ5gnxIZPPdZH9W1 +f/N95HGAtNpQrcfrmDib0dwYUm4PG9Z6E7v3M7HohXCyj5Qd5G4/HTZ5gIni +gak3rnLZgfrphO3JDkzUe/xFrGN6P1hMsrp6XZh4cbgHAlr3Q2z37MIRbyZ+ +sQuduuy/H+ZvRRiGRTHRwjR7frptH/RtTX6bX8xE+3in1wYxtuBxMjfTtIyJ +NY8Kd0SdsIW5sgrXHywm1jIXGl852oIAvfe3WiUT0VCjNlvbFszXSIg/qmfi +cFyfw9+vNvCwM//o2y4mmmT8t7Jgjw2Y8T5QCuplIlW+SX6YaQO9Jm1zIv1M +rCgKJBQVbGCm5nuc0xATx+UkKic4bUDppmrptzEm8rwMCVJ8aA0P+wyCLv9k +ooq0bdjHImswE7IGlUkmtj/pv5iXag1u50++Dpxl4qUkl0L7AGuYqY/NoMwz +MSr+To65izVEL6YeqVlkooOH2ilzS2vg0yxSdFxi4r/ZAlV7pjVkHa+ZXV5m +IlOr+V6wgjX8D0/ftXY= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "PlotRange" -> {{0, 30}, {0., 0.06886278513770777}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +13886,144 @@ fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "PlotRange" -> {{0, 30}, {0., 0.06886278513770777}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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:eJwV13k0lG8bB3CRSiFbBllmxqDse8h0XRRCUZaSEJUtQshaWYq08CPKklBZ +s81TIVRkC5U2WxSSUipLllDyPu9fcz5nzpx55r6/9/e+hnbY18qVnY2NjXcF +G9v/X+cG2poYl3K3rd0Q38j6hds6s0RCDXqj4ex0pnQnRQpww8vDIr1XIMt9 +jj2eogJBe+70cPTegsIUuRZHCgD/OOXKQs9deMWrFUShWMLgQwvfmZ4G+Pnl +wyVd4UNgzBj7MNXzBvg4DjYPCvjCQs+Wq5M9wxDWd0HoEmcENG4vyH19axp+ +8RyS/L02EcQHq78cVlyCJS/uXYUJqSDkfejO6u0cqKSWN5x9IwuuqBnXWtiu +QZ6UptMp327BuzTV+ik+HuTdmt47w5kPl3IjXrKL8uPpGeuQHMEioKR8upB8 +QxBlX4ZGtlcVg4hCxbn5fEHc7vWtZbK+GMQaYiMcWYI41bb0mL+9GCQnN5+U +axTEiZaTddvfF4PMLj/n2q+CaNBc8NGdrQQ0Vi5pf9IQQg1mI6vcpAQsA4VH +1NuFUOHfr2WtNyVw3sZ025u5DZhgb0Ib7S4FsfsdYuwrhPGTd0/7gcFSKBO0 ++a22ThgFrWommkdLofuNEytJShjVEx4XXJwvBcbeQPrencJ4YLNyVbNoGTTs +zl71Kl0YxQPaElYcLIMl49mOF/oU3Pqf5MmLvWWQmB9WvGRMwVcORqPyQ2XA +WMUWp7SXgvPt7rVNo2Wwq3mtQbwrBf9d4D8/MlcGGdup93YlUFDWPj2jU6gc +dNA89dkgBTkr5FSCLMshQPfmobZoEbTc0XO8tq4czHJ4Z8wvi+DKCpcSwZZy +oK8+FddxVQTLNbNF3J6Xw6vOfcTbQhHkUeYLXegtB2U/bo6BDhHcmKll1TdV +Dl/zg/N/iYli3rIVxZCfBQ5CFj833hPFdwLiGbXAAo3w2qish6L451e000VD +Fqwd3iRMaxFFeZ1B7X1GLKgu5wDZd6J4zN5W+rMZC4TNqxNVl0Ux/uPJsUFb +FryKYmgamYthUK2RsqkXC3ZMLIb5fBJDLv2GrLFkFoTuTJF/8kMMnRzPX7e8 +xoKym0p9gnNiOGX+vY1IY4GIjbNu9ZqNaCXcVXv8Bgt+PGj+zaG8EWk6hnON ++SxIjk4MTA/ZiFneqb3fHrBgeIOsTxOPOMr5zAqK97OA4lsnQaGIo7zMw0C5 +DyzY1Wr3wpMqjm0/GtaqDrKgMuyS4noNcaRHb+nR+cSCi4OTYwfsxFHHOWhu +03cWqBfVuk/cEketsLigs4ssiNLf6yKmI4HHofQznULATqesX1sMJdBi46Do +oggBvJHfz9ruksB/rYHcHWIEZDbG5Cc6S2AzQ1TZW5KAB2Y131ddkMA4q0zv +KBkCJu2kg6bfSaAwbwSDT4OAqjC/1fwjEjghy+9xT5OAM5mP0pTHJbByoNzX +WpsA7qH9tZ7skphdkv38gi4Bcu6X2YbkJbEvY1/rSyDA6eTsxefhkqg5XEN/ +Yk6ATKqh+FiMJLKtSuhR3U2Q6/df6epESaxKW7//hgUBYX83vzLMlUTln6NV +3nsJuHrWaUP1c0nMcC7g+byPgOdJT7PzJKSQEmzsr+9CQPI9IbVGOSl8bnyd +K/QwAfZdLg1DalL4tFM94O4RAr6K/B3ZaCyF2fUqdRvdCODIUZW/4iOFh41r +d7YeI0CvLP3+mToplJMcS70QQMCOno6l8VYp/HqtZyAqkAALtpUmh95IoZBD +oUfwSQKOWPm8g89SqLfcYmwfTIBxOC0ikpOKgR0justhBPhJzd02UKBio4O2 +a0sUAbP3ElsXVKjoJndKIDma/H07FX4SmlT8kQdrHc8SEHPCWZu+jYoTZ5n9 +X88RkNHY3sq+l4oBNZv5h84T0OSe/bMxiIq+xGXYHU+A6V9dgVPhVHyh1fh6 +nHRHYqe2ZiQV6XeqK+MTCHhXzRWZe4GK7Y484Y3/ETC+LlAgJpOKepvP/eW9 +QkBADu8W5k0q1v76pnGd9Lxm0cHZPCo+X+HTwEgm18dpINe1nIrqbNyjKikE +iLB2bjFuoGJ8/iEn2WsE3Njx6eC/FiqyuQU43SBNf3c6svIZFUOyFWr4UwlQ +Yr/XJttFRSnT3thfpA1tJBxWf6XiPW7vmJR0Ap5+rYqs+0FF0dGv/nOkd522 +ygueomL5tap62wwC9uefHx9dpKJERkkE93UCvOenIlt5aFhV0HzdPpPcrxNu +wl8EaBgu6jtbSnrNWF8xhwgNo8yy4B/pvP7G7m10GkbklhdevUFAoI2Ot4Mc +De+xGG3vSRu+KFkRpkjDCwZGH6hZBAw8vqpYoU1Di+SqT9mkS7asbXizlUbu +z62ePtJhrDP7J5GGjoNeDQLZ5PnaPP2Dx5j8/i8fc01IC99yj1Ywp6GoUmdE +KOkRsfcU0z00PDEhYFNI+m7ynlI3WxpmafjSO0lbxuj23jxEw+smrSx6DgGS +/0qP1x2l4YP1Xv5GpH8E0Tk+eNJQzDRYzZV0zcS1tEUfGsYNPxmPIh3nsU5Z +JJCG2knU4uuk932MaNQKpaHqK0/3u6QZ9jN21mdo2DoYyGgh/euNx7jfWRpy +NIt+6iZdb/7hbEIcDdlN1XJHSCc07RUtiadh4HyKxwRpB2ZLWdsVGv6lS6n9 +Ji1fqbdjNJWGOX13/v0hvaBc/m7lDRpqTgu+WSLdWiDtS79Fw8YVW0r+kr5G +TVuJBTRcPjgVP0/6aDp3hmMJDXMptJAp0uoCUSrhBA2/ceV5jZJmuzTblFZJ +rneLg2cf6Q6OY/aVtTQUuLnJv5105qmBibf15H4WfoutIu01axUz1UxDvztR +hTdJ6/k8FVv/jMyH6tueONJrRreyFF/RkD/qyYbjpLsPsYzMumiYnal6xIJ0 +bi+j372PhgbA+USRtP/edL+YQRquH2SoriGN7Tyrbo/Q8H7xSWKI3C/e7dHX +67/RsD9+wKiS9IfaOdWBcRqmypqMx5Eu0fRq+TNNw+cdqcV2pMNKBw+KLpDv +X6s+I/P/fGS3xtpw0PGTrcixSjJPIxSmuP8aOtr/lT8XRvpuIkH8x0NHCama +qq2kLaMz3rdT6Ki3yOZbQeZV8g+v/1dxOnpwpMwcJ/0j4OzqVXQ6Omy2T5Um +HefqrW6gSMeiDdt0Ysn87xsYeuqkRseYWn0dDdKM/baOp7TpyKaveuADeZ7q +d26Lq0I6PhGtW7GZ9IIC34CSLR2tI6TXZJHnce6GWJSGPR13/ThP1SY9s16G +oXuIjgc4P4Q/SyP7ZFr32A5P8vkK2Jd/kud7uPbInP1pOgZxsu0VIPtgUMkn +3TmajsFdRRkpVwl4nx2i73aejtkCBcpCpLvPxkefSKLj1Wo73XVkv7SbV/HG +5dHR03dkujeJ7IdHT4j4O3TkYJy4Y0S6SeW5TXI5Hdlj++6WJxLwWPBjRlY1 +HUdogo/CyX67279WruIFHbnej72evkz2p5cTDM/SUdshoeso2Z+pHzyGRxfp +eCTZT6IgloAUy4CYn8t0lPzNavkSQ+ZfI+7ZPJc0em5BAyeyf6P/EPvXS0rj +9prDv5TI/va6xOmnbyyNXV3PGHvJfvdYWi9oaC6Ngu92LHqGEuDmK1Zpskca +C+Y2G0SGEOBsrfLXyl4apfdYyOUFEWCz8UCcp480xmXfP/HKnwD94pKca9ek +MaLO6Espef/0U4uzja5Lo/7wk3KWJ5mfa0VZM9nS6DW+3YLwIO/fqPxMqyJp +5DvVyFNC3l/qdjlpvA+lcSqqsOw8ed9t5kxJjP0ojdxs0zq9B8i8HQqPDFJk +YE3+87gRYwIqOkMjZNQYWGn6LOe2Efk8ZiFnOrUYaL7UVOS8g4ArWidPqQMD +Bfm3Xek0IICH2zdkfC8DL/u6d9/WJ2Bl9WE/t2AGzmPa7JAaAVMCZs77Ghg4 +Rjwd7yfniV5v+qtjTxl4USCJqSdK5qtlESKeM7Di9hvDa+Q8khhWLFXYzUBP +7jMnTYQIUB3mHlwYY6BE/tPMBB4CfIiXjjcEZZBDvOsfa5kFY5a2B0eOyuCg +bF6ExTALRi477/NfLYvM4hdfVG+ywGdMka7KLYv+XwZdFLJZ8Ntk4edPPlm8 +p8IlzSDnsbUcV2I8xWTxfUxVOF86C1RDG+87K8lixQr5252JLDjtKitoaS2L +9TIirHWR5Hy47cdLhWxZXPAYmNvqyALTiWDTz9pyeGauGAcFyPnuyJqA+xGb +MG7TiZCAh2Xk/xMK+/mGzeh7weGxqXIpCLyQTWBNyCOn6Izsx8xiEI8r36Ot +rYhjZwqKzN8UQZqCLp+guxI+SuI3MhUphHYxA63pJGU0KH2kssIlH/TEGxJV +ulUwKPu+yOdzucDLcSvQJVoVjd9WlI913ALJKCn9A7JqGBBudq6f7SZwyThU +Wj1VQ+Mk8aSy9CxQZoqWBzuqowLbEYvKK9fBf0Cg0YxNAyc3vLk4F5oGE9OX +bU3TNFDnhGlXTMtVMFFpyTBV0sTS5bzh2D3J8Hh665/fHZro0FqW8rg/EXwU +1fteu2rhro9d4rYX4oE5frTzAJc2Mlw/88/4XgAjhshunlva2HI/QPc9Wyxs +irwY0rBlCyY6DAlZL0WDvKtunUzfFvQKORM7QokE18ce5+6f0MHXOS8Iqm84 +1OV0Hp3aoIvd+x5Z3Z0MgpnC5d8qVbpokXbu7A56AByRKebK2K2HTYuJRxwE +/GBKPln77qQerqrb2DIXeAwe5P75OBu3FVl+Q5Y9U65gv0Mat0rqY13+MzVJ +5cOw1LmGt5Gqj0l6q1tFpQ5Djut4v5m0PsodrqVT+Q7Dl9jqYPtN+mi3eox7 +9y8X8G+zLA9V10fakNMauSoXuGhxSvKBMfl5hzjDbkMXqLHr+qvpq49XgzKO +/XZxho3Hz1cr1+vj0220rKlwR0hYdtO61KCP3xbcfNKOOgL7FWNitEkf7bnM +fSx3O8JYJWdRTps+ppu59/6UdIQatnNpAm/1MZnn777vDQ5gnxIZPPdZH9W1 +f/N95HGAtNpQrcfrmDib0dwYUm4PG9Z6E7v3M7HohXCyj5Qd5G4/HTZ5gIni +gak3rnLZgfrphO3JDkzUe/xFrGN6P1hMsrp6XZh4cbgHAlr3Q2z37MIRbyZ+ +sQuduuy/H+ZvRRiGRTHRwjR7frptH/RtTX6bX8xE+3in1wYxtuBxMjfTtIyJ +NY8Kd0SdsIW5sgrXHywm1jIXGl852oIAvfe3WiUT0VCjNlvbFszXSIg/qmfi +cFyfw9+vNvCwM//o2y4mmmT8t7Jgjw2Y8T5QCuplIlW+SX6YaQO9Jm1zIv1M +rCgKJBQVbGCm5nuc0xATx+UkKic4bUDppmrptzEm8rwMCVJ8aA0P+wyCLv9k +ooq0bdjHImswE7IGlUkmtj/pv5iXag1u50++Dpxl4qUkl0L7AGuYqY/NoMwz +MSr+To65izVEL6YeqVlkooOH2ilzS2vg0yxSdFxi4r/ZAlV7pjVkHa+ZXV5m +IlOr+V6wgjX8D0/ftXY= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "PlotRange" -> {{0, 30}, {0., 0.06886278513770777}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +14034,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 +14062,8 @@ fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.16919668648256683`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06886278513770777}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -8786,17 +14071,574 @@ fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913483238131485`*^9}, + CellChangeTimes->{3.9913483238131485`*^9, 3.993961965089541*^9}, CellLabel-> - "Out[470]=",ExpressionUUID->"f98d1ba6-9bcb-b94f-a8fa-792e22f5ac65"] + "Out[140]=",ExpressionUUID->"072f8b5c-2638-4d9d-bd25-325135ee8537"] }, 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:eJwV13k0lG8bB3CRSiFbBllmxqDse8h0XRRCUZaSEJUtQshaWYq08CPKklBZ +s81TIVRkC5U2WxSSUipLllDyPu9fcz5nzpx55r6/9/e+hnbY18qVnY2NjXcF +G9v/X+cG2poYl3K3rd0Q38j6hds6s0RCDXqj4ex0pnQnRQpww8vDIr1XIMt9 +jj2eogJBe+70cPTegsIUuRZHCgD/OOXKQs9deMWrFUShWMLgQwvfmZ4G+Pnl +wyVd4UNgzBj7MNXzBvg4DjYPCvjCQs+Wq5M9wxDWd0HoEmcENG4vyH19axp+ +8RyS/L02EcQHq78cVlyCJS/uXYUJqSDkfejO6u0cqKSWN5x9IwuuqBnXWtiu +QZ6UptMp327BuzTV+ik+HuTdmt47w5kPl3IjXrKL8uPpGeuQHMEioKR8upB8 +QxBlX4ZGtlcVg4hCxbn5fEHc7vWtZbK+GMQaYiMcWYI41bb0mL+9GCQnN5+U +axTEiZaTddvfF4PMLj/n2q+CaNBc8NGdrQQ0Vi5pf9IQQg1mI6vcpAQsA4VH +1NuFUOHfr2WtNyVw3sZ025u5DZhgb0Ib7S4FsfsdYuwrhPGTd0/7gcFSKBO0 ++a22ThgFrWommkdLofuNEytJShjVEx4XXJwvBcbeQPrencJ4YLNyVbNoGTTs +zl71Kl0YxQPaElYcLIMl49mOF/oU3Pqf5MmLvWWQmB9WvGRMwVcORqPyQ2XA +WMUWp7SXgvPt7rVNo2Wwq3mtQbwrBf9d4D8/MlcGGdup93YlUFDWPj2jU6gc +dNA89dkgBTkr5FSCLMshQPfmobZoEbTc0XO8tq4czHJ4Z8wvi+DKCpcSwZZy +oK8+FddxVQTLNbNF3J6Xw6vOfcTbQhHkUeYLXegtB2U/bo6BDhHcmKll1TdV +Dl/zg/N/iYli3rIVxZCfBQ5CFj833hPFdwLiGbXAAo3w2qish6L451e000VD +Fqwd3iRMaxFFeZ1B7X1GLKgu5wDZd6J4zN5W+rMZC4TNqxNVl0Ux/uPJsUFb +FryKYmgamYthUK2RsqkXC3ZMLIb5fBJDLv2GrLFkFoTuTJF/8kMMnRzPX7e8 +xoKym0p9gnNiOGX+vY1IY4GIjbNu9ZqNaCXcVXv8Bgt+PGj+zaG8EWk6hnON ++SxIjk4MTA/ZiFneqb3fHrBgeIOsTxOPOMr5zAqK97OA4lsnQaGIo7zMw0C5 +DyzY1Wr3wpMqjm0/GtaqDrKgMuyS4noNcaRHb+nR+cSCi4OTYwfsxFHHOWhu +03cWqBfVuk/cEketsLigs4ssiNLf6yKmI4HHofQznULATqesX1sMJdBi46Do +oggBvJHfz9ruksB/rYHcHWIEZDbG5Cc6S2AzQ1TZW5KAB2Y131ddkMA4q0zv +KBkCJu2kg6bfSaAwbwSDT4OAqjC/1fwjEjghy+9xT5OAM5mP0pTHJbByoNzX +WpsA7qH9tZ7skphdkv38gi4Bcu6X2YbkJbEvY1/rSyDA6eTsxefhkqg5XEN/ +Yk6ATKqh+FiMJLKtSuhR3U2Q6/df6epESaxKW7//hgUBYX83vzLMlUTln6NV +3nsJuHrWaUP1c0nMcC7g+byPgOdJT7PzJKSQEmzsr+9CQPI9IbVGOSl8bnyd +K/QwAfZdLg1DalL4tFM94O4RAr6K/B3ZaCyF2fUqdRvdCODIUZW/4iOFh41r +d7YeI0CvLP3+mToplJMcS70QQMCOno6l8VYp/HqtZyAqkAALtpUmh95IoZBD +oUfwSQKOWPm8g89SqLfcYmwfTIBxOC0ikpOKgR0justhBPhJzd02UKBio4O2 +a0sUAbP3ElsXVKjoJndKIDma/H07FX4SmlT8kQdrHc8SEHPCWZu+jYoTZ5n9 +X88RkNHY3sq+l4oBNZv5h84T0OSe/bMxiIq+xGXYHU+A6V9dgVPhVHyh1fh6 +nHRHYqe2ZiQV6XeqK+MTCHhXzRWZe4GK7Y484Y3/ETC+LlAgJpOKepvP/eW9 +QkBADu8W5k0q1v76pnGd9Lxm0cHZPCo+X+HTwEgm18dpINe1nIrqbNyjKikE +iLB2bjFuoGJ8/iEn2WsE3Njx6eC/FiqyuQU43SBNf3c6svIZFUOyFWr4UwlQ +Yr/XJttFRSnT3thfpA1tJBxWf6XiPW7vmJR0Ap5+rYqs+0FF0dGv/nOkd522 +ygueomL5tap62wwC9uefHx9dpKJERkkE93UCvOenIlt5aFhV0HzdPpPcrxNu +wl8EaBgu6jtbSnrNWF8xhwgNo8yy4B/pvP7G7m10GkbklhdevUFAoI2Ot4Mc +De+xGG3vSRu+KFkRpkjDCwZGH6hZBAw8vqpYoU1Di+SqT9mkS7asbXizlUbu +z62ePtJhrDP7J5GGjoNeDQLZ5PnaPP2Dx5j8/i8fc01IC99yj1Ywp6GoUmdE +KOkRsfcU0z00PDEhYFNI+m7ynlI3WxpmafjSO0lbxuj23jxEw+smrSx6DgGS +/0qP1x2l4YP1Xv5GpH8E0Tk+eNJQzDRYzZV0zcS1tEUfGsYNPxmPIh3nsU5Z +JJCG2knU4uuk932MaNQKpaHqK0/3u6QZ9jN21mdo2DoYyGgh/euNx7jfWRpy +NIt+6iZdb/7hbEIcDdlN1XJHSCc07RUtiadh4HyKxwRpB2ZLWdsVGv6lS6n9 +Ji1fqbdjNJWGOX13/v0hvaBc/m7lDRpqTgu+WSLdWiDtS79Fw8YVW0r+kr5G +TVuJBTRcPjgVP0/6aDp3hmMJDXMptJAp0uoCUSrhBA2/ceV5jZJmuzTblFZJ +rneLg2cf6Q6OY/aVtTQUuLnJv5105qmBibf15H4WfoutIu01axUz1UxDvztR +hTdJ6/k8FVv/jMyH6tueONJrRreyFF/RkD/qyYbjpLsPsYzMumiYnal6xIJ0 +bi+j372PhgbA+USRtP/edL+YQRquH2SoriGN7Tyrbo/Q8H7xSWKI3C/e7dHX +67/RsD9+wKiS9IfaOdWBcRqmypqMx5Eu0fRq+TNNw+cdqcV2pMNKBw+KLpDv +X6s+I/P/fGS3xtpw0PGTrcixSjJPIxSmuP8aOtr/lT8XRvpuIkH8x0NHCama +qq2kLaMz3rdT6Ki3yOZbQeZV8g+v/1dxOnpwpMwcJ/0j4OzqVXQ6Omy2T5Um +HefqrW6gSMeiDdt0Ysn87xsYeuqkRseYWn0dDdKM/baOp7TpyKaveuADeZ7q +d26Lq0I6PhGtW7GZ9IIC34CSLR2tI6TXZJHnce6GWJSGPR13/ThP1SY9s16G +oXuIjgc4P4Q/SyP7ZFr32A5P8vkK2Jd/kud7uPbInP1pOgZxsu0VIPtgUMkn +3TmajsFdRRkpVwl4nx2i73aejtkCBcpCpLvPxkefSKLj1Wo73XVkv7SbV/HG +5dHR03dkujeJ7IdHT4j4O3TkYJy4Y0S6SeW5TXI5Hdlj++6WJxLwWPBjRlY1 +HUdogo/CyX67279WruIFHbnej72evkz2p5cTDM/SUdshoeso2Z+pHzyGRxfp +eCTZT6IgloAUy4CYn8t0lPzNavkSQ+ZfI+7ZPJc0em5BAyeyf6P/EPvXS0rj +9prDv5TI/va6xOmnbyyNXV3PGHvJfvdYWi9oaC6Ngu92LHqGEuDmK1Zpskca +C+Y2G0SGEOBsrfLXyl4apfdYyOUFEWCz8UCcp480xmXfP/HKnwD94pKca9ek +MaLO6Espef/0U4uzja5Lo/7wk3KWJ5mfa0VZM9nS6DW+3YLwIO/fqPxMqyJp +5DvVyFNC3l/qdjlpvA+lcSqqsOw8ed9t5kxJjP0ojdxs0zq9B8i8HQqPDFJk +YE3+87gRYwIqOkMjZNQYWGn6LOe2Efk8ZiFnOrUYaL7UVOS8g4ArWidPqQMD +Bfm3Xek0IICH2zdkfC8DL/u6d9/WJ2Bl9WE/t2AGzmPa7JAaAVMCZs77Ghg4 +Rjwd7yfniV5v+qtjTxl4USCJqSdK5qtlESKeM7Di9hvDa+Q8khhWLFXYzUBP +7jMnTYQIUB3mHlwYY6BE/tPMBB4CfIiXjjcEZZBDvOsfa5kFY5a2B0eOyuCg +bF6ExTALRi477/NfLYvM4hdfVG+ywGdMka7KLYv+XwZdFLJZ8Ntk4edPPlm8 +p8IlzSDnsbUcV2I8xWTxfUxVOF86C1RDG+87K8lixQr5252JLDjtKitoaS2L +9TIirHWR5Hy47cdLhWxZXPAYmNvqyALTiWDTz9pyeGauGAcFyPnuyJqA+xGb +MG7TiZCAh2Xk/xMK+/mGzeh7weGxqXIpCLyQTWBNyCOn6Izsx8xiEI8r36Ot +rYhjZwqKzN8UQZqCLp+guxI+SuI3MhUphHYxA63pJGU0KH2kssIlH/TEGxJV +ulUwKPu+yOdzucDLcSvQJVoVjd9WlI913ALJKCn9A7JqGBBudq6f7SZwyThU +Wj1VQ+Mk8aSy9CxQZoqWBzuqowLbEYvKK9fBf0Cg0YxNAyc3vLk4F5oGE9OX +bU3TNFDnhGlXTMtVMFFpyTBV0sTS5bzh2D3J8Hh665/fHZro0FqW8rg/EXwU +1fteu2rhro9d4rYX4oE5frTzAJc2Mlw/88/4XgAjhshunlva2HI/QPc9Wyxs +irwY0rBlCyY6DAlZL0WDvKtunUzfFvQKORM7QokE18ce5+6f0MHXOS8Iqm84 +1OV0Hp3aoIvd+x5Z3Z0MgpnC5d8qVbpokXbu7A56AByRKebK2K2HTYuJRxwE +/GBKPln77qQerqrb2DIXeAwe5P75OBu3FVl+Q5Y9U65gv0Mat0rqY13+MzVJ +5cOw1LmGt5Gqj0l6q1tFpQ5Djut4v5m0PsodrqVT+Q7Dl9jqYPtN+mi3eox7 +9y8X8G+zLA9V10fakNMauSoXuGhxSvKBMfl5hzjDbkMXqLHr+qvpq49XgzKO +/XZxho3Hz1cr1+vj0220rKlwR0hYdtO61KCP3xbcfNKOOgL7FWNitEkf7bnM +fSx3O8JYJWdRTps+ppu59/6UdIQatnNpAm/1MZnn777vDQ5gnxIZPPdZH9W1 +f/N95HGAtNpQrcfrmDib0dwYUm4PG9Z6E7v3M7HohXCyj5Qd5G4/HTZ5gIni +gak3rnLZgfrphO3JDkzUe/xFrGN6P1hMsrp6XZh4cbgHAlr3Q2z37MIRbyZ+ +sQuduuy/H+ZvRRiGRTHRwjR7frptH/RtTX6bX8xE+3in1wYxtuBxMjfTtIyJ +NY8Kd0SdsIW5sgrXHywm1jIXGl852oIAvfe3WiUT0VCjNlvbFszXSIg/qmfi +cFyfw9+vNvCwM//o2y4mmmT8t7Jgjw2Y8T5QCuplIlW+SX6YaQO9Jm1zIv1M +rCgKJBQVbGCm5nuc0xATx+UkKic4bUDppmrptzEm8rwMCVJ8aA0P+wyCLv9k +ooq0bdjHImswE7IGlUkmtj/pv5iXag1u50++Dpxl4qUkl0L7AGuYqY/NoMwz +MSr+To65izVEL6YeqVlkooOH2ilzS2vg0yxSdFxi4r/ZAlV7pjVkHa+ZXV5m +IlOr+V6wgjX8D0/ftXY= + "]]}, + 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:eJwV13k0lG8bB3CRSiFbBllmxqDse8h0XRRCUZaSEJUtQshaWYq08CPKklBZ +s81TIVRkC5U2WxSSUipLllDyPu9fcz5nzpx55r6/9/e+hnbY18qVnY2NjXcF +G9v/X+cG2poYl3K3rd0Q38j6hds6s0RCDXqj4ex0pnQnRQpww8vDIr1XIMt9 +jj2eogJBe+70cPTegsIUuRZHCgD/OOXKQs9deMWrFUShWMLgQwvfmZ4G+Pnl +wyVd4UNgzBj7MNXzBvg4DjYPCvjCQs+Wq5M9wxDWd0HoEmcENG4vyH19axp+ +8RyS/L02EcQHq78cVlyCJS/uXYUJqSDkfejO6u0cqKSWN5x9IwuuqBnXWtiu +QZ6UptMp327BuzTV+ik+HuTdmt47w5kPl3IjXrKL8uPpGeuQHMEioKR8upB8 +QxBlX4ZGtlcVg4hCxbn5fEHc7vWtZbK+GMQaYiMcWYI41bb0mL+9GCQnN5+U +axTEiZaTddvfF4PMLj/n2q+CaNBc8NGdrQQ0Vi5pf9IQQg1mI6vcpAQsA4VH +1NuFUOHfr2WtNyVw3sZ025u5DZhgb0Ib7S4FsfsdYuwrhPGTd0/7gcFSKBO0 ++a22ThgFrWommkdLofuNEytJShjVEx4XXJwvBcbeQPrencJ4YLNyVbNoGTTs +zl71Kl0YxQPaElYcLIMl49mOF/oU3Pqf5MmLvWWQmB9WvGRMwVcORqPyQ2XA +WMUWp7SXgvPt7rVNo2Wwq3mtQbwrBf9d4D8/MlcGGdup93YlUFDWPj2jU6gc +dNA89dkgBTkr5FSCLMshQPfmobZoEbTc0XO8tq4czHJ4Z8wvi+DKCpcSwZZy +oK8+FddxVQTLNbNF3J6Xw6vOfcTbQhHkUeYLXegtB2U/bo6BDhHcmKll1TdV +Dl/zg/N/iYli3rIVxZCfBQ5CFj833hPFdwLiGbXAAo3w2qish6L451e000VD +Fqwd3iRMaxFFeZ1B7X1GLKgu5wDZd6J4zN5W+rMZC4TNqxNVl0Ux/uPJsUFb +FryKYmgamYthUK2RsqkXC3ZMLIb5fBJDLv2GrLFkFoTuTJF/8kMMnRzPX7e8 +xoKym0p9gnNiOGX+vY1IY4GIjbNu9ZqNaCXcVXv8Bgt+PGj+zaG8EWk6hnON ++SxIjk4MTA/ZiFneqb3fHrBgeIOsTxOPOMr5zAqK97OA4lsnQaGIo7zMw0C5 +DyzY1Wr3wpMqjm0/GtaqDrKgMuyS4noNcaRHb+nR+cSCi4OTYwfsxFHHOWhu +03cWqBfVuk/cEketsLigs4ssiNLf6yKmI4HHofQznULATqesX1sMJdBi46Do +oggBvJHfz9ruksB/rYHcHWIEZDbG5Cc6S2AzQ1TZW5KAB2Y131ddkMA4q0zv +KBkCJu2kg6bfSaAwbwSDT4OAqjC/1fwjEjghy+9xT5OAM5mP0pTHJbByoNzX +WpsA7qH9tZ7skphdkv38gi4Bcu6X2YbkJbEvY1/rSyDA6eTsxefhkqg5XEN/ +Yk6ATKqh+FiMJLKtSuhR3U2Q6/df6epESaxKW7//hgUBYX83vzLMlUTln6NV +3nsJuHrWaUP1c0nMcC7g+byPgOdJT7PzJKSQEmzsr+9CQPI9IbVGOSl8bnyd +K/QwAfZdLg1DalL4tFM94O4RAr6K/B3ZaCyF2fUqdRvdCODIUZW/4iOFh41r +d7YeI0CvLP3+mToplJMcS70QQMCOno6l8VYp/HqtZyAqkAALtpUmh95IoZBD +oUfwSQKOWPm8g89SqLfcYmwfTIBxOC0ikpOKgR0justhBPhJzd02UKBio4O2 +a0sUAbP3ElsXVKjoJndKIDma/H07FX4SmlT8kQdrHc8SEHPCWZu+jYoTZ5n9 +X88RkNHY3sq+l4oBNZv5h84T0OSe/bMxiIq+xGXYHU+A6V9dgVPhVHyh1fh6 +nHRHYqe2ZiQV6XeqK+MTCHhXzRWZe4GK7Y484Y3/ETC+LlAgJpOKepvP/eW9 +QkBADu8W5k0q1v76pnGd9Lxm0cHZPCo+X+HTwEgm18dpINe1nIrqbNyjKikE +iLB2bjFuoGJ8/iEn2WsE3Njx6eC/FiqyuQU43SBNf3c6svIZFUOyFWr4UwlQ +Yr/XJttFRSnT3thfpA1tJBxWf6XiPW7vmJR0Ap5+rYqs+0FF0dGv/nOkd522 +ygueomL5tap62wwC9uefHx9dpKJERkkE93UCvOenIlt5aFhV0HzdPpPcrxNu +wl8EaBgu6jtbSnrNWF8xhwgNo8yy4B/pvP7G7m10GkbklhdevUFAoI2Ot4Mc +De+xGG3vSRu+KFkRpkjDCwZGH6hZBAw8vqpYoU1Di+SqT9mkS7asbXizlUbu +z62ePtJhrDP7J5GGjoNeDQLZ5PnaPP2Dx5j8/i8fc01IC99yj1Ywp6GoUmdE +KOkRsfcU0z00PDEhYFNI+m7ynlI3WxpmafjSO0lbxuj23jxEw+smrSx6DgGS +/0qP1x2l4YP1Xv5GpH8E0Tk+eNJQzDRYzZV0zcS1tEUfGsYNPxmPIh3nsU5Z +JJCG2knU4uuk932MaNQKpaHqK0/3u6QZ9jN21mdo2DoYyGgh/euNx7jfWRpy +NIt+6iZdb/7hbEIcDdlN1XJHSCc07RUtiadh4HyKxwRpB2ZLWdsVGv6lS6n9 +Ji1fqbdjNJWGOX13/v0hvaBc/m7lDRpqTgu+WSLdWiDtS79Fw8YVW0r+kr5G +TVuJBTRcPjgVP0/6aDp3hmMJDXMptJAp0uoCUSrhBA2/ceV5jZJmuzTblFZJ +rneLg2cf6Q6OY/aVtTQUuLnJv5105qmBibf15H4WfoutIu01axUz1UxDvztR +hTdJ6/k8FVv/jMyH6tueONJrRreyFF/RkD/qyYbjpLsPsYzMumiYnal6xIJ0 +bi+j372PhgbA+USRtP/edL+YQRquH2SoriGN7Tyrbo/Q8H7xSWKI3C/e7dHX +67/RsD9+wKiS9IfaOdWBcRqmypqMx5Eu0fRq+TNNw+cdqcV2pMNKBw+KLpDv +X6s+I/P/fGS3xtpw0PGTrcixSjJPIxSmuP8aOtr/lT8XRvpuIkH8x0NHCama +qq2kLaMz3rdT6Ki3yOZbQeZV8g+v/1dxOnpwpMwcJ/0j4OzqVXQ6Omy2T5Um +HefqrW6gSMeiDdt0Ysn87xsYeuqkRseYWn0dDdKM/baOp7TpyKaveuADeZ7q +d26Lq0I6PhGtW7GZ9IIC34CSLR2tI6TXZJHnce6GWJSGPR13/ThP1SY9s16G +oXuIjgc4P4Q/SyP7ZFr32A5P8vkK2Jd/kud7uPbInP1pOgZxsu0VIPtgUMkn +3TmajsFdRRkpVwl4nx2i73aejtkCBcpCpLvPxkefSKLj1Wo73XVkv7SbV/HG +5dHR03dkujeJ7IdHT4j4O3TkYJy4Y0S6SeW5TXI5Hdlj++6WJxLwWPBjRlY1 +HUdogo/CyX67279WruIFHbnej72evkz2p5cTDM/SUdshoeso2Z+pHzyGRxfp +eCTZT6IgloAUy4CYn8t0lPzNavkSQ+ZfI+7ZPJc0em5BAyeyf6P/EPvXS0rj +9prDv5TI/va6xOmnbyyNXV3PGHvJfvdYWi9oaC6Ngu92LHqGEuDmK1Zpskca +C+Y2G0SGEOBsrfLXyl4apfdYyOUFEWCz8UCcp480xmXfP/HKnwD94pKca9ek +MaLO6Espef/0U4uzja5Lo/7wk3KWJ5mfa0VZM9nS6DW+3YLwIO/fqPxMqyJp +5DvVyFNC3l/qdjlpvA+lcSqqsOw8ed9t5kxJjP0ojdxs0zq9B8i8HQqPDFJk +YE3+87gRYwIqOkMjZNQYWGn6LOe2Efk8ZiFnOrUYaL7UVOS8g4ArWidPqQMD +Bfm3Xek0IICH2zdkfC8DL/u6d9/WJ2Bl9WE/t2AGzmPa7JAaAVMCZs77Ghg4 +Rjwd7yfniV5v+qtjTxl4USCJqSdK5qtlESKeM7Di9hvDa+Q8khhWLFXYzUBP +7jMnTYQIUB3mHlwYY6BE/tPMBB4CfIiXjjcEZZBDvOsfa5kFY5a2B0eOyuCg +bF6ExTALRi477/NfLYvM4hdfVG+ywGdMka7KLYv+XwZdFLJZ8Ntk4edPPlm8 +p8IlzSDnsbUcV2I8xWTxfUxVOF86C1RDG+87K8lixQr5252JLDjtKitoaS2L +9TIirHWR5Hy47cdLhWxZXPAYmNvqyALTiWDTz9pyeGauGAcFyPnuyJqA+xGb +MG7TiZCAh2Xk/xMK+/mGzeh7weGxqXIpCLyQTWBNyCOn6Izsx8xiEI8r36Ot +rYhjZwqKzN8UQZqCLp+guxI+SuI3MhUphHYxA63pJGU0KH2kssIlH/TEGxJV +ulUwKPu+yOdzucDLcSvQJVoVjd9WlI913ALJKCn9A7JqGBBudq6f7SZwyThU +Wj1VQ+Mk8aSy9CxQZoqWBzuqowLbEYvKK9fBf0Cg0YxNAyc3vLk4F5oGE9OX +bU3TNFDnhGlXTMtVMFFpyTBV0sTS5bzh2D3J8Hh665/fHZro0FqW8rg/EXwU +1fteu2rhro9d4rYX4oE5frTzAJc2Mlw/88/4XgAjhshunlva2HI/QPc9Wyxs +irwY0rBlCyY6DAlZL0WDvKtunUzfFvQKORM7QokE18ce5+6f0MHXOS8Iqm84 +1OV0Hp3aoIvd+x5Z3Z0MgpnC5d8qVbpokXbu7A56AByRKebK2K2HTYuJRxwE +/GBKPln77qQerqrb2DIXeAwe5P75OBu3FVl+Q5Y9U65gv0Mat0rqY13+MzVJ +5cOw1LmGt5Gqj0l6q1tFpQ5Djut4v5m0PsodrqVT+Q7Dl9jqYPtN+mi3eox7 +9y8X8G+zLA9V10fakNMauSoXuGhxSvKBMfl5hzjDbkMXqLHr+qvpq49XgzKO +/XZxho3Hz1cr1+vj0220rKlwR0hYdtO61KCP3xbcfNKOOgL7FWNitEkf7bnM +fSx3O8JYJWdRTps+ppu59/6UdIQatnNpAm/1MZnn777vDQ5gnxIZPPdZH9W1 +f/N95HGAtNpQrcfrmDib0dwYUm4PG9Z6E7v3M7HohXCyj5Qd5G4/HTZ5gIni +gak3rnLZgfrphO3JDkzUe/xFrGN6P1hMsrp6XZh4cbgHAlr3Q2z37MIRbyZ+ +sQuduuy/H+ZvRRiGRTHRwjR7frptH/RtTX6bX8xE+3in1wYxtuBxMjfTtIyJ +NY8Kd0SdsIW5sgrXHywm1jIXGl852oIAvfe3WiUT0VCjNlvbFszXSIg/qmfi +cFyfw9+vNvCwM//o2y4mmmT8t7Jgjw2Y8T5QCuplIlW+SX6YaQO9Jm1zIv1M +rCgKJBQVbGCm5nuc0xATx+UkKic4bUDppmrptzEm8rwMCVJ8aA0P+wyCLv9k +ooq0bdjHImswE7IGlUkmtj/pv5iXag1u50++Dpxl4qUkl0L7AGuYqY/NoMwz +MSr+To65izVEL6YeqVlkooOH2ilzS2vg0yxSdFxi4r/ZAlV7pjVkHa+ZXV5m +IlOr+V6wgjX8D0/ftXY= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06886278513770777}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.06886278513770777}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJwV13k0lG8bB3CRSiFbBllmxqDse8h0XRRCUZaSEJUtQshaWYq08CPKklBZ +s81TIVRkC5U2WxSSUipLllDyPu9fcz5nzpx55r6/9/e+hnbY18qVnY2NjXcF +G9v/X+cG2poYl3K3rd0Q38j6hds6s0RCDXqj4ex0pnQnRQpww8vDIr1XIMt9 +jj2eogJBe+70cPTegsIUuRZHCgD/OOXKQs9deMWrFUShWMLgQwvfmZ4G+Pnl +wyVd4UNgzBj7MNXzBvg4DjYPCvjCQs+Wq5M9wxDWd0HoEmcENG4vyH19axp+ +8RyS/L02EcQHq78cVlyCJS/uXYUJqSDkfejO6u0cqKSWN5x9IwuuqBnXWtiu +QZ6UptMp327BuzTV+ik+HuTdmt47w5kPl3IjXrKL8uPpGeuQHMEioKR8upB8 +QxBlX4ZGtlcVg4hCxbn5fEHc7vWtZbK+GMQaYiMcWYI41bb0mL+9GCQnN5+U +axTEiZaTddvfF4PMLj/n2q+CaNBc8NGdrQQ0Vi5pf9IQQg1mI6vcpAQsA4VH +1NuFUOHfr2WtNyVw3sZ025u5DZhgb0Ib7S4FsfsdYuwrhPGTd0/7gcFSKBO0 ++a22ThgFrWommkdLofuNEytJShjVEx4XXJwvBcbeQPrencJ4YLNyVbNoGTTs +zl71Kl0YxQPaElYcLIMl49mOF/oU3Pqf5MmLvWWQmB9WvGRMwVcORqPyQ2XA +WMUWp7SXgvPt7rVNo2Wwq3mtQbwrBf9d4D8/MlcGGdup93YlUFDWPj2jU6gc +dNA89dkgBTkr5FSCLMshQPfmobZoEbTc0XO8tq4czHJ4Z8wvi+DKCpcSwZZy +oK8+FddxVQTLNbNF3J6Xw6vOfcTbQhHkUeYLXegtB2U/bo6BDhHcmKll1TdV +Dl/zg/N/iYli3rIVxZCfBQ5CFj833hPFdwLiGbXAAo3w2qish6L451e000VD +Fqwd3iRMaxFFeZ1B7X1GLKgu5wDZd6J4zN5W+rMZC4TNqxNVl0Ux/uPJsUFb +FryKYmgamYthUK2RsqkXC3ZMLIb5fBJDLv2GrLFkFoTuTJF/8kMMnRzPX7e8 +xoKym0p9gnNiOGX+vY1IY4GIjbNu9ZqNaCXcVXv8Bgt+PGj+zaG8EWk6hnON ++SxIjk4MTA/ZiFneqb3fHrBgeIOsTxOPOMr5zAqK97OA4lsnQaGIo7zMw0C5 +DyzY1Wr3wpMqjm0/GtaqDrKgMuyS4noNcaRHb+nR+cSCi4OTYwfsxFHHOWhu +03cWqBfVuk/cEketsLigs4ssiNLf6yKmI4HHofQznULATqesX1sMJdBi46Do +oggBvJHfz9ruksB/rYHcHWIEZDbG5Cc6S2AzQ1TZW5KAB2Y131ddkMA4q0zv +KBkCJu2kg6bfSaAwbwSDT4OAqjC/1fwjEjghy+9xT5OAM5mP0pTHJbByoNzX +WpsA7qH9tZ7skphdkv38gi4Bcu6X2YbkJbEvY1/rSyDA6eTsxefhkqg5XEN/ +Yk6ATKqh+FiMJLKtSuhR3U2Q6/df6epESaxKW7//hgUBYX83vzLMlUTln6NV +3nsJuHrWaUP1c0nMcC7g+byPgOdJT7PzJKSQEmzsr+9CQPI9IbVGOSl8bnyd +K/QwAfZdLg1DalL4tFM94O4RAr6K/B3ZaCyF2fUqdRvdCODIUZW/4iOFh41r +d7YeI0CvLP3+mToplJMcS70QQMCOno6l8VYp/HqtZyAqkAALtpUmh95IoZBD +oUfwSQKOWPm8g89SqLfcYmwfTIBxOC0ikpOKgR0justhBPhJzd02UKBio4O2 +a0sUAbP3ElsXVKjoJndKIDma/H07FX4SmlT8kQdrHc8SEHPCWZu+jYoTZ5n9 +X88RkNHY3sq+l4oBNZv5h84T0OSe/bMxiIq+xGXYHU+A6V9dgVPhVHyh1fh6 +nHRHYqe2ZiQV6XeqK+MTCHhXzRWZe4GK7Y484Y3/ETC+LlAgJpOKepvP/eW9 +QkBADu8W5k0q1v76pnGd9Lxm0cHZPCo+X+HTwEgm18dpINe1nIrqbNyjKikE +iLB2bjFuoGJ8/iEn2WsE3Njx6eC/FiqyuQU43SBNf3c6svIZFUOyFWr4UwlQ +Yr/XJttFRSnT3thfpA1tJBxWf6XiPW7vmJR0Ap5+rYqs+0FF0dGv/nOkd522 +ygueomL5tap62wwC9uefHx9dpKJERkkE93UCvOenIlt5aFhV0HzdPpPcrxNu +wl8EaBgu6jtbSnrNWF8xhwgNo8yy4B/pvP7G7m10GkbklhdevUFAoI2Ot4Mc +De+xGG3vSRu+KFkRpkjDCwZGH6hZBAw8vqpYoU1Di+SqT9mkS7asbXizlUbu +z62ePtJhrDP7J5GGjoNeDQLZ5PnaPP2Dx5j8/i8fc01IC99yj1Ywp6GoUmdE +KOkRsfcU0z00PDEhYFNI+m7ynlI3WxpmafjSO0lbxuj23jxEw+smrSx6DgGS +/0qP1x2l4YP1Xv5GpH8E0Tk+eNJQzDRYzZV0zcS1tEUfGsYNPxmPIh3nsU5Z +JJCG2knU4uuk932MaNQKpaHqK0/3u6QZ9jN21mdo2DoYyGgh/euNx7jfWRpy +NIt+6iZdb/7hbEIcDdlN1XJHSCc07RUtiadh4HyKxwRpB2ZLWdsVGv6lS6n9 +Ji1fqbdjNJWGOX13/v0hvaBc/m7lDRpqTgu+WSLdWiDtS79Fw8YVW0r+kr5G +TVuJBTRcPjgVP0/6aDp3hmMJDXMptJAp0uoCUSrhBA2/ceV5jZJmuzTblFZJ +rneLg2cf6Q6OY/aVtTQUuLnJv5105qmBibf15H4WfoutIu01axUz1UxDvztR +hTdJ6/k8FVv/jMyH6tueONJrRreyFF/RkD/qyYbjpLsPsYzMumiYnal6xIJ0 +bi+j372PhgbA+USRtP/edL+YQRquH2SoriGN7Tyrbo/Q8H7xSWKI3C/e7dHX +67/RsD9+wKiS9IfaOdWBcRqmypqMx5Eu0fRq+TNNw+cdqcV2pMNKBw+KLpDv +X6s+I/P/fGS3xtpw0PGTrcixSjJPIxSmuP8aOtr/lT8XRvpuIkH8x0NHCama +qq2kLaMz3rdT6Ki3yOZbQeZV8g+v/1dxOnpwpMwcJ/0j4OzqVXQ6Omy2T5Um +HefqrW6gSMeiDdt0Ysn87xsYeuqkRseYWn0dDdKM/baOp7TpyKaveuADeZ7q +d26Lq0I6PhGtW7GZ9IIC34CSLR2tI6TXZJHnce6GWJSGPR13/ThP1SY9s16G +oXuIjgc4P4Q/SyP7ZFr32A5P8vkK2Jd/kud7uPbInP1pOgZxsu0VIPtgUMkn +3TmajsFdRRkpVwl4nx2i73aejtkCBcpCpLvPxkefSKLj1Wo73XVkv7SbV/HG +5dHR03dkujeJ7IdHT4j4O3TkYJy4Y0S6SeW5TXI5Hdlj++6WJxLwWPBjRlY1 +HUdogo/CyX67279WruIFHbnej72evkz2p5cTDM/SUdshoeso2Z+pHzyGRxfp +eCTZT6IgloAUy4CYn8t0lPzNavkSQ+ZfI+7ZPJc0em5BAyeyf6P/EPvXS0rj +9prDv5TI/va6xOmnbyyNXV3PGHvJfvdYWi9oaC6Ngu92LHqGEuDmK1Zpskca +C+Y2G0SGEOBsrfLXyl4apfdYyOUFEWCz8UCcp480xmXfP/HKnwD94pKca9ek +MaLO6Espef/0U4uzja5Lo/7wk3KWJ5mfa0VZM9nS6DW+3YLwIO/fqPxMqyJp +5DvVyFNC3l/qdjlpvA+lcSqqsOw8ed9t5kxJjP0ojdxs0zq9B8i8HQqPDFJk +YE3+87gRYwIqOkMjZNQYWGn6LOe2Efk8ZiFnOrUYaL7UVOS8g4ArWidPqQMD +Bfm3Xek0IICH2zdkfC8DL/u6d9/WJ2Bl9WE/t2AGzmPa7JAaAVMCZs77Ghg4 +Rjwd7yfniV5v+qtjTxl4USCJqSdK5qtlESKeM7Di9hvDa+Q8khhWLFXYzUBP +7jMnTYQIUB3mHlwYY6BE/tPMBB4CfIiXjjcEZZBDvOsfa5kFY5a2B0eOyuCg +bF6ExTALRi477/NfLYvM4hdfVG+ywGdMka7KLYv+XwZdFLJZ8Ntk4edPPlm8 +p8IlzSDnsbUcV2I8xWTxfUxVOF86C1RDG+87K8lixQr5252JLDjtKitoaS2L +9TIirHWR5Hy47cdLhWxZXPAYmNvqyALTiWDTz9pyeGauGAcFyPnuyJqA+xGb +MG7TiZCAh2Xk/xMK+/mGzeh7weGxqXIpCLyQTWBNyCOn6Izsx8xiEI8r36Ot +rYhjZwqKzN8UQZqCLp+guxI+SuI3MhUphHYxA63pJGU0KH2kssIlH/TEGxJV +ulUwKPu+yOdzucDLcSvQJVoVjd9WlI913ALJKCn9A7JqGBBudq6f7SZwyThU +Wj1VQ+Mk8aSy9CxQZoqWBzuqowLbEYvKK9fBf0Cg0YxNAyc3vLk4F5oGE9OX +bU3TNFDnhGlXTMtVMFFpyTBV0sTS5bzh2D3J8Hh665/fHZro0FqW8rg/EXwU +1fteu2rhro9d4rYX4oE5frTzAJc2Mlw/88/4XgAjhshunlva2HI/QPc9Wyxs +irwY0rBlCyY6DAlZL0WDvKtunUzfFvQKORM7QokE18ce5+6f0MHXOS8Iqm84 +1OV0Hp3aoIvd+x5Z3Z0MgpnC5d8qVbpokXbu7A56AByRKebK2K2HTYuJRxwE +/GBKPln77qQerqrb2DIXeAwe5P75OBu3FVl+Q5Y9U65gv0Mat0rqY13+MzVJ +5cOw1LmGt5Gqj0l6q1tFpQ5Djut4v5m0PsodrqVT+Q7Dl9jqYPtN+mi3eox7 +9y8X8G+zLA9V10fakNMauSoXuGhxSvKBMfl5hzjDbkMXqLHr+qvpq49XgzKO +/XZxho3Hz1cr1+vj0220rKlwR0hYdtO61KCP3xbcfNKOOgL7FWNitEkf7bnM +fSx3O8JYJWdRTps+ppu59/6UdIQatnNpAm/1MZnn777vDQ5gnxIZPPdZH9W1 +f/N95HGAtNpQrcfrmDib0dwYUm4PG9Z6E7v3M7HohXCyj5Qd5G4/HTZ5gIni +gak3rnLZgfrphO3JDkzUe/xFrGN6P1hMsrp6XZh4cbgHAlr3Q2z37MIRbyZ+ +sQuduuy/H+ZvRRiGRTHRwjR7frptH/RtTX6bX8xE+3in1wYxtuBxMjfTtIyJ +NY8Kd0SdsIW5sgrXHywm1jIXGl852oIAvfe3WiUT0VCjNlvbFszXSIg/qmfi +cFyfw9+vNvCwM//o2y4mmmT8t7Jgjw2Y8T5QCuplIlW+SX6YaQO9Jm1zIv1M +rCgKJBQVbGCm5nuc0xATx+UkKic4bUDppmrptzEm8rwMCVJ8aA0P+wyCLv9k +ooq0bdjHImswE7IGlUkmtj/pv5iXag1u50++Dpxl4qUkl0L7AGuYqY/NoMwz +MSr+To65izVEL6YeqVlkooOH2ilzS2vg0yxSdFxi4r/ZAlV7pjVkHa+ZXV5m +IlOr+V6wgjX8D0/ftXY= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06886278513770777}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJxTTMoPSmViYGCQB2IQDQNLGAINkrnK7CG8D/YFW/1i+sInQPkMDkmGr6Kq +58+C8jkczrencxoxLYLyBRw0tNtWMyssg/JFHAL6mFwO9qyE8iUc3u708W0y +XwPlyzi85X7Rai2+DspXcJimnKJwXm89lK/koKgQ78TaDuOrOFidyz201wjG +V3PYGsTxRMgdpl/D4cmtAMNz92HmazmUHVGU9hBfDeXrOAA5s8O4YO7RcyjZ +dKVq/0WYew0clAL+Nnu0LYHyDR1s9EWlP1vB/GfkcNon868u4wIo39jhkHfB +K+aTs6F8E4edQeebAu5Nh/JNHeT5a8u1vadA+WYOttd6eIrEJ0L55g6HXZpF +bFp7oHwLB/5r/y3PTG+H8i0dus7EPPgU0QzlWzkw5q6OTK+ph/KtHd7OVGXM +yqqE8m0cpK+FiLXGlkD5tg4f5zGfFjQqgPLtHO40Ld3VMD3THgDPenlb + "]]}, + 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:eJxTTMoPSmViYGCQB2IQDQNLGAINkrnK7CG8D/YFW/1i+sInQPkMDkmGr6Kq +58+C8jkczrencxoxLYLyBRw0tNtWMyssg/JFHAL6mFwO9qyE8iUc3u708W0y +XwPlyzi85X7Rai2+DspXcJimnKJwXm89lK/koKgQ78TaDuOrOFidyz201wjG +V3PYGsTxRMgdpl/D4cmtAMNz92HmazmUHVGU9hBfDeXrOAA5s8O4YO7RcyjZ +dKVq/0WYew0clAL+Nnu0LYHyDR1s9EWlP1vB/GfkcNon868u4wIo39jhkHfB +K+aTs6F8E4edQeebAu5Nh/JNHeT5a8u1vadA+WYOttd6eIrEJ0L55g6HXZpF +bFp7oHwLB/5r/y3PTG+H8i0dus7EPPgU0QzlWzkw5q6OTK+ph/KtHd7OVGXM +yqqE8m0cpK+FiLXGlkD5tg4f5zGfFjQqgPLtHO40Ld3VMD3THgDPenlb + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.061577}}, + "Frame" -> {{False, 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.061577}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGCQB2IQDQNLGAINkrnK7CG8D/YFW/1i+sInQPkMDkmGr6Kq +58+C8jkczrencxoxLYLyBRw0tNtWMyssg/JFHAL6mFwO9qyE8iUc3u708W0y +XwPlyzi85X7Rai2+DspXcJimnKJwXm89lK/koKgQ78TaDuOrOFidyz201wjG +V3PYGsTxRMgdpl/D4cmtAMNz92HmazmUHVGU9hBfDeXrOAA5s8O4YO7RcyjZ +dKVq/0WYew0clAL+Nnu0LYHyDR1s9EWlP1vB/GfkcNon868u4wIo39jhkHfB +K+aTs6F8E4edQeebAu5Nh/JNHeT5a8u1vadA+WYOttd6eIrEJ0L55g6HXZpF +bFp7oHwLB/5r/y3PTG+H8i0dus7EPPgU0QzlWzkw5q6OTK+ph/KtHd7OVGXM +yqqE8m0cpK+FiLXGlkD5tg4f5zGfFjQqgPLtHO40Ld3VMD3THgDPenlb + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.061577}}, + "Frame" -> {{False, 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.06886278513770777}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993961965121272*^9}, + CellLabel-> + "Out[141]=",ExpressionUUID->"2506575a-99ef-47da-9760-46a62a9c9a47"] +}, Open ]], Cell[CellGroupData[{ @@ -8846,18 +14688,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[\\\"1.520591954580688`*^-157\\\", \ +RowBox[{\\\"\ +164243120455479739170682508554789627978361849045564433400431439697434\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"15\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3832218553116351696319446492554724542670438400000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 142, 73, 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993961965144373*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"aea4c7b7-359d-4b8e-bbe3-47e1ddd5f168"], -Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"b372c493-d6de-934f-951c-1a3f45718733"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.696621100488728`*^-160\\\", \ +RowBox[{\\\"\ +552513857212233842570175958778312308519209260189278753959051363142168\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"18\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1583212683407106418618000954093361543354777600000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 142, 74, 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939619651486607`*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"5050c13d-2bb0-4bae-b2f5-debe4764875b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.78219376190654`*^-163\\\", \ +RowBox[{\\\"\ +192330073695578600598678251250730514595536743471887934253145779509789\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"22\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1163350940137443209261321198991532417980825600000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 142, 75, 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993961965152836*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"04a938d4-a00c-453a-a443-9eecfc67679b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 142, 76, 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99396196515657*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"a55a7192-8421-4a35-baca-0f6b288bc9a4"], + +Cell[BoxData["11.49010524876859`"], "Output", + CellChangeTimes->{3.993961988107944*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"ab87611c-84e0-4c97-aa0b-1f809970955c"] }, Open ]], Cell[CellGroupData[{ @@ -8924,27 +14826,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[\\\"2.9291471240747297`*^-223\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 143, 77, 31385712231930919302, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993961988128393*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"70493685-1843-4c04-9d56-b405b95622f6"], 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[\\\"5.7644807146583556`*^-229\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 143, 78, 31385712231930919302, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939619881328897`*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"ffc170da-c45f-4f29-8d39-46d93e94d01d"], -Cell[BoxData["1.0713232818739324`"], "Output",ExpressionUUID->"37cdd74c-8ec4-9047-aa14-d493ed3e18d0"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.134433898405313`*^-234\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 143, 79, 31385712231930919302, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993961988137488*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"729db019-718f-4ecd-9c97-c35c8dc45ce9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 143, 80, 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993961988141478*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"914bdc76-6368-4ccf-95b5-69d51ee9575c"], + +Cell[BoxData["0.08201938969062737`"], "Output", + CellChangeTimes->{3.99396199115525*^9}, + CellLabel-> + "Out[143]=",ExpressionUUID->"df46adb1-28ce-4909-b875-28e8462f0ecc"] }, Open ]], Cell[CellGroupData[{ @@ -8965,8 +14912,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 +14957,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[\\\"2.9291471240747297`*^-223\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 144, 81, 31385712231930919302, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939619911741037`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"407df46c-a628-4588-a9cb-94494fe80dff"], 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[\\\"5.7644807146583556`*^-229\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 144, 82, 31385712231930919302, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993961991178254*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"aac58c8d-d0b6-4ab6-81e4-1b2d4e49f029"], -Cell[BoxData["5.515504100347031`"], "Output",ExpressionUUID->"5fc76ad3-8f3e-9246-bda1-78737e269d99"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.134433898405313`*^-234\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 144, 83, 31385712231930919302, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939619911823063`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"308bbd12-9fec-4aaf-bc80-e1cf6ade9d71"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 144, 84, 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993961991186302*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"18714e40-f2d7-418b-82e2-3f3215025dc5"], + +Cell[BoxData["33.296590610807165`"], "Output", + CellChangeTimes->{3.993961994001155*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"98872430-f755-4e51-a21e-728abe50910c"] }, Open ]], Cell[CellGroupData[{ @@ -9052,8 +15043,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 +15088,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[\\\"2.9291471240747297`*^-223\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 145, 85, 31385712231930919302, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939619940200253`*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"bd13e06f-2fb1-4a21-88f6-51c44c2c64b4"], 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[\\\"5.7644807146583556`*^-229\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 145, 86, 31385712231930919302, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939619940245667`*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"3be3443f-f456-40d1-ab80-f7734dcb0dbe"], -Cell[BoxData["17.107550304528036`"], "Output",ExpressionUUID->"dbb2a900-6759-7349-a1e8-ea8b52a29f31"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.134433898405313`*^-234\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 145, 87, 31385712231930919302, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99396199402875*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"ee446e62-48a0-42f3-bfea-e100b54e0ece"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 145, 88, 31385712231930919302, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993961994032317*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"abfcd52f-453c-4f3f-95a9-58dac11e2db1"], + +Cell[BoxData["4.966323059513972`"], "Output", + CellChangeTimes->{3.993961995795794*^9}, + CellLabel-> + "Out[145]=",ExpressionUUID->"4d323eb0-0ba9-4646-8b7f-cf0e1cef1908"] }, Open ]], Cell[CellGroupData[{ @@ -9127,17 +15162,27 @@ 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.006378215177594447`"], "Output", + CellChangeTimes->{3.993961995813485*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"7877a351-5e92-42e8-97bb-d3dbefe82535"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input", + CellChangeTimes->{{3.99395913748836*^9, 3.993959141282844*^9}}, + CellLabel-> + "In[147]:=",ExpressionUUID->"87a4c38c-6764-4f36-9f12-55b95ac11aad"] }, -WindowSize->{718.5, 729.75}, -WindowMargins->{{6, Automatic}, {Automatic, 4.5}}, +Evaluator->"kernel 4", +WindowSize->{714, 876}, +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 +15197,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, 298, 5, 29, "Input",ExpressionUUID->"d60583fa-07c8-4897-a59a-86f3dc8d0276"], +Cell[877, 29, 244, 4, 33, "Output",ExpressionUUID->"ac8fe135-d25c-49d9-8cc0-62743ba5f11e"] }, 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[1158, 38, 248, 4, 29, "Input",ExpressionUUID->"4897d368-ed74-4e55-adfc-0daa97f01365"], +Cell[1409, 44, 250, 4, 33, "Output",ExpressionUUID->"933fc0c7-2e20-423e-9728-afd9ed7a0e38"] }, 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[1696, 53, 223, 4, 29, "Input",ExpressionUUID->"5331caa0-0f8e-48d3-82b7-22062059282c"], +Cell[1922, 59, 255, 4, 33, "Output",ExpressionUUID->"6d2df5f4-e29f-47bd-918c-64801b8ed4d8"] }, 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[2214, 68, 175, 3, 29, "Input",ExpressionUUID->"7a531246-230c-45c5-be84-e966e28aa265"], +Cell[2392, 73, 253, 4, 33, "Output",ExpressionUUID->"7756e4c9-7921-4161-86b6-2f41bee21a17"] }, 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[2682, 82, 257, 7, 42, "Input",ExpressionUUID->"bfc8c9da-5fcf-4579-974c-4501dd30ea71"], +Cell[2942, 91, 253, 4, 33, "Output",ExpressionUUID->"6de254c6-3e9a-48ef-93c2-136bc8208217"] }, 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[3232, 100, 131, 2, 29, "Input",ExpressionUUID->"4ea5bf5d-7c87-4e83-8cac-6d6c08e36207"], +Cell[3366, 104, 251, 4, 33, "Output",ExpressionUUID->"64b9fc1e-8fb0-40ab-9f7c-59db63903052"] }, 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[3654, 113, 276, 6, 29, "Input",ExpressionUUID->"c40fe154-833b-42eb-ba9f-f177babdfa24"], +Cell[3933, 121, 268, 4, 33, "Output",ExpressionUUID->"63d41660-8f6e-4709-8f14-0901ac44f92d"] }, 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[4238, 130, 257, 7, 29, "Input",ExpressionUUID->"f1a21579-f6f4-4eb2-9229-ab8f69b9b3f0"], +Cell[4498, 139, 265, 4, 33, "Output",ExpressionUUID->"305c8b9f-0fda-46a3-abc3-296a79802fa9"] }, 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[4800, 148, 229, 4, 29, "Input",ExpressionUUID->"87bd62d8-ed24-49d6-a76b-fdc8e636f312"], +Cell[5032, 154, 229, 3, 33, "Output",ExpressionUUID->"1be3421a-4bcf-4117-80db-503a730d8e7b"] }, 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[5298, 162, 225, 4, 29, "Input",ExpressionUUID->"eac9a29e-0678-4aa2-bbeb-51699e7f0cdc"], +Cell[5526, 168, 228, 3, 33, "Output",ExpressionUUID->"95bad680-410a-4c25-a6d9-06f2e0a45be7"] }, 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[5791, 176, 129, 2, 29, "Input",ExpressionUUID->"337e902d-15db-41a8-9afe-a6a97f0cb326"], +Cell[5923, 180, 248, 4, 33, "Output",ExpressionUUID->"560ffd9d-1799-4764-90ec-f264f4f9e964"] }, 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[6208, 189, 129, 2, 29, "Input",ExpressionUUID->"9eb53275-8bc4-44f9-9e67-a9be869b6343"], +Cell[6340, 193, 250, 4, 33, "Output",ExpressionUUID->"4f501e5c-823b-4799-ac3c-3c25a0f1cbb4"] }, 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[6627, 202, 557, 19, 79, "Input",ExpressionUUID->"5e10a12e-4936-44a0-93c8-c7bfc22801cd"], +Cell[7187, 223, 264, 4, 33, "Output",ExpressionUUID->"74ab0598-0f01-4065-83e2-52dfdb891f3e"] }, 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[7488, 232, 557, 19, 79, "Input",ExpressionUUID->"c40778eb-2b02-4593-ab8b-b97e44d6b945"], +Cell[8048, 253, 267, 4, 33, "Output",ExpressionUUID->"8fabbfd3-3c70-44ec-8ad3-5dc21358d7c6"] }, 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[8352, 262, 1588, 50, 158, "Input",ExpressionUUID->"408c3093-d80d-41f6-b106-aebcb6e9305a"], +Cell[9943, 314, 267, 4, 33, "Output",ExpressionUUID->"44da73ce-69e9-46cb-85a5-30ec61bccffd"] }, 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[10247, 323, 1422, 46, 158, "Input",ExpressionUUID->"60bffa82-621d-49e8-9309-45181da6fc56"], +Cell[11672, 371, 281, 5, 33, "Output",ExpressionUUID->"5b977ede-831d-4706-b4bf-4d30e879dbd0"] }, 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[11990, 381, 1422, 46, 158, "Input",ExpressionUUID->"bde74a1b-7a2b-4b96-9355-4528635ba433"], +Cell[13415, 429, 284, 5, 33, "Output",ExpressionUUID->"d3f6c4ea-8419-418b-905b-a5dab57fbeb8"] }, 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[13736, 439, 1588, 50, 158, "Input",ExpressionUUID->"fa044a01-1600-4db4-9230-ded739562dd2"], +Cell[15327, 491, 263, 4, 33, "Output",ExpressionUUID->"c1516524-4b53-43d0-a534-762003dac61c"] }, 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[15627, 500, 131, 2, 29, "Input",ExpressionUUID->"4622c7e6-0fea-41e7-8e4e-dd4d6c071ae5"], +Cell[15761, 504, 248, 4, 33, "Output",ExpressionUUID->"aabdb603-da0b-4214-adf2-56823b61720b"] }, 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[16046, 513, 133, 2, 29, "Input",ExpressionUUID->"b4c3b6ed-43e9-4f2c-86ae-df1e98d7bb74"], +Cell[16182, 517, 251, 4, 33, "Output",ExpressionUUID->"666a3234-abdf-466b-b844-73349fbdb639"] }, 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[16470, 526, 134, 2, 29, "Input",ExpressionUUID->"91f419a7-20c5-4048-9a15-7cab46ce7573"], +Cell[16607, 530, 255, 4, 33, "Output",ExpressionUUID->"1a4ab423-f04c-4f33-911b-ec5a14b38a7e"] }, 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[16899, 539, 219, 4, 29, "Input",ExpressionUUID->"a9610357-5354-42d8-a067-7da596524bc4"], +Cell[17121, 545, 264, 5, 33, "Output",ExpressionUUID->"46afb194-0fee-4945-978e-6d8d5848d320"] }, 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[17422, 555, 134, 2, 29, "Input",ExpressionUUID->"93302733-3592-49db-a28e-1af7dffa7b01"], +Cell[17559, 559, 256, 4, 33, "Output",ExpressionUUID->"d17c76f0-36d3-4b36-9264-1c521b13076e"] }, 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[17852, 568, 324, 5, 29, "Input",ExpressionUUID->"6647e7a9-0934-49cf-acdd-0acf932cd15b"], +Cell[18179, 575, 251, 4, 33, "Output",ExpressionUUID->"89dd007b-b47b-4efc-8817-d9b009ea83f7"] }, 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[18467, 584, 296, 5, 29, "Input",ExpressionUUID->"7058d540-9d11-4c88-ae18-9aa20d80c478"], +Cell[18766, 591, 249, 4, 33, "Output",ExpressionUUID->"b098903f-113b-4c41-8f9c-ac60af99a1d0"] }, 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[19052, 600, 219, 4, 29, "Input",ExpressionUUID->"b57821cb-d8ab-4a14-b62c-4bfdd0fbe3f8"], +Cell[19274, 606, 249, 4, 33, "Output",ExpressionUUID->"2270e617-9548-4ebd-a559-218072e918f7"] }, 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[19560, 615, 350, 10, 42, "Input",ExpressionUUID->"0054828d-c6dc-4be3-bc95-f964d2ea8865"], +Cell[19913, 627, 257, 4, 33, "Output",ExpressionUUID->"82861ac6-edd6-4def-a57c-daf5ce67189f"] }, 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[20207, 636, 350, 10, 42, "Input",ExpressionUUID->"af83d294-25e5-456f-a0f4-36970400e113"], +Cell[20560, 648, 285, 5, 33, "Output",ExpressionUUID->"6ba846ad-a398-4445-b8da-2e5755979f1b"] }, 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[20882, 658, 994, 26, 81, "Input",ExpressionUUID->"74b35f0f-9b91-4164-ac3f-11a5f78c6f05"], +Cell[21879, 686, 270, 4, 33, "Output",ExpressionUUID->"7e7d9f69-9ff9-47c8-b1da-f9721ab1f14e"] }, 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[22186, 695, 199, 3, 29, "Input",ExpressionUUID->"c7f07f27-8f2e-440a-b014-a6b95f852c1d"], +Cell[22388, 700, 250, 4, 33, "Output",ExpressionUUID->"a3f79d0f-7f66-469e-a6b5-8bac4194088e"] }, 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[22675, 709, 331, 5, 29, "Input",ExpressionUUID->"c72a9326-f1ae-4af3-b38f-05f3725f95b6"], +Cell[23009, 716, 225, 3, 33, "Output",ExpressionUUID->"8a59600f-df1c-41cd-9e4e-1b26e20f3911"] +}, Open ]], +Cell[23249, 722, 173, 2, 35, "Input",ExpressionUUID->"9faad396-be18-47c1-8aba-bfc00a8a5f40"], +Cell[CellGroupData[{ +Cell[23447, 728, 327, 5, 29, "Input",ExpressionUUID->"47fabd49-5cb3-4c6f-90a5-0e6e360882b3"], +Cell[23777, 735, 226, 3, 33, "Output",ExpressionUUID->"ec085dbb-685c-46ab-811f-3b1db8e4629a"] +}, Open ]], +Cell[24018, 741, 173, 2, 35, "Input",ExpressionUUID->"56ededd2-6c8f-4aed-9003-b16df34dc5f1"], +Cell[CellGroupData[{ +Cell[24216, 747, 330, 5, 29, "Input",ExpressionUUID->"062637b4-3e71-408a-ac39-1bf55d970deb"], +Cell[24549, 754, 227, 3, 33, "Output",ExpressionUUID->"de796b90-458e-4ae9-96e3-5ce2db00382b"] +}, Open ]], +Cell[24791, 760, 173, 2, 35, "Input",ExpressionUUID->"15ffb5cb-83f1-41fc-aa61-77159d969183"], +Cell[CellGroupData[{ +Cell[24989, 766, 352, 5, 29, "Input",ExpressionUUID->"2bc5b7ea-e745-4b1b-89f1-921d1ab9730c"], +Cell[25344, 773, 230, 3, 33, "Output",ExpressionUUID->"487e8aff-01f5-404d-a759-f4c16826e40c"] +}, Open ]], +Cell[25589, 779, 171, 2, 35, "Input",ExpressionUUID->"577e2245-ac09-43fe-82d3-5fe31525cf61"], +Cell[CellGroupData[{ +Cell[25785, 785, 299, 5, 29, "Input",ExpressionUUID->"0fa5defa-d32f-4b72-8830-7e126f753181"], +Cell[26087, 792, 229, 3, 33, "Output",ExpressionUUID->"2ac99708-9ec7-439f-9839-fea7ccf0faa6"] +}, Open ]], +Cell[26331, 798, 171, 2, 35, "Input",ExpressionUUID->"5981f3ef-ca86-4ccf-a0e7-fb0a68a483e2"], +Cell[CellGroupData[{ +Cell[26527, 804, 305, 5, 29, "Input",ExpressionUUID->"21925cf7-a825-4cbc-be02-1a7270ec0f99"], +Cell[26835, 811, 227, 3, 33, "Output",ExpressionUUID->"898de461-5ba7-4250-875c-b20caaa2f83e"] +}, Open ]], +Cell[27077, 817, 173, 2, 35, "Input",ExpressionUUID->"24545006-4135-428a-95b1-5f713a78fc5a"], +Cell[CellGroupData[{ +Cell[27275, 823, 307, 5, 29, "Input",ExpressionUUID->"8605c0fb-5326-4bf4-a83a-1bb337b61f20"], +Cell[27585, 830, 225, 3, 33, "Output",ExpressionUUID->"6b584644-0a7c-4bde-8191-c7beedea6b22"] +}, Open ]], +Cell[27825, 836, 172, 2, 35, "Input",ExpressionUUID->"9fce0652-b610-4666-a747-241ffe6c4ddb"], +Cell[CellGroupData[{ +Cell[28022, 842, 276, 4, 29, "Input",ExpressionUUID->"e690e103-d588-4171-9561-2a477274e5ce"], +Cell[28301, 848, 228, 3, 33, "Output",ExpressionUUID->"f1640712-7ad1-4ced-b9ef-6855ba58235e"] +}, Open ]], +Cell[28544, 854, 175, 2, 35, "Input",ExpressionUUID->"2846e356-86a3-473a-9411-05fd4589cc58"], +Cell[CellGroupData[{ +Cell[28744, 860, 19809, 485, 1844, "Input",ExpressionUUID->"db576353-fcb2-46a5-bacb-02cb347f91d0"], +Cell[48556, 1347, 264, 4, 33, "Output",ExpressionUUID->"689c4d83-2ab2-4426-aae4-1b5bea75b868"] }, 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[48857, 1356, 19748, 489, 1981, "Input",ExpressionUUID->"317d4ffa-d000-44e5-8cfc-4d08bcda3461"], +Cell[68608, 1847, 265, 4, 33, "Output",ExpressionUUID->"08646258-70eb-4051-babc-6d52b8861403"] }, 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[68910, 1856, 19748, 483, 1970, "Input",ExpressionUUID->"68e02301-0330-4a21-a990-a1ce7a1cc3c2"], +Cell[88661, 2341, 283, 5, 33, "Output",ExpressionUUID->"7d69d298-2485-4604-a7cb-708734349f8a"] }, 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[88981, 2351, 22534, 553, 2217, "Input",ExpressionUUID->"18c15172-897e-4128-b238-25a2654e8235"], +Cell[111518, 2906, 286, 5, 33, "Output",ExpressionUUID->"24909f8d-4fbd-402a-a528-d5c3b46d6a46"] }, 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[111841, 2916, 22535, 553, 2254, "Input",ExpressionUUID->"d4cb0eb5-d35c-4e24-af5e-117e66070a58"], +Cell[134379, 3471, 284, 5, 33, "Output",ExpressionUUID->"fa05c79f-d9df-4dde-9e64-bce49de4d33c"] }, 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[134700, 3481, 25491, 626, 2501, "Input",ExpressionUUID->"71c1a455-ceb4-48f3-ad34-ebc7cb66426c"], +Cell[160194, 4109, 281, 5, 33, "Output",ExpressionUUID->"8f0fe0a1-c62d-4404-9752-0cb058a0345f"] }, 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[160512, 4119, 130, 2, 29, "Input",ExpressionUUID->"c78162bb-e8ea-4ee9-8903-a087a758791e"], +Cell[160645, 4123, 247, 4, 33, "Output",ExpressionUUID->"ffe1f587-e9ba-4360-994d-c7f96472f045"] }, 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[160929, 4132, 130, 2, 29, "Input",ExpressionUUID->"3ae180aa-5b38-404e-8f82-c44871edc30d"], +Cell[161062, 4136, 249, 4, 33, "Output",ExpressionUUID->"bc50d184-364e-4d3b-a5aa-b96dd4712da5"] }, 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[161348, 4145, 1144, 39, 107, "Input",ExpressionUUID->"e55705b3-87a9-4660-9889-63b7e8852df8"], +Cell[162495, 4186, 266, 4, 33, "Output",ExpressionUUID->"376e4204-806a-427e-85e6-f55a4d66aa5d"] }, 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[162798, 4195, 1041, 35, 107, "Input",ExpressionUUID->"003426f0-4df3-4eea-b825-53e5f302a8c7"], +Cell[163842, 4232, 283, 5, 33, "Output",ExpressionUUID->"329bb579-f97a-495c-8b59-a486dd727d29"] }, 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[164162, 4242, 1144, 39, 107, "Input",ExpressionUUID->"5dd3a5c0-e2ad-44d3-b705-446241544733"], +Cell[165309, 4283, 265, 4, 33, "Output",ExpressionUUID->"43d19224-dffb-4736-9006-2b905c5fccbc"] }, 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[165611, 4292, 108, 1, 29, "Input",ExpressionUUID->"f540aa55-693c-4c41-a7bc-b752615cb1c0"], +Cell[165722, 4295, 271, 4, 33, "Output",ExpressionUUID->"039c3ea6-8752-483c-b074-4cce08ddbae8"] }, 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[166030, 4304, 108, 1, 29, "Input",ExpressionUUID->"535a56c9-a4b0-434a-a852-01ea81c0c7a8"], +Cell[166141, 4307, 284, 5, 33, "Output",ExpressionUUID->"8bc8a499-3614-4b4f-a9be-5ed887ebd441"] }, 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[166462, 4317, 108, 1, 29, "Input",ExpressionUUID->"903892b7-223a-4787-9e72-9057463ebc4b"], +Cell[166573, 4320, 285, 5, 33, "Output",ExpressionUUID->"3faee401-bf0d-4efc-b74d-dffa3773428d"] }, 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[166895, 4330, 108, 1, 29, "Input",ExpressionUUID->"9436200e-2372-41a9-a88a-fd23339fa5b2"], +Cell[167006, 4333, 265, 4, 33, "Output",ExpressionUUID->"f2c1c5d0-cd6f-4ce6-aaf1-cd0aeb5a3b10"] }, 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[167308, 4342, 107, 1, 29, "Input",ExpressionUUID->"fd58b108-6824-4a71-990a-ce684335fd1e"], +Cell[167418, 4345, 268, 4, 33, "Output",ExpressionUUID->"1ae96ff6-4e93-47b4-b717-de506519011d"] }, 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[167723, 4354, 107, 1, 29, "Input",ExpressionUUID->"dc706c10-ca47-4783-ad0d-1e6c2810725a"], +Cell[167833, 4357, 269, 4, 33, "Output",ExpressionUUID->"7936033b-a2bb-4cd0-bd6e-19f6f4f41d39"] }, 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[168139, 4366, 497, 16, 55, "Input",ExpressionUUID->"75313578-47d8-4002-b93a-1c80729c42e6"], +Cell[168639, 4384, 282, 5, 33, "Output",ExpressionUUID->"d64b8542-0870-4c4f-bb49-23ace75179d0"] }, 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[168958, 4394, 497, 16, 55, "Input",ExpressionUUID->"efd85ac6-87b3-446d-9273-068e0653b420"], +Cell[169458, 4412, 281, 5, 33, "Output",ExpressionUUID->"ae425e42-59ee-423f-8876-4973ff7cc242"] }, 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[169776, 4422, 1788, 60, 183, "Input",ExpressionUUID->"79261068-0437-4d44-8f0f-aa629a2b9a28"], +Cell[171567, 4484, 269, 4, 33, "Output",ExpressionUUID->"64176826-3985-4c76-9601-b7155efaade2"] }, 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[171873, 4493, 1101, 36, 131, "Input",ExpressionUUID->"2fe8c172-9b38-46aa-961a-e1da3d962a13"], +Cell[172977, 4531, 287, 5, 33, "Output",ExpressionUUID->"b0c25908-f0bf-4899-982c-2d615f8fac66"] }, 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[173301, 4541, 1818, 61, 160, "Input",ExpressionUUID->"1fde1861-66f4-4a12-90b7-be411c748d4f"], +Cell[175122, 4604, 264, 4, 33, "Output",ExpressionUUID->"0b0185db-9503-49a3-b350-d3d7d16255fd"] }, 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[175423, 4613, 1631, 53, 162, "Input",ExpressionUUID->"d14c9b7b-0dd7-430b-a82b-68a4d782f5c2"], +Cell[177057, 4668, 264, 4, 33, "Output",ExpressionUUID->"526fa8a8-381a-423c-90ba-afc0f24773e6"] }, 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[177358, 4677, 1631, 53, 162, "Input",ExpressionUUID->"d8bb0a04-7017-48ff-a26e-130682b81be2"], +Cell[178992, 4732, 265, 4, 33, "Output",ExpressionUUID->"c10cbe0d-4c8f-4dbb-9c2b-5f4834b74ff0"] }, 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[179294, 4741, 206, 3, 29, "Input",ExpressionUUID->"5894836c-9594-0940-b94c-299085c765cc"], +Cell[179503, 4746, 163, 2, 33, "Output",ExpressionUUID->"bd607392-00a3-4d7e-8a4c-bb8deb4f1d0c"] }, Open ]], -Cell[371689, 8793, 209, 5, 70, "Input",ExpressionUUID->"54d9c986-d109-3d4c-9ee8-76427bb63659"], +Cell[179681, 4751, 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[179879, 4757, 206, 3, 29, "Input",ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-092c5143dcf0"], +Cell[180088, 4762, 161, 2, 33, "Output",ExpressionUUID->"7eca3fca-00a9-4f00-bc52-c2ba9b4c5c1b"] +}, Open ]], +Cell[180264, 4767, 173, 2, 29, "Input",ExpressionUUID->"6e7c45d7-0298-ce41-ba97-a3c857e6ae57"], +Cell[CellGroupData[{ +Cell[180462, 4773, 1297, 42, 111, "Input",ExpressionUUID->"38bf39c5-cae1-4148-b0af-e362ef4ee2e3"], +Cell[181762, 4817, 198, 2, 33, "Output",ExpressionUUID->"61444a1f-d253-4316-acbd-b366fe8a9a22"] }, 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[181997, 4824, 927, 30, 96, "Input",ExpressionUUID->"f2e6289f-a8bc-6d44-a856-301cf9f22a61"], +Cell[182927, 4856, 197, 2, 33, "Output",ExpressionUUID->"f5ba6216-34a0-4185-95b9-67028bd65793"] }, 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[183161, 4863, 908, 29, 55, "Input",ExpressionUUID->"cdf84d2f-1e96-4c43-9286-fda42549e334"], +Cell[184072, 4894, 195, 2, 33, "Output",ExpressionUUID->"880bc4e4-43cc-4776-bc6e-ba5d611bed15"] }, 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[184304, 4901, 554, 18, 51, "Input",ExpressionUUID->"a7d184c1-375c-094d-82ba-c6d8cfdfa4a1"], +Cell[184861, 4921, 191, 2, 33, "Output",ExpressionUUID->"72910405-9231-4f9b-b229-3a9b2ae907fb"] }, 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[185089, 4928, 647, 21, 51, "Input",ExpressionUUID->"cc7d9e01-d61b-5a43-abcd-9714383fe0fe"], +Cell[185739, 4951, 187, 2, 33, "Output",ExpressionUUID->"10d0f827-b7bf-4763-989d-e9741e19dd98"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185963, 4958, 166, 4, 55, "Input",ExpressionUUID->"1204358e-ac52-0f4c-bf22-945336ddda4e"], +Cell[186132, 4964, 186, 2, 33, "Output",ExpressionUUID->"1f44328e-8af9-4881-b2c7-798c2d00c46c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[186355, 4971, 166, 4, 54, "Input",ExpressionUUID->"66c9dc01-c171-8f4f-b59a-2829d67b4589"], +Cell[186524, 4977, 192, 2, 33, "Output",ExpressionUUID->"0d61d19c-4365-4874-9c14-c19e1fa5def9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[186753, 4984, 177, 4, 43, "Input",ExpressionUUID->"09b0eefd-6263-8a44-8015-82d02046019c"], +Cell[186933, 4990, 188, 2, 33, "Output",ExpressionUUID->"d5621a79-c0e8-4708-bc7e-9f1d95fa1aa5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187158, 4997, 177, 4, 43, "Input",ExpressionUUID->"c1911d35-4f2b-d042-9073-088b56a17885"], +Cell[187338, 5003, 192, 2, 33, "Output",ExpressionUUID->"848a5265-7509-4dce-a4a9-d1a468b4c2ae"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187567, 5010, 6051, 184, 474, "Input",ExpressionUUID->"6fd22be4-12e4-0d4e-b7f7-ab28adc2524f"], +Cell[193621, 5196, 193, 2, 33, "Output",ExpressionUUID->"c08bc9dd-3f0d-49ea-ad00-128b3d38aa37"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193851, 5203, 364, 8, 41, "Input",ExpressionUUID->"788e89bc-20c8-8541-af10-81d8741a0e5b"], +Cell[194218, 5213, 191, 2, 33, "Output",ExpressionUUID->"587e36ae-2a15-42fd-9cff-463b2f9b283d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194446, 5220, 6118, 186, 474, "Input",ExpressionUUID->"c19137b0-217d-0844-9acb-cc5878ab26fc"], +Cell[200567, 5408, 193, 2, 33, "Output",ExpressionUUID->"676918ba-3dfa-4c31-ac4f-ca3500736e59"] +}, Open ]], +Cell[CellGroupData[{ +Cell[200797, 5415, 364, 8, 41, "Input",ExpressionUUID->"7c3bd40f-ac17-c54f-a888-ac3b4c84d9d9"], +Cell[201164, 5425, 190, 2, 33, "Output",ExpressionUUID->"cb461df5-6d03-498a-87cb-d794069ee652"] +}, Open ]], +Cell[CellGroupData[{ +Cell[201391, 5432, 2659, 87, 285, "Input",ExpressionUUID->"bdca581e-5d9f-434b-8ec4-903e0edf0216"], +Cell[204053, 5521, 190, 2, 33, "Output",ExpressionUUID->"ea2c46ab-327f-4f19-a41d-2960faca8994"] +}, Open ]], +Cell[CellGroupData[{ +Cell[204280, 5528, 2599, 84, 211, "Input",ExpressionUUID->"1cec8cc2-764e-3d42-a680-d2ec92565257"], +Cell[206882, 5614, 190, 2, 33, "Output",ExpressionUUID->"cd2b6ab3-f3a2-4108-b68c-8d242d2800c1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[207109, 5621, 3708, 117, 327, "Input",ExpressionUUID->"800aba4f-a7e9-864a-a38b-f618fe3c89be"], +Cell[210820, 5740, 192, 2, 33, "Output",ExpressionUUID->"6428fbb9-c041-4352-a2fa-3f88d475fbdd"] +}, Open ]], +Cell[211027, 5745, 160, 3, 29, "Input",ExpressionUUID->"8111b6bb-cdcb-ad40-9440-412e77bed40d"], +Cell[CellGroupData[{ +Cell[211212, 5752, 2073, 58, 234, "Input",ExpressionUUID->"fc88a60e-e348-d344-96c4-1f4f66f53217"], +Cell[213288, 5812, 587, 13, 80, "Message",ExpressionUUID->"085fd413-fa8b-4e1d-8eb2-99da2e101568"], +Cell[213878, 5827, 590, 13, 80, "Message",ExpressionUUID->"158b11e4-b617-4d80-b19d-3f2567dd7fb6"], +Cell[214471, 5842, 593, 13, 80, "Message",ExpressionUUID->"c287d1ae-4751-4119-aecc-aff659cdc55b"], +Cell[215067, 5857, 494, 11, 26, "Message",ExpressionUUID->"eda3d432-8d7b-4729-bccf-2ce4a1399d09"], +Cell[215564, 5870, 189, 2, 33, "Output",ExpressionUUID->"090fcfe3-a173-4cd8-b109-5ba9dd9d4b14"] +}, Open ]], +Cell[CellGroupData[{ +Cell[215790, 5877, 2073, 58, 234, "Input",ExpressionUUID->"dca13eb7-7f94-3e45-81a8-b62dad3009d2"], +Cell[217866, 5937, 587, 13, 80, "Message",ExpressionUUID->"ea6e14cd-c611-4afe-b956-f4b4242139a1"], +Cell[218456, 5952, 590, 13, 80, "Message",ExpressionUUID->"b331c7fc-b1ec-4c03-bc95-63bb5690c46a"], +Cell[219049, 5967, 593, 13, 80, "Message",ExpressionUUID->"bcd272bf-2a5f-4c44-9188-825647c8041f"], +Cell[219645, 5982, 494, 11, 26, "Message",ExpressionUUID->"b65d5919-d451-4f19-965a-3b4539b73eba"], +Cell[220142, 5995, 189, 2, 33, "Output",ExpressionUUID->"416b1d0b-c26a-41de-b5c3-43d2927f57e3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[220368, 6002, 1957, 52, 102, "Input",ExpressionUUID->"46451e4d-f5ef-b246-91c6-4265c9fafb97"], +Cell[222328, 6056, 20516, 385, 232, "Output",ExpressionUUID->"01b87bcc-0597-4634-8451-d53bf323bde5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[242881, 6446, 2113, 59, 261, "Input",ExpressionUUID->"06bd0169-a5a6-404c-935d-e1a61565f71e"], +Cell[244997, 6507, 533, 12, 59, "Message",ExpressionUUID->"207ee5c1-9255-470b-b822-1b28ab3668cd"], +Cell[245533, 6521, 540, 12, 59, "Message",ExpressionUUID->"cc9e6ffb-418d-4964-946d-3388e0868f84"], +Cell[246076, 6535, 541, 12, 59, "Message",ExpressionUUID->"06e8b6d3-511a-46a2-9db6-c394aee7b87f"], +Cell[246620, 6549, 493, 11, 26, "Message",ExpressionUUID->"c79e89d9-b7cf-46d8-b31d-7c6d89cbe097"], +Cell[247116, 6562, 22573, 416, 232, "Output",ExpressionUUID->"2dcd44a4-f93a-4403-b35c-450400e1abe5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[269726, 6983, 2477, 69, 169, "Input",ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-b938908ab9a4"], +Cell[272206, 7054, 9465, 219, 239, "Output",ExpressionUUID->"f13bf60e-4985-4f3d-81f3-01f672ffae50"] +}, Open ]], +Cell[CellGroupData[{ +Cell[281708, 7278, 228, 4, 29, "Input",ExpressionUUID->"6b0777bb-40fd-b54e-aa03-b6e82cb2e939"], +Cell[281939, 7284, 28909, 545, 232, "Output",ExpressionUUID->"b4dbfdaf-b900-4ee8-b845-934b392b94aa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[310885, 7834, 236, 6, 47, "Input",ExpressionUUID->"1ec1e156-ca0f-9240-857c-ac86e3a0e3fd"], +Cell[311124, 7842, 191, 2, 33, "Output",ExpressionUUID->"5e4b876e-2f79-47de-b0dc-0b50cc53b58b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[311352, 7849, 1833, 52, 190, "Input",ExpressionUUID->"2a22eb8b-38c3-1f4b-a455-da901e49f6f1"], +Cell[313188, 7903, 543, 12, 59, "Message",ExpressionUUID->"3147dea7-a7ae-4d54-bbc9-edae025b3e29"], +Cell[313734, 7917, 547, 12, 59, "Message",ExpressionUUID->"0ae355dc-8d23-407d-ac43-82c89998bd2e"], +Cell[314284, 7931, 551, 12, 59, "Message",ExpressionUUID->"5c4c2477-1e48-4a29-aa02-b87ad855810b"], +Cell[314838, 7945, 491, 11, 26, "Message",ExpressionUUID->"4ee8d471-d13e-4e3f-ac30-e1ed2fa453c5"], +Cell[315332, 7958, 21774, 404, 232, "Output",ExpressionUUID->"545a7d0c-5943-4d8d-8147-dc2459ede95a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[337143, 8367, 1616, 48, 104, "Input",ExpressionUUID->"6e7e1815-2cc6-b24e-a02d-18991b1a751b"], +Cell[338762, 8417, 725, 15, 80, "Message",ExpressionUUID->"232bb946-93a0-4b8b-89d3-78bfd041bde7"], +Cell[339490, 8434, 727, 15, 80, "Message",ExpressionUUID->"20302d2b-6691-4a63-b829-b3018b1f0b97"], +Cell[340220, 8451, 724, 15, 80, "Message",ExpressionUUID->"5549fed3-910d-430d-ae23-217c398f0ea2"], +Cell[340947, 8468, 493, 11, 26, "Message",ExpressionUUID->"e440c172-c55b-476b-b600-66517026c98d"], +Cell[341443, 8481, 192, 3, 33, "Output",ExpressionUUID->"9d992897-2ae3-41c6-b70d-858cf6f75c77"] +}, Open ]], +Cell[CellGroupData[{ +Cell[341672, 8489, 2274, 64, 212, "Input",ExpressionUUID->"0b10f52e-4583-2a4b-993d-96e59dd43e6a"], +Cell[343949, 8555, 588, 13, 80, "Message",ExpressionUUID->"1cede343-11b3-4762-a4c1-3ca2d277dc7d"], +Cell[344540, 8570, 593, 13, 80, "Message",ExpressionUUID->"72bb54a2-1a28-4030-b7e1-a8a2a6c85577"], +Cell[345136, 8585, 593, 13, 80, "Message",ExpressionUUID->"82560c2a-af85-46d6-93cf-54654d8698ce"], +Cell[345732, 8600, 493, 11, 26, "Message",ExpressionUUID->"62c4266a-15c9-420b-88ec-ecde62b22809"], +Cell[346228, 8613, 194, 3, 33, "Output",ExpressionUUID->"1e2fdef1-a8fd-4ee7-ab90-24f6d2589dd9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[346459, 8621, 2230, 63, 212, "Input",ExpressionUUID->"a58948c9-6d3d-e847-a269-d2e0cc5d1484"], +Cell[348692, 8686, 592, 13, 80, "Message",ExpressionUUID->"a97b0002-cc12-4c21-9cf2-0325c5512739"], +Cell[349287, 8701, 593, 13, 80, "Message",ExpressionUUID->"a2e1da92-f95d-4803-80e5-187cefa7ebd8"], +Cell[349883, 8716, 596, 13, 80, "Message",ExpressionUUID->"5505c3ba-770c-4c1b-a2e3-dabe2c5f4e35"], +Cell[350482, 8731, 497, 11, 26, "Message",ExpressionUUID->"d8815217-8d8a-42a1-8bf1-91609246d148"], +Cell[350982, 8744, 192, 3, 33, "Output",ExpressionUUID->"eaafd451-0a2a-43a9-8b53-c77f5b3404be"] +}, Open ]], +Cell[CellGroupData[{ +Cell[351211, 8752, 2233, 63, 212, "Input",ExpressionUUID->"c817b2d1-7deb-5a45-9938-ca10003188eb"], +Cell[353447, 8817, 590, 13, 80, "Message",ExpressionUUID->"160e513b-7771-416a-9fe3-8288497a273b"], +Cell[354040, 8832, 593, 13, 80, "Message",ExpressionUUID->"51a91909-ca77-4da0-8c1e-6b2c601eeeac"], +Cell[354636, 8847, 596, 13, 80, "Message",ExpressionUUID->"9adbc5bd-4868-4884-828c-82c1fac2dcb2"], +Cell[355235, 8862, 497, 11, 26, "Message",ExpressionUUID->"9fd9e336-c9c6-432a-b201-a427adb13849"], +Cell[355735, 8875, 195, 3, 33, "Output",ExpressionUUID->"9c8c492f-7506-424c-8bfa-6b330f940324"] +}, Open ]], +Cell[CellGroupData[{ +Cell[355967, 8883, 236, 6, 46, "Input",ExpressionUUID->"350334c7-7c47-c24c-8adc-781173809e57"], +Cell[356206, 8891, 195, 3, 33, "Output",ExpressionUUID->"13a2770a-986e-472a-943b-4602bd656049"] +}, Open ]], +Cell[356416, 8897, 271, 6, 29, "Input",ExpressionUUID->"597921e5-69d3-564d-a8fa-092e912c15e0"], +Cell[CellGroupData[{ +Cell[356712, 8907, 558, 19, 51, "Input",ExpressionUUID->"d8a22216-586e-3641-8d6a-b19164cbbef2"], +Cell[357273, 8928, 192, 3, 33, "Output",ExpressionUUID->"3e08c2d1-5be1-4cd4-a601-cdbe89e8f9ec"] +}, Open ]], +Cell[CellGroupData[{ +Cell[357502, 8936, 170, 5, 55, "Input",ExpressionUUID->"fdbad1ee-10c7-0843-8319-ad9a3350b059"], +Cell[357675, 8943, 197, 3, 33, "Output",ExpressionUUID->"ee83f23d-d8b7-435b-b943-5e649a935534"] +}, Open ]], +Cell[CellGroupData[{ +Cell[357909, 8951, 181, 5, 43, "Input",ExpressionUUID->"1e4255c3-6733-664e-86c8-98281eb7b3d1"], +Cell[358093, 8958, 192, 3, 33, "Output",ExpressionUUID->"1cba0d8e-4d27-475c-b150-91a6c135d884"] +}, Open ]], +Cell[CellGroupData[{ +Cell[358322, 8966, 6055, 185, 474, "Input",ExpressionUUID->"70c538a1-1fdf-1447-919a-237a7f13ec4c"], +Cell[364380, 9153, 195, 3, 33, "Output",ExpressionUUID->"00c6c309-baef-4790-8aea-9359d8437b0a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[364612, 9161, 368, 9, 41, "Input",ExpressionUUID->"309f305e-3fbc-e84e-99d9-1087d7a09460"], +Cell[364983, 9172, 195, 3, 33, "Output",ExpressionUUID->"980c9473-7c74-4ad0-98c6-3e3816e6b161"] +}, Open ]], +Cell[CellGroupData[{ +Cell[365215, 9180, 6122, 187, 474, "Input",ExpressionUUID->"e745b4b9-6adc-da40-98cf-d19095e176b2"], +Cell[371340, 9369, 196, 3, 33, "Output",ExpressionUUID->"8b9d0c15-3c74-4c81-b6ea-d614600d2c9b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[371573, 9377, 368, 9, 41, "Input",ExpressionUUID->"9d206cd8-8a5b-4046-b84a-e6b4fe810128"], +Cell[371944, 9388, 193, 3, 33, "Output",ExpressionUUID->"8fcefb12-0b82-4406-b5eb-1915ad74b92c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[372174, 9396, 2663, 88, 285, "Input",ExpressionUUID->"2ec72619-a762-004d-a8c1-9773b798bf0e"], +Cell[374840, 9486, 194, 3, 33, "Output",ExpressionUUID->"0a0b4bf4-b019-47b2-97ab-a493cb869e63"] +}, Open ]], +Cell[CellGroupData[{ +Cell[375071, 9494, 2603, 85, 211, "Input",ExpressionUUID->"499f8153-6e36-8043-876b-5343c0af179e"], +Cell[377677, 9581, 194, 3, 33, "Output",ExpressionUUID->"0da1b911-76f8-451e-b0c6-87d33e92ec9b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[377908, 9589, 3712, 118, 327, "Input",ExpressionUUID->"33c0834c-5a76-7640-a18c-d9704d756896"], +Cell[381623, 9709, 196, 3, 33, "Output",ExpressionUUID->"16d1991e-748c-4a3e-8b6c-bc92582d0e65"] +}, Open ]], +Cell[CellGroupData[{ +Cell[381856, 9717, 2074, 59, 234, "Input",ExpressionUUID->"77c444cf-c5b4-4b4b-9808-ff76b28fd32d"], +Cell[383933, 9778, 543, 12, 59, "Message",ExpressionUUID->"ae01c417-7898-4871-aacb-2c0219e9b2b1"], +Cell[384479, 9792, 544, 12, 59, "Message",ExpressionUUID->"58e23e6a-8b37-48e8-b884-299db667cb4a"], +Cell[385026, 9806, 550, 12, 59, "Message",ExpressionUUID->"63a7de97-3d8b-487d-aea7-fb6639520362"], +Cell[385579, 9820, 497, 11, 26, "Message",ExpressionUUID->"e2080512-2ed6-4355-a5d6-2c1e670fa518"], +Cell[386079, 9833, 195, 3, 33, "Output",ExpressionUUID->"c0852c96-67df-4767-9dae-33e0ffd22f0e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[386311, 9841, 2077, 59, 234, "Input",ExpressionUUID->"baacd3f7-96e4-2949-b9f9-9afb90e551d9"], +Cell[388391, 9902, 541, 12, 59, "Message",ExpressionUUID->"05aecc1a-54fa-45a7-8d69-aee06133e71f"], +Cell[388935, 9916, 544, 12, 59, "Message",ExpressionUUID->"df752497-f1dc-4963-b01c-e9ec8b34d361"], +Cell[389482, 9930, 546, 12, 59, "Message",ExpressionUUID->"69d546a3-f1eb-4b97-872a-d5192920d145"], +Cell[390031, 9944, 495, 11, 26, "Message",ExpressionUUID->"c75a625a-477d-4d82-a074-e6dc43c94d9e"], +Cell[390529, 9957, 191, 3, 33, "Output",ExpressionUUID->"72710185-910a-4b3f-9e18-09b2c849a6de"] +}, Open ]], +Cell[CellGroupData[{ +Cell[390757, 9965, 2053, 55, 151, "Input",ExpressionUUID->"ea08a5a9-d446-9147-ba82-e3924f732df2"], +Cell[392813, 10022, 18859, 359, 225, "Output",ExpressionUUID->"77553b83-7f0c-43bd-930b-71a9ad740b62"] +}, Open ]], +Cell[CellGroupData[{ +Cell[411709, 10386, 2143, 60, 261, "Input",ExpressionUUID->"42ddbf41-0bd8-b749-bead-56c89a9b7467"], +Cell[413855, 10448, 517, 12, 59, "Message",ExpressionUUID->"4e0fd8e7-2422-4137-b499-612abdfd909b"], +Cell[414375, 10462, 523, 12, 59, "Message",ExpressionUUID->"f9056cad-aa99-40d9-9628-9d52328a16ab"], +Cell[414901, 10476, 489, 11, 26, "Message",ExpressionUUID->"c200c452-f221-4573-b0d1-e2836c8c05b5"], +Cell[415393, 10489, 493, 11, 26, "Message",ExpressionUUID->"521e47a3-2d70-4841-b4d8-45d5c79a13f2"], +Cell[415889, 10502, 22922, 423, 232, "Output",ExpressionUUID->"f270b8ae-ec4d-47c5-b6cf-607ca18dd088"] +}, Open ]], +Cell[CellGroupData[{ +Cell[438848, 10930, 232, 5, 29, "Input",ExpressionUUID->"6883477e-2a54-0a45-979a-ae60c73e9e82"], +Cell[439083, 10937, 29257, 552, 232, "Output",ExpressionUUID->"df7a43d7-3f75-4183-bb69-a58d649acf03"] +}, Open ]], +Cell[CellGroupData[{ +Cell[468377, 11494, 1616, 48, 104, "Input",ExpressionUUID->"93c0bac4-7a17-8748-9b2f-588171dbd56e"], +Cell[469996, 11544, 727, 15, 80, "Message",ExpressionUUID->"23361d02-c303-414c-8bbd-70b8fc997692"], +Cell[470726, 11561, 726, 15, 80, "Message",ExpressionUUID->"057c736d-f868-4551-b56e-5e6318011738"], +Cell[471455, 11578, 725, 15, 80, "Message",ExpressionUUID->"0f076661-9784-4b3f-8c2e-8bb63baed908"], +Cell[472183, 11595, 492, 11, 26, "Message",ExpressionUUID->"033fe409-8cde-4e7f-807a-2223bc3070f8"], +Cell[472678, 11608, 193, 3, 33, "Output",ExpressionUUID->"5e48cae3-8111-4c84-9b64-e057ea57760f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[472908, 11616, 2274, 64, 212, "Input",ExpressionUUID->"fcc64ab7-eee0-e44f-9b2d-2a98ba29b602"], +Cell[475185, 11682, 541, 12, 59, "Message",ExpressionUUID->"0482b4e1-ed0c-41df-8be9-d285a0426000"], +Cell[475729, 11696, 544, 12, 59, "Message",ExpressionUUID->"ad296f3f-fbd6-4f59-8b09-1797d811de1b"], +Cell[476276, 11710, 546, 12, 59, "Message",ExpressionUUID->"935444d6-6b46-4ae0-bce2-7cdda525136f"], +Cell[476825, 11724, 493, 11, 26, "Message",ExpressionUUID->"83c62e17-896d-49a9-a815-6bd038229d0e"], +Cell[477321, 11737, 196, 3, 33, "Output",ExpressionUUID->"dabda49a-c786-46de-ab0d-77a4631461bf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[477554, 11745, 2231, 63, 212, "Input",ExpressionUUID->"edfdd675-c60b-304e-9e16-68452b971319"], +Cell[479788, 11810, 543, 12, 59, "Message",ExpressionUUID->"85dde972-ffc4-44f8-aee3-c94d9b8002e6"], +Cell[480334, 11824, 544, 12, 59, "Message",ExpressionUUID->"c177734c-4150-4752-8624-d76e8273906c"], +Cell[480881, 11838, 548, 12, 59, "Message",ExpressionUUID->"ce8acdb3-8ad2-45ae-85e3-d3f5cffdae2e"], +Cell[481432, 11852, 495, 11, 26, "Message",ExpressionUUID->"baf51b35-e81d-4b53-9e79-2b766d74e591"], +Cell[481930, 11865, 192, 3, 33, "Output",ExpressionUUID->"3571578e-cce0-4dad-9b67-8a7919b5bad7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[482159, 11873, 2231, 63, 212, "Input",ExpressionUUID->"d0469d46-2e74-494a-be85-b41cb2f3fa92"], +Cell[484393, 11938, 540, 12, 59, "Message",ExpressionUUID->"980ed828-a2ff-4a83-84e1-3c4779e08e4d"], +Cell[484936, 11952, 543, 12, 59, "Message",ExpressionUUID->"dc0e6e38-5d06-40fa-9c88-7034f0cfe74b"], +Cell[485482, 11966, 545, 12, 59, "Message",ExpressionUUID->"344fdc38-861e-49fc-a779-a1dd321d2f2f"], +Cell[486030, 11980, 491, 11, 26, "Message",ExpressionUUID->"b69d56c9-2b6b-4612-8b7a-2dcef0fc447f"], +Cell[486524, 11993, 195, 3, 33, "Output",ExpressionUUID->"fe9b6f00-d869-45c9-b25f-dfca23b6ba33"] +}, Open ]], +Cell[CellGroupData[{ +Cell[486756, 12001, 235, 6, 46, "Input",ExpressionUUID->"58b5e243-0972-1946-bd17-aca0f3e8a35b"], +Cell[486994, 12009, 195, 3, 33, "Output",ExpressionUUID->"09bb02ff-e417-4994-8fd3-04a40510818b"] +}, Open ]], +Cell[487204, 12015, 270, 6, 29, "Input",ExpressionUUID->"8ae59c8e-a0a1-f646-a3f5-a3711ba632a4"], +Cell[CellGroupData[{ +Cell[487499, 12025, 558, 19, 51, "Input",ExpressionUUID->"403fd1b3-6929-134c-834a-14f2acd2fccb"], +Cell[488060, 12046, 193, 3, 33, "Output",ExpressionUUID->"c466acef-ba1d-4d6b-b433-06c00f6d51c9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[488290, 12054, 170, 5, 55, "Input",ExpressionUUID->"434ec2be-ef30-1d48-bf44-e1e8b179c2e0"], +Cell[488463, 12061, 192, 3, 33, "Output",ExpressionUUID->"3c363f13-9baa-4801-9285-3df619171c67"] +}, Open ]], +Cell[CellGroupData[{ +Cell[488692, 12069, 181, 5, 43, "Input",ExpressionUUID->"defdc4af-a758-2c46-b8da-ac4403e5ffd4"], +Cell[488876, 12076, 195, 3, 33, "Output",ExpressionUUID->"d6f0c885-4546-4dfa-b531-a89bb1efcf9f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[489108, 12084, 6055, 185, 474, "Input",ExpressionUUID->"7643457c-ba0b-b641-aa35-59c61447beaf"], +Cell[495166, 12271, 195, 3, 33, "Output",ExpressionUUID->"85f4a9c1-cd20-4b69-bf4f-b988e930a70e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[495398, 12279, 368, 9, 41, "Input",ExpressionUUID->"88a32c79-3b56-5047-96b0-6fadcea3787e"], +Cell[495769, 12290, 195, 3, 33, "Output",ExpressionUUID->"50e72d10-5a00-46ee-aff3-9a56f7c641ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[496001, 12298, 6122, 187, 474, "Input",ExpressionUUID->"12b95c40-ca91-7148-a053-e8c97b54e7b6"], +Cell[502126, 12487, 196, 3, 33, "Output",ExpressionUUID->"79aca6f3-c5bb-42c5-85ff-5b389c448f4d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[502359, 12495, 368, 9, 41, "Input",ExpressionUUID->"4e259183-4a48-7f41-8fc6-1aa60d807e18"], +Cell[502730, 12506, 194, 3, 33, "Output",ExpressionUUID->"1af264f7-b8f0-4532-8958-f0f9acd96b48"] +}, Open ]], +Cell[CellGroupData[{ +Cell[502961, 12514, 2663, 88, 285, "Input",ExpressionUUID->"73b06553-f9e2-3447-85e9-8a163aa2ec21"], +Cell[505627, 12604, 198, 3, 33, "Output",ExpressionUUID->"16fb2023-2d1b-4f8b-afe7-8e9481112d89"] +}, Open ]], +Cell[CellGroupData[{ +Cell[505862, 12612, 2603, 85, 211, "Input",ExpressionUUID->"64658d71-e48f-7c4d-bfd6-30344127c7bf"], +Cell[508468, 12699, 192, 3, 33, "Output",ExpressionUUID->"092c09b2-1ed8-45ea-9d13-f798ed432cee"] +}, Open ]], +Cell[CellGroupData[{ +Cell[508697, 12707, 3712, 118, 327, "Input",ExpressionUUID->"02b10812-8656-6e43-99ab-3ff059fd6dae"], +Cell[512412, 12827, 196, 3, 33, "Output",ExpressionUUID->"c9f66789-1e41-40f8-abdb-f6caea2c74f4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[512645, 12835, 2077, 59, 234, "Input",ExpressionUUID->"ba508068-6b78-254c-87d6-cf1adc0753dd"], +Cell[514725, 12896, 587, 13, 63, "Message",ExpressionUUID->"8ce8f1a8-c74a-4605-a45c-7e090ddd1fdb"], +Cell[515315, 12911, 590, 13, 80, "Message",ExpressionUUID->"1506cdad-5229-4ecb-a9d3-fddf652938e4"], +Cell[515908, 12926, 593, 13, 80, "Message",ExpressionUUID->"494d1628-5d41-4dd4-8c13-09919ecf9e54"], +Cell[516504, 12941, 495, 11, 26, "Message",ExpressionUUID->"4c6c4308-6227-470b-99e6-dd92e3d7b918"], +Cell[517002, 12954, 197, 3, 33, "Output",ExpressionUUID->"fbaeb813-7b95-47f9-ac95-313c67c356b3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[517236, 12962, 2077, 59, 234, "Input",ExpressionUUID->"842e33e4-ae06-f746-ab8b-97489285cc9c"], +Cell[519316, 13023, 589, 13, 63, "Message",ExpressionUUID->"ee078afe-d5c1-4a21-aa90-85414905d920"], +Cell[519908, 13038, 592, 13, 80, "Message",ExpressionUUID->"1ffd6574-4a5a-4546-b4c5-815a6673116f"], +Cell[520503, 13053, 593, 13, 80, "Message",ExpressionUUID->"6ae42e72-de08-4c9d-bbbb-1d3206ca0a04"], +Cell[521099, 13068, 495, 11, 26, "Message",ExpressionUUID->"f0505a56-5d54-4684-b3d2-d0905e7c8812"], +Cell[521597, 13081, 192, 3, 33, "Output",ExpressionUUID->"7bed2a85-f543-43f3-b174-09f55848a4a8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[521826, 13089, 2051, 55, 151, "Input",ExpressionUUID->"b2e314f8-a6f0-6942-a94c-5ac1cacd7190"], +Cell[523880, 13146, 20416, 383, 235, "Output",ExpressionUUID->"909c2def-77b8-4693-85a6-8f163cafcebc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[544333, 13534, 2168, 61, 261, "Input",ExpressionUUID->"497f9779-a3e4-c84e-a207-0aac70483e3c"], +Cell[546504, 13597, 534, 12, 59, "Message",ExpressionUUID->"7a3341c1-5c89-42da-aa3f-4cca71a7a809"], +Cell[547041, 13611, 535, 12, 59, "Message",ExpressionUUID->"a202c3c5-9849-405a-b0b9-ee3d464c0644"], +Cell[547579, 13625, 541, 12, 59, "Message",ExpressionUUID->"df76cdc4-eec6-4eec-a571-15bbb0beab42"], +Cell[548123, 13639, 495, 11, 26, "Message",ExpressionUUID->"2c8c5ad4-dfe3-4610-9c26-418abf207410"], +Cell[548621, 13652, 22862, 423, 232, "Output",ExpressionUUID->"072f8b5c-2638-4d9d-bd25-325135ee8537"] +}, Open ]], +Cell[CellGroupData[{ +Cell[571520, 14080, 232, 5, 29, "Input",ExpressionUUID->"54d9c986-d109-3d4c-9ee8-76427bb63659"], +Cell[571755, 14087, 29195, 552, 232, "Output",ExpressionUUID->"2506575a-99ef-47da-9760-46a62a9c9a47"] +}, Open ]], +Cell[CellGroupData[{ +Cell[600987, 14644, 1616, 48, 104, "Input",ExpressionUUID->"5dd0afca-0a4f-544d-814d-33e1c649116f"], +Cell[602606, 14694, 703, 15, 80, "Message",ExpressionUUID->"aea4c7b7-359d-4b8e-bbe3-47e1ddd5f168"], +Cell[603312, 14711, 705, 15, 80, "Message",ExpressionUUID->"5050c13d-2bb0-4bae-b2f5-debe4764875b"], +Cell[604020, 14728, 702, 15, 80, "Message",ExpressionUUID->"04a938d4-a00c-453a-a443-9eecfc67679b"], +Cell[604725, 14745, 470, 11, 26, "Message",ExpressionUUID->"a55a7192-8421-4a35-baca-0f6b288bc9a4"], +Cell[605198, 14758, 170, 3, 33, "Output",ExpressionUUID->"ab87611c-84e0-4c97-aa0b-1f809970955c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[605405, 14766, 2272, 64, 212, "Input",ExpressionUUID->"a3e3d205-e3b4-874a-a36c-53cfa72184b4"], +Cell[607680, 14832, 563, 13, 63, "Message",ExpressionUUID->"70493685-1843-4c04-9d56-b405b95622f6"], +Cell[608246, 14847, 568, 13, 80, "Message",ExpressionUUID->"ffc170da-c45f-4f29-8d39-46d93e94d01d"], +Cell[608817, 14862, 569, 13, 80, "Message",ExpressionUUID->"729db019-718f-4ecd-9c97-c35c8dc45ce9"], +Cell[609389, 14877, 471, 11, 26, "Message",ExpressionUUID->"914bdc76-6368-4ccf-95b5-69d51ee9575c"], +Cell[609863, 14890, 171, 3, 33, "Output",ExpressionUUID->"df46adb1-28ce-4909-b875-28e8462f0ecc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[610071, 14898, 2233, 63, 212, "Input",ExpressionUUID->"6977f025-454e-0e4a-b118-07bad9ba3e82"], +Cell[612307, 14963, 565, 13, 63, "Message",ExpressionUUID->"407df46c-a628-4588-a9cb-94494fe80dff"], +Cell[612875, 14978, 566, 13, 80, "Message",ExpressionUUID->"aac58c8d-d0b6-4ab6-81e4-1b2d4e49f029"], +Cell[613444, 14993, 571, 13, 80, "Message",ExpressionUUID->"308bbd12-9fec-4aaf-bc80-e1cf6ade9d71"], +Cell[614018, 15008, 471, 11, 26, "Message",ExpressionUUID->"18714e40-f2d7-418b-82e2-3f3215025dc5"], +Cell[614492, 15021, 171, 3, 33, "Output",ExpressionUUID->"98872430-f755-4e51-a21e-728abe50910c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[614700, 15029, 2235, 63, 212, "Input",ExpressionUUID->"df8ecb01-788a-604d-b773-f29bb610eb30"], +Cell[616938, 15094, 565, 13, 63, "Message",ExpressionUUID->"bd13e06f-2fb1-4a21-88f6-51c44c2c64b4"], +Cell[617506, 15109, 568, 13, 80, "Message",ExpressionUUID->"3be3443f-f456-40d1-ab80-f7734dcb0dbe"], +Cell[618077, 15124, 568, 13, 80, "Message",ExpressionUUID->"ee446e62-48a0-42f3-bfea-e100b54e0ece"], +Cell[618648, 15139, 471, 11, 26, "Message",ExpressionUUID->"abfcd52f-453c-4f3f-95a9-58dac11e2db1"], +Cell[619122, 15152, 170, 3, 33, "Output",ExpressionUUID->"4d323eb0-0ba9-4646-8b7f-cf0e1cef1908"] +}, Open ]], +Cell[CellGroupData[{ +Cell[619329, 15160, 236, 6, 46, "Input",ExpressionUUID->"54a5e329-20bd-e742-afe8-d2cfa007cfcf"], +Cell[619568, 15168, 173, 3, 33, "Output",ExpressionUUID->"7877a351-5e92-42e8-97bb-d3dbefe82535"] +}, Open ]], +Cell[619756, 15174, 208, 4, 29, "Input",ExpressionUUID->"87a4c38c-6764-4f36-9f12-55b95ac11aad"] } ] *) -(* End of internal cache information *) - diff --git a/Pu240_798-811_TitovAA/162-78_h_Pu240_16-17/h_162-78_Pu240_16-17_gid_Qw1.nb b/Pu240_798-811_TitovAA/162-78_h_Pu240_16-17/h_162-78_Pu240_16-17_gid_Qw1.nb index 78f75b1..f1b413c 100644 --- a/Pu240_798-811_TitovAA/162-78_h_Pu240_16-17/h_162-78_Pu240_16-17_gid_Qw1.nb +++ b/Pu240_798-811_TitovAA/162-78_h_Pu240_16-17/h_162-78_Pu240_16-17_gid_Qw1.nb @@ -3,42 +3,4836 @@ (*** 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[ 683327, 16250] +NotebookOptionsPosition[ 642711, 15600] +NotebookOutlinePosition[ 643175, 15619] +CellTagsIndexPosition[ 643132, 15616] 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", "=", "1.9"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.993815944576231*^9, 3.9938159912638187`*^9}}, + CellLabel->"In[23]:=",ExpressionUUID->"dfdb021d-cc59-4fca-a142-943a8806c90f"], + +Cell[BoxData["1.9`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, 3.993815823692334*^9, 3.993815892498139*^9, { + 3.993815951583488*^9, 3.993815995572467*^9}, {3.994012734609342*^9, + 3.994012752893778*^9}, 3.994041233983204*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"731c98bb-89ee-4d6e-9193-14ef4eb88cf5"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.9940127288140783`*^9, 3.994012729590282*^9}}, + CellLabel->"In[24]:=",ExpressionUUID->"f51dfb6b-e792-4557-8fd4-dec60bb361a3"], + +Cell[BoxData["240"], "Output", CellChangeTimes->{ - 3.9918492290557346`*^9},ExpressionUUID->"1dc76a14-b094-5f49-81bb-\ -fc37192f9bb8"], + 3.9913196497381973`*^9, 3.993815823952688*^9, 3.993815892560748*^9, { + 3.993815951668881*^9, 3.993815995613329*^9}, {3.9940127346784067`*^9, + 3.9940127529711943`*^9}, 3.9940412340580893`*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"beb91ac7-ca4a-45a3-85f7-8f0edb6865aa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "162"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.9938155158752823`*^9, 3.9938155169971247`*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"2d1cbc4a-942f-4cfb-9441-cb0d0b244fe5"], + +Cell[BoxData["162"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.993815823968458*^9, 3.9938158925714483`*^9, { + 3.9938159516818027`*^9, 3.9938159956283493`*^9}, {3.9940127346926413`*^9, + 3.994012752988037*^9}, 3.9940412340702143`*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"a6797f1a-6b49-4356-a422-baad5afc402c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[26]:=",ExpressionUUID->"9a682a1b-317c-4c33-9c13-e21e240769be"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.9938158239856167`*^9, 3.99381589258189*^9, { + 3.99381595169417*^9, 3.993815995642021*^9}, {3.994012734706458*^9, + 3.994012753004796*^9}, 3.9940412340817413`*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"c19d874a-d7b1-4811-8b02-82626aa6b834"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[27]:=",ExpressionUUID->"5abb2ec3-044a-435b-b173-da28927d0597"], + +Cell[BoxData["0.5447500000000001`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.993815824003376*^9, 3.993815892586231*^9, { + 3.99381595170667*^9, 3.993815995646203*^9}, {3.9940127347201777`*^9, + 3.994012753022193*^9}, 3.994041234093124*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"1e2a836a-101e-4959-9e99-7ecfe6b7ea90"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[28]:=",ExpressionUUID->"fa3c7e90-a88d-498d-ab66-cb9e7a677dca"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.993815824023213*^9, 3.993815892602899*^9, { + 3.9938159517115383`*^9, 3.9938159956645737`*^9}, {3.994012734734274*^9, + 3.994012753038806*^9}, 3.994041234105015*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"797a6a86-f505-4405-8e7d-205ff087a44c"] +}, 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[29]:=",ExpressionUUID->"80a6d476-6220-4b4e-843e-f0626d296521"], + +Cell[BoxData["6.323579663055845`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.993815824039893*^9, 3.993815892613652*^9, { + 3.993815951728698*^9, 3.993815995677742*^9}, {3.994012734748405*^9, + 3.994012753044726*^9}, 3.9940412341166*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"769b1408-1d8c-4152-b22f-5bc11b0e4ecf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[30]:=",ExpressionUUID->"4b086c0b-5e91-435a-8b5e-ee83919af82e"], + +Cell[BoxData["4.956284070769583`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.9938158240572863`*^9, 3.993815892624365*^9, { + 3.9938159517417*^9, 3.993815995691177*^9}, {3.994012734763052*^9, + 3.994012753070916*^9}, 3.994041234128104*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"3b8f86a0-7775-4715-af14-7d6909fcf30a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.95921"}]], "Input", + CellChangeTimes->{ + 3.991799283179735*^9, {3.993815616610156*^9, 3.993815618917514*^9}, { + 3.9938156766732063`*^9, 3.993815681630651*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"a36d3d1c-befc-4676-a035-f0e4050759a9"], + +Cell[BoxData["0.95921`"], "Output", + CellChangeTimes->{ + 3.9938158240746737`*^9, 3.9938158926348877`*^9, {3.993815951754884*^9, + 3.993815995704525*^9}, {3.994012734778141*^9, 3.994012753087864*^9}, + 3.9940412341397257`*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"e87bdc1c-6735-40bd-9f04-8190b7f42c5d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.40907"}]], "Input", + CellChangeTimes->{ + 3.991799280663351*^9, {3.993815686480484*^9, 3.993815701548067*^9}}, + CellLabel->"In[32]:=",ExpressionUUID->"b3686bfe-431c-4f65-8556-f2bbd8f5b5e2"], + +Cell[BoxData["0.40907`"], "Output", + CellChangeTimes->{ + 3.993815824091074*^9, 3.993815892645401*^9, {3.993815951767627*^9, + 3.993815995717485*^9}, {3.994012734791346*^9, 3.99401275310209*^9}, + 3.994041234151627*^9}, + CellLabel->"Out[32]=",ExpressionUUID->"419cd450-9122-4c8e-8a44-9cb3d6aaa596"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[33]:=",ExpressionUUID->"76b3f141-9a06-41ce-9816-060efbd563a4"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.993815824106497*^9, 3.9938158926558847`*^9, { + 3.993815951780663*^9, 3.993815995730535*^9}, {3.9940127348044577`*^9, + 3.994012753117031*^9}, 3.994041234161607*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"2ee230e1-61d4-4034-bc16-eb6744cf31f8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[34]:=",ExpressionUUID->"e46be7b2-171b-414d-9141-0d9ae0456dc1"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.993815824123843*^9, 3.9938158926663837`*^9, { + 3.993815951793076*^9, 3.993815995743602*^9}, {3.994012734818459*^9, + 3.994012753131789*^9}, 3.994041234171494*^9}, + CellLabel->"Out[34]=",ExpressionUUID->"4e531f81-892f-47d9-a33f-12c5e601e580"] +}, 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[35]:=",ExpressionUUID->"f04c73b7-84ea-4276-8127-b648abf9c1d6"], + +Cell[BoxData["2.4538606431456684`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.993815824141597*^9, 3.993815892677889*^9, { + 3.9938159518063183`*^9, 3.9938159957558603`*^9}, {3.994012734835313*^9, + 3.994012753146474*^9}, 3.9940412341811666`*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"44cc0f54-4bec-43ea-9005-53646b42b1f6"] +}, 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[36]:=",ExpressionUUID->"4ac12af1-126e-4302-9a28-02360cdee8c7"], + +Cell[BoxData["1.4512846433038022`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.993815824156972*^9, 3.993815892689371*^9, { + 3.9938159518190203`*^9, 3.993815995768323*^9}, {3.99401273484025*^9, + 3.994012753161911*^9}, 3.994041234190709*^9}, + CellLabel->"Out[36]=",ExpressionUUID->"c31bc9af-f587-4fc9-af6c-49ee78f414b5"] +}, 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[37]:=",ExpressionUUID->"eae9f4e1-e82a-4b84-8dc1-12108b4b247e"], + +Cell[BoxData["0.3744607025351484`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.9938158241736803`*^9, 3.993815892702938*^9, { + 3.993815951831235*^9, 3.993815995780489*^9}, {3.994012734857376*^9, + 3.994012753177943*^9}, 3.994041234200822*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"3666ac1d-6db0-4b61-9c1a-f7b4e178eeb1"] +}, 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[38]:=",ExpressionUUID->"d09c082f-82f7-4941-bad2-f2fb5eddbe2c"], + +Cell[BoxData[ + RowBox[{"-", "0.08358618531832765`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.993815824190381*^9, 3.993815892714963*^9, { + 3.99381595184389*^9, 3.993815995792754*^9}, {3.994012734871372*^9, + 3.9940127531931753`*^9}, 3.9940412342107677`*^9}, + CellLabel->"Out[38]=",ExpressionUUID->"51195261-62e9-40d7-a206-aeecf4efc944"] +}, 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[39]:=",ExpressionUUID->"bc11687e-2aaf-4c18-abef-09436f6c3062"], + +Cell[BoxData[ + RowBox[{"-", "0.5957523139282981`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.993815824207239*^9, 3.993815892726112*^9, { + 3.993815951856346*^9, 3.9938159958051043`*^9}, {3.994012734886475*^9, + 3.994012753208178*^9}, 3.994041234218965*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"375d825d-72b9-4e20-a3fb-33fb0c46dd1c"] +}, 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[40]:=",ExpressionUUID->"ef828e5a-c71b-4819-973a-3e0907ae83d5"], + +Cell[BoxData["0.713744744985854`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.993815824222714*^9, 3.993815892737419*^9, { + 3.9938159518694*^9, 3.993815995817747*^9}, {3.99401273490063*^9, + 3.994012753223435*^9}, 3.994041234226912*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"ba9c8fcd-6e46-40f0-bbc0-34f7bb10af76"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[41]:=",ExpressionUUID->"d927ddaf-7ee6-43f4-9a72-e8e260fd0da2"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.993815824238377*^9, 3.993815892748749*^9, { + 3.993815951883985*^9, 3.993815995830997*^9}, {3.994012734916293*^9, + 3.994012753238081*^9}, 3.994041234236046*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"a5d7d661-8391-4ba0-9e64-385543eac542"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel->"In[42]:=",ExpressionUUID->"894a7ce9-0c77-413b-b612-57da0ae1dc43"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.993815824252192*^9, 3.993815892759966*^9, { + 3.993815951897129*^9, 3.9938159958447227`*^9}, {3.994012734930868*^9, + 3.9940127532525377`*^9}, 3.994041234243824*^9}, + CellLabel->"Out[42]=",ExpressionUUID->"2bc5a20d-0a73-4f01-a0ee-b98d7b79ccd2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[43]:=",ExpressionUUID->"ca04aa34-18a8-4564-a0a7-560deca7afd8"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.993815824265974*^9, 3.993815892777206*^9, { + 3.993815951909596*^9, 3.993815995857946*^9}, {3.994012734946954*^9, + 3.994012753268147*^9}, 3.99404123425171*^9}, + CellLabel->"Out[43]=",ExpressionUUID->"fca08f09-8bcd-4eda-82c9-59369693151c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[44]:=",ExpressionUUID->"e8b6de95-08d7-4c63-ac73-24e1145e1ce0"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.993815824281651*^9, 3.993815892789987*^9, { + 3.993815951922598*^9, 3.993815995871676*^9}, {3.994012734961584*^9, + 3.994012753285798*^9}, 3.994041234259594*^9}, + CellLabel->"Out[44]=",ExpressionUUID->"73beb71b-d45e-4c1a-aa0c-0c7055afc674"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[45]:=",ExpressionUUID->"a23506cd-a267-4799-b89f-685a72e72bc1"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.993815824297344*^9, 3.9938158928016577`*^9, { + 3.993815951935726*^9, 3.993815995884973*^9}, {3.9940127349760647`*^9, + 3.994012753303388*^9}, 3.994041234267432*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"1880ab12-2522-47e8-9d97-50507d950310"] +}, 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.993815710443075*^9, 3.9938157105928802`*^9}}, + CellLabel->"In[46]:=",ExpressionUUID->"5b1ffdf8-018c-4be0-9809-c1fde1074727"], + +Cell[BoxData["66"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, 3.993815824312414*^9, 3.993815892812936*^9, { + 3.9938159519479322`*^9, 3.9938159958976*^9}, {3.994012734991516*^9, + 3.994012753318815*^9}, 3.9940412342753277`*^9}, + CellLabel->"Out[46]=",ExpressionUUID->"c7eaa8a6-28bb-40f7-a4d2-80ca54fe1576"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, {3.993815715623077*^9, 3.993815715723624*^9}}, + CellLabel->"In[47]:=",ExpressionUUID->"1e3a809a-6ffb-4c69-8eec-562bfc6412f4"], + +Cell[BoxData["28"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.9938158243255568`*^9, 3.993815892824174*^9, { + 3.993815951962007*^9, 3.993815995910904*^9}, {3.994012735006587*^9, + 3.994012753334146*^9}, 3.9940412342831573`*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"f116e865-b356-456b-8e89-ba6bc0af443d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[48]:=",ExpressionUUID->"9243c6bb-9f16-4bac-a4c7-f77613ddbc80"], + +Cell[BoxData["78"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.993815824339529*^9, 3.993815892835505*^9, { + 3.9938159519756107`*^9, 3.9938159959234123`*^9}, {3.9940127350225773`*^9, + 3.99401275334903*^9}, 3.994041234290924*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"581458a2-5f58-4cc9-9597-d717ed96d00c"] +}, 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[49]:=",ExpressionUUID->"c99de51f-6130-408c-ab03-f13494f372df"], + +Cell[BoxData["0.11193732193732193`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.993815824354212*^9, 3.993815892846965*^9, { + 3.99381595198964*^9, 3.993815995937854*^9}, {3.994012735036902*^9, + 3.994012753363584*^9}, 3.994041234299716*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"68573e9b-8731-4bce-b1e6-e12e22a2c3e4"] +}, 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[50]:=",ExpressionUUID->"2fe640fa-3ca3-451f-aa20-d9a4449db230"], + +Cell[BoxData[ + RowBox[{"-", "2.5617948717948718`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.9938158243693666`*^9, 3.9938158928581047`*^9, { + 3.993815952002063*^9, 3.993815995952959*^9}, {3.994012735051235*^9, + 3.994012753380294*^9}, 3.994041234307728*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"58cfca5a-3433-459f-a4d4-224bcd0461b4"] +}, 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[51]:=",ExpressionUUID->"2770ad4c-f96b-4980-be09-58579c5bebdd"], + +Cell[BoxData["17.755860569879673`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.9938158243828497`*^9, 3.9938158928694487`*^9, { + 3.993815952015215*^9, 3.993815995959347*^9}, {3.994012735067181*^9, + 3.994012753395359*^9}, 3.994041234317152*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"7f4659e0-8408-4b32-8ec3-b63cf966bae0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[52]:=",ExpressionUUID->"8ff6691c-e1de-4135-9f92-ef7df768e998"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.993815824396482*^9, 3.993815892880583*^9, { + 3.993815952028016*^9, 3.993815995974369*^9}, {3.9940127350830297`*^9, + 3.994012753409977*^9}, 3.994041234328155*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"95aff209-54bf-45df-a196-3db19da2386f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "1.925"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { + 3.993815850527903*^9, 3.9938158535087967`*^9}}, + CellLabel->"In[53]:=",ExpressionUUID->"990d0906-10fd-4684-93ea-c4f53642312a"], + +Cell[BoxData["1.925`"], "Output", + CellChangeTimes->{ + 3.993815892892448*^9, {3.993815952041005*^9, 3.9938159959864597`*^9}, { + 3.994012735098775*^9, 3.994012753424415*^9}, 3.9940412343383007`*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"eab06a73-c2aa-4b58-94bb-2ef178a60677"] +}, 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[54]:=",ExpressionUUID->"2e977285-ef1a-4df8-a33e-a83b61e88c65"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.805"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.993815855721238*^9, 3.993815857092358*^9}}, + CellLabel->"In[55]:=",ExpressionUUID->"a25f952e-9d76-4c91-ad9a-ba8d8bd87b94"], + +Cell[BoxData["0.805`"], "Output", + CellChangeTimes->{ + 3.993815892911134*^9, {3.993815952057427*^9, 3.99381599600596*^9}, { + 3.994012735117734*^9, 3.99401275345194*^9}, 3.9940412343566313`*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"0a0f6e35-74ad-4587-a327-9b7e51569cb8"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel->"In[56]:=",ExpressionUUID->"f4550661-45c3-40e1-9237-24862efc0886"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "2.5"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.993815859994154*^9, 3.993815861340933*^9}}, + CellLabel->"In[57]:=",ExpressionUUID->"ebf08ddd-d445-443e-9cfc-388586f3105f"], + +Cell[BoxData["2.5`"], "Output", + CellChangeTimes->{ + 3.9938158929287786`*^9, {3.99381595207283*^9, 3.993815996022519*^9}, { + 3.9940127351358128`*^9, 3.994012753478545*^9}, 3.994041234375248*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"838671a6-5a01-48c8-b904-c5f14cd0cf17"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel->"In[58]:=",ExpressionUUID->"3b1fb240-6ee3-40a5-a0bd-4e0e6934b70e"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.165"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, {3.9938158643599787`*^9, 3.993815865676284*^9}}, + CellLabel->"In[59]:=",ExpressionUUID->"cc40fb31-4044-48f5-976e-659b858794c4"], + +Cell[BoxData["1.165`"], "Output", + CellChangeTimes->{ + 3.993815892946157*^9, {3.9938159520880413`*^9, 3.9938159960372267`*^9}, { + 3.99401273515212*^9, 3.994012753505625*^9}, 3.9940412343951073`*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"803d0e8d-3040-4afa-949e-20c3ac8cbe60"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel->"In[60]:=",ExpressionUUID->"81f7cdcc-86c5-44dc-b630-7e7d17bbf98a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.213"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, {3.993815868143258*^9, + 3.993815869195242*^9}}, + CellLabel->"In[61]:=",ExpressionUUID->"cd6590dd-02e7-4c92-957e-c32b796bcf0f"], + +Cell[BoxData["1.213`"], "Output", + CellChangeTimes->{ + 3.993815892962039*^9, {3.993815952103568*^9, 3.993815996052133*^9}, { + 3.994012735168161*^9, 3.994012753532589*^9}, 3.994041234414317*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"83dfd0f0-dbe5-485b-a736-dff33e99e328"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel->"In[62]:=",ExpressionUUID->"dd7a7e24-d9de-4c1e-8b1f-1001bfef8977"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.57"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.993815872614973*^9, + 3.993815875095196*^9}}, + CellLabel->"In[63]:=",ExpressionUUID->"2cfd6b5a-f9ba-4242-9fe5-b9f8fb4bb1c5"], + +Cell[BoxData["0.57`"], "Output", + CellChangeTimes->{ + 3.993815892978149*^9, {3.9938159521195602`*^9, 3.9938159960676327`*^9}, { + 3.994012735184478*^9, 3.994012753559978*^9}, 3.994041234433321*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"5a338c0e-29af-4fbf-932c-630ab6144a20"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel->"In[64]:=",ExpressionUUID->"d51cf3a6-651d-452b-8093-dcffaa5f5b7f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "1.35"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.993815877839096*^9, + 3.993815879047324*^9}}, + CellLabel->"In[65]:=",ExpressionUUID->"8d5bb667-0bdb-423c-922b-b2b93f7326a8"], + +Cell[BoxData["1.35`"], "Output", + CellChangeTimes->{ + 3.993815892994123*^9, {3.99381595213482*^9, 3.993815996092525*^9}, { + 3.994012735201104*^9, 3.994012753586568*^9}, 3.994041234453493*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"fd0abebc-5b2e-420b-b3d1-1f330de958c2"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel->"In[66]:=",ExpressionUUID->"9b52e4bc-f1af-4e9b-8e2c-c9021c9593a7"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "0.695"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, {3.993815882043911*^9, 3.993815883712513*^9}}, + CellLabel->"In[67]:=",ExpressionUUID->"beb587b7-f8ee-4906-859e-24c017e638fb"], + +Cell[BoxData["0.695`"], "Output", + CellChangeTimes->{ + 3.993815893009348*^9, {3.9938159521502934`*^9, 3.9938159961073437`*^9}, { + 3.994012735217507*^9, 3.994012753614246*^9}, 3.994041234473178*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"74d25acd-c3b9-4524-a870-07afc1497d41"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel->"In[68]:=",ExpressionUUID->"00af8fd1-a20f-4d2f-b2d4-150d6445da00"], + +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[69]:=",ExpressionUUID->"68d8face-f2f7-4a7c-891e-433349fdf23e"], + +Cell[BoxData["0.12327762268272666`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.993815824789941*^9, 3.993815893053749*^9, { + 3.9938159521927853`*^9, 3.9938159961478243`*^9}, {3.994012735307992*^9, + 3.994012753662813*^9}, 3.994041234549596*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"befd76b5-48c0-40a0-bc6c-f89bb92ecf0f"] +}, 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[70]:=",ExpressionUUID->"d85fb471-88d1-4134-93cc-731bc9709d2f"], + +Cell[BoxData["8.089090426123509`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.993815824958537*^9, 3.993815893086632*^9, { + 3.993815952223331*^9, 3.993815996176463*^9}, {3.994012735341444*^9, + 3.9940127537028303`*^9}, 3.994041234577474*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"69d2b75b-ebc3-44cf-aaba-03c19bafad01"] +}, 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[71]:=",ExpressionUUID->"8ada902d-79c9-4cba-a4c8-fee5130e52b2"], + +Cell[BoxData[ + RowBox[{"-", "18.15349098777757`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.993815825088951*^9, 3.993815893116687*^9, { + 3.9938159522505827`*^9, 3.9938159962051373`*^9}, {3.994012735372669*^9, + 3.994012753746902*^9}, 3.9940412346026497`*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"8c2e15ac-ff03-4fef-acf2-d17d1dd60d58"] +}, 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[72]:=",ExpressionUUID->"86cde71d-c1aa-44e0-bff2-2c9b80995440"], + +Cell[BoxData[ + RowBox[{"-", "24.05337115009524`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.993815825243335*^9, 3.993815893152563*^9, { + 3.993815952283412*^9, 3.9938159962366734`*^9}, {3.9940127354096613`*^9, + 3.9940127537823277`*^9}, 3.994041234634081*^9}, + CellLabel->"Out[72]=",ExpressionUUID->"806b1979-5bc9-4830-a2e1-e223b350a829"] +}, 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[73]:=",ExpressionUUID->"a758decb-5e91-49e6-9dfc-2a425d84cc55"], + +Cell[BoxData[ + RowBox[{"-", "68.5715021463911`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.993815825395423*^9, 3.993815893189039*^9, { + 3.993815952318357*^9, 3.9938159962699547`*^9}, {3.994012737745866*^9, + 3.994012753816412*^9}, 3.994041234662367*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"d488a1dd-e7e2-40e8-b2df-fe8cb1edbfe1"] +}, 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[74]:=",ExpressionUUID->"ce266f8a-1a5b-423d-8ef0-e65a931fe71b"], + +Cell[BoxData[ + RowBox[{"-", "181.33897130481844`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.9938158255934277`*^9, 3.9938158932303762`*^9, { + 3.9938159523617983`*^9, 3.993815996307926*^9}, {3.9940127379598227`*^9, + 3.994012753855733*^9}, 3.994041234696403*^9}, + CellLabel->"Out[74]=",ExpressionUUID->"82525a6a-0984-4a1d-b5d6-fcb6acc84019"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[75]:=",ExpressionUUID->"4c74fc0e-7b41-4f7e-a29c-e1bdca712a42"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.993815825610972*^9, 3.993815893238894*^9, { + 3.993815952376239*^9, 3.993815996389533*^9}, {3.994012737981202*^9, + 3.994012753871561*^9}, 3.9940412347079077`*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"40697ed3-4d49-4c22-a725-c571baf14b11"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[76]:=",ExpressionUUID->"19932f61-200d-4ad0-8045-003f1a573718"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.993815825623754*^9, 3.993815893251865*^9, { + 3.993815952388772*^9, 3.9938159963944883`*^9}, {3.994012737993568*^9, + 3.994012753889316*^9}, 3.994041234717841*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"5d848e16-682e-4c65-a09b-8507cf18476a"] +}, 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[77]:=",ExpressionUUID->"f4a5b87b-1f8c-4ef2-87f9-a92df5a80558"], + +Cell[BoxData["141.405110309417`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.993815826417283*^9, 3.993815893265246*^9, { + 3.993815952401479*^9, 3.993815996407648*^9}, {3.9940127380069637`*^9, + 3.9940127539062157`*^9}, 3.99404123472719*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"977be578-e8a3-4e4d-9ef2-593eff992414"] +}, 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[78]:=",ExpressionUUID->"bc683843-773b-4193-aa6d-3a2376c6785c"], + +Cell[BoxData[ + RowBox[{"-", "128.9528695923845`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.99381582721953*^9, 3.993815893272354*^9, { + 3.9938159524150248`*^9, 3.993815996420066*^9}, {3.994012738019804*^9, + 3.9940127539503736`*^9}, 3.994041234736916*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"4547dc76-b42c-4631-a2cc-60b7cea8e3c9"] +}, 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[79]:=",ExpressionUUID->"d93f0fa4-458f-48ad-997c-76621904d749"], + +Cell[BoxData["145.46176038414953`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.993815827967605*^9, 3.993815893279285*^9, { + 3.993815952427936*^9, 3.993815996433951*^9}, {3.994012738032927*^9, + 3.994012753965966*^9}, 3.9940412347456617`*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"25c8d12d-cc63-4694-9786-7d96166a5757"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[80]:=",ExpressionUUID->"c8192ef9-b518-4b9d-9aa1-c54733d3dce5"], + +Cell[BoxData["0.3744607025351484`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.993815827996399*^9, 3.993815893285612*^9, { + 3.993815952441914*^9, 3.993815996447248*^9}, {3.994012738045417*^9, + 3.9940127539822197`*^9}, 3.994041234754702*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"bf64f9ad-3d56-4e67-8943-c4edd3ae5e51"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[81]:=",ExpressionUUID->"e1e18be3-6daf-499d-8f6b-06c8a8772ecf"], + +Cell[BoxData[ + RowBox[{"-", "0.08358618531832765`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.993815828006872*^9, 3.99381589330029*^9, { + 3.993815952454702*^9, 3.993815996460602*^9}, {3.9940127380579777`*^9, + 3.994012753999001*^9}, 3.994041234763671*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"873661c7-3d30-4156-8aca-9e9e9509ee2b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[82]:=",ExpressionUUID->"c4d26351-fac9-45ea-b9e7-6004dbd73c6a"], + +Cell[BoxData[ + RowBox[{"-", "0.5957523139282981`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.993815828017632*^9, 3.993815893314815*^9, { + 3.993815952467293*^9, 3.993815996472748*^9}, {3.9940127380705957`*^9, + 3.994012754016019*^9}, 3.994041234773185*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"2bf5f2c5-0067-469a-9742-02730180226e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[83]:=",ExpressionUUID->"c8085f09-ff52-4984-8dc8-e7e9b6c246fd"], + +Cell[BoxData["0.713744744985854`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.9938158280292873`*^9, 3.9938158933264513`*^9, { + 3.99381595247992*^9, 3.9938159964849863`*^9}, {3.9940127380831127`*^9, + 3.994012754031786*^9}, 3.994041234781913*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"bc73fa4f-ee38-4e55-9300-b148eaac9a8d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[84]:=",ExpressionUUID->"e5d81928-4769-42e9-b89b-85a508c7f4b3"], + +Cell[BoxData["2.4538606431456684`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.993815828040164*^9, 3.9938158933379717`*^9, { + 3.99381595249251*^9, 3.993815996497171*^9}, {3.9940127380959167`*^9, + 3.994012754047423*^9}, 3.994041234791677*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"0385903d-e510-4894-b478-7dbe4a14db55"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[85]:=",ExpressionUUID->"344b0e33-c096-4694-bdae-29e69a2e7dd0"], + +Cell[BoxData["1.4512846433038022`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.993815828051201*^9, 3.993815893350441*^9, { + 3.993815952507271*^9, 3.993815996509037*^9}, {3.994012738108345*^9, + 3.994012754065312*^9}, 3.994041234801902*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"171c35c1-2453-4799-b680-52249aa312d8"] +}, 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[86]:=",ExpressionUUID->"82157978-b514-4e05-b1b9-d890f1b3a577"], + +Cell[BoxData[ + RowBox[{"-", "35.01877093188689`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.99381582806227*^9, 3.993815893362507*^9, { + 3.993815952520192*^9, 3.9938159965211277`*^9}, {3.994012738120954*^9, + 3.994012754086623*^9}, 3.994041234812701*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"95733f3f-0736-49f9-87d5-e8fa62531912"] +}, 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[87]:=",ExpressionUUID->"f16da14e-1721-4afd-b5b8-65e343821521"], + +Cell[BoxData[ + RowBox[{"-", "7.023230644966918`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.993815828073289*^9, 3.993815893373386*^9, { + 3.9938159525334873`*^9, 3.9938159965330544`*^9}, {3.994012738133953*^9, + 3.994012754103959*^9}, 3.994041234822887*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"46e10b29-befc-41ed-83cd-0fe93c9f9a3c"] +}, 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[88]:=",ExpressionUUID->"92ce0a88-3cc5-477e-94b0-76339efe57bc"], + +Cell[BoxData["106.38633937753012`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.993815829714663*^9, 3.993815893386404*^9, { + 3.993815952538138*^9, 3.993815996546342*^9}, {3.994012738147608*^9, + 3.994012754121069*^9}, 3.9940412348271*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"f72950b5-e17b-4e40-b30d-9fdc05d63448"] +}, 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[89]:=",ExpressionUUID->"bfbc9621-345a-4527-9182-fde42a4954fc"], + +Cell[BoxData[ + RowBox[{"-", "128.9528695923845`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.993815830785906*^9, 3.993815893393002*^9, { + 3.99381595255091*^9, 3.993815996558546*^9}, {3.9940127381623087`*^9, + 3.994012754138682*^9}, 3.994041234835627*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"b31627dd-9b1d-4dfd-a473-97c0b9076f40"] +}, 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[90]:=",ExpressionUUID->"8ee1cdef-4837-459e-97da-e7415ea42786"], + +Cell[BoxData["138.4385297391826`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.993815832301989*^9, 3.993815893399308*^9, { + 3.9938159525638323`*^9, 3.993815996570672*^9}, {3.994012738168003*^9, + 3.994012754154402*^9}, 3.9940412348435793`*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"4359fb06-6215-4614-8655-8c83004630b2"] +}, 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[91]:=",ExpressionUUID->"5bb6ad1f-5a39-40ed-86a6-110d2930f69d"], + +Cell[BoxData["42.7423287298202`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.99381583454182*^9, 3.9938158934054613`*^9, { + 3.99381595257723*^9, 3.993815996582724*^9}, {3.9940127381809587`*^9, + 3.994012754170536*^9}, 3.9940412348512707`*^9}, + CellLabel->"Out[91]=",ExpressionUUID->"4307e5bd-a931-4b01-b375-0e00ca9d6b7d"] +}, 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[92]:=",ExpressionUUID->"1adbf3f9-0b12-4ce0-9a6a-8340818b6a06"], + +Cell[BoxData["852.656398631346`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.993815837006854*^9, 3.993815893411956*^9, { + 3.993815952590604*^9, 3.9938159966008883`*^9}, {3.9940127381948357`*^9, + 3.994012754188656*^9}, 3.9940412348600483`*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"7a0c39a9-259b-4d66-b8ad-37be3292c3cf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f1", "=", "0.4655670227"}]], "Input", + CellChangeTimes->{3.991849227197853*^9, 3.99401282467268*^9}, + CellLabel->"In[93]:=",ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], + +Cell[BoxData["0.4655670227`"], "Output", + CellChangeTimes->{3.99401329894809*^9, 3.994041234869644*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"266376df-116f-47ac-85be-8bda972a3646"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991849227899128*^9, 3.9918492279041367`*^9}}, + CellLabel->"In[94]:=",ExpressionUUID->"93cad80c-1de7-2e4b-9b8c-14a272e65d1f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f2", "=", "0.1238770169"}]], "Input", + CellChangeTimes->{3.9918492290557346`*^9, 3.994012830403675*^9}, + CellLabel->"In[95]:=",ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], + +Cell[BoxData["0.1238770169`"], "Output", + CellChangeTimes->{3.994013299093354*^9, 3.9940412348823442`*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"9ef61317-445f-471b-91fc-3381c327d733"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991849229804535*^9, 3.991849229809536*^9}}, + CellLabel->"In[96]:=",ExpressionUUID->"15fe72e6-19f0-9540-b29f-3056e2e0b957"], Cell[CellGroupData[{ @@ -84,13 +4878,12 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], ")"}]}]], "Input", - CellLabel-> - "In[233]:=",ExpressionUUID->"5e48fe0c-b3e8-2b40-82cb-716b23b2f326"], + CellLabel->"In[97]:=",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.585212243083306`*^-53"], "Output", + CellChangeTimes->{3.9913335367025833`*^9, 3.994013299217835*^9, + 3.994041234894328*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"b9653be6-15e2-418c-9320-411adaf84397"] }, Open ]], Cell[CellGroupData[{ @@ -124,14 +4917,13 @@ 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[98]:=",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["9.04855243963054`*^-55"], "Output", + CellChangeTimes->{3.991333536726557*^9, 3.994013299253482*^9, + 3.994041234903676*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"e6c3d9a3-8504-4668-9879-4d8ac599d377"] }, Open ]], Cell[CellGroupData[{ @@ -164,14 +4956,13 @@ 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[99]:=",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["6.222602030222745`*^-55"], "Output", + CellChangeTimes->{3.9913335367515736`*^9, 3.9940132992956047`*^9, + 3.994041234913075*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"18711454-8999-44c9-9730-cb2449546147"] }, Open ]], Cell[CellGroupData[{ @@ -195,12 +4986,13 @@ Cell[BoxData[ RowBox[{"Ih", "*", "Ir"}], RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", CellLabel-> - "In[236]:=",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], + "In[100]:=",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], -Cell[BoxData["25.178011816139865`"], "Output", - CellChangeTimes->{3.9913335367605553`*^9}, +Cell[BoxData["8.689437824060754`"], "Output", + CellChangeTimes->{3.9913335367605553`*^9, 3.994013299324651*^9, + 3.99404123492244*^9}, CellLabel-> - "Out[236]=",ExpressionUUID->"9d53fa4a-be54-7b42-83bd-0a5560193c0f"] + "Out[100]=",ExpressionUUID->"331e54bb-5414-4cc3-b720-9c62e7f1bf33"] }, Open ]], Cell[CellGroupData[{ @@ -226,12 +5018,13 @@ Cell[BoxData[ RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", CellLabel-> - "In[237]:=",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], + "In[101]:=",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], -Cell[BoxData["31.32034821453639`"], "Output", - CellChangeTimes->{3.991333536783556*^9}, +Cell[BoxData["20.214823085050167`"], "Output", + CellChangeTimes->{3.991333536783556*^9, 3.994013299363504*^9, + 3.994041234931674*^9}, CellLabel-> - "Out[237]=",ExpressionUUID->"4107fa63-a138-df48-a95c-ec944a983800"] + "Out[101]=",ExpressionUUID->"975e9982-b6d8-4d00-b97e-f17a7f280de8"] }, Open ]], Cell[CellGroupData[{ @@ -241,12 +5034,13 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb3"]]}]], "Input", CellLabel-> - "In[238]:=",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], + "In[102]:=",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], -Cell[BoxData["0.7475613664925793`"], "Output", - CellChangeTimes->{3.9913335367915726`*^9}, +Cell[BoxData["2.217855514877399`"], "Output", + CellChangeTimes->{3.9913335367915726`*^9, 3.9940132994058447`*^9, + 3.994041234941745*^9}, CellLabel-> - "Out[238]=",ExpressionUUID->"f894fb1d-1550-5146-a259-dfa871655c2a"] + "Out[102]=",ExpressionUUID->"3d62bf21-8066-4498-8e7b-134b4b4f92b4"] }, Open ]], Cell[CellGroupData[{ @@ -256,12 +5050,13 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kw", "Qw3"]]}]], "Input", CellLabel-> - "In[239]:=",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], + "In[103]:=",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], -Cell[BoxData["3.5403946764909393`"], "Output", - CellChangeTimes->{3.99133353681583*^9}, +Cell[BoxData["6.494594723033309`"], "Output", + CellChangeTimes->{3.99133353681583*^9, 3.994013299447136*^9, + 3.994041234951442*^9}, CellLabel-> - "Out[239]=",ExpressionUUID->"8d5b13a4-8c75-0f48-ab21-9720bb8c0cbc"] + "Out[103]=",ExpressionUUID->"b5fcd2c8-23e5-48b8-9860-46b98fe7159a"] }, Open ]], Cell[CellGroupData[{ @@ -271,12 +5066,13 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", CellLabel-> - "In[240]:=",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], + "In[104]:=",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], -Cell[BoxData["110.88639408458714`"], "Output", - CellChangeTimes->{3.991333536826782*^9}, +Cell[BoxData["131.28708333521874`"], "Output", + CellChangeTimes->{3.991333536826782*^9, 3.994013303415332*^9, + 3.994041234961896*^9}, CellLabel-> - "Out[240]=",ExpressionUUID->"4d4b493f-9f2d-1e41-979f-fb4d58d0e93a"] + "Out[104]=",ExpressionUUID->"00b379d7-ddee-4e5d-bcf3-d70b0dd6e7e9"] }, Open ]], Cell[CellGroupData[{ @@ -286,12 +5082,13 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[241]:=",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], + "In[105]:=",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], -Cell[BoxData["18.822108918839827`"], "Output", - CellChangeTimes->{3.9913335368508377`*^9}, +Cell[BoxData["19.27191759927741`"], "Output", + CellChangeTimes->{3.9913335368508377`*^9, 3.994013303758151*^9, + 3.994041234971622*^9}, CellLabel-> - "Out[241]=",ExpressionUUID->"e40db20b-c65e-4a45-ba96-abcb59b0d0ac"] + "Out[105]=",ExpressionUUID->"e2745f4e-dc18-4522-aed4-c95bfedd0a29"] }, Open ]], Cell[CellGroupData[{ @@ -481,12 +5278,13 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[242]:=",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], + "In[106]:=",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], -Cell[BoxData["0.042044960793272385`"], "Output", - CellChangeTimes->{3.9913335368758316`*^9}, +Cell[BoxData["0.0073485553920204566`"], "Output", + CellChangeTimes->{3.9913335368758316`*^9, 3.994013303848193*^9, + 3.994041234981895*^9}, CellLabel-> - "Out[242]=",ExpressionUUID->"cdf81fea-e12a-2b44-81a8-222b4bbf8a86"] + "Out[106]=",ExpressionUUID->"56d12485-c730-42c3-b6a0-83efa2669e9c"] }, Open ]], Cell[CellGroupData[{ @@ -500,12 +5298,13 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[243]:=",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], + "In[107]:=",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], -Cell[BoxData["4.322031867849089`"], "Output", - CellChangeTimes->{3.991333536973074*^9}, +Cell[BoxData["10.338176789375801`"], "Output", + CellChangeTimes->{3.991333536973074*^9, 3.994013660075739*^9, + 3.9940412350406103`*^9}, CellLabel-> - "Out[243]=",ExpressionUUID->"181dc1c8-632b-4b43-91c4-d3626d65bfc7"] + "Out[107]=",ExpressionUUID->"f9982368-2174-47ec-bd84-31e01189ea88"] }, Open ]], Cell[CellGroupData[{ @@ -697,12 +5496,13 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[244]:=",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], + "In[108]:=",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], -Cell[BoxData["0.011395075201487413`"], "Output", - CellChangeTimes->{3.9913335369870644`*^9}, +Cell[BoxData["0.05077505628603678`"], "Output", + CellChangeTimes->{3.9913335369870644`*^9, 3.994013660750608*^9, + 3.994041235083584*^9}, CellLabel-> - "Out[244]=",ExpressionUUID->"c7d972b4-764c-954a-8260-240d49cfcff6"] + "Out[108]=",ExpressionUUID->"3d473b3f-1c8f-4b30-b33e-0d5d912fa566"] }, Open ]], Cell[CellGroupData[{ @@ -716,12 +5516,13 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[245]:=",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], + "In[109]:=",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], -Cell[BoxData["8.302069082299768`"], "Output", - CellChangeTimes->{3.9913335370800858`*^9}, +Cell[BoxData["3.9329618516740967`"], "Output", + CellChangeTimes->{3.9913335370800858`*^9, 3.99401403030427*^9, + 3.994041235130512*^9}, CellLabel-> - "Out[245]=",ExpressionUUID->"c285a758-c3ad-974b-93c3-4cb0d4bdd2ae"] + "Out[109]=",ExpressionUUID->"ea4953e4-d205-4974-863d-78f5e88cfef1"] }, Open ]], Cell[CellGroupData[{ @@ -814,12 +5615,13 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[246]:=",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], + "In[110]:=",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], -Cell[BoxData["0.7884625602161153`"], "Output", - CellChangeTimes->{3.9913335370930634`*^9}, +Cell[BoxData["0.05674825314301471`"], "Output", + CellChangeTimes->{3.9913335370930634`*^9, 3.9940140307909813`*^9, + 3.994041235140921*^9}, CellLabel-> - "Out[246]=",ExpressionUUID->"5dc957f4-8f84-c54c-80a3-c76f756c5df4"] + "Out[110]=",ExpressionUUID->"64d4037d-6d48-4d79-8d91-ae24b6199957"] }, Open ]], Cell[CellGroupData[{ @@ -909,12 +5711,13 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[247]:=",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], + "In[111]:=",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], -Cell[BoxData["0.21153743978388478`"], "Output", - CellChangeTimes->{3.991333537118065*^9}, +Cell[BoxData["0.9432517468569853`"], "Output", + CellChangeTimes->{3.991333537118065*^9, 3.994014030805881*^9, + 3.994041235150662*^9}, CellLabel-> - "Out[247]=",ExpressionUUID->"b4ee01d5-3415-494b-b28a-4587c8d8bb90"] + "Out[111]=",ExpressionUUID->"1804e08e-1610-409c-a07d-4a5c191f083c"] }, Open ]], Cell[CellGroupData[{ @@ -1037,18 +5840,20 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[248]:=",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], + "In[112]:=",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], -Cell[BoxData["0.16678935135356415`"], "Output", - CellChangeTimes->{3.9913335371420746`*^9}, +Cell[BoxData["0.05352788890823103`"], "Output", + CellChangeTimes->{3.9913335371420746`*^9, 3.9940140308206053`*^9, + 3.994041235160454*^9}, CellLabel-> - "Out[248]=",ExpressionUUID->"20c44e64-7085-8e4d-a9d6-f80b5532826e"] + "Out[112]=",ExpressionUUID->"8f3df69d-deb8-4c3b-85b8-b293e6b1da34"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", - RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"ba4a3eff-9e3b-\ -5e47-a896-3a959bbbf44d"], + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellLabel-> + "In[113]:=",ExpressionUUID->"ba4a3eff-9e3b-5e47-a896-3a959bbbf44d"], Cell[CellGroupData[{ @@ -1062,7 +5867,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 +5891,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -1109,65 +5915,77 @@ 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[114]:=",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[\\\"1.82625796237564`*^-204\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 114, 5, 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335371540604`*^9, 3.994014047823266*^9, + 3.994041235173636*^9}, CellLabel-> "During evaluation of \ -In[249]:=",ExpressionUUID->"bd0a7da1-672e-6b4e-afbd-4af379292e8d"], +In[114]:=",ExpressionUUID->"39693348-a4c3-4a98-b626-0feeb0e7e926"], 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[\\\"4.277037713838509`*^-209\\\", \ +RowBox[{\\\"143094757247897252281238\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"64\\\", \\\"\[RightSkeleton]\\\"}], \\\"3737600000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 114, 6, 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335371540604`*^9, 3.994014047823266*^9, + 3.994041235178112*^9}, CellLabel-> "During evaluation of \ -In[249]:=",ExpressionUUID->"9a8837e4-2afa-d145-83db-a88ef0e502bc"], +In[114]:=",ExpressionUUID->"767ac39b-c3ad-4c63-a8f5-398919f3710f"], 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[\\\"1.0016685475145526`*^-213\\\", \ +RowBox[{\\\"302788506336550585827101\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"67\\\", \\\"\[RightSkeleton]\\\"}], \\\"8761600000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 114, 7, 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335371540604`*^9, 3.994014047823266*^9, + 3.9940412351829653`*^9}, CellLabel-> "During evaluation of \ -In[249]:=",ExpressionUUID->"0aa4ed5d-b925-834d-b53a-95c75c4ff982"], +In[114]:=",ExpressionUUID->"484f04c7-d811-47ed-abea-5c0361c2e8f8"], 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, 114, 8, 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335371540604`*^9, 3.994014047823266*^9, + 3.99404123518703*^9}, CellLabel-> "During evaluation of \ -In[249]:=",ExpressionUUID->"2742a735-9c26-7640-8a81-3e30eaffa353"], +In[114]:=",ExpressionUUID->"fa5cb2fd-31bd-4518-9174-f82a40e156a7"], -Cell[BoxData["4.322031867849086`"], "Output", - CellChangeTimes->{3.9913335399194164`*^9}, +Cell[BoxData["10.338176789375783`"], "Output", + CellChangeTimes->{3.9913335399194164`*^9, 3.994040925745536*^9, + 3.994041236771056*^9}, CellLabel-> - "Out[249]=",ExpressionUUID->"d91a6bca-04d7-b84b-93cf-0695498dc4de"] + "Out[114]=",ExpressionUUID->"19b52487-6964-4e49-a96f-a4c23c23770d"] }, Open ]], Cell[CellGroupData[{ @@ -1182,7 +6000,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 +6024,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -1229,65 +6048,72 @@ 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[115]:=",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[\\\"1.82625796237564`*^-204\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 115, 9, 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335399544125`*^9, 3.994041236800699*^9}, CellLabel-> "During evaluation of \ -In[250]:=",ExpressionUUID->"2c553d54-16ec-9646-b6d7-75da3c367575"], +In[115]:=",ExpressionUUID->"6f53197f-2a8a-4d86-89d7-f7d1d734540b"], 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[\\\"4.277037713838509`*^-209\\\", \ +RowBox[{\\\"143094757247897252281238\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"64\\\", \\\"\[RightSkeleton]\\\"}], \\\"3737600000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 115, 10, 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335399544125`*^9, 3.994041236804636*^9}, CellLabel-> "During evaluation of \ -In[250]:=",ExpressionUUID->"1c597fdf-5631-a84c-9feb-152df3629d86"], +In[115]:=",ExpressionUUID->"0d6b351a-1949-4571-bf5f-c6ad646ddc1b"], 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[\\\"1.0016685475145526`*^-213\\\", \ +RowBox[{\\\"302788506336550585827101\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"67\\\", \\\"\[RightSkeleton]\\\"}], \\\"8761600000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 115, 11, 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335399544125`*^9, 3.994041236807626*^9}, CellLabel-> "During evaluation of \ -In[250]:=",ExpressionUUID->"48439b56-7b7d-fa4d-a4e2-5db2bbda0c77"], +In[115]:=",ExpressionUUID->"59dfb462-92c9-4101-b559-21fb0f88f839"], 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, 115, 12, 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335399544125`*^9, 3.994041236811015*^9}, CellLabel-> "During evaluation of \ -In[250]:=",ExpressionUUID->"66ce390f-34a9-df4d-9875-a339943ada86"], +In[115]:=",ExpressionUUID->"50a0302f-ff17-406f-a6b8-149b586a3110"], -Cell[BoxData["8.302069082299772`"], "Output", - CellChangeTimes->{3.991333542631773*^9}, +Cell[BoxData["3.9329618516740927`"], "Output", + CellChangeTimes->{3.991333542631773*^9, 3.9940412383687773`*^9}, CellLabel-> - "Out[250]=",ExpressionUUID->"2e46fa54-fabe-5040-8f8c-6829b7c76136"] + "Out[115]=",ExpressionUUID->"95bd0d8d-d88b-45a5-a0e1-b27107208b9d"] }, Open ]], Cell[CellGroupData[{ @@ -1297,138 +6123,142 @@ 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[116]:=",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:eJwV1Xk4VdsbB3CEzKEyRjKFUjoylVpvxjKHDFHpOGenkgq5ZMotdcsQkiFk +LmQOIfnVTSUJKZrM2UfXPO6TUn7LH/vZz+dZe3/Xu9baa+1N9LP2TC4ODo7v ++Fq5n2/btvlRR9tekQbOpuZMEu2dzNOhmxQjvqxBasUDmbqJyiYNaHV36M3X +2HaMt7xC2i9QEL07pgW7IjD8OY9JK4q2Gpt5g339pdTT8KJ3iHa34fFb7LqO +83eXaF0ogWEx1o49+qUlJOjxJ8QoS7zUiS1DKrlRxj3IIz4tuAvbcirEwK+1 +HykqHOv5hN24NCoYWDSItPz7c3qwuyMkg2t8vqGugg3tA9iTvCaj8zQSHemR +OE5i80afc9Vms1DL9jaXUWx5sYzm84+/I91XRjVT2Day1L1J43Fk7MHI+YVN +ZClKaPJNIoNasR1cWSQKV7GNPN06haY5QlX4sT9JftjhXzSD5rVikRQ24/Cp +k7eiZ1FO5E6mAvZ0Okd2pc8c+pKfOq2GzaeoKTpDW0DWxtn6u7ETGc/NRddT +iNfUZMEEW+G+a/h2NoVEZO9L2mLrb706eebxD/TOuySGge2l2986aryE7nu+ +2JuIPR94gVtA9TcaLj+rno196bGgoTrfH+Tq0xNUip0C+g9OtC4jq8Y/li0r +9eU3m/gWcULY3Plq3mwSFb28NRAhywWsyV1tEtjTI0dD4qO5wLL0tdVm7BCN +hYflPqsg13VX8AHsxLJNSlM0HqBUAzISsL90jDf+yeWBl7MXh/OxFWYfHRZZ +zwsQeyC+Drt4p02CJpsXqs6ZbRjCbqq7yOn9mA/4trSz9XJItPD8ff93YyGY +lC54QWGLWwmJBjcKwXCwU5J4Lom0PpiAsIEw9HRX9m3DPjVcnbVjmwgsGwZ1 +e2Gf42rV2iMkCixBF/oQNqlYOhNJiUFBncn4WB6eH6KFv11bHFZRlvpr8knE +9YC1Seq8OPgLiC/RsBW0N9oXjYmDUWj/aDD2YeO4yraBtSBflc1ce49E7Z6+ +fpJv1kN3+mCHy30S9d2PjfLgkwA7vTOpl7HHx4pyC00lID+o9XMptoD/t/e7 +n0rA8YeC//IWkMjkiuNOj2pJCOOu0WrArs/TXSjIlIYuszX/7CkiUR75M2CX +vxz0t1ho3Ckh0f5D1/r8SuRAzv+6VAf2eNNasxKWHLzad/YsbymJduZtXa/g +Kg8vonSd/bGb6Ecf8uzdCIb7B0QOlZFodmrgr++XFeB1sLCCRgWJ1p4xqXpo +rQhFue+6FKtJxMoT8LI7pQgaf7R7mNi1PR2yE1cVoWrjBctCbHerI5dVnyrC +nnNpjB01uL4tAfapNCWwmCmNMHuE+x+9Px0mqQwqtuVeV+pI5HhCUNNiUAXK +1zz4YdNIIhRwiOb8WwX2SLtFZWBrRGbqMaRVQS1F8vI4NkeutlHYQVUoS27M +jvofiUr63Jwrn6kCTypnettTvD+diiNkcjaD82arqyee4/pMrLtH6ergLcVp +RDaTKNch+Ss7TB0swjIvwmsSxdIHB7jT1EGbniiVjs24dGFM/r06XLsVdcWx +hURiDRkcDsYa8K12YUPLG/z9aE9qPFbaAn+Ysweb20gkq3gzPGp4K2y62dcn +2kWihhvz6otcmvDR6uadCGz3OdcPxCZN6JccejuLfbdJWd3oqCb4bg5J6+4m +keKJ+s4fHzWBUhvpzP2Ex1tMqhBvtoEpR2u1Yw+J5GTlCQVXLTiXpECIDpNo +a76/0C9Eg9HYbJvpeRLRGZcXNG1oYO0ffPXCAt6vSgl9Hu40IHOIzb+wV+WU +lb8MpAG1OzxvNRvvt7ujjgkVNOC8IR+tsojP0xSPDHUlbVDnNl934Tde3yir +bS68OyEjz0LRk5eFsn2V7apbdWBzu51wiDQLdQQgvSv5BtDiIrL91n4W2nS0 +y+aI9x7Y+3v/y4AwFmIu15TKBQHMRj8zv/+IhSTHaldL0o2A3f1u3u43C/lr +G/YkaJjAVp7zE1mmI4g+sdS8dtQUNHh/fvS5NYJKjPxWZ7abw8vUpLbKqRGU +N3/qWXHiAUiiWRiC9Xf0Y5/U26ZwS1DozRQg67+jXo5VM4PHrcHXKSF7Ydt/ +yGfD2bgIJVvQldik+SbnP1R6svnp7Ug78DnvGvRcbRRdnJNmbzl5EKqKrIsL +SkbRgoWZ06tj9hC5eoZf12wMGbjF7yMPOkDayTzjpOEx1CmdcapJ2xGk+T2e +ToSPI5l7lxsK1A7BK1OqJVBrAtUOaFjZCDuBgZcIZ23PBJL/MH0iYMIJCoMO +D5lETyLt2/HFuQPO4Cuq5v3u4BTK4J7blvDcBWy/HOzdwTeNavZt/xJZ5wql +Jr6+0b7TKEXvhthS0WGoVx62reqdRu1f869qR7sBrSVgucp4BlVbpyufu+QO +p3lf3BSrmkEzZxw4fBhHoEe24pWY/CxaMFP3mjQ+Co+Gv6kGXZ1FBROff/jp +HoPYdHZ7JnsWuWTnex4R8gDJZ0lJ7h5z6GGl5bFV1zzg+QNHa8WOOWQg27l4 +fdEDTFWfLf/RmUdKAye+vDt5HOqvhriXJM2jYcHTtunfjkN0g0kq96951BFr +42l+iA67DnIfD3NYQImBmYIXOuhQvjFRr7J4ATU0Li96HvCEJ44+06FLC2iN +O1zTrveEbLtPOjKIQgrrXrVvaPCEuDXB+9WBQlqt1lK8jZ5QSDvQqLePQvaG +boWfnnmC/XRYp70xhRI3BLwJfe0JkeSPpAhzCsn0PljT/MkTEuSfHnlmSyHl +o5Ip7mxPcPJ559h8jEIGHpMFkTsZUHT0etdIKIXupU772egygNJoq2kMo9C6 +97N7JfUZMEfzXXU7nEKTpuwPBbsZsK1zRx+KoPD5xcHZasSAm1n8t2Ov4P8q +W8xV/CAD9F33Dq+JotBwjA5/5hkGpERNTGYlUyj2ccjJ2nsM+O1ktXu+lEJn +aMkGgQUM4NribJZdRiGrwgp+/SIGmPnZ1VmXU0ggmVX4qIQBwik3uvMqKBTp +azdaU8UAIb9/Ri2rKBSirny6+l8G1Im6uYfWUehU8hvvyj4GELruN7yfU+iA +CMvQd4ABKo5Oh3ibKKQWySFMG2JAdYzDlUxslq9OSQXJgOtCg8IdLyh03CZz +onycAUx38Vb1Zgq58Pj5lP1kQN/p4K//a6WQuZ/MuWIJJggsZ0Vc6KLQv5lX +LRKkmNCWpjHL200hw9ZZ5UAZJgQtLt5LxtZSefPZWJ4J/UZkT81HCkl/DDb+ +qsIEaz6ngPHPFBrb1SshoMMEmWTCeGcfhW5yZT054cCEv2anvXVYePzbhVKs +DzFhdHherQz7ilugr7YzE248O6GiNkKhwCq7zcuHmZDqrtEv+R3XT3DGJ9GZ +4H5SzmHyPwppt9AZL84zIVNeRuWvCQp9jFcRVIpjwhZ+syfsOQqVImGv7/FM +SHOIeW8/j/Mn5ptKbjHhynpTKMGmHWgK009mwoPahg0eC3j9ODxnre8y4TrZ +2f+EopDZ2azPgcVM0P5gGO66SCE5uX9095Yy4SH/7vlC7PmWs7dWlTPhNHmr +cRE7RxVZxz5kgmfjOofknxT63dv7NLeeCVbViUEtvyhUZSVb0NbMhBczgmWi +fygU9ZOLJ7GFCYaddF8nbHrB6HHXViYoJCvcSMMW5a6XHW5nwte4lBqlZQp5 +P3a5udjNhNuqPzi3crCRkkZSgDLJhGsJ3U4buNjo58fQ9/+xmMCla3XYGbsj +kqlV9h3nhThXxGOHDe4cNRhnwozHsiv3Kjb6kvL+iO0cE+imtomD2AmrxUwv +chIgLqqfG8zDRg2zvW7+qwiwrhU5XYE90lvk68NDgFqVlhsL27DKJIvOT0DK +R4Uqa142YnkE/rIQI2DjBlNz8dVsJGplKm66loCoHXx2+7B364mro/UEiESX +XzqLHSdc7KQtTcCQzN+ur1fa6/srZDcRsGZqbMSXj42I/OLm9UoE6C3d2ZaG +HRcX1L9GhYDVi93p/2KziLXC3OoENBa/nRLhx+1rzb3GtQjYd7HQJwO7/s/a +cBaNgG6OyulGbPK/gdsDOwlIH1lK7cfe9fTi8w/6BOjf16fLC7DRsHep/BMg +oPrZ6eZ4bBGXYJ1HRjjvTuHlYmwD4/1WFSYE2KybYL7EjpUeCsrfT0Bc4alM +NnYtd1lcpgUB9zRTKBFBNvo2FXw/1YoAHpVKfxVs/Zfru2LsCPDKTiRtsekV +Q2PX7AmYsrD/5Ikdk17G9bcjAWPlrJkA7CHfA1oBLgR0HrmUegdb+KiE+bnD +BByPDNn8YCXvwLcjp9xxfxp7eupX3t8YGnXUg4As8aW6j9i1AhY5LnQCXGZn +h4ZX8hYk6uwZeL6vZ9JmVvIGv7VbEQQ8rPxTsLSS11rOMvMioCtU2Gy1EK7v +UehvOEXArPZrfjHsmByLdbu9CXA8tH1eGrs2RnKLjg8Bral7eBSxhwKH920/ +R0DP9IyhOrYQo8JF3ZeAggiLtO3YerZhZ5X8CfhaZKqgs5K/y/KqXAB+nmvo +jQF2tIpUhmQgAbnO8nf3YNeIkg/FLuLxly4mAfbgr4oWwRCcZ+pXY7SSPxI2 +yBNGgGj8jSVjbN1Oyx/L4QTE7EEnTbD/DzvQAnM= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -1442,104 +6272,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:eJwV1Xk4VdsbB3CEzKEyRjKFUjoylVpvxjKHDFHpOGenkgq5ZMotdcsQkiFk +LmQOIfnVTSUJKZrM2UfXPO6TUn7LH/vZz+dZe3/Xu9baa+1N9LP2TC4ODo7v ++Fq5n2/btvlRR9tekQbOpuZMEu2dzNOhmxQjvqxBasUDmbqJyiYNaHV36M3X +2HaMt7xC2i9QEL07pgW7IjD8OY9JK4q2Gpt5g339pdTT8KJ3iHa34fFb7LqO +83eXaF0ogWEx1o49+qUlJOjxJ8QoS7zUiS1DKrlRxj3IIz4tuAvbcirEwK+1 +HykqHOv5hN24NCoYWDSItPz7c3qwuyMkg2t8vqGugg3tA9iTvCaj8zQSHemR +OE5i80afc9Vms1DL9jaXUWx5sYzm84+/I91XRjVT2Day1L1J43Fk7MHI+YVN +ZClKaPJNIoNasR1cWSQKV7GNPN06haY5QlX4sT9JftjhXzSD5rVikRQ24/Cp +k7eiZ1FO5E6mAvZ0Okd2pc8c+pKfOq2GzaeoKTpDW0DWxtn6u7ETGc/NRddT +iNfUZMEEW+G+a/h2NoVEZO9L2mLrb706eebxD/TOuySGge2l2986aryE7nu+ +2JuIPR94gVtA9TcaLj+rno196bGgoTrfH+Tq0xNUip0C+g9OtC4jq8Y/li0r +9eU3m/gWcULY3Plq3mwSFb28NRAhywWsyV1tEtjTI0dD4qO5wLL0tdVm7BCN +hYflPqsg13VX8AHsxLJNSlM0HqBUAzISsL90jDf+yeWBl7MXh/OxFWYfHRZZ +zwsQeyC+Drt4p02CJpsXqs6ZbRjCbqq7yOn9mA/4trSz9XJItPD8ff93YyGY +lC54QWGLWwmJBjcKwXCwU5J4Lom0PpiAsIEw9HRX9m3DPjVcnbVjmwgsGwZ1 +e2Gf42rV2iMkCixBF/oQNqlYOhNJiUFBncn4WB6eH6KFv11bHFZRlvpr8knE +9YC1Seq8OPgLiC/RsBW0N9oXjYmDUWj/aDD2YeO4yraBtSBflc1ce49E7Z6+ +fpJv1kN3+mCHy30S9d2PjfLgkwA7vTOpl7HHx4pyC00lID+o9XMptoD/t/e7 +n0rA8YeC//IWkMjkiuNOj2pJCOOu0WrArs/TXSjIlIYuszX/7CkiUR75M2CX +vxz0t1ho3Ckh0f5D1/r8SuRAzv+6VAf2eNNasxKWHLzad/YsbymJduZtXa/g +Kg8vonSd/bGb6Ecf8uzdCIb7B0QOlZFodmrgr++XFeB1sLCCRgWJ1p4xqXpo +rQhFue+6FKtJxMoT8LI7pQgaf7R7mNi1PR2yE1cVoWrjBctCbHerI5dVnyrC +nnNpjB01uL4tAfapNCWwmCmNMHuE+x+9Px0mqQwqtuVeV+pI5HhCUNNiUAXK +1zz4YdNIIhRwiOb8WwX2SLtFZWBrRGbqMaRVQS1F8vI4NkeutlHYQVUoS27M +jvofiUr63Jwrn6kCTypnettTvD+diiNkcjaD82arqyee4/pMrLtH6ergLcVp +RDaTKNch+Ss7TB0swjIvwmsSxdIHB7jT1EGbniiVjs24dGFM/r06XLsVdcWx +hURiDRkcDsYa8K12YUPLG/z9aE9qPFbaAn+Ysweb20gkq3gzPGp4K2y62dcn +2kWihhvz6otcmvDR6uadCGz3OdcPxCZN6JccejuLfbdJWd3oqCb4bg5J6+4m +keKJ+s4fHzWBUhvpzP2Ex1tMqhBvtoEpR2u1Yw+J5GTlCQVXLTiXpECIDpNo +a76/0C9Eg9HYbJvpeRLRGZcXNG1oYO0ffPXCAt6vSgl9Hu40IHOIzb+wV+WU +lb8MpAG1OzxvNRvvt7ujjgkVNOC8IR+tsojP0xSPDHUlbVDnNl934Tde3yir +bS68OyEjz0LRk5eFsn2V7apbdWBzu51wiDQLdQQgvSv5BtDiIrL91n4W2nS0 +y+aI9x7Y+3v/y4AwFmIu15TKBQHMRj8zv/+IhSTHaldL0o2A3f1u3u43C/lr +G/YkaJjAVp7zE1mmI4g+sdS8dtQUNHh/fvS5NYJKjPxWZ7abw8vUpLbKqRGU +N3/qWXHiAUiiWRiC9Xf0Y5/U26ZwS1DozRQg67+jXo5VM4PHrcHXKSF7Ydt/ +yGfD2bgIJVvQldik+SbnP1R6svnp7Ug78DnvGvRcbRRdnJNmbzl5EKqKrIsL +SkbRgoWZ06tj9hC5eoZf12wMGbjF7yMPOkDayTzjpOEx1CmdcapJ2xGk+T2e +ToSPI5l7lxsK1A7BK1OqJVBrAtUOaFjZCDuBgZcIZ23PBJL/MH0iYMIJCoMO +D5lETyLt2/HFuQPO4Cuq5v3u4BTK4J7blvDcBWy/HOzdwTeNavZt/xJZ5wql +Jr6+0b7TKEXvhthS0WGoVx62reqdRu1f869qR7sBrSVgucp4BlVbpyufu+QO +p3lf3BSrmkEzZxw4fBhHoEe24pWY/CxaMFP3mjQ+Co+Gv6kGXZ1FBROff/jp +HoPYdHZ7JnsWuWTnex4R8gDJZ0lJ7h5z6GGl5bFV1zzg+QNHa8WOOWQg27l4 +fdEDTFWfLf/RmUdKAye+vDt5HOqvhriXJM2jYcHTtunfjkN0g0kq96951BFr +42l+iA67DnIfD3NYQImBmYIXOuhQvjFRr7J4ATU0Li96HvCEJ44+06FLC2iN +O1zTrveEbLtPOjKIQgrrXrVvaPCEuDXB+9WBQlqt1lK8jZ5QSDvQqLePQvaG +boWfnnmC/XRYp70xhRI3BLwJfe0JkeSPpAhzCsn0PljT/MkTEuSfHnlmSyHl +o5Ip7mxPcPJ559h8jEIGHpMFkTsZUHT0etdIKIXupU772egygNJoq2kMo9C6 +97N7JfUZMEfzXXU7nEKTpuwPBbsZsK1zRx+KoPD5xcHZasSAm1n8t2Ov4P8q +W8xV/CAD9F33Dq+JotBwjA5/5hkGpERNTGYlUyj2ccjJ2nsM+O1ktXu+lEJn +aMkGgQUM4NribJZdRiGrwgp+/SIGmPnZ1VmXU0ggmVX4qIQBwik3uvMqKBTp +azdaU8UAIb9/Ri2rKBSirny6+l8G1Im6uYfWUehU8hvvyj4GELruN7yfU+iA +CMvQd4ABKo5Oh3ibKKQWySFMG2JAdYzDlUxslq9OSQXJgOtCg8IdLyh03CZz +onycAUx38Vb1Zgq58Pj5lP1kQN/p4K//a6WQuZ/MuWIJJggsZ0Vc6KLQv5lX +LRKkmNCWpjHL200hw9ZZ5UAZJgQtLt5LxtZSefPZWJ4J/UZkT81HCkl/DDb+ +qsIEaz6ngPHPFBrb1SshoMMEmWTCeGcfhW5yZT054cCEv2anvXVYePzbhVKs +DzFhdHherQz7ilugr7YzE248O6GiNkKhwCq7zcuHmZDqrtEv+R3XT3DGJ9GZ +4H5SzmHyPwppt9AZL84zIVNeRuWvCQp9jFcRVIpjwhZ+syfsOQqVImGv7/FM +SHOIeW8/j/Mn5ptKbjHhynpTKMGmHWgK009mwoPahg0eC3j9ODxnre8y4TrZ +2f+EopDZ2azPgcVM0P5gGO66SCE5uX9095Yy4SH/7vlC7PmWs7dWlTPhNHmr +cRE7RxVZxz5kgmfjOofknxT63dv7NLeeCVbViUEtvyhUZSVb0NbMhBczgmWi +fygU9ZOLJ7GFCYaddF8nbHrB6HHXViYoJCvcSMMW5a6XHW5nwte4lBqlZQp5 +P3a5udjNhNuqPzi3crCRkkZSgDLJhGsJ3U4buNjo58fQ9/+xmMCla3XYGbsj +kqlV9h3nhThXxGOHDe4cNRhnwozHsiv3Kjb6kvL+iO0cE+imtomD2AmrxUwv +chIgLqqfG8zDRg2zvW7+qwiwrhU5XYE90lvk68NDgFqVlhsL27DKJIvOT0DK +R4Uqa142YnkE/rIQI2DjBlNz8dVsJGplKm66loCoHXx2+7B364mro/UEiESX +XzqLHSdc7KQtTcCQzN+ur1fa6/srZDcRsGZqbMSXj42I/OLm9UoE6C3d2ZaG +HRcX1L9GhYDVi93p/2KziLXC3OoENBa/nRLhx+1rzb3GtQjYd7HQJwO7/s/a +cBaNgG6OyulGbPK/gdsDOwlIH1lK7cfe9fTi8w/6BOjf16fLC7DRsHep/BMg +oPrZ6eZ4bBGXYJ1HRjjvTuHlYmwD4/1WFSYE2KybYL7EjpUeCsrfT0Bc4alM +NnYtd1lcpgUB9zRTKBFBNvo2FXw/1YoAHpVKfxVs/Zfru2LsCPDKTiRtsekV +Q2PX7AmYsrD/5Ikdk17G9bcjAWPlrJkA7CHfA1oBLgR0HrmUegdb+KiE+bnD +BByPDNn8YCXvwLcjp9xxfxp7eupX3t8YGnXUg4As8aW6j9i1AhY5LnQCXGZn +h4ZX8hYk6uwZeL6vZ9JmVvIGv7VbEQQ8rPxTsLSS11rOMvMioCtU2Gy1EK7v +UehvOEXArPZrfjHsmByLdbu9CXA8tH1eGrs2RnKLjg8Bral7eBSxhwKH920/ +R0DP9IyhOrYQo8JF3ZeAggiLtO3YerZhZ5X8CfhaZKqgs5K/y/KqXAB+nmvo +jQF2tIpUhmQgAbnO8nf3YNeIkg/FLuLxly4mAfbgr4oWwRCcZ+pXY7SSPxI2 +yBNGgGj8jSVjbN1Oyx/L4QTE7EEnTbD/DzvQAnM= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.9887929549829119, - 1.0113097844802965`}}, + "PlotRange" -> {{0, 180}, {0.6757549122102107, + 1.4404949294292664`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.9887929549829141}, + "AxesOrigin" -> {0, 0.6757549122102122}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.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 +6383,132 @@ WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.9887929549829119, - 1.0113097844802965`}}, + "PlotRange" -> {{0, 180}, {0.6757549122102107, + 1.4404949294292664`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.9887929549829141}, + "AxesOrigin" -> {0, 0.6757549122102122}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 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:eJwV1Xk4VdsbB3CEzKEyRjKFUjoylVpvxjKHDFHpOGenkgq5ZMotdcsQkiFk +LmQOIfnVTSUJKZrM2UfXPO6TUn7LH/vZz+dZe3/Xu9baa+1N9LP2TC4ODo7v ++Fq5n2/btvlRR9tekQbOpuZMEu2dzNOhmxQjvqxBasUDmbqJyiYNaHV36M3X +2HaMt7xC2i9QEL07pgW7IjD8OY9JK4q2Gpt5g339pdTT8KJ3iHa34fFb7LqO +83eXaF0ogWEx1o49+qUlJOjxJ8QoS7zUiS1DKrlRxj3IIz4tuAvbcirEwK+1 +HykqHOv5hN24NCoYWDSItPz7c3qwuyMkg2t8vqGugg3tA9iTvCaj8zQSHemR +OE5i80afc9Vms1DL9jaXUWx5sYzm84+/I91XRjVT2Day1L1J43Fk7MHI+YVN +ZClKaPJNIoNasR1cWSQKV7GNPN06haY5QlX4sT9JftjhXzSD5rVikRQ24/Cp +k7eiZ1FO5E6mAvZ0Okd2pc8c+pKfOq2GzaeoKTpDW0DWxtn6u7ETGc/NRddT +iNfUZMEEW+G+a/h2NoVEZO9L2mLrb706eebxD/TOuySGge2l2986aryE7nu+ +2JuIPR94gVtA9TcaLj+rno196bGgoTrfH+Tq0xNUip0C+g9OtC4jq8Y/li0r +9eU3m/gWcULY3Plq3mwSFb28NRAhywWsyV1tEtjTI0dD4qO5wLL0tdVm7BCN +hYflPqsg13VX8AHsxLJNSlM0HqBUAzISsL90jDf+yeWBl7MXh/OxFWYfHRZZ +zwsQeyC+Drt4p02CJpsXqs6ZbRjCbqq7yOn9mA/4trSz9XJItPD8ff93YyGY +lC54QWGLWwmJBjcKwXCwU5J4Lom0PpiAsIEw9HRX9m3DPjVcnbVjmwgsGwZ1 +e2Gf42rV2iMkCixBF/oQNqlYOhNJiUFBncn4WB6eH6KFv11bHFZRlvpr8knE +9YC1Seq8OPgLiC/RsBW0N9oXjYmDUWj/aDD2YeO4yraBtSBflc1ce49E7Z6+ +fpJv1kN3+mCHy30S9d2PjfLgkwA7vTOpl7HHx4pyC00lID+o9XMptoD/t/e7 +n0rA8YeC//IWkMjkiuNOj2pJCOOu0WrArs/TXSjIlIYuszX/7CkiUR75M2CX +vxz0t1ho3Ckh0f5D1/r8SuRAzv+6VAf2eNNasxKWHLzad/YsbymJduZtXa/g +Kg8vonSd/bGb6Ecf8uzdCIb7B0QOlZFodmrgr++XFeB1sLCCRgWJ1p4xqXpo +rQhFue+6FKtJxMoT8LI7pQgaf7R7mNi1PR2yE1cVoWrjBctCbHerI5dVnyrC +nnNpjB01uL4tAfapNCWwmCmNMHuE+x+9Px0mqQwqtuVeV+pI5HhCUNNiUAXK +1zz4YdNIIhRwiOb8WwX2SLtFZWBrRGbqMaRVQS1F8vI4NkeutlHYQVUoS27M +jvofiUr63Jwrn6kCTypnettTvD+diiNkcjaD82arqyee4/pMrLtH6ergLcVp +RDaTKNch+Ss7TB0swjIvwmsSxdIHB7jT1EGbniiVjs24dGFM/r06XLsVdcWx +hURiDRkcDsYa8K12YUPLG/z9aE9qPFbaAn+Ysweb20gkq3gzPGp4K2y62dcn +2kWihhvz6otcmvDR6uadCGz3OdcPxCZN6JccejuLfbdJWd3oqCb4bg5J6+4m +keKJ+s4fHzWBUhvpzP2Ex1tMqhBvtoEpR2u1Yw+J5GTlCQVXLTiXpECIDpNo +a76/0C9Eg9HYbJvpeRLRGZcXNG1oYO0ffPXCAt6vSgl9Hu40IHOIzb+wV+WU +lb8MpAG1OzxvNRvvt7ujjgkVNOC8IR+tsojP0xSPDHUlbVDnNl934Tde3yir +bS68OyEjz0LRk5eFsn2V7apbdWBzu51wiDQLdQQgvSv5BtDiIrL91n4W2nS0 +y+aI9x7Y+3v/y4AwFmIu15TKBQHMRj8zv/+IhSTHaldL0o2A3f1u3u43C/lr +G/YkaJjAVp7zE1mmI4g+sdS8dtQUNHh/fvS5NYJKjPxWZ7abw8vUpLbKqRGU +N3/qWXHiAUiiWRiC9Xf0Y5/U26ZwS1DozRQg67+jXo5VM4PHrcHXKSF7Ydt/ +yGfD2bgIJVvQldik+SbnP1R6svnp7Ug78DnvGvRcbRRdnJNmbzl5EKqKrIsL +SkbRgoWZ06tj9hC5eoZf12wMGbjF7yMPOkDayTzjpOEx1CmdcapJ2xGk+T2e +ToSPI5l7lxsK1A7BK1OqJVBrAtUOaFjZCDuBgZcIZ23PBJL/MH0iYMIJCoMO +D5lETyLt2/HFuQPO4Cuq5v3u4BTK4J7blvDcBWy/HOzdwTeNavZt/xJZ5wql +Jr6+0b7TKEXvhthS0WGoVx62reqdRu1f869qR7sBrSVgucp4BlVbpyufu+QO +p3lf3BSrmkEzZxw4fBhHoEe24pWY/CxaMFP3mjQ+Co+Gv6kGXZ1FBROff/jp +HoPYdHZ7JnsWuWTnex4R8gDJZ0lJ7h5z6GGl5bFV1zzg+QNHa8WOOWQg27l4 +fdEDTFWfLf/RmUdKAye+vDt5HOqvhriXJM2jYcHTtunfjkN0g0kq96951BFr +42l+iA67DnIfD3NYQImBmYIXOuhQvjFRr7J4ATU0Li96HvCEJ44+06FLC2iN +O1zTrveEbLtPOjKIQgrrXrVvaPCEuDXB+9WBQlqt1lK8jZ5QSDvQqLePQvaG +boWfnnmC/XRYp70xhRI3BLwJfe0JkeSPpAhzCsn0PljT/MkTEuSfHnlmSyHl +o5Ip7mxPcPJ559h8jEIGHpMFkTsZUHT0etdIKIXupU772egygNJoq2kMo9C6 +97N7JfUZMEfzXXU7nEKTpuwPBbsZsK1zRx+KoPD5xcHZasSAm1n8t2Ov4P8q +W8xV/CAD9F33Dq+JotBwjA5/5hkGpERNTGYlUyj2ccjJ2nsM+O1ktXu+lEJn +aMkGgQUM4NribJZdRiGrwgp+/SIGmPnZ1VmXU0ggmVX4qIQBwik3uvMqKBTp +azdaU8UAIb9/Ri2rKBSirny6+l8G1Im6uYfWUehU8hvvyj4GELruN7yfU+iA +CMvQd4ABKo5Oh3ibKKQWySFMG2JAdYzDlUxslq9OSQXJgOtCg8IdLyh03CZz +onycAUx38Vb1Zgq58Pj5lP1kQN/p4K//a6WQuZ/MuWIJJggsZ0Vc6KLQv5lX +LRKkmNCWpjHL200hw9ZZ5UAZJgQtLt5LxtZSefPZWJ4J/UZkT81HCkl/DDb+ +qsIEaz6ngPHPFBrb1SshoMMEmWTCeGcfhW5yZT054cCEv2anvXVYePzbhVKs +DzFhdHherQz7ilugr7YzE248O6GiNkKhwCq7zcuHmZDqrtEv+R3XT3DGJ9GZ +4H5SzmHyPwppt9AZL84zIVNeRuWvCQp9jFcRVIpjwhZ+syfsOQqVImGv7/FM +SHOIeW8/j/Mn5ptKbjHhynpTKMGmHWgK009mwoPahg0eC3j9ODxnre8y4TrZ +2f+EopDZ2azPgcVM0P5gGO66SCE5uX9095Yy4SH/7vlC7PmWs7dWlTPhNHmr +cRE7RxVZxz5kgmfjOofknxT63dv7NLeeCVbViUEtvyhUZSVb0NbMhBczgmWi +fygU9ZOLJ7GFCYaddF8nbHrB6HHXViYoJCvcSMMW5a6XHW5nwte4lBqlZQp5 +P3a5udjNhNuqPzi3crCRkkZSgDLJhGsJ3U4buNjo58fQ9/+xmMCla3XYGbsj +kqlV9h3nhThXxGOHDe4cNRhnwozHsiv3Kjb6kvL+iO0cE+imtomD2AmrxUwv +chIgLqqfG8zDRg2zvW7+qwiwrhU5XYE90lvk68NDgFqVlhsL27DKJIvOT0DK +R4Uqa142YnkE/rIQI2DjBlNz8dVsJGplKm66loCoHXx2+7B364mro/UEiESX +XzqLHSdc7KQtTcCQzN+ur1fa6/srZDcRsGZqbMSXj42I/OLm9UoE6C3d2ZaG +HRcX1L9GhYDVi93p/2KziLXC3OoENBa/nRLhx+1rzb3GtQjYd7HQJwO7/s/a +cBaNgG6OyulGbPK/gdsDOwlIH1lK7cfe9fTi8w/6BOjf16fLC7DRsHep/BMg +oPrZ6eZ4bBGXYJ1HRjjvTuHlYmwD4/1WFSYE2KybYL7EjpUeCsrfT0Bc4alM +NnYtd1lcpgUB9zRTKBFBNvo2FXw/1YoAHpVKfxVs/Zfru2LsCPDKTiRtsekV +Q2PX7AmYsrD/5Ikdk17G9bcjAWPlrJkA7CHfA1oBLgR0HrmUegdb+KiE+bnD +BByPDNn8YCXvwLcjp9xxfxp7eupX3t8YGnXUg4As8aW6j9i1AhY5LnQCXGZn +h4ZX8hYk6uwZeL6vZ9JmVvIGv7VbEQQ8rPxTsLSS11rOMvMioCtU2Gy1EK7v +UehvOEXArPZrfjHsmByLdbu9CXA8tH1eGrs2RnKLjg8Bral7eBSxhwKH920/ +R0DP9IyhOrYQo8JF3ZeAggiLtO3YerZhZ5X8CfhaZKqgs5K/y/KqXAB+nmvo +jQF2tIpUhmQgAbnO8nf3YNeIkg/FLuLxly4mAfbgr4oWwRCcZ+pXY7SSPxI2 +yBNGgGj8jSVjbN1Oyx/L4QTE7EEnTbD/DzvQAnM= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.9887929549829119, 1.0113097844802965`}}, + "PlotRange" -> {{0, 180}, {0.6757549122102107, 1.4404949294292664`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.9887929549829141}, + "AxesOrigin" -> {0, 0.6757549122102122}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 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 +6518,8 @@ WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.9887929549829141}, + AxesOrigin->{0, 0.6757549122102122}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -1712,7 +6547,8 @@ WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.9887929549829119, 1.0113097844802965`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.6757549122102107, 1.4404949294292664`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -1720,9 +6556,9 @@ WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991333813212965*^9}, + CellChangeTimes->{3.991333813212965*^9, 3.994041365617758*^9}, CellLabel-> - "Out[251]=",ExpressionUUID->"fdd0f260-414f-a94a-8f26-cd86e676700c"] + "Out[116]=",ExpressionUUID->"19ee7a84-e753-42aa-b897-b9c038d418c1"] }, Open ]], Cell[CellGroupData[{ @@ -1737,7 +6573,9 @@ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -1759,8 +6597,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -1785,372 +6622,175 @@ 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[117]:=",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[\\\"4.6045487998361875`*^-266\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 117, + 13, 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333813432829*^9, 3.994041365815659*^9}, CellLabel-> "During evaluation of \ -In[252]:=",ExpressionUUID->"546a9ea9-5939-f84a-87c6-58844f58f330"], +In[117]:=",ExpressionUUID->"cf1daef8-f7ab-4e52-9962-d74a8371f513"], 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[\\\"4.0502939356276367`*^-277\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 117, 14, 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333813432829*^9, 3.994041365818811*^9}, CellLabel-> "During evaluation of \ -In[252]:=",ExpressionUUID->"b36bffd7-1c84-5c45-a847-b2c31968f579"], +In[117]:=",ExpressionUUID->"4be62e82-8d44-4373-b953-4c81d05aeed2"], 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[\\\"3.562755370421014`*^-288\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 117, 15, 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333813432829*^9, 3.994041365821595*^9}, CellLabel-> "During evaluation of \ -In[252]:=",ExpressionUUID->"c864bef7-fc73-d94b-8cde-14570cba8095"], +In[117]:=",ExpressionUUID->"09106f92-b0af-431d-ade3-a7cc8938b6fd"], 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, 117, 16, 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333813432829*^9, 3.994041365824089*^9}, CellLabel-> "During evaluation of \ -In[252]:=",ExpressionUUID->"a2e62375-acd2-6740-bfd7-026877c5bd7b"], +In[117]:=",ExpressionUUID->"04e080be-0b88-4d54-b5ac-47e1ba2b572c"], 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:eJwV13k4VesXB3DRoJQyy7jPMWeoEM7htFamkMhUZkoimRM3mUs0uaIiEglF +wtlJplKGQoWLRKSB5Mp4M1XKb//+Os/neZ/nvGe/a63vuw/tUIC1JycHB4fq +Cg6O/3/OD7Y0yl7I2xl9/VJQt7XBzu6boid39caBivZ8Z0MVDVCo/ZBobwoo +RZlwZlZth9B9RW+5enNhl2EoV3TVLuCbFEn58ZaELwqeRdZVVvCh1iJg9m09 +uAytFmuoPAjGsmPvZ952Qvso9/jViiD48Vb76vTbz5DZfM5y/H4sNBjcyfsn +9ztwWxV822WYAhIfqkYOqfyGSzN3jtu9yABBX7eiNQZcmKzKOlfvfAtSthvX +WNhxY4btiI7BoXzoS9/2dGbTBuwwvuyzouMuXMiLbufczIejFitOZ0sXg5nm +UX4hGT58E3SYp1q5GLgbre0UVPnweBQcfa1dDGeG5Pr37OLDSX+/G4OWxRBB +fzVy5Sgf8ks05BZFF4N/jugf+Wo+ZF4izL6+LwarG2yVPU78eFpDMHz4yn0Q +uTJ0LjVLAGt2mcqdGS8BUeWHZxYLBHBxQZElOF8CYvVno13KBDC/1JKdtVwC +UtNKJxQaBNDpQ2nhDf5SkDMPdK8ZFUAf56kqM51S0Fj5W2tIQxBXTLxwOBJX +CpYhwsPqrYLosOk1byt3GezjGR1M6xLEE12ebfIbysA6t6pvaUAQmUftlWP4 +ymB/h3P78ylBfNkXU6MoVgYuKrerHYWEsMHnuqKVchkcG956Oc5dCGsbMt/+ +MS+DBFvTnZ3zQlh8WL+79VIZiJW3iXGuEMazotz7NqaUQYmA7cJ2HmGU5jlf +b3mtDHo6XcsuSwvjCiXd8403y0DWKoRuZSKMbfqL1yNLy6B+b/bqjuvCOPXU +0U+1owx+G8+1vdYTQYt23VexvGxILgi/99tYBNPtXWMM+dkgu5ojUdVKBHep +CNC5hNlg3rRu1yVPEZxvP6kaIsmGDAPigXmSCN6binKTU2GDDu5Je/lBBCVP +Pt7YaMKG44xbbi1xouj+onRyJooNZjm8s3suimKBuNLkz1g20NdEJLZdFcWX ++0lXjng2dHTvZ3fdFcUHaRypHBfYoBa4nmuwTRSNPtBNe66xYbQgrOA/sc34 +6g7vbM99NjgLWkyIP9iMZ5tcn6v2sUHjVE3szdrNqHSkk6upnw3rPisK055v +RtMf0+X2g2yoKuUC+b7NKP+2PfjEEBuE91Qlb1vejA/jqw+emaD2j5XVNNoj +hj60bTsWOUgwnPoZ7j8khpX+FjsYciScNLmy5dm4GPZlvou1VSCh5JbqO4F5 +MZRadvD1VSJB1NadUcUtjpIKVhIpqiSMVzYtcKmJo+PStunyHSSkxiWHXP9L +HF2yz96zNyKhuV9JdjxWHKMkF3+ydpOwpNnQtfOCOAq+NJ+QNiXhyNc59eEs +cVSt/VPTZ04C09xpRq1BHKVL7HjkbEn4LCTv37hBAtNMUhrEDpEgElAnKSIi +gd/FPH1bPUgwb7Z/fZSQwJXJa5+EepJQEX5BZaOGBJ7R8nRp8ibh/IfpMQd7 +CdTzm0xjBpCgXljjNZUrgT8T7jrFnyIhVs/qoJiOJL4OrDHLvkyCievN/7T1 +JbGg/GAARyoJvDHfTtuZS2L/Y3aFyxUSbjTEFyS7S6LJ/Z+l69NIqDSr/rb6 +nCSKdim4690gYdpeJvR7nyR+c223Hson4VF44Bq+YUkse908u/oOCVE3Hqer +TUriW97iRvm7JKz/eKDmKKcUFiUpzzgWkaDgdZHj4xYpLGjRSLlaQoLribnz +r05JYc908i3bChLk0vQlxuKlMH9WPkr30f/P/+/7a5KlMKKRdlWqkoTwJaUO +/TwpbDqddKKvioSrp12Fql5JYciT0yL0xyQ4598r6OmRQt0NYYNjlOkvFrVn +P0qhoW70SOkTEsrWpTpunZPCwTC9x2pPSXh1+UV2vqQ0fhIvzVqup+r7QHB7 +g4I0Sg/Fxxc1kOD45mD9x+3S2Mzv+9CqkYRR0aVhcWNpnKj8MX2liQSunG1b +Uvyl8flqt+nJFyS0PousKf2LWp+f2B7RTELyUKv56zhp7O9sr1/VQoKUgmcA +d5o0Bh4x6NnQSvVDyfXyqDppNOhXGpx5SfXr27bfk83SuCrwt53jKxIsOFbu +duuk9pfpy6qj7GHt3wdfpPFte0tOzGsS/E/dppdNSuMW8yCXAcp/5fUeIxal +MXzSaEKzjQTjU7TomFUEPn+Yd26A8suNtbd11hE4MvEiTbmdhH15+5uneQnc +FmQWEUbZ6fUFvoOiBPYF3H25qoOEjwfltTZLEth0SkbHhPKR+aeO/9AI7PpP +LyqBcqD0/O1dygTqi6dmLFGee5Dc/GMrgQ3NJ4LV/6HqZaI8wdYk8EyvvoIn +ZY73TXw+DAIrjdqrrlCOD3LXou8kULNnesszyutW/3J8p0/g0OaoU2OUkzOu +RqfsJnCHj0Xxpk4ShLZuyzMzJzDhX8YTDcoZDa3NnFYEXo/bTNpQlrb3nKi2 +I3DF6PPEQMp548t8xx0J/DtVwuA85S2xGVrKbgTWNs19yqFcKrTDaciDQLl4 +tSPllDWL2qMzvQkcy7rd0Ui5eqdPno0fgbRb6vROytC1soUnmEDT4SqnAcqN +XtkTDaEEFsWIRg1RNl1i8EecIvCNtdr5r5Tbkru1NGMI/PWjP2aUsq1cgNP4 +GQJ933J6jFDuq1obk3eOwIUN8ds/UXa1yMtzTiLQPdZoopfy8OedLYKp1Hm+ +UUh7TfloWN/EqzQCOQM2baujPMkTwh9/g0Bm4HDlfcrHc3i1WbcIlKo5p36d +8qJmodNcPoEBUyNZsZSjWgxi7hcReMhn6NcRylyug3mepQSuM/baa0o58b+/ +WiTLCXxl75SqSJk3QWDyTSWBDzQL21ZSFi0z0TauJ9BEe0mxnKpPluGQ05/n +BDoo9JomUKb3RcZUvCRQPbjG4wBlVc4HLfJvCMzJ3nt2kuoP8treycE+6nn4 ++pIfUtZRHuVPG6TWl2TTT1LWt5V0XjNK4D6tupxFqh9fjD6KqRsn8OeLqdsP +KJtHWueHzRD4YX/+nWOUDxQkTH79SeB98lh5J9XfvoszMc0baLjkR/8TQc0D +M+iI8Ag/DX9UBm8Xpcw99u4elygNJ+6IjJZS85Tf39Czk07DoEjr4W5q/gaf +XFV5qEXD7kFP3TlqXou119V36tKwJVKtOIRyeFnUgWmk4Ttps6Jpar6Fc73i +lPfQUET1gs0gNf+W8YzeW240bM0ciEym8kHqz32/usM01OP/EDFL5cd4KJ3r +/VEa8qb5CdhRTvTmURMNoeHCAef166m8ebrn/emkRBr6fpm2sqLySZ0/dusp +Ng0DzK2tmdXU/FyYa0yvoOHcOaaXN5V/bVw+jhU1NHxe2KKYSuXjsTnr+Jkm +an0eHw1SeZrXK9vv9Y6G3pUxChYPqN+b3XzWlouO3/P3J/x9j+ovEZZEMDcd +N66krTtH5TOZzGb/vYGOcV2xltGF1PPEZQy0itAxze6mwiEq3xM9fdV3qdBx +iZ2iueI2CT+UNw2q2tGRM9H9T/51EuazxGI1HOlovuekSHA6CbMb5WQZbnRE +HgEFXeo+mfzO8DE8SsfoJ7i1kbpvPtd4zDtG0lHEZ3wt+TeVn3se8Sbm0/Gz +/wfJP2eo+T7mCp/n6Ph1fPDCQT8S0t57f/76k9qvok++/RgJVyyPx08s05F/ +Gb8wfEhI0kh8ubhWBjdsFOtc7UVC3C/2gY1SMhg+EHYlyp06nwurAvWMZTB4 +b/mKr9Yk6N0rzrl2TQbb/516kU/d7/3EvWyjTBl0aD/f3a9B1fta4c3ZbBnM +3DxycaM6dd/FFtywLpTBk7fqVgWqUfWxz0nnrZXBkRwWU4h6n1BadSX57CcZ +XKcb9GxGhDpvt1MxoSqyeIQdOfNrgQ0z/Gbu++tlcdn1yPpMNht6fekdPi9k +sU3VSluglA1Pn/+E6Fey6LU9kutcMfU+F35P+m6PLN7ep3TW7w4btn1e/+HH +mCx2XOs6JJbFBn92u0uWgBzybd8ztjKRDWOWdk7Dh+WwJ8ClUdGZDcMX3fcH +r5FHmabsTu4/ZWA6FWb6RUsBnbWyln4zymDcg/t4ebQi7t6hdI0/o4T6PyHC +mVCvhN5ksPd/t4uB/7V8UtnUFnyw+nt5XFURSCSW7tPSUkGnnCij3vS7kK7M +2CTgpYrCyHso+HoBtIrt2vH9shoa89fsIwrzgClRn7y1ZysqdtAWGzNzgZcr +N+Rg3DY0qtQeyWnIAalYaT0H+e3YFLn18WhVFqyVc66wfrEdIwaankkwMkCN +tbk0zEUdmRyKe/XV0iB4kL/BjEMD656o4YjMFZj6ftHONF0Dj/k9SFu8eBl2 +b32eYaqqib/tjFaERibBk++6vxbaNHGl959VnsvnwF9F/d0/njtQI2qU56Hh +WWBNHu52WKuFmS+ijFaVx4GRrOjeDblaGB+88I/5tWhQjDn/V722Njp4JVo+ +yAyHLZ6MOrl32ti6butRle8nwPOJ95nyIB1cZ2mxY79uMEz6jYUZhejgYN/L +faEqwfCXpO+xnlAdrF7gzcyRDIbzEQHWi6d00Ppj2h0BjmAoY4YSemd1sNap +lv94UxAsVZyubcjQweeJEo381kGQUnpztrNBB21mU23J4ECoy+k+PCPEwDVH +4/ZV5PjBR3OaW6goA/uPRzhpJPoBxw8/h19iDPSQeZ/7LMAP9K3WWKwiGMgz +rlbPB37wfAVTe/MWBgbY8hlED/rCq0PZa3ftZOCvNdW2CYQvvJP1KUk+wkAL +55yD69k+MHt3eWHrIwbmna/8b36FN4zsN845V8VAAZMNnAOTXtC78pLJUA0D +uysa6G39XlDjLnb92lMGBhpER/Q99II40R3M3y0MbG141nbBxws2JfpEtA4w +0NXW/5N9zxFQ8XrD4cnJxKTC13WHH3mCh9y9tRl7mVgG8oKtWR4Q3uTqI7+P +iSb5LNnDFz0g2ZP/JWnNRPWVg2k8pzygNv/kxZcHmNhT+jExzt4DBOVNNv4+ +yEQoLCjeKOgBz+W/CLqHMrFEd+Bd9qVDsEVRmpDPZmIgG/3dzh+EmS2pWuQ0 +E2tzbVoMrdyg9xUaCXxnYs5H0bgULTd46j9pEzLHxNlIQnFW3A2SSNMgrZ9M +nE6O5/k+4gpbmBzF1Vy6+OVLxvv3ka5wyNSP1iCsiy6XbdVcSl2g22v3+m49 +XfwuNHCylHCGyrxfn+YSdRGHv+wTYzqAlkHIgtkFXXzI4TNzQtYBHn4aX59z +SRcDScnZT7wOQEoNapul6CJ/8tL82JA9FKc/vXQzUxdzSqa66pLsIediPGN3 +iS7uu8O30vfrATgXsvFyepcuZup/+C8hbz84GsqgrpQe1qnttynaYwu/u7l5 +Gwg9DDWW6TXXsYUcz8l+Mxk9tDsq3LwsawsjZ6vCHBX1cIHMrb72xwaCWyxL +T6rrYcVx/rwE0gbOW0RIVRrr4WphJZ9jkjZQbf9mSTNADy+VT/B++2MF4n4J +VWpP9fCjnUv4swFLSFo+suNCvR722/r15tRZAmeKMftrox6Ocb/nTs+1hLGK +VYU5LXoos3D85mtvS6jmOJPO36WH779dfW0zbwGOV2LC5r/ooTxtw6fHQhaQ +XnNyxxMeFlaJhHakeZqD0Dpf9t4DLORptL41b2QKeQaR4dMOLLz97zapJGVT +UI9MMkh1ZuGSKBG4k88ULKbL3vQeZKGl0gP9fwdM4GzP3A8PXxYyV64I9jxh +Aou50frhsSwUvHc+a6RoN7zTTe0quMdCrYHHH04rGIP3ibwbpiUsHOg2nN64 +yRjmSx56jpdR33937Ci5aAT89N6F7RUs1PxhY8FsNYI93JISj5+ysKjk7x4b +fyOo7S443PWGhes/8g1nVRuCGW+lamgvC6caLcYT8gyhd3fLvGg/CyvcVZkJ +SYYwW/0t0fUjCwuDrro1HTIE1Vvb7v87xkLxMwKfWOsNofbdrtCLEyxsmV0v +3zFvAGaCNrB1moUXQ71lwj4ZwJGEE/+EzLGQUXx2BdcjA5h9ejZDZJGFzmYJ +dV9vGUDczzSP6p8s9Gz0nP540QA2aRaquPym9js8GDcZZgA3/arnlpdZeEmx +ynOThwH8D360qYQ= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -2164,331 +6804,130 @@ 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:eJwV13k4VesXB3DRoJQyy7jPMWeoEM7htFamkMhUZkoimRM3mUs0uaIiEglF +wtlJplKGQoWLRKSB5Mp4M1XKb//+Os/neZ/nvGe/a63vuw/tUIC1JycHB4fq +Cg6O/3/OD7Y0yl7I2xl9/VJQt7XBzu6boid39caBivZ8Z0MVDVCo/ZBobwoo +RZlwZlZth9B9RW+5enNhl2EoV3TVLuCbFEn58ZaELwqeRdZVVvCh1iJg9m09 +uAytFmuoPAjGsmPvZ952Qvso9/jViiD48Vb76vTbz5DZfM5y/H4sNBjcyfsn +9ztwWxV822WYAhIfqkYOqfyGSzN3jtu9yABBX7eiNQZcmKzKOlfvfAtSthvX +WNhxY4btiI7BoXzoS9/2dGbTBuwwvuyzouMuXMiLbufczIejFitOZ0sXg5nm +UX4hGT58E3SYp1q5GLgbre0UVPnweBQcfa1dDGeG5Pr37OLDSX+/G4OWxRBB +fzVy5Sgf8ks05BZFF4N/jugf+Wo+ZF4izL6+LwarG2yVPU78eFpDMHz4yn0Q +uTJ0LjVLAGt2mcqdGS8BUeWHZxYLBHBxQZElOF8CYvVno13KBDC/1JKdtVwC +UtNKJxQaBNDpQ2nhDf5SkDMPdK8ZFUAf56kqM51S0Fj5W2tIQxBXTLxwOBJX +CpYhwsPqrYLosOk1byt3GezjGR1M6xLEE12ebfIbysA6t6pvaUAQmUftlWP4 +ymB/h3P78ylBfNkXU6MoVgYuKrerHYWEsMHnuqKVchkcG956Oc5dCGsbMt/+ +MS+DBFvTnZ3zQlh8WL+79VIZiJW3iXGuEMazotz7NqaUQYmA7cJ2HmGU5jlf +b3mtDHo6XcsuSwvjCiXd8403y0DWKoRuZSKMbfqL1yNLy6B+b/bqjuvCOPXU +0U+1owx+G8+1vdYTQYt23VexvGxILgi/99tYBNPtXWMM+dkgu5ojUdVKBHep +CNC5hNlg3rRu1yVPEZxvP6kaIsmGDAPigXmSCN6binKTU2GDDu5Je/lBBCVP +Pt7YaMKG44xbbi1xouj+onRyJooNZjm8s3suimKBuNLkz1g20NdEJLZdFcWX ++0lXjng2dHTvZ3fdFcUHaRypHBfYoBa4nmuwTRSNPtBNe66xYbQgrOA/sc34 +6g7vbM99NjgLWkyIP9iMZ5tcn6v2sUHjVE3szdrNqHSkk6upnw3rPisK055v +RtMf0+X2g2yoKuUC+b7NKP+2PfjEEBuE91Qlb1vejA/jqw+emaD2j5XVNNoj +hj60bTsWOUgwnPoZ7j8khpX+FjsYciScNLmy5dm4GPZlvou1VSCh5JbqO4F5 +MZRadvD1VSJB1NadUcUtjpIKVhIpqiSMVzYtcKmJo+PStunyHSSkxiWHXP9L +HF2yz96zNyKhuV9JdjxWHKMkF3+ydpOwpNnQtfOCOAq+NJ+QNiXhyNc59eEs +cVSt/VPTZ04C09xpRq1BHKVL7HjkbEn4LCTv37hBAtNMUhrEDpEgElAnKSIi +gd/FPH1bPUgwb7Z/fZSQwJXJa5+EepJQEX5BZaOGBJ7R8nRp8ibh/IfpMQd7 +CdTzm0xjBpCgXljjNZUrgT8T7jrFnyIhVs/qoJiOJL4OrDHLvkyCievN/7T1 +JbGg/GAARyoJvDHfTtuZS2L/Y3aFyxUSbjTEFyS7S6LJ/Z+l69NIqDSr/rb6 +nCSKdim4690gYdpeJvR7nyR+c223Hson4VF44Bq+YUkse908u/oOCVE3Hqer +TUriW97iRvm7JKz/eKDmKKcUFiUpzzgWkaDgdZHj4xYpLGjRSLlaQoLribnz +r05JYc908i3bChLk0vQlxuKlMH9WPkr30f/P/+/7a5KlMKKRdlWqkoTwJaUO +/TwpbDqddKKvioSrp12Fql5JYciT0yL0xyQ4598r6OmRQt0NYYNjlOkvFrVn +P0qhoW70SOkTEsrWpTpunZPCwTC9x2pPSXh1+UV2vqQ0fhIvzVqup+r7QHB7 +g4I0Sg/Fxxc1kOD45mD9x+3S2Mzv+9CqkYRR0aVhcWNpnKj8MX2liQSunG1b +Uvyl8flqt+nJFyS0PousKf2LWp+f2B7RTELyUKv56zhp7O9sr1/VQoKUgmcA +d5o0Bh4x6NnQSvVDyfXyqDppNOhXGpx5SfXr27bfk83SuCrwt53jKxIsOFbu +duuk9pfpy6qj7GHt3wdfpPFte0tOzGsS/E/dppdNSuMW8yCXAcp/5fUeIxal +MXzSaEKzjQTjU7TomFUEPn+Yd26A8suNtbd11hE4MvEiTbmdhH15+5uneQnc +FmQWEUbZ6fUFvoOiBPYF3H25qoOEjwfltTZLEth0SkbHhPKR+aeO/9AI7PpP +LyqBcqD0/O1dygTqi6dmLFGee5Dc/GMrgQ3NJ4LV/6HqZaI8wdYk8EyvvoIn +ZY73TXw+DAIrjdqrrlCOD3LXou8kULNnesszyutW/3J8p0/g0OaoU2OUkzOu +RqfsJnCHj0Xxpk4ShLZuyzMzJzDhX8YTDcoZDa3NnFYEXo/bTNpQlrb3nKi2 +I3DF6PPEQMp548t8xx0J/DtVwuA85S2xGVrKbgTWNs19yqFcKrTDaciDQLl4 +tSPllDWL2qMzvQkcy7rd0Ui5eqdPno0fgbRb6vROytC1soUnmEDT4SqnAcqN +XtkTDaEEFsWIRg1RNl1i8EecIvCNtdr5r5Tbkru1NGMI/PWjP2aUsq1cgNP4 +GQJ933J6jFDuq1obk3eOwIUN8ds/UXa1yMtzTiLQPdZoopfy8OedLYKp1Hm+ +UUh7TfloWN/EqzQCOQM2baujPMkTwh9/g0Bm4HDlfcrHc3i1WbcIlKo5p36d +8qJmodNcPoEBUyNZsZSjWgxi7hcReMhn6NcRylyug3mepQSuM/baa0o58b+/ +WiTLCXxl75SqSJk3QWDyTSWBDzQL21ZSFi0z0TauJ9BEe0mxnKpPluGQ05/n +BDoo9JomUKb3RcZUvCRQPbjG4wBlVc4HLfJvCMzJ3nt2kuoP8treycE+6nn4 ++pIfUtZRHuVPG6TWl2TTT1LWt5V0XjNK4D6tupxFqh9fjD6KqRsn8OeLqdsP +KJtHWueHzRD4YX/+nWOUDxQkTH79SeB98lh5J9XfvoszMc0baLjkR/8TQc0D +M+iI8Ag/DX9UBm8Xpcw99u4elygNJ+6IjJZS85Tf39Czk07DoEjr4W5q/gaf +XFV5qEXD7kFP3TlqXou119V36tKwJVKtOIRyeFnUgWmk4Ttps6Jpar6Fc73i +lPfQUET1gs0gNf+W8YzeW240bM0ciEym8kHqz32/usM01OP/EDFL5cd4KJ3r +/VEa8qb5CdhRTvTmURMNoeHCAef166m8ebrn/emkRBr6fpm2sqLySZ0/dusp +Ng0DzK2tmdXU/FyYa0yvoOHcOaaXN5V/bVw+jhU1NHxe2KKYSuXjsTnr+Jkm +an0eHw1SeZrXK9vv9Y6G3pUxChYPqN+b3XzWlouO3/P3J/x9j+ovEZZEMDcd +N66krTtH5TOZzGb/vYGOcV2xltGF1PPEZQy0itAxze6mwiEq3xM9fdV3qdBx +iZ2iueI2CT+UNw2q2tGRM9H9T/51EuazxGI1HOlovuekSHA6CbMb5WQZbnRE +HgEFXeo+mfzO8DE8SsfoJ7i1kbpvPtd4zDtG0lHEZ3wt+TeVn3se8Sbm0/Gz +/wfJP2eo+T7mCp/n6Ph1fPDCQT8S0t57f/76k9qvok++/RgJVyyPx08s05F/ +Gb8wfEhI0kh8ubhWBjdsFOtc7UVC3C/2gY1SMhg+EHYlyp06nwurAvWMZTB4 +b/mKr9Yk6N0rzrl2TQbb/516kU/d7/3EvWyjTBl0aD/f3a9B1fta4c3ZbBnM +3DxycaM6dd/FFtywLpTBk7fqVgWqUfWxz0nnrZXBkRwWU4h6n1BadSX57CcZ +XKcb9GxGhDpvt1MxoSqyeIQdOfNrgQ0z/Gbu++tlcdn1yPpMNht6fekdPi9k +sU3VSluglA1Pn/+E6Fey6LU9kutcMfU+F35P+m6PLN7ep3TW7w4btn1e/+HH +mCx2XOs6JJbFBn92u0uWgBzybd8ztjKRDWOWdk7Dh+WwJ8ClUdGZDcMX3fcH +r5FHmabsTu4/ZWA6FWb6RUsBnbWyln4zymDcg/t4ebQi7t6hdI0/o4T6PyHC +mVCvhN5ksPd/t4uB/7V8UtnUFnyw+nt5XFURSCSW7tPSUkGnnCij3vS7kK7M +2CTgpYrCyHso+HoBtIrt2vH9shoa89fsIwrzgClRn7y1ZysqdtAWGzNzgZcr +N+Rg3DY0qtQeyWnIAalYaT0H+e3YFLn18WhVFqyVc66wfrEdIwaankkwMkCN +tbk0zEUdmRyKe/XV0iB4kL/BjEMD656o4YjMFZj6ftHONF0Dj/k9SFu8eBl2 +b32eYaqqib/tjFaERibBk++6vxbaNHGl959VnsvnwF9F/d0/njtQI2qU56Hh +WWBNHu52WKuFmS+ijFaVx4GRrOjeDblaGB+88I/5tWhQjDn/V722Njp4JVo+ +yAyHLZ6MOrl32ti6butRle8nwPOJ95nyIB1cZ2mxY79uMEz6jYUZhejgYN/L +faEqwfCXpO+xnlAdrF7gzcyRDIbzEQHWi6d00Ppj2h0BjmAoY4YSemd1sNap +lv94UxAsVZyubcjQweeJEo381kGQUnpztrNBB21mU23J4ECoy+k+PCPEwDVH +4/ZV5PjBR3OaW6goA/uPRzhpJPoBxw8/h19iDPSQeZ/7LMAP9K3WWKwiGMgz +rlbPB37wfAVTe/MWBgbY8hlED/rCq0PZa3ftZOCvNdW2CYQvvJP1KUk+wkAL +55yD69k+MHt3eWHrIwbmna/8b36FN4zsN845V8VAAZMNnAOTXtC78pLJUA0D +uysa6G39XlDjLnb92lMGBhpER/Q99II40R3M3y0MbG141nbBxws2JfpEtA4w +0NXW/5N9zxFQ8XrD4cnJxKTC13WHH3mCh9y9tRl7mVgG8oKtWR4Q3uTqI7+P +iSb5LNnDFz0g2ZP/JWnNRPWVg2k8pzygNv/kxZcHmNhT+jExzt4DBOVNNv4+ +yEQoLCjeKOgBz+W/CLqHMrFEd+Bd9qVDsEVRmpDPZmIgG/3dzh+EmS2pWuQ0 +E2tzbVoMrdyg9xUaCXxnYs5H0bgULTd46j9pEzLHxNlIQnFW3A2SSNMgrZ9M +nE6O5/k+4gpbmBzF1Vy6+OVLxvv3ka5wyNSP1iCsiy6XbdVcSl2g22v3+m49 +XfwuNHCylHCGyrxfn+YSdRGHv+wTYzqAlkHIgtkFXXzI4TNzQtYBHn4aX59z +SRcDScnZT7wOQEoNapul6CJ/8tL82JA9FKc/vXQzUxdzSqa66pLsIediPGN3 +iS7uu8O30vfrATgXsvFyepcuZup/+C8hbz84GsqgrpQe1qnttynaYwu/u7l5 +Gwg9DDWW6TXXsYUcz8l+Mxk9tDsq3LwsawsjZ6vCHBX1cIHMrb72xwaCWyxL +T6rrYcVx/rwE0gbOW0RIVRrr4WphJZ9jkjZQbf9mSTNADy+VT/B++2MF4n4J +VWpP9fCjnUv4swFLSFo+suNCvR722/r15tRZAmeKMftrox6Ocb/nTs+1hLGK +VYU5LXoos3D85mtvS6jmOJPO36WH779dfW0zbwGOV2LC5r/ooTxtw6fHQhaQ +XnNyxxMeFlaJhHakeZqD0Dpf9t4DLORptL41b2QKeQaR4dMOLLz97zapJGVT +UI9MMkh1ZuGSKBG4k88ULKbL3vQeZKGl0gP9fwdM4GzP3A8PXxYyV64I9jxh +Aou50frhsSwUvHc+a6RoN7zTTe0quMdCrYHHH04rGIP3ibwbpiUsHOg2nN64 +yRjmSx56jpdR33937Ci5aAT89N6F7RUs1PxhY8FsNYI93JISj5+ysKjk7x4b +fyOo7S443PWGhes/8g1nVRuCGW+lamgvC6caLcYT8gyhd3fLvGg/CyvcVZkJ +SYYwW/0t0fUjCwuDrro1HTIE1Vvb7v87xkLxMwKfWOsNofbdrtCLEyxsmV0v +3zFvAGaCNrB1moUXQ71lwj4ZwJGEE/+EzLGQUXx2BdcjA5h9ejZDZJGFzmYJ +dV9vGUDczzSP6p8s9Gz0nP540QA2aRaquPym9js8GDcZZgA3/arnlpdZeEmx +ynOThwH8D360qYQ= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "PlotRange" -> {{0, 30}, {0., 0.07353070398310273}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +6939,19 @@ qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "PlotRange" -> {{0, 30}, {0., 0.07353070398310273}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +6965,129 @@ 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:eJwV13k4VesXB3DRoJQyy7jPMWeoEM7htFamkMhUZkoimRM3mUs0uaIiEglF +wtlJplKGQoWLRKSB5Mp4M1XKb//+Os/neZ/nvGe/a63vuw/tUIC1JycHB4fq +Cg6O/3/OD7Y0yl7I2xl9/VJQt7XBzu6boid39caBivZ8Z0MVDVCo/ZBobwoo +RZlwZlZth9B9RW+5enNhl2EoV3TVLuCbFEn58ZaELwqeRdZVVvCh1iJg9m09 +uAytFmuoPAjGsmPvZ952Qvso9/jViiD48Vb76vTbz5DZfM5y/H4sNBjcyfsn +9ztwWxV822WYAhIfqkYOqfyGSzN3jtu9yABBX7eiNQZcmKzKOlfvfAtSthvX +WNhxY4btiI7BoXzoS9/2dGbTBuwwvuyzouMuXMiLbufczIejFitOZ0sXg5nm +UX4hGT58E3SYp1q5GLgbre0UVPnweBQcfa1dDGeG5Pr37OLDSX+/G4OWxRBB +fzVy5Sgf8ks05BZFF4N/jugf+Wo+ZF4izL6+LwarG2yVPU78eFpDMHz4yn0Q +uTJ0LjVLAGt2mcqdGS8BUeWHZxYLBHBxQZElOF8CYvVno13KBDC/1JKdtVwC +UtNKJxQaBNDpQ2nhDf5SkDMPdK8ZFUAf56kqM51S0Fj5W2tIQxBXTLxwOBJX +CpYhwsPqrYLosOk1byt3GezjGR1M6xLEE12ebfIbysA6t6pvaUAQmUftlWP4 +ymB/h3P78ylBfNkXU6MoVgYuKrerHYWEsMHnuqKVchkcG956Oc5dCGsbMt/+ +MS+DBFvTnZ3zQlh8WL+79VIZiJW3iXGuEMazotz7NqaUQYmA7cJ2HmGU5jlf +b3mtDHo6XcsuSwvjCiXd8403y0DWKoRuZSKMbfqL1yNLy6B+b/bqjuvCOPXU +0U+1owx+G8+1vdYTQYt23VexvGxILgi/99tYBNPtXWMM+dkgu5ojUdVKBHep +CNC5hNlg3rRu1yVPEZxvP6kaIsmGDAPigXmSCN6binKTU2GDDu5Je/lBBCVP +Pt7YaMKG44xbbi1xouj+onRyJooNZjm8s3suimKBuNLkz1g20NdEJLZdFcWX ++0lXjng2dHTvZ3fdFcUHaRypHBfYoBa4nmuwTRSNPtBNe66xYbQgrOA/sc34 +6g7vbM99NjgLWkyIP9iMZ5tcn6v2sUHjVE3szdrNqHSkk6upnw3rPisK055v +RtMf0+X2g2yoKuUC+b7NKP+2PfjEEBuE91Qlb1vejA/jqw+emaD2j5XVNNoj +hj60bTsWOUgwnPoZ7j8khpX+FjsYciScNLmy5dm4GPZlvou1VSCh5JbqO4F5 +MZRadvD1VSJB1NadUcUtjpIKVhIpqiSMVzYtcKmJo+PStunyHSSkxiWHXP9L +HF2yz96zNyKhuV9JdjxWHKMkF3+ydpOwpNnQtfOCOAq+NJ+QNiXhyNc59eEs +cVSt/VPTZ04C09xpRq1BHKVL7HjkbEn4LCTv37hBAtNMUhrEDpEgElAnKSIi +gd/FPH1bPUgwb7Z/fZSQwJXJa5+EepJQEX5BZaOGBJ7R8nRp8ibh/IfpMQd7 +CdTzm0xjBpCgXljjNZUrgT8T7jrFnyIhVs/qoJiOJL4OrDHLvkyCievN/7T1 +JbGg/GAARyoJvDHfTtuZS2L/Y3aFyxUSbjTEFyS7S6LJ/Z+l69NIqDSr/rb6 +nCSKdim4690gYdpeJvR7nyR+c223Hson4VF44Bq+YUkse908u/oOCVE3Hqer +TUriW97iRvm7JKz/eKDmKKcUFiUpzzgWkaDgdZHj4xYpLGjRSLlaQoLribnz +r05JYc908i3bChLk0vQlxuKlMH9WPkr30f/P/+/7a5KlMKKRdlWqkoTwJaUO +/TwpbDqddKKvioSrp12Fql5JYciT0yL0xyQ4598r6OmRQt0NYYNjlOkvFrVn +P0qhoW70SOkTEsrWpTpunZPCwTC9x2pPSXh1+UV2vqQ0fhIvzVqup+r7QHB7 +g4I0Sg/Fxxc1kOD45mD9x+3S2Mzv+9CqkYRR0aVhcWNpnKj8MX2liQSunG1b +Uvyl8flqt+nJFyS0PousKf2LWp+f2B7RTELyUKv56zhp7O9sr1/VQoKUgmcA +d5o0Bh4x6NnQSvVDyfXyqDppNOhXGpx5SfXr27bfk83SuCrwt53jKxIsOFbu +duuk9pfpy6qj7GHt3wdfpPFte0tOzGsS/E/dppdNSuMW8yCXAcp/5fUeIxal +MXzSaEKzjQTjU7TomFUEPn+Yd26A8suNtbd11hE4MvEiTbmdhH15+5uneQnc +FmQWEUbZ6fUFvoOiBPYF3H25qoOEjwfltTZLEth0SkbHhPKR+aeO/9AI7PpP +LyqBcqD0/O1dygTqi6dmLFGee5Dc/GMrgQ3NJ4LV/6HqZaI8wdYk8EyvvoIn +ZY73TXw+DAIrjdqrrlCOD3LXou8kULNnesszyutW/3J8p0/g0OaoU2OUkzOu +RqfsJnCHj0Xxpk4ShLZuyzMzJzDhX8YTDcoZDa3NnFYEXo/bTNpQlrb3nKi2 +I3DF6PPEQMp548t8xx0J/DtVwuA85S2xGVrKbgTWNs19yqFcKrTDaciDQLl4 +tSPllDWL2qMzvQkcy7rd0Ui5eqdPno0fgbRb6vROytC1soUnmEDT4SqnAcqN +XtkTDaEEFsWIRg1RNl1i8EecIvCNtdr5r5Tbkru1NGMI/PWjP2aUsq1cgNP4 +GQJ933J6jFDuq1obk3eOwIUN8ds/UXa1yMtzTiLQPdZoopfy8OedLYKp1Hm+ +UUh7TfloWN/EqzQCOQM2baujPMkTwh9/g0Bm4HDlfcrHc3i1WbcIlKo5p36d +8qJmodNcPoEBUyNZsZSjWgxi7hcReMhn6NcRylyug3mepQSuM/baa0o58b+/ +WiTLCXxl75SqSJk3QWDyTSWBDzQL21ZSFi0z0TauJ9BEe0mxnKpPluGQ05/n +BDoo9JomUKb3RcZUvCRQPbjG4wBlVc4HLfJvCMzJ3nt2kuoP8treycE+6nn4 ++pIfUtZRHuVPG6TWl2TTT1LWt5V0XjNK4D6tupxFqh9fjD6KqRsn8OeLqdsP +KJtHWueHzRD4YX/+nWOUDxQkTH79SeB98lh5J9XfvoszMc0baLjkR/8TQc0D +M+iI8Ag/DX9UBm8Xpcw99u4elygNJ+6IjJZS85Tf39Czk07DoEjr4W5q/gaf +XFV5qEXD7kFP3TlqXou119V36tKwJVKtOIRyeFnUgWmk4Ttps6Jpar6Fc73i +lPfQUET1gs0gNf+W8YzeW240bM0ciEym8kHqz32/usM01OP/EDFL5cd4KJ3r +/VEa8qb5CdhRTvTmURMNoeHCAef166m8ebrn/emkRBr6fpm2sqLySZ0/dusp +Ng0DzK2tmdXU/FyYa0yvoOHcOaaXN5V/bVw+jhU1NHxe2KKYSuXjsTnr+Jkm +an0eHw1SeZrXK9vv9Y6G3pUxChYPqN+b3XzWlouO3/P3J/x9j+ovEZZEMDcd +N66krTtH5TOZzGb/vYGOcV2xltGF1PPEZQy0itAxze6mwiEq3xM9fdV3qdBx +iZ2iueI2CT+UNw2q2tGRM9H9T/51EuazxGI1HOlovuekSHA6CbMb5WQZbnRE +HgEFXeo+mfzO8DE8SsfoJ7i1kbpvPtd4zDtG0lHEZ3wt+TeVn3se8Sbm0/Gz +/wfJP2eo+T7mCp/n6Ph1fPDCQT8S0t57f/76k9qvok++/RgJVyyPx08s05F/ +Gb8wfEhI0kh8ubhWBjdsFOtc7UVC3C/2gY1SMhg+EHYlyp06nwurAvWMZTB4 +b/mKr9Yk6N0rzrl2TQbb/516kU/d7/3EvWyjTBl0aD/f3a9B1fta4c3ZbBnM +3DxycaM6dd/FFtywLpTBk7fqVgWqUfWxz0nnrZXBkRwWU4h6n1BadSX57CcZ +XKcb9GxGhDpvt1MxoSqyeIQdOfNrgQ0z/Gbu++tlcdn1yPpMNht6fekdPi9k +sU3VSluglA1Pn/+E6Fey6LU9kutcMfU+F35P+m6PLN7ep3TW7w4btn1e/+HH +mCx2XOs6JJbFBn92u0uWgBzybd8ztjKRDWOWdk7Dh+WwJ8ClUdGZDcMX3fcH +r5FHmabsTu4/ZWA6FWb6RUsBnbWyln4zymDcg/t4ebQi7t6hdI0/o4T6PyHC +mVCvhN5ksPd/t4uB/7V8UtnUFnyw+nt5XFURSCSW7tPSUkGnnCij3vS7kK7M +2CTgpYrCyHso+HoBtIrt2vH9shoa89fsIwrzgClRn7y1ZysqdtAWGzNzgZcr +N+Rg3DY0qtQeyWnIAalYaT0H+e3YFLn18WhVFqyVc66wfrEdIwaankkwMkCN +tbk0zEUdmRyKe/XV0iB4kL/BjEMD656o4YjMFZj6ftHONF0Dj/k9SFu8eBl2 +b32eYaqqib/tjFaERibBk++6vxbaNHGl959VnsvnwF9F/d0/njtQI2qU56Hh +WWBNHu52WKuFmS+ijFaVx4GRrOjeDblaGB+88I/5tWhQjDn/V722Njp4JVo+ +yAyHLZ6MOrl32ti6butRle8nwPOJ95nyIB1cZ2mxY79uMEz6jYUZhejgYN/L +faEqwfCXpO+xnlAdrF7gzcyRDIbzEQHWi6d00Ppj2h0BjmAoY4YSemd1sNap +lv94UxAsVZyubcjQweeJEo381kGQUnpztrNBB21mU23J4ECoy+k+PCPEwDVH +4/ZV5PjBR3OaW6goA/uPRzhpJPoBxw8/h19iDPSQeZ/7LMAP9K3WWKwiGMgz +rlbPB37wfAVTe/MWBgbY8hlED/rCq0PZa3ftZOCvNdW2CYQvvJP1KUk+wkAL +55yD69k+MHt3eWHrIwbmna/8b36FN4zsN845V8VAAZMNnAOTXtC78pLJUA0D +uysa6G39XlDjLnb92lMGBhpER/Q99II40R3M3y0MbG141nbBxws2JfpEtA4w +0NXW/5N9zxFQ8XrD4cnJxKTC13WHH3mCh9y9tRl7mVgG8oKtWR4Q3uTqI7+P +iSb5LNnDFz0g2ZP/JWnNRPWVg2k8pzygNv/kxZcHmNhT+jExzt4DBOVNNv4+ +yEQoLCjeKOgBz+W/CLqHMrFEd+Bd9qVDsEVRmpDPZmIgG/3dzh+EmS2pWuQ0 +E2tzbVoMrdyg9xUaCXxnYs5H0bgULTd46j9pEzLHxNlIQnFW3A2SSNMgrZ9M +nE6O5/k+4gpbmBzF1Vy6+OVLxvv3ka5wyNSP1iCsiy6XbdVcSl2g22v3+m49 +XfwuNHCylHCGyrxfn+YSdRGHv+wTYzqAlkHIgtkFXXzI4TNzQtYBHn4aX59z +SRcDScnZT7wOQEoNapul6CJ/8tL82JA9FKc/vXQzUxdzSqa66pLsIediPGN3 +iS7uu8O30vfrATgXsvFyepcuZup/+C8hbz84GsqgrpQe1qnttynaYwu/u7l5 +Gwg9DDWW6TXXsYUcz8l+Mxk9tDsq3LwsawsjZ6vCHBX1cIHMrb72xwaCWyxL +T6rrYcVx/rwE0gbOW0RIVRrr4WphJZ9jkjZQbf9mSTNADy+VT/B++2MF4n4J +VWpP9fCjnUv4swFLSFo+suNCvR722/r15tRZAmeKMftrox6Ocb/nTs+1hLGK +VYU5LXoos3D85mtvS6jmOJPO36WH779dfW0zbwGOV2LC5r/ooTxtw6fHQhaQ +XnNyxxMeFlaJhHakeZqD0Dpf9t4DLORptL41b2QKeQaR4dMOLLz97zapJGVT +UI9MMkh1ZuGSKBG4k88ULKbL3vQeZKGl0gP9fwdM4GzP3A8PXxYyV64I9jxh +Aou50frhsSwUvHc+a6RoN7zTTe0quMdCrYHHH04rGIP3ibwbpiUsHOg2nN64 +yRjmSx56jpdR33937Ci5aAT89N6F7RUs1PxhY8FsNYI93JISj5+ysKjk7x4b +fyOo7S443PWGhes/8g1nVRuCGW+lamgvC6caLcYT8gyhd3fLvGg/CyvcVZkJ +SYYwW/0t0fUjCwuDrro1HTIE1Vvb7v87xkLxMwKfWOsNofbdrtCLEyxsmV0v +3zFvAGaCNrB1moUXQ71lwj4ZwJGEE/+EzLGQUXx2BdcjA5h9ejZDZJGFzmYJ +dV9vGUDczzSP6p8s9Gz0nP540QA2aRaquPym9js8GDcZZgA3/arnlpdZeEmx +ynOThwH8D360qYQ= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "PlotRange" -> {{0, 30}, {0., 0.07353070398310273}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +7098,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 +7126,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.07353070398310273}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -2895,25 +7135,910 @@ 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.994041567223213*^9}, CellLabel-> - "Out[252]=",ExpressionUUID->"d4eecdc9-263c-5b43-bb29-cd0ac1286793"] + "Out[117]=",ExpressionUUID->"b4bb429b-f5fb-4530-8cb9-3c94ddd80bb9"] }, 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.005294"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.015702"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.025589"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.034637"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.042584"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.049218"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.054412"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.058095"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.060285"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.061043"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.060506"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.058826"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.05621"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.052848"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.048958"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.044722"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.040328"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.035917"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.031623"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.027533"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.023727"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.020242"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.017109"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.014329"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.0119"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.0098"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.008009"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.006494"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.005229"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.00418"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.00332"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.994012899208864*^9}, + CellLabel-> + "In[118]:=",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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, + 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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.061043}}, + "Frame" -> {{False, 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.061043}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.061043}}, + "Frame" -> {{False, 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.061043}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9940415673078957`*^9}, + CellLabel-> + "Out[118]=",ExpressionUUID->"c372bc5a-bc85-45ca-a0ed-d779ece4e918"] +}, 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[119]:=",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:eJwV13k4VesXB3DRoJQyy7jPMWeoEM7htFamkMhUZkoimRM3mUs0uaIiEglF +wtlJplKGQoWLRKSB5Mp4M1XKb//+Os/neZ/nvGe/a63vuw/tUIC1JycHB4fq +Cg6O/3/OD7Y0yl7I2xl9/VJQt7XBzu6boid39caBivZ8Z0MVDVCo/ZBobwoo +RZlwZlZth9B9RW+5enNhl2EoV3TVLuCbFEn58ZaELwqeRdZVVvCh1iJg9m09 +uAytFmuoPAjGsmPvZ952Qvso9/jViiD48Vb76vTbz5DZfM5y/H4sNBjcyfsn +9ztwWxV822WYAhIfqkYOqfyGSzN3jtu9yABBX7eiNQZcmKzKOlfvfAtSthvX +WNhxY4btiI7BoXzoS9/2dGbTBuwwvuyzouMuXMiLbufczIejFitOZ0sXg5nm +UX4hGT58E3SYp1q5GLgbre0UVPnweBQcfa1dDGeG5Pr37OLDSX+/G4OWxRBB +fzVy5Sgf8ks05BZFF4N/jugf+Wo+ZF4izL6+LwarG2yVPU78eFpDMHz4yn0Q +uTJ0LjVLAGt2mcqdGS8BUeWHZxYLBHBxQZElOF8CYvVno13KBDC/1JKdtVwC +UtNKJxQaBNDpQ2nhDf5SkDMPdK8ZFUAf56kqM51S0Fj5W2tIQxBXTLxwOBJX +CpYhwsPqrYLosOk1byt3GezjGR1M6xLEE12ebfIbysA6t6pvaUAQmUftlWP4 +ymB/h3P78ylBfNkXU6MoVgYuKrerHYWEsMHnuqKVchkcG956Oc5dCGsbMt/+ +MS+DBFvTnZ3zQlh8WL+79VIZiJW3iXGuEMazotz7NqaUQYmA7cJ2HmGU5jlf +b3mtDHo6XcsuSwvjCiXd8403y0DWKoRuZSKMbfqL1yNLy6B+b/bqjuvCOPXU +0U+1owx+G8+1vdYTQYt23VexvGxILgi/99tYBNPtXWMM+dkgu5ojUdVKBHep +CNC5hNlg3rRu1yVPEZxvP6kaIsmGDAPigXmSCN6binKTU2GDDu5Je/lBBCVP +Pt7YaMKG44xbbi1xouj+onRyJooNZjm8s3suimKBuNLkz1g20NdEJLZdFcWX ++0lXjng2dHTvZ3fdFcUHaRypHBfYoBa4nmuwTRSNPtBNe66xYbQgrOA/sc34 +6g7vbM99NjgLWkyIP9iMZ5tcn6v2sUHjVE3szdrNqHSkk6upnw3rPisK055v +RtMf0+X2g2yoKuUC+b7NKP+2PfjEEBuE91Qlb1vejA/jqw+emaD2j5XVNNoj +hj60bTsWOUgwnPoZ7j8khpX+FjsYciScNLmy5dm4GPZlvou1VSCh5JbqO4F5 +MZRadvD1VSJB1NadUcUtjpIKVhIpqiSMVzYtcKmJo+PStunyHSSkxiWHXP9L +HF2yz96zNyKhuV9JdjxWHKMkF3+ydpOwpNnQtfOCOAq+NJ+QNiXhyNc59eEs +cVSt/VPTZ04C09xpRq1BHKVL7HjkbEn4LCTv37hBAtNMUhrEDpEgElAnKSIi +gd/FPH1bPUgwb7Z/fZSQwJXJa5+EepJQEX5BZaOGBJ7R8nRp8ibh/IfpMQd7 +CdTzm0xjBpCgXljjNZUrgT8T7jrFnyIhVs/qoJiOJL4OrDHLvkyCievN/7T1 +JbGg/GAARyoJvDHfTtuZS2L/Y3aFyxUSbjTEFyS7S6LJ/Z+l69NIqDSr/rb6 +nCSKdim4690gYdpeJvR7nyR+c223Hson4VF44Bq+YUkse908u/oOCVE3Hqer +TUriW97iRvm7JKz/eKDmKKcUFiUpzzgWkaDgdZHj4xYpLGjRSLlaQoLribnz +r05JYc908i3bChLk0vQlxuKlMH9WPkr30f/P/+/7a5KlMKKRdlWqkoTwJaUO +/TwpbDqddKKvioSrp12Fql5JYciT0yL0xyQ4598r6OmRQt0NYYNjlOkvFrVn +P0qhoW70SOkTEsrWpTpunZPCwTC9x2pPSXh1+UV2vqQ0fhIvzVqup+r7QHB7 +g4I0Sg/Fxxc1kOD45mD9x+3S2Mzv+9CqkYRR0aVhcWNpnKj8MX2liQSunG1b +Uvyl8flqt+nJFyS0PousKf2LWp+f2B7RTELyUKv56zhp7O9sr1/VQoKUgmcA +d5o0Bh4x6NnQSvVDyfXyqDppNOhXGpx5SfXr27bfk83SuCrwt53jKxIsOFbu +duuk9pfpy6qj7GHt3wdfpPFte0tOzGsS/E/dppdNSuMW8yCXAcp/5fUeIxal +MXzSaEKzjQTjU7TomFUEPn+Yd26A8suNtbd11hE4MvEiTbmdhH15+5uneQnc +FmQWEUbZ6fUFvoOiBPYF3H25qoOEjwfltTZLEth0SkbHhPKR+aeO/9AI7PpP +LyqBcqD0/O1dygTqi6dmLFGee5Dc/GMrgQ3NJ4LV/6HqZaI8wdYk8EyvvoIn +ZY73TXw+DAIrjdqrrlCOD3LXou8kULNnesszyutW/3J8p0/g0OaoU2OUkzOu +RqfsJnCHj0Xxpk4ShLZuyzMzJzDhX8YTDcoZDa3NnFYEXo/bTNpQlrb3nKi2 +I3DF6PPEQMp548t8xx0J/DtVwuA85S2xGVrKbgTWNs19yqFcKrTDaciDQLl4 +tSPllDWL2qMzvQkcy7rd0Ui5eqdPno0fgbRb6vROytC1soUnmEDT4SqnAcqN +XtkTDaEEFsWIRg1RNl1i8EecIvCNtdr5r5Tbkru1NGMI/PWjP2aUsq1cgNP4 +GQJ933J6jFDuq1obk3eOwIUN8ds/UXa1yMtzTiLQPdZoopfy8OedLYKp1Hm+ +UUh7TfloWN/EqzQCOQM2baujPMkTwh9/g0Bm4HDlfcrHc3i1WbcIlKo5p36d +8qJmodNcPoEBUyNZsZSjWgxi7hcReMhn6NcRylyug3mepQSuM/baa0o58b+/ +WiTLCXxl75SqSJk3QWDyTSWBDzQL21ZSFi0z0TauJ9BEe0mxnKpPluGQ05/n +BDoo9JomUKb3RcZUvCRQPbjG4wBlVc4HLfJvCMzJ3nt2kuoP8treycE+6nn4 ++pIfUtZRHuVPG6TWl2TTT1LWt5V0XjNK4D6tupxFqh9fjD6KqRsn8OeLqdsP +KJtHWueHzRD4YX/+nWOUDxQkTH79SeB98lh5J9XfvoszMc0baLjkR/8TQc0D +M+iI8Ag/DX9UBm8Xpcw99u4elygNJ+6IjJZS85Tf39Czk07DoEjr4W5q/gaf +XFV5qEXD7kFP3TlqXou119V36tKwJVKtOIRyeFnUgWmk4Ttps6Jpar6Fc73i +lPfQUET1gs0gNf+W8YzeW240bM0ciEym8kHqz32/usM01OP/EDFL5cd4KJ3r +/VEa8qb5CdhRTvTmURMNoeHCAef166m8ebrn/emkRBr6fpm2sqLySZ0/dusp +Ng0DzK2tmdXU/FyYa0yvoOHcOaaXN5V/bVw+jhU1NHxe2KKYSuXjsTnr+Jkm +an0eHw1SeZrXK9vv9Y6G3pUxChYPqN+b3XzWlouO3/P3J/x9j+ovEZZEMDcd +N66krTtH5TOZzGb/vYGOcV2xltGF1PPEZQy0itAxze6mwiEq3xM9fdV3qdBx +iZ2iueI2CT+UNw2q2tGRM9H9T/51EuazxGI1HOlovuekSHA6CbMb5WQZbnRE +HgEFXeo+mfzO8DE8SsfoJ7i1kbpvPtd4zDtG0lHEZ3wt+TeVn3se8Sbm0/Gz +/wfJP2eo+T7mCp/n6Ph1fPDCQT8S0t57f/76k9qvok++/RgJVyyPx08s05F/ +Gb8wfEhI0kh8ubhWBjdsFOtc7UVC3C/2gY1SMhg+EHYlyp06nwurAvWMZTB4 +b/mKr9Yk6N0rzrl2TQbb/516kU/d7/3EvWyjTBl0aD/f3a9B1fta4c3ZbBnM +3DxycaM6dd/FFtywLpTBk7fqVgWqUfWxz0nnrZXBkRwWU4h6n1BadSX57CcZ +XKcb9GxGhDpvt1MxoSqyeIQdOfNrgQ0z/Gbu++tlcdn1yPpMNht6fekdPi9k +sU3VSluglA1Pn/+E6Fey6LU9kutcMfU+F35P+m6PLN7ep3TW7w4btn1e/+HH +mCx2XOs6JJbFBn92u0uWgBzybd8ztjKRDWOWdk7Dh+WwJ8ClUdGZDcMX3fcH +r5FHmabsTu4/ZWA6FWb6RUsBnbWyln4zymDcg/t4ebQi7t6hdI0/o4T6PyHC +mVCvhN5ksPd/t4uB/7V8UtnUFnyw+nt5XFURSCSW7tPSUkGnnCij3vS7kK7M +2CTgpYrCyHso+HoBtIrt2vH9shoa89fsIwrzgClRn7y1ZysqdtAWGzNzgZcr +N+Rg3DY0qtQeyWnIAalYaT0H+e3YFLn18WhVFqyVc66wfrEdIwaankkwMkCN +tbk0zEUdmRyKe/XV0iB4kL/BjEMD656o4YjMFZj6ftHONF0Dj/k9SFu8eBl2 +b32eYaqqib/tjFaERibBk++6vxbaNHGl959VnsvnwF9F/d0/njtQI2qU56Hh +WWBNHu52WKuFmS+ijFaVx4GRrOjeDblaGB+88I/5tWhQjDn/V722Njp4JVo+ +yAyHLZ6MOrl32ti6butRle8nwPOJ95nyIB1cZ2mxY79uMEz6jYUZhejgYN/L +faEqwfCXpO+xnlAdrF7gzcyRDIbzEQHWi6d00Ppj2h0BjmAoY4YSemd1sNap +lv94UxAsVZyubcjQweeJEo381kGQUnpztrNBB21mU23J4ECoy+k+PCPEwDVH +4/ZV5PjBR3OaW6goA/uPRzhpJPoBxw8/h19iDPSQeZ/7LMAP9K3WWKwiGMgz +rlbPB37wfAVTe/MWBgbY8hlED/rCq0PZa3ftZOCvNdW2CYQvvJP1KUk+wkAL +55yD69k+MHt3eWHrIwbmna/8b36FN4zsN845V8VAAZMNnAOTXtC78pLJUA0D +uysa6G39XlDjLnb92lMGBhpER/Q99II40R3M3y0MbG141nbBxws2JfpEtA4w +0NXW/5N9zxFQ8XrD4cnJxKTC13WHH3mCh9y9tRl7mVgG8oKtWR4Q3uTqI7+P +iSb5LNnDFz0g2ZP/JWnNRPWVg2k8pzygNv/kxZcHmNhT+jExzt4DBOVNNv4+ +yEQoLCjeKOgBz+W/CLqHMrFEd+Bd9qVDsEVRmpDPZmIgG/3dzh+EmS2pWuQ0 +E2tzbVoMrdyg9xUaCXxnYs5H0bgULTd46j9pEzLHxNlIQnFW3A2SSNMgrZ9M +nE6O5/k+4gpbmBzF1Vy6+OVLxvv3ka5wyNSP1iCsiy6XbdVcSl2g22v3+m49 +XfwuNHCylHCGyrxfn+YSdRGHv+wTYzqAlkHIgtkFXXzI4TNzQtYBHn4aX59z +SRcDScnZT7wOQEoNapul6CJ/8tL82JA9FKc/vXQzUxdzSqa66pLsIediPGN3 +iS7uu8O30vfrATgXsvFyepcuZup/+C8hbz84GsqgrpQe1qnttynaYwu/u7l5 +Gwg9DDWW6TXXsYUcz8l+Mxk9tDsq3LwsawsjZ6vCHBX1cIHMrb72xwaCWyxL +T6rrYcVx/rwE0gbOW0RIVRrr4WphJZ9jkjZQbf9mSTNADy+VT/B++2MF4n4J +VWpP9fCjnUv4swFLSFo+suNCvR722/r15tRZAmeKMftrox6Ocb/nTs+1hLGK +VYU5LXoos3D85mtvS6jmOJPO36WH779dfW0zbwGOV2LC5r/ooTxtw6fHQhaQ +XnNyxxMeFlaJhHakeZqD0Dpf9t4DLORptL41b2QKeQaR4dMOLLz97zapJGVT +UI9MMkh1ZuGSKBG4k88ULKbL3vQeZKGl0gP9fwdM4GzP3A8PXxYyV64I9jxh +Aou50frhsSwUvHc+a6RoN7zTTe0quMdCrYHHH04rGIP3ibwbpiUsHOg2nN64 +yRjmSx56jpdR33937Ci5aAT89N6F7RUs1PxhY8FsNYI93JISj5+ysKjk7x4b +fyOo7S443PWGhes/8g1nVRuCGW+lamgvC6caLcYT8gyhd3fLvGg/CyvcVZkJ +SYYwW/0t0fUjCwuDrro1HTIE1Vvb7v87xkLxMwKfWOsNofbdrtCLEyxsmV0v +3zFvAGaCNrB1moUXQ71lwj4ZwJGEE/+EzLGQUXx2BdcjA5h9ejZDZJGFzmYJ +dV9vGUDczzSP6p8s9Gz0nP540QA2aRaquPym9js8GDcZZgA3/arnlpdZeEmx +ynOThwH8D360qYQ= + "]]}, + 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:eJwV13k4VesXB3DRoJQyy7jPMWeoEM7htFamkMhUZkoimRM3mUs0uaIiEglF +wtlJplKGQoWLRKSB5Mp4M1XKb//+Os/neZ/nvGe/a63vuw/tUIC1JycHB4fq +Cg6O/3/OD7Y0yl7I2xl9/VJQt7XBzu6boid39caBivZ8Z0MVDVCo/ZBobwoo +RZlwZlZth9B9RW+5enNhl2EoV3TVLuCbFEn58ZaELwqeRdZVVvCh1iJg9m09 +uAytFmuoPAjGsmPvZ952Qvso9/jViiD48Vb76vTbz5DZfM5y/H4sNBjcyfsn +9ztwWxV822WYAhIfqkYOqfyGSzN3jtu9yABBX7eiNQZcmKzKOlfvfAtSthvX +WNhxY4btiI7BoXzoS9/2dGbTBuwwvuyzouMuXMiLbufczIejFitOZ0sXg5nm +UX4hGT58E3SYp1q5GLgbre0UVPnweBQcfa1dDGeG5Pr37OLDSX+/G4OWxRBB +fzVy5Sgf8ks05BZFF4N/jugf+Wo+ZF4izL6+LwarG2yVPU78eFpDMHz4yn0Q +uTJ0LjVLAGt2mcqdGS8BUeWHZxYLBHBxQZElOF8CYvVno13KBDC/1JKdtVwC +UtNKJxQaBNDpQ2nhDf5SkDMPdK8ZFUAf56kqM51S0Fj5W2tIQxBXTLxwOBJX +CpYhwsPqrYLosOk1byt3GezjGR1M6xLEE12ebfIbysA6t6pvaUAQmUftlWP4 +ymB/h3P78ylBfNkXU6MoVgYuKrerHYWEsMHnuqKVchkcG956Oc5dCGsbMt/+ +MS+DBFvTnZ3zQlh8WL+79VIZiJW3iXGuEMazotz7NqaUQYmA7cJ2HmGU5jlf +b3mtDHo6XcsuSwvjCiXd8403y0DWKoRuZSKMbfqL1yNLy6B+b/bqjuvCOPXU +0U+1owx+G8+1vdYTQYt23VexvGxILgi/99tYBNPtXWMM+dkgu5ojUdVKBHep +CNC5hNlg3rRu1yVPEZxvP6kaIsmGDAPigXmSCN6binKTU2GDDu5Je/lBBCVP +Pt7YaMKG44xbbi1xouj+onRyJooNZjm8s3suimKBuNLkz1g20NdEJLZdFcWX ++0lXjng2dHTvZ3fdFcUHaRypHBfYoBa4nmuwTRSNPtBNe66xYbQgrOA/sc34 +6g7vbM99NjgLWkyIP9iMZ5tcn6v2sUHjVE3szdrNqHSkk6upnw3rPisK055v +RtMf0+X2g2yoKuUC+b7NKP+2PfjEEBuE91Qlb1vejA/jqw+emaD2j5XVNNoj +hj60bTsWOUgwnPoZ7j8khpX+FjsYciScNLmy5dm4GPZlvou1VSCh5JbqO4F5 +MZRadvD1VSJB1NadUcUtjpIKVhIpqiSMVzYtcKmJo+PStunyHSSkxiWHXP9L +HF2yz96zNyKhuV9JdjxWHKMkF3+ydpOwpNnQtfOCOAq+NJ+QNiXhyNc59eEs +cVSt/VPTZ04C09xpRq1BHKVL7HjkbEn4LCTv37hBAtNMUhrEDpEgElAnKSIi +gd/FPH1bPUgwb7Z/fZSQwJXJa5+EepJQEX5BZaOGBJ7R8nRp8ibh/IfpMQd7 +CdTzm0xjBpCgXljjNZUrgT8T7jrFnyIhVs/qoJiOJL4OrDHLvkyCievN/7T1 +JbGg/GAARyoJvDHfTtuZS2L/Y3aFyxUSbjTEFyS7S6LJ/Z+l69NIqDSr/rb6 +nCSKdim4690gYdpeJvR7nyR+c223Hson4VF44Bq+YUkse908u/oOCVE3Hqer +TUriW97iRvm7JKz/eKDmKKcUFiUpzzgWkaDgdZHj4xYpLGjRSLlaQoLribnz +r05JYc908i3bChLk0vQlxuKlMH9WPkr30f/P/+/7a5KlMKKRdlWqkoTwJaUO +/TwpbDqddKKvioSrp12Fql5JYciT0yL0xyQ4598r6OmRQt0NYYNjlOkvFrVn +P0qhoW70SOkTEsrWpTpunZPCwTC9x2pPSXh1+UV2vqQ0fhIvzVqup+r7QHB7 +g4I0Sg/Fxxc1kOD45mD9x+3S2Mzv+9CqkYRR0aVhcWNpnKj8MX2liQSunG1b +Uvyl8flqt+nJFyS0PousKf2LWp+f2B7RTELyUKv56zhp7O9sr1/VQoKUgmcA +d5o0Bh4x6NnQSvVDyfXyqDppNOhXGpx5SfXr27bfk83SuCrwt53jKxIsOFbu +duuk9pfpy6qj7GHt3wdfpPFte0tOzGsS/E/dppdNSuMW8yCXAcp/5fUeIxal +MXzSaEKzjQTjU7TomFUEPn+Yd26A8suNtbd11hE4MvEiTbmdhH15+5uneQnc +FmQWEUbZ6fUFvoOiBPYF3H25qoOEjwfltTZLEth0SkbHhPKR+aeO/9AI7PpP +LyqBcqD0/O1dygTqi6dmLFGee5Dc/GMrgQ3NJ4LV/6HqZaI8wdYk8EyvvoIn +ZY73TXw+DAIrjdqrrlCOD3LXou8kULNnesszyutW/3J8p0/g0OaoU2OUkzOu +RqfsJnCHj0Xxpk4ShLZuyzMzJzDhX8YTDcoZDa3NnFYEXo/bTNpQlrb3nKi2 +I3DF6PPEQMp548t8xx0J/DtVwuA85S2xGVrKbgTWNs19yqFcKrTDaciDQLl4 +tSPllDWL2qMzvQkcy7rd0Ui5eqdPno0fgbRb6vROytC1soUnmEDT4SqnAcqN +XtkTDaEEFsWIRg1RNl1i8EecIvCNtdr5r5Tbkru1NGMI/PWjP2aUsq1cgNP4 +GQJ933J6jFDuq1obk3eOwIUN8ds/UXa1yMtzTiLQPdZoopfy8OedLYKp1Hm+ +UUh7TfloWN/EqzQCOQM2baujPMkTwh9/g0Bm4HDlfcrHc3i1WbcIlKo5p36d +8qJmodNcPoEBUyNZsZSjWgxi7hcReMhn6NcRylyug3mepQSuM/baa0o58b+/ +WiTLCXxl75SqSJk3QWDyTSWBDzQL21ZSFi0z0TauJ9BEe0mxnKpPluGQ05/n +BDoo9JomUKb3RcZUvCRQPbjG4wBlVc4HLfJvCMzJ3nt2kuoP8treycE+6nn4 ++pIfUtZRHuVPG6TWl2TTT1LWt5V0XjNK4D6tupxFqh9fjD6KqRsn8OeLqdsP +KJtHWueHzRD4YX/+nWOUDxQkTH79SeB98lh5J9XfvoszMc0baLjkR/8TQc0D +M+iI8Ag/DX9UBm8Xpcw99u4elygNJ+6IjJZS85Tf39Czk07DoEjr4W5q/gaf +XFV5qEXD7kFP3TlqXou119V36tKwJVKtOIRyeFnUgWmk4Ttps6Jpar6Fc73i +lPfQUET1gs0gNf+W8YzeW240bM0ciEym8kHqz32/usM01OP/EDFL5cd4KJ3r +/VEa8qb5CdhRTvTmURMNoeHCAef166m8ebrn/emkRBr6fpm2sqLySZ0/dusp +Ng0DzK2tmdXU/FyYa0yvoOHcOaaXN5V/bVw+jhU1NHxe2KKYSuXjsTnr+Jkm +an0eHw1SeZrXK9vv9Y6G3pUxChYPqN+b3XzWlouO3/P3J/x9j+ovEZZEMDcd +N66krTtH5TOZzGb/vYGOcV2xltGF1PPEZQy0itAxze6mwiEq3xM9fdV3qdBx +iZ2iueI2CT+UNw2q2tGRM9H9T/51EuazxGI1HOlovuekSHA6CbMb5WQZbnRE +HgEFXeo+mfzO8DE8SsfoJ7i1kbpvPtd4zDtG0lHEZ3wt+TeVn3se8Sbm0/Gz +/wfJP2eo+T7mCp/n6Ph1fPDCQT8S0t57f/76k9qvok++/RgJVyyPx08s05F/ +Gb8wfEhI0kh8ubhWBjdsFOtc7UVC3C/2gY1SMhg+EHYlyp06nwurAvWMZTB4 +b/mKr9Yk6N0rzrl2TQbb/516kU/d7/3EvWyjTBl0aD/f3a9B1fta4c3ZbBnM +3DxycaM6dd/FFtywLpTBk7fqVgWqUfWxz0nnrZXBkRwWU4h6n1BadSX57CcZ +XKcb9GxGhDpvt1MxoSqyeIQdOfNrgQ0z/Gbu++tlcdn1yPpMNht6fekdPi9k +sU3VSluglA1Pn/+E6Fey6LU9kutcMfU+F35P+m6PLN7ep3TW7w4btn1e/+HH +mCx2XOs6JJbFBn92u0uWgBzybd8ztjKRDWOWdk7Dh+WwJ8ClUdGZDcMX3fcH +r5FHmabsTu4/ZWA6FWb6RUsBnbWyln4zymDcg/t4ebQi7t6hdI0/o4T6PyHC +mVCvhN5ksPd/t4uB/7V8UtnUFnyw+nt5XFURSCSW7tPSUkGnnCij3vS7kK7M +2CTgpYrCyHso+HoBtIrt2vH9shoa89fsIwrzgClRn7y1ZysqdtAWGzNzgZcr +N+Rg3DY0qtQeyWnIAalYaT0H+e3YFLn18WhVFqyVc66wfrEdIwaankkwMkCN +tbk0zEUdmRyKe/XV0iB4kL/BjEMD656o4YjMFZj6ftHONF0Dj/k9SFu8eBl2 +b32eYaqqib/tjFaERibBk++6vxbaNHGl959VnsvnwF9F/d0/njtQI2qU56Hh +WWBNHu52WKuFmS+ijFaVx4GRrOjeDblaGB+88I/5tWhQjDn/V722Njp4JVo+ +yAyHLZ6MOrl32ti6butRle8nwPOJ95nyIB1cZ2mxY79uMEz6jYUZhejgYN/L +faEqwfCXpO+xnlAdrF7gzcyRDIbzEQHWi6d00Ppj2h0BjmAoY4YSemd1sNap +lv94UxAsVZyubcjQweeJEo381kGQUnpztrNBB21mU23J4ECoy+k+PCPEwDVH +4/ZV5PjBR3OaW6goA/uPRzhpJPoBxw8/h19iDPSQeZ/7LMAP9K3WWKwiGMgz +rlbPB37wfAVTe/MWBgbY8hlED/rCq0PZa3ftZOCvNdW2CYQvvJP1KUk+wkAL +55yD69k+MHt3eWHrIwbmna/8b36FN4zsN845V8VAAZMNnAOTXtC78pLJUA0D +uysa6G39XlDjLnb92lMGBhpER/Q99II40R3M3y0MbG141nbBxws2JfpEtA4w +0NXW/5N9zxFQ8XrD4cnJxKTC13WHH3mCh9y9tRl7mVgG8oKtWR4Q3uTqI7+P +iSb5LNnDFz0g2ZP/JWnNRPWVg2k8pzygNv/kxZcHmNhT+jExzt4DBOVNNv4+ +yEQoLCjeKOgBz+W/CLqHMrFEd+Bd9qVDsEVRmpDPZmIgG/3dzh+EmS2pWuQ0 +E2tzbVoMrdyg9xUaCXxnYs5H0bgULTd46j9pEzLHxNlIQnFW3A2SSNMgrZ9M +nE6O5/k+4gpbmBzF1Vy6+OVLxvv3ka5wyNSP1iCsiy6XbdVcSl2g22v3+m49 +XfwuNHCylHCGyrxfn+YSdRGHv+wTYzqAlkHIgtkFXXzI4TNzQtYBHn4aX59z +SRcDScnZT7wOQEoNapul6CJ/8tL82JA9FKc/vXQzUxdzSqa66pLsIediPGN3 +iS7uu8O30vfrATgXsvFyepcuZup/+C8hbz84GsqgrpQe1qnttynaYwu/u7l5 +Gwg9DDWW6TXXsYUcz8l+Mxk9tDsq3LwsawsjZ6vCHBX1cIHMrb72xwaCWyxL +T6rrYcVx/rwE0gbOW0RIVRrr4WphJZ9jkjZQbf9mSTNADy+VT/B++2MF4n4J +VWpP9fCjnUv4swFLSFo+suNCvR722/r15tRZAmeKMftrox6Ocb/nTs+1hLGK +VYU5LXoos3D85mtvS6jmOJPO36WH779dfW0zbwGOV2LC5r/ooTxtw6fHQhaQ +XnNyxxMeFlaJhHakeZqD0Dpf9t4DLORptL41b2QKeQaR4dMOLLz97zapJGVT +UI9MMkh1ZuGSKBG4k88ULKbL3vQeZKGl0gP9fwdM4GzP3A8PXxYyV64I9jxh +Aou50frhsSwUvHc+a6RoN7zTTe0quMdCrYHHH04rGIP3ibwbpiUsHOg2nN64 +yRjmSx56jpdR33937Ci5aAT89N6F7RUs1PxhY8FsNYI93JISj5+ysKjk7x4b +fyOo7S443PWGhes/8g1nVRuCGW+lamgvC6caLcYT8gyhd3fLvGg/CyvcVZkJ +SYYwW/0t0fUjCwuDrro1HTIE1Vvb7v87xkLxMwKfWOsNofbdrtCLEyxsmV0v +3zFvAGaCNrB1moUXQ71lwj4ZwJGEE/+EzLGQUXx2BdcjA5h9ejZDZJGFzmYJ +dV9vGUDczzSP6p8s9Gz0nP540QA2aRaquPym9js8GDcZZgA3/arnlpdZeEmx +ynOThwH8D360qYQ= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07353070398310273}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.07353070398310273}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJwV13k4VesXB3DRoJQyy7jPMWeoEM7htFamkMhUZkoimRM3mUs0uaIiEglF +wtlJplKGQoWLRKSB5Mp4M1XKb//+Os/neZ/nvGe/a63vuw/tUIC1JycHB4fq +Cg6O/3/OD7Y0yl7I2xl9/VJQt7XBzu6boid39caBivZ8Z0MVDVCo/ZBobwoo +RZlwZlZth9B9RW+5enNhl2EoV3TVLuCbFEn58ZaELwqeRdZVVvCh1iJg9m09 +uAytFmuoPAjGsmPvZ952Qvso9/jViiD48Vb76vTbz5DZfM5y/H4sNBjcyfsn +9ztwWxV822WYAhIfqkYOqfyGSzN3jtu9yABBX7eiNQZcmKzKOlfvfAtSthvX +WNhxY4btiI7BoXzoS9/2dGbTBuwwvuyzouMuXMiLbufczIejFitOZ0sXg5nm +UX4hGT58E3SYp1q5GLgbre0UVPnweBQcfa1dDGeG5Pr37OLDSX+/G4OWxRBB +fzVy5Sgf8ks05BZFF4N/jugf+Wo+ZF4izL6+LwarG2yVPU78eFpDMHz4yn0Q +uTJ0LjVLAGt2mcqdGS8BUeWHZxYLBHBxQZElOF8CYvVno13KBDC/1JKdtVwC +UtNKJxQaBNDpQ2nhDf5SkDMPdK8ZFUAf56kqM51S0Fj5W2tIQxBXTLxwOBJX +CpYhwsPqrYLosOk1byt3GezjGR1M6xLEE12ebfIbysA6t6pvaUAQmUftlWP4 +ymB/h3P78ylBfNkXU6MoVgYuKrerHYWEsMHnuqKVchkcG956Oc5dCGsbMt/+ +MS+DBFvTnZ3zQlh8WL+79VIZiJW3iXGuEMazotz7NqaUQYmA7cJ2HmGU5jlf +b3mtDHo6XcsuSwvjCiXd8403y0DWKoRuZSKMbfqL1yNLy6B+b/bqjuvCOPXU +0U+1owx+G8+1vdYTQYt23VexvGxILgi/99tYBNPtXWMM+dkgu5ojUdVKBHep +CNC5hNlg3rRu1yVPEZxvP6kaIsmGDAPigXmSCN6binKTU2GDDu5Je/lBBCVP +Pt7YaMKG44xbbi1xouj+onRyJooNZjm8s3suimKBuNLkz1g20NdEJLZdFcWX ++0lXjng2dHTvZ3fdFcUHaRypHBfYoBa4nmuwTRSNPtBNe66xYbQgrOA/sc34 +6g7vbM99NjgLWkyIP9iMZ5tcn6v2sUHjVE3szdrNqHSkk6upnw3rPisK055v +RtMf0+X2g2yoKuUC+b7NKP+2PfjEEBuE91Qlb1vejA/jqw+emaD2j5XVNNoj +hj60bTsWOUgwnPoZ7j8khpX+FjsYciScNLmy5dm4GPZlvou1VSCh5JbqO4F5 +MZRadvD1VSJB1NadUcUtjpIKVhIpqiSMVzYtcKmJo+PStunyHSSkxiWHXP9L +HF2yz96zNyKhuV9JdjxWHKMkF3+ydpOwpNnQtfOCOAq+NJ+QNiXhyNc59eEs +cVSt/VPTZ04C09xpRq1BHKVL7HjkbEn4LCTv37hBAtNMUhrEDpEgElAnKSIi +gd/FPH1bPUgwb7Z/fZSQwJXJa5+EepJQEX5BZaOGBJ7R8nRp8ibh/IfpMQd7 +CdTzm0xjBpCgXljjNZUrgT8T7jrFnyIhVs/qoJiOJL4OrDHLvkyCievN/7T1 +JbGg/GAARyoJvDHfTtuZS2L/Y3aFyxUSbjTEFyS7S6LJ/Z+l69NIqDSr/rb6 +nCSKdim4690gYdpeJvR7nyR+c223Hson4VF44Bq+YUkse908u/oOCVE3Hqer +TUriW97iRvm7JKz/eKDmKKcUFiUpzzgWkaDgdZHj4xYpLGjRSLlaQoLribnz +r05JYc908i3bChLk0vQlxuKlMH9WPkr30f/P/+/7a5KlMKKRdlWqkoTwJaUO +/TwpbDqddKKvioSrp12Fql5JYciT0yL0xyQ4598r6OmRQt0NYYNjlOkvFrVn +P0qhoW70SOkTEsrWpTpunZPCwTC9x2pPSXh1+UV2vqQ0fhIvzVqup+r7QHB7 +g4I0Sg/Fxxc1kOD45mD9x+3S2Mzv+9CqkYRR0aVhcWNpnKj8MX2liQSunG1b +Uvyl8flqt+nJFyS0PousKf2LWp+f2B7RTELyUKv56zhp7O9sr1/VQoKUgmcA +d5o0Bh4x6NnQSvVDyfXyqDppNOhXGpx5SfXr27bfk83SuCrwt53jKxIsOFbu +duuk9pfpy6qj7GHt3wdfpPFte0tOzGsS/E/dppdNSuMW8yCXAcp/5fUeIxal +MXzSaEKzjQTjU7TomFUEPn+Yd26A8suNtbd11hE4MvEiTbmdhH15+5uneQnc +FmQWEUbZ6fUFvoOiBPYF3H25qoOEjwfltTZLEth0SkbHhPKR+aeO/9AI7PpP +LyqBcqD0/O1dygTqi6dmLFGee5Dc/GMrgQ3NJ4LV/6HqZaI8wdYk8EyvvoIn +ZY73TXw+DAIrjdqrrlCOD3LXou8kULNnesszyutW/3J8p0/g0OaoU2OUkzOu +RqfsJnCHj0Xxpk4ShLZuyzMzJzDhX8YTDcoZDa3NnFYEXo/bTNpQlrb3nKi2 +I3DF6PPEQMp548t8xx0J/DtVwuA85S2xGVrKbgTWNs19yqFcKrTDaciDQLl4 +tSPllDWL2qMzvQkcy7rd0Ui5eqdPno0fgbRb6vROytC1soUnmEDT4SqnAcqN +XtkTDaEEFsWIRg1RNl1i8EecIvCNtdr5r5Tbkru1NGMI/PWjP2aUsq1cgNP4 +GQJ933J6jFDuq1obk3eOwIUN8ds/UXa1yMtzTiLQPdZoopfy8OedLYKp1Hm+ +UUh7TfloWN/EqzQCOQM2baujPMkTwh9/g0Bm4HDlfcrHc3i1WbcIlKo5p36d +8qJmodNcPoEBUyNZsZSjWgxi7hcReMhn6NcRylyug3mepQSuM/baa0o58b+/ +WiTLCXxl75SqSJk3QWDyTSWBDzQL21ZSFi0z0TauJ9BEe0mxnKpPluGQ05/n +BDoo9JomUKb3RcZUvCRQPbjG4wBlVc4HLfJvCMzJ3nt2kuoP8treycE+6nn4 ++pIfUtZRHuVPG6TWl2TTT1LWt5V0XjNK4D6tupxFqh9fjD6KqRsn8OeLqdsP +KJtHWueHzRD4YX/+nWOUDxQkTH79SeB98lh5J9XfvoszMc0baLjkR/8TQc0D +M+iI8Ag/DX9UBm8Xpcw99u4elygNJ+6IjJZS85Tf39Czk07DoEjr4W5q/gaf +XFV5qEXD7kFP3TlqXou119V36tKwJVKtOIRyeFnUgWmk4Ttps6Jpar6Fc73i +lPfQUET1gs0gNf+W8YzeW240bM0ciEym8kHqz32/usM01OP/EDFL5cd4KJ3r +/VEa8qb5CdhRTvTmURMNoeHCAef166m8ebrn/emkRBr6fpm2sqLySZ0/dusp +Ng0DzK2tmdXU/FyYa0yvoOHcOaaXN5V/bVw+jhU1NHxe2KKYSuXjsTnr+Jkm +an0eHw1SeZrXK9vv9Y6G3pUxChYPqN+b3XzWlouO3/P3J/x9j+ovEZZEMDcd +N66krTtH5TOZzGb/vYGOcV2xltGF1PPEZQy0itAxze6mwiEq3xM9fdV3qdBx +iZ2iueI2CT+UNw2q2tGRM9H9T/51EuazxGI1HOlovuekSHA6CbMb5WQZbnRE +HgEFXeo+mfzO8DE8SsfoJ7i1kbpvPtd4zDtG0lHEZ3wt+TeVn3se8Sbm0/Gz +/wfJP2eo+T7mCp/n6Ph1fPDCQT8S0t57f/76k9qvok++/RgJVyyPx08s05F/ +Gb8wfEhI0kh8ubhWBjdsFOtc7UVC3C/2gY1SMhg+EHYlyp06nwurAvWMZTB4 +b/mKr9Yk6N0rzrl2TQbb/516kU/d7/3EvWyjTBl0aD/f3a9B1fta4c3ZbBnM +3DxycaM6dd/FFtywLpTBk7fqVgWqUfWxz0nnrZXBkRwWU4h6n1BadSX57CcZ +XKcb9GxGhDpvt1MxoSqyeIQdOfNrgQ0z/Gbu++tlcdn1yPpMNht6fekdPi9k +sU3VSluglA1Pn/+E6Fey6LU9kutcMfU+F35P+m6PLN7ep3TW7w4btn1e/+HH +mCx2XOs6JJbFBn92u0uWgBzybd8ztjKRDWOWdk7Dh+WwJ8ClUdGZDcMX3fcH +r5FHmabsTu4/ZWA6FWb6RUsBnbWyln4zymDcg/t4ebQi7t6hdI0/o4T6PyHC +mVCvhN5ksPd/t4uB/7V8UtnUFnyw+nt5XFURSCSW7tPSUkGnnCij3vS7kK7M +2CTgpYrCyHso+HoBtIrt2vH9shoa89fsIwrzgClRn7y1ZysqdtAWGzNzgZcr +N+Rg3DY0qtQeyWnIAalYaT0H+e3YFLn18WhVFqyVc66wfrEdIwaankkwMkCN +tbk0zEUdmRyKe/XV0iB4kL/BjEMD656o4YjMFZj6ftHONF0Dj/k9SFu8eBl2 +b32eYaqqib/tjFaERibBk++6vxbaNHGl959VnsvnwF9F/d0/njtQI2qU56Hh +WWBNHu52WKuFmS+ijFaVx4GRrOjeDblaGB+88I/5tWhQjDn/V722Njp4JVo+ +yAyHLZ6MOrl32ti6butRle8nwPOJ95nyIB1cZ2mxY79uMEz6jYUZhejgYN/L +faEqwfCXpO+xnlAdrF7gzcyRDIbzEQHWi6d00Ppj2h0BjmAoY4YSemd1sNap +lv94UxAsVZyubcjQweeJEo381kGQUnpztrNBB21mU23J4ECoy+k+PCPEwDVH +4/ZV5PjBR3OaW6goA/uPRzhpJPoBxw8/h19iDPSQeZ/7LMAP9K3WWKwiGMgz +rlbPB37wfAVTe/MWBgbY8hlED/rCq0PZa3ftZOCvNdW2CYQvvJP1KUk+wkAL +55yD69k+MHt3eWHrIwbmna/8b36FN4zsN845V8VAAZMNnAOTXtC78pLJUA0D +uysa6G39XlDjLnb92lMGBhpER/Q99II40R3M3y0MbG141nbBxws2JfpEtA4w +0NXW/5N9zxFQ8XrD4cnJxKTC13WHH3mCh9y9tRl7mVgG8oKtWR4Q3uTqI7+P +iSb5LNnDFz0g2ZP/JWnNRPWVg2k8pzygNv/kxZcHmNhT+jExzt4DBOVNNv4+ +yEQoLCjeKOgBz+W/CLqHMrFEd+Bd9qVDsEVRmpDPZmIgG/3dzh+EmS2pWuQ0 +E2tzbVoMrdyg9xUaCXxnYs5H0bgULTd46j9pEzLHxNlIQnFW3A2SSNMgrZ9M +nE6O5/k+4gpbmBzF1Vy6+OVLxvv3ka5wyNSP1iCsiy6XbdVcSl2g22v3+m49 +XfwuNHCylHCGyrxfn+YSdRGHv+wTYzqAlkHIgtkFXXzI4TNzQtYBHn4aX59z +SRcDScnZT7wOQEoNapul6CJ/8tL82JA9FKc/vXQzUxdzSqa66pLsIediPGN3 +iS7uu8O30vfrATgXsvFyepcuZup/+C8hbz84GsqgrpQe1qnttynaYwu/u7l5 +Gwg9DDWW6TXXsYUcz8l+Mxk9tDsq3LwsawsjZ6vCHBX1cIHMrb72xwaCWyxL +T6rrYcVx/rwE0gbOW0RIVRrr4WphJZ9jkjZQbf9mSTNADy+VT/B++2MF4n4J +VWpP9fCjnUv4swFLSFo+suNCvR722/r15tRZAmeKMftrox6Ocb/nTs+1hLGK +VYU5LXoos3D85mtvS6jmOJPO36WH779dfW0zbwGOV2LC5r/ooTxtw6fHQhaQ +XnNyxxMeFlaJhHakeZqD0Dpf9t4DLORptL41b2QKeQaR4dMOLLz97zapJGVT +UI9MMkh1ZuGSKBG4k88ULKbL3vQeZKGl0gP9fwdM4GzP3A8PXxYyV64I9jxh +Aou50frhsSwUvHc+a6RoN7zTTe0quMdCrYHHH04rGIP3ibwbpiUsHOg2nN64 +yRjmSx56jpdR33937Ci5aAT89N6F7RUs1PxhY8FsNYI93JISj5+ysKjk7x4b +fyOo7S443PWGhes/8g1nVRuCGW+lamgvC6caLcYT8gyhd3fLvGg/CyvcVZkJ +SYYwW/0t0fUjCwuDrro1HTIE1Vvb7v87xkLxMwKfWOsNofbdrtCLEyxsmV0v +3zFvAGaCNrB1moUXQ71lwj4ZwJGEE/+EzLGQUXx2BdcjA5h9ejZDZJGFzmYJ +dV9vGUDczzSP6p8s9Gz0nP540QA2aRaquPym9js8GDcZZgA3/arnlpdZeEmx +ynOThwH8D360qYQ= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07353070398310273}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, + 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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.061043}}, + "Frame" -> {{False, 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.061043}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.061043}}, + "Frame" -> {{False, 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.07353070398310273}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994041567322165*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"24c88318-19dc-40f4-826b-190074058bec"] +}, Open ]], Cell[CellGroupData[{ @@ -2922,14 +8047,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[120]:=",ExpressionUUID->"9051a5e3-bb9f-d941-bcca-598d0b6835be"], + +Cell[BoxData["10.154439134156476`"], "Output", + CellChangeTimes->{3.991334803166374*^9, 3.9940415673382063`*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"68ecf1a8-99f4-42e0-844f-9412bffbe4cf"] }, Open ]], Cell[CellGroupData[{ @@ -2943,7 +8068,9 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -2962,8 +8089,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -2985,191 +8111,178 @@ 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[121]:=",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[\\\"5.193601864209479`*^-254\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 121, 17, 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133480336051*^9, 3.994041567378085*^9}, CellLabel-> "During evaluation of \ -In[255]:=",ExpressionUUID->"c1f83af1-416a-6240-b3fd-c1bfcc643459"], +In[121]:=",ExpressionUUID->"f9ccb81f-738d-4fdb-aba1-08e944a2c373"], 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.672965067964919`*^-263\\\", \ +\\\"78176755153939869305210274200729021751146846355456000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 121, 18, 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133480336051*^9, 3.9940415673812027`*^9}, CellLabel-> "During evaluation of \ -In[255]:=",ExpressionUUID->"5cfd3c4b-6190-2c4d-8479-b4ccd7090f94"], +In[121]:=",ExpressionUUID->"756fb173-ba23-4a2c-b748-96ff2c242edc"], 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.204519926123397`*^-272\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 121, 19, 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133480336051*^9, 3.994041567384261*^9}, CellLabel-> "During evaluation of \ -In[255]:=",ExpressionUUID->"288fc6c7-a3fe-9b48-9c0d-bba2713f7084"], +In[121]:=",ExpressionUUID->"ba6b215b-5950-4774-84e6-4c18daf8ff6a"], 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, 121, 20, 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133480336051*^9, 3.9940415673870296`*^9}, CellLabel-> "During evaluation of \ -In[255]:=",ExpressionUUID->"09478fd5-b212-2347-91e7-b9097bd6d61d"], +In[121]:=",ExpressionUUID->"bbd1ce0d-cc74-4f28-965d-454e9625f210"], 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:eJwV13c8Ve8fAPAbRSR7XPMOo6wGwsX1+RjZCZGMjCJpD1mRUaSohEp9K6NL +iXDPFaEiIhqKJGkJlZDIiEp+5/fXeb1f5/U8zznn+YznMLbsdQvmo1AoaxZQ +KP+/Tn9ofaiWyjFvaSz6ESFobd55lRpl0Z0IfbJnnCP8mYAyz7dQuzNg0Qr3 +YSd/PQh3ufmavzsfUn0fZaz0twSJUbmM2dcETN0Vc6T4u8HHu857J183QLVl +itk2vy1gozb0fvx1BwiItt8R8z0As6+Nzo297oOkxBOBD9wSodHqOqc9fwLO +htJLRb9ngNLH6i9bdOag0HhV04ba/0B6l/9NQSt+rPxV6fX1Vx5krLapdfZY +jINzVolySoXwJntV/bj4UgxR7KspyS2CVE7ccz55CXwxdGGBIN8tcDAIlZRR +lcCU4S/TnqK3YPFDN49luhIoEsLvkKdwC471q791tJBAwSf7Kcr6tyCG+fRL +VqgEdr2I2nNn6y3Yk0v9p1Ejga3m3b6xjbfA9TJXx9FHEofZT3NWxZaCXFb/ +icwrUnggc0Pli+4yoGrfPjZTKIVyVecDIvrKQKEhOW5zuRQKLAuZkx0pA5Ux +zUPLGqVQzG9KyGK+DNSd9gXUDkrhnk8qy3Ily0F/4Zxhv740XnB+ZTVlVA7r +w2QH9B5LIx9lm/5EXDm4LBn8cOGlNNKvp3Hcj5WDW371m7/vpPEuK+kIkVIO +G1/4Pm/+IY1i3/R3bj1bDpt1rtV4y8hgye8mxUv55bBzYOXZxAAZfHv3W5z3 +w3I47m5v3jEtg9+7+VvVFnFBoaJNgW+BLLI3rLYJEeJCqZT7r9VLZFFO0Ty2 +YCkXujr8ys/SZFEn5rycjCwX1FzDmK52svj9xJLJeg0uNKzLEXhxURZfXJBe +7GjLhTmbqbZnZnJoaa/4RiOJC+mF0cVzNnK4MMNZqDeFHC9ASdF1lcO/03XD +WWlccGoStjgVLIeLC943j2dy4ZIVned0Wg5LTL91RORzwRgdLzz5KIdoKLry +9n0uHGTl+bcmUlH71WzV5AQXHHJFJx3TqKhkkSU4Os0FpmBMSts5KnpLeJ3v +n+XCi86N3Jc3qLjZtHh/4zwXVuwT4f/QRsWP12sYG5cQMFgYUfhTQR6X42zs +IwYBvtLO3xV58vhYoFfprSMB+odrE67elcfM0+anfJ0JEO5bLstolsdlr6It +elwIqC7jB4038riACA9/7EGArGN1+qp5eZygL5M/4k/AiwQ1g7WOCqhw4Gm0 +3gECrH/8jt7Tr4AzDeI17VkERNllaT0YUUDxwKyx9vMElObp9khNK6BPy6GL +bdkEUN0DWNWLFXH59zqre5cJGLnT9It/hSL6bi5fuI9DQGZietjFSEVMZCaf +0uYR0PJWU20kQREb9i2Wm6gg4K9B40vzVEV8OKssX1VJwLavU3oDVxRRreh2 +ikENASZOPuMrGhXRYl8VY9EDAvpkNPY8XKqECxMP58w9I0Bub52ynJwSzrR7 +fU17ToBTy6ZnoXQljI+UKKO2E1AZnaojpq+En4f46tU7CTj5cWzIa5MSrtHr +n5LpIUCvqDbkR74SZknnqK3/TEAIn4ecZYkSXjcSuV74hYDLPqPNWbeV8JVz +Pvf3V4KsGwwNkxYlnOiKD8weIqDnQPLAse9KaD/VaHrzBwEJZq6BCsbKGNty +ymf5LAF2fld/Glkqo8165r+A3wSIxg8f9XBSxtJVaefP/SHnb0wqTA9QxqVX +BUp+zhFwx6FmWOCEMhp1/IiL4eNB3C7BWLVMZYz3i/uaxc8Dm9PuopZXlHFu +p7tj0UIedLaProrlKqN/HH1JswAPxjaphk+8UcY/Lx4mPhfmQVX0PkGJAWUc +8P3T/2gJD45cvpe9YlQZr+eb2d0V4YFIr2dtKJ8KCvV5K18U5cGykDRKr5YK +hmSUSapK8sDv0NTJp4dVsGPUfCKSygP1C5ZKQ0kqeOuLzdhqeR6532duCaar +4Kkv7/59IR39V/OFJUcFDczj3dcq8uDcUT+Z6qcqaDSQ/LdDmQe+BcWFXV0q +eO9Ld+4uFR4wH80YTfaS6zUd9OOj8aBcONN75ZQKJkxHajLpPHh69lFOgTIN ++a9VKegzeZDJk17duIyGv7aaF9wi7f0qsKF3NQ2Hg+Rc1VR5MEj9O6BoQ0PG +s7fiAmo8KDOxD2e50FBrUbfGftLhvucFPb1p+E/Jbks3af7cVVoZe2iYe41Y +9586Dx4/iK0ti6Sh7NZH89Ok0/sfOz1LpOHC/GNvnTV4oLIseO/iCzQMXmki +PUH6sx1B0cij4TW9jQdhGQ9KdsyftSqmobHyFkoKaZPSixVH6mio9/bKjaXL +eWD9um1utIWG755FPbMh7UxZaOvfQUMXiaP5MaQ3abLSn7+l4Szj6vIy0lvd +9ryBzzSc9yoP+EB6z+FrzPJRGvaM5TgKa/IgktO9kz5Dw5u/NwzpkX7wJdm7 +hULHhJAK9ibSNocZcfGL6Pie76ZNNOknYnevGQvTcfSAisBF0i6cjS1jonQU +Nv4bU0G6y3h85IYUHWeLV5Q8Je3zLFUikEpH3wX5WZ9I9wZqGMor05FiZWU0 +QXrbdL13O4OOLhso5xZo8WD4pE/cCQ06Xh1+VCpCeh9t+pqFNh3j/zuRJE16 +ipfeMruSjtiyRkGedLSd9neuAR2pJfd2K5CmvG+S2MGiY5WHVAKVdNL+AEOm +OR2jrmt6SJEWFvjj3WNJx6aNk0PCpNMvnYvLsKVj5nCI1Tz5PDIrV3EcnMj1 +6qL8x0hfanzcwudKx+1zNPxAmrYp+HuNBx0Lcl2/tJDmjMxLHPSmY2CYwIZy +0loJlwy1/ek4L2l0PIt0mcwan/6t5Pqf3x09RNrg5vO4/7bTkcv8ab+BdI35 +Ds6G3XSsa9vfo0v6YUjO98ZwOmon5vq9IffL/i9LMuYwHfVO27vfJN2W3mlo +EE/HpRKu1EjSb6qF4jkn6DhpGCkmTNrPmcPxPU3HsyuyrdvI+BnoM2+VzqTj +U2s5pzOkR5eESSZdpmPLErMuQdIHc0WN2Hl0HHMc9K4j43HGoMhnqoCOli2U +yoOk+f0+cILLyPEiaRMdZDxTy+2MbBroaHP92Y2dZPxfse73+ddMx0Hr7Dkh +0sw3sfGVT+j4SkJ0dQGZT7p8vFaNV3SU4Nc07iDzzdJd2VdwkI5mXskDAgwe +PBqsiq8boeMHGzGnNDJfnWLdCiLG6RiwirgkStqz8Pjo1990vGebOi5E5veu +mfH4lqUM9GJmX3urRObH/m2yXyQZOKa68JMp6cVDPcX8VAZy3ASTssn6UfC2 +scucycBYj0ABWwUefLh/Tue2IQN/9sTIRMmR+WYk3NBhykB5z4rSu7JkPJUf +8RxDBiqa3qn+K8MD2fyQRG1HBrZ9bdc6IM2D9Ums7jx/Bk6+Z+XpSZD5/O/W +7rogBt7mrx3zEifrWTiT/30oAwmZ6HuxYjxI2b5kBTWMgZ8NYjprlvKg3vH9 +0dMpDFTxd2AsIeurnmTCysNcBgZrth5ZRNZrSurUw+xKBkrZVbhOUcj95t/h +XVnLwG18u6s/zROwc8otabyJgczD9uvKyXrP6VZ7G9LDQOGakXI1sl/I5rQk +u/MzMaco8e5Osp/Maot/0PVgovuQWEXsGwKmrygk6Hszcf+iNhHhbgImxdTV +WP5MXOPzyj6zi4DRCdYO61Am+kg9C7/8kuyXtVunvWOZmDbf13yC7JePHatE +UwqYeM+p+1x7PQGXdvpB3xQTA0UpD+gFBFx4v73v628mTl9cf8XpGgFZ6w8m +fZ9nYlhL4plDeQSc1k95MiOkijGbRmvvXyEg8Q/XU0xFFbU89gWuIM8HO1MX +7TOzUcXo2ylrjyUTYFZcknv+vCquk82vkwkm4C29OGftf6p4O8lTe+lWAqLP +F12dzFFF2L3UlC+QgKqEwstuRaqYdvGl42dfsj9vys0WvauK4o/tN51xJ0Bz +UVZ68idVPCncbx9mRX4v/8Px4TpqeF/dUjCVRsC4pEPAxgY1lDZ3iTdu50L3 +LuaLHY/U8Ln/8as727hQ3/wb4p6q4ekb+zZffkKe/6KLaTe61PBXWdTD6SYu +rOoT+Tg7pIax7q6hZ2q4sIf7fPMVKXXMyVa46nqNC0PrPXwGgtSRecmTrXGQ +CwNpARsPCGpgv/2NxYdEuGD/I8L+s+EyfDi0VvmpcTmMbF18sCJuObpY9g2V +RZSS/x9yfMcbNLG0vifpSVAJSD7TOF3+Qwv7Mst09m65CUopZS6Ghjo46V3o +sFf7BmRrs8SlQnRRrW74+wuFQnisYLFm4uwKzLyQfEdZmQMmSg3pK7tW4iqR +B72qi/JBlD8/LDBxFV5/tzz7skYuqCTQzLw0VuNma0V3vajLIKTuW+n2aDXW +rOcUbZ/JhhVs+bKIzXqowh8rWPnzHBz4INnoQNHHv5HvHlT8zIAfE2ke9tn6 +KPYmRUgxNB1sVzZfstc1wKC1mqbGHmlwf8L0z682A9xzoz2ocu447NHR62kP +XoNbrpz8VxV6DNijQZ1eQoYos9kiNWlhAqxVo65bmm+IJU9tR1VPxMDy+JOR +DUZGaKtFcE69jwCtYFadeo8RXrnecaL2+EEIvr/9WMV+YxyYOaovI78PRncP +RawNM0ZXPf6i7Uv2QaTyrp1d4cbYKb9pMPXPXjgZs9dt5rAxup0sGDFt2gvl +JuF0s2RjHDc31kn22gt/K4/ebbxkjP532K41SXsgo+zqZEejMdbLv/rnObIL +6nI7g8ZlWGib9ihm2Vgo9Dox/MOpLETT4gPtb0KBMrvb648CC+Oz7QZSG0PB +0lXQeRGdhZP7qDJ6F0KheYGJkbwWC3vdYgotIRSebskRsjBnoblRg++ujO3Q +o7ajNH0bCzUoC5zyrENg8sb8r5VVLGQNWa/J6gqCLxttck9Us/DlDecwt6Yg +6F54yq6/loV5Q7lSyhVBUBugcPF8PQul1k5ufH02CBKpa0zmWlloqlCq/XFd +EIin7Ih5/I6FHJl3P9a0bAWdkFeUYD4TVPKLP/C8aQtsVS8WurTOBImz+ysN ++wMguslvh4aLCTI5h3zyXgZAerDkE8LNBFNLPqVTHwbA3YKotCeeJnhDUyVN +pyAApDXsxOYCTdD8EP3jt5AAaNb4LB0QboJifVkVwR/9QWs5ja6RY4K7mvgG +UsX9YFwr05AYM8HQouqOsCpv6H6Ka6UmTDCyVUbsYY431O8Z3RA2ZYLWm4va +1FO84TRhv9/wtwmeuVNyne7lDVomlJIaflMU7Gs6+POPF2yx381olDXFI4Nc +hb/WXtAZYivSaWaKYUJTIx4DnnCH8+fTVIopNt/MsLnu4QGGVmG/HFJNUdSq +VeWqpQfc/jQiknvKFA123BHmrPQAQuWDkUOGKZrOl029E/KAkuz6U1f/M0WL +JTkUvjp3yE1LYtmWmqLKQSqI67jDiTCxs9kvTXFrbN+/GfEN4G2tiqYqZvjV +N1VzkN8V5joXizbSzbBq0/c1AhMukBs8+tZB1Qwj182w9Ptc4EtydYT3cjMM +4h/5U13vAgda15dF6Zlhi+ZnnagjLnDSOUbljo0Zjv9oEAqdXQ81m179Ndhr +hk3vDV9wBJ1Bcffx6hX1ZigRwW2uCHOA0/Pb1qQ2mKF/lFLcGR8H4Muw4X59 +aIZLo8tvx1k6wFDloqLcVjPs2iPtlyvuADWUY9mSL83w9A7R/t5b9uCdFR8x +/dkMhzbHyLiO2EF2bdSa+0vYuL/fqTwx0hZEnL24CqJsrBvUX/Mj0Bbie411 +I8TZ+EZmy/q9jrawfdGM2ioZNhpHtyy+qWILRuvDpfNV2JgTKjMt2GwDXX0H +JpJWs1FEb1DIi2oDMsK7uOs82fhbgN995LE1cKxio8e82Bjfdn/9xgpr0Is9 +bZXpy0ZtM8rhrivW4DxW/qo7kI0nd6+Vlt9vDcldU7Nbd7HRaEbQsoBqDTP5 +cZbRCWyUheWGrTutoMc082VhMRt9tdRj6hiWsP0Q57J9KRt579Pznyy1hOnS +28Ej5eT9FD9ieNYCJJndv1ZXslFwJt8upMMCHBcrK92rZ6OAuOwuh2MWcLez +MOjlKzae9ejN5g4jOIje0Q3vZmPyFnmHyW6EbtvWaepbNg4fte20b0aYrBlO +8etl4+c40dW6eQi6eatufRtiY3ELj/3SE+Fuj0V42nc2Bozf+npzLTmf9AZY +OcbG1JvfvmTpI2w7fqg9bIqNEnRdTo4YOV998iW5GTZeHig+Gv8HIPH3ha01 +v9mo+23h4OfXAOIGRTqb58j3Ebbw2FsBcHV3zdT8PBt7gjYUK50F+B/aGYYx + "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -3183,150 +8296,133 @@ 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:eJwV13c8Ve8fAPAbRSR7XPMOo6wGwsX1+RjZCZGMjCJpD1mRUaSohEp9K6NL +iXDPFaEiIhqKJGkJlZDIiEp+5/fXeb1f5/U8zznn+YznMLbsdQvmo1AoaxZQ +KP+/Tn9ofaiWyjFvaSz6ESFobd55lRpl0Z0IfbJnnCP8mYAyz7dQuzNg0Qr3 +YSd/PQh3ufmavzsfUn0fZaz0twSJUbmM2dcETN0Vc6T4u8HHu857J183QLVl +itk2vy1gozb0fvx1BwiItt8R8z0As6+Nzo297oOkxBOBD9wSodHqOqc9fwLO +htJLRb9ngNLH6i9bdOag0HhV04ba/0B6l/9NQSt+rPxV6fX1Vx5krLapdfZY +jINzVolySoXwJntV/bj4UgxR7KspyS2CVE7ccz55CXwxdGGBIN8tcDAIlZRR +lcCU4S/TnqK3YPFDN49luhIoEsLvkKdwC471q791tJBAwSf7Kcr6tyCG+fRL +VqgEdr2I2nNn6y3Yk0v9p1Ejga3m3b6xjbfA9TJXx9FHEofZT3NWxZaCXFb/ +icwrUnggc0Pli+4yoGrfPjZTKIVyVecDIvrKQKEhOW5zuRQKLAuZkx0pA5Ux +zUPLGqVQzG9KyGK+DNSd9gXUDkrhnk8qy3Ily0F/4Zxhv740XnB+ZTVlVA7r +w2QH9B5LIx9lm/5EXDm4LBn8cOGlNNKvp3Hcj5WDW371m7/vpPEuK+kIkVIO +G1/4Pm/+IY1i3/R3bj1bDpt1rtV4y8hgye8mxUv55bBzYOXZxAAZfHv3W5z3 +w3I47m5v3jEtg9+7+VvVFnFBoaJNgW+BLLI3rLYJEeJCqZT7r9VLZFFO0Ty2 +YCkXujr8ys/SZFEn5rycjCwX1FzDmK52svj9xJLJeg0uNKzLEXhxURZfXJBe +7GjLhTmbqbZnZnJoaa/4RiOJC+mF0cVzNnK4MMNZqDeFHC9ASdF1lcO/03XD +WWlccGoStjgVLIeLC943j2dy4ZIVned0Wg5LTL91RORzwRgdLzz5KIdoKLry +9n0uHGTl+bcmUlH71WzV5AQXHHJFJx3TqKhkkSU4Os0FpmBMSts5KnpLeJ3v +n+XCi86N3Jc3qLjZtHh/4zwXVuwT4f/QRsWP12sYG5cQMFgYUfhTQR6X42zs +IwYBvtLO3xV58vhYoFfprSMB+odrE67elcfM0+anfJ0JEO5bLstolsdlr6It +elwIqC7jB4038riACA9/7EGArGN1+qp5eZygL5M/4k/AiwQ1g7WOCqhw4Gm0 +3gECrH/8jt7Tr4AzDeI17VkERNllaT0YUUDxwKyx9vMElObp9khNK6BPy6GL +bdkEUN0DWNWLFXH59zqre5cJGLnT9It/hSL6bi5fuI9DQGZietjFSEVMZCaf +0uYR0PJWU20kQREb9i2Wm6gg4K9B40vzVEV8OKssX1VJwLavU3oDVxRRreh2 +ikENASZOPuMrGhXRYl8VY9EDAvpkNPY8XKqECxMP58w9I0Bub52ynJwSzrR7 +fU17ToBTy6ZnoXQljI+UKKO2E1AZnaojpq+En4f46tU7CTj5cWzIa5MSrtHr +n5LpIUCvqDbkR74SZknnqK3/TEAIn4ecZYkSXjcSuV74hYDLPqPNWbeV8JVz +Pvf3V4KsGwwNkxYlnOiKD8weIqDnQPLAse9KaD/VaHrzBwEJZq6BCsbKGNty +ymf5LAF2fld/Glkqo8165r+A3wSIxg8f9XBSxtJVaefP/SHnb0wqTA9QxqVX +BUp+zhFwx6FmWOCEMhp1/IiL4eNB3C7BWLVMZYz3i/uaxc8Dm9PuopZXlHFu +p7tj0UIedLaProrlKqN/HH1JswAPxjaphk+8UcY/Lx4mPhfmQVX0PkGJAWUc +8P3T/2gJD45cvpe9YlQZr+eb2d0V4YFIr2dtKJ8KCvV5K18U5cGykDRKr5YK +hmSUSapK8sDv0NTJp4dVsGPUfCKSygP1C5ZKQ0kqeOuLzdhqeR6532duCaar +4Kkv7/59IR39V/OFJUcFDczj3dcq8uDcUT+Z6qcqaDSQ/LdDmQe+BcWFXV0q +eO9Ld+4uFR4wH80YTfaS6zUd9OOj8aBcONN75ZQKJkxHajLpPHh69lFOgTIN ++a9VKegzeZDJk17duIyGv7aaF9wi7f0qsKF3NQ2Hg+Rc1VR5MEj9O6BoQ0PG +s7fiAmo8KDOxD2e50FBrUbfGftLhvucFPb1p+E/Jbks3af7cVVoZe2iYe41Y +9586Dx4/iK0ti6Sh7NZH89Ok0/sfOz1LpOHC/GNvnTV4oLIseO/iCzQMXmki +PUH6sx1B0cij4TW9jQdhGQ9KdsyftSqmobHyFkoKaZPSixVH6mio9/bKjaXL +eWD9um1utIWG755FPbMh7UxZaOvfQUMXiaP5MaQ3abLSn7+l4Szj6vIy0lvd +9ryBzzSc9yoP+EB6z+FrzPJRGvaM5TgKa/IgktO9kz5Dw5u/NwzpkX7wJdm7 +hULHhJAK9ibSNocZcfGL6Pie76ZNNOknYnevGQvTcfSAisBF0i6cjS1jonQU +Nv4bU0G6y3h85IYUHWeLV5Q8Je3zLFUikEpH3wX5WZ9I9wZqGMor05FiZWU0 +QXrbdL13O4OOLhso5xZo8WD4pE/cCQ06Xh1+VCpCeh9t+pqFNh3j/zuRJE16 +ipfeMruSjtiyRkGedLSd9neuAR2pJfd2K5CmvG+S2MGiY5WHVAKVdNL+AEOm +OR2jrmt6SJEWFvjj3WNJx6aNk0PCpNMvnYvLsKVj5nCI1Tz5PDIrV3EcnMj1 +6qL8x0hfanzcwudKx+1zNPxAmrYp+HuNBx0Lcl2/tJDmjMxLHPSmY2CYwIZy +0loJlwy1/ek4L2l0PIt0mcwan/6t5Pqf3x09RNrg5vO4/7bTkcv8ab+BdI35 +Ds6G3XSsa9vfo0v6YUjO98ZwOmon5vq9IffL/i9LMuYwHfVO27vfJN2W3mlo +EE/HpRKu1EjSb6qF4jkn6DhpGCkmTNrPmcPxPU3HsyuyrdvI+BnoM2+VzqTj +U2s5pzOkR5eESSZdpmPLErMuQdIHc0WN2Hl0HHMc9K4j43HGoMhnqoCOli2U +yoOk+f0+cILLyPEiaRMdZDxTy+2MbBroaHP92Y2dZPxfse73+ddMx0Hr7Dkh +0sw3sfGVT+j4SkJ0dQGZT7p8vFaNV3SU4Nc07iDzzdJd2VdwkI5mXskDAgwe +PBqsiq8boeMHGzGnNDJfnWLdCiLG6RiwirgkStqz8Pjo1990vGebOi5E5veu +mfH4lqUM9GJmX3urRObH/m2yXyQZOKa68JMp6cVDPcX8VAZy3ASTssn6UfC2 +scucycBYj0ABWwUefLh/Tue2IQN/9sTIRMmR+WYk3NBhykB5z4rSu7JkPJUf +8RxDBiqa3qn+K8MD2fyQRG1HBrZ9bdc6IM2D9Ums7jx/Bk6+Z+XpSZD5/O/W +7rogBt7mrx3zEifrWTiT/30oAwmZ6HuxYjxI2b5kBTWMgZ8NYjprlvKg3vH9 +0dMpDFTxd2AsIeurnmTCysNcBgZrth5ZRNZrSurUw+xKBkrZVbhOUcj95t/h +XVnLwG18u6s/zROwc8otabyJgczD9uvKyXrP6VZ7G9LDQOGakXI1sl/I5rQk +u/MzMaco8e5Osp/Maot/0PVgovuQWEXsGwKmrygk6Hszcf+iNhHhbgImxdTV +WP5MXOPzyj6zi4DRCdYO61Am+kg9C7/8kuyXtVunvWOZmDbf13yC7JePHatE +UwqYeM+p+1x7PQGXdvpB3xQTA0UpD+gFBFx4v73v628mTl9cf8XpGgFZ6w8m +fZ9nYlhL4plDeQSc1k95MiOkijGbRmvvXyEg8Q/XU0xFFbU89gWuIM8HO1MX +7TOzUcXo2ylrjyUTYFZcknv+vCquk82vkwkm4C29OGftf6p4O8lTe+lWAqLP +F12dzFFF2L3UlC+QgKqEwstuRaqYdvGl42dfsj9vys0WvauK4o/tN51xJ0Bz +UVZ68idVPCncbx9mRX4v/8Px4TpqeF/dUjCVRsC4pEPAxgY1lDZ3iTdu50L3 +LuaLHY/U8Ln/8as727hQ3/wb4p6q4ekb+zZffkKe/6KLaTe61PBXWdTD6SYu +rOoT+Tg7pIax7q6hZ2q4sIf7fPMVKXXMyVa46nqNC0PrPXwGgtSRecmTrXGQ +CwNpARsPCGpgv/2NxYdEuGD/I8L+s+EyfDi0VvmpcTmMbF18sCJuObpY9g2V +RZSS/x9yfMcbNLG0vifpSVAJSD7TOF3+Qwv7Mst09m65CUopZS6Ghjo46V3o +sFf7BmRrs8SlQnRRrW74+wuFQnisYLFm4uwKzLyQfEdZmQMmSg3pK7tW4iqR +B72qi/JBlD8/LDBxFV5/tzz7skYuqCTQzLw0VuNma0V3vajLIKTuW+n2aDXW +rOcUbZ/JhhVs+bKIzXqowh8rWPnzHBz4INnoQNHHv5HvHlT8zIAfE2ke9tn6 +KPYmRUgxNB1sVzZfstc1wKC1mqbGHmlwf8L0z682A9xzoz2ocu447NHR62kP +XoNbrpz8VxV6DNijQZ1eQoYos9kiNWlhAqxVo65bmm+IJU9tR1VPxMDy+JOR +DUZGaKtFcE69jwCtYFadeo8RXrnecaL2+EEIvr/9WMV+YxyYOaovI78PRncP +RawNM0ZXPf6i7Uv2QaTyrp1d4cbYKb9pMPXPXjgZs9dt5rAxup0sGDFt2gvl +JuF0s2RjHDc31kn22gt/K4/ebbxkjP532K41SXsgo+zqZEejMdbLv/rnObIL +6nI7g8ZlWGib9ihm2Vgo9Dox/MOpLETT4gPtb0KBMrvb648CC+Oz7QZSG0PB +0lXQeRGdhZP7qDJ6F0KheYGJkbwWC3vdYgotIRSebskRsjBnoblRg++ujO3Q +o7ajNH0bCzUoC5zyrENg8sb8r5VVLGQNWa/J6gqCLxttck9Us/DlDecwt6Yg +6F54yq6/loV5Q7lSyhVBUBugcPF8PQul1k5ufH02CBKpa0zmWlloqlCq/XFd +EIin7Ih5/I6FHJl3P9a0bAWdkFeUYD4TVPKLP/C8aQtsVS8WurTOBImz+ysN ++wMguslvh4aLCTI5h3zyXgZAerDkE8LNBFNLPqVTHwbA3YKotCeeJnhDUyVN +pyAApDXsxOYCTdD8EP3jt5AAaNb4LB0QboJifVkVwR/9QWs5ja6RY4K7mvgG +UsX9YFwr05AYM8HQouqOsCpv6H6Ka6UmTDCyVUbsYY431O8Z3RA2ZYLWm4va +1FO84TRhv9/wtwmeuVNyne7lDVomlJIaflMU7Gs6+POPF2yx381olDXFI4Nc +hb/WXtAZYivSaWaKYUJTIx4DnnCH8+fTVIopNt/MsLnu4QGGVmG/HFJNUdSq +VeWqpQfc/jQiknvKFA123BHmrPQAQuWDkUOGKZrOl029E/KAkuz6U1f/M0WL +JTkUvjp3yE1LYtmWmqLKQSqI67jDiTCxs9kvTXFrbN+/GfEN4G2tiqYqZvjV +N1VzkN8V5joXizbSzbBq0/c1AhMukBs8+tZB1Qwj182w9Ptc4EtydYT3cjMM +4h/5U13vAgda15dF6Zlhi+ZnnagjLnDSOUbljo0Zjv9oEAqdXQ81m179Ndhr +hk3vDV9wBJ1Bcffx6hX1ZigRwW2uCHOA0/Pb1qQ2mKF/lFLcGR8H4Muw4X59 +aIZLo8tvx1k6wFDloqLcVjPs2iPtlyvuADWUY9mSL83w9A7R/t5b9uCdFR8x +/dkMhzbHyLiO2EF2bdSa+0vYuL/fqTwx0hZEnL24CqJsrBvUX/Mj0Bbie411 +I8TZ+EZmy/q9jrawfdGM2ioZNhpHtyy+qWILRuvDpfNV2JgTKjMt2GwDXX0H +JpJWs1FEb1DIi2oDMsK7uOs82fhbgN995LE1cKxio8e82Bjfdn/9xgpr0Is9 +bZXpy0ZtM8rhrivW4DxW/qo7kI0nd6+Vlt9vDcldU7Nbd7HRaEbQsoBqDTP5 +cZbRCWyUheWGrTutoMc082VhMRt9tdRj6hiWsP0Q57J9KRt579Pznyy1hOnS +28Ej5eT9FD9ieNYCJJndv1ZXslFwJt8upMMCHBcrK92rZ6OAuOwuh2MWcLez +MOjlKzae9ejN5g4jOIje0Q3vZmPyFnmHyW6EbtvWaepbNg4fte20b0aYrBlO +8etl4+c40dW6eQi6eatufRtiY3ELj/3SE+Fuj0V42nc2Bozf+npzLTmf9AZY +OcbG1JvfvmTpI2w7fqg9bIqNEnRdTo4YOV998iW5GTZeHig+Gv8HIPH3ha01 +v9mo+23h4OfXAOIGRTqb58j3Ebbw2FsBcHV3zdT8PBt7gjYUK50F+B/aGYYx + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "PlotRange" -> {{0, 30}, {0., 0.07486119441243522}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +8434,19 @@ eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "PlotRange" -> {{0, 30}, {0., 0.07486119441243522}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +8460,132 @@ 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:eJwV13c8Ve8fAPAbRSR7XPMOo6wGwsX1+RjZCZGMjCJpD1mRUaSohEp9K6NL +iXDPFaEiIhqKJGkJlZDIiEp+5/fXeb1f5/U8zznn+YznMLbsdQvmo1AoaxZQ +KP+/Tn9ofaiWyjFvaSz6ESFobd55lRpl0Z0IfbJnnCP8mYAyz7dQuzNg0Qr3 +YSd/PQh3ufmavzsfUn0fZaz0twSJUbmM2dcETN0Vc6T4u8HHu857J183QLVl +itk2vy1gozb0fvx1BwiItt8R8z0As6+Nzo297oOkxBOBD9wSodHqOqc9fwLO +htJLRb9ngNLH6i9bdOag0HhV04ba/0B6l/9NQSt+rPxV6fX1Vx5krLapdfZY +jINzVolySoXwJntV/bj4UgxR7KspyS2CVE7ccz55CXwxdGGBIN8tcDAIlZRR +lcCU4S/TnqK3YPFDN49luhIoEsLvkKdwC471q791tJBAwSf7Kcr6tyCG+fRL +VqgEdr2I2nNn6y3Yk0v9p1Ejga3m3b6xjbfA9TJXx9FHEofZT3NWxZaCXFb/ +icwrUnggc0Pli+4yoGrfPjZTKIVyVecDIvrKQKEhOW5zuRQKLAuZkx0pA5Ux +zUPLGqVQzG9KyGK+DNSd9gXUDkrhnk8qy3Ily0F/4Zxhv740XnB+ZTVlVA7r +w2QH9B5LIx9lm/5EXDm4LBn8cOGlNNKvp3Hcj5WDW371m7/vpPEuK+kIkVIO +G1/4Pm/+IY1i3/R3bj1bDpt1rtV4y8hgye8mxUv55bBzYOXZxAAZfHv3W5z3 +w3I47m5v3jEtg9+7+VvVFnFBoaJNgW+BLLI3rLYJEeJCqZT7r9VLZFFO0Ty2 +YCkXujr8ys/SZFEn5rycjCwX1FzDmK52svj9xJLJeg0uNKzLEXhxURZfXJBe +7GjLhTmbqbZnZnJoaa/4RiOJC+mF0cVzNnK4MMNZqDeFHC9ASdF1lcO/03XD +WWlccGoStjgVLIeLC943j2dy4ZIVned0Wg5LTL91RORzwRgdLzz5KIdoKLry +9n0uHGTl+bcmUlH71WzV5AQXHHJFJx3TqKhkkSU4Os0FpmBMSts5KnpLeJ3v +n+XCi86N3Jc3qLjZtHh/4zwXVuwT4f/QRsWP12sYG5cQMFgYUfhTQR6X42zs +IwYBvtLO3xV58vhYoFfprSMB+odrE67elcfM0+anfJ0JEO5bLstolsdlr6It +elwIqC7jB4038riACA9/7EGArGN1+qp5eZygL5M/4k/AiwQ1g7WOCqhw4Gm0 +3gECrH/8jt7Tr4AzDeI17VkERNllaT0YUUDxwKyx9vMElObp9khNK6BPy6GL +bdkEUN0DWNWLFXH59zqre5cJGLnT9It/hSL6bi5fuI9DQGZietjFSEVMZCaf +0uYR0PJWU20kQREb9i2Wm6gg4K9B40vzVEV8OKssX1VJwLavU3oDVxRRreh2 +ikENASZOPuMrGhXRYl8VY9EDAvpkNPY8XKqECxMP58w9I0Bub52ynJwSzrR7 +fU17ToBTy6ZnoXQljI+UKKO2E1AZnaojpq+En4f46tU7CTj5cWzIa5MSrtHr +n5LpIUCvqDbkR74SZknnqK3/TEAIn4ecZYkSXjcSuV74hYDLPqPNWbeV8JVz +Pvf3V4KsGwwNkxYlnOiKD8weIqDnQPLAse9KaD/VaHrzBwEJZq6BCsbKGNty +ymf5LAF2fld/Glkqo8165r+A3wSIxg8f9XBSxtJVaefP/SHnb0wqTA9QxqVX +BUp+zhFwx6FmWOCEMhp1/IiL4eNB3C7BWLVMZYz3i/uaxc8Dm9PuopZXlHFu +p7tj0UIedLaProrlKqN/HH1JswAPxjaphk+8UcY/Lx4mPhfmQVX0PkGJAWUc +8P3T/2gJD45cvpe9YlQZr+eb2d0V4YFIr2dtKJ8KCvV5K18U5cGykDRKr5YK +hmSUSapK8sDv0NTJp4dVsGPUfCKSygP1C5ZKQ0kqeOuLzdhqeR6532duCaar +4Kkv7/59IR39V/OFJUcFDczj3dcq8uDcUT+Z6qcqaDSQ/LdDmQe+BcWFXV0q +eO9Ld+4uFR4wH80YTfaS6zUd9OOj8aBcONN75ZQKJkxHajLpPHh69lFOgTIN ++a9VKegzeZDJk17duIyGv7aaF9wi7f0qsKF3NQ2Hg+Rc1VR5MEj9O6BoQ0PG +s7fiAmo8KDOxD2e50FBrUbfGftLhvucFPb1p+E/Jbks3af7cVVoZe2iYe41Y +9586Dx4/iK0ti6Sh7NZH89Ok0/sfOz1LpOHC/GNvnTV4oLIseO/iCzQMXmki +PUH6sx1B0cij4TW9jQdhGQ9KdsyftSqmobHyFkoKaZPSixVH6mio9/bKjaXL +eWD9um1utIWG755FPbMh7UxZaOvfQUMXiaP5MaQ3abLSn7+l4Szj6vIy0lvd +9ryBzzSc9yoP+EB6z+FrzPJRGvaM5TgKa/IgktO9kz5Dw5u/NwzpkX7wJdm7 +hULHhJAK9ibSNocZcfGL6Pie76ZNNOknYnevGQvTcfSAisBF0i6cjS1jonQU +Nv4bU0G6y3h85IYUHWeLV5Q8Je3zLFUikEpH3wX5WZ9I9wZqGMor05FiZWU0 +QXrbdL13O4OOLhso5xZo8WD4pE/cCQ06Xh1+VCpCeh9t+pqFNh3j/zuRJE16 +ipfeMruSjtiyRkGedLSd9neuAR2pJfd2K5CmvG+S2MGiY5WHVAKVdNL+AEOm +OR2jrmt6SJEWFvjj3WNJx6aNk0PCpNMvnYvLsKVj5nCI1Tz5PDIrV3EcnMj1 +6qL8x0hfanzcwudKx+1zNPxAmrYp+HuNBx0Lcl2/tJDmjMxLHPSmY2CYwIZy +0loJlwy1/ek4L2l0PIt0mcwan/6t5Pqf3x09RNrg5vO4/7bTkcv8ab+BdI35 +Ds6G3XSsa9vfo0v6YUjO98ZwOmon5vq9IffL/i9LMuYwHfVO27vfJN2W3mlo +EE/HpRKu1EjSb6qF4jkn6DhpGCkmTNrPmcPxPU3HsyuyrdvI+BnoM2+VzqTj +U2s5pzOkR5eESSZdpmPLErMuQdIHc0WN2Hl0HHMc9K4j43HGoMhnqoCOli2U +yoOk+f0+cILLyPEiaRMdZDxTy+2MbBroaHP92Y2dZPxfse73+ddMx0Hr7Dkh +0sw3sfGVT+j4SkJ0dQGZT7p8vFaNV3SU4Nc07iDzzdJd2VdwkI5mXskDAgwe +PBqsiq8boeMHGzGnNDJfnWLdCiLG6RiwirgkStqz8Pjo1990vGebOi5E5veu +mfH4lqUM9GJmX3urRObH/m2yXyQZOKa68JMp6cVDPcX8VAZy3ASTssn6UfC2 +scucycBYj0ABWwUefLh/Tue2IQN/9sTIRMmR+WYk3NBhykB5z4rSu7JkPJUf +8RxDBiqa3qn+K8MD2fyQRG1HBrZ9bdc6IM2D9Ums7jx/Bk6+Z+XpSZD5/O/W +7rogBt7mrx3zEifrWTiT/30oAwmZ6HuxYjxI2b5kBTWMgZ8NYjprlvKg3vH9 +0dMpDFTxd2AsIeurnmTCysNcBgZrth5ZRNZrSurUw+xKBkrZVbhOUcj95t/h +XVnLwG18u6s/zROwc8otabyJgczD9uvKyXrP6VZ7G9LDQOGakXI1sl/I5rQk +u/MzMaco8e5Osp/Maot/0PVgovuQWEXsGwKmrygk6Hszcf+iNhHhbgImxdTV +WP5MXOPzyj6zi4DRCdYO61Am+kg9C7/8kuyXtVunvWOZmDbf13yC7JePHatE +UwqYeM+p+1x7PQGXdvpB3xQTA0UpD+gFBFx4v73v628mTl9cf8XpGgFZ6w8m +fZ9nYlhL4plDeQSc1k95MiOkijGbRmvvXyEg8Q/XU0xFFbU89gWuIM8HO1MX +7TOzUcXo2ylrjyUTYFZcknv+vCquk82vkwkm4C29OGftf6p4O8lTe+lWAqLP +F12dzFFF2L3UlC+QgKqEwstuRaqYdvGl42dfsj9vys0WvauK4o/tN51xJ0Bz +UVZ68idVPCncbx9mRX4v/8Px4TpqeF/dUjCVRsC4pEPAxgY1lDZ3iTdu50L3 +LuaLHY/U8Ln/8as727hQ3/wb4p6q4ekb+zZffkKe/6KLaTe61PBXWdTD6SYu +rOoT+Tg7pIax7q6hZ2q4sIf7fPMVKXXMyVa46nqNC0PrPXwGgtSRecmTrXGQ +CwNpARsPCGpgv/2NxYdEuGD/I8L+s+EyfDi0VvmpcTmMbF18sCJuObpY9g2V +RZSS/x9yfMcbNLG0vifpSVAJSD7TOF3+Qwv7Mst09m65CUopZS6Ghjo46V3o +sFf7BmRrs8SlQnRRrW74+wuFQnisYLFm4uwKzLyQfEdZmQMmSg3pK7tW4iqR +B72qi/JBlD8/LDBxFV5/tzz7skYuqCTQzLw0VuNma0V3vajLIKTuW+n2aDXW +rOcUbZ/JhhVs+bKIzXqowh8rWPnzHBz4INnoQNHHv5HvHlT8zIAfE2ke9tn6 +KPYmRUgxNB1sVzZfstc1wKC1mqbGHmlwf8L0z682A9xzoz2ocu447NHR62kP +XoNbrpz8VxV6DNijQZ1eQoYos9kiNWlhAqxVo65bmm+IJU9tR1VPxMDy+JOR +DUZGaKtFcE69jwCtYFadeo8RXrnecaL2+EEIvr/9WMV+YxyYOaovI78PRncP +RawNM0ZXPf6i7Uv2QaTyrp1d4cbYKb9pMPXPXjgZs9dt5rAxup0sGDFt2gvl +JuF0s2RjHDc31kn22gt/K4/ebbxkjP532K41SXsgo+zqZEejMdbLv/rnObIL +6nI7g8ZlWGib9ihm2Vgo9Dox/MOpLETT4gPtb0KBMrvb648CC+Oz7QZSG0PB +0lXQeRGdhZP7qDJ6F0KheYGJkbwWC3vdYgotIRSebskRsjBnoblRg++ujO3Q +o7ajNH0bCzUoC5zyrENg8sb8r5VVLGQNWa/J6gqCLxttck9Us/DlDecwt6Yg +6F54yq6/loV5Q7lSyhVBUBugcPF8PQul1k5ufH02CBKpa0zmWlloqlCq/XFd +EIin7Ih5/I6FHJl3P9a0bAWdkFeUYD4TVPKLP/C8aQtsVS8WurTOBImz+ysN ++wMguslvh4aLCTI5h3zyXgZAerDkE8LNBFNLPqVTHwbA3YKotCeeJnhDUyVN +pyAApDXsxOYCTdD8EP3jt5AAaNb4LB0QboJifVkVwR/9QWs5ja6RY4K7mvgG +UsX9YFwr05AYM8HQouqOsCpv6H6Ka6UmTDCyVUbsYY431O8Z3RA2ZYLWm4va +1FO84TRhv9/wtwmeuVNyne7lDVomlJIaflMU7Gs6+POPF2yx381olDXFI4Nc +hb/WXtAZYivSaWaKYUJTIx4DnnCH8+fTVIopNt/MsLnu4QGGVmG/HFJNUdSq +VeWqpQfc/jQiknvKFA123BHmrPQAQuWDkUOGKZrOl029E/KAkuz6U1f/M0WL +JTkUvjp3yE1LYtmWmqLKQSqI67jDiTCxs9kvTXFrbN+/GfEN4G2tiqYqZvjV +N1VzkN8V5joXizbSzbBq0/c1AhMukBs8+tZB1Qwj182w9Ptc4EtydYT3cjMM +4h/5U13vAgda15dF6Zlhi+ZnnagjLnDSOUbljo0Zjv9oEAqdXQ81m179Ndhr +hk3vDV9wBJ1Bcffx6hX1ZigRwW2uCHOA0/Pb1qQ2mKF/lFLcGR8H4Muw4X59 +aIZLo8tvx1k6wFDloqLcVjPs2iPtlyvuADWUY9mSL83w9A7R/t5b9uCdFR8x +/dkMhzbHyLiO2EF2bdSa+0vYuL/fqTwx0hZEnL24CqJsrBvUX/Mj0Bbie411 +I8TZ+EZmy/q9jrawfdGM2ioZNhpHtyy+qWILRuvDpfNV2JgTKjMt2GwDXX0H +JpJWs1FEb1DIi2oDMsK7uOs82fhbgN995LE1cKxio8e82Bjfdn/9xgpr0Is9 +bZXpy0ZtM8rhrivW4DxW/qo7kI0nd6+Vlt9vDcldU7Nbd7HRaEbQsoBqDTP5 +cZbRCWyUheWGrTutoMc082VhMRt9tdRj6hiWsP0Q57J9KRt579Pznyy1hOnS +28Ej5eT9FD9ieNYCJJndv1ZXslFwJt8upMMCHBcrK92rZ6OAuOwuh2MWcLez +MOjlKzae9ejN5g4jOIje0Q3vZmPyFnmHyW6EbtvWaepbNg4fte20b0aYrBlO +8etl4+c40dW6eQi6eatufRtiY3ELj/3SE+Fuj0V42nc2Bozf+npzLTmf9AZY +OcbG1JvfvmTpI2w7fqg9bIqNEnRdTo4YOV998iW5GTZeHig+Gv8HIPH3ha01 +v9mo+23h4OfXAOIGRTqb58j3Ebbw2FsBcHV3zdT8PBt7gjYUK50F+B/aGYYx + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "PlotRange" -> {{0, 30}, {0., 0.07486119441243522}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +8596,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 +8624,8 @@ eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.08145702771151381}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07486119441243522}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -3552,9 +8633,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.9940418537145576`*^9}, CellLabel-> - "Out[255]=",ExpressionUUID->"f7784347-2042-c042-8970-b060f9535d9e"] + "Out[121]=",ExpressionUUID->"67fdcfd7-aee3-42d7-8706-17119fb47913"] }, Open ]], Cell[CellGroupData[{ @@ -3566,7 +8647,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[{ @@ -3584,8 +8667,8 @@ Cell[BoxData[ SuperscriptBox[ RowBox[{"(", FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -3607,66 +8690,73 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[256]:=",ExpressionUUID->"86381d88-1537-a242-9cff-0b432b61d63d"], + "In[122]:=",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.0127723063051564`*^-152\\\", \ +RowBox[{\\\"552513857212233842570175958778312308519209260189278753\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"48\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6418618000954093361543354777600000000000000000000000000\\\"}]]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 122, 21, 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335257395241*^9, 3.994041853778373*^9}, CellLabel-> "During evaluation of \ -In[256]:=",ExpressionUUID->"0a4bed5c-621d-a546-88e9-ce7d779c106a"], +In[122]:=",ExpressionUUID->"b0a06aa1-dc70-42e6-85b0-2d4f1524ae91"], 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.4261474595874657`*^-155\\\", \ +RowBox[{\\\"192330073695578600598678251250730514595536743471887934\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"52\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3209261321198991532417980825600000000000000000000000000\\\"}]]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 122, 22, 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335257395241*^9, 3.9940418537821712`*^9}, CellLabel-> "During evaluation of \ -In[256]:=",ExpressionUUID->"80e3943d-459b-8b41-9869-50a6cf829ef8"], +In[122]:=",ExpressionUUID->"1885b34f-94e8-420d-a9f3-bc1041e028d4"], 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[\\\"5.811959370351462`*^-158\\\", \ +RowBox[{\\\"692388265304082962155241704502629852543932276498796563\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"55\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3340756316369516704730972160000000000000000000000000000\\\"}]]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 122, 23, 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335257395241*^9, 3.9940418537850313`*^9}, CellLabel-> "During evaluation of \ -In[256]:=",ExpressionUUID->"36529169-7f05-ee43-8080-ce8fdd404b8d"], +In[122]:=",ExpressionUUID->"e09ab535-208d-4f45-8d30-5473f18f4d7d"], 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, 122, 24, 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335257395241*^9, 3.994041853787703*^9}, CellLabel-> "During evaluation of \ -In[256]:=",ExpressionUUID->"a6c5f0ff-3356-4c42-b883-ce45e5cc4f41"], +In[122]:=",ExpressionUUID->"21e9da6d-0279-4e2f-9bb8-b19a0a431eba"], -Cell[BoxData["9.332200719005158`"], "Output", - CellChangeTimes->{3.991335263670042*^9}, +Cell[BoxData["10.150746192379904`"], "Output", + CellChangeTimes->{3.991335263670042*^9, 3.994041878269394*^9}, CellLabel-> - "Out[256]=",ExpressionUUID->"546f133a-4a8e-8d44-937d-5fc3ea2401d8"] + "Out[122]=",ExpressionUUID->"72bc270a-a708-4caa-83f6-9b92d23956aa"] }, Open ]], Cell[CellGroupData[{ @@ -3733,65 +8823,73 @@ 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[123]:=",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[\\\"1.82625796237564`*^-204\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 123, 25, + 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335263710146*^9, 3.994041878311845*^9}, CellLabel-> "During evaluation of \ -In[257]:=",ExpressionUUID->"2e7d173d-070f-de49-a3c2-9964fb888ede"], +In[123]:=",ExpressionUUID->"c142a8c4-6e0f-4812-92f5-f27738cb143a"], 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[\\\"4.277037713838509`*^-209\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 123, 26, + 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335263710146*^9, 3.99404187831535*^9}, CellLabel-> "During evaluation of \ -In[257]:=",ExpressionUUID->"04b23985-5685-d344-a2ed-9886796baf32"], +In[123]:=",ExpressionUUID->"ea9a7f7c-3954-48b4-a974-25b294581092"], 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[\\\"1.0016685475145526`*^-213\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034477221223196355\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"7\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8934564270838098005054611040868761600000000000000000000\\\"}]]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 123, 27, 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335263710146*^9, 3.994041878318609*^9}, CellLabel-> "During evaluation of \ -In[257]:=",ExpressionUUID->"ccdd27f2-bd64-f442-a708-cfb1052c7f86"], +In[123]:=",ExpressionUUID->"f70a69d5-c72d-4bc8-ad16-5c872f665473"], 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, 123, 28, 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335263710146*^9, 3.9940418783216352`*^9}, CellLabel-> "During evaluation of \ -In[257]:=",ExpressionUUID->"384ce3fd-4914-6b49-b10c-84d885ed65d6"], +In[123]:=",ExpressionUUID->"e837b2ae-15fb-44f2-9f2a-e204e2059161"], -Cell[BoxData["0.00046079539931050297`"], "Output", - CellChangeTimes->{3.991335268779545*^9}, +Cell[BoxData["0.5706480104337619`"], "Output", + CellChangeTimes->{3.991335268779545*^9, 3.9940418818332977`*^9}, CellLabel-> - "Out[257]=",ExpressionUUID->"8865a4e5-7fd3-3c49-a115-94c8c5479389"] + "Out[123]=",ExpressionUUID->"f2dde614-a376-4374-948e-f2ff40b57cff"] }, Open ]], Cell[CellGroupData[{ @@ -3812,8 +8910,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 +8955,73 @@ 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[124]:=",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[\\\"1.82625796237564`*^-204\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 124, 29, + 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335268812542*^9, 3.99404188186275*^9}, CellLabel-> "During evaluation of \ -In[258]:=",ExpressionUUID->"958049e8-43e1-cc46-81fb-5b3fe1a5d9ee"], +In[124]:=",ExpressionUUID->"865c203f-1426-45a9-a6fa-67a17e76115b"], 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[\\\"4.277037713838509`*^-209\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 124, 30, + 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335268812542*^9, 3.994041881865609*^9}, CellLabel-> "During evaluation of \ -In[258]:=",ExpressionUUID->"6ed73f20-f975-a34c-a5a3-af58e9ecd7ed"], +In[124]:=",ExpressionUUID->"239374c8-2181-4acd-b988-9b847d3c1fcc"], 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[\\\"1.0016685475145526`*^-213\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034477221223196355\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"7\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8934564270838098005054611040868761600000000000000000000\\\"}]]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 124, 31, 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335268812542*^9, 3.994041881868297*^9}, CellLabel-> "During evaluation of \ -In[258]:=",ExpressionUUID->"4ce11323-2f48-da4f-84f8-593751381024"], +In[124]:=",ExpressionUUID->"22e964d0-4483-41d2-8410-cb6f6c766ddf"], 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, 124, 32, 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335268812542*^9, 3.9940418818709106`*^9}, CellLabel-> "During evaluation of \ -In[258]:=",ExpressionUUID->"330905cd-5b42-604b-aaf8-fbac43108165"], +In[124]:=",ExpressionUUID->"cd8c158e-e50e-4e0e-ba3b-4e6a02aaa4d0"], -Cell[BoxData["5.104103620353258`"], "Output", - CellChangeTimes->{3.991335272704685*^9}, +Cell[BoxData["29.203268554739388`"], "Output", + CellChangeTimes->{3.991335272704685*^9, 3.994041885097707*^9}, CellLabel-> - "Out[258]=",ExpressionUUID->"020ade62-ec43-7549-8079-7ac012e004c4"] + "Out[124]=",ExpressionUUID->"a61f0541-a8ad-4c93-ab95-10fd3d7b34cb"] }, Open ]], Cell[CellGroupData[{ @@ -3937,8 +9042,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 +9087,73 @@ 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[125]:=",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[\\\"1.82625796237564`*^-204\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 125, 33, + 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913352727386665`*^9, 3.9940418851255217`*^9}, CellLabel-> "During evaluation of \ -In[259]:=",ExpressionUUID->"9a8eff2d-0d97-2e45-a2f3-ce0634115f7d"], +In[125]:=",ExpressionUUID->"7f20fdb0-6172-4b57-a831-a277fd140567"], 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[\\\"4.277037713838509`*^-209\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 125, 34, + 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913352727386665`*^9, 3.994041885128334*^9}, CellLabel-> "During evaluation of \ -In[259]:=",ExpressionUUID->"7dd7e17e-c74e-7145-b6ae-77a0f02c67f1"], +In[125]:=",ExpressionUUID->"9cfab69a-ab6f-4b92-933f-31c2e877c647"], 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[\\\"1.0016685475145526`*^-213\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034477221223196355\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"7\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8934564270838098005054611040868761600000000000000000000\\\"}]]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 125, 35, 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913352727386665`*^9, 3.994041885130829*^9}, CellLabel-> "During evaluation of \ -In[259]:=",ExpressionUUID->"311ddb21-a730-0b41-b633-2d3bac87be85"], +In[125]:=",ExpressionUUID->"d3f3b2a2-e4c9-4c1d-83d7-2632f55af9fd"], 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, 125, 36, 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913352727386665`*^9, 3.994041885133297*^9}, CellLabel-> "During evaluation of \ -In[259]:=",ExpressionUUID->"ecdc16e1-316d-b342-a60b-0f3075607709"], +In[125]:=",ExpressionUUID->"dd068141-2019-44f3-a5df-caa1b3187d61"], -Cell[BoxData["18.832858301324727`"], "Output", - CellChangeTimes->{3.991335275154251*^9}, +Cell[BoxData["4.22652090021548`"], "Output", + CellChangeTimes->{3.991335275154251*^9, 3.994041887157742*^9}, CellLabel-> - "Out[259]=",ExpressionUUID->"a7fc6f95-4067-504b-8754-5086d2659934"] + "Out[125]=",ExpressionUUID->"3de16436-973c-42db-9c90-41453a7a9cb4"] }, Open ]], Cell[CellGroupData[{ @@ -4050,22 +9162,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[126]:=",ExpressionUUID->"69dd09d9-152e-3e4d-9517-4de4791db2f4"], + +Cell[BoxData["0.05136426357080514`"], "Output", + CellChangeTimes->{3.991335275186266*^9, 3.99404188717667*^9}, + CellLabel-> + "Out[126]=",ExpressionUUID->"84a48c3e-432c-4913-af75-2ad11bc5a281"] }, 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[127]:=",ExpressionUUID->"6ecc7e8c-a7c5-354e-b168-749729cd7104"], Cell[CellGroupData[{ @@ -4088,12 +9201,12 @@ Cell[BoxData[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", CellLabel-> - "In[262]:=",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], + "In[128]:=",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], -Cell[BoxData["5.744985073726737`"], "Output", - CellChangeTimes->{3.9913352752142563`*^9}, +Cell[BoxData["5.350823778526`"], "Output", + CellChangeTimes->{3.9913352752142563`*^9, 3.9940418871852083`*^9}, CellLabel-> - "Out[262]=",ExpressionUUID->"fecac54e-ac70-c448-b60d-60e5d8aa9072"] + "Out[128]=",ExpressionUUID->"b14624d7-3b55-4e97-bf86-21780c336e2e"] }, Open ]], Cell[CellGroupData[{ @@ -4103,12 +9216,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", CellLabel-> - "In[264]:=",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], + "In[129]:=",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], -Cell[BoxData["1.564995573098557`"], "Output", - CellChangeTimes->{3.9913352752482567`*^9}, +Cell[BoxData["2.8263033018745554`"], "Output", + CellChangeTimes->{3.9913352752482567`*^9, 3.994041887190217*^9}, CellLabel-> - "Out[264]=",ExpressionUUID->"31e41e93-aaef-1b4f-a5e6-3cad86684dfc"] + "Out[129]=",ExpressionUUID->"2a713053-efe4-4857-9c0d-e60c4ca59742"] }, Open ]], Cell[CellGroupData[{ @@ -4118,12 +9231,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[267]:=",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], + "In[130]:=",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], -Cell[BoxData["8.990876207899632`"], "Output", - CellChangeTimes->{3.9913352753089123`*^9}, +Cell[BoxData["15.123050912996918`"], "Output", + CellChangeTimes->{3.9913352753089123`*^9, 3.994041887194325*^9}, CellLabel-> - "Out[267]=",ExpressionUUID->"d20f2acf-afe0-0844-b0cd-0cdce2394573"] + "Out[130]=",ExpressionUUID->"22808f42-cace-4b06-a3da-ed3dcc7ff5f2"] }, Open ]], Cell[CellGroupData[{ @@ -4313,12 +9426,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[268]:=",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], + "In[131]:=",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], -Cell[BoxData["0.07167004636648908`"], "Output", - CellChangeTimes->{3.9913352753341656`*^9}, +Cell[BoxData["0.007579644946145273`"], "Output", + CellChangeTimes->{3.9913352753341656`*^9, 3.994041887199651*^9}, CellLabel-> - "Out[268]=",ExpressionUUID->"ec544098-6efd-4845-b84f-33e39ead67c9"] + "Out[131]=",ExpressionUUID->"0bdf3028-19d5-4797-9620-01397b187715"] }, Open ]], Cell[CellGroupData[{ @@ -4332,12 +9445,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[269]:=",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], + "In[132]:=",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], -Cell[BoxData["3.3103666491187544`"], "Output", - CellChangeTimes->{3.9913352754296722`*^9}, +Cell[BoxData["10.17936083714507`"], "Output", + CellChangeTimes->{3.9913352754296722`*^9, 3.994041887252734*^9}, CellLabel-> - "Out[269]=",ExpressionUUID->"85f4fe6d-1167-7a40-b761-0a55e5251875"] + "Out[132]=",ExpressionUUID->"10fac7ec-d0dd-4cbe-a6e1-e72dfefb318b"] }, Open ]], Cell[CellGroupData[{ @@ -4529,12 +9642,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[270]:=",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], + "In[133]:=",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], -Cell[BoxData["0.012832691268660865`"], "Output", - CellChangeTimes->{3.9913352754426765`*^9}, +Cell[BoxData["0.0643258774034965`"], "Output", + CellChangeTimes->{3.9913352754426765`*^9, 3.994041887258382*^9}, CellLabel-> - "Out[270]=",ExpressionUUID->"53db8250-199b-594a-8ebd-fc9cc43217e3"] + "Out[133]=",ExpressionUUID->"8a0b4911-7133-4748-8b97-65d72b1f97d7"] }, Open ]], Cell[CellGroupData[{ @@ -4548,12 +9661,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[271]:=",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], + "In[134]:=",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], -Cell[BoxData["7.823229443917166`"], "Output", - CellChangeTimes->{3.991335275540678*^9}, +Cell[BoxData["3.4942347733285133`"], "Output", + CellChangeTimes->{3.991335275540678*^9, 3.994041887310574*^9}, CellLabel-> - "Out[271]=",ExpressionUUID->"0013bb3e-54d0-e343-9869-cf63da2eecbd"] + "Out[134]=",ExpressionUUID->"4ff8c611-6acd-439c-a0a1-40550ea3c2fc"] }, Open ]], Cell[CellGroupData[{ @@ -4646,12 +9759,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[272]:=",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], + "In[135]:=",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], -Cell[BoxData["0.7884625602161153`"], "Output", - CellChangeTimes->{3.9913352755566807`*^9}, +Cell[BoxData["0.05674825314301471`"], "Output", + CellChangeTimes->{3.9913352755566807`*^9, 3.994041887315572*^9}, CellLabel-> - "Out[272]=",ExpressionUUID->"96d8705a-f744-d447-bad0-55fe1d703f38"] + "Out[135]=",ExpressionUUID->"c109aa3f-8782-4d25-b887-73d1db72fdcc"] }, Open ]], Cell[CellGroupData[{ @@ -4741,12 +9854,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[273]:=",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], + "In[136]:=",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], -Cell[BoxData["0.21153743978388478`"], "Output", - CellChangeTimes->{3.991335275581682*^9}, +Cell[BoxData["0.9432517468569853`"], "Output", + CellChangeTimes->{3.991335275581682*^9, 3.9940418873199177`*^9}, CellLabel-> - "Out[273]=",ExpressionUUID->"bad41b21-8b15-a74b-a641-622c6584a958"] + "Out[136]=",ExpressionUUID->"73dc6b3a-c079-4be4-b6a2-424ee06c27bf"] }, Open ]], Cell[CellGroupData[{ @@ -4869,12 +9982,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[274]:=",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], + "In[137]:=",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], -Cell[BoxData["0.16678935135356415`"], "Output", - CellChangeTimes->{3.9913352756087036`*^9}, +Cell[BoxData["0.05352788890823103`"], "Output", + CellChangeTimes->{3.9913352756087036`*^9, 3.994041887324895*^9}, CellLabel-> - "Out[274]=",ExpressionUUID->"a42f993d-5633-3546-ae09-6931972f9312"] + "Out[137]=",ExpressionUUID->"1bd0d11b-7219-42b1-abc5-1e7e98ca9512"] }, Open ]], Cell[CellGroupData[{ @@ -4889,7 +10002,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 +10026,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -4936,68 +10050,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[138]:=",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[\\\"3.1118260441034897`*^-206\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 138, 37, + 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335275636673*^9, 3.994041887331504*^9}, CellLabel-> "During evaluation of \ -In[275]:=",ExpressionUUID->"91f9ae14-8766-3848-9c79-ec46ad6af7ea"], +In[138]:=",ExpressionUUID->"78b8a908-ab73-44f5-b9e4-516240b47679"], 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.173483987048305`*^-211\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 138, 38, + 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335275636673*^9, 3.994041887334251*^9}, CellLabel-> "During evaluation of \ -In[275]:=",ExpressionUUID->"2440fadc-b12b-424f-a600-97a0a8c9f031"], +In[138]:=",ExpressionUUID->"4c69c4f3-ca6d-40aa-82df-155fd9fddbd7"], 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[\\\"8.601038806446574`*^-216\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 138, 39, + 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335275636673*^9, 3.9940418873369007`*^9}, CellLabel-> "During evaluation of \ -In[275]:=",ExpressionUUID->"d4d1d26f-ac2b-a949-95b4-8d60af02cc4b"], +In[138]:=",ExpressionUUID->"cb38b863-90e2-4fd8-b2f8-530403245802"], 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, 138, 40, 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335275636673*^9, 3.9940418873395147`*^9}, CellLabel-> "During evaluation of \ -In[275]:=",ExpressionUUID->"0cb59396-7a19-6b43-af2b-0a0ce0427b94"], +In[138]:=",ExpressionUUID->"5fc52316-7a50-443e-ba8c-e5a75a92253c"], -Cell[BoxData["3.3103666491187513`"], "Output", - CellChangeTimes->{3.991335279487499*^9}, +Cell[BoxData["10.179360837145072`"], "Output", + CellChangeTimes->{3.991335279487499*^9, 3.994041889114727*^9}, CellLabel-> - "Out[275]=",ExpressionUUID->"3ceb430a-d440-e040-b6a8-a18a3884b326"] + "Out[138]=",ExpressionUUID->"ed03f650-f72c-49fd-a2cc-083f39e5caaf"] }, Open ]], Cell[CellGroupData[{ @@ -5012,7 +10130,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 +10154,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -5059,68 +10178,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[139]:=",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[\\\"3.1118260441034897`*^-206\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 139, 41, + 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335279522499*^9, 3.9940418891360283`*^9}, CellLabel-> "During evaluation of \ -In[276]:=",ExpressionUUID->"ccb81c35-09e9-854b-9187-d46e8624546d"], +In[139]:=",ExpressionUUID->"4acf2c2a-3bc4-4750-be7d-3e012bd8cadc"], 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.173483987048305`*^-211\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 139, 42, + 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335279522499*^9, 3.994041889139491*^9}, CellLabel-> "During evaluation of \ -In[276]:=",ExpressionUUID->"6dff6307-9a24-c74d-90d8-2f18b14858dc"], +In[139]:=",ExpressionUUID->"b7094e05-b365-478b-874f-37b73ad62d3d"], 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[\\\"8.601038806446574`*^-216\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 139, 43, + 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335279522499*^9, 3.994041889142624*^9}, CellLabel-> "During evaluation of \ -In[276]:=",ExpressionUUID->"11045565-b757-154a-b614-eb73b2dcbc5f"], +In[139]:=",ExpressionUUID->"4c27839a-3c1e-4d8d-a66f-02ed70f8dc8a"], 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, 139, 44, 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335279522499*^9, 3.994041889145297*^9}, CellLabel-> "During evaluation of \ -In[276]:=",ExpressionUUID->"af9dd0c6-d446-9940-b908-9b52fbb611cb"], +In[139]:=",ExpressionUUID->"1a32c0e1-b8c3-4e31-a25c-aa6426b4a3f3"], -Cell[BoxData["7.82322944391716`"], "Output", - CellChangeTimes->{3.991335283631424*^9}, +Cell[BoxData["3.4942347733285155`"], "Output", + CellChangeTimes->{3.991335283631424*^9, 3.9940418908861313`*^9}, CellLabel-> - "Out[276]=",ExpressionUUID->"d39c46b4-75c6-f741-b7fd-1a1fdbe4155f"] + "Out[139]=",ExpressionUUID->"fbeb159d-39b5-4015-80ff-e4afdad286b5"] }, Open ]], Cell[CellGroupData[{ @@ -5178,94 +10301,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[140]:=",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:eJwV1nk0lF0cB3DJVpYs2RLJVtYmYxlU95eRLYTKTszyVCoKSRItKJVCm6JU +FMmSFEK99fJK8qKQUmqEmbGNbSb0Ku/1x3Pu+Zzfud/nd+/vnOc8q2nhnkxh +ISEhLn4W1kMtJmsq21o2sef+1bwxyEGbeHnmNLsi5Obq57pgVo7FFR27WjRt +Pvdhwe6Mf8WkyP8gSlV52U3sspiEOlG7ZmTy8cRgFnZKg8qrhML3aDqDHnsL ++3nbodtzpp0ocdKfkYM91N0Ud7TmE0qd3Zt/F3vFgLb/T+pX1FacSs3D3joW +ZxXZ/B29UXxDycd+OTckGVPYi3gUpTOF2B9PKh+rCOtD0auOmZRg88Tshvim +A6jwg8DkCbbYhYO+5Gk22hOQfLYCW0PuVuOhGi6qfGNkU4PtpvbzAY86groi +ah79g03c0VIyluCh9825e99hJ+huS9rXPIayN9w78R77k3LH+qjCCZSW1fv8 +GzbDL3Tv5QuTaOiR1tcB7PFsobtPwqaQx/JY71FsCS1j2QlTAVK32u/7G/sK +o85BVvEnqlAXZ4kOcZBmvm/Cuumf6GRh1V8y2BSjZN6Bmhl0VSn43GrsPRbf +m4eoc+hsz98uW7H5MYdFlur9Rl/uKWZ7YZ+okdygL/EHxXYn2NGwM4HyaHfz +PLJXyroTi82432gXUbgIpvTGk0qxCxsus06qCYMwa9HtF9jjnKC49AvCMC5l +tKwZO85AUP44bDF0bW+aG8S+Urpae8xUFO68NBU1GOag7raRl39yRWHWSopt +ja05WeknoygGFNr8KhfsIjO3DONpMVAnyDnh2PXPYxftr5EABb2upmpsQV37 +dy5VCl4XWnaFjHCQvIuU7LGXUkBzJ62PxSZ12IG0lTQkj/ZPZWCH9j+7s95E +BlavP13+D/ZB4WbSRilZaFLIViONctCAVslE0k85WPkh8ZIKD98P0bSklSwP +LVEhhy2xhR+xV6sckocGrfk6L2xN8irPwmF50JNJyLqG7UdNe9LCUgArZhZZ +bYyDWukRkcrvFOHqVJYEZZyDvuVfPB8soQS30ipiA7FHhgtzH25RgtLozJ2n +sZdG9bXbvFKCT53lW9qw7RJ3mAU/U4aTejuXhU9wUHWehaAgRxU6hAscX01y +UN7Ar2jrKHUQTZ31KhNwkOPOM98ii9Xh19k1ySzskXoF+2K2OlgHvJCV/clB +ZnlGipq+GvCZpkU5iF1PCyoX3bQKDqh+bzWb5qDJMdYR7mlNsFpzSbt1hoMU +Dtg9LXfVAp2SHbsc5ziInbd0j3uoFgz+jpg7hV31tU1tNFkLMlOWCF5gB7gE +ntZ7pQVW1+/OmP3G/RlGe94w1YYnKalOa/7g9w/lj8cr60CLS5e8uhAX7dgt +aezcqwt/BsMcXEW4CEXvNPX+rQvpGfL8dGyDpBxLhqoeTFwrn/mILZRLto33 +0IPlpPElNFEuKv7m7/3ktR7EWjBd4sS4SMyr6OSKe2ugwedfj9cSXFRl5/px +iKYPf3WZ0FOluSh3+/Uv0/H6kEb6S7YH+yKtlyWSpQ/ucjQlYxkuYpw4PKzR +rg/bbX7ot2DL1d4S2k41gHZx1qHlslwUSuYZ1GgbQpF1RHKZPBepaV1KON9v +BKHuSm+MVbio9hxff1bYGAYt7YzSsAOmfDuI1cbwNpE0O4l9u15H3zbIGPj2 +jk3PVblIa3f1h5kuY5ijpTm5qOHzFg3oEu9MYKMW80WiBhepq2kQmr4kYO/2 +OUnV5SKj+1FS/yFTiCcxKmbIXERjnBYYu5mCm8P5uv1mXJSpnfEtOMAUDlGd +DXuxF98rfdwQYwoGxZeXvjPnou7bQzsyykxBIj9MIteSi1Iyg2/pa5OBclxV +mGHDRezzLiY+YmaQrzEzpU/lorsROu7Pms3BZP1ViYbtXNQWjSwT71tBT86M +7IM4Llod1OkWuH8jCOW0Njg+4iLmfEWJ+lEA2hv2QPZXLlIerhJXptnCibO2 +j46qDKIo8oavGQZ2UOypIervNYhoo3ONCkNboF0i8Wte5iAqto0Uz2l1AL8v +MY972IMojx/6uuiKE4h7zwW/Nh9CM5tV/q1P2ArevnElxelDqEdo8URviCv4 +HZmwDJwcQmErw9NOam8DJ3njNTaew6hkb+Orq0nuYDksN+j1ahjFTqlOG+71 +AMf3jcV1RiNI4Gzv9WaXJ8hQK+ZsC0aQlX/65gGP7dD55bjS7jWj6IPqrdB6 +8g4oizmXI5c7ilY8OF1bsHYneL3ry6Cb8FAVy8DFTdoLWO43/1J6xkMaHeO7 +o0e9gJaiwtPdOIbIV9OLclneQA+Mf9zaMYZuiUyZZNT5wK6RXLfPpuOoYvO6 +7qTnvvCAUB9hnxpHmZbn5OYK/SBOU4ha9WEctX65n0y+4A/BpD+2Y+oT6Jlr +ts7BEwGgcdy8dSJ8Ak0c2C4UxgiEcENtqaTaCSSw19/DowZBmrxFtZn4JCoY +/TwTabEL0FGqiI/3JPK5e58eKBUMdK+Tz5ruTKLyJ1t3LT4TDPUpxUahvElk +pfZhNmU2GFZV172KM5tC2qzd3e/3hgA7xEN+X/QU6pfcty27LwSabLK+2VZP +obaLbnSHnTSo7fx7PFMwha7E5EgebqPBzMNBzRkSH9W+nJ+lO9FhLq/2XjmT +j5YFwBlyNR3O2QSER6bzkebyN60ra+kQph81o5PBR6RmVxWxl3Q4EtKp9BHb +c4P/w0+v6RDBmpa3vMJHV1ZGvzv+lg5lbwJF+df4aEXPo2WNn+jwYt9ApW82 +H+kEKWcGTNOhSJ91ov0BH1kF8wqSzBiAOB0otpqPHtwYj3SzYECqsAqI1fDR +8vbJTcoUBqi4LulJx+Ztme4osGFAEyVnJL+Wj79fQouabRmwh0sJbn3JRzLT +cr7yHgyQ/bEjWbKOj/pTzZfkHGAAt+OaNeUdH12sidtb9YABSk9jO4O6+eiA +6XWrmAIGFNWJr2rFdnlYtoRSyIAEw20i6AsfLb3OflhZzICb5xvvqn/lo6QI +96GKpwxQC0nR+9jDR3H6Ovue/Y09luZo1stHodff7X/yjQHz5ivi8jh85CTD +3hDBYsCNvK6VElw+WpskJG36gwE8YwfvfdjsCPPisgEGELvmM0mDfBTiljP6 +eIQBYWsM3SqG+MhHNDKs9BcD/F76RJSM8pFD5IqDRUpMkN+0Z4PHFB/9nZPs +nKHChGckdfdS7A3NkzoxK5hQImE/KMXH89J995mqwYQbwqWPGrBVu45Rv+gy +IVJCJNzsJx8NW/coLTVngu0ZUu/MDB9dEr7zYvd2JlTlVC/W/YPPv04q03Un +E3i2jAeR2In+MRFkbybMS59tfo0d89R9zbwfE049EMkNmMf9E4vSr9GYkJFq +d+SCkACRm2iMfw4xQXHuxeMOYQHqSteV1E5jQgzbQFJcXIBKkPQebjoTjCL6 +2jZjJ47y64svM2EFq35tHLapU3085ToThLu/XhzDvihEn3S9zYQW7yDyewkB +sg+/8zmmiAnd8LYzYSn+71I/a7GphAmVi1qel2Pzm8IvL36M63sPrONg39ND +rhfLmbBczL/VRVKAfvf0vMqtZoKDlnSvvJQAPXVRK2hpZELtrn67c9ICdP6X +sOiVJiY463VuqsSmFQyF+DYzQWGo720ftqxItVp/K55H4abLNjICtL/G59Ls +RyasL9eeHMDWNrgWrTPAhLQzNd26sgL0q+t4+yCbCW/PevZtxW5LYpJKuUzI +vpkddwg7vtdsyGqECVn314fUYHdntgdum2JCqvXzCSc5AcoQl9sSu4gA8y2O +hp7yAlQ72eMftZiAR5rLPkRhc3oKI8JECbA883T0GvaGp3Z3aEsIaIlPOP0Z +mx0c85+zHAE9M/5rfRRw/y5b5LcoEKDiHHA4GtvGUl4fKRLgIidueQU7TbrI +i6xKAFfSTqVloV79vUxtNQGLVlV72CwXIOJ+UaOiNgHZjfuoO7HT0o5+X6ZL +ANF182EYNptQkBbRJ+Dwk4D2nIW6gsOeERIBr/eys/7Drv6jkMA2JWD01CxJ +TlGABgZZV1lmBDTP0q31sK1fxdZ1UHD+cpNCN+z+/SUaL4AAr0q935nYMj7H +zCttCQgqO21WiG1FdXQpsyNg4zJVVjX2RdUfR+87EuCb8f1yN3aVSGlajjMB +Ni5Lswex+8aO5d9wIcDicrDKDDalQbEz1Z2AsbWJBxSU8LzLfgyf8STgPm+r +vSZ2anap8KkdBASvM7tshP0jwokU7UOAtUNAChVbOkjJ4aAfAW+PXDd1w6Y4 +9QWGBhCw4ePgNp+F/auOnw8KJsBNvJkdil211PmeD42AKUWf4MiFPIHSc08G +AZlNU67HFvJ6+1pdCAKUz90qPbWQ1/yYbb+HgLzO7UkpC/1VHv8NoXi+zoqt +lxby7zkvt9lPwJFc1oWrC/mpyobmYQT0Pnv68uZCfkz/5nUHCbgXlcbIwZZi +lPnoRxBQzIuIz8W23BYfrh1FgMc2f6n8hXzrrcnq0QRQvjnKFGJf0FW5pRyD +5ztvnViEXSE7UC4XS4AVeX1YCXbvf2VNknEEhCsZNpcu5HPie0XjCdCirb39 +GNviw9aZ+QQCGobX9i/4f6Uc9Ng= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -5279,106 +10402,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:eJwV1nk0lF0cB3DJVpYs2RLJVtYmYxlU95eRLYTKTszyVCoKSRItKJVCm6JU +FMmSFEK99fJK8qKQUmqEmbGNbSb0Ku/1x3Pu+Zzfud/nd+/vnOc8q2nhnkxh +ISEhLn4W1kMtJmsq21o2sef+1bwxyEGbeHnmNLsi5Obq57pgVo7FFR27WjRt +Pvdhwe6Mf8WkyP8gSlV52U3sspiEOlG7ZmTy8cRgFnZKg8qrhML3aDqDHnsL ++3nbodtzpp0ocdKfkYM91N0Ud7TmE0qd3Zt/F3vFgLb/T+pX1FacSs3D3joW +ZxXZ/B29UXxDycd+OTckGVPYi3gUpTOF2B9PKh+rCOtD0auOmZRg88Tshvim +A6jwg8DkCbbYhYO+5Gk22hOQfLYCW0PuVuOhGi6qfGNkU4PtpvbzAY86groi +ah79g03c0VIyluCh9825e99hJ+huS9rXPIayN9w78R77k3LH+qjCCZSW1fv8 +GzbDL3Tv5QuTaOiR1tcB7PFsobtPwqaQx/JY71FsCS1j2QlTAVK32u/7G/sK +o85BVvEnqlAXZ4kOcZBmvm/Cuumf6GRh1V8y2BSjZN6Bmhl0VSn43GrsPRbf +m4eoc+hsz98uW7H5MYdFlur9Rl/uKWZ7YZ+okdygL/EHxXYn2NGwM4HyaHfz +PLJXyroTi82432gXUbgIpvTGk0qxCxsus06qCYMwa9HtF9jjnKC49AvCMC5l +tKwZO85AUP44bDF0bW+aG8S+Urpae8xUFO68NBU1GOag7raRl39yRWHWSopt +ja05WeknoygGFNr8KhfsIjO3DONpMVAnyDnh2PXPYxftr5EABb2upmpsQV37 +dy5VCl4XWnaFjHCQvIuU7LGXUkBzJ62PxSZ12IG0lTQkj/ZPZWCH9j+7s95E +BlavP13+D/ZB4WbSRilZaFLIViONctCAVslE0k85WPkh8ZIKD98P0bSklSwP +LVEhhy2xhR+xV6sckocGrfk6L2xN8irPwmF50JNJyLqG7UdNe9LCUgArZhZZ +bYyDWukRkcrvFOHqVJYEZZyDvuVfPB8soQS30ipiA7FHhgtzH25RgtLozJ2n +sZdG9bXbvFKCT53lW9qw7RJ3mAU/U4aTejuXhU9wUHWehaAgRxU6hAscX01y +UN7Ar2jrKHUQTZ31KhNwkOPOM98ii9Xh19k1ySzskXoF+2K2OlgHvJCV/clB +ZnlGipq+GvCZpkU5iF1PCyoX3bQKDqh+bzWb5qDJMdYR7mlNsFpzSbt1hoMU +Dtg9LXfVAp2SHbsc5ziInbd0j3uoFgz+jpg7hV31tU1tNFkLMlOWCF5gB7gE +ntZ7pQVW1+/OmP3G/RlGe94w1YYnKalOa/7g9w/lj8cr60CLS5e8uhAX7dgt +aezcqwt/BsMcXEW4CEXvNPX+rQvpGfL8dGyDpBxLhqoeTFwrn/mILZRLto33 +0IPlpPElNFEuKv7m7/3ktR7EWjBd4sS4SMyr6OSKe2ugwedfj9cSXFRl5/px +iKYPf3WZ0FOluSh3+/Uv0/H6kEb6S7YH+yKtlyWSpQ/ucjQlYxkuYpw4PKzR +rg/bbX7ot2DL1d4S2k41gHZx1qHlslwUSuYZ1GgbQpF1RHKZPBepaV1KON9v +BKHuSm+MVbio9hxff1bYGAYt7YzSsAOmfDuI1cbwNpE0O4l9u15H3zbIGPj2 +jk3PVblIa3f1h5kuY5ijpTm5qOHzFg3oEu9MYKMW80WiBhepq2kQmr4kYO/2 +OUnV5SKj+1FS/yFTiCcxKmbIXERjnBYYu5mCm8P5uv1mXJSpnfEtOMAUDlGd +DXuxF98rfdwQYwoGxZeXvjPnou7bQzsyykxBIj9MIteSi1Iyg2/pa5OBclxV +mGHDRezzLiY+YmaQrzEzpU/lorsROu7Pms3BZP1ViYbtXNQWjSwT71tBT86M +7IM4Llod1OkWuH8jCOW0Njg+4iLmfEWJ+lEA2hv2QPZXLlIerhJXptnCibO2 +j46qDKIo8oavGQZ2UOypIervNYhoo3ONCkNboF0i8Wte5iAqto0Uz2l1AL8v +MY972IMojx/6uuiKE4h7zwW/Nh9CM5tV/q1P2ArevnElxelDqEdo8URviCv4 +HZmwDJwcQmErw9NOam8DJ3njNTaew6hkb+Orq0nuYDksN+j1ahjFTqlOG+71 +AMf3jcV1RiNI4Gzv9WaXJ8hQK+ZsC0aQlX/65gGP7dD55bjS7jWj6IPqrdB6 +8g4oizmXI5c7ilY8OF1bsHYneL3ry6Cb8FAVy8DFTdoLWO43/1J6xkMaHeO7 +o0e9gJaiwtPdOIbIV9OLclneQA+Mf9zaMYZuiUyZZNT5wK6RXLfPpuOoYvO6 +7qTnvvCAUB9hnxpHmZbn5OYK/SBOU4ha9WEctX65n0y+4A/BpD+2Y+oT6Jlr +ts7BEwGgcdy8dSJ8Ak0c2C4UxgiEcENtqaTaCSSw19/DowZBmrxFtZn4JCoY +/TwTabEL0FGqiI/3JPK5e58eKBUMdK+Tz5ruTKLyJ1t3LT4TDPUpxUahvElk +pfZhNmU2GFZV172KM5tC2qzd3e/3hgA7xEN+X/QU6pfcty27LwSabLK+2VZP +obaLbnSHnTSo7fx7PFMwha7E5EgebqPBzMNBzRkSH9W+nJ+lO9FhLq/2XjmT +j5YFwBlyNR3O2QSER6bzkebyN60ra+kQph81o5PBR6RmVxWxl3Q4EtKp9BHb +c4P/w0+v6RDBmpa3vMJHV1ZGvzv+lg5lbwJF+df4aEXPo2WNn+jwYt9ApW82 +H+kEKWcGTNOhSJ91ov0BH1kF8wqSzBiAOB0otpqPHtwYj3SzYECqsAqI1fDR +8vbJTcoUBqi4LulJx+Ztme4osGFAEyVnJL+Wj79fQouabRmwh0sJbn3JRzLT +cr7yHgyQ/bEjWbKOj/pTzZfkHGAAt+OaNeUdH12sidtb9YABSk9jO4O6+eiA +6XWrmAIGFNWJr2rFdnlYtoRSyIAEw20i6AsfLb3OflhZzICb5xvvqn/lo6QI +96GKpwxQC0nR+9jDR3H6Ovue/Y09luZo1stHodff7X/yjQHz5ivi8jh85CTD +3hDBYsCNvK6VElw+WpskJG36gwE8YwfvfdjsCPPisgEGELvmM0mDfBTiljP6 +eIQBYWsM3SqG+MhHNDKs9BcD/F76RJSM8pFD5IqDRUpMkN+0Z4PHFB/9nZPs +nKHChGckdfdS7A3NkzoxK5hQImE/KMXH89J995mqwYQbwqWPGrBVu45Rv+gy +IVJCJNzsJx8NW/coLTVngu0ZUu/MDB9dEr7zYvd2JlTlVC/W/YPPv04q03Un +E3i2jAeR2In+MRFkbybMS59tfo0d89R9zbwfE049EMkNmMf9E4vSr9GYkJFq +d+SCkACRm2iMfw4xQXHuxeMOYQHqSteV1E5jQgzbQFJcXIBKkPQebjoTjCL6 +2jZjJ47y64svM2EFq35tHLapU3085ToThLu/XhzDvihEn3S9zYQW7yDyewkB +sg+/8zmmiAnd8LYzYSn+71I/a7GphAmVi1qel2Pzm8IvL36M63sPrONg39ND +rhfLmbBczL/VRVKAfvf0vMqtZoKDlnSvvJQAPXVRK2hpZELtrn67c9ICdP6X +sOiVJiY463VuqsSmFQyF+DYzQWGo720ftqxItVp/K55H4abLNjICtL/G59Ls +RyasL9eeHMDWNrgWrTPAhLQzNd26sgL0q+t4+yCbCW/PevZtxW5LYpJKuUzI +vpkddwg7vtdsyGqECVn314fUYHdntgdum2JCqvXzCSc5AcoQl9sSu4gA8y2O +hp7yAlQ72eMftZiAR5rLPkRhc3oKI8JECbA883T0GvaGp3Z3aEsIaIlPOP0Z +mx0c85+zHAE9M/5rfRRw/y5b5LcoEKDiHHA4GtvGUl4fKRLgIidueQU7TbrI +i6xKAFfSTqVloV79vUxtNQGLVlV72CwXIOJ+UaOiNgHZjfuoO7HT0o5+X6ZL +ANF182EYNptQkBbRJ+Dwk4D2nIW6gsOeERIBr/eys/7Drv6jkMA2JWD01CxJ +TlGABgZZV1lmBDTP0q31sK1fxdZ1UHD+cpNCN+z+/SUaL4AAr0q935nYMj7H +zCttCQgqO21WiG1FdXQpsyNg4zJVVjX2RdUfR+87EuCb8f1yN3aVSGlajjMB +Ni5Lswex+8aO5d9wIcDicrDKDDalQbEz1Z2AsbWJBxSU8LzLfgyf8STgPm+r +vSZ2anap8KkdBASvM7tshP0jwokU7UOAtUNAChVbOkjJ4aAfAW+PXDd1w6Y4 +9QWGBhCw4ePgNp+F/auOnw8KJsBNvJkdil211PmeD42AKUWf4MiFPIHSc08G +AZlNU67HFvJ6+1pdCAKUz90qPbWQ1/yYbb+HgLzO7UkpC/1VHv8NoXi+zoqt +lxby7zkvt9lPwJFc1oWrC/mpyobmYQT0Pnv68uZCfkz/5nUHCbgXlcbIwZZi +lPnoRxBQzIuIz8W23BYfrh1FgMc2f6n8hXzrrcnq0QRQvjnKFGJf0FW5pRyD +5ztvnViEXSE7UC4XS4AVeX1YCXbvf2VNknEEhCsZNpcu5HPie0XjCdCirb39 +GNviw9aZ+QQCGobX9i/4f6Uc9Ng= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6152015704378874, - 1.5607999649251942`}}, + "PlotRange" -> {{0, 180}, {0.747265400001109, + 1.3180397903913543`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6152015704378887}, + "AxesOrigin" -> {0, 0.7472654000011106}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.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 +10513,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.747265400001109, 1.3180397903913543`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7472654000011106}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 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 +10540,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:eJwV1nk0lF0cB3DJVpYs2RLJVtYmYxlU95eRLYTKTszyVCoKSRItKJVCm6JU +FMmSFEK99fJK8qKQUmqEmbGNbSb0Ku/1x3Pu+Zzfud/nd+/vnOc8q2nhnkxh +ISEhLn4W1kMtJmsq21o2sef+1bwxyEGbeHnmNLsi5Obq57pgVo7FFR27WjRt +Pvdhwe6Mf8WkyP8gSlV52U3sspiEOlG7ZmTy8cRgFnZKg8qrhML3aDqDHnsL ++3nbodtzpp0ocdKfkYM91N0Ud7TmE0qd3Zt/F3vFgLb/T+pX1FacSs3D3joW +ZxXZ/B29UXxDycd+OTckGVPYi3gUpTOF2B9PKh+rCOtD0auOmZRg88Tshvim +A6jwg8DkCbbYhYO+5Gk22hOQfLYCW0PuVuOhGi6qfGNkU4PtpvbzAY86groi +ah79g03c0VIyluCh9825e99hJ+huS9rXPIayN9w78R77k3LH+qjCCZSW1fv8 +GzbDL3Tv5QuTaOiR1tcB7PFsobtPwqaQx/JY71FsCS1j2QlTAVK32u/7G/sK +o85BVvEnqlAXZ4kOcZBmvm/Cuumf6GRh1V8y2BSjZN6Bmhl0VSn43GrsPRbf +m4eoc+hsz98uW7H5MYdFlur9Rl/uKWZ7YZ+okdygL/EHxXYn2NGwM4HyaHfz +PLJXyroTi82432gXUbgIpvTGk0qxCxsus06qCYMwa9HtF9jjnKC49AvCMC5l +tKwZO85AUP44bDF0bW+aG8S+Urpae8xUFO68NBU1GOag7raRl39yRWHWSopt +ja05WeknoygGFNr8KhfsIjO3DONpMVAnyDnh2PXPYxftr5EABb2upmpsQV37 +dy5VCl4XWnaFjHCQvIuU7LGXUkBzJ62PxSZ12IG0lTQkj/ZPZWCH9j+7s95E +BlavP13+D/ZB4WbSRilZaFLIViONctCAVslE0k85WPkh8ZIKD98P0bSklSwP +LVEhhy2xhR+xV6sckocGrfk6L2xN8irPwmF50JNJyLqG7UdNe9LCUgArZhZZ +bYyDWukRkcrvFOHqVJYEZZyDvuVfPB8soQS30ipiA7FHhgtzH25RgtLozJ2n +sZdG9bXbvFKCT53lW9qw7RJ3mAU/U4aTejuXhU9wUHWehaAgRxU6hAscX01y +UN7Ar2jrKHUQTZ31KhNwkOPOM98ii9Xh19k1ySzskXoF+2K2OlgHvJCV/clB +ZnlGipq+GvCZpkU5iF1PCyoX3bQKDqh+bzWb5qDJMdYR7mlNsFpzSbt1hoMU +Dtg9LXfVAp2SHbsc5ziInbd0j3uoFgz+jpg7hV31tU1tNFkLMlOWCF5gB7gE +ntZ7pQVW1+/OmP3G/RlGe94w1YYnKalOa/7g9w/lj8cr60CLS5e8uhAX7dgt +aezcqwt/BsMcXEW4CEXvNPX+rQvpGfL8dGyDpBxLhqoeTFwrn/mILZRLto33 +0IPlpPElNFEuKv7m7/3ktR7EWjBd4sS4SMyr6OSKe2ugwedfj9cSXFRl5/px +iKYPf3WZ0FOluSh3+/Uv0/H6kEb6S7YH+yKtlyWSpQ/ucjQlYxkuYpw4PKzR +rg/bbX7ot2DL1d4S2k41gHZx1qHlslwUSuYZ1GgbQpF1RHKZPBepaV1KON9v +BKHuSm+MVbio9hxff1bYGAYt7YzSsAOmfDuI1cbwNpE0O4l9u15H3zbIGPj2 +jk3PVblIa3f1h5kuY5ijpTm5qOHzFg3oEu9MYKMW80WiBhepq2kQmr4kYO/2 +OUnV5SKj+1FS/yFTiCcxKmbIXERjnBYYu5mCm8P5uv1mXJSpnfEtOMAUDlGd +DXuxF98rfdwQYwoGxZeXvjPnou7bQzsyykxBIj9MIteSi1Iyg2/pa5OBclxV +mGHDRezzLiY+YmaQrzEzpU/lorsROu7Pms3BZP1ViYbtXNQWjSwT71tBT86M +7IM4Llod1OkWuH8jCOW0Njg+4iLmfEWJ+lEA2hv2QPZXLlIerhJXptnCibO2 +j46qDKIo8oavGQZ2UOypIervNYhoo3ONCkNboF0i8Wte5iAqto0Uz2l1AL8v +MY972IMojx/6uuiKE4h7zwW/Nh9CM5tV/q1P2ArevnElxelDqEdo8URviCv4 +HZmwDJwcQmErw9NOam8DJ3njNTaew6hkb+Orq0nuYDksN+j1ahjFTqlOG+71 +AMf3jcV1RiNI4Gzv9WaXJ8hQK+ZsC0aQlX/65gGP7dD55bjS7jWj6IPqrdB6 +8g4oizmXI5c7ilY8OF1bsHYneL3ry6Cb8FAVy8DFTdoLWO43/1J6xkMaHeO7 +o0e9gJaiwtPdOIbIV9OLclneQA+Mf9zaMYZuiUyZZNT5wK6RXLfPpuOoYvO6 +7qTnvvCAUB9hnxpHmZbn5OYK/SBOU4ha9WEctX65n0y+4A/BpD+2Y+oT6Jlr +ts7BEwGgcdy8dSJ8Ak0c2C4UxgiEcENtqaTaCSSw19/DowZBmrxFtZn4JCoY +/TwTabEL0FGqiI/3JPK5e58eKBUMdK+Tz5ruTKLyJ1t3LT4TDPUpxUahvElk +pfZhNmU2GFZV172KM5tC2qzd3e/3hgA7xEN+X/QU6pfcty27LwSabLK+2VZP +obaLbnSHnTSo7fx7PFMwha7E5EgebqPBzMNBzRkSH9W+nJ+lO9FhLq/2XjmT +j5YFwBlyNR3O2QSER6bzkebyN60ra+kQph81o5PBR6RmVxWxl3Q4EtKp9BHb +c4P/w0+v6RDBmpa3vMJHV1ZGvzv+lg5lbwJF+df4aEXPo2WNn+jwYt9ApW82 +H+kEKWcGTNOhSJ91ov0BH1kF8wqSzBiAOB0otpqPHtwYj3SzYECqsAqI1fDR +8vbJTcoUBqi4LulJx+Ztme4osGFAEyVnJL+Wj79fQouabRmwh0sJbn3JRzLT +cr7yHgyQ/bEjWbKOj/pTzZfkHGAAt+OaNeUdH12sidtb9YABSk9jO4O6+eiA +6XWrmAIGFNWJr2rFdnlYtoRSyIAEw20i6AsfLb3OflhZzICb5xvvqn/lo6QI +96GKpwxQC0nR+9jDR3H6Ovue/Y09luZo1stHodff7X/yjQHz5ivi8jh85CTD +3hDBYsCNvK6VElw+WpskJG36gwE8YwfvfdjsCPPisgEGELvmM0mDfBTiljP6 +eIQBYWsM3SqG+MhHNDKs9BcD/F76RJSM8pFD5IqDRUpMkN+0Z4PHFB/9nZPs +nKHChGckdfdS7A3NkzoxK5hQImE/KMXH89J995mqwYQbwqWPGrBVu45Rv+gy +IVJCJNzsJx8NW/coLTVngu0ZUu/MDB9dEr7zYvd2JlTlVC/W/YPPv04q03Un +E3i2jAeR2In+MRFkbybMS59tfo0d89R9zbwfE049EMkNmMf9E4vSr9GYkJFq +d+SCkACRm2iMfw4xQXHuxeMOYQHqSteV1E5jQgzbQFJcXIBKkPQebjoTjCL6 +2jZjJ47y64svM2EFq35tHLapU3085ToThLu/XhzDvihEn3S9zYQW7yDyewkB +sg+/8zmmiAnd8LYzYSn+71I/a7GphAmVi1qel2Pzm8IvL36M63sPrONg39ND +rhfLmbBczL/VRVKAfvf0vMqtZoKDlnSvvJQAPXVRK2hpZELtrn67c9ICdP6X +sOiVJiY463VuqsSmFQyF+DYzQWGo720ftqxItVp/K55H4abLNjICtL/G59Ls +RyasL9eeHMDWNrgWrTPAhLQzNd26sgL0q+t4+yCbCW/PevZtxW5LYpJKuUzI +vpkddwg7vtdsyGqECVn314fUYHdntgdum2JCqvXzCSc5AcoQl9sSu4gA8y2O +hp7yAlQ72eMftZiAR5rLPkRhc3oKI8JECbA883T0GvaGp3Z3aEsIaIlPOP0Z +mx0c85+zHAE9M/5rfRRw/y5b5LcoEKDiHHA4GtvGUl4fKRLgIidueQU7TbrI +i6xKAFfSTqVloV79vUxtNQGLVlV72CwXIOJ+UaOiNgHZjfuoO7HT0o5+X6ZL +ANF182EYNptQkBbRJ+Dwk4D2nIW6gsOeERIBr/eys/7Drv6jkMA2JWD01CxJ +TlGABgZZV1lmBDTP0q31sK1fxdZ1UHD+cpNCN+z+/SUaL4AAr0q935nYMj7H +zCttCQgqO21WiG1FdXQpsyNg4zJVVjX2RdUfR+87EuCb8f1yN3aVSGlajjMB +Ni5Lswex+8aO5d9wIcDicrDKDDalQbEz1Z2AsbWJBxSU8LzLfgyf8STgPm+r +vSZ2anap8KkdBASvM7tshP0jwokU7UOAtUNAChVbOkjJ4aAfAW+PXDd1w6Y4 +9QWGBhCw4ePgNp+F/auOnw8KJsBNvJkdil211PmeD42AKUWf4MiFPIHSc08G +AZlNU67HFvJ6+1pdCAKUz90qPbWQ1/yYbb+HgLzO7UkpC/1VHv8NoXi+zoqt +lxby7zkvt9lPwJFc1oWrC/mpyobmYQT0Pnv68uZCfkz/5nUHCbgXlcbIwZZi +lPnoRxBQzIuIz8W23BYfrh1FgMc2f6n8hXzrrcnq0QRQvjnKFGJf0FW5pRyD +5ztvnViEXSE7UC4XS4AVeX1YCXbvf2VNknEEhCsZNpcu5HPie0XjCdCirb39 +GNviw9aZ+QQCGobX9i/4f6Uc9Ng= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6152015704378874, 1.5607999649251942`}}, + "PlotRange" -> {{0, 180}, {0.747265400001109, 1.3180397903913543`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6152015704378887}, + "AxesOrigin" -> {0, 0.7472654000011106}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 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 +10647,8 @@ OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.6152015704378887}, + AxesOrigin->{0, 0.7472654000011106}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -5553,7 +10676,8 @@ OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.6152015704378874, 1.5607999649251942`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.747265400001109, 1.3180397903913543`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -5561,11 +10685,13 @@ OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913355426284504`*^9}, + CellChangeTimes->{3.9913355426284504`*^9, 3.994042021527252*^9}, CellLabel-> - "Out[277]=",ExpressionUUID->"5f98f6f4-700b-0a4b-af1c-32125fed3e6a"] + "Out[140]=",ExpressionUUID->"be6263aa-9e8d-4e3b-b7ea-cd1fe4ada700"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"x", "=", RowBox[{"Plot", "[", @@ -5576,7 +10702,9 @@ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -5598,8 +10726,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -5625,14 +10752,1128 @@ 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[141]:=",ExpressionUUID->"00a32bc3-df79-9e43-8f20-d4884962c12d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2350122195738741`*^-269\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 141, + 45, 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9940420215969563`*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"1f0d9bf6-3ab1-4a73-b17c-9b7ead242093"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.711831945159328`*^-281\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 141, 46, 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994042021600412*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"c029296c-7adc-4055-8cda-c3df191147b5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.815527409995999`*^-292\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 141, 47, 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994042021602919*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"bb6619a5-12f2-4544-82b1-f25554746e38"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 141, 48, 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99404202160563*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"bb2005b8-bab8-4de7-a8d6-01b5bb248729"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13c8Vf8fB3CRhFL2vO6xy07CvVzvN7KVESokyShZlSQpo4wiCZWUkdBQ +uOeWQkVURFRCRknayPgaacjv/P46j+fj7PP5vF/v81HwDXPx5+bi4lqziIvr +/9vZgWePlVOLTR0Xz0f7jVmYduZLHTLrSQA9znt2pI0ioPgLX6meTPikmJfk +YKMHkU433vD0FIG65W5vHRtzEB6TzPz1hgQ1K6c4LhsXeH9/Y9j0mwZYFOo2 +GmjtC1bKw+8m33TA8GUtE0nLffDrjeHZiTdD4CesRBs0ToBGi6vFr4qmoGa8 +VbCoKxPk3ld/8dWcB8/GibOHL1wEseDtN/gsePC/24FR/kOXIXONVe1Gt6U4 +lX2N6cFdCr05uvWTK5fjk3Nn/jw/dh1Si2NfcEsLY05eQtODoZtgp79bRFxJ +GAO7vQP4xm/C0scubmpawkhvaNtv++cmHP+o0m9vJoxOWYxXVaK3IEbx+Zfs +3cJ49Gifu8H6WxBaKPVPtUYYv1zIu/T0yi1wvsTWtPcUQenV95m0beUgmf3x +RFaeKPLOfp40uFcBUhp3js+ViuIu/4SqvkcVINOQFLutUhT9lQ/EHGytAPmJ +1QfUGkWxb9dlvksDFaDiEO5T+00UiU1wxIa7EtYunjf4uFYMR7p+38hWqwTH +CIlPei1iqN50yCIprBKcBL8NnH8thvcf39L6ur8SXIqqe/++FcNIOYGU9VGV +4P7S68XTcTGU6opLnY6rhG2aV2o8xMVx4GjGo9WZlbDnk86ZBB9xzJ+7ffob +pxKSXW1NO2bFUVnsnOKd6UqQud0uw71IAg86nheYm6uEclHXn2sEJdDdf+a2 +wXwldHd4V56hS+DRf76OV3nZoOwcoehsI4EPDl8+4ybBhoYNBUteXpDA3/0O +S74YsGHeaqa9zUQS6bZ+g50RbMgojS6bt5LEIoP25NNR1PlLuFK0nCXxy83q +75YxbHB4ImB2yl8Sn2ideltyjA25FgTHIV0SJbjbo/Uy2WCE9udb30tiy4mT +x4+Ws2E/4/L2ZwlSqCWTGfPhIxvsCoWm7dOk8OJMr9y7L2xQ5ItJaT8rhU5q +Jjxd39nwstOd/fqaFB7gyiiqHmeDdvgynoF2ar9brJb7HzZ8Kz1Y+p+MNLb6 +jaS8FSbBS2zjD1mONO4sXW5MNyFh7eHa+Pz70ihCS+q6YkqCwNAqCYWn0qgX +e7RG2YyE6goeUO2Vxq3H2v1krUiQsK/O0F2QRo6hg9lbRxJexivrW9rLIAfq +nG76krB+/Hd06EcZfLS3sT45kYRDNtnqj0Zl8GQZ421qMgnll7X6RGdlcIIt +EZ52ggQpVx9G9VJZVL8byH3sFAmj95785NGWRSce137LsyRkJWREXIiSRb93 +G9iKxSQ0969WHo2XRcLt59GxEhL+6je+Nk2VRVmmUGvVVRICvs7ofcqTxavq +GoMmZSQwHTwntRtlMezqKD+dJGFIXDX08XI5TDd3e2BcR4JkWB1NUlIOry8/ +XfKingSH5i1tuwk5VOG3F/VpIKEqOlVzxVo5fMC3Nj7yCQkn308Mb90ih7Z1 +3rcPtZKgd702cLxIDpXZW7/1dpMQyO0maX5TDncK6PgZ9JBwyXPsafYdORw+ +WBRyupeEJUIKqsxmOQx7cUrD8C0JffuSPh3/IYd8I12+2z6QEG/ivEPGiIYW +lQEs3hESbLzz/zM0p+F/n4aLLEZJEIobOebmQMPgrXsXH/1BXb8xsTTDh4ZH +uXMffhkn4Z5dzciSEzSs0zFSSZkmITaY74hyFg1XvC6KK50hwSrdVcg8j4bs +7V4D9bMkdL4a0z3CpuGhqj9Xvs+RMLFFKXKql4ZCAZOhgvMk3I0O5xP+RMOz +9JdT/P9IOHrpQY72GA0H2vPjFy+QsGxwc+1ubnnsdzhQ+4OLA2qBaVyD6vIY +madTn7GYA94HZk4+PyyP5oTLa2lBDqicN5cbTpTHWCtNp17Ko/dO3+LLkMf2 +IJ1P2cs4EP139UvzYnksWrLHjUuIA2ePeYtXP5fHd47iB6+t5IBXSVlpd7c8 +7g1La7IR5oBi05zh9KA8Bmx+ZPCZcqVAlofOjDw261gdEBHlwPMzTQUlNDo+ +YWukm4pzIIsjtqZRjY4V6+bG6yh7dO1oGFxDx7cO/lEsCQ58k/r7SdaKjqoB +qxdpSXKggmkbyXCio96hZJ4CypFe5/g2e9CRhGzd5VIc4CnUVc8MpaPp0i6h +Acotj47UVkTRsfmkdANKcyDjY4tDWwId+eu1igsoy6v5hy09T8cI2tScswwH +PtuQXKqX6bhN5mFICeWbQQtnLMroeHtvmvgMZWb5hdtH6+jIPLWf+4QsB9a/ +aZ8fa6ajdLVjdzPljVyLrbd30JEng+PNK8eBLasZGS/66RgXH3vJlPJOl9Be ++EzHS73ZGRGUQw9fUawco6NlfZfxVcpRxT17iDk6XjFSKeimbHVYITaOl8An +OnFnNGgcaF1x/4qRAIEXfropOlN2KnZvnhAikG+oPXQ/5W6jydFrogSuXdNx +MJOyZ1uq8A4pAjv+WZuWUx7coWogTSPwqLF041PKAbP1Hq8UCBQv1+F7S3nk +pGfsCVUCV08dEByjHE6fvWKmQaBVzJuXfynPcDKaf+kQGHAatyyVp+aHjcYP +tj6B1lb5RSspc717IhzEILD91EClOOXEvT4GiqYEeqlMHJOkLLDkj0efOYGs +/AY5CcoZuWdjM60JnPKwihGmLK6jW2znQGBxevAVfsq5jS3N3M4EhpqoZf2j +7k/f4v+jxo3Axwa7HSYoF48uCO/3IPCNvOrLAcrq8bkGGtsJfL/Thd5CuUJ8 +nefHnQSmmn9kkpT1b7yIvbiLQNfH7UrnKdeYBhVvCiGw+6FgfxRleL34meA+ +Ag1en9mxmfLjwIIfjZEE7g/Zek+Psu1fhkjMYQJfNXoOClBuz+g00I8jUK47 +s+89NV6uKmGeo8cJlA/5dZVNubeaP674BIHfpVNt4yh7bywu9kon0HDd+np7 +yp+GTJ+JZRH4cEBhuRjlMcEIkcRLBOYzLbQuUvNpf6GQIesygVf4E7k9KM/p +X/ecKSFwPP8rW5wyj/dAsX8FgY8aRa8co+anVKWNoVUDgTaim0YY1PzOW//R +899TAl92DN56T9WDYu+RuKpWAqs23XRJoKzFzXmm2kWgtru09UOqnsxdaV58 +3whMH2bNraTqr+nb3bi6UQLt+K5+z6Pq0+GIS8nBSQJLEnKfqFHeXJo89vU3 +gZMPXc30xDgQPDcZ17xcAWvLy/wVRah62Rsg8UVEAa1+RY2epPJg6XBfGY+U +AgYL1b0bp/KjpL+x21RRAUPrtXgrVnBg4OFZzTsGCigJYuncy6n6MxRo6DBW +wKKlxOmN/8+jyqObJ1ABeTtv8Z6n8kqiKDBBw57aL/hlC02AA46JjJ7L2xXw +lI9s3cISqr7/3Qqp81PAxEXHsnQoj0Yq8rzbrYDHJtnfPHk5kLJLUFsqQgEH +W6Vlb/BwoN7+3bH0FOp6KrrNclR+6onE6xxmK2CKmnuyF5XHXKkzj3OqFPDt +OyVxt58ktPMEeVTVKqBQ2TjTjsrvPTMuiZNPFHBfeIirOpX3xT3K/YF9Cpj8 +6Mq3R1Q/kChoTnLlUcQ95+o+O34h4ZfGygEtN0Vkt9T0Tb4kYTZPJn6thyIe +LxSgJ78gYXqFijJjuyKu8hWwk24nYWyKEbR+tyIqvRP20Kf63VDtzlmPI4r4 +/qt2miXVD1vs7wqllCjigVbdk133SMjd4w1DM4pYlxSVW5VHwvl3u4a+/lbE +wuTp4pGLVGo67k/8saCIgZIiTbRcEtLXprTO8Sthlu7BLYfOkZDwh715hbwS +/kwb7V9+mnq/VN5wEysldD++pelWLAkmZTcLz51TQq39G7d2epPQT5QVWF5U +QqC7xHZ6kRB97nr+dIESGibZ2nV4UP0rvvSSy3UlpDV6dj51p/r1lsIcoftK +eDlFeiBrIwmrebMzkj4oYXi15+RDFvW9th+Oi9RUxqzTsXt9ZUiYFLHzcW9Q +xnxVzxPqbWzoCVZ8GdSkjOO9TazAFjbUP/0Nsc+VsTy0I/NyE/U/GF1Gv9at +jOpGbSorGtigO7Ts/a9hZbS3rSbaq9gQyn6xLU9UBQ/zSs6+LWDDsKOb5yc/ +FZQm2xPtwtnwKc3HfR+fKrY+lvnYLMAG2/GDtp8N1HC4mDfPmlEJozuX7r8d +uwo7Vwh+EDxSTq1HJLmTG1Yj56F1hHjoTRBpU02vHFfHtkGpa3OhN0AupcLJ +wEAT9Sa6DP4wr0GOBmOlaKAW6n4TE72uWQotMmbrps5o4wWeW1/v6RYDU64h +Q6dbB20mVZNpMkUgxFMUsSNBF/k+M0/6mBSCfDzdZKvqGuwvNk+PKLkE/Cpe +VS5Na/Bz9sWoGOULoM2Srji4TQ9TZU4xRmnnYN+ASKMd11rUWRa9ZrNcFoxP +pbnZ5qxF4cO7wpozMsBa52murZY+7vXqmeEvTIOHU8Z/frbr4+3aGK/lFikQ +qqnX98p/HXZMD0XnXT8OrDG/zq38BhjwhSjdahoPlspSG5YXGWDDyPpLByZj +YFXcyagGQ0MUpn5P55lRoO7PqFPpM8T8OJ87Pb37wf/hruO39xrhh0WL+5g7 +wmEsZPigZYQRNjDoGX6bwiGKFrynO9IIR85+XpVjGQ4nY8Jc5g4b4Rw74Iec +ejhUMiMJkyQjvNBi4G30NQz+Vh2735hrhAG1fQu9K8MgsyJ/uqPRCOWWKL0I +2BcCdYWdfpPiDPx7rS0pMDgIBh0UtkdKMdBGf5z11C0IuH6FbP0jw8Axae+0 +dRAE5s58G3kJBt6Zv/rMUiQIni5iGkqrM7BcVLZeo3o3PPct4DczZaDczqJI +XoHd0KccVJ4RwMDYH8d3VdwNhOlrCz917jLw7Z9jwR/QH764WxWeqGbgE5e2 +FT46/tCz+JTNx1rqeRq8NUdo/lDrI3PhXD0DO3MN7qj+8YMEqXXM+WcM1C4x +N9Or8oOVKUExLW8Z6PTkrOpZbT/QDOzi8udm4mRgx4Otq3bCTpUy/twNTIxU +Gk73Nd0B0U+8g1SdmKise13gtPYOyPAXaSVdmHhAylG/WX4H3C85lNa6mYkb +wiPDfRZ8QEzVZsX8DsoXua6qPfKBp6qfxXwimfjdKmGM39oH1FfRCdUCJrVe +dLVrvesNk+pZBuQEE7lUM4oSnTyh5zlaik5RbrcODjXyhPrQsU0RM9T9wp1H +dhOekE7a7jX4zcRXLft6cyY8QJ3JdbOGxxiVeO6rdZ3xAF/bEIVGCWNkrOfT +fPBmK3QGWi/rNDFG1DD9OBe+Be4V//kwk2KMNe5HKwu73cDAIuKnXSp1/M2f +NGh0gzsfRpcVnqK8WbJttMINSPkBQ7tMY5R8v6L5wAk3uJlTfyr/ojGWMLyk +WCw3KExLZFiXG2Oy4b2QnKuucCJixZmc18ZorHoOWMmbwGO9EhrLm6D+Q/O8 +1eHOMN+5VKiRMMFz88Ovp7ydodB/rN9OyQSjhj7pt21whi9J1Qc9Vpmgdl+Y +zS0NZ9j3zLHikJ4JBq6vOqTwzQlOboyRv2dlgp4le41e7nSCmi1df/XDTNA/ +y1BmunUjyIYkV2vXm6DRGDvCTdUe0hcC1qU2mOD0o7btN5bZA3emFfvrYxNc +aGqXFp+yg+Eq3uuFz0ywhdNao1FvBzVcx3NEXpsgf2X1tKenHXhkxx2c/WyC +HSJrkmrO2kJO7aF1DwVZ+ExqaIhHxgbEBYLZGzazqPH2jU3YZgnFFkeiJ7ay +8NfGgCvBVpagdyTdIsuLhfp7aC4hOpawcaKyq2cHCy2GNXjIRZaQ1D3za2cw +C7fH2hRYXV0Pc0Wx5tHxLGy6VWaZNmsBfcZZr0vLWPiNe7P00hJz2HWg+JJt +OQu1lRKjCzLMYbb8jv9oJQvvJw7J2MeYg4hiz881VSyUal70emCTOdgvpck9 +qGehSIaP0SyPOdzvLPV73cXClHn5+12BZmAndE8rsoeFfMn3Jq65mkGP9bNZ +qX4W7sjydT5tZgbTNSMp3oMsXOLetOmsrBloXda99X2YhQ1vTpw4/hLhfp9Z +ZNoPFv57zm8//gDBTmwT6Eyw8AEznRNchhCQfOBVxAwLs+8sGBYkIUzXJ+VK +zrGw9YXhWtcIhITf53fW/GZh716BbFlfhJX61zW3zVPve5hpN+OIkB9SM7Ow +wMJr8ecsP7AQ/gfMom9D + "]]}, + 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:eJwV13c8Vf8fB3CRhFL2vO6xy07CvVzvN7KVESokyShZlSQpo4wiCZWUkdBQ +uOeWQkVURFRCRknayPgaacjv/P46j+fj7PP5vF/v81HwDXPx5+bi4lqziIvr +/9vZgWePlVOLTR0Xz0f7jVmYduZLHTLrSQA9znt2pI0ioPgLX6meTPikmJfk +YKMHkU433vD0FIG65W5vHRtzEB6TzPz1hgQ1K6c4LhsXeH9/Y9j0mwZYFOo2 +GmjtC1bKw+8m33TA8GUtE0nLffDrjeHZiTdD4CesRBs0ToBGi6vFr4qmoGa8 +VbCoKxPk3ld/8dWcB8/GibOHL1wEseDtN/gsePC/24FR/kOXIXONVe1Gt6U4 +lX2N6cFdCr05uvWTK5fjk3Nn/jw/dh1Si2NfcEsLY05eQtODoZtgp79bRFxJ +GAO7vQP4xm/C0scubmpawkhvaNtv++cmHP+o0m9vJoxOWYxXVaK3IEbx+Zfs +3cJ49Gifu8H6WxBaKPVPtUYYv1zIu/T0yi1wvsTWtPcUQenV95m0beUgmf3x +RFaeKPLOfp40uFcBUhp3js+ViuIu/4SqvkcVINOQFLutUhT9lQ/EHGytAPmJ +1QfUGkWxb9dlvksDFaDiEO5T+00UiU1wxIa7EtYunjf4uFYMR7p+38hWqwTH +CIlPei1iqN50yCIprBKcBL8NnH8thvcf39L6ur8SXIqqe/++FcNIOYGU9VGV +4P7S68XTcTGU6opLnY6rhG2aV2o8xMVx4GjGo9WZlbDnk86ZBB9xzJ+7ffob +pxKSXW1NO2bFUVnsnOKd6UqQud0uw71IAg86nheYm6uEclHXn2sEJdDdf+a2 +wXwldHd4V56hS+DRf76OV3nZoOwcoehsI4EPDl8+4ybBhoYNBUteXpDA3/0O +S74YsGHeaqa9zUQS6bZ+g50RbMgojS6bt5LEIoP25NNR1PlLuFK0nCXxy83q +75YxbHB4ImB2yl8Sn2ideltyjA25FgTHIV0SJbjbo/Uy2WCE9udb30tiy4mT +x4+Ws2E/4/L2ZwlSqCWTGfPhIxvsCoWm7dOk8OJMr9y7L2xQ5ItJaT8rhU5q +Jjxd39nwstOd/fqaFB7gyiiqHmeDdvgynoF2ar9brJb7HzZ8Kz1Y+p+MNLb6 +jaS8FSbBS2zjD1mONO4sXW5MNyFh7eHa+Pz70ihCS+q6YkqCwNAqCYWn0qgX +e7RG2YyE6goeUO2Vxq3H2v1krUiQsK/O0F2QRo6hg9lbRxJexivrW9rLIAfq +nG76krB+/Hd06EcZfLS3sT45kYRDNtnqj0Zl8GQZ421qMgnll7X6RGdlcIIt +EZ52ggQpVx9G9VJZVL8byH3sFAmj95785NGWRSce137LsyRkJWREXIiSRb93 +G9iKxSQ0969WHo2XRcLt59GxEhL+6je+Nk2VRVmmUGvVVRICvs7ofcqTxavq +GoMmZSQwHTwntRtlMezqKD+dJGFIXDX08XI5TDd3e2BcR4JkWB1NUlIOry8/ +XfKingSH5i1tuwk5VOG3F/VpIKEqOlVzxVo5fMC3Nj7yCQkn308Mb90ih7Z1 +3rcPtZKgd702cLxIDpXZW7/1dpMQyO0maX5TDncK6PgZ9JBwyXPsafYdORw+ +WBRyupeEJUIKqsxmOQx7cUrD8C0JffuSPh3/IYd8I12+2z6QEG/ivEPGiIYW +lQEs3hESbLzz/zM0p+F/n4aLLEZJEIobOebmQMPgrXsXH/1BXb8xsTTDh4ZH +uXMffhkn4Z5dzciSEzSs0zFSSZkmITaY74hyFg1XvC6KK50hwSrdVcg8j4bs +7V4D9bMkdL4a0z3CpuGhqj9Xvs+RMLFFKXKql4ZCAZOhgvMk3I0O5xP+RMOz +9JdT/P9IOHrpQY72GA0H2vPjFy+QsGxwc+1ubnnsdzhQ+4OLA2qBaVyD6vIY +madTn7GYA94HZk4+PyyP5oTLa2lBDqicN5cbTpTHWCtNp17Ko/dO3+LLkMf2 +IJ1P2cs4EP139UvzYnksWrLHjUuIA2ePeYtXP5fHd47iB6+t5IBXSVlpd7c8 +7g1La7IR5oBi05zh9KA8Bmx+ZPCZcqVAlofOjDw261gdEBHlwPMzTQUlNDo+ +YWukm4pzIIsjtqZRjY4V6+bG6yh7dO1oGFxDx7cO/lEsCQ58k/r7SdaKjqoB +qxdpSXKggmkbyXCio96hZJ4CypFe5/g2e9CRhGzd5VIc4CnUVc8MpaPp0i6h +Acotj47UVkTRsfmkdANKcyDjY4tDWwId+eu1igsoy6v5hy09T8cI2tScswwH +PtuQXKqX6bhN5mFICeWbQQtnLMroeHtvmvgMZWb5hdtH6+jIPLWf+4QsB9a/ +aZ8fa6ajdLVjdzPljVyLrbd30JEng+PNK8eBLasZGS/66RgXH3vJlPJOl9Be ++EzHS73ZGRGUQw9fUawco6NlfZfxVcpRxT17iDk6XjFSKeimbHVYITaOl8An +OnFnNGgcaF1x/4qRAIEXfropOlN2KnZvnhAikG+oPXQ/5W6jydFrogSuXdNx +MJOyZ1uq8A4pAjv+WZuWUx7coWogTSPwqLF041PKAbP1Hq8UCBQv1+F7S3nk +pGfsCVUCV08dEByjHE6fvWKmQaBVzJuXfynPcDKaf+kQGHAatyyVp+aHjcYP +tj6B1lb5RSspc717IhzEILD91EClOOXEvT4GiqYEeqlMHJOkLLDkj0efOYGs +/AY5CcoZuWdjM60JnPKwihGmLK6jW2znQGBxevAVfsq5jS3N3M4EhpqoZf2j +7k/f4v+jxo3Axwa7HSYoF48uCO/3IPCNvOrLAcrq8bkGGtsJfL/Thd5CuUJ8 +nefHnQSmmn9kkpT1b7yIvbiLQNfH7UrnKdeYBhVvCiGw+6FgfxRleL34meA+ +Ag1en9mxmfLjwIIfjZEE7g/Zek+Psu1fhkjMYQJfNXoOClBuz+g00I8jUK47 +s+89NV6uKmGeo8cJlA/5dZVNubeaP674BIHfpVNt4yh7bywu9kon0HDd+np7 +yp+GTJ+JZRH4cEBhuRjlMcEIkcRLBOYzLbQuUvNpf6GQIesygVf4E7k9KM/p +X/ecKSFwPP8rW5wyj/dAsX8FgY8aRa8co+anVKWNoVUDgTaim0YY1PzOW//R +899TAl92DN56T9WDYu+RuKpWAqs23XRJoKzFzXmm2kWgtru09UOqnsxdaV58 +3whMH2bNraTqr+nb3bi6UQLt+K5+z6Pq0+GIS8nBSQJLEnKfqFHeXJo89vU3 +gZMPXc30xDgQPDcZ17xcAWvLy/wVRah62Rsg8UVEAa1+RY2epPJg6XBfGY+U +AgYL1b0bp/KjpL+x21RRAUPrtXgrVnBg4OFZzTsGCigJYuncy6n6MxRo6DBW +wKKlxOmN/8+jyqObJ1ABeTtv8Z6n8kqiKDBBw57aL/hlC02AA46JjJ7L2xXw +lI9s3cISqr7/3Qqp81PAxEXHsnQoj0Yq8rzbrYDHJtnfPHk5kLJLUFsqQgEH +W6Vlb/BwoN7+3bH0FOp6KrrNclR+6onE6xxmK2CKmnuyF5XHXKkzj3OqFPDt +OyVxt58ktPMEeVTVKqBQ2TjTjsrvPTMuiZNPFHBfeIirOpX3xT3K/YF9Cpj8 +6Mq3R1Q/kChoTnLlUcQ95+o+O34h4ZfGygEtN0Vkt9T0Tb4kYTZPJn6thyIe +LxSgJ78gYXqFijJjuyKu8hWwk24nYWyKEbR+tyIqvRP20Kf63VDtzlmPI4r4 +/qt2miXVD1vs7wqllCjigVbdk133SMjd4w1DM4pYlxSVW5VHwvl3u4a+/lbE +wuTp4pGLVGo67k/8saCIgZIiTbRcEtLXprTO8Sthlu7BLYfOkZDwh715hbwS +/kwb7V9+mnq/VN5wEysldD++pelWLAkmZTcLz51TQq39G7d2epPQT5QVWF5U +QqC7xHZ6kRB97nr+dIESGibZ2nV4UP0rvvSSy3UlpDV6dj51p/r1lsIcoftK +eDlFeiBrIwmrebMzkj4oYXi15+RDFvW9th+Oi9RUxqzTsXt9ZUiYFLHzcW9Q +xnxVzxPqbWzoCVZ8GdSkjOO9TazAFjbUP/0Nsc+VsTy0I/NyE/U/GF1Gv9at +jOpGbSorGtigO7Ts/a9hZbS3rSbaq9gQyn6xLU9UBQ/zSs6+LWDDsKOb5yc/ +FZQm2xPtwtnwKc3HfR+fKrY+lvnYLMAG2/GDtp8N1HC4mDfPmlEJozuX7r8d +uwo7Vwh+EDxSTq1HJLmTG1Yj56F1hHjoTRBpU02vHFfHtkGpa3OhN0AupcLJ +wEAT9Sa6DP4wr0GOBmOlaKAW6n4TE72uWQotMmbrps5o4wWeW1/v6RYDU64h +Q6dbB20mVZNpMkUgxFMUsSNBF/k+M0/6mBSCfDzdZKvqGuwvNk+PKLkE/Cpe +VS5Na/Bz9sWoGOULoM2Srji4TQ9TZU4xRmnnYN+ASKMd11rUWRa9ZrNcFoxP +pbnZ5qxF4cO7wpozMsBa52murZY+7vXqmeEvTIOHU8Z/frbr4+3aGK/lFikQ +qqnX98p/HXZMD0XnXT8OrDG/zq38BhjwhSjdahoPlspSG5YXGWDDyPpLByZj +YFXcyagGQ0MUpn5P55lRoO7PqFPpM8T8OJ87Pb37wf/hruO39xrhh0WL+5g7 +wmEsZPigZYQRNjDoGX6bwiGKFrynO9IIR85+XpVjGQ4nY8Jc5g4b4Rw74Iec +ejhUMiMJkyQjvNBi4G30NQz+Vh2735hrhAG1fQu9K8MgsyJ/uqPRCOWWKL0I +2BcCdYWdfpPiDPx7rS0pMDgIBh0UtkdKMdBGf5z11C0IuH6FbP0jw8Axae+0 +dRAE5s58G3kJBt6Zv/rMUiQIni5iGkqrM7BcVLZeo3o3PPct4DczZaDczqJI +XoHd0KccVJ4RwMDYH8d3VdwNhOlrCz917jLw7Z9jwR/QH764WxWeqGbgE5e2 +FT46/tCz+JTNx1rqeRq8NUdo/lDrI3PhXD0DO3MN7qj+8YMEqXXM+WcM1C4x +N9Or8oOVKUExLW8Z6PTkrOpZbT/QDOzi8udm4mRgx4Otq3bCTpUy/twNTIxU +Gk73Nd0B0U+8g1SdmKise13gtPYOyPAXaSVdmHhAylG/WX4H3C85lNa6mYkb +wiPDfRZ8QEzVZsX8DsoXua6qPfKBp6qfxXwimfjdKmGM39oH1FfRCdUCJrVe +dLVrvesNk+pZBuQEE7lUM4oSnTyh5zlaik5RbrcODjXyhPrQsU0RM9T9wp1H +dhOekE7a7jX4zcRXLft6cyY8QJ3JdbOGxxiVeO6rdZ3xAF/bEIVGCWNkrOfT +fPBmK3QGWi/rNDFG1DD9OBe+Be4V//kwk2KMNe5HKwu73cDAIuKnXSp1/M2f +NGh0gzsfRpcVnqK8WbJttMINSPkBQ7tMY5R8v6L5wAk3uJlTfyr/ojGWMLyk +WCw3KExLZFiXG2Oy4b2QnKuucCJixZmc18ZorHoOWMmbwGO9EhrLm6D+Q/O8 +1eHOMN+5VKiRMMFz88Ovp7ydodB/rN9OyQSjhj7pt21whi9J1Qc9Vpmgdl+Y +zS0NZ9j3zLHikJ4JBq6vOqTwzQlOboyRv2dlgp4le41e7nSCmi1df/XDTNA/ +y1BmunUjyIYkV2vXm6DRGDvCTdUe0hcC1qU2mOD0o7btN5bZA3emFfvrYxNc +aGqXFp+yg+Eq3uuFz0ywhdNao1FvBzVcx3NEXpsgf2X1tKenHXhkxx2c/WyC +HSJrkmrO2kJO7aF1DwVZ+ExqaIhHxgbEBYLZGzazqPH2jU3YZgnFFkeiJ7ay +8NfGgCvBVpagdyTdIsuLhfp7aC4hOpawcaKyq2cHCy2GNXjIRZaQ1D3za2cw +C7fH2hRYXV0Pc0Wx5tHxLGy6VWaZNmsBfcZZr0vLWPiNe7P00hJz2HWg+JJt +OQu1lRKjCzLMYbb8jv9oJQvvJw7J2MeYg4hiz881VSyUal70emCTOdgvpck9 +qGehSIaP0SyPOdzvLPV73cXClHn5+12BZmAndE8rsoeFfMn3Jq65mkGP9bNZ +qX4W7sjydT5tZgbTNSMp3oMsXOLetOmsrBloXda99X2YhQ1vTpw4/hLhfp9Z +ZNoPFv57zm8//gDBTmwT6Eyw8AEznRNchhCQfOBVxAwLs+8sGBYkIUzXJ+VK +zrGw9YXhWtcIhITf53fW/GZh716BbFlfhJX61zW3zVPve5hpN+OIkB9SM7Ow +wMJr8ecsP7AQ/gfMom9D + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07467791529793061}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.07467791529793061}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJwV13c8Vf8fB3CRhFL2vO6xy07CvVzvN7KVESokyShZlSQpo4wiCZWUkdBQ +uOeWQkVURFRCRknayPgaacjv/P46j+fj7PP5vF/v81HwDXPx5+bi4lqziIvr +/9vZgWePlVOLTR0Xz0f7jVmYduZLHTLrSQA9znt2pI0ioPgLX6meTPikmJfk +YKMHkU433vD0FIG65W5vHRtzEB6TzPz1hgQ1K6c4LhsXeH9/Y9j0mwZYFOo2 +GmjtC1bKw+8m33TA8GUtE0nLffDrjeHZiTdD4CesRBs0ToBGi6vFr4qmoGa8 +VbCoKxPk3ld/8dWcB8/GibOHL1wEseDtN/gsePC/24FR/kOXIXONVe1Gt6U4 +lX2N6cFdCr05uvWTK5fjk3Nn/jw/dh1Si2NfcEsLY05eQtODoZtgp79bRFxJ +GAO7vQP4xm/C0scubmpawkhvaNtv++cmHP+o0m9vJoxOWYxXVaK3IEbx+Zfs +3cJ49Gifu8H6WxBaKPVPtUYYv1zIu/T0yi1wvsTWtPcUQenV95m0beUgmf3x +RFaeKPLOfp40uFcBUhp3js+ViuIu/4SqvkcVINOQFLutUhT9lQ/EHGytAPmJ +1QfUGkWxb9dlvksDFaDiEO5T+00UiU1wxIa7EtYunjf4uFYMR7p+38hWqwTH +CIlPei1iqN50yCIprBKcBL8NnH8thvcf39L6ur8SXIqqe/++FcNIOYGU9VGV +4P7S68XTcTGU6opLnY6rhG2aV2o8xMVx4GjGo9WZlbDnk86ZBB9xzJ+7ffob +pxKSXW1NO2bFUVnsnOKd6UqQud0uw71IAg86nheYm6uEclHXn2sEJdDdf+a2 +wXwldHd4V56hS+DRf76OV3nZoOwcoehsI4EPDl8+4ybBhoYNBUteXpDA3/0O +S74YsGHeaqa9zUQS6bZ+g50RbMgojS6bt5LEIoP25NNR1PlLuFK0nCXxy83q +75YxbHB4ImB2yl8Sn2ideltyjA25FgTHIV0SJbjbo/Uy2WCE9udb30tiy4mT +x4+Ws2E/4/L2ZwlSqCWTGfPhIxvsCoWm7dOk8OJMr9y7L2xQ5ItJaT8rhU5q +Jjxd39nwstOd/fqaFB7gyiiqHmeDdvgynoF2ar9brJb7HzZ8Kz1Y+p+MNLb6 +jaS8FSbBS2zjD1mONO4sXW5MNyFh7eHa+Pz70ihCS+q6YkqCwNAqCYWn0qgX +e7RG2YyE6goeUO2Vxq3H2v1krUiQsK/O0F2QRo6hg9lbRxJexivrW9rLIAfq +nG76krB+/Hd06EcZfLS3sT45kYRDNtnqj0Zl8GQZ421qMgnll7X6RGdlcIIt +EZ52ggQpVx9G9VJZVL8byH3sFAmj95785NGWRSce137LsyRkJWREXIiSRb93 +G9iKxSQ0969WHo2XRcLt59GxEhL+6je+Nk2VRVmmUGvVVRICvs7ofcqTxavq +GoMmZSQwHTwntRtlMezqKD+dJGFIXDX08XI5TDd3e2BcR4JkWB1NUlIOry8/ +XfKingSH5i1tuwk5VOG3F/VpIKEqOlVzxVo5fMC3Nj7yCQkn308Mb90ih7Z1 +3rcPtZKgd702cLxIDpXZW7/1dpMQyO0maX5TDncK6PgZ9JBwyXPsafYdORw+ +WBRyupeEJUIKqsxmOQx7cUrD8C0JffuSPh3/IYd8I12+2z6QEG/ivEPGiIYW +lQEs3hESbLzz/zM0p+F/n4aLLEZJEIobOebmQMPgrXsXH/1BXb8xsTTDh4ZH +uXMffhkn4Z5dzciSEzSs0zFSSZkmITaY74hyFg1XvC6KK50hwSrdVcg8j4bs +7V4D9bMkdL4a0z3CpuGhqj9Xvs+RMLFFKXKql4ZCAZOhgvMk3I0O5xP+RMOz +9JdT/P9IOHrpQY72GA0H2vPjFy+QsGxwc+1ubnnsdzhQ+4OLA2qBaVyD6vIY +madTn7GYA94HZk4+PyyP5oTLa2lBDqicN5cbTpTHWCtNp17Ko/dO3+LLkMf2 +IJ1P2cs4EP139UvzYnksWrLHjUuIA2ePeYtXP5fHd47iB6+t5IBXSVlpd7c8 +7g1La7IR5oBi05zh9KA8Bmx+ZPCZcqVAlofOjDw261gdEBHlwPMzTQUlNDo+ +YWukm4pzIIsjtqZRjY4V6+bG6yh7dO1oGFxDx7cO/lEsCQ58k/r7SdaKjqoB +qxdpSXKggmkbyXCio96hZJ4CypFe5/g2e9CRhGzd5VIc4CnUVc8MpaPp0i6h +Acotj47UVkTRsfmkdANKcyDjY4tDWwId+eu1igsoy6v5hy09T8cI2tScswwH +PtuQXKqX6bhN5mFICeWbQQtnLMroeHtvmvgMZWb5hdtH6+jIPLWf+4QsB9a/ +aZ8fa6ajdLVjdzPljVyLrbd30JEng+PNK8eBLasZGS/66RgXH3vJlPJOl9Be ++EzHS73ZGRGUQw9fUawco6NlfZfxVcpRxT17iDk6XjFSKeimbHVYITaOl8An +OnFnNGgcaF1x/4qRAIEXfropOlN2KnZvnhAikG+oPXQ/5W6jydFrogSuXdNx +MJOyZ1uq8A4pAjv+WZuWUx7coWogTSPwqLF041PKAbP1Hq8UCBQv1+F7S3nk +pGfsCVUCV08dEByjHE6fvWKmQaBVzJuXfynPcDKaf+kQGHAatyyVp+aHjcYP +tj6B1lb5RSspc717IhzEILD91EClOOXEvT4GiqYEeqlMHJOkLLDkj0efOYGs +/AY5CcoZuWdjM60JnPKwihGmLK6jW2znQGBxevAVfsq5jS3N3M4EhpqoZf2j +7k/f4v+jxo3Axwa7HSYoF48uCO/3IPCNvOrLAcrq8bkGGtsJfL/Thd5CuUJ8 +nefHnQSmmn9kkpT1b7yIvbiLQNfH7UrnKdeYBhVvCiGw+6FgfxRleL34meA+ +Ag1en9mxmfLjwIIfjZEE7g/Zek+Psu1fhkjMYQJfNXoOClBuz+g00I8jUK47 +s+89NV6uKmGeo8cJlA/5dZVNubeaP674BIHfpVNt4yh7bywu9kon0HDd+np7 +yp+GTJ+JZRH4cEBhuRjlMcEIkcRLBOYzLbQuUvNpf6GQIesygVf4E7k9KM/p +X/ecKSFwPP8rW5wyj/dAsX8FgY8aRa8co+anVKWNoVUDgTaim0YY1PzOW//R +899TAl92DN56T9WDYu+RuKpWAqs23XRJoKzFzXmm2kWgtru09UOqnsxdaV58 +3whMH2bNraTqr+nb3bi6UQLt+K5+z6Pq0+GIS8nBSQJLEnKfqFHeXJo89vU3 +gZMPXc30xDgQPDcZ17xcAWvLy/wVRah62Rsg8UVEAa1+RY2epPJg6XBfGY+U +AgYL1b0bp/KjpL+x21RRAUPrtXgrVnBg4OFZzTsGCigJYuncy6n6MxRo6DBW +wKKlxOmN/8+jyqObJ1ABeTtv8Z6n8kqiKDBBw57aL/hlC02AA46JjJ7L2xXw +lI9s3cISqr7/3Qqp81PAxEXHsnQoj0Yq8rzbrYDHJtnfPHk5kLJLUFsqQgEH +W6Vlb/BwoN7+3bH0FOp6KrrNclR+6onE6xxmK2CKmnuyF5XHXKkzj3OqFPDt +OyVxt58ktPMEeVTVKqBQ2TjTjsrvPTMuiZNPFHBfeIirOpX3xT3K/YF9Cpj8 +6Mq3R1Q/kChoTnLlUcQ95+o+O34h4ZfGygEtN0Vkt9T0Tb4kYTZPJn6thyIe +LxSgJ78gYXqFijJjuyKu8hWwk24nYWyKEbR+tyIqvRP20Kf63VDtzlmPI4r4 +/qt2miXVD1vs7wqllCjigVbdk133SMjd4w1DM4pYlxSVW5VHwvl3u4a+/lbE +wuTp4pGLVGo67k/8saCIgZIiTbRcEtLXprTO8Sthlu7BLYfOkZDwh715hbwS +/kwb7V9+mnq/VN5wEysldD++pelWLAkmZTcLz51TQq39G7d2epPQT5QVWF5U +QqC7xHZ6kRB97nr+dIESGibZ2nV4UP0rvvSSy3UlpDV6dj51p/r1lsIcoftK +eDlFeiBrIwmrebMzkj4oYXi15+RDFvW9th+Oi9RUxqzTsXt9ZUiYFLHzcW9Q +xnxVzxPqbWzoCVZ8GdSkjOO9TazAFjbUP/0Nsc+VsTy0I/NyE/U/GF1Gv9at +jOpGbSorGtigO7Ts/a9hZbS3rSbaq9gQyn6xLU9UBQ/zSs6+LWDDsKOb5yc/ +FZQm2xPtwtnwKc3HfR+fKrY+lvnYLMAG2/GDtp8N1HC4mDfPmlEJozuX7r8d +uwo7Vwh+EDxSTq1HJLmTG1Yj56F1hHjoTRBpU02vHFfHtkGpa3OhN0AupcLJ +wEAT9Sa6DP4wr0GOBmOlaKAW6n4TE72uWQotMmbrps5o4wWeW1/v6RYDU64h +Q6dbB20mVZNpMkUgxFMUsSNBF/k+M0/6mBSCfDzdZKvqGuwvNk+PKLkE/Cpe +VS5Na/Bz9sWoGOULoM2Srji4TQ9TZU4xRmnnYN+ASKMd11rUWRa9ZrNcFoxP +pbnZ5qxF4cO7wpozMsBa52murZY+7vXqmeEvTIOHU8Z/frbr4+3aGK/lFikQ +qqnX98p/HXZMD0XnXT8OrDG/zq38BhjwhSjdahoPlspSG5YXGWDDyPpLByZj +YFXcyagGQ0MUpn5P55lRoO7PqFPpM8T8OJ87Pb37wf/hruO39xrhh0WL+5g7 +wmEsZPigZYQRNjDoGX6bwiGKFrynO9IIR85+XpVjGQ4nY8Jc5g4b4Rw74Iec +ejhUMiMJkyQjvNBi4G30NQz+Vh2735hrhAG1fQu9K8MgsyJ/uqPRCOWWKL0I +2BcCdYWdfpPiDPx7rS0pMDgIBh0UtkdKMdBGf5z11C0IuH6FbP0jw8Axae+0 +dRAE5s58G3kJBt6Zv/rMUiQIni5iGkqrM7BcVLZeo3o3PPct4DczZaDczqJI +XoHd0KccVJ4RwMDYH8d3VdwNhOlrCz917jLw7Z9jwR/QH764WxWeqGbgE5e2 +FT46/tCz+JTNx1rqeRq8NUdo/lDrI3PhXD0DO3MN7qj+8YMEqXXM+WcM1C4x +N9Or8oOVKUExLW8Z6PTkrOpZbT/QDOzi8udm4mRgx4Otq3bCTpUy/twNTIxU +Gk73Nd0B0U+8g1SdmKise13gtPYOyPAXaSVdmHhAylG/WX4H3C85lNa6mYkb +wiPDfRZ8QEzVZsX8DsoXua6qPfKBp6qfxXwimfjdKmGM39oH1FfRCdUCJrVe +dLVrvesNk+pZBuQEE7lUM4oSnTyh5zlaik5RbrcODjXyhPrQsU0RM9T9wp1H +dhOekE7a7jX4zcRXLft6cyY8QJ3JdbOGxxiVeO6rdZ3xAF/bEIVGCWNkrOfT +fPBmK3QGWi/rNDFG1DD9OBe+Be4V//kwk2KMNe5HKwu73cDAIuKnXSp1/M2f +NGh0gzsfRpcVnqK8WbJttMINSPkBQ7tMY5R8v6L5wAk3uJlTfyr/ojGWMLyk +WCw3KExLZFiXG2Oy4b2QnKuucCJixZmc18ZorHoOWMmbwGO9EhrLm6D+Q/O8 +1eHOMN+5VKiRMMFz88Ovp7ydodB/rN9OyQSjhj7pt21whi9J1Qc9Vpmgdl+Y +zS0NZ9j3zLHikJ4JBq6vOqTwzQlOboyRv2dlgp4le41e7nSCmi1df/XDTNA/ +y1BmunUjyIYkV2vXm6DRGDvCTdUe0hcC1qU2mOD0o7btN5bZA3emFfvrYxNc +aGqXFp+yg+Eq3uuFz0ywhdNao1FvBzVcx3NEXpsgf2X1tKenHXhkxx2c/WyC +HSJrkmrO2kJO7aF1DwVZ+ExqaIhHxgbEBYLZGzazqPH2jU3YZgnFFkeiJ7ay +8NfGgCvBVpagdyTdIsuLhfp7aC4hOpawcaKyq2cHCy2GNXjIRZaQ1D3za2cw +C7fH2hRYXV0Pc0Wx5tHxLGy6VWaZNmsBfcZZr0vLWPiNe7P00hJz2HWg+JJt +OQu1lRKjCzLMYbb8jv9oJQvvJw7J2MeYg4hiz881VSyUal70emCTOdgvpck9 +qGehSIaP0SyPOdzvLPV73cXClHn5+12BZmAndE8rsoeFfMn3Jq65mkGP9bNZ +qX4W7sjydT5tZgbTNSMp3oMsXOLetOmsrBloXda99X2YhQ1vTpw4/hLhfp9Z +ZNoPFv57zm8//gDBTmwT6Eyw8AEznRNchhCQfOBVxAwLs+8sGBYkIUzXJ+VK +zrGw9YXhWtcIhITf53fW/GZh716BbFlfhJX61zW3zVPve5hpN+OIkB9SM7Ow +wMJr8ecsP7AQ/gfMom9D + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07467791529793061}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.07467791529793061}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994042217276991*^9}, + CellLabel-> + "Out[141]=",ExpressionUUID->"3004ae76-440c-4f6a-af5c-e1507fe122d8"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", - RowBox[{"x", ",", "xx"}], "]"}]], "Input",ExpressionUUID->"344da507-9044-\ -ef47-aa8c-99f282e3d6d3"], + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellLabel-> + "In[142]:=",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:eJwV13c8Vf8fB3CRhFL2vO6xy07CvVzvN7KVESokyShZlSQpo4wiCZWUkdBQ +uOeWQkVURFRCRknayPgaacjv/P46j+fj7PP5vF/v81HwDXPx5+bi4lqziIvr +/9vZgWePlVOLTR0Xz0f7jVmYduZLHTLrSQA9znt2pI0ioPgLX6meTPikmJfk +YKMHkU433vD0FIG65W5vHRtzEB6TzPz1hgQ1K6c4LhsXeH9/Y9j0mwZYFOo2 +GmjtC1bKw+8m33TA8GUtE0nLffDrjeHZiTdD4CesRBs0ToBGi6vFr4qmoGa8 +VbCoKxPk3ld/8dWcB8/GibOHL1wEseDtN/gsePC/24FR/kOXIXONVe1Gt6U4 +lX2N6cFdCr05uvWTK5fjk3Nn/jw/dh1Si2NfcEsLY05eQtODoZtgp79bRFxJ +GAO7vQP4xm/C0scubmpawkhvaNtv++cmHP+o0m9vJoxOWYxXVaK3IEbx+Zfs +3cJ49Gifu8H6WxBaKPVPtUYYv1zIu/T0yi1wvsTWtPcUQenV95m0beUgmf3x +RFaeKPLOfp40uFcBUhp3js+ViuIu/4SqvkcVINOQFLutUhT9lQ/EHGytAPmJ +1QfUGkWxb9dlvksDFaDiEO5T+00UiU1wxIa7EtYunjf4uFYMR7p+38hWqwTH +CIlPei1iqN50yCIprBKcBL8NnH8thvcf39L6ur8SXIqqe/++FcNIOYGU9VGV +4P7S68XTcTGU6opLnY6rhG2aV2o8xMVx4GjGo9WZlbDnk86ZBB9xzJ+7ffob +pxKSXW1NO2bFUVnsnOKd6UqQud0uw71IAg86nheYm6uEclHXn2sEJdDdf+a2 +wXwldHd4V56hS+DRf76OV3nZoOwcoehsI4EPDl8+4ybBhoYNBUteXpDA3/0O +S74YsGHeaqa9zUQS6bZ+g50RbMgojS6bt5LEIoP25NNR1PlLuFK0nCXxy83q +75YxbHB4ImB2yl8Sn2ideltyjA25FgTHIV0SJbjbo/Uy2WCE9udb30tiy4mT +x4+Ws2E/4/L2ZwlSqCWTGfPhIxvsCoWm7dOk8OJMr9y7L2xQ5ItJaT8rhU5q +Jjxd39nwstOd/fqaFB7gyiiqHmeDdvgynoF2ar9brJb7HzZ8Kz1Y+p+MNLb6 +jaS8FSbBS2zjD1mONO4sXW5MNyFh7eHa+Pz70ihCS+q6YkqCwNAqCYWn0qgX +e7RG2YyE6goeUO2Vxq3H2v1krUiQsK/O0F2QRo6hg9lbRxJexivrW9rLIAfq +nG76krB+/Hd06EcZfLS3sT45kYRDNtnqj0Zl8GQZ421qMgnll7X6RGdlcIIt +EZ52ggQpVx9G9VJZVL8byH3sFAmj95785NGWRSce137LsyRkJWREXIiSRb93 +G9iKxSQ0969WHo2XRcLt59GxEhL+6je+Nk2VRVmmUGvVVRICvs7ofcqTxavq +GoMmZSQwHTwntRtlMezqKD+dJGFIXDX08XI5TDd3e2BcR4JkWB1NUlIOry8/ +XfKingSH5i1tuwk5VOG3F/VpIKEqOlVzxVo5fMC3Nj7yCQkn308Mb90ih7Z1 +3rcPtZKgd702cLxIDpXZW7/1dpMQyO0maX5TDncK6PgZ9JBwyXPsafYdORw+ +WBRyupeEJUIKqsxmOQx7cUrD8C0JffuSPh3/IYd8I12+2z6QEG/ivEPGiIYW +lQEs3hESbLzz/zM0p+F/n4aLLEZJEIobOebmQMPgrXsXH/1BXb8xsTTDh4ZH +uXMffhkn4Z5dzciSEzSs0zFSSZkmITaY74hyFg1XvC6KK50hwSrdVcg8j4bs +7V4D9bMkdL4a0z3CpuGhqj9Xvs+RMLFFKXKql4ZCAZOhgvMk3I0O5xP+RMOz +9JdT/P9IOHrpQY72GA0H2vPjFy+QsGxwc+1ubnnsdzhQ+4OLA2qBaVyD6vIY +madTn7GYA94HZk4+PyyP5oTLa2lBDqicN5cbTpTHWCtNp17Ko/dO3+LLkMf2 +IJ1P2cs4EP139UvzYnksWrLHjUuIA2ePeYtXP5fHd47iB6+t5IBXSVlpd7c8 +7g1La7IR5oBi05zh9KA8Bmx+ZPCZcqVAlofOjDw261gdEBHlwPMzTQUlNDo+ +YWukm4pzIIsjtqZRjY4V6+bG6yh7dO1oGFxDx7cO/lEsCQ58k/r7SdaKjqoB +qxdpSXKggmkbyXCio96hZJ4CypFe5/g2e9CRhGzd5VIc4CnUVc8MpaPp0i6h +Acotj47UVkTRsfmkdANKcyDjY4tDWwId+eu1igsoy6v5hy09T8cI2tScswwH +PtuQXKqX6bhN5mFICeWbQQtnLMroeHtvmvgMZWb5hdtH6+jIPLWf+4QsB9a/ +aZ8fa6ajdLVjdzPljVyLrbd30JEng+PNK8eBLasZGS/66RgXH3vJlPJOl9Be ++EzHS73ZGRGUQw9fUawco6NlfZfxVcpRxT17iDk6XjFSKeimbHVYITaOl8An +OnFnNGgcaF1x/4qRAIEXfropOlN2KnZvnhAikG+oPXQ/5W6jydFrogSuXdNx +MJOyZ1uq8A4pAjv+WZuWUx7coWogTSPwqLF041PKAbP1Hq8UCBQv1+F7S3nk +pGfsCVUCV08dEByjHE6fvWKmQaBVzJuXfynPcDKaf+kQGHAatyyVp+aHjcYP +tj6B1lb5RSspc717IhzEILD91EClOOXEvT4GiqYEeqlMHJOkLLDkj0efOYGs +/AY5CcoZuWdjM60JnPKwihGmLK6jW2znQGBxevAVfsq5jS3N3M4EhpqoZf2j +7k/f4v+jxo3Axwa7HSYoF48uCO/3IPCNvOrLAcrq8bkGGtsJfL/Thd5CuUJ8 +nefHnQSmmn9kkpT1b7yIvbiLQNfH7UrnKdeYBhVvCiGw+6FgfxRleL34meA+ +Ag1en9mxmfLjwIIfjZEE7g/Zek+Psu1fhkjMYQJfNXoOClBuz+g00I8jUK47 +s+89NV6uKmGeo8cJlA/5dZVNubeaP674BIHfpVNt4yh7bywu9kon0HDd+np7 +yp+GTJ+JZRH4cEBhuRjlMcEIkcRLBOYzLbQuUvNpf6GQIesygVf4E7k9KM/p +X/ecKSFwPP8rW5wyj/dAsX8FgY8aRa8co+anVKWNoVUDgTaim0YY1PzOW//R +899TAl92DN56T9WDYu+RuKpWAqs23XRJoKzFzXmm2kWgtru09UOqnsxdaV58 +3whMH2bNraTqr+nb3bi6UQLt+K5+z6Pq0+GIS8nBSQJLEnKfqFHeXJo89vU3 +gZMPXc30xDgQPDcZ17xcAWvLy/wVRah62Rsg8UVEAa1+RY2epPJg6XBfGY+U +AgYL1b0bp/KjpL+x21RRAUPrtXgrVnBg4OFZzTsGCigJYuncy6n6MxRo6DBW +wKKlxOmN/8+jyqObJ1ABeTtv8Z6n8kqiKDBBw57aL/hlC02AA46JjJ7L2xXw +lI9s3cISqr7/3Qqp81PAxEXHsnQoj0Yq8rzbrYDHJtnfPHk5kLJLUFsqQgEH +W6Vlb/BwoN7+3bH0FOp6KrrNclR+6onE6xxmK2CKmnuyF5XHXKkzj3OqFPDt +OyVxt58ktPMEeVTVKqBQ2TjTjsrvPTMuiZNPFHBfeIirOpX3xT3K/YF9Cpj8 +6Mq3R1Q/kChoTnLlUcQ95+o+O34h4ZfGygEtN0Vkt9T0Tb4kYTZPJn6thyIe +LxSgJ78gYXqFijJjuyKu8hWwk24nYWyKEbR+tyIqvRP20Kf63VDtzlmPI4r4 +/qt2miXVD1vs7wqllCjigVbdk133SMjd4w1DM4pYlxSVW5VHwvl3u4a+/lbE +wuTp4pGLVGo67k/8saCIgZIiTbRcEtLXprTO8Sthlu7BLYfOkZDwh715hbwS +/kwb7V9+mnq/VN5wEysldD++pelWLAkmZTcLz51TQq39G7d2epPQT5QVWF5U +QqC7xHZ6kRB97nr+dIESGibZ2nV4UP0rvvSSy3UlpDV6dj51p/r1lsIcoftK +eDlFeiBrIwmrebMzkj4oYXi15+RDFvW9th+Oi9RUxqzTsXt9ZUiYFLHzcW9Q +xnxVzxPqbWzoCVZ8GdSkjOO9TazAFjbUP/0Nsc+VsTy0I/NyE/U/GF1Gv9at +jOpGbSorGtigO7Ts/a9hZbS3rSbaq9gQyn6xLU9UBQ/zSs6+LWDDsKOb5yc/ +FZQm2xPtwtnwKc3HfR+fKrY+lvnYLMAG2/GDtp8N1HC4mDfPmlEJozuX7r8d +uwo7Vwh+EDxSTq1HJLmTG1Yj56F1hHjoTRBpU02vHFfHtkGpa3OhN0AupcLJ +wEAT9Sa6DP4wr0GOBmOlaKAW6n4TE72uWQotMmbrps5o4wWeW1/v6RYDU64h +Q6dbB20mVZNpMkUgxFMUsSNBF/k+M0/6mBSCfDzdZKvqGuwvNk+PKLkE/Cpe +VS5Na/Bz9sWoGOULoM2Srji4TQ9TZU4xRmnnYN+ASKMd11rUWRa9ZrNcFoxP +pbnZ5qxF4cO7wpozMsBa52murZY+7vXqmeEvTIOHU8Z/frbr4+3aGK/lFikQ +qqnX98p/HXZMD0XnXT8OrDG/zq38BhjwhSjdahoPlspSG5YXGWDDyPpLByZj +YFXcyagGQ0MUpn5P55lRoO7PqFPpM8T8OJ87Pb37wf/hruO39xrhh0WL+5g7 +wmEsZPigZYQRNjDoGX6bwiGKFrynO9IIR85+XpVjGQ4nY8Jc5g4b4Rw74Iec +ejhUMiMJkyQjvNBi4G30NQz+Vh2735hrhAG1fQu9K8MgsyJ/uqPRCOWWKL0I +2BcCdYWdfpPiDPx7rS0pMDgIBh0UtkdKMdBGf5z11C0IuH6FbP0jw8Axae+0 +dRAE5s58G3kJBt6Zv/rMUiQIni5iGkqrM7BcVLZeo3o3PPct4DczZaDczqJI +XoHd0KccVJ4RwMDYH8d3VdwNhOlrCz917jLw7Z9jwR/QH764WxWeqGbgE5e2 +FT46/tCz+JTNx1rqeRq8NUdo/lDrI3PhXD0DO3MN7qj+8YMEqXXM+WcM1C4x +N9Or8oOVKUExLW8Z6PTkrOpZbT/QDOzi8udm4mRgx4Otq3bCTpUy/twNTIxU +Gk73Nd0B0U+8g1SdmKise13gtPYOyPAXaSVdmHhAylG/WX4H3C85lNa6mYkb +wiPDfRZ8QEzVZsX8DsoXua6qPfKBp6qfxXwimfjdKmGM39oH1FfRCdUCJrVe +dLVrvesNk+pZBuQEE7lUM4oSnTyh5zlaik5RbrcODjXyhPrQsU0RM9T9wp1H +dhOekE7a7jX4zcRXLft6cyY8QJ3JdbOGxxiVeO6rdZ3xAF/bEIVGCWNkrOfT +fPBmK3QGWi/rNDFG1DD9OBe+Be4V//kwk2KMNe5HKwu73cDAIuKnXSp1/M2f +NGh0gzsfRpcVnqK8WbJttMINSPkBQ7tMY5R8v6L5wAk3uJlTfyr/ojGWMLyk +WCw3KExLZFiXG2Oy4b2QnKuucCJixZmc18ZorHoOWMmbwGO9EhrLm6D+Q/O8 +1eHOMN+5VKiRMMFz88Ovp7ydodB/rN9OyQSjhj7pt21whi9J1Qc9Vpmgdl+Y +zS0NZ9j3zLHikJ4JBq6vOqTwzQlOboyRv2dlgp4le41e7nSCmi1df/XDTNA/ +y1BmunUjyIYkV2vXm6DRGDvCTdUe0hcC1qU2mOD0o7btN5bZA3emFfvrYxNc +aGqXFp+yg+Eq3uuFz0ywhdNao1FvBzVcx3NEXpsgf2X1tKenHXhkxx2c/WyC +HSJrkmrO2kJO7aF1DwVZ+ExqaIhHxgbEBYLZGzazqPH2jU3YZgnFFkeiJ7ay +8NfGgCvBVpagdyTdIsuLhfp7aC4hOpawcaKyq2cHCy2GNXjIRZaQ1D3za2cw +C7fH2hRYXV0Pc0Wx5tHxLGy6VWaZNmsBfcZZr0vLWPiNe7P00hJz2HWg+JJt +OQu1lRKjCzLMYbb8jv9oJQvvJw7J2MeYg4hiz881VSyUal70emCTOdgvpck9 +qGehSIaP0SyPOdzvLPV73cXClHn5+12BZmAndE8rsoeFfMn3Jq65mkGP9bNZ +qX4W7sjydT5tZgbTNSMp3oMsXOLetOmsrBloXda99X2YhQ1vTpw4/hLhfp9Z +ZNoPFv57zm8//gDBTmwT6Eyw8AEznRNchhCQfOBVxAwLs+8sGBYkIUzXJ+VK +zrGw9YXhWtcIhITf53fW/GZh716BbFlfhJX61zW3zVPve5hpN+OIkB9SM7Ow +wMJr8ecsP7AQ/gfMom9D + "]]}, + 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:eJwV13c8Vf8fB3CRhFL2vO6xy07CvVzvN7KVESokyShZlSQpo4wiCZWUkdBQ +uOeWQkVURFRCRknayPgaacjv/P46j+fj7PP5vF/v81HwDXPx5+bi4lqziIvr +/9vZgWePlVOLTR0Xz0f7jVmYduZLHTLrSQA9znt2pI0ioPgLX6meTPikmJfk +YKMHkU433vD0FIG65W5vHRtzEB6TzPz1hgQ1K6c4LhsXeH9/Y9j0mwZYFOo2 +GmjtC1bKw+8m33TA8GUtE0nLffDrjeHZiTdD4CesRBs0ToBGi6vFr4qmoGa8 +VbCoKxPk3ld/8dWcB8/GibOHL1wEseDtN/gsePC/24FR/kOXIXONVe1Gt6U4 +lX2N6cFdCr05uvWTK5fjk3Nn/jw/dh1Si2NfcEsLY05eQtODoZtgp79bRFxJ +GAO7vQP4xm/C0scubmpawkhvaNtv++cmHP+o0m9vJoxOWYxXVaK3IEbx+Zfs +3cJ49Gifu8H6WxBaKPVPtUYYv1zIu/T0yi1wvsTWtPcUQenV95m0beUgmf3x +RFaeKPLOfp40uFcBUhp3js+ViuIu/4SqvkcVINOQFLutUhT9lQ/EHGytAPmJ +1QfUGkWxb9dlvksDFaDiEO5T+00UiU1wxIa7EtYunjf4uFYMR7p+38hWqwTH +CIlPei1iqN50yCIprBKcBL8NnH8thvcf39L6ur8SXIqqe/++FcNIOYGU9VGV +4P7S68XTcTGU6opLnY6rhG2aV2o8xMVx4GjGo9WZlbDnk86ZBB9xzJ+7ffob +pxKSXW1NO2bFUVnsnOKd6UqQud0uw71IAg86nheYm6uEclHXn2sEJdDdf+a2 +wXwldHd4V56hS+DRf76OV3nZoOwcoehsI4EPDl8+4ybBhoYNBUteXpDA3/0O +S74YsGHeaqa9zUQS6bZ+g50RbMgojS6bt5LEIoP25NNR1PlLuFK0nCXxy83q +75YxbHB4ImB2yl8Sn2ideltyjA25FgTHIV0SJbjbo/Uy2WCE9udb30tiy4mT +x4+Ws2E/4/L2ZwlSqCWTGfPhIxvsCoWm7dOk8OJMr9y7L2xQ5ItJaT8rhU5q +Jjxd39nwstOd/fqaFB7gyiiqHmeDdvgynoF2ar9brJb7HzZ8Kz1Y+p+MNLb6 +jaS8FSbBS2zjD1mONO4sXW5MNyFh7eHa+Pz70ihCS+q6YkqCwNAqCYWn0qgX +e7RG2YyE6goeUO2Vxq3H2v1krUiQsK/O0F2QRo6hg9lbRxJexivrW9rLIAfq +nG76krB+/Hd06EcZfLS3sT45kYRDNtnqj0Zl8GQZ421qMgnll7X6RGdlcIIt +EZ52ggQpVx9G9VJZVL8byH3sFAmj95785NGWRSce137LsyRkJWREXIiSRb93 +G9iKxSQ0969WHo2XRcLt59GxEhL+6je+Nk2VRVmmUGvVVRICvs7ofcqTxavq +GoMmZSQwHTwntRtlMezqKD+dJGFIXDX08XI5TDd3e2BcR4JkWB1NUlIOry8/ +XfKingSH5i1tuwk5VOG3F/VpIKEqOlVzxVo5fMC3Nj7yCQkn308Mb90ih7Z1 +3rcPtZKgd702cLxIDpXZW7/1dpMQyO0maX5TDncK6PgZ9JBwyXPsafYdORw+ +WBRyupeEJUIKqsxmOQx7cUrD8C0JffuSPh3/IYd8I12+2z6QEG/ivEPGiIYW +lQEs3hESbLzz/zM0p+F/n4aLLEZJEIobOebmQMPgrXsXH/1BXb8xsTTDh4ZH +uXMffhkn4Z5dzciSEzSs0zFSSZkmITaY74hyFg1XvC6KK50hwSrdVcg8j4bs +7V4D9bMkdL4a0z3CpuGhqj9Xvs+RMLFFKXKql4ZCAZOhgvMk3I0O5xP+RMOz +9JdT/P9IOHrpQY72GA0H2vPjFy+QsGxwc+1ubnnsdzhQ+4OLA2qBaVyD6vIY +madTn7GYA94HZk4+PyyP5oTLa2lBDqicN5cbTpTHWCtNp17Ko/dO3+LLkMf2 +IJ1P2cs4EP139UvzYnksWrLHjUuIA2ePeYtXP5fHd47iB6+t5IBXSVlpd7c8 +7g1La7IR5oBi05zh9KA8Bmx+ZPCZcqVAlofOjDw261gdEBHlwPMzTQUlNDo+ +YWukm4pzIIsjtqZRjY4V6+bG6yh7dO1oGFxDx7cO/lEsCQ58k/r7SdaKjqoB +qxdpSXKggmkbyXCio96hZJ4CypFe5/g2e9CRhGzd5VIc4CnUVc8MpaPp0i6h +Acotj47UVkTRsfmkdANKcyDjY4tDWwId+eu1igsoy6v5hy09T8cI2tScswwH +PtuQXKqX6bhN5mFICeWbQQtnLMroeHtvmvgMZWb5hdtH6+jIPLWf+4QsB9a/ +aZ8fa6ajdLVjdzPljVyLrbd30JEng+PNK8eBLasZGS/66RgXH3vJlPJOl9Be ++EzHS73ZGRGUQw9fUawco6NlfZfxVcpRxT17iDk6XjFSKeimbHVYITaOl8An +OnFnNGgcaF1x/4qRAIEXfropOlN2KnZvnhAikG+oPXQ/5W6jydFrogSuXdNx +MJOyZ1uq8A4pAjv+WZuWUx7coWogTSPwqLF041PKAbP1Hq8UCBQv1+F7S3nk +pGfsCVUCV08dEByjHE6fvWKmQaBVzJuXfynPcDKaf+kQGHAatyyVp+aHjcYP +tj6B1lb5RSspc717IhzEILD91EClOOXEvT4GiqYEeqlMHJOkLLDkj0efOYGs +/AY5CcoZuWdjM60JnPKwihGmLK6jW2znQGBxevAVfsq5jS3N3M4EhpqoZf2j +7k/f4v+jxo3Axwa7HSYoF48uCO/3IPCNvOrLAcrq8bkGGtsJfL/Thd5CuUJ8 +nefHnQSmmn9kkpT1b7yIvbiLQNfH7UrnKdeYBhVvCiGw+6FgfxRleL34meA+ +Ag1en9mxmfLjwIIfjZEE7g/Zek+Psu1fhkjMYQJfNXoOClBuz+g00I8jUK47 +s+89NV6uKmGeo8cJlA/5dZVNubeaP674BIHfpVNt4yh7bywu9kon0HDd+np7 +yp+GTJ+JZRH4cEBhuRjlMcEIkcRLBOYzLbQuUvNpf6GQIesygVf4E7k9KM/p +X/ecKSFwPP8rW5wyj/dAsX8FgY8aRa8co+anVKWNoVUDgTaim0YY1PzOW//R +899TAl92DN56T9WDYu+RuKpWAqs23XRJoKzFzXmm2kWgtru09UOqnsxdaV58 +3whMH2bNraTqr+nb3bi6UQLt+K5+z6Pq0+GIS8nBSQJLEnKfqFHeXJo89vU3 +gZMPXc30xDgQPDcZ17xcAWvLy/wVRah62Rsg8UVEAa1+RY2epPJg6XBfGY+U +AgYL1b0bp/KjpL+x21RRAUPrtXgrVnBg4OFZzTsGCigJYuncy6n6MxRo6DBW +wKKlxOmN/8+jyqObJ1ABeTtv8Z6n8kqiKDBBw57aL/hlC02AA46JjJ7L2xXw +lI9s3cISqr7/3Qqp81PAxEXHsnQoj0Yq8rzbrYDHJtnfPHk5kLJLUFsqQgEH +W6Vlb/BwoN7+3bH0FOp6KrrNclR+6onE6xxmK2CKmnuyF5XHXKkzj3OqFPDt +OyVxt58ktPMEeVTVKqBQ2TjTjsrvPTMuiZNPFHBfeIirOpX3xT3K/YF9Cpj8 +6Mq3R1Q/kChoTnLlUcQ95+o+O34h4ZfGygEtN0Vkt9T0Tb4kYTZPJn6thyIe +LxSgJ78gYXqFijJjuyKu8hWwk24nYWyKEbR+tyIqvRP20Kf63VDtzlmPI4r4 +/qt2miXVD1vs7wqllCjigVbdk133SMjd4w1DM4pYlxSVW5VHwvl3u4a+/lbE +wuTp4pGLVGo67k/8saCIgZIiTbRcEtLXprTO8Sthlu7BLYfOkZDwh715hbwS +/kwb7V9+mnq/VN5wEysldD++pelWLAkmZTcLz51TQq39G7d2epPQT5QVWF5U +QqC7xHZ6kRB97nr+dIESGibZ2nV4UP0rvvSSy3UlpDV6dj51p/r1lsIcoftK +eDlFeiBrIwmrebMzkj4oYXi15+RDFvW9th+Oi9RUxqzTsXt9ZUiYFLHzcW9Q +xnxVzxPqbWzoCVZ8GdSkjOO9TazAFjbUP/0Nsc+VsTy0I/NyE/U/GF1Gv9at +jOpGbSorGtigO7Ts/a9hZbS3rSbaq9gQyn6xLU9UBQ/zSs6+LWDDsKOb5yc/ +FZQm2xPtwtnwKc3HfR+fKrY+lvnYLMAG2/GDtp8N1HC4mDfPmlEJozuX7r8d +uwo7Vwh+EDxSTq1HJLmTG1Yj56F1hHjoTRBpU02vHFfHtkGpa3OhN0AupcLJ +wEAT9Sa6DP4wr0GOBmOlaKAW6n4TE72uWQotMmbrps5o4wWeW1/v6RYDU64h +Q6dbB20mVZNpMkUgxFMUsSNBF/k+M0/6mBSCfDzdZKvqGuwvNk+PKLkE/Cpe +VS5Na/Bz9sWoGOULoM2Srji4TQ9TZU4xRmnnYN+ASKMd11rUWRa9ZrNcFoxP +pbnZ5qxF4cO7wpozMsBa52murZY+7vXqmeEvTIOHU8Z/frbr4+3aGK/lFikQ +qqnX98p/HXZMD0XnXT8OrDG/zq38BhjwhSjdahoPlspSG5YXGWDDyPpLByZj +YFXcyagGQ0MUpn5P55lRoO7PqFPpM8T8OJ87Pb37wf/hruO39xrhh0WL+5g7 +wmEsZPigZYQRNjDoGX6bwiGKFrynO9IIR85+XpVjGQ4nY8Jc5g4b4Rw74Iec +ejhUMiMJkyQjvNBi4G30NQz+Vh2735hrhAG1fQu9K8MgsyJ/uqPRCOWWKL0I +2BcCdYWdfpPiDPx7rS0pMDgIBh0UtkdKMdBGf5z11C0IuH6FbP0jw8Axae+0 +dRAE5s58G3kJBt6Zv/rMUiQIni5iGkqrM7BcVLZeo3o3PPct4DczZaDczqJI +XoHd0KccVJ4RwMDYH8d3VdwNhOlrCz917jLw7Z9jwR/QH764WxWeqGbgE5e2 +FT46/tCz+JTNx1rqeRq8NUdo/lDrI3PhXD0DO3MN7qj+8YMEqXXM+WcM1C4x +N9Or8oOVKUExLW8Z6PTkrOpZbT/QDOzi8udm4mRgx4Otq3bCTpUy/twNTIxU +Gk73Nd0B0U+8g1SdmKise13gtPYOyPAXaSVdmHhAylG/WX4H3C85lNa6mYkb +wiPDfRZ8QEzVZsX8DsoXua6qPfKBp6qfxXwimfjdKmGM39oH1FfRCdUCJrVe +dLVrvesNk+pZBuQEE7lUM4oSnTyh5zlaik5RbrcODjXyhPrQsU0RM9T9wp1H +dhOekE7a7jX4zcRXLft6cyY8QJ3JdbOGxxiVeO6rdZ3xAF/bEIVGCWNkrOfT +fPBmK3QGWi/rNDFG1DD9OBe+Be4V//kwk2KMNe5HKwu73cDAIuKnXSp1/M2f +NGh0gzsfRpcVnqK8WbJttMINSPkBQ7tMY5R8v6L5wAk3uJlTfyr/ojGWMLyk +WCw3KExLZFiXG2Oy4b2QnKuucCJixZmc18ZorHoOWMmbwGO9EhrLm6D+Q/O8 +1eHOMN+5VKiRMMFz88Ovp7ydodB/rN9OyQSjhj7pt21whi9J1Qc9Vpmgdl+Y +zS0NZ9j3zLHikJ4JBq6vOqTwzQlOboyRv2dlgp4le41e7nSCmi1df/XDTNA/ +y1BmunUjyIYkV2vXm6DRGDvCTdUe0hcC1qU2mOD0o7btN5bZA3emFfvrYxNc +aGqXFp+yg+Eq3uuFz0ywhdNao1FvBzVcx3NEXpsgf2X1tKenHXhkxx2c/WyC +HSJrkmrO2kJO7aF1DwVZ+ExqaIhHxgbEBYLZGzazqPH2jU3YZgnFFkeiJ7ay +8NfGgCvBVpagdyTdIsuLhfp7aC4hOpawcaKyq2cHCy2GNXjIRZaQ1D3za2cw +C7fH2hRYXV0Pc0Wx5tHxLGy6VWaZNmsBfcZZr0vLWPiNe7P00hJz2HWg+JJt +OQu1lRKjCzLMYbb8jv9oJQvvJw7J2MeYg4hiz881VSyUal70emCTOdgvpck9 +qGehSIaP0SyPOdzvLPV73cXClHn5+12BZmAndE8rsoeFfMn3Jq65mkGP9bNZ +qX4W7sjydT5tZgbTNSMp3oMsXOLetOmsrBloXda99X2YhQ1vTpw4/hLhfp9Z +ZNoPFv57zm8//gDBTmwT6Eyw8AEznRNchhCQfOBVxAwLs+8sGBYkIUzXJ+VK +zrGw9YXhWtcIhITf53fW/GZh716BbFlfhJX61zW3zVPve5hpN+OIkB9SM7Ow +wMJr8ecsP7AQ/gfMom9D + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07467791529793061}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.07467791529793061}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJwV13c8Vf8fB3CRhFL2vO6xy07CvVzvN7KVESokyShZlSQpo4wiCZWUkdBQ +uOeWQkVURFRCRknayPgaacjv/P46j+fj7PP5vF/v81HwDXPx5+bi4lqziIvr +/9vZgWePlVOLTR0Xz0f7jVmYduZLHTLrSQA9znt2pI0ioPgLX6meTPikmJfk +YKMHkU433vD0FIG65W5vHRtzEB6TzPz1hgQ1K6c4LhsXeH9/Y9j0mwZYFOo2 +GmjtC1bKw+8m33TA8GUtE0nLffDrjeHZiTdD4CesRBs0ToBGi6vFr4qmoGa8 +VbCoKxPk3ld/8dWcB8/GibOHL1wEseDtN/gsePC/24FR/kOXIXONVe1Gt6U4 +lX2N6cFdCr05uvWTK5fjk3Nn/jw/dh1Si2NfcEsLY05eQtODoZtgp79bRFxJ +GAO7vQP4xm/C0scubmpawkhvaNtv++cmHP+o0m9vJoxOWYxXVaK3IEbx+Zfs +3cJ49Gifu8H6WxBaKPVPtUYYv1zIu/T0yi1wvsTWtPcUQenV95m0beUgmf3x +RFaeKPLOfp40uFcBUhp3js+ViuIu/4SqvkcVINOQFLutUhT9lQ/EHGytAPmJ +1QfUGkWxb9dlvksDFaDiEO5T+00UiU1wxIa7EtYunjf4uFYMR7p+38hWqwTH +CIlPei1iqN50yCIprBKcBL8NnH8thvcf39L6ur8SXIqqe/++FcNIOYGU9VGV +4P7S68XTcTGU6opLnY6rhG2aV2o8xMVx4GjGo9WZlbDnk86ZBB9xzJ+7ffob +pxKSXW1NO2bFUVnsnOKd6UqQud0uw71IAg86nheYm6uEclHXn2sEJdDdf+a2 +wXwldHd4V56hS+DRf76OV3nZoOwcoehsI4EPDl8+4ybBhoYNBUteXpDA3/0O +S74YsGHeaqa9zUQS6bZ+g50RbMgojS6bt5LEIoP25NNR1PlLuFK0nCXxy83q +75YxbHB4ImB2yl8Sn2ideltyjA25FgTHIV0SJbjbo/Uy2WCE9udb30tiy4mT +x4+Ws2E/4/L2ZwlSqCWTGfPhIxvsCoWm7dOk8OJMr9y7L2xQ5ItJaT8rhU5q +Jjxd39nwstOd/fqaFB7gyiiqHmeDdvgynoF2ar9brJb7HzZ8Kz1Y+p+MNLb6 +jaS8FSbBS2zjD1mONO4sXW5MNyFh7eHa+Pz70ihCS+q6YkqCwNAqCYWn0qgX +e7RG2YyE6goeUO2Vxq3H2v1krUiQsK/O0F2QRo6hg9lbRxJexivrW9rLIAfq +nG76krB+/Hd06EcZfLS3sT45kYRDNtnqj0Zl8GQZ421qMgnll7X6RGdlcIIt +EZ52ggQpVx9G9VJZVL8byH3sFAmj95785NGWRSce137LsyRkJWREXIiSRb93 +G9iKxSQ0969WHo2XRcLt59GxEhL+6je+Nk2VRVmmUGvVVRICvs7ofcqTxavq +GoMmZSQwHTwntRtlMezqKD+dJGFIXDX08XI5TDd3e2BcR4JkWB1NUlIOry8/ +XfKingSH5i1tuwk5VOG3F/VpIKEqOlVzxVo5fMC3Nj7yCQkn308Mb90ih7Z1 +3rcPtZKgd702cLxIDpXZW7/1dpMQyO0maX5TDncK6PgZ9JBwyXPsafYdORw+ +WBRyupeEJUIKqsxmOQx7cUrD8C0JffuSPh3/IYd8I12+2z6QEG/ivEPGiIYW +lQEs3hESbLzz/zM0p+F/n4aLLEZJEIobOebmQMPgrXsXH/1BXb8xsTTDh4ZH +uXMffhkn4Z5dzciSEzSs0zFSSZkmITaY74hyFg1XvC6KK50hwSrdVcg8j4bs +7V4D9bMkdL4a0z3CpuGhqj9Xvs+RMLFFKXKql4ZCAZOhgvMk3I0O5xP+RMOz +9JdT/P9IOHrpQY72GA0H2vPjFy+QsGxwc+1ubnnsdzhQ+4OLA2qBaVyD6vIY +madTn7GYA94HZk4+PyyP5oTLa2lBDqicN5cbTpTHWCtNp17Ko/dO3+LLkMf2 +IJ1P2cs4EP139UvzYnksWrLHjUuIA2ePeYtXP5fHd47iB6+t5IBXSVlpd7c8 +7g1La7IR5oBi05zh9KA8Bmx+ZPCZcqVAlofOjDw261gdEBHlwPMzTQUlNDo+ +YWukm4pzIIsjtqZRjY4V6+bG6yh7dO1oGFxDx7cO/lEsCQ58k/r7SdaKjqoB +qxdpSXKggmkbyXCio96hZJ4CypFe5/g2e9CRhGzd5VIc4CnUVc8MpaPp0i6h +Acotj47UVkTRsfmkdANKcyDjY4tDWwId+eu1igsoy6v5hy09T8cI2tScswwH +PtuQXKqX6bhN5mFICeWbQQtnLMroeHtvmvgMZWb5hdtH6+jIPLWf+4QsB9a/ +aZ8fa6ajdLVjdzPljVyLrbd30JEng+PNK8eBLasZGS/66RgXH3vJlPJOl9Be ++EzHS73ZGRGUQw9fUawco6NlfZfxVcpRxT17iDk6XjFSKeimbHVYITaOl8An +OnFnNGgcaF1x/4qRAIEXfropOlN2KnZvnhAikG+oPXQ/5W6jydFrogSuXdNx +MJOyZ1uq8A4pAjv+WZuWUx7coWogTSPwqLF041PKAbP1Hq8UCBQv1+F7S3nk +pGfsCVUCV08dEByjHE6fvWKmQaBVzJuXfynPcDKaf+kQGHAatyyVp+aHjcYP +tj6B1lb5RSspc717IhzEILD91EClOOXEvT4GiqYEeqlMHJOkLLDkj0efOYGs +/AY5CcoZuWdjM60JnPKwihGmLK6jW2znQGBxevAVfsq5jS3N3M4EhpqoZf2j +7k/f4v+jxo3Axwa7HSYoF48uCO/3IPCNvOrLAcrq8bkGGtsJfL/Thd5CuUJ8 +nefHnQSmmn9kkpT1b7yIvbiLQNfH7UrnKdeYBhVvCiGw+6FgfxRleL34meA+ +Ag1en9mxmfLjwIIfjZEE7g/Zek+Psu1fhkjMYQJfNXoOClBuz+g00I8jUK47 +s+89NV6uKmGeo8cJlA/5dZVNubeaP674BIHfpVNt4yh7bywu9kon0HDd+np7 +yp+GTJ+JZRH4cEBhuRjlMcEIkcRLBOYzLbQuUvNpf6GQIesygVf4E7k9KM/p +X/ecKSFwPP8rW5wyj/dAsX8FgY8aRa8co+anVKWNoVUDgTaim0YY1PzOW//R +899TAl92DN56T9WDYu+RuKpWAqs23XRJoKzFzXmm2kWgtru09UOqnsxdaV58 +3whMH2bNraTqr+nb3bi6UQLt+K5+z6Pq0+GIS8nBSQJLEnKfqFHeXJo89vU3 +gZMPXc30xDgQPDcZ17xcAWvLy/wVRah62Rsg8UVEAa1+RY2epPJg6XBfGY+U +AgYL1b0bp/KjpL+x21RRAUPrtXgrVnBg4OFZzTsGCigJYuncy6n6MxRo6DBW +wKKlxOmN/8+jyqObJ1ABeTtv8Z6n8kqiKDBBw57aL/hlC02AA46JjJ7L2xXw +lI9s3cISqr7/3Qqp81PAxEXHsnQoj0Yq8rzbrYDHJtnfPHk5kLJLUFsqQgEH +W6Vlb/BwoN7+3bH0FOp6KrrNclR+6onE6xxmK2CKmnuyF5XHXKkzj3OqFPDt +OyVxt58ktPMEeVTVKqBQ2TjTjsrvPTMuiZNPFHBfeIirOpX3xT3K/YF9Cpj8 +6Mq3R1Q/kChoTnLlUcQ95+o+O34h4ZfGygEtN0Vkt9T0Tb4kYTZPJn6thyIe +LxSgJ78gYXqFijJjuyKu8hWwk24nYWyKEbR+tyIqvRP20Kf63VDtzlmPI4r4 +/qt2miXVD1vs7wqllCjigVbdk133SMjd4w1DM4pYlxSVW5VHwvl3u4a+/lbE +wuTp4pGLVGo67k/8saCIgZIiTbRcEtLXprTO8Sthlu7BLYfOkZDwh715hbwS +/kwb7V9+mnq/VN5wEysldD++pelWLAkmZTcLz51TQq39G7d2epPQT5QVWF5U +QqC7xHZ6kRB97nr+dIESGibZ2nV4UP0rvvSSy3UlpDV6dj51p/r1lsIcoftK +eDlFeiBrIwmrebMzkj4oYXi15+RDFvW9th+Oi9RUxqzTsXt9ZUiYFLHzcW9Q +xnxVzxPqbWzoCVZ8GdSkjOO9TazAFjbUP/0Nsc+VsTy0I/NyE/U/GF1Gv9at +jOpGbSorGtigO7Ts/a9hZbS3rSbaq9gQyn6xLU9UBQ/zSs6+LWDDsKOb5yc/ +FZQm2xPtwtnwKc3HfR+fKrY+lvnYLMAG2/GDtp8N1HC4mDfPmlEJozuX7r8d +uwo7Vwh+EDxSTq1HJLmTG1Yj56F1hHjoTRBpU02vHFfHtkGpa3OhN0AupcLJ +wEAT9Sa6DP4wr0GOBmOlaKAW6n4TE72uWQotMmbrps5o4wWeW1/v6RYDU64h +Q6dbB20mVZNpMkUgxFMUsSNBF/k+M0/6mBSCfDzdZKvqGuwvNk+PKLkE/Cpe +VS5Na/Bz9sWoGOULoM2Srji4TQ9TZU4xRmnnYN+ASKMd11rUWRa9ZrNcFoxP +pbnZ5qxF4cO7wpozMsBa52murZY+7vXqmeEvTIOHU8Z/frbr4+3aGK/lFikQ +qqnX98p/HXZMD0XnXT8OrDG/zq38BhjwhSjdahoPlspSG5YXGWDDyPpLByZj +YFXcyagGQ0MUpn5P55lRoO7PqFPpM8T8OJ87Pb37wf/hruO39xrhh0WL+5g7 +wmEsZPigZYQRNjDoGX6bwiGKFrynO9IIR85+XpVjGQ4nY8Jc5g4b4Rw74Iec +ejhUMiMJkyQjvNBi4G30NQz+Vh2735hrhAG1fQu9K8MgsyJ/uqPRCOWWKL0I +2BcCdYWdfpPiDPx7rS0pMDgIBh0UtkdKMdBGf5z11C0IuH6FbP0jw8Axae+0 +dRAE5s58G3kJBt6Zv/rMUiQIni5iGkqrM7BcVLZeo3o3PPct4DczZaDczqJI +XoHd0KccVJ4RwMDYH8d3VdwNhOlrCz917jLw7Z9jwR/QH764WxWeqGbgE5e2 +FT46/tCz+JTNx1rqeRq8NUdo/lDrI3PhXD0DO3MN7qj+8YMEqXXM+WcM1C4x +N9Or8oOVKUExLW8Z6PTkrOpZbT/QDOzi8udm4mRgx4Otq3bCTpUy/twNTIxU +Gk73Nd0B0U+8g1SdmKise13gtPYOyPAXaSVdmHhAylG/WX4H3C85lNa6mYkb +wiPDfRZ8QEzVZsX8DsoXua6qPfKBp6qfxXwimfjdKmGM39oH1FfRCdUCJrVe +dLVrvesNk+pZBuQEE7lUM4oSnTyh5zlaik5RbrcODjXyhPrQsU0RM9T9wp1H +dhOekE7a7jX4zcRXLft6cyY8QJ3JdbOGxxiVeO6rdZ3xAF/bEIVGCWNkrOfT +fPBmK3QGWi/rNDFG1DD9OBe+Be4V//kwk2KMNe5HKwu73cDAIuKnXSp1/M2f +NGh0gzsfRpcVnqK8WbJttMINSPkBQ7tMY5R8v6L5wAk3uJlTfyr/ojGWMLyk +WCw3KExLZFiXG2Oy4b2QnKuucCJixZmc18ZorHoOWMmbwGO9EhrLm6D+Q/O8 +1eHOMN+5VKiRMMFz88Ovp7ydodB/rN9OyQSjhj7pt21whi9J1Qc9Vpmgdl+Y +zS0NZ9j3zLHikJ4JBq6vOqTwzQlOboyRv2dlgp4le41e7nSCmi1df/XDTNA/ +y1BmunUjyIYkV2vXm6DRGDvCTdUe0hcC1qU2mOD0o7btN5bZA3emFfvrYxNc +aGqXFp+yg+Eq3uuFz0ywhdNao1FvBzVcx3NEXpsgf2X1tKenHXhkxx2c/WyC +HSJrkmrO2kJO7aF1DwVZ+ExqaIhHxgbEBYLZGzazqPH2jU3YZgnFFkeiJ7ay +8NfGgCvBVpagdyTdIsuLhfp7aC4hOpawcaKyq2cHCy2GNXjIRZaQ1D3za2cw +C7fH2hRYXV0Pc0Wx5tHxLGy6VWaZNmsBfcZZr0vLWPiNe7P00hJz2HWg+JJt +OQu1lRKjCzLMYbb8jv9oJQvvJw7J2MeYg4hiz881VSyUal70emCTOdgvpck9 +qGehSIaP0SyPOdzvLPV73cXClHn5+12BZmAndE8rsoeFfMn3Jq65mkGP9bNZ +qX4W7sjydT5tZgbTNSMp3oMsXOLetOmsrBloXda99X2YhQ1vTpw4/hLhfp9Z +ZNoPFv57zm8//gDBTmwT6Eyw8AEznRNchhCQfOBVxAwLs+8sGBYkIUzXJ+VK +zrGw9YXhWtcIhITf53fW/GZh716BbFlfhJX61zW3zVPve5hpN+OIkB9SM7Ow +wMJr8ecsP7AQ/gfMom9D + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07467791529793061}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, + 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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.061043}}, + "Frame" -> {{False, 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.061043}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.061043}}, + "Frame" -> {{False, 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.07467791529793061}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994042217319005*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"b6bb59e9-29eb-47d1-a679-ddf279e2f156"] +}, Open ]], Cell[CellGroupData[{ @@ -5643,7 +11884,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[{ @@ -5661,8 +11904,8 @@ Cell[BoxData[ SuperscriptBox[ RowBox[{"(", FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -5684,66 +11927,73 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[282]:=",ExpressionUUID->"f13d1bd8-d153-ae43-b041-68b993e77854"], + "In[143]:=",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.503712572377703`*^-145\\\", \ +RowBox[{\\\"692388265304082962155241704502629852543932276498796563\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"55\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3340756316369516704730972160000000000000000000000000000\\\"}]]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 143, 49, 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337269930374*^9, 3.994042217338472*^9}, CellLabel-> "During evaluation of \ -In[282]:=",ExpressionUUID->"318da404-8df4-c540-9269-2b249c7e148e"], +In[143]:=",ExpressionUUID->"98202430-90b1-4d25-9669-e424006746f7"], 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[\\\"9.740043085049563`*^-148\\\", \ +RowBox[{\\\"257637673519649270217965438245428568131597200085202201\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"59\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0954253210971658303947407360000000000000000000000000000\\\"}]]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 143, 50, 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337269930374*^9, 3.994042217341588*^9}, CellLabel-> "During evaluation of \ -In[282]:=",ExpressionUUID->"42939765-c33b-c147-a25b-bfa31c71a3cb"], +In[143]:=",ExpressionUUID->"8c34f80c-6799-41ad-ba97-5010af8aee6e"], 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[\\\"3.7891106329560845`*^-150\\\", \ +RowBox[{\\\"990359217009531794717859144615427415897859637127517261\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"62\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8149342975054520373833891840000000000000000000000000000\\\"}]]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 143, 51, 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337269930374*^9, 3.994042217344707*^9}, CellLabel-> "During evaluation of \ -In[282]:=",ExpressionUUID->"63b912c5-afab-654e-9609-c4b849e9abfe"], +In[143]:=",ExpressionUUID->"b15d2bdf-8428-4dad-b06e-e63bdcd77d1e"], 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, 143, 52, 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337269930374*^9, 3.9940422173473463`*^9}, CellLabel-> "During evaluation of \ -In[282]:=",ExpressionUUID->"2c8999d2-d9b5-ef4e-a59d-c314a02b2b2a"], +In[143]:=",ExpressionUUID->"1b26d5d5-7eb3-43e9-a7e1-dd39d41dfdcb"], -Cell[BoxData["9.332200719005147`"], "Output", - CellChangeTimes->{3.9913372766841774`*^9}, +Cell[BoxData["10.139682636536346`"], "Output", + CellChangeTimes->{3.9913372766841774`*^9, 3.994042242814876*^9}, CellLabel-> - "Out[282]=",ExpressionUUID->"52013fca-4692-bf47-a0cf-880d71f10fc1"] + "Out[143]=",ExpressionUUID->"f6b2b954-d7b3-406e-aa9f-c9197169156a"] }, Open ]], Cell[CellGroupData[{ @@ -5810,68 +12060,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[144]:=",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[\\\"3.1118260441034897`*^-206\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 144, 53, + 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372767181473`*^9, 3.994042242835884*^9}, CellLabel-> "During evaluation of \ -In[283]:=",ExpressionUUID->"285f997a-25b4-f647-9523-e0dd05446bae"], +In[144]:=",ExpressionUUID->"26842253-b400-416d-8e68-9c38de5300a4"], 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.173483987048305`*^-211\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 144, 54, + 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372767181473`*^9, 3.99404224283919*^9}, CellLabel-> "During evaluation of \ -In[283]:=",ExpressionUUID->"b1d2a50d-b27b-ca46-afcb-af9e8d59323e"], +In[144]:=",ExpressionUUID->"befc47a1-9032-4411-962c-37778fca8b78"], 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[\\\"8.601038806446574`*^-216\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 144, 55, + 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372767181473`*^9, 3.994042242842309*^9}, CellLabel-> "During evaluation of \ -In[283]:=",ExpressionUUID->"a36c085c-b95e-724c-a04e-30924ab7ac52"], +In[144]:=",ExpressionUUID->"8af6afb7-bf96-4aac-ab28-f1e9e9aa71e5"], 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, 144, 56, 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372767181473`*^9, 3.9940422428450403`*^9}, CellLabel-> "During evaluation of \ -In[283]:=",ExpressionUUID->"976edb68-80f3-5a4d-a255-2f217ec84bfa"], +In[144]:=",ExpressionUUID->"eac07b1e-e974-47ca-9b64-e866c4ff7081"], -Cell[BoxData["0.5406905105605413`"], "Output", - CellChangeTimes->{3.991337284091696*^9}, +Cell[BoxData["0.28471561434338877`"], "Output", + CellChangeTimes->{3.991337284091696*^9, 3.994042246122507*^9}, CellLabel-> - "Out[283]=",ExpressionUUID->"b7107287-e519-1249-9ef0-b745347bdb78"] + "Out[144]=",ExpressionUUID->"86033fa1-d22f-4aab-949e-2cbe2d25f6ce"] }, Open ]], Cell[CellGroupData[{ @@ -5892,8 +12146,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 +12191,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[145]:=",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[\\\"3.1118260441034897`*^-206\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 145, 57, + 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337284131695*^9, 3.9940422461435127`*^9}, CellLabel-> "During evaluation of \ -In[284]:=",ExpressionUUID->"2877ed71-3ee8-8044-94b0-c606083c07b7"], +In[145]:=",ExpressionUUID->"409f4a9b-1438-43d8-b138-e72c47bfaf82"], 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.173483987048305`*^-211\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 145, 58, + 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337284131695*^9, 3.994042246146553*^9}, CellLabel-> "During evaluation of \ -In[284]:=",ExpressionUUID->"34cfc5a5-16b6-f24f-acdf-b4e2d29b1bef"], +In[145]:=",ExpressionUUID->"b8d3d56c-7b84-4319-bdbf-dd183bb15067"], 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[\\\"8.601038806446574`*^-216\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 145, 59, + 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337284131695*^9, 3.994042246149398*^9}, CellLabel-> "During evaluation of \ -In[284]:=",ExpressionUUID->"7fe7bdbe-3892-5043-b38d-13721c83d41a"], +In[145]:=",ExpressionUUID->"c85a4705-1433-4e91-a047-17951b098ae2"], 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, 145, 60, 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337284131695*^9, 3.994042246152296*^9}, CellLabel-> "During evaluation of \ -In[284]:=",ExpressionUUID->"93dfb0cd-55fb-1b4a-b671-37d180b9d444"], +In[145]:=",ExpressionUUID->"462ee7f4-4be4-497b-b06e-b546003eda99"], -Cell[BoxData["2.9943030245183917`"], "Output", - CellChangeTimes->{3.9913372907074146`*^9}, +Cell[BoxData["28.312914144044566`"], "Output", + CellChangeTimes->{3.9913372907074146`*^9, 3.994042249376224*^9}, CellLabel-> - "Out[284]=",ExpressionUUID->"372279b5-5e4a-b545-a159-384b26aa5ab4"] + "Out[145]=",ExpressionUUID->"5facddf3-ed31-497f-8a32-d2191a4a9318"] }, Open ]], Cell[CellGroupData[{ @@ -6020,8 +12277,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 +12322,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[146]:=",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[\\\"3.1118260441034897`*^-206\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 146, 61, + 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337290744484*^9, 3.99404224939928*^9}, CellLabel-> "During evaluation of \ -In[285]:=",ExpressionUUID->"c14c35e1-e487-c742-a0da-128fdb9754d4"], +In[146]:=",ExpressionUUID->"96ba59c5-1174-4c72-a011-ac8a9df03f26"], 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.173483987048305`*^-211\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 146, 62, + 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337290744484*^9, 3.994042249402555*^9}, CellLabel-> "During evaluation of \ -In[285]:=",ExpressionUUID->"4396ed61-4d7e-6144-80f0-6d5649cfcb04"], +In[146]:=",ExpressionUUID->"8bee543c-c89f-4889-94cf-c5ab2834ed91"], 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[\\\"8.601038806446574`*^-216\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 146, 63, + 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337290744484*^9, 3.994042249406159*^9}, CellLabel-> "During evaluation of \ -In[285]:=",ExpressionUUID->"00fa2dcd-bc0b-9e44-9f00-15116f344aca"], +In[146]:=",ExpressionUUID->"ea9cc888-d061-4181-873f-86c6733d6871"], 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, 146, 64, 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337290744484*^9, 3.9940422494089622`*^9}, CellLabel-> "During evaluation of \ -In[285]:=",ExpressionUUID->"78b12bf1-7793-9341-ad5f-c7be406b8be6"], +In[146]:=",ExpressionUUID->"657293cb-77a2-4e11-b261-cb97c968e7d4"], -Cell[BoxData["16.72305770548981`"], "Output", - CellChangeTimes->{3.991337294569908*^9}, +Cell[BoxData["3.336166489520548`"], "Output", + CellChangeTimes->{3.991337294569908*^9, 3.994042251445693*^9}, CellLabel-> - "Out[285]=",ExpressionUUID->"9454fa52-ff74-094b-8081-2fc86cf96043"] + "Out[146]=",ExpressionUUID->"1f777732-badd-4d43-8f9e-ad5250c128d4"] }, Open ]], Cell[CellGroupData[{ @@ -6136,22 +12396,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[147]:=",ExpressionUUID->"f9c66987-c237-7a40-a006-e20e260dbdcb"], + +Cell[BoxData["0.02929511056608378`"], "Output", + CellChangeTimes->{3.9913372946009064`*^9, 3.9940422514645643`*^9}, + CellLabel-> + "Out[147]=",ExpressionUUID->"45f08d07-2d5f-40bd-aace-45d793a93df6"] }, 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[148]:=",ExpressionUUID->"770a9ed7-7938-9e48-be64-c31719ef3a6b"], Cell[CellGroupData[{ @@ -6174,12 +12435,12 @@ Cell[BoxData[ RowBox[{"Ir", "*", "Il"}], RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", CellLabel-> - "In[288]:=",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], + "In[149]:=",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], -Cell[BoxData["7.13574266196526`"], "Output", - CellChangeTimes->{3.991337294629921*^9}, +Cell[BoxData["12.42259191999324`"], "Output", + CellChangeTimes->{3.991337294629921*^9, 3.994042251473711*^9}, CellLabel-> - "Out[288]=",ExpressionUUID->"e757c22c-d836-6c4a-a9f7-93553c4bb232"] + "Out[149]=",ExpressionUUID->"4bade9b3-f954-43ac-8786-34ab97252e84"] }, Open ]], Cell[CellGroupData[{ @@ -6189,12 +12450,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb1"]]}]], "Input", CellLabel-> - "In[290]:=",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], + "In[150]:=",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], -Cell[BoxData["1.4042291233212119`"], "Output", - CellChangeTimes->{3.9913372946629753`*^9}, +Cell[BoxData["1.854910589580087`"], "Output", + CellChangeTimes->{3.9913372946629753`*^9, 3.994042251478682*^9}, CellLabel-> - "Out[290]=",ExpressionUUID->"7f3ee547-87eb-d74d-8f21-a8d42f1dde52"] + "Out[150]=",ExpressionUUID->"e29734aa-df05-4f2d-a722-09eb37a269b8"] }, Open ]], Cell[CellGroupData[{ @@ -6204,12 +12465,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[293]:=",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], + "In[151]:=",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], -Cell[BoxData["10.020217662457247`"], "Output", - CellChangeTimes->{3.9913372947367725`*^9}, +Cell[BoxData["23.042797302427484`"], "Output", + CellChangeTimes->{3.9913372947367725`*^9, 3.994042251482604*^9}, CellLabel-> - "Out[293]=",ExpressionUUID->"0603b6e6-a8b7-1e45-9b15-2769b7fbc373"] + "Out[151]=",ExpressionUUID->"1629d65b-c6da-4884-9f70-9a46acec6b63"] }, Open ]], Cell[CellGroupData[{ @@ -6399,12 +12660,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[294]:=",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], + "In[152]:=",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], -Cell[BoxData["0.06674599726273667`"], "Output", - CellChangeTimes->{3.9913372947513313`*^9}, +Cell[BoxData["0.007150413721208316`"], "Output", + CellChangeTimes->{3.9913372947513313`*^9, 3.994042251487722*^9}, CellLabel-> - "Out[294]=",ExpressionUUID->"8b7a346f-cdda-e24e-b924-d6cfb1b3119a"] + "Out[152]=",ExpressionUUID->"5f61f2f9-2e91-440b-8526-4311109f8ca2"] }, Open ]], Cell[CellGroupData[{ @@ -6418,12 +12679,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[295]:=",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], + "In[153]:=",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], -Cell[BoxData["3.430301770911147`"], "Output", - CellChangeTimes->{3.9913372948636913`*^9}, +Cell[BoxData["10.480436122682834`"], "Output", + CellChangeTimes->{3.9913372948636913`*^9, 3.994042251539769*^9}, CellLabel-> - "Out[295]=",ExpressionUUID->"3354b35a-acef-b846-b770-8d2e77b8f68b"] + "Out[153]=",ExpressionUUID->"93774835-0541-43ec-b2c0-b0fe4811e001"] }, Open ]], Cell[CellGroupData[{ @@ -6615,12 +12876,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[296]:=",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], + "In[154]:=",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], -Cell[BoxData["0.01266539131451536`"], "Output", - CellChangeTimes->{3.991337294877693*^9}, +Cell[BoxData["0.0426155924494344`"], "Output", + CellChangeTimes->{3.991337294877693*^9, 3.994042251545752*^9}, CellLabel-> - "Out[296]=",ExpressionUUID->"7b76721b-3d4c-c544-9113-83ba4f36ae7f"] + "Out[154]=",ExpressionUUID->"6b27c638-8d2c-4dbb-ae74-6cba6ac9a6fb"] }, Open ]], Cell[CellGroupData[{ @@ -6634,12 +12895,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[297]:=",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], + "In[155]:=",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], -Cell[BoxData["7.874729317258519`"], "Output", - CellChangeTimes->{3.991337294976324*^9}, +Cell[BoxData["4.292997894242496`"], "Output", + CellChangeTimes->{3.991337294976324*^9, 3.994042251596538*^9}, CellLabel-> - "Out[297]=",ExpressionUUID->"e9346704-c478-364d-b5eb-0aabe0e2e350"] + "Out[155]=",ExpressionUUID->"a592b516-9a4c-4986-9ef0-57ef924b6430"] }, Open ]], Cell[CellGroupData[{ @@ -6732,12 +12993,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[298]:=",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], + "In[156]:=",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], -Cell[BoxData["0.7884625602161153`"], "Output", - CellChangeTimes->{3.9913372950022793`*^9}, +Cell[BoxData["0.05674825314301471`"], "Output", + CellChangeTimes->{3.9913372950022793`*^9, 3.994042251601437*^9}, CellLabel-> - "Out[298]=",ExpressionUUID->"33b7f444-6995-e54b-a2a6-ad09016b1850"] + "Out[156]=",ExpressionUUID->"2f8d5383-29e0-4655-ad45-8018a94f420b"] }, Open ]], Cell[CellGroupData[{ @@ -6827,12 +13088,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[299]:=",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], + "In[157]:=",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], -Cell[BoxData["0.21153743978388478`"], "Output", - CellChangeTimes->{3.991337295013279*^9}, +Cell[BoxData["0.9432517468569853`"], "Output", + CellChangeTimes->{3.991337295013279*^9, 3.994042251605639*^9}, CellLabel-> - "Out[299]=",ExpressionUUID->"76ba8e46-11c7-f54d-bfb2-cca1b455c838"] + "Out[157]=",ExpressionUUID->"dc477b03-e1a6-460a-8e12-791a26ab70a6"] }, Open ]], Cell[CellGroupData[{ @@ -6955,12 +13216,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[300]:=",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], + "In[158]:=",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], -Cell[BoxData["0.16678935135356415`"], "Output", - CellChangeTimes->{3.991337295041279*^9}, +Cell[BoxData["0.05352788890823103`"], "Output", + CellChangeTimes->{3.991337295041279*^9, 3.994042251610011*^9}, CellLabel-> - "Out[300]=",ExpressionUUID->"f7c29774-2634-5546-ab63-4d3ac6889f79"] + "Out[158]=",ExpressionUUID->"0bb29857-826b-46af-a866-a2272c7108fa"] }, Open ]], Cell[CellGroupData[{ @@ -6975,7 +13236,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 +13260,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -7022,68 +13284,73 @@ 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[159]:=",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[\\\"4.9249085368186935`*^-201\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 159, 65, + 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372950662746`*^9, 3.994042251616437*^9}, CellLabel-> "During evaluation of \ -In[301]:=",ExpressionUUID->"3d5a1265-fb27-0b41-a549-5e326650d270"], +In[159]:=",ExpressionUUID->"c824a871-c3c1-433f-b3b2-cbb14a086024"], 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[\\\"1.380233846943059`*^-205\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 159, 66, + 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372950662746`*^9, 3.99404225161937*^9}, CellLabel-> "During evaluation of \ -In[301]:=",ExpressionUUID->"0726d23e-32d7-7a41-8d7f-0b62fec75437"], +In[159]:=",ExpressionUUID->"b825f0a1-abf3-4359-acc7-714f68eed808"], 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[\\\"3.8681844708487185`*^-210\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034477221223196355\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"7\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8934564270838098005054611040868761600000000000000000000\\\"}]]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 159, 67, 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372950662746`*^9, 3.99404225162223*^9}, CellLabel-> "During evaluation of \ -In[301]:=",ExpressionUUID->"b47482ef-bec0-234f-aeb7-9009a378a36d"], +In[159]:=",ExpressionUUID->"9a082017-8f2a-4808-979b-34e8c25e0923"], 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, 159, 68, 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372950662746`*^9, 3.994042251624888*^9}, CellLabel-> "During evaluation of \ -In[301]:=",ExpressionUUID->"e5e35e3a-0e40-c249-b6f3-c2a6a5a48740"], +In[159]:=",ExpressionUUID->"c49c3c74-422f-4d7f-a1d0-e08badc1c02f"], -Cell[BoxData["3.430301770911144`"], "Output", - CellChangeTimes->{3.991337298790371*^9}, +Cell[BoxData["10.480436122682832`"], "Output", + CellChangeTimes->{3.991337298790371*^9, 3.994042253407673*^9}, CellLabel-> - "Out[301]=",ExpressionUUID->"b33776d0-2a41-694b-9af8-c4d483383e7c"] + "Out[159]=",ExpressionUUID->"4e160507-a56a-457e-ad3b-1d3bad8aed77"] }, Open ]], Cell[CellGroupData[{ @@ -7098,7 +13365,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 +13389,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -7145,68 +13413,73 @@ 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[160]:=",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[\\\"4.9249085368186935`*^-201\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 160, 69, + 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372988243732`*^9, 3.994042253436069*^9}, CellLabel-> "During evaluation of \ -In[302]:=",ExpressionUUID->"ffb6a3c0-c488-cd48-870e-d66051362026"], +In[160]:=",ExpressionUUID->"7a635e8f-4986-41a8-b8d4-42dbe4522d0d"], 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[\\\"1.380233846943059`*^-205\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 160, 70, + 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372988243732`*^9, 3.9940422534395523`*^9}, CellLabel-> "During evaluation of \ -In[302]:=",ExpressionUUID->"ca3fb11a-47f9-c542-a5c9-6e0087e110b9"], +In[160]:=",ExpressionUUID->"2ba41f3b-caad-4a5d-b07b-7711943ba508"], 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[\\\"3.8681844708487185`*^-210\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034477221223196355\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"7\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8934564270838098005054611040868761600000000000000000000\\\"}]]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 160, 71, 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372988243732`*^9, 3.994042253442615*^9}, CellLabel-> "During evaluation of \ -In[302]:=",ExpressionUUID->"7e4a0639-38a1-f74e-ab8e-5264cad2d48c"], +In[160]:=",ExpressionUUID->"57270768-5d62-4613-93ed-0eac866c8bed"], 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, 160, 72, 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372988243732`*^9, 3.994042253445251*^9}, CellLabel-> "During evaluation of \ -In[302]:=",ExpressionUUID->"101eaea3-75b1-d942-9914-a0fe8a6e2f65"], +In[160]:=",ExpressionUUID->"3a1745b7-a4a7-4fcc-9a51-faa34e8a5c37"], -Cell[BoxData["7.87472931725852`"], "Output", - CellChangeTimes->{3.991337302457178*^9}, +Cell[BoxData["4.292997894242499`"], "Output", + CellChangeTimes->{3.991337302457178*^9, 3.99404225521966*^9}, CellLabel-> - "Out[302]=",ExpressionUUID->"921a9c76-dcb9-484a-bc19-88ddead9467a"] + "Out[160]=",ExpressionUUID->"13229dc2-a615-404a-b04c-2690f9a83704"] }, Open ]], Cell[CellGroupData[{ @@ -7264,94 +13537,92 @@ 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[161]:=",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:eJwV1Hc8V98bAHBZZZU9f/YW0ueDzM5jla1EtsTnXlJk5ausllRaaKiIkCQl +EUJbUpRKqTSsa/Qxsl0tv9Mf93Vf79fzus95nvucc5SDd7oTnBwcHH34+feO +fqWvWfv61VqmstVPriUUWjtebBRsW47qNFcYcGP35BufVrNtREuzd7355w2s +l7yCzKeoeVvcNx7syoTUJzy2bWimRsBrKfaRZumHqWVvkPBRc3M+7Luvoy/9 +ZrxHC3NcGQLY7K4XSbsbPqJBCWLdcmzZAVW/OZsvqJBrS4QIttOPJNPYtm5k +2Du5KI59/zdbIKGsFzHfyf+Vxu7cJ5VYE9mP0nn7Q+Wxx3lt2TOMAXSoxMpS +BZv3WJQPc34QcQ+ZpmhiK4jktUQ3DCPZxVYdPWxXubmScZtRJHbtfrMpNlmg +Iqm3bBwFPVCsAexUdbe07W0/kGGNnIg99kepd6vjyiZRZ8oAnzc2yzd8W/ax +KRRFV10Nwp7I5bh8O3IaCRcqVG7DXqaiJzzJmEXhPC94k7FPs56sF5aYQ4yj +ApvSsZWu+qSump9D2u/Z/FnYJrqHxiMaaKRx8OC9Uuww4+42ts1vFFK+Wv8z +9kzCLm5+jT/I6Vrkh2HsvQ0CFtrL/qLAHS6jc9g5YHI9tG0RrTg/5S3Oieu7 +0mIbU7YEEl6NWnpglzVn9+yT4wQrJQdbAntiKDAp8xgnFLk718RjJ+nMVt2K +5IIQM8evF7BPVyir/mDwwH6m6Zph7K7Xo/f/FvFA4pHeC7+xlaZqfZdL8ELz +jHG4CBeFyg1ds/TmeSF496iTBXbT3T1LdjQsg02GF+XOYc8+6egethEE/qqv +o0HcFBJ1FhROvC8ILn9veadgG7yzBSFTIfC3ULPJxQ6n7hSs1l8OJr4T2Z+w +ozjbDCwFhSF32l7dl4dCAyo3J9PmRCDLJnBZLC/+P+QLvnamKASNsgNzsDmv +DypLR4vCx8jVhvexlZiK7mUjoiDgNu0rsJRCvjanbr/qEQPb2ZTz17HbQ2Ji +pVolQCU94gsXH4W+XT2REbRMEpSOpiquxh4dKSu6ZicJWkHbewOx+eP6O8wf +SgKf96feBmzbgx6GQXekIPGYy/tEfgrVFxvPlubLQE920WExQQoVD/yMN4uT +B0elUkbhCgrZe6Z/i70hD2uEs20/Y482ia27MSgPRX0BT8WFKWRYrCuh5KMA +Cm9yxY5gNwUHVvGsVYRDdtz98SIUmvrR89/wASWwky53CxWjkFiEbXWViwoU +dPfHXJSi0GAxf9iGcBVo12sj+rDrvryWGzukAi1a7Gfa0hTydw44oPFQBXSF +Oz7dxS5eGe9+nqEKmiI3DLtl8PrsqxMpUmogvdLw+dr/UcgjVEDPsVcdxMtX +HNyoTCEU78nw+qMOzT5764qxddLy17BkNODBZRNvGpujiGmdslEDqIDjnwpU +KHTjm5/X7UcaYLaoTs2p4vO5uXyfbKEmsNwl/lergeuzdelkB2tDHt/bVYd1 +KVS06dzn+RRtsPrxp2MY+0Rwbw/3RW1wc6D6HfTw/t67a0ShQxsetf5YJ6RP +IZHGPI5NNjoQxbdT9vwqvH+Y4zoNqivhz+iBn00MCsmpnEzNoHRB405GQ4Qp +hRqPzmgvcOpB8b2jpgPY/tM+70hlPZDwHjYOMKPQpSY1betAPZC++L7C1ZxC +KqH1b+kPelDDKXlxjSXut3xAnWzVByUNfX9lKwrJyymQSj4GoPGxt9LDgUK6 +V+IEfyEGPIoc4rXwo1Aw68CsnisDFCtitj/HzlHN+hbkz4DtHx3By59CXIUV +t5oTGBBzhjaLC8Dn7RLbI6uSAb5R3+OqtuD7NCcoT1uVCQN/VnKsZ+H5Zjjr +e/Mawpx4WN7jCApdjlHbcKfNCK4btjsI7afQ63i05uAVUwibfDOmWU0h5cD3 +rgE7LOFOxlKpvDEKEYs1N+V3A8SsbP1erzOApEbqlkoFWwPfYbWpwF0DKI5p +8SVLxxboO88zxJ4MoOCx3y1ibDu4dWzwxoTkILphHbs0v3098E7WxDbuGUTF +M+GPyk87QAmkbHbtGUS0lfTLplQnyPzS0f3eawh95eCa7N3qAmGjC/kTnUMo +8n87T+1TdYOW1vzirZuH0c1tLQ/PpG2AX0fSSvezh9GeaZn5lds2wshHrUaz +lO9o1nHd5mdb3CGkoHDioRYbmfplWg1s3AQ7vnEGfutio7cyeeFNTA94/GyJ +cfHRESRbcqCxVMsTFp4t8FRuGkV1PTrOrkKbYXVKdcpKmTGk8G4iNH5sM1zu +j0t61j+GmGcyy4t6vOC3G28v+Xwc5XFP62c98Ya/PDO1GaU/UI3Vqq60uz6Q +MpaY/XDjBMpZc1Tkd5kvRB2evGfwZgK1f75yiHnMDwTrz9rEOE2iOy65alF7 +/WHmw4V1Bh2TaDJiE0ckKwAcEyOk13tModl12mHjNoFATy3qhr6bQqVjn+hY +4y2wUCx0OCBoGnlfvhISIBgEgrK6vyb7plHVbactXOlBwBv+80HwzhlkKvd2 +4chCEOzfNRXrNzGDVHtCu95s2wqfX7SkFm2fRZTAdrfc/q3wwdLVKGl0Fr0+ +4Rqy3jMYhKFw3+fAOXQ6IV9g1+tgOHhGr5N6O4ca7y8uhDiEwPTeyXE383m0 +wh/SmfUhYObl2TqaNY9Mg8ZL0wxZIFpnc3ZoYB6VnJ+IdTVmQQezSJl7aB6J +d0ytlTJhgcRs9Kji8Dwat5t/V2rOgqdigciTPY/vF44lbdYsqJhO7qgZn0fL +50V8RDey4F7C3WTP+XlEHTfiy49ggcjidq3FpTQ60ZC0ra6EBZrVq5rmNGgU +wThnmlDKAnZZbuUXTRo5X6vkMyljwUxa44dHWjTiPzd4rfYGC6If2L88okOj +tJgN7JpqFtSX83oL69MoSVtt+53HLBA3M3o4b0ij8HOtO25/Y8G17bsP6lvT +yGH5oEVMDwvsaly0fmFrpXEIMfpYoN794G+zDY0GY4xuVA6wgGf4qbW/HY22 +uuaP3RplQXKnr0qyPY28eWIjK36y4Op/NtI5rjRaHysbVS5JQOiGxvLVvjR6 +nH/IMUuagJC91tHT2BZtU2oJsgQ80M+3rPajkYF66ycbBQKWiQqNMQJoJPMh +0eazOgHMfsXLakE0GjH7KslvRID7Z0nGJ4JGJzkL7oVuImCiYKYoLQr3v0ow +x8WTgJU+VVxa0TQ66JcQw/QiIKzegXiOnVC9QXPRlwDbNFc9vlhcP7kk82ww +Abm8f1uTdtGI+SKY9TSagOvxvxUM99DoQ6a6gOopAvqKdyzp20+jm0gobDiT +gL0nu/L8DuD8YzNNN7IJaL1wzfsdNsOhKcXkHAG9hrTWk4N4fhwhUy6XCHB8 +s3b12UM0Wrez4FNCOQHnK71bRI7SSF7+sPHamwQUK7VbJmPPvNiZzXWLgMUl +0+1D2IUayOVEFe4v7KtDfQaN/nz9+rConoA/6XszPY7TqNpZrvRVCwGdBi99 +A0/RKOMnJ8/pFwQ8t7x0sgE7uJS91aeNAIb6pW6pTBoJc9fLUe0EaBm+ff0S +e0eD98mFTgJO0OWz+tk0UtU5G682QMDjxRHj5jM0+vkhueP7IAGN/z0SlzhL +o9dphEHFMAElssmCIdgpvYZs01ECeDX8HX5jd+V0BLhNE8CvWz+nmkOjrKUi +dnuWkEAV3RK2v0CjxqmvfnFcJNR+S585iT30tSwmkoeEX9ZOdZ3YFtW2BcF8 +JJwbt+oOuoj3W1DCL0cRElK3VZaG5uL6ne1E7cRI2Lqq7EgJtvkaUW0kQYJ+ +ybgDhX1KqHwzU4aEAy+Fw/zzcLy+u1JOmYTj08+k0SUakVfKWyRUSbDs1J6K +wz51anf3CnUSopOcy65hD5JiQtzaJHgvPVOzIh/HxdaHjRqQcKrmmOUr7Pq/ +YqmDDBJ0550EfmEPfO8502NIwsKtzbUaBTQye7jnyTsTEkT9Zcv2YFM7birc +A7y+JseC+GUaLfdONKq1JiF82/1aE2xTG3vnSlsczwzz8MM+IdO3+4o9Cbut +vDTzsOu4K07lO+J+FtIDGrH7fyRePe9Mwh46KboL26RZ4v3xDSQojpxkiBXi +eVf2jaS7k/CzJbdbD/t4bgXnfg8SlB87ha/H7otxMIj3JkHsYrT0f9hCgZLr +o3xJKFHsMj+ObeLQHxDuT4IOX4tF4b/vFZMzAoNIuC8h96EFu47fsdA7mIQv +OXFRXf/yzUredWfh+YHFEPtfvt7+dmeShGrpCPOf//K13RpcF0aC+X7OiGVF +uL7a5D8QToL6GjpRAvt4oaO4+Q4Siu0dw5Sx645LrTSKJMFTcXa1LnZfAmW1 +KoqEsMTZj0bYgqxKb+0YEs7E2QesxV7jlrJTNY4EtT0j9+3+5TdzOiQfT0Kf ++5c/TtjH1KXzpBLwvORlZDdi1wgPVInsIWHKtUDME7v3V+ULgSQSKu5Esb3+ +5R9K6eVJISE5/sglH2zjt070YioJk0LsVb7Y/wcilKvd "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -7365,106 +13636,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:eJwV1Hc8V98bAHBZZZU9f/YW0ueDzM5jla1EtsTnXlJk5ausllRaaKiIkCQl +EUJbUpRKqTSsa/Qxsl0tv9Mf93Vf79fzus95nvucc5SDd7oTnBwcHH34+feO +fqWvWfv61VqmstVPriUUWjtebBRsW47qNFcYcGP35BufVrNtREuzd7355w2s +l7yCzKeoeVvcNx7syoTUJzy2bWimRsBrKfaRZumHqWVvkPBRc3M+7Luvoy/9 +ZrxHC3NcGQLY7K4XSbsbPqJBCWLdcmzZAVW/OZsvqJBrS4QIttOPJNPYtm5k +2Du5KI59/zdbIKGsFzHfyf+Vxu7cJ5VYE9mP0nn7Q+Wxx3lt2TOMAXSoxMpS +BZv3WJQPc34QcQ+ZpmhiK4jktUQ3DCPZxVYdPWxXubmScZtRJHbtfrMpNlmg +Iqm3bBwFPVCsAexUdbe07W0/kGGNnIg99kepd6vjyiZRZ8oAnzc2yzd8W/ax +KRRFV10Nwp7I5bh8O3IaCRcqVG7DXqaiJzzJmEXhPC94k7FPs56sF5aYQ4yj +ApvSsZWu+qSump9D2u/Z/FnYJrqHxiMaaKRx8OC9Uuww4+42ts1vFFK+Wv8z +9kzCLm5+jT/I6Vrkh2HsvQ0CFtrL/qLAHS6jc9g5YHI9tG0RrTg/5S3Oieu7 +0mIbU7YEEl6NWnpglzVn9+yT4wQrJQdbAntiKDAp8xgnFLk718RjJ+nMVt2K +5IIQM8evF7BPVyir/mDwwH6m6Zph7K7Xo/f/FvFA4pHeC7+xlaZqfZdL8ELz +jHG4CBeFyg1ds/TmeSF496iTBXbT3T1LdjQsg02GF+XOYc8+6egethEE/qqv +o0HcFBJ1FhROvC8ILn9veadgG7yzBSFTIfC3ULPJxQ6n7hSs1l8OJr4T2Z+w +ozjbDCwFhSF32l7dl4dCAyo3J9PmRCDLJnBZLC/+P+QLvnamKASNsgNzsDmv +DypLR4vCx8jVhvexlZiK7mUjoiDgNu0rsJRCvjanbr/qEQPb2ZTz17HbQ2Ji +pVolQCU94gsXH4W+XT2REbRMEpSOpiquxh4dKSu6ZicJWkHbewOx+eP6O8wf +SgKf96feBmzbgx6GQXekIPGYy/tEfgrVFxvPlubLQE920WExQQoVD/yMN4uT +B0elUkbhCgrZe6Z/i70hD2uEs20/Y482ia27MSgPRX0BT8WFKWRYrCuh5KMA +Cm9yxY5gNwUHVvGsVYRDdtz98SIUmvrR89/wASWwky53CxWjkFiEbXWViwoU +dPfHXJSi0GAxf9iGcBVo12sj+rDrvryWGzukAi1a7Gfa0hTydw44oPFQBXSF +Oz7dxS5eGe9+nqEKmiI3DLtl8PrsqxMpUmogvdLw+dr/UcgjVEDPsVcdxMtX +HNyoTCEU78nw+qMOzT5764qxddLy17BkNODBZRNvGpujiGmdslEDqIDjnwpU +KHTjm5/X7UcaYLaoTs2p4vO5uXyfbKEmsNwl/lergeuzdelkB2tDHt/bVYd1 +KVS06dzn+RRtsPrxp2MY+0Rwbw/3RW1wc6D6HfTw/t67a0ShQxsetf5YJ6RP +IZHGPI5NNjoQxbdT9vwqvH+Y4zoNqivhz+iBn00MCsmpnEzNoHRB405GQ4Qp +hRqPzmgvcOpB8b2jpgPY/tM+70hlPZDwHjYOMKPQpSY1betAPZC++L7C1ZxC +KqH1b+kPelDDKXlxjSXut3xAnWzVByUNfX9lKwrJyymQSj4GoPGxt9LDgUK6 +V+IEfyEGPIoc4rXwo1Aw68CsnisDFCtitj/HzlHN+hbkz4DtHx3By59CXIUV +t5oTGBBzhjaLC8Dn7RLbI6uSAb5R3+OqtuD7NCcoT1uVCQN/VnKsZ+H5Zjjr +e/Mawpx4WN7jCApdjlHbcKfNCK4btjsI7afQ63i05uAVUwibfDOmWU0h5cD3 +rgE7LOFOxlKpvDEKEYs1N+V3A8SsbP1erzOApEbqlkoFWwPfYbWpwF0DKI5p +8SVLxxboO88zxJ4MoOCx3y1ibDu4dWzwxoTkILphHbs0v3098E7WxDbuGUTF +M+GPyk87QAmkbHbtGUS0lfTLplQnyPzS0f3eawh95eCa7N3qAmGjC/kTnUMo +8n87T+1TdYOW1vzirZuH0c1tLQ/PpG2AX0fSSvezh9GeaZn5lds2wshHrUaz +lO9o1nHd5mdb3CGkoHDioRYbmfplWg1s3AQ7vnEGfutio7cyeeFNTA94/GyJ +cfHRESRbcqCxVMsTFp4t8FRuGkV1PTrOrkKbYXVKdcpKmTGk8G4iNH5sM1zu +j0t61j+GmGcyy4t6vOC3G28v+Xwc5XFP62c98Ya/PDO1GaU/UI3Vqq60uz6Q +MpaY/XDjBMpZc1Tkd5kvRB2evGfwZgK1f75yiHnMDwTrz9rEOE2iOy65alF7 +/WHmw4V1Bh2TaDJiE0ckKwAcEyOk13tModl12mHjNoFATy3qhr6bQqVjn+hY +4y2wUCx0OCBoGnlfvhISIBgEgrK6vyb7plHVbactXOlBwBv+80HwzhlkKvd2 +4chCEOzfNRXrNzGDVHtCu95s2wqfX7SkFm2fRZTAdrfc/q3wwdLVKGl0Fr0+ +4Rqy3jMYhKFw3+fAOXQ6IV9g1+tgOHhGr5N6O4ca7y8uhDiEwPTeyXE383m0 +wh/SmfUhYObl2TqaNY9Mg8ZL0wxZIFpnc3ZoYB6VnJ+IdTVmQQezSJl7aB6J +d0ytlTJhgcRs9Kji8Dwat5t/V2rOgqdigciTPY/vF44lbdYsqJhO7qgZn0fL +50V8RDey4F7C3WTP+XlEHTfiy49ggcjidq3FpTQ60ZC0ra6EBZrVq5rmNGgU +wThnmlDKAnZZbuUXTRo5X6vkMyljwUxa44dHWjTiPzd4rfYGC6If2L88okOj +tJgN7JpqFtSX83oL69MoSVtt+53HLBA3M3o4b0ij8HOtO25/Y8G17bsP6lvT +yGH5oEVMDwvsaly0fmFrpXEIMfpYoN794G+zDY0GY4xuVA6wgGf4qbW/HY22 +uuaP3RplQXKnr0qyPY28eWIjK36y4Op/NtI5rjRaHysbVS5JQOiGxvLVvjR6 +nH/IMUuagJC91tHT2BZtU2oJsgQ80M+3rPajkYF66ycbBQKWiQqNMQJoJPMh +0eazOgHMfsXLakE0GjH7KslvRID7Z0nGJ4JGJzkL7oVuImCiYKYoLQr3v0ow +x8WTgJU+VVxa0TQ66JcQw/QiIKzegXiOnVC9QXPRlwDbNFc9vlhcP7kk82ww +Abm8f1uTdtGI+SKY9TSagOvxvxUM99DoQ6a6gOopAvqKdyzp20+jm0gobDiT +gL0nu/L8DuD8YzNNN7IJaL1wzfsdNsOhKcXkHAG9hrTWk4N4fhwhUy6XCHB8 +s3b12UM0Wrez4FNCOQHnK71bRI7SSF7+sPHamwQUK7VbJmPPvNiZzXWLgMUl +0+1D2IUayOVEFe4v7KtDfQaN/nz9+rConoA/6XszPY7TqNpZrvRVCwGdBi99 +A0/RKOMnJ8/pFwQ8t7x0sgE7uJS91aeNAIb6pW6pTBoJc9fLUe0EaBm+ff0S +e0eD98mFTgJO0OWz+tk0UtU5G682QMDjxRHj5jM0+vkhueP7IAGN/z0SlzhL +o9dphEHFMAElssmCIdgpvYZs01ECeDX8HX5jd+V0BLhNE8CvWz+nmkOjrKUi +dnuWkEAV3RK2v0CjxqmvfnFcJNR+S585iT30tSwmkoeEX9ZOdZ3YFtW2BcF8 +JJwbt+oOuoj3W1DCL0cRElK3VZaG5uL6ne1E7cRI2Lqq7EgJtvkaUW0kQYJ+ +ybgDhX1KqHwzU4aEAy+Fw/zzcLy+u1JOmYTj08+k0SUakVfKWyRUSbDs1J6K +wz51anf3CnUSopOcy65hD5JiQtzaJHgvPVOzIh/HxdaHjRqQcKrmmOUr7Pq/ +YqmDDBJ0550EfmEPfO8502NIwsKtzbUaBTQye7jnyTsTEkT9Zcv2YFM7birc +A7y+JseC+GUaLfdONKq1JiF82/1aE2xTG3vnSlsczwzz8MM+IdO3+4o9Cbut +vDTzsOu4K07lO+J+FtIDGrH7fyRePe9Mwh46KboL26RZ4v3xDSQojpxkiBXi +eVf2jaS7k/CzJbdbD/t4bgXnfg8SlB87ha/H7otxMIj3JkHsYrT0f9hCgZLr +o3xJKFHsMj+ObeLQHxDuT4IOX4tF4b/vFZMzAoNIuC8h96EFu47fsdA7mIQv +OXFRXf/yzUredWfh+YHFEPtfvt7+dmeShGrpCPOf//K13RpcF0aC+X7OiGVF +uL7a5D8QToL6GjpRAvt4oaO4+Q4Siu0dw5Sx645LrTSKJMFTcXa1LnZfAmW1 +KoqEsMTZj0bYgqxKb+0YEs7E2QesxV7jlrJTNY4EtT0j9+3+5TdzOiQfT0Kf ++5c/TtjH1KXzpBLwvORlZDdi1wgPVInsIWHKtUDME7v3V+ULgSQSKu5Esb3+ +5R9K6eVJISE5/sglH2zjt070YioJk0LsVb7Y/wcilKvd "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6639439823901716, - 1.4626441816684523`}}, + "PlotRange" -> {{0, 180}, {0.6251239669591427, + 1.5398809310580612`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.663943982390173}, + "AxesOrigin" -> {0, 0.6251239669591442}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.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 +13745,21 @@ hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6639439823901716, - 1.4626441816684523`}}, + "PlotRange" -> {{0, 180}, {0.6251239669591427, + 1.5398809310580612`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.663943982390173}, + "AxesOrigin" -> {0, 0.6251239669591442}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 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 +13773,102 @@ 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:eJwV1Hc8V98bAHBZZZU9f/YW0ueDzM5jla1EtsTnXlJk5ausllRaaKiIkCQl +EUJbUpRKqTSsa/Qxsl0tv9Mf93Vf79fzus95nvucc5SDd7oTnBwcHH34+feO +fqWvWfv61VqmstVPriUUWjtebBRsW47qNFcYcGP35BufVrNtREuzd7355w2s +l7yCzKeoeVvcNx7syoTUJzy2bWimRsBrKfaRZumHqWVvkPBRc3M+7Luvoy/9 +ZrxHC3NcGQLY7K4XSbsbPqJBCWLdcmzZAVW/OZsvqJBrS4QIttOPJNPYtm5k +2Du5KI59/zdbIKGsFzHfyf+Vxu7cJ5VYE9mP0nn7Q+Wxx3lt2TOMAXSoxMpS +BZv3WJQPc34QcQ+ZpmhiK4jktUQ3DCPZxVYdPWxXubmScZtRJHbtfrMpNlmg +Iqm3bBwFPVCsAexUdbe07W0/kGGNnIg99kepd6vjyiZRZ8oAnzc2yzd8W/ax +KRRFV10Nwp7I5bh8O3IaCRcqVG7DXqaiJzzJmEXhPC94k7FPs56sF5aYQ4yj +ApvSsZWu+qSump9D2u/Z/FnYJrqHxiMaaKRx8OC9Uuww4+42ts1vFFK+Wv8z +9kzCLm5+jT/I6Vrkh2HsvQ0CFtrL/qLAHS6jc9g5YHI9tG0RrTg/5S3Oieu7 +0mIbU7YEEl6NWnpglzVn9+yT4wQrJQdbAntiKDAp8xgnFLk718RjJ+nMVt2K +5IIQM8evF7BPVyir/mDwwH6m6Zph7K7Xo/f/FvFA4pHeC7+xlaZqfZdL8ELz +jHG4CBeFyg1ds/TmeSF496iTBXbT3T1LdjQsg02GF+XOYc8+6egethEE/qqv +o0HcFBJ1FhROvC8ILn9veadgG7yzBSFTIfC3ULPJxQ6n7hSs1l8OJr4T2Z+w +ozjbDCwFhSF32l7dl4dCAyo3J9PmRCDLJnBZLC/+P+QLvnamKASNsgNzsDmv +DypLR4vCx8jVhvexlZiK7mUjoiDgNu0rsJRCvjanbr/qEQPb2ZTz17HbQ2Ji +pVolQCU94gsXH4W+XT2REbRMEpSOpiquxh4dKSu6ZicJWkHbewOx+eP6O8wf +SgKf96feBmzbgx6GQXekIPGYy/tEfgrVFxvPlubLQE920WExQQoVD/yMN4uT +B0elUkbhCgrZe6Z/i70hD2uEs20/Y482ia27MSgPRX0BT8WFKWRYrCuh5KMA +Cm9yxY5gNwUHVvGsVYRDdtz98SIUmvrR89/wASWwky53CxWjkFiEbXWViwoU +dPfHXJSi0GAxf9iGcBVo12sj+rDrvryWGzukAi1a7Gfa0hTydw44oPFQBXSF +Oz7dxS5eGe9+nqEKmiI3DLtl8PrsqxMpUmogvdLw+dr/UcgjVEDPsVcdxMtX +HNyoTCEU78nw+qMOzT5764qxddLy17BkNODBZRNvGpujiGmdslEDqIDjnwpU +KHTjm5/X7UcaYLaoTs2p4vO5uXyfbKEmsNwl/lergeuzdelkB2tDHt/bVYd1 +KVS06dzn+RRtsPrxp2MY+0Rwbw/3RW1wc6D6HfTw/t67a0ShQxsetf5YJ6RP +IZHGPI5NNjoQxbdT9vwqvH+Y4zoNqivhz+iBn00MCsmpnEzNoHRB405GQ4Qp +hRqPzmgvcOpB8b2jpgPY/tM+70hlPZDwHjYOMKPQpSY1betAPZC++L7C1ZxC +KqH1b+kPelDDKXlxjSXut3xAnWzVByUNfX9lKwrJyymQSj4GoPGxt9LDgUK6 +V+IEfyEGPIoc4rXwo1Aw68CsnisDFCtitj/HzlHN+hbkz4DtHx3By59CXIUV +t5oTGBBzhjaLC8Dn7RLbI6uSAb5R3+OqtuD7NCcoT1uVCQN/VnKsZ+H5Zjjr +e/Mawpx4WN7jCApdjlHbcKfNCK4btjsI7afQ63i05uAVUwibfDOmWU0h5cD3 +rgE7LOFOxlKpvDEKEYs1N+V3A8SsbP1erzOApEbqlkoFWwPfYbWpwF0DKI5p +8SVLxxboO88zxJ4MoOCx3y1ibDu4dWzwxoTkILphHbs0v3098E7WxDbuGUTF +M+GPyk87QAmkbHbtGUS0lfTLplQnyPzS0f3eawh95eCa7N3qAmGjC/kTnUMo +8n87T+1TdYOW1vzirZuH0c1tLQ/PpG2AX0fSSvezh9GeaZn5lds2wshHrUaz +lO9o1nHd5mdb3CGkoHDioRYbmfplWg1s3AQ7vnEGfutio7cyeeFNTA94/GyJ +cfHRESRbcqCxVMsTFp4t8FRuGkV1PTrOrkKbYXVKdcpKmTGk8G4iNH5sM1zu +j0t61j+GmGcyy4t6vOC3G28v+Xwc5XFP62c98Ya/PDO1GaU/UI3Vqq60uz6Q +MpaY/XDjBMpZc1Tkd5kvRB2evGfwZgK1f75yiHnMDwTrz9rEOE2iOy65alF7 +/WHmw4V1Bh2TaDJiE0ckKwAcEyOk13tModl12mHjNoFATy3qhr6bQqVjn+hY +4y2wUCx0OCBoGnlfvhISIBgEgrK6vyb7plHVbactXOlBwBv+80HwzhlkKvd2 +4chCEOzfNRXrNzGDVHtCu95s2wqfX7SkFm2fRZTAdrfc/q3wwdLVKGl0Fr0+ +4Rqy3jMYhKFw3+fAOXQ6IV9g1+tgOHhGr5N6O4ca7y8uhDiEwPTeyXE383m0 +wh/SmfUhYObl2TqaNY9Mg8ZL0wxZIFpnc3ZoYB6VnJ+IdTVmQQezSJl7aB6J +d0ytlTJhgcRs9Kji8Dwat5t/V2rOgqdigciTPY/vF44lbdYsqJhO7qgZn0fL +50V8RDey4F7C3WTP+XlEHTfiy49ggcjidq3FpTQ60ZC0ra6EBZrVq5rmNGgU +wThnmlDKAnZZbuUXTRo5X6vkMyljwUxa44dHWjTiPzd4rfYGC6If2L88okOj +tJgN7JpqFtSX83oL69MoSVtt+53HLBA3M3o4b0ij8HOtO25/Y8G17bsP6lvT +yGH5oEVMDwvsaly0fmFrpXEIMfpYoN794G+zDY0GY4xuVA6wgGf4qbW/HY22 +uuaP3RplQXKnr0qyPY28eWIjK36y4Op/NtI5rjRaHysbVS5JQOiGxvLVvjR6 +nH/IMUuagJC91tHT2BZtU2oJsgQ80M+3rPajkYF66ycbBQKWiQqNMQJoJPMh +0eazOgHMfsXLakE0GjH7KslvRID7Z0nGJ4JGJzkL7oVuImCiYKYoLQr3v0ow +x8WTgJU+VVxa0TQ66JcQw/QiIKzegXiOnVC9QXPRlwDbNFc9vlhcP7kk82ww +Abm8f1uTdtGI+SKY9TSagOvxvxUM99DoQ6a6gOopAvqKdyzp20+jm0gobDiT +gL0nu/L8DuD8YzNNN7IJaL1wzfsdNsOhKcXkHAG9hrTWk4N4fhwhUy6XCHB8 +s3b12UM0Wrez4FNCOQHnK71bRI7SSF7+sPHamwQUK7VbJmPPvNiZzXWLgMUl +0+1D2IUayOVEFe4v7KtDfQaN/nz9+rConoA/6XszPY7TqNpZrvRVCwGdBi99 +A0/RKOMnJ8/pFwQ8t7x0sgE7uJS91aeNAIb6pW6pTBoJc9fLUe0EaBm+ff0S +e0eD98mFTgJO0OWz+tk0UtU5G682QMDjxRHj5jM0+vkhueP7IAGN/z0SlzhL +o9dphEHFMAElssmCIdgpvYZs01ECeDX8HX5jd+V0BLhNE8CvWz+nmkOjrKUi +dnuWkEAV3RK2v0CjxqmvfnFcJNR+S585iT30tSwmkoeEX9ZOdZ3YFtW2BcF8 +JJwbt+oOuoj3W1DCL0cRElK3VZaG5uL6ne1E7cRI2Lqq7EgJtvkaUW0kQYJ+ +ybgDhX1KqHwzU4aEAy+Fw/zzcLy+u1JOmYTj08+k0SUakVfKWyRUSbDs1J6K +wz51anf3CnUSopOcy65hD5JiQtzaJHgvPVOzIh/HxdaHjRqQcKrmmOUr7Pq/ +YqmDDBJ0550EfmEPfO8502NIwsKtzbUaBTQye7jnyTsTEkT9Zcv2YFM7birc +A7y+JseC+GUaLfdONKq1JiF82/1aE2xTG3vnSlsczwzz8MM+IdO3+4o9Cbut +vDTzsOu4K07lO+J+FtIDGrH7fyRePe9Mwh46KboL26RZ4v3xDSQojpxkiBXi +eVf2jaS7k/CzJbdbD/t4bgXnfg8SlB87ha/H7otxMIj3JkHsYrT0f9hCgZLr +o3xJKFHsMj+ObeLQHxDuT4IOX4tF4b/vFZMzAoNIuC8h96EFu47fsdA7mIQv +OXFRXf/yzUredWfh+YHFEPtfvt7+dmeShGrpCPOf//K13RpcF0aC+X7OiGVF +uL7a5D8QToL6GjpRAvt4oaO4+Q4Siu0dw5Sx645LrTSKJMFTcXa1LnZfAmW1 +KoqEsMTZj0bYgqxKb+0YEs7E2QesxV7jlrJTNY4EtT0j9+3+5TdzOiQfT0Kf ++5c/TtjH1KXzpBLwvORlZDdi1wgPVInsIWHKtUDME7v3V+ULgSQSKu5Esb3+ +5R9K6eVJISE5/sglH2zjt070YioJk0LsVb7Y/wcilKvd "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6639439823901716, 1.4626441816684523`}}, + "PlotRange" -> {{0, 180}, {0.6251239669591427, 1.5398809310580612`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.663943982390173}, + "AxesOrigin" -> {0, 0.6251239669591442}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 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 +13878,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.6251239669591442}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -7639,7 +13907,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.6251239669591427, 1.5398809310580612`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -7647,9 +13916,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.994042384540772*^9}, CellLabel-> - "Out[303]=",ExpressionUUID->"09d149ec-0259-a345-a282-743f783e7913"] + "Out[161]=",ExpressionUUID->"531fea48-5f4d-4e68-899b-d2465e34b066"] }, Open ]], Cell[CellGroupData[{ @@ -7664,7 +13933,9 @@ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -7686,8 +13957,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -7713,252 +13983,168 @@ 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[162]:=",ExpressionUUID->"90696e8b-5a2d-314c-8d58-ac84cb8f4d66"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.976253354341118`*^-271\\\", \ + "\"\\!\\(\\*FractionBox[\\\"3.4241453894901998`*^-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, 162, + 73, 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337564646551*^9, 3.994042384613096*^9}, CellLabel-> "During evaluation of \ -In[304]:=",ExpressionUUID->"526ffad5-83ae-c149-9912-e494135b3fca"], +In[162]:=",ExpressionUUID->"c0675bf3-a357-4e2c-80bf-0b37169b3766"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.718150004511881`*^-282\\\", \ + "\"\\!\\(\\*FractionBox[\\\"3.604335462062077`*^-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}, + 162, 74, 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337564646551*^9, 3.994042384616053*^9}, CellLabel-> "During evaluation of \ -In[304]:=",ExpressionUUID->"1adb1680-bdf2-4144-bcc9-7270c61e97b7"], +In[162]:=",ExpressionUUID->"30ea75ec-e79e-4e2b-b6ef-13ebaeb534fb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.4847193100774497`*^-293\\\", \ + "\"\\!\\(\\*FractionBox[\\\"3.794007743640941`*^-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, 162, 75, 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337564646551*^9, 3.9940423846188707`*^9}, CellLabel-> "During evaluation of \ -In[304]:=",ExpressionUUID->"9e5d82d5-642b-cb46-8232-be5a5ca7050d"], +In[162]:=",ExpressionUUID->"26dd6628-97fb-4a56-b5f3-4efc86be2ece"], 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, 162, 76, 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337564646551*^9, 3.9940423846215467`*^9}, CellLabel-> "During evaluation of \ -In[304]:=",ExpressionUUID->"ef931413-f964-5b45-a755-76cab1ab5309"], +In[162]:=",ExpressionUUID->"8cbbf4dd-52af-4180-a4ae-83d52afdc62b"], 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:eJwV1nk0Ve0XB3AvvSVlVrgZzr2mMiRzuNfehswULzJL3IpMRSqRIaEMGUtS +UUgI9yiFNFAKkYoMaZJKkqFQKfU7v7/O+qx1znqe9ey9v+ehbw91ZHNzcXFJ +/sPF9f/n/Kv2e/KpJUZhbju993aZGPWekzhoPJAAYVcE/AKADrjq8XaJgWxw ++17ZaAwaELmlop9n4ALIr3S5rgjGIDwpnv2zn4TIdLeDv40c4PVN+9DZ/hZQ +Li/fHWHkC+by4y9n+p+Cf5pNjz9zD/zs18ub7h8B6/fJAhra8dBqeqnkyYVv +cLdxVC35QRZIvW74sF11EWzjJOdGRApALMinYpkpD2ZzGCdGPhVBtoZ5k70z +Lx5vuB4dMlACg/kb7swI8eNjjZjZz9rlkFoS+5hbUhj5eJ3iP0ZWgnjuu2M5 +Z0Ux8dxx5pBhNUioXEv8USaK1SKXJLduqgZaS1KsV60oVmh/PN9lXw0y0+v2 +KbWKohxD6OIl32pQsA3b1jQmiil0dT/B5GrQWrKo+05LDNsc1Dqreqphc8Tq +Uc0OMVwpIUmK+9RAspOV0dP5VVhmXBnI1K4F2tVuGvc/qzFVf/9A3MZaqBZ1 ++q6xYjU6LNsfcJdZC8+fetdmya7GLuc933Q31YK8QwTDwXI1/jcGhd+ca6HF +7vzSntOr8SHt2hcyshYWzee6u5jiGLbrronFtVrILIuqXDQXx/aSmgDBBur7 +pVwpag7iaPmy8vKzm7Vge5/POJ0tjt81J8O33KuFAlOizjZDHIUvdqmseVYL +G9HmVOdrcWzbsO/v7FQthOsX+7QnSOD9gk0bGxQ5YF0kMGuTJoFuPvm2j9Zx +gLEsOqU7TwKrTKvnX6hyoKfXhfOsXAIX8paunNHkwPqwlTyvuiVwT+lLg69G +HBgr21/2lSaJZe27yre4cMBTzP7LmjpJDDfpnY9J4IDWoab4czclkbY3sEPu +KAf4RtauprdJ4ielee22ZA401PCA4qAkukV7PeZK58Bqm4bMDX8lke9QnZTd +KWr9eHntTTY0fL8b9UwqOWA2tRAV8o6GxRq/ss73cOCgZa7y3Qkauhdasbue +cqC6WG1IdJ6G/tdezH/v5YCE0zb9Bt41eCKtztl0kAMTN+5/51m/Bm1ut/LW +veVATkJmxOkDa/C5vUT0/AwHRlYphtzjl0J//fdJgkIkiIfelhYXl8JHGnal +fcIk2D507QogpPCU5crUfFES6qNSVQW1pHDH4PQVMXESjr+eHndzlcIVqus9 +PkiToHm5aefUBSkUtLcvnVImIZ7p4EvbKI1iuvb1hSYkWHqf+6pnIo3uJ7ax +aGYkCMR9PuJsK40dqRze3E0kFLYeLcvcJo0C19kh0ZYk3LBu/Lz0mDR+jahP +IuxJmHaVi/w2KI0uBR/C611JuB4Vtkx4VBqN66KTf7iRcLiwOX/9pDReP6vz +SdeDhJVvtjYFcMtg7z7ydLkXCUo707jeKFM+nXrXZzsJ3vvmjj86JIOfxhTb +pHeToHDKRGr8qAyqnvHhVwgiqfM7cWVZpgye/dp5ZW0wCVG/1/WYlMggY0Jl +UT6UhLwj3qsaHslgyONb4zN7SfAsrSx7/lwGaVEmQsPhJDAe/NCbfSODP7um +clsiSKjly3FXn5PBX039txIjSXiU9eB8qbQsNr9Mq3h5kIScOjGNViVZDFJd ++roiigT3Pt+WNxqymHv4w4GIQySMSfweXWMui563BN/8jiaBp2iDcnYI9f7p +iuyRWBI67sY01RyQxRCzBd6cOBIy33XYdiXIore99meIJ0FGiR3Ke0oWl1Q0 +z2ckkGBQffrq4duy+HbPTWPuoySY9XcvTj6UxeOr7NhplO25llj4PJVFRzXG +HtEkEvwcQwbhPbXfjkAziWQSzA/RY+P+JVCmyO3L7xQSOgVvXtzIR6DZhokd +IcdI2FLi8nBagMD+Dwe7hyl7dKUK+0oQyOLfE1h7nIQw2fmLxioEHuP4jmum +kTBXl/nwpzqB87s9xlIpR1mqfOFoE8jNpT/0lvLRPdt0GUYE/qy+UJiYTgLf +0l/uQyYErlInQ55QzizIi822IHCDY5XemgwSClo7HnI7EEiWhHJKKcu6sr80 +OhM4bNni94FyycRf4XB3AqMOiAjJnyChZpWOxzs/Av+WtrmdpKxd8Tj2zC4C +74s3/uig3GgUWPJfMIGNv9pzf1O+t/P8l9ZIAqvUdjxwySTB6re+SPQhAuVe +JfvEUu7O7NXVjiOw7t709xLKTgqhHhOJBC4NCM56QHmwYXlcyTECf/F3qn6k +7G1fUuKZQaAip7+DJ4uE0RGjdrEcAjfxbQ+Sphywf/DLo1MEthzXF9GmPLki +QuRoIYHrvNY3W1AOLxLQYxUTeMZfOMSV8g/tyx5zpQRuZl5V2EH5cLtp3JUK +Avn1Po2GUebxflXCrqHe9z5SdYByytcD7dJXCTQNd4mJoSyQLDrZd4Oq52dd +11jKOWuqRTKaCbT6+pN1mLJEraWeeQuBY7v2qUdRPmv2zuNPG4FCo7Fq4ZQZ +gzFx9Z0EZldNbwygXB4sURrSQ2DMrfOOnpTVuOvaFfsIvPKQfciWMnnSbvLV +IIFGqlJX9SlvVBkTOfWKqvevwkU5ys23E/Q2vyOw71eL6wrKJk7SnsvGCGQX +BbRNUef3YOx63O0JAp0Fgi2eULaNcSzdP0PgiGTFcA3lp8Jf2tXnCbQw/5OU +SnlrWfLkxwUCde9bWPhTHjZgiBb9JdAjki1jQHn745t6rkvo2PhBl5+fctCP +mbiH/HTkOR2pU0HV32DPjtUfROhY1qjWGUqZd3yokkeCji20vAUNyqUvWp8b +Meho8umnchXVbxFOG4M8legoZ8Nc70/ZpKvqnyhVOg713HgsQfnVrTzVa7p0 +fK0+O7Of6ucqPb6Wp4Z0XAV/IxiUo2oPb51GOjoMDxe0U/Ow+sLOBBUbOtYv +J5/xU958VH+g2IeOZ8fZtBBqvmT+XAm+7U/HkhdFvYvU/E1EMnheBtDR4PNy +w+OUU3atWC8RQUfep/LCp6n5vWPz8khGCh2Hf43wnKDmPeOeg2RVOh1tlkzi +EsqerLbq9mw6Vjk3akVS+fBzfc3gkrN07EoPgy2JVP6LxKsf4tBxESOFX1J5 +w5U6dy+/no6e2eUyGyl38wS61zfR0dac/fkElU+75xyPztyn4xnevQ91qPwq +GZB/sXOIjsS1ujp3Kt9Wn3+Y5MTDQA8hu118VF6OirOk9vIykB0VtERzH9Uv +mRzOCX4GaqabRrhQ+bo5oWC4Q5yBdhbQm0flcQo7SNNYlYFny0obJkOo/aoI +vVJzZuDX02wjvp0kzJ+lxWu5M1BFeyZ/yQ4SZgUV5PV9GNhn+ejHL39qvr7p +B5oFMHDD8+iut9T/YqTJb949hoFcD2DymDeVtzbXBVJKGShbr6Ji50z1X/Nd +TnoFA6983h0u4UTlg/ojp5waBjIH9/W9cSThlujbgnMNDIy2XTOxawu1/xd8 +Ste6GNi8n5XiYkPl1W5vGJlj4HdRtwvlSMKpl7tGPi4wUFzkpLw5kJC7Ofzo +l78MNDOo63vDouqjldL5Y7kc0jo/tvMbkpDwi7NVUEYO19p2yZrrUOeb+m8Y +01wO/1k7WaOxjgRmZVXRyZNy+OqK0fSiAAkviMrzm87I4U/FF92+/FR/nbx8 +bva8HLYdtNzWuoL6v8aXFTpelkNFf3pRLC9VX9eifIGbcuhWzKkb/oeEdf/m +Zia9lcNvWtnKyrPUfcbnUFykqjxK6mQE0vo5MCNivc2lRR6t5f59kHWSAwNB +jJ7AB/IoQZoNMnM5cKdtAWIfyeOk0uuM91kcyIyqlC1/Lo+hSbbj6tT9aMPI +ytc/x+WxUVM9vfwIB0I4j73OiiqggqjqS+UwDoxvdvYY9VdAXxP5xMMWHBhN +2+ayd5kiTnf65TZQ9z+rqf1W73WV0Jd21mGrXi1M+PGGX41di5LWJ7TfVFVT +93lx7uSWdajUk5x16VEViHQpZtROKeO2sGybS7MVIJVSs0VXVxV7J8Yu7H1f +Dvkq+kKiO9Uwa8eSutZvZdBBM9b5lrUeJU76vvYQKAUDqZZM9efqOHTjkvKf +5RdBgOdChG/CBoza7DNQrFcMMvGyTDdFDVQX0/1P6PI5WK7gWe/4QAMVaLI0 +S+UzsJ4lWbPfSxO9jj276SidD3tfibRac2nhFd6EgomVeTD1Lc3ZKl8Lh8V0 +bu8MzgYL9bYCKzVtDHnD35Molgm3vhn++t6tjf/9STgrnJkKIaqaQ0/YOtjs +/v5Qa0MysCb9e92W6+IpZsTCgeWJsElewo7/gi5eMwhVCeCOh7Vxxw+06Olh +kfK/WmqPo0GZrX9bYUgPH6lmLqWN7Qf2rV2JV/dsxJzpaprNj3C4XdTrP7NK +HyNdb8synMJgtvzvd/Xr+vh2vUpeTHEgfHAxLzrWoI95Y9P8U2mBMLAk3fJd +kz46PZNcFXIgEJq20U6fvKOPXuNqdbmbAyFBQsdgsV0fZZLGQo78CQChlMDo +jmF9ZAcFT77xDgDVnX1cbG4D5I+Qvha0bhf4KVQuL7AzwMAWY2/HUTZE3fcO +VNxigH/k5pSin7Ahky3SSToa4Oexa1/qbrHhZunBtM6tBuh5rsHW7jQbxBQt +BRd9DfDlmt4Ixc1saFN8L7Yt0gA5OTtcdjf7g/JaWULxvAF6qX/UXlbiBzPK +ObrktAG67Nsu+PiULww8wk2i3wzwUM2LQeNjvnAnZPK/iDkDvP47nLgd5QsZ +pNUe3QUDDN7CWT7o5QvKBlxVjTyGGDpaeuGYvC9stwqmt642xPHCt5cG6rZB +706Llb1MQxT13BLDe9UHbpT8ejuXYojZAszmvCRP0DWN+G6daohLDomtfR7i +CdfeTqwsSjdEltnolNJWTyBlXulZZxuiiVBn0F8lT6jKv5N+7gzlRfOf0R0e +UJR2VN+i2hBburW2XhbxgGMRgln5zwzRXWf6WWyNG7ibyaGhDBMvm66YmpfY +Cou9vAKtBBNLuy+o5fBshSL25AtrOSZ+8+L9ipMu8CGpYb/7WibeFQwZ7ml1 +gb3tm2sOajKxeo3B+J1QFzhuHy1zw5yJRk67s/o7nKHRte+3digTxy/GH0hP +d4I1wckN6+8wsUf1aHOxiSNk/N2hk9rCRNvLf2qCNR2BO9uc8/EeEx949ewx +ZzjCeP2/l4vamSjQjcYy3I7QyJWYL/KMiSqBxcSOFgdwz43bP/+eiU+VCg5u +3uQA+U0HdW6tYGFS+JymvdMWWMUXxLHbysLEd3YPgpTtoMQ0JmrajYWOJru5 ++1fagWZMhmmOJwu1BSLkPadswX66tm/Al4URT3Lb66/aQtLzuZ9+QSy80fJx +SyXawo8LsSZR8Sx8t87ENNbLBoYMc56VVbJQ1s220azCCnbtKym0qmbhdOBy +zdETVjBffY09UcvCsd/FfIX7rECEMfBdo56FxRW9mU7GVmDDKy3VfIeFe1zG +ez8MWsLN3jL/Z30szDMOjosVtARrgRtqkQMsFI4jlxXOW8CARfu8xAsW+h1b +uPX4pQXMNn5O8X7DwpGo33ujqyxArXjDlU/jLKzfy/o0Zm0BN4eMI9O+sHDh +Y9PYTU0LsBb7D9SnWThUZ5x4iWYBO5L3PYmYY2GcsJn5nXFzmL2TVCD+g7Ki +veXkU3NIWDjl17jAQu/MqLOaTeYgpH1Z1WuRWp+4opV+0RzOBTfO/f3LQlfs ++7GYag7/A4Ur9HA= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -7972,211 +14158,123 @@ 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:eJwV1nk0Ve0XB3AvvSVlVrgZzr2mMiRzuNfehswULzJL3IpMRSqRIaEMGUtS +UUgI9yiFNFAKkYoMaZJKkqFQKfU7v7/O+qx1znqe9ey9v+ehbw91ZHNzcXFJ +/sPF9f/n/Kv2e/KpJUZhbju993aZGPWekzhoPJAAYVcE/AKADrjq8XaJgWxw ++17ZaAwaELmlop9n4ALIr3S5rgjGIDwpnv2zn4TIdLeDv40c4PVN+9DZ/hZQ +Li/fHWHkC+by4y9n+p+Cf5pNjz9zD/zs18ub7h8B6/fJAhra8dBqeqnkyYVv +cLdxVC35QRZIvW74sF11EWzjJOdGRApALMinYpkpD2ZzGCdGPhVBtoZ5k70z +Lx5vuB4dMlACg/kb7swI8eNjjZjZz9rlkFoS+5hbUhj5eJ3iP0ZWgnjuu2M5 +Z0Ux8dxx5pBhNUioXEv8USaK1SKXJLduqgZaS1KsV60oVmh/PN9lXw0y0+v2 +KbWKohxD6OIl32pQsA3b1jQmiil0dT/B5GrQWrKo+05LDNsc1Dqreqphc8Tq +Uc0OMVwpIUmK+9RAspOV0dP5VVhmXBnI1K4F2tVuGvc/qzFVf/9A3MZaqBZ1 ++q6xYjU6LNsfcJdZC8+fetdmya7GLuc933Q31YK8QwTDwXI1/jcGhd+ca6HF +7vzSntOr8SHt2hcyshYWzee6u5jiGLbrronFtVrILIuqXDQXx/aSmgDBBur7 +pVwpag7iaPmy8vKzm7Vge5/POJ0tjt81J8O33KuFAlOizjZDHIUvdqmseVYL +G9HmVOdrcWzbsO/v7FQthOsX+7QnSOD9gk0bGxQ5YF0kMGuTJoFuPvm2j9Zx +gLEsOqU7TwKrTKvnX6hyoKfXhfOsXAIX8paunNHkwPqwlTyvuiVwT+lLg69G +HBgr21/2lSaJZe27yre4cMBTzP7LmjpJDDfpnY9J4IDWoab4czclkbY3sEPu +KAf4RtauprdJ4ielee22ZA401PCA4qAkukV7PeZK58Bqm4bMDX8lke9QnZTd +KWr9eHntTTY0fL8b9UwqOWA2tRAV8o6GxRq/ss73cOCgZa7y3Qkauhdasbue +cqC6WG1IdJ6G/tdezH/v5YCE0zb9Bt41eCKtztl0kAMTN+5/51m/Bm1ut/LW +veVATkJmxOkDa/C5vUT0/AwHRlYphtzjl0J//fdJgkIkiIfelhYXl8JHGnal +fcIk2D507QogpPCU5crUfFES6qNSVQW1pHDH4PQVMXESjr+eHndzlcIVqus9 +PkiToHm5aefUBSkUtLcvnVImIZ7p4EvbKI1iuvb1hSYkWHqf+6pnIo3uJ7ax +aGYkCMR9PuJsK40dqRze3E0kFLYeLcvcJo0C19kh0ZYk3LBu/Lz0mDR+jahP +IuxJmHaVi/w2KI0uBR/C611JuB4Vtkx4VBqN66KTf7iRcLiwOX/9pDReP6vz +SdeDhJVvtjYFcMtg7z7ydLkXCUo707jeKFM+nXrXZzsJ3vvmjj86JIOfxhTb +pHeToHDKRGr8qAyqnvHhVwgiqfM7cWVZpgye/dp5ZW0wCVG/1/WYlMggY0Jl +UT6UhLwj3qsaHslgyONb4zN7SfAsrSx7/lwGaVEmQsPhJDAe/NCbfSODP7um +clsiSKjly3FXn5PBX039txIjSXiU9eB8qbQsNr9Mq3h5kIScOjGNViVZDFJd ++roiigT3Pt+WNxqymHv4w4GIQySMSfweXWMui563BN/8jiaBp2iDcnYI9f7p +iuyRWBI67sY01RyQxRCzBd6cOBIy33XYdiXIore99meIJ0FGiR3Ke0oWl1Q0 +z2ckkGBQffrq4duy+HbPTWPuoySY9XcvTj6UxeOr7NhplO25llj4PJVFRzXG +HtEkEvwcQwbhPbXfjkAziWQSzA/RY+P+JVCmyO3L7xQSOgVvXtzIR6DZhokd +IcdI2FLi8nBagMD+Dwe7hyl7dKUK+0oQyOLfE1h7nIQw2fmLxioEHuP4jmum +kTBXl/nwpzqB87s9xlIpR1mqfOFoE8jNpT/0lvLRPdt0GUYE/qy+UJiYTgLf +0l/uQyYErlInQ55QzizIi822IHCDY5XemgwSClo7HnI7EEiWhHJKKcu6sr80 +OhM4bNni94FyycRf4XB3AqMOiAjJnyChZpWOxzs/Av+WtrmdpKxd8Tj2zC4C +74s3/uig3GgUWPJfMIGNv9pzf1O+t/P8l9ZIAqvUdjxwySTB6re+SPQhAuVe +JfvEUu7O7NXVjiOw7t709xLKTgqhHhOJBC4NCM56QHmwYXlcyTECf/F3qn6k +7G1fUuKZQaAip7+DJ4uE0RGjdrEcAjfxbQ+Sphywf/DLo1MEthzXF9GmPLki +QuRoIYHrvNY3W1AOLxLQYxUTeMZfOMSV8g/tyx5zpQRuZl5V2EH5cLtp3JUK +Avn1Po2GUebxflXCrqHe9z5SdYByytcD7dJXCTQNd4mJoSyQLDrZd4Oq52dd +11jKOWuqRTKaCbT6+pN1mLJEraWeeQuBY7v2qUdRPmv2zuNPG4FCo7Fq4ZQZ +gzFx9Z0EZldNbwygXB4sURrSQ2DMrfOOnpTVuOvaFfsIvPKQfciWMnnSbvLV +IIFGqlJX9SlvVBkTOfWKqvevwkU5ys23E/Q2vyOw71eL6wrKJk7SnsvGCGQX +BbRNUef3YOx63O0JAp0Fgi2eULaNcSzdP0PgiGTFcA3lp8Jf2tXnCbQw/5OU +SnlrWfLkxwUCde9bWPhTHjZgiBb9JdAjki1jQHn745t6rkvo2PhBl5+fctCP +mbiH/HTkOR2pU0HV32DPjtUfROhY1qjWGUqZd3yokkeCji20vAUNyqUvWp8b +Meho8umnchXVbxFOG4M8legoZ8Nc70/ZpKvqnyhVOg713HgsQfnVrTzVa7p0 +fK0+O7Of6ucqPb6Wp4Z0XAV/IxiUo2oPb51GOjoMDxe0U/Ow+sLOBBUbOtYv +J5/xU958VH+g2IeOZ8fZtBBqvmT+XAm+7U/HkhdFvYvU/E1EMnheBtDR4PNy +w+OUU3atWC8RQUfep/LCp6n5vWPz8khGCh2Hf43wnKDmPeOeg2RVOh1tlkzi +EsqerLbq9mw6Vjk3akVS+fBzfc3gkrN07EoPgy2JVP6LxKsf4tBxESOFX1J5 +w5U6dy+/no6e2eUyGyl38wS61zfR0dac/fkElU+75xyPztyn4xnevQ91qPwq +GZB/sXOIjsS1ujp3Kt9Wn3+Y5MTDQA8hu118VF6OirOk9vIykB0VtERzH9Uv +mRzOCX4GaqabRrhQ+bo5oWC4Q5yBdhbQm0flcQo7SNNYlYFny0obJkOo/aoI +vVJzZuDX02wjvp0kzJ+lxWu5M1BFeyZ/yQ4SZgUV5PV9GNhn+ejHL39qvr7p +B5oFMHDD8+iut9T/YqTJb949hoFcD2DymDeVtzbXBVJKGShbr6Ji50z1X/Nd +TnoFA6983h0u4UTlg/ojp5waBjIH9/W9cSThlujbgnMNDIy2XTOxawu1/xd8 +Ste6GNi8n5XiYkPl1W5vGJlj4HdRtwvlSMKpl7tGPi4wUFzkpLw5kJC7Ofzo +l78MNDOo63vDouqjldL5Y7kc0jo/tvMbkpDwi7NVUEYO19p2yZrrUOeb+m8Y +01wO/1k7WaOxjgRmZVXRyZNy+OqK0fSiAAkviMrzm87I4U/FF92+/FR/nbx8 +bva8HLYdtNzWuoL6v8aXFTpelkNFf3pRLC9VX9eifIGbcuhWzKkb/oeEdf/m +Zia9lcNvWtnKyrPUfcbnUFykqjxK6mQE0vo5MCNivc2lRR6t5f59kHWSAwNB +jJ7AB/IoQZoNMnM5cKdtAWIfyeOk0uuM91kcyIyqlC1/Lo+hSbbj6tT9aMPI +ytc/x+WxUVM9vfwIB0I4j73OiiqggqjqS+UwDoxvdvYY9VdAXxP5xMMWHBhN +2+ayd5kiTnf65TZQ9z+rqf1W73WV0Jd21mGrXi1M+PGGX41di5LWJ7TfVFVT +93lx7uSWdajUk5x16VEViHQpZtROKeO2sGybS7MVIJVSs0VXVxV7J8Yu7H1f +Dvkq+kKiO9Uwa8eSutZvZdBBM9b5lrUeJU76vvYQKAUDqZZM9efqOHTjkvKf +5RdBgOdChG/CBoza7DNQrFcMMvGyTDdFDVQX0/1P6PI5WK7gWe/4QAMVaLI0 +S+UzsJ4lWbPfSxO9jj276SidD3tfibRac2nhFd6EgomVeTD1Lc3ZKl8Lh8V0 +bu8MzgYL9bYCKzVtDHnD35Molgm3vhn++t6tjf/9STgrnJkKIaqaQ0/YOtjs +/v5Qa0MysCb9e92W6+IpZsTCgeWJsElewo7/gi5eMwhVCeCOh7Vxxw+06Olh +kfK/WmqPo0GZrX9bYUgPH6lmLqWN7Qf2rV2JV/dsxJzpaprNj3C4XdTrP7NK +HyNdb8synMJgtvzvd/Xr+vh2vUpeTHEgfHAxLzrWoI95Y9P8U2mBMLAk3fJd +kz46PZNcFXIgEJq20U6fvKOPXuNqdbmbAyFBQsdgsV0fZZLGQo78CQChlMDo +jmF9ZAcFT77xDgDVnX1cbG4D5I+Qvha0bhf4KVQuL7AzwMAWY2/HUTZE3fcO +VNxigH/k5pSin7Ahky3SSToa4Oexa1/qbrHhZunBtM6tBuh5rsHW7jQbxBQt +BRd9DfDlmt4Ixc1saFN8L7Yt0gA5OTtcdjf7g/JaWULxvAF6qX/UXlbiBzPK +ObrktAG67Nsu+PiULww8wk2i3wzwUM2LQeNjvnAnZPK/iDkDvP47nLgd5QsZ +pNUe3QUDDN7CWT7o5QvKBlxVjTyGGDpaeuGYvC9stwqmt642xPHCt5cG6rZB +706Llb1MQxT13BLDe9UHbpT8ejuXYojZAszmvCRP0DWN+G6daohLDomtfR7i +CdfeTqwsSjdEltnolNJWTyBlXulZZxuiiVBn0F8lT6jKv5N+7gzlRfOf0R0e +UJR2VN+i2hBburW2XhbxgGMRgln5zwzRXWf6WWyNG7ibyaGhDBMvm66YmpfY +Cou9vAKtBBNLuy+o5fBshSL25AtrOSZ+8+L9ipMu8CGpYb/7WibeFQwZ7ml1 +gb3tm2sOajKxeo3B+J1QFzhuHy1zw5yJRk67s/o7nKHRte+3digTxy/GH0hP +d4I1wckN6+8wsUf1aHOxiSNk/N2hk9rCRNvLf2qCNR2BO9uc8/EeEx949ewx +ZzjCeP2/l4vamSjQjcYy3I7QyJWYL/KMiSqBxcSOFgdwz43bP/+eiU+VCg5u +3uQA+U0HdW6tYGFS+JymvdMWWMUXxLHbysLEd3YPgpTtoMQ0JmrajYWOJru5 ++1fagWZMhmmOJwu1BSLkPadswX66tm/Al4URT3Lb66/aQtLzuZ9+QSy80fJx +SyXawo8LsSZR8Sx8t87ENNbLBoYMc56VVbJQ1s220azCCnbtKym0qmbhdOBy +zdETVjBffY09UcvCsd/FfIX7rECEMfBdo56FxRW9mU7GVmDDKy3VfIeFe1zG +ez8MWsLN3jL/Z30szDMOjosVtARrgRtqkQMsFI4jlxXOW8CARfu8xAsW+h1b +uPX4pQXMNn5O8X7DwpGo33ujqyxArXjDlU/jLKzfy/o0Zm0BN4eMI9O+sHDh +Y9PYTU0LsBb7D9SnWThUZ5x4iWYBO5L3PYmYY2GcsJn5nXFzmL2TVCD+g7Ki +veXkU3NIWDjl17jAQu/MqLOaTeYgpH1Z1WuRWp+4opV+0RzOBTfO/f3LQlfs ++7GYag7/A4Ur9HA= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "PlotRange" -> {{0, 30}, {0., 0.07253261474299416}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +14286,19 @@ JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "PlotRange" -> {{0, 30}, {0., 0.07253261474299416}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +14312,122 @@ 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:eJwV1nk0Ve0XB3AvvSVlVrgZzr2mMiRzuNfehswULzJL3IpMRSqRIaEMGUtS +UUgI9yiFNFAKkYoMaZJKkqFQKfU7v7/O+qx1znqe9ey9v+ehbw91ZHNzcXFJ +/sPF9f/n/Kv2e/KpJUZhbju993aZGPWekzhoPJAAYVcE/AKADrjq8XaJgWxw ++17ZaAwaELmlop9n4ALIr3S5rgjGIDwpnv2zn4TIdLeDv40c4PVN+9DZ/hZQ +Li/fHWHkC+by4y9n+p+Cf5pNjz9zD/zs18ub7h8B6/fJAhra8dBqeqnkyYVv +cLdxVC35QRZIvW74sF11EWzjJOdGRApALMinYpkpD2ZzGCdGPhVBtoZ5k70z +Lx5vuB4dMlACg/kb7swI8eNjjZjZz9rlkFoS+5hbUhj5eJ3iP0ZWgnjuu2M5 +Z0Ux8dxx5pBhNUioXEv8USaK1SKXJLduqgZaS1KsV60oVmh/PN9lXw0y0+v2 +KbWKohxD6OIl32pQsA3b1jQmiil0dT/B5GrQWrKo+05LDNsc1Dqreqphc8Tq +Uc0OMVwpIUmK+9RAspOV0dP5VVhmXBnI1K4F2tVuGvc/qzFVf/9A3MZaqBZ1 ++q6xYjU6LNsfcJdZC8+fetdmya7GLuc933Q31YK8QwTDwXI1/jcGhd+ca6HF +7vzSntOr8SHt2hcyshYWzee6u5jiGLbrronFtVrILIuqXDQXx/aSmgDBBur7 +pVwpag7iaPmy8vKzm7Vge5/POJ0tjt81J8O33KuFAlOizjZDHIUvdqmseVYL +G9HmVOdrcWzbsO/v7FQthOsX+7QnSOD9gk0bGxQ5YF0kMGuTJoFuPvm2j9Zx +gLEsOqU7TwKrTKvnX6hyoKfXhfOsXAIX8paunNHkwPqwlTyvuiVwT+lLg69G +HBgr21/2lSaJZe27yre4cMBTzP7LmjpJDDfpnY9J4IDWoab4czclkbY3sEPu +KAf4RtauprdJ4ielee22ZA401PCA4qAkukV7PeZK58Bqm4bMDX8lke9QnZTd +KWr9eHntTTY0fL8b9UwqOWA2tRAV8o6GxRq/ss73cOCgZa7y3Qkauhdasbue +cqC6WG1IdJ6G/tdezH/v5YCE0zb9Bt41eCKtztl0kAMTN+5/51m/Bm1ut/LW +veVATkJmxOkDa/C5vUT0/AwHRlYphtzjl0J//fdJgkIkiIfelhYXl8JHGnal +fcIk2D507QogpPCU5crUfFES6qNSVQW1pHDH4PQVMXESjr+eHndzlcIVqus9 +PkiToHm5aefUBSkUtLcvnVImIZ7p4EvbKI1iuvb1hSYkWHqf+6pnIo3uJ7ax +aGYkCMR9PuJsK40dqRze3E0kFLYeLcvcJo0C19kh0ZYk3LBu/Lz0mDR+jahP +IuxJmHaVi/w2KI0uBR/C611JuB4Vtkx4VBqN66KTf7iRcLiwOX/9pDReP6vz +SdeDhJVvtjYFcMtg7z7ydLkXCUo707jeKFM+nXrXZzsJ3vvmjj86JIOfxhTb +pHeToHDKRGr8qAyqnvHhVwgiqfM7cWVZpgye/dp5ZW0wCVG/1/WYlMggY0Jl +UT6UhLwj3qsaHslgyONb4zN7SfAsrSx7/lwGaVEmQsPhJDAe/NCbfSODP7um +clsiSKjly3FXn5PBX039txIjSXiU9eB8qbQsNr9Mq3h5kIScOjGNViVZDFJd ++roiigT3Pt+WNxqymHv4w4GIQySMSfweXWMui563BN/8jiaBp2iDcnYI9f7p +iuyRWBI67sY01RyQxRCzBd6cOBIy33XYdiXIore99meIJ0FGiR3Ke0oWl1Q0 +z2ckkGBQffrq4duy+HbPTWPuoySY9XcvTj6UxeOr7NhplO25llj4PJVFRzXG +HtEkEvwcQwbhPbXfjkAziWQSzA/RY+P+JVCmyO3L7xQSOgVvXtzIR6DZhokd +IcdI2FLi8nBagMD+Dwe7hyl7dKUK+0oQyOLfE1h7nIQw2fmLxioEHuP4jmum +kTBXl/nwpzqB87s9xlIpR1mqfOFoE8jNpT/0lvLRPdt0GUYE/qy+UJiYTgLf +0l/uQyYErlInQ55QzizIi822IHCDY5XemgwSClo7HnI7EEiWhHJKKcu6sr80 +OhM4bNni94FyycRf4XB3AqMOiAjJnyChZpWOxzs/Av+WtrmdpKxd8Tj2zC4C +74s3/uig3GgUWPJfMIGNv9pzf1O+t/P8l9ZIAqvUdjxwySTB6re+SPQhAuVe +JfvEUu7O7NXVjiOw7t709xLKTgqhHhOJBC4NCM56QHmwYXlcyTECf/F3qn6k +7G1fUuKZQaAip7+DJ4uE0RGjdrEcAjfxbQ+Sphywf/DLo1MEthzXF9GmPLki +QuRoIYHrvNY3W1AOLxLQYxUTeMZfOMSV8g/tyx5zpQRuZl5V2EH5cLtp3JUK +Avn1Po2GUebxflXCrqHe9z5SdYByytcD7dJXCTQNd4mJoSyQLDrZd4Oq52dd +11jKOWuqRTKaCbT6+pN1mLJEraWeeQuBY7v2qUdRPmv2zuNPG4FCo7Fq4ZQZ +gzFx9Z0EZldNbwygXB4sURrSQ2DMrfOOnpTVuOvaFfsIvPKQfciWMnnSbvLV +IIFGqlJX9SlvVBkTOfWKqvevwkU5ys23E/Q2vyOw71eL6wrKJk7SnsvGCGQX +BbRNUef3YOx63O0JAp0Fgi2eULaNcSzdP0PgiGTFcA3lp8Jf2tXnCbQw/5OU +SnlrWfLkxwUCde9bWPhTHjZgiBb9JdAjki1jQHn745t6rkvo2PhBl5+fctCP +mbiH/HTkOR2pU0HV32DPjtUfROhY1qjWGUqZd3yokkeCji20vAUNyqUvWp8b +Meho8umnchXVbxFOG4M8legoZ8Nc70/ZpKvqnyhVOg713HgsQfnVrTzVa7p0 +fK0+O7Of6ucqPb6Wp4Z0XAV/IxiUo2oPb51GOjoMDxe0U/Ow+sLOBBUbOtYv +J5/xU958VH+g2IeOZ8fZtBBqvmT+XAm+7U/HkhdFvYvU/E1EMnheBtDR4PNy +w+OUU3atWC8RQUfep/LCp6n5vWPz8khGCh2Hf43wnKDmPeOeg2RVOh1tlkzi +EsqerLbq9mw6Vjk3akVS+fBzfc3gkrN07EoPgy2JVP6LxKsf4tBxESOFX1J5 +w5U6dy+/no6e2eUyGyl38wS61zfR0dac/fkElU+75xyPztyn4xnevQ91qPwq +GZB/sXOIjsS1ujp3Kt9Wn3+Y5MTDQA8hu118VF6OirOk9vIykB0VtERzH9Uv +mRzOCX4GaqabRrhQ+bo5oWC4Q5yBdhbQm0flcQo7SNNYlYFny0obJkOo/aoI +vVJzZuDX02wjvp0kzJ+lxWu5M1BFeyZ/yQ4SZgUV5PV9GNhn+ejHL39qvr7p +B5oFMHDD8+iut9T/YqTJb949hoFcD2DymDeVtzbXBVJKGShbr6Ji50z1X/Nd +TnoFA6983h0u4UTlg/ojp5waBjIH9/W9cSThlujbgnMNDIy2XTOxawu1/xd8 +Ste6GNi8n5XiYkPl1W5vGJlj4HdRtwvlSMKpl7tGPi4wUFzkpLw5kJC7Ofzo +l78MNDOo63vDouqjldL5Y7kc0jo/tvMbkpDwi7NVUEYO19p2yZrrUOeb+m8Y +01wO/1k7WaOxjgRmZVXRyZNy+OqK0fSiAAkviMrzm87I4U/FF92+/FR/nbx8 +bva8HLYdtNzWuoL6v8aXFTpelkNFf3pRLC9VX9eifIGbcuhWzKkb/oeEdf/m +Zia9lcNvWtnKyrPUfcbnUFykqjxK6mQE0vo5MCNivc2lRR6t5f59kHWSAwNB +jJ7AB/IoQZoNMnM5cKdtAWIfyeOk0uuM91kcyIyqlC1/Lo+hSbbj6tT9aMPI +ytc/x+WxUVM9vfwIB0I4j73OiiqggqjqS+UwDoxvdvYY9VdAXxP5xMMWHBhN +2+ayd5kiTnf65TZQ9z+rqf1W73WV0Jd21mGrXi1M+PGGX41di5LWJ7TfVFVT +93lx7uSWdajUk5x16VEViHQpZtROKeO2sGybS7MVIJVSs0VXVxV7J8Yu7H1f +Dvkq+kKiO9Uwa8eSutZvZdBBM9b5lrUeJU76vvYQKAUDqZZM9efqOHTjkvKf +5RdBgOdChG/CBoza7DNQrFcMMvGyTDdFDVQX0/1P6PI5WK7gWe/4QAMVaLI0 +S+UzsJ4lWbPfSxO9jj276SidD3tfibRac2nhFd6EgomVeTD1Lc3ZKl8Lh8V0 +bu8MzgYL9bYCKzVtDHnD35Molgm3vhn++t6tjf/9STgrnJkKIaqaQ0/YOtjs +/v5Qa0MysCb9e92W6+IpZsTCgeWJsElewo7/gi5eMwhVCeCOh7Vxxw+06Olh +kfK/WmqPo0GZrX9bYUgPH6lmLqWN7Qf2rV2JV/dsxJzpaprNj3C4XdTrP7NK +HyNdb8synMJgtvzvd/Xr+vh2vUpeTHEgfHAxLzrWoI95Y9P8U2mBMLAk3fJd +kz46PZNcFXIgEJq20U6fvKOPXuNqdbmbAyFBQsdgsV0fZZLGQo78CQChlMDo +jmF9ZAcFT77xDgDVnX1cbG4D5I+Qvha0bhf4KVQuL7AzwMAWY2/HUTZE3fcO +VNxigH/k5pSin7Ahky3SSToa4Oexa1/qbrHhZunBtM6tBuh5rsHW7jQbxBQt +BRd9DfDlmt4Ixc1saFN8L7Yt0gA5OTtcdjf7g/JaWULxvAF6qX/UXlbiBzPK +ObrktAG67Nsu+PiULww8wk2i3wzwUM2LQeNjvnAnZPK/iDkDvP47nLgd5QsZ +pNUe3QUDDN7CWT7o5QvKBlxVjTyGGDpaeuGYvC9stwqmt642xPHCt5cG6rZB +706Llb1MQxT13BLDe9UHbpT8ejuXYojZAszmvCRP0DWN+G6daohLDomtfR7i +CdfeTqwsSjdEltnolNJWTyBlXulZZxuiiVBn0F8lT6jKv5N+7gzlRfOf0R0e +UJR2VN+i2hBburW2XhbxgGMRgln5zwzRXWf6WWyNG7ibyaGhDBMvm66YmpfY +Cou9vAKtBBNLuy+o5fBshSL25AtrOSZ+8+L9ipMu8CGpYb/7WibeFQwZ7ml1 +gb3tm2sOajKxeo3B+J1QFzhuHy1zw5yJRk67s/o7nKHRte+3digTxy/GH0hP +d4I1wckN6+8wsUf1aHOxiSNk/N2hk9rCRNvLf2qCNR2BO9uc8/EeEx949ewx +ZzjCeP2/l4vamSjQjcYy3I7QyJWYL/KMiSqBxcSOFgdwz43bP/+eiU+VCg5u +3uQA+U0HdW6tYGFS+JymvdMWWMUXxLHbysLEd3YPgpTtoMQ0JmrajYWOJru5 ++1fagWZMhmmOJwu1BSLkPadswX66tm/Al4URT3Lb66/aQtLzuZ9+QSy80fJx +SyXawo8LsSZR8Sx8t87ENNbLBoYMc56VVbJQ1s220azCCnbtKym0qmbhdOBy +zdETVjBffY09UcvCsd/FfIX7rECEMfBdo56FxRW9mU7GVmDDKy3VfIeFe1zG +ez8MWsLN3jL/Z30szDMOjosVtARrgRtqkQMsFI4jlxXOW8CARfu8xAsW+h1b +uPX4pQXMNn5O8X7DwpGo33ujqyxArXjDlU/jLKzfy/o0Zm0BN4eMI9O+sHDh +Y9PYTU0LsBb7D9SnWThUZ5x4iWYBO5L3PYmYY2GcsJn5nXFzmL2TVCD+g7Ki +veXkU3NIWDjl17jAQu/MqLOaTeYgpH1Z1WuRWp+4opV+0RzOBTfO/f3LQlfs ++7GYag7/A4Ur9HA= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "PlotRange" -> {{0, 30}, {0., 0.07253261474299416}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +14438,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 +14466,8 @@ JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.22160540372702894`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07253261474299416}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -8463,17 +14475,589 @@ JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913381496467495`*^9}, + CellChangeTimes->{3.9913381496467495`*^9, 3.99404257667377*^9}, CellLabel-> - "Out[304]=",ExpressionUUID->"23497d29-f516-664b-9ee0-ea8f6d88359c"] + "Out[162]=",ExpressionUUID->"57c6a507-c0f9-4c9b-ae62-f504e02d2ac7"] }, 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[163]:=",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:eJwV1nk0Ve0XB3AvvSVlVrgZzr2mMiRzuNfehswULzJL3IpMRSqRIaEMGUtS +UUgI9yiFNFAKkYoMaZJKkqFQKfU7v7/O+qx1znqe9ey9v+ehbw91ZHNzcXFJ +/sPF9f/n/Kv2e/KpJUZhbju993aZGPWekzhoPJAAYVcE/AKADrjq8XaJgWxw ++17ZaAwaELmlop9n4ALIr3S5rgjGIDwpnv2zn4TIdLeDv40c4PVN+9DZ/hZQ +Li/fHWHkC+by4y9n+p+Cf5pNjz9zD/zs18ub7h8B6/fJAhra8dBqeqnkyYVv +cLdxVC35QRZIvW74sF11EWzjJOdGRApALMinYpkpD2ZzGCdGPhVBtoZ5k70z +Lx5vuB4dMlACg/kb7swI8eNjjZjZz9rlkFoS+5hbUhj5eJ3iP0ZWgnjuu2M5 +Z0Ux8dxx5pBhNUioXEv8USaK1SKXJLduqgZaS1KsV60oVmh/PN9lXw0y0+v2 +KbWKohxD6OIl32pQsA3b1jQmiil0dT/B5GrQWrKo+05LDNsc1Dqreqphc8Tq +Uc0OMVwpIUmK+9RAspOV0dP5VVhmXBnI1K4F2tVuGvc/qzFVf/9A3MZaqBZ1 ++q6xYjU6LNsfcJdZC8+fetdmya7GLuc933Q31YK8QwTDwXI1/jcGhd+ca6HF +7vzSntOr8SHt2hcyshYWzee6u5jiGLbrronFtVrILIuqXDQXx/aSmgDBBur7 +pVwpag7iaPmy8vKzm7Vge5/POJ0tjt81J8O33KuFAlOizjZDHIUvdqmseVYL +G9HmVOdrcWzbsO/v7FQthOsX+7QnSOD9gk0bGxQ5YF0kMGuTJoFuPvm2j9Zx +gLEsOqU7TwKrTKvnX6hyoKfXhfOsXAIX8paunNHkwPqwlTyvuiVwT+lLg69G +HBgr21/2lSaJZe27yre4cMBTzP7LmjpJDDfpnY9J4IDWoab4czclkbY3sEPu +KAf4RtauprdJ4ielee22ZA401PCA4qAkukV7PeZK58Bqm4bMDX8lke9QnZTd +KWr9eHntTTY0fL8b9UwqOWA2tRAV8o6GxRq/ss73cOCgZa7y3Qkauhdasbue +cqC6WG1IdJ6G/tdezH/v5YCE0zb9Bt41eCKtztl0kAMTN+5/51m/Bm1ut/LW +veVATkJmxOkDa/C5vUT0/AwHRlYphtzjl0J//fdJgkIkiIfelhYXl8JHGnal +fcIk2D507QogpPCU5crUfFES6qNSVQW1pHDH4PQVMXESjr+eHndzlcIVqus9 +PkiToHm5aefUBSkUtLcvnVImIZ7p4EvbKI1iuvb1hSYkWHqf+6pnIo3uJ7ax +aGYkCMR9PuJsK40dqRze3E0kFLYeLcvcJo0C19kh0ZYk3LBu/Lz0mDR+jahP +IuxJmHaVi/w2KI0uBR/C611JuB4Vtkx4VBqN66KTf7iRcLiwOX/9pDReP6vz +SdeDhJVvtjYFcMtg7z7ydLkXCUo707jeKFM+nXrXZzsJ3vvmjj86JIOfxhTb +pHeToHDKRGr8qAyqnvHhVwgiqfM7cWVZpgye/dp5ZW0wCVG/1/WYlMggY0Jl +UT6UhLwj3qsaHslgyONb4zN7SfAsrSx7/lwGaVEmQsPhJDAe/NCbfSODP7um +clsiSKjly3FXn5PBX039txIjSXiU9eB8qbQsNr9Mq3h5kIScOjGNViVZDFJd ++roiigT3Pt+WNxqymHv4w4GIQySMSfweXWMui563BN/8jiaBp2iDcnYI9f7p +iuyRWBI67sY01RyQxRCzBd6cOBIy33XYdiXIore99meIJ0FGiR3Ke0oWl1Q0 +z2ckkGBQffrq4duy+HbPTWPuoySY9XcvTj6UxeOr7NhplO25llj4PJVFRzXG +HtEkEvwcQwbhPbXfjkAziWQSzA/RY+P+JVCmyO3L7xQSOgVvXtzIR6DZhokd +IcdI2FLi8nBagMD+Dwe7hyl7dKUK+0oQyOLfE1h7nIQw2fmLxioEHuP4jmum +kTBXl/nwpzqB87s9xlIpR1mqfOFoE8jNpT/0lvLRPdt0GUYE/qy+UJiYTgLf +0l/uQyYErlInQ55QzizIi822IHCDY5XemgwSClo7HnI7EEiWhHJKKcu6sr80 +OhM4bNni94FyycRf4XB3AqMOiAjJnyChZpWOxzs/Av+WtrmdpKxd8Tj2zC4C +74s3/uig3GgUWPJfMIGNv9pzf1O+t/P8l9ZIAqvUdjxwySTB6re+SPQhAuVe +JfvEUu7O7NXVjiOw7t709xLKTgqhHhOJBC4NCM56QHmwYXlcyTECf/F3qn6k +7G1fUuKZQaAip7+DJ4uE0RGjdrEcAjfxbQ+Sphywf/DLo1MEthzXF9GmPLki +QuRoIYHrvNY3W1AOLxLQYxUTeMZfOMSV8g/tyx5zpQRuZl5V2EH5cLtp3JUK +Avn1Po2GUebxflXCrqHe9z5SdYByytcD7dJXCTQNd4mJoSyQLDrZd4Oq52dd +11jKOWuqRTKaCbT6+pN1mLJEraWeeQuBY7v2qUdRPmv2zuNPG4FCo7Fq4ZQZ +gzFx9Z0EZldNbwygXB4sURrSQ2DMrfOOnpTVuOvaFfsIvPKQfciWMnnSbvLV +IIFGqlJX9SlvVBkTOfWKqvevwkU5ys23E/Q2vyOw71eL6wrKJk7SnsvGCGQX +BbRNUef3YOx63O0JAp0Fgi2eULaNcSzdP0PgiGTFcA3lp8Jf2tXnCbQw/5OU +SnlrWfLkxwUCde9bWPhTHjZgiBb9JdAjki1jQHn745t6rkvo2PhBl5+fctCP +mbiH/HTkOR2pU0HV32DPjtUfROhY1qjWGUqZd3yokkeCji20vAUNyqUvWp8b +Meho8umnchXVbxFOG4M8legoZ8Nc70/ZpKvqnyhVOg713HgsQfnVrTzVa7p0 +fK0+O7Of6ucqPb6Wp4Z0XAV/IxiUo2oPb51GOjoMDxe0U/Ow+sLOBBUbOtYv +J5/xU958VH+g2IeOZ8fZtBBqvmT+XAm+7U/HkhdFvYvU/E1EMnheBtDR4PNy +w+OUU3atWC8RQUfep/LCp6n5vWPz8khGCh2Hf43wnKDmPeOeg2RVOh1tlkzi +EsqerLbq9mw6Vjk3akVS+fBzfc3gkrN07EoPgy2JVP6LxKsf4tBxESOFX1J5 +w5U6dy+/no6e2eUyGyl38wS61zfR0dac/fkElU+75xyPztyn4xnevQ91qPwq +GZB/sXOIjsS1ujp3Kt9Wn3+Y5MTDQA8hu118VF6OirOk9vIykB0VtERzH9Uv +mRzOCX4GaqabRrhQ+bo5oWC4Q5yBdhbQm0flcQo7SNNYlYFny0obJkOo/aoI +vVJzZuDX02wjvp0kzJ+lxWu5M1BFeyZ/yQ4SZgUV5PV9GNhn+ejHL39qvr7p +B5oFMHDD8+iut9T/YqTJb949hoFcD2DymDeVtzbXBVJKGShbr6Ji50z1X/Nd +TnoFA6983h0u4UTlg/ojp5waBjIH9/W9cSThlujbgnMNDIy2XTOxawu1/xd8 +Ste6GNi8n5XiYkPl1W5vGJlj4HdRtwvlSMKpl7tGPi4wUFzkpLw5kJC7Ofzo +l78MNDOo63vDouqjldL5Y7kc0jo/tvMbkpDwi7NVUEYO19p2yZrrUOeb+m8Y +01wO/1k7WaOxjgRmZVXRyZNy+OqK0fSiAAkviMrzm87I4U/FF92+/FR/nbx8 +bva8HLYdtNzWuoL6v8aXFTpelkNFf3pRLC9VX9eifIGbcuhWzKkb/oeEdf/m +Zia9lcNvWtnKyrPUfcbnUFykqjxK6mQE0vo5MCNivc2lRR6t5f59kHWSAwNB +jJ7AB/IoQZoNMnM5cKdtAWIfyeOk0uuM91kcyIyqlC1/Lo+hSbbj6tT9aMPI +ytc/x+WxUVM9vfwIB0I4j73OiiqggqjqS+UwDoxvdvYY9VdAXxP5xMMWHBhN +2+ayd5kiTnf65TZQ9z+rqf1W73WV0Jd21mGrXi1M+PGGX41di5LWJ7TfVFVT +93lx7uSWdajUk5x16VEViHQpZtROKeO2sGybS7MVIJVSs0VXVxV7J8Yu7H1f +Dvkq+kKiO9Uwa8eSutZvZdBBM9b5lrUeJU76vvYQKAUDqZZM9efqOHTjkvKf +5RdBgOdChG/CBoza7DNQrFcMMvGyTDdFDVQX0/1P6PI5WK7gWe/4QAMVaLI0 +S+UzsJ4lWbPfSxO9jj276SidD3tfibRac2nhFd6EgomVeTD1Lc3ZKl8Lh8V0 +bu8MzgYL9bYCKzVtDHnD35Molgm3vhn++t6tjf/9STgrnJkKIaqaQ0/YOtjs +/v5Qa0MysCb9e92W6+IpZsTCgeWJsElewo7/gi5eMwhVCeCOh7Vxxw+06Olh +kfK/WmqPo0GZrX9bYUgPH6lmLqWN7Qf2rV2JV/dsxJzpaprNj3C4XdTrP7NK +HyNdb8synMJgtvzvd/Xr+vh2vUpeTHEgfHAxLzrWoI95Y9P8U2mBMLAk3fJd +kz46PZNcFXIgEJq20U6fvKOPXuNqdbmbAyFBQsdgsV0fZZLGQo78CQChlMDo +jmF9ZAcFT77xDgDVnX1cbG4D5I+Qvha0bhf4KVQuL7AzwMAWY2/HUTZE3fcO +VNxigH/k5pSin7Ahky3SSToa4Oexa1/qbrHhZunBtM6tBuh5rsHW7jQbxBQt +BRd9DfDlmt4Ixc1saFN8L7Yt0gA5OTtcdjf7g/JaWULxvAF6qX/UXlbiBzPK +ObrktAG67Nsu+PiULww8wk2i3wzwUM2LQeNjvnAnZPK/iDkDvP47nLgd5QsZ +pNUe3QUDDN7CWT7o5QvKBlxVjTyGGDpaeuGYvC9stwqmt642xPHCt5cG6rZB +706Llb1MQxT13BLDe9UHbpT8ejuXYojZAszmvCRP0DWN+G6daohLDomtfR7i +CdfeTqwsSjdEltnolNJWTyBlXulZZxuiiVBn0F8lT6jKv5N+7gzlRfOf0R0e +UJR2VN+i2hBburW2XhbxgGMRgln5zwzRXWf6WWyNG7ibyaGhDBMvm66YmpfY +Cou9vAKtBBNLuy+o5fBshSL25AtrOSZ+8+L9ipMu8CGpYb/7WibeFQwZ7ml1 +gb3tm2sOajKxeo3B+J1QFzhuHy1zw5yJRk67s/o7nKHRte+3digTxy/GH0hP +d4I1wckN6+8wsUf1aHOxiSNk/N2hk9rCRNvLf2qCNR2BO9uc8/EeEx949ewx +ZzjCeP2/l4vamSjQjcYy3I7QyJWYL/KMiSqBxcSOFgdwz43bP/+eiU+VCg5u +3uQA+U0HdW6tYGFS+JymvdMWWMUXxLHbysLEd3YPgpTtoMQ0JmrajYWOJru5 ++1fagWZMhmmOJwu1BSLkPadswX66tm/Al4URT3Lb66/aQtLzuZ9+QSy80fJx +SyXawo8LsSZR8Sx8t87ENNbLBoYMc56VVbJQ1s220azCCnbtKym0qmbhdOBy +zdETVjBffY09UcvCsd/FfIX7rECEMfBdo56FxRW9mU7GVmDDKy3VfIeFe1zG +ez8MWsLN3jL/Z30szDMOjosVtARrgRtqkQMsFI4jlxXOW8CARfu8xAsW+h1b +uPX4pQXMNn5O8X7DwpGo33ujqyxArXjDlU/jLKzfy/o0Zm0BN4eMI9O+sHDh +Y9PYTU0LsBb7D9SnWThUZ5x4iWYBO5L3PYmYY2GcsJn5nXFzmL2TVCD+g7Ki +veXkU3NIWDjl17jAQu/MqLOaTeYgpH1Z1WuRWp+4opV+0RzOBTfO/f3LQlfs ++7GYag7/A4Ur9HA= + "]]}, + 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:eJwV1nk0Ve0XB3AvvSVlVrgZzr2mMiRzuNfehswULzJL3IpMRSqRIaEMGUtS +UUgI9yiFNFAKkYoMaZJKkqFQKfU7v7/O+qx1znqe9ey9v+ehbw91ZHNzcXFJ +/sPF9f/n/Kv2e/KpJUZhbju993aZGPWekzhoPJAAYVcE/AKADrjq8XaJgWxw ++17ZaAwaELmlop9n4ALIr3S5rgjGIDwpnv2zn4TIdLeDv40c4PVN+9DZ/hZQ +Li/fHWHkC+by4y9n+p+Cf5pNjz9zD/zs18ub7h8B6/fJAhra8dBqeqnkyYVv +cLdxVC35QRZIvW74sF11EWzjJOdGRApALMinYpkpD2ZzGCdGPhVBtoZ5k70z +Lx5vuB4dMlACg/kb7swI8eNjjZjZz9rlkFoS+5hbUhj5eJ3iP0ZWgnjuu2M5 +Z0Ux8dxx5pBhNUioXEv8USaK1SKXJLduqgZaS1KsV60oVmh/PN9lXw0y0+v2 +KbWKohxD6OIl32pQsA3b1jQmiil0dT/B5GrQWrKo+05LDNsc1Dqreqphc8Tq +Uc0OMVwpIUmK+9RAspOV0dP5VVhmXBnI1K4F2tVuGvc/qzFVf/9A3MZaqBZ1 ++q6xYjU6LNsfcJdZC8+fetdmya7GLuc933Q31YK8QwTDwXI1/jcGhd+ca6HF +7vzSntOr8SHt2hcyshYWzee6u5jiGLbrronFtVrILIuqXDQXx/aSmgDBBur7 +pVwpag7iaPmy8vKzm7Vge5/POJ0tjt81J8O33KuFAlOizjZDHIUvdqmseVYL +G9HmVOdrcWzbsO/v7FQthOsX+7QnSOD9gk0bGxQ5YF0kMGuTJoFuPvm2j9Zx +gLEsOqU7TwKrTKvnX6hyoKfXhfOsXAIX8paunNHkwPqwlTyvuiVwT+lLg69G +HBgr21/2lSaJZe27yre4cMBTzP7LmjpJDDfpnY9J4IDWoab4czclkbY3sEPu +KAf4RtauprdJ4ielee22ZA401PCA4qAkukV7PeZK58Bqm4bMDX8lke9QnZTd +KWr9eHntTTY0fL8b9UwqOWA2tRAV8o6GxRq/ss73cOCgZa7y3Qkauhdasbue +cqC6WG1IdJ6G/tdezH/v5YCE0zb9Bt41eCKtztl0kAMTN+5/51m/Bm1ut/LW +veVATkJmxOkDa/C5vUT0/AwHRlYphtzjl0J//fdJgkIkiIfelhYXl8JHGnal +fcIk2D507QogpPCU5crUfFES6qNSVQW1pHDH4PQVMXESjr+eHndzlcIVqus9 +PkiToHm5aefUBSkUtLcvnVImIZ7p4EvbKI1iuvb1hSYkWHqf+6pnIo3uJ7ax +aGYkCMR9PuJsK40dqRze3E0kFLYeLcvcJo0C19kh0ZYk3LBu/Lz0mDR+jahP +IuxJmHaVi/w2KI0uBR/C611JuB4Vtkx4VBqN66KTf7iRcLiwOX/9pDReP6vz +SdeDhJVvtjYFcMtg7z7ydLkXCUo707jeKFM+nXrXZzsJ3vvmjj86JIOfxhTb +pHeToHDKRGr8qAyqnvHhVwgiqfM7cWVZpgye/dp5ZW0wCVG/1/WYlMggY0Jl +UT6UhLwj3qsaHslgyONb4zN7SfAsrSx7/lwGaVEmQsPhJDAe/NCbfSODP7um +clsiSKjly3FXn5PBX039txIjSXiU9eB8qbQsNr9Mq3h5kIScOjGNViVZDFJd ++roiigT3Pt+WNxqymHv4w4GIQySMSfweXWMui563BN/8jiaBp2iDcnYI9f7p +iuyRWBI67sY01RyQxRCzBd6cOBIy33XYdiXIore99meIJ0FGiR3Ke0oWl1Q0 +z2ckkGBQffrq4duy+HbPTWPuoySY9XcvTj6UxeOr7NhplO25llj4PJVFRzXG +HtEkEvwcQwbhPbXfjkAziWQSzA/RY+P+JVCmyO3L7xQSOgVvXtzIR6DZhokd +IcdI2FLi8nBagMD+Dwe7hyl7dKUK+0oQyOLfE1h7nIQw2fmLxioEHuP4jmum +kTBXl/nwpzqB87s9xlIpR1mqfOFoE8jNpT/0lvLRPdt0GUYE/qy+UJiYTgLf +0l/uQyYErlInQ55QzizIi822IHCDY5XemgwSClo7HnI7EEiWhHJKKcu6sr80 +OhM4bNni94FyycRf4XB3AqMOiAjJnyChZpWOxzs/Av+WtrmdpKxd8Tj2zC4C +74s3/uig3GgUWPJfMIGNv9pzf1O+t/P8l9ZIAqvUdjxwySTB6re+SPQhAuVe +JfvEUu7O7NXVjiOw7t709xLKTgqhHhOJBC4NCM56QHmwYXlcyTECf/F3qn6k +7G1fUuKZQaAip7+DJ4uE0RGjdrEcAjfxbQ+Sphywf/DLo1MEthzXF9GmPLki +QuRoIYHrvNY3W1AOLxLQYxUTeMZfOMSV8g/tyx5zpQRuZl5V2EH5cLtp3JUK +Avn1Po2GUebxflXCrqHe9z5SdYByytcD7dJXCTQNd4mJoSyQLDrZd4Oq52dd +11jKOWuqRTKaCbT6+pN1mLJEraWeeQuBY7v2qUdRPmv2zuNPG4FCo7Fq4ZQZ +gzFx9Z0EZldNbwygXB4sURrSQ2DMrfOOnpTVuOvaFfsIvPKQfciWMnnSbvLV +IIFGqlJX9SlvVBkTOfWKqvevwkU5ys23E/Q2vyOw71eL6wrKJk7SnsvGCGQX +BbRNUef3YOx63O0JAp0Fgi2eULaNcSzdP0PgiGTFcA3lp8Jf2tXnCbQw/5OU +SnlrWfLkxwUCde9bWPhTHjZgiBb9JdAjki1jQHn745t6rkvo2PhBl5+fctCP +mbiH/HTkOR2pU0HV32DPjtUfROhY1qjWGUqZd3yokkeCji20vAUNyqUvWp8b +Meho8umnchXVbxFOG4M8legoZ8Nc70/ZpKvqnyhVOg713HgsQfnVrTzVa7p0 +fK0+O7Of6ucqPb6Wp4Z0XAV/IxiUo2oPb51GOjoMDxe0U/Ow+sLOBBUbOtYv +J5/xU958VH+g2IeOZ8fZtBBqvmT+XAm+7U/HkhdFvYvU/E1EMnheBtDR4PNy +w+OUU3atWC8RQUfep/LCp6n5vWPz8khGCh2Hf43wnKDmPeOeg2RVOh1tlkzi +EsqerLbq9mw6Vjk3akVS+fBzfc3gkrN07EoPgy2JVP6LxKsf4tBxESOFX1J5 +w5U6dy+/no6e2eUyGyl38wS61zfR0dac/fkElU+75xyPztyn4xnevQ91qPwq +GZB/sXOIjsS1ujp3Kt9Wn3+Y5MTDQA8hu118VF6OirOk9vIykB0VtERzH9Uv +mRzOCX4GaqabRrhQ+bo5oWC4Q5yBdhbQm0flcQo7SNNYlYFny0obJkOo/aoI +vVJzZuDX02wjvp0kzJ+lxWu5M1BFeyZ/yQ4SZgUV5PV9GNhn+ejHL39qvr7p +B5oFMHDD8+iut9T/YqTJb949hoFcD2DymDeVtzbXBVJKGShbr6Ji50z1X/Nd +TnoFA6983h0u4UTlg/ojp5waBjIH9/W9cSThlujbgnMNDIy2XTOxawu1/xd8 +Ste6GNi8n5XiYkPl1W5vGJlj4HdRtwvlSMKpl7tGPi4wUFzkpLw5kJC7Ofzo +l78MNDOo63vDouqjldL5Y7kc0jo/tvMbkpDwi7NVUEYO19p2yZrrUOeb+m8Y +01wO/1k7WaOxjgRmZVXRyZNy+OqK0fSiAAkviMrzm87I4U/FF92+/FR/nbx8 +bva8HLYdtNzWuoL6v8aXFTpelkNFf3pRLC9VX9eifIGbcuhWzKkb/oeEdf/m +Zia9lcNvWtnKyrPUfcbnUFykqjxK6mQE0vo5MCNivc2lRR6t5f59kHWSAwNB +jJ7AB/IoQZoNMnM5cKdtAWIfyeOk0uuM91kcyIyqlC1/Lo+hSbbj6tT9aMPI +ytc/x+WxUVM9vfwIB0I4j73OiiqggqjqS+UwDoxvdvYY9VdAXxP5xMMWHBhN +2+ayd5kiTnf65TZQ9z+rqf1W73WV0Jd21mGrXi1M+PGGX41di5LWJ7TfVFVT +93lx7uSWdajUk5x16VEViHQpZtROKeO2sGybS7MVIJVSs0VXVxV7J8Yu7H1f +Dvkq+kKiO9Uwa8eSutZvZdBBM9b5lrUeJU76vvYQKAUDqZZM9efqOHTjkvKf +5RdBgOdChG/CBoza7DNQrFcMMvGyTDdFDVQX0/1P6PI5WK7gWe/4QAMVaLI0 +S+UzsJ4lWbPfSxO9jj276SidD3tfibRac2nhFd6EgomVeTD1Lc3ZKl8Lh8V0 +bu8MzgYL9bYCKzVtDHnD35Molgm3vhn++t6tjf/9STgrnJkKIaqaQ0/YOtjs +/v5Qa0MysCb9e92W6+IpZsTCgeWJsElewo7/gi5eMwhVCeCOh7Vxxw+06Olh +kfK/WmqPo0GZrX9bYUgPH6lmLqWN7Qf2rV2JV/dsxJzpaprNj3C4XdTrP7NK +HyNdb8synMJgtvzvd/Xr+vh2vUpeTHEgfHAxLzrWoI95Y9P8U2mBMLAk3fJd +kz46PZNcFXIgEJq20U6fvKOPXuNqdbmbAyFBQsdgsV0fZZLGQo78CQChlMDo +jmF9ZAcFT77xDgDVnX1cbG4D5I+Qvha0bhf4KVQuL7AzwMAWY2/HUTZE3fcO +VNxigH/k5pSin7Ahky3SSToa4Oexa1/qbrHhZunBtM6tBuh5rsHW7jQbxBQt +BRd9DfDlmt4Ixc1saFN8L7Yt0gA5OTtcdjf7g/JaWULxvAF6qX/UXlbiBzPK +ObrktAG67Nsu+PiULww8wk2i3wzwUM2LQeNjvnAnZPK/iDkDvP47nLgd5QsZ +pNUe3QUDDN7CWT7o5QvKBlxVjTyGGDpaeuGYvC9stwqmt642xPHCt5cG6rZB +706Llb1MQxT13BLDe9UHbpT8ejuXYojZAszmvCRP0DWN+G6daohLDomtfR7i +CdfeTqwsSjdEltnolNJWTyBlXulZZxuiiVBn0F8lT6jKv5N+7gzlRfOf0R0e +UJR2VN+i2hBburW2XhbxgGMRgln5zwzRXWf6WWyNG7ibyaGhDBMvm66YmpfY +Cou9vAKtBBNLuy+o5fBshSL25AtrOSZ+8+L9ipMu8CGpYb/7WibeFQwZ7ml1 +gb3tm2sOajKxeo3B+J1QFzhuHy1zw5yJRk67s/o7nKHRte+3digTxy/GH0hP +d4I1wckN6+8wsUf1aHOxiSNk/N2hk9rCRNvLf2qCNR2BO9uc8/EeEx949ewx +ZzjCeP2/l4vamSjQjcYy3I7QyJWYL/KMiSqBxcSOFgdwz43bP/+eiU+VCg5u +3uQA+U0HdW6tYGFS+JymvdMWWMUXxLHbysLEd3YPgpTtoMQ0JmrajYWOJru5 ++1fagWZMhmmOJwu1BSLkPadswX66tm/Al4URT3Lb66/aQtLzuZ9+QSy80fJx +SyXawo8LsSZR8Sx8t87ENNbLBoYMc56VVbJQ1s220azCCnbtKym0qmbhdOBy +zdETVjBffY09UcvCsd/FfIX7rECEMfBdo56FxRW9mU7GVmDDKy3VfIeFe1zG +ez8MWsLN3jL/Z30szDMOjosVtARrgRtqkQMsFI4jlxXOW8CARfu8xAsW+h1b +uPX4pQXMNn5O8X7DwpGo33ujqyxArXjDlU/jLKzfy/o0Zm0BN4eMI9O+sHDh +Y9PYTU0LsBb7D9SnWThUZ5x4iWYBO5L3PYmYY2GcsJn5nXFzmL2TVCD+g7Ki +veXkU3NIWDjl17jAQu/MqLOaTeYgpH1Z1WuRWp+4opV+0RzOBTfO/f3LQlfs ++7GYag7/A4Ur9HA= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07253261474299416}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.07253261474299416}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJwV1nk0Ve0XB3AvvSVlVrgZzr2mMiRzuNfehswULzJL3IpMRSqRIaEMGUtS +UUgI9yiFNFAKkYoMaZJKkqFQKfU7v7/O+qx1znqe9ey9v+ehbw91ZHNzcXFJ +/sPF9f/n/Kv2e/KpJUZhbju993aZGPWekzhoPJAAYVcE/AKADrjq8XaJgWxw ++17ZaAwaELmlop9n4ALIr3S5rgjGIDwpnv2zn4TIdLeDv40c4PVN+9DZ/hZQ +Li/fHWHkC+by4y9n+p+Cf5pNjz9zD/zs18ub7h8B6/fJAhra8dBqeqnkyYVv +cLdxVC35QRZIvW74sF11EWzjJOdGRApALMinYpkpD2ZzGCdGPhVBtoZ5k70z +Lx5vuB4dMlACg/kb7swI8eNjjZjZz9rlkFoS+5hbUhj5eJ3iP0ZWgnjuu2M5 +Z0Ux8dxx5pBhNUioXEv8USaK1SKXJLduqgZaS1KsV60oVmh/PN9lXw0y0+v2 +KbWKohxD6OIl32pQsA3b1jQmiil0dT/B5GrQWrKo+05LDNsc1Dqreqphc8Tq +Uc0OMVwpIUmK+9RAspOV0dP5VVhmXBnI1K4F2tVuGvc/qzFVf/9A3MZaqBZ1 ++q6xYjU6LNsfcJdZC8+fetdmya7GLuc933Q31YK8QwTDwXI1/jcGhd+ca6HF +7vzSntOr8SHt2hcyshYWzee6u5jiGLbrronFtVrILIuqXDQXx/aSmgDBBur7 +pVwpag7iaPmy8vKzm7Vge5/POJ0tjt81J8O33KuFAlOizjZDHIUvdqmseVYL +G9HmVOdrcWzbsO/v7FQthOsX+7QnSOD9gk0bGxQ5YF0kMGuTJoFuPvm2j9Zx +gLEsOqU7TwKrTKvnX6hyoKfXhfOsXAIX8paunNHkwPqwlTyvuiVwT+lLg69G +HBgr21/2lSaJZe27yre4cMBTzP7LmjpJDDfpnY9J4IDWoab4czclkbY3sEPu +KAf4RtauprdJ4ielee22ZA401PCA4qAkukV7PeZK58Bqm4bMDX8lke9QnZTd +KWr9eHntTTY0fL8b9UwqOWA2tRAV8o6GxRq/ss73cOCgZa7y3Qkauhdasbue +cqC6WG1IdJ6G/tdezH/v5YCE0zb9Bt41eCKtztl0kAMTN+5/51m/Bm1ut/LW +veVATkJmxOkDa/C5vUT0/AwHRlYphtzjl0J//fdJgkIkiIfelhYXl8JHGnal +fcIk2D507QogpPCU5crUfFES6qNSVQW1pHDH4PQVMXESjr+eHndzlcIVqus9 +PkiToHm5aefUBSkUtLcvnVImIZ7p4EvbKI1iuvb1hSYkWHqf+6pnIo3uJ7ax +aGYkCMR9PuJsK40dqRze3E0kFLYeLcvcJo0C19kh0ZYk3LBu/Lz0mDR+jahP +IuxJmHaVi/w2KI0uBR/C611JuB4Vtkx4VBqN66KTf7iRcLiwOX/9pDReP6vz +SdeDhJVvtjYFcMtg7z7ydLkXCUo707jeKFM+nXrXZzsJ3vvmjj86JIOfxhTb +pHeToHDKRGr8qAyqnvHhVwgiqfM7cWVZpgye/dp5ZW0wCVG/1/WYlMggY0Jl +UT6UhLwj3qsaHslgyONb4zN7SfAsrSx7/lwGaVEmQsPhJDAe/NCbfSODP7um +clsiSKjly3FXn5PBX039txIjSXiU9eB8qbQsNr9Mq3h5kIScOjGNViVZDFJd ++roiigT3Pt+WNxqymHv4w4GIQySMSfweXWMui563BN/8jiaBp2iDcnYI9f7p +iuyRWBI67sY01RyQxRCzBd6cOBIy33XYdiXIore99meIJ0FGiR3Ke0oWl1Q0 +z2ckkGBQffrq4duy+HbPTWPuoySY9XcvTj6UxeOr7NhplO25llj4PJVFRzXG +HtEkEvwcQwbhPbXfjkAziWQSzA/RY+P+JVCmyO3L7xQSOgVvXtzIR6DZhokd +IcdI2FLi8nBagMD+Dwe7hyl7dKUK+0oQyOLfE1h7nIQw2fmLxioEHuP4jmum +kTBXl/nwpzqB87s9xlIpR1mqfOFoE8jNpT/0lvLRPdt0GUYE/qy+UJiYTgLf +0l/uQyYErlInQ55QzizIi822IHCDY5XemgwSClo7HnI7EEiWhHJKKcu6sr80 +OhM4bNni94FyycRf4XB3AqMOiAjJnyChZpWOxzs/Av+WtrmdpKxd8Tj2zC4C +74s3/uig3GgUWPJfMIGNv9pzf1O+t/P8l9ZIAqvUdjxwySTB6re+SPQhAuVe +JfvEUu7O7NXVjiOw7t709xLKTgqhHhOJBC4NCM56QHmwYXlcyTECf/F3qn6k +7G1fUuKZQaAip7+DJ4uE0RGjdrEcAjfxbQ+Sphywf/DLo1MEthzXF9GmPLki +QuRoIYHrvNY3W1AOLxLQYxUTeMZfOMSV8g/tyx5zpQRuZl5V2EH5cLtp3JUK +Avn1Po2GUebxflXCrqHe9z5SdYByytcD7dJXCTQNd4mJoSyQLDrZd4Oq52dd +11jKOWuqRTKaCbT6+pN1mLJEraWeeQuBY7v2qUdRPmv2zuNPG4FCo7Fq4ZQZ +gzFx9Z0EZldNbwygXB4sURrSQ2DMrfOOnpTVuOvaFfsIvPKQfciWMnnSbvLV +IIFGqlJX9SlvVBkTOfWKqvevwkU5ys23E/Q2vyOw71eL6wrKJk7SnsvGCGQX +BbRNUef3YOx63O0JAp0Fgi2eULaNcSzdP0PgiGTFcA3lp8Jf2tXnCbQw/5OU +SnlrWfLkxwUCde9bWPhTHjZgiBb9JdAjki1jQHn745t6rkvo2PhBl5+fctCP +mbiH/HTkOR2pU0HV32DPjtUfROhY1qjWGUqZd3yokkeCji20vAUNyqUvWp8b +Meho8umnchXVbxFOG4M8legoZ8Nc70/ZpKvqnyhVOg713HgsQfnVrTzVa7p0 +fK0+O7Of6ucqPb6Wp4Z0XAV/IxiUo2oPb51GOjoMDxe0U/Ow+sLOBBUbOtYv +J5/xU958VH+g2IeOZ8fZtBBqvmT+XAm+7U/HkhdFvYvU/E1EMnheBtDR4PNy +w+OUU3atWC8RQUfep/LCp6n5vWPz8khGCh2Hf43wnKDmPeOeg2RVOh1tlkzi +EsqerLbq9mw6Vjk3akVS+fBzfc3gkrN07EoPgy2JVP6LxKsf4tBxESOFX1J5 +w5U6dy+/no6e2eUyGyl38wS61zfR0dac/fkElU+75xyPztyn4xnevQ91qPwq +GZB/sXOIjsS1ujp3Kt9Wn3+Y5MTDQA8hu118VF6OirOk9vIykB0VtERzH9Uv +mRzOCX4GaqabRrhQ+bo5oWC4Q5yBdhbQm0flcQo7SNNYlYFny0obJkOo/aoI +vVJzZuDX02wjvp0kzJ+lxWu5M1BFeyZ/yQ4SZgUV5PV9GNhn+ejHL39qvr7p +B5oFMHDD8+iut9T/YqTJb949hoFcD2DymDeVtzbXBVJKGShbr6Ji50z1X/Nd +TnoFA6983h0u4UTlg/ojp5waBjIH9/W9cSThlujbgnMNDIy2XTOxawu1/xd8 +Ste6GNi8n5XiYkPl1W5vGJlj4HdRtwvlSMKpl7tGPi4wUFzkpLw5kJC7Ofzo +l78MNDOo63vDouqjldL5Y7kc0jo/tvMbkpDwi7NVUEYO19p2yZrrUOeb+m8Y +01wO/1k7WaOxjgRmZVXRyZNy+OqK0fSiAAkviMrzm87I4U/FF92+/FR/nbx8 +bva8HLYdtNzWuoL6v8aXFTpelkNFf3pRLC9VX9eifIGbcuhWzKkb/oeEdf/m +Zia9lcNvWtnKyrPUfcbnUFykqjxK6mQE0vo5MCNivc2lRR6t5f59kHWSAwNB +jJ7AB/IoQZoNMnM5cKdtAWIfyeOk0uuM91kcyIyqlC1/Lo+hSbbj6tT9aMPI +ytc/x+WxUVM9vfwIB0I4j73OiiqggqjqS+UwDoxvdvYY9VdAXxP5xMMWHBhN +2+ayd5kiTnf65TZQ9z+rqf1W73WV0Jd21mGrXi1M+PGGX41di5LWJ7TfVFVT +93lx7uSWdajUk5x16VEViHQpZtROKeO2sGybS7MVIJVSs0VXVxV7J8Yu7H1f +Dvkq+kKiO9Uwa8eSutZvZdBBM9b5lrUeJU76vvYQKAUDqZZM9efqOHTjkvKf +5RdBgOdChG/CBoza7DNQrFcMMvGyTDdFDVQX0/1P6PI5WK7gWe/4QAMVaLI0 +S+UzsJ4lWbPfSxO9jj276SidD3tfibRac2nhFd6EgomVeTD1Lc3ZKl8Lh8V0 +bu8MzgYL9bYCKzVtDHnD35Molgm3vhn++t6tjf/9STgrnJkKIaqaQ0/YOtjs +/v5Qa0MysCb9e92W6+IpZsTCgeWJsElewo7/gi5eMwhVCeCOh7Vxxw+06Olh +kfK/WmqPo0GZrX9bYUgPH6lmLqWN7Qf2rV2JV/dsxJzpaprNj3C4XdTrP7NK +HyNdb8synMJgtvzvd/Xr+vh2vUpeTHEgfHAxLzrWoI95Y9P8U2mBMLAk3fJd +kz46PZNcFXIgEJq20U6fvKOPXuNqdbmbAyFBQsdgsV0fZZLGQo78CQChlMDo +jmF9ZAcFT77xDgDVnX1cbG4D5I+Qvha0bhf4KVQuL7AzwMAWY2/HUTZE3fcO +VNxigH/k5pSin7Ahky3SSToa4Oexa1/qbrHhZunBtM6tBuh5rsHW7jQbxBQt +BRd9DfDlmt4Ixc1saFN8L7Yt0gA5OTtcdjf7g/JaWULxvAF6qX/UXlbiBzPK +ObrktAG67Nsu+PiULww8wk2i3wzwUM2LQeNjvnAnZPK/iDkDvP47nLgd5QsZ +pNUe3QUDDN7CWT7o5QvKBlxVjTyGGDpaeuGYvC9stwqmt642xPHCt5cG6rZB +706Llb1MQxT13BLDe9UHbpT8ejuXYojZAszmvCRP0DWN+G6daohLDomtfR7i +CdfeTqwsSjdEltnolNJWTyBlXulZZxuiiVBn0F8lT6jKv5N+7gzlRfOf0R0e +UJR2VN+i2hBburW2XhbxgGMRgln5zwzRXWf6WWyNG7ibyaGhDBMvm66YmpfY +Cou9vAKtBBNLuy+o5fBshSL25AtrOSZ+8+L9ipMu8CGpYb/7WibeFQwZ7ml1 +gb3tm2sOajKxeo3B+J1QFzhuHy1zw5yJRk67s/o7nKHRte+3digTxy/GH0hP +d4I1wckN6+8wsUf1aHOxiSNk/N2hk9rCRNvLf2qCNR2BO9uc8/EeEx949ewx +ZzjCeP2/l4vamSjQjcYy3I7QyJWYL/KMiSqBxcSOFgdwz43bP/+eiU+VCg5u +3uQA+U0HdW6tYGFS+JymvdMWWMUXxLHbysLEd3YPgpTtoMQ0JmrajYWOJru5 ++1fagWZMhmmOJwu1BSLkPadswX66tm/Al4URT3Lb66/aQtLzuZ9+QSy80fJx +SyXawo8LsSZR8Sx8t87ENNbLBoYMc56VVbJQ1s220azCCnbtKym0qmbhdOBy +zdETVjBffY09UcvCsd/FfIX7rECEMfBdo56FxRW9mU7GVmDDKy3VfIeFe1zG +ez8MWsLN3jL/Z30szDMOjosVtARrgRtqkQMsFI4jlxXOW8CARfu8xAsW+h1b +uPX4pQXMNn5O8X7DwpGo33ujqyxArXjDlU/jLKzfy/o0Zm0BN4eMI9O+sHDh +Y9PYTU0LsBb7D9SnWThUZ5x4iWYBO5L3PYmYY2GcsJn5nXFzmL2TVCD+g7Ki +veXkU3NIWDjl17jAQu/MqLOaTeYgpH1Z1WuRWp+4opV+0RzOBTfO/f3LQlfs ++7GYag7/A4Ur9HA= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07253261474299416}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, + 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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.061043}}, + "Frame" -> {{False, 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.061043}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.061043}}, + "Frame" -> {{False, 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.07253261474299416}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994042576705583*^9}, + CellLabel-> + "Out[163]=",ExpressionUUID->"e7bee43a-4db0-4afa-9732-a62f373a4006"] +}, Open ]], Cell[CellGroupData[{ @@ -8484,7 +15068,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[{ @@ -8502,8 +15088,8 @@ Cell[BoxData[ SuperscriptBox[ RowBox[{"(", FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -8525,66 +15111,73 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[308]:=",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], + "In[164]:=",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.611115182999938`*^-175\\\", \ -\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ -54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ + "\"\\!\\(\\*FractionBox[\\\"6.005314033876639`*^-159\\\", \ +RowBox[{\\\"164243120455479739170682508554789627978361849045564433\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"45\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1696319446492554724542670438400000000000000000000000000\\\"}]]\\) 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, 164, 77, 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133920579224*^9, 3.994042576725582*^9}, CellLabel-> "During evaluation of \ -In[308]:=",ExpressionUUID->"100796fd-6fde-3c41-9088-c2d3ae2f8aeb"], +In[164]:=",ExpressionUUID->"0238c093-9b55-4671-b764-14d6faa3312d"], 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.006283982770102`*^-161\\\", \ +RowBox[{\\\"552513857212233842570175958778312308519209260189278753\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"48\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6418618000954093361543354777600000000000000000000000000\\\"}]]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 164, 78, 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133920579224*^9, 3.9940425767285*^9}, CellLabel-> "During evaluation of \ -In[308]:=",ExpressionUUID->"c91e75b4-9e2b-1e49-a5d5-453d5f87b5e3"], +In[164]:=",ExpressionUUID->"6f014b9b-69a4-4fe7-b1e0-555c8bf03443"], 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.6861856819933614`*^-164\\\", \ +RowBox[{\\\"192330073695578600598678251250730514595536743471887934\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"52\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3209261321198991532417980825600000000000000000000000000\\\"}]]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 164, 79, 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133920579224*^9, 3.994042576731282*^9}, CellLabel-> "During evaluation of \ -In[308]:=",ExpressionUUID->"5d8ad6a4-5b83-df49-8c4d-081081895528"], +In[164]:=",ExpressionUUID->"487cca75-826a-4027-9517-1bcc8645354f"], 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, 164, 80, 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133920579224*^9, 3.99404257673381*^9}, CellLabel-> "During evaluation of \ -In[308]:=",ExpressionUUID->"26eed7af-5e0a-e840-9956-caca06166010"], +In[164]:=",ExpressionUUID->"0884d157-7ea5-4f3b-ac59-4e1ef08d6bfe"], -Cell[BoxData["9.33220071900515`"], "Output", - CellChangeTimes->{3.9913392124888554`*^9}, +Cell[BoxData["10.153527558600308`"], "Output", + CellChangeTimes->{3.9913392124888554`*^9, 3.994042599437768*^9}, CellLabel-> - "Out[308]=",ExpressionUUID->"e4e35b92-e786-3044-bf1d-9c587b1357a2"] + "Out[164]=",ExpressionUUID->"b06b3b48-6049-4a20-9e79-b0ab8b452813"] }, Open ]], Cell[CellGroupData[{ @@ -8651,68 +15244,73 @@ 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[165]:=",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[\\\"4.9249085368186935`*^-201\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 165, 81, + 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392125258827`*^9, 3.994042599459454*^9}, CellLabel-> "During evaluation of \ -In[309]:=",ExpressionUUID->"6b65fc2b-3e1d-714d-aeb9-43978836a621"], +In[165]:=",ExpressionUUID->"ecde90dc-5335-43d6-9e30-b936e0a5d8e2"], 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[\\\"1.380233846943059`*^-205\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 165, 82, + 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392125258827`*^9, 3.9940425994628963`*^9}, CellLabel-> "During evaluation of \ -In[309]:=",ExpressionUUID->"c4736a05-b0e1-5e49-b581-f3ce4c83fe21"], +In[165]:=",ExpressionUUID->"f9b21153-ffdd-449c-874f-642487b06124"], 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[\\\"3.8681844708487185`*^-210\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034477221223196355\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"7\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8934564270838098005054611040868761600000000000000000000\\\"}]]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 165, 83, 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392125258827`*^9, 3.994042599466324*^9}, CellLabel-> "During evaluation of \ -In[309]:=",ExpressionUUID->"ae8eb83c-0205-8046-8445-e249896b7ee5"], +In[165]:=",ExpressionUUID->"f7a0b6a8-2e41-4561-854d-7c293cd77377"], 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, 165, 84, 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392125258827`*^9, 3.994042599469187*^9}, CellLabel-> "During evaluation of \ -In[309]:=",ExpressionUUID->"5072d590-62c3-7a47-ae1b-6dd617a0b9dc"], +In[165]:=",ExpressionUUID->"137a0426-c010-413e-b99a-a17c68f1fb7b"], -Cell[BoxData["0.41157157699018565`"], "Output", - CellChangeTimes->{3.9913392196090164`*^9}, +Cell[BoxData["0.8835018999657498`"], "Output", + CellChangeTimes->{3.9913392196090164`*^9, 3.9940426028432627`*^9}, CellLabel-> - "Out[309]=",ExpressionUUID->"8dd7e1f9-bbea-d84b-ad0e-8922158aee9e"] + "Out[165]=",ExpressionUUID->"0da063cc-15e0-48a8-ac98-fe2032e1585c"] }, Open ]], Cell[CellGroupData[{ @@ -8733,8 +15331,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 +15376,73 @@ 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[166]:=",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[\\\"4.9249085368186935`*^-201\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 166, 85, + 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392196440163`*^9, 3.9940426028641357`*^9}, CellLabel-> "During evaluation of \ -In[310]:=",ExpressionUUID->"7ab877ea-0e4b-f948-97c2-7ebafb7901b1"], +In[166]:=",ExpressionUUID->"41c9e51d-2e04-4094-b627-5908773c3dae"], 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[\\\"1.380233846943059`*^-205\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 166, 86, + 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392196440163`*^9, 3.9940426028671703`*^9}, CellLabel-> "During evaluation of \ -In[310]:=",ExpressionUUID->"a87a57c5-24bc-dc4a-888a-b3c0095c10c4"], +In[166]:=",ExpressionUUID->"944ee03a-2e99-4bd0-b801-3bf624d99596"], 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[\\\"3.8681844708487185`*^-210\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034477221223196355\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"7\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8934564270838098005054611040868761600000000000000000000\\\"}]]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 166, 87, 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392196440163`*^9, 3.994042602869728*^9}, CellLabel-> "During evaluation of \ -In[310]:=",ExpressionUUID->"d8af7fb1-1d43-664e-ae2d-698eaa818746"], +In[166]:=",ExpressionUUID->"e1774c75-b620-44e4-a0c2-8f0c6e620f1b"], 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, 166, 88, 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392196440163`*^9, 3.9940426028721933`*^9}, CellLabel-> "During evaluation of \ -In[310]:=",ExpressionUUID->"7abec434-52e8-c64c-ac86-90da0b27b8aa"], +In[166]:=",ExpressionUUID->"f0aaeb39-0b56-41d1-8f65-95cf108aa92f"], -Cell[BoxData["3.215201591157595`"], "Output", - CellChangeTimes->{3.9913392268711624`*^9}, +Cell[BoxData["30.012506264642813`"], "Output", + CellChangeTimes->{3.9913392268711624`*^9, 3.994042606278816*^9}, CellLabel-> - "Out[310]=",ExpressionUUID->"164a4c34-f121-a445-b434-e34aa59666ab"] + "Out[166]=",ExpressionUUID->"8dbdd9e8-e363-4bce-bdae-b9dce806fdc8"] }, Open ]], Cell[CellGroupData[{ @@ -8861,8 +15463,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 +15508,73 @@ 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[167]:=",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[\\\"4.9249085368186935`*^-201\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 167, 89, + 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339226907137*^9, 3.994042606300268*^9}, CellLabel-> "During evaluation of \ -In[311]:=",ExpressionUUID->"92295db4-13f0-284e-8173-df7f8dd20dcf"], +In[167]:=",ExpressionUUID->"a63d985f-a46b-4f60-bfe9-ae9580f8f0b2"], 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[\\\"1.380233846943059`*^-205\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 167, 90, + 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339226907137*^9, 3.994042606303385*^9}, CellLabel-> "During evaluation of \ -In[311]:=",ExpressionUUID->"c6280e41-1347-0f47-81a9-bcd3687b7b73"], +In[167]:=",ExpressionUUID->"d157ca4c-059f-4c5c-9a92-098d35523a1f"], 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[\\\"3.8681844708487185`*^-210\\\", \ +RowBox[{\\\"302788506336550585827101492333375306034477221223196355\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"7\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8934564270838098005054611040868761600000000000000000000\\\"}]]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 167, 91, 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339226907137*^9, 3.994042606306493*^9}, CellLabel-> "During evaluation of \ -In[311]:=",ExpressionUUID->"2aa0f4b1-01ca-4644-884e-b759d4a75412"], +In[167]:=",ExpressionUUID->"173600cd-1965-4def-b8f2-04356026c5d5"], 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, 167, 92, 31386066454222678654, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339226907137*^9, 3.9940426063096333`*^9}, CellLabel-> "During evaluation of \ -In[311]:=",ExpressionUUID->"ab3c3bff-179e-9f4e-b56a-87d1b4f6fc04"], +In[167]:=",ExpressionUUID->"4da0a4de-132d-4442-b30a-d3af49549a40"], -Cell[BoxData["16.94395627212904`"], "Output", - CellChangeTimes->{3.9913392304284153`*^9}, +Cell[BoxData["5.035758610118765`"], "Output", + CellChangeTimes->{3.9913392304284153`*^9, 3.9940426084031878`*^9}, CellLabel-> - "Out[311]=",ExpressionUUID->"f5b8154f-e61e-6a4e-b068-b6c1916773ef"] + "Out[167]=",ExpressionUUID->"b245cc13-2d1c-480c-8d7d-992a9786f463"] }, Open ]], Cell[CellGroupData[{ @@ -8977,20 +15583,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[168]:=",ExpressionUUID->"7457b456-6d32-5b44-9679-346c5f5ac532"], + +Cell[BoxData["0.07186607130136502`"], "Output", + CellChangeTimes->{3.9913392304624157`*^9, 3.9940426084226637`*^9}, + CellLabel-> + "Out[168]=",ExpressionUUID->"d0ce7ef9-3633-40b5-b4b4-fb8ede57345e"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input", + CellLabel-> + "In[169]:=",ExpressionUUID->"e04a28f5-d331-4c36-bb15-7ec4370d9711"] }, -WindowSize->{718.5, 729.75}, -WindowMargins->{{1.5, Automatic}, {Automatic, 8.25}}, +Evaluator->"kernel 5", +WindowSize->{1440, 882}, +WindowMargins->{{0, Automatic}, {0, Automatic}}, CellContext->Notebook, -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->"e3389233-59d2-de40-a8d1-08f2aab11400" ] @@ -9005,361 +15618,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, 301, 5, 47, "Input",ExpressionUUID->"dfdb021d-cc59-4fca-a142-943a8806c90f"], +Cell[880, 29, 321, 5, 53, "Output",ExpressionUUID->"731c98bb-89ee-4d6e-9193-14ef4eb88cf5"] }, 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[1238, 39, 249, 4, 47, "Input",ExpressionUUID->"f51dfb6b-e792-4557-8fd4-dec60bb361a3"], +Cell[1490, 45, 328, 5, 53, "Output",ExpressionUUID->"beb91ac7-ca4a-45a3-85f7-8f0edb6865aa"] }, 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[1855, 55, 226, 4, 47, "Input",ExpressionUUID->"2d1cbc4a-942f-4cfb-9441-cb0d0b244fe5"], +Cell[2084, 61, 332, 5, 53, "Output",ExpressionUUID->"a6797f1a-6b49-4356-a422-baad5afc402c"] }, 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[2453, 71, 176, 3, 47, "Input",ExpressionUUID->"9a682a1b-317c-4c33-9c13-e21e240769be"], +Cell[2632, 76, 324, 5, 53, "Output",ExpressionUUID->"c19d874a-d7b1-4811-8b02-82626aa6b834"] }, 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[2993, 86, 258, 7, 68, "Input",ExpressionUUID->"5abb2ec3-044a-435b-b173-da28927d0597"], +Cell[3254, 95, 339, 5, 53, "Output",ExpressionUUID->"1e2a836a-101e-4959-9e99-7ecfe6b7ea90"] }, 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[3630, 105, 132, 2, 47, "Input",ExpressionUUID->"fa3c7e90-a88d-498d-ab66-cb9e7a677dca"], +Cell[3765, 109, 328, 5, 53, "Output",ExpressionUUID->"797a6a86-f505-4405-8e7d-205ff087a44c"] }, 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[4130, 119, 277, 6, 47, "Input",ExpressionUUID->"80a6d476-6220-4b4e-843e-f0626d296521"], +Cell[4410, 127, 335, 5, 53, "Output",ExpressionUUID->"769b1408-1d8c-4152-b22f-5bc11b0e4ecf"] }, 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[4782, 137, 258, 7, 47, "Input",ExpressionUUID->"4b086c0b-5e91-435a-8b5e-ee83919af82e"], +Cell[5043, 146, 337, 5, 53, "Output",ExpressionUUID->"3b8f86a0-7775-4715-af14-7d6909fcf30a"] }, 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[5417, 156, 278, 5, 47, "Input",ExpressionUUID->"a36d3d1c-befc-4676-a035-f0e4050759a9"], +Cell[5698, 163, 309, 5, 53, "Output",ExpressionUUID->"e87bdc1c-6735-40bd-9f04-8190b7f42c5d"] }, 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[6044, 173, 226, 4, 47, "Input",ExpressionUUID->"b3686bfe-431c-4f65-8556-f2bbd8f5b5e2"], +Cell[6273, 179, 302, 5, 53, "Output",ExpressionUUID->"419cd450-9122-4c8e-8a44-9cb3d6aaa596"] }, 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[6612, 189, 129, 2, 47, "Input",ExpressionUUID->"76b3f141-9a06-41ce-9816-060efbd563a4"], +Cell[6744, 193, 324, 5, 53, "Output",ExpressionUUID->"2ee230e1-61d4-4034-bc16-eb6744cf31f8"] }, 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[7105, 203, 129, 2, 47, "Input",ExpressionUUID->"e46be7b2-171b-414d-9141-0d9ae0456dc1"], +Cell[7237, 207, 322, 5, 53, "Output",ExpressionUUID->"4e531f81-892f-47d9-a33f-12c5e601e580"] }, 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[7596, 217, 557, 19, 126, "Input",ExpressionUUID->"f04c73b7-84ea-4276-8127-b648abf9c1d6"], +Cell[8156, 238, 344, 5, 53, "Output",ExpressionUUID->"44cc0f54-4bec-43ea-9005-53646b42b1f6"] }, 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[8537, 248, 557, 19, 126, "Input",ExpressionUUID->"4ac12af1-126e-4302-9a28-02360cdee8c7"], +Cell[9097, 269, 339, 5, 53, "Output",ExpressionUUID->"c31bc9af-f587-4fc9-af6c-49ee78f414b5"] }, 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[9473, 279, 1588, 50, 506, "Input",ExpressionUUID->"eae9f4e1-e82a-4b84-8dc1-12108b4b247e"], +Cell[11064, 331, 338, 5, 53, "Output",ExpressionUUID->"3666ac1d-6db0-4b61-9c1a-f7b4e178eeb1"] }, 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[11439, 341, 1422, 46, 389, "Input",ExpressionUUID->"d09c082f-82f7-4941-bad2-f2fb5eddbe2c"], +Cell[12864, 389, 357, 6, 53, "Output",ExpressionUUID->"51195261-62e9-40d7-a206-aeecf4efc944"] }, 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[13258, 400, 1422, 46, 389, "Input",ExpressionUUID->"bc11687e-2aaf-4c18-abef-09436f6c3062"], +Cell[14683, 448, 357, 6, 53, "Output",ExpressionUUID->"375d825d-72b9-4e20-a3fb-33fb0c46dd1c"] }, 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[15077, 459, 1588, 50, 506, "Input",ExpressionUUID->"ef828e5a-c71b-4819-973a-3e0907ae83d5"], +Cell[16668, 511, 330, 5, 53, "Output",ExpressionUUID->"ba9c8fcd-6e46-40f0-bbc0-34f7bb10af76"] }, 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[17035, 521, 131, 2, 47, "Input",ExpressionUUID->"d927ddaf-7ee6-43f4-9a72-e8e260fd0da2"], +Cell[17169, 525, 320, 5, 53, "Output",ExpressionUUID->"a5d7d661-8391-4ba0-9e64-385543eac542"] }, 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[17526, 535, 133, 2, 47, "Input",ExpressionUUID->"894a7ce9-0c77-413b-b612-57da0ae1dc43"], +Cell[17662, 539, 326, 5, 53, "Output",ExpressionUUID->"2bc5a20d-0a73-4f01-a0ee-b98d7b79ccd2"] }, 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[18025, 549, 134, 2, 47, "Input",ExpressionUUID->"ca04aa34-18a8-4564-a0a7-560deca7afd8"], +Cell[18162, 553, 323, 5, 53, "Output",ExpressionUUID->"fca08f09-8bcd-4eda-82c9-59369693151c"] }, 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[18522, 563, 219, 4, 47, "Input",ExpressionUUID->"e8b6de95-08d7-4c63-ac73-24e1145e1ce0"], +Cell[18744, 569, 337, 6, 53, "Output",ExpressionUUID->"73beb71b-d45e-4c1a-aa0c-0c7055afc674"] }, 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[19118, 580, 134, 2, 47, "Input",ExpressionUUID->"a23506cd-a267-4799-b89f-685a72e72bc1"], +Cell[19255, 584, 328, 5, 53, "Output",ExpressionUUID->"1880ab12-2522-47e8-9d97-50507d950310"] }, 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[19620, 594, 324, 5, 47, "Input",ExpressionUUID->"5b1ffdf8-018c-4be0-9809-c1fde1074727"], +Cell[19947, 601, 323, 5, 53, "Output",ExpressionUUID->"c7eaa8a6-28bb-40f7-a4d2-80ca54fe1576"] }, 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[20307, 611, 296, 5, 47, "Input",ExpressionUUID->"1e3a809a-6ffb-4c69-8eec-562bfc6412f4"], +Cell[20606, 618, 325, 5, 53, "Output",ExpressionUUID->"f116e865-b356-456b-8e89-ba6bc0af443d"] }, 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[20968, 628, 219, 4, 47, "Input",ExpressionUUID->"9243c6bb-9f16-4bac-a4c7-f77613ddbc80"], +Cell[21190, 634, 324, 5, 53, "Output",ExpressionUUID->"581458a2-5f58-4cc9-9597-d717ed96d00c"] }, 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[21551, 644, 350, 10, 68, "Input",ExpressionUUID->"c99de51f-6130-408c-ab03-f13494f372df"], +Cell[21904, 656, 338, 5, 53, "Output",ExpressionUUID->"68573e9b-8731-4bce-b1e6-e12e22a2c3e4"] }, 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[22279, 666, 350, 10, 68, "Input",ExpressionUUID->"2fe640fa-3ca3-451f-aa20-d9a4449db230"], +Cell[22632, 678, 359, 6, 53, "Output",ExpressionUUID->"58cfca5a-3433-459f-a4d4-224bcd0461b4"] }, 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[23028, 689, 994, 26, 351, "Input",ExpressionUUID->"2770ad4c-f96b-4980-be09-58579c5bebdd"], +Cell[24025, 717, 342, 5, 53, "Output",ExpressionUUID->"7f4659e0-8408-4b32-8ec3-b63cf966bae0"] }, 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[24404, 727, 199, 3, 47, "Input",ExpressionUUID->"8ff6691c-e1de-4135-9f92-ef7df768e998"], +Cell[24606, 732, 322, 5, 53, "Output",ExpressionUUID->"95aff209-54bf-45df-a196-3db19da2386f"] }, 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[24965, 742, 329, 5, 47, "Input",ExpressionUUID->"990d0906-10fd-4684-93ea-c4f53642312a"], +Cell[25297, 749, 279, 4, 53, "Output",ExpressionUUID->"eab06a73-c2aa-4b58-94bb-2ef178a60677"] +}, Open ]], +Cell[25591, 756, 173, 2, 40, "Input",ExpressionUUID->"2e977285-ef1a-4df8-a33e-a83b61e88c65"], +Cell[CellGroupData[{ +Cell[25789, 762, 327, 5, 47, "Input",ExpressionUUID->"a25f952e-9d76-4c91-ad9a-ba8d8bd87b94"], +Cell[26119, 769, 275, 4, 53, "Output",ExpressionUUID->"0a0f6e35-74ad-4587-a327-9b7e51569cb8"] +}, Open ]], +Cell[26409, 776, 173, 2, 40, "Input",ExpressionUUID->"f4550661-45c3-40e1-9237-24862efc0886"], +Cell[CellGroupData[{ +Cell[26607, 782, 326, 5, 47, "Input",ExpressionUUID->"ebf08ddd-d445-443e-9cfc-388586f3105f"], +Cell[26936, 789, 276, 4, 53, "Output",ExpressionUUID->"838671a6-5a01-48c8-b904-c5f14cd0cf17"] +}, Open ]], +Cell[27227, 796, 173, 2, 40, "Input",ExpressionUUID->"3b1fb240-6ee3-40a5-a0bd-4e0e6934b70e"], +Cell[CellGroupData[{ +Cell[27425, 802, 354, 5, 47, "Input",ExpressionUUID->"cc40fb31-4044-48f5-976e-659b858794c4"], +Cell[27782, 809, 280, 4, 53, "Output",ExpressionUUID->"803d0e8d-3040-4afa-949e-20c3ac8cbe60"] +}, Open ]], +Cell[28077, 816, 171, 2, 40, "Input",ExpressionUUID->"81f7cdcc-86c5-44dc-b630-7e7d17bbf98a"], +Cell[CellGroupData[{ +Cell[28273, 822, 299, 5, 47, "Input",ExpressionUUID->"cd6590dd-02e7-4c92-957e-c32b796bcf0f"], +Cell[28575, 829, 275, 4, 53, "Output",ExpressionUUID->"83dfd0f0-dbe5-485b-a736-dff33e99e328"] +}, Open ]], +Cell[28865, 836, 171, 2, 40, "Input",ExpressionUUID->"dd7a7e24-d9de-4c1e-8b1f-1001bfef8977"], +Cell[CellGroupData[{ +Cell[29061, 842, 302, 5, 47, "Input",ExpressionUUID->"2cfd6b5a-f9ba-4242-9fe5-b9f8fb4bb1c5"], +Cell[29366, 849, 278, 4, 53, "Output",ExpressionUUID->"5a338c0e-29af-4fbf-932c-630ab6144a20"] +}, Open ]], +Cell[29659, 856, 173, 2, 40, "Input",ExpressionUUID->"d51cf3a6-651d-452b-8093-dcffaa5f5b7f"], +Cell[CellGroupData[{ +Cell[29857, 862, 305, 5, 47, "Input",ExpressionUUID->"8d5bb667-0bdb-423c-922b-b2b93f7326a8"], +Cell[30165, 869, 273, 4, 53, "Output",ExpressionUUID->"fd0abebc-5b2e-420b-b3d1-1f330de958c2"] +}, Open ]], +Cell[30453, 876, 172, 2, 40, "Input",ExpressionUUID->"9b52e4bc-f1af-4e9b-8e2c-c9021c9593a7"], +Cell[CellGroupData[{ +Cell[30650, 882, 275, 4, 47, "Input",ExpressionUUID->"beb587b7-f8ee-4906-859e-24c017e638fb"], +Cell[30928, 888, 279, 4, 53, "Output",ExpressionUUID->"74d25acd-c3b9-4524-a870-07afc1497d41"] +}, Open ]], +Cell[31222, 895, 175, 2, 40, "Input",ExpressionUUID->"00af8fd1-a20f-4d2f-b2d4-150d6445da00"], +Cell[CellGroupData[{ +Cell[31422, 901, 19809, 485, 4727, "Input",ExpressionUUID->"68d8face-f2f7-4a7c-891e-433349fdf23e"], +Cell[51234, 1388, 341, 5, 53, "Output",ExpressionUUID->"befd76b5-48c0-40a0-bc6c-f89bb92ecf0f"] }, 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[51612, 1398, 19748, 489, 4727, "Input",ExpressionUUID->"d85fb471-88d1-4134-93cc-731bc9709d2f"], +Cell[71363, 1889, 337, 5, 53, "Output",ExpressionUUID->"69d2b75b-ebc3-44cf-aaba-03c19bafad01"] }, 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[71737, 1899, 19748, 483, 4726, "Input",ExpressionUUID->"8ada902d-79c9-4cba-a4c8-fee5130e52b2"], +Cell[91488, 2384, 358, 6, 53, "Output",ExpressionUUID->"8c2e15ac-ff03-4fef-acf2-d17d1dd60d58"] }, 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[91883, 2395, 22534, 553, 5401, "Input",ExpressionUUID->"86cde71d-c1aa-44e0-bff2-2c9b80995440"], +Cell[114420, 2950, 358, 6, 53, "Output",ExpressionUUID->"806b1979-5bc9-4830-a2e1-e223b350a829"] }, 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[114815, 2961, 22535, 553, 5401, "Input",ExpressionUUID->"a758decb-5e91-49e6-9dfc-2a425d84cc55"], +Cell[137353, 3516, 355, 6, 53, "Output",ExpressionUUID->"d488a1dd-e7e2-40e8-b2df-fe8cb1edbfe1"] }, 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[137745, 3527, 25491, 626, 6076, "Input",ExpressionUUID->"ce266f8a-1a5b-423d-8ef0-e65a931fe71b"], +Cell[163239, 4155, 361, 6, 53, "Output",ExpressionUUID->"82525a6a-0984-4a1d-b5d6-fcb6acc84019"] }, 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[163637, 4166, 130, 2, 47, "Input",ExpressionUUID->"4c74fc0e-7b41-4f7e-a29c-e1bdca712a42"], +Cell[163770, 4170, 322, 5, 53, "Output",ExpressionUUID->"40697ed3-4d49-4c22-a725-c571baf14b11"] }, 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[164129, 4180, 130, 2, 47, "Input",ExpressionUUID->"19932f61-200d-4ad0-8045-003f1a573718"], +Cell[164262, 4184, 322, 5, 53, "Output",ExpressionUUID->"5d848e16-682e-4c65-a09b-8507cf18476a"] }, 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[164621, 4194, 1144, 39, 446, "Input",ExpressionUUID->"f4a5b87b-1f8c-4ef2-87f9-a92df5a80558"], +Cell[165768, 4235, 337, 5, 53, "Output",ExpressionUUID->"977be578-e8a3-4e4d-9ef2-593eff992414"] }, 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[166142, 4245, 1041, 35, 443, "Input",ExpressionUUID->"bc683843-773b-4193-aa6d-3a2376c6785c"], +Cell[167186, 4282, 355, 6, 53, "Output",ExpressionUUID->"4547dc76-b42c-4631-a2cc-60b7cea8e3c9"] }, 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[167578, 4293, 1144, 39, 446, "Input",ExpressionUUID->"d93f0fa4-458f-48ad-997c-76621904d749"], +Cell[168725, 4334, 340, 5, 53, "Output",ExpressionUUID->"25c8d12d-cc63-4694-9786-7d96166a5757"] }, 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[169102, 4344, 108, 1, 47, "Input",ExpressionUUID->"c8192ef9-b518-4b9d-9aa1-c54733d3dce5"], +Cell[169213, 4347, 340, 5, 53, "Output",ExpressionUUID->"bf64f9ad-3d56-4e67-8943-c4edd3ae5e51"] }, 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[169590, 4357, 108, 1, 47, "Input",ExpressionUUID->"e1e18be3-6daf-499d-8f6b-06c8a8772ecf"], +Cell[169701, 4360, 357, 6, 53, "Output",ExpressionUUID->"873661c7-3d30-4156-8aca-9e9e9509ee2b"] }, 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[170095, 4371, 108, 1, 47, "Input",ExpressionUUID->"c4d26351-fac9-45ea-b9e7-6004dbd73c6a"], +Cell[170206, 4374, 355, 6, 53, "Output",ExpressionUUID->"2bf5f2c5-0067-469a-9742-02730180226e"] }, 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[170598, 4385, 108, 1, 47, "Input",ExpressionUUID->"c8085f09-ff52-4984-8dc8-e7e9b6c246fd"], +Cell[170709, 4388, 342, 5, 53, "Output",ExpressionUUID->"bc73fa4f-ee38-4e55-9300-b148eaac9a8d"] }, 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[171088, 4398, 107, 1, 47, "Input",ExpressionUUID->"e5d81928-4769-42e9-b89b-85a508c7f4b3"], +Cell[171198, 4401, 341, 5, 53, "Output",ExpressionUUID->"0385903d-e510-4894-b478-7dbe4a14db55"] }, 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[171576, 4411, 107, 1, 47, "Input",ExpressionUUID->"344b0e33-c096-4694-bdae-29e69a2e7dd0"], +Cell[171686, 4414, 338, 5, 53, "Output",ExpressionUUID->"171c35c1-2453-4799-b680-52249aa312d8"] }, 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[172061, 4424, 497, 16, 155, "Input",ExpressionUUID->"82157978-b514-4e05-b1b9-d890f1b3a577"], +Cell[172561, 4442, 355, 6, 53, "Output",ExpressionUUID->"95733f3f-0736-49f9-87d5-e8fa62531912"] }, 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[172953, 4453, 497, 16, 155, "Input",ExpressionUUID->"f16da14e-1721-4afd-b5b8-65e343821521"], +Cell[173453, 4471, 356, 6, 53, "Output",ExpressionUUID->"46e10b29-befc-41ed-83cd-0fe93c9f9a3c"] }, 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[173846, 4482, 1788, 60, 777, "Input",ExpressionUUID->"92ce0a88-3cc5-477e-94b0-76339efe57bc"], +Cell[175637, 4544, 336, 5, 53, "Output",ExpressionUUID->"f72950b5-e17b-4e40-b30d-9fdc05d63448"] }, 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[176010, 4554, 1101, 36, 563, "Input",ExpressionUUID->"bfbc9621-345a-4527-9182-fde42a4954fc"], +Cell[177114, 4592, 355, 6, 53, "Output",ExpressionUUID->"b31627dd-9b1d-4dfd-a473-97c0b9076f40"] }, 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[177506, 4603, 1818, 61, 777, "Input",ExpressionUUID->"8ee1cdef-4837-459e-97da-e7415ea42786"], +Cell[179327, 4666, 339, 5, 53, "Output",ExpressionUUID->"4359fb06-6215-4614-8655-8c83004630b2"] }, 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[179703, 4676, 1631, 53, 129, "Input",ExpressionUUID->"5bb6ad1f-5a39-40ed-86a6-110d2930f69d"], +Cell[181337, 4731, 340, 5, 53, "Output",ExpressionUUID->"4307e5bd-a931-4b01-b375-0e00ca9d6b7d"] }, 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[181714, 4741, 1631, 53, 129, "Input",ExpressionUUID->"1adbf3f9-0b12-4ce0-9a6a-8340818b6a06"], +Cell[183348, 4796, 340, 5, 53, "Output",ExpressionUUID->"7a0c39a9-259b-4d66-b8ad-37be3292c3cf"] }, 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[183725, 4806, 203, 3, 47, "Input",ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], +Cell[183931, 4811, 182, 2, 53, "Output",ExpressionUUID->"266376df-116f-47ac-85be-8bda972a3646"] +}, Open ]], +Cell[184128, 4816, 173, 2, 47, "Input",ExpressionUUID->"93cad80c-1de7-2e4b-9b8c-14a272e65d1f"], +Cell[CellGroupData[{ +Cell[184326, 4822, 206, 3, 47, "Input",ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], +Cell[184535, 4827, 185, 2, 53, "Output",ExpressionUUID->"9ef61317-445f-471b-91fc-3381c327d733"] +}, Open ]], +Cell[184735, 4832, 171, 2, 47, "Input",ExpressionUUID->"15fe72e6-19f0-9540-b29f-3056e2e0b957"], +Cell[CellGroupData[{ +Cell[184931, 4838, 1297, 42, 78, "Input",ExpressionUUID->"5e48fe0c-b3e8-2b40-82cb-716b23b2f326"], +Cell[186231, 4882, 220, 3, 53, "Output",ExpressionUUID->"b9653be6-15e2-418c-9320-411adaf84397"] }, 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[186488, 4890, 929, 30, 90, "Input",ExpressionUUID->"e4db2648-4e1a-2c46-83ab-fcd932c3b663"], +Cell[187420, 4922, 217, 3, 53, "Output",ExpressionUUID->"e6c3d9a3-8504-4668-9879-4d8ac599d377"] }, 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[187674, 4930, 904, 29, 90, "Input",ExpressionUUID->"e4649c3d-e19e-ca42-95a0-23b66397f1fd"], +Cell[188581, 4961, 222, 3, 53, "Output",ExpressionUUID->"18711454-8999-44c9-9730-cb2449546147"] }, 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[188840, 4969, 558, 19, 85, "Input",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], +Cell[189401, 4990, 218, 4, 53, "Output",ExpressionUUID->"331e54bb-5414-4cc3-b720-9c62e7f1bf33"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189656, 4999, 623, 21, 85, "Input",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], +Cell[190282, 5022, 218, 4, 53, "Output",ExpressionUUID->"975e9982-b6d8-4d00-b97e-f17a7f280de8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[190537, 5031, 170, 5, 90, "Input",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], +Cell[190710, 5038, 221, 4, 53, "Output",ExpressionUUID->"3d62bf21-8066-4498-8e7b-134b4b4f92b4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[190968, 5047, 170, 5, 88, "Input",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], +Cell[191141, 5054, 216, 4, 53, "Output",ExpressionUUID->"b5fcd2c8-23e5-48b8-9860-46b98fe7159a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191394, 5063, 181, 5, 70, "Input",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], +Cell[191578, 5070, 218, 4, 53, "Output",ExpressionUUID->"00b379d7-ddee-4e5d-bcf3-d70b0dd6e7e9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191833, 5079, 181, 5, 70, "Input",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], +Cell[192017, 5086, 219, 4, 53, "Output",ExpressionUUID->"e2745f4e-dc18-4522-aed4-c95bfedd0a29"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192273, 5095, 6055, 185, 615, "Input",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], +Cell[198331, 5282, 223, 4, 53, "Output",ExpressionUUID->"56d12485-c730-42c3-b6a0-83efa2669e9c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[198591, 5291, 368, 9, 67, "Input",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], +Cell[198962, 5302, 220, 4, 53, "Output",ExpressionUUID->"f9982368-2174-47ec-bd84-31e01189ea88"] +}, Open ]], +Cell[CellGroupData[{ +Cell[199219, 5311, 6122, 187, 699, "Input",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], +Cell[205344, 5500, 221, 4, 53, "Output",ExpressionUUID->"3d473b3f-1c8f-4b30-b33e-0d5d912fa566"] +}, Open ]], +Cell[CellGroupData[{ +Cell[205602, 5509, 368, 9, 67, "Input",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], +Cell[205973, 5520, 219, 4, 53, "Output",ExpressionUUID->"ea4953e4-d205-4974-863d-78f5e88cfef1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[206229, 5529, 2663, 88, 265, "Input",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], +Cell[208895, 5619, 223, 4, 53, "Output",ExpressionUUID->"64d4037d-6d48-4d79-8d91-ae24b6199957"] +}, Open ]], +Cell[CellGroupData[{ +Cell[209155, 5628, 2603, 85, 265, "Input",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], +Cell[211761, 5715, 218, 4, 53, "Output",ExpressionUUID->"1804e08e-1610-409c-a07d-4a5c191f083c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[212016, 5724, 3712, 118, 391, "Input",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], +Cell[215731, 5844, 223, 4, 53, "Output",ExpressionUUID->"8f3df69d-deb8-4c3b-85b8-b293e6b1da34"] +}, Open ]], +Cell[215969, 5851, 164, 4, 47, "Input",ExpressionUUID->"ba4a3eff-9e3b-5e47-a896-3a959bbbf44d"], +Cell[CellGroupData[{ +Cell[216158, 5859, 2101, 60, 240, "Input",ExpressionUUID->"738a48f3-b38c-f441-aec4-53babaa73a14"], +Cell[218262, 5921, 656, 14, 68, "Message",ExpressionUUID->"39693348-a4c3-4a98-b626-0feeb0e7e926"], +Cell[218921, 5937, 657, 14, 68, "Message",ExpressionUUID->"767ac39b-c3ad-4c63-a8f5-398919f3710f"], +Cell[219581, 5953, 660, 14, 68, "Message",ExpressionUUID->"484f04c7-d811-47ed-abea-5c0361c2e8f8"], +Cell[220244, 5969, 518, 12, 41, "Message",ExpressionUUID->"fa5cb2fd-31bd-4518-9174-f82a40e156a7"], +Cell[220765, 5983, 220, 4, 53, "Output",ExpressionUUID->"19b52487-6964-4e49-a96f-a4c23c23770d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[221022, 5992, 2103, 60, 240, "Input",ExpressionUUID->"86c33485-ed26-8f49-b3d0-7d040d3b48f0"], +Cell[223128, 6054, 631, 13, 68, "Message",ExpressionUUID->"6f53197f-2a8a-4d86-89d7-f7d1d734540b"], +Cell[223762, 6069, 633, 13, 68, "Message",ExpressionUUID->"0d6b351a-1949-4571-bf5f-c6ad646ddc1b"], +Cell[224398, 6084, 634, 13, 68, "Message",ExpressionUUID->"59dfb462-92c9-4101-b559-21fb0f88f839"], +Cell[225035, 6099, 495, 11, 41, "Message",ExpressionUUID->"50a0302f-ff17-406f-a6b8-149b586a3110"], +Cell[225533, 6112, 195, 3, 53, "Output",ExpressionUUID->"95bd0d8d-d88b-45a5-a0e1-b27107208b9d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[225765, 6120, 2053, 55, 79, "Input",ExpressionUUID->"f373fe4f-940c-0842-9236-63ec36d318ad"], +Cell[227821, 6177, 20369, 383, 378, "Output",ExpressionUUID->"19ee7a84-e753-42aa-b897-b9c038d418c1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[248227, 6565, 2142, 61, 236, "Input",ExpressionUUID->"24fa5db0-1063-354a-bd60-c117a27ff3e1"], +Cell[250372, 6628, 538, 12, 61, "Message",ExpressionUUID->"cf1daef8-f7ab-4e52-9962-d74a8371f513"], +Cell[250913, 6642, 541, 12, 61, "Message",ExpressionUUID->"4be62e82-8d44-4373-b953-4c81d05aeed2"], +Cell[251457, 6656, 543, 12, 61, "Message",ExpressionUUID->"09106f92-b0af-431d-ade3-a7cc8938b6fd"], +Cell[252003, 6670, 493, 11, 41, "Message",ExpressionUUID->"04e080be-0b88-4d54-b5ac-47e1ba2b572c"], +Cell[252499, 6683, 24861, 456, 372, "Output",ExpressionUUID->"b4bb429b-f5fb-4530-8cb9-3c94ddd80bb9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[277397, 7144, 2475, 70, 212, "Input",ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], +Cell[279875, 7216, 9498, 223, 382, "Output",ExpressionUUID->"c372bc5a-bc85-45ca-a0ed-d779ece4e918"] +}, Open ]], +Cell[CellGroupData[{ +Cell[289410, 7444, 232, 5, 47, "Input",ExpressionUUID->"6d3700e1-f504-214a-a332-f16397f0b922"], +Cell[289645, 7451, 31223, 588, 372, "Output",ExpressionUUID->"24c88318-19dc-40f4-826b-190074058bec"] +}, Open ]], +Cell[CellGroupData[{ +Cell[320905, 8044, 240, 7, 77, "Input",ExpressionUUID->"9051a5e3-bb9f-d941-bcca-598d0b6835be"], +Cell[321148, 8053, 195, 3, 53, "Output",ExpressionUUID->"68ecf1a8-99f4-42e0-844f-9412bffbe4cf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[321380, 8061, 1865, 54, 152, "Input",ExpressionUUID->"65a995ff-ff3d-634e-9bad-4a8a16073236"], +Cell[323248, 8117, 545, 12, 91, "Message",ExpressionUUID->"f9ccb81f-738d-4fdb-aba1-08e944a2c373"], +Cell[323796, 8131, 550, 12, 91, "Message",ExpressionUUID->"756fb173-ba23-4a2c-b748-96ff2c242edc"], +Cell[324349, 8145, 551, 12, 91, "Message",ExpressionUUID->"ba6b215b-5950-4774-84e6-4c18daf8ff6a"], +Cell[324903, 8159, 494, 11, 41, "Message",ExpressionUUID->"bbd1ce0d-cc74-4f28-965d-454e9625f210"], +Cell[325400, 8172, 25364, 465, 372, "Output",ExpressionUUID->"67fdcfd7-aee3-42d7-8706-17119fb47913"] +}, Open ]], +Cell[CellGroupData[{ +Cell[350801, 8642, 1648, 50, 102, "Input",ExpressionUUID->"86381d88-1537-a242-9cff-0b432b61d63d"], +Cell[352452, 8694, 696, 14, 91, "Message",ExpressionUUID->"b0a06aa1-dc70-42e6-85b0-2d4f1524ae91"], +Cell[353151, 8710, 698, 14, 91, "Message",ExpressionUUID->"1885b34f-94e8-420d-a9f3-bc1041e028d4"], +Cell[353852, 8726, 697, 14, 91, "Message",ExpressionUUID->"e09ab535-208d-4f45-8d30-5473f18f4d7d"], +Cell[354552, 8742, 493, 11, 41, "Message",ExpressionUUID->"21e9da6d-0279-4e2f-9bb8-b19a0a431eba"], +Cell[355048, 8755, 193, 3, 53, "Output",ExpressionUUID->"72bc270a-a708-4caa-83f6-9b92d23956aa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[355278, 8763, 2270, 64, 240, "Input",ExpressionUUID->"6f0ad284-4db3-da47-b8dc-45830eedfe9c"], +Cell[357551, 8829, 599, 13, 91, "Message",ExpressionUUID->"c142a8c4-6e0f-4812-92f5-f27738cb143a"], +Cell[358153, 8844, 603, 13, 91, "Message",ExpressionUUID->"ea9a7f7c-3954-48b4-a974-25b294581092"], +Cell[358759, 8859, 695, 14, 91, "Message",ExpressionUUID->"f70a69d5-c72d-4bc8-ad16-5c872f665473"], +Cell[359457, 8875, 495, 11, 41, "Message",ExpressionUUID->"e837b2ae-15fb-44f2-9f2a-e204e2059161"], +Cell[359955, 8888, 195, 3, 53, "Output",ExpressionUUID->"f2dde614-a376-4374-948e-f2ff40b57cff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[360187, 8896, 2233, 63, 240, "Input",ExpressionUUID->"b2dda819-6f34-5c49-bc62-303d815946e5"], +Cell[362423, 8961, 598, 13, 91, "Message",ExpressionUUID->"865c203f-1426-45a9-a6fa-67a17e76115b"], +Cell[363024, 8976, 604, 13, 91, "Message",ExpressionUUID->"239374c8-2181-4acd-b988-9b847d3c1fcc"], +Cell[363631, 8991, 695, 14, 91, "Message",ExpressionUUID->"22e964d0-4483-41d2-8410-cb6f6c766ddf"], +Cell[364329, 9007, 495, 11, 41, "Message",ExpressionUUID->"cd8c158e-e50e-4e0e-ba3b-4e6a02aaa4d0"], +Cell[364827, 9020, 193, 3, 53, "Output",ExpressionUUID->"a61f0541-a8ad-4c93-ab95-10fd3d7b34cb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[365057, 9028, 2233, 63, 240, "Input",ExpressionUUID->"76a9e77d-1f4c-bb4a-bb13-1a175f609f7d"], +Cell[367293, 9093, 603, 13, 91, "Message",ExpressionUUID->"7f20fdb0-6172-4b57-a831-a277fd140567"], +Cell[367899, 9108, 606, 13, 91, "Message",ExpressionUUID->"9cfab69a-ab6f-4b92-933f-31c2e877c647"], +Cell[368508, 9123, 697, 14, 91, "Message",ExpressionUUID->"d3f3b2a2-e4c9-4c1d-83d7-2632f55af9fd"], +Cell[369208, 9139, 495, 11, 41, "Message",ExpressionUUID->"dd068141-2019-44f3-a5df-caa1b3187d61"], +Cell[369706, 9152, 191, 3, 53, "Output",ExpressionUUID->"3de16436-973c-42db-9c90-41453a7a9cb4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[369934, 9160, 238, 6, 76, "Input",ExpressionUUID->"69dd09d9-152e-3e4d-9517-4de4791db2f4"], +Cell[370175, 9168, 193, 3, 53, "Output",ExpressionUUID->"84a48c3e-432c-4913-af75-2ad11bc5a281"] +}, Open ]], +Cell[370383, 9174, 271, 6, 47, "Input",ExpressionUUID->"6ecc7e8c-a7c5-354e-b168-749729cd7104"], +Cell[CellGroupData[{ +Cell[370679, 9184, 558, 19, 85, "Input",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], +Cell[371240, 9205, 193, 3, 53, "Output",ExpressionUUID->"b14624d7-3b55-4e97-bf86-21780c336e2e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[371470, 9213, 170, 5, 90, "Input",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], +Cell[371643, 9220, 195, 3, 53, "Output",ExpressionUUID->"2a713053-efe4-4857-9c0d-e60c4ca59742"] +}, Open ]], +Cell[CellGroupData[{ +Cell[371875, 9228, 181, 5, 70, "Input",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], +Cell[372059, 9235, 195, 3, 53, "Output",ExpressionUUID->"22808f42-cace-4b06-a3da-ed3dcc7ff5f2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[372291, 9243, 6055, 185, 615, "Input",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], +Cell[378349, 9430, 197, 3, 53, "Output",ExpressionUUID->"0bdf3028-19d5-4797-9620-01397b187715"] +}, Open ]], +Cell[CellGroupData[{ +Cell[378583, 9438, 368, 9, 67, "Input",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], +Cell[378954, 9449, 194, 3, 53, "Output",ExpressionUUID->"10fac7ec-d0dd-4cbe-a6e1-e72dfefb318b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[379185, 9457, 6122, 187, 699, "Input",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], +Cell[385310, 9646, 195, 3, 53, "Output",ExpressionUUID->"8a0b4911-7133-4748-8b97-65d72b1f97d7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[385542, 9654, 368, 9, 67, "Input",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], +Cell[385913, 9665, 193, 3, 53, "Output",ExpressionUUID->"4ff8c611-6acd-439c-a0a1-40550ea3c2fc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[386143, 9673, 2663, 88, 265, "Input",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], +Cell[388809, 9763, 196, 3, 53, "Output",ExpressionUUID->"c109aa3f-8782-4d25-b887-73d1db72fdcc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[389042, 9771, 2603, 85, 265, "Input",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], +Cell[391648, 9858, 195, 3, 53, "Output",ExpressionUUID->"73dc6b3a-c079-4be4-b6a2-424ee06c27bf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[391880, 9866, 3712, 118, 391, "Input",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], +Cell[395595, 9986, 196, 3, 53, "Output",ExpressionUUID->"1bd0d11b-7219-42b1-abc5-1e7e98ca9512"] +}, Open ]], +Cell[CellGroupData[{ +Cell[395828, 9994, 2101, 60, 240, "Input",ExpressionUUID->"d6aa822f-4140-174a-8e29-c889dba5c0d8"], +Cell[397932, 10056, 598, 13, 91, "Message",ExpressionUUID->"78b8a908-ab73-44f5-b9e4-516240b47679"], +Cell[398533, 10071, 600, 13, 91, "Message",ExpressionUUID->"4c69c4f3-ca6d-40aa-82df-155fd9fddbd7"], +Cell[399136, 10086, 606, 13, 91, "Message",ExpressionUUID->"cb38b863-90e2-4fd8-b2f8-530403245802"], +Cell[399745, 10101, 495, 11, 41, "Message",ExpressionUUID->"5fc52316-7a50-443e-ba8c-e5a75a92253c"], +Cell[400243, 10114, 193, 3, 53, "Output",ExpressionUUID->"ed03f650-f72c-49fd-a2cc-083f39e5caaf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[400473, 10122, 2103, 60, 240, "Input",ExpressionUUID->"46f3f057-22eb-c143-af7a-23ddab00799c"], +Cell[402579, 10184, 600, 13, 91, "Message",ExpressionUUID->"4acf2c2a-3bc4-4750-be7d-3e012bd8cadc"], +Cell[403182, 10199, 600, 13, 91, "Message",ExpressionUUID->"b7094e05-b365-478b-874f-37b73ad62d3d"], +Cell[403785, 10214, 604, 13, 91, "Message",ExpressionUUID->"4c27839a-3c1e-4d8d-a66f-02ed70f8dc8a"], +Cell[404392, 10229, 493, 11, 41, "Message",ExpressionUUID->"1a32c0e1-b8c3-4e31-a25c-aa6426b4a3f3"], +Cell[404888, 10242, 195, 3, 53, "Output",ExpressionUUID->"fbeb159d-39b5-4015-80ff-e4afdad286b5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[405120, 10250, 2053, 55, 79, "Input",ExpressionUUID->"0137ed47-cd78-284a-910a-31d165f1571c"], +Cell[407176, 10307, 20318, 382, 378, "Output",ExpressionUUID->"be6263aa-9e8d-4e3b-b7ea-cd1fe4ada700"] +}, Open ]], +Cell[CellGroupData[{ +Cell[427531, 10694, 2193, 62, 236, "Input",ExpressionUUID->"00a32bc3-df79-9e43-8f20-d4884962c12d"], +Cell[429727, 10758, 518, 12, 61, "Message",ExpressionUUID->"1f0d9bf6-3ab1-4a73-b17c-9b7ead242093"], +Cell[430248, 10772, 518, 12, 61, "Message",ExpressionUUID->"c029296c-7adc-4055-8cda-c3df191147b5"], +Cell[430769, 10786, 521, 12, 61, "Message",ExpressionUUID->"bb6619a5-12f2-4544-82b1-f25554746e38"], +Cell[431293, 10800, 470, 11, 41, "Message",ExpressionUUID->"bb2005b8-bab8-4de7-a8d6-01b5bb248729"], +Cell[431766, 10813, 25034, 459, 372, "Output",ExpressionUUID->"3004ae76-440c-4f6a-af5c-e1507fe122d8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[456837, 11277, 164, 4, 47, "Input",ExpressionUUID->"344da507-9044-ef47-aa8c-99f282e3d6d3"], +Cell[457004, 11283, 31418, 591, 372, "Output",ExpressionUUID->"b6bb59e9-29eb-47d1-a679-ddf279e2f156"] +}, Open ]], +Cell[CellGroupData[{ +Cell[488459, 11879, 1648, 50, 102, "Input",ExpressionUUID->"f13d1bd8-d153-ae43-b041-68b993e77854"], +Cell[490110, 11931, 695, 14, 91, "Message",ExpressionUUID->"98202430-90b1-4d25-9669-e424006746f7"], +Cell[490808, 11947, 695, 14, 91, "Message",ExpressionUUID->"8c34f80c-6799-41ad-ba97-5010af8aee6e"], +Cell[491506, 11963, 696, 14, 91, "Message",ExpressionUUID->"b15d2bdf-8428-4dad-b06e-e63bdcd77d1e"], +Cell[492205, 11979, 495, 11, 41, "Message",ExpressionUUID->"1b26d5d5-7eb3-43e9-a7e1-dd39d41dfdcb"], +Cell[492703, 11992, 195, 3, 53, "Output",ExpressionUUID->"f6b2b954-d7b3-406e-aa9f-c9197169156a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[492935, 12000, 2272, 64, 240, "Input",ExpressionUUID->"53e25fab-b431-cc42-a467-e4dea0353ed0"], +Cell[495210, 12066, 600, 13, 91, "Message",ExpressionUUID->"26842253-b400-416d-8e68-9c38de5300a4"], +Cell[495813, 12081, 601, 13, 91, "Message",ExpressionUUID->"befc47a1-9032-4411-962c-37778fca8b78"], +Cell[496417, 12096, 606, 13, 91, "Message",ExpressionUUID->"8af6afb7-bf96-4aac-ab28-f1e9e9aa71e5"], +Cell[497026, 12111, 497, 11, 41, "Message",ExpressionUUID->"eac07b1e-e974-47ca-9b64-e866c4ff7081"], +Cell[497526, 12124, 194, 3, 53, "Output",ExpressionUUID->"86033fa1-d22f-4aab-949e-2cbe2d25f6ce"] +}, Open ]], +Cell[CellGroupData[{ +Cell[497757, 12132, 2235, 63, 240, "Input",ExpressionUUID->"b18c819e-620a-d449-97d6-547e3a6fa152"], +Cell[499995, 12197, 600, 13, 91, "Message",ExpressionUUID->"409f4a9b-1438-43d8-b138-e72c47bfaf82"], +Cell[500598, 12212, 600, 13, 91, "Message",ExpressionUUID->"b8d3d56c-7b84-4319-bdbf-dd183bb15067"], +Cell[501201, 12227, 604, 13, 91, "Message",ExpressionUUID->"c85a4705-1433-4e91-a047-17951b098ae2"], +Cell[501808, 12242, 493, 11, 41, "Message",ExpressionUUID->"462ee7f4-4be4-497b-b06e-b546003eda99"], +Cell[502304, 12255, 195, 3, 53, "Output",ExpressionUUID->"5facddf3-ed31-497f-8a32-d2191a4a9318"] +}, Open ]], +Cell[CellGroupData[{ +Cell[502536, 12263, 2233, 63, 240, "Input",ExpressionUUID->"22ab74c7-5916-9440-9d7d-c3e0f6ab8836"], +Cell[504772, 12328, 597, 13, 91, "Message",ExpressionUUID->"96ba59c5-1174-4c72-a011-ac8a9df03f26"], +Cell[505372, 12343, 600, 13, 91, "Message",ExpressionUUID->"8bee543c-c89f-4889-94cf-c5ab2834ed91"], +Cell[505975, 12358, 604, 13, 91, "Message",ExpressionUUID->"ea9cc888-d061-4181-873f-86c6733d6871"], +Cell[506582, 12373, 495, 11, 41, "Message",ExpressionUUID->"657293cb-77a2-4e11-b261-cb97c968e7d4"], +Cell[507080, 12386, 192, 3, 53, "Output",ExpressionUUID->"1f777732-badd-4d43-8f9e-ad5250c128d4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[507309, 12394, 238, 6, 76, "Input",ExpressionUUID->"f9c66987-c237-7a40-a006-e20e260dbdcb"], +Cell[507550, 12402, 198, 3, 53, "Output",ExpressionUUID->"45f08d07-2d5f-40bd-aace-45d793a93df6"] +}, Open ]], +Cell[507763, 12408, 275, 6, 47, "Input",ExpressionUUID->"770a9ed7-7938-9e48-be64-c31719ef3a6b"], +Cell[CellGroupData[{ +Cell[508063, 12418, 558, 19, 85, "Input",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], +Cell[508624, 12439, 192, 3, 53, "Output",ExpressionUUID->"4bade9b3-f954-43ac-8786-34ab97252e84"] +}, Open ]], +Cell[CellGroupData[{ +Cell[508853, 12447, 170, 5, 90, "Input",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], +Cell[509026, 12454, 194, 3, 53, "Output",ExpressionUUID->"e29734aa-df05-4f2d-a722-09eb37a269b8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[509257, 12462, 181, 5, 70, "Input",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], +Cell[509441, 12469, 195, 3, 53, "Output",ExpressionUUID->"1629d65b-c6da-4884-9f70-9a46acec6b63"] +}, Open ]], +Cell[CellGroupData[{ +Cell[509673, 12477, 6055, 185, 615, "Input",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], +Cell[515731, 12664, 197, 3, 53, "Output",ExpressionUUID->"5f61f2f9-2e91-440b-8526-4311109f8ca2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[515965, 12672, 368, 9, 67, "Input",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], +Cell[516336, 12683, 195, 3, 53, "Output",ExpressionUUID->"93774835-0541-43ec-b2c0-b0fe4811e001"] +}, Open ]], +Cell[CellGroupData[{ +Cell[516568, 12691, 6122, 187, 699, "Input",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], +Cell[522693, 12880, 193, 3, 53, "Output",ExpressionUUID->"6b27c638-8d2c-4dbb-ae74-6cba6ac9a6fb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[522923, 12888, 368, 9, 67, "Input",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], +Cell[523294, 12899, 192, 3, 53, "Output",ExpressionUUID->"a592b516-9a4c-4986-9ef0-57ef924b6430"] +}, Open ]], +Cell[CellGroupData[{ +Cell[523523, 12907, 2663, 88, 265, "Input",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], +Cell[526189, 12997, 196, 3, 53, "Output",ExpressionUUID->"2f8d5383-29e0-4655-ad45-8018a94f420b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[526422, 13005, 2603, 85, 265, "Input",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], +Cell[529028, 13092, 193, 3, 53, "Output",ExpressionUUID->"dc477b03-e1a6-460a-8e12-791a26ab70a6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[529258, 13100, 3712, 118, 391, "Input",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], +Cell[532973, 13220, 194, 3, 53, "Output",ExpressionUUID->"0bb29857-826b-46af-a866-a2272c7108fa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[533204, 13228, 2101, 60, 240, "Input",ExpressionUUID->"55d51961-97f2-ed4d-8bf8-8a461d652ab4"], +Cell[535308, 13290, 603, 13, 91, "Message",ExpressionUUID->"c824a871-c3c1-433f-b3b2-cbb14a086024"], +Cell[535914, 13305, 605, 13, 91, "Message",ExpressionUUID->"b825f0a1-abf3-4359-acc7-714f68eed808"], +Cell[536522, 13320, 696, 14, 91, "Message",ExpressionUUID->"9a082017-8f2a-4808-979b-34e8c25e0923"], +Cell[537221, 13336, 495, 11, 41, "Message",ExpressionUUID->"c49c3c74-422f-4d7f-a1d0-e08badc1c02f"], +Cell[537719, 13349, 193, 3, 53, "Output",ExpressionUUID->"4e160507-a56a-457e-ad3b-1d3bad8aed77"] +}, Open ]], +Cell[CellGroupData[{ +Cell[537949, 13357, 2101, 60, 240, "Input",ExpressionUUID->"9704b9d3-b449-2144-9970-6a7de047241d"], +Cell[540053, 13419, 603, 13, 91, "Message",ExpressionUUID->"7a635e8f-4986-41a8-b8d4-42dbe4522d0d"], +Cell[540659, 13434, 608, 13, 91, "Message",ExpressionUUID->"2ba41f3b-caad-4a5d-b07b-7711943ba508"], +Cell[541270, 13449, 697, 14, 91, "Message",ExpressionUUID->"57270768-5d62-4613-93ed-0eac866c8bed"], +Cell[541970, 13465, 495, 11, 41, "Message",ExpressionUUID->"3a1745b7-a4a7-4fcc-9a51-faa34e8a5c37"], +Cell[542468, 13478, 191, 3, 53, "Output",ExpressionUUID->"13229dc2-a615-404a-b04c-2690f9a83704"] +}, Open ]], +Cell[CellGroupData[{ +Cell[542696, 13486, 2051, 55, 79, "Input",ExpressionUUID->"0fd90636-7592-fc40-bf9d-ae1cb915c656"], +Cell[544750, 13543, 20015, 377, 378, "Output",ExpressionUUID->"531fea48-5f4d-4e68-899b-d2465e34b066"] +}, Open ]], +Cell[CellGroupData[{ +Cell[564802, 13925, 2195, 62, 236, "Input",ExpressionUUID->"90696e8b-5a2d-314c-8d58-ac84cb8f4d66"], +Cell[567000, 13989, 538, 12, 61, "Message",ExpressionUUID->"c0675bf3-a357-4e2c-80bf-0b37169b3766"], +Cell[567541, 14003, 540, 12, 61, "Message",ExpressionUUID->"30ea75ec-e79e-4e2b-b6ef-13ebaeb534fb"], +Cell[568084, 14017, 545, 12, 61, "Message",ExpressionUUID->"26dd6628-97fb-4a56-b5f3-4efc86be2ece"], +Cell[568632, 14031, 495, 11, 41, "Message",ExpressionUUID->"8cbbf4dd-52af-4180-a4ae-83d52afdc62b"], +Cell[569130, 14044, 23581, 435, 372, "Output",ExpressionUUID->"57c6a507-c0f9-4c9b-ae62-f504e02d2ac7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[592748, 14484, 232, 5, 47, "Input",ExpressionUUID->"ea848967-083d-ea47-bce0-5c3b93725916"], +Cell[592983, 14491, 29942, 567, 372, "Output",ExpressionUUID->"e7bee43a-4db0-4afa-9732-a62f373a4006"] +}, Open ]], +Cell[CellGroupData[{ +Cell[622962, 15063, 1648, 50, 102, "Input",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], +Cell[624613, 15115, 694, 14, 91, "Message",ExpressionUUID->"0238c093-9b55-4671-b764-14d6faa3312d"], +Cell[625310, 15131, 692, 14, 91, "Message",ExpressionUUID->"6f014b9b-69a4-4fe7-b1e0-555c8bf03443"], +Cell[626005, 15147, 695, 14, 91, "Message",ExpressionUUID->"487cca75-826a-4027-9517-1bcc8645354f"], +Cell[626703, 15163, 491, 11, 41, "Message",ExpressionUUID->"0884d157-7ea5-4f3b-ac59-4e1ef08d6bfe"], +Cell[627197, 15176, 195, 3, 53, "Output",ExpressionUUID->"b06b3b48-6049-4a20-9e79-b0ab8b452813"] +}, Open ]], +Cell[CellGroupData[{ +Cell[627429, 15184, 2272, 64, 240, "Input",ExpressionUUID->"80bba3bc-d8f7-1c4b-9262-0895c02ffd8f"], +Cell[629704, 15250, 603, 13, 91, "Message",ExpressionUUID->"ecde90dc-5335-43d6-9e30-b936e0a5d8e2"], +Cell[630310, 15265, 608, 13, 91, "Message",ExpressionUUID->"f9b21153-ffdd-449c-874f-642487b06124"], +Cell[630921, 15280, 697, 14, 91, "Message",ExpressionUUID->"f7a0b6a8-2e41-4561-854d-7c293cd77377"], +Cell[631621, 15296, 495, 11, 41, "Message",ExpressionUUID->"137a0426-c010-413e-b99a-a17c68f1fb7b"], +Cell[632119, 15309, 197, 3, 53, "Output",ExpressionUUID->"0da063cc-15e0-48a8-ac98-fe2032e1585c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[632353, 15317, 2233, 63, 240, "Input",ExpressionUUID->"57976ffc-56f1-604b-8519-bead95265db8"], +Cell[634589, 15382, 605, 13, 91, "Message",ExpressionUUID->"41c9e51d-2e04-4094-b627-5908773c3dae"], +Cell[635197, 15397, 608, 13, 91, "Message",ExpressionUUID->"944ee03a-2e99-4bd0-b801-3bf624d99596"], +Cell[635808, 15412, 697, 14, 91, "Message",ExpressionUUID->"e1774c75-b620-44e4-a0c2-8f0c6e620f1b"], +Cell[636508, 15428, 497, 11, 41, "Message",ExpressionUUID->"f0aaeb39-0b56-41d1-8f65-95cf108aa92f"], +Cell[637008, 15441, 195, 3, 53, "Output",ExpressionUUID->"8dbdd9e8-e363-4bce-bdae-b9dce806fdc8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[637240, 15449, 2231, 63, 240, "Input",ExpressionUUID->"cfa37210-3ae7-3f49-b290-f19508c6d2f1"], +Cell[639474, 15514, 601, 13, 91, "Message",ExpressionUUID->"a63d985f-a46b-4f60-bfe9-ae9580f8f0b2"], +Cell[640078, 15529, 604, 13, 91, "Message",ExpressionUUID->"d157ca4c-059f-4c5c-9a92-098d35523a1f"], +Cell[640685, 15544, 695, 14, 91, "Message",ExpressionUUID->"173600cd-1965-4def-b8f2-04356026c5d5"], +Cell[641383, 15560, 495, 11, 41, "Message",ExpressionUUID->"4da0a4de-132d-4442-b30a-d3af49549a40"], +Cell[641881, 15573, 196, 3, 53, "Output",ExpressionUUID->"b245cc13-2d1c-480c-8d7d-992a9786f463"] +}, Open ]], +Cell[CellGroupData[{ +Cell[642114, 15581, 234, 6, 76, "Input",ExpressionUUID->"7457b456-6d32-5b44-9679-346c5f5ac532"], +Cell[642351, 15589, 198, 3, 53, "Output",ExpressionUUID->"d0ce7ef9-3633-40b5-b4b4-fb8ede57345e"] +}, Open ]], +Cell[642564, 15595, 143, 3, 47, "Input",ExpressionUUID->"e04a28f5-d331-4c36-bb15-7ec4370d9711"] } ] *) -(* End of internal cache information *) - diff --git a/Pu240_798-811_TitovAA/162-78_h_Pu240_16-17/h_162-78_Pu240_16-17_gid_Qw2.nb b/Pu240_798-811_TitovAA/162-78_h_Pu240_16-17/h_162-78_Pu240_16-17_gid_Qw2.nb index 1f902d9..c90df83 100644 --- a/Pu240_798-811_TitovAA/162-78_h_Pu240_16-17/h_162-78_Pu240_16-17_gid_Qw2.nb +++ b/Pu240_798-811_TitovAA/162-78_h_Pu240_16-17/h_162-78_Pu240_16-17_gid_Qw2.nb @@ -3,42 +3,4836 @@ (*** 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[ 672898, 16074] +NotebookOptionsPosition[ 632194, 15424] +NotebookOutlinePosition[ 632658, 15443] +CellTagsIndexPosition[ 632615, 15440] 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", "=", "1.9"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.993815944576231*^9, 3.9938159912638187`*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"918838d2-a4a6-4ba1-9647-cf92de98e62e"], + +Cell[BoxData["1.9`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, 3.993815823692334*^9, 3.993815892498139*^9, { + 3.993815951583488*^9, 3.993815995572467*^9}, {3.994012734609342*^9, + 3.994012752893778*^9}, 3.994013294808382*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"1486872b-ef56-40c3-aa9e-867be79f580c"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.9940127288140783`*^9, 3.994012729590282*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"b6416221-11cc-432c-9a3c-e69b2be177c1"], + +Cell[BoxData["240"], "Output", CellChangeTimes->{ - 3.991850550777445*^9},ExpressionUUID->"b70cfd2b-21a1-8344-9518-\ -5e27a96171a9"], + 3.9913196497381973`*^9, 3.993815823952688*^9, 3.993815892560748*^9, { + 3.993815951668881*^9, 3.993815995613329*^9}, {3.9940127346784067`*^9, + 3.9940127529711943`*^9}, 3.994013294883198*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"84b400e9-409a-4376-8093-4e70f11e0867"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "162"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.9938155158752823`*^9, 3.9938155169971247`*^9}}, + CellLabel->"In[3]:=",ExpressionUUID->"50684c07-f02e-4754-8915-f1eaac750483"], + +Cell[BoxData["162"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.993815823968458*^9, 3.9938158925714483`*^9, { + 3.9938159516818027`*^9, 3.9938159956283493`*^9}, {3.9940127346926413`*^9, + 3.994012752988037*^9}, 3.994013294895047*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"51340441-21f0-47df-95de-874320ee24fc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"511735e5-eb07-496e-ade8-005f93408bed"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.9938158239856167`*^9, 3.99381589258189*^9, { + 3.99381595169417*^9, 3.993815995642021*^9}, {3.994012734706458*^9, + 3.994012753004796*^9}, 3.9940132949048557`*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"1a243017-ab27-48bf-af5c-19dacc9098f8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"15742d07-bc28-4f57-89f2-40571b2ff7b3"], + +Cell[BoxData["0.5447500000000001`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.993815824003376*^9, 3.993815892586231*^9, { + 3.99381595170667*^9, 3.993815995646203*^9}, {3.9940127347201777`*^9, + 3.994012753022193*^9}, 3.994013294922879*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"b6bc1d5c-0bed-49f9-a0eb-f4d98ab23a0e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"967af484-b641-4f2b-b602-709e4d0bd596"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.993815824023213*^9, 3.993815892602899*^9, { + 3.9938159517115383`*^9, 3.9938159956645737`*^9}, {3.994012734734274*^9, + 3.994012753038806*^9}, 3.994013294939036*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"e5909796-d2b2-4210-965f-4834b2a3f585"] +}, 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->"3b58573d-eb2c-4182-9e82-e5dfca38da10"], + +Cell[BoxData["6.323579663055845`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.993815824039893*^9, 3.993815892613652*^9, { + 3.993815951728698*^9, 3.993815995677742*^9}, {3.994012734748405*^9, + 3.994012753044726*^9}, 3.9940132949539747`*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"48fa746a-ab66-449f-a197-e484ccb0ae8a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"6ccbed93-757b-410c-b6c8-5f802d1bcad6"], + +Cell[BoxData["4.956284070769583`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.9938158240572863`*^9, 3.993815892624365*^9, { + 3.9938159517417*^9, 3.993815995691177*^9}, {3.994012734763052*^9, + 3.994012753070916*^9}, 3.994013294966971*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"125b08e2-f4fd-4356-9132-db8a251c4965"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.95921"}]], "Input", + CellChangeTimes->{ + 3.991799283179735*^9, {3.993815616610156*^9, 3.993815618917514*^9}, { + 3.9938156766732063`*^9, 3.993815681630651*^9}}, + CellLabel->"In[9]:=",ExpressionUUID->"827b20ed-e176-43a9-865c-a4ee13cab9a5"], + +Cell[BoxData["0.95921`"], "Output", + CellChangeTimes->{ + 3.9938158240746737`*^9, 3.9938158926348877`*^9, {3.993815951754884*^9, + 3.993815995704525*^9}, {3.994012734778141*^9, 3.994012753087864*^9}, + 3.994013294979952*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"8291f979-f7e0-4a14-b3be-7fbb8a266dab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.40907"}]], "Input", + CellChangeTimes->{ + 3.991799280663351*^9, {3.993815686480484*^9, 3.993815701548067*^9}}, + CellLabel->"In[10]:=",ExpressionUUID->"fcb07d92-35f4-469d-81e7-6143eb45650e"], + +Cell[BoxData["0.40907`"], "Output", + CellChangeTimes->{ + 3.993815824091074*^9, 3.993815892645401*^9, {3.993815951767627*^9, + 3.993815995717485*^9}, {3.994012734791346*^9, 3.99401275310209*^9}, + 3.994013294991362*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"edd8cf06-ed88-45c0-af5b-0428e5bd7b23"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"d92b58ff-8102-43d1-82bf-240f2ea4d172"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.993815824106497*^9, 3.9938158926558847`*^9, { + 3.993815951780663*^9, 3.993815995730535*^9}, {3.9940127348044577`*^9, + 3.994012753117031*^9}, 3.994013295001943*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"853aa14d-e1e9-4912-ae23-089c342b92d1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"85d176ac-f7e5-4e16-af8c-64d214a5167d"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.993815824123843*^9, 3.9938158926663837`*^9, { + 3.993815951793076*^9, 3.993815995743602*^9}, {3.994012734818459*^9, + 3.994012753131789*^9}, 3.994013295013824*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"29fe21ad-c3f3-478b-a7a6-4fdbc64ef5fa"] +}, 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->"3f40e52a-2d03-43d0-95b6-0179705de33f"], + +Cell[BoxData["2.4538606431456684`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.993815824141597*^9, 3.993815892677889*^9, { + 3.9938159518063183`*^9, 3.9938159957558603`*^9}, {3.994012734835313*^9, + 3.994012753146474*^9}, 3.994013295028063*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"594c184d-9abd-4ad1-b33a-83f1ae7fd7f8"] +}, 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->"99ed8cfe-7ca1-4200-9aaf-4e930f3d5354"], + +Cell[BoxData["1.4512846433038022`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.993815824156972*^9, 3.993815892689371*^9, { + 3.9938159518190203`*^9, 3.993815995768323*^9}, {3.99401273484025*^9, + 3.994012753161911*^9}, 3.99401329504241*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"fb224f9a-6812-4c2c-92c4-6207845b57a8"] +}, 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->"ce7975d5-7322-4067-b28f-41ef262f695a"], + +Cell[BoxData["0.3744607025351484`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.9938158241736803`*^9, 3.993815892702938*^9, { + 3.993815951831235*^9, 3.993815995780489*^9}, {3.994012734857376*^9, + 3.994012753177943*^9}, 3.9940132950549192`*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"305ff1c8-8dd4-481a-aa17-a99b301f9f9f"] +}, 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->"37138beb-5866-4c01-b2e5-8b8414eb2a74"], + +Cell[BoxData[ + RowBox[{"-", "0.08358618531832765`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.993815824190381*^9, 3.993815892714963*^9, { + 3.99381595184389*^9, 3.993815995792754*^9}, {3.994012734871372*^9, + 3.9940127531931753`*^9}, 3.994013295066909*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"2ac0cfd1-cd6e-4d70-8315-b271e33d5072"] +}, 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->"f78f2a50-6d72-4804-92b3-fef544519984"], + +Cell[BoxData[ + RowBox[{"-", "0.5957523139282981`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.993815824207239*^9, 3.993815892726112*^9, { + 3.993815951856346*^9, 3.9938159958051043`*^9}, {3.994012734886475*^9, + 3.994012753208178*^9}, 3.994013295081005*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"93002cd0-b6a2-46b6-aa80-0ec95edfb02a"] +}, 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->"5f2e899e-5df9-4ca7-89d4-71a7e012b565"], + +Cell[BoxData["0.713744744985854`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.993815824222714*^9, 3.993815892737419*^9, { + 3.9938159518694*^9, 3.993815995817747*^9}, {3.99401273490063*^9, + 3.994012753223435*^9}, 3.994013295091819*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"fcecc7cd-f4da-4323-b943-538461507e98"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"fe0abe70-df94-4034-b84f-db4f0db7eea4"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.993815824238377*^9, 3.993815892748749*^9, { + 3.993815951883985*^9, 3.993815995830997*^9}, {3.994012734916293*^9, + 3.994012753238081*^9}, 3.994013295102886*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"175a5f03-b203-4713-b1a9-84bae8947c56"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel->"In[20]:=",ExpressionUUID->"3deac99f-f8bb-417f-a8e2-507fb30839c0"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.993815824252192*^9, 3.993815892759966*^9, { + 3.993815951897129*^9, 3.9938159958447227`*^9}, {3.994012734930868*^9, + 3.9940127532525377`*^9}, 3.9940132951144*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"86e13b10-f750-4743-9281-68a6b1ab7e44"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"47cd1a03-86d0-4737-900c-a51da7895d9a"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.993815824265974*^9, 3.993815892777206*^9, { + 3.993815951909596*^9, 3.993815995857946*^9}, {3.994012734946954*^9, + 3.994012753268147*^9}, 3.9940132951262617`*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"32e617e6-9640-4097-ad00-d8e77da1eda1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"6ec4e84f-45a5-4c75-81a0-bebafd50c817"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.993815824281651*^9, 3.993815892789987*^9, { + 3.993815951922598*^9, 3.993815995871676*^9}, {3.994012734961584*^9, + 3.994012753285798*^9}, 3.994013295139814*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"3a376165-65bc-4914-9873-79f514a5a680"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[23]:=",ExpressionUUID->"0f6bfce1-f0cb-43dd-b35d-a882e8546a35"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.993815824297344*^9, 3.9938158928016577`*^9, { + 3.993815951935726*^9, 3.993815995884973*^9}, {3.9940127349760647`*^9, + 3.994012753303388*^9}, 3.994013295153707*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"f2f2981c-e4f0-4b72-9589-17efa387fba6"] +}, 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.993815710443075*^9, 3.9938157105928802`*^9}}, + CellLabel->"In[24]:=",ExpressionUUID->"8c874970-4918-4cdd-a1a6-1374dd258d20"], + +Cell[BoxData["66"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, 3.993815824312414*^9, 3.993815892812936*^9, { + 3.9938159519479322`*^9, 3.9938159958976*^9}, {3.994012734991516*^9, + 3.994012753318815*^9}, 3.994013295169674*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"34312856-f192-420d-8662-bca0e110f501"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, {3.993815715623077*^9, 3.993815715723624*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"57158e18-b7e2-48ee-a13b-5f4898c3c09b"], + +Cell[BoxData["28"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.9938158243255568`*^9, 3.993815892824174*^9, { + 3.993815951962007*^9, 3.993815995910904*^9}, {3.994012735006587*^9, + 3.994012753334146*^9}, 3.994013295183951*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"7b31a732-2d75-4112-88fd-13f3b6817df2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"51d0f7a2-a9cb-4da9-9e69-88374e8120a3"], + +Cell[BoxData["78"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.993815824339529*^9, 3.993815892835505*^9, { + 3.9938159519756107`*^9, 3.9938159959234123`*^9}, {3.9940127350225773`*^9, + 3.99401275334903*^9}, 3.9940132951955223`*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"81623a7b-8190-4a0d-bcd7-598c1f669b60"] +}, 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->"74b9de83-14f4-4139-b77d-e3ff0c000edb"], + +Cell[BoxData["0.11193732193732193`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.993815824354212*^9, 3.993815892846965*^9, { + 3.99381595198964*^9, 3.993815995937854*^9}, {3.994012735036902*^9, + 3.994012753363584*^9}, 3.99401329520977*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"5bc10d6d-e586-4bc4-962b-7bde85eeaa71"] +}, 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->"c9a81967-100c-485c-91a9-49bf26e4f52d"], + +Cell[BoxData[ + RowBox[{"-", "2.5617948717948718`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.9938158243693666`*^9, 3.9938158928581047`*^9, { + 3.993815952002063*^9, 3.993815995952959*^9}, {3.994012735051235*^9, + 3.994012753380294*^9}, 3.994013295221986*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"4e2f67ab-e4c6-4a42-96a6-dd9db476681f"] +}, 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->"fa9e2e75-56c3-4067-818c-51bf10bb54c7"], + +Cell[BoxData["17.755860569879673`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.9938158243828497`*^9, 3.9938158928694487`*^9, { + 3.993815952015215*^9, 3.993815995959347*^9}, {3.994012735067181*^9, + 3.994012753395359*^9}, 3.994013295238941*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"36167465-e9c2-46f7-84df-116e3f99b3da"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"b8723edb-c6fa-48c4-960c-4c59a7f407c2"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.993815824396482*^9, 3.993815892880583*^9, { + 3.993815952028016*^9, 3.993815995974369*^9}, {3.9940127350830297`*^9, + 3.994012753409977*^9}, 3.9940132952503653`*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"9d57eacf-410b-4d83-8f62-549ce89af4e1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "1.925"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { + 3.993815850527903*^9, 3.9938158535087967`*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"7bce1b87-e8ed-4b04-9589-72bd4e677761"], + +Cell[BoxData["1.925`"], "Output", + CellChangeTimes->{ + 3.993815892892448*^9, {3.993815952041005*^9, 3.9938159959864597`*^9}, { + 3.994012735098775*^9, 3.994012753424415*^9}, 3.9940132952641687`*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"c5ce0fd2-f648-4c35-b87d-a8be09736465"] +}, 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->"6ff3e193-1915-4438-85b0-06a3b38972b3"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.805"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.993815855721238*^9, 3.993815857092358*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"ef4a5542-f92d-4aec-8404-dda8b7913cab"], + +Cell[BoxData["0.805`"], "Output", + CellChangeTimes->{ + 3.993815892911134*^9, {3.993815952057427*^9, 3.99381599600596*^9}, { + 3.994012735117734*^9, 3.99401275345194*^9}, 3.994013295287613*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"43c1b522-a5af-421a-aaf8-85abea6ae801"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel->"In[34]:=",ExpressionUUID->"2ca1acac-07b8-45ab-a7ef-37bbb9e1ecae"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "2.5"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.993815859994154*^9, 3.993815861340933*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"b6df5e6e-2214-4280-a4e4-f85223870b0d"], + +Cell[BoxData["2.5`"], "Output", + CellChangeTimes->{ + 3.9938158929287786`*^9, {3.99381595207283*^9, 3.993815996022519*^9}, { + 3.9940127351358128`*^9, 3.994012753478545*^9}, 3.994013295308673*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"fdf88c21-dd48-4c82-850d-785ca8ad7b79"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel->"In[36]:=",ExpressionUUID->"884ffd4d-7e33-4e8b-9643-f639c2e92518"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.165"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, {3.9938158643599787`*^9, 3.993815865676284*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"6c400132-b5aa-45ff-ac26-5bb374d76696"], + +Cell[BoxData["1.165`"], "Output", + CellChangeTimes->{ + 3.993815892946157*^9, {3.9938159520880413`*^9, 3.9938159960372267`*^9}, { + 3.99401273515212*^9, 3.994012753505625*^9}, 3.9940132953343077`*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"871087ea-1346-46a5-8866-bd301550985f"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel->"In[38]:=",ExpressionUUID->"6b1b80a9-8a5c-450f-8f3a-3a1e5f720e4f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.213"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, {3.993815868143258*^9, + 3.993815869195242*^9}}, + CellLabel->"In[39]:=",ExpressionUUID->"b105c8a6-1bcc-496c-b415-770ba11465de"], + +Cell[BoxData["1.213`"], "Output", + CellChangeTimes->{ + 3.993815892962039*^9, {3.993815952103568*^9, 3.993815996052133*^9}, { + 3.994012735168161*^9, 3.994012753532589*^9}, 3.99401329535765*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"2ee39ffa-e7e4-4a72-b5c0-e74007867357"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel->"In[40]:=",ExpressionUUID->"7c8178a6-c40f-4438-a126-768dc7aff32a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.57"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.993815872614973*^9, + 3.993815875095196*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"de493cbc-cb61-4033-a7fa-ee580a69cd57"], + +Cell[BoxData["0.57`"], "Output", + CellChangeTimes->{ + 3.993815892978149*^9, {3.9938159521195602`*^9, 3.9938159960676327`*^9}, { + 3.994012735184478*^9, 3.994012753559978*^9}, 3.994013295375927*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"7f4650e1-5d8b-469b-9dcb-28e46183ac80"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel->"In[42]:=",ExpressionUUID->"a89d3760-2ae4-4d78-9070-5382a3c40375"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "1.35"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.993815877839096*^9, + 3.993815879047324*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"a279fdc1-4241-45de-b132-65c61f6b42df"], + +Cell[BoxData["1.35`"], "Output", + CellChangeTimes->{ + 3.993815892994123*^9, {3.99381595213482*^9, 3.993815996092525*^9}, { + 3.994012735201104*^9, 3.994012753586568*^9}, 3.994013295396809*^9}, + CellLabel->"Out[43]=",ExpressionUUID->"53700dd0-2aca-4249-966c-406e12915e39"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel->"In[44]:=",ExpressionUUID->"73a6216d-b3de-42df-b9ad-3611f76b13ee"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "0.695"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, {3.993815882043911*^9, 3.993815883712513*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"da1369cb-81da-460b-b4b3-efcb54c82463"], + +Cell[BoxData["0.695`"], "Output", + CellChangeTimes->{ + 3.993815893009348*^9, {3.9938159521502934`*^9, 3.9938159961073437`*^9}, { + 3.994012735217507*^9, 3.994012753614246*^9}, 3.994013295418364*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"2583883b-34e3-40cb-9b82-b215332d6cae"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel->"In[46]:=",ExpressionUUID->"9ddc44bb-89ac-4c8e-99fc-bb9d756ab834"], + +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->"b745e083-032a-41d8-a4b6-e410120391b8"], + +Cell[BoxData["0.12327762268272666`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.993815824789941*^9, 3.993815893053749*^9, { + 3.9938159521927853`*^9, 3.9938159961478243`*^9}, {3.994012735307992*^9, + 3.994012753662813*^9}, 3.994013295531043*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"da587033-ae5b-40b5-a540-e4bd2435622f"] +}, 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->"578dad2e-c257-4b1f-a85c-473b5ed020ff"], + +Cell[BoxData["8.089090426123509`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.993815824958537*^9, 3.993815893086632*^9, { + 3.993815952223331*^9, 3.993815996176463*^9}, {3.994012735341444*^9, + 3.9940127537028303`*^9}, 3.9940132985445843`*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"12f17dab-c8fc-427f-a809-ddd8d0d8e9fe"] +}, 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->"5a7c9205-7868-49aa-bd1f-7860d96e0204"], + +Cell[BoxData[ + RowBox[{"-", "18.15349098777757`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.993815825088951*^9, 3.993815893116687*^9, { + 3.9938159522505827`*^9, 3.9938159962051373`*^9}, {3.994012735372669*^9, + 3.994012753746902*^9}, 3.994013298934731*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"84c786fd-745a-4f7a-bf9d-12efd8355ad2"] +}, 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->"790feb42-27a7-41f8-8d14-d714ee4e563e"], + +Cell[BoxData[ + RowBox[{"-", "24.05337115009524`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.993815825243335*^9, 3.993815893152563*^9, { + 3.993815952283412*^9, 3.9938159962366734`*^9}, {3.9940127354096613`*^9, + 3.9940127537823277`*^9}, 3.9940132989943247`*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"e6e89634-31cd-4996-b9c6-375d04feaded"] +}, 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->"4c5cf4b6-c3d4-4794-81dd-88a2241e3ce4"], + +Cell[BoxData[ + RowBox[{"-", "68.5715021463911`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.993815825395423*^9, 3.993815893189039*^9, { + 3.993815952318357*^9, 3.9938159962699547`*^9}, {3.994012737745866*^9, + 3.994012753816412*^9}, 3.9940132990595922`*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"e14b0d22-6b40-4280-a058-25d539d75fe3"] +}, 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->"013ab2d1-acec-4762-bf9f-9f1b06b866f6"], + +Cell[BoxData[ + RowBox[{"-", "181.33897130481844`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.9938158255934277`*^9, 3.9938158932303762`*^9, { + 3.9938159523617983`*^9, 3.993815996307926*^9}, {3.9940127379598227`*^9, + 3.994012753855733*^9}, 3.9940132991863937`*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"a64666b4-6838-47fb-a94e-b1f5483c0164"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[53]:=",ExpressionUUID->"594f4772-7ef4-4205-842a-f6104dc67c4a"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.993815825610972*^9, 3.993815893238894*^9, { + 3.993815952376239*^9, 3.993815996389533*^9}, {3.994012737981202*^9, + 3.994012753871561*^9}, 3.994013299210503*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"85d87af0-bb71-4b3f-a66c-ddbf9e06a9bd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[54]:=",ExpressionUUID->"1fa22f1d-73ad-47f1-b82d-bb242cb91447"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.993815825623754*^9, 3.993815893251865*^9, { + 3.993815952388772*^9, 3.9938159963944883`*^9}, {3.994012737993568*^9, + 3.994012753889316*^9}, 3.994013299246854*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"89397357-ea27-4695-876c-d8a325b6eee4"] +}, 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->"9e14069a-175d-46a8-baa2-10cd8b57aa6f"], + +Cell[BoxData["141.405110309417`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.993815826417283*^9, 3.993815893265246*^9, { + 3.993815952401479*^9, 3.993815996407648*^9}, {3.9940127380069637`*^9, + 3.9940127539062157`*^9}, 3.99401329928979*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"bb0f4848-d38c-48cb-a996-4e0a0e708c07"] +}, 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->"8f8b28d4-c8c3-41e4-9d50-25b741a595ff"], + +Cell[BoxData[ + RowBox[{"-", "128.9528695923845`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.99381582721953*^9, 3.993815893272354*^9, { + 3.9938159524150248`*^9, 3.993815996420066*^9}, {3.994012738019804*^9, + 3.9940127539503736`*^9}, 3.9940132993167353`*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"a118972f-ed3c-4814-bb6f-c85f439e2187"] +}, 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->"e7269253-b0be-4576-87b1-e96c0e2e98cf"], + +Cell[BoxData["145.46176038414953`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.993815827967605*^9, 3.993815893279285*^9, { + 3.993815952427936*^9, 3.993815996433951*^9}, {3.994012738032927*^9, + 3.994012753965966*^9}, 3.994013299356913*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"040d158d-f55b-430b-bbd2-4eb5f67d07ab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[58]:=",ExpressionUUID->"3e7f80d4-9d1e-44e3-b082-0d43b0f3e9ad"], + +Cell[BoxData["0.3744607025351484`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.993815827996399*^9, 3.993815893285612*^9, { + 3.993815952441914*^9, 3.993815996447248*^9}, {3.994012738045417*^9, + 3.9940127539822197`*^9}, 3.994013299399016*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"2cb3a80d-aa4b-499b-b923-62fa8f04534d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[59]:=",ExpressionUUID->"26e13601-34f5-4183-bf4b-70c0fe3153a9"], + +Cell[BoxData[ + RowBox[{"-", "0.08358618531832765`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.993815828006872*^9, 3.99381589330029*^9, { + 3.993815952454702*^9, 3.993815996460602*^9}, {3.9940127380579777`*^9, + 3.994012753999001*^9}, 3.994013299438497*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"fbf3d6a3-6a5e-4871-96c3-5d256e6804b0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[60]:=",ExpressionUUID->"63509028-f04d-4f89-8d84-2c7c33b67c04"], + +Cell[BoxData[ + RowBox[{"-", "0.5957523139282981`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.993815828017632*^9, 3.993815893314815*^9, { + 3.993815952467293*^9, 3.993815996472748*^9}, {3.9940127380705957`*^9, + 3.994012754016019*^9}, 3.994013299494281*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"ca6e54aa-82e4-4526-947e-000a7071726e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"a264c76d-bf3f-4f60-9ea1-3e836f83c5d2"], + +Cell[BoxData["0.713744744985854`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.9938158280292873`*^9, 3.9938158933264513`*^9, { + 3.99381595247992*^9, 3.9938159964849863`*^9}, {3.9940127380831127`*^9, + 3.994012754031786*^9}, 3.994013299511467*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"5023c2d8-3d73-46dc-8a0a-d2b3635bfe23"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[62]:=",ExpressionUUID->"dd51c7ae-7745-45be-834c-78606c9e6cfc"], + +Cell[BoxData["2.4538606431456684`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.993815828040164*^9, 3.9938158933379717`*^9, { + 3.99381595249251*^9, 3.993815996497171*^9}, {3.9940127380959167`*^9, + 3.994012754047423*^9}, 3.9940132995280123`*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"a1c53220-f952-45c5-8645-1040196f0e2d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[63]:=",ExpressionUUID->"2f0ce65f-d7c3-4b02-a2b0-214f65769505"], + +Cell[BoxData["1.4512846433038022`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.993815828051201*^9, 3.993815893350441*^9, { + 3.993815952507271*^9, 3.993815996509037*^9}, {3.994012738108345*^9, + 3.994012754065312*^9}, 3.994013299540553*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"f40903e1-e36f-47a6-be60-0f7d841cef90"] +}, 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->"7179abf6-f683-447f-abe7-e2c50d2a705e"], + +Cell[BoxData[ + RowBox[{"-", "35.01877093188689`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.99381582806227*^9, 3.993815893362507*^9, { + 3.993815952520192*^9, 3.9938159965211277`*^9}, {3.994012738120954*^9, + 3.994012754086623*^9}, 3.9940132995587177`*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"09fe3e5a-0172-41d7-a266-e5b9924b093f"] +}, 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->"2821f785-dac7-4cd2-ae87-031a41d9e853"], + +Cell[BoxData[ + RowBox[{"-", "7.023230644966918`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.993815828073289*^9, 3.993815893373386*^9, { + 3.9938159525334873`*^9, 3.9938159965330544`*^9}, {3.994012738133953*^9, + 3.994012754103959*^9}, 3.994013299605609*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"041818f1-a857-4e59-86bf-0457d2f736a6"] +}, 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->"b2345994-534b-4b7e-9d64-c88c50756b87"], + +Cell[BoxData["106.38633937753012`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.993815829714663*^9, 3.993815893386404*^9, { + 3.993815952538138*^9, 3.993815996546342*^9}, {3.994012738147608*^9, + 3.994012754121069*^9}, 3.994013299623719*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"951fc5a4-ee35-4212-8a35-610a1ebe6eed"] +}, 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->"80d3b98b-7a7b-4308-8fb4-b40cb0fe024a"], + +Cell[BoxData[ + RowBox[{"-", "128.9528695923845`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.993815830785906*^9, 3.993815893393002*^9, { + 3.99381595255091*^9, 3.993815996558546*^9}, {3.9940127381623087`*^9, + 3.994012754138682*^9}, 3.9940132996381702`*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"644390be-3094-45dc-af94-aa5e6f033e00"] +}, 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->"b973357a-ecf5-42ca-a16d-9c4d7d086ae1"], + +Cell[BoxData["138.4385297391826`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.993815832301989*^9, 3.993815893399308*^9, { + 3.9938159525638323`*^9, 3.993815996570672*^9}, {3.994012738168003*^9, + 3.994012754154402*^9}, 3.994013299654408*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"3e165287-7655-4ca2-98a4-9e344fef7f26"] +}, 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->"bcd17c95-d145-4122-a7bd-44e8db3d23d7"], + +Cell[BoxData["42.7423287298202`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.99381583454182*^9, 3.9938158934054613`*^9, { + 3.99381595257723*^9, 3.993815996582724*^9}, {3.9940127381809587`*^9, + 3.994012754170536*^9}, 3.9940132996708183`*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"37333825-1b9e-4297-86a7-21a35b71c7c2"] +}, 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->"7638ff49-9e29-4aab-808b-680969eab84e"], + +Cell[BoxData["852.656398631346`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.993815837006854*^9, 3.993815893411956*^9, { + 3.993815952590604*^9, 3.9938159966008883`*^9}, {3.9940127381948357`*^9, + 3.994012754188656*^9}, 3.994013299686632*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"c6f0ec83-71c5-49dd-a4b1-5b40a090dc83"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f1", "=", "0.4655670227"}]], "Input", + CellChangeTimes->{3.9918505481678543`*^9, 3.994012997482836*^9}, + CellLabel->"In[71]:=",ExpressionUUID->"83cccf0d-dccb-fb42-a058-5e950c758893"], + +Cell[BoxData["0.4655670227`"], "Output", + CellChangeTimes->{3.994013299701345*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"4902b4e1-c513-4873-a3c7-63e8f224c75b"] +}, 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.1238770169"}]], "Input", + CellChangeTimes->{3.991850550777445*^9, 3.994013002658407*^9}, + CellLabel->"In[73]:=",ExpressionUUID->"b70cfd2b-21a1-8344-9518-5e27a96171a9"], + +Cell[BoxData["0.1238770169`"], "Output", + CellChangeTimes->{3.994013299721425*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"464c3765-fe60-4bdd-9701-127be059661b"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918505524437046`*^9, 3.991850552447544*^9}}, + CellLabel->"In[74]:=",ExpressionUUID->"86df0a71-aa65-aa41-b8f1-8c5c5be10fe8"], Cell[CellGroupData[{ @@ -83,9 +4877,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.585212243083306`*^-53"], "Output", + CellChangeTimes->{3.994013299743024*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"003cc1e0-fdd7-4374-b4b8-65f8fbfecc34"] }, Open ]], Cell[CellGroupData[{ @@ -119,11 +4916,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["9.04855243963054`*^-55"], "Output", + CellChangeTimes->{3.994013299759556*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"93875724-d28c-4c11-9bb4-c068d8484ac0"] }, Open ]], Cell[CellGroupData[{ @@ -156,11 +4954,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["6.222602030222745`*^-55"], "Output", + CellChangeTimes->{3.994013299776758*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"9479b45c-19aa-4c82-8196-29823b597ec3"] }, Open ]], Cell[CellGroupData[{ @@ -182,10 +4981,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["8.689437824060754`"], "Output", + CellChangeTimes->{3.9940132997947493`*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"80dda7e2-c603-4def-81db-45ba6766dd2d"] }, Open ]], Cell[CellGroupData[{ @@ -210,10 +5011,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["24.29721879095639`"], "Output", + CellChangeTimes->{3.9940132998085957`*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"3dca37fd-01f1-4948-a509-510c2ae29bef"] }, Open ]], Cell[CellGroupData[{ @@ -221,10 +5024,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.217855514877399`"], "Output", + CellChangeTimes->{3.99401329982376*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"f0f9728c-b9cb-4a55-b95a-3592c9a5fa56"] }, Open ]], Cell[CellGroupData[{ @@ -232,10 +5037,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.923914006584161`"], "Output", + CellChangeTimes->{3.994013299832958*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"4a4c0631-e1c8-4124-a652-a0bf4b83c9b3"] }, Open ]], Cell[CellGroupData[{ @@ -243,10 +5050,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["143.93463471678643`"], "Output", + CellChangeTimes->{3.994013299847575*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"aeebd576-6944-417f-b0c7-a171da0d0e0a"] }, Open ]], Cell[CellGroupData[{ @@ -254,10 +5063,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["19.27191759927741`"], "Output", + CellChangeTimes->{3.994013299863817*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"e2f0772f-4ccd-4388-a989-d803e86eb8e5"] }, Open ]], Cell[CellGroupData[{ @@ -445,10 +5256,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.006787299785013409`"], "Output", + CellChangeTimes->{3.9940132998838*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"5be8d854-5d01-4e2a-84e8-02ca73b09dec"] }, Open ]], Cell[CellGroupData[{ @@ -460,18 +5273,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.757130190558152`"], "Output", + CellChangeTimes->{3.994013300167059*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"305f6466-b221-4214-9da9-b2f7d652c442"] }, Open ]], Cell[CellGroupData[{ @@ -661,10 +5468,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.05067026744014557`"], "Output", + CellChangeTimes->{3.994013300180985*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"eb57adcb-ac04-42e8-8a5b-cf1f4a9f9f92"] }, Open ]], Cell[CellGroupData[{ @@ -676,18 +5485,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.9370265398747053`"], "Output", + CellChangeTimes->{3.994013300259664*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"09f1d02c-602f-4983-942f-ef5146b2d5f1"] }, Open ]], Cell[CellGroupData[{ @@ -778,10 +5581,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.05674825314301471`"], "Output", + CellChangeTimes->{3.994013300274296*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"234d37a6-3af5-4fbf-bccf-029175dadc25"] }, Open ]], Cell[CellGroupData[{ @@ -869,10 +5674,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.9432517468569853`"], "Output", + CellChangeTimes->{3.9940133002904587`*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"ec196062-2d74-44f7-830d-80f93437d4d1"] }, Open ]], Cell[CellGroupData[{ @@ -993,16 +5800,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.05352788890823103`"], "Output", + CellChangeTimes->{3.994013300303466*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"11d91bac-88bc-4140-8a8a-70e2e5b439a6"] }, 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 +5825,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 +5875,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.150382254523802`*^-205\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 92, 1, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994013300340719*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"e72055cf-9f62-49c5-9cca-aadfc1b23586"], 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[\\\"3.7394413797168686`*^-210\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 92, 2, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994013300384112*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"358a6228-5c33-4575-a957-b85e1f0a1436"], -Cell[BoxData["4.366771860185332`"], "Output",ExpressionUUID->"1c49befc-babf-0743-9739-e64b536d1c51"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.502760987225225`*^-215\\\", \ +RowBox[{\\\"143094757247897252281238\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"64\\\", \\\"\[RightSkeleton]\\\"}], \\\"3737600000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 92, 3, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9940133003931713`*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"0516a77c-b7df-4232-be2c-fd02dfa0fb65"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 92, 4, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994013300400793*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"317a1720-21c1-4d5d-90b7-db67cba36193"], + +Cell[BoxData["10.757130190558131`"], "Output", + CellChangeTimes->{3.994013303126412*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"0052511e-bd74-4b9e-a218-3b728fbd7e48"] }, Open ]], Cell[CellGroupData[{ @@ -1098,30 +5953,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 +6003,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.150382254523802`*^-205\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 93, 5, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994013303257023*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"92d1603d-4d67-40a2-a90e-32714e84cc80"], 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[\\\"3.7394413797168686`*^-210\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 93, 6, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994013303317861*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"bc3fca0b-4073-4ff3-bab6-fcab808fb251"], -Cell[BoxData["8.621193087541219`"], "Output",ExpressionUUID->"6af143a4-6ae5-fb45-8cd1-6940f2290ff9"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.502760987225225`*^-215\\\", \ +RowBox[{\\\"143094757247897252281238\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"64\\\", \\\"\[RightSkeleton]\\\"}], \\\"3737600000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 93, 7, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994013303325823*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"c0a4a357-360e-46fe-81e4-80ecdd9ba9aa"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 93, 8, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9940133033340397`*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"bfa40d71-a9fb-48e0-b621-4be3650f894b"], + +Cell[BoxData["3.937026539874704`"], "Output", + CellChangeTimes->{3.9940133058968678`*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"00ced080-5883-46ec-8abe-9da6a35401ac"] }, Open ]], Cell[CellGroupData[{ @@ -1174,461 +6076,440 @@ 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:eJwV1nk4Fd8fB3CJkq0QsmaJIqJ7s1Vf58O1JGuULJGue8eS7EmRpUhlDX2j +SJGSCNFKvhWVH7KUpEUIQ7Zsd2iR3/HHPPO8npnnPe85c855RpEZYM/m5uLi +GsbH0jmoZcvGh20thu1+3o7NJ0hkOHFDh2lSgsbf6ycsuTdPN3ODSQ3qrb0p +9QbbjvVmhSD9JepVvyfUgl0RHl3Ha9KMxNe7erZin3u17ll0cTvqzb8u3Y79 +uC3o6h/ae3Tvv3j6O+yRT42Rx6u7EHfsyrvvsaUHlV0pxhcUNat6vgvb8kek +QUhzD2pWG3j9Gbv2z4hAeHEfqqchrx7szljJiAf+/Qgp63v3Y0+sMBmZpQ0i +O5HWxiHsFUmBzvQ5Ek2v5Ukdw5YXyW0Iqh5GIbs+VE1h28hQNycYY+hXhZPK +AjZxTUlCk28C9aquDFweQaJoFdv4w80/kK7FXll+7C7Jjq2hxVNoWL0pex02 +y8XXJyNpGpEGHF8F7Mkcruv3/GdQ7MXa3E3YfEqaa6ZoHHRlWGvTduxMVp35 +GnEKBUNXNANb4ZZztNYchVIKFQyssfU1zkwcqZ5HggHpbYewvXV7mkcYf9Bf +Z66MVOzZ8KM8/KoLqMqrbO4Kdky1wE41vr8IvLlqi7CzQP+OV/MiyjlwLqBu +qV9hg0lw8TIYBkQsYBe/yuiNleGGb7wrugQjcd8h98gLSdygqBZ0RxY7Up1T +We6/HMaGdI79g51Zpqj8g8YLQhan809jf2obq/1bwAu6s2GK/2IrTD90ERZf +AQ8nRLhvY5dss0nXnFsBVUFouBW7/vGJZX7VfGAUH7dL6SSJOHXveoYZgmDi +Kev8EVvUSnBNRK0gbJ8k+WaxtTtMQMhACOIlYzavjiKR78D9a1u3CEPwtML/ +zLADuZu1/xFcA7QibaIae1Dp7lQ8JQIVo1qbnkTj8SEaV7XSRUHVcCfvF2zu +O6TiuiBReOynvO8vtgJ9vX3xqCicextvbRJDIhdG2r2WXjHQTqu89h671TM4 +RLJJHEoLTrULnSLR11spiR58EpDPKP6iiz02Wlxw21QCOj5Xu3hg84f2v9vx +TAKi1l8vq8I2idu7zeO+JFyuvlDDPE2iJzd0OUV5UpDxhpvVEUeiG4O/wraH +ygGVGjoldJZEu/YlfA0plYNiOaLECHusXsyslJQD7bO3m45ib7uhIa7gLA9x +Eep6Pdj1TPdKXsP14MKv8+LBOTyvf/QeGz6tAM0aR2+HJ5JI7IhJVaW1EuyV +dHhpnkoi8ga/t52vEhROfxQ8i/3oS5vM+BkleDb+6VED9gErt9Oqz5Qg84Od +oWUa7rc5zD6bpgy6f+iLey/g54/cmoyS3AC1ntIuERkk2usloLm7TwU+Bo1E +iWWRCIXto+1fUAEtvtL37tjq8Xl6LClVqFDZmlyMzVVAN47aowopW+LkGdkk +Kv3quv/ec1WQ94ttDL+M16djSax0/kbotDG0oHJwPxPrzhGmGnh4240b5JOo +wOHS57koNUhAvgcvYKcw+3p5rqgBY+gE7Ts2K+boqPw7NdBoTvidXUAikZpc +LgeGOgjuPiXFVYjnD31CvVp5M0RPpJ/5eotEMkqp0YkDGpCzz5w2UEqimvOz +aj+5NYH2d36H3V08HjPOHYSiJszzCTyqwb5av0HN2F0TKuNcVl4qI5GS15O3 +8x80YdHlB/eeCvy+JYMqRNMWmDm/PfBTFYnkZOQJBWdtEMpX1mXUkEijMFTw +N6IB+ddU6EgziZis0xxNGxpoXAm8PoadpZz+1eMADRKCu7L93pBoeX5Z+atw +Glzn9n14pAWvt6sje9MraJDl8KUwtA3vp1keuWrKdOj0AvuLHfj7JlptcVqx +DRymAn4rdpPoevAGu/vNOqAHXRt9fpCoLQzpxRUawOQR9avBskNI0f29jZvf +P6A+nz84bjuE2IsP7sodB4heeK0bfWYISY4+WinJNAbD1Tm5PQ1DKJS+80u6 +ugnM1xfMFgsNI+b4nwaxEVMIW541lrZ/GJUah6zMazUHkacin1eVDaMbs77P +SzItIL287W3yyu9o3mjdm/poS8ieS2sVCfiOurmWT/UdsobHmzfdZH75jvxl +A9JilW2h5/uxRj2LEXTXp+HZxXg72Pu1Uabu1Qg6MSM1t9lnD2gFilydNR5F +nN1mjq8P2gPffd85qfZRZOB6wWhwjwNcMfWW12GNobdSub719L0w1HBHmX92 +DEnfPF1TtGkfLPBGSVL/jqNHvepWNkKOoGP9jnTXmUDyHZNeYeOOcELj4GeT +zglEv3ihpKB3P+xqb/tTcv4HyuWZ2ZJe5wTHe2PX8MlOogdGWp/iHzvDWOup +Vr/ISZSld17kT7EL7EkrpTZ2T6LWz4Vn6EmucFVxW2mv/hS6b52zITDmANjf +eM4flzuFpo44cPmz3OBjZpfb2j9TiGOm5j3BcIfE3yeTu52mUdH4x/kQ3YOw +xzVhmO/pNHK6XujpJugB37xzxAipGVR5z/Lg8gQPoIfEvL4UMYMMZN7+PPfT +A4Yn5P77r2MGKfd6fWr3OQSB/Lwda9Vm0YDAYduc/kMwSRNsso2ZRW0pNp7m ++5hQ8zVR53fzLMoMzxM42saES9c0awWlOaimdvGnp4UnvKRrjDS5c9DqA5BA +f+IJ2nXlNgJZHKSw9nWrbI0nbK1z4ZnF1m62Xrei1hPUKOutX7I5yH6n6+2u +554w0+84WXyFgzJlw5pO/g9beHjBKI+DpLvvrG7o8gR6/dwWx5sctMFdMuvA +nCd8qWwrEa/iIAOPiaL4bSxw3vfm1NAbDrqZPRlio8uClgx2dl4LB619N20o +qc+C9b5uWvtbOWjCdK6jaAcLuAKHu+rbOHj/4lrWbMyCm1u65C+/4yDhORFn +0T0sUDJ74azxkYMGknVW5R1hQcoe3tKJfg5KqY70eXSTBT6VLyQH5jjoCO2S +QXgRCyLjeqTC5znI6nbFKv1iFiQurs0W+MlB/JfI2w9LWbBjPVN46y8Oig+2 +G3lQhfNa77Uf/cNBkWobDt9/wYLP5X03SC4K+V5q8rv3lQWKzmGtrFUUshAm +dwb3skAn8AdjGHtTPJcQ7RsL6LaHaYf5KUQG65RWDLJA9IDwyQABCh2yyRsv +H2OBrF3EqyAhCjnxhviX/WKBLblCwk2EQuYh0oElEmxINtITallHoRd5Z3an +r2OD9ktJy91SFNrZPL0hXJoNqwJ5hl9ia6s0fWTIs8Ft2WXDamkKSX2IYHxW +YUNBcr/rVVkKjW7vluDXYQPt1iswU6BQKve1p14ObJBp0l0lu5FC/FqCWdb7 +2LBS5Oz8aew41/Bg+n42GIt+Y4xih1fZbVx0YUP7OaeJh5twf2LZhX+Z+P64 +yVQLdQrRG5msl0FscD5sOmOtSaEPF1QElNPY0DpgVvqJRqG7SMh7+AIbjrso ++Wyi4/zx2frSDDY4Gq/OPIpNs6iP0r/EBs/Ffl3hbfi/ictz2voqG1wkx+/q +61DILODax/ASNvQJhB4I1qOQnNxZXcO7bCC1+rkfYs82BmQsL2dD2sbzkr+x +81WRdUolGwxarRJj9Sm00N39rOAJG5TOm19JMKBQlZVMUUsD7qMebR++g0KJ +v7h5MxvZMGhX3lmJzSwaOeTcjPv4uzRMYK/heSIz0MqGzoTxGeZOCvlVO6X+ +7GTDi5leX5N/KKSs/m/YhkE2LDb3t4waUujXh5PvvpNs+NVeqSKPKNQWz9Yu +G2ZDyXLn77bYUX3bRgzG2EBVLTyowP6U9c7NdoYNRi8qfP2BQukrRUxPLCMg +R1Zdo9mIQjXT3a6hywn4tvCL/xf2UHdxsD8vAbEbn27daIznQ5XJNeYqAo5v +H3WMxiY9wn/vFiFAWbj9ryoD97cyFTUVIyD4vpCsLfYOPVE1JE6A25vRmDDs +NKESR7oUATwZXop1S9ef9FTIKBIw8Jhd42BCIaKwpEFcmYDOhSrxMOy0tOM9 +q1UI0Mv2eHAJmyTEhHjUCDCLLH3TtXRdzNx7TJsAxoSlg70phZ78FYsmaQQk +PSkm/bEHv/de7N1GQG3S5ufnsbc/O1HXoU/AStvjls+wB/zuyj8FAr5LZlcp +mVFI2ClC56ExAV4VLjEG2AaMXVYVJgRcbhHOsMVOkfp2vHAXAYL825OPYz/i +KUvL203AddtbocnY/T8ibmVbEZDrNZN/DVv/lfj7ZDsCLm6X6KjHZlZ8G02w +J2D22EDne+zknDLuU3vx+CbFKJDY34IttMOcCAiVEzvLY04hIXcJ80AXAhKP +cd8Uxda36HfzPUDAP6wKfgXs5PUnE909CKhJMSrSx37EvzvfiUlAI69cHwP7 +G0fisT2LAN5TJR42S3l9/a1WBAHlSeOqTkt5zeWkmTfu96mbfgib+fDkAvgS +MG0ZkeCzlJ+/e+0OPwLOjNUpBi3lJ0tu1vEn4NzMfe7wpfzwASOtQALK6mzV +o7AFWRVOasEEaIymZp3G1rONClAOJeCB8lHrs0v52y3PyIUREGf/d1cSdpLK +ulzJcAIsz6onpmI/WDNYKXICv9+yn2Lp2H2/KxoFIgkQV/Hpz1jKH4rq440i +QCDhxM9MbN23lvOL0QT0DGo4XsT+P9RX7ao= + "]]}, + 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:eJwV1nk4Fd8fB3CJkq0QsmaJIqJ7s1Vf58O1JGuULJGue8eS7EmRpUhlDX2j +SJGSCNFKvhWVH7KUpEUIQ7Zsd2iR3/HHPPO8npnnPe85c855RpEZYM/m5uLi +GsbH0jmoZcvGh20thu1+3o7NJ0hkOHFDh2lSgsbf6ycsuTdPN3ODSQ3qrb0p +9QbbjvVmhSD9JepVvyfUgl0RHl3Ha9KMxNe7erZin3u17ll0cTvqzb8u3Y79 +uC3o6h/ae3Tvv3j6O+yRT42Rx6u7EHfsyrvvsaUHlV0pxhcUNat6vgvb8kek +QUhzD2pWG3j9Gbv2z4hAeHEfqqchrx7szljJiAf+/Qgp63v3Y0+sMBmZpQ0i +O5HWxiHsFUmBzvQ5Ek2v5Ukdw5YXyW0Iqh5GIbs+VE1h28hQNycYY+hXhZPK +AjZxTUlCk28C9aquDFweQaJoFdv4w80/kK7FXll+7C7Jjq2hxVNoWL0pex02 +y8XXJyNpGpEGHF8F7Mkcruv3/GdQ7MXa3E3YfEqaa6ZoHHRlWGvTduxMVp35 +GnEKBUNXNANb4ZZztNYchVIKFQyssfU1zkwcqZ5HggHpbYewvXV7mkcYf9Bf +Z66MVOzZ8KM8/KoLqMqrbO4Kdky1wE41vr8IvLlqi7CzQP+OV/MiyjlwLqBu +qV9hg0lw8TIYBkQsYBe/yuiNleGGb7wrugQjcd8h98gLSdygqBZ0RxY7Up1T +We6/HMaGdI79g51Zpqj8g8YLQhan809jf2obq/1bwAu6s2GK/2IrTD90ERZf +AQ8nRLhvY5dss0nXnFsBVUFouBW7/vGJZX7VfGAUH7dL6SSJOHXveoYZgmDi +Kev8EVvUSnBNRK0gbJ8k+WaxtTtMQMhACOIlYzavjiKR78D9a1u3CEPwtML/ +zLADuZu1/xFcA7QibaIae1Dp7lQ8JQIVo1qbnkTj8SEaV7XSRUHVcCfvF2zu +O6TiuiBReOynvO8vtgJ9vX3xqCicextvbRJDIhdG2r2WXjHQTqu89h671TM4 +RLJJHEoLTrULnSLR11spiR58EpDPKP6iiz02Wlxw21QCOj5Xu3hg84f2v9vx +TAKi1l8vq8I2idu7zeO+JFyuvlDDPE2iJzd0OUV5UpDxhpvVEUeiG4O/wraH +ygGVGjoldJZEu/YlfA0plYNiOaLECHusXsyslJQD7bO3m45ib7uhIa7gLA9x +Eep6Pdj1TPdKXsP14MKv8+LBOTyvf/QeGz6tAM0aR2+HJ5JI7IhJVaW1EuyV +dHhpnkoi8ga/t52vEhROfxQ8i/3oS5vM+BkleDb+6VED9gErt9Oqz5Qg84Od +oWUa7rc5zD6bpgy6f+iLey/g54/cmoyS3AC1ntIuERkk2usloLm7TwU+Bo1E +iWWRCIXto+1fUAEtvtL37tjq8Xl6LClVqFDZmlyMzVVAN47aowopW+LkGdkk +Kv3quv/ec1WQ94ttDL+M16djSax0/kbotDG0oHJwPxPrzhGmGnh4240b5JOo +wOHS57koNUhAvgcvYKcw+3p5rqgBY+gE7Ts2K+boqPw7NdBoTvidXUAikZpc +LgeGOgjuPiXFVYjnD31CvVp5M0RPpJ/5eotEMkqp0YkDGpCzz5w2UEqimvOz +aj+5NYH2d36H3V08HjPOHYSiJszzCTyqwb5av0HN2F0TKuNcVl4qI5GS15O3 +8x80YdHlB/eeCvy+JYMqRNMWmDm/PfBTFYnkZOQJBWdtEMpX1mXUkEijMFTw +N6IB+ddU6EgziZis0xxNGxpoXAm8PoadpZz+1eMADRKCu7L93pBoeX5Z+atw +Glzn9n14pAWvt6sje9MraJDl8KUwtA3vp1keuWrKdOj0AvuLHfj7JlptcVqx +DRymAn4rdpPoevAGu/vNOqAHXRt9fpCoLQzpxRUawOQR9avBskNI0f29jZvf +P6A+nz84bjuE2IsP7sodB4heeK0bfWYISY4+WinJNAbD1Tm5PQ1DKJS+80u6 +ugnM1xfMFgsNI+b4nwaxEVMIW541lrZ/GJUah6zMazUHkacin1eVDaMbs77P +SzItIL287W3yyu9o3mjdm/poS8ieS2sVCfiOurmWT/UdsobHmzfdZH75jvxl +A9JilW2h5/uxRj2LEXTXp+HZxXg72Pu1Uabu1Qg6MSM1t9lnD2gFilydNR5F +nN1mjq8P2gPffd85qfZRZOB6wWhwjwNcMfWW12GNobdSub719L0w1HBHmX92 +DEnfPF1TtGkfLPBGSVL/jqNHvepWNkKOoGP9jnTXmUDyHZNeYeOOcELj4GeT +zglEv3ihpKB3P+xqb/tTcv4HyuWZ2ZJe5wTHe2PX8MlOogdGWp/iHzvDWOup +Vr/ISZSld17kT7EL7EkrpTZ2T6LWz4Vn6EmucFVxW2mv/hS6b52zITDmANjf +eM4flzuFpo44cPmz3OBjZpfb2j9TiGOm5j3BcIfE3yeTu52mUdH4x/kQ3YOw +xzVhmO/pNHK6XujpJugB37xzxAipGVR5z/Lg8gQPoIfEvL4UMYMMZN7+PPfT +A4Yn5P77r2MGKfd6fWr3OQSB/Lwda9Vm0YDAYduc/kMwSRNsso2ZRW0pNp7m ++5hQ8zVR53fzLMoMzxM42saES9c0awWlOaimdvGnp4UnvKRrjDS5c9DqA5BA +f+IJ2nXlNgJZHKSw9nWrbI0nbK1z4ZnF1m62Xrei1hPUKOutX7I5yH6n6+2u +554w0+84WXyFgzJlw5pO/g9beHjBKI+DpLvvrG7o8gR6/dwWx5sctMFdMuvA +nCd8qWwrEa/iIAOPiaL4bSxw3vfm1NAbDrqZPRlio8uClgx2dl4LB619N20o +qc+C9b5uWvtbOWjCdK6jaAcLuAKHu+rbOHj/4lrWbMyCm1u65C+/4yDhORFn +0T0sUDJ74azxkYMGknVW5R1hQcoe3tKJfg5KqY70eXSTBT6VLyQH5jjoCO2S +QXgRCyLjeqTC5znI6nbFKv1iFiQurs0W+MlB/JfI2w9LWbBjPVN46y8Oig+2 +G3lQhfNa77Uf/cNBkWobDt9/wYLP5X03SC4K+V5q8rv3lQWKzmGtrFUUshAm +dwb3skAn8AdjGHtTPJcQ7RsL6LaHaYf5KUQG65RWDLJA9IDwyQABCh2yyRsv +H2OBrF3EqyAhCjnxhviX/WKBLblCwk2EQuYh0oElEmxINtITallHoRd5Z3an +r2OD9ktJy91SFNrZPL0hXJoNqwJ5hl9ia6s0fWTIs8Ft2WXDamkKSX2IYHxW +YUNBcr/rVVkKjW7vluDXYQPt1iswU6BQKve1p14ObJBp0l0lu5FC/FqCWdb7 +2LBS5Oz8aew41/Bg+n42GIt+Y4xih1fZbVx0YUP7OaeJh5twf2LZhX+Z+P64 +yVQLdQrRG5msl0FscD5sOmOtSaEPF1QElNPY0DpgVvqJRqG7SMh7+AIbjrso ++Wyi4/zx2frSDDY4Gq/OPIpNs6iP0r/EBs/Ffl3hbfi/ictz2voqG1wkx+/q +61DILODax/ASNvQJhB4I1qOQnNxZXcO7bCC1+rkfYs82BmQsL2dD2sbzkr+x +81WRdUolGwxarRJj9Sm00N39rOAJG5TOm19JMKBQlZVMUUsD7qMebR++g0KJ +v7h5MxvZMGhX3lmJzSwaOeTcjPv4uzRMYK/heSIz0MqGzoTxGeZOCvlVO6X+ +7GTDi5leX5N/KKSs/m/YhkE2LDb3t4waUujXh5PvvpNs+NVeqSKPKNQWz9Yu +G2ZDyXLn77bYUX3bRgzG2EBVLTyowP6U9c7NdoYNRi8qfP2BQukrRUxPLCMg +R1Zdo9mIQjXT3a6hywn4tvCL/xf2UHdxsD8vAbEbn27daIznQ5XJNeYqAo5v +H3WMxiY9wn/vFiFAWbj9ryoD97cyFTUVIyD4vpCsLfYOPVE1JE6A25vRmDDs +NKESR7oUATwZXop1S9ef9FTIKBIw8Jhd42BCIaKwpEFcmYDOhSrxMOy0tOM9 +q1UI0Mv2eHAJmyTEhHjUCDCLLH3TtXRdzNx7TJsAxoSlg70phZ78FYsmaQQk +PSkm/bEHv/de7N1GQG3S5ufnsbc/O1HXoU/AStvjls+wB/zuyj8FAr5LZlcp +mVFI2ClC56ExAV4VLjEG2AaMXVYVJgRcbhHOsMVOkfp2vHAXAYL825OPYz/i +KUvL203AddtbocnY/T8ibmVbEZDrNZN/DVv/lfj7ZDsCLm6X6KjHZlZ8G02w +J2D22EDne+zknDLuU3vx+CbFKJDY34IttMOcCAiVEzvLY04hIXcJ80AXAhKP +cd8Uxda36HfzPUDAP6wKfgXs5PUnE909CKhJMSrSx37EvzvfiUlAI69cHwP7 +G0fisT2LAN5TJR42S3l9/a1WBAHlSeOqTkt5zeWkmTfu96mbfgib+fDkAvgS +MG0ZkeCzlJ+/e+0OPwLOjNUpBi3lJ0tu1vEn4NzMfe7wpfzwASOtQALK6mzV +o7AFWRVOasEEaIymZp3G1rONClAOJeCB8lHrs0v52y3PyIUREGf/d1cSdpLK +ulzJcAIsz6onpmI/WDNYKXICv9+yn2Lp2H2/KxoFIgkQV/Hpz1jKH4rq440i +QCDhxM9MbN23lvOL0QT0DGo4XsT+P9RX7ao= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7024900138525486, + 1.3924764028764611`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7024900138525502}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.7024900138525486, + 1.3924764028764611`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7024900138525502}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJwV1nk4Fd8fB3CJkq0QsmaJIqJ7s1Vf58O1JGuULJGue8eS7EmRpUhlDX2j +SJGSCNFKvhWVH7KUpEUIQ7Zsd2iR3/HHPPO8npnnPe85c855RpEZYM/m5uLi +GsbH0jmoZcvGh20thu1+3o7NJ0hkOHFDh2lSgsbf6ycsuTdPN3ODSQ3qrb0p +9QbbjvVmhSD9JepVvyfUgl0RHl3Ha9KMxNe7erZin3u17ll0cTvqzb8u3Y79 +uC3o6h/ae3Tvv3j6O+yRT42Rx6u7EHfsyrvvsaUHlV0pxhcUNat6vgvb8kek +QUhzD2pWG3j9Gbv2z4hAeHEfqqchrx7szljJiAf+/Qgp63v3Y0+sMBmZpQ0i +O5HWxiHsFUmBzvQ5Ek2v5Ukdw5YXyW0Iqh5GIbs+VE1h28hQNycYY+hXhZPK +AjZxTUlCk28C9aquDFweQaJoFdv4w80/kK7FXll+7C7Jjq2hxVNoWL0pex02 +y8XXJyNpGpEGHF8F7Mkcruv3/GdQ7MXa3E3YfEqaa6ZoHHRlWGvTduxMVp35 +GnEKBUNXNANb4ZZztNYchVIKFQyssfU1zkwcqZ5HggHpbYewvXV7mkcYf9Bf +Z66MVOzZ8KM8/KoLqMqrbO4Kdky1wE41vr8IvLlqi7CzQP+OV/MiyjlwLqBu +qV9hg0lw8TIYBkQsYBe/yuiNleGGb7wrugQjcd8h98gLSdygqBZ0RxY7Up1T +We6/HMaGdI79g51Zpqj8g8YLQhan809jf2obq/1bwAu6s2GK/2IrTD90ERZf +AQ8nRLhvY5dss0nXnFsBVUFouBW7/vGJZX7VfGAUH7dL6SSJOHXveoYZgmDi +Kev8EVvUSnBNRK0gbJ8k+WaxtTtMQMhACOIlYzavjiKR78D9a1u3CEPwtML/ +zLADuZu1/xFcA7QibaIae1Dp7lQ8JQIVo1qbnkTj8SEaV7XSRUHVcCfvF2zu +O6TiuiBReOynvO8vtgJ9vX3xqCicextvbRJDIhdG2r2WXjHQTqu89h671TM4 +RLJJHEoLTrULnSLR11spiR58EpDPKP6iiz02Wlxw21QCOj5Xu3hg84f2v9vx +TAKi1l8vq8I2idu7zeO+JFyuvlDDPE2iJzd0OUV5UpDxhpvVEUeiG4O/wraH +ygGVGjoldJZEu/YlfA0plYNiOaLECHusXsyslJQD7bO3m45ib7uhIa7gLA9x +Eep6Pdj1TPdKXsP14MKv8+LBOTyvf/QeGz6tAM0aR2+HJ5JI7IhJVaW1EuyV +dHhpnkoi8ga/t52vEhROfxQ8i/3oS5vM+BkleDb+6VED9gErt9Oqz5Qg84Od +oWUa7rc5zD6bpgy6f+iLey/g54/cmoyS3AC1ntIuERkk2usloLm7TwU+Bo1E +iWWRCIXto+1fUAEtvtL37tjq8Xl6LClVqFDZmlyMzVVAN47aowopW+LkGdkk +Kv3quv/ec1WQ94ttDL+M16djSax0/kbotDG0oHJwPxPrzhGmGnh4240b5JOo +wOHS57koNUhAvgcvYKcw+3p5rqgBY+gE7Ts2K+boqPw7NdBoTvidXUAikZpc +LgeGOgjuPiXFVYjnD31CvVp5M0RPpJ/5eotEMkqp0YkDGpCzz5w2UEqimvOz +aj+5NYH2d36H3V08HjPOHYSiJszzCTyqwb5av0HN2F0TKuNcVl4qI5GS15O3 +8x80YdHlB/eeCvy+JYMqRNMWmDm/PfBTFYnkZOQJBWdtEMpX1mXUkEijMFTw +N6IB+ddU6EgziZis0xxNGxpoXAm8PoadpZz+1eMADRKCu7L93pBoeX5Z+atw +Glzn9n14pAWvt6sje9MraJDl8KUwtA3vp1keuWrKdOj0AvuLHfj7JlptcVqx +DRymAn4rdpPoevAGu/vNOqAHXRt9fpCoLQzpxRUawOQR9avBskNI0f29jZvf +P6A+nz84bjuE2IsP7sodB4heeK0bfWYISY4+WinJNAbD1Tm5PQ1DKJS+80u6 +ugnM1xfMFgsNI+b4nwaxEVMIW541lrZ/GJUah6zMazUHkacin1eVDaMbs77P +SzItIL287W3yyu9o3mjdm/poS8ieS2sVCfiOurmWT/UdsobHmzfdZH75jvxl +A9JilW2h5/uxRj2LEXTXp+HZxXg72Pu1Uabu1Qg6MSM1t9lnD2gFilydNR5F +nN1mjq8P2gPffd85qfZRZOB6wWhwjwNcMfWW12GNobdSub719L0w1HBHmX92 +DEnfPF1TtGkfLPBGSVL/jqNHvepWNkKOoGP9jnTXmUDyHZNeYeOOcELj4GeT +zglEv3ihpKB3P+xqb/tTcv4HyuWZ2ZJe5wTHe2PX8MlOogdGWp/iHzvDWOup +Vr/ISZSld17kT7EL7EkrpTZ2T6LWz4Vn6EmucFVxW2mv/hS6b52zITDmANjf +eM4flzuFpo44cPmz3OBjZpfb2j9TiGOm5j3BcIfE3yeTu52mUdH4x/kQ3YOw +xzVhmO/pNHK6XujpJugB37xzxAipGVR5z/Lg8gQPoIfEvL4UMYMMZN7+PPfT +A4Yn5P77r2MGKfd6fWr3OQSB/Lwda9Vm0YDAYduc/kMwSRNsso2ZRW0pNp7m ++5hQ8zVR53fzLMoMzxM42saES9c0awWlOaimdvGnp4UnvKRrjDS5c9DqA5BA +f+IJ2nXlNgJZHKSw9nWrbI0nbK1z4ZnF1m62Xrei1hPUKOutX7I5yH6n6+2u +554w0+84WXyFgzJlw5pO/g9beHjBKI+DpLvvrG7o8gR6/dwWx5sctMFdMuvA +nCd8qWwrEa/iIAOPiaL4bSxw3vfm1NAbDrqZPRlio8uClgx2dl4LB619N20o +qc+C9b5uWvtbOWjCdK6jaAcLuAKHu+rbOHj/4lrWbMyCm1u65C+/4yDhORFn +0T0sUDJ74azxkYMGknVW5R1hQcoe3tKJfg5KqY70eXSTBT6VLyQH5jjoCO2S +QXgRCyLjeqTC5znI6nbFKv1iFiQurs0W+MlB/JfI2w9LWbBjPVN46y8Oig+2 +G3lQhfNa77Uf/cNBkWobDt9/wYLP5X03SC4K+V5q8rv3lQWKzmGtrFUUshAm +dwb3skAn8AdjGHtTPJcQ7RsL6LaHaYf5KUQG65RWDLJA9IDwyQABCh2yyRsv +H2OBrF3EqyAhCjnxhviX/WKBLblCwk2EQuYh0oElEmxINtITallHoRd5Z3an +r2OD9ktJy91SFNrZPL0hXJoNqwJ5hl9ia6s0fWTIs8Ft2WXDamkKSX2IYHxW +YUNBcr/rVVkKjW7vluDXYQPt1iswU6BQKve1p14ObJBp0l0lu5FC/FqCWdb7 +2LBS5Oz8aew41/Bg+n42GIt+Y4xih1fZbVx0YUP7OaeJh5twf2LZhX+Z+P64 +yVQLdQrRG5msl0FscD5sOmOtSaEPF1QElNPY0DpgVvqJRqG7SMh7+AIbjrso ++Wyi4/zx2frSDDY4Gq/OPIpNs6iP0r/EBs/Ffl3hbfi/ictz2voqG1wkx+/q +61DILODax/ASNvQJhB4I1qOQnNxZXcO7bCC1+rkfYs82BmQsL2dD2sbzkr+x +81WRdUolGwxarRJj9Sm00N39rOAJG5TOm19JMKBQlZVMUUsD7qMebR++g0KJ +v7h5MxvZMGhX3lmJzSwaOeTcjPv4uzRMYK/heSIz0MqGzoTxGeZOCvlVO6X+ +7GTDi5leX5N/KKSs/m/YhkE2LDb3t4waUujXh5PvvpNs+NVeqSKPKNQWz9Yu +G2ZDyXLn77bYUX3bRgzG2EBVLTyowP6U9c7NdoYNRi8qfP2BQukrRUxPLCMg +R1Zdo9mIQjXT3a6hywn4tvCL/xf2UHdxsD8vAbEbn27daIznQ5XJNeYqAo5v +H3WMxiY9wn/vFiFAWbj9ryoD97cyFTUVIyD4vpCsLfYOPVE1JE6A25vRmDDs +NKESR7oUATwZXop1S9ef9FTIKBIw8Jhd42BCIaKwpEFcmYDOhSrxMOy0tOM9 +q1UI0Mv2eHAJmyTEhHjUCDCLLH3TtXRdzNx7TJsAxoSlg70phZ78FYsmaQQk +PSkm/bEHv/de7N1GQG3S5ufnsbc/O1HXoU/AStvjls+wB/zuyj8FAr5LZlcp +mVFI2ClC56ExAV4VLjEG2AaMXVYVJgRcbhHOsMVOkfp2vHAXAYL825OPYz/i +KUvL203AddtbocnY/T8ibmVbEZDrNZN/DVv/lfj7ZDsCLm6X6KjHZlZ8G02w +J2D22EDne+zknDLuU3vx+CbFKJDY34IttMOcCAiVEzvLY04hIXcJ80AXAhKP +cd8Uxda36HfzPUDAP6wKfgXs5PUnE909CKhJMSrSx37EvzvfiUlAI69cHwP7 +G0fisT2LAN5TJR42S3l9/a1WBAHlSeOqTkt5zeWkmTfu96mbfgib+fDkAvgS +MG0ZkeCzlJ+/e+0OPwLOjNUpBi3lJ0tu1vEn4NzMfe7wpfzwASOtQALK6mzV +o7AFWRVOasEEaIymZp3G1rONClAOJeCB8lHrs0v52y3PyIUREGf/d1cSdpLK +ulzJcAIsz6onpmI/WDNYKXICv9+yn2Lp2H2/KxoFIgkQV/Hpz1jKH4rq440i +QCDhxM9MbN23lvOL0QT0DGo4XsT+P9RX7ao= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7024900138525486, 1.3924764028764611`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7024900138525502}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.7024900138525502}, + 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.7024900138525486, 1.3924764028764611`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9940135798705387`*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"e8540aa1-7e16-455b-b3f1-a18931c2bb1f"] }, Open ]], Cell[CellGroupData[{ @@ -1643,30 +6524,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 +6575,1357 @@ 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.6327004943221044`*^-269\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 95, 9, + 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994013580244149*^9}, + CellLabel-> + "During evaluation of \ +In[95]:=",ExpressionUUID->"7a5aa2d4-3dff-465e-9d66-bbbde5f7d5bb"], 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[\\\"2.3726799448386493`*^-280\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 95, + 10, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994013580252976*^9}, + CellLabel-> + "During evaluation of \ +In[95]:=",ExpressionUUID->"efdc8cb2-2a45-42c7-9ec8-616f090dda97"], 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.5497038991897605`*^-291\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 95, 11, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99401358026077*^9}, + CellLabel-> + "During evaluation of \ +In[95]:=",ExpressionUUID->"bcaa54e7-a685-4c18-a92f-352829f157ac"], 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, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994013580266788*^9}, + CellLabel-> + "During evaluation of \ +In[95]:=",ExpressionUUID->"70e0b177-86a2-4895-9cf3-94241ba4551e"], 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:eJwV13k4Vd0XB3Ch1xDKfM33XpdKMkQkbmtRSchFpkwhmtGAQjKUSJFUktec +6jXfc6VCJVOGSpOMRaRCxsyl/M7vr/N8nvM8Z5+z9t7ftQ/Ny9/Wh5uLi0t0 +GRfX/6+zPU11jEu5W1rUTVy4O423tGZQgo07osDbO2NWcy8VUPK1F6UjCbZ/ +UDoiuFcLgqzz23k6cqCaZaY+6Y4gOiadtNDOAfO19/9rdreG3sdW/tPtNXDs +n/AOlrsHmDKGP022vwNPnmDHANdjsNCuf2OivR+SerMMVtlHQO3We7lvc6ZA +ZLbFoLo/EeR7y795qf+BqT7/ZdcaUkDi6N58vq08uDVvOz1fKguStE0rrez5 +8ceeOxqhXbehM0Xr2eQqYWRt0nwbJnUPLuWGv+aWEcWhazFRZlvyQfr6l4vX +0sXxS/PlEOZUIVDWlZ2fvyuO5ln8TlcXC0G25kK4G1sce2RKDvYuLwLFibWB +q2vFEWXqFQ9TikDF8phH5aA4JvRFPDFgFoEO7x+9LzoSeCX/6/Nn0UXACpAa +2NAsgYriwmf2ixVDjN3OLe9mJXGemebSJVMCsvdbZLmXSaGw4XF5V3oJFIvb +zWmvkELvOdu6NrUSaHvnzr6qJIXmVUT9A8MSYNgE0G3MpPBv4J0gmlsJ1OzK +/OfNLSnc/+NoR1ZGCfwxnWl5ZSSNcjerNWkibEi8G1Lwx1QaHTXCno6LsoHx +D1fsehtprJVSKKuQZINlvaBxvI803oka69iuwIbUrdRSywRpHLf3mtJSZ8Mm +tLj5olcaxc7qGTnvZMNJg+y9TVEULIj7fG8ugg3mWSLTFpcp2LqMt1nmPBvo +fGdiW25Q8EBBZd2mGDa8aXUg3v9Hwb2Ui1t949mgcUyIp6eFgjkKW7zZt9gw +ePfU3Z+yMtimuoeeSbDBVcJqVK5UBlN5uXYo9rJBJ7QyMuOxDDrn+Xl097FB +sH+NFO25DDIvuNjcGGBDeQkPqHbKYJBJS/nSEBukLMoTtZZkUFeefrd4mhw/ +kqG73UIWd8z9ngsQIGDb+K8Qvy+y+PC8rUiuFgHBZtfVqkdkUbnk2vGJDQQU +Z6/vEp+VRdXYkBaDjQRQ7DwMyvnlUFKjMbDWgICRR/VzPBpyWP0x9CzHhIBr +UYkBt07LodPWrn+XdhPQL6nqVycsj0u6n1iOAQRI+1cpSEvL4zqODnNrEAGW +jU6vDlHl0Vhyh5r6aQIehFxSX6kjj26dmbwzoQTE9U4M73GSx9MfVau9zhGw +Ia/ywHiOPOp4F14vvkpApJGNp+wmBawUSM8TKCTAzD3jp76JArKUy+49LCJA +JOLHOXtLBSydD1vjVUJAWm303UQPBZQzGSwt5BDwyLzixz8XFXCMaPorXU7A +hJNy0FSnArZO33u1o56AhyHH+EQHFPBGMkvj6XMCzqY9SdEYU8C/Miij3UiA +0GfHykPcijiRzpco9IKA1Qcuc31WU0SX7VUrU98Q4B44E/cyVBGjzlW/XtlN +gMpNE/nhaEXUSYuXYH38f/2uFPElKuJ8r+VI3CcCQhbXvjHJVURf7WmH+V4C +bpxzlyx/qYh7JszX5g8Q8PJqQ+YdBSW8EJBldniUrHephHbtaiUsKFvBe3KM +AOcPnjWftZVQ5aii6+lxAgYpiwNypkqo1d08cHqSAJ4sLbUkPyV8ZXr0sM0M +AZuLb90/W6WEclzB3R6L5Hpob/kz1qiE4cejSlT+EGDFxbtj7zslzL5edOs7 +6X22fp3wVQmtbAmO1xIBpqG08IjlVPyxP4lPj5sDL1Y+vr1JkIov5xrSvpC2 +znVonBChYtiyWssEHg64vLok6kmhYuCGQ0tdvBw4pjR723gdFV+YGj2z4ePA +TGli44ImFaueuxsNkg4xWzdK6FLxxntKRyg/B6KPe+jRt1BRRbP5WKoAB1Jr +mxu5bagY0RizqWwFB5ScfEYr7Kk4FN9QoyvEgdyRJdGTzlT85ZtxnCBdIrnR +5cs+KhYnZ0COMAfqDmSO1gZRcVjyR7HnSg7sXDQQOxNKxZ2Off7NpFsSW/V0 +I6i4fCDVWWsVBzrLBSJyL1JRR+B3yRRpd6vcXNcE8nuHp+VsRDkw0L+lSeIa +eT/P6X4B6bEVAWLRaVT0rl/h6yTGgZNZIvrMbCpy2ksT8knP6+a5zNwh30/j +VO8CaR73nlyfEiqKB/OLJopzIPbn6SaF+1T8HqY71UZaJEZ87MMjKn4Y1ueT +k+AAhW2mb1pDRb/jsQ2ppNO3fXH5+5yKmSObAttI0zvDIh68oKJkUozjSkkO +rOcubVL9QI7n8urxadKc5F1jPZ1U9FFeb5xHetO6QbGbPVRc57y42EbaxE7B +lW+QfH50tYKaFAcaBh9GVI1QUc9a5TyLtGWY7Z1Tk1QU0mtlnCD9TnS0SXOW +nK+nF7iSSDvejRn7/ouKGZKz0iWkP26mi2ctUfG+4McjTaS9Xj/Wd+KlYdmq +qcXPpL/vc3RdJUBDFnP2xQzpo/OTEY3CNEw1y+7kk+bA5uP7pb6J0XDDlTgW +hTT/cFcBD4WG2/XOxqmQbvNiGdMUaHixzfeSJuk73bVtW+g0dPlmsVuPdIDd +pqOuq2n499GKLwakTV4VLgtRp+F0WLbhZtKrTGk3b2rT0BG53fVJ9zy9oV6m +R0Olb8oW2qQL9QVr3hnS8KzmH541pEPYZx0nkIZrHkRflCNttnZqRNiUhoUj +ZR9XkJbKORC1zoKGzxRi/s6T3zMg+1F6pzUNk49MjfeT5lyzLtpvT0PG6xni +//WIEKo3Oe9Mw0jpuO1FpFnRBh3Ze2moNlRYEE9a8W+Rb5U3De2euHw9THok +iM7z6RANoe/61DbSFePJKb/8aBgd6NguRzr24AoNSgANvXxvXx0n59OhL7x2 +YzANBROClZ+RZjhPO+0+S8NZ3+74eNLPLD6dS4ilYUG75YQi6YQ6G5nCeBqe +ytg33E+uJ1fm8+KmJBpqpktU3ya9oFHSyZtOw6kUV3550o33lP3pOTS0Ml4W ++p5cr8nUFF68R8M3QS4tMaQ3iEVqhhI0zEm3k/tOrneuSzN1KQ9ouDaJTzqJ +dAvPYecHlTRsp6TMGZA+MmMbPVlPw7HIqCMR5H7K7WB0H+iiYWvNouEguT9P +2Nw6Ft1L1r9Z6kwIaWwW/uf2AA27G8/lCZD+VDmr1TNGw08/Mt8oipDzkdl4 +wY6HjhXVK/wYZB4MSDPlT/DT8ZvqF70MMj84iQRxRZiO3hdLZyRIs6JSPzZL +03HiUNaeBTJvYn2ObjBWp2P+ldDOdDKfFtat6llvT0f1/YocBzLvZtNlI3Wc +6bgoXF55exkHpleqMAz20nGktWBwlIvMgymDw9sO0dHs5hA7mMzP/sp9s85h +dEy4RJHxJ/O32eKhSOwdOlopDRu9I/O54Uk1EZ9PR/k69t/JaQLqNF/aXSuh +46NqxxkR0k/F+1IzyuloZ/80Gn8SwOkWXF32io4Bqna2UWQ/SD3iDv0zdBzL +q7kZ+Y2Am58O9n//RUflzc0agV8JuM46GT26RMcZj1ah/WR/SdCJfTEvoIzn +BONzoJ+AqN+E40pFZexcNmf3juxPRy4tP2ZkqozazURXUCsBRgWFWcnJyihv +WFpUV0VAN7Ugc/u/yrja1cIq9CnZz5LzMqYzlTHSK4nQfEL208i7abZ5ynhW +mlp3tYLs505ZKSKPlTGt86euYRkBa5dfT7zQp4xNZp4MRj4BUntDI4LUGTi4 +LXyrfRIBZa3B4SraDCzKoas9TyTAzvz02daNDBz9TkzpXiEgaWPgmQ3AwFg6 +oSN0mQBhIf/TYzYMDH4ifD47mgDecq9j+08xUM1QxOoged6YFDP3cKhhYGTt +llZfVwI6jtLfHG5g4Olza0oDnQl49vwXhL9koMBfLmaoEwGJIQVK/7UxcCJ7 +yCHcjgCtfqHehWEGavmkNR2xJMCPeO2WLq6CcUn/dbcZEjDMsncZ8FZBaSVV +iyUKAQOXPRxO8KmiKpXz59tLNvgNq9O1hFRRzm7B+kozG+Z2LIyOrlJFrfyD +QxsbyfMdT1L0IVlVpO9yHgurZYNWcO19j/WqWNzTdHChnA1hPqrirN2q2Cq+ +mZ55lzzvbRl5vS5TFWcux1YVnWXDzvFTO7/qrca+zru5FDU2jOzjP3k/fA3O +nKm/GlZVTP5vSHPH1KzFr0Xx/vX8RSD2SjWBPa6GmYc3VWrYFYB8bIm1np46 +prMnZMUO5EHKOoNV4gfWY0OQt2x54j1oljXeOHVVA+1/7yu/XX0HNsvXJGq2 +aeKaeHtbtze3QYQnJ8AzSgsrUiIfCa/IAcVIJaM9qto4WJ4NstpZIKDi+sC2 +QRvXtv3e/PNHGmgwZUpOuW1Ap+y0P6a9t+BEj1itOZcO8t17teZtQzKMT122 +35mig/8e3j1WK3cddmg+T925Xhenqqsv/CKuwtMpw99zLbqoWqm2IJORAH7q +G7re+mzEfJEvQ7SUOGCOebfuEdBDxROeXl9KLsB2BmWXcI4enikVNcET52BN +RNzpGn193BZYksbIjgA1H4MqlS59jBTqdfb8Fgo+Tw+ev398E072aXuGXz4F +VVmt3pOSBtig+0riTMhJmP5vaU7zoQEKOCr8fSN6DPapFAik7tqM6t1Wz7kf +HoZJtWt6nInN+DD+tu2axz7wKPd330ysIRqE2D63bvUEva0Bc+aXDFEjqUpu +13NPKOsbEcqKN8Rxvbzlux95AkexR988yRA3u05FhqZ5QmHKs/iMfw1R8MOr +i1t8PCHrcrTBjmJDZAk82hE77wEXA1ZeTXlviFF6q73+UfUA523KaKhohI+z +Jjcy9N3gTyu/SC3VCGUuxpncVHCDLJ+xbnNlIxQYa/6qwOsG3y6Un3JeY4S3 +xQ2qfN66wokmVknwBiNMXrxzoOeoK8RZnVF8ZGqEJnY6YwfvuUCF04dFXX8j +7Due0J6g5gxyvjHlGs+MUKg+fyxhvyMkLO3feKnGCNNuKSVP2joCd5Ip8b3O +CL2i52q9wBGGHyzPy2oyQv95qSvHKI5QwXU+Rey9EQrOtw9teuEAztcjTs1+ +NcLPSXLTAToOkFIZvPHpCibaKQ9tdhOxB0nBo8QuRyY+TU6SFhuxhdytYSET +e5j4w8j45HinLWwIS9h6zZWJ319bbvvYYAtWE+wPHZ5MzI2QkR24bQsX2mYW +9h1lImtedW+Bqy3M54SbhEQy8Y6o7EORtzbQZXjt/d0CJiauGBL5VGcNBwNz +03YWMzFM/zXv9fvWMFtc5jPCZmI3vyRlT641iNE75rQfMFF3v7Gv8HlrsOBX +kH/yjIl9jYNshW3W8Lj1rvf7D0x0ODBueS+eBeYij9YHdTBxcizP5LUfCzp2 +NM1SupnIcHBSF7NmwXTFj1j3z0yM/njo0qAYC9ZnaxUNDTMxxqB+54dbVvC4 +yzjo8igTLWAj+12oFZhL7AbNCSa+Oex/ZNjNCvbHBL4NmGGiNUZdPUi3guln +F1Kl55m47pPUhxZeK4j6dXNfxS8mCkaMKrK+74JVunnqbn+Y6M8d4TLUtAsy +fCtmlpaYuH7v7lPphbvgfzxnps8= + "]]}, + 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:eJwV13k4Vd0XB3Ch1xDKfM33XpdKMkQkbmtRSchFpkwhmtGAQjKUSJFUktec +6jXfc6VCJVOGSpOMRaRCxsyl/M7vr/N8nvM8Z5+z9t7ftQ/Ny9/Wh5uLi0t0 +GRfX/6+zPU11jEu5W1rUTVy4O423tGZQgo07osDbO2NWcy8VUPK1F6UjCbZ/ +UDoiuFcLgqzz23k6cqCaZaY+6Y4gOiadtNDOAfO19/9rdreG3sdW/tPtNXDs +n/AOlrsHmDKGP022vwNPnmDHANdjsNCuf2OivR+SerMMVtlHQO3We7lvc6ZA +ZLbFoLo/EeR7y795qf+BqT7/ZdcaUkDi6N58vq08uDVvOz1fKguStE0rrez5 +8ceeOxqhXbehM0Xr2eQqYWRt0nwbJnUPLuWGv+aWEcWhazFRZlvyQfr6l4vX +0sXxS/PlEOZUIVDWlZ2fvyuO5ln8TlcXC0G25kK4G1sce2RKDvYuLwLFibWB +q2vFEWXqFQ9TikDF8phH5aA4JvRFPDFgFoEO7x+9LzoSeCX/6/Nn0UXACpAa +2NAsgYriwmf2ixVDjN3OLe9mJXGemebSJVMCsvdbZLmXSaGw4XF5V3oJFIvb +zWmvkELvOdu6NrUSaHvnzr6qJIXmVUT9A8MSYNgE0G3MpPBv4J0gmlsJ1OzK +/OfNLSnc/+NoR1ZGCfwxnWl5ZSSNcjerNWkibEi8G1Lwx1QaHTXCno6LsoHx +D1fsehtprJVSKKuQZINlvaBxvI803oka69iuwIbUrdRSywRpHLf3mtJSZ8Mm +tLj5olcaxc7qGTnvZMNJg+y9TVEULIj7fG8ugg3mWSLTFpcp2LqMt1nmPBvo +fGdiW25Q8EBBZd2mGDa8aXUg3v9Hwb2Ui1t949mgcUyIp6eFgjkKW7zZt9gw +ePfU3Z+yMtimuoeeSbDBVcJqVK5UBlN5uXYo9rJBJ7QyMuOxDDrn+Xl097FB +sH+NFO25DDIvuNjcGGBDeQkPqHbKYJBJS/nSEBukLMoTtZZkUFeefrd4mhw/ +kqG73UIWd8z9ngsQIGDb+K8Qvy+y+PC8rUiuFgHBZtfVqkdkUbnk2vGJDQQU +Z6/vEp+VRdXYkBaDjQRQ7DwMyvnlUFKjMbDWgICRR/VzPBpyWP0x9CzHhIBr +UYkBt07LodPWrn+XdhPQL6nqVycsj0u6n1iOAQRI+1cpSEvL4zqODnNrEAGW +jU6vDlHl0Vhyh5r6aQIehFxSX6kjj26dmbwzoQTE9U4M73GSx9MfVau9zhGw +Ia/ywHiOPOp4F14vvkpApJGNp+wmBawUSM8TKCTAzD3jp76JArKUy+49LCJA +JOLHOXtLBSydD1vjVUJAWm303UQPBZQzGSwt5BDwyLzixz8XFXCMaPorXU7A +hJNy0FSnArZO33u1o56AhyHH+EQHFPBGMkvj6XMCzqY9SdEYU8C/Miij3UiA +0GfHykPcijiRzpco9IKA1Qcuc31WU0SX7VUrU98Q4B44E/cyVBGjzlW/XtlN +gMpNE/nhaEXUSYuXYH38f/2uFPElKuJ8r+VI3CcCQhbXvjHJVURf7WmH+V4C +bpxzlyx/qYh7JszX5g8Q8PJqQ+YdBSW8EJBldniUrHephHbtaiUsKFvBe3KM +AOcPnjWftZVQ5aii6+lxAgYpiwNypkqo1d08cHqSAJ4sLbUkPyV8ZXr0sM0M +AZuLb90/W6WEclzB3R6L5Hpob/kz1qiE4cejSlT+EGDFxbtj7zslzL5edOs7 +6X22fp3wVQmtbAmO1xIBpqG08IjlVPyxP4lPj5sDL1Y+vr1JkIov5xrSvpC2 +znVonBChYtiyWssEHg64vLok6kmhYuCGQ0tdvBw4pjR723gdFV+YGj2z4ePA +TGli44ImFaueuxsNkg4xWzdK6FLxxntKRyg/B6KPe+jRt1BRRbP5WKoAB1Jr +mxu5bagY0RizqWwFB5ScfEYr7Kk4FN9QoyvEgdyRJdGTzlT85ZtxnCBdIrnR +5cs+KhYnZ0COMAfqDmSO1gZRcVjyR7HnSg7sXDQQOxNKxZ2Off7NpFsSW/V0 +I6i4fCDVWWsVBzrLBSJyL1JRR+B3yRRpd6vcXNcE8nuHp+VsRDkw0L+lSeIa +eT/P6X4B6bEVAWLRaVT0rl/h6yTGgZNZIvrMbCpy2ksT8knP6+a5zNwh30/j +VO8CaR73nlyfEiqKB/OLJopzIPbn6SaF+1T8HqY71UZaJEZ87MMjKn4Y1ueT +k+AAhW2mb1pDRb/jsQ2ppNO3fXH5+5yKmSObAttI0zvDIh68oKJkUozjSkkO +rOcubVL9QI7n8urxadKc5F1jPZ1U9FFeb5xHetO6QbGbPVRc57y42EbaxE7B +lW+QfH50tYKaFAcaBh9GVI1QUc9a5TyLtGWY7Z1Tk1QU0mtlnCD9TnS0SXOW +nK+nF7iSSDvejRn7/ouKGZKz0iWkP26mi2ctUfG+4McjTaS9Xj/Wd+KlYdmq +qcXPpL/vc3RdJUBDFnP2xQzpo/OTEY3CNEw1y+7kk+bA5uP7pb6J0XDDlTgW +hTT/cFcBD4WG2/XOxqmQbvNiGdMUaHixzfeSJuk73bVtW+g0dPlmsVuPdIDd +pqOuq2n499GKLwakTV4VLgtRp+F0WLbhZtKrTGk3b2rT0BG53fVJ9zy9oV6m +R0Olb8oW2qQL9QVr3hnS8KzmH541pEPYZx0nkIZrHkRflCNttnZqRNiUhoUj +ZR9XkJbKORC1zoKGzxRi/s6T3zMg+1F6pzUNk49MjfeT5lyzLtpvT0PG6xni +//WIEKo3Oe9Mw0jpuO1FpFnRBh3Ze2moNlRYEE9a8W+Rb5U3De2euHw9THok +iM7z6RANoe/61DbSFePJKb/8aBgd6NguRzr24AoNSgANvXxvXx0n59OhL7x2 +YzANBROClZ+RZjhPO+0+S8NZ3+74eNLPLD6dS4ilYUG75YQi6YQ6G5nCeBqe +ytg33E+uJ1fm8+KmJBpqpktU3ya9oFHSyZtOw6kUV3550o33lP3pOTS0Ml4W ++p5cr8nUFF68R8M3QS4tMaQ3iEVqhhI0zEm3k/tOrneuSzN1KQ9ouDaJTzqJ +dAvPYecHlTRsp6TMGZA+MmMbPVlPw7HIqCMR5H7K7WB0H+iiYWvNouEguT9P +2Nw6Ft1L1r9Z6kwIaWwW/uf2AA27G8/lCZD+VDmr1TNGw08/Mt8oipDzkdl4 +wY6HjhXVK/wYZB4MSDPlT/DT8ZvqF70MMj84iQRxRZiO3hdLZyRIs6JSPzZL +03HiUNaeBTJvYn2ObjBWp2P+ldDOdDKfFtat6llvT0f1/YocBzLvZtNlI3Wc +6bgoXF55exkHpleqMAz20nGktWBwlIvMgymDw9sO0dHs5hA7mMzP/sp9s85h +dEy4RJHxJ/O32eKhSOwdOlopDRu9I/O54Uk1EZ9PR/k69t/JaQLqNF/aXSuh +46NqxxkR0k/F+1IzyuloZ/80Gn8SwOkWXF32io4Bqna2UWQ/SD3iDv0zdBzL +q7kZ+Y2Am58O9n//RUflzc0agV8JuM46GT26RMcZj1ah/WR/SdCJfTEvoIzn +BONzoJ+AqN+E40pFZexcNmf3juxPRy4tP2ZkqozazURXUCsBRgWFWcnJyihv +WFpUV0VAN7Ugc/u/yrja1cIq9CnZz5LzMqYzlTHSK4nQfEL208i7abZ5ynhW +mlp3tYLs505ZKSKPlTGt86euYRkBa5dfT7zQp4xNZp4MRj4BUntDI4LUGTi4 +LXyrfRIBZa3B4SraDCzKoas9TyTAzvz02daNDBz9TkzpXiEgaWPgmQ3AwFg6 +oSN0mQBhIf/TYzYMDH4ifD47mgDecq9j+08xUM1QxOoged6YFDP3cKhhYGTt +llZfVwI6jtLfHG5g4Olza0oDnQl49vwXhL9koMBfLmaoEwGJIQVK/7UxcCJ7 +yCHcjgCtfqHehWEGavmkNR2xJMCPeO2WLq6CcUn/dbcZEjDMsncZ8FZBaSVV +iyUKAQOXPRxO8KmiKpXz59tLNvgNq9O1hFRRzm7B+kozG+Z2LIyOrlJFrfyD +QxsbyfMdT1L0IVlVpO9yHgurZYNWcO19j/WqWNzTdHChnA1hPqrirN2q2Cq+ +mZ55lzzvbRl5vS5TFWcux1YVnWXDzvFTO7/qrca+zru5FDU2jOzjP3k/fA3O +nKm/GlZVTP5vSHPH1KzFr0Xx/vX8RSD2SjWBPa6GmYc3VWrYFYB8bIm1np46 +prMnZMUO5EHKOoNV4gfWY0OQt2x54j1oljXeOHVVA+1/7yu/XX0HNsvXJGq2 +aeKaeHtbtze3QYQnJ8AzSgsrUiIfCa/IAcVIJaM9qto4WJ4NstpZIKDi+sC2 +QRvXtv3e/PNHGmgwZUpOuW1Ap+y0P6a9t+BEj1itOZcO8t17teZtQzKMT122 +35mig/8e3j1WK3cddmg+T925Xhenqqsv/CKuwtMpw99zLbqoWqm2IJORAH7q +G7re+mzEfJEvQ7SUOGCOebfuEdBDxROeXl9KLsB2BmWXcI4enikVNcET52BN +RNzpGn193BZYksbIjgA1H4MqlS59jBTqdfb8Fgo+Tw+ev398E072aXuGXz4F +VVmt3pOSBtig+0riTMhJmP5vaU7zoQEKOCr8fSN6DPapFAik7tqM6t1Wz7kf +HoZJtWt6nInN+DD+tu2axz7wKPd330ysIRqE2D63bvUEva0Bc+aXDFEjqUpu +13NPKOsbEcqKN8Rxvbzlux95AkexR988yRA3u05FhqZ5QmHKs/iMfw1R8MOr +i1t8PCHrcrTBjmJDZAk82hE77wEXA1ZeTXlviFF6q73+UfUA523KaKhohI+z +Jjcy9N3gTyu/SC3VCGUuxpncVHCDLJ+xbnNlIxQYa/6qwOsG3y6Un3JeY4S3 +xQ2qfN66wokmVknwBiNMXrxzoOeoK8RZnVF8ZGqEJnY6YwfvuUCF04dFXX8j +7Due0J6g5gxyvjHlGs+MUKg+fyxhvyMkLO3feKnGCNNuKSVP2joCd5Ip8b3O +CL2i52q9wBGGHyzPy2oyQv95qSvHKI5QwXU+Rey9EQrOtw9teuEAztcjTs1+ +NcLPSXLTAToOkFIZvPHpCibaKQ9tdhOxB0nBo8QuRyY+TU6SFhuxhdytYSET +e5j4w8j45HinLWwIS9h6zZWJ319bbvvYYAtWE+wPHZ5MzI2QkR24bQsX2mYW +9h1lImtedW+Bqy3M54SbhEQy8Y6o7EORtzbQZXjt/d0CJiauGBL5VGcNBwNz +03YWMzFM/zXv9fvWMFtc5jPCZmI3vyRlT641iNE75rQfMFF3v7Gv8HlrsOBX +kH/yjIl9jYNshW3W8Lj1rvf7D0x0ODBueS+eBeYij9YHdTBxcizP5LUfCzp2 +NM1SupnIcHBSF7NmwXTFj1j3z0yM/njo0qAYC9ZnaxUNDTMxxqB+54dbVvC4 +yzjo8igTLWAj+12oFZhL7AbNCSa+Oex/ZNjNCvbHBL4NmGGiNUZdPUi3guln +F1Kl55m47pPUhxZeK4j6dXNfxS8mCkaMKrK+74JVunnqbn+Y6M8d4TLUtAsy +fCtmlpaYuH7v7lPphbvgfzxnps8= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07066692310171857}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.07066692310171857}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJwV13k4Vd0XB3Ch1xDKfM33XpdKMkQkbmtRSchFpkwhmtGAQjKUSJFUktec +6jXfc6VCJVOGSpOMRaRCxsyl/M7vr/N8nvM8Z5+z9t7ftQ/Ny9/Wh5uLi0t0 +GRfX/6+zPU11jEu5W1rUTVy4O423tGZQgo07osDbO2NWcy8VUPK1F6UjCbZ/ +UDoiuFcLgqzz23k6cqCaZaY+6Y4gOiadtNDOAfO19/9rdreG3sdW/tPtNXDs +n/AOlrsHmDKGP022vwNPnmDHANdjsNCuf2OivR+SerMMVtlHQO3We7lvc6ZA +ZLbFoLo/EeR7y795qf+BqT7/ZdcaUkDi6N58vq08uDVvOz1fKguStE0rrez5 +8ceeOxqhXbehM0Xr2eQqYWRt0nwbJnUPLuWGv+aWEcWhazFRZlvyQfr6l4vX +0sXxS/PlEOZUIVDWlZ2fvyuO5ln8TlcXC0G25kK4G1sce2RKDvYuLwLFibWB +q2vFEWXqFQ9TikDF8phH5aA4JvRFPDFgFoEO7x+9LzoSeCX/6/Nn0UXACpAa +2NAsgYriwmf2ixVDjN3OLe9mJXGemebSJVMCsvdbZLmXSaGw4XF5V3oJFIvb +zWmvkELvOdu6NrUSaHvnzr6qJIXmVUT9A8MSYNgE0G3MpPBv4J0gmlsJ1OzK +/OfNLSnc/+NoR1ZGCfwxnWl5ZSSNcjerNWkibEi8G1Lwx1QaHTXCno6LsoHx +D1fsehtprJVSKKuQZINlvaBxvI803oka69iuwIbUrdRSywRpHLf3mtJSZ8Mm +tLj5olcaxc7qGTnvZMNJg+y9TVEULIj7fG8ugg3mWSLTFpcp2LqMt1nmPBvo +fGdiW25Q8EBBZd2mGDa8aXUg3v9Hwb2Ui1t949mgcUyIp6eFgjkKW7zZt9gw +ePfU3Z+yMtimuoeeSbDBVcJqVK5UBlN5uXYo9rJBJ7QyMuOxDDrn+Xl097FB +sH+NFO25DDIvuNjcGGBDeQkPqHbKYJBJS/nSEBukLMoTtZZkUFeefrd4mhw/ +kqG73UIWd8z9ngsQIGDb+K8Qvy+y+PC8rUiuFgHBZtfVqkdkUbnk2vGJDQQU +Z6/vEp+VRdXYkBaDjQRQ7DwMyvnlUFKjMbDWgICRR/VzPBpyWP0x9CzHhIBr +UYkBt07LodPWrn+XdhPQL6nqVycsj0u6n1iOAQRI+1cpSEvL4zqODnNrEAGW +jU6vDlHl0Vhyh5r6aQIehFxSX6kjj26dmbwzoQTE9U4M73GSx9MfVau9zhGw +Ia/ywHiOPOp4F14vvkpApJGNp+wmBawUSM8TKCTAzD3jp76JArKUy+49LCJA +JOLHOXtLBSydD1vjVUJAWm303UQPBZQzGSwt5BDwyLzixz8XFXCMaPorXU7A +hJNy0FSnArZO33u1o56AhyHH+EQHFPBGMkvj6XMCzqY9SdEYU8C/Miij3UiA +0GfHykPcijiRzpco9IKA1Qcuc31WU0SX7VUrU98Q4B44E/cyVBGjzlW/XtlN +gMpNE/nhaEXUSYuXYH38f/2uFPElKuJ8r+VI3CcCQhbXvjHJVURf7WmH+V4C +bpxzlyx/qYh7JszX5g8Q8PJqQ+YdBSW8EJBldniUrHephHbtaiUsKFvBe3KM +AOcPnjWftZVQ5aii6+lxAgYpiwNypkqo1d08cHqSAJ4sLbUkPyV8ZXr0sM0M +AZuLb90/W6WEclzB3R6L5Hpob/kz1qiE4cejSlT+EGDFxbtj7zslzL5edOs7 +6X22fp3wVQmtbAmO1xIBpqG08IjlVPyxP4lPj5sDL1Y+vr1JkIov5xrSvpC2 +znVonBChYtiyWssEHg64vLok6kmhYuCGQ0tdvBw4pjR723gdFV+YGj2z4ePA +TGli44ImFaueuxsNkg4xWzdK6FLxxntKRyg/B6KPe+jRt1BRRbP5WKoAB1Jr +mxu5bagY0RizqWwFB5ScfEYr7Kk4FN9QoyvEgdyRJdGTzlT85ZtxnCBdIrnR +5cs+KhYnZ0COMAfqDmSO1gZRcVjyR7HnSg7sXDQQOxNKxZ2Off7NpFsSW/V0 +I6i4fCDVWWsVBzrLBSJyL1JRR+B3yRRpd6vcXNcE8nuHp+VsRDkw0L+lSeIa +eT/P6X4B6bEVAWLRaVT0rl/h6yTGgZNZIvrMbCpy2ksT8knP6+a5zNwh30/j +VO8CaR73nlyfEiqKB/OLJopzIPbn6SaF+1T8HqY71UZaJEZ87MMjKn4Y1ueT +k+AAhW2mb1pDRb/jsQ2ppNO3fXH5+5yKmSObAttI0zvDIh68oKJkUozjSkkO +rOcubVL9QI7n8urxadKc5F1jPZ1U9FFeb5xHetO6QbGbPVRc57y42EbaxE7B +lW+QfH50tYKaFAcaBh9GVI1QUc9a5TyLtGWY7Z1Tk1QU0mtlnCD9TnS0SXOW +nK+nF7iSSDvejRn7/ouKGZKz0iWkP26mi2ctUfG+4McjTaS9Xj/Wd+KlYdmq +qcXPpL/vc3RdJUBDFnP2xQzpo/OTEY3CNEw1y+7kk+bA5uP7pb6J0XDDlTgW +hTT/cFcBD4WG2/XOxqmQbvNiGdMUaHixzfeSJuk73bVtW+g0dPlmsVuPdIDd +pqOuq2n499GKLwakTV4VLgtRp+F0WLbhZtKrTGk3b2rT0BG53fVJ9zy9oV6m +R0Olb8oW2qQL9QVr3hnS8KzmH541pEPYZx0nkIZrHkRflCNttnZqRNiUhoUj +ZR9XkJbKORC1zoKGzxRi/s6T3zMg+1F6pzUNk49MjfeT5lyzLtpvT0PG6xni +//WIEKo3Oe9Mw0jpuO1FpFnRBh3Ze2moNlRYEE9a8W+Rb5U3De2euHw9THok +iM7z6RANoe/61DbSFePJKb/8aBgd6NguRzr24AoNSgANvXxvXx0n59OhL7x2 +YzANBROClZ+RZjhPO+0+S8NZ3+74eNLPLD6dS4ilYUG75YQi6YQ6G5nCeBqe +ytg33E+uJ1fm8+KmJBpqpktU3ya9oFHSyZtOw6kUV3550o33lP3pOTS0Ml4W ++p5cr8nUFF68R8M3QS4tMaQ3iEVqhhI0zEm3k/tOrneuSzN1KQ9ouDaJTzqJ +dAvPYecHlTRsp6TMGZA+MmMbPVlPw7HIqCMR5H7K7WB0H+iiYWvNouEguT9P +2Nw6Ft1L1r9Z6kwIaWwW/uf2AA27G8/lCZD+VDmr1TNGw08/Mt8oipDzkdl4 +wY6HjhXVK/wYZB4MSDPlT/DT8ZvqF70MMj84iQRxRZiO3hdLZyRIs6JSPzZL +03HiUNaeBTJvYn2ObjBWp2P+ldDOdDKfFtat6llvT0f1/YocBzLvZtNlI3Wc +6bgoXF55exkHpleqMAz20nGktWBwlIvMgymDw9sO0dHs5hA7mMzP/sp9s85h +dEy4RJHxJ/O32eKhSOwdOlopDRu9I/O54Uk1EZ9PR/k69t/JaQLqNF/aXSuh +46NqxxkR0k/F+1IzyuloZ/80Gn8SwOkWXF32io4Bqna2UWQ/SD3iDv0zdBzL +q7kZ+Y2Am58O9n//RUflzc0agV8JuM46GT26RMcZj1ah/WR/SdCJfTEvoIzn +BONzoJ+AqN+E40pFZexcNmf3juxPRy4tP2ZkqozazURXUCsBRgWFWcnJyihv +WFpUV0VAN7Ugc/u/yrja1cIq9CnZz5LzMqYzlTHSK4nQfEL208i7abZ5ynhW +mlp3tYLs505ZKSKPlTGt86euYRkBa5dfT7zQp4xNZp4MRj4BUntDI4LUGTi4 +LXyrfRIBZa3B4SraDCzKoas9TyTAzvz02daNDBz9TkzpXiEgaWPgmQ3AwFg6 +oSN0mQBhIf/TYzYMDH4ifD47mgDecq9j+08xUM1QxOoged6YFDP3cKhhYGTt +llZfVwI6jtLfHG5g4Olza0oDnQl49vwXhL9koMBfLmaoEwGJIQVK/7UxcCJ7 +yCHcjgCtfqHehWEGavmkNR2xJMCPeO2WLq6CcUn/dbcZEjDMsncZ8FZBaSVV +iyUKAQOXPRxO8KmiKpXz59tLNvgNq9O1hFRRzm7B+kozG+Z2LIyOrlJFrfyD +QxsbyfMdT1L0IVlVpO9yHgurZYNWcO19j/WqWNzTdHChnA1hPqrirN2q2Cq+ +mZ55lzzvbRl5vS5TFWcux1YVnWXDzvFTO7/qrca+zru5FDU2jOzjP3k/fA3O +nKm/GlZVTP5vSHPH1KzFr0Xx/vX8RSD2SjWBPa6GmYc3VWrYFYB8bIm1np46 +prMnZMUO5EHKOoNV4gfWY0OQt2x54j1oljXeOHVVA+1/7yu/XX0HNsvXJGq2 +aeKaeHtbtze3QYQnJ8AzSgsrUiIfCa/IAcVIJaM9qto4WJ4NstpZIKDi+sC2 +QRvXtv3e/PNHGmgwZUpOuW1Ap+y0P6a9t+BEj1itOZcO8t17teZtQzKMT122 +35mig/8e3j1WK3cddmg+T925Xhenqqsv/CKuwtMpw99zLbqoWqm2IJORAH7q +G7re+mzEfJEvQ7SUOGCOebfuEdBDxROeXl9KLsB2BmWXcI4enikVNcET52BN +RNzpGn193BZYksbIjgA1H4MqlS59jBTqdfb8Fgo+Tw+ev398E072aXuGXz4F +VVmt3pOSBtig+0riTMhJmP5vaU7zoQEKOCr8fSN6DPapFAik7tqM6t1Wz7kf +HoZJtWt6nInN+DD+tu2axz7wKPd330ysIRqE2D63bvUEva0Bc+aXDFEjqUpu +13NPKOsbEcqKN8Rxvbzlux95AkexR988yRA3u05FhqZ5QmHKs/iMfw1R8MOr +i1t8PCHrcrTBjmJDZAk82hE77wEXA1ZeTXlviFF6q73+UfUA523KaKhohI+z +Jjcy9N3gTyu/SC3VCGUuxpncVHCDLJ+xbnNlIxQYa/6qwOsG3y6Un3JeY4S3 +xQ2qfN66wokmVknwBiNMXrxzoOeoK8RZnVF8ZGqEJnY6YwfvuUCF04dFXX8j +7Due0J6g5gxyvjHlGs+MUKg+fyxhvyMkLO3feKnGCNNuKSVP2joCd5Ip8b3O +CL2i52q9wBGGHyzPy2oyQv95qSvHKI5QwXU+Rey9EQrOtw9teuEAztcjTs1+ +NcLPSXLTAToOkFIZvPHpCibaKQ9tdhOxB0nBo8QuRyY+TU6SFhuxhdytYSET +e5j4w8j45HinLWwIS9h6zZWJ319bbvvYYAtWE+wPHZ5MzI2QkR24bQsX2mYW +9h1lImtedW+Bqy3M54SbhEQy8Y6o7EORtzbQZXjt/d0CJiauGBL5VGcNBwNz +03YWMzFM/zXv9fvWMFtc5jPCZmI3vyRlT641iNE75rQfMFF3v7Gv8HlrsOBX +kH/yjIl9jYNshW3W8Lj1rvf7D0x0ODBueS+eBeYij9YHdTBxcizP5LUfCzp2 +NM1SupnIcHBSF7NmwXTFj1j3z0yM/njo0qAYC9ZnaxUNDTMxxqB+54dbVvC4 +yzjo8igTLWAj+12oFZhL7AbNCSa+Oex/ZNjNCvbHBL4NmGGiNUZdPUi3guln +F1Kl55m47pPUhxZeK4j6dXNfxS8mCkaMKrK+74JVunnqbn+Y6M8d4TLUtAsy +fCtmlpaYuH7v7lPphbvgfzxnps8= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07066692310171857}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.07066692310171857}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994013944053121*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"e565e368-31da-41cc-865f-f796d4d1d712"] }, 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.005294"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.015702"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.025589"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.034637"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.042584"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.049218"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.054412"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.058095"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.060285"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.061043"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.060506"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.058826"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.05621"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.052848"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.048958"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.044722"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.040328"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.035917"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.031623"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.027533"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.023727"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.020242"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.017109"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.014329"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.0119"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.0098"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.008009"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.006494"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.005229"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.00418"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.00332"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.994013031251058*^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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, + 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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.061043}}, + "Frame" -> {{False, 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.061043}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.061043}}, + "Frame" -> {{False, 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.061043}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994013944225597*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"e2987bfa-6ae6-46b1-848c-1d422fa04aff"] +}, 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:eJwV13k4Vd0XB3Ch1xDKfM33XpdKMkQkbmtRSchFpkwhmtGAQjKUSJFUktec +6jXfc6VCJVOGSpOMRaRCxsyl/M7vr/N8nvM8Z5+z9t7ftQ/Ny9/Wh5uLi0t0 +GRfX/6+zPU11jEu5W1rUTVy4O423tGZQgo07osDbO2NWcy8VUPK1F6UjCbZ/ +UDoiuFcLgqzz23k6cqCaZaY+6Y4gOiadtNDOAfO19/9rdreG3sdW/tPtNXDs +n/AOlrsHmDKGP022vwNPnmDHANdjsNCuf2OivR+SerMMVtlHQO3We7lvc6ZA +ZLbFoLo/EeR7y795qf+BqT7/ZdcaUkDi6N58vq08uDVvOz1fKguStE0rrez5 +8ceeOxqhXbehM0Xr2eQqYWRt0nwbJnUPLuWGv+aWEcWhazFRZlvyQfr6l4vX +0sXxS/PlEOZUIVDWlZ2fvyuO5ln8TlcXC0G25kK4G1sce2RKDvYuLwLFibWB +q2vFEWXqFQ9TikDF8phH5aA4JvRFPDFgFoEO7x+9LzoSeCX/6/Nn0UXACpAa +2NAsgYriwmf2ixVDjN3OLe9mJXGemebSJVMCsvdbZLmXSaGw4XF5V3oJFIvb +zWmvkELvOdu6NrUSaHvnzr6qJIXmVUT9A8MSYNgE0G3MpPBv4J0gmlsJ1OzK +/OfNLSnc/+NoR1ZGCfwxnWl5ZSSNcjerNWkibEi8G1Lwx1QaHTXCno6LsoHx +D1fsehtprJVSKKuQZINlvaBxvI803oka69iuwIbUrdRSywRpHLf3mtJSZ8Mm +tLj5olcaxc7qGTnvZMNJg+y9TVEULIj7fG8ugg3mWSLTFpcp2LqMt1nmPBvo +fGdiW25Q8EBBZd2mGDa8aXUg3v9Hwb2Ui1t949mgcUyIp6eFgjkKW7zZt9gw +ePfU3Z+yMtimuoeeSbDBVcJqVK5UBlN5uXYo9rJBJ7QyMuOxDDrn+Xl097FB +sH+NFO25DDIvuNjcGGBDeQkPqHbKYJBJS/nSEBukLMoTtZZkUFeefrd4mhw/ +kqG73UIWd8z9ngsQIGDb+K8Qvy+y+PC8rUiuFgHBZtfVqkdkUbnk2vGJDQQU +Z6/vEp+VRdXYkBaDjQRQ7DwMyvnlUFKjMbDWgICRR/VzPBpyWP0x9CzHhIBr +UYkBt07LodPWrn+XdhPQL6nqVycsj0u6n1iOAQRI+1cpSEvL4zqODnNrEAGW +jU6vDlHl0Vhyh5r6aQIehFxSX6kjj26dmbwzoQTE9U4M73GSx9MfVau9zhGw +Ia/ywHiOPOp4F14vvkpApJGNp+wmBawUSM8TKCTAzD3jp76JArKUy+49LCJA +JOLHOXtLBSydD1vjVUJAWm303UQPBZQzGSwt5BDwyLzixz8XFXCMaPorXU7A +hJNy0FSnArZO33u1o56AhyHH+EQHFPBGMkvj6XMCzqY9SdEYU8C/Miij3UiA +0GfHykPcijiRzpco9IKA1Qcuc31WU0SX7VUrU98Q4B44E/cyVBGjzlW/XtlN +gMpNE/nhaEXUSYuXYH38f/2uFPElKuJ8r+VI3CcCQhbXvjHJVURf7WmH+V4C +bpxzlyx/qYh7JszX5g8Q8PJqQ+YdBSW8EJBldniUrHephHbtaiUsKFvBe3KM +AOcPnjWftZVQ5aii6+lxAgYpiwNypkqo1d08cHqSAJ4sLbUkPyV8ZXr0sM0M +AZuLb90/W6WEclzB3R6L5Hpob/kz1qiE4cejSlT+EGDFxbtj7zslzL5edOs7 +6X22fp3wVQmtbAmO1xIBpqG08IjlVPyxP4lPj5sDL1Y+vr1JkIov5xrSvpC2 +znVonBChYtiyWssEHg64vLok6kmhYuCGQ0tdvBw4pjR723gdFV+YGj2z4ePA +TGli44ImFaueuxsNkg4xWzdK6FLxxntKRyg/B6KPe+jRt1BRRbP5WKoAB1Jr +mxu5bagY0RizqWwFB5ScfEYr7Kk4FN9QoyvEgdyRJdGTzlT85ZtxnCBdIrnR +5cs+KhYnZ0COMAfqDmSO1gZRcVjyR7HnSg7sXDQQOxNKxZ2Off7NpFsSW/V0 +I6i4fCDVWWsVBzrLBSJyL1JRR+B3yRRpd6vcXNcE8nuHp+VsRDkw0L+lSeIa +eT/P6X4B6bEVAWLRaVT0rl/h6yTGgZNZIvrMbCpy2ksT8knP6+a5zNwh30/j +VO8CaR73nlyfEiqKB/OLJopzIPbn6SaF+1T8HqY71UZaJEZ87MMjKn4Y1ueT +k+AAhW2mb1pDRb/jsQ2ppNO3fXH5+5yKmSObAttI0zvDIh68oKJkUozjSkkO +rOcubVL9QI7n8urxadKc5F1jPZ1U9FFeb5xHetO6QbGbPVRc57y42EbaxE7B +lW+QfH50tYKaFAcaBh9GVI1QUc9a5TyLtGWY7Z1Tk1QU0mtlnCD9TnS0SXOW +nK+nF7iSSDvejRn7/ouKGZKz0iWkP26mi2ctUfG+4McjTaS9Xj/Wd+KlYdmq +qcXPpL/vc3RdJUBDFnP2xQzpo/OTEY3CNEw1y+7kk+bA5uP7pb6J0XDDlTgW +hTT/cFcBD4WG2/XOxqmQbvNiGdMUaHixzfeSJuk73bVtW+g0dPlmsVuPdIDd +pqOuq2n499GKLwakTV4VLgtRp+F0WLbhZtKrTGk3b2rT0BG53fVJ9zy9oV6m +R0Olb8oW2qQL9QVr3hnS8KzmH541pEPYZx0nkIZrHkRflCNttnZqRNiUhoUj +ZR9XkJbKORC1zoKGzxRi/s6T3zMg+1F6pzUNk49MjfeT5lyzLtpvT0PG6xni +//WIEKo3Oe9Mw0jpuO1FpFnRBh3Ze2moNlRYEE9a8W+Rb5U3De2euHw9THok +iM7z6RANoe/61DbSFePJKb/8aBgd6NguRzr24AoNSgANvXxvXx0n59OhL7x2 +YzANBROClZ+RZjhPO+0+S8NZ3+74eNLPLD6dS4ilYUG75YQi6YQ6G5nCeBqe +ytg33E+uJ1fm8+KmJBpqpktU3ya9oFHSyZtOw6kUV3550o33lP3pOTS0Ml4W ++p5cr8nUFF68R8M3QS4tMaQ3iEVqhhI0zEm3k/tOrneuSzN1KQ9ouDaJTzqJ +dAvPYecHlTRsp6TMGZA+MmMbPVlPw7HIqCMR5H7K7WB0H+iiYWvNouEguT9P +2Nw6Ft1L1r9Z6kwIaWwW/uf2AA27G8/lCZD+VDmr1TNGw08/Mt8oipDzkdl4 +wY6HjhXVK/wYZB4MSDPlT/DT8ZvqF70MMj84iQRxRZiO3hdLZyRIs6JSPzZL +03HiUNaeBTJvYn2ObjBWp2P+ldDOdDKfFtat6llvT0f1/YocBzLvZtNlI3Wc +6bgoXF55exkHpleqMAz20nGktWBwlIvMgymDw9sO0dHs5hA7mMzP/sp9s85h +dEy4RJHxJ/O32eKhSOwdOlopDRu9I/O54Uk1EZ9PR/k69t/JaQLqNF/aXSuh +46NqxxkR0k/F+1IzyuloZ/80Gn8SwOkWXF32io4Bqna2UWQ/SD3iDv0zdBzL +q7kZ+Y2Am58O9n//RUflzc0agV8JuM46GT26RMcZj1ah/WR/SdCJfTEvoIzn +BONzoJ+AqN+E40pFZexcNmf3juxPRy4tP2ZkqozazURXUCsBRgWFWcnJyihv +WFpUV0VAN7Ugc/u/yrja1cIq9CnZz5LzMqYzlTHSK4nQfEL208i7abZ5ynhW +mlp3tYLs505ZKSKPlTGt86euYRkBa5dfT7zQp4xNZp4MRj4BUntDI4LUGTi4 +LXyrfRIBZa3B4SraDCzKoas9TyTAzvz02daNDBz9TkzpXiEgaWPgmQ3AwFg6 +oSN0mQBhIf/TYzYMDH4ifD47mgDecq9j+08xUM1QxOoged6YFDP3cKhhYGTt +llZfVwI6jtLfHG5g4Olza0oDnQl49vwXhL9koMBfLmaoEwGJIQVK/7UxcCJ7 +yCHcjgCtfqHehWEGavmkNR2xJMCPeO2WLq6CcUn/dbcZEjDMsncZ8FZBaSVV +iyUKAQOXPRxO8KmiKpXz59tLNvgNq9O1hFRRzm7B+kozG+Z2LIyOrlJFrfyD +QxsbyfMdT1L0IVlVpO9yHgurZYNWcO19j/WqWNzTdHChnA1hPqrirN2q2Cq+ +mZ55lzzvbRl5vS5TFWcux1YVnWXDzvFTO7/qrca+zru5FDU2jOzjP3k/fA3O +nKm/GlZVTP5vSHPH1KzFr0Xx/vX8RSD2SjWBPa6GmYc3VWrYFYB8bIm1np46 +prMnZMUO5EHKOoNV4gfWY0OQt2x54j1oljXeOHVVA+1/7yu/XX0HNsvXJGq2 +aeKaeHtbtze3QYQnJ8AzSgsrUiIfCa/IAcVIJaM9qto4WJ4NstpZIKDi+sC2 +QRvXtv3e/PNHGmgwZUpOuW1Ap+y0P6a9t+BEj1itOZcO8t17teZtQzKMT122 +35mig/8e3j1WK3cddmg+T925Xhenqqsv/CKuwtMpw99zLbqoWqm2IJORAH7q +G7re+mzEfJEvQ7SUOGCOebfuEdBDxROeXl9KLsB2BmWXcI4enikVNcET52BN +RNzpGn193BZYksbIjgA1H4MqlS59jBTqdfb8Fgo+Tw+ev398E072aXuGXz4F +VVmt3pOSBtig+0riTMhJmP5vaU7zoQEKOCr8fSN6DPapFAik7tqM6t1Wz7kf +HoZJtWt6nInN+DD+tu2axz7wKPd330ysIRqE2D63bvUEva0Bc+aXDFEjqUpu +13NPKOsbEcqKN8Rxvbzlux95AkexR988yRA3u05FhqZ5QmHKs/iMfw1R8MOr +i1t8PCHrcrTBjmJDZAk82hE77wEXA1ZeTXlviFF6q73+UfUA523KaKhohI+z +Jjcy9N3gTyu/SC3VCGUuxpncVHCDLJ+xbnNlIxQYa/6qwOsG3y6Un3JeY4S3 +xQ2qfN66wokmVknwBiNMXrxzoOeoK8RZnVF8ZGqEJnY6YwfvuUCF04dFXX8j +7Due0J6g5gxyvjHlGs+MUKg+fyxhvyMkLO3feKnGCNNuKSVP2joCd5Ip8b3O +CL2i52q9wBGGHyzPy2oyQv95qSvHKI5QwXU+Rey9EQrOtw9teuEAztcjTs1+ +NcLPSXLTAToOkFIZvPHpCibaKQ9tdhOxB0nBo8QuRyY+TU6SFhuxhdytYSET +e5j4w8j45HinLWwIS9h6zZWJ319bbvvYYAtWE+wPHZ5MzI2QkR24bQsX2mYW +9h1lImtedW+Bqy3M54SbhEQy8Y6o7EORtzbQZXjt/d0CJiauGBL5VGcNBwNz +03YWMzFM/zXv9fvWMFtc5jPCZmI3vyRlT641iNE75rQfMFF3v7Gv8HlrsOBX +kH/yjIl9jYNshW3W8Lj1rvf7D0x0ODBueS+eBeYij9YHdTBxcizP5LUfCzp2 +NM1SupnIcHBSF7NmwXTFj1j3z0yM/njo0qAYC9ZnaxUNDTMxxqB+54dbVvC4 +yzjo8igTLWAj+12oFZhL7AbNCSa+Oex/ZNjNCvbHBL4NmGGiNUZdPUi3guln +F1Kl55m47pPUhxZeK4j6dXNfxS8mCkaMKrK+74JVunnqbn+Y6M8d4TLUtAsy +fCtmlpaYuH7v7lPphbvgfzxnps8= + "]]}, + 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:eJwV13k4Vd0XB3Ch1xDKfM33XpdKMkQkbmtRSchFpkwhmtGAQjKUSJFUktec +6jXfc6VCJVOGSpOMRaRCxsyl/M7vr/N8nvM8Z5+z9t7ftQ/Ny9/Wh5uLi0t0 +GRfX/6+zPU11jEu5W1rUTVy4O423tGZQgo07osDbO2NWcy8VUPK1F6UjCbZ/ +UDoiuFcLgqzz23k6cqCaZaY+6Y4gOiadtNDOAfO19/9rdreG3sdW/tPtNXDs +n/AOlrsHmDKGP022vwNPnmDHANdjsNCuf2OivR+SerMMVtlHQO3We7lvc6ZA +ZLbFoLo/EeR7y795qf+BqT7/ZdcaUkDi6N58vq08uDVvOz1fKguStE0rrez5 +8ceeOxqhXbehM0Xr2eQqYWRt0nwbJnUPLuWGv+aWEcWhazFRZlvyQfr6l4vX +0sXxS/PlEOZUIVDWlZ2fvyuO5ln8TlcXC0G25kK4G1sce2RKDvYuLwLFibWB +q2vFEWXqFQ9TikDF8phH5aA4JvRFPDFgFoEO7x+9LzoSeCX/6/Nn0UXACpAa +2NAsgYriwmf2ixVDjN3OLe9mJXGemebSJVMCsvdbZLmXSaGw4XF5V3oJFIvb +zWmvkELvOdu6NrUSaHvnzr6qJIXmVUT9A8MSYNgE0G3MpPBv4J0gmlsJ1OzK +/OfNLSnc/+NoR1ZGCfwxnWl5ZSSNcjerNWkibEi8G1Lwx1QaHTXCno6LsoHx +D1fsehtprJVSKKuQZINlvaBxvI803oka69iuwIbUrdRSywRpHLf3mtJSZ8Mm +tLj5olcaxc7qGTnvZMNJg+y9TVEULIj7fG8ugg3mWSLTFpcp2LqMt1nmPBvo +fGdiW25Q8EBBZd2mGDa8aXUg3v9Hwb2Ui1t949mgcUyIp6eFgjkKW7zZt9gw +ePfU3Z+yMtimuoeeSbDBVcJqVK5UBlN5uXYo9rJBJ7QyMuOxDDrn+Xl097FB +sH+NFO25DDIvuNjcGGBDeQkPqHbKYJBJS/nSEBukLMoTtZZkUFeefrd4mhw/ +kqG73UIWd8z9ngsQIGDb+K8Qvy+y+PC8rUiuFgHBZtfVqkdkUbnk2vGJDQQU +Z6/vEp+VRdXYkBaDjQRQ7DwMyvnlUFKjMbDWgICRR/VzPBpyWP0x9CzHhIBr +UYkBt07LodPWrn+XdhPQL6nqVycsj0u6n1iOAQRI+1cpSEvL4zqODnNrEAGW +jU6vDlHl0Vhyh5r6aQIehFxSX6kjj26dmbwzoQTE9U4M73GSx9MfVau9zhGw +Ia/ywHiOPOp4F14vvkpApJGNp+wmBawUSM8TKCTAzD3jp76JArKUy+49LCJA +JOLHOXtLBSydD1vjVUJAWm303UQPBZQzGSwt5BDwyLzixz8XFXCMaPorXU7A +hJNy0FSnArZO33u1o56AhyHH+EQHFPBGMkvj6XMCzqY9SdEYU8C/Miij3UiA +0GfHykPcijiRzpco9IKA1Qcuc31WU0SX7VUrU98Q4B44E/cyVBGjzlW/XtlN +gMpNE/nhaEXUSYuXYH38f/2uFPElKuJ8r+VI3CcCQhbXvjHJVURf7WmH+V4C +bpxzlyx/qYh7JszX5g8Q8PJqQ+YdBSW8EJBldniUrHephHbtaiUsKFvBe3KM +AOcPnjWftZVQ5aii6+lxAgYpiwNypkqo1d08cHqSAJ4sLbUkPyV8ZXr0sM0M +AZuLb90/W6WEclzB3R6L5Hpob/kz1qiE4cejSlT+EGDFxbtj7zslzL5edOs7 +6X22fp3wVQmtbAmO1xIBpqG08IjlVPyxP4lPj5sDL1Y+vr1JkIov5xrSvpC2 +znVonBChYtiyWssEHg64vLok6kmhYuCGQ0tdvBw4pjR723gdFV+YGj2z4ePA +TGli44ImFaueuxsNkg4xWzdK6FLxxntKRyg/B6KPe+jRt1BRRbP5WKoAB1Jr +mxu5bagY0RizqWwFB5ScfEYr7Kk4FN9QoyvEgdyRJdGTzlT85ZtxnCBdIrnR +5cs+KhYnZ0COMAfqDmSO1gZRcVjyR7HnSg7sXDQQOxNKxZ2Off7NpFsSW/V0 +I6i4fCDVWWsVBzrLBSJyL1JRR+B3yRRpd6vcXNcE8nuHp+VsRDkw0L+lSeIa +eT/P6X4B6bEVAWLRaVT0rl/h6yTGgZNZIvrMbCpy2ksT8knP6+a5zNwh30/j +VO8CaR73nlyfEiqKB/OLJopzIPbn6SaF+1T8HqY71UZaJEZ87MMjKn4Y1ueT +k+AAhW2mb1pDRb/jsQ2ppNO3fXH5+5yKmSObAttI0zvDIh68oKJkUozjSkkO +rOcubVL9QI7n8urxadKc5F1jPZ1U9FFeb5xHetO6QbGbPVRc57y42EbaxE7B +lW+QfH50tYKaFAcaBh9GVI1QUc9a5TyLtGWY7Z1Tk1QU0mtlnCD9TnS0SXOW +nK+nF7iSSDvejRn7/ouKGZKz0iWkP26mi2ctUfG+4McjTaS9Xj/Wd+KlYdmq +qcXPpL/vc3RdJUBDFnP2xQzpo/OTEY3CNEw1y+7kk+bA5uP7pb6J0XDDlTgW +hTT/cFcBD4WG2/XOxqmQbvNiGdMUaHixzfeSJuk73bVtW+g0dPlmsVuPdIDd +pqOuq2n499GKLwakTV4VLgtRp+F0WLbhZtKrTGk3b2rT0BG53fVJ9zy9oV6m +R0Olb8oW2qQL9QVr3hnS8KzmH541pEPYZx0nkIZrHkRflCNttnZqRNiUhoUj +ZR9XkJbKORC1zoKGzxRi/s6T3zMg+1F6pzUNk49MjfeT5lyzLtpvT0PG6xni +//WIEKo3Oe9Mw0jpuO1FpFnRBh3Ze2moNlRYEE9a8W+Rb5U3De2euHw9THok +iM7z6RANoe/61DbSFePJKb/8aBgd6NguRzr24AoNSgANvXxvXx0n59OhL7x2 +YzANBROClZ+RZjhPO+0+S8NZ3+74eNLPLD6dS4ilYUG75YQi6YQ6G5nCeBqe +ytg33E+uJ1fm8+KmJBpqpktU3ya9oFHSyZtOw6kUV3550o33lP3pOTS0Ml4W ++p5cr8nUFF68R8M3QS4tMaQ3iEVqhhI0zEm3k/tOrneuSzN1KQ9ouDaJTzqJ +dAvPYecHlTRsp6TMGZA+MmMbPVlPw7HIqCMR5H7K7WB0H+iiYWvNouEguT9P +2Nw6Ft1L1r9Z6kwIaWwW/uf2AA27G8/lCZD+VDmr1TNGw08/Mt8oipDzkdl4 +wY6HjhXVK/wYZB4MSDPlT/DT8ZvqF70MMj84iQRxRZiO3hdLZyRIs6JSPzZL +03HiUNaeBTJvYn2ObjBWp2P+ldDOdDKfFtat6llvT0f1/YocBzLvZtNlI3Wc +6bgoXF55exkHpleqMAz20nGktWBwlIvMgymDw9sO0dHs5hA7mMzP/sp9s85h +dEy4RJHxJ/O32eKhSOwdOlopDRu9I/O54Uk1EZ9PR/k69t/JaQLqNF/aXSuh +46NqxxkR0k/F+1IzyuloZ/80Gn8SwOkWXF32io4Bqna2UWQ/SD3iDv0zdBzL +q7kZ+Y2Am58O9n//RUflzc0agV8JuM46GT26RMcZj1ah/WR/SdCJfTEvoIzn +BONzoJ+AqN+E40pFZexcNmf3juxPRy4tP2ZkqozazURXUCsBRgWFWcnJyihv +WFpUV0VAN7Ugc/u/yrja1cIq9CnZz5LzMqYzlTHSK4nQfEL208i7abZ5ynhW +mlp3tYLs505ZKSKPlTGt86euYRkBa5dfT7zQp4xNZp4MRj4BUntDI4LUGTi4 +LXyrfRIBZa3B4SraDCzKoas9TyTAzvz02daNDBz9TkzpXiEgaWPgmQ3AwFg6 +oSN0mQBhIf/TYzYMDH4ifD47mgDecq9j+08xUM1QxOoged6YFDP3cKhhYGTt +llZfVwI6jtLfHG5g4Olza0oDnQl49vwXhL9koMBfLmaoEwGJIQVK/7UxcCJ7 +yCHcjgCtfqHehWEGavmkNR2xJMCPeO2WLq6CcUn/dbcZEjDMsncZ8FZBaSVV +iyUKAQOXPRxO8KmiKpXz59tLNvgNq9O1hFRRzm7B+kozG+Z2LIyOrlJFrfyD +QxsbyfMdT1L0IVlVpO9yHgurZYNWcO19j/WqWNzTdHChnA1hPqrirN2q2Cq+ +mZ55lzzvbRl5vS5TFWcux1YVnWXDzvFTO7/qrca+zru5FDU2jOzjP3k/fA3O +nKm/GlZVTP5vSHPH1KzFr0Xx/vX8RSD2SjWBPa6GmYc3VWrYFYB8bIm1np46 +prMnZMUO5EHKOoNV4gfWY0OQt2x54j1oljXeOHVVA+1/7yu/XX0HNsvXJGq2 +aeKaeHtbtze3QYQnJ8AzSgsrUiIfCa/IAcVIJaM9qto4WJ4NstpZIKDi+sC2 +QRvXtv3e/PNHGmgwZUpOuW1Ap+y0P6a9t+BEj1itOZcO8t17teZtQzKMT122 +35mig/8e3j1WK3cddmg+T925Xhenqqsv/CKuwtMpw99zLbqoWqm2IJORAH7q +G7re+mzEfJEvQ7SUOGCOebfuEdBDxROeXl9KLsB2BmWXcI4enikVNcET52BN +RNzpGn193BZYksbIjgA1H4MqlS59jBTqdfb8Fgo+Tw+ev398E072aXuGXz4F +VVmt3pOSBtig+0riTMhJmP5vaU7zoQEKOCr8fSN6DPapFAik7tqM6t1Wz7kf +HoZJtWt6nInN+DD+tu2axz7wKPd330ysIRqE2D63bvUEva0Bc+aXDFEjqUpu +13NPKOsbEcqKN8Rxvbzlux95AkexR988yRA3u05FhqZ5QmHKs/iMfw1R8MOr +i1t8PCHrcrTBjmJDZAk82hE77wEXA1ZeTXlviFF6q73+UfUA523KaKhohI+z +Jjcy9N3gTyu/SC3VCGUuxpncVHCDLJ+xbnNlIxQYa/6qwOsG3y6Un3JeY4S3 +xQ2qfN66wokmVknwBiNMXrxzoOeoK8RZnVF8ZGqEJnY6YwfvuUCF04dFXX8j +7Due0J6g5gxyvjHlGs+MUKg+fyxhvyMkLO3feKnGCNNuKSVP2joCd5Ip8b3O +CL2i52q9wBGGHyzPy2oyQv95qSvHKI5QwXU+Rey9EQrOtw9teuEAztcjTs1+ +NcLPSXLTAToOkFIZvPHpCibaKQ9tdhOxB0nBo8QuRyY+TU6SFhuxhdytYSET +e5j4w8j45HinLWwIS9h6zZWJ319bbvvYYAtWE+wPHZ5MzI2QkR24bQsX2mYW +9h1lImtedW+Bqy3M54SbhEQy8Y6o7EORtzbQZXjt/d0CJiauGBL5VGcNBwNz +03YWMzFM/zXv9fvWMFtc5jPCZmI3vyRlT641iNE75rQfMFF3v7Gv8HlrsOBX +kH/yjIl9jYNshW3W8Lj1rvf7D0x0ODBueS+eBeYij9YHdTBxcizP5LUfCzp2 +NM1SupnIcHBSF7NmwXTFj1j3z0yM/njo0qAYC9ZnaxUNDTMxxqB+54dbVvC4 +yzjo8igTLWAj+12oFZhL7AbNCSa+Oex/ZNjNCvbHBL4NmGGiNUZdPUi3guln +F1Kl55m47pPUhxZeK4j6dXNfxS8mCkaMKrK+74JVunnqbn+Y6M8d4TLUtAsy +fCtmlpaYuH7v7lPphbvgfzxnps8= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07066692310171857}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.07066692310171857}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJwV13k4Vd0XB3Ch1xDKfM33XpdKMkQkbmtRSchFpkwhmtGAQjKUSJFUktec +6jXfc6VCJVOGSpOMRaRCxsyl/M7vr/N8nvM8Z5+z9t7ftQ/Ny9/Wh5uLi0t0 +GRfX/6+zPU11jEu5W1rUTVy4O423tGZQgo07osDbO2NWcy8VUPK1F6UjCbZ/ +UDoiuFcLgqzz23k6cqCaZaY+6Y4gOiadtNDOAfO19/9rdreG3sdW/tPtNXDs +n/AOlrsHmDKGP022vwNPnmDHANdjsNCuf2OivR+SerMMVtlHQO3We7lvc6ZA +ZLbFoLo/EeR7y795qf+BqT7/ZdcaUkDi6N58vq08uDVvOz1fKguStE0rrez5 +8ceeOxqhXbehM0Xr2eQqYWRt0nwbJnUPLuWGv+aWEcWhazFRZlvyQfr6l4vX +0sXxS/PlEOZUIVDWlZ2fvyuO5ln8TlcXC0G25kK4G1sce2RKDvYuLwLFibWB +q2vFEWXqFQ9TikDF8phH5aA4JvRFPDFgFoEO7x+9LzoSeCX/6/Nn0UXACpAa +2NAsgYriwmf2ixVDjN3OLe9mJXGemebSJVMCsvdbZLmXSaGw4XF5V3oJFIvb +zWmvkELvOdu6NrUSaHvnzr6qJIXmVUT9A8MSYNgE0G3MpPBv4J0gmlsJ1OzK +/OfNLSnc/+NoR1ZGCfwxnWl5ZSSNcjerNWkibEi8G1Lwx1QaHTXCno6LsoHx +D1fsehtprJVSKKuQZINlvaBxvI803oka69iuwIbUrdRSywRpHLf3mtJSZ8Mm +tLj5olcaxc7qGTnvZMNJg+y9TVEULIj7fG8ugg3mWSLTFpcp2LqMt1nmPBvo +fGdiW25Q8EBBZd2mGDa8aXUg3v9Hwb2Ui1t949mgcUyIp6eFgjkKW7zZt9gw +ePfU3Z+yMtimuoeeSbDBVcJqVK5UBlN5uXYo9rJBJ7QyMuOxDDrn+Xl097FB +sH+NFO25DDIvuNjcGGBDeQkPqHbKYJBJS/nSEBukLMoTtZZkUFeefrd4mhw/ +kqG73UIWd8z9ngsQIGDb+K8Qvy+y+PC8rUiuFgHBZtfVqkdkUbnk2vGJDQQU +Z6/vEp+VRdXYkBaDjQRQ7DwMyvnlUFKjMbDWgICRR/VzPBpyWP0x9CzHhIBr +UYkBt07LodPWrn+XdhPQL6nqVycsj0u6n1iOAQRI+1cpSEvL4zqODnNrEAGW +jU6vDlHl0Vhyh5r6aQIehFxSX6kjj26dmbwzoQTE9U4M73GSx9MfVau9zhGw +Ia/ywHiOPOp4F14vvkpApJGNp+wmBawUSM8TKCTAzD3jp76JArKUy+49LCJA +JOLHOXtLBSydD1vjVUJAWm303UQPBZQzGSwt5BDwyLzixz8XFXCMaPorXU7A +hJNy0FSnArZO33u1o56AhyHH+EQHFPBGMkvj6XMCzqY9SdEYU8C/Miij3UiA +0GfHykPcijiRzpco9IKA1Qcuc31WU0SX7VUrU98Q4B44E/cyVBGjzlW/XtlN +gMpNE/nhaEXUSYuXYH38f/2uFPElKuJ8r+VI3CcCQhbXvjHJVURf7WmH+V4C +bpxzlyx/qYh7JszX5g8Q8PJqQ+YdBSW8EJBldniUrHephHbtaiUsKFvBe3KM +AOcPnjWftZVQ5aii6+lxAgYpiwNypkqo1d08cHqSAJ4sLbUkPyV8ZXr0sM0M +AZuLb90/W6WEclzB3R6L5Hpob/kz1qiE4cejSlT+EGDFxbtj7zslzL5edOs7 +6X22fp3wVQmtbAmO1xIBpqG08IjlVPyxP4lPj5sDL1Y+vr1JkIov5xrSvpC2 +znVonBChYtiyWssEHg64vLok6kmhYuCGQ0tdvBw4pjR723gdFV+YGj2z4ePA +TGli44ImFaueuxsNkg4xWzdK6FLxxntKRyg/B6KPe+jRt1BRRbP5WKoAB1Jr +mxu5bagY0RizqWwFB5ScfEYr7Kk4FN9QoyvEgdyRJdGTzlT85ZtxnCBdIrnR +5cs+KhYnZ0COMAfqDmSO1gZRcVjyR7HnSg7sXDQQOxNKxZ2Off7NpFsSW/V0 +I6i4fCDVWWsVBzrLBSJyL1JRR+B3yRRpd6vcXNcE8nuHp+VsRDkw0L+lSeIa +eT/P6X4B6bEVAWLRaVT0rl/h6yTGgZNZIvrMbCpy2ksT8knP6+a5zNwh30/j +VO8CaR73nlyfEiqKB/OLJopzIPbn6SaF+1T8HqY71UZaJEZ87MMjKn4Y1ueT +k+AAhW2mb1pDRb/jsQ2ppNO3fXH5+5yKmSObAttI0zvDIh68oKJkUozjSkkO +rOcubVL9QI7n8urxadKc5F1jPZ1U9FFeb5xHetO6QbGbPVRc57y42EbaxE7B +lW+QfH50tYKaFAcaBh9GVI1QUc9a5TyLtGWY7Z1Tk1QU0mtlnCD9TnS0SXOW +nK+nF7iSSDvejRn7/ouKGZKz0iWkP26mi2ctUfG+4McjTaS9Xj/Wd+KlYdmq +qcXPpL/vc3RdJUBDFnP2xQzpo/OTEY3CNEw1y+7kk+bA5uP7pb6J0XDDlTgW +hTT/cFcBD4WG2/XOxqmQbvNiGdMUaHixzfeSJuk73bVtW+g0dPlmsVuPdIDd +pqOuq2n499GKLwakTV4VLgtRp+F0WLbhZtKrTGk3b2rT0BG53fVJ9zy9oV6m +R0Olb8oW2qQL9QVr3hnS8KzmH541pEPYZx0nkIZrHkRflCNttnZqRNiUhoUj +ZR9XkJbKORC1zoKGzxRi/s6T3zMg+1F6pzUNk49MjfeT5lyzLtpvT0PG6xni +//WIEKo3Oe9Mw0jpuO1FpFnRBh3Ze2moNlRYEE9a8W+Rb5U3De2euHw9THok +iM7z6RANoe/61DbSFePJKb/8aBgd6NguRzr24AoNSgANvXxvXx0n59OhL7x2 +YzANBROClZ+RZjhPO+0+S8NZ3+74eNLPLD6dS4ilYUG75YQi6YQ6G5nCeBqe +ytg33E+uJ1fm8+KmJBpqpktU3ya9oFHSyZtOw6kUV3550o33lP3pOTS0Ml4W ++p5cr8nUFF68R8M3QS4tMaQ3iEVqhhI0zEm3k/tOrneuSzN1KQ9ouDaJTzqJ +dAvPYecHlTRsp6TMGZA+MmMbPVlPw7HIqCMR5H7K7WB0H+iiYWvNouEguT9P +2Nw6Ft1L1r9Z6kwIaWwW/uf2AA27G8/lCZD+VDmr1TNGw08/Mt8oipDzkdl4 +wY6HjhXVK/wYZB4MSDPlT/DT8ZvqF70MMj84iQRxRZiO3hdLZyRIs6JSPzZL +03HiUNaeBTJvYn2ObjBWp2P+ldDOdDKfFtat6llvT0f1/YocBzLvZtNlI3Wc +6bgoXF55exkHpleqMAz20nGktWBwlIvMgymDw9sO0dHs5hA7mMzP/sp9s85h +dEy4RJHxJ/O32eKhSOwdOlopDRu9I/O54Uk1EZ9PR/k69t/JaQLqNF/aXSuh +46NqxxkR0k/F+1IzyuloZ/80Gn8SwOkWXF32io4Bqna2UWQ/SD3iDv0zdBzL +q7kZ+Y2Am58O9n//RUflzc0agV8JuM46GT26RMcZj1ah/WR/SdCJfTEvoIzn +BONzoJ+AqN+E40pFZexcNmf3juxPRy4tP2ZkqozazURXUCsBRgWFWcnJyihv +WFpUV0VAN7Ugc/u/yrja1cIq9CnZz5LzMqYzlTHSK4nQfEL208i7abZ5ynhW +mlp3tYLs505ZKSKPlTGt86euYRkBa5dfT7zQp4xNZp4MRj4BUntDI4LUGTi4 +LXyrfRIBZa3B4SraDCzKoas9TyTAzvz02daNDBz9TkzpXiEgaWPgmQ3AwFg6 +oSN0mQBhIf/TYzYMDH4ifD47mgDecq9j+08xUM1QxOoged6YFDP3cKhhYGTt +llZfVwI6jtLfHG5g4Olza0oDnQl49vwXhL9koMBfLmaoEwGJIQVK/7UxcCJ7 +yCHcjgCtfqHehWEGavmkNR2xJMCPeO2WLq6CcUn/dbcZEjDMsncZ8FZBaSVV +iyUKAQOXPRxO8KmiKpXz59tLNvgNq9O1hFRRzm7B+kozG+Z2LIyOrlJFrfyD +QxsbyfMdT1L0IVlVpO9yHgurZYNWcO19j/WqWNzTdHChnA1hPqrirN2q2Cq+ +mZ55lzzvbRl5vS5TFWcux1YVnWXDzvFTO7/qrca+zru5FDU2jOzjP3k/fA3O +nKm/GlZVTP5vSHPH1KzFr0Xx/vX8RSD2SjWBPa6GmYc3VWrYFYB8bIm1np46 +prMnZMUO5EHKOoNV4gfWY0OQt2x54j1oljXeOHVVA+1/7yu/XX0HNsvXJGq2 +aeKaeHtbtze3QYQnJ8AzSgsrUiIfCa/IAcVIJaM9qto4WJ4NstpZIKDi+sC2 +QRvXtv3e/PNHGmgwZUpOuW1Ap+y0P6a9t+BEj1itOZcO8t17teZtQzKMT122 +35mig/8e3j1WK3cddmg+T925Xhenqqsv/CKuwtMpw99zLbqoWqm2IJORAH7q +G7re+mzEfJEvQ7SUOGCOebfuEdBDxROeXl9KLsB2BmWXcI4enikVNcET52BN +RNzpGn193BZYksbIjgA1H4MqlS59jBTqdfb8Fgo+Tw+ev398E072aXuGXz4F +VVmt3pOSBtig+0riTMhJmP5vaU7zoQEKOCr8fSN6DPapFAik7tqM6t1Wz7kf +HoZJtWt6nInN+DD+tu2axz7wKPd330ysIRqE2D63bvUEva0Bc+aXDFEjqUpu +13NPKOsbEcqKN8Rxvbzlux95AkexR988yRA3u05FhqZ5QmHKs/iMfw1R8MOr +i1t8PCHrcrTBjmJDZAk82hE77wEXA1ZeTXlviFF6q73+UfUA523KaKhohI+z +Jjcy9N3gTyu/SC3VCGUuxpncVHCDLJ+xbnNlIxQYa/6qwOsG3y6Un3JeY4S3 +xQ2qfN66wokmVknwBiNMXrxzoOeoK8RZnVF8ZGqEJnY6YwfvuUCF04dFXX8j +7Due0J6g5gxyvjHlGs+MUKg+fyxhvyMkLO3feKnGCNNuKSVP2joCd5Ip8b3O +CL2i52q9wBGGHyzPy2oyQv95qSvHKI5QwXU+Rey9EQrOtw9teuEAztcjTs1+ +NcLPSXLTAToOkFIZvPHpCibaKQ9tdhOxB0nBo8QuRyY+TU6SFhuxhdytYSET +e5j4w8j45HinLWwIS9h6zZWJ319bbvvYYAtWE+wPHZ5MzI2QkR24bQsX2mYW +9h1lImtedW+Bqy3M54SbhEQy8Y6o7EORtzbQZXjt/d0CJiauGBL5VGcNBwNz +03YWMzFM/zXv9fvWMFtc5jPCZmI3vyRlT641iNE75rQfMFF3v7Gv8HlrsOBX +kH/yjIl9jYNshW3W8Lj1rvf7D0x0ODBueS+eBeYij9YHdTBxcizP5LUfCzp2 +NM1SupnIcHBSF7NmwXTFj1j3z0yM/njo0qAYC9ZnaxUNDTMxxqB+54dbVvC4 +yzjo8igTLWAj+12oFZhL7AbNCSa+Oex/ZNjNCvbHBL4NmGGiNUZdPUi3guln +F1Kl55m47pPUhxZeK4j6dXNfxS8mCkaMKrK+74JVunnqbn+Y6M8d4TLUtAsy +fCtmlpaYuH7v7lPphbvgfzxnps8= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07066692310171857}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, + 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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.061043}}, + "Frame" -> {{False, 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.061043}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.061043}}, + "Frame" -> {{False, 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.07066692310171857}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9940139442546253`*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"25268552-ace1-4ae5-ba23-d15a9a6ec4d6"] +}, Open ]], Cell[CellGroupData[{ @@ -2113,11 +7934,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.63230914504684`"], "Output", + CellChangeTimes->{3.994013944287333*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"97e7592d-fc38-4eec-aac8-e4bf6a5dc195"] }, Open ]], Cell[CellGroupData[{ @@ -2131,27 +7953,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 +7998,514 @@ 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[\\\"5.193601864209479`*^-254\\\", \ +RowBox[{\\\"9295690268007118823449497\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"9\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"5542386262016000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 99, 13, + 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9940139443790894`*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"bf9e1350-867a-4dc4-a130-b5c7eb724381"], 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.672965067964919`*^-263\\\", \ +RowBox[{\\\"7817675515393986930521027\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"12\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1146846355456000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 99, 14, + 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9940139443893623`*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"dfe60df1-67e9-4342-b728-d231a4543e17"], 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.204519926123397`*^-272\\\", \ +RowBox[{\\\"7035907963854588237468924\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"15\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2161719910400000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 99, 15, + 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994013944396188*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"4ea0d71b-f9c3-44a4-9616-3426dcc7829f"], 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, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994013944403068*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"1b9e5eb0-d4db-463a-95fe-449189eee051"], 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:eJwV13c8Vu8bB3BlJKFC9jjPY2TPMp/HdaHICkVGhCRaSCIkUqKSrKKlhUJ4 +zhElSmhQSslqUUb6SkYyUup3fn+d1/t1n9c55x7X574PY2vohsCFXFxcjAVc +XP+/Tvc0P1I6mW/+17eyfXiNpXl7nmS0RXciSCfHSmg2EIArWrdKdmfCuMTJ +S7wNuhDpXNzF3X0NTjivy/1Wj7B8VCLzVxcFEo13IxrrnaG3dn3oz64GOFt9 +9rNlvR9YKw1/nOhqA3NWTaVzXRj86jI6M97VB1OnT1lm3kmARqsb+a+vTcKe +zWH+T20yQLa3+stWzXk4o/NqctTzHIjt9i1eZMWNPNRBF96IK5CpZ12z3o0f +c/gfhL20y4e3uboPJ5YJoXnQQSH7MzfgZH5860Kp5Xg3rnBZV1MxSGT3H8+6 +JIoGqiVq4kmlIKlReXS2UBRb814LxaWVgnTDsXgfjiiemCz++jGnFOTH1fav +bBTF6+F3404Vl4KyQ5hfzVdRvP80gSe/tRQMeOYN+w3E8HHryaRSyTJwihAf +0H8mhoW3GU/VC8sg2dXWvG16BfoZyqXllpWD9O2X0gsXiGOJqc5p+TvlUCbq +OqO3RBw1op7qXqorh862LZwMBXHc81d2w9FX5aDkEsF0WSeOHIvfU78myqHB +8TLfq3PieOixL3+9FAfmradevmBJoGS3mEOCBwfSC2NK5q0l0Huz5AUHbw4o +8XGlaLlI4Jt5d50VfhxweCxgcSpQAlc8SVG5EMSB81ZEhUOaBPrmDq+LieSA +MdrnPO+VQJE8Uc2kLA7sM7nq25woiXWl/Kotzzhgd0X4p32qJPJee6H/9QUH +mIsOprw8I4nqRO0s12sOvGrfRL65KYlZdW2Vql0c0A4T5O55KYl+Q/aTzv0c ++FoYVfhDWgrXvv23l+c3B7zF1n+XqZBCwULtHTMrSTCIrTmcVyuF21XMW4rV +SRDoUxVnPJHCHVLuw15aJFSXc4PKWykkBgfdSX0SxO2r03X/SaF44b45QzYJ +rw4rrVprL42HXI6GFbiQsGZsLiakXxo7DZ6NLj1AQvS6bPX6EWkkAzf6O8WQ +UHZV653otDSO6dlUnDxIgqSrn0k1vwx65yhOzyWQMHL38Qy3tgyOqHb8qThO +QlZiesS5AzLIfYdlmn6ehL4VKiGPhGQxI12Kd7KaBInQOjkJCVnMDst+8bKG +BIcmjxc7CFnss+k8eOM+CVUxJzWXGsiicnJHulM9CSd6x4c9PWTxRtaCnJgm +EvSLaoLGrsliuOcnP1YnCYdZLv7SxnLIiDI03ztGwroteT+MLOVQmmt+l8AE +CcIJ3464Ocjhh431XFd+kHCxMakw3U8Ov6638X84RcJdu3vf+I7LoUJwvmDn +bxLGPRQjJ9/K4XUuOOK2iII7MWGLlg/I4eTBSt9KfgoOXbyfqz0qh89z75cs +F6BA8JN7zY6F8nhWvDW7TpCClUGpXJ/U5XGFo0PN+HIKtuyfOtESS7dH/eq9 +KUOBco6l7HCSPBZ/a/rTKkvR43e6dFG6POpVvs+clKMg5o/aK8t8eRz74aOl +S1Bw5siWFdUt8mgsLqYdr0SBd0FJYWenPApeXL3yhDIFzKezRj8/yaPp/fd5 +GSoUcASyvHSm5FG4YafgWVUKWjKeXi6QU8DTd+onIzQpyKoQ02tcqYAlR7R/ +BmhR4NXh3/BJTwHdrAoOOGlT8FXyz4CMtQIKsZOXyepSwH1FVz0zRAEv1q5O +P2lAgWnZuduH6hRw0enAfY9MKFjT9XJ+tEkBf2dr94SaUrCei8fGt00Be8Ov +2kmaURCwIeQtDCogq3+Rhh+LAutYRnwCL4EKPrkyLeYUPF9ae91YgMB9absK +fIEC5/xNTePCBBYXLDQcp735xcnl/pIE+n+QCOG3oCBMYfq6hQaBkWk2Dius +KJiqSG/6pUNg1KtL8hm0Y9ZpfCdXETjwZ8H84jUUJO31M2SaE3iKeePTD9oC +fL+93lkSmBhlNbR1LQXp58/EZ9oQeHxP/p9W2ucbnzUtdCHwy6/wTVetKVDw +CPx+z41AjzqLi7w2FOSP/Fu+z4vAxUdyJrfTLl+xenN/AIEtrtfeEusoeBR0 ++XtjJIEfYgfP7rWlwPaPicjBWAJ743IOPqD9Mr3dcFUCga5VUdH8dhS8rV6c +kH+cwB+D12uyaG9Zn5/vnUbgRq2tCztoD/SZN4tlEZhhZxAgak/B6JIIkaSL +BPJsntufTHvfFWEj9lV6PA2D1e7Tnl1VtHmqgEDequ5fY7QPNVsllBYT6Hli +8VcFB3o+t/TkB5YTaCla/dOBdsqPA81ytwlU8i8komgLJ4uOdtwlcMIgY3ce +7SyZMpG0+wS2z5m8baAtyVlnZN1AYOEb/6AB2pfW9G/++4TAhBPPJLgd6fX4 +Ni6h6jmBaucMv8nTvrlHsiDkFYGUyo4+I9paCyuaVToIHONT+etImzrrONrz +lkCue3rgT9tY46tITg+B3btcCvfSvl+XaOTUT+CDSbtV8bQtXeW8F30lsPnN +wH/HaT/9eiehboTA/cZfnmbQdojbUBA1QaDYrHjrWdpty78360wTGJoJXOdo +uxcmjw7NEcjUVfPOpf3BlCl65R+BRtcu9WfT3tpaa+TBw8BK/6CcNNpDAe7e +yxYzkOu0y4Ek2rtnJxKahBgYMbEyOZq26d7t4l9EGOhXULR9B23+4Xcl3JIM +fDZUMeNGu3OrkwVDjoEJXQ5mQLvgfWOnOZOB/yJj9ZVpR7ga7/ZeycA7JTY9 +i/7fvxe3FsRoMlCffQ+G6PFdZs3IydFjYEb7B/dG2j0PzmhWGjLw1O/qlRdp +3zISaGgzY+AnGR/OXtoxnEPu48jAY4fafljRFr8WlKhhz0DHYzuKeuj1MCD9 +QcLWmYHNIjcVbtCmspxLt7sxsLPsx8bdtJ2STLqv+jJQz2NsboRef/J/S/fU +baOfr/o49CbtkUgm98cdDNyfNlroRzsleIm2ZAQDxyZS/Z7S63vT5/jG1dH0 ++6I0B/fTVvL66bHxEAPn8yJ0GbQf2n88kpbCwKXiPgohdL2kPXKRunWKgV9z +tR8vpe3NflLWnMnAGMUlhmV0ff3SLn/Lc4mBrk+d4z7T9agvclgnlqT7b6VZ +z6Drlevk1KPcKvp+o5CeIrq+X3Lv9Kqqob9/zY1Wbdq7pjYkTTxm4MzcEX0d +Oh/yu5XeB71jYOjRaikBOk/CXc6FJfXS87MuYfoAUoDPhPiuDzCQ28mHM0Dn +z8eaad2eUQZ6pM3WUXReiV9uOubKzcTIFoNQNTrPBiTYsuH8TMxUXekWT+cd +lU6Sp4WYeCfhMKONzkOnxPMfnkkwcXU/IzyEzsuUwN36Fpp0u5OpWKIh3T+N +ZT1abkx8ey86SJzO2+lL0ocNvJh4QeSiPehQ8HOpspKJLxM/9/quDaTzeXTS +ZOeaHUw8tGnPoZt0nvfVBEx7xTFxuZX2SkE1Cp7Z3xFOKWDizsY3nrYMuj7u +15Oniplo9MBBaQ29nzzSaXHNKmdi+itDCZYCBQ9EP5/Pq2Zi/7uVsYr0/kO9 +F1hZ+YKJu44zfV5J0nm4awv0TTFRsiUr9/pSCnI+BvcNzTFR+/2vmL3CFGQ7 +7Uv6/o+Js7Nm51hC9HwapDyfXayI19Aq7Rm9Pyb+Jt2XyiviEwveuMe89Hyc +5A1jWSvil93eR43p/ZZVcuvK2bOKqKxtLyw7QMJ7ouTy2guKWMQb6lPWR0LM +2aK8n5cVcZ3GsyDzzyTcOVx4cUORIt4d30y599DnAY8rucK1inhsyQFWaDcJ +arzZ6cc+K+IBhoCIQQt9/vGNTYjUVMLU8dewgiKhsj06XllPCcM4Jnz+HBJc +7Q4cal+thCEyqsXFZSRkrt5/UB+UsPL5TJpRCQlCgqEHRl2UsD5f4JtRPgk8 +1VvDtkcpIcnS6H9zhoQJETu/TQ1KaFzUl5kQRUL3buarnU+VUH9xdLbvfhIe +PpmD+BYlPJsnxGbtIyE9pkThZqcSOniOpYyGkKDbJ9j7a1gJl810GRhtJyGE +bPW5JKqMkrtcpLxcSRh2cts8sE0ZWTkuduPaJAyk+m0KX6SC+kf2rOd85EDI +sCZTV1AFZcryVPTfc2DG5tf378tUcDiubw3VzQEB7sykHdIqKCQT61H6hgO6 +0Y23/bRUkLNocD6tmQNxgSqiThtVcJtlqsuCSg6Im4+0alxWwdJVty8Xn+CA +7ViU7aDhSryW+1fBVY8DIwH8+27Hq2Kvxro/Q9Vl9P+KxMLkBjX87wmv683x +WyDyQiWNM6aOss/USrU1S0A2pdzZ0FATPUqGd3B0iiBXw2SZaJAW1scE7B5x +uAHPpC1WT2Zoo65wiNKlfQVgKtuQrtOpg0ds/wrERV8HYe5rEf6JuvhaV8qS +p+wqyB9WYHmq6KGWXJiGweXLsFjZu2rDUz2sQE8+f6WLoM2WKo/y0cdM+wet +/eLnILxHpNGOywBl1J3+9Sw4C2OTqW62uQaYlj9Y98IrC2x0npy31VqFLxin +9/HNpsODSbPfMy9XoZ9bh58p+xSEaOq/ex24GokdF7Ib7I8De3Rbu+diQ8x6 +3CTaEZsEa5UkHYWuGaLRxNQFmU2JoJpw4kCDkRHWCsl69pnEg3qgSZ3yOyOs ++bDlR+vyGAh8EHz09l5jzLd0HzEf2g91V9q3TawwQcuCi5KxfOHw8+a/GZ07 +JriYR/n7p7N7IEC5ZPF5R1Mc934iciM6GGIeb9mp4myKqbUWhRaBwZAeKPKc +2mCKbWUfWoadg6G2IDr1ubsp7vdZVRGsGgxiKuuWzvubYsom4BbpDoInKoNi +fpGmCMuGykRNg0BdVYFQuWyKm6V3Xr7Avx0m1LMMqXFTpNJlli1+GQDdLbhW +dNIUTWfjR9UfBMDDkNGNEVOm2PNwstW9LADSKNu9hnOmuO3d4yNtaQGgbsp1 +6x63GdavuMlr7xwAW233MBrFzdDsVpiWVcdWaA+yEWxnmWHUEi5HlSF/uJv/ ++/NUihnKxW33ClPzA0OriBm7k2b4dz7cNkjWDyo/jwheOWWGviqPgoKW+gEl +32Nkl2mGMwUxpnzffOFW7sNTeRfMUPZIMOV01BeupCaZ2JSZ4c2O5OVr7m2B +4xFLM3LfmGGomc7pnQY+4LVGEc3kWWjYrm4R6+EF8+38wo0EC1+1HIzsQi+4 +Ejj63k6RhYLUpLu1mhd8OVYd5aXKwgDbytHNc54Q3uxUHq3Pwra7ByQDL3nC +ifUH5e9as1Co2Khz4IsH3PPo+LMqlIXPI/R7rZPdQWZPcrX2QxYOuZI/hX67 +Qtq/7atPNrBQx+uiF/d/rrAw05ocesTC9yovE/m6XGG4irfoSjMLZ3v6pldX +uMI9rqO5Im9YGMyoPWC82xW8shOipgdZyMN8aPPo00bIrYle/WAJG3eoHxGo +ebMBVgjsJh3d2bj7wuyMS68z5FvFxYx7snHeRy+15qUz6MelWWV5sxFGWsoM +HjjD+nFOR7c/G+ubO/Y5XXKGY51TvwJ2s/Eok9lq4O0Ms9fiLWMOs5F/M88H +h2oneGeW9aawhI3sGxpr3rQ6QvD+/Iu2ZWy8Pag6QlCOMF1WGTjCYaNiqpvI +8WxHEGF2z+hVsVG162jKTU9HsOeXk73/kI3n9Bv+Yww6QG174bY3HWxMtrMS ++c7lAHbCd7Uiu9nYVNUObwfsodumeVryPRuPf/pb2tNkDz/vfUvZ8omNRaLr +/67KsAetq7ql/w2z8WMf6SykaA+17ywiU7+zMX115rb6RfZgJ7YRdMbZaNyW +I582Ygfbk/e/jphi441VFcZ7q+zg58Nj5yVm2ehaURmefMEOEudyAu7NsVHr +SxVfVYIdLFtVpOkzT/enrPnzn0A7yNtzb+rfPzbG2gtObLa3g/8Bau0KTA== + + "]]}, + 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:eJwV13c8Vu8bB3BlJKFC9jjPY2TPMp/HdaHICkVGhCRaSCIkUqKSrKKlhUJ4 +zhElSmhQSslqUUb6SkYyUup3fn+d1/t1n9c55x7X574PY2vohsCFXFxcjAVc +XP+/Tvc0P1I6mW/+17eyfXiNpXl7nmS0RXciSCfHSmg2EIArWrdKdmfCuMTJ +S7wNuhDpXNzF3X0NTjivy/1Wj7B8VCLzVxcFEo13IxrrnaG3dn3oz64GOFt9 +9rNlvR9YKw1/nOhqA3NWTaVzXRj86jI6M97VB1OnT1lm3kmARqsb+a+vTcKe +zWH+T20yQLa3+stWzXk4o/NqctTzHIjt9i1eZMWNPNRBF96IK5CpZ12z3o0f +c/gfhL20y4e3uboPJ5YJoXnQQSH7MzfgZH5860Kp5Xg3rnBZV1MxSGT3H8+6 +JIoGqiVq4kmlIKlReXS2UBRb814LxaWVgnTDsXgfjiiemCz++jGnFOTH1fav +bBTF6+F3404Vl4KyQ5hfzVdRvP80gSe/tRQMeOYN+w3E8HHryaRSyTJwihAf +0H8mhoW3GU/VC8sg2dXWvG16BfoZyqXllpWD9O2X0gsXiGOJqc5p+TvlUCbq +OqO3RBw1op7qXqorh862LZwMBXHc81d2w9FX5aDkEsF0WSeOHIvfU78myqHB +8TLfq3PieOixL3+9FAfmradevmBJoGS3mEOCBwfSC2NK5q0l0Huz5AUHbw4o +8XGlaLlI4Jt5d50VfhxweCxgcSpQAlc8SVG5EMSB81ZEhUOaBPrmDq+LieSA +MdrnPO+VQJE8Uc2kLA7sM7nq25woiXWl/Kotzzhgd0X4p32qJPJee6H/9QUH +mIsOprw8I4nqRO0s12sOvGrfRL65KYlZdW2Vql0c0A4T5O55KYl+Q/aTzv0c ++FoYVfhDWgrXvv23l+c3B7zF1n+XqZBCwULtHTMrSTCIrTmcVyuF21XMW4rV +SRDoUxVnPJHCHVLuw15aJFSXc4PKWykkBgfdSX0SxO2r03X/SaF44b45QzYJ +rw4rrVprL42HXI6GFbiQsGZsLiakXxo7DZ6NLj1AQvS6bPX6EWkkAzf6O8WQ +UHZV653otDSO6dlUnDxIgqSrn0k1vwx65yhOzyWQMHL38Qy3tgyOqHb8qThO +QlZiesS5AzLIfYdlmn6ehL4VKiGPhGQxI12Kd7KaBInQOjkJCVnMDst+8bKG +BIcmjxc7CFnss+k8eOM+CVUxJzWXGsiicnJHulM9CSd6x4c9PWTxRtaCnJgm +EvSLaoLGrsliuOcnP1YnCYdZLv7SxnLIiDI03ztGwroteT+MLOVQmmt+l8AE +CcIJ3464Ocjhh431XFd+kHCxMakw3U8Ov6638X84RcJdu3vf+I7LoUJwvmDn +bxLGPRQjJ9/K4XUuOOK2iII7MWGLlg/I4eTBSt9KfgoOXbyfqz0qh89z75cs +F6BA8JN7zY6F8nhWvDW7TpCClUGpXJ/U5XGFo0PN+HIKtuyfOtESS7dH/eq9 +KUOBco6l7HCSPBZ/a/rTKkvR43e6dFG6POpVvs+clKMg5o/aK8t8eRz74aOl +S1Bw5siWFdUt8mgsLqYdr0SBd0FJYWenPApeXL3yhDIFzKezRj8/yaPp/fd5 +GSoUcASyvHSm5FG4YafgWVUKWjKeXi6QU8DTd+onIzQpyKoQ02tcqYAlR7R/ +BmhR4NXh3/BJTwHdrAoOOGlT8FXyz4CMtQIKsZOXyepSwH1FVz0zRAEv1q5O +P2lAgWnZuduH6hRw0enAfY9MKFjT9XJ+tEkBf2dr94SaUrCei8fGt00Be8Ov +2kmaURCwIeQtDCogq3+Rhh+LAutYRnwCL4EKPrkyLeYUPF9ae91YgMB9absK +fIEC5/xNTePCBBYXLDQcp735xcnl/pIE+n+QCOG3oCBMYfq6hQaBkWk2Dius +KJiqSG/6pUNg1KtL8hm0Y9ZpfCdXETjwZ8H84jUUJO31M2SaE3iKeePTD9oC +fL+93lkSmBhlNbR1LQXp58/EZ9oQeHxP/p9W2ucbnzUtdCHwy6/wTVetKVDw +CPx+z41AjzqLi7w2FOSP/Fu+z4vAxUdyJrfTLl+xenN/AIEtrtfeEusoeBR0 ++XtjJIEfYgfP7rWlwPaPicjBWAJ743IOPqD9Mr3dcFUCga5VUdH8dhS8rV6c +kH+cwB+D12uyaG9Zn5/vnUbgRq2tCztoD/SZN4tlEZhhZxAgak/B6JIIkaSL +BPJsntufTHvfFWEj9lV6PA2D1e7Tnl1VtHmqgEDequ5fY7QPNVsllBYT6Hli +8VcFB3o+t/TkB5YTaCla/dOBdsqPA81ytwlU8i8komgLJ4uOdtwlcMIgY3ce +7SyZMpG0+wS2z5m8baAtyVlnZN1AYOEb/6AB2pfW9G/++4TAhBPPJLgd6fX4 +Ni6h6jmBaucMv8nTvrlHsiDkFYGUyo4+I9paCyuaVToIHONT+etImzrrONrz +lkCue3rgT9tY46tITg+B3btcCvfSvl+XaOTUT+CDSbtV8bQtXeW8F30lsPnN +wH/HaT/9eiehboTA/cZfnmbQdojbUBA1QaDYrHjrWdpty78360wTGJoJXOdo +uxcmjw7NEcjUVfPOpf3BlCl65R+BRtcu9WfT3tpaa+TBw8BK/6CcNNpDAe7e +yxYzkOu0y4Ek2rtnJxKahBgYMbEyOZq26d7t4l9EGOhXULR9B23+4Xcl3JIM +fDZUMeNGu3OrkwVDjoEJXQ5mQLvgfWOnOZOB/yJj9ZVpR7ga7/ZeycA7JTY9 +i/7fvxe3FsRoMlCffQ+G6PFdZs3IydFjYEb7B/dG2j0PzmhWGjLw1O/qlRdp +3zISaGgzY+AnGR/OXtoxnEPu48jAY4fafljRFr8WlKhhz0DHYzuKeuj1MCD9 +QcLWmYHNIjcVbtCmspxLt7sxsLPsx8bdtJ2STLqv+jJQz2NsboRef/J/S/fU +baOfr/o49CbtkUgm98cdDNyfNlroRzsleIm2ZAQDxyZS/Z7S63vT5/jG1dH0 ++6I0B/fTVvL66bHxEAPn8yJ0GbQf2n88kpbCwKXiPgohdL2kPXKRunWKgV9z +tR8vpe3NflLWnMnAGMUlhmV0ff3SLn/Lc4mBrk+d4z7T9agvclgnlqT7b6VZ +z6Drlevk1KPcKvp+o5CeIrq+X3Lv9Kqqob9/zY1Wbdq7pjYkTTxm4MzcEX0d +Oh/yu5XeB71jYOjRaikBOk/CXc6FJfXS87MuYfoAUoDPhPiuDzCQ28mHM0Dn +z8eaad2eUQZ6pM3WUXReiV9uOubKzcTIFoNQNTrPBiTYsuH8TMxUXekWT+cd +lU6Sp4WYeCfhMKONzkOnxPMfnkkwcXU/IzyEzsuUwN36Fpp0u5OpWKIh3T+N +ZT1abkx8ey86SJzO2+lL0ocNvJh4QeSiPehQ8HOpspKJLxM/9/quDaTzeXTS +ZOeaHUw8tGnPoZt0nvfVBEx7xTFxuZX2SkE1Cp7Z3xFOKWDizsY3nrYMuj7u +15Oniplo9MBBaQ29nzzSaXHNKmdi+itDCZYCBQ9EP5/Pq2Zi/7uVsYr0/kO9 +F1hZ+YKJu44zfV5J0nm4awv0TTFRsiUr9/pSCnI+BvcNzTFR+/2vmL3CFGQ7 +7Uv6/o+Js7Nm51hC9HwapDyfXayI19Aq7Rm9Pyb+Jt2XyiviEwveuMe89Hyc +5A1jWSvil93eR43p/ZZVcuvK2bOKqKxtLyw7QMJ7ouTy2guKWMQb6lPWR0LM +2aK8n5cVcZ3GsyDzzyTcOVx4cUORIt4d30y599DnAY8rucK1inhsyQFWaDcJ +arzZ6cc+K+IBhoCIQQt9/vGNTYjUVMLU8dewgiKhsj06XllPCcM4Jnz+HBJc +7Q4cal+thCEyqsXFZSRkrt5/UB+UsPL5TJpRCQlCgqEHRl2UsD5f4JtRPgk8 +1VvDtkcpIcnS6H9zhoQJETu/TQ1KaFzUl5kQRUL3buarnU+VUH9xdLbvfhIe +PpmD+BYlPJsnxGbtIyE9pkThZqcSOniOpYyGkKDbJ9j7a1gJl810GRhtJyGE +bPW5JKqMkrtcpLxcSRh2cts8sE0ZWTkuduPaJAyk+m0KX6SC+kf2rOd85EDI +sCZTV1AFZcryVPTfc2DG5tf378tUcDiubw3VzQEB7sykHdIqKCQT61H6hgO6 +0Y23/bRUkLNocD6tmQNxgSqiThtVcJtlqsuCSg6Im4+0alxWwdJVty8Xn+CA +7ViU7aDhSryW+1fBVY8DIwH8+27Hq2Kvxro/Q9Vl9P+KxMLkBjX87wmv683x +WyDyQiWNM6aOss/USrU1S0A2pdzZ0FATPUqGd3B0iiBXw2SZaJAW1scE7B5x +uAHPpC1WT2Zoo65wiNKlfQVgKtuQrtOpg0ds/wrERV8HYe5rEf6JuvhaV8qS +p+wqyB9WYHmq6KGWXJiGweXLsFjZu2rDUz2sQE8+f6WLoM2WKo/y0cdM+wet +/eLnILxHpNGOywBl1J3+9Sw4C2OTqW62uQaYlj9Y98IrC2x0npy31VqFLxin +9/HNpsODSbPfMy9XoZ9bh58p+xSEaOq/ex24GokdF7Ib7I8De3Rbu+diQ8x6 +3CTaEZsEa5UkHYWuGaLRxNQFmU2JoJpw4kCDkRHWCsl69pnEg3qgSZ3yOyOs ++bDlR+vyGAh8EHz09l5jzLd0HzEf2g91V9q3TawwQcuCi5KxfOHw8+a/GZ07 +JriYR/n7p7N7IEC5ZPF5R1Mc934iciM6GGIeb9mp4myKqbUWhRaBwZAeKPKc +2mCKbWUfWoadg6G2IDr1ubsp7vdZVRGsGgxiKuuWzvubYsom4BbpDoInKoNi +fpGmCMuGykRNg0BdVYFQuWyKm6V3Xr7Avx0m1LMMqXFTpNJlli1+GQDdLbhW +dNIUTWfjR9UfBMDDkNGNEVOm2PNwstW9LADSKNu9hnOmuO3d4yNtaQGgbsp1 +6x63GdavuMlr7xwAW233MBrFzdDsVpiWVcdWaA+yEWxnmWHUEi5HlSF/uJv/ ++/NUihnKxW33ClPzA0OriBm7k2b4dz7cNkjWDyo/jwheOWWGviqPgoKW+gEl +32Nkl2mGMwUxpnzffOFW7sNTeRfMUPZIMOV01BeupCaZ2JSZ4c2O5OVr7m2B +4xFLM3LfmGGomc7pnQY+4LVGEc3kWWjYrm4R6+EF8+38wo0EC1+1HIzsQi+4 +Ejj63k6RhYLUpLu1mhd8OVYd5aXKwgDbytHNc54Q3uxUHq3Pwra7ByQDL3nC +ifUH5e9as1Co2Khz4IsH3PPo+LMqlIXPI/R7rZPdQWZPcrX2QxYOuZI/hX67 +Qtq/7atPNrBQx+uiF/d/rrAw05ocesTC9yovE/m6XGG4irfoSjMLZ3v6pldX +uMI9rqO5Im9YGMyoPWC82xW8shOipgdZyMN8aPPo00bIrYle/WAJG3eoHxGo +ebMBVgjsJh3d2bj7wuyMS68z5FvFxYx7snHeRy+15qUz6MelWWV5sxFGWsoM +HjjD+nFOR7c/G+ubO/Y5XXKGY51TvwJ2s/Eok9lq4O0Ms9fiLWMOs5F/M88H +h2oneGeW9aawhI3sGxpr3rQ6QvD+/Iu2ZWy8Pag6QlCOMF1WGTjCYaNiqpvI +8WxHEGF2z+hVsVG162jKTU9HsOeXk73/kI3n9Bv+Yww6QG174bY3HWxMtrMS ++c7lAHbCd7Uiu9nYVNUObwfsodumeVryPRuPf/pb2tNkDz/vfUvZ8omNRaLr +/67KsAetq7ql/w2z8WMf6SykaA+17ywiU7+zMX115rb6RfZgJ7YRdMbZaNyW +I582Ygfbk/e/jphi441VFcZ7q+zg58Nj5yVm2ehaURmefMEOEudyAu7NsVHr +SxVfVYIdLFtVpOkzT/enrPnzn0A7yNtzb+rfPzbG2gtObLa3g/8Bau0KTA== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07149654632628154}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.07149654632628154}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJwV13c8Vu8bB3BlJKFC9jjPY2TPMp/HdaHICkVGhCRaSCIkUqKSrKKlhUJ4 +zhElSmhQSslqUUb6SkYyUup3fn+d1/t1n9c55x7X574PY2vohsCFXFxcjAVc +XP+/Tvc0P1I6mW/+17eyfXiNpXl7nmS0RXciSCfHSmg2EIArWrdKdmfCuMTJ +S7wNuhDpXNzF3X0NTjivy/1Wj7B8VCLzVxcFEo13IxrrnaG3dn3oz64GOFt9 +9rNlvR9YKw1/nOhqA3NWTaVzXRj86jI6M97VB1OnT1lm3kmARqsb+a+vTcKe +zWH+T20yQLa3+stWzXk4o/NqctTzHIjt9i1eZMWNPNRBF96IK5CpZ12z3o0f +c/gfhL20y4e3uboPJ5YJoXnQQSH7MzfgZH5860Kp5Xg3rnBZV1MxSGT3H8+6 +JIoGqiVq4kmlIKlReXS2UBRb814LxaWVgnTDsXgfjiiemCz++jGnFOTH1fav +bBTF6+F3404Vl4KyQ5hfzVdRvP80gSe/tRQMeOYN+w3E8HHryaRSyTJwihAf +0H8mhoW3GU/VC8sg2dXWvG16BfoZyqXllpWD9O2X0gsXiGOJqc5p+TvlUCbq +OqO3RBw1op7qXqorh862LZwMBXHc81d2w9FX5aDkEsF0WSeOHIvfU78myqHB +8TLfq3PieOixL3+9FAfmradevmBJoGS3mEOCBwfSC2NK5q0l0Huz5AUHbw4o +8XGlaLlI4Jt5d50VfhxweCxgcSpQAlc8SVG5EMSB81ZEhUOaBPrmDq+LieSA +MdrnPO+VQJE8Uc2kLA7sM7nq25woiXWl/Kotzzhgd0X4p32qJPJee6H/9QUH +mIsOprw8I4nqRO0s12sOvGrfRL65KYlZdW2Vql0c0A4T5O55KYl+Q/aTzv0c ++FoYVfhDWgrXvv23l+c3B7zF1n+XqZBCwULtHTMrSTCIrTmcVyuF21XMW4rV +SRDoUxVnPJHCHVLuw15aJFSXc4PKWykkBgfdSX0SxO2r03X/SaF44b45QzYJ +rw4rrVprL42HXI6GFbiQsGZsLiakXxo7DZ6NLj1AQvS6bPX6EWkkAzf6O8WQ +UHZV653otDSO6dlUnDxIgqSrn0k1vwx65yhOzyWQMHL38Qy3tgyOqHb8qThO +QlZiesS5AzLIfYdlmn6ehL4VKiGPhGQxI12Kd7KaBInQOjkJCVnMDst+8bKG +BIcmjxc7CFnss+k8eOM+CVUxJzWXGsiicnJHulM9CSd6x4c9PWTxRtaCnJgm +EvSLaoLGrsliuOcnP1YnCYdZLv7SxnLIiDI03ztGwroteT+MLOVQmmt+l8AE +CcIJ3464Ocjhh431XFd+kHCxMakw3U8Ov6638X84RcJdu3vf+I7LoUJwvmDn +bxLGPRQjJ9/K4XUuOOK2iII7MWGLlg/I4eTBSt9KfgoOXbyfqz0qh89z75cs +F6BA8JN7zY6F8nhWvDW7TpCClUGpXJ/U5XGFo0PN+HIKtuyfOtESS7dH/eq9 +KUOBco6l7HCSPBZ/a/rTKkvR43e6dFG6POpVvs+clKMg5o/aK8t8eRz74aOl +S1Bw5siWFdUt8mgsLqYdr0SBd0FJYWenPApeXL3yhDIFzKezRj8/yaPp/fd5 +GSoUcASyvHSm5FG4YafgWVUKWjKeXi6QU8DTd+onIzQpyKoQ02tcqYAlR7R/ +BmhR4NXh3/BJTwHdrAoOOGlT8FXyz4CMtQIKsZOXyepSwH1FVz0zRAEv1q5O +P2lAgWnZuduH6hRw0enAfY9MKFjT9XJ+tEkBf2dr94SaUrCei8fGt00Be8Ov +2kmaURCwIeQtDCogq3+Rhh+LAutYRnwCL4EKPrkyLeYUPF9ae91YgMB9absK +fIEC5/xNTePCBBYXLDQcp735xcnl/pIE+n+QCOG3oCBMYfq6hQaBkWk2Dius +KJiqSG/6pUNg1KtL8hm0Y9ZpfCdXETjwZ8H84jUUJO31M2SaE3iKeePTD9oC +fL+93lkSmBhlNbR1LQXp58/EZ9oQeHxP/p9W2ucbnzUtdCHwy6/wTVetKVDw +CPx+z41AjzqLi7w2FOSP/Fu+z4vAxUdyJrfTLl+xenN/AIEtrtfeEusoeBR0 ++XtjJIEfYgfP7rWlwPaPicjBWAJ743IOPqD9Mr3dcFUCga5VUdH8dhS8rV6c +kH+cwB+D12uyaG9Zn5/vnUbgRq2tCztoD/SZN4tlEZhhZxAgak/B6JIIkaSL +BPJsntufTHvfFWEj9lV6PA2D1e7Tnl1VtHmqgEDequ5fY7QPNVsllBYT6Hli +8VcFB3o+t/TkB5YTaCla/dOBdsqPA81ytwlU8i8komgLJ4uOdtwlcMIgY3ce +7SyZMpG0+wS2z5m8baAtyVlnZN1AYOEb/6AB2pfW9G/++4TAhBPPJLgd6fX4 +Ni6h6jmBaucMv8nTvrlHsiDkFYGUyo4+I9paCyuaVToIHONT+etImzrrONrz +lkCue3rgT9tY46tITg+B3btcCvfSvl+XaOTUT+CDSbtV8bQtXeW8F30lsPnN +wH/HaT/9eiehboTA/cZfnmbQdojbUBA1QaDYrHjrWdpty78360wTGJoJXOdo +uxcmjw7NEcjUVfPOpf3BlCl65R+BRtcu9WfT3tpaa+TBw8BK/6CcNNpDAe7e +yxYzkOu0y4Ek2rtnJxKahBgYMbEyOZq26d7t4l9EGOhXULR9B23+4Xcl3JIM +fDZUMeNGu3OrkwVDjoEJXQ5mQLvgfWOnOZOB/yJj9ZVpR7ga7/ZeycA7JTY9 +i/7fvxe3FsRoMlCffQ+G6PFdZs3IydFjYEb7B/dG2j0PzmhWGjLw1O/qlRdp +3zISaGgzY+AnGR/OXtoxnEPu48jAY4fafljRFr8WlKhhz0DHYzuKeuj1MCD9 +QcLWmYHNIjcVbtCmspxLt7sxsLPsx8bdtJ2STLqv+jJQz2NsboRef/J/S/fU +baOfr/o49CbtkUgm98cdDNyfNlroRzsleIm2ZAQDxyZS/Z7S63vT5/jG1dH0 ++6I0B/fTVvL66bHxEAPn8yJ0GbQf2n88kpbCwKXiPgohdL2kPXKRunWKgV9z +tR8vpe3NflLWnMnAGMUlhmV0ff3SLn/Lc4mBrk+d4z7T9agvclgnlqT7b6VZ +z6Drlevk1KPcKvp+o5CeIrq+X3Lv9Kqqob9/zY1Wbdq7pjYkTTxm4MzcEX0d +Oh/yu5XeB71jYOjRaikBOk/CXc6FJfXS87MuYfoAUoDPhPiuDzCQ28mHM0Dn +z8eaad2eUQZ6pM3WUXReiV9uOubKzcTIFoNQNTrPBiTYsuH8TMxUXekWT+cd +lU6Sp4WYeCfhMKONzkOnxPMfnkkwcXU/IzyEzsuUwN36Fpp0u5OpWKIh3T+N +ZT1abkx8ey86SJzO2+lL0ocNvJh4QeSiPehQ8HOpspKJLxM/9/quDaTzeXTS +ZOeaHUw8tGnPoZt0nvfVBEx7xTFxuZX2SkE1Cp7Z3xFOKWDizsY3nrYMuj7u +15Oniplo9MBBaQ29nzzSaXHNKmdi+itDCZYCBQ9EP5/Pq2Zi/7uVsYr0/kO9 +F1hZ+YKJu44zfV5J0nm4awv0TTFRsiUr9/pSCnI+BvcNzTFR+/2vmL3CFGQ7 +7Uv6/o+Js7Nm51hC9HwapDyfXayI19Aq7Rm9Pyb+Jt2XyiviEwveuMe89Hyc +5A1jWSvil93eR43p/ZZVcuvK2bOKqKxtLyw7QMJ7ouTy2guKWMQb6lPWR0LM +2aK8n5cVcZ3GsyDzzyTcOVx4cUORIt4d30y599DnAY8rucK1inhsyQFWaDcJ +arzZ6cc+K+IBhoCIQQt9/vGNTYjUVMLU8dewgiKhsj06XllPCcM4Jnz+HBJc +7Q4cal+thCEyqsXFZSRkrt5/UB+UsPL5TJpRCQlCgqEHRl2UsD5f4JtRPgk8 +1VvDtkcpIcnS6H9zhoQJETu/TQ1KaFzUl5kQRUL3buarnU+VUH9xdLbvfhIe +PpmD+BYlPJsnxGbtIyE9pkThZqcSOniOpYyGkKDbJ9j7a1gJl810GRhtJyGE +bPW5JKqMkrtcpLxcSRh2cts8sE0ZWTkuduPaJAyk+m0KX6SC+kf2rOd85EDI +sCZTV1AFZcryVPTfc2DG5tf378tUcDiubw3VzQEB7sykHdIqKCQT61H6hgO6 +0Y23/bRUkLNocD6tmQNxgSqiThtVcJtlqsuCSg6Im4+0alxWwdJVty8Xn+CA +7ViU7aDhSryW+1fBVY8DIwH8+27Hq2Kvxro/Q9Vl9P+KxMLkBjX87wmv683x +WyDyQiWNM6aOss/USrU1S0A2pdzZ0FATPUqGd3B0iiBXw2SZaJAW1scE7B5x +uAHPpC1WT2Zoo65wiNKlfQVgKtuQrtOpg0ds/wrERV8HYe5rEf6JuvhaV8qS +p+wqyB9WYHmq6KGWXJiGweXLsFjZu2rDUz2sQE8+f6WLoM2WKo/y0cdM+wet +/eLnILxHpNGOywBl1J3+9Sw4C2OTqW62uQaYlj9Y98IrC2x0npy31VqFLxin +9/HNpsODSbPfMy9XoZ9bh58p+xSEaOq/ex24GokdF7Ib7I8De3Rbu+diQ8x6 +3CTaEZsEa5UkHYWuGaLRxNQFmU2JoJpw4kCDkRHWCsl69pnEg3qgSZ3yOyOs ++bDlR+vyGAh8EHz09l5jzLd0HzEf2g91V9q3TawwQcuCi5KxfOHw8+a/GZ07 +JriYR/n7p7N7IEC5ZPF5R1Mc934iciM6GGIeb9mp4myKqbUWhRaBwZAeKPKc +2mCKbWUfWoadg6G2IDr1ubsp7vdZVRGsGgxiKuuWzvubYsom4BbpDoInKoNi +fpGmCMuGykRNg0BdVYFQuWyKm6V3Xr7Avx0m1LMMqXFTpNJlli1+GQDdLbhW +dNIUTWfjR9UfBMDDkNGNEVOm2PNwstW9LADSKNu9hnOmuO3d4yNtaQGgbsp1 +6x63GdavuMlr7xwAW233MBrFzdDsVpiWVcdWaA+yEWxnmWHUEi5HlSF/uJv/ ++/NUihnKxW33ClPzA0OriBm7k2b4dz7cNkjWDyo/jwheOWWGviqPgoKW+gEl +32Nkl2mGMwUxpnzffOFW7sNTeRfMUPZIMOV01BeupCaZ2JSZ4c2O5OVr7m2B +4xFLM3LfmGGomc7pnQY+4LVGEc3kWWjYrm4R6+EF8+38wo0EC1+1HIzsQi+4 +Ejj63k6RhYLUpLu1mhd8OVYd5aXKwgDbytHNc54Q3uxUHq3Pwra7ByQDL3nC +ifUH5e9as1Co2Khz4IsH3PPo+LMqlIXPI/R7rZPdQWZPcrX2QxYOuZI/hX67 +Qtq/7atPNrBQx+uiF/d/rrAw05ocesTC9yovE/m6XGG4irfoSjMLZ3v6pldX +uMI9rqO5Im9YGMyoPWC82xW8shOipgdZyMN8aPPo00bIrYle/WAJG3eoHxGo +ebMBVgjsJh3d2bj7wuyMS68z5FvFxYx7snHeRy+15qUz6MelWWV5sxFGWsoM +HjjD+nFOR7c/G+ubO/Y5XXKGY51TvwJ2s/Eok9lq4O0Ms9fiLWMOs5F/M88H +h2oneGeW9aawhI3sGxpr3rQ6QvD+/Iu2ZWy8Pag6QlCOMF1WGTjCYaNiqpvI +8WxHEGF2z+hVsVG162jKTU9HsOeXk73/kI3n9Bv+Yww6QG174bY3HWxMtrMS ++c7lAHbCd7Uiu9nYVNUObwfsodumeVryPRuPf/pb2tNkDz/vfUvZ8omNRaLr +/67KsAetq7ql/w2z8WMf6SykaA+17ywiU7+zMX115rb6RfZgJ7YRdMbZaNyW +I582Ygfbk/e/jphi441VFcZ7q+zg58Nj5yVm2ehaURmefMEOEudyAu7NsVHr +SxVfVYIdLFtVpOkzT/enrPnzn0A7yNtzb+rfPzbG2gtObLa3g/8Bau0KTA== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07149654632628154}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.07149654632628154}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994014487034317*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"73661999-36c0-49fc-816a-7bd3ff57063f"] }, Open ]], Cell[CellGroupData[{ @@ -2594,26 +8517,30 @@ 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[{"(", - FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], - ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + RowBox[{"4", "*", "x", "*", "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[{"-", @@ -2633,18 +8560,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.0127723063051564`*^-152\\\", \ +RowBox[{\\\"552513857212233842570175\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"108\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 100, 17, + 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994014487181067*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"9c4196f3-8acd-4a33-bddc-74a35f0df305"], -Cell[BoxData["15.784298544249623`"], "Output",ExpressionUUID->"43ddf880-80a2-b142-8665-3b95395a9831"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4261474595874657`*^-155\\\", \ +RowBox[{\\\"192330073695578600598678\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"112\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 100, 18, + 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994014487190308*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"a4d10797-573b-401a-8011-e62d140cd9f4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.811959370351462`*^-158\\\", \ +RowBox[{\\\"692388265304082962155241\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"115\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 100, 19, + 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994014487199112*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"2b35bb95-7ca3-4a35-b7a3-3702e7e5bfca"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 100, 20, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994014487206905*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"d015daf2-a0c5-420b-b662-0c4a23f8857b"], + +Cell[BoxData["10.624398604768487`"], "Output", + CellChangeTimes->{3.9940145362534237`*^9}, + CellLabel-> + "Out[100]=",ExpressionUUID->"4d7b7daa-c80c-46be-bf76-8d7045332941"] }, Open ]], Cell[CellGroupData[{ @@ -2711,27 +8695,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.150382254523802`*^-205\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 101, 21, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9940145363226557`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"bbcb32aa-63bd-4a06-ae9f-72c4f3d12c21"], 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[\\\"3.7394413797168686`*^-210\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 101, 22, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994014536329618*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"dbbcd61e-d6f3-4a75-8d8e-b9b773e8f1a2"], -Cell[BoxData["0.009432406283458074`"], "Output",ExpressionUUID->"42e3f6c5-e95f-4040-9e12-cbd48f821f10"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.502760987225225`*^-215\\\", \ +RowBox[{\\\"143094757247897252281238\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"64\\\", \\\"\[RightSkeleton]\\\"}], \\\"3737600000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 101, 23, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9940145363367643`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"d347580e-a4b2-4bc5-9731-1840636cd8eb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 101, 24, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9940145363433657`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"33175c98-d67d-41d2-a9da-da2f8a705035"], + +Cell[BoxData["0.48863932265691246`"], "Output", + CellChangeTimes->{3.994014543727187*^9}, + CellLabel-> + "Out[101]=",ExpressionUUID->"3af69021-098c-4e6b-b242-e6d0394be1dc"] }, Open ]], Cell[CellGroupData[{ @@ -2752,8 +8781,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 +8826,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.150382254523802`*^-205\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 102, 25, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994014543766079*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"7e395a67-d74c-44f4-920a-ffe91e368776"], 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[\\\"3.7394413797168686`*^-210\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 102, 26, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994014543774086*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"df72696c-cd68-45dd-bd75-327a8e3eca9d"], -Cell[BoxData["5.210321944589433`"], "Output",ExpressionUUID->"7f3b68f0-36cd-5749-996b-97ffcb02c6cf"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.502760987225225`*^-215\\\", \ +RowBox[{\\\"143094757247897252281238\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"64\\\", \\\"\[RightSkeleton]\\\"}], \\\"3737600000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 102, 27, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994014543783111*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"e4228ca4-5d1f-4ede-a5a8-845363280033"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 102, 28, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9940145437907667`*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"aa415595-3474-45c6-8700-35b520afee91"], + +Cell[BoxData["31.618146155323828`"], "Output", + CellChangeTimes->{3.994014550558148*^9}, + CellLabel-> + "Out[102]=",ExpressionUUID->"e6b17a12-03ed-4d6e-8890-d7506cf5a5c6"] }, Open ]], Cell[CellGroupData[{ @@ -2839,8 +8912,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 +8957,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.150382254523802`*^-205\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 103, 29, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994014550609714*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"062c6acf-9069-4789-94d8-8176ebc8419d"], 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[\\\"3.7394413797168686`*^-210\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 103, 30, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99401455061878*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"e37339bc-993c-401f-848b-9b4f05c062b3"], -Cell[BoxData["20.308521034293705`"], "Output",ExpressionUUID->"34543184-0f68-7449-9af8-306cfc525771"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.502760987225225`*^-215\\\", \ +RowBox[{\\\"143094757247897252281238\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"64\\\", \\\"\[RightSkeleton]\\\"}], \\\"3737600000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 103, 31, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994014550626582*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"42139ed2-ec33-429a-9cf2-0e827730b969"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 103, 32, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994014550634795*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"5df014bf-1a28-413d-a36a-666ece3e41aa"], + +Cell[BoxData["4.23526157338819`"], "Output", + CellChangeTimes->{3.994014554912733*^9}, + CellLabel-> + "Out[103]=",ExpressionUUID->"93806401-5cf9-45f1-911d-496d15cb9fe8"] }, Open ]], Cell[CellGroupData[{ @@ -2914,19 +9031,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.042226014557385616`"], "Output", + CellChangeTimes->{3.994014554946928*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"b8216b13-7638-47e3-b8c1-ddd0b684a7bb"] }, 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 +9068,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["5.350823778526`"], "Output", + CellChangeTimes->{3.994014554965958*^9}, + CellLabel-> + "Out[106]=",ExpressionUUID->"442e4649-3a7f-41f6-b781-80416cc9de66"] }, Open ]], Cell[CellGroupData[{ @@ -2958,10 +9083,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.8263033018745554`"], "Output", + CellChangeTimes->{3.994014554978582*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"89b88313-5997-475a-91ae-bbe05c0b0c5d"] }, Open ]], Cell[CellGroupData[{ @@ -2969,10 +9098,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["15.123050912996918`"], "Output", + CellChangeTimes->{3.9940145549914513`*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"b8591cff-d105-4d17-8851-e06c55649222"] }, Open ]], Cell[CellGroupData[{ @@ -3160,10 +9293,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.0069839654728870515`"], "Output", + CellChangeTimes->{3.994014555005727*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"362fe997-f2b2-4339-8b4b-2eb6bf198dc6"] }, Open ]], Cell[CellGroupData[{ @@ -3175,18 +9312,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.604590405151539`"], "Output", + CellChangeTimes->{3.9940145551111803`*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"bde2fa88-d2a5-4205-a418-bbab8e71ce5d"] }, Open ]], Cell[CellGroupData[{ @@ -3376,10 +9509,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.0641577856019651`"], "Output", + CellChangeTimes->{3.9940145551236877`*^9}, + CellLabel-> + "Out[111]=",ExpressionUUID->"0548348b-b8ba-43fb-942f-c48474af2051"] }, Open ]], Cell[CellGroupData[{ @@ -3391,18 +9528,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.498809183149639`"], "Output", + CellChangeTimes->{3.9940145552271137`*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"ee9df31a-0f07-4158-bb85-3cc4ea0de053"] }, Open ]], Cell[CellGroupData[{ @@ -3493,10 +9626,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.05674825314301471`"], "Output", + CellChangeTimes->{3.99401455523954*^9}, + CellLabel-> + "Out[113]=",ExpressionUUID->"4b99b04c-767a-4edd-8769-315531ed9d30"] }, Open ]], Cell[CellGroupData[{ @@ -3584,10 +9721,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.9432517468569853`"], "Output", + CellChangeTimes->{3.994014555249649*^9}, + CellLabel-> + "Out[114]=",ExpressionUUID->"087fee72-bf52-4368-a84a-f05e05ca9a02"] }, Open ]], Cell[CellGroupData[{ @@ -3708,10 +9849,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.05352788890823103`"], "Output", + CellChangeTimes->{3.994014555260932*^9}, + CellLabel-> + "Out[115]=",ExpressionUUID->"52786d5f-8082-4536-9df3-11303515fa8e"] }, Open ]], Cell[CellGroupData[{ @@ -3726,30 +9871,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 +9921,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.3842069645697645`*^-208\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 116, 33, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994014555277294*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"bf5c9c88-0f63-4675-b8ea-9807cb7792ac"], 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[\\\"6.253864303710242`*^-213\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 116, 34, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9940145552864122`*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"877af5ef-845d-43c4-ba47-9b646d619f31"], -Cell[BoxData["3.3685700770211437`"], "Output",ExpressionUUID->"a8a97847-bb08-1e4d-8ab6-1eb11a1cda8f"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.263988733454343`*^-218\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 116, 35, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9940145552953167`*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"f4c770c4-3ff7-4b59-8a06-227b36ac6e13"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 116, 36, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994014555303699*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"d486b347-ae6f-454d-b484-8077638ff8f7"], + +Cell[BoxData["10.604590405151527`"], "Output", + CellChangeTimes->{3.994014559098963*^9}, + CellLabel-> + "Out[116]=",ExpressionUUID->"02744057-679e-4523-bf1b-f9e866438b73"] }, Open ]], Cell[CellGroupData[{ @@ -3808,30 +10001,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 +10051,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.3842069645697645`*^-208\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 117, 37, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994014559141197*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"6d334efd-23c1-4487-8b3b-8fd73d92d310"], 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[\\\"6.253864303710242`*^-213\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 117, 38, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994014559148288*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"4d7d72e2-9175-4f8e-bcfe-d30feeea385f"], -Cell[BoxData["8.161099076568323`"], "Output",ExpressionUUID->"f80834f1-cc9f-1c44-a97c-64c50ba97b67"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.263988733454343`*^-218\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 117, 39, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9940145591540422`*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"6700f26a-1a1e-4c54-9bb6-37832e917ddc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 117, 40, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994014559160613*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"60767a6b-a058-4202-aa9b-ff9d3acd3a8d"], + +Cell[BoxData["3.498809183149639`"], "Output", + CellChangeTimes->{3.994014563033537*^9}, + CellLabel-> + "Out[117]=",ExpressionUUID->"3123f07b-04fe-4952-b4a5-4d685f705872"] }, Open ]], Cell[CellGroupData[{ @@ -3933,489 +10174,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:eJwV1Hc81d8fB3BZKZSR3eAaUSldEaXOOyMje0VGXPd+RMhKpAipbyVJQsPI +SjJDA0kl9ZOyWmSvrj3uR2b1O/74PD6P5+Ocz+u83+dxPkeGdsqSwc7GxsbE +z8rb7/POrc+aPh+8m5DqbdrIRAcnstRouvmoR2ouccU9aeoJcrpVKKXnj5AZ +tjn9Ezef6ju0u/9J74pLgsPfcuk2oCVZUQ4L7Ct14jXhec2oOnPrGUvsF01+ +qcvUr8jJ7dcBa+yR9vpzIZU/UJebzVFbbMlBWYffOh3odo7fWzvsI5PnNAMa +utHQDq1IB+zq5RHe4LxeFD5fdssZ+1uEWOhTn35kyNsx54o9wa07QlIHkbJ7 +SSEDmzvG1151bgjdWKf23AN7s2DKB79KJqricN/gg20q9TtnQmcMBfZ9rT2D +TaRTRJV5JtDrZiGJ89jh8mbRJxsm0R3Jv68isX+IfdkdmDeNquu6uW5g0495 +etyKmUFHd3/Luo09dZ/twRMfFtLlDE28j81DURaYps6iJVaj32PsBPpbfQGR +3yhb4oJDKbb0Q/vwXXO/UfSLrqRKbI0dlya8K+dRQehDnk/YJ9S7G0Z0llFG +uns9C5sMPs25VuEPGtgRY/gX+0Ilr5YSz19k6HJcak0TEyWDxmP3hn8o+Zvg +sy3Y9OwPuv55q8DgzcPP5th5dbd6IqTY4Ya+dr8T9tQv53M3Y9hhY8E1o5PY +57bNlhb7cMBqze2Cl7ETimRkJ6lcoA2pYW+w25vGqv9mcsGXkmLFFmzpmWfH +1olwQ5uBv3wfdv4e03jlOW7w5ucQ42hmotoXZ1d5VfKAL5djuwH27NvWbqYO +H2jOkr392ELGfAKh1Xxg2GIfuoit8kUX+DX5YbP1+GnBFibyHChP371zHXhG +p8cCti97g8oBPgGgeGiaZmIPUgqno38LgoOlLndoK94fon5No6oQLHvde5KE +zf54SEbcTwh8DlNqyrClVbdY5o0Kgd3FV38nsY/pxD353CMMq1z3rT35hYka +3fwDxD6KwO2/OscCvjJR18PYay48ovDgRbpEIvbYaF7mIz1RqPtv574X2GsD ++1v314jCqZrOVLZvTKR70XqPS7kY0HZc/30LuyJLfTY3TQIeOOt1N3xnoqzB +xaB9gZvgzmhT4uV2JjKwudwVULAJ2oKGnEqxx2qFDxcMbYL1NypDurH3ZO0Q +kbbfDF/eZRVp/MT7SXMu5Tq4BbbMnN4wiT0z2XOGGSUNbF8V35zsZCJhb92y +UhMKiFtGFWb1MNFQ1toT5p4UOCFSyf8T+3lHk9T4JQrk3yt/LdjLRI7GTlEK +NRR47czaegE7a3uQ5R2qLDS8SRh36cPrjzycChOTAwXGZSfqABNZu/MqG/XK +g8rwTNMGJhOhIBvq0T/yIMP9KMIae1t02l66hAIUurZHJWCzZapqh1kogJZO +0TmRYSYq6HI4+uS1AphWyIHUCP4/bfMjJDO2AqXDdp36GK5P1+TbCE0JzObv +fcidYqJMq6Sfc2FKkLVqKncGO5bW28N5Twn+9+FNu9Y0Pt8XTo9ublWC42yD +1BZswaoUNiudbfCMsqWcjYXPj+rEtkrZ7cB1PXKV9ywTSVFuhF8b2AEqpXUV +kYv4HrhKKi2wK8OC18hEJ7Yjy/4LIaMMsfZzkZpLTJRaK6ek7awMwpaf6qex +Ke4VLfPfleHUCe824g/uN39Qnvi4E86z35uhsQ2jTVKbCWl7FbD/c1Ukk3sY +7cgO5FtCVKjjkJDT2TCMaPSoWWVTKnTwZaYXYifLxne5OFJh550qX0mRYcSR +UVRcF0wFu9BUXhZ2e+qIdXwJFfxEtuzIFRtGV5JdUpRkVUEKSYtTpIbR0DXj +nXbce6DvWPB9a8oweuAvZ17eoAafTkvble0eRk1BaO/FbE240sXYHXl0GMk4 +fzV18joAGzM4MhIjhxHj39PCTSEAeqaK8eLFw0hs9PlqMZo2oBO3dx34NYwC +VbU64rfpQsQd71B56RFEG1/+IDyiB+NzuWfZnEZQgXbA6rRGfYg8bwT5WSMo +i/R8nZ9gCHxS5+I+jY2g+UPin2rDj4DA1YtxuTCKOtk4pntdTSCl+dKRzORR +5LPxVFyErBmcin6flDM5igo9PtTcjjaHb2MCLAurMXSWJTG33cMCQjnZy3eV +j6FZo8O2749bQt9b8aeWcuNI0+HmoUELKwiXWpxxThxHLRIpnrWq1rD1Xk3k +DOcEksyJqspVtAFajIepVMQEet6zzdiU3xaOpLe5V81PoM1fptyDxm0hcFLR +YpvfJFK9fTM/s+co+CsMNo3/nkQpnKyd8W/tIOPpgZ3S+6fQ00O72qNf2MMM +Z1uxesQUSt57VXA57xhwqy2EttZNocaf2ZdUYxxAY5Jlu5NnGpWb3JfzveAI +6pZjj3eYTaNpbys2H7oT3OJwQXtvTqPZw0onJnScobYxJJponka5423zAerH +QWdNTB+X6Ayye5Dt5sTnAq90fVpKrGdQ6ZMjxzkuu0BUZ9iu0sQZpCnVsnBl +wQVMFVOaRFpmkGyPe3uzhyu8e2jDWb+GhQZ4T5rd73cF13nKu0ltFmqKNXXT +t6FBqPPX73WBLJQQnMZ7uokGDIuMhagcFqqq/rfgZugGDYrUfbdbWGi9I1xW +rXCDZV3TVoE5FpLe8L5xY5UbBMy9qMjCVmkwEeeudoMQZQkDjXkWstRyePTj +tRu8c7Wydl7A+RuDPp7/nxsoHKao5CyxkGTn4/UffrjB6wMFPXJsJJJzFkt2 +nHODSX/KxU4eEmm6TORG76HDUKkMqS5Bopw7UwGm6nRwNF3v+hh7Q+vMQTEN +OriZFJ3dIkmiCb25L7n76WC+praUW4rE9xfbqgZtOgi88dvfvJFE6+YE7YUs +6JDedi3eVppEA9fV1qR506EwzG1SZiuJYivPeTzPoYPV2Amu56ok8qYmaQbn +0kF8o4qeyB4SGT8qWaORR4fB5gO7/bHXJg09elZAh/Lv8/zb1UgU7W8+8rSM +Dr6jUT+S1Ul0TknuZPkbOry3ep9D1ySRZ9JHrydddGh2FW6uOkgiw3VDWv49 +dHhtYB6xHpFIMZqNn9pHh18yhh2u2EP+agUlg3QoM4J4LiCRq2naePEYHbJt +2P8YHCKRHVeAT9EiHRamht++0iGRfoCkb74oA9imjeq9DEj0Ju2SUbw4A5hi +S18qsLUaZuSCJRlwxqskhMeQRCryH9t0NjOgq205LgNb4nuozk95BkguP5xt +NiLR6L5O0bVqDMiQMovZZEKiG+zpL92tGLDIp3fX3QL3v4sv2cSGAWqt3Z9y +sS86BPurHmWAqCb73WHs4DLzrf+OMeBo4JMlD0tcP7HqZiKNAXctE/oZViRS +rafR3/kxwOEVVcvIhkTfb8rzysYxYG6S42OtHYkKEf8J5k0GpFkkRsxiXxwn +awtuMcCm62+HvD2JqIa1YRpJDHCVVo+Mxo5lc5sxSWVAx8uQaDhGosOn0tuC +8xlQ4033yHYg0aZN/6kfLGSA3xmKZxM2WX/qFkcxAw7pH1m/hJ2hgExiS3F/ +u2oPmzmS6E9nZ01mBa63MceDhV1mLJX7+QNez34+ZJszia4tsnMl1DOg2/hG +tRk2LXfE1b6BAc/HqQ8DsQU4K6QGGhnwNPoq/SW2V6XdjYVvDPCkDMUaHSeR +7LbEILlBBrR9ak2xciHR4vfzrcNDDHiWVCcdgN0UzVApYjLgustp/XjssN49 +I5pjDEi6R4Y3YrcntzqZsRhgQF++r+dKovjVgnpnVxHgsjEgSppGoqqZTodA +DgIOJzlpHMD+1Znn78NFQKr1Yog9tlaZbjptDQE53WqZcdhDLsFLRoIEnPuq +eH0BW8BYT0hPmIASH/GHQm4k2r9XSAmJEEBhv2WyHTuOP99WVYKAV1xi4LAy +XtFdIiVDQHh2T0U5NpGd/0FEloBvDwo0Pq7MjwvpXi9PwMC9fu0e7CFCmJ9T +iYCtm0OXeeh4XFj/xJgKAZobpjlssCv+CocPUQm4S0kdILAHh3tu9+whwDEi +ySIYe1/N2bdfNAhw96Y13cEe8Crc/BJwv7acrt+x19mFqj3TJoD6qDpzEFtT +x8C4RJeAbdMF/izsWIm+kGwDAmz1Zcr5GSR6zlkUl2ZEwPmwdEVJ7P7J0Id3 +jAmIWDZSVMDWqBP5et2cgOQ1Eg1a2LSSvtHLlgToeGn46mNfv1/EHmlNwGLV +2XQL7D5/Q5UgOwIuVbhk07H5nUX1fY8R8HyQ7az3Sp5hv5OnIwFlS1Xtp1e+ +33L+mrMLAbmNkRC9Us9aoww7GgGdT6/oxazkzYq+sKQTYP0z51v8Sl5vf6Mx +QcD61W2s5JW8huKhwycICJbYkpK6Ut+z83/AkwDz1cEtmSv5GUYb9nsRUN3e +dyt3Jf+62HY1H1x/qXNv/kp+8MChXb4E1L0bqSjG5qOX2Cn5E3DV8ZJ0GfZe +s7BTsoEE7PmuIvRsJX/fkUubggh4nzd84wV2jLx4ilgwAY9di+9UYj8VGCwV +PEtA0b2Lu15i9y6V1POeI2CWn7CoXsn/FdbLFUYAb5T1vxWrtxyZ/xdOQEe7 +meYr7P8DPgoH/Q== + "]]}, + 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:eJwV1Hc81d8fB3BZKZSR3eAaUSldEaXOOyMje0VGXPd+RMhKpAipbyVJQsPI +SjJDA0kl9ZOyWmSvrj3uR2b1O/74PD6P5+Ocz+u83+dxPkeGdsqSwc7GxsbE +z8rb7/POrc+aPh+8m5DqbdrIRAcnstRouvmoR2ouccU9aeoJcrpVKKXnj5AZ +tjn9Ezef6ju0u/9J74pLgsPfcuk2oCVZUQ4L7Ct14jXhec2oOnPrGUvsF01+ +qcvUr8jJ7dcBa+yR9vpzIZU/UJebzVFbbMlBWYffOh3odo7fWzvsI5PnNAMa +utHQDq1IB+zq5RHe4LxeFD5fdssZ+1uEWOhTn35kyNsx54o9wa07QlIHkbJ7 +SSEDmzvG1151bgjdWKf23AN7s2DKB79KJqricN/gg20q9TtnQmcMBfZ9rT2D +TaRTRJV5JtDrZiGJ89jh8mbRJxsm0R3Jv68isX+IfdkdmDeNquu6uW5g0495 +etyKmUFHd3/Luo09dZ/twRMfFtLlDE28j81DURaYps6iJVaj32PsBPpbfQGR +3yhb4oJDKbb0Q/vwXXO/UfSLrqRKbI0dlya8K+dRQehDnk/YJ9S7G0Z0llFG +uns9C5sMPs25VuEPGtgRY/gX+0Ilr5YSz19k6HJcak0TEyWDxmP3hn8o+Zvg +sy3Y9OwPuv55q8DgzcPP5th5dbd6IqTY4Ya+dr8T9tQv53M3Y9hhY8E1o5PY +57bNlhb7cMBqze2Cl7ETimRkJ6lcoA2pYW+w25vGqv9mcsGXkmLFFmzpmWfH +1olwQ5uBv3wfdv4e03jlOW7w5ucQ42hmotoXZ1d5VfKAL5djuwH27NvWbqYO +H2jOkr392ELGfAKh1Xxg2GIfuoit8kUX+DX5YbP1+GnBFibyHChP371zHXhG +p8cCti97g8oBPgGgeGiaZmIPUgqno38LgoOlLndoK94fon5No6oQLHvde5KE +zf54SEbcTwh8DlNqyrClVbdY5o0Kgd3FV38nsY/pxD353CMMq1z3rT35hYka +3fwDxD6KwO2/OscCvjJR18PYay48ovDgRbpEIvbYaF7mIz1RqPtv574X2GsD ++1v314jCqZrOVLZvTKR70XqPS7kY0HZc/30LuyJLfTY3TQIeOOt1N3xnoqzB +xaB9gZvgzmhT4uV2JjKwudwVULAJ2oKGnEqxx2qFDxcMbYL1NypDurH3ZO0Q +kbbfDF/eZRVp/MT7SXMu5Tq4BbbMnN4wiT0z2XOGGSUNbF8V35zsZCJhb92y +UhMKiFtGFWb1MNFQ1toT5p4UOCFSyf8T+3lHk9T4JQrk3yt/LdjLRI7GTlEK +NRR47czaegE7a3uQ5R2qLDS8SRh36cPrjzycChOTAwXGZSfqABNZu/MqG/XK +g8rwTNMGJhOhIBvq0T/yIMP9KMIae1t02l66hAIUurZHJWCzZapqh1kogJZO +0TmRYSYq6HI4+uS1AphWyIHUCP4/bfMjJDO2AqXDdp36GK5P1+TbCE0JzObv +fcidYqJMq6Sfc2FKkLVqKncGO5bW28N5Twn+9+FNu9Y0Pt8XTo9ublWC42yD +1BZswaoUNiudbfCMsqWcjYXPj+rEtkrZ7cB1PXKV9ywTSVFuhF8b2AEqpXUV +kYv4HrhKKi2wK8OC18hEJ7Yjy/4LIaMMsfZzkZpLTJRaK6ek7awMwpaf6qex +Ke4VLfPfleHUCe824g/uN39Qnvi4E86z35uhsQ2jTVKbCWl7FbD/c1Ukk3sY +7cgO5FtCVKjjkJDT2TCMaPSoWWVTKnTwZaYXYifLxne5OFJh550qX0mRYcSR +UVRcF0wFu9BUXhZ2e+qIdXwJFfxEtuzIFRtGV5JdUpRkVUEKSYtTpIbR0DXj +nXbce6DvWPB9a8oweuAvZ17eoAafTkvble0eRk1BaO/FbE240sXYHXl0GMk4 +fzV18joAGzM4MhIjhxHj39PCTSEAeqaK8eLFw0hs9PlqMZo2oBO3dx34NYwC +VbU64rfpQsQd71B56RFEG1/+IDyiB+NzuWfZnEZQgXbA6rRGfYg8bwT5WSMo +i/R8nZ9gCHxS5+I+jY2g+UPin2rDj4DA1YtxuTCKOtk4pntdTSCl+dKRzORR +5LPxVFyErBmcin6flDM5igo9PtTcjjaHb2MCLAurMXSWJTG33cMCQjnZy3eV +j6FZo8O2749bQt9b8aeWcuNI0+HmoUELKwiXWpxxThxHLRIpnrWq1rD1Xk3k +DOcEksyJqspVtAFajIepVMQEet6zzdiU3xaOpLe5V81PoM1fptyDxm0hcFLR +YpvfJFK9fTM/s+co+CsMNo3/nkQpnKyd8W/tIOPpgZ3S+6fQ00O72qNf2MMM +Z1uxesQUSt57VXA57xhwqy2EttZNocaf2ZdUYxxAY5Jlu5NnGpWb3JfzveAI +6pZjj3eYTaNpbys2H7oT3OJwQXtvTqPZw0onJnScobYxJJponka5423zAerH +QWdNTB+X6Ayye5Dt5sTnAq90fVpKrGdQ6ZMjxzkuu0BUZ9iu0sQZpCnVsnBl +wQVMFVOaRFpmkGyPe3uzhyu8e2jDWb+GhQZ4T5rd73cF13nKu0ltFmqKNXXT +t6FBqPPX73WBLJQQnMZ7uokGDIuMhagcFqqq/rfgZugGDYrUfbdbWGi9I1xW +rXCDZV3TVoE5FpLe8L5xY5UbBMy9qMjCVmkwEeeudoMQZQkDjXkWstRyePTj +tRu8c7Wydl7A+RuDPp7/nxsoHKao5CyxkGTn4/UffrjB6wMFPXJsJJJzFkt2 +nHODSX/KxU4eEmm6TORG76HDUKkMqS5Bopw7UwGm6nRwNF3v+hh7Q+vMQTEN +OriZFJ3dIkmiCb25L7n76WC+praUW4rE9xfbqgZtOgi88dvfvJFE6+YE7YUs +6JDedi3eVppEA9fV1qR506EwzG1SZiuJYivPeTzPoYPV2Amu56ok8qYmaQbn +0kF8o4qeyB4SGT8qWaORR4fB5gO7/bHXJg09elZAh/Lv8/zb1UgU7W8+8rSM +Dr6jUT+S1Ul0TknuZPkbOry3ep9D1ySRZ9JHrydddGh2FW6uOkgiw3VDWv49 +dHhtYB6xHpFIMZqNn9pHh18yhh2u2EP+agUlg3QoM4J4LiCRq2naePEYHbJt +2P8YHCKRHVeAT9EiHRamht++0iGRfoCkb74oA9imjeq9DEj0Ju2SUbw4A5hi +S18qsLUaZuSCJRlwxqskhMeQRCryH9t0NjOgq205LgNb4nuozk95BkguP5xt +NiLR6L5O0bVqDMiQMovZZEKiG+zpL92tGLDIp3fX3QL3v4sv2cSGAWqt3Z9y +sS86BPurHmWAqCb73WHs4DLzrf+OMeBo4JMlD0tcP7HqZiKNAXctE/oZViRS +rafR3/kxwOEVVcvIhkTfb8rzysYxYG6S42OtHYkKEf8J5k0GpFkkRsxiXxwn +awtuMcCm62+HvD2JqIa1YRpJDHCVVo+Mxo5lc5sxSWVAx8uQaDhGosOn0tuC +8xlQ4033yHYg0aZN/6kfLGSA3xmKZxM2WX/qFkcxAw7pH1m/hJ2hgExiS3F/ +u2oPmzmS6E9nZ01mBa63MceDhV1mLJX7+QNez34+ZJszia4tsnMl1DOg2/hG +tRk2LXfE1b6BAc/HqQ8DsQU4K6QGGhnwNPoq/SW2V6XdjYVvDPCkDMUaHSeR +7LbEILlBBrR9ak2xciHR4vfzrcNDDHiWVCcdgN0UzVApYjLgustp/XjssN49 +I5pjDEi6R4Y3YrcntzqZsRhgQF++r+dKovjVgnpnVxHgsjEgSppGoqqZTodA +DgIOJzlpHMD+1Znn78NFQKr1Yog9tlaZbjptDQE53WqZcdhDLsFLRoIEnPuq +eH0BW8BYT0hPmIASH/GHQm4k2r9XSAmJEEBhv2WyHTuOP99WVYKAV1xi4LAy +XtFdIiVDQHh2T0U5NpGd/0FEloBvDwo0Pq7MjwvpXi9PwMC9fu0e7CFCmJ9T +iYCtm0OXeeh4XFj/xJgKAZobpjlssCv+CocPUQm4S0kdILAHh3tu9+whwDEi +ySIYe1/N2bdfNAhw96Y13cEe8Crc/BJwv7acrt+x19mFqj3TJoD6qDpzEFtT +x8C4RJeAbdMF/izsWIm+kGwDAmz1Zcr5GSR6zlkUl2ZEwPmwdEVJ7P7J0Id3 +jAmIWDZSVMDWqBP5et2cgOQ1Eg1a2LSSvtHLlgToeGn46mNfv1/EHmlNwGLV +2XQL7D5/Q5UgOwIuVbhk07H5nUX1fY8R8HyQ7az3Sp5hv5OnIwFlS1Xtp1e+ +33L+mrMLAbmNkRC9Us9aoww7GgGdT6/oxazkzYq+sKQTYP0z51v8Sl5vf6Mx +QcD61W2s5JW8huKhwycICJbYkpK6Ut+z83/AkwDz1cEtmSv5GUYb9nsRUN3e +dyt3Jf+62HY1H1x/qXNv/kp+8MChXb4E1L0bqSjG5qOX2Cn5E3DV8ZJ0GfZe +s7BTsoEE7PmuIvRsJX/fkUubggh4nzd84wV2jLx4ilgwAY9di+9UYj8VGCwV +PEtA0b2Lu15i9y6V1POeI2CWn7CoXsn/FdbLFUYAb5T1vxWrtxyZ/xdOQEe7 +meYr7P8DPgoH/Q== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7753059521679859, + 1.2748405684230226`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7753059521679877}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.7753059521679859, + 1.2748405684230226`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7753059521679877}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJwV1Hc81d8fB3BZKZSR3eAaUSldEaXOOyMje0VGXPd+RMhKpAipbyVJQsPI +SjJDA0kl9ZOyWmSvrj3uR2b1O/74PD6P5+Ocz+u83+dxPkeGdsqSwc7GxsbE +z8rb7/POrc+aPh+8m5DqbdrIRAcnstRouvmoR2ouccU9aeoJcrpVKKXnj5AZ +tjn9Ezef6ju0u/9J74pLgsPfcuk2oCVZUQ4L7Ct14jXhec2oOnPrGUvsF01+ +qcvUr8jJ7dcBa+yR9vpzIZU/UJebzVFbbMlBWYffOh3odo7fWzvsI5PnNAMa +utHQDq1IB+zq5RHe4LxeFD5fdssZ+1uEWOhTn35kyNsx54o9wa07QlIHkbJ7 +SSEDmzvG1151bgjdWKf23AN7s2DKB79KJqricN/gg20q9TtnQmcMBfZ9rT2D +TaRTRJV5JtDrZiGJ89jh8mbRJxsm0R3Jv68isX+IfdkdmDeNquu6uW5g0495 +etyKmUFHd3/Luo09dZ/twRMfFtLlDE28j81DURaYps6iJVaj32PsBPpbfQGR +3yhb4oJDKbb0Q/vwXXO/UfSLrqRKbI0dlya8K+dRQehDnk/YJ9S7G0Z0llFG +uns9C5sMPs25VuEPGtgRY/gX+0Ilr5YSz19k6HJcak0TEyWDxmP3hn8o+Zvg +sy3Y9OwPuv55q8DgzcPP5th5dbd6IqTY4Ya+dr8T9tQv53M3Y9hhY8E1o5PY +57bNlhb7cMBqze2Cl7ETimRkJ6lcoA2pYW+w25vGqv9mcsGXkmLFFmzpmWfH +1olwQ5uBv3wfdv4e03jlOW7w5ucQ42hmotoXZ1d5VfKAL5djuwH27NvWbqYO +H2jOkr392ELGfAKh1Xxg2GIfuoit8kUX+DX5YbP1+GnBFibyHChP371zHXhG +p8cCti97g8oBPgGgeGiaZmIPUgqno38LgoOlLndoK94fon5No6oQLHvde5KE +zf54SEbcTwh8DlNqyrClVbdY5o0Kgd3FV38nsY/pxD353CMMq1z3rT35hYka +3fwDxD6KwO2/OscCvjJR18PYay48ovDgRbpEIvbYaF7mIz1RqPtv574X2GsD ++1v314jCqZrOVLZvTKR70XqPS7kY0HZc/30LuyJLfTY3TQIeOOt1N3xnoqzB +xaB9gZvgzmhT4uV2JjKwudwVULAJ2oKGnEqxx2qFDxcMbYL1NypDurH3ZO0Q +kbbfDF/eZRVp/MT7SXMu5Tq4BbbMnN4wiT0z2XOGGSUNbF8V35zsZCJhb92y +UhMKiFtGFWb1MNFQ1toT5p4UOCFSyf8T+3lHk9T4JQrk3yt/LdjLRI7GTlEK +NRR47czaegE7a3uQ5R2qLDS8SRh36cPrjzycChOTAwXGZSfqABNZu/MqG/XK +g8rwTNMGJhOhIBvq0T/yIMP9KMIae1t02l66hAIUurZHJWCzZapqh1kogJZO +0TmRYSYq6HI4+uS1AphWyIHUCP4/bfMjJDO2AqXDdp36GK5P1+TbCE0JzObv +fcidYqJMq6Sfc2FKkLVqKncGO5bW28N5Twn+9+FNu9Y0Pt8XTo9ublWC42yD +1BZswaoUNiudbfCMsqWcjYXPj+rEtkrZ7cB1PXKV9ywTSVFuhF8b2AEqpXUV +kYv4HrhKKi2wK8OC18hEJ7Yjy/4LIaMMsfZzkZpLTJRaK6ek7awMwpaf6qex +Ke4VLfPfleHUCe824g/uN39Qnvi4E86z35uhsQ2jTVKbCWl7FbD/c1Ukk3sY +7cgO5FtCVKjjkJDT2TCMaPSoWWVTKnTwZaYXYifLxne5OFJh550qX0mRYcSR +UVRcF0wFu9BUXhZ2e+qIdXwJFfxEtuzIFRtGV5JdUpRkVUEKSYtTpIbR0DXj +nXbce6DvWPB9a8oweuAvZ17eoAafTkvble0eRk1BaO/FbE240sXYHXl0GMk4 +fzV18joAGzM4MhIjhxHj39PCTSEAeqaK8eLFw0hs9PlqMZo2oBO3dx34NYwC +VbU64rfpQsQd71B56RFEG1/+IDyiB+NzuWfZnEZQgXbA6rRGfYg8bwT5WSMo +i/R8nZ9gCHxS5+I+jY2g+UPin2rDj4DA1YtxuTCKOtk4pntdTSCl+dKRzORR +5LPxVFyErBmcin6flDM5igo9PtTcjjaHb2MCLAurMXSWJTG33cMCQjnZy3eV +j6FZo8O2749bQt9b8aeWcuNI0+HmoUELKwiXWpxxThxHLRIpnrWq1rD1Xk3k +DOcEksyJqspVtAFajIepVMQEet6zzdiU3xaOpLe5V81PoM1fptyDxm0hcFLR +YpvfJFK9fTM/s+co+CsMNo3/nkQpnKyd8W/tIOPpgZ3S+6fQ00O72qNf2MMM +Z1uxesQUSt57VXA57xhwqy2EttZNocaf2ZdUYxxAY5Jlu5NnGpWb3JfzveAI +6pZjj3eYTaNpbys2H7oT3OJwQXtvTqPZw0onJnScobYxJJponka5423zAerH +QWdNTB+X6Ayye5Dt5sTnAq90fVpKrGdQ6ZMjxzkuu0BUZ9iu0sQZpCnVsnBl +wQVMFVOaRFpmkGyPe3uzhyu8e2jDWb+GhQZ4T5rd73cF13nKu0ltFmqKNXXT +t6FBqPPX73WBLJQQnMZ7uokGDIuMhagcFqqq/rfgZugGDYrUfbdbWGi9I1xW +rXCDZV3TVoE5FpLe8L5xY5UbBMy9qMjCVmkwEeeudoMQZQkDjXkWstRyePTj +tRu8c7Wydl7A+RuDPp7/nxsoHKao5CyxkGTn4/UffrjB6wMFPXJsJJJzFkt2 +nHODSX/KxU4eEmm6TORG76HDUKkMqS5Bopw7UwGm6nRwNF3v+hh7Q+vMQTEN +OriZFJ3dIkmiCb25L7n76WC+praUW4rE9xfbqgZtOgi88dvfvJFE6+YE7YUs +6JDedi3eVppEA9fV1qR506EwzG1SZiuJYivPeTzPoYPV2Amu56ok8qYmaQbn +0kF8o4qeyB4SGT8qWaORR4fB5gO7/bHXJg09elZAh/Lv8/zb1UgU7W8+8rSM +Dr6jUT+S1Ul0TknuZPkbOry3ep9D1ySRZ9JHrydddGh2FW6uOkgiw3VDWv49 +dHhtYB6xHpFIMZqNn9pHh18yhh2u2EP+agUlg3QoM4J4LiCRq2naePEYHbJt +2P8YHCKRHVeAT9EiHRamht++0iGRfoCkb74oA9imjeq9DEj0Ju2SUbw4A5hi +S18qsLUaZuSCJRlwxqskhMeQRCryH9t0NjOgq205LgNb4nuozk95BkguP5xt +NiLR6L5O0bVqDMiQMovZZEKiG+zpL92tGLDIp3fX3QL3v4sv2cSGAWqt3Z9y +sS86BPurHmWAqCb73WHs4DLzrf+OMeBo4JMlD0tcP7HqZiKNAXctE/oZViRS +rafR3/kxwOEVVcvIhkTfb8rzysYxYG6S42OtHYkKEf8J5k0GpFkkRsxiXxwn +awtuMcCm62+HvD2JqIa1YRpJDHCVVo+Mxo5lc5sxSWVAx8uQaDhGosOn0tuC +8xlQ4033yHYg0aZN/6kfLGSA3xmKZxM2WX/qFkcxAw7pH1m/hJ2hgExiS3F/ +u2oPmzmS6E9nZ01mBa63MceDhV1mLJX7+QNez34+ZJszia4tsnMl1DOg2/hG +tRk2LXfE1b6BAc/HqQ8DsQU4K6QGGhnwNPoq/SW2V6XdjYVvDPCkDMUaHSeR +7LbEILlBBrR9ak2xciHR4vfzrcNDDHiWVCcdgN0UzVApYjLgustp/XjssN49 +I5pjDEi6R4Y3YrcntzqZsRhgQF++r+dKovjVgnpnVxHgsjEgSppGoqqZTodA +DgIOJzlpHMD+1Znn78NFQKr1Yog9tlaZbjptDQE53WqZcdhDLsFLRoIEnPuq +eH0BW8BYT0hPmIASH/GHQm4k2r9XSAmJEEBhv2WyHTuOP99WVYKAV1xi4LAy +XtFdIiVDQHh2T0U5NpGd/0FEloBvDwo0Pq7MjwvpXi9PwMC9fu0e7CFCmJ9T +iYCtm0OXeeh4XFj/xJgKAZobpjlssCv+CocPUQm4S0kdILAHh3tu9+whwDEi +ySIYe1/N2bdfNAhw96Y13cEe8Crc/BJwv7acrt+x19mFqj3TJoD6qDpzEFtT +x8C4RJeAbdMF/izsWIm+kGwDAmz1Zcr5GSR6zlkUl2ZEwPmwdEVJ7P7J0Id3 +jAmIWDZSVMDWqBP5et2cgOQ1Eg1a2LSSvtHLlgToeGn46mNfv1/EHmlNwGLV +2XQL7D5/Q5UgOwIuVbhk07H5nUX1fY8R8HyQ7az3Sp5hv5OnIwFlS1Xtp1e+ +33L+mrMLAbmNkRC9Us9aoww7GgGdT6/oxazkzYq+sKQTYP0z51v8Sl5vf6Mx +QcD61W2s5JW8huKhwycICJbYkpK6Ut+z83/AkwDz1cEtmSv5GUYb9nsRUN3e +dyt3Jf+62HY1H1x/qXNv/kp+8MChXb4E1L0bqSjG5qOX2Cn5E3DV8ZJ0GfZe +s7BTsoEE7PmuIvRsJX/fkUubggh4nzd84wV2jLx4ilgwAY9di+9UYj8VGCwV +PEtA0b2Lu15i9y6V1POeI2CWn7CoXsn/FdbLFUYAb5T1vxWrtxyZ/xdOQEe7 +meYr7P8DPgoH/Q== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7753059521679859, 1.2748405684230226`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7753059521679877}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.7753059521679877}, + 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.7753059521679859, 1.2748405684230226`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994014840618908*^9}, + CellLabel-> + "Out[118]=",ExpressionUUID->"d616e545-ab03-46d0-97ba-9f7dc1c340c4"] }, Open ]], Cell[CellGroupData[{ @@ -4430,30 +10576,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 +10627,1093 @@ 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[\\\"2.2588380853629796`*^-273\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 41, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994014840747513*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"2ed8e8b2-8667-4d8e-a1a5-9ca6422e926f"], 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.85440289104956`*^-285\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 119, 42, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994014840756425*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"53d56135-6ff9-4e8c-9512-f9355668003f"], 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[\\\"4.2990799990660305`*^-296\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 119, 43, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9940148407648478`*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"9b951bd0-cd99-49a2-bf06-cbbfbbe291df"], 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, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994014840773251*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"02c6780f-4151-42a8-8bc5-1b4e432eb0c3"], 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:eJwV13lYTV0XAPBUoiQaNKnbubeJNGmerrWI0jyKkpQ0GEpIFJpeUQopFNJA +A5ruOaLJkIo0vs0j0UAJiUqm3r7z/XWe37P3eZ6z195rrX2Yew45+nBzcXER +i7i4/v/8MVhfqxCfvSHxQ4aI765NGzrTJUM39kaDRXmPaFYvAbjq3z2SvUnw +rqLSO6xXE0Ls7/fw9N4G3/S16z17EYQnJZJ+9VAgsGh5kX6vPbx9bHtopqca +viqn1j3s8QQzhYk333rawfLMob1Pu4LgV4/+1ameYdg426r8qTkSakzzsttu +T0O9R/py0uMyyLwt/7BHdR74CibqZU9eB7GDu+8vMeVBZ/OhVWpxmZC03qzS +dttSnA9+O8vemw19qZpV31Yux86sTZf/kHkQnx3xL7eUMPaWFu9THr8PEldG +4pJviSIj13uIK7cQJNc9PPMzVxRNwpWHDxQXgnT12YhdHFH0q21sbC0rBMbU +2mPKNaLYcf+Hc2xjIShaB3lWjotilokwo2iqELR55/VGtMXwug9XQodhEdgF +i49qNYghj8vrreF1RXDO2WJD+49VmLVbLk+2tRikS1qkuReJo9ddLs/s3mIo +EnWeW79MHPMvONyTHyqG7nYPzmU5caRGBz4u+14MCg7BLIet4vgo/EHMc34O +VNtk8LVeF8ddM6qJMSocmDebbWk2kcDYmoaODfs4kJgblj9vJoFBvv4RAgEc +UODjilVzkECvDnf/9iAOWL8Q2HjBRwIjZG2+uZzgwA1T4oH1RQmsWcXp1TrH +AQO0Sml8K4GRzVuadbM5cNQwa3d9tCSu/sRZ5TfAActMoRmrBEkM8N+UETXI +AdaSU7EtVyVRUsf6TeoQB1o7XciOu5LoY50Q8mSMA+pBgjyDLZI4HOko83aa +A+O5x3O/S0sh02+p2pllJLiL2X5Z/UAKn/GHum0zIEH7ZGVU+mMpvJx0bR+f +MQkCw2vEmS+l8MBzM7USNgnlxTyg1CeF6mV57YtNSRC3Kk/UXJBCrpmslCgb +ElqjFHS2WEnjaFSk3IAXCZu//g4LHJHGZL8gXolYEkK3XlF5/lka85+J+zud +J6EoS61f9Ic0Bg/r5CQkkCDp7GlYvnQ1loZfK5hNJOFz2Ys5HvXVyMflPJt1 +nYTk6MTg6ydW47tTr9O875MwvEopsHa5DN60LRtNqCdB4tAzWQkJGexJPT26 +t5EE61c7mvcRMigV7v3CsJmER2Hxqiu0ZVDo+/N1/a0knH87NeG6QwbNz9sn +z/aQoHWv0u/rbRlUdWkQS3lPQpSJg5e0gSyGlNuYn/uPhK0e6d/1N8nihXKF +m6u5KBCK/PTPNmtZbPxUalewiIK0mpjcRE9ZXAWKb6p5KSizrPjEFyeLB3pf +p9QKUDC1Qz5kuk8WxT5e4lstTkFpWNAS4VFZnJqjco9JUBCe9iRVfVIW+0Y9 +OU2SFAi+2165j5uBml1l3EGrKVD2S+B6p8LAu9slS+IJCjyOzZ5vOslARS/D +DgkVChRTNslMxDDQUUF0m+E6io7fpcIlifT8376W21UpCPu7tnVTNgONTeWS +YtUpuPqPx6ryJgaqtkXcrdKiwD0nP7e7m4ETIq29L7QpYNX91J95x8As9z9R +dToUcASS3TRmGWg+n7exSo+Cpst1GTmycpjzay7unBEFyQ/E1tcoy2FCWOmV +IGMK3Lq8qt+tl8O4rDlZFxMKxiX/jq42k0Ph1ndF4hso4MnUVEkKlMOL00OD +ARspMCq6XhL+TA4dDPbKHTOnYHNPy/zkKzn8Vf/hnvRWCmy5eM13t8thz+2w +9U9oezsG9sF7OeRd7Gf0y4ICs5PMiMjFBHIfOLrFxpqCxhWP7xgIEMjg3Gzo +p22f7fJqSohA9xYBRx8bCnY2xwt7SRK4q9F3/2FbCoLkftzZuI7Ao07vOnzs +KZh9kPjqlwaBbzN5wwdoh21d94XUIXChqEvD1oGCmMOeeqwNBF5QhkIVR7ru +8v1x699EYMqcYdgV2ok3rkYkmRN42zHX4Q/tGzUNr7gdCHwdl8mqcqJAbofP +l4ptBP69d02W4UxB9ucF4aNuBPK+blEMpV28SnfniDeB3+ffeCpto6DWL+NL +TQiB+f7xV3e5UGDx11Dk1EkCM9WzhLJptyR26ulEEljZ9vjGGO2+cv7I7DgC +H6nOTvpsp8+LbXa2+0UC+/zjyzJpjw5vqBdLJrAiTjq1l/bksmCRmDQCX5oy +0mAHBUczhfTZWQS+4BapDqT9U+feztkcAo2+/eW6STu83jSy8D6BJZ6ZrrW0 +eTwGs32KCYx1fto0QTv2+4l62RIC3aKkdgq50vlyTnSyq4zAW9bHFmvQTl5d +JHLxCYESTVebrGlLcrbqm1UT6P8CSD/atzaP7PzvJYH/FBqURNBm9Z2OfNRI +IPuuWfcV2ncDJHMCWwmsO6cpmUdbjftBvVIXgfpNT8Ie0aau2UwO9tHxvPPo +v2raBuvGRVIGCUz4MJLdRPvJs2h9uxECU2VXBHbQ3uQs675knMCeMO6dPbTr +xksjn30m0Pt17MFe2tanHXOOfyPQrDHgTjftduEv9Ro/6P0LO83VTnt77rnJ +sd8Ejr86c6aB9msjlmjmAoEjxg6aVbT3/PtYfwcvE0t4SN4HtMe8t7uv5Gdi +6s8j3HdoH/z5LfLVciaW3vBVSaRtdNhX/IMIEz+0nzh/gvbSif58Hkkm5qlW +puyi3b3HbiNTlonasQZOQDtnoKZ7A4uJVff/PpGlHexscNBdmYk1bLG+n/R+ +bGouWBSmykSlloScVtqDT6+qPtRjYs65AZcQ2gX6AtXtxkw00W1jb6Ydxgnf +PoVMvDvm2y9EW/y2X/Q6Kyby81Ua3Pj/+ZF+LWFhz0TFmYy/brSpZPtC321M +7Pl4OEyStl2MYW/WbiYuOax9N44+j4z/CgOe7aXf32/vxqb9OYTF82YfE5kG +Dxu+0Oc71n+ZumQwE7uiKiY203YZiqjRDaXXv/5S2ic6HxTcZnY4hTPxNENM ++BLtKqs3/1yMZeJtp0yzJjqfLtY6SBVcYKJ0zDC/L2139sui+iQmetVYXvlL +598v9eI+3ltMfOUkyEPQ1hKJ0jhJ0uPqv/2Qzm+u+Nna1EdM7Nuz/EyVHZ1P +PPvdHlUykafCNYhN+8CsY8y3F0w8U6r3VI2uF9m9CgN+/UxUaXO3G7ei4IjD +9aCYt0yscLu43I42NiznuzPKxJOBkENZUvCm8ofm4CQTF9u2+wTR9Uo849VZ +Zx4WWrXVWr80o+MpwZY5spSFVVJzc6K0qUSSvLSchQ2rmGc9ttDxjL7xukGC +hXfzlewnTOl4+RzU2qjKwn8e5j9+jfT61q0cVNvGwuADd5ao0/X4xy3pKG03 +Fn43+HDH1pCCmRWKCoa7Wdh8pM7xoAGd79OG+zfvY+HwKakv6XQ9H670/uF2 +moVb/IV0h+h+0GBVKhSbw8LI0TGZAbq/1D15Tl64z0K8fPZw81q6Hmk0OScX +s7C1cfDT4zUUPBUdupFezkKpo6kuyUr09w8IKD9sZmHnX1clBouufwc8YHiW +Hg9zqi6g+1vKG//hsd8sjHZPX3yE7n9X7I7GfFlgod8p12gduj9e1I5t/Mkv +jzVbWGqkKAXRf8jtKxjy2N279kCcEL0f8YuDTMzk0WqZcfYjHgpM8gsyr12T +R31G6ILgZxIGiPyMLTflseTpdd6UCRLCrt1Ln8mQR9Mp1xrGRxJKo3LTHO/J +47nh+cPKH+j+vyMzVeixPO4rridl35GwdvGVxLND9HwSCtI76PvO7pORIaoK ++E4xVuF3GQkPO0MjFNcr4Mr724+xS0lwtjwR3qmrgCfbLt0Of0hCku6xU1qg +gKf+5l37TZKwXPDQiUkHBQz3i+Pto+8vvOV7gnyPK+B4QOyUZhoJ30QsPV2q +FfCeouGI82kSeg+yWvfXKSDfV5HrKidJqHr5GyKaFHD4ivLs/AkSEsPy5e52 +K+AgtufcCiZBc1jw7a8JBdStnRZ+foCEQPLfXbdEFVEy5qr7dVcSJuy27Rzd +q4gBS7bz3NAmYTTB0+XIEiWMQZ0sdfr+GDihytIUVMJFGy5U5dH3yznzX1++ +rFTCgFxrJbnXHBDgSYrZJ62E1/97X7+0hwOaoTUlnmpKeLKuP7muiQOnfZRE +7ZyU8Ahvx5aZUg6Ib/j877oMJbRy//ZE5AIHLL4et3ivp4xcbcJ897Q48Nl7 +6dGSiDV4h0u/U7CsiP4/keA+V70WBYbMI7MnCkCkWeki56sKSlnvsEpn5YNM +bLG9np4qSoY6aT1k3YPUdYYrRf3UkDFcUqzNzoMG6Y2605fVkV3rHJLnlQNG +MtWJGt0a+O/0PN7yuQNCPLeDvaI18Wyag3tXahYwouRMXJXW46ZPp3HhSAbw +K7o/cqxbj+PTpV0OczdBnS1VfHyXFh6+av+g6WMqHBkUqbHk0kZ5YY+0U11X +4et0wjaLVG3UW7skpUAjGcw1Xt6wUNNB2z8rC6+1JMLTaeM/cy062Pq+Vqd/ +MgECVbX623x0cczlgNFa7jhgT+7tdOXXQ6lLp7179GNgi4KkzfLbejjWZut+ +TSIa1kSeP1Gtr4/Rm1P4KurCQcXH8Jlivz7GGQ+O78oPBZ+n/mdKDhtgQVOS +7qH4Y/Ass3Pvt1WG+Ldbpqzo4WGYubswp1FqiA1wqfMafwB4K+bz37AxQmnF +iMHpeT8Ie+GxX8neCM967Cns+egHiT4ijZSjEV7leTlT3+UHj3NCExq3GyGH +rGjqK/QDMaWtK+a9jHCL7+VnOR5+8FLpvZhniBHqtx28P1btCypr5AilDCO0 +HV02OHDVB76pJOtRU0Y4oBsr3OrtDb1NuEV02gj3f037qeHsDVWBk07Bs0Z4 +RPV5w43N3nCRsjis99sIC52/SlxW9AYVI66CCh5jfMHrXLAwtgf2WAQwa8SN +cfr6ruNvA/dAp5+5YKeJMa4h9NsiznhBWfafodlYY7xmfFP/583doGcaPGcZ +b4z15ZzPTtG74eHQZ8HMC8bY8kC1/bn/bqAYg/qWScYo6HmUt1N3NxSkVl1I +v2mM8j86hlpbPSAzIcbQvMgYR3b575MX8IC44BWXUzuMcfZhS+1InDu4bZZH +Y4YJvutPtcmodIX5zqVCNYQJDu+X3eqb7QqZPpMDlvImqLjlcTlccIUPZ8uP +u60xwQ3bmtvW7naFI/V2xaFaJnhwpdA/fTyucN72FKPMjB5nnN6fZr8DKnZ0 +/dU5ZILdxQqHds25wOqAc+XqVSZIZQ9tMD/uDBcXfHXjq03wRNPAuis+zsCd +ZEaO1ZqgKpdY8aSTM0w8Wnwvs94E5fM2bmvSdIYKrjOpIh0mOPYsXnXtJydw +uxJ5/Md7E/y8elGw1x4nSK0M1X26jI08UcHZiW6OsErgIGmznY1PMkZJySB7 +yDY9HTblykZLA1X+3t32oHX6ommyOxu1RKwrc+zswXaK09XrxUaVD//xHtSw +h7Pds7+8D7LxS+EAj9lbO/h5O2JTWBQb9xkdztvz3hb6jZM7cvPZSGSKmQry +2YD/sew0iyI2Kon+bPk5bg0/ih76fOaw0eeqSshCozWIsHrn1j9io/Eru5du +SdZgtVRW5kkVG+MqpjeYE9bwuDN3b0cXGycbv276gFZgKVSmFtLLxsS8dr0D +ilbQa17/Q3KAjWvKswT4BaxgpuJTrMc7NpqJ1fJe6rAEtSzNwo8TbFxY+XZN +tZ8lPO7fGJLwhY06VMoiQRtLsBRzAo0pNobYjhOBWpbge+5YW/AsG+tcosfC +5i1gpursDYmfbJwZ4dqnOGIB0b9TvCt+szEgL+r92CsLWKlzT3XXPBvbOowt +q4ssID2gYnZhgY1B/EfOlFyxgP8BnVgkmg== + "]]}, + 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:eJwV13lYTV0XAPBUoiQaNKnbubeJNGmerrWI0jyKkpQ0GEpIFJpeUQopFNJA +A5ruOaLJkIo0vs0j0UAJiUqm3r7z/XWe37P3eZ6z195rrX2Yew45+nBzcXER +i7i4/v/8MVhfqxCfvSHxQ4aI765NGzrTJUM39kaDRXmPaFYvAbjq3z2SvUnw +rqLSO6xXE0Ls7/fw9N4G3/S16z17EYQnJZJ+9VAgsGh5kX6vPbx9bHtopqca +viqn1j3s8QQzhYk333rawfLMob1Pu4LgV4/+1ameYdg426r8qTkSakzzsttu +T0O9R/py0uMyyLwt/7BHdR74CibqZU9eB7GDu+8vMeVBZ/OhVWpxmZC03qzS +dttSnA9+O8vemw19qZpV31Yux86sTZf/kHkQnx3xL7eUMPaWFu9THr8PEldG +4pJviSIj13uIK7cQJNc9PPMzVxRNwpWHDxQXgnT12YhdHFH0q21sbC0rBMbU +2mPKNaLYcf+Hc2xjIShaB3lWjotilokwo2iqELR55/VGtMXwug9XQodhEdgF +i49qNYghj8vrreF1RXDO2WJD+49VmLVbLk+2tRikS1qkuReJo9ddLs/s3mIo +EnWeW79MHPMvONyTHyqG7nYPzmU5caRGBz4u+14MCg7BLIet4vgo/EHMc34O +VNtk8LVeF8ddM6qJMSocmDebbWk2kcDYmoaODfs4kJgblj9vJoFBvv4RAgEc +UODjilVzkECvDnf/9iAOWL8Q2HjBRwIjZG2+uZzgwA1T4oH1RQmsWcXp1TrH +AQO0Sml8K4GRzVuadbM5cNQwa3d9tCSu/sRZ5TfAActMoRmrBEkM8N+UETXI +AdaSU7EtVyVRUsf6TeoQB1o7XciOu5LoY50Q8mSMA+pBgjyDLZI4HOko83aa +A+O5x3O/S0sh02+p2pllJLiL2X5Z/UAKn/GHum0zIEH7ZGVU+mMpvJx0bR+f +MQkCw2vEmS+l8MBzM7USNgnlxTyg1CeF6mV57YtNSRC3Kk/UXJBCrpmslCgb +ElqjFHS2WEnjaFSk3IAXCZu//g4LHJHGZL8gXolYEkK3XlF5/lka85+J+zud +J6EoS61f9Ic0Bg/r5CQkkCDp7GlYvnQ1loZfK5hNJOFz2Ys5HvXVyMflPJt1 +nYTk6MTg6ydW47tTr9O875MwvEopsHa5DN60LRtNqCdB4tAzWQkJGexJPT26 +t5EE61c7mvcRMigV7v3CsJmER2Hxqiu0ZVDo+/N1/a0knH87NeG6QwbNz9sn +z/aQoHWv0u/rbRlUdWkQS3lPQpSJg5e0gSyGlNuYn/uPhK0e6d/1N8nihXKF +m6u5KBCK/PTPNmtZbPxUalewiIK0mpjcRE9ZXAWKb6p5KSizrPjEFyeLB3pf +p9QKUDC1Qz5kuk8WxT5e4lstTkFpWNAS4VFZnJqjco9JUBCe9iRVfVIW+0Y9 +OU2SFAi+2165j5uBml1l3EGrKVD2S+B6p8LAu9slS+IJCjyOzZ5vOslARS/D +DgkVChRTNslMxDDQUUF0m+E6io7fpcIlifT8376W21UpCPu7tnVTNgONTeWS +YtUpuPqPx6ryJgaqtkXcrdKiwD0nP7e7m4ETIq29L7QpYNX91J95x8As9z9R +dToUcASS3TRmGWg+n7exSo+Cpst1GTmycpjzay7unBEFyQ/E1tcoy2FCWOmV +IGMK3Lq8qt+tl8O4rDlZFxMKxiX/jq42k0Ph1ndF4hso4MnUVEkKlMOL00OD +ARspMCq6XhL+TA4dDPbKHTOnYHNPy/zkKzn8Vf/hnvRWCmy5eM13t8thz+2w +9U9oezsG9sF7OeRd7Gf0y4ICs5PMiMjFBHIfOLrFxpqCxhWP7xgIEMjg3Gzo +p22f7fJqSohA9xYBRx8bCnY2xwt7SRK4q9F3/2FbCoLkftzZuI7Ao07vOnzs +KZh9kPjqlwaBbzN5wwdoh21d94XUIXChqEvD1oGCmMOeeqwNBF5QhkIVR7ru +8v1x699EYMqcYdgV2ok3rkYkmRN42zHX4Q/tGzUNr7gdCHwdl8mqcqJAbofP +l4ptBP69d02W4UxB9ucF4aNuBPK+blEMpV28SnfniDeB3+ffeCpto6DWL+NL +TQiB+f7xV3e5UGDx11Dk1EkCM9WzhLJptyR26ulEEljZ9vjGGO2+cv7I7DgC +H6nOTvpsp8+LbXa2+0UC+/zjyzJpjw5vqBdLJrAiTjq1l/bksmCRmDQCX5oy +0mAHBUczhfTZWQS+4BapDqT9U+feztkcAo2+/eW6STu83jSy8D6BJZ6ZrrW0 +eTwGs32KCYx1fto0QTv2+4l62RIC3aKkdgq50vlyTnSyq4zAW9bHFmvQTl5d +JHLxCYESTVebrGlLcrbqm1UT6P8CSD/atzaP7PzvJYH/FBqURNBm9Z2OfNRI +IPuuWfcV2ncDJHMCWwmsO6cpmUdbjftBvVIXgfpNT8Ie0aau2UwO9tHxvPPo +v2raBuvGRVIGCUz4MJLdRPvJs2h9uxECU2VXBHbQ3uQs675knMCeMO6dPbTr +xksjn30m0Pt17MFe2tanHXOOfyPQrDHgTjftduEv9Ro/6P0LO83VTnt77rnJ +sd8Ejr86c6aB9msjlmjmAoEjxg6aVbT3/PtYfwcvE0t4SN4HtMe8t7uv5Gdi +6s8j3HdoH/z5LfLVciaW3vBVSaRtdNhX/IMIEz+0nzh/gvbSif58Hkkm5qlW +puyi3b3HbiNTlonasQZOQDtnoKZ7A4uJVff/PpGlHexscNBdmYk1bLG+n/R+ +bGouWBSmykSlloScVtqDT6+qPtRjYs65AZcQ2gX6AtXtxkw00W1jb6Ydxgnf +PoVMvDvm2y9EW/y2X/Q6Kyby81Ua3Pj/+ZF+LWFhz0TFmYy/brSpZPtC321M +7Pl4OEyStl2MYW/WbiYuOax9N44+j4z/CgOe7aXf32/vxqb9OYTF82YfE5kG +Dxu+0Oc71n+ZumQwE7uiKiY203YZiqjRDaXXv/5S2ic6HxTcZnY4hTPxNENM ++BLtKqs3/1yMZeJtp0yzJjqfLtY6SBVcYKJ0zDC/L2139sui+iQmetVYXvlL +598v9eI+3ltMfOUkyEPQ1hKJ0jhJ0uPqv/2Qzm+u+Nna1EdM7Nuz/EyVHZ1P +PPvdHlUykafCNYhN+8CsY8y3F0w8U6r3VI2uF9m9CgN+/UxUaXO3G7ei4IjD +9aCYt0yscLu43I42NiznuzPKxJOBkENZUvCm8ofm4CQTF9u2+wTR9Uo849VZ +Zx4WWrXVWr80o+MpwZY5spSFVVJzc6K0qUSSvLSchQ2rmGc9ttDxjL7xukGC +hXfzlewnTOl4+RzU2qjKwn8e5j9+jfT61q0cVNvGwuADd5ao0/X4xy3pKG03 +Fn43+HDH1pCCmRWKCoa7Wdh8pM7xoAGd79OG+zfvY+HwKakv6XQ9H670/uF2 +moVb/IV0h+h+0GBVKhSbw8LI0TGZAbq/1D15Tl64z0K8fPZw81q6Hmk0OScX +s7C1cfDT4zUUPBUdupFezkKpo6kuyUr09w8IKD9sZmHnX1clBouufwc8YHiW +Hg9zqi6g+1vKG//hsd8sjHZPX3yE7n9X7I7GfFlgod8p12gduj9e1I5t/Mkv +jzVbWGqkKAXRf8jtKxjy2N279kCcEL0f8YuDTMzk0WqZcfYjHgpM8gsyr12T +R31G6ILgZxIGiPyMLTflseTpdd6UCRLCrt1Ln8mQR9Mp1xrGRxJKo3LTHO/J +47nh+cPKH+j+vyMzVeixPO4rridl35GwdvGVxLND9HwSCtI76PvO7pORIaoK ++E4xVuF3GQkPO0MjFNcr4Mr724+xS0lwtjwR3qmrgCfbLt0Of0hCku6xU1qg +gKf+5l37TZKwXPDQiUkHBQz3i+Pto+8vvOV7gnyPK+B4QOyUZhoJ30QsPV2q +FfCeouGI82kSeg+yWvfXKSDfV5HrKidJqHr5GyKaFHD4ivLs/AkSEsPy5e52 +K+AgtufcCiZBc1jw7a8JBdStnRZ+foCEQPLfXbdEFVEy5qr7dVcSJuy27Rzd +q4gBS7bz3NAmYTTB0+XIEiWMQZ0sdfr+GDihytIUVMJFGy5U5dH3yznzX1++ +rFTCgFxrJbnXHBDgSYrZJ62E1/97X7+0hwOaoTUlnmpKeLKuP7muiQOnfZRE +7ZyU8Ahvx5aZUg6Ib/j877oMJbRy//ZE5AIHLL4et3ivp4xcbcJ897Q48Nl7 +6dGSiDV4h0u/U7CsiP4/keA+V70WBYbMI7MnCkCkWeki56sKSlnvsEpn5YNM +bLG9np4qSoY6aT1k3YPUdYYrRf3UkDFcUqzNzoMG6Y2605fVkV3rHJLnlQNG +MtWJGt0a+O/0PN7yuQNCPLeDvaI18Wyag3tXahYwouRMXJXW46ZPp3HhSAbw +K7o/cqxbj+PTpV0OczdBnS1VfHyXFh6+av+g6WMqHBkUqbHk0kZ5YY+0U11X +4et0wjaLVG3UW7skpUAjGcw1Xt6wUNNB2z8rC6+1JMLTaeM/cy062Pq+Vqd/ +MgECVbX623x0cczlgNFa7jhgT+7tdOXXQ6lLp7179GNgi4KkzfLbejjWZut+ +TSIa1kSeP1Gtr4/Rm1P4KurCQcXH8Jlivz7GGQ+O78oPBZ+n/mdKDhtgQVOS +7qH4Y/Ass3Pvt1WG+Ldbpqzo4WGYubswp1FqiA1wqfMafwB4K+bz37AxQmnF +iMHpeT8Ie+GxX8neCM967Cns+egHiT4ijZSjEV7leTlT3+UHj3NCExq3GyGH +rGjqK/QDMaWtK+a9jHCL7+VnOR5+8FLpvZhniBHqtx28P1btCypr5AilDCO0 +HV02OHDVB76pJOtRU0Y4oBsr3OrtDb1NuEV02gj3f037qeHsDVWBk07Bs0Z4 +RPV5w43N3nCRsjis99sIC52/SlxW9AYVI66CCh5jfMHrXLAwtgf2WAQwa8SN +cfr6ruNvA/dAp5+5YKeJMa4h9NsiznhBWfafodlYY7xmfFP/583doGcaPGcZ +b4z15ZzPTtG74eHQZ8HMC8bY8kC1/bn/bqAYg/qWScYo6HmUt1N3NxSkVl1I +v2mM8j86hlpbPSAzIcbQvMgYR3b575MX8IC44BWXUzuMcfZhS+1InDu4bZZH +Y4YJvutPtcmodIX5zqVCNYQJDu+X3eqb7QqZPpMDlvImqLjlcTlccIUPZ8uP +u60xwQ3bmtvW7naFI/V2xaFaJnhwpdA/fTyucN72FKPMjB5nnN6fZr8DKnZ0 +/dU5ZILdxQqHds25wOqAc+XqVSZIZQ9tMD/uDBcXfHXjq03wRNPAuis+zsCd +ZEaO1ZqgKpdY8aSTM0w8Wnwvs94E5fM2bmvSdIYKrjOpIh0mOPYsXnXtJydw +uxJ5/Md7E/y8elGw1x4nSK0M1X26jI08UcHZiW6OsErgIGmznY1PMkZJySB7 +yDY9HTblykZLA1X+3t32oHX6ommyOxu1RKwrc+zswXaK09XrxUaVD//xHtSw +h7Pds7+8D7LxS+EAj9lbO/h5O2JTWBQb9xkdztvz3hb6jZM7cvPZSGSKmQry +2YD/sew0iyI2Kon+bPk5bg0/ih76fOaw0eeqSshCozWIsHrn1j9io/Eru5du +SdZgtVRW5kkVG+MqpjeYE9bwuDN3b0cXGycbv276gFZgKVSmFtLLxsS8dr0D +ilbQa17/Q3KAjWvKswT4BaxgpuJTrMc7NpqJ1fJe6rAEtSzNwo8TbFxY+XZN +tZ8lPO7fGJLwhY06VMoiQRtLsBRzAo0pNobYjhOBWpbge+5YW/AsG+tcosfC +5i1gpursDYmfbJwZ4dqnOGIB0b9TvCt+szEgL+r92CsLWKlzT3XXPBvbOowt +q4ssID2gYnZhgY1B/EfOlFyxgP8BnVgkmg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07168343210001775}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.07168343210001775}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJwV13lYTV0XAPBUoiQaNKnbubeJNGmerrWI0jyKkpQ0GEpIFJpeUQopFNJA +A5ruOaLJkIo0vs0j0UAJiUqm3r7z/XWe37P3eZ6z195rrX2Yew45+nBzcXER +i7i4/v/8MVhfqxCfvSHxQ4aI765NGzrTJUM39kaDRXmPaFYvAbjq3z2SvUnw +rqLSO6xXE0Ls7/fw9N4G3/S16z17EYQnJZJ+9VAgsGh5kX6vPbx9bHtopqca +viqn1j3s8QQzhYk333rawfLMob1Pu4LgV4/+1ameYdg426r8qTkSakzzsttu +T0O9R/py0uMyyLwt/7BHdR74CibqZU9eB7GDu+8vMeVBZ/OhVWpxmZC03qzS +dttSnA9+O8vemw19qZpV31Yux86sTZf/kHkQnx3xL7eUMPaWFu9THr8PEldG +4pJviSIj13uIK7cQJNc9PPMzVxRNwpWHDxQXgnT12YhdHFH0q21sbC0rBMbU +2mPKNaLYcf+Hc2xjIShaB3lWjotilokwo2iqELR55/VGtMXwug9XQodhEdgF +i49qNYghj8vrreF1RXDO2WJD+49VmLVbLk+2tRikS1qkuReJo9ddLs/s3mIo +EnWeW79MHPMvONyTHyqG7nYPzmU5caRGBz4u+14MCg7BLIet4vgo/EHMc34O +VNtk8LVeF8ddM6qJMSocmDebbWk2kcDYmoaODfs4kJgblj9vJoFBvv4RAgEc +UODjilVzkECvDnf/9iAOWL8Q2HjBRwIjZG2+uZzgwA1T4oH1RQmsWcXp1TrH +AQO0Sml8K4GRzVuadbM5cNQwa3d9tCSu/sRZ5TfAActMoRmrBEkM8N+UETXI +AdaSU7EtVyVRUsf6TeoQB1o7XciOu5LoY50Q8mSMA+pBgjyDLZI4HOko83aa +A+O5x3O/S0sh02+p2pllJLiL2X5Z/UAKn/GHum0zIEH7ZGVU+mMpvJx0bR+f +MQkCw2vEmS+l8MBzM7USNgnlxTyg1CeF6mV57YtNSRC3Kk/UXJBCrpmslCgb +ElqjFHS2WEnjaFSk3IAXCZu//g4LHJHGZL8gXolYEkK3XlF5/lka85+J+zud +J6EoS61f9Ic0Bg/r5CQkkCDp7GlYvnQ1loZfK5hNJOFz2Ys5HvXVyMflPJt1 +nYTk6MTg6ydW47tTr9O875MwvEopsHa5DN60LRtNqCdB4tAzWQkJGexJPT26 +t5EE61c7mvcRMigV7v3CsJmER2Hxqiu0ZVDo+/N1/a0knH87NeG6QwbNz9sn +z/aQoHWv0u/rbRlUdWkQS3lPQpSJg5e0gSyGlNuYn/uPhK0e6d/1N8nihXKF +m6u5KBCK/PTPNmtZbPxUalewiIK0mpjcRE9ZXAWKb6p5KSizrPjEFyeLB3pf +p9QKUDC1Qz5kuk8WxT5e4lstTkFpWNAS4VFZnJqjco9JUBCe9iRVfVIW+0Y9 +OU2SFAi+2165j5uBml1l3EGrKVD2S+B6p8LAu9slS+IJCjyOzZ5vOslARS/D +DgkVChRTNslMxDDQUUF0m+E6io7fpcIlifT8376W21UpCPu7tnVTNgONTeWS +YtUpuPqPx6ryJgaqtkXcrdKiwD0nP7e7m4ETIq29L7QpYNX91J95x8As9z9R +dToUcASS3TRmGWg+n7exSo+Cpst1GTmycpjzay7unBEFyQ/E1tcoy2FCWOmV +IGMK3Lq8qt+tl8O4rDlZFxMKxiX/jq42k0Ph1ndF4hso4MnUVEkKlMOL00OD +ARspMCq6XhL+TA4dDPbKHTOnYHNPy/zkKzn8Vf/hnvRWCmy5eM13t8thz+2w +9U9oezsG9sF7OeRd7Gf0y4ICs5PMiMjFBHIfOLrFxpqCxhWP7xgIEMjg3Gzo +p22f7fJqSohA9xYBRx8bCnY2xwt7SRK4q9F3/2FbCoLkftzZuI7Ao07vOnzs +KZh9kPjqlwaBbzN5wwdoh21d94XUIXChqEvD1oGCmMOeeqwNBF5QhkIVR7ru +8v1x699EYMqcYdgV2ok3rkYkmRN42zHX4Q/tGzUNr7gdCHwdl8mqcqJAbofP +l4ptBP69d02W4UxB9ucF4aNuBPK+blEMpV28SnfniDeB3+ffeCpto6DWL+NL +TQiB+f7xV3e5UGDx11Dk1EkCM9WzhLJptyR26ulEEljZ9vjGGO2+cv7I7DgC +H6nOTvpsp8+LbXa2+0UC+/zjyzJpjw5vqBdLJrAiTjq1l/bksmCRmDQCX5oy +0mAHBUczhfTZWQS+4BapDqT9U+feztkcAo2+/eW6STu83jSy8D6BJZ6ZrrW0 +eTwGs32KCYx1fto0QTv2+4l62RIC3aKkdgq50vlyTnSyq4zAW9bHFmvQTl5d +JHLxCYESTVebrGlLcrbqm1UT6P8CSD/atzaP7PzvJYH/FBqURNBm9Z2OfNRI +IPuuWfcV2ncDJHMCWwmsO6cpmUdbjftBvVIXgfpNT8Ie0aau2UwO9tHxvPPo +v2raBuvGRVIGCUz4MJLdRPvJs2h9uxECU2VXBHbQ3uQs675knMCeMO6dPbTr +xksjn30m0Pt17MFe2tanHXOOfyPQrDHgTjftduEv9Ro/6P0LO83VTnt77rnJ +sd8Ejr86c6aB9msjlmjmAoEjxg6aVbT3/PtYfwcvE0t4SN4HtMe8t7uv5Gdi +6s8j3HdoH/z5LfLVciaW3vBVSaRtdNhX/IMIEz+0nzh/gvbSif58Hkkm5qlW +puyi3b3HbiNTlonasQZOQDtnoKZ7A4uJVff/PpGlHexscNBdmYk1bLG+n/R+ +bGouWBSmykSlloScVtqDT6+qPtRjYs65AZcQ2gX6AtXtxkw00W1jb6Ydxgnf +PoVMvDvm2y9EW/y2X/Q6Kyby81Ua3Pj/+ZF+LWFhz0TFmYy/brSpZPtC321M +7Pl4OEyStl2MYW/WbiYuOax9N44+j4z/CgOe7aXf32/vxqb9OYTF82YfE5kG +Dxu+0Oc71n+ZumQwE7uiKiY203YZiqjRDaXXv/5S2ic6HxTcZnY4hTPxNENM ++BLtKqs3/1yMZeJtp0yzJjqfLtY6SBVcYKJ0zDC/L2139sui+iQmetVYXvlL +598v9eI+3ltMfOUkyEPQ1hKJ0jhJ0uPqv/2Qzm+u+Nna1EdM7Nuz/EyVHZ1P +PPvdHlUykafCNYhN+8CsY8y3F0w8U6r3VI2uF9m9CgN+/UxUaXO3G7ei4IjD +9aCYt0yscLu43I42NiznuzPKxJOBkENZUvCm8ofm4CQTF9u2+wTR9Uo849VZ +Zx4WWrXVWr80o+MpwZY5spSFVVJzc6K0qUSSvLSchQ2rmGc9ttDxjL7xukGC +hXfzlewnTOl4+RzU2qjKwn8e5j9+jfT61q0cVNvGwuADd5ao0/X4xy3pKG03 +Fn43+HDH1pCCmRWKCoa7Wdh8pM7xoAGd79OG+zfvY+HwKakv6XQ9H670/uF2 +moVb/IV0h+h+0GBVKhSbw8LI0TGZAbq/1D15Tl64z0K8fPZw81q6Hmk0OScX +s7C1cfDT4zUUPBUdupFezkKpo6kuyUr09w8IKD9sZmHnX1clBouufwc8YHiW +Hg9zqi6g+1vKG//hsd8sjHZPX3yE7n9X7I7GfFlgod8p12gduj9e1I5t/Mkv +jzVbWGqkKAXRf8jtKxjy2N279kCcEL0f8YuDTMzk0WqZcfYjHgpM8gsyr12T +R31G6ILgZxIGiPyMLTflseTpdd6UCRLCrt1Ln8mQR9Mp1xrGRxJKo3LTHO/J +47nh+cPKH+j+vyMzVeixPO4rridl35GwdvGVxLND9HwSCtI76PvO7pORIaoK ++E4xVuF3GQkPO0MjFNcr4Mr724+xS0lwtjwR3qmrgCfbLt0Of0hCku6xU1qg +gKf+5l37TZKwXPDQiUkHBQz3i+Pto+8vvOV7gnyPK+B4QOyUZhoJ30QsPV2q +FfCeouGI82kSeg+yWvfXKSDfV5HrKidJqHr5GyKaFHD4ivLs/AkSEsPy5e52 +K+AgtufcCiZBc1jw7a8JBdStnRZ+foCEQPLfXbdEFVEy5qr7dVcSJuy27Rzd +q4gBS7bz3NAmYTTB0+XIEiWMQZ0sdfr+GDihytIUVMJFGy5U5dH3yznzX1++ +rFTCgFxrJbnXHBDgSYrZJ62E1/97X7+0hwOaoTUlnmpKeLKuP7muiQOnfZRE +7ZyU8Ahvx5aZUg6Ib/j877oMJbRy//ZE5AIHLL4et3ivp4xcbcJ897Q48Nl7 +6dGSiDV4h0u/U7CsiP4/keA+V70WBYbMI7MnCkCkWeki56sKSlnvsEpn5YNM +bLG9np4qSoY6aT1k3YPUdYYrRf3UkDFcUqzNzoMG6Y2605fVkV3rHJLnlQNG +MtWJGt0a+O/0PN7yuQNCPLeDvaI18Wyag3tXahYwouRMXJXW46ZPp3HhSAbw +K7o/cqxbj+PTpV0OczdBnS1VfHyXFh6+av+g6WMqHBkUqbHk0kZ5YY+0U11X +4et0wjaLVG3UW7skpUAjGcw1Xt6wUNNB2z8rC6+1JMLTaeM/cy062Pq+Vqd/ +MgECVbX623x0cczlgNFa7jhgT+7tdOXXQ6lLp7179GNgi4KkzfLbejjWZut+ +TSIa1kSeP1Gtr4/Rm1P4KurCQcXH8Jlivz7GGQ+O78oPBZ+n/mdKDhtgQVOS +7qH4Y/Ass3Pvt1WG+Ldbpqzo4WGYubswp1FqiA1wqfMafwB4K+bz37AxQmnF +iMHpeT8Ie+GxX8neCM967Cns+egHiT4ijZSjEV7leTlT3+UHj3NCExq3GyGH +rGjqK/QDMaWtK+a9jHCL7+VnOR5+8FLpvZhniBHqtx28P1btCypr5AilDCO0 +HV02OHDVB76pJOtRU0Y4oBsr3OrtDb1NuEV02gj3f037qeHsDVWBk07Bs0Z4 +RPV5w43N3nCRsjis99sIC52/SlxW9AYVI66CCh5jfMHrXLAwtgf2WAQwa8SN +cfr6ruNvA/dAp5+5YKeJMa4h9NsiznhBWfafodlYY7xmfFP/583doGcaPGcZ +b4z15ZzPTtG74eHQZ8HMC8bY8kC1/bn/bqAYg/qWScYo6HmUt1N3NxSkVl1I +v2mM8j86hlpbPSAzIcbQvMgYR3b575MX8IC44BWXUzuMcfZhS+1InDu4bZZH +Y4YJvutPtcmodIX5zqVCNYQJDu+X3eqb7QqZPpMDlvImqLjlcTlccIUPZ8uP +u60xwQ3bmtvW7naFI/V2xaFaJnhwpdA/fTyucN72FKPMjB5nnN6fZr8DKnZ0 +/dU5ZILdxQqHds25wOqAc+XqVSZIZQ9tMD/uDBcXfHXjq03wRNPAuis+zsCd +ZEaO1ZqgKpdY8aSTM0w8Wnwvs94E5fM2bmvSdIYKrjOpIh0mOPYsXnXtJydw +uxJ5/Md7E/y8elGw1x4nSK0M1X26jI08UcHZiW6OsErgIGmznY1PMkZJySB7 +yDY9HTblykZLA1X+3t32oHX6ommyOxu1RKwrc+zswXaK09XrxUaVD//xHtSw +h7Pds7+8D7LxS+EAj9lbO/h5O2JTWBQb9xkdztvz3hb6jZM7cvPZSGSKmQry +2YD/sew0iyI2Kon+bPk5bg0/ih76fOaw0eeqSshCozWIsHrn1j9io/Eru5du +SdZgtVRW5kkVG+MqpjeYE9bwuDN3b0cXGycbv276gFZgKVSmFtLLxsS8dr0D +ilbQa17/Q3KAjWvKswT4BaxgpuJTrMc7NpqJ1fJe6rAEtSzNwo8TbFxY+XZN +tZ8lPO7fGJLwhY06VMoiQRtLsBRzAo0pNobYjhOBWpbge+5YW/AsG+tcosfC +5i1gpursDYmfbJwZ4dqnOGIB0b9TvCt+szEgL+r92CsLWKlzT3XXPBvbOowt +q4ssID2gYnZhgY1B/EfOlFyxgP8BnVgkmg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07168343210001775}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.07168343210001775}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994015217116832*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"99ece67d-da33-4b8a-8ff0-df553f344485"] }, 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:eJwV13lYTV0XAPBUoiQaNKnbubeJNGmerrWI0jyKkpQ0GEpIFJpeUQopFNJA +A5ruOaLJkIo0vs0j0UAJiUqm3r7z/XWe37P3eZ6z195rrX2Yew45+nBzcXER +i7i4/v/8MVhfqxCfvSHxQ4aI765NGzrTJUM39kaDRXmPaFYvAbjq3z2SvUnw +rqLSO6xXE0Ls7/fw9N4G3/S16z17EYQnJZJ+9VAgsGh5kX6vPbx9bHtopqca +viqn1j3s8QQzhYk333rawfLMob1Pu4LgV4/+1ameYdg426r8qTkSakzzsttu +T0O9R/py0uMyyLwt/7BHdR74CibqZU9eB7GDu+8vMeVBZ/OhVWpxmZC03qzS +dttSnA9+O8vemw19qZpV31Yux86sTZf/kHkQnx3xL7eUMPaWFu9THr8PEldG +4pJviSIj13uIK7cQJNc9PPMzVxRNwpWHDxQXgnT12YhdHFH0q21sbC0rBMbU +2mPKNaLYcf+Hc2xjIShaB3lWjotilokwo2iqELR55/VGtMXwug9XQodhEdgF +i49qNYghj8vrreF1RXDO2WJD+49VmLVbLk+2tRikS1qkuReJo9ddLs/s3mIo +EnWeW79MHPMvONyTHyqG7nYPzmU5caRGBz4u+14MCg7BLIet4vgo/EHMc34O +VNtk8LVeF8ddM6qJMSocmDebbWk2kcDYmoaODfs4kJgblj9vJoFBvv4RAgEc +UODjilVzkECvDnf/9iAOWL8Q2HjBRwIjZG2+uZzgwA1T4oH1RQmsWcXp1TrH +AQO0Sml8K4GRzVuadbM5cNQwa3d9tCSu/sRZ5TfAActMoRmrBEkM8N+UETXI +AdaSU7EtVyVRUsf6TeoQB1o7XciOu5LoY50Q8mSMA+pBgjyDLZI4HOko83aa +A+O5x3O/S0sh02+p2pllJLiL2X5Z/UAKn/GHum0zIEH7ZGVU+mMpvJx0bR+f +MQkCw2vEmS+l8MBzM7USNgnlxTyg1CeF6mV57YtNSRC3Kk/UXJBCrpmslCgb +ElqjFHS2WEnjaFSk3IAXCZu//g4LHJHGZL8gXolYEkK3XlF5/lka85+J+zud +J6EoS61f9Ic0Bg/r5CQkkCDp7GlYvnQ1loZfK5hNJOFz2Ys5HvXVyMflPJt1 +nYTk6MTg6ydW47tTr9O875MwvEopsHa5DN60LRtNqCdB4tAzWQkJGexJPT26 +t5EE61c7mvcRMigV7v3CsJmER2Hxqiu0ZVDo+/N1/a0knH87NeG6QwbNz9sn +z/aQoHWv0u/rbRlUdWkQS3lPQpSJg5e0gSyGlNuYn/uPhK0e6d/1N8nihXKF +m6u5KBCK/PTPNmtZbPxUalewiIK0mpjcRE9ZXAWKb6p5KSizrPjEFyeLB3pf +p9QKUDC1Qz5kuk8WxT5e4lstTkFpWNAS4VFZnJqjco9JUBCe9iRVfVIW+0Y9 +OU2SFAi+2165j5uBml1l3EGrKVD2S+B6p8LAu9slS+IJCjyOzZ5vOslARS/D +DgkVChRTNslMxDDQUUF0m+E6io7fpcIlifT8376W21UpCPu7tnVTNgONTeWS +YtUpuPqPx6ryJgaqtkXcrdKiwD0nP7e7m4ETIq29L7QpYNX91J95x8As9z9R +dToUcASS3TRmGWg+n7exSo+Cpst1GTmycpjzay7unBEFyQ/E1tcoy2FCWOmV +IGMK3Lq8qt+tl8O4rDlZFxMKxiX/jq42k0Ph1ndF4hso4MnUVEkKlMOL00OD +ARspMCq6XhL+TA4dDPbKHTOnYHNPy/zkKzn8Vf/hnvRWCmy5eM13t8thz+2w +9U9oezsG9sF7OeRd7Gf0y4ICs5PMiMjFBHIfOLrFxpqCxhWP7xgIEMjg3Gzo +p22f7fJqSohA9xYBRx8bCnY2xwt7SRK4q9F3/2FbCoLkftzZuI7Ao07vOnzs +KZh9kPjqlwaBbzN5wwdoh21d94XUIXChqEvD1oGCmMOeeqwNBF5QhkIVR7ru +8v1x699EYMqcYdgV2ok3rkYkmRN42zHX4Q/tGzUNr7gdCHwdl8mqcqJAbofP +l4ptBP69d02W4UxB9ucF4aNuBPK+blEMpV28SnfniDeB3+ffeCpto6DWL+NL +TQiB+f7xV3e5UGDx11Dk1EkCM9WzhLJptyR26ulEEljZ9vjGGO2+cv7I7DgC +H6nOTvpsp8+LbXa2+0UC+/zjyzJpjw5vqBdLJrAiTjq1l/bksmCRmDQCX5oy +0mAHBUczhfTZWQS+4BapDqT9U+feztkcAo2+/eW6STu83jSy8D6BJZ6ZrrW0 +eTwGs32KCYx1fto0QTv2+4l62RIC3aKkdgq50vlyTnSyq4zAW9bHFmvQTl5d +JHLxCYESTVebrGlLcrbqm1UT6P8CSD/atzaP7PzvJYH/FBqURNBm9Z2OfNRI +IPuuWfcV2ncDJHMCWwmsO6cpmUdbjftBvVIXgfpNT8Ie0aau2UwO9tHxvPPo +v2raBuvGRVIGCUz4MJLdRPvJs2h9uxECU2VXBHbQ3uQs675knMCeMO6dPbTr +xksjn30m0Pt17MFe2tanHXOOfyPQrDHgTjftduEv9Ro/6P0LO83VTnt77rnJ +sd8Ejr86c6aB9msjlmjmAoEjxg6aVbT3/PtYfwcvE0t4SN4HtMe8t7uv5Gdi +6s8j3HdoH/z5LfLVciaW3vBVSaRtdNhX/IMIEz+0nzh/gvbSif58Hkkm5qlW +puyi3b3HbiNTlonasQZOQDtnoKZ7A4uJVff/PpGlHexscNBdmYk1bLG+n/R+ +bGouWBSmykSlloScVtqDT6+qPtRjYs65AZcQ2gX6AtXtxkw00W1jb6Ydxgnf +PoVMvDvm2y9EW/y2X/Q6Kyby81Ua3Pj/+ZF+LWFhz0TFmYy/brSpZPtC321M +7Pl4OEyStl2MYW/WbiYuOax9N44+j4z/CgOe7aXf32/vxqb9OYTF82YfE5kG +Dxu+0Oc71n+ZumQwE7uiKiY203YZiqjRDaXXv/5S2ic6HxTcZnY4hTPxNENM ++BLtKqs3/1yMZeJtp0yzJjqfLtY6SBVcYKJ0zDC/L2139sui+iQmetVYXvlL +598v9eI+3ltMfOUkyEPQ1hKJ0jhJ0uPqv/2Qzm+u+Nna1EdM7Nuz/EyVHZ1P +PPvdHlUykafCNYhN+8CsY8y3F0w8U6r3VI2uF9m9CgN+/UxUaXO3G7ei4IjD +9aCYt0yscLu43I42NiznuzPKxJOBkENZUvCm8ofm4CQTF9u2+wTR9Uo849VZ +Zx4WWrXVWr80o+MpwZY5spSFVVJzc6K0qUSSvLSchQ2rmGc9ttDxjL7xukGC +hXfzlewnTOl4+RzU2qjKwn8e5j9+jfT61q0cVNvGwuADd5ao0/X4xy3pKG03 +Fn43+HDH1pCCmRWKCoa7Wdh8pM7xoAGd79OG+zfvY+HwKakv6XQ9H670/uF2 +moVb/IV0h+h+0GBVKhSbw8LI0TGZAbq/1D15Tl64z0K8fPZw81q6Hmk0OScX +s7C1cfDT4zUUPBUdupFezkKpo6kuyUr09w8IKD9sZmHnX1clBouufwc8YHiW +Hg9zqi6g+1vKG//hsd8sjHZPX3yE7n9X7I7GfFlgod8p12gduj9e1I5t/Mkv +jzVbWGqkKAXRf8jtKxjy2N279kCcEL0f8YuDTMzk0WqZcfYjHgpM8gsyr12T +R31G6ILgZxIGiPyMLTflseTpdd6UCRLCrt1Ln8mQR9Mp1xrGRxJKo3LTHO/J +47nh+cPKH+j+vyMzVeixPO4rridl35GwdvGVxLND9HwSCtI76PvO7pORIaoK ++E4xVuF3GQkPO0MjFNcr4Mr724+xS0lwtjwR3qmrgCfbLt0Of0hCku6xU1qg +gKf+5l37TZKwXPDQiUkHBQz3i+Pto+8vvOV7gnyPK+B4QOyUZhoJ30QsPV2q +FfCeouGI82kSeg+yWvfXKSDfV5HrKidJqHr5GyKaFHD4ivLs/AkSEsPy5e52 +K+AgtufcCiZBc1jw7a8JBdStnRZ+foCEQPLfXbdEFVEy5qr7dVcSJuy27Rzd +q4gBS7bz3NAmYTTB0+XIEiWMQZ0sdfr+GDihytIUVMJFGy5U5dH3yznzX1++ +rFTCgFxrJbnXHBDgSYrZJ62E1/97X7+0hwOaoTUlnmpKeLKuP7muiQOnfZRE +7ZyU8Ahvx5aZUg6Ib/j877oMJbRy//ZE5AIHLL4et3ivp4xcbcJ897Q48Nl7 +6dGSiDV4h0u/U7CsiP4/keA+V70WBYbMI7MnCkCkWeki56sKSlnvsEpn5YNM +bLG9np4qSoY6aT1k3YPUdYYrRf3UkDFcUqzNzoMG6Y2605fVkV3rHJLnlQNG +MtWJGt0a+O/0PN7yuQNCPLeDvaI18Wyag3tXahYwouRMXJXW46ZPp3HhSAbw +K7o/cqxbj+PTpV0OczdBnS1VfHyXFh6+av+g6WMqHBkUqbHk0kZ5YY+0U11X +4et0wjaLVG3UW7skpUAjGcw1Xt6wUNNB2z8rC6+1JMLTaeM/cy062Pq+Vqd/ +MgECVbX623x0cczlgNFa7jhgT+7tdOXXQ6lLp7179GNgi4KkzfLbejjWZut+ +TSIa1kSeP1Gtr4/Rm1P4KurCQcXH8Jlivz7GGQ+O78oPBZ+n/mdKDhtgQVOS +7qH4Y/Ass3Pvt1WG+Ldbpqzo4WGYubswp1FqiA1wqfMafwB4K+bz37AxQmnF +iMHpeT8Ie+GxX8neCM967Cns+egHiT4ijZSjEV7leTlT3+UHj3NCExq3GyGH +rGjqK/QDMaWtK+a9jHCL7+VnOR5+8FLpvZhniBHqtx28P1btCypr5AilDCO0 +HV02OHDVB76pJOtRU0Y4oBsr3OrtDb1NuEV02gj3f037qeHsDVWBk07Bs0Z4 +RPV5w43N3nCRsjis99sIC52/SlxW9AYVI66CCh5jfMHrXLAwtgf2WAQwa8SN +cfr6ruNvA/dAp5+5YKeJMa4h9NsiznhBWfafodlYY7xmfFP/583doGcaPGcZ +b4z15ZzPTtG74eHQZ8HMC8bY8kC1/bn/bqAYg/qWScYo6HmUt1N3NxSkVl1I +v2mM8j86hlpbPSAzIcbQvMgYR3b575MX8IC44BWXUzuMcfZhS+1InDu4bZZH +Y4YJvutPtcmodIX5zqVCNYQJDu+X3eqb7QqZPpMDlvImqLjlcTlccIUPZ8uP +u60xwQ3bmtvW7naFI/V2xaFaJnhwpdA/fTyucN72FKPMjB5nnN6fZr8DKnZ0 +/dU5ZILdxQqHds25wOqAc+XqVSZIZQ9tMD/uDBcXfHXjq03wRNPAuis+zsCd +ZEaO1ZqgKpdY8aSTM0w8Wnwvs94E5fM2bmvSdIYKrjOpIh0mOPYsXnXtJydw +uxJ5/Md7E/y8elGw1x4nSK0M1X26jI08UcHZiW6OsErgIGmznY1PMkZJySB7 +yDY9HTblykZLA1X+3t32oHX6ommyOxu1RKwrc+zswXaK09XrxUaVD//xHtSw +h7Pds7+8D7LxS+EAj9lbO/h5O2JTWBQb9xkdztvz3hb6jZM7cvPZSGSKmQry +2YD/sew0iyI2Kon+bPk5bg0/ih76fOaw0eeqSshCozWIsHrn1j9io/Eru5du +SdZgtVRW5kkVG+MqpjeYE9bwuDN3b0cXGycbv276gFZgKVSmFtLLxsS8dr0D +ilbQa17/Q3KAjWvKswT4BaxgpuJTrMc7NpqJ1fJe6rAEtSzNwo8TbFxY+XZN +tZ8lPO7fGJLwhY06VMoiQRtLsBRzAo0pNobYjhOBWpbge+5YW/AsG+tcosfC +5i1gpursDYmfbJwZ4dqnOGIB0b9TvCt+szEgL+r92CsLWKlzT3XXPBvbOowt +q4ssID2gYnZhgY1B/EfOlFyxgP8BnVgkmg== + "]]}, + 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:eJwV13lYTV0XAPBUoiQaNKnbubeJNGmerrWI0jyKkpQ0GEpIFJpeUQopFNJA +A5ruOaLJkIo0vs0j0UAJiUqm3r7z/XWe37P3eZ6z195rrX2Yew45+nBzcXER +i7i4/v/8MVhfqxCfvSHxQ4aI765NGzrTJUM39kaDRXmPaFYvAbjq3z2SvUnw +rqLSO6xXE0Ls7/fw9N4G3/S16z17EYQnJZJ+9VAgsGh5kX6vPbx9bHtopqca +viqn1j3s8QQzhYk333rawfLMob1Pu4LgV4/+1ameYdg426r8qTkSakzzsttu +T0O9R/py0uMyyLwt/7BHdR74CibqZU9eB7GDu+8vMeVBZ/OhVWpxmZC03qzS +dttSnA9+O8vemw19qZpV31Yux86sTZf/kHkQnx3xL7eUMPaWFu9THr8PEldG +4pJviSIj13uIK7cQJNc9PPMzVxRNwpWHDxQXgnT12YhdHFH0q21sbC0rBMbU +2mPKNaLYcf+Hc2xjIShaB3lWjotilokwo2iqELR55/VGtMXwug9XQodhEdgF +i49qNYghj8vrreF1RXDO2WJD+49VmLVbLk+2tRikS1qkuReJo9ddLs/s3mIo +EnWeW79MHPMvONyTHyqG7nYPzmU5caRGBz4u+14MCg7BLIet4vgo/EHMc34O +VNtk8LVeF8ddM6qJMSocmDebbWk2kcDYmoaODfs4kJgblj9vJoFBvv4RAgEc +UODjilVzkECvDnf/9iAOWL8Q2HjBRwIjZG2+uZzgwA1T4oH1RQmsWcXp1TrH +AQO0Sml8K4GRzVuadbM5cNQwa3d9tCSu/sRZ5TfAActMoRmrBEkM8N+UETXI +AdaSU7EtVyVRUsf6TeoQB1o7XciOu5LoY50Q8mSMA+pBgjyDLZI4HOko83aa +A+O5x3O/S0sh02+p2pllJLiL2X5Z/UAKn/GHum0zIEH7ZGVU+mMpvJx0bR+f +MQkCw2vEmS+l8MBzM7USNgnlxTyg1CeF6mV57YtNSRC3Kk/UXJBCrpmslCgb +ElqjFHS2WEnjaFSk3IAXCZu//g4LHJHGZL8gXolYEkK3XlF5/lka85+J+zud +J6EoS61f9Ic0Bg/r5CQkkCDp7GlYvnQ1loZfK5hNJOFz2Ys5HvXVyMflPJt1 +nYTk6MTg6ydW47tTr9O875MwvEopsHa5DN60LRtNqCdB4tAzWQkJGexJPT26 +t5EE61c7mvcRMigV7v3CsJmER2Hxqiu0ZVDo+/N1/a0knH87NeG6QwbNz9sn +z/aQoHWv0u/rbRlUdWkQS3lPQpSJg5e0gSyGlNuYn/uPhK0e6d/1N8nihXKF +m6u5KBCK/PTPNmtZbPxUalewiIK0mpjcRE9ZXAWKb6p5KSizrPjEFyeLB3pf +p9QKUDC1Qz5kuk8WxT5e4lstTkFpWNAS4VFZnJqjco9JUBCe9iRVfVIW+0Y9 +OU2SFAi+2165j5uBml1l3EGrKVD2S+B6p8LAu9slS+IJCjyOzZ5vOslARS/D +DgkVChRTNslMxDDQUUF0m+E6io7fpcIlifT8376W21UpCPu7tnVTNgONTeWS +YtUpuPqPx6ryJgaqtkXcrdKiwD0nP7e7m4ETIq29L7QpYNX91J95x8As9z9R +dToUcASS3TRmGWg+n7exSo+Cpst1GTmycpjzay7unBEFyQ/E1tcoy2FCWOmV +IGMK3Lq8qt+tl8O4rDlZFxMKxiX/jq42k0Ph1ndF4hso4MnUVEkKlMOL00OD +ARspMCq6XhL+TA4dDPbKHTOnYHNPy/zkKzn8Vf/hnvRWCmy5eM13t8thz+2w +9U9oezsG9sF7OeRd7Gf0y4ICs5PMiMjFBHIfOLrFxpqCxhWP7xgIEMjg3Gzo +p22f7fJqSohA9xYBRx8bCnY2xwt7SRK4q9F3/2FbCoLkftzZuI7Ao07vOnzs +KZh9kPjqlwaBbzN5wwdoh21d94XUIXChqEvD1oGCmMOeeqwNBF5QhkIVR7ru +8v1x699EYMqcYdgV2ok3rkYkmRN42zHX4Q/tGzUNr7gdCHwdl8mqcqJAbofP +l4ptBP69d02W4UxB9ucF4aNuBPK+blEMpV28SnfniDeB3+ffeCpto6DWL+NL +TQiB+f7xV3e5UGDx11Dk1EkCM9WzhLJptyR26ulEEljZ9vjGGO2+cv7I7DgC +H6nOTvpsp8+LbXa2+0UC+/zjyzJpjw5vqBdLJrAiTjq1l/bksmCRmDQCX5oy +0mAHBUczhfTZWQS+4BapDqT9U+feztkcAo2+/eW6STu83jSy8D6BJZ6ZrrW0 +eTwGs32KCYx1fto0QTv2+4l62RIC3aKkdgq50vlyTnSyq4zAW9bHFmvQTl5d +JHLxCYESTVebrGlLcrbqm1UT6P8CSD/atzaP7PzvJYH/FBqURNBm9Z2OfNRI +IPuuWfcV2ncDJHMCWwmsO6cpmUdbjftBvVIXgfpNT8Ie0aau2UwO9tHxvPPo +v2raBuvGRVIGCUz4MJLdRPvJs2h9uxECU2VXBHbQ3uQs675knMCeMO6dPbTr +xksjn30m0Pt17MFe2tanHXOOfyPQrDHgTjftduEv9Ro/6P0LO83VTnt77rnJ +sd8Ejr86c6aB9msjlmjmAoEjxg6aVbT3/PtYfwcvE0t4SN4HtMe8t7uv5Gdi +6s8j3HdoH/z5LfLVciaW3vBVSaRtdNhX/IMIEz+0nzh/gvbSif58Hkkm5qlW +puyi3b3HbiNTlonasQZOQDtnoKZ7A4uJVff/PpGlHexscNBdmYk1bLG+n/R+ +bGouWBSmykSlloScVtqDT6+qPtRjYs65AZcQ2gX6AtXtxkw00W1jb6Ydxgnf +PoVMvDvm2y9EW/y2X/Q6Kyby81Ua3Pj/+ZF+LWFhz0TFmYy/brSpZPtC321M +7Pl4OEyStl2MYW/WbiYuOax9N44+j4z/CgOe7aXf32/vxqb9OYTF82YfE5kG +Dxu+0Oc71n+ZumQwE7uiKiY203YZiqjRDaXXv/5S2ic6HxTcZnY4hTPxNENM ++BLtKqs3/1yMZeJtp0yzJjqfLtY6SBVcYKJ0zDC/L2139sui+iQmetVYXvlL +598v9eI+3ltMfOUkyEPQ1hKJ0jhJ0uPqv/2Qzm+u+Nna1EdM7Nuz/EyVHZ1P +PPvdHlUykafCNYhN+8CsY8y3F0w8U6r3VI2uF9m9CgN+/UxUaXO3G7ei4IjD +9aCYt0yscLu43I42NiznuzPKxJOBkENZUvCm8ofm4CQTF9u2+wTR9Uo849VZ +Zx4WWrXVWr80o+MpwZY5spSFVVJzc6K0qUSSvLSchQ2rmGc9ttDxjL7xukGC +hXfzlewnTOl4+RzU2qjKwn8e5j9+jfT61q0cVNvGwuADd5ao0/X4xy3pKG03 +Fn43+HDH1pCCmRWKCoa7Wdh8pM7xoAGd79OG+zfvY+HwKakv6XQ9H670/uF2 +moVb/IV0h+h+0GBVKhSbw8LI0TGZAbq/1D15Tl64z0K8fPZw81q6Hmk0OScX +s7C1cfDT4zUUPBUdupFezkKpo6kuyUr09w8IKD9sZmHnX1clBouufwc8YHiW +Hg9zqi6g+1vKG//hsd8sjHZPX3yE7n9X7I7GfFlgod8p12gduj9e1I5t/Mkv +jzVbWGqkKAXRf8jtKxjy2N279kCcEL0f8YuDTMzk0WqZcfYjHgpM8gsyr12T +R31G6ILgZxIGiPyMLTflseTpdd6UCRLCrt1Ln8mQR9Mp1xrGRxJKo3LTHO/J +47nh+cPKH+j+vyMzVeixPO4rridl35GwdvGVxLND9HwSCtI76PvO7pORIaoK ++E4xVuF3GQkPO0MjFNcr4Mr724+xS0lwtjwR3qmrgCfbLt0Of0hCku6xU1qg +gKf+5l37TZKwXPDQiUkHBQz3i+Pto+8vvOV7gnyPK+B4QOyUZhoJ30QsPV2q +FfCeouGI82kSeg+yWvfXKSDfV5HrKidJqHr5GyKaFHD4ivLs/AkSEsPy5e52 +K+AgtufcCiZBc1jw7a8JBdStnRZ+foCEQPLfXbdEFVEy5qr7dVcSJuy27Rzd +q4gBS7bz3NAmYTTB0+XIEiWMQZ0sdfr+GDihytIUVMJFGy5U5dH3yznzX1++ +rFTCgFxrJbnXHBDgSYrZJ62E1/97X7+0hwOaoTUlnmpKeLKuP7muiQOnfZRE +7ZyU8Ahvx5aZUg6Ib/j877oMJbRy//ZE5AIHLL4et3ivp4xcbcJ897Q48Nl7 +6dGSiDV4h0u/U7CsiP4/keA+V70WBYbMI7MnCkCkWeki56sKSlnvsEpn5YNM +bLG9np4qSoY6aT1k3YPUdYYrRf3UkDFcUqzNzoMG6Y2605fVkV3rHJLnlQNG +MtWJGt0a+O/0PN7yuQNCPLeDvaI18Wyag3tXahYwouRMXJXW46ZPp3HhSAbw +K7o/cqxbj+PTpV0OczdBnS1VfHyXFh6+av+g6WMqHBkUqbHk0kZ5YY+0U11X +4et0wjaLVG3UW7skpUAjGcw1Xt6wUNNB2z8rC6+1JMLTaeM/cy062Pq+Vqd/ +MgECVbX623x0cczlgNFa7jhgT+7tdOXXQ6lLp7179GNgi4KkzfLbejjWZut+ +TSIa1kSeP1Gtr4/Rm1P4KurCQcXH8Jlivz7GGQ+O78oPBZ+n/mdKDhtgQVOS +7qH4Y/Ass3Pvt1WG+Ldbpqzo4WGYubswp1FqiA1wqfMafwB4K+bz37AxQmnF +iMHpeT8Ie+GxX8neCM967Cns+egHiT4ijZSjEV7leTlT3+UHj3NCExq3GyGH +rGjqK/QDMaWtK+a9jHCL7+VnOR5+8FLpvZhniBHqtx28P1btCypr5AilDCO0 +HV02OHDVB76pJOtRU0Y4oBsr3OrtDb1NuEV02gj3f037qeHsDVWBk07Bs0Z4 +RPV5w43N3nCRsjis99sIC52/SlxW9AYVI66CCh5jfMHrXLAwtgf2WAQwa8SN +cfr6ruNvA/dAp5+5YKeJMa4h9NsiznhBWfafodlYY7xmfFP/583doGcaPGcZ +b4z15ZzPTtG74eHQZ8HMC8bY8kC1/bn/bqAYg/qWScYo6HmUt1N3NxSkVl1I +v2mM8j86hlpbPSAzIcbQvMgYR3b575MX8IC44BWXUzuMcfZhS+1InDu4bZZH +Y4YJvutPtcmodIX5zqVCNYQJDu+X3eqb7QqZPpMDlvImqLjlcTlccIUPZ8uP +u60xwQ3bmtvW7naFI/V2xaFaJnhwpdA/fTyucN72FKPMjB5nnN6fZr8DKnZ0 +/dU5ZILdxQqHds25wOqAc+XqVSZIZQ9tMD/uDBcXfHXjq03wRNPAuis+zsCd +ZEaO1ZqgKpdY8aSTM0w8Wnwvs94E5fM2bmvSdIYKrjOpIh0mOPYsXnXtJydw +uxJ5/Md7E/y8elGw1x4nSK0M1X26jI08UcHZiW6OsErgIGmznY1PMkZJySB7 +yDY9HTblykZLA1X+3t32oHX6ommyOxu1RKwrc+zswXaK09XrxUaVD//xHtSw +h7Pds7+8D7LxS+EAj9lbO/h5O2JTWBQb9xkdztvz3hb6jZM7cvPZSGSKmQry +2YD/sew0iyI2Kon+bPk5bg0/ih76fOaw0eeqSshCozWIsHrn1j9io/Eru5du +SdZgtVRW5kkVG+MqpjeYE9bwuDN3b0cXGycbv276gFZgKVSmFtLLxsS8dr0D +ilbQa17/Q3KAjWvKswT4BaxgpuJTrMc7NpqJ1fJe6rAEtSzNwo8TbFxY+XZN +tZ8lPO7fGJLwhY06VMoiQRtLsBRzAo0pNobYjhOBWpbge+5YW/AsG+tcosfC +5i1gpursDYmfbJwZ4dqnOGIB0b9TvCt+szEgL+r92CsLWKlzT3XXPBvbOowt +q4ssID2gYnZhgY1B/EfOlFyxgP8BnVgkmg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07168343210001775}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.07168343210001775}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJwV13lYTV0XAPBUoiQaNKnbubeJNGmerrWI0jyKkpQ0GEpIFJpeUQopFNJA +A5ruOaLJkIo0vs0j0UAJiUqm3r7z/XWe37P3eZ6z195rrX2Yew45+nBzcXER +i7i4/v/8MVhfqxCfvSHxQ4aI765NGzrTJUM39kaDRXmPaFYvAbjq3z2SvUnw +rqLSO6xXE0Ls7/fw9N4G3/S16z17EYQnJZJ+9VAgsGh5kX6vPbx9bHtopqca +viqn1j3s8QQzhYk333rawfLMob1Pu4LgV4/+1ameYdg426r8qTkSakzzsttu +T0O9R/py0uMyyLwt/7BHdR74CibqZU9eB7GDu+8vMeVBZ/OhVWpxmZC03qzS +dttSnA9+O8vemw19qZpV31Yux86sTZf/kHkQnx3xL7eUMPaWFu9THr8PEldG +4pJviSIj13uIK7cQJNc9PPMzVxRNwpWHDxQXgnT12YhdHFH0q21sbC0rBMbU +2mPKNaLYcf+Hc2xjIShaB3lWjotilokwo2iqELR55/VGtMXwug9XQodhEdgF +i49qNYghj8vrreF1RXDO2WJD+49VmLVbLk+2tRikS1qkuReJo9ddLs/s3mIo +EnWeW79MHPMvONyTHyqG7nYPzmU5caRGBz4u+14MCg7BLIet4vgo/EHMc34O +VNtk8LVeF8ddM6qJMSocmDebbWk2kcDYmoaODfs4kJgblj9vJoFBvv4RAgEc +UODjilVzkECvDnf/9iAOWL8Q2HjBRwIjZG2+uZzgwA1T4oH1RQmsWcXp1TrH +AQO0Sml8K4GRzVuadbM5cNQwa3d9tCSu/sRZ5TfAActMoRmrBEkM8N+UETXI +AdaSU7EtVyVRUsf6TeoQB1o7XciOu5LoY50Q8mSMA+pBgjyDLZI4HOko83aa +A+O5x3O/S0sh02+p2pllJLiL2X5Z/UAKn/GHum0zIEH7ZGVU+mMpvJx0bR+f +MQkCw2vEmS+l8MBzM7USNgnlxTyg1CeF6mV57YtNSRC3Kk/UXJBCrpmslCgb +ElqjFHS2WEnjaFSk3IAXCZu//g4LHJHGZL8gXolYEkK3XlF5/lka85+J+zud +J6EoS61f9Ic0Bg/r5CQkkCDp7GlYvnQ1loZfK5hNJOFz2Ys5HvXVyMflPJt1 +nYTk6MTg6ydW47tTr9O875MwvEopsHa5DN60LRtNqCdB4tAzWQkJGexJPT26 +t5EE61c7mvcRMigV7v3CsJmER2Hxqiu0ZVDo+/N1/a0knH87NeG6QwbNz9sn +z/aQoHWv0u/rbRlUdWkQS3lPQpSJg5e0gSyGlNuYn/uPhK0e6d/1N8nihXKF +m6u5KBCK/PTPNmtZbPxUalewiIK0mpjcRE9ZXAWKb6p5KSizrPjEFyeLB3pf +p9QKUDC1Qz5kuk8WxT5e4lstTkFpWNAS4VFZnJqjco9JUBCe9iRVfVIW+0Y9 +OU2SFAi+2165j5uBml1l3EGrKVD2S+B6p8LAu9slS+IJCjyOzZ5vOslARS/D +DgkVChRTNslMxDDQUUF0m+E6io7fpcIlifT8376W21UpCPu7tnVTNgONTeWS +YtUpuPqPx6ryJgaqtkXcrdKiwD0nP7e7m4ETIq29L7QpYNX91J95x8As9z9R +dToUcASS3TRmGWg+n7exSo+Cpst1GTmycpjzay7unBEFyQ/E1tcoy2FCWOmV +IGMK3Lq8qt+tl8O4rDlZFxMKxiX/jq42k0Ph1ndF4hso4MnUVEkKlMOL00OD +ARspMCq6XhL+TA4dDPbKHTOnYHNPy/zkKzn8Vf/hnvRWCmy5eM13t8thz+2w +9U9oezsG9sF7OeRd7Gf0y4ICs5PMiMjFBHIfOLrFxpqCxhWP7xgIEMjg3Gzo +p22f7fJqSohA9xYBRx8bCnY2xwt7SRK4q9F3/2FbCoLkftzZuI7Ao07vOnzs +KZh9kPjqlwaBbzN5wwdoh21d94XUIXChqEvD1oGCmMOeeqwNBF5QhkIVR7ru +8v1x699EYMqcYdgV2ok3rkYkmRN42zHX4Q/tGzUNr7gdCHwdl8mqcqJAbofP +l4ptBP69d02W4UxB9ucF4aNuBPK+blEMpV28SnfniDeB3+ffeCpto6DWL+NL +TQiB+f7xV3e5UGDx11Dk1EkCM9WzhLJptyR26ulEEljZ9vjGGO2+cv7I7DgC +H6nOTvpsp8+LbXa2+0UC+/zjyzJpjw5vqBdLJrAiTjq1l/bksmCRmDQCX5oy +0mAHBUczhfTZWQS+4BapDqT9U+feztkcAo2+/eW6STu83jSy8D6BJZ6ZrrW0 +eTwGs32KCYx1fto0QTv2+4l62RIC3aKkdgq50vlyTnSyq4zAW9bHFmvQTl5d +JHLxCYESTVebrGlLcrbqm1UT6P8CSD/atzaP7PzvJYH/FBqURNBm9Z2OfNRI +IPuuWfcV2ncDJHMCWwmsO6cpmUdbjftBvVIXgfpNT8Ie0aau2UwO9tHxvPPo +v2raBuvGRVIGCUz4MJLdRPvJs2h9uxECU2VXBHbQ3uQs675knMCeMO6dPbTr +xksjn30m0Pt17MFe2tanHXOOfyPQrDHgTjftduEv9Ro/6P0LO83VTnt77rnJ +sd8Ejr86c6aB9msjlmjmAoEjxg6aVbT3/PtYfwcvE0t4SN4HtMe8t7uv5Gdi +6s8j3HdoH/z5LfLVciaW3vBVSaRtdNhX/IMIEz+0nzh/gvbSif58Hkkm5qlW +puyi3b3HbiNTlonasQZOQDtnoKZ7A4uJVff/PpGlHexscNBdmYk1bLG+n/R+ +bGouWBSmykSlloScVtqDT6+qPtRjYs65AZcQ2gX6AtXtxkw00W1jb6Ydxgnf +PoVMvDvm2y9EW/y2X/Q6Kyby81Ua3Pj/+ZF+LWFhz0TFmYy/brSpZPtC321M +7Pl4OEyStl2MYW/WbiYuOax9N44+j4z/CgOe7aXf32/vxqb9OYTF82YfE5kG +Dxu+0Oc71n+ZumQwE7uiKiY203YZiqjRDaXXv/5S2ic6HxTcZnY4hTPxNENM ++BLtKqs3/1yMZeJtp0yzJjqfLtY6SBVcYKJ0zDC/L2139sui+iQmetVYXvlL +598v9eI+3ltMfOUkyEPQ1hKJ0jhJ0uPqv/2Qzm+u+Nna1EdM7Nuz/EyVHZ1P +PPvdHlUykafCNYhN+8CsY8y3F0w8U6r3VI2uF9m9CgN+/UxUaXO3G7ei4IjD +9aCYt0yscLu43I42NiznuzPKxJOBkENZUvCm8ofm4CQTF9u2+wTR9Uo849VZ +Zx4WWrXVWr80o+MpwZY5spSFVVJzc6K0qUSSvLSchQ2rmGc9ttDxjL7xukGC +hXfzlewnTOl4+RzU2qjKwn8e5j9+jfT61q0cVNvGwuADd5ao0/X4xy3pKG03 +Fn43+HDH1pCCmRWKCoa7Wdh8pM7xoAGd79OG+zfvY+HwKakv6XQ9H670/uF2 +moVb/IV0h+h+0GBVKhSbw8LI0TGZAbq/1D15Tl64z0K8fPZw81q6Hmk0OScX +s7C1cfDT4zUUPBUdupFezkKpo6kuyUr09w8IKD9sZmHnX1clBouufwc8YHiW +Hg9zqi6g+1vKG//hsd8sjHZPX3yE7n9X7I7GfFlgod8p12gduj9e1I5t/Mkv +jzVbWGqkKAXRf8jtKxjy2N279kCcEL0f8YuDTMzk0WqZcfYjHgpM8gsyr12T +R31G6ILgZxIGiPyMLTflseTpdd6UCRLCrt1Ln8mQR9Mp1xrGRxJKo3LTHO/J +47nh+cPKH+j+vyMzVeixPO4rridl35GwdvGVxLND9HwSCtI76PvO7pORIaoK ++E4xVuF3GQkPO0MjFNcr4Mr724+xS0lwtjwR3qmrgCfbLt0Of0hCku6xU1qg +gKf+5l37TZKwXPDQiUkHBQz3i+Pto+8vvOV7gnyPK+B4QOyUZhoJ30QsPV2q +FfCeouGI82kSeg+yWvfXKSDfV5HrKidJqHr5GyKaFHD4ivLs/AkSEsPy5e52 +K+AgtufcCiZBc1jw7a8JBdStnRZ+foCEQPLfXbdEFVEy5qr7dVcSJuy27Rzd +q4gBS7bz3NAmYTTB0+XIEiWMQZ0sdfr+GDihytIUVMJFGy5U5dH3yznzX1++ +rFTCgFxrJbnXHBDgSYrZJ62E1/97X7+0hwOaoTUlnmpKeLKuP7muiQOnfZRE +7ZyU8Ahvx5aZUg6Ib/j877oMJbRy//ZE5AIHLL4et3ivp4xcbcJ897Q48Nl7 +6dGSiDV4h0u/U7CsiP4/keA+V70WBYbMI7MnCkCkWeki56sKSlnvsEpn5YNM +bLG9np4qSoY6aT1k3YPUdYYrRf3UkDFcUqzNzoMG6Y2605fVkV3rHJLnlQNG +MtWJGt0a+O/0PN7yuQNCPLeDvaI18Wyag3tXahYwouRMXJXW46ZPp3HhSAbw +K7o/cqxbj+PTpV0OczdBnS1VfHyXFh6+av+g6WMqHBkUqbHk0kZ5YY+0U11X +4et0wjaLVG3UW7skpUAjGcw1Xt6wUNNB2z8rC6+1JMLTaeM/cy062Pq+Vqd/ +MgECVbX623x0cczlgNFa7jhgT+7tdOXXQ6lLp7179GNgi4KkzfLbejjWZut+ +TSIa1kSeP1Gtr4/Rm1P4KurCQcXH8Jlivz7GGQ+O78oPBZ+n/mdKDhtgQVOS +7qH4Y/Ass3Pvt1WG+Ldbpqzo4WGYubswp1FqiA1wqfMafwB4K+bz37AxQmnF +iMHpeT8Ie+GxX8neCM967Cns+egHiT4ijZSjEV7leTlT3+UHj3NCExq3GyGH +rGjqK/QDMaWtK+a9jHCL7+VnOR5+8FLpvZhniBHqtx28P1btCypr5AilDCO0 +HV02OHDVB76pJOtRU0Y4oBsr3OrtDb1NuEV02gj3f037qeHsDVWBk07Bs0Z4 +RPV5w43N3nCRsjis99sIC52/SlxW9AYVI66CCh5jfMHrXLAwtgf2WAQwa8SN +cfr6ruNvA/dAp5+5YKeJMa4h9NsiznhBWfafodlYY7xmfFP/583doGcaPGcZ +b4z15ZzPTtG74eHQZ8HMC8bY8kC1/bn/bqAYg/qWScYo6HmUt1N3NxSkVl1I +v2mM8j86hlpbPSAzIcbQvMgYR3b575MX8IC44BWXUzuMcfZhS+1InDu4bZZH +Y4YJvutPtcmodIX5zqVCNYQJDu+X3eqb7QqZPpMDlvImqLjlcTlccIUPZ8uP +u60xwQ3bmtvW7naFI/V2xaFaJnhwpdA/fTyucN72FKPMjB5nnN6fZr8DKnZ0 +/dU5ZILdxQqHds25wOqAc+XqVSZIZQ9tMD/uDBcXfHXjq03wRNPAuis+zsCd +ZEaO1ZqgKpdY8aSTM0w8Wnwvs94E5fM2bmvSdIYKrjOpIh0mOPYsXnXtJydw +uxJ5/Md7E/y8elGw1x4nSK0M1X26jI08UcHZiW6OsErgIGmznY1PMkZJySB7 +yDY9HTblykZLA1X+3t32oHX6ommyOxu1RKwrc+zswXaK09XrxUaVD//xHtSw +h7Pds7+8D7LxS+EAj9lbO/h5O2JTWBQb9xkdztvz3hb6jZM7cvPZSGSKmQry +2YD/sew0iyI2Kon+bPk5bg0/ih76fOaw0eeqSshCozWIsHrn1j9io/Eru5du +SdZgtVRW5kkVG+MqpjeYE9bwuDN3b0cXGycbv276gFZgKVSmFtLLxsS8dr0D +ilbQa17/Q3KAjWvKswT4BaxgpuJTrMc7NpqJ1fJe6rAEtSzNwo8TbFxY+XZN +tZ8lPO7fGJLwhY06VMoiQRtLsBRzAo0pNobYjhOBWpbge+5YW/AsG+tcosfC +5i1gpursDYmfbJwZ4dqnOGIB0b9TvCt+szEgL+r92CsLWKlzT3XXPBvbOowt +q4ssID2gYnZhgY1B/EfOlFyxgP8BnVgkmg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07168343210001775}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, + 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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.061043}}, + "Frame" -> {{False, 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.061043}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.061043}}, + "Frame" -> {{False, 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.07168343210001775}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994015217194169*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"2312b0f0-f3d4-4c11-9818-e99d910df355"] +}, Open ]], Cell[CellGroupData[{ @@ -4909,26 +11724,30 @@ 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[{"(", - FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], - ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + RowBox[{"4", "*", "x", "*", "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[{"-", @@ -4948,18 +11767,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.503712572377703`*^-145\\\", \ +RowBox[{\\\"692388265304082962155241\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"115\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 121, 45, + 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9940152172384453`*^9}, + CellLabel-> + "During evaluation of \ +In[121]:=",ExpressionUUID->"83d751ed-1f11-4964-b450-ebb70e218f72"], -Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"51c9eb8e-8429-9440-b4d1-8a2a914a816b"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.740043085049563`*^-148\\\", \ +RowBox[{\\\"257637673519649270217965\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"119\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 121, 46, + 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9940152172480173`*^9}, + CellLabel-> + "During evaluation of \ +In[121]:=",ExpressionUUID->"e2f8c14f-9177-4892-859b-74769b97e121"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.7891106329560845`*^-150\\\", \ +RowBox[{\\\"990359217009531794717859\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"122\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 121, 47, + 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994015217257354*^9}, + CellLabel-> + "During evaluation of \ +In[121]:=",ExpressionUUID->"f0dc72ad-6e5e-42c9-8200-9e9c6282aaaf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 121, 48, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994015217264748*^9}, + CellLabel-> + "During evaluation of \ +In[121]:=",ExpressionUUID->"7bf28b33-499c-4aa0-ba5e-0478588befc8"], + +Cell[BoxData["10.602147587803078`"], "Output", + CellChangeTimes->{3.994015269352378*^9}, + CellLabel-> + "Out[121]=",ExpressionUUID->"eda13035-dad0-4650-8fd2-e87cdc80bcba"] }, Open ]], Cell[CellGroupData[{ @@ -5026,27 +11902,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.3842069645697645`*^-208\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 122, 49, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994015269390718*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"bc9f490a-4b78-42e6-8a95-e60a736d4719"], 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[\\\"6.253864303710242`*^-213\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 122, 50, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994015269399428*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"4f429df2-2f11-402d-b91d-632e7aa8de0c"], -Cell[BoxData["0.7273353591556563`"], "Output",ExpressionUUID->"9a717f6e-3c47-7d43-93ae-4bf4814b6aa7"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.263988733454343`*^-218\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 122, 51, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9940152694072113`*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"b4c55fb1-6344-468b-aa92-023804866f20"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 122, 52, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994015269415639*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"6cd76b4d-4643-41ce-90f0-76ee1e7c5dc2"], + +Cell[BoxData["0.22909455351994867`"], "Output", + CellChangeTimes->{3.994015276451129*^9}, + CellLabel-> + "Out[122]=",ExpressionUUID->"3ce5e018-ea7e-407f-a630-e55245593bf5"] }, Open ]], Cell[CellGroupData[{ @@ -5067,8 +11988,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 +12033,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.3842069645697645`*^-208\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 123, 53, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994015276489852*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"a7a2bbdb-d615-440f-8204-cfd0f3b478c3"], 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[\\\"6.253864303710242`*^-213\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 123, 54, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994015276496111*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"6ab2cf5b-f354-4bad-bfb3-e50d67287e94"], -Cell[BoxData["3.1005213487548544`"], "Output",ExpressionUUID->"3e9bc444-276c-294e-8c8d-12ef37255e0d"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.263988733454343`*^-218\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 123, 55, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994015276502757*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"58a672b0-19c6-4283-b79e-096de9fbdcb3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 123, 56, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994015276509776*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"5109b681-c585-49cc-9222-263ed4052e4c"], + +Cell[BoxData["30.727791744628945`"], "Output", + CellChangeTimes->{3.9940152832344713`*^9}, + CellLabel-> + "Out[123]=",ExpressionUUID->"5aff9442-4bef-4814-9303-9160aceefaed"] }, Open ]], Cell[CellGroupData[{ @@ -5154,8 +12119,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 +12164,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.3842069645697645`*^-208\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 124, 57, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994015283273697*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"a45935ae-34bf-4928-b89d-f9058168931a"], 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[\\\"6.253864303710242`*^-213\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 124, 58, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9940152832810183`*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"ff995ddf-8a32-465d-8233-e53a29506021"], -Cell[BoxData["18.198720438459198`"], "Output",ExpressionUUID->"d8ce023f-3349-8348-844a-2526397581d1"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.263988733454343`*^-218\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 124, 59, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9940152832890377`*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"2f70f68b-17c3-4761-a8d5-3b3c67eb20db"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 124, 60, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994015283297418*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"3ed129b2-49ad-4900-a261-163ce5a6b5b3"], + +Cell[BoxData["3.3449071626932643`"], "Output", + CellChangeTimes->{3.994015287628077*^9}, + CellLabel-> + "Out[124]=",ExpressionUUID->"d0c30e7c-541f-4fe6-aae1-893264765498"] }, Open ]], Cell[CellGroupData[{ @@ -5229,19 +12238,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.022597326196998804`"], "Output", + CellChangeTimes->{3.9940152876591673`*^9}, + CellLabel-> + "Out[125]=",ExpressionUUID->"40f3259e-7d7c-4857-98a9-a1ade859db82"] }, 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 +12275,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["12.42259191999324`"], "Output", + CellChangeTimes->{3.994015287679905*^9}, + CellLabel-> + "Out[127]=",ExpressionUUID->"b2e66dee-ade2-4076-b3e5-77d4e62c200f"] }, Open ]], Cell[CellGroupData[{ @@ -5273,10 +12290,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.854910589580087`"], "Output", + CellChangeTimes->{3.994015287691903*^9}, + CellLabel-> + "Out[128]=",ExpressionUUID->"0ca8ed06-1724-4a2b-a2d3-44a84d6d7034"] }, Open ]], Cell[CellGroupData[{ @@ -5284,10 +12305,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["23.042797302427484`"], "Output", + CellChangeTimes->{3.994015287701419*^9}, + CellLabel-> + "Out[129]=",ExpressionUUID->"4fccd82e-8873-4dd1-afb8-a627ab6896e1"] }, Open ]], Cell[CellGroupData[{ @@ -5475,10 +12500,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.006617920134860961`"], "Output", + CellChangeTimes->{3.994015287712825*^9}, + CellLabel-> + "Out[130]=",ExpressionUUID->"2acfa033-ab8a-4990-b22a-58bc59741f91"] }, Open ]], Cell[CellGroupData[{ @@ -5490,18 +12519,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.893919952425948`"], "Output", + CellChangeTimes->{3.994015287809779*^9}, + CellLabel-> + "Out[131]=",ExpressionUUID->"d3ee13ad-07e6-463a-8b06-a02e13ca523a"] }, Open ]], Cell[CellGroupData[{ @@ -5691,10 +12716,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.042541751827254885`"], "Output", + CellChangeTimes->{3.994015287824891*^9}, + CellLabel-> + "Out[132]=",ExpressionUUID->"a6be0516-985b-48e8-b463-c9f456273ab7"] }, Open ]], Cell[CellGroupData[{ @@ -5706,18 +12735,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.296722002751`"], "Output", + CellChangeTimes->{3.994015287943839*^9}, + CellLabel-> + "Out[133]=",ExpressionUUID->"99b729cb-082f-452f-b992-603f520bdd0c"] }, Open ]], Cell[CellGroupData[{ @@ -5808,10 +12833,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.05674825314301471`"], "Output", + CellChangeTimes->{3.994015287954588*^9}, + CellLabel-> + "Out[134]=",ExpressionUUID->"82101b3e-d9a6-4db8-b02a-0e260b350063"] }, Open ]], Cell[CellGroupData[{ @@ -5899,10 +12928,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.9432517468569853`"], "Output", + CellChangeTimes->{3.9940152879687157`*^9}, + CellLabel-> + "Out[135]=",ExpressionUUID->"91f5c8b9-9b13-499a-8489-912b2c025870"] }, Open ]], Cell[CellGroupData[{ @@ -6023,10 +13056,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.05352788890823103`"], "Output", + CellChangeTimes->{3.9940152879801197`*^9}, + CellLabel-> + "Out[136]=",ExpressionUUID->"ff4b8251-1ac6-43aa-8b5e-7df5e7b6248d"] }, Open ]], Cell[CellGroupData[{ @@ -6041,30 +13078,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 +13128,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[\\\"3.3628058218457026`*^-206\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 137, 61, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994015287995398*^9}, + CellLabel-> + "During evaluation of \ +In[137]:=",ExpressionUUID->"20c1742c-8138-4a68-a9e8-b85ade1d7d80"], 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[\\\"7.192073284431028`*^-211\\\", \ +RowBox[{\\\"143094757247897252281238\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"64\\\", \\\"\[RightSkeleton]\\\"}], \\\"3737600000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 137, 62, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9940152880025387`*^9}, + CellLabel-> + "During evaluation of \ +In[137]:=",ExpressionUUID->"f4cf899a-62e1-4275-9e27-ac10b3b60148"], -Cell[BoxData["3.486503585502321`"], "Output",ExpressionUUID->"dfa1aa9c-9811-0d49-a9f3-e5e1bcdf702f"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.538177369403873`*^-215\\\", \ +RowBox[{\\\"302788506336550585827101\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"67\\\", \\\"\[RightSkeleton]\\\"}], \\\"8761600000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 137, 63, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99401528800982*^9}, + CellLabel-> + "During evaluation of \ +In[137]:=",ExpressionUUID->"f8e2a02b-6377-44f0-8ff4-41e95e2555cd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 137, 64, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994015288017785*^9}, + CellLabel-> + "During evaluation of \ +In[137]:=",ExpressionUUID->"c028f75c-484f-4560-9a48-3ea541ec75cb"], + +Cell[BoxData["10.893919952425962`"], "Output", + CellChangeTimes->{3.9940152918736677`*^9}, + CellLabel-> + "Out[137]=",ExpressionUUID->"b5b6d543-0cf3-4174-9e72-6ae2d8a3553e"] }, Open ]], Cell[CellGroupData[{ @@ -6123,30 +13208,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 +13258,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[\\\"3.3628058218457026`*^-206\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 138, 65, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9940152919167233`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"86401be3-f66d-4d19-8ecf-ef4acfcd5cae"], 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[\\\"7.192073284431028`*^-211\\\", \ +RowBox[{\\\"143094757247897252281238\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"64\\\", \\\"\[RightSkeleton]\\\"}], \\\"3737600000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 138, 66, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994015291924765*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"a9335dba-ada3-4131-ba45-0a95a3008518"], -Cell[BoxData["8.210479950982325`"], "Output",ExpressionUUID->"b342636b-f081-cc49-b1ae-5647aa39d6ab"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.538177369403873`*^-215\\\", \ +RowBox[{\\\"302788506336550585827101\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"67\\\", \\\"\[RightSkeleton]\\\"}], \\\"8761600000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 138, 67, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994015291933557*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"d1e20b17-39f9-4498-be71-9e9866acace9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 138, 68, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9940152919419193`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"737c27ef-69f1-4b3c-85c2-8b7ee92c3e06"], + +Cell[BoxData["4.296722002751003`"], "Output", + CellChangeTimes->{3.994015295698339*^9}, + CellLabel-> + "Out[138]=",ExpressionUUID->"e3242bb5-57fb-4c30-b66d-30a6b1dd6d99"] }, Open ]], Cell[CellGroupData[{ @@ -6248,489 +13381,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:eJwV13k0Vd0bB3AJlSFTSIYy9UaJLsn02k+GDFFCRSRd9xxRhpAkSZlKyFR5 +fykyFDJkTHhFSeL2UqlEynDvTeYM92jSb/vjrLM+a6/97O+ezlpHie7vQPDy +8PCM4GfpffK/rX897PrPRCI706a+m4VMJvO2082L0ZFFyfNLHsjSS1c1b0Cz +cSHyDdj2jJcCwjrPkL1pi/K/2OWh55/ymzNRkN7vlEbsy61rm84XvUJKJ5V8 +mrAfdZ28/Yv2Ft3m3Xb/CfZob3v4mfoeNL24ef8z7HVsFVeu2UeUfE7iWBv2 +7qlwgyDmZ9T+D2u4A7vx16hQaNEg8gnMaevEfndB5myN3zCaVreV7saeFDAf +naOx0WHOILMHWyAhwEWH4qCoV57j/diK4rfaTtaPoKK1r4OHsffIce9Omo2j +gIvBTVPYZLaytObKSfRLvDCKi31ebW/MceYUknvfXvYbu0eme1tw0TfUtfy9 +qchbFmIc8vFOS5hBJvPNhVLY05k8dyr8ZtFPrZtnFLFXKmuKfaPNo+kGWadt +2OmMp5ZiUlw0V/3Y3Qh7wz2X81oUF/2x2P/aAlt/S+ykb/0CuphtP+eKfUzv +M3PU7Bc6vTNNJRF7LvQUn+DG32i4t+nU/7Aj64WM1VcuomtOg9oF2Bmgf9+L ++Qelvf412LKUL7/NPLBoGRzfWKy1/B0LFbWmDVyQ44WOdxEvJLGnv7iHpyTw +wtMMK6YqdrjGfOUDv+WwquypsBV2epmSyhSNH/LOeZ9Jw+7tGm9czOWHxB/8 +rvewN8w8PLRaSgAUc27n12MX6+5J1aQEINH0+Sk2dsujsGUn6ldCpK0gr8l7 +Fpp/+ubziJkw1FxY0cHbw0IStsJiZxuFQST5Z9h6bO1ucxAxEIGEq/S7xtg+ +rOrsbVtXwyXlJP9Q7ABepvbfwmLQNHeuYx6brVz6LYYrDkWxw0UrevH6kO2r +OnUkYG1SlsQWbN77HKW1JyXgdsfwvD32Bp31DkVjEtAzIqiViX3ILLnivwFJ +ePV48bh+Hwt1egYGyXRIgdwbtviljyz06V7SFY+V0pAQMUyrwh4fK8ottJCG ++KyozgFsweDhN0ZN0iARWXHWqJ+FzKOddD2qZUDkwmIWF7suT2++IEsWDlC/ +ZaM/s1Ae+0eIYbAC2CCJoZ9DLGS1P+5TUIkCfK88GK0zjOu3SO4q4SiAjltO +6nFs3bwtUhtcFKFMc+/sR+wWunslv8l6UJg1edbCYqGZqYHTI1EbINbIvKSA +w0KSvuZVlXbKMGYmeat5lIU4eYLH7H2U4YCNbIvAGAvVfuySm4hVBrFun4O2 +2G62h6M2NimDqe6PJz3YeZtDHP6hqYC3nWgpdxyPP3pvOkJGFYK0rd7tmmIh +Jy8hTZtBNaBRHhf051gIheynHfytBpKnT12/jK0Rk7WDIbsRQs1nJPuweXJ1 +TCP2bYTrNVpW5+dZqOST68GK5o3QZbziOpOL7+eB4gvrcv6C66tuvwj7jvOZ +270bpavDMbVneWp/WCjX8UYfFaEOFwv9mFHYSfTBAb6b6qDp9sltCJsReWpM +8Y06vPkqX5vNw0biDbd4HM00oLXA31mZl418dCY16lU2w9ZqEzMDfjaSU756 +/gprC0gKv+ipFmKjhvg59e+8mlDTK2WsIcxGbrMu3aSSJki+1JDLwr7doqpu +6q4Jt5we28aLsJGyV93rhfeawD0pGUGKspFGMVuN7NgKXt1hCnqSbKQgp0hu +cNGGeLX2AJocG23JDxb+iWgQwNWOzt7CRnRG1LzmHhpUiRWqamiyUYZK6icP +Nxo0cIVpVdjLc8oetIbS4HtiUdqLrWzUe3vUKbWcBiGnGwO/a7PR5QyPW+oq +OhByxCPPdzsbca7YbnUW0IUAz2nuPRM2uhOoal/N3A4dm8f8CAc26gpBO6Lz +DWBEsPnRuig2UnJ/u+fwib8hqm9hklPHRsSfmlKFMwDlL1vFtLhsJDNWu0KG +bgqHUdyXcBMOCtYx/piqYQ6+MnN/373MQfSJX22SoxYgzxqXy+vloBLToBVZ +nZZgui8k9IPhF5Q359NcnG4NHp4W8emZX9DCzrUvW87vBm++1TMuoiOon2f5 +t8GjdmDzUHy9wuUR5Cfvn3xBZS/UMk7/HOH9ikq925quxdiDUGa2iWLyVxQ2 +K0tt9t4HFWdlNiTJj6J5m10Hnh9xAKJP/Jdu4ygycE3Zyd7nCDHtWdpx5Bh6 +LXvLp0XHCa45GGQpCI+jdXejGgo27Yd36/I3s9rGUe2Ahu0ekQMQbVR9pvjC +BFLsnvYKmTgAcgIWpTdNJpHOtZTi3IGD4ODyQXFWcgrd4pvdmvrUGSodaQ/C +h6ZQzU6t3phHLiDrd0FokjGNMnbEi/8qOgRKERunpz5Mo86+/FidBFeALWqK +DdbfULVdpmpApBvcjQr6eujZN/TN15HHj3EYMv+a1/M1nEHzu9SPTZq5g7eT +X+um0hlUMPFhIUjvCCgxdmmIbZlFznfyPQ8Le4C3RoKl0J1ZVFmx+8jyOA9g +SjWXOCvOIQO5198vf/cAJY+9l+aS55DKgFfvK++jcNFnoV92cQ6xhI7vzRw+ +CiHmUtDsP4+6kvZ4Wu6nQ+Ak+5R19zxKD80SOtVFB6ugarEZAy5qaPzz3dPa +ExpFV5SpXOMiUTeI06nzhFf5EROBg1y0Yc3zTvkGT8i09HpVOMRF2ky7tQKN +niDloMc3MMxFDsauhT3NnpDo773fhsNF6fIhHedeeAI5ceC29BgXreu/L9rW +4wnFNTYJiXNcpOouk+FGeUKUJXNyRoBCBh6TBTG6DHB7LzKWoE6hu/9MB+3R +Y0DQHuanKA0KrXkzYyKjzwAn99PqYZspNGlBdRcYMaBx6NkThiaFv188y5im +DDglUfJn2zYKrabEXST2MUCJ3zqkWJ9CrMTtq7J8GXDk27If6y0plFQf7l17 +lwGlKtl93KMU8qXdMAgtYODzdkK4kU4h28LyVfpFDPgZbXs12pNCgjc4hQ9L +GLAonRcvSlAoJtB+tKaKAffUkaPCMQqFq6ser37CgBzTxZVr/Sjkc6PjRMUn +BpgVyM9dOkMh69Uc48ABBnQYXFpnGEahTTE8IrQhBvBJqCeNYnMCt5eUsxkQ +GXvazTqcQkf3ZE08GGcAb4J1ymIEhZz5g/zKfjCg2t/M2DKaQpZB6wKKpQk4 +a/84xz6JQk+yYm1S1xJwQxKZLWAbM2dUQ9cREFm9WTjrKoW01To+mCkSEO18 +V3o0mUKy78+a9akRUOh7b1VIGoXGDPulBbcTABbl5kQGha7yZv/r5UjAEQ8l +nuw7eP5awhl2+wmoi509uiWHQtGuoYE6BwnwXPD+8hA7tMr+rz+HCHAwr3Vj +5uL85LKU63Q83hOpidF8Cum00xnPThKwMOcWt1hIofcpakIqyQQEjHs0R5RT +qBSJHBtJIWBxsfD9F+zoibmWkjQCBH7kaNhXUIhm3RKhf4OAgzTrWMVKvH88 +njN2twn4dHVKvKKKQrv8sz+EFhNg3BbsVfWQQgoKl/RMSgnYscPVRLyWQnPt +/mnLHxAgWnvd3hc7ZyOyS6okYGaxfqPKIwr97u9vyq3D+VxSb8TUUajKVq7g +vzYCDHuuhqn9S6ErP3j509sJ0PXI/X0Km14wetSFSUDD5b66Z9hifHVyrE4C +LkYGDdMbKXSi3vnq93cENN45Mpb2mEIqGtdDVNkEbIrPfd7VTKEf78+9+coh +gMFSZK95QqGuGEK7bIQAU/9HRs7YEYO6owbjBFQViKV/xO7NeHN47ywBw1vL +p/qeUih1hbhF2DISPLjXdlU/o1DDTL9r8HISErLTXWexv/QXBfrxk8CnVXpa +uxWfhyrzbPoqEoZrJlvuYXM8Qn/aiJNw5kZ/efxznN/WQsJCkoSM+19/N2Eb +7ZBQR1Ik8Eqk2HOxk0WKD+jIkjCodHqVextur/tcLqdEgpzXmjalFxQi84vb +pFRI+LPL19IeOzn5zGdRNRJAaJZ5DptDSorwqZPgo+o4+napXdLy2Lg2CfFs +Kd+wdgrV4f8MDg3nd4iWv4PN/jpwbUCXhJjjT161Yhs2hT3t1ifBRTXaTrQD +3+cTpYr/AgmRhODldOzVzme3PzQlgck7SFRiG5hZ2ZabkzBx0MjqFXaS7NCZ +fCsSuhwOKQgyKVTLV5acZUPC34aiYmrYw1Nn7/1jS8Ivt00rEbZ+q9TbRHsS +6K99VgZg08uHxuIcSAhIiRWLw07MLOO96ETCTcaYwi3soUBr7RBnEgLlQq1a +sUXcpS0DDpHw+Ho68WGpnvXwYR83Ek7sH44bW+q//twVdw8StrYt/yj8EucR +tMlxppOQipgi8thD89KPHBgkcCOrzDWwRQaHO21JElpv1kbuwNZnPuDsOkbC +GKu72Qyb/vDcb/DB8+Pyr9yLnZhjs8boBM5TbuXoslQ/UWbzdj8SHA3/l0tf +qh/K2qkVgNfvF7Xggy3MKHdWD8T7X3DEMRB7x94If5VgEjp0OytCl+ob7o5V +CCHhzUdzmQjsBLW1t2RCSVim/DjyInaNGLtSPIyEHR3GUzHYgz/L24XCSZhm +NdAvLdX/EjHIH0GCdrNJ32Vsvde7F/6cJyGTanaOx/4/d7kkXA== + "]]}, + 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:eJwV13k0Vd0bB3AJlSFTSIYy9UaJLsn02k+GDFFCRSRd9xxRhpAkSZlKyFR5 +fykyFDJkTHhFSeL2UqlEynDvTeYM92jSb/vjrLM+a6/97O+ezlpHie7vQPDy +8PCM4GfpffK/rX897PrPRCI706a+m4VMJvO2082L0ZFFyfNLHsjSS1c1b0Cz +cSHyDdj2jJcCwjrPkL1pi/K/2OWh55/ymzNRkN7vlEbsy61rm84XvUJKJ5V8 +mrAfdZ28/Yv2Ft3m3Xb/CfZob3v4mfoeNL24ef8z7HVsFVeu2UeUfE7iWBv2 +7qlwgyDmZ9T+D2u4A7vx16hQaNEg8gnMaevEfndB5myN3zCaVreV7saeFDAf +naOx0WHOILMHWyAhwEWH4qCoV57j/diK4rfaTtaPoKK1r4OHsffIce9Omo2j +gIvBTVPYZLaytObKSfRLvDCKi31ebW/MceYUknvfXvYbu0eme1tw0TfUtfy9 +qchbFmIc8vFOS5hBJvPNhVLY05k8dyr8ZtFPrZtnFLFXKmuKfaPNo+kGWadt +2OmMp5ZiUlw0V/3Y3Qh7wz2X81oUF/2x2P/aAlt/S+ykb/0CuphtP+eKfUzv +M3PU7Bc6vTNNJRF7LvQUn+DG32i4t+nU/7Aj64WM1VcuomtOg9oF2Bmgf9+L ++Qelvf412LKUL7/NPLBoGRzfWKy1/B0LFbWmDVyQ44WOdxEvJLGnv7iHpyTw +wtMMK6YqdrjGfOUDv+WwquypsBV2epmSyhSNH/LOeZ9Jw+7tGm9czOWHxB/8 +rvewN8w8PLRaSgAUc27n12MX6+5J1aQEINH0+Sk2dsujsGUn6ldCpK0gr8l7 +Fpp/+ubziJkw1FxY0cHbw0IStsJiZxuFQST5Z9h6bO1ucxAxEIGEq/S7xtg+ +rOrsbVtXwyXlJP9Q7ABepvbfwmLQNHeuYx6brVz6LYYrDkWxw0UrevH6kO2r +OnUkYG1SlsQWbN77HKW1JyXgdsfwvD32Bp31DkVjEtAzIqiViX3ILLnivwFJ +ePV48bh+Hwt1egYGyXRIgdwbtviljyz06V7SFY+V0pAQMUyrwh4fK8ottJCG ++KyozgFsweDhN0ZN0iARWXHWqJ+FzKOddD2qZUDkwmIWF7suT2++IEsWDlC/ +ZaM/s1Ae+0eIYbAC2CCJoZ9DLGS1P+5TUIkCfK88GK0zjOu3SO4q4SiAjltO +6nFs3bwtUhtcFKFMc+/sR+wWunslv8l6UJg1edbCYqGZqYHTI1EbINbIvKSA +w0KSvuZVlXbKMGYmeat5lIU4eYLH7H2U4YCNbIvAGAvVfuySm4hVBrFun4O2 +2G62h6M2NimDqe6PJz3YeZtDHP6hqYC3nWgpdxyPP3pvOkJGFYK0rd7tmmIh +Jy8hTZtBNaBRHhf051gIheynHfytBpKnT12/jK0Rk7WDIbsRQs1nJPuweXJ1 +TCP2bYTrNVpW5+dZqOST68GK5o3QZbziOpOL7+eB4gvrcv6C66tuvwj7jvOZ +270bpavDMbVneWp/WCjX8UYfFaEOFwv9mFHYSfTBAb6b6qDp9sltCJsReWpM +8Y06vPkqX5vNw0biDbd4HM00oLXA31mZl418dCY16lU2w9ZqEzMDfjaSU756 +/gprC0gKv+ipFmKjhvg59e+8mlDTK2WsIcxGbrMu3aSSJki+1JDLwr7doqpu +6q4Jt5we28aLsJGyV93rhfeawD0pGUGKspFGMVuN7NgKXt1hCnqSbKQgp0hu +cNGGeLX2AJocG23JDxb+iWgQwNWOzt7CRnRG1LzmHhpUiRWqamiyUYZK6icP +Nxo0cIVpVdjLc8oetIbS4HtiUdqLrWzUe3vUKbWcBiGnGwO/a7PR5QyPW+oq +OhByxCPPdzsbca7YbnUW0IUAz2nuPRM2uhOoal/N3A4dm8f8CAc26gpBO6Lz +DWBEsPnRuig2UnJ/u+fwib8hqm9hklPHRsSfmlKFMwDlL1vFtLhsJDNWu0KG +bgqHUdyXcBMOCtYx/piqYQ6+MnN/373MQfSJX22SoxYgzxqXy+vloBLToBVZ +nZZgui8k9IPhF5Q359NcnG4NHp4W8emZX9DCzrUvW87vBm++1TMuoiOon2f5 +t8GjdmDzUHy9wuUR5Cfvn3xBZS/UMk7/HOH9ikq925quxdiDUGa2iWLyVxQ2 +K0tt9t4HFWdlNiTJj6J5m10Hnh9xAKJP/Jdu4ygycE3Zyd7nCDHtWdpx5Bh6 +LXvLp0XHCa45GGQpCI+jdXejGgo27Yd36/I3s9rGUe2Ahu0ekQMQbVR9pvjC +BFLsnvYKmTgAcgIWpTdNJpHOtZTi3IGD4ODyQXFWcgrd4pvdmvrUGSodaQ/C +h6ZQzU6t3phHLiDrd0FokjGNMnbEi/8qOgRKERunpz5Mo86+/FidBFeALWqK +DdbfULVdpmpApBvcjQr6eujZN/TN15HHj3EYMv+a1/M1nEHzu9SPTZq5g7eT +X+um0hlUMPFhIUjvCCgxdmmIbZlFznfyPQ8Le4C3RoKl0J1ZVFmx+8jyOA9g +SjWXOCvOIQO5198vf/cAJY+9l+aS55DKgFfvK++jcNFnoV92cQ6xhI7vzRw+ +CiHmUtDsP4+6kvZ4Wu6nQ+Ak+5R19zxKD80SOtVFB6ugarEZAy5qaPzz3dPa +ExpFV5SpXOMiUTeI06nzhFf5EROBg1y0Yc3zTvkGT8i09HpVOMRF2ky7tQKN +niDloMc3MMxFDsauhT3NnpDo773fhsNF6fIhHedeeAI5ceC29BgXreu/L9rW +4wnFNTYJiXNcpOouk+FGeUKUJXNyRoBCBh6TBTG6DHB7LzKWoE6hu/9MB+3R +Y0DQHuanKA0KrXkzYyKjzwAn99PqYZspNGlBdRcYMaBx6NkThiaFv188y5im +DDglUfJn2zYKrabEXST2MUCJ3zqkWJ9CrMTtq7J8GXDk27If6y0plFQf7l17 +lwGlKtl93KMU8qXdMAgtYODzdkK4kU4h28LyVfpFDPgZbXs12pNCgjc4hQ9L +GLAonRcvSlAoJtB+tKaKAffUkaPCMQqFq6ser37CgBzTxZVr/Sjkc6PjRMUn +BpgVyM9dOkMh69Uc48ABBnQYXFpnGEahTTE8IrQhBvBJqCeNYnMCt5eUsxkQ +GXvazTqcQkf3ZE08GGcAb4J1ymIEhZz5g/zKfjCg2t/M2DKaQpZB6wKKpQk4 +a/84xz6JQk+yYm1S1xJwQxKZLWAbM2dUQ9cREFm9WTjrKoW01To+mCkSEO18 +V3o0mUKy78+a9akRUOh7b1VIGoXGDPulBbcTABbl5kQGha7yZv/r5UjAEQ8l +nuw7eP5awhl2+wmoi509uiWHQtGuoYE6BwnwXPD+8hA7tMr+rz+HCHAwr3Vj +5uL85LKU63Q83hOpidF8Cum00xnPThKwMOcWt1hIofcpakIqyQQEjHs0R5RT +qBSJHBtJIWBxsfD9F+zoibmWkjQCBH7kaNhXUIhm3RKhf4OAgzTrWMVKvH88 +njN2twn4dHVKvKKKQrv8sz+EFhNg3BbsVfWQQgoKl/RMSgnYscPVRLyWQnPt +/mnLHxAgWnvd3hc7ZyOyS6okYGaxfqPKIwr97u9vyq3D+VxSb8TUUajKVq7g +vzYCDHuuhqn9S6ErP3j509sJ0PXI/X0Km14wetSFSUDD5b66Z9hifHVyrE4C +LkYGDdMbKXSi3vnq93cENN45Mpb2mEIqGtdDVNkEbIrPfd7VTKEf78+9+coh +gMFSZK95QqGuGEK7bIQAU/9HRs7YEYO6owbjBFQViKV/xO7NeHN47ywBw1vL +p/qeUih1hbhF2DISPLjXdlU/o1DDTL9r8HISErLTXWexv/QXBfrxk8CnVXpa +uxWfhyrzbPoqEoZrJlvuYXM8Qn/aiJNw5kZ/efxznN/WQsJCkoSM+19/N2Eb +7ZBQR1Ik8Eqk2HOxk0WKD+jIkjCodHqVextur/tcLqdEgpzXmjalFxQi84vb +pFRI+LPL19IeOzn5zGdRNRJAaJZ5DptDSorwqZPgo+o4+napXdLy2Lg2CfFs +Kd+wdgrV4f8MDg3nd4iWv4PN/jpwbUCXhJjjT161Yhs2hT3t1ifBRTXaTrQD +3+cTpYr/AgmRhODldOzVzme3PzQlgck7SFRiG5hZ2ZabkzBx0MjqFXaS7NCZ +fCsSuhwOKQgyKVTLV5acZUPC34aiYmrYw1Nn7/1jS8Ivt00rEbZ+q9TbRHsS +6K99VgZg08uHxuIcSAhIiRWLw07MLOO96ETCTcaYwi3soUBr7RBnEgLlQq1a +sUXcpS0DDpHw+Ho68WGpnvXwYR83Ek7sH44bW+q//twVdw8StrYt/yj8EucR +tMlxppOQipgi8thD89KPHBgkcCOrzDWwRQaHO21JElpv1kbuwNZnPuDsOkbC +GKu72Qyb/vDcb/DB8+Pyr9yLnZhjs8boBM5TbuXoslQ/UWbzdj8SHA3/l0tf +qh/K2qkVgNfvF7Xggy3MKHdWD8T7X3DEMRB7x94If5VgEjp0OytCl+ob7o5V +CCHhzUdzmQjsBLW1t2RCSVim/DjyInaNGLtSPIyEHR3GUzHYgz/L24XCSZhm +NdAvLdX/EjHIH0GCdrNJ32Vsvde7F/6cJyGTanaOx/4/d7kkXA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6509682137739239, 1.487680765828805}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6509682137739253}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.6509682137739239, 1.487680765828805}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6509682137739253}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJwV13k0Vd0bB3AJlSFTSIYy9UaJLsn02k+GDFFCRSRd9xxRhpAkSZlKyFR5 +fykyFDJkTHhFSeL2UqlEynDvTeYM92jSb/vjrLM+a6/97O+ezlpHie7vQPDy +8PCM4GfpffK/rX897PrPRCI706a+m4VMJvO2082L0ZFFyfNLHsjSS1c1b0Cz +cSHyDdj2jJcCwjrPkL1pi/K/2OWh55/ymzNRkN7vlEbsy61rm84XvUJKJ5V8 +mrAfdZ28/Yv2Ft3m3Xb/CfZob3v4mfoeNL24ef8z7HVsFVeu2UeUfE7iWBv2 +7qlwgyDmZ9T+D2u4A7vx16hQaNEg8gnMaevEfndB5myN3zCaVreV7saeFDAf +naOx0WHOILMHWyAhwEWH4qCoV57j/diK4rfaTtaPoKK1r4OHsffIce9Omo2j +gIvBTVPYZLaytObKSfRLvDCKi31ebW/MceYUknvfXvYbu0eme1tw0TfUtfy9 +qchbFmIc8vFOS5hBJvPNhVLY05k8dyr8ZtFPrZtnFLFXKmuKfaPNo+kGWadt +2OmMp5ZiUlw0V/3Y3Qh7wz2X81oUF/2x2P/aAlt/S+ykb/0CuphtP+eKfUzv +M3PU7Bc6vTNNJRF7LvQUn+DG32i4t+nU/7Aj64WM1VcuomtOg9oF2Bmgf9+L ++Qelvf412LKUL7/NPLBoGRzfWKy1/B0LFbWmDVyQ44WOdxEvJLGnv7iHpyTw +wtMMK6YqdrjGfOUDv+WwquypsBV2epmSyhSNH/LOeZ9Jw+7tGm9czOWHxB/8 +rvewN8w8PLRaSgAUc27n12MX6+5J1aQEINH0+Sk2dsujsGUn6ldCpK0gr8l7 +Fpp/+ubziJkw1FxY0cHbw0IStsJiZxuFQST5Z9h6bO1ucxAxEIGEq/S7xtg+ +rOrsbVtXwyXlJP9Q7ABepvbfwmLQNHeuYx6brVz6LYYrDkWxw0UrevH6kO2r +OnUkYG1SlsQWbN77HKW1JyXgdsfwvD32Bp31DkVjEtAzIqiViX3ILLnivwFJ +ePV48bh+Hwt1egYGyXRIgdwbtviljyz06V7SFY+V0pAQMUyrwh4fK8ottJCG ++KyozgFsweDhN0ZN0iARWXHWqJ+FzKOddD2qZUDkwmIWF7suT2++IEsWDlC/ +ZaM/s1Ae+0eIYbAC2CCJoZ9DLGS1P+5TUIkCfK88GK0zjOu3SO4q4SiAjltO +6nFs3bwtUhtcFKFMc+/sR+wWunslv8l6UJg1edbCYqGZqYHTI1EbINbIvKSA +w0KSvuZVlXbKMGYmeat5lIU4eYLH7H2U4YCNbIvAGAvVfuySm4hVBrFun4O2 +2G62h6M2NimDqe6PJz3YeZtDHP6hqYC3nWgpdxyPP3pvOkJGFYK0rd7tmmIh +Jy8hTZtBNaBRHhf051gIheynHfytBpKnT12/jK0Rk7WDIbsRQs1nJPuweXJ1 +TCP2bYTrNVpW5+dZqOST68GK5o3QZbziOpOL7+eB4gvrcv6C66tuvwj7jvOZ +270bpavDMbVneWp/WCjX8UYfFaEOFwv9mFHYSfTBAb6b6qDp9sltCJsReWpM +8Y06vPkqX5vNw0biDbd4HM00oLXA31mZl418dCY16lU2w9ZqEzMDfjaSU756 +/gprC0gKv+ipFmKjhvg59e+8mlDTK2WsIcxGbrMu3aSSJki+1JDLwr7doqpu +6q4Jt5we28aLsJGyV93rhfeawD0pGUGKspFGMVuN7NgKXt1hCnqSbKQgp0hu +cNGGeLX2AJocG23JDxb+iWgQwNWOzt7CRnRG1LzmHhpUiRWqamiyUYZK6icP +Nxo0cIVpVdjLc8oetIbS4HtiUdqLrWzUe3vUKbWcBiGnGwO/a7PR5QyPW+oq +OhByxCPPdzsbca7YbnUW0IUAz2nuPRM2uhOoal/N3A4dm8f8CAc26gpBO6Lz +DWBEsPnRuig2UnJ/u+fwib8hqm9hklPHRsSfmlKFMwDlL1vFtLhsJDNWu0KG +bgqHUdyXcBMOCtYx/piqYQ6+MnN/373MQfSJX22SoxYgzxqXy+vloBLToBVZ +nZZgui8k9IPhF5Q359NcnG4NHp4W8emZX9DCzrUvW87vBm++1TMuoiOon2f5 +t8GjdmDzUHy9wuUR5Cfvn3xBZS/UMk7/HOH9ikq925quxdiDUGa2iWLyVxQ2 +K0tt9t4HFWdlNiTJj6J5m10Hnh9xAKJP/Jdu4ygycE3Zyd7nCDHtWdpx5Bh6 +LXvLp0XHCa45GGQpCI+jdXejGgo27Yd36/I3s9rGUe2Ahu0ekQMQbVR9pvjC +BFLsnvYKmTgAcgIWpTdNJpHOtZTi3IGD4ODyQXFWcgrd4pvdmvrUGSodaQ/C +h6ZQzU6t3phHLiDrd0FokjGNMnbEi/8qOgRKERunpz5Mo86+/FidBFeALWqK +DdbfULVdpmpApBvcjQr6eujZN/TN15HHj3EYMv+a1/M1nEHzu9SPTZq5g7eT +X+um0hlUMPFhIUjvCCgxdmmIbZlFznfyPQ8Le4C3RoKl0J1ZVFmx+8jyOA9g +SjWXOCvOIQO5198vf/cAJY+9l+aS55DKgFfvK++jcNFnoV92cQ6xhI7vzRw+ +CiHmUtDsP4+6kvZ4Wu6nQ+Ak+5R19zxKD80SOtVFB6ugarEZAy5qaPzz3dPa +ExpFV5SpXOMiUTeI06nzhFf5EROBg1y0Yc3zTvkGT8i09HpVOMRF2ky7tQKN +niDloMc3MMxFDsauhT3NnpDo773fhsNF6fIhHedeeAI5ceC29BgXreu/L9rW +4wnFNTYJiXNcpOouk+FGeUKUJXNyRoBCBh6TBTG6DHB7LzKWoE6hu/9MB+3R +Y0DQHuanKA0KrXkzYyKjzwAn99PqYZspNGlBdRcYMaBx6NkThiaFv188y5im +DDglUfJn2zYKrabEXST2MUCJ3zqkWJ9CrMTtq7J8GXDk27If6y0plFQf7l17 +lwGlKtl93KMU8qXdMAgtYODzdkK4kU4h28LyVfpFDPgZbXs12pNCgjc4hQ9L +GLAonRcvSlAoJtB+tKaKAffUkaPCMQqFq6ser37CgBzTxZVr/Sjkc6PjRMUn +BpgVyM9dOkMh69Uc48ABBnQYXFpnGEahTTE8IrQhBvBJqCeNYnMCt5eUsxkQ +GXvazTqcQkf3ZE08GGcAb4J1ymIEhZz5g/zKfjCg2t/M2DKaQpZB6wKKpQk4 +a/84xz6JQk+yYm1S1xJwQxKZLWAbM2dUQ9cREFm9WTjrKoW01To+mCkSEO18 +V3o0mUKy78+a9akRUOh7b1VIGoXGDPulBbcTABbl5kQGha7yZv/r5UjAEQ8l +nuw7eP5awhl2+wmoi509uiWHQtGuoYE6BwnwXPD+8hA7tMr+rz+HCHAwr3Vj +5uL85LKU63Q83hOpidF8Cum00xnPThKwMOcWt1hIofcpakIqyQQEjHs0R5RT +qBSJHBtJIWBxsfD9F+zoibmWkjQCBH7kaNhXUIhm3RKhf4OAgzTrWMVKvH88 +njN2twn4dHVKvKKKQrv8sz+EFhNg3BbsVfWQQgoKl/RMSgnYscPVRLyWQnPt +/mnLHxAgWnvd3hc7ZyOyS6okYGaxfqPKIwr97u9vyq3D+VxSb8TUUajKVq7g +vzYCDHuuhqn9S6ErP3j509sJ0PXI/X0Km14wetSFSUDD5b66Z9hifHVyrE4C +LkYGDdMbKXSi3vnq93cENN45Mpb2mEIqGtdDVNkEbIrPfd7VTKEf78+9+coh +gMFSZK95QqGuGEK7bIQAU/9HRs7YEYO6owbjBFQViKV/xO7NeHN47ywBw1vL +p/qeUih1hbhF2DISPLjXdlU/o1DDTL9r8HISErLTXWexv/QXBfrxk8CnVXpa +uxWfhyrzbPoqEoZrJlvuYXM8Qn/aiJNw5kZ/efxznN/WQsJCkoSM+19/N2Eb +7ZBQR1Ik8Eqk2HOxk0WKD+jIkjCodHqVextur/tcLqdEgpzXmjalFxQi84vb +pFRI+LPL19IeOzn5zGdRNRJAaJZ5DptDSorwqZPgo+o4+napXdLy2Lg2CfFs +Kd+wdgrV4f8MDg3nd4iWv4PN/jpwbUCXhJjjT161Yhs2hT3t1ifBRTXaTrQD +3+cTpYr/AgmRhODldOzVzme3PzQlgck7SFRiG5hZ2ZabkzBx0MjqFXaS7NCZ +fCsSuhwOKQgyKVTLV5acZUPC34aiYmrYw1Nn7/1jS8Ivt00rEbZ+q9TbRHsS +6K99VgZg08uHxuIcSAhIiRWLw07MLOO96ETCTcaYwi3soUBr7RBnEgLlQq1a +sUXcpS0DDpHw+Ho68WGpnvXwYR83Ek7sH44bW+q//twVdw8StrYt/yj8EucR +tMlxppOQipgi8thD89KPHBgkcCOrzDWwRQaHO21JElpv1kbuwNZnPuDsOkbC +GKu72Qyb/vDcb/DB8+Pyr9yLnZhjs8boBM5TbuXoslQ/UWbzdj8SHA3/l0tf +qh/K2qkVgNfvF7Xggy3MKHdWD8T7X3DEMRB7x94If5VgEjp0OytCl+ob7o5V +CCHhzUdzmQjsBLW1t2RCSVim/DjyInaNGLtSPIyEHR3GUzHYgz/L24XCSZhm +NdAvLdX/EjHIH0GCdrNJ32Vsvde7F/6cJyGTanaOx/4/d7kkXA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6509682137739239, 1.487680765828805}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6509682137739253}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.6509682137739253}, + 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.6509682137739239, 1.487680765828805}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9940155698846283`*^9}, + CellLabel-> + "Out[139]=",ExpressionUUID->"859d0886-c07f-48c9-ac6f-47fb0a7cd70e"] }, Open ]], Cell[CellGroupData[{ @@ -6745,30 +13781,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 +13833,1056 @@ 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[\\\"5.210742670755762`*^-267\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 69, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994015570018004*^9}, + CellLabel-> + "During evaluation of \ +In[140]:=",ExpressionUUID->"455643c9-c03d-4bd7-8103-78e3509f1d21"], 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[\\\"4.185722610620466`*^-278\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 140, 70, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994015570025217*^9}, + CellLabel-> + "During evaluation of \ +In[140]:=",ExpressionUUID->"d04a0984-3027-4c5c-92b8-29c326c2ead0"], 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.3623371715107712`*^-289\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 140, 71, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994015570031917*^9}, + CellLabel-> + "During evaluation of \ +In[140]:=",ExpressionUUID->"245ae14f-0c12-42cb-98ae-3941a5ea4f7b"], 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, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994015570038794*^9}, + CellLabel-> + "During evaluation of \ +In[140]:=",ExpressionUUID->"d28ea162-d8db-44d4-8e52-4e670a485ba5"], 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:eJwV13k4VV0XAHBvEpUpZB7uvS7KPI/3WkuEKFMplCFDSqaKRAlFFEmGSIkk +JdM9lVkRZaoomSuVFAkRSTR85/vrPL/nnGfvc/Zaa699qJ5BDj4r2NjY+P5j +Y/v/dWG4/TE9scA4Noz28fc+E+Oea6LhJgOnQGBbSYz6lAzg+i5P0YFU2B14 +aO/YpBoctbvTzz6QD/ETJ05VTgKsmxZJ/dV/F57t5R/wn7SFd/U2QfP9TXA5 +TUXi9Fd3MKdPvJ3t74aU8dahpbEg+NWvlzHTPwKd5a/mJgejoNn0VsHL/DnQ +kf25eT4sBSTf1Xz2VP4D19frRzYqZ4GQv/sdTlN23HhazPeWby6kapjX2Thy +4XvLVTN+XjdgMEu9cZafBwOi/bJGLxRCYkFU1wqxdQhDgzNTd4pAJP3j2bQc +QazmTH/WtqsERJUqYhcLBTF8w4fvq/aWgHjTmShXliCGWR1IBL8SkJ7ZGKrQ +LIis5UjevBMlILc12KNuXBB1Rn0Y0tdLQGvlH92PWkIY2hJjyPulBGxDhEc1 +O4SQet/JoCKkFOJ3bDHuXliPnzHz73hEGYjf7xRf8Z8wcjkV2XqfLoMywR0/ +NdYK487GjJcDiWXQ1+3GuigjjJ6lTt6lV8uAbh9Cs7cUxuT4iyUrH5ZB07bc +VS8uC+NNW1eug//K4I/5j87nDBFkszIJXRdZDimFEcV/zEWwuV9kGxFbDvRV +bAkq9iKo+MiXaZVUDlufrDE57yOCKgO8Pr5XyiHblHJva7IIPn1k2mhTUw76 +aJ359J0IGq9+oPxyrhyOGFx3bz8lig2s3vYXGiywyuOdt04SxT7dQc9FbRbQ +OE8kdGaI4kET1zlJfRa86NlJvLotijYvA5b2GLNANZibfbhTFEsDMnKqrVgw +XhhW+F1cDI9+UqUNe7Jgj5DNlMQ9MTxXmFX4IYUFWsfrYq7Vi6F7WPyq22ks +WDOyQZjaIoYxYbO7D15iQU05O8gPiqHcW62x8SssELauSVH/J4as9ReiGgrJ ++WPo2putxdEWo+uG6lhg9m0pIvCjOJbr1Ja1f2RBuGW64qNJcezQdXtC+8yC +susqQ4IL4jixzWP22DgLRHd4GNRwSWDe8thZySkWTFY/+cmuKoHitYKNuMCC +tFMpIZePSeCxw8u7/3ASMLJePvAxjySWTB92tNxIgEhQg5SIiCRW0eVczJQI +2Nrm9PwARRIFv68OZ6oQUBmRqMynJYkagUarFDQIOPduZsLZSRK1nol79+sT +oFlU5/stXxIHfDe7l1oQEMOw3yuuL4VOan851b0IsHS79l1vkxT6aU8vf/cm +gDf662nHrVL4ZtOqlLv7CLjaHFeY4iGFsZZ62Qp+BFRb1X5ddVYKOegZJl+C +CZhxkj06NyiF8o0H9Z5GElAVEcy5blQK6Ve53ZyiCDh59UGW6rQUxtscUhqJ +JoD7/a66Ayuk0ZdhX//1NAEKvkls7xWlUShUo7nvLAFuoT/OPTsujXc2L3Zy +ZxAgl7lJciJOGr8t1l72vkSQ63ehlDNFGvtWfBSoySQg4vfGF5sKpLHlYqCA +UzYBGafd1tc8k8aP9ss7AnMJeHaxNfemlAy+7/By/32bgLR7QhrNCjIoaj5s +K3OHAJfevU3vNWTQ4o/rT+NiAsZFf49KmMvgC/mqgJBSAtjz1BVTA2XQZjc3 +VzVBgGHZ5fsnG2RQjN/0WH4NAWb9nX+m22TQI+OoSUwtATZsKy3cu2WQI75V +17WOAC+HwEH4JIOP8jtvcT8gwPw4NSqag4KDXXPElkYCnvLV39BfQ0FW34WJ +dY8IsCvY2TbDS0HvI6Hb+0nvfp64bq8oBdPasNq5mYBgmYUbJkoUrKIsvGG0 +EPDjXkrbLzUKemovFk6TjrBUmiK0KaibcPVmTisBcYc8dGnGFAxx4DCdayMg +u7mjbYU9BceN+XgjnxLw2Dd3qvkoBa/VLnmvfUHAlt8GAieOU/CemsmDFNKd +KT262tEU9Kpz3S74koDBmtXRBWcp+MI70oi/m4DptSECcVdJfzHg/vKKgCN5 +vHrM6xS8u4fP26mHgEXtot0/blJw4Gz638ek2d2GC3zKKWixSeFvRi8BoixL +PfMmCn5PGtEX6Scgx+zj7r8tFFS4fbMqmDRtMDK68ikF/S5KnGwlrbLiXrt8 +LwW1wktH/QcIuHtp2/TwIAW3jaw7U0daX2lcIHOYgp1TNYc4BwnYtENqD+c4 +BbPL/BUzSbeOV0U3TFKQ3vd4cYj01kiHm2GzFHx1ellQcoiAXYXx02NLFLyv +Uah1ifQbQ5pg3j9yva75G3SR9uyq13NaScWAg5XJHK8J8F+cjW7joaJQS5Si +H2nDQ/uEPwtQ0X3bhM5V0lwTQ8XsolT0rsqUeEq6z9PWhCpFxdhK7zcLpG++ +bu4zplFx9pVquMwbAkJ26PvvUaDiqqCe72akNz0v+S9CmYq19dpWvqT5zamZ +mRrk8y1q0WdIDz/MUK7QpeLwwcKMfNIlemuauo2oeMQ1IrGOdATr5K4ZpOJd +SrLnS9KWG+cmecypKMjzRGKUtHC+7yklayp+tWavniM9Kv5GZIsdFav7VfTZ +3pLrm2ZXus+RirnHFXNWk47mfrIp1oWKJd3vxvhI28YZDFx3p+IWCx0xQdLS +f0sDGrypmCogqPl/Tx6lsb89QMUKI08tftK13y5lLQVS0SGTW3oN6YT9a1VF +Q6g42PL7+//n2/khqlknnIojetL35sn3obvMO20/ScUcWVf3T6S/d++fDj5N +RZHkwsVu0o3Wb08nJ5Dvs3k86gHp5Mf2YiXnqeg0wr9QQHoPs6WsPZWKYk/4 +9pwlrVhpaDaWSUUrkd67fqR/qZYPrsyhInuH/bIl6bZbskG0fDK+GWG6dNKX +KFkr8RYVlRb1fX6T8dIUiFE7TlAx2mXP9Ruk2RJ/PM6qpOIzjVusw6Q72f1c +KuuoeMHGvcqY9MEfDnGzT6i4FDRb9pzMH8PAVnG+p1TU3Vd7PYU015gRS/kF +FTtOd16wI10wQH/tO0TFV14P97aS+XnY/nJw3DsyXlIXLE6Sxg6eVTdGqTj1 +JV1Zk/TbugX14WkqbnytsZhC5r9wbtuZHew0vK8aTiiS9TIqwpQ8zEXDVo+K +kvY+Mp4pBHGBh4YtP6XKfUjbnsp+0yFCw7KuyOfpZD0m+PhrmijTcKBoJKmL +rOedw+9b3TRomHpk7O1O0vRdjq4ndGnIscHY+DVZ/42WxglVSMOsU/9pvCb3 +h19K/MMqjjR0cRxfruoiYCFHPEbLhYYisvfPK5Ke55OjG7jT0LRF1CG7k9w/ +5gz8zA7QcCr/9tFDz8n+V+e14BJJw9AjE1Z/OwjosK7iTbhJw/08zBVpT8j6 +ffCIOH+HhvFmfrqDj8n9S+3ZjrRyGj712l8qSfqh4IfsazXk8xeXfK80kd/7 +eo1CxXMabpBPVj7WQO5/B91g5AcNz6UKD5dXE5D5dv/I2BINz7+9Vd9RRUC6 +7ZG4qX80/K0xND1SSeaTVsLTxdWyaDZwwGFtBQGnloldfNKymChsrc0g+8HB +RI5ghrksBlLOO8oUEcAoLsm7dEkWb45HP/hO9qvXlOLczVdk0aFi1r6L7GcR +l4quzefKYuzqh0RROtkvYwqvOhTJYlewSP+uVDK/nPKyeOtlUc61oPvyeQI2 +cqSnnPkgi85nOF0ryH4p7H48+qgyHa3nP9naBxJQ0RMeJadBx+BfZdJf/AnY +YXXsZI8OHftTv/adPEhAqk7oCU2gY5pyFmfBfgJ4uIOOTdvTcSa5PrbXk4CV +NZ7B+8Lo2PRMpLV3JwGzAlYeO5voWPvFYpMDk4ABf9oLv1Y64nppwTgjMt4t +SxD1jI4jjHXpFQYEpEQUy9zuo6Ohuncxny4B6iPc735N0JEryXf7bVUCAoku +1xxBOUzKcbjlL0PAhK3j7lFvOYzb+NzT6h8LRpM8dh7mlMdwDlH9G9UsCJxQ +pqlzy6NXnIZRSCULflr8mpril8fgDQdPm94nz2/sqXEHxOXRuT1z7E05C9TD +m+97qMhj5s2tUsvkeS3SR17Qdrs82pqban5OJ89zxpNdSrnyyBdyqehkEAu2 +fAvb8klXAaWfGDovyJDnMS+uI/ejNuDbxJjZnMYy8n9CZEV800bM2n7sXZdU +KQg8l09mfVPES+f0+wMiikEyodxOV1cZS5TErSnXiiBLyYBf0FcFVwt88onq +vQUd4iY6cxdVsSFRIfTNukIwlGxKUetTQzMTt+wSxQLgZc8P2XtKHW9dyH+a +5p8P0jEyDGd5DXzZeiBePCsPVsvtqXRo1UAGr+WQdmMOqDLFysNcNfFc2pfl +oopsODws0GzFpoXzz2Iqhq9mwre5JMctWVr4Z2eGUvpkOliotWRvUdHG/S23 +6XgiFR7OGS3/7NTGG2kqAVz8KRCorDn00kcHX9hpdSVwJAFz2rvHebUuhtbd +eBi4MgE200W38eTrorB/8u/fpbGwIfrcsSY9PZQQyitqbI4BRR+DBrkhPSx2 +J95dn48En4f7Y+8f0scCwpZdfH84NOT1eM+uN8BxtieOE5RQmL/976dalQEq +MHpqLp45BF5yxauztxnidl0Jkf1bAmBWMU337owhao880Vtc8IXqguUPPxKM +MMkiwBkfe4GuachPq0Qj7LqdcINe4QUVHya5884b4Vn1nK8ChV5wV3pYzyrV +CD0Kmj14ErygJKvx/LUrRrhpw5ut4Vu9IC8pzsCizIj8P6Lkbej3hLMhfBez +XhnhQ3UO+Udze8HFTBaNpBmYWsxz+aGlB/zp4eJtpjDQ1f7X7KihB+T5TL+2 +kmXgVWux1PUqHvD5TE2YywYG9lY7XMhY5wGH223LwzUZaBnkd0Om0h3O2ZyQ +rjZnYKGHK+PFOzeoder9rR1E3meqUZdNXEEiIL5GtZGBK+SEBkaMXSD53z6d +xCYGbo2U5onc6AIrUs2JsccMFCrxz5YXcoGJSo6ivHYGji/lXr71xRlq2WKz +BF4xkPGhXsUjwxlc0qPDFj4x8J/9qVc3vjlBVl24zsO1TNz9qJFLr3wXrF/j +T2zbxUS52um0206OUGAaGTHjzEShOoPuR2aOoBmZbJq2h4nZla1RX9UdwWaG +1Tuwl4nhu5yXg1Y7wpm+H7+8/Jl418ZMn1G3AxbzozZFxDAxxJ99uZ+6A4aM +0l4VFjPxUdKgY9eSA+wPLbi6pYyJ7YfkZt+PO8BCWYXPJIuJfDFlV/7rdwAB +2sBPjUomNvt9mQu65wDWXFKSDxqZON1jk/DP3wHqewq9X/UykStDm+fDiD1Y +8VarHB1gYkbs9zvDL+1hwKJ9QfQ1Eyt/qrAmGu1hvvZrgtt7JvbETLaq5NqD +ynX10i8TTGwS8+Rx32MP9UMmR5OmmPjhT0NrpzU5ntB2UJthYndDS+ZWI3vY +Fx/6MuQHE22ire0Oi5PjNZ7JFllk4uvtGXTxNfZwainTq3aJiXalMp+7ftkB +v3aRsusfJqosvCVL0g6uBdT++PePiRy/27h8Bu3gf6rH2MM= + "]]}, + 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:eJwV13k4VV0XAHBvEpUpZB7uvS7KPI/3WkuEKFMplCFDSqaKRAlFFEmGSIkk +JdM9lVkRZaoomSuVFAkRSTR85/vrPL/nnGfvc/Zaa699qJ5BDj4r2NjY+P5j +Y/v/dWG4/TE9scA4Noz28fc+E+Oea6LhJgOnQGBbSYz6lAzg+i5P0YFU2B14 +aO/YpBoctbvTzz6QD/ETJ05VTgKsmxZJ/dV/F57t5R/wn7SFd/U2QfP9TXA5 +TUXi9Fd3MKdPvJ3t74aU8dahpbEg+NWvlzHTPwKd5a/mJgejoNn0VsHL/DnQ +kf25eT4sBSTf1Xz2VP4D19frRzYqZ4GQv/sdTlN23HhazPeWby6kapjX2Thy +4XvLVTN+XjdgMEu9cZafBwOi/bJGLxRCYkFU1wqxdQhDgzNTd4pAJP3j2bQc +QazmTH/WtqsERJUqYhcLBTF8w4fvq/aWgHjTmShXliCGWR1IBL8SkJ7ZGKrQ +LIis5UjevBMlILc12KNuXBB1Rn0Y0tdLQGvlH92PWkIY2hJjyPulBGxDhEc1 +O4SQet/JoCKkFOJ3bDHuXliPnzHz73hEGYjf7xRf8Z8wcjkV2XqfLoMywR0/ +NdYK487GjJcDiWXQ1+3GuigjjJ6lTt6lV8uAbh9Cs7cUxuT4iyUrH5ZB07bc +VS8uC+NNW1eug//K4I/5j87nDBFkszIJXRdZDimFEcV/zEWwuV9kGxFbDvRV +bAkq9iKo+MiXaZVUDlufrDE57yOCKgO8Pr5XyiHblHJva7IIPn1k2mhTUw76 +aJ359J0IGq9+oPxyrhyOGFx3bz8lig2s3vYXGiywyuOdt04SxT7dQc9FbRbQ +OE8kdGaI4kET1zlJfRa86NlJvLotijYvA5b2GLNANZibfbhTFEsDMnKqrVgw +XhhW+F1cDI9+UqUNe7Jgj5DNlMQ9MTxXmFX4IYUFWsfrYq7Vi6F7WPyq22ks +WDOyQZjaIoYxYbO7D15iQU05O8gPiqHcW62x8SssELauSVH/J4as9ReiGgrJ ++WPo2putxdEWo+uG6lhg9m0pIvCjOJbr1Ja1f2RBuGW64qNJcezQdXtC+8yC +susqQ4IL4jixzWP22DgLRHd4GNRwSWDe8thZySkWTFY/+cmuKoHitYKNuMCC +tFMpIZePSeCxw8u7/3ASMLJePvAxjySWTB92tNxIgEhQg5SIiCRW0eVczJQI +2Nrm9PwARRIFv68OZ6oQUBmRqMynJYkagUarFDQIOPduZsLZSRK1nol79+sT +oFlU5/stXxIHfDe7l1oQEMOw3yuuL4VOan851b0IsHS79l1vkxT6aU8vf/cm +gDf662nHrVL4ZtOqlLv7CLjaHFeY4iGFsZZ62Qp+BFRb1X5ddVYKOegZJl+C +CZhxkj06NyiF8o0H9Z5GElAVEcy5blQK6Ve53ZyiCDh59UGW6rQUxtscUhqJ +JoD7/a66Ayuk0ZdhX//1NAEKvkls7xWlUShUo7nvLAFuoT/OPTsujXc2L3Zy +ZxAgl7lJciJOGr8t1l72vkSQ63ehlDNFGvtWfBSoySQg4vfGF5sKpLHlYqCA +UzYBGafd1tc8k8aP9ss7AnMJeHaxNfemlAy+7/By/32bgLR7QhrNCjIoaj5s +K3OHAJfevU3vNWTQ4o/rT+NiAsZFf49KmMvgC/mqgJBSAtjz1BVTA2XQZjc3 +VzVBgGHZ5fsnG2RQjN/0WH4NAWb9nX+m22TQI+OoSUwtATZsKy3cu2WQI75V +17WOAC+HwEH4JIOP8jtvcT8gwPw4NSqag4KDXXPElkYCnvLV39BfQ0FW34WJ +dY8IsCvY2TbDS0HvI6Hb+0nvfp64bq8oBdPasNq5mYBgmYUbJkoUrKIsvGG0 +EPDjXkrbLzUKemovFk6TjrBUmiK0KaibcPVmTisBcYc8dGnGFAxx4DCdayMg +u7mjbYU9BceN+XgjnxLw2Dd3qvkoBa/VLnmvfUHAlt8GAieOU/CemsmDFNKd +KT262tEU9Kpz3S74koDBmtXRBWcp+MI70oi/m4DptSECcVdJfzHg/vKKgCN5 +vHrM6xS8u4fP26mHgEXtot0/blJw4Gz638ek2d2GC3zKKWixSeFvRi8BoixL +PfMmCn5PGtEX6Scgx+zj7r8tFFS4fbMqmDRtMDK68ikF/S5KnGwlrbLiXrt8 +LwW1wktH/QcIuHtp2/TwIAW3jaw7U0daX2lcIHOYgp1TNYc4BwnYtENqD+c4 +BbPL/BUzSbeOV0U3TFKQ3vd4cYj01kiHm2GzFHx1ellQcoiAXYXx02NLFLyv +Uah1ifQbQ5pg3j9yva75G3SR9uyq13NaScWAg5XJHK8J8F+cjW7joaJQS5Si +H2nDQ/uEPwtQ0X3bhM5V0lwTQ8XsolT0rsqUeEq6z9PWhCpFxdhK7zcLpG++ +bu4zplFx9pVquMwbAkJ26PvvUaDiqqCe72akNz0v+S9CmYq19dpWvqT5zamZ +mRrk8y1q0WdIDz/MUK7QpeLwwcKMfNIlemuauo2oeMQ1IrGOdATr5K4ZpOJd +SrLnS9KWG+cmecypKMjzRGKUtHC+7yklayp+tWavniM9Kv5GZIsdFav7VfTZ +3pLrm2ZXus+RirnHFXNWk47mfrIp1oWKJd3vxvhI28YZDFx3p+IWCx0xQdLS +f0sDGrypmCogqPl/Tx6lsb89QMUKI08tftK13y5lLQVS0SGTW3oN6YT9a1VF +Q6g42PL7+//n2/khqlknnIojetL35sn3obvMO20/ScUcWVf3T6S/d++fDj5N +RZHkwsVu0o3Wb08nJ5Dvs3k86gHp5Mf2YiXnqeg0wr9QQHoPs6WsPZWKYk/4 +9pwlrVhpaDaWSUUrkd67fqR/qZYPrsyhInuH/bIl6bZbskG0fDK+GWG6dNKX +KFkr8RYVlRb1fX6T8dIUiFE7TlAx2mXP9Ruk2RJ/PM6qpOIzjVusw6Q72f1c +KuuoeMHGvcqY9MEfDnGzT6i4FDRb9pzMH8PAVnG+p1TU3Vd7PYU015gRS/kF +FTtOd16wI10wQH/tO0TFV14P97aS+XnY/nJw3DsyXlIXLE6Sxg6eVTdGqTj1 +JV1Zk/TbugX14WkqbnytsZhC5r9wbtuZHew0vK8aTiiS9TIqwpQ8zEXDVo+K +kvY+Mp4pBHGBh4YtP6XKfUjbnsp+0yFCw7KuyOfpZD0m+PhrmijTcKBoJKmL +rOedw+9b3TRomHpk7O1O0vRdjq4ndGnIscHY+DVZ/42WxglVSMOsU/9pvCb3 +h19K/MMqjjR0cRxfruoiYCFHPEbLhYYisvfPK5Ke55OjG7jT0LRF1CG7k9w/ +5gz8zA7QcCr/9tFDz8n+V+e14BJJw9AjE1Z/OwjosK7iTbhJw/08zBVpT8j6 +ffCIOH+HhvFmfrqDj8n9S+3ZjrRyGj712l8qSfqh4IfsazXk8xeXfK80kd/7 +eo1CxXMabpBPVj7WQO5/B91g5AcNz6UKD5dXE5D5dv/I2BINz7+9Vd9RRUC6 +7ZG4qX80/K0xND1SSeaTVsLTxdWyaDZwwGFtBQGnloldfNKymChsrc0g+8HB +RI5ghrksBlLOO8oUEcAoLsm7dEkWb45HP/hO9qvXlOLczVdk0aFi1r6L7GcR +l4quzefKYuzqh0RROtkvYwqvOhTJYlewSP+uVDK/nPKyeOtlUc61oPvyeQI2 +cqSnnPkgi85nOF0ryH4p7H48+qgyHa3nP9naBxJQ0RMeJadBx+BfZdJf/AnY +YXXsZI8OHftTv/adPEhAqk7oCU2gY5pyFmfBfgJ4uIOOTdvTcSa5PrbXk4CV +NZ7B+8Lo2PRMpLV3JwGzAlYeO5voWPvFYpMDk4ABf9oLv1Y64nppwTgjMt4t +SxD1jI4jjHXpFQYEpEQUy9zuo6Ohuncxny4B6iPc735N0JEryXf7bVUCAoku +1xxBOUzKcbjlL0PAhK3j7lFvOYzb+NzT6h8LRpM8dh7mlMdwDlH9G9UsCJxQ +pqlzy6NXnIZRSCULflr8mpril8fgDQdPm94nz2/sqXEHxOXRuT1z7E05C9TD +m+97qMhj5s2tUsvkeS3SR17Qdrs82pqban5OJ89zxpNdSrnyyBdyqehkEAu2 +fAvb8klXAaWfGDovyJDnMS+uI/ejNuDbxJjZnMYy8n9CZEV800bM2n7sXZdU +KQg8l09mfVPES+f0+wMiikEyodxOV1cZS5TErSnXiiBLyYBf0FcFVwt88onq +vQUd4iY6cxdVsSFRIfTNukIwlGxKUetTQzMTt+wSxQLgZc8P2XtKHW9dyH+a +5p8P0jEyDGd5DXzZeiBePCsPVsvtqXRo1UAGr+WQdmMOqDLFysNcNfFc2pfl +oopsODws0GzFpoXzz2Iqhq9mwre5JMctWVr4Z2eGUvpkOliotWRvUdHG/S23 +6XgiFR7OGS3/7NTGG2kqAVz8KRCorDn00kcHX9hpdSVwJAFz2rvHebUuhtbd +eBi4MgE200W38eTrorB/8u/fpbGwIfrcsSY9PZQQyitqbI4BRR+DBrkhPSx2 +J95dn48En4f7Y+8f0scCwpZdfH84NOT1eM+uN8BxtieOE5RQmL/976dalQEq +MHpqLp45BF5yxauztxnidl0Jkf1bAmBWMU337owhao880Vtc8IXqguUPPxKM +MMkiwBkfe4GuachPq0Qj7LqdcINe4QUVHya5884b4Vn1nK8ChV5wV3pYzyrV +CD0Kmj14ErygJKvx/LUrRrhpw5ut4Vu9IC8pzsCizIj8P6Lkbej3hLMhfBez +XhnhQ3UO+Udze8HFTBaNpBmYWsxz+aGlB/zp4eJtpjDQ1f7X7KihB+T5TL+2 +kmXgVWux1PUqHvD5TE2YywYG9lY7XMhY5wGH223LwzUZaBnkd0Om0h3O2ZyQ +rjZnYKGHK+PFOzeoder9rR1E3meqUZdNXEEiIL5GtZGBK+SEBkaMXSD53z6d +xCYGbo2U5onc6AIrUs2JsccMFCrxz5YXcoGJSo6ivHYGji/lXr71xRlq2WKz +BF4xkPGhXsUjwxlc0qPDFj4x8J/9qVc3vjlBVl24zsO1TNz9qJFLr3wXrF/j +T2zbxUS52um0206OUGAaGTHjzEShOoPuR2aOoBmZbJq2h4nZla1RX9UdwWaG +1Tuwl4nhu5yXg1Y7wpm+H7+8/Jl418ZMn1G3AxbzozZFxDAxxJ99uZ+6A4aM +0l4VFjPxUdKgY9eSA+wPLbi6pYyJ7YfkZt+PO8BCWYXPJIuJfDFlV/7rdwAB +2sBPjUomNvt9mQu65wDWXFKSDxqZON1jk/DP3wHqewq9X/UykStDm+fDiD1Y +8VarHB1gYkbs9zvDL+1hwKJ9QfQ1Eyt/qrAmGu1hvvZrgtt7JvbETLaq5NqD +ynX10i8TTGwS8+Rx32MP9UMmR5OmmPjhT0NrpzU5ntB2UJthYndDS+ZWI3vY +Fx/6MuQHE22ire0Oi5PjNZ7JFllk4uvtGXTxNfZwainTq3aJiXalMp+7ftkB +v3aRsusfJqosvCVL0g6uBdT++PePiRy/27h8Bu3gf6rH2MM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06977958652994179}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.06977958652994179}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJwV13k4VV0XAHBvEpUpZB7uvS7KPI/3WkuEKFMplCFDSqaKRAlFFEmGSIkk +JdM9lVkRZaoomSuVFAkRSTR85/vrPL/nnGfvc/Zaa699qJ5BDj4r2NjY+P5j +Y/v/dWG4/TE9scA4Noz28fc+E+Oea6LhJgOnQGBbSYz6lAzg+i5P0YFU2B14 +aO/YpBoctbvTzz6QD/ETJ05VTgKsmxZJ/dV/F57t5R/wn7SFd/U2QfP9TXA5 +TUXi9Fd3MKdPvJ3t74aU8dahpbEg+NWvlzHTPwKd5a/mJgejoNn0VsHL/DnQ +kf25eT4sBSTf1Xz2VP4D19frRzYqZ4GQv/sdTlN23HhazPeWby6kapjX2Thy +4XvLVTN+XjdgMEu9cZafBwOi/bJGLxRCYkFU1wqxdQhDgzNTd4pAJP3j2bQc +QazmTH/WtqsERJUqYhcLBTF8w4fvq/aWgHjTmShXliCGWR1IBL8SkJ7ZGKrQ +LIis5UjevBMlILc12KNuXBB1Rn0Y0tdLQGvlH92PWkIY2hJjyPulBGxDhEc1 +O4SQet/JoCKkFOJ3bDHuXliPnzHz73hEGYjf7xRf8Z8wcjkV2XqfLoMywR0/ +NdYK487GjJcDiWXQ1+3GuigjjJ6lTt6lV8uAbh9Cs7cUxuT4iyUrH5ZB07bc +VS8uC+NNW1eug//K4I/5j87nDBFkszIJXRdZDimFEcV/zEWwuV9kGxFbDvRV +bAkq9iKo+MiXaZVUDlufrDE57yOCKgO8Pr5XyiHblHJva7IIPn1k2mhTUw76 +aJ359J0IGq9+oPxyrhyOGFx3bz8lig2s3vYXGiywyuOdt04SxT7dQc9FbRbQ +OE8kdGaI4kET1zlJfRa86NlJvLotijYvA5b2GLNANZibfbhTFEsDMnKqrVgw +XhhW+F1cDI9+UqUNe7Jgj5DNlMQ9MTxXmFX4IYUFWsfrYq7Vi6F7WPyq22ks +WDOyQZjaIoYxYbO7D15iQU05O8gPiqHcW62x8SssELauSVH/J4as9ReiGgrJ ++WPo2putxdEWo+uG6lhg9m0pIvCjOJbr1Ja1f2RBuGW64qNJcezQdXtC+8yC +susqQ4IL4jixzWP22DgLRHd4GNRwSWDe8thZySkWTFY/+cmuKoHitYKNuMCC +tFMpIZePSeCxw8u7/3ASMLJePvAxjySWTB92tNxIgEhQg5SIiCRW0eVczJQI +2Nrm9PwARRIFv68OZ6oQUBmRqMynJYkagUarFDQIOPduZsLZSRK1nol79+sT +oFlU5/stXxIHfDe7l1oQEMOw3yuuL4VOan851b0IsHS79l1vkxT6aU8vf/cm +gDf662nHrVL4ZtOqlLv7CLjaHFeY4iGFsZZ62Qp+BFRb1X5ddVYKOegZJl+C +CZhxkj06NyiF8o0H9Z5GElAVEcy5blQK6Ve53ZyiCDh59UGW6rQUxtscUhqJ +JoD7/a66Ayuk0ZdhX//1NAEKvkls7xWlUShUo7nvLAFuoT/OPTsujXc2L3Zy +ZxAgl7lJciJOGr8t1l72vkSQ63ehlDNFGvtWfBSoySQg4vfGF5sKpLHlYqCA +UzYBGafd1tc8k8aP9ss7AnMJeHaxNfemlAy+7/By/32bgLR7QhrNCjIoaj5s +K3OHAJfevU3vNWTQ4o/rT+NiAsZFf49KmMvgC/mqgJBSAtjz1BVTA2XQZjc3 +VzVBgGHZ5fsnG2RQjN/0WH4NAWb9nX+m22TQI+OoSUwtATZsKy3cu2WQI75V +17WOAC+HwEH4JIOP8jtvcT8gwPw4NSqag4KDXXPElkYCnvLV39BfQ0FW34WJ +dY8IsCvY2TbDS0HvI6Hb+0nvfp64bq8oBdPasNq5mYBgmYUbJkoUrKIsvGG0 +EPDjXkrbLzUKemovFk6TjrBUmiK0KaibcPVmTisBcYc8dGnGFAxx4DCdayMg +u7mjbYU9BceN+XgjnxLw2Dd3qvkoBa/VLnmvfUHAlt8GAieOU/CemsmDFNKd +KT262tEU9Kpz3S74koDBmtXRBWcp+MI70oi/m4DptSECcVdJfzHg/vKKgCN5 +vHrM6xS8u4fP26mHgEXtot0/blJw4Gz638ek2d2GC3zKKWixSeFvRi8BoixL +PfMmCn5PGtEX6Scgx+zj7r8tFFS4fbMqmDRtMDK68ikF/S5KnGwlrbLiXrt8 +LwW1wktH/QcIuHtp2/TwIAW3jaw7U0daX2lcIHOYgp1TNYc4BwnYtENqD+c4 +BbPL/BUzSbeOV0U3TFKQ3vd4cYj01kiHm2GzFHx1ellQcoiAXYXx02NLFLyv +Uah1ifQbQ5pg3j9yva75G3SR9uyq13NaScWAg5XJHK8J8F+cjW7joaJQS5Si +H2nDQ/uEPwtQ0X3bhM5V0lwTQ8XsolT0rsqUeEq6z9PWhCpFxdhK7zcLpG++ +bu4zplFx9pVquMwbAkJ26PvvUaDiqqCe72akNz0v+S9CmYq19dpWvqT5zamZ +mRrk8y1q0WdIDz/MUK7QpeLwwcKMfNIlemuauo2oeMQ1IrGOdATr5K4ZpOJd +SrLnS9KWG+cmecypKMjzRGKUtHC+7yklayp+tWavniM9Kv5GZIsdFav7VfTZ +3pLrm2ZXus+RirnHFXNWk47mfrIp1oWKJd3vxvhI28YZDFx3p+IWCx0xQdLS +f0sDGrypmCogqPl/Tx6lsb89QMUKI08tftK13y5lLQVS0SGTW3oN6YT9a1VF +Q6g42PL7+//n2/khqlknnIojetL35sn3obvMO20/ScUcWVf3T6S/d++fDj5N +RZHkwsVu0o3Wb08nJ5Dvs3k86gHp5Mf2YiXnqeg0wr9QQHoPs6WsPZWKYk/4 +9pwlrVhpaDaWSUUrkd67fqR/qZYPrsyhInuH/bIl6bZbskG0fDK+GWG6dNKX +KFkr8RYVlRb1fX6T8dIUiFE7TlAx2mXP9Ruk2RJ/PM6qpOIzjVusw6Q72f1c +KuuoeMHGvcqY9MEfDnGzT6i4FDRb9pzMH8PAVnG+p1TU3Vd7PYU015gRS/kF +FTtOd16wI10wQH/tO0TFV14P97aS+XnY/nJw3DsyXlIXLE6Sxg6eVTdGqTj1 +JV1Zk/TbugX14WkqbnytsZhC5r9wbtuZHew0vK8aTiiS9TIqwpQ8zEXDVo+K +kvY+Mp4pBHGBh4YtP6XKfUjbnsp+0yFCw7KuyOfpZD0m+PhrmijTcKBoJKmL +rOedw+9b3TRomHpk7O1O0vRdjq4ndGnIscHY+DVZ/42WxglVSMOsU/9pvCb3 +h19K/MMqjjR0cRxfruoiYCFHPEbLhYYisvfPK5Ke55OjG7jT0LRF1CG7k9w/ +5gz8zA7QcCr/9tFDz8n+V+e14BJJw9AjE1Z/OwjosK7iTbhJw/08zBVpT8j6 +ffCIOH+HhvFmfrqDj8n9S+3ZjrRyGj712l8qSfqh4IfsazXk8xeXfK80kd/7 +eo1CxXMabpBPVj7WQO5/B91g5AcNz6UKD5dXE5D5dv/I2BINz7+9Vd9RRUC6 +7ZG4qX80/K0xND1SSeaTVsLTxdWyaDZwwGFtBQGnloldfNKymChsrc0g+8HB +RI5ghrksBlLOO8oUEcAoLsm7dEkWb45HP/hO9qvXlOLczVdk0aFi1r6L7GcR +l4quzefKYuzqh0RROtkvYwqvOhTJYlewSP+uVDK/nPKyeOtlUc61oPvyeQI2 +cqSnnPkgi85nOF0ryH4p7H48+qgyHa3nP9naBxJQ0RMeJadBx+BfZdJf/AnY +YXXsZI8OHftTv/adPEhAqk7oCU2gY5pyFmfBfgJ4uIOOTdvTcSa5PrbXk4CV +NZ7B+8Lo2PRMpLV3JwGzAlYeO5voWPvFYpMDk4ABf9oLv1Y64nppwTgjMt4t +SxD1jI4jjHXpFQYEpEQUy9zuo6Ohuncxny4B6iPc735N0JEryXf7bVUCAoku +1xxBOUzKcbjlL0PAhK3j7lFvOYzb+NzT6h8LRpM8dh7mlMdwDlH9G9UsCJxQ +pqlzy6NXnIZRSCULflr8mpril8fgDQdPm94nz2/sqXEHxOXRuT1z7E05C9TD +m+97qMhj5s2tUsvkeS3SR17Qdrs82pqban5OJ89zxpNdSrnyyBdyqehkEAu2 +fAvb8klXAaWfGDovyJDnMS+uI/ejNuDbxJjZnMYy8n9CZEV800bM2n7sXZdU +KQg8l09mfVPES+f0+wMiikEyodxOV1cZS5TErSnXiiBLyYBf0FcFVwt88onq +vQUd4iY6cxdVsSFRIfTNukIwlGxKUetTQzMTt+wSxQLgZc8P2XtKHW9dyH+a +5p8P0jEyDGd5DXzZeiBePCsPVsvtqXRo1UAGr+WQdmMOqDLFysNcNfFc2pfl +oopsODws0GzFpoXzz2Iqhq9mwre5JMctWVr4Z2eGUvpkOliotWRvUdHG/S23 +6XgiFR7OGS3/7NTGG2kqAVz8KRCorDn00kcHX9hpdSVwJAFz2rvHebUuhtbd +eBi4MgE200W38eTrorB/8u/fpbGwIfrcsSY9PZQQyitqbI4BRR+DBrkhPSx2 +J95dn48En4f7Y+8f0scCwpZdfH84NOT1eM+uN8BxtieOE5RQmL/976dalQEq +MHpqLp45BF5yxauztxnidl0Jkf1bAmBWMU337owhao880Vtc8IXqguUPPxKM +MMkiwBkfe4GuachPq0Qj7LqdcINe4QUVHya5884b4Vn1nK8ChV5wV3pYzyrV +CD0Kmj14ErygJKvx/LUrRrhpw5ut4Vu9IC8pzsCizIj8P6Lkbej3hLMhfBez +XhnhQ3UO+Udze8HFTBaNpBmYWsxz+aGlB/zp4eJtpjDQ1f7X7KihB+T5TL+2 +kmXgVWux1PUqHvD5TE2YywYG9lY7XMhY5wGH223LwzUZaBnkd0Om0h3O2ZyQ +rjZnYKGHK+PFOzeoder9rR1E3meqUZdNXEEiIL5GtZGBK+SEBkaMXSD53z6d +xCYGbo2U5onc6AIrUs2JsccMFCrxz5YXcoGJSo6ivHYGji/lXr71xRlq2WKz +BF4xkPGhXsUjwxlc0qPDFj4x8J/9qVc3vjlBVl24zsO1TNz9qJFLr3wXrF/j +T2zbxUS52um0206OUGAaGTHjzEShOoPuR2aOoBmZbJq2h4nZla1RX9UdwWaG +1Tuwl4nhu5yXg1Y7wpm+H7+8/Jl418ZMn1G3AxbzozZFxDAxxJ99uZ+6A4aM +0l4VFjPxUdKgY9eSA+wPLbi6pYyJ7YfkZt+PO8BCWYXPJIuJfDFlV/7rdwAB +2sBPjUomNvt9mQu65wDWXFKSDxqZON1jk/DP3wHqewq9X/UykStDm+fDiD1Y +8VarHB1gYkbs9zvDL+1hwKJ9QfQ1Eyt/qrAmGu1hvvZrgtt7JvbETLaq5NqD +ynX10i8TTGwS8+Rx32MP9UMmR5OmmPjhT0NrpzU5ntB2UJthYndDS+ZWI3vY +Fx/6MuQHE22ire0Oi5PjNZ7JFllk4uvtGXTxNfZwainTq3aJiXalMp+7ftkB +v3aRsusfJqosvCVL0g6uBdT++PePiRy/27h8Bu3gf6rH2MM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06977958652994179}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.06977958652994179}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9940158336510763`*^9}, + CellLabel-> + "Out[140]=",ExpressionUUID->"707938e1-1ad2-4bab-a355-0ef283e333e7"] }, 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:eJwV13k4VV0XAHBvEpUpZB7uvS7KPI/3WkuEKFMplCFDSqaKRAlFFEmGSIkk +JdM9lVkRZaoomSuVFAkRSTR85/vrPL/nnGfvc/Zaa699qJ5BDj4r2NjY+P5j +Y/v/dWG4/TE9scA4Noz28fc+E+Oea6LhJgOnQGBbSYz6lAzg+i5P0YFU2B14 +aO/YpBoctbvTzz6QD/ETJ05VTgKsmxZJ/dV/F57t5R/wn7SFd/U2QfP9TXA5 +TUXi9Fd3MKdPvJ3t74aU8dahpbEg+NWvlzHTPwKd5a/mJgejoNn0VsHL/DnQ +kf25eT4sBSTf1Xz2VP4D19frRzYqZ4GQv/sdTlN23HhazPeWby6kapjX2Thy +4XvLVTN+XjdgMEu9cZafBwOi/bJGLxRCYkFU1wqxdQhDgzNTd4pAJP3j2bQc +QazmTH/WtqsERJUqYhcLBTF8w4fvq/aWgHjTmShXliCGWR1IBL8SkJ7ZGKrQ +LIis5UjevBMlILc12KNuXBB1Rn0Y0tdLQGvlH92PWkIY2hJjyPulBGxDhEc1 +O4SQet/JoCKkFOJ3bDHuXliPnzHz73hEGYjf7xRf8Z8wcjkV2XqfLoMywR0/ +NdYK487GjJcDiWXQ1+3GuigjjJ6lTt6lV8uAbh9Cs7cUxuT4iyUrH5ZB07bc +VS8uC+NNW1eug//K4I/5j87nDBFkszIJXRdZDimFEcV/zEWwuV9kGxFbDvRV +bAkq9iKo+MiXaZVUDlufrDE57yOCKgO8Pr5XyiHblHJva7IIPn1k2mhTUw76 +aJ359J0IGq9+oPxyrhyOGFx3bz8lig2s3vYXGiywyuOdt04SxT7dQc9FbRbQ +OE8kdGaI4kET1zlJfRa86NlJvLotijYvA5b2GLNANZibfbhTFEsDMnKqrVgw +XhhW+F1cDI9+UqUNe7Jgj5DNlMQ9MTxXmFX4IYUFWsfrYq7Vi6F7WPyq22ks +WDOyQZjaIoYxYbO7D15iQU05O8gPiqHcW62x8SssELauSVH/J4as9ReiGgrJ ++WPo2putxdEWo+uG6lhg9m0pIvCjOJbr1Ja1f2RBuGW64qNJcezQdXtC+8yC +susqQ4IL4jixzWP22DgLRHd4GNRwSWDe8thZySkWTFY/+cmuKoHitYKNuMCC +tFMpIZePSeCxw8u7/3ASMLJePvAxjySWTB92tNxIgEhQg5SIiCRW0eVczJQI +2Nrm9PwARRIFv68OZ6oQUBmRqMynJYkagUarFDQIOPduZsLZSRK1nol79+sT +oFlU5/stXxIHfDe7l1oQEMOw3yuuL4VOan851b0IsHS79l1vkxT6aU8vf/cm +gDf662nHrVL4ZtOqlLv7CLjaHFeY4iGFsZZ62Qp+BFRb1X5ddVYKOegZJl+C +CZhxkj06NyiF8o0H9Z5GElAVEcy5blQK6Ve53ZyiCDh59UGW6rQUxtscUhqJ +JoD7/a66Ayuk0ZdhX//1NAEKvkls7xWlUShUo7nvLAFuoT/OPTsujXc2L3Zy +ZxAgl7lJciJOGr8t1l72vkSQ63ehlDNFGvtWfBSoySQg4vfGF5sKpLHlYqCA +UzYBGafd1tc8k8aP9ss7AnMJeHaxNfemlAy+7/By/32bgLR7QhrNCjIoaj5s +K3OHAJfevU3vNWTQ4o/rT+NiAsZFf49KmMvgC/mqgJBSAtjz1BVTA2XQZjc3 +VzVBgGHZ5fsnG2RQjN/0WH4NAWb9nX+m22TQI+OoSUwtATZsKy3cu2WQI75V +17WOAC+HwEH4JIOP8jtvcT8gwPw4NSqag4KDXXPElkYCnvLV39BfQ0FW34WJ +dY8IsCvY2TbDS0HvI6Hb+0nvfp64bq8oBdPasNq5mYBgmYUbJkoUrKIsvGG0 +EPDjXkrbLzUKemovFk6TjrBUmiK0KaibcPVmTisBcYc8dGnGFAxx4DCdayMg +u7mjbYU9BceN+XgjnxLw2Dd3qvkoBa/VLnmvfUHAlt8GAieOU/CemsmDFNKd +KT262tEU9Kpz3S74koDBmtXRBWcp+MI70oi/m4DptSECcVdJfzHg/vKKgCN5 +vHrM6xS8u4fP26mHgEXtot0/blJw4Gz638ek2d2GC3zKKWixSeFvRi8BoixL +PfMmCn5PGtEX6Scgx+zj7r8tFFS4fbMqmDRtMDK68ikF/S5KnGwlrbLiXrt8 +LwW1wktH/QcIuHtp2/TwIAW3jaw7U0daX2lcIHOYgp1TNYc4BwnYtENqD+c4 +BbPL/BUzSbeOV0U3TFKQ3vd4cYj01kiHm2GzFHx1ellQcoiAXYXx02NLFLyv +Uah1ifQbQ5pg3j9yva75G3SR9uyq13NaScWAg5XJHK8J8F+cjW7joaJQS5Si +H2nDQ/uEPwtQ0X3bhM5V0lwTQ8XsolT0rsqUeEq6z9PWhCpFxdhK7zcLpG++ +bu4zplFx9pVquMwbAkJ26PvvUaDiqqCe72akNz0v+S9CmYq19dpWvqT5zamZ +mRrk8y1q0WdIDz/MUK7QpeLwwcKMfNIlemuauo2oeMQ1IrGOdATr5K4ZpOJd +SrLnS9KWG+cmecypKMjzRGKUtHC+7yklayp+tWavniM9Kv5GZIsdFav7VfTZ +3pLrm2ZXus+RirnHFXNWk47mfrIp1oWKJd3vxvhI28YZDFx3p+IWCx0xQdLS +f0sDGrypmCogqPl/Tx6lsb89QMUKI08tftK13y5lLQVS0SGTW3oN6YT9a1VF +Q6g42PL7+//n2/khqlknnIojetL35sn3obvMO20/ScUcWVf3T6S/d++fDj5N +RZHkwsVu0o3Wb08nJ5Dvs3k86gHp5Mf2YiXnqeg0wr9QQHoPs6WsPZWKYk/4 +9pwlrVhpaDaWSUUrkd67fqR/qZYPrsyhInuH/bIl6bZbskG0fDK+GWG6dNKX +KFkr8RYVlRb1fX6T8dIUiFE7TlAx2mXP9Ruk2RJ/PM6qpOIzjVusw6Q72f1c +KuuoeMHGvcqY9MEfDnGzT6i4FDRb9pzMH8PAVnG+p1TU3Vd7PYU015gRS/kF +FTtOd16wI10wQH/tO0TFV14P97aS+XnY/nJw3DsyXlIXLE6Sxg6eVTdGqTj1 +JV1Zk/TbugX14WkqbnytsZhC5r9wbtuZHew0vK8aTiiS9TIqwpQ8zEXDVo+K +kvY+Mp4pBHGBh4YtP6XKfUjbnsp+0yFCw7KuyOfpZD0m+PhrmijTcKBoJKmL +rOedw+9b3TRomHpk7O1O0vRdjq4ndGnIscHY+DVZ/42WxglVSMOsU/9pvCb3 +h19K/MMqjjR0cRxfruoiYCFHPEbLhYYisvfPK5Ke55OjG7jT0LRF1CG7k9w/ +5gz8zA7QcCr/9tFDz8n+V+e14BJJw9AjE1Z/OwjosK7iTbhJw/08zBVpT8j6 +ffCIOH+HhvFmfrqDj8n9S+3ZjrRyGj712l8qSfqh4IfsazXk8xeXfK80kd/7 +eo1CxXMabpBPVj7WQO5/B91g5AcNz6UKD5dXE5D5dv/I2BINz7+9Vd9RRUC6 +7ZG4qX80/K0xND1SSeaTVsLTxdWyaDZwwGFtBQGnloldfNKymChsrc0g+8HB +RI5ghrksBlLOO8oUEcAoLsm7dEkWb45HP/hO9qvXlOLczVdk0aFi1r6L7GcR +l4quzefKYuzqh0RROtkvYwqvOhTJYlewSP+uVDK/nPKyeOtlUc61oPvyeQI2 +cqSnnPkgi85nOF0ryH4p7H48+qgyHa3nP9naBxJQ0RMeJadBx+BfZdJf/AnY +YXXsZI8OHftTv/adPEhAqk7oCU2gY5pyFmfBfgJ4uIOOTdvTcSa5PrbXk4CV +NZ7B+8Lo2PRMpLV3JwGzAlYeO5voWPvFYpMDk4ABf9oLv1Y64nppwTgjMt4t +SxD1jI4jjHXpFQYEpEQUy9zuo6Ohuncxny4B6iPc735N0JEryXf7bVUCAoku +1xxBOUzKcbjlL0PAhK3j7lFvOYzb+NzT6h8LRpM8dh7mlMdwDlH9G9UsCJxQ +pqlzy6NXnIZRSCULflr8mpril8fgDQdPm94nz2/sqXEHxOXRuT1z7E05C9TD +m+97qMhj5s2tUsvkeS3SR17Qdrs82pqban5OJ89zxpNdSrnyyBdyqehkEAu2 +fAvb8klXAaWfGDovyJDnMS+uI/ejNuDbxJjZnMYy8n9CZEV800bM2n7sXZdU +KQg8l09mfVPES+f0+wMiikEyodxOV1cZS5TErSnXiiBLyYBf0FcFVwt88onq +vQUd4iY6cxdVsSFRIfTNukIwlGxKUetTQzMTt+wSxQLgZc8P2XtKHW9dyH+a +5p8P0jEyDGd5DXzZeiBePCsPVsvtqXRo1UAGr+WQdmMOqDLFysNcNfFc2pfl +oopsODws0GzFpoXzz2Iqhq9mwre5JMctWVr4Z2eGUvpkOliotWRvUdHG/S23 +6XgiFR7OGS3/7NTGG2kqAVz8KRCorDn00kcHX9hpdSVwJAFz2rvHebUuhtbd +eBi4MgE200W38eTrorB/8u/fpbGwIfrcsSY9PZQQyitqbI4BRR+DBrkhPSx2 +J95dn48En4f7Y+8f0scCwpZdfH84NOT1eM+uN8BxtieOE5RQmL/976dalQEq +MHpqLp45BF5yxauztxnidl0Jkf1bAmBWMU337owhao880Vtc8IXqguUPPxKM +MMkiwBkfe4GuachPq0Qj7LqdcINe4QUVHya5884b4Vn1nK8ChV5wV3pYzyrV +CD0Kmj14ErygJKvx/LUrRrhpw5ut4Vu9IC8pzsCizIj8P6Lkbej3hLMhfBez +XhnhQ3UO+Udze8HFTBaNpBmYWsxz+aGlB/zp4eJtpjDQ1f7X7KihB+T5TL+2 +kmXgVWux1PUqHvD5TE2YywYG9lY7XMhY5wGH223LwzUZaBnkd0Om0h3O2ZyQ +rjZnYKGHK+PFOzeoder9rR1E3meqUZdNXEEiIL5GtZGBK+SEBkaMXSD53z6d +xCYGbo2U5onc6AIrUs2JsccMFCrxz5YXcoGJSo6ivHYGji/lXr71xRlq2WKz +BF4xkPGhXsUjwxlc0qPDFj4x8J/9qVc3vjlBVl24zsO1TNz9qJFLr3wXrF/j +T2zbxUS52um0206OUGAaGTHjzEShOoPuR2aOoBmZbJq2h4nZla1RX9UdwWaG +1Tuwl4nhu5yXg1Y7wpm+H7+8/Jl418ZMn1G3AxbzozZFxDAxxJ99uZ+6A4aM +0l4VFjPxUdKgY9eSA+wPLbi6pYyJ7YfkZt+PO8BCWYXPJIuJfDFlV/7rdwAB +2sBPjUomNvt9mQu65wDWXFKSDxqZON1jk/DP3wHqewq9X/UykStDm+fDiD1Y +8VarHB1gYkbs9zvDL+1hwKJ9QfQ1Eyt/qrAmGu1hvvZrgtt7JvbETLaq5NqD +ynX10i8TTGwS8+Rx32MP9UMmR5OmmPjhT0NrpzU5ntB2UJthYndDS+ZWI3vY +Fx/6MuQHE22ire0Oi5PjNZ7JFllk4uvtGXTxNfZwainTq3aJiXalMp+7ftkB +v3aRsusfJqosvCVL0g6uBdT++PePiRy/27h8Bu3gf6rH2MM= + "]]}, + 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:eJwV13k4VV0XAHBvEpUpZB7uvS7KPI/3WkuEKFMplCFDSqaKRAlFFEmGSIkk +JdM9lVkRZaoomSuVFAkRSTR85/vrPL/nnGfvc/Zaa699qJ5BDj4r2NjY+P5j +Y/v/dWG4/TE9scA4Noz28fc+E+Oea6LhJgOnQGBbSYz6lAzg+i5P0YFU2B14 +aO/YpBoctbvTzz6QD/ETJ05VTgKsmxZJ/dV/F57t5R/wn7SFd/U2QfP9TXA5 +TUXi9Fd3MKdPvJ3t74aU8dahpbEg+NWvlzHTPwKd5a/mJgejoNn0VsHL/DnQ +kf25eT4sBSTf1Xz2VP4D19frRzYqZ4GQv/sdTlN23HhazPeWby6kapjX2Thy +4XvLVTN+XjdgMEu9cZafBwOi/bJGLxRCYkFU1wqxdQhDgzNTd4pAJP3j2bQc +QazmTH/WtqsERJUqYhcLBTF8w4fvq/aWgHjTmShXliCGWR1IBL8SkJ7ZGKrQ +LIis5UjevBMlILc12KNuXBB1Rn0Y0tdLQGvlH92PWkIY2hJjyPulBGxDhEc1 +O4SQet/JoCKkFOJ3bDHuXliPnzHz73hEGYjf7xRf8Z8wcjkV2XqfLoMywR0/ +NdYK487GjJcDiWXQ1+3GuigjjJ6lTt6lV8uAbh9Cs7cUxuT4iyUrH5ZB07bc +VS8uC+NNW1eug//K4I/5j87nDBFkszIJXRdZDimFEcV/zEWwuV9kGxFbDvRV +bAkq9iKo+MiXaZVUDlufrDE57yOCKgO8Pr5XyiHblHJva7IIPn1k2mhTUw76 +aJ359J0IGq9+oPxyrhyOGFx3bz8lig2s3vYXGiywyuOdt04SxT7dQc9FbRbQ +OE8kdGaI4kET1zlJfRa86NlJvLotijYvA5b2GLNANZibfbhTFEsDMnKqrVgw +XhhW+F1cDI9+UqUNe7Jgj5DNlMQ9MTxXmFX4IYUFWsfrYq7Vi6F7WPyq22ks +WDOyQZjaIoYxYbO7D15iQU05O8gPiqHcW62x8SssELauSVH/J4as9ReiGgrJ ++WPo2putxdEWo+uG6lhg9m0pIvCjOJbr1Ja1f2RBuGW64qNJcezQdXtC+8yC +susqQ4IL4jixzWP22DgLRHd4GNRwSWDe8thZySkWTFY/+cmuKoHitYKNuMCC +tFMpIZePSeCxw8u7/3ASMLJePvAxjySWTB92tNxIgEhQg5SIiCRW0eVczJQI +2Nrm9PwARRIFv68OZ6oQUBmRqMynJYkagUarFDQIOPduZsLZSRK1nol79+sT +oFlU5/stXxIHfDe7l1oQEMOw3yuuL4VOan851b0IsHS79l1vkxT6aU8vf/cm +gDf662nHrVL4ZtOqlLv7CLjaHFeY4iGFsZZ62Qp+BFRb1X5ddVYKOegZJl+C +CZhxkj06NyiF8o0H9Z5GElAVEcy5blQK6Ve53ZyiCDh59UGW6rQUxtscUhqJ +JoD7/a66Ayuk0ZdhX//1NAEKvkls7xWlUShUo7nvLAFuoT/OPTsujXc2L3Zy +ZxAgl7lJciJOGr8t1l72vkSQ63ehlDNFGvtWfBSoySQg4vfGF5sKpLHlYqCA +UzYBGafd1tc8k8aP9ss7AnMJeHaxNfemlAy+7/By/32bgLR7QhrNCjIoaj5s +K3OHAJfevU3vNWTQ4o/rT+NiAsZFf49KmMvgC/mqgJBSAtjz1BVTA2XQZjc3 +VzVBgGHZ5fsnG2RQjN/0WH4NAWb9nX+m22TQI+OoSUwtATZsKy3cu2WQI75V +17WOAC+HwEH4JIOP8jtvcT8gwPw4NSqag4KDXXPElkYCnvLV39BfQ0FW34WJ +dY8IsCvY2TbDS0HvI6Hb+0nvfp64bq8oBdPasNq5mYBgmYUbJkoUrKIsvGG0 +EPDjXkrbLzUKemovFk6TjrBUmiK0KaibcPVmTisBcYc8dGnGFAxx4DCdayMg +u7mjbYU9BceN+XgjnxLw2Dd3qvkoBa/VLnmvfUHAlt8GAieOU/CemsmDFNKd +KT262tEU9Kpz3S74koDBmtXRBWcp+MI70oi/m4DptSECcVdJfzHg/vKKgCN5 +vHrM6xS8u4fP26mHgEXtot0/blJw4Gz638ek2d2GC3zKKWixSeFvRi8BoixL +PfMmCn5PGtEX6Scgx+zj7r8tFFS4fbMqmDRtMDK68ikF/S5KnGwlrbLiXrt8 +LwW1wktH/QcIuHtp2/TwIAW3jaw7U0daX2lcIHOYgp1TNYc4BwnYtENqD+c4 +BbPL/BUzSbeOV0U3TFKQ3vd4cYj01kiHm2GzFHx1ellQcoiAXYXx02NLFLyv +Uah1ifQbQ5pg3j9yva75G3SR9uyq13NaScWAg5XJHK8J8F+cjW7joaJQS5Si +H2nDQ/uEPwtQ0X3bhM5V0lwTQ8XsolT0rsqUeEq6z9PWhCpFxdhK7zcLpG++ +bu4zplFx9pVquMwbAkJ26PvvUaDiqqCe72akNz0v+S9CmYq19dpWvqT5zamZ +mRrk8y1q0WdIDz/MUK7QpeLwwcKMfNIlemuauo2oeMQ1IrGOdATr5K4ZpOJd +SrLnS9KWG+cmecypKMjzRGKUtHC+7yklayp+tWavniM9Kv5GZIsdFav7VfTZ +3pLrm2ZXus+RirnHFXNWk47mfrIp1oWKJd3vxvhI28YZDFx3p+IWCx0xQdLS +f0sDGrypmCogqPl/Tx6lsb89QMUKI08tftK13y5lLQVS0SGTW3oN6YT9a1VF +Q6g42PL7+//n2/khqlknnIojetL35sn3obvMO20/ScUcWVf3T6S/d++fDj5N +RZHkwsVu0o3Wb08nJ5Dvs3k86gHp5Mf2YiXnqeg0wr9QQHoPs6WsPZWKYk/4 +9pwlrVhpaDaWSUUrkd67fqR/qZYPrsyhInuH/bIl6bZbskG0fDK+GWG6dNKX +KFkr8RYVlRb1fX6T8dIUiFE7TlAx2mXP9Ruk2RJ/PM6qpOIzjVusw6Q72f1c +KuuoeMHGvcqY9MEfDnGzT6i4FDRb9pzMH8PAVnG+p1TU3Vd7PYU015gRS/kF +FTtOd16wI10wQH/tO0TFV14P97aS+XnY/nJw3DsyXlIXLE6Sxg6eVTdGqTj1 +JV1Zk/TbugX14WkqbnytsZhC5r9wbtuZHew0vK8aTiiS9TIqwpQ8zEXDVo+K +kvY+Mp4pBHGBh4YtP6XKfUjbnsp+0yFCw7KuyOfpZD0m+PhrmijTcKBoJKmL +rOedw+9b3TRomHpk7O1O0vRdjq4ndGnIscHY+DVZ/42WxglVSMOsU/9pvCb3 +h19K/MMqjjR0cRxfruoiYCFHPEbLhYYisvfPK5Ke55OjG7jT0LRF1CG7k9w/ +5gz8zA7QcCr/9tFDz8n+V+e14BJJw9AjE1Z/OwjosK7iTbhJw/08zBVpT8j6 +ffCIOH+HhvFmfrqDj8n9S+3ZjrRyGj712l8qSfqh4IfsazXk8xeXfK80kd/7 +eo1CxXMabpBPVj7WQO5/B91g5AcNz6UKD5dXE5D5dv/I2BINz7+9Vd9RRUC6 +7ZG4qX80/K0xND1SSeaTVsLTxdWyaDZwwGFtBQGnloldfNKymChsrc0g+8HB +RI5ghrksBlLOO8oUEcAoLsm7dEkWb45HP/hO9qvXlOLczVdk0aFi1r6L7GcR +l4quzefKYuzqh0RROtkvYwqvOhTJYlewSP+uVDK/nPKyeOtlUc61oPvyeQI2 +cqSnnPkgi85nOF0ryH4p7H48+qgyHa3nP9naBxJQ0RMeJadBx+BfZdJf/AnY +YXXsZI8OHftTv/adPEhAqk7oCU2gY5pyFmfBfgJ4uIOOTdvTcSa5PrbXk4CV +NZ7B+8Lo2PRMpLV3JwGzAlYeO5voWPvFYpMDk4ABf9oLv1Y64nppwTgjMt4t +SxD1jI4jjHXpFQYEpEQUy9zuo6Ohuncxny4B6iPc735N0JEryXf7bVUCAoku +1xxBOUzKcbjlL0PAhK3j7lFvOYzb+NzT6h8LRpM8dh7mlMdwDlH9G9UsCJxQ +pqlzy6NXnIZRSCULflr8mpril8fgDQdPm94nz2/sqXEHxOXRuT1z7E05C9TD +m+97qMhj5s2tUsvkeS3SR17Qdrs82pqban5OJ89zxpNdSrnyyBdyqehkEAu2 +fAvb8klXAaWfGDovyJDnMS+uI/ejNuDbxJjZnMYy8n9CZEV800bM2n7sXZdU +KQg8l09mfVPES+f0+wMiikEyodxOV1cZS5TErSnXiiBLyYBf0FcFVwt88onq +vQUd4iY6cxdVsSFRIfTNukIwlGxKUetTQzMTt+wSxQLgZc8P2XtKHW9dyH+a +5p8P0jEyDGd5DXzZeiBePCsPVsvtqXRo1UAGr+WQdmMOqDLFysNcNfFc2pfl +oopsODws0GzFpoXzz2Iqhq9mwre5JMctWVr4Z2eGUvpkOliotWRvUdHG/S23 +6XgiFR7OGS3/7NTGG2kqAVz8KRCorDn00kcHX9hpdSVwJAFz2rvHebUuhtbd +eBi4MgE200W38eTrorB/8u/fpbGwIfrcsSY9PZQQyitqbI4BRR+DBrkhPSx2 +J95dn48En4f7Y+8f0scCwpZdfH84NOT1eM+uN8BxtieOE5RQmL/976dalQEq +MHpqLp45BF5yxauztxnidl0Jkf1bAmBWMU337owhao880Vtc8IXqguUPPxKM +MMkiwBkfe4GuachPq0Qj7LqdcINe4QUVHya5884b4Vn1nK8ChV5wV3pYzyrV +CD0Kmj14ErygJKvx/LUrRrhpw5ut4Vu9IC8pzsCizIj8P6Lkbej3hLMhfBez +XhnhQ3UO+Udze8HFTBaNpBmYWsxz+aGlB/zp4eJtpjDQ1f7X7KihB+T5TL+2 +kmXgVWux1PUqHvD5TE2YywYG9lY7XMhY5wGH223LwzUZaBnkd0Om0h3O2ZyQ +rjZnYKGHK+PFOzeoder9rR1E3meqUZdNXEEiIL5GtZGBK+SEBkaMXSD53z6d +xCYGbo2U5onc6AIrUs2JsccMFCrxz5YXcoGJSo6ivHYGji/lXr71xRlq2WKz +BF4xkPGhXsUjwxlc0qPDFj4x8J/9qVc3vjlBVl24zsO1TNz9qJFLr3wXrF/j +T2zbxUS52um0206OUGAaGTHjzEShOoPuR2aOoBmZbJq2h4nZla1RX9UdwWaG +1Tuwl4nhu5yXg1Y7wpm+H7+8/Jl418ZMn1G3AxbzozZFxDAxxJ99uZ+6A4aM +0l4VFjPxUdKgY9eSA+wPLbi6pYyJ7YfkZt+PO8BCWYXPJIuJfDFlV/7rdwAB +2sBPjUomNvt9mQu65wDWXFKSDxqZON1jk/DP3wHqewq9X/UykStDm+fDiD1Y +8VarHB1gYkbs9zvDL+1hwKJ9QfQ1Eyt/qrAmGu1hvvZrgtt7JvbETLaq5NqD +ynX10i8TTGwS8+Rx32MP9UMmR5OmmPjhT0NrpzU5ntB2UJthYndDS+ZWI3vY +Fx/6MuQHE22ire0Oi5PjNZ7JFllk4uvtGXTxNfZwainTq3aJiXalMp+7ftkB +v3aRsusfJqosvCVL0g6uBdT++PePiRy/27h8Bu3gf6rH2MM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06977958652994179}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.06977958652994179}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJwV13k4VV0XAHBvEpUpZB7uvS7KPI/3WkuEKFMplCFDSqaKRAlFFEmGSIkk +JdM9lVkRZaoomSuVFAkRSTR85/vrPL/nnGfvc/Zaa699qJ5BDj4r2NjY+P5j +Y/v/dWG4/TE9scA4Noz28fc+E+Oea6LhJgOnQGBbSYz6lAzg+i5P0YFU2B14 +aO/YpBoctbvTzz6QD/ETJ05VTgKsmxZJ/dV/F57t5R/wn7SFd/U2QfP9TXA5 +TUXi9Fd3MKdPvJ3t74aU8dahpbEg+NWvlzHTPwKd5a/mJgejoNn0VsHL/DnQ +kf25eT4sBSTf1Xz2VP4D19frRzYqZ4GQv/sdTlN23HhazPeWby6kapjX2Thy +4XvLVTN+XjdgMEu9cZafBwOi/bJGLxRCYkFU1wqxdQhDgzNTd4pAJP3j2bQc +QazmTH/WtqsERJUqYhcLBTF8w4fvq/aWgHjTmShXliCGWR1IBL8SkJ7ZGKrQ +LIis5UjevBMlILc12KNuXBB1Rn0Y0tdLQGvlH92PWkIY2hJjyPulBGxDhEc1 +O4SQet/JoCKkFOJ3bDHuXliPnzHz73hEGYjf7xRf8Z8wcjkV2XqfLoMywR0/ +NdYK487GjJcDiWXQ1+3GuigjjJ6lTt6lV8uAbh9Cs7cUxuT4iyUrH5ZB07bc +VS8uC+NNW1eug//K4I/5j87nDBFkszIJXRdZDimFEcV/zEWwuV9kGxFbDvRV +bAkq9iKo+MiXaZVUDlufrDE57yOCKgO8Pr5XyiHblHJva7IIPn1k2mhTUw76 +aJ359J0IGq9+oPxyrhyOGFx3bz8lig2s3vYXGiywyuOdt04SxT7dQc9FbRbQ +OE8kdGaI4kET1zlJfRa86NlJvLotijYvA5b2GLNANZibfbhTFEsDMnKqrVgw +XhhW+F1cDI9+UqUNe7Jgj5DNlMQ9MTxXmFX4IYUFWsfrYq7Vi6F7WPyq22ks +WDOyQZjaIoYxYbO7D15iQU05O8gPiqHcW62x8SssELauSVH/J4as9ReiGgrJ ++WPo2putxdEWo+uG6lhg9m0pIvCjOJbr1Ja1f2RBuGW64qNJcezQdXtC+8yC +susqQ4IL4jixzWP22DgLRHd4GNRwSWDe8thZySkWTFY/+cmuKoHitYKNuMCC +tFMpIZePSeCxw8u7/3ASMLJePvAxjySWTB92tNxIgEhQg5SIiCRW0eVczJQI +2Nrm9PwARRIFv68OZ6oQUBmRqMynJYkagUarFDQIOPduZsLZSRK1nol79+sT +oFlU5/stXxIHfDe7l1oQEMOw3yuuL4VOan851b0IsHS79l1vkxT6aU8vf/cm +gDf662nHrVL4ZtOqlLv7CLjaHFeY4iGFsZZ62Qp+BFRb1X5ddVYKOegZJl+C +CZhxkj06NyiF8o0H9Z5GElAVEcy5blQK6Ve53ZyiCDh59UGW6rQUxtscUhqJ +JoD7/a66Ayuk0ZdhX//1NAEKvkls7xWlUShUo7nvLAFuoT/OPTsujXc2L3Zy +ZxAgl7lJciJOGr8t1l72vkSQ63ehlDNFGvtWfBSoySQg4vfGF5sKpLHlYqCA +UzYBGafd1tc8k8aP9ss7AnMJeHaxNfemlAy+7/By/32bgLR7QhrNCjIoaj5s +K3OHAJfevU3vNWTQ4o/rT+NiAsZFf49KmMvgC/mqgJBSAtjz1BVTA2XQZjc3 +VzVBgGHZ5fsnG2RQjN/0WH4NAWb9nX+m22TQI+OoSUwtATZsKy3cu2WQI75V +17WOAC+HwEH4JIOP8jtvcT8gwPw4NSqag4KDXXPElkYCnvLV39BfQ0FW34WJ +dY8IsCvY2TbDS0HvI6Hb+0nvfp64bq8oBdPasNq5mYBgmYUbJkoUrKIsvGG0 +EPDjXkrbLzUKemovFk6TjrBUmiK0KaibcPVmTisBcYc8dGnGFAxx4DCdayMg +u7mjbYU9BceN+XgjnxLw2Dd3qvkoBa/VLnmvfUHAlt8GAieOU/CemsmDFNKd +KT262tEU9Kpz3S74koDBmtXRBWcp+MI70oi/m4DptSECcVdJfzHg/vKKgCN5 +vHrM6xS8u4fP26mHgEXtot0/blJw4Gz638ek2d2GC3zKKWixSeFvRi8BoixL +PfMmCn5PGtEX6Scgx+zj7r8tFFS4fbMqmDRtMDK68ikF/S5KnGwlrbLiXrt8 +LwW1wktH/QcIuHtp2/TwIAW3jaw7U0daX2lcIHOYgp1TNYc4BwnYtENqD+c4 +BbPL/BUzSbeOV0U3TFKQ3vd4cYj01kiHm2GzFHx1ellQcoiAXYXx02NLFLyv +Uah1ifQbQ5pg3j9yva75G3SR9uyq13NaScWAg5XJHK8J8F+cjW7joaJQS5Si +H2nDQ/uEPwtQ0X3bhM5V0lwTQ8XsolT0rsqUeEq6z9PWhCpFxdhK7zcLpG++ +bu4zplFx9pVquMwbAkJ26PvvUaDiqqCe72akNz0v+S9CmYq19dpWvqT5zamZ +mRrk8y1q0WdIDz/MUK7QpeLwwcKMfNIlemuauo2oeMQ1IrGOdATr5K4ZpOJd +SrLnS9KWG+cmecypKMjzRGKUtHC+7yklayp+tWavniM9Kv5GZIsdFav7VfTZ +3pLrm2ZXus+RirnHFXNWk47mfrIp1oWKJd3vxvhI28YZDFx3p+IWCx0xQdLS +f0sDGrypmCogqPl/Tx6lsb89QMUKI08tftK13y5lLQVS0SGTW3oN6YT9a1VF +Q6g42PL7+//n2/khqlknnIojetL35sn3obvMO20/ScUcWVf3T6S/d++fDj5N +RZHkwsVu0o3Wb08nJ5Dvs3k86gHp5Mf2YiXnqeg0wr9QQHoPs6WsPZWKYk/4 +9pwlrVhpaDaWSUUrkd67fqR/qZYPrsyhInuH/bIl6bZbskG0fDK+GWG6dNKX +KFkr8RYVlRb1fX6T8dIUiFE7TlAx2mXP9Ruk2RJ/PM6qpOIzjVusw6Q72f1c +KuuoeMHGvcqY9MEfDnGzT6i4FDRb9pzMH8PAVnG+p1TU3Vd7PYU015gRS/kF +FTtOd16wI10wQH/tO0TFV14P97aS+XnY/nJw3DsyXlIXLE6Sxg6eVTdGqTj1 +JV1Zk/TbugX14WkqbnytsZhC5r9wbtuZHew0vK8aTiiS9TIqwpQ8zEXDVo+K +kvY+Mp4pBHGBh4YtP6XKfUjbnsp+0yFCw7KuyOfpZD0m+PhrmijTcKBoJKmL +rOedw+9b3TRomHpk7O1O0vRdjq4ndGnIscHY+DVZ/42WxglVSMOsU/9pvCb3 +h19K/MMqjjR0cRxfruoiYCFHPEbLhYYisvfPK5Ke55OjG7jT0LRF1CG7k9w/ +5gz8zA7QcCr/9tFDz8n+V+e14BJJw9AjE1Z/OwjosK7iTbhJw/08zBVpT8j6 +ffCIOH+HhvFmfrqDj8n9S+3ZjrRyGj712l8qSfqh4IfsazXk8xeXfK80kd/7 +eo1CxXMabpBPVj7WQO5/B91g5AcNz6UKD5dXE5D5dv/I2BINz7+9Vd9RRUC6 +7ZG4qX80/K0xND1SSeaTVsLTxdWyaDZwwGFtBQGnloldfNKymChsrc0g+8HB +RI5ghrksBlLOO8oUEcAoLsm7dEkWb45HP/hO9qvXlOLczVdk0aFi1r6L7GcR +l4quzefKYuzqh0RROtkvYwqvOhTJYlewSP+uVDK/nPKyeOtlUc61oPvyeQI2 +cqSnnPkgi85nOF0ryH4p7H48+qgyHa3nP9naBxJQ0RMeJadBx+BfZdJf/AnY +YXXsZI8OHftTv/adPEhAqk7oCU2gY5pyFmfBfgJ4uIOOTdvTcSa5PrbXk4CV +NZ7B+8Lo2PRMpLV3JwGzAlYeO5voWPvFYpMDk4ABf9oLv1Y64nppwTgjMt4t +SxD1jI4jjHXpFQYEpEQUy9zuo6Ohuncxny4B6iPc735N0JEryXf7bVUCAoku +1xxBOUzKcbjlL0PAhK3j7lFvOYzb+NzT6h8LRpM8dh7mlMdwDlH9G9UsCJxQ +pqlzy6NXnIZRSCULflr8mpril8fgDQdPm94nz2/sqXEHxOXRuT1z7E05C9TD +m+97qMhj5s2tUsvkeS3SR17Qdrs82pqban5OJ89zxpNdSrnyyBdyqehkEAu2 +fAvb8klXAaWfGDovyJDnMS+uI/ejNuDbxJjZnMYy8n9CZEV800bM2n7sXZdU +KQg8l09mfVPES+f0+wMiikEyodxOV1cZS5TErSnXiiBLyYBf0FcFVwt88onq +vQUd4iY6cxdVsSFRIfTNukIwlGxKUetTQzMTt+wSxQLgZc8P2XtKHW9dyH+a +5p8P0jEyDGd5DXzZeiBePCsPVsvtqXRo1UAGr+WQdmMOqDLFysNcNfFc2pfl +oopsODws0GzFpoXzz2Iqhq9mwre5JMctWVr4Z2eGUvpkOliotWRvUdHG/S23 +6XgiFR7OGS3/7NTGG2kqAVz8KRCorDn00kcHX9hpdSVwJAFz2rvHebUuhtbd +eBi4MgE200W38eTrorB/8u/fpbGwIfrcsSY9PZQQyitqbI4BRR+DBrkhPSx2 +J95dn48En4f7Y+8f0scCwpZdfH84NOT1eM+uN8BxtieOE5RQmL/976dalQEq +MHpqLp45BF5yxauztxnidl0Jkf1bAmBWMU337owhao880Vtc8IXqguUPPxKM +MMkiwBkfe4GuachPq0Qj7LqdcINe4QUVHya5884b4Vn1nK8ChV5wV3pYzyrV +CD0Kmj14ErygJKvx/LUrRrhpw5ut4Vu9IC8pzsCizIj8P6Lkbej3hLMhfBez +XhnhQ3UO+Udze8HFTBaNpBmYWsxz+aGlB/zp4eJtpjDQ1f7X7KihB+T5TL+2 +kmXgVWux1PUqHvD5TE2YywYG9lY7XMhY5wGH223LwzUZaBnkd0Om0h3O2ZyQ +rjZnYKGHK+PFOzeoder9rR1E3meqUZdNXEEiIL5GtZGBK+SEBkaMXSD53z6d +xCYGbo2U5onc6AIrUs2JsccMFCrxz5YXcoGJSo6ivHYGji/lXr71xRlq2WKz +BF4xkPGhXsUjwxlc0qPDFj4x8J/9qVc3vjlBVl24zsO1TNz9qJFLr3wXrF/j +T2zbxUS52um0206OUGAaGTHjzEShOoPuR2aOoBmZbJq2h4nZla1RX9UdwWaG +1Tuwl4nhu5yXg1Y7wpm+H7+8/Jl418ZMn1G3AxbzozZFxDAxxJ99uZ+6A4aM +0l4VFjPxUdKgY9eSA+wPLbi6pYyJ7YfkZt+PO8BCWYXPJIuJfDFlV/7rdwAB +2sBPjUomNvt9mQu65wDWXFKSDxqZON1jk/DP3wHqewq9X/UykStDm+fDiD1Y +8VarHB1gYkbs9zvDL+1hwKJ9QfQ1Eyt/qrAmGu1hvvZrgtt7JvbETLaq5NqD +ynX10i8TTGwS8+Rx32MP9UMmR5OmmPjhT0NrpzU5ntB2UJthYndDS+ZWI3vY +Fx/6MuQHE22ire0Oi5PjNZ7JFllk4uvtGXTxNfZwainTq3aJiXalMp+7ftkB +v3aRsusfJqosvCVL0g6uBdT++PePiRy/27h8Bu3gf6rH2MM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06977958652994179}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, + 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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.061043}}, + "Frame" -> {{False, 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.061043}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.061043}}, + "Frame" -> {{False, 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.06977958652994179}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994015833695395*^9}, + CellLabel-> + "Out[141]=",ExpressionUUID->"03da7b53-20e8-4e09-9635-a2ee70347052"] +}, Open ]], Cell[CellGroupData[{ @@ -7223,26 +14893,30 @@ 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[{"(", - FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], - ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + RowBox[{"4", "*", "x", "*", "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[{"-", @@ -7262,18 +14936,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[\\\"6.005314033876639`*^-159\\\", \ +RowBox[{\\\"164243120455479739170682\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"105\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 142, 73, + 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994015833724123*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"fe0d54ba-6640-457c-9bc3-3f49217112f6"], -Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"6941b2ce-51d7-0b43-b524-1e41573ef5f9"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.006283982770102`*^-161\\\", \ +RowBox[{\\\"552513857212233842570175\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"108\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 142, 74, + 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9940158337293377`*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"9e9136ec-d1e1-4af7-814f-75ee8b67ad03"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6861856819933614`*^-164\\\", \ +RowBox[{\\\"192330073695578600598678\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"112\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 142, 75, + 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994015833734573*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"3037d00a-3626-43d4-b074-3314e88e9c6a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 142, 76, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994015833739521*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"eea3ea0d-3184-44fe-8d92-d694d0d6579e"], + +Cell[BoxData["10.630131048996635`"], "Output", + CellChangeTimes->{3.994015864646861*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"45e12e4d-fd44-4707-934d-2f5e3074dceb"] }, Open ]], Cell[CellGroupData[{ @@ -7340,27 +15071,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[\\\"3.3628058218457026`*^-206\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 143, 77, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994015864674088*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"ccea86a6-557b-4238-935a-a869bc42b526"], 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[\\\"7.192073284431028`*^-211\\\", \ +RowBox[{\\\"143094757247897252281238\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"64\\\", \\\"\[RightSkeleton]\\\"}], \\\"3737600000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 143, 78, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994015864679028*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"493c687c-06ac-4c93-b07e-971e0083f112"], -Cell[BoxData["0.576602516746911`"], "Output",ExpressionUUID->"7a6165f1-f4e7-1f40-9890-5c13218f6833"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.538177369403873`*^-215\\\", \ +RowBox[{\\\"302788506336550585827101\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"67\\\", \\\"\[RightSkeleton]\\\"}], \\\"8761600000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 143, 79, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9940158646843224`*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"5eb71e44-ae7d-4e45-95bb-f842c71e4aff"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 143, 80, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9940158646890497`*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"510564fd-62db-446c-823d-adb7429ced80"], + +Cell[BoxData["0.7783523684832732`"], "Output", + CellChangeTimes->{3.994015868698305*^9}, + CellLabel-> + "Out[143]=",ExpressionUUID->"0335a28f-6a47-4a61-995f-864ad8492d86"] }, Open ]], Cell[CellGroupData[{ @@ -7381,8 +15157,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 +15202,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[\\\"3.3628058218457026`*^-206\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 144, 81, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994015868721972*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"403fded1-5e84-4f24-991f-c6eef776cc74"], 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[\\\"7.192073284431028`*^-211\\\", \ +RowBox[{\\\"143094757247897252281238\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"64\\\", \\\"\[RightSkeleton]\\\"}], \\\"3737600000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 144, 82, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9940158687267323`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"486ea199-0703-4152-95eb-568cc0da205b"], -Cell[BoxData["3.32141991539404`"], "Output",ExpressionUUID->"c7a13a95-1179-054f-9108-fe96e6564880"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.538177369403873`*^-215\\\", \ +RowBox[{\\\"302788506336550585827101\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"67\\\", \\\"\[RightSkeleton]\\\"}], \\\"8761600000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 144, 83, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994015868731619*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"3e8eb529-6fab-4a3c-bcb9-af72c311b534"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 144, 84, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9940158687360497`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"0efec3e1-9fd8-4a3c-a13a-da58c300ce40"], + +Cell[BoxData["32.42738386522707`"], "Output", + CellChangeTimes->{3.994015872503212*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"42926ba4-ee7a-4e4a-849d-3e50fcec278e"] }, Open ]], Cell[CellGroupData[{ @@ -7468,8 +15288,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 +15333,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[\\\"3.3628058218457026`*^-206\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 145, 85, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9940158725291348`*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"ed544900-31f9-4559-b351-069c0439c5bf"], 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[\\\"7.192073284431028`*^-211\\\", \ +RowBox[{\\\"143094757247897252281238\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"64\\\", \\\"\[RightSkeleton]\\\"}], \\\"3737600000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 145, 86, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9940158725338793`*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"c6315fcd-b277-461c-8315-3d503f71f865"], -Cell[BoxData["18.419619005098298`"], "Output",ExpressionUUID->"7d22c643-14ba-7245-8972-7de9bf840536"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.538177369403873`*^-215\\\", \ +RowBox[{\\\"302788506336550585827101\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"67\\\", \\\"\[RightSkeleton]\\\"}], \\\"8761600000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 145, 87, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994015872538718*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"2bcedc21-ed2b-468f-9972-903ccf73976b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 145, 88, 31386066428003155889, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994015872542972*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"388b77dc-fbfc-42de-b129-852657c76579"], + +Cell[BoxData["5.044499283291505`"], "Output", + CellChangeTimes->{3.994015875005397*^9}, + CellLabel-> + "Out[145]=",ExpressionUUID->"d2bfa96a-52fc-424e-8adb-cc64e2c27fce"] }, Open ]], Cell[CellGroupData[{ @@ -7543,17 +15407,27 @@ 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.060857101315642016`"], "Output", + CellChangeTimes->{3.994015875026436*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"3a3fdd23-0665-40f6-8835-486c3553139d"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input", + CellLabel-> + "In[147]:=",ExpressionUUID->"f9e62303-c2d9-4a58-92bf-42febd4f2f02"] }, -WindowSize->{718.5, 729.75}, -WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +Evaluator->"kernel 4", +WindowSize->{714, 288}, +WindowMargins->{{-3, Automatic}, {3, Automatic}}, CellContext->Notebook, -FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +Magnification:>1.9 Inherited, +FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", StyleDefinitions->"Default.nb", ExpressionUUID->"370f2b53-61d0-7c4a-817b-bf9dca2c7a0a" ] @@ -7568,354 +15442,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, 300, 5, 55, "Input",ExpressionUUID->"918838d2-a4a6-4ba1-9647-cf92de98e62e"], +Cell[879, 29, 320, 5, 63, "Output",ExpressionUUID->"1486872b-ef56-40c3-aa9e-867be79f580c"] }, 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[1236, 39, 248, 4, 55, "Input",ExpressionUUID->"b6416221-11cc-432c-9a3c-e69b2be177c1"], +Cell[1487, 45, 325, 5, 63, "Output",ExpressionUUID->"84b400e9-409a-4376-8093-4e70f11e0867"] }, 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[1849, 55, 225, 4, 55, "Input",ExpressionUUID->"50684c07-f02e-4754-8915-f1eaac750483"], +Cell[2077, 61, 329, 5, 63, "Output",ExpressionUUID->"51340441-21f0-47df-95de-874320ee24fc"] }, 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[2443, 71, 175, 3, 55, "Input",ExpressionUUID->"511735e5-eb07-496e-ade8-005f93408bed"], +Cell[2621, 76, 323, 5, 63, "Output",ExpressionUUID->"1a243017-ab27-48bf-af5c-19dacc9098f8"] }, 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[2981, 86, 257, 7, 81, "Input",ExpressionUUID->"15742d07-bc28-4f57-89f2-40571b2ff7b3"], +Cell[3241, 95, 338, 5, 63, "Output",ExpressionUUID->"b6bc1d5c-0bed-49f9-a0eb-f4d98ab23a0e"] }, 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[3616, 105, 131, 2, 55, "Input",ExpressionUUID->"967af484-b641-4f2b-b602-709e4d0bd596"], +Cell[3750, 109, 327, 5, 63, "Output",ExpressionUUID->"e5909796-d2b2-4210-965f-4834b2a3f585"] }, 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[4114, 119, 276, 6, 55, "Input",ExpressionUUID->"3b58573d-eb2c-4182-9e82-e5dfca38da10"], +Cell[4393, 127, 338, 5, 63, "Output",ExpressionUUID->"48fa746a-ab66-449f-a197-e484ccb0ae8a"] }, 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[4768, 137, 257, 7, 55, "Input",ExpressionUUID->"6ccbed93-757b-410c-b6c8-5f802d1bcad6"], +Cell[5028, 146, 336, 5, 63, "Output",ExpressionUUID->"125b08e2-f4fd-4356-9132-db8a251c4965"] }, 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[5401, 156, 277, 5, 55, "Input",ExpressionUUID->"827b20ed-e176-43a9-865c-a4ee13cab9a5"], +Cell[5681, 163, 306, 5, 63, "Output",ExpressionUUID->"8291f979-f7e0-4a14-b3be-7fbb8a266dab"] }, 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[6024, 173, 226, 4, 55, "Input",ExpressionUUID->"fcb07d92-35f4-469d-81e7-6143eb45650e"], +Cell[6253, 179, 302, 5, 63, "Output",ExpressionUUID->"edd8cf06-ed88-45c0-af5b-0428e5bd7b23"] }, 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[6592, 189, 129, 2, 55, "Input",ExpressionUUID->"d92b58ff-8102-43d1-82bf-240f2ea4d172"], +Cell[6724, 193, 324, 5, 63, "Output",ExpressionUUID->"853aa14d-e1e9-4912-ae23-089c342b92d1"] }, 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[7085, 203, 129, 2, 55, "Input",ExpressionUUID->"85d176ac-f7e5-4e16-af8c-64d214a5167d"], +Cell[7217, 207, 322, 5, 63, "Output",ExpressionUUID->"29fe21ad-c3f3-478b-a7a6-4fdbc64ef5fa"] }, 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[7576, 217, 557, 19, 148, "Input",ExpressionUUID->"3f40e52a-2d03-43d0-95b6-0179705de33f"], +Cell[8136, 238, 342, 5, 63, "Output",ExpressionUUID->"594c184d-9abd-4ad1-b33a-83f1ae7fd7f8"] }, 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[8515, 248, 557, 19, 148, "Input",ExpressionUUID->"99ed8cfe-7ca1-4200-9aaf-4e930f3d5354"], +Cell[9075, 269, 338, 5, 63, "Output",ExpressionUUID->"fb224f9a-6812-4c2c-92c4-6207845b57a8"] }, 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[9450, 279, 1588, 50, 640, "Input",ExpressionUUID->"ce7975d5-7322-4067-b28f-41ef262f695a"], +Cell[11041, 331, 340, 5, 63, "Output",ExpressionUUID->"305ff1c8-8dd4-481a-aa17-a99b301f9f9f"] }, 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[11418, 341, 1422, 46, 562, "Input",ExpressionUUID->"37138beb-5866-4c01-b2e5-8b8414eb2a74"], +Cell[12843, 389, 355, 6, 63, "Output",ExpressionUUID->"2ac0cfd1-cd6e-4d70-8315-b271e33d5072"] }, 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[13235, 400, 1422, 46, 562, "Input",ExpressionUUID->"f78f2a50-6d72-4804-92b3-fef544519984"], +Cell[14660, 448, 357, 6, 63, "Output",ExpressionUUID->"93002cd0-b6a2-46b6-aa80-0ec95edfb02a"] }, 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[15054, 459, 1588, 50, 640, "Input",ExpressionUUID->"5f2e899e-5df9-4ca7-89d4-71a7e012b565"], +Cell[16645, 511, 330, 5, 63, "Output",ExpressionUUID->"fcecc7cd-f4da-4323-b943-538461507e98"] }, 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[17012, 521, 131, 2, 55, "Input",ExpressionUUID->"fe0abe70-df94-4034-b84f-db4f0db7eea4"], +Cell[17146, 525, 320, 5, 63, "Output",ExpressionUUID->"175a5f03-b203-4713-b1a9-84bae8947c56"] }, 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[17503, 535, 133, 2, 55, "Input",ExpressionUUID->"3deac99f-f8bb-417f-a8e2-507fb30839c0"], +Cell[17639, 539, 324, 5, 63, "Output",ExpressionUUID->"86e13b10-f750-4743-9281-68a6b1ab7e44"] }, 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[18000, 549, 134, 2, 55, "Input",ExpressionUUID->"47cd1a03-86d0-4737-900c-a51da7895d9a"], +Cell[18137, 553, 326, 5, 63, "Output",ExpressionUUID->"32e617e6-9640-4097-ad00-d8e77da1eda1"] }, 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[18500, 563, 219, 4, 55, "Input",ExpressionUUID->"6ec4e84f-45a5-4c75-81a0-bebafd50c817"], +Cell[18722, 569, 337, 6, 63, "Output",ExpressionUUID->"3a376165-65bc-4914-9873-79f514a5a680"] }, 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[19096, 580, 134, 2, 55, "Input",ExpressionUUID->"0f6bfce1-f0cb-43dd-b35d-a882e8546a35"], +Cell[19233, 584, 328, 5, 63, "Output",ExpressionUUID->"f2f2981c-e4f0-4b72-9589-17efa387fba6"] }, 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[19598, 594, 324, 5, 55, "Input",ExpressionUUID->"8c874970-4918-4cdd-a1a6-1374dd258d20"], +Cell[19925, 601, 321, 5, 63, "Output",ExpressionUUID->"34312856-f192-420d-8662-bca0e110f501"] }, 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[20283, 611, 296, 5, 55, "Input",ExpressionUUID->"57158e18-b7e2-48ee-a13b-5f4898c3c09b"], +Cell[20582, 618, 323, 5, 63, "Output",ExpressionUUID->"7b31a732-2d75-4112-88fd-13f3b6817df2"] }, 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[20942, 628, 219, 4, 55, "Input",ExpressionUUID->"51d0f7a2-a9cb-4da9-9e69-88374e8120a3"], +Cell[21164, 634, 326, 5, 63, "Output",ExpressionUUID->"81623a7b-8190-4a0d-bcd7-598c1f669b60"] }, 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[21527, 644, 350, 10, 81, "Input",ExpressionUUID->"74b9de83-14f4-4139-b77d-e3ff0c000edb"], +Cell[21880, 656, 337, 5, 63, "Output",ExpressionUUID->"5bc10d6d-e586-4bc4-962b-7bde85eeaa71"] }, 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[22254, 666, 350, 10, 81, "Input",ExpressionUUID->"c9a81967-100c-485c-91a9-49bf26e4f52d"], +Cell[22607, 678, 359, 6, 63, "Output",ExpressionUUID->"4e2f67ab-e4c6-4a42-96a6-dd9db476681f"] }, 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[23003, 689, 994, 26, 488, "Input",ExpressionUUID->"fa9e2e75-56c3-4067-818c-51bf10bb54c7"], +Cell[24000, 717, 342, 5, 63, "Output",ExpressionUUID->"36167465-e9c2-46f7-84df-116e3f99b3da"] }, 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[24379, 727, 199, 3, 55, "Input",ExpressionUUID->"b8723edb-c6fa-48c4-960c-4c59a7f407c2"], +Cell[24581, 732, 324, 5, 63, "Output",ExpressionUUID->"9d57eacf-410b-4d83-8f62-549ce89af4e1"] }, 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[24942, 742, 329, 5, 55, "Input",ExpressionUUID->"7bce1b87-e8ed-4b04-9589-72bd4e677761"], +Cell[25274, 749, 279, 4, 63, "Output",ExpressionUUID->"c5ce0fd2-f648-4c35-b87d-a8be09736465"] +}, Open ]], +Cell[25568, 756, 173, 2, 40, "Input",ExpressionUUID->"6ff3e193-1915-4438-85b0-06a3b38972b3"], +Cell[CellGroupData[{ +Cell[25766, 762, 327, 5, 55, "Input",ExpressionUUID->"ef4a5542-f92d-4aec-8404-dda8b7913cab"], +Cell[26096, 769, 273, 4, 63, "Output",ExpressionUUID->"43c1b522-a5af-421a-aaf8-85abea6ae801"] +}, Open ]], +Cell[26384, 776, 173, 2, 40, "Input",ExpressionUUID->"2ca1acac-07b8-45ab-a7ef-37bbb9e1ecae"], +Cell[CellGroupData[{ +Cell[26582, 782, 326, 5, 55, "Input",ExpressionUUID->"b6df5e6e-2214-4280-a4e4-f85223870b0d"], +Cell[26911, 789, 276, 4, 63, "Output",ExpressionUUID->"fdf88c21-dd48-4c82-850d-785ca8ad7b79"] +}, Open ]], +Cell[27202, 796, 173, 2, 40, "Input",ExpressionUUID->"884ffd4d-7e33-4e8b-9643-f639c2e92518"], +Cell[CellGroupData[{ +Cell[27400, 802, 354, 5, 55, "Input",ExpressionUUID->"6c400132-b5aa-45ff-ac26-5bb374d76696"], +Cell[27757, 809, 280, 4, 63, "Output",ExpressionUUID->"871087ea-1346-46a5-8866-bd301550985f"] +}, Open ]], +Cell[28052, 816, 171, 2, 40, "Input",ExpressionUUID->"6b1b80a9-8a5c-450f-8f3a-3a1e5f720e4f"], +Cell[CellGroupData[{ +Cell[28248, 822, 299, 5, 55, "Input",ExpressionUUID->"b105c8a6-1bcc-496c-b415-770ba11465de"], +Cell[28550, 829, 274, 4, 63, "Output",ExpressionUUID->"2ee39ffa-e7e4-4a72-b5c0-e74007867357"] +}, Open ]], +Cell[28839, 836, 171, 2, 40, "Input",ExpressionUUID->"7c8178a6-c40f-4438-a126-768dc7aff32a"], +Cell[CellGroupData[{ +Cell[29035, 842, 302, 5, 55, "Input",ExpressionUUID->"de493cbc-cb61-4033-a7fa-ee580a69cd57"], +Cell[29340, 849, 278, 4, 63, "Output",ExpressionUUID->"7f4650e1-5d8b-469b-9dcb-28e46183ac80"] +}, Open ]], +Cell[29633, 856, 173, 2, 40, "Input",ExpressionUUID->"a89d3760-2ae4-4d78-9070-5382a3c40375"], +Cell[CellGroupData[{ +Cell[29831, 862, 305, 5, 55, "Input",ExpressionUUID->"a279fdc1-4241-45de-b132-65c61f6b42df"], +Cell[30139, 869, 273, 4, 63, "Output",ExpressionUUID->"53700dd0-2aca-4249-966c-406e12915e39"] +}, Open ]], +Cell[30427, 876, 172, 2, 40, "Input",ExpressionUUID->"73a6216d-b3de-42df-b9ad-3611f76b13ee"], +Cell[CellGroupData[{ +Cell[30624, 882, 275, 4, 55, "Input",ExpressionUUID->"da1369cb-81da-460b-b4b3-efcb54c82463"], +Cell[30902, 888, 279, 4, 63, "Output",ExpressionUUID->"2583883b-34e3-40cb-9b82-b215332d6cae"] +}, Open ]], +Cell[31196, 895, 175, 2, 40, "Input",ExpressionUUID->"9ddc44bb-89ac-4c8e-99fc-bb9d756ab834"], +Cell[CellGroupData[{ +Cell[31396, 901, 19809, 485, 7170, "Input",ExpressionUUID->"b745e083-032a-41d8-a4b6-e410120391b8"], +Cell[51208, 1388, 341, 5, 63, "Output",ExpressionUUID->"da587033-ae5b-40b5-a540-e4bd2435622f"] }, 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[51586, 1398, 19748, 489, 7209, "Input",ExpressionUUID->"578dad2e-c257-4b1f-a85c-473b5ed020ff"], +Cell[71337, 1889, 339, 5, 63, "Output",ExpressionUUID->"12f17dab-c8fc-427f-a809-ddd8d0d8e9fe"] }, 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[71713, 1899, 19748, 483, 7208, "Input",ExpressionUUID->"5a7c9205-7868-49aa-bd1f-7860d96e0204"], +Cell[91464, 2384, 356, 6, 63, "Output",ExpressionUUID->"84c786fd-745a-4f7a-bf9d-12efd8355ad2"] }, 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[91857, 2395, 22534, 553, 8286, "Input",ExpressionUUID->"790feb42-27a7-41f8-8d14-d714ee4e563e"], +Cell[114394, 2950, 360, 6, 63, "Output",ExpressionUUID->"e6e89634-31cd-4996-b9c6-375d04feaded"] }, 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[114791, 2961, 22535, 553, 8286, "Input",ExpressionUUID->"4c5cf4b6-c3d4-4794-81dd-88a2241e3ce4"], +Cell[137329, 3516, 357, 6, 63, "Output",ExpressionUUID->"e14b0d22-6b40-4280-a058-25d539d75fe3"] }, 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[137723, 3527, 25491, 626, 9406, "Input",ExpressionUUID->"013ab2d1-acec-4762-bf9f-9f1b06b866f6"], +Cell[163217, 4155, 363, 6, 63, "Output",ExpressionUUID->"a64666b4-6838-47fb-a94e-b1f5483c0164"] }, 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[163617, 4166, 130, 2, 55, "Input",ExpressionUUID->"594f4772-7ef4-4205-842a-f6104dc67c4a"], +Cell[163750, 4170, 320, 5, 63, "Output",ExpressionUUID->"85d87af0-bb71-4b3f-a66c-ddbf9e06a9bd"] }, 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[164107, 4180, 130, 2, 55, "Input",ExpressionUUID->"1fa22f1d-73ad-47f1-b82d-bb242cb91447"], +Cell[164240, 4184, 322, 5, 63, "Output",ExpressionUUID->"89397357-ea27-4695-876c-d8a325b6eee4"] }, 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[164599, 4194, 1144, 39, 630, "Input",ExpressionUUID->"9e14069a-175d-46a8-baa2-10cd8b57aa6f"], +Cell[165746, 4235, 337, 5, 63, "Output",ExpressionUUID->"bb0f4848-d38c-48cb-a996-4e0a0e708c07"] }, 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[166120, 4245, 1041, 35, 627, "Input",ExpressionUUID->"8f8b28d4-c8c3-41e4-9d50-25b741a595ff"], +Cell[167164, 4282, 357, 6, 63, "Output",ExpressionUUID->"a118972f-ed3c-4814-bb6f-c85f439e2187"] }, 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[167558, 4293, 1144, 39, 630, "Input",ExpressionUUID->"e7269253-b0be-4576-87b1-e96c0e2e98cf"], +Cell[168705, 4334, 338, 5, 63, "Output",ExpressionUUID->"040d158d-f55b-430b-bbd2-4eb5f67d07ab"] }, 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[169080, 4344, 108, 1, 55, "Input",ExpressionUUID->"3e7f80d4-9d1e-44e3-b082-0d43b0f3e9ad"], +Cell[169191, 4347, 340, 5, 63, "Output",ExpressionUUID->"2cb3a80d-aa4b-499b-b923-62fa8f04534d"] }, 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[169568, 4357, 108, 1, 55, "Input",ExpressionUUID->"26e13601-34f5-4183-bf4b-70c0fe3153a9"], +Cell[169679, 4360, 357, 6, 63, "Output",ExpressionUUID->"fbf3d6a3-6a5e-4871-96c3-5d256e6804b0"] }, 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[170073, 4371, 108, 1, 55, "Input",ExpressionUUID->"63509028-f04d-4f89-8d84-2c7c33b67c04"], +Cell[170184, 4374, 355, 6, 63, "Output",ExpressionUUID->"ca6e54aa-82e4-4526-947e-000a7071726e"] }, 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[170576, 4385, 108, 1, 55, "Input",ExpressionUUID->"a264c76d-bf3f-4f60-9ea1-3e836f83c5d2"], +Cell[170687, 4388, 342, 5, 63, "Output",ExpressionUUID->"5023c2d8-3d73-46dc-8a0a-d2b3635bfe23"] }, 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[171066, 4398, 107, 1, 55, "Input",ExpressionUUID->"dd51c7ae-7745-45be-834c-78606c9e6cfc"], +Cell[171176, 4401, 343, 5, 63, "Output",ExpressionUUID->"a1c53220-f952-45c5-8645-1040196f0e2d"] }, 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[171556, 4411, 107, 1, 55, "Input",ExpressionUUID->"2f0ce65f-d7c3-4b02-a2b0-214f65769505"], +Cell[171666, 4414, 338, 5, 63, "Output",ExpressionUUID->"f40903e1-e36f-47a6-be60-0f7d841cef90"] }, 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[172041, 4424, 497, 16, 182, "Input",ExpressionUUID->"7179abf6-f683-447f-abe7-e2c50d2a705e"], +Cell[172541, 4442, 357, 6, 63, "Output",ExpressionUUID->"09fe3e5a-0172-41d7-a266-e5b9924b093f"] }, 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[172935, 4453, 497, 16, 182, "Input",ExpressionUUID->"2821f785-dac7-4cd2-ae87-031a41d9e853"], +Cell[173435, 4471, 356, 6, 63, "Output",ExpressionUUID->"041818f1-a857-4e59-86bf-0457d2f736a6"] }, 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[173828, 4482, 1788, 60, 1102, "Input",ExpressionUUID->"b2345994-534b-4b7e-9d64-c88c50756b87"], +Cell[175619, 4544, 338, 5, 63, "Output",ExpressionUUID->"951fc5a4-ee35-4212-8a35-610a1ebe6eed"] }, 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[175994, 4554, 1101, 36, 668, "Input",ExpressionUUID->"80d3b98b-7a7b-4308-8fb4-b40cb0fe024a"], +Cell[177098, 4592, 357, 6, 63, "Output",ExpressionUUID->"644390be-3094-45dc-af94-aa5e6f033e00"] }, 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[177492, 4603, 1818, 61, 1102, "Input",ExpressionUUID->"b973357a-ecf5-42ca-a16d-9c4d7d086ae1"], +Cell[179313, 4666, 337, 5, 63, "Output",ExpressionUUID->"3e165287-7655-4ca2-98a4-9e344fef7f26"] }, 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[179687, 4676, 1631, 53, 451, "Input",ExpressionUUID->"bcd17c95-d145-4122-a7bd-44e8db3d23d7"], +Cell[181321, 4731, 340, 5, 63, "Output",ExpressionUUID->"37333825-1b9e-4297-86a7-21a35b71c7c2"] }, 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[181698, 4741, 1631, 53, 451, "Input",ExpressionUUID->"7638ff49-9e29-4aab-808b-680969eab84e"], +Cell[183332, 4796, 338, 5, 63, "Output",ExpressionUUID->"c6f0ec83-71c5-49dd-a4b1-5b40a090dc83"] }, 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[183707, 4806, 206, 3, 55, "Input",ExpressionUUID->"83cccf0d-dccb-fb42-a058-5e950c758893"], +Cell[183916, 4811, 161, 2, 63, "Output",ExpressionUUID->"4902b4e1-c513-4873-a3c7-63e8f224c75b"] }, Open ]], -Cell[208234, 7211, 138, 3, 70, "Input",ExpressionUUID->"4ad58a38-0776-5240-aa41-ba7c8ff64fb9"], +Cell[184092, 4816, 171, 2, 55, "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[184288, 4822, 204, 3, 55, "Input",ExpressionUUID->"b70cfd2b-21a1-8344-9518-5e27a96171a9"], +Cell[184495, 4827, 161, 2, 63, "Output",ExpressionUUID->"464c3765-fe60-4bdd-9701-127be059661b"] +}, Open ]], +Cell[184671, 4832, 173, 2, 55, "Input",ExpressionUUID->"86df0a71-aa65-aa41-b8f1-8c5c5be10fe8"], +Cell[CellGroupData[{ +Cell[184869, 4838, 1297, 42, 304, "Input",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"], +Cell[186169, 4882, 171, 2, 63, "Output",ExpressionUUID->"003cc1e0-fdd7-4374-b4b8-65f8fbfecc34"] }, 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[186377, 4889, 929, 30, 260, "Input",ExpressionUUID->"c16f367e-d189-2745-b3b8-a9b137c5e3b6"], +Cell[187309, 4921, 170, 2, 63, "Output",ExpressionUUID->"93875724-d28c-4c11-9bb4-c068d8484ac0"] }, 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[187516, 4928, 904, 29, 260, "Input",ExpressionUUID->"b7d001ae-480c-4b41-8df9-8010347227f7"], +Cell[188423, 4959, 171, 2, 63, "Output",ExpressionUUID->"9479b45c-19aa-4c82-8196-29823b597ec3"] }, 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[188631, 4966, 554, 18, 101, "Input",ExpressionUUID->"d15e5e59-9ad8-e247-a132-b43b2736212a"], +Cell[189188, 4986, 168, 2, 63, "Output",ExpressionUUID->"80dda7e2-c603-4def-81db-45ba6766dd2d"] }, 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[189393, 4993, 647, 21, 175, "Input",ExpressionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"], +Cell[190043, 5016, 168, 2, 63, "Output",ExpressionUUID->"3dca37fd-01f1-4948-a509-510c2ae29bef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[190248, 5023, 166, 4, 105, "Input",ExpressionUUID->"906db7f6-73f3-8a4e-88a4-7c75445a4f32"], +Cell[190417, 5029, 165, 2, 63, "Output",ExpressionUUID->"f0f9728c-b9cb-4a55-b95a-3592c9a5fa56"] +}, Open ]], +Cell[CellGroupData[{ +Cell[190619, 5036, 166, 4, 104, "Input",ExpressionUUID->"731b68b1-c44a-6c4a-a9f8-bc957ede9a68"], +Cell[190788, 5042, 166, 2, 63, "Output",ExpressionUUID->"4a4c0631-e1c8-4124-a652-a0bf4b83c9b3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[190991, 5049, 177, 4, 82, "Input",ExpressionUUID->"71af6813-eb8f-4944-8d03-7bcd77a7b4b4"], +Cell[191171, 5055, 167, 2, 63, "Output",ExpressionUUID->"aeebd576-6944-417f-b0c7-a171da0d0e0a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191375, 5062, 177, 4, 82, "Input",ExpressionUUID->"28815b73-08dc-e64f-8823-2a55ad6b8ca8"], +Cell[191555, 5068, 166, 2, 63, "Output",ExpressionUUID->"e2f0772f-4ccd-4388-a989-d803e86eb8e5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191758, 5075, 6051, 184, 2155, "Input",ExpressionUUID->"137e8d46-8eff-3c47-bf8f-1350d0b8a0bb"], +Cell[197812, 5261, 167, 2, 63, "Output",ExpressionUUID->"5be8d854-5d01-4e2a-84e8-02ca73b09dec"] +}, Open ]], +Cell[CellGroupData[{ +Cell[198016, 5268, 364, 8, 80, "Input",ExpressionUUID->"65edd566-4493-2440-9c51-9fca28ce324b"], +Cell[198383, 5278, 167, 2, 63, "Output",ExpressionUUID->"305f6466-b221-4214-9da9-b2f7d652c442"] +}, Open ]], +Cell[CellGroupData[{ +Cell[198587, 5285, 6118, 186, 2155, "Input",ExpressionUUID->"d808e80b-1928-8046-afec-31463f4946cd"], +Cell[204708, 5473, 168, 2, 63, "Output",ExpressionUUID->"eb57adcb-ac04-42e8-8a5b-cf1f4a9f9f92"] +}, Open ]], +Cell[CellGroupData[{ +Cell[204913, 5480, 364, 8, 80, "Input",ExpressionUUID->"56b1717f-bc75-4047-98f0-7a0dede3f8a9"], +Cell[205280, 5490, 167, 2, 63, "Output",ExpressionUUID->"09f1d02c-602f-4983-942f-ef5146b2d5f1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[205484, 5497, 2659, 87, 1069, "Input",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-f74418e31aeb"], +Cell[208146, 5586, 168, 2, 63, "Output",ExpressionUUID->"234d37a6-3af5-4fbf-bccf-029175dadc25"] +}, Open ]], +Cell[CellGroupData[{ +Cell[208351, 5593, 2599, 84, 969, "Input",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-91d5391478d5"], +Cell[210953, 5679, 169, 2, 63, "Output",ExpressionUUID->"ec196062-2d74-44f7-830d-80f93437d4d1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[211159, 5686, 3708, 117, 1456, "Input",ExpressionUUID->"bea639c9-f172-ef4e-9454-9d4e027f5fa2"], +Cell[214870, 5805, 168, 2, 63, "Output",ExpressionUUID->"11d91bac-88bc-4140-8a8a-70e2e5b439a6"] +}, Open ]], +Cell[215053, 5810, 160, 3, 55, "Input",ExpressionUUID->"752e2dd5-bee6-2048-8697-fe84d79611fa"], +Cell[CellGroupData[{ +Cell[215238, 5817, 2209, 61, 731, "Input",ExpressionUUID->"f8b12d93-5bd9-8641-aa98-3d78ebb0f21b"], +Cell[217450, 5880, 606, 13, 182, "Message",ExpressionUUID->"e72055cf-9f62-49c5-9cca-aadfc1b23586"], +Cell[218059, 5895, 607, 13, 182, "Message",ExpressionUUID->"358a6228-5c33-4575-a957-b85e1f0a1436"], +Cell[218669, 5910, 608, 13, 182, "Message",ExpressionUUID->"0516a77c-b7df-4232-be2c-fd02dfa0fb65"], +Cell[219280, 5925, 468, 11, 82, "Message",ExpressionUUID->"317a1720-21c1-4d5d-90b7-db67cba36193"], +Cell[219751, 5938, 167, 2, 63, "Output",ExpressionUUID->"0052511e-bd74-4b9e-a218-3b728fbd7e48"] +}, Open ]], +Cell[CellGroupData[{ +Cell[219955, 5945, 2206, 61, 731, "Input",ExpressionUUID->"cbefe077-df46-c24c-b854-69741ca50d38"], +Cell[222164, 6008, 606, 13, 182, "Message",ExpressionUUID->"92d1603d-4d67-40a2-a90e-32714e84cc80"], +Cell[222773, 6023, 607, 13, 182, "Message",ExpressionUUID->"bc3fca0b-4073-4ff3-bab6-fcab808fb251"], +Cell[223383, 6038, 606, 13, 182, "Message",ExpressionUUID->"c0a4a357-360e-46fe-81e4-80ecdd9ba9aa"], +Cell[223992, 6053, 470, 11, 82, "Message",ExpressionUUID->"bfa40d71-a9fb-48e0-b621-4be3650f894b"], +Cell[224465, 6066, 168, 2, 63, "Output",ExpressionUUID->"00ced080-5883-46ec-8abe-9da6a35401ac"] +}, Open ]], +Cell[CellGroupData[{ +Cell[224670, 6073, 2049, 54, 506, "Input",ExpressionUUID->"b9a7e2d9-7e48-cb4c-89bc-12d8b19f0936"], +Cell[226722, 6129, 20333, 382, 326, "Output",ExpressionUUID->"e8540aa1-7e16-455b-b3f1-a18931c2bb1f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[247092, 6516, 2249, 62, 782, "Input",ExpressionUUID->"4b73592e-b155-8f42-b33d-562f8b3faecd"], +Cell[249344, 6580, 513, 12, 182, "Message",ExpressionUUID->"7a5aa2d4-3dff-465e-9d66-bbbde5f7d5bb"], +Cell[249860, 6594, 517, 12, 182, "Message",ExpressionUUID->"efdc8cb2-2a45-42c7-9ec8-616f090dda97"], +Cell[250380, 6608, 519, 12, 182, "Message",ExpressionUUID->"bcaa54e7-a685-4c18-a92f-352829f157ac"], +Cell[250902, 6622, 469, 11, 82, "Message",ExpressionUUID->"70e0b177-86a2-4895-9cf3-94241ba4551e"], +Cell[251374, 6635, 23041, 425, 318, "Output",ExpressionUUID->"e565e368-31da-41cc-865f-f796d4d1d712"] +}, Open ]], +Cell[CellGroupData[{ +Cell[274452, 7065, 2471, 69, 678, "Input",ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-5e6c7b4b5678"], +Cell[276926, 7136, 9492, 222, 326, "Output",ExpressionUUID->"e2987bfa-6ae6-46b1-848c-1d422fa04aff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[286455, 7363, 228, 4, 55, "Input",ExpressionUUID->"cd9a8165-891b-9245-aca1-3f60fcfd9a79"], +Cell[286686, 7369, 29427, 557, 318, "Output",ExpressionUUID->"25268552-ace1-4ae5-ba23-d15a9a6ec4d6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[316150, 7931, 234, 6, 90, "Input",ExpressionUUID->"c213919d-017d-a948-8e46-fe19384187c3"], +Cell[316387, 7939, 166, 2, 63, "Output",ExpressionUUID->"97e7592d-fc38-4eec-aac8-e4bf6a5dc195"] +}, Open ]], +Cell[CellGroupData[{ +Cell[316590, 7946, 1968, 55, 684, "Input",ExpressionUUID->"3764dfb4-9656-4349-b0a1-77ebd1a3e048"], +Cell[318561, 8003, 613, 14, 182, "Message",ExpressionUUID->"bf9e1350-867a-4dc4-a130-b5c7eb724381"], +Cell[319177, 8019, 614, 14, 182, "Message",ExpressionUUID->"dfe60df1-67e9-4342-b728-d231a4543e17"], +Cell[319794, 8035, 612, 14, 182, "Message",ExpressionUUID->"4ea0d71b-f9c3-44a4-9616-3426dcc7829f"], +Cell[320409, 8051, 469, 11, 82, "Message",ExpressionUUID->"1b9e5eb0-d4db-463a-95fe-449189eee051"], +Cell[320881, 8064, 24055, 443, 318, "Output",ExpressionUUID->"73661999-36c0-49fc-816a-7bd3ff57063f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[344973, 8512, 1750, 52, 527, "Input",ExpressionUUID->"7899a8a7-561e-a946-a6c9-870ef14ce01b"], +Cell[346726, 8566, 615, 14, 182, "Message",ExpressionUUID->"9c4196f3-8acd-4a33-bddc-74a35f0df305"], +Cell[347344, 8582, 615, 14, 182, "Message",ExpressionUUID->"a4d10797-573b-401a-8011-e62d140cd9f4"], +Cell[347962, 8598, 614, 14, 182, "Message",ExpressionUUID->"2b35bb95-7ca3-4a35-b7a3-3702e7e5bfca"], +Cell[348579, 8614, 471, 11, 82, "Message",ExpressionUUID->"d015daf2-a0c5-420b-b662-0c4a23f8857b"], +Cell[349053, 8627, 173, 3, 63, "Output",ExpressionUUID->"4d7b7daa-c80c-46be-bf76-8d7045332941"] +}, Open ]], +Cell[CellGroupData[{ +Cell[349263, 8635, 2270, 64, 731, "Input",ExpressionUUID->"6fd9b05c-8008-7b42-b1b4-8e83e9537fdc"], +Cell[351536, 8701, 611, 13, 182, "Message",ExpressionUUID->"bbcb32aa-63bd-4a06-ae9f-72c4f3d12c21"], +Cell[352150, 8716, 610, 13, 182, "Message",ExpressionUUID->"dbbcd61e-d6f3-4a75-8d8e-b9b773e8f1a2"], +Cell[352763, 8731, 611, 13, 182, "Message",ExpressionUUID->"d347580e-a4b2-4bc5-9731-1840636cd8eb"], +Cell[353377, 8746, 473, 11, 82, "Message",ExpressionUUID->"33175c98-d67d-41d2-a9da-da2f8a705035"], +Cell[353853, 8759, 172, 3, 63, "Output",ExpressionUUID->"3af69021-098c-4e6b-b242-e6d0394be1dc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[354062, 8767, 2231, 63, 692, "Input",ExpressionUUID->"ccaee6a3-c390-0444-bf16-3471356a3614"], +Cell[356296, 8832, 609, 13, 182, "Message",ExpressionUUID->"7e395a67-d74c-44f4-920a-ffe91e368776"], +Cell[356908, 8847, 610, 13, 182, "Message",ExpressionUUID->"df72696c-cd68-45dd-bd75-327a8e3eca9d"], +Cell[357521, 8862, 609, 13, 182, "Message",ExpressionUUID->"e4228ca4-5d1f-4ede-a5a8-845363280033"], +Cell[358133, 8877, 473, 11, 82, "Message",ExpressionUUID->"aa415595-3474-45c6-8700-35b520afee91"], +Cell[358609, 8890, 171, 3, 63, "Output",ExpressionUUID->"e6b17a12-03ed-4d6e-8890-d7506cf5a5c6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[358817, 8898, 2233, 63, 692, "Input",ExpressionUUID->"ca0cc669-d7ba-5b4a-b58b-286954db37c5"], +Cell[361053, 8963, 609, 13, 182, "Message",ExpressionUUID->"062c6acf-9069-4789-94d8-8176ebc8419d"], +Cell[361665, 8978, 609, 13, 182, "Message",ExpressionUUID->"e37339bc-993c-401f-848b-9b4f05c062b3"], +Cell[362277, 8993, 609, 13, 182, "Message",ExpressionUUID->"42139ed2-ec33-429a-9cf2-0e827730b969"], +Cell[362889, 9008, 471, 11, 82, "Message",ExpressionUUID->"5df014bf-1a28-413d-a36a-666ece3e41aa"], +Cell[363363, 9021, 169, 3, 63, "Output",ExpressionUUID->"93806401-5cf9-45f1-911d-496d15cb9fe8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[363569, 9029, 238, 6, 89, "Input",ExpressionUUID->"7ec678fd-8398-414a-aeba-20e078d734cd"], +Cell[363810, 9037, 173, 3, 63, "Output",ExpressionUUID->"b8216b13-7638-47e3-b8c1-ddd0b684a7bb"] +}, Open ]], +Cell[363998, 9043, 273, 6, 55, "Input",ExpressionUUID->"ca329276-48d7-8943-8408-dd2997d3499c"], +Cell[CellGroupData[{ +Cell[364296, 9053, 558, 19, 101, "Input",ExpressionUUID->"681c316f-cd82-ae4b-824f-5eb2b3081f6d"], +Cell[364857, 9074, 167, 3, 63, "Output",ExpressionUUID->"442e4649-3a7f-41f6-b781-80416cc9de66"] +}, Open ]], +Cell[CellGroupData[{ +Cell[365061, 9082, 170, 5, 105, "Input",ExpressionUUID->"11e77a67-96b2-a645-89cd-559587f30b91"], +Cell[365234, 9089, 171, 3, 63, "Output",ExpressionUUID->"89b88313-5997-475a-91ae-bbe05c0b0c5d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[365442, 9097, 181, 5, 82, "Input",ExpressionUUID->"3c5f43e9-afc4-be40-8f37-0116656ecd38"], +Cell[365626, 9104, 173, 3, 63, "Output",ExpressionUUID->"b8591cff-d105-4d17-8851-e06c55649222"] +}, Open ]], +Cell[CellGroupData[{ +Cell[365836, 9112, 6055, 185, 2155, "Input",ExpressionUUID->"f07a8476-d7bc-1049-82a6-7cf06f61e28f"], +Cell[371894, 9299, 174, 3, 63, "Output",ExpressionUUID->"362fe997-f2b2-4339-8b4b-2eb6bf198dc6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[372105, 9307, 368, 9, 80, "Input",ExpressionUUID->"b88b1a94-22d7-2843-88e3-f607b95c8af9"], +Cell[372476, 9318, 173, 3, 63, "Output",ExpressionUUID->"bde2fa88-d2a5-4205-a418-bbab8e71ce5d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[372686, 9326, 6122, 187, 2155, "Input",ExpressionUUID->"9d771aab-c0b4-f24c-9b53-9472e00c4d82"], +Cell[378811, 9515, 173, 3, 63, "Output",ExpressionUUID->"0548348b-b8ba-43fb-942f-c48474af2051"] +}, Open ]], +Cell[CellGroupData[{ +Cell[379021, 9523, 368, 9, 80, "Input",ExpressionUUID->"47e2a8e8-6af3-374f-9eea-9c2b6faaaf4a"], +Cell[379392, 9534, 172, 3, 63, "Output",ExpressionUUID->"ee9df31a-0f07-4158-bb85-3cc4ea0de053"] +}, Open ]], +Cell[CellGroupData[{ +Cell[379601, 9542, 2663, 88, 1069, "Input",ExpressionUUID->"d8757b1c-19d9-d548-8de4-6b0985b9b3bc"], +Cell[382267, 9632, 171, 3, 63, "Output",ExpressionUUID->"4b99b04c-767a-4edd-8769-315531ed9d30"] +}, Open ]], +Cell[CellGroupData[{ +Cell[382475, 9640, 2603, 85, 969, "Input",ExpressionUUID->"58b59182-fae5-674d-b49e-4868d83e9702"], +Cell[385081, 9727, 171, 3, 63, "Output",ExpressionUUID->"087fee72-bf52-4368-a84a-f05e05ca9a02"] +}, Open ]], +Cell[CellGroupData[{ +Cell[385289, 9735, 3712, 118, 1456, "Input",ExpressionUUID->"5caf1614-7e5c-9940-98cd-9460e2c074b2"], +Cell[389004, 9855, 172, 3, 63, "Output",ExpressionUUID->"52786d5f-8082-4536-9df3-11303515fa8e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[389213, 9863, 2211, 62, 731, "Input",ExpressionUUID->"db0784f6-51d0-fd44-b0e8-05d6af1a6e52"], +Cell[391427, 9927, 610, 13, 182, "Message",ExpressionUUID->"bf5c9c88-0f63-4675-b8ea-9807cb7792ac"], +Cell[392040, 9942, 611, 13, 182, "Message",ExpressionUUID->"877af5ef-845d-43c4-ba47-9b646d619f31"], +Cell[392654, 9957, 611, 13, 182, "Message",ExpressionUUID->"f4c770c4-3ff7-4b59-8a06-227b36ac6e13"], +Cell[393268, 9972, 471, 11, 82, "Message",ExpressionUUID->"d486b347-ae6f-454d-b484-8077638ff8f7"], +Cell[393742, 9985, 171, 3, 63, "Output",ExpressionUUID->"02744057-679e-4523-bf1b-f9e866438b73"] +}, Open ]], +Cell[CellGroupData[{ +Cell[393950, 9993, 2213, 62, 731, "Input",ExpressionUUID->"7ca6aa7a-7318-6f41-95dc-f69c33a31448"], +Cell[396166, 10057, 610, 13, 182, "Message",ExpressionUUID->"6d334efd-23c1-4487-8b3b-8fd73d92d310"], +Cell[396779, 10072, 609, 13, 182, "Message",ExpressionUUID->"4d7d72e2-9175-4f8e-bcfe-d30feeea385f"], +Cell[397391, 10087, 611, 13, 182, "Message",ExpressionUUID->"6700f26a-1a1e-4c54-9bb6-37832e917ddc"], +Cell[398005, 10102, 471, 11, 82, "Message",ExpressionUUID->"60767a6b-a058-4202-aa9b-ff9d3acd3a8d"], +Cell[398479, 10115, 170, 3, 63, "Output",ExpressionUUID->"3123f07b-04fe-4952-b4a5-4d685f705872"] +}, Open ]], +Cell[CellGroupData[{ +Cell[398686, 10123, 2053, 55, 506, "Input",ExpressionUUID->"611f92ea-b199-2643-9788-194fae57c34e"], +Cell[400742, 10180, 20275, 383, 335, "Output",ExpressionUUID->"d616e545-ab03-46d0-97ba-9f7dc1c340c4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[421054, 10568, 2277, 63, 782, "Input",ExpressionUUID->"f4c3d53a-1214-a145-beb0-494cdae35e56"], +Cell[423334, 10633, 516, 12, 182, "Message",ExpressionUUID->"2ed8e8b2-8667-4d8e-a1a5-9ca6422e926f"], +Cell[423853, 10647, 517, 12, 182, "Message",ExpressionUUID->"53d56135-6ff9-4e8c-9512-f9355668003f"], +Cell[424373, 10661, 524, 12, 182, "Message",ExpressionUUID->"9b951bd0-cd99-49a2-bf06-cbbfbbe291df"], +Cell[424900, 10675, 471, 11, 82, "Message",ExpressionUUID->"02c6780f-4151-42a8-8bc5-1b4e432eb0c3"], +Cell[425374, 10688, 23984, 441, 318, "Output",ExpressionUUID->"99ece67d-da33-4b8a-8ff0-df553f344485"] +}, Open ]], +Cell[CellGroupData[{ +Cell[449395, 11134, 232, 5, 55, "Input",ExpressionUUID->"2335a158-7588-4c40-bdb5-53b7ef04b97c"], +Cell[449630, 11141, 30368, 573, 318, "Output",ExpressionUUID->"2312b0f0-f3d4-4c11-9818-e99d910df355"] +}, Open ]], +Cell[CellGroupData[{ +Cell[480035, 11719, 1750, 52, 527, "Input",ExpressionUUID->"01995149-3665-fe4e-b326-b20429031afd"], +Cell[481788, 11773, 616, 14, 182, "Message",ExpressionUUID->"83d751ed-1f11-4964-b450-ebb70e218f72"], +Cell[482407, 11789, 616, 14, 182, "Message",ExpressionUUID->"e2f8c14f-9177-4892-859b-74769b97e121"], +Cell[483026, 11805, 615, 14, 182, "Message",ExpressionUUID->"f0dc72ad-6e5e-42c9-8200-9e9c6282aaaf"], +Cell[483644, 11821, 471, 11, 82, "Message",ExpressionUUID->"7bf28b33-499c-4aa0-ba5e-0478588befc8"], +Cell[484118, 11834, 171, 3, 63, "Output",ExpressionUUID->"eda13035-dad0-4650-8fd2-e87cdc80bcba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[484326, 11842, 2274, 64, 731, "Input",ExpressionUUID->"11b1e372-f457-5a4d-bcee-062a3c04ed96"], +Cell[486603, 11908, 610, 13, 182, "Message",ExpressionUUID->"bc9f490a-4b78-42e6-8a95-e60a736d4719"], +Cell[487216, 11923, 609, 13, 182, "Message",ExpressionUUID->"4f429df2-2f11-402d-b91d-632e7aa8de0c"], +Cell[487828, 11938, 611, 13, 182, "Message",ExpressionUUID->"b4c55fb1-6344-468b-aa92-023804866f20"], +Cell[488442, 11953, 471, 11, 82, "Message",ExpressionUUID->"6cd76b4d-4643-41ce-90f0-76ee1e7c5dc2"], +Cell[488916, 11966, 172, 3, 63, "Output",ExpressionUUID->"3ce5e018-ea7e-407f-a630-e55245593bf5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[489125, 11974, 2232, 63, 692, "Input",ExpressionUUID->"8cb4e371-90a5-d347-adec-3382e7679ba8"], +Cell[491360, 12039, 610, 13, 182, "Message",ExpressionUUID->"a7a2bbdb-d615-440f-8204-cfd0f3b478c3"], +Cell[491973, 12054, 609, 13, 182, "Message",ExpressionUUID->"6ab2cf5b-f354-4bad-bfb3-e50d67287e94"], +Cell[492585, 12069, 609, 13, 182, "Message",ExpressionUUID->"58a672b0-19c6-4283-b79e-096de9fbdcb3"], +Cell[493197, 12084, 471, 11, 82, "Message",ExpressionUUID->"5109b681-c585-49cc-9222-263ed4052e4c"], +Cell[493671, 12097, 173, 3, 63, "Output",ExpressionUUID->"5aff9442-4bef-4814-9303-9160aceefaed"] +}, Open ]], +Cell[CellGroupData[{ +Cell[493881, 12105, 2235, 63, 692, "Input",ExpressionUUID->"732b358a-c98a-0347-8b16-2462b23d6249"], +Cell[496119, 12170, 610, 13, 182, "Message",ExpressionUUID->"a45935ae-34bf-4928-b89d-f9058168931a"], +Cell[496732, 12185, 611, 13, 182, "Message",ExpressionUUID->"ff995ddf-8a32-465d-8233-e53a29506021"], +Cell[497346, 12200, 611, 13, 182, "Message",ExpressionUUID->"2f70f68b-17c3-4761-a8d5-3b3c67eb20db"], +Cell[497960, 12215, 471, 11, 82, "Message",ExpressionUUID->"3ed129b2-49ad-4900-a261-163ce5a6b5b3"], +Cell[498434, 12228, 171, 3, 63, "Output",ExpressionUUID->"d0c30e7c-541f-4fe6-aae1-893264765498"] +}, Open ]], +Cell[CellGroupData[{ +Cell[498642, 12236, 238, 6, 89, "Input",ExpressionUUID->"3d20548b-905d-0343-8df1-168ec8f367e1"], +Cell[498883, 12244, 175, 3, 63, "Output",ExpressionUUID->"40f3259e-7d7c-4857-98a9-a1ade859db82"] +}, Open ]], +Cell[499073, 12250, 273, 6, 55, "Input",ExpressionUUID->"ca34450b-ff3b-f34a-a2ed-e661a25a7ba1"], +Cell[CellGroupData[{ +Cell[499371, 12260, 558, 19, 101, "Input",ExpressionUUID->"601c24ee-3f7b-c74d-891b-10a6d009e34b"], +Cell[499932, 12281, 170, 3, 63, "Output",ExpressionUUID->"b2e66dee-ade2-4076-b3e5-77d4e62c200f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[500139, 12289, 170, 5, 105, "Input",ExpressionUUID->"05949206-8ee0-5646-bb01-e9142212274d"], +Cell[500312, 12296, 170, 3, 63, "Output",ExpressionUUID->"0ca8ed06-1724-4a2b-a2d3-44a84d6d7034"] +}, Open ]], +Cell[CellGroupData[{ +Cell[500519, 12304, 181, 5, 82, "Input",ExpressionUUID->"25a02cc2-cb9a-bc4b-93f0-a7873f982a23"], +Cell[500703, 12311, 171, 3, 63, "Output",ExpressionUUID->"4fccd82e-8873-4dd1-afb8-a627ab6896e1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[500911, 12319, 6055, 185, 2155, "Input",ExpressionUUID->"df51ca6a-83a1-6340-b13c-0185de64c37f"], +Cell[506969, 12506, 173, 3, 63, "Output",ExpressionUUID->"2acfa033-ab8a-4990-b22a-58bc59741f91"] +}, Open ]], +Cell[CellGroupData[{ +Cell[507179, 12514, 368, 9, 80, "Input",ExpressionUUID->"731f0e35-7798-8b45-a769-075ac4b3983f"], +Cell[507550, 12525, 171, 3, 63, "Output",ExpressionUUID->"d3ee13ad-07e6-463a-8b06-a02e13ca523a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[507758, 12533, 6122, 187, 2155, "Input",ExpressionUUID->"413c8e7d-149c-5d4a-9ccb-23aebae2e6d5"], +Cell[513883, 12722, 173, 3, 63, "Output",ExpressionUUID->"a6be0516-985b-48e8-b463-c9f456273ab7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[514093, 12730, 368, 9, 80, "Input",ExpressionUUID->"e11d7eb8-00a8-f540-98a0-89164ac4bae9"], +Cell[514464, 12741, 167, 3, 63, "Output",ExpressionUUID->"99b729cb-082f-452f-b992-603f520bdd0c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[514668, 12749, 2663, 88, 1069, "Input",ExpressionUUID->"08e21b26-8d64-ea4e-8647-1ee89e798d8f"], +Cell[517334, 12839, 172, 3, 63, "Output",ExpressionUUID->"82101b3e-d9a6-4db8-b02a-0e260b350063"] +}, Open ]], +Cell[CellGroupData[{ +Cell[517543, 12847, 2603, 85, 969, "Input",ExpressionUUID->"ae5c0a90-3245-6943-a137-f30d036fcdd2"], +Cell[520149, 12934, 173, 3, 63, "Output",ExpressionUUID->"91f5c8b9-9b13-499a-8489-912b2c025870"] +}, Open ]], +Cell[CellGroupData[{ +Cell[520359, 12942, 3712, 118, 1456, "Input",ExpressionUUID->"46af1283-32d6-7240-acd2-307af56b44db"], +Cell[524074, 13062, 174, 3, 63, "Output",ExpressionUUID->"ff4b8251-1ac6-43aa-8b5e-7df5e7b6248d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[524285, 13070, 2213, 62, 731, "Input",ExpressionUUID->"cd516020-ac7f-224d-b1ff-af0307420662"], +Cell[526501, 13134, 610, 13, 182, "Message",ExpressionUUID->"20c1742c-8138-4a68-a9e8-b85ade1d7d80"], +Cell[527114, 13149, 611, 13, 182, "Message",ExpressionUUID->"f4cf899a-62e1-4275-9e27-ac10b3b60148"], +Cell[527728, 13164, 608, 13, 182, "Message",ExpressionUUID->"f8e2a02b-6377-44f0-8ff4-41e95e2555cd"], +Cell[528339, 13179, 471, 11, 82, "Message",ExpressionUUID->"c028f75c-484f-4560-9a48-3ea541ec75cb"], +Cell[528813, 13192, 173, 3, 63, "Output",ExpressionUUID->"b5b6d543-0cf3-4174-9e72-6ae2d8a3553e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[529023, 13200, 2213, 62, 731, "Input",ExpressionUUID->"a9d0e817-a1c8-6546-a901-34313c6ec04d"], +Cell[531239, 13264, 612, 13, 182, "Message",ExpressionUUID->"86401be3-f66d-4d19-8ecf-ef4acfcd5cae"], +Cell[531854, 13279, 609, 13, 182, "Message",ExpressionUUID->"a9335dba-ada3-4131-ba45-0a95a3008518"], +Cell[532466, 13294, 609, 13, 182, "Message",ExpressionUUID->"d1e20b17-39f9-4498-be71-9e9866acace9"], +Cell[533078, 13309, 473, 11, 82, "Message",ExpressionUUID->"737c27ef-69f1-4b3c-85c2-8b7ee92c3e06"], +Cell[533554, 13322, 170, 3, 63, "Output",ExpressionUUID->"e3242bb5-57fb-4c30-b66d-30a6b1dd6d99"] +}, Open ]], +Cell[CellGroupData[{ +Cell[533761, 13330, 2053, 55, 506, "Input",ExpressionUUID->"f68960b0-cff6-3245-b906-ad38cf07d634"], +Cell[535817, 13387, 20350, 381, 326, "Output",ExpressionUUID->"859d0886-c07f-48c9-ac6f-47fb0a7cd70e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[556204, 13773, 2301, 64, 782, "Input",ExpressionUUID->"d43bf17b-b492-0e4a-af4a-6a3bc399953c"], +Cell[558508, 13839, 515, 12, 182, "Message",ExpressionUUID->"455643c9-c03d-4bd7-8103-78e3509f1d21"], +Cell[559026, 13853, 518, 12, 182, "Message",ExpressionUUID->"d04a0984-3027-4c5c-92b8-29c326c2ead0"], +Cell[559547, 13867, 522, 12, 182, "Message",ExpressionUUID->"245ae14f-0c12-42cb-98ae-3941a5ea4f7b"], +Cell[560072, 13881, 471, 11, 82, "Message",ExpressionUUID->"d28ea162-d8db-44d4-8e52-4e670a485ba5"], +Cell[560546, 13894, 22924, 423, 318, "Output",ExpressionUUID->"707938e1-1ad2-4bab-a355-0ef283e333e7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[583507, 14322, 164, 4, 55, "Input",ExpressionUUID->"4ad58a38-0776-5240-aa41-ba7c8ff64fb9"], +Cell[583674, 14328, 29306, 555, 318, "Output",ExpressionUUID->"03da7b53-20e8-4e09-9635-a2ee70347052"] +}, Open ]], +Cell[CellGroupData[{ +Cell[613017, 14888, 1750, 52, 527, "Input",ExpressionUUID->"3edaf53b-bb09-6646-b79e-9350413e0b42"], +Cell[614770, 14942, 614, 14, 182, "Message",ExpressionUUID->"fe0d54ba-6640-457c-9bc3-3f49217112f6"], +Cell[615387, 14958, 616, 14, 182, "Message",ExpressionUUID->"9e9136ec-d1e1-4af7-814f-75ee8b67ad03"], +Cell[616006, 14974, 615, 14, 182, "Message",ExpressionUUID->"3037d00a-3626-43d4-b074-3314e88e9c6a"], +Cell[616624, 14990, 471, 11, 82, "Message",ExpressionUUID->"eea3ea0d-3184-44fe-8d92-d694d0d6579e"], +Cell[617098, 15003, 171, 3, 63, "Output",ExpressionUUID->"45e12e4d-fd44-4707-934d-2f5e3074dceb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[617306, 15011, 2272, 64, 731, "Input",ExpressionUUID->"d2148290-3e90-8347-bddd-5dd8190b0268"], +Cell[619581, 15077, 610, 13, 182, "Message",ExpressionUUID->"ccea86a6-557b-4238-935a-a869bc42b526"], +Cell[620194, 15092, 609, 13, 182, "Message",ExpressionUUID->"493c687c-06ac-4c93-b07e-971e0083f112"], +Cell[620806, 15107, 611, 13, 182, "Message",ExpressionUUID->"5eb71e44-ae7d-4e45-95bb-f842c71e4aff"], +Cell[621420, 15122, 473, 11, 82, "Message",ExpressionUUID->"510564fd-62db-446c-823d-adb7429ced80"], +Cell[621896, 15135, 171, 3, 63, "Output",ExpressionUUID->"0335a28f-6a47-4a61-995f-864ad8492d86"] +}, Open ]], +Cell[CellGroupData[{ +Cell[622104, 15143, 2231, 63, 692, "Input",ExpressionUUID->"3cdd2064-36e7-b44d-bb0f-98d71f8a8458"], +Cell[624338, 15208, 610, 13, 182, "Message",ExpressionUUID->"403fded1-5e84-4f24-991f-c6eef776cc74"], +Cell[624951, 15223, 611, 13, 182, "Message",ExpressionUUID->"486ea199-0703-4152-95eb-568cc0da205b"], +Cell[625565, 15238, 609, 13, 182, "Message",ExpressionUUID->"3e8eb529-6fab-4a3c-bcb9-af72c311b534"], +Cell[626177, 15253, 473, 11, 82, "Message",ExpressionUUID->"0efec3e1-9fd8-4a3c-a13a-da58c300ce40"], +Cell[626653, 15266, 170, 3, 63, "Output",ExpressionUUID->"42926ba4-ee7a-4e4a-849d-3e50fcec278e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[626860, 15274, 2233, 63, 692, "Input",ExpressionUUID->"c1d3ae3d-f5ac-b04d-af0f-57c1fe1d0585"], +Cell[629096, 15339, 612, 13, 182, "Message",ExpressionUUID->"ed544900-31f9-4559-b351-069c0439c5bf"], +Cell[629711, 15354, 611, 13, 182, "Message",ExpressionUUID->"c6315fcd-b277-461c-8315-3d503f71f865"], +Cell[630325, 15369, 609, 13, 182, "Message",ExpressionUUID->"2bcedc21-ed2b-468f-9972-903ccf73976b"], +Cell[630937, 15384, 471, 11, 82, "Message",ExpressionUUID->"388b77dc-fbfc-42de-b129-852657c76579"], +Cell[631411, 15397, 170, 3, 63, "Output",ExpressionUUID->"d2bfa96a-52fc-424e-8adb-cc64e2c27fce"] +}, Open ]], +Cell[CellGroupData[{ +Cell[631618, 15405, 238, 6, 89, "Input",ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-1ca469b254bd"], +Cell[631859, 15413, 173, 3, 63, "Output",ExpressionUUID->"3a3fdd23-0665-40f6-8835-486c3553139d"] +}, Open ]], +Cell[632047, 15419, 143, 3, 55, "Input",ExpressionUUID->"f9e62303-c2d9-4a58-92bf-42febd4f2f02"] } ] *) -(* End of internal cache information *) - diff --git a/Pu240_798-811_TitovAA/162-78_h_Pu240_16-17/h_162-78_Pu240_16-17_osc_Qw1.nb b/Pu240_798-811_TitovAA/162-78_h_Pu240_16-17/h_162-78_Pu240_16-17_osc_Qw1.nb index 974fb4d..85dc797 100644 --- a/Pu240_798-811_TitovAA/162-78_h_Pu240_16-17/h_162-78_Pu240_16-17_osc_Qw1.nb +++ b/Pu240_798-811_TitovAA/162-78_h_Pu240_16-17/h_162-78_Pu240_16-17_osc_Qw1.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 576634, 14417] -NotebookOptionsPosition[ 534449, 13746] -NotebookOutlinePosition[ 534890, 13764] -CellTagsIndexPosition[ 534847, 13761] +NotebookDataLength[ 686614, 16614] +NotebookOptionsPosition[ 644121, 15933] +NotebookOutlinePosition[ 644585, 15952] +CellTagsIndexPosition[ 644542, 15949] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -21,35 +21,19 @@ Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"d", "=", "1.9"}]], "Input", - CellChangeTimes->{ - 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, - 3.9920650045886707`*^9, {3.993815944576231*^9, 3.9938159912638187`*^9}}, + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.9940127288140783`*^9, 3.994012729590282*^9}}, CellLabel-> - "In[388]:=",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], + "In[191]:=",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], -Cell[BoxData["1.9`"], "Output", - CellChangeTimes->{ - 3.991320420900818*^9, 3.993815823692334*^9, 3.993815892498139*^9, { - 3.993815951583488*^9, 3.993815995572467*^9}}, - CellLabel-> - "Out[388]=",ExpressionUUID->"dda15419-5d98-4d1b-8619-b399d85129a1"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"A", "=", "236"}]], "Input", - CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}}, - CellLabel-> - "In[389]:=",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], - -Cell[BoxData["236"], "Output", +Cell[BoxData["240"], "Output", CellChangeTimes->{ 3.9913196497381973`*^9, 3.993815823952688*^9, 3.993815892560748*^9, { - 3.993815951668881*^9, 3.993815995613329*^9}}, + 3.993815951668881*^9, 3.993815995613329*^9}, {3.9940127346784067`*^9, + 3.9940127529711943`*^9}, 3.9940132809208727`*^9}, CellLabel-> - "Out[389]=",ExpressionUUID->"d62e401f-d2d7-41ce-8534-a73748f76dc1"] + "Out[191]=",ExpressionUUID->"02b76cfc-9129-4c15-aecc-0b70abf97942"] }, Open ]], Cell[CellGroupData[{ @@ -59,14 +43,15 @@ Cell[BoxData[ CellChangeTimes->{ 3.991798961431202*^9, {3.9938155158752823`*^9, 3.9938155169971247`*^9}}, CellLabel-> - "In[390]:=",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], + "In[192]:=",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], Cell[BoxData["162"], "Output", CellChangeTimes->{ 3.9913196497578354`*^9, 3.993815823968458*^9, 3.9938158925714483`*^9, { - 3.9938159516818027`*^9, 3.9938159956283493`*^9}}, + 3.9938159516818027`*^9, 3.9938159956283493`*^9}, {3.9940127346926413`*^9, + 3.994012752988037*^9}, 3.994013280932057*^9}, CellLabel-> - "Out[390]=",ExpressionUUID->"5438cd87-6164-48d5-b542-eaba83544f7e"] + "Out[192]=",ExpressionUUID->"87da360f-d1f9-4448-a2dd-dc8c52cc150b"] }, Open ]], Cell[CellGroupData[{ @@ -75,14 +60,15 @@ Cell[BoxData[ RowBox[{"a1", "=", "0.55"}]], "Input", CellChangeTimes->{3.9434144380252676`*^9}, CellLabel-> - "In[391]:=",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], + "In[193]:=",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], Cell[BoxData["0.55`"], "Output", CellChangeTimes->{ 3.991319649777508*^9, 3.9938158239856167`*^9, 3.99381589258189*^9, { - 3.99381595169417*^9, 3.993815995642021*^9}}, + 3.99381595169417*^9, 3.993815995642021*^9}, {3.994012734706458*^9, + 3.994012753004796*^9}, 3.9940132809442472`*^9}, CellLabel-> - "Out[391]=",ExpressionUUID->"1b82756d-5454-4d29-aae5-677a392212a6"] + "Out[193]=",ExpressionUUID->"0eda2467-657a-4a1d-a7f5-6670d09772e1"] }, Open ]], Cell[CellGroupData[{ @@ -95,14 +81,15 @@ Cell[BoxData[ RowBox[{ RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", CellLabel-> - "In[392]:=",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], + "In[194]:=",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], -Cell[BoxData["0.544406779661017`"], "Output", +Cell[BoxData["0.5447500000000001`"], "Output", CellChangeTimes->{ 3.9913196497965145`*^9, 3.993815824003376*^9, 3.993815892586231*^9, { - 3.99381595170667*^9, 3.993815995646203*^9}}, + 3.99381595170667*^9, 3.993815995646203*^9}, {3.9940127347201777`*^9, + 3.994012753022193*^9}, 3.994013280953637*^9}, CellLabel-> - "Out[392]=",ExpressionUUID->"dd9edbb4-c4ef-4d49-883a-5453e6c663bd"] + "Out[194]=",ExpressionUUID->"91772306-fc7d-4c2c-a2a8-ed20c40fa78b"] }, Open ]], Cell[CellGroupData[{ @@ -110,14 +97,15 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"p0", "=", "0.17"}]], "Input", CellLabel-> - "In[393]:=",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], + "In[195]:=",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], Cell[BoxData["0.17`"], "Output", CellChangeTimes->{ 3.9913196498144608`*^9, 3.993815824023213*^9, 3.993815892602899*^9, { - 3.9938159517115383`*^9, 3.9938159956645737`*^9}}, + 3.9938159517115383`*^9, 3.9938159956645737`*^9}, {3.994012734734274*^9, + 3.994012753038806*^9}, 3.994013280962974*^9}, CellLabel-> - "Out[393]=",ExpressionUUID->"8708e2e2-354e-47c4-9e43-685d3369f6bc"] + "Out[195]=",ExpressionUUID->"d3f344b2-a7ce-4205-b88b-06289fa21188"] }, Open ]], Cell[CellGroupData[{ @@ -129,14 +117,15 @@ Cell[BoxData[ RowBox[{"1", "/", "3"}]]}]}]], "Input", CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, CellLabel-> - "In[394]:=",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], + "In[196]:=",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], Cell[BoxData["6.323579663055845`"], "Output", CellChangeTimes->{ 3.9913196498225155`*^9, 3.993815824039893*^9, 3.993815892613652*^9, { - 3.993815951728698*^9, 3.993815995677742*^9}}, + 3.993815951728698*^9, 3.993815995677742*^9}, {3.994012734748405*^9, + 3.994012753044726*^9}, 3.9940132809722853`*^9}, CellLabel-> - "Out[394]=",ExpressionUUID->"ef7f8e16-b8cc-4788-8110-4b3970d6fd37"] + "Out[196]=",ExpressionUUID->"f0e0dfa6-95df-4cdb-bc6a-f6f679bb515b"] }, Open ]], Cell[CellGroupData[{ @@ -149,14 +138,15 @@ Cell[BoxData[ RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"1", "/", "3"}]]}]}]], "Input", CellLabel-> - "In[395]:=",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], + "In[197]:=",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], -Cell[BoxData["4.870070286417752`"], "Output", +Cell[BoxData["4.956284070769583`"], "Output", CellChangeTimes->{ 3.9913196498425236`*^9, 3.9938158240572863`*^9, 3.993815892624365*^9, { - 3.9938159517417*^9, 3.993815995691177*^9}}, + 3.9938159517417*^9, 3.993815995691177*^9}, {3.994012734763052*^9, + 3.994012753070916*^9}, 3.994013280981629*^9}, CellLabel-> - "Out[395]=",ExpressionUUID->"40916a73-e987-44cb-bd72-7c4c61cc1dc4"] + "Out[197]=",ExpressionUUID->"ca5eaa25-ca1a-45e1-8dab-ef5558f5e848"] }, Open ]], Cell[CellGroupData[{ @@ -167,14 +157,15 @@ Cell[BoxData[ 3.991799283179735*^9, {3.993815616610156*^9, 3.993815618917514*^9}, { 3.9938156766732063`*^9, 3.993815681630651*^9}}, CellLabel-> - "In[396]:=",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], + "In[198]:=",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], Cell[BoxData["0.95921`"], "Output", CellChangeTimes->{ 3.9938158240746737`*^9, 3.9938158926348877`*^9, {3.993815951754884*^9, - 3.993815995704525*^9}}, + 3.993815995704525*^9}, {3.994012734778141*^9, 3.994012753087864*^9}, + 3.9940132809917192`*^9}, CellLabel-> - "Out[396]=",ExpressionUUID->"17ec3466-a891-47fd-ad6e-0f67eebcf191"] + "Out[198]=",ExpressionUUID->"295a4cbe-7878-4dbf-ba68-c5eba9ca3bd2"] }, Open ]], Cell[CellGroupData[{ @@ -184,14 +175,15 @@ Cell[BoxData[ CellChangeTimes->{ 3.991799280663351*^9, {3.993815686480484*^9, 3.993815701548067*^9}}, CellLabel-> - "In[397]:=",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], + "In[199]:=",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], Cell[BoxData["0.40907`"], "Output", CellChangeTimes->{ 3.993815824091074*^9, 3.993815892645401*^9, {3.993815951767627*^9, - 3.993815995717485*^9}}, + 3.993815995717485*^9}, {3.994012734791346*^9, 3.99401275310209*^9}, + 3.994013281002099*^9}, CellLabel-> - "Out[397]=",ExpressionUUID->"627aa18c-e7d0-46b8-9ea6-a6e2e623bc65"] + "Out[199]=",ExpressionUUID->"09582f61-e993-4f6a-baf2-da0470724e35"] }, Open ]], Cell[CellGroupData[{ @@ -199,14 +191,15 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x1", "=", "0"}]], "Input", CellLabel-> - "In[398]:=",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], + "In[200]:=",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913196498927155`*^9, 3.993815824106497*^9, 3.9938158926558847`*^9, { - 3.993815951780663*^9, 3.993815995730535*^9}}, + 3.993815951780663*^9, 3.993815995730535*^9}, {3.9940127348044577`*^9, + 3.994012753117031*^9}, 3.99401328101163*^9}, CellLabel-> - "Out[398]=",ExpressionUUID->"cab37321-21b2-4f97-9416-6e6ec7d442a4"] + "Out[200]=",ExpressionUUID->"3ebc86f1-b242-4d68-97bf-f699271c546a"] }, Open ]], Cell[CellGroupData[{ @@ -214,14 +207,15 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x2", "=", "0"}]], "Input", CellLabel-> - "In[399]:=",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], + "In[201]:=",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913196498996067`*^9, 3.993815824123843*^9, 3.9938158926663837`*^9, { - 3.993815951793076*^9, 3.993815995743602*^9}}, + 3.993815951793076*^9, 3.993815995743602*^9}, {3.994012734818459*^9, + 3.994012753131789*^9}, 3.99401328102074*^9}, CellLabel-> - "Out[399]=",ExpressionUUID->"af8a7b75-5d82-4650-a4a8-8917d748387b"] + "Out[201]=",ExpressionUUID->"4463342c-feaf-48eb-8ada-f24efca164cf"] }, Open ]], Cell[CellGroupData[{ @@ -246,14 +240,15 @@ Cell[BoxData[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", CellLabel-> - "In[400]:=",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], + "In[202]:=",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], Cell[BoxData["2.4538606431456684`"], "Output", CellChangeTimes->{ 3.9913197863028755`*^9, 3.993815824141597*^9, 3.993815892677889*^9, { - 3.9938159518063183`*^9, 3.9938159957558603`*^9}}, + 3.9938159518063183`*^9, 3.9938159957558603`*^9}, {3.994012734835313*^9, + 3.994012753146474*^9}, 3.994013281030326*^9}, CellLabel-> - "Out[400]=",ExpressionUUID->"d2031daf-07fe-4fec-a6b3-90fada487771"] + "Out[202]=",ExpressionUUID->"85ef006f-629c-4ea9-9da2-ea7984aca181"] }, Open ]], Cell[CellGroupData[{ @@ -278,14 +273,15 @@ Cell[BoxData[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", CellLabel-> - "In[401]:=",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], + "In[203]:=",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], Cell[BoxData["1.4512846433038022`"], "Output", CellChangeTimes->{ 3.9913197864610195`*^9, 3.993815824156972*^9, 3.993815892689371*^9, { - 3.9938159518190203`*^9, 3.993815995768323*^9}}, + 3.9938159518190203`*^9, 3.993815995768323*^9}, {3.99401273484025*^9, + 3.994012753161911*^9}, 3.994013281039236*^9}, CellLabel-> - "Out[401]=",ExpressionUUID->"2f80541f-cea3-4155-b610-92bb82e57ad3"] + "Out[203]=",ExpressionUUID->"463cb81b-0290-434c-879b-7f5f9942d0be"] }, Open ]], Cell[CellGroupData[{ @@ -341,14 +337,15 @@ Cell[BoxData[ SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", CellLabel-> - "In[402]:=",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], + "In[204]:=",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], -Cell[BoxData["0.37612309076902095`"], "Output", +Cell[BoxData["0.3744607025351484`"], "Output", CellChangeTimes->{ 3.991319786533783*^9, 3.9938158241736803`*^9, 3.993815892702938*^9, { - 3.993815951831235*^9, 3.993815995780489*^9}}, + 3.993815951831235*^9, 3.993815995780489*^9}, {3.994012734857376*^9, + 3.994012753177943*^9}, 3.994013281050802*^9}, CellLabel-> - "Out[402]=",ExpressionUUID->"a5d1b011-7d27-4b31-8672-520f1252d0d1"] + "Out[204]=",ExpressionUUID->"5bdb3916-91fb-4347-af64-c89c87bb1fc6"] }, Open ]], Cell[CellGroupData[{ @@ -400,15 +397,16 @@ Cell[BoxData[ SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", CellLabel-> - "In[403]:=",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], + "In[205]:=",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], Cell[BoxData[ - RowBox[{"-", "0.08278741818525207`"}]], "Output", + RowBox[{"-", "0.08358618531832765`"}]], "Output", CellChangeTimes->{ 3.991319786540777*^9, 3.993815824190381*^9, 3.993815892714963*^9, { - 3.99381595184389*^9, 3.993815995792754*^9}}, + 3.99381595184389*^9, 3.993815995792754*^9}, {3.994012734871372*^9, + 3.9940127531931753`*^9}, 3.994013281057489*^9}, CellLabel-> - "Out[403]=",ExpressionUUID->"3bcb58b3-6db0-4260-9032-f765b9cb3f8f"] + "Out[205]=",ExpressionUUID->"1f9da4a4-8840-446f-8c48-327dcb682c06"] }, Open ]], Cell[CellGroupData[{ @@ -460,15 +458,16 @@ Cell[BoxData[ SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", CellLabel-> - "In[404]:=",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], + "In[206]:=",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], Cell[BoxData[ - RowBox[{"-", "0.6005048677841507`"}]], "Output", + RowBox[{"-", "0.5957523139282981`"}]], "Output", CellChangeTimes->{ 3.9913197865777817`*^9, 3.993815824207239*^9, 3.993815892726112*^9, { - 3.993815951856346*^9, 3.9938159958051043`*^9}}, + 3.993815951856346*^9, 3.9938159958051043`*^9}, {3.994012734886475*^9, + 3.994012753208178*^9}, 3.994013281068618*^9}, CellLabel-> - "Out[404]=",ExpressionUUID->"143670c9-147f-408b-a96f-d4daeddb3aeb"] + "Out[206]=",ExpressionUUID->"e43e3543-f7a7-4009-b1f4-c4d6b7f0226f"] }, Open ]], Cell[CellGroupData[{ @@ -524,14 +523,15 @@ Cell[BoxData[ SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", CellLabel-> - "In[405]:=",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], + "In[207]:=",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], -Cell[BoxData["0.7114611726284006`"], "Output", +Cell[BoxData["0.713744744985854`"], "Output", CellChangeTimes->{ 3.9913197866129*^9, 3.993815824222714*^9, 3.993815892737419*^9, { - 3.9938159518694*^9, 3.993815995817747*^9}}, + 3.9938159518694*^9, 3.993815995817747*^9}, {3.99401273490063*^9, + 3.994012753223435*^9}, 3.994013281078445*^9}, CellLabel-> - "Out[405]=",ExpressionUUID->"5adef6bb-ed2c-4e48-80c5-73eef8f4cfd8"] + "Out[207]=",ExpressionUUID->"2c42b9e8-119a-4541-8b2c-039ba53fa9c8"] }, Open ]], Cell[CellGroupData[{ @@ -539,14 +539,15 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", CellLabel-> - "In[406]:=",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], + "In[208]:=",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], Cell[BoxData["300"], "Output", CellChangeTimes->{ 3.991319786620775*^9, 3.993815824238377*^9, 3.993815892748749*^9, { - 3.993815951883985*^9, 3.993815995830997*^9}}, + 3.993815951883985*^9, 3.993815995830997*^9}, {3.994012734916293*^9, + 3.994012753238081*^9}, 3.994013281087508*^9}, CellLabel-> - "Out[406]=",ExpressionUUID->"551bb716-45b4-47a1-8338-64b7d20e53c4"] + "Out[208]=",ExpressionUUID->"395e26c2-3dc4-40f9-a8e5-15a42707a0d9"] }, Open ]], Cell[CellGroupData[{ @@ -554,14 +555,15 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fin", "=", "0.09"}]], "Input", CellLabel-> - "In[407]:=",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], + "In[209]:=",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], Cell[BoxData["0.09`"], "Output", CellChangeTimes->{ 3.991319786657793*^9, 3.993815824252192*^9, 3.993815892759966*^9, { - 3.993815951897129*^9, 3.9938159958447227`*^9}}, + 3.993815951897129*^9, 3.9938159958447227`*^9}, {3.994012734930868*^9, + 3.9940127532525377`*^9}, 3.994013281097954*^9}, CellLabel-> - "Out[407]=",ExpressionUUID->"13f77119-79a8-4728-afd2-b9e946f2c120"] + "Out[209]=",ExpressionUUID->"971d9b92-7e50-4524-af3e-d34c1f74f43b"] }, Open ]], Cell[CellGroupData[{ @@ -569,14 +571,15 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffin", "=", "0.42"}]], "Input", CellLabel-> - "In[408]:=",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], + "In[210]:=",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], Cell[BoxData["0.42`"], "Output", CellChangeTimes->{ 3.9913197866657925`*^9, 3.993815824265974*^9, 3.993815892777206*^9, { - 3.993815951909596*^9, 3.993815995857946*^9}}, + 3.993815951909596*^9, 3.993815995857946*^9}, {3.994012734946954*^9, + 3.994012753268147*^9}, 3.994013281108564*^9}, CellLabel-> - "Out[408]=",ExpressionUUID->"43d4f1a2-a517-4ac2-bc95-a8ad6cf00221"] + "Out[210]=",ExpressionUUID->"e7ecbe34-8915-49fe-ac77-de27c0c908cb"] }, Open ]], Cell[CellGroupData[{ @@ -586,15 +589,16 @@ Cell[BoxData[ RowBox[{"-", "2.59"}]}]], "Input", CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, CellLabel-> - "In[409]:=",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], + "In[211]:=",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], Cell[BoxData[ RowBox[{"-", "2.59`"}]], "Output", CellChangeTimes->{ 3.9913197866996*^9, 3.993815824281651*^9, 3.993815892789987*^9, { - 3.993815951922598*^9, 3.993815995871676*^9}}, + 3.993815951922598*^9, 3.993815995871676*^9}, {3.994012734961584*^9, + 3.994012753285798*^9}, 3.994013281118691*^9}, CellLabel-> - "Out[409]=",ExpressionUUID->"53afaf9c-e47e-4769-8654-5afd7ebd290c"] + "Out[211]=",ExpressionUUID->"5a866327-178c-4686-8e92-7dd75c7964ac"] }, Open ]], Cell[CellGroupData[{ @@ -602,14 +606,15 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffex", "=", "0.54"}]], "Input", CellLabel-> - "In[410]:=",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], + "In[212]:=",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], Cell[BoxData["0.54`"], "Output", CellChangeTimes->{ 3.9913197867406044`*^9, 3.993815824297344*^9, 3.9938158928016577`*^9, { - 3.993815951935726*^9, 3.993815995884973*^9}}, + 3.993815951935726*^9, 3.993815995884973*^9}, {3.9940127349760647`*^9, + 3.994012753303388*^9}, 3.994013281128398*^9}, CellLabel-> - "Out[410]=",ExpressionUUID->"9dcdd773-c638-4f74-8c1c-a44872e5fdec"] + "Out[212]=",ExpressionUUID->"0da10e8e-61fb-4d64-bc48-784dd04fbefe"] }, Open ]], Cell[CellGroupData[{ @@ -620,14 +625,15 @@ Cell[BoxData[ 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, { 3.993815710443075*^9, 3.9938157105928802`*^9}}, CellLabel-> - "In[411]:=",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], + "In[213]:=",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], Cell[BoxData["66"], "Output", CellChangeTimes->{ 3.9913197867861958`*^9, 3.993815824312414*^9, 3.993815892812936*^9, { - 3.9938159519479322`*^9, 3.9938159958976*^9}}, + 3.9938159519479322`*^9, 3.9938159958976*^9}, {3.994012734991516*^9, + 3.994012753318815*^9}, 3.994013281138682*^9}, CellLabel-> - "Out[411]=",ExpressionUUID->"086298ca-5e2e-478b-8697-8efa14858ce0"] + "Out[213]=",ExpressionUUID->"3c53442c-8e6e-4774-b28a-b9b3be86e290"] }, Open ]], Cell[CellGroupData[{ @@ -638,14 +644,15 @@ Cell[BoxData[ CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, 3.9916443064841423`*^9, {3.993815715623077*^9, 3.993815715723624*^9}}, CellLabel-> - "In[412]:=",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], + "In[214]:=",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], Cell[BoxData["28"], "Output", CellChangeTimes->{ 3.9913197867928696`*^9, 3.9938158243255568`*^9, 3.993815892824174*^9, { - 3.993815951962007*^9, 3.993815995910904*^9}}, + 3.993815951962007*^9, 3.993815995910904*^9}, {3.994012735006587*^9, + 3.994012753334146*^9}, 3.994013281148251*^9}, CellLabel-> - "Out[412]=",ExpressionUUID->"0ec8ca43-d1f1-4968-9651-334fa087d2ed"] + "Out[214]=",ExpressionUUID->"383bf52f-64cd-4e33-bd9d-8172335eda33"] }, Open ]], Cell[CellGroupData[{ @@ -655,14 +662,15 @@ Cell[BoxData[ RowBox[{"A", "-", "A1"}]}]], "Input", CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, CellLabel-> - "In[413]:=",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], + "In[215]:=",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], -Cell[BoxData["74"], "Output", +Cell[BoxData["78"], "Output", CellChangeTimes->{ 3.991319786827894*^9, 3.993815824339529*^9, 3.993815892835505*^9, { - 3.9938159519756107`*^9, 3.9938159959234123`*^9}}, + 3.9938159519756107`*^9, 3.9938159959234123`*^9}, {3.9940127350225773`*^9, + 3.99401275334903*^9}, 3.994013281158348*^9}, CellLabel-> - "Out[413]=",ExpressionUUID->"225af120-f5d7-4b59-9bf5-9d2d2f34f958"] + "Out[215]=",ExpressionUUID->"875dd278-6a24-4361-9f0b-e6670678fe27"] }, Open ]], Cell[CellGroupData[{ @@ -678,14 +686,15 @@ Cell[BoxData[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", CellLabel-> - "In[414]:=",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], + "In[216]:=",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], -Cell[BoxData["0.10891891891891892`"], "Output", +Cell[BoxData["0.11193732193732193`"], "Output", CellChangeTimes->{ 3.9913197868648605`*^9, 3.993815824354212*^9, 3.993815892846965*^9, { - 3.99381595198964*^9, 3.993815995937854*^9}}, + 3.99381595198964*^9, 3.993815995937854*^9}, {3.994012735036902*^9, + 3.994012753363584*^9}, 3.994013281168285*^9}, CellLabel-> - "Out[414]=",ExpressionUUID->"04870622-2f58-4b54-813b-772f8f7ba51e"] + "Out[216]=",ExpressionUUID->"6288499c-7ff9-4150-95ab-5853bcb008f4"] }, Open ]], Cell[CellGroupData[{ @@ -701,15 +710,16 @@ Cell[BoxData[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", CellLabel-> - "In[415]:=",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], + "In[217]:=",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], Cell[BoxData[ - RowBox[{"-", "2.5656756756756756`"}]], "Output", + RowBox[{"-", "2.5617948717948718`"}]], "Output", CellChangeTimes->{ 3.9913197868718567`*^9, 3.9938158243693666`*^9, 3.9938158928581047`*^9, { - 3.993815952002063*^9, 3.993815995952959*^9}}, + 3.993815952002063*^9, 3.993815995952959*^9}, {3.994012735051235*^9, + 3.994012753380294*^9}, 3.994013281178659*^9}, CellLabel-> - "Out[415]=",ExpressionUUID->"c61c10b1-7ded-4439-a4a8-b33d3b9b8b7f"] + "Out[217]=",ExpressionUUID->"d2fa704d-7523-487c-a231-bbba5c26706f"] }, Open ]], Cell[CellGroupData[{ @@ -741,14 +751,15 @@ Cell[BoxData[ 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, 3.943418448948422*^9}, {3.9919752185010967`*^9, 3.9919752200326233`*^9}}, CellLabel-> - "In[416]:=",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], + "In[218]:=",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], -Cell[BoxData["17.648548712097966`"], "Output", +Cell[BoxData["17.755860569879673`"], "Output", CellChangeTimes->{ 3.9913197869068584`*^9, 3.9938158243828497`*^9, 3.9938158928694487`*^9, { - 3.993815952015215*^9, 3.993815995959347*^9}}, + 3.993815952015215*^9, 3.993815995959347*^9}, {3.994012735067181*^9, + 3.994012753395359*^9}, 3.9940132811894083`*^9}, CellLabel-> - "Out[416]=",ExpressionUUID->"e4f4ef81-6c1b-4622-80b6-57b2e8b36e28"] + "Out[218]=",ExpressionUUID->"daecb561-b08f-484e-8637-cfd138f9bc6e"] }, Open ]], Cell[CellGroupData[{ @@ -757,14 +768,15 @@ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, CellLabel-> - "In[417]:=",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], + "In[219]:=",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], Cell[BoxData["300"], "Output", CellChangeTimes->{ 3.991319786940857*^9, 3.993815824396482*^9, 3.993815892880583*^9, { - 3.993815952028016*^9, 3.993815995974369*^9}}, + 3.993815952028016*^9, 3.993815995974369*^9}, {3.9940127350830297`*^9, + 3.994012753409977*^9}, 3.994013281198745*^9}, CellLabel-> - "Out[417]=",ExpressionUUID->"290fccad-aed7-431b-8a9a-307d5d3faf48"] + "Out[219]=",ExpressionUUID->"9b43ccba-dea2-4c4a-baa1-ff7c06c35b07"] }, Open ]], Cell[CellGroupData[{ @@ -775,19 +787,20 @@ Cell[BoxData[ 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { 3.993815850527903*^9, 3.9938158535087967`*^9}}, CellLabel-> - "In[418]:=",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], + "In[220]:=",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], Cell[BoxData["1.925`"], "Output", CellChangeTimes->{ - 3.993815892892448*^9, {3.993815952041005*^9, 3.9938159959864597`*^9}}, + 3.993815892892448*^9, {3.993815952041005*^9, 3.9938159959864597`*^9}, { + 3.994012735098775*^9, 3.994012753424415*^9}, 3.9940132812089367`*^9}, CellLabel-> - "Out[418]=",ExpressionUUID->"1549cd96-a904-42e7-b52f-fda3f368fe45"] + "Out[220]=",ExpressionUUID->"e1837d25-c3ef-481b-95cf-194d0ceb1503"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, CellLabel-> - "In[419]:=",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], + "In[221]:=",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], Cell[CellGroupData[{ @@ -797,19 +810,20 @@ Cell[BoxData[ 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { 3.993815855721238*^9, 3.993815857092358*^9}}, CellLabel-> - "In[420]:=",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], + "In[222]:=",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], Cell[BoxData["0.805`"], "Output", CellChangeTimes->{ - 3.993815892911134*^9, {3.993815952057427*^9, 3.99381599600596*^9}}, + 3.993815892911134*^9, {3.993815952057427*^9, 3.99381599600596*^9}, { + 3.994012735117734*^9, 3.99401275345194*^9}, 3.9940132812240143`*^9}, CellLabel-> - "Out[420]=",ExpressionUUID->"98ee8e70-5f02-4c49-9f00-a886e6f49a0b"] + "Out[222]=",ExpressionUUID->"1b02dbd8-3996-406e-a7b6-16b6e27835dd"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, CellLabel-> - "In[421]:=",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], + "In[223]:=",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], Cell[CellGroupData[{ @@ -819,19 +833,20 @@ Cell[BoxData[ 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { 3.993815859994154*^9, 3.993815861340933*^9}}, CellLabel-> - "In[422]:=",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], + "In[224]:=",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], Cell[BoxData["2.5`"], "Output", CellChangeTimes->{ - 3.9938158929287786`*^9, {3.99381595207283*^9, 3.993815996022519*^9}}, + 3.9938158929287786`*^9, {3.99381595207283*^9, 3.993815996022519*^9}, { + 3.9940127351358128`*^9, 3.994012753478545*^9}, 3.994013281237349*^9}, CellLabel-> - "Out[422]=",ExpressionUUID->"35e6304e-9ed9-42f0-9a12-a98874bc099d"] + "Out[224]=",ExpressionUUID->"64784e32-c082-45e1-9dcc-45ae477eb016"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, CellLabel-> - "In[423]:=",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], + "In[225]:=",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], Cell[CellGroupData[{ @@ -841,19 +856,20 @@ Cell[BoxData[ 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, 3.991799359954439*^9, {3.9938158643599787`*^9, 3.993815865676284*^9}}, CellLabel-> - "In[424]:=",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], + "In[226]:=",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], Cell[BoxData["1.165`"], "Output", CellChangeTimes->{ - 3.993815892946157*^9, {3.9938159520880413`*^9, 3.9938159960372267`*^9}}, + 3.993815892946157*^9, {3.9938159520880413`*^9, 3.9938159960372267`*^9}, { + 3.99401273515212*^9, 3.994012753505625*^9}, 3.99401328125029*^9}, CellLabel-> - "Out[424]=",ExpressionUUID->"5ed10d4c-de1a-40ca-b4f8-06dc6806b476"] + "Out[226]=",ExpressionUUID->"0bd4dd65-9cbb-4258-90e4-15654d27e930"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, CellLabel-> - "In[425]:=",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], + "In[227]:=",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], Cell[CellGroupData[{ @@ -863,19 +879,20 @@ Cell[BoxData[ 3.991718016467348*^9, 3.991799361414671*^9, {3.993815868143258*^9, 3.993815869195242*^9}}, CellLabel-> - "In[426]:=",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], + "In[228]:=",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], Cell[BoxData["1.213`"], "Output", CellChangeTimes->{ - 3.993815892962039*^9, {3.993815952103568*^9, 3.993815996052133*^9}}, + 3.993815892962039*^9, {3.993815952103568*^9, 3.993815996052133*^9}, { + 3.994012735168161*^9, 3.994012753532589*^9}, 3.994013281263538*^9}, CellLabel-> - "Out[426]=",ExpressionUUID->"2108e835-366d-4628-bd9c-bcc99a4c5939"] + "Out[228]=",ExpressionUUID->"aa149681-3df3-408b-89e6-f44826c5aa1c"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, CellLabel-> - "In[427]:=",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], + "In[229]:=",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], Cell[CellGroupData[{ @@ -885,19 +902,20 @@ Cell[BoxData[ 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.993815872614973*^9, 3.993815875095196*^9}}, CellLabel-> - "In[428]:=",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], + "In[230]:=",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], Cell[BoxData["0.57`"], "Output", CellChangeTimes->{ - 3.993815892978149*^9, {3.9938159521195602`*^9, 3.9938159960676327`*^9}}, + 3.993815892978149*^9, {3.9938159521195602`*^9, 3.9938159960676327`*^9}, { + 3.994012735184478*^9, 3.994012753559978*^9}, 3.994013281276264*^9}, CellLabel-> - "Out[428]=",ExpressionUUID->"f55807ff-8966-4208-b7d5-e23d3525fb84"] + "Out[230]=",ExpressionUUID->"16aae6bf-c99e-4322-89b4-37f0024483e7"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, CellLabel-> - "In[429]:=",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], + "In[231]:=",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], Cell[CellGroupData[{ @@ -907,19 +925,20 @@ Cell[BoxData[ 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.993815877839096*^9, 3.993815879047324*^9}}, CellLabel-> - "In[430]:=",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], + "In[232]:=",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], Cell[BoxData["1.35`"], "Output", CellChangeTimes->{ - 3.993815892994123*^9, {3.99381595213482*^9, 3.993815996092525*^9}}, + 3.993815892994123*^9, {3.99381595213482*^9, 3.993815996092525*^9}, { + 3.994012735201104*^9, 3.994012753586568*^9}, 3.994013281289627*^9}, CellLabel-> - "Out[430]=",ExpressionUUID->"c95790d2-de7f-4694-be7f-be176b5c975d"] + "Out[232]=",ExpressionUUID->"48612957-1fe6-4701-847c-954c5540e7bc"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, CellLabel-> - "In[431]:=",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], + "In[233]:=",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], Cell[CellGroupData[{ @@ -928,19 +947,20 @@ Cell[BoxData[ CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, 3.9917993660901737`*^9, {3.993815882043911*^9, 3.993815883712513*^9}}, CellLabel-> - "In[432]:=",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], + "In[234]:=",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], Cell[BoxData["0.695`"], "Output", CellChangeTimes->{ - 3.993815893009348*^9, {3.9938159521502934`*^9, 3.9938159961073437`*^9}}, + 3.993815893009348*^9, {3.9938159521502934`*^9, 3.9938159961073437`*^9}, { + 3.994012735217507*^9, 3.994012753614246*^9}, 3.9940132813030252`*^9}, CellLabel-> - "Out[432]=",ExpressionUUID->"14b07abd-c7e8-4d2f-b4bb-1896e41668aa"] + "Out[234]=",ExpressionUUID->"b837f1be-feee-4838-8d8e-9b413609dddd"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, CellLabel-> - "In[433]:=",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], + "In[235]:=",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], Cell[CellGroupData[{ @@ -1430,14 +1450,15 @@ Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== "], CellLabel-> - "In[434]:=",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], + "In[236]:=",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], -Cell[BoxData["0.12255935718426071`"], "Output", +Cell[BoxData["0.12327762268272666`"], "Output", CellChangeTimes->{ 3.991319787430073*^9, 3.993815824789941*^9, 3.993815893053749*^9, { - 3.9938159521927853`*^9, 3.9938159961478243`*^9}}, + 3.9938159521927853`*^9, 3.9938159961478243`*^9}, {3.994012735307992*^9, + 3.994012753662813*^9}, 3.994013281353035*^9}, CellLabel-> - "Out[434]=",ExpressionUUID->"9b29168b-6b26-47b4-b97b-8626acbb3bd5"] + "Out[236]=",ExpressionUUID->"7abbd9eb-8584-45db-87ee-afe5657a5b56"] }, Open ]], Cell[CellGroupData[{ @@ -1932,14 +1953,15 @@ Cell[BoxData[ 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, CellLabel-> - "In[435]:=",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], + "In[237]:=",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], -Cell[BoxData["8.206872104265582`"], "Output", +Cell[BoxData["8.089090426123509`"], "Output", CellChangeTimes->{ 3.991319787574972*^9, 3.993815824958537*^9, 3.993815893086632*^9, { - 3.993815952223331*^9, 3.993815996176463*^9}}, + 3.993815952223331*^9, 3.993815996176463*^9}, {3.994012735341444*^9, + 3.9940127537028303`*^9}, 3.994013281388946*^9}, CellLabel-> - "Out[435]=",ExpressionUUID->"6a91eb01-0dc1-4df6-8044-8f8fe9c2dd14"] + "Out[237]=",ExpressionUUID->"511b2473-64a7-4d45-8b08-6aee373e1bd5"] }, Open ]], Cell[CellGroupData[{ @@ -2428,15 +2450,16 @@ Cell[BoxData[ 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, CellLabel-> - "In[436]:=",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], + "In[238]:=",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], Cell[BoxData[ - RowBox[{"-", "18.153035321561696`"}]], "Output", + RowBox[{"-", "18.15349098777757`"}]], "Output", CellChangeTimes->{ 3.991319787641424*^9, 3.993815825088951*^9, 3.993815893116687*^9, { - 3.9938159522505827`*^9, 3.9938159962051373`*^9}}, + 3.9938159522505827`*^9, 3.9938159962051373`*^9}, {3.994012735372669*^9, + 3.994012753746902*^9}, 3.994013281426799*^9}, CellLabel-> - "Out[436]=",ExpressionUUID->"96789d30-79f5-417b-8e34-20799c818975"] + "Out[238]=",ExpressionUUID->"4dcb72b9-5a05-475a-b19b-308eff8e0aa1"] }, Open ]], Cell[CellGroupData[{ @@ -2995,15 +3018,16 @@ Cell[BoxData[ RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", CellLabel-> - "In[437]:=",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], + "In[239]:=",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], Cell[BoxData[ - RowBox[{"-", "23.66295034513909`"}]], "Output", + RowBox[{"-", "24.05337115009524`"}]], "Output", CellChangeTimes->{ 3.991319787711939*^9, 3.993815825243335*^9, 3.993815893152563*^9, { - 3.993815952283412*^9, 3.9938159962366734`*^9}}, + 3.993815952283412*^9, 3.9938159962366734`*^9}, {3.9940127354096613`*^9, + 3.9940127537823277`*^9}, 3.9940132814724073`*^9}, CellLabel-> - "Out[437]=",ExpressionUUID->"afbfe512-f3e2-425a-9e86-59ea3dbcd22d"] + "Out[239]=",ExpressionUUID->"ffc63857-f558-4c1b-aa1f-8e9664db9a96"] }, Open ]], Cell[CellGroupData[{ @@ -3562,15 +3586,16 @@ Cell[BoxData[ RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", CellLabel-> - "In[438]:=",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], + "In[240]:=",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], Cell[BoxData[ - RowBox[{"-", "68.55316208201624`"}]], "Output", + RowBox[{"-", "68.5715021463911`"}]], "Output", CellChangeTimes->{ 3.9913197877723045`*^9, 3.993815825395423*^9, 3.993815893189039*^9, { - 3.993815952318357*^9, 3.9938159962699547`*^9}}, + 3.993815952318357*^9, 3.9938159962699547`*^9}, {3.994012737745866*^9, + 3.994012753816412*^9}, 3.994013281515609*^9}, CellLabel-> - "Out[438]=",ExpressionUUID->"d1a91c38-e5bf-48c6-968f-49bd349ccbe4"] + "Out[240]=",ExpressionUUID->"79d7da26-6e3c-437d-a235-ddc3df0dc28b"] }, Open ]], Cell[CellGroupData[{ @@ -4202,15 +4227,16 @@ Cell[BoxData[ RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", CellLabel-> - "In[439]:=",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], + "In[241]:=",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], Cell[BoxData[ - RowBox[{"-", "178.33637332671904`"}]], "Output", + RowBox[{"-", "181.33897130481844`"}]], "Output", CellChangeTimes->{ 3.991319787833355*^9, 3.9938158255934277`*^9, 3.9938158932303762`*^9, { - 3.9938159523617983`*^9, 3.993815996307926*^9}}, + 3.9938159523617983`*^9, 3.993815996307926*^9}, {3.9940127379598227`*^9, + 3.994012753855733*^9}, 3.994013281567058*^9}, CellLabel-> - "Out[439]=",ExpressionUUID->"b81bf76d-5025-4d69-8ffb-0781cdf92c63"] + "Out[241]=",ExpressionUUID->"28e5e873-8564-4b25-9879-9ebc8bfbcc56"] }, Open ]], Cell[CellGroupData[{ @@ -4218,14 +4244,15 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U21", "=", "0"}]], "Input", CellLabel-> - "In[440]:=",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], + "In[242]:=",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913204210013676`*^9, 3.993815825610972*^9, 3.993815893238894*^9, { - 3.993815952376239*^9, 3.993815996389533*^9}}, + 3.993815952376239*^9, 3.993815996389533*^9}, {3.994012737981202*^9, + 3.994012753871561*^9}, 3.994013281576571*^9}, CellLabel-> - "Out[440]=",ExpressionUUID->"43a2aa73-02a7-4ddb-9ca1-f3561da449ec"] + "Out[242]=",ExpressionUUID->"701467f8-89d6-4de9-b19b-5c5f3a79c52d"] }, Open ]], Cell[CellGroupData[{ @@ -4233,14 +4260,15 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U22", "=", "0"}]], "Input", CellLabel-> - "In[441]:=",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], + "In[243]:=",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913204210355663`*^9, 3.993815825623754*^9, 3.993815893251865*^9, { - 3.993815952388772*^9, 3.9938159963944883`*^9}}, + 3.993815952388772*^9, 3.9938159963944883`*^9}, {3.994012737993568*^9, + 3.994012753889316*^9}, 3.9940132815919247`*^9}, CellLabel-> - "Out[441]=",ExpressionUUID->"7d45032d-0a4d-4d34-921c-72fb78cb5887"] + "Out[243]=",ExpressionUUID->"fd78c7cb-fb20-4a5e-a0cc-ca92898d4ce8"] }, Open ]], Cell[CellGroupData[{ @@ -4285,14 +4313,15 @@ Cell[BoxData[ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", CellLabel-> - "In[442]:=",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], + "In[244]:=",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], -Cell[BoxData["141.6408072808121`"], "Output", +Cell[BoxData["141.405110309417`"], "Output", CellChangeTimes->{ 3.991320421068556*^9, 3.993815826417283*^9, 3.993815893265246*^9, { - 3.993815952401479*^9, 3.993815996407648*^9}}, + 3.993815952401479*^9, 3.993815996407648*^9}, {3.9940127380069637`*^9, + 3.9940127539062157`*^9}, 3.994013281602353*^9}, CellLabel-> - "Out[442]=",ExpressionUUID->"a88c10ca-518f-4d00-8296-53e61d2895e5"] + "Out[244]=",ExpressionUUID->"ff27cef7-2204-4642-a5d3-ef5c497c19ec"] }, Open ]], Cell[CellGroupData[{ @@ -4333,15 +4362,16 @@ Cell[BoxData[ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", CellLabel-> - "In[443]:=",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], + "In[245]:=",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], Cell[BoxData[ - RowBox[{"-", "127.89117850863332`"}]], "Output", + RowBox[{"-", "128.9528695923845`"}]], "Output", CellChangeTimes->{ 3.991320421098543*^9, 3.99381582721953*^9, 3.993815893272354*^9, { - 3.9938159524150248`*^9, 3.993815996420066*^9}}, + 3.9938159524150248`*^9, 3.993815996420066*^9}, {3.994012738019804*^9, + 3.9940127539503736`*^9}, 3.994013281615589*^9}, CellLabel-> - "Out[443]=",ExpressionUUID->"b798dbd5-fe71-4bc1-81cb-bd8664ba1554"] + "Out[245]=",ExpressionUUID->"19d6e9ef-bb94-4290-8a5a-d34e8f46c1d8"] }, Open ]], Cell[CellGroupData[{ @@ -4386,100 +4416,107 @@ Cell[BoxData[ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", CellLabel-> - "In[444]:=",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], + "In[246]:=",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], -Cell[BoxData["142.73498236601233`"], "Output", +Cell[BoxData["145.46176038414953`"], "Output", CellChangeTimes->{ 3.9913204211275444`*^9, 3.993815827967605*^9, 3.993815893279285*^9, { - 3.993815952427936*^9, 3.993815996433951*^9}}, + 3.993815952427936*^9, 3.993815996433951*^9}, {3.994012738032927*^9, + 3.994012753965966*^9}, 3.994013281627531*^9}, CellLabel-> - "Out[444]=",ExpressionUUID->"3f192810-1568-4f84-8184-b90f269b30aa"] + "Out[246]=",ExpressionUUID->"2963b4d2-9c77-4d18-99d7-7ef1acd2a4e0"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c11"], "Input", CellLabel-> - "In[445]:=",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], + "In[247]:=",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], -Cell[BoxData["0.37612309076902095`"], "Output", +Cell[BoxData["0.3744607025351484`"], "Output", CellChangeTimes->{ 3.9913204211385536`*^9, 3.993815827996399*^9, 3.993815893285612*^9, { - 3.993815952441914*^9, 3.993815996447248*^9}}, + 3.993815952441914*^9, 3.993815996447248*^9}, {3.994012738045417*^9, + 3.9940127539822197`*^9}, 3.994013281640192*^9}, CellLabel-> - "Out[445]=",ExpressionUUID->"f3396ea3-7193-43b2-8126-31235e809195"] + "Out[247]=",ExpressionUUID->"4c29393f-e540-403e-bdfa-c0ed3f8faf1d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c12"], "Input", CellLabel-> - "In[446]:=",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], + "In[248]:=",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], Cell[BoxData[ - RowBox[{"-", "0.08278741818525207`"}]], "Output", + RowBox[{"-", "0.08358618531832765`"}]], "Output", CellChangeTimes->{ 3.9913204211683464`*^9, 3.993815828006872*^9, 3.99381589330029*^9, { - 3.993815952454702*^9, 3.993815996460602*^9}}, + 3.993815952454702*^9, 3.993815996460602*^9}, {3.9940127380579777`*^9, + 3.994012753999001*^9}, 3.994013281650621*^9}, CellLabel-> - "Out[446]=",ExpressionUUID->"0fc5be3a-a6ae-4f62-8516-fe7b90491a86"] + "Out[248]=",ExpressionUUID->"51392b7b-70d5-4e2b-82d1-d437a378ee34"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c21"], "Input", CellLabel-> - "In[447]:=",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], + "In[249]:=",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], Cell[BoxData[ - RowBox[{"-", "0.6005048677841507`"}]], "Output", + RowBox[{"-", "0.5957523139282981`"}]], "Output", CellChangeTimes->{ 3.991320421199068*^9, 3.993815828017632*^9, 3.993815893314815*^9, { - 3.993815952467293*^9, 3.993815996472748*^9}}, + 3.993815952467293*^9, 3.993815996472748*^9}, {3.9940127380705957`*^9, + 3.994012754016019*^9}, 3.994013281662363*^9}, CellLabel-> - "Out[447]=",ExpressionUUID->"4905df50-5444-436f-a192-eb555d438e3f"] + "Out[249]=",ExpressionUUID->"cbcfe3cd-6704-43dd-9b36-45475ac4a3a8"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c22"], "Input", CellLabel-> - "In[448]:=",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], + "In[250]:=",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], -Cell[BoxData["0.7114611726284006`"], "Output", +Cell[BoxData["0.713744744985854`"], "Output", CellChangeTimes->{ 3.991320421228037*^9, 3.9938158280292873`*^9, 3.9938158933264513`*^9, { - 3.99381595247992*^9, 3.9938159964849863`*^9}}, + 3.99381595247992*^9, 3.9938159964849863`*^9}, {3.9940127380831127`*^9, + 3.994012754031786*^9}, 3.9940132816726227`*^9}, CellLabel-> - "Out[448]=",ExpressionUUID->"f4de8f2b-28b5-4a86-a154-4ac970f91315"] + "Out[250]=",ExpressionUUID->"646a36a2-9adc-4399-9879-3511872be4c4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w1"], "Input", CellLabel-> - "In[449]:=",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], + "In[251]:=",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], Cell[BoxData["2.4538606431456684`"], "Output", CellChangeTimes->{ 3.9913204212585373`*^9, 3.993815828040164*^9, 3.9938158933379717`*^9, { - 3.99381595249251*^9, 3.993815996497171*^9}}, + 3.99381595249251*^9, 3.993815996497171*^9}, {3.9940127380959167`*^9, + 3.994012754047423*^9}, 3.994013281684318*^9}, CellLabel-> - "Out[449]=",ExpressionUUID->"09e80ad5-932c-4ba5-8e0a-175532cfb6a6"] + "Out[251]=",ExpressionUUID->"e08d193f-c9d1-4305-8d1c-74ba6cf6448b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w2"], "Input", CellLabel-> - "In[450]:=",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], + "In[252]:=",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], Cell[BoxData["1.4512846433038022`"], "Output", CellChangeTimes->{ 3.9913204212884274`*^9, 3.993815828051201*^9, 3.993815893350441*^9, { - 3.993815952507271*^9, 3.993815996509037*^9}}, + 3.993815952507271*^9, 3.993815996509037*^9}, {3.994012738108345*^9, + 3.994012754065312*^9}, 3.994013281694034*^9}, CellLabel-> - "Out[450]=",ExpressionUUID->"177971be-dcab-466c-b4ae-2c516fccf332"] + "Out[252]=",ExpressionUUID->"550be261-cd55-4ec7-961f-6a9d36a5309d"] }, Open ]], Cell[CellGroupData[{ @@ -4501,15 +4538,16 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", CellLabel-> - "In[451]:=",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], + "In[253]:=",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], Cell[BoxData[ - RowBox[{"-", "35.661457047319146`"}]], "Output", + RowBox[{"-", "35.01877093188689`"}]], "Output", CellChangeTimes->{ 3.9913204213185234`*^9, 3.99381582806227*^9, 3.993815893362507*^9, { - 3.993815952520192*^9, 3.9938159965211277`*^9}}, + 3.993815952520192*^9, 3.9938159965211277`*^9}, {3.994012738120954*^9, + 3.994012754086623*^9}, 3.994013281704444*^9}, CellLabel-> - "Out[451]=",ExpressionUUID->"e6938c80-bf95-4e12-aa6f-faaf212e4ad7"] + "Out[253]=",ExpressionUUID->"d8acaa4c-8e8a-49df-8cfc-f93eecb5bf14"] }, Open ]], Cell[CellGroupData[{ @@ -4531,15 +4569,16 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", CellLabel-> - "In[452]:=",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], + "In[254]:=",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], Cell[BoxData[ - RowBox[{"-", "6.905469209261344`"}]], "Output", + RowBox[{"-", "7.023230644966918`"}]], "Output", CellChangeTimes->{ 3.991320421349531*^9, 3.993815828073289*^9, 3.993815893373386*^9, { - 3.9938159525334873`*^9, 3.9938159965330544`*^9}}, + 3.9938159525334873`*^9, 3.9938159965330544`*^9}, {3.994012738133953*^9, + 3.994012754103959*^9}, 3.9940132818321733`*^9}, CellLabel-> - "Out[452]=",ExpressionUUID->"62cb0720-ab48-4862-86d4-ab183bc411b7"] + "Out[254]=",ExpressionUUID->"c6ff9333-7f9b-4cad-b3b5-279db28e4af7"] }, Open ]], Cell[CellGroupData[{ @@ -4605,14 +4644,15 @@ Cell[BoxData[ RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]}]}]], "Input", CellLabel-> - "In[453]:=",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], + "In[255]:=",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], -Cell[BoxData["105.97935023349297`"], "Output", +Cell[BoxData["106.38633937753012`"], "Output", CellChangeTimes->{ 3.9913204213784294`*^9, 3.993815829714663*^9, 3.993815893386404*^9, { - 3.993815952538138*^9, 3.993815996546342*^9}}, + 3.993815952538138*^9, 3.993815996546342*^9}, {3.994012738147608*^9, + 3.994012754121069*^9}, 3.994013281840885*^9}, CellLabel-> - "Out[453]=",ExpressionUUID->"cdb931a0-f75c-49ce-ab64-9e8b19d75c00"] + "Out[255]=",ExpressionUUID->"d126348f-0129-4078-9de4-fa391fa116a1"] }, Open ]], Cell[CellGroupData[{ @@ -4654,15 +4694,16 @@ Cell[BoxData[ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", CellLabel-> - "In[454]:=",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], + "In[256]:=",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], Cell[BoxData[ - RowBox[{"-", "127.89117850863332`"}]], "Output", + RowBox[{"-", "128.9528695923845`"}]], "Output", CellChangeTimes->{ 3.9913204213904285`*^9, 3.993815830785906*^9, 3.993815893393002*^9, { - 3.99381595255091*^9, 3.993815996558546*^9}}, + 3.99381595255091*^9, 3.993815996558546*^9}, {3.9940127381623087`*^9, + 3.994012754138682*^9}, 3.994013281857121*^9}, CellLabel-> - "Out[454]=",ExpressionUUID->"d93b40f3-dda1-43ba-8670-52f608d1c29a"] + "Out[256]=",ExpressionUUID->"6874a61c-1de7-479c-b005-4bd4509b82f7"] }, Open ]], Cell[CellGroupData[{ @@ -4729,14 +4770,15 @@ Cell[BoxData[ RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]}]}]], "Input", CellLabel-> - "In[455]:=",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], + "In[257]:=",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], -Cell[BoxData["135.82951315675098`"], "Output", +Cell[BoxData["138.4385297391826`"], "Output", CellChangeTimes->{ 3.991320421419428*^9, 3.993815832301989*^9, 3.993815893399308*^9, { - 3.9938159525638323`*^9, 3.993815996570672*^9}}, + 3.9938159525638323`*^9, 3.993815996570672*^9}, {3.994012738168003*^9, + 3.994012754154402*^9}, 3.994013281881344*^9}, CellLabel-> - "Out[455]=",ExpressionUUID->"3f912033-8de5-401f-869b-9c7fb5e1f7ab"] + "Out[257]=",ExpressionUUID->"64bcdb20-2846-4fbb-b7b6-7f5ec6fefc3a"] }, Open ]], Cell[CellGroupData[{ @@ -4795,14 +4837,15 @@ Cell[BoxData[ "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", CellLabel-> - "In[456]:=",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], + "In[258]:=",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], -Cell[BoxData["44.088766238675305`"], "Output", +Cell[BoxData["42.7423287298202`"], "Output", CellChangeTimes->{ 3.9913204214494324`*^9, 3.99381583454182*^9, 3.9938158934054613`*^9, { - 3.99381595257723*^9, 3.993815996582724*^9}}, + 3.99381595257723*^9, 3.993815996582724*^9}, {3.9940127381809587`*^9, + 3.994012754170536*^9}, 3.994013281897695*^9}, CellLabel-> - "Out[456]=",ExpressionUUID->"7ff5357c-fa34-4d78-a54e-4476ef84562b"] + "Out[258]=",ExpressionUUID->"e258b404-ca27-4ae5-98ff-9de0aa6941e7"] }, Open ]], Cell[CellGroupData[{ @@ -4861,14 +4904,15 @@ Cell[BoxData[ "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", CellLabel-> - "In[457]:=",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], + "In[259]:=",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], -Cell[BoxData["861.5543605959765`"], "Output", +Cell[BoxData["852.656398631346`"], "Output", CellChangeTimes->{ 3.991320421481529*^9, 3.993815837006854*^9, 3.993815893411956*^9, { - 3.993815952590604*^9, 3.9938159966008883`*^9}}, + 3.993815952590604*^9, 3.9938159966008883`*^9}, {3.9940127381948357`*^9, + 3.994012754188656*^9}, 3.9940132819350157`*^9}, CellLabel-> - "Out[457]=",ExpressionUUID->"a7d0a40a-c522-49ea-8773-3619b9a7250b"] + "Out[259]=",ExpressionUUID->"6599509e-cfde-4ffe-9757-8890f74c1b13"] }, Open ]], Cell[CellGroupData[{ @@ -4878,20 +4922,21 @@ Cell[BoxData[ CellChangeTimes->{ 3.991799412462593*^9, {3.9938157318997507`*^9, 3.9938157360017023`*^9}}, CellLabel-> - "In[458]:=",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], + "In[260]:=",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], Cell[BoxData["0.8759`"], "Output", CellChangeTimes->{ 3.993815837078327*^9, 3.9938158934176188`*^9, {3.993815952639284*^9, - 3.993815996612877*^9}}, + 3.993815996612877*^9}, {3.994012738207878*^9, 3.994012754205072*^9}, + 3.9940132819553432`*^9}, CellLabel-> - "Out[458]=",ExpressionUUID->"e6c6b67e-2d9c-4827-843e-812320ef0290"] + "Out[260]=",ExpressionUUID->"f10b3d2c-a7e8-455a-82cd-477560420146"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.99184866880085*^9, 3.9918486688048573`*^9}}, CellLabel-> - "In[459]:=",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], + "In[261]:=",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], Cell[CellGroupData[{ @@ -4900,20 +4945,21 @@ Cell[BoxData[ CellChangeTimes->{ 3.991799414288656*^9, {3.993815738256455*^9, 3.9938157433076363`*^9}}, CellLabel-> - "In[460]:=",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], + "In[262]:=",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], Cell[BoxData["0.5061`"], "Output", CellChangeTimes->{ 3.993815837103071*^9, 3.993815893431477*^9, {3.993815952664076*^9, - 3.993815996627941*^9}}, + 3.993815996627941*^9}, {3.994012738223854*^9, 3.994012754233574*^9}, + 3.994013281986814*^9}, CellLabel-> - "Out[460]=",ExpressionUUID->"a7415f61-67bd-4b5e-8c98-5aafc61ffb63"] + "Out[262]=",ExpressionUUID->"86c74c4f-545d-447f-baa1-371b7ec57db9"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848669922333*^9, 3.9918486699293537`*^9}}, CellLabel-> - "In[461]:=",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], + "In[263]:=",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], Cell[CellGroupData[{ @@ -4960,14 +5006,15 @@ Cell[BoxData[ RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], ")"}]}]], "Input", CellLabel-> - "In[462]:=",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], + "In[264]:=",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], -Cell[BoxData["1.5099143641587857`*^-53"], "Output", +Cell[BoxData["1.585212243083306`*^-53"], "Output", CellChangeTimes->{ 3.99132042156752*^9, 3.993815837227385*^9, 3.99381589344741*^9, { - 3.993815952688675*^9, 3.993815996644175*^9}}, + 3.993815952688675*^9, 3.993815996644175*^9}, {3.994012738239715*^9, + 3.994012754268605*^9}, 3.994013282068841*^9}, CellLabel-> - "Out[462]=",ExpressionUUID->"67ad1167-c289-4146-916e-0d9ea7f51889"] + "Out[264]=",ExpressionUUID->"c6037ac0-fb8c-4373-a1d6-3cc76f99c8c5"] }, Open ]], Cell[CellGroupData[{ @@ -5003,14 +5050,15 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", CellChangeTimes->{3.991557471461853*^9}, CellLabel-> - "In[463]:=",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], + "In[265]:=",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], -Cell[BoxData["1.5593608214939602`*^-54"], "Output", +Cell[BoxData["1.702360067495474`*^-54"], "Output", CellChangeTimes->{ 3.99132042159643*^9, 3.9938158372425528`*^9, 3.9938158934590263`*^9, { - 3.993815952703885*^9, 3.993815996657783*^9}}, + 3.993815952703885*^9, 3.993815996657783*^9}, {3.9940127382538443`*^9, + 3.994012754285762*^9}, 3.994013282085567*^9}, CellLabel-> - "Out[463]=",ExpressionUUID->"3ed70382-ea6c-4491-98f5-9a3d67367653"] + "Out[265]=",ExpressionUUID->"a6e59043-72fc-43ae-b741-40652e596d17"] }, Open ]], Cell[CellGroupData[{ @@ -5045,14 +5093,15 @@ Cell[BoxData[ "f2"}]}]], "Input", CellChangeTimes->{{3.991557474366678*^9, 3.99155747655138*^9}}, CellLabel-> - "In[464]:=",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], + "In[266]:=",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], Cell[BoxData["2.542246307107942`*^-54"], "Output", CellChangeTimes->{ 3.9913204216085243`*^9, 3.993815837266635*^9, 3.993815893471107*^9, { - 3.9938159527160892`*^9, 3.993815996672303*^9}}, + 3.9938159527160892`*^9, 3.993815996672303*^9}, {3.994012738267027*^9, + 3.9940127543025846`*^9}, 3.994013282107915*^9}, CellLabel-> - "Out[464]=",ExpressionUUID->"e42a5bfe-36ee-4906-b751-728253aac8c7"] + "Out[266]=",ExpressionUUID->"9ce80ff2-7674-45fb-b4e6-c11f951d5e94"] }, Open ]], Cell[CellGroupData[{ @@ -5076,9 +5125,9 @@ Cell[BoxData[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", CellLabel-> - "In[465]:=",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], + "In[267]:=",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], -Cell[BoxData["14.026572761485475`"], "Output", +Cell[BoxData["14.796977421635912`"], "Output", CellChangeTimes->{ 3.991323706886154*^9, 3.9917089973478775`*^9, 3.9920860582546215`*^9, 3.992086268464361*^9, 3.992086312066765*^9, 3.9920865713192253`*^9, @@ -5086,9 +5135,10 @@ Cell[BoxData["14.026572761485475`"], "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.99381583730796*^9, - 3.993815893483959*^9, {3.9938159527279167`*^9, 3.993815996687014*^9}}, + 3.993815893483959*^9, {3.9938159527279167`*^9, 3.993815996687014*^9}, { + 3.994012738280553*^9, 3.994012754319487*^9}, 3.994013282126153*^9}, CellLabel-> - "Out[465]=",ExpressionUUID->"dbbf2d69-6688-4a43-bbaa-8e30d07aeb99"] + "Out[267]=",ExpressionUUID->"7cfdc7aa-9871-434d-80e9-346b37c7c883"] }, Open ]], Cell[CellGroupData[{ @@ -5115,9 +5165,9 @@ Cell[BoxData[ RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", CellChangeTimes->{3.992086162437586*^9}, CellLabel-> - "In[466]:=",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], + "In[268]:=",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], -Cell[BoxData["46.80902013332719`"], "Output", +Cell[BoxData["48.589323484223385`"], "Output", CellChangeTimes->{ 3.9913204216685333`*^9, 3.9917083768681793`*^9, 3.9920862684823704`*^9, 3.992086312091795*^9, 3.9920865713392296`*^9, 3.9920866021582546`*^9, @@ -5125,9 +5175,10 @@ Cell[BoxData["46.80902013332719`"], "Output", 3.992091247484524*^9, {3.9920913926676064`*^9, 3.9920914468313007`*^9}, { 3.9920915031479607`*^9, 3.9920915226223583`*^9}, {3.9920915619450817`*^9, 3.992091588571615*^9}, 3.993815837320035*^9, 3.9938158934950314`*^9, { - 3.9938159527393513`*^9, 3.99381599669941*^9}}, + 3.9938159527393513`*^9, 3.99381599669941*^9}, {3.994012738294182*^9, + 3.994012754336754*^9}, 3.99401328214548*^9}, CellLabel-> - "Out[466]=",ExpressionUUID->"cf75269c-04a3-4c01-900f-37e920662697"] + "Out[268]=",ExpressionUUID->"89e732a4-fc80-4fcf-80af-d8b97e7667c9"] }, Open ]], Cell[CellGroupData[{ @@ -5137,9 +5188,9 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", CellLabel-> - "In[467]:=",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], + "In[269]:=",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], -Cell[BoxData["1.772916118715786`"], "Output", +Cell[BoxData["1.6995838064602475`"], "Output", CellChangeTimes->{ 3.9913237069236546`*^9, 3.9917089973924427`*^9, 3.9920860582606277`*^9, 3.9920862684883747`*^9, 3.992086312111845*^9, 3.9920865713602333`*^9, @@ -5147,9 +5198,10 @@ Cell[BoxData["1.772916118715786`"], "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.993815845377431*^9, - 3.9938158935064297`*^9, {3.99381595275097*^9, 3.993815996714571*^9}}, + 3.9938158935064297`*^9, {3.99381595275097*^9, 3.993815996714571*^9}, { + 3.994012738306469*^9, 3.994012754354093*^9}, 3.9940132821623163`*^9}, CellLabel-> - "Out[467]=",ExpressionUUID->"8e4cbb91-6487-4f06-abf7-4b228d0ccde2"] + "Out[269]=",ExpressionUUID->"bb75cfd4-3cd5-438b-81a9-0aa6b8c2094b"] }, Open ]], Cell[CellGroupData[{ @@ -5160,9 +5212,9 @@ Cell[BoxData[ FractionBox["Kw", "Qw2"]]}]], "Input", CellChangeTimes->{{3.992086303949501*^9, 3.992086304210249*^9}}, CellLabel-> - "In[468]:=",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], + "In[270]:=",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], -Cell[BoxData["4.290190406847198`"], "Output", +Cell[BoxData["4.189060200191499`"], "Output", CellChangeTimes->{ 3.991320421726494*^9, 3.9917083769120636`*^9, 3.992086312117838*^9, 3.99208657136524*^9, 3.9920866021953373`*^9, 3.9920866683231354`*^9, { @@ -5170,9 +5222,10 @@ Cell[BoxData["4.290190406847198`"], "Output", 3.992091392715067*^9, 3.9920914468593006`*^9}, {3.992091503202347*^9, 3.992091522636343*^9}, {3.992091561975609*^9, 3.99209158860334*^9}, 3.993815853322857*^9, 3.9938158935134573`*^9, {3.9938159527626677`*^9, - 3.993815996726687*^9}}, + 3.993815996726687*^9}, {3.994012738318593*^9, 3.994012754370638*^9}, + 3.99401328218023*^9}, CellLabel-> - "Out[468]=",ExpressionUUID->"c55d1c7a-ce47-4406-bd66-af3ab3a9d50c"] + "Out[270]=",ExpressionUUID->"1abe96a5-280d-4c93-8cf8-675395b2c61f"] }, Open ]], Cell[CellGroupData[{ @@ -5183,9 +5236,9 @@ Cell[BoxData[ RowBox[{"Qw2", "*", "hw"}], "1"]}]], "Input", CellChangeTimes->{3.992086167409481*^9}, CellLabel-> - "In[469]:=",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], + "In[271]:=",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], -Cell[BoxData["200.81960912991764`"], "Output", +Cell[BoxData["203.54360116199032`"], "Output", CellChangeTimes->{ 3.9913204217554817`*^9, 3.9917083769190636`*^9, 3.9920862684953804`*^9, 3.992086312138464*^9, 3.992086571391514*^9, 3.9920866022223396`*^9, @@ -5193,9 +5246,10 @@ Cell[BoxData["200.81960912991764`"], "Output", 3.992091247547844*^9, {3.9920913927375374`*^9, 3.992091446867302*^9}, { 3.992091503209553*^9, 3.992091522657341*^9}, {3.992091561999613*^9, 3.9920915886284447`*^9}, 3.993815856536087*^9, 3.9938158935336018`*^9, { - 3.993815952774157*^9, 3.9938159967389097`*^9}}, + 3.993815952774157*^9, 3.9938159967389097`*^9}, {3.994012738331767*^9, + 3.994012754385953*^9}, 3.9940132821964197`*^9}, CellLabel-> - "Out[469]=",ExpressionUUID->"fcd84019-2054-4528-8279-034962cc5bf8"] + "Out[271]=",ExpressionUUID->"00770fed-5e8d-4087-b9b3-dbaecfa0d4f1"] }, Open ]], Cell[CellGroupData[{ @@ -5205,9 +5259,9 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[470]:=",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], + "In[272]:=",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], -Cell[BoxData["24.867936939177394`"], "Output", +Cell[BoxData["25.148703210370304`"], "Output", CellChangeTimes->{ 3.9913237069753113`*^9, 3.99170899744343*^9, 3.992086058291689*^9, 3.9920862685164757`*^9, 3.992086312143465*^9, 3.9920865713975163`*^9, @@ -5215,9 +5269,10 @@ Cell[BoxData["24.867936939177394`"], "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.993815859733259*^9, - 3.993815893539315*^9, {3.993815952785964*^9, 3.993815996751136*^9}}, + 3.993815893539315*^9, {3.993815952785964*^9, 3.993815996751136*^9}, { + 3.9940127383450193`*^9, 3.994012754403142*^9}, 3.994013282213759*^9}, CellLabel-> - "Out[470]=",ExpressionUUID->"2ad09aec-71ad-4429-a036-be91dca2d204"] + "Out[272]=",ExpressionUUID->"6ed2d034-e49f-4118-b53d-e40f5d4475c8"] }, Open ]], Cell[CellGroupData[{ @@ -5407,9 +5462,9 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[471]:=",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], + "In[273]:=",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], -Cell[BoxData["0.005403832580832765`"], "Output", +Cell[BoxData["0.005423848685997353`"], "Output", CellChangeTimes->{ 3.991323707000412*^9, 3.991708997465433*^9, 3.9920860583187714`*^9, 3.992086268523493*^9, 3.9920863121684647`*^9, 3.9920865714232826`*^9, @@ -5417,9 +5472,10 @@ Cell[BoxData["0.005403832580832765`"], "Output", 3.992091247578861*^9, {3.9920913927664986`*^9, 3.992091446900387*^9}, { 3.992091503241564*^9, 3.9920915226853714`*^9}, {3.9920915620301514`*^9, 3.992091588657053*^9}, {3.993815869136221*^9, 3.993815893546183*^9}, { - 3.993815952798904*^9, 3.9938159967652817`*^9}}, + 3.993815952798904*^9, 3.9938159967652817`*^9}, {3.9940127383588753`*^9, + 3.9940127544196177`*^9}, 3.994013282230133*^9}, CellLabel-> - "Out[471]=",ExpressionUUID->"4a0ddff6-4009-4197-bf13-2da3c4433751"] + "Out[273]=",ExpressionUUID->"e6ae6e7a-f53b-4936-b214-5b1d10c67220"] }, Open ]], Cell[CellGroupData[{ @@ -5434,14 +5490,15 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", Background->RGBColor[0.4, 0.6, 1, 0.33], CellLabel-> - "In[472]:=",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], + "In[274]:=",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], -Cell[BoxData["12.05574346338338`"], "Output", +Cell[BoxData["12.033477717627324`"], "Output", CellChangeTimes->{{3.993815890451015*^9, 3.9938158948073187`*^9}, { - 3.99381595287027*^9, 3.993815996821906*^9}}, + 3.99381595287027*^9, 3.993815996821906*^9}, {3.994012738376402*^9, + 3.9940127545862083`*^9}, 3.994013282304899*^9}, Background->RGBColor[0.14, 0.8, 0.14, 0.33], CellLabel-> - "Out[472]=",ExpressionUUID->"a0cf74c4-a6a8-4ab4-bc72-c706fe2c96b1"] + "Out[274]=",ExpressionUUID->"cd5cd31e-0fec-4845-9095-ea1d9d516b87"] }, Open ]], Cell[BoxData[ @@ -5454,7 +5511,7 @@ Cell[BoxData[ 3.9920863634349823`*^9}, {3.9920864985362244`*^9, 3.992086501430176*^9}, { 3.9920869541635437`*^9, 3.992086954848522*^9}}, CellLabel-> - "In[473]:=",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], + "In[275]:=",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], Cell[CellGroupData[{ @@ -5477,14 +5534,14 @@ Cell[BoxData[ RowBox[{"Ih", "*", "Ir"}], RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", CellLabel-> - "In[474]:=",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], + "In[276]:=",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], -Cell[BoxData["31.57755691212478`"], "Output", +Cell[BoxData["31.795198401623196`"], "Output", CellChangeTimes->{ 3.991320421637537*^9, 3.9938158948950777`*^9, {3.993815952895776*^9, - 3.9938159968386583`*^9}}, + 3.9938159968386583`*^9}, 3.994012754614019*^9, 3.994013282319957*^9}, CellLabel-> - "Out[474]=",ExpressionUUID->"f615d376-56d3-4e57-87f7-948829a5d6da"] + "Out[276]=",ExpressionUUID->"1453884d-6a99-442b-8beb-dc424705eb90"] }, Open ]], Cell[CellGroupData[{ @@ -5510,14 +5567,14 @@ Cell[BoxData[ RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", CellLabel-> - "In[475]:=",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], + "In[277]:=",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], -Cell[BoxData["46.80902013332719`"], "Output", +Cell[BoxData["48.589323484223385`"], "Output", CellChangeTimes->{ 3.9913204216685333`*^9, 3.99381589490676*^9, {3.993815952910122*^9, - 3.9938159968528337`*^9}}, + 3.9938159968528337`*^9}, 3.994012754630669*^9, 3.994013282331594*^9}, CellLabel-> - "Out[475]=",ExpressionUUID->"e365bf8f-3f4b-4966-b570-2175f490d4eb"] + "Out[277]=",ExpressionUUID->"da49ef5a-2c17-49ca-93cd-79204a005255"] }, Open ]], Cell[CellGroupData[{ @@ -5527,14 +5584,14 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb3"]]}]], "Input", CellLabel-> - "In[476]:=",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], + "In[278]:=",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], -Cell[BoxData["1.1816115016035158`"], "Output", +Cell[BoxData["1.159440110015833`"], "Output", CellChangeTimes->{ 3.991320421698473*^9, 3.993815894919223*^9, {3.9938159529227343`*^9, - 3.993815996866757*^9}}, + 3.993815996866757*^9}, 3.994012754648038*^9, 3.9940132823448467`*^9}, CellLabel-> - "Out[476]=",ExpressionUUID->"e38629b1-a97a-420a-8e78-50d7639d2b72"] + "Out[278]=",ExpressionUUID->"98ef52c9-fa5c-4b42-9c3c-906cbccfe97a"] }, Open ]], Cell[CellGroupData[{ @@ -5544,14 +5601,14 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kw", "Qw3"]]}]], "Input", CellLabel-> - "In[477]:=",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], + "In[279]:=",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], -Cell[BoxData["4.290190406847198`"], "Output", +Cell[BoxData["4.189060200191499`"], "Output", CellChangeTimes->{ 3.991320421726494*^9, 3.993815894930522*^9, {3.993815952935423*^9, - 3.993815996880883*^9}}, + 3.993815996880883*^9}, 3.994012754665058*^9, 3.994013282356862*^9}, CellLabel-> - "Out[477]=",ExpressionUUID->"bdd248bd-9b5a-4153-806f-e3f0d3039e18"] + "Out[279]=",ExpressionUUID->"5d091b1c-518d-44ec-8335-d59289a14a33"] }, Open ]], Cell[CellGroupData[{ @@ -5561,14 +5618,14 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", CellLabel-> - "In[478]:=",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], + "In[280]:=",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], -Cell[BoxData["200.81960912991764`"], "Output", +Cell[BoxData["203.54360116199032`"], "Output", CellChangeTimes->{ 3.9913204217554817`*^9, 3.9938158949443817`*^9, {3.993815952948181*^9, - 3.993815996894534*^9}}, + 3.993815996894534*^9}, 3.99401275468149*^9, 3.99401328236899*^9}, CellLabel-> - "Out[478]=",ExpressionUUID->"f16854d5-e3a0-49b3-bc50-f00d66dcd26c"] + "Out[280]=",ExpressionUUID->"5f2a2cec-22c6-4726-883f-70a256d0e7bf"] }, Open ]], Cell[CellGroupData[{ @@ -5578,14 +5635,14 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[479]:=",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], + "In[281]:=",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], -Cell[BoxData["37.31240443990624`"], "Output", +Cell[BoxData["36.864628332753234`"], "Output", CellChangeTimes->{ 3.9913204217855225`*^9, 3.9938158949562683`*^9, {3.993815952959683*^9, - 3.9938159969083977`*^9}}, + 3.9938159969083977`*^9}, 3.994012754695383*^9, 3.994013282379266*^9}, CellLabel-> - "Out[479]=",ExpressionUUID->"53c8c4d9-1688-44dd-abdd-f55b4ad6126f"] + "Out[281]=",ExpressionUUID->"b596bab9-4ced-4428-80a1-ed3b30c43224"] }, Open ]], Cell[CellGroupData[{ @@ -5775,14 +5832,14 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[480]:=",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], + "In[282]:=",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], -Cell[BoxData["0.005063334386799375`"], "Output", +Cell[BoxData["0.0050997810343489216`"], "Output", CellChangeTimes->{ 3.9913204218154297`*^9, 3.993815894971261*^9, {3.9938159529747887`*^9, - 3.993815996922728*^9}}, + 3.993815996922728*^9}, 3.9940127547096033`*^9, 3.994013282393413*^9}, CellLabel-> - "Out[480]=",ExpressionUUID->"5ebc2e11-6419-4dbf-9365-9d847c8b7317"] + "Out[282]=",ExpressionUUID->"20c64375-2ff9-423e-9a77-95f10111473e"] }, Open ]], Cell[CellGroupData[{ @@ -5796,14 +5853,14 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[481]:=",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], + "In[283]:=",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], -Cell[BoxData["12.454509720356018`"], "Output", +Cell[BoxData["12.409925545878776`"], "Output", CellChangeTimes->{ 3.991320422776104*^9, 3.993815896108642*^9, {3.993815953054056*^9, - 3.993815996979204*^9}}, + 3.993815996979204*^9}, 3.994012754757861*^9, 3.994013282452784*^9}, CellLabel-> - "Out[481]=",ExpressionUUID->"930d96bc-c579-48c2-a46c-e197085f955b"] + "Out[283]=",ExpressionUUID->"5b23be25-28ae-4bc9-96c1-2cecf7a8b2ef"] }, Open ]], Cell[CellGroupData[{ @@ -5995,14 +6052,14 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[482]:=",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], + "In[284]:=",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], -Cell[BoxData["0.025248382566400843`"], "Output", +Cell[BoxData["0.025263805359980067`"], "Output", CellChangeTimes->{ 3.9913204229248886`*^9, 3.9938158961371613`*^9, {3.9938159530659513`*^9, - 3.993815996993347*^9}}, + 3.993815996993347*^9}, 3.994012754776168*^9, 3.994013282470049*^9}, CellLabel-> - "Out[482]=",ExpressionUUID->"807c5544-8b43-4b71-ae8d-d056b50dd844"] + "Out[284]=",ExpressionUUID->"736a754b-5a93-4e14-a466-b2b258fc8c84"] }, Open ]], Cell[CellGroupData[{ @@ -6016,14 +6073,14 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[483]:=",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], + "In[285]:=",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], -Cell[BoxData["5.577353347614627`"], "Output", +Cell[BoxData["5.575650684455051`"], "Output", CellChangeTimes->{ 3.9913204230053368`*^9, 3.993815897262889*^9, {3.993815953125681*^9, - 3.993815997051712*^9}}, + 3.993815997051712*^9}, 3.9940127548226223`*^9, 3.99401328252485*^9}, CellLabel-> - "Out[483]=",ExpressionUUID->"56428f2a-fc66-4967-9db4-0815e153a6c9"] + "Out[285]=",ExpressionUUID->"47a716cc-5b4f-44bf-8446-3f391bc4fbcc"] }, Open ]], Cell[CellGroupData[{ @@ -6116,14 +6173,14 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[484]:=",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], + "In[286]:=",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], -Cell[BoxData["0.10688147857467016`"], "Output", +Cell[BoxData["0.11555035266703631`"], "Output", CellChangeTimes->{ 3.9913204230393543`*^9, 3.993815897282007*^9, {3.993815953138891*^9, - 3.993815997064866*^9}}, + 3.993815997064866*^9}, 3.994012754836348*^9, 3.994013282545157*^9}, CellLabel-> - "Out[484]=",ExpressionUUID->"d37bd6ea-7f06-4838-b295-ea25443f7f51"] + "Out[286]=",ExpressionUUID->"df900390-109e-4d03-a98a-12679baf458b"] }, Open ]], Cell[CellGroupData[{ @@ -6213,14 +6270,14 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[485]:=",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], + "In[287]:=",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], -Cell[BoxData["0.8931185214253298`"], "Output", +Cell[BoxData["0.8844496473329635`"], "Output", CellChangeTimes->{ 3.9913204230728855`*^9, 3.993815897293579*^9, {3.993815953151367*^9, - 3.9938159970784607`*^9}}, + 3.9938159970784607`*^9}, 3.994012754854381*^9, 3.994013282563671*^9}, CellLabel-> - "Out[485]=",ExpressionUUID->"69f25557-34f4-4e68-bdfd-54dc2c6518df"] + "Out[287]=",ExpressionUUID->"a2a1d18f-7c99-40b7-af31-c7cbc0b20d98"] }, Open ]], Cell[CellGroupData[{ @@ -6343,21 +6400,21 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[486]:=",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], + "In[288]:=",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], -Cell[BoxData["0.09545782811236249`"], "Output", +Cell[BoxData["0.10219846866555986`"], "Output", CellChangeTimes->{ 3.9913204231038837`*^9, 3.993815897305521*^9, {3.993815953164421*^9, - 3.993815997093184*^9}}, + 3.993815997093184*^9}, 3.994012754870844*^9, 3.994013282582222*^9}, CellLabel-> - "Out[486]=",ExpressionUUID->"1c2883d6-b5da-451e-8481-4d71a7527166"] + "Out[288]=",ExpressionUUID->"76d2dedb-b4ba-4d09-8042-31f6e16f873a"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"x", ",", "y"}], "]"}]], "Input", CellLabel-> - "In[487]:=",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], + "In[289]:=",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], Cell[CellGroupData[{ @@ -6371,7 +6428,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[{ @@ -6393,8 +6452,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -6420,80 +6478,83 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{3.991799443370365*^9}, CellLabel-> - "In[488]:=",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], + "In[290]:=",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.0995274617277055`*^-215\\\", \ -\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ -31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 488, 113, 31384770106063365683, - "Local"}, + "\"\\!\\(\\*FractionBox[\\\"2.7815087270226793`*^-214\\\", \ +RowBox[{\\\"665717749437497189208769764374\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"35\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9706282409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 290, 9, + 31386062764512562340, "kernel 3"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ 3.9913204231548862`*^9, 3.993815897330258*^9, {3.993815953178647*^9, - 3.993815997109221*^9}}, + 3.993815997109221*^9}, 3.994012754917389*^9, 3.994013282604282*^9}, CellLabel-> "During evaluation of \ -In[488]:=",ExpressionUUID->"6fbb5d5f-aa3a-4822-8cfc-f3d964b91563"], +In[290]:=",ExpressionUUID->"ba462120-f669-479d-b9f6-7b50cbe6753c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.817087606652355`*^-220\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 488, 114, - 31384770106063365683, "Local"}, + "\"\\!\\(\\*FractionBox[\\\"1.2746396901419919`*^-219\\\", \ +RowBox[{\\\"111907153680443277505994197391\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"260731183104000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 290, 10, + 31386062764512562340, "kernel 3"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ 3.9913204231548862`*^9, 3.993815897330258*^9, {3.993815953178647*^9, - 3.9938159971123257`*^9}}, + 3.993815997109221*^9}, 3.994012754917389*^9, 3.994013282610293*^9}, CellLabel-> "During evaluation of \ -In[488]:=",ExpressionUUID->"eeda622b-c450-46c4-903a-1b93dbfae1fb"], +In[290]:=",ExpressionUUID->"fb420991-f92c-4010-9d29-1a973a089690"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0652615313203667`*^-225\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 488, 115, - 31384770106063365683, "Local"}, + "\"\\!\\(\\*FractionBox[\\\"5.841097401209147`*^-225\\\", \ +RowBox[{\\\"197404219092301941520573764198\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"929806995456000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 290, 11, + 31386062764512562340, "kernel 3"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ 3.9913204231548862`*^9, 3.993815897330258*^9, {3.993815953178647*^9, - 3.993815997114976*^9}}, + 3.993815997109221*^9}, 3.994012754917389*^9, 3.99401328261502*^9}, CellLabel-> "During evaluation of \ -In[488]:=",ExpressionUUID->"2822e9b0-7dbf-49b3-bc34-db5cce3629b1"], +In[290]:=",ExpressionUUID->"a27faa5c-f3f5-45dc-adf3-5626211a72e7"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 488, 116, 31384770106063365683, "Local"}, +during this calculation.\"", 2, 290, 12, 31386062764512562340, "kernel 3"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ 3.9913204231548862`*^9, 3.993815897330258*^9, {3.993815953178647*^9, - 3.993815997117196*^9}}, + 3.993815997109221*^9}, 3.994012754917389*^9, 3.994013282619364*^9}, CellLabel-> "During evaluation of \ -In[488]:=",ExpressionUUID->"6903e8aa-cbec-4bb4-a213-4b1e2a288ccd"], +In[290]:=",ExpressionUUID->"d2844ebc-25d8-4ee4-81ee-d6a27dd8ebab"], -Cell[BoxData["12.454509720356008`"], "Output", +Cell[BoxData["12.40992554587879`"], "Output", CellChangeTimes->{ 3.9913204260017204`*^9, 3.99381592321916*^9, {3.993815955324542*^9, - 3.993815999193884*^9}}, + 3.993815999193884*^9}, 3.994012756250345*^9, 3.994013283751865*^9}, CellLabel-> - "Out[488]=",ExpressionUUID->"ded99610-e47f-4255-98fe-0b28255c830c"] + "Out[290]=",ExpressionUUID->"fb03bf0e-33a8-4c59-934e-e003d7f46c8a"] }, Open ]], Cell[CellGroupData[{ @@ -6508,7 +6569,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[{ @@ -6530,8 +6593,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -6557,79 +6619,83 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{3.9917994459475594`*^9}, CellLabel-> - "In[489]:=",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], + "In[291]:=",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.0995274617277055`*^-215\\\", \ -\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ -31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 489, 117, 31384770106063365683, - "Local"}, + "\"\\!\\(\\*FractionBox[\\\"2.7815087270226793`*^-214\\\", \ +RowBox[{\\\"665717749437497189208769764374\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"35\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9706282409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 291, 13, + 31386062764512562340, "kernel 3"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ 3.9913204262354183`*^9, 3.993815923259261*^9, {3.993815955374645*^9, - 3.993815999240095*^9}}, + 3.993815999240095*^9}, 3.994012756327338*^9, 3.9940132837859087`*^9}, CellLabel-> "During evaluation of \ -In[489]:=",ExpressionUUID->"1f80609a-9149-4eea-a5d9-517f7f3c1879"], +In[291]:=",ExpressionUUID->"75e712f1-aa43-47e6-9fb0-3a0ef7cfa3ce"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.817087606652355`*^-220\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 489, 118, - 31384770106063365683, "Local"}, + "\"\\!\\(\\*FractionBox[\\\"1.2746396901419919`*^-219\\\", \ +RowBox[{\\\"111907153680443277505994197391\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"260731183104000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 291, 14, + 31386062764512562340, "kernel 3"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ 3.9913204262354183`*^9, 3.993815923259261*^9, {3.993815955374645*^9, - 3.9938159992454653`*^9}}, + 3.993815999240095*^9}, 3.994012756327338*^9, 3.994013283790628*^9}, CellLabel-> "During evaluation of \ -In[489]:=",ExpressionUUID->"dc3896cd-2d1f-43f5-95c5-5719c7e87c5f"], +In[291]:=",ExpressionUUID->"b1105def-90b9-4cc7-9ce9-d6aa64d58c69"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0652615313203667`*^-225\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 489, 119, - 31384770106063365683, "Local"}, + "\"\\!\\(\\*FractionBox[\\\"5.841097401209147`*^-225\\\", \ +RowBox[{\\\"197404219092301941520573764198\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"929806995456000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 291, 15, + 31386062764512562340, "kernel 3"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ 3.9913204262354183`*^9, 3.993815923259261*^9, {3.993815955374645*^9, - 3.993815999248219*^9}}, + 3.993815999240095*^9}, 3.994012756327338*^9, 3.994013283795187*^9}, CellLabel-> "During evaluation of \ -In[489]:=",ExpressionUUID->"0ffc4ed5-64bb-42ba-87e0-a5f1b6f30f78"], +In[291]:=",ExpressionUUID->"53797d7a-cfbe-4f04-8468-c1ed440d2576"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 489, 120, 31384770106063365683, "Local"}, +during this calculation.\"", 2, 291, 16, 31386062764512562340, "kernel 3"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ 3.9913204262354183`*^9, 3.993815923259261*^9, {3.993815955374645*^9, - 3.99381599925121*^9}}, + 3.993815999240095*^9}, 3.994012756327338*^9, 3.994013283799417*^9}, CellLabel-> "During evaluation of \ -In[489]:=",ExpressionUUID->"f8311fb4-a816-4253-a940-36e0005f98ef"], +In[291]:=",ExpressionUUID->"e8a339af-8ba6-4c91-9a83-4422e1dbe572"], -Cell[BoxData["5.577353347614627`"], "Output", +Cell[BoxData["5.575650684455057`"], "Output", CellChangeTimes->{ - 3.991320428882721*^9, {3.993815950123179*^9, 3.99381600121596*^9}}, + 3.991320428882721*^9, {3.993815950123179*^9, 3.99381600121596*^9}, + 3.9940127574735937`*^9, 3.994013284991791*^9}, CellLabel-> - "Out[489]=",ExpressionUUID->"31d13ee2-9b6f-4aaf-a180-6cded0a97b4d"] + "Out[291]=",ExpressionUUID->"20407880-a3e3-41ad-b179-71bee9ceebe9"] }, Open ]], Cell[CellGroupData[{ @@ -6639,61 +6705,444 @@ 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[490]:=",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], + "In[292]:=",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:eJwV1nk4VVsfB3BzMpQhTjKPXbMcRLrWL0QJSZQ5wzk7FJlyT4hU0oBEXXQr +mSNCUkJezcpYlKHIfI55OseU6l3+2M9+Ps/e67u/az1r72fLe5+yp3KwsbEx +8LF+Dm7R2v6srcVk/MJPY883dGQynavvbV6MJGs5/Nbdn2lwU8m8FnE4iM2u +247SzCNAfosEbMifvLDLaTGvuc2bUG2hm4AP9pV3W+tjij4hr4AbWRTs523B +99Z0v6CcO5+SCezxno9RZ2q6UMtu6R5f7G0jiq6LZt/RCYewsyewD8xEGYU2 +/UDN418jArHr1sb5aUUDyJ937+dg7K+xpMingUOo6GndhdPY0zzm40zdETTx +x+z6GWyehCBn8tIoip7pYJ7FlhG+2xBcw0DvbwQ/OY9tK7mYP202iWSVW/Yk +YhP3FcQ1eafRI3LS5lTsGOWDcSeaZpCbjsvODOwuUseOsKI5pLhL/FY+NsXF +3y81YR41nuRpLMGevcOW9ThwAT3s4nCtxOZV0BSa02UhwcdyV95i36S8thQS +W0ScNqbbW7DlCpxjtJcW0faoINlObEONS9MBNcsod21eehzb1+BH07jZGvK7 +lHp4y1s6YtJOc/Gp/EKhNVKvZLHP1fDvVuX9jYb8Kq6qY6eD4cPjTX+QQtVG +NXNsSl6DeUgROzQuumedwS56l9ofK8kB5k1H+uOxZ+keUTcSOMABeZz5FztK +jVVRFsgJHDkZz59g3yyVV5zR5QayxPsQFnZP22Td7xxuEEg0Os/zDveff+ay +SYwHzrHXTpCwi/VsUzSXeOB+2VyTMfab5xHsJ2t4waZGuSEem/W6/QfDTADq +HfuzdN7TkYi1gFBkHXaqFNqPrdNhDoJGgjD8wcDCG9t/uPL+Dq1N8MyXJ+UW +dhBHk87fAkJQ+UpSjr2BjkYUHs3FLQrD/74FiE9iM4mPG1vJIkAVrjjE/4GO +OB6Oym8NFoF2ju+LathyZFn7ogkRCKvqiT6B7WKW/LilXxSsxNLi5rBbfUJC +SY1i0CAbECjcSEd9BUnXPHnF4V60/L6d2JMTRTmFe8XBuaz+mjs2X9hQu3G9 +OKzFvLR7iG1+0UHPs5IEjq97Ph1ooqPqXAPWg0wJSKn6UXa/mY5yR1bDd4VJ +w6S8+GhGGx3tc4zvCy2RhlYtqfQP2JNvRC1KRqUhSOVq/gq2Xq6GmJyzDGTN +ZXa5fMLr6e1RwW0iC4/mXt6Q/0xH8zP9/zAuyAEj3sWpvp2ORAPMn1TYKADt +9+gus046Gs3l87XzV4D2bvbIaOyq722SU5cUgLBOI1Vju1m7X1CpVwCja3qE +bhfupx5un6GrCNrFVs7bu/Hzxwtmo0lK4OgWkabwjY4cjvNrWg0ow/HTL2ge +P+gIhTvqHv2lDMIvVodzsNXiMndSJFSA4qpTNIbNlkM2jT6kAvVh8Si8n45K ++lyPPn6pAks6K7dSB/D7eaQ4dlv2dpAmJc33DeF+5jZfx71VoS6q/lQVg45y +Dqd9W4pWhWwZ2hrvGB0leQ/0c/2nCi8Ow6AzNuXc6QmZdlV4V879fA1buPYu +22EzNehbi0i1mMD7hzytVqOoDgJaDWvjU3QkqXA95tqwBvS5fMkPX6Cj2qtM +1RUOTbh0uUmuB9ttwbmDkNcEDe1yThMmHd17o6Rq6oF9xpJrA4uOFI5Xf17u +1IQWzYbZu4t4vsUjykSjFuhclKH9WKEjaUkZQs5ZB+yqg/aVszGQRl6YwE+k +C9SOn3rJmxnIm3KBpWmrC6UJdgncQgyUrpjS5+mmC2uxtigSmzO7tOwdTRec +Yq2qjgszUM+9cYeUcl0gznktmosy0JV0z7uqimTwTeDIFSIx0Og1ay0nHj1w +Pz3YNCnDQFkhSnaVTfrgRiXdqtJmoLZwtPNinhGI3d7hutmZgeQ9vti6n/wb +JthPDBpfZiDqn6ePpM8ATExZRitVMxBpomoDydsUxtLjdzxfZKAw8u7vKWrm +kCvTvOimP4a8p9YaRMf3Qt3K8EgkbQyVmIZuyGy1BOWCfalP34+hXKb/y+Kb ++8HvY591HmkcLe/Z2vwm5gAosounfAobR71snHMDXjYQcCKx69vXcRQodSo5 +VvEgDJ/L6JE0nECP/Brqb8XZQfRe7a6eggkUsSCxpO53CBStWqLnxCYRy8ri +yPtj9iCbszWdmjqJjFxv7Bk5dBj+C0G597ZMoc8Sd/3fkB3gySYVb8+UKbQt +/0Ltg78cwXChS1BebhpV9atZ2woeAS7p/yRMC6eRTMfs8fCpI+D3VkqsmzyD +yLduFOf0H4Vr3f+InWyZQXe5FrRSXjsBt/qHFvEds+jpHu2euOfO0EExlH5/ +fhal77wqvFbkAnoffu+07JhFrd/yLpETXOFema6xnPwcqrS5oxR0zg3MN73q +WgqbQ3MBh9kCKe5wl0/oos3rOcSyUPWdNvOA+jOdvPWb59GDqe7lUINjYC2f +XdDuNY+csvJ83AU8YWdwz/2tJfOo4vGBY5zxnmD4Qb2gbG0eGUl+Xrmy4gn1 +vbOCt8wXkGL/8Z5Pfl4w+E/QLdPLC2iY/8TBO0NeMLHqmjjTvIDakmx9LB29 +ITBRx4/Ox0Q3aZn8p9u8oeZsZ/KMJRPV1v1Z8dnvAxsXZ2zVoplosxvEk6t9 +YEPaH02Nh0wkt+V9q1StD/i8fNU9iK3TZLOVp84HhtUWSRnFTGS/27Ww66UP +ON7WOMD1COdLhTee/eADP6MOX/lSxkTbeh9ubujygaF/bu/zecpESh6kdLcl +H5BQnFlUe8lERp7TD+L0KHDhppYf5QsT5WfMhtoaUMCBZh/LxN7SPm9CMqTA +TZIP+eJXJpreu9TxwJgC72JmKNmdTPz9YmNvMqVAVdeun93dTLRpSdhZ5BAF +xlpX+vX7mGg4UX9jZgAFBEe4ljJHmSipJsqvKp8CdkPXSwwXmShAN82I9oAC +q77nLIqxrQvLNxoWUeD7sC1NdomJ+NJGC5+VUODqbpN8rmUmiguxG3/6hAIM +8dOqH1eYKEpV6UTlKwpcrhl7secXE/mnNZ583EeBlCWDgkFOFtq/aXR3SD/u +N+m+az8XC/0VxyaoO0iB3kAzSin2aIh+SfkIBWY1+KIiuFnIyzZzqmySAncj +Pj7n38BCTtyhgaWrFCBN+3pu42Mhy9BtQcXiVOgMmJyhb2ahV5mXrFK2UqHk +nULLPiEW2t00r0TbRoVQa2OtQmwd5cZuMxkqRBGNob7CLCTRGWn2TZkKIyE0 +kQERFprY1SvOp0+F560dSdViLHSd4/6L44epMH6pctMmSRbi0xZIt3GkQm+s +Ce8x7IuutBDyUSqYqmbElmLTntht/+NChbyg+AVbKdyfYL/xrzcen/ngc7w0 +C5E/elPeBlOhcotd8IAsC3XeUOZXTKZC5L2MVrISCz1Cgr6MG1Tg2TblGIR9 +cYr5piSVCnPFqieKsXX3v4k2TKOCcq+BqaIyCyWx+czb3KOCel1KFr8KC1mc +ut9NK6bCDg6S9PvtLCQtfdnA5BGeb87lxDVs5sdTqZxlVBArtU3Y8RcLZasg +m6QKKhi6VOrdxv7V21ufU02FVaff2oQqCz2xlnzQ0kCFBE2LDww1Frq2ysF9 +8yMVTC5vkSSps5D3g3Ev5yYq9Kw+WTXHFuKqlhxupcLf22x9MrFP1jhdX/lK +hfB5kW5bDRZSVPs3XGmEChdTyu3SNVlotfNs+9goFbrtTKP+h90WR9UpZVDh +sYe+/ih29IDeuNEkFWo4VQ/qarFQT3q7+8EFKiy8S1d4i52yQXhvBDsB8/b+ +pl+0Wah2vtc1jJMApBM0v4xN7y0KCeQm4Nl3TVEpHbwfnpjf995IQMhkRb4n +9qgn7aeVMAHRB/8SG8IWst4rsleUgLY9qlYcO1jIeKeIKhIjwOn6wxk57GTB +4iNkCQI4tSUT3NavV/8ol5Qn4GbKr43N2ERecYOYIgGd2cde0dfvTz7zY7My +AdqzohPs+D94lBAV5FIloGzAPVEPO1nU0ndShwC7afqWVOzq36Ixo7oExNIP +HCzEHhnrv9Wvh/NcelbqsHfVR7zuMCQg+zclk4E9fPKRzAsg4POXGnV9Mgtt +corUf2ZKAFvAr1ELbCOzfdbl5gSoSe4XccJOkhg8k7ePAJna2SoadhVXaXKm +FQF5y3v1LmMPzUQWZFgTUPgjTTYN2/Cd2JdEOwKW45QtKrC9ywcn4u0JyIp0 +ja3HTrxTynHegYArl89rNGMPhuzXCXcigLid8XkYW9BD3DLIhYBLry42z6zn +7R9y93cjwHjfUcPV9fGyZ695eBJwfrnQXVAP9+GzynbyJkCTrLJVHHuQJf7c +nkJA7kSsqQy24MBQqzWB1z+s5rsytmFT2aiFLwFCuz+NamB7Pzv7C/wJ0Pj0 +0pOMnZhttcX4JAFefdesjNbzE0nq+oEEOGto5Zqs59OG92gHEeCdVRBghi1A +KXdSDSHgnz1L+ZbYOw9Gn1IMI0BHS8ruwHr+rgOXpMMJaM0X87PFTlDeepdE +IwB4h+bssJ8KjVQIRxAg2Hxh3B574Gf5R/4oAoITl+wd1vPp0QPc0QTs+fO3 +uiO2wecDy39iCOBdPBK67v8DnTf49A== + "]]}, + 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:eJwV1nk4VVsfB3BzMpQhTjKPXbMcRLrWL0QJSZQ5wzk7FJlyT4hU0oBEXXQr +mSNCUkJezcpYlKHIfI55OseU6l3+2M9+Ps/e67u/az1r72fLe5+yp3KwsbEx +8LF+Dm7R2v6srcVk/MJPY883dGQynavvbV6MJGs5/Nbdn2lwU8m8FnE4iM2u +247SzCNAfosEbMifvLDLaTGvuc2bUG2hm4AP9pV3W+tjij4hr4AbWRTs523B +99Z0v6CcO5+SCezxno9RZ2q6UMtu6R5f7G0jiq6LZt/RCYewsyewD8xEGYU2 +/UDN418jArHr1sb5aUUDyJ937+dg7K+xpMingUOo6GndhdPY0zzm40zdETTx +x+z6GWyehCBn8tIoip7pYJ7FlhG+2xBcw0DvbwQ/OY9tK7mYP202iWSVW/Yk +YhP3FcQ1eafRI3LS5lTsGOWDcSeaZpCbjsvODOwuUseOsKI5pLhL/FY+NsXF +3y81YR41nuRpLMGevcOW9ThwAT3s4nCtxOZV0BSa02UhwcdyV95i36S8thQS +W0ScNqbbW7DlCpxjtJcW0faoINlObEONS9MBNcsod21eehzb1+BH07jZGvK7 +lHp4y1s6YtJOc/Gp/EKhNVKvZLHP1fDvVuX9jYb8Kq6qY6eD4cPjTX+QQtVG +NXNsSl6DeUgROzQuumedwS56l9ofK8kB5k1H+uOxZ+keUTcSOMABeZz5FztK +jVVRFsgJHDkZz59g3yyVV5zR5QayxPsQFnZP22Td7xxuEEg0Os/zDveff+ay +SYwHzrHXTpCwi/VsUzSXeOB+2VyTMfab5xHsJ2t4waZGuSEem/W6/QfDTADq +HfuzdN7TkYi1gFBkHXaqFNqPrdNhDoJGgjD8wcDCG9t/uPL+Dq1N8MyXJ+UW +dhBHk87fAkJQ+UpSjr2BjkYUHs3FLQrD/74FiE9iM4mPG1vJIkAVrjjE/4GO +OB6Oym8NFoF2ju+LathyZFn7ogkRCKvqiT6B7WKW/LilXxSsxNLi5rBbfUJC +SY1i0CAbECjcSEd9BUnXPHnF4V60/L6d2JMTRTmFe8XBuaz+mjs2X9hQu3G9 +OKzFvLR7iG1+0UHPs5IEjq97Ph1ooqPqXAPWg0wJSKn6UXa/mY5yR1bDd4VJ +w6S8+GhGGx3tc4zvCy2RhlYtqfQP2JNvRC1KRqUhSOVq/gq2Xq6GmJyzDGTN +ZXa5fMLr6e1RwW0iC4/mXt6Q/0xH8zP9/zAuyAEj3sWpvp2ORAPMn1TYKADt +9+gus046Gs3l87XzV4D2bvbIaOyq722SU5cUgLBOI1Vju1m7X1CpVwCja3qE +bhfupx5un6GrCNrFVs7bu/Hzxwtmo0lK4OgWkabwjY4cjvNrWg0ow/HTL2ge +P+gIhTvqHv2lDMIvVodzsNXiMndSJFSA4qpTNIbNlkM2jT6kAvVh8Si8n45K ++lyPPn6pAks6K7dSB/D7eaQ4dlv2dpAmJc33DeF+5jZfx71VoS6q/lQVg45y +Dqd9W4pWhWwZ2hrvGB0leQ/0c/2nCi8Ow6AzNuXc6QmZdlV4V879fA1buPYu +22EzNehbi0i1mMD7hzytVqOoDgJaDWvjU3QkqXA95tqwBvS5fMkPX6Cj2qtM +1RUOTbh0uUmuB9ttwbmDkNcEDe1yThMmHd17o6Rq6oF9xpJrA4uOFI5Xf17u +1IQWzYbZu4t4vsUjykSjFuhclKH9WKEjaUkZQs5ZB+yqg/aVszGQRl6YwE+k +C9SOn3rJmxnIm3KBpWmrC6UJdgncQgyUrpjS5+mmC2uxtigSmzO7tOwdTRec +Yq2qjgszUM+9cYeUcl0gznktmosy0JV0z7uqimTwTeDIFSIx0Og1ay0nHj1w +Pz3YNCnDQFkhSnaVTfrgRiXdqtJmoLZwtPNinhGI3d7hutmZgeQ9vti6n/wb +JthPDBpfZiDqn6ePpM8ATExZRitVMxBpomoDydsUxtLjdzxfZKAw8u7vKWrm +kCvTvOimP4a8p9YaRMf3Qt3K8EgkbQyVmIZuyGy1BOWCfalP34+hXKb/y+Kb ++8HvY591HmkcLe/Z2vwm5gAosounfAobR71snHMDXjYQcCKx69vXcRQodSo5 +VvEgDJ/L6JE0nECP/Brqb8XZQfRe7a6eggkUsSCxpO53CBStWqLnxCYRy8ri +yPtj9iCbszWdmjqJjFxv7Bk5dBj+C0G597ZMoc8Sd/3fkB3gySYVb8+UKbQt +/0Ltg78cwXChS1BebhpV9atZ2woeAS7p/yRMC6eRTMfs8fCpI+D3VkqsmzyD +yLduFOf0H4Vr3f+InWyZQXe5FrRSXjsBt/qHFvEds+jpHu2euOfO0EExlH5/ +fhal77wqvFbkAnoffu+07JhFrd/yLpETXOFema6xnPwcqrS5oxR0zg3MN73q +WgqbQ3MBh9kCKe5wl0/oos3rOcSyUPWdNvOA+jOdvPWb59GDqe7lUINjYC2f +XdDuNY+csvJ83AU8YWdwz/2tJfOo4vGBY5zxnmD4Qb2gbG0eGUl+Xrmy4gn1 +vbOCt8wXkGL/8Z5Pfl4w+E/QLdPLC2iY/8TBO0NeMLHqmjjTvIDakmx9LB29 +ITBRx4/Ox0Q3aZn8p9u8oeZsZ/KMJRPV1v1Z8dnvAxsXZ2zVoplosxvEk6t9 +YEPaH02Nh0wkt+V9q1StD/i8fNU9iK3TZLOVp84HhtUWSRnFTGS/27Ww66UP +ON7WOMD1COdLhTee/eADP6MOX/lSxkTbeh9ubujygaF/bu/zecpESh6kdLcl +H5BQnFlUe8lERp7TD+L0KHDhppYf5QsT5WfMhtoaUMCBZh/LxN7SPm9CMqTA +TZIP+eJXJpreu9TxwJgC72JmKNmdTPz9YmNvMqVAVdeun93dTLRpSdhZ5BAF +xlpX+vX7mGg4UX9jZgAFBEe4ljJHmSipJsqvKp8CdkPXSwwXmShAN82I9oAC +q77nLIqxrQvLNxoWUeD7sC1NdomJ+NJGC5+VUODqbpN8rmUmiguxG3/6hAIM +8dOqH1eYKEpV6UTlKwpcrhl7secXE/mnNZ583EeBlCWDgkFOFtq/aXR3SD/u +N+m+az8XC/0VxyaoO0iB3kAzSin2aIh+SfkIBWY1+KIiuFnIyzZzqmySAncj +Pj7n38BCTtyhgaWrFCBN+3pu42Mhy9BtQcXiVOgMmJyhb2ahV5mXrFK2UqHk +nULLPiEW2t00r0TbRoVQa2OtQmwd5cZuMxkqRBGNob7CLCTRGWn2TZkKIyE0 +kQERFprY1SvOp0+F560dSdViLHSd4/6L44epMH6pctMmSRbi0xZIt3GkQm+s +Ce8x7IuutBDyUSqYqmbElmLTntht/+NChbyg+AVbKdyfYL/xrzcen/ngc7w0 +C5E/elPeBlOhcotd8IAsC3XeUOZXTKZC5L2MVrISCz1Cgr6MG1Tg2TblGIR9 +cYr5piSVCnPFqieKsXX3v4k2TKOCcq+BqaIyCyWx+czb3KOCel1KFr8KC1mc +ut9NK6bCDg6S9PvtLCQtfdnA5BGeb87lxDVs5sdTqZxlVBArtU3Y8RcLZasg +m6QKKhi6VOrdxv7V21ufU02FVaff2oQqCz2xlnzQ0kCFBE2LDww1Frq2ysF9 +8yMVTC5vkSSps5D3g3Ev5yYq9Kw+WTXHFuKqlhxupcLf22x9MrFP1jhdX/lK +hfB5kW5bDRZSVPs3XGmEChdTyu3SNVlotfNs+9goFbrtTKP+h90WR9UpZVDh +sYe+/ih29IDeuNEkFWo4VQ/qarFQT3q7+8EFKiy8S1d4i52yQXhvBDsB8/b+ +pl+0Wah2vtc1jJMApBM0v4xN7y0KCeQm4Nl3TVEpHbwfnpjf995IQMhkRb4n +9qgn7aeVMAHRB/8SG8IWst4rsleUgLY9qlYcO1jIeKeIKhIjwOn6wxk57GTB +4iNkCQI4tSUT3NavV/8ol5Qn4GbKr43N2ERecYOYIgGd2cde0dfvTz7zY7My +AdqzohPs+D94lBAV5FIloGzAPVEPO1nU0ndShwC7afqWVOzq36Ixo7oExNIP +HCzEHhnrv9Wvh/NcelbqsHfVR7zuMCQg+zclk4E9fPKRzAsg4POXGnV9Mgtt +corUf2ZKAFvAr1ELbCOzfdbl5gSoSe4XccJOkhg8k7ePAJna2SoadhVXaXKm +FQF5y3v1LmMPzUQWZFgTUPgjTTYN2/Cd2JdEOwKW45QtKrC9ywcn4u0JyIp0 +ja3HTrxTynHegYArl89rNGMPhuzXCXcigLid8XkYW9BD3DLIhYBLry42z6zn +7R9y93cjwHjfUcPV9fGyZ695eBJwfrnQXVAP9+GzynbyJkCTrLJVHHuQJf7c +nkJA7kSsqQy24MBQqzWB1z+s5rsytmFT2aiFLwFCuz+NamB7Pzv7C/wJ0Pj0 +0pOMnZhttcX4JAFefdesjNbzE0nq+oEEOGto5Zqs59OG92gHEeCdVRBghi1A +KXdSDSHgnz1L+ZbYOw9Gn1IMI0BHS8ruwHr+rgOXpMMJaM0X87PFTlDeepdE +IwB4h+bssJ8KjVQIRxAg2Hxh3B574Gf5R/4oAoITl+wd1vPp0QPc0QTs+fO3 +uiO2wecDy39iCOBdPBK67v8DnTf49A== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7427216693432659, + 1.3252768044907288`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7427216693432676}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.7427216693432659, + 1.3252768044907288`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7427216693432676}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJwV1nk4VVsfB3BzMpQhTjKPXbMcRLrWL0QJSZQ5wzk7FJlyT4hU0oBEXXQr +mSNCUkJezcpYlKHIfI55OseU6l3+2M9+Ps/e67u/az1r72fLe5+yp3KwsbEx +8LF+Dm7R2v6srcVk/MJPY883dGQynavvbV6MJGs5/Nbdn2lwU8m8FnE4iM2u +247SzCNAfosEbMifvLDLaTGvuc2bUG2hm4AP9pV3W+tjij4hr4AbWRTs523B +99Z0v6CcO5+SCezxno9RZ2q6UMtu6R5f7G0jiq6LZt/RCYewsyewD8xEGYU2 +/UDN418jArHr1sb5aUUDyJ937+dg7K+xpMingUOo6GndhdPY0zzm40zdETTx +x+z6GWyehCBn8tIoip7pYJ7FlhG+2xBcw0DvbwQ/OY9tK7mYP202iWSVW/Yk +YhP3FcQ1eafRI3LS5lTsGOWDcSeaZpCbjsvODOwuUseOsKI5pLhL/FY+NsXF +3y81YR41nuRpLMGevcOW9ThwAT3s4nCtxOZV0BSa02UhwcdyV95i36S8thQS +W0ScNqbbW7DlCpxjtJcW0faoINlObEONS9MBNcsod21eehzb1+BH07jZGvK7 +lHp4y1s6YtJOc/Gp/EKhNVKvZLHP1fDvVuX9jYb8Kq6qY6eD4cPjTX+QQtVG +NXNsSl6DeUgROzQuumedwS56l9ofK8kB5k1H+uOxZ+keUTcSOMABeZz5FztK +jVVRFsgJHDkZz59g3yyVV5zR5QayxPsQFnZP22Td7xxuEEg0Os/zDveff+ay +SYwHzrHXTpCwi/VsUzSXeOB+2VyTMfab5xHsJ2t4waZGuSEem/W6/QfDTADq +HfuzdN7TkYi1gFBkHXaqFNqPrdNhDoJGgjD8wcDCG9t/uPL+Dq1N8MyXJ+UW +dhBHk87fAkJQ+UpSjr2BjkYUHs3FLQrD/74FiE9iM4mPG1vJIkAVrjjE/4GO +OB6Oym8NFoF2ju+LathyZFn7ogkRCKvqiT6B7WKW/LilXxSsxNLi5rBbfUJC +SY1i0CAbECjcSEd9BUnXPHnF4V60/L6d2JMTRTmFe8XBuaz+mjs2X9hQu3G9 +OKzFvLR7iG1+0UHPs5IEjq97Ph1ooqPqXAPWg0wJSKn6UXa/mY5yR1bDd4VJ +w6S8+GhGGx3tc4zvCy2RhlYtqfQP2JNvRC1KRqUhSOVq/gq2Xq6GmJyzDGTN +ZXa5fMLr6e1RwW0iC4/mXt6Q/0xH8zP9/zAuyAEj3sWpvp2ORAPMn1TYKADt +9+gus046Gs3l87XzV4D2bvbIaOyq722SU5cUgLBOI1Vju1m7X1CpVwCja3qE +bhfupx5un6GrCNrFVs7bu/Hzxwtmo0lK4OgWkabwjY4cjvNrWg0ow/HTL2ge +P+gIhTvqHv2lDMIvVodzsNXiMndSJFSA4qpTNIbNlkM2jT6kAvVh8Si8n45K ++lyPPn6pAks6K7dSB/D7eaQ4dlv2dpAmJc33DeF+5jZfx71VoS6q/lQVg45y +Dqd9W4pWhWwZ2hrvGB0leQ/0c/2nCi8Ow6AzNuXc6QmZdlV4V879fA1buPYu +22EzNehbi0i1mMD7hzytVqOoDgJaDWvjU3QkqXA95tqwBvS5fMkPX6Cj2qtM +1RUOTbh0uUmuB9ttwbmDkNcEDe1yThMmHd17o6Rq6oF9xpJrA4uOFI5Xf17u +1IQWzYbZu4t4vsUjykSjFuhclKH9WKEjaUkZQs5ZB+yqg/aVszGQRl6YwE+k +C9SOn3rJmxnIm3KBpWmrC6UJdgncQgyUrpjS5+mmC2uxtigSmzO7tOwdTRec +Yq2qjgszUM+9cYeUcl0gznktmosy0JV0z7uqimTwTeDIFSIx0Og1ay0nHj1w +Pz3YNCnDQFkhSnaVTfrgRiXdqtJmoLZwtPNinhGI3d7hutmZgeQ9vti6n/wb +JthPDBpfZiDqn6ePpM8ATExZRitVMxBpomoDydsUxtLjdzxfZKAw8u7vKWrm +kCvTvOimP4a8p9YaRMf3Qt3K8EgkbQyVmIZuyGy1BOWCfalP34+hXKb/y+Kb ++8HvY591HmkcLe/Z2vwm5gAosounfAobR71snHMDXjYQcCKx69vXcRQodSo5 +VvEgDJ/L6JE0nECP/Brqb8XZQfRe7a6eggkUsSCxpO53CBStWqLnxCYRy8ri +yPtj9iCbszWdmjqJjFxv7Bk5dBj+C0G597ZMoc8Sd/3fkB3gySYVb8+UKbQt +/0Ltg78cwXChS1BebhpV9atZ2woeAS7p/yRMC6eRTMfs8fCpI+D3VkqsmzyD +yLduFOf0H4Vr3f+InWyZQXe5FrRSXjsBt/qHFvEds+jpHu2euOfO0EExlH5/ +fhal77wqvFbkAnoffu+07JhFrd/yLpETXOFema6xnPwcqrS5oxR0zg3MN73q +WgqbQ3MBh9kCKe5wl0/oos3rOcSyUPWdNvOA+jOdvPWb59GDqe7lUINjYC2f +XdDuNY+csvJ83AU8YWdwz/2tJfOo4vGBY5zxnmD4Qb2gbG0eGUl+Xrmy4gn1 +vbOCt8wXkGL/8Z5Pfl4w+E/QLdPLC2iY/8TBO0NeMLHqmjjTvIDakmx9LB29 +ITBRx4/Ox0Q3aZn8p9u8oeZsZ/KMJRPV1v1Z8dnvAxsXZ2zVoplosxvEk6t9 +YEPaH02Nh0wkt+V9q1StD/i8fNU9iK3TZLOVp84HhtUWSRnFTGS/27Ww66UP +ON7WOMD1COdLhTee/eADP6MOX/lSxkTbeh9ubujygaF/bu/zecpESh6kdLcl +H5BQnFlUe8lERp7TD+L0KHDhppYf5QsT5WfMhtoaUMCBZh/LxN7SPm9CMqTA +TZIP+eJXJpreu9TxwJgC72JmKNmdTPz9YmNvMqVAVdeun93dTLRpSdhZ5BAF +xlpX+vX7mGg4UX9jZgAFBEe4ljJHmSipJsqvKp8CdkPXSwwXmShAN82I9oAC +q77nLIqxrQvLNxoWUeD7sC1NdomJ+NJGC5+VUODqbpN8rmUmiguxG3/6hAIM +8dOqH1eYKEpV6UTlKwpcrhl7secXE/mnNZ583EeBlCWDgkFOFtq/aXR3SD/u +N+m+az8XC/0VxyaoO0iB3kAzSin2aIh+SfkIBWY1+KIiuFnIyzZzqmySAncj +Pj7n38BCTtyhgaWrFCBN+3pu42Mhy9BtQcXiVOgMmJyhb2ahV5mXrFK2UqHk +nULLPiEW2t00r0TbRoVQa2OtQmwd5cZuMxkqRBGNob7CLCTRGWn2TZkKIyE0 +kQERFprY1SvOp0+F560dSdViLHSd4/6L44epMH6pctMmSRbi0xZIt3GkQm+s +Ce8x7IuutBDyUSqYqmbElmLTntht/+NChbyg+AVbKdyfYL/xrzcen/ngc7w0 +C5E/elPeBlOhcotd8IAsC3XeUOZXTKZC5L2MVrISCz1Cgr6MG1Tg2TblGIR9 +cYr5piSVCnPFqieKsXX3v4k2TKOCcq+BqaIyCyWx+czb3KOCel1KFr8KC1mc +ut9NK6bCDg6S9PvtLCQtfdnA5BGeb87lxDVs5sdTqZxlVBArtU3Y8RcLZasg +m6QKKhi6VOrdxv7V21ufU02FVaff2oQqCz2xlnzQ0kCFBE2LDww1Frq2ysF9 +8yMVTC5vkSSps5D3g3Ev5yYq9Kw+WTXHFuKqlhxupcLf22x9MrFP1jhdX/lK +hfB5kW5bDRZSVPs3XGmEChdTyu3SNVlotfNs+9goFbrtTKP+h90WR9UpZVDh +sYe+/ih29IDeuNEkFWo4VQ/qarFQT3q7+8EFKiy8S1d4i52yQXhvBDsB8/b+ +pl+0Wah2vtc1jJMApBM0v4xN7y0KCeQm4Nl3TVEpHbwfnpjf995IQMhkRb4n +9qgn7aeVMAHRB/8SG8IWst4rsleUgLY9qlYcO1jIeKeIKhIjwOn6wxk57GTB +4iNkCQI4tSUT3NavV/8ol5Qn4GbKr43N2ERecYOYIgGd2cde0dfvTz7zY7My +AdqzohPs+D94lBAV5FIloGzAPVEPO1nU0ndShwC7afqWVOzq36Ixo7oExNIP +HCzEHhnrv9Wvh/NcelbqsHfVR7zuMCQg+zclk4E9fPKRzAsg4POXGnV9Mgtt +corUf2ZKAFvAr1ELbCOzfdbl5gSoSe4XccJOkhg8k7ePAJna2SoadhVXaXKm +FQF5y3v1LmMPzUQWZFgTUPgjTTYN2/Cd2JdEOwKW45QtKrC9ywcn4u0JyIp0 +ja3HTrxTynHegYArl89rNGMPhuzXCXcigLid8XkYW9BD3DLIhYBLry42z6zn +7R9y93cjwHjfUcPV9fGyZ695eBJwfrnQXVAP9+GzynbyJkCTrLJVHHuQJf7c +nkJA7kSsqQy24MBQqzWB1z+s5rsytmFT2aiFLwFCuz+NamB7Pzv7C/wJ0Pj0 +0pOMnZhttcX4JAFefdesjNbzE0nq+oEEOGto5Zqs59OG92gHEeCdVRBghi1A +KXdSDSHgnz1L+ZbYOw9Gn1IMI0BHS8ruwHr+rgOXpMMJaM0X87PFTlDeepdE +IwB4h+bssJ8KjVQIRxAg2Hxh3B574Gf5R/4oAoITl+wd1vPp0QPc0QTs+fO3 +uiO2wecDy39iCOBdPBK67v8DnTf49A== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7427216693432659, 1.3252768044907288`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7427216693432676}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.7427216693432676}, + 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.7427216693432659, 1.3252768044907288`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ - 3.9913206956809444`*^9, {3.993815950326043*^9, 3.993816005662266*^9}}, + 3.9913206956809444`*^9, {3.993815950326043*^9, 3.993816005662266*^9}, + 3.994012758335137*^9, 3.9940135560753603`*^9}, CellLabel-> - "Out[490]=",ExpressionUUID->"31886f68-5c89-41f2-82ac-c76fe7aa50c7"] + "Out[292]=",ExpressionUUID->"c1d87555-db09-4800-a0c6-0cf912270367"] }, Open ]], Cell[CellGroupData[{ @@ -6756,274 +7205,160 @@ 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[293]:=",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.3559275616020787`*^-274\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.654525155677785`*^-271\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 293, + 17, 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991320696298666*^9, 3.9940135563450947`*^9}, + CellLabel-> + "During evaluation of \ +In[293]:=",ExpressionUUID->"3a6f78dd-bfbf-4016-9044-eeaf19ac4377"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.56890744418441`*^-283\\\", \ \\\"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, 293, + 18, 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991320696298666*^9, 3.994013556352639*^9}, CellLabel-> "During evaluation of \ -In[86]:=",ExpressionUUID->"cb33453f-b5ca-e14d-a319-662822d35ed2"], +In[293]:=",ExpressionUUID->"39976ec9-3806-4ffb-894e-0742ba39af42"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.7743624682465165`*^-285\\\", \ + "\"\\!\\(\\*FractionBox[\\\"7.863898064357833`*^-295\\\", \ \\\"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, + 293, 19, 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991320696298666*^9, 3.9940135563586893`*^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[293]:=",ExpressionUUID->"79ffcff3-7355-4532-a373-cbf1e999371b"], 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, 293, 20, 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991320696298666*^9, 3.994013556364895*^9}, CellLabel-> "During evaluation of \ -In[86]:=",ExpressionUUID->"32a908f1-0097-2943-9511-bd82e083c1e0"], +In[293]:=",ExpressionUUID->"c1313220-66a9-4621-9267-3e1c6cdbca79"], 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:eJwV13k8VP0XB3APLYoo65BtNoSIylIznWNpI5QtaaFsjT17qceW7HtkKUtJ +tpkbLSprESVU8kQpRTshWVvU7/7+mtf7Na/5ztxzzzn3M9Qjvlau/Hx8fAL/ +8PH9/3V28GErI7FkyxbWg2VCPZu29BZQjhv2R0H2Je9j2/IogJKPj1D6M6DP +re6mSJ4qBO+u6BPovwip160TRnP1YdW4dMaPvhpotZO7VZ+7A97UW/hO990D +5wdvndbl2sM2xsjryb4eyLlaliN17ij86NPL+tY3DO/VDH7Wp4RCi/GVkqcX +p8CE3y/utF88yL25/fGIxgLUr3Ku1b6dARJejhVLjQXwn7RJabpHDmRob6uz +sBXE+9+3rn1uXgAvctY1T65cgZrl1dP8DcWQWBL+mF9mFfL/nUn7bVsC0mff +xWdeEEfpqf7/9K+UQqzNzi09s5Jo/HF0LD27DAIMih0fRlFQR1V91wGvCjAt +Epk2S6KgsLYWwfWvANrSk3HdWRQMspeU/BVaAU967aqflVFQiJ38KT6mAjT9 +hAUGuynYeT42N6SgAj6XhpR+l5VBRuij9ozHFXBAwmJs9TUZHA59pXNfsxJM +Jn6e8Hkni4Ls67xFQ5VwfMdZtbtfZdGlcqZH/2Ml8IrXvhSflcVHU++Wc0Yr +gWLjZHBbcDUGbOi/3jBTCV9v3Z8T0FyNbcodI3rLqyAzKi0wN3Q1Wi2hEb46 +VTAsqezTukIO2y9EmI2GV4G0b5O8tLQc3oCmqOLTVbDrgX0XR0kOQy5+bbeO +r4KbJxI1RNfLYZxKTlhVRhUkvPk2ss9eDsu4AjGal6tAp7zOfeKiHP7jXros +6GEVRLL2HJbVl0eX5PM2QqJc2HGo4LuekTxutuu4XSDOBZGI0WjbXfK4YsYm +ZC2FC+dbYkrTnORRJTvwF4vKhVumd0aXxMujVkmnCmM9F77Z04OnXpCfP2sj +IW7HhUNBMwmdYQp49O39cwE5XGCeM5IbiVFAbnK8jP95Lnn9qdylaQrYyMie +8Sziwonfa54YlSggs0G6YU8ZF7KiD0ne7lTA7/mDyR9qudCZ3l54WV4RU0o9 +9ms+58ImXu71f5sU0VUjTWibKA9M+roXxh8oYpXgk74gMR5Y8C3a7tijiFpp +SwqKJXngbOXzAj4o4urzxjJjq3mwLYwaHrFYCRepXXxqrcoDP8XZS4bqSgj7 +v0Y6IQ9a3QvHWoKVMNf8WleoNw92/jYQOxmmhL5th/er+vGgO61Xd0OEEu70 +X/71mT8PXtxeFlESr4STdy9JK4byYFwoUCzmvBJymrOLY6J4QLm6Q2/bPSUs +m93yJDObB17zkxEPVlCRbSlmVFvHg03H3KQ+ilGxlfK7Q6qRB4IjLysFKFR0 +lOisOdbMg8sDLc+30KhoJ32wWOY+DwYbszRu6FLxcarucp1uHljGGPQXO1Ix +PvJvcswbHij84Xo3uVAxx+CTaf4QD74G0wRec6jo3qDpV/WOB3FHhTQpgVQU +fHB4tvkTD5rNXkenxFFxfcsGgWsTPNARi9QKq6biTOKvq3V/eMCXONOac5OK +Yb0lhnF8BHQLeDjcrKOi5nvW1t38BHjOWMVM3qei1W7+sp7FBJT0MwbcX1KR +fy5/okiYAKnCB2dsBGg4tGirqosMAe+l2XL+gjR0hwz2Z1kCatKqq1NX0FBS +0/OpuxwBllF5rzqkaeiZ+ihknyIBca5eOoYaNOTsf9y7hEnAD/WVg2ttaWjU +/W94ghYBsxdkI9c70PDL/e1yd9cRMC3KZBg40jBjPsN7SpuA8SkDDxMODQUc +uteZbSBguM551uEUDaWT3lq26xPwZq1PrlMUDYOO1JcOGBDwqjCU5RZLw1WD +PrdGNxHwPDo56lg6DRvNMkX/sgjoMKsVibtMwxBz7qXvSEB7w93q5AoaZrKE +Pr83JKBVq9Mmk6DhvGX3WI8RAY3iQ3kFt8nzNV7hRRPyegeWq9zoomFkRI2c +yA4CCHPJjjs9NNwo/jh6kHRVk6J3cx95PodyrWInAaWXNlx7NERD+W+XvXXN +CMjzPATDMzRcBCs8V1sQcO710eFPP2moWzii3kH6rGVAzNhfGlITpusCLQlI +WR/3aH4ZHZn7FMwbdhOQeDnD548IHetSBXfv30PWV/rCqkUSdBSeucacIR31 +q3qvqAIdVzt83SVnTUC4d/1PCTod+aJMi8pJn3zTdkFWlY4fVIQ7dGwICG4Z +eMfUoeOudNcSfVuyHxIX+7G20TEpak+K2F4Cji6IihuZ0VHNqpT3L2k3X9mb +23fTcbrpUdVH0k7WWr+tHOh49Z3Ftgp7Ag7eNyi0d6SjyXD6u8X7CHDQMzE6 +5EJHa1G/IwdJ26zeF8fxoWN19lNBPgcC9iQ7q/sG0LG8G3XMSFv89e4ODKVj +8ATNMIO02bHQYydO0dH5u6/uf6R3vIuSiIii45MiJXGJ/QRstU2ujYklvz9T +s9+CtFH7OYfEJDrO65w9E0OaVVlVlJ1NxyoFm0sfSQ8oVRZuzafjNepWe5ED +BJzILi+YLqTj6aAtUTqkKcJlFy6VkL/3qAjNmnRtZOl5q3Ly/OFofT/SdnMl ++f/w6Cjr7tMWT3ra61Le1Ro6XllV0FlIOnO4ONexlo6Xz70zqyGtY1+UI1JP +R73tK7feJf20q+BcQzN5P5bO3uok7Wd8IdvrPnk/bd3LekmL3s7PWt1Bx6Gd +ehIvSPM08852dNNxW7rBwv9tXpKTefwZHe/6Gbn0kf4qcy5DtZ+sR4uy6VPS +CalZ6X2vyH75XUe0k16z+GzamSE67qf2Z90h/eBERurGj3RMf7JnoZy027e0 +lPcjdORn8X3KIr3YLTU5c4KOt9TqrP8lXTKQnGQ0TUeJeQcTZ9LGe5ISJ+fp +GJ9567YJ6eG2hISiBToqRXCv00hHsuLjLfkZuL5XXHeBrLdSTWzcnyUMnNVv +29JLuknlTCxXiIFqI4WPr5A+dOH0mQMrGVh+4+SXENK/xaJjhCQZqPBLP9mE +dH5c5Ok7MgyMq6yuW0F605/waI4CA6d3tAY9I/uhP+DfKAqdgcIfLeqzSEs5 +hkUEazCwbdP276Kkb/QeD2dqMzD8U8C79v/3n2nov70bGWhyKtvlJOmMjUEn +dYCB3/0NZQfI/tWuDAgbMmbgM3by7hjST5T8T6TtYOBYm62sBukVwr6h43sY +2LfwxdOX7P+qSO+QC3YMtI04NSNE2nTOM3jXfgaWceSlLtuR8zl8NLDChYFe +8hSlLnK+Ft0+4ucWwkARppbfNDmPlzQP+0qeZKAH0/5REGmjEkef1giyfrNt +rVNW5PymHvCiJTDQcFIu+wM53z9d7Y4Onmeg4CH7ziJyP+QO2LgnFzMwZL3D ++qWk9fdYu7FKyXp4LIAHuU+CWbtd8ggGPql7Y65sTsCkmKmT3T0G0oz17IJN +yfp50Z54tDNQWeVZfg25r5rbfkJ4JwOzhM7Oj5D7LO1EpWLZcwYeSLH/bbmd +gHXDwm9+jDAwveG1xagxAT7Vjw9eEGei/cMy7aPkfrUTKuuqpjCRF9wb5raZ +gC2uEew2eSY2GrR+cyL38QoZbfkJFSaWJ0w4mpL7uyoi4xWymLgLzgVPrCdg +xNJ2/3sXJs5KHS6KViOgp3zto3kOEz+3y2luXUPAHYElm1f4MnH+/Mef/KoE +xNfelNU9zsQ8XpddAPl8UVWkvIxNZuKiA+osFSUC3Mdf2qvfZOL7ls1DryTI +51eSk53/UmWst5b7L+4XD3xGNGjrhJXRwN74x+QPHsxt/zE2tlIZA6zoC3vn +ebBcICOGI6uMq0pOlcnO8GDd8ZbrTmuVUSWhqerEOA9OuSqLW1oro1v2pGvp +Wx5Ibfn6WL1QGQ/oz0dfv8eDovxb+V8uKWPt1ERnHZkH1vw47X6lTBljVw7J +NJN5gXVd/i+thnzfeE9r0x0y76hZasreV0b9RyNh+TU8uCpVkyQ4qoxdJQZh +94vJPDMRsvODrgp+njOdHT3FAzlthTOCLBUMLSv54hxG5hf/1nvqhio4NmYb +10/mmbOzK1n+Ziqo5jrQVRtA5o+Fcs2/jirYrmVZYsHhgb/wK3GZeBWsiaX3 +DVrzIG8NDu4aUMHL3+bUzyqT+cNZMOB6uCr+Kn52puIeF8YLTBqaTqtixGNx +MU4TFyZeRCx9FK+KuY1hDxj1XPhu+SN/KFMVayfe1Gfe4MLc5pFWkTJVvDLa +M25J5kN+iU4pzhNVXHJ8vtsomQsyral35KlrUE/49Q55Wy75f0WaP/beGow+ +/E7096sqEOtSTrk6oYYt1RV+xu8qQS6O2K2rq4H+u85kT16rgBx1g5Xi7mvJ +/DZAawkvhw5Zw41T6ZqYZMjuc4Ay2CR3L03ruRZWzljY9/aWgojAxcDDUetQ +h7ptqdfxy6AQqcjap6yNXwdumCv9vgTLmAduWrVr4663n1NqYy6CJluGCDmo +g5t3ZPexNIrBf1CsxZRvPX4w/fYm70QhTEwl2e7MWY/9E4lNPUPnYbtWW97O +tRvQ6KrLVZ53HjRObf41170BS121CrOGz4GPhs7Lp64bkVnZtqLxYhawx116 +9y3TxbMGv3xP7s2ErQyK+YqLushZKensuDcdVCMSQu/p6eGqW+u8pQRTQc3V +oIn5Ug9fPZh45OOUCK6NR09fP6aPi49zpV9BHDQV9bpMShqgLWcu7PqaGJgu ++zunVWuA+wKp6kneUeDMrFyWZ74Jd7JuOn5UioBJtUzdmm+bkKre+tCkIwxu +lfwamonbjPR/UlQHxEPBwYSOmxVYeEpZbYf980BY7R17W7OZhR/HnUC8/hhI +LveqNt/LRl3+SfkuZx8oMT514ts+NooWNO7OsvABnVMpxpkH2Bivtn2SY+AD +Ft+u/td/mI2ai+zc9EV94MzzmR/OXmz826eWxKnzhvmL4UYnItlY2z6lTJHy +hpebM5+VVrLx85c3zZG9nnA0qOT8Th4bWRsvBHQ1e8Is74br16tsLDQbGGVw +PUGM1j+nfZON+qwllLkYTzATlJdraGYj1/xkl4q+J9T3lro8+4+No3+e024W +eICpyK21wf1sfDKY3liX6AH92x/OUgbYuG37UGdnqAdM3xmNO/SWjZOUYo1V +1h6wtngd98sIef5CylGaoAfUvzQMThpj45o1PYLRMxwwlbAGrW9sXKob9318 +mANusUFPA2fYuDyhK/lzAwemm8/kSc+zcfcxxY3BlRyI+nnO+c5PNg6GcVaJ +5nJg5YZyjYMLbBywSpW/doYDBd53Zv7+ZeOD9CCbI4Ec+B/2PVjZ "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -7037,233 +7372,115 @@ 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:eJwV13k8VP0XB3APLYoo65BtNoSIylIznWNpI5QtaaFsjT17qceW7HtkKUtJ +tpkbLSprESVU8kQpRTshWVvU7/7+mtf7Na/5ztxzzzn3M9Qjvlau/Hx8fAL/ +8PH9/3V28GErI7FkyxbWg2VCPZu29BZQjhv2R0H2Je9j2/IogJKPj1D6M6DP +re6mSJ4qBO+u6BPovwip160TRnP1YdW4dMaPvhpotZO7VZ+7A97UW/hO990D +5wdvndbl2sM2xsjryb4eyLlaliN17ij86NPL+tY3DO/VDH7Wp4RCi/GVkqcX +p8CE3y/utF88yL25/fGIxgLUr3Ku1b6dARJejhVLjQXwn7RJabpHDmRob6uz +sBXE+9+3rn1uXgAvctY1T65cgZrl1dP8DcWQWBL+mF9mFfL/nUn7bVsC0mff +xWdeEEfpqf7/9K+UQqzNzi09s5Jo/HF0LD27DAIMih0fRlFQR1V91wGvCjAt +Epk2S6KgsLYWwfWvANrSk3HdWRQMspeU/BVaAU967aqflVFQiJ38KT6mAjT9 +hAUGuynYeT42N6SgAj6XhpR+l5VBRuij9ozHFXBAwmJs9TUZHA59pXNfsxJM +Jn6e8Hkni4Ls67xFQ5VwfMdZtbtfZdGlcqZH/2Ml8IrXvhSflcVHU++Wc0Yr +gWLjZHBbcDUGbOi/3jBTCV9v3Z8T0FyNbcodI3rLqyAzKi0wN3Q1Wi2hEb46 +VTAsqezTukIO2y9EmI2GV4G0b5O8tLQc3oCmqOLTVbDrgX0XR0kOQy5+bbeO +r4KbJxI1RNfLYZxKTlhVRhUkvPk2ss9eDsu4AjGal6tAp7zOfeKiHP7jXros +6GEVRLL2HJbVl0eX5PM2QqJc2HGo4LuekTxutuu4XSDOBZGI0WjbXfK4YsYm +ZC2FC+dbYkrTnORRJTvwF4vKhVumd0aXxMujVkmnCmM9F77Z04OnXpCfP2sj +IW7HhUNBMwmdYQp49O39cwE5XGCeM5IbiVFAbnK8jP95Lnn9qdylaQrYyMie +8Sziwonfa54YlSggs0G6YU8ZF7KiD0ne7lTA7/mDyR9qudCZ3l54WV4RU0o9 +9ms+58ImXu71f5sU0VUjTWibKA9M+roXxh8oYpXgk74gMR5Y8C3a7tijiFpp +SwqKJXngbOXzAj4o4urzxjJjq3mwLYwaHrFYCRepXXxqrcoDP8XZS4bqSgj7 +v0Y6IQ9a3QvHWoKVMNf8WleoNw92/jYQOxmmhL5th/er+vGgO61Xd0OEEu70 +X/71mT8PXtxeFlESr4STdy9JK4byYFwoUCzmvBJymrOLY6J4QLm6Q2/bPSUs +m93yJDObB17zkxEPVlCRbSlmVFvHg03H3KQ+ilGxlfK7Q6qRB4IjLysFKFR0 +lOisOdbMg8sDLc+30KhoJ32wWOY+DwYbszRu6FLxcarucp1uHljGGPQXO1Ix +PvJvcswbHij84Xo3uVAxx+CTaf4QD74G0wRec6jo3qDpV/WOB3FHhTQpgVQU +fHB4tvkTD5rNXkenxFFxfcsGgWsTPNARi9QKq6biTOKvq3V/eMCXONOac5OK +Yb0lhnF8BHQLeDjcrKOi5nvW1t38BHjOWMVM3qei1W7+sp7FBJT0MwbcX1KR +fy5/okiYAKnCB2dsBGg4tGirqosMAe+l2XL+gjR0hwz2Z1kCatKqq1NX0FBS +0/OpuxwBllF5rzqkaeiZ+ihknyIBca5eOoYaNOTsf9y7hEnAD/WVg2ttaWjU +/W94ghYBsxdkI9c70PDL/e1yd9cRMC3KZBg40jBjPsN7SpuA8SkDDxMODQUc +uteZbSBguM551uEUDaWT3lq26xPwZq1PrlMUDYOO1JcOGBDwqjCU5RZLw1WD +PrdGNxHwPDo56lg6DRvNMkX/sgjoMKsVibtMwxBz7qXvSEB7w93q5AoaZrKE +Pr83JKBVq9Mmk6DhvGX3WI8RAY3iQ3kFt8nzNV7hRRPyegeWq9zoomFkRI2c +yA4CCHPJjjs9NNwo/jh6kHRVk6J3cx95PodyrWInAaWXNlx7NERD+W+XvXXN +CMjzPATDMzRcBCs8V1sQcO710eFPP2moWzii3kH6rGVAzNhfGlITpusCLQlI +WR/3aH4ZHZn7FMwbdhOQeDnD548IHetSBXfv30PWV/rCqkUSdBSeucacIR31 +q3qvqAIdVzt83SVnTUC4d/1PCTod+aJMi8pJn3zTdkFWlY4fVIQ7dGwICG4Z +eMfUoeOudNcSfVuyHxIX+7G20TEpak+K2F4Cji6IihuZ0VHNqpT3L2k3X9mb +23fTcbrpUdVH0k7WWr+tHOh49Z3Ftgp7Ag7eNyi0d6SjyXD6u8X7CHDQMzE6 +5EJHa1G/IwdJ26zeF8fxoWN19lNBPgcC9iQ7q/sG0LG8G3XMSFv89e4ODKVj +8ATNMIO02bHQYydO0dH5u6/uf6R3vIuSiIii45MiJXGJ/QRstU2ujYklvz9T +s9+CtFH7OYfEJDrO65w9E0OaVVlVlJ1NxyoFm0sfSQ8oVRZuzafjNepWe5ED +BJzILi+YLqTj6aAtUTqkKcJlFy6VkL/3qAjNmnRtZOl5q3Ly/OFofT/SdnMl ++f/w6Cjr7tMWT3ra61Le1Ro6XllV0FlIOnO4ONexlo6Xz70zqyGtY1+UI1JP +R73tK7feJf20q+BcQzN5P5bO3uok7Wd8IdvrPnk/bd3LekmL3s7PWt1Bx6Gd +ehIvSPM08852dNNxW7rBwv9tXpKTefwZHe/6Gbn0kf4qcy5DtZ+sR4uy6VPS +CalZ6X2vyH75XUe0k16z+GzamSE67qf2Z90h/eBERurGj3RMf7JnoZy027e0 +lPcjdORn8X3KIr3YLTU5c4KOt9TqrP8lXTKQnGQ0TUeJeQcTZ9LGe5ISJ+fp +GJ9567YJ6eG2hISiBToqRXCv00hHsuLjLfkZuL5XXHeBrLdSTWzcnyUMnNVv +29JLuknlTCxXiIFqI4WPr5A+dOH0mQMrGVh+4+SXENK/xaJjhCQZqPBLP9mE +dH5c5Ok7MgyMq6yuW0F605/waI4CA6d3tAY9I/uhP+DfKAqdgcIfLeqzSEs5 +hkUEazCwbdP276Kkb/QeD2dqMzD8U8C79v/3n2nov70bGWhyKtvlJOmMjUEn +dYCB3/0NZQfI/tWuDAgbMmbgM3by7hjST5T8T6TtYOBYm62sBukVwr6h43sY +2LfwxdOX7P+qSO+QC3YMtI04NSNE2nTOM3jXfgaWceSlLtuR8zl8NLDChYFe +8hSlLnK+Ft0+4ucWwkARppbfNDmPlzQP+0qeZKAH0/5REGmjEkef1giyfrNt +rVNW5PymHvCiJTDQcFIu+wM53z9d7Y4Onmeg4CH7ziJyP+QO2LgnFzMwZL3D ++qWk9fdYu7FKyXp4LIAHuU+CWbtd8ggGPql7Y65sTsCkmKmT3T0G0oz17IJN +yfp50Z54tDNQWeVZfg25r5rbfkJ4JwOzhM7Oj5D7LO1EpWLZcwYeSLH/bbmd +gHXDwm9+jDAwveG1xagxAT7Vjw9eEGei/cMy7aPkfrUTKuuqpjCRF9wb5raZ +gC2uEew2eSY2GrR+cyL38QoZbfkJFSaWJ0w4mpL7uyoi4xWymLgLzgVPrCdg +xNJ2/3sXJs5KHS6KViOgp3zto3kOEz+3y2luXUPAHYElm1f4MnH+/Mef/KoE +xNfelNU9zsQ8XpddAPl8UVWkvIxNZuKiA+osFSUC3Mdf2qvfZOL7ls1DryTI +51eSk53/UmWst5b7L+4XD3xGNGjrhJXRwN74x+QPHsxt/zE2tlIZA6zoC3vn +ebBcICOGI6uMq0pOlcnO8GDd8ZbrTmuVUSWhqerEOA9OuSqLW1oro1v2pGvp +Wx5Ibfn6WL1QGQ/oz0dfv8eDovxb+V8uKWPt1ERnHZkH1vw47X6lTBljVw7J +NJN5gXVd/i+thnzfeE9r0x0y76hZasreV0b9RyNh+TU8uCpVkyQ4qoxdJQZh +94vJPDMRsvODrgp+njOdHT3FAzlthTOCLBUMLSv54hxG5hf/1nvqhio4NmYb +10/mmbOzK1n+Ziqo5jrQVRtA5o+Fcs2/jirYrmVZYsHhgb/wK3GZeBWsiaX3 +DVrzIG8NDu4aUMHL3+bUzyqT+cNZMOB6uCr+Kn52puIeF8YLTBqaTqtixGNx +MU4TFyZeRCx9FK+KuY1hDxj1XPhu+SN/KFMVayfe1Gfe4MLc5pFWkTJVvDLa +M25J5kN+iU4pzhNVXHJ8vtsomQsyral35KlrUE/49Q55Wy75f0WaP/beGow+ +/E7096sqEOtSTrk6oYYt1RV+xu8qQS6O2K2rq4H+u85kT16rgBx1g5Xi7mvJ +/DZAawkvhw5Zw41T6ZqYZMjuc4Ay2CR3L03ruRZWzljY9/aWgojAxcDDUetQ +h7ptqdfxy6AQqcjap6yNXwdumCv9vgTLmAduWrVr4663n1NqYy6CJluGCDmo +g5t3ZPexNIrBf1CsxZRvPX4w/fYm70QhTEwl2e7MWY/9E4lNPUPnYbtWW97O +tRvQ6KrLVZ53HjRObf41170BS121CrOGz4GPhs7Lp64bkVnZtqLxYhawx116 +9y3TxbMGv3xP7s2ErQyK+YqLushZKensuDcdVCMSQu/p6eGqW+u8pQRTQc3V +oIn5Ug9fPZh45OOUCK6NR09fP6aPi49zpV9BHDQV9bpMShqgLWcu7PqaGJgu ++zunVWuA+wKp6kneUeDMrFyWZ74Jd7JuOn5UioBJtUzdmm+bkKre+tCkIwxu +lfwamonbjPR/UlQHxEPBwYSOmxVYeEpZbYf980BY7R17W7OZhR/HnUC8/hhI +LveqNt/LRl3+SfkuZx8oMT514ts+NooWNO7OsvABnVMpxpkH2Bivtn2SY+AD +Ft+u/td/mI2ai+zc9EV94MzzmR/OXmz826eWxKnzhvmL4UYnItlY2z6lTJHy +hpebM5+VVrLx85c3zZG9nnA0qOT8Th4bWRsvBHQ1e8Is74br16tsLDQbGGVw +PUGM1j+nfZON+qwllLkYTzATlJdraGYj1/xkl4q+J9T3lro8+4+No3+e024W +eICpyK21wf1sfDKY3liX6AH92x/OUgbYuG37UGdnqAdM3xmNO/SWjZOUYo1V +1h6wtngd98sIef5CylGaoAfUvzQMThpj45o1PYLRMxwwlbAGrW9sXKob9318 +mANusUFPA2fYuDyhK/lzAwemm8/kSc+zcfcxxY3BlRyI+nnO+c5PNg6GcVaJ +5nJg5YZyjYMLbBywSpW/doYDBd53Zv7+ZeOD9CCbI4Ec+B/2PVjZ "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}}, + "PlotRange" -> {{0, 30}, {0., 0.06125527588008821}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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" -> @@ -7275,19 +7492,19 @@ HbLGog== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}}, + "PlotRange" -> {{0, 30}, {0., 0.06125527588008821}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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|>, @@ -7301,232 +7518,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:eJwV13k8VP0XB3APLYoo65BtNoSIylIznWNpI5QtaaFsjT17qceW7HtkKUtJ +tpkbLSprESVU8kQpRTshWVvU7/7+mtf7Na/5ztxzzzn3M9Qjvlau/Hx8fAL/ +8PH9/3V28GErI7FkyxbWg2VCPZu29BZQjhv2R0H2Je9j2/IogJKPj1D6M6DP +re6mSJ4qBO+u6BPovwip160TRnP1YdW4dMaPvhpotZO7VZ+7A97UW/hO990D +5wdvndbl2sM2xsjryb4eyLlaliN17ij86NPL+tY3DO/VDH7Wp4RCi/GVkqcX +p8CE3y/utF88yL25/fGIxgLUr3Ku1b6dARJejhVLjQXwn7RJabpHDmRob6uz +sBXE+9+3rn1uXgAvctY1T65cgZrl1dP8DcWQWBL+mF9mFfL/nUn7bVsC0mff +xWdeEEfpqf7/9K+UQqzNzi09s5Jo/HF0LD27DAIMih0fRlFQR1V91wGvCjAt +Epk2S6KgsLYWwfWvANrSk3HdWRQMspeU/BVaAU967aqflVFQiJ38KT6mAjT9 +hAUGuynYeT42N6SgAj6XhpR+l5VBRuij9ozHFXBAwmJs9TUZHA59pXNfsxJM +Jn6e8Hkni4Ls67xFQ5VwfMdZtbtfZdGlcqZH/2Ml8IrXvhSflcVHU++Wc0Yr +gWLjZHBbcDUGbOi/3jBTCV9v3Z8T0FyNbcodI3rLqyAzKi0wN3Q1Wi2hEb46 +VTAsqezTukIO2y9EmI2GV4G0b5O8tLQc3oCmqOLTVbDrgX0XR0kOQy5+bbeO +r4KbJxI1RNfLYZxKTlhVRhUkvPk2ss9eDsu4AjGal6tAp7zOfeKiHP7jXros +6GEVRLL2HJbVl0eX5PM2QqJc2HGo4LuekTxutuu4XSDOBZGI0WjbXfK4YsYm +ZC2FC+dbYkrTnORRJTvwF4vKhVumd0aXxMujVkmnCmM9F77Z04OnXpCfP2sj +IW7HhUNBMwmdYQp49O39cwE5XGCeM5IbiVFAbnK8jP95Lnn9qdylaQrYyMie +8Sziwonfa54YlSggs0G6YU8ZF7KiD0ne7lTA7/mDyR9qudCZ3l54WV4RU0o9 +9ms+58ImXu71f5sU0VUjTWibKA9M+roXxh8oYpXgk74gMR5Y8C3a7tijiFpp +SwqKJXngbOXzAj4o4urzxjJjq3mwLYwaHrFYCRepXXxqrcoDP8XZS4bqSgj7 +v0Y6IQ9a3QvHWoKVMNf8WleoNw92/jYQOxmmhL5th/er+vGgO61Xd0OEEu70 +X/71mT8PXtxeFlESr4STdy9JK4byYFwoUCzmvBJymrOLY6J4QLm6Q2/bPSUs +m93yJDObB17zkxEPVlCRbSlmVFvHg03H3KQ+ilGxlfK7Q6qRB4IjLysFKFR0 +lOisOdbMg8sDLc+30KhoJ32wWOY+DwYbszRu6FLxcarucp1uHljGGPQXO1Ix +PvJvcswbHij84Xo3uVAxx+CTaf4QD74G0wRec6jo3qDpV/WOB3FHhTQpgVQU +fHB4tvkTD5rNXkenxFFxfcsGgWsTPNARi9QKq6biTOKvq3V/eMCXONOac5OK +Yb0lhnF8BHQLeDjcrKOi5nvW1t38BHjOWMVM3qei1W7+sp7FBJT0MwbcX1KR +fy5/okiYAKnCB2dsBGg4tGirqosMAe+l2XL+gjR0hwz2Z1kCatKqq1NX0FBS +0/OpuxwBllF5rzqkaeiZ+ihknyIBca5eOoYaNOTsf9y7hEnAD/WVg2ttaWjU +/W94ghYBsxdkI9c70PDL/e1yd9cRMC3KZBg40jBjPsN7SpuA8SkDDxMODQUc +uteZbSBguM551uEUDaWT3lq26xPwZq1PrlMUDYOO1JcOGBDwqjCU5RZLw1WD +PrdGNxHwPDo56lg6DRvNMkX/sgjoMKsVibtMwxBz7qXvSEB7w93q5AoaZrKE +Pr83JKBVq9Mmk6DhvGX3WI8RAY3iQ3kFt8nzNV7hRRPyegeWq9zoomFkRI2c +yA4CCHPJjjs9NNwo/jh6kHRVk6J3cx95PodyrWInAaWXNlx7NERD+W+XvXXN +CMjzPATDMzRcBCs8V1sQcO710eFPP2moWzii3kH6rGVAzNhfGlITpusCLQlI +WR/3aH4ZHZn7FMwbdhOQeDnD548IHetSBXfv30PWV/rCqkUSdBSeucacIR31 +q3qvqAIdVzt83SVnTUC4d/1PCTod+aJMi8pJn3zTdkFWlY4fVIQ7dGwICG4Z +eMfUoeOudNcSfVuyHxIX+7G20TEpak+K2F4Cji6IihuZ0VHNqpT3L2k3X9mb +23fTcbrpUdVH0k7WWr+tHOh49Z3Ftgp7Ag7eNyi0d6SjyXD6u8X7CHDQMzE6 +5EJHa1G/IwdJ26zeF8fxoWN19lNBPgcC9iQ7q/sG0LG8G3XMSFv89e4ODKVj +8ATNMIO02bHQYydO0dH5u6/uf6R3vIuSiIii45MiJXGJ/QRstU2ujYklvz9T +s9+CtFH7OYfEJDrO65w9E0OaVVlVlJ1NxyoFm0sfSQ8oVRZuzafjNepWe5ED +BJzILi+YLqTj6aAtUTqkKcJlFy6VkL/3qAjNmnRtZOl5q3Ly/OFofT/SdnMl ++f/w6Cjr7tMWT3ra61Le1Ro6XllV0FlIOnO4ONexlo6Xz70zqyGtY1+UI1JP +R73tK7feJf20q+BcQzN5P5bO3uok7Wd8IdvrPnk/bd3LekmL3s7PWt1Bx6Gd +ehIvSPM08852dNNxW7rBwv9tXpKTefwZHe/6Gbn0kf4qcy5DtZ+sR4uy6VPS +CalZ6X2vyH75XUe0k16z+GzamSE67qf2Z90h/eBERurGj3RMf7JnoZy027e0 +lPcjdORn8X3KIr3YLTU5c4KOt9TqrP8lXTKQnGQ0TUeJeQcTZ9LGe5ISJ+fp +GJ9567YJ6eG2hISiBToqRXCv00hHsuLjLfkZuL5XXHeBrLdSTWzcnyUMnNVv +29JLuknlTCxXiIFqI4WPr5A+dOH0mQMrGVh+4+SXENK/xaJjhCQZqPBLP9mE +dH5c5Ok7MgyMq6yuW0F605/waI4CA6d3tAY9I/uhP+DfKAqdgcIfLeqzSEs5 +hkUEazCwbdP276Kkb/QeD2dqMzD8U8C79v/3n2nov70bGWhyKtvlJOmMjUEn +dYCB3/0NZQfI/tWuDAgbMmbgM3by7hjST5T8T6TtYOBYm62sBukVwr6h43sY +2LfwxdOX7P+qSO+QC3YMtI04NSNE2nTOM3jXfgaWceSlLtuR8zl8NLDChYFe +8hSlLnK+Ft0+4ucWwkARppbfNDmPlzQP+0qeZKAH0/5REGmjEkef1giyfrNt +rVNW5PymHvCiJTDQcFIu+wM53z9d7Y4Onmeg4CH7ziJyP+QO2LgnFzMwZL3D ++qWk9fdYu7FKyXp4LIAHuU+CWbtd8ggGPql7Y65sTsCkmKmT3T0G0oz17IJN +yfp50Z54tDNQWeVZfg25r5rbfkJ4JwOzhM7Oj5D7LO1EpWLZcwYeSLH/bbmd +gHXDwm9+jDAwveG1xagxAT7Vjw9eEGei/cMy7aPkfrUTKuuqpjCRF9wb5raZ +gC2uEew2eSY2GrR+cyL38QoZbfkJFSaWJ0w4mpL7uyoi4xWymLgLzgVPrCdg +xNJ2/3sXJs5KHS6KViOgp3zto3kOEz+3y2luXUPAHYElm1f4MnH+/Mef/KoE +xNfelNU9zsQ8XpddAPl8UVWkvIxNZuKiA+osFSUC3Mdf2qvfZOL7ls1DryTI +51eSk53/UmWst5b7L+4XD3xGNGjrhJXRwN74x+QPHsxt/zE2tlIZA6zoC3vn +ebBcICOGI6uMq0pOlcnO8GDd8ZbrTmuVUSWhqerEOA9OuSqLW1oro1v2pGvp +Wx5Ibfn6WL1QGQ/oz0dfv8eDovxb+V8uKWPt1ERnHZkH1vw47X6lTBljVw7J +NJN5gXVd/i+thnzfeE9r0x0y76hZasreV0b9RyNh+TU8uCpVkyQ4qoxdJQZh +94vJPDMRsvODrgp+njOdHT3FAzlthTOCLBUMLSv54hxG5hf/1nvqhio4NmYb +10/mmbOzK1n+Ziqo5jrQVRtA5o+Fcs2/jirYrmVZYsHhgb/wK3GZeBWsiaX3 +DVrzIG8NDu4aUMHL3+bUzyqT+cNZMOB6uCr+Kn52puIeF8YLTBqaTqtixGNx +MU4TFyZeRCx9FK+KuY1hDxj1XPhu+SN/KFMVayfe1Gfe4MLc5pFWkTJVvDLa +M25J5kN+iU4pzhNVXHJ8vtsomQsyral35KlrUE/49Q55Wy75f0WaP/beGow+ +/E7096sqEOtSTrk6oYYt1RV+xu8qQS6O2K2rq4H+u85kT16rgBx1g5Xi7mvJ +/DZAawkvhw5Zw41T6ZqYZMjuc4Ay2CR3L03ruRZWzljY9/aWgojAxcDDUetQ +h7ptqdfxy6AQqcjap6yNXwdumCv9vgTLmAduWrVr4663n1NqYy6CJluGCDmo +g5t3ZPexNIrBf1CsxZRvPX4w/fYm70QhTEwl2e7MWY/9E4lNPUPnYbtWW97O +tRvQ6KrLVZ53HjRObf41170BS121CrOGz4GPhs7Lp64bkVnZtqLxYhawx116 +9y3TxbMGv3xP7s2ErQyK+YqLushZKensuDcdVCMSQu/p6eGqW+u8pQRTQc3V +oIn5Ug9fPZh45OOUCK6NR09fP6aPi49zpV9BHDQV9bpMShqgLWcu7PqaGJgu ++zunVWuA+wKp6kneUeDMrFyWZ74Jd7JuOn5UioBJtUzdmm+bkKre+tCkIwxu +lfwamonbjPR/UlQHxEPBwYSOmxVYeEpZbYf980BY7R17W7OZhR/HnUC8/hhI +LveqNt/LRl3+SfkuZx8oMT514ts+NooWNO7OsvABnVMpxpkH2Bivtn2SY+AD +Ft+u/td/mI2ai+zc9EV94MzzmR/OXmz826eWxKnzhvmL4UYnItlY2z6lTJHy +hpebM5+VVrLx85c3zZG9nnA0qOT8Th4bWRsvBHQ1e8Is74br16tsLDQbGGVw +PUGM1j+nfZON+qwllLkYTzATlJdraGYj1/xkl4q+J9T3lro8+4+No3+e024W +eICpyK21wf1sfDKY3liX6AH92x/OUgbYuG37UGdnqAdM3xmNO/SWjZOUYo1V +1h6wtngd98sIef5CylGaoAfUvzQMThpj45o1PYLRMxwwlbAGrW9sXKob9318 +mANusUFPA2fYuDyhK/lzAwemm8/kSc+zcfcxxY3BlRyI+nnO+c5PNg6GcVaJ +5nJg5YZyjYMLbBywSpW/doYDBd53Zv7+ZeOD9CCbI4Ec+B/2PVjZ "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}}, + "PlotRange" -> {{0, 30}, {0., 0.06125527588008821}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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|>, @@ -7537,6 +7636,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}}, @@ -7564,7 +7664,8 @@ HbLGog== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.12263499218727081`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06125527588008821}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -7572,24 +7673,865 @@ 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.99401386955374*^9}, + CellLabel-> + "Out[293]=",ExpressionUUID->"a4ccab54-93ef-4c67-b750-900f54bdd630"] }, 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.005294"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.015702"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.025589"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.034637"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.042584"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.049218"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.054412"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.058095"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.060285"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.061043"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.060506"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.058826"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.05621"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.052848"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.048958"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.044722"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.040328"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.035917"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.031623"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.027533"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.023727"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.020242"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.017109"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.014329"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.0119"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.0098"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.008009"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.006494"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.005229"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.00418"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.00332"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.994012889620615*^9}, + CellLabel-> + "In[294]:=",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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, + 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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.061043}}, + "Frame" -> {{False, 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.061043}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.061043}}, + "Frame" -> {{False, 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.061043}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994013217324697*^9, 3.9940138696580467`*^9}, + CellLabel-> + "Out[294]=",ExpressionUUID->"d65079b0-ce7e-4bef-8308-10d48c230075"] +}, 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[295]:=",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:eJwV13k8VP0XB3APLYoo65BtNoSIylIznWNpI5QtaaFsjT17qceW7HtkKUtJ +tpkbLSprESVU8kQpRTshWVvU7/7+mtf7Na/5ztxzzzn3M9Qjvlau/Hx8fAL/ +8PH9/3V28GErI7FkyxbWg2VCPZu29BZQjhv2R0H2Je9j2/IogJKPj1D6M6DP +re6mSJ4qBO+u6BPovwip160TRnP1YdW4dMaPvhpotZO7VZ+7A97UW/hO990D +5wdvndbl2sM2xsjryb4eyLlaliN17ij86NPL+tY3DO/VDH7Wp4RCi/GVkqcX +p8CE3y/utF88yL25/fGIxgLUr3Ku1b6dARJejhVLjQXwn7RJabpHDmRob6uz +sBXE+9+3rn1uXgAvctY1T65cgZrl1dP8DcWQWBL+mF9mFfL/nUn7bVsC0mff +xWdeEEfpqf7/9K+UQqzNzi09s5Jo/HF0LD27DAIMih0fRlFQR1V91wGvCjAt +Epk2S6KgsLYWwfWvANrSk3HdWRQMspeU/BVaAU967aqflVFQiJ38KT6mAjT9 +hAUGuynYeT42N6SgAj6XhpR+l5VBRuij9ozHFXBAwmJs9TUZHA59pXNfsxJM +Jn6e8Hkni4Ls67xFQ5VwfMdZtbtfZdGlcqZH/2Ml8IrXvhSflcVHU++Wc0Yr +gWLjZHBbcDUGbOi/3jBTCV9v3Z8T0FyNbcodI3rLqyAzKi0wN3Q1Wi2hEb46 +VTAsqezTukIO2y9EmI2GV4G0b5O8tLQc3oCmqOLTVbDrgX0XR0kOQy5+bbeO +r4KbJxI1RNfLYZxKTlhVRhUkvPk2ss9eDsu4AjGal6tAp7zOfeKiHP7jXros +6GEVRLL2HJbVl0eX5PM2QqJc2HGo4LuekTxutuu4XSDOBZGI0WjbXfK4YsYm +ZC2FC+dbYkrTnORRJTvwF4vKhVumd0aXxMujVkmnCmM9F77Z04OnXpCfP2sj +IW7HhUNBMwmdYQp49O39cwE5XGCeM5IbiVFAbnK8jP95Lnn9qdylaQrYyMie +8Sziwonfa54YlSggs0G6YU8ZF7KiD0ne7lTA7/mDyR9qudCZ3l54WV4RU0o9 +9ms+58ImXu71f5sU0VUjTWibKA9M+roXxh8oYpXgk74gMR5Y8C3a7tijiFpp +SwqKJXngbOXzAj4o4urzxjJjq3mwLYwaHrFYCRepXXxqrcoDP8XZS4bqSgj7 +v0Y6IQ9a3QvHWoKVMNf8WleoNw92/jYQOxmmhL5th/er+vGgO61Xd0OEEu70 +X/71mT8PXtxeFlESr4STdy9JK4byYFwoUCzmvBJymrOLY6J4QLm6Q2/bPSUs +m93yJDObB17zkxEPVlCRbSlmVFvHg03H3KQ+ilGxlfK7Q6qRB4IjLysFKFR0 +lOisOdbMg8sDLc+30KhoJ32wWOY+DwYbszRu6FLxcarucp1uHljGGPQXO1Ix +PvJvcswbHij84Xo3uVAxx+CTaf4QD74G0wRec6jo3qDpV/WOB3FHhTQpgVQU +fHB4tvkTD5rNXkenxFFxfcsGgWsTPNARi9QKq6biTOKvq3V/eMCXONOac5OK +Yb0lhnF8BHQLeDjcrKOi5nvW1t38BHjOWMVM3qei1W7+sp7FBJT0MwbcX1KR +fy5/okiYAKnCB2dsBGg4tGirqosMAe+l2XL+gjR0hwz2Z1kCatKqq1NX0FBS +0/OpuxwBllF5rzqkaeiZ+ihknyIBca5eOoYaNOTsf9y7hEnAD/WVg2ttaWjU +/W94ghYBsxdkI9c70PDL/e1yd9cRMC3KZBg40jBjPsN7SpuA8SkDDxMODQUc +uteZbSBguM551uEUDaWT3lq26xPwZq1PrlMUDYOO1JcOGBDwqjCU5RZLw1WD +PrdGNxHwPDo56lg6DRvNMkX/sgjoMKsVibtMwxBz7qXvSEB7w93q5AoaZrKE +Pr83JKBVq9Mmk6DhvGX3WI8RAY3iQ3kFt8nzNV7hRRPyegeWq9zoomFkRI2c +yA4CCHPJjjs9NNwo/jh6kHRVk6J3cx95PodyrWInAaWXNlx7NERD+W+XvXXN +CMjzPATDMzRcBCs8V1sQcO710eFPP2moWzii3kH6rGVAzNhfGlITpusCLQlI +WR/3aH4ZHZn7FMwbdhOQeDnD548IHetSBXfv30PWV/rCqkUSdBSeucacIR31 +q3qvqAIdVzt83SVnTUC4d/1PCTod+aJMi8pJn3zTdkFWlY4fVIQ7dGwICG4Z +eMfUoeOudNcSfVuyHxIX+7G20TEpak+K2F4Cji6IihuZ0VHNqpT3L2k3X9mb +23fTcbrpUdVH0k7WWr+tHOh49Z3Ftgp7Ag7eNyi0d6SjyXD6u8X7CHDQMzE6 +5EJHa1G/IwdJ26zeF8fxoWN19lNBPgcC9iQ7q/sG0LG8G3XMSFv89e4ODKVj +8ATNMIO02bHQYydO0dH5u6/uf6R3vIuSiIii45MiJXGJ/QRstU2ujYklvz9T +s9+CtFH7OYfEJDrO65w9E0OaVVlVlJ1NxyoFm0sfSQ8oVRZuzafjNepWe5ED +BJzILi+YLqTj6aAtUTqkKcJlFy6VkL/3qAjNmnRtZOl5q3Ly/OFofT/SdnMl ++f/w6Cjr7tMWT3ra61Le1Ro6XllV0FlIOnO4ONexlo6Xz70zqyGtY1+UI1JP +R73tK7feJf20q+BcQzN5P5bO3uok7Wd8IdvrPnk/bd3LekmL3s7PWt1Bx6Gd +ehIvSPM08852dNNxW7rBwv9tXpKTefwZHe/6Gbn0kf4qcy5DtZ+sR4uy6VPS +CalZ6X2vyH75XUe0k16z+GzamSE67qf2Z90h/eBERurGj3RMf7JnoZy027e0 +lPcjdORn8X3KIr3YLTU5c4KOt9TqrP8lXTKQnGQ0TUeJeQcTZ9LGe5ISJ+fp +GJ9567YJ6eG2hISiBToqRXCv00hHsuLjLfkZuL5XXHeBrLdSTWzcnyUMnNVv +29JLuknlTCxXiIFqI4WPr5A+dOH0mQMrGVh+4+SXENK/xaJjhCQZqPBLP9mE +dH5c5Ok7MgyMq6yuW0F605/waI4CA6d3tAY9I/uhP+DfKAqdgcIfLeqzSEs5 +hkUEazCwbdP276Kkb/QeD2dqMzD8U8C79v/3n2nov70bGWhyKtvlJOmMjUEn +dYCB3/0NZQfI/tWuDAgbMmbgM3by7hjST5T8T6TtYOBYm62sBukVwr6h43sY +2LfwxdOX7P+qSO+QC3YMtI04NSNE2nTOM3jXfgaWceSlLtuR8zl8NLDChYFe +8hSlLnK+Ft0+4ucWwkARppbfNDmPlzQP+0qeZKAH0/5REGmjEkef1giyfrNt +rVNW5PymHvCiJTDQcFIu+wM53z9d7Y4Onmeg4CH7ziJyP+QO2LgnFzMwZL3D ++qWk9fdYu7FKyXp4LIAHuU+CWbtd8ggGPql7Y65sTsCkmKmT3T0G0oz17IJN +yfp50Z54tDNQWeVZfg25r5rbfkJ4JwOzhM7Oj5D7LO1EpWLZcwYeSLH/bbmd +gHXDwm9+jDAwveG1xagxAT7Vjw9eEGei/cMy7aPkfrUTKuuqpjCRF9wb5raZ +gC2uEew2eSY2GrR+cyL38QoZbfkJFSaWJ0w4mpL7uyoi4xWymLgLzgVPrCdg +xNJ2/3sXJs5KHS6KViOgp3zto3kOEz+3y2luXUPAHYElm1f4MnH+/Mef/KoE +xNfelNU9zsQ8XpddAPl8UVWkvIxNZuKiA+osFSUC3Mdf2qvfZOL7ls1DryTI +51eSk53/UmWst5b7L+4XD3xGNGjrhJXRwN74x+QPHsxt/zE2tlIZA6zoC3vn +ebBcICOGI6uMq0pOlcnO8GDd8ZbrTmuVUSWhqerEOA9OuSqLW1oro1v2pGvp +Wx5Ibfn6WL1QGQ/oz0dfv8eDovxb+V8uKWPt1ERnHZkH1vw47X6lTBljVw7J +NJN5gXVd/i+thnzfeE9r0x0y76hZasreV0b9RyNh+TU8uCpVkyQ4qoxdJQZh +94vJPDMRsvODrgp+njOdHT3FAzlthTOCLBUMLSv54hxG5hf/1nvqhio4NmYb +10/mmbOzK1n+Ziqo5jrQVRtA5o+Fcs2/jirYrmVZYsHhgb/wK3GZeBWsiaX3 +DVrzIG8NDu4aUMHL3+bUzyqT+cNZMOB6uCr+Kn52puIeF8YLTBqaTqtixGNx +MU4TFyZeRCx9FK+KuY1hDxj1XPhu+SN/KFMVayfe1Gfe4MLc5pFWkTJVvDLa +M25J5kN+iU4pzhNVXHJ8vtsomQsyral35KlrUE/49Q55Wy75f0WaP/beGow+ +/E7096sqEOtSTrk6oYYt1RV+xu8qQS6O2K2rq4H+u85kT16rgBx1g5Xi7mvJ +/DZAawkvhw5Zw41T6ZqYZMjuc4Ay2CR3L03ruRZWzljY9/aWgojAxcDDUetQ +h7ptqdfxy6AQqcjap6yNXwdumCv9vgTLmAduWrVr4663n1NqYy6CJluGCDmo +g5t3ZPexNIrBf1CsxZRvPX4w/fYm70QhTEwl2e7MWY/9E4lNPUPnYbtWW97O +tRvQ6KrLVZ53HjRObf41170BS121CrOGz4GPhs7Lp64bkVnZtqLxYhawx116 +9y3TxbMGv3xP7s2ErQyK+YqLushZKensuDcdVCMSQu/p6eGqW+u8pQRTQc3V +oIn5Ug9fPZh45OOUCK6NR09fP6aPi49zpV9BHDQV9bpMShqgLWcu7PqaGJgu ++zunVWuA+wKp6kneUeDMrFyWZ74Jd7JuOn5UioBJtUzdmm+bkKre+tCkIwxu +lfwamonbjPR/UlQHxEPBwYSOmxVYeEpZbYf980BY7R17W7OZhR/HnUC8/hhI +LveqNt/LRl3+SfkuZx8oMT514ts+NooWNO7OsvABnVMpxpkH2Bivtn2SY+AD +Ft+u/td/mI2ai+zc9EV94MzzmR/OXmz826eWxKnzhvmL4UYnItlY2z6lTJHy +hpebM5+VVrLx85c3zZG9nnA0qOT8Th4bWRsvBHQ1e8Is74br16tsLDQbGGVw +PUGM1j+nfZON+qwllLkYTzATlJdraGYj1/xkl4q+J9T3lro8+4+No3+e024W +eICpyK21wf1sfDKY3liX6AH92x/OUgbYuG37UGdnqAdM3xmNO/SWjZOUYo1V +1h6wtngd98sIef5CylGaoAfUvzQMThpj45o1PYLRMxwwlbAGrW9sXKob9318 +mANusUFPA2fYuDyhK/lzAwemm8/kSc+zcfcxxY3BlRyI+nnO+c5PNg6GcVaJ +5nJg5YZyjYMLbBywSpW/doYDBd53Zv7+ZeOD9CCbI4Ec+B/2PVjZ + "]]}, + 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:eJwV13k8VP0XB3APLYoo65BtNoSIylIznWNpI5QtaaFsjT17qceW7HtkKUtJ +tpkbLSprESVU8kQpRTshWVvU7/7+mtf7Na/5ztxzzzn3M9Qjvlau/Hx8fAL/ +8PH9/3V28GErI7FkyxbWg2VCPZu29BZQjhv2R0H2Je9j2/IogJKPj1D6M6DP +re6mSJ4qBO+u6BPovwip160TRnP1YdW4dMaPvhpotZO7VZ+7A97UW/hO990D +5wdvndbl2sM2xsjryb4eyLlaliN17ij86NPL+tY3DO/VDH7Wp4RCi/GVkqcX +p8CE3y/utF88yL25/fGIxgLUr3Ku1b6dARJejhVLjQXwn7RJabpHDmRob6uz +sBXE+9+3rn1uXgAvctY1T65cgZrl1dP8DcWQWBL+mF9mFfL/nUn7bVsC0mff +xWdeEEfpqf7/9K+UQqzNzi09s5Jo/HF0LD27DAIMih0fRlFQR1V91wGvCjAt +Epk2S6KgsLYWwfWvANrSk3HdWRQMspeU/BVaAU967aqflVFQiJ38KT6mAjT9 +hAUGuynYeT42N6SgAj6XhpR+l5VBRuij9ozHFXBAwmJs9TUZHA59pXNfsxJM +Jn6e8Hkni4Ls67xFQ5VwfMdZtbtfZdGlcqZH/2Ml8IrXvhSflcVHU++Wc0Yr +gWLjZHBbcDUGbOi/3jBTCV9v3Z8T0FyNbcodI3rLqyAzKi0wN3Q1Wi2hEb46 +VTAsqezTukIO2y9EmI2GV4G0b5O8tLQc3oCmqOLTVbDrgX0XR0kOQy5+bbeO +r4KbJxI1RNfLYZxKTlhVRhUkvPk2ss9eDsu4AjGal6tAp7zOfeKiHP7jXros +6GEVRLL2HJbVl0eX5PM2QqJc2HGo4LuekTxutuu4XSDOBZGI0WjbXfK4YsYm +ZC2FC+dbYkrTnORRJTvwF4vKhVumd0aXxMujVkmnCmM9F77Z04OnXpCfP2sj +IW7HhUNBMwmdYQp49O39cwE5XGCeM5IbiVFAbnK8jP95Lnn9qdylaQrYyMie +8Sziwonfa54YlSggs0G6YU8ZF7KiD0ne7lTA7/mDyR9qudCZ3l54WV4RU0o9 +9ms+58ImXu71f5sU0VUjTWibKA9M+roXxh8oYpXgk74gMR5Y8C3a7tijiFpp +SwqKJXngbOXzAj4o4urzxjJjq3mwLYwaHrFYCRepXXxqrcoDP8XZS4bqSgj7 +v0Y6IQ9a3QvHWoKVMNf8WleoNw92/jYQOxmmhL5th/er+vGgO61Xd0OEEu70 +X/71mT8PXtxeFlESr4STdy9JK4byYFwoUCzmvBJymrOLY6J4QLm6Q2/bPSUs +m93yJDObB17zkxEPVlCRbSlmVFvHg03H3KQ+ilGxlfK7Q6qRB4IjLysFKFR0 +lOisOdbMg8sDLc+30KhoJ32wWOY+DwYbszRu6FLxcarucp1uHljGGPQXO1Ix +PvJvcswbHij84Xo3uVAxx+CTaf4QD74G0wRec6jo3qDpV/WOB3FHhTQpgVQU +fHB4tvkTD5rNXkenxFFxfcsGgWsTPNARi9QKq6biTOKvq3V/eMCXONOac5OK +Yb0lhnF8BHQLeDjcrKOi5nvW1t38BHjOWMVM3qei1W7+sp7FBJT0MwbcX1KR +fy5/okiYAKnCB2dsBGg4tGirqosMAe+l2XL+gjR0hwz2Z1kCatKqq1NX0FBS +0/OpuxwBllF5rzqkaeiZ+ihknyIBca5eOoYaNOTsf9y7hEnAD/WVg2ttaWjU +/W94ghYBsxdkI9c70PDL/e1yd9cRMC3KZBg40jBjPsN7SpuA8SkDDxMODQUc +uteZbSBguM551uEUDaWT3lq26xPwZq1PrlMUDYOO1JcOGBDwqjCU5RZLw1WD +PrdGNxHwPDo56lg6DRvNMkX/sgjoMKsVibtMwxBz7qXvSEB7w93q5AoaZrKE +Pr83JKBVq9Mmk6DhvGX3WI8RAY3iQ3kFt8nzNV7hRRPyegeWq9zoomFkRI2c +yA4CCHPJjjs9NNwo/jh6kHRVk6J3cx95PodyrWInAaWXNlx7NERD+W+XvXXN +CMjzPATDMzRcBCs8V1sQcO710eFPP2moWzii3kH6rGVAzNhfGlITpusCLQlI +WR/3aH4ZHZn7FMwbdhOQeDnD548IHetSBXfv30PWV/rCqkUSdBSeucacIR31 +q3qvqAIdVzt83SVnTUC4d/1PCTod+aJMi8pJn3zTdkFWlY4fVIQ7dGwICG4Z +eMfUoeOudNcSfVuyHxIX+7G20TEpak+K2F4Cji6IihuZ0VHNqpT3L2k3X9mb +23fTcbrpUdVH0k7WWr+tHOh49Z3Ftgp7Ag7eNyi0d6SjyXD6u8X7CHDQMzE6 +5EJHa1G/IwdJ26zeF8fxoWN19lNBPgcC9iQ7q/sG0LG8G3XMSFv89e4ODKVj +8ATNMIO02bHQYydO0dH5u6/uf6R3vIuSiIii45MiJXGJ/QRstU2ujYklvz9T +s9+CtFH7OYfEJDrO65w9E0OaVVlVlJ1NxyoFm0sfSQ8oVRZuzafjNepWe5ED +BJzILi+YLqTj6aAtUTqkKcJlFy6VkL/3qAjNmnRtZOl5q3Ly/OFofT/SdnMl ++f/w6Cjr7tMWT3ra61Le1Ro6XllV0FlIOnO4ONexlo6Xz70zqyGtY1+UI1JP +R73tK7feJf20q+BcQzN5P5bO3uok7Wd8IdvrPnk/bd3LekmL3s7PWt1Bx6Gd +ehIvSPM08852dNNxW7rBwv9tXpKTefwZHe/6Gbn0kf4qcy5DtZ+sR4uy6VPS +CalZ6X2vyH75XUe0k16z+GzamSE67qf2Z90h/eBERurGj3RMf7JnoZy027e0 +lPcjdORn8X3KIr3YLTU5c4KOt9TqrP8lXTKQnGQ0TUeJeQcTZ9LGe5ISJ+fp +GJ9567YJ6eG2hISiBToqRXCv00hHsuLjLfkZuL5XXHeBrLdSTWzcnyUMnNVv +29JLuknlTCxXiIFqI4WPr5A+dOH0mQMrGVh+4+SXENK/xaJjhCQZqPBLP9mE +dH5c5Ok7MgyMq6yuW0F605/waI4CA6d3tAY9I/uhP+DfKAqdgcIfLeqzSEs5 +hkUEazCwbdP276Kkb/QeD2dqMzD8U8C79v/3n2nov70bGWhyKtvlJOmMjUEn +dYCB3/0NZQfI/tWuDAgbMmbgM3by7hjST5T8T6TtYOBYm62sBukVwr6h43sY +2LfwxdOX7P+qSO+QC3YMtI04NSNE2nTOM3jXfgaWceSlLtuR8zl8NLDChYFe +8hSlLnK+Ft0+4ucWwkARppbfNDmPlzQP+0qeZKAH0/5REGmjEkef1giyfrNt +rVNW5PymHvCiJTDQcFIu+wM53z9d7Y4Onmeg4CH7ziJyP+QO2LgnFzMwZL3D ++qWk9fdYu7FKyXp4LIAHuU+CWbtd8ggGPql7Y65sTsCkmKmT3T0G0oz17IJN +yfp50Z54tDNQWeVZfg25r5rbfkJ4JwOzhM7Oj5D7LO1EpWLZcwYeSLH/bbmd +gHXDwm9+jDAwveG1xagxAT7Vjw9eEGei/cMy7aPkfrUTKuuqpjCRF9wb5raZ +gC2uEew2eSY2GrR+cyL38QoZbfkJFSaWJ0w4mpL7uyoi4xWymLgLzgVPrCdg +xNJ2/3sXJs5KHS6KViOgp3zto3kOEz+3y2luXUPAHYElm1f4MnH+/Mef/KoE +xNfelNU9zsQ8XpddAPl8UVWkvIxNZuKiA+osFSUC3Mdf2qvfZOL7ls1DryTI +51eSk53/UmWst5b7L+4XD3xGNGjrhJXRwN74x+QPHsxt/zE2tlIZA6zoC3vn +ebBcICOGI6uMq0pOlcnO8GDd8ZbrTmuVUSWhqerEOA9OuSqLW1oro1v2pGvp +Wx5Ibfn6WL1QGQ/oz0dfv8eDovxb+V8uKWPt1ERnHZkH1vw47X6lTBljVw7J +NJN5gXVd/i+thnzfeE9r0x0y76hZasreV0b9RyNh+TU8uCpVkyQ4qoxdJQZh +94vJPDMRsvODrgp+njOdHT3FAzlthTOCLBUMLSv54hxG5hf/1nvqhio4NmYb +10/mmbOzK1n+Ziqo5jrQVRtA5o+Fcs2/jirYrmVZYsHhgb/wK3GZeBWsiaX3 +DVrzIG8NDu4aUMHL3+bUzyqT+cNZMOB6uCr+Kn52puIeF8YLTBqaTqtixGNx +MU4TFyZeRCx9FK+KuY1hDxj1XPhu+SN/KFMVayfe1Gfe4MLc5pFWkTJVvDLa +M25J5kN+iU4pzhNVXHJ8vtsomQsyral35KlrUE/49Q55Wy75f0WaP/beGow+ +/E7096sqEOtSTrk6oYYt1RV+xu8qQS6O2K2rq4H+u85kT16rgBx1g5Xi7mvJ +/DZAawkvhw5Zw41T6ZqYZMjuc4Ay2CR3L03ruRZWzljY9/aWgojAxcDDUetQ +h7ptqdfxy6AQqcjap6yNXwdumCv9vgTLmAduWrVr4663n1NqYy6CJluGCDmo +g5t3ZPexNIrBf1CsxZRvPX4w/fYm70QhTEwl2e7MWY/9E4lNPUPnYbtWW97O +tRvQ6KrLVZ53HjRObf41170BS121CrOGz4GPhs7Lp64bkVnZtqLxYhawx116 +9y3TxbMGv3xP7s2ErQyK+YqLushZKensuDcdVCMSQu/p6eGqW+u8pQRTQc3V +oIn5Ug9fPZh45OOUCK6NR09fP6aPi49zpV9BHDQV9bpMShqgLWcu7PqaGJgu ++zunVWuA+wKp6kneUeDMrFyWZ74Jd7JuOn5UioBJtUzdmm+bkKre+tCkIwxu +lfwamonbjPR/UlQHxEPBwYSOmxVYeEpZbYf980BY7R17W7OZhR/HnUC8/hhI +LveqNt/LRl3+SfkuZx8oMT514ts+NooWNO7OsvABnVMpxpkH2Bivtn2SY+AD +Ft+u/td/mI2ai+zc9EV94MzzmR/OXmz826eWxKnzhvmL4UYnItlY2z6lTJHy +hpebM5+VVrLx85c3zZG9nnA0qOT8Th4bWRsvBHQ1e8Is74br16tsLDQbGGVw +PUGM1j+nfZON+qwllLkYTzATlJdraGYj1/xkl4q+J9T3lro8+4+No3+e024W +eICpyK21wf1sfDKY3liX6AH92x/OUgbYuG37UGdnqAdM3xmNO/SWjZOUYo1V +1h6wtngd98sIef5CylGaoAfUvzQMThpj45o1PYLRMxwwlbAGrW9sXKob9318 +mANusUFPA2fYuDyhK/lzAwemm8/kSc+zcfcxxY3BlRyI+nnO+c5PNg6GcVaJ +5nJg5YZyjYMLbBywSpW/doYDBd53Zv7+ZeOD9CCbI4Ec+B/2PVjZ + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06125527588008821}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.06125527588008821}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJwV13k8VP0XB3APLYoo65BtNoSIylIznWNpI5QtaaFsjT17qceW7HtkKUtJ +tpkbLSprESVU8kQpRTshWVvU7/7+mtf7Na/5ztxzzzn3M9Qjvlau/Hx8fAL/ +8PH9/3V28GErI7FkyxbWg2VCPZu29BZQjhv2R0H2Je9j2/IogJKPj1D6M6DP +re6mSJ4qBO+u6BPovwip160TRnP1YdW4dMaPvhpotZO7VZ+7A97UW/hO990D +5wdvndbl2sM2xsjryb4eyLlaliN17ij86NPL+tY3DO/VDH7Wp4RCi/GVkqcX +p8CE3y/utF88yL25/fGIxgLUr3Ku1b6dARJejhVLjQXwn7RJabpHDmRob6uz +sBXE+9+3rn1uXgAvctY1T65cgZrl1dP8DcWQWBL+mF9mFfL/nUn7bVsC0mff +xWdeEEfpqf7/9K+UQqzNzi09s5Jo/HF0LD27DAIMih0fRlFQR1V91wGvCjAt +Epk2S6KgsLYWwfWvANrSk3HdWRQMspeU/BVaAU967aqflVFQiJ38KT6mAjT9 +hAUGuynYeT42N6SgAj6XhpR+l5VBRuij9ozHFXBAwmJs9TUZHA59pXNfsxJM +Jn6e8Hkni4Ls67xFQ5VwfMdZtbtfZdGlcqZH/2Ml8IrXvhSflcVHU++Wc0Yr +gWLjZHBbcDUGbOi/3jBTCV9v3Z8T0FyNbcodI3rLqyAzKi0wN3Q1Wi2hEb46 +VTAsqezTukIO2y9EmI2GV4G0b5O8tLQc3oCmqOLTVbDrgX0XR0kOQy5+bbeO +r4KbJxI1RNfLYZxKTlhVRhUkvPk2ss9eDsu4AjGal6tAp7zOfeKiHP7jXros +6GEVRLL2HJbVl0eX5PM2QqJc2HGo4LuekTxutuu4XSDOBZGI0WjbXfK4YsYm +ZC2FC+dbYkrTnORRJTvwF4vKhVumd0aXxMujVkmnCmM9F77Z04OnXpCfP2sj +IW7HhUNBMwmdYQp49O39cwE5XGCeM5IbiVFAbnK8jP95Lnn9qdylaQrYyMie +8Sziwonfa54YlSggs0G6YU8ZF7KiD0ne7lTA7/mDyR9qudCZ3l54WV4RU0o9 +9ms+58ImXu71f5sU0VUjTWibKA9M+roXxh8oYpXgk74gMR5Y8C3a7tijiFpp +SwqKJXngbOXzAj4o4urzxjJjq3mwLYwaHrFYCRepXXxqrcoDP8XZS4bqSgj7 +v0Y6IQ9a3QvHWoKVMNf8WleoNw92/jYQOxmmhL5th/er+vGgO61Xd0OEEu70 +X/71mT8PXtxeFlESr4STdy9JK4byYFwoUCzmvBJymrOLY6J4QLm6Q2/bPSUs +m93yJDObB17zkxEPVlCRbSlmVFvHg03H3KQ+ilGxlfK7Q6qRB4IjLysFKFR0 +lOisOdbMg8sDLc+30KhoJ32wWOY+DwYbszRu6FLxcarucp1uHljGGPQXO1Ix +PvJvcswbHij84Xo3uVAxx+CTaf4QD74G0wRec6jo3qDpV/WOB3FHhTQpgVQU +fHB4tvkTD5rNXkenxFFxfcsGgWsTPNARi9QKq6biTOKvq3V/eMCXONOac5OK +Yb0lhnF8BHQLeDjcrKOi5nvW1t38BHjOWMVM3qei1W7+sp7FBJT0MwbcX1KR +fy5/okiYAKnCB2dsBGg4tGirqosMAe+l2XL+gjR0hwz2Z1kCatKqq1NX0FBS +0/OpuxwBllF5rzqkaeiZ+ihknyIBca5eOoYaNOTsf9y7hEnAD/WVg2ttaWjU +/W94ghYBsxdkI9c70PDL/e1yd9cRMC3KZBg40jBjPsN7SpuA8SkDDxMODQUc +uteZbSBguM551uEUDaWT3lq26xPwZq1PrlMUDYOO1JcOGBDwqjCU5RZLw1WD +PrdGNxHwPDo56lg6DRvNMkX/sgjoMKsVibtMwxBz7qXvSEB7w93q5AoaZrKE +Pr83JKBVq9Mmk6DhvGX3WI8RAY3iQ3kFt8nzNV7hRRPyegeWq9zoomFkRI2c +yA4CCHPJjjs9NNwo/jh6kHRVk6J3cx95PodyrWInAaWXNlx7NERD+W+XvXXN +CMjzPATDMzRcBCs8V1sQcO710eFPP2moWzii3kH6rGVAzNhfGlITpusCLQlI +WR/3aH4ZHZn7FMwbdhOQeDnD548IHetSBXfv30PWV/rCqkUSdBSeucacIR31 +q3qvqAIdVzt83SVnTUC4d/1PCTod+aJMi8pJn3zTdkFWlY4fVIQ7dGwICG4Z +eMfUoeOudNcSfVuyHxIX+7G20TEpak+K2F4Cji6IihuZ0VHNqpT3L2k3X9mb +23fTcbrpUdVH0k7WWr+tHOh49Z3Ftgp7Ag7eNyi0d6SjyXD6u8X7CHDQMzE6 +5EJHa1G/IwdJ26zeF8fxoWN19lNBPgcC9iQ7q/sG0LG8G3XMSFv89e4ODKVj +8ATNMIO02bHQYydO0dH5u6/uf6R3vIuSiIii45MiJXGJ/QRstU2ujYklvz9T +s9+CtFH7OYfEJDrO65w9E0OaVVlVlJ1NxyoFm0sfSQ8oVRZuzafjNepWe5ED +BJzILi+YLqTj6aAtUTqkKcJlFy6VkL/3qAjNmnRtZOl5q3Ly/OFofT/SdnMl ++f/w6Cjr7tMWT3ra61Le1Ro6XllV0FlIOnO4ONexlo6Xz70zqyGtY1+UI1JP +R73tK7feJf20q+BcQzN5P5bO3uok7Wd8IdvrPnk/bd3LekmL3s7PWt1Bx6Gd +ehIvSPM08852dNNxW7rBwv9tXpKTefwZHe/6Gbn0kf4qcy5DtZ+sR4uy6VPS +CalZ6X2vyH75XUe0k16z+GzamSE67qf2Z90h/eBERurGj3RMf7JnoZy027e0 +lPcjdORn8X3KIr3YLTU5c4KOt9TqrP8lXTKQnGQ0TUeJeQcTZ9LGe5ISJ+fp +GJ9567YJ6eG2hISiBToqRXCv00hHsuLjLfkZuL5XXHeBrLdSTWzcnyUMnNVv +29JLuknlTCxXiIFqI4WPr5A+dOH0mQMrGVh+4+SXENK/xaJjhCQZqPBLP9mE +dH5c5Ok7MgyMq6yuW0F605/waI4CA6d3tAY9I/uhP+DfKAqdgcIfLeqzSEs5 +hkUEazCwbdP276Kkb/QeD2dqMzD8U8C79v/3n2nov70bGWhyKtvlJOmMjUEn +dYCB3/0NZQfI/tWuDAgbMmbgM3by7hjST5T8T6TtYOBYm62sBukVwr6h43sY +2LfwxdOX7P+qSO+QC3YMtI04NSNE2nTOM3jXfgaWceSlLtuR8zl8NLDChYFe +8hSlLnK+Ft0+4ucWwkARppbfNDmPlzQP+0qeZKAH0/5REGmjEkef1giyfrNt +rVNW5PymHvCiJTDQcFIu+wM53z9d7Y4Onmeg4CH7ziJyP+QO2LgnFzMwZL3D ++qWk9fdYu7FKyXp4LIAHuU+CWbtd8ggGPql7Y65sTsCkmKmT3T0G0oz17IJN +yfp50Z54tDNQWeVZfg25r5rbfkJ4JwOzhM7Oj5D7LO1EpWLZcwYeSLH/bbmd +gHXDwm9+jDAwveG1xagxAT7Vjw9eEGei/cMy7aPkfrUTKuuqpjCRF9wb5raZ +gC2uEew2eSY2GrR+cyL38QoZbfkJFSaWJ0w4mpL7uyoi4xWymLgLzgVPrCdg +xNJ2/3sXJs5KHS6KViOgp3zto3kOEz+3y2luXUPAHYElm1f4MnH+/Mef/KoE +xNfelNU9zsQ8XpddAPl8UVWkvIxNZuKiA+osFSUC3Mdf2qvfZOL7ls1DryTI +51eSk53/UmWst5b7L+4XD3xGNGjrhJXRwN74x+QPHsxt/zE2tlIZA6zoC3vn +ebBcICOGI6uMq0pOlcnO8GDd8ZbrTmuVUSWhqerEOA9OuSqLW1oro1v2pGvp +Wx5Ibfn6WL1QGQ/oz0dfv8eDovxb+V8uKWPt1ERnHZkH1vw47X6lTBljVw7J +NJN5gXVd/i+thnzfeE9r0x0y76hZasreV0b9RyNh+TU8uCpVkyQ4qoxdJQZh +94vJPDMRsvODrgp+njOdHT3FAzlthTOCLBUMLSv54hxG5hf/1nvqhio4NmYb +10/mmbOzK1n+Ziqo5jrQVRtA5o+Fcs2/jirYrmVZYsHhgb/wK3GZeBWsiaX3 +DVrzIG8NDu4aUMHL3+bUzyqT+cNZMOB6uCr+Kn52puIeF8YLTBqaTqtixGNx +MU4TFyZeRCx9FK+KuY1hDxj1XPhu+SN/KFMVayfe1Gfe4MLc5pFWkTJVvDLa +M25J5kN+iU4pzhNVXHJ8vtsomQsyral35KlrUE/49Q55Wy75f0WaP/beGow+ +/E7096sqEOtSTrk6oYYt1RV+xu8qQS6O2K2rq4H+u85kT16rgBx1g5Xi7mvJ +/DZAawkvhw5Zw41T6ZqYZMjuc4Ay2CR3L03ruRZWzljY9/aWgojAxcDDUetQ +h7ptqdfxy6AQqcjap6yNXwdumCv9vgTLmAduWrVr4663n1NqYy6CJluGCDmo +g5t3ZPexNIrBf1CsxZRvPX4w/fYm70QhTEwl2e7MWY/9E4lNPUPnYbtWW97O +tRvQ6KrLVZ53HjRObf41170BS121CrOGz4GPhs7Lp64bkVnZtqLxYhawx116 +9y3TxbMGv3xP7s2ErQyK+YqLushZKensuDcdVCMSQu/p6eGqW+u8pQRTQc3V +oIn5Ug9fPZh45OOUCK6NR09fP6aPi49zpV9BHDQV9bpMShqgLWcu7PqaGJgu ++zunVWuA+wKp6kneUeDMrFyWZ74Jd7JuOn5UioBJtUzdmm+bkKre+tCkIwxu +lfwamonbjPR/UlQHxEPBwYSOmxVYeEpZbYf980BY7R17W7OZhR/HnUC8/hhI +LveqNt/LRl3+SfkuZx8oMT514ts+NooWNO7OsvABnVMpxpkH2Bivtn2SY+AD +Ft+u/td/mI2ai+zc9EV94MzzmR/OXmz826eWxKnzhvmL4UYnItlY2z6lTJHy +hpebM5+VVrLx85c3zZG9nnA0qOT8Th4bWRsvBHQ1e8Is74br16tsLDQbGGVw +PUGM1j+nfZON+qwllLkYTzATlJdraGYj1/xkl4q+J9T3lro8+4+No3+e024W +eICpyK21wf1sfDKY3liX6AH92x/OUgbYuG37UGdnqAdM3xmNO/SWjZOUYo1V +1h6wtngd98sIef5CylGaoAfUvzQMThpj45o1PYLRMxwwlbAGrW9sXKob9318 +mANusUFPA2fYuDyhK/lzAwemm8/kSc+zcfcxxY3BlRyI+nnO+c5PNg6GcVaJ +5nJg5YZyjYMLbBywSpW/doYDBd53Zv7+ZeOD9CCbI4Ec+B/2PVjZ + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06125527588008821}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, + 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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.061043}}, + "Frame" -> {{False, 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.061043}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.061043}}, + "Frame" -> {{False, 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.06125527588008821}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994013869687636*^9}, + CellLabel-> + "Out[295]=",ExpressionUUID->"7af24e38-b66f-485b-ab04-38435ed782cf"] +}, Open ]], Cell[CellGroupData[{ @@ -7598,12 +8540,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[296]:=",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.64368500572242`"], "Output", + CellChangeTimes->{3.9913229040054893`*^9, 3.994013869720063*^9}, + CellLabel-> + "Out[296]=",ExpressionUUID->"4f0e5a43-ce76-4365-908a-ba43eedcc6c6"] }, Open ]], Cell[CellGroupData[{ @@ -7659,158 +8603,160 @@ 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[297]:=",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.2192044618644736`*^-272\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.0985385435870039`*^-261\\\", \ \\\"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, 297, 21, 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913229042538757`*^9, 3.994013869820698*^9}, CellLabel-> "During evaluation of \ -In[89]:=",ExpressionUUID->"1fdfd709-87fa-2d47-912a-2bb16540a45a"], +In[297]:=",ExpressionUUID->"eaaf9138-29c3-415b-b21b-b464e12e4477"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.752435063894365`*^-282\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.374981933914687`*^-271\\\", \ \\\"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, 297, 22, 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913229042538757`*^9, 3.994013869828435*^9}, CellLabel-> "During evaluation of \ -In[89]:=",ExpressionUUID->"02f7e2ed-ac22-9d4d-8071-ab116260ee28"], +In[297]:=",ExpressionUUID->"20fc79c8-701d-4394-ae5a-e77891c1e8ce"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.1345846892211677`*^-281\\\", \ +\\\"78176755153939869305210274200729021751146846355456000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 297, 23, 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913229042538757`*^9, 3.9940138698373957`*^9}, + CellLabel-> + "During evaluation of \ +In[297]:=",ExpressionUUID->"89dbbed4-2051-4545-a235-eda37f3e2902"], 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, 297, 24, 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913229042538757`*^9, 3.994013869846465*^9}, CellLabel-> "During evaluation of \ -In[89]:=",ExpressionUUID->"7db76209-a5a6-1947-80c1-912d214b981c"], +In[297]:=",ExpressionUUID->"d29ff539-1678-4c58-89e1-388053aa22d4"], 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:eJwV1nk8VO8XB3AlUqEiWbLNzJ2hbKGUmM6xFFKWSLRQSVIGIcmSfU2Ikoii +sY65WcqWENrLVyvRqqIUkb2S3/39dV/v1/3nec55ns95aAe8t7vNFRAQmDNH +QOD/34l3D9qI09yN73H9gshX+htf5MqcNOqKBLdOSZPEKmlAqf8OyHSlgXZ6 +f4F9lQoE2JR2CnblQy10iutWrYOlQ9Jp052V4GeQSZtfZQbvG6y8xzpbgD/v +dUF05U7YTAy8Hel8BrlS3p5ny91hunPd+eHOXigQkTz6tPgEtJoUcZ/mj8IF ++3yJqqh4kH9f13dAfQZuBzJ2nBBNg2WeLqXzTQRxweod9eWnL0Ca9uabVjtE +cPPtr/tSNubA68zVzSNLxBAULmX70/LgNDfsv7myS3H4w9KAI8VXQfrcp4T0 +HEkMtzq7ZvB7AcTZW2x8NiGF2gdDh/WfFYGffp7Lg0gZdKdL0Dj5JbDliviY +ZZIMmkqFz6ssLgH6/JD49vMyuPS1l+ooWQIdLxwqnhfLYIPLI60jN0tA00dU +8F27DJb/ytJUe1ECXwtPFP6Sk8WEmX3hU/NKYc8yq8EVVbL40uaE8S3XUjD9 ++TvI65MclthhcZcUD06an1t1+4cckpc6Yhev4AGZp9EtOSGHpVMyVcbKPJCx +36dfJ7ICN4jdHc1ZxYMftXcmBTVX4ILlHHFV4EF6ZKr/xcAVeEE90jfRnQe9 +UiyvNjF5zI7v4MTe4IG0d5OCtLQ8ar8xO7u5ngdb7zs+8VCWR9YM78/cJh5U +B51WX6wrj65+mVyf+zxIfD884OQoj1uqmo2VenigU3LT/We+PO73/pX6YJYH +EYa2++XWK2CDehfXdnMZmDvn/lpnrIDWShXHJ7eUgXj496gdWxVwfLP7h0zr +MrjUGlOYuk8BJ1ppUe2OZVC7pf67cIIC1o0u+jvvaBkMOzICRl8roNoG44rc +5DJwPj6e+DhYEWvoI4tjnpUB84Kx/ECMIlpkfhbLfVVG7T+FPz+V8pu4gsru +Mgj6u7LDmKuInFlafntvGZyPcpaqe6yIkiubnj39VQaPz967XKCghJn5giwh +CT5sIC9eP9WkhH9rH/gob+ODaWf7zNB9JTQXGdD1seGDlcA8M5dnSrj47GJW +gx0fXLd7vYYvSuhzcGmm+S4+bA6mhYULKaMoSdbouvPBR2niqpGaMpr/+yJm +F86HNvfLg60Byjg4/Ti65hofLP7qS4QEK+NsZ1b8mUo+tKe+0FsTroxCAWot +Ljf48LpuQTg3QRnNfPM6p+r5MLTIXyLmkjKePOWaPnOHDzLl5us2tyhjX9mn +JNsePnhOjYTfF6OhpfPuAqYgCRuOHVreJ0HDXZmbLt4QIkFkoJsnKENDm6BH +hJEICQU9ra820mk4cSR0nqUYCe8az6vf0KNhs3XQ6EppEqxj9LvyXGioWr7h +z7JVJCj+43OaDtLwjsvtPGd1En4E0AXfetDwe3NR/1VNEuIPL9KU8aehvWWx +HU2XhGbLt1HJ8TRcPWx0s9+ABB2JCK3gChoKPvcyvrqVBIHT422Z1TRcSvoq +FVmR0C54ZFf1TRrq++VwC21IODq+PWbkDg3zXBpKMu1J4HYRPe7dNNzsUnTN +fA8Jyy/fj7UXpONUToH26yMkfJZmy/uK0LFYdNHrC54kVKZWVKSI0VHWb7fO +di9qP5FZbx5K01Fkhc1M3TFqvW6eOkbqdDTVbBV2CCRhWm3JO40ddEyuaQ1p +jiZhIkcuQncXHeWEJip0Y0kYW8wk9F3oGHTV4VF+HAlDo/pHTD3oOBhtyfdP +JKH3puvErlA6dmg8xf4UEh5a1ojHF9DxvVICiGSRcO/W7YozpXQc69JYsCGb +hDatx/bp1+jovH1+i/slEholP2bl1tExrG/dvJpcav09C1VuPKHj3fXd74ir +JGQddYbecTouPLI2bSOPhAtvD/f2/6Zj7UbxIq0yEs5Z+8UMztJxzp/pank+ +Ccm68Y+mFjCQk6z4aIAkIfJPxc7FigyUcXXsdqgkIYzT8HsZg4FmM6feqlSR +EPL+bo6cKgOJvRMfxygHtPZ8YuowsOCa0K/IG1Q/Tgv5GG5m4KSW9CbvWhIO +zyyWNLZkoF6fpodyHQmHvOWqzWwYuClP5PwTyvvstP5u38XAly8t5svfJMF+ +hVO8hxcDE+YzOQm3SLA946rm7cdAkVUefXKNJFjNctr9Axm4e6mkVzFl80+R +y8IjGejSM8WraSLBkFd2JSODgets3kwX3iahR5l3eVM2AwPrznstbSEhKKMk +d+wyA5NspIMDKddEFF7aXsLAncKmzoatJDhMcrPnkAzkSzrpXaQ85nk1q7yS +gUfVFpb8oqzjeCVTvIGBa/Pk9me3kfD0Se6FW80MVAr7WjRA2cckJ8PzDgNP +HdJK0rtDAqmZde5hOwMlzixa3UZ5Gzcz/eRzBio8lxwRukvdD9kLaapdDIzW +Ct5uSnml0LnU2I8MbD5kN11N+X5QWsraPqqebQb4nfKh4dTkzwMMrADfVfL3 +SBA6lHIm/ScD//2tqrWgzO05k2Q8xsBn5Y3f/Sib2CadHpli4PNLNm1ZlHvv +JiZemaHqnaJq0kg5wjAhwXougfVfhDzeUVaujIv/J0ygcFyx3h/KTSqxcfxF +BMZ87Shbdp8E55zo2D1LCPyzEB+vovxXIipmkRSB34NqzrMpZ8dHRNfLEjjX +ZnrBNsob/oVFeSgSKK5xf6UT5S6/U5EyDAJDoX98P+UT30Ii7qkQKApy3u6U +l7sEhweoExjCYWZ4UL7x4mQYU5tAw4wnRw9Ttt8SeOrFWgKXiHcNu1IebQoI +jdpAYF3lQtYeymlrj4foAIHFA2qitpS1eX7BH00IvMadyzWm3KHsG5RqTmD2 +Toeh1ZS9MnxOwjYCn8/5+X0FZTFR78AhWwJ1V57PEaRcFsE5keNA4OnupfO+ +UvXYMnk0YOtuAm1KNJUfUP7meeT4HxcCHa7d+FVIOb73sH/pQQKDk45RGyNB +xdHdz8mDQPVDGo2OlO8+cfMV8SLQtP96rTrleXUHfA6dIDCR4djzkOrvVc39 +3lIhBI48EhM6T9mY6+LVFk5g2njLwG7KYSl7POmJBHraug2+p86TotDuo0+T +CVyYPLwoh3JDkNOR8HQCf7vUfHOg/NvN4fC7SwSu8dfva6bO58Uee/czeQSy +nmcIH6O83tbukGEhgWoC/t8UKAcY2hzMukbg7sTJaQ513kcktuxzaCHQqNNk +bz91n7o86R1H7hEoIRZz1p9y893fEPaYQH+pnpmZZhJSg3hKxa8I3GklGiVE +eXWv6PvpAQIFV2Xu7afus4zhFyvxYQJtx1J8HCgLZNxqpI8TOBpp0Ha7gYT/ +LLxyLWcJfEpbqHOGygOviv/25kgyMbtPa/MklScOi4qfVMgwcU7R0VBzyhvd +wtl3FZh4vJ74d76G6p+stsJPFSY2iId/YFZT/QtPe4OGTEwVkDGXpfJqwHrH +7s8Hmdi652GuNZWHz0o0Hk15MHFun++YG5WX9YLCBmLeTPydWFQQWEpCQk21 +nN5JJio/sFJKLyZBVUmmO+4ME80fD6Rc4pLgPtTtqFbNRNdcwaNzqXy2Mq+6 +DzeZyGgrn/eeynO9/NPr7ZuZ2M/PEK29SIKwg6FM6EMmXrv1+KjLBRIKb+V0 +tr9j4uBTo4SoNGo+Je1z8J3PwqKh1dvo8dT+B9Tpq0VZ+H1DGPctNV8mzaYH +B5ew0MbSe/h8DAkLBdNiPORYKFmqeWQmkqr3ydbr+zRYqKstPac4lIRQN5ak +tR0Lt6tZ5Xj6Uvdr44//1C6zMOWhTWm9EwlXsmuzv11lYf775MTljlT+TEe7 +FxWz8FPvnHBvBypPryvM0itZSOutJGXsSHBdZa0pd4f6n5K43pyaz+XLK5NE +vrOwZiD5m/xGEix+nrD4oqeCzZuctbhKJMhrK8aKGKpgY4vx55MK1Dz0bWtR +M1JB2Q+H7beuoObRxBJDX0sVrNw6x7N/OfW+mCnRnHVRwVRS8/IE9d7wFX0j +KZuggma1JtuC/vAhayW+29qjglGPQi8pv+DDD1cRv+thqhjYvO3n+hDq/ZNr +eqspWhWTmnNtHU7y4efr8PmPElRxpCXji08AH35ZT2d/TFdFp8wlxTk+fJg0 +GGgTL1ZFB+etjS8P8mHussfLPTpU8W3BI4/bW/kg25ZSr0BbiaJXoi6mylHv +N0J6blzLStxeVT3HmSwDiSes5PKfq/CHqO/Xhw95IB9/zUZPTx0bz3btHaos +hUw1/SWS7ho4smn9tcb0EngoZ7R29KwmspqkYpsPFcMG+ZZUrVda+O+Eiwm5 +uAjEBfP990euxrwGY9GKtgJQjFAydGJpY1dPI7FiJxcWMPdUb7+njWYpt/o+ +DuaDJlv22om9OrgrWCCEm5sHvu8kWrcI6KLP/Y9myeuvwM/RpB0Wmbq4pjxR +vvxzDphp3c2y0FiDji+fdfUHZkPjqMGfyfY1OP7SPaL/VyZ4qet0P3VbizqH +O3z3XM8A9tDBF04L9LAwyNNA1v0cbCJktonl6+HSQWFrkwNpoBqeGNiybh0S +5XsP/41LhVVu+k3M7nUYPXW9r9v+DLg1Ho6+fmw9llpm2TUqJkLTlRcHR6T0 +cXnDq0/7h2JhrHh2UqtGH38SxadclkeDK5O3IGvbBvTbNNcrlIyAkVXpepXD +lHe5PhsoPgW13D8fx+MNsHdN0Z3CuiDYZcpAA0VDtBX2Mh8yPQErOHF1ms2G +mNbP+cQa9gOphZ4V23ay8UqxgbqV9jHgmoQGDTux0aJOfvlj5jHQCU02Sd/D +xtKxB242csfAarj8Zdd+Np6VD1f3FDwGsa/Gp1092Wj4nLV0+KUPTOWHGQdF +sDFkgZWwSogPdBukPy/ksXHrfkOT8CxvOHyce8mCZKNajn/XohhvmCBvuP0o +Z2Owmt/Fq97eIEHvmtSuZqNVYl/ipKk3WIooyN9qZuPuK3VXVg97QcOLwoPP +X7Lx6/79xp/MvWCLeK1GQBcbK3N0jbTWeEGX2YMJmR42TjMy5OOUvGCs/nu8 +8wc26r6w3bFrggMaeav53wbYqPm2zDSZy4GGbqOApEE2CsUJ565P5cCWZXag +NczGD06ny4aCOXAo7vhT/3E2vt/t/TLUjgNjzbFZ0lNsHI/7+8UBOBD5+4Jr +/W82Rr5ekmmgxoEla0rU986wcfZDW5+aNAdyOfXjs7NsnOrQfqIiyIH/AbFD +Wkw= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -7824,117 +8770,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:eJwV1nk8VO8XB3AlUqEiWbLNzJ2hbKGUmM6xFFKWSLRQSVIGIcmSfU2Ikoii +sY65WcqWENrLVyvRqqIUkb2S3/39dV/v1/3nec55ns95aAe8t7vNFRAQmDNH +QOD/34l3D9qI09yN73H9gshX+htf5MqcNOqKBLdOSZPEKmlAqf8OyHSlgXZ6 +f4F9lQoE2JR2CnblQy10iutWrYOlQ9Jp052V4GeQSZtfZQbvG6y8xzpbgD/v +dUF05U7YTAy8Hel8BrlS3p5ny91hunPd+eHOXigQkTz6tPgEtJoUcZ/mj8IF ++3yJqqh4kH9f13dAfQZuBzJ2nBBNg2WeLqXzTQRxweod9eWnL0Ca9uabVjtE +cPPtr/tSNubA68zVzSNLxBAULmX70/LgNDfsv7myS3H4w9KAI8VXQfrcp4T0 +HEkMtzq7ZvB7AcTZW2x8NiGF2gdDh/WfFYGffp7Lg0gZdKdL0Dj5JbDliviY +ZZIMmkqFz6ssLgH6/JD49vMyuPS1l+ooWQIdLxwqnhfLYIPLI60jN0tA00dU +8F27DJb/ytJUe1ECXwtPFP6Sk8WEmX3hU/NKYc8yq8EVVbL40uaE8S3XUjD9 ++TvI65MclthhcZcUD06an1t1+4cckpc6Yhev4AGZp9EtOSGHpVMyVcbKPJCx +36dfJ7ICN4jdHc1ZxYMftXcmBTVX4ILlHHFV4EF6ZKr/xcAVeEE90jfRnQe9 +UiyvNjF5zI7v4MTe4IG0d5OCtLQ8ar8xO7u5ngdb7zs+8VCWR9YM78/cJh5U +B51WX6wrj65+mVyf+zxIfD884OQoj1uqmo2VenigU3LT/We+PO73/pX6YJYH +EYa2++XWK2CDehfXdnMZmDvn/lpnrIDWShXHJ7eUgXj496gdWxVwfLP7h0zr +MrjUGlOYuk8BJ1ppUe2OZVC7pf67cIIC1o0u+jvvaBkMOzICRl8roNoG44rc +5DJwPj6e+DhYEWvoI4tjnpUB84Kx/ECMIlpkfhbLfVVG7T+FPz+V8pu4gsru +Mgj6u7LDmKuInFlafntvGZyPcpaqe6yIkiubnj39VQaPz967XKCghJn5giwh +CT5sIC9eP9WkhH9rH/gob+ODaWf7zNB9JTQXGdD1seGDlcA8M5dnSrj47GJW +gx0fXLd7vYYvSuhzcGmm+S4+bA6mhYULKaMoSdbouvPBR2niqpGaMpr/+yJm +F86HNvfLg60Byjg4/Ti65hofLP7qS4QEK+NsZ1b8mUo+tKe+0FsTroxCAWot +Ljf48LpuQTg3QRnNfPM6p+r5MLTIXyLmkjKePOWaPnOHDzLl5us2tyhjX9mn +JNsePnhOjYTfF6OhpfPuAqYgCRuOHVreJ0HDXZmbLt4QIkFkoJsnKENDm6BH +hJEICQU9ra820mk4cSR0nqUYCe8az6vf0KNhs3XQ6EppEqxj9LvyXGioWr7h +z7JVJCj+43OaDtLwjsvtPGd1En4E0AXfetDwe3NR/1VNEuIPL9KU8aehvWWx +HU2XhGbLt1HJ8TRcPWx0s9+ABB2JCK3gChoKPvcyvrqVBIHT422Z1TRcSvoq +FVmR0C54ZFf1TRrq++VwC21IODq+PWbkDg3zXBpKMu1J4HYRPe7dNNzsUnTN +fA8Jyy/fj7UXpONUToH26yMkfJZmy/uK0LFYdNHrC54kVKZWVKSI0VHWb7fO +di9qP5FZbx5K01Fkhc1M3TFqvW6eOkbqdDTVbBV2CCRhWm3JO40ddEyuaQ1p +jiZhIkcuQncXHeWEJip0Y0kYW8wk9F3oGHTV4VF+HAlDo/pHTD3oOBhtyfdP +JKH3puvErlA6dmg8xf4UEh5a1ojHF9DxvVICiGSRcO/W7YozpXQc69JYsCGb +hDatx/bp1+jovH1+i/slEholP2bl1tExrG/dvJpcav09C1VuPKHj3fXd74ir +JGQddYbecTouPLI2bSOPhAtvD/f2/6Zj7UbxIq0yEs5Z+8UMztJxzp/pank+ +Ccm68Y+mFjCQk6z4aIAkIfJPxc7FigyUcXXsdqgkIYzT8HsZg4FmM6feqlSR +EPL+bo6cKgOJvRMfxygHtPZ8YuowsOCa0K/IG1Q/Tgv5GG5m4KSW9CbvWhIO +zyyWNLZkoF6fpodyHQmHvOWqzWwYuClP5PwTyvvstP5u38XAly8t5svfJMF+ +hVO8hxcDE+YzOQm3SLA946rm7cdAkVUefXKNJFjNctr9Axm4e6mkVzFl80+R +y8IjGejSM8WraSLBkFd2JSODgets3kwX3iahR5l3eVM2AwPrznstbSEhKKMk +d+wyA5NspIMDKddEFF7aXsLAncKmzoatJDhMcrPnkAzkSzrpXaQ85nk1q7yS +gUfVFpb8oqzjeCVTvIGBa/Pk9me3kfD0Se6FW80MVAr7WjRA2cckJ8PzDgNP +HdJK0rtDAqmZde5hOwMlzixa3UZ5Gzcz/eRzBio8lxwRukvdD9kLaapdDIzW +Ct5uSnml0LnU2I8MbD5kN11N+X5QWsraPqqebQb4nfKh4dTkzwMMrADfVfL3 +SBA6lHIm/ScD//2tqrWgzO05k2Q8xsBn5Y3f/Sib2CadHpli4PNLNm1ZlHvv +JiZemaHqnaJq0kg5wjAhwXougfVfhDzeUVaujIv/J0ygcFyx3h/KTSqxcfxF +BMZ87Shbdp8E55zo2D1LCPyzEB+vovxXIipmkRSB34NqzrMpZ8dHRNfLEjjX +ZnrBNsob/oVFeSgSKK5xf6UT5S6/U5EyDAJDoX98P+UT30Ii7qkQKApy3u6U +l7sEhweoExjCYWZ4UL7x4mQYU5tAw4wnRw9Ttt8SeOrFWgKXiHcNu1IebQoI +jdpAYF3lQtYeymlrj4foAIHFA2qitpS1eX7BH00IvMadyzWm3KHsG5RqTmD2 +Toeh1ZS9MnxOwjYCn8/5+X0FZTFR78AhWwJ1V57PEaRcFsE5keNA4OnupfO+ +UvXYMnk0YOtuAm1KNJUfUP7meeT4HxcCHa7d+FVIOb73sH/pQQKDk45RGyNB +xdHdz8mDQPVDGo2OlO8+cfMV8SLQtP96rTrleXUHfA6dIDCR4djzkOrvVc39 +3lIhBI48EhM6T9mY6+LVFk5g2njLwG7KYSl7POmJBHraug2+p86TotDuo0+T +CVyYPLwoh3JDkNOR8HQCf7vUfHOg/NvN4fC7SwSu8dfva6bO58Uee/czeQSy +nmcIH6O83tbukGEhgWoC/t8UKAcY2hzMukbg7sTJaQ513kcktuxzaCHQqNNk +bz91n7o86R1H7hEoIRZz1p9y893fEPaYQH+pnpmZZhJSg3hKxa8I3GklGiVE +eXWv6PvpAQIFV2Xu7afus4zhFyvxYQJtx1J8HCgLZNxqpI8TOBpp0Ha7gYT/ +LLxyLWcJfEpbqHOGygOviv/25kgyMbtPa/MklScOi4qfVMgwcU7R0VBzyhvd +wtl3FZh4vJ74d76G6p+stsJPFSY2iId/YFZT/QtPe4OGTEwVkDGXpfJqwHrH +7s8Hmdi652GuNZWHz0o0Hk15MHFun++YG5WX9YLCBmLeTPydWFQQWEpCQk21 +nN5JJio/sFJKLyZBVUmmO+4ME80fD6Rc4pLgPtTtqFbNRNdcwaNzqXy2Mq+6 +DzeZyGgrn/eeynO9/NPr7ZuZ2M/PEK29SIKwg6FM6EMmXrv1+KjLBRIKb+V0 +tr9j4uBTo4SoNGo+Je1z8J3PwqKh1dvo8dT+B9Tpq0VZ+H1DGPctNV8mzaYH +B5ew0MbSe/h8DAkLBdNiPORYKFmqeWQmkqr3ydbr+zRYqKstPac4lIRQN5ak +tR0Lt6tZ5Xj6Uvdr44//1C6zMOWhTWm9EwlXsmuzv11lYf775MTljlT+TEe7 +FxWz8FPvnHBvBypPryvM0itZSOutJGXsSHBdZa0pd4f6n5K43pyaz+XLK5NE +vrOwZiD5m/xGEix+nrD4oqeCzZuctbhKJMhrK8aKGKpgY4vx55MK1Dz0bWtR +M1JB2Q+H7beuoObRxBJDX0sVrNw6x7N/OfW+mCnRnHVRwVRS8/IE9d7wFX0j +KZuggma1JtuC/vAhayW+29qjglGPQi8pv+DDD1cRv+thqhjYvO3n+hDq/ZNr +eqspWhWTmnNtHU7y4efr8PmPElRxpCXji08AH35ZT2d/TFdFp8wlxTk+fJg0 +GGgTL1ZFB+etjS8P8mHussfLPTpU8W3BI4/bW/kg25ZSr0BbiaJXoi6mylHv +N0J6blzLStxeVT3HmSwDiSes5PKfq/CHqO/Xhw95IB9/zUZPTx0bz3btHaos +hUw1/SWS7ho4smn9tcb0EngoZ7R29KwmspqkYpsPFcMG+ZZUrVda+O+Eiwm5 +uAjEBfP990euxrwGY9GKtgJQjFAydGJpY1dPI7FiJxcWMPdUb7+njWYpt/o+ +DuaDJlv22om9OrgrWCCEm5sHvu8kWrcI6KLP/Y9myeuvwM/RpB0Wmbq4pjxR +vvxzDphp3c2y0FiDji+fdfUHZkPjqMGfyfY1OP7SPaL/VyZ4qet0P3VbizqH +O3z3XM8A9tDBF04L9LAwyNNA1v0cbCJktonl6+HSQWFrkwNpoBqeGNiybh0S +5XsP/41LhVVu+k3M7nUYPXW9r9v+DLg1Ho6+fmw9llpm2TUqJkLTlRcHR6T0 +cXnDq0/7h2JhrHh2UqtGH38SxadclkeDK5O3IGvbBvTbNNcrlIyAkVXpepXD +lHe5PhsoPgW13D8fx+MNsHdN0Z3CuiDYZcpAA0VDtBX2Mh8yPQErOHF1ms2G +mNbP+cQa9gOphZ4V23ay8UqxgbqV9jHgmoQGDTux0aJOfvlj5jHQCU02Sd/D +xtKxB242csfAarj8Zdd+Np6VD1f3FDwGsa/Gp1092Wj4nLV0+KUPTOWHGQdF +sDFkgZWwSogPdBukPy/ksXHrfkOT8CxvOHyce8mCZKNajn/XohhvmCBvuP0o +Z2Owmt/Fq97eIEHvmtSuZqNVYl/ipKk3WIooyN9qZuPuK3VXVg97QcOLwoPP +X7Lx6/79xp/MvWCLeK1GQBcbK3N0jbTWeEGX2YMJmR42TjMy5OOUvGCs/nu8 +8wc26r6w3bFrggMaeav53wbYqPm2zDSZy4GGbqOApEE2CsUJ565P5cCWZXag +NczGD06ny4aCOXAo7vhT/3E2vt/t/TLUjgNjzbFZ0lNsHI/7+8UBOBD5+4Jr +/W82Rr5ekmmgxoEla0rU986wcfZDW5+aNAdyOfXjs7NsnOrQfqIiyIH/AbFD +Wkw= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "PlotRange" -> {{0, 30}, {0., 0.06012277562941912}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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" -> @@ -7946,19 +8890,19 @@ U0FU/w== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "PlotRange" -> {{0, 30}, {0., 0.06012277562941912}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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|>, @@ -7972,116 +8916,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:eJwV1nk8VO8XB3AlUqEiWbLNzJ2hbKGUmM6xFFKWSLRQSVIGIcmSfU2Ikoii +sY65WcqWENrLVyvRqqIUkb2S3/39dV/v1/3nec55ns95aAe8t7vNFRAQmDNH +QOD/34l3D9qI09yN73H9gshX+htf5MqcNOqKBLdOSZPEKmlAqf8OyHSlgXZ6 +f4F9lQoE2JR2CnblQy10iutWrYOlQ9Jp052V4GeQSZtfZQbvG6y8xzpbgD/v +dUF05U7YTAy8Hel8BrlS3p5ny91hunPd+eHOXigQkTz6tPgEtJoUcZ/mj8IF ++3yJqqh4kH9f13dAfQZuBzJ2nBBNg2WeLqXzTQRxweod9eWnL0Ca9uabVjtE +cPPtr/tSNubA68zVzSNLxBAULmX70/LgNDfsv7myS3H4w9KAI8VXQfrcp4T0 +HEkMtzq7ZvB7AcTZW2x8NiGF2gdDh/WfFYGffp7Lg0gZdKdL0Dj5JbDliviY +ZZIMmkqFz6ssLgH6/JD49vMyuPS1l+ooWQIdLxwqnhfLYIPLI60jN0tA00dU +8F27DJb/ytJUe1ECXwtPFP6Sk8WEmX3hU/NKYc8yq8EVVbL40uaE8S3XUjD9 ++TvI65MclthhcZcUD06an1t1+4cckpc6Yhev4AGZp9EtOSGHpVMyVcbKPJCx +36dfJ7ICN4jdHc1ZxYMftXcmBTVX4ILlHHFV4EF6ZKr/xcAVeEE90jfRnQe9 +UiyvNjF5zI7v4MTe4IG0d5OCtLQ8ar8xO7u5ngdb7zs+8VCWR9YM78/cJh5U +B51WX6wrj65+mVyf+zxIfD884OQoj1uqmo2VenigU3LT/We+PO73/pX6YJYH +EYa2++XWK2CDehfXdnMZmDvn/lpnrIDWShXHJ7eUgXj496gdWxVwfLP7h0zr +MrjUGlOYuk8BJ1ppUe2OZVC7pf67cIIC1o0u+jvvaBkMOzICRl8roNoG44rc +5DJwPj6e+DhYEWvoI4tjnpUB84Kx/ECMIlpkfhbLfVVG7T+FPz+V8pu4gsru +Mgj6u7LDmKuInFlafntvGZyPcpaqe6yIkiubnj39VQaPz967XKCghJn5giwh +CT5sIC9eP9WkhH9rH/gob+ODaWf7zNB9JTQXGdD1seGDlcA8M5dnSrj47GJW +gx0fXLd7vYYvSuhzcGmm+S4+bA6mhYULKaMoSdbouvPBR2niqpGaMpr/+yJm +F86HNvfLg60Byjg4/Ti65hofLP7qS4QEK+NsZ1b8mUo+tKe+0FsTroxCAWot +Ljf48LpuQTg3QRnNfPM6p+r5MLTIXyLmkjKePOWaPnOHDzLl5us2tyhjX9mn +JNsePnhOjYTfF6OhpfPuAqYgCRuOHVreJ0HDXZmbLt4QIkFkoJsnKENDm6BH +hJEICQU9ra820mk4cSR0nqUYCe8az6vf0KNhs3XQ6EppEqxj9LvyXGioWr7h +z7JVJCj+43OaDtLwjsvtPGd1En4E0AXfetDwe3NR/1VNEuIPL9KU8aehvWWx +HU2XhGbLt1HJ8TRcPWx0s9+ABB2JCK3gChoKPvcyvrqVBIHT422Z1TRcSvoq +FVmR0C54ZFf1TRrq++VwC21IODq+PWbkDg3zXBpKMu1J4HYRPe7dNNzsUnTN +fA8Jyy/fj7UXpONUToH26yMkfJZmy/uK0LFYdNHrC54kVKZWVKSI0VHWb7fO +di9qP5FZbx5K01Fkhc1M3TFqvW6eOkbqdDTVbBV2CCRhWm3JO40ddEyuaQ1p +jiZhIkcuQncXHeWEJip0Y0kYW8wk9F3oGHTV4VF+HAlDo/pHTD3oOBhtyfdP +JKH3puvErlA6dmg8xf4UEh5a1ojHF9DxvVICiGSRcO/W7YozpXQc69JYsCGb +hDatx/bp1+jovH1+i/slEholP2bl1tExrG/dvJpcav09C1VuPKHj3fXd74ir +JGQddYbecTouPLI2bSOPhAtvD/f2/6Zj7UbxIq0yEs5Z+8UMztJxzp/pank+ +Ccm68Y+mFjCQk6z4aIAkIfJPxc7FigyUcXXsdqgkIYzT8HsZg4FmM6feqlSR +EPL+bo6cKgOJvRMfxygHtPZ8YuowsOCa0K/IG1Q/Tgv5GG5m4KSW9CbvWhIO +zyyWNLZkoF6fpodyHQmHvOWqzWwYuClP5PwTyvvstP5u38XAly8t5svfJMF+ +hVO8hxcDE+YzOQm3SLA946rm7cdAkVUefXKNJFjNctr9Axm4e6mkVzFl80+R +y8IjGejSM8WraSLBkFd2JSODgets3kwX3iahR5l3eVM2AwPrznstbSEhKKMk +d+wyA5NspIMDKddEFF7aXsLAncKmzoatJDhMcrPnkAzkSzrpXaQ85nk1q7yS +gUfVFpb8oqzjeCVTvIGBa/Pk9me3kfD0Se6FW80MVAr7WjRA2cckJ8PzDgNP +HdJK0rtDAqmZde5hOwMlzixa3UZ5Gzcz/eRzBio8lxwRukvdD9kLaapdDIzW +Ct5uSnml0LnU2I8MbD5kN11N+X5QWsraPqqebQb4nfKh4dTkzwMMrADfVfL3 +SBA6lHIm/ScD//2tqrWgzO05k2Q8xsBn5Y3f/Sib2CadHpli4PNLNm1ZlHvv +JiZemaHqnaJq0kg5wjAhwXougfVfhDzeUVaujIv/J0ygcFyx3h/KTSqxcfxF +BMZ87Shbdp8E55zo2D1LCPyzEB+vovxXIipmkRSB34NqzrMpZ8dHRNfLEjjX +ZnrBNsob/oVFeSgSKK5xf6UT5S6/U5EyDAJDoX98P+UT30Ii7qkQKApy3u6U +l7sEhweoExjCYWZ4UL7x4mQYU5tAw4wnRw9Ttt8SeOrFWgKXiHcNu1IebQoI +jdpAYF3lQtYeymlrj4foAIHFA2qitpS1eX7BH00IvMadyzWm3KHsG5RqTmD2 +Toeh1ZS9MnxOwjYCn8/5+X0FZTFR78AhWwJ1V57PEaRcFsE5keNA4OnupfO+ +UvXYMnk0YOtuAm1KNJUfUP7meeT4HxcCHa7d+FVIOb73sH/pQQKDk45RGyNB +xdHdz8mDQPVDGo2OlO8+cfMV8SLQtP96rTrleXUHfA6dIDCR4djzkOrvVc39 +3lIhBI48EhM6T9mY6+LVFk5g2njLwG7KYSl7POmJBHraug2+p86TotDuo0+T +CVyYPLwoh3JDkNOR8HQCf7vUfHOg/NvN4fC7SwSu8dfva6bO58Uee/czeQSy +nmcIH6O83tbukGEhgWoC/t8UKAcY2hzMukbg7sTJaQ513kcktuxzaCHQqNNk +bz91n7o86R1H7hEoIRZz1p9y893fEPaYQH+pnpmZZhJSg3hKxa8I3GklGiVE +eXWv6PvpAQIFV2Xu7afus4zhFyvxYQJtx1J8HCgLZNxqpI8TOBpp0Ha7gYT/ +LLxyLWcJfEpbqHOGygOviv/25kgyMbtPa/MklScOi4qfVMgwcU7R0VBzyhvd +wtl3FZh4vJ74d76G6p+stsJPFSY2iId/YFZT/QtPe4OGTEwVkDGXpfJqwHrH +7s8Hmdi652GuNZWHz0o0Hk15MHFun++YG5WX9YLCBmLeTPydWFQQWEpCQk21 +nN5JJio/sFJKLyZBVUmmO+4ME80fD6Rc4pLgPtTtqFbNRNdcwaNzqXy2Mq+6 +DzeZyGgrn/eeynO9/NPr7ZuZ2M/PEK29SIKwg6FM6EMmXrv1+KjLBRIKb+V0 +tr9j4uBTo4SoNGo+Je1z8J3PwqKh1dvo8dT+B9Tpq0VZ+H1DGPctNV8mzaYH +B5ew0MbSe/h8DAkLBdNiPORYKFmqeWQmkqr3ydbr+zRYqKstPac4lIRQN5ak +tR0Lt6tZ5Xj6Uvdr44//1C6zMOWhTWm9EwlXsmuzv11lYf775MTljlT+TEe7 +FxWz8FPvnHBvBypPryvM0itZSOutJGXsSHBdZa0pd4f6n5K43pyaz+XLK5NE +vrOwZiD5m/xGEix+nrD4oqeCzZuctbhKJMhrK8aKGKpgY4vx55MK1Dz0bWtR +M1JB2Q+H7beuoObRxBJDX0sVrNw6x7N/OfW+mCnRnHVRwVRS8/IE9d7wFX0j +KZuggma1JtuC/vAhayW+29qjglGPQi8pv+DDD1cRv+thqhjYvO3n+hDq/ZNr +eqspWhWTmnNtHU7y4efr8PmPElRxpCXji08AH35ZT2d/TFdFp8wlxTk+fJg0 +GGgTL1ZFB+etjS8P8mHussfLPTpU8W3BI4/bW/kg25ZSr0BbiaJXoi6mylHv +N0J6blzLStxeVT3HmSwDiSes5PKfq/CHqO/Xhw95IB9/zUZPTx0bz3btHaos +hUw1/SWS7ho4smn9tcb0EngoZ7R29KwmspqkYpsPFcMG+ZZUrVda+O+Eiwm5 +uAjEBfP990euxrwGY9GKtgJQjFAydGJpY1dPI7FiJxcWMPdUb7+njWYpt/o+ +DuaDJlv22om9OrgrWCCEm5sHvu8kWrcI6KLP/Y9myeuvwM/RpB0Wmbq4pjxR +vvxzDphp3c2y0FiDji+fdfUHZkPjqMGfyfY1OP7SPaL/VyZ4qet0P3VbizqH +O3z3XM8A9tDBF04L9LAwyNNA1v0cbCJktonl6+HSQWFrkwNpoBqeGNiybh0S +5XsP/41LhVVu+k3M7nUYPXW9r9v+DLg1Ho6+fmw9llpm2TUqJkLTlRcHR6T0 +cXnDq0/7h2JhrHh2UqtGH38SxadclkeDK5O3IGvbBvTbNNcrlIyAkVXpepXD +lHe5PhsoPgW13D8fx+MNsHdN0Z3CuiDYZcpAA0VDtBX2Mh8yPQErOHF1ms2G +mNbP+cQa9gOphZ4V23ay8UqxgbqV9jHgmoQGDTux0aJOfvlj5jHQCU02Sd/D +xtKxB242csfAarj8Zdd+Np6VD1f3FDwGsa/Gp1092Wj4nLV0+KUPTOWHGQdF +sDFkgZWwSogPdBukPy/ksXHrfkOT8CxvOHyce8mCZKNajn/XohhvmCBvuP0o +Z2Owmt/Fq97eIEHvmtSuZqNVYl/ipKk3WIooyN9qZuPuK3VXVg97QcOLwoPP +X7Lx6/79xp/MvWCLeK1GQBcbK3N0jbTWeEGX2YMJmR42TjMy5OOUvGCs/nu8 +8wc26r6w3bFrggMaeav53wbYqPm2zDSZy4GGbqOApEE2CsUJ565P5cCWZXag +NczGD06ny4aCOXAo7vhT/3E2vt/t/TLUjgNjzbFZ0lNsHI/7+8UBOBD5+4Jr +/W82Rr5ekmmgxoEla0rU986wcfZDW5+aNAdyOfXjs7NsnOrQfqIiyIH/AbFD +Wkw= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "PlotRange" -> {{0, 30}, {0., 0.06012277562941912}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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|>, @@ -8092,6 +9034,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}}, @@ -8119,7 +9062,8 @@ U0FU/w== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.06741909458355917}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06012277562941912}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -8127,8 +9071,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.994014291990985*^9}, + CellLabel-> + "Out[297]=",ExpressionUUID->"bbfc4dcd-faaa-4754-815d-cbd0f96b6bf0"] }, Open ]], Cell[CellGroupData[{ @@ -8180,65 +9125,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[298]:=",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.935106436227701`*^-172\\\", \ +RowBox[{\\\"182746270923358292188640954459\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"80\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"507584000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 298, 25, + 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323664732767*^9, 3.9940142920466623`*^9}, CellLabel-> "During evaluation of \ -In[90]:=",ExpressionUUID->"e283daf4-b253-944e-a35b-b9d739b4810d"], +In[298]:=",ExpressionUUID->"94ae9d3f-e53f-4ea2-8ab6-2ebb87f38cac"], 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.11386193882759`*^-175\\\", \ +RowBox[{\\\"532888126012512780022077023202\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"83\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"114944000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 298, 26, + 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323664732767*^9, 3.994014292055855*^9}, CellLabel-> "During evaluation of \ -In[90]:=",ExpressionUUID->"45f4fe27-f32a-9441-bd55-e0801ff04328"], +In[298]:=",ExpressionUUID->"37055412-cba5-434a-a824-04a59ab9af63"], 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[\\\"6.411473785324997`*^-179\\\", \ +RowBox[{\\\"161198658118785115956678299518\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"87\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"705600000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 298, 27, + 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323664732767*^9, 3.994014292062541*^9}, CellLabel-> "During evaluation of \ -In[90]:=",ExpressionUUID->"8fffabed-e171-5e42-9ba8-fd51ae8f5dd5"], +In[298]:=",ExpressionUUID->"656c930e-10ef-4e62-bc3a-d47b7556a6f4"], 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, 298, 28, 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323664732767*^9, 3.994014292068552*^9}, CellLabel-> "During evaluation of \ -In[90]:=",ExpressionUUID->"8b648472-e40f-a549-a057-c6eeb9f14028"], +In[298]:=",ExpressionUUID->"a8e4a7c0-977f-4232-bbb6-d7084fdb9d41"], -Cell[BoxData["11.275343508420768`"], "Output", - CellChangeTimes->{3.9913236764669056`*^9}, - CellLabel->"Out[90]=",ExpressionUUID->"c7b55151-fc31-d94c-8a4e-01b34fb0adaf"] +Cell[BoxData["12.643177138731518`"], "Output", + CellChangeTimes->{3.9913236764669056`*^9, 3.994014333482738*^9}, + CellLabel-> + "Out[298]=",ExpressionUUID->"2573f994-7443-4094-b1b5-690d43729b0b"] }, Open ]], Cell[CellGroupData[{ @@ -8305,67 +9259,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[299]:=",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.7815087270226793`*^-214\\\", \ +RowBox[{\\\"665717749437497189208769764374\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"35\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9706282409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 299, 29, + 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913236765399036`*^9, 3.994014333556787*^9}, CellLabel-> "During evaluation of \ -In[91]:=",ExpressionUUID->"3632efc4-f65f-2f41-a6ff-4f71c0ebce84"], +In[299]:=",ExpressionUUID->"603ab8ad-975f-41fe-b0e8-f37a58c99766"], 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[\\\"1.2746396901419919`*^-219\\\", \ +RowBox[{\\\"111907153680443277505994197391\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"260731183104000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 299, 30, + 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913236765399036`*^9, 3.994014333563422*^9}, CellLabel-> "During evaluation of \ -In[91]:=",ExpressionUUID->"779c5516-83d5-5d41-8a7a-6b58e876b564"], +In[299]:=",ExpressionUUID->"8a532210-0ac4-4ddb-ade8-ca6b71b99c32"], 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[\\\"5.841097401209147`*^-225\\\", \ +RowBox[{\\\"197404219092301941520573764198\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"929806995456000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 299, 31, + 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913236765399036`*^9, 3.994014333570422*^9}, CellLabel-> "During evaluation of \ -In[91]:=",ExpressionUUID->"8e3711bd-8e48-2e4f-9802-ad11f73b56ef"], +In[299]:=",ExpressionUUID->"97593a40-302d-412c-bbc0-f4ea801b7b7a"], 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, 299, 32, 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913236765399036`*^9, 3.994014333578517*^9}, CellLabel-> "During evaluation of \ -In[91]:=",ExpressionUUID->"f612a69b-4740-9240-9908-d284159fa285"], +In[299]:=",ExpressionUUID->"1c6b0772-a7a7-4b4d-94b4-3685b23eba4d"], -Cell[BoxData["0.5376063675902706`"], "Output", - CellChangeTimes->{3.9913236883162384`*^9}, - CellLabel->"Out[91]=",ExpressionUUID->"bfa217e6-2060-bc4b-b710-35d6c4ca9627"] +Cell[BoxData["0.5762429605535813`"], "Output", + CellChangeTimes->{3.9913236883162384`*^9, 3.994014340060473*^9}, + CellLabel-> + "Out[299]=",ExpressionUUID->"151975e4-5d70-47fe-b94d-ef9ea79c52f1"] }, Open ]], Cell[CellGroupData[{ @@ -8386,8 +9348,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -8432,67 +9393,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[300]:=",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.7815087270226793`*^-214\\\", \ +RowBox[{\\\"665717749437497189208769764374\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"35\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9706282409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 300, 33, + 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99132368839011*^9, 3.994014340103394*^9}, CellLabel-> "During evaluation of \ -In[92]:=",ExpressionUUID->"3ebcf84a-7882-bd47-b9c8-0657501c09d4"], +In[300]:=",ExpressionUUID->"908289d7-8015-4437-900a-4e52c11cf0ce"], 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[\\\"1.2746396901419919`*^-219\\\", \ +RowBox[{\\\"111907153680443277505994197391\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"260731183104000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 300, 34, + 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99132368839011*^9, 3.994014340110435*^9}, CellLabel-> "During evaluation of \ -In[92]:=",ExpressionUUID->"5ba908af-818e-5d45-9b4d-c738ed936632"], +In[300]:=",ExpressionUUID->"2b22c3b1-a039-444d-b2bf-b0f6c95b75f9"], 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[\\\"5.841097401209147`*^-225\\\", \ +RowBox[{\\\"197404219092301941520573764198\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"929806995456000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 300, 35, + 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99132368839011*^9, 3.994014340116847*^9}, CellLabel-> "During evaluation of \ -In[92]:=",ExpressionUUID->"b25ed3b8-96c0-f246-8b73-bf5dca1bf3be"], +In[300]:=",ExpressionUUID->"d1d3adad-6b41-4659-9910-c115c7819e55"], 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, 300, 36, 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99132368839011*^9, 3.994014340123047*^9}, CellLabel-> "During evaluation of \ -In[92]:=",ExpressionUUID->"4d7ee3e1-e220-9e46-b1cc-01012021a276"], +In[300]:=",ExpressionUUID->"3a72924a-4db7-4339-a4fc-598dce5f63a0"], -Cell[BoxData["10.498798062085507`"], "Output", - CellChangeTimes->{3.9913236988049507`*^9}, - CellLabel->"Out[92]=",ExpressionUUID->"f21819b7-4040-3a47-b212-dc05454fc812"] +Cell[BoxData["42.080598197673375`"], "Output", + CellChangeTimes->{3.9913236988049507`*^9, 3.994014345909692*^9}, + CellLabel-> + "Out[300]=",ExpressionUUID->"60a9c4d3-52fe-49fd-8963-37d121939b7d"] }, Open ]], Cell[CellGroupData[{ @@ -8513,8 +9482,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -8559,67 +9527,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[301]:=",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.7815087270226793`*^-214\\\", \ +RowBox[{\\\"665717749437497189208769764374\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"35\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9706282409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 301, 37, + 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323698915848*^9, 3.994014345957994*^9}, CellLabel-> "During evaluation of \ -In[93]:=",ExpressionUUID->"abd6af2a-56b2-2644-a5c5-5aa91718971c"], +In[301]:=",ExpressionUUID->"0575ec17-ccdc-4a53-b4f7-6941fd2e2d7a"], 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[\\\"1.2746396901419919`*^-219\\\", \ +RowBox[{\\\"111907153680443277505994197391\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"260731183104000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 301, 38, + 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323698915848*^9, 3.994014345967663*^9}, CellLabel-> "During evaluation of \ -In[93]:=",ExpressionUUID->"31d8f902-5be7-c54f-8e99-429decd85903"], +In[301]:=",ExpressionUUID->"9ce0c746-01f0-4a07-af40-d6fc9cb7d3f8"], 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[\\\"5.841097401209147`*^-225\\\", \ +RowBox[{\\\"197404219092301941520573764198\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"929806995456000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 301, 39, + 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323698915848*^9, 3.994014345976091*^9}, CellLabel-> "During evaluation of \ -In[93]:=",ExpressionUUID->"666728b2-41bd-114c-ad81-a56ae7cb85e9"], +In[301]:=",ExpressionUUID->"a8e63a08-9519-4a6c-bb22-036249d4eb2e"], 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, 301, 40, 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323698915848*^9, 3.9940143459849358`*^9}, CellLabel-> "During evaluation of \ -In[93]:=",ExpressionUUID->"7a1ee219-911f-6846-82f7-c389bec607c2"], +In[301]:=",ExpressionUUID->"0a324fb8-99e9-4fe9-9a34-53ba2a5b9e8b"], -Cell[BoxData["18.521732102530788`"], "Output", - CellChangeTimes->{3.991323706795576*^9}, - CellLabel->"Out[93]=",ExpressionUUID->"f40d5525-ccff-eb4c-a859-e6917373a7f1"] +Cell[BoxData["8.494438329646844`"], "Output", + CellChangeTimes->{3.991323706795576*^9, 3.994014349446615*^9}, + CellLabel-> + "Out[301]=",ExpressionUUID->"9cddeb34-0014-405a-bcbc-e52bc06e1dc2"] }, Open ]], Cell[CellGroupData[{ @@ -8628,21 +9604,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[302]:=",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.030478763690508764`"], "Output", + CellChangeTimes->{3.991323706858589*^9, 3.9940143494872313`*^9}, + CellLabel-> + "Out[302]=",ExpressionUUID->"d385b9d5-d72d-4141-b8a0-d086341e18e7"] }, 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[303]:=",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"], Cell[CellGroupData[{ @@ -8664,11 +9642,13 @@ Cell[BoxData[ FractionBox[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", - CellLabel->"In[96]:=",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], + CellLabel-> + "In[304]:=",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["14.796977421635912`"], "Output", + CellChangeTimes->{3.991323706886154*^9, 3.994014349505221*^9}, + CellLabel-> + "Out[304]=",ExpressionUUID->"733fbca9-2651-4052-95e7-41e70f98109b"] }, Open ]], Cell[CellGroupData[{ @@ -8677,11 +9657,13 @@ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", - CellLabel->"In[98]:=",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], + CellLabel-> + "In[305]:=",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.6995838064602475`"], "Output", + CellChangeTimes->{3.9913237069236546`*^9, 3.994014349516218*^9}, + CellLabel-> + "Out[305]=",ExpressionUUID->"61ccd792-ba29-494e-b151-b631735909e0"] }, Open ]], Cell[CellGroupData[{ @@ -8691,12 +9673,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[101]:=",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], + "In[306]:=",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], -Cell[BoxData["16.598525115055164`"], "Output", - CellChangeTimes->{3.9913237069753113`*^9}, +Cell[BoxData["25.148703210370304`"], "Output", + CellChangeTimes->{3.9913237069753113`*^9, 3.994014349526348*^9}, CellLabel-> - "Out[101]=",ExpressionUUID->"f46a3dc4-a4b4-034f-91be-6596e81ebf6d"] + "Out[306]=",ExpressionUUID->"c6d146fc-d6bb-44c3-9902-9e661957fd91"] }, Open ]], Cell[CellGroupData[{ @@ -8886,12 +9868,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[102]:=",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], + "In[307]:=",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], -Cell[BoxData["0.02467166981689615`"], "Output", - CellChangeTimes->{3.991323707000412*^9}, +Cell[BoxData["0.005423848685997353`"], "Output", + CellChangeTimes->{3.991323707000412*^9, 3.9940143495391912`*^9}, CellLabel-> - "Out[102]=",ExpressionUUID->"ccd4df45-d425-704c-b4a9-648b41b92e77"] + "Out[307]=",ExpressionUUID->"788ba529-b860-4ccc-b33d-d238ebfa3b75"] }, Open ]], Cell[CellGroupData[{ @@ -8905,12 +9887,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[103]:=",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], + "In[308]:=",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], -Cell[BoxData["5.642163519289108`"], "Output", - CellChangeTimes->{3.991323707203314*^9}, +Cell[BoxData["12.033477717627324`"], "Output", + CellChangeTimes->{3.991323707203314*^9, 3.994014349638853*^9}, CellLabel-> - "Out[103]=",ExpressionUUID->"1ebb6633-805d-cf47-abbc-564ac9bf2374"] + "Out[308]=",ExpressionUUID->"f81a5b7d-fde2-4db6-a751-5931cdd8f114"] }, Open ]], Cell[CellGroupData[{ @@ -9102,12 +10084,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[104]:=",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], + "In[309]:=",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], -Cell[BoxData["0.012834083028601704`"], "Output", - CellChangeTimes->{3.9913237072224197`*^9}, +Cell[BoxData["0.03588551889882069`"], "Output", + CellChangeTimes->{3.9913237072224197`*^9, 3.994014349652623*^9}, CellLabel-> - "Out[104]=",ExpressionUUID->"a3a95ff2-cddf-6a4c-ac06-8cc3fd5707bc"] + "Out[309]=",ExpressionUUID->"0f8df549-3604-434f-a99d-3f3ec0f4dcb6"] }, Open ]], Cell[CellGroupData[{ @@ -9121,12 +10103,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[105]:=",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], + "In[310]:=",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], -Cell[BoxData["7.82280524717004`"], "Output", - CellChangeTimes->{3.991323707432623*^9}, +Cell[BoxData["4.678270458347027`"], "Output", + CellChangeTimes->{3.991323707432623*^9, 3.9940143497513227`*^9}, CellLabel-> - "Out[105]=",ExpressionUUID->"53071608-cf53-7441-9033-6c9cf2e7fa8e"] + "Out[310]=",ExpressionUUID->"47b3edbe-11e8-4e18-9f7c-69c5f0a6f707"] }, Open ]], Cell[CellGroupData[{ @@ -9219,12 +10201,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[106]:=",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], + "In[311]:=",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], -Cell[BoxData["0.6154782275967796`"], "Output", - CellChangeTimes->{3.9913237074497375`*^9}, +Cell[BoxData["0.11555035266703631`"], "Output", + CellChangeTimes->{3.9913237074497375`*^9, 3.994014349761816*^9}, CellLabel-> - "Out[106]=",ExpressionUUID->"547b87cc-d628-4d49-8e04-72542aa7650e"] + "Out[311]=",ExpressionUUID->"bde2f6dc-92cb-4821-aee6-0a2a578b7543"] }, Open ]], Cell[CellGroupData[{ @@ -9314,12 +10296,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[107]:=",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], + "In[312]:=",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], -Cell[BoxData["0.3845217724032204`"], "Output", - CellChangeTimes->{3.991323707467621*^9}, +Cell[BoxData["0.8844496473329635`"], "Output", + CellChangeTimes->{3.991323707467621*^9, 3.9940143497719316`*^9}, CellLabel-> - "Out[107]=",ExpressionUUID->"a8edf49c-9c61-9e4b-9fa8-4de409daba96"] + "Out[312]=",ExpressionUUID->"382a751b-43bc-4d30-a90f-4e32d88735a1"] }, Open ]], Cell[CellGroupData[{ @@ -9442,12 +10424,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[108]:=",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], + "In[313]:=",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], -Cell[BoxData["0.2366647789511063`"], "Output", - CellChangeTimes->{3.991323707488617*^9}, +Cell[BoxData["0.10219846866555986`"], "Output", + CellChangeTimes->{3.991323707488617*^9, 3.994014349783614*^9}, CellLabel-> - "Out[108]=",ExpressionUUID->"3584cc50-41a2-ae4b-af54-859d095b0154"] + "Out[313]=",ExpressionUUID->"f41a3cdf-c662-4cfc-baf7-2df7fa7035f1"] }, Open ]], Cell[CellGroupData[{ @@ -9462,7 +10444,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[{ @@ -9484,8 +10468,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -9509,68 +10492,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[314]:=",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[\\\"5.574222042005056`*^-228\\\", \ +RowBox[{\\\"189440899156242768942779436337\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"26\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"5245236398325760000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 314, 41, + 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237075117207`*^9, 3.994014349802477*^9}, CellLabel-> "During evaluation of \ -In[109]:=",ExpressionUUID->"d59869d2-8577-0547-8448-230bc5a4ac5e"], +In[314]:=",ExpressionUUID->"0ff80053-be79-4ae9-926a-91ac73fdfcb1"], 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.019659298849899`*^-234\\\", \ +RowBox[{\\\"273552658381614558353373506071\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"29\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4121359182397440000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 314, 42, + 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237075117207`*^9, 3.994014349808999*^9}, CellLabel-> "During evaluation of \ -In[109]:=",ExpressionUUID->"844f4204-3100-6d45-b5d2-238cc22b8006"], +In[314]:=",ExpressionUUID->"3c0e8781-f902-4c31-b9ba-53c863e17092"], 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.898639623085146`*^-240\\\", \ +RowBox[{\\\"416073593398435743255481102734\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"32\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8587316426506240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 314, 43, + 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237075117207`*^9, 3.994014349816989*^9}, CellLabel-> "During evaluation of \ -In[109]:=",ExpressionUUID->"f91c55eb-7b3d-3340-b869-4269b99a071c"], +In[314]:=",ExpressionUUID->"51f25e0f-0303-47ef-a1ac-9d29013bed1b"], 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, 314, 44, 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237075117207`*^9, 3.994014349823698*^9}, CellLabel-> "During evaluation of \ -In[109]:=",ExpressionUUID->"efd89e15-8a66-4047-aee7-4fb3607a30a7"], +In[314]:=",ExpressionUUID->"a6dacd27-fff5-45b9-ac1b-24117a51a09c"], -Cell[BoxData["5.642163519289105`"], "Output", - CellChangeTimes->{3.9913237161181736`*^9}, +Cell[BoxData["12.033477717627324`"], "Output", + CellChangeTimes->{3.9913237161181736`*^9, 3.99401435312344*^9}, CellLabel-> - "Out[109]=",ExpressionUUID->"e68f2098-b3f7-6745-819f-009e252dd442"] + "Out[314]=",ExpressionUUID->"0aa9ab4d-3dda-4514-a2af-df6e7a2dd1e6"] }, Open ]], Cell[CellGroupData[{ @@ -9585,7 +10575,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[{ @@ -9607,8 +10599,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -9632,68 +10623,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[315]:=",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[\\\"5.574222042005056`*^-228\\\", \ +RowBox[{\\\"189440899156242768942779436337\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"26\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"5245236398325760000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 315, 45, + 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237161871567`*^9, 3.994014353169983*^9}, CellLabel-> "During evaluation of \ -In[110]:=",ExpressionUUID->"feb3ed0a-8d45-dd4c-a945-407106f88295"], +In[315]:=",ExpressionUUID->"5112e02d-e545-48cf-9a8c-d7207461823f"], 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.019659298849899`*^-234\\\", \ +RowBox[{\\\"273552658381614558353373506071\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"29\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4121359182397440000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 315, 46, + 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237161871567`*^9, 3.994014353179109*^9}, CellLabel-> "During evaluation of \ -In[110]:=",ExpressionUUID->"d5a6c2e7-2143-1843-8d40-686107f6aa27"], +In[315]:=",ExpressionUUID->"64b49304-a247-42ef-843b-4f2dea728f3d"], 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.898639623085146`*^-240\\\", \ +RowBox[{\\\"416073593398435743255481102734\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"32\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8587316426506240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 315, 47, + 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237161871567`*^9, 3.994014353187458*^9}, CellLabel-> "During evaluation of \ -In[110]:=",ExpressionUUID->"a15d89dd-0dfc-c845-aec3-fe7d60156e1f"], +In[315]:=",ExpressionUUID->"0f8b952b-3302-4a0c-8d5f-cc8f793c6e95"], 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, 315, 48, 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237161871567`*^9, 3.994014353196073*^9}, CellLabel-> "During evaluation of \ -In[110]:=",ExpressionUUID->"0f9408e4-b654-4a40-9b38-655b18398efc"], +In[315]:=",ExpressionUUID->"ba23b597-0c17-4135-a0ee-8e314fef255a"], -Cell[BoxData["7.822805247170038`"], "Output", - CellChangeTimes->{3.991323724852854*^9}, +Cell[BoxData["4.678270458347028`"], "Output", + CellChangeTimes->{3.991323724852854*^9, 3.994014356425655*^9}, CellLabel-> - "Out[110]=",ExpressionUUID->"f72e3d82-4d19-7143-9513-38a15cee4d51"] + "Out[315]=",ExpressionUUID->"fa3818e2-c10e-4c9d-adf5-9c5b17c8bc33"] }, Open ]], Cell[CellGroupData[{ @@ -9751,95 +10749,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[316]:=",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:eJwV03k4VO0bB3B7hF5LSJbXXtYwKIXnjpEIlSKELDNHiOwNiZStTYRQtgpJ +ZCsKPxFJCEUppUiWl2bMiKTN75k/znWuz/Wc8z33fe7nUfQ+7kDl4uDgoOOL +fQ/p09nUMNBnRkSOB1JF6MiMUWzoTa5Az5+anmF7rNAoU4XcjGT27X/M9j7K +Cz4h0lPkKC6rSmDX0OLaecm9aFSwoI7tc50bWuPKX6Jxg2F/X+xHAyEFv/Vf +I1LKM5uj2LMj3TFRTW+R+N+gA37YGyeVD3+3+IAcLr1I8MfeMx9jHNb7CRVp +TnwMwG75PStIKx9Hm15UeQViv4mXOlkfNIHyKCTh49gMPvLsov4kspoIHA/G +5rsY7EJankJWxkc+hmLLi+Z3hTTNIAnHNTwR2PYy30sZFl+Rc/rJ51HYRJGS +pDY/A/GnWPnFYMep7k0M6J1H08znenHYb6WG9MLLWUipnmWSiE1x9ffLuLiA +jo1ejUvBZuZx3KgN+oYYQguzF7D5lbRFWPpLSE6we0cGdial3UpE4jsqyN2l +mI2tcNslbsvydyRYTdtyHXubVhIjsOkHev7l99Nb2EeNPvXOWvxG1frx7+ux +F2kRPGvV/iC7vhK+ZuzTTYIm6vx/kfu9WNc27BzYdte3dxX9irWN6WXXV9JF +Di3nhFcMh7Iv2OWdGWPxMlyQYb5eeo5d77RHTPpFLlg0TallYcdoLNVVB3HD +153JR1bZ9VYpKs/r84LE4MgNWVE6Ghn42vL3Fi+UPtZwVsFWWGhwXSfBBxHu +mlu1sCsM7K9oL/MBOdv0uAl2x6NozmNN/KAkX/DMA3upffDTjIUQfK0XlL6L +LWYrJHKyRQjW1s1vq8fWHSKDsLEwOGcXpbRh+395UKSnsw5oZN+Gt9jBXL26 +pkIiELoQ7SAgRkeTSvdYid9FYa/7ntgw7EWiW6CfJAbcrCfX4rG57k4pbggR +A/ntq1OXsRVI/zqUz4lB3/X2dZXYrhZptX1j4pD3x//6f9j9PqFhUj0SYDdT +VhYgTkcfb6de8OSXhAfeSm0x2F/nym/dsZQEvWAngVTsteETgztaJcGMNre5 +BpuccNDA84EUBBo/KF7Bbiw2WiorlIb7QoqpGevpqHjyZ+T2cDkoCWlVmpOg +o92OyR/DKuUgZyi4jEMS53eI76qckgM119uHJLENirUkFFzk4XrzLX1z7A5v +jzpes39hRKJj5Dr2wvzYiZmzClD8fX7BSYqOxAPJ9+vslMA0Ttj06wY6mipe +e3SfvxKIisyy+KTp6OGHARl6khLI+ukNKGK72bqfVWtVAvuS3/zO2MWakQ65 ++sqQbu0f0IltMHubGSulAnxnny6Ub6Sjg76C2jbjqvDd04onQ5aOUKSj/qE/ +qqCaJUKuxdZILNxKkVaDhKqUuy+xOW6RzGP3q4GsbTxLRI6OKj8ePlTbpgbh +vREu6dh8ThXxG29ugq688JxceVwf2e7NrLc6KKp0dj9ToKNbB7LfL8eqg0GL +6d857FTv8TGe6+pwxQK5iCji/X06Yk5+UB1ixN8numCLNudzHLDQgLB0h0d0 +bH8SQ6NJWROWHiqlyCnTkYzS5bgLX7Rg9Llg8zVVOmo+v6i+wqUNHpRUt2fY +bt9chghFbUjaStVcxC7oUFE399AGVzL/QXs1OlLybXz1Y1gb6quYAzybcL8V +k6pEjw44qZWfiN5MR3Iy8oSCiy4oXz4QkKJJR1ol4UK/kD7k1VVE6ejTkTfl +7JK2vT7EneT75I2do3zlo6ebPigPWx3Lxua+WVXdSdMHn66ovxwkfN4KZg9e +qdEHvvtUzjfY53I889WVSbCzpSYu2RDP94KtjjOfAbTuCdjHb0xHN0JV9j3o +NYQC3en+00BHA5Foa0KJMTx950h94UBHih6v7d2PmULslyMnUnzpiLpaf08u +CsBujPHK5hQdSc09XCPlbQ45agnME9l0FE4y+XBFgwyqElk25FpcP/13l/is +JSSc4Imu6sPzNA9bU9hvBSbfdGeH5/H+WfRvq8i0Bs74YcVxEQb6sXPDi464 +PWDHk6/3yYiBRjm4WeNedlAxonXOwoOBgmSPp8Ur7wWda/eqnyQw0D2/rtas +xH1grTndZVfNQNHfpJc1/fYDr7ZsYNwIAy3Z7HJ6dsQB7AN+bGwTmEfGh9N3 +Tu4/ABMaiS/OGc+jV9L5/h2kg8Ch8rBR33cebSw921y22REqj3al1+XOo4dj +Grb2wk5w/uezlvzn80h+iOkbSXeCgOs9VYor84iUlV5xa+wQrFJ7Os9LMlE+ +zzedK+3OYLrFXWdMh4nqd24ZSXzkAhOWXidNrJkoZ+t50d/lrnCusUL+tzcT +9b8vSSJdPAzkpIzhzmgmemCXpxJ82g2UDhU1G2UyESvwAEcQxR3mNzScir/L +REu71I8yLDzgrLSOVX8bE5XR3/0IMzoCPLW5hnbvmMj5RomPu5AnzDWZvA5h +MFFd7Z4j3MmeYL0gsJ7gYSFjmVcr51Y8YV74wvS4FAspj/mOvPTzgha+NdUM +dRb6IhiwN2/CCxKzKy22m7DQQKq9j5WjN2xv8OzjsGWhTFqhYMSAN2xr81yf +dZiFmltWV3ysfWA5J0Aa/FjoHzdIJjX6wIfXjMe0cBZSWP+sX7bZB6aad4mW +Yuv22m3ga/GBROtSy0FsB5PDd962+UBXhd8h7QicLxvZc+q5DxjciZMfw944 +evefrrc+QKh9NoITLKTiIZXjtuwDtgkTwbNRuB9PRlmiAQVeyLlKTsWyUGku +M8zeiAKJsRVnBOJYaP3ggpnUNgqIBfYNaWEzLJeHynZQYEoxXCMMu1iTg7PX +nAIVlfRrf7HXLYu6iO2nAPfMm0si8fh/XDIUKAykQGbAdInCWRba/2zrkO9x +ChRtV+wE7BaO7YW6IRTo8+/q8cTODTMzfBJOgYPkA8lF2PYuVl6TJylwt0Hg +sXwCCz1ScXmkeZ4Ctro0HclEFkptivF7WEqBys6eFWYSCwXqZxvTyihQzleo +J5zMQrZ3agS2lVPgr1bGXnXstdlTdxoqKUCxHTL1wk4M3Tdbf58CvroRE/3Y +MeoqAQ+e4Pzb4vvLUljIP7vnWO1HCrgpWpdYnmch63VTJqFjFDBPu5bngb05 +kUNY/zMF2pWeRJ3Ango1rKyZpEAa8/xkGbaXfSG9+isFqo50nll7gYWcecOC +qn5SQO0U76subKuwjcEVklTgTlV+oHeJhZ4UJtlc2UAFyUAfY2tsk94FFdpG +KmTmnyvwxNZV7XlnIU+Fl8ZxgpexpYdPWrxXpYIxd+/xWey57aOSaw2pUBL6 +/sj1VBa6zFX0P98DVAhp//5i8jLuf4tQjp0jFX6VJvuvYCccpoWSDlEhbUvD +tFAaC9Hu79u06kqFTWKzZ0nYXgRn+lVvKiAuX4s4bFK3N+VpCBX03deMiqSz +0HC6qqByGhX4zd8Hyl5hoXtI+OhMOhUKJQz/0cROoC92VGZQgcwtkGWMrW/d +EbstmwqHpqTtnbBTOXwW7AqocNq/KSIVe9fxone0CiropH7OXcGWk0sxMrtH +hdY58hm+DBZa7D6ewV1NhSV/4b3i2DfVkF1qHRUSNvVmaWH/GR1tvdVIBa6r +Y8Pu2PdtZcr6uqhgTw3UbsK+8JOLN7ObCr2n7x7uxPYum/Vy6aWCk6VZ0Ets +EZ5GmS/9VNjc7g7T2MeanC+vvKFCKetojmgmPu8aVyNVJnE/Lu8lvbB/Dp8a +/G+KCoNRzHP+2AOJVN2qGSok2+0ZD8OOHTeYNf5KhZWyPpMk7JGcQfe936hQ +u7xYegf7yhpRy2hOAsZp66zmsJsXRg+HcxNQ0sj9+Rv29Gh5aBAvAY2cbq6/ +sU3uk4u8BQhQ69abEMrC+82T9stGlIB1u50dtbBFbC3FLMUJYOTteU/C3rFV +TB1J4Pyaa2Y7sNOEK5xI0gRwduzOt2avN36qkVEkoPfPi0YKNlFS0SWhTIBF +RYpmAPv5tKhP/6gSoPkyJyqE/T1CXJhHnQDL4vrKU+x1caujX3UJmHd8HZGJ +3fhXPG5Kn4CKM5tf5mJP/jeWNWZAgPbbHoFC7O2t0e1D2wjIusEhfgf7y7F7 +8v8DAjr5xBObsNc5nzRsMCdApmG4+zG2scVu2xoyAc/NZujt2KnSn6NKdhNw +5PtsTw/2Q56qtEIbAsx3fkjqx56YP3k715aAY7lS/w5ib+uUeH1pHwELr/yn +32F713yeS3YgYIgRLzWKfSmviuvMQQLWXxpXGcP+HGqtG+lMgAKLNjyJLewh +aRXsSoCgaHXMDDvPesLd342AS746q7Ps9/89dcHDk4A/2avX59n1rLW56exN +QMHc/noWO29J8pEDhQAzv9nKb+y88Yl+W4KAjOGuM0vsvN7qqV1HCbDlpBss +s+trOPUH/AlY88Cp4wc7/6bN+h3HCHB8yqv3k51/SUrTMIiAVv6f0b/Y+bQv +O7cEE9DkQrr5G1uIUuOsHkrA/as1pX+wt+6NPa4cToDQzfCUv+z87XuS5CIJ +kPSOsVrFvqi6IV+KRoBYW9cE2/Uik3Wi0QSgShd3jqssNP6rplswhoCuDVvu +sy00HTvOG4vnsbJ7hm2jV3t+rMYR4Gxze4Xt/wOPcQVV "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -9853,107 +10850,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:eJwV03k4VO0bB3B7hF5LSJbXXtYwKIXnjpEIlSKELDNHiOwNiZStTYRQtgpJ +ZCsKPxFJCEUppUiWl2bMiKTN75k/znWuz/Wc8z33fe7nUfQ+7kDl4uDgoOOL +fQ/p09nUMNBnRkSOB1JF6MiMUWzoTa5Az5+anmF7rNAoU4XcjGT27X/M9j7K +Cz4h0lPkKC6rSmDX0OLaecm9aFSwoI7tc50bWuPKX6Jxg2F/X+xHAyEFv/Vf +I1LKM5uj2LMj3TFRTW+R+N+gA37YGyeVD3+3+IAcLr1I8MfeMx9jHNb7CRVp +TnwMwG75PStIKx9Hm15UeQViv4mXOlkfNIHyKCTh49gMPvLsov4kspoIHA/G +5rsY7EJankJWxkc+hmLLi+Z3hTTNIAnHNTwR2PYy30sZFl+Rc/rJ51HYRJGS +pDY/A/GnWPnFYMep7k0M6J1H08znenHYb6WG9MLLWUipnmWSiE1x9ffLuLiA +jo1ejUvBZuZx3KgN+oYYQguzF7D5lbRFWPpLSE6we0cGdial3UpE4jsqyN2l +mI2tcNslbsvydyRYTdtyHXubVhIjsOkHev7l99Nb2EeNPvXOWvxG1frx7+ux +F2kRPGvV/iC7vhK+ZuzTTYIm6vx/kfu9WNc27BzYdte3dxX9irWN6WXXV9JF +Di3nhFcMh7Iv2OWdGWPxMlyQYb5eeo5d77RHTPpFLlg0TallYcdoLNVVB3HD +153JR1bZ9VYpKs/r84LE4MgNWVE6Ghn42vL3Fi+UPtZwVsFWWGhwXSfBBxHu +mlu1sCsM7K9oL/MBOdv0uAl2x6NozmNN/KAkX/DMA3upffDTjIUQfK0XlL6L +LWYrJHKyRQjW1s1vq8fWHSKDsLEwOGcXpbRh+395UKSnsw5oZN+Gt9jBXL26 +pkIiELoQ7SAgRkeTSvdYid9FYa/7ntgw7EWiW6CfJAbcrCfX4rG57k4pbggR +A/ntq1OXsRVI/zqUz4lB3/X2dZXYrhZptX1j4pD3x//6f9j9PqFhUj0SYDdT +VhYgTkcfb6de8OSXhAfeSm0x2F/nym/dsZQEvWAngVTsteETgztaJcGMNre5 +BpuccNDA84EUBBo/KF7Bbiw2WiorlIb7QoqpGevpqHjyZ+T2cDkoCWlVmpOg +o92OyR/DKuUgZyi4jEMS53eI76qckgM119uHJLENirUkFFzk4XrzLX1z7A5v +jzpes39hRKJj5Dr2wvzYiZmzClD8fX7BSYqOxAPJ9+vslMA0Ttj06wY6mipe +e3SfvxKIisyy+KTp6OGHARl6khLI+ukNKGK72bqfVWtVAvuS3/zO2MWakQ65 ++sqQbu0f0IltMHubGSulAnxnny6Ub6Sjg76C2jbjqvDd04onQ5aOUKSj/qE/ +qqCaJUKuxdZILNxKkVaDhKqUuy+xOW6RzGP3q4GsbTxLRI6OKj8ePlTbpgbh +vREu6dh8ThXxG29ugq688JxceVwf2e7NrLc6KKp0dj9ToKNbB7LfL8eqg0GL +6d857FTv8TGe6+pwxQK5iCji/X06Yk5+UB1ixN8numCLNudzHLDQgLB0h0d0 +bH8SQ6NJWROWHiqlyCnTkYzS5bgLX7Rg9Llg8zVVOmo+v6i+wqUNHpRUt2fY +bt9chghFbUjaStVcxC7oUFE399AGVzL/QXs1OlLybXz1Y1gb6quYAzybcL8V +k6pEjw44qZWfiN5MR3Iy8oSCiy4oXz4QkKJJR1ol4UK/kD7k1VVE6ejTkTfl +7JK2vT7EneT75I2do3zlo6ebPigPWx3Lxua+WVXdSdMHn66ovxwkfN4KZg9e +qdEHvvtUzjfY53I889WVSbCzpSYu2RDP94KtjjOfAbTuCdjHb0xHN0JV9j3o +NYQC3en+00BHA5Foa0KJMTx950h94UBHih6v7d2PmULslyMnUnzpiLpaf08u +CsBujPHK5hQdSc09XCPlbQ45agnME9l0FE4y+XBFgwyqElk25FpcP/13l/is +JSSc4Imu6sPzNA9bU9hvBSbfdGeH5/H+WfRvq8i0Bs74YcVxEQb6sXPDi464 +PWDHk6/3yYiBRjm4WeNedlAxonXOwoOBgmSPp8Ur7wWda/eqnyQw0D2/rtas +xH1grTndZVfNQNHfpJc1/fYDr7ZsYNwIAy3Z7HJ6dsQB7AN+bGwTmEfGh9N3 +Tu4/ABMaiS/OGc+jV9L5/h2kg8Ch8rBR33cebSw921y22REqj3al1+XOo4dj +Grb2wk5w/uezlvzn80h+iOkbSXeCgOs9VYor84iUlV5xa+wQrFJ7Os9LMlE+ +zzedK+3OYLrFXWdMh4nqd24ZSXzkAhOWXidNrJkoZ+t50d/lrnCusUL+tzcT +9b8vSSJdPAzkpIzhzmgmemCXpxJ82g2UDhU1G2UyESvwAEcQxR3mNzScir/L +REu71I8yLDzgrLSOVX8bE5XR3/0IMzoCPLW5hnbvmMj5RomPu5AnzDWZvA5h +MFFd7Z4j3MmeYL0gsJ7gYSFjmVcr51Y8YV74wvS4FAspj/mOvPTzgha+NdUM +dRb6IhiwN2/CCxKzKy22m7DQQKq9j5WjN2xv8OzjsGWhTFqhYMSAN2xr81yf +dZiFmltWV3ysfWA5J0Aa/FjoHzdIJjX6wIfXjMe0cBZSWP+sX7bZB6aad4mW +Yuv22m3ga/GBROtSy0FsB5PDd962+UBXhd8h7QicLxvZc+q5DxjciZMfw944 +evefrrc+QKh9NoITLKTiIZXjtuwDtgkTwbNRuB9PRlmiAQVeyLlKTsWyUGku +M8zeiAKJsRVnBOJYaP3ggpnUNgqIBfYNaWEzLJeHynZQYEoxXCMMu1iTg7PX +nAIVlfRrf7HXLYu6iO2nAPfMm0si8fh/XDIUKAykQGbAdInCWRba/2zrkO9x +ChRtV+wE7BaO7YW6IRTo8+/q8cTODTMzfBJOgYPkA8lF2PYuVl6TJylwt0Hg +sXwCCz1ScXmkeZ4Ctro0HclEFkptivF7WEqBys6eFWYSCwXqZxvTyihQzleo +J5zMQrZ3agS2lVPgr1bGXnXstdlTdxoqKUCxHTL1wk4M3Tdbf58CvroRE/3Y +MeoqAQ+e4Pzb4vvLUljIP7vnWO1HCrgpWpdYnmch63VTJqFjFDBPu5bngb05 +kUNY/zMF2pWeRJ3Ango1rKyZpEAa8/xkGbaXfSG9+isFqo50nll7gYWcecOC +qn5SQO0U76subKuwjcEVklTgTlV+oHeJhZ4UJtlc2UAFyUAfY2tsk94FFdpG +KmTmnyvwxNZV7XlnIU+Fl8ZxgpexpYdPWrxXpYIxd+/xWey57aOSaw2pUBL6 +/sj1VBa6zFX0P98DVAhp//5i8jLuf4tQjp0jFX6VJvuvYCccpoWSDlEhbUvD +tFAaC9Hu79u06kqFTWKzZ0nYXgRn+lVvKiAuX4s4bFK3N+VpCBX03deMiqSz +0HC6qqByGhX4zd8Hyl5hoXtI+OhMOhUKJQz/0cROoC92VGZQgcwtkGWMrW/d +EbstmwqHpqTtnbBTOXwW7AqocNq/KSIVe9fxone0CiropH7OXcGWk0sxMrtH +hdY58hm+DBZa7D6ewV1NhSV/4b3i2DfVkF1qHRUSNvVmaWH/GR1tvdVIBa6r +Y8Pu2PdtZcr6uqhgTw3UbsK+8JOLN7ObCr2n7x7uxPYum/Vy6aWCk6VZ0Ets +EZ5GmS/9VNjc7g7T2MeanC+vvKFCKetojmgmPu8aVyNVJnE/Lu8lvbB/Dp8a +/G+KCoNRzHP+2AOJVN2qGSok2+0ZD8OOHTeYNf5KhZWyPpMk7JGcQfe936hQ +u7xYegf7yhpRy2hOAsZp66zmsJsXRg+HcxNQ0sj9+Rv29Gh5aBAvAY2cbq6/ +sU3uk4u8BQhQ69abEMrC+82T9stGlIB1u50dtbBFbC3FLMUJYOTteU/C3rFV +TB1J4Pyaa2Y7sNOEK5xI0gRwduzOt2avN36qkVEkoPfPi0YKNlFS0SWhTIBF +RYpmAPv5tKhP/6gSoPkyJyqE/T1CXJhHnQDL4vrKU+x1caujX3UJmHd8HZGJ +3fhXPG5Kn4CKM5tf5mJP/jeWNWZAgPbbHoFC7O2t0e1D2wjIusEhfgf7y7F7 +8v8DAjr5xBObsNc5nzRsMCdApmG4+zG2scVu2xoyAc/NZujt2KnSn6NKdhNw +5PtsTw/2Q56qtEIbAsx3fkjqx56YP3k715aAY7lS/w5ib+uUeH1pHwELr/yn +32F713yeS3YgYIgRLzWKfSmviuvMQQLWXxpXGcP+HGqtG+lMgAKLNjyJLewh +aRXsSoCgaHXMDDvPesLd342AS746q7Ps9/89dcHDk4A/2avX59n1rLW56exN +QMHc/noWO29J8pEDhQAzv9nKb+y88Yl+W4KAjOGuM0vsvN7qqV1HCbDlpBss +s+trOPUH/AlY88Cp4wc7/6bN+h3HCHB8yqv3k51/SUrTMIiAVv6f0b/Y+bQv +O7cEE9DkQrr5G1uIUuOsHkrA/as1pX+wt+6NPa4cToDQzfCUv+z87XuS5CIJ +kPSOsVrFvqi6IV+KRoBYW9cE2/Uik3Wi0QSgShd3jqssNP6rplswhoCuDVvu +sy00HTvOG4vnsbJ7hm2jV3t+rMYR4Gxze4Xt/wOPcQVV "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5082122808512877, - 1.8240550855476267`}}, + "PlotRange" -> {{0, 180}, {0.9082514902217553, + 1.0991220237816801`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5082122808512888}, + "AxesOrigin" -> {0, 0.9082514902217573}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -9965,21 +10961,21 @@ jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5082122808512877, - 1.8240550855476267`}}, + "PlotRange" -> {{0, 180}, {0.9082514902217553, + 1.0991220237816801`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5082122808512888}, + "AxesOrigin" -> {0, 0.9082514902217573}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -9993,105 +10989,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:eJwV03k4VO0bB3B7hF5LSJbXXtYwKIXnjpEIlSKELDNHiOwNiZStTYRQtgpJ +ZCsKPxFJCEUppUiWl2bMiKTN75k/znWuz/Wc8z33fe7nUfQ+7kDl4uDgoOOL +fQ/p09nUMNBnRkSOB1JF6MiMUWzoTa5Az5+anmF7rNAoU4XcjGT27X/M9j7K +Cz4h0lPkKC6rSmDX0OLaecm9aFSwoI7tc50bWuPKX6Jxg2F/X+xHAyEFv/Vf +I1LKM5uj2LMj3TFRTW+R+N+gA37YGyeVD3+3+IAcLr1I8MfeMx9jHNb7CRVp +TnwMwG75PStIKx9Hm15UeQViv4mXOlkfNIHyKCTh49gMPvLsov4kspoIHA/G +5rsY7EJankJWxkc+hmLLi+Z3hTTNIAnHNTwR2PYy30sZFl+Rc/rJ51HYRJGS +pDY/A/GnWPnFYMep7k0M6J1H08znenHYb6WG9MLLWUipnmWSiE1x9ffLuLiA +jo1ejUvBZuZx3KgN+oYYQguzF7D5lbRFWPpLSE6we0cGdial3UpE4jsqyN2l +mI2tcNslbsvydyRYTdtyHXubVhIjsOkHev7l99Nb2EeNPvXOWvxG1frx7+ux +F2kRPGvV/iC7vhK+ZuzTTYIm6vx/kfu9WNc27BzYdte3dxX9irWN6WXXV9JF +Di3nhFcMh7Iv2OWdGWPxMlyQYb5eeo5d77RHTPpFLlg0TallYcdoLNVVB3HD +153JR1bZ9VYpKs/r84LE4MgNWVE6Ghn42vL3Fi+UPtZwVsFWWGhwXSfBBxHu +mlu1sCsM7K9oL/MBOdv0uAl2x6NozmNN/KAkX/DMA3upffDTjIUQfK0XlL6L +LWYrJHKyRQjW1s1vq8fWHSKDsLEwOGcXpbRh+395UKSnsw5oZN+Gt9jBXL26 +pkIiELoQ7SAgRkeTSvdYid9FYa/7ntgw7EWiW6CfJAbcrCfX4rG57k4pbggR +A/ntq1OXsRVI/zqUz4lB3/X2dZXYrhZptX1j4pD3x//6f9j9PqFhUj0SYDdT +VhYgTkcfb6de8OSXhAfeSm0x2F/nym/dsZQEvWAngVTsteETgztaJcGMNre5 +BpuccNDA84EUBBo/KF7Bbiw2WiorlIb7QoqpGevpqHjyZ+T2cDkoCWlVmpOg +o92OyR/DKuUgZyi4jEMS53eI76qckgM119uHJLENirUkFFzk4XrzLX1z7A5v +jzpes39hRKJj5Dr2wvzYiZmzClD8fX7BSYqOxAPJ9+vslMA0Ttj06wY6mipe +e3SfvxKIisyy+KTp6OGHARl6khLI+ukNKGK72bqfVWtVAvuS3/zO2MWakQ65 ++sqQbu0f0IltMHubGSulAnxnny6Ub6Sjg76C2jbjqvDd04onQ5aOUKSj/qE/ +qqCaJUKuxdZILNxKkVaDhKqUuy+xOW6RzGP3q4GsbTxLRI6OKj8ePlTbpgbh +vREu6dh8ThXxG29ugq688JxceVwf2e7NrLc6KKp0dj9ToKNbB7LfL8eqg0GL +6d857FTv8TGe6+pwxQK5iCji/X06Yk5+UB1ixN8numCLNudzHLDQgLB0h0d0 +bH8SQ6NJWROWHiqlyCnTkYzS5bgLX7Rg9Llg8zVVOmo+v6i+wqUNHpRUt2fY +bt9chghFbUjaStVcxC7oUFE399AGVzL/QXs1OlLybXz1Y1gb6quYAzybcL8V +k6pEjw44qZWfiN5MR3Iy8oSCiy4oXz4QkKJJR1ol4UK/kD7k1VVE6ejTkTfl +7JK2vT7EneT75I2do3zlo6ebPigPWx3Lxua+WVXdSdMHn66ovxwkfN4KZg9e +qdEHvvtUzjfY53I889WVSbCzpSYu2RDP94KtjjOfAbTuCdjHb0xHN0JV9j3o +NYQC3en+00BHA5Foa0KJMTx950h94UBHih6v7d2PmULslyMnUnzpiLpaf08u +CsBujPHK5hQdSc09XCPlbQ45agnME9l0FE4y+XBFgwyqElk25FpcP/13l/is +JSSc4Imu6sPzNA9bU9hvBSbfdGeH5/H+WfRvq8i0Bs74YcVxEQb6sXPDi464 +PWDHk6/3yYiBRjm4WeNedlAxonXOwoOBgmSPp8Ur7wWda/eqnyQw0D2/rtas +xH1grTndZVfNQNHfpJc1/fYDr7ZsYNwIAy3Z7HJ6dsQB7AN+bGwTmEfGh9N3 +Tu4/ABMaiS/OGc+jV9L5/h2kg8Ch8rBR33cebSw921y22REqj3al1+XOo4dj +Grb2wk5w/uezlvzn80h+iOkbSXeCgOs9VYor84iUlV5xa+wQrFJ7Os9LMlE+ +zzedK+3OYLrFXWdMh4nqd24ZSXzkAhOWXidNrJkoZ+t50d/lrnCusUL+tzcT +9b8vSSJdPAzkpIzhzmgmemCXpxJ82g2UDhU1G2UyESvwAEcQxR3mNzScir/L +REu71I8yLDzgrLSOVX8bE5XR3/0IMzoCPLW5hnbvmMj5RomPu5AnzDWZvA5h +MFFd7Z4j3MmeYL0gsJ7gYSFjmVcr51Y8YV74wvS4FAspj/mOvPTzgha+NdUM +dRb6IhiwN2/CCxKzKy22m7DQQKq9j5WjN2xv8OzjsGWhTFqhYMSAN2xr81yf +dZiFmltWV3ysfWA5J0Aa/FjoHzdIJjX6wIfXjMe0cBZSWP+sX7bZB6aad4mW +Yuv22m3ga/GBROtSy0FsB5PDd962+UBXhd8h7QicLxvZc+q5DxjciZMfw944 +evefrrc+QKh9NoITLKTiIZXjtuwDtgkTwbNRuB9PRlmiAQVeyLlKTsWyUGku +M8zeiAKJsRVnBOJYaP3ggpnUNgqIBfYNaWEzLJeHynZQYEoxXCMMu1iTg7PX +nAIVlfRrf7HXLYu6iO2nAPfMm0si8fh/XDIUKAykQGbAdInCWRba/2zrkO9x +ChRtV+wE7BaO7YW6IRTo8+/q8cTODTMzfBJOgYPkA8lF2PYuVl6TJylwt0Hg +sXwCCz1ScXmkeZ4Ctro0HclEFkptivF7WEqBys6eFWYSCwXqZxvTyihQzleo +J5zMQrZ3agS2lVPgr1bGXnXstdlTdxoqKUCxHTL1wk4M3Tdbf58CvroRE/3Y +MeoqAQ+e4Pzb4vvLUljIP7vnWO1HCrgpWpdYnmch63VTJqFjFDBPu5bngb05 +kUNY/zMF2pWeRJ3Ango1rKyZpEAa8/xkGbaXfSG9+isFqo50nll7gYWcecOC +qn5SQO0U76subKuwjcEVklTgTlV+oHeJhZ4UJtlc2UAFyUAfY2tsk94FFdpG +KmTmnyvwxNZV7XlnIU+Fl8ZxgpexpYdPWrxXpYIxd+/xWey57aOSaw2pUBL6 +/sj1VBa6zFX0P98DVAhp//5i8jLuf4tQjp0jFX6VJvuvYCccpoWSDlEhbUvD +tFAaC9Hu79u06kqFTWKzZ0nYXgRn+lVvKiAuX4s4bFK3N+VpCBX03deMiqSz +0HC6qqByGhX4zd8Hyl5hoXtI+OhMOhUKJQz/0cROoC92VGZQgcwtkGWMrW/d +EbstmwqHpqTtnbBTOXwW7AqocNq/KSIVe9fxone0CiropH7OXcGWk0sxMrtH +hdY58hm+DBZa7D6ewV1NhSV/4b3i2DfVkF1qHRUSNvVmaWH/GR1tvdVIBa6r +Y8Pu2PdtZcr6uqhgTw3UbsK+8JOLN7ObCr2n7x7uxPYum/Vy6aWCk6VZ0Ets +EZ5GmS/9VNjc7g7T2MeanC+vvKFCKetojmgmPu8aVyNVJnE/Lu8lvbB/Dp8a +/G+KCoNRzHP+2AOJVN2qGSok2+0ZD8OOHTeYNf5KhZWyPpMk7JGcQfe936hQ +u7xYegf7yhpRy2hOAsZp66zmsJsXRg+HcxNQ0sj9+Rv29Gh5aBAvAY2cbq6/ +sU3uk4u8BQhQ69abEMrC+82T9stGlIB1u50dtbBFbC3FLMUJYOTteU/C3rFV +TB1J4Pyaa2Y7sNOEK5xI0gRwduzOt2avN36qkVEkoPfPi0YKNlFS0SWhTIBF +RYpmAPv5tKhP/6gSoPkyJyqE/T1CXJhHnQDL4vrKU+x1caujX3UJmHd8HZGJ +3fhXPG5Kn4CKM5tf5mJP/jeWNWZAgPbbHoFC7O2t0e1D2wjIusEhfgf7y7F7 +8v8DAjr5xBObsNc5nzRsMCdApmG4+zG2scVu2xoyAc/NZujt2KnSn6NKdhNw +5PtsTw/2Q56qtEIbAsx3fkjqx56YP3k715aAY7lS/w5ib+uUeH1pHwELr/yn +32F713yeS3YgYIgRLzWKfSmviuvMQQLWXxpXGcP+HGqtG+lMgAKLNjyJLewh +aRXsSoCgaHXMDDvPesLd342AS746q7Ps9/89dcHDk4A/2avX59n1rLW56exN +QMHc/noWO29J8pEDhQAzv9nKb+y88Yl+W4KAjOGuM0vsvN7qqV1HCbDlpBss +s+trOPUH/AlY88Cp4wc7/6bN+h3HCHB8yqv3k51/SUrTMIiAVv6f0b/Y+bQv +O7cEE9DkQrr5G1uIUuOsHkrA/as1pX+wt+6NPa4cToDQzfCUv+z87XuS5CIJ +kPSOsVrFvqi6IV+KRoBYW9cE2/Uik3Wi0QSgShd3jqssNP6rplswhoCuDVvu +sy00HTvOG4vnsbJ7hm2jV3t+rMYR4Gxze4Xt/wOPcQVV "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5082122808512877, 1.8240550855476267`}}, + "PlotRange" -> {{0, 180}, {0.9082514902217553, 1.0991220237816801`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5082122808512888}, + "AxesOrigin" -> {0, 0.9082514902217573}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10101,7 +11096,8 @@ jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.5082122808512888}, + AxesOrigin->{0, 0.9082514902217573}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -10129,7 +11125,8 @@ jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.5082122808512877, 1.8240550855476267`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.9082514902217553, 1.0991220237816801`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -10137,9 +11134,9 @@ jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913242457281837`*^9}, + CellChangeTimes->{3.9913242457281837`*^9, 3.994014637293042*^9}, CellLabel-> - "Out[111]=",ExpressionUUID->"02187549-f2f0-9c4d-81fc-d12919ea7802"] + "Out[316]=",ExpressionUUID->"cdcadd4d-0324-4ea7-b8eb-a3a53c14400c"] }, Open ]], Cell[CellGroupData[{ @@ -10202,158 +11199,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[317]:=",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.955409411483839`*^-270\\\", \ + "\"\\!\\(\\*FractionBox[\\\"3.310675828772252`*^-277\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 317, + 49, 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991324246104725*^9, 3.9940146374334803`*^9}, + CellLabel-> + "During evaluation of \ +In[317]:=",ExpressionUUID->"2540e0a5-4fec-4518-8fd9-9f5321dd3cf9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.966854907519515`*^-290\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 317, + 50, 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991324246104725*^9, 3.994014637440136*^9}, + CellLabel-> + "During evaluation of \ +In[317]:=",ExpressionUUID->"f1f87d24-0881-4926-9c87-37f3a4e40744"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.428642702910736`*^-302\\\", \ \\\"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, 317, + 51, 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991324246104725*^9, 3.9940146374473658`*^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[317]:=",ExpressionUUID->"3a8f875c-d1cf-4b28-9aa7-e4320f768391"], 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, 317, 52, 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991324246104725*^9, 3.994014637454913*^9}, CellLabel-> "During evaluation of \ -In[112]:=",ExpressionUUID->"28f777a6-eb27-df49-a698-bd7806baa94c"], +In[317]:=",ExpressionUUID->"a8a37f01-1e07-4857-b73e-181202b25075"], 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:eJwV13k8VO8XB3AlpU1FdoaZO/alSKRmnEOKtBKKsmQphCJFSqSUJdmKsmSb +ZMnMUClSRKVUxFdSiqLVFtkS8nt+f93X+4/neb3Ovc/5nOfSXQ5Zuc8WEBCY +M0tA4P/PsY7nj5kxHCNOToCR3TmWUcs1qePGbeHwS6/BIUxdBlC80UWqLRGi +jN1HTNXV4diOwreCbTnw6Yv5JE19LSwbkEyceFsKEbQ9/T1qFtBZue3QyNsa +WBigl7tFzR42Mns+Dr1tBvmBH4l9yl4w8dbg8uDbLmh5vuZXsHww1K6/wWnK +GYZFNteC/i6IAbnO8m8umtMQJ2Roa/ElCZZ7OxXOWy+I9CGvOS09VyFRZ+P9 +bTbC2JzTwRZZlgXvrqysHlq6GNnZ/JyRZzkQwwltnC29DK9YiPTKh10HyUvd +UUkZYsgr013T/v0GnLfeZNQ8Jo71+pfsA78WgMztBpnZsyRw0YPJ6aj+AuCK +WY/rLJTAZZ0lj1JGC6C12ZGfoCCBD1fp53GECoFpGcCwNJfAP61qz88oFULN +1sy5r69KYLTlknxbt0KY3jja8IoliaYlmzjmHYVwxDDb6Xm4FGomVXnp1BaB +RZbIyOYLUtgb/DE24XkRMOadjGy4LIXom7Wxv7EIXrfYlvyXL4VXjFcHpnwo +Au3DiwQ7GqSwcai8rmy0CH7kBeb9lpFGo6HRGkWVm7B3+bZ+2VvSmPZWYkPm +uZtg+utvsG+3DP42uWu7ak0xHDe/pP6oTwYdXOqC9rCLgZut9V5sTAbdbWzM +Q02KQcra2bBcWBaV5Nb9Kt9SDH33nowLasti9rW0XZPOxZAUHh9wNUgWaxKj +/biRxdAlruz7eLEcMmVvjre0FIPkoSp5SUk59Kbokf7vimHLs92vPBXlcGAg +qWZhRzGUBcdoLlklh6Is89U634shunOwx263HEbi5FLziWLQLbh/4FeOHNqX +uWdcl+PCaZblPpk18iibW09TdOaCueO13wYm8sjIO+8U48YFkbDeMzZb5PEf +1+TckAcX0msj8uKd5bE4mzrH9ePCPYuK3rlR8phRMGLVG86Fwd3UseF38ig6 +FYKHOVxwPDoa/fIEDXk+v/n53VxQSjGR64mgId/NYLbfdy6pP654XjwNi9g5 +oNfLheAptdcmHBoGLlgQVvSbC5fPOIqXv6Rha+UOBYdZPHiZUJd5XV4B9y2/ +Iv9KngdruVdvn6pSwAUaU7FdVjwwfdswPfBMAad1hg3/s+HBNoE5Zk7NCnhf +kH22ajcPXK1838FXBdTPYo1GO/Jg4wl6aJiQIrqPbN7Z78mDwwpjucYaimip +2G3zKZQHjw9k9tceU8SprhK78HwebJoyFD15QhGv93klfy/kQUN8i75emCIa +pfafMi/mwbvy+WGcKEVM+2FkM13Cg4GFAaIR6Yp4aH0jc9V9HkjxzQ021iji +hp8F1Y0veeD9Zyjs2WI6fmEzOK/7SD1++yW+idJxLMRYtmWAB8I974sEpeio +EJcQ3zzIg+vtta1GDDqqnWgKqh7hQcfDy5p39Ol4j3bExnmKB9sjDNuynYgH +tYJ2C/GB9q/Yp8qNjrcuWlnrzuVD3zGG4EdPOp46M3Rn/jw+RHos1JYKoGOv +/paFJcJ8qN788czFSDoGvLBd0LWQD7qip1ecKKEjnfG04tUyPgjEjD6+UkZH +2SXqjDBRPjQIetmX3Sf7x8yRWCnGh4OjVhFDT+i44NsgJ3I5HzhtzPYD7+m4 +MTHBW06SD/6WVw9HdNLR3Dbe9D4x1i+em/uFjm3Mypu7pPjw8f7Yyo4BOtaL +n14RJc0Hicxn56wFGeheqbGoUZYPXyTZcv7CDOSY/PW3l+NDaXxJSdxiBuYu +a/LpJt4envqhXpKB9oNx9AF5Up+7t66xJgPNJ1hx3xT4YNvxqc5Rh4FSUnoc +R0U+MHfZOJzUZ2DvJ13LFuJqc6PIu8jAM/csj96j82FCY2mHlg0DP7icGHGl ++DCWIXN6lT0Db6ltEqojHlmixDR0YmDMmNczFSYfBoYNvUw9GShsU3Cgi7jr +vuuYfQgD29YxpVjKfOjU8r3qHM7Aisrs5xeIP2QGsfafZ+DceyE67cStZ2LD +/RIYGPufk7KfCh/qN98VibzOwKb122+dVuVD3YNHJbGFpJ5HoFxN/HjFS+sk +HgOXj97bOUX8UOxz6rVyBrr0un7yUePD/YheNuchA71l8jCX+N746KeCWgaa +tCU4tBKXti9QufOKgS/ULjSuVucDb6t4fUUzA9uFeEouxDerFHyq3zKwRYCz +9gJxgY760qcfGEjzGxO5TZyXq3frxWfyPlV0c98R54qDbdM3Bj707h6fIs46 +v2mitZeBzkIpi2kafEg96AhdowzMuLr2lB1xykePru9/GVgQuPH9EeJL249E +9M8w8I/3hYkY4oRHIarDcyhsTE77kE18cVXkiz/zKeyOEjx7hzjmeqLvPxEK +Ja2sB58SR0pmLJuznEKaP43RShwRdeP2fGkKtbp/S3cTh0+W7FpCo/D2cte2 +fuJQn8q/yykKZ/UJOI4Rn+x8miGjSuFYrWPRFPFxyyZU1KKwwnvJIwFNPhyr +be9W0qXQQyMvczbxkdXfzmkYkP3Ky8z+78M3BtV0WBQWbXhTPkPW+0pPvtQ3 +ptDaL3nsL/HBGKHDrI0UulnF/Rsm9pheImaymcJBP5vmHuL9h2TKzHZQKP7y +lH8nsetnpt1WGwpvNmZ3NhE771wxZWVP4bCDjUwNscMTw8zdThSa1q+k+MT2 +BqYmjm4Ulr978TeNeFfBtq+unhR+rnmYHUFsLWsX6elLobdWjpQPsWWsq8ah +IxS+01nibEW8bcanISCIQqZdZtBq4s1+QX7BIRT6pfe5SBCbd4cvDwunsMot +QWGUfN8NNrF3I85TeDlalddEbFKXYh9zgcI8m62iN4lZRTezkpPJeibPxp64 +XbEoc0MahbkTZcY6xMHJBddGMil8Ivth81ziu6fz0q0KKAxbH1JZSM6n7Tgn +bRaXfO/LE1Qw8Yh3biq/lELHhqQiM2Ld3VlXRCopfCiqLP+RnP+mV9dSHlRT +eHBSUfg68eH1GcneTyg0OwPiB4m52qmX6hsoPHNjMGWI9Jea0KX4c58pjHY/ +uvUH6b9nwYlxq79R+E3n465s4v2D8Re/9FAYoncmcjcxpz32gskIhVmiGY6P +lPigWHo+8t9cJvr9zOw7SfpdwulE2DFNJrqWZgqlk/y403I8VEmHiZb0V6UG +xNYWQadaVjPR4Ef+xSaSN4mrj57UBSZOzSS0zJB8WrzoUNCAJRO3bDPP30jj +w5xyl8P7A5nY8ET1Z4gM6S/tfYfETzIxerFdzRTJRxOOk+/jMCYKWAw3HycO +jdvrzYhmYkvItXRfkqd/3W09OtKZmOnr89lEgg9DohbOtjVM/Jj4iJtM8rzN +m/Haq46JnNLU9t6lJP+e/oXQl0w05c1MGBHHBxcp5LcyUfGonUinCB9Wdi3q +nOhh4pslrQVzF5HzXdLokCGmhNW7D1uOkHljuzD/VYmUEs6/FfBLldjIPYz9 +VF4Ja+w7o/fMIfVJ68j/UlHC5sCeyorZJF/CEj8gSwkNk/9tqPnHg57tNnu+ +uCnhdNFvkwwy75oLtF788VTC7LG2z0/JPKwQnLtu8SElbB0ZTOoj8zLqbpmM +/nElNN36zUDzJw9UFaTen49VwvavewpPfubBgYH3uzXKlHDVH60U1yYefLng +bOs/Txmx1vKaNZcHvj2ajJWLlNFFwWCrxk0ejJtN9PcvVUZLjeeV/wp4sEAw +McJTRhlPbDDsTrvOg5XHa287aymjtoOFPy+dByHuymLbdyqjZHpsDSuaBxJG +fY0amcq4ldoYM+HCg6y0e2k/c5XxJ6756uXMA7WJswdu5CujdHOd+jsHHrBu +y88wSpXR67j+qZv/v5+ob9eWeaKMK5NveGtv4wFfovSCcK8y7p3IS8taQ+4f +vwI3fdVXwS5W95DZQh7I6dDOCbNU8ODb1HgZYXLf8H9co2Gsgm/mdD75OYcH +l8aWsvw3q+DM0dWTIf+40DFdoD3jpII79TfXhgxxwX/RBzHpKBW8E9+550Mr +F1LVsGNLuwp67x3axcgk9zNX4SO3Q1XR5e6lNgNlLgxcM31QdVYVWyNkx3cw +uPDrXdi8F1GqKFEezzpA48Lv7RNpn5NUUW+dzfoYCS6Mr+t5LJKvir415X4l +c7kwe/lLCc/Xqqizg94R+K0YpB/HVcjT1ZAVk+A0kVtM/l8kZ5+vUcNbPqee +6EoWg+gr5Yv8X+qY3TEpfmy8COQieTv09TXx0cSyiZ1ZhXBFw3Cp2AEtNIvw +YAybF0C9jPHq4QRtDFFKd/X6cQPWytXEr2hdgZ5PzY5pO+aBiGBOwL7wlWjc +J+1z4gcHaKcVWHbKOnh6FV8rzioX5ivtLbOq08H2ox/tFj7LBm22NC/QQRdj +p0/eDnHKAv8O0VoLgVUIj49c3vUsA34NX7DZdGUV2rdqFWYppIHZiqepm7T0 +8FHyMwfIuQIPh9dNjjfo4V4xC9ojsWTw1dR93+S+GtfNG9l0oDUJ2ANuLXbz +9dF4b+Uey6QE2MCU2ro4Rx8/FsucSDKKA9Ww6KAaAwNs0ggUzy+LAXV3wyql +9waYpFUvWacfCe4PPc7e9luDjnV9nxZhBFRltbgNiRtiT0Ly6Sn7cBjJnxlf +cdcQNURokbNyQ8FVqWh+6ta12E/RFOK9TsCQepJ+6eBaZK3ZoBq1NxDucSY/ +j0auw7hvH4KPzgsAe1MK19FYGDYqESmg4geyPufLtatZ+O7pZVZ1uzeIL/Au +2bqLjULHfaVfH/EAzvqQ4EE7Nu66m5Fydp8H6IZcXJ+0l415N+48NN3uAdsG ++W/a9rHxZoLQ0Hd1DzjXOjrh6s1Gjzg98/KuA/AnJ9Qk+DQb2/65vAm3PgDv +1yX9l1fExk4u1yoa94PHUU76Ji4brzSvEytYsR/GuHfc+/hsPNO3vb6Zth9E +GW3jOmVs/CouPdds2h02C8vLPahmY4HUa5nSCneobMlz++8NG21o9r9jDdzB +QuSe1rE2NpY1pcTYqbhDm9nzMal2Nmr7aT5eIekOIxW9kY6fyP7GVdOTY26g +lb2y+GcPG6vo6ZOid92g8r3xsQv9bJy0vvJH94YbWCzfCSsG2agr8N7TIcUN +9p8/2hQwysZXmtVJTYFuMFJ9LlXyDxtNQkuMZT3cIPxvimvFXzba9Z/edmi3 +GyzVK9B0mGbj+Mn226/M3eCaT8XozAwbL93wPKRv6Ab/A1BhWn0= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -10367,117 +11366,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:eJwV13k8VO8XB3AlpU1FdoaZO/alSKRmnEOKtBKKsmQphCJFSqSUJdmKsmSb +ZMnMUClSRKVUxFdSiqLVFtkS8nt+f93X+4/neb3Ovc/5nOfSXQ5Zuc8WEBCY +M0tA4P/PsY7nj5kxHCNOToCR3TmWUcs1qePGbeHwS6/BIUxdBlC80UWqLRGi +jN1HTNXV4diOwreCbTnw6Yv5JE19LSwbkEyceFsKEbQ9/T1qFtBZue3QyNsa +WBigl7tFzR42Mns+Dr1tBvmBH4l9yl4w8dbg8uDbLmh5vuZXsHww1K6/wWnK +GYZFNteC/i6IAbnO8m8umtMQJ2Roa/ElCZZ7OxXOWy+I9CGvOS09VyFRZ+P9 +bTbC2JzTwRZZlgXvrqysHlq6GNnZ/JyRZzkQwwltnC29DK9YiPTKh10HyUvd +UUkZYsgr013T/v0GnLfeZNQ8Jo71+pfsA78WgMztBpnZsyRw0YPJ6aj+AuCK +WY/rLJTAZZ0lj1JGC6C12ZGfoCCBD1fp53GECoFpGcCwNJfAP61qz88oFULN +1sy5r69KYLTlknxbt0KY3jja8IoliaYlmzjmHYVwxDDb6Xm4FGomVXnp1BaB +RZbIyOYLUtgb/DE24XkRMOadjGy4LIXom7Wxv7EIXrfYlvyXL4VXjFcHpnwo +Au3DiwQ7GqSwcai8rmy0CH7kBeb9lpFGo6HRGkWVm7B3+bZ+2VvSmPZWYkPm +uZtg+utvsG+3DP42uWu7ak0xHDe/pP6oTwYdXOqC9rCLgZut9V5sTAbdbWzM +Q02KQcra2bBcWBaV5Nb9Kt9SDH33nowLasti9rW0XZPOxZAUHh9wNUgWaxKj +/biRxdAlruz7eLEcMmVvjre0FIPkoSp5SUk59Kbokf7vimHLs92vPBXlcGAg +qWZhRzGUBcdoLlklh6Is89U634shunOwx263HEbi5FLziWLQLbh/4FeOHNqX +uWdcl+PCaZblPpk18iibW09TdOaCueO13wYm8sjIO+8U48YFkbDeMzZb5PEf +1+TckAcX0msj8uKd5bE4mzrH9ePCPYuK3rlR8phRMGLVG86Fwd3UseF38ig6 +FYKHOVxwPDoa/fIEDXk+v/n53VxQSjGR64mgId/NYLbfdy6pP654XjwNi9g5 +oNfLheAptdcmHBoGLlgQVvSbC5fPOIqXv6Rha+UOBYdZPHiZUJd5XV4B9y2/ +Iv9KngdruVdvn6pSwAUaU7FdVjwwfdswPfBMAad1hg3/s+HBNoE5Zk7NCnhf +kH22ajcPXK1838FXBdTPYo1GO/Jg4wl6aJiQIrqPbN7Z78mDwwpjucYaimip +2G3zKZQHjw9k9tceU8SprhK78HwebJoyFD15QhGv93klfy/kQUN8i75emCIa +pfafMi/mwbvy+WGcKEVM+2FkM13Cg4GFAaIR6Yp4aH0jc9V9HkjxzQ021iji +hp8F1Y0veeD9Zyjs2WI6fmEzOK/7SD1++yW+idJxLMRYtmWAB8I974sEpeio +EJcQ3zzIg+vtta1GDDqqnWgKqh7hQcfDy5p39Ol4j3bExnmKB9sjDNuynYgH +tYJ2C/GB9q/Yp8qNjrcuWlnrzuVD3zGG4EdPOp46M3Rn/jw+RHos1JYKoGOv +/paFJcJ8qN788czFSDoGvLBd0LWQD7qip1ecKKEjnfG04tUyPgjEjD6+UkZH +2SXqjDBRPjQIetmX3Sf7x8yRWCnGh4OjVhFDT+i44NsgJ3I5HzhtzPYD7+m4 +MTHBW06SD/6WVw9HdNLR3Dbe9D4x1i+em/uFjm3Mypu7pPjw8f7Yyo4BOtaL +n14RJc0Hicxn56wFGeheqbGoUZYPXyTZcv7CDOSY/PW3l+NDaXxJSdxiBuYu +a/LpJt4envqhXpKB9oNx9AF5Up+7t66xJgPNJ1hx3xT4YNvxqc5Rh4FSUnoc +R0U+MHfZOJzUZ2DvJ13LFuJqc6PIu8jAM/csj96j82FCY2mHlg0DP7icGHGl ++DCWIXN6lT0Db6ltEqojHlmixDR0YmDMmNczFSYfBoYNvUw9GShsU3Cgi7jr +vuuYfQgD29YxpVjKfOjU8r3qHM7Aisrs5xeIP2QGsfafZ+DceyE67cStZ2LD +/RIYGPufk7KfCh/qN98VibzOwKb122+dVuVD3YNHJbGFpJ5HoFxN/HjFS+sk +HgOXj97bOUX8UOxz6rVyBrr0un7yUePD/YheNuchA71l8jCX+N746KeCWgaa +tCU4tBKXti9QufOKgS/ULjSuVucDb6t4fUUzA9uFeEouxDerFHyq3zKwRYCz +9gJxgY760qcfGEjzGxO5TZyXq3frxWfyPlV0c98R54qDbdM3Bj707h6fIs46 +v2mitZeBzkIpi2kafEg96AhdowzMuLr2lB1xykePru9/GVgQuPH9EeJL249E +9M8w8I/3hYkY4oRHIarDcyhsTE77kE18cVXkiz/zKeyOEjx7hzjmeqLvPxEK +Ja2sB58SR0pmLJuznEKaP43RShwRdeP2fGkKtbp/S3cTh0+W7FpCo/D2cte2 +fuJQn8q/yykKZ/UJOI4Rn+x8miGjSuFYrWPRFPFxyyZU1KKwwnvJIwFNPhyr +be9W0qXQQyMvczbxkdXfzmkYkP3Ky8z+78M3BtV0WBQWbXhTPkPW+0pPvtQ3 +ptDaL3nsL/HBGKHDrI0UulnF/Rsm9pheImaymcJBP5vmHuL9h2TKzHZQKP7y +lH8nsetnpt1WGwpvNmZ3NhE771wxZWVP4bCDjUwNscMTw8zdThSa1q+k+MT2 +BqYmjm4Ulr978TeNeFfBtq+unhR+rnmYHUFsLWsX6elLobdWjpQPsWWsq8ah +IxS+01nibEW8bcanISCIQqZdZtBq4s1+QX7BIRT6pfe5SBCbd4cvDwunsMot +QWGUfN8NNrF3I85TeDlalddEbFKXYh9zgcI8m62iN4lZRTezkpPJeibPxp64 +XbEoc0MahbkTZcY6xMHJBddGMil8Ivth81ziu6fz0q0KKAxbH1JZSM6n7Tgn +bRaXfO/LE1Qw8Yh3biq/lELHhqQiM2Ld3VlXRCopfCiqLP+RnP+mV9dSHlRT +eHBSUfg68eH1GcneTyg0OwPiB4m52qmX6hsoPHNjMGWI9Jea0KX4c58pjHY/ +uvUH6b9nwYlxq79R+E3n465s4v2D8Re/9FAYoncmcjcxpz32gskIhVmiGY6P +lPigWHo+8t9cJvr9zOw7SfpdwulE2DFNJrqWZgqlk/y403I8VEmHiZb0V6UG +xNYWQadaVjPR4Ef+xSaSN4mrj57UBSZOzSS0zJB8WrzoUNCAJRO3bDPP30jj +w5xyl8P7A5nY8ET1Z4gM6S/tfYfETzIxerFdzRTJRxOOk+/jMCYKWAw3HycO +jdvrzYhmYkvItXRfkqd/3W09OtKZmOnr89lEgg9DohbOtjVM/Jj4iJtM8rzN +m/Haq46JnNLU9t6lJP+e/oXQl0w05c1MGBHHBxcp5LcyUfGonUinCB9Wdi3q +nOhh4pslrQVzF5HzXdLokCGmhNW7D1uOkHljuzD/VYmUEs6/FfBLldjIPYz9 +VF4Ja+w7o/fMIfVJ68j/UlHC5sCeyorZJF/CEj8gSwkNk/9tqPnHg57tNnu+ +uCnhdNFvkwwy75oLtF788VTC7LG2z0/JPKwQnLtu8SElbB0ZTOoj8zLqbpmM +/nElNN36zUDzJw9UFaTen49VwvavewpPfubBgYH3uzXKlHDVH60U1yYefLng +bOs/Txmx1vKaNZcHvj2ajJWLlNFFwWCrxk0ejJtN9PcvVUZLjeeV/wp4sEAw +McJTRhlPbDDsTrvOg5XHa287aymjtoOFPy+dByHuymLbdyqjZHpsDSuaBxJG +fY0amcq4ldoYM+HCg6y0e2k/c5XxJ6756uXMA7WJswdu5CujdHOd+jsHHrBu +y88wSpXR67j+qZv/v5+ob9eWeaKMK5NveGtv4wFfovSCcK8y7p3IS8taQ+4f +vwI3fdVXwS5W95DZQh7I6dDOCbNU8ODb1HgZYXLf8H9co2Gsgm/mdD75OYcH +l8aWsvw3q+DM0dWTIf+40DFdoD3jpII79TfXhgxxwX/RBzHpKBW8E9+550Mr +F1LVsGNLuwp67x3axcgk9zNX4SO3Q1XR5e6lNgNlLgxcM31QdVYVWyNkx3cw +uPDrXdi8F1GqKFEezzpA48Lv7RNpn5NUUW+dzfoYCS6Mr+t5LJKvir415X4l +c7kwe/lLCc/Xqqizg94R+K0YpB/HVcjT1ZAVk+A0kVtM/l8kZ5+vUcNbPqee +6EoWg+gr5Yv8X+qY3TEpfmy8COQieTv09TXx0cSyiZ1ZhXBFw3Cp2AEtNIvw +YAybF0C9jPHq4QRtDFFKd/X6cQPWytXEr2hdgZ5PzY5pO+aBiGBOwL7wlWjc +J+1z4gcHaKcVWHbKOnh6FV8rzioX5ivtLbOq08H2ox/tFj7LBm22NC/QQRdj +p0/eDnHKAv8O0VoLgVUIj49c3vUsA34NX7DZdGUV2rdqFWYppIHZiqepm7T0 +8FHyMwfIuQIPh9dNjjfo4V4xC9ojsWTw1dR93+S+GtfNG9l0oDUJ2ANuLXbz +9dF4b+Uey6QE2MCU2ro4Rx8/FsucSDKKA9Ww6KAaAwNs0ggUzy+LAXV3wyql +9waYpFUvWacfCe4PPc7e9luDjnV9nxZhBFRltbgNiRtiT0Ly6Sn7cBjJnxlf +cdcQNURokbNyQ8FVqWh+6ta12E/RFOK9TsCQepJ+6eBaZK3ZoBq1NxDucSY/ +j0auw7hvH4KPzgsAe1MK19FYGDYqESmg4geyPufLtatZ+O7pZVZ1uzeIL/Au +2bqLjULHfaVfH/EAzvqQ4EE7Nu66m5Fydp8H6IZcXJ+0l415N+48NN3uAdsG ++W/a9rHxZoLQ0Hd1DzjXOjrh6s1Gjzg98/KuA/AnJ9Qk+DQb2/65vAm3PgDv +1yX9l1fExk4u1yoa94PHUU76Ji4brzSvEytYsR/GuHfc+/hsPNO3vb6Zth9E +GW3jOmVs/CouPdds2h02C8vLPahmY4HUa5nSCneobMlz++8NG21o9r9jDdzB +QuSe1rE2NpY1pcTYqbhDm9nzMal2Nmr7aT5eIekOIxW9kY6fyP7GVdOTY26g +lb2y+GcPG6vo6ZOid92g8r3xsQv9bJy0vvJH94YbWCzfCSsG2agr8N7TIcUN +9p8/2hQwysZXmtVJTYFuMFJ9LlXyDxtNQkuMZT3cIPxvimvFXzba9Z/edmi3 +GyzVK9B0mGbj+Mn226/M3eCaT8XozAwbL93wPKRv6Ab/A1BhWn0= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "PlotRange" -> {{0, 30}, {0., 0.06317154309924222}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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" -> @@ -10489,19 +11486,19 @@ uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "PlotRange" -> {{0, 30}, {0., 0.06317154309924222}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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|>, @@ -10515,116 +11512,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:eJwV13k8VO8XB3AlpU1FdoaZO/alSKRmnEOKtBKKsmQphCJFSqSUJdmKsmSb +ZMnMUClSRKVUxFdSiqLVFtkS8nt+f93X+4/neb3Ovc/5nOfSXQ5Zuc8WEBCY +M0tA4P/PsY7nj5kxHCNOToCR3TmWUcs1qePGbeHwS6/BIUxdBlC80UWqLRGi +jN1HTNXV4diOwreCbTnw6Yv5JE19LSwbkEyceFsKEbQ9/T1qFtBZue3QyNsa +WBigl7tFzR42Mns+Dr1tBvmBH4l9yl4w8dbg8uDbLmh5vuZXsHww1K6/wWnK +GYZFNteC/i6IAbnO8m8umtMQJ2Roa/ElCZZ7OxXOWy+I9CGvOS09VyFRZ+P9 +bTbC2JzTwRZZlgXvrqysHlq6GNnZ/JyRZzkQwwltnC29DK9YiPTKh10HyUvd +UUkZYsgr013T/v0GnLfeZNQ8Jo71+pfsA78WgMztBpnZsyRw0YPJ6aj+AuCK +WY/rLJTAZZ0lj1JGC6C12ZGfoCCBD1fp53GECoFpGcCwNJfAP61qz88oFULN +1sy5r69KYLTlknxbt0KY3jja8IoliaYlmzjmHYVwxDDb6Xm4FGomVXnp1BaB +RZbIyOYLUtgb/DE24XkRMOadjGy4LIXom7Wxv7EIXrfYlvyXL4VXjFcHpnwo +Au3DiwQ7GqSwcai8rmy0CH7kBeb9lpFGo6HRGkWVm7B3+bZ+2VvSmPZWYkPm +uZtg+utvsG+3DP42uWu7ak0xHDe/pP6oTwYdXOqC9rCLgZut9V5sTAbdbWzM +Q02KQcra2bBcWBaV5Nb9Kt9SDH33nowLasti9rW0XZPOxZAUHh9wNUgWaxKj +/biRxdAlruz7eLEcMmVvjre0FIPkoSp5SUk59Kbokf7vimHLs92vPBXlcGAg +qWZhRzGUBcdoLlklh6Is89U634shunOwx263HEbi5FLziWLQLbh/4FeOHNqX +uWdcl+PCaZblPpk18iibW09TdOaCueO13wYm8sjIO+8U48YFkbDeMzZb5PEf +1+TckAcX0msj8uKd5bE4mzrH9ePCPYuK3rlR8phRMGLVG86Fwd3UseF38ig6 +FYKHOVxwPDoa/fIEDXk+v/n53VxQSjGR64mgId/NYLbfdy6pP654XjwNi9g5 +oNfLheAptdcmHBoGLlgQVvSbC5fPOIqXv6Rha+UOBYdZPHiZUJd5XV4B9y2/ +Iv9KngdruVdvn6pSwAUaU7FdVjwwfdswPfBMAad1hg3/s+HBNoE5Zk7NCnhf +kH22ajcPXK1838FXBdTPYo1GO/Jg4wl6aJiQIrqPbN7Z78mDwwpjucYaimip +2G3zKZQHjw9k9tceU8SprhK78HwebJoyFD15QhGv93klfy/kQUN8i75emCIa +pfafMi/mwbvy+WGcKEVM+2FkM13Cg4GFAaIR6Yp4aH0jc9V9HkjxzQ021iji +hp8F1Y0veeD9Zyjs2WI6fmEzOK/7SD1++yW+idJxLMRYtmWAB8I974sEpeio +EJcQ3zzIg+vtta1GDDqqnWgKqh7hQcfDy5p39Ol4j3bExnmKB9sjDNuynYgH +tYJ2C/GB9q/Yp8qNjrcuWlnrzuVD3zGG4EdPOp46M3Rn/jw+RHos1JYKoGOv +/paFJcJ8qN788czFSDoGvLBd0LWQD7qip1ecKKEjnfG04tUyPgjEjD6+UkZH +2SXqjDBRPjQIetmX3Sf7x8yRWCnGh4OjVhFDT+i44NsgJ3I5HzhtzPYD7+m4 +MTHBW06SD/6WVw9HdNLR3Dbe9D4x1i+em/uFjm3Mypu7pPjw8f7Yyo4BOtaL +n14RJc0Hicxn56wFGeheqbGoUZYPXyTZcv7CDOSY/PW3l+NDaXxJSdxiBuYu +a/LpJt4envqhXpKB9oNx9AF5Up+7t66xJgPNJ1hx3xT4YNvxqc5Rh4FSUnoc +R0U+MHfZOJzUZ2DvJ13LFuJqc6PIu8jAM/csj96j82FCY2mHlg0DP7icGHGl ++DCWIXN6lT0Db6ltEqojHlmixDR0YmDMmNczFSYfBoYNvUw9GShsU3Cgi7jr +vuuYfQgD29YxpVjKfOjU8r3qHM7Aisrs5xeIP2QGsfafZ+DceyE67cStZ2LD +/RIYGPufk7KfCh/qN98VibzOwKb122+dVuVD3YNHJbGFpJ5HoFxN/HjFS+sk +HgOXj97bOUX8UOxz6rVyBrr0un7yUePD/YheNuchA71l8jCX+N746KeCWgaa +tCU4tBKXti9QufOKgS/ULjSuVucDb6t4fUUzA9uFeEouxDerFHyq3zKwRYCz +9gJxgY760qcfGEjzGxO5TZyXq3frxWfyPlV0c98R54qDbdM3Bj707h6fIs46 +v2mitZeBzkIpi2kafEg96AhdowzMuLr2lB1xykePru9/GVgQuPH9EeJL249E +9M8w8I/3hYkY4oRHIarDcyhsTE77kE18cVXkiz/zKeyOEjx7hzjmeqLvPxEK +Ja2sB58SR0pmLJuznEKaP43RShwRdeP2fGkKtbp/S3cTh0+W7FpCo/D2cte2 +fuJQn8q/yykKZ/UJOI4Rn+x8miGjSuFYrWPRFPFxyyZU1KKwwnvJIwFNPhyr +be9W0qXQQyMvczbxkdXfzmkYkP3Ky8z+78M3BtV0WBQWbXhTPkPW+0pPvtQ3 +ptDaL3nsL/HBGKHDrI0UulnF/Rsm9pheImaymcJBP5vmHuL9h2TKzHZQKP7y +lH8nsetnpt1WGwpvNmZ3NhE771wxZWVP4bCDjUwNscMTw8zdThSa1q+k+MT2 +BqYmjm4Ulr978TeNeFfBtq+unhR+rnmYHUFsLWsX6elLobdWjpQPsWWsq8ah +IxS+01nibEW8bcanISCIQqZdZtBq4s1+QX7BIRT6pfe5SBCbd4cvDwunsMot +QWGUfN8NNrF3I85TeDlalddEbFKXYh9zgcI8m62iN4lZRTezkpPJeibPxp64 +XbEoc0MahbkTZcY6xMHJBddGMil8Ivth81ziu6fz0q0KKAxbH1JZSM6n7Tgn +bRaXfO/LE1Qw8Yh3biq/lELHhqQiM2Ld3VlXRCopfCiqLP+RnP+mV9dSHlRT +eHBSUfg68eH1GcneTyg0OwPiB4m52qmX6hsoPHNjMGWI9Jea0KX4c58pjHY/ +uvUH6b9nwYlxq79R+E3n465s4v2D8Re/9FAYoncmcjcxpz32gskIhVmiGY6P +lPigWHo+8t9cJvr9zOw7SfpdwulE2DFNJrqWZgqlk/y403I8VEmHiZb0V6UG +xNYWQadaVjPR4Ef+xSaSN4mrj57UBSZOzSS0zJB8WrzoUNCAJRO3bDPP30jj +w5xyl8P7A5nY8ET1Z4gM6S/tfYfETzIxerFdzRTJRxOOk+/jMCYKWAw3HycO +jdvrzYhmYkvItXRfkqd/3W09OtKZmOnr89lEgg9DohbOtjVM/Jj4iJtM8rzN +m/Haq46JnNLU9t6lJP+e/oXQl0w05c1MGBHHBxcp5LcyUfGonUinCB9Wdi3q +nOhh4pslrQVzF5HzXdLokCGmhNW7D1uOkHljuzD/VYmUEs6/FfBLldjIPYz9 +VF4Ja+w7o/fMIfVJ68j/UlHC5sCeyorZJF/CEj8gSwkNk/9tqPnHg57tNnu+ +uCnhdNFvkwwy75oLtF788VTC7LG2z0/JPKwQnLtu8SElbB0ZTOoj8zLqbpmM +/nElNN36zUDzJw9UFaTen49VwvavewpPfubBgYH3uzXKlHDVH60U1yYefLng +bOs/Txmx1vKaNZcHvj2ajJWLlNFFwWCrxk0ejJtN9PcvVUZLjeeV/wp4sEAw +McJTRhlPbDDsTrvOg5XHa287aymjtoOFPy+dByHuymLbdyqjZHpsDSuaBxJG +fY0amcq4ldoYM+HCg6y0e2k/c5XxJ6756uXMA7WJswdu5CujdHOd+jsHHrBu +y88wSpXR67j+qZv/v5+ob9eWeaKMK5NveGtv4wFfovSCcK8y7p3IS8taQ+4f +vwI3fdVXwS5W95DZQh7I6dDOCbNU8ODb1HgZYXLf8H9co2Gsgm/mdD75OYcH +l8aWsvw3q+DM0dWTIf+40DFdoD3jpII79TfXhgxxwX/RBzHpKBW8E9+550Mr +F1LVsGNLuwp67x3axcgk9zNX4SO3Q1XR5e6lNgNlLgxcM31QdVYVWyNkx3cw +uPDrXdi8F1GqKFEezzpA48Lv7RNpn5NUUW+dzfoYCS6Mr+t5LJKvir415X4l +c7kwe/lLCc/Xqqizg94R+K0YpB/HVcjT1ZAVk+A0kVtM/l8kZ5+vUcNbPqee +6EoWg+gr5Yv8X+qY3TEpfmy8COQieTv09TXx0cSyiZ1ZhXBFw3Cp2AEtNIvw +YAybF0C9jPHq4QRtDFFKd/X6cQPWytXEr2hdgZ5PzY5pO+aBiGBOwL7wlWjc +J+1z4gcHaKcVWHbKOnh6FV8rzioX5ivtLbOq08H2ox/tFj7LBm22NC/QQRdj +p0/eDnHKAv8O0VoLgVUIj49c3vUsA34NX7DZdGUV2rdqFWYppIHZiqepm7T0 +8FHyMwfIuQIPh9dNjjfo4V4xC9ojsWTw1dR93+S+GtfNG9l0oDUJ2ANuLXbz +9dF4b+Uey6QE2MCU2ro4Rx8/FsucSDKKA9Ww6KAaAwNs0ggUzy+LAXV3wyql +9waYpFUvWacfCe4PPc7e9luDjnV9nxZhBFRltbgNiRtiT0Ly6Sn7cBjJnxlf +cdcQNURokbNyQ8FVqWh+6ta12E/RFOK9TsCQepJ+6eBaZK3ZoBq1NxDucSY/ +j0auw7hvH4KPzgsAe1MK19FYGDYqESmg4geyPufLtatZ+O7pZVZ1uzeIL/Au +2bqLjULHfaVfH/EAzvqQ4EE7Nu66m5Fydp8H6IZcXJ+0l415N+48NN3uAdsG ++W/a9rHxZoLQ0Hd1DzjXOjrh6s1Gjzg98/KuA/AnJ9Qk+DQb2/65vAm3PgDv +1yX9l1fExk4u1yoa94PHUU76Ji4brzSvEytYsR/GuHfc+/hsPNO3vb6Zth9E +GW3jOmVs/CouPdds2h02C8vLPahmY4HUa5nSCneobMlz++8NG21o9r9jDdzB +QuSe1rE2NpY1pcTYqbhDm9nzMal2Nmr7aT5eIekOIxW9kY6fyP7GVdOTY26g +lb2y+GcPG6vo6ZOid92g8r3xsQv9bJy0vvJH94YbWCzfCSsG2agr8N7TIcUN +9p8/2hQwysZXmtVJTYFuMFJ9LlXyDxtNQkuMZT3cIPxvimvFXzba9Z/edmi3 +GyzVK9B0mGbj+Mn226/M3eCaT8XozAwbL93wPKRv6Ab/A1BhWn0= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "PlotRange" -> {{0, 30}, {0., 0.06317154309924222}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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|>, @@ -10635,6 +11630,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}}, @@ -10662,7 +11658,8 @@ uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.13473082946272152`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06317154309924222}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -10670,22 +11667,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.9940149135024548`*^9}, CellLabel-> - "Out[112]=",ExpressionUUID->"cd997d80-b342-8b4c-95c9-b33408882f73"] + "Out[317]=",ExpressionUUID->"a3ee5c8c-e35d-472c-9f34-282d27f563be"] }, 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[318]:=",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[319]:=",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:eJwV13k8VO8XB3AlpU1FdoaZO/alSKRmnEOKtBKKsmQphCJFSqSUJdmKsmSb +ZMnMUClSRKVUxFdSiqLVFtkS8nt+f93X+4/neb3Ovc/5nOfSXQ5Zuc8WEBCY +M0tA4P/PsY7nj5kxHCNOToCR3TmWUcs1qePGbeHwS6/BIUxdBlC80UWqLRGi +jN1HTNXV4diOwreCbTnw6Yv5JE19LSwbkEyceFsKEbQ9/T1qFtBZue3QyNsa +WBigl7tFzR42Mns+Dr1tBvmBH4l9yl4w8dbg8uDbLmh5vuZXsHww1K6/wWnK +GYZFNteC/i6IAbnO8m8umtMQJ2Roa/ElCZZ7OxXOWy+I9CGvOS09VyFRZ+P9 +bTbC2JzTwRZZlgXvrqysHlq6GNnZ/JyRZzkQwwltnC29DK9YiPTKh10HyUvd +UUkZYsgr013T/v0GnLfeZNQ8Jo71+pfsA78WgMztBpnZsyRw0YPJ6aj+AuCK +WY/rLJTAZZ0lj1JGC6C12ZGfoCCBD1fp53GECoFpGcCwNJfAP61qz88oFULN +1sy5r69KYLTlknxbt0KY3jja8IoliaYlmzjmHYVwxDDb6Xm4FGomVXnp1BaB +RZbIyOYLUtgb/DE24XkRMOadjGy4LIXom7Wxv7EIXrfYlvyXL4VXjFcHpnwo +Au3DiwQ7GqSwcai8rmy0CH7kBeb9lpFGo6HRGkWVm7B3+bZ+2VvSmPZWYkPm +uZtg+utvsG+3DP42uWu7ak0xHDe/pP6oTwYdXOqC9rCLgZut9V5sTAbdbWzM +Q02KQcra2bBcWBaV5Nb9Kt9SDH33nowLasti9rW0XZPOxZAUHh9wNUgWaxKj +/biRxdAlruz7eLEcMmVvjre0FIPkoSp5SUk59Kbokf7vimHLs92vPBXlcGAg +qWZhRzGUBcdoLlklh6Is89U634shunOwx263HEbi5FLziWLQLbh/4FeOHNqX +uWdcl+PCaZblPpk18iibW09TdOaCueO13wYm8sjIO+8U48YFkbDeMzZb5PEf +1+TckAcX0msj8uKd5bE4mzrH9ePCPYuK3rlR8phRMGLVG86Fwd3UseF38ig6 +FYKHOVxwPDoa/fIEDXk+v/n53VxQSjGR64mgId/NYLbfdy6pP654XjwNi9g5 +oNfLheAptdcmHBoGLlgQVvSbC5fPOIqXv6Rha+UOBYdZPHiZUJd5XV4B9y2/ +Iv9KngdruVdvn6pSwAUaU7FdVjwwfdswPfBMAad1hg3/s+HBNoE5Zk7NCnhf +kH22ajcPXK1838FXBdTPYo1GO/Jg4wl6aJiQIrqPbN7Z78mDwwpjucYaimip +2G3zKZQHjw9k9tceU8SprhK78HwebJoyFD15QhGv93klfy/kQUN8i75emCIa +pfafMi/mwbvy+WGcKEVM+2FkM13Cg4GFAaIR6Yp4aH0jc9V9HkjxzQ021iji +hp8F1Y0veeD9Zyjs2WI6fmEzOK/7SD1++yW+idJxLMRYtmWAB8I974sEpeio +EJcQ3zzIg+vtta1GDDqqnWgKqh7hQcfDy5p39Ol4j3bExnmKB9sjDNuynYgH +tYJ2C/GB9q/Yp8qNjrcuWlnrzuVD3zGG4EdPOp46M3Rn/jw+RHos1JYKoGOv +/paFJcJ8qN788czFSDoGvLBd0LWQD7qip1ecKKEjnfG04tUyPgjEjD6+UkZH +2SXqjDBRPjQIetmX3Sf7x8yRWCnGh4OjVhFDT+i44NsgJ3I5HzhtzPYD7+m4 +MTHBW06SD/6WVw9HdNLR3Dbe9D4x1i+em/uFjm3Mypu7pPjw8f7Yyo4BOtaL +n14RJc0Hicxn56wFGeheqbGoUZYPXyTZcv7CDOSY/PW3l+NDaXxJSdxiBuYu +a/LpJt4envqhXpKB9oNx9AF5Up+7t66xJgPNJ1hx3xT4YNvxqc5Rh4FSUnoc +R0U+MHfZOJzUZ2DvJ13LFuJqc6PIu8jAM/csj96j82FCY2mHlg0DP7icGHGl ++DCWIXN6lT0Db6ltEqojHlmixDR0YmDMmNczFSYfBoYNvUw9GShsU3Cgi7jr +vuuYfQgD29YxpVjKfOjU8r3qHM7Aisrs5xeIP2QGsfafZ+DceyE67cStZ2LD +/RIYGPufk7KfCh/qN98VibzOwKb122+dVuVD3YNHJbGFpJ5HoFxN/HjFS+sk +HgOXj97bOUX8UOxz6rVyBrr0un7yUePD/YheNuchA71l8jCX+N746KeCWgaa +tCU4tBKXti9QufOKgS/ULjSuVucDb6t4fUUzA9uFeEouxDerFHyq3zKwRYCz +9gJxgY760qcfGEjzGxO5TZyXq3frxWfyPlV0c98R54qDbdM3Bj707h6fIs46 +v2mitZeBzkIpi2kafEg96AhdowzMuLr2lB1xykePru9/GVgQuPH9EeJL249E +9M8w8I/3hYkY4oRHIarDcyhsTE77kE18cVXkiz/zKeyOEjx7hzjmeqLvPxEK +Ja2sB58SR0pmLJuznEKaP43RShwRdeP2fGkKtbp/S3cTh0+W7FpCo/D2cte2 +fuJQn8q/yykKZ/UJOI4Rn+x8miGjSuFYrWPRFPFxyyZU1KKwwnvJIwFNPhyr +be9W0qXQQyMvczbxkdXfzmkYkP3Ky8z+78M3BtV0WBQWbXhTPkPW+0pPvtQ3 +ptDaL3nsL/HBGKHDrI0UulnF/Rsm9pheImaymcJBP5vmHuL9h2TKzHZQKP7y +lH8nsetnpt1WGwpvNmZ3NhE771wxZWVP4bCDjUwNscMTw8zdThSa1q+k+MT2 +BqYmjm4Ulr978TeNeFfBtq+unhR+rnmYHUFsLWsX6elLobdWjpQPsWWsq8ah +IxS+01nibEW8bcanISCIQqZdZtBq4s1+QX7BIRT6pfe5SBCbd4cvDwunsMot +QWGUfN8NNrF3I85TeDlalddEbFKXYh9zgcI8m62iN4lZRTezkpPJeibPxp64 +XbEoc0MahbkTZcY6xMHJBddGMil8Ivth81ziu6fz0q0KKAxbH1JZSM6n7Tgn +bRaXfO/LE1Qw8Yh3biq/lELHhqQiM2Ld3VlXRCopfCiqLP+RnP+mV9dSHlRT +eHBSUfg68eH1GcneTyg0OwPiB4m52qmX6hsoPHNjMGWI9Jea0KX4c58pjHY/ +uvUH6b9nwYlxq79R+E3n465s4v2D8Re/9FAYoncmcjcxpz32gskIhVmiGY6P +lPigWHo+8t9cJvr9zOw7SfpdwulE2DFNJrqWZgqlk/y403I8VEmHiZb0V6UG +xNYWQadaVjPR4Ef+xSaSN4mrj57UBSZOzSS0zJB8WrzoUNCAJRO3bDPP30jj +w5xyl8P7A5nY8ET1Z4gM6S/tfYfETzIxerFdzRTJRxOOk+/jMCYKWAw3HycO +jdvrzYhmYkvItXRfkqd/3W09OtKZmOnr89lEgg9DohbOtjVM/Jj4iJtM8rzN +m/Haq46JnNLU9t6lJP+e/oXQl0w05c1MGBHHBxcp5LcyUfGonUinCB9Wdi3q +nOhh4pslrQVzF5HzXdLokCGmhNW7D1uOkHljuzD/VYmUEs6/FfBLldjIPYz9 +VF4Ja+w7o/fMIfVJ68j/UlHC5sCeyorZJF/CEj8gSwkNk/9tqPnHg57tNnu+ +uCnhdNFvkwwy75oLtF788VTC7LG2z0/JPKwQnLtu8SElbB0ZTOoj8zLqbpmM +/nElNN36zUDzJw9UFaTen49VwvavewpPfubBgYH3uzXKlHDVH60U1yYefLng +bOs/Txmx1vKaNZcHvj2ajJWLlNFFwWCrxk0ejJtN9PcvVUZLjeeV/wp4sEAw +McJTRhlPbDDsTrvOg5XHa287aymjtoOFPy+dByHuymLbdyqjZHpsDSuaBxJG +fY0amcq4ldoYM+HCg6y0e2k/c5XxJ6756uXMA7WJswdu5CujdHOd+jsHHrBu +y88wSpXR67j+qZv/v5+ob9eWeaKMK5NveGtv4wFfovSCcK8y7p3IS8taQ+4f +vwI3fdVXwS5W95DZQh7I6dDOCbNU8ODb1HgZYXLf8H9co2Gsgm/mdD75OYcH +l8aWsvw3q+DM0dWTIf+40DFdoD3jpII79TfXhgxxwX/RBzHpKBW8E9+550Mr +F1LVsGNLuwp67x3axcgk9zNX4SO3Q1XR5e6lNgNlLgxcM31QdVYVWyNkx3cw +uPDrXdi8F1GqKFEezzpA48Lv7RNpn5NUUW+dzfoYCS6Mr+t5LJKvir415X4l +c7kwe/lLCc/Xqqizg94R+K0YpB/HVcjT1ZAVk+A0kVtM/l8kZ5+vUcNbPqee +6EoWg+gr5Yv8X+qY3TEpfmy8COQieTv09TXx0cSyiZ1ZhXBFw3Cp2AEtNIvw +YAybF0C9jPHq4QRtDFFKd/X6cQPWytXEr2hdgZ5PzY5pO+aBiGBOwL7wlWjc +J+1z4gcHaKcVWHbKOnh6FV8rzioX5ivtLbOq08H2ox/tFj7LBm22NC/QQRdj +p0/eDnHKAv8O0VoLgVUIj49c3vUsA34NX7DZdGUV2rdqFWYppIHZiqepm7T0 +8FHyMwfIuQIPh9dNjjfo4V4xC9ojsWTw1dR93+S+GtfNG9l0oDUJ2ANuLXbz +9dF4b+Uey6QE2MCU2ro4Rx8/FsucSDKKA9Ww6KAaAwNs0ggUzy+LAXV3wyql +9waYpFUvWacfCe4PPc7e9luDjnV9nxZhBFRltbgNiRtiT0Ly6Sn7cBjJnxlf +cdcQNURokbNyQ8FVqWh+6ta12E/RFOK9TsCQepJ+6eBaZK3ZoBq1NxDucSY/ +j0auw7hvH4KPzgsAe1MK19FYGDYqESmg4geyPufLtatZ+O7pZVZ1uzeIL/Au +2bqLjULHfaVfH/EAzvqQ4EE7Nu66m5Fydp8H6IZcXJ+0l415N+48NN3uAdsG ++W/a9rHxZoLQ0Hd1DzjXOjrh6s1Gjzg98/KuA/AnJ9Qk+DQb2/65vAm3PgDv +1yX9l1fExk4u1yoa94PHUU76Ji4brzSvEytYsR/GuHfc+/hsPNO3vb6Zth9E +GW3jOmVs/CouPdds2h02C8vLPahmY4HUa5nSCneobMlz++8NG21o9r9jDdzB +QuSe1rE2NpY1pcTYqbhDm9nzMal2Nmr7aT5eIekOIxW9kY6fyP7GVdOTY26g +lb2y+GcPG6vo6ZOid92g8r3xsQv9bJy0vvJH94YbWCzfCSsG2agr8N7TIcUN +9p8/2hQwysZXmtVJTYFuMFJ9LlXyDxtNQkuMZT3cIPxvimvFXzba9Z/edmi3 +GyzVK9B0mGbj+Mn226/M3eCaT8XozAwbL93wPKRv6Ab/A1BhWn0= + "]]}, + 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:eJwV13k8VO8XB3AlpU1FdoaZO/alSKRmnEOKtBKKsmQphCJFSqSUJdmKsmSb +ZMnMUClSRKVUxFdSiqLVFtkS8nt+f93X+4/neb3Ovc/5nOfSXQ5Zuc8WEBCY +M0tA4P/PsY7nj5kxHCNOToCR3TmWUcs1qePGbeHwS6/BIUxdBlC80UWqLRGi +jN1HTNXV4diOwreCbTnw6Yv5JE19LSwbkEyceFsKEbQ9/T1qFtBZue3QyNsa +WBigl7tFzR42Mns+Dr1tBvmBH4l9yl4w8dbg8uDbLmh5vuZXsHww1K6/wWnK +GYZFNteC/i6IAbnO8m8umtMQJ2Roa/ElCZZ7OxXOWy+I9CGvOS09VyFRZ+P9 +bTbC2JzTwRZZlgXvrqysHlq6GNnZ/JyRZzkQwwltnC29DK9YiPTKh10HyUvd +UUkZYsgr013T/v0GnLfeZNQ8Jo71+pfsA78WgMztBpnZsyRw0YPJ6aj+AuCK +WY/rLJTAZZ0lj1JGC6C12ZGfoCCBD1fp53GECoFpGcCwNJfAP61qz88oFULN +1sy5r69KYLTlknxbt0KY3jja8IoliaYlmzjmHYVwxDDb6Xm4FGomVXnp1BaB +RZbIyOYLUtgb/DE24XkRMOadjGy4LIXom7Wxv7EIXrfYlvyXL4VXjFcHpnwo +Au3DiwQ7GqSwcai8rmy0CH7kBeb9lpFGo6HRGkWVm7B3+bZ+2VvSmPZWYkPm +uZtg+utvsG+3DP42uWu7ak0xHDe/pP6oTwYdXOqC9rCLgZut9V5sTAbdbWzM +Q02KQcra2bBcWBaV5Nb9Kt9SDH33nowLasti9rW0XZPOxZAUHh9wNUgWaxKj +/biRxdAlruz7eLEcMmVvjre0FIPkoSp5SUk59Kbokf7vimHLs92vPBXlcGAg +qWZhRzGUBcdoLlklh6Is89U634shunOwx263HEbi5FLziWLQLbh/4FeOHNqX +uWdcl+PCaZblPpk18iibW09TdOaCueO13wYm8sjIO+8U48YFkbDeMzZb5PEf +1+TckAcX0msj8uKd5bE4mzrH9ePCPYuK3rlR8phRMGLVG86Fwd3UseF38ig6 +FYKHOVxwPDoa/fIEDXk+v/n53VxQSjGR64mgId/NYLbfdy6pP654XjwNi9g5 +oNfLheAptdcmHBoGLlgQVvSbC5fPOIqXv6Rha+UOBYdZPHiZUJd5XV4B9y2/ +Iv9KngdruVdvn6pSwAUaU7FdVjwwfdswPfBMAad1hg3/s+HBNoE5Zk7NCnhf +kH22ajcPXK1838FXBdTPYo1GO/Jg4wl6aJiQIrqPbN7Z78mDwwpjucYaimip +2G3zKZQHjw9k9tceU8SprhK78HwebJoyFD15QhGv93klfy/kQUN8i75emCIa +pfafMi/mwbvy+WGcKEVM+2FkM13Cg4GFAaIR6Yp4aH0jc9V9HkjxzQ021iji +hp8F1Y0veeD9Zyjs2WI6fmEzOK/7SD1++yW+idJxLMRYtmWAB8I974sEpeio +EJcQ3zzIg+vtta1GDDqqnWgKqh7hQcfDy5p39Ol4j3bExnmKB9sjDNuynYgH +tYJ2C/GB9q/Yp8qNjrcuWlnrzuVD3zGG4EdPOp46M3Rn/jw+RHos1JYKoGOv +/paFJcJ8qN788czFSDoGvLBd0LWQD7qip1ecKKEjnfG04tUyPgjEjD6+UkZH +2SXqjDBRPjQIetmX3Sf7x8yRWCnGh4OjVhFDT+i44NsgJ3I5HzhtzPYD7+m4 +MTHBW06SD/6WVw9HdNLR3Dbe9D4x1i+em/uFjm3Mypu7pPjw8f7Yyo4BOtaL +n14RJc0Hicxn56wFGeheqbGoUZYPXyTZcv7CDOSY/PW3l+NDaXxJSdxiBuYu +a/LpJt4envqhXpKB9oNx9AF5Up+7t66xJgPNJ1hx3xT4YNvxqc5Rh4FSUnoc +R0U+MHfZOJzUZ2DvJ13LFuJqc6PIu8jAM/csj96j82FCY2mHlg0DP7icGHGl ++DCWIXN6lT0Db6ltEqojHlmixDR0YmDMmNczFSYfBoYNvUw9GShsU3Cgi7jr +vuuYfQgD29YxpVjKfOjU8r3qHM7Aisrs5xeIP2QGsfafZ+DceyE67cStZ2LD +/RIYGPufk7KfCh/qN98VibzOwKb122+dVuVD3YNHJbGFpJ5HoFxN/HjFS+sk +HgOXj97bOUX8UOxz6rVyBrr0un7yUePD/YheNuchA71l8jCX+N746KeCWgaa +tCU4tBKXti9QufOKgS/ULjSuVucDb6t4fUUzA9uFeEouxDerFHyq3zKwRYCz +9gJxgY760qcfGEjzGxO5TZyXq3frxWfyPlV0c98R54qDbdM3Bj707h6fIs46 +v2mitZeBzkIpi2kafEg96AhdowzMuLr2lB1xykePru9/GVgQuPH9EeJL249E +9M8w8I/3hYkY4oRHIarDcyhsTE77kE18cVXkiz/zKeyOEjx7hzjmeqLvPxEK +Ja2sB58SR0pmLJuznEKaP43RShwRdeP2fGkKtbp/S3cTh0+W7FpCo/D2cte2 +fuJQn8q/yykKZ/UJOI4Rn+x8miGjSuFYrWPRFPFxyyZU1KKwwnvJIwFNPhyr +be9W0qXQQyMvczbxkdXfzmkYkP3Ky8z+78M3BtV0WBQWbXhTPkPW+0pPvtQ3 +ptDaL3nsL/HBGKHDrI0UulnF/Rsm9pheImaymcJBP5vmHuL9h2TKzHZQKP7y +lH8nsetnpt1WGwpvNmZ3NhE771wxZWVP4bCDjUwNscMTw8zdThSa1q+k+MT2 +BqYmjm4Ulr978TeNeFfBtq+unhR+rnmYHUFsLWsX6elLobdWjpQPsWWsq8ah +IxS+01nibEW8bcanISCIQqZdZtBq4s1+QX7BIRT6pfe5SBCbd4cvDwunsMot +QWGUfN8NNrF3I85TeDlalddEbFKXYh9zgcI8m62iN4lZRTezkpPJeibPxp64 +XbEoc0MahbkTZcY6xMHJBddGMil8Ivth81ziu6fz0q0KKAxbH1JZSM6n7Tgn +bRaXfO/LE1Qw8Yh3biq/lELHhqQiM2Ld3VlXRCopfCiqLP+RnP+mV9dSHlRT +eHBSUfg68eH1GcneTyg0OwPiB4m52qmX6hsoPHNjMGWI9Jea0KX4c58pjHY/ +uvUH6b9nwYlxq79R+E3n465s4v2D8Re/9FAYoncmcjcxpz32gskIhVmiGY6P +lPigWHo+8t9cJvr9zOw7SfpdwulE2DFNJrqWZgqlk/y403I8VEmHiZb0V6UG +xNYWQadaVjPR4Ef+xSaSN4mrj57UBSZOzSS0zJB8WrzoUNCAJRO3bDPP30jj +w5xyl8P7A5nY8ET1Z4gM6S/tfYfETzIxerFdzRTJRxOOk+/jMCYKWAw3HycO +jdvrzYhmYkvItXRfkqd/3W09OtKZmOnr89lEgg9DohbOtjVM/Jj4iJtM8rzN +m/Haq46JnNLU9t6lJP+e/oXQl0w05c1MGBHHBxcp5LcyUfGonUinCB9Wdi3q +nOhh4pslrQVzF5HzXdLokCGmhNW7D1uOkHljuzD/VYmUEs6/FfBLldjIPYz9 +VF4Ja+w7o/fMIfVJ68j/UlHC5sCeyorZJF/CEj8gSwkNk/9tqPnHg57tNnu+ +uCnhdNFvkwwy75oLtF788VTC7LG2z0/JPKwQnLtu8SElbB0ZTOoj8zLqbpmM +/nElNN36zUDzJw9UFaTen49VwvavewpPfubBgYH3uzXKlHDVH60U1yYefLng +bOs/Txmx1vKaNZcHvj2ajJWLlNFFwWCrxk0ejJtN9PcvVUZLjeeV/wp4sEAw +McJTRhlPbDDsTrvOg5XHa287aymjtoOFPy+dByHuymLbdyqjZHpsDSuaBxJG +fY0amcq4ldoYM+HCg6y0e2k/c5XxJ6756uXMA7WJswdu5CujdHOd+jsHHrBu +y88wSpXR67j+qZv/v5+ob9eWeaKMK5NveGtv4wFfovSCcK8y7p3IS8taQ+4f +vwI3fdVXwS5W95DZQh7I6dDOCbNU8ODb1HgZYXLf8H9co2Gsgm/mdD75OYcH +l8aWsvw3q+DM0dWTIf+40DFdoD3jpII79TfXhgxxwX/RBzHpKBW8E9+550Mr +F1LVsGNLuwp67x3axcgk9zNX4SO3Q1XR5e6lNgNlLgxcM31QdVYVWyNkx3cw +uPDrXdi8F1GqKFEezzpA48Lv7RNpn5NUUW+dzfoYCS6Mr+t5LJKvir415X4l +c7kwe/lLCc/Xqqizg94R+K0YpB/HVcjT1ZAVk+A0kVtM/l8kZ5+vUcNbPqee +6EoWg+gr5Yv8X+qY3TEpfmy8COQieTv09TXx0cSyiZ1ZhXBFw3Cp2AEtNIvw +YAybF0C9jPHq4QRtDFFKd/X6cQPWytXEr2hdgZ5PzY5pO+aBiGBOwL7wlWjc +J+1z4gcHaKcVWHbKOnh6FV8rzioX5ivtLbOq08H2ox/tFj7LBm22NC/QQRdj +p0/eDnHKAv8O0VoLgVUIj49c3vUsA34NX7DZdGUV2rdqFWYppIHZiqepm7T0 +8FHyMwfIuQIPh9dNjjfo4V4xC9ojsWTw1dR93+S+GtfNG9l0oDUJ2ANuLXbz +9dF4b+Uey6QE2MCU2ro4Rx8/FsucSDKKA9Ww6KAaAwNs0ggUzy+LAXV3wyql +9waYpFUvWacfCe4PPc7e9luDjnV9nxZhBFRltbgNiRtiT0Ly6Sn7cBjJnxlf +cdcQNURokbNyQ8FVqWh+6ta12E/RFOK9TsCQepJ+6eBaZK3ZoBq1NxDucSY/ +j0auw7hvH4KPzgsAe1MK19FYGDYqESmg4geyPufLtatZ+O7pZVZ1uzeIL/Au +2bqLjULHfaVfH/EAzvqQ4EE7Nu66m5Fydp8H6IZcXJ+0l415N+48NN3uAdsG ++W/a9rHxZoLQ0Hd1DzjXOjrh6s1Gjzg98/KuA/AnJ9Qk+DQb2/65vAm3PgDv +1yX9l1fExk4u1yoa94PHUU76Ji4brzSvEytYsR/GuHfc+/hsPNO3vb6Zth9E +GW3jOmVs/CouPdds2h02C8vLPahmY4HUa5nSCneobMlz++8NG21o9r9jDdzB +QuSe1rE2NpY1pcTYqbhDm9nzMal2Nmr7aT5eIekOIxW9kY6fyP7GVdOTY26g +lb2y+GcPG6vo6ZOid92g8r3xsQv9bJy0vvJH94YbWCzfCSsG2agr8N7TIcUN +9p8/2hQwysZXmtVJTYFuMFJ9LlXyDxtNQkuMZT3cIPxvimvFXzba9Z/edmi3 +GyzVK9B0mGbj+Mn226/M3eCaT8XozAwbL93wPKRv6Ab/A1BhWn0= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06317154309924222}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.06317154309924222}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJwV13k8VO8XB3AlpU1FdoaZO/alSKRmnEOKtBKKsmQphCJFSqSUJdmKsmSb +ZMnMUClSRKVUxFdSiqLVFtkS8nt+f93X+4/neb3Ovc/5nOfSXQ5Zuc8WEBCY +M0tA4P/PsY7nj5kxHCNOToCR3TmWUcs1qePGbeHwS6/BIUxdBlC80UWqLRGi +jN1HTNXV4diOwreCbTnw6Yv5JE19LSwbkEyceFsKEbQ9/T1qFtBZue3QyNsa +WBigl7tFzR42Mns+Dr1tBvmBH4l9yl4w8dbg8uDbLmh5vuZXsHww1K6/wWnK +GYZFNteC/i6IAbnO8m8umtMQJ2Roa/ElCZZ7OxXOWy+I9CGvOS09VyFRZ+P9 +bTbC2JzTwRZZlgXvrqysHlq6GNnZ/JyRZzkQwwltnC29DK9YiPTKh10HyUvd +UUkZYsgr013T/v0GnLfeZNQ8Jo71+pfsA78WgMztBpnZsyRw0YPJ6aj+AuCK +WY/rLJTAZZ0lj1JGC6C12ZGfoCCBD1fp53GECoFpGcCwNJfAP61qz88oFULN +1sy5r69KYLTlknxbt0KY3jja8IoliaYlmzjmHYVwxDDb6Xm4FGomVXnp1BaB +RZbIyOYLUtgb/DE24XkRMOadjGy4LIXom7Wxv7EIXrfYlvyXL4VXjFcHpnwo +Au3DiwQ7GqSwcai8rmy0CH7kBeb9lpFGo6HRGkWVm7B3+bZ+2VvSmPZWYkPm +uZtg+utvsG+3DP42uWu7ak0xHDe/pP6oTwYdXOqC9rCLgZut9V5sTAbdbWzM +Q02KQcra2bBcWBaV5Nb9Kt9SDH33nowLasti9rW0XZPOxZAUHh9wNUgWaxKj +/biRxdAlruz7eLEcMmVvjre0FIPkoSp5SUk59Kbokf7vimHLs92vPBXlcGAg +qWZhRzGUBcdoLlklh6Is89U634shunOwx263HEbi5FLziWLQLbh/4FeOHNqX +uWdcl+PCaZblPpk18iibW09TdOaCueO13wYm8sjIO+8U48YFkbDeMzZb5PEf +1+TckAcX0msj8uKd5bE4mzrH9ePCPYuK3rlR8phRMGLVG86Fwd3UseF38ig6 +FYKHOVxwPDoa/fIEDXk+v/n53VxQSjGR64mgId/NYLbfdy6pP654XjwNi9g5 +oNfLheAptdcmHBoGLlgQVvSbC5fPOIqXv6Rha+UOBYdZPHiZUJd5XV4B9y2/ +Iv9KngdruVdvn6pSwAUaU7FdVjwwfdswPfBMAad1hg3/s+HBNoE5Zk7NCnhf +kH22ajcPXK1838FXBdTPYo1GO/Jg4wl6aJiQIrqPbN7Z78mDwwpjucYaimip +2G3zKZQHjw9k9tceU8SprhK78HwebJoyFD15QhGv93klfy/kQUN8i75emCIa +pfafMi/mwbvy+WGcKEVM+2FkM13Cg4GFAaIR6Yp4aH0jc9V9HkjxzQ021iji +hp8F1Y0veeD9Zyjs2WI6fmEzOK/7SD1++yW+idJxLMRYtmWAB8I974sEpeio +EJcQ3zzIg+vtta1GDDqqnWgKqh7hQcfDy5p39Ol4j3bExnmKB9sjDNuynYgH +tYJ2C/GB9q/Yp8qNjrcuWlnrzuVD3zGG4EdPOp46M3Rn/jw+RHos1JYKoGOv +/paFJcJ8qN788czFSDoGvLBd0LWQD7qip1ecKKEjnfG04tUyPgjEjD6+UkZH +2SXqjDBRPjQIetmX3Sf7x8yRWCnGh4OjVhFDT+i44NsgJ3I5HzhtzPYD7+m4 +MTHBW06SD/6WVw9HdNLR3Dbe9D4x1i+em/uFjm3Mypu7pPjw8f7Yyo4BOtaL +n14RJc0Hicxn56wFGeheqbGoUZYPXyTZcv7CDOSY/PW3l+NDaXxJSdxiBuYu +a/LpJt4envqhXpKB9oNx9AF5Up+7t66xJgPNJ1hx3xT4YNvxqc5Rh4FSUnoc +R0U+MHfZOJzUZ2DvJ13LFuJqc6PIu8jAM/csj96j82FCY2mHlg0DP7icGHGl ++DCWIXN6lT0Db6ltEqojHlmixDR0YmDMmNczFSYfBoYNvUw9GShsU3Cgi7jr +vuuYfQgD29YxpVjKfOjU8r3qHM7Aisrs5xeIP2QGsfafZ+DceyE67cStZ2LD +/RIYGPufk7KfCh/qN98VibzOwKb122+dVuVD3YNHJbGFpJ5HoFxN/HjFS+sk +HgOXj97bOUX8UOxz6rVyBrr0un7yUePD/YheNuchA71l8jCX+N746KeCWgaa +tCU4tBKXti9QufOKgS/ULjSuVucDb6t4fUUzA9uFeEouxDerFHyq3zKwRYCz +9gJxgY760qcfGEjzGxO5TZyXq3frxWfyPlV0c98R54qDbdM3Bj707h6fIs46 +v2mitZeBzkIpi2kafEg96AhdowzMuLr2lB1xykePru9/GVgQuPH9EeJL249E +9M8w8I/3hYkY4oRHIarDcyhsTE77kE18cVXkiz/zKeyOEjx7hzjmeqLvPxEK +Ja2sB58SR0pmLJuznEKaP43RShwRdeP2fGkKtbp/S3cTh0+W7FpCo/D2cte2 +fuJQn8q/yykKZ/UJOI4Rn+x8miGjSuFYrWPRFPFxyyZU1KKwwnvJIwFNPhyr +be9W0qXQQyMvczbxkdXfzmkYkP3Ky8z+78M3BtV0WBQWbXhTPkPW+0pPvtQ3 +ptDaL3nsL/HBGKHDrI0UulnF/Rsm9pheImaymcJBP5vmHuL9h2TKzHZQKP7y +lH8nsetnpt1WGwpvNmZ3NhE771wxZWVP4bCDjUwNscMTw8zdThSa1q+k+MT2 +BqYmjm4Ulr978TeNeFfBtq+unhR+rnmYHUFsLWsX6elLobdWjpQPsWWsq8ah +IxS+01nibEW8bcanISCIQqZdZtBq4s1+QX7BIRT6pfe5SBCbd4cvDwunsMot +QWGUfN8NNrF3I85TeDlalddEbFKXYh9zgcI8m62iN4lZRTezkpPJeibPxp64 +XbEoc0MahbkTZcY6xMHJBddGMil8Ivth81ziu6fz0q0KKAxbH1JZSM6n7Tgn +bRaXfO/LE1Qw8Yh3biq/lELHhqQiM2Ld3VlXRCopfCiqLP+RnP+mV9dSHlRT +eHBSUfg68eH1GcneTyg0OwPiB4m52qmX6hsoPHNjMGWI9Jea0KX4c58pjHY/ +uvUH6b9nwYlxq79R+E3n465s4v2D8Re/9FAYoncmcjcxpz32gskIhVmiGY6P +lPigWHo+8t9cJvr9zOw7SfpdwulE2DFNJrqWZgqlk/y403I8VEmHiZb0V6UG +xNYWQadaVjPR4Ef+xSaSN4mrj57UBSZOzSS0zJB8WrzoUNCAJRO3bDPP30jj +w5xyl8P7A5nY8ET1Z4gM6S/tfYfETzIxerFdzRTJRxOOk+/jMCYKWAw3HycO +jdvrzYhmYkvItXRfkqd/3W09OtKZmOnr89lEgg9DohbOtjVM/Jj4iJtM8rzN +m/Haq46JnNLU9t6lJP+e/oXQl0w05c1MGBHHBxcp5LcyUfGonUinCB9Wdi3q +nOhh4pslrQVzF5HzXdLokCGmhNW7D1uOkHljuzD/VYmUEs6/FfBLldjIPYz9 +VF4Ja+w7o/fMIfVJ68j/UlHC5sCeyorZJF/CEj8gSwkNk/9tqPnHg57tNnu+ +uCnhdNFvkwwy75oLtF788VTC7LG2z0/JPKwQnLtu8SElbB0ZTOoj8zLqbpmM +/nElNN36zUDzJw9UFaTen49VwvavewpPfubBgYH3uzXKlHDVH60U1yYefLng +bOs/Txmx1vKaNZcHvj2ajJWLlNFFwWCrxk0ejJtN9PcvVUZLjeeV/wp4sEAw +McJTRhlPbDDsTrvOg5XHa287aymjtoOFPy+dByHuymLbdyqjZHpsDSuaBxJG +fY0amcq4ldoYM+HCg6y0e2k/c5XxJ6756uXMA7WJswdu5CujdHOd+jsHHrBu +y88wSpXR67j+qZv/v5+ob9eWeaKMK5NveGtv4wFfovSCcK8y7p3IS8taQ+4f +vwI3fdVXwS5W95DZQh7I6dDOCbNU8ODb1HgZYXLf8H9co2Gsgm/mdD75OYcH +l8aWsvw3q+DM0dWTIf+40DFdoD3jpII79TfXhgxxwX/RBzHpKBW8E9+550Mr +F1LVsGNLuwp67x3axcgk9zNX4SO3Q1XR5e6lNgNlLgxcM31QdVYVWyNkx3cw +uPDrXdi8F1GqKFEezzpA48Lv7RNpn5NUUW+dzfoYCS6Mr+t5LJKvir415X4l +c7kwe/lLCc/Xqqizg94R+K0YpB/HVcjT1ZAVk+A0kVtM/l8kZ5+vUcNbPqee +6EoWg+gr5Yv8X+qY3TEpfmy8COQieTv09TXx0cSyiZ1ZhXBFw3Cp2AEtNIvw +YAybF0C9jPHq4QRtDFFKd/X6cQPWytXEr2hdgZ5PzY5pO+aBiGBOwL7wlWjc +J+1z4gcHaKcVWHbKOnh6FV8rzioX5ivtLbOq08H2ox/tFj7LBm22NC/QQRdj +p0/eDnHKAv8O0VoLgVUIj49c3vUsA34NX7DZdGUV2rdqFWYppIHZiqepm7T0 +8FHyMwfIuQIPh9dNjjfo4V4xC9ojsWTw1dR93+S+GtfNG9l0oDUJ2ANuLXbz +9dF4b+Uey6QE2MCU2ro4Rx8/FsucSDKKA9Ww6KAaAwNs0ggUzy+LAXV3wyql +9waYpFUvWacfCe4PPc7e9luDjnV9nxZhBFRltbgNiRtiT0Ly6Sn7cBjJnxlf +cdcQNURokbNyQ8FVqWh+6ta12E/RFOK9TsCQepJ+6eBaZK3ZoBq1NxDucSY/ +j0auw7hvH4KPzgsAe1MK19FYGDYqESmg4geyPufLtatZ+O7pZVZ1uzeIL/Au +2bqLjULHfaVfH/EAzvqQ4EE7Nu66m5Fydp8H6IZcXJ+0l415N+48NN3uAdsG ++W/a9rHxZoLQ0Hd1DzjXOjrh6s1Gjzg98/KuA/AnJ9Qk+DQb2/65vAm3PgDv +1yX9l1fExk4u1yoa94PHUU76Ji4brzSvEytYsR/GuHfc+/hsPNO3vb6Zth9E +GW3jOmVs/CouPdds2h02C8vLPahmY4HUa5nSCneobMlz++8NG21o9r9jDdzB +QuSe1rE2NpY1pcTYqbhDm9nzMal2Nmr7aT5eIekOIxW9kY6fyP7GVdOTY26g +lb2y+GcPG6vo6ZOid92g8r3xsQv9bJy0vvJH94YbWCzfCSsG2agr8N7TIcUN +9p8/2hQwysZXmtVJTYFuMFJ9LlXyDxtNQkuMZT3cIPxvimvFXzba9Z/edmi3 +GyzVK9B0mGbj+Mn226/M3eCaT8XozAwbL93wPKRv6Ab/A1BhWn0= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06317154309924222}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, + 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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.061043}}, + "Frame" -> {{False, 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.061043}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.061043}}, + "Frame" -> {{False, 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.06317154309924222}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994014913576634*^9}, + CellLabel-> + "Out[319]=",ExpressionUUID->"426e45d4-3b67-4356-a20d-590bc061f130"] +}, Open ]], Cell[CellGroupData[{ @@ -10737,66 +12283,73 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[116]:=",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], + "In[320]:=",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[\\\"1.4778894756852567`*^-163\\\", \ +RowBox[{\\\"505518991860510123640143147290\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"90\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"761600000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 320, 53, + 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265068365192`*^9, 3.994014913619625*^9}, CellLabel-> "During evaluation of \ -In[116]:=",ExpressionUUID->"96d01a47-7c9a-1944-8904-f1788b2f0a8a"], +In[320]:=",ExpressionUUID->"30c88cef-1d51-45d3-b4b8-877ff639bcfe"], 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.8279191865605485`*^-166\\\", \ +RowBox[{\\\"164243120455479739170682508554\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"94\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"438400000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 320, 54, + 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265068365192`*^9, 3.994014913629271*^9}, CellLabel-> "During evaluation of \ -In[116]:=",ExpressionUUID->"fee09e7b-7835-394b-93fe-35ddd26f69d1"], +In[320]:=",ExpressionUUID->"e391d19e-6fd7-45b3-a470-39b0e793777b"], 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[\\\"2.2608514422547835`*^-169\\\", \ +RowBox[{\\\"552513857212233842570175958778\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"97\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"777600000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 320, 55, + 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265068365192`*^9, 3.99401491363706*^9}, CellLabel-> "During evaluation of \ -In[116]:=",ExpressionUUID->"fc12fc14-afc1-0a48-8829-94d858477ec4"], +In[320]:=",ExpressionUUID->"360dfca6-98b4-4aae-b8ed-fd95cd6f5c90"], 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, 320, 56, 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265068365192`*^9, 3.994014913643127*^9}, CellLabel-> "During evaluation of \ -In[116]:=",ExpressionUUID->"41b1346d-6d7d-5d4d-9b1a-88cde3361cf3"], +In[320]:=",ExpressionUUID->"4aa83cf3-2f38-42ba-89df-3f2b793f2e13"], -Cell[BoxData["11.275343508404701`"], "Output", - CellChangeTimes->{3.991326513010317*^9}, +Cell[BoxData["12.63512425992997`"], "Output", + CellChangeTimes->{3.991326513010317*^9, 3.994014958311507*^9}, CellLabel-> - "Out[116]=",ExpressionUUID->"0bbffe2c-809c-1149-a08f-e3342cda31a0"] + "Out[320]=",ExpressionUUID->"63860990-9877-46fd-99fd-287dc41cec6f"] }, Open ]], Cell[CellGroupData[{ @@ -10863,68 +12416,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[321]:=",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[\\\"5.574222042005056`*^-228\\\", \ +RowBox[{\\\"189440899156242768942779436337\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"26\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"5245236398325760000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 321, 57, + 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265130447063`*^9, 3.994014958350565*^9}, CellLabel-> "During evaluation of \ -In[117]:=",ExpressionUUID->"922f5f31-888f-7340-96cd-65ecb8ea2e84"], +In[321]:=",ExpressionUUID->"e821dab4-f096-4832-a5d5-43ba30f22e64"], 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.019659298849899`*^-234\\\", \ +RowBox[{\\\"273552658381614558353373506071\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"29\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4121359182397440000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 321, 58, + 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265130447063`*^9, 3.994014958360005*^9}, CellLabel-> "During evaluation of \ -In[117]:=",ExpressionUUID->"287b836d-7493-d44f-85b0-183d2793165c"], +In[321]:=",ExpressionUUID->"ac933b3c-206b-4aad-aafd-bfa6cedae605"], 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.898639623085146`*^-240\\\", \ +RowBox[{\\\"416073593398435743255481102734\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"32\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8587316426506240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 321, 59, + 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265130447063`*^9, 3.994014958369472*^9}, CellLabel-> "During evaluation of \ -In[117]:=",ExpressionUUID->"962d88f7-2937-fe4b-ba97-3fe8099808d5"], +In[321]:=",ExpressionUUID->"ad2a10b1-f81e-4e10-9b6e-775704bf4102"], 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, 321, 60, 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265130447063`*^9, 3.994014958378332*^9}, CellLabel-> "During evaluation of \ -In[117]:=",ExpressionUUID->"2ec951f6-2332-9241-84af-c7ac25232c2e"], +In[321]:=",ExpressionUUID->"421878f9-c289-4710-b02f-651c11178e7c"], -Cell[BoxData["1.662840304462236`"], "Output", - CellChangeTimes->{3.9913265201819115`*^9}, +Cell[BoxData["0.05177192020710043`"], "Output", + CellChangeTimes->{3.9913265201819115`*^9, 3.994014964462504*^9}, CellLabel-> - "Out[117]=",ExpressionUUID->"3eb28fb3-5fd6-4240-b231-e1f0fa53f4dc"] + "Out[321]=",ExpressionUUID->"02f57a94-2248-4691-b708-06b596567ec1"] }, Open ]], Cell[CellGroupData[{ @@ -10945,8 +12505,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -10991,68 +12550,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[322]:=",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[\\\"5.574222042005056`*^-228\\\", \ +RowBox[{\\\"189440899156242768942779436337\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"26\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"5245236398325760000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 322, 61, + 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326520216116*^9, 3.994014964499305*^9}, CellLabel-> "During evaluation of \ -In[118]:=",ExpressionUUID->"8fc71a81-55ed-5940-a6a0-1fa4e0c6425a"], +In[322]:=",ExpressionUUID->"89106565-ce05-4d79-8235-8a18ffcdc937"], 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.019659298849899`*^-234\\\", \ +RowBox[{\\\"273552658381614558353373506071\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"29\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4121359182397440000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 322, 62, + 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326520216116*^9, 3.994014964505659*^9}, CellLabel-> "During evaluation of \ -In[118]:=",ExpressionUUID->"001b2f06-491c-6c4f-881b-1d7c12c1b14f"], +In[322]:=",ExpressionUUID->"7059694b-e74d-4dd5-a4ba-f711a9ac79d4"], 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.898639623085146`*^-240\\\", \ +RowBox[{\\\"416073593398435743255481102734\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"32\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8587316426506240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 322, 63, + 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326520216116*^9, 3.9940149645114927`*^9}, CellLabel-> "During evaluation of \ -In[118]:=",ExpressionUUID->"865c0491-32b6-3549-83ec-bdf42c3a31aa"], +In[322]:=",ExpressionUUID->"5a50379e-e762-437c-99d7-b32a3dcc0573"], 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, 322, 64, 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326520216116*^9, 3.994014964518079*^9}, CellLabel-> "During evaluation of \ -In[118]:=",ExpressionUUID->"3566013f-7b44-504c-95a5-32d3ac2ece3d"], +In[322]:=",ExpressionUUID->"67293483-0e0d-4208-8db1-f41ca1696e0e"], -Cell[BoxData["8.698310175000124`"], "Output", - CellChangeTimes->{3.9913265264075394`*^9}, +Cell[BoxData["39.566339148911815`"], "Output", + CellChangeTimes->{3.9913265264075394`*^9, 3.994014970088105*^9}, CellLabel-> - "Out[118]=",ExpressionUUID->"9cc3c720-52c0-b040-a0b4-75ff2aab4396"] + "Out[322]=",ExpressionUUID->"b2e048ac-2eda-4d44-b247-a3579a26f25b"] }, Open ]], Cell[CellGroupData[{ @@ -11073,8 +12639,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -11119,68 +12684,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[323]:=",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[\\\"5.574222042005056`*^-228\\\", \ +RowBox[{\\\"189440899156242768942779436337\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"26\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"5245236398325760000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 323, 65, + 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265264435444`*^9, 3.994014970127059*^9}, CellLabel-> "During evaluation of \ -In[119]:=",ExpressionUUID->"bc9996c1-a929-5b41-9541-f607e96932b8"], +In[323]:=",ExpressionUUID->"7529ee8b-37c9-4087-9380-a3e6549d6478"], 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.019659298849899`*^-234\\\", \ +RowBox[{\\\"273552658381614558353373506071\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"29\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"4121359182397440000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 323, 66, + 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265264435444`*^9, 3.9940149701342897`*^9}, CellLabel-> "During evaluation of \ -In[119]:=",ExpressionUUID->"eb28c83b-0aac-8d4e-a729-f978b41e689a"], +In[323]:=",ExpressionUUID->"b77914b3-186b-4e58-b8c7-1c512c4bfea7"], 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.898639623085146`*^-240\\\", \ +RowBox[{\\\"416073593398435743255481102734\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"32\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8587316426506240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 323, 67, + 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265264435444`*^9, 3.9940149701418457`*^9}, CellLabel-> "During evaluation of \ -In[119]:=",ExpressionUUID->"70b030cf-db8c-c440-8526-b10f71bb72b3"], +In[323]:=",ExpressionUUID->"28546a42-b45d-420f-b485-349f57829216"], 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, 323, 68, 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265264435444`*^9, 3.994014970148658*^9}, CellLabel-> "During evaluation of \ -In[119]:=",ExpressionUUID->"4d72b001-01d6-d944-9c97-6d0d7d2eccbb"], +In[323]:=",ExpressionUUID->"a1d1d7c5-8ebe-41a5-a3cf-d3e4445143ea"], -Cell[BoxData["16.721244215445346`"], "Output", - CellChangeTimes->{3.9913265299431496`*^9}, +Cell[BoxData["5.9801792808854906`"], "Output", + CellChangeTimes->{3.9913265299431496`*^9, 3.994014973567156*^9}, CellLabel-> - "Out[119]=",ExpressionUUID->"c15d23fa-1bed-9640-940a-c33e3a830230"] + "Out[323]=",ExpressionUUID->"9e9ab955-e636-4f47-b0c4-ab1e16eb3681"] }, Open ]], Cell[CellGroupData[{ @@ -11189,22 +12761,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[324]:=",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"], + +Cell[BoxData["0.0033656909619659415`"], "Output", + CellChangeTimes->{3.991326529975149*^9, 3.994014973596483*^9}, + CellLabel-> + "Out[324]=",ExpressionUUID->"d62e1f87-ded5-420d-a8d2-cf06d1981edb"] }, 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[325]:=",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"], Cell[CellGroupData[{ @@ -11227,12 +12800,12 @@ Cell[BoxData[ RowBox[{"Ir", "*", "Il"}], RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", CellLabel-> - "In[122]:=",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], + "In[326]:=",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], -Cell[BoxData["29.129739599983825`"], "Output", - CellChangeTimes->{3.9913265300040226`*^9}, +Cell[BoxData["22.309621114943347`"], "Output", + CellChangeTimes->{3.9913265300040226`*^9, 3.994014973615779*^9}, CellLabel-> - "Out[122]=",ExpressionUUID->"26c56722-6e97-cb4f-b35b-a00d42f1d8f6"] + "Out[326]=",ExpressionUUID->"7ae7a733-236b-44d3-b2ff-49c4a5d2e7f7"] }, Open ]], Cell[CellGroupData[{ @@ -11242,12 +12815,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb1"]]}]], "Input", CellLabel-> - "In[124]:=",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], + "In[327]:=",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], -Cell[BoxData["0.6950071373045505`"], "Output", - CellChangeTimes->{3.991326530052025*^9}, +Cell[BoxData["1.3841494762090554`"], "Output", + CellChangeTimes->{3.991326530052025*^9, 3.994014973625321*^9}, CellLabel-> - "Out[124]=",ExpressionUUID->"7e7edb0d-1306-d742-8b32-e7c6dc694892"] + "Out[327]=",ExpressionUUID->"301ac93d-f024-43aa-9363-a2a7d87bef79"] }, Open ]], Cell[CellGroupData[{ @@ -11257,12 +12830,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[127]:=",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], + "In[328]:=",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], -Cell[BoxData["20.245376929811762`"], "Output", - CellChangeTimes->{3.9913265300922585`*^9}, +Cell[BoxData["30.879850380671314`"], "Output", + CellChangeTimes->{3.9913265300922585`*^9, 3.994014973634783*^9}, CellLabel-> - "Out[127]=",ExpressionUUID->"e5353287-a717-554a-9c6b-1021438b30ff"] + "Out[328]=",ExpressionUUID->"be4271c5-4dcc-4b69-8481-aaac382ef85c"] }, Open ]], Cell[CellGroupData[{ @@ -11452,12 +13025,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[128]:=",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], + "In[329]:=",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], -Cell[BoxData["0.022635100966331548`"], "Output", - CellChangeTimes->{3.9913265301172295`*^9}, +Cell[BoxData["0.005260331925381168`"], "Output", + CellChangeTimes->{3.9913265301172295`*^9, 3.994014973647459*^9}, CellLabel-> - "Out[128]=",ExpressionUUID->"ed4bd4f3-e1cc-fa47-b5b5-475b6e581b1f"] + "Out[329]=",ExpressionUUID->"f22f7b30-175d-47b8-bac0-415448a3862b"] }, Open ]], Cell[CellGroupData[{ @@ -11471,12 +13044,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[129]:=",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], + "In[330]:=",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], -Cell[BoxData["5.890521190513567`"], "Output", - CellChangeTimes->{3.991326530210228*^9}, +Cell[BoxData["12.219076006079511`"], "Output", + CellChangeTimes->{3.991326530210228*^9, 3.994014973764683*^9}, CellLabel-> - "Out[129]=",ExpressionUUID->"0c9f07a0-dfdf-6e41-964a-0bcdc0cbcb45"] + "Out[330]=",ExpressionUUID->"413feae9-af76-477c-867e-c7bcf12e4023"] }, Open ]], Cell[CellGroupData[{ @@ -11668,12 +13241,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[130]:=",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], + "In[331]:=",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], -Cell[BoxData["0.012260254107801566`"], "Output", - CellChangeTimes->{3.9913265302252293`*^9}, +Cell[BoxData["0.029764083091832108`"], "Output", + CellChangeTimes->{3.9913265302252293`*^9, 3.9940149737818193`*^9}, CellLabel-> - "Out[130]=",ExpressionUUID->"579eace1-979d-7347-a36f-c1fefbf459f5"] + "Out[331]=",ExpressionUUID->"918d67fa-219c-49ae-8205-97425ea65a4d"] }, Open ]], Cell[CellGroupData[{ @@ -11687,12 +13260,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[131]:=",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], + "In[332]:=",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], -Cell[BoxData["8.003781147223087`"], "Output", - CellChangeTimes->{3.9913265303172264`*^9}, +Cell[BoxData["5.136871318532069`"], "Output", + CellChangeTimes->{3.9913265303172264`*^9, 3.9940149738796997`*^9}, CellLabel-> - "Out[131]=",ExpressionUUID->"0225baf1-4541-ed4d-8528-13926fef86cd"] + "Out[332]=",ExpressionUUID->"ec2f78d5-1cc4-4bdc-8a82-cc2cd6b4ccb2"] }, Open ]], Cell[CellGroupData[{ @@ -11785,12 +13358,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[132]:=",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], + "In[333]:=",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], -Cell[BoxData["0.6154782275967796`"], "Output", - CellChangeTimes->{3.9913265303292294`*^9}, +Cell[BoxData["0.11555035266703631`"], "Output", + CellChangeTimes->{3.9913265303292294`*^9, 3.994014973893426*^9}, CellLabel-> - "Out[132]=",ExpressionUUID->"f7c789e7-838d-b443-a597-00e69e7c3611"] + "Out[333]=",ExpressionUUID->"35fded70-0449-4d46-a55f-90a3a8c97e60"] }, Open ]], Cell[CellGroupData[{ @@ -11880,12 +13453,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[133]:=",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], + "In[334]:=",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], -Cell[BoxData["0.3845217724032204`"], "Output", - CellChangeTimes->{3.991326530340416*^9}, +Cell[BoxData["0.8844496473329635`"], "Output", + CellChangeTimes->{3.991326530340416*^9, 3.994014973905015*^9}, CellLabel-> - "Out[133]=",ExpressionUUID->"fc2bf760-d110-cb46-bd02-e934de9fd4f9"] + "Out[334]=",ExpressionUUID->"47485af2-85e9-47a9-970f-66e4202d2301"] }, Open ]], Cell[CellGroupData[{ @@ -12008,12 +13581,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[134]:=",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], + "In[335]:=",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], -Cell[BoxData["0.2366647789511063`"], "Output", - CellChangeTimes->{3.991326530367384*^9}, +Cell[BoxData["0.10219846866555986`"], "Output", + CellChangeTimes->{3.991326530367384*^9, 3.994014973915923*^9}, CellLabel-> - "Out[134]=",ExpressionUUID->"4304216c-b250-ab48-915e-b844e71a70f1"] + "Out[335]=",ExpressionUUID->"e3217522-f91a-4340-a987-95c038ff0385"] }, Open ]], Cell[CellGroupData[{ @@ -12028,7 +13601,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[{ @@ -12050,8 +13625,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -12075,68 +13649,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[336]:=",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[\\\"9.846318367211254`*^-219\\\", \ +RowBox[{\\\"416073593398435743255481102734\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"32\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8587316426506240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 336, 69, + 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265303923836`*^9, 3.9940149739310923`*^9}, CellLabel-> "During evaluation of \ -In[135]:=",ExpressionUUID->"ef0dcda5-4eb3-fb4f-a7ba-cf9592c754fd"], +In[336]:=",ExpressionUUID->"d76e9eff-1ab7-4b79-ab2e-f565fb835827"], 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[\\\"2.531382768494685`*^-224\\\", \ +RowBox[{\\\"665717749437497189208769764374\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"35\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9706282409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 336, 70, + 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265303923836`*^9, 3.9940149739383783`*^9}, CellLabel-> "During evaluation of \ -In[135]:=",ExpressionUUID->"516128bc-41b4-3d49-8276-2fe73d5d437e"], +In[336]:=",ExpressionUUID->"db0739ae-5fd7-4bed-a876-78834f233cd9"], 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.507913396311096`*^-230\\\", \ +RowBox[{\\\"111907153680443277505994197391\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"260731183104000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 336, 71, + 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265303923836`*^9, 3.99401497394451*^9}, CellLabel-> "During evaluation of \ -In[135]:=",ExpressionUUID->"83555127-edb0-f34d-bade-abdcd60ad387"], +In[336]:=",ExpressionUUID->"d9a22c2d-2f4a-4bda-bca4-3fd3150fda12"], 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, 336, 72, 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265303923836`*^9, 3.99401497395247*^9}, CellLabel-> "During evaluation of \ -In[135]:=",ExpressionUUID->"f8efe38f-0b83-4645-b574-b25c08902457"], +In[336]:=",ExpressionUUID->"5d39ee8a-3ca1-4d68-87fb-8978378e8711"], -Cell[BoxData["5.890521190513565`"], "Output", - CellChangeTimes->{3.9913265339749985`*^9}, +Cell[BoxData["12.219076006079508`"], "Output", + CellChangeTimes->{3.9913265339749985`*^9, 3.994014977554121*^9}, CellLabel-> - "Out[135]=",ExpressionUUID->"de5933f0-d736-3443-950a-4744d8abefe5"] + "Out[336]=",ExpressionUUID->"b1f9d784-d5c5-4f41-b7be-b233a0392a43"] }, Open ]], Cell[CellGroupData[{ @@ -12151,7 +13732,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[{ @@ -12173,8 +13756,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -12198,68 +13780,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[337]:=",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[\\\"9.846318367211254`*^-219\\\", \ +RowBox[{\\\"416073593398435743255481102734\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"32\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8587316426506240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 337, 73, + 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265340092525`*^9, 3.99401497760111*^9}, CellLabel-> "During evaluation of \ -In[136]:=",ExpressionUUID->"d0c389d2-1c6b-3a44-bd00-6e54df438015"], +In[337]:=",ExpressionUUID->"dfd9516a-f899-4844-b16d-809a6a2b6307"], 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[\\\"2.531382768494685`*^-224\\\", \ +RowBox[{\\\"665717749437497189208769764374\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"35\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9706282409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 337, 74, + 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265340092525`*^9, 3.9940149776097*^9}, CellLabel-> "During evaluation of \ -In[136]:=",ExpressionUUID->"3f819d0b-3458-d54e-bb8e-ed758b92949a"], +In[337]:=",ExpressionUUID->"12df5e30-1006-494e-a5ca-62641f4f91a3"], 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.507913396311096`*^-230\\\", \ +RowBox[{\\\"111907153680443277505994197391\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"260731183104000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 337, 75, + 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265340092525`*^9, 3.994014977618689*^9}, CellLabel-> "During evaluation of \ -In[136]:=",ExpressionUUID->"7403c575-bafd-2049-8d02-89293c73f7f1"], +In[337]:=",ExpressionUUID->"9e707046-d9fe-4b5b-adf0-012eb39ef696"], 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, 337, 76, 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265340092525`*^9, 3.994014977628083*^9}, CellLabel-> "During evaluation of \ -In[136]:=",ExpressionUUID->"29512b1b-8a2c-1740-986b-fb78e7d2ec89"], +In[337]:=",ExpressionUUID->"1964187f-89af-4e43-8f09-fc8cc6f2ed28"], -Cell[BoxData["8.00378114722308`"], "Output", - CellChangeTimes->{3.9913265375649567`*^9}, +Cell[BoxData["5.1368713185320685`"], "Output", + CellChangeTimes->{3.9913265375649567`*^9, 3.9940149810657387`*^9}, CellLabel-> - "Out[136]=",ExpressionUUID->"686785b6-8c83-3e43-88fb-689383b13a2d"] + "Out[337]=",ExpressionUUID->"5481bc53-e119-40ae-ba74-6e92813de6a0"] }, Open ]], Cell[CellGroupData[{ @@ -12317,92 +13906,95 @@ 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[338]:=",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:eJwV1nk8VOsfB3AhTVmyhJCKoYylNLZIPd9CIkvJvhszx1q2iCh1S5sWpFu6 +1RAikWxZ66dIkuKW9hQyqmOfQyiX3zN/nNe83q8z53M+5zvzPK+jxopw4ggL +CQkN40PwGfVy3drqzpdbtinMq5KrSLRlJM+IZVmM3N70bxW4h2ucqWHZgLSy +L5YIvIv9QkzC4Al6GSseMIhdFp/ctNCyHd1xtvMewj7dsrwxuehf9LeZK3cY +u7Yz6sYs8w16qsHQHsUmP7YlJdS/R1VLn8yOYSvz6F6/LD6jiCmGIoW9czTJ +NKb9K2K8c0uYxH44S4rHF/WinNsO9Gnst0cVE+/v+4b+DZaS/4M9ImZJTjB5 +yFrqssMcttjZSA+DqQFUkfGjY8FqEq2Uud4aVf8DeY4IZy3EdlD5dWvEYgg1 +0jKEpbCJbHUFPdoIelApliuLnazpmBLWPor8ZC1TFbHfK3Zt2F80jmj3lxuo +Y7M9Q0MunuUj9/5S/lrssWtCOeX7KFSVufS3HjZNXU96nDmJlllp9ZhhZ7Kb +rKXlfyEbrd6HW7FXF3gkr5/6hab3sHg7sDfqnhjZWz+NVC0fLHbHDjb+2k5a +zKJv2a9LE7An4mNFl6z5D+3htbf/hX2kXtycQZtDbT3nNpzFvgIb7wS1z6Ow +QuIVV9Avv9UyumgBhItFRbVhF7Vc7DmqIgw2mfntbwR9v/smpZ8VhnOrciJ6 +sZO0Jyvu7ROBuidDZ2cEfUvV6KPMhRDl+FpDT41EHzuHHs7lLoTAdvOHZtir ++dWeUvJi0M4O5+7ALjZ0yNCbEoO+UFVTDnZz7cEF4fU0yN7c9CwHe7Lp9dcf +FhKQFjXvp6VOIlk7CenEhxJQ/H3v3CZs/S5LkDSVhK4+w3FH7ND+quwN66Qg +OPP563jsSOF2/c0S0lD1U/7cS2ye+t3xlF8y4Jg12HGajudDtC3uMJCFiPqn +FTexhe8MqC2PkgWqeHqwHnu1wSqnokFZODHu5jGK7WmRVv6yRw6K4kS1PDVI +1BEYHaP4XB4SdN5mIk0SfSk4n+pPUwC1ke4HPthDg0W5t60UIJFntCkJe8n+ +b683NSqAsu4bZh225XFnQ/8qRTgx81TebA2J6vKMJwu5SqBwnVlks5ZEebzf +cWb7VUGXSl1SyCDRDpeTX2JKVKFM5fuil9hDzXLbSwZUoUu7zmEC2zBPV361 +x0poymip2aqN58nyrVi4ZRU8Sdo39xWbP9pz4Mex1eA0XuCorUsiub2WlRX2 +6tD8TnTRr3UkGshbErwrVB163nGZmutJVPO5U2X4hDpskrhV4IztbedzbE2j +Oryz4e+txM7TiXPKYtLh7IFDYQf08f3JgrHDihpAU5xiiDNJ5BwkrmfbqwmL +FOXKQoxIhOJcmG7/acJi32PD2djaKVwTttIaqOPGRr7HFso12HZ49xrIpH2x +2WFMopIvXm7lj9YAba7UVscEr0/X4qPKN9dC44G+Y3MbcT9L+7ckiwFqp4o6 +P5iTKHfP5U9ThxmwQdLxs9JmEp1n9faI/sMAhxeB6zyx2UdiB1e+ZsD4xU/5 +n7BlGq4L7bHQhnA61du7Bf9/DEa06+k64Cpkcv4PkEhF/UJyar8ufPh8rjzQ +ikQNZyYYM8J6ALtf15Vje1MeXYSaHjiV9MkLbyfRjWYNxjZfPZj7y6s5B1s9 +qO7V9Ds9uGp0TZhnjZ+3mKdJPF8HonFnRBJtSaSqspJY7aEPf4QCpXmOJNLN +3y/xBzEhysN9RZkXiVjsY5N6Dkw4cTpMU8obr1d6xhd/byYoSPrHhWGL3Cy9 +1xLPhHX0n6NrfPB6u0E6Z5QxoazPb2uOL95Pr/hfZ9AN4L3yvHduAP59U+3W +uYsZwl/CbRHdQSTKidbYVdVuBNROmxatWBJ1xiGT4/mmsKG2KKfjEonUfN84 ++IRvBl5Yo9BEHYk48/fvqiYAfPZm3FzRRyLFwZpFiqxtcEJtdkGszCDab2D+ +OUPbElJOSf3N3DaIWMOzrXKkFajxgm6tjxtEJdtiFnE7rCFEyVVlc8UgypsI +fVScaQMn3ibPHBobRNNbl79oTt4Jgwrs2TiTIdQtJDLeG2APplLcloKjQ2jf +ioi0o3RHYFafc3rcNoTuhrQ2XkrZBSNvxDu1Vw6jg5TSlE7IbkixUouuixhG +k7bbXZ/6OUFnF3c///kwMvVK38rbvQc+i8wGa2iPoFdK10ObDZxh6MjjQYmU +EaR861hDoZYLDBxgZeWSI6imR9vOQdIV+ELeW5fYjaKVXWNBccOu0FLpqsQt +GUUGl9KLc3vcIGTw/GidxBi6Lkqty2hyB3r5YYk2NIbub13/MaXWAyoX6iZU +HRhDV0zOyMwWeYJPZsYj/t0x1PEp/4TBWS+Y8/fRP9M3hqrsr2lEHvGGQRuz +cFvlcTS+d4/QPrYPNAvHafbZj6PJ7YzgEQtfUO5oKHqaPI4Khz9Mxxj7wUf/ +lpufK8eRe05+oI+EPyRFcB8q88ZRRflOP5GT/qAr+Y9msSIfmaq8mjk94w9j +Nn/qJy35iN4T9PHfkAA4mC2iZBHBR/3iYY7XvgWA9YfapsSrfNR53iHQ2oUF +TVKhB2mNfJQZzxWP7WTBnZD5OD8eHzU8nJ8JtAmEGNoCQ3cxCi31hpMGdYGg +VfbQKE2NQquXPe1Y0RAI15Ynhcxh67fbLxd7GAiGtD/u4eoUcjL3uv3+USAU +h82HWtMplLki7vmhZ4GgcCHK47cGhZS77yxtfY+/fzzdaY8WhTR8Fa94TwWC +TomR3b/rKGTqP1KYYsiGZRV5er/NKHQrayzGwZgNzuF51bs2UWjZa/4WxY1s +SC8UESnAHrGa6ircxIa14VXdTuYU3r+EFrRvY4OxcG1OwWYKSU3JeMjuZsMk +GvW0Agr1nzNazN3LBmtnKZvdVhTa/dSkKyiCDSt4l0gu9kMhM65+FBuifunb +jWBnxWwxeryfDWbiBx3PbKeQg4d1AC+RDfeqLV3+Z02hWg2PWp0zbMhvNXNR +taXQ+fqkkJpbbJj+s76/0IFCe5mXTeML2eBTSpMbwba7XbZ4YxHuM+0oYuBI +oSWXB25Xl7Ch/RZNqwE7JXoXeb8S9wvbePT5LgolMTTCqh6zYUuwR9gXJwqF +Xn4eXv6FDb17/Ae6XClkIzVgHt3DBpb/DgNZNwpppQhJMvvYYFjLBUfsgWij +kjIeGz65Hr7Wih3gwB2+N8SGOUUd9xp3CrkvjNlX+psNrdIf36d6Usg6Rjmy +WIEDCRZvXwj7Uugx94RtxnIOaFp33jDHNm/na8Qrc6Dn+jA9Dltf8/kHi5Uc +eP8l0vYHttK7RItPmhx4taV80TM/Cg2adSssMeJAL5NmnhRAoQvC2Q+C9nBg +KC/W5TYbP/96iSv2LhyYMY3/5wP2ca/4aAM3DjidKshczKFQfOWutfOeHAhz +i8wOxg4gFqT/zeLAM+efK+gEhQzaWOwnURwIzEvPPR1EoXfpmuL0NA5w7j6t +WxFKobtIMvhHOgeC+d9bAPv48ERzyUUO3DOLucDGZto0H954mQNPrtW43ME+ +LxTIt7/BgW28I/eNwii0PSL7Q3wxnkeC0ZPN4RRSVT1lvOUuBx7VTFzywZ5o +i7goco8D8cMf1A9h31yD7M9XcEBtlVhUPfZ/3d2NuXUcePop7ovhXgpV2qkU +vmzlQEGN329l/J6Y+lt4YWYbBzxsS1KNsVmFZIBHOwdYbv3vd2NLi9ap9Hdw +oJ8vVHASO7ze/cLMWw6sPpIpM4ZN1/47ToPHgdh+C9XKCAr9fnfo9c8BDoT8 +uBL2HLszhaNf+oMDVzNyY/uwD/cakqZDHAhY9rJhaSSFPl557eNI4Xk4rlUM +ws5YJGN1cAEBvY7HZmhRFGrgd3vtFyHAL07ZcCX29+6i6H0LCThpz1IywDav +tMxmLSags/HXNy/sAf/4P7YyBOzOeh9/G1vazkrWSo4AmeartAbsTSayDCRP +wDAxse0ldppksauBEgGGiazqccH5uq9lKmoEeOZ9umEYTSEiv7hVnk6A9NSS +Y5bYaWkJX5dqEnB1rF7GGXuAkJMUZRBwjH9lXbTgvJx18JA+AaLfZzlF2HVz +cskDTAKEWn5dr8bm/ey51GNIQOY3vyPN2GaNB5u6NhLw3+0Dlt3Y/eF3Vz4A +AuIlTz5bEoP3D/dEo+ptBNjrNDvLY5ta7LArsySAcSbgzCrs80p9Cfk7CFie +dn+CiV0jWprGtSVgRiWMYY79bTSxIMuOgMTyBJoV9sYW+TfndhGQ5cd94oLN +KusbPOlEQFprRa4P9rlrpcJ/ORPwtWeFLge7L9pGP84dz8vzx6YYbElfBetI +TwJyk3Y0JQjybL75hHoTcPPF9ESy4PpVh1J9/QnQW7bdLVXQZ4ntTXcWAW4m +vSfTBHmTCrVObALEea2sS4K83m8ddgQB/q6z37MEee33BrYHE6Dx6qDiDUG/ +6kP/QSgB3cUW4zmC/Ju2yzaFE9C0wzU2X5B/TlHHaB8BL+TLcwsF+fH9W9dH +4n7prkl3sCXYZe6MaAKKrS3mS7BNHA9H0PcTMN95QPeeIN9s5wnVOAIiuyiR +cuyzmsuvK8YTcFysOqUC+740r0LmIAEpjEdlldi9f8raxJMICJaUPVUlyP9+ +uHfhYQL6L9ym3cc2frVzej6ZgIBrJw0E/j8lhAC1 "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -12416,104 +14008,107 @@ 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:eJwV1nk8VOsfB3AhTVmyhJCKoYylNLZIPd9CIkvJvhszx1q2iCh1S5sWpFu6 +1RAikWxZ66dIkuKW9hQyqmOfQyiX3zN/nNe83q8z53M+5zvzPK+jxopw4ggL +CQkN40PwGfVy3drqzpdbtinMq5KrSLRlJM+IZVmM3N70bxW4h2ucqWHZgLSy +L5YIvIv9QkzC4Al6GSseMIhdFp/ctNCyHd1xtvMewj7dsrwxuehf9LeZK3cY +u7Yz6sYs8w16qsHQHsUmP7YlJdS/R1VLn8yOYSvz6F6/LD6jiCmGIoW9czTJ +NKb9K2K8c0uYxH44S4rHF/WinNsO9Gnst0cVE+/v+4b+DZaS/4M9ImZJTjB5 +yFrqssMcttjZSA+DqQFUkfGjY8FqEq2Uud4aVf8DeY4IZy3EdlD5dWvEYgg1 +0jKEpbCJbHUFPdoIelApliuLnazpmBLWPor8ZC1TFbHfK3Zt2F80jmj3lxuo +Y7M9Q0MunuUj9/5S/lrssWtCOeX7KFSVufS3HjZNXU96nDmJlllp9ZhhZ7Kb +rKXlfyEbrd6HW7FXF3gkr5/6hab3sHg7sDfqnhjZWz+NVC0fLHbHDjb+2k5a +zKJv2a9LE7An4mNFl6z5D+3htbf/hX2kXtycQZtDbT3nNpzFvgIb7wS1z6Ow +QuIVV9Avv9UyumgBhItFRbVhF7Vc7DmqIgw2mfntbwR9v/smpZ8VhnOrciJ6 +sZO0Jyvu7ROBuidDZ2cEfUvV6KPMhRDl+FpDT41EHzuHHs7lLoTAdvOHZtir ++dWeUvJi0M4O5+7ALjZ0yNCbEoO+UFVTDnZz7cEF4fU0yN7c9CwHe7Lp9dcf +FhKQFjXvp6VOIlk7CenEhxJQ/H3v3CZs/S5LkDSVhK4+w3FH7ND+quwN66Qg +OPP563jsSOF2/c0S0lD1U/7cS2ye+t3xlF8y4Jg12HGajudDtC3uMJCFiPqn +FTexhe8MqC2PkgWqeHqwHnu1wSqnokFZODHu5jGK7WmRVv6yRw6K4kS1PDVI +1BEYHaP4XB4SdN5mIk0SfSk4n+pPUwC1ke4HPthDg0W5t60UIJFntCkJe8n+ +b683NSqAsu4bZh225XFnQ/8qRTgx81TebA2J6vKMJwu5SqBwnVlks5ZEebzf +cWb7VUGXSl1SyCDRDpeTX2JKVKFM5fuil9hDzXLbSwZUoUu7zmEC2zBPV361 +x0poymip2aqN58nyrVi4ZRU8Sdo39xWbP9pz4Mex1eA0XuCorUsiub2WlRX2 +6tD8TnTRr3UkGshbErwrVB163nGZmutJVPO5U2X4hDpskrhV4IztbedzbE2j +Oryz4e+txM7TiXPKYtLh7IFDYQf08f3JgrHDihpAU5xiiDNJ5BwkrmfbqwmL +FOXKQoxIhOJcmG7/acJi32PD2djaKVwTttIaqOPGRr7HFso12HZ49xrIpH2x +2WFMopIvXm7lj9YAba7UVscEr0/X4qPKN9dC44G+Y3MbcT9L+7ckiwFqp4o6 +P5iTKHfP5U9ThxmwQdLxs9JmEp1n9faI/sMAhxeB6zyx2UdiB1e+ZsD4xU/5 +n7BlGq4L7bHQhnA61du7Bf9/DEa06+k64Cpkcv4PkEhF/UJyar8ufPh8rjzQ +ikQNZyYYM8J6ALtf15Vje1MeXYSaHjiV9MkLbyfRjWYNxjZfPZj7y6s5B1s9 +qO7V9Ds9uGp0TZhnjZ+3mKdJPF8HonFnRBJtSaSqspJY7aEPf4QCpXmOJNLN +3y/xBzEhysN9RZkXiVjsY5N6Dkw4cTpMU8obr1d6xhd/byYoSPrHhWGL3Cy9 +1xLPhHX0n6NrfPB6u0E6Z5QxoazPb2uOL95Pr/hfZ9AN4L3yvHduAP59U+3W +uYsZwl/CbRHdQSTKidbYVdVuBNROmxatWBJ1xiGT4/mmsKG2KKfjEonUfN84 ++IRvBl5Yo9BEHYk48/fvqiYAfPZm3FzRRyLFwZpFiqxtcEJtdkGszCDab2D+ +OUPbElJOSf3N3DaIWMOzrXKkFajxgm6tjxtEJdtiFnE7rCFEyVVlc8UgypsI +fVScaQMn3ibPHBobRNNbl79oTt4Jgwrs2TiTIdQtJDLeG2APplLcloKjQ2jf +ioi0o3RHYFafc3rcNoTuhrQ2XkrZBSNvxDu1Vw6jg5TSlE7IbkixUouuixhG +k7bbXZ/6OUFnF3c///kwMvVK38rbvQc+i8wGa2iPoFdK10ObDZxh6MjjQYmU +EaR861hDoZYLDBxgZeWSI6imR9vOQdIV+ELeW5fYjaKVXWNBccOu0FLpqsQt +GUUGl9KLc3vcIGTw/GidxBi6Lkqty2hyB3r5YYk2NIbub13/MaXWAyoX6iZU +HRhDV0zOyMwWeYJPZsYj/t0x1PEp/4TBWS+Y8/fRP9M3hqrsr2lEHvGGQRuz +cFvlcTS+d4/QPrYPNAvHafbZj6PJ7YzgEQtfUO5oKHqaPI4Khz9Mxxj7wUf/ +lpufK8eRe05+oI+EPyRFcB8q88ZRRflOP5GT/qAr+Y9msSIfmaq8mjk94w9j +Nn/qJy35iN4T9PHfkAA4mC2iZBHBR/3iYY7XvgWA9YfapsSrfNR53iHQ2oUF +TVKhB2mNfJQZzxWP7WTBnZD5OD8eHzU8nJ8JtAmEGNoCQ3cxCi31hpMGdYGg +VfbQKE2NQquXPe1Y0RAI15Ynhcxh67fbLxd7GAiGtD/u4eoUcjL3uv3+USAU +h82HWtMplLki7vmhZ4GgcCHK47cGhZS77yxtfY+/fzzdaY8WhTR8Fa94TwWC +TomR3b/rKGTqP1KYYsiGZRV5er/NKHQrayzGwZgNzuF51bs2UWjZa/4WxY1s +SC8UESnAHrGa6ircxIa14VXdTuYU3r+EFrRvY4OxcG1OwWYKSU3JeMjuZsMk +GvW0Agr1nzNazN3LBmtnKZvdVhTa/dSkKyiCDSt4l0gu9kMhM65+FBuifunb +jWBnxWwxeryfDWbiBx3PbKeQg4d1AC+RDfeqLV3+Z02hWg2PWp0zbMhvNXNR +taXQ+fqkkJpbbJj+s76/0IFCe5mXTeML2eBTSpMbwba7XbZ4YxHuM+0oYuBI +oSWXB25Xl7Ch/RZNqwE7JXoXeb8S9wvbePT5LgolMTTCqh6zYUuwR9gXJwqF +Xn4eXv6FDb17/Ae6XClkIzVgHt3DBpb/DgNZNwpppQhJMvvYYFjLBUfsgWij +kjIeGz65Hr7Wih3gwB2+N8SGOUUd9xp3CrkvjNlX+psNrdIf36d6Usg6Rjmy +WIEDCRZvXwj7Uugx94RtxnIOaFp33jDHNm/na8Qrc6Dn+jA9Dltf8/kHi5Uc +eP8l0vYHttK7RItPmhx4taV80TM/Cg2adSssMeJAL5NmnhRAoQvC2Q+C9nBg +KC/W5TYbP/96iSv2LhyYMY3/5wP2ca/4aAM3DjidKshczKFQfOWutfOeHAhz +i8wOxg4gFqT/zeLAM+efK+gEhQzaWOwnURwIzEvPPR1EoXfpmuL0NA5w7j6t +WxFKobtIMvhHOgeC+d9bAPv48ERzyUUO3DOLucDGZto0H954mQNPrtW43ME+ +LxTIt7/BgW28I/eNwii0PSL7Q3wxnkeC0ZPN4RRSVT1lvOUuBx7VTFzywZ5o +i7goco8D8cMf1A9h31yD7M9XcEBtlVhUPfZ/3d2NuXUcePop7ovhXgpV2qkU +vmzlQEGN329l/J6Y+lt4YWYbBzxsS1KNsVmFZIBHOwdYbv3vd2NLi9ap9Hdw +oJ8vVHASO7ze/cLMWw6sPpIpM4ZN1/47ToPHgdh+C9XKCAr9fnfo9c8BDoT8 +uBL2HLszhaNf+oMDVzNyY/uwD/cakqZDHAhY9rJhaSSFPl557eNI4Xk4rlUM +ws5YJGN1cAEBvY7HZmhRFGrgd3vtFyHAL07ZcCX29+6i6H0LCThpz1IywDav +tMxmLSags/HXNy/sAf/4P7YyBOzOeh9/G1vazkrWSo4AmeartAbsTSayDCRP +wDAxse0ldppksauBEgGGiazqccH5uq9lKmoEeOZ9umEYTSEiv7hVnk6A9NSS +Y5bYaWkJX5dqEnB1rF7GGXuAkJMUZRBwjH9lXbTgvJx18JA+AaLfZzlF2HVz +cskDTAKEWn5dr8bm/ey51GNIQOY3vyPN2GaNB5u6NhLw3+0Dlt3Y/eF3Vz4A +AuIlTz5bEoP3D/dEo+ptBNjrNDvLY5ta7LArsySAcSbgzCrs80p9Cfk7CFie +dn+CiV0jWprGtSVgRiWMYY79bTSxIMuOgMTyBJoV9sYW+TfndhGQ5cd94oLN +KusbPOlEQFprRa4P9rlrpcJ/ORPwtWeFLge7L9pGP84dz8vzx6YYbElfBetI +TwJyk3Y0JQjybL75hHoTcPPF9ESy4PpVh1J9/QnQW7bdLVXQZ4ntTXcWAW4m +vSfTBHmTCrVObALEea2sS4K83m8ddgQB/q6z37MEee33BrYHE6Dx6qDiDUG/ +6kP/QSgB3cUW4zmC/Ju2yzaFE9C0wzU2X5B/TlHHaB8BL+TLcwsF+fH9W9dH +4n7prkl3sCXYZe6MaAKKrS3mS7BNHA9H0PcTMN95QPeeIN9s5wnVOAIiuyiR +cuyzmsuvK8YTcFysOqUC+740r0LmIAEpjEdlldi9f8raxJMICJaUPVUlyP9+ +uHfhYQL6L9ym3cc2frVzej6ZgIBrJw0E/j8lhAC1 "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6007907022525464, - 1.5921070201523966`}}, + "PlotRange" -> {{0, 180}, {0.8163958154552307, + 1.2157499325637888`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6007907022525477}, + "AxesOrigin" -> {0, 0.8163958154552324}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -12525,21 +14120,21 @@ l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6007907022525464, - 1.5921070201523966`}}, + "PlotRange" -> {{0, 180}, {0.8163958154552307, + 1.2157499325637888`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6007907022525477}, + "AxesOrigin" -> {0, 0.8163958154552324}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -12553,102 +14148,105 @@ 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:eJwV1nk8VOsfB3AhTVmyhJCKoYylNLZIPd9CIkvJvhszx1q2iCh1S5sWpFu6 +1RAikWxZ66dIkuKW9hQyqmOfQyiX3zN/nNe83q8z53M+5zvzPK+jxopw4ggL +CQkN40PwGfVy3drqzpdbtinMq5KrSLRlJM+IZVmM3N70bxW4h2ucqWHZgLSy +L5YIvIv9QkzC4Al6GSseMIhdFp/ctNCyHd1xtvMewj7dsrwxuehf9LeZK3cY +u7Yz6sYs8w16qsHQHsUmP7YlJdS/R1VLn8yOYSvz6F6/LD6jiCmGIoW9czTJ +NKb9K2K8c0uYxH44S4rHF/WinNsO9Gnst0cVE+/v+4b+DZaS/4M9ImZJTjB5 +yFrqssMcttjZSA+DqQFUkfGjY8FqEq2Uud4aVf8DeY4IZy3EdlD5dWvEYgg1 +0jKEpbCJbHUFPdoIelApliuLnazpmBLWPor8ZC1TFbHfK3Zt2F80jmj3lxuo +Y7M9Q0MunuUj9/5S/lrssWtCOeX7KFSVufS3HjZNXU96nDmJlllp9ZhhZ7Kb +rKXlfyEbrd6HW7FXF3gkr5/6hab3sHg7sDfqnhjZWz+NVC0fLHbHDjb+2k5a +zKJv2a9LE7An4mNFl6z5D+3htbf/hX2kXtycQZtDbT3nNpzFvgIb7wS1z6Ow +QuIVV9Avv9UyumgBhItFRbVhF7Vc7DmqIgw2mfntbwR9v/smpZ8VhnOrciJ6 +sZO0Jyvu7ROBuidDZ2cEfUvV6KPMhRDl+FpDT41EHzuHHs7lLoTAdvOHZtir ++dWeUvJi0M4O5+7ALjZ0yNCbEoO+UFVTDnZz7cEF4fU0yN7c9CwHe7Lp9dcf +FhKQFjXvp6VOIlk7CenEhxJQ/H3v3CZs/S5LkDSVhK4+w3FH7ND+quwN66Qg +OPP563jsSOF2/c0S0lD1U/7cS2ye+t3xlF8y4Jg12HGajudDtC3uMJCFiPqn +FTexhe8MqC2PkgWqeHqwHnu1wSqnokFZODHu5jGK7WmRVv6yRw6K4kS1PDVI +1BEYHaP4XB4SdN5mIk0SfSk4n+pPUwC1ke4HPthDg0W5t60UIJFntCkJe8n+ +b683NSqAsu4bZh225XFnQ/8qRTgx81TebA2J6vKMJwu5SqBwnVlks5ZEebzf +cWb7VUGXSl1SyCDRDpeTX2JKVKFM5fuil9hDzXLbSwZUoUu7zmEC2zBPV361 +x0poymip2aqN58nyrVi4ZRU8Sdo39xWbP9pz4Mex1eA0XuCorUsiub2WlRX2 +6tD8TnTRr3UkGshbErwrVB163nGZmutJVPO5U2X4hDpskrhV4IztbedzbE2j +Oryz4e+txM7TiXPKYtLh7IFDYQf08f3JgrHDihpAU5xiiDNJ5BwkrmfbqwmL +FOXKQoxIhOJcmG7/acJi32PD2djaKVwTttIaqOPGRr7HFso12HZ49xrIpH2x +2WFMopIvXm7lj9YAba7UVscEr0/X4qPKN9dC44G+Y3MbcT9L+7ckiwFqp4o6 +P5iTKHfP5U9ThxmwQdLxs9JmEp1n9faI/sMAhxeB6zyx2UdiB1e+ZsD4xU/5 +n7BlGq4L7bHQhnA61du7Bf9/DEa06+k64Cpkcv4PkEhF/UJyar8ufPh8rjzQ +ikQNZyYYM8J6ALtf15Vje1MeXYSaHjiV9MkLbyfRjWYNxjZfPZj7y6s5B1s9 +qO7V9Ds9uGp0TZhnjZ+3mKdJPF8HonFnRBJtSaSqspJY7aEPf4QCpXmOJNLN +3y/xBzEhysN9RZkXiVjsY5N6Dkw4cTpMU8obr1d6xhd/byYoSPrHhWGL3Cy9 +1xLPhHX0n6NrfPB6u0E6Z5QxoazPb2uOL95Pr/hfZ9AN4L3yvHduAP59U+3W +uYsZwl/CbRHdQSTKidbYVdVuBNROmxatWBJ1xiGT4/mmsKG2KKfjEonUfN84 ++IRvBl5Yo9BEHYk48/fvqiYAfPZm3FzRRyLFwZpFiqxtcEJtdkGszCDab2D+ +OUPbElJOSf3N3DaIWMOzrXKkFajxgm6tjxtEJdtiFnE7rCFEyVVlc8UgypsI +fVScaQMn3ibPHBobRNNbl79oTt4Jgwrs2TiTIdQtJDLeG2APplLcloKjQ2jf +ioi0o3RHYFafc3rcNoTuhrQ2XkrZBSNvxDu1Vw6jg5TSlE7IbkixUouuixhG +k7bbXZ/6OUFnF3c///kwMvVK38rbvQc+i8wGa2iPoFdK10ObDZxh6MjjQYmU +EaR861hDoZYLDBxgZeWSI6imR9vOQdIV+ELeW5fYjaKVXWNBccOu0FLpqsQt +GUUGl9KLc3vcIGTw/GidxBi6Lkqty2hyB3r5YYk2NIbub13/MaXWAyoX6iZU +HRhDV0zOyMwWeYJPZsYj/t0x1PEp/4TBWS+Y8/fRP9M3hqrsr2lEHvGGQRuz +cFvlcTS+d4/QPrYPNAvHafbZj6PJ7YzgEQtfUO5oKHqaPI4Khz9Mxxj7wUf/ +lpufK8eRe05+oI+EPyRFcB8q88ZRRflOP5GT/qAr+Y9msSIfmaq8mjk94w9j +Nn/qJy35iN4T9PHfkAA4mC2iZBHBR/3iYY7XvgWA9YfapsSrfNR53iHQ2oUF +TVKhB2mNfJQZzxWP7WTBnZD5OD8eHzU8nJ8JtAmEGNoCQ3cxCi31hpMGdYGg +VfbQKE2NQquXPe1Y0RAI15Ynhcxh67fbLxd7GAiGtD/u4eoUcjL3uv3+USAU +h82HWtMplLki7vmhZ4GgcCHK47cGhZS77yxtfY+/fzzdaY8WhTR8Fa94TwWC +TomR3b/rKGTqP1KYYsiGZRV5er/NKHQrayzGwZgNzuF51bs2UWjZa/4WxY1s +SC8UESnAHrGa6ircxIa14VXdTuYU3r+EFrRvY4OxcG1OwWYKSU3JeMjuZsMk +GvW0Agr1nzNazN3LBmtnKZvdVhTa/dSkKyiCDSt4l0gu9kMhM65+FBuifunb +jWBnxWwxeryfDWbiBx3PbKeQg4d1AC+RDfeqLV3+Z02hWg2PWp0zbMhvNXNR +taXQ+fqkkJpbbJj+s76/0IFCe5mXTeML2eBTSpMbwba7XbZ4YxHuM+0oYuBI +oSWXB25Xl7Ch/RZNqwE7JXoXeb8S9wvbePT5LgolMTTCqh6zYUuwR9gXJwqF +Xn4eXv6FDb17/Ae6XClkIzVgHt3DBpb/DgNZNwpppQhJMvvYYFjLBUfsgWij +kjIeGz65Hr7Wih3gwB2+N8SGOUUd9xp3CrkvjNlX+psNrdIf36d6Usg6Rjmy +WIEDCRZvXwj7Uugx94RtxnIOaFp33jDHNm/na8Qrc6Dn+jA9Dltf8/kHi5Uc +eP8l0vYHttK7RItPmhx4taV80TM/Cg2adSssMeJAL5NmnhRAoQvC2Q+C9nBg +KC/W5TYbP/96iSv2LhyYMY3/5wP2ca/4aAM3DjidKshczKFQfOWutfOeHAhz +i8wOxg4gFqT/zeLAM+efK+gEhQzaWOwnURwIzEvPPR1EoXfpmuL0NA5w7j6t +WxFKobtIMvhHOgeC+d9bAPv48ERzyUUO3DOLucDGZto0H954mQNPrtW43ME+ +LxTIt7/BgW28I/eNwii0PSL7Q3wxnkeC0ZPN4RRSVT1lvOUuBx7VTFzywZ5o +i7goco8D8cMf1A9h31yD7M9XcEBtlVhUPfZ/3d2NuXUcePop7ovhXgpV2qkU +vmzlQEGN329l/J6Y+lt4YWYbBzxsS1KNsVmFZIBHOwdYbv3vd2NLi9ap9Hdw +oJ8vVHASO7ze/cLMWw6sPpIpM4ZN1/47ToPHgdh+C9XKCAr9fnfo9c8BDoT8 +uBL2HLszhaNf+oMDVzNyY/uwD/cakqZDHAhY9rJhaSSFPl557eNI4Xk4rlUM +ws5YJGN1cAEBvY7HZmhRFGrgd3vtFyHAL07ZcCX29+6i6H0LCThpz1IywDav +tMxmLSags/HXNy/sAf/4P7YyBOzOeh9/G1vazkrWSo4AmeartAbsTSayDCRP +wDAxse0ldppksauBEgGGiazqccH5uq9lKmoEeOZ9umEYTSEiv7hVnk6A9NSS +Y5bYaWkJX5dqEnB1rF7GGXuAkJMUZRBwjH9lXbTgvJx18JA+AaLfZzlF2HVz +cskDTAKEWn5dr8bm/ey51GNIQOY3vyPN2GaNB5u6NhLw3+0Dlt3Y/eF3Vz4A +AuIlTz5bEoP3D/dEo+ptBNjrNDvLY5ta7LArsySAcSbgzCrs80p9Cfk7CFie +dn+CiV0jWprGtSVgRiWMYY79bTSxIMuOgMTyBJoV9sYW+TfndhGQ5cd94oLN +KusbPOlEQFprRa4P9rlrpcJ/ORPwtWeFLge7L9pGP84dz8vzx6YYbElfBetI +TwJyk3Y0JQjybL75hHoTcPPF9ESy4PpVh1J9/QnQW7bdLVXQZ4ntTXcWAW4m +vSfTBHmTCrVObALEea2sS4K83m8ddgQB/q6z37MEee33BrYHE6Dx6qDiDUG/ +6kP/QSgB3cUW4zmC/Ju2yzaFE9C0wzU2X5B/TlHHaB8BL+TLcwsF+fH9W9dH +4n7prkl3sCXYZe6MaAKKrS3mS7BNHA9H0PcTMN95QPeeIN9s5wnVOAIiuyiR +cuyzmsuvK8YTcFysOqUC+740r0LmIAEpjEdlldi9f8raxJMICJaUPVUlyP9+ +uHfhYQL6L9ym3cc2frVzej6ZgIBrJw0E/j8lhAC1 "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6007907022525464, 1.5921070201523966`}}, + "PlotRange" -> {{0, 180}, {0.8163958154552307, 1.2157499325637888`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6007907022525477}, + "AxesOrigin" -> {0, 0.8163958154552324}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -12658,7 +14256,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.8163958154552324}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -12686,7 +14285,8 @@ l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.6007907022525464, 1.5921070201523966`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.8163958154552307, 1.2157499325637888`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -12694,9 +14294,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.994015268428534*^9}, CellLabel-> - "Out[137]=",ExpressionUUID->"9eb47740-dc4f-3248-80e4-ef19d916a0ad"] + "Out[338]=",ExpressionUUID->"5bb9d157-8ab0-443f-bd1d-9987cadddb61"] }, Open ]], Cell[CellGroupData[{ @@ -12759,154 +14359,159 @@ 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[339]:=",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.962223088138177`*^-266\\\", \ + "\"\\!\\(\\*FractionBox[\\\"4.4715320304530457`*^-277\\\", \ \\\"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, 339, + 77, 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326773051552*^9, 3.994015268573893*^9}, CellLabel-> "During evaluation of \ -In[138]:=",ExpressionUUID->"6bc1b8c6-3100-6640-9985-3abfd43de799"], +In[339]:=",ExpressionUUID->"fd50da40-92cc-4ad6-941f-d0ee971ac4ce"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.450949205829742`*^-278\\\", \ + "\"\\!\\(\\*FractionBox[\\\"4.317762954587535`*^-289\\\", \ \\\"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, 339, + 78, 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326773051552*^9, 3.994015268582906*^9}, CellLabel-> "During evaluation of \ -In[138]:=",ExpressionUUID->"82e13dda-210b-a94d-9e1d-a821db42ab6b"], +In[339]:=",ExpressionUUID->"0bc5fa83-00f3-4535-8847-1a7dd96db495"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4109778485455803`*^-289\\\", \ + "\"\\!\\(\\*FractionBox[\\\"4.169281759594062`*^-301\\\", \ \\\"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}, + 339, 79, 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326773051552*^9, 3.994015268589408*^9}, CellLabel-> "During evaluation of \ -In[138]:=",ExpressionUUID->"9d37688a-c69d-ed49-bce7-cf0090e0ecb8"], +In[339]:=",ExpressionUUID->"53b89f26-a86b-4431-919b-87cf4d4793ef"], 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, 339, 80, 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326773051552*^9, 3.9940152685956783`*^9}, CellLabel-> "During evaluation of \ -In[138]:=",ExpressionUUID->"4e87d0d8-b47a-ef47-85af-16467b219f50"], +In[339]:=",ExpressionUUID->"80047130-70f7-45a8-952e-80935b702ead"], 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:eJwV13k4lGsUAHDRqsiafZtvZpA1S1Kmc6iUJKkobrbskiSEckl2kmgRoZBs +Mx9dUaiIJEmbIkrhliyVypK6rvveP+aZ5/fMzPed837nnPcdlf2Hdnrw8/Hx +zZHX/+9TfQ+bmcmF63Om1Bfpl65b35krHWbaHQ1nWu+mprrIAEo+2S/dnQ4f +6JR5ti7qELKjtEugOx9+PVsbpOtiDKJfpNJnuq6Dbeeo2JyzBbyr335oouse +qOa3zvg424M5c+Ttt67nkHCpf1jL0QdmuozOjXcNAK86rsZydxg0bbhW+Cz/ +B1AWUYmj65JA/t2tj/s1Z4FiKAYFWWWAhJ9z6aINAqi8aNXAkNpFSF9lXrfd +djGOOh4b1l2dB68zdRu+iQjh16YsPmGzfEgujHzCLyOKOszRafZIIUidHUzM +yBHHtDz28G3zaxC/22L98ylJjA9LO+bKKYEjxlecH0ZLo8ZGA0lXqTLYell4 +wjJFGsctq9/UKpQBY9HxhI5z0qjGv+ewCLMMnnbaVb4olsYPs/P5aN0y0A5Y +JtDXIY0fh+9dvWVRBp+KjhZ9l5XBwtKHZfOPlcE+ie2f5f6SQcGVnvn+PWWw +8euvcP9BWQykc+5GpJRD2JazKxvHZNFS9II490w58K5o9YhPyaJqysst3efL +QXq3i/GtxXJoob3DjnGlHMZu3p8W0JZDWb+a6Zgb5ZARnRZ0MVQOJwwcNGLe +lsOAJNu/WUgeVetsTH1WckHq0F0FKSl57E1q9pXQ4cK21r2PfZTlUSXsYUCd +Pheqw5M1l+vLY6uQgdisCReS3o2P2O+Vx1on3+Lt1lzQK6nz+povjzoXAiU0 +jnDhhImNq+waBbROaeK21nBhi1PudyMzBdTXbg62qOeCcNToSdttCtjknOZ4 +v4ELl5pii9JcFLCRU5vCe8iFm1trRxcmKuBjl799zXu5ML6XCvnxWgGr+vYa +pcxywSl4Mqn9mCLOz2vpCVjPA9YFM/mRWEXM6bZ/ZGvGI/mf5i5KU8RPTlff +GZrzIPwf9admhYr4JG9N0JAVD86ddJK81a6IMX877hJx5EH7mQd5VxWUUCLX +UDEsnAdreRer/ryrhC+1PdqLK3mwsatj9kurEm4VqIyureLBdr75m52fK2GC +1NEFrTU8cNvp/xo+KKHIxdzDr27zwPyYSmTUAmXMm2sZa3jIgwClqQJTDWVM +8xusan/Pg2avvM9NIcq43ST6a+NSGiz+MRY7fkwZ298u6rYSpqEjrXO1QZQy +Ni7XyHwpQsPrW0uiChOVcUhk9HK3JA1flgaJxV5SxrfNw+/KlWiQrthiZH5P +GZl/Jh9J1aPB7+e3qFYhFezva5Q3tqVh7WHPFR/FVLCZ99Pcbw8Ni0d6ygSk +VbDpY39elj0NV3ubXq1nqCBtePD9J0ca+u6c07yxWgW9TkjQlp40WMcad19x +VsHBqgE5jRAaFP/lHrzrroLZeClaNJSGsRCGwFsfFdQakqR+hNGQ4L1UWzpI +BSNsDSWKI2hosHx7MjVBBSXNux51x9CgJ3ZC51ilCtZvmTC2S6eBL3myObNa +BYNKys6PZ5D8BXwdqutUcHGzrXHcORoOTO6M/XZfBSeFqncVZNJQ2M3s9epR +wTDzHT8Kc2lYkdcat1uAgT7Ln59vKaHhbymOfOBiBmazxW5IltFwPa2y8rQQ +Ay8LnWW7lJN8orPetEkxsE+pa+EQj8Tr4adnqsnA96tHO+v/omFGQ6RPy5aB +EZttDiXW0zCVI3tC34GBGsZrAhNv0zCxnMU0dmZgx7zMebF3yPP4Yey70YeB +Q8OWD/0baBioc5tyiGDgvaZISaFmGt5p+V90iWbgmp0q54aJ3+SFmnjGM7DT +zru48T4Nr06eij58hoG715w+5f6AhjbLGuGEqwx8ekHEL7iNhge3GytPlTJQ +wutavvYjGpp12ndn0AyMZloFDRLfEe/Pyr3FwIRfyWPwmIa62FFO4R1yPVrw +3BDxzenJ9yVNDExLdHuT1EHWo1dQ9cZjBp6QDrNsfkIDbSXZVvucgUVPGcEO +T2kov6t0sKGLgfxVUaZjxEUFBn896mfglDynhf85DVkHnGBgkoGbQ9Syf7+g +4cJb74GhXwyslno76d9Jw1nrI7Gf5xg42sH6/ZY4VT/h0c8lFFL5QUvolzQk +X033/1eYQvpUhIToK7L+Ujmi8yUoHNdU7vAnjv5duWe5IoXaU6Y2Cl00RB6s +/yVBUagq8kjen/j4u5YcWTUKS+rnZdcSh9k8Q2UtCm3VP7fzd9MQ0tQ7yNKj +UNTj3F/mxEcMP8ZpGFHo5yywI4444Nq4+ioTCkU+YUEj8YHkBQEm5hTKoV2g +xmsavGeXi5tZUrhX0HzcntjzkGz15h0UeuwxVI8hdutn2lvZUshnradYSuyy +S+efnQ4UZk9aPn1E7HjfOG+vM4VPNdJxmNjBaKOZkzuFTVzJAP4eGvaUbP/g +5kPhWbFPzlLEu+XsE3z8Kex5JCeqRmxzyk3j0BEKJ5jNMQbE2+cOdgSFUnjG +bLLOhNjycOjh8AgSP6O5Bom3DEZLREVT+CnTPOx/b7I9VRMbT6Ha7ox5/3/f +7MEFh+QUcv+uRht9YjDOn007Q6HinyO+bGKTsvLL589T6H6UvV2SuFe5LG9T +NoVJupqp84jDz5fkTuRR2Nl2kj1C8pFeVpxTUEjhpLW49BPimhNFl3aWUJjn +0+hWQWw3XZg9j0fhKtdgwVTiCb+CrIrrFJooSQl5E2cMXLnoXEPi0zjtt55Y +b+/lTOF6CitKW9RFiZ89zr1wu4HCy67XNr3//3ltyDnvd59Ci0q5xjJinnbW +2bYOCgMqD/QYEVsVZmaEvaCwxkAp/CephzGZC+lq3RQGTkpG3CBWX3A2La6f +xBN3soJJ3BqeftrwI4l/ftfAK1JvnuNpqX+PUNiloHo8lriw91SK2QSFqbIR +Q12kXjfYpCR/+0lh6zH3umPEAy1JSZdnKZQ9vPSXHLHy9fiEfxcy8Xiea50N +qfe7qnHx3KVMNJGahiHSH045MXH7RJh4Jk9aP4w4O+FETK0ME3NeP/dOJ/20 +wvlYVIgmE0eOLNHKIv12ozMskrWKiYNP36M48e6toX92GjIxeddMWwLp13TD +4ON6wMTOHS82+ZB+Flp2KPSLDRNrX5/5NkfmQfmJg0dz7JgoKPjy+T7irdMH +Qrb9wcS6dfp61WSeJAx4B5W6M3Fy25pDTg9pmH9rf4DnUSZ6C279N6aFhgJt +10OSx5kYsMZ87D6ZT2aFzv7NUUy8oPuHiwBx5Ol9fowkJmb0dfcdaaLhl4ed +d98lJh7YdtJGg8y/b2JbXezuMTHJzOH7xE0auv0YT30fMPHsNfu7wzVkP2j5 +BZHtTCyX6U/oqaYhLbxMqfgVWa/UnhUVVTToDix7NzPCRHne+w0aFTT4Vz5x +zBFnodaTF8vdikh9LS1+XCnNwjseQebSV2lY7xHFaVFgYUr6mtMPC8h6yKxS ++KrKwjXtpfuUr5D1iEp/gyYs7LZ7JZSXTcOIte0ff7uzcMg3hG/gNA3PS7Qe +/fRh4TzVzLm9qTTUCixcJ3SIhYUiqqrtKTQk1lTLrg5jYf0lw8miRBrUlKR7 +4k+xMNLtdZX2SRq8vvTs1ahmoYeBF39CMNl/UlzsAhexsbLm+/QBst/6j2gy +dJexcYHrkNwpsh9Pb575/FmEjU9Z+5aX7aJBUCA91keWjYbsXJ+31iT/sKYq +Fy023veJEZLfQkOEB1vcehcbpR2NmPxrSL2sH3uikcdG4Sl1rXByHricfTN7 +uICNjjGRV4zESb3PxHhdK2ajyYKeZd/J+cGkSmGOcZ2NDfOLHzsuI/NrpbW2 +7H02gryAnKgADRUrrqcsHmWj6rIavk9feWDx9ajFh9WqmD24dMT5AQ/kVynG +LTZRxdZX7J1xzTz4Eth8T8NUFYdbDR1KGnlwdkrEJNBSFR+YPtnxoY4HfbMl +2nPO5Pf33BcaVvAgcNkbcZlEVSzqEF5smMmDLHXs29ariquWW6s0eZDzmtvi +I1WRatg5veKvkGkufMndePtujBp+n1fnNPiDC19fRy16lKiGvjtt9KzGufDd +eia7P0MNeWOf9kgPc2F63UizcLEaLjz+ti2lhwv8Eu0rfJ6qoeCuPxq/kvOm +TPPpWgUVdQx8LBFfEskl/zek+OPvkSBa+qstZstB7DE7teLrSvRIK2i+Nl4G +8gn0jtWrNXFlkblBMLcUMjWMRcS9tNB9hLU+36sE2mRNDX+c0UY7MQ9BYali +WCt/L03nlQ4KllTtj7hUBMIC+UGu0brY6Wt1tUr/KiieUDKxZ69CvgTPmraS +AljC2le988EqPFoV7fKPWj5oc2Too456KJJmgrkPLkNgn1jTVj591JoSK9cs +zIWvP1JsLTL18YuV0/Mi/kuwWacly0LLAO2levVUEi/CnR/rfk93GKDfWq5V +3O/z4K+p1/PMwxCD7Q57G9SfBc4X9077JasxVM21bVtQOmxiSlsJ5a/G/sWD +kBWWBmpRSaH3jIxw/84Nwc8cTsFKD+O7rB4jRP7ui/NbEsHjjndM1eE1+Kb9 +i8HpW3Fw93Kn+zdJY2wrfecCdSdhonhuWqfGGPuXhJkNS50AN1bZkiyrtTj4 +z26NrS0R8G1lxurr42vxw7iTlMzJMLhZ+Lt/MmEdVoS1lqybDQaHjRSuUzTB +Ra/EaIcvgSB3MP6WdoMJXgnz1J2dHwCSgn6VVns46Nt4enPHtgNQuCEifNye +gzqp2wpEjQ+AXkTqhox9HJR7PLDclXUAto9XvOx25eDtY5cXMP/1hbhXkzNu +fhzkW3nzoXGFL/zMjzQLP8FB/uZNI3krfKFnXcaLojIO1vi1B+iOeYN3cOEl +Cx4H42du7B597Q1TvBseYxUcjA2Nz6584A1ijO7pVdUcLNjka+JS4A2WixXk +bzdwcDCUabjpD2+o7yxyf/GSg5Hn623VH3vBVuGbWiHdHMzf4fLxQp0XdG9+ +OCXdy0EHvVMxoqVeMFE7muD0noPFETs7WfFeoHVFlzs8wkGnB8e1npt6QX2P +aUjKZw6mme06n6lLriexC3TGOch0Pjzgo+QFnvHBz4ImOei1Iny51qwnTDTE +ZUn95GDz0YEPimOeEP3rglvtL+IlqUlyvZ4gYlCi6TjLwUru+p+MNk/IPVg7 +OTdHPg+tUTe85Qn/ASmcUXI= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -12920,113 +14525,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:eJwV13k4lGsUAHDRqsiafZtvZpA1S1Kmc6iUJKkobrbskiSEckl2kmgRoZBs +Mx9dUaiIJEmbIkrhliyVypK6rvveP+aZ5/fMzPed837nnPcdlf2Hdnrw8/Hx +zZHX/+9TfQ+bmcmF63Om1Bfpl65b35krHWbaHQ1nWu+mprrIAEo+2S/dnQ4f +6JR5ti7qELKjtEugOx9+PVsbpOtiDKJfpNJnuq6Dbeeo2JyzBbyr335oouse +qOa3zvg424M5c+Ttt67nkHCpf1jL0QdmuozOjXcNAK86rsZydxg0bbhW+Cz/ +B1AWUYmj65JA/t2tj/s1Z4FiKAYFWWWAhJ9z6aINAqi8aNXAkNpFSF9lXrfd +djGOOh4b1l2dB68zdRu+iQjh16YsPmGzfEgujHzCLyOKOszRafZIIUidHUzM +yBHHtDz28G3zaxC/22L98ylJjA9LO+bKKYEjxlecH0ZLo8ZGA0lXqTLYell4 +wjJFGsctq9/UKpQBY9HxhI5z0qjGv+ewCLMMnnbaVb4olsYPs/P5aN0y0A5Y +JtDXIY0fh+9dvWVRBp+KjhZ9l5XBwtKHZfOPlcE+ie2f5f6SQcGVnvn+PWWw +8euvcP9BWQykc+5GpJRD2JazKxvHZNFS9II490w58K5o9YhPyaJqysst3efL +QXq3i/GtxXJoob3DjnGlHMZu3p8W0JZDWb+a6Zgb5ZARnRZ0MVQOJwwcNGLe +lsOAJNu/WUgeVetsTH1WckHq0F0FKSl57E1q9pXQ4cK21r2PfZTlUSXsYUCd +Pheqw5M1l+vLY6uQgdisCReS3o2P2O+Vx1on3+Lt1lzQK6nz+povjzoXAiU0 +jnDhhImNq+waBbROaeK21nBhi1PudyMzBdTXbg62qOeCcNToSdttCtjknOZ4 +v4ELl5pii9JcFLCRU5vCe8iFm1trRxcmKuBjl799zXu5ML6XCvnxWgGr+vYa +pcxywSl4Mqn9mCLOz2vpCVjPA9YFM/mRWEXM6bZ/ZGvGI/mf5i5KU8RPTlff +GZrzIPwf9admhYr4JG9N0JAVD86ddJK81a6IMX877hJx5EH7mQd5VxWUUCLX +UDEsnAdreRer/ryrhC+1PdqLK3mwsatj9kurEm4VqIyureLBdr75m52fK2GC +1NEFrTU8cNvp/xo+KKHIxdzDr27zwPyYSmTUAmXMm2sZa3jIgwClqQJTDWVM +8xusan/Pg2avvM9NIcq43ST6a+NSGiz+MRY7fkwZ298u6rYSpqEjrXO1QZQy +Ni7XyHwpQsPrW0uiChOVcUhk9HK3JA1flgaJxV5SxrfNw+/KlWiQrthiZH5P +GZl/Jh9J1aPB7+e3qFYhFezva5Q3tqVh7WHPFR/FVLCZ99Pcbw8Ni0d6ygSk +VbDpY39elj0NV3ubXq1nqCBtePD9J0ca+u6c07yxWgW9TkjQlp40WMcad19x +VsHBqgE5jRAaFP/lHrzrroLZeClaNJSGsRCGwFsfFdQakqR+hNGQ4L1UWzpI +BSNsDSWKI2hosHx7MjVBBSXNux51x9CgJ3ZC51ilCtZvmTC2S6eBL3myObNa +BYNKys6PZ5D8BXwdqutUcHGzrXHcORoOTO6M/XZfBSeFqncVZNJQ2M3s9epR +wTDzHT8Kc2lYkdcat1uAgT7Ln59vKaHhbymOfOBiBmazxW5IltFwPa2y8rQQ +Ay8LnWW7lJN8orPetEkxsE+pa+EQj8Tr4adnqsnA96tHO+v/omFGQ6RPy5aB +EZttDiXW0zCVI3tC34GBGsZrAhNv0zCxnMU0dmZgx7zMebF3yPP4Yey70YeB +Q8OWD/0baBioc5tyiGDgvaZISaFmGt5p+V90iWbgmp0q54aJ3+SFmnjGM7DT +zru48T4Nr06eij58hoG715w+5f6AhjbLGuGEqwx8ekHEL7iNhge3GytPlTJQ +wutavvYjGpp12ndn0AyMZloFDRLfEe/Pyr3FwIRfyWPwmIa62FFO4R1yPVrw +3BDxzenJ9yVNDExLdHuT1EHWo1dQ9cZjBp6QDrNsfkIDbSXZVvucgUVPGcEO +T2kov6t0sKGLgfxVUaZjxEUFBn896mfglDynhf85DVkHnGBgkoGbQ9Syf7+g +4cJb74GhXwyslno76d9Jw1nrI7Gf5xg42sH6/ZY4VT/h0c8lFFL5QUvolzQk +X033/1eYQvpUhIToK7L+Ujmi8yUoHNdU7vAnjv5duWe5IoXaU6Y2Cl00RB6s +/yVBUagq8kjen/j4u5YcWTUKS+rnZdcSh9k8Q2UtCm3VP7fzd9MQ0tQ7yNKj +UNTj3F/mxEcMP8ZpGFHo5yywI4444Nq4+ioTCkU+YUEj8YHkBQEm5hTKoV2g +xmsavGeXi5tZUrhX0HzcntjzkGz15h0UeuwxVI8hdutn2lvZUshnradYSuyy +S+efnQ4UZk9aPn1E7HjfOG+vM4VPNdJxmNjBaKOZkzuFTVzJAP4eGvaUbP/g +5kPhWbFPzlLEu+XsE3z8Kex5JCeqRmxzyk3j0BEKJ5jNMQbE2+cOdgSFUnjG +bLLOhNjycOjh8AgSP6O5Bom3DEZLREVT+CnTPOx/b7I9VRMbT6Ha7ox5/3/f +7MEFh+QUcv+uRht9YjDOn007Q6HinyO+bGKTsvLL589T6H6UvV2SuFe5LG9T +NoVJupqp84jDz5fkTuRR2Nl2kj1C8pFeVpxTUEjhpLW49BPimhNFl3aWUJjn +0+hWQWw3XZg9j0fhKtdgwVTiCb+CrIrrFJooSQl5E2cMXLnoXEPi0zjtt55Y +b+/lTOF6CitKW9RFiZ89zr1wu4HCy67XNr3//3ltyDnvd59Ci0q5xjJinnbW +2bYOCgMqD/QYEVsVZmaEvaCwxkAp/CephzGZC+lq3RQGTkpG3CBWX3A2La6f +xBN3soJJ3BqeftrwI4l/ftfAK1JvnuNpqX+PUNiloHo8lriw91SK2QSFqbIR +Q12kXjfYpCR/+0lh6zH3umPEAy1JSZdnKZQ9vPSXHLHy9fiEfxcy8Xiea50N +qfe7qnHx3KVMNJGahiHSH045MXH7RJh4Jk9aP4w4O+FETK0ME3NeP/dOJ/20 +wvlYVIgmE0eOLNHKIv12ozMskrWKiYNP36M48e6toX92GjIxeddMWwLp13TD +4ON6wMTOHS82+ZB+Flp2KPSLDRNrX5/5NkfmQfmJg0dz7JgoKPjy+T7irdMH +Qrb9wcS6dfp61WSeJAx4B5W6M3Fy25pDTg9pmH9rf4DnUSZ6C279N6aFhgJt +10OSx5kYsMZ87D6ZT2aFzv7NUUy8oPuHiwBx5Ol9fowkJmb0dfcdaaLhl4ed +d98lJh7YdtJGg8y/b2JbXezuMTHJzOH7xE0auv0YT30fMPHsNfu7wzVkP2j5 +BZHtTCyX6U/oqaYhLbxMqfgVWa/UnhUVVTToDix7NzPCRHne+w0aFTT4Vz5x +zBFnodaTF8vdikh9LS1+XCnNwjseQebSV2lY7xHFaVFgYUr6mtMPC8h6yKxS ++KrKwjXtpfuUr5D1iEp/gyYs7LZ7JZSXTcOIte0ff7uzcMg3hG/gNA3PS7Qe +/fRh4TzVzLm9qTTUCixcJ3SIhYUiqqrtKTQk1lTLrg5jYf0lw8miRBrUlKR7 +4k+xMNLtdZX2SRq8vvTs1ahmoYeBF39CMNl/UlzsAhexsbLm+/QBst/6j2gy +dJexcYHrkNwpsh9Pb575/FmEjU9Z+5aX7aJBUCA91keWjYbsXJ+31iT/sKYq +Fy023veJEZLfQkOEB1vcehcbpR2NmPxrSL2sH3uikcdG4Sl1rXByHricfTN7 +uICNjjGRV4zESb3PxHhdK2ajyYKeZd/J+cGkSmGOcZ2NDfOLHzsuI/NrpbW2 +7H02gryAnKgADRUrrqcsHmWj6rIavk9feWDx9ajFh9WqmD24dMT5AQ/kVynG +LTZRxdZX7J1xzTz4Eth8T8NUFYdbDR1KGnlwdkrEJNBSFR+YPtnxoY4HfbMl +2nPO5Pf33BcaVvAgcNkbcZlEVSzqEF5smMmDLHXs29ariquWW6s0eZDzmtvi +I1WRatg5veKvkGkufMndePtujBp+n1fnNPiDC19fRy16lKiGvjtt9KzGufDd +eia7P0MNeWOf9kgPc2F63UizcLEaLjz+ti2lhwv8Eu0rfJ6qoeCuPxq/kvOm +TPPpWgUVdQx8LBFfEskl/zek+OPvkSBa+qstZstB7DE7teLrSvRIK2i+Nl4G +8gn0jtWrNXFlkblBMLcUMjWMRcS9tNB9hLU+36sE2mRNDX+c0UY7MQ9BYali +WCt/L03nlQ4KllTtj7hUBMIC+UGu0brY6Wt1tUr/KiieUDKxZ69CvgTPmraS +AljC2le988EqPFoV7fKPWj5oc2Too456KJJmgrkPLkNgn1jTVj591JoSK9cs +zIWvP1JsLTL18YuV0/Mi/kuwWacly0LLAO2levVUEi/CnR/rfk93GKDfWq5V +3O/z4K+p1/PMwxCD7Q57G9SfBc4X9077JasxVM21bVtQOmxiSlsJ5a/G/sWD +kBWWBmpRSaH3jIxw/84Nwc8cTsFKD+O7rB4jRP7ui/NbEsHjjndM1eE1+Kb9 +i8HpW3Fw93Kn+zdJY2wrfecCdSdhonhuWqfGGPuXhJkNS50AN1bZkiyrtTj4 +z26NrS0R8G1lxurr42vxw7iTlMzJMLhZ+Lt/MmEdVoS1lqybDQaHjRSuUzTB +Ra/EaIcvgSB3MP6WdoMJXgnz1J2dHwCSgn6VVns46Nt4enPHtgNQuCEifNye +gzqp2wpEjQ+AXkTqhox9HJR7PLDclXUAto9XvOx25eDtY5cXMP/1hbhXkzNu +fhzkW3nzoXGFL/zMjzQLP8FB/uZNI3krfKFnXcaLojIO1vi1B+iOeYN3cOEl +Cx4H42du7B597Q1TvBseYxUcjA2Nz6584A1ijO7pVdUcLNjka+JS4A2WixXk +bzdwcDCUabjpD2+o7yxyf/GSg5Hn623VH3vBVuGbWiHdHMzf4fLxQp0XdG9+ +OCXdy0EHvVMxoqVeMFE7muD0noPFETs7WfFeoHVFlzs8wkGnB8e1npt6QX2P +aUjKZw6mme06n6lLriexC3TGOch0Pjzgo+QFnvHBz4ImOei1Iny51qwnTDTE +ZUn95GDz0YEPimOeEP3rglvtL+IlqUlyvZ4gYlCi6TjLwUru+p+MNk/IPVg7 +OTdHPg+tUTe85Qn/ASmcUXI= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "PlotRange" -> {{0, 30}, {0., 0.062212011749640195`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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" -> @@ -13038,19 +14644,19 @@ g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "PlotRange" -> {{0, 30}, {0., 0.062212011749640195`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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|>, @@ -13064,112 +14670,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:eJwV13k4lGsUAHDRqsiafZtvZpA1S1Kmc6iUJKkobrbskiSEckl2kmgRoZBs +Mx9dUaiIJEmbIkrhliyVypK6rvveP+aZ5/fMzPed837nnPcdlf2Hdnrw8/Hx +zZHX/+9TfQ+bmcmF63Om1Bfpl65b35krHWbaHQ1nWu+mprrIAEo+2S/dnQ4f +6JR5ti7qELKjtEugOx9+PVsbpOtiDKJfpNJnuq6Dbeeo2JyzBbyr335oouse +qOa3zvg424M5c+Ttt67nkHCpf1jL0QdmuozOjXcNAK86rsZydxg0bbhW+Cz/ +B1AWUYmj65JA/t2tj/s1Z4FiKAYFWWWAhJ9z6aINAqi8aNXAkNpFSF9lXrfd +djGOOh4b1l2dB68zdRu+iQjh16YsPmGzfEgujHzCLyOKOszRafZIIUidHUzM +yBHHtDz28G3zaxC/22L98ylJjA9LO+bKKYEjxlecH0ZLo8ZGA0lXqTLYell4 +wjJFGsctq9/UKpQBY9HxhI5z0qjGv+ewCLMMnnbaVb4olsYPs/P5aN0y0A5Y +JtDXIY0fh+9dvWVRBp+KjhZ9l5XBwtKHZfOPlcE+ie2f5f6SQcGVnvn+PWWw +8euvcP9BWQykc+5GpJRD2JazKxvHZNFS9II490w58K5o9YhPyaJqysst3efL +QXq3i/GtxXJoob3DjnGlHMZu3p8W0JZDWb+a6Zgb5ZARnRZ0MVQOJwwcNGLe +lsOAJNu/WUgeVetsTH1WckHq0F0FKSl57E1q9pXQ4cK21r2PfZTlUSXsYUCd +Pheqw5M1l+vLY6uQgdisCReS3o2P2O+Vx1on3+Lt1lzQK6nz+povjzoXAiU0 +jnDhhImNq+waBbROaeK21nBhi1PudyMzBdTXbg62qOeCcNToSdttCtjknOZ4 +v4ELl5pii9JcFLCRU5vCe8iFm1trRxcmKuBjl799zXu5ML6XCvnxWgGr+vYa +pcxywSl4Mqn9mCLOz2vpCVjPA9YFM/mRWEXM6bZ/ZGvGI/mf5i5KU8RPTlff +GZrzIPwf9admhYr4JG9N0JAVD86ddJK81a6IMX877hJx5EH7mQd5VxWUUCLX +UDEsnAdreRer/ryrhC+1PdqLK3mwsatj9kurEm4VqIyureLBdr75m52fK2GC +1NEFrTU8cNvp/xo+KKHIxdzDr27zwPyYSmTUAmXMm2sZa3jIgwClqQJTDWVM +8xusan/Pg2avvM9NIcq43ST6a+NSGiz+MRY7fkwZ298u6rYSpqEjrXO1QZQy +Ni7XyHwpQsPrW0uiChOVcUhk9HK3JA1flgaJxV5SxrfNw+/KlWiQrthiZH5P +GZl/Jh9J1aPB7+e3qFYhFezva5Q3tqVh7WHPFR/FVLCZ99Pcbw8Ni0d6ygSk +VbDpY39elj0NV3ubXq1nqCBtePD9J0ca+u6c07yxWgW9TkjQlp40WMcad19x +VsHBqgE5jRAaFP/lHrzrroLZeClaNJSGsRCGwFsfFdQakqR+hNGQ4L1UWzpI +BSNsDSWKI2hosHx7MjVBBSXNux51x9CgJ3ZC51ilCtZvmTC2S6eBL3myObNa +BYNKys6PZ5D8BXwdqutUcHGzrXHcORoOTO6M/XZfBSeFqncVZNJQ2M3s9epR +wTDzHT8Kc2lYkdcat1uAgT7Ln59vKaHhbymOfOBiBmazxW5IltFwPa2y8rQQ +Ay8LnWW7lJN8orPetEkxsE+pa+EQj8Tr4adnqsnA96tHO+v/omFGQ6RPy5aB +EZttDiXW0zCVI3tC34GBGsZrAhNv0zCxnMU0dmZgx7zMebF3yPP4Yey70YeB +Q8OWD/0baBioc5tyiGDgvaZISaFmGt5p+V90iWbgmp0q54aJ3+SFmnjGM7DT +zru48T4Nr06eij58hoG715w+5f6AhjbLGuGEqwx8ekHEL7iNhge3GytPlTJQ +wutavvYjGpp12ndn0AyMZloFDRLfEe/Pyr3FwIRfyWPwmIa62FFO4R1yPVrw +3BDxzenJ9yVNDExLdHuT1EHWo1dQ9cZjBp6QDrNsfkIDbSXZVvucgUVPGcEO +T2kov6t0sKGLgfxVUaZjxEUFBn896mfglDynhf85DVkHnGBgkoGbQ9Syf7+g +4cJb74GhXwyslno76d9Jw1nrI7Gf5xg42sH6/ZY4VT/h0c8lFFL5QUvolzQk +X033/1eYQvpUhIToK7L+Ujmi8yUoHNdU7vAnjv5duWe5IoXaU6Y2Cl00RB6s +/yVBUagq8kjen/j4u5YcWTUKS+rnZdcSh9k8Q2UtCm3VP7fzd9MQ0tQ7yNKj +UNTj3F/mxEcMP8ZpGFHo5yywI4444Nq4+ioTCkU+YUEj8YHkBQEm5hTKoV2g +xmsavGeXi5tZUrhX0HzcntjzkGz15h0UeuwxVI8hdutn2lvZUshnradYSuyy +S+efnQ4UZk9aPn1E7HjfOG+vM4VPNdJxmNjBaKOZkzuFTVzJAP4eGvaUbP/g +5kPhWbFPzlLEu+XsE3z8Kex5JCeqRmxzyk3j0BEKJ5jNMQbE2+cOdgSFUnjG +bLLOhNjycOjh8AgSP6O5Bom3DEZLREVT+CnTPOx/b7I9VRMbT6Ha7ox5/3/f +7MEFh+QUcv+uRht9YjDOn007Q6HinyO+bGKTsvLL589T6H6UvV2SuFe5LG9T +NoVJupqp84jDz5fkTuRR2Nl2kj1C8pFeVpxTUEjhpLW49BPimhNFl3aWUJjn +0+hWQWw3XZg9j0fhKtdgwVTiCb+CrIrrFJooSQl5E2cMXLnoXEPi0zjtt55Y +b+/lTOF6CitKW9RFiZ89zr1wu4HCy67XNr3//3ltyDnvd59Ci0q5xjJinnbW +2bYOCgMqD/QYEVsVZmaEvaCwxkAp/CephzGZC+lq3RQGTkpG3CBWX3A2La6f +xBN3soJJ3BqeftrwI4l/ftfAK1JvnuNpqX+PUNiloHo8lriw91SK2QSFqbIR +Q12kXjfYpCR/+0lh6zH3umPEAy1JSZdnKZQ9vPSXHLHy9fiEfxcy8Xiea50N +qfe7qnHx3KVMNJGahiHSH045MXH7RJh4Jk9aP4w4O+FETK0ME3NeP/dOJ/20 +wvlYVIgmE0eOLNHKIv12ozMskrWKiYNP36M48e6toX92GjIxeddMWwLp13TD +4ON6wMTOHS82+ZB+Flp2KPSLDRNrX5/5NkfmQfmJg0dz7JgoKPjy+T7irdMH +Qrb9wcS6dfp61WSeJAx4B5W6M3Fy25pDTg9pmH9rf4DnUSZ6C279N6aFhgJt +10OSx5kYsMZ87D6ZT2aFzv7NUUy8oPuHiwBx5Ol9fowkJmb0dfcdaaLhl4ed +d98lJh7YdtJGg8y/b2JbXezuMTHJzOH7xE0auv0YT30fMPHsNfu7wzVkP2j5 +BZHtTCyX6U/oqaYhLbxMqfgVWa/UnhUVVTToDix7NzPCRHne+w0aFTT4Vz5x +zBFnodaTF8vdikh9LS1+XCnNwjseQebSV2lY7xHFaVFgYUr6mtMPC8h6yKxS ++KrKwjXtpfuUr5D1iEp/gyYs7LZ7JZSXTcOIte0ff7uzcMg3hG/gNA3PS7Qe +/fRh4TzVzLm9qTTUCixcJ3SIhYUiqqrtKTQk1lTLrg5jYf0lw8miRBrUlKR7 +4k+xMNLtdZX2SRq8vvTs1ahmoYeBF39CMNl/UlzsAhexsbLm+/QBst/6j2gy +dJexcYHrkNwpsh9Pb575/FmEjU9Z+5aX7aJBUCA91keWjYbsXJ+31iT/sKYq +Fy023veJEZLfQkOEB1vcehcbpR2NmPxrSL2sH3uikcdG4Sl1rXByHricfTN7 +uICNjjGRV4zESb3PxHhdK2ajyYKeZd/J+cGkSmGOcZ2NDfOLHzsuI/NrpbW2 +7H02gryAnKgADRUrrqcsHmWj6rIavk9feWDx9ajFh9WqmD24dMT5AQ/kVynG +LTZRxdZX7J1xzTz4Eth8T8NUFYdbDR1KGnlwdkrEJNBSFR+YPtnxoY4HfbMl +2nPO5Pf33BcaVvAgcNkbcZlEVSzqEF5smMmDLHXs29ariquWW6s0eZDzmtvi +I1WRatg5veKvkGkufMndePtujBp+n1fnNPiDC19fRy16lKiGvjtt9KzGufDd +eia7P0MNeWOf9kgPc2F63UizcLEaLjz+ti2lhwv8Eu0rfJ6qoeCuPxq/kvOm +TPPpWgUVdQx8LBFfEskl/zek+OPvkSBa+qstZstB7DE7teLrSvRIK2i+Nl4G +8gn0jtWrNXFlkblBMLcUMjWMRcS9tNB9hLU+36sE2mRNDX+c0UY7MQ9BYali +WCt/L03nlQ4KllTtj7hUBMIC+UGu0brY6Wt1tUr/KiieUDKxZ69CvgTPmraS +AljC2le988EqPFoV7fKPWj5oc2Too456KJJmgrkPLkNgn1jTVj591JoSK9cs +zIWvP1JsLTL18YuV0/Mi/kuwWacly0LLAO2levVUEi/CnR/rfk93GKDfWq5V +3O/z4K+p1/PMwxCD7Q57G9SfBc4X9077JasxVM21bVtQOmxiSlsJ5a/G/sWD +kBWWBmpRSaH3jIxw/84Nwc8cTsFKD+O7rB4jRP7ui/NbEsHjjndM1eE1+Kb9 +i8HpW3Fw93Kn+zdJY2wrfecCdSdhonhuWqfGGPuXhJkNS50AN1bZkiyrtTj4 +z26NrS0R8G1lxurr42vxw7iTlMzJMLhZ+Lt/MmEdVoS1lqybDQaHjRSuUzTB +Ra/EaIcvgSB3MP6WdoMJXgnz1J2dHwCSgn6VVns46Nt4enPHtgNQuCEifNye +gzqp2wpEjQ+AXkTqhox9HJR7PLDclXUAto9XvOx25eDtY5cXMP/1hbhXkzNu +fhzkW3nzoXGFL/zMjzQLP8FB/uZNI3krfKFnXcaLojIO1vi1B+iOeYN3cOEl +Cx4H42du7B597Q1TvBseYxUcjA2Nz6584A1ijO7pVdUcLNjka+JS4A2WixXk +bzdwcDCUabjpD2+o7yxyf/GSg5Hn623VH3vBVuGbWiHdHMzf4fLxQp0XdG9+ +OCXdy0EHvVMxoqVeMFE7muD0noPFETs7WfFeoHVFlzs8wkGnB8e1npt6QX2P +aUjKZw6mme06n6lLriexC3TGOch0Pjzgo+QFnvHBz4ImOei1Iny51qwnTDTE +ZUn95GDz0YEPimOeEP3rglvtL+IlqUlyvZ4gYlCi6TjLwUru+p+MNk/IPVg7 +OTdHPg+tUTe85Qn/ASmcUXI= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "PlotRange" -> {{0, 30}, {0., 0.062212011749640195`}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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|>, @@ -13180,6 +14787,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}}, @@ -13207,7 +14815,8 @@ g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.12905028199662316`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.062212011749640195`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -13215,22 +14824,568 @@ g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991327033758711*^9}, + CellChangeTimes->{3.991327033758711*^9, 3.994015558357986*^9}, CellLabel-> - "Out[138]=",ExpressionUUID->"6974e3c4-9b35-2f4b-97bf-745f60f533f8"] + "Out[339]=",ExpressionUUID->"8ea655c6-75fb-4c51-93f6-3206c9e65e8c"] }, 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[340]:=",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[341]:=",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:eJwV13k4lGsUAHDRqsiafZtvZpA1S1Kmc6iUJKkobrbskiSEckl2kmgRoZBs +Mx9dUaiIJEmbIkrhliyVypK6rvveP+aZ5/fMzPed837nnPcdlf2Hdnrw8/Hx +zZHX/+9TfQ+bmcmF63Om1Bfpl65b35krHWbaHQ1nWu+mprrIAEo+2S/dnQ4f +6JR5ti7qELKjtEugOx9+PVsbpOtiDKJfpNJnuq6Dbeeo2JyzBbyr335oouse +qOa3zvg424M5c+Ttt67nkHCpf1jL0QdmuozOjXcNAK86rsZydxg0bbhW+Cz/ +B1AWUYmj65JA/t2tj/s1Z4FiKAYFWWWAhJ9z6aINAqi8aNXAkNpFSF9lXrfd +djGOOh4b1l2dB68zdRu+iQjh16YsPmGzfEgujHzCLyOKOszRafZIIUidHUzM +yBHHtDz28G3zaxC/22L98ylJjA9LO+bKKYEjxlecH0ZLo8ZGA0lXqTLYell4 +wjJFGsctq9/UKpQBY9HxhI5z0qjGv+ewCLMMnnbaVb4olsYPs/P5aN0y0A5Y +JtDXIY0fh+9dvWVRBp+KjhZ9l5XBwtKHZfOPlcE+ie2f5f6SQcGVnvn+PWWw +8euvcP9BWQykc+5GpJRD2JazKxvHZNFS9II490w58K5o9YhPyaJqysst3efL +QXq3i/GtxXJoob3DjnGlHMZu3p8W0JZDWb+a6Zgb5ZARnRZ0MVQOJwwcNGLe +lsOAJNu/WUgeVetsTH1WckHq0F0FKSl57E1q9pXQ4cK21r2PfZTlUSXsYUCd +Pheqw5M1l+vLY6uQgdisCReS3o2P2O+Vx1on3+Lt1lzQK6nz+povjzoXAiU0 +jnDhhImNq+waBbROaeK21nBhi1PudyMzBdTXbg62qOeCcNToSdttCtjknOZ4 +v4ELl5pii9JcFLCRU5vCe8iFm1trRxcmKuBjl799zXu5ML6XCvnxWgGr+vYa +pcxywSl4Mqn9mCLOz2vpCVjPA9YFM/mRWEXM6bZ/ZGvGI/mf5i5KU8RPTlff +GZrzIPwf9admhYr4JG9N0JAVD86ddJK81a6IMX877hJx5EH7mQd5VxWUUCLX +UDEsnAdreRer/ryrhC+1PdqLK3mwsatj9kurEm4VqIyureLBdr75m52fK2GC +1NEFrTU8cNvp/xo+KKHIxdzDr27zwPyYSmTUAmXMm2sZa3jIgwClqQJTDWVM +8xusan/Pg2avvM9NIcq43ST6a+NSGiz+MRY7fkwZ298u6rYSpqEjrXO1QZQy +Ni7XyHwpQsPrW0uiChOVcUhk9HK3JA1flgaJxV5SxrfNw+/KlWiQrthiZH5P +GZl/Jh9J1aPB7+e3qFYhFezva5Q3tqVh7WHPFR/FVLCZ99Pcbw8Ni0d6ygSk +VbDpY39elj0NV3ubXq1nqCBtePD9J0ca+u6c07yxWgW9TkjQlp40WMcad19x +VsHBqgE5jRAaFP/lHrzrroLZeClaNJSGsRCGwFsfFdQakqR+hNGQ4L1UWzpI +BSNsDSWKI2hosHx7MjVBBSXNux51x9CgJ3ZC51ilCtZvmTC2S6eBL3myObNa +BYNKys6PZ5D8BXwdqutUcHGzrXHcORoOTO6M/XZfBSeFqncVZNJQ2M3s9epR +wTDzHT8Kc2lYkdcat1uAgT7Ln59vKaHhbymOfOBiBmazxW5IltFwPa2y8rQQ +Ay8LnWW7lJN8orPetEkxsE+pa+EQj8Tr4adnqsnA96tHO+v/omFGQ6RPy5aB +EZttDiXW0zCVI3tC34GBGsZrAhNv0zCxnMU0dmZgx7zMebF3yPP4Yey70YeB +Q8OWD/0baBioc5tyiGDgvaZISaFmGt5p+V90iWbgmp0q54aJ3+SFmnjGM7DT +zru48T4Nr06eij58hoG715w+5f6AhjbLGuGEqwx8ekHEL7iNhge3GytPlTJQ +wutavvYjGpp12ndn0AyMZloFDRLfEe/Pyr3FwIRfyWPwmIa62FFO4R1yPVrw +3BDxzenJ9yVNDExLdHuT1EHWo1dQ9cZjBp6QDrNsfkIDbSXZVvucgUVPGcEO +T2kov6t0sKGLgfxVUaZjxEUFBn896mfglDynhf85DVkHnGBgkoGbQ9Syf7+g +4cJb74GhXwyslno76d9Jw1nrI7Gf5xg42sH6/ZY4VT/h0c8lFFL5QUvolzQk +X033/1eYQvpUhIToK7L+Ujmi8yUoHNdU7vAnjv5duWe5IoXaU6Y2Cl00RB6s +/yVBUagq8kjen/j4u5YcWTUKS+rnZdcSh9k8Q2UtCm3VP7fzd9MQ0tQ7yNKj +UNTj3F/mxEcMP8ZpGFHo5yywI4444Nq4+ioTCkU+YUEj8YHkBQEm5hTKoV2g +xmsavGeXi5tZUrhX0HzcntjzkGz15h0UeuwxVI8hdutn2lvZUshnradYSuyy +S+efnQ4UZk9aPn1E7HjfOG+vM4VPNdJxmNjBaKOZkzuFTVzJAP4eGvaUbP/g +5kPhWbFPzlLEu+XsE3z8Kex5JCeqRmxzyk3j0BEKJ5jNMQbE2+cOdgSFUnjG +bLLOhNjycOjh8AgSP6O5Bom3DEZLREVT+CnTPOx/b7I9VRMbT6Ha7ox5/3/f +7MEFh+QUcv+uRht9YjDOn007Q6HinyO+bGKTsvLL589T6H6UvV2SuFe5LG9T +NoVJupqp84jDz5fkTuRR2Nl2kj1C8pFeVpxTUEjhpLW49BPimhNFl3aWUJjn +0+hWQWw3XZg9j0fhKtdgwVTiCb+CrIrrFJooSQl5E2cMXLnoXEPi0zjtt55Y +b+/lTOF6CitKW9RFiZ89zr1wu4HCy67XNr3//3ltyDnvd59Ci0q5xjJinnbW +2bYOCgMqD/QYEVsVZmaEvaCwxkAp/CephzGZC+lq3RQGTkpG3CBWX3A2La6f +xBN3soJJ3BqeftrwI4l/ftfAK1JvnuNpqX+PUNiloHo8lriw91SK2QSFqbIR +Q12kXjfYpCR/+0lh6zH3umPEAy1JSZdnKZQ9vPSXHLHy9fiEfxcy8Xiea50N +qfe7qnHx3KVMNJGahiHSH045MXH7RJh4Jk9aP4w4O+FETK0ME3NeP/dOJ/20 +wvlYVIgmE0eOLNHKIv12ozMskrWKiYNP36M48e6toX92GjIxeddMWwLp13TD +4ON6wMTOHS82+ZB+Flp2KPSLDRNrX5/5NkfmQfmJg0dz7JgoKPjy+T7irdMH +Qrb9wcS6dfp61WSeJAx4B5W6M3Fy25pDTg9pmH9rf4DnUSZ6C279N6aFhgJt +10OSx5kYsMZ87D6ZT2aFzv7NUUy8oPuHiwBx5Ol9fowkJmb0dfcdaaLhl4ed +d98lJh7YdtJGg8y/b2JbXezuMTHJzOH7xE0auv0YT30fMPHsNfu7wzVkP2j5 +BZHtTCyX6U/oqaYhLbxMqfgVWa/UnhUVVTToDix7NzPCRHne+w0aFTT4Vz5x +zBFnodaTF8vdikh9LS1+XCnNwjseQebSV2lY7xHFaVFgYUr6mtMPC8h6yKxS ++KrKwjXtpfuUr5D1iEp/gyYs7LZ7JZSXTcOIte0ff7uzcMg3hG/gNA3PS7Qe +/fRh4TzVzLm9qTTUCixcJ3SIhYUiqqrtKTQk1lTLrg5jYf0lw8miRBrUlKR7 +4k+xMNLtdZX2SRq8vvTs1ahmoYeBF39CMNl/UlzsAhexsbLm+/QBst/6j2gy +dJexcYHrkNwpsh9Pb575/FmEjU9Z+5aX7aJBUCA91keWjYbsXJ+31iT/sKYq +Fy023veJEZLfQkOEB1vcehcbpR2NmPxrSL2sH3uikcdG4Sl1rXByHricfTN7 +uICNjjGRV4zESb3PxHhdK2ajyYKeZd/J+cGkSmGOcZ2NDfOLHzsuI/NrpbW2 +7H02gryAnKgADRUrrqcsHmWj6rIavk9feWDx9ajFh9WqmD24dMT5AQ/kVynG +LTZRxdZX7J1xzTz4Eth8T8NUFYdbDR1KGnlwdkrEJNBSFR+YPtnxoY4HfbMl +2nPO5Pf33BcaVvAgcNkbcZlEVSzqEF5smMmDLHXs29ariquWW6s0eZDzmtvi +I1WRatg5veKvkGkufMndePtujBp+n1fnNPiDC19fRy16lKiGvjtt9KzGufDd +eia7P0MNeWOf9kgPc2F63UizcLEaLjz+ti2lhwv8Eu0rfJ6qoeCuPxq/kvOm +TPPpWgUVdQx8LBFfEskl/zek+OPvkSBa+qstZstB7DE7teLrSvRIK2i+Nl4G +8gn0jtWrNXFlkblBMLcUMjWMRcS9tNB9hLU+36sE2mRNDX+c0UY7MQ9BYali +WCt/L03nlQ4KllTtj7hUBMIC+UGu0brY6Wt1tUr/KiieUDKxZ69CvgTPmraS +AljC2le988EqPFoV7fKPWj5oc2Too456KJJmgrkPLkNgn1jTVj591JoSK9cs +zIWvP1JsLTL18YuV0/Mi/kuwWacly0LLAO2levVUEi/CnR/rfk93GKDfWq5V +3O/z4K+p1/PMwxCD7Q57G9SfBc4X9077JasxVM21bVtQOmxiSlsJ5a/G/sWD +kBWWBmpRSaH3jIxw/84Nwc8cTsFKD+O7rB4jRP7ui/NbEsHjjndM1eE1+Kb9 +i8HpW3Fw93Kn+zdJY2wrfecCdSdhonhuWqfGGPuXhJkNS50AN1bZkiyrtTj4 +z26NrS0R8G1lxurr42vxw7iTlMzJMLhZ+Lt/MmEdVoS1lqybDQaHjRSuUzTB +Ra/EaIcvgSB3MP6WdoMJXgnz1J2dHwCSgn6VVns46Nt4enPHtgNQuCEifNye +gzqp2wpEjQ+AXkTqhox9HJR7PLDclXUAto9XvOx25eDtY5cXMP/1hbhXkzNu +fhzkW3nzoXGFL/zMjzQLP8FB/uZNI3krfKFnXcaLojIO1vi1B+iOeYN3cOEl +Cx4H42du7B597Q1TvBseYxUcjA2Nz6584A1ijO7pVdUcLNjka+JS4A2WixXk +bzdwcDCUabjpD2+o7yxyf/GSg5Hn623VH3vBVuGbWiHdHMzf4fLxQp0XdG9+ +OCXdy0EHvVMxoqVeMFE7muD0noPFETs7WfFeoHVFlzs8wkGnB8e1npt6QX2P +aUjKZw6mme06n6lLriexC3TGOch0Pjzgo+QFnvHBz4ImOei1Iny51qwnTDTE +ZUn95GDz0YEPimOeEP3rglvtL+IlqUlyvZ4gYlCi6TjLwUru+p+MNk/IPVg7 +OTdHPg+tUTe85Qn/ASmcUXI= + "]]}, + 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:eJwV13k4lGsUAHDRqsiafZtvZpA1S1Kmc6iUJKkobrbskiSEckl2kmgRoZBs +Mx9dUaiIJEmbIkrhliyVypK6rvveP+aZ5/fMzPed837nnPcdlf2Hdnrw8/Hx +zZHX/+9TfQ+bmcmF63Om1Bfpl65b35krHWbaHQ1nWu+mprrIAEo+2S/dnQ4f +6JR5ti7qELKjtEugOx9+PVsbpOtiDKJfpNJnuq6Dbeeo2JyzBbyr335oouse +qOa3zvg424M5c+Ttt67nkHCpf1jL0QdmuozOjXcNAK86rsZydxg0bbhW+Cz/ +B1AWUYmj65JA/t2tj/s1Z4FiKAYFWWWAhJ9z6aINAqi8aNXAkNpFSF9lXrfd +djGOOh4b1l2dB68zdRu+iQjh16YsPmGzfEgujHzCLyOKOszRafZIIUidHUzM +yBHHtDz28G3zaxC/22L98ylJjA9LO+bKKYEjxlecH0ZLo8ZGA0lXqTLYell4 +wjJFGsctq9/UKpQBY9HxhI5z0qjGv+ewCLMMnnbaVb4olsYPs/P5aN0y0A5Y +JtDXIY0fh+9dvWVRBp+KjhZ9l5XBwtKHZfOPlcE+ie2f5f6SQcGVnvn+PWWw +8euvcP9BWQykc+5GpJRD2JazKxvHZNFS9II490w58K5o9YhPyaJqysst3efL +QXq3i/GtxXJoob3DjnGlHMZu3p8W0JZDWb+a6Zgb5ZARnRZ0MVQOJwwcNGLe +lsOAJNu/WUgeVetsTH1WckHq0F0FKSl57E1q9pXQ4cK21r2PfZTlUSXsYUCd +Pheqw5M1l+vLY6uQgdisCReS3o2P2O+Vx1on3+Lt1lzQK6nz+povjzoXAiU0 +jnDhhImNq+waBbROaeK21nBhi1PudyMzBdTXbg62qOeCcNToSdttCtjknOZ4 +v4ELl5pii9JcFLCRU5vCe8iFm1trRxcmKuBjl799zXu5ML6XCvnxWgGr+vYa +pcxywSl4Mqn9mCLOz2vpCVjPA9YFM/mRWEXM6bZ/ZGvGI/mf5i5KU8RPTlff +GZrzIPwf9admhYr4JG9N0JAVD86ddJK81a6IMX877hJx5EH7mQd5VxWUUCLX +UDEsnAdreRer/ryrhC+1PdqLK3mwsatj9kurEm4VqIyureLBdr75m52fK2GC +1NEFrTU8cNvp/xo+KKHIxdzDr27zwPyYSmTUAmXMm2sZa3jIgwClqQJTDWVM +8xusan/Pg2avvM9NIcq43ST6a+NSGiz+MRY7fkwZ298u6rYSpqEjrXO1QZQy +Ni7XyHwpQsPrW0uiChOVcUhk9HK3JA1flgaJxV5SxrfNw+/KlWiQrthiZH5P +GZl/Jh9J1aPB7+e3qFYhFezva5Q3tqVh7WHPFR/FVLCZ99Pcbw8Ni0d6ygSk +VbDpY39elj0NV3ubXq1nqCBtePD9J0ca+u6c07yxWgW9TkjQlp40WMcad19x +VsHBqgE5jRAaFP/lHrzrroLZeClaNJSGsRCGwFsfFdQakqR+hNGQ4L1UWzpI +BSNsDSWKI2hosHx7MjVBBSXNux51x9CgJ3ZC51ilCtZvmTC2S6eBL3myObNa +BYNKys6PZ5D8BXwdqutUcHGzrXHcORoOTO6M/XZfBSeFqncVZNJQ2M3s9epR +wTDzHT8Kc2lYkdcat1uAgT7Ln59vKaHhbymOfOBiBmazxW5IltFwPa2y8rQQ +Ay8LnWW7lJN8orPetEkxsE+pa+EQj8Tr4adnqsnA96tHO+v/omFGQ6RPy5aB +EZttDiXW0zCVI3tC34GBGsZrAhNv0zCxnMU0dmZgx7zMebF3yPP4Yey70YeB +Q8OWD/0baBioc5tyiGDgvaZISaFmGt5p+V90iWbgmp0q54aJ3+SFmnjGM7DT +zru48T4Nr06eij58hoG715w+5f6AhjbLGuGEqwx8ekHEL7iNhge3GytPlTJQ +wutavvYjGpp12ndn0AyMZloFDRLfEe/Pyr3FwIRfyWPwmIa62FFO4R1yPVrw +3BDxzenJ9yVNDExLdHuT1EHWo1dQ9cZjBp6QDrNsfkIDbSXZVvucgUVPGcEO +T2kov6t0sKGLgfxVUaZjxEUFBn896mfglDynhf85DVkHnGBgkoGbQ9Syf7+g +4cJb74GhXwyslno76d9Jw1nrI7Gf5xg42sH6/ZY4VT/h0c8lFFL5QUvolzQk +X033/1eYQvpUhIToK7L+Ujmi8yUoHNdU7vAnjv5duWe5IoXaU6Y2Cl00RB6s +/yVBUagq8kjen/j4u5YcWTUKS+rnZdcSh9k8Q2UtCm3VP7fzd9MQ0tQ7yNKj +UNTj3F/mxEcMP8ZpGFHo5yywI4444Nq4+ioTCkU+YUEj8YHkBQEm5hTKoV2g +xmsavGeXi5tZUrhX0HzcntjzkGz15h0UeuwxVI8hdutn2lvZUshnradYSuyy +S+efnQ4UZk9aPn1E7HjfOG+vM4VPNdJxmNjBaKOZkzuFTVzJAP4eGvaUbP/g +5kPhWbFPzlLEu+XsE3z8Kex5JCeqRmxzyk3j0BEKJ5jNMQbE2+cOdgSFUnjG +bLLOhNjycOjh8AgSP6O5Bom3DEZLREVT+CnTPOx/b7I9VRMbT6Ha7ox5/3/f +7MEFh+QUcv+uRht9YjDOn007Q6HinyO+bGKTsvLL589T6H6UvV2SuFe5LG9T +NoVJupqp84jDz5fkTuRR2Nl2kj1C8pFeVpxTUEjhpLW49BPimhNFl3aWUJjn +0+hWQWw3XZg9j0fhKtdgwVTiCb+CrIrrFJooSQl5E2cMXLnoXEPi0zjtt55Y +b+/lTOF6CitKW9RFiZ89zr1wu4HCy67XNr3//3ltyDnvd59Ci0q5xjJinnbW +2bYOCgMqD/QYEVsVZmaEvaCwxkAp/CephzGZC+lq3RQGTkpG3CBWX3A2La6f +xBN3soJJ3BqeftrwI4l/ftfAK1JvnuNpqX+PUNiloHo8lriw91SK2QSFqbIR +Q12kXjfYpCR/+0lh6zH3umPEAy1JSZdnKZQ9vPSXHLHy9fiEfxcy8Xiea50N +qfe7qnHx3KVMNJGahiHSH045MXH7RJh4Jk9aP4w4O+FETK0ME3NeP/dOJ/20 +wvlYVIgmE0eOLNHKIv12ozMskrWKiYNP36M48e6toX92GjIxeddMWwLp13TD +4ON6wMTOHS82+ZB+Flp2KPSLDRNrX5/5NkfmQfmJg0dz7JgoKPjy+T7irdMH +Qrb9wcS6dfp61WSeJAx4B5W6M3Fy25pDTg9pmH9rf4DnUSZ6C279N6aFhgJt +10OSx5kYsMZ87D6ZT2aFzv7NUUy8oPuHiwBx5Ol9fowkJmb0dfcdaaLhl4ed +d98lJh7YdtJGg8y/b2JbXezuMTHJzOH7xE0auv0YT30fMPHsNfu7wzVkP2j5 +BZHtTCyX6U/oqaYhLbxMqfgVWa/UnhUVVTToDix7NzPCRHne+w0aFTT4Vz5x +zBFnodaTF8vdikh9LS1+XCnNwjseQebSV2lY7xHFaVFgYUr6mtMPC8h6yKxS ++KrKwjXtpfuUr5D1iEp/gyYs7LZ7JZSXTcOIte0ff7uzcMg3hG/gNA3PS7Qe +/fRh4TzVzLm9qTTUCixcJ3SIhYUiqqrtKTQk1lTLrg5jYf0lw8miRBrUlKR7 +4k+xMNLtdZX2SRq8vvTs1ahmoYeBF39CMNl/UlzsAhexsbLm+/QBst/6j2gy +dJexcYHrkNwpsh9Pb575/FmEjU9Z+5aX7aJBUCA91keWjYbsXJ+31iT/sKYq +Fy023veJEZLfQkOEB1vcehcbpR2NmPxrSL2sH3uikcdG4Sl1rXByHricfTN7 +uICNjjGRV4zESb3PxHhdK2ajyYKeZd/J+cGkSmGOcZ2NDfOLHzsuI/NrpbW2 +7H02gryAnKgADRUrrqcsHmWj6rIavk9feWDx9ajFh9WqmD24dMT5AQ/kVynG +LTZRxdZX7J1xzTz4Eth8T8NUFYdbDR1KGnlwdkrEJNBSFR+YPtnxoY4HfbMl +2nPO5Pf33BcaVvAgcNkbcZlEVSzqEF5smMmDLHXs29ariquWW6s0eZDzmtvi +I1WRatg5veKvkGkufMndePtujBp+n1fnNPiDC19fRy16lKiGvjtt9KzGufDd +eia7P0MNeWOf9kgPc2F63UizcLEaLjz+ti2lhwv8Eu0rfJ6qoeCuPxq/kvOm +TPPpWgUVdQx8LBFfEskl/zek+OPvkSBa+qstZstB7DE7teLrSvRIK2i+Nl4G +8gn0jtWrNXFlkblBMLcUMjWMRcS9tNB9hLU+36sE2mRNDX+c0UY7MQ9BYali +WCt/L03nlQ4KllTtj7hUBMIC+UGu0brY6Wt1tUr/KiieUDKxZ69CvgTPmraS +AljC2le988EqPFoV7fKPWj5oc2Too456KJJmgrkPLkNgn1jTVj591JoSK9cs +zIWvP1JsLTL18YuV0/Mi/kuwWacly0LLAO2levVUEi/CnR/rfk93GKDfWq5V +3O/z4K+p1/PMwxCD7Q57G9SfBc4X9077JasxVM21bVtQOmxiSlsJ5a/G/sWD +kBWWBmpRSaH3jIxw/84Nwc8cTsFKD+O7rB4jRP7ui/NbEsHjjndM1eE1+Kb9 +i8HpW3Fw93Kn+zdJY2wrfecCdSdhonhuWqfGGPuXhJkNS50AN1bZkiyrtTj4 +z26NrS0R8G1lxurr42vxw7iTlMzJMLhZ+Lt/MmEdVoS1lqybDQaHjRSuUzTB +Ra/EaIcvgSB3MP6WdoMJXgnz1J2dHwCSgn6VVns46Nt4enPHtgNQuCEifNye +gzqp2wpEjQ+AXkTqhox9HJR7PLDclXUAto9XvOx25eDtY5cXMP/1hbhXkzNu +fhzkW3nzoXGFL/zMjzQLP8FB/uZNI3krfKFnXcaLojIO1vi1B+iOeYN3cOEl +Cx4H42du7B597Q1TvBseYxUcjA2Nz6584A1ijO7pVdUcLNjka+JS4A2WixXk +bzdwcDCUabjpD2+o7yxyf/GSg5Hn623VH3vBVuGbWiHdHMzf4fLxQp0XdG9+ +OCXdy0EHvVMxoqVeMFE7muD0noPFETs7WfFeoHVFlzs8wkGnB8e1npt6QX2P +aUjKZw6mme06n6lLriexC3TGOch0Pjzgo+QFnvHBz4ImOei1Iny51qwnTDTE +ZUn95GDz0YEPimOeEP3rglvtL+IlqUlyvZ4gYlCi6TjLwUru+p+MNk/IPVg7 +OTdHPg+tUTe85Qn/ASmcUXI= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.062212011749640195`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.062212011749640195`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJwV13k4lGsUAHDRqsiafZtvZpA1S1Kmc6iUJKkobrbskiSEckl2kmgRoZBs +Mx9dUaiIJEmbIkrhliyVypK6rvveP+aZ5/fMzPed837nnPcdlf2Hdnrw8/Hx +zZHX/+9TfQ+bmcmF63Om1Bfpl65b35krHWbaHQ1nWu+mprrIAEo+2S/dnQ4f +6JR5ti7qELKjtEugOx9+PVsbpOtiDKJfpNJnuq6Dbeeo2JyzBbyr335oouse +qOa3zvg424M5c+Ttt67nkHCpf1jL0QdmuozOjXcNAK86rsZydxg0bbhW+Cz/ +B1AWUYmj65JA/t2tj/s1Z4FiKAYFWWWAhJ9z6aINAqi8aNXAkNpFSF9lXrfd +djGOOh4b1l2dB68zdRu+iQjh16YsPmGzfEgujHzCLyOKOszRafZIIUidHUzM +yBHHtDz28G3zaxC/22L98ylJjA9LO+bKKYEjxlecH0ZLo8ZGA0lXqTLYell4 +wjJFGsctq9/UKpQBY9HxhI5z0qjGv+ewCLMMnnbaVb4olsYPs/P5aN0y0A5Y +JtDXIY0fh+9dvWVRBp+KjhZ9l5XBwtKHZfOPlcE+ie2f5f6SQcGVnvn+PWWw +8euvcP9BWQykc+5GpJRD2JazKxvHZNFS9II490w58K5o9YhPyaJqysst3efL +QXq3i/GtxXJoob3DjnGlHMZu3p8W0JZDWb+a6Zgb5ZARnRZ0MVQOJwwcNGLe +lsOAJNu/WUgeVetsTH1WckHq0F0FKSl57E1q9pXQ4cK21r2PfZTlUSXsYUCd +Pheqw5M1l+vLY6uQgdisCReS3o2P2O+Vx1on3+Lt1lzQK6nz+povjzoXAiU0 +jnDhhImNq+waBbROaeK21nBhi1PudyMzBdTXbg62qOeCcNToSdttCtjknOZ4 +v4ELl5pii9JcFLCRU5vCe8iFm1trRxcmKuBjl799zXu5ML6XCvnxWgGr+vYa +pcxywSl4Mqn9mCLOz2vpCVjPA9YFM/mRWEXM6bZ/ZGvGI/mf5i5KU8RPTlff +GZrzIPwf9admhYr4JG9N0JAVD86ddJK81a6IMX877hJx5EH7mQd5VxWUUCLX +UDEsnAdreRer/ryrhC+1PdqLK3mwsatj9kurEm4VqIyureLBdr75m52fK2GC +1NEFrTU8cNvp/xo+KKHIxdzDr27zwPyYSmTUAmXMm2sZa3jIgwClqQJTDWVM +8xusan/Pg2avvM9NIcq43ST6a+NSGiz+MRY7fkwZ298u6rYSpqEjrXO1QZQy +Ni7XyHwpQsPrW0uiChOVcUhk9HK3JA1flgaJxV5SxrfNw+/KlWiQrthiZH5P +GZl/Jh9J1aPB7+e3qFYhFezva5Q3tqVh7WHPFR/FVLCZ99Pcbw8Ni0d6ygSk +VbDpY39elj0NV3ubXq1nqCBtePD9J0ca+u6c07yxWgW9TkjQlp40WMcad19x +VsHBqgE5jRAaFP/lHrzrroLZeClaNJSGsRCGwFsfFdQakqR+hNGQ4L1UWzpI +BSNsDSWKI2hosHx7MjVBBSXNux51x9CgJ3ZC51ilCtZvmTC2S6eBL3myObNa +BYNKys6PZ5D8BXwdqutUcHGzrXHcORoOTO6M/XZfBSeFqncVZNJQ2M3s9epR +wTDzHT8Kc2lYkdcat1uAgT7Ln59vKaHhbymOfOBiBmazxW5IltFwPa2y8rQQ +Ay8LnWW7lJN8orPetEkxsE+pa+EQj8Tr4adnqsnA96tHO+v/omFGQ6RPy5aB +EZttDiXW0zCVI3tC34GBGsZrAhNv0zCxnMU0dmZgx7zMebF3yPP4Yey70YeB +Q8OWD/0baBioc5tyiGDgvaZISaFmGt5p+V90iWbgmp0q54aJ3+SFmnjGM7DT +zru48T4Nr06eij58hoG715w+5f6AhjbLGuGEqwx8ekHEL7iNhge3GytPlTJQ +wutavvYjGpp12ndn0AyMZloFDRLfEe/Pyr3FwIRfyWPwmIa62FFO4R1yPVrw +3BDxzenJ9yVNDExLdHuT1EHWo1dQ9cZjBp6QDrNsfkIDbSXZVvucgUVPGcEO +T2kov6t0sKGLgfxVUaZjxEUFBn896mfglDynhf85DVkHnGBgkoGbQ9Syf7+g +4cJb74GhXwyslno76d9Jw1nrI7Gf5xg42sH6/ZY4VT/h0c8lFFL5QUvolzQk +X033/1eYQvpUhIToK7L+Ujmi8yUoHNdU7vAnjv5duWe5IoXaU6Y2Cl00RB6s +/yVBUagq8kjen/j4u5YcWTUKS+rnZdcSh9k8Q2UtCm3VP7fzd9MQ0tQ7yNKj +UNTj3F/mxEcMP8ZpGFHo5yywI4444Nq4+ioTCkU+YUEj8YHkBQEm5hTKoV2g +xmsavGeXi5tZUrhX0HzcntjzkGz15h0UeuwxVI8hdutn2lvZUshnradYSuyy +S+efnQ4UZk9aPn1E7HjfOG+vM4VPNdJxmNjBaKOZkzuFTVzJAP4eGvaUbP/g +5kPhWbFPzlLEu+XsE3z8Kex5JCeqRmxzyk3j0BEKJ5jNMQbE2+cOdgSFUnjG +bLLOhNjycOjh8AgSP6O5Bom3DEZLREVT+CnTPOx/b7I9VRMbT6Ha7ox5/3/f +7MEFh+QUcv+uRht9YjDOn007Q6HinyO+bGKTsvLL589T6H6UvV2SuFe5LG9T +NoVJupqp84jDz5fkTuRR2Nl2kj1C8pFeVpxTUEjhpLW49BPimhNFl3aWUJjn +0+hWQWw3XZg9j0fhKtdgwVTiCb+CrIrrFJooSQl5E2cMXLnoXEPi0zjtt55Y +b+/lTOF6CitKW9RFiZ89zr1wu4HCy67XNr3//3ltyDnvd59Ci0q5xjJinnbW +2bYOCgMqD/QYEVsVZmaEvaCwxkAp/CephzGZC+lq3RQGTkpG3CBWX3A2La6f +xBN3soJJ3BqeftrwI4l/ftfAK1JvnuNpqX+PUNiloHo8lriw91SK2QSFqbIR +Q12kXjfYpCR/+0lh6zH3umPEAy1JSZdnKZQ9vPSXHLHy9fiEfxcy8Xiea50N +qfe7qnHx3KVMNJGahiHSH045MXH7RJh4Jk9aP4w4O+FETK0ME3NeP/dOJ/20 +wvlYVIgmE0eOLNHKIv12ozMskrWKiYNP36M48e6toX92GjIxeddMWwLp13TD +4ON6wMTOHS82+ZB+Flp2KPSLDRNrX5/5NkfmQfmJg0dz7JgoKPjy+T7irdMH +Qrb9wcS6dfp61WSeJAx4B5W6M3Fy25pDTg9pmH9rf4DnUSZ6C279N6aFhgJt +10OSx5kYsMZ87D6ZT2aFzv7NUUy8oPuHiwBx5Ol9fowkJmb0dfcdaaLhl4ed +d98lJh7YdtJGg8y/b2JbXezuMTHJzOH7xE0auv0YT30fMPHsNfu7wzVkP2j5 +BZHtTCyX6U/oqaYhLbxMqfgVWa/UnhUVVTToDix7NzPCRHne+w0aFTT4Vz5x +zBFnodaTF8vdikh9LS1+XCnNwjseQebSV2lY7xHFaVFgYUr6mtMPC8h6yKxS ++KrKwjXtpfuUr5D1iEp/gyYs7LZ7JZSXTcOIte0ff7uzcMg3hG/gNA3PS7Qe +/fRh4TzVzLm9qTTUCixcJ3SIhYUiqqrtKTQk1lTLrg5jYf0lw8miRBrUlKR7 +4k+xMNLtdZX2SRq8vvTs1ahmoYeBF39CMNl/UlzsAhexsbLm+/QBst/6j2gy +dJexcYHrkNwpsh9Pb575/FmEjU9Z+5aX7aJBUCA91keWjYbsXJ+31iT/sKYq +Fy023veJEZLfQkOEB1vcehcbpR2NmPxrSL2sH3uikcdG4Sl1rXByHricfTN7 +uICNjjGRV4zESb3PxHhdK2ajyYKeZd/J+cGkSmGOcZ2NDfOLHzsuI/NrpbW2 +7H02gryAnKgADRUrrqcsHmWj6rIavk9feWDx9ajFh9WqmD24dMT5AQ/kVynG +LTZRxdZX7J1xzTz4Eth8T8NUFYdbDR1KGnlwdkrEJNBSFR+YPtnxoY4HfbMl +2nPO5Pf33BcaVvAgcNkbcZlEVSzqEF5smMmDLHXs29ariquWW6s0eZDzmtvi +I1WRatg5veKvkGkufMndePtujBp+n1fnNPiDC19fRy16lKiGvjtt9KzGufDd +eia7P0MNeWOf9kgPc2F63UizcLEaLjz+ti2lhwv8Eu0rfJ6qoeCuPxq/kvOm +TPPpWgUVdQx8LBFfEskl/zek+OPvkSBa+qstZstB7DE7teLrSvRIK2i+Nl4G +8gn0jtWrNXFlkblBMLcUMjWMRcS9tNB9hLU+36sE2mRNDX+c0UY7MQ9BYali +WCt/L03nlQ4KllTtj7hUBMIC+UGu0brY6Wt1tUr/KiieUDKxZ69CvgTPmraS +AljC2le988EqPFoV7fKPWj5oc2Too456KJJmgrkPLkNgn1jTVj591JoSK9cs +zIWvP1JsLTL18YuV0/Mi/kuwWacly0LLAO2levVUEi/CnR/rfk93GKDfWq5V +3O/z4K+p1/PMwxCD7Q57G9SfBc4X9077JasxVM21bVtQOmxiSlsJ5a/G/sWD +kBWWBmpRSaH3jIxw/84Nwc8cTsFKD+O7rB4jRP7ui/NbEsHjjndM1eE1+Kb9 +i8HpW3Fw93Kn+zdJY2wrfecCdSdhonhuWqfGGPuXhJkNS50AN1bZkiyrtTj4 +z26NrS0R8G1lxurr42vxw7iTlMzJMLhZ+Lt/MmEdVoS1lqybDQaHjRSuUzTB +Ra/EaIcvgSB3MP6WdoMJXgnz1J2dHwCSgn6VVns46Nt4enPHtgNQuCEifNye +gzqp2wpEjQ+AXkTqhox9HJR7PLDclXUAto9XvOx25eDtY5cXMP/1hbhXkzNu +fhzkW3nzoXGFL/zMjzQLP8FB/uZNI3krfKFnXcaLojIO1vi1B+iOeYN3cOEl +Cx4H42du7B597Q1TvBseYxUcjA2Nz6584A1ijO7pVdUcLNjka+JS4A2WixXk +bzdwcDCUabjpD2+o7yxyf/GSg5Hn623VH3vBVuGbWiHdHMzf4fLxQp0XdG9+ +OCXdy0EHvVMxoqVeMFE7muD0noPFETs7WfFeoHVFlzs8wkGnB8e1npt6QX2P +aUjKZw6mme06n6lLriexC3TGOch0Pjzgo+QFnvHBz4ImOei1Iny51qwnTDTE +ZUn95GDz0YEPimOeEP3rglvtL+IlqUlyvZ4gYlCi6TjLwUru+p+MNk/IPVg7 +OTdHPg+tUTe85Qn/ASmcUXI= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.062212011749640195`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, + 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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.061043}}, + "Frame" -> {{False, 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.061043}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.061043}}, + "Frame" -> {{False, 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.062212011749640195`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994015558436002*^9}, + CellLabel-> + "Out[341]=",ExpressionUUID->"9d1ff533-cf83-431b-ba7b-bfc305a42714"] +}, Open ]], Cell[CellGroupData[{ @@ -13282,66 +15437,73 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[142]:=",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], + "In[342]:=",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.2686942648929067`*^-167\\\", \ +RowBox[{\\\"532888126012512780022077023202\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"83\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"114944000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 342, 81, + 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279097599506`*^9, 3.9940155584814787`*^9}, CellLabel-> "During evaluation of \ -In[142]:=",ExpressionUUID->"8906bbab-e37b-4b4c-898f-52bfc96dde7b"], +In[342]:=",ExpressionUUID->"666fb1cf-0dfb-4074-a65b-80df7e7b89b3"], 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.8611090652874222`*^-170\\\", \ +RowBox[{\\\"161198658118785115956678299518\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"87\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"705600000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 342, 82, + 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279097599506`*^9, 3.994015558489543*^9}, CellLabel-> "During evaluation of \ -In[142]:=",ExpressionUUID->"6ae14bce-ec42-7f4d-9914-0630eea4cdf9"], +In[342]:=",ExpressionUUID->"fa5eb4c8-2c7d-415d-919d-a9da79735dab"], 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[\\\"1.526749111369804`*^-173\\\", \ +RowBox[{\\\"505518991860510123640143147290\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"90\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"761600000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 342, 83, + 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279097599506`*^9, 3.994015558498501*^9}, CellLabel-> "During evaluation of \ -In[142]:=",ExpressionUUID->"7e98a506-896d-0d47-8502-b83685d9a60c"], +In[342]:=",ExpressionUUID->"969b635f-9f9c-4e61-a3a1-f15ea88da7b1"], 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, 342, 84, 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279097599506`*^9, 3.994015558506133*^9}, CellLabel-> "During evaluation of \ -In[142]:=",ExpressionUUID->"400e66c2-06b5-814e-a2be-19c4c75ccbf0"], +In[342]:=",ExpressionUUID->"d4deb18d-5d8b-46fe-ab13-4f72e93f412c"], -Cell[BoxData["11.275343508420296`"], "Output", - CellChangeTimes->{3.9913279159698696`*^9}, +Cell[BoxData["12.641476647059989`"], "Output", + CellChangeTimes->{3.9913279159698696`*^9, 3.9940156017421494`*^9}, CellLabel-> - "Out[142]=",ExpressionUUID->"f202ab02-e319-144b-97e8-ae603395b346"] + "Out[342]=",ExpressionUUID->"f32daa50-8d08-4014-8bad-96653b713d3b"] }, Open ]], Cell[CellGroupData[{ @@ -13408,68 +15570,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[343]:=",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[\\\"9.846318367211254`*^-219\\\", \ +RowBox[{\\\"416073593398435743255481102734\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"32\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8587316426506240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 343, 85, + 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327916008396*^9, 3.9940156017827044`*^9}, CellLabel-> "During evaluation of \ -In[143]:=",ExpressionUUID->"2d7e67d1-8691-e348-9ca8-caa63b533102"], +In[343]:=",ExpressionUUID->"5de0fa25-e140-46cc-a3f8-3aba86fb2c0e"], 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[\\\"2.531382768494685`*^-224\\\", \ +RowBox[{\\\"665717749437497189208769764374\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"35\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9706282409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 343, 86, + 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327916008396*^9, 3.994015601790365*^9}, CellLabel-> "During evaluation of \ -In[143]:=",ExpressionUUID->"f0eb6f1d-f621-8647-b6a6-8bf673e41ebb"], +In[343]:=",ExpressionUUID->"5fa2ec55-35fd-4ab3-a975-0c57f822f78d"], 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.507913396311096`*^-230\\\", \ +RowBox[{\\\"111907153680443277505994197391\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"260731183104000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 343, 87, + 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327916008396*^9, 3.994015601797372*^9}, CellLabel-> "During evaluation of \ -In[143]:=",ExpressionUUID->"64fda82a-0f74-2743-89a8-afd600de203a"], +In[343]:=",ExpressionUUID->"da636060-9f86-48ba-82d0-db3aec03a54d"], 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, 343, 88, 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327916008396*^9, 3.9940156018052692`*^9}, CellLabel-> "During evaluation of \ -In[143]:=",ExpressionUUID->"971a319d-8ab4-464d-a08e-f97fe8d4c0e1"], +In[343]:=",ExpressionUUID->"10219f95-3fcc-4f03-9aa9-82141c7d82ef"], -Cell[BoxData["1.0734937398087425`"], "Output", - CellChangeTimes->{3.991327922931429*^9}, +Cell[BoxData["0.24978427547615423`"], "Output", + CellChangeTimes->{3.991327922931429*^9, 3.9940156086037683`*^9}, CellLabel-> - "Out[143]=",ExpressionUUID->"b3c37f48-9827-884f-94d9-1f76aed7bfaa"] + "Out[343]=",ExpressionUUID->"97ad71f4-add2-475a-afed-6f9981fc2350"] }, Open ]], Cell[CellGroupData[{ @@ -13490,8 +15659,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -13536,68 +15704,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[344]:=",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[\\\"9.846318367211254`*^-219\\\", \ +RowBox[{\\\"416073593398435743255481102734\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"32\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8587316426506240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 344, 89, + 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279229664307`*^9, 3.994015608652577*^9}, CellLabel-> "During evaluation of \ -In[144]:=",ExpressionUUID->"1040ba10-c733-df44-b556-0998dc0163c9"], +In[344]:=",ExpressionUUID->"f8dc0120-9ee9-4cd7-9a75-4220a93c2ad5"], 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[\\\"2.531382768494685`*^-224\\\", \ +RowBox[{\\\"665717749437497189208769764374\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"35\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9706282409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 344, 90, + 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279229664307`*^9, 3.994015608662369*^9}, CellLabel-> "During evaluation of \ -In[144]:=",ExpressionUUID->"e451b852-84c2-a941-b1d7-812ecad4750e"], +In[344]:=",ExpressionUUID->"23719507-0560-4759-8652-d6f8559a93bc"], 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.507913396311096`*^-230\\\", \ +RowBox[{\\\"111907153680443277505994197391\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"260731183104000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 344, 91, + 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279229664307`*^9, 3.9940156086706*^9}, CellLabel-> "During evaluation of \ -In[144]:=",ExpressionUUID->"a15e0c9d-d634-6e47-94c5-2ce40fcb4d52"], +In[344]:=",ExpressionUUID->"f06d80c5-2b2d-4599-a266-b12135f00231"], 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, 344, 92, 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279229664307`*^9, 3.994015608677967*^9}, CellLabel-> "During evaluation of \ -In[144]:=",ExpressionUUID->"a3ddc92b-b5c9-5e46-be44-6165430ec35f"], +In[344]:=",ExpressionUUID->"00a6587c-848e-49c3-9855-e81095002018"], -Cell[BoxData["9.48093127226425`"], "Output", - CellChangeTimes->{3.9913279288200035`*^9}, +Cell[BoxData["40.79625385749819`"], "Output", + CellChangeTimes->{3.9913279288200035`*^9, 3.9940156148895082`*^9}, CellLabel-> - "Out[144]=",ExpressionUUID->"978bf39b-9d1f-a54f-a6de-a2e3d269e126"] + "Out[344]=",ExpressionUUID->"6953079e-8ee6-4f83-b21e-25483dd8585b"] }, Open ]], Cell[CellGroupData[{ @@ -13618,8 +15793,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -13664,68 +15838,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[345]:=",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[\\\"9.846318367211254`*^-219\\\", \ +RowBox[{\\\"416073593398435743255481102734\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"32\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8587316426506240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 345, 93, + 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327928854006*^9, 3.99401561492874*^9}, CellLabel-> "During evaluation of \ -In[145]:=",ExpressionUUID->"57c74c2a-63a6-9846-b3f7-1a08cebb8172"], +In[345]:=",ExpressionUUID->"cc5bfed3-ab1e-4eb5-9959-d3d8c3d96ca0"], 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[\\\"2.531382768494685`*^-224\\\", \ +RowBox[{\\\"665717749437497189208769764374\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"35\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9706282409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 345, 94, + 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327928854006*^9, 3.994015614937789*^9}, CellLabel-> "During evaluation of \ -In[145]:=",ExpressionUUID->"2e606101-b73e-f443-8324-5b1c64dcaa7f"], +In[345]:=",ExpressionUUID->"746a24a7-4fd5-4af0-962a-32df7162c298"], 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.507913396311096`*^-230\\\", \ +RowBox[{\\\"111907153680443277505994197391\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"260731183104000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 345, 95, + 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327928854006*^9, 3.994015614945923*^9}, CellLabel-> "During evaluation of \ -In[145]:=",ExpressionUUID->"4da9173d-4ced-1e49-83f6-426d72ec8cf3"], +In[345]:=",ExpressionUUID->"6f0b219c-718c-4252-aa68-5d85da767b44"], 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, 345, 96, 31386062764512562340, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327928854006*^9, 3.994015614952437*^9}, CellLabel-> "During evaluation of \ -In[145]:=",ExpressionUUID->"a2dba8d9-69c9-cb46-bbb4-f7192fe3e138"], +In[345]:=",ExpressionUUID->"1e81d2c7-0c80-47b0-8fef-75045bcc6920"], -Cell[BoxData["17.503865312709518`"], "Output", - CellChangeTimes->{3.9913279320131683`*^9}, +Cell[BoxData["7.210093989471606`"], "Output", + CellChangeTimes->{3.9913279320131683`*^9, 3.9940156185545692`*^9}, CellLabel-> - "Out[145]=",ExpressionUUID->"12fa1803-dc21-9349-8d62-d5d5f0fa85c6"] + "Out[345]=",ExpressionUUID->"0a05abac-a814-4558-bce8-70bed6bff89f"] }, Open ]], Cell[CellGroupData[{ @@ -13734,16 +15915,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[346]:=",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], + +Cell[BoxData["0.014564128066981704`"], "Output", + CellChangeTimes->{3.9913279320452003`*^9, 3.994015618586438*^9}, + CellLabel-> + "Out[346]=",ExpressionUUID->"c57492f7-619a-4b1e-ace3-684d3b556383"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input", + CellChangeTimes->{{3.9940131274965057`*^9, 3.99401313558323*^9}}, + CellLabel-> + "In[347]:=",ExpressionUUID->"513f446a-7f4e-4e3e-a8ae-ef97951f73d4"] }, +Evaluator->"kernel 3", WindowSize->{1440, 882}, WindowMargins->{{0, Automatic}, {0, Automatic}}, CellContext->Notebook, @@ -13764,662 +15952,673 @@ CellTagsIndex->{} (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ -Cell[576, 22, 305, 6, 40, "Input",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], -Cell[884, 30, 253, 5, 46, "Output",ExpressionUUID->"dda15419-5d98-4d1b-8619-b399d85129a1"] +Cell[576, 22, 253, 5, 40, "Input",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], +Cell[832, 29, 332, 6, 46, "Output",ExpressionUUID->"02b76cfc-9129-4c15-aecc-0b70abf97942"] }, Open ]], Cell[CellGroupData[{ -Cell[1174, 40, 202, 4, 40, "Input",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], -Cell[1379, 46, 254, 5, 46, "Output",ExpressionUUID->"d62e401f-d2d7-41ce-8534-a73748f76dc1"] +Cell[1201, 40, 230, 5, 40, "Input",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], +Cell[1434, 47, 334, 6, 46, "Output",ExpressionUUID->"87da360f-d1f9-4448-a2dd-dc8c52cc150b"] }, Open ]], Cell[CellGroupData[{ -Cell[1670, 56, 230, 5, 40, "Input",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], -Cell[1903, 63, 260, 5, 46, "Output",ExpressionUUID->"5438cd87-6164-48d5-b542-eaba83544f7e"] +Cell[1805, 58, 180, 4, 40, "Input",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], +Cell[1988, 64, 328, 6, 46, "Output",ExpressionUUID->"0eda2467-657a-4a1d-a7f5-6670d09772e1"] }, Open ]], Cell[CellGroupData[{ -Cell[2200, 73, 180, 4, 40, "Input",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], -Cell[2383, 79, 254, 5, 46, "Output",ExpressionUUID->"1b82756d-5454-4d29-aae5-677a392212a6"] +Cell[2353, 75, 262, 8, 59, "Input",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], +Cell[2618, 85, 343, 6, 46, "Output",ExpressionUUID->"91772306-fc7d-4c2c-a2a8-ed20c40fa78b"] }, Open ]], Cell[CellGroupData[{ -Cell[2674, 89, 262, 8, 59, "Input",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], -Cell[2939, 99, 268, 5, 46, "Output",ExpressionUUID->"dd9edbb4-c4ef-4d49-883a-5453e6c663bd"] +Cell[2998, 96, 136, 3, 40, "Input",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], +Cell[3137, 101, 332, 6, 46, "Output",ExpressionUUID->"d3f344b2-a7ce-4205-b88b-06289fa21188"] }, Open ]], Cell[CellGroupData[{ -Cell[3244, 109, 136, 3, 40, "Input",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], -Cell[3383, 114, 260, 5, 46, "Output",ExpressionUUID->"8708e2e2-354e-47c4-9e43-685d3369f6bc"] +Cell[3506, 112, 281, 7, 40, "Input",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], +Cell[3790, 121, 343, 6, 46, "Output",ExpressionUUID->"f0e0dfa6-95df-4cdb-bc6a-f6f679bb515b"] }, Open ]], Cell[CellGroupData[{ -Cell[3680, 124, 281, 7, 40, "Input",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], -Cell[3964, 133, 269, 5, 46, "Output",ExpressionUUID->"ef7f8e16-b8cc-4788-8110-4b3970d6fd37"] +Cell[4170, 132, 262, 8, 40, "Input",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], +Cell[4435, 142, 341, 6, 46, "Output",ExpressionUUID->"ca5eaa25-ca1a-45e1-8dab-ef5558f5e848"] }, Open ]], Cell[CellGroupData[{ -Cell[4270, 143, 262, 8, 40, "Input",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], -Cell[4535, 153, 269, 5, 46, "Output",ExpressionUUID->"40916a73-e987-44cb-bd72-7c4c61cc1dc4"] +Cell[4813, 153, 282, 6, 40, "Input",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], +Cell[5098, 161, 313, 6, 46, "Output",ExpressionUUID->"295a4cbe-7878-4dbf-ba68-c5eba9ca3bd2"] }, Open ]], Cell[CellGroupData[{ -Cell[4841, 163, 282, 6, 40, "Input",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], -Cell[5126, 171, 239, 5, 46, "Output",ExpressionUUID->"17ec3466-a891-47fd-ad6e-0f67eebcf191"] +Cell[5448, 172, 230, 5, 40, "Input",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], +Cell[5681, 179, 306, 6, 46, "Output",ExpressionUUID->"09582f61-e993-4f6a-baf2-da0470724e35"] }, Open ]], Cell[CellGroupData[{ -Cell[5402, 181, 230, 5, 40, "Input",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], -Cell[5635, 188, 235, 5, 46, "Output",ExpressionUUID->"627aa18c-e7d0-46b8-9ea6-a6e2e623bc65"] +Cell[6024, 190, 133, 3, 40, "Input",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], +Cell[6160, 195, 327, 6, 46, "Output",ExpressionUUID->"3ebc86f1-b242-4d68-97bf-f699271c546a"] }, Open ]], Cell[CellGroupData[{ -Cell[5907, 198, 133, 3, 40, "Input",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], -Cell[6043, 203, 254, 5, 46, "Output",ExpressionUUID->"cab37321-21b2-4f97-9416-6e6ec7d442a4"] +Cell[6524, 206, 133, 3, 40, "Input",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], +Cell[6660, 211, 325, 6, 46, "Output",ExpressionUUID->"4463342c-feaf-48eb-8ada-f24efca164cf"] }, Open ]], Cell[CellGroupData[{ -Cell[6334, 213, 133, 3, 40, "Input",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], -Cell[6470, 218, 254, 5, 46, "Output",ExpressionUUID->"af8a7b75-5d82-4650-a4a8-8917d748387b"] +Cell[7022, 222, 561, 20, 109, "Input",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], +Cell[7586, 244, 346, 6, 46, "Output",ExpressionUUID->"85ef006f-629c-4ea9-9da2-ea7984aca181"] }, Open ]], Cell[CellGroupData[{ -Cell[6761, 228, 561, 20, 109, "Input",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], -Cell[7325, 250, 274, 5, 46, "Output",ExpressionUUID->"d2031daf-07fe-4fec-a6b3-90fada487771"] +Cell[7969, 255, 561, 20, 109, "Input",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], +Cell[8533, 277, 343, 6, 46, "Output",ExpressionUUID->"463cb81b-0290-434c-879b-7f5f9942d0be"] }, Open ]], Cell[CellGroupData[{ -Cell[7636, 260, 561, 20, 109, "Input",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], -Cell[8200, 282, 272, 5, 46, "Output",ExpressionUUID->"2f80541f-cea3-4155-b610-92bb82e57ad3"] +Cell[8913, 288, 1592, 51, 188, "Input",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], +Cell[10508, 341, 342, 6, 46, "Output",ExpressionUUID->"5bdb3916-91fb-4347-af64-c89c87bb1fc6"] }, Open ]], Cell[CellGroupData[{ -Cell[8509, 292, 1592, 51, 188, "Input",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], -Cell[10104, 345, 271, 5, 46, "Output",ExpressionUUID->"a5d1b011-7d27-4b31-8672-520f1252d0d1"] +Cell[10887, 352, 1426, 47, 155, "Input",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], +Cell[12316, 401, 359, 7, 46, "Output",ExpressionUUID->"1f9da4a4-8840-446f-8c48-327dcb682c06"] }, Open ]], Cell[CellGroupData[{ -Cell[10412, 355, 1426, 47, 155, "Input",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], -Cell[11841, 404, 285, 6, 46, "Output",ExpressionUUID->"3bcb58b3-6db0-4260-9032-f765b9cb3f8f"] +Cell[12712, 413, 1426, 47, 155, "Input",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], +Cell[14141, 462, 361, 7, 46, "Output",ExpressionUUID->"e43e3543-f7a7-4009-b1f4-c4d6b7f0226f"] }, Open ]], Cell[CellGroupData[{ -Cell[12163, 415, 1426, 47, 155, "Input",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], -Cell[13592, 464, 289, 6, 46, "Output",ExpressionUUID->"143670c9-147f-408b-a96f-d4daeddb3aeb"] +Cell[14539, 474, 1592, 51, 188, "Input",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], +Cell[16134, 527, 334, 6, 46, "Output",ExpressionUUID->"2c42b9e8-119a-4541-8b2c-039ba53fa9c8"] }, Open ]], Cell[CellGroupData[{ -Cell[13918, 475, 1592, 51, 188, "Input",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], -Cell[15513, 528, 264, 5, 46, "Output",ExpressionUUID->"5adef6bb-ed2c-4e48-80c5-73eef8f4cfd8"] +Cell[16505, 538, 135, 3, 40, "Input",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], +Cell[16643, 543, 324, 6, 46, "Output",ExpressionUUID->"395e26c2-3dc4-40f9-a8e5-15a42707a0d9"] }, Open ]], Cell[CellGroupData[{ -Cell[15814, 538, 135, 3, 40, "Input",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], -Cell[15952, 543, 252, 5, 46, "Output",ExpressionUUID->"551bb716-45b4-47a1-8338-64b7d20e53c4"] +Cell[17004, 554, 137, 3, 40, "Input",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], +Cell[17144, 559, 330, 6, 46, "Output",ExpressionUUID->"971d9b92-7e50-4524-af3e-d34c1f74f43b"] }, Open ]], Cell[CellGroupData[{ -Cell[16241, 553, 137, 3, 40, "Input",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], -Cell[16381, 558, 256, 5, 46, "Output",ExpressionUUID->"13f77119-79a8-4728-afd2-b9e946f2c120"] +Cell[17511, 570, 138, 3, 40, "Input",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], +Cell[17652, 575, 328, 6, 46, "Output",ExpressionUUID->"e7ecbe34-8915-49fe-ac77-de27c0c908cb"] }, Open ]], Cell[CellGroupData[{ -Cell[16674, 568, 138, 3, 40, "Input",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], -Cell[16815, 573, 256, 5, 46, "Output",ExpressionUUID->"43d4f1a2-a517-4ac2-bc95-a8ad6cf00221"] +Cell[18017, 586, 223, 5, 40, "Input",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], +Cell[18243, 593, 341, 7, 46, "Output",ExpressionUUID->"5a866327-178c-4686-8e92-7dd75c7964ac"] }, Open ]], Cell[CellGroupData[{ -Cell[17108, 583, 223, 5, 40, "Input",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], -Cell[17334, 590, 269, 6, 46, "Output",ExpressionUUID->"53afaf9c-e47e-4769-8654-5afd7ebd290c"] +Cell[18621, 605, 138, 3, 40, "Input",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], +Cell[18762, 610, 332, 6, 46, "Output",ExpressionUUID->"0da10e8e-61fb-4d64-bc48-784dd04fbefe"] }, Open ]], Cell[CellGroupData[{ -Cell[17640, 601, 138, 3, 40, "Input",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], -Cell[17781, 606, 258, 5, 46, "Output",ExpressionUUID->"9dcdd773-c638-4f74-8c1c-a44872e5fdec"] +Cell[19131, 621, 328, 6, 40, "Input",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], +Cell[19462, 629, 325, 6, 46, "Output",ExpressionUUID->"3c53442c-8e6e-4774-b28a-b9b3be86e290"] }, Open ]], Cell[CellGroupData[{ -Cell[18076, 616, 328, 6, 40, "Input",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], -Cell[18407, 624, 253, 5, 46, "Output",ExpressionUUID->"086298ca-5e2e-478b-8697-8efa14858ce0"] +Cell[19824, 640, 300, 6, 40, "Input",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], +Cell[20127, 648, 327, 6, 46, "Output",ExpressionUUID->"383bf52f-64cd-4e33-bd9d-8172335eda33"] }, Open ]], Cell[CellGroupData[{ -Cell[18697, 634, 300, 6, 40, "Input",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], -Cell[19000, 642, 255, 5, 46, "Output",ExpressionUUID->"0ec8ca43-d1f1-4968-9651-334fa087d2ed"] +Cell[20491, 659, 223, 5, 40, "Input",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], +Cell[20717, 666, 328, 6, 46, "Output",ExpressionUUID->"875dd278-6a24-4361-9f0b-e6670678fe27"] }, Open ]], Cell[CellGroupData[{ -Cell[19292, 652, 223, 5, 40, "Input",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], -Cell[19518, 659, 255, 5, 46, "Output",ExpressionUUID->"225af120-f5d7-4b59-9bf5-9d2d2f34f958"] +Cell[21082, 677, 354, 11, 59, "Input",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], +Cell[21439, 690, 342, 6, 46, "Output",ExpressionUUID->"6288499c-7ff9-4150-95ab-5853bcb008f4"] }, Open ]], Cell[CellGroupData[{ -Cell[19810, 669, 354, 11, 59, "Input",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], -Cell[20167, 682, 270, 5, 46, "Output",ExpressionUUID->"04870622-2f58-4b54-813b-772f8f7ba51e"] +Cell[21818, 701, 354, 11, 59, "Input",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], +Cell[22175, 714, 363, 7, 46, "Output",ExpressionUUID->"d2fa704d-7523-487c-a231-bbba5c26706f"] }, Open ]], Cell[CellGroupData[{ -Cell[20474, 692, 354, 11, 59, "Input",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], -Cell[20831, 705, 291, 6, 46, "Output",ExpressionUUID->"c61c10b1-7ded-4439-a4a8-b33d3b9b8b7f"] +Cell[22575, 726, 998, 27, 60, "Input",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], +Cell[23576, 755, 348, 6, 46, "Output",ExpressionUUID->"daecb561-b08f-484e-8637-cfd138f9bc6e"] }, Open ]], Cell[CellGroupData[{ -Cell[21159, 716, 998, 27, 60, "Input",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], -Cell[22160, 745, 274, 5, 46, "Output",ExpressionUUID->"e4f4ef81-6c1b-4622-80b6-57b2e8b36e28"] +Cell[23961, 766, 203, 4, 40, "Input",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], +Cell[24167, 772, 326, 6, 46, "Output",ExpressionUUID->"9b43ccba-dea2-4c4a-baa1-ff7c06c35b07"] }, Open ]], Cell[CellGroupData[{ -Cell[22471, 755, 203, 4, 40, "Input",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], -Cell[22677, 761, 252, 5, 46, "Output",ExpressionUUID->"290fccad-aed7-431b-8a9a-307d5d3faf48"] +Cell[24530, 783, 333, 6, 40, "Input",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], +Cell[24866, 791, 283, 5, 46, "Output",ExpressionUUID->"e1837d25-c3ef-481b-95cf-194d0ceb1503"] }, Open ]], +Cell[25164, 799, 177, 3, 40, "Input",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], Cell[CellGroupData[{ -Cell[22966, 771, 333, 6, 40, "Input",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], -Cell[23302, 779, 209, 4, 46, "Output",ExpressionUUID->"1549cd96-a904-42e7-b52f-fda3f368fe45"] +Cell[25366, 806, 331, 6, 40, "Input",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], +Cell[25700, 814, 279, 5, 46, "Output",ExpressionUUID->"1b02dbd8-3996-406e-a7b6-16b6e27835dd"] }, Open ]], -Cell[23526, 786, 177, 3, 40, "Input",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], +Cell[25994, 822, 177, 3, 40, "Input",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], Cell[CellGroupData[{ -Cell[23728, 793, 331, 6, 40, "Input",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], -Cell[24062, 801, 206, 4, 46, "Output",ExpressionUUID->"98ee8e70-5f02-4c49-9f00-a886e6f49a0b"] +Cell[26196, 829, 330, 6, 40, "Input",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], +Cell[26529, 837, 280, 5, 46, "Output",ExpressionUUID->"64784e32-c082-45e1-9dcc-45ae477eb016"] }, Open ]], -Cell[24283, 808, 177, 3, 40, "Input",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], +Cell[26824, 845, 177, 3, 40, "Input",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], Cell[CellGroupData[{ -Cell[24485, 815, 330, 6, 40, "Input",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], -Cell[24818, 823, 206, 4, 46, "Output",ExpressionUUID->"35e6304e-9ed9-42f0-9a12-a98874bc099d"] +Cell[27026, 852, 358, 6, 40, "Input",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], +Cell[27387, 860, 281, 5, 46, "Output",ExpressionUUID->"0bd4dd65-9cbb-4258-90e4-15654d27e930"] }, Open ]], -Cell[25039, 830, 177, 3, 40, "Input",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], +Cell[27683, 868, 175, 3, 40, "Input",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], Cell[CellGroupData[{ -Cell[25241, 837, 358, 6, 40, "Input",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], -Cell[25602, 845, 211, 4, 46, "Output",ExpressionUUID->"5ed10d4c-de1a-40ca-b4f8-06dc6806b476"] +Cell[27883, 875, 303, 6, 40, "Input",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], +Cell[28189, 883, 279, 5, 46, "Output",ExpressionUUID->"aa149681-3df3-408b-89e6-f44826c5aa1c"] }, Open ]], -Cell[25828, 852, 175, 3, 40, "Input",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], +Cell[28483, 891, 175, 3, 40, "Input",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], Cell[CellGroupData[{ -Cell[26028, 859, 303, 6, 40, "Input",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], -Cell[26334, 867, 207, 4, 46, "Output",ExpressionUUID->"2108e835-366d-4628-bd9c-bcc99a4c5939"] +Cell[28683, 898, 306, 6, 40, "Input",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], +Cell[28992, 906, 282, 5, 46, "Output",ExpressionUUID->"16aae6bf-c99e-4322-89b4-37f0024483e7"] }, Open ]], -Cell[26556, 874, 175, 3, 40, "Input",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], +Cell[29289, 914, 177, 3, 40, "Input",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], Cell[CellGroupData[{ -Cell[26756, 881, 306, 6, 40, "Input",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], -Cell[27065, 889, 210, 4, 46, "Output",ExpressionUUID->"f55807ff-8966-4208-b7d5-e23d3525fb84"] +Cell[29491, 921, 309, 6, 40, "Input",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], +Cell[29803, 929, 277, 5, 46, "Output",ExpressionUUID->"48612957-1fe6-4701-847c-954c5540e7bc"] }, Open ]], -Cell[27290, 896, 177, 3, 40, "Input",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], +Cell[30095, 937, 176, 3, 40, "Input",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], Cell[CellGroupData[{ -Cell[27492, 903, 309, 6, 40, "Input",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], -Cell[27804, 911, 205, 4, 46, "Output",ExpressionUUID->"c95790d2-de7f-4694-be7f-be176b5c975d"] +Cell[30296, 944, 279, 5, 40, "Input",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], +Cell[30578, 951, 285, 5, 46, "Output",ExpressionUUID->"b837f1be-feee-4838-8d8e-9b413609dddd"] }, Open ]], -Cell[28024, 918, 176, 3, 40, "Input",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], +Cell[30878, 959, 179, 3, 40, "Input",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], Cell[CellGroupData[{ -Cell[28225, 925, 279, 5, 40, "Input",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], -Cell[28507, 932, 211, 4, 46, "Output",ExpressionUUID->"14b07abd-c7e8-4d2f-b4bb-1896e41668aa"] +Cell[31082, 966, 19813, 486, 1847, "Input",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], +Cell[50898, 1454, 345, 6, 46, "Output",ExpressionUUID->"7abbd9eb-8584-45db-87ee-afe5657a5b56"] }, Open ]], -Cell[28733, 939, 179, 3, 40, "Input",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], Cell[CellGroupData[{ -Cell[28937, 946, 19813, 486, 1847, "Input",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], -Cell[48753, 1434, 273, 5, 46, "Output",ExpressionUUID->"9b29168b-6b26-47b4-b97b-8626acbb3bd5"] +Cell[51280, 1465, 19752, 490, 1862, "Input",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], +Cell[71035, 1957, 341, 6, 46, "Output",ExpressionUUID->"511b2473-64a7-4d45-8b08-6aee373e1bd5"] }, Open ]], Cell[CellGroupData[{ -Cell[49063, 1444, 19752, 490, 1862, "Input",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], -Cell[68818, 1936, 267, 5, 46, "Output",ExpressionUUID->"6a91eb01-0dc1-4df6-8044-8f8fe9c2dd14"] +Cell[71413, 1968, 19752, 484, 1861, "Input",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], +Cell[91168, 2454, 360, 7, 46, "Output",ExpressionUUID->"4dcb72b9-5a05-475a-b19b-308eff8e0aa1"] }, Open ]], Cell[CellGroupData[{ -Cell[69122, 1946, 19752, 484, 1861, "Input",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], -Cell[88877, 2432, 289, 6, 46, "Output",ExpressionUUID->"96789d30-79f5-417b-8e34-20799c818975"] +Cell[91565, 2466, 22538, 554, 2040, "Input",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], +Cell[114106, 3022, 364, 7, 46, "Output",ExpressionUUID->"ffc63857-f558-4c1b-aa1f-8e9664db9a96"] }, Open ]], Cell[CellGroupData[{ -Cell[89203, 2443, 22538, 554, 2040, "Input",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], -Cell[111744, 2999, 286, 6, 46, "Output",ExpressionUUID->"afbfe512-f3e2-425a-9e86-59ea3dbcd22d"] +Cell[114507, 3034, 22539, 554, 2040, "Input",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], +Cell[137049, 3590, 359, 7, 46, "Output",ExpressionUUID->"79d7da26-6e3c-437d-a235-ddc3df0dc28b"] }, Open ]], Cell[CellGroupData[{ -Cell[112067, 3010, 22539, 554, 2040, "Input",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], -Cell[134609, 3566, 288, 6, 46, "Output",ExpressionUUID->"d1a91c38-e5bf-48c6-968f-49bd349ccbe4"] +Cell[137445, 3602, 25495, 627, 2249, "Input",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], +Cell[162943, 4231, 365, 7, 46, "Output",ExpressionUUID->"28e5e873-8564-4b25-9879-9ebc8bfbcc56"] }, Open ]], Cell[CellGroupData[{ -Cell[134934, 3577, 25495, 627, 2249, "Input",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], -Cell[160432, 4206, 291, 6, 46, "Output",ExpressionUUID->"b81bf76d-5025-4d69-8ffb-0781cdf92c63"] +Cell[163345, 4243, 134, 3, 40, "Input",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], +Cell[163482, 4248, 324, 6, 46, "Output",ExpressionUUID->"701467f8-89d6-4de9-b19b-5c5f3a79c52d"] }, Open ]], Cell[CellGroupData[{ -Cell[160760, 4217, 134, 3, 40, "Input",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], -Cell[160897, 4222, 252, 5, 46, "Output",ExpressionUUID->"43a2aa73-02a7-4ddb-9ca1-f3561da449ec"] +Cell[163843, 4259, 134, 3, 40, "Input",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], +Cell[163980, 4264, 328, 6, 46, "Output",ExpressionUUID->"fd78c7cb-fb20-4a5e-a0cc-ca92898d4ce8"] }, Open ]], Cell[CellGroupData[{ -Cell[161186, 4232, 134, 3, 40, "Input",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], -Cell[161323, 4237, 254, 5, 46, "Output",ExpressionUUID->"7d45032d-0a4d-4d34-921c-72fb78cb5887"] +Cell[164345, 4275, 1148, 40, 79, "Input",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], +Cell[165496, 4317, 342, 6, 46, "Output",ExpressionUUID->"ff27cef7-2204-4642-a5d3-ef5c497c19ec"] }, Open ]], Cell[CellGroupData[{ -Cell[161614, 4247, 1148, 40, 79, "Input",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], -Cell[162765, 4289, 267, 5, 46, "Output",ExpressionUUID->"a88c10ca-518f-4d00-8296-53e61d2895e5"] +Cell[165875, 4328, 1045, 36, 79, "Input",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], +Cell[166923, 4366, 359, 7, 46, "Output",ExpressionUUID->"19d6e9ef-bb94-4290-8a5a-d34e8f46c1d8"] }, Open ]], Cell[CellGroupData[{ -Cell[163069, 4299, 1045, 36, 79, "Input",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], -Cell[164117, 4337, 286, 6, 46, "Output",ExpressionUUID->"b798dbd5-fe71-4bc1-81cb-bd8664ba1554"] +Cell[167319, 4378, 1148, 40, 79, "Input",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], +Cell[168470, 4420, 342, 6, 46, "Output",ExpressionUUID->"2963b4d2-9c77-4d18-99d7-7ef1acd2a4e0"] }, Open ]], Cell[CellGroupData[{ -Cell[164440, 4348, 1148, 40, 79, "Input",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], -Cell[165591, 4390, 270, 5, 46, "Output",ExpressionUUID->"3f192810-1568-4f84-8184-b90f269b30aa"] +Cell[168849, 4431, 112, 2, 40, "Input",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], +Cell[168964, 4435, 344, 6, 46, "Output",ExpressionUUID->"4c29393f-e540-403e-bdfa-c0ed3f8faf1d"] }, Open ]], Cell[CellGroupData[{ -Cell[165898, 4400, 112, 2, 40, "Input",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], -Cell[166013, 4404, 271, 5, 46, "Output",ExpressionUUID->"f3396ea3-7193-43b2-8126-31235e809195"] +Cell[169345, 4446, 112, 2, 40, "Input",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], +Cell[169460, 4450, 361, 7, 46, "Output",ExpressionUUID->"51392b7b-70d5-4e2b-82d1-d437a378ee34"] }, Open ]], Cell[CellGroupData[{ -Cell[166321, 4414, 112, 2, 40, "Input",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], -Cell[166436, 4418, 287, 6, 46, "Output",ExpressionUUID->"0fc5be3a-a6ae-4f62-8516-fe7b90491a86"] +Cell[169858, 4462, 112, 2, 40, "Input",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], +Cell[169973, 4466, 359, 7, 46, "Output",ExpressionUUID->"cbcfe3cd-6704-43dd-9b36-45475ac4a3a8"] }, Open ]], Cell[CellGroupData[{ -Cell[166760, 4429, 112, 2, 40, "Input",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], -Cell[166875, 4433, 285, 6, 46, "Output",ExpressionUUID->"4905df50-5444-436f-a192-eb555d438e3f"] +Cell[170369, 4478, 112, 2, 40, "Input",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], +Cell[170484, 4482, 348, 6, 46, "Output",ExpressionUUID->"646a36a2-9adc-4399-9879-3511872be4c4"] }, Open ]], Cell[CellGroupData[{ -Cell[167197, 4444, 112, 2, 40, "Input",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], -Cell[167312, 4448, 273, 5, 46, "Output",ExpressionUUID->"f4de8f2b-28b5-4a86-a154-4ac970f91315"] +Cell[170869, 4493, 111, 2, 40, "Input",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], +Cell[170983, 4497, 345, 6, 46, "Output",ExpressionUUID->"e08d193f-c9d1-4305-8d1c-74ba6cf6448b"] }, Open ]], Cell[CellGroupData[{ -Cell[167622, 4458, 111, 2, 40, "Input",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], -Cell[167736, 4462, 271, 5, 46, "Output",ExpressionUUID->"09e80ad5-932c-4ba5-8e0a-175532cfb6a6"] +Cell[171365, 4508, 111, 2, 40, "Input",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], +Cell[171479, 4512, 342, 6, 46, "Output",ExpressionUUID->"550be261-cd55-4ec7-961f-6a9d36a5309d"] }, Open ]], Cell[CellGroupData[{ -Cell[168044, 4472, 111, 2, 40, "Input",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], -Cell[168158, 4476, 270, 5, 46, "Output",ExpressionUUID->"177971be-dcab-466c-b4ae-2c516fccf332"] +Cell[171858, 4523, 501, 17, 77, "Input",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], +Cell[172362, 4542, 359, 7, 46, "Output",ExpressionUUID->"d8acaa4c-8e8a-49df-8cfc-f93eecb5bf14"] }, Open ]], Cell[CellGroupData[{ -Cell[168465, 4486, 501, 17, 77, "Input",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], -Cell[168969, 4505, 288, 6, 46, "Output",ExpressionUUID->"e6938c80-bf95-4e12-aa6f-faaf212e4ad7"] +Cell[172758, 4554, 501, 17, 77, "Input",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], +Cell[173262, 4573, 362, 7, 46, "Output",ExpressionUUID->"c6ff9333-7f9b-4cad-b3b5-279db28e4af7"] }, Open ]], Cell[CellGroupData[{ -Cell[169294, 4516, 501, 17, 77, "Input",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], -Cell[169798, 4535, 288, 6, 46, "Output",ExpressionUUID->"62cb0720-ab48-4862-86d4-ab183bc411b7"] +Cell[173661, 4585, 1792, 61, 187, "Input",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], +Cell[175456, 4648, 342, 6, 46, "Output",ExpressionUUID->"d126348f-0129-4078-9de4-fa391fa116a1"] }, Open ]], Cell[CellGroupData[{ -Cell[170123, 4546, 1792, 61, 187, "Input",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], -Cell[171918, 4609, 270, 5, 46, "Output",ExpressionUUID->"cdb931a0-f75c-49ce-ab64-9e8b19d75c00"] +Cell[175835, 4659, 1105, 37, 79, "Input",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], +Cell[176943, 4698, 359, 7, 46, "Output",ExpressionUUID->"6874a61c-1de7-479c-b005-4bd4509b82f7"] }, Open ]], Cell[CellGroupData[{ -Cell[172225, 4619, 1105, 37, 79, "Input",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], -Cell[173333, 4658, 286, 6, 46, "Output",ExpressionUUID->"d93b40f3-dda1-43ba-8670-52f608d1c29a"] +Cell[177339, 4710, 1822, 62, 155, "Input",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], +Cell[179164, 4774, 341, 6, 46, "Output",ExpressionUUID->"64bcdb20-2846-4fbb-b7b6-7f5ec6fefc3a"] }, Open ]], Cell[CellGroupData[{ -Cell[173656, 4669, 1822, 62, 155, "Input",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], -Cell[175481, 4733, 270, 5, 46, "Output",ExpressionUUID->"3f912033-8de5-401f-869b-9c7fb5e1f7ab"] +Cell[179542, 4785, 1635, 54, 111, "Input",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], +Cell[181180, 4841, 342, 6, 46, "Output",ExpressionUUID->"e258b404-ca27-4ae5-98ff-9de0aa6941e7"] }, Open ]], Cell[CellGroupData[{ -Cell[175788, 4743, 1635, 54, 111, "Input",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], -Cell[177426, 4799, 270, 5, 46, "Output",ExpressionUUID->"7ff5357c-fa34-4d78-a54e-4476ef84562b"] +Cell[181559, 4852, 1635, 54, 111, "Input",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], +Cell[183197, 4908, 344, 6, 46, "Output",ExpressionUUID->"6599509e-cfde-4ffe-9757-8890f74c1b13"] }, Open ]], Cell[CellGroupData[{ -Cell[177733, 4809, 1635, 54, 111, "Input",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], -Cell[179371, 4865, 269, 5, 46, "Output",ExpressionUUID->"a7d0a40a-c522-49ea-8773-3619b9a7250b"] +Cell[183578, 4919, 233, 5, 40, "Input",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], +Cell[183814, 4926, 310, 6, 46, "Output",ExpressionUUID->"f10b3d2c-a7e8-455a-82cd-477560420146"] }, Open ]], +Cell[184139, 4935, 176, 3, 40, "Input",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], Cell[CellGroupData[{ -Cell[179677, 4875, 233, 5, 40, "Input",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], -Cell[179913, 4882, 236, 5, 46, "Output",ExpressionUUID->"e6c6b67e-2d9c-4827-843e-812320ef0290"] +Cell[184340, 4942, 231, 5, 40, "Input",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], +Cell[184574, 4949, 306, 6, 46, "Output",ExpressionUUID->"86c74c4f-545d-447f-baa1-371b7ec57db9"] }, Open ]], -Cell[180164, 4890, 176, 3, 40, "Input",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], +Cell[184895, 4958, 177, 3, 40, "Input",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], Cell[CellGroupData[{ -Cell[180365, 4897, 231, 5, 40, "Input",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], -Cell[180599, 4904, 234, 5, 46, "Output",ExpressionUUID->"a7415f61-67bd-4b5e-8c98-5aafc61ffb63"] +Cell[185097, 4965, 1301, 43, 67, "Input",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], +Cell[186401, 5010, 342, 6, 46, "Output",ExpressionUUID->"c6037ac0-fb8c-4373-a1d6-3cc76f99c8c5"] }, Open ]], -Cell[180848, 4912, 177, 3, 40, "Input",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], Cell[CellGroupData[{ -Cell[181050, 4919, 1301, 43, 67, "Input",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], -Cell[182354, 4964, 271, 5, 46, "Output",ExpressionUUID->"67ad1167-c289-4146-916e-0d9ea7f51889"] +Cell[186780, 5021, 931, 31, 79, "Input",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], +Cell[187714, 5054, 349, 6, 46, "Output",ExpressionUUID->"a6e59043-72fc-43ae-b741-40652e596d17"] }, Open ]], Cell[CellGroupData[{ -Cell[182662, 4974, 931, 31, 79, "Input",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], -Cell[183596, 5007, 276, 5, 46, "Output",ExpressionUUID->"3ed70382-ea6c-4491-98f5-9a3d67367653"] +Cell[188100, 5065, 907, 30, 79, "Input",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], +Cell[189010, 5097, 350, 6, 46, "Output",ExpressionUUID->"9ce80ff2-7674-45fb-b4e6-c11f951d5e94"] }, Open ]], Cell[CellGroupData[{ -Cell[183909, 5017, 907, 30, 79, "Input",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], -Cell[184819, 5049, 276, 5, 46, "Output",ExpressionUUID->"e42a5bfe-36ee-4906-b751-728253aac8c7"] +Cell[189397, 5108, 558, 19, 73, "Input",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], +Cell[189958, 5129, 734, 11, 46, "Output",ExpressionUUID->"7cfdc7aa-9871-434d-80e9-346b37c7c883"] }, Open ]], Cell[CellGroupData[{ -Cell[185132, 5059, 558, 19, 73, "Input",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], -Cell[185693, 5080, 662, 10, 46, "Output",ExpressionUUID->"dbbf2d69-6688-4a43-bbaa-8e30d07aeb99"] +Cell[190729, 5145, 665, 22, 73, "Input",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], +Cell[191397, 5169, 722, 11, 46, "Output",ExpressionUUID->"89e732a4-fc80-4fcf-80af-d8b97e7667c9"] }, Open ]], Cell[CellGroupData[{ -Cell[186392, 5095, 665, 22, 73, "Input",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], -Cell[187060, 5119, 650, 10, 46, "Output",ExpressionUUID->"cf75269c-04a3-4c01-900f-37e920662697"] +Cell[192156, 5185, 170, 5, 77, "Input",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], +Cell[192329, 5192, 747, 11, 46, "Output",ExpressionUUID->"bb75cfd4-3cd5-438b-81a9-0aa6b8c2094b"] }, Open ]], Cell[CellGroupData[{ -Cell[187747, 5134, 170, 5, 77, "Input",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], -Cell[187920, 5141, 672, 10, 46, "Output",ExpressionUUID->"8e4cbb91-6487-4f06-abf7-4b228d0ccde2"] +Cell[193113, 5208, 236, 6, 77, "Input",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], +Cell[193352, 5216, 688, 11, 46, "Output",ExpressionUUID->"1abe96a5-280d-4c93-8cf8-675395b2c61f"] }, Open ]], Cell[CellGroupData[{ -Cell[188629, 5156, 236, 6, 77, "Input",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], -Cell[188868, 5164, 617, 10, 46, "Output",ExpressionUUID->"c55d1c7a-ce47-4406-bd66-af3ab3a9d50c"] +Cell[194077, 5232, 223, 6, 60, "Input",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], +Cell[194303, 5240, 722, 11, 46, "Output",ExpressionUUID->"00770fed-5e8d-4087-b9b3-dbaecfa0d4f1"] }, Open ]], Cell[CellGroupData[{ -Cell[189522, 5179, 223, 6, 60, "Input",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], -Cell[189748, 5187, 648, 10, 46, "Output",ExpressionUUID->"fcd84019-2054-4528-8279-034962cc5bf8"] +Cell[195062, 5256, 181, 5, 60, "Input",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], +Cell[195246, 5263, 736, 11, 46, "Output",ExpressionUUID->"6ed2d034-e49f-4118-b53d-e40f5d4475c8"] }, Open ]], Cell[CellGroupData[{ -Cell[190433, 5202, 181, 5, 60, "Input",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], -Cell[190617, 5209, 662, 10, 46, "Output",ExpressionUUID->"2ad09aec-71ad-4429-a036-be91dca2d204"] +Cell[196019, 5279, 6055, 185, 465, "Input",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], +Cell[202077, 5466, 722, 11, 46, "Output",ExpressionUUID->"e6ae6e7a-f53b-4936-b214-5b1d10c67220"] }, Open ]], Cell[CellGroupData[{ -Cell[191316, 5224, 6055, 185, 465, "Input",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], -Cell[197374, 5411, 646, 10, 46, "Output",ExpressionUUID->"4a0ddff6-4009-4197-bf13-2da3c4433751"] +Cell[202836, 5482, 410, 10, 81, "Input",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], +Cell[203249, 5494, 366, 6, 68, "Output",ExpressionUUID->"cd5cd31e-0fec-4845-9095-ea1d9d516b87"] }, Open ]], +Cell[203630, 5503, 492, 10, 40, "Input",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], Cell[CellGroupData[{ -Cell[198057, 5426, 410, 10, 81, "Input",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], -Cell[198470, 5438, 290, 5, 68, "Output",ExpressionUUID->"a0cf74c4-a6a8-4ab4-bc72-c706fe2c96b1"] +Cell[204147, 5517, 558, 19, 73, "Input",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], +Cell[204708, 5538, 294, 5, 46, "Output",ExpressionUUID->"1453884d-6a99-442b-8beb-dc424705eb90"] }, Open ]], -Cell[198775, 5446, 492, 10, 40, "Input",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], Cell[CellGroupData[{ -Cell[199292, 5460, 558, 19, 73, "Input",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], -Cell[199853, 5481, 249, 5, 46, "Output",ExpressionUUID->"f615d376-56d3-4e57-87f7-948829a5d6da"] +Cell[205039, 5548, 623, 21, 73, "Input",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], +Cell[205665, 5571, 293, 5, 46, "Output",ExpressionUUID->"da49ef5a-2c17-49ca-93cd-79204a005255"] }, Open ]], Cell[CellGroupData[{ -Cell[200139, 5491, 623, 21, 73, "Input",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], -Cell[200765, 5514, 248, 5, 46, "Output",ExpressionUUID->"e365bf8f-3f4b-4966-b570-2175f490d4eb"] +Cell[205995, 5581, 170, 5, 77, "Input",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], +Cell[206168, 5588, 293, 5, 46, "Output",ExpressionUUID->"98ef52c9-fa5c-4b42-9c3c-906cbccfe97a"] }, Open ]], Cell[CellGroupData[{ -Cell[201050, 5524, 170, 5, 77, "Input",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], -Cell[201223, 5531, 248, 5, 46, "Output",ExpressionUUID->"e38629b1-a97a-420a-8e78-50d7639d2b72"] +Cell[206498, 5598, 170, 5, 77, "Input",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], +Cell[206671, 5605, 289, 5, 46, "Output",ExpressionUUID->"5d091b1c-518d-44ec-8335-d59289a14a33"] }, Open ]], Cell[CellGroupData[{ -Cell[201508, 5541, 170, 5, 77, "Input",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], -Cell[201681, 5548, 245, 5, 46, "Output",ExpressionUUID->"bdd248bd-9b5a-4153-806f-e3f0d3039e18"] +Cell[206997, 5615, 181, 5, 60, "Input",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], +Cell[207181, 5622, 292, 5, 46, "Output",ExpressionUUID->"5f2a2cec-22c6-4726-883f-70a256d0e7bf"] }, Open ]], Cell[CellGroupData[{ -Cell[201963, 5558, 181, 5, 60, "Input",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], -Cell[202147, 5565, 250, 5, 46, "Output",ExpressionUUID->"f16854d5-e3a0-49b3-bc50-f00d66dcd26c"] +Cell[207510, 5632, 181, 5, 60, "Input",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], +Cell[207694, 5639, 296, 5, 46, "Output",ExpressionUUID->"b596bab9-4ced-4428-80a1-ed3b30c43224"] }, Open ]], Cell[CellGroupData[{ -Cell[202434, 5575, 181, 5, 60, "Input",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], -Cell[202618, 5582, 251, 5, 46, "Output",ExpressionUUID->"53c8c4d9-1688-44dd-abdd-f55b4ad6126f"] +Cell[208027, 5649, 6055, 185, 465, "Input",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], +Cell[214085, 5836, 299, 5, 46, "Output",ExpressionUUID->"20c64375-2ff9-423e-9a77-95f10111473e"] }, Open ]], Cell[CellGroupData[{ -Cell[202906, 5592, 6055, 185, 465, "Input",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], -Cell[208964, 5779, 252, 5, 46, "Output",ExpressionUUID->"5ebc2e11-6419-4dbf-9365-9d847c8b7317"] +Cell[214421, 5846, 368, 9, 58, "Input",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], +Cell[214792, 5857, 290, 5, 46, "Output",ExpressionUUID->"5b23be25-28ae-4bc9-96c1-2cecf7a8b2ef"] }, Open ]], Cell[CellGroupData[{ -Cell[209253, 5789, 368, 9, 58, "Input",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], -Cell[209624, 5800, 246, 5, 46, "Output",ExpressionUUID->"930d96bc-c579-48c2-a46c-e197085f955b"] +Cell[215119, 5867, 6122, 187, 465, "Input",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], +Cell[221244, 6056, 298, 5, 46, "Output",ExpressionUUID->"736a754b-5a93-4e14-a466-b2b258fc8c84"] }, Open ]], Cell[CellGroupData[{ -Cell[209907, 5810, 6122, 187, 465, "Input",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], -Cell[216032, 5999, 254, 5, 46, "Output",ExpressionUUID->"807c5544-8b43-4b71-ae8d-d056b50dd844"] +Cell[221579, 6066, 368, 9, 58, "Input",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], +Cell[221950, 6077, 292, 5, 46, "Output",ExpressionUUID->"47a716cc-5b4f-44bf-8446-3f391bc4fbcc"] }, Open ]], Cell[CellGroupData[{ -Cell[216323, 6009, 368, 9, 58, "Input",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], -Cell[216694, 6020, 247, 5, 46, "Output",ExpressionUUID->"56428f2a-fc66-4967-9db4-0815e153a6c9"] +Cell[222279, 6087, 2663, 88, 232, "Input",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], +Cell[224945, 6177, 293, 5, 46, "Output",ExpressionUUID->"df900390-109e-4d03-a98a-12679baf458b"] }, Open ]], Cell[CellGroupData[{ -Cell[216978, 6030, 2663, 88, 232, "Input",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], -Cell[219644, 6120, 249, 5, 46, "Output",ExpressionUUID->"d37bd6ea-7f06-4838-b295-ea25443f7f51"] +Cell[225275, 6187, 2603, 85, 232, "Input",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], +Cell[227881, 6274, 294, 5, 46, "Output",ExpressionUUID->"a2a1d18f-7c99-40b7-af31-c7cbc0b20d98"] }, Open ]], Cell[CellGroupData[{ -Cell[219930, 6130, 2603, 85, 232, "Input",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], -Cell[222536, 6217, 250, 5, 46, "Output",ExpressionUUID->"69f25557-34f4-4e68-bdfd-54dc2c6518df"] +Cell[228212, 6284, 3712, 118, 341, "Input",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], +Cell[231927, 6404, 293, 5, 46, "Output",ExpressionUUID->"76d2dedb-b4ba-4d09-8042-31f6e16f873a"] }, Open ]], +Cell[232235, 6412, 164, 4, 40, "Input",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], Cell[CellGroupData[{ -Cell[222823, 6227, 3712, 118, 341, "Input",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], -Cell[226538, 6347, 249, 5, 46, "Output",ExpressionUUID->"1c2883d6-b5da-451e-8481-4d71a7527166"] +Cell[232424, 6420, 2101, 60, 88, "Input",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], +Cell[234528, 6482, 746, 16, 55, "Message",ExpressionUUID->"ba462120-f669-479d-b9f6-7b50cbe6753c"], +Cell[235277, 6500, 746, 16, 55, "Message",ExpressionUUID->"fb420991-f92c-4010-9d29-1a973a089690"], +Cell[236026, 6518, 744, 16, 55, "Message",ExpressionUUID->"a27faa5c-f3f5-45dc-adf3-5626211a72e7"], +Cell[236773, 6536, 592, 13, 36, "Message",ExpressionUUID->"d2844ebc-25d8-4ee4-81ee-d6a27dd8ebab"], +Cell[237368, 6551, 290, 5, 46, "Output",ExpressionUUID->"fb03bf0e-33a8-4c59-934e-e003d7f46c8a"] }, Open ]], -Cell[226802, 6355, 164, 4, 122, "Input",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], Cell[CellGroupData[{ -Cell[226991, 6363, 2075, 59, 127, "Input",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], -Cell[229069, 6424, 645, 15, 82, "Message",ExpressionUUID->"6fbb5d5f-aa3a-4822-8cfc-f3d964b91563"], -Cell[229717, 6441, 649, 15, 82, "Message",ExpressionUUID->"eeda622b-c450-46c4-903a-1b93dbfae1fb"], -Cell[230369, 6458, 651, 15, 82, "Message",ExpressionUUID->"2822e9b0-7dbf-49b3-bc34-db5cce3629b1"], -Cell[231023, 6475, 546, 13, 36, "Message",ExpressionUUID->"6903e8aa-cbec-4bb4-a213-4b1e2a288ccd"], -Cell[231572, 6490, 247, 5, 46, "Output",ExpressionUUID->"ded99610-e47f-4255-98fe-0b28255c830c"] +Cell[237695, 6561, 2103, 60, 88, "Input",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], +Cell[239801, 6623, 749, 16, 55, "Message",ExpressionUUID->"75e712f1-aa43-47e6-9fb0-3a0ef7cfa3ce"], +Cell[240553, 6641, 746, 16, 55, "Message",ExpressionUUID->"b1105def-90b9-4cc7-9ce9-d6aa64d58c69"], +Cell[241302, 6659, 745, 16, 55, "Message",ExpressionUUID->"53797d7a-cfbe-4f04-8468-c1ed440d2576"], +Cell[242050, 6677, 592, 13, 36, "Message",ExpressionUUID->"e8a339af-8ba6-4c91-9a83-4422e1dbe572"], +Cell[242645, 6692, 268, 5, 46, "Output",ExpressionUUID->"20407880-a3e3-41ad-b179-71bee9ceebe9"] }, Open ]], Cell[CellGroupData[{ -Cell[231856, 6500, 2077, 59, 127, "Input",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], -Cell[233936, 6561, 645, 15, 82, "Message",ExpressionUUID->"1f80609a-9149-4eea-a5d9-517f7f3c1879"], -Cell[234584, 6578, 649, 15, 82, "Message",ExpressionUUID->"dc3896cd-2d1f-43f5-95c5-5719c7e87c5f"], -Cell[235236, 6595, 651, 15, 82, "Message",ExpressionUUID->"0ffc4ed5-64bb-42ba-87e0-a5f1b6f30f78"], -Cell[235890, 6612, 545, 13, 36, "Message",ExpressionUUID->"f8311fb4-a816-4253-a940-36e0005f98ef"], -Cell[236438, 6627, 218, 4, 46, "Output",ExpressionUUID->"31d13ee2-9b6f-4aaf-a180-6cded0a97b4d"] +Cell[242950, 6702, 2053, 55, 69, "Input",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], +Cell[245006, 6759, 20424, 385, 331, "Output",ExpressionUUID->"c1d87555-db09-4800-a0c6-0cf912270367"] }, Open ]], Cell[CellGroupData[{ -Cell[236693, 6636, 1961, 53, 94, "Input",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], -Cell[238657, 6691, 211, 4, 46, "Output",ExpressionUUID->"31886f68-5c89-41f2-82ac-c76fe7aa50c7"] +Cell[265467, 7149, 2117, 60, 127, "Input",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], +Cell[267587, 7211, 536, 12, 55, "Message",ExpressionUUID->"3a6f78dd-bfbf-4016-9044-eeaf19ac4377"], +Cell[268126, 7225, 536, 12, 55, "Message",ExpressionUUID->"39976ec9-3806-4ffb-894e-0742ba39af42"], +Cell[268665, 7239, 542, 12, 55, "Message",ExpressionUUID->"79ffcff3-7355-4532-a373-cbf1e999371b"], +Cell[269210, 7253, 493, 11, 36, "Message",ExpressionUUID->"c1313220-66a9-4621-9267-3e1c6cdbca79"], +Cell[269706, 7266, 22225, 411, 325, "Output",ExpressionUUID->"a4ccab54-93ef-4c67-b750-900f54bdd630"] }, Open ]], Cell[CellGroupData[{ -Cell[238905, 6700, 2094, 60, 122, "Input",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], -Cell[241002, 6762, 497, 11, 122, "Message",ExpressionUUID->"cb33453f-b5ca-e14d-a319-662822d35ed2"], -Cell[241502, 6775, 501, 11, 122, "Message",ExpressionUUID->"aa5fb574-aeea-7141-9d86-babfa2192485"], -Cell[242006, 6788, 503, 11, 122, "Message",ExpressionUUID->"dec65c86-5426-6949-9e38-c5bc3eb7722e"], -Cell[242512, 6801, 455, 10, 122, "Message",ExpressionUUID->"32a908f1-0097-2943-9511-bd82e083c1e0"], -Cell[242970, 6813, 43631, 762, 122, "Output",ExpressionUUID->"704b46fd-7ca5-4147-bbb4-19991a3778e5"] +Cell[291968, 7682, 2475, 70, 153, "Input",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], +Cell[294446, 7754, 9520, 223, 334, "Output",ExpressionUUID->"d65079b0-ce7e-4bef-8308-10d48c230075"] }, Open ]], -Cell[286616, 7578, 232, 6, 122, "Input",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], -Cell[286851, 7586, 209, 5, 122, "Input",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], Cell[CellGroupData[{ -Cell[287085, 7595, 212, 6, 122, "Input",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], -Cell[287300, 7603, 168, 2, 122, "Output",ExpressionUUID->"1f95faab-1b52-5440-9bc8-bbd29c090294"] +Cell[304003, 7982, 232, 5, 40, "Input",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], +Cell[304238, 7989, 28586, 543, 325, "Output",ExpressionUUID->"7af24e38-b66f-485b-ab04-38435ed782cf"] }, Open ]], Cell[CellGroupData[{ -Cell[287505, 7610, 1814, 53, 122, "Input",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], -Cell[289322, 7665, 505, 11, 122, "Message",ExpressionUUID->"34609962-a5ff-c943-bd24-1be35ec9ac87"], -Cell[289830, 7678, 509, 11, 122, "Message",ExpressionUUID->"1fdfd709-87fa-2d47-912a-2bb16540a45a"], -Cell[290342, 7691, 508, 11, 122, "Message",ExpressionUUID->"02f7e2ed-ac22-9d4d-8071-ab116260ee28"], -Cell[290853, 7704, 455, 10, 122, "Message",ExpressionUUID->"7db76209-a5a6-1947-80c1-912d214b981c"], -Cell[291311, 7716, 22399, 414, 122, "Output",ExpressionUUID->"b5f713da-fcb5-f640-b2b9-a3f5b5d5c325"] +Cell[332861, 8537, 237, 7, 67, "Input",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], +Cell[333101, 8546, 194, 3, 46, "Output",ExpressionUUID->"4f0e5a43-ce76-4365-908a-ba43eedcc6c6"] }, Open ]], Cell[CellGroupData[{ -Cell[313747, 8135, 1612, 47, 122, "Input",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], -Cell[315362, 8184, 581, 12, 122, "Message",ExpressionUUID->"e283daf4-b253-944e-a35b-b9d739b4810d"], -Cell[315946, 8198, 584, 12, 122, "Message",ExpressionUUID->"45f4fe27-f32a-9441-bd55-e0801ff04328"], -Cell[316533, 8212, 590, 12, 122, "Message",ExpressionUUID->"8fffabed-e171-5e42-9ba8-fd51ae8f5dd5"], -Cell[317126, 8226, 455, 10, 122, "Message",ExpressionUUID->"8b648472-e40f-a549-a057-c6eeb9f14028"], -Cell[317584, 8238, 169, 2, 122, "Output",ExpressionUUID->"c7b55151-fc31-d94c-8a4e-01b34fb0adaf"] +Cell[333332, 8554, 1837, 53, 127, "Input",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], +Cell[335172, 8609, 549, 12, 55, "Message",ExpressionUUID->"eaaf9138-29c3-415b-b21b-b464e12e4477"], +Cell[335724, 8623, 548, 12, 55, "Message",ExpressionUUID->"20fc79c8-701d-4394-ae5a-e77891c1e8ce"], +Cell[336275, 8637, 554, 12, 55, "Message",ExpressionUUID->"89dbbed4-2051-4545-a235-eda37f3e2902"], +Cell[336832, 8651, 495, 11, 36, "Message",ExpressionUUID->"d29ff539-1678-4c58-89e1-388053aa22d4"], +Cell[337330, 8664, 22082, 411, 325, "Output",ExpressionUUID->"bbfc4dcd-faaa-4754-815d-cbd0f96b6bf0"] }, Open ]], Cell[CellGroupData[{ -Cell[317790, 8245, 2249, 64, 122, "Input",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], -Cell[320042, 8311, 557, 12, 122, "Message",ExpressionUUID->"3632efc4-f65f-2f41-a6ff-4f71c0ebce84"], -Cell[320602, 8325, 560, 12, 122, "Message",ExpressionUUID->"779c5516-83d5-5d41-8a7a-6b58e876b564"], -Cell[321165, 8339, 560, 12, 122, "Message",ExpressionUUID->"8e3711bd-8e48-2e4f-9802-ad11f73b56ef"], -Cell[321728, 8353, 455, 10, 122, "Message",ExpressionUUID->"f612a69b-4740-9240-9908-d284159fa285"], -Cell[322186, 8365, 169, 2, 122, "Output",ExpressionUUID->"bfa217e6-2060-bc4b-b710-35d6c4ca9627"] +Cell[359449, 9080, 1616, 48, 94, "Input",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], +Cell[361068, 9130, 648, 14, 55, "Message",ExpressionUUID->"94ae9d3f-e53f-4ea2-8ab6-2ebb87f38cac"], +Cell[361719, 9146, 645, 14, 55, "Message",ExpressionUUID->"37055412-cba5-434a-a824-04a59ab9af63"], +Cell[362367, 9162, 646, 14, 55, "Message",ExpressionUUID->"656c930e-10ef-4e62-bc3a-d47b7556a6f4"], +Cell[363016, 9178, 493, 11, 36, "Message",ExpressionUUID->"a8e4a7c0-977f-4232-bbb6-d7084fdb9d41"], +Cell[363512, 9191, 195, 3, 46, "Output",ExpressionUUID->"2573f994-7443-4094-b1b5-690d43729b0b"] }, Open ]], Cell[CellGroupData[{ -Cell[322392, 8372, 2221, 64, 122, "Input",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], -Cell[324616, 8438, 554, 12, 122, "Message",ExpressionUUID->"3ebcf84a-7882-bd47-b9c8-0657501c09d4"], -Cell[325173, 8452, 560, 12, 122, "Message",ExpressionUUID->"5ba908af-818e-5d45-9b4d-c738ed936632"], -Cell[325736, 8466, 560, 12, 122, "Message",ExpressionUUID->"b25ed3b8-96c0-f246-8b73-bf5dca1bf3be"], -Cell[326299, 8480, 455, 10, 122, "Message",ExpressionUUID->"4d7ee3e1-e220-9e46-b1cc-01012021a276"], -Cell[326757, 8492, 169, 2, 122, "Output",ExpressionUUID->"f21819b7-4040-3a47-b212-dc05454fc812"] +Cell[363744, 9199, 2272, 64, 156, "Input",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], +Cell[366019, 9265, 650, 14, 55, "Message",ExpressionUUID->"603ab8ad-975f-41fe-b0e8-f37a58c99766"], +Cell[366672, 9281, 649, 14, 55, "Message",ExpressionUUID->"8a532210-0ac4-4ddb-ade8-ca6b71b99c32"], +Cell[367324, 9297, 648, 14, 55, "Message",ExpressionUUID->"97593a40-302d-412c-bbc0-f4ea801b7b7a"], +Cell[367975, 9313, 495, 11, 36, "Message",ExpressionUUID->"1c6b0772-a7a7-4b4d-94b4-3685b23eba4d"], +Cell[368473, 9326, 195, 3, 46, "Output",ExpressionUUID->"151975e4-5d70-47fe-b94d-ef9ea79c52f1"] }, Open ]], Cell[CellGroupData[{ -Cell[326963, 8499, 2223, 64, 122, "Input",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], -Cell[329189, 8565, 555, 12, 122, "Message",ExpressionUUID->"abd6af2a-56b2-2644-a5c5-5aa91718971c"], -Cell[329747, 8579, 558, 12, 122, "Message",ExpressionUUID->"31d8f902-5be7-c54f-8e99-429decd85903"], -Cell[330308, 8593, 560, 12, 122, "Message",ExpressionUUID->"666728b2-41bd-114c-ad81-a56ae7cb85e9"], -Cell[330871, 8607, 453, 10, 122, "Message",ExpressionUUID->"7a1ee219-911f-6846-82f7-c389bec607c2"], -Cell[331327, 8619, 167, 2, 122, "Output",ExpressionUUID->"f40d5525-ccff-eb4c-a859-e6917373a7f1"] +Cell[368705, 9334, 2233, 63, 122, "Input",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], +Cell[370941, 9399, 647, 14, 55, "Message",ExpressionUUID->"908289d7-8015-4437-900a-4e52c11cf0ce"], +Cell[371591, 9415, 646, 14, 55, "Message",ExpressionUUID->"2b22c3b1-a039-444d-b2bf-b0f6c95b75f9"], +Cell[372240, 9431, 645, 14, 55, "Message",ExpressionUUID->"d1d3adad-6b41-4659-9910-c115c7819e55"], +Cell[372888, 9447, 492, 11, 36, "Message",ExpressionUUID->"3a72924a-4db7-4339-a4fc-598dce5f63a0"], +Cell[373383, 9460, 195, 3, 46, "Output",ExpressionUUID->"60a9c4d3-52fe-49fd-8963-37d121939b7d"] }, Open ]], Cell[CellGroupData[{ -Cell[331531, 8626, 213, 6, 122, "Input",ExpressionUUID->"fcd1131c-ba92-0b46-817b-e5f89f4ec38f"], -Cell[331747, 8634, 169, 2, 122, "Output",ExpressionUUID->"3749f94f-79b1-2342-af7e-bc4d815737fe"] +Cell[373615, 9468, 2235, 63, 122, "Input",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], +Cell[375853, 9533, 648, 14, 55, "Message",ExpressionUUID->"0575ec17-ccdc-4a53-b4f7-6941fd2e2d7a"], +Cell[376504, 9549, 647, 14, 55, "Message",ExpressionUUID->"9ce0c746-01f0-4a07-af40-d6fc9cb7d3f8"], +Cell[377154, 9565, 646, 14, 55, "Message",ExpressionUUID->"a8e63a08-9519-4a6c-bb22-036249d4eb2e"], +Cell[377803, 9581, 495, 11, 36, "Message",ExpressionUUID->"0a324fb8-99e9-4fe9-9a34-53ba2a5b9e8b"], +Cell[378301, 9594, 192, 3, 46, "Output",ExpressionUUID->"9cddeb34-0014-405a-bcbc-e52bc06e1dc2"] }, Open ]], -Cell[331931, 8639, 247, 5, 122, "Input",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"], Cell[CellGroupData[{ -Cell[332203, 8648, 554, 18, 122, "Input",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], -Cell[332760, 8668, 167, 2, 122, "Output",ExpressionUUID->"aad53d59-da78-9348-9ac4-1e0902e814d3"] +Cell[378530, 9602, 236, 6, 66, "Input",ExpressionUUID->"fcd1131c-ba92-0b46-817b-e5f89f4ec38f"], +Cell[378769, 9610, 197, 3, 46, "Output",ExpressionUUID->"d385b9d5-d72d-4141-b8a0-d086341e18e7"] }, Open ]], +Cell[378981, 9616, 273, 6, 40, "Input",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"], Cell[CellGroupData[{ -Cell[332964, 8675, 166, 4, 122, "Input",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], -Cell[333133, 8681, 169, 2, 122, "Output",ExpressionUUID->"4fef6a46-506a-e14c-9df4-f75ab9f6cdb2"] +Cell[379279, 9626, 558, 19, 73, "Input",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], +Cell[379840, 9647, 193, 3, 46, "Output",ExpressionUUID->"733fbca9-2651-4052-95e7-41e70f98109b"] }, Open ]], Cell[CellGroupData[{ -Cell[333339, 8688, 181, 5, 122, "Input",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], -Cell[333523, 8695, 173, 3, 122, "Output",ExpressionUUID->"f46a3dc4-a4b4-034f-91be-6596e81ebf6d"] +Cell[380070, 9655, 170, 5, 77, "Input",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], +Cell[380243, 9662, 195, 3, 46, "Output",ExpressionUUID->"61ccd792-ba29-494e-b151-b631735909e0"] }, Open ]], Cell[CellGroupData[{ -Cell[333733, 8703, 6055, 185, 122, "Input",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], -Cell[339791, 8890, 172, 3, 122, "Output",ExpressionUUID->"ccd4df45-d425-704c-b4a9-648b41b92e77"] +Cell[380475, 9670, 181, 5, 60, "Input",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], +Cell[380659, 9677, 195, 3, 46, "Output",ExpressionUUID->"c6d146fc-d6bb-44c3-9902-9e661957fd91"] }, Open ]], Cell[CellGroupData[{ -Cell[340000, 8898, 368, 9, 122, "Input",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], -Cell[340371, 8909, 170, 3, 122, "Output",ExpressionUUID->"1ebb6633-805d-cf47-abbc-564ac9bf2374"] +Cell[380891, 9685, 6055, 185, 465, "Input",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], +Cell[386949, 9872, 197, 3, 46, "Output",ExpressionUUID->"788ba529-b860-4ccc-b33d-d238ebfa3b75"] }, Open ]], Cell[CellGroupData[{ -Cell[340578, 8917, 6122, 187, 122, "Input",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], -Cell[346703, 9106, 175, 3, 122, "Output",ExpressionUUID->"a3a95ff2-cddf-6a4c-ac06-8cc3fd5707bc"] +Cell[387183, 9880, 368, 9, 58, "Input",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], +Cell[387554, 9891, 193, 3, 46, "Output",ExpressionUUID->"f81a5b7d-fde2-4db6-a751-5931cdd8f114"] }, Open ]], Cell[CellGroupData[{ -Cell[346915, 9114, 368, 9, 122, "Input",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], -Cell[347286, 9125, 169, 3, 122, "Output",ExpressionUUID->"53071608-cf53-7441-9033-6c9cf2e7fa8e"] +Cell[387784, 9899, 6122, 187, 465, "Input",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], +Cell[393909, 10088, 196, 3, 46, "Output",ExpressionUUID->"0f8df549-3604-434f-a99d-3f3ec0f4dcb6"] }, Open ]], Cell[CellGroupData[{ -Cell[347492, 9133, 2663, 88, 122, "Input",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], -Cell[350158, 9223, 173, 3, 122, "Output",ExpressionUUID->"547b87cc-d628-4d49-8e04-72542aa7650e"] +Cell[394142, 10096, 368, 9, 58, "Input",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], +Cell[394513, 10107, 194, 3, 46, "Output",ExpressionUUID->"47b3edbe-11e8-4e18-9f7c-69c5f0a6f707"] }, Open ]], Cell[CellGroupData[{ -Cell[350368, 9231, 2603, 85, 122, "Input",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], -Cell[352974, 9318, 171, 3, 122, "Output",ExpressionUUID->"a8edf49c-9c61-9e4b-9fa8-4de409daba96"] +Cell[394744, 10115, 2663, 88, 232, "Input",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], +Cell[397410, 10205, 196, 3, 46, "Output",ExpressionUUID->"bde2f6dc-92cb-4821-aee6-0a2a578b7543"] }, Open ]], Cell[CellGroupData[{ -Cell[353182, 9326, 3712, 118, 122, "Input",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], -Cell[356897, 9446, 171, 3, 122, "Output",ExpressionUUID->"3584cc50-41a2-ae4b-af54-859d095b0154"] +Cell[397643, 10213, 2603, 85, 232, "Input",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], +Cell[400249, 10300, 195, 3, 46, "Output",ExpressionUUID->"382a751b-43bc-4d30-a90f-4e32d88735a1"] }, Open ]], Cell[CellGroupData[{ -Cell[357105, 9454, 2052, 59, 122, "Input",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], -Cell[359160, 9515, 572, 12, 122, "Message",ExpressionUUID->"d59869d2-8577-0547-8448-230bc5a4ac5e"], -Cell[359735, 9529, 573, 12, 122, "Message",ExpressionUUID->"844f4204-3100-6d45-b5d2-238cc22b8006"], -Cell[360311, 9543, 578, 12, 122, "Message",ExpressionUUID->"f91c55eb-7b3d-3340-b869-4269b99a071c"], -Cell[360892, 9557, 457, 10, 122, "Message",ExpressionUUID->"efd89e15-8a66-4047-aee7-4fb3607a30a7"], -Cell[361352, 9569, 172, 3, 122, "Output",ExpressionUUID->"e68f2098-b3f7-6745-819f-009e252dd442"] +Cell[400481, 10308, 3712, 118, 341, "Input",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], +Cell[404196, 10428, 194, 3, 46, "Output",ExpressionUUID->"f41a3cdf-c662-4cfc-baf7-2df7fa7035f1"] }, Open ]], Cell[CellGroupData[{ -Cell[361561, 9577, 2054, 59, 122, "Input",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], -Cell[363618, 9638, 572, 12, 122, "Message",ExpressionUUID->"feb3ed0a-8d45-dd4c-a945-407106f88295"], -Cell[364193, 9652, 575, 12, 122, "Message",ExpressionUUID->"d5a6c2e7-2143-1843-8d40-686107f6aa27"], -Cell[364771, 9666, 576, 12, 122, "Message",ExpressionUUID->"a15d89dd-0dfc-c845-aec3-fe7d60156e1f"], -Cell[365350, 9680, 457, 10, 122, "Message",ExpressionUUID->"0f9408e4-b654-4a40-9b38-655b18398efc"], -Cell[365810, 9692, 170, 3, 122, "Output",ExpressionUUID->"f72e3d82-4d19-7143-9513-38a15cee4d51"] +Cell[404427, 10436, 2101, 60, 88, "Input",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], +Cell[406531, 10498, 649, 14, 55, "Message",ExpressionUUID->"0ff80053-be79-4ae9-926a-91ac73fdfcb1"], +Cell[407183, 10514, 649, 14, 55, "Message",ExpressionUUID->"3c0e8781-f902-4c31-b9ba-53c863e17092"], +Cell[407835, 10530, 649, 14, 55, "Message",ExpressionUUID->"51f25e0f-0303-47ef-a1ac-9d29013bed1b"], +Cell[408487, 10546, 495, 11, 36, "Message",ExpressionUUID->"a6dacd27-fff5-45b9-ac1b-24117a51a09c"], +Cell[408985, 10559, 194, 3, 46, "Output",ExpressionUUID->"0aa9ab4d-3dda-4514-a2af-df6e7a2dd1e6"] }, Open ]], Cell[CellGroupData[{ -Cell[366017, 9700, 2030, 55, 122, "Input",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], -Cell[368050, 9757, 20377, 384, 122, "Output",ExpressionUUID->"02187549-f2f0-9c4d-81fc-d12919ea7802"] +Cell[409216, 10567, 2103, 60, 88, "Input",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], +Cell[411322, 10629, 649, 14, 55, "Message",ExpressionUUID->"5112e02d-e545-48cf-9a8c-d7207461823f"], +Cell[411974, 10645, 649, 14, 55, "Message",ExpressionUUID->"64b49304-a247-42ef-843b-4f2dea728f3d"], +Cell[412626, 10661, 649, 14, 55, "Message",ExpressionUUID->"0f8b952b-3302-4a0c-8d5f-cc8f793c6e95"], +Cell[413278, 10677, 495, 11, 36, "Message",ExpressionUUID->"ba23b597-0c17-4135-a0ee-8e314fef255a"], +Cell[413776, 10690, 192, 3, 46, "Output",ExpressionUUID->"fa3818e2-c10e-4c9d-adf5-9c5b17c8bc33"] }, Open ]], Cell[CellGroupData[{ -Cell[388464, 10146, 2118, 60, 122, "Input",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], -Cell[390585, 10208, 499, 11, 122, "Message",ExpressionUUID->"75033ea5-32d5-4445-bfb0-a981507a2e9a"], -Cell[391087, 10221, 504, 11, 122, "Message",ExpressionUUID->"bc53c85b-e7c9-be4a-8ed4-30975f08af5c"], -Cell[391594, 10234, 507, 11, 122, "Message",ExpressionUUID->"e09d101b-c5d3-424f-aab9-c5788f3b9ef6"], -Cell[392104, 10247, 455, 10, 122, "Message",ExpressionUUID->"28f777a6-eb27-df49-a698-bd7806baa94c"], -Cell[392562, 10259, 22381, 415, 122, "Output",ExpressionUUID->"cd997d80-b342-8b4c-95c9-b33408882f73"] +Cell[414005, 10698, 2053, 55, 69, "Input",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], +Cell[416061, 10755, 20383, 383, 325, "Output",ExpressionUUID->"cdcadd4d-0324-4ea7-b8eb-a3a53c14400c"] }, Open ]], -Cell[414958, 10677, 174, 3, 122, "Input",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], -Cell[415135, 10682, 209, 5, 122, "Input",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"], Cell[CellGroupData[{ -Cell[415369, 10691, 1616, 48, 122, "Input",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], -Cell[416988, 10741, 594, 12, 122, "Message",ExpressionUUID->"96d01a47-7c9a-1944-8904-f1788b2f0a8a"], -Cell[417585, 10755, 594, 12, 122, "Message",ExpressionUUID->"fee09e7b-7835-394b-93fe-35ddd26f69d1"], -Cell[418182, 10769, 598, 12, 122, "Message",ExpressionUUID->"fc12fc14-afc1-0a48-8829-94d858477ec4"], -Cell[418783, 10783, 457, 10, 122, "Message",ExpressionUUID->"41b1346d-6d7d-5d4d-9b1a-88cde3361cf3"], -Cell[419243, 10795, 171, 3, 122, "Output",ExpressionUUID->"0bbffe2c-809c-1149-a08f-e3342cda31a0"] +Cell[436481, 11143, 2141, 60, 127, "Input",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], +Cell[438625, 11205, 534, 12, 55, "Message",ExpressionUUID->"2540e0a5-4fec-4518-8fd9-9f5321dd3cf9"], +Cell[439162, 11219, 534, 12, 55, "Message",ExpressionUUID->"f1f87d24-0881-4926-9c87-37f3a4e40744"], +Cell[439699, 11233, 539, 12, 55, "Message",ExpressionUUID->"3a8f875c-d1cf-4b28-9aa7-e4320f768391"], +Cell[440241, 11247, 493, 11, 36, "Message",ExpressionUUID->"a8a37f01-1e07-4857-b73e-181202b25075"], +Cell[440737, 11260, 22226, 411, 325, "Output",ExpressionUUID->"a3ee5c8c-e35d-472c-9f34-282d27f563be"] }, Open ]], +Cell[462978, 11674, 200, 4, 40, "Input",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], Cell[CellGroupData[{ -Cell[419451, 10803, 2247, 64, 122, "Input",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], -Cell[421701, 10869, 572, 12, 122, "Message",ExpressionUUID->"922f5f31-888f-7340-96cd-65ecb8ea2e84"], -Cell[422276, 10883, 573, 12, 122, "Message",ExpressionUUID->"287b836d-7493-d44f-85b0-183d2793165c"], -Cell[422852, 10897, 578, 12, 122, "Message",ExpressionUUID->"962d88f7-2937-fe4b-ba97-3fe8099808d5"], -Cell[423433, 10911, 455, 10, 122, "Message",ExpressionUUID->"2ec951f6-2332-9241-84af-c7ac25232c2e"], -Cell[423891, 10923, 172, 3, 122, "Output",ExpressionUUID->"3eb28fb3-5fd6-4240-b231-e1f0fa53f4dc"] +Cell[463203, 11682, 232, 5, 40, "Input",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"], +Cell[463438, 11689, 28586, 543, 325, "Output",ExpressionUUID->"426e45d4-3b67-4356-a20d-590bc061f130"] }, Open ]], Cell[CellGroupData[{ -Cell[424100, 10931, 2221, 64, 122, "Input",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], -Cell[426324, 10997, 570, 12, 122, "Message",ExpressionUUID->"8fc71a81-55ed-5940-a6a0-1fa4e0c6425a"], -Cell[426897, 11011, 573, 12, 122, "Message",ExpressionUUID->"001b2f06-491c-6c4f-881b-1d7c12c1b14f"], -Cell[427473, 11025, 578, 12, 122, "Message",ExpressionUUID->"865c0491-32b6-3549-83ec-bdf42c3a31aa"], -Cell[428054, 11039, 455, 10, 122, "Message",ExpressionUUID->"3566013f-7b44-504c-95a5-32d3ac2ece3d"], -Cell[428512, 11051, 172, 3, 122, "Output",ExpressionUUID->"9cc3c720-52c0-b040-a0b4-75ff2aab4396"] +Cell[492061, 12237, 1616, 48, 94, "Input",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], +Cell[493680, 12287, 649, 14, 55, "Message",ExpressionUUID->"30c88cef-1d51-45d3-b4b8-877ff639bcfe"], +Cell[494332, 12303, 649, 14, 55, "Message",ExpressionUUID->"e391d19e-6fd7-45b3-a470-39b0e793777b"], +Cell[494984, 12319, 648, 14, 55, "Message",ExpressionUUID->"360dfca6-98b4-4aae-b8ed-fd95cd6f5c90"], +Cell[495635, 12335, 495, 11, 36, "Message",ExpressionUUID->"4aa83cf3-2f38-42ba-89df-3f2b793f2e13"], +Cell[496133, 12348, 192, 3, 46, "Output",ExpressionUUID->"63860990-9877-46fd-99fd-287dc41cec6f"] }, Open ]], Cell[CellGroupData[{ -Cell[428721, 11059, 2221, 64, 122, "Input",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], -Cell[430945, 11125, 572, 12, 122, "Message",ExpressionUUID->"bc9996c1-a929-5b41-9541-f607e96932b8"], -Cell[431520, 11139, 575, 12, 122, "Message",ExpressionUUID->"eb28c83b-0aac-8d4e-a729-f978b41e689a"], -Cell[432098, 11153, 578, 12, 122, "Message",ExpressionUUID->"70b030cf-db8c-c440-8526-b10f71bb72b3"], -Cell[432679, 11167, 455, 10, 122, "Message",ExpressionUUID->"4d72b001-01d6-d944-9c97-6d0d7d2eccbb"], -Cell[433137, 11179, 173, 3, 122, "Output",ExpressionUUID->"c15d23fa-1bed-9640-940a-c33e3a830230"] +Cell[496362, 12356, 2270, 64, 156, "Input",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], +Cell[498635, 12422, 649, 14, 55, "Message",ExpressionUUID->"e821dab4-f096-4832-a5d5-43ba30f22e64"], +Cell[499287, 12438, 649, 14, 55, "Message",ExpressionUUID->"ac933b3c-206b-4aad-aafd-bfa6cedae605"], +Cell[499939, 12454, 649, 14, 55, "Message",ExpressionUUID->"ad2a10b1-f81e-4e10-9b6e-775704bf4102"], +Cell[500591, 12470, 495, 11, 36, "Message",ExpressionUUID->"421878f9-c289-4710-b02f-651c11178e7c"], +Cell[501089, 12483, 196, 3, 46, "Output",ExpressionUUID->"02f57a94-2248-4691-b708-06b596567ec1"] }, Open ]], Cell[CellGroupData[{ -Cell[433347, 11187, 213, 6, 122, "Input",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"], -Cell[433563, 11195, 172, 3, 122, "Output",ExpressionUUID->"2d0467ed-c049-384d-ae20-12fc79688cfb"] +Cell[501322, 12491, 2233, 63, 122, "Input",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], +Cell[503558, 12556, 647, 14, 55, "Message",ExpressionUUID->"89106565-ce05-4d79-8235-8a18ffcdc937"], +Cell[504208, 12572, 647, 14, 55, "Message",ExpressionUUID->"7059694b-e74d-4dd5-a4ba-f711a9ac79d4"], +Cell[504858, 12588, 649, 14, 55, "Message",ExpressionUUID->"5a50379e-e762-437c-99d7-b32a3dcc0573"], +Cell[505510, 12604, 493, 11, 36, "Message",ExpressionUUID->"67293483-0e0d-4208-8db1-f41ca1696e0e"], +Cell[506006, 12617, 195, 3, 46, "Output",ExpressionUUID->"b2e048ac-2eda-4d44-b247-a3579a26f25b"] }, Open ]], -Cell[433750, 11201, 245, 5, 122, "Input",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"], Cell[CellGroupData[{ -Cell[434020, 11210, 558, 19, 122, "Input",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], -Cell[434581, 11231, 173, 3, 122, "Output",ExpressionUUID->"26c56722-6e97-cb4f-b35b-a00d42f1d8f6"] +Cell[506238, 12625, 2233, 63, 122, "Input",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], +Cell[508474, 12690, 649, 14, 55, "Message",ExpressionUUID->"7529ee8b-37c9-4087-9380-a3e6549d6478"], +Cell[509126, 12706, 651, 14, 55, "Message",ExpressionUUID->"b77914b3-186b-4e58-b8c7-1c512c4bfea7"], +Cell[509780, 12722, 651, 14, 55, "Message",ExpressionUUID->"28546a42-b45d-420f-b485-349f57829216"], +Cell[510434, 12738, 495, 11, 36, "Message",ExpressionUUID->"a1d1d7c5-8ebe-41a5-a3cf-d3e4445143ea"], +Cell[510932, 12751, 195, 3, 46, "Output",ExpressionUUID->"9e9ab955-e636-4f47-b0c4-ab1e16eb3681"] }, Open ]], Cell[CellGroupData[{ -Cell[434791, 11239, 170, 5, 122, "Input",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], -Cell[434964, 11246, 171, 3, 122, "Output",ExpressionUUID->"7e7edb0d-1306-d742-8b32-e7c6dc694892"] +Cell[511164, 12759, 236, 6, 66, "Input",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"], +Cell[511403, 12767, 196, 3, 46, "Output",ExpressionUUID->"d62e1f87-ded5-420d-a8d2-cf06d1981edb"] }, Open ]], +Cell[511614, 12773, 271, 6, 40, "Input",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"], Cell[CellGroupData[{ -Cell[435172, 11254, 181, 5, 122, "Input",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], -Cell[435356, 11261, 173, 3, 122, "Output",ExpressionUUID->"e5353287-a717-554a-9c6b-1021438b30ff"] +Cell[511910, 12783, 558, 19, 73, "Input",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], +Cell[512471, 12804, 195, 3, 46, "Output",ExpressionUUID->"7ae7a733-236b-44d3-b2ff-49c4a5d2e7f7"] }, Open ]], Cell[CellGroupData[{ -Cell[435566, 11269, 6055, 185, 122, "Input",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], -Cell[441624, 11456, 175, 3, 122, "Output",ExpressionUUID->"ed4bd4f3-e1cc-fa47-b5b5-475b6e581b1f"] +Cell[512703, 12812, 170, 5, 77, "Input",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], +Cell[512876, 12819, 193, 3, 46, "Output",ExpressionUUID->"301ac93d-f024-43aa-9363-a2a7d87bef79"] }, Open ]], Cell[CellGroupData[{ -Cell[441836, 11464, 368, 9, 122, "Input",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], -Cell[442207, 11475, 170, 3, 122, "Output",ExpressionUUID->"0c9f07a0-dfdf-6e41-964a-0bcdc0cbcb45"] +Cell[513106, 12827, 181, 5, 60, "Input",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], +Cell[513290, 12834, 195, 3, 46, "Output",ExpressionUUID->"be4271c5-4dcc-4b69-8481-aaac382ef85c"] }, Open ]], Cell[CellGroupData[{ -Cell[442414, 11483, 6122, 187, 122, "Input",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], -Cell[448539, 11672, 175, 3, 122, "Output",ExpressionUUID->"579eace1-979d-7347-a36f-c1fefbf459f5"] +Cell[513522, 12842, 6055, 185, 465, "Input",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], +Cell[519580, 13029, 197, 3, 46, "Output",ExpressionUUID->"f22f7b30-175d-47b8-bac0-415448a3862b"] }, Open ]], Cell[CellGroupData[{ -Cell[448751, 11680, 368, 9, 122, "Input",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], -Cell[449122, 11691, 172, 3, 122, "Output",ExpressionUUID->"0225baf1-4541-ed4d-8528-13926fef86cd"] +Cell[519814, 13037, 368, 9, 58, "Input",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], +Cell[520185, 13048, 193, 3, 70, "Output",ExpressionUUID->"413feae9-af76-477c-867e-c7bcf12e4023"] }, Open ]], Cell[CellGroupData[{ -Cell[449331, 11699, 2663, 88, 122, "Input",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], -Cell[451997, 11789, 173, 3, 122, "Output",ExpressionUUID->"f7c789e7-838d-b443-a597-00e69e7c3611"] +Cell[520415, 13056, 6122, 187, 70, "Input",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], +Cell[526540, 13245, 199, 3, 70, "Output",ExpressionUUID->"918d67fa-219c-49ae-8205-97425ea65a4d"] }, Open ]], Cell[CellGroupData[{ -Cell[452207, 11797, 2603, 85, 122, "Input",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], -Cell[454813, 11884, 171, 3, 122, "Output",ExpressionUUID->"fc2bf760-d110-cb46-bd02-e934de9fd4f9"] +Cell[526776, 13253, 368, 9, 70, "Input",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], +Cell[527147, 13264, 196, 3, 70, "Output",ExpressionUUID->"ec2f78d5-1cc4-4bdc-8a82-cc2cd6b4ccb2"] }, Open ]], Cell[CellGroupData[{ -Cell[455021, 11892, 3712, 118, 122, "Input",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], -Cell[458736, 12012, 171, 3, 122, "Output",ExpressionUUID->"4304216c-b250-ab48-915e-b844e71a70f1"] +Cell[527380, 13272, 2663, 88, 70, "Input",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], +Cell[530046, 13362, 196, 3, 70, "Output",ExpressionUUID->"35fded70-0449-4d46-a55f-90a3a8c97e60"] }, Open ]], Cell[CellGroupData[{ -Cell[458944, 12020, 2052, 59, 122, "Input",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], -Cell[460999, 12081, 568, 12, 122, "Message",ExpressionUUID->"ef0dcda5-4eb3-fb4f-a7ba-cf9592c754fd"], -Cell[461570, 12095, 572, 12, 122, "Message",ExpressionUUID->"516128bc-41b4-3d49-8276-2fe73d5d437e"], -Cell[462145, 12109, 574, 12, 122, "Message",ExpressionUUID->"83555127-edb0-f34d-bade-abdcd60ad387"], -Cell[462722, 12123, 457, 10, 122, "Message",ExpressionUUID->"f8efe38f-0b83-4645-b574-b25c08902457"], -Cell[463182, 12135, 172, 3, 122, "Output",ExpressionUUID->"de5933f0-d736-3443-950a-4744d8abefe5"] +Cell[530279, 13370, 2603, 85, 70, "Input",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], +Cell[532885, 13457, 193, 3, 70, "Output",ExpressionUUID->"47485af2-85e9-47a9-970f-66e4202d2301"] }, Open ]], Cell[CellGroupData[{ -Cell[463391, 12143, 2054, 59, 122, "Input",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], -Cell[465448, 12204, 568, 12, 122, "Message",ExpressionUUID->"d0c389d2-1c6b-3a44-bd00-6e54df438015"], -Cell[466019, 12218, 572, 12, 122, "Message",ExpressionUUID->"3f819d0b-3458-d54e-bb8e-ed758b92949a"], -Cell[466594, 12232, 574, 12, 122, "Message",ExpressionUUID->"7403c575-bafd-2049-8d02-89293c73f7f1"], -Cell[467171, 12246, 457, 10, 122, "Message",ExpressionUUID->"29512b1b-8a2c-1740-986b-fb78e7d2ec89"], -Cell[467631, 12258, 171, 3, 122, "Output",ExpressionUUID->"686785b6-8c83-3e43-88fb-689383b13a2d"] +Cell[533115, 13465, 3712, 118, 70, "Input",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], +Cell[536830, 13585, 194, 3, 70, "Output",ExpressionUUID->"e3217522-f91a-4340-a987-95c038ff0385"] }, Open ]], Cell[CellGroupData[{ -Cell[467839, 12266, 2030, 55, 122, "Input",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], -Cell[469872, 12323, 19960, 375, 122, "Output",ExpressionUUID->"9eb47740-dc4f-3248-80e4-ef19d916a0ad"] +Cell[537061, 13593, 2101, 60, 70, "Input",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], +Cell[539165, 13655, 651, 14, 70, "Message",ExpressionUUID->"d76e9eff-1ab7-4b79-ab2e-f565fb835827"], +Cell[539819, 13671, 651, 14, 70, "Message",ExpressionUUID->"db0739ae-5fd7-4bed-a876-78834f233cd9"], +Cell[540473, 13687, 647, 14, 70, "Message",ExpressionUUID->"d9a22c2d-2f4a-4bda-bca4-3fd3150fda12"], +Cell[541123, 13703, 494, 11, 70, "Message",ExpressionUUID->"5d39ee8a-3ca1-4d68-87fb-8978378e8711"], +Cell[541620, 13716, 195, 3, 70, "Output",ExpressionUUID->"b1f9d784-d5c5-4f41-b7be-b233a0392a43"] }, Open ]], Cell[CellGroupData[{ -Cell[489869, 12703, 2118, 60, 122, "Input",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], -Cell[491990, 12765, 496, 11, 122, "Message",ExpressionUUID->"6bc1b8c6-3100-6640-9985-3abfd43de799"], -Cell[492489, 12778, 501, 11, 122, "Message",ExpressionUUID->"82e13dda-210b-a94d-9e1d-a821db42ab6b"], -Cell[492993, 12791, 505, 11, 122, "Message",ExpressionUUID->"9d37688a-c69d-ed49-bce7-cf0090e0ecb8"], -Cell[493501, 12804, 455, 10, 122, "Message",ExpressionUUID->"4e87d0d8-b47a-ef47-85af-16467b219f50"], -Cell[493959, 12816, 21721, 403, 122, "Output",ExpressionUUID->"6974e3c4-9b35-2f4b-97bf-745f60f533f8"] +Cell[541852, 13724, 2103, 60, 70, "Input",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], +Cell[543958, 13786, 648, 14, 70, "Message",ExpressionUUID->"dfd9516a-f899-4844-b16d-809a6a2b6307"], +Cell[544609, 13802, 647, 14, 70, "Message",ExpressionUUID->"12df5e30-1006-494e-a5ca-62641f4f91a3"], +Cell[545259, 13818, 648, 14, 70, "Message",ExpressionUUID->"9e707046-d9fe-4b5b-adf0-012eb39ef696"], +Cell[545910, 13834, 495, 11, 70, "Message",ExpressionUUID->"1964187f-89af-4e43-8f09-fc8cc6f2ed28"], +Cell[546408, 13847, 197, 3, 70, "Output",ExpressionUUID->"5481bc53-e119-40ae-ba74-6e92813de6a0"] }, Open ]], -Cell[515695, 13222, 181, 3, 122, "Input",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], -Cell[515879, 13227, 207, 5, 122, "Input",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"], Cell[CellGroupData[{ -Cell[516111, 13236, 1616, 48, 122, "Input",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], -Cell[517730, 13286, 589, 12, 122, "Message",ExpressionUUID->"8906bbab-e37b-4b4c-898f-52bfc96dde7b"], -Cell[518322, 13300, 588, 12, 122, "Message",ExpressionUUID->"6ae14bce-ec42-7f4d-9914-0630eea4cdf9"], -Cell[518913, 13314, 594, 12, 122, "Message",ExpressionUUID->"7e98a506-896d-0d47-8502-b83685d9a60c"], -Cell[519510, 13328, 455, 10, 122, "Message",ExpressionUUID->"400e66c2-06b5-814e-a2be-19c4c75ccbf0"], -Cell[519968, 13340, 173, 3, 122, "Output",ExpressionUUID->"f202ab02-e319-144b-97e8-ae603395b346"] +Cell[546642, 13855, 2053, 55, 70, "Input",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], +Cell[548698, 13912, 20554, 386, 70, "Output",ExpressionUUID->"5bb9d157-8ab0-443f-bd1d-9987cadddb61"] }, Open ]], Cell[CellGroupData[{ -Cell[520178, 13348, 2246, 64, 122, "Input",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], -Cell[522427, 13414, 566, 12, 122, "Message",ExpressionUUID->"2d7e67d1-8691-e348-9ca8-caa63b533102"], -Cell[522996, 13428, 570, 12, 122, "Message",ExpressionUUID->"f0eb6f1d-f621-8647-b6a6-8bf673e41ebb"], -Cell[523569, 13442, 574, 12, 122, "Message",ExpressionUUID->"64fda82a-0f74-2743-89a8-afd600de203a"], -Cell[524146, 13456, 456, 10, 122, "Message",ExpressionUUID->"971a319d-8ab4-464d-a08e-f97fe8d4c0e1"], -Cell[524605, 13468, 171, 3, 122, "Output",ExpressionUUID->"b3c37f48-9827-884f-94d9-1f76aed7bfaa"] +Cell[569289, 14303, 2141, 60, 70, "Input",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], +Cell[571433, 14365, 535, 12, 70, "Message",ExpressionUUID->"fd50da40-92cc-4ad6-941f-d0ee971ac4ce"], +Cell[571971, 14379, 537, 12, 70, "Message",ExpressionUUID->"0bc5fa83-00f3-4535-8847-1a7dd96db495"], +Cell[572511, 14393, 540, 12, 70, "Message",ExpressionUUID->"53b89f26-a86b-4431-919b-87cf4d4793ef"], +Cell[573054, 14407, 495, 11, 70, "Message",ExpressionUUID->"80047130-70f7-45a8-952e-80935b702ead"], +Cell[573552, 14420, 21965, 408, 70, "Output",ExpressionUUID->"8ea655c6-75fb-4c51-93f6-3206c9e65e8c"] }, Open ]], +Cell[595532, 14831, 207, 4, 70, "Input",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], Cell[CellGroupData[{ -Cell[524813, 13476, 2221, 64, 122, "Input",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], -Cell[527037, 13542, 569, 12, 122, "Message",ExpressionUUID->"1040ba10-c733-df44-b556-0998dc0163c9"], -Cell[527609, 13556, 571, 12, 122, "Message",ExpressionUUID->"e451b852-84c2-a941-b1d7-812ecad4750e"], -Cell[528183, 13570, 575, 12, 122, "Message",ExpressionUUID->"a15e0c9d-d634-6e47-94c5-2ce40fcb4d52"], -Cell[528761, 13584, 458, 10, 122, "Message",ExpressionUUID->"a3ddc92b-b5c9-5e46-be44-6165430ec35f"], -Cell[529222, 13596, 171, 3, 122, "Output",ExpressionUUID->"978bf39b-9d1f-a54f-a6de-a2e3d269e126"] +Cell[595764, 14839, 230, 5, 70, "Input",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"], +Cell[595997, 14846, 28327, 540, 70, "Output",ExpressionUUID->"9d1ff533-cf83-431b-ba7b-bfc305a42714"] }, Open ]], Cell[CellGroupData[{ -Cell[529430, 13604, 2223, 64, 122, "Input",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], -Cell[531656, 13670, 567, 12, 122, "Message",ExpressionUUID->"57c74c2a-63a6-9846-b3f7-1a08cebb8172"], -Cell[532226, 13684, 571, 12, 122, "Message",ExpressionUUID->"2e606101-b73e-f443-8324-5b1c64dcaa7f"], -Cell[532800, 13698, 573, 12, 122, "Message",ExpressionUUID->"4da9173d-4ced-1e49-83f6-426d72ec8cf3"], -Cell[533376, 13712, 456, 10, 122, "Message",ExpressionUUID->"a2dba8d9-69c9-cb46-bbb4-f7192fe3e138"], -Cell[533835, 13724, 173, 3, 122, "Output",ExpressionUUID->"12fa1803-dc21-9349-8d62-d5d5f0fa85c6"] +Cell[624361, 15391, 1616, 48, 70, "Input",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], +Cell[625980, 15441, 651, 14, 70, "Message",ExpressionUUID->"666fb1cf-0dfb-4074-a65b-80df7e7b89b3"], +Cell[626634, 15457, 649, 14, 70, "Message",ExpressionUUID->"fa5eb4c8-2c7d-415d-919d-a9da79735dab"], +Cell[627286, 15473, 648, 14, 70, "Message",ExpressionUUID->"969b635f-9f9c-4e61-a3a1-f15ea88da7b1"], +Cell[627937, 15489, 495, 11, 70, "Message",ExpressionUUID->"d4deb18d-5d8b-46fe-ab13-4f72e93f412c"], +Cell[628435, 15502, 197, 3, 70, "Output",ExpressionUUID->"f32daa50-8d08-4014-8bad-96653b713d3b"] }, Open ]], Cell[CellGroupData[{ -Cell[534045, 13732, 211, 6, 122, "Input",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], -Cell[534259, 13740, 174, 3, 122, "Output",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"] -}, Open ]] +Cell[628669, 15510, 2269, 64, 70, "Input",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], +Cell[630941, 15576, 649, 14, 70, "Message",ExpressionUUID->"5de0fa25-e140-46cc-a3f8-3aba86fb2c0e"], +Cell[631593, 15592, 647, 14, 70, "Message",ExpressionUUID->"5fa2ec55-35fd-4ab3-a975-0c57f822f78d"], +Cell[632243, 15608, 646, 14, 70, "Message",ExpressionUUID->"da636060-9f86-48ba-82d0-db3aec03a54d"], +Cell[632892, 15624, 495, 11, 70, "Message",ExpressionUUID->"10219f95-3fcc-4f03-9aa9-82141c7d82ef"], +Cell[633390, 15637, 196, 3, 70, "Output",ExpressionUUID->"97ad71f4-add2-475a-afed-6f9981fc2350"] +}, Open ]], +Cell[CellGroupData[{ +Cell[633623, 15645, 2233, 63, 70, "Input",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], +Cell[635859, 15710, 649, 14, 70, "Message",ExpressionUUID->"f8dc0120-9ee9-4cd7-9a75-4220a93c2ad5"], +Cell[636511, 15726, 649, 14, 70, "Message",ExpressionUUID->"23719507-0560-4759-8652-d6f8559a93bc"], +Cell[637163, 15742, 646, 14, 70, "Message",ExpressionUUID->"f06d80c5-2b2d-4599-a266-b12135f00231"], +Cell[637812, 15758, 495, 11, 70, "Message",ExpressionUUID->"00a6587c-848e-49c3-9855-e81095002018"], +Cell[638310, 15771, 196, 3, 70, "Output",ExpressionUUID->"6953079e-8ee6-4f83-b21e-25483dd8585b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[638543, 15779, 2235, 63, 70, "Input",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], +Cell[640781, 15844, 646, 14, 70, "Message",ExpressionUUID->"cc5bfed3-ab1e-4eb5-9959-d3d8c3d96ca0"], +Cell[641430, 15860, 647, 14, 70, "Message",ExpressionUUID->"746a24a7-4fd5-4af0-962a-32df7162c298"], +Cell[642080, 15876, 646, 14, 70, "Message",ExpressionUUID->"6f0b219c-718c-4252-aa68-5d85da767b44"], +Cell[642729, 15892, 493, 11, 70, "Message",ExpressionUUID->"1e81d2c7-0c80-47b0-8fef-75045bcc6920"], +Cell[643225, 15905, 196, 3, 70, "Output",ExpressionUUID->"0a05abac-a814-4558-bce8-70bed6bff89f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[643458, 15913, 234, 6, 70, "Input",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], +Cell[643695, 15921, 197, 3, 70, "Output",ExpressionUUID->"c57492f7-619a-4b1e-ace3-684d3b556383"] +}, Open ]], +Cell[643907, 15927, 210, 4, 70, "Input",ExpressionUUID->"513f446a-7f4e-4e3e-a8ae-ef97951f73d4"] } ] *) +(* End of internal cache information *) + diff --git a/Pu240_798-811_TitovAA/162-78_h_Pu240_16-17/h_162-78_Pu240_16-17_osc_Qw2.nb b/Pu240_798-811_TitovAA/162-78_h_Pu240_16-17/h_162-78_Pu240_16-17_osc_Qw2.nb index a320d64..660d586 100644 --- a/Pu240_798-811_TitovAA/162-78_h_Pu240_16-17/h_162-78_Pu240_16-17_osc_Qw2.nb +++ b/Pu240_798-811_TitovAA/162-78_h_Pu240_16-17/h_162-78_Pu240_16-17_osc_Qw2.nb @@ -3,42 +3,4836 @@ (*** 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[ 667641, 15963] +NotebookOptionsPosition[ 626970, 15314] +NotebookOutlinePosition[ 627413, 15332] +CellTagsIndexPosition[ 627370, 15329] 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", "=", "1.9"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.993815944576231*^9, 3.9938159912638187`*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"97fc619a-5617-4e24-bdf2-8876dca85277"], + +Cell[BoxData["1.9`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, 3.993815823692334*^9, 3.993815892498139*^9, { + 3.993815951583488*^9, 3.993815995572467*^9}, {3.994012734609342*^9, + 3.994012752893778*^9}, 3.9940132864652357`*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"12637053-c03b-463a-89c2-23b7dcf376cc"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.9940127288140783`*^9, 3.994012729590282*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"fde2f609-cc08-46e4-a424-b23139717b26"], + +Cell[BoxData["240"], "Output", CellChangeTimes->{ - 3.991849690724144*^9},ExpressionUUID->"328429c4-9130-334e-ba7f-\ -7dc8ec78e5b4"], + 3.9913196497381973`*^9, 3.993815823952688*^9, 3.993815892560748*^9, { + 3.993815951668881*^9, 3.993815995613329*^9}, {3.9940127346784067`*^9, + 3.9940127529711943`*^9}, 3.994013286531781*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"ebd9d2d4-59ef-40db-acb7-b062e6dfc8a0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "162"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.9938155158752823`*^9, 3.9938155169971247`*^9}}, + CellLabel->"In[3]:=",ExpressionUUID->"f72cb02a-0871-4573-9f9b-c2179ff40c8a"], + +Cell[BoxData["162"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.993815823968458*^9, 3.9938158925714483`*^9, { + 3.9938159516818027`*^9, 3.9938159956283493`*^9}, {3.9940127346926413`*^9, + 3.994012752988037*^9}, 3.994013286547023*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"5a8a507f-84ef-420c-8d79-dcbced00424b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"790c902a-404b-4e43-b607-dd94e5a561c3"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.9938158239856167`*^9, 3.99381589258189*^9, { + 3.99381595169417*^9, 3.993815995642021*^9}, {3.994012734706458*^9, + 3.994012753004796*^9}, 3.994013286557448*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"1dff5e7f-9890-43f2-ae2d-87418cf83018"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"0a28663c-3c54-422b-830b-f27a12a9aa65"], + +Cell[BoxData["0.5447500000000001`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.993815824003376*^9, 3.993815892586231*^9, { + 3.99381595170667*^9, 3.993815995646203*^9}, {3.9940127347201777`*^9, + 3.994012753022193*^9}, 3.994013286568166*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"a658bb88-4c83-4331-99cf-bdc8e27d5030"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"d8954feb-4a43-4afd-9561-44d05c07f6a7"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.993815824023213*^9, 3.993815892602899*^9, { + 3.9938159517115383`*^9, 3.9938159956645737`*^9}, {3.994012734734274*^9, + 3.994012753038806*^9}, 3.994013286578389*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"6cac9c6e-0da1-446d-8078-6a8cdb5e8523"] +}, 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->"df1deb31-3579-4743-874a-faabe6625176"], + +Cell[BoxData["6.323579663055845`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.993815824039893*^9, 3.993815892613652*^9, { + 3.993815951728698*^9, 3.993815995677742*^9}, {3.994012734748405*^9, + 3.994012753044726*^9}, 3.9940132865890102`*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"2315b738-ae29-41be-9f76-e963ff1514fa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"634ded1f-4da2-4a03-912e-2e82244d1133"], + +Cell[BoxData["4.956284070769583`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.9938158240572863`*^9, 3.993815892624365*^9, { + 3.9938159517417*^9, 3.993815995691177*^9}, {3.994012734763052*^9, + 3.994012753070916*^9}, 3.994013286605137*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"9ac949f0-dafe-40d6-87f6-f9001dd405c4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.95921"}]], "Input", + CellChangeTimes->{ + 3.991799283179735*^9, {3.993815616610156*^9, 3.993815618917514*^9}, { + 3.9938156766732063`*^9, 3.993815681630651*^9}}, + CellLabel->"In[9]:=",ExpressionUUID->"868f29c5-7f59-4f50-b8e7-874cc5683d91"], + +Cell[BoxData["0.95921`"], "Output", + CellChangeTimes->{ + 3.9938158240746737`*^9, 3.9938158926348877`*^9, {3.993815951754884*^9, + 3.993815995704525*^9}, {3.994012734778141*^9, 3.994012753087864*^9}, + 3.9940132866206284`*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"f9e5fdf9-8d47-4b9d-b361-610e0b5e8a46"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.40907"}]], "Input", + CellChangeTimes->{ + 3.991799280663351*^9, {3.993815686480484*^9, 3.993815701548067*^9}}, + CellLabel->"In[10]:=",ExpressionUUID->"b63817d6-d814-44da-ac3e-56c2cf8db1c3"], + +Cell[BoxData["0.40907`"], "Output", + CellChangeTimes->{ + 3.993815824091074*^9, 3.993815892645401*^9, {3.993815951767627*^9, + 3.993815995717485*^9}, {3.994012734791346*^9, 3.99401275310209*^9}, + 3.9940132866370564`*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"88592f21-f9b0-47ac-a868-8d2ac07ced79"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"b0c21af7-9259-47bb-8e71-5a0aba7ed9c9"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.993815824106497*^9, 3.9938158926558847`*^9, { + 3.993815951780663*^9, 3.993815995730535*^9}, {3.9940127348044577`*^9, + 3.994012753117031*^9}, 3.994013286659443*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"84064b45-201f-43d0-bc31-e4ece3cb1338"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"2184443e-aa1c-438c-b4b2-4d78ab4d3a4b"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.993815824123843*^9, 3.9938158926663837`*^9, { + 3.993815951793076*^9, 3.993815995743602*^9}, {3.994012734818459*^9, + 3.994012753131789*^9}, 3.994013286676607*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"d5aba823-9f68-45dd-92cc-2db2a62218fb"] +}, 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->"c1ca45c5-7f7a-4529-a658-1ade4d516529"], + +Cell[BoxData["2.4538606431456684`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.993815824141597*^9, 3.993815892677889*^9, { + 3.9938159518063183`*^9, 3.9938159957558603`*^9}, {3.994012734835313*^9, + 3.994012753146474*^9}, 3.994013286692376*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"b8a89689-3e03-45b9-be22-d19436f03d6b"] +}, 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->"77c96466-9061-4c8a-9e85-47139fff4a2c"], + +Cell[BoxData["1.4512846433038022`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.993815824156972*^9, 3.993815892689371*^9, { + 3.9938159518190203`*^9, 3.993815995768323*^9}, {3.99401273484025*^9, + 3.994012753161911*^9}, 3.994013286712462*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"cf2b3fcd-948f-4072-bcdf-33c256b3cae7"] +}, 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->"d726f02a-acdb-41d2-9e96-d4d3044f8b0a"], + +Cell[BoxData["0.3744607025351484`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.9938158241736803`*^9, 3.993815892702938*^9, { + 3.993815951831235*^9, 3.993815995780489*^9}, {3.994012734857376*^9, + 3.994012753177943*^9}, 3.994013286728437*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"eb0b7c04-af91-455b-8486-bcbf81ba15ff"] +}, 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->"246ee10a-465d-4d30-9338-d85ddbacd258"], + +Cell[BoxData[ + RowBox[{"-", "0.08358618531832765`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.993815824190381*^9, 3.993815892714963*^9, { + 3.99381595184389*^9, 3.993815995792754*^9}, {3.994012734871372*^9, + 3.9940127531931753`*^9}, 3.994013286739378*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"7b4dd8cb-92f1-4164-8b50-f229a1a27954"] +}, 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->"5b73f8d2-4d3e-4d10-a6c0-ed1f46798d82"], + +Cell[BoxData[ + RowBox[{"-", "0.5957523139282981`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.993815824207239*^9, 3.993815892726112*^9, { + 3.993815951856346*^9, 3.9938159958051043`*^9}, {3.994012734886475*^9, + 3.994012753208178*^9}, 3.9940132867667437`*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"1a1c6543-8dd8-40f1-b021-85dec120a20f"] +}, 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->"4dbe781b-53a1-4782-b6c7-a62e52781f49"], + +Cell[BoxData["0.713744744985854`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.993815824222714*^9, 3.993815892737419*^9, { + 3.9938159518694*^9, 3.993815995817747*^9}, {3.99401273490063*^9, + 3.994012753223435*^9}, 3.9940132867851887`*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"45508906-6f91-40a2-968e-d7e74c188855"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"67e0592f-ef1c-407f-86e9-a1bc2b69f476"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.993815824238377*^9, 3.993815892748749*^9, { + 3.993815951883985*^9, 3.993815995830997*^9}, {3.994012734916293*^9, + 3.994012753238081*^9}, 3.9940132867981863`*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"a2993d2a-78bb-4a05-9028-5cc7dfa72859"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel->"In[20]:=",ExpressionUUID->"77a32425-388d-4b3a-b854-a46af8d53d1c"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.993815824252192*^9, 3.993815892759966*^9, { + 3.993815951897129*^9, 3.9938159958447227`*^9}, {3.994012734930868*^9, + 3.9940127532525377`*^9}, 3.99401328682449*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"eb8bfd5b-e379-43b4-9e81-e2914e827384"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"0d513009-9204-426d-a562-909c64236311"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.993815824265974*^9, 3.993815892777206*^9, { + 3.993815951909596*^9, 3.993815995857946*^9}, {3.994012734946954*^9, + 3.994012753268147*^9}, 3.994013286834827*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"f5b01ded-efc5-43e4-a935-de4cd0e956d8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"f09f3a47-9ca6-472b-a2cc-54d3038804bb"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.993815824281651*^9, 3.993815892789987*^9, { + 3.993815951922598*^9, 3.993815995871676*^9}, {3.994012734961584*^9, + 3.994012753285798*^9}, 3.9940132868531237`*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"fb020d50-720a-4448-8794-04539772d43d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[23]:=",ExpressionUUID->"00a322da-0c0e-4441-8c1b-c7815e5b527d"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.993815824297344*^9, 3.9938158928016577`*^9, { + 3.993815951935726*^9, 3.993815995884973*^9}, {3.9940127349760647`*^9, + 3.994012753303388*^9}, 3.99401328686414*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"4401fd76-b797-48b3-b748-a49df0f72a11"] +}, 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.993815710443075*^9, 3.9938157105928802`*^9}}, + CellLabel->"In[24]:=",ExpressionUUID->"c1747945-7aac-482a-83b9-80dd67332b06"], + +Cell[BoxData["66"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, 3.993815824312414*^9, 3.993815892812936*^9, { + 3.9938159519479322`*^9, 3.9938159958976*^9}, {3.994012734991516*^9, + 3.994012753318815*^9}, 3.9940132868754587`*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"58ca9c20-a12d-4f21-936b-7f89873e675c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, {3.993815715623077*^9, 3.993815715723624*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"1052218c-77d9-4aa2-b2f7-9aa9f0891eb8"], + +Cell[BoxData["28"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.9938158243255568`*^9, 3.993815892824174*^9, { + 3.993815951962007*^9, 3.993815995910904*^9}, {3.994012735006587*^9, + 3.994012753334146*^9}, 3.994013286888192*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"627554cc-4990-4d70-87fd-a5e3111c3c68"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"9cfcd788-75bb-480b-ab21-af9989a158ba"], + +Cell[BoxData["78"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.993815824339529*^9, 3.993815892835505*^9, { + 3.9938159519756107`*^9, 3.9938159959234123`*^9}, {3.9940127350225773`*^9, + 3.99401275334903*^9}, 3.994013286907731*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"e8767e59-be07-44b5-bc63-afb46d6422ca"] +}, 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->"0b7eebf5-ad50-41da-ad01-ff14c08ef886"], + +Cell[BoxData["0.11193732193732193`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.993815824354212*^9, 3.993815892846965*^9, { + 3.99381595198964*^9, 3.993815995937854*^9}, {3.994012735036902*^9, + 3.994012753363584*^9}, 3.994013286924782*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"38c34d7a-e869-4855-bae0-bbe173deb447"] +}, 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->"3b8ad994-3208-4eda-af89-67d2c0702513"], + +Cell[BoxData[ + RowBox[{"-", "2.5617948717948718`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.9938158243693666`*^9, 3.9938158928581047`*^9, { + 3.993815952002063*^9, 3.993815995952959*^9}, {3.994012735051235*^9, + 3.994012753380294*^9}, 3.994013286936448*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"6a195e8c-0184-4ad7-b31b-a2a9754c2cf2"] +}, 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->"bfa9ff06-e999-4bfa-98c6-bf62116a6a0d"], + +Cell[BoxData["17.755860569879673`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.9938158243828497`*^9, 3.9938158928694487`*^9, { + 3.993815952015215*^9, 3.993815995959347*^9}, {3.994012735067181*^9, + 3.994012753395359*^9}, 3.9940132869499483`*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"8fb25afc-0754-4d40-8650-0279ff5537d3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"39ef1782-0650-4290-9244-8c7cf9f99c73"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.993815824396482*^9, 3.993815892880583*^9, { + 3.993815952028016*^9, 3.993815995974369*^9}, {3.9940127350830297`*^9, + 3.994012753409977*^9}, 3.994013286962009*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"e2c9314d-772f-4346-8f3e-fe2c18b12e5c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "1.925"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { + 3.993815850527903*^9, 3.9938158535087967`*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"7df53e83-fc17-4fba-b292-356a8ca98ce6"], + +Cell[BoxData["1.925`"], "Output", + CellChangeTimes->{ + 3.993815892892448*^9, {3.993815952041005*^9, 3.9938159959864597`*^9}, { + 3.994012735098775*^9, 3.994012753424415*^9}, 3.994013286974696*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"f81b1b27-43ae-40fa-ac2a-420f8acfff84"] +}, 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->"ef42a1bb-b6fc-41cf-a3e1-32bc769cb6eb"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.805"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.993815855721238*^9, 3.993815857092358*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"8ad26fd6-adae-46af-a742-b0be8d8c6f78"], + +Cell[BoxData["0.805`"], "Output", + CellChangeTimes->{ + 3.993815892911134*^9, {3.993815952057427*^9, 3.99381599600596*^9}, { + 3.994012735117734*^9, 3.99401275345194*^9}, 3.994013286995511*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"9d3f1fcc-0467-422c-bc93-5790a622ca2a"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel->"In[34]:=",ExpressionUUID->"5082151a-fff7-4530-b76f-810216d1647f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "2.5"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.993815859994154*^9, 3.993815861340933*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"b0b21d06-dae3-4168-b20d-2a44da1a71f1"], + +Cell[BoxData["2.5`"], "Output", + CellChangeTimes->{ + 3.9938158929287786`*^9, {3.99381595207283*^9, 3.993815996022519*^9}, { + 3.9940127351358128`*^9, 3.994012753478545*^9}, 3.994013287015429*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"6e87e92b-1b3f-4d25-9bb0-6d21e6ff2eeb"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel->"In[36]:=",ExpressionUUID->"043b6693-6bb6-45e5-b877-0886a4c1d1d9"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.165"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, {3.9938158643599787`*^9, 3.993815865676284*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"dd4c9c4e-3238-4a67-b950-a2bddc20fc2d"], + +Cell[BoxData["1.165`"], "Output", + CellChangeTimes->{ + 3.993815892946157*^9, {3.9938159520880413`*^9, 3.9938159960372267`*^9}, { + 3.99401273515212*^9, 3.994012753505625*^9}, 3.994013287035411*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"064682aa-b736-4bd6-9a47-ad529ee39315"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel->"In[38]:=",ExpressionUUID->"e62dc70b-c059-473b-a377-64a6e7d26a7c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.213"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, {3.993815868143258*^9, + 3.993815869195242*^9}}, + CellLabel->"In[39]:=",ExpressionUUID->"18a406ee-010f-4039-9292-e28d4041c008"], + +Cell[BoxData["1.213`"], "Output", + CellChangeTimes->{ + 3.993815892962039*^9, {3.993815952103568*^9, 3.993815996052133*^9}, { + 3.994012735168161*^9, 3.994012753532589*^9}, 3.994013287056375*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"0c5f4581-f802-485f-a14b-4b2e11e970f4"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel->"In[40]:=",ExpressionUUID->"c137531b-8797-4686-90c7-ca543efe730e"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.57"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.993815872614973*^9, + 3.993815875095196*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"ebd2bf5a-6f85-42f7-910a-cd5286bc2764"], + +Cell[BoxData["0.57`"], "Output", + CellChangeTimes->{ + 3.993815892978149*^9, {3.9938159521195602`*^9, 3.9938159960676327`*^9}, { + 3.994012735184478*^9, 3.994012753559978*^9}, 3.99401328707835*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"fb811930-29e3-4880-b3ca-09688520d811"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel->"In[42]:=",ExpressionUUID->"cb746fd2-4f20-4652-a7c2-832ef6969b64"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "1.35"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.993815877839096*^9, + 3.993815879047324*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"2d7e378e-5958-4d4e-830c-cad1565dd71a"], + +Cell[BoxData["1.35`"], "Output", + CellChangeTimes->{ + 3.993815892994123*^9, {3.99381595213482*^9, 3.993815996092525*^9}, { + 3.994012735201104*^9, 3.994012753586568*^9}, 3.9940132870961313`*^9}, + CellLabel->"Out[43]=",ExpressionUUID->"e201c981-632c-4864-929a-4cc778172f1a"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel->"In[44]:=",ExpressionUUID->"0226ed98-b3f1-4445-94f6-11b658e31e9f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "0.695"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, {3.993815882043911*^9, 3.993815883712513*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"1198a547-57ce-4461-bffd-28bd5d7c31e6"], + +Cell[BoxData["0.695`"], "Output", + CellChangeTimes->{ + 3.993815893009348*^9, {3.9938159521502934`*^9, 3.9938159961073437`*^9}, { + 3.994012735217507*^9, 3.994012753614246*^9}, 3.994013287117194*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"440be872-0012-429e-9d11-8247099c2809"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel->"In[46]:=",ExpressionUUID->"ddedb756-3b67-4e8f-9201-3b5644e2cce0"], + +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->"a625c97e-9c7c-4862-83af-337b0aa8f35e"], + +Cell[BoxData["0.12327762268272666`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.993815824789941*^9, 3.993815893053749*^9, { + 3.9938159521927853`*^9, 3.9938159961478243`*^9}, {3.994012735307992*^9, + 3.994012753662813*^9}, 3.994013287230855*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"4cfbc730-5449-4d61-90da-eff058555b16"] +}, 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->"60d7f71f-cbde-4ed9-909b-30b043b9591e"], + +Cell[BoxData["8.089090426123509`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.993815824958537*^9, 3.993815893086632*^9, { + 3.993815952223331*^9, 3.993815996176463*^9}, {3.994012735341444*^9, + 3.9940127537028303`*^9}, 3.9940132872760057`*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"2091e3a2-c538-48a2-88b4-1b5c70c20388"] +}, 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->"e6e7e383-61bf-40fc-93e6-0b19f8b9c932"], + +Cell[BoxData[ + RowBox[{"-", "18.15349098777757`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.993815825088951*^9, 3.993815893116687*^9, { + 3.9938159522505827`*^9, 3.9938159962051373`*^9}, {3.994012735372669*^9, + 3.994012753746902*^9}, 3.994013287317541*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"2a044d43-f50b-442d-9696-0aca15c18542"] +}, 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->"fe18a67b-48ae-45e9-bbcf-36103d13d2be"], + +Cell[BoxData[ + RowBox[{"-", "24.05337115009524`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.993815825243335*^9, 3.993815893152563*^9, { + 3.993815952283412*^9, 3.9938159962366734`*^9}, {3.9940127354096613`*^9, + 3.9940127537823277`*^9}, 3.994013287373871*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"3d8235cd-2b9f-4580-83f0-150655b58948"] +}, 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->"676e4f0f-dcc9-48ee-97b7-3ab9fe186e71"], + +Cell[BoxData[ + RowBox[{"-", "68.5715021463911`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.993815825395423*^9, 3.993815893189039*^9, { + 3.993815952318357*^9, 3.9938159962699547`*^9}, {3.994012737745866*^9, + 3.994012753816412*^9}, 3.994013287428318*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"f988c85e-d2eb-447e-82a4-48fa46c1c1a1"] +}, 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->"663df4a9-c1a9-45f2-bd81-7c725b966374"], + +Cell[BoxData[ + RowBox[{"-", "181.33897130481844`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.9938158255934277`*^9, 3.9938158932303762`*^9, { + 3.9938159523617983`*^9, 3.993815996307926*^9}, {3.9940127379598227`*^9, + 3.994012753855733*^9}, 3.9940132875389853`*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"65c2233b-14b9-4a91-bea6-036ab91b8909"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[53]:=",ExpressionUUID->"f333f8e4-2022-46cd-9f51-74696e5ac6cb"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.993815825610972*^9, 3.993815893238894*^9, { + 3.993815952376239*^9, 3.993815996389533*^9}, {3.994012737981202*^9, + 3.994012753871561*^9}, 3.9940132876122007`*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"fa252b7f-53ca-452b-885f-bd4fad45d49d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[54]:=",ExpressionUUID->"05e97b37-158d-43fc-a4a5-0ba34f3a81eb"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.993815825623754*^9, 3.993815893251865*^9, { + 3.993815952388772*^9, 3.9938159963944883`*^9}, {3.994012737993568*^9, + 3.994012753889316*^9}, 3.9940132876253366`*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"a01597bc-1f71-4fcf-b44c-68768e8c43fe"] +}, 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->"9ed52fd7-417c-42b5-babe-b3e69fc8a7c4"], + +Cell[BoxData["141.405110309417`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.993815826417283*^9, 3.993815893265246*^9, { + 3.993815952401479*^9, 3.993815996407648*^9}, {3.9940127380069637`*^9, + 3.9940127539062157`*^9}, 3.994013287637685*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"48e7ba6b-ea34-4c02-a71c-b0375a426df2"] +}, 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->"57e53700-8a40-40a5-9121-1058ba37762d"], + +Cell[BoxData[ + RowBox[{"-", "128.9528695923845`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.99381582721953*^9, 3.993815893272354*^9, { + 3.9938159524150248`*^9, 3.993815996420066*^9}, {3.994012738019804*^9, + 3.9940127539503736`*^9}, 3.994013287649089*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"6d9b325f-2614-4394-a9ad-a019a7dfda99"] +}, 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->"16827392-3550-44e3-9ec3-4f3673e59ba2"], + +Cell[BoxData["145.46176038414953`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.993815827967605*^9, 3.993815893279285*^9, { + 3.993815952427936*^9, 3.993815996433951*^9}, {3.994012738032927*^9, + 3.994012753965966*^9}, 3.9940132876634693`*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"cea5a90a-25e2-4f63-90d3-bc9e3119d4fd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[58]:=",ExpressionUUID->"253b81f4-fd57-4287-90ed-0909aecb72fa"], + +Cell[BoxData["0.3744607025351484`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.993815827996399*^9, 3.993815893285612*^9, { + 3.993815952441914*^9, 3.993815996447248*^9}, {3.994012738045417*^9, + 3.9940127539822197`*^9}, 3.9940132876771603`*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"94178d19-b042-4d9c-91e7-4e3e6be35dc6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[59]:=",ExpressionUUID->"2c559b3d-08c7-4e2d-be3f-691e5bd40832"], + +Cell[BoxData[ + RowBox[{"-", "0.08358618531832765`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.993815828006872*^9, 3.99381589330029*^9, { + 3.993815952454702*^9, 3.993815996460602*^9}, {3.9940127380579777`*^9, + 3.994012753999001*^9}, 3.994013287690316*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"70b8864e-f609-4840-a501-b194e4ac1b7d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[60]:=",ExpressionUUID->"cbf8db76-8a3a-46d2-8962-53398bb73f8e"], + +Cell[BoxData[ + RowBox[{"-", "0.5957523139282981`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.993815828017632*^9, 3.993815893314815*^9, { + 3.993815952467293*^9, 3.993815996472748*^9}, {3.9940127380705957`*^9, + 3.994012754016019*^9}, 3.994013287703845*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"54511268-2529-4f7e-8348-0de8bf60f09f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"5b3fe6e0-4ede-4d9c-a558-270c0baeb995"], + +Cell[BoxData["0.713744744985854`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.9938158280292873`*^9, 3.9938158933264513`*^9, { + 3.99381595247992*^9, 3.9938159964849863`*^9}, {3.9940127380831127`*^9, + 3.994012754031786*^9}, 3.994013287716094*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"55b3db2a-4828-4fea-bdb7-a7da9d238795"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[62]:=",ExpressionUUID->"98cc2401-fa7a-457c-891b-e35cad7588e7"], + +Cell[BoxData["2.4538606431456684`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.993815828040164*^9, 3.9938158933379717`*^9, { + 3.99381595249251*^9, 3.993815996497171*^9}, {3.9940127380959167`*^9, + 3.994012754047423*^9}, 3.9940132877233686`*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"dbc0719e-dfd3-44cc-837b-c3152f9220a7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[63]:=",ExpressionUUID->"971143e4-e967-42b1-a22e-03c49bf075c9"], + +Cell[BoxData["1.4512846433038022`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.993815828051201*^9, 3.993815893350441*^9, { + 3.993815952507271*^9, 3.993815996509037*^9}, {3.994012738108345*^9, + 3.994012754065312*^9}, 3.994013287731698*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"6451305e-fa63-4654-ad8b-ad5c86e3cede"] +}, 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->"62dc613b-c996-46e5-a998-4afe690bb4fc"], + +Cell[BoxData[ + RowBox[{"-", "35.01877093188689`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.99381582806227*^9, 3.993815893362507*^9, { + 3.993815952520192*^9, 3.9938159965211277`*^9}, {3.994012738120954*^9, + 3.994012754086623*^9}, 3.994013287750301*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"b82540a5-2ec7-48c9-b643-92b9cf1123ee"] +}, 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->"a0ee90f3-3d4a-4ff8-966d-d3990e8aa250"], + +Cell[BoxData[ + RowBox[{"-", "7.023230644966918`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.993815828073289*^9, 3.993815893373386*^9, { + 3.9938159525334873`*^9, 3.9938159965330544`*^9}, {3.994012738133953*^9, + 3.994012754103959*^9}, 3.994013287762411*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"6fdc367c-9ed5-4c1b-bca8-fcbe108a8913"] +}, 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->"9b26f720-cf1a-48cf-a738-4058afc510cd"], + +Cell[BoxData["106.38633937753012`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.993815829714663*^9, 3.993815893386404*^9, { + 3.993815952538138*^9, 3.993815996546342*^9}, {3.994012738147608*^9, + 3.994012754121069*^9}, 3.9940132877753983`*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"9c2d9018-2aa4-4488-806f-9fd2b6ad315e"] +}, 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->"a15dd462-1c26-4381-a9d9-95a5af12557d"], + +Cell[BoxData[ + RowBox[{"-", "128.9528695923845`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.993815830785906*^9, 3.993815893393002*^9, { + 3.99381595255091*^9, 3.993815996558546*^9}, {3.9940127381623087`*^9, + 3.994012754138682*^9}, 3.994013287786457*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"ecdd13da-6410-492e-a41f-df8907d52108"] +}, 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->"c24364d8-237f-4cfb-a9a7-ae76031df588"], + +Cell[BoxData["138.4385297391826`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.993815832301989*^9, 3.993815893399308*^9, { + 3.9938159525638323`*^9, 3.993815996570672*^9}, {3.994012738168003*^9, + 3.994012754154402*^9}, 3.994013287804042*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"a9c6eaa2-bb16-40ee-abf8-afed187176dc"] +}, 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->"152a05e4-bdd6-46ae-8814-d48d4f90dd12"], + +Cell[BoxData["42.7423287298202`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.99381583454182*^9, 3.9938158934054613`*^9, { + 3.99381595257723*^9, 3.993815996582724*^9}, {3.9940127381809587`*^9, + 3.994012754170536*^9}, 3.99401328782018*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"5f23af38-50de-4f17-9a78-f721b4bb3a7d"] +}, 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->"8b365917-c5ea-4eaf-a2e6-3a6a3acfdcf7"], + +Cell[BoxData["852.656398631346`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.993815837006854*^9, 3.993815893411956*^9, { + 3.993815952590604*^9, 3.9938159966008883`*^9}, {3.9940127381948357`*^9, + 3.994012754188656*^9}, 3.994013287829321*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"bf6193f8-33a0-4065-b36c-b67a374dfe86"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f1", "=", "0.8759405828"}]], "Input", + CellChangeTimes->{3.9918496921150837`*^9, 3.994012957624815*^9}, + CellLabel->"In[71]:=",ExpressionUUID->"ede64bc2-06f7-8743-a0a6-6f058773310c"], + +Cell[BoxData["0.8759405828`"], "Output", + CellChangeTimes->{3.994013287844043*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"93cf03c6-c4ca-4420-9971-53ba1d829dbe"] +}, 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.506111654"}]], "Input", + CellChangeTimes->{3.991849690724144*^9, 3.994012962220209*^9}, + CellLabel->"In[73]:=",ExpressionUUID->"328429c4-9130-334e-ba7f-7dc8ec78e5b4"], + +Cell[BoxData["0.506111654`"], "Output", + CellChangeTimes->{3.994013287862628*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"8bb84841-5aae-401d-9d48-79ed89affd98"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991849693382303*^9, 3.991849693386299*^9}}, + CellLabel->"In[74]:=",ExpressionUUID->"b3364ab6-86a4-7a46-ae33-623392314869"], Cell[CellGroupData[{ @@ -84,13 +4878,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.585212243083306`*^-53"], "Output", + CellChangeTimes->{3.991339230528511*^9, 3.9940132878847103`*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"9a06f203-6e6d-4c07-b515-69778933a42c"] }, Open ]], Cell[CellGroupData[{ @@ -124,14 +4916,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.7024389424105867`*^-54"], "Output", + CellChangeTimes->{3.991339230554512*^9, 3.9940132879009323`*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"714ccffa-c746-4708-857d-2a82e2db4e6a"] }, Open ]], Cell[CellGroupData[{ @@ -164,14 +4954,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.5423048475909755`*^-54"], "Output", + CellChangeTimes->{3.9913392305796223`*^9, 3.994013287913279*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"bb00b9e5-6cfe-450a-b8ea-d65c6fe15988"] }, Open ]], Cell[CellGroupData[{ @@ -194,13 +4982,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["31.795829360948282`"], "Output", + CellChangeTimes->{3.9913392305906105`*^9, 3.994013287928113*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"85498b9e-3eb2-45e3-ab31-ebcc87c187a8"] }, Open ]], Cell[CellGroupData[{ @@ -226,13 +5012,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["78.096899032099`"], "Output", + CellChangeTimes->{3.99133923061561*^9, 3.9940132879387302`*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"ef9bb51c-ba05-4d53-bf68-f722da4c51b5"] }, Open ]], Cell[CellGroupData[{ @@ -241,13 +5025,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.159428605941347`"], "Output", + CellChangeTimes->{3.9913392306426105`*^9, 3.9940132879507723`*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"2f379727-8752-4f1a-92e3-a93117180fa1"] }, Open ]], Cell[CellGroupData[{ @@ -256,13 +5038,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.304228956723045`"], "Output", + CellChangeTimes->{3.99133923065361*^9, 3.994013287962092*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"672758b1-e3b2-4e3a-aa5f-e8e3cbb5b2ba"] }, Open ]], Cell[CellGroupData[{ @@ -271,13 +5051,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["258.05003521213746`"], "Output", + CellChangeTimes->{3.9913392306776104`*^9, 3.9940132879732723`*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"22ed853b-1763-4cee-8523-64dadc81e7c3"] }, Open ]], Cell[CellGroupData[{ @@ -286,13 +5064,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["36.86499411071322`"], "Output", + CellChangeTimes->{3.991339230703802*^9, 3.994013287984785*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"88bc49b7-683a-4e2c-848a-da3e0a1b9fa1"] }, Open ]], Cell[CellGroupData[{ @@ -481,13 +5257,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.004188902311873492`"], "Output", + CellChangeTimes->{3.9913392307297993`*^9, 3.994013288002659*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"8535b963-f250-432d-9845-adae62aa755e"] }, Open ]], Cell[CellGroupData[{ @@ -500,13 +5274,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.692880703494257`"], "Output", + CellChangeTimes->{3.991339230837267*^9, 3.994013288173615*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"2a53ddf6-be55-4796-b513-7c318ce711b6"] }, Open ]], Cell[CellGroupData[{ @@ -697,13 +5469,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.024807551564105152`"], "Output", + CellChangeTimes->{3.9913392308522797`*^9, 3.9940132881863823`*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"3cf76c6d-a107-4e3c-80eb-fff5a6fe6703"] }, Open ]], Cell[CellGroupData[{ @@ -716,13 +5486,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.626690009895351`"], "Output", + CellChangeTimes->{3.991339230966341*^9, 3.994013288244473*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"a0b07bd3-fc63-435b-a2b7-77a7b1788690"] }, Open ]], Cell[CellGroupData[{ @@ -814,13 +5582,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.11554797097264188`"], "Output", + CellChangeTimes->{3.991339230988348*^9, 3.9940132882561483`*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"0c504def-b9d7-42f2-a861-1901dcb2003d"] }, Open ]], Cell[CellGroupData[{ @@ -909,13 +5675,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.8844520290273581`"], "Output", + CellChangeTimes->{3.991339231030445*^9, 3.994013288267631*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"ca78fcea-66c2-4969-a947-52a75638ce37"] }, Open ]], Cell[CellGroupData[{ @@ -1037,19 +5801,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.10219663737674739`"], "Output", + CellChangeTimes->{3.991339231060343*^9, 3.9940132882834673`*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"44fcc00f-7768-48c9-9760-58d69f9a7da1"] }, 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[{ @@ -1063,30 +5825,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,68 +5875,73 @@ 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.7245129783388705`*^-225\\\", \ +RowBox[{\\\"2735526583816145583533735\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9182397440000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 92, 1, + 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392310873375`*^9, 3.994013288316975*^9}, CellLabel-> "During evaluation of \ -In[332]:=",ExpressionUUID->"56fc0528-7ab2-a142-bc04-9f31af965213"], +In[92]:=",ExpressionUUID->"22be0870-750a-4776-8b47-08a414f888c4"], 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[\\\"2.0981759296253436`*^-231\\\", \ +RowBox[{\\\"4160735933984357432554811\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6426506240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 92, 2, + 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392310873375`*^9, 3.994013288333836*^9}, CellLabel-> "During evaluation of \ -In[332]:=",ExpressionUUID->"523f0cae-d948-764c-a560-b9272d5e2d53"], +In[92]:=",ExpressionUUID->"f1087944-dba4-4311-b9a0-1a9f82f35d10"], 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.552803189628476`*^-237\\\", \ +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 92, 3, + 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392310873375`*^9, 3.99401328833873*^9}, CellLabel-> "During evaluation of \ -In[332]:=",ExpressionUUID->"0a6922e0-d70a-8f48-87c3-f1e8776a3316"], +In[92]:=",ExpressionUUID->"8869753e-d64f-4c8d-b4f3-0a5d07486cc2"], 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, 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392310873375`*^9, 3.9940132883453197`*^9}, CellLabel-> "During evaluation of \ -In[332]:=",ExpressionUUID->"777b8d50-cc35-c140-9ef3-025284fd7e68"], +In[92]:=",ExpressionUUID->"05f855dc-242c-4116-b58c-06351cbced2d"], -Cell[BoxData["6.551890985609901`"], "Output", - CellChangeTimes->{3.9913392346332226`*^9}, - CellLabel-> - "Out[332]=",ExpressionUUID->"bbad1871-e996-ef4b-8dc6-3a39d5c410ef"] +Cell[BoxData["13.69288070349426`"], "Output", + CellChangeTimes->{3.9913392346332226`*^9, 3.994013290087585*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"2c57bbbe-f556-4bcd-b58f-c66f104abbda"] }, Open ]], Cell[CellGroupData[{ @@ -1186,30 +5956,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[{"-", @@ -1233,68 +6006,73 @@ 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.7245129783388705`*^-225\\\", \ +RowBox[{\\\"2735526583816145583533735\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9182397440000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 93, 5, + 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339234667631*^9, 3.994013290182597*^9}, CellLabel-> "During evaluation of \ -In[333]:=",ExpressionUUID->"e613a9b2-edeb-4743-aa3f-3db45e0849dd"], +In[93]:=",ExpressionUUID->"dce40651-d940-4494-9f94-0ca79c282f11"], 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[\\\"2.0981759296253436`*^-231\\\", \ +RowBox[{\\\"4160735933984357432554811\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6426506240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 93, 6, + 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339234667631*^9, 3.994013290189364*^9}, CellLabel-> "During evaluation of \ -In[333]:=",ExpressionUUID->"d082687e-fa98-c642-8741-e0aeeee8492c"], +In[93]:=",ExpressionUUID->"8960b426-f46d-45e8-a32e-98d7071cf0d7"], 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.552803189628476`*^-237\\\", \ +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 93, 7, + 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339234667631*^9, 3.994013290194248*^9}, CellLabel-> "During evaluation of \ -In[333]:=",ExpressionUUID->"1cb847b5-98cf-0a42-bcd2-893a3a64388b"], +In[93]:=",ExpressionUUID->"5e1d41d0-3656-4c18-b937-2c5a972c8dc9"], 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, 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339234667631*^9, 3.99401329019976*^9}, CellLabel-> "During evaluation of \ -In[333]:=",ExpressionUUID->"0d526236-fa4c-334c-9891-0cc458f43fbe"], +In[93]:=",ExpressionUUID->"ea1fa648-30ea-452f-bdf3-ba44b6077245"], -Cell[BoxData["8.906440683949707`"], "Output", - CellChangeTimes->{3.99133923819088*^9}, - CellLabel-> - "Out[333]=",ExpressionUUID->"a61472f3-b6b3-5d40-8ec5-35b87df5c824"] +Cell[BoxData["5.62669000989535`"], "Output", + CellChangeTimes->{3.99133923819088*^9, 3.99401329187045*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"4ee3d246-49f7-4604-b9aa-98294dbb7981"] }, Open ]], Cell[CellGroupData[{ @@ -1304,138 +6082,142 @@ 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.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:eJwV1Hk0Vd0bB3CZkshMMo+9yNC9KJL9ZKqEigiZnXtIZvIqUxTNihR+DUqK +ZEjKnDRSFKJEZebVvcaToVT89v3jrLM+a6/zXd9n772Okk+IPYOTg4NjAj/s +d9h7nfWVbe9NuYaaSkTmmch0Ms/Ax6IIlW588p7t/hzDDFWLOtQ5lakjir2H +eMcrQH+FFmRc3rNdFp3wgseiBZ0t5ygRwz79em1DQmE7WnqY+k4cu7ot7MYf +2kfUJsGlLYnN7Hkbe6T2M9r7yb1FCnvdiMqBefOvaGnixn1p7F1TsUYRLX3I +1vH1Wxns+j/M1dGFAyiOq1NDHvtTolRMRfAQGptsbFLEnuS1YM7SRpCgYG6+ +CjbvuVAX+sIo0rT3ea2OLS9yvSmsdgxdKeNT08S2k5m/O2k+joJPrszdiE3e +VJbU5ptEcX2eDQbYCWq7kw+1TKFl8RvyxtifpTo3RhbOIKe25v+ZYxOuAQcv +naPQOd3aqh3Y09c4bj0M/oGEFS5K2mHzKWsLz9DmENd+ZpoLdgbxYruwxDzK +Cw0p9cRWzHdJ0F2YR5uedAuQ2Js3pEwG1f5Ev1PcT0Zg+xv2tTDN/6CzjfIx +adiz0Ye5+dX/ovuH3mZmYx+rXW2iwbeEXPa7zt7CzoLN9/1alpF4rHpQObvf +nSaL8MIVcIkr0L0bu/D1pf5EGU54RBkcGWL3/c8jNu0cJ3T8GeycwI7VnCt/ +EMwFblUju7gWcN9SJZUpGg9smz61eSN2T9t4/dJtHuAZJB22YitSla5rJHhh ++Jh6yU7sIn27dO0FXtj4Z6eKL/bL6qMrAmv54Pl6WYFs7LkXHX1j5gJAzNR2 +Cf9kIlEbAeGYegFQOKpqp4yt12kBgkaCcNXqupA+dsDw45sbddYAcqyPcMYO +5WzR2yogDDk3HzXkYY8ol8wkz4vAPS7FoF2/8P6Qb1e10kWh+I13hjc25/1R +pbVhouDZVcwbja1IV7AvZImCvLRvyx1sV/OLD9/3i4GdsOFX7kUmavUNj5Bq +loCBaSnBduze/NSzXnySwDzRNMzCHmcV3r5nKQl1CzErV/5mIv7IoY4tDZIw +H/hd2xTb4sQ+fa/HUlAy2bpUil2TZzhXkCMNaq57H9z6w0R5I4tRxpFycBrx +2z1ZYqIdjid7I4rlYL2srWwf9vhLMaviUTnoCBnRWrHMRPp5GyQUXeSh3Vhc +yAr7pY9HOY+pAjxwdB35gE1N9f87dlwRDhRyt//kYCGxIItH5bbKYGjw783D +XCw0msfvvydAGVxWmWTlYFd9bZOZSFEGW1Wz9jfYbjbux9UblGHZTWilAjcL +5WlF2WfTVCDqa3ZiC7Y+M386XkoVag81l9F5WWif32pt6wE1aJXe/ou2ioVQ +lCNt/1812EoPlyGwNZNzNhHS6rDweWvsZWyO23Sz+L3qYHKl/NdP7OLeA/sf +PlOHBxs5h5/zsxCvU1Hiutz18FYn4rCPAO5nYfuJ6aMBNz7mJbcJsdBth8wv +C/Ea0DaCjq4SZqFUn4F+7qsaMNfqWWyGTRw7zJLv0ICnYZqtj7FF6q5zOJhr +QsXBNo4cERYKoE9q1qpoQX7ISZk4MRaSUb6QcHZ4A+y4WrDeX4qF6s7Mavzi +1AavNUKHSrDdfrh0kkraYBrSvzCLfeOlqoaZhzZoRdVPJK1lIWW/mg8/u7Rh +5Q2wzpXG8xaNqJHNOuC0VfHVpAwLycnIk4ouelBeuqaqXpGFNtyJFPiNaDAy +ZLvFWIuFfIjjc9p2NBg0Wzd4DjtLJb3Xy40GVo+ONfVhc+WWPngdTYPleYl9 +KRtYqOcGc196GQ342zaTn7RZ6HSW13UNFTq8WS16OEkPn+9ZGx1nXn24IuNB +4zdkoVvhqnsetxhAwcDW9q5tLNQWhTaduGMEV8QFkls9WEjJ46Ode+BWCHg1 +5lidwEKM5YoSuSMAnit6471zWUiKVbVSyscMVmReNTNqYaFIusnXdE0LKLSb +8tuygPtP/GkSY1oCI5v770q1cVRsFrEyp3U7KOYFRlW6jqO82YBnRRk7YSh8 +cTD64jj6uW3tu5cJuyCRO3E25/04+sbBNTPgbQvjTPcnYUITKFg25GKiym44 +HNfDqbl7ApUcbGq4nLwH/A2lPEszJ9DRH9ILWgf3QpJVhHVA7wSas7ZyavS0 +h4FsF08tnUlkdCBt28heBxhse2HOSJhEH6SvB7yk74MSZtbHC+8m0bq7x+sK +/nGELYaFHXdVp1BVv6aNnaATLOo1h4z8O4XkO6f9oiacwFcwhbm6eQrRL6cV +3e7fD/32f3Y6iE2j69w/dNJfOIOxrKn3BdNpVLFNtye52gWYarpaz4OmUdam +MyJ/Cl1haMTBy/jaNGr9cieFfu4AlJyIfRXXOI0e215TDT3mBgpfXHXWzk+j +mSAHjmDCHXQtZX5LKM2gOSsN/0lzD2j+JyD8jPUMKpjo/hlh6Akav/zvJUXN +IOdbd3zdBbwgrX/+meuNGVT+cJcn10kv2BdXq8nRNIOMZD78Ov3LC5ySn0rT +JmaQSr9fT/tBb4j+EkXrEaLQ8OpDu68NeUNZf6S0Np1Cbal2vtsdfUCHORfa +vJdCGdE5qw+3+UCS4vdU7VAK1dUv//Ld6QtZSl+NZs9QSMgNTtJrfKGk+4w3 +zy0KKYo3tsrW+YK/1mS+B7Zei+1a3npf6CmMrajEtjc5cO/zM1+4zjWhdTAX +58tGNce98QV5k+6oN7cptO7bfaGmz77QoTqalHCXQqoeUlluC77wys1D7dl9 +Chl5TRYk6xMwnbvFMOsxhe5mT0fYGRIgETW0qRdbvIMyldpMAE/DWV7VCgpN +Wi50FmwhoK/oCX8pdp4Wx4oWMwK2tjQWP6+k0JoFERfRvQSUKKbu76/G+3He +YFVOEAHUiRauuScU2tu4qdMvhICkMMYV/XoK1XMY5+iFERDym28uAjs7wtTg +eSQBbrn2khS2nct275EYAl5cUR1jPaVQtapLtdYZApYuRz//+IxCqbWxB6vu +EhB0ulox6RWFgmiZRtEFBCicD+Crwba5V7ZqcyEBHtmOT2aw+TNH71UWE/Bt +oiHV6zWFksP3MCse4fnyUeuWRgrFaqgeevycADn6qWdjTRQKyGwOfNhLwPPH +tdtkWyi0c82oSXg/ATVxq17ZYv+TzCFIGyTA+n2neAL2aLhBcdkIAX6sd9ID +2N52ORMPxgnIjHtQlfuOQs48EcGliwRcuB1rKdtKoe0R60KLJBlgcTc5aqyd +Qs9zUqzT1zLAPfyuqtQHCpm0UKrR6xjwVd/7siW2nlpzt7k8AxSXz9bfwpbu +ijH/osaARHEB3f0dFGIZf5PkN2BA0IuY4xWdFLrAefOJnwMDGIHf26268Py6 +Alm2jgwQIn40BmGfOBAdTt/PgJnbAwkZ2NGP9qxfdmWAsK+TwQC2N7ki7YoP +A05Filb8+5lC9Lc+xKswBtQ4xPJnd1OoK01ttcpFBvxU4+gt+kKhEiToP5bG +AL4fD3+8wT4xMfuy+BIDrr5u/TCKTdv5Mn5zJgN2SBlPKHzF58fhS9neYIBe +d2T6BWyrkJvd0UUMYLqUXyW+UUhO7pShaQkDarUSreKxZ9+GXOJ6wIBSw5Sa +TOxcdWSbWs6AQiXNpTfYf799a7hdw4DK9pM/tHop9MhGpuB9EwOqr6hkjGCf +XeTkyXjLgJjFNe2/sX0KmN4uLQyIk+PpEumjkDB3jcxwKwM2eq803YodWOt8 +4dcnBqw/IRedhq2ieSVKdYQBDTbh/9Ptp9BiV1zH91EGrHEeIs2w25IZeqVj +uC+v0Z992PED+kyjcQYs3D2deAS7J6vDffcPBmxrPDH/FDt9pYjl0RUkzOjL +nzIbwP8D6tuBSC4S+B475jtg//etMDyYhwSF4epEAtvkkcVNn1Uk3D+15JeM +PeoV/dtahISUIsPFF9jCNpailmIk/FVIoz5gb9kkqoEkSFCq5rk7gH1RsMiJ +Lk0C66O+6RJ7vaavTEaJhEMmYXT9QQqRd4qaJFRIsFzny70N++LFI31CaiRo +SnhetMUeJcUEuTVIsJIN7maw18W2+4/rkfC0qlL3EnbNkljCKI2E94lvPl/H +Hvnef7lfnwSdgS6TAmzjhqMvOjeTYOExbFCHPRxYIv8ESAgkMlj92GucYwwq +zXB+kU/gd2wj8x02ZRYkXE5RLpjBTpUePHJnBwlVuuF7VgxRqIq79GKONQkm +Fct1fNhDUzH52TYk3DE9OiyEvfm1xMfze0jQp9MIOWyfskHWSXsSMvOD6lSw +z18r5UzaR4KdTnqrBvZg+E69KGcSBmbS1Q2wBT0kt4e6kpB0MijAmJ23c8g9 +wI2E5X7tg4j9vULcWQ8vEnqW3TJ3sPvwW+c6+5CQFvz2tQ07b06y2p4g4eOP +dWV72HkDQ602JAnxf22d9rHzWh6MWvmTEMvlW7Gf3a8y7i8EkNB60qXdlZ2f +ay2+JZCEDMmN+e7s/PNSWgbBJExaft/kxc6PHt6mG4rvR0XicR9sAaLMWSOc +hKMii6cJ7E2740NUIknwFrDfRbLzjXelyEWRYM843eiHfU5t7XWpaBK+DOcs ++WNXCI+UixwlIcf98vRB7IHfZW9Xx5LgXHTwegA7/7/4AZ54EtorZXkOYRt+ +2PVzOYGE76El69n+P3zuTdY= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -1449,104 +6231,107 @@ 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:eJwV1Hk0Vd0bB3CZkshMMo+9yNC9KJL9ZKqEigiZnXtIZvIqUxTNihR+DUqK +ZEjKnDRSFKJEZebVvcaToVT89v3jrLM+a6/zXd9n772Okk+IPYOTg4NjAj/s +d9h7nfWVbe9NuYaaSkTmmch0Ms/Ax6IIlW588p7t/hzDDFWLOtQ5lakjir2H +eMcrQH+FFmRc3rNdFp3wgseiBZ0t5ygRwz79em1DQmE7WnqY+k4cu7ot7MYf +2kfUJsGlLYnN7Hkbe6T2M9r7yb1FCnvdiMqBefOvaGnixn1p7F1TsUYRLX3I +1vH1Wxns+j/M1dGFAyiOq1NDHvtTolRMRfAQGptsbFLEnuS1YM7SRpCgYG6+ +CjbvuVAX+sIo0rT3ea2OLS9yvSmsdgxdKeNT08S2k5m/O2k+joJPrszdiE3e +VJbU5ptEcX2eDQbYCWq7kw+1TKFl8RvyxtifpTo3RhbOIKe25v+ZYxOuAQcv +naPQOd3aqh3Y09c4bj0M/oGEFS5K2mHzKWsLz9DmENd+ZpoLdgbxYruwxDzK +Cw0p9cRWzHdJ0F2YR5uedAuQ2Js3pEwG1f5Ev1PcT0Zg+xv2tTDN/6CzjfIx +adiz0Ye5+dX/ovuH3mZmYx+rXW2iwbeEXPa7zt7CzoLN9/1alpF4rHpQObvf +nSaL8MIVcIkr0L0bu/D1pf5EGU54RBkcGWL3/c8jNu0cJ3T8GeycwI7VnCt/ +EMwFblUju7gWcN9SJZUpGg9smz61eSN2T9t4/dJtHuAZJB22YitSla5rJHhh ++Jh6yU7sIn27dO0FXtj4Z6eKL/bL6qMrAmv54Pl6WYFs7LkXHX1j5gJAzNR2 +Cf9kIlEbAeGYegFQOKpqp4yt12kBgkaCcNXqupA+dsDw45sbddYAcqyPcMYO +5WzR2yogDDk3HzXkYY8ol8wkz4vAPS7FoF2/8P6Qb1e10kWh+I13hjc25/1R +pbVhouDZVcwbja1IV7AvZImCvLRvyx1sV/OLD9/3i4GdsOFX7kUmavUNj5Bq +loCBaSnBduze/NSzXnySwDzRNMzCHmcV3r5nKQl1CzErV/5mIv7IoY4tDZIw +H/hd2xTb4sQ+fa/HUlAy2bpUil2TZzhXkCMNaq57H9z6w0R5I4tRxpFycBrx +2z1ZYqIdjid7I4rlYL2srWwf9vhLMaviUTnoCBnRWrHMRPp5GyQUXeSh3Vhc +yAr7pY9HOY+pAjxwdB35gE1N9f87dlwRDhRyt//kYCGxIItH5bbKYGjw783D +XCw0msfvvydAGVxWmWTlYFd9bZOZSFEGW1Wz9jfYbjbux9UblGHZTWilAjcL +5WlF2WfTVCDqa3ZiC7Y+M386XkoVag81l9F5WWif32pt6wE1aJXe/ou2ioVQ +lCNt/1812EoPlyGwNZNzNhHS6rDweWvsZWyO23Sz+L3qYHKl/NdP7OLeA/sf +PlOHBxs5h5/zsxCvU1Hiutz18FYn4rCPAO5nYfuJ6aMBNz7mJbcJsdBth8wv +C/Ea0DaCjq4SZqFUn4F+7qsaMNfqWWyGTRw7zJLv0ICnYZqtj7FF6q5zOJhr +QsXBNo4cERYKoE9q1qpoQX7ISZk4MRaSUb6QcHZ4A+y4WrDeX4qF6s7Mavzi +1AavNUKHSrDdfrh0kkraYBrSvzCLfeOlqoaZhzZoRdVPJK1lIWW/mg8/u7Rh +5Q2wzpXG8xaNqJHNOuC0VfHVpAwLycnIk4ouelBeuqaqXpGFNtyJFPiNaDAy +ZLvFWIuFfIjjc9p2NBg0Wzd4DjtLJb3Xy40GVo+ONfVhc+WWPngdTYPleYl9 +KRtYqOcGc196GQ342zaTn7RZ6HSW13UNFTq8WS16OEkPn+9ZGx1nXn24IuNB +4zdkoVvhqnsetxhAwcDW9q5tLNQWhTaduGMEV8QFkls9WEjJ46Ode+BWCHg1 +5lidwEKM5YoSuSMAnit6471zWUiKVbVSyscMVmReNTNqYaFIusnXdE0LKLSb +8tuygPtP/GkSY1oCI5v770q1cVRsFrEyp3U7KOYFRlW6jqO82YBnRRk7YSh8 +cTD64jj6uW3tu5cJuyCRO3E25/04+sbBNTPgbQvjTPcnYUITKFg25GKiym44 +HNfDqbl7ApUcbGq4nLwH/A2lPEszJ9DRH9ILWgf3QpJVhHVA7wSas7ZyavS0 +h4FsF08tnUlkdCBt28heBxhse2HOSJhEH6SvB7yk74MSZtbHC+8m0bq7x+sK +/nGELYaFHXdVp1BVv6aNnaATLOo1h4z8O4XkO6f9oiacwFcwhbm6eQrRL6cV +3e7fD/32f3Y6iE2j69w/dNJfOIOxrKn3BdNpVLFNtye52gWYarpaz4OmUdam +MyJ/Cl1haMTBy/jaNGr9cieFfu4AlJyIfRXXOI0e215TDT3mBgpfXHXWzk+j +mSAHjmDCHXQtZX5LKM2gOSsN/0lzD2j+JyD8jPUMKpjo/hlh6Akav/zvJUXN +IOdbd3zdBbwgrX/+meuNGVT+cJcn10kv2BdXq8nRNIOMZD78Ov3LC5ySn0rT +JmaQSr9fT/tBb4j+EkXrEaLQ8OpDu68NeUNZf6S0Np1Cbal2vtsdfUCHORfa +vJdCGdE5qw+3+UCS4vdU7VAK1dUv//Ld6QtZSl+NZs9QSMgNTtJrfKGk+4w3 +zy0KKYo3tsrW+YK/1mS+B7Zei+1a3npf6CmMrajEtjc5cO/zM1+4zjWhdTAX +58tGNce98QV5k+6oN7cptO7bfaGmz77QoTqalHCXQqoeUlluC77wys1D7dl9 +Chl5TRYk6xMwnbvFMOsxhe5mT0fYGRIgETW0qRdbvIMyldpMAE/DWV7VCgpN +Wi50FmwhoK/oCX8pdp4Wx4oWMwK2tjQWP6+k0JoFERfRvQSUKKbu76/G+3He +YFVOEAHUiRauuScU2tu4qdMvhICkMMYV/XoK1XMY5+iFERDym28uAjs7wtTg +eSQBbrn2khS2nct275EYAl5cUR1jPaVQtapLtdYZApYuRz//+IxCqbWxB6vu +EhB0ulox6RWFgmiZRtEFBCicD+Crwba5V7ZqcyEBHtmOT2aw+TNH71UWE/Bt +oiHV6zWFksP3MCse4fnyUeuWRgrFaqgeevycADn6qWdjTRQKyGwOfNhLwPPH +tdtkWyi0c82oSXg/ATVxq17ZYv+TzCFIGyTA+n2neAL2aLhBcdkIAX6sd9ID +2N52ORMPxgnIjHtQlfuOQs48EcGliwRcuB1rKdtKoe0R60KLJBlgcTc5aqyd +Qs9zUqzT1zLAPfyuqtQHCpm0UKrR6xjwVd/7siW2nlpzt7k8AxSXz9bfwpbu +ijH/osaARHEB3f0dFGIZf5PkN2BA0IuY4xWdFLrAefOJnwMDGIHf26268Py6 +Alm2jgwQIn40BmGfOBAdTt/PgJnbAwkZ2NGP9qxfdmWAsK+TwQC2N7ki7YoP +A05Filb8+5lC9Lc+xKswBtQ4xPJnd1OoK01ttcpFBvxU4+gt+kKhEiToP5bG +AL4fD3+8wT4xMfuy+BIDrr5u/TCKTdv5Mn5zJgN2SBlPKHzF58fhS9neYIBe +d2T6BWyrkJvd0UUMYLqUXyW+UUhO7pShaQkDarUSreKxZ9+GXOJ6wIBSw5Sa +TOxcdWSbWs6AQiXNpTfYf799a7hdw4DK9pM/tHop9MhGpuB9EwOqr6hkjGCf +XeTkyXjLgJjFNe2/sX0KmN4uLQyIk+PpEumjkDB3jcxwKwM2eq803YodWOt8 +4dcnBqw/IRedhq2ieSVKdYQBDTbh/9Ptp9BiV1zH91EGrHEeIs2w25IZeqVj +uC+v0Z992PED+kyjcQYs3D2deAS7J6vDffcPBmxrPDH/FDt9pYjl0RUkzOjL +nzIbwP8D6tuBSC4S+B475jtg//etMDyYhwSF4epEAtvkkcVNn1Uk3D+15JeM +PeoV/dtahISUIsPFF9jCNpailmIk/FVIoz5gb9kkqoEkSFCq5rk7gH1RsMiJ +Lk0C66O+6RJ7vaavTEaJhEMmYXT9QQqRd4qaJFRIsFzny70N++LFI31CaiRo +SnhetMUeJcUEuTVIsJIN7maw18W2+4/rkfC0qlL3EnbNkljCKI2E94lvPl/H +Hvnef7lfnwSdgS6TAmzjhqMvOjeTYOExbFCHPRxYIv8ESAgkMlj92GucYwwq +zXB+kU/gd2wj8x02ZRYkXE5RLpjBTpUePHJnBwlVuuF7VgxRqIq79GKONQkm +Fct1fNhDUzH52TYk3DE9OiyEvfm1xMfze0jQp9MIOWyfskHWSXsSMvOD6lSw +z18r5UzaR4KdTnqrBvZg+E69KGcSBmbS1Q2wBT0kt4e6kpB0MijAmJ23c8g9 +wI2E5X7tg4j9vULcWQ8vEnqW3TJ3sPvwW+c6+5CQFvz2tQ07b06y2p4g4eOP +dWV72HkDQ602JAnxf22d9rHzWh6MWvmTEMvlW7Gf3a8y7i8EkNB60qXdlZ2f +ay2+JZCEDMmN+e7s/PNSWgbBJExaft/kxc6PHt6mG4rvR0XicR9sAaLMWSOc +hKMii6cJ7E2740NUIknwFrDfRbLzjXelyEWRYM843eiHfU5t7XWpaBK+DOcs ++WNXCI+UixwlIcf98vRB7IHfZW9Xx5LgXHTwegA7/7/4AZ54EtorZXkOYRt+ +2PVzOYGE76El69n+P3zuTdY= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5986424829233534, - 1.5968711170700145`}}, + "PlotRange" -> {{0, 180}, {0.842537728668589, + 1.1805221128516286`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5986424829233548}, + "AxesOrigin" -> {0, 0.8425377286685909}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.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 +6343,132 @@ i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5986424829233534, - 1.5968711170700145`}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5986424829233548}, + "PlotRange" -> {{0, 180}, {0.842537728668589, 1.1805221128516286`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.8425377286685909}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 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:eJwV1Hk0Vd0bB3CZkshMMo+9yNC9KJL9ZKqEigiZnXtIZvIqUxTNihR+DUqK +ZEjKnDRSFKJEZebVvcaToVT89v3jrLM+a6/zXd9n772Okk+IPYOTg4NjAj/s +d9h7nfWVbe9NuYaaSkTmmch0Ms/Ax6IIlW588p7t/hzDDFWLOtQ5lakjir2H +eMcrQH+FFmRc3rNdFp3wgseiBZ0t5ygRwz79em1DQmE7WnqY+k4cu7ot7MYf +2kfUJsGlLYnN7Hkbe6T2M9r7yb1FCnvdiMqBefOvaGnixn1p7F1TsUYRLX3I +1vH1Wxns+j/M1dGFAyiOq1NDHvtTolRMRfAQGptsbFLEnuS1YM7SRpCgYG6+ +CjbvuVAX+sIo0rT3ea2OLS9yvSmsdgxdKeNT08S2k5m/O2k+joJPrszdiE3e +VJbU5ptEcX2eDQbYCWq7kw+1TKFl8RvyxtifpTo3RhbOIKe25v+ZYxOuAQcv +naPQOd3aqh3Y09c4bj0M/oGEFS5K2mHzKWsLz9DmENd+ZpoLdgbxYruwxDzK +Cw0p9cRWzHdJ0F2YR5uedAuQ2Js3pEwG1f5Ev1PcT0Zg+xv2tTDN/6CzjfIx +adiz0Ye5+dX/ovuH3mZmYx+rXW2iwbeEXPa7zt7CzoLN9/1alpF4rHpQObvf +nSaL8MIVcIkr0L0bu/D1pf5EGU54RBkcGWL3/c8jNu0cJ3T8GeycwI7VnCt/ +EMwFblUju7gWcN9SJZUpGg9smz61eSN2T9t4/dJtHuAZJB22YitSla5rJHhh ++Jh6yU7sIn27dO0FXtj4Z6eKL/bL6qMrAmv54Pl6WYFs7LkXHX1j5gJAzNR2 +Cf9kIlEbAeGYegFQOKpqp4yt12kBgkaCcNXqupA+dsDw45sbddYAcqyPcMYO +5WzR2yogDDk3HzXkYY8ol8wkz4vAPS7FoF2/8P6Qb1e10kWh+I13hjc25/1R +pbVhouDZVcwbja1IV7AvZImCvLRvyx1sV/OLD9/3i4GdsOFX7kUmavUNj5Bq +loCBaSnBduze/NSzXnySwDzRNMzCHmcV3r5nKQl1CzErV/5mIv7IoY4tDZIw +H/hd2xTb4sQ+fa/HUlAy2bpUil2TZzhXkCMNaq57H9z6w0R5I4tRxpFycBrx +2z1ZYqIdjid7I4rlYL2srWwf9vhLMaviUTnoCBnRWrHMRPp5GyQUXeSh3Vhc +yAr7pY9HOY+pAjxwdB35gE1N9f87dlwRDhRyt//kYCGxIItH5bbKYGjw783D +XCw0msfvvydAGVxWmWTlYFd9bZOZSFEGW1Wz9jfYbjbux9UblGHZTWilAjcL +5WlF2WfTVCDqa3ZiC7Y+M386XkoVag81l9F5WWif32pt6wE1aJXe/ou2ioVQ +lCNt/1812EoPlyGwNZNzNhHS6rDweWvsZWyO23Sz+L3qYHKl/NdP7OLeA/sf +PlOHBxs5h5/zsxCvU1Hiutz18FYn4rCPAO5nYfuJ6aMBNz7mJbcJsdBth8wv +C/Ea0DaCjq4SZqFUn4F+7qsaMNfqWWyGTRw7zJLv0ICnYZqtj7FF6q5zOJhr +QsXBNo4cERYKoE9q1qpoQX7ISZk4MRaSUb6QcHZ4A+y4WrDeX4qF6s7Mavzi +1AavNUKHSrDdfrh0kkraYBrSvzCLfeOlqoaZhzZoRdVPJK1lIWW/mg8/u7Rh +5Q2wzpXG8xaNqJHNOuC0VfHVpAwLycnIk4ouelBeuqaqXpGFNtyJFPiNaDAy +ZLvFWIuFfIjjc9p2NBg0Wzd4DjtLJb3Xy40GVo+ONfVhc+WWPngdTYPleYl9 +KRtYqOcGc196GQ342zaTn7RZ6HSW13UNFTq8WS16OEkPn+9ZGx1nXn24IuNB +4zdkoVvhqnsetxhAwcDW9q5tLNQWhTaduGMEV8QFkls9WEjJ46Ode+BWCHg1 +5lidwEKM5YoSuSMAnit6471zWUiKVbVSyscMVmReNTNqYaFIusnXdE0LKLSb +8tuygPtP/GkSY1oCI5v770q1cVRsFrEyp3U7KOYFRlW6jqO82YBnRRk7YSh8 +cTD64jj6uW3tu5cJuyCRO3E25/04+sbBNTPgbQvjTPcnYUITKFg25GKiym44 +HNfDqbl7ApUcbGq4nLwH/A2lPEszJ9DRH9ILWgf3QpJVhHVA7wSas7ZyavS0 +h4FsF08tnUlkdCBt28heBxhse2HOSJhEH6SvB7yk74MSZtbHC+8m0bq7x+sK +/nGELYaFHXdVp1BVv6aNnaATLOo1h4z8O4XkO6f9oiacwFcwhbm6eQrRL6cV +3e7fD/32f3Y6iE2j69w/dNJfOIOxrKn3BdNpVLFNtye52gWYarpaz4OmUdam +MyJ/Cl1haMTBy/jaNGr9cieFfu4AlJyIfRXXOI0e215TDT3mBgpfXHXWzk+j +mSAHjmDCHXQtZX5LKM2gOSsN/0lzD2j+JyD8jPUMKpjo/hlh6Akav/zvJUXN +IOdbd3zdBbwgrX/+meuNGVT+cJcn10kv2BdXq8nRNIOMZD78Ov3LC5ySn0rT +JmaQSr9fT/tBb4j+EkXrEaLQ8OpDu68NeUNZf6S0Np1Cbal2vtsdfUCHORfa +vJdCGdE5qw+3+UCS4vdU7VAK1dUv//Ld6QtZSl+NZs9QSMgNTtJrfKGk+4w3 +zy0KKYo3tsrW+YK/1mS+B7Zei+1a3npf6CmMrajEtjc5cO/zM1+4zjWhdTAX +58tGNce98QV5k+6oN7cptO7bfaGmz77QoTqalHCXQqoeUlluC77wys1D7dl9 +Chl5TRYk6xMwnbvFMOsxhe5mT0fYGRIgETW0qRdbvIMyldpMAE/DWV7VCgpN +Wi50FmwhoK/oCX8pdp4Wx4oWMwK2tjQWP6+k0JoFERfRvQSUKKbu76/G+3He +YFVOEAHUiRauuScU2tu4qdMvhICkMMYV/XoK1XMY5+iFERDym28uAjs7wtTg +eSQBbrn2khS2nct275EYAl5cUR1jPaVQtapLtdYZApYuRz//+IxCqbWxB6vu +EhB0ulox6RWFgmiZRtEFBCicD+Crwba5V7ZqcyEBHtmOT2aw+TNH71UWE/Bt +oiHV6zWFksP3MCse4fnyUeuWRgrFaqgeevycADn6qWdjTRQKyGwOfNhLwPPH +tdtkWyi0c82oSXg/ATVxq17ZYv+TzCFIGyTA+n2neAL2aLhBcdkIAX6sd9ID +2N52ORMPxgnIjHtQlfuOQs48EcGliwRcuB1rKdtKoe0R60KLJBlgcTc5aqyd +Qs9zUqzT1zLAPfyuqtQHCpm0UKrR6xjwVd/7siW2nlpzt7k8AxSXz9bfwpbu +ijH/osaARHEB3f0dFGIZf5PkN2BA0IuY4xWdFLrAefOJnwMDGIHf26268Py6 +Alm2jgwQIn40BmGfOBAdTt/PgJnbAwkZ2NGP9qxfdmWAsK+TwQC2N7ki7YoP +A05Filb8+5lC9Lc+xKswBtQ4xPJnd1OoK01ttcpFBvxU4+gt+kKhEiToP5bG +AL4fD3+8wT4xMfuy+BIDrr5u/TCKTdv5Mn5zJgN2SBlPKHzF58fhS9neYIBe +d2T6BWyrkJvd0UUMYLqUXyW+UUhO7pShaQkDarUSreKxZ9+GXOJ6wIBSw5Sa +TOxcdWSbWs6AQiXNpTfYf799a7hdw4DK9pM/tHop9MhGpuB9EwOqr6hkjGCf +XeTkyXjLgJjFNe2/sX0KmN4uLQyIk+PpEumjkDB3jcxwKwM2eq803YodWOt8 +4dcnBqw/IRedhq2ieSVKdYQBDTbh/9Ptp9BiV1zH91EGrHEeIs2w25IZeqVj +uC+v0Z992PED+kyjcQYs3D2deAS7J6vDffcPBmxrPDH/FDt9pYjl0RUkzOjL +nzIbwP8D6tuBSC4S+B475jtg//etMDyYhwSF4epEAtvkkcVNn1Uk3D+15JeM +PeoV/dtahISUIsPFF9jCNpailmIk/FVIoz5gb9kkqoEkSFCq5rk7gH1RsMiJ +Lk0C66O+6RJ7vaavTEaJhEMmYXT9QQqRd4qaJFRIsFzny70N++LFI31CaiRo +SnhetMUeJcUEuTVIsJIN7maw18W2+4/rkfC0qlL3EnbNkljCKI2E94lvPl/H +Hvnef7lfnwSdgS6TAmzjhqMvOjeTYOExbFCHPRxYIv8ESAgkMlj92GucYwwq +zXB+kU/gd2wj8x02ZRYkXE5RLpjBTpUePHJnBwlVuuF7VgxRqIq79GKONQkm +Fct1fNhDUzH52TYk3DE9OiyEvfm1xMfze0jQp9MIOWyfskHWSXsSMvOD6lSw +z18r5UzaR4KdTnqrBvZg+E69KGcSBmbS1Q2wBT0kt4e6kpB0MijAmJ23c8g9 +wI2E5X7tg4j9vULcWQ8vEnqW3TJ3sPvwW+c6+5CQFvz2tQ07b06y2p4g4eOP +dWV72HkDQ602JAnxf22d9rHzWh6MWvmTEMvlW7Gf3a8y7i8EkNB60qXdlZ2f +ay2+JZCEDMmN+e7s/PNSWgbBJExaft/kxc6PHt6mG4rvR0XicR9sAaLMWSOc +hKMii6cJ7E2740NUIknwFrDfRbLzjXelyEWRYM843eiHfU5t7XWpaBK+DOcs ++WNXCI+UixwlIcf98vRB7IHfZW9Xx5LgXHTwegA7/7/4AZ54EtorZXkOYRt+ +2PVzOYGE76El69n+P3zuTdY= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5986424829233534, 1.5968711170700145`}}, + "PlotRange" -> {{0, 180}, {0.842537728668589, 1.1805221128516286`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5986424829233548}, + "AxesOrigin" -> {0, 0.8425377286685909}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 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 +6478,8 @@ i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.5986424829233548}, + AxesOrigin->{0, 0.8425377286685909}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -1719,7 +6507,8 @@ i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.5986424829233534, 1.5968711170700145`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.842537728668589, 1.1805221128516286`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -1727,9 +6516,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.994013574606464*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"b1e19d25-10aa-4ccd-9507-4ad3364fbbba"] }, Open ]], Cell[CellGroupData[{ @@ -1744,30 +6532,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[{"-", @@ -1792,262 +6583,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\\\", \ + "\"\\!\\(\\*FractionBox[\\\"3.2935679594750416`*^-272\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 95, 9, + 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339493498577*^9, 3.994013574978961*^9}, + CellLabel-> + "During evaluation of \ +In[95]:=",ExpressionUUID->"f36b8d41-3364-4475-b03b-c48203e36fc4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.505083403373817`*^-284\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 95, + 10, 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339493498577*^9, 3.9940135749914103`*^9}, + CellLabel-> + "During evaluation of \ +In[95]:=",ExpressionUUID->"86d3516d-9439-43cf-a714-066b7c9d9933"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.877878577226553`*^-297\\\", \ \\\"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, + 11, 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339493498577*^9, 3.994013574999399*^9}, CellLabel-> "During evaluation of \ -In[335]:=",ExpressionUUID->"53d31480-3c5e-ef4a-987b-a232cf0b03f3"], - -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}, - 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->"9c1f2c1a-8678-4145-b8a2-b56d4204407d"], 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, 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339493498577*^9, 3.994013575007922*^9}, CellLabel-> "During evaluation of \ -In[335]:=",ExpressionUUID->"07354318-4dcc-6049-94e1-9227bd3406fc"], +In[95]:=",ExpressionUUID->"9923a251-639a-485e-a039-262f82ea394f"], 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:eJwV1nk8FesbAHA/JCpu1uyc48w5ji1kz+l5LCWnRdq5cUJolWRN5VRI2kTc +QoUQZ+YW0kLaUElKybXnVtJCtrLH9Zv+mM98vp+Z931nnnne5xmG7961/uJi +YmLT9PH7PNr5vJp1MneJ8n7d7KLZVksaL6tGObQcheH/Fs7dYKkEqFzvq9qS +DFtmtFI4liwIXyNqlmjJgem/73yda2kB8v0LkieaS8D4i6lnj4Uz/Fuxeu9w +cyU8Ed65nmixHpaxet4NNTeAVWzeJp1F22Ci2Tp1sPkjKFTWpR80DoUqp2u5 +b3J+wofdZr3532NB89+yz75G0zBso2wo3XYGlHYLRLOdJPDL8POf4/rnIdls +2b3VG6TxUtKEiq76RWi9YPpoaL4s1lR0xWgevgQnc2PqxdXk0eF1HPvzryxY +cL7rRMolRYyYsjj9VfIqHF/vuqRhVBmZqbOcHSpzYb9ttuD5UVX03vnj1aGw +fHAemDwQ1KWOo+nMorSOa3DE3t1H3UYLV0Q/0KHkCmG59+Uf1o5amBzQ5xOu +WAhywt5jG1ZqYVB1mBVPtRAyq+Lyk7ZqYcbn7NRHjEK4yy/vlTqhhaTHFHHZ +ohAGN+uF/2zVQqPybq9Sj0LwDhtJrIvWRv5T57oV2YVgd/1i6eGHOvgu4Oki +bbYInJtfTffX6GCT7RdhDVcEq8UkXQQNOvg25X+1e41F4Lc2qBW6dfAfl2m3 +WxYiWBbNiBHO0sXYPVwDTScRBOuMXnUw1MX3A6PyHgIRVAde6asK18VxM2bO +2VQRuE7ZKhyM1sXs8sGA1gsieJXUaGUh1MXpd1c4upkiaC2TEeae0EV+SGVm +bo4I+ueGKsRl6uLHPdxNJ26IQLVoufWySl2csWlSqawRwe7xIWGNLAO7Pu01 +GxoXgd2+AJXPCgx8uq9lRnVKBNI9baSEKgOl8xKX8mZEkNde1bSEycBfmmut +o2eR0Pkg1eiWFQNNCMe7dfIkuMXZtmQLGFhl/XjNUy4J5gpHFkYXM/DBHpV5 +yptIEDs5Un3hNgMPqjxUqPMg4ZXETs/b9xiYxViVFrOFhF0ja+OGnjDQXfc/ +pQ4fEnJbWO2BbQxsvqU1tnM3CSpXauLXSzDx9jyJ2PdCEiYM53cab2AiW/Zq +itE1EkYvqR9Z5MlEkfTf8jsKSRj+g2DZCpj4qcTfMockof+n7U7nHUws+CG/ +d04RCR/v+Y16HmJiWnblzZK7JNSuuCOXkMfEq+XSNb7PSUjf5Q0fR5hotEl8 +p9NXEv56t/3jl0l6/Jtqe+UeEs677Y/rm2Hi2ZOfH3b1knBmUcKLcRk9THau +aQkfIOHor+JNf2jrobEfKQgbpd/v5Kxg+2V62GNtotYoQYE9SWWlpelhgZeX +soYmBe265JWlGXp4I29l/C4tCg6kFV4evqKHb3aGMMq0KbhzJD9zbSHtoJbm +FQwKzDdnXZCr0EObjO1ubmwKuLPOJ8V/0EOw7rr/aiEFNQeSz1p+1sPNE2oz +Q6YUBAwmnfnUo4d89b+CFcwpyG0/fcpxWA8ZI2PdfAsKdEuOJ/wnxcJLs8KI +dBsKVATRwnAjFrZ1NriXIAW3GqNiCDMWbrh95VmBAwXr+ZGHGy1ZeD94UWim +IwXJlmEHzYGFCq+990c7UyA7b29kvzsLrw5fU1ZdToFkmW9wQAQLd9Uf5tet +puCqic9e5YMsNGATW9PcKHDMFQRVC1k4RyS86bWGgpizW3YzE1m4Lp6h/Mmd +gkn/jds7M1m4bazwdf16CoYU+Fs3VrLQf4XRWT1PClp2M1/vfEavH6A4/or2 +o6eTEFNH3x9cbxDxJwVJB0idgiYWBvWbDt7fQoHpx3n/TvSwMEP56lxCQIGq +ffdquUEW8p2sG2/TFku7/4A5wsJqpdhdS7dSUO8adHnFDAtjpKqlPXwoCCqu +97qkSGBCvu8fnn4UbJxb8LJYlcCX53mCBtpL/IW8p1oECkxbjrpso+OhZqY1 +wCGQcG9z0fenYDhE5rSEMYH5jMSeFNoddR+mFpgTGG+Z6DdFmxImd6A9geKU +fHtVAAXn23au3OBAoLCgu40ZSMFBC6eKHcsIDNe4evMw7RVff2YkryEwNSrq +h9F2CnrcNvz5aRuBrTvm3vXbQUFDofGL8R0Efrt++Vwh7XIJqcWyewn88Weg +63faJ+7cVreKInDft+Ubt++kIFj+bCL/MIGOKveobNqbdwVOeh8jUNVJ+VMz +bX0d1bbjpwmUGLAdt9tFwfyoQdfMZAJvfvRpCqQ93lBTVvQXgTIPjS6co/3e +KJv7JJPAqAT+kru0a+KjLrZm0+Of7XreTrvovbtMfz6BTXEOdlO0L9gZRIlT +BMqtO3RObTcFwvPi31SKCQyAN/WLaAf2t202vE1gx7uBET7t1ctv1sA9AsOc +TkkKaFvlnLRZ/4jA91KeU3tpa0/5FWx/QqAFynYeoi210V71UC2B5xI8RQm0 ++28oJZyrJ/DzxKhPEu0mmb6xvEYCk0wuzEql/cDvSWB5K4HKDsOpabTz719q +ftVJ4NsXjxV/Xz+zINylq4vA4q93Yn6PD9+3+s7YVwJfmZ5p+z2/9ws2Z14/ +gVYVU6zDtJcSM2m6Pwk8zagQBNM2immWshwnsDos7uTv51dqvRHuOk3gixUK +hStoT5knfPYSZ+PiUs0yC9qfTm3dGDKbjXN5ggp12kE9RkzTeWwMK5a6N0PH +b8xloq9vPhvlrUsVPtIW5j0pI5XZKMgXq35Me45EctwOdTYqWMXVX6Z9fqu3 +O0eHjZ0H2i2jaGs9MNDq1mMjP/DS2BraplFVpVuN2ZjZ+PLsOP39y5vOCrXN +2RgpGxJYQ9vJYsvKDis27vbqy0ylvXFguGsTsjHuRouePu33Kx/fUF7Kxtlu +R8L76HzbKTod/daVjQMQwi2ifcifrei2jl7fKafEmLZU1Y/OeZvZmNigmfiV +zuck3Yei2i1s3F+4sTpr++/6tclxWQAbs+cf85OhXet+Yh8vio2rik2879H7 +Zf2NDbxfh+j4DM338qH9bh5TpuwoG/t9i6skaQ8+K8+yOEV7rKTWid5vKku+ +1xteYaOeVMSbHHr/ZmXczfh2lY0ycVK6FrS5E7GB1wrY6Ou/o73Sl67fpVoz +zBI2JvnbZbTQ9cDPwM1E/Qkb/XSU3Lvp+vH9uMZk83M2jou5qPrSDu/+8iT1 +FRuznCPdO7wpSMwSesm3sHHd232az73o/FcpOSXdy8ailyqcWLpe2YUe3vx0 +gI3JnKSk73Q9q3rDZ8UOszEXl+9bS7vpVNe9mWk6fpoaGSoedH6IK/eOzufg +gfyeHOFGClwHIly7rTjoXmij1kHXU00z7Xhpew72HPrKmEe7P6S60tCBg3+v +PcOzpevv+dH59iErOHhopWVx4ioKOqcLTWYEHDyS5ZEzh09ByLwORbUTHPxs +URAcQ9d759VH19if4WCJ9Wv5I3Q/WJCkf1qQwkGNcMnGGLpfVCiGSeVf4qD4 +PeJh6BL6e2rITZiXcPB8cZCrvR0F6VzsXNnOwWdP48YdzSjYveuzevB7Dq6z +z1ZZQPcr+PvUppRuDqrcctn21YTOd9PW160DHPyi13XuqBEFJjYhVQGS+tib +yVmTyqHjsyy3QGisjzP3KvUt6f753U96f2mMPlaap3Zsk6Lf97Lz/Yex+ijc +H9zwRZKCgVbh7Bcn9PHfunaT7XQ//uE2kfEhRR8lS2V0fMTo/bO4p1quQB89 +/beNLpokQVypTmXHa328ttzQzbuPBLXqs+VaDC6WWWVw696QoD7zQpLL5qKS +uW7FdD0JmnbSbhaGXDxcJfbW6BUJ2kXCLr4lFwPis88dqyWBlblvXqQrF69P +z9mjWEWCaeg674Z9XHzsQ4Xcv0nS/+MLxI9XcrFIFBDpkELCN1+XgsXP6PWU +PB+7niPhVHbE6sEX9PzBA7/czpLwVrsl3eMfLp7809R140kStqpdXGT0lYsP +hYGe/GMkRMlp+L+RNcCwo4y5b0JIoMa1azQ8DNDv4nq+9xoSFF6yzxQNGODk +RtHXPPr/7r8B07zaYQP832KbwV/iJPQoLK74NGGAbt9O1bqJkVC52a1HVdIQ +WTJ1vwYnRbD/U8SyI6qGaLYlNEhtUASNv2r+c3cwxDDj08ck2kTwl8GuvT+T +DVEvsLfPiRKBZsKNNVZWRriyvXdJCV8EFwxt5ysGGuO6O13fI4SFUKvuYPnz +nAkWVzEFL68WgJ1mZdLCpoXoGDgduvzKNZCTyAn1OWqKiTYvOmYy8kH7iI69 +B9sMXe7v4AvC8kCG2HJ77TMzbHxZ12XPzwUTntqNCC9z3KEUy7pufBVCOhWq ++GKLsNK9tdZrNBsGfp7a4HphEZIVarmzGrPAZeHTdFdjC+ytMlZXDL0CD34u +/jX2ygLlDdPVX6pfgiAj87Y3/pYYLMctqBxLB17/tkYPGSvsbpAru192AZay +VFfJ5ljhNdlYPeHtNNAXJkZWWlujb2uGzZy358HA3/Yh0WaNS5VONL9+nwz+ +D7bHlu6zQUfv3pw73HPwMKtx25CyLV7skM3TbzoDwwUzYwvv2CIZZDeMeSfB +jyBl0lfZoTPZ8Vr6QwIMGaRYlQza4fz3c0meRjzczf31YSRhMebbrl+nWH4M +PJ31cLG2PU4mlI4kpR4BjT3Hy0we2WO4ydaCtr7DoDxnd/GqTTw0j3oSbbEp +GnKdDh0Y9OCh6hXdtBGXaDA/dMYpZQsPTz+b9L1vEw2rB4v+afHhYVrIPlkf +9WiIbxqZ8NvNw9HoReHj7w7AeE6M44EjPMyI/6IREHAA2hanvM0nedjKZtWY +HoyC7WG5ma7XeZiTn/Slek8UjF6/5f+9iIf9Og1HBYIoUGC2jJnd5iG7tIso +cIyCFdJamvcf8VDwOL0vXiYKKhrzt739h4ebIkanIi9EAl/urnF4Cw9Tymul +QxMjocXl+ahqOw9FISdCww5GwnB5b4L3ex56FD3cdnJrJBhnm/79rYeHa7bX +h0twI6GizSH8VB8PNxSUrTHToOdTWgcLB3m4dTjyoL9sJAQcD3sTOsLDPUoB +le+HImD4UXz6gnEedrfOaeV8ioCjk3/5lU/y8MHZELuwpgiYb1Fo5DVNP+9Q +86eamgi4vKd8ZGaGh4/3hjUx70XA/wGDci6b "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -2061,221 +6747,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:eJwV1nk8FesbAHA/JCpu1uyc48w5ji1kz+l5LCWnRdq5cUJolWRN5VRI2kTc +QoUQZ+YW0kLaUElKybXnVtJCtrLH9Zv+mM98vp+Z931nnnne5xmG7961/uJi +YmLT9PH7PNr5vJp1MneJ8n7d7KLZVksaL6tGObQcheH/Fs7dYKkEqFzvq9qS +DFtmtFI4liwIXyNqlmjJgem/73yda2kB8v0LkieaS8D4i6lnj4Uz/Fuxeu9w +cyU8Ed65nmixHpaxet4NNTeAVWzeJp1F22Ci2Tp1sPkjKFTWpR80DoUqp2u5 +b3J+wofdZr3532NB89+yz75G0zBso2wo3XYGlHYLRLOdJPDL8POf4/rnIdls +2b3VG6TxUtKEiq76RWi9YPpoaL4s1lR0xWgevgQnc2PqxdXk0eF1HPvzryxY +cL7rRMolRYyYsjj9VfIqHF/vuqRhVBmZqbOcHSpzYb9ttuD5UVX03vnj1aGw +fHAemDwQ1KWOo+nMorSOa3DE3t1H3UYLV0Q/0KHkCmG59+Uf1o5amBzQ5xOu +WAhywt5jG1ZqYVB1mBVPtRAyq+Lyk7ZqYcbn7NRHjEK4yy/vlTqhhaTHFHHZ +ohAGN+uF/2zVQqPybq9Sj0LwDhtJrIvWRv5T57oV2YVgd/1i6eGHOvgu4Oki +bbYInJtfTffX6GCT7RdhDVcEq8UkXQQNOvg25X+1e41F4Lc2qBW6dfAfl2m3 +WxYiWBbNiBHO0sXYPVwDTScRBOuMXnUw1MX3A6PyHgIRVAde6asK18VxM2bO +2VQRuE7ZKhyM1sXs8sGA1gsieJXUaGUh1MXpd1c4upkiaC2TEeae0EV+SGVm +bo4I+ueGKsRl6uLHPdxNJ26IQLVoufWySl2csWlSqawRwe7xIWGNLAO7Pu01 +GxoXgd2+AJXPCgx8uq9lRnVKBNI9baSEKgOl8xKX8mZEkNde1bSEycBfmmut +o2eR0Pkg1eiWFQNNCMe7dfIkuMXZtmQLGFhl/XjNUy4J5gpHFkYXM/DBHpV5 +yptIEDs5Un3hNgMPqjxUqPMg4ZXETs/b9xiYxViVFrOFhF0ja+OGnjDQXfc/ +pQ4fEnJbWO2BbQxsvqU1tnM3CSpXauLXSzDx9jyJ2PdCEiYM53cab2AiW/Zq +itE1EkYvqR9Z5MlEkfTf8jsKSRj+g2DZCpj4qcTfMockof+n7U7nHUws+CG/ +d04RCR/v+Y16HmJiWnblzZK7JNSuuCOXkMfEq+XSNb7PSUjf5Q0fR5hotEl8 +p9NXEv56t/3jl0l6/Jtqe+UeEs677Y/rm2Hi2ZOfH3b1knBmUcKLcRk9THau +aQkfIOHor+JNf2jrobEfKQgbpd/v5Kxg+2V62GNtotYoQYE9SWWlpelhgZeX +soYmBe265JWlGXp4I29l/C4tCg6kFV4evqKHb3aGMMq0KbhzJD9zbSHtoJbm +FQwKzDdnXZCr0EObjO1ubmwKuLPOJ8V/0EOw7rr/aiEFNQeSz1p+1sPNE2oz +Q6YUBAwmnfnUo4d89b+CFcwpyG0/fcpxWA8ZI2PdfAsKdEuOJ/wnxcJLs8KI +dBsKVATRwnAjFrZ1NriXIAW3GqNiCDMWbrh95VmBAwXr+ZGHGy1ZeD94UWim +IwXJlmEHzYGFCq+990c7UyA7b29kvzsLrw5fU1ZdToFkmW9wQAQLd9Uf5tet +puCqic9e5YMsNGATW9PcKHDMFQRVC1k4RyS86bWGgpizW3YzE1m4Lp6h/Mmd +gkn/jds7M1m4bazwdf16CoYU+Fs3VrLQf4XRWT1PClp2M1/vfEavH6A4/or2 +o6eTEFNH3x9cbxDxJwVJB0idgiYWBvWbDt7fQoHpx3n/TvSwMEP56lxCQIGq +ffdquUEW8p2sG2/TFku7/4A5wsJqpdhdS7dSUO8adHnFDAtjpKqlPXwoCCqu +97qkSGBCvu8fnn4UbJxb8LJYlcCX53mCBtpL/IW8p1oECkxbjrpso+OhZqY1 +wCGQcG9z0fenYDhE5rSEMYH5jMSeFNoddR+mFpgTGG+Z6DdFmxImd6A9geKU +fHtVAAXn23au3OBAoLCgu40ZSMFBC6eKHcsIDNe4evMw7RVff2YkryEwNSrq +h9F2CnrcNvz5aRuBrTvm3vXbQUFDofGL8R0Efrt++Vwh7XIJqcWyewn88Weg +63faJ+7cVreKInDft+Ubt++kIFj+bCL/MIGOKveobNqbdwVOeh8jUNVJ+VMz +bX0d1bbjpwmUGLAdt9tFwfyoQdfMZAJvfvRpCqQ93lBTVvQXgTIPjS6co/3e +KJv7JJPAqAT+kru0a+KjLrZm0+Of7XreTrvovbtMfz6BTXEOdlO0L9gZRIlT +BMqtO3RObTcFwvPi31SKCQyAN/WLaAf2t202vE1gx7uBET7t1ctv1sA9AsOc +TkkKaFvlnLRZ/4jA91KeU3tpa0/5FWx/QqAFynYeoi210V71UC2B5xI8RQm0 ++28oJZyrJ/DzxKhPEu0mmb6xvEYCk0wuzEql/cDvSWB5K4HKDsOpabTz719q +ftVJ4NsXjxV/Xz+zINylq4vA4q93Yn6PD9+3+s7YVwJfmZ5p+z2/9ws2Z14/ +gVYVU6zDtJcSM2m6Pwk8zagQBNM2immWshwnsDos7uTv51dqvRHuOk3gixUK +hStoT5knfPYSZ+PiUs0yC9qfTm3dGDKbjXN5ggp12kE9RkzTeWwMK5a6N0PH +b8xloq9vPhvlrUsVPtIW5j0pI5XZKMgXq35Me45EctwOdTYqWMXVX6Z9fqu3 +O0eHjZ0H2i2jaGs9MNDq1mMjP/DS2BraplFVpVuN2ZjZ+PLsOP39y5vOCrXN +2RgpGxJYQ9vJYsvKDis27vbqy0ylvXFguGsTsjHuRouePu33Kx/fUF7Kxtlu +R8L76HzbKTod/daVjQMQwi2ifcifrei2jl7fKafEmLZU1Y/OeZvZmNigmfiV +zuck3Yei2i1s3F+4sTpr++/6tclxWQAbs+cf85OhXet+Yh8vio2rik2879H7 +Zf2NDbxfh+j4DM338qH9bh5TpuwoG/t9i6skaQ8+K8+yOEV7rKTWid5vKku+ +1xteYaOeVMSbHHr/ZmXczfh2lY0ycVK6FrS5E7GB1wrY6Ou/o73Sl67fpVoz +zBI2JvnbZbTQ9cDPwM1E/Qkb/XSU3Lvp+vH9uMZk83M2jou5qPrSDu/+8iT1 +FRuznCPdO7wpSMwSesm3sHHd232az73o/FcpOSXdy8ailyqcWLpe2YUe3vx0 +gI3JnKSk73Q9q3rDZ8UOszEXl+9bS7vpVNe9mWk6fpoaGSoedH6IK/eOzufg +gfyeHOFGClwHIly7rTjoXmij1kHXU00z7Xhpew72HPrKmEe7P6S60tCBg3+v +PcOzpevv+dH59iErOHhopWVx4ioKOqcLTWYEHDyS5ZEzh09ByLwORbUTHPxs +URAcQ9d759VH19if4WCJ9Wv5I3Q/WJCkf1qQwkGNcMnGGLpfVCiGSeVf4qD4 +PeJh6BL6e2rITZiXcPB8cZCrvR0F6VzsXNnOwWdP48YdzSjYveuzevB7Dq6z +z1ZZQPcr+PvUppRuDqrcctn21YTOd9PW160DHPyi13XuqBEFJjYhVQGS+tib +yVmTyqHjsyy3QGisjzP3KvUt6f753U96f2mMPlaap3Zsk6Lf97Lz/Yex+ijc +H9zwRZKCgVbh7Bcn9PHfunaT7XQ//uE2kfEhRR8lS2V0fMTo/bO4p1quQB89 +/beNLpokQVypTmXHa328ttzQzbuPBLXqs+VaDC6WWWVw696QoD7zQpLL5qKS +uW7FdD0JmnbSbhaGXDxcJfbW6BUJ2kXCLr4lFwPis88dqyWBlblvXqQrF69P +z9mjWEWCaeg674Z9XHzsQ4Xcv0nS/+MLxI9XcrFIFBDpkELCN1+XgsXP6PWU +PB+7niPhVHbE6sEX9PzBA7/czpLwVrsl3eMfLp7809R140kStqpdXGT0lYsP +hYGe/GMkRMlp+L+RNcCwo4y5b0JIoMa1azQ8DNDv4nq+9xoSFF6yzxQNGODk +RtHXPPr/7r8B07zaYQP832KbwV/iJPQoLK74NGGAbt9O1bqJkVC52a1HVdIQ +WTJ1vwYnRbD/U8SyI6qGaLYlNEhtUASNv2r+c3cwxDDj08ck2kTwl8GuvT+T +DVEvsLfPiRKBZsKNNVZWRriyvXdJCV8EFwxt5ysGGuO6O13fI4SFUKvuYPnz +nAkWVzEFL68WgJ1mZdLCpoXoGDgduvzKNZCTyAn1OWqKiTYvOmYy8kH7iI69 +B9sMXe7v4AvC8kCG2HJ77TMzbHxZ12XPzwUTntqNCC9z3KEUy7pufBVCOhWq ++GKLsNK9tdZrNBsGfp7a4HphEZIVarmzGrPAZeHTdFdjC+ytMlZXDL0CD34u +/jX2ygLlDdPVX6pfgiAj87Y3/pYYLMctqBxLB17/tkYPGSvsbpAru192AZay +VFfJ5ljhNdlYPeHtNNAXJkZWWlujb2uGzZy358HA3/Yh0WaNS5VONL9+nwz+ +D7bHlu6zQUfv3pw73HPwMKtx25CyLV7skM3TbzoDwwUzYwvv2CIZZDeMeSfB +jyBl0lfZoTPZ8Vr6QwIMGaRYlQza4fz3c0meRjzczf31YSRhMebbrl+nWH4M +PJ31cLG2PU4mlI4kpR4BjT3Hy0we2WO4ydaCtr7DoDxnd/GqTTw0j3oSbbEp +GnKdDh0Y9OCh6hXdtBGXaDA/dMYpZQsPTz+b9L1vEw2rB4v+afHhYVrIPlkf +9WiIbxqZ8NvNw9HoReHj7w7AeE6M44EjPMyI/6IREHAA2hanvM0nedjKZtWY +HoyC7WG5ma7XeZiTn/Slek8UjF6/5f+9iIf9Og1HBYIoUGC2jJnd5iG7tIso +cIyCFdJamvcf8VDwOL0vXiYKKhrzt739h4ebIkanIi9EAl/urnF4Cw9Tymul +QxMjocXl+ahqOw9FISdCww5GwnB5b4L3ex56FD3cdnJrJBhnm/79rYeHa7bX +h0twI6GizSH8VB8PNxSUrTHToOdTWgcLB3m4dTjyoL9sJAQcD3sTOsLDPUoB +le+HImD4UXz6gnEedrfOaeV8ioCjk3/5lU/y8MHZELuwpgiYb1Fo5DVNP+9Q +86eamgi4vKd8ZGaGh4/3hjUx70XA/wGDci6b "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "PlotRange" -> {{0, 30}, {0., 0.05551596241469007}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +6865,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.05551596241469007}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +6891,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:eJwV1nk8FesbAHA/JCpu1uyc48w5ji1kz+l5LCWnRdq5cUJolWRN5VRI2kTc +QoUQZ+YW0kLaUElKybXnVtJCtrLH9Zv+mM98vp+Z931nnnne5xmG7961/uJi +YmLT9PH7PNr5vJp1MneJ8n7d7KLZVksaL6tGObQcheH/Fs7dYKkEqFzvq9qS +DFtmtFI4liwIXyNqlmjJgem/73yda2kB8v0LkieaS8D4i6lnj4Uz/Fuxeu9w +cyU8Ed65nmixHpaxet4NNTeAVWzeJp1F22Ci2Tp1sPkjKFTWpR80DoUqp2u5 +b3J+wofdZr3532NB89+yz75G0zBso2wo3XYGlHYLRLOdJPDL8POf4/rnIdls +2b3VG6TxUtKEiq76RWi9YPpoaL4s1lR0xWgevgQnc2PqxdXk0eF1HPvzryxY +cL7rRMolRYyYsjj9VfIqHF/vuqRhVBmZqbOcHSpzYb9ttuD5UVX03vnj1aGw +fHAemDwQ1KWOo+nMorSOa3DE3t1H3UYLV0Q/0KHkCmG59+Uf1o5amBzQ5xOu +WAhywt5jG1ZqYVB1mBVPtRAyq+Lyk7ZqYcbn7NRHjEK4yy/vlTqhhaTHFHHZ +ohAGN+uF/2zVQqPybq9Sj0LwDhtJrIvWRv5T57oV2YVgd/1i6eGHOvgu4Oki +bbYInJtfTffX6GCT7RdhDVcEq8UkXQQNOvg25X+1e41F4Lc2qBW6dfAfl2m3 +WxYiWBbNiBHO0sXYPVwDTScRBOuMXnUw1MX3A6PyHgIRVAde6asK18VxM2bO +2VQRuE7ZKhyM1sXs8sGA1gsieJXUaGUh1MXpd1c4upkiaC2TEeae0EV+SGVm +bo4I+ueGKsRl6uLHPdxNJ26IQLVoufWySl2csWlSqawRwe7xIWGNLAO7Pu01 +GxoXgd2+AJXPCgx8uq9lRnVKBNI9baSEKgOl8xKX8mZEkNde1bSEycBfmmut +o2eR0Pkg1eiWFQNNCMe7dfIkuMXZtmQLGFhl/XjNUy4J5gpHFkYXM/DBHpV5 +yptIEDs5Un3hNgMPqjxUqPMg4ZXETs/b9xiYxViVFrOFhF0ja+OGnjDQXfc/ +pQ4fEnJbWO2BbQxsvqU1tnM3CSpXauLXSzDx9jyJ2PdCEiYM53cab2AiW/Zq +itE1EkYvqR9Z5MlEkfTf8jsKSRj+g2DZCpj4qcTfMockof+n7U7nHUws+CG/ +d04RCR/v+Y16HmJiWnblzZK7JNSuuCOXkMfEq+XSNb7PSUjf5Q0fR5hotEl8 +p9NXEv56t/3jl0l6/Jtqe+UeEs677Y/rm2Hi2ZOfH3b1knBmUcKLcRk9THau +aQkfIOHor+JNf2jrobEfKQgbpd/v5Kxg+2V62GNtotYoQYE9SWWlpelhgZeX +soYmBe265JWlGXp4I29l/C4tCg6kFV4evqKHb3aGMMq0KbhzJD9zbSHtoJbm +FQwKzDdnXZCr0EObjO1ubmwKuLPOJ8V/0EOw7rr/aiEFNQeSz1p+1sPNE2oz +Q6YUBAwmnfnUo4d89b+CFcwpyG0/fcpxWA8ZI2PdfAsKdEuOJ/wnxcJLs8KI +dBsKVATRwnAjFrZ1NriXIAW3GqNiCDMWbrh95VmBAwXr+ZGHGy1ZeD94UWim +IwXJlmEHzYGFCq+990c7UyA7b29kvzsLrw5fU1ZdToFkmW9wQAQLd9Uf5tet +puCqic9e5YMsNGATW9PcKHDMFQRVC1k4RyS86bWGgpizW3YzE1m4Lp6h/Mmd +gkn/jds7M1m4bazwdf16CoYU+Fs3VrLQf4XRWT1PClp2M1/vfEavH6A4/or2 +o6eTEFNH3x9cbxDxJwVJB0idgiYWBvWbDt7fQoHpx3n/TvSwMEP56lxCQIGq +ffdquUEW8p2sG2/TFku7/4A5wsJqpdhdS7dSUO8adHnFDAtjpKqlPXwoCCqu +97qkSGBCvu8fnn4UbJxb8LJYlcCX53mCBtpL/IW8p1oECkxbjrpso+OhZqY1 +wCGQcG9z0fenYDhE5rSEMYH5jMSeFNoddR+mFpgTGG+Z6DdFmxImd6A9geKU +fHtVAAXn23au3OBAoLCgu40ZSMFBC6eKHcsIDNe4evMw7RVff2YkryEwNSrq +h9F2CnrcNvz5aRuBrTvm3vXbQUFDofGL8R0Efrt++Vwh7XIJqcWyewn88Weg +63faJ+7cVreKInDft+Ubt++kIFj+bCL/MIGOKveobNqbdwVOeh8jUNVJ+VMz +bX0d1bbjpwmUGLAdt9tFwfyoQdfMZAJvfvRpCqQ93lBTVvQXgTIPjS6co/3e +KJv7JJPAqAT+kru0a+KjLrZm0+Of7XreTrvovbtMfz6BTXEOdlO0L9gZRIlT +BMqtO3RObTcFwvPi31SKCQyAN/WLaAf2t202vE1gx7uBET7t1ctv1sA9AsOc +TkkKaFvlnLRZ/4jA91KeU3tpa0/5FWx/QqAFynYeoi210V71UC2B5xI8RQm0 ++28oJZyrJ/DzxKhPEu0mmb6xvEYCk0wuzEql/cDvSWB5K4HKDsOpabTz719q +ftVJ4NsXjxV/Xz+zINylq4vA4q93Yn6PD9+3+s7YVwJfmZ5p+z2/9ws2Z14/ +gVYVU6zDtJcSM2m6Pwk8zagQBNM2immWshwnsDos7uTv51dqvRHuOk3gixUK +hStoT5knfPYSZ+PiUs0yC9qfTm3dGDKbjXN5ggp12kE9RkzTeWwMK5a6N0PH +b8xloq9vPhvlrUsVPtIW5j0pI5XZKMgXq35Me45EctwOdTYqWMXVX6Z9fqu3 +O0eHjZ0H2i2jaGs9MNDq1mMjP/DS2BraplFVpVuN2ZjZ+PLsOP39y5vOCrXN +2RgpGxJYQ9vJYsvKDis27vbqy0ylvXFguGsTsjHuRouePu33Kx/fUF7Kxtlu +R8L76HzbKTod/daVjQMQwi2ifcifrei2jl7fKafEmLZU1Y/OeZvZmNigmfiV +zuck3Yei2i1s3F+4sTpr++/6tclxWQAbs+cf85OhXet+Yh8vio2rik2879H7 +Zf2NDbxfh+j4DM338qH9bh5TpuwoG/t9i6skaQ8+K8+yOEV7rKTWid5vKku+ +1xteYaOeVMSbHHr/ZmXczfh2lY0ycVK6FrS5E7GB1wrY6Ou/o73Sl67fpVoz +zBI2JvnbZbTQ9cDPwM1E/Qkb/XSU3Lvp+vH9uMZk83M2jou5qPrSDu/+8iT1 +FRuznCPdO7wpSMwSesm3sHHd232az73o/FcpOSXdy8ailyqcWLpe2YUe3vx0 +gI3JnKSk73Q9q3rDZ8UOszEXl+9bS7vpVNe9mWk6fpoaGSoedH6IK/eOzufg +gfyeHOFGClwHIly7rTjoXmij1kHXU00z7Xhpew72HPrKmEe7P6S60tCBg3+v +PcOzpevv+dH59iErOHhopWVx4ioKOqcLTWYEHDyS5ZEzh09ByLwORbUTHPxs +URAcQ9d759VH19if4WCJ9Wv5I3Q/WJCkf1qQwkGNcMnGGLpfVCiGSeVf4qD4 +PeJh6BL6e2rITZiXcPB8cZCrvR0F6VzsXNnOwWdP48YdzSjYveuzevB7Dq6z +z1ZZQPcr+PvUppRuDqrcctn21YTOd9PW160DHPyi13XuqBEFJjYhVQGS+tib +yVmTyqHjsyy3QGisjzP3KvUt6f753U96f2mMPlaap3Zsk6Lf97Lz/Yex+ijc +H9zwRZKCgVbh7Bcn9PHfunaT7XQ//uE2kfEhRR8lS2V0fMTo/bO4p1quQB89 +/beNLpokQVypTmXHa328ttzQzbuPBLXqs+VaDC6WWWVw696QoD7zQpLL5qKS +uW7FdD0JmnbSbhaGXDxcJfbW6BUJ2kXCLr4lFwPis88dqyWBlblvXqQrF69P +z9mjWEWCaeg674Z9XHzsQ4Xcv0nS/+MLxI9XcrFIFBDpkELCN1+XgsXP6PWU +PB+7niPhVHbE6sEX9PzBA7/czpLwVrsl3eMfLp7809R140kStqpdXGT0lYsP +hYGe/GMkRMlp+L+RNcCwo4y5b0JIoMa1azQ8DNDv4nq+9xoSFF6yzxQNGODk +RtHXPPr/7r8B07zaYQP832KbwV/iJPQoLK74NGGAbt9O1bqJkVC52a1HVdIQ +WTJ1vwYnRbD/U8SyI6qGaLYlNEhtUASNv2r+c3cwxDDj08ck2kTwl8GuvT+T +DVEvsLfPiRKBZsKNNVZWRriyvXdJCV8EFwxt5ysGGuO6O13fI4SFUKvuYPnz +nAkWVzEFL68WgJ1mZdLCpoXoGDgduvzKNZCTyAn1OWqKiTYvOmYy8kH7iI69 +B9sMXe7v4AvC8kCG2HJ77TMzbHxZ12XPzwUTntqNCC9z3KEUy7pufBVCOhWq ++GKLsNK9tdZrNBsGfp7a4HphEZIVarmzGrPAZeHTdFdjC+ytMlZXDL0CD34u +/jX2ygLlDdPVX6pfgiAj87Y3/pYYLMctqBxLB17/tkYPGSvsbpAru192AZay +VFfJ5ljhNdlYPeHtNNAXJkZWWlujb2uGzZy358HA3/Yh0WaNS5VONL9+nwz+ +D7bHlu6zQUfv3pw73HPwMKtx25CyLV7skM3TbzoDwwUzYwvv2CIZZDeMeSfB +jyBl0lfZoTPZ8Vr6QwIMGaRYlQza4fz3c0meRjzczf31YSRhMebbrl+nWH4M +PJ31cLG2PU4mlI4kpR4BjT3Hy0we2WO4ydaCtr7DoDxnd/GqTTw0j3oSbbEp +GnKdDh0Y9OCh6hXdtBGXaDA/dMYpZQsPTz+b9L1vEw2rB4v+afHhYVrIPlkf +9WiIbxqZ8NvNw9HoReHj7w7AeE6M44EjPMyI/6IREHAA2hanvM0nedjKZtWY +HoyC7WG5ma7XeZiTn/Slek8UjF6/5f+9iIf9Og1HBYIoUGC2jJnd5iG7tIso +cIyCFdJamvcf8VDwOL0vXiYKKhrzt739h4ebIkanIi9EAl/urnF4Cw9Tymul +QxMjocXl+ahqOw9FISdCww5GwnB5b4L3ex56FD3cdnJrJBhnm/79rYeHa7bX +h0twI6GizSH8VB8PNxSUrTHToOdTWgcLB3m4dTjyoL9sJAQcD3sTOsLDPUoB +le+HImD4UXz6gnEedrfOaeV8ioCjk3/5lU/y8MHZELuwpgiYb1Fo5DVNP+9Q +86eamgi4vKd8ZGaGh4/3hjUx70XA/wGDci6b "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "PlotRange" -> {{0, 30}, {0., 0.05551596241469007}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +7007,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 +7035,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.05551596241469007}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -2572,25 +7044,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.994013862357041*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"d61e5e47-1b93-4fef-a02b-9a545f6374ee"] }, 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.005294"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.015702"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.025589"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.034637"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.042584"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.049218"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.054412"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.058095"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.060285"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.061043"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.060506"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.058826"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.05621"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.052848"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.048958"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.044722"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.040328"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.035917"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.031623"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.027533"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.023727"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.020242"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.017109"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.014329"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.0119"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.0098"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.008009"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.006494"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.005229"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.00418"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.00332"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.994013021914577*^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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, + 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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.061043}}, + "Frame" -> {{False, 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.061043}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.061043}}, + "Frame" -> {{False, 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.061043}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994013862593219*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"84476e34-2c4b-47a5-b5ba-6e35826673d4"] +}, 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:eJwV1nk8FesbAHA/JCpu1uyc48w5ji1kz+l5LCWnRdq5cUJolWRN5VRI2kTc +QoUQZ+YW0kLaUElKybXnVtJCtrLH9Zv+mM98vp+Z931nnnne5xmG7961/uJi +YmLT9PH7PNr5vJp1MneJ8n7d7KLZVksaL6tGObQcheH/Fs7dYKkEqFzvq9qS +DFtmtFI4liwIXyNqlmjJgem/73yda2kB8v0LkieaS8D4i6lnj4Uz/Fuxeu9w +cyU8Ed65nmixHpaxet4NNTeAVWzeJp1F22Ci2Tp1sPkjKFTWpR80DoUqp2u5 +b3J+wofdZr3532NB89+yz75G0zBso2wo3XYGlHYLRLOdJPDL8POf4/rnIdls +2b3VG6TxUtKEiq76RWi9YPpoaL4s1lR0xWgevgQnc2PqxdXk0eF1HPvzryxY +cL7rRMolRYyYsjj9VfIqHF/vuqRhVBmZqbOcHSpzYb9ttuD5UVX03vnj1aGw +fHAemDwQ1KWOo+nMorSOa3DE3t1H3UYLV0Q/0KHkCmG59+Uf1o5amBzQ5xOu +WAhywt5jG1ZqYVB1mBVPtRAyq+Lyk7ZqYcbn7NRHjEK4yy/vlTqhhaTHFHHZ +ohAGN+uF/2zVQqPybq9Sj0LwDhtJrIvWRv5T57oV2YVgd/1i6eGHOvgu4Oki +bbYInJtfTffX6GCT7RdhDVcEq8UkXQQNOvg25X+1e41F4Lc2qBW6dfAfl2m3 +WxYiWBbNiBHO0sXYPVwDTScRBOuMXnUw1MX3A6PyHgIRVAde6asK18VxM2bO +2VQRuE7ZKhyM1sXs8sGA1gsieJXUaGUh1MXpd1c4upkiaC2TEeae0EV+SGVm +bo4I+ueGKsRl6uLHPdxNJ26IQLVoufWySl2csWlSqawRwe7xIWGNLAO7Pu01 +GxoXgd2+AJXPCgx8uq9lRnVKBNI9baSEKgOl8xKX8mZEkNde1bSEycBfmmut +o2eR0Pkg1eiWFQNNCMe7dfIkuMXZtmQLGFhl/XjNUy4J5gpHFkYXM/DBHpV5 +yptIEDs5Un3hNgMPqjxUqPMg4ZXETs/b9xiYxViVFrOFhF0ja+OGnjDQXfc/ +pQ4fEnJbWO2BbQxsvqU1tnM3CSpXauLXSzDx9jyJ2PdCEiYM53cab2AiW/Zq +itE1EkYvqR9Z5MlEkfTf8jsKSRj+g2DZCpj4qcTfMockof+n7U7nHUws+CG/ +d04RCR/v+Y16HmJiWnblzZK7JNSuuCOXkMfEq+XSNb7PSUjf5Q0fR5hotEl8 +p9NXEv56t/3jl0l6/Jtqe+UeEs677Y/rm2Hi2ZOfH3b1knBmUcKLcRk9THau +aQkfIOHor+JNf2jrobEfKQgbpd/v5Kxg+2V62GNtotYoQYE9SWWlpelhgZeX +soYmBe265JWlGXp4I29l/C4tCg6kFV4evqKHb3aGMMq0KbhzJD9zbSHtoJbm +FQwKzDdnXZCr0EObjO1ubmwKuLPOJ8V/0EOw7rr/aiEFNQeSz1p+1sPNE2oz +Q6YUBAwmnfnUo4d89b+CFcwpyG0/fcpxWA8ZI2PdfAsKdEuOJ/wnxcJLs8KI +dBsKVATRwnAjFrZ1NriXIAW3GqNiCDMWbrh95VmBAwXr+ZGHGy1ZeD94UWim +IwXJlmEHzYGFCq+990c7UyA7b29kvzsLrw5fU1ZdToFkmW9wQAQLd9Uf5tet +puCqic9e5YMsNGATW9PcKHDMFQRVC1k4RyS86bWGgpizW3YzE1m4Lp6h/Mmd +gkn/jds7M1m4bazwdf16CoYU+Fs3VrLQf4XRWT1PClp2M1/vfEavH6A4/or2 +o6eTEFNH3x9cbxDxJwVJB0idgiYWBvWbDt7fQoHpx3n/TvSwMEP56lxCQIGq +ffdquUEW8p2sG2/TFku7/4A5wsJqpdhdS7dSUO8adHnFDAtjpKqlPXwoCCqu +97qkSGBCvu8fnn4UbJxb8LJYlcCX53mCBtpL/IW8p1oECkxbjrpso+OhZqY1 +wCGQcG9z0fenYDhE5rSEMYH5jMSeFNoddR+mFpgTGG+Z6DdFmxImd6A9geKU +fHtVAAXn23au3OBAoLCgu40ZSMFBC6eKHcsIDNe4evMw7RVff2YkryEwNSrq +h9F2CnrcNvz5aRuBrTvm3vXbQUFDofGL8R0Efrt++Vwh7XIJqcWyewn88Weg +63faJ+7cVreKInDft+Ubt++kIFj+bCL/MIGOKveobNqbdwVOeh8jUNVJ+VMz +bX0d1bbjpwmUGLAdt9tFwfyoQdfMZAJvfvRpCqQ93lBTVvQXgTIPjS6co/3e +KJv7JJPAqAT+kru0a+KjLrZm0+Of7XreTrvovbtMfz6BTXEOdlO0L9gZRIlT +BMqtO3RObTcFwvPi31SKCQyAN/WLaAf2t202vE1gx7uBET7t1ctv1sA9AsOc +TkkKaFvlnLRZ/4jA91KeU3tpa0/5FWx/QqAFynYeoi210V71UC2B5xI8RQm0 ++28oJZyrJ/DzxKhPEu0mmb6xvEYCk0wuzEql/cDvSWB5K4HKDsOpabTz719q +ftVJ4NsXjxV/Xz+zINylq4vA4q93Yn6PD9+3+s7YVwJfmZ5p+z2/9ws2Z14/ +gVYVU6zDtJcSM2m6Pwk8zagQBNM2immWshwnsDos7uTv51dqvRHuOk3gixUK +hStoT5knfPYSZ+PiUs0yC9qfTm3dGDKbjXN5ggp12kE9RkzTeWwMK5a6N0PH +b8xloq9vPhvlrUsVPtIW5j0pI5XZKMgXq35Me45EctwOdTYqWMXVX6Z9fqu3 +O0eHjZ0H2i2jaGs9MNDq1mMjP/DS2BraplFVpVuN2ZjZ+PLsOP39y5vOCrXN +2RgpGxJYQ9vJYsvKDis27vbqy0ylvXFguGsTsjHuRouePu33Kx/fUF7Kxtlu +R8L76HzbKTod/daVjQMQwi2ifcifrei2jl7fKafEmLZU1Y/OeZvZmNigmfiV +zuck3Yei2i1s3F+4sTpr++/6tclxWQAbs+cf85OhXet+Yh8vio2rik2879H7 +Zf2NDbxfh+j4DM338qH9bh5TpuwoG/t9i6skaQ8+K8+yOEV7rKTWid5vKku+ +1xteYaOeVMSbHHr/ZmXczfh2lY0ycVK6FrS5E7GB1wrY6Ou/o73Sl67fpVoz +zBI2JvnbZbTQ9cDPwM1E/Qkb/XSU3Lvp+vH9uMZk83M2jou5qPrSDu/+8iT1 +FRuznCPdO7wpSMwSesm3sHHd232az73o/FcpOSXdy8ailyqcWLpe2YUe3vx0 +gI3JnKSk73Q9q3rDZ8UOszEXl+9bS7vpVNe9mWk6fpoaGSoedH6IK/eOzufg +gfyeHOFGClwHIly7rTjoXmij1kHXU00z7Xhpew72HPrKmEe7P6S60tCBg3+v +PcOzpevv+dH59iErOHhopWVx4ioKOqcLTWYEHDyS5ZEzh09ByLwORbUTHPxs +URAcQ9d759VH19if4WCJ9Wv5I3Q/WJCkf1qQwkGNcMnGGLpfVCiGSeVf4qD4 +PeJh6BL6e2rITZiXcPB8cZCrvR0F6VzsXNnOwWdP48YdzSjYveuzevB7Dq6z +z1ZZQPcr+PvUppRuDqrcctn21YTOd9PW160DHPyi13XuqBEFJjYhVQGS+tib +yVmTyqHjsyy3QGisjzP3KvUt6f753U96f2mMPlaap3Zsk6Lf97Lz/Yex+ijc +H9zwRZKCgVbh7Bcn9PHfunaT7XQ//uE2kfEhRR8lS2V0fMTo/bO4p1quQB89 +/beNLpokQVypTmXHa328ttzQzbuPBLXqs+VaDC6WWWVw696QoD7zQpLL5qKS +uW7FdD0JmnbSbhaGXDxcJfbW6BUJ2kXCLr4lFwPis88dqyWBlblvXqQrF69P +z9mjWEWCaeg674Z9XHzsQ4Xcv0nS/+MLxI9XcrFIFBDpkELCN1+XgsXP6PWU +PB+7niPhVHbE6sEX9PzBA7/czpLwVrsl3eMfLp7809R140kStqpdXGT0lYsP +hYGe/GMkRMlp+L+RNcCwo4y5b0JIoMa1azQ8DNDv4nq+9xoSFF6yzxQNGODk +RtHXPPr/7r8B07zaYQP832KbwV/iJPQoLK74NGGAbt9O1bqJkVC52a1HVdIQ +WTJ1vwYnRbD/U8SyI6qGaLYlNEhtUASNv2r+c3cwxDDj08ck2kTwl8GuvT+T +DVEvsLfPiRKBZsKNNVZWRriyvXdJCV8EFwxt5ysGGuO6O13fI4SFUKvuYPnz +nAkWVzEFL68WgJ1mZdLCpoXoGDgduvzKNZCTyAn1OWqKiTYvOmYy8kH7iI69 +B9sMXe7v4AvC8kCG2HJ77TMzbHxZ12XPzwUTntqNCC9z3KEUy7pufBVCOhWq ++GKLsNK9tdZrNBsGfp7a4HphEZIVarmzGrPAZeHTdFdjC+ytMlZXDL0CD34u +/jX2ygLlDdPVX6pfgiAj87Y3/pYYLMctqBxLB17/tkYPGSvsbpAru192AZay +VFfJ5ljhNdlYPeHtNNAXJkZWWlujb2uGzZy358HA3/Yh0WaNS5VONL9+nwz+ +D7bHlu6zQUfv3pw73HPwMKtx25CyLV7skM3TbzoDwwUzYwvv2CIZZDeMeSfB +jyBl0lfZoTPZ8Vr6QwIMGaRYlQza4fz3c0meRjzczf31YSRhMebbrl+nWH4M +PJ31cLG2PU4mlI4kpR4BjT3Hy0we2WO4ydaCtr7DoDxnd/GqTTw0j3oSbbEp +GnKdDh0Y9OCh6hXdtBGXaDA/dMYpZQsPTz+b9L1vEw2rB4v+afHhYVrIPlkf +9WiIbxqZ8NvNw9HoReHj7w7AeE6M44EjPMyI/6IREHAA2hanvM0nedjKZtWY +HoyC7WG5ma7XeZiTn/Slek8UjF6/5f+9iIf9Og1HBYIoUGC2jJnd5iG7tIso +cIyCFdJamvcf8VDwOL0vXiYKKhrzt739h4ebIkanIi9EAl/urnF4Cw9Tymul +QxMjocXl+ahqOw9FISdCww5GwnB5b4L3ex56FD3cdnJrJBhnm/79rYeHa7bX +h0twI6GizSH8VB8PNxSUrTHToOdTWgcLB3m4dTjyoL9sJAQcD3sTOsLDPUoB +le+HImD4UXz6gnEedrfOaeV8ioCjk3/5lU/y8MHZELuwpgiYb1Fo5DVNP+9Q +86eamgi4vKd8ZGaGh4/3hjUx70XA/wGDci6b + "]]}, + 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:eJwV1nk8FesbAHA/JCpu1uyc48w5ji1kz+l5LCWnRdq5cUJolWRN5VRI2kTc +QoUQZ+YW0kLaUElKybXnVtJCtrLH9Zv+mM98vp+Z931nnnne5xmG7961/uJi +YmLT9PH7PNr5vJp1MneJ8n7d7KLZVksaL6tGObQcheH/Fs7dYKkEqFzvq9qS +DFtmtFI4liwIXyNqlmjJgem/73yda2kB8v0LkieaS8D4i6lnj4Uz/Fuxeu9w +cyU8Ed65nmixHpaxet4NNTeAVWzeJp1F22Ci2Tp1sPkjKFTWpR80DoUqp2u5 +b3J+wofdZr3532NB89+yz75G0zBso2wo3XYGlHYLRLOdJPDL8POf4/rnIdls +2b3VG6TxUtKEiq76RWi9YPpoaL4s1lR0xWgevgQnc2PqxdXk0eF1HPvzryxY +cL7rRMolRYyYsjj9VfIqHF/vuqRhVBmZqbOcHSpzYb9ttuD5UVX03vnj1aGw +fHAemDwQ1KWOo+nMorSOa3DE3t1H3UYLV0Q/0KHkCmG59+Uf1o5amBzQ5xOu +WAhywt5jG1ZqYVB1mBVPtRAyq+Lyk7ZqYcbn7NRHjEK4yy/vlTqhhaTHFHHZ +ohAGN+uF/2zVQqPybq9Sj0LwDhtJrIvWRv5T57oV2YVgd/1i6eGHOvgu4Oki +bbYInJtfTffX6GCT7RdhDVcEq8UkXQQNOvg25X+1e41F4Lc2qBW6dfAfl2m3 +WxYiWBbNiBHO0sXYPVwDTScRBOuMXnUw1MX3A6PyHgIRVAde6asK18VxM2bO +2VQRuE7ZKhyM1sXs8sGA1gsieJXUaGUh1MXpd1c4upkiaC2TEeae0EV+SGVm +bo4I+ueGKsRl6uLHPdxNJ26IQLVoufWySl2csWlSqawRwe7xIWGNLAO7Pu01 +GxoXgd2+AJXPCgx8uq9lRnVKBNI9baSEKgOl8xKX8mZEkNde1bSEycBfmmut +o2eR0Pkg1eiWFQNNCMe7dfIkuMXZtmQLGFhl/XjNUy4J5gpHFkYXM/DBHpV5 +yptIEDs5Un3hNgMPqjxUqPMg4ZXETs/b9xiYxViVFrOFhF0ja+OGnjDQXfc/ +pQ4fEnJbWO2BbQxsvqU1tnM3CSpXauLXSzDx9jyJ2PdCEiYM53cab2AiW/Zq +itE1EkYvqR9Z5MlEkfTf8jsKSRj+g2DZCpj4qcTfMockof+n7U7nHUws+CG/ +d04RCR/v+Y16HmJiWnblzZK7JNSuuCOXkMfEq+XSNb7PSUjf5Q0fR5hotEl8 +p9NXEv56t/3jl0l6/Jtqe+UeEs677Y/rm2Hi2ZOfH3b1knBmUcKLcRk9THau +aQkfIOHor+JNf2jrobEfKQgbpd/v5Kxg+2V62GNtotYoQYE9SWWlpelhgZeX +soYmBe265JWlGXp4I29l/C4tCg6kFV4evqKHb3aGMMq0KbhzJD9zbSHtoJbm +FQwKzDdnXZCr0EObjO1ubmwKuLPOJ8V/0EOw7rr/aiEFNQeSz1p+1sPNE2oz +Q6YUBAwmnfnUo4d89b+CFcwpyG0/fcpxWA8ZI2PdfAsKdEuOJ/wnxcJLs8KI +dBsKVATRwnAjFrZ1NriXIAW3GqNiCDMWbrh95VmBAwXr+ZGHGy1ZeD94UWim +IwXJlmEHzYGFCq+990c7UyA7b29kvzsLrw5fU1ZdToFkmW9wQAQLd9Uf5tet +puCqic9e5YMsNGATW9PcKHDMFQRVC1k4RyS86bWGgpizW3YzE1m4Lp6h/Mmd +gkn/jds7M1m4bazwdf16CoYU+Fs3VrLQf4XRWT1PClp2M1/vfEavH6A4/or2 +o6eTEFNH3x9cbxDxJwVJB0idgiYWBvWbDt7fQoHpx3n/TvSwMEP56lxCQIGq +ffdquUEW8p2sG2/TFku7/4A5wsJqpdhdS7dSUO8adHnFDAtjpKqlPXwoCCqu +97qkSGBCvu8fnn4UbJxb8LJYlcCX53mCBtpL/IW8p1oECkxbjrpso+OhZqY1 +wCGQcG9z0fenYDhE5rSEMYH5jMSeFNoddR+mFpgTGG+Z6DdFmxImd6A9geKU +fHtVAAXn23au3OBAoLCgu40ZSMFBC6eKHcsIDNe4evMw7RVff2YkryEwNSrq +h9F2CnrcNvz5aRuBrTvm3vXbQUFDofGL8R0Efrt++Vwh7XIJqcWyewn88Weg +63faJ+7cVreKInDft+Ubt++kIFj+bCL/MIGOKveobNqbdwVOeh8jUNVJ+VMz +bX0d1bbjpwmUGLAdt9tFwfyoQdfMZAJvfvRpCqQ93lBTVvQXgTIPjS6co/3e +KJv7JJPAqAT+kru0a+KjLrZm0+Of7XreTrvovbtMfz6BTXEOdlO0L9gZRIlT +BMqtO3RObTcFwvPi31SKCQyAN/WLaAf2t202vE1gx7uBET7t1ctv1sA9AsOc +TkkKaFvlnLRZ/4jA91KeU3tpa0/5FWx/QqAFynYeoi210V71UC2B5xI8RQm0 ++28oJZyrJ/DzxKhPEu0mmb6xvEYCk0wuzEql/cDvSWB5K4HKDsOpabTz719q +ftVJ4NsXjxV/Xz+zINylq4vA4q93Yn6PD9+3+s7YVwJfmZ5p+z2/9ws2Z14/ +gVYVU6zDtJcSM2m6Pwk8zagQBNM2immWshwnsDos7uTv51dqvRHuOk3gixUK +hStoT5knfPYSZ+PiUs0yC9qfTm3dGDKbjXN5ggp12kE9RkzTeWwMK5a6N0PH +b8xloq9vPhvlrUsVPtIW5j0pI5XZKMgXq35Me45EctwOdTYqWMXVX6Z9fqu3 +O0eHjZ0H2i2jaGs9MNDq1mMjP/DS2BraplFVpVuN2ZjZ+PLsOP39y5vOCrXN +2RgpGxJYQ9vJYsvKDis27vbqy0ylvXFguGsTsjHuRouePu33Kx/fUF7Kxtlu +R8L76HzbKTod/daVjQMQwi2ifcifrei2jl7fKafEmLZU1Y/OeZvZmNigmfiV +zuck3Yei2i1s3F+4sTpr++/6tclxWQAbs+cf85OhXet+Yh8vio2rik2879H7 +Zf2NDbxfh+j4DM338qH9bh5TpuwoG/t9i6skaQ8+K8+yOEV7rKTWid5vKku+ +1xteYaOeVMSbHHr/ZmXczfh2lY0ycVK6FrS5E7GB1wrY6Ou/o73Sl67fpVoz +zBI2JvnbZbTQ9cDPwM1E/Qkb/XSU3Lvp+vH9uMZk83M2jou5qPrSDu/+8iT1 +FRuznCPdO7wpSMwSesm3sHHd232az73o/FcpOSXdy8ailyqcWLpe2YUe3vx0 +gI3JnKSk73Q9q3rDZ8UOszEXl+9bS7vpVNe9mWk6fpoaGSoedH6IK/eOzufg +gfyeHOFGClwHIly7rTjoXmij1kHXU00z7Xhpew72HPrKmEe7P6S60tCBg3+v +PcOzpevv+dH59iErOHhopWVx4ioKOqcLTWYEHDyS5ZEzh09ByLwORbUTHPxs +URAcQ9d759VH19if4WCJ9Wv5I3Q/WJCkf1qQwkGNcMnGGLpfVCiGSeVf4qD4 +PeJh6BL6e2rITZiXcPB8cZCrvR0F6VzsXNnOwWdP48YdzSjYveuzevB7Dq6z +z1ZZQPcr+PvUppRuDqrcctn21YTOd9PW160DHPyi13XuqBEFJjYhVQGS+tib +yVmTyqHjsyy3QGisjzP3KvUt6f753U96f2mMPlaap3Zsk6Lf97Lz/Yex+ijc +H9zwRZKCgVbh7Bcn9PHfunaT7XQ//uE2kfEhRR8lS2V0fMTo/bO4p1quQB89 +/beNLpokQVypTmXHa328ttzQzbuPBLXqs+VaDC6WWWVw696QoD7zQpLL5qKS +uW7FdD0JmnbSbhaGXDxcJfbW6BUJ2kXCLr4lFwPis88dqyWBlblvXqQrF69P +z9mjWEWCaeg674Z9XHzsQ4Xcv0nS/+MLxI9XcrFIFBDpkELCN1+XgsXP6PWU +PB+7niPhVHbE6sEX9PzBA7/czpLwVrsl3eMfLp7809R140kStqpdXGT0lYsP +hYGe/GMkRMlp+L+RNcCwo4y5b0JIoMa1azQ8DNDv4nq+9xoSFF6yzxQNGODk +RtHXPPr/7r8B07zaYQP832KbwV/iJPQoLK74NGGAbt9O1bqJkVC52a1HVdIQ +WTJ1vwYnRbD/U8SyI6qGaLYlNEhtUASNv2r+c3cwxDDj08ck2kTwl8GuvT+T +DVEvsLfPiRKBZsKNNVZWRriyvXdJCV8EFwxt5ysGGuO6O13fI4SFUKvuYPnz +nAkWVzEFL68WgJ1mZdLCpoXoGDgduvzKNZCTyAn1OWqKiTYvOmYy8kH7iI69 +B9sMXe7v4AvC8kCG2HJ77TMzbHxZ12XPzwUTntqNCC9z3KEUy7pufBVCOhWq ++GKLsNK9tdZrNBsGfp7a4HphEZIVarmzGrPAZeHTdFdjC+ytMlZXDL0CD34u +/jX2ygLlDdPVX6pfgiAj87Y3/pYYLMctqBxLB17/tkYPGSvsbpAru192AZay +VFfJ5ljhNdlYPeHtNNAXJkZWWlujb2uGzZy358HA3/Yh0WaNS5VONL9+nwz+ +D7bHlu6zQUfv3pw73HPwMKtx25CyLV7skM3TbzoDwwUzYwvv2CIZZDeMeSfB +jyBl0lfZoTPZ8Vr6QwIMGaRYlQza4fz3c0meRjzczf31YSRhMebbrl+nWH4M +PJ31cLG2PU4mlI4kpR4BjT3Hy0we2WO4ydaCtr7DoDxnd/GqTTw0j3oSbbEp +GnKdDh0Y9OCh6hXdtBGXaDA/dMYpZQsPTz+b9L1vEw2rB4v+afHhYVrIPlkf +9WiIbxqZ8NvNw9HoReHj7w7AeE6M44EjPMyI/6IREHAA2hanvM0nedjKZtWY +HoyC7WG5ma7XeZiTn/Slek8UjF6/5f+9iIf9Og1HBYIoUGC2jJnd5iG7tIso +cIyCFdJamvcf8VDwOL0vXiYKKhrzt739h4ebIkanIi9EAl/urnF4Cw9Tymul +QxMjocXl+ahqOw9FISdCww5GwnB5b4L3ex56FD3cdnJrJBhnm/79rYeHa7bX +h0twI6GizSH8VB8PNxSUrTHToOdTWgcLB3m4dTjyoL9sJAQcD3sTOsLDPUoB +le+HImD4UXz6gnEedrfOaeV8ioCjk3/5lU/y8MHZELuwpgiYb1Fo5DVNP+9Q +86eamgi4vKd8ZGaGh4/3hjUx70XA/wGDci6b + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.05551596241469007}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.05551596241469007}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJwV1nk8FesbAHA/JCpu1uyc48w5ji1kz+l5LCWnRdq5cUJolWRN5VRI2kTc +QoUQZ+YW0kLaUElKybXnVtJCtrLH9Zv+mM98vp+Z931nnnne5xmG7961/uJi +YmLT9PH7PNr5vJp1MneJ8n7d7KLZVksaL6tGObQcheH/Fs7dYKkEqFzvq9qS +DFtmtFI4liwIXyNqlmjJgem/73yda2kB8v0LkieaS8D4i6lnj4Uz/Fuxeu9w +cyU8Ed65nmixHpaxet4NNTeAVWzeJp1F22Ci2Tp1sPkjKFTWpR80DoUqp2u5 +b3J+wofdZr3532NB89+yz75G0zBso2wo3XYGlHYLRLOdJPDL8POf4/rnIdls +2b3VG6TxUtKEiq76RWi9YPpoaL4s1lR0xWgevgQnc2PqxdXk0eF1HPvzryxY +cL7rRMolRYyYsjj9VfIqHF/vuqRhVBmZqbOcHSpzYb9ttuD5UVX03vnj1aGw +fHAemDwQ1KWOo+nMorSOa3DE3t1H3UYLV0Q/0KHkCmG59+Uf1o5amBzQ5xOu +WAhywt5jG1ZqYVB1mBVPtRAyq+Lyk7ZqYcbn7NRHjEK4yy/vlTqhhaTHFHHZ +ohAGN+uF/2zVQqPybq9Sj0LwDhtJrIvWRv5T57oV2YVgd/1i6eGHOvgu4Oki +bbYInJtfTffX6GCT7RdhDVcEq8UkXQQNOvg25X+1e41F4Lc2qBW6dfAfl2m3 +WxYiWBbNiBHO0sXYPVwDTScRBOuMXnUw1MX3A6PyHgIRVAde6asK18VxM2bO +2VQRuE7ZKhyM1sXs8sGA1gsieJXUaGUh1MXpd1c4upkiaC2TEeae0EV+SGVm +bo4I+ueGKsRl6uLHPdxNJ26IQLVoufWySl2csWlSqawRwe7xIWGNLAO7Pu01 +GxoXgd2+AJXPCgx8uq9lRnVKBNI9baSEKgOl8xKX8mZEkNde1bSEycBfmmut +o2eR0Pkg1eiWFQNNCMe7dfIkuMXZtmQLGFhl/XjNUy4J5gpHFkYXM/DBHpV5 +yptIEDs5Un3hNgMPqjxUqPMg4ZXETs/b9xiYxViVFrOFhF0ja+OGnjDQXfc/ +pQ4fEnJbWO2BbQxsvqU1tnM3CSpXauLXSzDx9jyJ2PdCEiYM53cab2AiW/Zq +itE1EkYvqR9Z5MlEkfTf8jsKSRj+g2DZCpj4qcTfMockof+n7U7nHUws+CG/ +d04RCR/v+Y16HmJiWnblzZK7JNSuuCOXkMfEq+XSNb7PSUjf5Q0fR5hotEl8 +p9NXEv56t/3jl0l6/Jtqe+UeEs677Y/rm2Hi2ZOfH3b1knBmUcKLcRk9THau +aQkfIOHor+JNf2jrobEfKQgbpd/v5Kxg+2V62GNtotYoQYE9SWWlpelhgZeX +soYmBe265JWlGXp4I29l/C4tCg6kFV4evqKHb3aGMMq0KbhzJD9zbSHtoJbm +FQwKzDdnXZCr0EObjO1ubmwKuLPOJ8V/0EOw7rr/aiEFNQeSz1p+1sPNE2oz +Q6YUBAwmnfnUo4d89b+CFcwpyG0/fcpxWA8ZI2PdfAsKdEuOJ/wnxcJLs8KI +dBsKVATRwnAjFrZ1NriXIAW3GqNiCDMWbrh95VmBAwXr+ZGHGy1ZeD94UWim +IwXJlmEHzYGFCq+990c7UyA7b29kvzsLrw5fU1ZdToFkmW9wQAQLd9Uf5tet +puCqic9e5YMsNGATW9PcKHDMFQRVC1k4RyS86bWGgpizW3YzE1m4Lp6h/Mmd +gkn/jds7M1m4bazwdf16CoYU+Fs3VrLQf4XRWT1PClp2M1/vfEavH6A4/or2 +o6eTEFNH3x9cbxDxJwVJB0idgiYWBvWbDt7fQoHpx3n/TvSwMEP56lxCQIGq +ffdquUEW8p2sG2/TFku7/4A5wsJqpdhdS7dSUO8adHnFDAtjpKqlPXwoCCqu +97qkSGBCvu8fnn4UbJxb8LJYlcCX53mCBtpL/IW8p1oECkxbjrpso+OhZqY1 +wCGQcG9z0fenYDhE5rSEMYH5jMSeFNoddR+mFpgTGG+Z6DdFmxImd6A9geKU +fHtVAAXn23au3OBAoLCgu40ZSMFBC6eKHcsIDNe4evMw7RVff2YkryEwNSrq +h9F2CnrcNvz5aRuBrTvm3vXbQUFDofGL8R0Efrt++Vwh7XIJqcWyewn88Weg +63faJ+7cVreKInDft+Ubt++kIFj+bCL/MIGOKveobNqbdwVOeh8jUNVJ+VMz +bX0d1bbjpwmUGLAdt9tFwfyoQdfMZAJvfvRpCqQ93lBTVvQXgTIPjS6co/3e +KJv7JJPAqAT+kru0a+KjLrZm0+Of7XreTrvovbtMfz6BTXEOdlO0L9gZRIlT +BMqtO3RObTcFwvPi31SKCQyAN/WLaAf2t202vE1gx7uBET7t1ctv1sA9AsOc +TkkKaFvlnLRZ/4jA91KeU3tpa0/5FWx/QqAFynYeoi210V71UC2B5xI8RQm0 ++28oJZyrJ/DzxKhPEu0mmb6xvEYCk0wuzEql/cDvSWB5K4HKDsOpabTz719q +ftVJ4NsXjxV/Xz+zINylq4vA4q93Yn6PD9+3+s7YVwJfmZ5p+z2/9ws2Z14/ +gVYVU6zDtJcSM2m6Pwk8zagQBNM2immWshwnsDos7uTv51dqvRHuOk3gixUK +hStoT5knfPYSZ+PiUs0yC9qfTm3dGDKbjXN5ggp12kE9RkzTeWwMK5a6N0PH +b8xloq9vPhvlrUsVPtIW5j0pI5XZKMgXq35Me45EctwOdTYqWMXVX6Z9fqu3 +O0eHjZ0H2i2jaGs9MNDq1mMjP/DS2BraplFVpVuN2ZjZ+PLsOP39y5vOCrXN +2RgpGxJYQ9vJYsvKDis27vbqy0ylvXFguGsTsjHuRouePu33Kx/fUF7Kxtlu +R8L76HzbKTod/daVjQMQwi2ifcifrei2jl7fKafEmLZU1Y/OeZvZmNigmfiV +zuck3Yei2i1s3F+4sTpr++/6tclxWQAbs+cf85OhXet+Yh8vio2rik2879H7 +Zf2NDbxfh+j4DM338qH9bh5TpuwoG/t9i6skaQ8+K8+yOEV7rKTWid5vKku+ +1xteYaOeVMSbHHr/ZmXczfh2lY0ycVK6FrS5E7GB1wrY6Ou/o73Sl67fpVoz +zBI2JvnbZbTQ9cDPwM1E/Qkb/XSU3Lvp+vH9uMZk83M2jou5qPrSDu/+8iT1 +FRuznCPdO7wpSMwSesm3sHHd232az73o/FcpOSXdy8ailyqcWLpe2YUe3vx0 +gI3JnKSk73Q9q3rDZ8UOszEXl+9bS7vpVNe9mWk6fpoaGSoedH6IK/eOzufg +gfyeHOFGClwHIly7rTjoXmij1kHXU00z7Xhpew72HPrKmEe7P6S60tCBg3+v +PcOzpevv+dH59iErOHhopWVx4ioKOqcLTWYEHDyS5ZEzh09ByLwORbUTHPxs +URAcQ9d759VH19if4WCJ9Wv5I3Q/WJCkf1qQwkGNcMnGGLpfVCiGSeVf4qD4 +PeJh6BL6e2rITZiXcPB8cZCrvR0F6VzsXNnOwWdP48YdzSjYveuzevB7Dq6z +z1ZZQPcr+PvUppRuDqrcctn21YTOd9PW160DHPyi13XuqBEFJjYhVQGS+tib +yVmTyqHjsyy3QGisjzP3KvUt6f753U96f2mMPlaap3Zsk6Lf97Lz/Yex+ijc +H9zwRZKCgVbh7Bcn9PHfunaT7XQ//uE2kfEhRR8lS2V0fMTo/bO4p1quQB89 +/beNLpokQVypTmXHa328ttzQzbuPBLXqs+VaDC6WWWVw696QoD7zQpLL5qKS +uW7FdD0JmnbSbhaGXDxcJfbW6BUJ2kXCLr4lFwPis88dqyWBlblvXqQrF69P +z9mjWEWCaeg674Z9XHzsQ4Xcv0nS/+MLxI9XcrFIFBDpkELCN1+XgsXP6PWU +PB+7niPhVHbE6sEX9PzBA7/czpLwVrsl3eMfLp7809R140kStqpdXGT0lYsP +hYGe/GMkRMlp+L+RNcCwo4y5b0JIoMa1azQ8DNDv4nq+9xoSFF6yzxQNGODk +RtHXPPr/7r8B07zaYQP832KbwV/iJPQoLK74NGGAbt9O1bqJkVC52a1HVdIQ +WTJ1vwYnRbD/U8SyI6qGaLYlNEhtUASNv2r+c3cwxDDj08ck2kTwl8GuvT+T +DVEvsLfPiRKBZsKNNVZWRriyvXdJCV8EFwxt5ysGGuO6O13fI4SFUKvuYPnz +nAkWVzEFL68WgJ1mZdLCpoXoGDgduvzKNZCTyAn1OWqKiTYvOmYy8kH7iI69 +B9sMXe7v4AvC8kCG2HJ77TMzbHxZ12XPzwUTntqNCC9z3KEUy7pufBVCOhWq ++GKLsNK9tdZrNBsGfp7a4HphEZIVarmzGrPAZeHTdFdjC+ytMlZXDL0CD34u +/jX2ygLlDdPVX6pfgiAj87Y3/pYYLMctqBxLB17/tkYPGSvsbpAru192AZay +VFfJ5ljhNdlYPeHtNNAXJkZWWlujb2uGzZy358HA3/Yh0WaNS5VONL9+nwz+ +D7bHlu6zQUfv3pw73HPwMKtx25CyLV7skM3TbzoDwwUzYwvv2CIZZDeMeSfB +jyBl0lfZoTPZ8Vr6QwIMGaRYlQza4fz3c0meRjzczf31YSRhMebbrl+nWH4M +PJ31cLG2PU4mlI4kpR4BjT3Hy0we2WO4ydaCtr7DoDxnd/GqTTw0j3oSbbEp +GnKdDh0Y9OCh6hXdtBGXaDA/dMYpZQsPTz+b9L1vEw2rB4v+afHhYVrIPlkf +9WiIbxqZ8NvNw9HoReHj7w7AeE6M44EjPMyI/6IREHAA2hanvM0nedjKZtWY +HoyC7WG5ma7XeZiTn/Slek8UjF6/5f+9iIf9Og1HBYIoUGC2jJnd5iG7tIso +cIyCFdJamvcf8VDwOL0vXiYKKhrzt739h4ebIkanIi9EAl/urnF4Cw9Tymul +QxMjocXl+ahqOw9FISdCww5GwnB5b4L3ex56FD3cdnJrJBhnm/79rYeHa7bX +h0twI6GizSH8VB8PNxSUrTHToOdTWgcLB3m4dTjyoL9sJAQcD3sTOsLDPUoB +le+HImD4UXz6gnEedrfOaeV8ioCjk3/5lU/y8MHZELuwpgiYb1Fo5DVNP+9Q +86eamgi4vKd8ZGaGh4/3hjUx70XA/wGDci6b + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.05551596241469007}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, + 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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.061043}}, + "Frame" -> {{False, 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.061043}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.061043}}, + "Frame" -> {{False, 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.05551596241469007}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9940138626240587`*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"45a764d9-9554-459c-b6e3-656b3b0fd534"] +}, Open ]], Cell[CellGroupData[{ @@ -2599,14 +7900,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.236292485062943`"], "Output", + CellChangeTimes->{3.991340544411957*^9, 3.9940138626597424`*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"86c7cbc8-4ba0-477e-853b-38cd01b941a6"] }, Open ]], Cell[CellGroupData[{ @@ -2620,27 +7919,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[{"-", @@ -2662,157 +7964,168 @@ 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}, + "\"\\!\\(\\*FractionBox[\\\"1.0981097778190006`*^-261\\\", \ +RowBox[{\\\"1185674779082540666256313\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"7\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9254518349824000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 99, 13, + 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340544611845*^9, 3.994013862736683*^9}, CellLabel-> "During evaluation of \ -In[338]:=",ExpressionUUID->"82d24bea-da89-924f-8c72-34dd3938ca31"], +In[99]:=",ExpressionUUID->"eae47a12-a7d4-4a8a-803c-10bff3111038"], 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}, + "\"\\!\\(\\*FractionBox[\\\"2.374020639888421`*^-271\\\", \ +RowBox[{\\\"9295690268007118823449497\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"9\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"5542386262016000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 99, 14, + 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340544611845*^9, 3.99401386274502*^9}, CellLabel-> "During evaluation of \ -In[338]:=",ExpressionUUID->"dec01940-92d8-ec46-9a19-7eeb83f307cb"], +In[99]:=",ExpressionUUID->"4e9cdb04-c38c-4ee1-a813-2f38664bc663"], 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}, + "\"\\!\\(\\*FractionBox[\\\"5.1324322143912185`*^-281\\\", \ +RowBox[{\\\"7817675515393986930521027\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"12\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1146846355456000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 99, 15, + 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340544611845*^9, 3.994013862752692*^9}, CellLabel-> "During evaluation of \ -In[338]:=",ExpressionUUID->"b8576457-d231-bd44-9899-a0c0bb16b9e8"], +In[99]:=",ExpressionUUID->"3eeb4524-e5a3-471d-ba7f-3a90cfef44e2"], 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, 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340544611845*^9, 3.994013862761445*^9}, CellLabel-> "During evaluation of \ -In[338]:=",ExpressionUUID->"8bc3094a-336c-7a48-a7ed-1449be3156c0"], +In[99]:=",ExpressionUUID->"90310274-bd6f-4bf1-b096-f48a97eae2e9"], 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:eJwV13k4VO8XAHDZUl+przaUbczcsUxEIjLOEdkqEtJOtgopQihMKksh0VeF +iCRzb7KkTSrRIu1li0JoI1u2VPJ7f3/N83nu877zPueec95zVd33rPMSFRER +mTFFROT/v6OtTx6wj+eZHpCMndiyXd+0LksuzKwpGgKWNd7tLZEFnPvSXa4p +BT72+D6uLmFByFq6UawpF9KGnFLpEj34t29+ynhjKeSKtc9PLFkBbRV2e4Yb +q+AP5VZvXLIOLNndHwYb30CJmUuhWLE7jDca/jfQ2AHm7f73FjOBUG1+Ke91 +7hD8dbhY9X7rYVjYduuzO28CpnY+LDRISYA5fq70VHMxPJmwxFynKAVSdC1v +2zlLYXVAq4GO7Wl4d2Zx5eCsGWj6x7+szCsDjudFvRSV/xcfTHhHNadnw/xT +nfGp52ajk6BEsLM8B2KdbEzfjM7F/WqTAnGPC7DPKMf1SbQcHpU1tR2VuAgW +/b/C/TsVUD5kQvyNRz4cMnHYrrBMESOdLeXDUy6B9basH4YrFPG07dPrZqcv +gYyg57DzakUsH/Ozk8y8BJnVR/OT3RTx9+pen5iLl+CmbXmPZLwiqvs5O7jf +vAQDG9RCht4pIndO6Nm4D5dgW/DIsWcHlPDKFK53IqcAjK+cLYu8p4yLW10E +fpcLwKLxxURfjTK6aP3Q4BUXgJ2IuJXrG2U03fCM+na1ADzW+b+DT8rIPdIm +v/l2AVgeUI0SSKigHDXaoVRbAHuVRy+Yaalg5boFfZwvBfBgR3ZvdYgKpnjU +++gqC8Hmj5HswQPkuffB9RksIbxIrjPQF6hgX6d5qiglhHe3pgny4lWQ1T9T +5AlPCH3/BMkezVTBweEbF5caC0Gu2NrQskoF990pXJDkJAS/n4OCmhmqqONf +d255rBCMA7znfZZVxdtb/hadPCYEqe5mRkxOFVuCX6R3JQrhYkt1gylLFRPa +I38JTgmh9e5/vGsGqviVO6czNUcI9keNmnJcVVFjX6U767YQ9GQP6RwoUUXj +qKJjHT1CEDk+8uDMdfLcc+Dp2z5yfjGfTddvq+Kl1J9f7g8KwXdk3dHBh6po +//JZ8akxIeQ1sVt2NKuipoUwbo4YDfOya2KcxFhoGrDFL0KehnGtWa2LnFk4 +cFxnYtichtFzCoeWbGJhT5Z1f7AlDcMzOWwjVxaKHXz0Yciahr4hIx+LXSwc +Ccot/ryGho7bHqObIlj4p7xRr8CFhtpVN2TiLrLQRLz3TboPDem+26BjhIVZ +3ju/QxINpz/s7Pjyi4WrBm4+dUum4ZT9vqO9kyy8Wjz9SmQKDUlL4p7+nKaG +2cPCgyVpNET/LnGZqaSGB+LuWg9l0eB7XGKviaUaagcY13+5QoMJc/l8Wpoa +6khaXkh7RkOLCpO9MkMN72lHLTJ+QUN4mjBrOFsNI0rHOC0vabhxKD9znVAN +Mx/lu899S4PehvNnZCrUsLlXVtb3HQ0aEqeSYz6S9cvlD2d8oqEmPOXE0s9q +6B0wb9a8LzR4DyQndXWr4U62YGbSVxryWhITVgyr4ZbGEu+QHhpUSmPj/kqy +MeO+Q6T6IIm36wFBCI+Nb9ltJ2X/0HCtLiyKo8vG8HaXHZ4TNDjZhkbWLWWj +141nV6/+pSFlafBBPWCjaWdLqe0UBmZI7wntc2Bj6J4Jh02SDIjfct/rvZ+N +P50HN4jMYmBQ1tZtfRUb59/WrdqlykCTH+uVz2M2mo0/uSVgMVD56BdEPWPj +vOo/90+pMZAczigXNLBxaeGQRBmHgcUd0m3j3Wxsi03a+VKDAf+Sl1vPzeag +k6jTRJguA+v/KXheIsfBFRVr9N31GDD1EvAfKXIwYUT1sNUScj55XcV+LgeX +jBv7TFvKwGVByns04aDh8wBfn2UMdNs7b+7y5GD127MXc0wZeCNc9PTnLg5+ +WJ2euhkYKBeTXD5jD4fERzdHFhmIv3FdwSCMg3eOqCqGmjGgrizXHJvIwa02 +7HwVCwZmhQ3YZKZwsK2kJ6ua+OebmlvFpzn497HTbY+VDNTEhJ19l8PBrnCF +7RmWDOzoa96gdZ2DtiuH/L9aM2BnfbUGbnMwmG2RGmTDgEHu8WVOlRyUzHdt +myCWXG8iF1HLwdd3Zw9OXcVA/p1zjS9aOWj613nar9UMJM0Psers5GBuUGv4 +njUMhATY3Rj7ysHzV/fLdRCv5EymqQxxsEJHqvmuHQNdCW7rA6dSOKug5+j6 +tSS+3TzWYmkKRS+7ahURj1mN9/bOorBwX99WCQcGpoulHN2lQOGNGC0/mviU +2zYHrjKFlhZV1uPEinc1FT+pUZgrtChbuY68v7DqMrdFFKr+ajdqJC5vOCFQ +0qNQKPLZaaEjA+b6W1a/N6Aw69NlEVfi9f3DnS5IoSR7k/QH4vbV94vmrqSw +wUR7t5wTAz504oG3NhRuLc12cyCO8KJm2ztS6PTcaEoFsWT1j1bpDRRmvFpX +1EucrHKPrt1CYV/Pt8GFzgwoRB4PidtO1iuFPrEhzmtxWWHpTaFUeYhBELG2 +EVtG3JfCag9Xo0ziG2kD7+7voXDq7Mtv7hPXOsQH8MMoXPVnU63Eegacipz5 +vyMofF9ZqsEm/iDNmnYrmsLX2RtVkdjbp68uJJZCPa2nJRuJBx6Xn9dPoLDY +8nDLXuJwTqzfj2QKvbl/s44Six12XFb8H4mP480/p4kT2pXF/dMp/J2rPXKJ +eJ7p95da2WQ9vzXuGvH5jJsZ3y5Q+CXT4mYlscb4kR2XCihcf6zt8BPi0vUO +S7wKKZyusuj7S2KTMsVJVimF22qYwbfEj/7trm2//v/9mk/VE6/dcz0t6zaF +ZscMG+qIm59Fu2+ppHBsqvn118QemvbaCg8p9HE7uPQZ8ffYBb8an1C4N8HD +6QFxyKcvD/97QeE/daGzy4lFzMtOOr6lcMsLk32FxMfOC7b+20QhbF8clEU8 +5+9qjZfvKXS8XzcvkfjcZvmRhI8UZgYwm8OIqVufKm0/U3jI3MDcg7h4XmmC +VA+FCevHntsSGwdFbnjUT6GVXMAfHeLq17bsI8MUdphTL2WJV+vMHzAbJ//f +cdZyiLy/hoTO25MTJL9s7T1eE7t1F8XeEeXiUaVaTiHxN6uDjgemcjFxbVJS +DPEf0bk9o7O4eGCWuLMecYzbx+tlc7mYP3n3qjjxzLuF0YEKXDwn01BeR/KN +FWap0KfGxQVp2g92E9v077f5ZMBFT039N4dJPi/UVYqRMuEi73nqVFPivsAH +VVpmXLwl+HhohNTHqdFZJoGruJh255fVFuLWCaH2pCsXH4ewF00j9VUMa31Z +XlxcUTaYWUjq8/Ch0UsrfbioeFnJxZ5YXcJcNSGIi73qGwqP2TMQKP1+tnw8 +Fy3ac4bbSf1b2EWvNUni4vFrVbX/7w/zk9UTXVO5OJX3YuA36R8Vs4Ml889x +MfpVgI40seQCmXG9UhIPs4xj0rYMpGtg6+oWLo6ULnZJJP3Mz/ezwt52Lm6O +eSQYJP0OChNcUj9xsX5jvoQjcdfid6/e9XNRa1CdLWNO6mtZYLW3uDoOTibX +eJJ+Wm2ZVyBYpI6rvzSsO2XMQFqc7acLeuro/jsn7oURAztrB1QfG6rjmi9B +HEliGTt+xowVxCbap3cbMrDBuSExfb06PlT/vEdRn+Sjh9S+sih1vOZpnT1l +EYlvlsWde0fUMfV+7uQ8HgP97wRTn8aroxUUdGtoMfDDfjzjY6o6xq/J9LAm +98vY8u4HMgXqOLPhxMgOcv+Iznk2b9crdZQLb+XrKZL7zV5qe1C9On6fXnZe +ZSEDEscsmKhmdbzdNXpWegEDUiJ3IK1LHU0P3lv3QY6c93vhzuqf6qjcYfNj ++xwG5B+cKFdU1cB6s7yTP6eTfjT5VFyD0sCnwY7XKqeR/DCWstfX0sD/LkQc +iJFiQKlY0Gm7VAOTrdf+mE7uV3ZmgHSojQZaVG7OHhMh/TXIcdubAA0cKt54 +wW2UJvP9fNHYKg2U6txbHdJGwzd3q4LljzVQ8tqGIplWGhJy9tsNPNXARMdv +OXnvaXir1JS+sZ6sP5J+rpbMF27yZ5fwvmrghPi2KZNk/giTWeD1eoYmTnk/ +Q3p6DQ2XfyrVLNioiWUVZx4UkvnG3tDe/9VWTZS8G/JkaiENP4Kj5hx118SF +O6Z0uzI0GA21ufX5auJGYY1gegENj3rPj1dGaiI2tcy3yaGhrYOl5Z2nifVS +h6P9UmmQfU4lFfdrotH3/RIOITT87V98sXZYEw807FpiFURDt+zyiq5xTSwa +SzFbHkhD1Qb7bjlxLfSL/0dU0Z+GfV37LQ/JaaG1J4f32IuGut81fx3MtNBl ++fzu605kvtP03TOUooXJ33xhui4NC+OK1hoY8HBTd2hgaacQ6CuF1ePGPOS9 +3tm97qMQltUzBneAh71hNuWDrUJwYhUstLDh4TXbJk/NZiEkVJz/6rCFh4UN +M3/FvhLC74GTgt3RPGzyd3o2XCGE5o1BxXkveKhMr1qbTubpM1pGs2bvWIRu +gYw8gBBqFcyWDp3UxpkGj6W1Ysn3xsKqZJ0GHRQVVfi2Qki+Z8Ryg7ZHL0b9 +G+eTDtXkg9IhZZONlC6mMt+/8h5ehGmcLdfXPdZFlbRxT5XyPNDmyxft36qH +YsU+Vz7fvACBrbLVtiJLMCX8yBROZi70DyU425xZgv531JbEncgBK51H6TaL +9HH1lJiVXbHn4e7Q8t9jL/TRnyr+fa4xC/x5es2vvZbiv2+2ORo+zwR+n2fd +xmkG+EyrJdfsQjqsZMutmZFrgBo83uO7l8+AuuBYaJWhIb6Mr1AJeJUGml5G +9zjNhjieP3nFv/0UeN3deaQsYBn2BFcMZlOpcO98nefgXCPMurCk1tXtJAwX +TI7p3DBCvY/lrxNDT4AHh5mWvsYY3efaPNY+kwCDmqkGpQPGmB4qqB4rjIeb +eb8/jsQtx+mhT7ItqFjYZKGGy5VMcKhx+8MLTUdgwe7YW9qVJvhgd5tp+rFo +mDvdr2SNCx+7TgbXW5wUQJ55RPjARj4ubAg0qI8TgF5EknnqFj6Ojid82CkQ +gN1AcX3Tdj7qyhX9PrtHADENI+Mefnx0m1PurWYngJ+5USvCD/ExYsqqPW/+ +EUDz8tS3+Qwf/bUNvxrNjoKdwXmZNlf4+NnT5aWGWBSMXrnm9b2YjxozuhRU +hiJBltU0pnudj6Wiys3KbyNhlZTiwjuVfNwfKFLvmxoJFXX5nm/r+djYX3hW +f24k2MrcXBTSRPbL0+Edk4iEJqsno3ItfFzpv0rm80gEDJf3xG1r56NWlVRF +cUMELMpZXPitm48Ce8GZk2cioKLZLCShl49nfCui5eMjwHaOI+gM8HFTwFDJ +pbAI8I4Nfh00wsduz5/vGjaR/Spj0uf/5OPpuXKv9q+KgOhfpz3Kf5H9DRsk +lE0iYJa+kLd1go/MpuawZ7wIyNpdPjI5yUc64ammQDEC/gcZDqts "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -2826,116 +8139,118 @@ 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:eJwV13k4VO8XAHDZUl+przaUbczcsUxEIjLOEdkqEtJOtgopQihMKksh0VeF +iCRzb7KkTSrRIu1li0JoI1u2VPJ7f3/N83nu877zPueec95zVd33rPMSFRER +mTFFROT/v6OtTx6wj+eZHpCMndiyXd+0LksuzKwpGgKWNd7tLZEFnPvSXa4p +BT72+D6uLmFByFq6UawpF9KGnFLpEj34t29+ynhjKeSKtc9PLFkBbRV2e4Yb +q+AP5VZvXLIOLNndHwYb30CJmUuhWLE7jDca/jfQ2AHm7f73FjOBUG1+Ke91 +7hD8dbhY9X7rYVjYduuzO28CpnY+LDRISYA5fq70VHMxPJmwxFynKAVSdC1v +2zlLYXVAq4GO7Wl4d2Zx5eCsGWj6x7+szCsDjudFvRSV/xcfTHhHNadnw/xT +nfGp52ajk6BEsLM8B2KdbEzfjM7F/WqTAnGPC7DPKMf1SbQcHpU1tR2VuAgW +/b/C/TsVUD5kQvyNRz4cMnHYrrBMESOdLeXDUy6B9basH4YrFPG07dPrZqcv +gYyg57DzakUsH/Ozk8y8BJnVR/OT3RTx9+pen5iLl+CmbXmPZLwiqvs5O7jf +vAQDG9RCht4pIndO6Nm4D5dgW/DIsWcHlPDKFK53IqcAjK+cLYu8p4yLW10E +fpcLwKLxxURfjTK6aP3Q4BUXgJ2IuJXrG2U03fCM+na1ADzW+b+DT8rIPdIm +v/l2AVgeUI0SSKigHDXaoVRbAHuVRy+Yaalg5boFfZwvBfBgR3ZvdYgKpnjU +++gqC8Hmj5HswQPkuffB9RksIbxIrjPQF6hgX6d5qiglhHe3pgny4lWQ1T9T +5AlPCH3/BMkezVTBweEbF5caC0Gu2NrQskoF990pXJDkJAS/n4OCmhmqqONf +d255rBCMA7znfZZVxdtb/hadPCYEqe5mRkxOFVuCX6R3JQrhYkt1gylLFRPa +I38JTgmh9e5/vGsGqviVO6czNUcI9keNmnJcVVFjX6U767YQ9GQP6RwoUUXj +qKJjHT1CEDk+8uDMdfLcc+Dp2z5yfjGfTddvq+Kl1J9f7g8KwXdk3dHBh6po +//JZ8akxIeQ1sVt2NKuipoUwbo4YDfOya2KcxFhoGrDFL0KehnGtWa2LnFk4 +cFxnYtichtFzCoeWbGJhT5Z1f7AlDcMzOWwjVxaKHXz0Yciahr4hIx+LXSwc +Ccot/ryGho7bHqObIlj4p7xRr8CFhtpVN2TiLrLQRLz3TboPDem+26BjhIVZ +3ju/QxINpz/s7Pjyi4WrBm4+dUum4ZT9vqO9kyy8Wjz9SmQKDUlL4p7+nKaG +2cPCgyVpNET/LnGZqaSGB+LuWg9l0eB7XGKviaUaagcY13+5QoMJc/l8Wpoa +6khaXkh7RkOLCpO9MkMN72lHLTJ+QUN4mjBrOFsNI0rHOC0vabhxKD9znVAN +Mx/lu899S4PehvNnZCrUsLlXVtb3HQ0aEqeSYz6S9cvlD2d8oqEmPOXE0s9q +6B0wb9a8LzR4DyQndXWr4U62YGbSVxryWhITVgyr4ZbGEu+QHhpUSmPj/kqy +MeO+Q6T6IIm36wFBCI+Nb9ltJ2X/0HCtLiyKo8vG8HaXHZ4TNDjZhkbWLWWj +141nV6/+pSFlafBBPWCjaWdLqe0UBmZI7wntc2Bj6J4Jh02SDIjfct/rvZ+N +P50HN4jMYmBQ1tZtfRUb59/WrdqlykCTH+uVz2M2mo0/uSVgMVD56BdEPWPj +vOo/90+pMZAczigXNLBxaeGQRBmHgcUd0m3j3Wxsi03a+VKDAf+Sl1vPzeag +k6jTRJguA+v/KXheIsfBFRVr9N31GDD1EvAfKXIwYUT1sNUScj55XcV+LgeX +jBv7TFvKwGVByns04aDh8wBfn2UMdNs7b+7y5GD127MXc0wZeCNc9PTnLg5+ +WJ2euhkYKBeTXD5jD4fERzdHFhmIv3FdwSCMg3eOqCqGmjGgrizXHJvIwa02 +7HwVCwZmhQ3YZKZwsK2kJ6ua+OebmlvFpzn497HTbY+VDNTEhJ19l8PBrnCF +7RmWDOzoa96gdZ2DtiuH/L9aM2BnfbUGbnMwmG2RGmTDgEHu8WVOlRyUzHdt +myCWXG8iF1HLwdd3Zw9OXcVA/p1zjS9aOWj613nar9UMJM0Psers5GBuUGv4 +njUMhATY3Rj7ysHzV/fLdRCv5EymqQxxsEJHqvmuHQNdCW7rA6dSOKug5+j6 +tSS+3TzWYmkKRS+7ahURj1mN9/bOorBwX99WCQcGpoulHN2lQOGNGC0/mviU +2zYHrjKFlhZV1uPEinc1FT+pUZgrtChbuY68v7DqMrdFFKr+ajdqJC5vOCFQ +0qNQKPLZaaEjA+b6W1a/N6Aw69NlEVfi9f3DnS5IoSR7k/QH4vbV94vmrqSw +wUR7t5wTAz504oG3NhRuLc12cyCO8KJm2ztS6PTcaEoFsWT1j1bpDRRmvFpX +1EucrHKPrt1CYV/Pt8GFzgwoRB4PidtO1iuFPrEhzmtxWWHpTaFUeYhBELG2 +EVtG3JfCag9Xo0ziG2kD7+7voXDq7Mtv7hPXOsQH8MMoXPVnU63Eegacipz5 +vyMofF9ZqsEm/iDNmnYrmsLX2RtVkdjbp68uJJZCPa2nJRuJBx6Xn9dPoLDY +8nDLXuJwTqzfj2QKvbl/s44Six12XFb8H4mP480/p4kT2pXF/dMp/J2rPXKJ +eJ7p95da2WQ9vzXuGvH5jJsZ3y5Q+CXT4mYlscb4kR2XCihcf6zt8BPi0vUO +S7wKKZyusuj7S2KTMsVJVimF22qYwbfEj/7trm2//v/9mk/VE6/dcz0t6zaF +ZscMG+qIm59Fu2+ppHBsqvn118QemvbaCg8p9HE7uPQZ8ffYBb8an1C4N8HD +6QFxyKcvD/97QeE/daGzy4lFzMtOOr6lcMsLk32FxMfOC7b+20QhbF8clEU8 +5+9qjZfvKXS8XzcvkfjcZvmRhI8UZgYwm8OIqVufKm0/U3jI3MDcg7h4XmmC +VA+FCevHntsSGwdFbnjUT6GVXMAfHeLq17bsI8MUdphTL2WJV+vMHzAbJ//f +cdZyiLy/hoTO25MTJL9s7T1eE7t1F8XeEeXiUaVaTiHxN6uDjgemcjFxbVJS +DPEf0bk9o7O4eGCWuLMecYzbx+tlc7mYP3n3qjjxzLuF0YEKXDwn01BeR/KN +FWap0KfGxQVp2g92E9v077f5ZMBFT039N4dJPi/UVYqRMuEi73nqVFPivsAH +VVpmXLwl+HhohNTHqdFZJoGruJh255fVFuLWCaH2pCsXH4ewF00j9VUMa31Z +XlxcUTaYWUjq8/Ch0UsrfbioeFnJxZ5YXcJcNSGIi73qGwqP2TMQKP1+tnw8 +Fy3ac4bbSf1b2EWvNUni4vFrVbX/7w/zk9UTXVO5OJX3YuA36R8Vs4Ml889x +MfpVgI40seQCmXG9UhIPs4xj0rYMpGtg6+oWLo6ULnZJJP3Mz/ezwt52Lm6O +eSQYJP0OChNcUj9xsX5jvoQjcdfid6/e9XNRa1CdLWNO6mtZYLW3uDoOTibX +eJJ+Wm2ZVyBYpI6rvzSsO2XMQFqc7acLeuro/jsn7oURAztrB1QfG6rjmi9B +HEliGTt+xowVxCbap3cbMrDBuSExfb06PlT/vEdRn+Sjh9S+sih1vOZpnT1l +EYlvlsWde0fUMfV+7uQ8HgP97wRTn8aroxUUdGtoMfDDfjzjY6o6xq/J9LAm +98vY8u4HMgXqOLPhxMgOcv+Iznk2b9crdZQLb+XrKZL7zV5qe1C9On6fXnZe +ZSEDEscsmKhmdbzdNXpWegEDUiJ3IK1LHU0P3lv3QY6c93vhzuqf6qjcYfNj ++xwG5B+cKFdU1cB6s7yTP6eTfjT5VFyD0sCnwY7XKqeR/DCWstfX0sD/LkQc +iJFiQKlY0Gm7VAOTrdf+mE7uV3ZmgHSojQZaVG7OHhMh/TXIcdubAA0cKt54 +wW2UJvP9fNHYKg2U6txbHdJGwzd3q4LljzVQ8tqGIplWGhJy9tsNPNXARMdv +OXnvaXir1JS+sZ6sP5J+rpbMF27yZ5fwvmrghPi2KZNk/giTWeD1eoYmTnk/ +Q3p6DQ2XfyrVLNioiWUVZx4UkvnG3tDe/9VWTZS8G/JkaiENP4Kj5hx118SF +O6Z0uzI0GA21ufX5auJGYY1gegENj3rPj1dGaiI2tcy3yaGhrYOl5Z2nifVS +h6P9UmmQfU4lFfdrotH3/RIOITT87V98sXZYEw807FpiFURDt+zyiq5xTSwa +SzFbHkhD1Qb7bjlxLfSL/0dU0Z+GfV37LQ/JaaG1J4f32IuGut81fx3MtNBl ++fzu605kvtP03TOUooXJ33xhui4NC+OK1hoY8HBTd2hgaacQ6CuF1ePGPOS9 +3tm97qMQltUzBneAh71hNuWDrUJwYhUstLDh4TXbJk/NZiEkVJz/6rCFh4UN +M3/FvhLC74GTgt3RPGzyd3o2XCGE5o1BxXkveKhMr1qbTubpM1pGs2bvWIRu +gYw8gBBqFcyWDp3UxpkGj6W1Ysn3xsKqZJ0GHRQVVfi2Qki+Z8Ryg7ZHL0b9 +G+eTDtXkg9IhZZONlC6mMt+/8h5ehGmcLdfXPdZFlbRxT5XyPNDmyxft36qH +YsU+Vz7fvACBrbLVtiJLMCX8yBROZi70DyU425xZgv531JbEncgBK51H6TaL +9HH1lJiVXbHn4e7Q8t9jL/TRnyr+fa4xC/x5es2vvZbiv2+2ORo+zwR+n2fd +xmkG+EyrJdfsQjqsZMutmZFrgBo83uO7l8+AuuBYaJWhIb6Mr1AJeJUGml5G +9zjNhjieP3nFv/0UeN3deaQsYBn2BFcMZlOpcO98nefgXCPMurCk1tXtJAwX +TI7p3DBCvY/lrxNDT4AHh5mWvsYY3efaPNY+kwCDmqkGpQPGmB4qqB4rjIeb +eb8/jsQtx+mhT7ItqFjYZKGGy5VMcKhx+8MLTUdgwe7YW9qVJvhgd5tp+rFo +mDvdr2SNCx+7TgbXW5wUQJ55RPjARj4ubAg0qI8TgF5EknnqFj6Ojid82CkQ +gN1AcX3Tdj7qyhX9PrtHADENI+Mefnx0m1PurWYngJ+5USvCD/ExYsqqPW/+ +EUDz8tS3+Qwf/bUNvxrNjoKdwXmZNlf4+NnT5aWGWBSMXrnm9b2YjxozuhRU +hiJBltU0pnudj6Wiys3KbyNhlZTiwjuVfNwfKFLvmxoJFXX5nm/r+djYX3hW +f24k2MrcXBTSRPbL0+Edk4iEJqsno3ItfFzpv0rm80gEDJf3xG1r56NWlVRF +cUMELMpZXPitm48Ce8GZk2cioKLZLCShl49nfCui5eMjwHaOI+gM8HFTwFDJ +pbAI8I4Nfh00wsduz5/vGjaR/Spj0uf/5OPpuXKv9q+KgOhfpz3Kf5H9DRsk +lE0iYJa+kLd1go/MpuawZ7wIyNpdPjI5yUc64ammQDEC/gcZDqts "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "PlotRange" -> {{0, 30}, {0., 0.05339686815306821}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +8262,19 @@ C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "PlotRange" -> {{0, 30}, {0., 0.05339686815306821}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +8288,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:eJwV13k4VO8XAHDZUl+przaUbczcsUxEIjLOEdkqEtJOtgopQihMKksh0VeF +iCRzb7KkTSrRIu1li0JoI1u2VPJ7f3/N83nu877zPueec95zVd33rPMSFRER +mTFFROT/v6OtTx6wj+eZHpCMndiyXd+0LksuzKwpGgKWNd7tLZEFnPvSXa4p +BT72+D6uLmFByFq6UawpF9KGnFLpEj34t29+ynhjKeSKtc9PLFkBbRV2e4Yb +q+AP5VZvXLIOLNndHwYb30CJmUuhWLE7jDca/jfQ2AHm7f73FjOBUG1+Ke91 +7hD8dbhY9X7rYVjYduuzO28CpnY+LDRISYA5fq70VHMxPJmwxFynKAVSdC1v +2zlLYXVAq4GO7Wl4d2Zx5eCsGWj6x7+szCsDjudFvRSV/xcfTHhHNadnw/xT +nfGp52ajk6BEsLM8B2KdbEzfjM7F/WqTAnGPC7DPKMf1SbQcHpU1tR2VuAgW +/b/C/TsVUD5kQvyNRz4cMnHYrrBMESOdLeXDUy6B9basH4YrFPG07dPrZqcv +gYyg57DzakUsH/Ozk8y8BJnVR/OT3RTx9+pen5iLl+CmbXmPZLwiqvs5O7jf +vAQDG9RCht4pIndO6Nm4D5dgW/DIsWcHlPDKFK53IqcAjK+cLYu8p4yLW10E +fpcLwKLxxURfjTK6aP3Q4BUXgJ2IuJXrG2U03fCM+na1ADzW+b+DT8rIPdIm +v/l2AVgeUI0SSKigHDXaoVRbAHuVRy+Yaalg5boFfZwvBfBgR3ZvdYgKpnjU +++gqC8Hmj5HswQPkuffB9RksIbxIrjPQF6hgX6d5qiglhHe3pgny4lWQ1T9T +5AlPCH3/BMkezVTBweEbF5caC0Gu2NrQskoF990pXJDkJAS/n4OCmhmqqONf +d255rBCMA7znfZZVxdtb/hadPCYEqe5mRkxOFVuCX6R3JQrhYkt1gylLFRPa +I38JTgmh9e5/vGsGqviVO6czNUcI9keNmnJcVVFjX6U767YQ9GQP6RwoUUXj +qKJjHT1CEDk+8uDMdfLcc+Dp2z5yfjGfTddvq+Kl1J9f7g8KwXdk3dHBh6po +//JZ8akxIeQ1sVt2NKuipoUwbo4YDfOya2KcxFhoGrDFL0KehnGtWa2LnFk4 +cFxnYtichtFzCoeWbGJhT5Z1f7AlDcMzOWwjVxaKHXz0Yciahr4hIx+LXSwc +Ccot/ryGho7bHqObIlj4p7xRr8CFhtpVN2TiLrLQRLz3TboPDem+26BjhIVZ +3ju/QxINpz/s7Pjyi4WrBm4+dUum4ZT9vqO9kyy8Wjz9SmQKDUlL4p7+nKaG +2cPCgyVpNET/LnGZqaSGB+LuWg9l0eB7XGKviaUaagcY13+5QoMJc/l8Wpoa +6khaXkh7RkOLCpO9MkMN72lHLTJ+QUN4mjBrOFsNI0rHOC0vabhxKD9znVAN +Mx/lu899S4PehvNnZCrUsLlXVtb3HQ0aEqeSYz6S9cvlD2d8oqEmPOXE0s9q +6B0wb9a8LzR4DyQndXWr4U62YGbSVxryWhITVgyr4ZbGEu+QHhpUSmPj/kqy +MeO+Q6T6IIm36wFBCI+Nb9ltJ2X/0HCtLiyKo8vG8HaXHZ4TNDjZhkbWLWWj +141nV6/+pSFlafBBPWCjaWdLqe0UBmZI7wntc2Bj6J4Jh02SDIjfct/rvZ+N +P50HN4jMYmBQ1tZtfRUb59/WrdqlykCTH+uVz2M2mo0/uSVgMVD56BdEPWPj +vOo/90+pMZAczigXNLBxaeGQRBmHgcUd0m3j3Wxsi03a+VKDAf+Sl1vPzeag +k6jTRJguA+v/KXheIsfBFRVr9N31GDD1EvAfKXIwYUT1sNUScj55XcV+LgeX +jBv7TFvKwGVByns04aDh8wBfn2UMdNs7b+7y5GD127MXc0wZeCNc9PTnLg5+ +WJ2euhkYKBeTXD5jD4fERzdHFhmIv3FdwSCMg3eOqCqGmjGgrizXHJvIwa02 +7HwVCwZmhQ3YZKZwsK2kJ6ua+OebmlvFpzn497HTbY+VDNTEhJ19l8PBrnCF +7RmWDOzoa96gdZ2DtiuH/L9aM2BnfbUGbnMwmG2RGmTDgEHu8WVOlRyUzHdt +myCWXG8iF1HLwdd3Zw9OXcVA/p1zjS9aOWj613nar9UMJM0Psers5GBuUGv4 +njUMhATY3Rj7ysHzV/fLdRCv5EymqQxxsEJHqvmuHQNdCW7rA6dSOKug5+j6 +tSS+3TzWYmkKRS+7ahURj1mN9/bOorBwX99WCQcGpoulHN2lQOGNGC0/mviU +2zYHrjKFlhZV1uPEinc1FT+pUZgrtChbuY68v7DqMrdFFKr+ajdqJC5vOCFQ +0qNQKPLZaaEjA+b6W1a/N6Aw69NlEVfi9f3DnS5IoSR7k/QH4vbV94vmrqSw +wUR7t5wTAz504oG3NhRuLc12cyCO8KJm2ztS6PTcaEoFsWT1j1bpDRRmvFpX +1EucrHKPrt1CYV/Pt8GFzgwoRB4PidtO1iuFPrEhzmtxWWHpTaFUeYhBELG2 +EVtG3JfCag9Xo0ziG2kD7+7voXDq7Mtv7hPXOsQH8MMoXPVnU63Eegacipz5 +vyMofF9ZqsEm/iDNmnYrmsLX2RtVkdjbp68uJJZCPa2nJRuJBx6Xn9dPoLDY +8nDLXuJwTqzfj2QKvbl/s44Six12XFb8H4mP480/p4kT2pXF/dMp/J2rPXKJ +eJ7p95da2WQ9vzXuGvH5jJsZ3y5Q+CXT4mYlscb4kR2XCihcf6zt8BPi0vUO +S7wKKZyusuj7S2KTMsVJVimF22qYwbfEj/7trm2//v/9mk/VE6/dcz0t6zaF +ZscMG+qIm59Fu2+ppHBsqvn118QemvbaCg8p9HE7uPQZ8ffYBb8an1C4N8HD +6QFxyKcvD/97QeE/daGzy4lFzMtOOr6lcMsLk32FxMfOC7b+20QhbF8clEU8 +5+9qjZfvKXS8XzcvkfjcZvmRhI8UZgYwm8OIqVufKm0/U3jI3MDcg7h4XmmC +VA+FCevHntsSGwdFbnjUT6GVXMAfHeLq17bsI8MUdphTL2WJV+vMHzAbJ//f +cdZyiLy/hoTO25MTJL9s7T1eE7t1F8XeEeXiUaVaTiHxN6uDjgemcjFxbVJS +DPEf0bk9o7O4eGCWuLMecYzbx+tlc7mYP3n3qjjxzLuF0YEKXDwn01BeR/KN +FWap0KfGxQVp2g92E9v077f5ZMBFT039N4dJPi/UVYqRMuEi73nqVFPivsAH +VVpmXLwl+HhohNTHqdFZJoGruJh255fVFuLWCaH2pCsXH4ewF00j9VUMa31Z +XlxcUTaYWUjq8/Ch0UsrfbioeFnJxZ5YXcJcNSGIi73qGwqP2TMQKP1+tnw8 +Fy3ac4bbSf1b2EWvNUni4vFrVbX/7w/zk9UTXVO5OJX3YuA36R8Vs4Ml889x +MfpVgI40seQCmXG9UhIPs4xj0rYMpGtg6+oWLo6ULnZJJP3Mz/ezwt52Lm6O +eSQYJP0OChNcUj9xsX5jvoQjcdfid6/e9XNRa1CdLWNO6mtZYLW3uDoOTibX +eJJ+Wm2ZVyBYpI6rvzSsO2XMQFqc7acLeuro/jsn7oURAztrB1QfG6rjmi9B +HEliGTt+xowVxCbap3cbMrDBuSExfb06PlT/vEdRn+Sjh9S+sih1vOZpnT1l +EYlvlsWde0fUMfV+7uQ8HgP97wRTn8aroxUUdGtoMfDDfjzjY6o6xq/J9LAm +98vY8u4HMgXqOLPhxMgOcv+Iznk2b9crdZQLb+XrKZL7zV5qe1C9On6fXnZe +ZSEDEscsmKhmdbzdNXpWegEDUiJ3IK1LHU0P3lv3QY6c93vhzuqf6qjcYfNj ++xwG5B+cKFdU1cB6s7yTP6eTfjT5VFyD0sCnwY7XKqeR/DCWstfX0sD/LkQc +iJFiQKlY0Gm7VAOTrdf+mE7uV3ZmgHSojQZaVG7OHhMh/TXIcdubAA0cKt54 +wW2UJvP9fNHYKg2U6txbHdJGwzd3q4LljzVQ8tqGIplWGhJy9tsNPNXARMdv +OXnvaXir1JS+sZ6sP5J+rpbMF27yZ5fwvmrghPi2KZNk/giTWeD1eoYmTnk/ +Q3p6DQ2XfyrVLNioiWUVZx4UkvnG3tDe/9VWTZS8G/JkaiENP4Kj5hx118SF +O6Z0uzI0GA21ufX5auJGYY1gegENj3rPj1dGaiI2tcy3yaGhrYOl5Z2nifVS +h6P9UmmQfU4lFfdrotH3/RIOITT87V98sXZYEw807FpiFURDt+zyiq5xTSwa +SzFbHkhD1Qb7bjlxLfSL/0dU0Z+GfV37LQ/JaaG1J4f32IuGut81fx3MtNBl ++fzu605kvtP03TOUooXJ33xhui4NC+OK1hoY8HBTd2hgaacQ6CuF1ePGPOS9 +3tm97qMQltUzBneAh71hNuWDrUJwYhUstLDh4TXbJk/NZiEkVJz/6rCFh4UN +M3/FvhLC74GTgt3RPGzyd3o2XCGE5o1BxXkveKhMr1qbTubpM1pGs2bvWIRu +gYw8gBBqFcyWDp3UxpkGj6W1Ysn3xsKqZJ0GHRQVVfi2Qki+Z8Ryg7ZHL0b9 +G+eTDtXkg9IhZZONlC6mMt+/8h5ehGmcLdfXPdZFlbRxT5XyPNDmyxft36qH +YsU+Vz7fvACBrbLVtiJLMCX8yBROZi70DyU425xZgv531JbEncgBK51H6TaL +9HH1lJiVXbHn4e7Q8t9jL/TRnyr+fa4xC/x5es2vvZbiv2+2ORo+zwR+n2fd +xmkG+EyrJdfsQjqsZMutmZFrgBo83uO7l8+AuuBYaJWhIb6Mr1AJeJUGml5G +9zjNhjieP3nFv/0UeN3deaQsYBn2BFcMZlOpcO98nefgXCPMurCk1tXtJAwX +TI7p3DBCvY/lrxNDT4AHh5mWvsYY3efaPNY+kwCDmqkGpQPGmB4qqB4rjIeb +eb8/jsQtx+mhT7ItqFjYZKGGy5VMcKhx+8MLTUdgwe7YW9qVJvhgd5tp+rFo +mDvdr2SNCx+7TgbXW5wUQJ55RPjARj4ubAg0qI8TgF5EknnqFj6Ojid82CkQ +gN1AcX3Tdj7qyhX9PrtHADENI+Mefnx0m1PurWYngJ+5USvCD/ExYsqqPW/+ +EUDz8tS3+Qwf/bUNvxrNjoKdwXmZNlf4+NnT5aWGWBSMXrnm9b2YjxozuhRU +hiJBltU0pnudj6Wiys3KbyNhlZTiwjuVfNwfKFLvmxoJFXX5nm/r+djYX3hW +f24k2MrcXBTSRPbL0+Edk4iEJqsno3ItfFzpv0rm80gEDJf3xG1r56NWlVRF +cUMELMpZXPitm48Ce8GZk2cioKLZLCShl49nfCui5eMjwHaOI+gM8HFTwFDJ +pbAI8I4Nfh00wsduz5/vGjaR/Spj0uf/5OPpuXKv9q+KgOhfpz3Kf5H9DRsk +lE0iYJa+kLd1go/MpuawZ7wIyNpdPjI5yUc64ammQDEC/gcZDqts "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "PlotRange" -> {{0, 30}, {0., 0.05339686815306821}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +8409,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 +8437,8 @@ C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.060553949877372025`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.05339686815306821}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -3127,9 +8446,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.994014329743416*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"35a8d244-aabd-47fc-add9-f970c6c5a326"] }, Open ]], Cell[CellGroupData[{ @@ -3141,7 +8459,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[{ @@ -3159,8 +8479,8 @@ Cell[BoxData[ SuperscriptBox[ RowBox[{"(", FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -3182,66 +8502,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\\\", \ -\\\"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.9336241224495273`*^-172\\\", \ +RowBox[{\\\"182746270923358292188640\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"91\\\", \\\"\[RightSkeleton]\\\"}], \\\"4000000000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 100, 17, 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340881982744*^9, 3.994014329857101*^9}, CellLabel-> "During evaluation of \ -In[339]:=",ExpressionUUID->"6b02dcd6-679e-e045-823b-19e8112735bb"], +In[100]:=",ExpressionUUID->"4cb6911a-250f-42cf-87c9-8227747a2f3f"], 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.1129926153610433`*^-175\\\", \ +RowBox[{\\\"532888126012512780022077\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"94\\\", \\\"\[RightSkeleton]\\\"}], \\\"4000000000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 100, 18, 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340881982744*^9, 3.9940143298668823`*^9}, CellLabel-> "During evaluation of \ -In[339]:=",ExpressionUUID->"1777b2e8-4814-3b40-9d26-e365522e2fa7"], +In[100]:=",ExpressionUUID->"9c4e789c-5a95-498c-8f0a-ca9a7c57020a"], 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[\\\"6.406377265706407`*^-179\\\", \ +RowBox[{\\\"161198658118785115956678\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"98\\\", \\\"\[RightSkeleton]\\\"}], \\\"0000000000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 100, 19, 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340881982744*^9, 3.994014329874452*^9}, CellLabel-> "During evaluation of \ -In[339]:=",ExpressionUUID->"343e800a-6390-7b48-892a-7785bb4151c8"], +In[100]:=",ExpressionUUID->"ef23e22a-462a-41da-aa1a-4569e5e7b78c"], 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, 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340881982744*^9, 3.9940143298808126`*^9}, CellLabel-> "During evaluation of \ -In[339]:=",ExpressionUUID->"30a8c837-a97a-f04a-b90a-1e6b32a15ee9"], +In[100]:=",ExpressionUUID->"19b38555-0997-4007-85cb-901ba198132e"], -Cell[BoxData["12.553654989521348`"], "Output", - CellChangeTimes->{3.9913408882266617`*^9}, +Cell[BoxData["14.231434028009524`"], "Output", + CellChangeTimes->{3.9913408882266617`*^9, 3.994014376290597*^9}, CellLabel-> - "Out[339]=",ExpressionUUID->"ae05a7c3-f5d6-d640-8f8e-efe8f63ceb63"] + "Out[100]=",ExpressionUUID->"8bc479f9-f47b-48b9-9920-0ae96d9283a4"] }, Open ]], Cell[CellGroupData[{ @@ -3309,68 +8633,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[\\\"1.7245129783388705`*^-225\\\", \ +RowBox[{\\\"2735526583816145583533735\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9182397440000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 101, 21, + 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913408882626343`*^9, 3.9940143763374233`*^9}, CellLabel-> "During evaluation of \ -In[340]:=",ExpressionUUID->"089dc3ff-480d-db4f-bbed-05630517df59"], +In[101]:=",ExpressionUUID->"b55d7f8f-61d2-4552-822c-5751bea7b540"], 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[\\\"2.0981759296253436`*^-231\\\", \ +RowBox[{\\\"4160735933984357432554811\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6426506240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 101, 22, + 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913408882626343`*^9, 3.994014376346459*^9}, CellLabel-> "During evaluation of \ -In[340]:=",ExpressionUUID->"6e93a9b9-9460-8649-881d-48f37a709a1b"], +In[101]:=",ExpressionUUID->"e5cdaef4-1d0c-4008-8c69-de0c195e6bbf"], 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.552803189628476`*^-237\\\", \ +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 101, 23, + 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913408882626343`*^9, 3.9940143763534393`*^9}, CellLabel-> "During evaluation of \ -In[340]:=",ExpressionUUID->"1ee8858a-971e-d34f-bafe-57ab88be1238"], +In[101]:=",ExpressionUUID->"b88033d4-7cc7-4990-be88-83a31a7ac11f"], 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, 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913408882626343`*^9, 3.99401437636028*^9}, CellLabel-> "During evaluation of \ -In[340]:=",ExpressionUUID->"96f8e027-4313-4f4f-a21d-2291fe960276"], +In[101]:=",ExpressionUUID->"f270c531-cbed-4ae7-bab5-21095ceff7a1"], -Cell[BoxData["1.3456729512531673`"], "Output", - CellChangeTimes->{3.991340895263792*^9}, +Cell[BoxData["0.22054383651852028`"], "Output", + CellChangeTimes->{3.991340895263792*^9, 3.994014382873186*^9}, CellLabel-> - "Out[340]=",ExpressionUUID->"53e3f7cd-1b3e-7343-931d-6e137013b0b0"] + "Out[101]=",ExpressionUUID->"eea56f4a-3a9c-48d8-857d-49fd36946e23"] }, Open ]], Cell[CellGroupData[{ @@ -3391,8 +8722,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 +8767,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[\\\"1.7245129783388705`*^-225\\\", \ +RowBox[{\\\"2735526583816145583533735\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9182397440000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 102, 25, + 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340895297941*^9, 3.994014382903689*^9}, CellLabel-> "During evaluation of \ -In[341]:=",ExpressionUUID->"2abeeb06-100d-8a4f-bcb1-ddb8c833ff54"], +In[102]:=",ExpressionUUID->"544fb235-6fbe-40c9-9c09-183a93850e15"], 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[\\\"2.0981759296253436`*^-231\\\", \ +RowBox[{\\\"4160735933984357432554811\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6426506240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 102, 26, + 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340895297941*^9, 3.994014382910015*^9}, CellLabel-> "During evaluation of \ -In[341]:=",ExpressionUUID->"7e411bd4-b3ce-e244-9ce0-8d1f78e8cd14"], +In[102]:=",ExpressionUUID->"96200436-e067-4fbd-9350-eb8e29e1b9a6"], 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.552803189628476`*^-237\\\", \ +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 102, 27, + 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340895297941*^9, 3.994014382916109*^9}, CellLabel-> "During evaluation of \ -In[341]:=",ExpressionUUID->"1eef1d19-4a0f-cd45-ac5f-c8b603cf3443"], +In[102]:=",ExpressionUUID->"726057a5-9e8f-4a15-a360-cbd20ba44beb"], 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, 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340895297941*^9, 3.994014382922757*^9}, CellLabel-> "During evaluation of \ -In[341]:=",ExpressionUUID->"6022a732-4a2e-1544-a8b7-891b74c71e8b"], +In[102]:=",ExpressionUUID->"26aec134-5c8c-4987-8582-70301c17f22a"], -Cell[BoxData["11.729429210875175`"], "Output", - CellChangeTimes->{3.9913409010488796`*^9}, +Cell[BoxData["51.23104351091225`"], "Output", + CellChangeTimes->{3.9913409010488796`*^9, 3.9940143888795357`*^9}, CellLabel-> - "Out[341]=",ExpressionUUID->"3c53d31a-b5c8-d04c-a31f-fccb4feaa955"] + "Out[102]=",ExpressionUUID->"455c6014-3368-4ceb-a03d-154484fb1d6d"] }, Open ]], Cell[CellGroupData[{ @@ -3519,8 +8856,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 +8901,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[\\\"1.7245129783388705`*^-225\\\", \ +RowBox[{\\\"2735526583816145583533735\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9182397440000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 103, 29, + 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913409010848827`*^9, 3.994014388921627*^9}, CellLabel-> "During evaluation of \ -In[342]:=",ExpressionUUID->"419d88aa-08de-a042-b43b-49810fba72bb"], +In[103]:=",ExpressionUUID->"0c893ece-5942-46b3-bfcb-2df4bf37dfe1"], 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[\\\"2.0981759296253436`*^-231\\\", \ +RowBox[{\\\"4160735933984357432554811\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6426506240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 103, 30, + 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913409010848827`*^9, 3.994014388929756*^9}, CellLabel-> "During evaluation of \ -In[342]:=",ExpressionUUID->"4a9a6268-a319-d748-9834-40ccb49d2b51"], +In[103]:=",ExpressionUUID->"ae357f8e-4bac-4711-9bac-0086c1a9d0cb"], 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.552803189628476`*^-237\\\", \ +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 103, 31, + 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913409010848827`*^9, 3.994014388937086*^9}, CellLabel-> "During evaluation of \ -In[342]:=",ExpressionUUID->"575d1045-9e4b-4643-b969-4ea2653f65d7"], +In[103]:=",ExpressionUUID->"852e71b8-ce83-4bcf-8da6-5aa5e2932212"], 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, 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913409010848827`*^9, 3.9940143889437428`*^9}, CellLabel-> "During evaluation of \ -In[342]:=",ExpressionUUID->"0c807644-74de-9c49-acac-c7123cbacadc"], +In[103]:=",ExpressionUUID->"f85b107c-2c22-4b65-b985-5c7b20bf4389"], -Cell[BoxData["21.67464099510054`"], "Output", - CellChangeTimes->{3.991340904517517*^9}, +Cell[BoxData["8.650665747806658`"], "Output", + CellChangeTimes->{3.991340904517517*^9, 3.994014392643527*^9}, CellLabel-> - "Out[342]=",ExpressionUUID->"40f79c92-c788-c843-8a8c-07266b265dee"] + "Out[103]=",ExpressionUUID->"27802863-778d-4322-a08e-c8f3be893282"] }, Open ]], Cell[CellGroupData[{ @@ -3635,22 +8978,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.010476194631129133`"], "Output", + CellChangeTimes->{3.991340904549515*^9, 3.994014392671011*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"b6702cb9-8de4-4083-98c6-1019aa3518a9"] }, 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 +9017,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["14.797524695321068`"], "Output", + CellChangeTimes->{3.9913409045775146`*^9, 3.9940143926877327`*^9}, CellLabel-> - "Out[345]=",ExpressionUUID->"c9ac712d-c12f-0747-84df-4fbc596a4bc5"] + "Out[106]=",ExpressionUUID->"e4ce3d41-75ff-4762-8e1b-7e35b779a3b9"] }, Open ]], Cell[CellGroupData[{ @@ -3688,12 +9032,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.6995523773492176`"], "Output", + CellChangeTimes->{3.991340904625164*^9, 3.994014392696883*^9}, CellLabel-> - "Out[347]=",ExpressionUUID->"265915a4-bf42-cc4a-850a-ff4e02169aa3"] + "Out[107]=",ExpressionUUID->"de86b9df-8ab0-43d7-b5ce-3adf5ed89249"] }, Open ]], Cell[CellGroupData[{ @@ -3703,12 +9047,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["25.149168274816677`"], "Output", + CellChangeTimes->{3.9913409046880226`*^9, 3.994014392706772*^9}, CellLabel-> - "Out[350]=",ExpressionUUID->"31530b6e-e89a-9145-8021-0dc6b1c7eda5"] + "Out[108]=",ExpressionUUID->"6e6d6412-ce2d-4cec-8c9b-41804fd9f3dd"] }, Open ]], Cell[CellGroupData[{ @@ -3898,12 +9242,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.004405088412799229`"], "Output", + CellChangeTimes->{3.9913409047132187`*^9, 3.9940143927196817`*^9}, CellLabel-> - "Out[351]=",ExpressionUUID->"498f3df6-21c9-ce42-acfb-0b180bf5016e"] + "Out[109]=",ExpressionUUID->"56fa460b-1a13-4326-a7b8-e2a113231e0a"] }, Open ]], Cell[CellGroupData[{ @@ -3917,12 +9261,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.352654936975181`"], "Output", + CellChangeTimes->{3.9913409048112164`*^9, 3.994014392834051*^9}, CellLabel-> - "Out[352]=",ExpressionUUID->"7c93e621-3415-c743-b6e4-6e9478aa49a4"] + "Out[110]=",ExpressionUUID->"704e737e-2b4c-4282-9202-e77ee38246bf"] }, Open ]], Cell[CellGroupData[{ @@ -4114,12 +9458,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.0349717843000777`"], "Output", + CellChangeTimes->{3.991340904825058*^9, 3.994014392847493*^9}, CellLabel-> - "Out[353]=",ExpressionUUID->"ac3c9970-0aac-ba4f-878d-3a3d1e5e2e3e"] + "Out[111]=",ExpressionUUID->"ebd4f57c-3b88-44bd-86f4-04a59e314092"] }, Open ]], Cell[CellGroupData[{ @@ -4133,12 +9477,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.738992759359168`"], "Output", + CellChangeTimes->{3.9913409049303207`*^9, 3.994014392964595*^9}, CellLabel-> - "Out[354]=",ExpressionUUID->"d74ba3c3-6f35-614a-92df-d33bcc5e630d"] + "Out[112]=",ExpressionUUID->"f319bff5-43f3-4967-8147-2088cbdaa2c4"] }, Open ]], Cell[CellGroupData[{ @@ -4231,12 +9575,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.11554797097264188`"], "Output", + CellChangeTimes->{3.991340904948307*^9, 3.994014392978351*^9}, CellLabel-> - "Out[355]=",ExpressionUUID->"33da748c-8c98-4649-9b81-8e00dd5f5d44"] + "Out[113]=",ExpressionUUID->"dbc3d442-3b74-4c7d-a719-6e1358bc8590"] }, Open ]], Cell[CellGroupData[{ @@ -4326,12 +9670,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.8844520290273581`"], "Output", + CellChangeTimes->{3.991340904981308*^9, 3.994014392992303*^9}, CellLabel-> - "Out[356]=",ExpressionUUID->"a300919b-1d52-ed46-bc06-5e86812c0bf8"] + "Out[114]=",ExpressionUUID->"ef62bcea-3070-4b1e-9d74-0634f24d432d"] }, Open ]], Cell[CellGroupData[{ @@ -4454,12 +9798,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.10219663737674739`"], "Output", + CellChangeTimes->{3.99134090500931*^9, 3.994014393006743*^9}, CellLabel-> - "Out[357]=",ExpressionUUID->"45caa3aa-b655-b94b-bc88-ae750a9e28b8"] + "Out[115]=",ExpressionUUID->"7d71abb6-50ac-4510-83ca-1da32051ae20"] }, Open ]], Cell[CellGroupData[{ @@ -4474,30 +9818,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[{"-", @@ -4521,68 +9868,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[\\\"4.030899591381347`*^-239\\\", \ +RowBox[{\\\"6923783734542601519316619\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"21\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0741907865600000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 116, 33, + 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340905038307*^9, 3.9940143930220537`*^9}, CellLabel-> "During evaluation of \ -In[358]:=",ExpressionUUID->"fdac5db3-60d6-7a42-93b8-a74d8fc5d39e"], +In[116]:=",ExpressionUUID->"39e6f00a-efb1-4c25-b38c-e88d6b38a07d"], 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.4307731844579574`*^-246\\\", \ +RowBox[{\\\"7540000486916893054535799\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"24\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"7937665638400000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 116, 34, + 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340905038307*^9, 3.994014393031493*^9}, CellLabel-> "During evaluation of \ -In[358]:=",ExpressionUUID->"46e50c50-b3b4-9847-b413-3bf52122b53e"], +In[116]:=",ExpressionUUID->"136832f4-a9e9-4d94-a129-28ce47e571e0"], 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.078548495082809`*^-254\\\", \ +RowBox[{\\\"8716240562875928371043383\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"5941477990400000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 116, 35, + 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340905038307*^9, 3.9940143930397863`*^9}, CellLabel-> "During evaluation of \ -In[358]:=",ExpressionUUID->"5df9105e-cc71-b049-a285-30acff0c246a"], +In[116]:=",ExpressionUUID->"0cd99365-defd-48a7-a74c-89829616a43d"], 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, 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340905038307*^9, 3.994014393046381*^9}, CellLabel-> "During evaluation of \ -In[358]:=",ExpressionUUID->"84079c6c-500c-0643-b357-e1da142371e6"], +In[116]:=",ExpressionUUID->"412deb31-1885-4510-adaf-8a62d2ce0258"], -Cell[BoxData["6.028089553291301`"], "Output", - CellChangeTimes->{3.991340908920454*^9}, +Cell[BoxData["13.352654936975187`"], "Output", + CellChangeTimes->{3.991340908920454*^9, 3.9940143960925694`*^9}, CellLabel-> - "Out[358]=",ExpressionUUID->"8303ac5a-d080-3741-a2d8-b7ff63ccb029"] + "Out[116]=",ExpressionUUID->"714102eb-9c9c-4d69-aeba-1105209ac891"] }, Open ]], Cell[CellGroupData[{ @@ -4597,30 +9951,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[{"-", @@ -4644,68 +10001,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[\\\"4.030899591381347`*^-239\\\", \ +RowBox[{\\\"6923783734542601519316619\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"21\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0741907865600000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 117, 37, + 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340908954941*^9, 3.994014396130439*^9}, CellLabel-> "During evaluation of \ -In[359]:=",ExpressionUUID->"65ad7cc5-5634-7d43-8ec3-48fd3e044014"], +In[117]:=",ExpressionUUID->"fe1477d2-ff76-4d85-b774-3a75d3207545"], 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.4307731844579574`*^-246\\\", \ +RowBox[{\\\"7540000486916893054535799\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"24\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"7937665638400000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 117, 38, + 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340908954941*^9, 3.994014396138255*^9}, CellLabel-> "During evaluation of \ -In[359]:=",ExpressionUUID->"c7632c59-b44f-2c47-aaf4-873ba9758677"], +In[117]:=",ExpressionUUID->"c023a47a-bfb1-4eb9-ba7e-b587bd40611b"], 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.078548495082809`*^-254\\\", \ +RowBox[{\\\"8716240562875928371043383\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"5941477990400000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 117, 39, + 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340908954941*^9, 3.994014396145129*^9}, CellLabel-> "During evaluation of \ -In[359]:=",ExpressionUUID->"509e3117-7502-a34e-9f96-72b696066a2b"], +In[117]:=",ExpressionUUID->"7926a665-af58-4dfd-ab48-431a6be891cc"], 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, 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340908954941*^9, 3.994014396151368*^9}, CellLabel-> "During evaluation of \ -In[359]:=",ExpressionUUID->"0e1f3a7a-70f7-bc47-9700-06e687643558"], +In[117]:=",ExpressionUUID->"ea7d4b52-e1f2-40b7-8630-a718037139b9"], -Cell[BoxData["8.528497747663296`"], "Output", - CellChangeTimes->{3.991340912767397*^9}, +Cell[BoxData["4.738992759359168`"], "Output", + CellChangeTimes->{3.991340912767397*^9, 3.994014399138579*^9}, CellLabel-> - "Out[359]=",ExpressionUUID->"15bebbf4-baae-a44a-84b5-59b3a1f444c3"] + "Out[117]=",ExpressionUUID->"342d6500-dd12-4f35-9797-b79ebed9f722"] }, Open ]], Cell[CellGroupData[{ @@ -4763,95 +10127,93 @@ 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:eJwV1XlYTdsbB/BKkxQNNIpGNKl7Dk1ovc3zIJoHdTpnR1QaNEmJyjXcKFLd +K9FA0qAyNNCNMvzSJTJGlAZpOkfKkOT37j/2s5/Ps/Z613ft9T57q7Ii3TkC +fHx8E3jR96hHa1ff6Hpk1l7Tbp7P4hGzydL1LKtK0qVXbUa7r8jwlIbVTSL8 +Lmw9bTf2f8LizLtE5PasJu3ahNQ2IatO8u5lgCTtw/fkW1MrnhAhjVPTeejG +rqizc4znhH2x8Cnt0Z6O5MTmV8SCnVRBW3FI3e+r5VuyLUA7mbYjN9kkpvM9 +eZ9bZUu7ZW50UUJFP/GUEpSg/SJNbu/1iAHS2q3XeRo9KWw1Os0YIun92hm0 +hY/t9mF+GyYJ5KcR7RVShQ+imkfI26mzg7loF6WvFyYtx4l4VJAObeqcmqye +6CTZbZdy9xQ6VdM1Y2cnl+zJivSh/Uru2R+xFZ+JQXpnxEk02zdsx8ljU6TX +0piXg+ad4TtfF/GFLM2J30lbVE1P8jNjhpTN73bNRp9it9lKLvtKPAx0Gk6g +VS76pOp/+0p05RoVaRvrZk6GN38nZ/Xd/stCbzd83zlqOUcan+waOYqeTtgj +KLbqFxHh3V1Je3/zoo1aovPko8YXtyPofDC+HNr5m4gt6jj3J52v7IFVdAU/ +SIfv/JqOrrh3si9NSQCM+6m5g3Tej4HJ2ccE4I8Rw7kD6GTtmforEQugcXrr +p/103hpVdS5DCOzEjiYmo3u6xlvmS4TAfqmey146/9QN38XLhMHErnR5Erpy +nUuO3jdhoNKkL8aj2xuT+Hc1i8KiAl5UNHqmrfv9iKU4eLbcf0+hpZ3EJfe2 +iINQl6ABB23wzAokTCSAsVAwMQQdNnjt3B9rF8Ngiv3MNvRugU6DTeKS4Bo9 +fdobPaRW/TnjqxQIrBtPsaPfD9Wx8DFTGmqiA/xs0AKXh1Xlo6QhyfWkgRWd +l7nSvWJMGmxyne8StK/libpHfTJg6sqfb4h+HBIdI/dwGUg4H/+ghn53Meto +kKgstMQHOaqgx8cqSi5Zy8K8w49KZbRY7ED3hlZZmLp9wFcebZW+dV3QNTmI ++jwbKIFuKjWcKS9SgMvGdRJfg3mkdGg2zjRWGbrLPy24g7bzOPQupkoZCtmn +b7egx9tlbKqGleFuxHxCM3pdqe4yFZ8VUOnN//wqup0VWC9kthIGBF+bX0RP +cfviRw6qgO5GIe4RtEy41dV6ZzUY7pcpcEYPl4ptdwtTg0mj0ix7dMPbLqWJ +TDXIEPy+zxrt7xRwcFWrGiSpj9lvovPpxLkXMNTBLFUkT5def/QiL0VOA/a6 ++gqLobeGLtJz6NeEesFjG1qDeITEeTC8fmkC/8+gA81o7YwiI7bCKjg6Dm3X +0XwlTIuUzavgvLA6swpd9c7Pq+72KuiSSnxYgBb2rExTLF4Nqy9dexeFbrBy +fjHK0gL/tkfZyuiSLXlvvqVogenqckV5dBarv0/wHy3wicorlEaz9+8ZW9Gt +BSoGjdkiaKmbhXxbLLXB9KoM8/M27B/mpHazug4cX5Do24ZWUjueenRQFwLq +msxC0DePTGv9ENCDN0uM0/3R/l98nlGqemCe+eiOB/psu4aWRaAe7Ou107FD +q4U2Pf3+Ug9CGQcu6aK1K4c0qYdroVY5zW86kEeUlVZQKj4G8NaroCAFrVsW +K/6TMEBkaFNRSgCPsNgHZ/RcGHBm9O2/ceh89Zx3Qf4MmNb/uycCvaC45sq9 +BAYwiqPmA9E9Z0e35tQy4OXWkt9m6MP5QYVa6kwQ/ffYyC9/PN+jTmu9hdcB +9zbLOx59PlrD7VrnejjQe6vL249HuuKIUXqZCaTc9Igu9OYR1cDnLgG7NsGb +2EH/wx48wvl9vVo5EYC1Jn7G3Z1H5MYaRORYFtD44pNIsguPxDI3vs3RtoLi +dXzcUw6Yf2LugcyoNRjbfLBJtMHztIgRKXpsCxFrvD0azLF/psNuV56yh0TW +6z+FN/HId3P5/9pTHeFlRlVolRGP9PIt+Nwf7AwjB17ZGDB4JGJ55Ik0dVf4 +GDO7uF+XR6p3PGjNzXCDzTVeorxVPJL0ReGbzo7NYBtvFGOmit8PBxvP+9vc +wdw/u5anyCMmftnmQ5u3wFrjyIrSpTzyVKEwrJ25FfaVyabWLcb/yYWDN8vX +eICk7hd9pij2V5+2k4uEJ9RJSaYuF8D/wTNeaNyEJ3gGvld1+M4lzNzsypI+ +L7hixnxNjXFJoeCXtTlt3pAde0Y/6T2XXDfX78lo9AGr8IKhG0+5JN/oiNRc +hS90pPbH77jHJY/flGUyj/mBf8anKd1mLrnmfEZj935/SK9j7XOu4ZLP4Vv4 +ItgBMH/RKSCrlEtmbLS2T1oGwuddnzSC/uaS8onX32MMt8FviX/D2o9ziff5 +spAA8SA4UhmduTmTS+rrHLctOBQECU9yHv2dzCUmSk9/HP4RBIfPF36QjOUS +9b7Qnic7goH1Kl3XZBeXDC7a6XpmIBgOBzLnPNlc0pXlEmLrwYK2nFmt/AAu +OZVQtGhPFwuKnzkPzHpyyc2W3z9C7ENA6dh9WaPNXLLEHw4xm0Kg0LbD9IAT +l6gsvf94+c0QcNZ0t45EG3Q6ywu3hIBjm6+/P9p9o9+lV7dDYKHklxpD9Knl +cQ/3/S8EYsODJ8YcuUSx9/KSB69CoDLb7I43WiNQLt//WwhkXlB8u8EB9xM0 +WZ6xjg1at6sXr7HjkgsFvBgXQzb0UpkuCuil3VNmcsZsKHNPKxBDT1p/e1a+ +gQ0NGwfdJmy5+P3i4++0YMO+uVjrevTib1I+0pvZsF19j405evCv9QuLwtkQ +JRpaxbHhks33jZ6FRrLh+sDaLd7oFj7TIoMoNji8Ygg6ogtizNbfiWVD9K/P +hwzQLj62wUN72eBUHiw7Z80ljRo+jTpH2EB4F11z0VnNyTsaLmCeribjLisu +CWfkmSSUsyFfg3OwHe10qXahcQUbfEU/v2pAi+UNX7pRxQajHzWl59EZ0W6j +16/i/Jo3LTHoZC2NndfusOH0guh5BXRY3sNdde/YcMGtoTrCkkvsFw9vjO5j +Q7DnTU82ek0GnwTjAxs8C64u9EUPR6+vqh1iw1PB9BPW6GCXookr42zg5VWp +KqO9hWIiambZUDhW7P7IgktsYxR3V8pyICi+dsoYfaco0yFHngMnLWqM9NEb +O6c0EhQ50G9adlgTbaD58LXlCg7sWZ68VRqt8HKv5RtNDuh5DGeMm3PJmGmv +rNh6fP6QvncJ+rjAuVuhWziQfjytRREtpi+e7+zBAUbuuRJpdLpfQjTTiwPy +6f/LFUMnXHVb/duXA+IqG87PAuan+LNPsziQuOby1jdoZgeLfTeKA+fytdcW +oV9may5SP8GBDVK91QboaiKxfSSbA3d+HSzVRqdPTLdXneSAyEh2mQaaYd+e +YpzHgSf8g/+TR2fxhUw5n+XAlo1h//CjbSLPvU6o5MBogBXrOeESZeU/Dc2q +ObDy4f7FXejpjsiTC65wwG6l1r0OdPEq4pxVz4G5ohavVvSv3t7WkiYO/NMv +KFiJvuqkVP7oAQfu22xIy0AfnRUQOtXBgR8rvQb3o1nlo8E+nRwI1x5wT0ZL +CjYpDT7mgM5jJ/cY9K5m7+M/XuD+VcJ7gtHq2qfjNIZw/zKykubo2Zf7uj8N +c8DKa7P2JnRXBsegZoQD++P53EzQKf3rRk3GOfBJrfnWH+ie/O4A1y8c2PTi +opo6OkdEyjqJnwJJ/SPSouibU71+sQsoMAhTzRREf+ytiI4QosCbxy/Kj954 +1eocayEFnf8VGc6aYb8FJfx0kKJAQceDTKAlnaylrWUoeK66SXMUvcFIWoss +o8BEZ7fCR/QJiUpPpgIF4nYNuv30eNP7WiVVCu6ufTH/HE2VVT5Ypk7BSdvl +Xt308ycS3y/RpMD3V/WtLno9SkZCUIuCJVNN1x7S4zK228cNKKioitp8B900 +L5M6zKBAMVh1eSt66FNfbt86Cs78WjFzC23amtT2zBjXzxR82oge3FW94hZQ +cK882agOvdh77/obFhR07y+KvYI2sbRzqrWiINBNqrUanaXwIbHMjoKjjh/S +LqMbBGtOFDlQsKnG/Psl9AB378UCJwq2J/GSy9HG95Y9/8uNgqyqjbVlaFbt +h7FD7ljfuieoFP3XmRqBA1spULtwf0UJ+kO0vUGcN1o25+45tESgrO1uXwpW +uURWF9H17AcCwvwpqCo6U3aWnr9y39HAIPTzjy1n6DxiDsXeLAomeoT6/6Hr +zcg2urMpCNsQK0Vbon/gsRNFgZ4Q0+1vul7nlWGb7RSoWFsUFtD5buz7BWG4 +nkjx93y6frHD0g27KBjwdGfRbvhLTmd9BAUCZlt68uj6CYPm+rtx/G5pEG1x +dq23VjQFDV9tZk6jjVxTItVjKXj40iSfNsvUMVM5Dt9n5D572sc05QvlEij4 +947UQtrXJYfqpZIoWP7i64tcdP/P2o5FyRQoVenW0xb/mNIvlELBQof6QtqG +Tx2//07F/qo+cpr2/wE/IOrh "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -4865,106 +10227,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:eJwV1XlYTdsbB/BKkxQNNIpGNKl7Dk1ovc3zIJoHdTpnR1QaNEmJyjXcKFLd +K9FA0qAyNNCNMvzSJTJGlAZpOkfKkOT37j/2s5/Ps/Z613ft9T57q7Ii3TkC +fHx8E3jR96hHa1ff6Hpk1l7Tbp7P4hGzydL1LKtK0qVXbUa7r8jwlIbVTSL8 +Lmw9bTf2f8LizLtE5PasJu3ahNQ2IatO8u5lgCTtw/fkW1MrnhAhjVPTeejG +rqizc4znhH2x8Cnt0Z6O5MTmV8SCnVRBW3FI3e+r5VuyLUA7mbYjN9kkpvM9 +eZ9bZUu7ZW50UUJFP/GUEpSg/SJNbu/1iAHS2q3XeRo9KWw1Os0YIun92hm0 +hY/t9mF+GyYJ5KcR7RVShQ+imkfI26mzg7loF6WvFyYtx4l4VJAObeqcmqye +6CTZbZdy9xQ6VdM1Y2cnl+zJivSh/Uru2R+xFZ+JQXpnxEk02zdsx8ljU6TX +0piXg+ad4TtfF/GFLM2J30lbVE1P8jNjhpTN73bNRp9it9lKLvtKPAx0Gk6g +VS76pOp/+0p05RoVaRvrZk6GN38nZ/Xd/stCbzd83zlqOUcan+waOYqeTtgj +KLbqFxHh3V1Je3/zoo1aovPko8YXtyPofDC+HNr5m4gt6jj3J52v7IFVdAU/ +SIfv/JqOrrh3si9NSQCM+6m5g3Tej4HJ2ccE4I8Rw7kD6GTtmforEQugcXrr +p/103hpVdS5DCOzEjiYmo3u6xlvmS4TAfqmey146/9QN38XLhMHErnR5Erpy +nUuO3jdhoNKkL8aj2xuT+Hc1i8KiAl5UNHqmrfv9iKU4eLbcf0+hpZ3EJfe2 +iINQl6ABB23wzAokTCSAsVAwMQQdNnjt3B9rF8Ngiv3MNvRugU6DTeKS4Bo9 +fdobPaRW/TnjqxQIrBtPsaPfD9Wx8DFTGmqiA/xs0AKXh1Xlo6QhyfWkgRWd +l7nSvWJMGmxyne8StK/libpHfTJg6sqfb4h+HBIdI/dwGUg4H/+ghn53Meto +kKgstMQHOaqgx8cqSi5Zy8K8w49KZbRY7ED3hlZZmLp9wFcebZW+dV3QNTmI ++jwbKIFuKjWcKS9SgMvGdRJfg3mkdGg2zjRWGbrLPy24g7bzOPQupkoZCtmn +b7egx9tlbKqGleFuxHxCM3pdqe4yFZ8VUOnN//wqup0VWC9kthIGBF+bX0RP +cfviRw6qgO5GIe4RtEy41dV6ZzUY7pcpcEYPl4ptdwtTg0mj0ix7dMPbLqWJ +TDXIEPy+zxrt7xRwcFWrGiSpj9lvovPpxLkXMNTBLFUkT5def/QiL0VOA/a6 ++gqLobeGLtJz6NeEesFjG1qDeITEeTC8fmkC/8+gA81o7YwiI7bCKjg6Dm3X +0XwlTIuUzavgvLA6swpd9c7Pq+72KuiSSnxYgBb2rExTLF4Nqy9dexeFbrBy +fjHK0gL/tkfZyuiSLXlvvqVogenqckV5dBarv0/wHy3wicorlEaz9+8ZW9Gt +BSoGjdkiaKmbhXxbLLXB9KoM8/M27B/mpHazug4cX5Do24ZWUjueenRQFwLq +msxC0DePTGv9ENCDN0uM0/3R/l98nlGqemCe+eiOB/psu4aWRaAe7Ou107FD +q4U2Pf3+Ug9CGQcu6aK1K4c0qYdroVY5zW86kEeUlVZQKj4G8NaroCAFrVsW +K/6TMEBkaFNRSgCPsNgHZ/RcGHBm9O2/ceh89Zx3Qf4MmNb/uycCvaC45sq9 +BAYwiqPmA9E9Z0e35tQy4OXWkt9m6MP5QYVa6kwQ/ffYyC9/PN+jTmu9hdcB +9zbLOx59PlrD7VrnejjQe6vL249HuuKIUXqZCaTc9Igu9OYR1cDnLgG7NsGb +2EH/wx48wvl9vVo5EYC1Jn7G3Z1H5MYaRORYFtD44pNIsguPxDI3vs3RtoLi +dXzcUw6Yf2LugcyoNRjbfLBJtMHztIgRKXpsCxFrvD0azLF/psNuV56yh0TW +6z+FN/HId3P5/9pTHeFlRlVolRGP9PIt+Nwf7AwjB17ZGDB4JGJ55Ik0dVf4 +GDO7uF+XR6p3PGjNzXCDzTVeorxVPJL0ReGbzo7NYBtvFGOmit8PBxvP+9vc +wdw/u5anyCMmftnmQ5u3wFrjyIrSpTzyVKEwrJ25FfaVyabWLcb/yYWDN8vX +eICk7hd9pij2V5+2k4uEJ9RJSaYuF8D/wTNeaNyEJ3gGvld1+M4lzNzsypI+ +L7hixnxNjXFJoeCXtTlt3pAde0Y/6T2XXDfX78lo9AGr8IKhG0+5JN/oiNRc +hS90pPbH77jHJY/flGUyj/mBf8anKd1mLrnmfEZj935/SK9j7XOu4ZLP4Vv4 +ItgBMH/RKSCrlEtmbLS2T1oGwuddnzSC/uaS8onX32MMt8FviX/D2o9ziff5 +spAA8SA4UhmduTmTS+rrHLctOBQECU9yHv2dzCUmSk9/HP4RBIfPF36QjOUS +9b7Qnic7goH1Kl3XZBeXDC7a6XpmIBgOBzLnPNlc0pXlEmLrwYK2nFmt/AAu +OZVQtGhPFwuKnzkPzHpyyc2W3z9C7ENA6dh9WaPNXLLEHw4xm0Kg0LbD9IAT +l6gsvf94+c0QcNZ0t45EG3Q6ywu3hIBjm6+/P9p9o9+lV7dDYKHklxpD9Knl +cQ/3/S8EYsODJ8YcuUSx9/KSB69CoDLb7I43WiNQLt//WwhkXlB8u8EB9xM0 +WZ6xjg1at6sXr7HjkgsFvBgXQzb0UpkuCuil3VNmcsZsKHNPKxBDT1p/e1a+ +gQ0NGwfdJmy5+P3i4++0YMO+uVjrevTib1I+0pvZsF19j405evCv9QuLwtkQ +JRpaxbHhks33jZ6FRrLh+sDaLd7oFj7TIoMoNji8Ygg6ogtizNbfiWVD9K/P +hwzQLj62wUN72eBUHiw7Z80ljRo+jTpH2EB4F11z0VnNyTsaLmCeribjLisu +CWfkmSSUsyFfg3OwHe10qXahcQUbfEU/v2pAi+UNX7pRxQajHzWl59EZ0W6j +16/i/Jo3LTHoZC2NndfusOH0guh5BXRY3sNdde/YcMGtoTrCkkvsFw9vjO5j +Q7DnTU82ek0GnwTjAxs8C64u9EUPR6+vqh1iw1PB9BPW6GCXookr42zg5VWp +KqO9hWIiambZUDhW7P7IgktsYxR3V8pyICi+dsoYfaco0yFHngMnLWqM9NEb +O6c0EhQ50G9adlgTbaD58LXlCg7sWZ68VRqt8HKv5RtNDuh5DGeMm3PJmGmv +rNh6fP6QvncJ+rjAuVuhWziQfjytRREtpi+e7+zBAUbuuRJpdLpfQjTTiwPy +6f/LFUMnXHVb/duXA+IqG87PAuan+LNPsziQuOby1jdoZgeLfTeKA+fytdcW +oV9may5SP8GBDVK91QboaiKxfSSbA3d+HSzVRqdPTLdXneSAyEh2mQaaYd+e +YpzHgSf8g/+TR2fxhUw5n+XAlo1h//CjbSLPvU6o5MBogBXrOeESZeU/Dc2q +ObDy4f7FXejpjsiTC65wwG6l1r0OdPEq4pxVz4G5ohavVvSv3t7WkiYO/NMv +KFiJvuqkVP7oAQfu22xIy0AfnRUQOtXBgR8rvQb3o1nlo8E+nRwI1x5wT0ZL +CjYpDT7mgM5jJ/cY9K5m7+M/XuD+VcJ7gtHq2qfjNIZw/zKykubo2Zf7uj8N +c8DKa7P2JnRXBsegZoQD++P53EzQKf3rRk3GOfBJrfnWH+ie/O4A1y8c2PTi +opo6OkdEyjqJnwJJ/SPSouibU71+sQsoMAhTzRREf+ytiI4QosCbxy/Kj954 +1eocayEFnf8VGc6aYb8FJfx0kKJAQceDTKAlnaylrWUoeK66SXMUvcFIWoss +o8BEZ7fCR/QJiUpPpgIF4nYNuv30eNP7WiVVCu6ufTH/HE2VVT5Ypk7BSdvl +Xt308ycS3y/RpMD3V/WtLno9SkZCUIuCJVNN1x7S4zK228cNKKioitp8B900 +L5M6zKBAMVh1eSt66FNfbt86Cs78WjFzC23amtT2zBjXzxR82oge3FW94hZQ +cK882agOvdh77/obFhR07y+KvYI2sbRzqrWiINBNqrUanaXwIbHMjoKjjh/S +LqMbBGtOFDlQsKnG/Psl9AB378UCJwq2J/GSy9HG95Y9/8uNgqyqjbVlaFbt +h7FD7ljfuieoFP3XmRqBA1spULtwf0UJ+kO0vUGcN1o25+45tESgrO1uXwpW +uURWF9H17AcCwvwpqCo6U3aWnr9y39HAIPTzjy1n6DxiDsXeLAomeoT6/6Hr +zcg2urMpCNsQK0Vbon/gsRNFgZ4Q0+1vul7nlWGb7RSoWFsUFtD5buz7BWG4 +nkjx93y6frHD0g27KBjwdGfRbvhLTmd9BAUCZlt68uj6CYPm+rtx/G5pEG1x +dq23VjQFDV9tZk6jjVxTItVjKXj40iSfNsvUMVM5Dt9n5D572sc05QvlEij4 +947UQtrXJYfqpZIoWP7i64tcdP/P2o5FyRQoVenW0xb/mNIvlELBQof6QtqG +Tx2//07F/qo+cpr2/wE/IOrh "]]}, "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.9763896885173785, + 1.0240709847521297`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9763896885173807}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.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 +10337,21 @@ GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.4222837130873766, 2.103798844286089}}, + "PlotRange" -> {{0, 180}, {0.9763896885173785, + 1.0240709847521297`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.42228371308737755`}, + "AxesOrigin" -> {0, 0.9763896885173807}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 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 +10365,103 @@ 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:eJwV1XlYTdsbB/BKkxQNNIpGNKl7Dk1ovc3zIJoHdTpnR1QaNEmJyjXcKFLd +K9FA0qAyNNCNMvzSJTJGlAZpOkfKkOT37j/2s5/Ps/Z613ft9T57q7Ii3TkC +fHx8E3jR96hHa1ff6Hpk1l7Tbp7P4hGzydL1LKtK0qVXbUa7r8jwlIbVTSL8 +Lmw9bTf2f8LizLtE5PasJu3ahNQ2IatO8u5lgCTtw/fkW1MrnhAhjVPTeejG +rqizc4znhH2x8Cnt0Z6O5MTmV8SCnVRBW3FI3e+r5VuyLUA7mbYjN9kkpvM9 +eZ9bZUu7ZW50UUJFP/GUEpSg/SJNbu/1iAHS2q3XeRo9KWw1Os0YIun92hm0 +hY/t9mF+GyYJ5KcR7RVShQ+imkfI26mzg7loF6WvFyYtx4l4VJAObeqcmqye +6CTZbZdy9xQ6VdM1Y2cnl+zJivSh/Uru2R+xFZ+JQXpnxEk02zdsx8ljU6TX +0piXg+ad4TtfF/GFLM2J30lbVE1P8jNjhpTN73bNRp9it9lKLvtKPAx0Gk6g +VS76pOp/+0p05RoVaRvrZk6GN38nZ/Xd/stCbzd83zlqOUcan+waOYqeTtgj +KLbqFxHh3V1Je3/zoo1aovPko8YXtyPofDC+HNr5m4gt6jj3J52v7IFVdAU/ +SIfv/JqOrrh3si9NSQCM+6m5g3Tej4HJ2ccE4I8Rw7kD6GTtmforEQugcXrr +p/103hpVdS5DCOzEjiYmo3u6xlvmS4TAfqmey146/9QN38XLhMHErnR5Erpy +nUuO3jdhoNKkL8aj2xuT+Hc1i8KiAl5UNHqmrfv9iKU4eLbcf0+hpZ3EJfe2 +iINQl6ABB23wzAokTCSAsVAwMQQdNnjt3B9rF8Ngiv3MNvRugU6DTeKS4Bo9 +fdobPaRW/TnjqxQIrBtPsaPfD9Wx8DFTGmqiA/xs0AKXh1Xlo6QhyfWkgRWd +l7nSvWJMGmxyne8StK/libpHfTJg6sqfb4h+HBIdI/dwGUg4H/+ghn53Meto +kKgstMQHOaqgx8cqSi5Zy8K8w49KZbRY7ED3hlZZmLp9wFcebZW+dV3QNTmI ++jwbKIFuKjWcKS9SgMvGdRJfg3mkdGg2zjRWGbrLPy24g7bzOPQupkoZCtmn +b7egx9tlbKqGleFuxHxCM3pdqe4yFZ8VUOnN//wqup0VWC9kthIGBF+bX0RP +cfviRw6qgO5GIe4RtEy41dV6ZzUY7pcpcEYPl4ptdwtTg0mj0ix7dMPbLqWJ +TDXIEPy+zxrt7xRwcFWrGiSpj9lvovPpxLkXMNTBLFUkT5def/QiL0VOA/a6 ++gqLobeGLtJz6NeEesFjG1qDeITEeTC8fmkC/8+gA81o7YwiI7bCKjg6Dm3X +0XwlTIuUzavgvLA6swpd9c7Pq+72KuiSSnxYgBb2rExTLF4Nqy9dexeFbrBy +fjHK0gL/tkfZyuiSLXlvvqVogenqckV5dBarv0/wHy3wicorlEaz9+8ZW9Gt +BSoGjdkiaKmbhXxbLLXB9KoM8/M27B/mpHazug4cX5Do24ZWUjueenRQFwLq +msxC0DePTGv9ENCDN0uM0/3R/l98nlGqemCe+eiOB/psu4aWRaAe7Ou107FD +q4U2Pf3+Ug9CGQcu6aK1K4c0qYdroVY5zW86kEeUlVZQKj4G8NaroCAFrVsW +K/6TMEBkaFNRSgCPsNgHZ/RcGHBm9O2/ceh89Zx3Qf4MmNb/uycCvaC45sq9 +BAYwiqPmA9E9Z0e35tQy4OXWkt9m6MP5QYVa6kwQ/ffYyC9/PN+jTmu9hdcB +9zbLOx59PlrD7VrnejjQe6vL249HuuKIUXqZCaTc9Igu9OYR1cDnLgG7NsGb +2EH/wx48wvl9vVo5EYC1Jn7G3Z1H5MYaRORYFtD44pNIsguPxDI3vs3RtoLi +dXzcUw6Yf2LugcyoNRjbfLBJtMHztIgRKXpsCxFrvD0azLF/psNuV56yh0TW +6z+FN/HId3P5/9pTHeFlRlVolRGP9PIt+Nwf7AwjB17ZGDB4JGJ55Ik0dVf4 +GDO7uF+XR6p3PGjNzXCDzTVeorxVPJL0ReGbzo7NYBtvFGOmit8PBxvP+9vc +wdw/u5anyCMmftnmQ5u3wFrjyIrSpTzyVKEwrJ25FfaVyabWLcb/yYWDN8vX +eICk7hd9pij2V5+2k4uEJ9RJSaYuF8D/wTNeaNyEJ3gGvld1+M4lzNzsypI+ +L7hixnxNjXFJoeCXtTlt3pAde0Y/6T2XXDfX78lo9AGr8IKhG0+5JN/oiNRc +hS90pPbH77jHJY/flGUyj/mBf8anKd1mLrnmfEZj935/SK9j7XOu4ZLP4Vv4 +ItgBMH/RKSCrlEtmbLS2T1oGwuddnzSC/uaS8onX32MMt8FviX/D2o9ziff5 +spAA8SA4UhmduTmTS+rrHLctOBQECU9yHv2dzCUmSk9/HP4RBIfPF36QjOUS +9b7Qnic7goH1Kl3XZBeXDC7a6XpmIBgOBzLnPNlc0pXlEmLrwYK2nFmt/AAu +OZVQtGhPFwuKnzkPzHpyyc2W3z9C7ENA6dh9WaPNXLLEHw4xm0Kg0LbD9IAT +l6gsvf94+c0QcNZ0t45EG3Q6ywu3hIBjm6+/P9p9o9+lV7dDYKHklxpD9Knl +cQ/3/S8EYsODJ8YcuUSx9/KSB69CoDLb7I43WiNQLt//WwhkXlB8u8EB9xM0 +WZ6xjg1at6sXr7HjkgsFvBgXQzb0UpkuCuil3VNmcsZsKHNPKxBDT1p/e1a+ +gQ0NGwfdJmy5+P3i4++0YMO+uVjrevTib1I+0pvZsF19j405evCv9QuLwtkQ +JRpaxbHhks33jZ6FRrLh+sDaLd7oFj7TIoMoNji8Ygg6ogtizNbfiWVD9K/P +hwzQLj62wUN72eBUHiw7Z80ljRo+jTpH2EB4F11z0VnNyTsaLmCeribjLisu +CWfkmSSUsyFfg3OwHe10qXahcQUbfEU/v2pAi+UNX7pRxQajHzWl59EZ0W6j +16/i/Jo3LTHoZC2NndfusOH0guh5BXRY3sNdde/YcMGtoTrCkkvsFw9vjO5j +Q7DnTU82ek0GnwTjAxs8C64u9EUPR6+vqh1iw1PB9BPW6GCXookr42zg5VWp +KqO9hWIiambZUDhW7P7IgktsYxR3V8pyICi+dsoYfaco0yFHngMnLWqM9NEb +O6c0EhQ50G9adlgTbaD58LXlCg7sWZ68VRqt8HKv5RtNDuh5DGeMm3PJmGmv +rNh6fP6QvncJ+rjAuVuhWziQfjytRREtpi+e7+zBAUbuuRJpdLpfQjTTiwPy +6f/LFUMnXHVb/duXA+IqG87PAuan+LNPsziQuOby1jdoZgeLfTeKA+fytdcW +oV9may5SP8GBDVK91QboaiKxfSSbA3d+HSzVRqdPTLdXneSAyEh2mQaaYd+e +YpzHgSf8g/+TR2fxhUw5n+XAlo1h//CjbSLPvU6o5MBogBXrOeESZeU/Dc2q +ObDy4f7FXejpjsiTC65wwG6l1r0OdPEq4pxVz4G5ohavVvSv3t7WkiYO/NMv +KFiJvuqkVP7oAQfu22xIy0AfnRUQOtXBgR8rvQb3o1nlo8E+nRwI1x5wT0ZL +CjYpDT7mgM5jJ/cY9K5m7+M/XuD+VcJ7gtHq2qfjNIZw/zKykubo2Zf7uj8N +c8DKa7P2JnRXBsegZoQD++P53EzQKf3rRk3GOfBJrfnWH+ie/O4A1y8c2PTi +opo6OkdEyjqJnwJJ/SPSouibU71+sQsoMAhTzRREf+ytiI4QosCbxy/Kj954 +1eocayEFnf8VGc6aYb8FJfx0kKJAQceDTKAlnaylrWUoeK66SXMUvcFIWoss +o8BEZ7fCR/QJiUpPpgIF4nYNuv30eNP7WiVVCu6ufTH/HE2VVT5Ypk7BSdvl +Xt308ycS3y/RpMD3V/WtLno9SkZCUIuCJVNN1x7S4zK228cNKKioitp8B900 +L5M6zKBAMVh1eSt66FNfbt86Cs78WjFzC23amtT2zBjXzxR82oge3FW94hZQ +cK882agOvdh77/obFhR07y+KvYI2sbRzqrWiINBNqrUanaXwIbHMjoKjjh/S +LqMbBGtOFDlQsKnG/Psl9AB378UCJwq2J/GSy9HG95Y9/8uNgqyqjbVlaFbt +h7FD7ljfuieoFP3XmRqBA1spULtwf0UJ+kO0vUGcN1o25+45tESgrO1uXwpW +uURWF9H17AcCwvwpqCo6U3aWnr9y39HAIPTzjy1n6DxiDsXeLAomeoT6/6Hr +zcg2urMpCNsQK0Vbon/gsRNFgZ4Q0+1vul7nlWGb7RSoWFsUFtD5buz7BWG4 +nkjx93y6frHD0g27KBjwdGfRbvhLTmd9BAUCZlt68uj6CYPm+rtx/G5pEG1x +dq23VjQFDV9tZk6jjVxTItVjKXj40iSfNsvUMVM5Dt9n5D572sc05QvlEij4 +947UQtrXJYfqpZIoWP7i64tcdP/P2o5FyRQoVenW0xb/mNIvlELBQof6QtqG +Tx2//07F/qo+cpr2/wE/IOrh "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.4222837130873766, 2.103798844286089}}, + "PlotRange" -> {{0, 180}, {0.9763896885173785, 1.0240709847521297`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.42228371308737755`}, + "AxesOrigin" -> {0, 0.9763896885173807}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 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 +10471,8 @@ GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.42228371308737755`}, + AxesOrigin->{0, 0.9763896885173807}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -5139,7 +10500,8 @@ GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.4222837130873766, 2.103798844286089}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.9763896885173785, 1.0240709847521297`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -5147,9 +10509,9 @@ GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913411752988663`*^9}, + CellChangeTimes->{3.9913411752988663`*^9, 3.994014680431781*^9}, CellLabel-> - "Out[360]=",ExpressionUUID->"d9c156b6-0b42-724f-8e7d-964560057978"] + "Out[118]=",ExpressionUUID->"88928f54-2021-4241-b217-16d85b313ed0"] }, Open ]], Cell[CellGroupData[{ @@ -5164,30 +10526,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[{"-", @@ -5212,157 +10577,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.145910220794023`*^-278\\\", \ +\\\"5919012181389927685417441689600000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 119, 41, + 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913411755393047`*^9, 3.994014680564172*^9}, CellLabel-> "During evaluation of \ -In[361]:=",ExpressionUUID->"74b51561-a06a-7345-9196-225d76f7f21f"], +In[119]:=",ExpressionUUID->"dedaf619-f273-402a-b021-a9dc5bde2fc6"], 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}, + "\"\\!\\(\\*FractionBox[\\\"4.194050356854696`*^-292\\\", \ +\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 42, 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913411755393047`*^9, 3.99401468057294*^9}, CellLabel-> "During evaluation of \ -In[361]:=",ExpressionUUID->"ee03248d-dd91-8b4e-835e-9c4a5f039c61"], +In[119]:=",ExpressionUUID->"c306c8bb-5361-4a32-ba1e-f54851031fa5"], 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}, + "\"\\!\\(\\*FractionBox[\\\"5.591405081926746`*^-306\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 43, 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913411755393047`*^9, 3.994014680580027*^9}, CellLabel-> "During evaluation of \ -In[361]:=",ExpressionUUID->"81d7736e-0167-fe4f-bd5c-40ffaca911e4"], +In[119]:=",ExpressionUUID->"614f2117-1745-4182-9a2c-431b28aed99f"], 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, 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913411755393047`*^9, 3.994014680586281*^9}, CellLabel-> "During evaluation of \ -In[361]:=",ExpressionUUID->"43062041-d596-b540-8a1c-36df0575e1f0"], +In[119]:=",ExpressionUUID->"c9c18017-91a6-47b3-b422-19cfca301dfa"], 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:eJwV13k4Ff8XB/CisoREIrvrzhXZkjWuc0iEbypblKKslVSyS5ayK6INRYS4 +d24kKrIVlaRSyVoS1TfKll319ZvfH/PM83qemWeWzznvM6Nw8JitJ9eSJUu4 +llIbtZ/pe95ETy4w1rnZy9OgomfcniMRatIVAwNjIcO2KAYo9vqgRFc6bNst +vkIRCQjayerk7soH4X8/5S5HHVg9Kp4+31kOmvdeS3+GrfCpxubYVOdjMHle +dS0YHMCcPvxxovMtnBCNmPrK9IT5Tr1L450D8HapYzZLLxAat9wqeJM/CSJH +OHu3LsaC9KeqbwdV/0L1PvGkDp00WOPryuLZwo1GWW0u8aqXIH2j+UMbB16U +LD+judUpC7qvajZMCAuiud0kF30kB5ILIl9zrVuNtfu59M1a8kD84mBixnVR +9P0YcfXm15sQb29p/HZGDPnHPr7XKSuEkwZ5rs9jJPB+xxjN8egtMBtbCPMb +lMTcO7Rir+5iCN12UeXRT0m8sMy74mJfMdzOU+sRnZFEn7/qxfWDxSBh72ZQ +xSuFksC3VWC0GH4+eDLLrS6F4Trm1lFcJZARkxaQGSKFxbcmzN+plMCAGMOv +SVAaDbd9X6YYWgLRRrsOSOrL4MuIlv/2CrBg2/6cX3qmMmh47MMhhdUsEIr6 +ccbhHxncEqcrOyjGgmuNsUVpbjJoPDF3YK8cCx5YVf9YkSiDx2Zdd8ppsWDc +STFoslsGOy5335hyZMH+wOmk1nBZvLhr6eK76ywgrphKD8fKopddrAktn0Xd +byqHJ00Wl2oXNfsWsSDsj3KbaYEsGvQeLJi5zYJLZ/aLVbXKYsadwNSP9Sxo +vfAst1BGDltSjOlz/SzYfDuz4nS9HPIaTs24yrPBrPPV39FmOUy8sllgWpEN +NkuWWbi+lUPp4Ov9cUpscLf164avcugl+/TpDXU2mIcrREYtl8dyoCdyjNhw +XG7mpskGedyvqfVTxYkNTd65I41B8vhioDSiMoUNln8MRE6Fy+NayemEgVQ2 +vEpr19WOksfh5TP2Ahls6K7iiypIlMfWjwkajplsGF0ZIBJ7TR7jzhRNPC5k +g0TZNj3zx/L4ee+hR0vq2OA7NxHVLKiAFwZzfYV+smHzCa+130QU8D7tsNaq +MTbwDvewuSUUcOlLO1WBX2wo7G3sMKYpIJ/DgdqFWTb01V1SrdRVQCv/K3tY +3CTsiDXoynNVQN+J6ko7SRK0RKI1wu8o4H9lETVtZiQsSZ5uunpPAafj9kU5 +WZDwivvwnnsPFfBEyauoD5YkHJm2jZ14ooCd+SX63TYkFHTRe717FFBq+a5z +hU4krM1tjrPnpqGnephY0hES5jcI96k50NB4V4xi7HkSZq5LRm/aQ8O2svq4 +5DQSplYRdANXGm67eNf+fDoJo5MGh80O0dApbpdW4mUSBh66z+yJoOGT0LRF +uxwSWqzvCyUU0vDL0UamMYeEZ7WP7pxj0bBpy+qIlaUkNGm02meU0rArvVzt +fRkJdaKfs3KqaKiUXPplXwUJ5b38SpUvaagTP19p9pCErCP7YWCahiJFVtY+ +zSRc+egz8O8CDSU7697/eU7CxR0nY0cWaQjPO7rOvSDh/KaEF3N8ikiX7bMq +fEVCzO87u1fJKqL6+NcfJe3U+0leftzIXBH5P4ym8feT4PN3laiptSJmqVb0 +e30mweuY5D2LnYrYECN9p36ABDc7jT+2exRRLW3kvddXEuylnBMO+SniuvPO +xsnDJBixyRuXLyvispSnXGpTJPTKs3O3ZivijgulS4ynSQi7XJIzlauI3rzO +v61nSLgfXXTNtkQRfewefd8/R62v042rQjWKuDD0qsztDwnKyy+mxX1WRP+r +5fvbuTnQHJaeqvNNEc94RrhVLuOA13ja+S/DihgrcMErYzkHCnrPpZhOKWJt +R2y0OQ8H5MvjE/5bQcc1pzyWJPJzYK1reFSQKh3VPoVfiBTmQGV7aCSxkY6j +k+aiG1dzwN4q5HS7Dh15nPflfaKcrhN4SgvoKCwY8WWTKAcEBY6FjO6io9kj +CbEqMQ6Q0UeDrzvSkb/uBY/dWg5YzR4J+mcvHUOmZ/mHKScM+ASwPOh4t7bX +bJUEB5ZVHTzuFUzH/uZnl3QlOXBT/cAxsVN0XDylL1VF2bTA1a8pio49CUcr +9aU4EJnq4ktLouPpZlsVDWkOLHg6+vRdo+OzHk9iXoYDmb323ufy6Ji0ztbN +Q5YD+rvsvIyK6FidcriilXKQ0U6PrFI6+vi5sC7KcWBCxMrN8TEdNztzf1yq +wIEuX1rb4Wd0vPpR+6cL5YanCxDZSsf0iNHLFZTTwthyxR103Jjy7ZEzjQMh +7WdSa3rpePPBtS23KLupuyy29dMxL7zFfYKy5oDAp/lhOh54GxMTrsgBCaOv +NkLjdFQdSox5SHnJ5do62jQdW7KX0ucofx+7pK63QF2vqMR7I50Dry39cqwX +6djgYmrjTfneTXMht2UEyhSndGVSzvkrezqAj8BsXiue55T97rzed12UwNZp +hoMMwQHHlcUv70gQqO/XGmhK2dgzivlUhsD0t+NMD8qMeidOD43A6BSn2zGU +BddtlBlTIrA+s/nZdcpT/nznuNUIfJi8IrmS8ofWz3/EtQg0i++ae065iVHt +q6pHoJrZcpFeymRU+gc0IvCHgH3nd8oXew7/42BCoEFdiuUk5VPaW2oOmRPY +/jT40AJlj/NSqqetCZxn9On9R9n6+2R2+k4CieOJlf+3lmnrylsOBFY0bRn8 +TVnyWkH4wz0Ehnd2PpqmzDVz6sdrVwJP/xC2/Ul5eIfD3i8eBEa+q774ifLb +ErUXc4eo8yfykl5TruZeYSh4jMB9ehnaNZTz9/WxFAIIPEZ3ySiknHj/nqRu +KIHaz1puJVM+vjo1yeo0gbMPOf5+lJ2OeC/sP0PgZdX2qe2U8QkcPplAoE6b +oIYK5fVyEj3x5wjsGVahcVMWDh23vJZOoNj2P6+6qPWZe9tcVXaFwOt2drps +yv2qecpPrhE48m2pcxjl5rjQzO48Av+G9eiZUy7r38U3WkStp1DZOyHKVzer +hHKRBK5UdVRrp+rFe7THacM9Ald89JBxoGyz7W4zPCTQXTe4Upiybn6yvn0D +gfducoSeU/W4wtFIIqKFqhflfh5NyqOlaxIuvCawziappI+q7w6+kdnCdgKN +b1SsSqJcVHu981UfgQcqf6h2ynPgvHiQxeAgdXwD62sI5aATNvdnvxOoGm/j +JU55K7F4WX6SwINXbz+2ovrrS4qboz8PA7s2dSwmUf3pN6xK0xRg4FhAK0OK +8qzF/MiIMAOfDjTEFlP9zM+dHntIkoFOQSGj1VS/a4Y2VripMTAqdHlk3Tpq +/TpSo2S1GOjs/jJUn/IWbZd/PugycFn/1vJSKk8cx6YGdyMD53iUP10S50CE +J0N0hx0DFULGjUyofFrR+KtPwImBm+76GxSuofpZvp7V4sJAfoPjoSvW/D8v +d5uaezGwNvv50wYRDrTsSjzBDGXg3dvR7DVUPq41/vl6Qy4D3+tlmW6m8vNG +9oPsoZsMZKVavvbn44Dy/FnvW8UMXB24k13MywGjCplFWjkDj6T72AtQ+euu +skNd8gkDT0eMRd6l8rtsbXkK7w8Gcuq+f4um8n1zwGmnp2MMbDim35T6m4TG +N1b0s1MMHGpe+zdrgYSOlMGHi38ZWGiYebaEmg9/uMR+zAgr4dLDp5bcouaL +5Viw5VddJWTtFNxL/0mC9EbZOF4jJVxDvDo5Ts2jUf+mxxtMlPBjCT26aoia +jzPCRv7WSqh8KzfC9F8S+v6WqC+6KmGIHkpqUvPNX+CD6LpEJXy8Vf1ZWCc1 +b5Wx759eJYxuE1F/X0+C75Fvksf7lVBcoL/TpI4E4KTszviqhLyCoVfYNSR8 +0exu6x5TQh6vnS5BVSSo6/s3ei1bjy8dQiSHyqnnMy8ojlJbj7e0BJ3NCkn4 +6c57siJyPfInvgvsjqfuN8estv7serS+lzY7GUvCWHcUz4vE9UjYx71YeZaE +Xzvmsz9nrEcpXxu/TVEkzBoONwkVr0cnq9aagyEkcK1pXXuobT3eCLY9bOpD +wrqm1GoZBWXcnfQsQtCcpP4fxLniHysjMTlGW7XAhqGDFsWGz5Rx8O5yZjn1 +/ZWSF2wz/kIZVd/kGttNs+GdbFeW83tlxOylf86Ps8FtXeYm1e/K+Hvh35CR +b2wIFZLyfCOogpYdGyws3rGBnJNtlnJWweEDq68HsNgg8pJxvmxMBWOGnnwe +smWDdELpTl1dVbyzLSNH4BQLrm4wEBb1VkPjdVNOi1dKoEXSRGfygjoW1a4U +vZFfDJulH6dpdGhgI2tl1oGzt0CIOz/gQIwmdsu3nDt6uAhko+WMnBkb0aH2 +9cCiaiHwES73bJ9txAbPlqtxIzdBnbmuNHifFnrfV+1crM8H/z6RRqslmzBg +peC/mSF5MDaZ4mB5dRMW/1LKj7C8ARYaT7Ms1bTx27vuEmOrHKibNPw9+0ob +52OPNm/4lA1+qlo9bzx1UH9buGlPaSYwRz3anfl0cWv3wUf8h67AVrrEdsF8 +XTx7vaf48oFLsD4qKeSxnh5KlX0rDY7IABVPg3qiRw+3EVlmwucvgGedz9mK +E/p42rX/lUJVKtTfaPeYEDPApx1/4gu2p8BU8eKsxn0DtPYxcV69KRHcCTZf +1vbN+N+jS0st4uNgQiVDt3x8MzpdUG+U/HQGHhT8/jydYIiGN73COrKjYY+Z +IhrKGuEJhQ0vtqhGgtTR+Cr1BiPMSy0dH9oUDmL8vne272YiM4s/LLQvGAq2 +RISNOzOxTaPTeH9bMGhFnN+S4cLEGunwCsvHwWAzXva+6wATu809WNpFwRDX +MT3v7stEvheHE/f4BcNcfqRpWDQTpX90OH1ZDIIew4x3RWwmllQL2A8oBYFP +YME1y9tMtFo5ujdTMghmbld6/ixjokIE13tHwSAQoXXNbrzHxALeRyJffwWC +Na+MdG0DE98OHztrUxcINe1FHu/eM3G69P1pO8dAsBJ6oBbUxcTnueIlxy0D +ocvi+YxELxMlvvrQLxoFwlT1j4T9/UzUfqiyYpQWCGp5mpyhYSa6R9cwR8YC +oKbHJChlhIk7pFc+MBoMAKs1dqAxzsRlvyxOpncEgFd84JuAaSY6aIUW7KwN +gKmGuCzxOSaG1buvrSoLgJiFK+7VC0wcern+kVJBAAhrl6ju+8vEnbTG/GtX +AiDnaPX04iIT59zVqsSTA+B/X1pUUw== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -5376,116 +10744,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:eJwV13k4Ff8XB/CisoREIrvrzhXZkjWuc0iEbypblKKslVSyS5ayK6INRYS4 +d24kKrIVlaRSyVoS1TfKll319ZvfH/PM83qemWeWzznvM6Nw8JitJ9eSJUu4 +llIbtZ/pe95ETy4w1rnZy9OgomfcniMRatIVAwNjIcO2KAYo9vqgRFc6bNst +vkIRCQjayerk7soH4X8/5S5HHVg9Kp4+31kOmvdeS3+GrfCpxubYVOdjMHle +dS0YHMCcPvxxovMtnBCNmPrK9IT5Tr1L450D8HapYzZLLxAat9wqeJM/CSJH +OHu3LsaC9KeqbwdV/0L1PvGkDp00WOPryuLZwo1GWW0u8aqXIH2j+UMbB16U +LD+judUpC7qvajZMCAuiud0kF30kB5ILIl9zrVuNtfu59M1a8kD84mBixnVR +9P0YcfXm15sQb29p/HZGDPnHPr7XKSuEkwZ5rs9jJPB+xxjN8egtMBtbCPMb +lMTcO7Rir+5iCN12UeXRT0m8sMy74mJfMdzOU+sRnZFEn7/qxfWDxSBh72ZQ +xSuFksC3VWC0GH4+eDLLrS6F4Trm1lFcJZARkxaQGSKFxbcmzN+plMCAGMOv +SVAaDbd9X6YYWgLRRrsOSOrL4MuIlv/2CrBg2/6cX3qmMmh47MMhhdUsEIr6 +ccbhHxncEqcrOyjGgmuNsUVpbjJoPDF3YK8cCx5YVf9YkSiDx2Zdd8ppsWDc +STFoslsGOy5335hyZMH+wOmk1nBZvLhr6eK76ywgrphKD8fKopddrAktn0Xd +byqHJ00Wl2oXNfsWsSDsj3KbaYEsGvQeLJi5zYJLZ/aLVbXKYsadwNSP9Sxo +vfAst1BGDltSjOlz/SzYfDuz4nS9HPIaTs24yrPBrPPV39FmOUy8sllgWpEN +NkuWWbi+lUPp4Ov9cUpscLf164avcugl+/TpDXU2mIcrREYtl8dyoCdyjNhw +XG7mpskGedyvqfVTxYkNTd65I41B8vhioDSiMoUNln8MRE6Fy+NayemEgVQ2 +vEpr19WOksfh5TP2Ahls6K7iiypIlMfWjwkajplsGF0ZIBJ7TR7jzhRNPC5k +g0TZNj3zx/L4ee+hR0vq2OA7NxHVLKiAFwZzfYV+smHzCa+130QU8D7tsNaq +MTbwDvewuSUUcOlLO1WBX2wo7G3sMKYpIJ/DgdqFWTb01V1SrdRVQCv/K3tY +3CTsiDXoynNVQN+J6ko7SRK0RKI1wu8o4H9lETVtZiQsSZ5uunpPAafj9kU5 +WZDwivvwnnsPFfBEyauoD5YkHJm2jZ14ooCd+SX63TYkFHTRe717FFBq+a5z +hU4krM1tjrPnpqGnephY0hES5jcI96k50NB4V4xi7HkSZq5LRm/aQ8O2svq4 +5DQSplYRdANXGm67eNf+fDoJo5MGh80O0dApbpdW4mUSBh66z+yJoOGT0LRF +uxwSWqzvCyUU0vDL0UamMYeEZ7WP7pxj0bBpy+qIlaUkNGm02meU0rArvVzt +fRkJdaKfs3KqaKiUXPplXwUJ5b38SpUvaagTP19p9pCErCP7YWCahiJFVtY+ +zSRc+egz8O8CDSU7697/eU7CxR0nY0cWaQjPO7rOvSDh/KaEF3N8ikiX7bMq +fEVCzO87u1fJKqL6+NcfJe3U+0leftzIXBH5P4ym8feT4PN3laiptSJmqVb0 +e30mweuY5D2LnYrYECN9p36ABDc7jT+2exRRLW3kvddXEuylnBMO+SniuvPO +xsnDJBixyRuXLyvispSnXGpTJPTKs3O3ZivijgulS4ynSQi7XJIzlauI3rzO +v61nSLgfXXTNtkQRfewefd8/R62v042rQjWKuDD0qsztDwnKyy+mxX1WRP+r +5fvbuTnQHJaeqvNNEc94RrhVLuOA13ja+S/DihgrcMErYzkHCnrPpZhOKWJt +R2y0OQ8H5MvjE/5bQcc1pzyWJPJzYK1reFSQKh3VPoVfiBTmQGV7aCSxkY6j +k+aiG1dzwN4q5HS7Dh15nPflfaKcrhN4SgvoKCwY8WWTKAcEBY6FjO6io9kj +CbEqMQ6Q0UeDrzvSkb/uBY/dWg5YzR4J+mcvHUOmZ/mHKScM+ASwPOh4t7bX +bJUEB5ZVHTzuFUzH/uZnl3QlOXBT/cAxsVN0XDylL1VF2bTA1a8pio49CUcr +9aU4EJnq4ktLouPpZlsVDWkOLHg6+vRdo+OzHk9iXoYDmb323ufy6Ji0ztbN +Q5YD+rvsvIyK6FidcriilXKQ0U6PrFI6+vi5sC7KcWBCxMrN8TEdNztzf1yq +wIEuX1rb4Wd0vPpR+6cL5YanCxDZSsf0iNHLFZTTwthyxR103Jjy7ZEzjQMh +7WdSa3rpePPBtS23KLupuyy29dMxL7zFfYKy5oDAp/lhOh54GxMTrsgBCaOv +NkLjdFQdSox5SHnJ5do62jQdW7KX0ucofx+7pK63QF2vqMR7I50Dry39cqwX +6djgYmrjTfneTXMht2UEyhSndGVSzvkrezqAj8BsXiue55T97rzed12UwNZp +hoMMwQHHlcUv70gQqO/XGmhK2dgzivlUhsD0t+NMD8qMeidOD43A6BSn2zGU +BddtlBlTIrA+s/nZdcpT/nznuNUIfJi8IrmS8ofWz3/EtQg0i++ae065iVHt +q6pHoJrZcpFeymRU+gc0IvCHgH3nd8oXew7/42BCoEFdiuUk5VPaW2oOmRPY +/jT40AJlj/NSqqetCZxn9On9R9n6+2R2+k4CieOJlf+3lmnrylsOBFY0bRn8 +TVnyWkH4wz0Ehnd2PpqmzDVz6sdrVwJP/xC2/Ul5eIfD3i8eBEa+q774ifLb +ErUXc4eo8yfykl5TruZeYSh4jMB9ehnaNZTz9/WxFAIIPEZ3ySiknHj/nqRu +KIHaz1puJVM+vjo1yeo0gbMPOf5+lJ2OeC/sP0PgZdX2qe2U8QkcPplAoE6b +oIYK5fVyEj3x5wjsGVahcVMWDh23vJZOoNj2P6+6qPWZe9tcVXaFwOt2drps +yv2qecpPrhE48m2pcxjl5rjQzO48Av+G9eiZUy7r38U3WkStp1DZOyHKVzer +hHKRBK5UdVRrp+rFe7THacM9Ald89JBxoGyz7W4zPCTQXTe4Upiybn6yvn0D +gfducoSeU/W4wtFIIqKFqhflfh5NyqOlaxIuvCawziappI+q7w6+kdnCdgKN +b1SsSqJcVHu981UfgQcqf6h2ynPgvHiQxeAgdXwD62sI5aATNvdnvxOoGm/j +JU55K7F4WX6SwINXbz+2ovrrS4qboz8PA7s2dSwmUf3pN6xK0xRg4FhAK0OK +8qzF/MiIMAOfDjTEFlP9zM+dHntIkoFOQSGj1VS/a4Y2VripMTAqdHlk3Tpq +/TpSo2S1GOjs/jJUn/IWbZd/PugycFn/1vJSKk8cx6YGdyMD53iUP10S50CE +J0N0hx0DFULGjUyofFrR+KtPwImBm+76GxSuofpZvp7V4sJAfoPjoSvW/D8v +d5uaezGwNvv50wYRDrTsSjzBDGXg3dvR7DVUPq41/vl6Qy4D3+tlmW6m8vNG +9oPsoZsMZKVavvbn44Dy/FnvW8UMXB24k13MywGjCplFWjkDj6T72AtQ+euu +skNd8gkDT0eMRd6l8rtsbXkK7w8Gcuq+f4um8n1zwGmnp2MMbDim35T6m4TG +N1b0s1MMHGpe+zdrgYSOlMGHi38ZWGiYebaEmg9/uMR+zAgr4dLDp5bcouaL +5Viw5VddJWTtFNxL/0mC9EbZOF4jJVxDvDo5Ts2jUf+mxxtMlPBjCT26aoia +jzPCRv7WSqh8KzfC9F8S+v6WqC+6KmGIHkpqUvPNX+CD6LpEJXy8Vf1ZWCc1 +b5Wx759eJYxuE1F/X0+C75Fvksf7lVBcoL/TpI4E4KTszviqhLyCoVfYNSR8 +0exu6x5TQh6vnS5BVSSo6/s3ei1bjy8dQiSHyqnnMy8ojlJbj7e0BJ3NCkn4 +6c57siJyPfInvgvsjqfuN8estv7serS+lzY7GUvCWHcUz4vE9UjYx71YeZaE +Xzvmsz9nrEcpXxu/TVEkzBoONwkVr0cnq9aagyEkcK1pXXuobT3eCLY9bOpD +wrqm1GoZBWXcnfQsQtCcpP4fxLniHysjMTlGW7XAhqGDFsWGz5Rx8O5yZjn1 +/ZWSF2wz/kIZVd/kGttNs+GdbFeW83tlxOylf86Ps8FtXeYm1e/K+Hvh35CR +b2wIFZLyfCOogpYdGyws3rGBnJNtlnJWweEDq68HsNgg8pJxvmxMBWOGnnwe +smWDdELpTl1dVbyzLSNH4BQLrm4wEBb1VkPjdVNOi1dKoEXSRGfygjoW1a4U +vZFfDJulH6dpdGhgI2tl1oGzt0CIOz/gQIwmdsu3nDt6uAhko+WMnBkb0aH2 +9cCiaiHwES73bJ9txAbPlqtxIzdBnbmuNHifFnrfV+1crM8H/z6RRqslmzBg +peC/mSF5MDaZ4mB5dRMW/1LKj7C8ARYaT7Ms1bTx27vuEmOrHKibNPw9+0ob +52OPNm/4lA1+qlo9bzx1UH9buGlPaSYwRz3anfl0cWv3wUf8h67AVrrEdsF8 +XTx7vaf48oFLsD4qKeSxnh5KlX0rDY7IABVPg3qiRw+3EVlmwucvgGedz9mK +E/p42rX/lUJVKtTfaPeYEDPApx1/4gu2p8BU8eKsxn0DtPYxcV69KRHcCTZf +1vbN+N+jS0st4uNgQiVDt3x8MzpdUG+U/HQGHhT8/jydYIiGN73COrKjYY+Z +IhrKGuEJhQ0vtqhGgtTR+Cr1BiPMSy0dH9oUDmL8vne272YiM4s/LLQvGAq2 +RISNOzOxTaPTeH9bMGhFnN+S4cLEGunwCsvHwWAzXva+6wATu809WNpFwRDX +MT3v7stEvheHE/f4BcNcfqRpWDQTpX90OH1ZDIIew4x3RWwmllQL2A8oBYFP +YME1y9tMtFo5ujdTMghmbld6/ixjokIE13tHwSAQoXXNbrzHxALeRyJffwWC +Na+MdG0DE98OHztrUxcINe1FHu/eM3G69P1pO8dAsBJ6oBbUxcTnueIlxy0D +ocvi+YxELxMlvvrQLxoFwlT1j4T9/UzUfqiyYpQWCGp5mpyhYSa6R9cwR8YC +oKbHJChlhIk7pFc+MBoMAKs1dqAxzsRlvyxOpncEgFd84JuAaSY6aIUW7KwN +gKmGuCzxOSaG1buvrSoLgJiFK+7VC0wcern+kVJBAAhrl6ju+8vEnbTG/GtX +AiDnaPX04iIT59zVqsSTA+B/X1pUUw== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "PlotRange" -> {{0, 30}, {0., 0.05693050352121557}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +10864,19 @@ YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "PlotRange" -> {{0, 30}, {0., 0.05693050352121557}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +10890,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:eJwV13k4Ff8XB/CisoREIrvrzhXZkjWuc0iEbypblKKslVSyS5ayK6INRYS4 +d24kKrIVlaRSyVoS1TfKll319ZvfH/PM83qemWeWzznvM6Nw8JitJ9eSJUu4 +llIbtZ/pe95ETy4w1rnZy9OgomfcniMRatIVAwNjIcO2KAYo9vqgRFc6bNst +vkIRCQjayerk7soH4X8/5S5HHVg9Kp4+31kOmvdeS3+GrfCpxubYVOdjMHle +dS0YHMCcPvxxovMtnBCNmPrK9IT5Tr1L450D8HapYzZLLxAat9wqeJM/CSJH +OHu3LsaC9KeqbwdV/0L1PvGkDp00WOPryuLZwo1GWW0u8aqXIH2j+UMbB16U +LD+judUpC7qvajZMCAuiud0kF30kB5ILIl9zrVuNtfu59M1a8kD84mBixnVR +9P0YcfXm15sQb29p/HZGDPnHPr7XKSuEkwZ5rs9jJPB+xxjN8egtMBtbCPMb +lMTcO7Rir+5iCN12UeXRT0m8sMy74mJfMdzOU+sRnZFEn7/qxfWDxSBh72ZQ +xSuFksC3VWC0GH4+eDLLrS6F4Trm1lFcJZARkxaQGSKFxbcmzN+plMCAGMOv +SVAaDbd9X6YYWgLRRrsOSOrL4MuIlv/2CrBg2/6cX3qmMmh47MMhhdUsEIr6 +ccbhHxncEqcrOyjGgmuNsUVpbjJoPDF3YK8cCx5YVf9YkSiDx2Zdd8ppsWDc +STFoslsGOy5335hyZMH+wOmk1nBZvLhr6eK76ywgrphKD8fKopddrAktn0Xd +byqHJ00Wl2oXNfsWsSDsj3KbaYEsGvQeLJi5zYJLZ/aLVbXKYsadwNSP9Sxo +vfAst1BGDltSjOlz/SzYfDuz4nS9HPIaTs24yrPBrPPV39FmOUy8sllgWpEN +NkuWWbi+lUPp4Ov9cUpscLf164avcugl+/TpDXU2mIcrREYtl8dyoCdyjNhw +XG7mpskGedyvqfVTxYkNTd65I41B8vhioDSiMoUNln8MRE6Fy+NayemEgVQ2 +vEpr19WOksfh5TP2Ahls6K7iiypIlMfWjwkajplsGF0ZIBJ7TR7jzhRNPC5k +g0TZNj3zx/L4ee+hR0vq2OA7NxHVLKiAFwZzfYV+smHzCa+130QU8D7tsNaq +MTbwDvewuSUUcOlLO1WBX2wo7G3sMKYpIJ/DgdqFWTb01V1SrdRVQCv/K3tY +3CTsiDXoynNVQN+J6ko7SRK0RKI1wu8o4H9lETVtZiQsSZ5uunpPAafj9kU5 +WZDwivvwnnsPFfBEyauoD5YkHJm2jZ14ooCd+SX63TYkFHTRe717FFBq+a5z +hU4krM1tjrPnpqGnephY0hES5jcI96k50NB4V4xi7HkSZq5LRm/aQ8O2svq4 +5DQSplYRdANXGm67eNf+fDoJo5MGh80O0dApbpdW4mUSBh66z+yJoOGT0LRF +uxwSWqzvCyUU0vDL0UamMYeEZ7WP7pxj0bBpy+qIlaUkNGm02meU0rArvVzt +fRkJdaKfs3KqaKiUXPplXwUJ5b38SpUvaagTP19p9pCErCP7YWCahiJFVtY+ +zSRc+egz8O8CDSU7697/eU7CxR0nY0cWaQjPO7rOvSDh/KaEF3N8ikiX7bMq +fEVCzO87u1fJKqL6+NcfJe3U+0leftzIXBH5P4ym8feT4PN3laiptSJmqVb0 +e30mweuY5D2LnYrYECN9p36ABDc7jT+2exRRLW3kvddXEuylnBMO+SniuvPO +xsnDJBixyRuXLyvispSnXGpTJPTKs3O3ZivijgulS4ynSQi7XJIzlauI3rzO +v61nSLgfXXTNtkQRfewefd8/R62v042rQjWKuDD0qsztDwnKyy+mxX1WRP+r +5fvbuTnQHJaeqvNNEc94RrhVLuOA13ja+S/DihgrcMErYzkHCnrPpZhOKWJt +R2y0OQ8H5MvjE/5bQcc1pzyWJPJzYK1reFSQKh3VPoVfiBTmQGV7aCSxkY6j +k+aiG1dzwN4q5HS7Dh15nPflfaKcrhN4SgvoKCwY8WWTKAcEBY6FjO6io9kj +CbEqMQ6Q0UeDrzvSkb/uBY/dWg5YzR4J+mcvHUOmZ/mHKScM+ASwPOh4t7bX +bJUEB5ZVHTzuFUzH/uZnl3QlOXBT/cAxsVN0XDylL1VF2bTA1a8pio49CUcr +9aU4EJnq4ktLouPpZlsVDWkOLHg6+vRdo+OzHk9iXoYDmb323ufy6Ji0ztbN +Q5YD+rvsvIyK6FidcriilXKQ0U6PrFI6+vi5sC7KcWBCxMrN8TEdNztzf1yq +wIEuX1rb4Wd0vPpR+6cL5YanCxDZSsf0iNHLFZTTwthyxR103Jjy7ZEzjQMh +7WdSa3rpePPBtS23KLupuyy29dMxL7zFfYKy5oDAp/lhOh54GxMTrsgBCaOv +NkLjdFQdSox5SHnJ5do62jQdW7KX0ucofx+7pK63QF2vqMR7I50Dry39cqwX +6djgYmrjTfneTXMht2UEyhSndGVSzvkrezqAj8BsXiue55T97rzed12UwNZp +hoMMwQHHlcUv70gQqO/XGmhK2dgzivlUhsD0t+NMD8qMeidOD43A6BSn2zGU +BddtlBlTIrA+s/nZdcpT/nznuNUIfJi8IrmS8ofWz3/EtQg0i++ae065iVHt +q6pHoJrZcpFeymRU+gc0IvCHgH3nd8oXew7/42BCoEFdiuUk5VPaW2oOmRPY +/jT40AJlj/NSqqetCZxn9On9R9n6+2R2+k4CieOJlf+3lmnrylsOBFY0bRn8 +TVnyWkH4wz0Ehnd2PpqmzDVz6sdrVwJP/xC2/Ul5eIfD3i8eBEa+q774ifLb +ErUXc4eo8yfykl5TruZeYSh4jMB9ehnaNZTz9/WxFAIIPEZ3ySiknHj/nqRu +KIHaz1puJVM+vjo1yeo0gbMPOf5+lJ2OeC/sP0PgZdX2qe2U8QkcPplAoE6b +oIYK5fVyEj3x5wjsGVahcVMWDh23vJZOoNj2P6+6qPWZe9tcVXaFwOt2drps +yv2qecpPrhE48m2pcxjl5rjQzO48Av+G9eiZUy7r38U3WkStp1DZOyHKVzer +hHKRBK5UdVRrp+rFe7THacM9Ald89JBxoGyz7W4zPCTQXTe4Upiybn6yvn0D +gfducoSeU/W4wtFIIqKFqhflfh5NyqOlaxIuvCawziappI+q7w6+kdnCdgKN +b1SsSqJcVHu981UfgQcqf6h2ynPgvHiQxeAgdXwD62sI5aATNvdnvxOoGm/j +JU55K7F4WX6SwINXbz+2ovrrS4qboz8PA7s2dSwmUf3pN6xK0xRg4FhAK0OK +8qzF/MiIMAOfDjTEFlP9zM+dHntIkoFOQSGj1VS/a4Y2VripMTAqdHlk3Tpq +/TpSo2S1GOjs/jJUn/IWbZd/PugycFn/1vJSKk8cx6YGdyMD53iUP10S50CE +J0N0hx0DFULGjUyofFrR+KtPwImBm+76GxSuofpZvp7V4sJAfoPjoSvW/D8v +d5uaezGwNvv50wYRDrTsSjzBDGXg3dvR7DVUPq41/vl6Qy4D3+tlmW6m8vNG +9oPsoZsMZKVavvbn44Dy/FnvW8UMXB24k13MywGjCplFWjkDj6T72AtQ+euu +skNd8gkDT0eMRd6l8rtsbXkK7w8Gcuq+f4um8n1zwGmnp2MMbDim35T6m4TG +N1b0s1MMHGpe+zdrgYSOlMGHi38ZWGiYebaEmg9/uMR+zAgr4dLDp5bcouaL +5Viw5VddJWTtFNxL/0mC9EbZOF4jJVxDvDo5Ts2jUf+mxxtMlPBjCT26aoia +jzPCRv7WSqh8KzfC9F8S+v6WqC+6KmGIHkpqUvPNX+CD6LpEJXy8Vf1ZWCc1 +b5Wx759eJYxuE1F/X0+C75Fvksf7lVBcoL/TpI4E4KTszviqhLyCoVfYNSR8 +0exu6x5TQh6vnS5BVSSo6/s3ei1bjy8dQiSHyqnnMy8ojlJbj7e0BJ3NCkn4 +6c57siJyPfInvgvsjqfuN8estv7serS+lzY7GUvCWHcUz4vE9UjYx71YeZaE +Xzvmsz9nrEcpXxu/TVEkzBoONwkVr0cnq9aagyEkcK1pXXuobT3eCLY9bOpD +wrqm1GoZBWXcnfQsQtCcpP4fxLniHysjMTlGW7XAhqGDFsWGz5Rx8O5yZjn1 +/ZWSF2wz/kIZVd/kGttNs+GdbFeW83tlxOylf86Ps8FtXeYm1e/K+Hvh35CR +b2wIFZLyfCOogpYdGyws3rGBnJNtlnJWweEDq68HsNgg8pJxvmxMBWOGnnwe +smWDdELpTl1dVbyzLSNH4BQLrm4wEBb1VkPjdVNOi1dKoEXSRGfygjoW1a4U +vZFfDJulH6dpdGhgI2tl1oGzt0CIOz/gQIwmdsu3nDt6uAhko+WMnBkb0aH2 +9cCiaiHwES73bJ9txAbPlqtxIzdBnbmuNHifFnrfV+1crM8H/z6RRqslmzBg +peC/mSF5MDaZ4mB5dRMW/1LKj7C8ARYaT7Ms1bTx27vuEmOrHKibNPw9+0ob +52OPNm/4lA1+qlo9bzx1UH9buGlPaSYwRz3anfl0cWv3wUf8h67AVrrEdsF8 +XTx7vaf48oFLsD4qKeSxnh5KlX0rDY7IABVPg3qiRw+3EVlmwucvgGedz9mK +E/p42rX/lUJVKtTfaPeYEDPApx1/4gu2p8BU8eKsxn0DtPYxcV69KRHcCTZf +1vbN+N+jS0st4uNgQiVDt3x8MzpdUG+U/HQGHhT8/jydYIiGN73COrKjYY+Z +IhrKGuEJhQ0vtqhGgtTR+Cr1BiPMSy0dH9oUDmL8vne272YiM4s/LLQvGAq2 +RISNOzOxTaPTeH9bMGhFnN+S4cLEGunwCsvHwWAzXva+6wATu809WNpFwRDX +MT3v7stEvheHE/f4BcNcfqRpWDQTpX90OH1ZDIIew4x3RWwmllQL2A8oBYFP +YME1y9tMtFo5ujdTMghmbld6/ixjokIE13tHwSAQoXXNbrzHxALeRyJffwWC +Na+MdG0DE98OHztrUxcINe1FHu/eM3G69P1pO8dAsBJ6oBbUxcTnueIlxy0D +ocvi+YxELxMlvvrQLxoFwlT1j4T9/UzUfqiyYpQWCGp5mpyhYSa6R9cwR8YC +oKbHJChlhIk7pFc+MBoMAKs1dqAxzsRlvyxOpncEgFd84JuAaSY6aIUW7KwN +gKmGuCzxOSaG1buvrSoLgJiFK+7VC0wcern+kVJBAAhrl6ju+8vEnbTG/GtX +AiDnaPX04iIT59zVqsSTA+B/X1pUUw== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "PlotRange" -> {{0, 30}, {0., 0.05693050352121557}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +11008,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 +11036,8 @@ YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.1261051971575712}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.05693050352121557}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -5677,17 +11045,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.9940149297823887`*^9}, CellLabel-> - "Out[361]=",ExpressionUUID->"4ce3b436-d895-8b48-899f-c7dec78bd5cd"] + "Out[119]=",ExpressionUUID->"c061ad2c-a916-474d-ac9d-813921802076"] }, 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:eJwV13k4Ff8XB/CisoREIrvrzhXZkjWuc0iEbypblKKslVSyS5ayK6INRYS4 +d24kKrIVlaRSyVoS1TfKll319ZvfH/PM83qemWeWzznvM6Nw8JitJ9eSJUu4 +llIbtZ/pe95ETy4w1rnZy9OgomfcniMRatIVAwNjIcO2KAYo9vqgRFc6bNst +vkIRCQjayerk7soH4X8/5S5HHVg9Kp4+31kOmvdeS3+GrfCpxubYVOdjMHle +dS0YHMCcPvxxovMtnBCNmPrK9IT5Tr1L450D8HapYzZLLxAat9wqeJM/CSJH +OHu3LsaC9KeqbwdV/0L1PvGkDp00WOPryuLZwo1GWW0u8aqXIH2j+UMbB16U +LD+judUpC7qvajZMCAuiud0kF30kB5ILIl9zrVuNtfu59M1a8kD84mBixnVR +9P0YcfXm15sQb29p/HZGDPnHPr7XKSuEkwZ5rs9jJPB+xxjN8egtMBtbCPMb +lMTcO7Rir+5iCN12UeXRT0m8sMy74mJfMdzOU+sRnZFEn7/qxfWDxSBh72ZQ +xSuFksC3VWC0GH4+eDLLrS6F4Trm1lFcJZARkxaQGSKFxbcmzN+plMCAGMOv +SVAaDbd9X6YYWgLRRrsOSOrL4MuIlv/2CrBg2/6cX3qmMmh47MMhhdUsEIr6 +ccbhHxncEqcrOyjGgmuNsUVpbjJoPDF3YK8cCx5YVf9YkSiDx2Zdd8ppsWDc +STFoslsGOy5335hyZMH+wOmk1nBZvLhr6eK76ywgrphKD8fKopddrAktn0Xd +byqHJ00Wl2oXNfsWsSDsj3KbaYEsGvQeLJi5zYJLZ/aLVbXKYsadwNSP9Sxo +vfAst1BGDltSjOlz/SzYfDuz4nS9HPIaTs24yrPBrPPV39FmOUy8sllgWpEN +NkuWWbi+lUPp4Ov9cUpscLf164avcugl+/TpDXU2mIcrREYtl8dyoCdyjNhw +XG7mpskGedyvqfVTxYkNTd65I41B8vhioDSiMoUNln8MRE6Fy+NayemEgVQ2 +vEpr19WOksfh5TP2Ahls6K7iiypIlMfWjwkajplsGF0ZIBJ7TR7jzhRNPC5k +g0TZNj3zx/L4ee+hR0vq2OA7NxHVLKiAFwZzfYV+smHzCa+130QU8D7tsNaq +MTbwDvewuSUUcOlLO1WBX2wo7G3sMKYpIJ/DgdqFWTb01V1SrdRVQCv/K3tY +3CTsiDXoynNVQN+J6ko7SRK0RKI1wu8o4H9lETVtZiQsSZ5uunpPAafj9kU5 +WZDwivvwnnsPFfBEyauoD5YkHJm2jZ14ooCd+SX63TYkFHTRe717FFBq+a5z +hU4krM1tjrPnpqGnephY0hES5jcI96k50NB4V4xi7HkSZq5LRm/aQ8O2svq4 +5DQSplYRdANXGm67eNf+fDoJo5MGh80O0dApbpdW4mUSBh66z+yJoOGT0LRF +uxwSWqzvCyUU0vDL0UamMYeEZ7WP7pxj0bBpy+qIlaUkNGm02meU0rArvVzt +fRkJdaKfs3KqaKiUXPplXwUJ5b38SpUvaagTP19p9pCErCP7YWCahiJFVtY+ +zSRc+egz8O8CDSU7697/eU7CxR0nY0cWaQjPO7rOvSDh/KaEF3N8ikiX7bMq +fEVCzO87u1fJKqL6+NcfJe3U+0leftzIXBH5P4ym8feT4PN3laiptSJmqVb0 +e30mweuY5D2LnYrYECN9p36ABDc7jT+2exRRLW3kvddXEuylnBMO+SniuvPO +xsnDJBixyRuXLyvispSnXGpTJPTKs3O3ZivijgulS4ynSQi7XJIzlauI3rzO +v61nSLgfXXTNtkQRfewefd8/R62v042rQjWKuDD0qsztDwnKyy+mxX1WRP+r +5fvbuTnQHJaeqvNNEc94RrhVLuOA13ja+S/DihgrcMErYzkHCnrPpZhOKWJt +R2y0OQ8H5MvjE/5bQcc1pzyWJPJzYK1reFSQKh3VPoVfiBTmQGV7aCSxkY6j +k+aiG1dzwN4q5HS7Dh15nPflfaKcrhN4SgvoKCwY8WWTKAcEBY6FjO6io9kj +CbEqMQ6Q0UeDrzvSkb/uBY/dWg5YzR4J+mcvHUOmZ/mHKScM+ASwPOh4t7bX +bJUEB5ZVHTzuFUzH/uZnl3QlOXBT/cAxsVN0XDylL1VF2bTA1a8pio49CUcr +9aU4EJnq4ktLouPpZlsVDWkOLHg6+vRdo+OzHk9iXoYDmb323ufy6Ji0ztbN +Q5YD+rvsvIyK6FidcriilXKQ0U6PrFI6+vi5sC7KcWBCxMrN8TEdNztzf1yq +wIEuX1rb4Wd0vPpR+6cL5YanCxDZSsf0iNHLFZTTwthyxR103Jjy7ZEzjQMh +7WdSa3rpePPBtS23KLupuyy29dMxL7zFfYKy5oDAp/lhOh54GxMTrsgBCaOv +NkLjdFQdSox5SHnJ5do62jQdW7KX0ucofx+7pK63QF2vqMR7I50Dry39cqwX +6djgYmrjTfneTXMht2UEyhSndGVSzvkrezqAj8BsXiue55T97rzed12UwNZp +hoMMwQHHlcUv70gQqO/XGmhK2dgzivlUhsD0t+NMD8qMeidOD43A6BSn2zGU +BddtlBlTIrA+s/nZdcpT/nznuNUIfJi8IrmS8ofWz3/EtQg0i++ae065iVHt +q6pHoJrZcpFeymRU+gc0IvCHgH3nd8oXew7/42BCoEFdiuUk5VPaW2oOmRPY +/jT40AJlj/NSqqetCZxn9On9R9n6+2R2+k4CieOJlf+3lmnrylsOBFY0bRn8 +TVnyWkH4wz0Ehnd2PpqmzDVz6sdrVwJP/xC2/Ul5eIfD3i8eBEa+q774ifLb +ErUXc4eo8yfykl5TruZeYSh4jMB9ehnaNZTz9/WxFAIIPEZ3ySiknHj/nqRu +KIHaz1puJVM+vjo1yeo0gbMPOf5+lJ2OeC/sP0PgZdX2qe2U8QkcPplAoE6b +oIYK5fVyEj3x5wjsGVahcVMWDh23vJZOoNj2P6+6qPWZe9tcVXaFwOt2drps +yv2qecpPrhE48m2pcxjl5rjQzO48Av+G9eiZUy7r38U3WkStp1DZOyHKVzer +hHKRBK5UdVRrp+rFe7THacM9Ald89JBxoGyz7W4zPCTQXTe4Upiybn6yvn0D +gfducoSeU/W4wtFIIqKFqhflfh5NyqOlaxIuvCawziappI+q7w6+kdnCdgKN +b1SsSqJcVHu981UfgQcqf6h2ynPgvHiQxeAgdXwD62sI5aATNvdnvxOoGm/j +JU55K7F4WX6SwINXbz+2ovrrS4qboz8PA7s2dSwmUf3pN6xK0xRg4FhAK0OK +8qzF/MiIMAOfDjTEFlP9zM+dHntIkoFOQSGj1VS/a4Y2VripMTAqdHlk3Tpq +/TpSo2S1GOjs/jJUn/IWbZd/PugycFn/1vJSKk8cx6YGdyMD53iUP10S50CE +J0N0hx0DFULGjUyofFrR+KtPwImBm+76GxSuofpZvp7V4sJAfoPjoSvW/D8v +d5uaezGwNvv50wYRDrTsSjzBDGXg3dvR7DVUPq41/vl6Qy4D3+tlmW6m8vNG +9oPsoZsMZKVavvbn44Dy/FnvW8UMXB24k13MywGjCplFWjkDj6T72AtQ+euu +skNd8gkDT0eMRd6l8rtsbXkK7w8Gcuq+f4um8n1zwGmnp2MMbDim35T6m4TG +N1b0s1MMHGpe+zdrgYSOlMGHi38ZWGiYebaEmg9/uMR+zAgr4dLDp5bcouaL +5Viw5VddJWTtFNxL/0mC9EbZOF4jJVxDvDo5Ts2jUf+mxxtMlPBjCT26aoia +jzPCRv7WSqh8KzfC9F8S+v6WqC+6KmGIHkpqUvPNX+CD6LpEJXy8Vf1ZWCc1 +b5Wx759eJYxuE1F/X0+C75Fvksf7lVBcoL/TpI4E4KTszviqhLyCoVfYNSR8 +0exu6x5TQh6vnS5BVSSo6/s3ei1bjy8dQiSHyqnnMy8ojlJbj7e0BJ3NCkn4 +6c57siJyPfInvgvsjqfuN8estv7serS+lzY7GUvCWHcUz4vE9UjYx71YeZaE +Xzvmsz9nrEcpXxu/TVEkzBoONwkVr0cnq9aagyEkcK1pXXuobT3eCLY9bOpD +wrqm1GoZBWXcnfQsQtCcpP4fxLniHysjMTlGW7XAhqGDFsWGz5Rx8O5yZjn1 +/ZWSF2wz/kIZVd/kGttNs+GdbFeW83tlxOylf86Ps8FtXeYm1e/K+Hvh35CR +b2wIFZLyfCOogpYdGyws3rGBnJNtlnJWweEDq68HsNgg8pJxvmxMBWOGnnwe +smWDdELpTl1dVbyzLSNH4BQLrm4wEBb1VkPjdVNOi1dKoEXSRGfygjoW1a4U +vZFfDJulH6dpdGhgI2tl1oGzt0CIOz/gQIwmdsu3nDt6uAhko+WMnBkb0aH2 +9cCiaiHwES73bJ9txAbPlqtxIzdBnbmuNHifFnrfV+1crM8H/z6RRqslmzBg +peC/mSF5MDaZ4mB5dRMW/1LKj7C8ARYaT7Ms1bTx27vuEmOrHKibNPw9+0ob +52OPNm/4lA1+qlo9bzx1UH9buGlPaSYwRz3anfl0cWv3wUf8h67AVrrEdsF8 +XTx7vaf48oFLsD4qKeSxnh5KlX0rDY7IABVPg3qiRw+3EVlmwucvgGedz9mK +E/p42rX/lUJVKtTfaPeYEDPApx1/4gu2p8BU8eKsxn0DtPYxcV69KRHcCTZf +1vbN+N+jS0st4uNgQiVDt3x8MzpdUG+U/HQGHhT8/jydYIiGN73COrKjYY+Z +IhrKGuEJhQ0vtqhGgtTR+Cr1BiPMSy0dH9oUDmL8vne272YiM4s/LLQvGAq2 +RISNOzOxTaPTeH9bMGhFnN+S4cLEGunwCsvHwWAzXva+6wATu809WNpFwRDX +MT3v7stEvheHE/f4BcNcfqRpWDQTpX90OH1ZDIIew4x3RWwmllQL2A8oBYFP +YME1y9tMtFo5ujdTMghmbld6/ixjokIE13tHwSAQoXXNbrzHxALeRyJffwWC +Na+MdG0DE98OHztrUxcINe1FHu/eM3G69P1pO8dAsBJ6oBbUxcTnueIlxy0D +ocvi+YxELxMlvvrQLxoFwlT1j4T9/UzUfqiyYpQWCGp5mpyhYSa6R9cwR8YC +oKbHJChlhIk7pFc+MBoMAKs1dqAxzsRlvyxOpncEgFd84JuAaSY6aIUW7KwN +gKmGuCzxOSaG1buvrSoLgJiFK+7VC0wcern+kVJBAAhrl6ju+8vEnbTG/GtX +AiDnaPX04iIT59zVqsSTA+B/X1pUUw== + "]]}, + 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:eJwV13k4Ff8XB/CisoREIrvrzhXZkjWuc0iEbypblKKslVSyS5ayK6INRYS4 +d24kKrIVlaRSyVoS1TfKll319ZvfH/PM83qemWeWzznvM6Nw8JitJ9eSJUu4 +llIbtZ/pe95ETy4w1rnZy9OgomfcniMRatIVAwNjIcO2KAYo9vqgRFc6bNst +vkIRCQjayerk7soH4X8/5S5HHVg9Kp4+31kOmvdeS3+GrfCpxubYVOdjMHle +dS0YHMCcPvxxovMtnBCNmPrK9IT5Tr1L450D8HapYzZLLxAat9wqeJM/CSJH +OHu3LsaC9KeqbwdV/0L1PvGkDp00WOPryuLZwo1GWW0u8aqXIH2j+UMbB16U +LD+judUpC7qvajZMCAuiud0kF30kB5ILIl9zrVuNtfu59M1a8kD84mBixnVR +9P0YcfXm15sQb29p/HZGDPnHPr7XKSuEkwZ5rs9jJPB+xxjN8egtMBtbCPMb +lMTcO7Rir+5iCN12UeXRT0m8sMy74mJfMdzOU+sRnZFEn7/qxfWDxSBh72ZQ +xSuFksC3VWC0GH4+eDLLrS6F4Trm1lFcJZARkxaQGSKFxbcmzN+plMCAGMOv +SVAaDbd9X6YYWgLRRrsOSOrL4MuIlv/2CrBg2/6cX3qmMmh47MMhhdUsEIr6 +ccbhHxncEqcrOyjGgmuNsUVpbjJoPDF3YK8cCx5YVf9YkSiDx2Zdd8ppsWDc +STFoslsGOy5335hyZMH+wOmk1nBZvLhr6eK76ywgrphKD8fKopddrAktn0Xd +byqHJ00Wl2oXNfsWsSDsj3KbaYEsGvQeLJi5zYJLZ/aLVbXKYsadwNSP9Sxo +vfAst1BGDltSjOlz/SzYfDuz4nS9HPIaTs24yrPBrPPV39FmOUy8sllgWpEN +NkuWWbi+lUPp4Ov9cUpscLf164avcugl+/TpDXU2mIcrREYtl8dyoCdyjNhw +XG7mpskGedyvqfVTxYkNTd65I41B8vhioDSiMoUNln8MRE6Fy+NayemEgVQ2 +vEpr19WOksfh5TP2Ahls6K7iiypIlMfWjwkajplsGF0ZIBJ7TR7jzhRNPC5k +g0TZNj3zx/L4ee+hR0vq2OA7NxHVLKiAFwZzfYV+smHzCa+130QU8D7tsNaq +MTbwDvewuSUUcOlLO1WBX2wo7G3sMKYpIJ/DgdqFWTb01V1SrdRVQCv/K3tY +3CTsiDXoynNVQN+J6ko7SRK0RKI1wu8o4H9lETVtZiQsSZ5uunpPAafj9kU5 +WZDwivvwnnsPFfBEyauoD5YkHJm2jZ14ooCd+SX63TYkFHTRe717FFBq+a5z +hU4krM1tjrPnpqGnephY0hES5jcI96k50NB4V4xi7HkSZq5LRm/aQ8O2svq4 +5DQSplYRdANXGm67eNf+fDoJo5MGh80O0dApbpdW4mUSBh66z+yJoOGT0LRF +uxwSWqzvCyUU0vDL0UamMYeEZ7WP7pxj0bBpy+qIlaUkNGm02meU0rArvVzt +fRkJdaKfs3KqaKiUXPplXwUJ5b38SpUvaagTP19p9pCErCP7YWCahiJFVtY+ +zSRc+egz8O8CDSU7697/eU7CxR0nY0cWaQjPO7rOvSDh/KaEF3N8ikiX7bMq +fEVCzO87u1fJKqL6+NcfJe3U+0leftzIXBH5P4ym8feT4PN3laiptSJmqVb0 +e30mweuY5D2LnYrYECN9p36ABDc7jT+2exRRLW3kvddXEuylnBMO+SniuvPO +xsnDJBixyRuXLyvispSnXGpTJPTKs3O3ZivijgulS4ynSQi7XJIzlauI3rzO +v61nSLgfXXTNtkQRfewefd8/R62v042rQjWKuDD0qsztDwnKyy+mxX1WRP+r +5fvbuTnQHJaeqvNNEc94RrhVLuOA13ja+S/DihgrcMErYzkHCnrPpZhOKWJt +R2y0OQ8H5MvjE/5bQcc1pzyWJPJzYK1reFSQKh3VPoVfiBTmQGV7aCSxkY6j +k+aiG1dzwN4q5HS7Dh15nPflfaKcrhN4SgvoKCwY8WWTKAcEBY6FjO6io9kj +CbEqMQ6Q0UeDrzvSkb/uBY/dWg5YzR4J+mcvHUOmZ/mHKScM+ASwPOh4t7bX +bJUEB5ZVHTzuFUzH/uZnl3QlOXBT/cAxsVN0XDylL1VF2bTA1a8pio49CUcr +9aU4EJnq4ktLouPpZlsVDWkOLHg6+vRdo+OzHk9iXoYDmb323ufy6Ji0ztbN +Q5YD+rvsvIyK6FidcriilXKQ0U6PrFI6+vi5sC7KcWBCxMrN8TEdNztzf1yq +wIEuX1rb4Wd0vPpR+6cL5YanCxDZSsf0iNHLFZTTwthyxR103Jjy7ZEzjQMh +7WdSa3rpePPBtS23KLupuyy29dMxL7zFfYKy5oDAp/lhOh54GxMTrsgBCaOv +NkLjdFQdSox5SHnJ5do62jQdW7KX0ucofx+7pK63QF2vqMR7I50Dry39cqwX +6djgYmrjTfneTXMht2UEyhSndGVSzvkrezqAj8BsXiue55T97rzed12UwNZp +hoMMwQHHlcUv70gQqO/XGmhK2dgzivlUhsD0t+NMD8qMeidOD43A6BSn2zGU +BddtlBlTIrA+s/nZdcpT/nznuNUIfJi8IrmS8ofWz3/EtQg0i++ae065iVHt +q6pHoJrZcpFeymRU+gc0IvCHgH3nd8oXew7/42BCoEFdiuUk5VPaW2oOmRPY +/jT40AJlj/NSqqetCZxn9On9R9n6+2R2+k4CieOJlf+3lmnrylsOBFY0bRn8 +TVnyWkH4wz0Ehnd2PpqmzDVz6sdrVwJP/xC2/Ul5eIfD3i8eBEa+q774ifLb +ErUXc4eo8yfykl5TruZeYSh4jMB9ehnaNZTz9/WxFAIIPEZ3ySiknHj/nqRu +KIHaz1puJVM+vjo1yeo0gbMPOf5+lJ2OeC/sP0PgZdX2qe2U8QkcPplAoE6b +oIYK5fVyEj3x5wjsGVahcVMWDh23vJZOoNj2P6+6qPWZe9tcVXaFwOt2drps +yv2qecpPrhE48m2pcxjl5rjQzO48Av+G9eiZUy7r38U3WkStp1DZOyHKVzer +hHKRBK5UdVRrp+rFe7THacM9Ald89JBxoGyz7W4zPCTQXTe4Upiybn6yvn0D +gfducoSeU/W4wtFIIqKFqhflfh5NyqOlaxIuvCawziappI+q7w6+kdnCdgKN +b1SsSqJcVHu981UfgQcqf6h2ynPgvHiQxeAgdXwD62sI5aATNvdnvxOoGm/j +JU55K7F4WX6SwINXbz+2ovrrS4qboz8PA7s2dSwmUf3pN6xK0xRg4FhAK0OK +8qzF/MiIMAOfDjTEFlP9zM+dHntIkoFOQSGj1VS/a4Y2VripMTAqdHlk3Tpq +/TpSo2S1GOjs/jJUn/IWbZd/PugycFn/1vJSKk8cx6YGdyMD53iUP10S50CE +J0N0hx0DFULGjUyofFrR+KtPwImBm+76GxSuofpZvp7V4sJAfoPjoSvW/D8v +d5uaezGwNvv50wYRDrTsSjzBDGXg3dvR7DVUPq41/vl6Qy4D3+tlmW6m8vNG +9oPsoZsMZKVavvbn44Dy/FnvW8UMXB24k13MywGjCplFWjkDj6T72AtQ+euu +skNd8gkDT0eMRd6l8rtsbXkK7w8Gcuq+f4um8n1zwGmnp2MMbDim35T6m4TG +N1b0s1MMHGpe+zdrgYSOlMGHi38ZWGiYebaEmg9/uMR+zAgr4dLDp5bcouaL +5Viw5VddJWTtFNxL/0mC9EbZOF4jJVxDvDo5Ts2jUf+mxxtMlPBjCT26aoia +jzPCRv7WSqh8KzfC9F8S+v6WqC+6KmGIHkpqUvPNX+CD6LpEJXy8Vf1ZWCc1 +b5Wx759eJYxuE1F/X0+C75Fvksf7lVBcoL/TpI4E4KTszviqhLyCoVfYNSR8 +0exu6x5TQh6vnS5BVSSo6/s3ei1bjy8dQiSHyqnnMy8ojlJbj7e0BJ3NCkn4 +6c57siJyPfInvgvsjqfuN8estv7serS+lzY7GUvCWHcUz4vE9UjYx71YeZaE +Xzvmsz9nrEcpXxu/TVEkzBoONwkVr0cnq9aagyEkcK1pXXuobT3eCLY9bOpD +wrqm1GoZBWXcnfQsQtCcpP4fxLniHysjMTlGW7XAhqGDFsWGz5Rx8O5yZjn1 +/ZWSF2wz/kIZVd/kGttNs+GdbFeW83tlxOylf86Ps8FtXeYm1e/K+Hvh35CR +b2wIFZLyfCOogpYdGyws3rGBnJNtlnJWweEDq68HsNgg8pJxvmxMBWOGnnwe +smWDdELpTl1dVbyzLSNH4BQLrm4wEBb1VkPjdVNOi1dKoEXSRGfygjoW1a4U +vZFfDJulH6dpdGhgI2tl1oGzt0CIOz/gQIwmdsu3nDt6uAhko+WMnBkb0aH2 +9cCiaiHwES73bJ9txAbPlqtxIzdBnbmuNHifFnrfV+1crM8H/z6RRqslmzBg +peC/mSF5MDaZ4mB5dRMW/1LKj7C8ARYaT7Ms1bTx27vuEmOrHKibNPw9+0ob +52OPNm/4lA1+qlo9bzx1UH9buGlPaSYwRz3anfl0cWv3wUf8h67AVrrEdsF8 +XTx7vaf48oFLsD4qKeSxnh5KlX0rDY7IABVPg3qiRw+3EVlmwucvgGedz9mK +E/p42rX/lUJVKtTfaPeYEDPApx1/4gu2p8BU8eKsxn0DtPYxcV69KRHcCTZf +1vbN+N+jS0st4uNgQiVDt3x8MzpdUG+U/HQGHhT8/jydYIiGN73COrKjYY+Z +IhrKGuEJhQ0vtqhGgtTR+Cr1BiPMSy0dH9oUDmL8vne272YiM4s/LLQvGAq2 +RISNOzOxTaPTeH9bMGhFnN+S4cLEGunwCsvHwWAzXva+6wATu809WNpFwRDX +MT3v7stEvheHE/f4BcNcfqRpWDQTpX90OH1ZDIIew4x3RWwmllQL2A8oBYFP +YME1y9tMtFo5ujdTMghmbld6/ixjokIE13tHwSAQoXXNbrzHxALeRyJffwWC +Na+MdG0DE98OHztrUxcINe1FHu/eM3G69P1pO8dAsBJ6oBbUxcTnueIlxy0D +ocvi+YxELxMlvvrQLxoFwlT1j4T9/UzUfqiyYpQWCGp5mpyhYSa6R9cwR8YC +oKbHJChlhIk7pFc+MBoMAKs1dqAxzsRlvyxOpncEgFd84JuAaSY6aIUW7KwN +gKmGuCzxOSaG1buvrSoLgJiFK+7VC0wcern+kVJBAAhrl6ju+8vEnbTG/GtX +AiDnaPX04iIT59zVqsSTA+B/X1pUUw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.05693050352121557}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.05693050352121557}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJwV13k4Ff8XB/CisoREIrvrzhXZkjWuc0iEbypblKKslVSyS5ayK6INRYS4 +d24kKrIVlaRSyVoS1TfKll319ZvfH/PM83qemWeWzznvM6Nw8JitJ9eSJUu4 +llIbtZ/pe95ETy4w1rnZy9OgomfcniMRatIVAwNjIcO2KAYo9vqgRFc6bNst +vkIRCQjayerk7soH4X8/5S5HHVg9Kp4+31kOmvdeS3+GrfCpxubYVOdjMHle +dS0YHMCcPvxxovMtnBCNmPrK9IT5Tr1L450D8HapYzZLLxAat9wqeJM/CSJH +OHu3LsaC9KeqbwdV/0L1PvGkDp00WOPryuLZwo1GWW0u8aqXIH2j+UMbB16U +LD+judUpC7qvajZMCAuiud0kF30kB5ILIl9zrVuNtfu59M1a8kD84mBixnVR +9P0YcfXm15sQb29p/HZGDPnHPr7XKSuEkwZ5rs9jJPB+xxjN8egtMBtbCPMb +lMTcO7Rir+5iCN12UeXRT0m8sMy74mJfMdzOU+sRnZFEn7/qxfWDxSBh72ZQ +xSuFksC3VWC0GH4+eDLLrS6F4Trm1lFcJZARkxaQGSKFxbcmzN+plMCAGMOv +SVAaDbd9X6YYWgLRRrsOSOrL4MuIlv/2CrBg2/6cX3qmMmh47MMhhdUsEIr6 +ccbhHxncEqcrOyjGgmuNsUVpbjJoPDF3YK8cCx5YVf9YkSiDx2Zdd8ppsWDc +STFoslsGOy5335hyZMH+wOmk1nBZvLhr6eK76ywgrphKD8fKopddrAktn0Xd +byqHJ00Wl2oXNfsWsSDsj3KbaYEsGvQeLJi5zYJLZ/aLVbXKYsadwNSP9Sxo +vfAst1BGDltSjOlz/SzYfDuz4nS9HPIaTs24yrPBrPPV39FmOUy8sllgWpEN +NkuWWbi+lUPp4Ov9cUpscLf164avcugl+/TpDXU2mIcrREYtl8dyoCdyjNhw +XG7mpskGedyvqfVTxYkNTd65I41B8vhioDSiMoUNln8MRE6Fy+NayemEgVQ2 +vEpr19WOksfh5TP2Ahls6K7iiypIlMfWjwkajplsGF0ZIBJ7TR7jzhRNPC5k +g0TZNj3zx/L4ee+hR0vq2OA7NxHVLKiAFwZzfYV+smHzCa+130QU8D7tsNaq +MTbwDvewuSUUcOlLO1WBX2wo7G3sMKYpIJ/DgdqFWTb01V1SrdRVQCv/K3tY +3CTsiDXoynNVQN+J6ko7SRK0RKI1wu8o4H9lETVtZiQsSZ5uunpPAafj9kU5 +WZDwivvwnnsPFfBEyauoD5YkHJm2jZ14ooCd+SX63TYkFHTRe717FFBq+a5z +hU4krM1tjrPnpqGnephY0hES5jcI96k50NB4V4xi7HkSZq5LRm/aQ8O2svq4 +5DQSplYRdANXGm67eNf+fDoJo5MGh80O0dApbpdW4mUSBh66z+yJoOGT0LRF +uxwSWqzvCyUU0vDL0UamMYeEZ7WP7pxj0bBpy+qIlaUkNGm02meU0rArvVzt +fRkJdaKfs3KqaKiUXPplXwUJ5b38SpUvaagTP19p9pCErCP7YWCahiJFVtY+ +zSRc+egz8O8CDSU7697/eU7CxR0nY0cWaQjPO7rOvSDh/KaEF3N8ikiX7bMq +fEVCzO87u1fJKqL6+NcfJe3U+0leftzIXBH5P4ym8feT4PN3laiptSJmqVb0 +e30mweuY5D2LnYrYECN9p36ABDc7jT+2exRRLW3kvddXEuylnBMO+SniuvPO +xsnDJBixyRuXLyvispSnXGpTJPTKs3O3ZivijgulS4ynSQi7XJIzlauI3rzO +v61nSLgfXXTNtkQRfewefd8/R62v042rQjWKuDD0qsztDwnKyy+mxX1WRP+r +5fvbuTnQHJaeqvNNEc94RrhVLuOA13ja+S/DihgrcMErYzkHCnrPpZhOKWJt +R2y0OQ8H5MvjE/5bQcc1pzyWJPJzYK1reFSQKh3VPoVfiBTmQGV7aCSxkY6j +k+aiG1dzwN4q5HS7Dh15nPflfaKcrhN4SgvoKCwY8WWTKAcEBY6FjO6io9kj +CbEqMQ6Q0UeDrzvSkb/uBY/dWg5YzR4J+mcvHUOmZ/mHKScM+ASwPOh4t7bX +bJUEB5ZVHTzuFUzH/uZnl3QlOXBT/cAxsVN0XDylL1VF2bTA1a8pio49CUcr +9aU4EJnq4ktLouPpZlsVDWkOLHg6+vRdo+OzHk9iXoYDmb323ufy6Ji0ztbN +Q5YD+rvsvIyK6FidcriilXKQ0U6PrFI6+vi5sC7KcWBCxMrN8TEdNztzf1yq +wIEuX1rb4Wd0vPpR+6cL5YanCxDZSsf0iNHLFZTTwthyxR103Jjy7ZEzjQMh +7WdSa3rpePPBtS23KLupuyy29dMxL7zFfYKy5oDAp/lhOh54GxMTrsgBCaOv +NkLjdFQdSox5SHnJ5do62jQdW7KX0ucofx+7pK63QF2vqMR7I50Dry39cqwX +6djgYmrjTfneTXMht2UEyhSndGVSzvkrezqAj8BsXiue55T97rzed12UwNZp +hoMMwQHHlcUv70gQqO/XGmhK2dgzivlUhsD0t+NMD8qMeidOD43A6BSn2zGU +BddtlBlTIrA+s/nZdcpT/nznuNUIfJi8IrmS8ofWz3/EtQg0i++ae065iVHt +q6pHoJrZcpFeymRU+gc0IvCHgH3nd8oXew7/42BCoEFdiuUk5VPaW2oOmRPY +/jT40AJlj/NSqqetCZxn9On9R9n6+2R2+k4CieOJlf+3lmnrylsOBFY0bRn8 +TVnyWkH4wz0Ehnd2PpqmzDVz6sdrVwJP/xC2/Ul5eIfD3i8eBEa+q774ifLb +ErUXc4eo8yfykl5TruZeYSh4jMB9ehnaNZTz9/WxFAIIPEZ3ySiknHj/nqRu +KIHaz1puJVM+vjo1yeo0gbMPOf5+lJ2OeC/sP0PgZdX2qe2U8QkcPplAoE6b +oIYK5fVyEj3x5wjsGVahcVMWDh23vJZOoNj2P6+6qPWZe9tcVXaFwOt2drps +yv2qecpPrhE48m2pcxjl5rjQzO48Av+G9eiZUy7r38U3WkStp1DZOyHKVzer +hHKRBK5UdVRrp+rFe7THacM9Ald89JBxoGyz7W4zPCTQXTe4Upiybn6yvn0D +gfducoSeU/W4wtFIIqKFqhflfh5NyqOlaxIuvCawziappI+q7w6+kdnCdgKN +b1SsSqJcVHu981UfgQcqf6h2ynPgvHiQxeAgdXwD62sI5aATNvdnvxOoGm/j +JU55K7F4WX6SwINXbz+2ovrrS4qboz8PA7s2dSwmUf3pN6xK0xRg4FhAK0OK +8qzF/MiIMAOfDjTEFlP9zM+dHntIkoFOQSGj1VS/a4Y2VripMTAqdHlk3Tpq +/TpSo2S1GOjs/jJUn/IWbZd/PugycFn/1vJSKk8cx6YGdyMD53iUP10S50CE +J0N0hx0DFULGjUyofFrR+KtPwImBm+76GxSuofpZvp7V4sJAfoPjoSvW/D8v +d5uaezGwNvv50wYRDrTsSjzBDGXg3dvR7DVUPq41/vl6Qy4D3+tlmW6m8vNG +9oPsoZsMZKVavvbn44Dy/FnvW8UMXB24k13MywGjCplFWjkDj6T72AtQ+euu +skNd8gkDT0eMRd6l8rtsbXkK7w8Gcuq+f4um8n1zwGmnp2MMbDim35T6m4TG +N1b0s1MMHGpe+zdrgYSOlMGHi38ZWGiYebaEmg9/uMR+zAgr4dLDp5bcouaL +5Viw5VddJWTtFNxL/0mC9EbZOF4jJVxDvDo5Ts2jUf+mxxtMlPBjCT26aoia +jzPCRv7WSqh8KzfC9F8S+v6WqC+6KmGIHkpqUvPNX+CD6LpEJXy8Vf1ZWCc1 +b5Wx759eJYxuE1F/X0+C75Fvksf7lVBcoL/TpI4E4KTszviqhLyCoVfYNSR8 +0exu6x5TQh6vnS5BVSSo6/s3ei1bjy8dQiSHyqnnMy8ojlJbj7e0BJ3NCkn4 +6c57siJyPfInvgvsjqfuN8estv7serS+lzY7GUvCWHcUz4vE9UjYx71YeZaE +Xzvmsz9nrEcpXxu/TVEkzBoONwkVr0cnq9aagyEkcK1pXXuobT3eCLY9bOpD +wrqm1GoZBWXcnfQsQtCcpP4fxLniHysjMTlGW7XAhqGDFsWGz5Rx8O5yZjn1 +/ZWSF2wz/kIZVd/kGttNs+GdbFeW83tlxOylf86Ps8FtXeYm1e/K+Hvh35CR +b2wIFZLyfCOogpYdGyws3rGBnJNtlnJWweEDq68HsNgg8pJxvmxMBWOGnnwe +smWDdELpTl1dVbyzLSNH4BQLrm4wEBb1VkPjdVNOi1dKoEXSRGfygjoW1a4U +vZFfDJulH6dpdGhgI2tl1oGzt0CIOz/gQIwmdsu3nDt6uAhko+WMnBkb0aH2 +9cCiaiHwES73bJ9txAbPlqtxIzdBnbmuNHifFnrfV+1crM8H/z6RRqslmzBg +peC/mSF5MDaZ4mB5dRMW/1LKj7C8ARYaT7Ms1bTx27vuEmOrHKibNPw9+0ob +52OPNm/4lA1+qlo9bzx1UH9buGlPaSYwRz3anfl0cWv3wUf8h67AVrrEdsF8 +XTx7vaf48oFLsD4qKeSxnh5KlX0rDY7IABVPg3qiRw+3EVlmwucvgGedz9mK +E/p42rX/lUJVKtTfaPeYEDPApx1/4gu2p8BU8eKsxn0DtPYxcV69KRHcCTZf +1vbN+N+jS0st4uNgQiVDt3x8MzpdUG+U/HQGHhT8/jydYIiGN73COrKjYY+Z +IhrKGuEJhQ0vtqhGgtTR+Cr1BiPMSy0dH9oUDmL8vne272YiM4s/LLQvGAq2 +RISNOzOxTaPTeH9bMGhFnN+S4cLEGunwCsvHwWAzXva+6wATu809WNpFwRDX +MT3v7stEvheHE/f4BcNcfqRpWDQTpX90OH1ZDIIew4x3RWwmllQL2A8oBYFP +YME1y9tMtFo5ujdTMghmbld6/ixjokIE13tHwSAQoXXNbrzHxALeRyJffwWC +Na+MdG0DE98OHztrUxcINe1FHu/eM3G69P1pO8dAsBJ6oBbUxcTnueIlxy0D +ocvi+YxELxMlvvrQLxoFwlT1j4T9/UzUfqiyYpQWCGp5mpyhYSa6R9cwR8YC +oKbHJChlhIk7pFc+MBoMAKs1dqAxzsRlvyxOpncEgFd84JuAaSY6aIUW7KwN +gKmGuCzxOSaG1buvrSoLgJiFK+7VC0wcern+kVJBAAhrl6ju+8vEnbTG/GtX +AiDnaPX04iIT59zVqsSTA+B/X1pUUw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.05693050352121557}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, + 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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.061043}}, + "Frame" -> {{False, 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.061043}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.061043}}, + "Frame" -> {{False, 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.05693050352121557}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994014929837653*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"a8306cd5-0bb4-4974-af96-647c0a4e787f"] +}, Open ]], Cell[CellGroupData[{ @@ -5698,7 +11614,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[{ @@ -5716,8 +11634,8 @@ Cell[BoxData[ SuperscriptBox[ RowBox[{"(", FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -5739,66 +11657,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[\\\"1.47527658787621`*^-163\\\", \ +RowBox[{\\\"505518991860510123640143\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"101\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 121, 45, + 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423358439445`*^9, 3.994014929875*^9}, CellLabel-> "During evaluation of \ -In[365]:=",ExpressionUUID->"bf4d283e-fed2-af41-90e7-a9b6911d8baf"], +In[121]:=",ExpressionUUID->"94abbce6-89da-485f-8487-4761cc2bade1"], 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.8246297935401574`*^-166\\\", \ +RowBox[{\\\"164243120455479739170682\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"105\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 121, 46, + 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423358439445`*^9, 3.994014929884308*^9}, CellLabel-> "During evaluation of \ -In[365]:=",ExpressionUUID->"9f6ca4d5-4251-0341-9c65-a603c68721f6"], +In[121]:=",ExpressionUUID->"e6d9a65f-4913-4ca4-ab43-5df6b0770b63"], 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[\\\"2.2567116639918887`*^-169\\\", \ +RowBox[{\\\"552513857212233842570175\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"108\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 121, 47, + 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423358439445`*^9, 3.994014929891066*^9}, CellLabel-> "During evaluation of \ -In[365]:=",ExpressionUUID->"108eeaac-8397-bf4f-90a4-e14dbe759ebf"], +In[121]:=",ExpressionUUID->"abaff2fd-236a-4a22-bd1f-d04294542efb"], 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, 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423358439445`*^9, 3.9940149298978786`*^9}, CellLabel-> "During evaluation of \ -In[365]:=",ExpressionUUID->"1a2f2a3c-e511-b846-8a84-9fad6555a680"], +In[121]:=",ExpressionUUID->"110f3842-8a94-4bb8-b1c0-c59c835187e0"], -Cell[BoxData["12.5536549879565`"], "Output", - CellChangeTimes->{3.9913423425170345`*^9}, +Cell[BoxData["14.188263255671611`"], "Output", + CellChangeTimes->{3.9913423425170345`*^9, 3.9940149752818537`*^9}, CellLabel-> - "Out[365]=",ExpressionUUID->"ca1793f9-9753-5e46-b385-c8dd36228fd1"] + "Out[121]=",ExpressionUUID->"0f4377f9-22ed-44af-b1fe-715803dd5881"] }, Open ]], Cell[CellGroupData[{ @@ -5865,68 +11790,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[\\\"4.030899591381347`*^-239\\\", \ +RowBox[{\\\"6923783734542601519316619\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"21\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0741907865600000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 122, 49, + 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423425545177`*^9, 3.994014975315736*^9}, CellLabel-> "During evaluation of \ -In[366]:=",ExpressionUUID->"642a7168-3d33-6b4e-9213-0f67bfd30f54"], +In[122]:=",ExpressionUUID->"90f18040-ddee-413d-a3d5-1d7cb861019a"], 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.4307731844579574`*^-246\\\", \ +RowBox[{\\\"7540000486916893054535799\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"24\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"7937665638400000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 122, 50, + 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423425545177`*^9, 3.9940149753224297`*^9}, CellLabel-> "During evaluation of \ -In[366]:=",ExpressionUUID->"315984db-f497-2940-bd36-1d820037ad00"], +In[122]:=",ExpressionUUID->"51fcd323-7656-4ac7-abb1-bc9afbf07439"], 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.078548495082809`*^-254\\\", \ +RowBox[{\\\"8716240562875928371043383\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"5941477990400000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 122, 51, + 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423425545177`*^9, 3.99401497533108*^9}, CellLabel-> "During evaluation of \ -In[366]:=",ExpressionUUID->"2698bbc8-6aa1-c54b-9b5c-3f71a7eb3345"], +In[122]:=",ExpressionUUID->"82259213-018a-4904-a19a-367dec60da7a"], 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, 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423425545177`*^9, 3.994014975339817*^9}, CellLabel-> "During evaluation of \ -In[366]:=",ExpressionUUID->"7f632647-49b8-a945-8682-8e4f7ae37cda"], +In[122]:=",ExpressionUUID->"36c26f9c-0ba2-4e37-80c3-4f1962319e91"], -Cell[BoxData["2.904399821349581`"], "Output", - CellChangeTimes->{3.9913423499055786`*^9}, +Cell[BoxData["0.003643311146728807`"], "Output", + CellChangeTimes->{3.9913423499055786`*^9, 3.994014980968169*^9}, CellLabel-> - "Out[366]=",ExpressionUUID->"0f5bf0f0-4e96-2c4d-9011-c6ae92f19c83"] + "Out[122]=",ExpressionUUID->"137b6d70-ffb9-4340-ad9b-2b529998f0fd"] }, Open ]], Cell[CellGroupData[{ @@ -5947,8 +11879,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 +11924,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[\\\"4.030899591381347`*^-239\\\", \ +RowBox[{\\\"6923783734542601519316619\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"21\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0741907865600000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 123, 53, + 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423499435787`*^9, 3.994014981012096*^9}, CellLabel-> "During evaluation of \ -In[367]:=",ExpressionUUID->"704bc64b-0e53-8146-9696-c0e9ea00ec4d"], +In[123]:=",ExpressionUUID->"88278fe5-41ac-4c40-b91a-9191551d68dd"], 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.4307731844579574`*^-246\\\", \ +RowBox[{\\\"7540000486916893054535799\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"24\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"7937665638400000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 123, 54, + 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423499435787`*^9, 3.994014981020075*^9}, CellLabel-> "During evaluation of \ -In[367]:=",ExpressionUUID->"68985ea1-064e-2c42-b957-ce16147f9e13"], +In[123]:=",ExpressionUUID->"dccdf86c-6650-423c-94a8-34327f091d47"], 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.078548495082809`*^-254\\\", \ +RowBox[{\\\"8716240562875928371043383\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"5941477990400000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 123, 55, + 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423499435787`*^9, 3.994014981026082*^9}, CellLabel-> "During evaluation of \ -In[367]:=",ExpressionUUID->"48a38db6-6d68-6140-9cb6-9dfc686aa062"], +In[123]:=",ExpressionUUID->"c3bb059d-f9d3-441a-9af3-2b71c3c3c7e7"], 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, 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423499435787`*^9, 3.9940149810323267`*^9}, CellLabel-> "During evaluation of \ -In[367]:=",ExpressionUUID->"ac6e6758-d573-7947-b88c-92831bb5be70"], +In[123]:=",ExpressionUUID->"0aa815a2-9cfe-40a8-9644-e089cd3e6b34"], -Cell[BoxData["9.928941323789857`"], "Output", - CellChangeTimes->{3.991342356382967*^9}, +Cell[BoxData["48.71680576921339`"], "Output", + CellChangeTimes->{3.991342356382967*^9, 3.994014986230775*^9}, CellLabel-> - "Out[367]=",ExpressionUUID->"4d1b179c-7677-2745-8308-576346b6bf0b"] + "Out[123]=",ExpressionUUID->"6acf4d39-8dd7-4ee7-82ae-3a52d0d3bdcf"] }, Open ]], Cell[CellGroupData[{ @@ -6074,8 +12013,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 +12058,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[\\\"4.030899591381347`*^-239\\\", \ +RowBox[{\\\"6923783734542601519316619\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"21\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0741907865600000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 124, 57, + 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342356420965*^9, 3.994014986262438*^9}, CellLabel-> "During evaluation of \ -In[368]:=",ExpressionUUID->"0a9cfe95-3a6f-384b-8656-bdf67695e5d7"], +In[124]:=",ExpressionUUID->"1bdca934-aa18-4474-bf58-4a62bbf364b0"], 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.4307731844579574`*^-246\\\", \ +RowBox[{\\\"7540000486916893054535799\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"24\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"7937665638400000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 124, 58, + 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342356420965*^9, 3.994014986270421*^9}, CellLabel-> "During evaluation of \ -In[368]:=",ExpressionUUID->"700ebedb-417e-8043-ab89-eb4672a7847d"], +In[124]:=",ExpressionUUID->"edfa9e98-c718-46e3-a960-fc9763e922e1"], 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.078548495082809`*^-254\\\", \ +RowBox[{\\\"8716240562875928371043383\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"5941477990400000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 124, 59, + 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342356420965*^9, 3.994014986277277*^9}, CellLabel-> "During evaluation of \ -In[368]:=",ExpressionUUID->"599826a9-6d60-6843-9eef-e381cafa0758"], +In[124]:=",ExpressionUUID->"76fe9874-9bcd-4bc6-ad7a-d1a5990dbfaa"], 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, 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342356420965*^9, 3.99401498628388*^9}, CellLabel-> "During evaluation of \ -In[368]:=",ExpressionUUID->"d92d3772-b819-d145-8d96-f897b04ae4a7"], +In[124]:=",ExpressionUUID->"f6a5525d-cbb0-4b68-af6d-ff2921916a04"], -Cell[BoxData["19.874153108015193`"], "Output", - CellChangeTimes->{3.9913423600715523`*^9}, +Cell[BoxData["6.136428006107634`"], "Output", + CellChangeTimes->{3.9913423600715523`*^9, 3.994014989400743*^9}, CellLabel-> - "Out[368]=",ExpressionUUID->"98a57fa3-05ea-0d42-95b5-58c14727d753"] + "Out[124]=",ExpressionUUID->"6bb68891-e9d7-49c4-9c6d-155d75fd40e4"] }, Open ]], Cell[CellGroupData[{ @@ -6190,22 +12135,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.0002107167398240404`"], "Output", + CellChangeTimes->{3.9913423601046352`*^9, 3.994014989434072*^9}, + CellLabel-> + "Out[125]=",ExpressionUUID->"67f04177-ba34-4075-87d7-3ead7b8fb66f"] }, 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 +12174,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["22.310554534963682`"], "Output", + CellChangeTimes->{3.9913423601345863`*^9, 3.994014989453628*^9}, CellLabel-> - "Out[371]=",ExpressionUUID->"b967ea88-4a73-d84a-86f5-ad4ded7dfd59"] + "Out[127]=",ExpressionUUID->"aaf92cda-1b86-4f5b-92f7-8e6a6b30ee46"] }, Open ]], Cell[CellGroupData[{ @@ -6243,12 +12189,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.3841205211612562`"], "Output", + CellChangeTimes->{3.9913423601709976`*^9, 3.994014989463747*^9}, CellLabel-> - "Out[373]=",ExpressionUUID->"fd8ea80a-f1d4-be4f-9cfa-b37871c5703d"] + "Out[128]=",ExpressionUUID->"ce85bdae-3377-4641-b036-6a310c63b572"] }, Open ]], Cell[CellGroupData[{ @@ -6258,12 +12204,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["30.880496370330558`"], "Output", + CellChangeTimes->{3.9913423602320137`*^9, 3.99401498947365*^9}, CellLabel-> - "Out[376]=",ExpressionUUID->"7d039035-dcf9-ec46-abdb-20c0c777b3ef"] + "Out[129]=",ExpressionUUID->"34121a2a-f44e-4a18-9cde-198c0c70e603"] }, Open ]], Cell[CellGroupData[{ @@ -6453,12 +12399,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.004296611824071511`"], "Output", + CellChangeTimes->{3.991342360260002*^9, 3.994014989486627*^9}, CellLabel-> - "Out[377]=",ExpressionUUID->"ec08a5f9-ba46-9147-9d7b-cc1decdb981f"] + "Out[130]=",ExpressionUUID->"205d4e86-0168-4fe4-96b3-4d53520ae7d3"] }, Open ]], Cell[CellGroupData[{ @@ -6472,12 +12418,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.520161553249753`"], "Output", + CellChangeTimes->{3.9913423603598785`*^9, 3.994014989581704*^9}, CellLabel-> - "Out[378]=",ExpressionUUID->"71ad1ede-d77d-ee46-a908-e7b20c10ebe8"] + "Out[131]=",ExpressionUUID->"fe5b6423-5101-446b-a81c-4780f97e3062"] }, Open ]], Cell[CellGroupData[{ @@ -6669,12 +12615,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.029132598602355054`"], "Output", + CellChangeTimes->{3.991342360375868*^9, 3.99401498959468*^9}, CellLabel-> - "Out[379]=",ExpressionUUID->"819de60b-5785-6448-8fe2-0db5976d700d"] + "Out[132]=",ExpressionUUID->"5a9dcbc8-a693-4079-82d1-69e39a88d1a2"] }, Open ]], Cell[CellGroupData[{ @@ -6688,12 +12634,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.19224680974464`"], "Output", + CellChangeTimes->{3.991342360471882*^9, 3.994014989702077*^9}, CellLabel-> - "Out[380]=",ExpressionUUID->"8dd6a8d3-1dbb-0d4a-9edc-e78196c49a86"] + "Out[133]=",ExpressionUUID->"78d95ec0-3d6a-4196-923a-b5b99d17ed69"] }, Open ]], Cell[CellGroupData[{ @@ -6786,12 +12732,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.11554797097264188`"], "Output", + CellChangeTimes->{3.991342360486868*^9, 3.99401498971517*^9}, CellLabel-> - "Out[381]=",ExpressionUUID->"ae861452-cf77-f740-9f62-141306c9a07a"] + "Out[134]=",ExpressionUUID->"82ddb770-8a8f-416a-b89d-cfb25d5f9cf3"] }, Open ]], Cell[CellGroupData[{ @@ -6881,12 +12827,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.8844520290273581`"], "Output", + CellChangeTimes->{3.9913423605138645`*^9, 3.9940149897249393`*^9}, CellLabel-> - "Out[382]=",ExpressionUUID->"253d4a43-9313-5444-b0f9-3aae32edd842"] + "Out[135]=",ExpressionUUID->"2593f17e-18fa-48ab-96f8-8e849745e338"] }, Open ]], Cell[CellGroupData[{ @@ -7009,12 +12955,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.10219663737674739`"], "Output", + CellChangeTimes->{3.9913423605448647`*^9, 3.994014989735186*^9}, CellLabel-> - "Out[383]=",ExpressionUUID->"0c1e1373-3726-9c43-862b-62a8708f83a9"] + "Out[136]=",ExpressionUUID->"ffd1795a-baac-459d-8e34-dd0950319a98"] }, Open ]], Cell[CellGroupData[{ @@ -7029,30 +12975,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[{"-", @@ -7076,68 +13025,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.5538283596802938`*^-234\\\", \ +RowBox[{\\\"1383790351762182388186847\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0457559040000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 137, 61, + 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342360571863*^9, 3.9940149897496357`*^9}, CellLabel-> "During evaluation of \ -In[384]:=",ExpressionUUID->"d55599c5-2bb2-8f4a-a245-aa6d5998cb8f"], +In[137]:=",ExpressionUUID->"83a663dd-5d5c-4730-9302-65523287fcc5"], 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.974160505579126`*^-241\\\", \ +RowBox[{\\\"1894408991562427689427794\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6398325760000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 137, 62, + 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342360571863*^9, 3.9940149897561407`*^9}, CellLabel-> "During evaluation of \ -In[384]:=",ExpressionUUID->"bdcd3bac-beba-5242-b376-95b5ed40a02a"], +In[137]:=",ExpressionUUID->"61033881-174a-45ca-95fe-eb92f626e1a2"], 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[\\\"1.5923427179790955`*^-247\\\", \ +RowBox[{\\\"2735526583816145583533735\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9182397440000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 137, 63, + 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342360571863*^9, 3.9940149897624617`*^9}, CellLabel-> "During evaluation of \ -In[384]:=",ExpressionUUID->"b91a3ff7-a025-fd4e-b11c-58fa6385068b"], +In[137]:=",ExpressionUUID->"16d4e6d4-3057-4e4f-b973-583240d05035"], 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, 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342360571863*^9, 3.994014989768456*^9}, CellLabel-> "During evaluation of \ -In[384]:=",ExpressionUUID->"9e66d374-59c2-ce4b-b0d2-5a3813a10542"], +In[137]:=",ExpressionUUID->"d086677b-75c0-42fb-8883-94de3358ed14"], -Cell[BoxData["6.261157591052324`"], "Output", - CellChangeTimes->{3.9913423642473736`*^9}, +Cell[BoxData["13.520161553249752`"], "Output", + CellChangeTimes->{3.9913423642473736`*^9, 3.994014993034881*^9}, CellLabel-> - "Out[384]=",ExpressionUUID->"5742ee33-8e4b-444c-91b6-6d4c403c91e9"] + "Out[137]=",ExpressionUUID->"3a021a9a-bf07-4cfa-8af6-33125bb52709"] }, Open ]], Cell[CellGroupData[{ @@ -7152,30 +13108,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[{"-", @@ -7199,68 +13158,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.5538283596802938`*^-234\\\", \ +RowBox[{\\\"1383790351762182388186847\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0457559040000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 138, 65, + 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342364284378*^9, 3.994014993078672*^9}, CellLabel-> "During evaluation of \ -In[385]:=",ExpressionUUID->"49d9e2db-79aa-5b48-897e-3089c92c79b4"], +In[138]:=",ExpressionUUID->"309f4a0d-5456-446e-b6f9-cf58a3add548"], 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.974160505579126`*^-241\\\", \ +RowBox[{\\\"1894408991562427689427794\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6398325760000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 138, 66, + 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342364284378*^9, 3.9940149930876417`*^9}, CellLabel-> "During evaluation of \ -In[385]:=",ExpressionUUID->"2361061c-25a8-4549-ba9e-397593d876d4"], +In[138]:=",ExpressionUUID->"92d54608-3f9c-493f-be9e-20c2efc824b7"], 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[\\\"1.5923427179790955`*^-247\\\", \ +RowBox[{\\\"2735526583816145583533735\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9182397440000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 138, 67, + 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342364284378*^9, 3.994014993095715*^9}, CellLabel-> "During evaluation of \ -In[385]:=",ExpressionUUID->"a2993171-fcd7-8742-bf17-921d87bded0b"], +In[138]:=",ExpressionUUID->"857cd115-c12f-4997-9ff2-0881d8e0e041"], 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, 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342364284378*^9, 3.994014993102805*^9}, CellLabel-> "During evaluation of \ -In[385]:=",ExpressionUUID->"c72ccd11-884d-074a-bf1c-ed71d6dc6298"], +In[138]:=",ExpressionUUID->"cafcbde6-a084-4612-a2e6-092cf292ed04"], -Cell[BoxData["8.694797556550144`"], "Output", - CellChangeTimes->{3.9913423679416714`*^9}, +Cell[BoxData["5.192246809744644`"], "Output", + CellChangeTimes->{3.9913423679416714`*^9, 3.994014996311634*^9}, CellLabel-> - "Out[385]=",ExpressionUUID->"9dfb51ec-f6bd-9540-91f7-9d4800c6c680"] + "Out[138]=",ExpressionUUID->"1fca7357-9fe5-4354-aed4-27bd046160fe"] }, Open ]], Cell[CellGroupData[{ @@ -7318,95 +13284,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:eJwV1Xk4VN8fB/AhJFuWkERZSyjN2Pk6H0tkTYrsMeZeJSlLviNSijZLlgoV +KpRkyZY1v4pEKb5RSSkKlQwzshTR78wf97nP6zn3fM77c+5zz1WiH3IheCkU +Cgtf3Hvoy80bartfmqmZdHdMn2chs4kCPbpVCfIY0XnP9WCe/kVVqyakWr1z +5Qy2M+OFgAjtCbpcSCW5rmAeb+G36kTW93s+cX2ubfXD48X/oewh3ZhZ7Pru +0Nw/1NcoRMnNZA57rP9ZTFRjHzoZYqDwC3vNiIrXrOUHJPawT+k3tv1kjFF4 +5ye0QsTYdh67+c+YMLN4CFFtvDIWsN/EyUbfD/mCbjNMKYvYEwJWY9PUEXTG +beDCErZA0mEP2two2iVqZkFJZCFFiZz20MZvyIPpK8uL7SQ/e2vCchy5Kn3U +EMAmryvLaAtOIJrBP4GC2MfVdiQc6JxElAqvp0LYfbK9WyOKOYgR+mZyJTbD +M2h/RtIUkkig1klis69RblSG/ERLlx3zpbEFlbXFOdQZtNz84ZA89kVGi424 +9Cy6dFVWbx32+tsex7fMzSLtKO27ytiGWqcnDjb+Qhzaxb8a2Pv0P3WOWf5B +Wpm2tsbY08wjfELqi2h2WVqlGfaJRmFTDcElRDy4ZGaJnQWGdwM7/yLk/6bZ +gZuvsN0qrJgHsrdu8fPHLm7LGIyT54XWbq9PJDfvV9+YtCRe8NGxigvGjtk0 +U3UvZBkwdtpoM7l5y5VUJqn8EFkprp6G3d893ryUzw+ds6saM7n5p2o9xaQF +4IJcT1gudomuU7r2nADsY0fblWC31h/lCW4UhNgdzCsd2DMtPZ++WYqAU3d/ +k1ASC0k6iIhHN4tARTphsgpbp9cKRI1EgbPU8FkBO2i45vrWzWJQJNV6dyv2 +Yd5OnX9ExMHgqMUGL+wR5TJOwqwEdCTGt9RgT5PPVnTRJEGBiHv5CJv37qjS +6lBJ6BIy532JvZ62zqX4hySMnBQYHsX2tEytfDkoBT26V1LXJLNQV0BYuOxz +abBc8k0+h/3xdkqin6AMuGyxUM3CHv9RnH9nmwzciPj45Ra2UMSXHpOHMrAr +GQ20YlvF79b1q5GFNW2pdbwpLNRQoD9TlCcHDxq6xE9jF4zMRxpHKMAbV3+L +uxdYaLvrmY/hpQqwI4CT9wB7vFXKunRUAc72ja/vxtYt0JJe76EIxkIqyTPY +rXTfKn6zdeBT/K+YRSoLTU0O/vvt1HpI1JOpHsKWOmhVXeWoDHPvTiSYpLPQ +aIHQPucgZQh/Mevkgl33oVuedVoZ7KYfmOzH9nbwOaX+UBnW65sez8Qu0Ix0 +yaaqgFf1x9IZbN2x2+xYWVXYZfqtqC6DhXYHCmvbDalB88CGlR6XWAhFulL3 +LKqBV/NSbTj2poQ8A4acOqz+VXQyBZuST7OI3akO4t7hx1qxSz967al8pA5/ +PjwWpF7G36dbSdyamxugb4vfEalMnM/K8c0YXQPqdcZyJ7NYKH9X5vu5WA1Y +pyRzQiybhVLoQ4N8VzVgm+jUSW1sxokjPxR7NODoqhrWAWyJphzKLstN8Ejf +es8YdhBtYlOjiiZ4U09Fsa6wkLzyheOJw1rwT+4ljkgOCzWdn9b4zasN8pZS +PDRs758evaSSNug/4jP0wM5tVdWw8NWGIg/TtbewlQMbXv16qw13lr94YJ6L ++y0ZUSOfbwb74tGAE3kspCCvSK730IEH2Vpb5G+ykFZhhMgCogKyjXZtu81C +dMapGW0nKvw3voHyEztLJf2jnzcV/pq0dq4rYqFlN8vvtTGp4FrX+jwKuz93 +bHd6BRVi31b6bbmDz9MsvxwNFRqcOVoyfL0Yv99Eh83uArowRZHYnlPKQjfC +VJ1rOvVgPu7lyoUqFuqORAbxhUYgvVPCM62FhZR8Xzv5BP8DhY03Xuq/ZiHi +7/0yhSiA8039Q3VfWUj2R91yWboFvDhTLvhrkYUiaKYf0jdZwVYJF+36VROI +zvrTLjW2DYJNNtzt1ZpApRbhy/O6bGB1j3Qta/sEKpgOelRy0Rb+5zuuNsyY +QL/MV79oPW4Pei4dZ3kTJtAAZRlnyN8Rrj3hibe6NYFC1h5KjVPZAb2dshP1 +bROobH/7w0sJzpD5Ve5UwI8JdPSn3Jzm/p1Q/Slj/oPYJJqxs3Z7utcFB84r +Pqs/iYy80sxHdu4C6vMY2iXfSfRKLieolbYblox0Up7FT6I1t041FW10hfma +jj8LZZOobnCTg5OoG3grHfky9WYSKfayAyNZbiBidMY1fmkS0S6lleQP7gGV +KUpp/yo2yuH7uTm9xR20mi2+i2iw0X3zLf0J9R6QWlAbOGzGRlkG5yX+FHuC +SdvRcp3dbNT1vvA0LckL5r1g35tANqpxvKZ6+IQ3UJgFJl0xbMQ5uIsSwvCB +2sHyIwsX2GjGWmPfhKUvvBukhzvfZKMi1rtf4fp7wZjSLZRVw0buNwoDfET8 +4LN+S8WPNjaqqrTfu+yMHzA8eUW/9LGRkfyr3+d++8FG/yV61zc2UhkM7P9v +vz98XYjRSpxjo2HhAzuuffEHu4MHmo4IcFB3ilOAjSsdVNJq252kOOgiM0/4 +SDcdaHtrchfWcVBT89/fAbYB0Jc93yCryUErveEMrSEABGxr+nR1OWj9qqdd +a5sCwJu/NN8DW6fTcbVAcwBM2vPticV2MfW60/coAEzVWiKfYl9cG/n8WEcA +fADFK+56HLRm4O7K9r4AWCVFOxipz0GqvrJZ3nMBsPxlutZ1Qw4y8psoStBl +wBV+X9e7phx0K5sd7qTPgDsZ3yTbsVf1TJnJGjJg/Lty4zD2xLa53iITBlis +zXmu8A8Hn18Unk4LBogbBIynYIvNSXhI7mQARVhO86AZBw0n663IO8gAxZLc +JDngoJ1PDXoDDzGg8EbcVRp2M8U4TyeUAT81Oy46YmeHm+k9jmBAiPgx6zhs +Jw8b/5FoBjj+Nrr1Fbte1aNe8zwDvpspuN4z56CUxpj9dbcYwN+Y6r/VkoMO +UjONmEUM+GqTYbkd2+FOxQrDYgZ0H0kV34stlDl6p7aUAXvVww8kYSeEOY/d +r2bAJ9dC1VHsGA3VAzWP8X4wFPMvWXFQUObz4MqPDNCaaW8Z3sZBtmKjpmGD +DEgWyuT5jb0xgSJK/cwAhQz1TaLWHDQapldaMYLn258y0cP2d8pj3RtngPAH +vr3x2O784SHl8wwQhIbbijYcZBO+5nCJDAGH+t7qWm7noMd5p+3SVxNw3XbY +yg3btHNKlbmGAOuSKpP92Dpqz99ZKhKwrC9jIAVb7m205Xs1Aix2qk/1Yf8w +HpAR0iPgtCTFZ58tB13gvf4gcBcBO37v146ww/1vEclydCUgp3q/ZDx2vBcz +jLaHgILrMwMZ2Mxq5w1/PQlY2Xd3YxW2P8mTdplOQNsPMomNTXtGZzwJJSBu +eUciac9Bb9PUhFVSCbj81M4POXBQGRLd9y2NAJ4D7ib22PGs6dbSDAJUs6Qp +e7Cptq2xhpkENJ29Yh2CnUIJmHLMJYC9WPn0Krb1oevvmCUEVDtaZ09hKyic +1TcrI+Devbdii9jTzw5lLLtHwKLvipDljhx0Ux05plQRcF/c7rs89uLAwMP8 +BgI6PDb2WGJXO8gXvWwnQN7lavgF7MR5Xv6LzwiI+fjsZBY2vWjM36OTgHq/ +5Ogb2OJ8DfLDXQRE6LZrVGEHN7pf+P2GAGE+StRrbJVNlyNVRwh48v31kLQT +B82/PdbzfZQA5u0P5xSwuxMInfJvBESxg+TVsGOHdMeMxgn4myS/QMPuz+rx +2fGTgH8NG0ucsdOXS2w7ykMCnRXcl4DdNDXgFbGMhHt+Nv8lYX8dKA4L4Sfh +QL50WQa2abXVdfoKErYWn5e6gT3qx1ywkyCB9f1xcgO2uMM2yW1SJBSxN9x6 +iG1iIKmBpEl4YRx9sw07VbTEjSZHwnaRMetX3PGGTxXySiTwhL41+4ZNFpa0 +S6uQ8NMuJ5LFfT416tNKNRIcrjmkT3HXI6VE+TRIcGMSR/5wx6Vs9o3rkBB1 +KnRMbAcHNSxJHR+lkhATGmEuhT3yffDSoC6J/xfeMbLYxg+PtvQaksCZfp+z +Dns4uEzxAZAwq3P2wmZsMfdovVoL3H9kMT8V28hyu0OFFQndH8r26mGnyH2O +KtxOQm+O9/9MsOv4ylPz7HB+O/4nZthfJqNvZzuQoFGfUmaObdgm/TrZmYR1 +BRbaNtj0is8/zriQ4Hgu+LEtdvK1ct6Tu/F+8kWaOGB/DrPViXQnQbBc/Z0z +tqivjM1hTxJC/F4sunDr2X7xCfIm4Vixi4Ard/66Y4m+fiSkaf167M7NI2R3 +051OguaS7L+e3HozMvUuDBLir0qv9ObWG/rS5UCSwO5jn/fh1uu8N2q9j4T/ +Jd8Z8+Xmqz22CEEk2FxEm/249W/arTIJJmGoo9LVn1s/WVZTL4SE72LL/Onc ++sxh8y2H8XxrHecAbBFGhbtGGAlP9hirMLANdsQeUokgYa+mUj/XdGP70wqR +JPwpHY4gsJPUVufIMnG/XfE/ub4vPlIlcRTnO8HjRmIPLVQ8E47B/dR7XuNa +5GvsEH8sCdqHU9u41n9l/+vvcRLCbtzs5fr/DBECSg== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -7420,107 +13385,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:eJwV1Xk4VN8fB/AhJFuWkERZSyjN2Pk6H0tkTYrsMeZeJSlLviNSijZLlgoV +KpRkyZY1v4pEKb5RSSkKlQwzshTR78wf97nP6zn3fM77c+5zz1WiH3IheCkU +Cgtf3Hvoy80bartfmqmZdHdMn2chs4kCPbpVCfIY0XnP9WCe/kVVqyakWr1z +5Qy2M+OFgAjtCbpcSCW5rmAeb+G36kTW93s+cX2ubfXD48X/oewh3ZhZ7Pru +0Nw/1NcoRMnNZA57rP9ZTFRjHzoZYqDwC3vNiIrXrOUHJPawT+k3tv1kjFF4 +5ye0QsTYdh67+c+YMLN4CFFtvDIWsN/EyUbfD/mCbjNMKYvYEwJWY9PUEXTG +beDCErZA0mEP2two2iVqZkFJZCFFiZz20MZvyIPpK8uL7SQ/e2vCchy5Kn3U +EMAmryvLaAtOIJrBP4GC2MfVdiQc6JxElAqvp0LYfbK9WyOKOYgR+mZyJTbD +M2h/RtIUkkig1klis69RblSG/ERLlx3zpbEFlbXFOdQZtNz84ZA89kVGi424 +9Cy6dFVWbx32+tsex7fMzSLtKO27ytiGWqcnDjb+Qhzaxb8a2Pv0P3WOWf5B +Wpm2tsbY08wjfELqi2h2WVqlGfaJRmFTDcElRDy4ZGaJnQWGdwM7/yLk/6bZ +gZuvsN0qrJgHsrdu8fPHLm7LGIyT54XWbq9PJDfvV9+YtCRe8NGxigvGjtk0 +U3UvZBkwdtpoM7l5y5VUJqn8EFkprp6G3d893ryUzw+ds6saM7n5p2o9xaQF +4IJcT1gudomuU7r2nADsY0fblWC31h/lCW4UhNgdzCsd2DMtPZ++WYqAU3d/ +k1ASC0k6iIhHN4tARTphsgpbp9cKRI1EgbPU8FkBO2i45vrWzWJQJNV6dyv2 +Yd5OnX9ExMHgqMUGL+wR5TJOwqwEdCTGt9RgT5PPVnTRJEGBiHv5CJv37qjS +6lBJ6BIy532JvZ62zqX4hySMnBQYHsX2tEytfDkoBT26V1LXJLNQV0BYuOxz +abBc8k0+h/3xdkqin6AMuGyxUM3CHv9RnH9nmwzciPj45Ra2UMSXHpOHMrAr +GQ20YlvF79b1q5GFNW2pdbwpLNRQoD9TlCcHDxq6xE9jF4zMRxpHKMAbV3+L +uxdYaLvrmY/hpQqwI4CT9wB7vFXKunRUAc72ja/vxtYt0JJe76EIxkIqyTPY +rXTfKn6zdeBT/K+YRSoLTU0O/vvt1HpI1JOpHsKWOmhVXeWoDHPvTiSYpLPQ +aIHQPucgZQh/Mevkgl33oVuedVoZ7KYfmOzH9nbwOaX+UBnW65sez8Qu0Ix0 +yaaqgFf1x9IZbN2x2+xYWVXYZfqtqC6DhXYHCmvbDalB88CGlR6XWAhFulL3 +LKqBV/NSbTj2poQ8A4acOqz+VXQyBZuST7OI3akO4t7hx1qxSz967al8pA5/ +PjwWpF7G36dbSdyamxugb4vfEalMnM/K8c0YXQPqdcZyJ7NYKH9X5vu5WA1Y +pyRzQiybhVLoQ4N8VzVgm+jUSW1sxokjPxR7NODoqhrWAWyJphzKLstN8Ejf +es8YdhBtYlOjiiZ4U09Fsa6wkLzyheOJw1rwT+4ljkgOCzWdn9b4zasN8pZS +PDRs758evaSSNug/4jP0wM5tVdWw8NWGIg/TtbewlQMbXv16qw13lr94YJ6L ++y0ZUSOfbwb74tGAE3kspCCvSK730IEH2Vpb5G+ykFZhhMgCogKyjXZtu81C +dMapGW0nKvw3voHyEztLJf2jnzcV/pq0dq4rYqFlN8vvtTGp4FrX+jwKuz93 +bHd6BRVi31b6bbmDz9MsvxwNFRqcOVoyfL0Yv99Eh83uArowRZHYnlPKQjfC +VJ1rOvVgPu7lyoUqFuqORAbxhUYgvVPCM62FhZR8Xzv5BP8DhY03Xuq/ZiHi +7/0yhSiA8039Q3VfWUj2R91yWboFvDhTLvhrkYUiaKYf0jdZwVYJF+36VROI +zvrTLjW2DYJNNtzt1ZpApRbhy/O6bGB1j3Qta/sEKpgOelRy0Rb+5zuuNsyY +QL/MV79oPW4Pei4dZ3kTJtAAZRlnyN8Rrj3hibe6NYFC1h5KjVPZAb2dshP1 +bROobH/7w0sJzpD5Ve5UwI8JdPSn3Jzm/p1Q/Slj/oPYJJqxs3Z7utcFB84r +Pqs/iYy80sxHdu4C6vMY2iXfSfRKLieolbYblox0Up7FT6I1t041FW10hfma +jj8LZZOobnCTg5OoG3grHfky9WYSKfayAyNZbiBidMY1fmkS0S6lleQP7gGV +KUpp/yo2yuH7uTm9xR20mi2+i2iw0X3zLf0J9R6QWlAbOGzGRlkG5yX+FHuC +SdvRcp3dbNT1vvA0LckL5r1g35tANqpxvKZ6+IQ3UJgFJl0xbMQ5uIsSwvCB +2sHyIwsX2GjGWmPfhKUvvBukhzvfZKMi1rtf4fp7wZjSLZRVw0buNwoDfET8 +4LN+S8WPNjaqqrTfu+yMHzA8eUW/9LGRkfyr3+d++8FG/yV61zc2UhkM7P9v +vz98XYjRSpxjo2HhAzuuffEHu4MHmo4IcFB3ilOAjSsdVNJq252kOOgiM0/4 +SDcdaHtrchfWcVBT89/fAbYB0Jc93yCryUErveEMrSEABGxr+nR1OWj9qqdd +a5sCwJu/NN8DW6fTcbVAcwBM2vPticV2MfW60/coAEzVWiKfYl9cG/n8WEcA +fADFK+56HLRm4O7K9r4AWCVFOxipz0GqvrJZ3nMBsPxlutZ1Qw4y8psoStBl +wBV+X9e7phx0K5sd7qTPgDsZ3yTbsVf1TJnJGjJg/Lty4zD2xLa53iITBlis +zXmu8A8Hn18Unk4LBogbBIynYIvNSXhI7mQARVhO86AZBw0n663IO8gAxZLc +JDngoJ1PDXoDDzGg8EbcVRp2M8U4TyeUAT81Oy46YmeHm+k9jmBAiPgx6zhs +Jw8b/5FoBjj+Nrr1Fbte1aNe8zwDvpspuN4z56CUxpj9dbcYwN+Y6r/VkoMO +UjONmEUM+GqTYbkd2+FOxQrDYgZ0H0kV34stlDl6p7aUAXvVww8kYSeEOY/d +r2bAJ9dC1VHsGA3VAzWP8X4wFPMvWXFQUObz4MqPDNCaaW8Z3sZBtmKjpmGD +DEgWyuT5jb0xgSJK/cwAhQz1TaLWHDQapldaMYLn258y0cP2d8pj3RtngPAH +vr3x2O784SHl8wwQhIbbijYcZBO+5nCJDAGH+t7qWm7noMd5p+3SVxNw3XbY +yg3btHNKlbmGAOuSKpP92Dpqz99ZKhKwrC9jIAVb7m205Xs1Aix2qk/1Yf8w +HpAR0iPgtCTFZ58tB13gvf4gcBcBO37v146ww/1vEclydCUgp3q/ZDx2vBcz +jLaHgILrMwMZ2Mxq5w1/PQlY2Xd3YxW2P8mTdplOQNsPMomNTXtGZzwJJSBu +eUciac9Bb9PUhFVSCbj81M4POXBQGRLd9y2NAJ4D7ib22PGs6dbSDAJUs6Qp +e7Cptq2xhpkENJ29Yh2CnUIJmHLMJYC9WPn0Krb1oevvmCUEVDtaZ09hKyic +1TcrI+Devbdii9jTzw5lLLtHwKLvipDljhx0Ux05plQRcF/c7rs89uLAwMP8 +BgI6PDb2WGJXO8gXvWwnQN7lavgF7MR5Xv6LzwiI+fjsZBY2vWjM36OTgHq/ +5Ogb2OJ8DfLDXQRE6LZrVGEHN7pf+P2GAGE+StRrbJVNlyNVRwh48v31kLQT +B82/PdbzfZQA5u0P5xSwuxMInfJvBESxg+TVsGOHdMeMxgn4myS/QMPuz+rx +2fGTgH8NG0ucsdOXS2w7ykMCnRXcl4DdNDXgFbGMhHt+Nv8lYX8dKA4L4Sfh +QL50WQa2abXVdfoKErYWn5e6gT3qx1ywkyCB9f1xcgO2uMM2yW1SJBSxN9x6 +iG1iIKmBpEl4YRx9sw07VbTEjSZHwnaRMetX3PGGTxXySiTwhL41+4ZNFpa0 +S6uQ8NMuJ5LFfT416tNKNRIcrjmkT3HXI6VE+TRIcGMSR/5wx6Vs9o3rkBB1 +KnRMbAcHNSxJHR+lkhATGmEuhT3yffDSoC6J/xfeMbLYxg+PtvQaksCZfp+z +Dns4uEzxAZAwq3P2wmZsMfdovVoL3H9kMT8V28hyu0OFFQndH8r26mGnyH2O +KtxOQm+O9/9MsOv4ylPz7HB+O/4nZthfJqNvZzuQoFGfUmaObdgm/TrZmYR1 +BRbaNtj0is8/zriQ4Hgu+LEtdvK1ct6Tu/F+8kWaOGB/DrPViXQnQbBc/Z0z +tqivjM1hTxJC/F4sunDr2X7xCfIm4Vixi4Ard/66Y4m+fiSkaf167M7NI2R3 +051OguaS7L+e3HozMvUuDBLir0qv9ObWG/rS5UCSwO5jn/fh1uu8N2q9j4T/ +Jd8Z8+Xmqz22CEEk2FxEm/249W/arTIJJmGoo9LVn1s/WVZTL4SE72LL/Onc ++sxh8y2H8XxrHecAbBFGhbtGGAlP9hirMLANdsQeUokgYa+mUj/XdGP70wqR +JPwpHY4gsJPUVufIMnG/XfE/ub4vPlIlcRTnO8HjRmIPLVQ8E47B/dR7XuNa +5GvsEH8sCdqHU9u41n9l/+vvcRLCbtzs5fr/DBECSg== "]]}, "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.9232124272983567, 1.081885176283404}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9232124272983587}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.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 +13495,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.9232124272983567, 1.081885176283404}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5012481131960849}, + "AxesOrigin" -> {0, 0.9232124272983587}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 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 +13522,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:eJwV1Xk4VN8fB/AhJFuWkERZSyjN2Pk6H0tkTYrsMeZeJSlLviNSijZLlgoV +KpRkyZY1v4pEKb5RSSkKlQwzshTR78wf97nP6zn3fM77c+5zz1WiH3IheCkU +Cgtf3Hvoy80bartfmqmZdHdMn2chs4kCPbpVCfIY0XnP9WCe/kVVqyakWr1z +5Qy2M+OFgAjtCbpcSCW5rmAeb+G36kTW93s+cX2ubfXD48X/oewh3ZhZ7Pru +0Nw/1NcoRMnNZA57rP9ZTFRjHzoZYqDwC3vNiIrXrOUHJPawT+k3tv1kjFF4 +5ye0QsTYdh67+c+YMLN4CFFtvDIWsN/EyUbfD/mCbjNMKYvYEwJWY9PUEXTG +beDCErZA0mEP2two2iVqZkFJZCFFiZz20MZvyIPpK8uL7SQ/e2vCchy5Kn3U +EMAmryvLaAtOIJrBP4GC2MfVdiQc6JxElAqvp0LYfbK9WyOKOYgR+mZyJTbD +M2h/RtIUkkig1klis69RblSG/ERLlx3zpbEFlbXFOdQZtNz84ZA89kVGi424 +9Cy6dFVWbx32+tsex7fMzSLtKO27ytiGWqcnDjb+Qhzaxb8a2Pv0P3WOWf5B +Wpm2tsbY08wjfELqi2h2WVqlGfaJRmFTDcElRDy4ZGaJnQWGdwM7/yLk/6bZ +gZuvsN0qrJgHsrdu8fPHLm7LGIyT54XWbq9PJDfvV9+YtCRe8NGxigvGjtk0 +U3UvZBkwdtpoM7l5y5VUJqn8EFkprp6G3d893ryUzw+ds6saM7n5p2o9xaQF +4IJcT1gudomuU7r2nADsY0fblWC31h/lCW4UhNgdzCsd2DMtPZ++WYqAU3d/ +k1ASC0k6iIhHN4tARTphsgpbp9cKRI1EgbPU8FkBO2i45vrWzWJQJNV6dyv2 +Yd5OnX9ExMHgqMUGL+wR5TJOwqwEdCTGt9RgT5PPVnTRJEGBiHv5CJv37qjS +6lBJ6BIy532JvZ62zqX4hySMnBQYHsX2tEytfDkoBT26V1LXJLNQV0BYuOxz +abBc8k0+h/3xdkqin6AMuGyxUM3CHv9RnH9nmwzciPj45Ra2UMSXHpOHMrAr +GQ20YlvF79b1q5GFNW2pdbwpLNRQoD9TlCcHDxq6xE9jF4zMRxpHKMAbV3+L +uxdYaLvrmY/hpQqwI4CT9wB7vFXKunRUAc72ja/vxtYt0JJe76EIxkIqyTPY +rXTfKn6zdeBT/K+YRSoLTU0O/vvt1HpI1JOpHsKWOmhVXeWoDHPvTiSYpLPQ +aIHQPucgZQh/Mevkgl33oVuedVoZ7KYfmOzH9nbwOaX+UBnW65sez8Qu0Ix0 +yaaqgFf1x9IZbN2x2+xYWVXYZfqtqC6DhXYHCmvbDalB88CGlR6XWAhFulL3 +LKqBV/NSbTj2poQ8A4acOqz+VXQyBZuST7OI3akO4t7hx1qxSz967al8pA5/ +PjwWpF7G36dbSdyamxugb4vfEalMnM/K8c0YXQPqdcZyJ7NYKH9X5vu5WA1Y +pyRzQiybhVLoQ4N8VzVgm+jUSW1sxokjPxR7NODoqhrWAWyJphzKLstN8Ejf +es8YdhBtYlOjiiZ4U09Fsa6wkLzyheOJw1rwT+4ljkgOCzWdn9b4zasN8pZS +PDRs758evaSSNug/4jP0wM5tVdWw8NWGIg/TtbewlQMbXv16qw13lr94YJ6L ++y0ZUSOfbwb74tGAE3kspCCvSK730IEH2Vpb5G+ykFZhhMgCogKyjXZtu81C +dMapGW0nKvw3voHyEztLJf2jnzcV/pq0dq4rYqFlN8vvtTGp4FrX+jwKuz93 +bHd6BRVi31b6bbmDz9MsvxwNFRqcOVoyfL0Yv99Eh83uArowRZHYnlPKQjfC +VJ1rOvVgPu7lyoUqFuqORAbxhUYgvVPCM62FhZR8Xzv5BP8DhY03Xuq/ZiHi +7/0yhSiA8039Q3VfWUj2R91yWboFvDhTLvhrkYUiaKYf0jdZwVYJF+36VROI +zvrTLjW2DYJNNtzt1ZpApRbhy/O6bGB1j3Qta/sEKpgOelRy0Rb+5zuuNsyY +QL/MV79oPW4Pei4dZ3kTJtAAZRlnyN8Rrj3hibe6NYFC1h5KjVPZAb2dshP1 +bROobH/7w0sJzpD5Ve5UwI8JdPSn3Jzm/p1Q/Slj/oPYJJqxs3Z7utcFB84r +Pqs/iYy80sxHdu4C6vMY2iXfSfRKLieolbYblox0Up7FT6I1t041FW10hfma +jj8LZZOobnCTg5OoG3grHfky9WYSKfayAyNZbiBidMY1fmkS0S6lleQP7gGV +KUpp/yo2yuH7uTm9xR20mi2+i2iw0X3zLf0J9R6QWlAbOGzGRlkG5yX+FHuC +SdvRcp3dbNT1vvA0LckL5r1g35tANqpxvKZ6+IQ3UJgFJl0xbMQ5uIsSwvCB +2sHyIwsX2GjGWmPfhKUvvBukhzvfZKMi1rtf4fp7wZjSLZRVw0buNwoDfET8 +4LN+S8WPNjaqqrTfu+yMHzA8eUW/9LGRkfyr3+d++8FG/yV61zc2UhkM7P9v +vz98XYjRSpxjo2HhAzuuffEHu4MHmo4IcFB3ilOAjSsdVNJq252kOOgiM0/4 +SDcdaHtrchfWcVBT89/fAbYB0Jc93yCryUErveEMrSEABGxr+nR1OWj9qqdd +a5sCwJu/NN8DW6fTcbVAcwBM2vPticV2MfW60/coAEzVWiKfYl9cG/n8WEcA +fADFK+56HLRm4O7K9r4AWCVFOxipz0GqvrJZ3nMBsPxlutZ1Qw4y8psoStBl +wBV+X9e7phx0K5sd7qTPgDsZ3yTbsVf1TJnJGjJg/Lty4zD2xLa53iITBlis +zXmu8A8Hn18Unk4LBogbBIynYIvNSXhI7mQARVhO86AZBw0n663IO8gAxZLc +JDngoJ1PDXoDDzGg8EbcVRp2M8U4TyeUAT81Oy46YmeHm+k9jmBAiPgx6zhs +Jw8b/5FoBjj+Nrr1Fbte1aNe8zwDvpspuN4z56CUxpj9dbcYwN+Y6r/VkoMO +UjONmEUM+GqTYbkd2+FOxQrDYgZ0H0kV34stlDl6p7aUAXvVww8kYSeEOY/d +r2bAJ9dC1VHsGA3VAzWP8X4wFPMvWXFQUObz4MqPDNCaaW8Z3sZBtmKjpmGD +DEgWyuT5jb0xgSJK/cwAhQz1TaLWHDQapldaMYLn258y0cP2d8pj3RtngPAH +vr3x2O784SHl8wwQhIbbijYcZBO+5nCJDAGH+t7qWm7noMd5p+3SVxNw3XbY +yg3btHNKlbmGAOuSKpP92Dpqz99ZKhKwrC9jIAVb7m205Xs1Aix2qk/1Yf8w +HpAR0iPgtCTFZ58tB13gvf4gcBcBO37v146ww/1vEclydCUgp3q/ZDx2vBcz +jLaHgILrMwMZ2Mxq5w1/PQlY2Xd3YxW2P8mTdplOQNsPMomNTXtGZzwJJSBu +eUciac9Bb9PUhFVSCbj81M4POXBQGRLd9y2NAJ4D7ib22PGs6dbSDAJUs6Qp +e7Cptq2xhpkENJ29Yh2CnUIJmHLMJYC9WPn0Krb1oevvmCUEVDtaZ09hKyic +1TcrI+Devbdii9jTzw5lLLtHwKLvipDljhx0Ux05plQRcF/c7rs89uLAwMP8 +BgI6PDb2WGJXO8gXvWwnQN7lavgF7MR5Xv6LzwiI+fjsZBY2vWjM36OTgHq/ +5Ogb2OJ8DfLDXQRE6LZrVGEHN7pf+P2GAGE+StRrbJVNlyNVRwh48v31kLQT +B82/PdbzfZQA5u0P5xSwuxMInfJvBESxg+TVsGOHdMeMxgn4myS/QMPuz+rx +2fGTgH8NG0ucsdOXS2w7ykMCnRXcl4DdNDXgFbGMhHt+Nv8lYX8dKA4L4Sfh +QL50WQa2abXVdfoKErYWn5e6gT3qx1ywkyCB9f1xcgO2uMM2yW1SJBSxN9x6 +iG1iIKmBpEl4YRx9sw07VbTEjSZHwnaRMetX3PGGTxXySiTwhL41+4ZNFpa0 +S6uQ8NMuJ5LFfT416tNKNRIcrjmkT3HXI6VE+TRIcGMSR/5wx6Vs9o3rkBB1 +KnRMbAcHNSxJHR+lkhATGmEuhT3yffDSoC6J/xfeMbLYxg+PtvQaksCZfp+z +Dns4uEzxAZAwq3P2wmZsMfdovVoL3H9kMT8V28hyu0OFFQndH8r26mGnyH2O +KtxOQm+O9/9MsOv4ylPz7HB+O/4nZthfJqNvZzuQoFGfUmaObdgm/TrZmYR1 +BRbaNtj0is8/zriQ4Hgu+LEtdvK1ct6Tu/F+8kWaOGB/DrPViXQnQbBc/Z0z +tqivjM1hTxJC/F4sunDr2X7xCfIm4Vixi4Ard/66Y4m+fiSkaf167M7NI2R3 +051OguaS7L+e3HozMvUuDBLir0qv9ObWG/rS5UCSwO5jn/fh1uu8N2q9j4T/ +Jd8Z8+Xmqz22CEEk2FxEm/249W/arTIJJmGoo9LVn1s/WVZTL4SE72LL/Onc ++sxh8y2H8XxrHecAbBFGhbtGGAlP9hirMLANdsQeUokgYa+mUj/XdGP70wqR +JPwpHY4gsJPUVufIMnG/XfE/ub4vPlIlcRTnO8HjRmIPLVQ8E47B/dR7XuNa +5GvsEH8sCdqHU9u41n9l/+vvcRLCbtzs5fr/DBECSg== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5012481131960838, 1.8440472181603567`}}, + "PlotRange" -> {{0, 180}, {0.9232124272983567, 1.081885176283404}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5012481131960849}, + "AxesOrigin" -> {0, 0.9232124272983587}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 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 +13629,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.9232124272983587}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -7696,7 +13658,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.9232124272983567, 1.081885176283404}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -7704,9 +13667,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.994015280714343*^9}, CellLabel-> - "Out[386]=",ExpressionUUID->"e400bdb6-95ee-464e-9e4c-d5d7da48485f"] + "Out[139]=",ExpressionUUID->"3d7c9962-e672-48a9-bd3c-fb2b4905f495"] }, Open ]], Cell[CellGroupData[{ @@ -7721,30 +13684,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[{"-", @@ -7769,156 +13735,161 @@ 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[\\\"4.794467363210692`*^-272\\\", \ +\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 69, 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913426299467087`*^9, 3.9940152808424664`*^9}, CellLabel-> "During evaluation of \ -In[387]:=",ExpressionUUID->"1c59fae3-3f74-0144-b936-915cf372347d"], +In[140]:=",ExpressionUUID->"43bb0a80-2e29-4ce2-b0c5-e50f348e7be7"], 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}, + "\"\\!\\(\\*FractionBox[\\\"5.7646855456476745`*^-285\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 70, 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913426299467087`*^9, 3.994015280850708*^9}, CellLabel-> "During evaluation of \ -In[387]:=",ExpressionUUID->"c058b3d2-ecc0-7348-bdec-143a71e7f77c"], +In[140]:=",ExpressionUUID->"8b5d977c-e97b-44fa-b1f7-49ecfb6bfd50"], 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}, + "\"\\!\\(\\*FractionBox[\\\"6.931239055915724`*^-298\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 71, 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913426299467087`*^9, 3.994015280858653*^9}, CellLabel-> "During evaluation of \ -In[387]:=",ExpressionUUID->"049ee41e-a5fd-7e46-9ca5-37402fcadc74"], +In[140]:=",ExpressionUUID->"ddb34712-6f05-44f0-ba7c-7acad657cb9a"], 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, 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913426299467087`*^9, 3.9940152808670187`*^9}, CellLabel-> "During evaluation of \ -In[387]:=",ExpressionUUID->"5bf93938-89e6-8d49-a495-6173a8c36739"], +In[140]:=",ExpressionUUID->"0ec7715e-6706-4388-a978-e4bc1b9a7918"], 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:eJwV13c8lf0bB3BPSqnIiETWce5z7JWRcVwXiUhLKi2U0SAlOockR4+GQh48 +JdkhzrkrZKdJhQZKWaWhaaXH1vD7/v66X+/Xvb/3dX2+31t91wFX3xkiIiKz +/xIR+f92rLuhjnk21ybb+bBGaYqZTWuGQpht+3GIHltRubV6IaBc0y6F9kRo +8PKep1vNBO46QZtoew6M/nkRvaDaBKQHFyVOtpVAUp15VH+VPbytWXNgpO0+ +XNNaMX2qyg0cmL1vfrQ9h4yekGfilT4w2Wb+71DbBxgbEvmjVBICtcuv5Lbk +DIPT7IfsyMMnYMnbqs+7dH9DWcifZrOcc7AwwFMwe7koUtcebfMUJEOikcPN +NRvn4PKY4vLHlRehI8Xw7g8pCbyozUuzMc2As7mRTTMWS+MPVdmOgV3ZsCi5 +JyYpXRaDDt+WNzh8GU65Odk8H5ND3uAChqVFHgRbZHs2HFfA/vrWuJM/8sH+ ++9SRwB5FnFOoNGy9rQDCViZr3+tXRNd1Vf2+XgVwLVuvU3ZMETdveDFw1rcA +FNy8LKrmKOEtA9NZTQcKoL/ywbiovhKWL3wbaRRdAEnHE0IuhirhXM9lXrvp +Avggxwqsk1iCs/QfPUqeKoAo6/U7FZcpo/Dbvd9f4gphpUfGf+Z2yqh3tJBf +lFgIkvy+vze6KGMd/0rQ4QuFkFZ7Ij/BSxm/ys5JH8kqhErn6j6xGGV0EwbJ +1t8ohCF3De5whzKWWq10rW0vBI/Do2eehKuguErfG3E1AVheu1h67I4qGklv +Fmu+LAD7tme/B+tVMXaptt/BKwJYIzLT0fO5KopkllyWEArA2zWwAz6pYrfU +qwqbEgE4hKtH8mepoYaLrn34XQEcVB27bKujhjpFpgM7XgugbnfmQC1XDT/7 +K2U3SAvB6ZeFzNFwNUxdFFEzS04IzxJazUz4ash6urrcRkEIHVXi/NwYNTzj +Gr7iiooQBueFyJxIU8O0nHcvXHWEoFC00tzhvhq+h4R7svZCCJj4wa+XUMfR +rPknOMFCsAzyk/8so473DDz/deUKYU5vp1BUQR3X+Ub99A4TQl5X7SsbhjrO +Mf/YEB4phO7b/+qWmamj+VulkMizQlh7wqI921MdLzTTmm05QjCWiTIIL1bH +Lbfs4hueCUHk7GhdSrk6pvN21OxtIc8vum9r+U11XNxo6yjWKgT/UdcTPx6o +43GPIyEmHULIbWd27e5Uxzfq2018e4Qgn1l/0k2UgXMLvsYojAthUkeqW28j +A4/eEy+tV6JhLF0xaulWBua2N/X2KtMwsoBiWngSpzQUiqvRMDhssc9+LwOv +YsU9ayYNH256j22NYODjPCvvMF0aGldVSJ7OYyCqs2+5WNPw6Na94jgBA/sT +K7LNbWioM3jilnSdgY0Mx4WqSMNt2fepGVUMVJMezO1ZTkNJ11x22VMG/qlw +ily+ioZUfw/4MMrAraOdQR5baLjwZs+HL1MMLDgx7iuzjYbktcEnBqbJ+fPO +DN7fTkP80tOPJ8Q10OHmg9uLvWg4/rN48wIVDczMvLo7w48G/7OzDlo7aGCS +rZTNzGAarIV01vnzGvhFba/pihgautSEmSsuaeC6kokc7hkajpwvzBjJ1ECr +6kGNvLM0VETlp7kWkv3+JTsn42gwds9KkazRwD4Hw/ZjiTRozUpOOPleA/tP +rF7wJ5WG+iOJ50w/a+C2HeGfRNJo8BtKiP/Yq4HK5a9eiqTTkNsVF2s3ooGb +utrEJjJoUCs5dfqPGBMdFP3La3NokPcM53N1majqF1vUXEhDWWtYJGXExNZs +jmeegAY359BjraZMXNrgbsAT0pBoevioMTCxrFRoKnOVBon5B0IH1zNxsH3k +C1VEAx21n5e+iYkqOhrXe4idx/25LtuYWJgXfSmjmIbTH/aECHzI8XLPPs27 +QcPMql0H/XhM5B+VXFNXRsNl/Z0H5I4ycdO/fi7+5TTY5XoG1vGZmGbRFryg +gobIc9sDGGeYWKH4G9ZW0jDlu2lPdxoTHbXXddHVNFzsctsdl83EbZEehpyb +NCxbv8HPOp+Jl/knSxqJudbrfFKvMzGRo4tvamj4IePstek+E0P8Nc69u01D +ewCjed8j8nzJrqd97tBw9+EURD5hol/d9NJPxAlHhKoFr5jYpHMs7/VdGkJb +/z5X08VE8+d5ARvu0eClv326+R0Th7ZOfH1IbPhh/tvJXiYKnFtEc+/ToGD9 +aY3kEBMDbpG8qaVB5Pyt24xRJq7VOvwzmLjJKTBj1TQT3ddteWlWR0NgcdOO +dFkKuaGfVvz7gIZN8wqeFitQqL1GuvIjsY0vn/NQmcJDBXlfDB+S77HYSPk7 +m0LZfa+i7hCPHBKPE9WjMIzXNfDXIxpeP3n/a5ExhV/dFBVtiWl+4mu0prB3 +YEl5GXFy5z6XjbYUXq5dze4jPmqyvGavA4Vz0xO3KdfT4BOvpHtsFYWf9lze +4EK86uvwpcR1FLbkLJMKJTa2ezLvykYKp13nJWYRK6blht/cSmG7xMuOB8Qz +xo72NXlSeH147dcvxL1rN2776EPhziKz22INNDwv1Hs8sZdCmXD77QzialEx +K4kDFD6SM621JM7Z0S1QD6FwydO64bXEMRXlimZhFP7gFQ3uJD4ofe6M8zEK +F/DKSg8Su/vvnvL4m8Lnpf84HCXGB7Av+DSFb3JF86KJNVUVOk/FUXh/eWNz +DLFU2JBTWiJ5f/m8xrPEE8/rq4oukPHRdks6Q/xON1vrQRqFQ3IpOieJ60+G +XezIpjB7xCj5GHHRu/Xig/kU6vv3PA0mTrHUDptBU1iZG9jhS8xPnvFNvpjC +EdfzFW7Euwc73XXKKWy7qrwXidesvFEPNylcFVw/qElslnN2mdtdCms/b3WS +JFb55V2w5wGFv5ovhg2R8RPbZK0Q0UhhSqQzv4l48PrC0/80UfiszthDSPxK +fGA8r5XCheMKC6OJ82+ltz3rprB+wc+5usTxi7iOPT0UOpqeXP2TfG9u0JqK +8a/k/g/0/B8Rr6Cmz6sNU+hjO2a5iVg3sk3MdILCfr5gUIF4Ycd1rtNvCg1b +svntpN4+xnptOjSbhes6T9itIQ7s1WUYzmehd0cZT5x43HFyYECKhe99NUfv +kfqdK5p4Yq8iC/UGDzzWJjYMqy310mOhpkvHeBfph+pX5/gqxix8mO4fFUW8 +3GS7y2szFn5piXRnEm/6PtKzGVn4Obf1x07SXxG+LNm1G1io+udFTw3pT7Ha +/7rnu7OwtFm+34U4Qe2OoHE7C09lGTt23vl/Pm62c/Bj4cfKKxP9pP8b18cE +ccJY2Hk+Ytt/JB/kbfqbdDJZePfujaoIkjdZlyovfbtMLG1o20PySGsyeveV +AhbeHwplORBblypPM0pYaJJiITGT5Je39lp9xQcsxOtzPb1I3hXJl8TO6WMh +K+Rq8SWSn5Yhx9wffmfhykCbfW00DbUtzszoERbOL/t6Vor4VWzPzenfLJTS +3CMRTvL41wy5vjEpNiaybZSNrtDg9J3n9MmMjdKfy2QYWTQsMVI5Oceajdcn +6DtqmaQeDtXd17FlY9Ub8YNLSP4nj0lZH1rFxvKu8u65ZL7o/l2oP+3JxvfK +dpJ1F2g4NP+17OIYNlr+KTxTEE+D/Zrj66zj2Zi3//xbHpmPFiVoxnkmsXHD +enVH+1gaamQPi+WnszHH7fv6VjK/iSlJThqXsPHBjriglmgyv2pht0sXG4eu +6N/AIzQE+H9WPPiOjTJ/1eS/D6UBrsZuTvrExhrzMzWRPFI/hh3NHd/ZOFH5 +1vVGCA36yw7V+s3URD8JO4eJQDI+DrkFfD1NLI6vYU/toqHfe05waaQm2m1o +//JxJXnfDPtbd6I1Ufj3JMPEkYbvHfzZj2M08diMBdX8FTT8t3by0vskTeyV +EhWRsSP1aNVbJ1mgiYPS58XkrEg+LXwiv7dZE3fNyu5KJ+uNxXXnqpXVtVA+ +/mvGPQmSZ9OPZ2qxtDB19k372/PIeFvOWWuio4VNFly/SnHSn0X8HmdTLexJ +qFTPm0UDMy1ofqiTFsYXTCR5/RaCYcgGj+dBWhjdlOPi1S8k/wuLZpy6r4Wf +smc6nKkXwrddjgVWj7TQQMvL1euhEGKzeWuGHmvhl8G3ziZ1Qnih0p665aUW +uv13Q/TVHSF4Lb64VPerFo5kxNEiFUIIk1TybZHQxi1bk1KHc4VAT6jUK23R +Rp/5zf0byXpQ5ikrvui7No5kvlnA0RfCn++GeY0j2ph04emFbWT92StjVfNx +UhuromWGeJpCuO++tldhpg7SN9XkBQwhBH/kOUQp6GD36d+bR+SF0Pqz/s96 +Wx28ZUIXqU8L4IK2/4HhRB2MW19Pf3kqgCWnr68zM9PF4oj8AS9fAaToWEjJ +7tbDc3vf22F8ITQq2poO/6OPUjdm+JjlFYDlkvsJBq8MUOJOpu/DpCsgKZoT +svO4IU5VHM2ROZEPKlGq1ltYRjhiFTPd55oH4tT2ctdHRshvV0vlKeeCPmfx +dd4OY/yWHjBkN5EDh7plap1FluI1+PaltDIbvg/HbnRKWYqOcUtZj85lgaPB +w1QnPROMEdm7veFdBtwetvo5/swEAzwnY6ljaRCoa9zZ4muKuH3525NuqcAZ +9GndIm6Gs002HbwsnQIrmAqrJXLM0Il3ecfreedBk38m9L65OXoqxXoI2Mmg +7Wtxh+o0x7jY3fsPmiWC7+090aVBy7BlwNajISoB7mS1+vyQs8DFzMIdkfFx +MFIwPW5QYYEXnd3ZWnvOgDclFE9dbYkLjl7Iunr9FPzQTjIrGbLEPsUEUfuJ +aKjM/fl+9LQVKtY0Bd3MOw5b7claUsUa91un/vRO4IPS/lNV+netMV3nbWHm +rAiQmxtQvHozB6OVKpT2nAuD3OURR4a2cNCve09yNT8MjCPilydtJw7xvSd7 +KAzWDBW9bN/JwcaIPsNOtzA4+Wp00juAg9KpT4wrFMNgIifS7kgUBy1iqqmi +K6HQaZX0Il/IQQ2F4taEhzzYczg3zekaB8N3HVleXsmDsWtlvv1FHJyactD5 +IOCBDKN93Kicg4IP/h6rz/Fg1RzlJbfucrDVe6dKkDsPalrzfV685CD/n9+e +/X1ccJas1OO2c3BVQFZEaDcX2h0bxhS6OBgQrD82t4ULI9V9pz3ecfDzwogh +u3Iu6GUbXv3Wy8Ffrwdb//C5UNNpy40d4ODu2ePJt4LJ9RZuAIMhDjKDH2Yd +9+OC36nDLSGjHOx/yUxWdSHXu3syddEEBwPZX3njNlw4PnXBu3qKg5cOdmW+ +NOKClEmh7o7fHCx2V5hbzeRCxv7q0elpDia4VpbmLuLC/wCDDapc "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -7932,115 +13903,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:eJwV13c8lf0bB3BPSqnIiETWce5z7JWRcVwXiUhLKi2U0SAlOockR4+GQh48 +JdkhzrkrZKdJhQZKWaWhaaXH1vD7/v66X+/Xvb/3dX2+31t91wFX3xkiIiKz +/xIR+f92rLuhjnk21ybb+bBGaYqZTWuGQpht+3GIHltRubV6IaBc0y6F9kRo +8PKep1vNBO46QZtoew6M/nkRvaDaBKQHFyVOtpVAUp15VH+VPbytWXNgpO0+ +XNNaMX2qyg0cmL1vfrQ9h4yekGfilT4w2Wb+71DbBxgbEvmjVBICtcuv5Lbk +DIPT7IfsyMMnYMnbqs+7dH9DWcifZrOcc7AwwFMwe7koUtcebfMUJEOikcPN +NRvn4PKY4vLHlRehI8Xw7g8pCbyozUuzMc2As7mRTTMWS+MPVdmOgV3ZsCi5 +JyYpXRaDDt+WNzh8GU65Odk8H5ND3uAChqVFHgRbZHs2HFfA/vrWuJM/8sH+ ++9SRwB5FnFOoNGy9rQDCViZr3+tXRNd1Vf2+XgVwLVuvU3ZMETdveDFw1rcA +FNy8LKrmKOEtA9NZTQcKoL/ywbiovhKWL3wbaRRdAEnHE0IuhirhXM9lXrvp +Avggxwqsk1iCs/QfPUqeKoAo6/U7FZcpo/Dbvd9f4gphpUfGf+Z2yqh3tJBf +lFgIkvy+vze6KGMd/0rQ4QuFkFZ7Ij/BSxm/ys5JH8kqhErn6j6xGGV0EwbJ +1t8ohCF3De5whzKWWq10rW0vBI/Do2eehKuguErfG3E1AVheu1h67I4qGklv +Fmu+LAD7tme/B+tVMXaptt/BKwJYIzLT0fO5KopkllyWEArA2zWwAz6pYrfU +qwqbEgE4hKtH8mepoYaLrn34XQEcVB27bKujhjpFpgM7XgugbnfmQC1XDT/7 +K2U3SAvB6ZeFzNFwNUxdFFEzS04IzxJazUz4ash6urrcRkEIHVXi/NwYNTzj +Gr7iiooQBueFyJxIU8O0nHcvXHWEoFC00tzhvhq+h4R7svZCCJj4wa+XUMfR +rPknOMFCsAzyk/8so473DDz/deUKYU5vp1BUQR3X+Ub99A4TQl5X7SsbhjrO +Mf/YEB4phO7b/+qWmamj+VulkMizQlh7wqI921MdLzTTmm05QjCWiTIIL1bH +Lbfs4hueCUHk7GhdSrk6pvN21OxtIc8vum9r+U11XNxo6yjWKgT/UdcTPx6o +43GPIyEmHULIbWd27e5Uxzfq2018e4Qgn1l/0k2UgXMLvsYojAthUkeqW28j +A4/eEy+tV6JhLF0xaulWBua2N/X2KtMwsoBiWngSpzQUiqvRMDhssc9+LwOv +YsU9ayYNH256j22NYODjPCvvMF0aGldVSJ7OYyCqs2+5WNPw6Na94jgBA/sT +K7LNbWioM3jilnSdgY0Mx4WqSMNt2fepGVUMVJMezO1ZTkNJ11x22VMG/qlw +ily+ioZUfw/4MMrAraOdQR5baLjwZs+HL1MMLDgx7iuzjYbktcEnBqbJ+fPO +DN7fTkP80tOPJ8Q10OHmg9uLvWg4/rN48wIVDczMvLo7w48G/7OzDlo7aGCS +rZTNzGAarIV01vnzGvhFba/pihgautSEmSsuaeC6kokc7hkajpwvzBjJ1ECr +6kGNvLM0VETlp7kWkv3+JTsn42gwds9KkazRwD4Hw/ZjiTRozUpOOPleA/tP +rF7wJ5WG+iOJ50w/a+C2HeGfRNJo8BtKiP/Yq4HK5a9eiqTTkNsVF2s3ooGb +utrEJjJoUCs5dfqPGBMdFP3La3NokPcM53N1majqF1vUXEhDWWtYJGXExNZs +jmeegAY359BjraZMXNrgbsAT0pBoevioMTCxrFRoKnOVBon5B0IH1zNxsH3k +C1VEAx21n5e+iYkqOhrXe4idx/25LtuYWJgXfSmjmIbTH/aECHzI8XLPPs27 +QcPMql0H/XhM5B+VXFNXRsNl/Z0H5I4ycdO/fi7+5TTY5XoG1vGZmGbRFryg +gobIc9sDGGeYWKH4G9ZW0jDlu2lPdxoTHbXXddHVNFzsctsdl83EbZEehpyb +NCxbv8HPOp+Jl/knSxqJudbrfFKvMzGRo4tvamj4IePstek+E0P8Nc69u01D +ewCjed8j8nzJrqd97tBw9+EURD5hol/d9NJPxAlHhKoFr5jYpHMs7/VdGkJb +/z5X08VE8+d5ARvu0eClv326+R0Th7ZOfH1IbPhh/tvJXiYKnFtEc+/ToGD9 +aY3kEBMDbpG8qaVB5Pyt24xRJq7VOvwzmLjJKTBj1TQT3ddteWlWR0NgcdOO +dFkKuaGfVvz7gIZN8wqeFitQqL1GuvIjsY0vn/NQmcJDBXlfDB+S77HYSPk7 +m0LZfa+i7hCPHBKPE9WjMIzXNfDXIxpeP3n/a5ExhV/dFBVtiWl+4mu0prB3 +YEl5GXFy5z6XjbYUXq5dze4jPmqyvGavA4Vz0xO3KdfT4BOvpHtsFYWf9lze +4EK86uvwpcR1FLbkLJMKJTa2ezLvykYKp13nJWYRK6blht/cSmG7xMuOB8Qz +xo72NXlSeH147dcvxL1rN2776EPhziKz22INNDwv1Hs8sZdCmXD77QzialEx +K4kDFD6SM621JM7Z0S1QD6FwydO64bXEMRXlimZhFP7gFQ3uJD4ofe6M8zEK +F/DKSg8Su/vvnvL4m8Lnpf84HCXGB7Av+DSFb3JF86KJNVUVOk/FUXh/eWNz +DLFU2JBTWiJ5f/m8xrPEE8/rq4oukPHRdks6Q/xON1vrQRqFQ3IpOieJ60+G +XezIpjB7xCj5GHHRu/Xig/kU6vv3PA0mTrHUDptBU1iZG9jhS8xPnvFNvpjC +EdfzFW7Euwc73XXKKWy7qrwXidesvFEPNylcFVw/qElslnN2mdtdCms/b3WS +JFb55V2w5wGFv5ovhg2R8RPbZK0Q0UhhSqQzv4l48PrC0/80UfiszthDSPxK +fGA8r5XCheMKC6OJ82+ltz3rprB+wc+5usTxi7iOPT0UOpqeXP2TfG9u0JqK +8a/k/g/0/B8Rr6Cmz6sNU+hjO2a5iVg3sk3MdILCfr5gUIF4Ycd1rtNvCg1b +svntpN4+xnptOjSbhes6T9itIQ7s1WUYzmehd0cZT5x43HFyYECKhe99NUfv +kfqdK5p4Yq8iC/UGDzzWJjYMqy310mOhpkvHeBfph+pX5/gqxix8mO4fFUW8 +3GS7y2szFn5piXRnEm/6PtKzGVn4Obf1x07SXxG+LNm1G1io+udFTw3pT7Ha +/7rnu7OwtFm+34U4Qe2OoHE7C09lGTt23vl/Pm62c/Bj4cfKKxP9pP8b18cE +ccJY2Hk+Ytt/JB/kbfqbdDJZePfujaoIkjdZlyovfbtMLG1o20PySGsyeveV +AhbeHwplORBblypPM0pYaJJiITGT5Je39lp9xQcsxOtzPb1I3hXJl8TO6WMh +K+Rq8SWSn5Yhx9wffmfhykCbfW00DbUtzszoERbOL/t6Vor4VWzPzenfLJTS +3CMRTvL41wy5vjEpNiaybZSNrtDg9J3n9MmMjdKfy2QYWTQsMVI5Oceajdcn +6DtqmaQeDtXd17FlY9Ub8YNLSP4nj0lZH1rFxvKu8u65ZL7o/l2oP+3JxvfK +dpJ1F2g4NP+17OIYNlr+KTxTEE+D/Zrj66zj2Zi3//xbHpmPFiVoxnkmsXHD +enVH+1gaamQPi+WnszHH7fv6VjK/iSlJThqXsPHBjriglmgyv2pht0sXG4eu +6N/AIzQE+H9WPPiOjTJ/1eS/D6UBrsZuTvrExhrzMzWRPFI/hh3NHd/ZOFH5 +1vVGCA36yw7V+s3URD8JO4eJQDI+DrkFfD1NLI6vYU/toqHfe05waaQm2m1o +//JxJXnfDPtbd6I1Ufj3JMPEkYbvHfzZj2M08diMBdX8FTT8t3by0vskTeyV +EhWRsSP1aNVbJ1mgiYPS58XkrEg+LXwiv7dZE3fNyu5KJ+uNxXXnqpXVtVA+ +/mvGPQmSZ9OPZ2qxtDB19k372/PIeFvOWWuio4VNFly/SnHSn0X8HmdTLexJ +qFTPm0UDMy1ofqiTFsYXTCR5/RaCYcgGj+dBWhjdlOPi1S8k/wuLZpy6r4Wf +smc6nKkXwrddjgVWj7TQQMvL1euhEGKzeWuGHmvhl8G3ziZ1Qnih0p665aUW +uv13Q/TVHSF4Lb64VPerFo5kxNEiFUIIk1TybZHQxi1bk1KHc4VAT6jUK23R +Rp/5zf0byXpQ5ikrvui7No5kvlnA0RfCn++GeY0j2ph04emFbWT92StjVfNx +UhuromWGeJpCuO++tldhpg7SN9XkBQwhBH/kOUQp6GD36d+bR+SF0Pqz/s96 +Wx28ZUIXqU8L4IK2/4HhRB2MW19Pf3kqgCWnr68zM9PF4oj8AS9fAaToWEjJ +7tbDc3vf22F8ITQq2poO/6OPUjdm+JjlFYDlkvsJBq8MUOJOpu/DpCsgKZoT +svO4IU5VHM2ROZEPKlGq1ltYRjhiFTPd55oH4tT2ctdHRshvV0vlKeeCPmfx +dd4OY/yWHjBkN5EDh7plap1FluI1+PaltDIbvg/HbnRKWYqOcUtZj85lgaPB +w1QnPROMEdm7veFdBtwetvo5/swEAzwnY6ljaRCoa9zZ4muKuH3525NuqcAZ +9GndIm6Gs002HbwsnQIrmAqrJXLM0Il3ecfreedBk38m9L65OXoqxXoI2Mmg +7Wtxh+o0x7jY3fsPmiWC7+090aVBy7BlwNajISoB7mS1+vyQs8DFzMIdkfFx +MFIwPW5QYYEXnd3ZWnvOgDclFE9dbYkLjl7Iunr9FPzQTjIrGbLEPsUEUfuJ +aKjM/fl+9LQVKtY0Bd3MOw5b7claUsUa91un/vRO4IPS/lNV+netMV3nbWHm +rAiQmxtQvHozB6OVKpT2nAuD3OURR4a2cNCve09yNT8MjCPilydtJw7xvSd7 +KAzWDBW9bN/JwcaIPsNOtzA4+Wp00juAg9KpT4wrFMNgIifS7kgUBy1iqqmi +K6HQaZX0Il/IQQ2F4taEhzzYczg3zekaB8N3HVleXsmDsWtlvv1FHJyactD5 +IOCBDKN93Kicg4IP/h6rz/Fg1RzlJbfucrDVe6dKkDsPalrzfV685CD/n9+e +/X1ccJas1OO2c3BVQFZEaDcX2h0bxhS6OBgQrD82t4ULI9V9pz3ecfDzwogh +u3Iu6GUbXv3Wy8Ffrwdb//C5UNNpy40d4ODu2ePJt4LJ9RZuAIMhDjKDH2Yd +9+OC36nDLSGjHOx/yUxWdSHXu3syddEEBwPZX3njNlw4PnXBu3qKg5cOdmW+ +NOKClEmh7o7fHCx2V5hbzeRCxv7q0elpDia4VpbmLuLC/wCDDapc "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "PlotRange" -> {{0, 30}, {0., 0.05622517441456167}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +14024,19 @@ ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "PlotRange" -> {{0, 30}, {0., 0.05622517441456167}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +14050,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:eJwV13c8lf0bB3BPSqnIiETWce5z7JWRcVwXiUhLKi2U0SAlOockR4+GQh48 +JdkhzrkrZKdJhQZKWaWhaaXH1vD7/v66X+/Xvb/3dX2+31t91wFX3xkiIiKz +/xIR+f92rLuhjnk21ybb+bBGaYqZTWuGQpht+3GIHltRubV6IaBc0y6F9kRo +8PKep1vNBO46QZtoew6M/nkRvaDaBKQHFyVOtpVAUp15VH+VPbytWXNgpO0+ +XNNaMX2qyg0cmL1vfrQ9h4yekGfilT4w2Wb+71DbBxgbEvmjVBICtcuv5Lbk +DIPT7IfsyMMnYMnbqs+7dH9DWcifZrOcc7AwwFMwe7koUtcebfMUJEOikcPN +NRvn4PKY4vLHlRehI8Xw7g8pCbyozUuzMc2As7mRTTMWS+MPVdmOgV3ZsCi5 +JyYpXRaDDt+WNzh8GU65Odk8H5ND3uAChqVFHgRbZHs2HFfA/vrWuJM/8sH+ ++9SRwB5FnFOoNGy9rQDCViZr3+tXRNd1Vf2+XgVwLVuvU3ZMETdveDFw1rcA +FNy8LKrmKOEtA9NZTQcKoL/ywbiovhKWL3wbaRRdAEnHE0IuhirhXM9lXrvp +Avggxwqsk1iCs/QfPUqeKoAo6/U7FZcpo/Dbvd9f4gphpUfGf+Z2yqh3tJBf +lFgIkvy+vze6KGMd/0rQ4QuFkFZ7Ij/BSxm/ys5JH8kqhErn6j6xGGV0EwbJ +1t8ohCF3De5whzKWWq10rW0vBI/Do2eehKuguErfG3E1AVheu1h67I4qGklv +Fmu+LAD7tme/B+tVMXaptt/BKwJYIzLT0fO5KopkllyWEArA2zWwAz6pYrfU +qwqbEgE4hKtH8mepoYaLrn34XQEcVB27bKujhjpFpgM7XgugbnfmQC1XDT/7 +K2U3SAvB6ZeFzNFwNUxdFFEzS04IzxJazUz4ash6urrcRkEIHVXi/NwYNTzj +Gr7iiooQBueFyJxIU8O0nHcvXHWEoFC00tzhvhq+h4R7svZCCJj4wa+XUMfR +rPknOMFCsAzyk/8so473DDz/deUKYU5vp1BUQR3X+Ub99A4TQl5X7SsbhjrO +Mf/YEB4phO7b/+qWmamj+VulkMizQlh7wqI921MdLzTTmm05QjCWiTIIL1bH +Lbfs4hueCUHk7GhdSrk6pvN21OxtIc8vum9r+U11XNxo6yjWKgT/UdcTPx6o +43GPIyEmHULIbWd27e5Uxzfq2018e4Qgn1l/0k2UgXMLvsYojAthUkeqW28j +A4/eEy+tV6JhLF0xaulWBua2N/X2KtMwsoBiWngSpzQUiqvRMDhssc9+LwOv +YsU9ayYNH256j22NYODjPCvvMF0aGldVSJ7OYyCqs2+5WNPw6Na94jgBA/sT +K7LNbWioM3jilnSdgY0Mx4WqSMNt2fepGVUMVJMezO1ZTkNJ11x22VMG/qlw +ily+ioZUfw/4MMrAraOdQR5baLjwZs+HL1MMLDgx7iuzjYbktcEnBqbJ+fPO +DN7fTkP80tOPJ8Q10OHmg9uLvWg4/rN48wIVDczMvLo7w48G/7OzDlo7aGCS +rZTNzGAarIV01vnzGvhFba/pihgautSEmSsuaeC6kokc7hkajpwvzBjJ1ECr +6kGNvLM0VETlp7kWkv3+JTsn42gwds9KkazRwD4Hw/ZjiTRozUpOOPleA/tP +rF7wJ5WG+iOJ50w/a+C2HeGfRNJo8BtKiP/Yq4HK5a9eiqTTkNsVF2s3ooGb +utrEJjJoUCs5dfqPGBMdFP3La3NokPcM53N1majqF1vUXEhDWWtYJGXExNZs +jmeegAY359BjraZMXNrgbsAT0pBoevioMTCxrFRoKnOVBon5B0IH1zNxsH3k +C1VEAx21n5e+iYkqOhrXe4idx/25LtuYWJgXfSmjmIbTH/aECHzI8XLPPs27 +QcPMql0H/XhM5B+VXFNXRsNl/Z0H5I4ycdO/fi7+5TTY5XoG1vGZmGbRFryg +gobIc9sDGGeYWKH4G9ZW0jDlu2lPdxoTHbXXddHVNFzsctsdl83EbZEehpyb +NCxbv8HPOp+Jl/knSxqJudbrfFKvMzGRo4tvamj4IePstek+E0P8Nc69u01D +ewCjed8j8nzJrqd97tBw9+EURD5hol/d9NJPxAlHhKoFr5jYpHMs7/VdGkJb +/z5X08VE8+d5ARvu0eClv326+R0Th7ZOfH1IbPhh/tvJXiYKnFtEc+/ToGD9 +aY3kEBMDbpG8qaVB5Pyt24xRJq7VOvwzmLjJKTBj1TQT3ddteWlWR0NgcdOO +dFkKuaGfVvz7gIZN8wqeFitQqL1GuvIjsY0vn/NQmcJDBXlfDB+S77HYSPk7 +m0LZfa+i7hCPHBKPE9WjMIzXNfDXIxpeP3n/a5ExhV/dFBVtiWl+4mu0prB3 +YEl5GXFy5z6XjbYUXq5dze4jPmqyvGavA4Vz0xO3KdfT4BOvpHtsFYWf9lze +4EK86uvwpcR1FLbkLJMKJTa2ezLvykYKp13nJWYRK6blht/cSmG7xMuOB8Qz +xo72NXlSeH147dcvxL1rN2776EPhziKz22INNDwv1Hs8sZdCmXD77QzialEx +K4kDFD6SM621JM7Z0S1QD6FwydO64bXEMRXlimZhFP7gFQ3uJD4ofe6M8zEK +F/DKSg8Su/vvnvL4m8Lnpf84HCXGB7Av+DSFb3JF86KJNVUVOk/FUXh/eWNz +DLFU2JBTWiJ5f/m8xrPEE8/rq4oukPHRdks6Q/xON1vrQRqFQ3IpOieJ60+G +XezIpjB7xCj5GHHRu/Xig/kU6vv3PA0mTrHUDptBU1iZG9jhS8xPnvFNvpjC +EdfzFW7Euwc73XXKKWy7qrwXidesvFEPNylcFVw/qElslnN2mdtdCms/b3WS +JFb55V2w5wGFv5ovhg2R8RPbZK0Q0UhhSqQzv4l48PrC0/80UfiszthDSPxK +fGA8r5XCheMKC6OJ82+ltz3rprB+wc+5usTxi7iOPT0UOpqeXP2TfG9u0JqK +8a/k/g/0/B8Rr6Cmz6sNU+hjO2a5iVg3sk3MdILCfr5gUIF4Ycd1rtNvCg1b +svntpN4+xnptOjSbhes6T9itIQ7s1WUYzmehd0cZT5x43HFyYECKhe99NUfv +kfqdK5p4Yq8iC/UGDzzWJjYMqy310mOhpkvHeBfph+pX5/gqxix8mO4fFUW8 +3GS7y2szFn5piXRnEm/6PtKzGVn4Obf1x07SXxG+LNm1G1io+udFTw3pT7Ha +/7rnu7OwtFm+34U4Qe2OoHE7C09lGTt23vl/Pm62c/Bj4cfKKxP9pP8b18cE +ccJY2Hk+Ytt/JB/kbfqbdDJZePfujaoIkjdZlyovfbtMLG1o20PySGsyeveV +AhbeHwplORBblypPM0pYaJJiITGT5Je39lp9xQcsxOtzPb1I3hXJl8TO6WMh +K+Rq8SWSn5Yhx9wffmfhykCbfW00DbUtzszoERbOL/t6Vor4VWzPzenfLJTS +3CMRTvL41wy5vjEpNiaybZSNrtDg9J3n9MmMjdKfy2QYWTQsMVI5Oceajdcn +6DtqmaQeDtXd17FlY9Ub8YNLSP4nj0lZH1rFxvKu8u65ZL7o/l2oP+3JxvfK +dpJ1F2g4NP+17OIYNlr+KTxTEE+D/Zrj66zj2Zi3//xbHpmPFiVoxnkmsXHD +enVH+1gaamQPi+WnszHH7fv6VjK/iSlJThqXsPHBjriglmgyv2pht0sXG4eu +6N/AIzQE+H9WPPiOjTJ/1eS/D6UBrsZuTvrExhrzMzWRPFI/hh3NHd/ZOFH5 +1vVGCA36yw7V+s3URD8JO4eJQDI+DrkFfD1NLI6vYU/toqHfe05waaQm2m1o +//JxJXnfDPtbd6I1Ufj3JMPEkYbvHfzZj2M08diMBdX8FTT8t3by0vskTeyV +EhWRsSP1aNVbJ1mgiYPS58XkrEg+LXwiv7dZE3fNyu5KJ+uNxXXnqpXVtVA+ +/mvGPQmSZ9OPZ2qxtDB19k372/PIeFvOWWuio4VNFly/SnHSn0X8HmdTLexJ +qFTPm0UDMy1ofqiTFsYXTCR5/RaCYcgGj+dBWhjdlOPi1S8k/wuLZpy6r4Wf +smc6nKkXwrddjgVWj7TQQMvL1euhEGKzeWuGHmvhl8G3ziZ1Qnih0p665aUW +uv13Q/TVHSF4Lb64VPerFo5kxNEiFUIIk1TybZHQxi1bk1KHc4VAT6jUK23R +Rp/5zf0byXpQ5ikrvui7No5kvlnA0RfCn++GeY0j2ph04emFbWT92StjVfNx +UhuromWGeJpCuO++tldhpg7SN9XkBQwhBH/kOUQp6GD36d+bR+SF0Pqz/s96 +Wx28ZUIXqU8L4IK2/4HhRB2MW19Pf3kqgCWnr68zM9PF4oj8AS9fAaToWEjJ +7tbDc3vf22F8ITQq2poO/6OPUjdm+JjlFYDlkvsJBq8MUOJOpu/DpCsgKZoT +svO4IU5VHM2ROZEPKlGq1ltYRjhiFTPd55oH4tT2ctdHRshvV0vlKeeCPmfx +dd4OY/yWHjBkN5EDh7plap1FluI1+PaltDIbvg/HbnRKWYqOcUtZj85lgaPB +w1QnPROMEdm7veFdBtwetvo5/swEAzwnY6ljaRCoa9zZ4muKuH3525NuqcAZ +9GndIm6Gs002HbwsnQIrmAqrJXLM0Il3ecfreedBk38m9L65OXoqxXoI2Mmg +7Wtxh+o0x7jY3fsPmiWC7+090aVBy7BlwNajISoB7mS1+vyQs8DFzMIdkfFx +MFIwPW5QYYEXnd3ZWnvOgDclFE9dbYkLjl7Iunr9FPzQTjIrGbLEPsUEUfuJ +aKjM/fl+9LQVKtY0Bd3MOw5b7claUsUa91un/vRO4IPS/lNV+netMV3nbWHm +rAiQmxtQvHozB6OVKpT2nAuD3OURR4a2cNCve09yNT8MjCPilydtJw7xvSd7 +KAzWDBW9bN/JwcaIPsNOtzA4+Wp00juAg9KpT4wrFMNgIifS7kgUBy1iqqmi +K6HQaZX0Il/IQQ2F4taEhzzYczg3zekaB8N3HVleXsmDsWtlvv1FHJyactD5 +IOCBDKN93Kicg4IP/h6rz/Fg1RzlJbfucrDVe6dKkDsPalrzfV685CD/n9+e +/X1ccJas1OO2c3BVQFZEaDcX2h0bxhS6OBgQrD82t4ULI9V9pz3ecfDzwogh +u3Iu6GUbXv3Wy8Ffrwdb//C5UNNpy40d4ODu2ePJt4LJ9RZuAIMhDjKDH2Yd +9+OC36nDLSGjHOx/yUxWdSHXu3syddEEBwPZX3njNlw4PnXBu3qKg5cOdmW+ +NOKClEmh7o7fHCx2V5hbzeRCxv7q0elpDia4VpbmLuLC/wCDDapc "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "PlotRange" -> {{0, 30}, {0., 0.05622517441456167}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +14169,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 +14197,8 @@ ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.12141098789525176`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.05622517441456167}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -8231,17 +14206,568 @@ ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913429049348164`*^9}, + CellChangeTimes->{3.9913429049348164`*^9, 3.9940155573772993`*^9}, CellLabel-> - "Out[387]=",ExpressionUUID->"0ea0f8f9-2a4b-804f-a2c8-287645f62313"] + "Out[140]=",ExpressionUUID->"08e8a7f5-b3e7-4e5f-9649-94f32335ebd4"] }, 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:eJwV13c8lf0bB3BPSqnIiETWce5z7JWRcVwXiUhLKi2U0SAlOockR4+GQh48 +JdkhzrkrZKdJhQZKWaWhaaXH1vD7/v66X+/Xvb/3dX2+31t91wFX3xkiIiKz +/xIR+f92rLuhjnk21ybb+bBGaYqZTWuGQpht+3GIHltRubV6IaBc0y6F9kRo +8PKep1vNBO46QZtoew6M/nkRvaDaBKQHFyVOtpVAUp15VH+VPbytWXNgpO0+ +XNNaMX2qyg0cmL1vfrQ9h4yekGfilT4w2Wb+71DbBxgbEvmjVBICtcuv5Lbk +DIPT7IfsyMMnYMnbqs+7dH9DWcifZrOcc7AwwFMwe7koUtcebfMUJEOikcPN +NRvn4PKY4vLHlRehI8Xw7g8pCbyozUuzMc2As7mRTTMWS+MPVdmOgV3ZsCi5 +JyYpXRaDDt+WNzh8GU65Odk8H5ND3uAChqVFHgRbZHs2HFfA/vrWuJM/8sH+ ++9SRwB5FnFOoNGy9rQDCViZr3+tXRNd1Vf2+XgVwLVuvU3ZMETdveDFw1rcA +FNy8LKrmKOEtA9NZTQcKoL/ywbiovhKWL3wbaRRdAEnHE0IuhirhXM9lXrvp +Avggxwqsk1iCs/QfPUqeKoAo6/U7FZcpo/Dbvd9f4gphpUfGf+Z2yqh3tJBf +lFgIkvy+vze6KGMd/0rQ4QuFkFZ7Ij/BSxm/ys5JH8kqhErn6j6xGGV0EwbJ +1t8ohCF3De5whzKWWq10rW0vBI/Do2eehKuguErfG3E1AVheu1h67I4qGklv +Fmu+LAD7tme/B+tVMXaptt/BKwJYIzLT0fO5KopkllyWEArA2zWwAz6pYrfU +qwqbEgE4hKtH8mepoYaLrn34XQEcVB27bKujhjpFpgM7XgugbnfmQC1XDT/7 +K2U3SAvB6ZeFzNFwNUxdFFEzS04IzxJazUz4ash6urrcRkEIHVXi/NwYNTzj +Gr7iiooQBueFyJxIU8O0nHcvXHWEoFC00tzhvhq+h4R7svZCCJj4wa+XUMfR +rPknOMFCsAzyk/8so473DDz/deUKYU5vp1BUQR3X+Ub99A4TQl5X7SsbhjrO +Mf/YEB4phO7b/+qWmamj+VulkMizQlh7wqI921MdLzTTmm05QjCWiTIIL1bH +Lbfs4hueCUHk7GhdSrk6pvN21OxtIc8vum9r+U11XNxo6yjWKgT/UdcTPx6o +43GPIyEmHULIbWd27e5Uxzfq2018e4Qgn1l/0k2UgXMLvsYojAthUkeqW28j +A4/eEy+tV6JhLF0xaulWBua2N/X2KtMwsoBiWngSpzQUiqvRMDhssc9+LwOv +YsU9ayYNH256j22NYODjPCvvMF0aGldVSJ7OYyCqs2+5WNPw6Na94jgBA/sT +K7LNbWioM3jilnSdgY0Mx4WqSMNt2fepGVUMVJMezO1ZTkNJ11x22VMG/qlw +ily+ioZUfw/4MMrAraOdQR5baLjwZs+HL1MMLDgx7iuzjYbktcEnBqbJ+fPO +DN7fTkP80tOPJ8Q10OHmg9uLvWg4/rN48wIVDczMvLo7w48G/7OzDlo7aGCS +rZTNzGAarIV01vnzGvhFba/pihgautSEmSsuaeC6kokc7hkajpwvzBjJ1ECr +6kGNvLM0VETlp7kWkv3+JTsn42gwds9KkazRwD4Hw/ZjiTRozUpOOPleA/tP +rF7wJ5WG+iOJ50w/a+C2HeGfRNJo8BtKiP/Yq4HK5a9eiqTTkNsVF2s3ooGb +utrEJjJoUCs5dfqPGBMdFP3La3NokPcM53N1majqF1vUXEhDWWtYJGXExNZs +jmeegAY359BjraZMXNrgbsAT0pBoevioMTCxrFRoKnOVBon5B0IH1zNxsH3k +C1VEAx21n5e+iYkqOhrXe4idx/25LtuYWJgXfSmjmIbTH/aECHzI8XLPPs27 +QcPMql0H/XhM5B+VXFNXRsNl/Z0H5I4ycdO/fi7+5TTY5XoG1vGZmGbRFryg +gobIc9sDGGeYWKH4G9ZW0jDlu2lPdxoTHbXXddHVNFzsctsdl83EbZEehpyb +NCxbv8HPOp+Jl/knSxqJudbrfFKvMzGRo4tvamj4IePstek+E0P8Nc69u01D +ewCjed8j8nzJrqd97tBw9+EURD5hol/d9NJPxAlHhKoFr5jYpHMs7/VdGkJb +/z5X08VE8+d5ARvu0eClv326+R0Th7ZOfH1IbPhh/tvJXiYKnFtEc+/ToGD9 +aY3kEBMDbpG8qaVB5Pyt24xRJq7VOvwzmLjJKTBj1TQT3ddteWlWR0NgcdOO +dFkKuaGfVvz7gIZN8wqeFitQqL1GuvIjsY0vn/NQmcJDBXlfDB+S77HYSPk7 +m0LZfa+i7hCPHBKPE9WjMIzXNfDXIxpeP3n/a5ExhV/dFBVtiWl+4mu0prB3 +YEl5GXFy5z6XjbYUXq5dze4jPmqyvGavA4Vz0xO3KdfT4BOvpHtsFYWf9lze +4EK86uvwpcR1FLbkLJMKJTa2ezLvykYKp13nJWYRK6blht/cSmG7xMuOB8Qz +xo72NXlSeH147dcvxL1rN2776EPhziKz22INNDwv1Hs8sZdCmXD77QzialEx +K4kDFD6SM621JM7Z0S1QD6FwydO64bXEMRXlimZhFP7gFQ3uJD4ofe6M8zEK +F/DKSg8Su/vvnvL4m8Lnpf84HCXGB7Av+DSFb3JF86KJNVUVOk/FUXh/eWNz +DLFU2JBTWiJ5f/m8xrPEE8/rq4oukPHRdks6Q/xON1vrQRqFQ3IpOieJ60+G +XezIpjB7xCj5GHHRu/Xig/kU6vv3PA0mTrHUDptBU1iZG9jhS8xPnvFNvpjC +EdfzFW7Euwc73XXKKWy7qrwXidesvFEPNylcFVw/qElslnN2mdtdCms/b3WS +JFb55V2w5wGFv5ovhg2R8RPbZK0Q0UhhSqQzv4l48PrC0/80UfiszthDSPxK +fGA8r5XCheMKC6OJ82+ltz3rprB+wc+5usTxi7iOPT0UOpqeXP2TfG9u0JqK +8a/k/g/0/B8Rr6Cmz6sNU+hjO2a5iVg3sk3MdILCfr5gUIF4Ycd1rtNvCg1b +svntpN4+xnptOjSbhes6T9itIQ7s1WUYzmehd0cZT5x43HFyYECKhe99NUfv +kfqdK5p4Yq8iC/UGDzzWJjYMqy310mOhpkvHeBfph+pX5/gqxix8mO4fFUW8 +3GS7y2szFn5piXRnEm/6PtKzGVn4Obf1x07SXxG+LNm1G1io+udFTw3pT7Ha +/7rnu7OwtFm+34U4Qe2OoHE7C09lGTt23vl/Pm62c/Bj4cfKKxP9pP8b18cE +ccJY2Hk+Ytt/JB/kbfqbdDJZePfujaoIkjdZlyovfbtMLG1o20PySGsyeveV +AhbeHwplORBblypPM0pYaJJiITGT5Je39lp9xQcsxOtzPb1I3hXJl8TO6WMh +K+Rq8SWSn5Yhx9wffmfhykCbfW00DbUtzszoERbOL/t6Vor4VWzPzenfLJTS +3CMRTvL41wy5vjEpNiaybZSNrtDg9J3n9MmMjdKfy2QYWTQsMVI5Oceajdcn +6DtqmaQeDtXd17FlY9Ub8YNLSP4nj0lZH1rFxvKu8u65ZL7o/l2oP+3JxvfK +dpJ1F2g4NP+17OIYNlr+KTxTEE+D/Zrj66zj2Zi3//xbHpmPFiVoxnkmsXHD +enVH+1gaamQPi+WnszHH7fv6VjK/iSlJThqXsPHBjriglmgyv2pht0sXG4eu +6N/AIzQE+H9WPPiOjTJ/1eS/D6UBrsZuTvrExhrzMzWRPFI/hh3NHd/ZOFH5 +1vVGCA36yw7V+s3URD8JO4eJQDI+DrkFfD1NLI6vYU/toqHfe05waaQm2m1o +//JxJXnfDPtbd6I1Ufj3JMPEkYbvHfzZj2M08diMBdX8FTT8t3by0vskTeyV +EhWRsSP1aNVbJ1mgiYPS58XkrEg+LXwiv7dZE3fNyu5KJ+uNxXXnqpXVtVA+ +/mvGPQmSZ9OPZ2qxtDB19k372/PIeFvOWWuio4VNFly/SnHSn0X8HmdTLexJ +qFTPm0UDMy1ofqiTFsYXTCR5/RaCYcgGj+dBWhjdlOPi1S8k/wuLZpy6r4Wf +smc6nKkXwrddjgVWj7TQQMvL1euhEGKzeWuGHmvhl8G3ziZ1Qnih0p665aUW +uv13Q/TVHSF4Lb64VPerFo5kxNEiFUIIk1TybZHQxi1bk1KHc4VAT6jUK23R +Rp/5zf0byXpQ5ikrvui7No5kvlnA0RfCn++GeY0j2ph04emFbWT92StjVfNx +UhuromWGeJpCuO++tldhpg7SN9XkBQwhBH/kOUQp6GD36d+bR+SF0Pqz/s96 +Wx28ZUIXqU8L4IK2/4HhRB2MW19Pf3kqgCWnr68zM9PF4oj8AS9fAaToWEjJ +7tbDc3vf22F8ITQq2poO/6OPUjdm+JjlFYDlkvsJBq8MUOJOpu/DpCsgKZoT +svO4IU5VHM2ROZEPKlGq1ltYRjhiFTPd55oH4tT2ctdHRshvV0vlKeeCPmfx +dd4OY/yWHjBkN5EDh7plap1FluI1+PaltDIbvg/HbnRKWYqOcUtZj85lgaPB +w1QnPROMEdm7veFdBtwetvo5/swEAzwnY6ljaRCoa9zZ4muKuH3525NuqcAZ +9GndIm6Gs002HbwsnQIrmAqrJXLM0Il3ecfreedBk38m9L65OXoqxXoI2Mmg +7Wtxh+o0x7jY3fsPmiWC7+090aVBy7BlwNajISoB7mS1+vyQs8DFzMIdkfFx +MFIwPW5QYYEXnd3ZWnvOgDclFE9dbYkLjl7Iunr9FPzQTjIrGbLEPsUEUfuJ +aKjM/fl+9LQVKtY0Bd3MOw5b7claUsUa91un/vRO4IPS/lNV+netMV3nbWHm +rAiQmxtQvHozB6OVKpT2nAuD3OURR4a2cNCve09yNT8MjCPilydtJw7xvSd7 +KAzWDBW9bN/JwcaIPsNOtzA4+Wp00juAg9KpT4wrFMNgIifS7kgUBy1iqqmi +K6HQaZX0Il/IQQ2F4taEhzzYczg3zekaB8N3HVleXsmDsWtlvv1FHJyactD5 +IOCBDKN93Kicg4IP/h6rz/Fg1RzlJbfucrDVe6dKkDsPalrzfV685CD/n9+e +/X1ccJas1OO2c3BVQFZEaDcX2h0bxhS6OBgQrD82t4ULI9V9pz3ecfDzwogh +u3Iu6GUbXv3Wy8Ffrwdb//C5UNNpy40d4ODu2ePJt4LJ9RZuAIMhDjKDH2Yd +9+OC36nDLSGjHOx/yUxWdSHXu3syddEEBwPZX3njNlw4PnXBu3qKg5cOdmW+ +NOKClEmh7o7fHCx2V5hbzeRCxv7q0elpDia4VpbmLuLC/wCDDapc + "]]}, + 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:eJwV13c8lf0bB3BPSqnIiETWce5z7JWRcVwXiUhLKi2U0SAlOockR4+GQh48 +JdkhzrkrZKdJhQZKWaWhaaXH1vD7/v66X+/Xvb/3dX2+31t91wFX3xkiIiKz +/xIR+f92rLuhjnk21ybb+bBGaYqZTWuGQpht+3GIHltRubV6IaBc0y6F9kRo +8PKep1vNBO46QZtoew6M/nkRvaDaBKQHFyVOtpVAUp15VH+VPbytWXNgpO0+ +XNNaMX2qyg0cmL1vfrQ9h4yekGfilT4w2Wb+71DbBxgbEvmjVBICtcuv5Lbk +DIPT7IfsyMMnYMnbqs+7dH9DWcifZrOcc7AwwFMwe7koUtcebfMUJEOikcPN +NRvn4PKY4vLHlRehI8Xw7g8pCbyozUuzMc2As7mRTTMWS+MPVdmOgV3ZsCi5 +JyYpXRaDDt+WNzh8GU65Odk8H5ND3uAChqVFHgRbZHs2HFfA/vrWuJM/8sH+ ++9SRwB5FnFOoNGy9rQDCViZr3+tXRNd1Vf2+XgVwLVuvU3ZMETdveDFw1rcA +FNy8LKrmKOEtA9NZTQcKoL/ywbiovhKWL3wbaRRdAEnHE0IuhirhXM9lXrvp +Avggxwqsk1iCs/QfPUqeKoAo6/U7FZcpo/Dbvd9f4gphpUfGf+Z2yqh3tJBf +lFgIkvy+vze6KGMd/0rQ4QuFkFZ7Ij/BSxm/ys5JH8kqhErn6j6xGGV0EwbJ +1t8ohCF3De5whzKWWq10rW0vBI/Do2eehKuguErfG3E1AVheu1h67I4qGklv +Fmu+LAD7tme/B+tVMXaptt/BKwJYIzLT0fO5KopkllyWEArA2zWwAz6pYrfU +qwqbEgE4hKtH8mepoYaLrn34XQEcVB27bKujhjpFpgM7XgugbnfmQC1XDT/7 +K2U3SAvB6ZeFzNFwNUxdFFEzS04IzxJazUz4ash6urrcRkEIHVXi/NwYNTzj +Gr7iiooQBueFyJxIU8O0nHcvXHWEoFC00tzhvhq+h4R7svZCCJj4wa+XUMfR +rPknOMFCsAzyk/8so473DDz/deUKYU5vp1BUQR3X+Ub99A4TQl5X7SsbhjrO +Mf/YEB4phO7b/+qWmamj+VulkMizQlh7wqI921MdLzTTmm05QjCWiTIIL1bH +Lbfs4hueCUHk7GhdSrk6pvN21OxtIc8vum9r+U11XNxo6yjWKgT/UdcTPx6o +43GPIyEmHULIbWd27e5Uxzfq2018e4Qgn1l/0k2UgXMLvsYojAthUkeqW28j +A4/eEy+tV6JhLF0xaulWBua2N/X2KtMwsoBiWngSpzQUiqvRMDhssc9+LwOv +YsU9ayYNH256j22NYODjPCvvMF0aGldVSJ7OYyCqs2+5WNPw6Na94jgBA/sT +K7LNbWioM3jilnSdgY0Mx4WqSMNt2fepGVUMVJMezO1ZTkNJ11x22VMG/qlw +ily+ioZUfw/4MMrAraOdQR5baLjwZs+HL1MMLDgx7iuzjYbktcEnBqbJ+fPO +DN7fTkP80tOPJ8Q10OHmg9uLvWg4/rN48wIVDczMvLo7w48G/7OzDlo7aGCS +rZTNzGAarIV01vnzGvhFba/pihgautSEmSsuaeC6kokc7hkajpwvzBjJ1ECr +6kGNvLM0VETlp7kWkv3+JTsn42gwds9KkazRwD4Hw/ZjiTRozUpOOPleA/tP +rF7wJ5WG+iOJ50w/a+C2HeGfRNJo8BtKiP/Yq4HK5a9eiqTTkNsVF2s3ooGb +utrEJjJoUCs5dfqPGBMdFP3La3NokPcM53N1majqF1vUXEhDWWtYJGXExNZs +jmeegAY359BjraZMXNrgbsAT0pBoevioMTCxrFRoKnOVBon5B0IH1zNxsH3k +C1VEAx21n5e+iYkqOhrXe4idx/25LtuYWJgXfSmjmIbTH/aECHzI8XLPPs27 +QcPMql0H/XhM5B+VXFNXRsNl/Z0H5I4ycdO/fi7+5TTY5XoG1vGZmGbRFryg +gobIc9sDGGeYWKH4G9ZW0jDlu2lPdxoTHbXXddHVNFzsctsdl83EbZEehpyb +NCxbv8HPOp+Jl/knSxqJudbrfFKvMzGRo4tvamj4IePstek+E0P8Nc69u01D +ewCjed8j8nzJrqd97tBw9+EURD5hol/d9NJPxAlHhKoFr5jYpHMs7/VdGkJb +/z5X08VE8+d5ARvu0eClv326+R0Th7ZOfH1IbPhh/tvJXiYKnFtEc+/ToGD9 +aY3kEBMDbpG8qaVB5Pyt24xRJq7VOvwzmLjJKTBj1TQT3ddteWlWR0NgcdOO +dFkKuaGfVvz7gIZN8wqeFitQqL1GuvIjsY0vn/NQmcJDBXlfDB+S77HYSPk7 +m0LZfa+i7hCPHBKPE9WjMIzXNfDXIxpeP3n/a5ExhV/dFBVtiWl+4mu0prB3 +YEl5GXFy5z6XjbYUXq5dze4jPmqyvGavA4Vz0xO3KdfT4BOvpHtsFYWf9lze +4EK86uvwpcR1FLbkLJMKJTa2ezLvykYKp13nJWYRK6blht/cSmG7xMuOB8Qz +xo72NXlSeH147dcvxL1rN2776EPhziKz22INNDwv1Hs8sZdCmXD77QzialEx +K4kDFD6SM621JM7Z0S1QD6FwydO64bXEMRXlimZhFP7gFQ3uJD4ofe6M8zEK +F/DKSg8Su/vvnvL4m8Lnpf84HCXGB7Av+DSFb3JF86KJNVUVOk/FUXh/eWNz +DLFU2JBTWiJ5f/m8xrPEE8/rq4oukPHRdks6Q/xON1vrQRqFQ3IpOieJ60+G +XezIpjB7xCj5GHHRu/Xig/kU6vv3PA0mTrHUDptBU1iZG9jhS8xPnvFNvpjC +EdfzFW7Euwc73XXKKWy7qrwXidesvFEPNylcFVw/qElslnN2mdtdCms/b3WS +JFb55V2w5wGFv5ovhg2R8RPbZK0Q0UhhSqQzv4l48PrC0/80UfiszthDSPxK +fGA8r5XCheMKC6OJ82+ltz3rprB+wc+5usTxi7iOPT0UOpqeXP2TfG9u0JqK +8a/k/g/0/B8Rr6Cmz6sNU+hjO2a5iVg3sk3MdILCfr5gUIF4Ycd1rtNvCg1b +svntpN4+xnptOjSbhes6T9itIQ7s1WUYzmehd0cZT5x43HFyYECKhe99NUfv +kfqdK5p4Yq8iC/UGDzzWJjYMqy310mOhpkvHeBfph+pX5/gqxix8mO4fFUW8 +3GS7y2szFn5piXRnEm/6PtKzGVn4Obf1x07SXxG+LNm1G1io+udFTw3pT7Ha +/7rnu7OwtFm+34U4Qe2OoHE7C09lGTt23vl/Pm62c/Bj4cfKKxP9pP8b18cE +ccJY2Hk+Ytt/JB/kbfqbdDJZePfujaoIkjdZlyovfbtMLG1o20PySGsyeveV +AhbeHwplORBblypPM0pYaJJiITGT5Je39lp9xQcsxOtzPb1I3hXJl8TO6WMh +K+Rq8SWSn5Yhx9wffmfhykCbfW00DbUtzszoERbOL/t6Vor4VWzPzenfLJTS +3CMRTvL41wy5vjEpNiaybZSNrtDg9J3n9MmMjdKfy2QYWTQsMVI5Oceajdcn +6DtqmaQeDtXd17FlY9Ub8YNLSP4nj0lZH1rFxvKu8u65ZL7o/l2oP+3JxvfK +dpJ1F2g4NP+17OIYNlr+KTxTEE+D/Zrj66zj2Zi3//xbHpmPFiVoxnkmsXHD +enVH+1gaamQPi+WnszHH7fv6VjK/iSlJThqXsPHBjriglmgyv2pht0sXG4eu +6N/AIzQE+H9WPPiOjTJ/1eS/D6UBrsZuTvrExhrzMzWRPFI/hh3NHd/ZOFH5 +1vVGCA36yw7V+s3URD8JO4eJQDI+DrkFfD1NLI6vYU/toqHfe05waaQm2m1o +//JxJXnfDPtbd6I1Ufj3JMPEkYbvHfzZj2M08diMBdX8FTT8t3by0vskTeyV +EhWRsSP1aNVbJ1mgiYPS58XkrEg+LXwiv7dZE3fNyu5KJ+uNxXXnqpXVtVA+ +/mvGPQmSZ9OPZ2qxtDB19k372/PIeFvOWWuio4VNFly/SnHSn0X8HmdTLexJ +qFTPm0UDMy1ofqiTFsYXTCR5/RaCYcgGj+dBWhjdlOPi1S8k/wuLZpy6r4Wf +smc6nKkXwrddjgVWj7TQQMvL1euhEGKzeWuGHmvhl8G3ziZ1Qnih0p665aUW +uv13Q/TVHSF4Lb64VPerFo5kxNEiFUIIk1TybZHQxi1bk1KHc4VAT6jUK23R +Rp/5zf0byXpQ5ikrvui7No5kvlnA0RfCn++GeY0j2ph04emFbWT92StjVfNx +UhuromWGeJpCuO++tldhpg7SN9XkBQwhBH/kOUQp6GD36d+bR+SF0Pqz/s96 +Wx28ZUIXqU8L4IK2/4HhRB2MW19Pf3kqgCWnr68zM9PF4oj8AS9fAaToWEjJ +7tbDc3vf22F8ITQq2poO/6OPUjdm+JjlFYDlkvsJBq8MUOJOpu/DpCsgKZoT +svO4IU5VHM2ROZEPKlGq1ltYRjhiFTPd55oH4tT2ctdHRshvV0vlKeeCPmfx +dd4OY/yWHjBkN5EDh7plap1FluI1+PaltDIbvg/HbnRKWYqOcUtZj85lgaPB +w1QnPROMEdm7veFdBtwetvo5/swEAzwnY6ljaRCoa9zZ4muKuH3525NuqcAZ +9GndIm6Gs002HbwsnQIrmAqrJXLM0Il3ecfreedBk38m9L65OXoqxXoI2Mmg +7Wtxh+o0x7jY3fsPmiWC7+090aVBy7BlwNajISoB7mS1+vyQs8DFzMIdkfFx +MFIwPW5QYYEXnd3ZWnvOgDclFE9dbYkLjl7Iunr9FPzQTjIrGbLEPsUEUfuJ +aKjM/fl+9LQVKtY0Bd3MOw5b7claUsUa91un/vRO4IPS/lNV+netMV3nbWHm +rAiQmxtQvHozB6OVKpT2nAuD3OURR4a2cNCve09yNT8MjCPilydtJw7xvSd7 +KAzWDBW9bN/JwcaIPsNOtzA4+Wp00juAg9KpT4wrFMNgIifS7kgUBy1iqqmi +K6HQaZX0Il/IQQ2F4taEhzzYczg3zekaB8N3HVleXsmDsWtlvv1FHJyactD5 +IOCBDKN93Kicg4IP/h6rz/Fg1RzlJbfucrDVe6dKkDsPalrzfV685CD/n9+e +/X1ccJas1OO2c3BVQFZEaDcX2h0bxhS6OBgQrD82t4ULI9V9pz3ecfDzwogh +u3Iu6GUbXv3Wy8Ffrwdb//C5UNNpy40d4ODu2ePJt4LJ9RZuAIMhDjKDH2Yd +9+OC36nDLSGjHOx/yUxWdSHXu3syddEEBwPZX3njNlw4PnXBu3qKg5cOdmW+ +NOKClEmh7o7fHCx2V5hbzeRCxv7q0elpDia4VpbmLuLC/wCDDapc + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.05622517441456167}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.05622517441456167}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJwV13c8lf0bB3BPSqnIiETWce5z7JWRcVwXiUhLKi2U0SAlOockR4+GQh48 +JdkhzrkrZKdJhQZKWaWhaaXH1vD7/v66X+/Xvb/3dX2+31t91wFX3xkiIiKz +/xIR+f92rLuhjnk21ybb+bBGaYqZTWuGQpht+3GIHltRubV6IaBc0y6F9kRo +8PKep1vNBO46QZtoew6M/nkRvaDaBKQHFyVOtpVAUp15VH+VPbytWXNgpO0+ +XNNaMX2qyg0cmL1vfrQ9h4yekGfilT4w2Wb+71DbBxgbEvmjVBICtcuv5Lbk +DIPT7IfsyMMnYMnbqs+7dH9DWcifZrOcc7AwwFMwe7koUtcebfMUJEOikcPN +NRvn4PKY4vLHlRehI8Xw7g8pCbyozUuzMc2As7mRTTMWS+MPVdmOgV3ZsCi5 +JyYpXRaDDt+WNzh8GU65Odk8H5ND3uAChqVFHgRbZHs2HFfA/vrWuJM/8sH+ ++9SRwB5FnFOoNGy9rQDCViZr3+tXRNd1Vf2+XgVwLVuvU3ZMETdveDFw1rcA +FNy8LKrmKOEtA9NZTQcKoL/ywbiovhKWL3wbaRRdAEnHE0IuhirhXM9lXrvp +Avggxwqsk1iCs/QfPUqeKoAo6/U7FZcpo/Dbvd9f4gphpUfGf+Z2yqh3tJBf +lFgIkvy+vze6KGMd/0rQ4QuFkFZ7Ij/BSxm/ys5JH8kqhErn6j6xGGV0EwbJ +1t8ohCF3De5whzKWWq10rW0vBI/Do2eehKuguErfG3E1AVheu1h67I4qGklv +Fmu+LAD7tme/B+tVMXaptt/BKwJYIzLT0fO5KopkllyWEArA2zWwAz6pYrfU +qwqbEgE4hKtH8mepoYaLrn34XQEcVB27bKujhjpFpgM7XgugbnfmQC1XDT/7 +K2U3SAvB6ZeFzNFwNUxdFFEzS04IzxJazUz4ash6urrcRkEIHVXi/NwYNTzj +Gr7iiooQBueFyJxIU8O0nHcvXHWEoFC00tzhvhq+h4R7svZCCJj4wa+XUMfR +rPknOMFCsAzyk/8so473DDz/deUKYU5vp1BUQR3X+Ub99A4TQl5X7SsbhjrO +Mf/YEB4phO7b/+qWmamj+VulkMizQlh7wqI921MdLzTTmm05QjCWiTIIL1bH +Lbfs4hueCUHk7GhdSrk6pvN21OxtIc8vum9r+U11XNxo6yjWKgT/UdcTPx6o +43GPIyEmHULIbWd27e5Uxzfq2018e4Qgn1l/0k2UgXMLvsYojAthUkeqW28j +A4/eEy+tV6JhLF0xaulWBua2N/X2KtMwsoBiWngSpzQUiqvRMDhssc9+LwOv +YsU9ayYNH256j22NYODjPCvvMF0aGldVSJ7OYyCqs2+5WNPw6Na94jgBA/sT +K7LNbWioM3jilnSdgY0Mx4WqSMNt2fepGVUMVJMezO1ZTkNJ11x22VMG/qlw +ily+ioZUfw/4MMrAraOdQR5baLjwZs+HL1MMLDgx7iuzjYbktcEnBqbJ+fPO +DN7fTkP80tOPJ8Q10OHmg9uLvWg4/rN48wIVDczMvLo7w48G/7OzDlo7aGCS +rZTNzGAarIV01vnzGvhFba/pihgautSEmSsuaeC6kokc7hkajpwvzBjJ1ECr +6kGNvLM0VETlp7kWkv3+JTsn42gwds9KkazRwD4Hw/ZjiTRozUpOOPleA/tP +rF7wJ5WG+iOJ50w/a+C2HeGfRNJo8BtKiP/Yq4HK5a9eiqTTkNsVF2s3ooGb +utrEJjJoUCs5dfqPGBMdFP3La3NokPcM53N1majqF1vUXEhDWWtYJGXExNZs +jmeegAY359BjraZMXNrgbsAT0pBoevioMTCxrFRoKnOVBon5B0IH1zNxsH3k +C1VEAx21n5e+iYkqOhrXe4idx/25LtuYWJgXfSmjmIbTH/aECHzI8XLPPs27 +QcPMql0H/XhM5B+VXFNXRsNl/Z0H5I4ycdO/fi7+5TTY5XoG1vGZmGbRFryg +gobIc9sDGGeYWKH4G9ZW0jDlu2lPdxoTHbXXddHVNFzsctsdl83EbZEehpyb +NCxbv8HPOp+Jl/knSxqJudbrfFKvMzGRo4tvamj4IePstek+E0P8Nc69u01D +ewCjed8j8nzJrqd97tBw9+EURD5hol/d9NJPxAlHhKoFr5jYpHMs7/VdGkJb +/z5X08VE8+d5ARvu0eClv326+R0Th7ZOfH1IbPhh/tvJXiYKnFtEc+/ToGD9 +aY3kEBMDbpG8qaVB5Pyt24xRJq7VOvwzmLjJKTBj1TQT3ddteWlWR0NgcdOO +dFkKuaGfVvz7gIZN8wqeFitQqL1GuvIjsY0vn/NQmcJDBXlfDB+S77HYSPk7 +m0LZfa+i7hCPHBKPE9WjMIzXNfDXIxpeP3n/a5ExhV/dFBVtiWl+4mu0prB3 +YEl5GXFy5z6XjbYUXq5dze4jPmqyvGavA4Vz0xO3KdfT4BOvpHtsFYWf9lze +4EK86uvwpcR1FLbkLJMKJTa2ezLvykYKp13nJWYRK6blht/cSmG7xMuOB8Qz +xo72NXlSeH147dcvxL1rN2776EPhziKz22INNDwv1Hs8sZdCmXD77QzialEx +K4kDFD6SM621JM7Z0S1QD6FwydO64bXEMRXlimZhFP7gFQ3uJD4ofe6M8zEK +F/DKSg8Su/vvnvL4m8Lnpf84HCXGB7Av+DSFb3JF86KJNVUVOk/FUXh/eWNz +DLFU2JBTWiJ5f/m8xrPEE8/rq4oukPHRdks6Q/xON1vrQRqFQ3IpOieJ60+G +XezIpjB7xCj5GHHRu/Xig/kU6vv3PA0mTrHUDptBU1iZG9jhS8xPnvFNvpjC +EdfzFW7Euwc73XXKKWy7qrwXidesvFEPNylcFVw/qElslnN2mdtdCms/b3WS +JFb55V2w5wGFv5ovhg2R8RPbZK0Q0UhhSqQzv4l48PrC0/80UfiszthDSPxK +fGA8r5XCheMKC6OJ82+ltz3rprB+wc+5usTxi7iOPT0UOpqeXP2TfG9u0JqK +8a/k/g/0/B8Rr6Cmz6sNU+hjO2a5iVg3sk3MdILCfr5gUIF4Ycd1rtNvCg1b +svntpN4+xnptOjSbhes6T9itIQ7s1WUYzmehd0cZT5x43HFyYECKhe99NUfv +kfqdK5p4Yq8iC/UGDzzWJjYMqy310mOhpkvHeBfph+pX5/gqxix8mO4fFUW8 +3GS7y2szFn5piXRnEm/6PtKzGVn4Obf1x07SXxG+LNm1G1io+udFTw3pT7Ha +/7rnu7OwtFm+34U4Qe2OoHE7C09lGTt23vl/Pm62c/Bj4cfKKxP9pP8b18cE +ccJY2Hk+Ytt/JB/kbfqbdDJZePfujaoIkjdZlyovfbtMLG1o20PySGsyeveV +AhbeHwplORBblypPM0pYaJJiITGT5Je39lp9xQcsxOtzPb1I3hXJl8TO6WMh +K+Rq8SWSn5Yhx9wffmfhykCbfW00DbUtzszoERbOL/t6Vor4VWzPzenfLJTS +3CMRTvL41wy5vjEpNiaybZSNrtDg9J3n9MmMjdKfy2QYWTQsMVI5Oceajdcn +6DtqmaQeDtXd17FlY9Ub8YNLSP4nj0lZH1rFxvKu8u65ZL7o/l2oP+3JxvfK +dpJ1F2g4NP+17OIYNlr+KTxTEE+D/Zrj66zj2Zi3//xbHpmPFiVoxnkmsXHD +enVH+1gaamQPi+WnszHH7fv6VjK/iSlJThqXsPHBjriglmgyv2pht0sXG4eu +6N/AIzQE+H9WPPiOjTJ/1eS/D6UBrsZuTvrExhrzMzWRPFI/hh3NHd/ZOFH5 +1vVGCA36yw7V+s3URD8JO4eJQDI+DrkFfD1NLI6vYU/toqHfe05waaQm2m1o +//JxJXnfDPtbd6I1Ufj3JMPEkYbvHfzZj2M08diMBdX8FTT8t3by0vskTeyV +EhWRsSP1aNVbJ1mgiYPS58XkrEg+LXwiv7dZE3fNyu5KJ+uNxXXnqpXVtVA+ +/mvGPQmSZ9OPZ2qxtDB19k372/PIeFvOWWuio4VNFly/SnHSn0X8HmdTLexJ +qFTPm0UDMy1ofqiTFsYXTCR5/RaCYcgGj+dBWhjdlOPi1S8k/wuLZpy6r4Wf +smc6nKkXwrddjgVWj7TQQMvL1euhEGKzeWuGHmvhl8G3ziZ1Qnih0p665aUW +uv13Q/TVHSF4Lb64VPerFo5kxNEiFUIIk1TybZHQxi1bk1KHc4VAT6jUK23R +Rp/5zf0byXpQ5ikrvui7No5kvlnA0RfCn++GeY0j2ph04emFbWT92StjVfNx +UhuromWGeJpCuO++tldhpg7SN9XkBQwhBH/kOUQp6GD36d+bR+SF0Pqz/s96 +Wx28ZUIXqU8L4IK2/4HhRB2MW19Pf3kqgCWnr68zM9PF4oj8AS9fAaToWEjJ +7tbDc3vf22F8ITQq2poO/6OPUjdm+JjlFYDlkvsJBq8MUOJOpu/DpCsgKZoT +svO4IU5VHM2ROZEPKlGq1ltYRjhiFTPd55oH4tT2ctdHRshvV0vlKeeCPmfx +dd4OY/yWHjBkN5EDh7plap1FluI1+PaltDIbvg/HbnRKWYqOcUtZj85lgaPB +w1QnPROMEdm7veFdBtwetvo5/swEAzwnY6ljaRCoa9zZ4muKuH3525NuqcAZ +9GndIm6Gs002HbwsnQIrmAqrJXLM0Il3ecfreedBk38m9L65OXoqxXoI2Mmg +7Wtxh+o0x7jY3fsPmiWC7+090aVBy7BlwNajISoB7mS1+vyQs8DFzMIdkfFx +MFIwPW5QYYEXnd3ZWnvOgDclFE9dbYkLjl7Iunr9FPzQTjIrGbLEPsUEUfuJ +aKjM/fl+9LQVKtY0Bd3MOw5b7claUsUa91un/vRO4IPS/lNV+netMV3nbWHm +rAiQmxtQvHozB6OVKpT2nAuD3OURR4a2cNCve09yNT8MjCPilydtJw7xvSd7 +KAzWDBW9bN/JwcaIPsNOtzA4+Wp00juAg9KpT4wrFMNgIifS7kgUBy1iqqmi +K6HQaZX0Il/IQQ2F4taEhzzYczg3zekaB8N3HVleXsmDsWtlvv1FHJyactD5 +IOCBDKN93Kicg4IP/h6rz/Fg1RzlJbfucrDVe6dKkDsPalrzfV685CD/n9+e +/X1ccJas1OO2c3BVQFZEaDcX2h0bxhS6OBgQrD82t4ULI9V9pz3ecfDzwogh +u3Iu6GUbXv3Wy8Ffrwdb//C5UNNpy40d4ODu2ePJt4LJ9RZuAIMhDjKDH2Yd +9+OC36nDLSGjHOx/yUxWdSHXu3syddEEBwPZX3njNlw4PnXBu3qKg5cOdmW+ +NOKClEmh7o7fHCx2V5hbzeRCxv7q0elpDia4VpbmLuLC/wCDDapc + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.05622517441456167}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, + 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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.061043}}, + "Frame" -> {{False, 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.061043}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.061043}}, + "Frame" -> {{False, 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.05622517441456167}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9940155574449043`*^9}, + CellLabel-> + "Out[141]=",ExpressionUUID->"5eac8b6a-967c-45a7-93ac-59ac89b7404f"] +}, Open ]], Cell[CellGroupData[{ @@ -8252,7 +14778,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[{ @@ -8270,8 +14798,8 @@ Cell[BoxData[ SuperscriptBox[ RowBox[{"(", FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -8293,66 +14821,71 @@ 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.2642328469224704`*^-167\\\", \ +RowBox[{\\\"532888126012512780022077\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"94\\\", \\\"\[RightSkeleton]\\\"}], \\\"4000000000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 142, 73, 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437636167164`*^9, 3.9940155574911213`*^9}, CellLabel-> "During evaluation of \ -In[391]:=",ExpressionUUID->"cb4665e4-f252-8e4c-9d71-b694fbe7aa53"], +In[142]:=",ExpressionUUID->"ef288e4c-45c7-425f-85fc-85a16d0e82ac"], 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.8573814611912467`*^-170\\\", \ +RowBox[{\\\"161198658118785115956678\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"98\\\", \\\"\[RightSkeleton]\\\"}], \\\"0000000000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 142, 74, 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437636167164`*^9, 3.994015557498061*^9}, CellLabel-> "During evaluation of \ -In[391]:=",ExpressionUUID->"e67b353a-d4a9-454a-9cac-3e22ef8a4d4b"], +In[142]:=",ExpressionUUID->"76fc9988-439a-4096-bd37-d91b7b38fd2b"], 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[\\\"1.5236356530495356`*^-173\\\", \ +RowBox[{\\\"505518991860510123640143\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"101\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 142, 75, + 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437636167164`*^9, 3.9940155575049677`*^9}, CellLabel-> "During evaluation of \ -In[391]:=",ExpressionUUID->"9dbc6a20-c95c-084e-b19f-b6bb6bd70d6b"], +In[142]:=",ExpressionUUID->"36abd259-6a7e-4d5c-b178-5cd46d6ca1c7"], 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, 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437636167164`*^9, 3.994015557512673*^9}, CellLabel-> "During evaluation of \ -In[391]:=",ExpressionUUID->"f9b6cbc5-ab52-2741-b8bf-bf6796495def"], +In[142]:=",ExpressionUUID->"aa87fc08-0af2-477a-ade5-c7464139e24a"], -Cell[BoxData["12.55365498945131`"], "Output", - CellChangeTimes->{3.991343769962549*^9}, +Cell[BoxData["14.220248615232775`"], "Output", + CellChangeTimes->{3.991343769962549*^9, 3.99401560109678*^9}, CellLabel-> - "Out[391]=",ExpressionUUID->"1439e238-af89-2243-beb8-0a46e5e09115"] + "Out[142]=",ExpressionUUID->"2a5516bb-ce81-4669-8aa0-1f74db7ab235"] }, Open ]], Cell[CellGroupData[{ @@ -8419,68 +14952,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.5538283596802938`*^-234\\\", \ +RowBox[{\\\"1383790351762182388186847\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0457559040000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 143, 77, + 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991343769999645*^9, 3.9940156011327753`*^9}, CellLabel-> "During evaluation of \ -In[392]:=",ExpressionUUID->"033374a1-a008-6240-84e3-c1c7a7e65b75"], +In[143]:=",ExpressionUUID->"508496eb-d80a-4b02-8e71-735c00f553f3"], 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.974160505579126`*^-241\\\", \ +RowBox[{\\\"1894408991562427689427794\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6398325760000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 143, 78, + 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991343769999645*^9, 3.9940156011418533`*^9}, CellLabel-> "During evaluation of \ -In[392]:=",ExpressionUUID->"88ab6d85-4789-7346-aeee-8e9a4b87248d"], +In[143]:=",ExpressionUUID->"97107251-8b92-4af6-b75c-60b42fe07a69"], 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[\\\"1.5923427179790955`*^-247\\\", \ +RowBox[{\\\"2735526583816145583533735\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9182397440000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 143, 79, + 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991343769999645*^9, 3.9940156011511793`*^9}, CellLabel-> "During evaluation of \ -In[392]:=",ExpressionUUID->"051100a9-488b-4d4d-83c7-cdc54aef13e0"], +In[143]:=",ExpressionUUID->"bf3590c8-9f83-4396-bfb3-8bcbc1bc022b"], 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, 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991343769999645*^9, 3.9940156011603613`*^9}, CellLabel-> "During evaluation of \ -In[392]:=",ExpressionUUID->"a33cd954-f1de-bf45-8642-effd7c3e029f"], +In[143]:=",ExpressionUUID->"20d08ec6-6b17-4366-af0c-27d4cde8bf11"], -Cell[BoxData["2.1234790234082306`"], "Output", - CellChangeTimes->{3.9913437771602173`*^9}, +Cell[BoxData["0.04466268293455385`"], "Output", + CellChangeTimes->{3.9913437771602173`*^9, 3.994015607365556*^9}, CellLabel-> - "Out[392]=",ExpressionUUID->"48a4017b-948a-6a48-8b10-d81adf4b9038"] + "Out[143]=",ExpressionUUID->"89691c03-f016-4ea4-9208-3d14bfa2dbbe"] }, Open ]], Cell[CellGroupData[{ @@ -8501,8 +15041,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 +15086,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.5538283596802938`*^-234\\\", \ +RowBox[{\\\"1383790351762182388186847\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0457559040000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 144, 81, + 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437771982174`*^9, 3.994015607401177*^9}, CellLabel-> "During evaluation of \ -In[393]:=",ExpressionUUID->"d8156b3f-4442-9146-9c48-cb34fdfb79d3"], +In[144]:=",ExpressionUUID->"1c3635a6-d127-4eee-8857-381c9d50473c"], 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.974160505579126`*^-241\\\", \ +RowBox[{\\\"1894408991562427689427794\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6398325760000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 144, 82, + 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437771982174`*^9, 3.994015607407736*^9}, CellLabel-> "During evaluation of \ -In[393]:=",ExpressionUUID->"60007a19-2492-cd46-a203-7c2bbbc6591f"], +In[144]:=",ExpressionUUID->"3a17edf3-74bb-406b-8703-b141f3f724b7"], 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[\\\"1.5923427179790955`*^-247\\\", \ +RowBox[{\\\"2735526583816145583533735\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9182397440000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 144, 83, + 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437771982174`*^9, 3.994015607415346*^9}, CellLabel-> "During evaluation of \ -In[393]:=",ExpressionUUID->"8754c4a5-0539-0247-94a5-8a81a9ae7e49"], +In[144]:=",ExpressionUUID->"6c6a122c-f870-4da9-912c-128a05fc35e5"], 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, 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437771982174`*^9, 3.994015607422903*^9}, CellLabel-> "During evaluation of \ -In[393]:=",ExpressionUUID->"3af4c7f8-fe90-6646-8e3b-058500b348e9"], +In[144]:=",ExpressionUUID->"c8cf0724-96a0-488c-9a1a-ba48cce519e9"], -Cell[BoxData["10.711562421053975`"], "Output", - CellChangeTimes->{3.991343783589731*^9}, +Cell[BoxData["49.946759304682274`"], "Output", + CellChangeTimes->{3.991343783589731*^9, 3.9940156132518663`*^9}, CellLabel-> - "Out[393]=",ExpressionUUID->"46f7d520-9bcf-9d48-ae7c-54e91ca06983"] + "Out[144]=",ExpressionUUID->"62c09b89-1d7d-4dac-b518-e58faf5f7602"] }, Open ]], Cell[CellGroupData[{ @@ -8629,8 +15175,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 +15220,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.5538283596802938`*^-234\\\", \ +RowBox[{\\\"1383790351762182388186847\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0457559040000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 145, 85, + 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437836316223`*^9, 3.9940156132857227`*^9}, CellLabel-> "During evaluation of \ -In[394]:=",ExpressionUUID->"ba4db233-5a2e-4340-98d0-df918a11e2c7"], +In[145]:=",ExpressionUUID->"eb768628-012b-4393-9fbc-20989ea8f5a1"], 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.974160505579126`*^-241\\\", \ +RowBox[{\\\"1894408991562427689427794\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"37\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6398325760000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 145, 86, + 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437836316223`*^9, 3.994015613293845*^9}, CellLabel-> "During evaluation of \ -In[394]:=",ExpressionUUID->"444b24ca-68bb-7144-a655-403eefa4900f"], +In[145]:=",ExpressionUUID->"29372c91-5af5-4147-95b6-f3d836a5c607"], 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[\\\"1.5923427179790955`*^-247\\\", \ +RowBox[{\\\"2735526583816145583533735\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9182397440000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 145, 87, + 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437836316223`*^9, 3.994015613301078*^9}, CellLabel-> "During evaluation of \ -In[394]:=",ExpressionUUID->"f2dc2286-68d4-d74f-83ea-dd0f591156a8"], +In[145]:=",ExpressionUUID->"dca8ba27-5291-4764-9c36-d4481cc6ae62"], 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, 31386066375568566700, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437836316223`*^9, 3.994015613308548*^9}, CellLabel-> "During evaluation of \ -In[394]:=",ExpressionUUID->"4974a702-c238-6d47-b5b2-a3c25cacf142"], +In[145]:=",ExpressionUUID->"85287ca0-dcf6-4e49-9866-01853356a42e"], -Cell[BoxData["20.656774205279326`"], "Output", - CellChangeTimes->{3.9913437870822353`*^9}, +Cell[BoxData["7.366381541576698`"], "Output", + CellChangeTimes->{3.9913437870822353`*^9, 3.994015616904505*^9}, CellLabel-> - "Out[394]=",ExpressionUUID->"d46043b7-707b-4740-ab89-0a2b96978cff"] + "Out[145]=",ExpressionUUID->"4e9d35a8-2e0a-4f90-afea-4495d800cab9"] }, Open ]], Cell[CellGroupData[{ @@ -8745,20 +15297,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.002328434608625115`"], "Output", + CellChangeTimes->{3.991343787117275*^9, 3.994015616942936*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"17e7a906-0d1f-416e-beb2-6925be89075b"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input", + CellLabel-> + "In[147]:=",ExpressionUUID->"e9226219-193c-43a8-b77a-0d6c9eeed7a0"] }, -WindowSize->{718.5, 729.75}, -WindowMargins->{{17.25, Automatic}, {Automatic, 24}}, +WindowSize->{714, 288}, +WindowMargins->{{-3, Automatic}, {297, 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->"c5c6a337-d1c3-0f45-98d9-a2509510bd89" ] @@ -8773,368 +15331,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, 300, 5, 95, "Input",ExpressionUUID->"97fc619a-5617-4e24-bdf2-8876dca85277"], +Cell[879, 29, 322, 5, 59, "Output",ExpressionUUID->"12637053-c03b-463a-89c2-23b7dcf376cc"] }, 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[1238, 39, 248, 4, 52, "Input",ExpressionUUID->"fde2f609-cc08-46e4-a424-b23139717b26"], +Cell[1489, 45, 325, 5, 59, "Output",ExpressionUUID->"ebd9d2d4-59ef-40db-acb7-b062e6dfc8a0"] }, 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[1851, 55, 225, 4, 52, "Input",ExpressionUUID->"f72cb02a-0871-4573-9f9b-c2179ff40c8a"], +Cell[2079, 61, 329, 5, 59, "Output",ExpressionUUID->"5a8a507f-84ef-420c-8d79-dcbced00424b"] }, 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[2445, 71, 175, 3, 52, "Input",ExpressionUUID->"790c902a-404b-4e43-b607-dd94e5a561c3"], +Cell[2623, 76, 321, 5, 59, "Output",ExpressionUUID->"1dff5e7f-9890-43f2-ae2d-87418cf83018"] }, 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[2981, 86, 257, 7, 75, "Input",ExpressionUUID->"0a28663c-3c54-422b-830b-f27a12a9aa65"], +Cell[3241, 95, 338, 5, 59, "Output",ExpressionUUID->"a658bb88-4c83-4331-99cf-bdc8e27d5030"] }, 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[3616, 105, 131, 2, 52, "Input",ExpressionUUID->"d8954feb-4a43-4afd-9561-44d05c07f6a7"], +Cell[3750, 109, 327, 5, 59, "Output",ExpressionUUID->"6cac9c6e-0da1-446d-8078-6a8cdb5e8523"] }, 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[4114, 119, 276, 6, 52, "Input",ExpressionUUID->"df1deb31-3579-4743-874a-faabe6625176"], +Cell[4393, 127, 338, 5, 59, "Output",ExpressionUUID->"2315b738-ae29-41be-9f76-e963ff1514fa"] }, 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[4768, 137, 257, 7, 52, "Input",ExpressionUUID->"634ded1f-4da2-4a03-912e-2e82244d1133"], +Cell[5028, 146, 336, 5, 59, "Output",ExpressionUUID->"9ac949f0-dafe-40d6-87f6-f9001dd405c4"] }, 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[5401, 156, 277, 5, 52, "Input",ExpressionUUID->"868f29c5-7f59-4f50-b8e7-874cc5683d91"], +Cell[5681, 163, 308, 5, 59, "Output",ExpressionUUID->"f9e5fdf9-8d47-4b9d-b361-610e0b5e8a46"] }, 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[6026, 173, 226, 4, 52, "Input",ExpressionUUID->"b63817d6-d814-44da-ac3e-56c2cf8db1c3"], +Cell[6255, 179, 304, 5, 59, "Output",ExpressionUUID->"88592f21-f9b0-47ac-a868-8d2ac07ced79"] }, 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[6596, 189, 129, 2, 52, "Input",ExpressionUUID->"b0c21af7-9259-47bb-8e71-5a0aba7ed9c9"], +Cell[6728, 193, 324, 5, 59, "Output",ExpressionUUID->"84064b45-201f-43d0-bc31-e4ece3cb1338"] }, 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[7089, 203, 129, 2, 52, "Input",ExpressionUUID->"2184443e-aa1c-438c-b4b2-4d78ab4d3a4b"], +Cell[7221, 207, 322, 5, 59, "Output",ExpressionUUID->"d5aba823-9f68-45dd-92cc-2db2a62218fb"] }, 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[7580, 217, 557, 19, 141, "Input",ExpressionUUID->"c1ca45c5-7f7a-4529-a658-1ade4d516529"], +Cell[8140, 238, 342, 5, 59, "Output",ExpressionUUID->"b8a89689-3e03-45b9-be22-d19436f03d6b"] }, 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[8519, 248, 557, 19, 141, "Input",ExpressionUUID->"77c96466-9061-4c8a-9e85-47139fff4a2c"], +Cell[9079, 269, 339, 5, 59, "Output",ExpressionUUID->"cf2b3fcd-948f-4072-bcdf-33c256b3cae7"] }, 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[9455, 279, 1588, 50, 555, "Input",ExpressionUUID->"d726f02a-acdb-41d2-9e96-d4d3044f8b0a"], +Cell[11046, 331, 338, 5, 59, "Output",ExpressionUUID->"eb0b7c04-af91-455b-8486-bcbf81ba15ff"] }, 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[11421, 341, 1422, 46, 518, "Input",ExpressionUUID->"246ee10a-465d-4d30-9338-d85ddbacd258"], +Cell[12846, 389, 355, 6, 59, "Output",ExpressionUUID->"7b4dd8cb-92f1-4164-8b50-f229a1a27954"] }, 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[13238, 400, 1422, 46, 518, "Input",ExpressionUUID->"5b73f8d2-4d3e-4d10-a6c0-ed1f46798d82"], +Cell[14663, 448, 359, 6, 59, "Output",ExpressionUUID->"1a1c6543-8dd8-40f1-b021-85dec120a20f"] }, 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[15059, 459, 1588, 50, 555, "Input",ExpressionUUID->"4dbe781b-53a1-4782-b6c7-a62e52781f49"], +Cell[16650, 511, 332, 5, 59, "Output",ExpressionUUID->"45508906-6f91-40a2-968e-d7e74c188855"] }, 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[17019, 521, 131, 2, 52, "Input",ExpressionUUID->"67e0592f-ef1c-407f-86e9-a1bc2b69f476"], +Cell[17153, 525, 322, 5, 59, "Output",ExpressionUUID->"a2993d2a-78bb-4a05-9028-5cc7dfa72859"] }, 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[17512, 535, 133, 2, 52, "Input",ExpressionUUID->"77a32425-388d-4b3a-b854-a46af8d53d1c"], +Cell[17648, 539, 325, 5, 59, "Output",ExpressionUUID->"eb8bfd5b-e379-43b4-9e81-e2914e827384"] }, 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[18010, 549, 134, 2, 52, "Input",ExpressionUUID->"0d513009-9204-426d-a562-909c64236311"], +Cell[18147, 553, 324, 5, 59, "Output",ExpressionUUID->"f5b01ded-efc5-43e4-a935-de4cd0e956d8"] }, 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[18508, 563, 219, 4, 52, "Input",ExpressionUUID->"f09f3a47-9ca6-472b-a2cc-54d3038804bb"], +Cell[18730, 569, 339, 6, 59, "Output",ExpressionUUID->"fb020d50-720a-4448-8794-04539772d43d"] }, 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[19106, 580, 134, 2, 52, "Input",ExpressionUUID->"00a322da-0c0e-4441-8c1b-c7815e5b527d"], +Cell[19243, 584, 327, 5, 59, "Output",ExpressionUUID->"4401fd76-b797-48b3-b748-a49df0f72a11"] }, 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[19607, 594, 324, 5, 52, "Input",ExpressionUUID->"c1747945-7aac-482a-83b9-80dd67332b06"], +Cell[19934, 601, 323, 5, 59, "Output",ExpressionUUID->"58ca9c20-a12d-4f21-936b-7f89873e675c"] }, 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[20294, 611, 296, 5, 52, "Input",ExpressionUUID->"1052218c-77d9-4aa2-b2f7-9aa9f0891eb8"], +Cell[20593, 618, 323, 5, 59, "Output",ExpressionUUID->"627554cc-4990-4d70-87fd-a5e3111c3c68"] }, 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[20953, 628, 219, 4, 52, "Input",ExpressionUUID->"9cfcd788-75bb-480b-ab21-af9989a158ba"], +Cell[21175, 634, 324, 5, 59, "Output",ExpressionUUID->"e8767e59-be07-44b5-bc63-afb46d6422ca"] }, 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[21536, 644, 350, 10, 75, "Input",ExpressionUUID->"0b7eebf5-ad50-41da-ad01-ff14c08ef886"], +Cell[21889, 656, 338, 5, 59, "Output",ExpressionUUID->"38c34d7a-e869-4855-bae0-bbe173deb447"] }, 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[22264, 666, 350, 10, 75, "Input",ExpressionUUID->"3b8ad994-3208-4eda-af89-67d2c0702513"], +Cell[22617, 678, 359, 6, 59, "Output",ExpressionUUID->"6a195e8c-0184-4ad7-b31b-a2a9754c2cf2"] }, 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[23013, 689, 994, 26, 459, "Input",ExpressionUUID->"bfa9ff06-e999-4bfa-98c6-bf62116a6a0d"], +Cell[24010, 717, 344, 5, 59, "Output",ExpressionUUID->"8fb25afc-0754-4d40-8650-0279ff5537d3"] }, 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[24391, 727, 199, 3, 52, "Input",ExpressionUUID->"39ef1782-0650-4290-9244-8c7cf9f99c73"], +Cell[24593, 732, 322, 5, 59, "Output",ExpressionUUID->"e2c9314d-772f-4346-8f3e-fe2c18b12e5c"] }, 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[24952, 742, 329, 5, 52, "Input",ExpressionUUID->"7df53e83-fc17-4fba-b292-356a8ca98ce6"], +Cell[25284, 749, 277, 4, 59, "Output",ExpressionUUID->"f81b1b27-43ae-40fa-ac2a-420f8acfff84"] +}, Open ]], +Cell[25576, 756, 173, 2, 40, "Input",ExpressionUUID->"ef42a1bb-b6fc-41cf-a3e1-32bc769cb6eb"], +Cell[CellGroupData[{ +Cell[25774, 762, 327, 5, 52, "Input",ExpressionUUID->"8ad26fd6-adae-46af-a742-b0be8d8c6f78"], +Cell[26104, 769, 273, 4, 59, "Output",ExpressionUUID->"9d3f1fcc-0467-422c-bc93-5790a622ca2a"] +}, Open ]], +Cell[26392, 776, 173, 2, 40, "Input",ExpressionUUID->"5082151a-fff7-4530-b76f-810216d1647f"], +Cell[CellGroupData[{ +Cell[26590, 782, 326, 5, 52, "Input",ExpressionUUID->"b0b21d06-dae3-4168-b20d-2a44da1a71f1"], +Cell[26919, 789, 276, 4, 59, "Output",ExpressionUUID->"6e87e92b-1b3f-4d25-9bb0-6d21e6ff2eeb"] +}, Open ]], +Cell[27210, 796, 173, 2, 40, "Input",ExpressionUUID->"043b6693-6bb6-45e5-b877-0886a4c1d1d9"], +Cell[CellGroupData[{ +Cell[27408, 802, 354, 5, 52, "Input",ExpressionUUID->"dd4c9c4e-3238-4a67-b950-a2bddc20fc2d"], +Cell[27765, 809, 278, 4, 59, "Output",ExpressionUUID->"064682aa-b736-4bd6-9a47-ad529ee39315"] +}, Open ]], +Cell[28058, 816, 171, 2, 40, "Input",ExpressionUUID->"e62dc70b-c059-473b-a377-64a6e7d26a7c"], +Cell[CellGroupData[{ +Cell[28254, 822, 299, 5, 52, "Input",ExpressionUUID->"18a406ee-010f-4039-9292-e28d4041c008"], +Cell[28556, 829, 275, 4, 59, "Output",ExpressionUUID->"0c5f4581-f802-485f-a14b-4b2e11e970f4"] +}, Open ]], +Cell[28846, 836, 171, 2, 40, "Input",ExpressionUUID->"c137531b-8797-4686-90c7-ca543efe730e"], +Cell[CellGroupData[{ +Cell[29042, 842, 302, 5, 52, "Input",ExpressionUUID->"ebd2bf5a-6f85-42f7-910a-cd5286bc2764"], +Cell[29347, 849, 277, 4, 59, "Output",ExpressionUUID->"fb811930-29e3-4880-b3ca-09688520d811"] +}, Open ]], +Cell[29639, 856, 173, 2, 40, "Input",ExpressionUUID->"cb746fd2-4f20-4652-a7c2-832ef6969b64"], +Cell[CellGroupData[{ +Cell[29837, 862, 305, 5, 52, "Input",ExpressionUUID->"2d7e378e-5958-4d4e-830c-cad1565dd71a"], +Cell[30145, 869, 275, 4, 59, "Output",ExpressionUUID->"e201c981-632c-4864-929a-4cc778172f1a"] +}, Open ]], +Cell[30435, 876, 172, 2, 40, "Input",ExpressionUUID->"0226ed98-b3f1-4445-94f6-11b658e31e9f"], +Cell[CellGroupData[{ +Cell[30632, 882, 275, 4, 52, "Input",ExpressionUUID->"1198a547-57ce-4461-bffd-28bd5d7c31e6"], +Cell[30910, 888, 279, 4, 59, "Output",ExpressionUUID->"440be872-0012-429e-9d11-8247099c2809"] +}, Open ]], +Cell[31204, 895, 175, 2, 40, "Input",ExpressionUUID->"ddedb756-3b67-4e8f-9201-3b5644e2cce0"], +Cell[CellGroupData[{ +Cell[31404, 901, 19809, 485, 6103, "Input",ExpressionUUID->"a625c97e-9c7c-4862-83af-337b0aa8f35e"], +Cell[51216, 1388, 341, 5, 59, "Output",ExpressionUUID->"4cfbc730-5449-4d61-90da-eff058555b16"] }, 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[51594, 1398, 19748, 489, 6152, "Input",ExpressionUUID->"60d7f71f-cbde-4ed9-909b-30b043b9591e"], +Cell[71345, 1889, 339, 5, 59, "Output",ExpressionUUID->"2091e3a2-c538-48a2-88b4-1b5c70c20388"] }, 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[71721, 1899, 19748, 483, 6126, "Input",ExpressionUUID->"e6e7e383-61bf-40fc-93e6-0b19f8b9c932"], +Cell[91472, 2384, 356, 6, 59, "Output",ExpressionUUID->"2a044d43-f50b-442d-9696-0aca15c18542"] }, 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[91865, 2395, 22534, 553, 6975, "Input",ExpressionUUID->"fe18a67b-48ae-45e9-bbcf-36103d13d2be"], +Cell[114402, 2950, 358, 6, 59, "Output",ExpressionUUID->"3d8235cd-2b9f-4580-83f0-150655b58948"] }, 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[114797, 2961, 22535, 553, 7037, "Input",ExpressionUUID->"676e4f0f-dcc9-48ee-97b7-3ab9fe186e71"], +Cell[137335, 3516, 355, 6, 59, "Output",ExpressionUUID->"f988c85e-d2eb-447e-82a4-48fa46c1c1a1"] }, 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[137727, 3527, 25491, 626, 7925, "Input",ExpressionUUID->"663df4a9-c1a9-45f2-bd81-7c725b966374"], +Cell[163221, 4155, 363, 6, 59, "Output",ExpressionUUID->"65c2233b-14b9-4a91-bea6-036ab91b8909"] }, 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[163621, 4166, 130, 2, 52, "Input",ExpressionUUID->"f333f8e4-2022-46cd-9f51-74696e5ac6cb"], +Cell[163754, 4170, 322, 5, 59, "Output",ExpressionUUID->"fa252b7f-53ca-452b-885f-bd4fad45d49d"] }, 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[164113, 4180, 130, 2, 52, "Input",ExpressionUUID->"05e97b37-158d-43fc-a4a5-0ba34f3a81eb"], +Cell[164246, 4184, 324, 5, 59, "Output",ExpressionUUID->"a01597bc-1f71-4fcf-b44c-68768e8c43fe"] }, 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[164607, 4194, 1144, 39, 581, "Input",ExpressionUUID->"9ed52fd7-417c-42b5-babe-b3e69fc8a7c4"], +Cell[165754, 4235, 338, 5, 59, "Output",ExpressionUUID->"48e7ba6b-ea34-4c02-a71c-b0375a426df2"] }, 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[166129, 4245, 1041, 35, 578, "Input",ExpressionUUID->"57e53700-8a40-40a5-9121-1058ba37762d"], +Cell[167173, 4282, 355, 6, 59, "Output",ExpressionUUID->"6d9b325f-2614-4394-a9ad-a019a7dfda99"] }, 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[167565, 4293, 1144, 39, 581, "Input",ExpressionUUID->"16827392-3550-44e3-9ec3-4f3673e59ba2"], +Cell[168712, 4334, 340, 5, 59, "Output",ExpressionUUID->"cea5a90a-25e2-4f63-90d3-bc9e3119d4fd"] }, 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[169089, 4344, 108, 1, 52, "Input",ExpressionUUID->"253b81f4-fd57-4287-90ed-0909aecb72fa"], +Cell[169200, 4347, 342, 5, 59, "Output",ExpressionUUID->"94178d19-b042-4d9c-91e7-4e3e6be35dc6"] }, 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[169579, 4357, 108, 1, 52, "Input",ExpressionUUID->"2c559b3d-08c7-4e2d-be3f-691e5bd40832"], +Cell[169690, 4360, 357, 6, 59, "Output",ExpressionUUID->"70b8864e-f609-4840-a501-b194e4ac1b7d"] }, 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[170084, 4371, 108, 1, 52, "Input",ExpressionUUID->"cbf8db76-8a3a-46d2-8962-53398bb73f8e"], +Cell[170195, 4374, 355, 6, 59, "Output",ExpressionUUID->"54511268-2529-4f7e-8348-0de8bf60f09f"] }, 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[170587, 4385, 108, 1, 52, "Input",ExpressionUUID->"5b3fe6e0-4ede-4d9c-a558-270c0baeb995"], +Cell[170698, 4388, 342, 5, 59, "Output",ExpressionUUID->"55b3db2a-4828-4fea-bdb7-a7da9d238795"] }, 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[171077, 4398, 107, 1, 52, "Input",ExpressionUUID->"98cc2401-fa7a-457c-891b-e35cad7588e7"], +Cell[171187, 4401, 343, 5, 59, "Output",ExpressionUUID->"dbc0719e-dfd3-44cc-837b-c3152f9220a7"] }, 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[171567, 4411, 107, 1, 52, "Input",ExpressionUUID->"971143e4-e967-42b1-a22e-03c49bf075c9"], +Cell[171677, 4414, 338, 5, 59, "Output",ExpressionUUID->"6451305e-fa63-4654-ad8b-ad5c86e3cede"] }, 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[172052, 4424, 497, 16, 170, "Input",ExpressionUUID->"62dc613b-c996-46e5-a998-4afe690bb4fc"], +Cell[172552, 4442, 355, 6, 59, "Output",ExpressionUUID->"b82540a5-2ec7-48c9-b643-92b9cf1123ee"] }, 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[172944, 4453, 497, 16, 170, "Input",ExpressionUUID->"a0ee90f3-3d4a-4ff8-966d-d3990e8aa250"], +Cell[173444, 4471, 356, 6, 59, "Output",ExpressionUUID->"6fdc367c-9ed5-4c1b-bca8-fcbe108a8913"] }, 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[173837, 4482, 1788, 60, 850, "Input",ExpressionUUID->"9b26f720-cf1a-48cf-a738-4058afc510cd"], +Cell[175628, 4544, 340, 5, 59, "Output",ExpressionUUID->"9c2d9018-2aa4-4488-806f-9fd2b6ad315e"] }, 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[176005, 4554, 1101, 36, 617, "Input",ExpressionUUID->"a15dd462-1c26-4381-a9d9-95a5af12557d"], +Cell[177109, 4592, 355, 6, 59, "Output",ExpressionUUID->"ecdd13da-6410-492e-a41f-df8907d52108"] }, 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[177501, 4603, 1818, 61, 850, "Input",ExpressionUUID->"c24364d8-237f-4cfb-a9a7-ae76031df588"], +Cell[179322, 4666, 337, 5, 59, "Output",ExpressionUUID->"a9c6eaa2-bb16-40ee-abf8-afed187176dc"] }, 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[179696, 4676, 1631, 53, 464, "Input",ExpressionUUID->"152a05e4-bdd6-46ae-8814-d48d4f90dd12"], +Cell[181330, 4731, 337, 5, 59, "Output",ExpressionUUID->"5f23af38-50de-4f17-9a78-f721b4bb3a7d"] }, 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[181704, 4741, 1631, 53, 464, "Input",ExpressionUUID->"8b365917-c5ea-4eaf-a2e6-3a6a3acfdcf7"], +Cell[183338, 4796, 338, 5, 59, "Output",ExpressionUUID->"bf6193f8-33a0-4065-b36c-b67a374dfe86"] }, 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[183713, 4806, 206, 3, 52, "Input",ExpressionUUID->"ede64bc2-06f7-8743-a0a6-6f058773310c"], +Cell[183922, 4811, 161, 2, 59, "Output",ExpressionUUID->"93cf03c6-c4ca-4420-9971-53ba1d829dbe"] }, Open ]], -Cell[338016, 8238, 209, 5, 70, "Input",ExpressionUUID->"b530b35f-2a32-0145-82a7-25a7a01bdd8f"], +Cell[184098, 4816, 175, 2, 52, "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[184298, 4822, 203, 3, 52, "Input",ExpressionUUID->"328429c4-9130-334e-ba7f-7dc8ec78e5b4"], +Cell[184504, 4827, 160, 2, 59, "Output",ExpressionUUID->"8bb84841-5aae-401d-9d48-79ed89affd98"] +}, Open ]], +Cell[184679, 4832, 171, 2, 52, "Input",ExpressionUUID->"b3364ab6-86a4-7a46-ae33-623392314869"], +Cell[CellGroupData[{ +Cell[184875, 4838, 1297, 42, 244, "Input",ExpressionUUID->"789c64dd-6722-a64c-864a-7fd89b074ad2"], +Cell[186175, 4882, 195, 2, 59, "Output",ExpressionUUID->"9a06f203-6e6d-4c07-b515-69778933a42c"] }, 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[186407, 4889, 927, 30, 241, "Input",ExpressionUUID->"35e76fc7-2f05-694a-b379-67189aa511ad"], +Cell[187337, 4921, 196, 2, 59, "Output",ExpressionUUID->"714ccffa-c746-4708-857d-2a82e2db4e6a"] }, 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[187570, 4928, 906, 29, 241, "Input",ExpressionUUID->"a10e19cd-f567-6b4d-a841-5f01117db38b"], +Cell[188479, 4959, 196, 2, 59, "Output",ExpressionUUID->"bb00b9e5-6cfe-450a-b8ea-d65c6fe15988"] }, 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[188712, 4966, 554, 18, 93, "Input",ExpressionUUID->"289c2a6f-fa01-2645-80ce-1661c17fd90c"], +Cell[189269, 4986, 191, 2, 59, "Output",ExpressionUUID->"85498b9e-3eb2-45e3-ab31-ebcc87c187a8"] }, 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[189497, 4993, 647, 21, 163, "Input",ExpressionUUID->"399520f6-f2e9-6f4a-a02c-50158b624262"], +Cell[190147, 5016, 187, 2, 59, "Output",ExpressionUUID->"ef9bb51c-ba05-4d53-bf68-f722da4c51b5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[190371, 5023, 166, 4, 98, "Input",ExpressionUUID->"7ee61184-68bc-584d-8849-9a0186a8f35d"], +Cell[190540, 5029, 192, 2, 59, "Output",ExpressionUUID->"2f379727-8752-4f1a-92e3-a93117180fa1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[190769, 5036, 166, 4, 97, "Input",ExpressionUUID->"0ec92d80-8d9e-2746-9b01-4edb32bf4eac"], +Cell[190938, 5042, 187, 2, 59, "Output",ExpressionUUID->"672758b1-e3b2-4e3a-aa5f-e8e3cbb5b2ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191162, 5049, 177, 4, 77, "Input",ExpressionUUID->"8c869977-4b92-8745-b065-cb6318fdcdb7"], +Cell[191342, 5055, 193, 2, 59, "Output",ExpressionUUID->"22ed853b-1763-4cee-8523-64dadc81e7c3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191572, 5062, 177, 4, 77, "Input",ExpressionUUID->"e2c1a337-e3c1-be4c-aa33-ae15497f38bc"], +Cell[191752, 5068, 188, 2, 59, "Output",ExpressionUUID->"88bc49b7-683a-4e2c-848a-da3e0a1b9fa1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191977, 5075, 6051, 184, 1957, "Input",ExpressionUUID->"abbe4489-628a-134f-b142-f0e18f19d6f9"], +Cell[198031, 5261, 193, 2, 59, "Output",ExpressionUUID->"8535b963-f250-432d-9845-adae62aa755e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[198261, 5268, 364, 8, 75, "Input",ExpressionUUID->"9e4d84a7-8664-a749-b8b4-3df6645764a5"], +Cell[198628, 5278, 189, 2, 59, "Output",ExpressionUUID->"2a53ddf6-be55-4796-b513-7c318ce711b6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[198854, 5285, 6118, 186, 1865, "Input",ExpressionUUID->"29cc8bdf-8683-214b-bd33-b4d8b4da1114"], +Cell[204975, 5473, 195, 2, 59, "Output",ExpressionUUID->"3cf76c6d-a107-4e3c-80eb-fff5a6fe6703"] +}, Open ]], +Cell[CellGroupData[{ +Cell[205207, 5480, 364, 8, 75, "Input",ExpressionUUID->"2190c129-8a98-bf45-873d-af8f8d048936"], +Cell[205574, 5490, 188, 2, 59, "Output",ExpressionUUID->"a0b07bd3-fc63-435b-a2b7-77a7b1788690"] +}, Open ]], +Cell[CellGroupData[{ +Cell[205799, 5497, 2659, 87, 804, "Input",ExpressionUUID->"972f1c0f-a59f-2847-8b2b-bd88c5077325"], +Cell[208461, 5586, 192, 2, 59, "Output",ExpressionUUID->"0c504def-b9d7-42f2-a861-1901dcb2003d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[208690, 5593, 2599, 84, 804, "Input",ExpressionUUID->"c06a7373-f345-6147-b882-1c88bef9608a"], +Cell[211292, 5679, 189, 2, 59, "Output",ExpressionUUID->"ca78fcea-66c2-4969-a947-52a75638ce37"] +}, Open ]], +Cell[CellGroupData[{ +Cell[211518, 5686, 3708, 117, 1253, "Input",ExpressionUUID->"82838793-cf71-8049-a4ac-b01daf51205b"], +Cell[215229, 5805, 192, 2, 59, "Output",ExpressionUUID->"44fcc00f-7768-48c9-9760-58d69f9a7da1"] +}, Open ]], +Cell[215436, 5810, 160, 3, 52, "Input",ExpressionUUID->"0055f95b-c532-e24d-bdc4-544ea2d2fbd9"], +Cell[CellGroupData[{ +Cell[215621, 5817, 2209, 61, 594, "Input",ExpressionUUID->"574b810b-aa4a-d545-b080-c44fbe83a713"], +Cell[217833, 5880, 636, 14, 176, "Message",ExpressionUUID->"22be0870-750a-4776-8b47-08a414f888c4"], +Cell[218472, 5896, 636, 14, 176, "Message",ExpressionUUID->"f1087944-dba4-4311-b9a0-1a9f82f35d10"], +Cell[219111, 5912, 634, 14, 176, "Message",ExpressionUUID->"8869753e-d64f-4c8d-b4f3-0a5d07486cc2"], +Cell[219748, 5928, 494, 11, 77, "Message",ExpressionUUID->"05f855dc-242c-4116-b58c-06351cbced2d"], +Cell[220245, 5941, 190, 2, 59, "Output",ExpressionUUID->"2c57bbbe-f556-4bcd-b58f-c66f104abbda"] +}, Open ]], +Cell[CellGroupData[{ +Cell[220472, 5948, 2207, 61, 594, "Input",ExpressionUUID->"3d7dd6a2-2692-2b4d-8922-656c90598e75"], +Cell[222682, 6011, 634, 14, 176, "Message",ExpressionUUID->"dce40651-d940-4494-9f94-0ca79c282f11"], +Cell[223319, 6027, 634, 14, 176, "Message",ExpressionUUID->"8960b426-f46d-45e8-a32e-98d7071cf0d7"], +Cell[223956, 6043, 633, 14, 176, "Message",ExpressionUUID->"5e1d41d0-3656-4c18-b937-2c5a972c8dc9"], +Cell[224592, 6059, 489, 11, 77, "Message",ExpressionUUID->"ea1fa648-30ea-452f-bdf3-ba44b6077245"], +Cell[225084, 6072, 185, 2, 59, "Output",ExpressionUUID->"4ee3d246-49f7-4604-b9aa-98294dbb7981"] +}, Open ]], +Cell[CellGroupData[{ +Cell[225306, 6079, 2047, 54, 432, "Input",ExpressionUUID->"9c540ba7-8bb4-ef46-919c-62296271f174"], +Cell[227356, 6135, 20483, 384, 321, "Output",ExpressionUUID->"b1e19d25-10aa-4ccd-9507-4ad3364fbbba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[247876, 6524, 2247, 62, 698, "Input",ExpressionUUID->"6e33cb28-ef1e-1547-b52d-2171e7786920"], +Cell[250126, 6588, 530, 12, 176, "Message",ExpressionUUID->"f36b8d41-3364-4475-b03b-c48203e36fc4"], +Cell[250659, 6602, 534, 12, 147, "Message",ExpressionUUID->"86d3516d-9439-43cf-a714-066b7c9d9933"], +Cell[251196, 6616, 535, 12, 176, "Message",ExpressionUUID->"9c1f2c1a-8678-4145-b8a2-b56d4204407d"], +Cell[251734, 6630, 491, 11, 77, "Message",ExpressionUUID->"9923a251-639a-485e-a039-262f82ea394f"], +Cell[252228, 6643, 21806, 404, 320, "Output",ExpressionUUID->"d61e5e47-1b93-4fef-a02b-9a545f6374ee"] +}, Open ]], +Cell[CellGroupData[{ +Cell[274071, 7052, 2471, 69, 637, "Input",ExpressionUUID->"2d5a8299-5376-9747-8056-2bd9764114a1"], +Cell[276545, 7123, 9492, 222, 329, "Output",ExpressionUUID->"84476e34-2c4b-47a5-b5ba-6e35826673d4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[286074, 7350, 228, 4, 52, "Input",ExpressionUUID->"d5fa6d0d-0ad8-f845-b7df-0ac982b58a3a"], +Cell[286305, 7356, 28170, 536, 320, "Output",ExpressionUUID->"45a764d9-9554-459c-b6e3-656b3b0fd534"] +}, Open ]], +Cell[CellGroupData[{ +Cell[314512, 7897, 236, 6, 85, "Input",ExpressionUUID->"650e43f8-1352-de46-8137-52adca93b0cf"], +Cell[314751, 7905, 191, 2, 59, "Output",ExpressionUUID->"86c7cbc8-4ba0-477e-853b-38cd01b941a6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[314979, 7912, 1968, 55, 643, "Input",ExpressionUUID->"9ad75b45-8f6d-114b-80bd-d2b12a49fd20"], +Cell[316950, 7969, 634, 14, 176, "Message",ExpressionUUID->"eae47a12-a7d4-4a8a-803c-10bff3111038"], +Cell[317587, 7985, 632, 14, 176, "Message",ExpressionUUID->"4e9cdb04-c38c-4ee1-a813-2f38664bc663"], +Cell[318222, 8001, 635, 14, 176, "Message",ExpressionUUID->"3eeb4524-e5a3-471d-ba7f-3a90cfef44e2"], +Cell[318860, 8017, 491, 11, 77, "Message",ExpressionUUID->"90310274-bd6f-4bf1-b096-f48a97eae2e9"], +Cell[319354, 8030, 22771, 419, 320, "Output",ExpressionUUID->"35a8d244-aabd-47fc-add9-f970c6c5a326"] +}, Open ]], +Cell[CellGroupData[{ +Cell[342162, 8454, 1648, 50, 433, "Input",ExpressionUUID->"94eefac7-0bb7-7249-8430-0b2ddd6df117"], +Cell[343813, 8506, 632, 13, 176, "Message",ExpressionUUID->"4cb6911a-250f-42cf-87c9-8227747a2f3f"], +Cell[344448, 8521, 634, 13, 176, "Message",ExpressionUUID->"9c4e789c-5a95-498c-8f0a-ca9a7c57020a"], +Cell[345085, 8536, 631, 13, 176, "Message",ExpressionUUID->"ef23e22a-462a-41da-aa1a-4569e5e7b78c"], +Cell[345719, 8551, 495, 11, 77, "Message",ExpressionUUID->"19b38555-0997-4007-85cb-901ba198132e"], +Cell[346217, 8564, 195, 3, 59, "Output",ExpressionUUID->"8bc479f9-f47b-48b9-9920-0ae96d9283a4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[346449, 8572, 2296, 65, 652, "Input",ExpressionUUID->"1d118f77-7d68-dd41-b0af-09454f88e7f1"], +Cell[348748, 8639, 641, 14, 176, "Message",ExpressionUUID->"b55d7f8f-61d2-4552-822c-5751bea7b540"], +Cell[349392, 8655, 639, 14, 176, "Message",ExpressionUUID->"e5cdaef4-1d0c-4008-8c69-de0c195e6bbf"], +Cell[350034, 8671, 640, 14, 176, "Message",ExpressionUUID->"b88033d4-7cc7-4990-be88-83a31a7ac11f"], +Cell[350677, 8687, 494, 11, 77, "Message",ExpressionUUID->"f270c531-cbed-4ae7-bab5-21095ceff7a1"], +Cell[351174, 8700, 194, 3, 59, "Output",ExpressionUUID->"eea56f4a-3a9c-48d8-857d-49fd36946e23"] +}, Open ]], +Cell[CellGroupData[{ +Cell[351405, 8708, 2233, 63, 652, "Input",ExpressionUUID->"c8039063-5f4d-134a-b6ba-e19335f7a9f6"], +Cell[353641, 8773, 637, 14, 176, "Message",ExpressionUUID->"544fb235-6fbe-40c9-9c09-183a93850e15"], +Cell[354281, 8789, 637, 14, 176, "Message",ExpressionUUID->"96200436-e067-4fbd-9350-eb8e29e1b9a6"], +Cell[354921, 8805, 636, 14, 176, "Message",ExpressionUUID->"726057a5-9e8f-4a15-a360-cbd20ba44beb"], +Cell[355560, 8821, 493, 11, 77, "Message",ExpressionUUID->"26aec134-5c8c-4987-8582-70301c17f22a"], +Cell[356056, 8834, 196, 3, 59, "Output",ExpressionUUID->"455c6014-3368-4ceb-a03d-154484fb1d6d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[356289, 8842, 2235, 63, 652, "Input",ExpressionUUID->"a474307a-af78-3040-90ec-fb8d284b16bb"], +Cell[358527, 8907, 639, 14, 176, "Message",ExpressionUUID->"0c893ece-5942-46b3-bfcb-2df4bf37dfe1"], +Cell[359169, 8923, 639, 14, 176, "Message",ExpressionUUID->"ae357f8e-4bac-4711-9bac-0086c1a9d0cb"], +Cell[359811, 8939, 638, 14, 176, "Message",ExpressionUUID->"852e71b8-ce83-4bcf-8da6-5aa5e2932212"], +Cell[360452, 8955, 497, 11, 77, "Message",ExpressionUUID->"f85b107c-2c22-4b65-b985-5c7b20bf4389"], +Cell[360952, 8968, 192, 3, 59, "Output",ExpressionUUID->"27802863-778d-4322-a08e-c8f3be893282"] +}, Open ]], +Cell[CellGroupData[{ +Cell[361181, 8976, 236, 6, 83, "Input",ExpressionUUID->"ce14ed0e-a62a-1e46-b7cf-f67bfdbd9bc7"], +Cell[361420, 8984, 195, 3, 59, "Output",ExpressionUUID->"b6702cb9-8de4-4083-98c6-1019aa3518a9"] +}, Open ]], +Cell[361630, 8990, 270, 6, 52, "Input",ExpressionUUID->"d104d373-080a-854b-92ff-e87abbd4c41c"], +Cell[CellGroupData[{ +Cell[361925, 9000, 558, 19, 93, "Input",ExpressionUUID->"b6bc4645-bb9b-da49-b314-4566a6ca9506"], +Cell[362486, 9021, 197, 3, 59, "Output",ExpressionUUID->"e4ce3d41-75ff-4762-8e1b-7e35b779a3b9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[362720, 9029, 170, 5, 98, "Input",ExpressionUUID->"1f225213-8143-a346-8c4e-e69f41e85c6f"], +Cell[362893, 9036, 193, 3, 59, "Output",ExpressionUUID->"de86b9df-8ab0-43d7-b5ce-3adf5ed89249"] +}, Open ]], +Cell[CellGroupData[{ +Cell[363123, 9044, 181, 5, 77, "Input",ExpressionUUID->"4b9388d7-dfe0-ca44-90a4-ea60f173579a"], +Cell[363307, 9051, 195, 3, 59, "Output",ExpressionUUID->"6e6d6412-ce2d-4cec-8c9b-41804fd9f3dd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[363539, 9059, 6055, 185, 1957, "Input",ExpressionUUID->"b0d5a77d-c2c5-e84d-b4be-bec051c1557c"], +Cell[369597, 9246, 199, 3, 59, "Output",ExpressionUUID->"56fa460b-1a13-4326-a7b8-e2a113231e0a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[369833, 9254, 368, 9, 75, "Input",ExpressionUUID->"e543ccd6-d1e6-3c4d-9364-2a9eec09292b"], +Cell[370204, 9265, 195, 3, 59, "Output",ExpressionUUID->"704e737e-2b4c-4282-9202-e77ee38246bf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[370436, 9273, 6122, 187, 1865, "Input",ExpressionUUID->"50e98a1c-f33a-9242-9267-bbd8a1753662"], +Cell[376561, 9462, 193, 3, 59, "Output",ExpressionUUID->"ebd4f57c-3b88-44bd-86f4-04a59e314092"] +}, Open ]], +Cell[CellGroupData[{ +Cell[376791, 9470, 368, 9, 75, "Input",ExpressionUUID->"339251a5-83bd-8642-8c5c-4fff9ebe10d7"], +Cell[377162, 9481, 194, 3, 59, "Output",ExpressionUUID->"f319bff5-43f3-4967-8147-2088cbdaa2c4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[377393, 9489, 2663, 88, 804, "Input",ExpressionUUID->"ad1f9bb1-e9e6-5b4f-9f95-8eeef0cc66ae"], +Cell[380059, 9579, 194, 3, 59, "Output",ExpressionUUID->"dbc3d442-3b74-4c7d-a719-6e1358bc8590"] +}, Open ]], +Cell[CellGroupData[{ +Cell[380290, 9587, 2603, 85, 804, "Input",ExpressionUUID->"4b0fdfc8-7d81-3a4d-90ed-a9bb76dc96a0"], +Cell[382896, 9674, 193, 3, 59, "Output",ExpressionUUID->"ef62bcea-3070-4b1e-9d74-0634f24d432d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[383126, 9682, 3712, 118, 1253, "Input",ExpressionUUID->"31524ab0-bcc9-e948-9393-cfc225600ff2"], +Cell[386841, 9802, 193, 3, 59, "Output",ExpressionUUID->"7d71abb6-50ac-4510-83ca-1da32051ae20"] +}, Open ]], +Cell[CellGroupData[{ +Cell[387071, 9810, 2211, 62, 594, "Input",ExpressionUUID->"486d514f-ec65-1e4e-b780-7e9487f745c3"], +Cell[389285, 9874, 638, 14, 176, "Message",ExpressionUUID->"39e6f00a-efb1-4c25-b38c-e88d6b38a07d"], +Cell[389926, 9890, 637, 14, 176, "Message",ExpressionUUID->"136832f4-a9e9-4d94-a129-28ce47e571e0"], +Cell[390566, 9906, 638, 14, 176, "Message",ExpressionUUID->"0cd99365-defd-48a7-a74c-89829616a43d"], +Cell[391207, 9922, 493, 11, 77, "Message",ExpressionUUID->"412deb31-1885-4510-adaf-8a62d2ce0258"], +Cell[391703, 9935, 195, 3, 59, "Output",ExpressionUUID->"714102eb-9c9c-4d69-aeba-1105209ac891"] +}, Open ]], +Cell[CellGroupData[{ +Cell[391935, 9943, 2213, 62, 594, "Input",ExpressionUUID->"c7144ce5-8356-d548-8854-18c538c3321c"], +Cell[394151, 10007, 636, 14, 176, "Message",ExpressionUUID->"fe1477d2-ff76-4d85-b774-3a75d3207545"], +Cell[394790, 10023, 637, 14, 176, "Message",ExpressionUUID->"c023a47a-bfb1-4eb9-ba7e-b587bd40611b"], +Cell[395430, 10039, 636, 14, 176, "Message",ExpressionUUID->"7926a665-af58-4dfd-ab48-431a6be891cc"], +Cell[396069, 10055, 493, 11, 77, "Message",ExpressionUUID->"ea7d4b52-e1f2-40b7-8630-a718037139b9"], +Cell[396565, 10068, 192, 3, 59, "Output",ExpressionUUID->"342d6500-dd12-4f35-9797-b79ebed9f722"] +}, Open ]], +Cell[CellGroupData[{ +Cell[396794, 10076, 2051, 55, 432, "Input",ExpressionUUID->"b2db949b-a7b9-8f4b-afbd-a45df2eabf0c"], +Cell[398848, 10133, 20140, 380, 321, "Output",ExpressionUUID->"88928f54-2021-4241-b217-16d85b313ed0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[419025, 10518, 2279, 63, 698, "Input",ExpressionUUID->"92d458c4-bfde-c447-a06c-70a15768b745"], +Cell[421307, 10583, 528, 12, 132, "Message",ExpressionUUID->"dedaf619-f273-402a-b021-a9dc5bde2fc6"], +Cell[421838, 10597, 530, 12, 176, "Message",ExpressionUUID->"c306c8bb-5361-4a32-ba1e-f54851031fa5"], +Cell[422371, 10611, 534, 12, 176, "Message",ExpressionUUID->"614f2117-1745-4182-9a2c-431b28aed99f"], +Cell[422908, 10625, 495, 11, 77, "Message",ExpressionUUID->"c9c18017-91a6-47b3-b422-19cfca301dfa"], +Cell[423406, 10638, 22168, 411, 329, "Output",ExpressionUUID->"c061ad2c-a916-474d-ac9d-813921802076"] +}, Open ]], +Cell[CellGroupData[{ +Cell[445611, 11054, 232, 5, 52, "Input",ExpressionUUID->"e1c8585a-8b57-f841-82e1-8e8787fb2589"], +Cell[445846, 11061, 28526, 543, 329, "Output",ExpressionUUID->"a8306cd5-0bb4-4974-af96-647c0a4e787f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[474409, 11609, 1648, 50, 433, "Input",ExpressionUUID->"8cd26316-ef9d-184c-93c8-dd96bfd24ea1"], +Cell[476060, 11661, 634, 14, 176, "Message",ExpressionUUID->"94abbce6-89da-485f-8487-4761cc2bade1"], +Cell[476697, 11677, 639, 14, 176, "Message",ExpressionUUID->"e6d9a65f-4913-4ca4-ab43-5df6b0770b63"], +Cell[477339, 11693, 639, 14, 176, "Message",ExpressionUUID->"abaff2fd-236a-4a22-bd1f-d04294542efb"], +Cell[477981, 11709, 497, 11, 77, "Message",ExpressionUUID->"110f3842-8a94-4bb8-b1c0-c59c835187e0"], +Cell[478481, 11722, 197, 3, 59, "Output",ExpressionUUID->"0f4377f9-22ed-44af-b1fe-715803dd5881"] +}, Open ]], +Cell[CellGroupData[{ +Cell[478715, 11730, 2271, 64, 652, "Input",ExpressionUUID->"e0ae6f48-c6a6-a24c-812a-30286a178ca1"], +Cell[480989, 11796, 638, 14, 176, "Message",ExpressionUUID->"90f18040-ddee-413d-a3d5-1d7cb861019a"], +Cell[481630, 11812, 641, 14, 176, "Message",ExpressionUUID->"51fcd323-7656-4ac7-abb1-bc9afbf07439"], +Cell[482274, 11828, 637, 14, 176, "Message",ExpressionUUID->"82259213-018a-4904-a19a-367dec60da7a"], +Cell[482914, 11844, 495, 11, 77, "Message",ExpressionUUID->"36c26f9c-0ba2-4e37-80c3-4f1962319e91"], +Cell[483412, 11857, 197, 3, 59, "Output",ExpressionUUID->"137b6d70-ffb9-4340-ad9b-2b529998f0fd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[483646, 11865, 2229, 63, 652, "Input",ExpressionUUID->"bce0eb71-ca49-364f-a3be-8e8c3542c5fb"], +Cell[485878, 11930, 638, 14, 176, "Message",ExpressionUUID->"88278fe5-41ac-4c40-b91a-9191551d68dd"], +Cell[486519, 11946, 639, 14, 176, "Message",ExpressionUUID->"dccdf86c-6650-423c-94a8-34327f091d47"], +Cell[487161, 11962, 638, 14, 176, "Message",ExpressionUUID->"c3bb059d-f9d3-441a-9af3-2b71c3c3c7e7"], +Cell[487802, 11978, 497, 11, 77, "Message",ExpressionUUID->"0aa815a2-9cfe-40a8-9644-e089cd3e6b34"], +Cell[488302, 11991, 192, 3, 59, "Output",ExpressionUUID->"6acf4d39-8dd7-4ee7-82ae-3a52d0d3bdcf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[488531, 11999, 2235, 63, 652, "Input",ExpressionUUID->"935796a8-6280-564a-b4d0-fc6fb6cd41f8"], +Cell[490769, 12064, 636, 14, 176, "Message",ExpressionUUID->"1bdca934-aa18-4474-bf58-4a62bbf364b0"], +Cell[491408, 12080, 637, 14, 176, "Message",ExpressionUUID->"edfa9e98-c718-46e3-a960-fc9763e922e1"], +Cell[492048, 12096, 636, 14, 176, "Message",ExpressionUUID->"76fe9874-9bcd-4bc6-ad7a-d1a5990dbfaa"], +Cell[492687, 12112, 492, 11, 77, "Message",ExpressionUUID->"f6a5525d-cbb0-4b68-af6d-ff2921916a04"], +Cell[493182, 12125, 194, 3, 59, "Output",ExpressionUUID->"6bb68891-e9d7-49c4-9c6d-155d75fd40e4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[493413, 12133, 236, 6, 83, "Input",ExpressionUUID->"ee52036b-90c5-e14a-aed9-684ff23ed035"], +Cell[493652, 12141, 198, 3, 59, "Output",ExpressionUUID->"67f04177-ba34-4075-87d7-3ead7b8fb66f"] +}, Open ]], +Cell[493865, 12147, 273, 6, 52, "Input",ExpressionUUID->"c6d4a146-4cca-7e4e-b483-85227a6e6b51"], +Cell[CellGroupData[{ +Cell[494163, 12157, 558, 19, 93, "Input",ExpressionUUID->"28979542-d43a-e54a-88e0-087a68060d62"], +Cell[494724, 12178, 195, 3, 59, "Output",ExpressionUUID->"aaf92cda-1b86-4f5b-92f7-8e6a6b30ee46"] +}, Open ]], +Cell[CellGroupData[{ +Cell[494956, 12186, 170, 5, 98, "Input",ExpressionUUID->"c3303a76-2bd9-454b-b35d-6119cde0197e"], +Cell[495129, 12193, 195, 3, 59, "Output",ExpressionUUID->"ce85bdae-3377-4641-b036-6a310c63b572"] +}, Open ]], +Cell[CellGroupData[{ +Cell[495361, 12201, 181, 5, 77, "Input",ExpressionUUID->"b83c9900-e14a-064d-b097-089d758a0eb6"], +Cell[495545, 12208, 194, 3, 59, "Output",ExpressionUUID->"34121a2a-f44e-4a18-9cde-198c0c70e603"] +}, Open ]], +Cell[CellGroupData[{ +Cell[495776, 12216, 6055, 185, 1957, "Input",ExpressionUUID->"17437a0c-d9be-a242-b57f-efef95056982"], +Cell[501834, 12403, 195, 3, 59, "Output",ExpressionUUID->"205d4e86-0168-4fe4-96b3-4d53520ae7d3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[502066, 12411, 368, 9, 75, "Input",ExpressionUUID->"b3706ed1-2e71-9941-86c4-d789cf8ea193"], +Cell[502437, 12422, 195, 3, 59, "Output",ExpressionUUID->"fe5b6423-5101-446b-a81c-4780f97e3062"] +}, Open ]], +Cell[CellGroupData[{ +Cell[502669, 12430, 6122, 187, 1865, "Input",ExpressionUUID->"2dad5775-7b90-2241-a408-e59b2ea47cb0"], +Cell[508794, 12619, 194, 3, 59, "Output",ExpressionUUID->"5a9dcbc8-a693-4079-82d1-69e39a88d1a2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[509025, 12627, 368, 9, 75, "Input",ExpressionUUID->"ea913ab0-daa5-1f4d-93f4-2e6143537b5d"], +Cell[509396, 12638, 191, 3, 59, "Output",ExpressionUUID->"78d95ec0-3d6a-4196-923a-b5b99d17ed69"] +}, Open ]], +Cell[CellGroupData[{ +Cell[509624, 12646, 2663, 88, 804, "Input",ExpressionUUID->"53a0bfe7-010b-d445-822a-52c57127f779"], +Cell[512290, 12736, 193, 3, 59, "Output",ExpressionUUID->"82ddb770-8a8f-416a-b89d-cfb25d5f9cf3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[512520, 12744, 2603, 85, 804, "Input",ExpressionUUID->"4e482268-3ff3-d74a-9ba6-ed262245ad4b"], +Cell[515126, 12831, 197, 3, 59, "Output",ExpressionUUID->"2593f17e-18fa-48ab-96f8-8e849745e338"] +}, Open ]], +Cell[CellGroupData[{ +Cell[515360, 12839, 3712, 118, 1253, "Input",ExpressionUUID->"df39eab0-0939-764b-8de6-27d0ba2be7e8"], +Cell[519075, 12959, 196, 3, 59, "Output",ExpressionUUID->"ffd1795a-baac-459d-8e34-dd0950319a98"] +}, Open ]], +Cell[CellGroupData[{ +Cell[519308, 12967, 2211, 62, 594, "Input",ExpressionUUID->"6b25ec99-ae49-ec4d-9652-65328572e509"], +Cell[521522, 13031, 639, 14, 176, "Message",ExpressionUUID->"83a663dd-5d5c-4730-9302-65523287fcc5"], +Cell[522164, 13047, 638, 14, 176, "Message",ExpressionUUID->"61033881-174a-45ca-95fe-eb92f626e1a2"], +Cell[522805, 13063, 639, 14, 176, "Message",ExpressionUUID->"16d4e6d4-3057-4e4f-b973-583240d05035"], +Cell[523447, 13079, 493, 11, 77, "Message",ExpressionUUID->"d086677b-75c0-42fb-8883-94de3358ed14"], +Cell[523943, 13092, 195, 3, 59, "Output",ExpressionUUID->"3a021a9a-bf07-4cfa-8af6-33125bb52709"] +}, Open ]], +Cell[CellGroupData[{ +Cell[524175, 13100, 2211, 62, 594, "Input",ExpressionUUID->"3e2baf62-fab9-eb41-8de7-aa229443ac14"], +Cell[526389, 13164, 637, 14, 176, "Message",ExpressionUUID->"309f4a0d-5456-446e-b6f9-cf58a3add548"], +Cell[527029, 13180, 638, 14, 176, "Message",ExpressionUUID->"92d54608-3f9c-493f-be9e-20c2efc824b7"], +Cell[527670, 13196, 637, 14, 176, "Message",ExpressionUUID->"857cd115-c12f-4997-9ff2-0881d8e0e041"], +Cell[528310, 13212, 493, 11, 77, "Message",ExpressionUUID->"cafcbde6-a084-4612-a2e6-092cf292ed04"], +Cell[528806, 13225, 194, 3, 59, "Output",ExpressionUUID->"1fca7357-9fe5-4354-aed4-27bd046160fe"] +}, Open ]], +Cell[CellGroupData[{ +Cell[529037, 13233, 2051, 55, 432, "Input",ExpressionUUID->"725c3011-bda9-4c42-96ce-9a77a5dc787c"], +Cell[531091, 13290, 20346, 381, 321, "Output",ExpressionUUID->"3d7c9962-e672-48a9-bd3c-fb2b4905f495"] +}, Open ]], +Cell[CellGroupData[{ +Cell[551474, 13676, 2277, 63, 698, "Input",ExpressionUUID->"1ea503b1-33a1-2744-a92d-2e1269faf5ed"], +Cell[553754, 13741, 533, 12, 176, "Message",ExpressionUUID->"43bb0a80-2e29-4ce2-b0c5-e50f348e7be7"], +Cell[554290, 13755, 535, 12, 176, "Message",ExpressionUUID->"8b5d977c-e97b-44fa-b1f7-49ecfb6bfd50"], +Cell[554828, 13769, 536, 12, 147, "Message",ExpressionUUID->"ddb34712-6f05-44f0-ba7c-7acad657cb9a"], +Cell[555367, 13783, 497, 11, 77, "Message",ExpressionUUID->"0ec7715e-6706-4388-a978-e4bc1b9a7918"], +Cell[555867, 13796, 22411, 414, 320, "Output",ExpressionUUID->"08e8a7f5-b3e7-4e5f-9649-94f32335ebd4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[578315, 14215, 232, 5, 52, "Input",ExpressionUUID->"b530b35f-2a32-0145-82a7-25a7a01bdd8f"], +Cell[578550, 14222, 28771, 546, 320, "Output",ExpressionUUID->"5eac8b6a-967c-45a7-93ac-59ac89b7404f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[607358, 14773, 1648, 50, 433, "Input",ExpressionUUID->"a0d63734-417a-b84f-b5c7-88ca33cb9355"], +Cell[609009, 14825, 636, 13, 176, "Message",ExpressionUUID->"ef288e4c-45c7-425f-85fc-85a16d0e82ac"], +Cell[609648, 14840, 634, 13, 176, "Message",ExpressionUUID->"76fc9988-439a-4096-bd37-d91b7b38fd2b"], +Cell[610285, 14855, 641, 14, 176, "Message",ExpressionUUID->"36abd259-6a7e-4d5c-b178-5cd46d6ca1c7"], +Cell[610929, 14871, 495, 11, 77, "Message",ExpressionUUID->"aa87fc08-0af2-477a-ade5-c7464139e24a"], +Cell[611427, 14884, 192, 3, 59, "Output",ExpressionUUID->"2a5516bb-ce81-4669-8aa0-1f74db7ab235"] +}, Open ]], +Cell[CellGroupData[{ +Cell[611656, 14892, 2274, 64, 652, "Input",ExpressionUUID->"97b28b29-5d04-5c42-a0e8-93b70f20e7f6"], +Cell[613933, 14958, 639, 14, 176, "Message",ExpressionUUID->"508496eb-d80a-4b02-8e71-735c00f553f3"], +Cell[614575, 14974, 638, 14, 176, "Message",ExpressionUUID->"97107251-8b92-4af6-b75c-60b42fe07a69"], +Cell[615216, 14990, 639, 14, 176, "Message",ExpressionUUID->"bf3590c8-9f83-4396-bfb3-8bcbc1bc022b"], +Cell[615858, 15006, 495, 11, 77, "Message",ExpressionUUID->"20d08ec6-6b17-4366-af0c-27d4cde8bf11"], +Cell[616356, 15019, 196, 3, 59, "Output",ExpressionUUID->"89691c03-f016-4ea4-9208-3d14bfa2dbbe"] +}, Open ]], +Cell[CellGroupData[{ +Cell[616589, 15027, 2233, 63, 652, "Input",ExpressionUUID->"f9d1ad25-05cb-d544-8ab6-cdce838d9efe"], +Cell[618825, 15092, 639, 14, 176, "Message",ExpressionUUID->"1c3635a6-d127-4eee-8857-381c9d50473c"], +Cell[619467, 15108, 638, 14, 176, "Message",ExpressionUUID->"3a17edf3-74bb-406b-8703-b141f3f724b7"], +Cell[620108, 15124, 639, 14, 176, "Message",ExpressionUUID->"6c6a122c-f870-4da9-912c-128a05fc35e5"], +Cell[620750, 15140, 495, 11, 77, "Message",ExpressionUUID->"c8cf0724-96a0-488c-9a1a-ba48cce519e9"], +Cell[621248, 15153, 195, 3, 59, "Output",ExpressionUUID->"62c09b89-1d7d-4dac-b518-e58faf5f7602"] +}, Open ]], +Cell[CellGroupData[{ +Cell[621480, 15161, 2233, 63, 652, "Input",ExpressionUUID->"0794d062-69d5-0a45-936e-533b19d33de6"], +Cell[623716, 15226, 641, 14, 176, "Message",ExpressionUUID->"eb768628-012b-4393-9fbc-20989ea8f5a1"], +Cell[624360, 15242, 638, 14, 176, "Message",ExpressionUUID->"29372c91-5af5-4147-95b6-f3d836a5c607"], +Cell[625001, 15258, 639, 14, 176, "Message",ExpressionUUID->"dca8ba27-5291-4764-9c36-d4481cc6ae62"], +Cell[625643, 15274, 495, 11, 77, "Message",ExpressionUUID->"85287ca0-dcf6-4e49-9866-01853356a42e"], +Cell[626141, 15287, 194, 3, 59, "Output",ExpressionUUID->"4e9d35a8-2e0a-4f90-afea-4495d800cab9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[626372, 15295, 238, 6, 83, "Input",ExpressionUUID->"95c56266-e4d3-624e-89c1-cedeeeb0247a"], +Cell[626613, 15303, 195, 3, 59, "Output",ExpressionUUID->"17e7a906-0d1f-416e-beb2-6925be89075b"] +}, Open ]], +Cell[626823, 15309, 143, 3, 52, "Input",ExpressionUUID->"e9226219-193c-43a8-b77a-0d6c9eeed7a0"] } ] *) -(* End of internal cache information *) - diff --git a/Pu240_798-811_TitovAA/162-78_h_Pu240_16-17/h_162-78_Pu240_16-17_pr_Qw1.nb b/Pu240_798-811_TitovAA/162-78_h_Pu240_16-17/h_162-78_Pu240_16-17_pr_Qw1.nb index 14330be..a636ff4 100644 --- a/Pu240_798-811_TitovAA/162-78_h_Pu240_16-17/h_162-78_Pu240_16-17_pr_Qw1.nb +++ b/Pu240_798-811_TitovAA/162-78_h_Pu240_16-17/h_162-78_Pu240_16-17_pr_Qw1.nb @@ -3,42 +3,4836 @@ (*** 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[ 678342, 16127] +NotebookOptionsPosition[ 637708, 15477] +NotebookOutlinePosition[ 638172, 15496] +CellTagsIndexPosition[ 638129, 15493] 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", "=", "1.9"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.993815944576231*^9, 3.9938159912638187`*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"19a27e2e-f08e-47aa-9bcf-c5bcd39b4edb"], + +Cell[BoxData["1.9`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, 3.993815823692334*^9, 3.993815892498139*^9, { + 3.993815951583488*^9, 3.993815995572467*^9}, {3.994012734609342*^9, + 3.994012752893778*^9}, 3.994013277610882*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"4bd0d14d-94bc-4b99-9dd6-63c2a1390db0"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.9940127288140783`*^9, 3.994012729590282*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"1450c04f-bf28-46b0-838c-9b025de604c0"], + +Cell[BoxData["240"], "Output", CellChangeTimes->{ - 3.9918488509977226`*^9},ExpressionUUID->"45ed831b-459a-9a41-990f-\ -c079ad464f5d"], + 3.9913196497381973`*^9, 3.993815823952688*^9, 3.993815892560748*^9, { + 3.993815951668881*^9, 3.993815995613329*^9}, {3.9940127346784067`*^9, + 3.9940127529711943`*^9}, 3.994013277660928*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"04a8cebc-d599-4d8a-b041-955b8e758d30"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "162"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.9938155158752823`*^9, 3.9938155169971247`*^9}}, + CellLabel->"In[3]:=",ExpressionUUID->"e22d17af-da83-4f5c-b517-391f71766ced"], + +Cell[BoxData["162"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.993815823968458*^9, 3.9938158925714483`*^9, { + 3.9938159516818027`*^9, 3.9938159956283493`*^9}, {3.9940127346926413`*^9, + 3.994012752988037*^9}, 3.994013277671624*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"0f42bd97-8143-45c7-bb69-656c00a1cefb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"6d8d84c0-fa33-4121-a06b-07a297142f9a"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.9938158239856167`*^9, 3.99381589258189*^9, { + 3.99381595169417*^9, 3.993815995642021*^9}, {3.994012734706458*^9, + 3.994012753004796*^9}, 3.994013277678585*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"a83cd4b5-0dab-4f41-8da4-a130ab0f4344"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"d7fd71bb-1199-4d8a-81b6-81b539a494b6"], + +Cell[BoxData["0.5447500000000001`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.993815824003376*^9, 3.993815892586231*^9, { + 3.99381595170667*^9, 3.993815995646203*^9}, {3.9940127347201777`*^9, + 3.994012753022193*^9}, 3.994013277685717*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"83d50f33-6085-47b4-a994-4928e123c86c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"5afe470b-c7b0-418b-9e8b-54b8f197f771"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.993815824023213*^9, 3.993815892602899*^9, { + 3.9938159517115383`*^9, 3.9938159956645737`*^9}, {3.994012734734274*^9, + 3.994012753038806*^9}, 3.9940132776925573`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"ef4d5f04-d90f-4395-ae94-9ffbde94092c"] +}, 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->"085efb7d-04a6-44e5-a34b-98d3abb7ed75"], + +Cell[BoxData["6.323579663055845`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.993815824039893*^9, 3.993815892613652*^9, { + 3.993815951728698*^9, 3.993815995677742*^9}, {3.994012734748405*^9, + 3.994012753044726*^9}, 3.9940132776997747`*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"b457b99b-f344-43a7-8863-d820b3c7842e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"3ca1b160-e10c-4f09-95c6-883da8e3c1ba"], + +Cell[BoxData["4.956284070769583`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.9938158240572863`*^9, 3.993815892624365*^9, { + 3.9938159517417*^9, 3.993815995691177*^9}, {3.994012734763052*^9, + 3.994012753070916*^9}, 3.994013277706771*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"0878a468-f215-497e-bbdf-58ddedfba2f6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.95921"}]], "Input", + CellChangeTimes->{ + 3.991799283179735*^9, {3.993815616610156*^9, 3.993815618917514*^9}, { + 3.9938156766732063`*^9, 3.993815681630651*^9}}, + CellLabel->"In[9]:=",ExpressionUUID->"463f041f-e0d1-4ec1-a4f9-eb59222f3cf6"], + +Cell[BoxData["0.95921`"], "Output", + CellChangeTimes->{ + 3.9938158240746737`*^9, 3.9938158926348877`*^9, {3.993815951754884*^9, + 3.993815995704525*^9}, {3.994012734778141*^9, 3.994012753087864*^9}, + 3.994013277713622*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"e9c2ce7e-cdaf-4b47-b453-92df5523061f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.40907"}]], "Input", + CellChangeTimes->{ + 3.991799280663351*^9, {3.993815686480484*^9, 3.993815701548067*^9}}, + CellLabel->"In[10]:=",ExpressionUUID->"d4975be1-b929-4b6a-bcea-6cf362b61692"], + +Cell[BoxData["0.40907`"], "Output", + CellChangeTimes->{ + 3.993815824091074*^9, 3.993815892645401*^9, {3.993815951767627*^9, + 3.993815995717485*^9}, {3.994012734791346*^9, 3.99401275310209*^9}, + 3.994013277720595*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"6819128d-ff4c-436f-8d26-b7d2e46dd232"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"cf615baa-1182-4548-a1fe-b800fbde02c9"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.993815824106497*^9, 3.9938158926558847`*^9, { + 3.993815951780663*^9, 3.993815995730535*^9}, {3.9940127348044577`*^9, + 3.994012753117031*^9}, 3.994013277727453*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"81634846-25a7-4a7a-ad44-9eca507a007e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"9a2b7e94-5c30-4ffc-a84b-bff52e111d7d"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.993815824123843*^9, 3.9938158926663837`*^9, { + 3.993815951793076*^9, 3.993815995743602*^9}, {3.994012734818459*^9, + 3.994012753131789*^9}, 3.994013277734303*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"741a95ae-fdb6-4182-b8fb-e0ced6e2e1d7"] +}, 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->"87b68da9-7698-48a0-b04f-f509432fa61a"], + +Cell[BoxData["2.4538606431456684`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.993815824141597*^9, 3.993815892677889*^9, { + 3.9938159518063183`*^9, 3.9938159957558603`*^9}, {3.994012734835313*^9, + 3.994012753146474*^9}, 3.994013277741309*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"c5a18917-5973-4891-83fb-a3bedc3be8ac"] +}, 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->"08e9a5e3-ceca-4e4d-9d85-dcdc01f15497"], + +Cell[BoxData["1.4512846433038022`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.993815824156972*^9, 3.993815892689371*^9, { + 3.9938159518190203`*^9, 3.993815995768323*^9}, {3.99401273484025*^9, + 3.994012753161911*^9}, 3.99401327774854*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"c0ab3f5b-fbc3-4357-87fe-a1b4315e5112"] +}, 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->"945f3639-1dc6-4b72-a9cb-e596544d2e7e"], + +Cell[BoxData["0.3744607025351484`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.9938158241736803`*^9, 3.993815892702938*^9, { + 3.993815951831235*^9, 3.993815995780489*^9}, {3.994012734857376*^9, + 3.994012753177943*^9}, 3.9940132777556353`*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"6bb29ad4-e55b-4998-9a8b-f21716be6dd4"] +}, 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->"45364a82-2872-40aa-84a6-a5ca1fc1cb3b"], + +Cell[BoxData[ + RowBox[{"-", "0.08358618531832765`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.993815824190381*^9, 3.993815892714963*^9, { + 3.99381595184389*^9, 3.993815995792754*^9}, {3.994012734871372*^9, + 3.9940127531931753`*^9}, 3.994013277763893*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"775ac218-e89a-4828-b39d-68a926680402"] +}, 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->"f1234c90-df2a-48b4-a59b-a0f05f3c1b1b"], + +Cell[BoxData[ + RowBox[{"-", "0.5957523139282981`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.993815824207239*^9, 3.993815892726112*^9, { + 3.993815951856346*^9, 3.9938159958051043`*^9}, {3.994012734886475*^9, + 3.994012753208178*^9}, 3.99401327777291*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"308cec26-1a97-46a0-b4aa-04ab5ab96b29"] +}, 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->"f9c4fa76-9404-46f8-9f6a-46f4b2de5826"], + +Cell[BoxData["0.713744744985854`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.993815824222714*^9, 3.993815892737419*^9, { + 3.9938159518694*^9, 3.993815995817747*^9}, {3.99401273490063*^9, + 3.994012753223435*^9}, 3.994013277790205*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"b6fc6c7d-fb83-4891-bca2-93059e313f9d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"8f81298a-b7b4-4832-9760-cc0d0f47e4c7"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.993815824238377*^9, 3.993815892748749*^9, { + 3.993815951883985*^9, 3.993815995830997*^9}, {3.994012734916293*^9, + 3.994012753238081*^9}, 3.994013277810617*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"a69963ee-697e-40c0-b733-621094c3e9e3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel->"In[20]:=",ExpressionUUID->"0dd0f791-f7d8-4ae4-a288-9ef2ff368036"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.993815824252192*^9, 3.993815892759966*^9, { + 3.993815951897129*^9, 3.9938159958447227`*^9}, {3.994012734930868*^9, + 3.9940127532525377`*^9}, 3.994013277827036*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"81616470-9375-4ffc-91de-e17e2e2507d9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"ef0e21d7-03c6-4519-ba27-f91283838a45"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.993815824265974*^9, 3.993815892777206*^9, { + 3.993815951909596*^9, 3.993815995857946*^9}, {3.994012734946954*^9, + 3.994012753268147*^9}, 3.994013277834659*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"3162b855-caf2-43c2-9869-c2b873bf8784"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"52138922-54cd-4ee4-87ed-45d472022889"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.993815824281651*^9, 3.993815892789987*^9, { + 3.993815951922598*^9, 3.993815995871676*^9}, {3.994012734961584*^9, + 3.994012753285798*^9}, 3.994013277844108*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"f50a4e07-3b71-425e-b34a-f58c4a387c57"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[23]:=",ExpressionUUID->"1638e4fa-cf9b-4a31-a0cc-1fcb246bb0ca"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.993815824297344*^9, 3.9938158928016577`*^9, { + 3.993815951935726*^9, 3.993815995884973*^9}, {3.9940127349760647`*^9, + 3.994012753303388*^9}, 3.994013277857768*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"7b1b0ff0-16fc-4cbe-bdbc-53b1f38b1310"] +}, 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.993815710443075*^9, 3.9938157105928802`*^9}}, + CellLabel->"In[24]:=",ExpressionUUID->"2f620471-b63c-4771-87a3-006e2c0a21aa"], + +Cell[BoxData["66"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, 3.993815824312414*^9, 3.993815892812936*^9, { + 3.9938159519479322`*^9, 3.9938159958976*^9}, {3.994012734991516*^9, + 3.994012753318815*^9}, 3.994013277868745*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"7bb9ad5d-c994-4f4a-a26a-dd8170ac5a7a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, {3.993815715623077*^9, 3.993815715723624*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"ef347321-9358-4b45-bff8-80e580059290"], + +Cell[BoxData["28"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.9938158243255568`*^9, 3.993815892824174*^9, { + 3.993815951962007*^9, 3.993815995910904*^9}, {3.994012735006587*^9, + 3.994012753334146*^9}, 3.994013277877432*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"66c60f70-5a93-4a4b-8944-ea3bed68adbc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"bb076c83-5b70-4f65-9ae9-7a95917262a2"], + +Cell[BoxData["78"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.993815824339529*^9, 3.993815892835505*^9, { + 3.9938159519756107`*^9, 3.9938159959234123`*^9}, {3.9940127350225773`*^9, + 3.99401275334903*^9}, 3.994013277885872*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"5c916483-f52b-4911-92fd-8e31e653dc08"] +}, 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->"493c55a3-f2da-4459-a6fd-c968433db861"], + +Cell[BoxData["0.11193732193732193`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.993815824354212*^9, 3.993815892846965*^9, { + 3.99381595198964*^9, 3.993815995937854*^9}, {3.994012735036902*^9, + 3.994012753363584*^9}, 3.9940132778985043`*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"44cf2e9b-c210-4f75-903d-38d29b13a87a"] +}, 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->"b1240445-fba9-4b27-a292-2d4b4443b647"], + +Cell[BoxData[ + RowBox[{"-", "2.5617948717948718`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.9938158243693666`*^9, 3.9938158928581047`*^9, { + 3.993815952002063*^9, 3.993815995952959*^9}, {3.994012735051235*^9, + 3.994012753380294*^9}, 3.994013277906945*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"d740b62b-0036-424e-b47b-148de58590e6"] +}, 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->"35cf7260-538b-4d3c-867b-43217ff4ac8d"], + +Cell[BoxData["17.755860569879673`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.9938158243828497`*^9, 3.9938158928694487`*^9, { + 3.993815952015215*^9, 3.993815995959347*^9}, {3.994012735067181*^9, + 3.994012753395359*^9}, 3.9940132779154873`*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"320b6c36-9111-4bb3-9d8a-c2339d1e6046"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"7356a314-b541-4874-a175-22567d0759f3"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.993815824396482*^9, 3.993815892880583*^9, { + 3.993815952028016*^9, 3.993815995974369*^9}, {3.9940127350830297`*^9, + 3.994012753409977*^9}, 3.994013277924582*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"c3a2057e-b6e4-4ad2-a553-bc80e193e20c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "1.925"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { + 3.993815850527903*^9, 3.9938158535087967`*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"2d6dc8de-111b-46d0-9c7b-faaaa68ef97b"], + +Cell[BoxData["1.925`"], "Output", + CellChangeTimes->{ + 3.993815892892448*^9, {3.993815952041005*^9, 3.9938159959864597`*^9}, { + 3.994012735098775*^9, 3.994012753424415*^9}, 3.994013277938273*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"860a3804-7a6f-4237-b606-604a38ce5141"] +}, 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->"068f2919-5610-4f86-97ec-f4e5d2e7f84e"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.805"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.993815855721238*^9, 3.993815857092358*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"e7da8345-27f8-4933-b9b6-f77291a35101"], + +Cell[BoxData["0.805`"], "Output", + CellChangeTimes->{ + 3.993815892911134*^9, {3.993815952057427*^9, 3.99381599600596*^9}, { + 3.994012735117734*^9, 3.99401275345194*^9}, 3.994013277954144*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"ed7fc611-9947-492c-8fa5-7f3ef2f59e62"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel->"In[34]:=",ExpressionUUID->"d92262e3-1a4b-495c-932d-e32c0d3b8de4"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "2.5"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.993815859994154*^9, 3.993815861340933*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"32568ce9-d8b4-4134-886e-df6f440c0a37"], + +Cell[BoxData["2.5`"], "Output", + CellChangeTimes->{ + 3.9938158929287786`*^9, {3.99381595207283*^9, 3.993815996022519*^9}, { + 3.9940127351358128`*^9, 3.994012753478545*^9}, 3.994013277968444*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"968bfc63-06cf-4148-a218-a3a172b430e8"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel->"In[36]:=",ExpressionUUID->"ecd3ad3f-7309-4bff-96b7-d2195b467dae"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.165"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, {3.9938158643599787`*^9, 3.993815865676284*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"3c0faee5-bafb-4ff9-bc1b-713e9c87713d"], + +Cell[BoxData["1.165`"], "Output", + CellChangeTimes->{ + 3.993815892946157*^9, {3.9938159520880413`*^9, 3.9938159960372267`*^9}, { + 3.99401273515212*^9, 3.994012753505625*^9}, 3.994013277983292*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"5c40df3f-6508-4305-9e52-ed0350fde9a8"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel->"In[38]:=",ExpressionUUID->"5fc937a2-d829-448e-9182-28f4ed589feb"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.213"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, {3.993815868143258*^9, + 3.993815869195242*^9}}, + CellLabel->"In[39]:=",ExpressionUUID->"f8624fee-6307-4387-bcf6-b655f185f370"], + +Cell[BoxData["1.213`"], "Output", + CellChangeTimes->{ + 3.993815892962039*^9, {3.993815952103568*^9, 3.993815996052133*^9}, { + 3.994012735168161*^9, 3.994012753532589*^9}, 3.994013277997539*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"561d80fd-d30d-464c-a432-d1375ebc7cbc"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel->"In[40]:=",ExpressionUUID->"a10adebf-2fa7-41b5-83f3-9787bfa29f35"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.57"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.993815872614973*^9, + 3.993815875095196*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"c9c8a4b7-60c9-43e5-bbda-507baf67181c"], + +Cell[BoxData["0.57`"], "Output", + CellChangeTimes->{ + 3.993815892978149*^9, {3.9938159521195602`*^9, 3.9938159960676327`*^9}, { + 3.994012735184478*^9, 3.994012753559978*^9}, 3.994013278011286*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"d5d6d5bb-2d8f-4c3d-9fa9-2998edf0968b"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel->"In[42]:=",ExpressionUUID->"df96b102-439a-4231-b667-4e2ef6f720e2"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "1.35"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.993815877839096*^9, + 3.993815879047324*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"1a12661f-9e45-48b5-9ba0-f270b95c8bce"], + +Cell[BoxData["1.35`"], "Output", + CellChangeTimes->{ + 3.993815892994123*^9, {3.99381595213482*^9, 3.993815996092525*^9}, { + 3.994012735201104*^9, 3.994012753586568*^9}, 3.994013278027413*^9}, + CellLabel->"Out[43]=",ExpressionUUID->"b036bbb5-7330-4989-bdc8-b42ceeb0c6ed"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel->"In[44]:=",ExpressionUUID->"571cfdea-2a73-4641-85e0-ccffce8a7873"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "0.695"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, {3.993815882043911*^9, 3.993815883712513*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"d6001a94-4b1a-4f78-b4eb-8d5d18c3f63f"], + +Cell[BoxData["0.695`"], "Output", + CellChangeTimes->{ + 3.993815893009348*^9, {3.9938159521502934`*^9, 3.9938159961073437`*^9}, { + 3.994012735217507*^9, 3.994012753614246*^9}, 3.994013278041442*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"ba0c28cf-c038-48a7-89e7-e2c31dcb9122"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel->"In[46]:=",ExpressionUUID->"cba4e0ed-eb18-476b-8eb1-527b36fa1cd3"], + +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->"fb9cdd2f-21d7-4d15-a78c-9668f738d81a"], + +Cell[BoxData["0.12327762268272666`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.993815824789941*^9, 3.993815893053749*^9, { + 3.9938159521927853`*^9, 3.9938159961478243`*^9}, {3.994012735307992*^9, + 3.994012753662813*^9}, 3.994013278128168*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"190159b3-66a2-41bd-9270-a756494c3b34"] +}, 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->"1c6b657c-5954-4822-89fb-09fff8520557"], + +Cell[BoxData["8.089090426123509`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.993815824958537*^9, 3.993815893086632*^9, { + 3.993815952223331*^9, 3.993815996176463*^9}, {3.994012735341444*^9, + 3.9940127537028303`*^9}, 3.994013278162253*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"7204f48e-a65a-44ac-b211-79222569e35d"] +}, 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->"33e764b2-8a89-4693-98a2-2007aaf03f1b"], + +Cell[BoxData[ + RowBox[{"-", "18.15349098777757`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.993815825088951*^9, 3.993815893116687*^9, { + 3.9938159522505827`*^9, 3.9938159962051373`*^9}, {3.994012735372669*^9, + 3.994012753746902*^9}, 3.994013278191806*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"cded83c1-f4e6-4be5-91a2-8a9f7ab88d9e"] +}, 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->"2f04f962-69f9-4808-a961-45622dfe1efa"], + +Cell[BoxData[ + RowBox[{"-", "24.05337115009524`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.993815825243335*^9, 3.993815893152563*^9, { + 3.993815952283412*^9, 3.9938159962366734`*^9}, {3.9940127354096613`*^9, + 3.9940127537823277`*^9}, 3.994013278267302*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"113a3288-937e-4f38-b6d0-0c3083bd9b19"] +}, 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->"d4680d42-bf04-4c16-ba69-ff9126867169"], + +Cell[BoxData[ + RowBox[{"-", "68.5715021463911`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.993815825395423*^9, 3.993815893189039*^9, { + 3.993815952318357*^9, 3.9938159962699547`*^9}, {3.994012737745866*^9, + 3.994012753816412*^9}, 3.994013278307036*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"0c6da468-03ec-4f5d-bcb9-24b692edfe42"] +}, 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->"468f2a7c-cae2-409b-a11e-880f5a9cdf53"], + +Cell[BoxData[ + RowBox[{"-", "181.33897130481844`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.9938158255934277`*^9, 3.9938158932303762`*^9, { + 3.9938159523617983`*^9, 3.993815996307926*^9}, {3.9940127379598227`*^9, + 3.994012753855733*^9}, 3.994013278355814*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"5d30ad1b-0036-48be-beac-d833f3153142"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[53]:=",ExpressionUUID->"62bbc4dc-88c5-4427-9efd-afd47ef12715"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.993815825610972*^9, 3.993815893238894*^9, { + 3.993815952376239*^9, 3.993815996389533*^9}, {3.994012737981202*^9, + 3.994012753871561*^9}, 3.994013278365758*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"50fc46ec-f71d-48dc-9652-908ae44f2271"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[54]:=",ExpressionUUID->"df5f9d55-8d05-4cad-aba0-aa92ad5337d1"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.993815825623754*^9, 3.993815893251865*^9, { + 3.993815952388772*^9, 3.9938159963944883`*^9}, {3.994012737993568*^9, + 3.994012753889316*^9}, 3.994013278374333*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"b10b946d-3909-4628-bddd-621f41097a10"] +}, 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->"20036af8-8bf6-4256-921c-05f06a486494"], + +Cell[BoxData["141.405110309417`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.993815826417283*^9, 3.993815893265246*^9, { + 3.993815952401479*^9, 3.993815996407648*^9}, {3.9940127380069637`*^9, + 3.9940127539062157`*^9}, 3.9940132783829393`*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"1b25deaa-d3a1-4846-aef1-671bb6175a19"] +}, 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->"ca995975-97b9-4d3d-bbd1-0966883ae44c"], + +Cell[BoxData[ + RowBox[{"-", "128.9528695923845`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.99381582721953*^9, 3.993815893272354*^9, { + 3.9938159524150248`*^9, 3.993815996420066*^9}, {3.994012738019804*^9, + 3.9940127539503736`*^9}, 3.994013278393111*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"5368a95d-a046-40d5-9c90-66942e05f4fd"] +}, 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->"992fc12b-22d0-4531-9645-e0be5463c324"], + +Cell[BoxData["145.46176038414953`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.993815827967605*^9, 3.993815893279285*^9, { + 3.993815952427936*^9, 3.993815996433951*^9}, {3.994012738032927*^9, + 3.994012753965966*^9}, 3.994013278402087*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"8a25dfe4-32ae-44c5-b8ed-cb25226bfb9c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[58]:=",ExpressionUUID->"a0fb8524-7508-40e2-ae69-74019e6b14e7"], + +Cell[BoxData["0.3744607025351484`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.993815827996399*^9, 3.993815893285612*^9, { + 3.993815952441914*^9, 3.993815996447248*^9}, {3.994012738045417*^9, + 3.9940127539822197`*^9}, 3.9940132784106503`*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"be05b6ba-e67d-4086-bc28-2dd29e2aa0cd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[59]:=",ExpressionUUID->"f3b43235-4af2-4d3c-9f67-385c51d36812"], + +Cell[BoxData[ + RowBox[{"-", "0.08358618531832765`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.993815828006872*^9, 3.99381589330029*^9, { + 3.993815952454702*^9, 3.993815996460602*^9}, {3.9940127380579777`*^9, + 3.994012753999001*^9}, 3.994013281580282*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"f77d1a4a-7db9-4a28-a5f4-66f141ea9955"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[60]:=",ExpressionUUID->"39bcc587-e791-4b11-abb0-1ad2a3a35998"], + +Cell[BoxData[ + RowBox[{"-", "0.5957523139282981`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.993815828017632*^9, 3.993815893314815*^9, { + 3.993815952467293*^9, 3.993815996472748*^9}, {3.9940127380705957`*^9, + 3.994012754016019*^9}, 3.994013281844756*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"b4573bad-e8e3-445c-9316-7eceead31285"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"cb54a78a-92d3-4b10-8ffc-8415b453353e"], + +Cell[BoxData["0.713744744985854`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.9938158280292873`*^9, 3.9938158933264513`*^9, { + 3.99381595247992*^9, 3.9938159964849863`*^9}, {3.9940127380831127`*^9, + 3.994012754031786*^9}, 3.994013281861026*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"052f5136-2ce4-488f-a483-5df250092388"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[62]:=",ExpressionUUID->"be871e39-70cb-436d-a3f7-16fd49aa97db"], + +Cell[BoxData["2.4538606431456684`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.993815828040164*^9, 3.9938158933379717`*^9, { + 3.99381595249251*^9, 3.993815996497171*^9}, {3.9940127380959167`*^9, + 3.994012754047423*^9}, 3.994013281873459*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"23eebd8a-2e04-4342-9a7d-3ea7bb9db678"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[63]:=",ExpressionUUID->"c8f930b4-ac31-4991-8fc8-fd74b36c1a36"], + +Cell[BoxData["1.4512846433038022`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.993815828051201*^9, 3.993815893350441*^9, { + 3.993815952507271*^9, 3.993815996509037*^9}, {3.994012738108345*^9, + 3.994012754065312*^9}, 3.994013281886747*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"33d12c76-98d8-483a-b41c-3bc764dd583e"] +}, 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->"180f6bc0-958b-4021-8516-79f797e9009a"], + +Cell[BoxData[ + RowBox[{"-", "35.01877093188689`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.99381582806227*^9, 3.993815893362507*^9, { + 3.993815952520192*^9, 3.9938159965211277`*^9}, {3.994012738120954*^9, + 3.994012754086623*^9}, 3.9940132819104977`*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"ca39d4e5-5de6-4df1-9cfb-9fa2cbc0abd8"] +}, 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->"ba17ebad-04b1-4a88-8af7-9993867476bb"], + +Cell[BoxData[ + RowBox[{"-", "7.023230644966918`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.993815828073289*^9, 3.993815893373386*^9, { + 3.9938159525334873`*^9, 3.9938159965330544`*^9}, {3.994012738133953*^9, + 3.994012754103959*^9}, 3.994013281919915*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"f53fed09-f60f-44db-bee4-cdcced3abb72"] +}, 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->"c00e2051-05df-404a-bc16-81d295dcc1b3"], + +Cell[BoxData["106.38633937753012`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.993815829714663*^9, 3.993815893386404*^9, { + 3.993815952538138*^9, 3.993815996546342*^9}, {3.994012738147608*^9, + 3.994012754121069*^9}, 3.994013281930842*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"76bb91c5-6585-4377-b9c1-d8d4df2c6c9b"] +}, 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->"d43e544c-37c5-4e03-bcc3-00b3c2abeb49"], + +Cell[BoxData[ + RowBox[{"-", "128.9528695923845`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.993815830785906*^9, 3.993815893393002*^9, { + 3.99381595255091*^9, 3.993815996558546*^9}, {3.9940127381623087`*^9, + 3.994012754138682*^9}, 3.994013281950323*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"47e03608-8a89-4af1-ad05-11ed9d3653f6"] +}, 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->"74694c83-dde5-4394-9190-6cb7ddad65c6"], + +Cell[BoxData["138.4385297391826`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.993815832301989*^9, 3.993815893399308*^9, { + 3.9938159525638323`*^9, 3.993815996570672*^9}, {3.994012738168003*^9, + 3.994012754154402*^9}, 3.994013281969797*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"0fd76d83-6bb9-4441-a7e4-d3eebeb2ecd7"] +}, 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->"487d4e37-6938-4aa0-9459-12bbdb6364a2"], + +Cell[BoxData["42.7423287298202`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.99381583454182*^9, 3.9938158934054613`*^9, { + 3.99381595257723*^9, 3.993815996582724*^9}, {3.9940127381809587`*^9, + 3.994012754170536*^9}, 3.994013281982353*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"4d25cd87-d1dc-4ec1-9cfd-879e65572d8e"] +}, 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->"0a0f3ef6-70b8-4439-9a4b-5b5af2be45c3"], + +Cell[BoxData["852.656398631346`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.993815837006854*^9, 3.993815893411956*^9, { + 3.993815952590604*^9, 3.9938159966008883`*^9}, {3.9940127381948357`*^9, + 3.994012754188656*^9}, 3.994013282045331*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"e569f40b-1503-42c7-a678-8c6593da254a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f1", "=", "0.4824778855"}]], "Input", + CellChangeTimes->{3.9918488488187084`*^9, 3.994012792566072*^9}, + CellLabel->"In[71]:=",ExpressionUUID->"bdefbecf-0aaa-4a45-a861-406cf54e52d1"], + +Cell[BoxData["0.4824778855`"], "Output", + CellChangeTimes->{3.994013282064539*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"fe5c01b5-f127-491f-8084-18c94d3ba819"] +}, 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.1859997931"}]], "Input", + CellChangeTimes->{3.9918488509977226`*^9, 3.994012802331409*^9}, + CellLabel->"In[73]:=",ExpressionUUID->"45ed831b-459a-9a41-990f-c079ad464f5d"], + +Cell[BoxData["0.1859997931`"], "Output", + CellChangeTimes->{3.994013282102785*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"d2cb242c-3d95-4166-8b4a-98314c7cf5bd"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848851636154*^9, 3.9918488516427097`*^9}}, + CellLabel->"In[74]:=",ExpressionUUID->"bc946e22-fdd1-8b4b-8e5a-11f4dcb03e07"], Cell[CellGroupData[{ @@ -84,13 +4878,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.585212243083306`*^-53"], "Output", + CellChangeTimes->{3.9913279321052856`*^9, 3.994013282138824*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"cbeda04c-b21b-4ec8-9c31-a0eac6be3d92"] }, Open ]], Cell[CellGroupData[{ @@ -124,14 +4916,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["9.37722440603783`*^-55"], "Output", + CellChangeTimes->{3.991327932129387*^9, 3.9940132821581383`*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"f67a58f7-bede-4d65-a4dd-ff39cc4e2234"] }, Open ]], Cell[CellGroupData[{ @@ -164,14 +4954,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["9.343159200381669`*^-55"], "Output", + CellChangeTimes->{3.991327932138338*^9, 3.9940132821759787`*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"f129911b-15eb-4024-941d-2d9174d419f5"] }, Open ]], Cell[CellGroupData[{ @@ -194,13 +4982,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["12.804540305270121`"], "Output", + CellChangeTimes->{3.9913279321616154`*^9, 3.994013282192327*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"7a0b2e58-6f33-42db-b481-7526626b3654"] }, Open ]], Cell[CellGroupData[{ @@ -225,13 +5011,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["24.2984105064432`"], "Output", + CellChangeTimes->{3.9913279321696014`*^9, 3.994013282209858*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"67692164-c970-414d-9d70-3dae70fa7d92"] }, Open ]], Cell[CellGroupData[{ @@ -240,13 +5024,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.8270359558899076`"], "Output", + CellChangeTimes->{3.9913279321926613`*^9, 3.994013282226131*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"9d7944e9-7c46-4806-9783-723e0c8e6af6"] }, Open ]], Cell[CellGroupData[{ @@ -255,13 +5037,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.923768735628594`"], "Output", + CellChangeTimes->{3.991327932200657*^9, 3.994013282242962*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"4458b354-e168-44e9-8392-2c20f44363c3"] }, Open ]], Cell[CellGroupData[{ @@ -270,13 +5050,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["143.9381644835376`"], "Output", + CellChangeTimes->{3.99132793222501*^9, 3.994013282254216*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"a16d0340-d01c-4341-b2b7-9f5c2951746f"] }, Open ]], Cell[CellGroupData[{ @@ -285,13 +5063,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["23.394355536370046`"], "Output", + CellChangeTimes->{3.9913279322642612`*^9, 3.9940132822638807`*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"0230aef7-5185-4bfc-a694-deb25a6c1162"] }, Open ]], Cell[CellGroupData[{ @@ -480,13 +5256,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.006888168061066221`"], "Output", + CellChangeTimes->{3.9913279322906475`*^9, 3.994013282276442*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"e17d9871-0f15-4365-ae2f-dba568d9eb27"] }, Open ]], Cell[CellGroupData[{ @@ -499,13 +5273,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.678077616626645`"], "Output", + CellChangeTimes->{3.9913279323826447`*^9, 3.994013282442091*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"d2055b99-9909-42ba-a7f9-cee4304c3630"] }, Open ]], Cell[CellGroupData[{ @@ -696,13 +5468,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.041118989808265484`"], "Output", + CellChangeTimes->{3.991327932394655*^9, 3.994013282456871*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"a8f9b61e-13df-4f94-b041-0f2352e736b4"] }, Open ]], Cell[CellGroupData[{ @@ -715,13 +5485,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.37042550919759`"], "Output", + CellChangeTimes->{3.991327932491659*^9, 3.994013282518723*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"fda43836-da6e-4097-9b42-14a952fdf6fa"] }, Open ]], Cell[CellGroupData[{ @@ -813,13 +5581,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.08017799560488434`"], "Output", + CellChangeTimes->{3.991327932509678*^9, 3.994013282540866*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"cf519683-4f0a-4f8f-919c-bae0da95fb0d"] }, Open ]], Cell[CellGroupData[{ @@ -908,13 +5674,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.9198220043951155`"], "Output", + CellChangeTimes->{3.9913279325457134`*^9, 3.994013282559203*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"c7f913e2-fe29-4bbe-88b0-acb8512efc42"] }, Open ]], Cell[CellGroupData[{ @@ -1036,19 +5800,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.07374948462566748`"], "Output", + CellChangeTimes->{3.9913279325697117`*^9, 3.9940132825778437`*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"bcfef618-7c92-49dc-8515-ce629f399335"] }, 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 +5824,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 +5848,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -1109,68 +5872,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[\\\"6.486581843963336`*^-209\\\", \ +RowBox[{\\\"365000401101666289871540890002\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"213134598144000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 92, 1, + 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279325947113`*^9, 3.9940132826938467`*^9}, CellLabel-> "During evaluation of \ -In[166]:=",ExpressionUUID->"055bf31f-37b2-724c-aeef-d922f7a205c7"], +In[92]:=",ExpressionUUID->"c1e470fa-09b0-41ef-a802-39eefc337bdb"], 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.34189274055711`*^-214\\\", \ +RowBox[{\\\"706640776532825937191303163045\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"49\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"628582006784000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 92, 2, + 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279325947113`*^9, 3.994013282702804*^9}, CellLabel-> "During evaluation of \ -In[166]:=",ExpressionUUID->"eeead3e4-54a5-7c4d-95b2-292dcdbe105a"], +In[92]:=",ExpressionUUID->"c789fe6a-8f96-49a5-a260-03c628c2fbaf"], 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[\\\"1.3454075208700454`*^-218\\\", \ +RowBox[{\\\"143094757247897252281238890516\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"53\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"878563737600000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 92, 3, + 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279325947113`*^9, 3.994013282708023*^9}, CellLabel-> "During evaluation of \ -In[166]:=",ExpressionUUID->"87e34a07-7a78-bf46-b222-6e72d11fd18d"], +In[92]:=",ExpressionUUID->"3ea2ac7a-814b-487d-9a3a-fc9c82f9d1ff"], 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, 4, 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279325947113`*^9, 3.99401328271383*^9}, CellLabel-> "During evaluation of \ -In[166]:=",ExpressionUUID->"1cf9faa5-3432-3349-b45a-58344623fc63"], +In[92]:=",ExpressionUUID->"53a4bac3-e2aa-4f9f-b73a-5433d6559d11"], -Cell[BoxData["4.912080544466506`"], "Output", - CellChangeTimes->{3.9913279359974174`*^9}, - CellLabel-> - "Out[166]=",ExpressionUUID->"acb58738-85fd-0f40-b8fa-3a779aa79369"] +Cell[BoxData["10.67807761662663`"], "Output", + CellChangeTimes->{3.9913279359974174`*^9, 3.994013284520096*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"93d02678-c08d-4f97-8753-b069f28b14ef"] }, Open ]], Cell[CellGroupData[{ @@ -1185,7 +5953,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 +5977,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -1232,68 +6001,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[\\\"6.486581843963336`*^-209\\\", \ +RowBox[{\\\"365000401101666289871540890002\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"213134598144000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 93, 5, + 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327936033827*^9, 3.994013284570855*^9}, CellLabel-> "During evaluation of \ -In[167]:=",ExpressionUUID->"6fb03e9c-623b-b24d-bccd-c05b2662537c"], +In[93]:=",ExpressionUUID->"2dc157bb-585d-4cdc-b1a6-26e7e0510fa6"], 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.34189274055711`*^-214\\\", \ +RowBox[{\\\"706640776532825937191303163045\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"49\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"628582006784000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 93, 6, + 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327936033827*^9, 3.9940132845758533`*^9}, CellLabel-> "During evaluation of \ -In[167]:=",ExpressionUUID->"410ed293-2b04-a346-b193-5e006759c884"], +In[93]:=",ExpressionUUID->"76615d96-7fa8-4e87-81a3-a24a4b80d24c"], 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[\\\"1.3454075208700454`*^-218\\\", \ +RowBox[{\\\"143094757247897252281238890516\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"53\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"878563737600000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 93, 7, + 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327936033827*^9, 3.9940132845804787`*^9}, CellLabel-> "During evaluation of \ -In[167]:=",ExpressionUUID->"9e59cf72-2df3-6741-910e-ddcc2125aa8b"], +In[93]:=",ExpressionUUID->"99561a4f-35da-4dea-952c-2fcdf16cb7cb"], 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, 8, 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327936033827*^9, 3.9940132845852623`*^9}, CellLabel-> "During evaluation of \ -In[167]:=",ExpressionUUID->"6f223de4-f4b9-0a4c-b3b3-f489f4259713"], +In[93]:=",ExpressionUUID->"65400ca0-4761-411c-ae6c-f198329cf805"], -Cell[BoxData["7.868441587445692`"], "Output", - CellChangeTimes->{3.9913279393385086`*^9}, - CellLabel-> - "Out[167]=",ExpressionUUID->"d8300689-0813-6149-9a7f-c358ba826aac"] +Cell[BoxData["4.370425509197589`"], "Output", + CellChangeTimes->{3.9913279393385086`*^9, 3.994013286412376*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"f106396f-43b6-437c-a136-d7e6972db912"] }, Open ]], Cell[CellGroupData[{ @@ -1303,141 +6077,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:eJwV1nk4VN8bAHAUyVKWbImyJWRpRkLqvIw9SSohfBkzV0kSkhCpaEFJQovl +GxWyJspSP0WSFEWbmrLkxlgymKtFX7/jj/vc5/Oc577nfc92jxrzoCtbSEBA +YAg/8+9Drwy073e+2qwWtO+E3WESbR4vWM+0LkFyVvZV8+7NNUnXtG5AeSF9 +NvbYLqyXIhL0p2jot7G5A3ZlZFyTsHU72klapTpin21RbIwrfo1WmovbO2HX +dh7KmaW9Rby5FD9nbG5PW8zR+g/ImfHiswv28kGNPRTjM5KQaardgb3lR4xZ +WPtXxIs+/NMN+9EsVzyyuA+JXOrP8sR+F68QXRM8gFz3i13zwR4XseZO0waR +mPLYf0xskeQQD/oMiY7UnWsOwFaVzm49VD+EVrIGRoKwnZWpW+OMUaTs2PJP +JDaRpy6vLzqO+p66lMRix2ltS9jf/gNdb8vwTMD+oNC9LryYh5SE3T5fwmZ5 +Bu67lDyJ9JI6yq9hT1wX+Pdu8BTqNhcezMcWVdeX4tH4qObVzfBq7HRWk52U +HIVgmXTHI+xVtz3iDGco9D8bs6RWbNO1ieMH6n+iA7aP13Cw95p8becyZpHR +mpqfYhEkmo48vFBs9V90a81SPwXs4/XiFjqi/yHbudV6mthZYHonoH0ObXJK +/7YZm3Wz1Tq0WBAEbh8YjcQubrnUG68sBBuSnzLPYE9894m5mCwErx98Mc/C +jtHlV1UEL4DD9m5Stdjp5WoaP2jCwPBiucxh93SOPvovXxhiT3d2Sx/B+U/e +91wiJwLLJgXqNbFLjJ3T9GdEgL+momQLdnNtlGBQvSg8WrpTKweb39T1dYgh +ASF0xaBdkSSScZKQin4kAbyeVo0QbKNua5A0k4Q9xoHOSdiB36rz1hksgZbG ++Nkn2CFC7UabJKTAcJNiw4ajJBpUL+MlUNLwe23yc5MoPD5E2+IOugxc+ZZX +4Y4tdIdUUzwkA4tK74pFY6+ir3QtHpEBkbFOhcfYnozUu696ZeEJXTrDNZpE +Hf6hYQov5KDjWqhGUgyJvtw+n+QrKg+3eC3m97BHR4rzi2zkITpL+ykHWyx8 +oGtjozwUS8rQacdIZH1qp7FvtQK0FBSF9WLXFZjwC3OV4IIX54xrHIkKBn9H +mIerQMzSevGUEySy33X6S1ipCpTypN41Yo82y9qWkipgN/VuIR/buGCt3CoP +VUj/fv+Cz0k8nkyfKuHNK6FLatzT5BSJJn/0Hhk6uQo6bUxafyaQSPaA9b2q +rerg3Dgr8vwsicgCsb0ugeqwbqzab/E5Ej343Kk8lqgOGZxFao7YXk7eJ1c3 +qsOd4uiX7dgFehGuV2gaoPGhjfMuCffPvT0Rq6AJmfu2cv6mkGhngLi+Y58W +dNfEMTPTSIQidtF2/9WCoslPHf3Yugm5G1hKq0HqqkKOwSUSCeTTrWK3rwbz +MLr3M+zSL3t23328GirKdIi/6Xh/upXEL7+hDa7BRwuiM3F+1lvfcZk6IKax +/UvjdRLl78j8NBOrA7ODrYGK2SQ6z+zrXXhNB1727nIPwWYdPzyi2qUDh6pq +3NRySCTdkC2wg6EL+2+39J7OxeuHPq5br6EHZEaDXsANEimrX4hL+rYWnMpt +ioMLSdRwblrnl5A+mHbVd/dge015dBNq+uD7uuaQXRGJcpo1dax89CGv2maB +ejGJ1APq3vx8rw/ySlIJn+/geksGtYgXBqApfVs4oJxEKsqqxCoPI7B88lHy +TQ2J1t4Ml/iDaLBpy9BHgWckYrJO8vWdaZBxf8/l49hZGmlffL1ocLFav1qg +lUQLbpRXtETS4EHFjJrQc7zfcrg70yppcEs0qGLxC3yeZvlm62jQwaddNV+v +A89vkpOBu4gxZKy3nax7T6J/QzVdqtvXwzK1K68XcUnUGYE2nLppBmUhNWdX +KnxHaj5vnb2DNsFg/3DMHcfviD1XU6ZyFEDkRcWQc/x3pDDyYJEC0wpsJkrG +nzZ9R+F0i89putYQbf53b5HoEGKOzbbKcm1APeiZfLHrECq1CluU22EHi98/ +LmUUD6GC6cDHJekOsGLLxXfDQsPop6Xiy+a4LZBhFcLIDBxGHIEFvD6/rRBn +vy5F7sMwCl5xMDVeYxs0FasXKtlwUdm+1sbLCS6QeOSlFecJF0VNKc3o7dsO +9kFXi+zRCOI72ro9+8cVdiU5Tt99OYLM9ly0HNy+AxhluaGKfqPojVJ2YDN9 +J2hr3pM1442i5bdONhSu2QWBG5doxKaPoQe9uk7Okm5QZl8ob0kfR6rdEwER +Y24gHq22IrF7HNEvXyzJ790N2xdFC3qf/YGyF04ZpDW5Q5Gdnnem8gSqsTTs +Saj1gGOJIryNMRMoa8M56dliTzBU2p5rxplAHZ9uJtKT94Cth1wF3YyHqrde +1ww57gXCWeL2ajk8xDuwQyCY5Q3DB4se/prlIb6tzt5xhg9cPvH2h7jnJCoc ++/gzzOQfqLuqf+nMo0nk/u9Nf28JX0huVeXRlKdQ1d0t/yw47Qshj9Sla49N +ITPlN7/O/vKFmFi7p4bvp5BGb0DP631+kB1wTfO13jT6Jr5/2/UBP/AmDnO8 +Tk6jzvPO/na7mHDnidFLl85plB6ZK364kwnC9UdLS1T4qOHR3C9/B3+QF4zz +K2fy0VIvOE2v84flV3z7tK/z0aplzzpWNPhDj1nHcelsPjJq36oo8sgfIu+J +Zf7GdrXYU/ThsT8MLTXQfpHLR+krIl4ce+4P2j9lX7Pz+Wg5587S1g/+YOAg +pRFfzEeaPgpZXjP+YGHFi3d+wEdmvuOFCcYs8F6ge8b8DR/dujIR5mzCgrqZ +pZ5T2Mu6JjcrmLKgtqGn+E4XH43bzHQXbmSB4vGrrcvf8vH5JSDYbsWCzFod +3uR7PloyI+0hs50FTMW5j+c4fPQtZf3i3AMsEDIL1XUf4qPz9TH7HtxiQfRI +hhhzlo8O0DLNIgtZkLastYDCdiqqXGxazAKd7NT6c3/5SCyTLLpfygI1tzif +yv/4KCHUhVtzjwVxrbMRPwUoFKOjub/6CQv8E0Q/HxCmUGDmi6C7X1jQFbvj +2bQkhRyWkBahvSzY6LS/KXIJhdYkCEjS+nG9jXOms9hk6PrSykEWnBG0TBWU +opCfc+5YxSiuJ/nqqLAMhdyFw4LLf7PA5U6ePR/fI+zCloeUyLNBMmr35AEV +Cj3JTXRMU2SDaFpPBRfbon1SM3I5G652t7wkVClkpPXiI0OVDXG/D6l7r6SQ +0vtoxictNli0bzS2UqPQiDlHXmw9G+KbXAbGNCl0QSjvYcAONnhaf2pq06OQ +mKFE1tZdbHBx1lhJX0uhU3siQ+m72XDbuf3tVezIey7ac55sEOcO7dyrj/Mn +BC9mMNngMzuc+ceAQvQ2JuvpITYw3hCqC2gUen9RS1wjlQ37x/VzL2+gUBmS +3Dt0kQ2kjkDJAPapsenm0ktsmNzmrL3OlEI0h+ZY00w2PMvQ3NeGfV7Af3Jr +DhvSY3UVKTMK2R7M+xhZwobBJ7EKNAsKqaicMdlcxgbH1njhI9jTbQcvLahg +w/WHWn712DdWo63nq9ggz1Lxs9pEob8cTmN+Hfaf/SccNlPonpNy4atWNnA/ +9SELoFDSbyHh9Dbc/1FDoUhsZiHXz6OdDQa/vNdVYUstrFP+1sEGs23r3mlb +Uiio3v3Cr3dsaKbFm4pZUUhDNyNCc5ANbV45blUMCv1+f6xrmGTD6nTB/kHs +zgS2UfkQrv9T3kcFawrF9hlzzUbZcG5NsGQUdk9Wl/e2KTb0pjISN9hQKG2R +tE2UIAG0WVp1hi2FGiY5e8IXEMCzmW5qxv7OKQ4NFiYg4xepNIltcc86j7mY +gDOWJtcc7fB684384yhNgKup9+QktpSTjYyNLAH9p8+aKdtTaOMGGR0kR4DN +cMYzK+xUyRI3uhIB27mGDy7Mt9d9rVRWI+DsNT/uKgcKETdLWuU0CJgUuB7A +wE5NPfp1qRYB738c0mNjk4Ss5EIdAu5yOhNvzbfL2u0dNSKAceN00ipHCtX9 +JxtH0ggoa39usQl7cLj3cq8xAWavg4w9sM0bo5q6TQn8f6mnzmN/CypTfQgE +1Ne2t/Cwl7hHr79vRYCaRUCx6BYKmTHsnSqtCfj1nNatin1eqf/oTXucn5f9 +b3vsBwvLU3MdCUg5eobywh74EX37ihMBOZ2DpiHYpi1yb1NcCIBN5IV0bGZl +/8hpVwJOPTtecBM75Xq50ImdBFQe1p6rxu4PdTCKcCfg/qJzid3Ykj7ydiGe +BDQ/3FzVPx/PYcA70IsAfQue1sT89yuPJfn4EuCvwOCIOuF8xBxvuDNx/gWf +1ZZh9/Pla11ZBBh67C1RxZbsG+hwIgj4Wj8QswbbtL2CtN1LgPUxp0vrsJn3 +j/2FQAKMo/J+mGGn3HBctjEIz18956LlfPwUBb31wQS8DBeKsp+PH/nN0jCE +AK6IZKEztgSr0l0nlIATf/8o78TesC32oEY4jif16q37fHzzLYkqEQQcUT/x +1gs7WUsxWyGSgHCGgrIvdo3UYJV0FM63LPkWE7vvT2WbeAwBrOd9R1jz8b/H +9gnHEpCvLX+BjW3yZsvPuTgCNp7WGZ33/wGIROI0 "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -1451,106 +6225,105 @@ 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:eJwV1nk4VN8bAHAUyVKWbImyJWRpRkLqvIw9SSohfBkzV0kSkhCpaEFJQovl +GxWyJspSP0WSFEWbmrLkxlgymKtFX7/jj/vc5/Oc577nfc92jxrzoCtbSEBA +YAg/8+9Drwy073e+2qwWtO+E3WESbR4vWM+0LkFyVvZV8+7NNUnXtG5AeSF9 +NvbYLqyXIhL0p2jot7G5A3ZlZFyTsHU72klapTpin21RbIwrfo1WmovbO2HX +dh7KmaW9Rby5FD9nbG5PW8zR+g/ImfHiswv28kGNPRTjM5KQaardgb3lR4xZ +WPtXxIs+/NMN+9EsVzyyuA+JXOrP8sR+F68QXRM8gFz3i13zwR4XseZO0waR +mPLYf0xskeQQD/oMiY7UnWsOwFaVzm49VD+EVrIGRoKwnZWpW+OMUaTs2PJP +JDaRpy6vLzqO+p66lMRix2ltS9jf/gNdb8vwTMD+oNC9LryYh5SE3T5fwmZ5 +Bu67lDyJ9JI6yq9hT1wX+Pdu8BTqNhcezMcWVdeX4tH4qObVzfBq7HRWk52U +HIVgmXTHI+xVtz3iDGco9D8bs6RWbNO1ieMH6n+iA7aP13Cw95p8becyZpHR +mpqfYhEkmo48vFBs9V90a81SPwXs4/XiFjqi/yHbudV6mthZYHonoH0ObXJK +/7YZm3Wz1Tq0WBAEbh8YjcQubrnUG68sBBuSnzLPYE9894m5mCwErx98Mc/C +jtHlV1UEL4DD9m5Stdjp5WoaP2jCwPBiucxh93SOPvovXxhiT3d2Sx/B+U/e +91wiJwLLJgXqNbFLjJ3T9GdEgL+momQLdnNtlGBQvSg8WrpTKweb39T1dYgh +ASF0xaBdkSSScZKQin4kAbyeVo0QbKNua5A0k4Q9xoHOSdiB36rz1hksgZbG ++Nkn2CFC7UabJKTAcJNiw4ajJBpUL+MlUNLwe23yc5MoPD5E2+IOugxc+ZZX +4Y4tdIdUUzwkA4tK74pFY6+ir3QtHpEBkbFOhcfYnozUu696ZeEJXTrDNZpE +Hf6hYQov5KDjWqhGUgyJvtw+n+QrKg+3eC3m97BHR4rzi2zkITpL+ykHWyx8 +oGtjozwUS8rQacdIZH1qp7FvtQK0FBSF9WLXFZjwC3OV4IIX54xrHIkKBn9H +mIerQMzSevGUEySy33X6S1ipCpTypN41Yo82y9qWkipgN/VuIR/buGCt3CoP +VUj/fv+Cz0k8nkyfKuHNK6FLatzT5BSJJn/0Hhk6uQo6bUxafyaQSPaA9b2q +rerg3Dgr8vwsicgCsb0ugeqwbqzab/E5Ej343Kk8lqgOGZxFao7YXk7eJ1c3 +qsOd4uiX7dgFehGuV2gaoPGhjfMuCffPvT0Rq6AJmfu2cv6mkGhngLi+Y58W +dNfEMTPTSIQidtF2/9WCoslPHf3Yugm5G1hKq0HqqkKOwSUSCeTTrWK3rwbz +MLr3M+zSL3t23328GirKdIi/6Xh/upXEL7+hDa7BRwuiM3F+1lvfcZk6IKax +/UvjdRLl78j8NBOrA7ODrYGK2SQ6z+zrXXhNB1727nIPwWYdPzyi2qUDh6pq +3NRySCTdkC2wg6EL+2+39J7OxeuHPq5br6EHZEaDXsANEimrX4hL+rYWnMpt +ioMLSdRwblrnl5A+mHbVd/dge015dBNq+uD7uuaQXRGJcpo1dax89CGv2maB +ejGJ1APq3vx8rw/ySlIJn+/geksGtYgXBqApfVs4oJxEKsqqxCoPI7B88lHy +TQ2J1t4Ml/iDaLBpy9BHgWckYrJO8vWdaZBxf8/l49hZGmlffL1ocLFav1qg +lUQLbpRXtETS4EHFjJrQc7zfcrg70yppcEs0qGLxC3yeZvlm62jQwaddNV+v +A89vkpOBu4gxZKy3nax7T6J/QzVdqtvXwzK1K68XcUnUGYE2nLppBmUhNWdX +KnxHaj5vnb2DNsFg/3DMHcfviD1XU6ZyFEDkRcWQc/x3pDDyYJEC0wpsJkrG +nzZ9R+F0i89putYQbf53b5HoEGKOzbbKcm1APeiZfLHrECq1CluU22EHi98/ +LmUUD6GC6cDHJekOsGLLxXfDQsPop6Xiy+a4LZBhFcLIDBxGHIEFvD6/rRBn +vy5F7sMwCl5xMDVeYxs0FasXKtlwUdm+1sbLCS6QeOSlFecJF0VNKc3o7dsO +9kFXi+zRCOI72ro9+8cVdiU5Tt99OYLM9ly0HNy+AxhluaGKfqPojVJ2YDN9 +J2hr3pM1442i5bdONhSu2QWBG5doxKaPoQe9uk7Okm5QZl8ob0kfR6rdEwER +Y24gHq22IrF7HNEvXyzJ790N2xdFC3qf/YGyF04ZpDW5Q5Gdnnem8gSqsTTs +Saj1gGOJIryNMRMoa8M56dliTzBU2p5rxplAHZ9uJtKT94Cth1wF3YyHqrde +1ww57gXCWeL2ajk8xDuwQyCY5Q3DB4se/prlIb6tzt5xhg9cPvH2h7jnJCoc ++/gzzOQfqLuqf+nMo0nk/u9Nf28JX0huVeXRlKdQ1d0t/yw47Qshj9Sla49N +ITPlN7/O/vKFmFi7p4bvp5BGb0DP631+kB1wTfO13jT6Jr5/2/UBP/AmDnO8 +Tk6jzvPO/na7mHDnidFLl85plB6ZK364kwnC9UdLS1T4qOHR3C9/B3+QF4zz +K2fy0VIvOE2v84flV3z7tK/z0aplzzpWNPhDj1nHcelsPjJq36oo8sgfIu+J +Zf7GdrXYU/ThsT8MLTXQfpHLR+krIl4ce+4P2j9lX7Pz+Wg5587S1g/+YOAg +pRFfzEeaPgpZXjP+YGHFi3d+wEdmvuOFCcYs8F6ge8b8DR/dujIR5mzCgrqZ +pZ5T2Mu6JjcrmLKgtqGn+E4XH43bzHQXbmSB4vGrrcvf8vH5JSDYbsWCzFod +3uR7PloyI+0hs50FTMW5j+c4fPQtZf3i3AMsEDIL1XUf4qPz9TH7HtxiQfRI +hhhzlo8O0DLNIgtZkLastYDCdiqqXGxazAKd7NT6c3/5SCyTLLpfygI1tzif +yv/4KCHUhVtzjwVxrbMRPwUoFKOjub/6CQv8E0Q/HxCmUGDmi6C7X1jQFbvj +2bQkhRyWkBahvSzY6LS/KXIJhdYkCEjS+nG9jXOms9hk6PrSykEWnBG0TBWU +opCfc+5YxSiuJ/nqqLAMhdyFw4LLf7PA5U6ePR/fI+zCloeUyLNBMmr35AEV +Cj3JTXRMU2SDaFpPBRfbon1SM3I5G652t7wkVClkpPXiI0OVDXG/D6l7r6SQ +0vtoxictNli0bzS2UqPQiDlHXmw9G+KbXAbGNCl0QSjvYcAONnhaf2pq06OQ +mKFE1tZdbHBx1lhJX0uhU3siQ+m72XDbuf3tVezIey7ac55sEOcO7dyrj/Mn +BC9mMNngMzuc+ceAQvQ2JuvpITYw3hCqC2gUen9RS1wjlQ37x/VzL2+gUBmS +3Dt0kQ2kjkDJAPapsenm0ktsmNzmrL3OlEI0h+ZY00w2PMvQ3NeGfV7Af3Jr +DhvSY3UVKTMK2R7M+xhZwobBJ7EKNAsKqaicMdlcxgbH1njhI9jTbQcvLahg +w/WHWn712DdWo63nq9ggz1Lxs9pEob8cTmN+Hfaf/SccNlPonpNy4atWNnA/ +9SELoFDSbyHh9Dbc/1FDoUhsZiHXz6OdDQa/vNdVYUstrFP+1sEGs23r3mlb +Uiio3v3Cr3dsaKbFm4pZUUhDNyNCc5ANbV45blUMCv1+f6xrmGTD6nTB/kHs +zgS2UfkQrv9T3kcFawrF9hlzzUbZcG5NsGQUdk9Wl/e2KTb0pjISN9hQKG2R +tE2UIAG0WVp1hi2FGiY5e8IXEMCzmW5qxv7OKQ4NFiYg4xepNIltcc86j7mY +gDOWJtcc7fB684384yhNgKup9+QktpSTjYyNLAH9p8+aKdtTaOMGGR0kR4DN +cMYzK+xUyRI3uhIB27mGDy7Mt9d9rVRWI+DsNT/uKgcKETdLWuU0CJgUuB7A +wE5NPfp1qRYB738c0mNjk4Ss5EIdAu5yOhNvzbfL2u0dNSKAceN00ipHCtX9 +JxtH0ggoa39usQl7cLj3cq8xAWavg4w9sM0bo5q6TQn8f6mnzmN/CypTfQgE +1Ne2t/Cwl7hHr79vRYCaRUCx6BYKmTHsnSqtCfj1nNatin1eqf/oTXucn5f9 +b3vsBwvLU3MdCUg5eobywh74EX37ihMBOZ2DpiHYpi1yb1NcCIBN5IV0bGZl +/8hpVwJOPTtecBM75Xq50ImdBFQe1p6rxu4PdTCKcCfg/qJzid3Ykj7ydiGe +BDQ/3FzVPx/PYcA70IsAfQue1sT89yuPJfn4EuCvwOCIOuF8xBxvuDNx/gWf +1ZZh9/Pla11ZBBh67C1RxZbsG+hwIgj4Wj8QswbbtL2CtN1LgPUxp0vrsJn3 +j/2FQAKMo/J+mGGn3HBctjEIz18956LlfPwUBb31wQS8DBeKsp+PH/nN0jCE +AK6IZKEztgSr0l0nlIATf/8o78TesC32oEY4jif16q37fHzzLYkqEQQcUT/x +1gs7WUsxWyGSgHCGgrIvdo3UYJV0FM63LPkWE7vvT2WbeAwBrOd9R1jz8b/H +9gnHEpCvLX+BjW3yZsvPuTgCNp7WGZ33/wGIROI0 "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.8190010003206292, 1.212160280392001}}, + "PlotRange" -> {{0, 180}, {0.7018163249116506, 1.393651888378783}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.819001000320631}, + "AxesOrigin" -> {0, 0.7018163249116521}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.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 +6335,131 @@ f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.8190010003206292, 1.212160280392001}}, + "PlotRange" -> {{0, 180}, {0.7018163249116506, 1.393651888378783}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.819001000320631}, + "AxesOrigin" -> {0, 0.7018163249116521}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 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:eJwV1nk4VN8bAHAUyVKWbImyJWRpRkLqvIw9SSohfBkzV0kSkhCpaEFJQovl +GxWyJspSP0WSFEWbmrLkxlgymKtFX7/jj/vc5/Oc577nfc92jxrzoCtbSEBA +YAg/8+9Drwy073e+2qwWtO+E3WESbR4vWM+0LkFyVvZV8+7NNUnXtG5AeSF9 +NvbYLqyXIhL0p2jot7G5A3ZlZFyTsHU72klapTpin21RbIwrfo1WmovbO2HX +dh7KmaW9Rby5FD9nbG5PW8zR+g/ImfHiswv28kGNPRTjM5KQaardgb3lR4xZ +WPtXxIs+/NMN+9EsVzyyuA+JXOrP8sR+F68QXRM8gFz3i13zwR4XseZO0waR +mPLYf0xskeQQD/oMiY7UnWsOwFaVzm49VD+EVrIGRoKwnZWpW+OMUaTs2PJP +JDaRpy6vLzqO+p66lMRix2ltS9jf/gNdb8vwTMD+oNC9LryYh5SE3T5fwmZ5 +Bu67lDyJ9JI6yq9hT1wX+Pdu8BTqNhcezMcWVdeX4tH4qObVzfBq7HRWk52U +HIVgmXTHI+xVtz3iDGco9D8bs6RWbNO1ieMH6n+iA7aP13Cw95p8becyZpHR +mpqfYhEkmo48vFBs9V90a81SPwXs4/XiFjqi/yHbudV6mthZYHonoH0ObXJK +/7YZm3Wz1Tq0WBAEbh8YjcQubrnUG68sBBuSnzLPYE9894m5mCwErx98Mc/C +jtHlV1UEL4DD9m5Stdjp5WoaP2jCwPBiucxh93SOPvovXxhiT3d2Sx/B+U/e +91wiJwLLJgXqNbFLjJ3T9GdEgL+momQLdnNtlGBQvSg8WrpTKweb39T1dYgh +ASF0xaBdkSSScZKQin4kAbyeVo0QbKNua5A0k4Q9xoHOSdiB36rz1hksgZbG ++Nkn2CFC7UabJKTAcJNiw4ajJBpUL+MlUNLwe23yc5MoPD5E2+IOugxc+ZZX +4Y4tdIdUUzwkA4tK74pFY6+ir3QtHpEBkbFOhcfYnozUu696ZeEJXTrDNZpE +Hf6hYQov5KDjWqhGUgyJvtw+n+QrKg+3eC3m97BHR4rzi2zkITpL+ykHWyx8 +oGtjozwUS8rQacdIZH1qp7FvtQK0FBSF9WLXFZjwC3OV4IIX54xrHIkKBn9H +mIerQMzSevGUEySy33X6S1ipCpTypN41Yo82y9qWkipgN/VuIR/buGCt3CoP +VUj/fv+Cz0k8nkyfKuHNK6FLatzT5BSJJn/0Hhk6uQo6bUxafyaQSPaA9b2q +rerg3Dgr8vwsicgCsb0ugeqwbqzab/E5Ej343Kk8lqgOGZxFao7YXk7eJ1c3 +qsOd4uiX7dgFehGuV2gaoPGhjfMuCffPvT0Rq6AJmfu2cv6mkGhngLi+Y58W +dNfEMTPTSIQidtF2/9WCoslPHf3Yugm5G1hKq0HqqkKOwSUSCeTTrWK3rwbz +MLr3M+zSL3t23328GirKdIi/6Xh/upXEL7+hDa7BRwuiM3F+1lvfcZk6IKax +/UvjdRLl78j8NBOrA7ODrYGK2SQ6z+zrXXhNB1727nIPwWYdPzyi2qUDh6pq +3NRySCTdkC2wg6EL+2+39J7OxeuHPq5br6EHZEaDXsANEimrX4hL+rYWnMpt +ioMLSdRwblrnl5A+mHbVd/dge015dBNq+uD7uuaQXRGJcpo1dax89CGv2maB +ejGJ1APq3vx8rw/ySlIJn+/geksGtYgXBqApfVs4oJxEKsqqxCoPI7B88lHy +TQ2J1t4Ml/iDaLBpy9BHgWckYrJO8vWdaZBxf8/l49hZGmlffL1ocLFav1qg +lUQLbpRXtETS4EHFjJrQc7zfcrg70yppcEs0qGLxC3yeZvlm62jQwaddNV+v +A89vkpOBu4gxZKy3nax7T6J/QzVdqtvXwzK1K68XcUnUGYE2nLppBmUhNWdX +KnxHaj5vnb2DNsFg/3DMHcfviD1XU6ZyFEDkRcWQc/x3pDDyYJEC0wpsJkrG +nzZ9R+F0i89putYQbf53b5HoEGKOzbbKcm1APeiZfLHrECq1CluU22EHi98/ +LmUUD6GC6cDHJekOsGLLxXfDQsPop6Xiy+a4LZBhFcLIDBxGHIEFvD6/rRBn +vy5F7sMwCl5xMDVeYxs0FasXKtlwUdm+1sbLCS6QeOSlFecJF0VNKc3o7dsO +9kFXi+zRCOI72ro9+8cVdiU5Tt99OYLM9ly0HNy+AxhluaGKfqPojVJ2YDN9 +J2hr3pM1442i5bdONhSu2QWBG5doxKaPoQe9uk7Okm5QZl8ob0kfR6rdEwER +Y24gHq22IrF7HNEvXyzJ790N2xdFC3qf/YGyF04ZpDW5Q5Gdnnem8gSqsTTs +Saj1gGOJIryNMRMoa8M56dliTzBU2p5rxplAHZ9uJtKT94Cth1wF3YyHqrde +1ww57gXCWeL2ajk8xDuwQyCY5Q3DB4se/prlIb6tzt5xhg9cPvH2h7jnJCoc ++/gzzOQfqLuqf+nMo0nk/u9Nf28JX0huVeXRlKdQ1d0t/yw47Qshj9Sla49N +ITPlN7/O/vKFmFi7p4bvp5BGb0DP631+kB1wTfO13jT6Jr5/2/UBP/AmDnO8 +Tk6jzvPO/na7mHDnidFLl85plB6ZK364kwnC9UdLS1T4qOHR3C9/B3+QF4zz +K2fy0VIvOE2v84flV3z7tK/z0aplzzpWNPhDj1nHcelsPjJq36oo8sgfIu+J +Zf7GdrXYU/ThsT8MLTXQfpHLR+krIl4ce+4P2j9lX7Pz+Wg5587S1g/+YOAg +pRFfzEeaPgpZXjP+YGHFi3d+wEdmvuOFCcYs8F6ge8b8DR/dujIR5mzCgrqZ +pZ5T2Mu6JjcrmLKgtqGn+E4XH43bzHQXbmSB4vGrrcvf8vH5JSDYbsWCzFod +3uR7PloyI+0hs50FTMW5j+c4fPQtZf3i3AMsEDIL1XUf4qPz9TH7HtxiQfRI +hhhzlo8O0DLNIgtZkLastYDCdiqqXGxazAKd7NT6c3/5SCyTLLpfygI1tzif +yv/4KCHUhVtzjwVxrbMRPwUoFKOjub/6CQv8E0Q/HxCmUGDmi6C7X1jQFbvj +2bQkhRyWkBahvSzY6LS/KXIJhdYkCEjS+nG9jXOms9hk6PrSykEWnBG0TBWU +opCfc+5YxSiuJ/nqqLAMhdyFw4LLf7PA5U6ePR/fI+zCloeUyLNBMmr35AEV +Cj3JTXRMU2SDaFpPBRfbon1SM3I5G652t7wkVClkpPXiI0OVDXG/D6l7r6SQ +0vtoxictNli0bzS2UqPQiDlHXmw9G+KbXAbGNCl0QSjvYcAONnhaf2pq06OQ +mKFE1tZdbHBx1lhJX0uhU3siQ+m72XDbuf3tVezIey7ac55sEOcO7dyrj/Mn +BC9mMNngMzuc+ceAQvQ2JuvpITYw3hCqC2gUen9RS1wjlQ37x/VzL2+gUBmS +3Dt0kQ2kjkDJAPapsenm0ktsmNzmrL3OlEI0h+ZY00w2PMvQ3NeGfV7Af3Jr +DhvSY3UVKTMK2R7M+xhZwobBJ7EKNAsKqaicMdlcxgbH1njhI9jTbQcvLahg +w/WHWn712DdWo63nq9ggz1Lxs9pEob8cTmN+Hfaf/SccNlPonpNy4atWNnA/ +9SELoFDSbyHh9Dbc/1FDoUhsZiHXz6OdDQa/vNdVYUstrFP+1sEGs23r3mlb +Uiio3v3Cr3dsaKbFm4pZUUhDNyNCc5ANbV45blUMCv1+f6xrmGTD6nTB/kHs +zgS2UfkQrv9T3kcFawrF9hlzzUbZcG5NsGQUdk9Wl/e2KTb0pjISN9hQKG2R +tE2UIAG0WVp1hi2FGiY5e8IXEMCzmW5qxv7OKQ4NFiYg4xepNIltcc86j7mY +gDOWJtcc7fB684384yhNgKup9+QktpSTjYyNLAH9p8+aKdtTaOMGGR0kR4DN +cMYzK+xUyRI3uhIB27mGDy7Mt9d9rVRWI+DsNT/uKgcKETdLWuU0CJgUuB7A +wE5NPfp1qRYB738c0mNjk4Ss5EIdAu5yOhNvzbfL2u0dNSKAceN00ipHCtX9 +JxtH0ggoa39usQl7cLj3cq8xAWavg4w9sM0bo5q6TQn8f6mnzmN/CypTfQgE +1Ne2t/Cwl7hHr79vRYCaRUCx6BYKmTHsnSqtCfj1nNatin1eqf/oTXucn5f9 +b3vsBwvLU3MdCUg5eobywh74EX37ihMBOZ2DpiHYpi1yb1NcCIBN5IV0bGZl +/8hpVwJOPTtecBM75Xq50ImdBFQe1p6rxu4PdTCKcCfg/qJzid3Ykj7ydiGe +BDQ/3FzVPx/PYcA70IsAfQue1sT89yuPJfn4EuCvwOCIOuF8xBxvuDNx/gWf +1ZZh9/Pla11ZBBh67C1RxZbsG+hwIgj4Wj8QswbbtL2CtN1LgPUxp0vrsJn3 +j/2FQAKMo/J+mGGn3HBctjEIz18956LlfPwUBb31wQS8DBeKsp+PH/nN0jCE +AK6IZKEztgSr0l0nlIATf/8o78TesC32oEY4jif16q37fHzzLYkqEQQcUT/x +1gs7WUsxWyGSgHCGgrIvdo3UYJV0FM63LPkWE7vvT2WbeAwBrOd9R1jz8b/H +9gnHEpCvLX+BjW3yZsvPuTgCNp7WGZ33/wGIROI0 "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.8190010003206292, 1.212160280392001}}, + "PlotRange" -> {{0, 180}, {0.7018163249116506, 1.393651888378783}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.819001000320631}, + "AxesOrigin" -> {0, 0.7018163249116521}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 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 +6469,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.7018163249116521}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -1725,7 +6498,8 @@ f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.8190010003206292, 1.212160280392001}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.7018163249116506, 1.393651888378783}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -1733,9 +6507,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.9940135587943172`*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"f93aaf10-e228-4542-9f69-e7cdcb495725"] }, Open ]], Cell[CellGroupData[{ @@ -1798,348 +6571,168 @@ 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\\\", \ -\\\"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}, - CellLabel-> - "During evaluation of \ -In[169]:=",ExpressionUUID->"eede1010-35b4-8e43-8206-4c3ebae733c0"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.5836247142456827`*^-279\\\", \ + "\"\\!\\(\\*FractionBox[\\\"3.93821562950703`*^-271\\\", \ \\\"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, 9, + 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913281934227676`*^9, 3.994013559149571*^9}, CellLabel-> "During evaluation of \ -In[169]:=",ExpressionUUID->"01174b23-a2bd-8e4e-90f5-af7e82df101e"], +In[95]:=",ExpressionUUID->"e7fd3af8-70a2-4260-ade4-fef60557e369"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.3739060311364366`*^-291\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.1302813743730746`*^-282\\\", \ \\\"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}, +to represent as a normalized machine number; precision may be lost.\"", 2, 95, + 10, 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913281934227676`*^9, 3.994013559156846*^9}, CellLabel-> "During evaluation of \ -In[169]:=",ExpressionUUID->"ec7385ad-4809-8947-afea-81e4a95fc523"], +In[95]:=",ExpressionUUID->"f40ca641-d206-4092-9369-582e491819f6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1523235802527391`*^-293\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 95, 11, 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913281934227676`*^9, 3.994013559164084*^9}, + CellLabel-> + "During evaluation of \ +In[95]:=",ExpressionUUID->"eabbe243-5aed-4a30-b16d-3105b6b32600"], 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, 12, 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913281934227676`*^9, 3.994013559170689*^9}, CellLabel-> "During evaluation of \ -In[169]:=",ExpressionUUID->"4176ecfe-3aff-0f4b-824e-b07e40312968"], +In[95]:=",ExpressionUUID->"cfff5e8a-2c73-422d-959a-d31a9779ec07"], 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:eJwV13k0VWsYBnClDCWZj9k5xzFknmU4vS+JzClKMmUIhVISklCGTAmFMlWG +BsPZp1SGJCokcqUiGZJu5SIVilu5+/6112/ttfZa3/A837dpPge3+6/k4OCQ +WsHB8f9zYaTzESOtbNPbdS6Kn6XNN/UXi0eZDSTA6BDnjqgiKqDocx/xgWyI +tUjV3lGkBRHbbrzmHLgCjg/EIoyKEARnKNmLr9kQMdQ0LVi0DUabHA7OvW4F +0w7P+JxCb7BkTA5/fd0Hcf+UP7t+8RAsvjY8P/t6HBx1J0XX5cRB2+bKsr+u +fIez7dVnnOnnQHq0/m8ftd9Q0lmZzpIvAJFgrxvcmzkxz/qgQKhTKWRrWzY6 +uPBg6J6g57q0MhjM12r5KrAO251fLrnuq4S0spPPV0oIYnHYdFj2+RtAyX1/ +JqdIGD80/ClQdqwGcdW60z8rhFH5097CFNdqkGxNOunBEsYo38Wb43urQXZ2 +w1GlNmH0q+edOR1eDQp2h7wbPwnj/aU/b+MLqkF31W+D97oiSAeLAPfxanAM +F5vQeSqCtcr5xekHayDZ2XpT34Ioaqin3716rBYkb/dIrlwhhkc+qLspx9VC +jbDzD+21YtiQl3m3PKUWXvV5ss7JiWH3uHBJakEtMJzC6U5bxXBFVxTv74Za +aLUv4eotEEOZZnreqV+18NtyvqfblIISYwwzXiYLsiqib/62pGBbsmr8K2QB +g4sjRd2JgheGHYRLLVhg93iNWYY/Ba13jqop27Hg4mbqLbtMCo4EyWrw7WHB +RrTN6xqloM8bK335SBYcMbrs1ZkgjkZbdi6n1bLAppR/zjZdHO9wVe27wWYB +nTsmpee8ONp6UHIf17Ggt38n8eKaOCrteoffGlmgcYiPc6RHHL3CPMYYHSz4 +VHGs4pukBL4zYKh+GWWBu4jDtNQtCeQ2P/WEso4A3eON8cVNEhjySWekZz0B +a8aVxWhPJPBiVXRjghAB9bWcoDgogWIKXO1jFALEbOuztJYlMLywWj6CTkBv +PENvi60kjoglcnIZEmDxZSk69L0kLtzdJNzoQUDU1lyVh1OS2Cq0M3jZi4Ca +y+pvhBcksVPrXA36ECDu7G1UzyOFZxwkvtTvI2Dq3uMfnBpS6L2g5Z98kICc +hKzwgkgptEzyc8iMI2BcVDH00TppHBDSTrUvJYBy8IEMhSKNl99LBGleIcCu +w7U7iCqNZrw8G/nLCLgTnaa2Xlcaf5SuqWytJCB1dHZyt6s0sr6F/8VVS4DO +9caAL1eksbKEu+BXEwHxpk57JTfKoGhstXLpKwK2ehZ/MzSXQYn2ng1mAwTw +x/1zysVOBlO/qxWODBJQ2JZYkeUtg2FN6a/4hwm4Z9PwD9cZGdx2JbvW4j0B +s67yEd8HZVCmSMWP6wsBd6MPcQtOyOBAvlpd6CwBsYX38zVmZPBGcunJF18J +4Bvb1Ri0UhYP7hY6lT1HgFJAOseYiiye/9C+4+9FAjyPzqc+Oy6LvlqeRR84 +2aCQZy49mSiLvBlvO0VXs8n5O1vNnSWLd8Olosy52BD9a0OveZksXjB09jnH +w4bzpzxF65/J4hJuClu9jg3PzrWXlMvIYRRHr4CVKBtybolotynJ4cD55joQ +Y4Pby72tY9py6KrR/VGPwoZP4r8mpCzlcKiea0FEgg2cpVoq2aFy2PTJpuem +NBuMawpuxz6QQ6G+YD59eTZYvO75PdMhh99VOf/9TNqBY5WVV58cdn98/u0S +gw2+20MH4YMcthRGcfxQYIPlcdrJuNVU1CnWLT+jzIau9U1XN66h4tW9RTOK +G9iwrWxnxyw/FcuUVS0fkt7TnSa4V5yKBWxD+rQKGw7JLVw1U6XicMZYCU2d +DfO3sjoWNaloJaIdXEk6eqvqNKFHxaGCVlsVDTYkhnkb0DdR8dYfCyslTTZc +bHvasdKJigIaBuZ/tNgg5+o/3eBCRcvcnw3B2mwom1oWPOJGxeSDVnYDpGtF +9fe896Wi3hCzsUKHDY8CSqbbIqiolls4TNVjg/UvI6GY41RsqX2mHkm6J6vf +QC+Oipr2KwufkR6s540rO0PF5Umrl8H6bPB0KCtzz6SiR17z5XukJ8Y3dYrk +ULFamufsCgM2zKwNF0ospGJe5aeeVNJHSvkNmZepSIz9Q+8i/VPv+p75cio+ +db14kceQXB/PkTL/WiruWxj4EU065Vtkp8xtKpp0vBmpJc2fLDzz8h4Vu7UO +TL0jLc7aamjZSsXFHHoscyMbiize7/nzhHRZC2cAafrgibg7XVS8HDnEziB9 +LUS8PLSXirlWWukEafWVtzoVX1LRbz4mq480+4L9zMggFRkCcS2zpDeqfhLK +G6Hi2POf0nxGbLj/IMHQ8T0VdcUqKxikzZ1l3Lk/UbEtxNbTmHT7p7txD6ao +2MdbaWFP2u7E9vJjX6nY8fi4mwfpPsHpTs0Fcn4Y6aX7Se+qSJ75uETF+9su +UY6SfmtMFy5dpuJnyZCWGNI+z5sMXVfR0Gfp8aV40h99d7kL8NKQwnfgxinS +wT+/xnWso6GtEH06gbRx2D6xv4Vo6HHK5GcsaZ7JNzc5xWlYMszddIz0Kx9H +M5oMDc9mJhqFkC4fanu1iU5D1Q+3wrxIhztvDHZXouEGwRx/h//H1121IlqN +hnZ0htj/4xOwpOXladOwgjvoNJ30SPN5tToDGo5n+hHcpKsM17T2mdAw1Vey ++DM5f9Gs2F2zSMPd/GdtO0hv3fB9ap0lDcPm2huukha7EpCgakvDOzu7po6T +npB8S7HeRkMOp9Lxbf+vR8626n0uNIwcdCiik3ZMNBq47EXDlCp3/yZy/WX/ +VIc88KMhUHvDT5OeiqBzDgfR8OvhLfbW/++fwLUa4uE0rN8S4NFJ7red7062 +6UfRUKRMI+80aYbbnOuOWBqeLlQvNiXdYjt8KjOFhiYGguJXyf2c+chJoiqD +hrk7KBlOpN2ZT2o6s2lYviL/xS8yD4satYOrimj4ebXLoDVpHaF4zeMEDc1b +/3y4T+aLI23+Uf4dGq5tFlm9g3QP5363O400TNPY/meCzOOB+e2JXx/TsJXv ++qllMr9lA4yhgDc0HFRo+MlP5vuwU8GhxFEa3i1a5E4j849P13FdnaDhEUVc +4iQ93LigNTJDvp/zTp9SI+ezpCPJmZOOgnzZSflkv0xQmNKHeeh4RaW8+1+y +f9hZBHF2HR0VtXs53Ek7Jlx8+5RCx4mbq7SEyf5K8Q/WMVOj4/kWzT53st8W +VQVG1F3omAmGKp5ybFgokozXdaNj9e3YpFxZNsytV2AYedFxYT7gd7sMmffv +Rvstguho2nsFFMl+HW/0XXA7Qcf+rMP6LeJseGp7lz+lnI41j5z/3i9I5uX+ +QyLjBh1FvvkcPSJA9pHmM+ecWjrmywdqR61nQ7Pwu4vF9XQ0SVypH0P2P3to +jVJdNx1zj21J8+Yl+++AJ4zP07FBcF/MVQ425A0Hjn9comO8qlLgyWUCch2P +JE4v0/FS0PMc1z8EZOqmdP3klceeo+W1K38RkPAvsWu9rDy+GTOUMvhBwIG0 +1YdMLeWR9d6sT3KaANObVaUXLsjjLLe45wR5vg5Rb5ZsuSSPnskymqdfEhB9 +4XrxXIk81rjyNtP6yfMyvqJw+3V59K1kSez8izyvXUvz+ZvkcbpF8sPVLgI2 +rM7NSnonj1TpgNv9D8j7idfxuAg1BobffZaUXUFAXX/USQVtBtofWBCfIu8D +zjaRsf36DOxfPpu6+SoB2fpHY3SAgUuiuwWmSghYx3cwcsaJgZNO8Ei+gIBV +9T6H9h1j4Ck9jWaNNAK+Ctl472xl4OKq6LMNIQQMBNN797czULNW7f61AwS0 +PFmCk88Y+CXUMCc3iICs6Jty114xcDB4junvT4DWON/o4iQDCzsj6ybdCQgl +nnsUCSvgjJZAULItAZOOLnsm/BQwYU1fv6ASARPp3jsPcyvi/K9UxcbXLAid +VKNr8SniG9E4M9uXLPhhtTg9LaCIjUaUK4N9LFjDmZ0YJKmIiTHTG792s0Ar +qu22t7oi6lalj6x9xIIT/orCjjsUcVzqhMgseb8U2zT1XLWE/N6mgaSYJBZY +fzlm/cFACaszCi580mDBlC/PkdsnlVFLNLg8qqmG/J+grExu3YAiFkcl1i9V +gVC3YibriwqG7K+JDTG5CdIptdsMDNTwiQR3WY7FdchXNRIQDlDHjtDTLbvJ +/4Onkmb6389poPiB+rC2rHIwlm7N0nyliSPWI5teF1wFfs4r4XsTtDBv1lw4 +t/cyyMbLme5W1Ea+wLaYqI8lwKvgfmd7uzZestl1Vzu0EDSYErXHPHSwMCLh +zph3ARweEWqz4dDFcx0GtBc2F+DL93QX63xd7LVtftp9OQesNJ9ctFbXQ7WZ +j307Tc9B83eTf3/06KHnW+mN5c0ZEKqm8+Yvf31s6SsaPfb4DDBn/Pp38xqg +k1f8ysNTibCFIW6/7ooBfnw/H9t7PwGU41IjWw0N8ZOQfm/ij5Og4m/0QOGN +IbYF8/RbNEWDf3Pg6dthG7G3/ux1ZlwEPCjt9/sqaoTyD+4b7844DHPXln9o +3jXC+OEuCelToeCrcJP3or0x7mfY/vtsaxBEP/bcr7jNGKsSPF1ndIMgy1+o +i73dGGWp547IygVBU3lUetcuYxwpxUc35gNBRHHr+t97jfHP8L2Zw1cD4Yni +BxHvCGN8JFcT2rAiEFSU5aiKJcb4fMvptpmOffBVJceAPWuM8YXtsUZxfjDw +DLcIfzfGCd7IiLmDftASOrMjfN4YMVY3v8HLDzLZ1mEGS8YY7pRjFgh+oGLM +UdXAaYIOZ14lbF32BR/rEFqbmAk+flQQQ4n3hf4AK75+UxNM2uN08XG6D9wr ++/fdfIoJVoc4M6XavMFgc/gPmzQTdPL4/f5OnTfUvZviK80wwd/p6aN7rnkD +W3bE0CbbBKNU9rY8zPCGqvyWjOJLJni9wPfCL1dvKE1PNLKqMcG6cz1rnce9 +4Ez4+nP5L0xQjEev6+Q2T3CzkEcTWVMsC3Z4Gu29B3738/C3UU2xTaBAS2Hr +Hij1nxmykTdFF8uxgnHNPfB3Uv0xN2VTZApfsriw7AaHOx1ro3RM0XguoGK0 +xA1SHWJk71maYkr5a97Z97uhwfXlL72DpuieXDlwK8oVpEKS6zVaTFHq4KAS +c9AFMpf36ae1mmIcgxlT+sQFVmZbEh8fmeL+8zgkeNsFJu+svl7aaYr56zvO +y551gQaO0/lCL0yxx5HGNbrFBdxy444tfDDFA12mqnN1zpDfGKXfvJaJ8iXl +ArqlO0B0TTBhv4uJz0UtYtQuOUHZ5hPRs7uZKDN77TpXqhPonMjcnOPOxPtf +vBq+RDqBwyzr5cBeJp7j4Hab2ekESa/mF32Dmaj0evfeQmEn+HnlpHl0PBP3 +N1+SZp/dBm9Mcl5U3GSi0Br/h98ZjhB4tKzQuoaJ5jLHwwy5HGGhps5/isXE ++WffzC98dAAh+sAP7TukhcJ+lt1wAFseGen7LUyM/CBxdJWOAzT1V/i9eMnE +4pQisYYt9mDDf089YoCJxhMG/hXK9jBg1bkgPsREbwHx3Kq19jDX8E+K5xgT +pbT/bObqswP1y1rVnyeZGLpqtn3Kyw6a3phFpE8z8aEQ/1z5ZjuwEdkBmrNM +TDyk7xepZAf7ko/+FT7PxFGF3W2BX2xhriXpIuUnE+s9etKSXthCwlKeb8MS +E/eWbLK9f9cWBPSuq3n8ZmJcZcIMX6EtFIc0zC8vM3EiNtbnaJwt/Afts+Wr + "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -2153,307 +6746,124 @@ 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:eJwV13k0VWsYBnClDCWZj9k5xzFknmU4vS+JzClKMmUIhVISklCGTAmFMlWG +BsPZp1SGJCokcqUiGZJu5SIVilu5+/6112/ttfZa3/A837dpPge3+6/k4OCQ +WsHB8f9zYaTzESOtbNPbdS6Kn6XNN/UXi0eZDSTA6BDnjqgiKqDocx/xgWyI +tUjV3lGkBRHbbrzmHLgCjg/EIoyKEARnKNmLr9kQMdQ0LVi0DUabHA7OvW4F +0w7P+JxCb7BkTA5/fd0Hcf+UP7t+8RAsvjY8P/t6HBx1J0XX5cRB2+bKsr+u +fIez7dVnnOnnQHq0/m8ftd9Q0lmZzpIvAJFgrxvcmzkxz/qgQKhTKWRrWzY6 +uPBg6J6g57q0MhjM12r5KrAO251fLrnuq4S0spPPV0oIYnHYdFj2+RtAyX1/ +JqdIGD80/ClQdqwGcdW60z8rhFH5097CFNdqkGxNOunBEsYo38Wb43urQXZ2 +w1GlNmH0q+edOR1eDQp2h7wbPwnj/aU/b+MLqkF31W+D97oiSAeLAPfxanAM +F5vQeSqCtcr5xekHayDZ2XpT34Ioaqin3716rBYkb/dIrlwhhkc+qLspx9VC +jbDzD+21YtiQl3m3PKUWXvV5ss7JiWH3uHBJakEtMJzC6U5bxXBFVxTv74Za +aLUv4eotEEOZZnreqV+18NtyvqfblIISYwwzXiYLsiqib/62pGBbsmr8K2QB +g4sjRd2JgheGHYRLLVhg93iNWYY/Ba13jqop27Hg4mbqLbtMCo4EyWrw7WHB +RrTN6xqloM8bK335SBYcMbrs1ZkgjkZbdi6n1bLAppR/zjZdHO9wVe27wWYB +nTsmpee8ONp6UHIf17Ggt38n8eKaOCrteoffGlmgcYiPc6RHHL3CPMYYHSz4 +VHGs4pukBL4zYKh+GWWBu4jDtNQtCeQ2P/WEso4A3eON8cVNEhjySWekZz0B +a8aVxWhPJPBiVXRjghAB9bWcoDgogWIKXO1jFALEbOuztJYlMLywWj6CTkBv +PENvi60kjoglcnIZEmDxZSk69L0kLtzdJNzoQUDU1lyVh1OS2Cq0M3jZi4Ca +y+pvhBcksVPrXA36ECDu7G1UzyOFZxwkvtTvI2Dq3uMfnBpS6L2g5Z98kICc +hKzwgkgptEzyc8iMI2BcVDH00TppHBDSTrUvJYBy8IEMhSKNl99LBGleIcCu +w7U7iCqNZrw8G/nLCLgTnaa2Xlcaf5SuqWytJCB1dHZyt6s0sr6F/8VVS4DO +9caAL1eksbKEu+BXEwHxpk57JTfKoGhstXLpKwK2ehZ/MzSXQYn2ng1mAwTw +x/1zysVOBlO/qxWODBJQ2JZYkeUtg2FN6a/4hwm4Z9PwD9cZGdx2JbvW4j0B +s67yEd8HZVCmSMWP6wsBd6MPcQtOyOBAvlpd6CwBsYX38zVmZPBGcunJF18J +4Bvb1Ri0UhYP7hY6lT1HgFJAOseYiiye/9C+4+9FAjyPzqc+Oy6LvlqeRR84 +2aCQZy49mSiLvBlvO0VXs8n5O1vNnSWLd8Olosy52BD9a0OveZksXjB09jnH +w4bzpzxF65/J4hJuClu9jg3PzrWXlMvIYRRHr4CVKBtybolotynJ4cD55joQ +Y4Pby72tY9py6KrR/VGPwoZP4r8mpCzlcKiea0FEgg2cpVoq2aFy2PTJpuem +NBuMawpuxz6QQ6G+YD59eTZYvO75PdMhh99VOf/9TNqBY5WVV58cdn98/u0S +gw2+20MH4YMcthRGcfxQYIPlcdrJuNVU1CnWLT+jzIau9U1XN66h4tW9RTOK +G9iwrWxnxyw/FcuUVS0fkt7TnSa4V5yKBWxD+rQKGw7JLVw1U6XicMZYCU2d +DfO3sjoWNaloJaIdXEk6eqvqNKFHxaGCVlsVDTYkhnkb0DdR8dYfCyslTTZc +bHvasdKJigIaBuZ/tNgg5+o/3eBCRcvcnw3B2mwom1oWPOJGxeSDVnYDpGtF +9fe896Wi3hCzsUKHDY8CSqbbIqiolls4TNVjg/UvI6GY41RsqX2mHkm6J6vf +QC+Oipr2KwufkR6s540rO0PF5Umrl8H6bPB0KCtzz6SiR17z5XukJ8Y3dYrk +ULFamufsCgM2zKwNF0ospGJe5aeeVNJHSvkNmZepSIz9Q+8i/VPv+p75cio+ +db14kceQXB/PkTL/WiruWxj4EU065Vtkp8xtKpp0vBmpJc2fLDzz8h4Vu7UO +TL0jLc7aamjZSsXFHHoscyMbiize7/nzhHRZC2cAafrgibg7XVS8HDnEziB9 +LUS8PLSXirlWWukEafWVtzoVX1LRbz4mq480+4L9zMggFRkCcS2zpDeqfhLK +G6Hi2POf0nxGbLj/IMHQ8T0VdcUqKxikzZ1l3Lk/UbEtxNbTmHT7p7txD6ao +2MdbaWFP2u7E9vJjX6nY8fi4mwfpPsHpTs0Fcn4Y6aX7Se+qSJ75uETF+9su +UY6SfmtMFy5dpuJnyZCWGNI+z5sMXVfR0Gfp8aV40h99d7kL8NKQwnfgxinS +wT+/xnWso6GtEH06gbRx2D6xv4Vo6HHK5GcsaZ7JNzc5xWlYMszddIz0Kx9H +M5oMDc9mJhqFkC4fanu1iU5D1Q+3wrxIhztvDHZXouEGwRx/h//H1121IlqN +hnZ0htj/4xOwpOXladOwgjvoNJ30SPN5tToDGo5n+hHcpKsM17T2mdAw1Vey ++DM5f9Gs2F2zSMPd/GdtO0hv3fB9ap0lDcPm2huukha7EpCgakvDOzu7po6T +npB8S7HeRkMOp9Lxbf+vR8626n0uNIwcdCiik3ZMNBq47EXDlCp3/yZy/WX/ +VIc88KMhUHvDT5OeiqBzDgfR8OvhLfbW/++fwLUa4uE0rN8S4NFJ7red7062 +6UfRUKRMI+80aYbbnOuOWBqeLlQvNiXdYjt8KjOFhiYGguJXyf2c+chJoiqD +hrk7KBlOpN2ZT2o6s2lYviL/xS8yD4satYOrimj4ebXLoDVpHaF4zeMEDc1b +/3y4T+aLI23+Uf4dGq5tFlm9g3QP5363O400TNPY/meCzOOB+e2JXx/TsJXv ++qllMr9lA4yhgDc0HFRo+MlP5vuwU8GhxFEa3i1a5E4j849P13FdnaDhEUVc +4iQ93LigNTJDvp/zTp9SI+ezpCPJmZOOgnzZSflkv0xQmNKHeeh4RaW8+1+y +f9hZBHF2HR0VtXs53Ek7Jlx8+5RCx4mbq7SEyf5K8Q/WMVOj4/kWzT53st8W +VQVG1F3omAmGKp5ybFgokozXdaNj9e3YpFxZNsytV2AYedFxYT7gd7sMmffv +Rvstguho2nsFFMl+HW/0XXA7Qcf+rMP6LeJseGp7lz+lnI41j5z/3i9I5uX+ +QyLjBh1FvvkcPSJA9pHmM+ecWjrmywdqR61nQ7Pwu4vF9XQ0SVypH0P2P3to +jVJdNx1zj21J8+Yl+++AJ4zP07FBcF/MVQ425A0Hjn9comO8qlLgyWUCch2P +JE4v0/FS0PMc1z8EZOqmdP3klceeo+W1K38RkPAvsWu9rDy+GTOUMvhBwIG0 +1YdMLeWR9d6sT3KaANObVaUXLsjjLLe45wR5vg5Rb5ZsuSSPnskymqdfEhB9 +4XrxXIk81rjyNtP6yfMyvqJw+3V59K1kSez8izyvXUvz+ZvkcbpF8sPVLgI2 +rM7NSnonj1TpgNv9D8j7idfxuAg1BobffZaUXUFAXX/USQVtBtofWBCfIu8D +zjaRsf36DOxfPpu6+SoB2fpHY3SAgUuiuwWmSghYx3cwcsaJgZNO8Ei+gIBV +9T6H9h1j4Ck9jWaNNAK+Ctl472xl4OKq6LMNIQQMBNN797czULNW7f61AwS0 +PFmCk88Y+CXUMCc3iICs6Jty114xcDB4junvT4DWON/o4iQDCzsj6ybdCQgl +nnsUCSvgjJZAULItAZOOLnsm/BQwYU1fv6ASARPp3jsPcyvi/K9UxcbXLAid +VKNr8SniG9E4M9uXLPhhtTg9LaCIjUaUK4N9LFjDmZ0YJKmIiTHTG792s0Ar +qu22t7oi6lalj6x9xIIT/orCjjsUcVzqhMgseb8U2zT1XLWE/N6mgaSYJBZY +fzlm/cFACaszCi580mDBlC/PkdsnlVFLNLg8qqmG/J+grExu3YAiFkcl1i9V +gVC3YibriwqG7K+JDTG5CdIptdsMDNTwiQR3WY7FdchXNRIQDlDHjtDTLbvJ +/4Onkmb6389poPiB+rC2rHIwlm7N0nyliSPWI5teF1wFfs4r4XsTtDBv1lw4 +t/cyyMbLme5W1Ea+wLaYqI8lwKvgfmd7uzZestl1Vzu0EDSYErXHPHSwMCLh +zph3ARweEWqz4dDFcx0GtBc2F+DL93QX63xd7LVtftp9OQesNJ9ctFbXQ7WZ +j307Tc9B83eTf3/06KHnW+mN5c0ZEKqm8+Yvf31s6SsaPfb4DDBn/Pp38xqg +k1f8ysNTibCFIW6/7ooBfnw/H9t7PwGU41IjWw0N8ZOQfm/ij5Og4m/0QOGN +IbYF8/RbNEWDf3Pg6dthG7G3/ux1ZlwEPCjt9/sqaoTyD+4b7844DHPXln9o +3jXC+OEuCelToeCrcJP3or0x7mfY/vtsaxBEP/bcr7jNGKsSPF1ndIMgy1+o +i73dGGWp547IygVBU3lUetcuYxwpxUc35gNBRHHr+t97jfHP8L2Zw1cD4Yni +BxHvCGN8JFcT2rAiEFSU5aiKJcb4fMvptpmOffBVJceAPWuM8YXtsUZxfjDw +DLcIfzfGCd7IiLmDftASOrMjfN4YMVY3v8HLDzLZ1mEGS8YY7pRjFgh+oGLM +UdXAaYIOZ14lbF32BR/rEFqbmAk+flQQQ4n3hf4AK75+UxNM2uN08XG6D9wr ++/fdfIoJVoc4M6XavMFgc/gPmzQTdPL4/f5OnTfUvZviK80wwd/p6aN7rnkD +W3bE0CbbBKNU9rY8zPCGqvyWjOJLJni9wPfCL1dvKE1PNLKqMcG6cz1rnce9 +4Ez4+nP5L0xQjEev6+Q2T3CzkEcTWVMsC3Z4Gu29B3738/C3UU2xTaBAS2Hr +Hij1nxmykTdFF8uxgnHNPfB3Uv0xN2VTZApfsriw7AaHOx1ro3RM0XguoGK0 +xA1SHWJk71maYkr5a97Z97uhwfXlL72DpuieXDlwK8oVpEKS6zVaTFHq4KAS +c9AFMpf36ae1mmIcgxlT+sQFVmZbEh8fmeL+8zgkeNsFJu+svl7aaYr56zvO +y551gQaO0/lCL0yxx5HGNbrFBdxy444tfDDFA12mqnN1zpDfGKXfvJaJ8iXl +ArqlO0B0TTBhv4uJz0UtYtQuOUHZ5hPRs7uZKDN77TpXqhPonMjcnOPOxPtf +vBq+RDqBwyzr5cBeJp7j4Hab2ekESa/mF32Dmaj0evfeQmEn+HnlpHl0PBP3 +N1+SZp/dBm9Mcl5U3GSi0Br/h98ZjhB4tKzQuoaJ5jLHwwy5HGGhps5/isXE ++WffzC98dAAh+sAP7TukhcJ+lt1wAFseGen7LUyM/CBxdJWOAzT1V/i9eMnE +4pQisYYt9mDDf089YoCJxhMG/hXK9jBg1bkgPsREbwHx3Kq19jDX8E+K5xgT +pbT/bObqswP1y1rVnyeZGLpqtn3Kyw6a3phFpE8z8aEQ/1z5ZjuwEdkBmrNM +TDyk7xepZAf7ko/+FT7PxFGF3W2BX2xhriXpIuUnE+s9etKSXthCwlKeb8MS +E/eWbLK9f9cWBPSuq3n8ZmJcZcIMX6EtFIc0zC8vM3EiNtbnaJwt/Afts+Wr + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "PlotRange" -> {{0, 30}, {0., 0.07119009886359638}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +6875,19 @@ Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "PlotRange" -> {{0, 30}, {0., 0.07119009886359638}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +6901,123 @@ 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:eJwV13k0VWsYBnClDCWZj9k5xzFknmU4vS+JzClKMmUIhVISklCGTAmFMlWG +BsPZp1SGJCokcqUiGZJu5SIVilu5+/6112/ttfZa3/A837dpPge3+6/k4OCQ +WsHB8f9zYaTzESOtbNPbdS6Kn6XNN/UXi0eZDSTA6BDnjqgiKqDocx/xgWyI +tUjV3lGkBRHbbrzmHLgCjg/EIoyKEARnKNmLr9kQMdQ0LVi0DUabHA7OvW4F +0w7P+JxCb7BkTA5/fd0Hcf+UP7t+8RAsvjY8P/t6HBx1J0XX5cRB2+bKsr+u +fIez7dVnnOnnQHq0/m8ftd9Q0lmZzpIvAJFgrxvcmzkxz/qgQKhTKWRrWzY6 +uPBg6J6g57q0MhjM12r5KrAO251fLrnuq4S0spPPV0oIYnHYdFj2+RtAyX1/ +JqdIGD80/ClQdqwGcdW60z8rhFH5097CFNdqkGxNOunBEsYo38Wb43urQXZ2 +w1GlNmH0q+edOR1eDQp2h7wbPwnj/aU/b+MLqkF31W+D97oiSAeLAPfxanAM +F5vQeSqCtcr5xekHayDZ2XpT34Ioaqin3716rBYkb/dIrlwhhkc+qLspx9VC +jbDzD+21YtiQl3m3PKUWXvV5ss7JiWH3uHBJakEtMJzC6U5bxXBFVxTv74Za +aLUv4eotEEOZZnreqV+18NtyvqfblIISYwwzXiYLsiqib/62pGBbsmr8K2QB +g4sjRd2JgheGHYRLLVhg93iNWYY/Ba13jqop27Hg4mbqLbtMCo4EyWrw7WHB +RrTN6xqloM8bK335SBYcMbrs1ZkgjkZbdi6n1bLAppR/zjZdHO9wVe27wWYB +nTsmpee8ONp6UHIf17Ggt38n8eKaOCrteoffGlmgcYiPc6RHHL3CPMYYHSz4 +VHGs4pukBL4zYKh+GWWBu4jDtNQtCeQ2P/WEso4A3eON8cVNEhjySWekZz0B +a8aVxWhPJPBiVXRjghAB9bWcoDgogWIKXO1jFALEbOuztJYlMLywWj6CTkBv +PENvi60kjoglcnIZEmDxZSk69L0kLtzdJNzoQUDU1lyVh1OS2Cq0M3jZi4Ca +y+pvhBcksVPrXA36ECDu7G1UzyOFZxwkvtTvI2Dq3uMfnBpS6L2g5Z98kICc +hKzwgkgptEzyc8iMI2BcVDH00TppHBDSTrUvJYBy8IEMhSKNl99LBGleIcCu +w7U7iCqNZrw8G/nLCLgTnaa2Xlcaf5SuqWytJCB1dHZyt6s0sr6F/8VVS4DO +9caAL1eksbKEu+BXEwHxpk57JTfKoGhstXLpKwK2ehZ/MzSXQYn2ng1mAwTw +x/1zysVOBlO/qxWODBJQ2JZYkeUtg2FN6a/4hwm4Z9PwD9cZGdx2JbvW4j0B +s67yEd8HZVCmSMWP6wsBd6MPcQtOyOBAvlpd6CwBsYX38zVmZPBGcunJF18J +4Bvb1Ri0UhYP7hY6lT1HgFJAOseYiiye/9C+4+9FAjyPzqc+Oy6LvlqeRR84 +2aCQZy49mSiLvBlvO0VXs8n5O1vNnSWLd8Olosy52BD9a0OveZksXjB09jnH +w4bzpzxF65/J4hJuClu9jg3PzrWXlMvIYRRHr4CVKBtybolotynJ4cD55joQ +Y4Pby72tY9py6KrR/VGPwoZP4r8mpCzlcKiea0FEgg2cpVoq2aFy2PTJpuem +NBuMawpuxz6QQ6G+YD59eTZYvO75PdMhh99VOf/9TNqBY5WVV58cdn98/u0S +gw2+20MH4YMcthRGcfxQYIPlcdrJuNVU1CnWLT+jzIau9U1XN66h4tW9RTOK +G9iwrWxnxyw/FcuUVS0fkt7TnSa4V5yKBWxD+rQKGw7JLVw1U6XicMZYCU2d +DfO3sjoWNaloJaIdXEk6eqvqNKFHxaGCVlsVDTYkhnkb0DdR8dYfCyslTTZc +bHvasdKJigIaBuZ/tNgg5+o/3eBCRcvcnw3B2mwom1oWPOJGxeSDVnYDpGtF +9fe896Wi3hCzsUKHDY8CSqbbIqiolls4TNVjg/UvI6GY41RsqX2mHkm6J6vf +QC+Oipr2KwufkR6s540rO0PF5Umrl8H6bPB0KCtzz6SiR17z5XukJ8Y3dYrk +ULFamufsCgM2zKwNF0ospGJe5aeeVNJHSvkNmZepSIz9Q+8i/VPv+p75cio+ +db14kceQXB/PkTL/WiruWxj4EU065Vtkp8xtKpp0vBmpJc2fLDzz8h4Vu7UO +TL0jLc7aamjZSsXFHHoscyMbiize7/nzhHRZC2cAafrgibg7XVS8HDnEziB9 +LUS8PLSXirlWWukEafWVtzoVX1LRbz4mq480+4L9zMggFRkCcS2zpDeqfhLK +G6Hi2POf0nxGbLj/IMHQ8T0VdcUqKxikzZ1l3Lk/UbEtxNbTmHT7p7txD6ao +2MdbaWFP2u7E9vJjX6nY8fi4mwfpPsHpTs0Fcn4Y6aX7Se+qSJ75uETF+9su +UY6SfmtMFy5dpuJnyZCWGNI+z5sMXVfR0Gfp8aV40h99d7kL8NKQwnfgxinS +wT+/xnWso6GtEH06gbRx2D6xv4Vo6HHK5GcsaZ7JNzc5xWlYMszddIz0Kx9H +M5oMDc9mJhqFkC4fanu1iU5D1Q+3wrxIhztvDHZXouEGwRx/h//H1121IlqN +hnZ0htj/4xOwpOXladOwgjvoNJ30SPN5tToDGo5n+hHcpKsM17T2mdAw1Vey ++DM5f9Gs2F2zSMPd/GdtO0hv3fB9ap0lDcPm2huukha7EpCgakvDOzu7po6T +npB8S7HeRkMOp9Lxbf+vR8626n0uNIwcdCiik3ZMNBq47EXDlCp3/yZy/WX/ +VIc88KMhUHvDT5OeiqBzDgfR8OvhLfbW/++fwLUa4uE0rN8S4NFJ7red7062 +6UfRUKRMI+80aYbbnOuOWBqeLlQvNiXdYjt8KjOFhiYGguJXyf2c+chJoiqD +hrk7KBlOpN2ZT2o6s2lYviL/xS8yD4satYOrimj4ebXLoDVpHaF4zeMEDc1b +/3y4T+aLI23+Uf4dGq5tFlm9g3QP5363O400TNPY/meCzOOB+e2JXx/TsJXv ++qllMr9lA4yhgDc0HFRo+MlP5vuwU8GhxFEa3i1a5E4j849P13FdnaDhEUVc +4iQ93LigNTJDvp/zTp9SI+ezpCPJmZOOgnzZSflkv0xQmNKHeeh4RaW8+1+y +f9hZBHF2HR0VtXs53Ek7Jlx8+5RCx4mbq7SEyf5K8Q/WMVOj4/kWzT53st8W +VQVG1F3omAmGKp5ybFgokozXdaNj9e3YpFxZNsytV2AYedFxYT7gd7sMmffv +Rvstguho2nsFFMl+HW/0XXA7Qcf+rMP6LeJseGp7lz+lnI41j5z/3i9I5uX+ +QyLjBh1FvvkcPSJA9pHmM+ecWjrmywdqR61nQ7Pwu4vF9XQ0SVypH0P2P3to +jVJdNx1zj21J8+Yl+++AJ4zP07FBcF/MVQ425A0Hjn9comO8qlLgyWUCch2P +JE4v0/FS0PMc1z8EZOqmdP3klceeo+W1K38RkPAvsWu9rDy+GTOUMvhBwIG0 +1YdMLeWR9d6sT3KaANObVaUXLsjjLLe45wR5vg5Rb5ZsuSSPnskymqdfEhB9 +4XrxXIk81rjyNtP6yfMyvqJw+3V59K1kSez8izyvXUvz+ZvkcbpF8sPVLgI2 +rM7NSnonj1TpgNv9D8j7idfxuAg1BobffZaUXUFAXX/USQVtBtofWBCfIu8D +zjaRsf36DOxfPpu6+SoB2fpHY3SAgUuiuwWmSghYx3cwcsaJgZNO8Ei+gIBV +9T6H9h1j4Ck9jWaNNAK+Ctl472xl4OKq6LMNIQQMBNN797czULNW7f61AwS0 +PFmCk88Y+CXUMCc3iICs6Jty114xcDB4junvT4DWON/o4iQDCzsj6ybdCQgl +nnsUCSvgjJZAULItAZOOLnsm/BQwYU1fv6ASARPp3jsPcyvi/K9UxcbXLAid +VKNr8SniG9E4M9uXLPhhtTg9LaCIjUaUK4N9LFjDmZ0YJKmIiTHTG792s0Ar +qu22t7oi6lalj6x9xIIT/orCjjsUcVzqhMgseb8U2zT1XLWE/N6mgaSYJBZY +fzlm/cFACaszCi580mDBlC/PkdsnlVFLNLg8qqmG/J+grExu3YAiFkcl1i9V +gVC3YibriwqG7K+JDTG5CdIptdsMDNTwiQR3WY7FdchXNRIQDlDHjtDTLbvJ +/4Onkmb6389poPiB+rC2rHIwlm7N0nyliSPWI5teF1wFfs4r4XsTtDBv1lw4 +t/cyyMbLme5W1Ea+wLaYqI8lwKvgfmd7uzZestl1Vzu0EDSYErXHPHSwMCLh +zph3ARweEWqz4dDFcx0GtBc2F+DL93QX63xd7LVtftp9OQesNJ9ctFbXQ7WZ +j307Tc9B83eTf3/06KHnW+mN5c0ZEKqm8+Yvf31s6SsaPfb4DDBn/Pp38xqg +k1f8ysNTibCFIW6/7ooBfnw/H9t7PwGU41IjWw0N8ZOQfm/ij5Og4m/0QOGN +IbYF8/RbNEWDf3Pg6dthG7G3/ux1ZlwEPCjt9/sqaoTyD+4b7844DHPXln9o +3jXC+OEuCelToeCrcJP3or0x7mfY/vtsaxBEP/bcr7jNGKsSPF1ndIMgy1+o +i73dGGWp547IygVBU3lUetcuYxwpxUc35gNBRHHr+t97jfHP8L2Zw1cD4Yni +BxHvCGN8JFcT2rAiEFSU5aiKJcb4fMvptpmOffBVJceAPWuM8YXtsUZxfjDw +DLcIfzfGCd7IiLmDftASOrMjfN4YMVY3v8HLDzLZ1mEGS8YY7pRjFgh+oGLM +UdXAaYIOZ14lbF32BR/rEFqbmAk+flQQQ4n3hf4AK75+UxNM2uN08XG6D9wr ++/fdfIoJVoc4M6XavMFgc/gPmzQTdPL4/f5OnTfUvZviK80wwd/p6aN7rnkD +W3bE0CbbBKNU9rY8zPCGqvyWjOJLJni9wPfCL1dvKE1PNLKqMcG6cz1rnce9 +4Ez4+nP5L0xQjEev6+Q2T3CzkEcTWVMsC3Z4Gu29B3738/C3UU2xTaBAS2Hr +Hij1nxmykTdFF8uxgnHNPfB3Uv0xN2VTZApfsriw7AaHOx1ro3RM0XguoGK0 +xA1SHWJk71maYkr5a97Z97uhwfXlL72DpuieXDlwK8oVpEKS6zVaTFHq4KAS +c9AFMpf36ae1mmIcgxlT+sQFVmZbEh8fmeL+8zgkeNsFJu+svl7aaYr56zvO +y551gQaO0/lCL0yxx5HGNbrFBdxy444tfDDFA12mqnN1zpDfGKXfvJaJ8iXl +ArqlO0B0TTBhv4uJz0UtYtQuOUHZ5hPRs7uZKDN77TpXqhPonMjcnOPOxPtf +vBq+RDqBwyzr5cBeJp7j4Hab2ekESa/mF32Dmaj0evfeQmEn+HnlpHl0PBP3 +N1+SZp/dBm9Mcl5U3GSi0Br/h98ZjhB4tKzQuoaJ5jLHwwy5HGGhps5/isXE ++WffzC98dAAh+sAP7TukhcJ+lt1wAFseGen7LUyM/CBxdJWOAzT1V/i9eMnE +4pQisYYt9mDDf089YoCJxhMG/hXK9jBg1bkgPsREbwHx3Kq19jDX8E+K5xgT +pbT/bObqswP1y1rVnyeZGLpqtn3Kyw6a3phFpE8z8aEQ/1z5ZjuwEdkBmrNM +TDyk7xepZAf7ko/+FT7PxFGF3W2BX2xhriXpIuUnE+s9etKSXthCwlKeb8MS +E/eWbLK9f9cWBPSuq3n8ZmJcZcIMX6EtFIc0zC8vM3EiNtbnaJwt/Afts+Wr + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "PlotRange" -> {{0, 30}, {0., 0.07119009886359638}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +7028,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 +7056,8 @@ Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.15475569508294718`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07119009886359638}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -2836,25 +7065,887 @@ 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.994013929183416*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"e358fef3-0e71-44bd-af15-e7d0dcdf45fa"] }, 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.005294"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.015702"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.025589"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.034637"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.042584"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.049218"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.054412"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.058095"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.060285"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.061043"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.060506"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.058826"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.05621"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.052848"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.048958"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.044722"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.040328"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.035917"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.031623"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.027533"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.023727"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.020242"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.017109"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.014329"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.0119"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.0098"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.008009"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.006494"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.005229"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.00418"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.00332"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.994012879394449*^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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, + 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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.061043}}, + "Frame" -> {{False, 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.061043}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.061043}}, + "Frame" -> {{False, 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.061043}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994013929371834*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"f21c7f19-af3d-476c-b03a-adcc79dcae07"] +}, 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:eJwV13k0VWsYBnClDCWZj9k5xzFknmU4vS+JzClKMmUIhVISklCGTAmFMlWG +BsPZp1SGJCokcqUiGZJu5SIVilu5+/6112/ttfZa3/A837dpPge3+6/k4OCQ +WsHB8f9zYaTzESOtbNPbdS6Kn6XNN/UXi0eZDSTA6BDnjqgiKqDocx/xgWyI +tUjV3lGkBRHbbrzmHLgCjg/EIoyKEARnKNmLr9kQMdQ0LVi0DUabHA7OvW4F +0w7P+JxCb7BkTA5/fd0Hcf+UP7t+8RAsvjY8P/t6HBx1J0XX5cRB2+bKsr+u +fIez7dVnnOnnQHq0/m8ftd9Q0lmZzpIvAJFgrxvcmzkxz/qgQKhTKWRrWzY6 +uPBg6J6g57q0MhjM12r5KrAO251fLrnuq4S0spPPV0oIYnHYdFj2+RtAyX1/ +JqdIGD80/ClQdqwGcdW60z8rhFH5097CFNdqkGxNOunBEsYo38Wb43urQXZ2 +w1GlNmH0q+edOR1eDQp2h7wbPwnj/aU/b+MLqkF31W+D97oiSAeLAPfxanAM +F5vQeSqCtcr5xekHayDZ2XpT34Ioaqin3716rBYkb/dIrlwhhkc+qLspx9VC +jbDzD+21YtiQl3m3PKUWXvV5ss7JiWH3uHBJakEtMJzC6U5bxXBFVxTv74Za +aLUv4eotEEOZZnreqV+18NtyvqfblIISYwwzXiYLsiqib/62pGBbsmr8K2QB +g4sjRd2JgheGHYRLLVhg93iNWYY/Ba13jqop27Hg4mbqLbtMCo4EyWrw7WHB +RrTN6xqloM8bK335SBYcMbrs1ZkgjkZbdi6n1bLAppR/zjZdHO9wVe27wWYB +nTsmpee8ONp6UHIf17Ggt38n8eKaOCrteoffGlmgcYiPc6RHHL3CPMYYHSz4 +VHGs4pukBL4zYKh+GWWBu4jDtNQtCeQ2P/WEso4A3eON8cVNEhjySWekZz0B +a8aVxWhPJPBiVXRjghAB9bWcoDgogWIKXO1jFALEbOuztJYlMLywWj6CTkBv +PENvi60kjoglcnIZEmDxZSk69L0kLtzdJNzoQUDU1lyVh1OS2Cq0M3jZi4Ca +y+pvhBcksVPrXA36ECDu7G1UzyOFZxwkvtTvI2Dq3uMfnBpS6L2g5Z98kICc +hKzwgkgptEzyc8iMI2BcVDH00TppHBDSTrUvJYBy8IEMhSKNl99LBGleIcCu +w7U7iCqNZrw8G/nLCLgTnaa2Xlcaf5SuqWytJCB1dHZyt6s0sr6F/8VVS4DO +9caAL1eksbKEu+BXEwHxpk57JTfKoGhstXLpKwK2ehZ/MzSXQYn2ng1mAwTw +x/1zysVOBlO/qxWODBJQ2JZYkeUtg2FN6a/4hwm4Z9PwD9cZGdx2JbvW4j0B +s67yEd8HZVCmSMWP6wsBd6MPcQtOyOBAvlpd6CwBsYX38zVmZPBGcunJF18J +4Bvb1Ri0UhYP7hY6lT1HgFJAOseYiiye/9C+4+9FAjyPzqc+Oy6LvlqeRR84 +2aCQZy49mSiLvBlvO0VXs8n5O1vNnSWLd8Olosy52BD9a0OveZksXjB09jnH +w4bzpzxF65/J4hJuClu9jg3PzrWXlMvIYRRHr4CVKBtybolotynJ4cD55joQ +Y4Pby72tY9py6KrR/VGPwoZP4r8mpCzlcKiea0FEgg2cpVoq2aFy2PTJpuem +NBuMawpuxz6QQ6G+YD59eTZYvO75PdMhh99VOf/9TNqBY5WVV58cdn98/u0S +gw2+20MH4YMcthRGcfxQYIPlcdrJuNVU1CnWLT+jzIau9U1XN66h4tW9RTOK +G9iwrWxnxyw/FcuUVS0fkt7TnSa4V5yKBWxD+rQKGw7JLVw1U6XicMZYCU2d +DfO3sjoWNaloJaIdXEk6eqvqNKFHxaGCVlsVDTYkhnkb0DdR8dYfCyslTTZc +bHvasdKJigIaBuZ/tNgg5+o/3eBCRcvcnw3B2mwom1oWPOJGxeSDVnYDpGtF +9fe896Wi3hCzsUKHDY8CSqbbIqiolls4TNVjg/UvI6GY41RsqX2mHkm6J6vf +QC+Oipr2KwufkR6s540rO0PF5Umrl8H6bPB0KCtzz6SiR17z5XukJ8Y3dYrk +ULFamufsCgM2zKwNF0ospGJe5aeeVNJHSvkNmZepSIz9Q+8i/VPv+p75cio+ +db14kceQXB/PkTL/WiruWxj4EU065Vtkp8xtKpp0vBmpJc2fLDzz8h4Vu7UO +TL0jLc7aamjZSsXFHHoscyMbiize7/nzhHRZC2cAafrgibg7XVS8HDnEziB9 +LUS8PLSXirlWWukEafWVtzoVX1LRbz4mq480+4L9zMggFRkCcS2zpDeqfhLK +G6Hi2POf0nxGbLj/IMHQ8T0VdcUqKxikzZ1l3Lk/UbEtxNbTmHT7p7txD6ao +2MdbaWFP2u7E9vJjX6nY8fi4mwfpPsHpTs0Fcn4Y6aX7Se+qSJ75uETF+9su +UY6SfmtMFy5dpuJnyZCWGNI+z5sMXVfR0Gfp8aV40h99d7kL8NKQwnfgxinS +wT+/xnWso6GtEH06gbRx2D6xv4Vo6HHK5GcsaZ7JNzc5xWlYMszddIz0Kx9H +M5oMDc9mJhqFkC4fanu1iU5D1Q+3wrxIhztvDHZXouEGwRx/h//H1121IlqN +hnZ0htj/4xOwpOXladOwgjvoNJ30SPN5tToDGo5n+hHcpKsM17T2mdAw1Vey ++DM5f9Gs2F2zSMPd/GdtO0hv3fB9ap0lDcPm2huukha7EpCgakvDOzu7po6T +npB8S7HeRkMOp9Lxbf+vR8626n0uNIwcdCiik3ZMNBq47EXDlCp3/yZy/WX/ +VIc88KMhUHvDT5OeiqBzDgfR8OvhLfbW/++fwLUa4uE0rN8S4NFJ7red7062 +6UfRUKRMI+80aYbbnOuOWBqeLlQvNiXdYjt8KjOFhiYGguJXyf2c+chJoiqD +hrk7KBlOpN2ZT2o6s2lYviL/xS8yD4satYOrimj4ebXLoDVpHaF4zeMEDc1b +/3y4T+aLI23+Uf4dGq5tFlm9g3QP5363O400TNPY/meCzOOB+e2JXx/TsJXv ++qllMr9lA4yhgDc0HFRo+MlP5vuwU8GhxFEa3i1a5E4j849P13FdnaDhEUVc +4iQ93LigNTJDvp/zTp9SI+ezpCPJmZOOgnzZSflkv0xQmNKHeeh4RaW8+1+y +f9hZBHF2HR0VtXs53Ek7Jlx8+5RCx4mbq7SEyf5K8Q/WMVOj4/kWzT53st8W +VQVG1F3omAmGKp5ybFgokozXdaNj9e3YpFxZNsytV2AYedFxYT7gd7sMmffv +Rvstguho2nsFFMl+HW/0XXA7Qcf+rMP6LeJseGp7lz+lnI41j5z/3i9I5uX+ +QyLjBh1FvvkcPSJA9pHmM+ecWjrmywdqR61nQ7Pwu4vF9XQ0SVypH0P2P3to +jVJdNx1zj21J8+Yl+++AJ4zP07FBcF/MVQ425A0Hjn9comO8qlLgyWUCch2P +JE4v0/FS0PMc1z8EZOqmdP3klceeo+W1K38RkPAvsWu9rDy+GTOUMvhBwIG0 +1YdMLeWR9d6sT3KaANObVaUXLsjjLLe45wR5vg5Rb5ZsuSSPnskymqdfEhB9 +4XrxXIk81rjyNtP6yfMyvqJw+3V59K1kSez8izyvXUvz+ZvkcbpF8sPVLgI2 +rM7NSnonj1TpgNv9D8j7idfxuAg1BobffZaUXUFAXX/USQVtBtofWBCfIu8D +zjaRsf36DOxfPpu6+SoB2fpHY3SAgUuiuwWmSghYx3cwcsaJgZNO8Ei+gIBV +9T6H9h1j4Ck9jWaNNAK+Ctl472xl4OKq6LMNIQQMBNN797czULNW7f61AwS0 +PFmCk88Y+CXUMCc3iICs6Jty114xcDB4junvT4DWON/o4iQDCzsj6ybdCQgl +nnsUCSvgjJZAULItAZOOLnsm/BQwYU1fv6ASARPp3jsPcyvi/K9UxcbXLAid +VKNr8SniG9E4M9uXLPhhtTg9LaCIjUaUK4N9LFjDmZ0YJKmIiTHTG792s0Ar +qu22t7oi6lalj6x9xIIT/orCjjsUcVzqhMgseb8U2zT1XLWE/N6mgaSYJBZY +fzlm/cFACaszCi580mDBlC/PkdsnlVFLNLg8qqmG/J+grExu3YAiFkcl1i9V +gVC3YibriwqG7K+JDTG5CdIptdsMDNTwiQR3WY7FdchXNRIQDlDHjtDTLbvJ +/4Onkmb6389poPiB+rC2rHIwlm7N0nyliSPWI5teF1wFfs4r4XsTtDBv1lw4 +t/cyyMbLme5W1Ea+wLaYqI8lwKvgfmd7uzZestl1Vzu0EDSYErXHPHSwMCLh +zph3ARweEWqz4dDFcx0GtBc2F+DL93QX63xd7LVtftp9OQesNJ9ctFbXQ7WZ +j307Tc9B83eTf3/06KHnW+mN5c0ZEKqm8+Yvf31s6SsaPfb4DDBn/Pp38xqg +k1f8ysNTibCFIW6/7ooBfnw/H9t7PwGU41IjWw0N8ZOQfm/ij5Og4m/0QOGN +IbYF8/RbNEWDf3Pg6dthG7G3/ux1ZlwEPCjt9/sqaoTyD+4b7844DHPXln9o +3jXC+OEuCelToeCrcJP3or0x7mfY/vtsaxBEP/bcr7jNGKsSPF1ndIMgy1+o +i73dGGWp547IygVBU3lUetcuYxwpxUc35gNBRHHr+t97jfHP8L2Zw1cD4Yni +BxHvCGN8JFcT2rAiEFSU5aiKJcb4fMvptpmOffBVJceAPWuM8YXtsUZxfjDw +DLcIfzfGCd7IiLmDftASOrMjfN4YMVY3v8HLDzLZ1mEGS8YY7pRjFgh+oGLM +UdXAaYIOZ14lbF32BR/rEFqbmAk+flQQQ4n3hf4AK75+UxNM2uN08XG6D9wr ++/fdfIoJVoc4M6XavMFgc/gPmzQTdPL4/f5OnTfUvZviK80wwd/p6aN7rnkD +W3bE0CbbBKNU9rY8zPCGqvyWjOJLJni9wPfCL1dvKE1PNLKqMcG6cz1rnce9 +4Ez4+nP5L0xQjEev6+Q2T3CzkEcTWVMsC3Z4Gu29B3738/C3UU2xTaBAS2Hr +Hij1nxmykTdFF8uxgnHNPfB3Uv0xN2VTZApfsriw7AaHOx1ro3RM0XguoGK0 +xA1SHWJk71maYkr5a97Z97uhwfXlL72DpuieXDlwK8oVpEKS6zVaTFHq4KAS +c9AFMpf36ae1mmIcgxlT+sQFVmZbEh8fmeL+8zgkeNsFJu+svl7aaYr56zvO +y551gQaO0/lCL0yxx5HGNbrFBdxy444tfDDFA12mqnN1zpDfGKXfvJaJ8iXl +ArqlO0B0TTBhv4uJz0UtYtQuOUHZ5hPRs7uZKDN77TpXqhPonMjcnOPOxPtf +vBq+RDqBwyzr5cBeJp7j4Hab2ekESa/mF32Dmaj0evfeQmEn+HnlpHl0PBP3 +N1+SZp/dBm9Mcl5U3GSi0Br/h98ZjhB4tKzQuoaJ5jLHwwy5HGGhps5/isXE ++WffzC98dAAh+sAP7TukhcJ+lt1wAFseGen7LUyM/CBxdJWOAzT1V/i9eMnE +4pQisYYt9mDDf089YoCJxhMG/hXK9jBg1bkgPsREbwHx3Kq19jDX8E+K5xgT +pbT/bObqswP1y1rVnyeZGLpqtn3Kyw6a3phFpE8z8aEQ/1z5ZjuwEdkBmrNM +TDyk7xepZAf7ko/+FT7PxFGF3W2BX2xhriXpIuUnE+s9etKSXthCwlKeb8MS +E/eWbLK9f9cWBPSuq3n8ZmJcZcIMX6EtFIc0zC8vM3EiNtbnaJwt/Afts+Wr + + "]]}, + 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:eJwV13k0VWsYBnClDCWZj9k5xzFknmU4vS+JzClKMmUIhVISklCGTAmFMlWG +BsPZp1SGJCokcqUiGZJu5SIVilu5+/6112/ttfZa3/A837dpPge3+6/k4OCQ +WsHB8f9zYaTzESOtbNPbdS6Kn6XNN/UXi0eZDSTA6BDnjqgiKqDocx/xgWyI +tUjV3lGkBRHbbrzmHLgCjg/EIoyKEARnKNmLr9kQMdQ0LVi0DUabHA7OvW4F +0w7P+JxCb7BkTA5/fd0Hcf+UP7t+8RAsvjY8P/t6HBx1J0XX5cRB2+bKsr+u +fIez7dVnnOnnQHq0/m8ftd9Q0lmZzpIvAJFgrxvcmzkxz/qgQKhTKWRrWzY6 +uPBg6J6g57q0MhjM12r5KrAO251fLrnuq4S0spPPV0oIYnHYdFj2+RtAyX1/ +JqdIGD80/ClQdqwGcdW60z8rhFH5097CFNdqkGxNOunBEsYo38Wb43urQXZ2 +w1GlNmH0q+edOR1eDQp2h7wbPwnj/aU/b+MLqkF31W+D97oiSAeLAPfxanAM +F5vQeSqCtcr5xekHayDZ2XpT34Ioaqin3716rBYkb/dIrlwhhkc+qLspx9VC +jbDzD+21YtiQl3m3PKUWXvV5ss7JiWH3uHBJakEtMJzC6U5bxXBFVxTv74Za +aLUv4eotEEOZZnreqV+18NtyvqfblIISYwwzXiYLsiqib/62pGBbsmr8K2QB +g4sjRd2JgheGHYRLLVhg93iNWYY/Ba13jqop27Hg4mbqLbtMCo4EyWrw7WHB +RrTN6xqloM8bK335SBYcMbrs1ZkgjkZbdi6n1bLAppR/zjZdHO9wVe27wWYB +nTsmpee8ONp6UHIf17Ggt38n8eKaOCrteoffGlmgcYiPc6RHHL3CPMYYHSz4 +VHGs4pukBL4zYKh+GWWBu4jDtNQtCeQ2P/WEso4A3eON8cVNEhjySWekZz0B +a8aVxWhPJPBiVXRjghAB9bWcoDgogWIKXO1jFALEbOuztJYlMLywWj6CTkBv +PENvi60kjoglcnIZEmDxZSk69L0kLtzdJNzoQUDU1lyVh1OS2Cq0M3jZi4Ca +y+pvhBcksVPrXA36ECDu7G1UzyOFZxwkvtTvI2Dq3uMfnBpS6L2g5Z98kICc +hKzwgkgptEzyc8iMI2BcVDH00TppHBDSTrUvJYBy8IEMhSKNl99LBGleIcCu +w7U7iCqNZrw8G/nLCLgTnaa2Xlcaf5SuqWytJCB1dHZyt6s0sr6F/8VVS4DO +9caAL1eksbKEu+BXEwHxpk57JTfKoGhstXLpKwK2ehZ/MzSXQYn2ng1mAwTw +x/1zysVOBlO/qxWODBJQ2JZYkeUtg2FN6a/4hwm4Z9PwD9cZGdx2JbvW4j0B +s67yEd8HZVCmSMWP6wsBd6MPcQtOyOBAvlpd6CwBsYX38zVmZPBGcunJF18J +4Bvb1Ri0UhYP7hY6lT1HgFJAOseYiiye/9C+4+9FAjyPzqc+Oy6LvlqeRR84 +2aCQZy49mSiLvBlvO0VXs8n5O1vNnSWLd8Olosy52BD9a0OveZksXjB09jnH +w4bzpzxF65/J4hJuClu9jg3PzrWXlMvIYRRHr4CVKBtybolotynJ4cD55joQ +Y4Pby72tY9py6KrR/VGPwoZP4r8mpCzlcKiea0FEgg2cpVoq2aFy2PTJpuem +NBuMawpuxz6QQ6G+YD59eTZYvO75PdMhh99VOf/9TNqBY5WVV58cdn98/u0S +gw2+20MH4YMcthRGcfxQYIPlcdrJuNVU1CnWLT+jzIau9U1XN66h4tW9RTOK +G9iwrWxnxyw/FcuUVS0fkt7TnSa4V5yKBWxD+rQKGw7JLVw1U6XicMZYCU2d +DfO3sjoWNaloJaIdXEk6eqvqNKFHxaGCVlsVDTYkhnkb0DdR8dYfCyslTTZc +bHvasdKJigIaBuZ/tNgg5+o/3eBCRcvcnw3B2mwom1oWPOJGxeSDVnYDpGtF +9fe896Wi3hCzsUKHDY8CSqbbIqiolls4TNVjg/UvI6GY41RsqX2mHkm6J6vf +QC+Oipr2KwufkR6s540rO0PF5Umrl8H6bPB0KCtzz6SiR17z5XukJ8Y3dYrk +ULFamufsCgM2zKwNF0ospGJe5aeeVNJHSvkNmZepSIz9Q+8i/VPv+p75cio+ +db14kceQXB/PkTL/WiruWxj4EU065Vtkp8xtKpp0vBmpJc2fLDzz8h4Vu7UO +TL0jLc7aamjZSsXFHHoscyMbiize7/nzhHRZC2cAafrgibg7XVS8HDnEziB9 +LUS8PLSXirlWWukEafWVtzoVX1LRbz4mq480+4L9zMggFRkCcS2zpDeqfhLK +G6Hi2POf0nxGbLj/IMHQ8T0VdcUqKxikzZ1l3Lk/UbEtxNbTmHT7p7txD6ao +2MdbaWFP2u7E9vJjX6nY8fi4mwfpPsHpTs0Fcn4Y6aX7Se+qSJ75uETF+9su +UY6SfmtMFy5dpuJnyZCWGNI+z5sMXVfR0Gfp8aV40h99d7kL8NKQwnfgxinS +wT+/xnWso6GtEH06gbRx2D6xv4Vo6HHK5GcsaZ7JNzc5xWlYMszddIz0Kx9H +M5oMDc9mJhqFkC4fanu1iU5D1Q+3wrxIhztvDHZXouEGwRx/h//H1121IlqN +hnZ0htj/4xOwpOXladOwgjvoNJ30SPN5tToDGo5n+hHcpKsM17T2mdAw1Vey ++DM5f9Gs2F2zSMPd/GdtO0hv3fB9ap0lDcPm2huukha7EpCgakvDOzu7po6T +npB8S7HeRkMOp9Lxbf+vR8626n0uNIwcdCiik3ZMNBq47EXDlCp3/yZy/WX/ +VIc88KMhUHvDT5OeiqBzDgfR8OvhLfbW/++fwLUa4uE0rN8S4NFJ7red7062 +6UfRUKRMI+80aYbbnOuOWBqeLlQvNiXdYjt8KjOFhiYGguJXyf2c+chJoiqD +hrk7KBlOpN2ZT2o6s2lYviL/xS8yD4satYOrimj4ebXLoDVpHaF4zeMEDc1b +/3y4T+aLI23+Uf4dGq5tFlm9g3QP5363O400TNPY/meCzOOB+e2JXx/TsJXv ++qllMr9lA4yhgDc0HFRo+MlP5vuwU8GhxFEa3i1a5E4j849P13FdnaDhEUVc +4iQ93LigNTJDvp/zTp9SI+ezpCPJmZOOgnzZSflkv0xQmNKHeeh4RaW8+1+y +f9hZBHF2HR0VtXs53Ek7Jlx8+5RCx4mbq7SEyf5K8Q/WMVOj4/kWzT53st8W +VQVG1F3omAmGKp5ybFgokozXdaNj9e3YpFxZNsytV2AYedFxYT7gd7sMmffv +Rvstguho2nsFFMl+HW/0XXA7Qcf+rMP6LeJseGp7lz+lnI41j5z/3i9I5uX+ +QyLjBh1FvvkcPSJA9pHmM+ecWjrmywdqR61nQ7Pwu4vF9XQ0SVypH0P2P3to +jVJdNx1zj21J8+Yl+++AJ4zP07FBcF/MVQ425A0Hjn9comO8qlLgyWUCch2P +JE4v0/FS0PMc1z8EZOqmdP3klceeo+W1K38RkPAvsWu9rDy+GTOUMvhBwIG0 +1YdMLeWR9d6sT3KaANObVaUXLsjjLLe45wR5vg5Rb5ZsuSSPnskymqdfEhB9 +4XrxXIk81rjyNtP6yfMyvqJw+3V59K1kSez8izyvXUvz+ZvkcbpF8sPVLgI2 +rM7NSnonj1TpgNv9D8j7idfxuAg1BobffZaUXUFAXX/USQVtBtofWBCfIu8D +zjaRsf36DOxfPpu6+SoB2fpHY3SAgUuiuwWmSghYx3cwcsaJgZNO8Ei+gIBV +9T6H9h1j4Ck9jWaNNAK+Ctl472xl4OKq6LMNIQQMBNN797czULNW7f61AwS0 +PFmCk88Y+CXUMCc3iICs6Jty114xcDB4junvT4DWON/o4iQDCzsj6ybdCQgl +nnsUCSvgjJZAULItAZOOLnsm/BQwYU1fv6ASARPp3jsPcyvi/K9UxcbXLAid +VKNr8SniG9E4M9uXLPhhtTg9LaCIjUaUK4N9LFjDmZ0YJKmIiTHTG792s0Ar +qu22t7oi6lalj6x9xIIT/orCjjsUcVzqhMgseb8U2zT1XLWE/N6mgaSYJBZY +fzlm/cFACaszCi580mDBlC/PkdsnlVFLNLg8qqmG/J+grExu3YAiFkcl1i9V +gVC3YibriwqG7K+JDTG5CdIptdsMDNTwiQR3WY7FdchXNRIQDlDHjtDTLbvJ +/4Onkmb6389poPiB+rC2rHIwlm7N0nyliSPWI5teF1wFfs4r4XsTtDBv1lw4 +t/cyyMbLme5W1Ea+wLaYqI8lwKvgfmd7uzZestl1Vzu0EDSYErXHPHSwMCLh +zph3ARweEWqz4dDFcx0GtBc2F+DL93QX63xd7LVtftp9OQesNJ9ctFbXQ7WZ +j307Tc9B83eTf3/06KHnW+mN5c0ZEKqm8+Yvf31s6SsaPfb4DDBn/Pp38xqg +k1f8ysNTibCFIW6/7ooBfnw/H9t7PwGU41IjWw0N8ZOQfm/ij5Og4m/0QOGN +IbYF8/RbNEWDf3Pg6dthG7G3/ux1ZlwEPCjt9/sqaoTyD+4b7844DHPXln9o +3jXC+OEuCelToeCrcJP3or0x7mfY/vtsaxBEP/bcr7jNGKsSPF1ndIMgy1+o +i73dGGWp547IygVBU3lUetcuYxwpxUc35gNBRHHr+t97jfHP8L2Zw1cD4Yni +BxHvCGN8JFcT2rAiEFSU5aiKJcb4fMvptpmOffBVJceAPWuM8YXtsUZxfjDw +DLcIfzfGCd7IiLmDftASOrMjfN4YMVY3v8HLDzLZ1mEGS8YY7pRjFgh+oGLM +UdXAaYIOZ14lbF32BR/rEFqbmAk+flQQQ4n3hf4AK75+UxNM2uN08XG6D9wr ++/fdfIoJVoc4M6XavMFgc/gPmzQTdPL4/f5OnTfUvZviK80wwd/p6aN7rnkD +W3bE0CbbBKNU9rY8zPCGqvyWjOJLJni9wPfCL1dvKE1PNLKqMcG6cz1rnce9 +4Ez4+nP5L0xQjEev6+Q2T3CzkEcTWVMsC3Z4Gu29B3738/C3UU2xTaBAS2Hr +Hij1nxmykTdFF8uxgnHNPfB3Uv0xN2VTZApfsriw7AaHOx1ro3RM0XguoGK0 +xA1SHWJk71maYkr5a97Z97uhwfXlL72DpuieXDlwK8oVpEKS6zVaTFHq4KAS +c9AFMpf36ae1mmIcgxlT+sQFVmZbEh8fmeL+8zgkeNsFJu+svl7aaYr56zvO +y551gQaO0/lCL0yxx5HGNbrFBdxy444tfDDFA12mqnN1zpDfGKXfvJaJ8iXl +ArqlO0B0TTBhv4uJz0UtYtQuOUHZ5hPRs7uZKDN77TpXqhPonMjcnOPOxPtf +vBq+RDqBwyzr5cBeJp7j4Hab2ekESa/mF32Dmaj0evfeQmEn+HnlpHl0PBP3 +N1+SZp/dBm9Mcl5U3GSi0Br/h98ZjhB4tKzQuoaJ5jLHwwy5HGGhps5/isXE ++WffzC98dAAh+sAP7TukhcJ+lt1wAFseGen7LUyM/CBxdJWOAzT1V/i9eMnE +4pQisYYt9mDDf089YoCJxhMG/hXK9jBg1bkgPsREbwHx3Kq19jDX8E+K5xgT +pbT/bObqswP1y1rVnyeZGLpqtn3Kyw6a3phFpE8z8aEQ/1z5ZjuwEdkBmrNM +TDyk7xepZAf7ko/+FT7PxFGF3W2BX2xhriXpIuUnE+s9etKSXthCwlKeb8MS +E/eWbLK9f9cWBPSuq3n8ZmJcZcIMX6EtFIc0zC8vM3EiNtbnaJwt/Afts+Wr + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07119009886359638}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.07119009886359638}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJwV13k0VWsYBnClDCWZj9k5xzFknmU4vS+JzClKMmUIhVISklCGTAmFMlWG +BsPZp1SGJCokcqUiGZJu5SIVilu5+/6112/ttfZa3/A837dpPge3+6/k4OCQ +WsHB8f9zYaTzESOtbNPbdS6Kn6XNN/UXi0eZDSTA6BDnjqgiKqDocx/xgWyI +tUjV3lGkBRHbbrzmHLgCjg/EIoyKEARnKNmLr9kQMdQ0LVi0DUabHA7OvW4F +0w7P+JxCb7BkTA5/fd0Hcf+UP7t+8RAsvjY8P/t6HBx1J0XX5cRB2+bKsr+u +fIez7dVnnOnnQHq0/m8ftd9Q0lmZzpIvAJFgrxvcmzkxz/qgQKhTKWRrWzY6 +uPBg6J6g57q0MhjM12r5KrAO251fLrnuq4S0spPPV0oIYnHYdFj2+RtAyX1/ +JqdIGD80/ClQdqwGcdW60z8rhFH5097CFNdqkGxNOunBEsYo38Wb43urQXZ2 +w1GlNmH0q+edOR1eDQp2h7wbPwnj/aU/b+MLqkF31W+D97oiSAeLAPfxanAM +F5vQeSqCtcr5xekHayDZ2XpT34Ioaqin3716rBYkb/dIrlwhhkc+qLspx9VC +jbDzD+21YtiQl3m3PKUWXvV5ss7JiWH3uHBJakEtMJzC6U5bxXBFVxTv74Za +aLUv4eotEEOZZnreqV+18NtyvqfblIISYwwzXiYLsiqib/62pGBbsmr8K2QB +g4sjRd2JgheGHYRLLVhg93iNWYY/Ba13jqop27Hg4mbqLbtMCo4EyWrw7WHB +RrTN6xqloM8bK335SBYcMbrs1ZkgjkZbdi6n1bLAppR/zjZdHO9wVe27wWYB +nTsmpee8ONp6UHIf17Ggt38n8eKaOCrteoffGlmgcYiPc6RHHL3CPMYYHSz4 +VHGs4pukBL4zYKh+GWWBu4jDtNQtCeQ2P/WEso4A3eON8cVNEhjySWekZz0B +a8aVxWhPJPBiVXRjghAB9bWcoDgogWIKXO1jFALEbOuztJYlMLywWj6CTkBv +PENvi60kjoglcnIZEmDxZSk69L0kLtzdJNzoQUDU1lyVh1OS2Cq0M3jZi4Ca +y+pvhBcksVPrXA36ECDu7G1UzyOFZxwkvtTvI2Dq3uMfnBpS6L2g5Z98kICc +hKzwgkgptEzyc8iMI2BcVDH00TppHBDSTrUvJYBy8IEMhSKNl99LBGleIcCu +w7U7iCqNZrw8G/nLCLgTnaa2Xlcaf5SuqWytJCB1dHZyt6s0sr6F/8VVS4DO +9caAL1eksbKEu+BXEwHxpk57JTfKoGhstXLpKwK2ehZ/MzSXQYn2ng1mAwTw +x/1zysVOBlO/qxWODBJQ2JZYkeUtg2FN6a/4hwm4Z9PwD9cZGdx2JbvW4j0B +s67yEd8HZVCmSMWP6wsBd6MPcQtOyOBAvlpd6CwBsYX38zVmZPBGcunJF18J +4Bvb1Ri0UhYP7hY6lT1HgFJAOseYiiye/9C+4+9FAjyPzqc+Oy6LvlqeRR84 +2aCQZy49mSiLvBlvO0VXs8n5O1vNnSWLd8Olosy52BD9a0OveZksXjB09jnH +w4bzpzxF65/J4hJuClu9jg3PzrWXlMvIYRRHr4CVKBtybolotynJ4cD55joQ +Y4Pby72tY9py6KrR/VGPwoZP4r8mpCzlcKiea0FEgg2cpVoq2aFy2PTJpuem +NBuMawpuxz6QQ6G+YD59eTZYvO75PdMhh99VOf/9TNqBY5WVV58cdn98/u0S +gw2+20MH4YMcthRGcfxQYIPlcdrJuNVU1CnWLT+jzIau9U1XN66h4tW9RTOK +G9iwrWxnxyw/FcuUVS0fkt7TnSa4V5yKBWxD+rQKGw7JLVw1U6XicMZYCU2d +DfO3sjoWNaloJaIdXEk6eqvqNKFHxaGCVlsVDTYkhnkb0DdR8dYfCyslTTZc +bHvasdKJigIaBuZ/tNgg5+o/3eBCRcvcnw3B2mwom1oWPOJGxeSDVnYDpGtF +9fe896Wi3hCzsUKHDY8CSqbbIqiolls4TNVjg/UvI6GY41RsqX2mHkm6J6vf +QC+Oipr2KwufkR6s540rO0PF5Umrl8H6bPB0KCtzz6SiR17z5XukJ8Y3dYrk +ULFamufsCgM2zKwNF0ospGJe5aeeVNJHSvkNmZepSIz9Q+8i/VPv+p75cio+ +db14kceQXB/PkTL/WiruWxj4EU065Vtkp8xtKpp0vBmpJc2fLDzz8h4Vu7UO +TL0jLc7aamjZSsXFHHoscyMbiize7/nzhHRZC2cAafrgibg7XVS8HDnEziB9 +LUS8PLSXirlWWukEafWVtzoVX1LRbz4mq480+4L9zMggFRkCcS2zpDeqfhLK +G6Hi2POf0nxGbLj/IMHQ8T0VdcUqKxikzZ1l3Lk/UbEtxNbTmHT7p7txD6ao +2MdbaWFP2u7E9vJjX6nY8fi4mwfpPsHpTs0Fcn4Y6aX7Se+qSJ75uETF+9su +UY6SfmtMFy5dpuJnyZCWGNI+z5sMXVfR0Gfp8aV40h99d7kL8NKQwnfgxinS +wT+/xnWso6GtEH06gbRx2D6xv4Vo6HHK5GcsaZ7JNzc5xWlYMszddIz0Kx9H +M5oMDc9mJhqFkC4fanu1iU5D1Q+3wrxIhztvDHZXouEGwRx/h//H1121IlqN +hnZ0htj/4xOwpOXladOwgjvoNJ30SPN5tToDGo5n+hHcpKsM17T2mdAw1Vey ++DM5f9Gs2F2zSMPd/GdtO0hv3fB9ap0lDcPm2huukha7EpCgakvDOzu7po6T +npB8S7HeRkMOp9Lxbf+vR8626n0uNIwcdCiik3ZMNBq47EXDlCp3/yZy/WX/ +VIc88KMhUHvDT5OeiqBzDgfR8OvhLfbW/++fwLUa4uE0rN8S4NFJ7red7062 +6UfRUKRMI+80aYbbnOuOWBqeLlQvNiXdYjt8KjOFhiYGguJXyf2c+chJoiqD +hrk7KBlOpN2ZT2o6s2lYviL/xS8yD4satYOrimj4ebXLoDVpHaF4zeMEDc1b +/3y4T+aLI23+Uf4dGq5tFlm9g3QP5363O400TNPY/meCzOOB+e2JXx/TsJXv ++qllMr9lA4yhgDc0HFRo+MlP5vuwU8GhxFEa3i1a5E4j849P13FdnaDhEUVc +4iQ93LigNTJDvp/zTp9SI+ezpCPJmZOOgnzZSflkv0xQmNKHeeh4RaW8+1+y +f9hZBHF2HR0VtXs53Ek7Jlx8+5RCx4mbq7SEyf5K8Q/WMVOj4/kWzT53st8W +VQVG1F3omAmGKp5ybFgokozXdaNj9e3YpFxZNsytV2AYedFxYT7gd7sMmffv +Rvstguho2nsFFMl+HW/0XXA7Qcf+rMP6LeJseGp7lz+lnI41j5z/3i9I5uX+ +QyLjBh1FvvkcPSJA9pHmM+ecWjrmywdqR61nQ7Pwu4vF9XQ0SVypH0P2P3to +jVJdNx1zj21J8+Yl+++AJ4zP07FBcF/MVQ425A0Hjn9comO8qlLgyWUCch2P +JE4v0/FS0PMc1z8EZOqmdP3klceeo+W1K38RkPAvsWu9rDy+GTOUMvhBwIG0 +1YdMLeWR9d6sT3KaANObVaUXLsjjLLe45wR5vg5Rb5ZsuSSPnskymqdfEhB9 +4XrxXIk81rjyNtP6yfMyvqJw+3V59K1kSez8izyvXUvz+ZvkcbpF8sPVLgI2 +rM7NSnonj1TpgNv9D8j7idfxuAg1BobffZaUXUFAXX/USQVtBtofWBCfIu8D +zjaRsf36DOxfPpu6+SoB2fpHY3SAgUuiuwWmSghYx3cwcsaJgZNO8Ei+gIBV +9T6H9h1j4Ck9jWaNNAK+Ctl472xl4OKq6LMNIQQMBNN797czULNW7f61AwS0 +PFmCk88Y+CXUMCc3iICs6Jty114xcDB4junvT4DWON/o4iQDCzsj6ybdCQgl +nnsUCSvgjJZAULItAZOOLnsm/BQwYU1fv6ASARPp3jsPcyvi/K9UxcbXLAid +VKNr8SniG9E4M9uXLPhhtTg9LaCIjUaUK4N9LFjDmZ0YJKmIiTHTG792s0Ar +qu22t7oi6lalj6x9xIIT/orCjjsUcVzqhMgseb8U2zT1XLWE/N6mgaSYJBZY +fzlm/cFACaszCi580mDBlC/PkdsnlVFLNLg8qqmG/J+grExu3YAiFkcl1i9V +gVC3YibriwqG7K+JDTG5CdIptdsMDNTwiQR3WY7FdchXNRIQDlDHjtDTLbvJ +/4Onkmb6389poPiB+rC2rHIwlm7N0nyliSPWI5teF1wFfs4r4XsTtDBv1lw4 +t/cyyMbLme5W1Ea+wLaYqI8lwKvgfmd7uzZestl1Vzu0EDSYErXHPHSwMCLh +zph3ARweEWqz4dDFcx0GtBc2F+DL93QX63xd7LVtftp9OQesNJ9ctFbXQ7WZ +j307Tc9B83eTf3/06KHnW+mN5c0ZEKqm8+Yvf31s6SsaPfb4DDBn/Pp38xqg +k1f8ysNTibCFIW6/7ooBfnw/H9t7PwGU41IjWw0N8ZOQfm/ij5Og4m/0QOGN +IbYF8/RbNEWDf3Pg6dthG7G3/ux1ZlwEPCjt9/sqaoTyD+4b7844DHPXln9o +3jXC+OEuCelToeCrcJP3or0x7mfY/vtsaxBEP/bcr7jNGKsSPF1ndIMgy1+o +i73dGGWp547IygVBU3lUetcuYxwpxUc35gNBRHHr+t97jfHP8L2Zw1cD4Yni +BxHvCGN8JFcT2rAiEFSU5aiKJcb4fMvptpmOffBVJceAPWuM8YXtsUZxfjDw +DLcIfzfGCd7IiLmDftASOrMjfN4YMVY3v8HLDzLZ1mEGS8YY7pRjFgh+oGLM +UdXAaYIOZ14lbF32BR/rEFqbmAk+flQQQ4n3hf4AK75+UxNM2uN08XG6D9wr ++/fdfIoJVoc4M6XavMFgc/gPmzQTdPL4/f5OnTfUvZviK80wwd/p6aN7rnkD +W3bE0CbbBKNU9rY8zPCGqvyWjOJLJni9wPfCL1dvKE1PNLKqMcG6cz1rnce9 +4Ez4+nP5L0xQjEev6+Q2T3CzkEcTWVMsC3Z4Gu29B3738/C3UU2xTaBAS2Hr +Hij1nxmykTdFF8uxgnHNPfB3Uv0xN2VTZApfsriw7AaHOx1ro3RM0XguoGK0 +xA1SHWJk71maYkr5a97Z97uhwfXlL72DpuieXDlwK8oVpEKS6zVaTFHq4KAS +c9AFMpf36ae1mmIcgxlT+sQFVmZbEh8fmeL+8zgkeNsFJu+svl7aaYr56zvO +y551gQaO0/lCL0yxx5HGNbrFBdxy444tfDDFA12mqnN1zpDfGKXfvJaJ8iXl +ArqlO0B0TTBhv4uJz0UtYtQuOUHZ5hPRs7uZKDN77TpXqhPonMjcnOPOxPtf +vBq+RDqBwyzr5cBeJp7j4Hab2ekESa/mF32Dmaj0evfeQmEn+HnlpHl0PBP3 +N1+SZp/dBm9Mcl5U3GSi0Br/h98ZjhB4tKzQuoaJ5jLHwwy5HGGhps5/isXE ++WffzC98dAAh+sAP7TukhcJ+lt1wAFseGen7LUyM/CBxdJWOAzT1V/i9eMnE +4pQisYYt9mDDf089YoCJxhMG/hXK9jBg1bkgPsREbwHx3Kq19jDX8E+K5xgT +pbT/bObqswP1y1rVnyeZGLpqtn3Kyw6a3phFpE8z8aEQ/1z5ZjuwEdkBmrNM +TDyk7xepZAf7ko/+FT7PxFGF3W2BX2xhriXpIuUnE+s9etKSXthCwlKeb8MS +E/eWbLK9f9cWBPSuq3n8ZmJcZcIMX6EtFIc0zC8vM3EiNtbnaJwt/Afts+Wr + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07119009886359638}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, + 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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.061043}}, + "Frame" -> {{False, 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.061043}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.061043}}, + "Frame" -> {{False, 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.07119009886359638}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994013929403034*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"080421cb-8882-480b-b0a7-d5ca4a5038cd"] +}, Open ]], Cell[CellGroupData[{ @@ -2863,14 +7954,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["10.63243951443742`"], "Output", + CellChangeTimes->{3.9913294794877434`*^9, 3.9940139294418507`*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"38c5ce3d-c9c2-4480-b301-17e2cc77e0c7"] }, Open ]], Cell[CellGroupData[{ @@ -2926,177 +8015,170 @@ 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[\\\"2.4508110026591134`*^-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, 13, 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913294796838703`*^9, 3.994013929526185*^9}, CellLabel-> "During evaluation of \ -In[172]:=",ExpressionUUID->"321e1ff2-86f6-7244-895a-0b744ecd0cf1"], +In[99]:=",ExpressionUUID->"fef91c12-83b6-4ef0-9c55-b213430aa9bc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.423028976691039`*^-268\\\", \ +\\\"78176755153939869305210274200729021751146846355456000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 99, 14, 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913294796838703`*^9, 3.994013929534684*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"a75b7b5a-256d-4eb4-a2fb-c2ced99eb583"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.26261782856867`*^-278\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 99, 15, 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913294796838703`*^9, 3.9940139295433283`*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"6a1a880a-033c-4abd-9321-fd2fee793f48"], 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, 16, 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913294796838703`*^9, 3.994013929551759*^9}, CellLabel-> "During evaluation of \ -In[172]:=",ExpressionUUID->"43e0f399-4fd6-3f4d-a3a8-ef137bebb344"], +In[99]:=",ExpressionUUID->"3712ee63-7285-42db-aeee-537edd283484"], 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:eJwV13c8lv0XB3DRQEZG3Pa9EiKyx313TsiWkSJJIqMnlbKlSInmIyqjjISG +dd9XJStEgwYe2ZWVUpIoKx6P3/X763q9//x+zzmf871o3kecfXl5eHhoy3h4 +/v+d6Wt6xryQtzlzzCHirbnp5vYsSuSW7jhwCrqtIlZPBVzb4k3pToaEqd8l +o0+1IMzxfhdfdy5kBo/ca32KIDYunfyni4AMk1dn7z51hP7qbUemuuohWnbz +9PqnXmDBHP042dUG3v3ZLXq1QfCny+DaRNcQeF93CA1/HAsNZnfy/sn9DWfH +TL8UWl4B+f6KL97qi9DclaL8clc6SAbuvb/KjA8l7PonvgfnQPImi6ptO/jx +hkDBWKlNHvSkadVNrhHG+Z7cHJVrd+BCXkwLr4wYHnK7fZzbeB+kr346l5Ip +gaoTGfnjZ4qBsuHRmbkCCbyz6+WZHZeLQbb+bMwejgSqaz52L0stBsUJ1dD1 +DRL43p3xxfd+MayzC/Kq+iqB8jVH3KNbikFn+aL+Jx1JDOzPrIinlIBDiNSw +9itJLI/+3MBbUAIJLtab22bWIn/vO/ugklKQfdgsy7tMCoWPLNjPlJVCiYTL +7KbVUtgZVz0eUlsKnW2enCtKUth+OlPEo7UUmE4hdCcrKbS4G8n5Z7IU6u2z +V7amS6HK3QOfi2Q4sGgx3fyWJY2Xmj5qBrpxIKkgqnDRQhq1ebJiDD04wFzJ +k6jhJI1H3tyWXObFAbvnglsu+Uqjs/kJ4QR/DmSYUR/YXZZG0Ye3dPzCOGCI +tqmv+6XxirUE9WgKB4KNbu1tiqPgcGaaXvkrDtjkiEzZXqSgXCrTtP0tB+ir +ohObr1Hws9KQwI9WDrS27+S+u0vByY8lryS7OLAxSIivr5mCdVpTouxPHPha +EF7wS1YG+QNqsifmOeAhue2H3AMZvH+ct/bTei7oHK86lVUtg8n3OpipalwQ +HFKRor2QQXfByq2WGlyoKOUD5R4ZzPo6U56pzQUp24okrSUZDPNj+zPYXGg9 +xdTdaiuLLk80Z644ccH853zU4U+y6HdzpPDfcC5EWl1VezomiwYtknRWFBdK +bmn0SszI4s+aB+ER0VyguHgZVfDLoUHjwtORWC6MlT+f5dsoh9lNPV0557iQ +EpcUkh4hh1HHxnRPZHBhaK3y4WfC8hh3x8V8oIIL0kdqFaSl5XFPiLNYdRUX +7Brd3h6gyuPcksLzq0+4UBZ1QV1URx7nJ82HWE+5cL5/YnSXmzxuMRBb8G/k +gva9Kv+fufIYsvLod9VOLpxiOe2TNVTACu9Hsnt/csHKM+uXgakCelMsts1N +cEEk9vvpHXYKaCv34eulX1y42RBfkOSlgOOjcjtKprlQblP5feU5BfQTtqA8 +W+DChBsj7HePAib6fag1W0XA46igVWLDCqiqkZJ7m5+AkzefpG0cV8DrLUNT +SwIECA24Vh3gVcRDi2mjxUIErPe/yDOgpojLbj1S6xcjwDN0+vyb44pI7Z0+ +nSpHwLpUU/nReEXkNQm/UyNPkPf3d/GqJEU0HjY1H1IgIOpf1VbTPEU8dsd2 +TJFKwLXTnmsr3ihi44F9/IeZBHjkFxZ0diri7M+D/JHrCKC/nDOYGlDEjL5l +CbHKBHAEU9w1pxUxve0Mb7wKAW+uvMzOV1DCySDJlfvVCUh5ILmpYb0S/qeU +I7xdgwD3jn31A5uUUPMAK33zRgK+Uv4dlrNQQvedJ2C1FgF8OVpqyYeV0PWR +4YcoHQKMS9IfnqxVwuqeivkHRgSYdzUvjjcq4brKxMC9xgRs41luubdNCd3m +Vg6sMiHAx/lwD3xWwoT7V5sdWARYHKfFxK6goqbxo/dVmwl4LVp921CQihTe +ykAHIMAxb2fjhAgVRyQTlw+Q3v32gtg+ChXV98nZziEBQUozt7dsoGKPWYLF +CjMCph8kNf7RpKJqqxH1FOkoqw0/uLpUTD+/tGKedPxRL336ZireOBs+N2RO +gODKBfdeUyrGyMWv3L6VgKSMazHJllR0P+PBqCOd0fCqkdeJijon11+8YkGA +kpvvj8odVOzUi+6ZJp03tiQW7E7Fh8J7DF0tCShdq7f7kw8VGz0uaYhZEfDM +P/tHQxgV5Xe7CXhbE2D9r5F49HEqzo+Uz5SQbk5q19eNpaJWod3CHOmeCoHY +vHNUJPrG7c7YkP2yLS/P4zIVs64fufGc9PDQ5ibJFCqKSPAvX25LwPjqEPH4 +m1RMuRmoHEE6OEfEgH2LipOJnMFi0nO693ZP51MxeHahYoD0ySaz2OL7VPRO +EeKssSPr6dmX51tK3k95zjM26cRfEU0KD6koExw+509aJEFivKOcilEnHe3+ +Jp0iVyJ++QkVL28dq3tAmsKxMrCop2Lb4GrXDtKZ5p92//eCPJ/sUdEp0vSe +E7Flr6kY5Nc3KmpPwN1DlPzDrVQc/iI1qkJag/dBk3IHFZ8d7BMG0sR1+/G+ +Hiq2Bv3Z6UzacMNX8dQ+Kl5R0HjhTfpJbZyBwycqfjMHjyDSpi4KHqu+UvHs +/hmZ46Rffn0cWztGxYg8GZ7TpO1OOOeHT1LxXmeQaCLpNrEfTZozVIwOe2Z1 +nrRrQcL4yDwVhe5+LDpH+oMxXSJniYrChmdZZ0l7t1QbuC2n4cobiXMxpEd8 +XD3WCNBwcqx0MIx04NxkbKMwDR9PvJz7i7TxUT+pL+I0dH21ZdCdNP9obyEf +hYZwyPq4JelOb4ctNAUaXvw1/FKLdP77hs7NdBoKuco1SpEOcTEM9FhPw9Co +qeg/5P2Zvi1aFqVOQ45i5Eg36TUWtNTUTTSkjBD8j0j31VxTf6RPw2rXosFL +pIsMBOvbTGiY3B4U7EM6inPSdQJp+DVHqFaPtFSuf9wGWxpevbiU0Er2w7Ds +B2lrRxp2JgSvSidNpDgW++2gYUfinLknaYd4o+5be2n48GXEf31k/yn+V3yo +dj8NQ56kRmeQHguj8308QMPN60WfOJNODFi9kRJCwwQZt3MVZD/vHIxp0Iuk +4YSCi3QAaab7lNv2kzR8cHHxoATpOtuPpy8n0nCoreyQFzkvl585yRRdouGG +tll5XtIe7BclTck0XH7eKjWHnK8/G0t7lmfSMPf0mcl35Pxpi5/SPM6loef0 +6d2S5LzyXJh+llZGQ39r97ib5Hw38/3lXlZFQ19D9RM00genneMnn9OQh2H1 +m0bmQV43871/Lw1/qW9atkjmyTGn9KD4fhq+qCkdOUgaXwmvvD1MQ/svVoVd +ZP58rJrR6hunoYzNgeZ8Mq+kshvPuvDRsfXRYJ48mWfD0mz5Y/x01O8ouXqM +zDsiicv9W5iOnZIjfz0n89AhLuPDK2k6yt5waNlH5mWib6D2FnU6Lv6rkh6q +T55vw5o+jR10bOy9wxIk83YmU/aUjjsdVRkP1XQ0CZgSXcc02kvHiNO+G3eR ++Tz+2+gv8wN0/DLhdvwmmedDVT4z7ifouDNojR2PKgGvbB+LJObTUaDaqoVN +I+fjyVPupft0vKf66bYhuU+eab5xSSml44rZyRwtJQJqJAYzsiroqGSkL0Mh +9w/xXnD9o7d0lKtbZDynkHl40BOGpul4wSeTmyZKQOrHgKGReTq+rduZ5SdC +wFWH4PgfS3TcI/vzxSZhsp46ia/nBBh460Jha60gAXELXFdRRQaWC8x/rVxB +1uPCiiCWBQPXDP4w20juW1ZhUc716wxUYiyGiQ9z4T21MHvrDQZamoi25g1x +Ier6vaypbAa6JLkP6w5y4fGpgpvO9xhYcbjNdFsf+R5wy0kTqWbgIOOfKd9u +LqiuuJp0dpCBM2tOyqq9Id8/e4/Hhqkz0UOb+CZEcOFRe2TMuk1MVNFnV7px +uOBiE3GyXY+JhqaOAbklXEjWC43WBibOGh3ap1nIBWGhIxHjTkzkNVL7opnH +heUV3kF+4UycT+jRfHONC5PiNl4765nYVhhxOpJ8P3UH0lv/eslEl1adJLdQ +LtS9mIeYN0xclBs30wvmQlJUodLdTiaOLlMsGDnMBa0hof4/o0ycci4+oeXH +hcPclj2ZEuswvSytersLF0Ydduwe3r8OJT+O5Ixu5MLwRa+dx1Yp43y/rFDR +Rw4cHlWnawkpI+V0/bjGew7MWv758WONMoYeipYu6eaAIF9y/AFZZTy/lgfv +veOAVmTDQy8NZeyaMxa90MSBE77KEg7blVFt8mDZ4kMOSG0ea9mQrYxvPFQL +75zngPXPcOvP+usxUao+1HkTB8Z8+IMfxqhg8+jataMVJeT/ijRvQr0qRqg4 +BpZOFIH4W+XLnJ9qaHzMUtBYvRDkE0sd9fXVMV/Ye7hW8x6kbTBaI+GvgY2d +abpLdnfglewWvd9XNuLr0GM5RHA+GMvXJ2l2auJxXfnuq5G3QYQvN2RfnBaa +7mYUKJTcAsVTSqxdypuw30lEOyA7GwTWeZQ5v9yERUvzCqnMm7CRLVMavkcb +J19c+SMjnQ7H+sQbbHh0UNBiwE2S9zr8/H1xh3WaDj4Ul8letjsFLDVfZFhr +6GJITbGj4VwS1Pw2WZht1kVYWFWXxr4Eh9W1e//x1cO0/1ajnN05YI/vb98l +oI/JZmzB9dHxsJVJsRfO1ce883Ir/HfGgUrs+Yh6AwPMZYcrBhrHgJqvUe26 +XgMcLUi7ayseBb41AWceHjVElZDY98UjoVCb075/cq0RWiWsbvqw8hhM3V2a +1XxshLNr1D9cSD0EPusKBTLsjbGaV+AfVlQARD33/EvZ0Rhl324R6vINgCRf +8deEszGGTVX0xjgFQHV+5MXXrsa47NwGsUWVAJBUthJd3GeMPjzfePO7/eGF +8mdJrzBj3OU2M3vb2B/UVJSoytnGmBx9NEVZwA8m1VL0iQljrLXtrDrX7APd +b3CrxG9jNHLydyis8YG6w+PbQ6aNMSmI+aWrxAcuE9ZH9eeNMd+vf7nz3z6g +ZsxTVMlngrq2Y3uaHH3A2/oQrUHKBN2NjxjVdnhDu7+lUDvLBFt+inRmjuyD +8ryFwelEEyz6KaXbr+oF+mYhszYXTDBovGugQ94LHg2OCeVcMkEjkz/VHaJe +QCj2Gdgkm+AX1usPg9/3QlFa3aWsGya4S1HBUjV+L+RcjDeyLDHByWjPazJV +nnAuRPRK2jsTbFJJlzXU3QPu5gw0UWRhc8mvGKNd7rDYzi/SQGWhQ5+17rUt +7pDjO/7ehsFCtbwV1/jU3OHL2YpwdxUW+nSJbqAs7IJjTQ6lkdosLP/suVMp +axec3xatWG7BQmVbKcaNETeodOv4V/cIC8siIXI6wRXkDiVUbKxjoejmq5+K +F1zg8pKf3oV6Fpq0FPfnfnMB3mQL7sgzFlpKmmXld7nAaNmKezlNLPzu8gTa +H7hAJc+ZNPF3LJx41avYEegC7ldjw2c+s7Dq1hZiz+B2SKuK1KtZzUbz3wPM +be3OsFYwkGvvysZLY0Wre/odIc/sRNTELjZGrGIYmrY4gvaJy2YpHmz8Nmn0 +u6LGEbZNcDq697ExwfL3t/ZMRzjbOf3HJ5CNjUfiCx97OMJcboxp1Ck2CvOM +mG+rdIBek5R3BYVs9NhsFtDYag8BoXk3rUvYuK31p8PaB/YwU/LId4zDxqJ2 +07Loa/YgTu+e3VTGxqydjJIMd3uw5VeQf1LHxq1xjhSxL3ZQ3V6w/10HG3fo +1Ad0LrMDG5FyjbBuNvJLeX18+tkWui2bZijv2biOsTrlRZMtTFV+T/QcYOOf +8vJguWRb0LilVfxtlI2pEpZjEwxbqO7dEnbxBxtD09ts8vhtwUZyO2hOsHF3 +zIxD0A8b8EsI/Sdkmo0DIneWOT+2gam6sxnSc2w8JktN9L9pA3HzqT6V82y8 +bS544NopG1ije099zyIbHc0irrz3s4GsQ5XTS0ts/LAhcdzIzgb+B+yeHzE= + "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -3110,136 +8192,126 @@ 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:eJwV13c8lv0XB3DRQEZG3Pa9EiKyx313TsiWkSJJIqMnlbKlSInmIyqjjISG +dd9XJStEgwYe2ZWVUpIoKx6P3/X763q9//x+zzmf871o3kecfXl5eHhoy3h4 +/v+d6Wt6xryQtzlzzCHirbnp5vYsSuSW7jhwCrqtIlZPBVzb4k3pToaEqd8l +o0+1IMzxfhdfdy5kBo/ca32KIDYunfyni4AMk1dn7z51hP7qbUemuuohWnbz +9PqnXmDBHP042dUG3v3ZLXq1QfCny+DaRNcQeF93CA1/HAsNZnfy/sn9DWfH +TL8UWl4B+f6KL97qi9DclaL8clc6SAbuvb/KjA8l7PonvgfnQPImi6ptO/jx +hkDBWKlNHvSkadVNrhHG+Z7cHJVrd+BCXkwLr4wYHnK7fZzbeB+kr346l5Ip +gaoTGfnjZ4qBsuHRmbkCCbyz6+WZHZeLQbb+bMwejgSqaz52L0stBsUJ1dD1 +DRL43p3xxfd+MayzC/Kq+iqB8jVH3KNbikFn+aL+Jx1JDOzPrIinlIBDiNSw +9itJLI/+3MBbUAIJLtab22bWIn/vO/ugklKQfdgsy7tMCoWPLNjPlJVCiYTL +7KbVUtgZVz0eUlsKnW2enCtKUth+OlPEo7UUmE4hdCcrKbS4G8n5Z7IU6u2z +V7amS6HK3QOfi2Q4sGgx3fyWJY2Xmj5qBrpxIKkgqnDRQhq1ebJiDD04wFzJ +k6jhJI1H3tyWXObFAbvnglsu+Uqjs/kJ4QR/DmSYUR/YXZZG0Ye3dPzCOGCI +tqmv+6XxirUE9WgKB4KNbu1tiqPgcGaaXvkrDtjkiEzZXqSgXCrTtP0tB+ir +ohObr1Hws9KQwI9WDrS27+S+u0vByY8lryS7OLAxSIivr5mCdVpTouxPHPha +EF7wS1YG+QNqsifmOeAhue2H3AMZvH+ct/bTei7oHK86lVUtg8n3OpipalwQ +HFKRor2QQXfByq2WGlyoKOUD5R4ZzPo6U56pzQUp24okrSUZDPNj+zPYXGg9 +xdTdaiuLLk80Z644ccH853zU4U+y6HdzpPDfcC5EWl1VezomiwYtknRWFBdK +bmn0SszI4s+aB+ER0VyguHgZVfDLoUHjwtORWC6MlT+f5dsoh9lNPV0557iQ +EpcUkh4hh1HHxnRPZHBhaK3y4WfC8hh3x8V8oIIL0kdqFaSl5XFPiLNYdRUX +7Brd3h6gyuPcksLzq0+4UBZ1QV1URx7nJ82HWE+5cL5/YnSXmzxuMRBb8G/k +gva9Kv+fufIYsvLod9VOLpxiOe2TNVTACu9Hsnt/csHKM+uXgakCelMsts1N +cEEk9vvpHXYKaCv34eulX1y42RBfkOSlgOOjcjtKprlQblP5feU5BfQTtqA8 +W+DChBsj7HePAib6fag1W0XA46igVWLDCqiqkZJ7m5+AkzefpG0cV8DrLUNT +SwIECA24Vh3gVcRDi2mjxUIErPe/yDOgpojLbj1S6xcjwDN0+vyb44pI7Z0+ +nSpHwLpUU/nReEXkNQm/UyNPkPf3d/GqJEU0HjY1H1IgIOpf1VbTPEU8dsd2 +TJFKwLXTnmsr3ihi44F9/IeZBHjkFxZ0diri7M+D/JHrCKC/nDOYGlDEjL5l +CbHKBHAEU9w1pxUxve0Mb7wKAW+uvMzOV1DCySDJlfvVCUh5ILmpYb0S/qeU +I7xdgwD3jn31A5uUUPMAK33zRgK+Uv4dlrNQQvedJ2C1FgF8OVpqyYeV0PWR +4YcoHQKMS9IfnqxVwuqeivkHRgSYdzUvjjcq4brKxMC9xgRs41luubdNCd3m +Vg6sMiHAx/lwD3xWwoT7V5sdWARYHKfFxK6goqbxo/dVmwl4LVp921CQihTe +ykAHIMAxb2fjhAgVRyQTlw+Q3v32gtg+ChXV98nZziEBQUozt7dsoGKPWYLF +CjMCph8kNf7RpKJqqxH1FOkoqw0/uLpUTD+/tGKedPxRL336ZireOBs+N2RO +gODKBfdeUyrGyMWv3L6VgKSMazHJllR0P+PBqCOd0fCqkdeJijon11+8YkGA +kpvvj8odVOzUi+6ZJp03tiQW7E7Fh8J7DF0tCShdq7f7kw8VGz0uaYhZEfDM +P/tHQxgV5Xe7CXhbE2D9r5F49HEqzo+Uz5SQbk5q19eNpaJWod3CHOmeCoHY +vHNUJPrG7c7YkP2yLS/P4zIVs64fufGc9PDQ5ibJFCqKSPAvX25LwPjqEPH4 +m1RMuRmoHEE6OEfEgH2LipOJnMFi0nO693ZP51MxeHahYoD0ySaz2OL7VPRO +EeKssSPr6dmX51tK3k95zjM26cRfEU0KD6koExw+509aJEFivKOcilEnHe3+ +Jp0iVyJ++QkVL28dq3tAmsKxMrCop2Lb4GrXDtKZ5p92//eCPJ/sUdEp0vSe +E7Flr6kY5Nc3KmpPwN1DlPzDrVQc/iI1qkJag/dBk3IHFZ8d7BMG0sR1+/G+ +Hiq2Bv3Z6UzacMNX8dQ+Kl5R0HjhTfpJbZyBwycqfjMHjyDSpi4KHqu+UvHs +/hmZ46Rffn0cWztGxYg8GZ7TpO1OOOeHT1LxXmeQaCLpNrEfTZozVIwOe2Z1 +nrRrQcL4yDwVhe5+LDpH+oMxXSJniYrChmdZZ0l7t1QbuC2n4cobiXMxpEd8 +XD3WCNBwcqx0MIx04NxkbKMwDR9PvJz7i7TxUT+pL+I0dH21ZdCdNP9obyEf +hYZwyPq4JelOb4ctNAUaXvw1/FKLdP77hs7NdBoKuco1SpEOcTEM9FhPw9Co +qeg/5P2Zvi1aFqVOQ45i5Eg36TUWtNTUTTSkjBD8j0j31VxTf6RPw2rXosFL +pIsMBOvbTGiY3B4U7EM6inPSdQJp+DVHqFaPtFSuf9wGWxpevbiU0Er2w7Ds +B2lrRxp2JgSvSidNpDgW++2gYUfinLknaYd4o+5be2n48GXEf31k/yn+V3yo +dj8NQ56kRmeQHguj8308QMPN60WfOJNODFi9kRJCwwQZt3MVZD/vHIxp0Iuk +4YSCi3QAaab7lNv2kzR8cHHxoATpOtuPpy8n0nCoreyQFzkvl585yRRdouGG +tll5XtIe7BclTck0XH7eKjWHnK8/G0t7lmfSMPf0mcl35Pxpi5/SPM6loef0 +6d2S5LzyXJh+llZGQ39r97ib5Hw38/3lXlZFQ19D9RM00genneMnn9OQh2H1 +m0bmQV43871/Lw1/qW9atkjmyTGn9KD4fhq+qCkdOUgaXwmvvD1MQ/svVoVd +ZP58rJrR6hunoYzNgeZ8Mq+kshvPuvDRsfXRYJ48mWfD0mz5Y/x01O8ouXqM +zDsiicv9W5iOnZIjfz0n89AhLuPDK2k6yt5waNlH5mWib6D2FnU6Lv6rkh6q +T55vw5o+jR10bOy9wxIk83YmU/aUjjsdVRkP1XQ0CZgSXcc02kvHiNO+G3eR ++Tz+2+gv8wN0/DLhdvwmmedDVT4z7ifouDNojR2PKgGvbB+LJObTUaDaqoVN +I+fjyVPupft0vKf66bYhuU+eab5xSSml44rZyRwtJQJqJAYzsiroqGSkL0Mh +9w/xXnD9o7d0lKtbZDynkHl40BOGpul4wSeTmyZKQOrHgKGReTq+rduZ5SdC +wFWH4PgfS3TcI/vzxSZhsp46ia/nBBh460Jha60gAXELXFdRRQaWC8x/rVxB +1uPCiiCWBQPXDP4w20juW1ZhUc716wxUYiyGiQ9z4T21MHvrDQZamoi25g1x +Ier6vaypbAa6JLkP6w5y4fGpgpvO9xhYcbjNdFsf+R5wy0kTqWbgIOOfKd9u +LqiuuJp0dpCBM2tOyqq9Id8/e4/Hhqkz0UOb+CZEcOFRe2TMuk1MVNFnV7px +uOBiE3GyXY+JhqaOAbklXEjWC43WBibOGh3ap1nIBWGhIxHjTkzkNVL7opnH +heUV3kF+4UycT+jRfHONC5PiNl4765nYVhhxOpJ8P3UH0lv/eslEl1adJLdQ +LtS9mIeYN0xclBs30wvmQlJUodLdTiaOLlMsGDnMBa0hof4/o0ycci4+oeXH +hcPclj2ZEuswvSytersLF0Ydduwe3r8OJT+O5Ixu5MLwRa+dx1Yp43y/rFDR +Rw4cHlWnawkpI+V0/bjGew7MWv758WONMoYeipYu6eaAIF9y/AFZZTy/lgfv +veOAVmTDQy8NZeyaMxa90MSBE77KEg7blVFt8mDZ4kMOSG0ea9mQrYxvPFQL +75zngPXPcOvP+usxUao+1HkTB8Z8+IMfxqhg8+jataMVJeT/ijRvQr0qRqg4 +BpZOFIH4W+XLnJ9qaHzMUtBYvRDkE0sd9fXVMV/Ye7hW8x6kbTBaI+GvgY2d +abpLdnfglewWvd9XNuLr0GM5RHA+GMvXJ2l2auJxXfnuq5G3QYQvN2RfnBaa +7mYUKJTcAsVTSqxdypuw30lEOyA7GwTWeZQ5v9yERUvzCqnMm7CRLVMavkcb +J19c+SMjnQ7H+sQbbHh0UNBiwE2S9zr8/H1xh3WaDj4Ul8letjsFLDVfZFhr +6GJITbGj4VwS1Pw2WZht1kVYWFWXxr4Eh9W1e//x1cO0/1ajnN05YI/vb98l +oI/JZmzB9dHxsJVJsRfO1ce883Ir/HfGgUrs+Yh6AwPMZYcrBhrHgJqvUe26 +XgMcLUi7ayseBb41AWceHjVElZDY98UjoVCb075/cq0RWiWsbvqw8hhM3V2a +1XxshLNr1D9cSD0EPusKBTLsjbGaV+AfVlQARD33/EvZ0Rhl324R6vINgCRf +8deEszGGTVX0xjgFQHV+5MXXrsa47NwGsUWVAJBUthJd3GeMPjzfePO7/eGF +8mdJrzBj3OU2M3vb2B/UVJSoytnGmBx9NEVZwA8m1VL0iQljrLXtrDrX7APd +b3CrxG9jNHLydyis8YG6w+PbQ6aNMSmI+aWrxAcuE9ZH9eeNMd+vf7nz3z6g +ZsxTVMlngrq2Y3uaHH3A2/oQrUHKBN2NjxjVdnhDu7+lUDvLBFt+inRmjuyD +8ryFwelEEyz6KaXbr+oF+mYhszYXTDBovGugQ94LHg2OCeVcMkEjkz/VHaJe +QCj2Gdgkm+AX1usPg9/3QlFa3aWsGya4S1HBUjV+L+RcjDeyLDHByWjPazJV +nnAuRPRK2jsTbFJJlzXU3QPu5gw0UWRhc8mvGKNd7rDYzi/SQGWhQ5+17rUt +7pDjO/7ehsFCtbwV1/jU3OHL2YpwdxUW+nSJbqAs7IJjTQ6lkdosLP/suVMp +axec3xatWG7BQmVbKcaNETeodOv4V/cIC8siIXI6wRXkDiVUbKxjoejmq5+K +F1zg8pKf3oV6Fpq0FPfnfnMB3mQL7sgzFlpKmmXld7nAaNmKezlNLPzu8gTa +H7hAJc+ZNPF3LJx41avYEegC7ldjw2c+s7Dq1hZiz+B2SKuK1KtZzUbz3wPM +be3OsFYwkGvvysZLY0Wre/odIc/sRNTELjZGrGIYmrY4gvaJy2YpHmz8Nmn0 +u6LGEbZNcDq697ExwfL3t/ZMRzjbOf3HJ5CNjUfiCx97OMJcboxp1Ck2CvOM +mG+rdIBek5R3BYVs9NhsFtDYag8BoXk3rUvYuK31p8PaB/YwU/LId4zDxqJ2 +07Loa/YgTu+e3VTGxqydjJIMd3uw5VeQf1LHxq1xjhSxL3ZQ3V6w/10HG3fo +1Ad0LrMDG5FyjbBuNvJLeX18+tkWui2bZijv2biOsTrlRZMtTFV+T/QcYOOf +8vJguWRb0LilVfxtlI2pEpZjEwxbqO7dEnbxBxtD09ts8vhtwUZyO2hOsHF3 +zIxD0A8b8EsI/Sdkmo0DIneWOT+2gam6sxnSc2w8JktN9L9pA3HzqT6V82y8 +bS544NopG1ije099zyIbHc0irrz3s4GsQ5XTS0ts/LAhcdzIzgb+B+yeHzE= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "PlotRange" -> {{0, 30}, {0., 0.07149566914127975}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +8323,19 @@ D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "PlotRange" -> {{0, 30}, {0., 0.07149566914127975}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +8349,125 @@ 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:eJwV13c8lv0XB3DRQEZG3Pa9EiKyx313TsiWkSJJIqMnlbKlSInmIyqjjISG +dd9XJStEgwYe2ZWVUpIoKx6P3/X763q9//x+zzmf871o3kecfXl5eHhoy3h4 +/v+d6Wt6xryQtzlzzCHirbnp5vYsSuSW7jhwCrqtIlZPBVzb4k3pToaEqd8l +o0+1IMzxfhdfdy5kBo/ca32KIDYunfyni4AMk1dn7z51hP7qbUemuuohWnbz +9PqnXmDBHP042dUG3v3ZLXq1QfCny+DaRNcQeF93CA1/HAsNZnfy/sn9DWfH +TL8UWl4B+f6KL97qi9DclaL8clc6SAbuvb/KjA8l7PonvgfnQPImi6ptO/jx +hkDBWKlNHvSkadVNrhHG+Z7cHJVrd+BCXkwLr4wYHnK7fZzbeB+kr346l5Ip +gaoTGfnjZ4qBsuHRmbkCCbyz6+WZHZeLQbb+bMwejgSqaz52L0stBsUJ1dD1 +DRL43p3xxfd+MayzC/Kq+iqB8jVH3KNbikFn+aL+Jx1JDOzPrIinlIBDiNSw +9itJLI/+3MBbUAIJLtab22bWIn/vO/ugklKQfdgsy7tMCoWPLNjPlJVCiYTL +7KbVUtgZVz0eUlsKnW2enCtKUth+OlPEo7UUmE4hdCcrKbS4G8n5Z7IU6u2z +V7amS6HK3QOfi2Q4sGgx3fyWJY2Xmj5qBrpxIKkgqnDRQhq1ebJiDD04wFzJ +k6jhJI1H3tyWXObFAbvnglsu+Uqjs/kJ4QR/DmSYUR/YXZZG0Ye3dPzCOGCI +tqmv+6XxirUE9WgKB4KNbu1tiqPgcGaaXvkrDtjkiEzZXqSgXCrTtP0tB+ir +ohObr1Hws9KQwI9WDrS27+S+u0vByY8lryS7OLAxSIivr5mCdVpTouxPHPha +EF7wS1YG+QNqsifmOeAhue2H3AMZvH+ct/bTei7oHK86lVUtg8n3OpipalwQ +HFKRor2QQXfByq2WGlyoKOUD5R4ZzPo6U56pzQUp24okrSUZDPNj+zPYXGg9 +xdTdaiuLLk80Z644ccH853zU4U+y6HdzpPDfcC5EWl1VezomiwYtknRWFBdK +bmn0SszI4s+aB+ER0VyguHgZVfDLoUHjwtORWC6MlT+f5dsoh9lNPV0557iQ +EpcUkh4hh1HHxnRPZHBhaK3y4WfC8hh3x8V8oIIL0kdqFaSl5XFPiLNYdRUX +7Brd3h6gyuPcksLzq0+4UBZ1QV1URx7nJ82HWE+5cL5/YnSXmzxuMRBb8G/k +gva9Kv+fufIYsvLod9VOLpxiOe2TNVTACu9Hsnt/csHKM+uXgakCelMsts1N +cEEk9vvpHXYKaCv34eulX1y42RBfkOSlgOOjcjtKprlQblP5feU5BfQTtqA8 +W+DChBsj7HePAib6fag1W0XA46igVWLDCqiqkZJ7m5+AkzefpG0cV8DrLUNT +SwIECA24Vh3gVcRDi2mjxUIErPe/yDOgpojLbj1S6xcjwDN0+vyb44pI7Z0+ +nSpHwLpUU/nReEXkNQm/UyNPkPf3d/GqJEU0HjY1H1IgIOpf1VbTPEU8dsd2 +TJFKwLXTnmsr3ihi44F9/IeZBHjkFxZ0diri7M+D/JHrCKC/nDOYGlDEjL5l +CbHKBHAEU9w1pxUxve0Mb7wKAW+uvMzOV1DCySDJlfvVCUh5ILmpYb0S/qeU +I7xdgwD3jn31A5uUUPMAK33zRgK+Uv4dlrNQQvedJ2C1FgF8OVpqyYeV0PWR +4YcoHQKMS9IfnqxVwuqeivkHRgSYdzUvjjcq4brKxMC9xgRs41luubdNCd3m +Vg6sMiHAx/lwD3xWwoT7V5sdWARYHKfFxK6goqbxo/dVmwl4LVp921CQihTe +ykAHIMAxb2fjhAgVRyQTlw+Q3v32gtg+ChXV98nZziEBQUozt7dsoGKPWYLF +CjMCph8kNf7RpKJqqxH1FOkoqw0/uLpUTD+/tGKedPxRL336ZireOBs+N2RO +gODKBfdeUyrGyMWv3L6VgKSMazHJllR0P+PBqCOd0fCqkdeJijon11+8YkGA +kpvvj8odVOzUi+6ZJp03tiQW7E7Fh8J7DF0tCShdq7f7kw8VGz0uaYhZEfDM +P/tHQxgV5Xe7CXhbE2D9r5F49HEqzo+Uz5SQbk5q19eNpaJWod3CHOmeCoHY +vHNUJPrG7c7YkP2yLS/P4zIVs64fufGc9PDQ5ibJFCqKSPAvX25LwPjqEPH4 +m1RMuRmoHEE6OEfEgH2LipOJnMFi0nO693ZP51MxeHahYoD0ySaz2OL7VPRO +EeKssSPr6dmX51tK3k95zjM26cRfEU0KD6koExw+509aJEFivKOcilEnHe3+ +Jp0iVyJ++QkVL28dq3tAmsKxMrCop2Lb4GrXDtKZ5p92//eCPJ/sUdEp0vSe +E7Flr6kY5Nc3KmpPwN1DlPzDrVQc/iI1qkJag/dBk3IHFZ8d7BMG0sR1+/G+ +Hiq2Bv3Z6UzacMNX8dQ+Kl5R0HjhTfpJbZyBwycqfjMHjyDSpi4KHqu+UvHs +/hmZ46Rffn0cWztGxYg8GZ7TpO1OOOeHT1LxXmeQaCLpNrEfTZozVIwOe2Z1 +nrRrQcL4yDwVhe5+LDpH+oMxXSJniYrChmdZZ0l7t1QbuC2n4cobiXMxpEd8 +XD3WCNBwcqx0MIx04NxkbKMwDR9PvJz7i7TxUT+pL+I0dH21ZdCdNP9obyEf +hYZwyPq4JelOb4ctNAUaXvw1/FKLdP77hs7NdBoKuco1SpEOcTEM9FhPw9Co +qeg/5P2Zvi1aFqVOQ45i5Eg36TUWtNTUTTSkjBD8j0j31VxTf6RPw2rXosFL +pIsMBOvbTGiY3B4U7EM6inPSdQJp+DVHqFaPtFSuf9wGWxpevbiU0Er2w7Ds +B2lrRxp2JgSvSidNpDgW++2gYUfinLknaYd4o+5be2n48GXEf31k/yn+V3yo +dj8NQ56kRmeQHguj8308QMPN60WfOJNODFi9kRJCwwQZt3MVZD/vHIxp0Iuk +4YSCi3QAaab7lNv2kzR8cHHxoATpOtuPpy8n0nCoreyQFzkvl585yRRdouGG +tll5XtIe7BclTck0XH7eKjWHnK8/G0t7lmfSMPf0mcl35Pxpi5/SPM6loef0 +6d2S5LzyXJh+llZGQ39r97ib5Hw38/3lXlZFQ19D9RM00genneMnn9OQh2H1 +m0bmQV43871/Lw1/qW9atkjmyTGn9KD4fhq+qCkdOUgaXwmvvD1MQ/svVoVd +ZP58rJrR6hunoYzNgeZ8Mq+kshvPuvDRsfXRYJ48mWfD0mz5Y/x01O8ouXqM +zDsiicv9W5iOnZIjfz0n89AhLuPDK2k6yt5waNlH5mWib6D2FnU6Lv6rkh6q +T55vw5o+jR10bOy9wxIk83YmU/aUjjsdVRkP1XQ0CZgSXcc02kvHiNO+G3eR ++Tz+2+gv8wN0/DLhdvwmmedDVT4z7ifouDNojR2PKgGvbB+LJObTUaDaqoVN +I+fjyVPupft0vKf66bYhuU+eab5xSSml44rZyRwtJQJqJAYzsiroqGSkL0Mh +9w/xXnD9o7d0lKtbZDynkHl40BOGpul4wSeTmyZKQOrHgKGReTq+rduZ5SdC +wFWH4PgfS3TcI/vzxSZhsp46ia/nBBh460Jha60gAXELXFdRRQaWC8x/rVxB +1uPCiiCWBQPXDP4w20juW1ZhUc716wxUYiyGiQ9z4T21MHvrDQZamoi25g1x +Ier6vaypbAa6JLkP6w5y4fGpgpvO9xhYcbjNdFsf+R5wy0kTqWbgIOOfKd9u +LqiuuJp0dpCBM2tOyqq9Id8/e4/Hhqkz0UOb+CZEcOFRe2TMuk1MVNFnV7px +uOBiE3GyXY+JhqaOAbklXEjWC43WBibOGh3ap1nIBWGhIxHjTkzkNVL7opnH +heUV3kF+4UycT+jRfHONC5PiNl4765nYVhhxOpJ8P3UH0lv/eslEl1adJLdQ +LtS9mIeYN0xclBs30wvmQlJUodLdTiaOLlMsGDnMBa0hof4/o0ycci4+oeXH +hcPclj2ZEuswvSytersLF0Ydduwe3r8OJT+O5Ixu5MLwRa+dx1Yp43y/rFDR +Rw4cHlWnawkpI+V0/bjGew7MWv758WONMoYeipYu6eaAIF9y/AFZZTy/lgfv +veOAVmTDQy8NZeyaMxa90MSBE77KEg7blVFt8mDZ4kMOSG0ea9mQrYxvPFQL +75zngPXPcOvP+usxUao+1HkTB8Z8+IMfxqhg8+jataMVJeT/ijRvQr0qRqg4 +BpZOFIH4W+XLnJ9qaHzMUtBYvRDkE0sd9fXVMV/Ye7hW8x6kbTBaI+GvgY2d +abpLdnfglewWvd9XNuLr0GM5RHA+GMvXJ2l2auJxXfnuq5G3QYQvN2RfnBaa +7mYUKJTcAsVTSqxdypuw30lEOyA7GwTWeZQ5v9yERUvzCqnMm7CRLVMavkcb +J19c+SMjnQ7H+sQbbHh0UNBiwE2S9zr8/H1xh3WaDj4Ul8letjsFLDVfZFhr +6GJITbGj4VwS1Pw2WZht1kVYWFWXxr4Eh9W1e//x1cO0/1ajnN05YI/vb98l +oI/JZmzB9dHxsJVJsRfO1ce883Ir/HfGgUrs+Yh6AwPMZYcrBhrHgJqvUe26 +XgMcLUi7ayseBb41AWceHjVElZDY98UjoVCb075/cq0RWiWsbvqw8hhM3V2a +1XxshLNr1D9cSD0EPusKBTLsjbGaV+AfVlQARD33/EvZ0Rhl324R6vINgCRf +8deEszGGTVX0xjgFQHV+5MXXrsa47NwGsUWVAJBUthJd3GeMPjzfePO7/eGF +8mdJrzBj3OU2M3vb2B/UVJSoytnGmBx9NEVZwA8m1VL0iQljrLXtrDrX7APd +b3CrxG9jNHLydyis8YG6w+PbQ6aNMSmI+aWrxAcuE9ZH9eeNMd+vf7nz3z6g +ZsxTVMlngrq2Y3uaHH3A2/oQrUHKBN2NjxjVdnhDu7+lUDvLBFt+inRmjuyD +8ryFwelEEyz6KaXbr+oF+mYhszYXTDBovGugQ94LHg2OCeVcMkEjkz/VHaJe +QCj2Gdgkm+AX1usPg9/3QlFa3aWsGya4S1HBUjV+L+RcjDeyLDHByWjPazJV +nnAuRPRK2jsTbFJJlzXU3QPu5gw0UWRhc8mvGKNd7rDYzi/SQGWhQ5+17rUt +7pDjO/7ehsFCtbwV1/jU3OHL2YpwdxUW+nSJbqAs7IJjTQ6lkdosLP/suVMp +axec3xatWG7BQmVbKcaNETeodOv4V/cIC8siIXI6wRXkDiVUbKxjoejmq5+K +F1zg8pKf3oV6Fpq0FPfnfnMB3mQL7sgzFlpKmmXld7nAaNmKezlNLPzu8gTa +H7hAJc+ZNPF3LJx41avYEegC7ldjw2c+s7Dq1hZiz+B2SKuK1KtZzUbz3wPM +be3OsFYwkGvvysZLY0Wre/odIc/sRNTELjZGrGIYmrY4gvaJy2YpHmz8Nmn0 +u6LGEbZNcDq697ExwfL3t/ZMRzjbOf3HJ5CNjUfiCx97OMJcboxp1Ck2CvOM +mG+rdIBek5R3BYVs9NhsFtDYag8BoXk3rUvYuK31p8PaB/YwU/LId4zDxqJ2 +07Loa/YgTu+e3VTGxqydjJIMd3uw5VeQf1LHxq1xjhSxL3ZQ3V6w/10HG3fo +1Ad0LrMDG5FyjbBuNvJLeX18+tkWui2bZijv2biOsTrlRZMtTFV+T/QcYOOf +8vJguWRb0LilVfxtlI2pEpZjEwxbqO7dEnbxBxtD09ts8vhtwUZyO2hOsHF3 +zIxD0A8b8EsI/Sdkmo0DIneWOT+2gam6sxnSc2w8JktN9L9pA3HzqT6V82y8 +bS544NopG1ije099zyIbHc0irrz3s4GsQ5XTS0ts/LAhcdzIzgb+B+yeHzE= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "PlotRange" -> {{0, 30}, {0., 0.07149566914127975}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +8478,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 +8506,8 @@ D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.07773075306777268}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07149566914127975}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -3451,9 +8515,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.99401447026289*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"42529393-eb33-4d7d-8ab6-ee6cfd6e8cf0"] }, Open ]], Cell[CellGroupData[{ @@ -3506,66 +8569,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[\\\"6.075315235951495`*^-161\\\", \ +RowBox[{\\\"164243120455479739170682508554\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"94\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"438400000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 100, 17, + 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913298974999084`*^9, 3.994014470385152*^9}, CellLabel-> "During evaluation of \ -In[173]:=",ExpressionUUID->"6dc439d9-4983-a74d-a424-1e627442f8ec"], +In[100]:=",ExpressionUUID->"635a19b2-696e-4f02-a465-e1d6e334c1bc"], 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.391916772621269`*^-164\\\", \ +RowBox[{\\\"552513857212233842570175958778\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"97\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"777600000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 100, 18, + 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913298974999084`*^9, 3.994014470392518*^9}, CellLabel-> "During evaluation of \ -In[173]:=",ExpressionUUID->"cbbb0a14-cac3-b246-be52-03554c6d0159"], +In[100]:=",ExpressionUUID->"222acac1-919c-4bd3-a43b-1817ea9635f2"], 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.451909855506121`*^-166\\\", \ +RowBox[{\\\"192330073695578600598678251250\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"101\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"825600000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 100, 19, + 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913298974999084`*^9, 3.994014470398525*^9}, CellLabel-> "During evaluation of \ -In[173]:=",ExpressionUUID->"afaf59d8-5c82-5843-ba76-5dd1061c22bd"], +In[100]:=",ExpressionUUID->"5151974a-58ff-4ef4-97a2-49f32d7c286e"], 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, 20, 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913298974999084`*^9, 3.9940144704044456`*^9}, CellLabel-> "During evaluation of \ -In[173]:=",ExpressionUUID->"370cb98e-1084-6940-9e45-78218dc7334e"], +In[100]:=",ExpressionUUID->"9fa5c9ac-dbad-4a93-9cd0-701b33de4da6"], -Cell[BoxData["9.77956849963325`"], "Output", - CellChangeTimes->{3.991329904262455*^9}, +Cell[BoxData["10.631215306775653`"], "Output", + CellChangeTimes->{3.991329904262455*^9, 3.994014516431773*^9}, CellLabel-> - "Out[173]=",ExpressionUUID->"49c1839c-f9a0-514a-9803-38aedd206508"] + "Out[100]=",ExpressionUUID->"012a07f4-f38e-4a13-8a4e-880bda9af68e"] }, Open ]], Cell[CellGroupData[{ @@ -3632,68 +8702,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[\\\"6.486581843963336`*^-209\\\", \ +RowBox[{\\\"365000401101666289871540890002\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"213134598144000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 101, 21, + 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329904300501*^9, 3.994014516493229*^9}, CellLabel-> "During evaluation of \ -In[174]:=",ExpressionUUID->"e4da2c2e-bc79-8048-aec6-e0a36c5fd50c"], +In[101]:=",ExpressionUUID->"bae06a35-0613-4232-867c-6d17722f3d52"], 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.34189274055711`*^-214\\\", \ +RowBox[{\\\"706640776532825937191303163045\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"49\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"628582006784000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 101, 22, + 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329904300501*^9, 3.994014516500411*^9}, CellLabel-> "During evaluation of \ -In[174]:=",ExpressionUUID->"ff48d9a8-4f15-044a-8d17-d378e560badf"], +In[101]:=",ExpressionUUID->"e8faa4d7-4efa-4d6a-b534-1db7e7480e0c"], 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[\\\"1.3454075208700454`*^-218\\\", \ +RowBox[{\\\"143094757247897252281238890516\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"53\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"878563737600000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 101, 23, + 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329904300501*^9, 3.994014516506877*^9}, CellLabel-> "During evaluation of \ -In[174]:=",ExpressionUUID->"d97cd881-ad70-0043-811a-b6650c7bff48"], +In[101]:=",ExpressionUUID->"144073a0-7191-4013-9b37-c6a0be8e85e7"], 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, 24, 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329904300501*^9, 3.994014516514152*^9}, CellLabel-> "During evaluation of \ -In[174]:=",ExpressionUUID->"dc1ff9fc-c736-e742-9bd5-f36a7c2c6c53"], +In[101]:=",ExpressionUUID->"4de0b155-41a9-41e7-a7cc-a36cda52b59a"], -Cell[BoxData["0.1491428555515254`"], "Output", - CellChangeTimes->{3.9913299110465336`*^9}, +Cell[BoxData["0.5412082843385232`"], "Output", + CellChangeTimes->{3.9913299110465336`*^9, 3.994014523767313*^9}, CellLabel-> - "Out[174]=",ExpressionUUID->"207fc206-b3fa-1a42-8709-2c8aaaf304b0"] + "Out[101]=",ExpressionUUID->"ec5c5f5c-fdea-4e30-8613-af46b5019eb2"] }, Open ]], Cell[CellGroupData[{ @@ -3714,8 +8791,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 +8836,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[\\\"6.486581843963336`*^-209\\\", \ +RowBox[{\\\"365000401101666289871540890002\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"213134598144000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 102, 25, + 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329911081766*^9, 3.9940145238084087`*^9}, CellLabel-> "During evaluation of \ -In[175]:=",ExpressionUUID->"079487fc-3029-b74e-ba27-a61cf73f30a2"], +In[102]:=",ExpressionUUID->"2035f828-1972-4f83-b25e-cad1fb8ef5fd"], 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.34189274055711`*^-214\\\", \ +RowBox[{\\\"706640776532825937191303163045\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"49\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"628582006784000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 102, 26, + 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329911081766*^9, 3.994014523817485*^9}, CellLabel-> "During evaluation of \ -In[175]:=",ExpressionUUID->"6fef6245-eafb-7343-8d9c-509c47662fd8"], +In[102]:=",ExpressionUUID->"eac276c8-5b85-41ed-8f30-569372348d43"], 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[\\\"1.3454075208700454`*^-218\\\", \ +RowBox[{\\\"143094757247897252281238890516\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"53\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"878563737600000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 102, 27, + 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329911081766*^9, 3.994014523823744*^9}, CellLabel-> "During evaluation of \ -In[175]:=",ExpressionUUID->"caeb451e-fce0-a24e-bdb2-20066bf32e23"], +In[102]:=",ExpressionUUID->"493dbde3-e8cf-4c49-a991-d1006835402a"], 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, 28, 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329911081766*^9, 3.9940145238312483`*^9}, CellLabel-> "During evaluation of \ -In[175]:=",ExpressionUUID->"b9263c45-06ba-d24d-a71c-72933a67fb86"], +In[102]:=",ExpressionUUID->"c17cdd01-e415-42d4-a3e6-9ebd2391cfee"], -Cell[BoxData["6.5928699937564845`"], "Output", - CellChangeTimes->{3.9913299163114815`*^9}, +Cell[BoxData["31.155139465243135`"], "Output", + CellChangeTimes->{3.9913299163114815`*^9, 3.9940145306185427`*^9}, CellLabel-> - "Out[175]=",ExpressionUUID->"fdc26e81-7e73-a54e-8b48-fba744fd21b7"] + "Out[102]=",ExpressionUUID->"ff0f016f-18c5-4c11-b750-2ce0c9a24de0"] }, Open ]], Cell[CellGroupData[{ @@ -3842,8 +8925,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 +8970,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[\\\"6.486581843963336`*^-209\\\", \ +RowBox[{\\\"365000401101666289871540890002\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"213134598144000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 103, 29, + 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299163444805`*^9, 3.994014530664166*^9}, CellLabel-> "During evaluation of \ -In[176]:=",ExpressionUUID->"3270b87e-9743-ef45-96a4-2ce51373a203"], +In[103]:=",ExpressionUUID->"d0668f3e-9d48-4e4b-a655-58ed51156c3e"], 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.34189274055711`*^-214\\\", \ +RowBox[{\\\"706640776532825937191303163045\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"49\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"628582006784000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 103, 30, + 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299163444805`*^9, 3.994014530672935*^9}, CellLabel-> "During evaluation of \ -In[176]:=",ExpressionUUID->"b5a7511b-af1a-b946-83d4-1951541611b2"], +In[103]:=",ExpressionUUID->"5bd2fdcf-0699-45a6-acd0-d8c11c4a8dc4"], 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[\\\"1.3454075208700454`*^-218\\\", \ +RowBox[{\\\"143094757247897252281238890516\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"53\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"878563737600000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 103, 31, + 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299163444805`*^9, 3.9940145306800632`*^9}, CellLabel-> "During evaluation of \ -In[176]:=",ExpressionUUID->"55836c22-e074-4442-9aa3-8442534fcabe"], +In[103]:=",ExpressionUUID->"4709c3ac-fc59-4775-9133-c2c38e38d873"], 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, 32, 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299163444805`*^9, 3.9940145306871653`*^9}, CellLabel-> "During evaluation of \ -In[176]:=",ExpressionUUID->"18c3aa33-3860-5f41-a9ac-8cd3806fef7e"], +In[103]:=",ExpressionUUID->"9e9c8c70-9f90-4f32-8543-9e78dce2f96b"], -Cell[BoxData["16.916908616104454`"], "Output", - CellChangeTimes->{3.9913299193276234`*^9}, +Cell[BoxData["5.2190444756357675`"], "Output", + CellChangeTimes->{3.9913299193276234`*^9, 3.9940145349975557`*^9}, CellLabel-> - "Out[176]=",ExpressionUUID->"62510f7e-bac9-8b4e-86ce-182bdd5d56b9"] + "Out[103]=",ExpressionUUID->"a1d2ee48-616c-45ca-8946-9fc392a56860"] }, Open ]], Cell[CellGroupData[{ @@ -3958,22 +9047,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.042442805856177095`"], "Output", + CellChangeTimes->{3.99132991935894*^9, 3.99401453502958*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"2646347b-89d3-420a-a4c9-d520ac562aaf"] }, 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 +9086,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["6.791953421666289`"], "Output", + CellChangeTimes->{3.9913299193849545`*^9, 3.9940145350503483`*^9}, CellLabel-> - "Out[179]=",ExpressionUUID->"e3d357af-87e3-0047-959d-fa0139c5bfc4"] + "Out[106]=",ExpressionUUID->"6cedc9f5-583b-4309-a542-a60c1acc6f4e"] }, Open ]], Cell[CellGroupData[{ @@ -4011,12 +9101,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["2.508601863871297`"], "Output", + CellChangeTimes->{3.9913299194207077`*^9, 3.9940145350607986`*^9}, CellLabel-> - "Out[181]=",ExpressionUUID->"93dda073-df54-8f4e-afab-666de5caf927"] + "Out[107]=",ExpressionUUID->"9d3a4edf-c3ea-4651-b473-52c773ee611a"] }, Open ]], Cell[CellGroupData[{ @@ -4026,12 +9116,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["17.038307012919084`"], "Output", + CellChangeTimes->{3.9913299194738407`*^9, 3.994014535069874*^9}, CellLabel-> - "Out[184]=",ExpressionUUID->"db5e4010-00e8-574c-8b32-365b8147ba2d"] + "Out[108]=",ExpressionUUID->"a6d39754-4efe-4e10-85a8-a51fa784a073"] }, Open ]], Cell[CellGroupData[{ @@ -4221,12 +9311,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.007203550527727497`"], "Output", + CellChangeTimes->{3.991329919501911*^9, 3.994014535084465*^9}, CellLabel-> - "Out[185]=",ExpressionUUID->"6f5204f9-42a7-0343-a2cd-76cd7618ba90"] + "Out[109]=",ExpressionUUID->"4f0b4c20-74e4-4743-9c6f-cd2514cdbad6"] }, Open ]], Cell[CellGroupData[{ @@ -4240,12 +9330,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.441710240660749`"], "Output", + CellChangeTimes->{3.991329919596855*^9, 3.9940145351975527`*^9}, CellLabel-> - "Out[186]=",ExpressionUUID->"732feb85-572c-6a40-bb32-258aa6fbb12e"] + "Out[110]=",ExpressionUUID->"84840e74-e792-408a-b473-0d61927200aa"] }, Open ]], Cell[CellGroupData[{ @@ -4437,12 +9527,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.05566808213961876`"], "Output", + CellChangeTimes->{3.9913299196126003`*^9, 3.994014535212727*^9}, CellLabel-> - "Out[187]=",ExpressionUUID->"330db3dd-df0f-5e4b-9e84-63e3da6287e1"] + "Out[111]=",ExpressionUUID->"7b262631-6a4c-41b7-8aca-54a95340e0b0"] }, Open ]], Cell[CellGroupData[{ @@ -4456,12 +9546,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.756140345442589`"], "Output", + CellChangeTimes->{3.9913299197036095`*^9, 3.9940145353237658`*^9}, CellLabel-> - "Out[188]=",ExpressionUUID->"8403ef7a-5add-ea45-a6c0-a6dc70f27bb8"] + "Out[112]=",ExpressionUUID->"5db5b225-ec64-4c80-b588-38fae0cbdfb6"] }, Open ]], Cell[CellGroupData[{ @@ -4554,12 +9644,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.08017799560488434`"], "Output", + CellChangeTimes->{3.9913299197165985`*^9, 3.994014535335788*^9}, CellLabel-> - "Out[189]=",ExpressionUUID->"aac00e4f-5d2b-4341-8ca5-f49d9556633e"] + "Out[113]=",ExpressionUUID->"368784ae-27ac-4185-9472-f5d7f91f05cb"] }, Open ]], Cell[CellGroupData[{ @@ -4649,12 +9739,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.9198220043951155`"], "Output", + CellChangeTimes->{3.991329919739599*^9, 3.9940145353468513`*^9}, CellLabel-> - "Out[190]=",ExpressionUUID->"eeee5a47-9547-7746-bb79-936b40364d7e"] + "Out[114]=",ExpressionUUID->"643fd9e5-e23c-4612-9554-15835f644b1e"] }, Open ]], Cell[CellGroupData[{ @@ -4777,12 +9867,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.07374948462566748`"], "Output", + CellChangeTimes->{3.9913299197646008`*^9, 3.994014535357428*^9}, CellLabel-> - "Out[191]=",ExpressionUUID->"a1352554-6686-ff4e-be47-04b42c29b000"] + "Out[115]=",ExpressionUUID->"d4c18729-7e7c-4667-9289-21979f47fb0c"] }, Open ]], Cell[CellGroupData[{ @@ -4797,7 +9887,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 +9911,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -4844,68 +9935,75 @@ 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[\\\"1.9354806341475935`*^-212\\\", \ +RowBox[{\\\"111907153680443277505994197391\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"260731183104000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 116, 33, + 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329919788595*^9, 3.994014535372238*^9}, CellLabel-> "During evaluation of \ -In[192]:=",ExpressionUUID->"c854318c-035d-f249-9a8c-a9608e137436"], +In[116]:=",ExpressionUUID->"ae393f59-5332-46e8-8c15-e35e7fe18e9c"], 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.3275533178561674`*^-217\\\", \ +RowBox[{\\\"197404219092301941520573764198\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"929806995456000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 116, 34, + 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329919788595*^9, 3.994014535380591*^9}, CellLabel-> "During evaluation of \ -In[192]:=",ExpressionUUID->"fc1eef58-3b5b-8c4c-bab7-60a3682b1d45"], +In[116]:=",ExpressionUUID->"4c2e1622-80c7-4e3c-82fd-6e395e8a9052"], 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[\\\"9.10573725542388`*^-223\\\", \ +RowBox[{\\\"365000401101666289871540890002\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"213134598144000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 116, 35, + 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329919788595*^9, 3.994014535389286*^9}, CellLabel-> "During evaluation of \ -In[192]:=",ExpressionUUID->"2e134293-05b5-624c-b206-73b12a84c5ea"], +In[116]:=",ExpressionUUID->"85003b8a-2990-43ae-8b9f-40d5f8505c4c"], 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, 36, 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329919788595*^9, 3.9940145353983707`*^9}, CellLabel-> "During evaluation of \ -In[192]:=",ExpressionUUID->"2cac2ff4-fc29-a048-9fae-70918ed41968"], +In[116]:=",ExpressionUUID->"8de685ba-02e3-42c1-803e-f1b604b6a101"], -Cell[BoxData["4.190766798679958`"], "Output", - CellChangeTimes->{3.991329923627493*^9}, +Cell[BoxData["10.441710240660742`"], "Output", + CellChangeTimes->{3.991329923627493*^9, 3.994014539247596*^9}, CellLabel-> - "Out[192]=",ExpressionUUID->"2dcc4178-0b8d-9f48-a040-f2fc5cb8eacd"] + "Out[116]=",ExpressionUUID->"784387c7-6cf9-45aa-b23e-2ba6cf176bc1"] }, Open ]], Cell[CellGroupData[{ @@ -4920,7 +10018,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 +10042,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -4967,68 +10066,75 @@ 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[\\\"1.9354806341475935`*^-212\\\", \ +RowBox[{\\\"111907153680443277505994197391\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"260731183104000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 117, 37, + 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299236609*^9, 3.9940145392920723`*^9}, CellLabel-> "During evaluation of \ -In[193]:=",ExpressionUUID->"ac808335-5ecc-ee4f-a7ac-d889b0bf6e05"], +In[117]:=",ExpressionUUID->"e9b5d0a8-f30b-4891-99c0-2808aa6e82d0"], 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.3275533178561674`*^-217\\\", \ +RowBox[{\\\"197404219092301941520573764198\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"929806995456000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 117, 38, + 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299236609*^9, 3.994014539299124*^9}, CellLabel-> "During evaluation of \ -In[193]:=",ExpressionUUID->"36b7d718-32d9-a441-b985-1fed8f0f10fd"], +In[117]:=",ExpressionUUID->"8040490e-f34a-47d4-a796-a8d8671dd1e9"], 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[\\\"9.10573725542388`*^-223\\\", \ +RowBox[{\\\"365000401101666289871540890002\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"213134598144000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 117, 39, + 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299236609*^9, 3.9940145393070297`*^9}, CellLabel-> "During evaluation of \ -In[193]:=",ExpressionUUID->"ab31a569-fab4-434a-9c76-33aa9b59b117"], +In[117]:=",ExpressionUUID->"bed0149e-adb6-462f-a5a8-09b7dfe431e2"], 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, 40, 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299236609*^9, 3.994014539313839*^9}, CellLabel-> "During evaluation of \ -In[193]:=",ExpressionUUID->"4c41e56d-f5cb-b94c-b99a-06e306247825"], +In[117]:=",ExpressionUUID->"58993437-c8cd-4e03-9af4-d54bdc70044e"], -Cell[BoxData["7.439513700547696`"], "Output", - CellChangeTimes->{3.9913299274564743`*^9}, +Cell[BoxData["3.756140345442586`"], "Output", + CellChangeTimes->{3.9913299274564743`*^9, 3.9940145429704227`*^9}, CellLabel-> - "Out[193]=",ExpressionUUID->"5ec230cf-b87d-3e41-bc7f-1f3f2ff283ef"] + "Out[117]=",ExpressionUUID->"70e8022f-8240-4994-b898-28d300ff7854"] }, Open ]], Cell[CellGroupData[{ @@ -5086,93 +10192,95 @@ 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:eJwV1Hc4V18cB3DJyh7ZkYzqa5S+9qjzyUxZUdniO27IJgkhoV1IRYUk/Wyp +KJFUkkpUtJSQSNd2jWj9jj/uc5/Xc+993/e555y7ihHixObk4OAYxcfiOaxt +3Zo7r9o2rS88/E+Ki0Sbxq7pMSzK0L7UARVp7N48/UxVi3oUX8mXvmhH1kse +QZ0nKHTlqJUMdlV0wmNui1b0tjPDUhb7WLNMY0LJa1T1cv6kHHbtq7Dc3/S3 +6CSvssIKbLLredyBug9ofYLArAK23ICKx6z5Z8S5oUZaCXvbeJxRRGsPuiWj +nKSM3fCbFIgu6UPBGxz01LDfHZKOrQnuR337Nm5Yiz3GY0FO0wcQV+/IPg1s +npOhbjpzg8jX32vpemxFsZyWsLoh9IX/zEc6tr387PUx8xE0HKXnY4JNXFGW +0uIbQ8naJaKAnaDmkLK3dRzp9/Yss8T+IN25IbJkEuXOn3rngM1yD/A/e3IK +3bfjKdmJPXGZI/9mMIXeBaJmD2w+ZS3RSfoMOttFffDDzmQ9thaVnEXSIiHt +IdhK/7klrJ+bRURXifB+bEPN1LGgup+obYG5JxXbT7+nlTT/jZ4Wdx0qwp6O +3sfFv/oP0u9xbajCTqwTMKXx/UUP11wwr8POAsPSPa3/kHCh89r2xX6FLRbh +JUvAWea5+wJ2SfPZ3kPynMBVZdXNzY37fveOSz/JCZm3k4rEsOPUZ27dCF4K +Xy4byqpjZ1auUhmnc8Nzo2ymN3bXq5GGvwXcUBohrBmIrTR1x11Ykgd2bTPb +GINdpmufoTXHA/LMAaML2E21MUsC6/hgdF7ycif2zOOOniFzQZCT4Oby4iGR +uK2gaGyDIEj3uwyGYmt3WoCQkRAEHl+jmIId8K36yoZ1wjCca3q6AjuUs1V7 +o6Ao6IQbhnLzkmhAuWIyZVYMDldvMXmMPU08X9auIw567Y77PmNzlg6ukgkT +h2rGG65ZbCWdlU4lw+JAW7pZVZ2PRO7maTfbeiXAwekJ6zx2OzM8QvqFJDy4 +pz0Sv4xEX/47fcKHTwra1t08mIM9MlxSUGwpBfljRax6bP7I/g6TRimwp83Q +f2FbJO/Q9amWhs+bOV7H8ZPo3jX9maI8WTD9c0k8TYBE1wYWoowjFYDD/1zx +rBCJtuw88iWiXAHOy9SqKwjj/CYJq/JBBYii7Zw1x9a9pimp5KYIeWozgRnY +TQzvW9ybVsI048V7ugiJpsZ79w8dVoLeyykFh0RJJBFkcfuWnTI82XpL1EWC +RIPX+P0cA5ThnoJBbyr23c+v5EdTlcH20ZqFGmxPW6/DqxuVoanXTkhmOe6n +EeWUTVeByPH8G93YuuR/E/HSquA0yj8cJUWiHXsEtLb2qYGZdotGnyyJUNRO +ussfNdAbOrVWVo5E6il5BizZ1TBzpC1wOzZHgY5Z/PbVYJrf8OIRdvkXD5eb +D1dDCK9df5E83p+7yg7JXV0Dfc010UkKuJ+F3TuSQYOer8ZGe1eRqMD5wqe5 +eBpouPmrlmGfZvT1cl2iQU0Mp8soNitx37BiBw2uHw3PCFUmkVh9DoezuTr4 +rjFmxKjg9aMzpl6nogGsp99Zl9RIJK98JuHEN03wO5M1Ja5Oovrj07R5Ti3I +Sd0vwsT2pNw6iVVa0KNok3gLO7dJlWbmrQWXvjV67dQgkfKee29+vteCcfYw +b44mHm/ZgBrxYh3INgTJmK4nkYK8IqHkpg3F8gsqtbok0iyMFPyF6GC6V/hG +BZCIwTo8o2VPh6TTAkuENuP9qpLxxceTDjVLJy/uxV56tfJGczQd+szDimlm +eL/lkjsyqujgk6K1odgc/0+zfHJoKjoQqveErLbC83vCdp0rjy5I7H3wj9uO +RPnhqo7VrXpQOc4VnehOoldRyCC50AiGtY6Rl2JJtMr7rb1X4EY4ruDuapVP +Iva/mgqFAwArT8jN/mkhkfTwXV5phhnYmIRGc8+TKFLH9HOGugUkch8fPqA+ +jBijv1skSEuQEvr1w3T3MCo3i+DNa7eGDpGhc/o5w+jadMDDskwb8Lt47qjf +p2H0c7PMy6aEbdDX9uvXQZUR1M2xdLLP1w7M7Wqp7uARFLwiJO2QigP00I4J +02pHUIV/S+O5FEdQUywVmxYaRTGU7JyG/3boV9bPHvAZRTNbrXY93e0ERU1F +TjUNo8jII33zwHZn0OWGFWcVx9Ab2ZyAJp0d4KOWEa8UO4bkrh+uL1q7Exhu +R99e+DqG7vaq29oL7YLWcZ+Tby3HkWLnxJ6o0V0QUepkb1s8jnTOpZcV9LrA +sNXynHyBCZTDRa3LeOwKxp1pU3fQBKrZvL4rpdYNPJ5adT2LnkBZBsfFfpe4 +wyPnR7u1qyZQ+6fCVJ2THvCGViHZPzCBqu0uq4YmesLP4cNpnxQn0WSQM0cw +ywvWnHAbyHaeRDNWNL8xc28o2Foel586iYpGP/6M0N8NP6n6zIn6SeSaX8j0 +EvSBO2lBK7aPTaJbN7ftXnrEBxzZZ2aklaeQkfyb+WPzPpC1f4431nEKqfTu +6Xrt7wubTYR5O2Kn0DeBvQ6X+33B0ECgbWXRFHp12p5pvZMBVts3+ue1TaHM +6DyBfa8Y8CYx6TY5PYXqG/7NM22YkJxUF3VfikIinnBE5x4Tvl0PFSulU0hp ++dP2FfVM6PQOWrNCh0LarXYyPA1MyNsWM3cS28nUo/jDQyakeCU/CdKlUOaK +qBcHnzGhNiFLWlOfQnLdpSItH5ggEPku5ZIRhVS9pbM855jw7BhNwRIoZOQz +VpSiy4KnS5b/eGBLoevZExH2+iyQT1eqk7Gj0PKOqU3ShizAC802DHvMcq6z +yIQFnpHNlavsKfz/4ljSasaCXfQPoQkOFBKeE3MT386CjjC+9+ucKPTtlN6y +vCAWKF9+8d3ThULbnxp07glhQV9Rdk45dgOHcZ52GAssL7wT+4udHbFJ71Ek +C3byRurlulLI3s3adyCWBbnBK/0+uVGoVtWtVuM4CyqGmOE2nhQ6XRfnf/c6 +7uuQ95byoVAQ/YJRdBELHtkLdxn7Usi2uGqZYQkLEs/Y5h7C5r8wWHynnAWC +XyUIYQaFUsIdyZrbLAh91TWpyqRQHE11b/UjFqjUPZ+yZFMo4MKLwJtfWODa +2bLbxZ9CNsKDpuG9LJjKf2h3HnttCocQ/SsL1LMSFzqxB8P1yqsGWCD9ZUPa +9gAK+drnjd4YYYFe/rFS670UcuWOCK5cYEGeBnFpTRCFrCPkQsuk2BDYqa1Z +E0qhR3mpWzNk2PCr3OXIJLZp65RqtBwbhtYWZGqG4flXe/HRXJENdU4pT/Kx +Zd/Hmn9SY8MBidSEo+EUGjbuluLXY4PHYzk760gKneG8cn+PMxu0/g1JHt+P +x79eMMtuJxuUXhcX1mEne0SH67iwQUfxzOAIdvRtxzX/3NkQIFcSax+N+xNL +0s8zcH6l65TQAQrpPGewnoSxYVlclEB8DIXep6sJqKSxgbNmSYPyQQpVICG/ +oXQ2eIk/aLTGTh6dbio/y4YnOfLxgdh0m6Z4wwtsmHHMW1uNfZqDOWWXi/sl +2Zuax1PIKuTKx+gyNuyfcHZ3SqCQgsJR/U0VbDjh8YUrAnv6ecjZpTfYUKHf +6H8W++pqZHf6Fhuykw8wOrD/dHc3FtxjQwHhIOKYSKHbtvJFbS1s0OgQdDY9 +RKETC5zcmc/ZcHGFRr4rNqOI9HVrZUM1B6M4EluU6578t3Y20BUEhkqxA+tc +z8y/Y8NZ0+8K0kkUUlE/H6U6wAYu62d+vdgL7w92/Bhkw4DH610/sV+lsLUr +h9jwUrv+r8hhCsX36ZJGI2y436MVtwm7K6vDy4Fig/UNLa0s7AxeMcuYJQRM +PVzJ3pRMofqpbo/IpQTwRZtu2IH9vbskPJibgIjJh4X+2Ka3La4wlhHg4jl/ +5Cz2oE/0r61iBKC99dr92KK2luKWEgQY0B+iWWwTA3EakiTg9ZHlc3wpFEoT +KtulI0uA2uuL3lrYJvd6quRXEeCY2Skajk0UlrVIqhAQqPbbN2nx/rQDPSJq +BJRme3hkYA8SEkJcNAIWvt6xqlq8LmHtN6JNgJh0/j8S+95fiYRBOgEacWYZ +P7EHfvSe69UlQOQa30vuVAoZN8Y87jQk4G7tgvFK7G+BFYr3gYCjqRt/2mEL +u8bq3TEj4Pza1heu2EbmW2yrLAj4NB9izcQ+Lfv1QOEWAnYHT+jvx77LVZmW +t5UA5/fPShKx+8dj/8u2JWB0oar5GLZhs+TbU44ECFwsmr2Izaj6OnzEiQA5 +u9v8BdinLldyJu0ggKQ9ay7B/hpuox3livsELjOoxRbylrIOdSegOZY+/GAx +z6bfK8CTgDJeH+vmxedXHjzh7UPAn+SmudeLffi3XnVl4O+dPr/t/WLejFSt +E4sACaf1Wz4v5vX1t9sS+P1zrJHexbzWG4NWfnh+G7MNBxb73Tn4BwIIGPvV +qvljMf/q1uUmgQTkcv9tGVnMPyWtoRdMwBtrTaGJxfzob5vXhxKwysRlfgpb +kFXlSgsnwI2IPzWDbeAQH6ISSUC6d/6zucV8422pClEErHj6oHwe+6SaTI50 +NAEZ2z8a/cKuER24JRZDQNv90aDf2H2/qp4LxBHw/eNvmz+L+d/j+7jjCdBP +4mlbtP6bbT//JeD5yOdfWPT/jmrvOg== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -5186,105 +10294,107 @@ 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:eJwV1Hc4V18cB3DJyh7ZkYzqa5S+9qjzyUxZUdniO27IJgkhoV1IRYUk/Wyp +KJFUkkpUtJSQSNd2jWj9jj/uc5/Xc+993/e555y7ihHixObk4OAYxcfiOaxt +3Zo7r9o2rS88/E+Ki0Sbxq7pMSzK0L7UARVp7N48/UxVi3oUX8mXvmhH1kse +QZ0nKHTlqJUMdlV0wmNui1b0tjPDUhb7WLNMY0LJa1T1cv6kHHbtq7Dc3/S3 +6CSvssIKbLLredyBug9ofYLArAK23ICKx6z5Z8S5oUZaCXvbeJxRRGsPuiWj +nKSM3fCbFIgu6UPBGxz01LDfHZKOrQnuR337Nm5Yiz3GY0FO0wcQV+/IPg1s +npOhbjpzg8jX32vpemxFsZyWsLoh9IX/zEc6tr387PUx8xE0HKXnY4JNXFGW +0uIbQ8naJaKAnaDmkLK3dRzp9/Yss8T+IN25IbJkEuXOn3rngM1yD/A/e3IK +3bfjKdmJPXGZI/9mMIXeBaJmD2w+ZS3RSfoMOttFffDDzmQ9thaVnEXSIiHt +IdhK/7klrJ+bRURXifB+bEPN1LGgup+obYG5JxXbT7+nlTT/jZ4Wdx0qwp6O +3sfFv/oP0u9xbajCTqwTMKXx/UUP11wwr8POAsPSPa3/kHCh89r2xX6FLRbh +JUvAWea5+wJ2SfPZ3kPynMBVZdXNzY37fveOSz/JCZm3k4rEsOPUZ27dCF4K +Xy4byqpjZ1auUhmnc8Nzo2ymN3bXq5GGvwXcUBohrBmIrTR1x11Ykgd2bTPb +GINdpmufoTXHA/LMAaML2E21MUsC6/hgdF7ycif2zOOOniFzQZCT4Oby4iGR +uK2gaGyDIEj3uwyGYmt3WoCQkRAEHl+jmIId8K36yoZ1wjCca3q6AjuUs1V7 +o6Ao6IQbhnLzkmhAuWIyZVYMDldvMXmMPU08X9auIw567Y77PmNzlg6ukgkT +h2rGG65ZbCWdlU4lw+JAW7pZVZ2PRO7maTfbeiXAwekJ6zx2OzM8QvqFJDy4 +pz0Sv4xEX/47fcKHTwra1t08mIM9MlxSUGwpBfljRax6bP7I/g6TRimwp83Q +f2FbJO/Q9amWhs+bOV7H8ZPo3jX9maI8WTD9c0k8TYBE1wYWoowjFYDD/1zx +rBCJtuw88iWiXAHOy9SqKwjj/CYJq/JBBYii7Zw1x9a9pimp5KYIeWozgRnY +TQzvW9ybVsI048V7ugiJpsZ79w8dVoLeyykFh0RJJBFkcfuWnTI82XpL1EWC +RIPX+P0cA5ThnoJBbyr23c+v5EdTlcH20ZqFGmxPW6/DqxuVoanXTkhmOe6n +EeWUTVeByPH8G93YuuR/E/HSquA0yj8cJUWiHXsEtLb2qYGZdotGnyyJUNRO +ussfNdAbOrVWVo5E6il5BizZ1TBzpC1wOzZHgY5Z/PbVYJrf8OIRdvkXD5eb +D1dDCK9df5E83p+7yg7JXV0Dfc010UkKuJ+F3TuSQYOer8ZGe1eRqMD5wqe5 +eBpouPmrlmGfZvT1cl2iQU0Mp8soNitx37BiBw2uHw3PCFUmkVh9DoezuTr4 +rjFmxKjg9aMzpl6nogGsp99Zl9RIJK98JuHEN03wO5M1Ja5Oovrj07R5Ti3I +Sd0vwsT2pNw6iVVa0KNok3gLO7dJlWbmrQWXvjV67dQgkfKee29+vteCcfYw +b44mHm/ZgBrxYh3INgTJmK4nkYK8IqHkpg3F8gsqtbok0iyMFPyF6GC6V/hG +BZCIwTo8o2VPh6TTAkuENuP9qpLxxceTDjVLJy/uxV56tfJGczQd+szDimlm +eL/lkjsyqujgk6K1odgc/0+zfHJoKjoQqveErLbC83vCdp0rjy5I7H3wj9uO +RPnhqo7VrXpQOc4VnehOoldRyCC50AiGtY6Rl2JJtMr7rb1X4EY4ruDuapVP +Iva/mgqFAwArT8jN/mkhkfTwXV5phhnYmIRGc8+TKFLH9HOGugUkch8fPqA+ +jBijv1skSEuQEvr1w3T3MCo3i+DNa7eGDpGhc/o5w+jadMDDskwb8Lt47qjf +p2H0c7PMy6aEbdDX9uvXQZUR1M2xdLLP1w7M7Wqp7uARFLwiJO2QigP00I4J +02pHUIV/S+O5FEdQUywVmxYaRTGU7JyG/3boV9bPHvAZRTNbrXY93e0ERU1F +TjUNo8jII33zwHZn0OWGFWcVx9Ab2ZyAJp0d4KOWEa8UO4bkrh+uL1q7Exhu +R99e+DqG7vaq29oL7YLWcZ+Tby3HkWLnxJ6o0V0QUepkb1s8jnTOpZcV9LrA +sNXynHyBCZTDRa3LeOwKxp1pU3fQBKrZvL4rpdYNPJ5adT2LnkBZBsfFfpe4 +wyPnR7u1qyZQ+6fCVJ2THvCGViHZPzCBqu0uq4YmesLP4cNpnxQn0WSQM0cw +ywvWnHAbyHaeRDNWNL8xc28o2Foel586iYpGP/6M0N8NP6n6zIn6SeSaX8j0 +EvSBO2lBK7aPTaJbN7ftXnrEBxzZZ2aklaeQkfyb+WPzPpC1f4431nEKqfTu +6Xrt7wubTYR5O2Kn0DeBvQ6X+33B0ECgbWXRFHp12p5pvZMBVts3+ue1TaHM +6DyBfa8Y8CYx6TY5PYXqG/7NM22YkJxUF3VfikIinnBE5x4Tvl0PFSulU0hp ++dP2FfVM6PQOWrNCh0LarXYyPA1MyNsWM3cS28nUo/jDQyakeCU/CdKlUOaK +qBcHnzGhNiFLWlOfQnLdpSItH5ggEPku5ZIRhVS9pbM855jw7BhNwRIoZOQz +VpSiy4KnS5b/eGBLoevZExH2+iyQT1eqk7Gj0PKOqU3ShizAC802DHvMcq6z +yIQFnpHNlavsKfz/4ljSasaCXfQPoQkOFBKeE3MT386CjjC+9+ucKPTtlN6y +vCAWKF9+8d3ThULbnxp07glhQV9Rdk45dgOHcZ52GAssL7wT+4udHbFJ71Ek +C3byRurlulLI3s3adyCWBbnBK/0+uVGoVtWtVuM4CyqGmOE2nhQ6XRfnf/c6 +7uuQ95byoVAQ/YJRdBELHtkLdxn7Usi2uGqZYQkLEs/Y5h7C5r8wWHynnAWC +XyUIYQaFUsIdyZrbLAh91TWpyqRQHE11b/UjFqjUPZ+yZFMo4MKLwJtfWODa +2bLbxZ9CNsKDpuG9LJjKf2h3HnttCocQ/SsL1LMSFzqxB8P1yqsGWCD9ZUPa +9gAK+drnjd4YYYFe/rFS670UcuWOCK5cYEGeBnFpTRCFrCPkQsuk2BDYqa1Z +E0qhR3mpWzNk2PCr3OXIJLZp65RqtBwbhtYWZGqG4flXe/HRXJENdU4pT/Kx +Zd/Hmn9SY8MBidSEo+EUGjbuluLXY4PHYzk760gKneG8cn+PMxu0/g1JHt+P +x79eMMtuJxuUXhcX1mEne0SH67iwQUfxzOAIdvRtxzX/3NkQIFcSax+N+xNL +0s8zcH6l65TQAQrpPGewnoSxYVlclEB8DIXep6sJqKSxgbNmSYPyQQpVICG/ +oXQ2eIk/aLTGTh6dbio/y4YnOfLxgdh0m6Z4wwtsmHHMW1uNfZqDOWWXi/sl +2Zuax1PIKuTKx+gyNuyfcHZ3SqCQgsJR/U0VbDjh8YUrAnv6ecjZpTfYUKHf +6H8W++pqZHf6Fhuykw8wOrD/dHc3FtxjQwHhIOKYSKHbtvJFbS1s0OgQdDY9 +RKETC5zcmc/ZcHGFRr4rNqOI9HVrZUM1B6M4EluU6578t3Y20BUEhkqxA+tc +z8y/Y8NZ0+8K0kkUUlE/H6U6wAYu62d+vdgL7w92/Bhkw4DH610/sV+lsLUr +h9jwUrv+r8hhCsX36ZJGI2y436MVtwm7K6vDy4Fig/UNLa0s7AxeMcuYJQRM +PVzJ3pRMofqpbo/IpQTwRZtu2IH9vbskPJibgIjJh4X+2Ka3La4wlhHg4jl/ +5Cz2oE/0r61iBKC99dr92KK2luKWEgQY0B+iWWwTA3EakiTg9ZHlc3wpFEoT +KtulI0uA2uuL3lrYJvd6quRXEeCY2Skajk0UlrVIqhAQqPbbN2nx/rQDPSJq +BJRme3hkYA8SEkJcNAIWvt6xqlq8LmHtN6JNgJh0/j8S+95fiYRBOgEacWYZ +P7EHfvSe69UlQOQa30vuVAoZN8Y87jQk4G7tgvFK7G+BFYr3gYCjqRt/2mEL +u8bq3TEj4Pza1heu2EbmW2yrLAj4NB9izcQ+Lfv1QOEWAnYHT+jvx77LVZmW +t5UA5/fPShKx+8dj/8u2JWB0oar5GLZhs+TbU44ECFwsmr2Izaj6OnzEiQA5 +u9v8BdinLldyJu0ggKQ9ay7B/hpuox3livsELjOoxRbylrIOdSegOZY+/GAx +z6bfK8CTgDJeH+vmxedXHjzh7UPAn+SmudeLffi3XnVl4O+dPr/t/WLejFSt +E4sACaf1Wz4v5vX1t9sS+P1zrJHexbzWG4NWfnh+G7MNBxb73Tn4BwIIGPvV +qvljMf/q1uUmgQTkcv9tGVnMPyWtoRdMwBtrTaGJxfzob5vXhxKwysRlfgpb +kFXlSgsnwI2IPzWDbeAQH6ISSUC6d/6zucV8422pClEErHj6oHwe+6SaTI50 +NAEZ2z8a/cKuER24JRZDQNv90aDf2H2/qp4LxBHw/eNvmz+L+d/j+7jjCdBP +4mlbtP6bbT//JeD5yOdfWPT/jmrvOg== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5311368545847401, - 1.7610246145622632`}}, + "PlotRange" -> {{0, 180}, {0.8129992475998388, + 1.2204570548293174`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5311368545847414}, + "AxesOrigin" -> {0, 0.8129992475998405}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.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 +10406,21 @@ TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5311368545847401, - 1.7610246145622632`}}, + "PlotRange" -> {{0, 180}, {0.8129992475998388, + 1.2204570548293174`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5311368545847414}, + "AxesOrigin" -> {0, 0.8129992475998405}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 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 +10434,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:eJwV1Hc4V18cB3DJyh7ZkYzqa5S+9qjzyUxZUdniO27IJgkhoV1IRYUk/Wyp +KJFUkkpUtJSQSNd2jWj9jj/uc5/Xc+993/e555y7ihHixObk4OAYxcfiOaxt +3Zo7r9o2rS88/E+Ki0Sbxq7pMSzK0L7UARVp7N48/UxVi3oUX8mXvmhH1kse +QZ0nKHTlqJUMdlV0wmNui1b0tjPDUhb7WLNMY0LJa1T1cv6kHHbtq7Dc3/S3 +6CSvssIKbLLredyBug9ofYLArAK23ICKx6z5Z8S5oUZaCXvbeJxRRGsPuiWj +nKSM3fCbFIgu6UPBGxz01LDfHZKOrQnuR337Nm5Yiz3GY0FO0wcQV+/IPg1s +npOhbjpzg8jX32vpemxFsZyWsLoh9IX/zEc6tr387PUx8xE0HKXnY4JNXFGW +0uIbQ8naJaKAnaDmkLK3dRzp9/Yss8T+IN25IbJkEuXOn3rngM1yD/A/e3IK +3bfjKdmJPXGZI/9mMIXeBaJmD2w+ZS3RSfoMOttFffDDzmQ9thaVnEXSIiHt +IdhK/7klrJ+bRURXifB+bEPN1LGgup+obYG5JxXbT7+nlTT/jZ4Wdx0qwp6O +3sfFv/oP0u9xbajCTqwTMKXx/UUP11wwr8POAsPSPa3/kHCh89r2xX6FLRbh +JUvAWea5+wJ2SfPZ3kPynMBVZdXNzY37fveOSz/JCZm3k4rEsOPUZ27dCF4K +Xy4byqpjZ1auUhmnc8Nzo2ymN3bXq5GGvwXcUBohrBmIrTR1x11Ykgd2bTPb +GINdpmufoTXHA/LMAaML2E21MUsC6/hgdF7ycif2zOOOniFzQZCT4Oby4iGR +uK2gaGyDIEj3uwyGYmt3WoCQkRAEHl+jmIId8K36yoZ1wjCca3q6AjuUs1V7 +o6Ao6IQbhnLzkmhAuWIyZVYMDldvMXmMPU08X9auIw567Y77PmNzlg6ukgkT +h2rGG65ZbCWdlU4lw+JAW7pZVZ2PRO7maTfbeiXAwekJ6zx2OzM8QvqFJDy4 +pz0Sv4xEX/47fcKHTwra1t08mIM9MlxSUGwpBfljRax6bP7I/g6TRimwp83Q +f2FbJO/Q9amWhs+bOV7H8ZPo3jX9maI8WTD9c0k8TYBE1wYWoowjFYDD/1zx +rBCJtuw88iWiXAHOy9SqKwjj/CYJq/JBBYii7Zw1x9a9pimp5KYIeWozgRnY +TQzvW9ybVsI048V7ugiJpsZ79w8dVoLeyykFh0RJJBFkcfuWnTI82XpL1EWC +RIPX+P0cA5ThnoJBbyr23c+v5EdTlcH20ZqFGmxPW6/DqxuVoanXTkhmOe6n +EeWUTVeByPH8G93YuuR/E/HSquA0yj8cJUWiHXsEtLb2qYGZdotGnyyJUNRO +ussfNdAbOrVWVo5E6il5BizZ1TBzpC1wOzZHgY5Z/PbVYJrf8OIRdvkXD5eb +D1dDCK9df5E83p+7yg7JXV0Dfc010UkKuJ+F3TuSQYOer8ZGe1eRqMD5wqe5 +eBpouPmrlmGfZvT1cl2iQU0Mp8soNitx37BiBw2uHw3PCFUmkVh9DoezuTr4 +rjFmxKjg9aMzpl6nogGsp99Zl9RIJK98JuHEN03wO5M1Ja5Oovrj07R5Ti3I +Sd0vwsT2pNw6iVVa0KNok3gLO7dJlWbmrQWXvjV67dQgkfKee29+vteCcfYw +b44mHm/ZgBrxYh3INgTJmK4nkYK8IqHkpg3F8gsqtbok0iyMFPyF6GC6V/hG +BZCIwTo8o2VPh6TTAkuENuP9qpLxxceTDjVLJy/uxV56tfJGczQd+szDimlm +eL/lkjsyqujgk6K1odgc/0+zfHJoKjoQqveErLbC83vCdp0rjy5I7H3wj9uO +RPnhqo7VrXpQOc4VnehOoldRyCC50AiGtY6Rl2JJtMr7rb1X4EY4ruDuapVP +Iva/mgqFAwArT8jN/mkhkfTwXV5phhnYmIRGc8+TKFLH9HOGugUkch8fPqA+ +jBijv1skSEuQEvr1w3T3MCo3i+DNa7eGDpGhc/o5w+jadMDDskwb8Lt47qjf +p2H0c7PMy6aEbdDX9uvXQZUR1M2xdLLP1w7M7Wqp7uARFLwiJO2QigP00I4J +02pHUIV/S+O5FEdQUywVmxYaRTGU7JyG/3boV9bPHvAZRTNbrXY93e0ERU1F +TjUNo8jII33zwHZn0OWGFWcVx9Ab2ZyAJp0d4KOWEa8UO4bkrh+uL1q7Exhu +R99e+DqG7vaq29oL7YLWcZ+Tby3HkWLnxJ6o0V0QUepkb1s8jnTOpZcV9LrA +sNXynHyBCZTDRa3LeOwKxp1pU3fQBKrZvL4rpdYNPJ5adT2LnkBZBsfFfpe4 +wyPnR7u1qyZQ+6fCVJ2THvCGViHZPzCBqu0uq4YmesLP4cNpnxQn0WSQM0cw +ywvWnHAbyHaeRDNWNL8xc28o2Foel586iYpGP/6M0N8NP6n6zIn6SeSaX8j0 +EvSBO2lBK7aPTaJbN7ftXnrEBxzZZ2aklaeQkfyb+WPzPpC1f4431nEKqfTu +6Xrt7wubTYR5O2Kn0DeBvQ6X+33B0ECgbWXRFHp12p5pvZMBVts3+ue1TaHM +6DyBfa8Y8CYx6TY5PYXqG/7NM22YkJxUF3VfikIinnBE5x4Tvl0PFSulU0hp ++dP2FfVM6PQOWrNCh0LarXYyPA1MyNsWM3cS28nUo/jDQyakeCU/CdKlUOaK +qBcHnzGhNiFLWlOfQnLdpSItH5ggEPku5ZIRhVS9pbM855jw7BhNwRIoZOQz +VpSiy4KnS5b/eGBLoevZExH2+iyQT1eqk7Gj0PKOqU3ShizAC802DHvMcq6z +yIQFnpHNlavsKfz/4ljSasaCXfQPoQkOFBKeE3MT386CjjC+9+ucKPTtlN6y +vCAWKF9+8d3ThULbnxp07glhQV9Rdk45dgOHcZ52GAssL7wT+4udHbFJ71Ek +C3byRurlulLI3s3adyCWBbnBK/0+uVGoVtWtVuM4CyqGmOE2nhQ6XRfnf/c6 +7uuQ95byoVAQ/YJRdBELHtkLdxn7Usi2uGqZYQkLEs/Y5h7C5r8wWHynnAWC +XyUIYQaFUsIdyZrbLAh91TWpyqRQHE11b/UjFqjUPZ+yZFMo4MKLwJtfWODa +2bLbxZ9CNsKDpuG9LJjKf2h3HnttCocQ/SsL1LMSFzqxB8P1yqsGWCD9ZUPa +9gAK+drnjd4YYYFe/rFS670UcuWOCK5cYEGeBnFpTRCFrCPkQsuk2BDYqa1Z +E0qhR3mpWzNk2PCr3OXIJLZp65RqtBwbhtYWZGqG4flXe/HRXJENdU4pT/Kx +Zd/Hmn9SY8MBidSEo+EUGjbuluLXY4PHYzk760gKneG8cn+PMxu0/g1JHt+P +x79eMMtuJxuUXhcX1mEne0SH67iwQUfxzOAIdvRtxzX/3NkQIFcSax+N+xNL +0s8zcH6l65TQAQrpPGewnoSxYVlclEB8DIXep6sJqKSxgbNmSYPyQQpVICG/ +oXQ2eIk/aLTGTh6dbio/y4YnOfLxgdh0m6Z4wwtsmHHMW1uNfZqDOWWXi/sl +2Zuax1PIKuTKx+gyNuyfcHZ3SqCQgsJR/U0VbDjh8YUrAnv6ecjZpTfYUKHf +6H8W++pqZHf6Fhuykw8wOrD/dHc3FtxjQwHhIOKYSKHbtvJFbS1s0OgQdDY9 +RKETC5zcmc/ZcHGFRr4rNqOI9HVrZUM1B6M4EluU6578t3Y20BUEhkqxA+tc +z8y/Y8NZ0+8K0kkUUlE/H6U6wAYu62d+vdgL7w92/Bhkw4DH610/sV+lsLUr +h9jwUrv+r8hhCsX36ZJGI2y436MVtwm7K6vDy4Fig/UNLa0s7AxeMcuYJQRM +PVzJ3pRMofqpbo/IpQTwRZtu2IH9vbskPJibgIjJh4X+2Ka3La4wlhHg4jl/ +5Cz2oE/0r61iBKC99dr92KK2luKWEgQY0B+iWWwTA3EakiTg9ZHlc3wpFEoT +KtulI0uA2uuL3lrYJvd6quRXEeCY2Skajk0UlrVIqhAQqPbbN2nx/rQDPSJq +BJRme3hkYA8SEkJcNAIWvt6xqlq8LmHtN6JNgJh0/j8S+95fiYRBOgEacWYZ +P7EHfvSe69UlQOQa30vuVAoZN8Y87jQk4G7tgvFK7G+BFYr3gYCjqRt/2mEL +u8bq3TEj4Pza1heu2EbmW2yrLAj4NB9izcQ+Lfv1QOEWAnYHT+jvx77LVZmW +t5UA5/fPShKx+8dj/8u2JWB0oar5GLZhs+TbU44ECFwsmr2Izaj6OnzEiQA5 +u9v8BdinLldyJu0ggKQ9ay7B/hpuox3livsELjOoxRbylrIOdSegOZY+/GAx +z6bfK8CTgDJeH+vmxedXHjzh7UPAn+SmudeLffi3XnVl4O+dPr/t/WLejFSt +E4sACaf1Wz4v5vX1t9sS+P1zrJHexbzWG4NWfnh+G7MNBxb73Tn4BwIIGPvV +qvljMf/q1uUmgQTkcv9tGVnMPyWtoRdMwBtrTaGJxfzob5vXhxKwysRlfgpb +kFXlSgsnwI2IPzWDbeAQH6ISSUC6d/6zucV8422pClEErHj6oHwe+6SaTI50 +NAEZ2z8a/cKuER24JRZDQNv90aDf2H2/qp4LxBHw/eNvmz+L+d/j+7jjCdBP +4mlbtP6bbT//JeD5yOdfWPT/jmrvOg== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5311368545847401, 1.7610246145622632`}}, + "PlotRange" -> {{0, 180}, {0.8129992475998388, 1.2204570548293174`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5311368545847414}, + "AxesOrigin" -> {0, 0.8129992475998405}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 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 +10542,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.8129992475998405}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -5458,7 +10571,8 @@ TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.5311368545847401, 1.7610246145622632`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.8129992475998388, 1.2204570548293174`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -5466,9 +10580,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.9940148242801*^9}, CellLabel-> - "Out[194]=",ExpressionUUID->"3d0b6a0d-2dc0-3b48-b8dd-35b5149ee27f"] + "Out[118]=",ExpressionUUID->"5ebed38d-b15d-4149-be51-a37c3ded6773"] }, Open ]], Cell[CellGroupData[{ @@ -5531,213 +10645,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[\\\"2.835161942055493`*^-267\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 41, 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913301737143345`*^9, 3.9940148244008512`*^9}, CellLabel-> "During evaluation of \ -In[195]:=",ExpressionUUID->"abf9cb8a-fbbf-7a43-abcd-82efb32ab217"], +In[119]:=",ExpressionUUID->"5c110d0f-3e9e-446f-8b41-89589ae07919"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.656148098260251`*^-275\\\", \ + "\"\\!\\(\\*FractionBox[\\\"7.303979019261549`*^-279\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 42, 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913301737143345`*^9, 3.994014824407735*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"fa49f5d7-8647-433e-ab8c-62b2a3174b71"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8816600463794145`*^-290\\\", \ \\\"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, 43, 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913301737143345`*^9, 3.994014824414753*^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[119]:=",ExpressionUUID->"51e79501-fc8c-4612-b945-86d40a541ea3"], 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, 44, 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913301737143345`*^9, 3.9940148244208403`*^9}, CellLabel-> "During evaluation of \ -In[195]:=",ExpressionUUID->"fa59df63-76ff-4147-acd0-9eeaf33582c5"], +In[119]:=",ExpressionUUID->"f035e145-0c55-42e1-bb01-37dcfedc8e7a"], 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:eJwV13k8VN8bB3BRkUpCdjN3xpbInnXG81DZKYVEWUKWLBUpSZYoqWRLtiRJ +iTC3nUS0yVLZQr4qKYpElhD1u7+/7uv9uq87955znvN5zjD2BG/z5ubi4iIW +cXH9/zrd1/BU7kyh0YEBs3jdcROj9jzxcOOuWAj+Vmmr784AXPN6j3hXKnwW +/O242l0DwrbefMfTVQC7/0YLTrsZw+pRsdTZdyTMbtfd2OhmBx8e2QZPvquD +yo+zOsZuHmAq9/2/8XetcLMr64nS7gMw+073wti7fjh1IuJup30M1G+8Xvi2 +YAL6oE96figFpD88/LpHZQG2OdHQZmM2iAS43eTdyIMNc+Pv7vNdgVQN0ypb +Bz6UP2WveHChELoz1WvHBVfihsf+XpmuN+BMYdRrbonV+MZ1PsussATE0j+f +TrskjEkN1nF++8pAXPlu3EyRMEqde1k7HFoGknUno3ZXCGN21ZcUn+NlQBtT +OqRYL4zPzhr/sEopA3nr/e5VQ8Jo1nvD58W9MtBavKDzWUsEZTo+7EvgKoct +oaIDmq9EUGVmXkX5fDmcsrcwap1eg3miWZ5u1hUgeadFknuRKOr7yk1f3VoB +ZcL2vzWWi2L4oUX5A/YV0NnqWpFCF0XGblE9590VIGcXyrQzF8WIsZdBokEV +UGdzeembLFG852pV2JpUAQumUy3NLDE8zWU8tqO5ApKLjpYsmIqhxTfzetpb +6vmlXAnr7cRQlai++qm9Aqyf8Ruf8xbDWyyRsy69FZC9kbhtnSSGLQXTk/Th +CtBDq4uNH8TQ+4Ad1zAvB0L0r7g1xIpjjV2r0GkjDljmC0xanRVHaXZWWpYx +B5i8xxJaLojjY5ct+UWbOPCm3ZHTdkMctf6E7b5nyQHV/St4+lrE8adHyN5S +Rw4MFR0u+iUpgU8Pttz5FciBXSK2P6RuS6DDL+0zQ1kc0Iqoisl7JIFNp40y +EnM5wN+/VpTxXAJVT75QVbrMgYflPKDQLYE7f7Tx7SrkgKjVw2T1fxL4NSrc +K7OMen+MnPZmK0lU9y3s2VfHgU0/544GfZbE9vparqhBDoSbp697MiKJXbPm +89e/caDsyvoe4WlJfK/ie6t5mAPi9u76D/mk0M96j8aqMQ6MPHj2m0dVCq/b +GL7wn+FAWmxyaNYRKfQe3u0dx0fCy/dKciMxUqhnubH7CD8J89r1bUZnpHBC +Yjmv/woS9g5OaQ5cksLPGWEpJoIkGFi7jKvWS2Gu9h7/JjES+tcoBD1dKY1X +rrSGblQgQSy4RkZMTBpXd/8t5VlLgvVLp2Y/Qhq1i20Ka5VIuHf0jMoqLWks +W/70rfp6EhI/jH3f6SSNPK9cNb9rkaBZXOXzs0AaS1XL3J4gCTEsOw9JPRl0 +FZ3YvNiJBHPXvF+6JjLoTn9td3QnCQLRwyccrGVQ6E1f5ogzCbn18UXJ7jLo ++W7J+2e7SXhgWTm89LQMfmgsRytPEsacZMMmumXwm7wLvSCQhPtH9/OuHpDB +vgu3lXqDSDieW52pOiqDkeZR4UL7SVjxcUeVHzcNbf3WjYQcJEHR5yzXx3U0 +DM1U1OA/TILroanEpggaKo/v7IqLIkH+oon093ga3ihhJJ2IJqn5P3+LN5mG +5580pR+PIeHovNIbk0Ia0kreXvQ7QcKFE65rHjbRkFvj92nhUyTsulZS1NlJ +Q90Qzd5JyswXM7qTH2nYt+pIfGsCCRX8ac5qUzR87mH1MTaRhKaUF5evydBR +OX5/8/1zJKTdFtGoV6SjU4v9aEQSCc4dHnUfNegYe5kMYJ0nYUh8fkDKlI7p +qYrxZDIJPPnq61KD6Ni734YVkkbCqyeRVeVH6Jg5bO0umU5C8udX1s2xdFQb +jhiqpkxT9A7mu0jHPLWutXMXqHooy7pzvIaOA/rtMWaZJGx617Iw+pKOglIT +D19StuVabObWSsfjP160mWaR4LktqBu+0HF/XHi5fjYJQRFXmRWjdGzd2Xiw +jPKRwq59xAwdFYyrJYkcEkwjGFHRSwgk1UOl5ig3rnp0VY+fwCUldw7tySVh +a6HjyzEBAiMkz95/Qdml+cxqD3ECG4L/TSZcImE/ffqqsTKB1wQZAV/zSJi6 +nfxyVo3A0OcscZ3L1HqYK//gaBNY9IebpOYI4g+46zCNCGwJvs4RyieBf+kf +5x4TAgs+CUs4Uk7OvhCVakbgSV2zAxmUs+tfveS2I3Crp+LvlVdIoDt5/6h0 +IHAi0VdhM+XCkX+rQ5wJXKmfZRFOeV1Mto6yG4GDEfEeNymXr9ng8tmTwMWy +c0FdlLVvvo7K8SUw+/HTgzwFJFQa+RduDySQ6/LtQGXK0La4YflBAnXaL7hv +pfzU5/KP+jACrdYbWh+kbDGvL3QsgsB+3VCNFMotye062tEEXgWh1bco28sH +u4zEEXjPZnD4GeXuh8uiC08TqLb2ed17yq62hYW7kghMtYvNGKU80G/UIJJG +oDHfmM9fyn6Hu380XSRwZvOA7vKrJIwuDxWKzyWQVaPNu4ZySL6ALvsKgW39 +9zulKM9oF7tMXaOe7950nU75eMPG6Fs3CVSPux1OUOZx7Sv0LidwNLLXlkY5 +4deRBpk7BA6IZylKUBY4JTza8YAav1v94tWU06TKhJKqCdRbrTO4hLJ4hbmu +aR2BY0VNr39T33dp02eXv88JDLPxrPlKmdkdGX2vkaqPwc57rZRvBIpfC3pD +3V+x5H4V5fXctxsUOghU5WuqvUKZzLAZ7esmUKyHvyOOsp7ykNDFPgI7tK9M +elGuronV3fKZwJuRwYQJZRN7mV28QwR+a3TcKU35xdD96JoRAvcO6eVPUOtp +Hbnt2uFxAkesZ6ZeUN5RdGp0cI7AOtPctz6Uew2Ywvn/CDwGFju1KO95/UjX +aTGDml+viT9UfQXMjEe/XMnAP3XH9sRRNjiwV/SrEANFVDXuGFHm+95TwiPO +wESjqKwpqn6vva/vNGIysLkoUXYn5VB7vYBdigy8fiTn1RLKJs2li46qMNC0 +f2RZObUf+h5fULmrw8D0OG7H39R+KdXlr2s1ZKDSKYZ3BuWjFcd3jCEDc27r +rNakLFrgE6tsxcDzK3g2u1H7bUu8ftcVNwZV/6msFGr/0v7eCqzxYqD1kkb7 +NZRHwpg8//kx8ML8eeEMav8n+C5XFQ9loHNt9ulzVD7UWv13IimBgT/5BsPt +M0hIemonUXqOgbdzy4eqqXzZxX5e1pDKwMVFrbxylGdVy7sXX2Kgmw9911cq +rzSFYtQiOAz8r+9Z1MYUErjOTD3NvMfAQU/b9FQq31p4/J3vVTFwtHqDZx+V +f/umtsWPP2Pg0l7NDQFUPhZ2yb336WFgcF1Ks/sZanyXX56052Hiv8Hen2Vx +VP2LsaUP8jGxx1Zs0ysqr8lkDuf8SiY2Eg4+/bHU+GOze1+JMTEthU4so/I9 +wTtA01iFiUNcc1HqkdT3Kgv2rXdgYsGDs7JDoSRMX5KM0XJmYukXC6XOEBIm +V8nL6bsxsSjOWP0J1V9GJ/T9N/kxEU/wmSVR/ae/ynPaOZKJ+mIbHi0OoPLZ +6r5AwjUmHr/J/Oa5h6q36iecczeZOOyancf0oPJArck+rZyJgZV6/n1uJDwW +/pSd95CJJ5wNLGyofki+51e828xE45piKz6qn2bvc4X+KSbelR5LmrQm4eJ/ +vv2Dc0yMmk40i7ciIX1LSPyPf0w8PNmuLGxJrY9WQuPMMlk8dGnkmIIZCbF/ +ODtW0WRRZG+8j7IxNb9nluxnmcriGts/qeXaJLBKSvMzMmSxNdGfp0SChPdE +yeXNObJYHVFWwC1O1VdGcd7kZVn0annya4co1Y9jinK3FctinO5s8R8han2d +8jMFHsmia676BUXqPKK0JD355CdZDA/g9RL6S52f3CKiw1TkcIWZJ431kQPj +QpbujnVyqGvD6GDmcaArgPnG/4UcCgh+3Fibw4Ha53MQ1SSHvw5sdnChzmvJ +R0voNzrl8PMLs72J6RxQ71/xYfa7HIK+SGBTIgeCOK93XxKWx+KDM4Gfwjjw +fYuDy4CXPL5aMLNytuHAwFl3x4O8CriQ3p/+caICLH4etviio4jrHpw97aJX +ASOefCF3otZiz31+cd8bZdT/BzHuU3VKqP63bNK4rhSEmhWSKn6uw9Y+9xH4 +chOkE8q36uioYLeb+CrztzcgU1lfUNhnPa7jqdLrfF8ErySNN0ykqKKS/ehj +/4lCMJCuS1brVENdYaWexJECEOApCPWIVUfjrb4HEsWvAC2GztqpoIEea1QX +P/fNg2Xyu+5te6GBd2dSE0y/ZYMqW6L88G5N7K1/EFHVexEO9gnVW3JpoWPK +j4jXzenwc+Ksg0WmFp4u9k6LUE8FM7Xn2RbrtdFsyI7r4Z3z8HjC8M/vFm18 +cvoPVyvzDASpaPa89d6AO+V3lLZtPwXsUa/2nct0cBfkbJgsOQGb5cRtVhbo +YJFYUOhsaTSsjU48Uqeri4THDuZ67WOwzlu/Rr5HF+9eS/o7t/sweD/2jbtz +QA9N4sli+8gQqMlv9xpfo485HYpf/N8Gw+SNf7/V7uvjF4dQy0WDfvDV0TT/ +9EN91LtdatTV6gddi8+Zf67SR+XrO/MfPfaDKnfJrIxafTwyeyr5VoYfxIpv +MFho0MfXAp2eamZ+IJjgf+xVrz5Gm0x1ld70BRWfDi5vbgOsacrY7xbhA57y +JcuybQxw/JnzhIqJNxx95uqvsNUAP23qya1S84Zkb6FGcpsBeu7+KuEk4w2P +roWfbdxhgNHtw4GVM14gomC+asHDAH0G9bNkK7zgucIXEfcwA3T+5t4fzfCC +dWvphMJlAwx+unJBVcATxtel6ZBjBmhVmpOSv9IDuppws/CEAb5I+LvI9587 +1AaNbg+dMkDRe82v9MfdIYm0OKAzZ4CW8Z428+3usM6Aq7SSxxCDdzQFzOe6 +wx6LQEa9qCGWbRpv+azqDu0+ZivaWYYotsi63fKOKzwo/PNpKsEQj+sXR7lk +u4DOxtDflmcMUS/1erT6CRe4+2lkRf45Q5TUUM0RDXABktana5lqiPV+9hNr +jFygNLP2XF6OIfLIhAp87HeG/LPx+mZlhkgfOTCeqeYMp0NXpWS2GVL9KtjB +scMJnDfJoiGNhZK2RwbatzjCQjufQD3BwoU0CxcuQ0fI9x59bynLwt7licvZ +Co7w9eTDw85rWeil0DD0bd4BDjZsKQ/XZOGfuzmWgiUOkGh7jPbAlIUhorke +8fwOUOnUMa8dzMKHK5xqajq2g1TgqYeqtSycYylv+ZdtB0n/9m44U8fCL8U2 +WXDGDrhTTTmDT1l496BN6NkIO/h+b0lxfgMLNT+MVFrtsoNKrrhMoTYWsmlv +L7nR7MA5Pfrw9BcWsqrcPDoKt0JmVfiGx8vZWK2mORZ5aAus4Q/g2Oxg48QK ++Jay2hoKN0YeHdvJxsdmJlp9k1agGZm0MW0XG++41bdt6rIC27GKji4PNnqc +8njmftkKTnZOzXoGsHF/ZrXSW1UrmCmIMjkaw8bW5zFrYrdZQo9hWltRCRvV +bO/PXiw1B99DhbkWZWyMXZf8njfNHKbL7nqPVLCx/cCN9PPh5iDE7PqtcY+N +gvxf4KupOVjxyUhX17LxEe92r7J+M3jUXuTV1kG9XzPHOYtmBpYCD9aHdbEx +Wz6kKXKpGXSZNUyLv2fjMk2toSOjpjBZOZzg+pGN0zr328jHprD+ivqtb9/Z +OM4XFq7lbgqPeozDzv5gY2FLv16juSlYimwHtTE2HrixSDBcwxT2njr0NnSK +jb/7JapFeajfqz2ZLTbDxm+FQsFLRzZD7NxFz8o5Ng5oPxpb3rEZBLWLVXYv +sHF9gJa64uPNkBdYOfXvHxvXPs+Xcrq+Gf4HfOwz9g== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -5751,172 +10822,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:eJwV13k8VN8bB3BRkUpCdjN3xpbInnXG81DZKYVEWUKWLBUpSZYoqWRLtiRJ +iTC3nUS0yVLZQr4qKYpElhD1u7+/7uv9uq87955znvN5zjD2BG/z5ubi4iIW +cXH9/zrd1/BU7kyh0YEBs3jdcROj9jzxcOOuWAj+Vmmr784AXPN6j3hXKnwW +/O242l0DwrbefMfTVQC7/0YLTrsZw+pRsdTZdyTMbtfd2OhmBx8e2QZPvquD +yo+zOsZuHmAq9/2/8XetcLMr64nS7gMw+073wti7fjh1IuJup30M1G+8Xvi2 +YAL6oE96figFpD88/LpHZQG2OdHQZmM2iAS43eTdyIMNc+Pv7vNdgVQN0ypb +Bz6UP2WveHChELoz1WvHBVfihsf+XpmuN+BMYdRrbonV+MZ1PsussATE0j+f +TrskjEkN1nF++8pAXPlu3EyRMEqde1k7HFoGknUno3ZXCGN21ZcUn+NlQBtT +OqRYL4zPzhr/sEopA3nr/e5VQ8Jo1nvD58W9MtBavKDzWUsEZTo+7EvgKoct +oaIDmq9EUGVmXkX5fDmcsrcwap1eg3miWZ5u1hUgeadFknuRKOr7yk1f3VoB +ZcL2vzWWi2L4oUX5A/YV0NnqWpFCF0XGblE9590VIGcXyrQzF8WIsZdBokEV +UGdzeembLFG852pV2JpUAQumUy3NLDE8zWU8tqO5ApKLjpYsmIqhxTfzetpb +6vmlXAnr7cRQlai++qm9Aqyf8Ruf8xbDWyyRsy69FZC9kbhtnSSGLQXTk/Th +CtBDq4uNH8TQ+4Ad1zAvB0L0r7g1xIpjjV2r0GkjDljmC0xanRVHaXZWWpYx +B5i8xxJaLojjY5ct+UWbOPCm3ZHTdkMctf6E7b5nyQHV/St4+lrE8adHyN5S +Rw4MFR0u+iUpgU8Pttz5FciBXSK2P6RuS6DDL+0zQ1kc0Iqoisl7JIFNp40y +EnM5wN+/VpTxXAJVT75QVbrMgYflPKDQLYE7f7Tx7SrkgKjVw2T1fxL4NSrc +K7OMen+MnPZmK0lU9y3s2VfHgU0/544GfZbE9vparqhBDoSbp697MiKJXbPm +89e/caDsyvoe4WlJfK/ie6t5mAPi9u76D/mk0M96j8aqMQ6MPHj2m0dVCq/b +GL7wn+FAWmxyaNYRKfQe3u0dx0fCy/dKciMxUqhnubH7CD8J89r1bUZnpHBC +Yjmv/woS9g5OaQ5cksLPGWEpJoIkGFi7jKvWS2Gu9h7/JjES+tcoBD1dKY1X +rrSGblQgQSy4RkZMTBpXd/8t5VlLgvVLp2Y/Qhq1i20Ka5VIuHf0jMoqLWks +W/70rfp6EhI/jH3f6SSNPK9cNb9rkaBZXOXzs0AaS1XL3J4gCTEsOw9JPRl0 +FZ3YvNiJBHPXvF+6JjLoTn9td3QnCQLRwyccrGVQ6E1f5ogzCbn18UXJ7jLo ++W7J+2e7SXhgWTm89LQMfmgsRytPEsacZMMmumXwm7wLvSCQhPtH9/OuHpDB +vgu3lXqDSDieW52pOiqDkeZR4UL7SVjxcUeVHzcNbf3WjYQcJEHR5yzXx3U0 +DM1U1OA/TILroanEpggaKo/v7IqLIkH+oon093ga3ihhJJ2IJqn5P3+LN5mG +5580pR+PIeHovNIbk0Ia0kreXvQ7QcKFE65rHjbRkFvj92nhUyTsulZS1NlJ +Q90Qzd5JyswXM7qTH2nYt+pIfGsCCRX8ac5qUzR87mH1MTaRhKaUF5evydBR +OX5/8/1zJKTdFtGoV6SjU4v9aEQSCc4dHnUfNegYe5kMYJ0nYUh8fkDKlI7p +qYrxZDIJPPnq61KD6Ni734YVkkbCqyeRVeVH6Jg5bO0umU5C8udX1s2xdFQb +jhiqpkxT9A7mu0jHPLWutXMXqHooy7pzvIaOA/rtMWaZJGx617Iw+pKOglIT +D19StuVabObWSsfjP160mWaR4LktqBu+0HF/XHi5fjYJQRFXmRWjdGzd2Xiw +jPKRwq59xAwdFYyrJYkcEkwjGFHRSwgk1UOl5ig3rnp0VY+fwCUldw7tySVh +a6HjyzEBAiMkz95/Qdml+cxqD3ECG4L/TSZcImE/ffqqsTKB1wQZAV/zSJi6 +nfxyVo3A0OcscZ3L1HqYK//gaBNY9IebpOYI4g+46zCNCGwJvs4RyieBf+kf +5x4TAgs+CUs4Uk7OvhCVakbgSV2zAxmUs+tfveS2I3Crp+LvlVdIoDt5/6h0 +IHAi0VdhM+XCkX+rQ5wJXKmfZRFOeV1Mto6yG4GDEfEeNymXr9ng8tmTwMWy +c0FdlLVvvo7K8SUw+/HTgzwFJFQa+RduDySQ6/LtQGXK0La4YflBAnXaL7hv +pfzU5/KP+jACrdYbWh+kbDGvL3QsgsB+3VCNFMotye062tEEXgWh1bco28sH +u4zEEXjPZnD4GeXuh8uiC08TqLb2ed17yq62hYW7kghMtYvNGKU80G/UIJJG +oDHfmM9fyn6Hu380XSRwZvOA7vKrJIwuDxWKzyWQVaPNu4ZySL6ALvsKgW39 +9zulKM9oF7tMXaOe7950nU75eMPG6Fs3CVSPux1OUOZx7Sv0LidwNLLXlkY5 +4deRBpk7BA6IZylKUBY4JTza8YAav1v94tWU06TKhJKqCdRbrTO4hLJ4hbmu +aR2BY0VNr39T33dp02eXv88JDLPxrPlKmdkdGX2vkaqPwc57rZRvBIpfC3pD +3V+x5H4V5fXctxsUOghU5WuqvUKZzLAZ7esmUKyHvyOOsp7ykNDFPgI7tK9M +elGuronV3fKZwJuRwYQJZRN7mV28QwR+a3TcKU35xdD96JoRAvcO6eVPUOtp +Hbnt2uFxAkesZ6ZeUN5RdGp0cI7AOtPctz6Uew2Ywvn/CDwGFju1KO95/UjX +aTGDml+viT9UfQXMjEe/XMnAP3XH9sRRNjiwV/SrEANFVDXuGFHm+95TwiPO +wESjqKwpqn6vva/vNGIysLkoUXYn5VB7vYBdigy8fiTn1RLKJs2li46qMNC0 +f2RZObUf+h5fULmrw8D0OG7H39R+KdXlr2s1ZKDSKYZ3BuWjFcd3jCEDc27r +rNakLFrgE6tsxcDzK3g2u1H7bUu8ftcVNwZV/6msFGr/0v7eCqzxYqD1kkb7 +NZRHwpg8//kx8ML8eeEMav8n+C5XFQ9loHNt9ulzVD7UWv13IimBgT/5BsPt +M0hIemonUXqOgbdzy4eqqXzZxX5e1pDKwMVFrbxylGdVy7sXX2Kgmw9911cq +rzSFYtQiOAz8r+9Z1MYUErjOTD3NvMfAQU/b9FQq31p4/J3vVTFwtHqDZx+V +f/umtsWPP2Pg0l7NDQFUPhZ2yb336WFgcF1Ks/sZanyXX56052Hiv8Hen2Vx +VP2LsaUP8jGxx1Zs0ysqr8lkDuf8SiY2Eg4+/bHU+GOze1+JMTEthU4so/I9 +wTtA01iFiUNcc1HqkdT3Kgv2rXdgYsGDs7JDoSRMX5KM0XJmYukXC6XOEBIm +V8nL6bsxsSjOWP0J1V9GJ/T9N/kxEU/wmSVR/ae/ynPaOZKJ+mIbHi0OoPLZ +6r5AwjUmHr/J/Oa5h6q36iecczeZOOyancf0oPJArck+rZyJgZV6/n1uJDwW +/pSd95CJJ5wNLGyofki+51e828xE45piKz6qn2bvc4X+KSbelR5LmrQm4eJ/ +vv2Dc0yMmk40i7ciIX1LSPyPf0w8PNmuLGxJrY9WQuPMMlk8dGnkmIIZCbF/ +ODtW0WRRZG+8j7IxNb9nluxnmcriGts/qeXaJLBKSvMzMmSxNdGfp0SChPdE +yeXNObJYHVFWwC1O1VdGcd7kZVn0annya4co1Y9jinK3FctinO5s8R8han2d +8jMFHsmia676BUXqPKK0JD355CdZDA/g9RL6S52f3CKiw1TkcIWZJ431kQPj +QpbujnVyqGvD6GDmcaArgPnG/4UcCgh+3Fibw4Ha53MQ1SSHvw5sdnChzmvJ +R0voNzrl8PMLs72J6RxQ71/xYfa7HIK+SGBTIgeCOK93XxKWx+KDM4Gfwjjw +fYuDy4CXPL5aMLNytuHAwFl3x4O8CriQ3p/+caICLH4etviio4jrHpw97aJX +ASOefCF3otZiz31+cd8bZdT/BzHuU3VKqP63bNK4rhSEmhWSKn6uw9Y+9xH4 +chOkE8q36uioYLeb+CrztzcgU1lfUNhnPa7jqdLrfF8ErySNN0ykqKKS/ehj +/4lCMJCuS1brVENdYaWexJECEOApCPWIVUfjrb4HEsWvAC2GztqpoIEea1QX +P/fNg2Xyu+5te6GBd2dSE0y/ZYMqW6L88G5N7K1/EFHVexEO9gnVW3JpoWPK +j4jXzenwc+Ksg0WmFp4u9k6LUE8FM7Xn2RbrtdFsyI7r4Z3z8HjC8M/vFm18 +cvoPVyvzDASpaPa89d6AO+V3lLZtPwXsUa/2nct0cBfkbJgsOQGb5cRtVhbo +YJFYUOhsaTSsjU48Uqeri4THDuZ67WOwzlu/Rr5HF+9eS/o7t/sweD/2jbtz +QA9N4sli+8gQqMlv9xpfo485HYpf/N8Gw+SNf7/V7uvjF4dQy0WDfvDV0TT/ +9EN91LtdatTV6gddi8+Zf67SR+XrO/MfPfaDKnfJrIxafTwyeyr5VoYfxIpv +MFho0MfXAp2eamZ+IJjgf+xVrz5Gm0x1ld70BRWfDi5vbgOsacrY7xbhA57y +JcuybQxw/JnzhIqJNxx95uqvsNUAP23qya1S84Zkb6FGcpsBeu7+KuEk4w2P +roWfbdxhgNHtw4GVM14gomC+asHDAH0G9bNkK7zgucIXEfcwA3T+5t4fzfCC +dWvphMJlAwx+unJBVcATxtel6ZBjBmhVmpOSv9IDuppws/CEAb5I+LvI9587 +1AaNbg+dMkDRe82v9MfdIYm0OKAzZ4CW8Z428+3usM6Aq7SSxxCDdzQFzOe6 +wx6LQEa9qCGWbRpv+azqDu0+ZivaWYYotsi63fKOKzwo/PNpKsEQj+sXR7lk +u4DOxtDflmcMUS/1erT6CRe4+2lkRf45Q5TUUM0RDXABktana5lqiPV+9hNr +jFygNLP2XF6OIfLIhAp87HeG/LPx+mZlhkgfOTCeqeYMp0NXpWS2GVL9KtjB +scMJnDfJoiGNhZK2RwbatzjCQjufQD3BwoU0CxcuQ0fI9x59bynLwt7licvZ +Co7w9eTDw85rWeil0DD0bd4BDjZsKQ/XZOGfuzmWgiUOkGh7jPbAlIUhorke +8fwOUOnUMa8dzMKHK5xqajq2g1TgqYeqtSycYylv+ZdtB0n/9m44U8fCL8U2 +WXDGDrhTTTmDT1l496BN6NkIO/h+b0lxfgMLNT+MVFrtsoNKrrhMoTYWsmlv +L7nR7MA5Pfrw9BcWsqrcPDoKt0JmVfiGx8vZWK2mORZ5aAus4Q/g2Oxg48QK ++Jay2hoKN0YeHdvJxsdmJlp9k1agGZm0MW0XG++41bdt6rIC27GKji4PNnqc +8njmftkKTnZOzXoGsHF/ZrXSW1UrmCmIMjkaw8bW5zFrYrdZQo9hWltRCRvV +bO/PXiw1B99DhbkWZWyMXZf8njfNHKbL7nqPVLCx/cCN9PPh5iDE7PqtcY+N +gvxf4KupOVjxyUhX17LxEe92r7J+M3jUXuTV1kG9XzPHOYtmBpYCD9aHdbEx +Wz6kKXKpGXSZNUyLv2fjMk2toSOjpjBZOZzg+pGN0zr328jHprD+ivqtb9/Z +OM4XFq7lbgqPeozDzv5gY2FLv16juSlYimwHtTE2HrixSDBcwxT2njr0NnSK +jb/7JapFeajfqz2ZLTbDxm+FQsFLRzZD7NxFz8o5Ng5oPxpb3rEZBLWLVXYv +sHF9gJa64uPNkBdYOfXvHxvXPs+Xcrq+Gf4HfOwz9g== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "PlotRange" -> {{0, 30}, {0., 0.07280161830159737}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +10952,19 @@ L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "PlotRange" -> {{0, 30}, {0., 0.07280161830159737}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +10978,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:eJwV13k8VN8bB3BRkUpCdjN3xpbInnXG81DZKYVEWUKWLBUpSZYoqWRLtiRJ +iTC3nUS0yVLZQr4qKYpElhD1u7+/7uv9uq87955znvN5zjD2BG/z5ubi4iIW +cXH9/zrd1/BU7kyh0YEBs3jdcROj9jzxcOOuWAj+Vmmr784AXPN6j3hXKnwW +/O242l0DwrbefMfTVQC7/0YLTrsZw+pRsdTZdyTMbtfd2OhmBx8e2QZPvquD +yo+zOsZuHmAq9/2/8XetcLMr64nS7gMw+073wti7fjh1IuJup30M1G+8Xvi2 +YAL6oE96figFpD88/LpHZQG2OdHQZmM2iAS43eTdyIMNc+Pv7vNdgVQN0ypb +Bz6UP2WveHChELoz1WvHBVfihsf+XpmuN+BMYdRrbonV+MZ1PsussATE0j+f +TrskjEkN1nF++8pAXPlu3EyRMEqde1k7HFoGknUno3ZXCGN21ZcUn+NlQBtT +OqRYL4zPzhr/sEopA3nr/e5VQ8Jo1nvD58W9MtBavKDzWUsEZTo+7EvgKoct +oaIDmq9EUGVmXkX5fDmcsrcwap1eg3miWZ5u1hUgeadFknuRKOr7yk1f3VoB +ZcL2vzWWi2L4oUX5A/YV0NnqWpFCF0XGblE9590VIGcXyrQzF8WIsZdBokEV +UGdzeembLFG852pV2JpUAQumUy3NLDE8zWU8tqO5ApKLjpYsmIqhxTfzetpb +6vmlXAnr7cRQlai++qm9Aqyf8Ruf8xbDWyyRsy69FZC9kbhtnSSGLQXTk/Th +CtBDq4uNH8TQ+4Ad1zAvB0L0r7g1xIpjjV2r0GkjDljmC0xanRVHaXZWWpYx +B5i8xxJaLojjY5ct+UWbOPCm3ZHTdkMctf6E7b5nyQHV/St4+lrE8adHyN5S +Rw4MFR0u+iUpgU8Pttz5FciBXSK2P6RuS6DDL+0zQ1kc0Iqoisl7JIFNp40y +EnM5wN+/VpTxXAJVT75QVbrMgYflPKDQLYE7f7Tx7SrkgKjVw2T1fxL4NSrc +K7OMen+MnPZmK0lU9y3s2VfHgU0/544GfZbE9vparqhBDoSbp697MiKJXbPm +89e/caDsyvoe4WlJfK/ie6t5mAPi9u76D/mk0M96j8aqMQ6MPHj2m0dVCq/b +GL7wn+FAWmxyaNYRKfQe3u0dx0fCy/dKciMxUqhnubH7CD8J89r1bUZnpHBC +Yjmv/woS9g5OaQ5cksLPGWEpJoIkGFi7jKvWS2Gu9h7/JjES+tcoBD1dKY1X +rrSGblQgQSy4RkZMTBpXd/8t5VlLgvVLp2Y/Qhq1i20Ka5VIuHf0jMoqLWks +W/70rfp6EhI/jH3f6SSNPK9cNb9rkaBZXOXzs0AaS1XL3J4gCTEsOw9JPRl0 +FZ3YvNiJBHPXvF+6JjLoTn9td3QnCQLRwyccrGVQ6E1f5ogzCbn18UXJ7jLo ++W7J+2e7SXhgWTm89LQMfmgsRytPEsacZMMmumXwm7wLvSCQhPtH9/OuHpDB +vgu3lXqDSDieW52pOiqDkeZR4UL7SVjxcUeVHzcNbf3WjYQcJEHR5yzXx3U0 +DM1U1OA/TILroanEpggaKo/v7IqLIkH+oon093ga3ihhJJ2IJqn5P3+LN5mG +5580pR+PIeHovNIbk0Ia0kreXvQ7QcKFE65rHjbRkFvj92nhUyTsulZS1NlJ +Q90Qzd5JyswXM7qTH2nYt+pIfGsCCRX8ac5qUzR87mH1MTaRhKaUF5evydBR +OX5/8/1zJKTdFtGoV6SjU4v9aEQSCc4dHnUfNegYe5kMYJ0nYUh8fkDKlI7p +qYrxZDIJPPnq61KD6Ni734YVkkbCqyeRVeVH6Jg5bO0umU5C8udX1s2xdFQb +jhiqpkxT9A7mu0jHPLWutXMXqHooy7pzvIaOA/rtMWaZJGx617Iw+pKOglIT +D19StuVabObWSsfjP160mWaR4LktqBu+0HF/XHi5fjYJQRFXmRWjdGzd2Xiw +jPKRwq59xAwdFYyrJYkcEkwjGFHRSwgk1UOl5ig3rnp0VY+fwCUldw7tySVh +a6HjyzEBAiMkz95/Qdml+cxqD3ECG4L/TSZcImE/ffqqsTKB1wQZAV/zSJi6 +nfxyVo3A0OcscZ3L1HqYK//gaBNY9IebpOYI4g+46zCNCGwJvs4RyieBf+kf +5x4TAgs+CUs4Uk7OvhCVakbgSV2zAxmUs+tfveS2I3Crp+LvlVdIoDt5/6h0 +IHAi0VdhM+XCkX+rQ5wJXKmfZRFOeV1Mto6yG4GDEfEeNymXr9ng8tmTwMWy +c0FdlLVvvo7K8SUw+/HTgzwFJFQa+RduDySQ6/LtQGXK0La4YflBAnXaL7hv +pfzU5/KP+jACrdYbWh+kbDGvL3QsgsB+3VCNFMotye062tEEXgWh1bco28sH +u4zEEXjPZnD4GeXuh8uiC08TqLb2ed17yq62hYW7kghMtYvNGKU80G/UIJJG +oDHfmM9fyn6Hu380XSRwZvOA7vKrJIwuDxWKzyWQVaPNu4ZySL6ALvsKgW39 +9zulKM9oF7tMXaOe7950nU75eMPG6Fs3CVSPux1OUOZx7Sv0LidwNLLXlkY5 +4deRBpk7BA6IZylKUBY4JTza8YAav1v94tWU06TKhJKqCdRbrTO4hLJ4hbmu +aR2BY0VNr39T33dp02eXv88JDLPxrPlKmdkdGX2vkaqPwc57rZRvBIpfC3pD +3V+x5H4V5fXctxsUOghU5WuqvUKZzLAZ7esmUKyHvyOOsp7ykNDFPgI7tK9M +elGuronV3fKZwJuRwYQJZRN7mV28QwR+a3TcKU35xdD96JoRAvcO6eVPUOtp +Hbnt2uFxAkesZ6ZeUN5RdGp0cI7AOtPctz6Uew2Ywvn/CDwGFju1KO95/UjX +aTGDml+viT9UfQXMjEe/XMnAP3XH9sRRNjiwV/SrEANFVDXuGFHm+95TwiPO +wESjqKwpqn6vva/vNGIysLkoUXYn5VB7vYBdigy8fiTn1RLKJs2li46qMNC0 +f2RZObUf+h5fULmrw8D0OG7H39R+KdXlr2s1ZKDSKYZ3BuWjFcd3jCEDc27r +rNakLFrgE6tsxcDzK3g2u1H7bUu8ftcVNwZV/6msFGr/0v7eCqzxYqD1kkb7 +NZRHwpg8//kx8ML8eeEMav8n+C5XFQ9loHNt9ulzVD7UWv13IimBgT/5BsPt +M0hIemonUXqOgbdzy4eqqXzZxX5e1pDKwMVFrbxylGdVy7sXX2Kgmw9911cq +rzSFYtQiOAz8r+9Z1MYUErjOTD3NvMfAQU/b9FQq31p4/J3vVTFwtHqDZx+V +f/umtsWPP2Pg0l7NDQFUPhZ2yb336WFgcF1Ks/sZanyXX56052Hiv8Hen2Vx +VP2LsaUP8jGxx1Zs0ysqr8lkDuf8SiY2Eg4+/bHU+GOze1+JMTEthU4so/I9 +wTtA01iFiUNcc1HqkdT3Kgv2rXdgYsGDs7JDoSRMX5KM0XJmYukXC6XOEBIm +V8nL6bsxsSjOWP0J1V9GJ/T9N/kxEU/wmSVR/ae/ynPaOZKJ+mIbHi0OoPLZ +6r5AwjUmHr/J/Oa5h6q36iecczeZOOyancf0oPJArck+rZyJgZV6/n1uJDwW +/pSd95CJJ5wNLGyofki+51e828xE45piKz6qn2bvc4X+KSbelR5LmrQm4eJ/ +vv2Dc0yMmk40i7ciIX1LSPyPf0w8PNmuLGxJrY9WQuPMMlk8dGnkmIIZCbF/ +ODtW0WRRZG+8j7IxNb9nluxnmcriGts/qeXaJLBKSvMzMmSxNdGfp0SChPdE +yeXNObJYHVFWwC1O1VdGcd7kZVn0annya4co1Y9jinK3FctinO5s8R8han2d +8jMFHsmia676BUXqPKK0JD355CdZDA/g9RL6S52f3CKiw1TkcIWZJ431kQPj +QpbujnVyqGvD6GDmcaArgPnG/4UcCgh+3Fibw4Ha53MQ1SSHvw5sdnChzmvJ +R0voNzrl8PMLs72J6RxQ71/xYfa7HIK+SGBTIgeCOK93XxKWx+KDM4Gfwjjw +fYuDy4CXPL5aMLNytuHAwFl3x4O8CriQ3p/+caICLH4etviio4jrHpw97aJX +ASOefCF3otZiz31+cd8bZdT/BzHuU3VKqP63bNK4rhSEmhWSKn6uw9Y+9xH4 +chOkE8q36uioYLeb+CrztzcgU1lfUNhnPa7jqdLrfF8ErySNN0ykqKKS/ehj +/4lCMJCuS1brVENdYaWexJECEOApCPWIVUfjrb4HEsWvAC2GztqpoIEea1QX +P/fNg2Xyu+5te6GBd2dSE0y/ZYMqW6L88G5N7K1/EFHVexEO9gnVW3JpoWPK +j4jXzenwc+Ksg0WmFp4u9k6LUE8FM7Xn2RbrtdFsyI7r4Z3z8HjC8M/vFm18 +cvoPVyvzDASpaPa89d6AO+V3lLZtPwXsUa/2nct0cBfkbJgsOQGb5cRtVhbo +YJFYUOhsaTSsjU48Uqeri4THDuZ67WOwzlu/Rr5HF+9eS/o7t/sweD/2jbtz +QA9N4sli+8gQqMlv9xpfo485HYpf/N8Gw+SNf7/V7uvjF4dQy0WDfvDV0TT/ +9EN91LtdatTV6gddi8+Zf67SR+XrO/MfPfaDKnfJrIxafTwyeyr5VoYfxIpv +MFho0MfXAp2eamZ+IJjgf+xVrz5Gm0x1ld70BRWfDi5vbgOsacrY7xbhA57y +JcuybQxw/JnzhIqJNxx95uqvsNUAP23qya1S84Zkb6FGcpsBeu7+KuEk4w2P +roWfbdxhgNHtw4GVM14gomC+asHDAH0G9bNkK7zgucIXEfcwA3T+5t4fzfCC +dWvphMJlAwx+unJBVcATxtel6ZBjBmhVmpOSv9IDuppws/CEAb5I+LvI9587 +1AaNbg+dMkDRe82v9MfdIYm0OKAzZ4CW8Z428+3usM6Aq7SSxxCDdzQFzOe6 +wx6LQEa9qCGWbRpv+azqDu0+ZivaWYYotsi63fKOKzwo/PNpKsEQj+sXR7lk +u4DOxtDflmcMUS/1erT6CRe4+2lkRf45Q5TUUM0RDXABktana5lqiPV+9hNr +jFygNLP2XF6OIfLIhAp87HeG/LPx+mZlhkgfOTCeqeYMp0NXpWS2GVL9KtjB +scMJnDfJoiGNhZK2RwbatzjCQjufQD3BwoU0CxcuQ0fI9x59bynLwt7licvZ +Co7w9eTDw85rWeil0DD0bd4BDjZsKQ/XZOGfuzmWgiUOkGh7jPbAlIUhorke +8fwOUOnUMa8dzMKHK5xqajq2g1TgqYeqtSycYylv+ZdtB0n/9m44U8fCL8U2 +WXDGDrhTTTmDT1l496BN6NkIO/h+b0lxfgMLNT+MVFrtsoNKrrhMoTYWsmlv +L7nR7MA5Pfrw9BcWsqrcPDoKt0JmVfiGx8vZWK2mORZ5aAus4Q/g2Oxg48QK ++Jay2hoKN0YeHdvJxsdmJlp9k1agGZm0MW0XG++41bdt6rIC27GKji4PNnqc +8njmftkKTnZOzXoGsHF/ZrXSW1UrmCmIMjkaw8bW5zFrYrdZQo9hWltRCRvV +bO/PXiw1B99DhbkWZWyMXZf8njfNHKbL7nqPVLCx/cCN9PPh5iDE7PqtcY+N +gvxf4KupOVjxyUhX17LxEe92r7J+M3jUXuTV1kG9XzPHOYtmBpYCD9aHdbEx +Wz6kKXKpGXSZNUyLv2fjMk2toSOjpjBZOZzg+pGN0zr328jHprD+ivqtb9/Z +OM4XFq7lbgqPeozDzv5gY2FLv16juSlYimwHtTE2HrixSDBcwxT2njr0NnSK +jb/7JapFeajfqz2ZLTbDxm+FQsFLRzZD7NxFz8o5Ng5oPxpb3rEZBLWLVXYv +sHF9gJa64uPNkBdYOfXvHxvXPs+Xcrq+Gf4HfOwz9g== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "PlotRange" -> {{0, 30}, {0., 0.07280161830159737}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +11106,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 +11134,8 @@ L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.1813924222088017}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07280161830159737}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -6164,17 +11143,595 @@ L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913306567510605`*^9}, + CellChangeTimes->{3.9913306567510605`*^9, 3.9940151775276747`*^9}, CellLabel-> - "Out[195]=",ExpressionUUID->"4ab96fbd-92e0-8a42-8552-436bb2f629b6"] + "Out[119]=",ExpressionUUID->"2b844a97-306f-4c00-99bb-f00d78ab23cf"] }, 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:eJwV13k8VN8bB3BRkUpCdjN3xpbInnXG81DZKYVEWUKWLBUpSZYoqWRLtiRJ +iTC3nUS0yVLZQr4qKYpElhD1u7+/7uv9uq87955znvN5zjD2BG/z5ubi4iIW +cXH9/zrd1/BU7kyh0YEBs3jdcROj9jzxcOOuWAj+Vmmr784AXPN6j3hXKnwW +/O242l0DwrbefMfTVQC7/0YLTrsZw+pRsdTZdyTMbtfd2OhmBx8e2QZPvquD +yo+zOsZuHmAq9/2/8XetcLMr64nS7gMw+073wti7fjh1IuJup30M1G+8Xvi2 +YAL6oE96figFpD88/LpHZQG2OdHQZmM2iAS43eTdyIMNc+Pv7vNdgVQN0ypb +Bz6UP2WveHChELoz1WvHBVfihsf+XpmuN+BMYdRrbonV+MZ1PsussATE0j+f +TrskjEkN1nF++8pAXPlu3EyRMEqde1k7HFoGknUno3ZXCGN21ZcUn+NlQBtT +OqRYL4zPzhr/sEopA3nr/e5VQ8Jo1nvD58W9MtBavKDzWUsEZTo+7EvgKoct +oaIDmq9EUGVmXkX5fDmcsrcwap1eg3miWZ5u1hUgeadFknuRKOr7yk1f3VoB +ZcL2vzWWi2L4oUX5A/YV0NnqWpFCF0XGblE9590VIGcXyrQzF8WIsZdBokEV +UGdzeembLFG852pV2JpUAQumUy3NLDE8zWU8tqO5ApKLjpYsmIqhxTfzetpb +6vmlXAnr7cRQlai++qm9Aqyf8Ruf8xbDWyyRsy69FZC9kbhtnSSGLQXTk/Th +CtBDq4uNH8TQ+4Ad1zAvB0L0r7g1xIpjjV2r0GkjDljmC0xanRVHaXZWWpYx +B5i8xxJaLojjY5ct+UWbOPCm3ZHTdkMctf6E7b5nyQHV/St4+lrE8adHyN5S +Rw4MFR0u+iUpgU8Pttz5FciBXSK2P6RuS6DDL+0zQ1kc0Iqoisl7JIFNp40y +EnM5wN+/VpTxXAJVT75QVbrMgYflPKDQLYE7f7Tx7SrkgKjVw2T1fxL4NSrc +K7OMen+MnPZmK0lU9y3s2VfHgU0/544GfZbE9vparqhBDoSbp697MiKJXbPm +89e/caDsyvoe4WlJfK/ie6t5mAPi9u76D/mk0M96j8aqMQ6MPHj2m0dVCq/b +GL7wn+FAWmxyaNYRKfQe3u0dx0fCy/dKciMxUqhnubH7CD8J89r1bUZnpHBC +Yjmv/woS9g5OaQ5cksLPGWEpJoIkGFi7jKvWS2Gu9h7/JjES+tcoBD1dKY1X +rrSGblQgQSy4RkZMTBpXd/8t5VlLgvVLp2Y/Qhq1i20Ka5VIuHf0jMoqLWks +W/70rfp6EhI/jH3f6SSNPK9cNb9rkaBZXOXzs0AaS1XL3J4gCTEsOw9JPRl0 +FZ3YvNiJBHPXvF+6JjLoTn9td3QnCQLRwyccrGVQ6E1f5ogzCbn18UXJ7jLo ++W7J+2e7SXhgWTm89LQMfmgsRytPEsacZMMmumXwm7wLvSCQhPtH9/OuHpDB +vgu3lXqDSDieW52pOiqDkeZR4UL7SVjxcUeVHzcNbf3WjYQcJEHR5yzXx3U0 +DM1U1OA/TILroanEpggaKo/v7IqLIkH+oon093ga3ihhJJ2IJqn5P3+LN5mG +5580pR+PIeHovNIbk0Ia0kreXvQ7QcKFE65rHjbRkFvj92nhUyTsulZS1NlJ +Q90Qzd5JyswXM7qTH2nYt+pIfGsCCRX8ac5qUzR87mH1MTaRhKaUF5evydBR +OX5/8/1zJKTdFtGoV6SjU4v9aEQSCc4dHnUfNegYe5kMYJ0nYUh8fkDKlI7p +qYrxZDIJPPnq61KD6Ni734YVkkbCqyeRVeVH6Jg5bO0umU5C8udX1s2xdFQb +jhiqpkxT9A7mu0jHPLWutXMXqHooy7pzvIaOA/rtMWaZJGx617Iw+pKOglIT +D19StuVabObWSsfjP160mWaR4LktqBu+0HF/XHi5fjYJQRFXmRWjdGzd2Xiw +jPKRwq59xAwdFYyrJYkcEkwjGFHRSwgk1UOl5ig3rnp0VY+fwCUldw7tySVh +a6HjyzEBAiMkz95/Qdml+cxqD3ECG4L/TSZcImE/ffqqsTKB1wQZAV/zSJi6 +nfxyVo3A0OcscZ3L1HqYK//gaBNY9IebpOYI4g+46zCNCGwJvs4RyieBf+kf +5x4TAgs+CUs4Uk7OvhCVakbgSV2zAxmUs+tfveS2I3Crp+LvlVdIoDt5/6h0 +IHAi0VdhM+XCkX+rQ5wJXKmfZRFOeV1Mto6yG4GDEfEeNymXr9ng8tmTwMWy +c0FdlLVvvo7K8SUw+/HTgzwFJFQa+RduDySQ6/LtQGXK0La4YflBAnXaL7hv +pfzU5/KP+jACrdYbWh+kbDGvL3QsgsB+3VCNFMotye062tEEXgWh1bco28sH +u4zEEXjPZnD4GeXuh8uiC08TqLb2ed17yq62hYW7kghMtYvNGKU80G/UIJJG +oDHfmM9fyn6Hu380XSRwZvOA7vKrJIwuDxWKzyWQVaPNu4ZySL6ALvsKgW39 +9zulKM9oF7tMXaOe7950nU75eMPG6Fs3CVSPux1OUOZx7Sv0LidwNLLXlkY5 +4deRBpk7BA6IZylKUBY4JTza8YAav1v94tWU06TKhJKqCdRbrTO4hLJ4hbmu +aR2BY0VNr39T33dp02eXv88JDLPxrPlKmdkdGX2vkaqPwc57rZRvBIpfC3pD +3V+x5H4V5fXctxsUOghU5WuqvUKZzLAZ7esmUKyHvyOOsp7ykNDFPgI7tK9M +elGuronV3fKZwJuRwYQJZRN7mV28QwR+a3TcKU35xdD96JoRAvcO6eVPUOtp +Hbnt2uFxAkesZ6ZeUN5RdGp0cI7AOtPctz6Uew2Ywvn/CDwGFju1KO95/UjX +aTGDml+viT9UfQXMjEe/XMnAP3XH9sRRNjiwV/SrEANFVDXuGFHm+95TwiPO +wESjqKwpqn6vva/vNGIysLkoUXYn5VB7vYBdigy8fiTn1RLKJs2li46qMNC0 +f2RZObUf+h5fULmrw8D0OG7H39R+KdXlr2s1ZKDSKYZ3BuWjFcd3jCEDc27r +rNakLFrgE6tsxcDzK3g2u1H7bUu8ftcVNwZV/6msFGr/0v7eCqzxYqD1kkb7 +NZRHwpg8//kx8ML8eeEMav8n+C5XFQ9loHNt9ulzVD7UWv13IimBgT/5BsPt +M0hIemonUXqOgbdzy4eqqXzZxX5e1pDKwMVFrbxylGdVy7sXX2Kgmw9911cq +rzSFYtQiOAz8r+9Z1MYUErjOTD3NvMfAQU/b9FQq31p4/J3vVTFwtHqDZx+V +f/umtsWPP2Pg0l7NDQFUPhZ2yb336WFgcF1Ks/sZanyXX56052Hiv8Hen2Vx +VP2LsaUP8jGxx1Zs0ysqr8lkDuf8SiY2Eg4+/bHU+GOze1+JMTEthU4so/I9 +wTtA01iFiUNcc1HqkdT3Kgv2rXdgYsGDs7JDoSRMX5KM0XJmYukXC6XOEBIm +V8nL6bsxsSjOWP0J1V9GJ/T9N/kxEU/wmSVR/ae/ynPaOZKJ+mIbHi0OoPLZ +6r5AwjUmHr/J/Oa5h6q36iecczeZOOyancf0oPJArck+rZyJgZV6/n1uJDwW +/pSd95CJJ5wNLGyofki+51e828xE45piKz6qn2bvc4X+KSbelR5LmrQm4eJ/ +vv2Dc0yMmk40i7ciIX1LSPyPf0w8PNmuLGxJrY9WQuPMMlk8dGnkmIIZCbF/ +ODtW0WRRZG+8j7IxNb9nluxnmcriGts/qeXaJLBKSvMzMmSxNdGfp0SChPdE +yeXNObJYHVFWwC1O1VdGcd7kZVn0annya4co1Y9jinK3FctinO5s8R8han2d +8jMFHsmia676BUXqPKK0JD355CdZDA/g9RL6S52f3CKiw1TkcIWZJ431kQPj +QpbujnVyqGvD6GDmcaArgPnG/4UcCgh+3Fibw4Ha53MQ1SSHvw5sdnChzmvJ +R0voNzrl8PMLs72J6RxQ71/xYfa7HIK+SGBTIgeCOK93XxKWx+KDM4Gfwjjw +fYuDy4CXPL5aMLNytuHAwFl3x4O8CriQ3p/+caICLH4etviio4jrHpw97aJX +ASOefCF3otZiz31+cd8bZdT/BzHuU3VKqP63bNK4rhSEmhWSKn6uw9Y+9xH4 +chOkE8q36uioYLeb+CrztzcgU1lfUNhnPa7jqdLrfF8ErySNN0ykqKKS/ehj +/4lCMJCuS1brVENdYaWexJECEOApCPWIVUfjrb4HEsWvAC2GztqpoIEea1QX +P/fNg2Xyu+5te6GBd2dSE0y/ZYMqW6L88G5N7K1/EFHVexEO9gnVW3JpoWPK +j4jXzenwc+Ksg0WmFp4u9k6LUE8FM7Xn2RbrtdFsyI7r4Z3z8HjC8M/vFm18 +cvoPVyvzDASpaPa89d6AO+V3lLZtPwXsUa/2nct0cBfkbJgsOQGb5cRtVhbo +YJFYUOhsaTSsjU48Uqeri4THDuZ67WOwzlu/Rr5HF+9eS/o7t/sweD/2jbtz +QA9N4sli+8gQqMlv9xpfo485HYpf/N8Gw+SNf7/V7uvjF4dQy0WDfvDV0TT/ +9EN91LtdatTV6gddi8+Zf67SR+XrO/MfPfaDKnfJrIxafTwyeyr5VoYfxIpv +MFho0MfXAp2eamZ+IJjgf+xVrz5Gm0x1ld70BRWfDi5vbgOsacrY7xbhA57y +JcuybQxw/JnzhIqJNxx95uqvsNUAP23qya1S84Zkb6FGcpsBeu7+KuEk4w2P +roWfbdxhgNHtw4GVM14gomC+asHDAH0G9bNkK7zgucIXEfcwA3T+5t4fzfCC +dWvphMJlAwx+unJBVcATxtel6ZBjBmhVmpOSv9IDuppws/CEAb5I+LvI9587 +1AaNbg+dMkDRe82v9MfdIYm0OKAzZ4CW8Z428+3usM6Aq7SSxxCDdzQFzOe6 +wx6LQEa9qCGWbRpv+azqDu0+ZivaWYYotsi63fKOKzwo/PNpKsEQj+sXR7lk +u4DOxtDflmcMUS/1erT6CRe4+2lkRf45Q5TUUM0RDXABktana5lqiPV+9hNr +jFygNLP2XF6OIfLIhAp87HeG/LPx+mZlhkgfOTCeqeYMp0NXpWS2GVL9KtjB +scMJnDfJoiGNhZK2RwbatzjCQjufQD3BwoU0CxcuQ0fI9x59bynLwt7licvZ +Co7w9eTDw85rWeil0DD0bd4BDjZsKQ/XZOGfuzmWgiUOkGh7jPbAlIUhorke +8fwOUOnUMa8dzMKHK5xqajq2g1TgqYeqtSycYylv+ZdtB0n/9m44U8fCL8U2 +WXDGDrhTTTmDT1l496BN6NkIO/h+b0lxfgMLNT+MVFrtsoNKrrhMoTYWsmlv +L7nR7MA5Pfrw9BcWsqrcPDoKt0JmVfiGx8vZWK2mORZ5aAus4Q/g2Oxg48QK ++Jay2hoKN0YeHdvJxsdmJlp9k1agGZm0MW0XG++41bdt6rIC27GKji4PNnqc +8njmftkKTnZOzXoGsHF/ZrXSW1UrmCmIMjkaw8bW5zFrYrdZQo9hWltRCRvV +bO/PXiw1B99DhbkWZWyMXZf8njfNHKbL7nqPVLCx/cCN9PPh5iDE7PqtcY+N +gvxf4KupOVjxyUhX17LxEe92r7J+M3jUXuTV1kG9XzPHOYtmBpYCD9aHdbEx +Wz6kKXKpGXSZNUyLv2fjMk2toSOjpjBZOZzg+pGN0zr328jHprD+ivqtb9/Z +OM4XFq7lbgqPeozDzv5gY2FLv16juSlYimwHtTE2HrixSDBcwxT2njr0NnSK +jb/7JapFeajfqz2ZLTbDxm+FQsFLRzZD7NxFz8o5Ng5oPxpb3rEZBLWLVXYv +sHF9gJa64uPNkBdYOfXvHxvXPs+Xcrq+Gf4HfOwz9g== + "]]}, + 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:eJwV13k8VN8bB3BRkUpCdjN3xpbInnXG81DZKYVEWUKWLBUpSZYoqWRLtiRJ +iTC3nUS0yVLZQr4qKYpElhD1u7+/7uv9uq87955znvN5zjD2BG/z5ubi4iIW +cXH9/zrd1/BU7kyh0YEBs3jdcROj9jzxcOOuWAj+Vmmr784AXPN6j3hXKnwW +/O242l0DwrbefMfTVQC7/0YLTrsZw+pRsdTZdyTMbtfd2OhmBx8e2QZPvquD +yo+zOsZuHmAq9/2/8XetcLMr64nS7gMw+073wti7fjh1IuJup30M1G+8Xvi2 +YAL6oE96figFpD88/LpHZQG2OdHQZmM2iAS43eTdyIMNc+Pv7vNdgVQN0ypb +Bz6UP2WveHChELoz1WvHBVfihsf+XpmuN+BMYdRrbonV+MZ1PsussATE0j+f +TrskjEkN1nF++8pAXPlu3EyRMEqde1k7HFoGknUno3ZXCGN21ZcUn+NlQBtT +OqRYL4zPzhr/sEopA3nr/e5VQ8Jo1nvD58W9MtBavKDzWUsEZTo+7EvgKoct +oaIDmq9EUGVmXkX5fDmcsrcwap1eg3miWZ5u1hUgeadFknuRKOr7yk1f3VoB +ZcL2vzWWi2L4oUX5A/YV0NnqWpFCF0XGblE9590VIGcXyrQzF8WIsZdBokEV +UGdzeembLFG852pV2JpUAQumUy3NLDE8zWU8tqO5ApKLjpYsmIqhxTfzetpb +6vmlXAnr7cRQlai++qm9Aqyf8Ruf8xbDWyyRsy69FZC9kbhtnSSGLQXTk/Th +CtBDq4uNH8TQ+4Ad1zAvB0L0r7g1xIpjjV2r0GkjDljmC0xanRVHaXZWWpYx +B5i8xxJaLojjY5ct+UWbOPCm3ZHTdkMctf6E7b5nyQHV/St4+lrE8adHyN5S +Rw4MFR0u+iUpgU8Pttz5FciBXSK2P6RuS6DDL+0zQ1kc0Iqoisl7JIFNp40y +EnM5wN+/VpTxXAJVT75QVbrMgYflPKDQLYE7f7Tx7SrkgKjVw2T1fxL4NSrc +K7OMen+MnPZmK0lU9y3s2VfHgU0/544GfZbE9vparqhBDoSbp697MiKJXbPm +89e/caDsyvoe4WlJfK/ie6t5mAPi9u76D/mk0M96j8aqMQ6MPHj2m0dVCq/b +GL7wn+FAWmxyaNYRKfQe3u0dx0fCy/dKciMxUqhnubH7CD8J89r1bUZnpHBC +Yjmv/woS9g5OaQ5cksLPGWEpJoIkGFi7jKvWS2Gu9h7/JjES+tcoBD1dKY1X +rrSGblQgQSy4RkZMTBpXd/8t5VlLgvVLp2Y/Qhq1i20Ka5VIuHf0jMoqLWks +W/70rfp6EhI/jH3f6SSNPK9cNb9rkaBZXOXzs0AaS1XL3J4gCTEsOw9JPRl0 +FZ3YvNiJBHPXvF+6JjLoTn9td3QnCQLRwyccrGVQ6E1f5ogzCbn18UXJ7jLo ++W7J+2e7SXhgWTm89LQMfmgsRytPEsacZMMmumXwm7wLvSCQhPtH9/OuHpDB +vgu3lXqDSDieW52pOiqDkeZR4UL7SVjxcUeVHzcNbf3WjYQcJEHR5yzXx3U0 +DM1U1OA/TILroanEpggaKo/v7IqLIkH+oon093ga3ihhJJ2IJqn5P3+LN5mG +5580pR+PIeHovNIbk0Ia0kreXvQ7QcKFE65rHjbRkFvj92nhUyTsulZS1NlJ +Q90Qzd5JyswXM7qTH2nYt+pIfGsCCRX8ac5qUzR87mH1MTaRhKaUF5evydBR +OX5/8/1zJKTdFtGoV6SjU4v9aEQSCc4dHnUfNegYe5kMYJ0nYUh8fkDKlI7p +qYrxZDIJPPnq61KD6Ni734YVkkbCqyeRVeVH6Jg5bO0umU5C8udX1s2xdFQb +jhiqpkxT9A7mu0jHPLWutXMXqHooy7pzvIaOA/rtMWaZJGx617Iw+pKOglIT +D19StuVabObWSsfjP160mWaR4LktqBu+0HF/XHi5fjYJQRFXmRWjdGzd2Xiw +jPKRwq59xAwdFYyrJYkcEkwjGFHRSwgk1UOl5ig3rnp0VY+fwCUldw7tySVh +a6HjyzEBAiMkz95/Qdml+cxqD3ECG4L/TSZcImE/ffqqsTKB1wQZAV/zSJi6 +nfxyVo3A0OcscZ3L1HqYK//gaBNY9IebpOYI4g+46zCNCGwJvs4RyieBf+kf +5x4TAgs+CUs4Uk7OvhCVakbgSV2zAxmUs+tfveS2I3Crp+LvlVdIoDt5/6h0 +IHAi0VdhM+XCkX+rQ5wJXKmfZRFOeV1Mto6yG4GDEfEeNymXr9ng8tmTwMWy +c0FdlLVvvo7K8SUw+/HTgzwFJFQa+RduDySQ6/LtQGXK0La4YflBAnXaL7hv +pfzU5/KP+jACrdYbWh+kbDGvL3QsgsB+3VCNFMotye062tEEXgWh1bco28sH +u4zEEXjPZnD4GeXuh8uiC08TqLb2ed17yq62hYW7kghMtYvNGKU80G/UIJJG +oDHfmM9fyn6Hu380XSRwZvOA7vKrJIwuDxWKzyWQVaPNu4ZySL6ALvsKgW39 +9zulKM9oF7tMXaOe7950nU75eMPG6Fs3CVSPux1OUOZx7Sv0LidwNLLXlkY5 +4deRBpk7BA6IZylKUBY4JTza8YAav1v94tWU06TKhJKqCdRbrTO4hLJ4hbmu +aR2BY0VNr39T33dp02eXv88JDLPxrPlKmdkdGX2vkaqPwc57rZRvBIpfC3pD +3V+x5H4V5fXctxsUOghU5WuqvUKZzLAZ7esmUKyHvyOOsp7ykNDFPgI7tK9M +elGuronV3fKZwJuRwYQJZRN7mV28QwR+a3TcKU35xdD96JoRAvcO6eVPUOtp +Hbnt2uFxAkesZ6ZeUN5RdGp0cI7AOtPctz6Uew2Ywvn/CDwGFju1KO95/UjX +aTGDml+viT9UfQXMjEe/XMnAP3XH9sRRNjiwV/SrEANFVDXuGFHm+95TwiPO +wESjqKwpqn6vva/vNGIysLkoUXYn5VB7vYBdigy8fiTn1RLKJs2li46qMNC0 +f2RZObUf+h5fULmrw8D0OG7H39R+KdXlr2s1ZKDSKYZ3BuWjFcd3jCEDc27r +rNakLFrgE6tsxcDzK3g2u1H7bUu8ftcVNwZV/6msFGr/0v7eCqzxYqD1kkb7 +NZRHwpg8//kx8ML8eeEMav8n+C5XFQ9loHNt9ulzVD7UWv13IimBgT/5BsPt +M0hIemonUXqOgbdzy4eqqXzZxX5e1pDKwMVFrbxylGdVy7sXX2Kgmw9911cq +rzSFYtQiOAz8r+9Z1MYUErjOTD3NvMfAQU/b9FQq31p4/J3vVTFwtHqDZx+V +f/umtsWPP2Pg0l7NDQFUPhZ2yb336WFgcF1Ks/sZanyXX56052Hiv8Hen2Vx +VP2LsaUP8jGxx1Zs0ysqr8lkDuf8SiY2Eg4+/bHU+GOze1+JMTEthU4so/I9 +wTtA01iFiUNcc1HqkdT3Kgv2rXdgYsGDs7JDoSRMX5KM0XJmYukXC6XOEBIm +V8nL6bsxsSjOWP0J1V9GJ/T9N/kxEU/wmSVR/ae/ynPaOZKJ+mIbHi0OoPLZ +6r5AwjUmHr/J/Oa5h6q36iecczeZOOyancf0oPJArck+rZyJgZV6/n1uJDwW +/pSd95CJJ5wNLGyofki+51e828xE45piKz6qn2bvc4X+KSbelR5LmrQm4eJ/ +vv2Dc0yMmk40i7ciIX1LSPyPf0w8PNmuLGxJrY9WQuPMMlk8dGnkmIIZCbF/ +ODtW0WRRZG+8j7IxNb9nluxnmcriGts/qeXaJLBKSvMzMmSxNdGfp0SChPdE +yeXNObJYHVFWwC1O1VdGcd7kZVn0annya4co1Y9jinK3FctinO5s8R8han2d +8jMFHsmia676BUXqPKK0JD355CdZDA/g9RL6S52f3CKiw1TkcIWZJ431kQPj +QpbujnVyqGvD6GDmcaArgPnG/4UcCgh+3Fibw4Ha53MQ1SSHvw5sdnChzmvJ +R0voNzrl8PMLs72J6RxQ71/xYfa7HIK+SGBTIgeCOK93XxKWx+KDM4Gfwjjw +fYuDy4CXPL5aMLNytuHAwFl3x4O8CriQ3p/+caICLH4etviio4jrHpw97aJX +ASOefCF3otZiz31+cd8bZdT/BzHuU3VKqP63bNK4rhSEmhWSKn6uw9Y+9xH4 +chOkE8q36uioYLeb+CrztzcgU1lfUNhnPa7jqdLrfF8ErySNN0ykqKKS/ehj +/4lCMJCuS1brVENdYaWexJECEOApCPWIVUfjrb4HEsWvAC2GztqpoIEea1QX +P/fNg2Xyu+5te6GBd2dSE0y/ZYMqW6L88G5N7K1/EFHVexEO9gnVW3JpoWPK +j4jXzenwc+Ksg0WmFp4u9k6LUE8FM7Xn2RbrtdFsyI7r4Z3z8HjC8M/vFm18 +cvoPVyvzDASpaPa89d6AO+V3lLZtPwXsUa/2nct0cBfkbJgsOQGb5cRtVhbo +YJFYUOhsaTSsjU48Uqeri4THDuZ67WOwzlu/Rr5HF+9eS/o7t/sweD/2jbtz +QA9N4sli+8gQqMlv9xpfo485HYpf/N8Gw+SNf7/V7uvjF4dQy0WDfvDV0TT/ +9EN91LtdatTV6gddi8+Zf67SR+XrO/MfPfaDKnfJrIxafTwyeyr5VoYfxIpv +MFho0MfXAp2eamZ+IJjgf+xVrz5Gm0x1ld70BRWfDi5vbgOsacrY7xbhA57y +JcuybQxw/JnzhIqJNxx95uqvsNUAP23qya1S84Zkb6FGcpsBeu7+KuEk4w2P +roWfbdxhgNHtw4GVM14gomC+asHDAH0G9bNkK7zgucIXEfcwA3T+5t4fzfCC +dWvphMJlAwx+unJBVcATxtel6ZBjBmhVmpOSv9IDuppws/CEAb5I+LvI9587 +1AaNbg+dMkDRe82v9MfdIYm0OKAzZ4CW8Z428+3usM6Aq7SSxxCDdzQFzOe6 +wx6LQEa9qCGWbRpv+azqDu0+ZivaWYYotsi63fKOKzwo/PNpKsEQj+sXR7lk +u4DOxtDflmcMUS/1erT6CRe4+2lkRf45Q5TUUM0RDXABktana5lqiPV+9hNr +jFygNLP2XF6OIfLIhAp87HeG/LPx+mZlhkgfOTCeqeYMp0NXpWS2GVL9KtjB +scMJnDfJoiGNhZK2RwbatzjCQjufQD3BwoU0CxcuQ0fI9x59bynLwt7licvZ +Co7w9eTDw85rWeil0DD0bd4BDjZsKQ/XZOGfuzmWgiUOkGh7jPbAlIUhorke +8fwOUOnUMa8dzMKHK5xqajq2g1TgqYeqtSycYylv+ZdtB0n/9m44U8fCL8U2 +WXDGDrhTTTmDT1l496BN6NkIO/h+b0lxfgMLNT+MVFrtsoNKrrhMoTYWsmlv +L7nR7MA5Pfrw9BcWsqrcPDoKt0JmVfiGx8vZWK2mORZ5aAus4Q/g2Oxg48QK ++Jay2hoKN0YeHdvJxsdmJlp9k1agGZm0MW0XG++41bdt6rIC27GKji4PNnqc +8njmftkKTnZOzXoGsHF/ZrXSW1UrmCmIMjkaw8bW5zFrYrdZQo9hWltRCRvV +bO/PXiw1B99DhbkWZWyMXZf8njfNHKbL7nqPVLCx/cCN9PPh5iDE7PqtcY+N +gvxf4KupOVjxyUhX17LxEe92r7J+M3jUXuTV1kG9XzPHOYtmBpYCD9aHdbEx +Wz6kKXKpGXSZNUyLv2fjMk2toSOjpjBZOZzg+pGN0zr328jHprD+ivqtb9/Z +OM4XFq7lbgqPeozDzv5gY2FLv16juSlYimwHtTE2HrixSDBcwxT2njr0NnSK +jb/7JapFeajfqz2ZLTbDxm+FQsFLRzZD7NxFz8o5Ng5oPxpb3rEZBLWLVXYv +sHF9gJa64uPNkBdYOfXvHxvXPs+Xcrq+Gf4HfOwz9g== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07280161830159737}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.07280161830159737}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJwV13k8VN8bB3BRkUpCdjN3xpbInnXG81DZKYVEWUKWLBUpSZYoqWRLtiRJ +iTC3nUS0yVLZQr4qKYpElhD1u7+/7uv9uq87955znvN5zjD2BG/z5ubi4iIW +cXH9/zrd1/BU7kyh0YEBs3jdcROj9jzxcOOuWAj+Vmmr784AXPN6j3hXKnwW +/O242l0DwrbefMfTVQC7/0YLTrsZw+pRsdTZdyTMbtfd2OhmBx8e2QZPvquD +yo+zOsZuHmAq9/2/8XetcLMr64nS7gMw+073wti7fjh1IuJup30M1G+8Xvi2 +YAL6oE96figFpD88/LpHZQG2OdHQZmM2iAS43eTdyIMNc+Pv7vNdgVQN0ypb +Bz6UP2WveHChELoz1WvHBVfihsf+XpmuN+BMYdRrbonV+MZ1PsussATE0j+f +TrskjEkN1nF++8pAXPlu3EyRMEqde1k7HFoGknUno3ZXCGN21ZcUn+NlQBtT +OqRYL4zPzhr/sEopA3nr/e5VQ8Jo1nvD58W9MtBavKDzWUsEZTo+7EvgKoct +oaIDmq9EUGVmXkX5fDmcsrcwap1eg3miWZ5u1hUgeadFknuRKOr7yk1f3VoB +ZcL2vzWWi2L4oUX5A/YV0NnqWpFCF0XGblE9590VIGcXyrQzF8WIsZdBokEV +UGdzeembLFG852pV2JpUAQumUy3NLDE8zWU8tqO5ApKLjpYsmIqhxTfzetpb +6vmlXAnr7cRQlai++qm9Aqyf8Ruf8xbDWyyRsy69FZC9kbhtnSSGLQXTk/Th +CtBDq4uNH8TQ+4Ad1zAvB0L0r7g1xIpjjV2r0GkjDljmC0xanRVHaXZWWpYx +B5i8xxJaLojjY5ct+UWbOPCm3ZHTdkMctf6E7b5nyQHV/St4+lrE8adHyN5S +Rw4MFR0u+iUpgU8Pttz5FciBXSK2P6RuS6DDL+0zQ1kc0Iqoisl7JIFNp40y +EnM5wN+/VpTxXAJVT75QVbrMgYflPKDQLYE7f7Tx7SrkgKjVw2T1fxL4NSrc +K7OMen+MnPZmK0lU9y3s2VfHgU0/544GfZbE9vparqhBDoSbp697MiKJXbPm +89e/caDsyvoe4WlJfK/ie6t5mAPi9u76D/mk0M96j8aqMQ6MPHj2m0dVCq/b +GL7wn+FAWmxyaNYRKfQe3u0dx0fCy/dKciMxUqhnubH7CD8J89r1bUZnpHBC +Yjmv/woS9g5OaQ5cksLPGWEpJoIkGFi7jKvWS2Gu9h7/JjES+tcoBD1dKY1X +rrSGblQgQSy4RkZMTBpXd/8t5VlLgvVLp2Y/Qhq1i20Ka5VIuHf0jMoqLWks +W/70rfp6EhI/jH3f6SSNPK9cNb9rkaBZXOXzs0AaS1XL3J4gCTEsOw9JPRl0 +FZ3YvNiJBHPXvF+6JjLoTn9td3QnCQLRwyccrGVQ6E1f5ogzCbn18UXJ7jLo ++W7J+2e7SXhgWTm89LQMfmgsRytPEsacZMMmumXwm7wLvSCQhPtH9/OuHpDB +vgu3lXqDSDieW52pOiqDkeZR4UL7SVjxcUeVHzcNbf3WjYQcJEHR5yzXx3U0 +DM1U1OA/TILroanEpggaKo/v7IqLIkH+oon093ga3ihhJJ2IJqn5P3+LN5mG +5580pR+PIeHovNIbk0Ia0kreXvQ7QcKFE65rHjbRkFvj92nhUyTsulZS1NlJ +Q90Qzd5JyswXM7qTH2nYt+pIfGsCCRX8ac5qUzR87mH1MTaRhKaUF5evydBR +OX5/8/1zJKTdFtGoV6SjU4v9aEQSCc4dHnUfNegYe5kMYJ0nYUh8fkDKlI7p +qYrxZDIJPPnq61KD6Ni734YVkkbCqyeRVeVH6Jg5bO0umU5C8udX1s2xdFQb +jhiqpkxT9A7mu0jHPLWutXMXqHooy7pzvIaOA/rtMWaZJGx617Iw+pKOglIT +D19StuVabObWSsfjP160mWaR4LktqBu+0HF/XHi5fjYJQRFXmRWjdGzd2Xiw +jPKRwq59xAwdFYyrJYkcEkwjGFHRSwgk1UOl5ig3rnp0VY+fwCUldw7tySVh +a6HjyzEBAiMkz95/Qdml+cxqD3ECG4L/TSZcImE/ffqqsTKB1wQZAV/zSJi6 +nfxyVo3A0OcscZ3L1HqYK//gaBNY9IebpOYI4g+46zCNCGwJvs4RyieBf+kf +5x4TAgs+CUs4Uk7OvhCVakbgSV2zAxmUs+tfveS2I3Crp+LvlVdIoDt5/6h0 +IHAi0VdhM+XCkX+rQ5wJXKmfZRFOeV1Mto6yG4GDEfEeNymXr9ng8tmTwMWy +c0FdlLVvvo7K8SUw+/HTgzwFJFQa+RduDySQ6/LtQGXK0La4YflBAnXaL7hv +pfzU5/KP+jACrdYbWh+kbDGvL3QsgsB+3VCNFMotye062tEEXgWh1bco28sH +u4zEEXjPZnD4GeXuh8uiC08TqLb2ed17yq62hYW7kghMtYvNGKU80G/UIJJG +oDHfmM9fyn6Hu380XSRwZvOA7vKrJIwuDxWKzyWQVaPNu4ZySL6ALvsKgW39 +9zulKM9oF7tMXaOe7950nU75eMPG6Fs3CVSPux1OUOZx7Sv0LidwNLLXlkY5 +4deRBpk7BA6IZylKUBY4JTza8YAav1v94tWU06TKhJKqCdRbrTO4hLJ4hbmu +aR2BY0VNr39T33dp02eXv88JDLPxrPlKmdkdGX2vkaqPwc57rZRvBIpfC3pD +3V+x5H4V5fXctxsUOghU5WuqvUKZzLAZ7esmUKyHvyOOsp7ykNDFPgI7tK9M +elGuronV3fKZwJuRwYQJZRN7mV28QwR+a3TcKU35xdD96JoRAvcO6eVPUOtp +Hbnt2uFxAkesZ6ZeUN5RdGp0cI7AOtPctz6Uew2Ywvn/CDwGFju1KO95/UjX +aTGDml+viT9UfQXMjEe/XMnAP3XH9sRRNjiwV/SrEANFVDXuGFHm+95TwiPO +wESjqKwpqn6vva/vNGIysLkoUXYn5VB7vYBdigy8fiTn1RLKJs2li46qMNC0 +f2RZObUf+h5fULmrw8D0OG7H39R+KdXlr2s1ZKDSKYZ3BuWjFcd3jCEDc27r +rNakLFrgE6tsxcDzK3g2u1H7bUu8ftcVNwZV/6msFGr/0v7eCqzxYqD1kkb7 +NZRHwpg8//kx8ML8eeEMav8n+C5XFQ9loHNt9ulzVD7UWv13IimBgT/5BsPt +M0hIemonUXqOgbdzy4eqqXzZxX5e1pDKwMVFrbxylGdVy7sXX2Kgmw9911cq +rzSFYtQiOAz8r+9Z1MYUErjOTD3NvMfAQU/b9FQq31p4/J3vVTFwtHqDZx+V +f/umtsWPP2Pg0l7NDQFUPhZ2yb336WFgcF1Ks/sZanyXX56052Hiv8Hen2Vx +VP2LsaUP8jGxx1Zs0ysqr8lkDuf8SiY2Eg4+/bHU+GOze1+JMTEthU4so/I9 +wTtA01iFiUNcc1HqkdT3Kgv2rXdgYsGDs7JDoSRMX5KM0XJmYukXC6XOEBIm +V8nL6bsxsSjOWP0J1V9GJ/T9N/kxEU/wmSVR/ae/ynPaOZKJ+mIbHi0OoPLZ +6r5AwjUmHr/J/Oa5h6q36iecczeZOOyancf0oPJArck+rZyJgZV6/n1uJDwW +/pSd95CJJ5wNLGyofki+51e828xE45piKz6qn2bvc4X+KSbelR5LmrQm4eJ/ +vv2Dc0yMmk40i7ciIX1LSPyPf0w8PNmuLGxJrY9WQuPMMlk8dGnkmIIZCbF/ +ODtW0WRRZG+8j7IxNb9nluxnmcriGts/qeXaJLBKSvMzMmSxNdGfp0SChPdE +yeXNObJYHVFWwC1O1VdGcd7kZVn0annya4co1Y9jinK3FctinO5s8R8han2d +8jMFHsmia676BUXqPKK0JD355CdZDA/g9RL6S52f3CKiw1TkcIWZJ431kQPj +QpbujnVyqGvD6GDmcaArgPnG/4UcCgh+3Fibw4Ha53MQ1SSHvw5sdnChzmvJ +R0voNzrl8PMLs72J6RxQ71/xYfa7HIK+SGBTIgeCOK93XxKWx+KDM4Gfwjjw +fYuDy4CXPL5aMLNytuHAwFl3x4O8CriQ3p/+caICLH4etviio4jrHpw97aJX +ASOefCF3otZiz31+cd8bZdT/BzHuU3VKqP63bNK4rhSEmhWSKn6uw9Y+9xH4 +chOkE8q36uioYLeb+CrztzcgU1lfUNhnPa7jqdLrfF8ErySNN0ykqKKS/ehj +/4lCMJCuS1brVENdYaWexJECEOApCPWIVUfjrb4HEsWvAC2GztqpoIEea1QX +P/fNg2Xyu+5te6GBd2dSE0y/ZYMqW6L88G5N7K1/EFHVexEO9gnVW3JpoWPK +j4jXzenwc+Ksg0WmFp4u9k6LUE8FM7Xn2RbrtdFsyI7r4Z3z8HjC8M/vFm18 +cvoPVyvzDASpaPa89d6AO+V3lLZtPwXsUa/2nct0cBfkbJgsOQGb5cRtVhbo +YJFYUOhsaTSsjU48Uqeri4THDuZ67WOwzlu/Rr5HF+9eS/o7t/sweD/2jbtz +QA9N4sli+8gQqMlv9xpfo485HYpf/N8Gw+SNf7/V7uvjF4dQy0WDfvDV0TT/ +9EN91LtdatTV6gddi8+Zf67SR+XrO/MfPfaDKnfJrIxafTwyeyr5VoYfxIpv +MFho0MfXAp2eamZ+IJjgf+xVrz5Gm0x1ld70BRWfDi5vbgOsacrY7xbhA57y +JcuybQxw/JnzhIqJNxx95uqvsNUAP23qya1S84Zkb6FGcpsBeu7+KuEk4w2P +roWfbdxhgNHtw4GVM14gomC+asHDAH0G9bNkK7zgucIXEfcwA3T+5t4fzfCC +dWvphMJlAwx+unJBVcATxtel6ZBjBmhVmpOSv9IDuppws/CEAb5I+LvI9587 +1AaNbg+dMkDRe82v9MfdIYm0OKAzZ4CW8Z428+3usM6Aq7SSxxCDdzQFzOe6 +wx6LQEa9qCGWbRpv+azqDu0+ZivaWYYotsi63fKOKzwo/PNpKsEQj+sXR7lk +u4DOxtDflmcMUS/1erT6CRe4+2lkRf45Q5TUUM0RDXABktana5lqiPV+9hNr +jFygNLP2XF6OIfLIhAp87HeG/LPx+mZlhkgfOTCeqeYMp0NXpWS2GVL9KtjB +scMJnDfJoiGNhZK2RwbatzjCQjufQD3BwoU0CxcuQ0fI9x59bynLwt7licvZ +Co7w9eTDw85rWeil0DD0bd4BDjZsKQ/XZOGfuzmWgiUOkGh7jPbAlIUhorke +8fwOUOnUMa8dzMKHK5xqajq2g1TgqYeqtSycYylv+ZdtB0n/9m44U8fCL8U2 +WXDGDrhTTTmDT1l496BN6NkIO/h+b0lxfgMLNT+MVFrtsoNKrrhMoTYWsmlv +L7nR7MA5Pfrw9BcWsqrcPDoKt0JmVfiGx8vZWK2mORZ5aAus4Q/g2Oxg48QK ++Jay2hoKN0YeHdvJxsdmJlp9k1agGZm0MW0XG++41bdt6rIC27GKji4PNnqc +8njmftkKTnZOzXoGsHF/ZrXSW1UrmCmIMjkaw8bW5zFrYrdZQo9hWltRCRvV +bO/PXiw1B99DhbkWZWyMXZf8njfNHKbL7nqPVLCx/cCN9PPh5iDE7PqtcY+N +gvxf4KupOVjxyUhX17LxEe92r7J+M3jUXuTV1kG9XzPHOYtmBpYCD9aHdbEx +Wz6kKXKpGXSZNUyLv2fjMk2toSOjpjBZOZzg+pGN0zr328jHprD+ivqtb9/Z +OM4XFq7lbgqPeozDzv5gY2FLv16juSlYimwHtTE2HrixSDBcwxT2njr0NnSK +jb/7JapFeajfqz2ZLTbDxm+FQsFLRzZD7NxFz8o5Ng5oPxpb3rEZBLWLVXYv +sHF9gJa64uPNkBdYOfXvHxvXPs+Xcrq+Gf4HfOwz9g== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07280161830159737}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, + 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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.061043}}, + "Frame" -> {{False, 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.061043}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.061043}}, + "Frame" -> {{False, 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.07280161830159737}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994015177600699*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"9ec76f37-0055-4022-ae8c-8645dd5c90aa"] +}, Open ]], Cell[CellGroupData[{ @@ -6226,66 +11783,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[\\\"2.562877904177458`*^-150\\\", \ +RowBox[{\\\"192330073695578600598678251250\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"101\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"825600000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 121, 45, + 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331752212366*^9, 3.994015177639776*^9}, CellLabel-> "During evaluation of \ -In[199]:=",ExpressionUUID->"3273c967-a8f4-6b46-8292-dfd9dc69311d"], +In[121]:=",ExpressionUUID->"3b519fe2-85ab-4fef-bc78-f3473327fe0e"], 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[\\\"7.46934685489941`*^-153\\\", \ +RowBox[{\\\"692388265304082962155241704502\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"104\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"160000000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 121, 46, + 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331752212366*^9, 3.994015177646789*^9}, CellLabel-> "During evaluation of \ -In[199]:=",ExpressionUUID->"cf5457ae-7056-8a4b-afa3-32b95e922259"], +In[121]:=",ExpressionUUID->"fc190c7e-0514-425c-b980-e4503042e892"], 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[\\\"2.176894277634407`*^-155\\\", \ +RowBox[{\\\"257637673519649270217965438245\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"108\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"360000000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 121, 47, + 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331752212366*^9, 3.994015177653496*^9}, CellLabel-> "During evaluation of \ -In[199]:=",ExpressionUUID->"7ef79528-2ca4-544d-8bbf-e4564533e47a"], +In[121]:=",ExpressionUUID->"24e9cde2-8b9f-4d46-9c89-2e80ba3a9077"], 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, 48, 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331752212366*^9, 3.994015177661981*^9}, CellLabel-> "During evaluation of \ -In[199]:=",ExpressionUUID->"3f59bf2a-0193-1b41-9437-359e4e291f20"], +In[121]:=",ExpressionUUID->"99c3cf36-1586-49c8-9d4f-d8f03bdacf53"], -Cell[BoxData["9.779568499633264`"], "Output", - CellChangeTimes->{3.991331759108553*^9}, +Cell[BoxData["10.620608895440862`"], "Output", + CellChangeTimes->{3.991331759108553*^9, 3.994015226387117*^9}, CellLabel-> - "Out[199]=",ExpressionUUID->"6c94ff26-1921-5a44-a360-bda32f564938"] + "Out[121]=",ExpressionUUID->"17c4aece-07db-4666-bf76-d763c9959ab8"] }, Open ]], Cell[CellGroupData[{ @@ -6352,68 +11916,75 @@ 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[\\\"1.9354806341475935`*^-212\\\", \ +RowBox[{\\\"111907153680443277505994197391\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"260731183104000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 122, 49, + 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317591425533`*^9, 3.994015226431362*^9}, CellLabel-> "During evaluation of \ -In[200]:=",ExpressionUUID->"33abd0dc-5204-1046-87c9-87cecac6793f"], +In[122]:=",ExpressionUUID->"1b79a785-2238-4720-b05a-357f1e66ecb5"], 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.3275533178561674`*^-217\\\", \ +RowBox[{\\\"197404219092301941520573764198\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"929806995456000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 122, 50, + 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317591425533`*^9, 3.994015226439004*^9}, CellLabel-> "During evaluation of \ -In[200]:=",ExpressionUUID->"a3e9f415-30c2-d04b-a044-33980d6ef6e9"], +In[122]:=",ExpressionUUID->"605b5860-b02b-4025-82cb-a766c4efdcb3"], 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[\\\"9.10573725542388`*^-223\\\", \ +RowBox[{\\\"365000401101666289871540890002\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"213134598144000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 122, 51, + 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317591425533`*^9, 3.994015226447644*^9}, CellLabel-> "During evaluation of \ -In[200]:=",ExpressionUUID->"3dddc3ab-89f8-ab44-a85d-f5130722f198"], +In[122]:=",ExpressionUUID->"8aa07577-785a-4e59-8633-3e9a54593086"], 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, 52, 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317591425533`*^9, 3.994015226454934*^9}, CellLabel-> "During evaluation of \ -In[200]:=",ExpressionUUID->"a3229605-5a49-544b-bbf6-cc14edd6c936"], +In[122]:=",ExpressionUUID->"3f8bd85c-91fc-464d-b316-fe51688dc371"], -Cell[BoxData["1.044718879268698`"], "Output", - CellChangeTimes->{3.991331766558941*^9}, +Cell[BoxData["0.16237715961313362`"], "Output", + CellChangeTimes->{3.991331766558941*^9, 3.994015233222435*^9}, CellLabel-> - "Out[200]=",ExpressionUUID->"2f0f984a-e452-7f46-a8f1-230feda2f30b"] + "Out[122]=",ExpressionUUID->"6bff5298-d0da-481e-b840-0bc67cf7664d"] }, Open ]], Cell[CellGroupData[{ @@ -6434,8 +12005,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 +12050,75 @@ 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[\\\"1.9354806341475935`*^-212\\\", \ +RowBox[{\\\"111907153680443277505994197391\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"260731183104000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 123, 53, + 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317665951805`*^9, 3.994015233258129*^9}, CellLabel-> "During evaluation of \ -In[201]:=",ExpressionUUID->"1a479ad6-386a-fb47-95e4-f8a3ab25eccc"], +In[123]:=",ExpressionUUID->"7c2e3423-6cf2-4c7c-932b-639675a2761b"], 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.3275533178561674`*^-217\\\", \ +RowBox[{\\\"197404219092301941520573764198\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"929806995456000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 123, 54, + 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317665951805`*^9, 3.994015233264481*^9}, CellLabel-> "During evaluation of \ -In[201]:=",ExpressionUUID->"c45746b8-a614-4245-b137-e38355d43857"], +In[123]:=",ExpressionUUID->"52a7c005-7481-4060-b9c0-a67c8b44186b"], 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[\\\"9.10573725542388`*^-223\\\", \ +RowBox[{\\\"365000401101666289871540890002\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"213134598144000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 123, 55, + 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317665951805`*^9, 3.9940152332708406`*^9}, CellLabel-> "During evaluation of \ -In[201]:=",ExpressionUUID->"7ef9264b-fdf5-8e46-a39d-9d01a56d9fbc"], +In[123]:=",ExpressionUUID->"3985e53e-0df6-402b-a748-0e96ac83ef82"], 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, 56, 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317665951805`*^9, 3.9940152332771873`*^9}, CellLabel-> "During evaluation of \ -In[201]:=",ExpressionUUID->"424cc344-67bf-5349-951a-e3d6864f9105"], +In[123]:=",ExpressionUUID->"9a0c0e0e-1a5d-4f98-af9f-7dfebc22eb24"], -Cell[BoxData["4.7987767072565894`"], "Output", - CellChangeTimes->{3.991331773590704*^9}, +Cell[BoxData["29.791119778575606`"], "Output", + CellChangeTimes->{3.991331773590704*^9, 3.994015239687746*^9}, CellLabel-> - "Out[201]=",ExpressionUUID->"d6fb3ea3-39a2-5b42-96f2-520a52fd0d9f"] + "Out[123]=",ExpressionUUID->"674ed490-e029-4850-a6cd-34ce2d08002f"] }, Open ]], Cell[CellGroupData[{ @@ -6562,8 +12139,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 +12184,75 @@ 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[\\\"1.9354806341475935`*^-212\\\", \ +RowBox[{\\\"111907153680443277505994197391\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"260731183104000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 124, 57, + 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317736257057`*^9, 3.99401523973032*^9}, CellLabel-> "During evaluation of \ -In[202]:=",ExpressionUUID->"7c3b7078-d094-2344-a157-26438223ef0f"], +In[124]:=",ExpressionUUID->"5da739d4-5b16-426f-8f12-55116a7cd315"], 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.3275533178561674`*^-217\\\", \ +RowBox[{\\\"197404219092301941520573764198\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"929806995456000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 124, 58, + 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317736257057`*^9, 3.9940152397397633`*^9}, CellLabel-> "During evaluation of \ -In[202]:=",ExpressionUUID->"a4aaa457-e588-7a42-9066-29e614b18d91"], +In[124]:=",ExpressionUUID->"22cbec62-d99a-40fd-ae4d-421da89409ec"], 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[\\\"9.10573725542388`*^-223\\\", \ +RowBox[{\\\"365000401101666289871540890002\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"213134598144000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 124, 59, + 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317736257057`*^9, 3.9940152397489347`*^9}, CellLabel-> "During evaluation of \ -In[202]:=",ExpressionUUID->"8e9701ac-9508-2346-b853-523f9f269328"], +In[124]:=",ExpressionUUID->"931e25ea-ef09-4ce3-8ea9-bfc0e562a3dd"], 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, 60, 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317736257057`*^9, 3.994015239757469*^9}, CellLabel-> "During evaluation of \ -In[202]:=",ExpressionUUID->"062aadbd-03a7-1f42-b815-d27ae6ddc83e"], +In[124]:=",ExpressionUUID->"02f60dca-bb74-4a33-a848-738e4ca11f89"], -Cell[BoxData["15.12281532960454`"], "Output", - CellChangeTimes->{3.991331777337887*^9}, +Cell[BoxData["3.855024788968276`"], "Output", + CellChangeTimes->{3.991331777337887*^9, 3.994015243646109*^9}, CellLabel-> - "Out[202]=",ExpressionUUID->"484b070c-cc4a-7049-8a18-4aa38bea8cd9"] + "Out[124]=",ExpressionUUID->"f5f60a69-b6bd-4cfe-9ce3-656dd182570e"] }, Open ]], Cell[CellGroupData[{ @@ -6678,22 +12261,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.015151929428220873`"], "Output", + CellChangeTimes->{3.9913317773679104`*^9, 3.994015243685714*^9}, + CellLabel-> + "Out[125]=",ExpressionUUID->"b2f7c547-04dc-4d6d-804f-33923615d680"] }, 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 +12300,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["12.848618316587267`"], "Output", + CellChangeTimes->{3.9913317774008274`*^9, 3.9940152437061872`*^9}, CellLabel-> - "Out[205]=",ExpressionUUID->"ddfcd06d-5644-fb4b-b789-815d8db71ce6"] + "Out[127]=",ExpressionUUID->"f86599ee-e09f-495f-81fd-030306a4f456"] }, Open ]], Cell[CellGroupData[{ @@ -6731,12 +12315,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.8238993813600084`"], "Output", + CellChangeTimes->{3.9913317774358253`*^9, 3.9940152437174*^9}, CellLabel-> - "Out[207]=",ExpressionUUID->"96020250-b44c-694d-acbe-eb8b1c066e25"] + "Out[128]=",ExpressionUUID->"f672cc75-d544-4f72-9bf7-019c623fa1cb"] }, Open ]], Cell[CellGroupData[{ @@ -6746,12 +12330,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["23.434586998954387`"], "Output", + CellChangeTimes->{3.991331777510603*^9, 3.99401524372927*^9}, CellLabel-> - "Out[210]=",ExpressionUUID->"a3cad59a-97f1-1b4b-a0d3-0fcbb55e71c0"] + "Out[129]=",ExpressionUUID->"5208f4a0-aa24-4aed-97a6-cd8b44671e61"] }, Open ]], Cell[CellGroupData[{ @@ -6941,12 +12525,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.00688625973336189`"], "Output", + CellChangeTimes->{3.991331777537592*^9, 3.9940152437453012`*^9}, CellLabel-> - "Out[211]=",ExpressionUUID->"221426ad-3f43-834a-96dc-c22bf0ed0e23"] + "Out[130]=",ExpressionUUID->"9cd5f96b-0eff-4479-87bf-64e84070d4cf"] }, Open ]], Cell[CellGroupData[{ @@ -6960,12 +12544,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.67955707431386`"], "Output", + CellChangeTimes->{3.9913317776362495`*^9, 3.994015243858749*^9}, CellLabel-> - "Out[212]=",ExpressionUUID->"54964f1a-0c74-5b45-a5d4-8b241885bf9d"] + "Out[131]=",ExpressionUUID->"9c1d7f22-93d4-4001-aa4b-0a162ab8f716"] }, Open ]], Cell[CellGroupData[{ @@ -7157,12 +12741,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.04105107994678019`"], "Output", + CellChangeTimes->{3.9913317776511555`*^9, 3.9940152438708067`*^9}, CellLabel-> - "Out[213]=",ExpressionUUID->"637b4460-08e1-2c47-b235-20b94d0413ac"] + "Out[132]=",ExpressionUUID->"19434360-aba4-44ce-82b3-92e49c87d7bb"] }, Open ]], Cell[CellGroupData[{ @@ -7176,12 +12760,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.374038962820241`"], "Output", + CellChangeTimes->{3.991331777742655*^9, 3.994015243985334*^9}, CellLabel-> - "Out[214]=",ExpressionUUID->"55b9de35-b316-8a4b-b6c7-df263fdc91bc"] + "Out[133]=",ExpressionUUID->"93fa4e99-e442-46e8-a1e7-78f9b32e6fc2"] }, Open ]], Cell[CellGroupData[{ @@ -7274,12 +12858,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.08017799560488434`"], "Output", + CellChangeTimes->{3.9913317777546787`*^9, 3.994015243998435*^9}, CellLabel-> - "Out[215]=",ExpressionUUID->"fd2a841e-0c22-9146-97fa-d652989dadbe"] + "Out[134]=",ExpressionUUID->"c8b604f2-1fde-4470-8077-69e1bff24cd4"] }, Open ]], Cell[CellGroupData[{ @@ -7369,12 +12953,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.9198220043951155`"], "Output", + CellChangeTimes->{3.991331777779663*^9, 3.994015244009233*^9}, CellLabel-> - "Out[216]=",ExpressionUUID->"94bd0f60-5228-9b42-83fe-23a478d55c7c"] + "Out[135]=",ExpressionUUID->"22235e42-6aad-4ba5-9766-1971071e82fd"] }, Open ]], Cell[CellGroupData[{ @@ -7497,12 +13081,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.07374948462566748`"], "Output", + CellChangeTimes->{3.9913317778036633`*^9, 3.994015244021821*^9}, CellLabel-> - "Out[217]=",ExpressionUUID->"fe51f341-63c7-8f47-9357-139cd58159ba"] + "Out[136]=",ExpressionUUID->"111beddb-395c-4a44-8dc4-e25c92c9883f"] }, Open ]], Cell[CellGroupData[{ @@ -7517,7 +13101,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 +13125,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -7564,68 +13149,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[\\\"7.332320810732206`*^-209\\\", \ +RowBox[{\\\"365000401101666289871540890002\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"213134598144000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 137, 61, + 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317778296604`*^9, 3.994015244040147*^9}, CellLabel-> "During evaluation of \ -In[218]:=",ExpressionUUID->"0e079558-1b2f-5a46-8c66-a9ee31993ddb"], +In[137]:=",ExpressionUUID->"ac739a74-5dc7-40e5-9d69-03a2b2be6ad6"], 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[\\\"1.059005550797886`*^-213\\\", \ +RowBox[{\\\"706640776532825937191303163045\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"49\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"628582006784000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 137, 62, + 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317778296604`*^9, 3.994015244049163*^9}, CellLabel-> "During evaluation of \ -In[218]:=",ExpressionUUID->"d148db97-53f1-5f42-bd2e-6e779140d5b6"], +In[137]:=",ExpressionUUID->"e6a21418-3702-48b9-985c-29bd858abd2a"], 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.5295194871714042`*^-218\\\", \ +RowBox[{\\\"143094757247897252281238890516\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"53\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"878563737600000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 137, 63, + 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317778296604`*^9, 3.994015244057514*^9}, CellLabel-> "During evaluation of \ -In[218]:=",ExpressionUUID->"186b0633-6992-1247-a396-6e446c898f15"], +In[137]:=",ExpressionUUID->"fff84102-c43d-44bb-8e99-9c175f31b279"], 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, 64, 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317778296604`*^9, 3.994015244066255*^9}, CellLabel-> "During evaluation of \ -In[218]:=",ExpressionUUID->"81723359-f225-2c46-ac9d-0c5bbdaa253b"], +In[137]:=",ExpressionUUID->"00ea7ce1-ec94-4348-8a6d-d35ecf6bc028"], -Cell[BoxData["4.37160597269358`"], "Output", - CellChangeTimes->{3.991331781456501*^9}, +Cell[BoxData["10.679557074313868`"], "Output", + CellChangeTimes->{3.991331781456501*^9, 3.994015247934985*^9}, CellLabel-> - "Out[218]=",ExpressionUUID->"dfb1ce0b-e756-e84a-9724-ecf250122f19"] + "Out[137]=",ExpressionUUID->"4b2f596c-a665-48b6-94d5-afe61bd645eb"] }, Open ]], Cell[CellGroupData[{ @@ -7640,7 +13232,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 +13256,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -7687,67 +13280,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[\\\"7.332320810732206`*^-209\\\", \ +RowBox[{\\\"365000401101666289871540890002\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"213134598144000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 138, 65, + 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331781491499*^9, 3.994015247984397*^9}, CellLabel-> "During evaluation of \ -In[219]:=",ExpressionUUID->"90df9b1f-7133-e445-8661-0af9d5feb8bd"], +In[138]:=",ExpressionUUID->"fb789950-f0ac-436a-a4d8-af00e819b573"], 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[\\\"1.059005550797886`*^-213\\\", \ +RowBox[{\\\"706640776532825937191303163045\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"49\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"628582006784000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 138, 66, + 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331781491499*^9, 3.9940152479937487`*^9}, CellLabel-> "During evaluation of \ -In[219]:=",ExpressionUUID->"93c48be2-5ad7-ad43-88e8-2c6ab8e2f132"], +In[138]:=",ExpressionUUID->"0de3cbb2-53f1-463a-bcb9-372e88b913e0"], 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.5295194871714042`*^-218\\\", \ +RowBox[{\\\"143094757247897252281238890516\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"53\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"878563737600000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 138, 67, + 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331781491499*^9, 3.994015248002453*^9}, CellLabel-> "During evaluation of \ -In[219]:=",ExpressionUUID->"cbcbafce-f556-944f-b5f3-9a75f9ae2725"], +In[138]:=",ExpressionUUID->"723dbc69-20c9-4dd3-8f6e-d2201e983019"], 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, 68, 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331781491499*^9, 3.9940152480096817`*^9}, CellLabel-> "During evaluation of \ -In[219]:=",ExpressionUUID->"83820e0a-b24a-cc46-bd5a-b19f0104c185"], +In[138]:=",ExpressionUUID->"3f1a9096-ef8a-4cb2-b338-d82c01992849"], -Cell[BoxData["7.54286262106163`"], "Output", - CellChangeTimes->{3.9913317851500416`*^9}, +Cell[BoxData["4.374038962820238`"], "Output", + CellChangeTimes->{3.9913317851500416`*^9, 3.994015251816949*^9}, CellLabel-> - "Out[219]=",ExpressionUUID->"0d63c418-a50b-b94b-ad7d-1a46c6eb320d"] + "Out[138]=",ExpressionUUID->"447bed97-8933-4b6a-bdba-2862d12286dd"] }, Open ]], Cell[CellGroupData[{ @@ -7805,93 +13406,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:eJwV1nk4VdsbB3BzZcpQxshchDimDFkvTqaQIpmS4ZxNEkIySxkqEXKj+zOU +MoSIJlNdReVKUVRShNjm2TnqlvyWP/azn8+znue73jXuLesddIjOxsLCMo6f +9fept+o7Hne9Nc7orWq/Ekwi49nbOt7USmS/cv3XugcLdbMVqE3Idu1Iega2 +Pe0NF6/WCzSyNH4uE7smIr6Fk9qBXPpsPmdhX3wp1hxf/g4JNZzPzMau7zpV +8JvyAVXkpVVcw57sa4+JbOxFZJr/juvYEqPybkyzr+iv/0lw5mHvn4vRD+34 +hqo+5FMLsZ/+nuSJKB9CR+2WR4uwPyaIRj8K/I7ei0tPlGDPclEnlymjKMxO +0q4Cm+tysIvWComqOaa33MOWFsxvO9U4jgyPZOx9iG0nySyZNZtGh80dHzRj +EzfkRNQ2zqJGuTC2V9jxigeSTnTMIaqkX+0b7F7RHs2w8gU0vtKh9xWb5up/ +/OrlRTSsasw3gj2fx3KzNnAJDW5PpE5jb5RTE1igMNCmn+m9q9jZtBYLga1M +hEwcdTacIpFMqUv87hUmMueZWxLA3qOaPHuy8QdKYSm5pojtp/utY9LsN1oe +3R7igL0ccZqDW2kVbS3O6T+GfbaRx0h54x+0u4csD8DOhT0Vvh1rKOgm74kU +bFpxGzWknBWi98clPMMuf3l1MEGSDabe1P/qwp4f84jJvMwGh3Q7Pw1ix6gw +7t8LZIcT2y4+ZA3B9VbLys9ROCE5wGyDJXZf1/TTP7c4IcrYOcMVW2bxsSv/ +Vi5wW7aKPoldqW2XpbbCBUr3X4RnY7fWR7EGNG6E28kqHGPYjJbub+NmvFD3 +QiCyIJREQja8AtFPeSExKFqvHlujhwp8+nxQ1b3k14PtP/LwhqY6P1zKFlDk +DSNRMFuHxl5eAdCQ5mdLwB6Vq1pIYgpCA3/rgbOn8fwQ7Zs6tYQgip2GirDZ +KkhZsVNCEKMiXdSKLaO1/VD5lBDMZ400c4eTyNUso/btoDDYcXf75GF3+oSE +ir7eCkq/NsGHMyQaKE1P9dwoAo6JTV5/sKenym/d2ScCnQW5zB0RJOIO+95t +2CwCua3vImOwqYmO2p4PReGzNEGqRJKo4bYuo6xQHM59E3LJjyLR7dH/wg3C +pIDt0UJlbyyJLA+nDITelQIh8EnkjcP5rcLmd0kp0Kv2aAZs7duqW2VcpGG5 +d4Vejt3q7XGf03g7pIn1+J6LJ9Hi3OCZ8fMy8NrSxGJfAomET1If3LeVgw9D +L2NFkkhE3ub2s/eXAy3q53En7LqvXZIzyXLQda6gLgfb3eboeaVmOVA3tUiW +SMb17Qo/dJ0iD+dX9fsUUnD/k6XzcaIKwDI7Tbe5SCJHXx416yFF2DxsIDqW +RiIUfphyZFURWs5+zKGkk0glqVCPJq4ERqwnIuOwWW5pmcYdVILrvxOPiV4h +0d0BtyO1z5RgLufOY9sMfD6dKhMkinaARqjs9Y4sXB/V9uOktzJwb72iKpxL +olsOOV9W4pRB9UZ0pz92uvfQIMf/lOGCVU73c2za2dNT0t3KYG3osxZ6nUSC +TfksDmYqoD54drTvb7x/tGZVGuV3QbpH6ExDPokk5a7Ep46owmudaz9bbpGo +6dKy8k82NVgaXUYat/F8LLn0ELJqwHpu5UcedkGrgrKphxo4zSw+P1NMIjnf +hvc/PqnBTSXex5RSPN7KUUXitToQ3dvknpaTSEpSmpBx0QCHrC8iu2pJpFoc +xvsLUWC4v1HS4zmJvGnnGWp2FEiPLf7Rj50rnzXg6U4BD1FuA48WErEXVd97 +GUEB1b/tJo+14vNWMOmYVUOBJ4N8rH4v8X2a65mvLK8FTuz3N6W24/VNtVF3 +5tKGEqrr39u6SXQzRMH+YYcOvA4IdgwcJVFXONJLLNYH3qHPmllCY0jW44Pd +0YC9UHJB30XVfAzR1x5VSUUCDAnbUL7FjCHRqboNot6mYHCuPf74P2MoTMvo +a5YKFdzNtNO8OMaR98zvNuHJfTAr6MQSaTeO7pqGbijstADhi4tB6iXj6Pay +/7PKbCsw2u//bOHPOPphIvamNX4/iJ29lvycmED9LOwLQ162UCyXdc23ZwIF +bgvKSJA/AGfE9FqvmkyiquNtzX8l2cPb9gi/lH8mUdSS+Mqu4wdB46uhgYLR +FGJYmzu9OnYItNPTvf5tn0L6bpkmowcd4PXF526BHtP4O5Dv36rlCPpaGzI7 +Z6eRRMn5prKdh+F7K2uzZ9YMqhtUsbHjc4IeV5v6YM1ZJN0z7xs+4wSvXmWs +cnXPIq2/MitvDR6B0mbJTKMLcyifY0k9q8UZ5loM/HUl59Ejk919SfUuwKbr +e1UwZh7l6l0S/F3uCp1qCjst++dR55fiZK3LbvAyvVImSn8BPbTNUwg+6w5d +nJKGpQULaOGkA0sg7SiYtKWfeLK6gBjmyn6zZh5Qf3FFgt9tEZXNfP4RqnsM +JH9pOnT9s4icbxb7HOX1hAj+oX+bti2h+7X7j7GneILg5Kx2avwS0pd8//Pi +T094/OSQ877PS0h+0Lfv3XEvSKdzCu5UX0YjPCcO5H33gulHW37+SFpGXel2 +PhaHvWHaq5hnV/cyyo4o5Dnd5Q2lK043XsowUNPTtZ8+Vj7wKNRam51goM3u +kKLV4AM3JPaWVBYykMyWV53bmnyAycnNn3ODgTQ6bMW4nvqAlKX+9NmbDHTI +yO1O7zMfMGlg53G4xUDZ28Jfx/7rA0nHd7+ZL2Egif6KzW29PuDc6WUoVMVA +Ch6iue4rPqDx6mn8VCMD6XvOliVp0yAj9+6PmQ8MVHJ9PtROlwZnH8ueKP3I +QFu6F41F99AgP1TQ3fMTA83uW+kpM6SBbf9AXVcvA99fLKwdpjTIuXjVteIL +A/GvCLoIHaRB49AjWcshBhpJ09lUeJIGdqvl/dLTDJTeGHO8roQGKvKxFgYs +THSSkqMfUUaD4xO8tE5smzs1m/aU06APXvz2YWUi7hzyzuO7NFC9aV6UysZE +SSH2k48e0CDvaU1DDwcTxSgrnHj4nAZfLfK47TYxkX/O64DaARoMHG0L/yrI +RFb8pFHIIA3Ik/JjnkJMtDOJhY8yTANt9QtdI9hkiM7dmlEaXCoR4J8SZiIv +u8KZe9M0YNy7ormA/xucOUMDq/+jQY20HNeIOBNZhEoEV4rQwUNR0cpHlome +FyZbZ4nRocNg7vQgtlHHokKEBB0mXlxjOSrHRBqKrz+bSdPhZNeW3Y7yTCT+ +KdrsiyIdUocXZgwUmWjKoF+EW4cOBdwvvk7sZKIrbDee+DrQoU3W9H3Hbjz+ +3by5tofpkMYrfklHg4kS3SJCtI7QYWzbs7x87IgH9jvWXOmwNrPr/QlNXD/B +mnnNmw5BiVzRLFpMpNXuTXtxig6jxwVruXWZ6FOmIo98Bh0KzQqVigyZqArx ++Y1n0iH5d1/EPHbizHLr3at0kAgW0jc2YiKKVWvcnhxcf6gBey92OovPom0B +HQb0B5o4jPF/VNCNzxGVdFg0t6g3BSaSkrqga1xFB6Xe0pEU7OX2oKvs9+hg ++GdHbAd2kRKyTb9PB9dqB4aDCROt9vc332qgA3X7Cou7KRM9sJEse9uG51ez +McqeykSp/7FxZrfT4dgry5DL2N5lk14uHXSQ69f++ApbgKNBcqSTDsurv4aN +9jFRQKPzlZ8f6ZBht2WzjDkTyatcC1cYpcMdJf2ydgsm+u9TbPcESYce/2rP +VeyuJLpG9TgdOqMHEndbMlHckPak/jQd3rmbCGRh9+V2Hz2wRAfimhjF3oqJ +sjYI7otiJeDTK7e/71kzUdNiv1sYOwHPqnXfD2CP9ZeHBHISwHe+wJ53P94P +D6g3vDcRUOU4KUPHJj0jflkLErDrz0F+fhtcv80+oX3CBFACQiJ1sQ31hJTR +VgJg7a2KB3YGX6WTljgBF/1FPSvW2xu+1UjKEhD4cFJ4ry0TEcWVbVvlCRCM +nq8+hp2REfltsyIBZOx0ZgI2SQjzcSgTEHK+dEfLeruwhd+0BgH0LYev77Vj +ooY/wvEkhYA+MT2aK/boxOBfg9oEJLr2hIVjGzRHtfTsIUDIUcm3EnskoEr6 +CRAQMxF5ZfMBJuJ3jtZ5bIr7C0xOUcLWN7O0qaESoCkr/cIIO118OLLYkoBO +ap+AL3YdR3VGoTUBLM3L0tHY3+eiS6/bENAVnRySjr3n5dYPafYENFWsTtRi +e9cMT6UcIuDNhT6+Vuy0vGq2c44EnIqQOtODPRxipRHuTEAk9aX4Ejafh4hF +sCvuf0LBgdUe51l9P+rvToCW5pd3/Nhp22NTPTwJ0N5uWrgDu47busjZG6/H +zPQMBXuYIVJ/iEaAV9X3hL3YfEPfO20IAv4ZkXezWM/ruEea+xGgblwRaY/t +/Th2FfwJyM4+0++8nl9kvcUwAI9nJjnZcz0/TXSXTiABzdGfwnzX8yNGTHYH +E2CT51t2EpuXVuOsHEKA3Wcd2VBsvQNxQfJhBNSOw7cz6/kG+5OlwglwrkwZ +jsa+rCiWLxpBgDJl06547EcCo/cFowgQftBal4A99KumnSeGAK7c+tTz6/lj +cUOccQQsBo3dSsTWfb//x1o8AT0/bVmTsP8PgXLkQA== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -7905,105 +13507,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:eJwV1nk4VdsbB3BzZcpQxshchDimDFkvTqaQIpmS4ZxNEkIySxkqEXKj+zOU +MoSIJlNdReVKUVRShNjm2TnqlvyWP/azn8+znue73jXuLesddIjOxsLCMo6f +9fept+o7Hne9Nc7orWq/Ekwi49nbOt7USmS/cv3XugcLdbMVqE3Idu1Iega2 +Pe0NF6/WCzSyNH4uE7smIr6Fk9qBXPpsPmdhX3wp1hxf/g4JNZzPzMau7zpV +8JvyAVXkpVVcw57sa4+JbOxFZJr/juvYEqPybkyzr+iv/0lw5mHvn4vRD+34 +hqo+5FMLsZ/+nuSJKB9CR+2WR4uwPyaIRj8K/I7ei0tPlGDPclEnlymjKMxO +0q4Cm+tysIvWComqOaa33MOWFsxvO9U4jgyPZOx9iG0nySyZNZtGh80dHzRj +EzfkRNQ2zqJGuTC2V9jxigeSTnTMIaqkX+0b7F7RHs2w8gU0vtKh9xWb5up/ +/OrlRTSsasw3gj2fx3KzNnAJDW5PpE5jb5RTE1igMNCmn+m9q9jZtBYLga1M +hEwcdTacIpFMqUv87hUmMueZWxLA3qOaPHuy8QdKYSm5pojtp/utY9LsN1oe +3R7igL0ccZqDW2kVbS3O6T+GfbaRx0h54x+0u4csD8DOhT0Vvh1rKOgm74kU +bFpxGzWknBWi98clPMMuf3l1MEGSDabe1P/qwp4f84jJvMwGh3Q7Pw1ix6gw +7t8LZIcT2y4+ZA3B9VbLys9ROCE5wGyDJXZf1/TTP7c4IcrYOcMVW2bxsSv/ +Vi5wW7aKPoldqW2XpbbCBUr3X4RnY7fWR7EGNG6E28kqHGPYjJbub+NmvFD3 +QiCyIJREQja8AtFPeSExKFqvHlujhwp8+nxQ1b3k14PtP/LwhqY6P1zKFlDk +DSNRMFuHxl5eAdCQ5mdLwB6Vq1pIYgpCA3/rgbOn8fwQ7Zs6tYQgip2GirDZ +KkhZsVNCEKMiXdSKLaO1/VD5lBDMZ400c4eTyNUso/btoDDYcXf75GF3+oSE +ir7eCkq/NsGHMyQaKE1P9dwoAo6JTV5/sKenym/d2ScCnQW5zB0RJOIO+95t +2CwCua3vImOwqYmO2p4PReGzNEGqRJKo4bYuo6xQHM59E3LJjyLR7dH/wg3C +pIDt0UJlbyyJLA+nDITelQIh8EnkjcP5rcLmd0kp0Kv2aAZs7duqW2VcpGG5 +d4Vejt3q7XGf03g7pIn1+J6LJ9Hi3OCZ8fMy8NrSxGJfAomET1If3LeVgw9D +L2NFkkhE3ub2s/eXAy3q53En7LqvXZIzyXLQda6gLgfb3eboeaVmOVA3tUiW +SMb17Qo/dJ0iD+dX9fsUUnD/k6XzcaIKwDI7Tbe5SCJHXx416yFF2DxsIDqW +RiIUfphyZFURWs5+zKGkk0glqVCPJq4ERqwnIuOwWW5pmcYdVILrvxOPiV4h +0d0BtyO1z5RgLufOY9sMfD6dKhMkinaARqjs9Y4sXB/V9uOktzJwb72iKpxL +olsOOV9W4pRB9UZ0pz92uvfQIMf/lOGCVU73c2za2dNT0t3KYG3osxZ6nUSC +TfksDmYqoD54drTvb7x/tGZVGuV3QbpH6ExDPokk5a7Ep46owmudaz9bbpGo +6dKy8k82NVgaXUYat/F8LLn0ELJqwHpu5UcedkGrgrKphxo4zSw+P1NMIjnf +hvc/PqnBTSXex5RSPN7KUUXitToQ3dvknpaTSEpSmpBx0QCHrC8iu2pJpFoc +xvsLUWC4v1HS4zmJvGnnGWp2FEiPLf7Rj50rnzXg6U4BD1FuA48WErEXVd97 +GUEB1b/tJo+14vNWMOmYVUOBJ4N8rH4v8X2a65mvLK8FTuz3N6W24/VNtVF3 +5tKGEqrr39u6SXQzRMH+YYcOvA4IdgwcJVFXONJLLNYH3qHPmllCY0jW44Pd +0YC9UHJB30XVfAzR1x5VSUUCDAnbUL7FjCHRqboNot6mYHCuPf74P2MoTMvo +a5YKFdzNtNO8OMaR98zvNuHJfTAr6MQSaTeO7pqGbijstADhi4tB6iXj6Pay +/7PKbCsw2u//bOHPOPphIvamNX4/iJ29lvycmED9LOwLQ162UCyXdc23ZwIF +bgvKSJA/AGfE9FqvmkyiquNtzX8l2cPb9gi/lH8mUdSS+Mqu4wdB46uhgYLR +FGJYmzu9OnYItNPTvf5tn0L6bpkmowcd4PXF526BHtP4O5Dv36rlCPpaGzI7 +Z6eRRMn5prKdh+F7K2uzZ9YMqhtUsbHjc4IeV5v6YM1ZJN0z7xs+4wSvXmWs +cnXPIq2/MitvDR6B0mbJTKMLcyifY0k9q8UZ5loM/HUl59Ejk919SfUuwKbr +e1UwZh7l6l0S/F3uCp1qCjst++dR55fiZK3LbvAyvVImSn8BPbTNUwg+6w5d +nJKGpQULaOGkA0sg7SiYtKWfeLK6gBjmyn6zZh5Qf3FFgt9tEZXNfP4RqnsM +JH9pOnT9s4icbxb7HOX1hAj+oX+bti2h+7X7j7GneILg5Kx2avwS0pd8//Pi +T094/OSQ877PS0h+0Lfv3XEvSKdzCu5UX0YjPCcO5H33gulHW37+SFpGXel2 +PhaHvWHaq5hnV/cyyo4o5Dnd5Q2lK043XsowUNPTtZ8+Vj7wKNRam51goM3u +kKLV4AM3JPaWVBYykMyWV53bmnyAycnNn3ODgTQ6bMW4nvqAlKX+9NmbDHTI +yO1O7zMfMGlg53G4xUDZ28Jfx/7rA0nHd7+ZL2Egif6KzW29PuDc6WUoVMVA +Ch6iue4rPqDx6mn8VCMD6XvOliVp0yAj9+6PmQ8MVHJ9PtROlwZnH8ueKP3I +QFu6F41F99AgP1TQ3fMTA83uW+kpM6SBbf9AXVcvA99fLKwdpjTIuXjVteIL +A/GvCLoIHaRB49AjWcshBhpJ09lUeJIGdqvl/dLTDJTeGHO8roQGKvKxFgYs +THSSkqMfUUaD4xO8tE5smzs1m/aU06APXvz2YWUi7hzyzuO7NFC9aV6UysZE +SSH2k48e0CDvaU1DDwcTxSgrnHj4nAZfLfK47TYxkX/O64DaARoMHG0L/yrI +RFb8pFHIIA3Ik/JjnkJMtDOJhY8yTANt9QtdI9hkiM7dmlEaXCoR4J8SZiIv +u8KZe9M0YNy7ormA/xucOUMDq/+jQY20HNeIOBNZhEoEV4rQwUNR0cpHlome +FyZbZ4nRocNg7vQgtlHHokKEBB0mXlxjOSrHRBqKrz+bSdPhZNeW3Y7yTCT+ +KdrsiyIdUocXZgwUmWjKoF+EW4cOBdwvvk7sZKIrbDee+DrQoU3W9H3Hbjz+ +3by5tofpkMYrfklHg4kS3SJCtI7QYWzbs7x87IgH9jvWXOmwNrPr/QlNXD/B +mnnNmw5BiVzRLFpMpNXuTXtxig6jxwVruXWZ6FOmIo98Bh0KzQqVigyZqArx ++Y1n0iH5d1/EPHbizHLr3at0kAgW0jc2YiKKVWvcnhxcf6gBey92OovPom0B +HQb0B5o4jPF/VNCNzxGVdFg0t6g3BSaSkrqga1xFB6Xe0pEU7OX2oKvs9+hg ++GdHbAd2kRKyTb9PB9dqB4aDCROt9vc332qgA3X7Cou7KRM9sJEse9uG51ez +McqeykSp/7FxZrfT4dgry5DL2N5lk14uHXSQ69f++ApbgKNBcqSTDsurv4aN +9jFRQKPzlZ8f6ZBht2WzjDkTyatcC1cYpcMdJf2ydgsm+u9TbPcESYce/2rP +VeyuJLpG9TgdOqMHEndbMlHckPak/jQd3rmbCGRh9+V2Hz2wRAfimhjF3oqJ +sjYI7otiJeDTK7e/71kzUdNiv1sYOwHPqnXfD2CP9ZeHBHISwHe+wJ53P94P +D6g3vDcRUOU4KUPHJj0jflkLErDrz0F+fhtcv80+oX3CBFACQiJ1sQ31hJTR +VgJg7a2KB3YGX6WTljgBF/1FPSvW2xu+1UjKEhD4cFJ4ry0TEcWVbVvlCRCM +nq8+hp2REfltsyIBZOx0ZgI2SQjzcSgTEHK+dEfLeruwhd+0BgH0LYev77Vj +ooY/wvEkhYA+MT2aK/boxOBfg9oEJLr2hIVjGzRHtfTsIUDIUcm3EnskoEr6 +CRAQMxF5ZfMBJuJ3jtZ5bIr7C0xOUcLWN7O0qaESoCkr/cIIO118OLLYkoBO +ap+AL3YdR3VGoTUBLM3L0tHY3+eiS6/bENAVnRySjr3n5dYPafYENFWsTtRi +e9cMT6UcIuDNhT6+Vuy0vGq2c44EnIqQOtODPRxipRHuTEAk9aX4Ejafh4hF +sCvuf0LBgdUe51l9P+rvToCW5pd3/Nhp22NTPTwJ0N5uWrgDu47busjZG6/H +zPQMBXuYIVJ/iEaAV9X3hL3YfEPfO20IAv4ZkXezWM/ruEea+xGgblwRaY/t +/Th2FfwJyM4+0++8nl9kvcUwAI9nJjnZcz0/TXSXTiABzdGfwnzX8yNGTHYH +E2CT51t2EpuXVuOsHEKA3Wcd2VBsvQNxQfJhBNSOw7cz6/kG+5OlwglwrkwZ +jsa+rCiWLxpBgDJl06547EcCo/cFowgQftBal4A99KumnSeGAK7c+tTz6/lj +cUOccQQsBo3dSsTWfb//x1o8AT0/bVmTsP8PgXLkQA== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6044061540843431, - 1.5841467887057727`}}, + "PlotRange" -> {{0, 180}, {0.7012404402401149, + 1.3946580935440709`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6044061540843444}, + "AxesOrigin" -> {0, 0.7012404402401164}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.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 +13618,21 @@ r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6044061540843431, - 1.5841467887057727`}}, + "PlotRange" -> {{0, 180}, {0.7012404402401149, + 1.3946580935440709`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6044061540843444}, + "AxesOrigin" -> {0, 0.7012404402401164}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 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 +13646,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:eJwV1nk4VdsbB3BzZcpQxshchDimDFkvTqaQIpmS4ZxNEkIySxkqEXKj+zOU +MoSIJlNdReVKUVRShNjm2TnqlvyWP/azn8+znue73jXuLesddIjOxsLCMo6f +9fept+o7Hne9Nc7orWq/Ekwi49nbOt7USmS/cv3XugcLdbMVqE3Idu1Iega2 +Pe0NF6/WCzSyNH4uE7smIr6Fk9qBXPpsPmdhX3wp1hxf/g4JNZzPzMau7zpV +8JvyAVXkpVVcw57sa4+JbOxFZJr/juvYEqPybkyzr+iv/0lw5mHvn4vRD+34 +hqo+5FMLsZ/+nuSJKB9CR+2WR4uwPyaIRj8K/I7ei0tPlGDPclEnlymjKMxO +0q4Cm+tysIvWComqOaa33MOWFsxvO9U4jgyPZOx9iG0nySyZNZtGh80dHzRj +EzfkRNQ2zqJGuTC2V9jxigeSTnTMIaqkX+0b7F7RHs2w8gU0vtKh9xWb5up/ +/OrlRTSsasw3gj2fx3KzNnAJDW5PpE5jb5RTE1igMNCmn+m9q9jZtBYLga1M +hEwcdTacIpFMqUv87hUmMueZWxLA3qOaPHuy8QdKYSm5pojtp/utY9LsN1oe +3R7igL0ccZqDW2kVbS3O6T+GfbaRx0h54x+0u4csD8DOhT0Vvh1rKOgm74kU +bFpxGzWknBWi98clPMMuf3l1MEGSDabe1P/qwp4f84jJvMwGh3Q7Pw1ix6gw +7t8LZIcT2y4+ZA3B9VbLys9ROCE5wGyDJXZf1/TTP7c4IcrYOcMVW2bxsSv/ +Vi5wW7aKPoldqW2XpbbCBUr3X4RnY7fWR7EGNG6E28kqHGPYjJbub+NmvFD3 +QiCyIJREQja8AtFPeSExKFqvHlujhwp8+nxQ1b3k14PtP/LwhqY6P1zKFlDk +DSNRMFuHxl5eAdCQ5mdLwB6Vq1pIYgpCA3/rgbOn8fwQ7Zs6tYQgip2GirDZ +KkhZsVNCEKMiXdSKLaO1/VD5lBDMZ400c4eTyNUso/btoDDYcXf75GF3+oSE +ir7eCkq/NsGHMyQaKE1P9dwoAo6JTV5/sKenym/d2ScCnQW5zB0RJOIO+95t +2CwCua3vImOwqYmO2p4PReGzNEGqRJKo4bYuo6xQHM59E3LJjyLR7dH/wg3C +pIDt0UJlbyyJLA+nDITelQIh8EnkjcP5rcLmd0kp0Kv2aAZs7duqW2VcpGG5 +d4Vejt3q7XGf03g7pIn1+J6LJ9Hi3OCZ8fMy8NrSxGJfAomET1If3LeVgw9D +L2NFkkhE3ub2s/eXAy3q53En7LqvXZIzyXLQda6gLgfb3eboeaVmOVA3tUiW +SMb17Qo/dJ0iD+dX9fsUUnD/k6XzcaIKwDI7Tbe5SCJHXx416yFF2DxsIDqW +RiIUfphyZFURWs5+zKGkk0glqVCPJq4ERqwnIuOwWW5pmcYdVILrvxOPiV4h +0d0BtyO1z5RgLufOY9sMfD6dKhMkinaARqjs9Y4sXB/V9uOktzJwb72iKpxL +olsOOV9W4pRB9UZ0pz92uvfQIMf/lOGCVU73c2za2dNT0t3KYG3osxZ6nUSC +TfksDmYqoD54drTvb7x/tGZVGuV3QbpH6ExDPokk5a7Ep46owmudaz9bbpGo +6dKy8k82NVgaXUYat/F8LLn0ELJqwHpu5UcedkGrgrKphxo4zSw+P1NMIjnf +hvc/PqnBTSXex5RSPN7KUUXitToQ3dvknpaTSEpSmpBx0QCHrC8iu2pJpFoc +xvsLUWC4v1HS4zmJvGnnGWp2FEiPLf7Rj50rnzXg6U4BD1FuA48WErEXVd97 +GUEB1b/tJo+14vNWMOmYVUOBJ4N8rH4v8X2a65mvLK8FTuz3N6W24/VNtVF3 +5tKGEqrr39u6SXQzRMH+YYcOvA4IdgwcJVFXONJLLNYH3qHPmllCY0jW44Pd +0YC9UHJB30XVfAzR1x5VSUUCDAnbUL7FjCHRqboNot6mYHCuPf74P2MoTMvo +a5YKFdzNtNO8OMaR98zvNuHJfTAr6MQSaTeO7pqGbijstADhi4tB6iXj6Pay +/7PKbCsw2u//bOHPOPphIvamNX4/iJ29lvycmED9LOwLQ162UCyXdc23ZwIF +bgvKSJA/AGfE9FqvmkyiquNtzX8l2cPb9gi/lH8mUdSS+Mqu4wdB46uhgYLR +FGJYmzu9OnYItNPTvf5tn0L6bpkmowcd4PXF526BHtP4O5Dv36rlCPpaGzI7 +Z6eRRMn5prKdh+F7K2uzZ9YMqhtUsbHjc4IeV5v6YM1ZJN0z7xs+4wSvXmWs +cnXPIq2/MitvDR6B0mbJTKMLcyifY0k9q8UZ5loM/HUl59Ejk919SfUuwKbr +e1UwZh7l6l0S/F3uCp1qCjst++dR55fiZK3LbvAyvVImSn8BPbTNUwg+6w5d +nJKGpQULaOGkA0sg7SiYtKWfeLK6gBjmyn6zZh5Qf3FFgt9tEZXNfP4RqnsM +JH9pOnT9s4icbxb7HOX1hAj+oX+bti2h+7X7j7GneILg5Kx2avwS0pd8//Pi +T094/OSQ877PS0h+0Lfv3XEvSKdzCu5UX0YjPCcO5H33gulHW37+SFpGXel2 +PhaHvWHaq5hnV/cyyo4o5Dnd5Q2lK043XsowUNPTtZ8+Vj7wKNRam51goM3u +kKLV4AM3JPaWVBYykMyWV53bmnyAycnNn3ODgTQ6bMW4nvqAlKX+9NmbDHTI +yO1O7zMfMGlg53G4xUDZ28Jfx/7rA0nHd7+ZL2Egif6KzW29PuDc6WUoVMVA +Ch6iue4rPqDx6mn8VCMD6XvOliVp0yAj9+6PmQ8MVHJ9PtROlwZnH8ueKP3I +QFu6F41F99AgP1TQ3fMTA83uW+kpM6SBbf9AXVcvA99fLKwdpjTIuXjVteIL +A/GvCLoIHaRB49AjWcshBhpJ09lUeJIGdqvl/dLTDJTeGHO8roQGKvKxFgYs +THSSkqMfUUaD4xO8tE5smzs1m/aU06APXvz2YWUi7hzyzuO7NFC9aV6UysZE +SSH2k48e0CDvaU1DDwcTxSgrnHj4nAZfLfK47TYxkX/O64DaARoMHG0L/yrI +RFb8pFHIIA3Ik/JjnkJMtDOJhY8yTANt9QtdI9hkiM7dmlEaXCoR4J8SZiIv +u8KZe9M0YNy7ormA/xucOUMDq/+jQY20HNeIOBNZhEoEV4rQwUNR0cpHlome +FyZbZ4nRocNg7vQgtlHHokKEBB0mXlxjOSrHRBqKrz+bSdPhZNeW3Y7yTCT+ +KdrsiyIdUocXZgwUmWjKoF+EW4cOBdwvvk7sZKIrbDee+DrQoU3W9H3Hbjz+ +3by5tofpkMYrfklHg4kS3SJCtI7QYWzbs7x87IgH9jvWXOmwNrPr/QlNXD/B +mnnNmw5BiVzRLFpMpNXuTXtxig6jxwVruXWZ6FOmIo98Bh0KzQqVigyZqArx ++Y1n0iH5d1/EPHbizHLr3at0kAgW0jc2YiKKVWvcnhxcf6gBey92OovPom0B +HQb0B5o4jPF/VNCNzxGVdFg0t6g3BSaSkrqga1xFB6Xe0pEU7OX2oKvs9+hg ++GdHbAd2kRKyTb9PB9dqB4aDCROt9vc332qgA3X7Cou7KRM9sJEse9uG51ez +McqeykSp/7FxZrfT4dgry5DL2N5lk14uHXSQ69f++ApbgKNBcqSTDsurv4aN +9jFRQKPzlZ8f6ZBht2WzjDkTyatcC1cYpcMdJf2ydgsm+u9TbPcESYce/2rP +VeyuJLpG9TgdOqMHEndbMlHckPak/jQd3rmbCGRh9+V2Hz2wRAfimhjF3oqJ +sjYI7otiJeDTK7e/71kzUdNiv1sYOwHPqnXfD2CP9ZeHBHISwHe+wJ53P94P +D6g3vDcRUOU4KUPHJj0jflkLErDrz0F+fhtcv80+oX3CBFACQiJ1sQ31hJTR +VgJg7a2KB3YGX6WTljgBF/1FPSvW2xu+1UjKEhD4cFJ4ry0TEcWVbVvlCRCM +nq8+hp2REfltsyIBZOx0ZgI2SQjzcSgTEHK+dEfLeruwhd+0BgH0LYev77Vj +ooY/wvEkhYA+MT2aK/boxOBfg9oEJLr2hIVjGzRHtfTsIUDIUcm3EnskoEr6 +CRAQMxF5ZfMBJuJ3jtZ5bIr7C0xOUcLWN7O0qaESoCkr/cIIO118OLLYkoBO +ap+AL3YdR3VGoTUBLM3L0tHY3+eiS6/bENAVnRySjr3n5dYPafYENFWsTtRi +e9cMT6UcIuDNhT6+Vuy0vGq2c44EnIqQOtODPRxipRHuTEAk9aX4Ejafh4hF +sCvuf0LBgdUe51l9P+rvToCW5pd3/Nhp22NTPTwJ0N5uWrgDu47busjZG6/H +zPQMBXuYIVJ/iEaAV9X3hL3YfEPfO20IAv4ZkXezWM/ruEea+xGgblwRaY/t +/Th2FfwJyM4+0++8nl9kvcUwAI9nJjnZcz0/TXSXTiABzdGfwnzX8yNGTHYH +E2CT51t2EpuXVuOsHEKA3Wcd2VBsvQNxQfJhBNSOw7cz6/kG+5OlwglwrkwZ +jsa+rCiWLxpBgDJl06547EcCo/cFowgQftBal4A99KumnSeGAK7c+tTz6/lj +cUOccQQsBo3dSsTWfb//x1o8AT0/bVmTsP8PgXLkQA== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6044061540843431, 1.5841467887057727`}}, + "PlotRange" -> {{0, 180}, {0.7012404402401149, 1.3946580935440709`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6044061540843444}, + "AxesOrigin" -> {0, 0.7012404402401164}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 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 +13753,8 @@ r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.6044061540843444}, + AxesOrigin->{0, 0.7012404402401164}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -8177,7 +13782,8 @@ r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.6044061540843431, 1.5841467887057727`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.7012404402401149, 1.3946580935440709`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -8185,9 +13791,9 @@ r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913320330871353`*^9}, + CellChangeTimes->{3.9913320330871353`*^9, 3.994015528530054*^9}, CellLabel-> - "Out[220]=",ExpressionUUID->"a15038e3-a3ab-e64e-ad3b-e8cb09ec92a2"] + "Out[139]=",ExpressionUUID->"e8c709c6-803b-414a-b05a-7f6e1b547131"] }, Open ]], Cell[CellGroupData[{ @@ -8250,205 +13856,168 @@ 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[\\\"4.217030854702368`*^-271\\\", \ \\\"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, + 69, 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991332033325203*^9, 3.9940155286637363`*^9}, CellLabel-> "During evaluation of \ -In[221]:=",ExpressionUUID->"bf289d91-76e3-3e4e-937f-93db9b038d39"], +In[140]:=",ExpressionUUID->"04227ede-f799-4f47-a9df-0700a46a3f1a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.376858869110442`*^-282\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.287610393603105`*^-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}, + 140, 70, 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991332033325203*^9, 3.994015528670294*^9}, CellLabel-> "During evaluation of \ -In[221]:=",ExpressionUUID->"a52542a3-f03a-414f-86c8-3b114308924e"], +In[140]:=",ExpressionUUID->"23d7e711-2c68-4321-bcd7-9a947459b14b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.193593532260836`*^-293\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.2409587440142888`*^-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, 140, 71, 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991332033325203*^9, 3.994015528678277*^9}, CellLabel-> "During evaluation of \ -In[221]:=",ExpressionUUID->"1c7104f0-99cd-c74c-b855-98253be62519"], +In[140]:=",ExpressionUUID->"4a3c3fbc-b616-4d7c-beaa-5867a6572326"], 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, 72, 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991332033325203*^9, 3.994015528686384*^9}, CellLabel-> "During evaluation of \ -In[221]:=",ExpressionUUID->"e66837df-658a-2c4c-973b-50c515d3781f"], +In[140]:=",ExpressionUUID->"3c11a6ce-ee8d-4fbe-a947-5de673d501c3"], 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:eJwV12k4VG0YB3ChQqHsu5nBVPZ9nXHfWqTslRJCdiWpULSQIkmyVJYUCi1i +5kx4E1FIpCgkKZS0yb4V8nrP++lcv+s5H86z3P/nPlSvg9t8ubm4uGSXcHH9 +/5zpbapXvpBv/kbnnVWu7HrzjhtSERZdMSCy1ue2dTYFULzVS6orFSzCnsar +ZGtDuMO9dzxdN4H/UFHrimyE1SOSqbPvOFBy0spm4JoD9FXZHZx6VwvH18aN ++17zBEvlwZ7xd21gtEQ85kRmCMy+M7oy9q4f+J0P9X1KiYa6Dbfz39ychEpO +WxGFmgJyfRXfvNQXQOfebNIENRPEgjzuLd/Ag2IVTtcdHXIhVcey0s6JD6fu +dGf3KObD+wztJ+OrBDEhv6+60+c2XMiPauWWXo2X3qtHD6XdA8nLX86nXRfF +On3G5SDbYpBSKzv7p1AU2/N19rzcWQwytXFRe9iieGVKVJ/uWQwKY+vC1tSJ +IqPqy7LGw8WgYhPiWflDFD8dX1SsTy8GPd4Fwy96YthE6FKvfyoG+1CJAd0X +YliW8/31iwMlcG7HFvO2GXHMmkzi6QtjgUxpiwz3Egn043zP9D7FghLRHb91 +Vkhgdmbnr09xLOhsc2enKEpg1qmF6mfpLFB2DKU5WkngktqHAsYVLKi1zVn2 +OlMCLxDmZ6rnWLBgOd3yiiGJjzOFJugMNiQXRhYtWEpinuwWkylgg/IyrngN +R0ns4hZof7yBDTbPBCwu+kqixjGRhU3WbMjaQHlgkySJWi26yqoubDBG6/Tm +PklcZ9SWYHGUDUdM8jyaYqSQwr3Eq6iEDVtzhaasE6VwVQfjYxPBBtryE/Et +V6QwafS73NdSNrzu2Em035HCITPz8dWVbNAMWcnT2yKFZXU8Axufs+FH4dHC +CRlpHFcT/CbcxwY3Mbth2QfSeNZGUNd0JQF6xytP36iSRrGIYv9xIQIE+tdK +UBuk0e8Mw7tgNQEVLB6gv5dGbg+X+zySBEhYVyRrL0ojU1gvPpNKwOvTyvqb +rGUwkOtcuKohARtH5yKDv8igUfKH/s9uBERYXVZ9OiSDtmceetM9CCjJ0+gW +nZHB+XX8Lf57CZDa4WlSwSeLWmVFHp99CRh6+Ow3j6Ys+gVzjrOCCUiLSQ7N +PCaL/I9Ta/6JIqBfnB5cLyiHw5dkfkXkECB5sEZeUlIOXw5fmHfNI8Cm0flV +IEUOy+7Z/TW9RUB55AV1YT05jBfobR0tJCChb2xwt7McutwZatAvIUD3bqX/ +6E05XKS/NVCvIuA0w3GvjLE8Nj73t25/S4CV+40Jo/XyqHd9W2LoOwKEon+d +cbKRx6slLeYi7wnIrostTPaUR5ckv7n1Hwl4uPXRr2Xn5TExv/F9RD8BY85K +4ZPv5ZG1NOcec4SAfyJDlq8ekMf6okwsHCXgVPbjDM0R0pm7HFaME7Dy067K +QG4FdL3p0PdikoA1/olcn1QVcGDlxxeKswS4h00nvDyugDe6hXdTeTigkr5e +bjBWAcVKz7Y68nLI9btUvDxZAXs28TWdWsqByL/rXq/PV0AnidLNLcs5cOWM +u3jFSwXMPqISu2ElB16mPM8pkFfE6CG55HNiHEh7IKZTt0YRL7m9PBMtzgGX +t3trP+koonPpN95wCQ78kPo7IGupiJVXJDk7pTjAk6utmhqsiLU/65pHZDlg +WpJZeqpGEUNjgrIiaRzY+K5lYaRRERs6azu1lDhgx8W72aNNEa1bLsr1k/be +FvweviqiuMBIA1OFA5bHqVHRSyko4ffn9ps1HGgWrrplLEDBGYawxcG1HHDI +39k4JkRBm5G4H/zrOOD66sLqvVIUHJGR9zVU5UCI4swtCzUKnggpogepc2D6 +QXLjrBYFp6oTNk6QjrRSGyb0KagQ+i0sTIMDsYc8DWnmFEwrKxE/osmBrLoX +jdyOFPwVNeRqrc0BRWff4UdOFOzpFF37iHT+0OLqIy4U1Lm6RJCuwwGWuIHr +F28K5vzoV5omXe+fM1wXTkHdZw0ZIXoc2PLXROTEcQqmW9HNG0m3JHcY6kdT +MKSxbom8PgfeV/BH55+noF7P6W+PSbvb5ee7JVFQqoaPX8CAAwP95k1iaRSM +Mcyy2U56ZEWoSGw2BQvlCJMe0kdyhYyYeRTc5XFzQN6QA3/077pOF1DwYm/Y +A1fSPO69+b4sCq6pu1nTQjp+4liTfCkF20IP/MtjxAGhc6Ijbx9S8P7cX29D +0lJsKyPLWgoOXdpRmEr6+sYvrv82UFDbKe1sFWna+5PR5c0UPLL7bOIX0ncO +SBUEv6bgeP5A9XJjDmhwP2iiv6Xg08FDcutIc67ajvS+p2Bg/GDBZtLGaj9E +0nsp6B4r6OZN+nFNjJH9F3L9U7PgBOn1O+Tdlv8g94t/m2Mq6ec//omuGaLg +0pGplALSNie3FRwdp+C2nxu5y0m3rR5u0pohx+14b9WR3lV4buT7HAX9xWdC +W0h/NKWJ5i5SMKiv51gnaa/WKiNnXioaT0SxPpD+7r3LbRU/FfNM8qR7SQf9 +GY9uFKRiteXyhz2kTQ/5SXwToaJDQSW9mzTfYHcRjxQVl6u627WT7vSyt6DK +UzGdZ1iriXTBh7pOcxoVJdb7v6wkHbrDOMhtDRUtO18qF/0/v1f3l0SqU7Ev +WcE0nfQqS2p6ug4Vu6jugtGke6uvqJcZUpEjmZTjS/q+kUBtmxn5Pb3E+P/r +F8k+tWsMqej15BXvGtJW6yaHBC2p6Nf/7T03aYmb/jFq1uT8LHkOfyD3Z0Dm +o+QWByoaNq5rYZPmpDkU+zlRcUzBazSGtH2sSVeeBxULvNVi5Ukr/Ft8oMaH +itbzrfNfyfMyFE7j6Qkk51dRbFb0//kJWKEpFUrFv6abZNVJ7/wcVWcQQcWD +btKPv5PnUdllynn7KSpWebiq55J+Yt1zJimeioLf/I4uJ51U7yh9/yIVy30c +ncrJ8+7GbChpSqWiZOUvXi/Ss5qs97zXqXjqS2QPi6wXXZHTWscJKrqsY6aq +6HKA68J0fUY5FV8Q3bKVZL218OxzKa+kYtl4W5Qt6f3T22LHn1Fxqb7xh4D/ +67VL+YN/NxWXidT+G0HW92HHzJDYPip2i8lFzpD1jy8El90aoOKod0nXQdI9 +lTPavSNUjAua3bCbzAuJnMa4HTw0bEisnVhG5suAJFPuMB8Nz4wevr2PzB9O +MkFcEqSh//59Vs1kPtnHZH18IUnDIvf67WfI/Ir3DdK1UKdhYogvu0WZnJ/a +ql4NJxpeK2iObVfgwMx1mdN6LjTUGwlzECA9JayibOJBQ4eEXwbm8mS9T5rs +2xhIw8vlj5yuk/naX+k943KShif/yeIzIfP3hfU/QvEFNEyiLTX7voqsl8dP +iYv3aNi1ddx0TJjMI62XO9JYNNwnPuc/I8SBatHPWTcqaFgZv8Jujsx/zgeB +NWWvaBgB0/s+8ZH5t98d+qdpKDMpNEbn4kB6T0D/9zka2pwYtONZJOCy/ZHY +4UUaLnS3DH9cICBJL775D78S7sbTY+fmCYiZJ3YJKyhh40cntcczBOy/sDSE +YamEJobtcQVDBDCK7udevaqEcay0Q+GdBHygFOVsuqaE5waCCAnyvo28evfG +VI4SXvu+nlXaTt6Xpwuzt91Vwon1S37+fE3e1865GUJVSngo4cYhk2YC1i29 +nBz3WQlnqSY1B2rI/sTjeHS4ujIu+300W5e878s6IqJUdJRx8/X+nMR8AnZs +PXaqw0AZtW1exQzcJCDVIOyELijj200Bvy6S/YTgyoPHRhyVsfBske/zDAJ4 +K7xC/I6S45GCo28TCBgX2eq5s1YZuWQafgQcIKAriPZ633Nl9CyXSNu1n4An +DXMQ9VIZ7ws3f90QSEByZJHinU5lpJstnBcn+xvt/pV9s4PKyP3v0FQ22R8F +E617rouq4MPUtSlMawIG7Z1cB3xUUGCstL2VTsBAoufOw8vpuNhW8CH+HRuC +B9Vp2ivpqCDRu1/6LRt+b54dHl5FR7ZlmcWdNjYI8KTGBsrQ8e6FJXVPXrFB +O6Ku1FODjq7aHsyeOjac9KWL2m+n4+eRIdlnLDZImA+1quXQ0e5dVbdzHBu2 +jB7d8tVwDZb6Ovi1a7JhyJvvSGnUWtRm/LROrCoh/yckuc/VrsPkOlcZl7n7 +IPKKnsQeVcVzJ8vqf5gVgVw8y8HQUB0HJ4UymZvuQoaaySpRfw108h1yXud/ +G17IWBhMpmhiMathnkgpAFO52mStTi2MmhyJ/pR1C4R4bobujdHGrIPzPaw3 +eaBwWpGxm66DWXlT9c0/c4Bfxa1823Md1HxbF5ASkg2aTGnW0T26GPiciFjv +nQmHe0XqtnLp4Wmj0WUatldhdDLRaUuGHtZJnqJL5afBZq2GrC0a+ig/S42/ +YJ4C1ZNm879b9JF6bkquo/YiBKvrdr/xNcCLQ42//JvOA3PEp2M3vyFu/3Pz +vuRYLGxSlrIVvGmIved/0jSexsDa6IRjtUZGGF5ttqp4IQpUfU1qVLqNMGZy +o27L00jwrQ44W3rIGJ9ZP1xtFBsONbkdPuPiJsitsTBZlXIYpu4s/tb6xwR/ +yQZEtCQEg7dKEX+WrSletPCOSbIPhMhn7vvoDqbYWf53osg0EJJ9RZo520wR +JcSUulQCoaogIrF5lyk+jr2X5/Y3AMToVsILe03x5NxBY/F7AdBA/yrmGW6K +rwI2tzP5AkB1rSKFnmOKyty0QINWPxhXTTPkjJni7diIzwJxPtD1EjeJTpqi +pbL5mdowH3gSPLI9dNoU7w/YOMT6+kASZ8shwzlTZAuu3qG+yQdUTbnuP+Ix +wzt1ErsXeX3Aa8sBap2EGa6iukqUxnlDh//mlR0MMwyVulikmeoFD/PnP0/H +m2Hkluol1EZPMNwQ+nvrBTMUChsmKh55QtnnoZW5F83wWaPRQ9diT+Ao9Bpt +TTXDZksqpzLVE+5nPLl445oZdvQ1NA7u8YTcxFiTzSVmOBrR/W3JkAecDxVO +yWg3w4Kmn55tu93BZaMSmikw0JL3K69CoCssdPAJ1VEYePzR0K1aB1fI9R35 +sFWJgSoplVaRxq7wLa7iqMtaBpr/+nKYxucKh5vsWRG6DNytNj+1444LJNid +UHhoycAcjX0KxkO74ZHz27/6BxmoNSGbeOu0M8geOFeh+YR8f97L+uwnJ0ha +9DO4UMvAg38nevtfOQF3qiXxvZ6BWXuORtlXOsFg+dK7uU0M3NP6t27bVSd4 +xHU2Q6SdgbDHwIfL1glcLkcfnfnKQHFNPeexqh2QURlhUL2CiR+9Yi9/K9wO +4gJBhO0uJtakp4Q55TlC/oaTkWO7mWj17uOMarIj6J5M2pDmxkQLAWN34ShH +sBtjv+3ay8SjnD0PePc4Qlzn9Kx3EBP31x+0zJV2hD83o9ZHnmaiOyf6WsoV +B+g2S2svLGLi9+8mGira9hAQlp+9pYSJX6JcdDxX28NMSZnvEJuJ8wk0t/IJ +OxChdf3WKWdi78qVHQ/K7MCaT17u8RMmDpufFRtn2EFVR6FP+1smZnUtGHk7 +2MJWoYca4V1MzHBT09ysZwtdm5tmpD4wMZj2gn+ThC1MPfoV7/6JiaWpubSk +jzagkadd/HOQiaeeiJVv32cDVd0W4YnDTCTa+ji8djawVWw7aI0x8Q2l9U+L +jg34nQt7EzrNxC7VlyKsWWuYehKXJfmHiQFy9k/qe6whZi7d+9EcE5eyPgVO +PrWGVfp31fcsMFG2cddf00JruHHg0fTiIhMTM676XEuwhv8AT3n9rA== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -8462,164 +14031,123 @@ 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:eJwV12k4VG0YB3ChQqHsu5nBVPZ9nXHfWqTslRJCdiWpULSQIkmyVJYUCi1i +5kx4E1FIpCgkKZS0yb4V8nrP++lcv+s5H86z3P/nPlSvg9t8ubm4uGSXcHH9 +/5zpbapXvpBv/kbnnVWu7HrzjhtSERZdMSCy1ue2dTYFULzVS6orFSzCnsar +ZGtDuMO9dzxdN4H/UFHrimyE1SOSqbPvOFBy0spm4JoD9FXZHZx6VwvH18aN ++17zBEvlwZ7xd21gtEQ85kRmCMy+M7oy9q4f+J0P9X1KiYa6Dbfz39ychEpO +WxGFmgJyfRXfvNQXQOfebNIENRPEgjzuLd/Ag2IVTtcdHXIhVcey0s6JD6fu +dGf3KObD+wztJ+OrBDEhv6+60+c2XMiPauWWXo2X3qtHD6XdA8nLX86nXRfF +On3G5SDbYpBSKzv7p1AU2/N19rzcWQwytXFRe9iieGVKVJ/uWQwKY+vC1tSJ +IqPqy7LGw8WgYhPiWflDFD8dX1SsTy8GPd4Fwy96YthE6FKvfyoG+1CJAd0X +YliW8/31iwMlcG7HFvO2GXHMmkzi6QtjgUxpiwz3Egn043zP9D7FghLRHb91 +Vkhgdmbnr09xLOhsc2enKEpg1qmF6mfpLFB2DKU5WkngktqHAsYVLKi1zVn2 +OlMCLxDmZ6rnWLBgOd3yiiGJjzOFJugMNiQXRhYtWEpinuwWkylgg/IyrngN +R0ns4hZof7yBDTbPBCwu+kqixjGRhU3WbMjaQHlgkySJWi26yqoubDBG6/Tm +PklcZ9SWYHGUDUdM8jyaYqSQwr3Eq6iEDVtzhaasE6VwVQfjYxPBBtryE/Et +V6QwafS73NdSNrzu2Em035HCITPz8dWVbNAMWcnT2yKFZXU8Axufs+FH4dHC +CRlpHFcT/CbcxwY3Mbth2QfSeNZGUNd0JQF6xytP36iSRrGIYv9xIQIE+tdK +UBuk0e8Mw7tgNQEVLB6gv5dGbg+X+zySBEhYVyRrL0ojU1gvPpNKwOvTyvqb +rGUwkOtcuKohARtH5yKDv8igUfKH/s9uBERYXVZ9OiSDtmceetM9CCjJ0+gW +nZHB+XX8Lf57CZDa4WlSwSeLWmVFHp99CRh6+Ow3j6Ys+gVzjrOCCUiLSQ7N +PCaL/I9Ta/6JIqBfnB5cLyiHw5dkfkXkECB5sEZeUlIOXw5fmHfNI8Cm0flV +IEUOy+7Z/TW9RUB55AV1YT05jBfobR0tJCChb2xwt7McutwZatAvIUD3bqX/ +6E05XKS/NVCvIuA0w3GvjLE8Nj73t25/S4CV+40Jo/XyqHd9W2LoOwKEon+d +cbKRx6slLeYi7wnIrostTPaUR5ckv7n1Hwl4uPXRr2Xn5TExv/F9RD8BY85K +4ZPv5ZG1NOcec4SAfyJDlq8ekMf6okwsHCXgVPbjDM0R0pm7HFaME7Dy067K +QG4FdL3p0PdikoA1/olcn1QVcGDlxxeKswS4h00nvDyugDe6hXdTeTigkr5e +bjBWAcVKz7Y68nLI9btUvDxZAXs28TWdWsqByL/rXq/PV0AnidLNLcs5cOWM +u3jFSwXMPqISu2ElB16mPM8pkFfE6CG55HNiHEh7IKZTt0YRL7m9PBMtzgGX +t3trP+koonPpN95wCQ78kPo7IGupiJVXJDk7pTjAk6utmhqsiLU/65pHZDlg +WpJZeqpGEUNjgrIiaRzY+K5lYaRRERs6azu1lDhgx8W72aNNEa1bLsr1k/be +FvweviqiuMBIA1OFA5bHqVHRSyko4ffn9ps1HGgWrrplLEDBGYawxcG1HHDI +39k4JkRBm5G4H/zrOOD66sLqvVIUHJGR9zVU5UCI4swtCzUKnggpogepc2D6 +QXLjrBYFp6oTNk6QjrRSGyb0KagQ+i0sTIMDsYc8DWnmFEwrKxE/osmBrLoX +jdyOFPwVNeRqrc0BRWff4UdOFOzpFF37iHT+0OLqIy4U1Lm6RJCuwwGWuIHr +F28K5vzoV5omXe+fM1wXTkHdZw0ZIXoc2PLXROTEcQqmW9HNG0m3JHcY6kdT +MKSxbom8PgfeV/BH55+noF7P6W+PSbvb5ee7JVFQqoaPX8CAAwP95k1iaRSM +Mcyy2U56ZEWoSGw2BQvlCJMe0kdyhYyYeRTc5XFzQN6QA3/077pOF1DwYm/Y +A1fSPO69+b4sCq6pu1nTQjp+4liTfCkF20IP/MtjxAGhc6Ijbx9S8P7cX29D +0lJsKyPLWgoOXdpRmEr6+sYvrv82UFDbKe1sFWna+5PR5c0UPLL7bOIX0ncO +SBUEv6bgeP5A9XJjDmhwP2iiv6Xg08FDcutIc67ajvS+p2Bg/GDBZtLGaj9E +0nsp6B4r6OZN+nFNjJH9F3L9U7PgBOn1O+Tdlv8g94t/m2Mq6ec//omuGaLg +0pGplALSNie3FRwdp+C2nxu5y0m3rR5u0pohx+14b9WR3lV4buT7HAX9xWdC +W0h/NKWJ5i5SMKiv51gnaa/WKiNnXioaT0SxPpD+7r3LbRU/FfNM8qR7SQf9 +GY9uFKRiteXyhz2kTQ/5SXwToaJDQSW9mzTfYHcRjxQVl6u627WT7vSyt6DK +UzGdZ1iriXTBh7pOcxoVJdb7v6wkHbrDOMhtDRUtO18qF/0/v1f3l0SqU7Ev +WcE0nfQqS2p6ug4Vu6jugtGke6uvqJcZUpEjmZTjS/q+kUBtmxn5Pb3E+P/r +F8k+tWsMqej15BXvGtJW6yaHBC2p6Nf/7T03aYmb/jFq1uT8LHkOfyD3Z0Dm +o+QWByoaNq5rYZPmpDkU+zlRcUzBazSGtH2sSVeeBxULvNVi5Ukr/Ft8oMaH +itbzrfNfyfMyFE7j6Qkk51dRbFb0//kJWKEpFUrFv6abZNVJ7/wcVWcQQcWD +btKPv5PnUdllynn7KSpWebiq55J+Yt1zJimeioLf/I4uJ51U7yh9/yIVy30c +ncrJ8+7GbChpSqWiZOUvXi/Ss5qs97zXqXjqS2QPi6wXXZHTWscJKrqsY6aq +6HKA68J0fUY5FV8Q3bKVZL218OxzKa+kYtl4W5Qt6f3T22LHn1Fxqb7xh4D/ +67VL+YN/NxWXidT+G0HW92HHzJDYPip2i8lFzpD1jy8El90aoOKod0nXQdI9 +lTPavSNUjAua3bCbzAuJnMa4HTw0bEisnVhG5suAJFPuMB8Nz4wevr2PzB9O +MkFcEqSh//59Vs1kPtnHZH18IUnDIvf67WfI/Ir3DdK1UKdhYogvu0WZnJ/a +ql4NJxpeK2iObVfgwMx1mdN6LjTUGwlzECA9JayibOJBQ4eEXwbm8mS9T5rs +2xhIw8vlj5yuk/naX+k943KShif/yeIzIfP3hfU/QvEFNEyiLTX7voqsl8dP +iYv3aNi1ddx0TJjMI62XO9JYNNwnPuc/I8SBatHPWTcqaFgZv8Jujsx/zgeB +NWWvaBgB0/s+8ZH5t98d+qdpKDMpNEbn4kB6T0D/9zka2pwYtONZJOCy/ZHY +4UUaLnS3DH9cICBJL775D78S7sbTY+fmCYiZJ3YJKyhh40cntcczBOy/sDSE +YamEJobtcQVDBDCK7udevaqEcay0Q+GdBHygFOVsuqaE5waCCAnyvo28evfG +VI4SXvu+nlXaTt6Xpwuzt91Vwon1S37+fE3e1865GUJVSngo4cYhk2YC1i29 +nBz3WQlnqSY1B2rI/sTjeHS4ujIu+300W5e878s6IqJUdJRx8/X+nMR8AnZs +PXaqw0AZtW1exQzcJCDVIOyELijj200Bvy6S/YTgyoPHRhyVsfBske/zDAJ4 +K7xC/I6S45GCo28TCBgX2eq5s1YZuWQafgQcIKAriPZ633Nl9CyXSNu1n4An +DXMQ9VIZ7ws3f90QSEByZJHinU5lpJstnBcn+xvt/pV9s4PKyP3v0FQ22R8F +E617rouq4MPUtSlMawIG7Z1cB3xUUGCstL2VTsBAoufOw8vpuNhW8CH+HRuC +B9Vp2ivpqCDRu1/6LRt+b54dHl5FR7ZlmcWdNjYI8KTGBsrQ8e6FJXVPXrFB +O6Ku1FODjq7aHsyeOjac9KWL2m+n4+eRIdlnLDZImA+1quXQ0e5dVbdzHBu2 +jB7d8tVwDZb6Ovi1a7JhyJvvSGnUWtRm/LROrCoh/yckuc/VrsPkOlcZl7n7 +IPKKnsQeVcVzJ8vqf5gVgVw8y8HQUB0HJ4UymZvuQoaaySpRfw108h1yXud/ +G17IWBhMpmhiMathnkgpAFO52mStTi2MmhyJ/pR1C4R4bobujdHGrIPzPaw3 +eaBwWpGxm66DWXlT9c0/c4Bfxa1823Md1HxbF5ASkg2aTGnW0T26GPiciFjv +nQmHe0XqtnLp4Wmj0WUatldhdDLRaUuGHtZJnqJL5afBZq2GrC0a+ig/S42/ +YJ4C1ZNm879b9JF6bkquo/YiBKvrdr/xNcCLQ42//JvOA3PEp2M3vyFu/3Pz +vuRYLGxSlrIVvGmIved/0jSexsDa6IRjtUZGGF5ttqp4IQpUfU1qVLqNMGZy +o27L00jwrQ44W3rIGJ9ZP1xtFBsONbkdPuPiJsitsTBZlXIYpu4s/tb6xwR/ +yQZEtCQEg7dKEX+WrSletPCOSbIPhMhn7vvoDqbYWf53osg0EJJ9RZo520wR +JcSUulQCoaogIrF5lyk+jr2X5/Y3AMToVsILe03x5NxBY/F7AdBA/yrmGW6K +rwI2tzP5AkB1rSKFnmOKyty0QINWPxhXTTPkjJni7diIzwJxPtD1EjeJTpqi +pbL5mdowH3gSPLI9dNoU7w/YOMT6+kASZ8shwzlTZAuu3qG+yQdUTbnuP+Ix +wzt1ErsXeX3Aa8sBap2EGa6iukqUxnlDh//mlR0MMwyVulikmeoFD/PnP0/H +m2Hkluol1EZPMNwQ+nvrBTMUChsmKh55QtnnoZW5F83wWaPRQ9diT+Ao9Bpt +TTXDZksqpzLVE+5nPLl445oZdvQ1NA7u8YTcxFiTzSVmOBrR/W3JkAecDxVO +yWg3w4Kmn55tu93BZaMSmikw0JL3K69CoCssdPAJ1VEYePzR0K1aB1fI9R35 +sFWJgSoplVaRxq7wLa7iqMtaBpr/+nKYxucKh5vsWRG6DNytNj+1444LJNid +UHhoycAcjX0KxkO74ZHz27/6BxmoNSGbeOu0M8geOFeh+YR8f97L+uwnJ0ha +9DO4UMvAg38nevtfOQF3qiXxvZ6BWXuORtlXOsFg+dK7uU0M3NP6t27bVSd4 +xHU2Q6SdgbDHwIfL1glcLkcfnfnKQHFNPeexqh2QURlhUL2CiR+9Yi9/K9wO +4gJBhO0uJtakp4Q55TlC/oaTkWO7mWj17uOMarIj6J5M2pDmxkQLAWN34ShH +sBtjv+3ay8SjnD0PePc4Qlzn9Kx3EBP31x+0zJV2hD83o9ZHnmaiOyf6WsoV +B+g2S2svLGLi9+8mGira9hAQlp+9pYSJX6JcdDxX28NMSZnvEJuJ8wk0t/IJ +OxChdf3WKWdi78qVHQ/K7MCaT17u8RMmDpufFRtn2EFVR6FP+1smZnUtGHk7 +2MJWoYca4V1MzHBT09ysZwtdm5tmpD4wMZj2gn+ThC1MPfoV7/6JiaWpubSk +jzagkadd/HOQiaeeiJVv32cDVd0W4YnDTCTa+ji8djawVWw7aI0x8Q2l9U+L +jg34nQt7EzrNxC7VlyKsWWuYehKXJfmHiQFy9k/qe6whZi7d+9EcE5eyPgVO +PrWGVfp31fcsMFG2cddf00JruHHg0fTiIhMTM676XEuwhv8AT3n9rA== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "PlotRange" -> {{0, 30}, {0., 0.07118023038603961}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +14159,19 @@ M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "PlotRange" -> {{0, 30}, {0., 0.07118023038603961}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +14185,122 @@ 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:eJwV12k4VG0YB3ChQqHsu5nBVPZ9nXHfWqTslRJCdiWpULSQIkmyVJYUCi1i +5kx4E1FIpCgkKZS0yb4V8nrP++lcv+s5H86z3P/nPlSvg9t8ubm4uGSXcHH9 +/5zpbapXvpBv/kbnnVWu7HrzjhtSERZdMSCy1ue2dTYFULzVS6orFSzCnsar +ZGtDuMO9dzxdN4H/UFHrimyE1SOSqbPvOFBy0spm4JoD9FXZHZx6VwvH18aN ++17zBEvlwZ7xd21gtEQ85kRmCMy+M7oy9q4f+J0P9X1KiYa6Dbfz39ychEpO +WxGFmgJyfRXfvNQXQOfebNIENRPEgjzuLd/Ag2IVTtcdHXIhVcey0s6JD6fu +dGf3KObD+wztJ+OrBDEhv6+60+c2XMiPauWWXo2X3qtHD6XdA8nLX86nXRfF +On3G5SDbYpBSKzv7p1AU2/N19rzcWQwytXFRe9iieGVKVJ/uWQwKY+vC1tSJ +IqPqy7LGw8WgYhPiWflDFD8dX1SsTy8GPd4Fwy96YthE6FKvfyoG+1CJAd0X +YliW8/31iwMlcG7HFvO2GXHMmkzi6QtjgUxpiwz3Egn043zP9D7FghLRHb91 +Vkhgdmbnr09xLOhsc2enKEpg1qmF6mfpLFB2DKU5WkngktqHAsYVLKi1zVn2 +OlMCLxDmZ6rnWLBgOd3yiiGJjzOFJugMNiQXRhYtWEpinuwWkylgg/IyrngN +R0ns4hZof7yBDTbPBCwu+kqixjGRhU3WbMjaQHlgkySJWi26yqoubDBG6/Tm +PklcZ9SWYHGUDUdM8jyaYqSQwr3Eq6iEDVtzhaasE6VwVQfjYxPBBtryE/Et +V6QwafS73NdSNrzu2Em035HCITPz8dWVbNAMWcnT2yKFZXU8Axufs+FH4dHC +CRlpHFcT/CbcxwY3Mbth2QfSeNZGUNd0JQF6xytP36iSRrGIYv9xIQIE+tdK +UBuk0e8Mw7tgNQEVLB6gv5dGbg+X+zySBEhYVyRrL0ojU1gvPpNKwOvTyvqb +rGUwkOtcuKohARtH5yKDv8igUfKH/s9uBERYXVZ9OiSDtmceetM9CCjJ0+gW +nZHB+XX8Lf57CZDa4WlSwSeLWmVFHp99CRh6+Ow3j6Ys+gVzjrOCCUiLSQ7N +PCaL/I9Ta/6JIqBfnB5cLyiHw5dkfkXkECB5sEZeUlIOXw5fmHfNI8Cm0flV +IEUOy+7Z/TW9RUB55AV1YT05jBfobR0tJCChb2xwt7McutwZatAvIUD3bqX/ +6E05XKS/NVCvIuA0w3GvjLE8Nj73t25/S4CV+40Jo/XyqHd9W2LoOwKEon+d +cbKRx6slLeYi7wnIrostTPaUR5ckv7n1Hwl4uPXRr2Xn5TExv/F9RD8BY85K +4ZPv5ZG1NOcec4SAfyJDlq8ekMf6okwsHCXgVPbjDM0R0pm7HFaME7Dy067K +QG4FdL3p0PdikoA1/olcn1QVcGDlxxeKswS4h00nvDyugDe6hXdTeTigkr5e +bjBWAcVKz7Y68nLI9btUvDxZAXs28TWdWsqByL/rXq/PV0AnidLNLcs5cOWM +u3jFSwXMPqISu2ElB16mPM8pkFfE6CG55HNiHEh7IKZTt0YRL7m9PBMtzgGX +t3trP+koonPpN95wCQ78kPo7IGupiJVXJDk7pTjAk6utmhqsiLU/65pHZDlg +WpJZeqpGEUNjgrIiaRzY+K5lYaRRERs6azu1lDhgx8W72aNNEa1bLsr1k/be +FvweviqiuMBIA1OFA5bHqVHRSyko4ffn9ps1HGgWrrplLEDBGYawxcG1HHDI +39k4JkRBm5G4H/zrOOD66sLqvVIUHJGR9zVU5UCI4swtCzUKnggpogepc2D6 +QXLjrBYFp6oTNk6QjrRSGyb0KagQ+i0sTIMDsYc8DWnmFEwrKxE/osmBrLoX +jdyOFPwVNeRqrc0BRWff4UdOFOzpFF37iHT+0OLqIy4U1Lm6RJCuwwGWuIHr +F28K5vzoV5omXe+fM1wXTkHdZw0ZIXoc2PLXROTEcQqmW9HNG0m3JHcY6kdT +MKSxbom8PgfeV/BH55+noF7P6W+PSbvb5ee7JVFQqoaPX8CAAwP95k1iaRSM +Mcyy2U56ZEWoSGw2BQvlCJMe0kdyhYyYeRTc5XFzQN6QA3/077pOF1DwYm/Y +A1fSPO69+b4sCq6pu1nTQjp+4liTfCkF20IP/MtjxAGhc6Ijbx9S8P7cX29D +0lJsKyPLWgoOXdpRmEr6+sYvrv82UFDbKe1sFWna+5PR5c0UPLL7bOIX0ncO +SBUEv6bgeP5A9XJjDmhwP2iiv6Xg08FDcutIc67ajvS+p2Bg/GDBZtLGaj9E +0nsp6B4r6OZN+nFNjJH9F3L9U7PgBOn1O+Tdlv8g94t/m2Mq6ec//omuGaLg +0pGplALSNie3FRwdp+C2nxu5y0m3rR5u0pohx+14b9WR3lV4buT7HAX9xWdC +W0h/NKWJ5i5SMKiv51gnaa/WKiNnXioaT0SxPpD+7r3LbRU/FfNM8qR7SQf9 +GY9uFKRiteXyhz2kTQ/5SXwToaJDQSW9mzTfYHcRjxQVl6u627WT7vSyt6DK +UzGdZ1iriXTBh7pOcxoVJdb7v6wkHbrDOMhtDRUtO18qF/0/v1f3l0SqU7Ev +WcE0nfQqS2p6ug4Vu6jugtGke6uvqJcZUpEjmZTjS/q+kUBtmxn5Pb3E+P/r +F8k+tWsMqej15BXvGtJW6yaHBC2p6Nf/7T03aYmb/jFq1uT8LHkOfyD3Z0Dm +o+QWByoaNq5rYZPmpDkU+zlRcUzBazSGtH2sSVeeBxULvNVi5Ukr/Ft8oMaH +itbzrfNfyfMyFE7j6Qkk51dRbFb0//kJWKEpFUrFv6abZNVJ7/wcVWcQQcWD +btKPv5PnUdllynn7KSpWebiq55J+Yt1zJimeioLf/I4uJ51U7yh9/yIVy30c +ncrJ8+7GbChpSqWiZOUvXi/Ss5qs97zXqXjqS2QPi6wXXZHTWscJKrqsY6aq +6HKA68J0fUY5FV8Q3bKVZL218OxzKa+kYtl4W5Qt6f3T22LHn1Fxqb7xh4D/ +67VL+YN/NxWXidT+G0HW92HHzJDYPip2i8lFzpD1jy8El90aoOKod0nXQdI9 +lTPavSNUjAua3bCbzAuJnMa4HTw0bEisnVhG5suAJFPuMB8Nz4wevr2PzB9O +MkFcEqSh//59Vs1kPtnHZH18IUnDIvf67WfI/Ir3DdK1UKdhYogvu0WZnJ/a +ql4NJxpeK2iObVfgwMx1mdN6LjTUGwlzECA9JayibOJBQ4eEXwbm8mS9T5rs +2xhIw8vlj5yuk/naX+k943KShif/yeIzIfP3hfU/QvEFNEyiLTX7voqsl8dP +iYv3aNi1ddx0TJjMI62XO9JYNNwnPuc/I8SBatHPWTcqaFgZv8Jujsx/zgeB +NWWvaBgB0/s+8ZH5t98d+qdpKDMpNEbn4kB6T0D/9zka2pwYtONZJOCy/ZHY +4UUaLnS3DH9cICBJL775D78S7sbTY+fmCYiZJ3YJKyhh40cntcczBOy/sDSE +YamEJobtcQVDBDCK7udevaqEcay0Q+GdBHygFOVsuqaE5waCCAnyvo28evfG +VI4SXvu+nlXaTt6Xpwuzt91Vwon1S37+fE3e1865GUJVSngo4cYhk2YC1i29 +nBz3WQlnqSY1B2rI/sTjeHS4ujIu+300W5e878s6IqJUdJRx8/X+nMR8AnZs +PXaqw0AZtW1exQzcJCDVIOyELijj200Bvy6S/YTgyoPHRhyVsfBske/zDAJ4 +K7xC/I6S45GCo28TCBgX2eq5s1YZuWQafgQcIKAriPZ633Nl9CyXSNu1n4An +DXMQ9VIZ7ws3f90QSEByZJHinU5lpJstnBcn+xvt/pV9s4PKyP3v0FQ22R8F +E617rouq4MPUtSlMawIG7Z1cB3xUUGCstL2VTsBAoufOw8vpuNhW8CH+HRuC +B9Vp2ivpqCDRu1/6LRt+b54dHl5FR7ZlmcWdNjYI8KTGBsrQ8e6FJXVPXrFB +O6Ku1FODjq7aHsyeOjac9KWL2m+n4+eRIdlnLDZImA+1quXQ0e5dVbdzHBu2 +jB7d8tVwDZb6Ovi1a7JhyJvvSGnUWtRm/LROrCoh/yckuc/VrsPkOlcZl7n7 +IPKKnsQeVcVzJ8vqf5gVgVw8y8HQUB0HJ4UymZvuQoaaySpRfw108h1yXud/ +G17IWBhMpmhiMathnkgpAFO52mStTi2MmhyJ/pR1C4R4bobujdHGrIPzPaw3 +eaBwWpGxm66DWXlT9c0/c4Bfxa1823Md1HxbF5ASkg2aTGnW0T26GPiciFjv +nQmHe0XqtnLp4Wmj0WUatldhdDLRaUuGHtZJnqJL5afBZq2GrC0a+ig/S42/ +YJ4C1ZNm879b9JF6bkquo/YiBKvrdr/xNcCLQ42//JvOA3PEp2M3vyFu/3Pz +vuRYLGxSlrIVvGmIved/0jSexsDa6IRjtUZGGF5ttqp4IQpUfU1qVLqNMGZy +o27L00jwrQ44W3rIGJ9ZP1xtFBsONbkdPuPiJsitsTBZlXIYpu4s/tb6xwR/ +yQZEtCQEg7dKEX+WrSletPCOSbIPhMhn7vvoDqbYWf53osg0EJJ9RZo520wR +JcSUulQCoaogIrF5lyk+jr2X5/Y3AMToVsILe03x5NxBY/F7AdBA/yrmGW6K +rwI2tzP5AkB1rSKFnmOKyty0QINWPxhXTTPkjJni7diIzwJxPtD1EjeJTpqi +pbL5mdowH3gSPLI9dNoU7w/YOMT6+kASZ8shwzlTZAuu3qG+yQdUTbnuP+Ix +wzt1ErsXeX3Aa8sBap2EGa6iukqUxnlDh//mlR0MMwyVulikmeoFD/PnP0/H +m2Hkluol1EZPMNwQ+nvrBTMUChsmKh55QtnnoZW5F83wWaPRQ9diT+Ao9Bpt +TTXDZksqpzLVE+5nPLl445oZdvQ1NA7u8YTcxFiTzSVmOBrR/W3JkAecDxVO +yWg3w4Kmn55tu93BZaMSmikw0JL3K69CoCssdPAJ1VEYePzR0K1aB1fI9R35 +sFWJgSoplVaRxq7wLa7iqMtaBpr/+nKYxucKh5vsWRG6DNytNj+1444LJNid +UHhoycAcjX0KxkO74ZHz27/6BxmoNSGbeOu0M8geOFeh+YR8f97L+uwnJ0ha +9DO4UMvAg38nevtfOQF3qiXxvZ6BWXuORtlXOsFg+dK7uU0M3NP6t27bVSd4 +xHU2Q6SdgbDHwIfL1glcLkcfnfnKQHFNPeexqh2QURlhUL2CiR+9Yi9/K9wO +4gJBhO0uJtakp4Q55TlC/oaTkWO7mWj17uOMarIj6J5M2pDmxkQLAWN34ShH +sBtjv+3ay8SjnD0PePc4Qlzn9Kx3EBP31x+0zJV2hD83o9ZHnmaiOyf6WsoV +B+g2S2svLGLi9+8mGira9hAQlp+9pYSJX6JcdDxX28NMSZnvEJuJ8wk0t/IJ +OxChdf3WKWdi78qVHQ/K7MCaT17u8RMmDpufFRtn2EFVR6FP+1smZnUtGHk7 +2MJWoYca4V1MzHBT09ysZwtdm5tmpD4wMZj2gn+ThC1MPfoV7/6JiaWpubSk +jzagkadd/HOQiaeeiJVv32cDVd0W4YnDTCTa+ji8djawVWw7aI0x8Q2l9U+L +jg34nQt7EzrNxC7VlyKsWWuYehKXJfmHiQFy9k/qe6whZi7d+9EcE5eyPgVO +PrWGVfp31fcsMFG2cddf00JruHHg0fTiIhMTM676XEuwhv8AT3n9rA== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "PlotRange" -> {{0, 30}, {0., 0.07118023038603961}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +14311,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 +14339,8 @@ M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.17388882737814787`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07118023038603961}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -8859,17 +14348,589 @@ M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913324679337597`*^9}, + CellChangeTimes->{3.9913324679337597`*^9, 3.994015813224489*^9}, CellLabel-> - "Out[221]=",ExpressionUUID->"0c8adc65-2b3c-a14f-87e8-79cdde17788b"] + "Out[140]=",ExpressionUUID->"afc1c2bb-8eed-4964-b619-5d667399ba18"] }, 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:eJwV12k4VG0YB3ChQqHsu5nBVPZ9nXHfWqTslRJCdiWpULSQIkmyVJYUCi1i +5kx4E1FIpCgkKZS0yb4V8nrP++lcv+s5H86z3P/nPlSvg9t8ubm4uGSXcHH9 +/5zpbapXvpBv/kbnnVWu7HrzjhtSERZdMSCy1ue2dTYFULzVS6orFSzCnsar +ZGtDuMO9dzxdN4H/UFHrimyE1SOSqbPvOFBy0spm4JoD9FXZHZx6VwvH18aN ++17zBEvlwZ7xd21gtEQ85kRmCMy+M7oy9q4f+J0P9X1KiYa6Dbfz39ychEpO +WxGFmgJyfRXfvNQXQOfebNIENRPEgjzuLd/Ag2IVTtcdHXIhVcey0s6JD6fu +dGf3KObD+wztJ+OrBDEhv6+60+c2XMiPauWWXo2X3qtHD6XdA8nLX86nXRfF +On3G5SDbYpBSKzv7p1AU2/N19rzcWQwytXFRe9iieGVKVJ/uWQwKY+vC1tSJ +IqPqy7LGw8WgYhPiWflDFD8dX1SsTy8GPd4Fwy96YthE6FKvfyoG+1CJAd0X +YliW8/31iwMlcG7HFvO2GXHMmkzi6QtjgUxpiwz3Egn043zP9D7FghLRHb91 +Vkhgdmbnr09xLOhsc2enKEpg1qmF6mfpLFB2DKU5WkngktqHAsYVLKi1zVn2 +OlMCLxDmZ6rnWLBgOd3yiiGJjzOFJugMNiQXRhYtWEpinuwWkylgg/IyrngN +R0ns4hZof7yBDTbPBCwu+kqixjGRhU3WbMjaQHlgkySJWi26yqoubDBG6/Tm +PklcZ9SWYHGUDUdM8jyaYqSQwr3Eq6iEDVtzhaasE6VwVQfjYxPBBtryE/Et +V6QwafS73NdSNrzu2Em035HCITPz8dWVbNAMWcnT2yKFZXU8Axufs+FH4dHC +CRlpHFcT/CbcxwY3Mbth2QfSeNZGUNd0JQF6xytP36iSRrGIYv9xIQIE+tdK +UBuk0e8Mw7tgNQEVLB6gv5dGbg+X+zySBEhYVyRrL0ojU1gvPpNKwOvTyvqb +rGUwkOtcuKohARtH5yKDv8igUfKH/s9uBERYXVZ9OiSDtmceetM9CCjJ0+gW +nZHB+XX8Lf57CZDa4WlSwSeLWmVFHp99CRh6+Ow3j6Ys+gVzjrOCCUiLSQ7N +PCaL/I9Ta/6JIqBfnB5cLyiHw5dkfkXkECB5sEZeUlIOXw5fmHfNI8Cm0flV +IEUOy+7Z/TW9RUB55AV1YT05jBfobR0tJCChb2xwt7McutwZatAvIUD3bqX/ +6E05XKS/NVCvIuA0w3GvjLE8Nj73t25/S4CV+40Jo/XyqHd9W2LoOwKEon+d +cbKRx6slLeYi7wnIrostTPaUR5ckv7n1Hwl4uPXRr2Xn5TExv/F9RD8BY85K +4ZPv5ZG1NOcec4SAfyJDlq8ekMf6okwsHCXgVPbjDM0R0pm7HFaME7Dy067K +QG4FdL3p0PdikoA1/olcn1QVcGDlxxeKswS4h00nvDyugDe6hXdTeTigkr5e +bjBWAcVKz7Y68nLI9btUvDxZAXs28TWdWsqByL/rXq/PV0AnidLNLcs5cOWM +u3jFSwXMPqISu2ElB16mPM8pkFfE6CG55HNiHEh7IKZTt0YRL7m9PBMtzgGX +t3trP+koonPpN95wCQ78kPo7IGupiJVXJDk7pTjAk6utmhqsiLU/65pHZDlg +WpJZeqpGEUNjgrIiaRzY+K5lYaRRERs6azu1lDhgx8W72aNNEa1bLsr1k/be +FvweviqiuMBIA1OFA5bHqVHRSyko4ffn9ps1HGgWrrplLEDBGYawxcG1HHDI +39k4JkRBm5G4H/zrOOD66sLqvVIUHJGR9zVU5UCI4swtCzUKnggpogepc2D6 +QXLjrBYFp6oTNk6QjrRSGyb0KagQ+i0sTIMDsYc8DWnmFEwrKxE/osmBrLoX +jdyOFPwVNeRqrc0BRWff4UdOFOzpFF37iHT+0OLqIy4U1Lm6RJCuwwGWuIHr +F28K5vzoV5omXe+fM1wXTkHdZw0ZIXoc2PLXROTEcQqmW9HNG0m3JHcY6kdT +MKSxbom8PgfeV/BH55+noF7P6W+PSbvb5ee7JVFQqoaPX8CAAwP95k1iaRSM +Mcyy2U56ZEWoSGw2BQvlCJMe0kdyhYyYeRTc5XFzQN6QA3/077pOF1DwYm/Y +A1fSPO69+b4sCq6pu1nTQjp+4liTfCkF20IP/MtjxAGhc6Ijbx9S8P7cX29D +0lJsKyPLWgoOXdpRmEr6+sYvrv82UFDbKe1sFWna+5PR5c0UPLL7bOIX0ncO +SBUEv6bgeP5A9XJjDmhwP2iiv6Xg08FDcutIc67ajvS+p2Bg/GDBZtLGaj9E +0nsp6B4r6OZN+nFNjJH9F3L9U7PgBOn1O+Tdlv8g94t/m2Mq6ec//omuGaLg +0pGplALSNie3FRwdp+C2nxu5y0m3rR5u0pohx+14b9WR3lV4buT7HAX9xWdC +W0h/NKWJ5i5SMKiv51gnaa/WKiNnXioaT0SxPpD+7r3LbRU/FfNM8qR7SQf9 +GY9uFKRiteXyhz2kTQ/5SXwToaJDQSW9mzTfYHcRjxQVl6u627WT7vSyt6DK +UzGdZ1iriXTBh7pOcxoVJdb7v6wkHbrDOMhtDRUtO18qF/0/v1f3l0SqU7Ev +WcE0nfQqS2p6ug4Vu6jugtGke6uvqJcZUpEjmZTjS/q+kUBtmxn5Pb3E+P/r +F8k+tWsMqej15BXvGtJW6yaHBC2p6Nf/7T03aYmb/jFq1uT8LHkOfyD3Z0Dm +o+QWByoaNq5rYZPmpDkU+zlRcUzBazSGtH2sSVeeBxULvNVi5Ukr/Ft8oMaH +itbzrfNfyfMyFE7j6Qkk51dRbFb0//kJWKEpFUrFv6abZNVJ7/wcVWcQQcWD +btKPv5PnUdllynn7KSpWebiq55J+Yt1zJimeioLf/I4uJ51U7yh9/yIVy30c +ncrJ8+7GbChpSqWiZOUvXi/Ss5qs97zXqXjqS2QPi6wXXZHTWscJKrqsY6aq +6HKA68J0fUY5FV8Q3bKVZL218OxzKa+kYtl4W5Qt6f3T22LHn1Fxqb7xh4D/ +67VL+YN/NxWXidT+G0HW92HHzJDYPip2i8lFzpD1jy8El90aoOKod0nXQdI9 +lTPavSNUjAua3bCbzAuJnMa4HTw0bEisnVhG5suAJFPuMB8Nz4wevr2PzB9O +MkFcEqSh//59Vs1kPtnHZH18IUnDIvf67WfI/Ir3DdK1UKdhYogvu0WZnJ/a +ql4NJxpeK2iObVfgwMx1mdN6LjTUGwlzECA9JayibOJBQ4eEXwbm8mS9T5rs +2xhIw8vlj5yuk/naX+k943KShif/yeIzIfP3hfU/QvEFNEyiLTX7voqsl8dP +iYv3aNi1ddx0TJjMI62XO9JYNNwnPuc/I8SBatHPWTcqaFgZv8Jujsx/zgeB +NWWvaBgB0/s+8ZH5t98d+qdpKDMpNEbn4kB6T0D/9zka2pwYtONZJOCy/ZHY +4UUaLnS3DH9cICBJL775D78S7sbTY+fmCYiZJ3YJKyhh40cntcczBOy/sDSE +YamEJobtcQVDBDCK7udevaqEcay0Q+GdBHygFOVsuqaE5waCCAnyvo28evfG +VI4SXvu+nlXaTt6Xpwuzt91Vwon1S37+fE3e1865GUJVSngo4cYhk2YC1i29 +nBz3WQlnqSY1B2rI/sTjeHS4ujIu+300W5e878s6IqJUdJRx8/X+nMR8AnZs +PXaqw0AZtW1exQzcJCDVIOyELijj200Bvy6S/YTgyoPHRhyVsfBske/zDAJ4 +K7xC/I6S45GCo28TCBgX2eq5s1YZuWQafgQcIKAriPZ633Nl9CyXSNu1n4An +DXMQ9VIZ7ws3f90QSEByZJHinU5lpJstnBcn+xvt/pV9s4PKyP3v0FQ22R8F +E617rouq4MPUtSlMawIG7Z1cB3xUUGCstL2VTsBAoufOw8vpuNhW8CH+HRuC +B9Vp2ivpqCDRu1/6LRt+b54dHl5FR7ZlmcWdNjYI8KTGBsrQ8e6FJXVPXrFB +O6Ku1FODjq7aHsyeOjac9KWL2m+n4+eRIdlnLDZImA+1quXQ0e5dVbdzHBu2 +jB7d8tVwDZb6Ovi1a7JhyJvvSGnUWtRm/LROrCoh/yckuc/VrsPkOlcZl7n7 +IPKKnsQeVcVzJ8vqf5gVgVw8y8HQUB0HJ4UymZvuQoaaySpRfw108h1yXud/ +G17IWBhMpmhiMathnkgpAFO52mStTi2MmhyJ/pR1C4R4bobujdHGrIPzPaw3 +eaBwWpGxm66DWXlT9c0/c4Bfxa1823Md1HxbF5ASkg2aTGnW0T26GPiciFjv +nQmHe0XqtnLp4Wmj0WUatldhdDLRaUuGHtZJnqJL5afBZq2GrC0a+ig/S42/ +YJ4C1ZNm879b9JF6bkquo/YiBKvrdr/xNcCLQ42//JvOA3PEp2M3vyFu/3Pz +vuRYLGxSlrIVvGmIved/0jSexsDa6IRjtUZGGF5ttqp4IQpUfU1qVLqNMGZy +o27L00jwrQ44W3rIGJ9ZP1xtFBsONbkdPuPiJsitsTBZlXIYpu4s/tb6xwR/ +yQZEtCQEg7dKEX+WrSletPCOSbIPhMhn7vvoDqbYWf53osg0EJJ9RZo520wR +JcSUulQCoaogIrF5lyk+jr2X5/Y3AMToVsILe03x5NxBY/F7AdBA/yrmGW6K +rwI2tzP5AkB1rSKFnmOKyty0QINWPxhXTTPkjJni7diIzwJxPtD1EjeJTpqi +pbL5mdowH3gSPLI9dNoU7w/YOMT6+kASZ8shwzlTZAuu3qG+yQdUTbnuP+Ix +wzt1ErsXeX3Aa8sBap2EGa6iukqUxnlDh//mlR0MMwyVulikmeoFD/PnP0/H +m2Hkluol1EZPMNwQ+nvrBTMUChsmKh55QtnnoZW5F83wWaPRQ9diT+Ao9Bpt +TTXDZksqpzLVE+5nPLl445oZdvQ1NA7u8YTcxFiTzSVmOBrR/W3JkAecDxVO +yWg3w4Kmn55tu93BZaMSmikw0JL3K69CoCssdPAJ1VEYePzR0K1aB1fI9R35 +sFWJgSoplVaRxq7wLa7iqMtaBpr/+nKYxucKh5vsWRG6DNytNj+1444LJNid +UHhoycAcjX0KxkO74ZHz27/6BxmoNSGbeOu0M8geOFeh+YR8f97L+uwnJ0ha +9DO4UMvAg38nevtfOQF3qiXxvZ6BWXuORtlXOsFg+dK7uU0M3NP6t27bVSd4 +xHU2Q6SdgbDHwIfL1glcLkcfnfnKQHFNPeexqh2QURlhUL2CiR+9Yi9/K9wO +4gJBhO0uJtakp4Q55TlC/oaTkWO7mWj17uOMarIj6J5M2pDmxkQLAWN34ShH +sBtjv+3ay8SjnD0PePc4Qlzn9Kx3EBP31x+0zJV2hD83o9ZHnmaiOyf6WsoV +B+g2S2svLGLi9+8mGira9hAQlp+9pYSJX6JcdDxX28NMSZnvEJuJ8wk0t/IJ +OxChdf3WKWdi78qVHQ/K7MCaT17u8RMmDpufFRtn2EFVR6FP+1smZnUtGHk7 +2MJWoYca4V1MzHBT09ysZwtdm5tmpD4wMZj2gn+ThC1MPfoV7/6JiaWpubSk +jzagkadd/HOQiaeeiJVv32cDVd0W4YnDTCTa+ji8djawVWw7aI0x8Q2l9U+L +jg34nQt7EzrNxC7VlyKsWWuYehKXJfmHiQFy9k/qe6whZi7d+9EcE5eyPgVO +PrWGVfp31fcsMFG2cddf00JruHHg0fTiIhMTM676XEuwhv8AT3n9rA== + "]]}, + 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:eJwV12k4VG0YB3ChQqHsu5nBVPZ9nXHfWqTslRJCdiWpULSQIkmyVJYUCi1i +5kx4E1FIpCgkKZS0yb4V8nrP++lcv+s5H86z3P/nPlSvg9t8ubm4uGSXcHH9 +/5zpbapXvpBv/kbnnVWu7HrzjhtSERZdMSCy1ue2dTYFULzVS6orFSzCnsar +ZGtDuMO9dzxdN4H/UFHrimyE1SOSqbPvOFBy0spm4JoD9FXZHZx6VwvH18aN ++17zBEvlwZ7xd21gtEQ85kRmCMy+M7oy9q4f+J0P9X1KiYa6Dbfz39ychEpO +WxGFmgJyfRXfvNQXQOfebNIENRPEgjzuLd/Ag2IVTtcdHXIhVcey0s6JD6fu +dGf3KObD+wztJ+OrBDEhv6+60+c2XMiPauWWXo2X3qtHD6XdA8nLX86nXRfF +On3G5SDbYpBSKzv7p1AU2/N19rzcWQwytXFRe9iieGVKVJ/uWQwKY+vC1tSJ +IqPqy7LGw8WgYhPiWflDFD8dX1SsTy8GPd4Fwy96YthE6FKvfyoG+1CJAd0X +YliW8/31iwMlcG7HFvO2GXHMmkzi6QtjgUxpiwz3Egn043zP9D7FghLRHb91 +Vkhgdmbnr09xLOhsc2enKEpg1qmF6mfpLFB2DKU5WkngktqHAsYVLKi1zVn2 +OlMCLxDmZ6rnWLBgOd3yiiGJjzOFJugMNiQXRhYtWEpinuwWkylgg/IyrngN +R0ns4hZof7yBDTbPBCwu+kqixjGRhU3WbMjaQHlgkySJWi26yqoubDBG6/Tm +PklcZ9SWYHGUDUdM8jyaYqSQwr3Eq6iEDVtzhaasE6VwVQfjYxPBBtryE/Et +V6QwafS73NdSNrzu2Em035HCITPz8dWVbNAMWcnT2yKFZXU8Axufs+FH4dHC +CRlpHFcT/CbcxwY3Mbth2QfSeNZGUNd0JQF6xytP36iSRrGIYv9xIQIE+tdK +UBuk0e8Mw7tgNQEVLB6gv5dGbg+X+zySBEhYVyRrL0ojU1gvPpNKwOvTyvqb +rGUwkOtcuKohARtH5yKDv8igUfKH/s9uBERYXVZ9OiSDtmceetM9CCjJ0+gW +nZHB+XX8Lf57CZDa4WlSwSeLWmVFHp99CRh6+Ow3j6Ys+gVzjrOCCUiLSQ7N +PCaL/I9Ta/6JIqBfnB5cLyiHw5dkfkXkECB5sEZeUlIOXw5fmHfNI8Cm0flV +IEUOy+7Z/TW9RUB55AV1YT05jBfobR0tJCChb2xwt7McutwZatAvIUD3bqX/ +6E05XKS/NVCvIuA0w3GvjLE8Nj73t25/S4CV+40Jo/XyqHd9W2LoOwKEon+d +cbKRx6slLeYi7wnIrostTPaUR5ckv7n1Hwl4uPXRr2Xn5TExv/F9RD8BY85K +4ZPv5ZG1NOcec4SAfyJDlq8ekMf6okwsHCXgVPbjDM0R0pm7HFaME7Dy067K +QG4FdL3p0PdikoA1/olcn1QVcGDlxxeKswS4h00nvDyugDe6hXdTeTigkr5e +bjBWAcVKz7Y68nLI9btUvDxZAXs28TWdWsqByL/rXq/PV0AnidLNLcs5cOWM +u3jFSwXMPqISu2ElB16mPM8pkFfE6CG55HNiHEh7IKZTt0YRL7m9PBMtzgGX +t3trP+koonPpN95wCQ78kPo7IGupiJVXJDk7pTjAk6utmhqsiLU/65pHZDlg +WpJZeqpGEUNjgrIiaRzY+K5lYaRRERs6azu1lDhgx8W72aNNEa1bLsr1k/be +FvweviqiuMBIA1OFA5bHqVHRSyko4ffn9ps1HGgWrrplLEDBGYawxcG1HHDI +39k4JkRBm5G4H/zrOOD66sLqvVIUHJGR9zVU5UCI4swtCzUKnggpogepc2D6 +QXLjrBYFp6oTNk6QjrRSGyb0KagQ+i0sTIMDsYc8DWnmFEwrKxE/osmBrLoX +jdyOFPwVNeRqrc0BRWff4UdOFOzpFF37iHT+0OLqIy4U1Lm6RJCuwwGWuIHr +F28K5vzoV5omXe+fM1wXTkHdZw0ZIXoc2PLXROTEcQqmW9HNG0m3JHcY6kdT +MKSxbom8PgfeV/BH55+noF7P6W+PSbvb5ee7JVFQqoaPX8CAAwP95k1iaRSM +Mcyy2U56ZEWoSGw2BQvlCJMe0kdyhYyYeRTc5XFzQN6QA3/077pOF1DwYm/Y +A1fSPO69+b4sCq6pu1nTQjp+4liTfCkF20IP/MtjxAGhc6Ijbx9S8P7cX29D +0lJsKyPLWgoOXdpRmEr6+sYvrv82UFDbKe1sFWna+5PR5c0UPLL7bOIX0ncO +SBUEv6bgeP5A9XJjDmhwP2iiv6Xg08FDcutIc67ajvS+p2Bg/GDBZtLGaj9E +0nsp6B4r6OZN+nFNjJH9F3L9U7PgBOn1O+Tdlv8g94t/m2Mq6ec//omuGaLg +0pGplALSNie3FRwdp+C2nxu5y0m3rR5u0pohx+14b9WR3lV4buT7HAX9xWdC +W0h/NKWJ5i5SMKiv51gnaa/WKiNnXioaT0SxPpD+7r3LbRU/FfNM8qR7SQf9 +GY9uFKRiteXyhz2kTQ/5SXwToaJDQSW9mzTfYHcRjxQVl6u627WT7vSyt6DK +UzGdZ1iriXTBh7pOcxoVJdb7v6wkHbrDOMhtDRUtO18qF/0/v1f3l0SqU7Ev +WcE0nfQqS2p6ug4Vu6jugtGke6uvqJcZUpEjmZTjS/q+kUBtmxn5Pb3E+P/r +F8k+tWsMqej15BXvGtJW6yaHBC2p6Nf/7T03aYmb/jFq1uT8LHkOfyD3Z0Dm +o+QWByoaNq5rYZPmpDkU+zlRcUzBazSGtH2sSVeeBxULvNVi5Ukr/Ft8oMaH +itbzrfNfyfMyFE7j6Qkk51dRbFb0//kJWKEpFUrFv6abZNVJ7/wcVWcQQcWD +btKPv5PnUdllynn7KSpWebiq55J+Yt1zJimeioLf/I4uJ51U7yh9/yIVy30c +ncrJ8+7GbChpSqWiZOUvXi/Ss5qs97zXqXjqS2QPi6wXXZHTWscJKrqsY6aq +6HKA68J0fUY5FV8Q3bKVZL218OxzKa+kYtl4W5Qt6f3T22LHn1Fxqb7xh4D/ +67VL+YN/NxWXidT+G0HW92HHzJDYPip2i8lFzpD1jy8El90aoOKod0nXQdI9 +lTPavSNUjAua3bCbzAuJnMa4HTw0bEisnVhG5suAJFPuMB8Nz4wevr2PzB9O +MkFcEqSh//59Vs1kPtnHZH18IUnDIvf67WfI/Ir3DdK1UKdhYogvu0WZnJ/a +ql4NJxpeK2iObVfgwMx1mdN6LjTUGwlzECA9JayibOJBQ4eEXwbm8mS9T5rs +2xhIw8vlj5yuk/naX+k943KShif/yeIzIfP3hfU/QvEFNEyiLTX7voqsl8dP +iYv3aNi1ddx0TJjMI62XO9JYNNwnPuc/I8SBatHPWTcqaFgZv8Jujsx/zgeB +NWWvaBgB0/s+8ZH5t98d+qdpKDMpNEbn4kB6T0D/9zka2pwYtONZJOCy/ZHY +4UUaLnS3DH9cICBJL775D78S7sbTY+fmCYiZJ3YJKyhh40cntcczBOy/sDSE +YamEJobtcQVDBDCK7udevaqEcay0Q+GdBHygFOVsuqaE5waCCAnyvo28evfG +VI4SXvu+nlXaTt6Xpwuzt91Vwon1S37+fE3e1865GUJVSngo4cYhk2YC1i29 +nBz3WQlnqSY1B2rI/sTjeHS4ujIu+300W5e878s6IqJUdJRx8/X+nMR8AnZs +PXaqw0AZtW1exQzcJCDVIOyELijj200Bvy6S/YTgyoPHRhyVsfBske/zDAJ4 +K7xC/I6S45GCo28TCBgX2eq5s1YZuWQafgQcIKAriPZ633Nl9CyXSNu1n4An +DXMQ9VIZ7ws3f90QSEByZJHinU5lpJstnBcn+xvt/pV9s4PKyP3v0FQ22R8F +E617rouq4MPUtSlMawIG7Z1cB3xUUGCstL2VTsBAoufOw8vpuNhW8CH+HRuC +B9Vp2ivpqCDRu1/6LRt+b54dHl5FR7ZlmcWdNjYI8KTGBsrQ8e6FJXVPXrFB +O6Ku1FODjq7aHsyeOjac9KWL2m+n4+eRIdlnLDZImA+1quXQ0e5dVbdzHBu2 +jB7d8tVwDZb6Ovi1a7JhyJvvSGnUWtRm/LROrCoh/yckuc/VrsPkOlcZl7n7 +IPKKnsQeVcVzJ8vqf5gVgVw8y8HQUB0HJ4UymZvuQoaaySpRfw108h1yXud/ +G17IWBhMpmhiMathnkgpAFO52mStTi2MmhyJ/pR1C4R4bobujdHGrIPzPaw3 +eaBwWpGxm66DWXlT9c0/c4Bfxa1823Md1HxbF5ASkg2aTGnW0T26GPiciFjv +nQmHe0XqtnLp4Wmj0WUatldhdDLRaUuGHtZJnqJL5afBZq2GrC0a+ig/S42/ +YJ4C1ZNm879b9JF6bkquo/YiBKvrdr/xNcCLQ42//JvOA3PEp2M3vyFu/3Pz +vuRYLGxSlrIVvGmIved/0jSexsDa6IRjtUZGGF5ttqp4IQpUfU1qVLqNMGZy +o27L00jwrQ44W3rIGJ9ZP1xtFBsONbkdPuPiJsitsTBZlXIYpu4s/tb6xwR/ +yQZEtCQEg7dKEX+WrSletPCOSbIPhMhn7vvoDqbYWf53osg0EJJ9RZo520wR +JcSUulQCoaogIrF5lyk+jr2X5/Y3AMToVsILe03x5NxBY/F7AdBA/yrmGW6K +rwI2tzP5AkB1rSKFnmOKyty0QINWPxhXTTPkjJni7diIzwJxPtD1EjeJTpqi +pbL5mdowH3gSPLI9dNoU7w/YOMT6+kASZ8shwzlTZAuu3qG+yQdUTbnuP+Ix +wzt1ErsXeX3Aa8sBap2EGa6iukqUxnlDh//mlR0MMwyVulikmeoFD/PnP0/H +m2Hkluol1EZPMNwQ+nvrBTMUChsmKh55QtnnoZW5F83wWaPRQ9diT+Ao9Bpt +TTXDZksqpzLVE+5nPLl445oZdvQ1NA7u8YTcxFiTzSVmOBrR/W3JkAecDxVO +yWg3w4Kmn55tu93BZaMSmikw0JL3K69CoCssdPAJ1VEYePzR0K1aB1fI9R35 +sFWJgSoplVaRxq7wLa7iqMtaBpr/+nKYxucKh5vsWRG6DNytNj+1444LJNid +UHhoycAcjX0KxkO74ZHz27/6BxmoNSGbeOu0M8geOFeh+YR8f97L+uwnJ0ha +9DO4UMvAg38nevtfOQF3qiXxvZ6BWXuORtlXOsFg+dK7uU0M3NP6t27bVSd4 +xHU2Q6SdgbDHwIfL1glcLkcfnfnKQHFNPeexqh2QURlhUL2CiR+9Yi9/K9wO +4gJBhO0uJtakp4Q55TlC/oaTkWO7mWj17uOMarIj6J5M2pDmxkQLAWN34ShH +sBtjv+3ay8SjnD0PePc4Qlzn9Kx3EBP31x+0zJV2hD83o9ZHnmaiOyf6WsoV +B+g2S2svLGLi9+8mGira9hAQlp+9pYSJX6JcdDxX28NMSZnvEJuJ8wk0t/IJ +OxChdf3WKWdi78qVHQ/K7MCaT17u8RMmDpufFRtn2EFVR6FP+1smZnUtGHk7 +2MJWoYca4V1MzHBT09ysZwtdm5tmpD4wMZj2gn+ThC1MPfoV7/6JiaWpubSk +jzagkadd/HOQiaeeiJVv32cDVd0W4YnDTCTa+ji8djawVWw7aI0x8Q2l9U+L +jg34nQt7EzrNxC7VlyKsWWuYehKXJfmHiQFy9k/qe6whZi7d+9EcE5eyPgVO +PrWGVfp31fcsMFG2cddf00JruHHg0fTiIhMTM676XEuwhv8AT3n9rA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07118023038603961}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.07118023038603961}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJwV12k4VG0YB3ChQqHsu5nBVPZ9nXHfWqTslRJCdiWpULSQIkmyVJYUCi1i +5kx4E1FIpCgkKZS0yb4V8nrP++lcv+s5H86z3P/nPlSvg9t8ubm4uGSXcHH9 +/5zpbapXvpBv/kbnnVWu7HrzjhtSERZdMSCy1ue2dTYFULzVS6orFSzCnsar +ZGtDuMO9dzxdN4H/UFHrimyE1SOSqbPvOFBy0spm4JoD9FXZHZx6VwvH18aN ++17zBEvlwZ7xd21gtEQ85kRmCMy+M7oy9q4f+J0P9X1KiYa6Dbfz39ychEpO +WxGFmgJyfRXfvNQXQOfebNIENRPEgjzuLd/Ag2IVTtcdHXIhVcey0s6JD6fu +dGf3KObD+wztJ+OrBDEhv6+60+c2XMiPauWWXo2X3qtHD6XdA8nLX86nXRfF +On3G5SDbYpBSKzv7p1AU2/N19rzcWQwytXFRe9iieGVKVJ/uWQwKY+vC1tSJ +IqPqy7LGw8WgYhPiWflDFD8dX1SsTy8GPd4Fwy96YthE6FKvfyoG+1CJAd0X +YliW8/31iwMlcG7HFvO2GXHMmkzi6QtjgUxpiwz3Egn043zP9D7FghLRHb91 +Vkhgdmbnr09xLOhsc2enKEpg1qmF6mfpLFB2DKU5WkngktqHAsYVLKi1zVn2 +OlMCLxDmZ6rnWLBgOd3yiiGJjzOFJugMNiQXRhYtWEpinuwWkylgg/IyrngN +R0ns4hZof7yBDTbPBCwu+kqixjGRhU3WbMjaQHlgkySJWi26yqoubDBG6/Tm +PklcZ9SWYHGUDUdM8jyaYqSQwr3Eq6iEDVtzhaasE6VwVQfjYxPBBtryE/Et +V6QwafS73NdSNrzu2Em035HCITPz8dWVbNAMWcnT2yKFZXU8Axufs+FH4dHC +CRlpHFcT/CbcxwY3Mbth2QfSeNZGUNd0JQF6xytP36iSRrGIYv9xIQIE+tdK +UBuk0e8Mw7tgNQEVLB6gv5dGbg+X+zySBEhYVyRrL0ojU1gvPpNKwOvTyvqb +rGUwkOtcuKohARtH5yKDv8igUfKH/s9uBERYXVZ9OiSDtmceetM9CCjJ0+gW +nZHB+XX8Lf57CZDa4WlSwSeLWmVFHp99CRh6+Ow3j6Ys+gVzjrOCCUiLSQ7N +PCaL/I9Ta/6JIqBfnB5cLyiHw5dkfkXkECB5sEZeUlIOXw5fmHfNI8Cm0flV +IEUOy+7Z/TW9RUB55AV1YT05jBfobR0tJCChb2xwt7McutwZatAvIUD3bqX/ +6E05XKS/NVCvIuA0w3GvjLE8Nj73t25/S4CV+40Jo/XyqHd9W2LoOwKEon+d +cbKRx6slLeYi7wnIrostTPaUR5ckv7n1Hwl4uPXRr2Xn5TExv/F9RD8BY85K +4ZPv5ZG1NOcec4SAfyJDlq8ekMf6okwsHCXgVPbjDM0R0pm7HFaME7Dy067K +QG4FdL3p0PdikoA1/olcn1QVcGDlxxeKswS4h00nvDyugDe6hXdTeTigkr5e +bjBWAcVKz7Y68nLI9btUvDxZAXs28TWdWsqByL/rXq/PV0AnidLNLcs5cOWM +u3jFSwXMPqISu2ElB16mPM8pkFfE6CG55HNiHEh7IKZTt0YRL7m9PBMtzgGX +t3trP+koonPpN95wCQ78kPo7IGupiJVXJDk7pTjAk6utmhqsiLU/65pHZDlg +WpJZeqpGEUNjgrIiaRzY+K5lYaRRERs6azu1lDhgx8W72aNNEa1bLsr1k/be +FvweviqiuMBIA1OFA5bHqVHRSyko4ffn9ps1HGgWrrplLEDBGYawxcG1HHDI +39k4JkRBm5G4H/zrOOD66sLqvVIUHJGR9zVU5UCI4swtCzUKnggpogepc2D6 +QXLjrBYFp6oTNk6QjrRSGyb0KagQ+i0sTIMDsYc8DWnmFEwrKxE/osmBrLoX +jdyOFPwVNeRqrc0BRWff4UdOFOzpFF37iHT+0OLqIy4U1Lm6RJCuwwGWuIHr +F28K5vzoV5omXe+fM1wXTkHdZw0ZIXoc2PLXROTEcQqmW9HNG0m3JHcY6kdT +MKSxbom8PgfeV/BH55+noF7P6W+PSbvb5ee7JVFQqoaPX8CAAwP95k1iaRSM +Mcyy2U56ZEWoSGw2BQvlCJMe0kdyhYyYeRTc5XFzQN6QA3/077pOF1DwYm/Y +A1fSPO69+b4sCq6pu1nTQjp+4liTfCkF20IP/MtjxAGhc6Ijbx9S8P7cX29D +0lJsKyPLWgoOXdpRmEr6+sYvrv82UFDbKe1sFWna+5PR5c0UPLL7bOIX0ncO +SBUEv6bgeP5A9XJjDmhwP2iiv6Xg08FDcutIc67ajvS+p2Bg/GDBZtLGaj9E +0nsp6B4r6OZN+nFNjJH9F3L9U7PgBOn1O+Tdlv8g94t/m2Mq6ec//omuGaLg +0pGplALSNie3FRwdp+C2nxu5y0m3rR5u0pohx+14b9WR3lV4buT7HAX9xWdC +W0h/NKWJ5i5SMKiv51gnaa/WKiNnXioaT0SxPpD+7r3LbRU/FfNM8qR7SQf9 +GY9uFKRiteXyhz2kTQ/5SXwToaJDQSW9mzTfYHcRjxQVl6u627WT7vSyt6DK +UzGdZ1iriXTBh7pOcxoVJdb7v6wkHbrDOMhtDRUtO18qF/0/v1f3l0SqU7Ev +WcE0nfQqS2p6ug4Vu6jugtGke6uvqJcZUpEjmZTjS/q+kUBtmxn5Pb3E+P/r +F8k+tWsMqej15BXvGtJW6yaHBC2p6Nf/7T03aYmb/jFq1uT8LHkOfyD3Z0Dm +o+QWByoaNq5rYZPmpDkU+zlRcUzBazSGtH2sSVeeBxULvNVi5Ukr/Ft8oMaH +itbzrfNfyfMyFE7j6Qkk51dRbFb0//kJWKEpFUrFv6abZNVJ7/wcVWcQQcWD +btKPv5PnUdllynn7KSpWebiq55J+Yt1zJimeioLf/I4uJ51U7yh9/yIVy30c +ncrJ8+7GbChpSqWiZOUvXi/Ss5qs97zXqXjqS2QPi6wXXZHTWscJKrqsY6aq +6HKA68J0fUY5FV8Q3bKVZL218OxzKa+kYtl4W5Qt6f3T22LHn1Fxqb7xh4D/ +67VL+YN/NxWXidT+G0HW92HHzJDYPip2i8lFzpD1jy8El90aoOKod0nXQdI9 +lTPavSNUjAua3bCbzAuJnMa4HTw0bEisnVhG5suAJFPuMB8Nz4wevr2PzB9O +MkFcEqSh//59Vs1kPtnHZH18IUnDIvf67WfI/Ir3DdK1UKdhYogvu0WZnJ/a +ql4NJxpeK2iObVfgwMx1mdN6LjTUGwlzECA9JayibOJBQ4eEXwbm8mS9T5rs +2xhIw8vlj5yuk/naX+k943KShif/yeIzIfP3hfU/QvEFNEyiLTX7voqsl8dP +iYv3aNi1ddx0TJjMI62XO9JYNNwnPuc/I8SBatHPWTcqaFgZv8Jujsx/zgeB +NWWvaBgB0/s+8ZH5t98d+qdpKDMpNEbn4kB6T0D/9zka2pwYtONZJOCy/ZHY +4UUaLnS3DH9cICBJL775D78S7sbTY+fmCYiZJ3YJKyhh40cntcczBOy/sDSE +YamEJobtcQVDBDCK7udevaqEcay0Q+GdBHygFOVsuqaE5waCCAnyvo28evfG +VI4SXvu+nlXaTt6Xpwuzt91Vwon1S37+fE3e1865GUJVSngo4cYhk2YC1i29 +nBz3WQlnqSY1B2rI/sTjeHS4ujIu+300W5e878s6IqJUdJRx8/X+nMR8AnZs +PXaqw0AZtW1exQzcJCDVIOyELijj200Bvy6S/YTgyoPHRhyVsfBske/zDAJ4 +K7xC/I6S45GCo28TCBgX2eq5s1YZuWQafgQcIKAriPZ633Nl9CyXSNu1n4An +DXMQ9VIZ7ws3f90QSEByZJHinU5lpJstnBcn+xvt/pV9s4PKyP3v0FQ22R8F +E617rouq4MPUtSlMawIG7Z1cB3xUUGCstL2VTsBAoufOw8vpuNhW8CH+HRuC +B9Vp2ivpqCDRu1/6LRt+b54dHl5FR7ZlmcWdNjYI8KTGBsrQ8e6FJXVPXrFB +O6Ku1FODjq7aHsyeOjac9KWL2m+n4+eRIdlnLDZImA+1quXQ0e5dVbdzHBu2 +jB7d8tVwDZb6Ovi1a7JhyJvvSGnUWtRm/LROrCoh/yckuc/VrsPkOlcZl7n7 +IPKKnsQeVcVzJ8vqf5gVgVw8y8HQUB0HJ4UymZvuQoaaySpRfw108h1yXud/ +G17IWBhMpmhiMathnkgpAFO52mStTi2MmhyJ/pR1C4R4bobujdHGrIPzPaw3 +eaBwWpGxm66DWXlT9c0/c4Bfxa1823Md1HxbF5ASkg2aTGnW0T26GPiciFjv +nQmHe0XqtnLp4Wmj0WUatldhdDLRaUuGHtZJnqJL5afBZq2GrC0a+ig/S42/ +YJ4C1ZNm879b9JF6bkquo/YiBKvrdr/xNcCLQ42//JvOA3PEp2M3vyFu/3Pz +vuRYLGxSlrIVvGmIved/0jSexsDa6IRjtUZGGF5ttqp4IQpUfU1qVLqNMGZy +o27L00jwrQ44W3rIGJ9ZP1xtFBsONbkdPuPiJsitsTBZlXIYpu4s/tb6xwR/ +yQZEtCQEg7dKEX+WrSletPCOSbIPhMhn7vvoDqbYWf53osg0EJJ9RZo520wR +JcSUulQCoaogIrF5lyk+jr2X5/Y3AMToVsILe03x5NxBY/F7AdBA/yrmGW6K +rwI2tzP5AkB1rSKFnmOKyty0QINWPxhXTTPkjJni7diIzwJxPtD1EjeJTpqi +pbL5mdowH3gSPLI9dNoU7w/YOMT6+kASZ8shwzlTZAuu3qG+yQdUTbnuP+Ix +wzt1ErsXeX3Aa8sBap2EGa6iukqUxnlDh//mlR0MMwyVulikmeoFD/PnP0/H +m2Hkluol1EZPMNwQ+nvrBTMUChsmKh55QtnnoZW5F83wWaPRQ9diT+Ao9Bpt +TTXDZksqpzLVE+5nPLl445oZdvQ1NA7u8YTcxFiTzSVmOBrR/W3JkAecDxVO +yWg3w4Kmn55tu93BZaMSmikw0JL3K69CoCssdPAJ1VEYePzR0K1aB1fI9R35 +sFWJgSoplVaRxq7wLa7iqMtaBpr/+nKYxucKh5vsWRG6DNytNj+1444LJNid +UHhoycAcjX0KxkO74ZHz27/6BxmoNSGbeOu0M8geOFeh+YR8f97L+uwnJ0ha +9DO4UMvAg38nevtfOQF3qiXxvZ6BWXuORtlXOsFg+dK7uU0M3NP6t27bVSd4 +xHU2Q6SdgbDHwIfL1glcLkcfnfnKQHFNPeexqh2QURlhUL2CiR+9Yi9/K9wO +4gJBhO0uJtakp4Q55TlC/oaTkWO7mWj17uOMarIj6J5M2pDmxkQLAWN34ShH +sBtjv+3ay8SjnD0PePc4Qlzn9Kx3EBP31x+0zJV2hD83o9ZHnmaiOyf6WsoV +B+g2S2svLGLi9+8mGira9hAQlp+9pYSJX6JcdDxX28NMSZnvEJuJ8wk0t/IJ +OxChdf3WKWdi78qVHQ/K7MCaT17u8RMmDpufFRtn2EFVR6FP+1smZnUtGHk7 +2MJWoYca4V1MzHBT09ysZwtdm5tmpD4wMZj2gn+ThC1MPfoV7/6JiaWpubSk +jzagkadd/HOQiaeeiJVv32cDVd0W4YnDTCTa+ji8djawVWw7aI0x8Q2l9U+L +jg34nQt7EzrNxC7VlyKsWWuYehKXJfmHiQFy9k/qe6whZi7d+9EcE5eyPgVO +PrWGVfp31fcsMFG2cddf00JruHHg0fTiIhMTM676XEuwhv8AT3n9rA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07118023038603961}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, + 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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.061043}}, + "Frame" -> {{False, 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.061043}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.061043}}, + "Frame" -> {{False, 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.07118023038603961}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9940158132692327`*^9}, + CellLabel-> + "Out[141]=",ExpressionUUID->"0f761a8c-5a16-4b34-92b6-7037df098424"] +}, Open ]], Cell[CellGroupData[{ @@ -8921,66 +14982,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[\\\"4.994591037326517`*^-161\\\", \ +RowBox[{\\\"164243120455479739170682508554\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"94\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"438400000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 142, 73, + 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333512859148*^9, 3.994015813299782*^9}, CellLabel-> "During evaluation of \ -In[225]:=",ExpressionUUID->"6cb27c14-3e28-3a42-b8b7-fdcba2488488"], +In[142]:=",ExpressionUUID->"6281cfc6-a7b4-490b-9e0e-d77f5da78982"], 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[\\\"7.694721660151469`*^-164\\\", \ +RowBox[{\\\"552513857212233842570175958778\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"97\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"777600000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 142, 74, + 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333512859148*^9, 3.9940158133065023`*^9}, CellLabel-> "During evaluation of \ -In[225]:=",ExpressionUUID->"cb81e4d8-f3c2-a440-be93-8add6661d63f"], +In[142]:=",ExpressionUUID->"7419f57f-be6f-4138-a288-22a92c1edf54"], 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.1854572473444628`*^-166\\\", \ +RowBox[{\\\"192330073695578600598678251250\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"101\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"825600000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 142, 75, + 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333512859148*^9, 3.994015813313259*^9}, CellLabel-> "During evaluation of \ -In[225]:=",ExpressionUUID->"6fc2d4bb-75da-4f4f-bee0-560983907484"], +In[142]:=",ExpressionUUID->"c06195b3-6996-434a-8f1f-b705db3f106c"], 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, 76, 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333512859148*^9, 3.994015813318994*^9}, CellLabel-> "During evaluation of \ -In[225]:=",ExpressionUUID->"a75f01ed-738d-2b4a-b751-ccae7a894e31"], +In[142]:=",ExpressionUUID->"a2ae9ae2-4e8b-408d-9eb2-f4c0ff1c7826"], -Cell[BoxData["9.779568499633264`"], "Output", - CellChangeTimes->{3.9913335200445786`*^9}, +Cell[BoxData["10.631216496531284`"], "Output", + CellChangeTimes->{3.9913335200445786`*^9, 3.994015844747814*^9}, CellLabel-> - "Out[225]=",ExpressionUUID->"a9b05d7b-788a-eb45-8401-918c1ed97234"] + "Out[142]=",ExpressionUUID->"a5d4431c-19ba-4d61-b9ac-1da9d5bdc4f4"] }, Open ]], Cell[CellGroupData[{ @@ -9047,68 +15115,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[\\\"7.332320810732206`*^-209\\\", \ +RowBox[{\\\"365000401101666289871540890002\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"213134598144000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 143, 77, + 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335200775414`*^9, 3.9940158447765217`*^9}, CellLabel-> "During evaluation of \ -In[226]:=",ExpressionUUID->"e3c0ae99-c55d-1a40-897e-ede7de12487f"], +In[143]:=",ExpressionUUID->"8baefb6b-9958-41d4-a94d-15978258986a"], 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[\\\"1.059005550797886`*^-213\\\", \ +RowBox[{\\\"706640776532825937191303163045\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"49\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"628582006784000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 143, 78, + 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335200775414`*^9, 3.9940158447815037`*^9}, CellLabel-> "During evaluation of \ -In[226]:=",ExpressionUUID->"0a52e0c9-3a0a-a24b-a9af-01175c4ee0f4"], +In[143]:=",ExpressionUUID->"eac045f9-4a15-4e87-b54e-9559787c4366"], 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.5295194871714042`*^-218\\\", \ +RowBox[{\\\"143094757247897252281238890516\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"53\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"878563737600000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 143, 79, + 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335200775414`*^9, 3.994015844786565*^9}, CellLabel-> "During evaluation of \ -In[226]:=",ExpressionUUID->"e6adb683-0ea5-4b48-bbb8-23c8c11e4418"], +In[143]:=",ExpressionUUID->"7cb07b8f-aa3c-4c0d-ad59-508bdde8eaa8"], 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, 80, 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335200775414`*^9, 3.9940158447915363`*^9}, CellLabel-> "During evaluation of \ -In[226]:=",ExpressionUUID->"12441524-bcf6-244b-b009-fad76aa84cea"], +In[143]:=",ExpressionUUID->"883a573d-08d5-4541-84a8-55122e7049b4"], -Cell[BoxData["0.7348275136088338`"], "Output", - CellChangeTimes->{3.9913335271231823`*^9}, +Cell[BoxData["0.5441030733572418`"], "Output", + CellChangeTimes->{3.9913335271231823`*^9, 3.994015849396763*^9}, CellLabel-> - "Out[226]=",ExpressionUUID->"cc74ac59-df4c-cf4b-a4af-36b2436eea23"] + "Out[143]=",ExpressionUUID->"3fc89310-835e-4dca-948f-b4e13733e310"] }, Open ]], Cell[CellGroupData[{ @@ -9129,8 +15204,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 +15249,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[\\\"7.332320810732206`*^-209\\\", \ +RowBox[{\\\"365000401101666289871540890002\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"213134598144000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 144, 81, + 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335271591835`*^9, 3.994015849427187*^9}, CellLabel-> "During evaluation of \ -In[227]:=",ExpressionUUID->"ee3e5086-63b9-a04a-8b60-1a07bbedb00c"], +In[144]:=",ExpressionUUID->"89eb81a5-45e3-439e-8212-8f63f0c8f81c"], 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[\\\"1.059005550797886`*^-213\\\", \ +RowBox[{\\\"706640776532825937191303163045\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"49\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"628582006784000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 144, 82, + 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335271591835`*^9, 3.994015849432424*^9}, CellLabel-> "During evaluation of \ -In[227]:=",ExpressionUUID->"f824dc64-7721-2e40-87b9-9d308e655a7c"], +In[144]:=",ExpressionUUID->"23478731-d46e-447c-8e29-315b3ba6eb3e"], 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.5295194871714042`*^-218\\\", \ +RowBox[{\\\"143094757247897252281238890516\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"53\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"878563737600000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 144, 83, + 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335271591835`*^9, 3.994015849437684*^9}, CellLabel-> "During evaluation of \ -In[227]:=",ExpressionUUID->"830b9065-dbdb-094f-aba8-2b0b04ca96a6"], +In[144]:=",ExpressionUUID->"40200d23-db9f-4cc0-a476-e17c5b4b40b3"], 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, 84, 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335271591835`*^9, 3.9940158494424057`*^9}, CellLabel-> "During evaluation of \ -In[227]:=",ExpressionUUID->"f79b172f-d4db-f24b-98c7-2b2531d3e183"], +In[144]:=",ExpressionUUID->"3afa2746-d094-42ff-88a1-3a4f63b471e5"], -Cell[BoxData["5.221864211842707`"], "Output", - CellChangeTimes->{3.9913335331581306`*^9}, +Cell[BoxData["31.163773211003008`"], "Output", + CellChangeTimes->{3.9913335331581306`*^9, 3.99401585388774*^9}, CellLabel-> - "Out[227]=",ExpressionUUID->"88b0c8ab-c0ff-2a4c-be6a-f15bb3bf7202"] + "Out[144]=",ExpressionUUID->"68e05601-f121-4aba-a50f-fcbf6ea9a205"] }, Open ]], Cell[CellGroupData[{ @@ -9257,8 +15338,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 +15383,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[\\\"7.332320810732206`*^-209\\\", \ +RowBox[{\\\"365000401101666289871540890002\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"213134598144000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 145, 85, + 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335331923027`*^9, 3.994015853917595*^9}, CellLabel-> "During evaluation of \ -In[228]:=",ExpressionUUID->"f816110f-9bc3-0e4e-85c9-2e71a255bbb9"], +In[145]:=",ExpressionUUID->"84d7e252-2760-4401-ad34-b8a0ff13efef"], 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[\\\"1.059005550797886`*^-213\\\", \ +RowBox[{\\\"706640776532825937191303163045\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"49\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"628582006784000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 145, 86, + 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335331923027`*^9, 3.994015853923221*^9}, CellLabel-> "During evaluation of \ -In[228]:=",ExpressionUUID->"36d057a5-55b4-f047-814d-965f9626b543"], +In[145]:=",ExpressionUUID->"8ace451a-6e4d-4329-aab4-4345054bc2cb"], 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.5295194871714042`*^-218\\\", \ +RowBox[{\\\"143094757247897252281238890516\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"53\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"878563737600000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 145, 87, + 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335331923027`*^9, 3.9940158539285183`*^9}, CellLabel-> "During evaluation of \ -In[228]:=",ExpressionUUID->"4ef30680-44fe-0244-870d-45b0a67e7a3d"], +In[145]:=",ExpressionUUID->"2c184738-3505-4495-804f-5693694a40fc"], 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, 88, 31386066323133372023, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335331923027`*^9, 3.9940158539336863`*^9}, CellLabel-> "During evaluation of \ -In[228]:=",ExpressionUUID->"c685c306-1cc4-0a4f-bb39-965ed01378a7"], +In[145]:=",ExpressionUUID->"012c303c-1cef-4a5f-90c9-8be5bac6437e"], -Cell[BoxData["15.545902834190647`"], "Output", - CellChangeTimes->{3.9913335366055527`*^9}, +Cell[BoxData["5.227678221395594`"], "Output", + CellChangeTimes->{3.9913335366055527`*^9, 3.994015856725013*^9}, CellLabel-> - "Out[228]=",ExpressionUUID->"621ca10b-eff8-834f-a283-22ac03a895a3"] + "Out[145]=",ExpressionUUID->"16071b8a-8550-4687-87a7-3b3696c2d339"] }, Open ]], Cell[CellGroupData[{ @@ -9373,21 +15460,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.04262866554151819`"], "Output", + CellChangeTimes->{3.9913335366395893`*^9, 3.994015856747735*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"d0c49fd2-5288-4e10-bd40-a4731406dd32"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input", + CellLabel-> + "In[147]:=",ExpressionUUID->"19f8ebd3-c7f9-4874-9d72-c6fa3cbf5530"] }, -WindowSize->{718.5, 729.75}, -WindowMargins->{{0, Automatic}, {Automatic, 0}}, +Evaluator->"kernel 1", +WindowSize->{714, 288}, +WindowMargins->{{Automatic, 3}, {Automatic, 15}}, CellContext->Notebook, -Magnification:>0.8 Inherited, -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->"5cbbdd72-8791-4241-8a7a-ad89ed63e6b0" ] @@ -9402,368 +15495,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, 40, "Input",ExpressionUUID->"19a27e2e-f08e-47aa-9bcf-c5bcd39b4edb"], +Cell[879, 29, 320, 5, 46, "Output",ExpressionUUID->"4bd0d14d-94bc-4b99-9dd6-63c2a1390db0"] }, 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[1236, 39, 248, 4, 40, "Input",ExpressionUUID->"1450c04f-bf28-46b0-838c-9b025de604c0"], +Cell[1487, 45, 325, 5, 46, "Output",ExpressionUUID->"04a8cebc-d599-4d8a-b041-955b8e758d30"] }, 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[1849, 55, 225, 4, 40, "Input",ExpressionUUID->"e22d17af-da83-4f5c-b517-391f71766ced"], +Cell[2077, 61, 329, 5, 46, "Output",ExpressionUUID->"0f42bd97-8143-45c7-bb69-656c00a1cefb"] }, 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[2443, 71, 175, 3, 40, "Input",ExpressionUUID->"6d8d84c0-fa33-4121-a06b-07a297142f9a"], +Cell[2621, 76, 321, 5, 46, "Output",ExpressionUUID->"a83cd4b5-0dab-4f41-8da4-a130ab0f4344"] }, 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[2979, 86, 257, 7, 59, "Input",ExpressionUUID->"d7fd71bb-1199-4d8a-81b6-81b539a494b6"], +Cell[3239, 95, 338, 5, 46, "Output",ExpressionUUID->"83d50f33-6085-47b4-a994-4928e123c86c"] }, 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[3614, 105, 131, 2, 40, "Input",ExpressionUUID->"5afe470b-c7b0-418b-9e8b-54b8f197f771"], +Cell[3748, 109, 329, 5, 46, "Output",ExpressionUUID->"ef4d5f04-d90f-4395-ae94-9ffbde94092c"] }, 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[4114, 119, 276, 6, 40, "Input",ExpressionUUID->"085efb7d-04a6-44e5-a34b-98d3abb7ed75"], +Cell[4393, 127, 338, 5, 46, "Output",ExpressionUUID->"b457b99b-f344-43a7-8863-d820b3c7842e"] }, 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[4768, 137, 257, 7, 40, "Input",ExpressionUUID->"3ca1b160-e10c-4f09-95c6-883da8e3c1ba"], +Cell[5028, 146, 336, 5, 46, "Output",ExpressionUUID->"0878a468-f215-497e-bbdf-58ddedfba2f6"] }, 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[5401, 156, 277, 5, 40, "Input",ExpressionUUID->"463f041f-e0d1-4ec1-a4f9-eb59222f3cf6"], +Cell[5681, 163, 306, 5, 46, "Output",ExpressionUUID->"e9c2ce7e-cdaf-4b47-b453-92df5523061f"] }, 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[6024, 173, 226, 4, 40, "Input",ExpressionUUID->"d4975be1-b929-4b6a-bcea-6cf362b61692"], +Cell[6253, 179, 302, 5, 46, "Output",ExpressionUUID->"6819128d-ff4c-436f-8d26-b7d2e46dd232"] }, 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[6592, 189, 129, 2, 40, "Input",ExpressionUUID->"cf615baa-1182-4548-a1fe-b800fbde02c9"], +Cell[6724, 193, 324, 5, 46, "Output",ExpressionUUID->"81634846-25a7-4a7a-ad44-9eca507a007e"] }, 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[7085, 203, 129, 2, 40, "Input",ExpressionUUID->"9a2b7e94-5c30-4ffc-a84b-bff52e111d7d"], +Cell[7217, 207, 322, 5, 46, "Output",ExpressionUUID->"741a95ae-fdb6-4182-b8fb-e0ced6e2e1d7"] }, 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[7576, 217, 557, 19, 109, "Input",ExpressionUUID->"87b68da9-7698-48a0-b04f-f509432fa61a"], +Cell[8136, 238, 342, 5, 46, "Output",ExpressionUUID->"c5a18917-5973-4891-83fb-a3bedc3be8ac"] }, 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[8515, 248, 557, 19, 109, "Input",ExpressionUUID->"08e9a5e3-ceca-4e4d-9d85-dcdc01f15497"], +Cell[9075, 269, 338, 5, 46, "Output",ExpressionUUID->"c0ab3f5b-fbc3-4357-87fe-a1b4315e5112"] }, 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[9450, 279, 1588, 50, 293, "Input",ExpressionUUID->"945f3639-1dc6-4b72-a9cb-e596544d2e7e"], +Cell[11041, 331, 340, 5, 46, "Output",ExpressionUUID->"6bb29ad4-e55b-4998-9a8b-f21716be6dd4"] }, 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[11418, 341, 1422, 46, 232, "Input",ExpressionUUID->"45364a82-2872-40aa-84a6-a5ca1fc1cb3b"], +Cell[12843, 389, 355, 6, 46, "Output",ExpressionUUID->"775ac218-e89a-4828-b39d-68a926680402"] }, 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[13235, 400, 1422, 46, 232, "Input",ExpressionUUID->"f1234c90-df2a-48b4-a59b-a0f05f3c1b1b"], +Cell[14660, 448, 356, 6, 46, "Output",ExpressionUUID->"308cec26-1a97-46a0-b4aa-04ab5ab96b29"] }, 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[15053, 459, 1588, 50, 293, "Input",ExpressionUUID->"f9c4fa76-9404-46f8-9f6a-46f4b2de5826"], +Cell[16644, 511, 330, 5, 46, "Output",ExpressionUUID->"b6fc6c7d-fb83-4891-bca2-93059e313f9d"] }, 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[17011, 521, 131, 2, 40, "Input",ExpressionUUID->"8f81298a-b7b4-4832-9760-cc0d0f47e4c7"], +Cell[17145, 525, 320, 5, 46, "Output",ExpressionUUID->"a69963ee-697e-40c0-b733-621094c3e9e3"] }, 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[17502, 535, 133, 2, 40, "Input",ExpressionUUID->"0dd0f791-f7d8-4ae4-a288-9ef2ff368036"], +Cell[17638, 539, 326, 5, 46, "Output",ExpressionUUID->"81616470-9375-4ffc-91de-e17e2e2507d9"] }, 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[18001, 549, 134, 2, 40, "Input",ExpressionUUID->"ef0e21d7-03c6-4519-ba27-f91283838a45"], +Cell[18138, 553, 324, 5, 46, "Output",ExpressionUUID->"3162b855-caf2-43c2-9869-c2b873bf8784"] }, 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[18499, 563, 219, 4, 40, "Input",ExpressionUUID->"52138922-54cd-4ee4-87ed-45d472022889"], +Cell[18721, 569, 337, 6, 46, "Output",ExpressionUUID->"f50a4e07-3b71-425e-b34a-f58c4a387c57"] }, 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[19095, 580, 134, 2, 40, "Input",ExpressionUUID->"1638e4fa-cf9b-4a31-a0cc-1fcb246bb0ca"], +Cell[19232, 584, 328, 5, 46, "Output",ExpressionUUID->"7b1b0ff0-16fc-4cbe-bdbc-53b1f38b1310"] }, 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[19597, 594, 324, 5, 40, "Input",ExpressionUUID->"2f620471-b63c-4771-87a3-006e2c0a21aa"], +Cell[19924, 601, 321, 5, 46, "Output",ExpressionUUID->"7bb9ad5d-c994-4f4a-a26a-dd8170ac5a7a"] }, 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[20282, 611, 296, 5, 40, "Input",ExpressionUUID->"ef347321-9358-4b45-bff8-80e580059290"], +Cell[20581, 618, 323, 5, 46, "Output",ExpressionUUID->"66c60f70-5a93-4a4b-8944-ea3bed68adbc"] }, 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[20941, 628, 219, 4, 40, "Input",ExpressionUUID->"bb076c83-5b70-4f65-9ae9-7a95917262a2"], +Cell[21163, 634, 324, 5, 46, "Output",ExpressionUUID->"5c916483-f52b-4911-92fd-8e31e653dc08"] }, 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[21524, 644, 350, 10, 59, "Input",ExpressionUUID->"493c55a3-f2da-4459-a6fd-c968433db861"], +Cell[21877, 656, 340, 5, 46, "Output",ExpressionUUID->"44cf2e9b-c210-4f75-903d-38d29b13a87a"] }, 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[22254, 666, 350, 10, 59, "Input",ExpressionUUID->"b1240445-fba9-4b27-a292-2d4b4443b647"], +Cell[22607, 678, 359, 6, 46, "Output",ExpressionUUID->"d740b62b-0036-424e-b47b-148de58590e6"] }, 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[23003, 689, 994, 26, 201, "Input",ExpressionUUID->"35cf7260-538b-4d3c-867b-43217ff4ac8d"], +Cell[24000, 717, 344, 5, 46, "Output",ExpressionUUID->"320b6c36-9111-4bb3-9d8a-c2339d1e6046"] }, 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[24381, 727, 199, 3, 40, "Input",ExpressionUUID->"7356a314-b541-4874-a175-22567d0759f3"], +Cell[24583, 732, 322, 5, 46, "Output",ExpressionUUID->"c3a2057e-b6e4-4ad2-a553-bc80e193e20c"] }, 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[24942, 742, 329, 5, 40, "Input",ExpressionUUID->"2d6dc8de-111b-46d0-9c7b-faaaa68ef97b"], +Cell[25274, 749, 277, 4, 46, "Output",ExpressionUUID->"860a3804-7a6f-4237-b606-604a38ce5141"] +}, Open ]], +Cell[25566, 756, 173, 2, 40, "Input",ExpressionUUID->"068f2919-5610-4f86-97ec-f4e5d2e7f84e"], +Cell[CellGroupData[{ +Cell[25764, 762, 327, 5, 40, "Input",ExpressionUUID->"e7da8345-27f8-4933-b9b6-f77291a35101"], +Cell[26094, 769, 273, 4, 46, "Output",ExpressionUUID->"ed7fc611-9947-492c-8fa5-7f3ef2f59e62"] +}, Open ]], +Cell[26382, 776, 173, 2, 40, "Input",ExpressionUUID->"d92262e3-1a4b-495c-932d-e32c0d3b8de4"], +Cell[CellGroupData[{ +Cell[26580, 782, 326, 5, 40, "Input",ExpressionUUID->"32568ce9-d8b4-4134-886e-df6f440c0a37"], +Cell[26909, 789, 276, 4, 46, "Output",ExpressionUUID->"968bfc63-06cf-4148-a218-a3a172b430e8"] +}, Open ]], +Cell[27200, 796, 173, 2, 40, "Input",ExpressionUUID->"ecd3ad3f-7309-4bff-96b7-d2195b467dae"], +Cell[CellGroupData[{ +Cell[27398, 802, 354, 5, 40, "Input",ExpressionUUID->"3c0faee5-bafb-4ff9-bc1b-713e9c87713d"], +Cell[27755, 809, 278, 4, 46, "Output",ExpressionUUID->"5c40df3f-6508-4305-9e52-ed0350fde9a8"] +}, Open ]], +Cell[28048, 816, 171, 2, 40, "Input",ExpressionUUID->"5fc937a2-d829-448e-9182-28f4ed589feb"], +Cell[CellGroupData[{ +Cell[28244, 822, 299, 5, 40, "Input",ExpressionUUID->"f8624fee-6307-4387-bcf6-b655f185f370"], +Cell[28546, 829, 275, 4, 46, "Output",ExpressionUUID->"561d80fd-d30d-464c-a432-d1375ebc7cbc"] +}, Open ]], +Cell[28836, 836, 171, 2, 40, "Input",ExpressionUUID->"a10adebf-2fa7-41b5-83f3-9787bfa29f35"], +Cell[CellGroupData[{ +Cell[29032, 842, 302, 5, 40, "Input",ExpressionUUID->"c9c8a4b7-60c9-43e5-bbda-507baf67181c"], +Cell[29337, 849, 278, 4, 46, "Output",ExpressionUUID->"d5d6d5bb-2d8f-4c3d-9fa9-2998edf0968b"] +}, Open ]], +Cell[29630, 856, 173, 2, 40, "Input",ExpressionUUID->"df96b102-439a-4231-b667-4e2ef6f720e2"], +Cell[CellGroupData[{ +Cell[29828, 862, 305, 5, 40, "Input",ExpressionUUID->"1a12661f-9e45-48b5-9ba0-f270b95c8bce"], +Cell[30136, 869, 273, 4, 46, "Output",ExpressionUUID->"b036bbb5-7330-4989-bdc8-b42ceeb0c6ed"] +}, Open ]], +Cell[30424, 876, 172, 2, 40, "Input",ExpressionUUID->"571cfdea-2a73-4641-85e0-ccffce8a7873"], +Cell[CellGroupData[{ +Cell[30621, 882, 275, 4, 40, "Input",ExpressionUUID->"d6001a94-4b1a-4f78-b4eb-8d5d18c3f63f"], +Cell[30899, 888, 279, 4, 46, "Output",ExpressionUUID->"ba0c28cf-c038-48a7-89e7-e2c31dcb9122"] +}, Open ]], +Cell[31193, 895, 175, 2, 40, "Input",ExpressionUUID->"cba4e0ed-eb18-476b-8eb1-527b36fa1cd3"], +Cell[CellGroupData[{ +Cell[31393, 901, 19809, 485, 3376, "Input",ExpressionUUID->"fb9cdd2f-21d7-4d15-a78c-9668f738d81a"], +Cell[51205, 1388, 341, 5, 46, "Output",ExpressionUUID->"190159b3-66a2-41bd-9270-a756494c3b34"] }, 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[51583, 1398, 19748, 489, 3376, "Input",ExpressionUUID->"1c6b657c-5954-4822-89fb-09fff8520557"], +Cell[71334, 1889, 337, 5, 46, "Output",ExpressionUUID->"7204f48e-a65a-44ac-b211-79222569e35d"] }, 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[71708, 1899, 19748, 483, 3375, "Input",ExpressionUUID->"33e764b2-8a89-4693-98a2-2007aaf03f1b"], +Cell[91459, 2384, 356, 6, 46, "Output",ExpressionUUID->"cded83c1-f4e6-4be5-91a2-8a9f7ab88d9e"] }, 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[91852, 2395, 22534, 553, 3857, "Input",ExpressionUUID->"2f04f962-69f9-4808-a961-45622dfe1efa"], +Cell[114389, 2950, 358, 6, 46, "Output",ExpressionUUID->"113a3288-937e-4f38-b6d0-0c3083bd9b19"] }, 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[114784, 2961, 22535, 553, 3857, "Input",ExpressionUUID->"d4680d42-bf04-4c16-ba69-ff9126867169"], +Cell[137322, 3516, 355, 6, 46, "Output",ExpressionUUID->"0c6da468-03ec-4f5d-bcb9-24b692edfe42"] }, 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[137714, 3527, 25491, 626, 4339, "Input",ExpressionUUID->"468f2a7c-cae2-409b-a11e-880f5a9cdf53"], +Cell[163208, 4155, 361, 6, 46, "Output",ExpressionUUID->"5d30ad1b-0036-48be-beac-d833f3153142"] }, 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[163606, 4166, 130, 2, 40, "Input",ExpressionUUID->"62bbc4dc-88c5-4427-9efd-afd47ef12715"], +Cell[163739, 4170, 320, 5, 46, "Output",ExpressionUUID->"50fc46ec-f71d-48dc-9652-908ae44f2271"] }, 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[164096, 4180, 130, 2, 40, "Input",ExpressionUUID->"df5f9d55-8d05-4cad-aba0-aa92ad5337d1"], +Cell[164229, 4184, 322, 5, 46, "Output",ExpressionUUID->"b10b946d-3909-4628-bddd-621f41097a10"] }, 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[164588, 4194, 1144, 39, 155, "Input",ExpressionUUID->"20036af8-8bf6-4256-921c-05f06a486494"], +Cell[165735, 4235, 340, 5, 46, "Output",ExpressionUUID->"1b25deaa-d3a1-4846-aef1-671bb6175a19"] }, 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[166112, 4245, 1041, 35, 210, "Input",ExpressionUUID->"ca995975-97b9-4d3d-bbd1-0966883ae44c"], +Cell[167156, 4282, 355, 6, 46, "Output",ExpressionUUID->"5368a95d-a046-40d5-9c90-66942e05f4fd"] }, 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[167548, 4293, 1144, 39, 155, "Input",ExpressionUUID->"992fc12b-22d0-4531-9645-e0be5463c324"], +Cell[168695, 4334, 338, 5, 46, "Output",ExpressionUUID->"8a25dfe4-32ae-44c5-b8ed-cb25226bfb9c"] }, 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[169070, 4344, 108, 1, 40, "Input",ExpressionUUID->"a0fb8524-7508-40e2-ae69-74019e6b14e7"], +Cell[169181, 4347, 342, 5, 46, "Output",ExpressionUUID->"be05b6ba-e67d-4086-bc28-2dd29e2aa0cd"] }, 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[169560, 4357, 108, 1, 40, "Input",ExpressionUUID->"f3b43235-4af2-4d3c-9f67-385c51d36812"], +Cell[169671, 4360, 357, 6, 46, "Output",ExpressionUUID->"f77d1a4a-7db9-4a28-a5f4-66f141ea9955"] }, 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[170065, 4371, 108, 1, 40, "Input",ExpressionUUID->"39bcc587-e791-4b11-abb0-1ad2a3a35998"], +Cell[170176, 4374, 355, 6, 46, "Output",ExpressionUUID->"b4573bad-e8e3-445c-9316-7eceead31285"] }, 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[170568, 4385, 108, 1, 40, "Input",ExpressionUUID->"cb54a78a-92d3-4b10-8ffc-8415b453353e"], +Cell[170679, 4388, 342, 5, 46, "Output",ExpressionUUID->"052f5136-2ce4-488f-a483-5df250092388"] }, 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[171058, 4398, 107, 1, 40, "Input",ExpressionUUID->"be871e39-70cb-436d-a3f7-16fd49aa97db"], +Cell[171168, 4401, 341, 5, 46, "Output",ExpressionUUID->"23eebd8a-2e04-4342-9a7d-3ea7bb9db678"] }, 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[171546, 4411, 107, 1, 40, "Input",ExpressionUUID->"c8f930b4-ac31-4991-8fc8-fd74b36c1a36"], +Cell[171656, 4414, 338, 5, 46, "Output",ExpressionUUID->"33d12c76-98d8-483a-b41c-3bc764dd583e"] }, 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[172031, 4424, 497, 16, 77, "Input",ExpressionUUID->"180f6bc0-958b-4021-8516-79f797e9009a"], +Cell[172531, 4442, 357, 6, 46, "Output",ExpressionUUID->"ca39d4e5-5de6-4df1-9cfb-9fa2cbc0abd8"] }, 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[172925, 4453, 497, 16, 77, "Input",ExpressionUUID->"ba17ebad-04b1-4a88-8af7-9993867476bb"], +Cell[173425, 4471, 356, 6, 46, "Output",ExpressionUUID->"f53fed09-f60f-44db-bee4-cdcced3abb72"] }, 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[173818, 4482, 1788, 60, 473, "Input",ExpressionUUID->"c00e2051-05df-404a-bc16-81d295dcc1b3"], +Cell[175609, 4544, 338, 5, 46, "Output",ExpressionUUID->"76bb91c5-6585-4377-b9c1-d8d4df2c6c9b"] }, 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[175984, 4554, 1101, 36, 241, "Input",ExpressionUUID->"d43e544c-37c5-4e03-bcc3-00b3c2abeb49"], +Cell[177088, 4592, 355, 6, 46, "Output",ExpressionUUID->"47e03608-8a89-4af1-ad05-11ed9d3653f6"] }, 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[177480, 4603, 1818, 61, 473, "Input",ExpressionUUID->"74694c83-dde5-4394-9190-6cb7ddad65c6"], +Cell[179301, 4666, 337, 5, 46, "Output",ExpressionUUID->"0fd76d83-6bb9-4441-a7e4-d3eebeb2ecd7"] }, 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[179675, 4676, 1631, 53, 228, "Input",ExpressionUUID->"487d4e37-6938-4aa0-9459-12bbdb6364a2"], +Cell[181309, 4731, 338, 5, 46, "Output",ExpressionUUID->"4d25cd87-d1dc-4ec1-9cfd-879e65572d8e"] }, 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[181684, 4741, 1631, 53, 228, "Input",ExpressionUUID->"0a0f3ef6-70b8-4439-9a4b-5b5af2be45c3"], +Cell[183318, 4796, 338, 5, 46, "Output",ExpressionUUID->"e569f40b-1503-42c7-a678-8c6593da254a"] }, 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[183693, 4806, 206, 3, 40, "Input",ExpressionUUID->"bdefbecf-0aaa-4a45-a861-406cf54e52d1"], +Cell[183902, 4811, 161, 2, 46, "Output",ExpressionUUID->"fe5c01b5-f127-491f-8084-18c94d3ba819"] }, Open ]], -Cell[376133, 8866, 209, 5, 56, "Input",ExpressionUUID->"f380af60-a605-c546-a4c8-b989835aa113"], +Cell[184078, 4816, 173, 2, 40, "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[184276, 4822, 206, 3, 40, "Input",ExpressionUUID->"45ed831b-459a-9a41-990f-c079ad464f5d"], +Cell[184485, 4827, 161, 2, 46, "Output",ExpressionUUID->"d2cb242c-3d95-4166-8b4a-98314c7cf5bd"] +}, Open ]], +Cell[184661, 4832, 173, 2, 40, "Input",ExpressionUUID->"bc946e22-fdd1-8b4b-8e5a-11f4dcb03e07"], +Cell[CellGroupData[{ +Cell[184859, 4838, 1297, 42, 158, "Input",ExpressionUUID->"78018a61-7851-fe4d-b32f-cb68a3158f29"], +Cell[186159, 4882, 195, 2, 46, "Output",ExpressionUUID->"cbeda04c-b21b-4ec8-9c31-a0eac6be3d92"] }, 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[186391, 4889, 929, 30, 139, "Input",ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-7221ff813b6d"], +Cell[187323, 4921, 194, 2, 46, "Output",ExpressionUUID->"f67a58f7-bede-4d65-a4dd-ff39cc4e2234"] }, 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[187554, 4928, 906, 29, 139, "Input",ExpressionUUID->"f22831a7-63b7-f444-8e3a-fa370a62ac27"], +Cell[188463, 4959, 195, 2, 46, "Output",ExpressionUUID->"f129911b-15eb-4024-941d-2d9174d419f5"] }, 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[188695, 4966, 554, 18, 73, "Input",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"], +Cell[189252, 4986, 191, 2, 46, "Output",ExpressionUUID->"7a0b2e58-6f33-42db-b481-7526626b3654"] }, 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[189480, 4993, 619, 20, 73, "Input",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"], +Cell[190102, 5015, 189, 2, 46, "Output",ExpressionUUID->"67692164-c970-414d-9d70-3dae70fa7d92"] +}, Open ]], +Cell[CellGroupData[{ +Cell[190328, 5022, 166, 4, 77, "Input",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"], +Cell[190497, 5028, 191, 2, 46, "Output",ExpressionUUID->"9d7944e9-7c46-4806-9783-723e0c8e6af6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[190725, 5035, 166, 4, 77, "Input",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"], +Cell[190894, 5041, 188, 2, 46, "Output",ExpressionUUID->"4458b354-e168-44e9-8392-2c20f44363c3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191119, 5048, 177, 4, 60, "Input",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"], +Cell[191299, 5054, 187, 2, 46, "Output",ExpressionUUID->"a16d0340-d01c-4341-b2b7-9f5c2951746f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191523, 5061, 177, 4, 60, "Input",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"], +Cell[191703, 5067, 193, 2, 46, "Output",ExpressionUUID->"0230aef7-5185-4bfc-a694-deb25a6c1162"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191933, 5074, 6051, 184, 1094, "Input",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"], +Cell[197987, 5260, 193, 2, 46, "Output",ExpressionUUID->"e17d9871-0f15-4365-ae2f-dba568d9eb27"] +}, Open ]], +Cell[CellGroupData[{ +Cell[198217, 5267, 364, 8, 58, "Input",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"], +Cell[198584, 5277, 191, 2, 46, "Output",ExpressionUUID->"d2055b99-9909-42ba-a7f9-cee4304c3630"] +}, Open ]], +Cell[CellGroupData[{ +Cell[198812, 5284, 6118, 186, 1094, "Input",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"], +Cell[204933, 5472, 191, 2, 46, "Output",ExpressionUUID->"a8f9b61e-13df-4f94-b041-0f2352e736b4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[205161, 5479, 364, 8, 58, "Input",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"], +Cell[205528, 5489, 187, 2, 46, "Output",ExpressionUUID->"fda43836-da6e-4097-9b42-14a952fdf6fa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[205752, 5496, 2659, 87, 470, "Input",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"], +Cell[208414, 5585, 190, 2, 46, "Output",ExpressionUUID->"cf519683-4f0a-4f8f-919c-bae0da95fb0d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[208641, 5592, 2599, 84, 470, "Input",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"], +Cell[211243, 5678, 191, 2, 46, "Output",ExpressionUUID->"c7f913e2-fe29-4bbe-88b0-acb8512efc42"] +}, Open ]], +Cell[CellGroupData[{ +Cell[211471, 5685, 3708, 117, 620, "Input",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"], +Cell[215182, 5804, 194, 2, 46, "Output",ExpressionUUID->"bcfef618-7c92-49dc-8515-ce629f399335"] +}, Open ]], +Cell[215391, 5809, 160, 3, 40, "Input",ExpressionUUID->"714abd93-e0d1-eb45-a9e1-7a2f5d020eb1"], +Cell[CellGroupData[{ +Cell[215576, 5816, 2099, 59, 292, "Input",ExpressionUUID->"137c38a2-741c-bd43-b6d9-c0135e32eaf8"], +Cell[217678, 5877, 647, 14, 84, "Message",ExpressionUUID->"c1e470fa-09b0-41ef-a802-39eefc337bdb"], +Cell[218328, 5893, 644, 14, 84, "Message",ExpressionUUID->"c789fe6a-8f96-49a5-a260-03c628c2fbaf"], +Cell[218975, 5909, 646, 14, 84, "Message",ExpressionUUID->"3ea2ac7a-814b-487d-9a3a-fc9c82f9d1ff"], +Cell[219624, 5925, 491, 11, 60, "Message",ExpressionUUID->"53a4bac3-e2aa-4f9f-b73a-5433d6559d11"], +Cell[220118, 5938, 190, 2, 46, "Output",ExpressionUUID->"93d02678-c08d-4f97-8753-b069f28b14ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[220345, 5945, 2097, 59, 292, "Input",ExpressionUUID->"9b196534-2ca5-e54b-8014-b0ab3cd09ac2"], +Cell[222445, 6006, 643, 14, 84, "Message",ExpressionUUID->"2dc157bb-585d-4cdc-b1a6-26e7e0510fa6"], +Cell[223091, 6022, 644, 14, 84, "Message",ExpressionUUID->"76615d96-7fa8-4e87-81a3-a24a4b80d24c"], +Cell[223738, 6038, 646, 14, 84, "Message",ExpressionUUID->"99561a4f-35da-4dea-952c-2fcdf16cb7cb"], +Cell[224387, 6054, 492, 11, 60, "Message",ExpressionUUID->"65400ca0-4761-411c-ae6c-f198329cf805"], +Cell[224882, 6067, 190, 2, 46, "Output",ExpressionUUID->"f106396f-43b6-437c-a136-d7e6972db912"] +}, Open ]], +Cell[CellGroupData[{ +Cell[225109, 6074, 2047, 54, 292, "Input",ExpressionUUID->"124cd7db-c537-8943-bef2-1a154ab4a709"], +Cell[227159, 6130, 20334, 380, 331, "Output",ExpressionUUID->"f93aaf10-e228-4542-9f69-e7cdcb495725"] +}, Open ]], +Cell[CellGroupData[{ +Cell[247530, 6515, 2113, 59, 387, "Input",ExpressionUUID->"5a7f9400-1446-9746-a463-bade8ae5c530"], +Cell[249646, 6576, 535, 12, 105, "Message",ExpressionUUID->"e7fd3af8-70a2-4260-ade4-fef60557e369"], +Cell[250184, 6590, 541, 12, 105, "Message",ExpressionUUID->"f40ca641-d206-4092-9369-582e491819f6"], +Cell[250728, 6604, 544, 12, 105, "Message",ExpressionUUID->"eabbe243-5aed-4a30-b16d-3105b6b32600"], +Cell[251275, 6618, 493, 11, 60, "Message",ExpressionUUID->"cfff5e8a-2c73-422d-959a-d31a9779ec07"], +Cell[251771, 6631, 23713, 437, 325, "Output",ExpressionUUID->"e358fef3-0e71-44bd-af15-e7d0dcdf45fa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[275521, 7073, 2471, 69, 323, "Input",ExpressionUUID->"0f83f761-b16d-5343-987d-511095eaf120"], +Cell[277995, 7144, 9492, 222, 334, "Output",ExpressionUUID->"f21c7f19-af3d-476c-b03a-adcc79dcae07"] +}, Open ]], +Cell[CellGroupData[{ +Cell[287524, 7371, 228, 4, 40, "Input",ExpressionUUID->"8cdd4baa-f7c9-104e-b978-89d3982ba28f"], +Cell[287755, 7377, 30073, 569, 325, "Output",ExpressionUUID->"080421cb-8882-480b-b0a7-d5ca4a5038cd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[317865, 7951, 236, 6, 67, "Input",ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-3438788b15d6"], +Cell[318104, 7959, 192, 2, 46, "Output",ExpressionUUID->"38c5ce3d-c9c2-4480-b301-17e2cc77e0c7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[318333, 7966, 1835, 52, 339, "Input",ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-0e75880d5d98"], +Cell[320171, 8020, 547, 12, 112, "Message",ExpressionUUID->"fef91c12-83b6-4ef0-9c55-b213430aa9bc"], +Cell[320721, 8034, 549, 12, 112, "Message",ExpressionUUID->"a75b7b5a-256d-4eb4-a2fb-c2ced99eb583"], +Cell[321273, 8048, 553, 12, 112, "Message",ExpressionUUID->"6a1a880a-033c-4abd-9321-fd2fee793f48"], +Cell[321829, 8062, 493, 11, 60, "Message",ExpressionUUID->"3712ee63-7285-42db-aeee-537edd283484"], +Cell[322325, 8075, 24078, 443, 325, "Output",ExpressionUUID->"42529393-eb33-4d7d-8ab6-ee6cfd6e8cf0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[346440, 8523, 1616, 48, 144, "Input",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"], +Cell[348059, 8573, 648, 14, 84, "Message",ExpressionUUID->"635a19b2-696e-4f02-a465-e1d6e334c1bc"], +Cell[348710, 8589, 648, 14, 84, "Message",ExpressionUUID->"222acac1-919c-4bd3-a43b-1817ea9635f2"], +Cell[349361, 8605, 649, 14, 84, "Message",ExpressionUUID->"5151974a-58ff-4ef4-97a2-49f32d7c286e"], +Cell[350013, 8621, 497, 11, 60, "Message",ExpressionUUID->"9fa5c9ac-dbad-4a93-9cd0-701b33de4da6"], +Cell[350513, 8634, 193, 3, 46, "Output",ExpressionUUID->"012a07f4-f38e-4a13-8a4e-880bda9af68e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[350743, 8642, 2272, 64, 461, "Input",ExpressionUUID->"eb852908-4d60-c84e-80d9-a57fd4094f56"], +Cell[353018, 8708, 646, 14, 84, "Message",ExpressionUUID->"bae06a35-0613-4232-867c-6d17722f3d52"], +Cell[353667, 8724, 645, 14, 84, "Message",ExpressionUUID->"e8faa4d7-4efa-4d6a-b534-1db7e7480e0c"], +Cell[354315, 8740, 647, 14, 84, "Message",ExpressionUUID->"144073a0-7191-4013-9b37-c6a0be8e85e7"], +Cell[354965, 8756, 493, 11, 60, "Message",ExpressionUUID->"4de0b155-41a9-41e7-a7cc-a36cda52b59a"], +Cell[355461, 8769, 195, 3, 46, "Output",ExpressionUUID->"ec5c5f5c-fdea-4e30-8613-af46b5019eb2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[355693, 8777, 2235, 63, 461, "Input",ExpressionUUID->"d11037f6-09e7-b44f-8a1d-47c1a485c608"], +Cell[357931, 8842, 648, 14, 84, "Message",ExpressionUUID->"2035f828-1972-4f83-b25e-cad1fb8ef5fd"], +Cell[358582, 8858, 645, 14, 84, "Message",ExpressionUUID->"eac276c8-5b85-41ed-8f30-569372348d43"], +Cell[359230, 8874, 647, 14, 84, "Message",ExpressionUUID->"493dbde3-e8cf-4c49-a991-d1006835402a"], +Cell[359880, 8890, 495, 11, 60, "Message",ExpressionUUID->"c17cdd01-e415-42d4-a3e6-9ebd2391cfee"], +Cell[360378, 8903, 197, 3, 46, "Output",ExpressionUUID->"ff0f016f-18c5-4c11-b750-2ce0c9a24de0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[360612, 8911, 2233, 63, 461, "Input",ExpressionUUID->"431dd2fa-6331-2449-bc19-0d79e6ed8953"], +Cell[362848, 8976, 648, 14, 84, "Message",ExpressionUUID->"d0668f3e-9d48-4e4b-a655-58ed51156c3e"], +Cell[363499, 8992, 647, 14, 84, "Message",ExpressionUUID->"5bd2fdcf-0699-45a6-acd0-d8c11c4a8dc4"], +Cell[364149, 9008, 651, 14, 84, "Message",ExpressionUUID->"4709c3ac-fc59-4775-9133-c2c38e38d873"], +Cell[364803, 9024, 497, 11, 60, "Message",ExpressionUUID->"9e9c8c70-9f90-4f32-8543-9e78dce2f96b"], +Cell[365303, 9037, 197, 3, 46, "Output",ExpressionUUID->"a1d2ee48-616c-45ca-8946-9fc392a56860"] +}, Open ]], +Cell[CellGroupData[{ +Cell[365537, 9045, 236, 6, 66, "Input",ExpressionUUID->"8c5df121-e0b9-a146-bc34-b231aa8028b9"], +Cell[365776, 9053, 193, 3, 46, "Output",ExpressionUUID->"2646347b-89d3-420a-a4c9-d520ac562aaf"] +}, Open ]], +Cell[365984, 9059, 271, 6, 40, "Input",ExpressionUUID->"831a27fc-89ff-e041-97f1-0ec5d19a7879"], +Cell[CellGroupData[{ +Cell[366280, 9069, 558, 19, 73, "Input",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"], +Cell[366841, 9090, 196, 3, 46, "Output",ExpressionUUID->"6cedc9f5-583b-4309-a542-a60c1acc6f4e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[367074, 9098, 170, 5, 77, "Input",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"], +Cell[367247, 9105, 196, 3, 46, "Output",ExpressionUUID->"9d3a4edf-c3ea-4651-b473-52c773ee611a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[367480, 9113, 181, 5, 60, "Input",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"], +Cell[367664, 9120, 195, 3, 46, "Output",ExpressionUUID->"a6d39754-4efe-4e10-85a8-a51fa784a073"] +}, Open ]], +Cell[CellGroupData[{ +Cell[367896, 9128, 6055, 185, 1094, "Input",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"], +Cell[373954, 9315, 195, 3, 46, "Output",ExpressionUUID->"4f0b4c20-74e4-4743-9c6f-cd2514cdbad6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[374186, 9323, 368, 9, 58, "Input",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"], +Cell[374557, 9334, 195, 3, 46, "Output",ExpressionUUID->"84840e74-e792-408a-b473-0d61927200aa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[374789, 9342, 6122, 187, 1094, "Input",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"], +Cell[380914, 9531, 196, 3, 46, "Output",ExpressionUUID->"7b262631-6a4c-41b7-8aca-54a95340e0b0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[381147, 9539, 368, 9, 58, "Input",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"], +Cell[381518, 9550, 196, 3, 46, "Output",ExpressionUUID->"5db5b225-ec64-4c80-b588-38fae0cbdfb6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[381751, 9558, 2663, 88, 470, "Input",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"], +Cell[384417, 9648, 196, 3, 46, "Output",ExpressionUUID->"368784ae-27ac-4185-9472-f5d7f91f05cb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[384650, 9656, 2603, 85, 470, "Input",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"], +Cell[387256, 9743, 195, 3, 46, "Output",ExpressionUUID->"643fd9e5-e23c-4612-9554-15835f644b1e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[387488, 9751, 3712, 118, 620, "Input",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"], +Cell[391203, 9871, 196, 3, 46, "Output",ExpressionUUID->"d4c18729-7e7c-4667-9289-21979f47fb0c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[391436, 9879, 2101, 60, 292, "Input",ExpressionUUID->"220bdeed-2e17-e94c-a7b0-3e066daf15d7"], +Cell[393540, 9941, 647, 14, 84, "Message",ExpressionUUID->"ae393f59-5332-46e8-8c15-e35e7fe18e9c"], +Cell[394190, 9957, 647, 14, 84, "Message",ExpressionUUID->"4c2e1622-80c7-4e3c-82fd-6e395e8a9052"], +Cell[394840, 9973, 645, 14, 84, "Message",ExpressionUUID->"85003b8a-2990-43ae-8b9f-40d5f8505c4c"], +Cell[395488, 9989, 495, 11, 60, "Message",ExpressionUUID->"8de685ba-02e3-42c1-803e-f1b604b6a101"], +Cell[395986, 10002, 193, 3, 46, "Output",ExpressionUUID->"784387c7-6cf9-45aa-b23e-2ba6cf176bc1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[396216, 10010, 2103, 60, 292, "Input",ExpressionUUID->"b8791a07-33fe-8c4f-9c59-dd23af9a4471"], +Cell[398322, 10072, 647, 14, 84, "Message",ExpressionUUID->"e9b5d0a8-f30b-4891-99c0-2808aa6e82d0"], +Cell[398972, 10088, 645, 14, 84, "Message",ExpressionUUID->"8040490e-f34a-47d4-a796-a8d8671dd1e9"], +Cell[399620, 10104, 645, 14, 84, "Message",ExpressionUUID->"bed0149e-adb6-462f-a5a8-09b7dfe431e2"], +Cell[400268, 10120, 491, 11, 60, "Message",ExpressionUUID->"58993437-c8cd-4e03-9af4-d54bdc70044e"], +Cell[400762, 10133, 196, 3, 46, "Output",ExpressionUUID->"70e8022f-8240-4994-b898-28d300ff7854"] +}, Open ]], +Cell[CellGroupData[{ +Cell[400995, 10141, 2051, 55, 292, "Input",ExpressionUUID->"3fe6e7f1-b44a-234f-af77-3cf1fdaf28d9"], +Cell[403049, 10198, 20528, 386, 331, "Output",ExpressionUUID->"5ebed38d-b15d-4149-be51-a37c3ded6773"] +}, Open ]], +Cell[CellGroupData[{ +Cell[423614, 10589, 2138, 60, 387, "Input",ExpressionUUID->"ab29778f-f183-804b-b871-4070462057d7"], +Cell[425755, 10651, 538, 12, 105, "Message",ExpressionUUID->"5c110d0f-3e9e-446f-8b41-89589ae07919"], +Cell[426296, 10665, 539, 12, 105, "Message",ExpressionUUID->"fa49f5d7-8647-433e-ab8c-62b2a3174b71"], +Cell[426838, 10679, 543, 12, 105, "Message",ExpressionUUID->"51e79501-fc8c-4612-b945-86d40a541ea3"], +Cell[427384, 10693, 497, 11, 60, "Message",ExpressionUUID->"f035e145-0c55-42e1-bb01-37dcfedc8e7a"], +Cell[427884, 10706, 24034, 441, 325, "Output",ExpressionUUID->"2b844a97-306f-4c00-99bb-f00d78ab23cf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[451955, 11152, 232, 5, 40, "Input",ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-6bd251746ea6"], +Cell[452190, 11159, 30392, 573, 325, "Output",ExpressionUUID->"9ec76f37-0055-4022-ae8c-8645dd5c90aa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[482619, 11737, 1616, 48, 144, "Input",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"], +Cell[484238, 11787, 647, 14, 84, "Message",ExpressionUUID->"3b519fe2-85ab-4fef-bc78-f3473327fe0e"], +Cell[484888, 11803, 646, 14, 84, "Message",ExpressionUUID->"fc190c7e-0514-425c-b980-e4503042e892"], +Cell[485537, 11819, 647, 14, 84, "Message",ExpressionUUID->"24e9cde2-8b9f-4d46-9c89-2e80ba3a9077"], +Cell[486187, 11835, 493, 11, 60, "Message",ExpressionUUID->"99c3cf36-1586-49c8-9d4f-d8f03bdacf53"], +Cell[486683, 11848, 193, 3, 46, "Output",ExpressionUUID->"17c4aece-07db-4666-bf76-d763c9959ab8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[486913, 11856, 2270, 64, 461, "Input",ExpressionUUID->"5a0cc4bb-b2b0-c64c-958a-7a397847208f"], +Cell[489186, 11922, 649, 14, 84, "Message",ExpressionUUID->"1b79a785-2238-4720-b05a-357f1e66ecb5"], +Cell[489838, 11938, 649, 14, 84, "Message",ExpressionUUID->"605b5860-b02b-4025-82cb-a766c4efdcb3"], +Cell[490490, 11954, 647, 14, 84, "Message",ExpressionUUID->"8aa07577-785a-4e59-8633-3e9a54593086"], +Cell[491140, 11970, 495, 11, 60, "Message",ExpressionUUID->"3f8bd85c-91fc-464d-b316-fe51688dc371"], +Cell[491638, 11983, 194, 3, 46, "Output",ExpressionUUID->"6bff5298-d0da-481e-b840-0bc67cf7664d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[491869, 11991, 2231, 63, 461, "Input",ExpressionUUID->"22b50200-0b82-dc47-9932-f1f0210d6caf"], +Cell[494103, 12056, 649, 14, 84, "Message",ExpressionUUID->"7c2e3423-6cf2-4c7c-932b-639675a2761b"], +Cell[494755, 12072, 649, 14, 84, "Message",ExpressionUUID->"52a7c005-7481-4060-b9c0-a67c8b44186b"], +Cell[495407, 12088, 649, 14, 84, "Message",ExpressionUUID->"3985e53e-0df6-402b-a748-0e96ac83ef82"], +Cell[496059, 12104, 497, 11, 60, "Message",ExpressionUUID->"9a0c0e0e-1a5d-4f98-af9f-7dfebc22eb24"], +Cell[496559, 12117, 193, 3, 46, "Output",ExpressionUUID->"674ed490-e029-4850-a6cd-34ce2d08002f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[496789, 12125, 2233, 63, 461, "Input",ExpressionUUID->"8a5105db-666c-444e-9451-d3e8d1574bcd"], +Cell[499025, 12190, 648, 14, 84, "Message",ExpressionUUID->"5da739d4-5b16-426f-8f12-55116a7cd315"], +Cell[499676, 12206, 651, 14, 84, "Message",ExpressionUUID->"22cbec62-d99a-40fd-ae4d-421da89409ec"], +Cell[500330, 12222, 649, 14, 84, "Message",ExpressionUUID->"931e25ea-ef09-4ce3-8ea9-bfc0e562a3dd"], +Cell[500982, 12238, 495, 11, 60, "Message",ExpressionUUID->"02f60dca-bb74-4a33-a848-738e4ca11f89"], +Cell[501480, 12251, 192, 3, 46, "Output",ExpressionUUID->"f5f60a69-b6bd-4cfe-9ce3-656dd182570e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[501709, 12259, 236, 6, 66, "Input",ExpressionUUID->"d0efa798-230b-fa46-b413-76bfd8e40ccb"], +Cell[501948, 12267, 197, 3, 46, "Output",ExpressionUUID->"b2f7c547-04dc-4d6d-804f-33923615d680"] +}, Open ]], +Cell[502160, 12273, 273, 6, 40, "Input",ExpressionUUID->"f842f74e-f562-934a-9011-6604b8708636"], +Cell[CellGroupData[{ +Cell[502458, 12283, 558, 19, 73, "Input",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"], +Cell[503019, 12304, 197, 3, 46, "Output",ExpressionUUID->"f86599ee-e09f-495f-81fd-030306a4f456"] +}, Open ]], +Cell[CellGroupData[{ +Cell[503253, 12312, 170, 5, 77, "Input",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"], +Cell[503426, 12319, 193, 3, 46, "Output",ExpressionUUID->"f672cc75-d544-4f72-9bf7-019c623fa1cb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[503656, 12327, 181, 5, 60, "Input",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"], +Cell[503840, 12334, 192, 3, 46, "Output",ExpressionUUID->"5208f4a0-aa24-4aed-97a6-cd8b44671e61"] +}, Open ]], +Cell[CellGroupData[{ +Cell[504069, 12342, 6055, 185, 1094, "Input",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"], +Cell[510127, 12529, 196, 3, 46, "Output",ExpressionUUID->"9cd5f96b-0eff-4479-87bf-64e84070d4cf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[510360, 12537, 368, 9, 58, "Input",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"], +Cell[510731, 12548, 194, 3, 46, "Output",ExpressionUUID->"9c1d7f22-93d4-4001-aa4b-0a162ab8f716"] +}, Open ]], +Cell[CellGroupData[{ +Cell[510962, 12556, 6122, 187, 1094, "Input",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"], +Cell[517087, 12745, 198, 3, 46, "Output",ExpressionUUID->"19434360-aba4-44ce-82b3-92e49c87d7bb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[517322, 12753, 368, 9, 58, "Input",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"], +Cell[517693, 12764, 192, 3, 46, "Output",ExpressionUUID->"93fa4e99-e442-46e8-a1e7-78f9b32e6fc2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[517922, 12772, 2663, 88, 470, "Input",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"], +Cell[520588, 12862, 196, 3, 46, "Output",ExpressionUUID->"c8b604f2-1fde-4470-8077-69e1bff24cd4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[520821, 12870, 2603, 85, 470, "Input",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"], +Cell[523427, 12957, 193, 3, 46, "Output",ExpressionUUID->"22235e42-6aad-4ba5-9766-1971071e82fd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[523657, 12965, 3712, 118, 620, "Input",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"], +Cell[527372, 13085, 196, 3, 46, "Output",ExpressionUUID->"111beddb-395c-4a44-8dc4-e25c92c9883f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[527605, 13093, 2103, 60, 292, "Input",ExpressionUUID->"1dec41a6-6752-2041-9d38-804123b5ccd0"], +Cell[529711, 13155, 648, 14, 84, "Message",ExpressionUUID->"ac739a74-5dc7-40e5-9d69-03a2b2be6ad6"], +Cell[530362, 13171, 648, 14, 84, "Message",ExpressionUUID->"e6a21418-3702-48b9-985c-29bd858abd2a"], +Cell[531013, 13187, 649, 14, 84, "Message",ExpressionUUID->"fff84102-c43d-44bb-8e99-9c175f31b279"], +Cell[531665, 13203, 495, 11, 60, "Message",ExpressionUUID->"00ea7ce1-ec94-4348-8a6d-d35ecf6bc028"], +Cell[532163, 13216, 193, 3, 46, "Output",ExpressionUUID->"4b2f596c-a665-48b6-94d5-afe61bd645eb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[532393, 13224, 2100, 60, 292, "Input",ExpressionUUID->"442c9cc5-031c-244c-a3bb-8044e56b047f"], +Cell[534496, 13286, 646, 14, 84, "Message",ExpressionUUID->"fb789950-f0ac-436a-a4d8-af00e819b573"], +Cell[535145, 13302, 648, 14, 84, "Message",ExpressionUUID->"0de3cbb2-53f1-463a-bcb9-372e88b913e0"], +Cell[535796, 13318, 647, 14, 84, "Message",ExpressionUUID->"723dbc69-20c9-4dd3-8f6e-d2201e983019"], +Cell[536446, 13334, 495, 11, 60, "Message",ExpressionUUID->"3f1a9096-ef8a-4cb2-b338-d82c01992849"], +Cell[536944, 13347, 194, 3, 46, "Output",ExpressionUUID->"447bed97-8933-4b6a-bdba-2862d12286dd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[537175, 13355, 2053, 55, 292, "Input",ExpressionUUID->"75bdb70f-74f6-1a4c-9c04-b799ae260294"], +Cell[539231, 13412, 20383, 383, 331, "Output",ExpressionUUID->"e8c709c6-803b-414a-b05a-7f6e1b547131"] +}, Open ]], +Cell[CellGroupData[{ +Cell[559651, 13800, 2143, 60, 387, "Input",ExpressionUUID->"cbec275e-4d01-7747-9ece-7fa9a2a651b1"], +Cell[561797, 13862, 539, 12, 105, "Message",ExpressionUUID->"04227ede-f799-4f47-a9df-0700a46a3f1a"], +Cell[562339, 13876, 540, 12, 105, "Message",ExpressionUUID->"23d7e711-2c68-4321-bcd7-9a947459b14b"], +Cell[562882, 13890, 544, 12, 105, "Message",ExpressionUUID->"4a3c3fbc-b616-4d7c-beaa-5867a6572326"], +Cell[563429, 13904, 493, 11, 60, "Message",ExpressionUUID->"3c11a6ce-ee8d-4fbe-a947-5de673d501c3"], +Cell[563925, 13917, 23702, 435, 325, "Output",ExpressionUUID->"afc1c2bb-8eed-4964-b619-5d667399ba18"] +}, Open ]], +Cell[CellGroupData[{ +Cell[587664, 14357, 232, 5, 40, "Input",ExpressionUUID->"f380af60-a605-c546-a4c8-b989835aa113"], +Cell[587899, 14364, 30064, 567, 325, "Output",ExpressionUUID->"0f761a8c-5a16-4b34-92b6-7037df098424"] +}, Open ]], +Cell[CellGroupData[{ +Cell[618000, 14936, 1616, 48, 144, "Input",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"], +Cell[619619, 14986, 646, 14, 84, "Message",ExpressionUUID->"6281cfc6-a7b4-490b-9e0e-d77f5da78982"], +Cell[620268, 15002, 648, 14, 84, "Message",ExpressionUUID->"7419f57f-be6f-4138-a288-22a92c1edf54"], +Cell[620919, 15018, 648, 14, 84, "Message",ExpressionUUID->"c06195b3-6996-434a-8f1f-b705db3f106c"], +Cell[621570, 15034, 493, 11, 60, "Message",ExpressionUUID->"a2ae9ae2-4e8b-408d-9eb2-f4c0ff1c7826"], +Cell[622066, 15047, 195, 3, 46, "Output",ExpressionUUID->"a5d4431c-19ba-4d61-b9ac-1da9d5bdc4f4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[622298, 15055, 2272, 64, 461, "Input",ExpressionUUID->"f2835c98-560f-8e47-bdab-0d2700971836"], +Cell[624573, 15121, 650, 14, 84, "Message",ExpressionUUID->"8baefb6b-9958-41d4-a94d-15978258986a"], +Cell[625226, 15137, 650, 14, 84, "Message",ExpressionUUID->"eac045f9-4a15-4e87-b54e-9559787c4366"], +Cell[625879, 15153, 649, 14, 84, "Message",ExpressionUUID->"7cb07b8f-aa3c-4c0d-ad59-508bdde8eaa8"], +Cell[626531, 15169, 497, 11, 60, "Message",ExpressionUUID->"883a573d-08d5-4541-84a8-55122e7049b4"], +Cell[627031, 15182, 195, 3, 46, "Output",ExpressionUUID->"3fc89310-835e-4dca-948f-b4e13733e310"] +}, Open ]], +Cell[CellGroupData[{ +Cell[627263, 15190, 2233, 63, 461, "Input",ExpressionUUID->"ca837916-250f-4d4e-8368-5a08f479e656"], +Cell[629499, 15255, 648, 14, 84, "Message",ExpressionUUID->"89eb81a5-45e3-439e-8212-8f63f0c8f81c"], +Cell[630150, 15271, 648, 14, 84, "Message",ExpressionUUID->"23478731-d46e-447c-8e29-315b3ba6eb3e"], +Cell[630801, 15287, 649, 14, 84, "Message",ExpressionUUID->"40200d23-db9f-4cc0-a476-e17c5b4b40b3"], +Cell[631453, 15303, 497, 11, 60, "Message",ExpressionUUID->"3afa2746-d094-42ff-88a1-3a4f63b471e5"], +Cell[631953, 15316, 194, 3, 46, "Output",ExpressionUUID->"68e05601-f121-4aba-a50f-fcbf6ea9a205"] +}, Open ]], +Cell[CellGroupData[{ +Cell[632184, 15324, 2235, 63, 461, "Input",ExpressionUUID->"b579991f-985b-234a-94aa-ed18c097f8c0"], +Cell[634422, 15389, 648, 14, 84, "Message",ExpressionUUID->"84d7e252-2760-4401-ad34-b8a0ff13efef"], +Cell[635073, 15405, 648, 14, 84, "Message",ExpressionUUID->"8ace451a-6e4d-4329-aab4-4345054bc2cb"], +Cell[635724, 15421, 651, 14, 84, "Message",ExpressionUUID->"2c184738-3505-4495-804f-5693694a40fc"], +Cell[636378, 15437, 497, 11, 60, "Message",ExpressionUUID->"012c303c-1cef-4a5f-90c9-8be5bac6437e"], +Cell[636878, 15450, 194, 3, 46, "Output",ExpressionUUID->"16071b8a-8550-4687-87a7-3b3696c2d339"] +}, Open ]], +Cell[CellGroupData[{ +Cell[637109, 15458, 238, 6, 66, "Input",ExpressionUUID->"afb7855c-8700-d444-926c-6d96abe14e67"], +Cell[637350, 15466, 196, 3, 46, "Output",ExpressionUUID->"d0c49fd2-5288-4e10-bd40-a4731406dd32"] +}, Open ]], +Cell[637561, 15472, 143, 3, 40, "Input",ExpressionUUID->"19f8ebd3-c7f9-4874-9d72-c6fa3cbf5530"] } ] *) -(* End of internal cache information *) - diff --git a/Pu240_798-811_TitovAA/162-78_h_Pu240_16-17/h_162-78_Pu240_16-17_pr_Qw2.nb b/Pu240_798-811_TitovAA/162-78_h_Pu240_16-17/h_162-78_Pu240_16-17_pr_Qw2.nb index 1226680..350b8bc 100644 --- a/Pu240_798-811_TitovAA/162-78_h_Pu240_16-17/h_162-78_Pu240_16-17_pr_Qw2.nb +++ b/Pu240_798-811_TitovAA/162-78_h_Pu240_16-17/h_162-78_Pu240_16-17_pr_Qw2.nb @@ -3,42 +3,4836 @@ (*** 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[ 666478, 15930] +NotebookOptionsPosition[ 625789, 15280] +NotebookOutlinePosition[ 626251, 15299] +CellTagsIndexPosition[ 626208, 15296] 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", "=", "1.9"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.993815944576231*^9, 3.9938159912638187`*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"c2de7cc2-4c99-4f39-9ed3-3580a4aa10f5"], + +Cell[BoxData["1.9`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, 3.993815823692334*^9, 3.993815892498139*^9, { + 3.993815951583488*^9, 3.993815995572467*^9}, {3.994012734609342*^9, + 3.994012752893778*^9}, 3.994013273761056*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"7a9dd92a-02b4-420e-b7ff-7d8d8c5f71a4"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.9940127288140783`*^9, 3.994012729590282*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"a4b26aee-6a2c-44d1-a9fc-1aaec818a6f6"], + +Cell[BoxData["240"], "Output", CellChangeTimes->{ - 3.9918501402114105`*^9},ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-\ -092c5143dcf0"], + 3.9913196497381973`*^9, 3.993815823952688*^9, 3.993815892560748*^9, { + 3.993815951668881*^9, 3.993815995613329*^9}, {3.9940127346784067`*^9, + 3.9940127529711943`*^9}, 3.994013274013317*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"c4321ad5-e8e9-4435-8c08-da768774f2f4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "162"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.9938155158752823`*^9, 3.9938155169971247`*^9}}, + CellLabel->"In[3]:=",ExpressionUUID->"e7342a36-3a4c-4e3c-b128-ad5525224156"], + +Cell[BoxData["162"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.993815823968458*^9, 3.9938158925714483`*^9, { + 3.9938159516818027`*^9, 3.9938159956283493`*^9}, {3.9940127346926413`*^9, + 3.994012752988037*^9}, 3.994013274020727*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"be212a7f-e7bd-4805-9c6d-6645a74d52da"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"f5d948bf-f2a4-4e23-a3d3-6c9a3f9e9c65"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.9938158239856167`*^9, 3.99381589258189*^9, { + 3.99381595169417*^9, 3.993815995642021*^9}, {3.994012734706458*^9, + 3.994012753004796*^9}, 3.994013274027725*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"1dea85e4-4228-48af-b4de-7e46c641150a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"b1c3ea4e-289f-45ef-ba1f-10bb42b34516"], + +Cell[BoxData["0.5447500000000001`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.993815824003376*^9, 3.993815892586231*^9, { + 3.99381595170667*^9, 3.993815995646203*^9}, {3.9940127347201777`*^9, + 3.994012753022193*^9}, 3.99401327403406*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"05aaeabd-ebfe-4e2b-a569-5cec233f4d0e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"7bef9a9a-6a0f-4a16-be8b-2d9e066ce72b"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.993815824023213*^9, 3.993815892602899*^9, { + 3.9938159517115383`*^9, 3.9938159956645737`*^9}, {3.994012734734274*^9, + 3.994012753038806*^9}, 3.994013274040634*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"2ffb329c-63d8-4e8d-88fd-146593b79a18"] +}, 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->"bb1908a7-ae5b-4e41-b95d-d2dfd1e05039"], + +Cell[BoxData["6.323579663055845`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.993815824039893*^9, 3.993815892613652*^9, { + 3.993815951728698*^9, 3.993815995677742*^9}, {3.994012734748405*^9, + 3.994012753044726*^9}, 3.994013274047216*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"aa9b4478-238f-4ee7-b677-0388c55e7fe3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"842c73d8-1215-47b6-803d-f58e81165f15"], + +Cell[BoxData["4.956284070769583`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.9938158240572863`*^9, 3.993815892624365*^9, { + 3.9938159517417*^9, 3.993815995691177*^9}, {3.994012734763052*^9, + 3.994012753070916*^9}, 3.994013274053523*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"946d2672-4899-406e-bc3e-4679c087aa69"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.95921"}]], "Input", + CellChangeTimes->{ + 3.991799283179735*^9, {3.993815616610156*^9, 3.993815618917514*^9}, { + 3.9938156766732063`*^9, 3.993815681630651*^9}}, + CellLabel->"In[9]:=",ExpressionUUID->"717b4c68-32f3-4c4b-9027-380d06ad8019"], + +Cell[BoxData["0.95921`"], "Output", + CellChangeTimes->{ + 3.9938158240746737`*^9, 3.9938158926348877`*^9, {3.993815951754884*^9, + 3.993815995704525*^9}, {3.994012734778141*^9, 3.994012753087864*^9}, + 3.9940132740598087`*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"9a9aa45b-3b04-4227-a30e-4a0e5cafd3e4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.40907"}]], "Input", + CellChangeTimes->{ + 3.991799280663351*^9, {3.993815686480484*^9, 3.993815701548067*^9}}, + CellLabel->"In[10]:=",ExpressionUUID->"2c2b2fce-e2f2-4590-bde4-775d59d2118e"], + +Cell[BoxData["0.40907`"], "Output", + CellChangeTimes->{ + 3.993815824091074*^9, 3.993815892645401*^9, {3.993815951767627*^9, + 3.993815995717485*^9}, {3.994012734791346*^9, 3.99401275310209*^9}, + 3.994013274066084*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"bcd6bb0e-4f07-4439-9a8a-90fb2b8e9055"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"48a1f495-9040-4184-9ca6-09f27424a358"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.993815824106497*^9, 3.9938158926558847`*^9, { + 3.993815951780663*^9, 3.993815995730535*^9}, {3.9940127348044577`*^9, + 3.994012753117031*^9}, 3.9940132740721703`*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"26c695ed-1c6a-4e9c-b6e5-d1a2a054cb9a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"d84ce5f7-f8bd-4c80-996b-d138a320107e"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.993815824123843*^9, 3.9938158926663837`*^9, { + 3.993815951793076*^9, 3.993815995743602*^9}, {3.994012734818459*^9, + 3.994012753131789*^9}, 3.994013274078268*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"1e64510e-92ab-4955-a840-22ab7f9778b3"] +}, 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->"fef44cfc-420a-4fb1-86be-f14285b0c513"], + +Cell[BoxData["2.4538606431456684`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.993815824141597*^9, 3.993815892677889*^9, { + 3.9938159518063183`*^9, 3.9938159957558603`*^9}, {3.994012734835313*^9, + 3.994012753146474*^9}, 3.994013274084655*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"0a8f2c35-7576-45e9-ba93-d9a73dc76eea"] +}, 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->"aa3b6e3e-5528-4edf-8be6-48ec0a1c80cc"], + +Cell[BoxData["1.4512846433038022`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.993815824156972*^9, 3.993815892689371*^9, { + 3.9938159518190203`*^9, 3.993815995768323*^9}, {3.99401273484025*^9, + 3.994012753161911*^9}, 3.994013274091057*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"4b9e17a8-80b0-4698-8c35-75bedf60b36d"] +}, 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->"9ad1e9b7-692f-4087-86c3-2584e1823699"], + +Cell[BoxData["0.3744607025351484`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.9938158241736803`*^9, 3.993815892702938*^9, { + 3.993815951831235*^9, 3.993815995780489*^9}, {3.994012734857376*^9, + 3.994012753177943*^9}, 3.994013274098405*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"2cb3b60e-5c84-4b50-8fe2-fb35cd472296"] +}, 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->"26c3752f-41ff-4818-94d9-093cb862c591"], + +Cell[BoxData[ + RowBox[{"-", "0.08358618531832765`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.993815824190381*^9, 3.993815892714963*^9, { + 3.99381595184389*^9, 3.993815995792754*^9}, {3.994012734871372*^9, + 3.9940127531931753`*^9}, 3.994013274105031*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"b1b3e560-ff16-45cb-97c0-2ac640ca7795"] +}, 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->"d5a7d90c-c024-47de-9f7a-c61dceb5f492"], + +Cell[BoxData[ + RowBox[{"-", "0.5957523139282981`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.993815824207239*^9, 3.993815892726112*^9, { + 3.993815951856346*^9, 3.9938159958051043`*^9}, {3.994012734886475*^9, + 3.994012753208178*^9}, 3.9940132741127663`*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"4d6ebfe6-5d18-403e-bcea-def5d383a880"] +}, 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->"fdb7cf32-9e84-48b9-a31f-30f980927bc9"], + +Cell[BoxData["0.713744744985854`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.993815824222714*^9, 3.993815892737419*^9, { + 3.9938159518694*^9, 3.993815995817747*^9}, {3.99401273490063*^9, + 3.994012753223435*^9}, 3.9940132741196823`*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"e3d21740-630f-45f2-b8d8-47435d9c302f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"5a518950-3e81-435b-8869-d9bf9a814322"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.993815824238377*^9, 3.993815892748749*^9, { + 3.993815951883985*^9, 3.993815995830997*^9}, {3.994012734916293*^9, + 3.994012753238081*^9}, 3.994013274125786*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"e7489b04-73b9-4091-ad7a-bf26bb40a957"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel->"In[20]:=",ExpressionUUID->"a5a1abbe-467e-4d58-afb1-96ae6745fb30"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.993815824252192*^9, 3.993815892759966*^9, { + 3.993815951897129*^9, 3.9938159958447227`*^9}, {3.994012734930868*^9, + 3.9940127532525377`*^9}, 3.9940132741322002`*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"8b992ae1-ab53-4091-bb08-27ab180fe05b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"89080562-89a5-4830-8161-66272c321dd3"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.993815824265974*^9, 3.993815892777206*^9, { + 3.993815951909596*^9, 3.993815995857946*^9}, {3.994012734946954*^9, + 3.994012753268147*^9}, 3.994013274138505*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"bed0730b-f850-4331-93b1-de8c8ab25323"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"04e52ba1-f313-4c7e-8067-5f7a3253378f"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.993815824281651*^9, 3.993815892789987*^9, { + 3.993815951922598*^9, 3.993815995871676*^9}, {3.994012734961584*^9, + 3.994012753285798*^9}, 3.9940132741451406`*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"896fcbad-4dbb-4066-be7e-483eaeb85a0f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[23]:=",ExpressionUUID->"30c36f3a-9b0d-4230-bb3a-3debe6dfe738"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.993815824297344*^9, 3.9938158928016577`*^9, { + 3.993815951935726*^9, 3.993815995884973*^9}, {3.9940127349760647`*^9, + 3.994012753303388*^9}, 3.994013274151726*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"d31533fd-e396-4702-9138-ca119dafc038"] +}, 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.993815710443075*^9, 3.9938157105928802`*^9}}, + CellLabel->"In[24]:=",ExpressionUUID->"701d5204-0141-4502-a946-9b31ea3f5528"], + +Cell[BoxData["66"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, 3.993815824312414*^9, 3.993815892812936*^9, { + 3.9938159519479322`*^9, 3.9938159958976*^9}, {3.994012734991516*^9, + 3.994012753318815*^9}, 3.994013274158494*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"63173cd7-f935-458d-a9f0-1a1ac8ef12c8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, {3.993815715623077*^9, 3.993815715723624*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"c7ca3f35-c493-4aeb-bd0f-2779be4c7b43"], + +Cell[BoxData["28"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.9938158243255568`*^9, 3.993815892824174*^9, { + 3.993815951962007*^9, 3.993815995910904*^9}, {3.994012735006587*^9, + 3.994012753334146*^9}, 3.994013274164812*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"e86babd9-56f8-46a4-884f-4bf84cde19dd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"42530928-01e2-41bd-8ade-ef57b35144f2"], + +Cell[BoxData["78"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.993815824339529*^9, 3.993815892835505*^9, { + 3.9938159519756107`*^9, 3.9938159959234123`*^9}, {3.9940127350225773`*^9, + 3.99401275334903*^9}, 3.9940132741733503`*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"f1dd05db-d616-4b1a-8cb4-b424cfbccddf"] +}, 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->"3bc2f5b2-b5b4-4fc1-b228-c3ec9065105f"], + +Cell[BoxData["0.11193732193732193`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.993815824354212*^9, 3.993815892846965*^9, { + 3.99381595198964*^9, 3.993815995937854*^9}, {3.994012735036902*^9, + 3.994012753363584*^9}, 3.994013274181715*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"ef3c6fff-b152-4552-be07-3f7d8b6cf46b"] +}, 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->"cb9b574d-e9e6-4c8c-97d7-f4504faf28a4"], + +Cell[BoxData[ + RowBox[{"-", "2.5617948717948718`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.9938158243693666`*^9, 3.9938158928581047`*^9, { + 3.993815952002063*^9, 3.993815995952959*^9}, {3.994012735051235*^9, + 3.994012753380294*^9}, 3.994013274189267*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"6fd302b4-0aba-4613-a96f-2348587937f6"] +}, 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->"48ec43b4-b2d4-4434-b6ae-c3fbf328541b"], + +Cell[BoxData["17.755860569879673`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.9938158243828497`*^9, 3.9938158928694487`*^9, { + 3.993815952015215*^9, 3.993815995959347*^9}, {3.994012735067181*^9, + 3.994012753395359*^9}, 3.9940132741977367`*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"15901760-09ed-4178-acbf-73ddd24d08b8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"547ac57a-c5a5-4bd0-b3dc-27d775653b26"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.993815824396482*^9, 3.993815892880583*^9, { + 3.993815952028016*^9, 3.993815995974369*^9}, {3.9940127350830297`*^9, + 3.994012753409977*^9}, 3.9940132742047977`*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"203f72bc-14a4-446c-9649-d4cfca9e43c9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "1.925"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { + 3.993815850527903*^9, 3.9938158535087967`*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"5e591da9-2de1-49c2-af86-5f1f00a78fe7"], + +Cell[BoxData["1.925`"], "Output", + CellChangeTimes->{ + 3.993815892892448*^9, {3.993815952041005*^9, 3.9938159959864597`*^9}, { + 3.994012735098775*^9, 3.994012753424415*^9}, 3.9940132742116337`*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"7db723ca-d1b7-418e-8fdb-f8c55da31e94"] +}, 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->"5ceba0b8-3921-4a51-8728-902b28c727c2"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.805"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.993815855721238*^9, 3.993815857092358*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"83d99618-943e-46eb-9eaa-bc517ab999c8"], + +Cell[BoxData["0.805`"], "Output", + CellChangeTimes->{ + 3.993815892911134*^9, {3.993815952057427*^9, 3.99381599600596*^9}, { + 3.994012735117734*^9, 3.99401275345194*^9}, 3.99401327422314*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"af41cdf2-260e-43ca-9da3-6a59682d057a"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel->"In[34]:=",ExpressionUUID->"ee05e14f-5386-475b-88de-c5bc86835074"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "2.5"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.993815859994154*^9, 3.993815861340933*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"eac8d120-95c6-4c90-868c-823c08fde704"], + +Cell[BoxData["2.5`"], "Output", + CellChangeTimes->{ + 3.9938158929287786`*^9, {3.99381595207283*^9, 3.993815996022519*^9}, { + 3.9940127351358128`*^9, 3.994012753478545*^9}, 3.994013274235227*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"89e017e9-f7c8-4de6-9c61-9f807a6e27bb"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel->"In[36]:=",ExpressionUUID->"b0ce2ce8-43a9-4cfc-bcf2-e97da817cd55"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.165"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, {3.9938158643599787`*^9, 3.993815865676284*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"8ebe8e0d-cb8c-4005-90b9-9d3c4683d4e3"], + +Cell[BoxData["1.165`"], "Output", + CellChangeTimes->{ + 3.993815892946157*^9, {3.9938159520880413`*^9, 3.9938159960372267`*^9}, { + 3.99401273515212*^9, 3.994012753505625*^9}, 3.9940132742494087`*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"433e43a4-259e-46e2-b982-77e1551b9f88"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel->"In[38]:=",ExpressionUUID->"60aa66f3-a864-4a1f-8737-0432a3dce9c8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.213"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, {3.993815868143258*^9, + 3.993815869195242*^9}}, + CellLabel->"In[39]:=",ExpressionUUID->"7b3fee04-4705-4f1b-8597-22956dff21a3"], + +Cell[BoxData["1.213`"], "Output", + CellChangeTimes->{ + 3.993815892962039*^9, {3.993815952103568*^9, 3.993815996052133*^9}, { + 3.994012735168161*^9, 3.994012753532589*^9}, 3.994013274260284*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"399ff348-dbc9-475b-be53-7c79edba1f73"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel->"In[40]:=",ExpressionUUID->"158b4e1e-bc50-43b4-9d8d-63e1b5f32b4f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.57"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.993815872614973*^9, + 3.993815875095196*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"60b67276-12a5-404c-a980-dac3b32e1025"], + +Cell[BoxData["0.57`"], "Output", + CellChangeTimes->{ + 3.993815892978149*^9, {3.9938159521195602`*^9, 3.9938159960676327`*^9}, { + 3.994012735184478*^9, 3.994012753559978*^9}, 3.994013274271494*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"06e140e1-172c-443e-8794-595be28fc2b6"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel->"In[42]:=",ExpressionUUID->"ae68a2db-0f5f-4f5b-ba31-2b47258c2ed0"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "1.35"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.993815877839096*^9, + 3.993815879047324*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"8018e923-aef9-42e0-835b-81e5f7029568"], + +Cell[BoxData["1.35`"], "Output", + CellChangeTimes->{ + 3.993815892994123*^9, {3.99381595213482*^9, 3.993815996092525*^9}, { + 3.994012735201104*^9, 3.994012753586568*^9}, 3.994013274282769*^9}, + CellLabel->"Out[43]=",ExpressionUUID->"ee047671-d132-4b46-8f63-d46e7af5a989"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel->"In[44]:=",ExpressionUUID->"bb831788-bcea-463f-b26d-e91c5ec4d94b"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "0.695"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, {3.993815882043911*^9, 3.993815883712513*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"d882e285-73b9-4206-9ca4-db60193d9f1b"], + +Cell[BoxData["0.695`"], "Output", + CellChangeTimes->{ + 3.993815893009348*^9, {3.9938159521502934`*^9, 3.9938159961073437`*^9}, { + 3.994012735217507*^9, 3.994012753614246*^9}, 3.994013274294105*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"8b1f17ac-4a3a-4ebc-8cbe-127280101e8e"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel->"In[46]:=",ExpressionUUID->"768ca9cb-28ee-4c50-a6d9-56733733be26"], + +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->"cc506674-3c5d-4c96-bcce-6a258dbc6a8f"], + +Cell[BoxData["0.12327762268272666`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.993815824789941*^9, 3.993815893053749*^9, { + 3.9938159521927853`*^9, 3.9938159961478243`*^9}, {3.994012735307992*^9, + 3.994012753662813*^9}, 3.994013274369061*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"68740ce8-56c6-4068-9c1d-a72c8488290b"] +}, 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->"bde62ead-1114-42dd-bce0-3f545e38261f"], + +Cell[BoxData["8.089090426123509`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.993815824958537*^9, 3.993815893086632*^9, { + 3.993815952223331*^9, 3.993815996176463*^9}, {3.994012735341444*^9, + 3.9940127537028303`*^9}, 3.994013274397922*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"aa0a8c00-15d7-40e0-9ec3-c031ef0fe407"] +}, 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->"d053282b-cb1e-40f5-a2f8-180d88b19300"], + +Cell[BoxData[ + RowBox[{"-", "18.15349098777757`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.993815825088951*^9, 3.993815893116687*^9, { + 3.9938159522505827`*^9, 3.9938159962051373`*^9}, {3.994012735372669*^9, + 3.994012753746902*^9}, 3.994013274425213*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"6c107653-813f-47de-bb9a-55593655a36d"] +}, 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->"e13de586-84df-42c3-9e3e-8c774e3c661e"], + +Cell[BoxData[ + RowBox[{"-", "24.05337115009524`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.993815825243335*^9, 3.993815893152563*^9, { + 3.993815952283412*^9, 3.9938159962366734`*^9}, {3.9940127354096613`*^9, + 3.9940127537823277`*^9}, 3.994013274457144*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"7b62a808-8820-4848-8bd3-04e441c6c47b"] +}, 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->"8e442dc3-ab55-483e-a82e-d75bc170728d"], + +Cell[BoxData[ + RowBox[{"-", "68.5715021463911`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.993815825395423*^9, 3.993815893189039*^9, { + 3.993815952318357*^9, 3.9938159962699547`*^9}, {3.994012737745866*^9, + 3.994012753816412*^9}, 3.994013274488619*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"84e9c503-8540-43a7-823f-f1b66274de47"] +}, 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->"df4d7f6c-0a1e-4f0c-822e-e0df03cf6707"], + +Cell[BoxData[ + RowBox[{"-", "181.33897130481844`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.9938158255934277`*^9, 3.9938158932303762`*^9, { + 3.9938159523617983`*^9, 3.993815996307926*^9}, {3.9940127379598227`*^9, + 3.994012753855733*^9}, 3.994013274527673*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"b7e53a7d-7cf7-4bc4-bdb9-e7021f0ea447"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[53]:=",ExpressionUUID->"9ff685b0-0f24-4839-b4a0-410fdbc5cda1"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.993815825610972*^9, 3.993815893238894*^9, { + 3.993815952376239*^9, 3.993815996389533*^9}, {3.994012737981202*^9, + 3.994012753871561*^9}, 3.994013274536834*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"bd872a53-dca3-4322-b56a-9cb3430e127b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[54]:=",ExpressionUUID->"c6907dfa-2109-4dea-a226-cf7980523ec5"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.993815825623754*^9, 3.993815893251865*^9, { + 3.993815952388772*^9, 3.9938159963944883`*^9}, {3.994012737993568*^9, + 3.994012753889316*^9}, 3.994013274544545*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"bd5f4f9b-5880-4130-9f84-356fdef23c55"] +}, 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->"22b82026-3b91-4f4f-8417-5b995f5c2239"], + +Cell[BoxData["141.405110309417`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.993815826417283*^9, 3.993815893265246*^9, { + 3.993815952401479*^9, 3.993815996407648*^9}, {3.9940127380069637`*^9, + 3.9940127539062157`*^9}, 3.99401327455133*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"e18427d5-0943-4ad6-802f-025a181c14a5"] +}, 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->"9bf822f6-8280-4783-abcf-313af80ed01a"], + +Cell[BoxData[ + RowBox[{"-", "128.9528695923845`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.99381582721953*^9, 3.993815893272354*^9, { + 3.9938159524150248`*^9, 3.993815996420066*^9}, {3.994012738019804*^9, + 3.9940127539503736`*^9}, 3.994013274558345*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"67a2362b-846c-4545-8d59-f289f8d1f4e7"] +}, 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->"750069f4-80a4-4b51-950c-79b62ee320e2"], + +Cell[BoxData["145.46176038414953`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.993815827967605*^9, 3.993815893279285*^9, { + 3.993815952427936*^9, 3.993815996433951*^9}, {3.994012738032927*^9, + 3.994012753965966*^9}, 3.99401327456505*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"24375bea-96a9-4128-9e67-9f543d628b54"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[58]:=",ExpressionUUID->"a7e6edf9-9c5e-4f2b-bc7a-48482a5397b4"], + +Cell[BoxData["0.3744607025351484`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.993815827996399*^9, 3.993815893285612*^9, { + 3.993815952441914*^9, 3.993815996447248*^9}, {3.994012738045417*^9, + 3.9940127539822197`*^9}, 3.994013274572957*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"cdccb42f-8c5c-4c09-a72a-340c9483e884"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[59]:=",ExpressionUUID->"75acfae5-3e65-453d-8d0b-66e38488ed3a"], + +Cell[BoxData[ + RowBox[{"-", "0.08358618531832765`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.993815828006872*^9, 3.99381589330029*^9, { + 3.993815952454702*^9, 3.993815996460602*^9}, {3.9940127380579777`*^9, + 3.994012753999001*^9}, 3.994013274580201*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"3876eb1d-a70e-4ac9-bce3-7bd69b814ee4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[60]:=",ExpressionUUID->"2426d84d-43d0-42f5-9ef6-bd5bbd005813"], + +Cell[BoxData[ + RowBox[{"-", "0.5957523139282981`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.993815828017632*^9, 3.993815893314815*^9, { + 3.993815952467293*^9, 3.993815996472748*^9}, {3.9940127380705957`*^9, + 3.994012754016019*^9}, 3.99401327458873*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"879c5cb9-3f43-43af-8bbc-cb9616053d7d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"cf9a6673-19bd-41ab-87c7-20dc61953634"], + +Cell[BoxData["0.713744744985854`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.9938158280292873`*^9, 3.9938158933264513`*^9, { + 3.99381595247992*^9, 3.9938159964849863`*^9}, {3.9940127380831127`*^9, + 3.994012754031786*^9}, 3.994013274596736*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"0cbce579-ed9e-4af6-8b63-011395076a1e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[62]:=",ExpressionUUID->"9b4a2c6c-cff3-4e3b-ba06-2a412e7b74c2"], + +Cell[BoxData["2.4538606431456684`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.993815828040164*^9, 3.9938158933379717`*^9, { + 3.99381595249251*^9, 3.993815996497171*^9}, {3.9940127380959167`*^9, + 3.994012754047423*^9}, 3.9940132746046333`*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"62ee3511-c1ee-42bd-a9cd-3d57ed7d7d1e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[63]:=",ExpressionUUID->"61fb1395-76a6-4435-bb76-d6b4bb67f858"], + +Cell[BoxData["1.4512846433038022`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.993815828051201*^9, 3.993815893350441*^9, { + 3.993815952507271*^9, 3.993815996509037*^9}, {3.994012738108345*^9, + 3.994012754065312*^9}, 3.9940132746116056`*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"ff293045-0c95-49e3-9d9f-ff26b988e0f2"] +}, 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->"078dfee5-cb0b-4586-b92f-86f4f066b5b8"], + +Cell[BoxData[ + RowBox[{"-", "35.01877093188689`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.99381582806227*^9, 3.993815893362507*^9, { + 3.993815952520192*^9, 3.9938159965211277`*^9}, {3.994012738120954*^9, + 3.994012754086623*^9}, 3.994013274618597*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"7dc1a555-9fec-4c7b-bb6e-3c1abf6a8989"] +}, 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->"24f3a0b8-de8b-447e-9b1e-3edc75c80b7b"], + +Cell[BoxData[ + RowBox[{"-", "7.023230644966918`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.993815828073289*^9, 3.993815893373386*^9, { + 3.9938159525334873`*^9, 3.9938159965330544`*^9}, {3.994012738133953*^9, + 3.994012754103959*^9}, 3.9940132746257257`*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"274fa939-04d3-4ae7-814d-546f56f2985c"] +}, 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->"2fe75cb8-5406-4539-8a30-cba53ffbfeec"], + +Cell[BoxData["106.38633937753012`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.993815829714663*^9, 3.993815893386404*^9, { + 3.993815952538138*^9, 3.993815996546342*^9}, {3.994012738147608*^9, + 3.994012754121069*^9}, 3.994013274633129*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"3b1bbcac-57c4-4323-a20c-bae570d6ab0e"] +}, 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->"967d075e-2c1e-4ca9-be91-b7057b4b14ee"], + +Cell[BoxData[ + RowBox[{"-", "128.9528695923845`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.993815830785906*^9, 3.993815893393002*^9, { + 3.99381595255091*^9, 3.993815996558546*^9}, {3.9940127381623087`*^9, + 3.994012754138682*^9}, 3.9940132746402903`*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"f531d429-dafc-4c4c-b058-8171c96566b9"] +}, 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->"dbc10f14-f6b8-404c-b0a8-776c0f6b8cd7"], + +Cell[BoxData["138.4385297391826`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.993815832301989*^9, 3.993815893399308*^9, { + 3.9938159525638323`*^9, 3.993815996570672*^9}, {3.994012738168003*^9, + 3.994012754154402*^9}, 3.994013274647542*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"96114945-fec7-4729-8d0e-9d648c45ea1b"] +}, 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->"fea5fafc-9cc7-4cf3-be87-591c873c5ffc"], + +Cell[BoxData["42.7423287298202`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.99381583454182*^9, 3.9938158934054613`*^9, { + 3.99381595257723*^9, 3.993815996582724*^9}, {3.9940127381809587`*^9, + 3.994012754170536*^9}, 3.994013274655842*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"47eeaf1c-00b4-4d50-ae58-3530f9ccbf7d"] +}, 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->"569bebfc-bb1d-4b4e-8336-1ac4b0457c14"], + +Cell[BoxData["852.656398631346`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.993815837006854*^9, 3.993815893411956*^9, { + 3.993815952590604*^9, 3.9938159966008883`*^9}, {3.9940127381948357`*^9, + 3.994012754188656*^9}, 3.994013274664465*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"bee656c2-3808-490f-bee2-690378776670"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f1", "=", "0.4824778855"}]], "Input", + CellChangeTimes->{3.9918501413985214`*^9, 3.994012972868281*^9}, + CellLabel->"In[71]:=",ExpressionUUID->"5894836c-9594-0940-b94c-299085c765cc"], + +Cell[BoxData["0.4824778855`"], "Output", + CellChangeTimes->{3.994013274671913*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"aac18883-1510-4a5b-9cf8-99c96b495041"] +}, 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.1859997931"}]], "Input", + CellChangeTimes->{3.9918501402114105`*^9, 3.994012978113495*^9}, + CellLabel->"In[73]:=",ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-092c5143dcf0"], + +Cell[BoxData["0.1859997931`"], "Output", + CellChangeTimes->{3.9940132746837053`*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"9497ae55-67b8-4575-84a6-53686a9629fa"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918501388085117`*^9, 3.991850138811516*^9}}, + CellLabel->"In[74]:=",ExpressionUUID->"6e7c45d7-0298-ce41-ba97-a3c857e6ae57"], Cell[CellGroupData[{ @@ -84,13 +4878,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.585212243083306`*^-53"], "Output", + CellChangeTimes->{3.9913437871842365`*^9, 3.994013274695421*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"de9adde4-1cf9-4aea-a137-54299af3cae2"] }, Open ]], Cell[CellGroupData[{ @@ -124,14 +4916,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["9.37722440603783`*^-55"], "Output", + CellChangeTimes->{3.9913437872132397`*^9, 3.994013274701071*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"df1aa494-ddad-4c6e-89eb-17b13e1caa7b"] }, Open ]], Cell[CellGroupData[{ @@ -164,14 +4954,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["9.343159200381669`*^-55"], "Output", + CellChangeTimes->{3.9913437872412376`*^9, 3.994013274709772*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"c9230703-c41f-48cc-bdc4-851b845b6557"] }, Open ]], Cell[CellGroupData[{ @@ -194,13 +4982,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["12.804540305270121`"], "Output", + CellChangeTimes->{3.9913437872672386`*^9, 3.9940132747170343`*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"8689885c-346c-4737-a943-3fb031483569"] }, Open ]], Cell[CellGroupData[{ @@ -226,13 +5012,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["30.376266313799874`"], "Output", + CellChangeTimes->{3.991343787279253*^9, 3.994013274724222*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"9cb713d0-c2eb-4718-98f6-6b9f9b696de5"] }, Open ]], Cell[CellGroupData[{ @@ -241,13 +5025,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.8270359558899076`"], "Output", + CellChangeTimes->{3.9913437873062572`*^9, 3.99401327473094*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"d82de2cc-2f11-4e0b-b5d9-959f2090a70c"] }, Open ]], Cell[CellGroupData[{ @@ -256,13 +5038,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["5.298096104741492`"], "Output", + CellChangeTimes->{3.9913437873353844`*^9, 3.994013274737268*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"27a798df-b4c9-4159-9287-125a3d546dc1"] }, Open ]], Cell[CellGroupData[{ @@ -271,13 +5051,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["160.9363782337333`"], "Output", + CellChangeTimes->{3.991343787361582*^9, 3.9940132747436457`*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"ec08f535-8449-4d1f-aba4-78fba2cf15d5"] }, Open ]], Cell[CellGroupData[{ @@ -286,13 +5064,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["23.394355536370046`"], "Output", + CellChangeTimes->{3.9913437873734856`*^9, 3.994013274750081*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"0cc8886d-ff90-4099-a998-80a27c6bae53"] }, Open ]], Cell[CellGroupData[{ @@ -481,13 +5257,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.006267305495803085`"], "Output", + CellChangeTimes->{3.9913437874002857`*^9, 3.994013274757227*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"c5eea3ae-f69e-4297-b8f0-a3dbd0e321db"] }, Open ]], Cell[CellGroupData[{ @@ -500,13 +5274,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.194495043104464`"], "Output", + CellChangeTimes->{3.9913437875033875`*^9, 3.994013274871254*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"faabc1db-d67c-407d-b677-4ad577bc8f75"] }, Open ]], Cell[CellGroupData[{ @@ -697,13 +5469,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.04093506024207572`"], "Output", + CellChangeTimes->{3.9913437875342865`*^9, 3.9940132749414673`*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"7446b542-803e-4e89-9d7c-eec7937166d6"] }, Open ]], Cell[CellGroupData[{ @@ -716,13 +5486,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.3802331108007735`"], "Output", + CellChangeTimes->{3.9913437876352882`*^9, 3.9940132749824944`*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"c9028c1b-2e54-471c-be04-b04517f567c5"] }, Open ]], Cell[CellGroupData[{ @@ -814,13 +5582,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.08017799560488434`"], "Output", + CellChangeTimes->{3.991343787650694*^9, 3.994013274990912*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"5f6994fc-1a03-4a74-9383-ea5048a5dcc0"] }, Open ]], Cell[CellGroupData[{ @@ -909,13 +5675,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.9198220043951155`"], "Output", + CellChangeTimes->{3.9913437876776943`*^9, 3.994013274998981*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"0f53642f-3280-44a9-ab90-ccc0bf18351c"] }, Open ]], Cell[CellGroupData[{ @@ -1037,19 +5801,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.07374948462566748`"], "Output", + CellChangeTimes->{3.9913437877049465`*^9, 3.994013275006372*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"b0ef719e-fa91-4360-8727-63473bcc2636"] }, 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 +5825,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,68 +5875,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}, + "\"\\!\\(\\*FractionBox[\\\"6.527654125217896`*^-212\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 92, 1, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437877189426`*^9, 3.994013275024362*^9}, CellLabel-> "During evaluation of \ -In[415]:=",ExpressionUUID->"0833bd34-3252-a046-9aa3-94c1d6e5cfe9"], +In[92]:=",ExpressionUUID->"3e2d9c15-9c40-4bff-a811-c2e06df42717"], 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[\\\"6.116980085060206`*^-217\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 92, 2, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437877189426`*^9, 3.994013275033149*^9}, CellLabel-> "During evaluation of \ -In[415]:=",ExpressionUUID->"f24a3618-ee43-704a-86fe-493dbed35e8d"], +In[92]:=",ExpressionUUID->"bb5f5fe4-4073-495c-8b86-e2eb2bd4ec99"], 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[\\\"5.732142764193125`*^-222\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 92, 3, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437877189426`*^9, 3.994013275037394*^9}, CellLabel-> "During evaluation of \ -In[415]:=",ExpressionUUID->"86271901-aa3c-5542-ab18-fc06d3fd3f32"], +In[92]:=",ExpressionUUID->"ddd41a7f-ee5e-4e06-a262-1ba10744e5de"], 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, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437877189426`*^9, 3.994013275040845*^9}, CellLabel-> "During evaluation of \ -In[415]:=",ExpressionUUID->"ce9bd686-d768-5440-b47e-1ee2b5aa0183"], +In[92]:=",ExpressionUUID->"c9c5662a-e4e2-43b1-8875-8ebb1859f607"], -Cell[BoxData["5.020278507983898`"], "Output", - CellChangeTimes->{3.991343791131052*^9}, - CellLabel-> - "Out[415]=",ExpressionUUID->"a6ab28bd-0b4e-3443-93b3-734d7cf3d8a2"] +Cell[BoxData["11.194495043104455`"], "Output", + CellChangeTimes->{3.991343791131052*^9, 3.9940132762534523`*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"0c400b4c-141b-4e66-a3f7-afded95ead00"] }, Open ]], Cell[CellGroupData[{ @@ -1186,30 +5953,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[{"-", @@ -1233,68 +6003,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}, + "\"\\!\\(\\*FractionBox[\\\"6.527654125217896`*^-212\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 93, 5, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437911686516`*^9, 3.9940132763164062`*^9}, CellLabel-> "During evaluation of \ -In[416]:=",ExpressionUUID->"44f2ed65-5109-0141-bef6-eebaeda3d61d"], +In[93]:=",ExpressionUUID->"bfb09894-12c9-4f93-8803-5eee4d487a55"], 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[\\\"6.116980085060206`*^-217\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 93, 6, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437911686516`*^9, 3.994013276321444*^9}, CellLabel-> "During evaluation of \ -In[416]:=",ExpressionUUID->"ba49f32e-1ff7-b147-9f42-9c90ccc55447"], +In[93]:=",ExpressionUUID->"4ea1ecb1-8139-49cb-8e1b-db8edf690342"], 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[\\\"5.732142764193125`*^-222\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 93, 7, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437911686516`*^9, 3.994013276326887*^9}, CellLabel-> "During evaluation of \ -In[416]:=",ExpressionUUID->"fa95acf1-55b2-c042-9a9f-32e1ebea5c1e"], +In[93]:=",ExpressionUUID->"f0c8dcd3-f8f4-4706-96c9-a5a936b43574"], 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, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437911686516`*^9, 3.994013276331417*^9}, CellLabel-> "During evaluation of \ -In[416]:=",ExpressionUUID->"3c3d4134-2c7d-0949-9759-036664c530e3"], +In[93]:=",ExpressionUUID->"f90cca62-f0d4-4a5a-81af-ef044a59aa53"], -Cell[BoxData["8.223604958038848`"], "Output", - CellChangeTimes->{3.991343794599764*^9}, - CellLabel-> - "Out[416]=",ExpressionUUID->"742dfe41-8369-8942-b522-c174c845c383"] +Cell[BoxData["4.380233110800773`"], "Output", + CellChangeTimes->{3.991343794599764*^9, 3.9940132775447273`*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"d25c0982-12a7-4ea3-b371-9f9643d8736a"] }, Open ]], Cell[CellGroupData[{ @@ -1304,140 +6076,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.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:eJwV1nk0Vd0bB3CJKDNxCZkVRbrXTPZjKBGSIpniDickU5JKNKEJ0aB+iQqF +zEOZikovrxSvqVLKfI3XdG8k5bf9cdZZn3XO+e69nz2so0QNcmJwc3FxjeBr +5R7yUXvTi9aPZjdS/cdz8pjIjJWpR7XKQ7HFr6RzsXvT9W+pWtUgz+4XD1fs +SP+wRpDyDpVJu1x8hl0cEf2W16oZbQ26V5eHfeUf6bro3P/Qtb7zrgXYla0h +aUvkThQTJrKnCHusuynyVPVnJKptcbcEe8OQivtPy29ofv0GKMfeMxVpdLz5 +B2JsT7GowH61NCYQkduHdK5Xpldjd50nnXkeOIBSt50/WIvNWmM1xiYPoXfq +LL+32GuuBx+izA+jxbNcnxqwN4o9aAypHkFRFhVpzdgOsj+fsCwn0IS9tNkn +bOKhspQWPwv1ldVJ9mBHq+2NOdo8hdiNwrsHsD+TOraH5c4gLavUmmlsupu/ +383rs6i2/evfeezpVK5HJYFzyNfn9f1lbH5lLdEZMgedbI8aEslnolv0t9ai +kj9R44hLsjS24tND0dvmfyJhr857StiGW2NZx6oX0EznuwpdbF/9H81jlkuo +Wi9C/zA2O+IEzzr1Pyj5bGyFP/a5agFTDf6/SFDO9HY49l0wfHakeRnFTjzw +SsSmZzVaheaugpurYfs77Nx/bvael+WGPUrxl9uxp5lekUnXucGo9YJxP3ak +Jqe0KHA1GNz0LeAqwP0tVFKZIvPCxTfKXebY3a0Tr/5m8ELuyUru/diKsy/c +hCXXgI3p4hU6dp6uQ7LW/BpQbzidfRm7vvL0qoBqfigfPKvWic152/5jxFIQ +ztfUKkQXMpG4naDomVeCQFMUYqZg63RYgZCREJz8PildjO0/WP5wu7YwXGj2 +rxnEDuZu1tkhKAr1pzy49xUx0ZBywUzMTzHI3hh2dUcxrg/RtLaFIg5aTSq/ +PbC5nw0rSYeIA5PnWFcktiJFwSl3XBzKmB+aX2K7Wd4o+dgrAVOszgqrEiZq +oYUeJ72XBHFJ3wSilIm+P0245s0vBREyI9nXsSfGczNydkoB1XGtdin2urCB +dpM6KRgK2h6xqoyJrC4d0PUuJ8GWqE2CGdhVmfqc7HQZuFG8ibJYzkSZQ4vh +xmHyIJCUfX6hgol2O8d9P54vD70DMTGbK3F+vcSu/GF5CHI/OuyKrZu5VVLx +0EbwWHasrcKup3qV8popQBykfLhQxUSzU70nRy4qgvuOWx6qNUwkccyqrNRe +GaSP5O7Or2Wi4cx1vo7+yuDVUMkawa741io7GasMiyFDM6p1TORh53lRvU4Z +hANviaRhZ24Jd7pHVgGfEnr2rde4/bGn01EkVTDeHOR48y0THTgioGXbpwYJ +DfTorgYmQuHO5IN/1OCOyTmaXCMTacakG9Bl1KF78/ZHVGyuDIpF1D510L3g +ojGNnf/d/WDJa3WQZNYHiDTh/emSd37D401wdbm3zqsZ98/KvmuMqgEuaxsy +4D8mytif8nU+SgOs+RRqkrATqH29PPc1QKtcXXsAm37uxPjGdg0QSt+tENfG +RGI1D7j2W2qCsd2UXns7Xj8Ulma1yhZQKkrUi+xiIlnlxOhrg1uhevbCJbFv +TFRzla3xi1sLUlmFz05ge8wd6iCUtOC+7WXTbuy0elUNCy8tcCTB/cweJlI+ +UtW28EkLto6z7Mx+4PHmDakR77XBjI9+IaafieRlNxKKh3Tgt2KZGW2UibZm +hQn+RmSI7jTf7bHARFT6RY6WAxkoTraBbdh3VZK/e3uQ4VP00+ndv5ho9ePC +on8iyPCxiL7OYBHvt7SxA8nFZGjoEUgmLeHz9K73Aw0VCrQxN8yNLuP5vWan +7bpGF4SX6nk6+EbQo1BVx/JmPeitt8h7KT2CWsORwaUsI6jtr+30shhBSl6d +Dp4BOyBTMKOuL2QEMZafF8ifAhgNWBe9KXMEkcYr+EhUC/h+/GfGtr4RFEYx +/ZasaQUXVIri7BVHEXVyqVFibCd81ezwm6WNonyL43zpLdaQ8f2XQ0vpKMpk ++7/Ou2UD4T3WWgTPGFowl/5QH70HumZ6NnhQx1AP1+qZPh970IBEBfN3YyhQ +LujGeZW9IKYa/MJ70zgq8Gusux3jCBL8CaWb746j03My81v89kHGyxdtdnwT +iGO7y6XhsBPUeeZu/BszgYzck8yH9u2HPX1BMlf4J1GbzAP/esoBeKM6m5gW +N4k2PLlYk73ZGRj/3Z4Yk2Khil5NOwchF2jf3HIt5RELbeyYPhI+6QKeci95 +32tNIcrtpLyM3oMQsYsQM2qaQg945rST37pCl5p9AXPbNHpuvq07pvIQXA64 +FJJxYRrdNbgqtpTrBsGjn1cbdE6jlq9ZsZTr7qCwZyZVVmUGldunqgaf8wBD +8VUfFCJm0Myx/VyBdE84tT2UdqdhBnF2afiyLL2gW/agu6bkLMqe/LJwXP8w +SArksSJ9Z5Hroyyap6A3WArVtk2WzaLSkj2HV8d5w2tN3rwm3jlkJNv268ov +bwgjV+t/dZhDKr1Huv/z8wFP53/lcm7OoUGBo3tTB3wgKmq681L3HGpNcKBZ +O1Nhh8+6M1el2ehWRLrAiVYqnCIkTLNc2Kjm1fIvmg0NVuVlvPkUz0YiHhBH +qaLBlOnYr5xqNlJc39AiV0ODLbpOC7QaNtJptpde84oGN20OxMm/ZCMnU/ec +z69pwEt+7JL4CufLhb8/+y8NSCaNz4+9ZqMNPc9EGj/TQJE73luygY1UvUh3 +PeZpYKY7eFKkjY2MvFnZMbp0GDXq6nk6zEZP7k0fd9Cnw+k/NqnGTDZa3z5r +RjKkw432/tlmbNbO+Y5sEzrc11L3nR5h4/OLa1WzBR26+XyDyeNsJDwvdkh8 +Hx3U+PMGHk+x0WC83tr0Y3SAT73PdRfYKKE60q/iCR00s8L3kvg56Bg5xSgi +mw5Jf+WF4rHtcorXGubSoaj0Xx/utRy0LmU450U+HSILB1vGsWNCHceel9HB ++LnGy0oBDorUUD1a/oYOy6c3N5uLcJB/yvuAku90kM1hArcUB9kID5uG9tLB +TOVxjT/25hguIXI/HWrdyB/asIdD9fKLh+hgZZOc94jEQT4O6ZNFE3TwuBNH +NZbhIFfe44GFi3RIVjB8cFCOg6yPbwjOk2KAh+vFXlDmoDfpsbbJ0gzwol6M +z8A2bZ5VjdjAgLPGUlW8Khyko/b+i+VGBoR+zk1qxJb5dMbyqxoDSIHJhrvV +OGjcuEdqnR4DWAI1zts2c1Ai98OXR/YzwG/JxjlVC49/m+Bde2cGRIa8aWNh +X3KPCKUcZMBX84IPoM1BEWWOm5bdGNBPeWwygO1DrEq6Q2VAxgHHn0o6HERp +otLfhTCghr/mSyz+L/qUpCagcoMB5canOJP6HFSAhHxHkhhwihSQtsUA50+y +6/NvMkDYXavDF5tsUx9lmMIAoZezQ33YCVy0Wfs0Bugkhj76aMhBu4IefonI +Y4D2fGtQsjEHyctf1jcrYEDSOam+Rmx2U9DN1UUMqI1L+v4X+7E6sk8oZcD9 +IzxRfiYc9Kenpy6jigHOC0x7I1MOKrOTzf7YyIBn3Yaab3dw0LVFbt5bTQxA +9S1us9jU7DGfQ80MaFCSIimZcZAoT5XsYAsDEvcmk89iB1S7Jv7qYoCFZRh7 +G+IgFc074apDuD+lZx5EAwctfjrbPjrMgDvyyTFPsVtjGDqFIwyQ4B5a+Igd +1ac7ZjTBgJOy6uflzDmo+2675945BlhOUkkl2Ml8YjtPryLgoHGIc4MFB9XM +9riHrSZAw9ipeByb2ZMbGshLwJcrxmdELPF6KLN6SF1LwLfE1YecsYe9I37b +ihGwXrjQpBtb1G6n+E4JAjqSVvEtYpsYiGsgSQLeUFVAxoqDbgjluVBkCHi2 +qfq3M7ZJ1Y9iWSUCBE7HpzRiE1l5jZIqBJi1PmsdWHn/xqkfImoEuCz5nvyL +PUxICPFoEKD3JUeIvBM/l7D2ndAh4LlbiUcydtVfiehhMgE25hTuHOyh0d7b +vboEnCZpStZiG9edftthSED+4SMXR7EHAwo2vgQCpNOenjPYxUHCrmf0XlgQ +8OeoV5INtpHlbrtiKwLmPvuJuGMnyPSfytpNwFqN4P2R2BU8hTfSbXH7qnSZ +69gDU2ee3rMjIHY6ze4+tuE/kp3xjgTsjPi2+AKbWtw/HueE6wtfTrzDjk8t +5L5wANdvWtSrDbs/1EYn3JWAukD18DFsIS8p62A3Avh2LGdxVvJsBjz9PQjw +nOW35LLG3yucvebljevj/aReArtine1jVyoBZEH9HDnsfo5UpROdgP/FsBZV +sYX6BlrsCAL2i3+s3Ipt2Fw0vMuXgDyp9iEKNvXF2T/gT0Cg5FKU8Ur+Y9v1 +JgF4PgutY2AlP560RS+QgOyssoWdK/kRg+bbgglQ7jT/YostSC921QglgMuE +pb4X22BvVJBKGAExsxV9Tiv5xnti5cMJoOk9WuuCfV1N+gEpgoBe9ydprtjP +RYdKxU4TUPKt4aEbdt/v4iaBSDw/9ryiHiv5zKg+3igCPnp7TaxYv23PwnI0 +AZJjbXqe2P8HPOb0hg== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -1451,105 +6224,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:eJwV1nk0Vd0bB3CJKDNxCZkVRbrXTPZjKBGSIpniDickU5JKNKEJ0aB+iQqF +zEOZikovrxSvqVLKfI3XdG8k5bf9cdZZn3XO+e69nz2so0QNcmJwc3FxjeBr +5R7yUXvTi9aPZjdS/cdz8pjIjJWpR7XKQ7HFr6RzsXvT9W+pWtUgz+4XD1fs +SP+wRpDyDpVJu1x8hl0cEf2W16oZbQ26V5eHfeUf6bro3P/Qtb7zrgXYla0h +aUvkThQTJrKnCHusuynyVPVnJKptcbcEe8OQivtPy29ofv0GKMfeMxVpdLz5 +B2JsT7GowH61NCYQkduHdK5Xpldjd50nnXkeOIBSt50/WIvNWmM1xiYPoXfq +LL+32GuuBx+izA+jxbNcnxqwN4o9aAypHkFRFhVpzdgOsj+fsCwn0IS9tNkn +bOKhspQWPwv1ldVJ9mBHq+2NOdo8hdiNwrsHsD+TOraH5c4gLavUmmlsupu/ +383rs6i2/evfeezpVK5HJYFzyNfn9f1lbH5lLdEZMgedbI8aEslnolv0t9ai +kj9R44hLsjS24tND0dvmfyJhr857StiGW2NZx6oX0EznuwpdbF/9H81jlkuo +Wi9C/zA2O+IEzzr1Pyj5bGyFP/a5agFTDf6/SFDO9HY49l0wfHakeRnFTjzw +SsSmZzVaheaugpurYfs77Nx/bvael+WGPUrxl9uxp5lekUnXucGo9YJxP3ak +Jqe0KHA1GNz0LeAqwP0tVFKZIvPCxTfKXebY3a0Tr/5m8ELuyUru/diKsy/c +hCXXgI3p4hU6dp6uQ7LW/BpQbzidfRm7vvL0qoBqfigfPKvWic152/5jxFIQ +ztfUKkQXMpG4naDomVeCQFMUYqZg63RYgZCREJz8PildjO0/WP5wu7YwXGj2 +rxnEDuZu1tkhKAr1pzy49xUx0ZBywUzMTzHI3hh2dUcxrg/RtLaFIg5aTSq/ +PbC5nw0rSYeIA5PnWFcktiJFwSl3XBzKmB+aX2K7Wd4o+dgrAVOszgqrEiZq +oYUeJ72XBHFJ3wSilIm+P0245s0vBREyI9nXsSfGczNydkoB1XGtdin2urCB +dpM6KRgK2h6xqoyJrC4d0PUuJ8GWqE2CGdhVmfqc7HQZuFG8ibJYzkSZQ4vh +xmHyIJCUfX6hgol2O8d9P54vD70DMTGbK3F+vcSu/GF5CHI/OuyKrZu5VVLx +0EbwWHasrcKup3qV8popQBykfLhQxUSzU70nRy4qgvuOWx6qNUwkccyqrNRe +GaSP5O7Or2Wi4cx1vo7+yuDVUMkawa741io7GasMiyFDM6p1TORh53lRvU4Z +hANviaRhZ24Jd7pHVgGfEnr2rde4/bGn01EkVTDeHOR48y0THTgioGXbpwYJ +DfTorgYmQuHO5IN/1OCOyTmaXCMTacakG9Bl1KF78/ZHVGyuDIpF1D510L3g +ojGNnf/d/WDJa3WQZNYHiDTh/emSd37D401wdbm3zqsZ98/KvmuMqgEuaxsy +4D8mytif8nU+SgOs+RRqkrATqH29PPc1QKtcXXsAm37uxPjGdg0QSt+tENfG +RGI1D7j2W2qCsd2UXns7Xj8Ulma1yhZQKkrUi+xiIlnlxOhrg1uhevbCJbFv +TFRzla3xi1sLUlmFz05ge8wd6iCUtOC+7WXTbuy0elUNCy8tcCTB/cweJlI+ +UtW28EkLto6z7Mx+4PHmDakR77XBjI9+IaafieRlNxKKh3Tgt2KZGW2UibZm +hQn+RmSI7jTf7bHARFT6RY6WAxkoTraBbdh3VZK/e3uQ4VP00+ndv5ho9ePC +on8iyPCxiL7OYBHvt7SxA8nFZGjoEUgmLeHz9K73Aw0VCrQxN8yNLuP5vWan +7bpGF4SX6nk6+EbQo1BVx/JmPeitt8h7KT2CWsORwaUsI6jtr+30shhBSl6d +Dp4BOyBTMKOuL2QEMZafF8ifAhgNWBe9KXMEkcYr+EhUC/h+/GfGtr4RFEYx +/ZasaQUXVIri7BVHEXVyqVFibCd81ezwm6WNonyL43zpLdaQ8f2XQ0vpKMpk ++7/Ou2UD4T3WWgTPGFowl/5QH70HumZ6NnhQx1AP1+qZPh970IBEBfN3YyhQ +LujGeZW9IKYa/MJ70zgq8Gusux3jCBL8CaWb746j03My81v89kHGyxdtdnwT +iGO7y6XhsBPUeeZu/BszgYzck8yH9u2HPX1BMlf4J1GbzAP/esoBeKM6m5gW +N4k2PLlYk73ZGRj/3Z4Yk2Khil5NOwchF2jf3HIt5RELbeyYPhI+6QKeci95 +32tNIcrtpLyM3oMQsYsQM2qaQg945rST37pCl5p9AXPbNHpuvq07pvIQXA64 +FJJxYRrdNbgqtpTrBsGjn1cbdE6jlq9ZsZTr7qCwZyZVVmUGldunqgaf8wBD +8VUfFCJm0Myx/VyBdE84tT2UdqdhBnF2afiyLL2gW/agu6bkLMqe/LJwXP8w +SArksSJ9Z5Hroyyap6A3WArVtk2WzaLSkj2HV8d5w2tN3rwm3jlkJNv268ov +bwgjV+t/dZhDKr1Huv/z8wFP53/lcm7OoUGBo3tTB3wgKmq681L3HGpNcKBZ +O1Nhh8+6M1el2ehWRLrAiVYqnCIkTLNc2Kjm1fIvmg0NVuVlvPkUz0YiHhBH +qaLBlOnYr5xqNlJc39AiV0ODLbpOC7QaNtJptpde84oGN20OxMm/ZCMnU/ec +z69pwEt+7JL4CufLhb8/+y8NSCaNz4+9ZqMNPc9EGj/TQJE73luygY1UvUh3 +PeZpYKY7eFKkjY2MvFnZMbp0GDXq6nk6zEZP7k0fd9Cnw+k/NqnGTDZa3z5r +RjKkw432/tlmbNbO+Y5sEzrc11L3nR5h4/OLa1WzBR26+XyDyeNsJDwvdkh8 +Hx3U+PMGHk+x0WC83tr0Y3SAT73PdRfYKKE60q/iCR00s8L3kvg56Bg5xSgi +mw5Jf+WF4rHtcorXGubSoaj0Xx/utRy0LmU450U+HSILB1vGsWNCHceel9HB ++LnGy0oBDorUUD1a/oYOy6c3N5uLcJB/yvuAku90kM1hArcUB9kID5uG9tLB +TOVxjT/25hguIXI/HWrdyB/asIdD9fKLh+hgZZOc94jEQT4O6ZNFE3TwuBNH +NZbhIFfe44GFi3RIVjB8cFCOg6yPbwjOk2KAh+vFXlDmoDfpsbbJ0gzwol6M +z8A2bZ5VjdjAgLPGUlW8Khyko/b+i+VGBoR+zk1qxJb5dMbyqxoDSIHJhrvV +OGjcuEdqnR4DWAI1zts2c1Ai98OXR/YzwG/JxjlVC49/m+Bde2cGRIa8aWNh +X3KPCKUcZMBX84IPoM1BEWWOm5bdGNBPeWwygO1DrEq6Q2VAxgHHn0o6HERp +otLfhTCghr/mSyz+L/qUpCagcoMB5canOJP6HFSAhHxHkhhwihSQtsUA50+y +6/NvMkDYXavDF5tsUx9lmMIAoZezQ33YCVy0Wfs0Bugkhj76aMhBu4IefonI +Y4D2fGtQsjEHyctf1jcrYEDSOam+Rmx2U9DN1UUMqI1L+v4X+7E6sk8oZcD9 +IzxRfiYc9Kenpy6jigHOC0x7I1MOKrOTzf7YyIBn3Yaab3dw0LVFbt5bTQxA +9S1us9jU7DGfQ80MaFCSIimZcZAoT5XsYAsDEvcmk89iB1S7Jv7qYoCFZRh7 +G+IgFc074apDuD+lZx5EAwctfjrbPjrMgDvyyTFPsVtjGDqFIwyQ4B5a+Igd +1ac7ZjTBgJOy6uflzDmo+2675945BlhOUkkl2Ml8YjtPryLgoHGIc4MFB9XM +9riHrSZAw9ipeByb2ZMbGshLwJcrxmdELPF6KLN6SF1LwLfE1YecsYe9I37b +ihGwXrjQpBtb1G6n+E4JAjqSVvEtYpsYiGsgSQLeUFVAxoqDbgjluVBkCHi2 +qfq3M7ZJ1Y9iWSUCBE7HpzRiE1l5jZIqBJi1PmsdWHn/xqkfImoEuCz5nvyL +PUxICPFoEKD3JUeIvBM/l7D2ndAh4LlbiUcydtVfiehhMgE25hTuHOyh0d7b +vboEnCZpStZiG9edftthSED+4SMXR7EHAwo2vgQCpNOenjPYxUHCrmf0XlgQ +8OeoV5INtpHlbrtiKwLmPvuJuGMnyPSfytpNwFqN4P2R2BU8hTfSbXH7qnSZ +69gDU2ee3rMjIHY6ze4+tuE/kp3xjgTsjPi2+AKbWtw/HueE6wtfTrzDjk8t +5L5wANdvWtSrDbs/1EYn3JWAukD18DFsIS8p62A3Avh2LGdxVvJsBjz9PQjw +nOW35LLG3yucvebljevj/aReArtine1jVyoBZEH9HDnsfo5UpROdgP/FsBZV +sYX6BlrsCAL2i3+s3Ipt2Fw0vMuXgDyp9iEKNvXF2T/gT0Cg5FKU8Ur+Y9v1 +JgF4PgutY2AlP560RS+QgOyssoWdK/kRg+bbgglQ7jT/YostSC921QglgMuE +pb4X22BvVJBKGAExsxV9Tiv5xnti5cMJoOk9WuuCfV1N+gEpgoBe9ydprtjP +RYdKxU4TUPKt4aEbdt/v4iaBSDw/9ryiHiv5zKg+3igCPnp7TaxYv23PwnI0 +AZJjbXqe2P8HPOb0hg== "]]}, "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.7398271177270477, + 1.3299228765960198`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7398271177270493}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.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 +6335,132 @@ rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.7504249066936051, 1.313047485013753}}, + "PlotRange" -> {{0, 180}, {0.7398271177270477, + 1.3299228765960198`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.7504249066936067}, + "AxesOrigin" -> {0, 0.7398271177270493}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 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:eJwV1nk0Vd0bB3CJKDNxCZkVRbrXTPZjKBGSIpniDickU5JKNKEJ0aB+iQqF +zEOZikovrxSvqVLKfI3XdG8k5bf9cdZZn3XO+e69nz2so0QNcmJwc3FxjeBr +5R7yUXvTi9aPZjdS/cdz8pjIjJWpR7XKQ7HFr6RzsXvT9W+pWtUgz+4XD1fs +SP+wRpDyDpVJu1x8hl0cEf2W16oZbQ26V5eHfeUf6bro3P/Qtb7zrgXYla0h +aUvkThQTJrKnCHusuynyVPVnJKptcbcEe8OQivtPy29ofv0GKMfeMxVpdLz5 +B2JsT7GowH61NCYQkduHdK5Xpldjd50nnXkeOIBSt50/WIvNWmM1xiYPoXfq +LL+32GuuBx+izA+jxbNcnxqwN4o9aAypHkFRFhVpzdgOsj+fsCwn0IS9tNkn +bOKhspQWPwv1ldVJ9mBHq+2NOdo8hdiNwrsHsD+TOraH5c4gLavUmmlsupu/ +383rs6i2/evfeezpVK5HJYFzyNfn9f1lbH5lLdEZMgedbI8aEslnolv0t9ai +kj9R44hLsjS24tND0dvmfyJhr857StiGW2NZx6oX0EznuwpdbF/9H81jlkuo +Wi9C/zA2O+IEzzr1Pyj5bGyFP/a5agFTDf6/SFDO9HY49l0wfHakeRnFTjzw +SsSmZzVaheaugpurYfs77Nx/bvael+WGPUrxl9uxp5lekUnXucGo9YJxP3ak +Jqe0KHA1GNz0LeAqwP0tVFKZIvPCxTfKXebY3a0Tr/5m8ELuyUru/diKsy/c +hCXXgI3p4hU6dp6uQ7LW/BpQbzidfRm7vvL0qoBqfigfPKvWic152/5jxFIQ +ztfUKkQXMpG4naDomVeCQFMUYqZg63RYgZCREJz8PildjO0/WP5wu7YwXGj2 +rxnEDuZu1tkhKAr1pzy49xUx0ZBywUzMTzHI3hh2dUcxrg/RtLaFIg5aTSq/ +PbC5nw0rSYeIA5PnWFcktiJFwSl3XBzKmB+aX2K7Wd4o+dgrAVOszgqrEiZq +oYUeJ72XBHFJ3wSilIm+P0245s0vBREyI9nXsSfGczNydkoB1XGtdin2urCB +dpM6KRgK2h6xqoyJrC4d0PUuJ8GWqE2CGdhVmfqc7HQZuFG8ibJYzkSZQ4vh +xmHyIJCUfX6hgol2O8d9P54vD70DMTGbK3F+vcSu/GF5CHI/OuyKrZu5VVLx +0EbwWHasrcKup3qV8popQBykfLhQxUSzU70nRy4qgvuOWx6qNUwkccyqrNRe +GaSP5O7Or2Wi4cx1vo7+yuDVUMkawa741io7GasMiyFDM6p1TORh53lRvU4Z +hANviaRhZ24Jd7pHVgGfEnr2rde4/bGn01EkVTDeHOR48y0THTgioGXbpwYJ +DfTorgYmQuHO5IN/1OCOyTmaXCMTacakG9Bl1KF78/ZHVGyuDIpF1D510L3g +ojGNnf/d/WDJa3WQZNYHiDTh/emSd37D401wdbm3zqsZ98/KvmuMqgEuaxsy +4D8mytif8nU+SgOs+RRqkrATqH29PPc1QKtcXXsAm37uxPjGdg0QSt+tENfG +RGI1D7j2W2qCsd2UXns7Xj8Ulma1yhZQKkrUi+xiIlnlxOhrg1uhevbCJbFv +TFRzla3xi1sLUlmFz05ge8wd6iCUtOC+7WXTbuy0elUNCy8tcCTB/cweJlI+ +UtW28EkLto6z7Mx+4PHmDakR77XBjI9+IaafieRlNxKKh3Tgt2KZGW2UibZm +hQn+RmSI7jTf7bHARFT6RY6WAxkoTraBbdh3VZK/e3uQ4VP00+ndv5ho9ePC +on8iyPCxiL7OYBHvt7SxA8nFZGjoEUgmLeHz9K73Aw0VCrQxN8yNLuP5vWan +7bpGF4SX6nk6+EbQo1BVx/JmPeitt8h7KT2CWsORwaUsI6jtr+30shhBSl6d +Dp4BOyBTMKOuL2QEMZafF8ifAhgNWBe9KXMEkcYr+EhUC/h+/GfGtr4RFEYx +/ZasaQUXVIri7BVHEXVyqVFibCd81ezwm6WNonyL43zpLdaQ8f2XQ0vpKMpk ++7/Ou2UD4T3WWgTPGFowl/5QH70HumZ6NnhQx1AP1+qZPh970IBEBfN3YyhQ +LujGeZW9IKYa/MJ70zgq8Gusux3jCBL8CaWb746j03My81v89kHGyxdtdnwT +iGO7y6XhsBPUeeZu/BszgYzck8yH9u2HPX1BMlf4J1GbzAP/esoBeKM6m5gW +N4k2PLlYk73ZGRj/3Z4Yk2Khil5NOwchF2jf3HIt5RELbeyYPhI+6QKeci95 +32tNIcrtpLyM3oMQsYsQM2qaQg945rST37pCl5p9AXPbNHpuvq07pvIQXA64 +FJJxYRrdNbgqtpTrBsGjn1cbdE6jlq9ZsZTr7qCwZyZVVmUGldunqgaf8wBD +8VUfFCJm0Myx/VyBdE84tT2UdqdhBnF2afiyLL2gW/agu6bkLMqe/LJwXP8w +SArksSJ9Z5Hroyyap6A3WArVtk2WzaLSkj2HV8d5w2tN3rwm3jlkJNv268ov +bwgjV+t/dZhDKr1Huv/z8wFP53/lcm7OoUGBo3tTB3wgKmq681L3HGpNcKBZ +O1Nhh8+6M1el2ehWRLrAiVYqnCIkTLNc2Kjm1fIvmg0NVuVlvPkUz0YiHhBH +qaLBlOnYr5xqNlJc39AiV0ODLbpOC7QaNtJptpde84oGN20OxMm/ZCMnU/ec +z69pwEt+7JL4CufLhb8/+y8NSCaNz4+9ZqMNPc9EGj/TQJE73luygY1UvUh3 +PeZpYKY7eFKkjY2MvFnZMbp0GDXq6nk6zEZP7k0fd9Cnw+k/NqnGTDZa3z5r +RjKkw432/tlmbNbO+Y5sEzrc11L3nR5h4/OLa1WzBR26+XyDyeNsJDwvdkh8 +Hx3U+PMGHk+x0WC83tr0Y3SAT73PdRfYKKE60q/iCR00s8L3kvg56Bg5xSgi +mw5Jf+WF4rHtcorXGubSoaj0Xx/utRy0LmU450U+HSILB1vGsWNCHceel9HB ++LnGy0oBDorUUD1a/oYOy6c3N5uLcJB/yvuAku90kM1hArcUB9kID5uG9tLB +TOVxjT/25hguIXI/HWrdyB/asIdD9fKLh+hgZZOc94jEQT4O6ZNFE3TwuBNH +NZbhIFfe44GFi3RIVjB8cFCOg6yPbwjOk2KAh+vFXlDmoDfpsbbJ0gzwol6M +z8A2bZ5VjdjAgLPGUlW8Khyko/b+i+VGBoR+zk1qxJb5dMbyqxoDSIHJhrvV +OGjcuEdqnR4DWAI1zts2c1Ai98OXR/YzwG/JxjlVC49/m+Bde2cGRIa8aWNh +X3KPCKUcZMBX84IPoM1BEWWOm5bdGNBPeWwygO1DrEq6Q2VAxgHHn0o6HERp +otLfhTCghr/mSyz+L/qUpCagcoMB5canOJP6HFSAhHxHkhhwihSQtsUA50+y +6/NvMkDYXavDF5tsUx9lmMIAoZezQ33YCVy0Wfs0Bugkhj76aMhBu4IefonI +Y4D2fGtQsjEHyctf1jcrYEDSOam+Rmx2U9DN1UUMqI1L+v4X+7E6sk8oZcD9 +IzxRfiYc9Kenpy6jigHOC0x7I1MOKrOTzf7YyIBn3Yaab3dw0LVFbt5bTQxA +9S1us9jU7DGfQ80MaFCSIimZcZAoT5XsYAsDEvcmk89iB1S7Jv7qYoCFZRh7 +G+IgFc074apDuD+lZx5EAwctfjrbPjrMgDvyyTFPsVtjGDqFIwyQ4B5a+Igd +1ac7ZjTBgJOy6uflzDmo+2675945BlhOUkkl2Ml8YjtPryLgoHGIc4MFB9XM +9riHrSZAw9ipeByb2ZMbGshLwJcrxmdELPF6KLN6SF1LwLfE1YecsYe9I37b +ihGwXrjQpBtb1G6n+E4JAjqSVvEtYpsYiGsgSQLeUFVAxoqDbgjluVBkCHi2 +qfq3M7ZJ1Y9iWSUCBE7HpzRiE1l5jZIqBJi1PmsdWHn/xqkfImoEuCz5nvyL +PUxICPFoEKD3JUeIvBM/l7D2ndAh4LlbiUcydtVfiehhMgE25hTuHOyh0d7b +vboEnCZpStZiG9edftthSED+4SMXR7EHAwo2vgQCpNOenjPYxUHCrmf0XlgQ +8OeoV5INtpHlbrtiKwLmPvuJuGMnyPSfytpNwFqN4P2R2BU8hTfSbXH7qnSZ +69gDU2ee3rMjIHY6ze4+tuE/kp3xjgTsjPi2+AKbWtw/HueE6wtfTrzDjk8t +5L5wANdvWtSrDbs/1EYn3JWAukD18DFsIS8p62A3Avh2LGdxVvJsBjz9PQjw +nOW35LLG3yucvebljevj/aReArtine1jVyoBZEH9HDnsfo5UpROdgP/FsBZV +sYX6BlrsCAL2i3+s3Ipt2Fw0vMuXgDyp9iEKNvXF2T/gT0Cg5FKU8Ur+Y9v1 +JgF4PgutY2AlP560RS+QgOyssoWdK/kRg+bbgglQ7jT/YostSC921QglgMuE +pb4X22BvVJBKGAExsxV9Tiv5xnti5cMJoOk9WuuCfV1N+gEpgoBe9ydprtjP +RYdKxU4TUPKt4aEbdt/v4iaBSDw/9ryiHiv5zKg+3igCPnp7TaxYv23PwnI0 +AZJjbXqe2P8HPOb0hg== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.7504249066936051, 1.313047485013753}}, + "PlotRange" -> {{0, 180}, {0.7398271177270477, 1.3299228765960198`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.7504249066936067}, + "AxesOrigin" -> {0, 0.7398271177270493}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 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 +6470,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.7398271177270493}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -1723,7 +6499,8 @@ rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.7504249066936051, 1.313047485013753}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.7398271177270477, 1.3299228765960198`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -1731,9 +6508,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.9940135437623453`*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"9ce0b67d-eef6-4e65-959c-814fe63bbbf1"] }, Open ]], Cell[CellGroupData[{ @@ -1748,30 +6524,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[{"-", @@ -1796,340 +6575,158 @@ 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[\\\"3.7107699482841954`*^-264\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 95, 9, + 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913440621885586`*^9, 3.9940135441435347`*^9}, + CellLabel-> + "During evaluation of \ +In[95]:=",ExpressionUUID->"7d68697e-aa5e-4c2f-b927-d270401d76f9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.3060580096653792`*^-275\\\", \ \\\"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, + 10, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913440621885586`*^9, 3.9940135441502867`*^9}, CellLabel-> "During evaluation of \ -In[418]:=",ExpressionUUID->"8a980d1e-9dd5-194d-803a-ac5d63bbe693"], +In[95]:=",ExpressionUUID->"ab23703a-1392-44a8-a242-658b001583cf"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.133412609607657`*^-284\\\", \ + "\"\\!\\(\\*FractionBox[\\\"4.5968560390002684`*^-287\\\", \ \\\"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, + 11, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913440621885586`*^9, 3.994013544157425*^9}, CellLabel-> "During evaluation of \ -In[418]:=",ExpressionUUID->"637082a9-fe74-7345-8895-dee77343ee6f"], - -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}, - CellLabel-> - "During evaluation of \ -In[418]:=",ExpressionUUID->"b2e7262c-7c6d-d94d-a545-ea4b363e579a"], +In[95]:=",ExpressionUUID->"b0e66379-aab4-41ea-83e2-787f6ca4d13f"], 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, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913440621885586`*^9, 3.994013544164345*^9}, CellLabel-> "During evaluation of \ -In[418]:=",ExpressionUUID->"40c56d25-ed26-3045-9759-ae8eef5eb7cb"], +In[95]:=",ExpressionUUID->"30f534ff-47b7-4659-9a4b-9049cf2d15f2"], 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:eJwV13k8FV8UAHChkqSiLC/Le+OhshOyPOdE1pLITmgRlaSSNbIkfpFIC0pK +orLNtCipiEKkRfa9UiSJ7Er9pvlnPt/P5869d+4995wZ1s6DNp7cXPQ1j4vr +332y++Vzdny2wae/q79MhqBB4xWx4A2tUbCW7+cRJX0pwJVvdoq1noVL5fke +A3rKELD1dgtPaxb48mrXP9IzgOXDomdnWu6AxfyEzkC9LdDzeMvB8ZYK8Hed +rruh6wYm7MGu0ZYGKGixuxCi7QszLdrnR1o+wu7oyICeteFQaZSb/S5rDLz3 +hxp7a54BiZ6SLzsV58A8qavq/rcLsMLH/fZCIx7kmvhAaNZnwFk1k9Itdnw4 +nr+t7dH+LGhLVS0fXbYEBVLs4owCb0B89vE33OLLsaZj3/W6gJsgeu7TfykZ +wmgxq1CeuDwPxBTun5jOEcaJ64KX0hl5wKg4eXw7KYwbmnq8rsnkgdTImqPy +lcIo11jWkKmZB7Kb/TxKB4TxJt9QvbtTHmjwzml90liBZw9V7/yWmQdW/iJ9 +6rUrsP/rf5lr1uRDrK25QcPkShxw+eAooFgAjHuvGdzzRFDx8J3OI+sKoFDY +dkptsQjmHkqXb9IvgOYGNzJZWgRl7vUJxlgWANvan7A2E0EFctuidN8CqLDM +XPA2TQSjhBz6LhYVwJzJxOt6fVG84Vvj0qVYCEd0rrm/jBJDg3cmlV4risDi +quD4pgQx7HbOWlbNKAJi4bG41+fF0P5FVR2TVQRvG+2p9zfF8Phn8VOVSkWg +7CfA0/1aDOuLhKSqTIpgICcw5ydDHDPTpnaUBRaB64ot31fdFUdew+DsiKYi +0AgtjbzyWBzPhn+QU+ooAv6Pq0VYVeJ4pilvaWNvEZQU8YBcmzjKXvsivHyo +CEQ2lSSp/hXHxidfRmXmkfA2kr3OeBMDc5cXmzSKkLDxx2yI7ycGzv0n081A +EoLNzq19NsTAUzlxk6cMSSi8ptQuPMnA+W/Pb5/eSIKYrYdOCd8q/NZeJ1pn +TsLQwxdTPMqrsO5ADWfrNhJSopL804JWYbq/n0ubJwkfV8r5Pl8igQQWuvXH +kSB6sExSVFQC0xJG982LJ2FzjWP9XqYEZlY61oidJqE4JF5xqYYE/lYWCoRk +Ek71jAw6OUrgXcb7XJ80EtRvlXr9yJLAo03fjprcIiFS33oHY70krqxb0Ddd +RYKZ25Wf2oaSyPnUWfyphgTBiG/Rdpsl8cAxN6+6WhIuV8bkJHlIom500M7k +1yQ8tHj0bcF/kri4qrZmqomEEUeZgLE2SVQpXX5RuY+EByF+C5f3SWKp8s89 +/Z9JCL/8JFV5WBL5h/TEM/pJEOh1KN3LLYWn17nI/R0kQd4rgat3rRQO8isO +ZYyS4HZ04tSrUClceFXF3+QPCbIXDSUGY6SQZTSQUv/33/qdKViYJIVe43cv +Wc+jIOT3mreG2VKomCfouZWXgvPRbitLXklhSkXt19X8FLxKrs68ISmNGpEr +RUxWUqBbmHYvvEwag+sX/dFYQ8HGltdzwzXSKJLx4YDxWgq2cPGaujdI49JS +z/W2ChTssvFtg8/SeL5wSc9eJQpMQlnHI+YzkbNAP/yoGgV+0pPXNygwcTBX +foegDgUTd5NqZlSY2OamVzBBO8RM4Tu1jokt6aRzuy4FMYc8tAgDJtovie64 +pE9BemVtDbc1E389Moz8CxQ898r8XhnAxO1/BCrNTSgw/60jdCyUiUcpb5eF +phS8TmrUWhfBRDWfUNcK2m0liyKy/6P7ryPTVc0pGF7sLxRzmYmCjQMrhjdR +cOSqoDbnGhNziZNcFzdTML3ulsvEDSaK15c5ciwp4HHrzvYsYuLZjQuso7ZQ +IEaaaZtUMJE4NOb7fSsFGRs/ufypYuJ3VnR9pDUFRFtYRHEdE188eHRZ2IYC +Je67L+WamKgXr35GZRsFhraSrgsHmLjMobPBzI6C6oEHEWVDTORJNXhRQ3tz +mM2NwFEmjjcHK5rYU+CQEzvcP8vE0q4rLjoOFPhMj0bULGHhhMTjTfOc6P06 +tEfkixALU7wyeo/S5htsz+MRY+HUq9Nh/bRvdFQ2GxAstJ72aXjmTIG/7Xof +V3kW9q6vil/rQs+nPn9eiCILfeJ4tibR7n56XvG+FgsZbxf+tnGlIF+bv6JB +j4VhR+BzEe0QMtxhBFnoHKrfuWg7BSJZXlEKm1goddxv8h5tqxid1mvu9Pi+ +ViP9bhRI/Sk4ULabhRbDeq5K7hQMBRA8XXtZ+FyqqeMg7Tjvxcpi/iy8dXqp ++BBt+w/HKzWD6f5zNVplPShgO487bgtnYZk8f6Er7fJNXdGJcSwMhM6rz2gn +PrcWzz/NwpXXPMp+0HblVBW+PMvC4d83pxg7KFhbrLux/yILbyaGWhjRnlEu +auPNYKGWZeZDb9o1uTIHiSwWGgx2GMbTvsBM5cVcFma9m/l6m/buNIH07fks +HF9dUVhNW10oUiWUYuHP13+SP9Dmip94nlrMwmnnkHPTtF/z7HMuLqXXS4Lr +gcBOCi4f6/7xvpyFZxius5K090/YxIy+YKGxsIu7Im1d32rG0joW6ofWftGm +zdevRyq+ZeGisKBkpN3sThpbNLGwZFrDw4R2diu7w6udhRuiX20zp33YOs0v +poeFk55CB/4Za5csuN5HP3+lOf9fe0GjqEvlX1k42zEovIF2V+mkavcwC1dE +s66vp52/bn/VrzEWNt20dFGiHVLQ4yI+w8LgFUYcadpmcrajWn9YuNOg2VyQ +tkhmzUlbHgLPWHVGztLv2yfKkTjMR6A4S+HLJ9p3kijqzBICr+ilBdbSjlgk +Z1ogROCz5jmtQtpWUemdtaIEpreqyp6hLfVL8PCABIFrm/iNDtAeOhK9cAFB +YMMSz2Qz2nGePuobFAlMSOWunKT31767t9pNjUD7ul+5L//Fh4Pd9mNaBJ6b +7S1P+xcfZgZxD+jqUOP9MVntX3w8uyPZZEzg1a6STTN0fLnqyt/9aUHghZIx +/ae0ZxSWdSvZEbh/m8BLoD2ZwYjUcCZQJSc8d46O3/GlsmwddwJ9MqPaH9Ie +HtPZt3EvgTntFzbI0/7muXGJhS+Bl01tA9vp+B9o2UJaHSFwpmiON572x9Jd +k85hBLY5HlXoo89Pj5JvmkcUgedjJ14k0O7MDNLfE0ug7OkXpeq0m6NPRx1K +JnDqcNnjAPo81m56IBh3g8BWUkaxhz7P1U+eUadvE5gSJl9ymPZzlVe2KUUE +XvvqdpOH9lPhD+lXSujq6P+ZlHSk96ODX/5+PYF+I+1R6nQ+Sd/vBh8nCLyR +Fj/SQ+eri13eH/tnCVwcdo7fgvY5qyMx3/8SqGM0/zxF57dEjbi66UUyKFP+ +9E+QFQVRvyiHpVIymOS7HL7S+XJ//Hw/fRMZLLAexa10vvWeWypsuEkGSz45 +vUmm8/Oeg4xi060yqHVzoPOtMQUe21R+2zjLYJGfbrDpRgpsVznF7fWVwZon +Iu9ENlCgn5d/9cIFGdzXk9RgQNeDDmZepvElGWR8uu3k/a9eXLh1ZTxTBnlU +L5afWU/Bg8icyza3ZHDBh8VqrVr0+XS8mir4WAbJNeF3rDQoWDP/XNLJDzL4 +3PvQ1za6Xom4h0YEKLIxJqmrxmMVBfcbg4/LqrGR6/r7ZlMGPR+LoPBGTTbq +N/t0K4pTcFbz6DF1YOOt9NauEREKlggcDBq2ZuO6quZ7HkIU8Jbs9NsTyMaZ +rQHhvXwUjApZeNhXsJHRO897zzgJrT7E233VbHS3FxEd/UlCedUsHH/FRsMz +lieC6XqeFJInfbOZjdWmpzOih0lQ/SjQMzPIxn18xoPHBkjwpd5szxCWxRsL +nT7zdpIwaGXn0rdbFk9ECuoefkZCX4KH/eGFcni6MJ/NfZJuP6hIqArIoV7m +QW35EyRMmc58/75MDskCu7MWUSTw85yN2cuQw3s6buyEcHq84Mp7HkpyOLlU +tXE2gIQwTzlhq21ymPyuRSfWiwQRg6E3CplyqOho07XTlATzH4Hmn7Xk8eug +9JQLN/29sYvvyL3jqzGRk2VseKeQ/j8Q5Y6tWIPShurmt3UKQKheLpH8sRZr +XqVUqpTmgURc0VYtLUV04L16ypfnNqQq6CwT9lJCw5nQBGmnm1DL2KA5lqyM +5k9eh5kU5YCuREWSSrMK/mXYanr3ZIMgT5b/jihVdDMrItPVr4NUpLS+k5wa +PujM4hXwuQaLZF2LbarV0MH+RSxXSCYoc8SLArer46xCtd/GoMtwuFuo0oJL +AzuvOvmwd6TBj7EEO/NUDeQv1VB/lXcBTFWq0s2V1uGb685fmGrn4OmY3q+p +1+vw/PT07vR7yeCrqN7+zlMTMcqZEbr6DHCGdzc6LdLCoG9jC4KmToExW8xy +SZYWvvksuvXTwVhYHXEqqEJbG9XSOtSabE7AWk+dMtl2beyN3dtTuzUSPJ96 +n7h3aD1W9OnFCOSFQdnVxt2jK3VQlvA7/P1nEIzf/Dul8kAHmZaGH1K++8Mu +2bxF6Za66BtRcYTKPwSja1O07ozookKEclu08QF4mP3rw0ScHqqa7Yn02e8N +zhtlUE9KHy1tikXnHHfDqgOxJcrl+ji+0kJiwSUPSPy7RzO+Qh9TfJ+ImyR6 +APdZE6r/uT4+3JKYkRjpAYPF829dfamPF83GZXW8PeAR14lUoff6mDXYUjKm +6QHO5yICJz/rYwLH98vEDXdILQ3WfLqYg0qPrCx3y7nBSn4fytKBg6unfAZT +7V0g2ygsZMSJg0Sbse0FAxdQD0s0SnHl4G85fsiRc4EtI2RT6w4Ohny87T03 +6QwnmydmdvlwUMfjQVVsqjNMZx03DInk4PVo52TuHido10t5n5PHwY+2uccw +2BG8j2ZfNi/koH9P/4vAXY4wWXjfc4jkYHCACLvc0hGEiNYptWIO1u1bMBZN +OMImPkmJJ+UcfOZTntP8ygEeN+bsft/EQclrCg1X2A5gIfhQKaCVgy5Jk8Yf +lzpAq+nLSbEODla+4Wdq/bKH8Uff4tx6OSiWsbxTsMEelK6pFnwd5OB261LT +6Ah7eNy+ISDhOwcX2b57ZuZjDxYrtoHKCAc9Ht7bLOVoD3tij77zn+DgijtR ++2ZU6P7KT6aLTnOwnM984M8qe4iavbjr0SwH5YzObV7BZw/L1t1S3D5Hj3es +O0Fn3A6uHHg08fcvB4eonCu+vXbwP1qvPjg= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -2143,299 +6740,114 @@ 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:eJwV13k8FV8UAHChkqSiLC/Le+OhshOyPOdE1pLITmgRlaSSNbIkfpFIC0pK +orLNtCipiEKkRfa9UiSJ7Er9pvlnPt/P5869d+4995wZ1s6DNp7cXPQ1j4vr +332y++Vzdny2wae/q79MhqBB4xWx4A2tUbCW7+cRJX0pwJVvdoq1noVL5fke +A3rKELD1dgtPaxb48mrXP9IzgOXDomdnWu6AxfyEzkC9LdDzeMvB8ZYK8Hed +rruh6wYm7MGu0ZYGKGixuxCi7QszLdrnR1o+wu7oyICeteFQaZSb/S5rDLz3 +hxp7a54BiZ6SLzsV58A8qavq/rcLsMLH/fZCIx7kmvhAaNZnwFk1k9Itdnw4 +nr+t7dH+LGhLVS0fXbYEBVLs4owCb0B89vE33OLLsaZj3/W6gJsgeu7TfykZ +wmgxq1CeuDwPxBTun5jOEcaJ64KX0hl5wKg4eXw7KYwbmnq8rsnkgdTImqPy +lcIo11jWkKmZB7Kb/TxKB4TxJt9QvbtTHmjwzml90liBZw9V7/yWmQdW/iJ9 +6rUrsP/rf5lr1uRDrK25QcPkShxw+eAooFgAjHuvGdzzRFDx8J3OI+sKoFDY +dkptsQjmHkqXb9IvgOYGNzJZWgRl7vUJxlgWANvan7A2E0EFctuidN8CqLDM +XPA2TQSjhBz6LhYVwJzJxOt6fVG84Vvj0qVYCEd0rrm/jBJDg3cmlV4risDi +quD4pgQx7HbOWlbNKAJi4bG41+fF0P5FVR2TVQRvG+2p9zfF8Phn8VOVSkWg +7CfA0/1aDOuLhKSqTIpgICcw5ydDHDPTpnaUBRaB64ot31fdFUdew+DsiKYi +0AgtjbzyWBzPhn+QU+ooAv6Pq0VYVeJ4pilvaWNvEZQU8YBcmzjKXvsivHyo +CEQ2lSSp/hXHxidfRmXmkfA2kr3OeBMDc5cXmzSKkLDxx2yI7ycGzv0n081A +EoLNzq19NsTAUzlxk6cMSSi8ptQuPMnA+W/Pb5/eSIKYrYdOCd8q/NZeJ1pn +TsLQwxdTPMqrsO5ADWfrNhJSopL804JWYbq/n0ubJwkfV8r5Pl8igQQWuvXH +kSB6sExSVFQC0xJG982LJ2FzjWP9XqYEZlY61oidJqE4JF5xqYYE/lYWCoRk +Ek71jAw6OUrgXcb7XJ80EtRvlXr9yJLAo03fjprcIiFS33oHY70krqxb0Ddd +RYKZ25Wf2oaSyPnUWfyphgTBiG/Rdpsl8cAxN6+6WhIuV8bkJHlIom500M7k +1yQ8tHj0bcF/kri4qrZmqomEEUeZgLE2SVQpXX5RuY+EByF+C5f3SWKp8s89 +/Z9JCL/8JFV5WBL5h/TEM/pJEOh1KN3LLYWn17nI/R0kQd4rgat3rRQO8isO +ZYyS4HZ04tSrUClceFXF3+QPCbIXDSUGY6SQZTSQUv/33/qdKViYJIVe43cv +Wc+jIOT3mreG2VKomCfouZWXgvPRbitLXklhSkXt19X8FLxKrs68ISmNGpEr +RUxWUqBbmHYvvEwag+sX/dFYQ8HGltdzwzXSKJLx4YDxWgq2cPGaujdI49JS +z/W2ChTssvFtg8/SeL5wSc9eJQpMQlnHI+YzkbNAP/yoGgV+0pPXNygwcTBX +foegDgUTd5NqZlSY2OamVzBBO8RM4Tu1jokt6aRzuy4FMYc8tAgDJtovie64 +pE9BemVtDbc1E389Moz8CxQ898r8XhnAxO1/BCrNTSgw/60jdCyUiUcpb5eF +phS8TmrUWhfBRDWfUNcK2m0liyKy/6P7ryPTVc0pGF7sLxRzmYmCjQMrhjdR +cOSqoDbnGhNziZNcFzdTML3ulsvEDSaK15c5ciwp4HHrzvYsYuLZjQuso7ZQ +IEaaaZtUMJE4NOb7fSsFGRs/ufypYuJ3VnR9pDUFRFtYRHEdE188eHRZ2IYC +Je67L+WamKgXr35GZRsFhraSrgsHmLjMobPBzI6C6oEHEWVDTORJNXhRQ3tz +mM2NwFEmjjcHK5rYU+CQEzvcP8vE0q4rLjoOFPhMj0bULGHhhMTjTfOc6P06 +tEfkixALU7wyeo/S5htsz+MRY+HUq9Nh/bRvdFQ2GxAstJ72aXjmTIG/7Xof +V3kW9q6vil/rQs+nPn9eiCILfeJ4tibR7n56XvG+FgsZbxf+tnGlIF+bv6JB +j4VhR+BzEe0QMtxhBFnoHKrfuWg7BSJZXlEKm1goddxv8h5tqxid1mvu9Pi+ +ViP9bhRI/Sk4ULabhRbDeq5K7hQMBRA8XXtZ+FyqqeMg7Tjvxcpi/iy8dXqp ++BBt+w/HKzWD6f5zNVplPShgO487bgtnYZk8f6Er7fJNXdGJcSwMhM6rz2gn +PrcWzz/NwpXXPMp+0HblVBW+PMvC4d83pxg7KFhbrLux/yILbyaGWhjRnlEu +auPNYKGWZeZDb9o1uTIHiSwWGgx2GMbTvsBM5cVcFma9m/l6m/buNIH07fks +HF9dUVhNW10oUiWUYuHP13+SP9Dmip94nlrMwmnnkHPTtF/z7HMuLqXXS4Lr +gcBOCi4f6/7xvpyFZxius5K090/YxIy+YKGxsIu7Im1d32rG0joW6ofWftGm +zdevRyq+ZeGisKBkpN3sThpbNLGwZFrDw4R2diu7w6udhRuiX20zp33YOs0v +poeFk55CB/4Za5csuN5HP3+lOf9fe0GjqEvlX1k42zEovIF2V+mkavcwC1dE +s66vp52/bn/VrzEWNt20dFGiHVLQ4yI+w8LgFUYcadpmcrajWn9YuNOg2VyQ +tkhmzUlbHgLPWHVGztLv2yfKkTjMR6A4S+HLJ9p3kijqzBICr+ilBdbSjlgk +Z1ogROCz5jmtQtpWUemdtaIEpreqyp6hLfVL8PCABIFrm/iNDtAeOhK9cAFB +YMMSz2Qz2nGePuobFAlMSOWunKT31767t9pNjUD7ul+5L//Fh4Pd9mNaBJ6b +7S1P+xcfZgZxD+jqUOP9MVntX3w8uyPZZEzg1a6STTN0fLnqyt/9aUHghZIx +/ae0ZxSWdSvZEbh/m8BLoD2ZwYjUcCZQJSc8d46O3/GlsmwddwJ9MqPaH9Ie +HtPZt3EvgTntFzbI0/7muXGJhS+Bl01tA9vp+B9o2UJaHSFwpmiON572x9Jd +k85hBLY5HlXoo89Pj5JvmkcUgedjJ14k0O7MDNLfE0ug7OkXpeq0m6NPRx1K +JnDqcNnjAPo81m56IBh3g8BWUkaxhz7P1U+eUadvE5gSJl9ymPZzlVe2KUUE +XvvqdpOH9lPhD+lXSujq6P+ZlHSk96ODX/5+PYF+I+1R6nQ+Sd/vBh8nCLyR +Fj/SQ+eri13eH/tnCVwcdo7fgvY5qyMx3/8SqGM0/zxF57dEjbi66UUyKFP+ +9E+QFQVRvyiHpVIymOS7HL7S+XJ//Hw/fRMZLLAexa10vvWeWypsuEkGSz45 +vUmm8/Oeg4xi060yqHVzoPOtMQUe21R+2zjLYJGfbrDpRgpsVznF7fWVwZon +Iu9ENlCgn5d/9cIFGdzXk9RgQNeDDmZepvElGWR8uu3k/a9eXLh1ZTxTBnlU +L5afWU/Bg8icyza3ZHDBh8VqrVr0+XS8mir4WAbJNeF3rDQoWDP/XNLJDzL4 +3PvQ1za6Xom4h0YEKLIxJqmrxmMVBfcbg4/LqrGR6/r7ZlMGPR+LoPBGTTbq +N/t0K4pTcFbz6DF1YOOt9NauEREKlggcDBq2ZuO6quZ7HkIU8Jbs9NsTyMaZ +rQHhvXwUjApZeNhXsJHRO897zzgJrT7E233VbHS3FxEd/UlCedUsHH/FRsMz +lieC6XqeFJInfbOZjdWmpzOih0lQ/SjQMzPIxn18xoPHBkjwpd5szxCWxRsL +nT7zdpIwaGXn0rdbFk9ECuoefkZCX4KH/eGFcni6MJ/NfZJuP6hIqArIoV7m +QW35EyRMmc58/75MDskCu7MWUSTw85yN2cuQw3s6buyEcHq84Mp7HkpyOLlU +tXE2gIQwTzlhq21ymPyuRSfWiwQRg6E3CplyqOho07XTlATzH4Hmn7Xk8eug +9JQLN/29sYvvyL3jqzGRk2VseKeQ/j8Q5Y6tWIPShurmt3UKQKheLpH8sRZr +XqVUqpTmgURc0VYtLUV04L16ypfnNqQq6CwT9lJCw5nQBGmnm1DL2KA5lqyM +5k9eh5kU5YCuREWSSrMK/mXYanr3ZIMgT5b/jihVdDMrItPVr4NUpLS+k5wa +PujM4hXwuQaLZF2LbarV0MH+RSxXSCYoc8SLArer46xCtd/GoMtwuFuo0oJL +AzuvOvmwd6TBj7EEO/NUDeQv1VB/lXcBTFWq0s2V1uGb685fmGrn4OmY3q+p +1+vw/PT07vR7yeCrqN7+zlMTMcqZEbr6DHCGdzc6LdLCoG9jC4KmToExW8xy +SZYWvvksuvXTwVhYHXEqqEJbG9XSOtSabE7AWk+dMtl2beyN3dtTuzUSPJ96 +n7h3aD1W9OnFCOSFQdnVxt2jK3VQlvA7/P1nEIzf/Dul8kAHmZaGH1K++8Mu +2bxF6Za66BtRcYTKPwSja1O07ozookKEclu08QF4mP3rw0ScHqqa7Yn02e8N +zhtlUE9KHy1tikXnHHfDqgOxJcrl+ji+0kJiwSUPSPy7RzO+Qh9TfJ+ImyR6 +APdZE6r/uT4+3JKYkRjpAYPF829dfamPF83GZXW8PeAR14lUoff6mDXYUjKm +6QHO5yICJz/rYwLH98vEDXdILQ3WfLqYg0qPrCx3y7nBSn4fytKBg6unfAZT +7V0g2ygsZMSJg0Sbse0FAxdQD0s0SnHl4G85fsiRc4EtI2RT6w4Ohny87T03 +6QwnmydmdvlwUMfjQVVsqjNMZx03DInk4PVo52TuHido10t5n5PHwY+2uccw +2BG8j2ZfNi/koH9P/4vAXY4wWXjfc4jkYHCACLvc0hGEiNYptWIO1u1bMBZN +OMImPkmJJ+UcfOZTntP8ygEeN+bsft/EQclrCg1X2A5gIfhQKaCVgy5Jk8Yf +lzpAq+nLSbEODla+4Wdq/bKH8Uff4tx6OSiWsbxTsMEelK6pFnwd5OB261LT +6Ah7eNy+ISDhOwcX2b57ZuZjDxYrtoHKCAc9Ht7bLOVoD3tij77zn+DgijtR ++2ZU6P7KT6aLTnOwnM984M8qe4iavbjr0SwH5YzObV7BZw/L1t1S3D5Hj3es +O0Fn3A6uHHg08fcvB4eonCu+vXbwP1qvPjg= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "PlotRange" -> {{0, 30}, {0., 0.0679059878624669}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +6859,19 @@ xZ+NDXq9HfXOhZcGEP8DWaJNdQ== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "PlotRange" -> {{0, 30}, {0., 0.0679059878624669}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +6885,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:eJwV13k8FV8UAHChkqSiLC/Le+OhshOyPOdE1pLITmgRlaSSNbIkfpFIC0pK +orLNtCipiEKkRfa9UiSJ7Er9pvlnPt/P5869d+4995wZ1s6DNp7cXPQ1j4vr +332y++Vzdny2wae/q79MhqBB4xWx4A2tUbCW7+cRJX0pwJVvdoq1noVL5fke +A3rKELD1dgtPaxb48mrXP9IzgOXDomdnWu6AxfyEzkC9LdDzeMvB8ZYK8Hed +rruh6wYm7MGu0ZYGKGixuxCi7QszLdrnR1o+wu7oyICeteFQaZSb/S5rDLz3 +hxp7a54BiZ6SLzsV58A8qavq/rcLsMLH/fZCIx7kmvhAaNZnwFk1k9Itdnw4 +nr+t7dH+LGhLVS0fXbYEBVLs4owCb0B89vE33OLLsaZj3/W6gJsgeu7TfykZ +wmgxq1CeuDwPxBTun5jOEcaJ64KX0hl5wKg4eXw7KYwbmnq8rsnkgdTImqPy +lcIo11jWkKmZB7Kb/TxKB4TxJt9QvbtTHmjwzml90liBZw9V7/yWmQdW/iJ9 +6rUrsP/rf5lr1uRDrK25QcPkShxw+eAooFgAjHuvGdzzRFDx8J3OI+sKoFDY +dkptsQjmHkqXb9IvgOYGNzJZWgRl7vUJxlgWANvan7A2E0EFctuidN8CqLDM +XPA2TQSjhBz6LhYVwJzJxOt6fVG84Vvj0qVYCEd0rrm/jBJDg3cmlV4risDi +quD4pgQx7HbOWlbNKAJi4bG41+fF0P5FVR2TVQRvG+2p9zfF8Phn8VOVSkWg +7CfA0/1aDOuLhKSqTIpgICcw5ydDHDPTpnaUBRaB64ot31fdFUdew+DsiKYi +0AgtjbzyWBzPhn+QU+ooAv6Pq0VYVeJ4pilvaWNvEZQU8YBcmzjKXvsivHyo +CEQ2lSSp/hXHxidfRmXmkfA2kr3OeBMDc5cXmzSKkLDxx2yI7ycGzv0n081A +EoLNzq19NsTAUzlxk6cMSSi8ptQuPMnA+W/Pb5/eSIKYrYdOCd8q/NZeJ1pn +TsLQwxdTPMqrsO5ADWfrNhJSopL804JWYbq/n0ubJwkfV8r5Pl8igQQWuvXH +kSB6sExSVFQC0xJG982LJ2FzjWP9XqYEZlY61oidJqE4JF5xqYYE/lYWCoRk +Ek71jAw6OUrgXcb7XJ80EtRvlXr9yJLAo03fjprcIiFS33oHY70krqxb0Ddd +RYKZ25Wf2oaSyPnUWfyphgTBiG/Rdpsl8cAxN6+6WhIuV8bkJHlIom500M7k +1yQ8tHj0bcF/kri4qrZmqomEEUeZgLE2SVQpXX5RuY+EByF+C5f3SWKp8s89 +/Z9JCL/8JFV5WBL5h/TEM/pJEOh1KN3LLYWn17nI/R0kQd4rgat3rRQO8isO +ZYyS4HZ04tSrUClceFXF3+QPCbIXDSUGY6SQZTSQUv/33/qdKViYJIVe43cv +Wc+jIOT3mreG2VKomCfouZWXgvPRbitLXklhSkXt19X8FLxKrs68ISmNGpEr +RUxWUqBbmHYvvEwag+sX/dFYQ8HGltdzwzXSKJLx4YDxWgq2cPGaujdI49JS +z/W2ChTssvFtg8/SeL5wSc9eJQpMQlnHI+YzkbNAP/yoGgV+0pPXNygwcTBX +foegDgUTd5NqZlSY2OamVzBBO8RM4Tu1jokt6aRzuy4FMYc8tAgDJtovie64 +pE9BemVtDbc1E389Moz8CxQ898r8XhnAxO1/BCrNTSgw/60jdCyUiUcpb5eF +phS8TmrUWhfBRDWfUNcK2m0liyKy/6P7ryPTVc0pGF7sLxRzmYmCjQMrhjdR +cOSqoDbnGhNziZNcFzdTML3ulsvEDSaK15c5ciwp4HHrzvYsYuLZjQuso7ZQ +IEaaaZtUMJE4NOb7fSsFGRs/ufypYuJ3VnR9pDUFRFtYRHEdE188eHRZ2IYC +Je67L+WamKgXr35GZRsFhraSrgsHmLjMobPBzI6C6oEHEWVDTORJNXhRQ3tz +mM2NwFEmjjcHK5rYU+CQEzvcP8vE0q4rLjoOFPhMj0bULGHhhMTjTfOc6P06 +tEfkixALU7wyeo/S5htsz+MRY+HUq9Nh/bRvdFQ2GxAstJ72aXjmTIG/7Xof +V3kW9q6vil/rQs+nPn9eiCILfeJ4tibR7n56XvG+FgsZbxf+tnGlIF+bv6JB +j4VhR+BzEe0QMtxhBFnoHKrfuWg7BSJZXlEKm1goddxv8h5tqxid1mvu9Pi+ +ViP9bhRI/Sk4ULabhRbDeq5K7hQMBRA8XXtZ+FyqqeMg7Tjvxcpi/iy8dXqp ++BBt+w/HKzWD6f5zNVplPShgO487bgtnYZk8f6Er7fJNXdGJcSwMhM6rz2gn +PrcWzz/NwpXXPMp+0HblVBW+PMvC4d83pxg7KFhbrLux/yILbyaGWhjRnlEu +auPNYKGWZeZDb9o1uTIHiSwWGgx2GMbTvsBM5cVcFma9m/l6m/buNIH07fks +HF9dUVhNW10oUiWUYuHP13+SP9Dmip94nlrMwmnnkHPTtF/z7HMuLqXXS4Lr +gcBOCi4f6/7xvpyFZxius5K090/YxIy+YKGxsIu7Im1d32rG0joW6ofWftGm +zdevRyq+ZeGisKBkpN3sThpbNLGwZFrDw4R2diu7w6udhRuiX20zp33YOs0v +poeFk55CB/4Za5csuN5HP3+lOf9fe0GjqEvlX1k42zEovIF2V+mkavcwC1dE +s66vp52/bn/VrzEWNt20dFGiHVLQ4yI+w8LgFUYcadpmcrajWn9YuNOg2VyQ +tkhmzUlbHgLPWHVGztLv2yfKkTjMR6A4S+HLJ9p3kijqzBICr+ilBdbSjlgk +Z1ogROCz5jmtQtpWUemdtaIEpreqyp6hLfVL8PCABIFrm/iNDtAeOhK9cAFB +YMMSz2Qz2nGePuobFAlMSOWunKT31767t9pNjUD7ul+5L//Fh4Pd9mNaBJ6b +7S1P+xcfZgZxD+jqUOP9MVntX3w8uyPZZEzg1a6STTN0fLnqyt/9aUHghZIx +/ae0ZxSWdSvZEbh/m8BLoD2ZwYjUcCZQJSc8d46O3/GlsmwddwJ9MqPaH9Ie +HtPZt3EvgTntFzbI0/7muXGJhS+Bl01tA9vp+B9o2UJaHSFwpmiON572x9Jd +k85hBLY5HlXoo89Pj5JvmkcUgedjJ14k0O7MDNLfE0ug7OkXpeq0m6NPRx1K +JnDqcNnjAPo81m56IBh3g8BWUkaxhz7P1U+eUadvE5gSJl9ymPZzlVe2KUUE +XvvqdpOH9lPhD+lXSujq6P+ZlHSk96ODX/5+PYF+I+1R6nQ+Sd/vBh8nCLyR +Fj/SQ+eri13eH/tnCVwcdo7fgvY5qyMx3/8SqGM0/zxF57dEjbi66UUyKFP+ +9E+QFQVRvyiHpVIymOS7HL7S+XJ//Hw/fRMZLLAexa10vvWeWypsuEkGSz45 +vUmm8/Oeg4xi060yqHVzoPOtMQUe21R+2zjLYJGfbrDpRgpsVznF7fWVwZon +Iu9ENlCgn5d/9cIFGdzXk9RgQNeDDmZepvElGWR8uu3k/a9eXLh1ZTxTBnlU +L5afWU/Bg8icyza3ZHDBh8VqrVr0+XS8mir4WAbJNeF3rDQoWDP/XNLJDzL4 +3PvQ1za6Xom4h0YEKLIxJqmrxmMVBfcbg4/LqrGR6/r7ZlMGPR+LoPBGTTbq +N/t0K4pTcFbz6DF1YOOt9NauEREKlggcDBq2ZuO6quZ7HkIU8Jbs9NsTyMaZ +rQHhvXwUjApZeNhXsJHRO897zzgJrT7E233VbHS3FxEd/UlCedUsHH/FRsMz +lieC6XqeFJInfbOZjdWmpzOih0lQ/SjQMzPIxn18xoPHBkjwpd5szxCWxRsL +nT7zdpIwaGXn0rdbFk9ECuoefkZCX4KH/eGFcni6MJ/NfZJuP6hIqArIoV7m +QW35EyRMmc58/75MDskCu7MWUSTw85yN2cuQw3s6buyEcHq84Mp7HkpyOLlU +tXE2gIQwTzlhq21ymPyuRSfWiwQRg6E3CplyqOho07XTlATzH4Hmn7Xk8eug +9JQLN/29sYvvyL3jqzGRk2VseKeQ/j8Q5Y6tWIPShurmt3UKQKheLpH8sRZr +XqVUqpTmgURc0VYtLUV04L16ypfnNqQq6CwT9lJCw5nQBGmnm1DL2KA5lqyM +5k9eh5kU5YCuREWSSrMK/mXYanr3ZIMgT5b/jihVdDMrItPVr4NUpLS+k5wa +PujM4hXwuQaLZF2LbarV0MH+RSxXSCYoc8SLArer46xCtd/GoMtwuFuo0oJL +AzuvOvmwd6TBj7EEO/NUDeQv1VB/lXcBTFWq0s2V1uGb685fmGrn4OmY3q+p +1+vw/PT07vR7yeCrqN7+zlMTMcqZEbr6DHCGdzc6LdLCoG9jC4KmToExW8xy +SZYWvvksuvXTwVhYHXEqqEJbG9XSOtSabE7AWk+dMtl2beyN3dtTuzUSPJ96 +n7h3aD1W9OnFCOSFQdnVxt2jK3VQlvA7/P1nEIzf/Dul8kAHmZaGH1K++8Mu +2bxF6Za66BtRcYTKPwSja1O07ozookKEclu08QF4mP3rw0ScHqqa7Yn02e8N +zhtlUE9KHy1tikXnHHfDqgOxJcrl+ji+0kJiwSUPSPy7RzO+Qh9TfJ+ImyR6 +APdZE6r/uT4+3JKYkRjpAYPF829dfamPF83GZXW8PeAR14lUoff6mDXYUjKm +6QHO5yICJz/rYwLH98vEDXdILQ3WfLqYg0qPrCx3y7nBSn4fytKBg6unfAZT +7V0g2ygsZMSJg0Sbse0FAxdQD0s0SnHl4G85fsiRc4EtI2RT6w4Ohny87T03 +6QwnmydmdvlwUMfjQVVsqjNMZx03DInk4PVo52TuHido10t5n5PHwY+2uccw +2BG8j2ZfNi/koH9P/4vAXY4wWXjfc4jkYHCACLvc0hGEiNYptWIO1u1bMBZN +OMImPkmJJ+UcfOZTntP8ygEeN+bsft/EQclrCg1X2A5gIfhQKaCVgy5Jk8Yf +lzpAq+nLSbEODla+4Wdq/bKH8Uff4tx6OSiWsbxTsMEelK6pFnwd5OB261LT +6Ah7eNy+ISDhOwcX2b57ZuZjDxYrtoHKCAc9Ht7bLOVoD3tij77zn+DgijtR ++2ZU6P7KT6aLTnOwnM984M8qe4iavbjr0SwH5YzObV7BZw/L1t1S3D5Hj3es +O0Fn3A6uHHg08fcvB4eonCu+vXbwP1qvPjg= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "PlotRange" -> {{0, 30}, {0., 0.0679059878624669}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +7002,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 +7030,8 @@ xZ+NDXq9HfXOhZcGEP8DWaJNdQ== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.15142054732361562`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.0679059878624669}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -2810,25 +7039,857 @@ 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.9940138566090937`*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"9d1ecc39-191d-4b70-b891-4900416f725d"] }, 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.005294"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.015702"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.025589"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.034637"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.042584"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.049218"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.054412"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.058095"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.060285"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.061043"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.060506"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.058826"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.05621"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.052848"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.048958"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.044722"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.040328"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.035917"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.031623"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.027533"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.023727"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.020242"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.017109"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.014329"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.0119"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.0098"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.008009"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.006494"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.005229"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.00418"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.00332"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.994013014530513*^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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, + 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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.061043}}, + "Frame" -> {{False, 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.061043}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.061043}}, + "Frame" -> {{False, 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.061043}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994013856774976*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"6024ffd9-5062-4662-8d57-b88ace85faf9"] +}, 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:eJwV13k8FV8UAHChkqSiLC/Le+OhshOyPOdE1pLITmgRlaSSNbIkfpFIC0pK +orLNtCipiEKkRfa9UiSJ7Er9pvlnPt/P5869d+4995wZ1s6DNp7cXPQ1j4vr +332y++Vzdny2wae/q79MhqBB4xWx4A2tUbCW7+cRJX0pwJVvdoq1noVL5fke +A3rKELD1dgtPaxb48mrXP9IzgOXDomdnWu6AxfyEzkC9LdDzeMvB8ZYK8Hed +rruh6wYm7MGu0ZYGKGixuxCi7QszLdrnR1o+wu7oyICeteFQaZSb/S5rDLz3 +hxp7a54BiZ6SLzsV58A8qavq/rcLsMLH/fZCIx7kmvhAaNZnwFk1k9Itdnw4 +nr+t7dH+LGhLVS0fXbYEBVLs4owCb0B89vE33OLLsaZj3/W6gJsgeu7TfykZ +wmgxq1CeuDwPxBTun5jOEcaJ64KX0hl5wKg4eXw7KYwbmnq8rsnkgdTImqPy +lcIo11jWkKmZB7Kb/TxKB4TxJt9QvbtTHmjwzml90liBZw9V7/yWmQdW/iJ9 +6rUrsP/rf5lr1uRDrK25QcPkShxw+eAooFgAjHuvGdzzRFDx8J3OI+sKoFDY +dkptsQjmHkqXb9IvgOYGNzJZWgRl7vUJxlgWANvan7A2E0EFctuidN8CqLDM +XPA2TQSjhBz6LhYVwJzJxOt6fVG84Vvj0qVYCEd0rrm/jBJDg3cmlV4risDi +quD4pgQx7HbOWlbNKAJi4bG41+fF0P5FVR2TVQRvG+2p9zfF8Phn8VOVSkWg +7CfA0/1aDOuLhKSqTIpgICcw5ydDHDPTpnaUBRaB64ot31fdFUdew+DsiKYi +0AgtjbzyWBzPhn+QU+ooAv6Pq0VYVeJ4pilvaWNvEZQU8YBcmzjKXvsivHyo +CEQ2lSSp/hXHxidfRmXmkfA2kr3OeBMDc5cXmzSKkLDxx2yI7ycGzv0n081A +EoLNzq19NsTAUzlxk6cMSSi8ptQuPMnA+W/Pb5/eSIKYrYdOCd8q/NZeJ1pn +TsLQwxdTPMqrsO5ADWfrNhJSopL804JWYbq/n0ubJwkfV8r5Pl8igQQWuvXH +kSB6sExSVFQC0xJG982LJ2FzjWP9XqYEZlY61oidJqE4JF5xqYYE/lYWCoRk +Ek71jAw6OUrgXcb7XJ80EtRvlXr9yJLAo03fjprcIiFS33oHY70krqxb0Ddd +RYKZ25Wf2oaSyPnUWfyphgTBiG/Rdpsl8cAxN6+6WhIuV8bkJHlIom500M7k +1yQ8tHj0bcF/kri4qrZmqomEEUeZgLE2SVQpXX5RuY+EByF+C5f3SWKp8s89 +/Z9JCL/8JFV5WBL5h/TEM/pJEOh1KN3LLYWn17nI/R0kQd4rgat3rRQO8isO +ZYyS4HZ04tSrUClceFXF3+QPCbIXDSUGY6SQZTSQUv/33/qdKViYJIVe43cv +Wc+jIOT3mreG2VKomCfouZWXgvPRbitLXklhSkXt19X8FLxKrs68ISmNGpEr +RUxWUqBbmHYvvEwag+sX/dFYQ8HGltdzwzXSKJLx4YDxWgq2cPGaujdI49JS +z/W2ChTssvFtg8/SeL5wSc9eJQpMQlnHI+YzkbNAP/yoGgV+0pPXNygwcTBX +foegDgUTd5NqZlSY2OamVzBBO8RM4Tu1jokt6aRzuy4FMYc8tAgDJtovie64 +pE9BemVtDbc1E389Moz8CxQ898r8XhnAxO1/BCrNTSgw/60jdCyUiUcpb5eF +phS8TmrUWhfBRDWfUNcK2m0liyKy/6P7ryPTVc0pGF7sLxRzmYmCjQMrhjdR +cOSqoDbnGhNziZNcFzdTML3ulsvEDSaK15c5ciwp4HHrzvYsYuLZjQuso7ZQ +IEaaaZtUMJE4NOb7fSsFGRs/ufypYuJ3VnR9pDUFRFtYRHEdE188eHRZ2IYC +Je67L+WamKgXr35GZRsFhraSrgsHmLjMobPBzI6C6oEHEWVDTORJNXhRQ3tz +mM2NwFEmjjcHK5rYU+CQEzvcP8vE0q4rLjoOFPhMj0bULGHhhMTjTfOc6P06 +tEfkixALU7wyeo/S5htsz+MRY+HUq9Nh/bRvdFQ2GxAstJ72aXjmTIG/7Xof +V3kW9q6vil/rQs+nPn9eiCILfeJ4tibR7n56XvG+FgsZbxf+tnGlIF+bv6JB +j4VhR+BzEe0QMtxhBFnoHKrfuWg7BSJZXlEKm1goddxv8h5tqxid1mvu9Pi+ +ViP9bhRI/Sk4ULabhRbDeq5K7hQMBRA8XXtZ+FyqqeMg7Tjvxcpi/iy8dXqp ++BBt+w/HKzWD6f5zNVplPShgO487bgtnYZk8f6Er7fJNXdGJcSwMhM6rz2gn +PrcWzz/NwpXXPMp+0HblVBW+PMvC4d83pxg7KFhbrLux/yILbyaGWhjRnlEu +auPNYKGWZeZDb9o1uTIHiSwWGgx2GMbTvsBM5cVcFma9m/l6m/buNIH07fks +HF9dUVhNW10oUiWUYuHP13+SP9Dmip94nlrMwmnnkHPTtF/z7HMuLqXXS4Lr +gcBOCi4f6/7xvpyFZxius5K090/YxIy+YKGxsIu7Im1d32rG0joW6ofWftGm +zdevRyq+ZeGisKBkpN3sThpbNLGwZFrDw4R2diu7w6udhRuiX20zp33YOs0v +poeFk55CB/4Za5csuN5HP3+lOf9fe0GjqEvlX1k42zEovIF2V+mkavcwC1dE +s66vp52/bn/VrzEWNt20dFGiHVLQ4yI+w8LgFUYcadpmcrajWn9YuNOg2VyQ +tkhmzUlbHgLPWHVGztLv2yfKkTjMR6A4S+HLJ9p3kijqzBICr+ilBdbSjlgk +Z1ogROCz5jmtQtpWUemdtaIEpreqyp6hLfVL8PCABIFrm/iNDtAeOhK9cAFB +YMMSz2Qz2nGePuobFAlMSOWunKT31767t9pNjUD7ul+5L//Fh4Pd9mNaBJ6b +7S1P+xcfZgZxD+jqUOP9MVntX3w8uyPZZEzg1a6STTN0fLnqyt/9aUHghZIx +/ae0ZxSWdSvZEbh/m8BLoD2ZwYjUcCZQJSc8d46O3/GlsmwddwJ9MqPaH9Ie +HtPZt3EvgTntFzbI0/7muXGJhS+Bl01tA9vp+B9o2UJaHSFwpmiON572x9Jd +k85hBLY5HlXoo89Pj5JvmkcUgedjJ14k0O7MDNLfE0ug7OkXpeq0m6NPRx1K +JnDqcNnjAPo81m56IBh3g8BWUkaxhz7P1U+eUadvE5gSJl9ymPZzlVe2KUUE +XvvqdpOH9lPhD+lXSujq6P+ZlHSk96ODX/5+PYF+I+1R6nQ+Sd/vBh8nCLyR +Fj/SQ+eri13eH/tnCVwcdo7fgvY5qyMx3/8SqGM0/zxF57dEjbi66UUyKFP+ +9E+QFQVRvyiHpVIymOS7HL7S+XJ//Hw/fRMZLLAexa10vvWeWypsuEkGSz45 +vUmm8/Oeg4xi060yqHVzoPOtMQUe21R+2zjLYJGfbrDpRgpsVznF7fWVwZon +Iu9ENlCgn5d/9cIFGdzXk9RgQNeDDmZepvElGWR8uu3k/a9eXLh1ZTxTBnlU +L5afWU/Bg8icyza3ZHDBh8VqrVr0+XS8mir4WAbJNeF3rDQoWDP/XNLJDzL4 +3PvQ1za6Xom4h0YEKLIxJqmrxmMVBfcbg4/LqrGR6/r7ZlMGPR+LoPBGTTbq +N/t0K4pTcFbz6DF1YOOt9NauEREKlggcDBq2ZuO6quZ7HkIU8Jbs9NsTyMaZ +rQHhvXwUjApZeNhXsJHRO897zzgJrT7E233VbHS3FxEd/UlCedUsHH/FRsMz +lieC6XqeFJInfbOZjdWmpzOih0lQ/SjQMzPIxn18xoPHBkjwpd5szxCWxRsL +nT7zdpIwaGXn0rdbFk9ECuoefkZCX4KH/eGFcni6MJ/NfZJuP6hIqArIoV7m +QW35EyRMmc58/75MDskCu7MWUSTw85yN2cuQw3s6buyEcHq84Mp7HkpyOLlU +tXE2gIQwTzlhq21ymPyuRSfWiwQRg6E3CplyqOho07XTlATzH4Hmn7Xk8eug +9JQLN/29sYvvyL3jqzGRk2VseKeQ/j8Q5Y6tWIPShurmt3UKQKheLpH8sRZr +XqVUqpTmgURc0VYtLUV04L16ypfnNqQq6CwT9lJCw5nQBGmnm1DL2KA5lqyM +5k9eh5kU5YCuREWSSrMK/mXYanr3ZIMgT5b/jihVdDMrItPVr4NUpLS+k5wa +PujM4hXwuQaLZF2LbarV0MH+RSxXSCYoc8SLArer46xCtd/GoMtwuFuo0oJL +AzuvOvmwd6TBj7EEO/NUDeQv1VB/lXcBTFWq0s2V1uGb685fmGrn4OmY3q+p +1+vw/PT07vR7yeCrqN7+zlMTMcqZEbr6DHCGdzc6LdLCoG9jC4KmToExW8xy +SZYWvvksuvXTwVhYHXEqqEJbG9XSOtSabE7AWk+dMtl2beyN3dtTuzUSPJ96 +n7h3aD1W9OnFCOSFQdnVxt2jK3VQlvA7/P1nEIzf/Dul8kAHmZaGH1K++8Mu +2bxF6Za66BtRcYTKPwSja1O07ozookKEclu08QF4mP3rw0ScHqqa7Yn02e8N +zhtlUE9KHy1tikXnHHfDqgOxJcrl+ji+0kJiwSUPSPy7RzO+Qh9TfJ+ImyR6 +APdZE6r/uT4+3JKYkRjpAYPF829dfamPF83GZXW8PeAR14lUoff6mDXYUjKm +6QHO5yICJz/rYwLH98vEDXdILQ3WfLqYg0qPrCx3y7nBSn4fytKBg6unfAZT +7V0g2ygsZMSJg0Sbse0FAxdQD0s0SnHl4G85fsiRc4EtI2RT6w4Ohny87T03 +6QwnmydmdvlwUMfjQVVsqjNMZx03DInk4PVo52TuHido10t5n5PHwY+2uccw +2BG8j2ZfNi/koH9P/4vAXY4wWXjfc4jkYHCACLvc0hGEiNYptWIO1u1bMBZN +OMImPkmJJ+UcfOZTntP8ygEeN+bsft/EQclrCg1X2A5gIfhQKaCVgy5Jk8Yf +lzpAq+nLSbEODla+4Wdq/bKH8Uff4tx6OSiWsbxTsMEelK6pFnwd5OB261LT +6Ah7eNy+ISDhOwcX2b57ZuZjDxYrtoHKCAc9Ht7bLOVoD3tij77zn+DgijtR ++2ZU6P7KT6aLTnOwnM984M8qe4iavbjr0SwH5YzObV7BZw/L1t1S3D5Hj3es +O0Fn3A6uHHg08fcvB4eonCu+vXbwP1qvPjg= + "]]}, + 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:eJwV13k8FV8UAHChkqSiLC/Le+OhshOyPOdE1pLITmgRlaSSNbIkfpFIC0pK +orLNtCipiEKkRfa9UiSJ7Er9pvlnPt/P5869d+4995wZ1s6DNp7cXPQ1j4vr +332y++Vzdny2wae/q79MhqBB4xWx4A2tUbCW7+cRJX0pwJVvdoq1noVL5fke +A3rKELD1dgtPaxb48mrXP9IzgOXDomdnWu6AxfyEzkC9LdDzeMvB8ZYK8Hed +rruh6wYm7MGu0ZYGKGixuxCi7QszLdrnR1o+wu7oyICeteFQaZSb/S5rDLz3 +hxp7a54BiZ6SLzsV58A8qavq/rcLsMLH/fZCIx7kmvhAaNZnwFk1k9Itdnw4 +nr+t7dH+LGhLVS0fXbYEBVLs4owCb0B89vE33OLLsaZj3/W6gJsgeu7TfykZ +wmgxq1CeuDwPxBTun5jOEcaJ64KX0hl5wKg4eXw7KYwbmnq8rsnkgdTImqPy +lcIo11jWkKmZB7Kb/TxKB4TxJt9QvbtTHmjwzml90liBZw9V7/yWmQdW/iJ9 +6rUrsP/rf5lr1uRDrK25QcPkShxw+eAooFgAjHuvGdzzRFDx8J3OI+sKoFDY +dkptsQjmHkqXb9IvgOYGNzJZWgRl7vUJxlgWANvan7A2E0EFctuidN8CqLDM +XPA2TQSjhBz6LhYVwJzJxOt6fVG84Vvj0qVYCEd0rrm/jBJDg3cmlV4risDi +quD4pgQx7HbOWlbNKAJi4bG41+fF0P5FVR2TVQRvG+2p9zfF8Phn8VOVSkWg +7CfA0/1aDOuLhKSqTIpgICcw5ydDHDPTpnaUBRaB64ot31fdFUdew+DsiKYi +0AgtjbzyWBzPhn+QU+ooAv6Pq0VYVeJ4pilvaWNvEZQU8YBcmzjKXvsivHyo +CEQ2lSSp/hXHxidfRmXmkfA2kr3OeBMDc5cXmzSKkLDxx2yI7ycGzv0n081A +EoLNzq19NsTAUzlxk6cMSSi8ptQuPMnA+W/Pb5/eSIKYrYdOCd8q/NZeJ1pn +TsLQwxdTPMqrsO5ADWfrNhJSopL804JWYbq/n0ubJwkfV8r5Pl8igQQWuvXH +kSB6sExSVFQC0xJG982LJ2FzjWP9XqYEZlY61oidJqE4JF5xqYYE/lYWCoRk +Ek71jAw6OUrgXcb7XJ80EtRvlXr9yJLAo03fjprcIiFS33oHY70krqxb0Ddd +RYKZ25Wf2oaSyPnUWfyphgTBiG/Rdpsl8cAxN6+6WhIuV8bkJHlIom500M7k +1yQ8tHj0bcF/kri4qrZmqomEEUeZgLE2SVQpXX5RuY+EByF+C5f3SWKp8s89 +/Z9JCL/8JFV5WBL5h/TEM/pJEOh1KN3LLYWn17nI/R0kQd4rgat3rRQO8isO +ZYyS4HZ04tSrUClceFXF3+QPCbIXDSUGY6SQZTSQUv/33/qdKViYJIVe43cv +Wc+jIOT3mreG2VKomCfouZWXgvPRbitLXklhSkXt19X8FLxKrs68ISmNGpEr +RUxWUqBbmHYvvEwag+sX/dFYQ8HGltdzwzXSKJLx4YDxWgq2cPGaujdI49JS +z/W2ChTssvFtg8/SeL5wSc9eJQpMQlnHI+YzkbNAP/yoGgV+0pPXNygwcTBX +foegDgUTd5NqZlSY2OamVzBBO8RM4Tu1jokt6aRzuy4FMYc8tAgDJtovie64 +pE9BemVtDbc1E389Moz8CxQ898r8XhnAxO1/BCrNTSgw/60jdCyUiUcpb5eF +phS8TmrUWhfBRDWfUNcK2m0liyKy/6P7ryPTVc0pGF7sLxRzmYmCjQMrhjdR +cOSqoDbnGhNziZNcFzdTML3ulsvEDSaK15c5ciwp4HHrzvYsYuLZjQuso7ZQ +IEaaaZtUMJE4NOb7fSsFGRs/ufypYuJ3VnR9pDUFRFtYRHEdE188eHRZ2IYC +Je67L+WamKgXr35GZRsFhraSrgsHmLjMobPBzI6C6oEHEWVDTORJNXhRQ3tz +mM2NwFEmjjcHK5rYU+CQEzvcP8vE0q4rLjoOFPhMj0bULGHhhMTjTfOc6P06 +tEfkixALU7wyeo/S5htsz+MRY+HUq9Nh/bRvdFQ2GxAstJ72aXjmTIG/7Xof +V3kW9q6vil/rQs+nPn9eiCILfeJ4tibR7n56XvG+FgsZbxf+tnGlIF+bv6JB +j4VhR+BzEe0QMtxhBFnoHKrfuWg7BSJZXlEKm1goddxv8h5tqxid1mvu9Pi+ +ViP9bhRI/Sk4ULabhRbDeq5K7hQMBRA8XXtZ+FyqqeMg7Tjvxcpi/iy8dXqp ++BBt+w/HKzWD6f5zNVplPShgO487bgtnYZk8f6Er7fJNXdGJcSwMhM6rz2gn +PrcWzz/NwpXXPMp+0HblVBW+PMvC4d83pxg7KFhbrLux/yILbyaGWhjRnlEu +auPNYKGWZeZDb9o1uTIHiSwWGgx2GMbTvsBM5cVcFma9m/l6m/buNIH07fks +HF9dUVhNW10oUiWUYuHP13+SP9Dmip94nlrMwmnnkHPTtF/z7HMuLqXXS4Lr +gcBOCi4f6/7xvpyFZxius5K090/YxIy+YKGxsIu7Im1d32rG0joW6ofWftGm +zdevRyq+ZeGisKBkpN3sThpbNLGwZFrDw4R2diu7w6udhRuiX20zp33YOs0v +poeFk55CB/4Za5csuN5HP3+lOf9fe0GjqEvlX1k42zEovIF2V+mkavcwC1dE +s66vp52/bn/VrzEWNt20dFGiHVLQ4yI+w8LgFUYcadpmcrajWn9YuNOg2VyQ +tkhmzUlbHgLPWHVGztLv2yfKkTjMR6A4S+HLJ9p3kijqzBICr+ilBdbSjlgk +Z1ogROCz5jmtQtpWUemdtaIEpreqyp6hLfVL8PCABIFrm/iNDtAeOhK9cAFB +YMMSz2Qz2nGePuobFAlMSOWunKT31767t9pNjUD7ul+5L//Fh4Pd9mNaBJ6b +7S1P+xcfZgZxD+jqUOP9MVntX3w8uyPZZEzg1a6STTN0fLnqyt/9aUHghZIx +/ae0ZxSWdSvZEbh/m8BLoD2ZwYjUcCZQJSc8d46O3/GlsmwddwJ9MqPaH9Ie +HtPZt3EvgTntFzbI0/7muXGJhS+Bl01tA9vp+B9o2UJaHSFwpmiON572x9Jd +k85hBLY5HlXoo89Pj5JvmkcUgedjJ14k0O7MDNLfE0ug7OkXpeq0m6NPRx1K +JnDqcNnjAPo81m56IBh3g8BWUkaxhz7P1U+eUadvE5gSJl9ymPZzlVe2KUUE +XvvqdpOH9lPhD+lXSujq6P+ZlHSk96ODX/5+PYF+I+1R6nQ+Sd/vBh8nCLyR +Fj/SQ+eri13eH/tnCVwcdo7fgvY5qyMx3/8SqGM0/zxF57dEjbi66UUyKFP+ +9E+QFQVRvyiHpVIymOS7HL7S+XJ//Hw/fRMZLLAexa10vvWeWypsuEkGSz45 +vUmm8/Oeg4xi060yqHVzoPOtMQUe21R+2zjLYJGfbrDpRgpsVznF7fWVwZon +Iu9ENlCgn5d/9cIFGdzXk9RgQNeDDmZepvElGWR8uu3k/a9eXLh1ZTxTBnlU +L5afWU/Bg8icyza3ZHDBh8VqrVr0+XS8mir4WAbJNeF3rDQoWDP/XNLJDzL4 +3PvQ1za6Xom4h0YEKLIxJqmrxmMVBfcbg4/LqrGR6/r7ZlMGPR+LoPBGTTbq +N/t0K4pTcFbz6DF1YOOt9NauEREKlggcDBq2ZuO6quZ7HkIU8Jbs9NsTyMaZ +rQHhvXwUjApZeNhXsJHRO897zzgJrT7E233VbHS3FxEd/UlCedUsHH/FRsMz +lieC6XqeFJInfbOZjdWmpzOih0lQ/SjQMzPIxn18xoPHBkjwpd5szxCWxRsL +nT7zdpIwaGXn0rdbFk9ECuoefkZCX4KH/eGFcni6MJ/NfZJuP6hIqArIoV7m +QW35EyRMmc58/75MDskCu7MWUSTw85yN2cuQw3s6buyEcHq84Mp7HkpyOLlU +tXE2gIQwTzlhq21ymPyuRSfWiwQRg6E3CplyqOho07XTlATzH4Hmn7Xk8eug +9JQLN/29sYvvyL3jqzGRk2VseKeQ/j8Q5Y6tWIPShurmt3UKQKheLpH8sRZr +XqVUqpTmgURc0VYtLUV04L16ypfnNqQq6CwT9lJCw5nQBGmnm1DL2KA5lqyM +5k9eh5kU5YCuREWSSrMK/mXYanr3ZIMgT5b/jihVdDMrItPVr4NUpLS+k5wa +PujM4hXwuQaLZF2LbarV0MH+RSxXSCYoc8SLArer46xCtd/GoMtwuFuo0oJL +AzuvOvmwd6TBj7EEO/NUDeQv1VB/lXcBTFWq0s2V1uGb685fmGrn4OmY3q+p +1+vw/PT07vR7yeCrqN7+zlMTMcqZEbr6DHCGdzc6LdLCoG9jC4KmToExW8xy +SZYWvvksuvXTwVhYHXEqqEJbG9XSOtSabE7AWk+dMtl2beyN3dtTuzUSPJ96 +n7h3aD1W9OnFCOSFQdnVxt2jK3VQlvA7/P1nEIzf/Dul8kAHmZaGH1K++8Mu +2bxF6Za66BtRcYTKPwSja1O07ozookKEclu08QF4mP3rw0ScHqqa7Yn02e8N +zhtlUE9KHy1tikXnHHfDqgOxJcrl+ji+0kJiwSUPSPy7RzO+Qh9TfJ+ImyR6 +APdZE6r/uT4+3JKYkRjpAYPF829dfamPF83GZXW8PeAR14lUoff6mDXYUjKm +6QHO5yICJz/rYwLH98vEDXdILQ3WfLqYg0qPrCx3y7nBSn4fytKBg6unfAZT +7V0g2ygsZMSJg0Sbse0FAxdQD0s0SnHl4G85fsiRc4EtI2RT6w4Ohny87T03 +6QwnmydmdvlwUMfjQVVsqjNMZx03DInk4PVo52TuHido10t5n5PHwY+2uccw +2BG8j2ZfNi/koH9P/4vAXY4wWXjfc4jkYHCACLvc0hGEiNYptWIO1u1bMBZN +OMImPkmJJ+UcfOZTntP8ygEeN+bsft/EQclrCg1X2A5gIfhQKaCVgy5Jk8Yf +lzpAq+nLSbEODla+4Wdq/bKH8Uff4tx6OSiWsbxTsMEelK6pFnwd5OB261LT +6Ah7eNy+ISDhOwcX2b57ZuZjDxYrtoHKCAc9Ht7bLOVoD3tij77zn+DgijtR ++2ZU6P7KT6aLTnOwnM984M8qe4iavbjr0SwH5YzObV7BZw/L1t1S3D5Hj3es +O0Fn3A6uHHg08fcvB4eonCu+vXbwP1qvPjg= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.0679059878624669}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.0679059878624669}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJwV13k8FV8UAHChkqSiLC/Le+OhshOyPOdE1pLITmgRlaSSNbIkfpFIC0pK +orLNtCipiEKkRfa9UiSJ7Er9pvlnPt/P5869d+4995wZ1s6DNp7cXPQ1j4vr +332y++Vzdny2wae/q79MhqBB4xWx4A2tUbCW7+cRJX0pwJVvdoq1noVL5fke +A3rKELD1dgtPaxb48mrXP9IzgOXDomdnWu6AxfyEzkC9LdDzeMvB8ZYK8Hed +rruh6wYm7MGu0ZYGKGixuxCi7QszLdrnR1o+wu7oyICeteFQaZSb/S5rDLz3 +hxp7a54BiZ6SLzsV58A8qavq/rcLsMLH/fZCIx7kmvhAaNZnwFk1k9Itdnw4 +nr+t7dH+LGhLVS0fXbYEBVLs4owCb0B89vE33OLLsaZj3/W6gJsgeu7TfykZ +wmgxq1CeuDwPxBTun5jOEcaJ64KX0hl5wKg4eXw7KYwbmnq8rsnkgdTImqPy +lcIo11jWkKmZB7Kb/TxKB4TxJt9QvbtTHmjwzml90liBZw9V7/yWmQdW/iJ9 +6rUrsP/rf5lr1uRDrK25QcPkShxw+eAooFgAjHuvGdzzRFDx8J3OI+sKoFDY +dkptsQjmHkqXb9IvgOYGNzJZWgRl7vUJxlgWANvan7A2E0EFctuidN8CqLDM +XPA2TQSjhBz6LhYVwJzJxOt6fVG84Vvj0qVYCEd0rrm/jBJDg3cmlV4risDi +quD4pgQx7HbOWlbNKAJi4bG41+fF0P5FVR2TVQRvG+2p9zfF8Phn8VOVSkWg +7CfA0/1aDOuLhKSqTIpgICcw5ydDHDPTpnaUBRaB64ot31fdFUdew+DsiKYi +0AgtjbzyWBzPhn+QU+ooAv6Pq0VYVeJ4pilvaWNvEZQU8YBcmzjKXvsivHyo +CEQ2lSSp/hXHxidfRmXmkfA2kr3OeBMDc5cXmzSKkLDxx2yI7ycGzv0n081A +EoLNzq19NsTAUzlxk6cMSSi8ptQuPMnA+W/Pb5/eSIKYrYdOCd8q/NZeJ1pn +TsLQwxdTPMqrsO5ADWfrNhJSopL804JWYbq/n0ubJwkfV8r5Pl8igQQWuvXH +kSB6sExSVFQC0xJG982LJ2FzjWP9XqYEZlY61oidJqE4JF5xqYYE/lYWCoRk +Ek71jAw6OUrgXcb7XJ80EtRvlXr9yJLAo03fjprcIiFS33oHY70krqxb0Ddd +RYKZ25Wf2oaSyPnUWfyphgTBiG/Rdpsl8cAxN6+6WhIuV8bkJHlIom500M7k +1yQ8tHj0bcF/kri4qrZmqomEEUeZgLE2SVQpXX5RuY+EByF+C5f3SWKp8s89 +/Z9JCL/8JFV5WBL5h/TEM/pJEOh1KN3LLYWn17nI/R0kQd4rgat3rRQO8isO +ZYyS4HZ04tSrUClceFXF3+QPCbIXDSUGY6SQZTSQUv/33/qdKViYJIVe43cv +Wc+jIOT3mreG2VKomCfouZWXgvPRbitLXklhSkXt19X8FLxKrs68ISmNGpEr +RUxWUqBbmHYvvEwag+sX/dFYQ8HGltdzwzXSKJLx4YDxWgq2cPGaujdI49JS +z/W2ChTssvFtg8/SeL5wSc9eJQpMQlnHI+YzkbNAP/yoGgV+0pPXNygwcTBX +foegDgUTd5NqZlSY2OamVzBBO8RM4Tu1jokt6aRzuy4FMYc8tAgDJtovie64 +pE9BemVtDbc1E389Moz8CxQ898r8XhnAxO1/BCrNTSgw/60jdCyUiUcpb5eF +phS8TmrUWhfBRDWfUNcK2m0liyKy/6P7ryPTVc0pGF7sLxRzmYmCjQMrhjdR +cOSqoDbnGhNziZNcFzdTML3ulsvEDSaK15c5ciwp4HHrzvYsYuLZjQuso7ZQ +IEaaaZtUMJE4NOb7fSsFGRs/ufypYuJ3VnR9pDUFRFtYRHEdE188eHRZ2IYC +Je67L+WamKgXr35GZRsFhraSrgsHmLjMobPBzI6C6oEHEWVDTORJNXhRQ3tz +mM2NwFEmjjcHK5rYU+CQEzvcP8vE0q4rLjoOFPhMj0bULGHhhMTjTfOc6P06 +tEfkixALU7wyeo/S5htsz+MRY+HUq9Nh/bRvdFQ2GxAstJ72aXjmTIG/7Xof +V3kW9q6vil/rQs+nPn9eiCILfeJ4tibR7n56XvG+FgsZbxf+tnGlIF+bv6JB +j4VhR+BzEe0QMtxhBFnoHKrfuWg7BSJZXlEKm1goddxv8h5tqxid1mvu9Pi+ +ViP9bhRI/Sk4ULabhRbDeq5K7hQMBRA8XXtZ+FyqqeMg7Tjvxcpi/iy8dXqp ++BBt+w/HKzWD6f5zNVplPShgO487bgtnYZk8f6Er7fJNXdGJcSwMhM6rz2gn +PrcWzz/NwpXXPMp+0HblVBW+PMvC4d83pxg7KFhbrLux/yILbyaGWhjRnlEu +auPNYKGWZeZDb9o1uTIHiSwWGgx2GMbTvsBM5cVcFma9m/l6m/buNIH07fks +HF9dUVhNW10oUiWUYuHP13+SP9Dmip94nlrMwmnnkHPTtF/z7HMuLqXXS4Lr +gcBOCi4f6/7xvpyFZxius5K090/YxIy+YKGxsIu7Im1d32rG0joW6ofWftGm +zdevRyq+ZeGisKBkpN3sThpbNLGwZFrDw4R2diu7w6udhRuiX20zp33YOs0v +poeFk55CB/4Za5csuN5HP3+lOf9fe0GjqEvlX1k42zEovIF2V+mkavcwC1dE +s66vp52/bn/VrzEWNt20dFGiHVLQ4yI+w8LgFUYcadpmcrajWn9YuNOg2VyQ +tkhmzUlbHgLPWHVGztLv2yfKkTjMR6A4S+HLJ9p3kijqzBICr+ilBdbSjlgk +Z1ogROCz5jmtQtpWUemdtaIEpreqyp6hLfVL8PCABIFrm/iNDtAeOhK9cAFB +YMMSz2Qz2nGePuobFAlMSOWunKT31767t9pNjUD7ul+5L//Fh4Pd9mNaBJ6b +7S1P+xcfZgZxD+jqUOP9MVntX3w8uyPZZEzg1a6STTN0fLnqyt/9aUHghZIx +/ae0ZxSWdSvZEbh/m8BLoD2ZwYjUcCZQJSc8d46O3/GlsmwddwJ9MqPaH9Ie +HtPZt3EvgTntFzbI0/7muXGJhS+Bl01tA9vp+B9o2UJaHSFwpmiON572x9Jd +k85hBLY5HlXoo89Pj5JvmkcUgedjJ14k0O7MDNLfE0ug7OkXpeq0m6NPRx1K +JnDqcNnjAPo81m56IBh3g8BWUkaxhz7P1U+eUadvE5gSJl9ymPZzlVe2KUUE +XvvqdpOH9lPhD+lXSujq6P+ZlHSk96ODX/5+PYF+I+1R6nQ+Sd/vBh8nCLyR +Fj/SQ+eri13eH/tnCVwcdo7fgvY5qyMx3/8SqGM0/zxF57dEjbi66UUyKFP+ +9E+QFQVRvyiHpVIymOS7HL7S+XJ//Hw/fRMZLLAexa10vvWeWypsuEkGSz45 +vUmm8/Oeg4xi060yqHVzoPOtMQUe21R+2zjLYJGfbrDpRgpsVznF7fWVwZon +Iu9ENlCgn5d/9cIFGdzXk9RgQNeDDmZepvElGWR8uu3k/a9eXLh1ZTxTBnlU +L5afWU/Bg8icyza3ZHDBh8VqrVr0+XS8mir4WAbJNeF3rDQoWDP/XNLJDzL4 +3PvQ1za6Xom4h0YEKLIxJqmrxmMVBfcbg4/LqrGR6/r7ZlMGPR+LoPBGTTbq +N/t0K4pTcFbz6DF1YOOt9NauEREKlggcDBq2ZuO6quZ7HkIU8Jbs9NsTyMaZ +rQHhvXwUjApZeNhXsJHRO897zzgJrT7E233VbHS3FxEd/UlCedUsHH/FRsMz +lieC6XqeFJInfbOZjdWmpzOih0lQ/SjQMzPIxn18xoPHBkjwpd5szxCWxRsL +nT7zdpIwaGXn0rdbFk9ECuoefkZCX4KH/eGFcni6MJ/NfZJuP6hIqArIoV7m +QW35EyRMmc58/75MDskCu7MWUSTw85yN2cuQw3s6buyEcHq84Mp7HkpyOLlU +tXE2gIQwTzlhq21ymPyuRSfWiwQRg6E3CplyqOho07XTlATzH4Hmn7Xk8eug +9JQLN/29sYvvyL3jqzGRk2VseKeQ/j8Q5Y6tWIPShurmt3UKQKheLpH8sRZr +XqVUqpTmgURc0VYtLUV04L16ypfnNqQq6CwT9lJCw5nQBGmnm1DL2KA5lqyM +5k9eh5kU5YCuREWSSrMK/mXYanr3ZIMgT5b/jihVdDMrItPVr4NUpLS+k5wa +PujM4hXwuQaLZF2LbarV0MH+RSxXSCYoc8SLArer46xCtd/GoMtwuFuo0oJL +AzuvOvmwd6TBj7EEO/NUDeQv1VB/lXcBTFWq0s2V1uGb685fmGrn4OmY3q+p +1+vw/PT07vR7yeCrqN7+zlMTMcqZEbr6DHCGdzc6LdLCoG9jC4KmToExW8xy +SZYWvvksuvXTwVhYHXEqqEJbG9XSOtSabE7AWk+dMtl2beyN3dtTuzUSPJ96 +n7h3aD1W9OnFCOSFQdnVxt2jK3VQlvA7/P1nEIzf/Dul8kAHmZaGH1K++8Mu +2bxF6Za66BtRcYTKPwSja1O07ozookKEclu08QF4mP3rw0ScHqqa7Yn02e8N +zhtlUE9KHy1tikXnHHfDqgOxJcrl+ji+0kJiwSUPSPy7RzO+Qh9TfJ+ImyR6 +APdZE6r/uT4+3JKYkRjpAYPF829dfamPF83GZXW8PeAR14lUoff6mDXYUjKm +6QHO5yICJz/rYwLH98vEDXdILQ3WfLqYg0qPrCx3y7nBSn4fytKBg6unfAZT +7V0g2ygsZMSJg0Sbse0FAxdQD0s0SnHl4G85fsiRc4EtI2RT6w4Ohny87T03 +6QwnmydmdvlwUMfjQVVsqjNMZx03DInk4PVo52TuHido10t5n5PHwY+2uccw +2BG8j2ZfNi/koH9P/4vAXY4wWXjfc4jkYHCACLvc0hGEiNYptWIO1u1bMBZN +OMImPkmJJ+UcfOZTntP8ygEeN+bsft/EQclrCg1X2A5gIfhQKaCVgy5Jk8Yf +lzpAq+nLSbEODla+4Wdq/bKH8Uff4tx6OSiWsbxTsMEelK6pFnwd5OB261LT +6Ah7eNy+ISDhOwcX2b57ZuZjDxYrtoHKCAc9Ht7bLOVoD3tij77zn+DgijtR ++2ZU6P7KT6aLTnOwnM984M8qe4iavbjr0SwH5YzObV7BZw/L1t1S3D5Hj3es +O0Fn3A6uHHg08fcvB4eonCu+vXbwP1qvPjg= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.0679059878624669}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, + 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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.061043}}, + "Frame" -> {{False, 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.061043}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.061043}}, + "Frame" -> {{False, 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.0679059878624669}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.99401385680721*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"8589e8f1-44a9-4845-8139-211791a4418e"] +}, Open ]], Cell[CellGroupData[{ @@ -2837,14 +7898,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.242737028349067`"], "Output", + CellChangeTimes->{3.9913453868532257`*^9, 3.994013856843182*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"73b3a655-20cc-4756-97a7-acaad000ad44"] }, Open ]], Cell[CellGroupData[{ @@ -2858,27 +7917,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[{"-", @@ -2900,171 +7962,165 @@ 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}, + "\"\\!\\(\\*FractionBox[\\\"2.4508110026591134`*^-259\\\", \ +RowBox[{\\\"9295690268007118823449497\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"9\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"5542386262016000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 99, 13, + 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345387062414*^9, 3.994013856926725*^9}, CellLabel-> "During evaluation of \ -In[421]:=",ExpressionUUID->"08a2126f-e71c-b94d-8844-15e292a8f7d1"], +In[99]:=",ExpressionUUID->"b5b6595b-272d-4283-a535-dda9a2cb5f36"], 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}, + "\"\\!\\(\\*FractionBox[\\\"1.423028976691039`*^-268\\\", \ +RowBox[{\\\"7817675515393986930521027\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"12\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1146846355456000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 99, 14, + 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345387062414*^9, 3.9940138569361*^9}, CellLabel-> "During evaluation of \ -In[421]:=",ExpressionUUID->"1acf7f10-7675-ea41-b478-94e928ef3377"], +In[99]:=",ExpressionUUID->"bf95f182-cc1e-4d66-a99c-830543e513c3"], 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, 421, 451, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345387088339*^9}, + "\"\\!\\(\\*FractionBox[\\\"8.26261782856867`*^-278\\\", \ +RowBox[{\\\"7035907963854588237468924\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"15\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2161719910400000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 99, 15, + 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345387062414*^9, 3.994013856945093*^9}, CellLabel-> "During evaluation of \ -In[421]:=",ExpressionUUID->"67cdfb4c-9282-934a-b3c5-526027acebf5"], +In[99]:=",ExpressionUUID->"447b9605-b84d-4e81-ae44-48994b0a711c"], 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, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345387062414*^9, 3.9940138569522333`*^9}, CellLabel-> "During evaluation of \ -In[421]:=",ExpressionUUID->"760e7203-a507-b249-aaf5-4906557faed2"], +In[99]:=",ExpressionUUID->"848c247d-73ea-434a-b5d3-1faa0785ddda"], 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:eJwV13k4FesfAHClUElFjiXLOXMs2Xd+ltP3KzuVyJI1KqRkyRaSpZQ2IYk2 +S5KyzbRwRSUkFElla9GV5MoustzqN/ePeeb5PDPPvPO+73eZYe0OsvdZysXF +tXQJfdDn2U/NDTJnCjb5HDv16Z0Tbnp7XTTKuDsRlhzYz/91XhJQ+NVu0e50 +OKgVeCl3XgUitt/p4u7Oh+HHW4+FznNg3ZhI+nzXXaC8BS5ozG+FvpptQT+6 +6gDtry/fM+cB5jLDHye7OiDoxMwVs5mDMN+ld3Giqx8WF2Yj/h6KhXqTWwWv +86fhXHCRX95kCkj0VQ3uVv4F5X5jfPEPM2F9wK47vCbcWBg6cc4g5Rqka5hX +b3PkQ7svqwyLzfKhJ0u9dnLtahx/mcK7bstNOFMQ92qp2Dp06G4+bGxRBCIZ +X05duCaEa7TgI6PvDogqPTg+VyiEc9Y7vMSH7oB43Yk4D1IIJeWTh0Qn74DU +hEK4fL0QHh9/wc3LXQyyW4K9qoeE8O4zZ/NbcsWgteyX7het9Wgb47f8Z0Ax +2IYxBjRb1mMB23DVy5liOOlgtaljVhg95xc2M+ZKQPx+m/jSJQx0s5eejeIq +hTIhh58aqxjYc5v3ZBdfKXR2eJJp0gy0nnTcFC9WCjJ2YYSdJQMrN9cMnTQo +hbqtOTzt2Qzcr+6wOyimFH6Zz7S1GolgYZonT/ZcKYTq5+1qThTFCAvD5Wqf +y8A6V+CHzVlRPHzi4+/zg2VA8B5JbrsoivbdSVHfR8qg/a0T9aZIFHNazkyk +zZeBajA/96c2UVQONPpwVbAchgojC6fExdA7Z9znjkk5uK/fNrrhnhjuupMY +lp9XDlox1QnXa8Rw/RH2sh23ymFl/0YGq1EMW7XH+X+XlENVOTfI9YihbHTE +KZO/yoFhU5Wq/kcMf1wsVDzbVg7tCTLaZjbiWJHUMiO0UA6m4wvRgV/E8VDI +g7yjciREWWYoPh0Rx7yI9u7JjSSU5an0Cs2Ko9Gcvd9uJRJEHbz0q/g2oLZd +0WlDdRJG/nr2k1t1A4p6hXxv1SfhQmJqWPbhDRjwpkoqdAsJ/cJygQ2rJVDY +nl39JIgEkaAnkiIiErhBQ3T+YwgJW5p2tvozJfCC39XU+VASKqLPKK/RksDY +qsaXGw+TcLpvYthlpwTurf9xxC+eBM3b1X7j+RLYtya5xyeVhAQjO2/x/0mi +ayJ/il8ZCZae16f0Nkvi5VX2/DtJEgTivx9z3EJfX/kwxOwuCVfrkwpTvSRR +SmdmilFBwl/WD7/znJJE1jXfzoxHJEzsZEdM90hiw8tSz39fkFAZHcy7bkAS +s7jCg6pbSTh69VGW6pgkzp3qPhD5igT+z87V/kul0I/v3sbBDhLk/c5yfVaU +wjy8Vn29hwTP8JnTL2OkMKMxIvXIIAmylzZLDCdJobixRuLKof/W73wpb6oU +5i4Z3nvxHxKi/1Vo31wghTeXt/3OGyHh4jFP4aqXUhjq1JWSOUXCy7TnOTcl +pXGD4emI0V8kGJRl3z/6RBp3uHw1dxSkwLSr7ddYkzQGO7sLBwpRsI1rmcWu +DmksMXlkdnw9BXvsA3vgqzT+snreWsSgwDyGFRe/nInS+kNJHeIUBEvP3jBW +YuLyslfjRQQFM/dSm+bVmDhofIA/i01BtKXSKKXNxLW4J+24DAVJIV66xCYm +1nwV73SUo+ByfUvTUjsmLlMvcepRoKDBL2e0PoKJ77hCM/eqU2D1r77gkRgm +GrKXHlTUoKAt9a2udjwT+5R+3x2l3VO1Ir7gFBNldRjnA7QoGFsVJph0lYm2 +wd0ZNroUhOYK6HHymGjS+2H6X9pz2rfdZm4ycbvy2sZiPQq4PT8V+JQzUfH5 ++LMl+hSIkpZ65nVMHPNVMD5vSME10y9uvxuZ2HVUz0LZiAKiJza+4gU9vqZ7 +QyNtlaX3muXeMfGe85DsDw4Fmx0k3XmHmOhgJJOhjhQ8H6qMfzLCxPaXi15V +tLfE2t+MnGTityezRWBMgXPhybFvC0ysWLOvxHQzBQFzk/FNq1l4va/9vLop +BQYhvoxBQRaun3o0XUabb7i3mFuUhbnXpnwVzSi4+b6+cxPBwkCdkVhRcwo+ +Pb6o/ECXhadveCS8tqCgRG9lXYchC41tnxz6nyW9H+RR5wlkYbb/+OGrtBn5 +folKNiy83Hy20c2KAtsk/e68XSwcP3IjutKaAqnfpQef7GXhmwuucrw2FIxE +ENwf/Vl43v3SyA7ayftWqYqGsfBj25kXA7Sd/o6r14liYbHuw68bt1Ag4/pj +546jLGx+4Sa5n3atzcdjKcks1F0z9u0L7ZQGO7GScywscXE7IrGVAndOY1lz +Ogvr+HQ07GkrVhiYfrvEwj5DQ94k2vOq5T3LrrHw2gvVP/dpN91iBxH5LLS0 +ei3WTzuTmbUMb7Fw7+8BZ/5tFGgKJqjFUCysbwkw3kmb68xMQ1YFCwNW+I9F +0W7j3u9aUc1CaB18mkX76pFP429qWbhysrjmPu0DM/ZJk89YWLksrq+VtkHg +c/E1L1jYsUVeaYA23zdDUrmdhbx1Abk/aXfuIs2s37Hw+FpR5LOloKBb5r1f +LwvTLk2tZNA+ZJcdnNTHQi7/xiUs2tiymufGAL1elp6yCrQFTBKv1P7Dwu/F +SRGqtD9Wz6p/GqP3v4pvVp12ifaBxsVpFk6Y3y/4z9GlfW5i8yy0/uB4TIW2 +pZzDpO5vFpqUV6fL02bkNJ1w4CZwquD+GynaAyIciUN8BDZsX2shRPtuKkWd +X00g74/ro8tox6+QsygVJNAtVqNpmp6PbeLlDy0iBKokZ3f10ZZaFDg0JEGg +kvttiWbaI6HHeHkIAttHtLLKaT8c+XmVLU/g025+mwu0k30CNI2VCfTw59MN +o+306fNzTw0CZdMXXexpyzg7ehzRJdBsorpShfbUq+apbEMCF5qlt/PQrrXc +lFyJBEoK/GZ/oPc35eldyXdmBJ7foapd/l+8GMjfm7ImMK87OSHuv/hQWvtJ +xZHAko/MLhHas9fEE7RcCcyScx39TMfbjzWyMvq7CAzou+5xi/bYtP5+U38C +77SdslWm/d3HdLV1IIHCYq87hul4HuraRtqGEhi94HOvkHZ/9Z5Z11gCnZWf +nmfQ7lMJzPZKJFDEWuVcC50vH3IOG/mepNcvS/N7DO3OY+cSQ9IITGp1fdlJ +51eLTaVA8k0CdfXiDQ7S+ff80VPq3B0CCc+1Dvy0G9ReOlwoJ1C1buRtEZ2/ +j4X+vny9ih7/xtiaXjq/775fKf+glUAtnplESTr/y7cKtzzsILDT4enYLbo+ +lDyRPljbRWClIdWkRrvwhva9F38T2LPmUIueCV1vD3hC/wyBYaodkgp0/bn0 +cV//twUCi6vXCeXQ9SnDNjRp9A+BmWeCYgVpp2glv5hbwcZjZ1c/mNxEQeIi +5bxGio3pAoVNaXT9O3BmebCRORvLMi9budD1dN+vNUKbbdjIflC1WEjXW98g +8QqL7WwcsrfXmNKhwGuH2r/2rmxM7s5STNCmwGGDS7J/IBsrb2oHJdD13Ki4 +JDczk42ePEJr+ZUoeM8szjG7wsZaG3l5Y0U63jNvX/+Rw0b5a9GsMLpfVCYU +XrW/zUY1j/G6N/J0vu/MzRKoYaPGryttUXS/UViekXribza6ScdWeEvS+bAr +Jj5CWQafLZUxL1xNwYO3UXGyGjK4c77bIpuffh/rw0ff6shga8ii2elVFKTr +hB/RBBl0zGgw8F1BwWr+oMNjdjLYmyMuybOcgmVVu4N9I2VwfeTBmMFFEiYF +rb2c6mSwUWFstxrdr7sDiPb9z2Xwcvaw53O6n9c2LkDcSxkM/5S+weMrCanR +xdJFnTJYJ6X7PqGfBPV+/r75YRlsd+ZJJz+QEEi98rgmJIthohPtN9pJGLZ1 +dBvYK4tUABf8Q3+PDJz1cjrEK4dbVpZuUo2l7x9WJtT55fCd+gLbK4aEnxbz +o6Nr5TDff5N9ahQJK7nTk/zF5bB8dv+57+H0eFH1971U5FBvb2bWuUASYn3k +hGx3yKGWXcfb+F0kMDaNvFLKkcPSqRWJikiC1Xik1VddefzNiJaIny+HkT18 +offjNqK3VlPOTGkZ/f8gsvRknQLKC5kOjhmWgmCrXAo5roh3tnBFQH0xSCSX +b9fVVUadA+S81bo7kKWkv1bITwXHbd0vdR8oghZxY53pNFWsi3x9QaOxEAwk +6lLVOtXwjVvqB7WFAhDgzg/zTlTHb6F6rnbbb4BUgrSRi5wGNjv+ntc+mwcr +ZN0r7J9roKkKo6T0UQ6ocsTKIz00MWPZad/uR1fh0CfBemsuLfSa2S9++lY2 +jE+fdbTK0sL/PeeZGJzMBAu1xstWKtq4yErjEYzIgMfThos/27Qx3+p0b/DP +NAhU1ux97aODA7UmTf8UnQfO2N63Lit0caLGp1Mo5AyYyYhuXZ2vi61j+6Xs ++k/CxvjTh+v09NDufo3C3UfHQdFH/4lsrx5u9DylLXovAXwe7zt+P+R/OPeh +IMR311F4kvt276SwPqoRiR61F6PgR9Gfn2qV+jjJIxN+OS4c9sgWr7i81QCL +Get5CtUOwaTiBd27EwbY1JfVH6IcCH8VLP49k2yIT/YJ5Frr+YOrKRsNpYzQ +8ujbSiN+H9hw8GSVaq0R1gsb+7XpeEPKH1+dM3VG+Gq3ZWrlRm9Ymm5OfWsw +wmP6r7xub/CG4Yrlt3ObjbD/OO9g4RJveMh1PEvwjRGytRSWrGjzAteM+MjZ +r0bYJ4RxPvu8IKs6SufxKg52xxwhas13gfDKAGqrM22lLzubdrtDgUls9IQL +B7l4e10Z1u6gGZticsGdg1m8h9UiNdxh2wT5rtubg9a5n1khXO5wonNmfk8A +B/fNTAyY5rjBXH7c5ugEDh6MFK31/uwKvYYX3hQWc1B4Lu0mM9gF9oUXXLUq +46B3uEXpXRcXmC174DNCctD0eKS4k4kLCBLdPzUqONh5rH+uneECNnySEo9q +Ofj1vWrqxcc7oeZt4d437zj48P2D09vX7QRrgb9UIro5GO6tWTu96AzdFs2z +ou85KFtdV3xr0Bl+PPye7PmZgzaao1HGNc6gkqde+s8wB30HxJ4Z7nOGml7j +iLOjHFSWa4jds8MZrNfvALUJ+vr5K5lXNjmD78nw12Ez9HzK9B8bCdPPqz1x +WWSOHs+mtvImlzMkLlza83CBg45904NSI06wVvu2sscvDiq4o3FRlxNcP/hw +5s8fDi49yqgxrneC/wMuqkEj "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -3078,130 +8134,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:eJwV13k4FesfAHClUElFjiXLOXMs2Xd+ltP3KzuVyJI1KqRkyRaSpZQ2IYk2 +S5KyzbRwRSUkFElla9GV5MoustzqN/ePeeb5PDPPvPO+73eZYe0OsvdZysXF +tXQJfdDn2U/NDTJnCjb5HDv16Z0Tbnp7XTTKuDsRlhzYz/91XhJQ+NVu0e50 +OKgVeCl3XgUitt/p4u7Oh+HHW4+FznNg3ZhI+nzXXaC8BS5ozG+FvpptQT+6 +6gDtry/fM+cB5jLDHye7OiDoxMwVs5mDMN+ld3Giqx8WF2Yj/h6KhXqTWwWv +86fhXHCRX95kCkj0VQ3uVv4F5X5jfPEPM2F9wK47vCbcWBg6cc4g5Rqka5hX +b3PkQ7svqwyLzfKhJ0u9dnLtahx/mcK7bstNOFMQ92qp2Dp06G4+bGxRBCIZ +X05duCaEa7TgI6PvDogqPTg+VyiEc9Y7vMSH7oB43Yk4D1IIJeWTh0Qn74DU +hEK4fL0QHh9/wc3LXQyyW4K9qoeE8O4zZ/NbcsWgteyX7het9Wgb47f8Z0Ax +2IYxBjRb1mMB23DVy5liOOlgtaljVhg95xc2M+ZKQPx+m/jSJQx0s5eejeIq +hTIhh58aqxjYc5v3ZBdfKXR2eJJp0gy0nnTcFC9WCjJ2YYSdJQMrN9cMnTQo +hbqtOTzt2Qzcr+6wOyimFH6Zz7S1GolgYZonT/ZcKYTq5+1qThTFCAvD5Wqf +y8A6V+CHzVlRPHzi4+/zg2VA8B5JbrsoivbdSVHfR8qg/a0T9aZIFHNazkyk +zZeBajA/96c2UVQONPpwVbAchgojC6fExdA7Z9znjkk5uK/fNrrhnhjuupMY +lp9XDlox1QnXa8Rw/RH2sh23ymFl/0YGq1EMW7XH+X+XlENVOTfI9YihbHTE +KZO/yoFhU5Wq/kcMf1wsVDzbVg7tCTLaZjbiWJHUMiO0UA6m4wvRgV/E8VDI +g7yjciREWWYoPh0Rx7yI9u7JjSSU5an0Cs2Ko9Gcvd9uJRJEHbz0q/g2oLZd +0WlDdRJG/nr2k1t1A4p6hXxv1SfhQmJqWPbhDRjwpkoqdAsJ/cJygQ2rJVDY +nl39JIgEkaAnkiIiErhBQ3T+YwgJW5p2tvozJfCC39XU+VASKqLPKK/RksDY +qsaXGw+TcLpvYthlpwTurf9xxC+eBM3b1X7j+RLYtya5xyeVhAQjO2/x/0mi +ayJ/il8ZCZae16f0Nkvi5VX2/DtJEgTivx9z3EJfX/kwxOwuCVfrkwpTvSRR +SmdmilFBwl/WD7/znJJE1jXfzoxHJEzsZEdM90hiw8tSz39fkFAZHcy7bkAS +s7jCg6pbSTh69VGW6pgkzp3qPhD5igT+z87V/kul0I/v3sbBDhLk/c5yfVaU +wjy8Vn29hwTP8JnTL2OkMKMxIvXIIAmylzZLDCdJobixRuLKof/W73wpb6oU +5i4Z3nvxHxKi/1Vo31wghTeXt/3OGyHh4jFP4aqXUhjq1JWSOUXCy7TnOTcl +pXGD4emI0V8kGJRl3z/6RBp3uHw1dxSkwLSr7ddYkzQGO7sLBwpRsI1rmcWu +DmksMXlkdnw9BXvsA3vgqzT+snreWsSgwDyGFRe/nInS+kNJHeIUBEvP3jBW +YuLyslfjRQQFM/dSm+bVmDhofIA/i01BtKXSKKXNxLW4J+24DAVJIV66xCYm +1nwV73SUo+ByfUvTUjsmLlMvcepRoKDBL2e0PoKJ77hCM/eqU2D1r77gkRgm +GrKXHlTUoKAt9a2udjwT+5R+3x2l3VO1Ir7gFBNldRjnA7QoGFsVJph0lYm2 +wd0ZNroUhOYK6HHymGjS+2H6X9pz2rfdZm4ycbvy2sZiPQq4PT8V+JQzUfH5 ++LMl+hSIkpZ65nVMHPNVMD5vSME10y9uvxuZ2HVUz0LZiAKiJza+4gU9vqZ7 +QyNtlaX3muXeMfGe85DsDw4Fmx0k3XmHmOhgJJOhjhQ8H6qMfzLCxPaXi15V +tLfE2t+MnGTityezRWBMgXPhybFvC0ysWLOvxHQzBQFzk/FNq1l4va/9vLop +BQYhvoxBQRaun3o0XUabb7i3mFuUhbnXpnwVzSi4+b6+cxPBwkCdkVhRcwo+ +Pb6o/ECXhadveCS8tqCgRG9lXYchC41tnxz6nyW9H+RR5wlkYbb/+OGrtBn5 +folKNiy83Hy20c2KAtsk/e68XSwcP3IjutKaAqnfpQef7GXhmwuucrw2FIxE +ENwf/Vl43v3SyA7ayftWqYqGsfBj25kXA7Sd/o6r14liYbHuw68bt1Ag4/pj +546jLGx+4Sa5n3atzcdjKcks1F0z9u0L7ZQGO7GScywscXE7IrGVAndOY1lz +Ogvr+HQ07GkrVhiYfrvEwj5DQ94k2vOq5T3LrrHw2gvVP/dpN91iBxH5LLS0 +ei3WTzuTmbUMb7Fw7+8BZ/5tFGgKJqjFUCysbwkw3kmb68xMQ1YFCwNW+I9F +0W7j3u9aUc1CaB18mkX76pFP429qWbhysrjmPu0DM/ZJk89YWLksrq+VtkHg +c/E1L1jYsUVeaYA23zdDUrmdhbx1Abk/aXfuIs2s37Hw+FpR5LOloKBb5r1f +LwvTLk2tZNA+ZJcdnNTHQi7/xiUs2tiymufGAL1elp6yCrQFTBKv1P7Dwu/F +SRGqtD9Wz6p/GqP3v4pvVp12ifaBxsVpFk6Y3y/4z9GlfW5i8yy0/uB4TIW2 +pZzDpO5vFpqUV6fL02bkNJ1w4CZwquD+GynaAyIciUN8BDZsX2shRPtuKkWd +X00g74/ro8tox6+QsygVJNAtVqNpmp6PbeLlDy0iBKokZ3f10ZZaFDg0JEGg +kvttiWbaI6HHeHkIAttHtLLKaT8c+XmVLU/g025+mwu0k30CNI2VCfTw59MN +o+306fNzTw0CZdMXXexpyzg7ehzRJdBsorpShfbUq+apbEMCF5qlt/PQrrXc +lFyJBEoK/GZ/oPc35eldyXdmBJ7foapd/l+8GMjfm7ImMK87OSHuv/hQWvtJ +xZHAko/MLhHas9fEE7RcCcyScx39TMfbjzWyMvq7CAzou+5xi/bYtP5+U38C +77SdslWm/d3HdLV1IIHCYq87hul4HuraRtqGEhi94HOvkHZ/9Z5Z11gCnZWf +nmfQ7lMJzPZKJFDEWuVcC50vH3IOG/mepNcvS/N7DO3OY+cSQ9IITGp1fdlJ +51eLTaVA8k0CdfXiDQ7S+ff80VPq3B0CCc+1Dvy0G9ReOlwoJ1C1buRtEZ2/ +j4X+vny9ih7/xtiaXjq/775fKf+glUAtnplESTr/y7cKtzzsILDT4enYLbo+ +lDyRPljbRWClIdWkRrvwhva9F38T2LPmUIueCV1vD3hC/wyBYaodkgp0/bn0 +cV//twUCi6vXCeXQ9SnDNjRp9A+BmWeCYgVpp2glv5hbwcZjZ1c/mNxEQeIi +5bxGio3pAoVNaXT9O3BmebCRORvLMi9budD1dN+vNUKbbdjIflC1WEjXW98g +8QqL7WwcsrfXmNKhwGuH2r/2rmxM7s5STNCmwGGDS7J/IBsrb2oHJdD13Ki4 +JDczk42ePEJr+ZUoeM8szjG7wsZaG3l5Y0U63jNvX/+Rw0b5a9GsMLpfVCYU +XrW/zUY1j/G6N/J0vu/MzRKoYaPGryttUXS/UViekXribza6ScdWeEvS+bAr +Jj5CWQafLZUxL1xNwYO3UXGyGjK4c77bIpuffh/rw0ff6shga8ii2elVFKTr +hB/RBBl0zGgw8F1BwWr+oMNjdjLYmyMuybOcgmVVu4N9I2VwfeTBmMFFEiYF +rb2c6mSwUWFstxrdr7sDiPb9z2Xwcvaw53O6n9c2LkDcSxkM/5S+weMrCanR +xdJFnTJYJ6X7PqGfBPV+/r75YRlsd+ZJJz+QEEi98rgmJIthohPtN9pJGLZ1 +dBvYK4tUABf8Q3+PDJz1cjrEK4dbVpZuUo2l7x9WJtT55fCd+gLbK4aEnxbz +o6Nr5TDff5N9ahQJK7nTk/zF5bB8dv+57+H0eFH1971U5FBvb2bWuUASYn3k +hGx3yKGWXcfb+F0kMDaNvFLKkcPSqRWJikiC1Xik1VddefzNiJaIny+HkT18 +offjNqK3VlPOTGkZ/f8gsvRknQLKC5kOjhmWgmCrXAo5roh3tnBFQH0xSCSX +b9fVVUadA+S81bo7kKWkv1bITwXHbd0vdR8oghZxY53pNFWsi3x9QaOxEAwk +6lLVOtXwjVvqB7WFAhDgzg/zTlTHb6F6rnbbb4BUgrSRi5wGNjv+ntc+mwcr +ZN0r7J9roKkKo6T0UQ6ocsTKIz00MWPZad/uR1fh0CfBemsuLfSa2S9++lY2 +jE+fdbTK0sL/PeeZGJzMBAu1xstWKtq4yErjEYzIgMfThos/27Qx3+p0b/DP +NAhU1ux97aODA7UmTf8UnQfO2N63Lit0caLGp1Mo5AyYyYhuXZ2vi61j+6Xs ++k/CxvjTh+v09NDufo3C3UfHQdFH/4lsrx5u9DylLXovAXwe7zt+P+R/OPeh +IMR311F4kvt276SwPqoRiR61F6PgR9Gfn2qV+jjJIxN+OS4c9sgWr7i81QCL +Get5CtUOwaTiBd27EwbY1JfVH6IcCH8VLP49k2yIT/YJ5Frr+YOrKRsNpYzQ +8ujbSiN+H9hw8GSVaq0R1gsb+7XpeEPKH1+dM3VG+Gq3ZWrlRm9Ymm5OfWsw +wmP6r7xub/CG4Yrlt3ObjbD/OO9g4RJveMh1PEvwjRGytRSWrGjzAteM+MjZ +r0bYJ4RxPvu8IKs6SufxKg52xxwhas13gfDKAGqrM22lLzubdrtDgUls9IQL +B7l4e10Z1u6gGZticsGdg1m8h9UiNdxh2wT5rtubg9a5n1khXO5wonNmfk8A +B/fNTAyY5rjBXH7c5ugEDh6MFK31/uwKvYYX3hQWc1B4Lu0mM9gF9oUXXLUq +46B3uEXpXRcXmC174DNCctD0eKS4k4kLCBLdPzUqONh5rH+uneECNnySEo9q +Ofj1vWrqxcc7oeZt4d437zj48P2D09vX7QRrgb9UIro5GO6tWTu96AzdFs2z +ou85KFtdV3xr0Bl+PPye7PmZgzaao1HGNc6gkqde+s8wB30HxJ4Z7nOGml7j +iLOjHFSWa4jds8MZrNfvALUJ+vr5K5lXNjmD78nw12Ez9HzK9B8bCdPPqz1x +WWSOHs+mtvImlzMkLlza83CBg45904NSI06wVvu2sscvDiq4o3FRlxNcP/hw +5s8fDi49yqgxrneC/wMuqkEj "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "PlotRange" -> {{0, 30}, {0., 0.06761461264315854}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +8254,19 @@ EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "PlotRange" -> {{0, 30}, {0., 0.06761461264315854}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +8280,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:eJwV13k4FesfAHClUElFjiXLOXMs2Xd+ltP3KzuVyJI1KqRkyRaSpZQ2IYk2 +S5KyzbRwRSUkFElla9GV5MoustzqN/ePeeb5PDPPvPO+73eZYe0OsvdZysXF +tXQJfdDn2U/NDTJnCjb5HDv16Z0Tbnp7XTTKuDsRlhzYz/91XhJQ+NVu0e50 +OKgVeCl3XgUitt/p4u7Oh+HHW4+FznNg3ZhI+nzXXaC8BS5ozG+FvpptQT+6 +6gDtry/fM+cB5jLDHye7OiDoxMwVs5mDMN+ld3Giqx8WF2Yj/h6KhXqTWwWv +86fhXHCRX95kCkj0VQ3uVv4F5X5jfPEPM2F9wK47vCbcWBg6cc4g5Rqka5hX +b3PkQ7svqwyLzfKhJ0u9dnLtahx/mcK7bstNOFMQ92qp2Dp06G4+bGxRBCIZ +X05duCaEa7TgI6PvDogqPTg+VyiEc9Y7vMSH7oB43Yk4D1IIJeWTh0Qn74DU +hEK4fL0QHh9/wc3LXQyyW4K9qoeE8O4zZ/NbcsWgteyX7het9Wgb47f8Z0Ax +2IYxBjRb1mMB23DVy5liOOlgtaljVhg95xc2M+ZKQPx+m/jSJQx0s5eejeIq +hTIhh58aqxjYc5v3ZBdfKXR2eJJp0gy0nnTcFC9WCjJ2YYSdJQMrN9cMnTQo +hbqtOTzt2Qzcr+6wOyimFH6Zz7S1GolgYZonT/ZcKYTq5+1qThTFCAvD5Wqf +y8A6V+CHzVlRPHzi4+/zg2VA8B5JbrsoivbdSVHfR8qg/a0T9aZIFHNazkyk +zZeBajA/96c2UVQONPpwVbAchgojC6fExdA7Z9znjkk5uK/fNrrhnhjuupMY +lp9XDlox1QnXa8Rw/RH2sh23ymFl/0YGq1EMW7XH+X+XlENVOTfI9YihbHTE +KZO/yoFhU5Wq/kcMf1wsVDzbVg7tCTLaZjbiWJHUMiO0UA6m4wvRgV/E8VDI +g7yjciREWWYoPh0Rx7yI9u7JjSSU5an0Cs2Ko9Gcvd9uJRJEHbz0q/g2oLZd +0WlDdRJG/nr2k1t1A4p6hXxv1SfhQmJqWPbhDRjwpkoqdAsJ/cJygQ2rJVDY +nl39JIgEkaAnkiIiErhBQ3T+YwgJW5p2tvozJfCC39XU+VASKqLPKK/RksDY +qsaXGw+TcLpvYthlpwTurf9xxC+eBM3b1X7j+RLYtya5xyeVhAQjO2/x/0mi +ayJ/il8ZCZae16f0Nkvi5VX2/DtJEgTivx9z3EJfX/kwxOwuCVfrkwpTvSRR +SmdmilFBwl/WD7/znJJE1jXfzoxHJEzsZEdM90hiw8tSz39fkFAZHcy7bkAS +s7jCg6pbSTh69VGW6pgkzp3qPhD5igT+z87V/kul0I/v3sbBDhLk/c5yfVaU +wjy8Vn29hwTP8JnTL2OkMKMxIvXIIAmylzZLDCdJobixRuLKof/W73wpb6oU +5i4Z3nvxHxKi/1Vo31wghTeXt/3OGyHh4jFP4aqXUhjq1JWSOUXCy7TnOTcl +pXGD4emI0V8kGJRl3z/6RBp3uHw1dxSkwLSr7ddYkzQGO7sLBwpRsI1rmcWu +DmksMXlkdnw9BXvsA3vgqzT+snreWsSgwDyGFRe/nInS+kNJHeIUBEvP3jBW +YuLyslfjRQQFM/dSm+bVmDhofIA/i01BtKXSKKXNxLW4J+24DAVJIV66xCYm +1nwV73SUo+ByfUvTUjsmLlMvcepRoKDBL2e0PoKJ77hCM/eqU2D1r77gkRgm +GrKXHlTUoKAt9a2udjwT+5R+3x2l3VO1Ir7gFBNldRjnA7QoGFsVJph0lYm2 +wd0ZNroUhOYK6HHymGjS+2H6X9pz2rfdZm4ycbvy2sZiPQq4PT8V+JQzUfH5 ++LMl+hSIkpZ65nVMHPNVMD5vSME10y9uvxuZ2HVUz0LZiAKiJza+4gU9vqZ7 +QyNtlaX3muXeMfGe85DsDw4Fmx0k3XmHmOhgJJOhjhQ8H6qMfzLCxPaXi15V +tLfE2t+MnGTityezRWBMgXPhybFvC0ysWLOvxHQzBQFzk/FNq1l4va/9vLop +BQYhvoxBQRaun3o0XUabb7i3mFuUhbnXpnwVzSi4+b6+cxPBwkCdkVhRcwo+ +Pb6o/ECXhadveCS8tqCgRG9lXYchC41tnxz6nyW9H+RR5wlkYbb/+OGrtBn5 +folKNiy83Hy20c2KAtsk/e68XSwcP3IjutKaAqnfpQef7GXhmwuucrw2FIxE +ENwf/Vl43v3SyA7ayftWqYqGsfBj25kXA7Sd/o6r14liYbHuw68bt1Ag4/pj +546jLGx+4Sa5n3atzcdjKcks1F0z9u0L7ZQGO7GScywscXE7IrGVAndOY1lz +Ogvr+HQ07GkrVhiYfrvEwj5DQ94k2vOq5T3LrrHw2gvVP/dpN91iBxH5LLS0 +ei3WTzuTmbUMb7Fw7+8BZ/5tFGgKJqjFUCysbwkw3kmb68xMQ1YFCwNW+I9F +0W7j3u9aUc1CaB18mkX76pFP429qWbhysrjmPu0DM/ZJk89YWLksrq+VtkHg +c/E1L1jYsUVeaYA23zdDUrmdhbx1Abk/aXfuIs2s37Hw+FpR5LOloKBb5r1f +LwvTLk2tZNA+ZJcdnNTHQi7/xiUs2tiymufGAL1elp6yCrQFTBKv1P7Dwu/F +SRGqtD9Wz6p/GqP3v4pvVp12ifaBxsVpFk6Y3y/4z9GlfW5i8yy0/uB4TIW2 +pZzDpO5vFpqUV6fL02bkNJ1w4CZwquD+GynaAyIciUN8BDZsX2shRPtuKkWd +X00g74/ro8tox6+QsygVJNAtVqNpmp6PbeLlDy0iBKokZ3f10ZZaFDg0JEGg +kvttiWbaI6HHeHkIAttHtLLKaT8c+XmVLU/g025+mwu0k30CNI2VCfTw59MN +o+306fNzTw0CZdMXXexpyzg7ehzRJdBsorpShfbUq+apbEMCF5qlt/PQrrXc +lFyJBEoK/GZ/oPc35eldyXdmBJ7foapd/l+8GMjfm7ImMK87OSHuv/hQWvtJ +xZHAko/MLhHas9fEE7RcCcyScx39TMfbjzWyMvq7CAzou+5xi/bYtP5+U38C +77SdslWm/d3HdLV1IIHCYq87hul4HuraRtqGEhi94HOvkHZ/9Z5Z11gCnZWf +nmfQ7lMJzPZKJFDEWuVcC50vH3IOG/mepNcvS/N7DO3OY+cSQ9IITGp1fdlJ +51eLTaVA8k0CdfXiDQ7S+ff80VPq3B0CCc+1Dvy0G9ReOlwoJ1C1buRtEZ2/ +j4X+vny9ih7/xtiaXjq/775fKf+glUAtnplESTr/y7cKtzzsILDT4enYLbo+ +lDyRPljbRWClIdWkRrvwhva9F38T2LPmUIueCV1vD3hC/wyBYaodkgp0/bn0 +cV//twUCi6vXCeXQ9SnDNjRp9A+BmWeCYgVpp2glv5hbwcZjZ1c/mNxEQeIi +5bxGio3pAoVNaXT9O3BmebCRORvLMi9budD1dN+vNUKbbdjIflC1WEjXW98g +8QqL7WwcsrfXmNKhwGuH2r/2rmxM7s5STNCmwGGDS7J/IBsrb2oHJdD13Ki4 +JDczk42ePEJr+ZUoeM8szjG7wsZaG3l5Y0U63jNvX/+Rw0b5a9GsMLpfVCYU +XrW/zUY1j/G6N/J0vu/MzRKoYaPGryttUXS/UViekXribza6ScdWeEvS+bAr +Jj5CWQafLZUxL1xNwYO3UXGyGjK4c77bIpuffh/rw0ff6shga8ii2elVFKTr +hB/RBBl0zGgw8F1BwWr+oMNjdjLYmyMuybOcgmVVu4N9I2VwfeTBmMFFEiYF +rb2c6mSwUWFstxrdr7sDiPb9z2Xwcvaw53O6n9c2LkDcSxkM/5S+weMrCanR +xdJFnTJYJ6X7PqGfBPV+/r75YRlsd+ZJJz+QEEi98rgmJIthohPtN9pJGLZ1 +dBvYK4tUABf8Q3+PDJz1cjrEK4dbVpZuUo2l7x9WJtT55fCd+gLbK4aEnxbz +o6Nr5TDff5N9ahQJK7nTk/zF5bB8dv+57+H0eFH1971U5FBvb2bWuUASYn3k +hGx3yKGWXcfb+F0kMDaNvFLKkcPSqRWJikiC1Xik1VddefzNiJaIny+HkT18 +offjNqK3VlPOTGkZ/f8gsvRknQLKC5kOjhmWgmCrXAo5roh3tnBFQH0xSCSX +b9fVVUadA+S81bo7kKWkv1bITwXHbd0vdR8oghZxY53pNFWsi3x9QaOxEAwk +6lLVOtXwjVvqB7WFAhDgzg/zTlTHb6F6rnbbb4BUgrSRi5wGNjv+ntc+mwcr +ZN0r7J9roKkKo6T0UQ6ocsTKIz00MWPZad/uR1fh0CfBemsuLfSa2S9++lY2 +jE+fdbTK0sL/PeeZGJzMBAu1xstWKtq4yErjEYzIgMfThos/27Qx3+p0b/DP +NAhU1ux97aODA7UmTf8UnQfO2N63Lit0caLGp1Mo5AyYyYhuXZ2vi61j+6Xs ++k/CxvjTh+v09NDufo3C3UfHQdFH/4lsrx5u9DylLXovAXwe7zt+P+R/OPeh +IMR311F4kvt276SwPqoRiR61F6PgR9Gfn2qV+jjJIxN+OS4c9sgWr7i81QCL +Get5CtUOwaTiBd27EwbY1JfVH6IcCH8VLP49k2yIT/YJ5Frr+YOrKRsNpYzQ +8ujbSiN+H9hw8GSVaq0R1gsb+7XpeEPKH1+dM3VG+Gq3ZWrlRm9Ymm5OfWsw +wmP6r7xub/CG4Yrlt3ObjbD/OO9g4RJveMh1PEvwjRGytRSWrGjzAteM+MjZ +r0bYJ4RxPvu8IKs6SufxKg52xxwhas13gfDKAGqrM22lLzubdrtDgUls9IQL +B7l4e10Z1u6gGZticsGdg1m8h9UiNdxh2wT5rtubg9a5n1khXO5wonNmfk8A +B/fNTAyY5rjBXH7c5ugEDh6MFK31/uwKvYYX3hQWc1B4Lu0mM9gF9oUXXLUq +46B3uEXpXRcXmC174DNCctD0eKS4k4kLCBLdPzUqONh5rH+uneECNnySEo9q +Ofj1vWrqxcc7oeZt4d437zj48P2D09vX7QRrgb9UIro5GO6tWTu96AzdFs2z +ou85KFtdV3xr0Bl+PPye7PmZgzaao1HGNc6gkqde+s8wB30HxJ4Z7nOGml7j +iLOjHFSWa4jds8MZrNfvALUJ+vr5K5lXNjmD78nw12Ez9HzK9B8bCdPPqz1x +WWSOHs+mtvImlzMkLlza83CBg45904NSI06wVvu2sscvDiq4o3FRlxNcP/hw +5s8fDi49yqgxrneC/wMuqkEj "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "PlotRange" -> {{0, 30}, {0., 0.06761461264315854}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +8398,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 +8426,8 @@ EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.07335635796919572}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06761461264315854}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -3407,9 +8435,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.994014318329136*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"cfd1660c-22a7-4658-9ad2-dd43747c77ce"] }, Open ]], Cell[CellGroupData[{ @@ -3421,7 +8448,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[{ @@ -3439,8 +8468,8 @@ Cell[BoxData[ SuperscriptBox[ RowBox[{"(", FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -3462,66 +8491,73 @@ 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[\\\"6.075315235951495`*^-161\\\", \ +RowBox[{\\\"164243120455479739170682\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"105\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 100, 17, + 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345785749161*^9, 3.994014318444345*^9}, CellLabel-> "During evaluation of \ -In[422]:=",ExpressionUUID->"b6e3034b-dd99-1142-8723-42090efc2980"], +In[100]:=",ExpressionUUID->"94f912e4-313c-4da0-9aae-1b126e7d1f43"], 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.391916772621269`*^-164\\\", \ +RowBox[{\\\"552513857212233842570175\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"108\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 100, 18, + 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345785749161*^9, 3.994014318451836*^9}, CellLabel-> "During evaluation of \ -In[422]:=",ExpressionUUID->"54e48413-1d3a-b844-8316-bcdf9191e67e"], +In[100]:=",ExpressionUUID->"9c5d48d3-90c4-49c0-85a5-9e0d1c71aeca"], 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.451909855506121`*^-166\\\", \ +RowBox[{\\\"192330073695578600598678\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"112\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 100, 19, + 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345785749161*^9, 3.99401431845786*^9}, CellLabel-> "During evaluation of \ -In[422]:=",ExpressionUUID->"44ccd47c-7323-4a4e-a9d6-7424d8b3399f"], +In[100]:=",ExpressionUUID->"70a661e7-9323-4dac-ba5d-d6d4c03ad196"], 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, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345785749161*^9, 3.994014318466136*^9}, CellLabel-> "During evaluation of \ -In[422]:=",ExpressionUUID->"4c2e41d3-b5d7-3f4c-ba94-0408b6a0e82d"], +In[100]:=",ExpressionUUID->"abdcd123-edf4-42bd-a5ef-01111f19935d"], -Cell[BoxData["10.362747935330768`"], "Output", - CellChangeTimes->{3.991345792196575*^9}, +Cell[BoxData["11.239387268021037`"], "Output", + CellChangeTimes->{3.991345792196575*^9, 3.9940143636128683`*^9}, CellLabel-> - "Out[422]=",ExpressionUUID->"c1bfc082-c70f-3140-a59c-c21547622f5b"] + "Out[100]=",ExpressionUUID->"b7e513ee-2e43-4b0e-83dd-8e20649389b8"] }, Open ]], Cell[CellGroupData[{ @@ -3588,68 +8624,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"], + 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[\\\"6.527654125217896`*^-212\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 101, 21, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345792232563*^9, 3.9940143636726437`*^9}, CellLabel-> "During evaluation of \ -In[423]:=",ExpressionUUID->"0e308aaf-a4b5-d740-9882-5c338a63d7a7"], +In[101]:=",ExpressionUUID->"d15964ba-2c07-45ef-b14f-afe53f8c48fe"], 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[\\\"6.116980085060206`*^-217\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 101, 22, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345792232563*^9, 3.994014363679326*^9}, CellLabel-> "During evaluation of \ -In[423]:=",ExpressionUUID->"5e35cc91-e340-c74b-b6dd-42063e8a308b"], +In[101]:=",ExpressionUUID->"0be114b5-4c8f-436c-8116-76ad8f951136"], 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[\\\"5.732142764193125`*^-222\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 101, 23, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345792232563*^9, 3.994014363686602*^9}, CellLabel-> "During evaluation of \ -In[423]:=",ExpressionUUID->"c3f5c3a9-ece1-e648-aa3a-3f66f2873ea7"], +In[101]:=",ExpressionUUID->"b0431b6a-2c5a-45c3-a9b4-e6056f191e40"], 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, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345792232563*^9, 3.994014363693739*^9}, CellLabel-> "During evaluation of \ -In[423]:=",ExpressionUUID->"41503ce3-67a0-8a4a-b10a-c3db53fd260d"], +In[101]:=",ExpressionUUID->"4d1b496d-9fee-48e3-8f83-4b97f52c55f0"], -Cell[BoxData["0.32136877427435395`"], "Output", - CellChangeTimes->{3.991345799137081*^9}, +Cell[BoxData["0.41865915916724294`"], "Output", + CellChangeTimes->{3.991345799137081*^9, 3.994014370333346*^9}, CellLabel-> - "Out[423]=",ExpressionUUID->"d9451200-e1de-5d43-8d07-ddcfc9babc52"] + "Out[101]=",ExpressionUUID->"89cb52f0-80e2-43e4-8685-9a5515adf8fb"] }, Open ]], Cell[CellGroupData[{ @@ -3670,8 +8710,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 +8755,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"], + 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[\\\"6.527654125217896`*^-212\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 102, 25, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913457991730843`*^9, 3.994014370370879*^9}, CellLabel-> "During evaluation of \ -In[424]:=",ExpressionUUID->"2247cd70-3ffa-2245-971e-6c6a2bd1ecfc"], +In[102]:=",ExpressionUUID->"06bfe92f-ca75-4717-8344-ceb98a0139b8"], 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[\\\"6.116980085060206`*^-217\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 102, 26, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913457991730843`*^9, 3.9940143703784723`*^9}, CellLabel-> "During evaluation of \ -In[424]:=",ExpressionUUID->"d9ae7d5b-4e89-a74f-be53-15700ab2593c"], +In[102]:=",ExpressionUUID->"d5fb6279-f83c-48ba-a13d-2f27ae1548b6"], 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[\\\"5.732142764193125`*^-222\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 102, 27, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913457991730843`*^9, 3.9940143703849363`*^9}, CellLabel-> "During evaluation of \ -In[424]:=",ExpressionUUID->"821c7ce3-36cc-9549-9881-1225eb1561cf"], +In[102]:=",ExpressionUUID->"ef2e3c8a-e00b-4091-be94-dcaa6f06c305"], 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, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913457991730843`*^9, 3.994014370391588*^9}, CellLabel-> "During evaluation of \ -In[424]:=",ExpressionUUID->"52af17f2-aff2-c34f-85c8-700b3d2f5f39"], +In[102]:=",ExpressionUUID->"0ef0d155-7869-4e2a-a937-04afe186d345"], -Cell[BoxData["6.886509882261309`"], "Output", - CellChangeTimes->{3.991345804559931*^9}, +Cell[BoxData["34.241483321063576`"], "Output", + CellChangeTimes->{3.991345804559931*^9, 3.994014376812707*^9}, CellLabel-> - "Out[424]=",ExpressionUUID->"9a4afbd4-21df-4744-836a-2ed068742fdd"] + "Out[102]=",ExpressionUUID->"10f89918-b154-41af-a68f-e603be23b7f6"] }, Open ]], Cell[CellGroupData[{ @@ -3798,8 +8841,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 +8886,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"], + 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[\\\"6.527654125217896`*^-212\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 103, 29, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458046014442`*^9, 3.994014376851719*^9}, CellLabel-> "During evaluation of \ -In[425]:=",ExpressionUUID->"3701f96f-691c-9040-a8a1-ff3958638338"], +In[103]:=",ExpressionUUID->"e9ae469a-e911-427b-95f8-73d9c3ade606"], 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[\\\"6.116980085060206`*^-217\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 103, 30, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458046014442`*^9, 3.9940143768583183`*^9}, CellLabel-> "During evaluation of \ -In[425]:=",ExpressionUUID->"9e260603-f97f-ac44-8251-869444fbcc24"], +In[103]:=",ExpressionUUID->"eb1c2dde-8723-4551-a48a-6186ec982145"], 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[\\\"5.732142764193125`*^-222\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 103, 31, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458046014442`*^9, 3.994014376865184*^9}, CellLabel-> "During evaluation of \ -In[425]:=",ExpressionUUID->"f34d60ab-6a89-fd45-89b6-5f3b4b17dd22"], +In[103]:=",ExpressionUUID->"bac30cea-cb4c-410c-8955-6275f2bdb8e7"], 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, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458046014442`*^9, 3.994014376872534*^9}, CellLabel-> "During evaluation of \ -In[425]:=",ExpressionUUID->"27fa1c02-4896-1547-8cb5-b1b86182517f"], +In[103]:=",ExpressionUUID->"0ad6ca65-956c-40c7-a783-7d12c840c072"], -Cell[BoxData["18.478556086442907`"], "Output", - CellChangeTimes->{3.991345807954506*^9}, +Cell[BoxData["5.242494705845581`"], "Output", + CellChangeTimes->{3.991345807954506*^9, 3.994014380948565*^9}, CellLabel-> - "Out[425]=",ExpressionUUID->"7fdd69fb-d48e-e24a-a681-093b62cad9ba"] + "Out[103]=",ExpressionUUID->"dd745d82-2107-48c9-a1aa-20719a260b7a"] }, Open ]], Cell[CellGroupData[{ @@ -3914,22 +8960,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.03124750251565695`"], "Output", + CellChangeTimes->{3.991345807987507*^9, 3.994014380991137*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"bc7dbc2d-9782-42a8-a6b2-796630c58105"] }, 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 +8999,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["6.791953421666289`"], "Output", + CellChangeTimes->{3.991345808020666*^9, 3.9940143810099993`*^9}, CellLabel-> - "Out[428]=",ExpressionUUID->"c70c9f2e-d3ac-284f-9a22-d110345400ba"] + "Out[106]=",ExpressionUUID->"eda7e04d-6c40-4985-a98f-75263c7ea471"] }, Open ]], Cell[CellGroupData[{ @@ -3967,12 +9014,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["2.508601863871297`"], "Output", + CellChangeTimes->{3.9913458080616665`*^9, 3.9940143810199747`*^9}, CellLabel-> - "Out[430]=",ExpressionUUID->"dc218355-20da-7845-8c8d-e506361cd90c"] + "Out[107]=",ExpressionUUID->"57117052-a786-46dc-b9cf-8ca30968e530"] }, Open ]], Cell[CellGroupData[{ @@ -3982,12 +9029,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["17.038307012919084`"], "Output", + CellChangeTimes->{3.991345808188246*^9, 3.994014381028675*^9}, CellLabel-> - "Out[433]=",ExpressionUUID->"b98e2d62-3142-7d4b-8175-9f6bcc8f676f"] + "Out[108]=",ExpressionUUID->"174c0a0d-2659-4cd5-8b8b-2843574f4318"] }, Open ]], Cell[CellGroupData[{ @@ -4177,12 +9224,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.00652732336621117`"], "Output", + CellChangeTimes->{3.991345808220566*^9, 3.994014381041481*^9}, CellLabel-> - "Out[434]=",ExpressionUUID->"e2235b96-63a9-b14d-b5d1-d13c73c5b35b"] + "Out[109]=",ExpressionUUID->"3e70c7a8-d36e-4050-b7da-edd341902f1a"] }, Open ]], Cell[CellGroupData[{ @@ -4196,12 +9243,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["10.969261161687538`"], "Output", + CellChangeTimes->{3.9913458083195686`*^9, 3.9940143811574287`*^9}, CellLabel-> - "Out[435]=",ExpressionUUID->"776526ba-6ae1-2140-8428-6e0766592ce2"] + "Out[110]=",ExpressionUUID->"e3190d6b-5449-48ac-b6fd-182b7486cd44"] }, Open ]], Cell[CellGroupData[{ @@ -4393,12 +9440,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.05533149898901004`"], "Output", + CellChangeTimes->{3.991345808334568*^9, 3.994014381169839*^9}, CellLabel-> - "Out[436]=",ExpressionUUID->"4456bf68-737e-1947-bc9d-24db2abd4b39"] + "Out[111]=",ExpressionUUID->"5a96a26d-1168-426e-b08f-9f886d759588"] }, Open ]], Cell[CellGroupData[{ @@ -4412,12 +9459,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.7675473810122115`"], "Output", + CellChangeTimes->{3.991345808432392*^9, 3.994014381269886*^9}, CellLabel-> - "Out[437]=",ExpressionUUID->"04031349-1bc1-2c40-8d25-2e90a8f4b902"] + "Out[112]=",ExpressionUUID->"cf185f92-d1fe-4352-ad92-f550e2506a60"] }, Open ]], Cell[CellGroupData[{ @@ -4510,12 +9557,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.08017799560488434`"], "Output", + CellChangeTimes->{3.991345808448488*^9, 3.994014381281002*^9}, CellLabel-> - "Out[438]=",ExpressionUUID->"ab924ecc-12c3-f448-be6e-b37b3bf2a7ea"] + "Out[113]=",ExpressionUUID->"dc15b9e7-ac26-46cc-8f09-8f8ddfd13afe"] }, Open ]], Cell[CellGroupData[{ @@ -4605,12 +9652,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.9198220043951155`"], "Output", + CellChangeTimes->{3.9913458084773808`*^9, 3.994014381290934*^9}, CellLabel-> - "Out[439]=",ExpressionUUID->"edd230b8-d34a-9d46-9fb1-cbff36fb79ff"] + "Out[114]=",ExpressionUUID->"c65122fa-7111-40ab-8f0f-695eb191171d"] }, Open ]], Cell[CellGroupData[{ @@ -4733,12 +9780,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.07374948462566748`"], "Output", + CellChangeTimes->{3.9913458085134735`*^9, 3.994014381300844*^9}, CellLabel-> - "Out[440]=",ExpressionUUID->"7ff053b6-f84b-bf44-8265-ecf6593e97c0"] + "Out[115]=",ExpressionUUID->"2c3ed792-4f70-400a-9179-a5424613b16a"] }, Open ]], Cell[CellGroupData[{ @@ -4753,30 +9800,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[{"-", @@ -4800,67 +9850,73 @@ 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.067336610453535`*^-218\\\", \ +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 116, 33, + 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458085463753`*^9, 3.994014381317334*^9}, CellLabel-> "During evaluation of \ -In[441]:=",ExpressionUUID->"ba9cccb8-fdfa-1d4c-9151-4c0bb8135009"], +In[116]:=",ExpressionUUID->"e602d811-9218-4006-a2e6-cba3fb5f9a36"], 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[\\\"3.7932279457804384`*^-224\\\", \ +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 116, 34, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458085463753`*^9, 3.9940143813259687`*^9}, CellLabel-> "During evaluation of \ -In[441]:=",ExpressionUUID->"dda5376f-614c-1846-a3e1-09857b4bcae6"], +In[116]:=",ExpressionUUID->"35afe0ed-e4f2-4a3d-83bd-a90230ebfb32"], 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.348082517523282`*^-229\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 116, 35, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458085463753`*^9, 3.994014381333041*^9}, CellLabel-> "During evaluation of \ -In[441]:=",ExpressionUUID->"7a2a8f8b-abfe-9646-a4d6-23b88b4059ef"], +In[116]:=",ExpressionUUID->"ccb993ff-a021-41b4-b72f-33e7ea7ee4ad"], 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, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458085463753`*^9, 3.994014381339342*^9}, CellLabel-> "During evaluation of \ -In[441]:=",ExpressionUUID->"61579f38-09d5-bc4c-9509-0aaf4718ceff"], +In[116]:=",ExpressionUUID->"863952bb-73ff-4a3e-bfc4-8be9cf903577"], -Cell[BoxData["4.317080886816564`"], "Output", - CellChangeTimes->{3.9913458125059433`*^9}, +Cell[BoxData["10.969261161687543`"], "Output", + CellChangeTimes->{3.9913458125059433`*^9, 3.994014385009643*^9}, CellLabel-> - "Out[441]=",ExpressionUUID->"87b4581c-42ec-3248-906f-f100fdcc36d4"] + "Out[116]=",ExpressionUUID->"50564e97-dcb0-4863-820a-1480a9a23082"] }, Open ]], Cell[CellGroupData[{ @@ -4875,30 +9931,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[{"-", @@ -4922,68 +9981,73 @@ 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.067336610453535`*^-218\\\", \ +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 117, 37, + 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345812542961*^9, 3.994014385051813*^9}, CellLabel-> "During evaluation of \ -In[442]:=",ExpressionUUID->"19016d8b-0ad0-804c-b867-298523611be5"], +In[117]:=",ExpressionUUID->"ad0418eb-affb-46ea-afc7-620386d9c0f4"], 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[\\\"3.7932279457804384`*^-224\\\", \ +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 117, 38, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345812542961*^9, 3.994014385059638*^9}, CellLabel-> "During evaluation of \ -In[442]:=",ExpressionUUID->"b91abb11-65b8-3b43-a495-4cb1457edd27"], +In[117]:=",ExpressionUUID->"08f314f7-b9e1-4253-82b7-9ac35c8050c7"], 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.348082517523282`*^-229\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 117, 39, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345812542961*^9, 3.994014385067816*^9}, CellLabel-> "During evaluation of \ -In[442]:=",ExpressionUUID->"120f2ab5-c971-b748-a471-5d053961b4f2"], +In[117]:=",ExpressionUUID->"a949660d-f081-41fe-bc22-33732fdaa7cd"], 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, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345812542961*^9, 3.994014385074603*^9}, CellLabel-> "During evaluation of \ -In[442]:=",ExpressionUUID->"e219a46d-9b55-8b4b-a17f-972d0b60293c"], +In[117]:=",ExpressionUUID->"c6fa1d62-360b-457f-91e8-659b75a29388"], -Cell[BoxData["7.8141966696182585`"], "Output", - CellChangeTimes->{3.991345816415531*^9}, +Cell[BoxData["3.7675473810122133`"], "Output", + CellChangeTimes->{3.991345816415531*^9, 3.994014388631631*^9}, CellLabel-> - "Out[442]=",ExpressionUUID->"15e7db41-f53f-7c4b-886f-7ba04bf10a25"] + "Out[117]=",ExpressionUUID->"776e7820-9f8d-41e8-b5ac-d0b035cb4734"] }, Open ]], Cell[CellGroupData[{ @@ -5041,95 +10105,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:eJwV1Hk4VV0bB2BzSEVCxsy9ZMoxk/UUJTKEZJ7P2YRkSkhKooGEShp0ZCgk +RULIq1C+UhRNSubxHAc7NPH2rfPHvvZ1X2vv3/OstfbaCgGHnGhcHBwcM/hi +3yPfaG2u635j3qNlzLfbnYHMWcX6AZYVaELVWJntQbrBJWXLJhTBbZjE9l7q +az4hSjtKeaa7wRq7Ku54K69lJ/Lx1xhn++zzjS3Hy98i3q9KCzbYj7sjby7r +vkfKmpLmttjTfS8T4xs/oTR7oTY7bKkxJc8li6/ovNFKqgP2ntlE4+jOAfRk +mJHiiN28PL06rnwIiVh8euKM/SFZ4mht+Ah6af+Msh+bxWc5vaA7hip/lY25 +YfNlRLhTfoyjdIMLPZ7YciL5HZGNk4ixFLnig20vvXSbZcFEX55p8xLYRIGi +uCY/Cw3fFRw5gH1cxSE1tHMWGfcMLx/E/iTRuzWmfB6tTz83GotN9Qg5cDGD +RL2z7tVHseducNyqDv+OKKaqTSew+RU1hed1F9GswqOUdOxL1FYrYbEltPnM +ke3Z2PJ33I9r/1hCPKEGplewjTTSWAcbf6IO7bLhIuxgg4HOaYtldEbfl7MF +eyHuMI+g6gqq5Oeiv8A+0bjaTI3/P/TWtiCuCzsPjO4Gdf5FfhlvBgbY/ZV0 +WEaVc8IUbeYYtwcDlT+/OJgszQUBu4L+CGHPTfgkZmdwgeeOLzXi2Inqiw8f +hHPD7KsHX9SxL91XUJrV5YVputAvF+y+bmbzf0W84P3Ncb8/tjxZ57FWjA9u +512YDcOu0LPP0fzBBz7Xv78/hd32OIEzrJEfNB1co+qwF1t7BiYthGDe1WVq +sycDrbcVEj7aLARBZ9TtjbB1ei1hjfEaaK+O/bUbO2T0UcFWrbWwLjJKKRQ7 +gqtTZ5uQMMxeZ7ZVY48pVs6nLonAnuLMbQ5eeH2IlwJdlPVgTy8UoGJz3R1X +2Bi5HuI7VGXiseUpm5zKGevBuuHYhmJsD4us6jeDoiDs5Oa0gt0VGBUt8UoM +ImttuZ54M9C3O5npfvziYF6mqv8Bm8koLyrbKQ7x/sGVs9iCMSM9pi3iINEl +H6Pkw0CWp/bp+T2SgI0cLraZ2A3FBouldEkopYF2pC8DFY/9jjWJkYWUlYSG +UH8G2u1y+lv0PVl4oa8Zm47NbBPddW9cFgrKtQ7dxdYr1hCTd5cD7iYZSSZ2 +W4DPQ17zTcByvmgbEcBA5OzgkckUeTBi7Nt6KpCBRA9a1jy0UwQpGbOZzzQG +Gi8WDN4boggCKNmRk2Cg+q/d0jNpilDR/h/5D7aXrXeKaositL+mz8RhF2+J +dbqqqwQcWwOfSgfh+tN35pIklGFxj8FwWDAD7QtarWkzpAIe2Vzc20IZCMW6 +6LquqEBc6OimUGz1VLohVVIVfv8+eeQqNkcRZUeSoyocyic/LGHf++bpWv1U +Fb5QT+6vCcPnc39FslThZnAru+hqEo77s7T7MB2gBpDb4BEVyUBFzle+/EhS +A1Nvr9d3sDMDhgZ5rqsBZ/H1hH5s6onDDLkeNTCMY52yjmIgkaZ8DmcLdYgL +fuGmHI2/HwpLvVFpCxi3OC+PxjCQtOKF4+mjGsDM+6ueE8dATecW1H5xacIG +Sd+Nvdhe3917CQVN4B/NsBGPZ6CbbcpqO3w0gaZmd+w6tmJQw7ufHzVhoVZP +piwBz7diTIV4pQVHTM3M3yYykKy0HCHvrgM2GdWrXJIZSKMkRugP0oU/csn2 +6ukMFEBNWdS01wWrlEe9R7DzlHK++XnpguL2w7nt2NyF9x88j9OFcKusTv8M +fN5uTu/LqdKFy3Q+7vzz+H+a55evpkQBrbcnrshl4f1Nt9Vy49MDZd5nTvaX +GehWlPLeR536cDHMr9K3gIG6Y5HhqRJj2CD1dDitkYEUfN7be4dtA9vuC9Ve +fQxE+1tbKRsPAP2y3V2/GUiCUb9KImAHhAibtiwpMFEMxexrjrolaE8MeGja +MFHAzHKH6PROSHm049qPGCa6tyN6Fb3LCnKtgjeL3WGi4oWQpxWXrMHv8qkK +w89M9HP7xtdtx/fAjWb5YHnRGdTPwT0/5G8H3yR6cmMcZlC4zKGsZCUHkJJ6 +ZFF9bgZVHuhouZy6Fx4vXekTfDODEr5L/thywBGOppcml6xjoUWbXftf+DrB +6X21YqfdWcjYM3v7mKMzeKdmMO8Ws9A7yfyQNso+iFacLBlhspDU7ZSm0n9c +4MJERP+2bbOoflDd1n7Nfti8Q9Zt7uwskuudC4qd2Q8jOVoTkR9mEeVydkXR +oCsYLjdw2ovNoXye71o5rW4wxQhK/Wk2h2q3a/elPnYHnZu8r/WD51Ce4TmR +5XIPCOPVaqnLmUNdX0rSKBmesJCfus+sYQ49sruhHHHCC4yqTjo0j86h+YPO +HOFUbygculUxvnoeLe5SC2ZZ+MCoicDo9a3zqHTm889oA19I8/g0leE+j9xu +lQR6C/nB5GPPoOpj8+hh9R5f7tN+cOZz3cbwonlkLP3u19lffjDx6nGnePs8 +UhoM6nt7wB+OtLokh4zOo9HVoQ43RvzhxmWrdgceEnVn2gdauQSA51z2VtYm +El2Ko68+3B0AMnfU6x1MSdTU/PdXoHUgDKRtKwp1JtE6LzhNaQgEorXXcVcQ +ieQ3vOiSaQoE3djI/FxsnU67jXzNgWCtQa8dx3Yy8yz79DQQRp+kOqYF43yZ +2FfH/hcI1MMH/mk9QCKp/rvrOj4FguvAjCMljETKPhJ5Xj8CQcRSa+9MBImM +/VilqXpUEPnAYrXHk+j21bloewMqLDgMfuFJINGGHtJcwogKvjmfrllgs3b+ +6C01pcKrrqeZLdjFWzg4O3dQofpNrV39URKt/SHivt6RCtdTDRXpx0g0el5f +gH6QCs/LFpask0nk+MKwN+gQFRZ96yRSsJs5TOg6kVSI/VEh0IR9Ndpc/1kM +FcJyJPw1T5LI3t3Kf+woFVq4TfvXpJDosbL74y3nqODn58D7/BSJMhsTD9Tf +pkKEguv0+jMkOqh7xTiulAp1gWbKO7Fty6oEjMqp8MkqXOcItuCV8bK6e1S4 +mlH4bx92atTe6doaKuzRrq+nnyVRoppy6KNnVLh9ikNEIZ1EIVdehVV/o8IH +WwsDzkwSWa8dN4sapIKFSN19Tex/UjnW6A5TYZve+9/u2ONR+veqxqhw8vwK +bzW2vz195gGTCuCfMOt7gURuvNHh93/j+mtFVz/MIpFVtFREhTgNzvZTdhpc +JNEzeppNzkYaxAYGbPXDNuskleOkaDDZ5D1+FltH5dVnCzkacDSXlH/Flvx4 +1OKLCg1Stk9eP36JRAyTfnFBfRrIydXLNF4m0QWugidBzjR4KrQQw5+H568t +lGfnQgOLSysRW7BPecZFUVxpwP3QUN8eO65m7+a/HjTI5tAQv4jtT3Bm5wbQ +QCjsmrHUVRJRXgZQ2yNp8En4HZfcNRJ9zFZZrZRFg9qfJif/XCdRJVoTPJlN +g5ekBF3sBs6fWWi7d5EGSQIz57Sxda3bkoyu0CCdN6YrADuTI5C0u0mDCzUl +q19g7zpU8DmuggbNuZr2afkkkpU9Y2BeSYOhum3u+dgLLw9d5H5AAyM7KUoN +dqEqsst8iPst1XIewl7p728paqBBgVySpfFNEtXYSpe+6aDB6Z6rUwPY6b+5 +eC+9pMFztz2D37EDSqf93TtpMCBVVLKKTiJhngbp0S4aCJ42u6GFHdboduHX +Bxo4ZfQZJWArqefGKo/RQL56XpO/gES/Px7rmRqnwVt1wbWS2N2pNJ37kzQ4 +r1japIadNKQ3bcykgZT8wVQb7L68Hm+H7zTYljTZdhY7Z5XIzgROAgQo8r// +w24i+z1juAlIFuxwW3uLRBP95VHhvAS4lpXEy2Kb1VgWBAgQsP/jL05T7HG/ +uD82IgTe39ca0djCtjvX7xQlwPfP1I0T2KaG69WQGAES7Rpd57Gz1lTsp0gS +wHdFJuEOe7xhoEpaAef1RE99xCZKKjrElAiYXz4fMsJ+Pit+YJ0KAf2mLfdY +7HqE6BoeNQJiGogEnkI8LmoVzNQh4NxwtoYmdsN/osfHdQk4XLij2QB7bGrw +8qAeAf6f/4oAtklLQmuvEQHLJ679dcQeDauUewIETIZqfY/CXut2VL9uBwGy +XvKXE7CNLXbbVlkSYG0n9isZO1NyOL5kNwFl0jyrsrDree5n0W0I4OZefpCL +PTJ79M5VWwIK/5Iy+dhGz8Xen99LwMaKPpMy7ICqYcZpJwJM7v6PWYl9/sZ9 +rpP7CACfGr8a7OEoa51YNwKq+uMzm7HX+IhbRXgQkGfuvLuVnWc94h3iRYBn +okrbC/b7m46l+/jhcfFqzm52P4I2hW4BBDy3DW3tYectij92ohKgJypt9ZGd +NzTSZUsQ4M1syehj53U+GN8VTAAt0OtSP7u/umMrEEKAmNCM9yA7v9Bmg2kY +AQMno6aG2fnnJbbohxMwGMY0GGPnx41u144goOeIx64JbCFqlZtaFAGbPZok +prANHZIOKcUQwHwncneanW+yJ002loAvZR4cTOwMlY35EnF4/+/nSsxg1wqP +PRRJIIBoap9je+hP1cvViQS0VE+ks9j5E0lDvEkE/Ju4PMm2wbs9P/8ex/2v +4eGfxf4/urcZhg== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -5143,107 +10207,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:eJwV1Hk4VV0bB2BzSEVCxsy9ZMoxk/UUJTKEZJ7P2YRkSkhKooGEShp0ZCgk +RULIq1C+UhRNSubxHAc7NPH2rfPHvvZ1X2vv3/OstfbaCgGHnGhcHBwcM/hi +3yPfaG2u635j3qNlzLfbnYHMWcX6AZYVaELVWJntQbrBJWXLJhTBbZjE9l7q +az4hSjtKeaa7wRq7Ku54K69lJ/Lx1xhn++zzjS3Hy98i3q9KCzbYj7sjby7r +vkfKmpLmttjTfS8T4xs/oTR7oTY7bKkxJc8li6/ovNFKqgP2ntlE4+jOAfRk +mJHiiN28PL06rnwIiVh8euKM/SFZ4mht+Ah6af+Msh+bxWc5vaA7hip/lY25 +YfNlRLhTfoyjdIMLPZ7YciL5HZGNk4ixFLnig20vvXSbZcFEX55p8xLYRIGi +uCY/Cw3fFRw5gH1cxSE1tHMWGfcMLx/E/iTRuzWmfB6tTz83GotN9Qg5cDGD +RL2z7tVHseducNyqDv+OKKaqTSew+RU1hed1F9GswqOUdOxL1FYrYbEltPnM +ke3Z2PJ33I9r/1hCPKEGplewjTTSWAcbf6IO7bLhIuxgg4HOaYtldEbfl7MF +eyHuMI+g6gqq5Oeiv8A+0bjaTI3/P/TWtiCuCzsPjO4Gdf5FfhlvBgbY/ZV0 +WEaVc8IUbeYYtwcDlT+/OJgszQUBu4L+CGHPTfgkZmdwgeeOLzXi2Inqiw8f +hHPD7KsHX9SxL91XUJrV5YVputAvF+y+bmbzf0W84P3Ncb8/tjxZ57FWjA9u +512YDcOu0LPP0fzBBz7Xv78/hd32OIEzrJEfNB1co+qwF1t7BiYthGDe1WVq +sycDrbcVEj7aLARBZ9TtjbB1ei1hjfEaaK+O/bUbO2T0UcFWrbWwLjJKKRQ7 +gqtTZ5uQMMxeZ7ZVY48pVs6nLonAnuLMbQ5eeH2IlwJdlPVgTy8UoGJz3R1X +2Bi5HuI7VGXiseUpm5zKGevBuuHYhmJsD4us6jeDoiDs5Oa0gt0VGBUt8UoM +ImttuZ54M9C3O5npfvziYF6mqv8Bm8koLyrbKQ7x/sGVs9iCMSM9pi3iINEl +H6Pkw0CWp/bp+T2SgI0cLraZ2A3FBouldEkopYF2pC8DFY/9jjWJkYWUlYSG +UH8G2u1y+lv0PVl4oa8Zm47NbBPddW9cFgrKtQ7dxdYr1hCTd5cD7iYZSSZ2 +W4DPQ17zTcByvmgbEcBA5OzgkckUeTBi7Nt6KpCBRA9a1jy0UwQpGbOZzzQG +Gi8WDN4boggCKNmRk2Cg+q/d0jNpilDR/h/5D7aXrXeKaositL+mz8RhF2+J +dbqqqwQcWwOfSgfh+tN35pIklGFxj8FwWDAD7QtarWkzpAIe2Vzc20IZCMW6 +6LquqEBc6OimUGz1VLohVVIVfv8+eeQqNkcRZUeSoyocyic/LGHf++bpWv1U +Fb5QT+6vCcPnc39FslThZnAru+hqEo77s7T7MB2gBpDb4BEVyUBFzle+/EhS +A1Nvr9d3sDMDhgZ5rqsBZ/H1hH5s6onDDLkeNTCMY52yjmIgkaZ8DmcLdYgL +fuGmHI2/HwpLvVFpCxi3OC+PxjCQtOKF4+mjGsDM+6ueE8dATecW1H5xacIG +Sd+Nvdhe3917CQVN4B/NsBGPZ6CbbcpqO3w0gaZmd+w6tmJQw7ufHzVhoVZP +piwBz7diTIV4pQVHTM3M3yYykKy0HCHvrgM2GdWrXJIZSKMkRugP0oU/csn2 +6ukMFEBNWdS01wWrlEe9R7DzlHK++XnpguL2w7nt2NyF9x88j9OFcKusTv8M +fN5uTu/LqdKFy3Q+7vzz+H+a55evpkQBrbcnrshl4f1Nt9Vy49MDZd5nTvaX +GehWlPLeR536cDHMr9K3gIG6Y5HhqRJj2CD1dDitkYEUfN7be4dtA9vuC9Ve +fQxE+1tbKRsPAP2y3V2/GUiCUb9KImAHhAibtiwpMFEMxexrjrolaE8MeGja +MFHAzHKH6PROSHm049qPGCa6tyN6Fb3LCnKtgjeL3WGi4oWQpxWXrMHv8qkK +w89M9HP7xtdtx/fAjWb5YHnRGdTPwT0/5G8H3yR6cmMcZlC4zKGsZCUHkJJ6 +ZFF9bgZVHuhouZy6Fx4vXekTfDODEr5L/thywBGOppcml6xjoUWbXftf+DrB +6X21YqfdWcjYM3v7mKMzeKdmMO8Ws9A7yfyQNso+iFacLBlhspDU7ZSm0n9c +4MJERP+2bbOoflDd1n7Nfti8Q9Zt7uwskuudC4qd2Q8jOVoTkR9mEeVydkXR +oCsYLjdw2ovNoXye71o5rW4wxQhK/Wk2h2q3a/elPnYHnZu8r/WD51Ce4TmR +5XIPCOPVaqnLmUNdX0rSKBmesJCfus+sYQ49sruhHHHCC4yqTjo0j86h+YPO +HOFUbygculUxvnoeLe5SC2ZZ+MCoicDo9a3zqHTm889oA19I8/g0leE+j9xu +lQR6C/nB5GPPoOpj8+hh9R5f7tN+cOZz3cbwonlkLP3u19lffjDx6nGnePs8 +UhoM6nt7wB+OtLokh4zOo9HVoQ43RvzhxmWrdgceEnVn2gdauQSA51z2VtYm +El2Ko68+3B0AMnfU6x1MSdTU/PdXoHUgDKRtKwp1JtE6LzhNaQgEorXXcVcQ +ieQ3vOiSaQoE3djI/FxsnU67jXzNgWCtQa8dx3Yy8yz79DQQRp+kOqYF43yZ +2FfH/hcI1MMH/mk9QCKp/rvrOj4FguvAjCMljETKPhJ5Xj8CQcRSa+9MBImM +/VilqXpUEPnAYrXHk+j21bloewMqLDgMfuFJINGGHtJcwogKvjmfrllgs3b+ +6C01pcKrrqeZLdjFWzg4O3dQofpNrV39URKt/SHivt6RCtdTDRXpx0g0el5f +gH6QCs/LFpask0nk+MKwN+gQFRZ96yRSsJs5TOg6kVSI/VEh0IR9Ndpc/1kM +FcJyJPw1T5LI3t3Kf+woFVq4TfvXpJDosbL74y3nqODn58D7/BSJMhsTD9Tf +pkKEguv0+jMkOqh7xTiulAp1gWbKO7Fty6oEjMqp8MkqXOcItuCV8bK6e1S4 +mlH4bx92atTe6doaKuzRrq+nnyVRoppy6KNnVLh9ikNEIZ1EIVdehVV/o8IH +WwsDzkwSWa8dN4sapIKFSN19Tex/UjnW6A5TYZve+9/u2ONR+veqxqhw8vwK +bzW2vz195gGTCuCfMOt7gURuvNHh93/j+mtFVz/MIpFVtFREhTgNzvZTdhpc +JNEzeppNzkYaxAYGbPXDNuskleOkaDDZ5D1+FltH5dVnCzkacDSXlH/Flvx4 +1OKLCg1Stk9eP36JRAyTfnFBfRrIydXLNF4m0QWugidBzjR4KrQQw5+H568t +lGfnQgOLSysRW7BPecZFUVxpwP3QUN8eO65m7+a/HjTI5tAQv4jtT3Bm5wbQ +QCjsmrHUVRJRXgZQ2yNp8En4HZfcNRJ9zFZZrZRFg9qfJif/XCdRJVoTPJlN +g5ekBF3sBs6fWWi7d5EGSQIz57Sxda3bkoyu0CCdN6YrADuTI5C0u0mDCzUl +q19g7zpU8DmuggbNuZr2afkkkpU9Y2BeSYOhum3u+dgLLw9d5H5AAyM7KUoN +dqEqsst8iPst1XIewl7p728paqBBgVySpfFNEtXYSpe+6aDB6Z6rUwPY6b+5 +eC+9pMFztz2D37EDSqf93TtpMCBVVLKKTiJhngbp0S4aCJ42u6GFHdboduHX +Bxo4ZfQZJWArqefGKo/RQL56XpO/gES/Px7rmRqnwVt1wbWS2N2pNJ37kzQ4 +r1japIadNKQ3bcykgZT8wVQb7L68Hm+H7zTYljTZdhY7Z5XIzgROAgQo8r// +w24i+z1juAlIFuxwW3uLRBP95VHhvAS4lpXEy2Kb1VgWBAgQsP/jL05T7HG/ +uD82IgTe39ca0djCtjvX7xQlwPfP1I0T2KaG69WQGAES7Rpd57Gz1lTsp0gS +wHdFJuEOe7xhoEpaAef1RE99xCZKKjrElAiYXz4fMsJ+Pit+YJ0KAf2mLfdY +7HqE6BoeNQJiGogEnkI8LmoVzNQh4NxwtoYmdsN/osfHdQk4XLij2QB7bGrw +8qAeAf6f/4oAtklLQmuvEQHLJ679dcQeDauUewIETIZqfY/CXut2VL9uBwGy +XvKXE7CNLXbbVlkSYG0n9isZO1NyOL5kNwFl0jyrsrDree5n0W0I4OZefpCL +PTJ79M5VWwIK/5Iy+dhGz8Xen99LwMaKPpMy7ICqYcZpJwJM7v6PWYl9/sZ9 +rpP7CACfGr8a7OEoa51YNwKq+uMzm7HX+IhbRXgQkGfuvLuVnWc94h3iRYBn +okrbC/b7m46l+/jhcfFqzm52P4I2hW4BBDy3DW3tYectij92ohKgJypt9ZGd +NzTSZUsQ4M1syehj53U+GN8VTAAt0OtSP7u/umMrEEKAmNCM9yA7v9Bmg2kY +AQMno6aG2fnnJbbohxMwGMY0GGPnx41u144goOeIx64JbCFqlZtaFAGbPZok +prANHZIOKcUQwHwncneanW+yJ002loAvZR4cTOwMlY35EnF4/+/nSsxg1wqP +PRRJIIBoap9je+hP1cvViQS0VE+ks9j5E0lDvEkE/Ju4PMm2wbs9P/8ex/2v +4eGfxf4/urcZhg== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.48341415918018676`, - 1.8971786059380225`}}, + "PlotRange" -> {{0, 180}, {0.8546486016798219, + 1.1647787392729125`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.4834141591801878}, + "AxesOrigin" -> {0, 0.8546486016798238}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.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 +10319,21 @@ icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.48341415918018676`, - 1.8971786059380225`}}, + "PlotRange" -> {{0, 180}, {0.8546486016798219, + 1.1647787392729125`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.4834141591801878}, + "AxesOrigin" -> {0, 0.8546486016798238}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 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 +10347,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:eJwV1Hk4VV0bB2BzSEVCxsy9ZMoxk/UUJTKEZJ7P2YRkSkhKooGEShp0ZCgk +RULIq1C+UhRNSubxHAc7NPH2rfPHvvZ1X2vv3/OstfbaCgGHnGhcHBwcM/hi +3yPfaG2u635j3qNlzLfbnYHMWcX6AZYVaELVWJntQbrBJWXLJhTBbZjE9l7q +az4hSjtKeaa7wRq7Ku54K69lJ/Lx1xhn++zzjS3Hy98i3q9KCzbYj7sjby7r +vkfKmpLmttjTfS8T4xs/oTR7oTY7bKkxJc8li6/ovNFKqgP2ntlE4+jOAfRk +mJHiiN28PL06rnwIiVh8euKM/SFZ4mht+Ah6af+Msh+bxWc5vaA7hip/lY25 +YfNlRLhTfoyjdIMLPZ7YciL5HZGNk4ixFLnig20vvXSbZcFEX55p8xLYRIGi +uCY/Cw3fFRw5gH1cxSE1tHMWGfcMLx/E/iTRuzWmfB6tTz83GotN9Qg5cDGD +RL2z7tVHseducNyqDv+OKKaqTSew+RU1hed1F9GswqOUdOxL1FYrYbEltPnM +ke3Z2PJ33I9r/1hCPKEGplewjTTSWAcbf6IO7bLhIuxgg4HOaYtldEbfl7MF +eyHuMI+g6gqq5Oeiv8A+0bjaTI3/P/TWtiCuCzsPjO4Gdf5FfhlvBgbY/ZV0 +WEaVc8IUbeYYtwcDlT+/OJgszQUBu4L+CGHPTfgkZmdwgeeOLzXi2Inqiw8f +hHPD7KsHX9SxL91XUJrV5YVputAvF+y+bmbzf0W84P3Ncb8/tjxZ57FWjA9u +512YDcOu0LPP0fzBBz7Xv78/hd32OIEzrJEfNB1co+qwF1t7BiYthGDe1WVq +sycDrbcVEj7aLARBZ9TtjbB1ei1hjfEaaK+O/bUbO2T0UcFWrbWwLjJKKRQ7 +gqtTZ5uQMMxeZ7ZVY48pVs6nLonAnuLMbQ5eeH2IlwJdlPVgTy8UoGJz3R1X +2Bi5HuI7VGXiseUpm5zKGevBuuHYhmJsD4us6jeDoiDs5Oa0gt0VGBUt8UoM +ImttuZ54M9C3O5npfvziYF6mqv8Bm8koLyrbKQ7x/sGVs9iCMSM9pi3iINEl +H6Pkw0CWp/bp+T2SgI0cLraZ2A3FBouldEkopYF2pC8DFY/9jjWJkYWUlYSG +UH8G2u1y+lv0PVl4oa8Zm47NbBPddW9cFgrKtQ7dxdYr1hCTd5cD7iYZSSZ2 +W4DPQ17zTcByvmgbEcBA5OzgkckUeTBi7Nt6KpCBRA9a1jy0UwQpGbOZzzQG +Gi8WDN4boggCKNmRk2Cg+q/d0jNpilDR/h/5D7aXrXeKaositL+mz8RhF2+J +dbqqqwQcWwOfSgfh+tN35pIklGFxj8FwWDAD7QtarWkzpAIe2Vzc20IZCMW6 +6LquqEBc6OimUGz1VLohVVIVfv8+eeQqNkcRZUeSoyocyic/LGHf++bpWv1U +Fb5QT+6vCcPnc39FslThZnAru+hqEo77s7T7MB2gBpDb4BEVyUBFzle+/EhS +A1Nvr9d3sDMDhgZ5rqsBZ/H1hH5s6onDDLkeNTCMY52yjmIgkaZ8DmcLdYgL +fuGmHI2/HwpLvVFpCxi3OC+PxjCQtOKF4+mjGsDM+6ueE8dATecW1H5xacIG +Sd+Nvdhe3917CQVN4B/NsBGPZ6CbbcpqO3w0gaZmd+w6tmJQw7ufHzVhoVZP +piwBz7diTIV4pQVHTM3M3yYykKy0HCHvrgM2GdWrXJIZSKMkRugP0oU/csn2 +6ukMFEBNWdS01wWrlEe9R7DzlHK++XnpguL2w7nt2NyF9x88j9OFcKusTv8M +fN5uTu/LqdKFy3Q+7vzz+H+a55evpkQBrbcnrshl4f1Nt9Vy49MDZd5nTvaX +GehWlPLeR536cDHMr9K3gIG6Y5HhqRJj2CD1dDitkYEUfN7be4dtA9vuC9Ve +fQxE+1tbKRsPAP2y3V2/GUiCUb9KImAHhAibtiwpMFEMxexrjrolaE8MeGja +MFHAzHKH6PROSHm049qPGCa6tyN6Fb3LCnKtgjeL3WGi4oWQpxWXrMHv8qkK +w89M9HP7xtdtx/fAjWb5YHnRGdTPwT0/5G8H3yR6cmMcZlC4zKGsZCUHkJJ6 +ZFF9bgZVHuhouZy6Fx4vXekTfDODEr5L/thywBGOppcml6xjoUWbXftf+DrB +6X21YqfdWcjYM3v7mKMzeKdmMO8Ws9A7yfyQNso+iFacLBlhspDU7ZSm0n9c +4MJERP+2bbOoflDd1n7Nfti8Q9Zt7uwskuudC4qd2Q8jOVoTkR9mEeVydkXR +oCsYLjdw2ovNoXye71o5rW4wxQhK/Wk2h2q3a/elPnYHnZu8r/WD51Ce4TmR +5XIPCOPVaqnLmUNdX0rSKBmesJCfus+sYQ49sruhHHHCC4yqTjo0j86h+YPO +HOFUbygculUxvnoeLe5SC2ZZ+MCoicDo9a3zqHTm889oA19I8/g0leE+j9xu +lQR6C/nB5GPPoOpj8+hh9R5f7tN+cOZz3cbwonlkLP3u19lffjDx6nGnePs8 +UhoM6nt7wB+OtLokh4zOo9HVoQ43RvzhxmWrdgceEnVn2gdauQSA51z2VtYm +El2Ko68+3B0AMnfU6x1MSdTU/PdXoHUgDKRtKwp1JtE6LzhNaQgEorXXcVcQ +ieQ3vOiSaQoE3djI/FxsnU67jXzNgWCtQa8dx3Yy8yz79DQQRp+kOqYF43yZ +2FfH/hcI1MMH/mk9QCKp/rvrOj4FguvAjCMljETKPhJ5Xj8CQcRSa+9MBImM +/VilqXpUEPnAYrXHk+j21bloewMqLDgMfuFJINGGHtJcwogKvjmfrllgs3b+ +6C01pcKrrqeZLdjFWzg4O3dQofpNrV39URKt/SHivt6RCtdTDRXpx0g0el5f +gH6QCs/LFpask0nk+MKwN+gQFRZ96yRSsJs5TOg6kVSI/VEh0IR9Ndpc/1kM +FcJyJPw1T5LI3t3Kf+woFVq4TfvXpJDosbL74y3nqODn58D7/BSJMhsTD9Tf +pkKEguv0+jMkOqh7xTiulAp1gWbKO7Fty6oEjMqp8MkqXOcItuCV8bK6e1S4 +mlH4bx92atTe6doaKuzRrq+nnyVRoppy6KNnVLh9ikNEIZ1EIVdehVV/o8IH +WwsDzkwSWa8dN4sapIKFSN19Tex/UjnW6A5TYZve+9/u2ONR+veqxqhw8vwK +bzW2vz195gGTCuCfMOt7gURuvNHh93/j+mtFVz/MIpFVtFREhTgNzvZTdhpc +JNEzeppNzkYaxAYGbPXDNuskleOkaDDZ5D1+FltH5dVnCzkacDSXlH/Flvx4 +1OKLCg1Stk9eP36JRAyTfnFBfRrIydXLNF4m0QWugidBzjR4KrQQw5+H568t +lGfnQgOLSysRW7BPecZFUVxpwP3QUN8eO65m7+a/HjTI5tAQv4jtT3Bm5wbQ +QCjsmrHUVRJRXgZQ2yNp8En4HZfcNRJ9zFZZrZRFg9qfJif/XCdRJVoTPJlN +g5ekBF3sBs6fWWi7d5EGSQIz57Sxda3bkoyu0CCdN6YrADuTI5C0u0mDCzUl +q19g7zpU8DmuggbNuZr2afkkkpU9Y2BeSYOhum3u+dgLLw9d5H5AAyM7KUoN +dqEqsst8iPst1XIewl7p728paqBBgVySpfFNEtXYSpe+6aDB6Z6rUwPY6b+5 +eC+9pMFztz2D37EDSqf93TtpMCBVVLKKTiJhngbp0S4aCJ42u6GFHdboduHX +Bxo4ZfQZJWArqefGKo/RQL56XpO/gES/Px7rmRqnwVt1wbWS2N2pNJ37kzQ4 +r1japIadNKQ3bcykgZT8wVQb7L68Hm+H7zTYljTZdhY7Z5XIzgROAgQo8r// +w24i+z1juAlIFuxwW3uLRBP95VHhvAS4lpXEy2Kb1VgWBAgQsP/jL05T7HG/ +uD82IgTe39ca0djCtjvX7xQlwPfP1I0T2KaG69WQGAES7Rpd57Gz1lTsp0gS +wHdFJuEOe7xhoEpaAef1RE99xCZKKjrElAiYXz4fMsJ+Pit+YJ0KAf2mLfdY +7HqE6BoeNQJiGogEnkI8LmoVzNQh4NxwtoYmdsN/osfHdQk4XLij2QB7bGrw +8qAeAf6f/4oAtklLQmuvEQHLJ679dcQeDauUewIETIZqfY/CXut2VL9uBwGy +XvKXE7CNLXbbVlkSYG0n9isZO1NyOL5kNwFl0jyrsrDree5n0W0I4OZefpCL +PTJ79M5VWwIK/5Iy+dhGz8Xen99LwMaKPpMy7ICqYcZpJwJM7v6PWYl9/sZ9 +rpP7CACfGr8a7OEoa51YNwKq+uMzm7HX+IhbRXgQkGfuvLuVnWc94h3iRYBn +okrbC/b7m46l+/jhcfFqzm52P4I2hW4BBDy3DW3tYectij92ohKgJypt9ZGd +NzTSZUsQ4M1syehj53U+GN8VTAAt0OtSP7u/umMrEEKAmNCM9yA7v9Bmg2kY +AQMno6aG2fnnJbbohxMwGMY0GGPnx41u144goOeIx64JbCFqlZtaFAGbPZok +prANHZIOKcUQwHwncneanW+yJ002loAvZR4cTOwMlY35EnF4/+/nSsxg1wqP +PRRJIIBoap9je+hP1cvViQS0VE+ks9j5E0lDvEkE/Ju4PMm2wbs9P/8ex/2v +4eGfxf4/urcZhg== "]]}, "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.8546486016798219, 1.1647787392729125`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.8546486016798238}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 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 +10455,8 @@ icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.4834141591801878}, + AxesOrigin->{0, 0.8546486016798238}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -5419,7 +10484,8 @@ icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.48341415918018676`, 1.8971786059380225`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.8546486016798219, 1.1647787392729125`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -5427,9 +10493,9 @@ icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913460797739086`*^9}, + CellChangeTimes->{3.9913460797739086`*^9, 3.994014672121147*^9}, CellLabel-> - "Out[443]=",ExpressionUUID->"33ceb84f-c9c7-504c-ae94-1b1d69b769af"] + "Out[118]=",ExpressionUUID->"95522243-214c-43a1-a684-e59a534c2cf4"] }, Open ]], Cell[CellGroupData[{ @@ -5444,30 +10510,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[{"-", @@ -5492,207 +10561,162 @@ 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[\\\"7.670062599437926`*^-274\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 41, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991346080016945*^9, 3.994014672268503*^9}, CellLabel-> "During evaluation of \ -In[444]:=",ExpressionUUID->"b616cb85-0c12-9449-8e54-a070530c7874"], +In[119]:=",ExpressionUUID->"e1bffac2-fc8b-4156-828e-c78663af49c0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.1421038932835147`*^-273\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.0238231562928702`*^-285\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 42, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991346080016945*^9, 3.994014672274766*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"7175a1a3-1f83-4e71-9108-1b22e5a2c05f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.3666301177754511`*^-297\\\", \ \\\"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, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991346080016945*^9, 3.994014672281294*^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->"3e1def2d-e74e-4c4e-ab13-6b9ccbbf1de1"], 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, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991346080016945*^9, 3.994014672287498*^9}, CellLabel-> "During evaluation of \ -In[444]:=",ExpressionUUID->"de9af779-0821-a544-b1ce-6c66cf00e4d6"], +In[119]:=",ExpressionUUID->"18ce45a4-a22b-4e7c-9d58-30182675af17"], 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:eJwV13k4VV0XAHAZQqEiY4Z7rovMoRTutRZKIWRImZXQIEqSmUgplCFjAyFl +vkeRqQhFCn2SNJHS8Mr4mtLkO+9f5/k9zzlnn733WmuvQ+z3t/Xi5ODg4F/G +wfHfdX7wSRsjodDwB6zR4VAxMuy7LhFiNBADtRmJhpYRcoCiPfslBlLhvHeT +Ck+EJgTtKnnFNZAPm/9WKL0MB1gzIZ66+KoK3D9/NkoKt4ahRiv/2Vct8Gt8 +6mFxmDuYMkbfT7/qBRKXePWD/WHx1eb0qVcfYfa37fukw1HQanKr8H/5MxDV +fSGp2zAZpIfqvuxX+wMu7f+GDr7OhLW+7iW8JlzYuTzxfMuf65CqZdpgtZsP +K49YWaXJF8DrrA3N06sFcedzvvGC7UWQUBjVwym5Bs/1rDha41wM4pc/nU+7 +JoJpZw8cXM1dBhKq1Wd+FIngtFaikbFgGUi1nI1yZYtgZ7dlhZ9YGchOKZ9U +ahXBgmWLrHvry0Bh5zGPhm8imEu2i/JaloEO9x/dTzprUa6vqTTvchlYB4qN +aHeuRbcvwVN35MrhnL2ZYe+8KApo8KczFCpA6m63FOcyMfz3rWLeFfUKqBCx +X9BaKYYy8tu5BHQroL/XjZ0iJ4b7Pg12DZhWAMMmkG6zQww778g60w9WQItl +7vLn2WLYo+WfFlhcAX9M57q7mOJ40+frl1VKlZBcFFr6x1QcUTnJga1RCYzl +HPHqNuJIG7PkMdethJ2PVhgleYkjYXdT5tC2Ssgxod3ZeVEc+6L61jt4VsIW +tMh8OiSOwU1uKt+vVcIJvRvuT2IkMMyKzf67nA3meUKzFokS6JNg9HT9CjbQ +ecPju9MlkNzWOW4tyIbnfQ7ki9sS6DdlYJ4uwgaNYwJcg90SuLpV0fW3HBu+ +FZ0q+ldKEnPfGPcabGGDy1qr8XV3JDH69/C+KG826IQ1nL7eKIniotYW5ofY +sOLjejHisSTqv9TVF/ZlQ10lFyi+lsRJ6/3rs4+zQcyiLnnDkiSaV3Vviw2n +xj/N2LjNQgovJgnEdaSwYevkz1C/T1JYzUwxEa9nQ8iOyyoPx6RwNEm4PqiR +DRU31N+IzEth63ir/YsHbJCw99Cr41uHa3kEF2Jb2TBW+2iBS2Md2ik1T7c8 +Y0NaTHJgdvA6jC6K7L83yIaPoop+bYLSaKSkz4rkIEHcv0lGXFwapS2cA2I4 +SdjZsbfrEE0af9Le98Ryk1ATmqC2SkcaTy81ckfykXBhaGrUca80xm7RdN61 +mgTt4gafyXxplGT6fvWVI+E002af1BYZvDN8mv+cAQk73K7/u9lYBuPcVz60 +Z5EgFP09dvdOGfTyTV0vByRcbY0rSvaQQcMQTv4SYxJqzeu/Lz8vg6vsz0hm +mZEwtVc+aOa1DL7U0O566UDCvdBjvGtGZLCtnJv020tC5NX7WRoTMihnMWnO +7USCwIc9DYc4ZXFHSU2+gisJSj6JHB9UZDFTfHQcPUlwOzl34VkYZUfO3W/8 +SFDINJYejZNFz7M7ug2PkdT6XSrnTZZF9G3mzjtOQuhv5efGhbJozqlRujeQ +hPRYN9G6Z7Jo25n6PT+EhGcp7bk3ZeSQSWeVXIklIe3OWq1WJTmcxyGtZ2dI +cHq5r+WDlhwmvWuLXIwj4ZvE75F1pnIYpRd92DyeBK68DSqpfnI43TeT9SiR +BP2K7LuRTXIoFdjUTaSTsPVV95+JDjn0V48UE8ogwYqDe7t7rxzqlWPGAmVP +W7/X8FkO/7FsgpYsEkzDiKhoHhp+emC5Q/cqCcfk5guMVGkooW+Sm51Pwtyd +5I5FTRpujMrIdyyg5rdDdZzcSEPev3OfxQpJiDvuoUs3pKGh74zG+Zsk5LR2 +dnDa0DC16uHAztsktPnkjrcG0VB6+U1um3ISzH7rCYeH0bBsHc3sM+Xu5D7d +jdE07CWc+4MqSHhdxx9deJ6Gnzvtu1IqSZhYGSgcd5WGGYq7WbdIEk7kCW1m +3aChbveTVwpVJPzYWOw8d5OGHmUZTTcoc7kNFnpV0nClVUpIyh0SJNg7Npu2 +0JDTPvPWrmoSrm395Pz3MQ31Dzncr6NMfx0RXfOUhntzNBRoNSSoc955oviS +hodvZ4yPUK7KsJwYfE3D54Zu1ib3SNii+k04c5BaD88KnlzKxvYyLrzfaDh2 +2S3AqpaE9m/3opvGaGhg8Us5n/LOCNubp6Zp2PQhe8sM5T1F5ya+/qRhUo2L +a1IdCb4/pqM7BAlsCrzSf6Oe2s/j3mJfhAm80F4c/Jky3+ibUi4JAvvFL3Mo +NpBw821rvyGdwH8mtz66RjnQfouvixKBikUk10vKxl1ly0LVCMyuNlXlbyRh +8EG6WrUugR8MQe8g5bLNK1p6DQhkHLcm0iiHsiP3TCGBlr7Dc/WUdyjPjAma +Ejib2nVviLJYvk+MqgWBvGLjPsvukzAi9U7cbBeB0rOSvDTKVWm7yr13E/j1 +h0aGAeVogUfGZ5wILGjkFbOnbB2nN3DDncDDBdHnDlGW/Vt+tOkAgeXvgr6H +UR4LonO9P0Rg2v4O4wTK9ZMZWT/9CHRZtLuYSTn+4EoNiUACezQWu/MoOwxH +tW4KoebnmMVzizLDaXavXSSBdVnCOiWU/+09OHEslppvr9ne/9xs8T72YjyB +76tpQf/df7HNRrIsicAf1aFJNyi7sB5XPEklcJ8gMzeLskqN/tavmQReajAr +S6S8qFH5mvsagUVnzldHUO64Je9PzyfwzdRwwxHKGbQsbrxF4GsL/WYHygey +BXJcy6j1LQxtNaSsLXxaM4wkMLwz4bE8ZY6EubasGgJNbPZ08lDu5jrsVNNA +PZ/Q3jNCrffV8MHJF80ErrzY/qqZ8pE527jpRwT6qJp8yqas79cuteopgeS8 +4ow/Zb6vBmy15wRuMPLgM6FcOMB46/OGQEmrRNMPVDwE2GQfixsicJe36/ES +ytgpuLxghEDiNt48Tvl9w/yGwQkCb3hzqi1Q8Va28cjjXzNUvK19FF1NObR8 +yFlykcAAq/0fj1EWy+04a89FR54Hv3sGqfgdEWdJB/DR0X78k2sK5apkkrwk +SMfQ7JDfSNk6Juddpzgdb+sm+mdS8R/v5attpEbHF13BOwgqfxwGP7S7adFx +n+piUCOVb4w9u13DdemYuTB9355y8w7D+HtIR3cpyA6n8nVRdfWg+m46xncI +3iim8nv+mtRpHSc6bpIaWdSkPLtKgaHnTsc422dJd6h6MDGjd3jrITo2DeQf +rqLqx8cGz3mnCDomlLNELlH1ZUjdL9sjho62RoHuS1T9eZcbzPQ+R8dXqUcn +fCn3xybFHE+hY3J44gBQ9arT4p5Q/E067rrw+kdbCZXv9x+SSSV0FP0aFSRH +uU3zmX1aJR1na5oNTxWT8EBkOOd6HR0fv+C7I0vVw6q3K5Squ+hoUJNuavlf +vTziBh/n6DgWefWnci4Jme8Pfvz6k46l3CI5jtdJuGx9Im58iY5vbUwun71G +xa9O/NMf/PKY3D12deAKCTG/yD2rZOWxu8tY2pWq50cSeI4xTeVRxbux4Vsy +CczSsryMDHk8//D80JpoEt7SSnO3XZHHXnn3i5xR1P5mFF+fzZVH1bBzgtMR +1Hl5uuiqbbE8Tos4R7eHUfG7Ny9LqFEeLbd+2+V0igRlnsvJZ4flcUtkupcE +dR6KuYdFB6kx8LfLisrfjiRU94VEKWgxcGVxiUIxdd7amwdH9m1ioHNw+nm7 +PSSkbjoZrg0MtN6zJJ1vT4KggH/whA0Dr8grJipak8Bdt/+Y9ykGDj976tJl +QsK0sLmHQwsD+4043bNVSRjwpT8/3M7AozG5/J+Uqfh4/BOinjHwyNVEH5X1 +JCSHlsrd7meg7kND4yoGCRs+CgwtjjKwd9nx9CIZEvzIHtdrIgr4SfRqO30V +CaPWu51HDiigTs+Z1QFTbBhJ9HAI4FXE+otP+qvK2OA3qkbfIKCIBQXTOdkl +bFjYvjg+vloRQflKYeRtqn/jSo07JKWIq7JuJ5oUsmFDSOtdD3VFfJej2VV7 +hQ0RXooi1naKyM8Z/NvmAtXPGY71qOYq4kZhnihTqh80mzxl9llXCd/eCmg/ +IUn1Y558J+5GrUcxvYfhsk0V1P+EOOe5FmXUz1tylFQqB+EuxYvsSRWsz97/ +QyypFKTjK3fp6qqh2Hf4sqy+GLJU9VaL+KjjQsmJhIUft6BTymjTTIoGzjq6 +7akzKAJ96ZZkzX5NTBn7uRqcCkGIKz9wX8wGDLv76Ih1Xj7InpZjOipq4Qea +hI5ETx7wK7jU2LZrYe1+/1pl7eugwZKsPOWqjQX9WYK7lK9AwKBwqzmHDlpW +XhJyWZ0FkzOJu82ydFDs1qKniVs6bNd8nGOmvhGZyTWpfaOp8GDG4NdC90Yk +Bu3+LIUkg5+a9pv/eW3Ceoe5ir/dicCaONDnyK+LouP3fbgexsM2hoSlYL4u +MjkEshNd42B99IXgls2bMbNONuGvVwyoeOk1KbzZjPGH8ULduijwenDwzN3j +W1Cc8bbzy4lQaMrrOzAtqoeik3PZb1cFweztpQXNe3oYf+nDiKtTAHgqlPLn +WOpjraD4sXUP/WBaJU23akofhW/sHtIzPAS1hb+G5+IN0OORCb4ePgBOW+XR +QJaJ1gUTfH9xH/zp4xNqpTHx52TPsgva+yDPa+KtuTwTe0KfxdIY++DL2bpT +TuuZ+OK2/4qjvPsg4Il1ZYg2EwN+bQ2K7faAC1bhsrWmTKy4XOyX5+YB9Xtf +/t7oz8T7rbNiwwLusO7ouTqNZiZ+WdAzYX5xhotL3psSWpg4fzTrn74eZ+BM +NSW/tjFxjYS0Y0SdM4zW8BTnPWHiYLK6/59EZ6jnOJMl/IKJ3m0nQ+o2OoPT +5ehT85+p7zeeJCTPOUFWQ8imBytZ+CLX1H7LZkcQXeFLWu5h4encTGOhVgco +NIkInXJkoeoJSy6lCgfQjrhokubCQi3Ob/W7sh3Aaor9cmAfCwPT+If7/R3g +bP/coqcvCxs8h5+UyTjAj/wo49DTLLz9T53iyfDd8MYg7UVRKQvTGvUmlU3t +4eDJwqtmFSxkKrd0WOjYw3xFtdcYm4V71Hw3RdDsQZg+sKBVw0IUFb0m9MsO +LPhkpO83s/C6/qmQUbYdNPYVHXjxkho/ZlI0Qs4OzIVq1YMGWMgb1EFLE7SD +ge1P5iXesvCf0sm1tb9sYbb+e7zbBxZal/td0hiwBfUbG8r/GWUhJxqVPEux +hcY3RkGJ4yx0ZoW82xttC+Zr7UBzioWH1ERvzvjZgve5k/8LnGPh35MHn9vv +pN7XfDZH/AcLN/UXyq4zsIWYn5me9T9ZOKdl/WZS2RZWbyxWc/3DQi6TzYu9 +ErZw/Wj93NISC7tWaB9v47WF/wNIF4q4 "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -5706,166 +10730,117 @@ 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:eJwV13k4VV0XAHAZQqEiY4Z7rovMoRTutRZKIWRImZXQIEqSmUgplCFjAyFl +vkeRqQhFCn2SNJHS8Mr4mtLkO+9f5/k9zzlnn733WmuvQ+z3t/Xi5ODg4F/G +wfHfdX7wSRsjodDwB6zR4VAxMuy7LhFiNBADtRmJhpYRcoCiPfslBlLhvHeT +Ck+EJgTtKnnFNZAPm/9WKL0MB1gzIZ66+KoK3D9/NkoKt4ahRiv/2Vct8Gt8 +6mFxmDuYMkbfT7/qBRKXePWD/WHx1eb0qVcfYfa37fukw1HQanKr8H/5MxDV +fSGp2zAZpIfqvuxX+wMu7f+GDr7OhLW+7iW8JlzYuTzxfMuf65CqZdpgtZsP +K49YWaXJF8DrrA3N06sFcedzvvGC7UWQUBjVwym5Bs/1rDha41wM4pc/nU+7 +JoJpZw8cXM1dBhKq1Wd+FIngtFaikbFgGUi1nI1yZYtgZ7dlhZ9YGchOKZ9U +ahXBgmWLrHvry0Bh5zGPhm8imEu2i/JaloEO9x/dTzprUa6vqTTvchlYB4qN +aHeuRbcvwVN35MrhnL2ZYe+8KApo8KczFCpA6m63FOcyMfz3rWLeFfUKqBCx +X9BaKYYy8tu5BHQroL/XjZ0iJ4b7Pg12DZhWAMMmkG6zQww778g60w9WQItl +7vLn2WLYo+WfFlhcAX9M57q7mOJ40+frl1VKlZBcFFr6x1QcUTnJga1RCYzl +HPHqNuJIG7PkMdethJ2PVhgleYkjYXdT5tC2Ssgxod3ZeVEc+6L61jt4VsIW +tMh8OiSOwU1uKt+vVcIJvRvuT2IkMMyKzf67nA3meUKzFokS6JNg9HT9CjbQ +ecPju9MlkNzWOW4tyIbnfQ7ki9sS6DdlYJ4uwgaNYwJcg90SuLpV0fW3HBu+ +FZ0q+ldKEnPfGPcabGGDy1qr8XV3JDH69/C+KG826IQ1nL7eKIniotYW5ofY +sOLjejHisSTqv9TVF/ZlQ10lFyi+lsRJ6/3rs4+zQcyiLnnDkiSaV3Vviw2n +xj/N2LjNQgovJgnEdaSwYevkz1C/T1JYzUwxEa9nQ8iOyyoPx6RwNEm4PqiR +DRU31N+IzEth63ir/YsHbJCw99Cr41uHa3kEF2Jb2TBW+2iBS2Md2ik1T7c8 +Y0NaTHJgdvA6jC6K7L83yIaPoop+bYLSaKSkz4rkIEHcv0lGXFwapS2cA2I4 +SdjZsbfrEE0af9Le98Ryk1ATmqC2SkcaTy81ckfykXBhaGrUca80xm7RdN61 +mgTt4gafyXxplGT6fvWVI+E002af1BYZvDN8mv+cAQk73K7/u9lYBuPcVz60 +Z5EgFP09dvdOGfTyTV0vByRcbY0rSvaQQcMQTv4SYxJqzeu/Lz8vg6vsz0hm +mZEwtVc+aOa1DL7U0O566UDCvdBjvGtGZLCtnJv020tC5NX7WRoTMihnMWnO +7USCwIc9DYc4ZXFHSU2+gisJSj6JHB9UZDFTfHQcPUlwOzl34VkYZUfO3W/8 +SFDINJYejZNFz7M7ug2PkdT6XSrnTZZF9G3mzjtOQuhv5efGhbJozqlRujeQ +hPRYN9G6Z7Jo25n6PT+EhGcp7bk3ZeSQSWeVXIklIe3OWq1WJTmcxyGtZ2dI +cHq5r+WDlhwmvWuLXIwj4ZvE75F1pnIYpRd92DyeBK68DSqpfnI43TeT9SiR +BP2K7LuRTXIoFdjUTaSTsPVV95+JDjn0V48UE8ogwYqDe7t7rxzqlWPGAmVP +W7/X8FkO/7FsgpYsEkzDiKhoHhp+emC5Q/cqCcfk5guMVGkooW+Sm51Pwtyd +5I5FTRpujMrIdyyg5rdDdZzcSEPev3OfxQpJiDvuoUs3pKGh74zG+Zsk5LR2 +dnDa0DC16uHAztsktPnkjrcG0VB6+U1um3ISzH7rCYeH0bBsHc3sM+Xu5D7d +jdE07CWc+4MqSHhdxx9deJ6Gnzvtu1IqSZhYGSgcd5WGGYq7WbdIEk7kCW1m +3aChbveTVwpVJPzYWOw8d5OGHmUZTTcoc7kNFnpV0nClVUpIyh0SJNg7Npu2 +0JDTPvPWrmoSrm395Pz3MQ31Dzncr6NMfx0RXfOUhntzNBRoNSSoc955oviS +hodvZ4yPUK7KsJwYfE3D54Zu1ib3SNii+k04c5BaD88KnlzKxvYyLrzfaDh2 +2S3AqpaE9m/3opvGaGhg8Us5n/LOCNubp6Zp2PQhe8sM5T1F5ya+/qRhUo2L +a1IdCb4/pqM7BAlsCrzSf6Oe2s/j3mJfhAm80F4c/Jky3+ibUi4JAvvFL3Mo +NpBw821rvyGdwH8mtz66RjnQfouvixKBikUk10vKxl1ly0LVCMyuNlXlbyRh +8EG6WrUugR8MQe8g5bLNK1p6DQhkHLcm0iiHsiP3TCGBlr7Dc/WUdyjPjAma +Ejib2nVviLJYvk+MqgWBvGLjPsvukzAi9U7cbBeB0rOSvDTKVWm7yr13E/j1 +h0aGAeVogUfGZ5wILGjkFbOnbB2nN3DDncDDBdHnDlGW/Vt+tOkAgeXvgr6H +UR4LonO9P0Rg2v4O4wTK9ZMZWT/9CHRZtLuYSTn+4EoNiUACezQWu/MoOwxH +tW4KoebnmMVzizLDaXavXSSBdVnCOiWU/+09OHEslppvr9ne/9xs8T72YjyB +76tpQf/df7HNRrIsicAf1aFJNyi7sB5XPEklcJ8gMzeLskqN/tavmQReajAr +S6S8qFH5mvsagUVnzldHUO64Je9PzyfwzdRwwxHKGbQsbrxF4GsL/WYHygey +BXJcy6j1LQxtNaSsLXxaM4wkMLwz4bE8ZY6EubasGgJNbPZ08lDu5jrsVNNA +PZ/Q3jNCrffV8MHJF80ErrzY/qqZ8pE527jpRwT6qJp8yqas79cuteopgeS8 +4ow/Zb6vBmy15wRuMPLgM6FcOMB46/OGQEmrRNMPVDwE2GQfixsicJe36/ES +ytgpuLxghEDiNt48Tvl9w/yGwQkCb3hzqi1Q8Va28cjjXzNUvK19FF1NObR8 +yFlykcAAq/0fj1EWy+04a89FR54Hv3sGqfgdEWdJB/DR0X78k2sK5apkkrwk +SMfQ7JDfSNk6Juddpzgdb+sm+mdS8R/v5attpEbHF13BOwgqfxwGP7S7adFx +n+piUCOVb4w9u13DdemYuTB9355y8w7D+HtIR3cpyA6n8nVRdfWg+m46xncI +3iim8nv+mtRpHSc6bpIaWdSkPLtKgaHnTsc422dJd6h6MDGjd3jrITo2DeQf +rqLqx8cGz3mnCDomlLNELlH1ZUjdL9sjho62RoHuS1T9eZcbzPQ+R8dXqUcn +fCn3xybFHE+hY3J44gBQ9arT4p5Q/E067rrw+kdbCZXv9x+SSSV0FP0aFSRH +uU3zmX1aJR1na5oNTxWT8EBkOOd6HR0fv+C7I0vVw6q3K5Squ+hoUJNuavlf +vTziBh/n6DgWefWnci4Jme8Pfvz6k46l3CI5jtdJuGx9Im58iY5vbUwun71G +xa9O/NMf/PKY3D12deAKCTG/yD2rZOWxu8tY2pWq50cSeI4xTeVRxbux4Vsy +CczSsryMDHk8//D80JpoEt7SSnO3XZHHXnn3i5xR1P5mFF+fzZVH1bBzgtMR +1Hl5uuiqbbE8Tos4R7eHUfG7Ny9LqFEeLbd+2+V0igRlnsvJZ4flcUtkupcE +dR6KuYdFB6kx8LfLisrfjiRU94VEKWgxcGVxiUIxdd7amwdH9m1ioHNw+nm7 +PSSkbjoZrg0MtN6zJJ1vT4KggH/whA0Dr8grJipak8Bdt/+Y9ykGDj976tJl +QsK0sLmHQwsD+4043bNVSRjwpT8/3M7AozG5/J+Uqfh4/BOinjHwyNVEH5X1 +JCSHlsrd7meg7kND4yoGCRs+CgwtjjKwd9nx9CIZEvzIHtdrIgr4SfRqO30V +CaPWu51HDiigTs+Z1QFTbBhJ9HAI4FXE+otP+qvK2OA3qkbfIKCIBQXTOdkl +bFjYvjg+vloRQflKYeRtqn/jSo07JKWIq7JuJ5oUsmFDSOtdD3VFfJej2VV7 +hQ0RXooi1naKyM8Z/NvmAtXPGY71qOYq4kZhnihTqh80mzxl9llXCd/eCmg/ +IUn1Y558J+5GrUcxvYfhsk0V1P+EOOe5FmXUz1tylFQqB+EuxYvsSRWsz97/ +QyypFKTjK3fp6qqh2Hf4sqy+GLJU9VaL+KjjQsmJhIUft6BTymjTTIoGzjq6 +7akzKAJ96ZZkzX5NTBn7uRqcCkGIKz9wX8wGDLv76Ih1Xj7InpZjOipq4Qea +hI5ETx7wK7jU2LZrYe1+/1pl7eugwZKsPOWqjQX9WYK7lK9AwKBwqzmHDlpW +XhJyWZ0FkzOJu82ydFDs1qKniVs6bNd8nGOmvhGZyTWpfaOp8GDG4NdC90Yk +Bu3+LIUkg5+a9pv/eW3Ceoe5ir/dicCaONDnyK+LouP3fbgexsM2hoSlYL4u +MjkEshNd42B99IXgls2bMbNONuGvVwyoeOk1KbzZjPGH8ULduijwenDwzN3j +W1Cc8bbzy4lQaMrrOzAtqoeik3PZb1cFweztpQXNe3oYf+nDiKtTAHgqlPLn +WOpjraD4sXUP/WBaJU23akofhW/sHtIzPAS1hb+G5+IN0OORCb4ePgBOW+XR +QJaJ1gUTfH9xH/zp4xNqpTHx52TPsgva+yDPa+KtuTwTe0KfxdIY++DL2bpT +TuuZ+OK2/4qjvPsg4Il1ZYg2EwN+bQ2K7faAC1bhsrWmTKy4XOyX5+YB9Xtf +/t7oz8T7rbNiwwLusO7ouTqNZiZ+WdAzYX5xhotL3psSWpg4fzTrn74eZ+BM +NSW/tjFxjYS0Y0SdM4zW8BTnPWHiYLK6/59EZ6jnOJMl/IKJ3m0nQ+o2OoPT +5ehT85+p7zeeJCTPOUFWQ8imBytZ+CLX1H7LZkcQXeFLWu5h4encTGOhVgco +NIkInXJkoeoJSy6lCgfQjrhokubCQi3Ob/W7sh3Aaor9cmAfCwPT+If7/R3g +bP/coqcvCxs8h5+UyTjAj/wo49DTLLz9T53iyfDd8MYg7UVRKQvTGvUmlU3t +4eDJwqtmFSxkKrd0WOjYw3xFtdcYm4V71Hw3RdDsQZg+sKBVw0IUFb0m9MsO +LPhkpO83s/C6/qmQUbYdNPYVHXjxkho/ZlI0Qs4OzIVq1YMGWMgb1EFLE7SD +ge1P5iXesvCf0sm1tb9sYbb+e7zbBxZal/td0hiwBfUbG8r/GWUhJxqVPEux +hcY3RkGJ4yx0ZoW82xttC+Zr7UBzioWH1ERvzvjZgve5k/8LnGPh35MHn9vv +pN7XfDZH/AcLN/UXyq4zsIWYn5me9T9ZOKdl/WZS2RZWbyxWc/3DQi6TzYu9 +ErZw/Wj93NISC7tWaB9v47WF/wNIF4q4 "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "PlotRange" -> {{0, 30}, {0., 0.06930031447866325}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +10852,19 @@ heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "PlotRange" -> {{0, 30}, {0., 0.06930031447866325}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +10878,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:eJwV13k4VV0XAHAZQqEiY4Z7rovMoRTutRZKIWRImZXQIEqSmUgplCFjAyFl +vkeRqQhFCn2SNJHS8Mr4mtLkO+9f5/k9zzlnn733WmuvQ+z3t/Xi5ODg4F/G +wfHfdX7wSRsjodDwB6zR4VAxMuy7LhFiNBADtRmJhpYRcoCiPfslBlLhvHeT +Ck+EJgTtKnnFNZAPm/9WKL0MB1gzIZ66+KoK3D9/NkoKt4ahRiv/2Vct8Gt8 +6mFxmDuYMkbfT7/qBRKXePWD/WHx1eb0qVcfYfa37fukw1HQanKr8H/5MxDV +fSGp2zAZpIfqvuxX+wMu7f+GDr7OhLW+7iW8JlzYuTzxfMuf65CqZdpgtZsP +K49YWaXJF8DrrA3N06sFcedzvvGC7UWQUBjVwym5Bs/1rDha41wM4pc/nU+7 +JoJpZw8cXM1dBhKq1Wd+FIngtFaikbFgGUi1nI1yZYtgZ7dlhZ9YGchOKZ9U +ahXBgmWLrHvry0Bh5zGPhm8imEu2i/JaloEO9x/dTzprUa6vqTTvchlYB4qN +aHeuRbcvwVN35MrhnL2ZYe+8KApo8KczFCpA6m63FOcyMfz3rWLeFfUKqBCx +X9BaKYYy8tu5BHQroL/XjZ0iJ4b7Pg12DZhWAMMmkG6zQww778g60w9WQItl +7vLn2WLYo+WfFlhcAX9M57q7mOJ40+frl1VKlZBcFFr6x1QcUTnJga1RCYzl +HPHqNuJIG7PkMdethJ2PVhgleYkjYXdT5tC2Ssgxod3ZeVEc+6L61jt4VsIW +tMh8OiSOwU1uKt+vVcIJvRvuT2IkMMyKzf67nA3meUKzFokS6JNg9HT9CjbQ +ecPju9MlkNzWOW4tyIbnfQ7ki9sS6DdlYJ4uwgaNYwJcg90SuLpV0fW3HBu+ +FZ0q+ldKEnPfGPcabGGDy1qr8XV3JDH69/C+KG826IQ1nL7eKIniotYW5ofY +sOLjejHisSTqv9TVF/ZlQ10lFyi+lsRJ6/3rs4+zQcyiLnnDkiSaV3Vviw2n +xj/N2LjNQgovJgnEdaSwYevkz1C/T1JYzUwxEa9nQ8iOyyoPx6RwNEm4PqiR +DRU31N+IzEth63ir/YsHbJCw99Cr41uHa3kEF2Jb2TBW+2iBS2Md2ik1T7c8 +Y0NaTHJgdvA6jC6K7L83yIaPoop+bYLSaKSkz4rkIEHcv0lGXFwapS2cA2I4 +SdjZsbfrEE0af9Le98Ryk1ATmqC2SkcaTy81ckfykXBhaGrUca80xm7RdN61 +mgTt4gafyXxplGT6fvWVI+E002af1BYZvDN8mv+cAQk73K7/u9lYBuPcVz60 +Z5EgFP09dvdOGfTyTV0vByRcbY0rSvaQQcMQTv4SYxJqzeu/Lz8vg6vsz0hm +mZEwtVc+aOa1DL7U0O566UDCvdBjvGtGZLCtnJv020tC5NX7WRoTMihnMWnO +7USCwIc9DYc4ZXFHSU2+gisJSj6JHB9UZDFTfHQcPUlwOzl34VkYZUfO3W/8 +SFDINJYejZNFz7M7ug2PkdT6XSrnTZZF9G3mzjtOQuhv5efGhbJozqlRujeQ +hPRYN9G6Z7Jo25n6PT+EhGcp7bk3ZeSQSWeVXIklIe3OWq1WJTmcxyGtZ2dI +cHq5r+WDlhwmvWuLXIwj4ZvE75F1pnIYpRd92DyeBK68DSqpfnI43TeT9SiR +BP2K7LuRTXIoFdjUTaSTsPVV95+JDjn0V48UE8ogwYqDe7t7rxzqlWPGAmVP +W7/X8FkO/7FsgpYsEkzDiKhoHhp+emC5Q/cqCcfk5guMVGkooW+Sm51Pwtyd +5I5FTRpujMrIdyyg5rdDdZzcSEPev3OfxQpJiDvuoUs3pKGh74zG+Zsk5LR2 +dnDa0DC16uHAztsktPnkjrcG0VB6+U1um3ISzH7rCYeH0bBsHc3sM+Xu5D7d +jdE07CWc+4MqSHhdxx9deJ6Gnzvtu1IqSZhYGSgcd5WGGYq7WbdIEk7kCW1m +3aChbveTVwpVJPzYWOw8d5OGHmUZTTcoc7kNFnpV0nClVUpIyh0SJNg7Npu2 +0JDTPvPWrmoSrm395Pz3MQ31Dzncr6NMfx0RXfOUhntzNBRoNSSoc955oviS +hodvZ4yPUK7KsJwYfE3D54Zu1ib3SNii+k04c5BaD88KnlzKxvYyLrzfaDh2 +2S3AqpaE9m/3opvGaGhg8Us5n/LOCNubp6Zp2PQhe8sM5T1F5ya+/qRhUo2L +a1IdCb4/pqM7BAlsCrzSf6Oe2s/j3mJfhAm80F4c/Jky3+ibUi4JAvvFL3Mo +NpBw821rvyGdwH8mtz66RjnQfouvixKBikUk10vKxl1ly0LVCMyuNlXlbyRh +8EG6WrUugR8MQe8g5bLNK1p6DQhkHLcm0iiHsiP3TCGBlr7Dc/WUdyjPjAma +Ejib2nVviLJYvk+MqgWBvGLjPsvukzAi9U7cbBeB0rOSvDTKVWm7yr13E/j1 +h0aGAeVogUfGZ5wILGjkFbOnbB2nN3DDncDDBdHnDlGW/Vt+tOkAgeXvgr6H +UR4LonO9P0Rg2v4O4wTK9ZMZWT/9CHRZtLuYSTn+4EoNiUACezQWu/MoOwxH +tW4KoebnmMVzizLDaXavXSSBdVnCOiWU/+09OHEslppvr9ne/9xs8T72YjyB +76tpQf/df7HNRrIsicAf1aFJNyi7sB5XPEklcJ8gMzeLskqN/tavmQReajAr +S6S8qFH5mvsagUVnzldHUO64Je9PzyfwzdRwwxHKGbQsbrxF4GsL/WYHygey +BXJcy6j1LQxtNaSsLXxaM4wkMLwz4bE8ZY6EubasGgJNbPZ08lDu5jrsVNNA +PZ/Q3jNCrffV8MHJF80ErrzY/qqZ8pE527jpRwT6qJp8yqas79cuteopgeS8 +4ow/Zb6vBmy15wRuMPLgM6FcOMB46/OGQEmrRNMPVDwE2GQfixsicJe36/ES +ytgpuLxghEDiNt48Tvl9w/yGwQkCb3hzqi1Q8Va28cjjXzNUvK19FF1NObR8 +yFlykcAAq/0fj1EWy+04a89FR54Hv3sGqfgdEWdJB/DR0X78k2sK5apkkrwk +SMfQ7JDfSNk6Juddpzgdb+sm+mdS8R/v5attpEbHF13BOwgqfxwGP7S7adFx +n+piUCOVb4w9u13DdemYuTB9355y8w7D+HtIR3cpyA6n8nVRdfWg+m46xncI +3iim8nv+mtRpHSc6bpIaWdSkPLtKgaHnTsc422dJd6h6MDGjd3jrITo2DeQf +rqLqx8cGz3mnCDomlLNELlH1ZUjdL9sjho62RoHuS1T9eZcbzPQ+R8dXqUcn +fCn3xybFHE+hY3J44gBQ9arT4p5Q/E067rrw+kdbCZXv9x+SSSV0FP0aFSRH +uU3zmX1aJR1na5oNTxWT8EBkOOd6HR0fv+C7I0vVw6q3K5Squ+hoUJNuavlf +vTziBh/n6DgWefWnci4Jme8Pfvz6k46l3CI5jtdJuGx9Im58iY5vbUwun71G +xa9O/NMf/PKY3D12deAKCTG/yD2rZOWxu8tY2pWq50cSeI4xTeVRxbux4Vsy +CczSsryMDHk8//D80JpoEt7SSnO3XZHHXnn3i5xR1P5mFF+fzZVH1bBzgtMR +1Hl5uuiqbbE8Tos4R7eHUfG7Ny9LqFEeLbd+2+V0igRlnsvJZ4flcUtkupcE +dR6KuYdFB6kx8LfLisrfjiRU94VEKWgxcGVxiUIxdd7amwdH9m1ioHNw+nm7 +PSSkbjoZrg0MtN6zJJ1vT4KggH/whA0Dr8grJipak8Bdt/+Y9ykGDj976tJl +QsK0sLmHQwsD+4043bNVSRjwpT8/3M7AozG5/J+Uqfh4/BOinjHwyNVEH5X1 +JCSHlsrd7meg7kND4yoGCRs+CgwtjjKwd9nx9CIZEvzIHtdrIgr4SfRqO30V +CaPWu51HDiigTs+Z1QFTbBhJ9HAI4FXE+otP+qvK2OA3qkbfIKCIBQXTOdkl +bFjYvjg+vloRQflKYeRtqn/jSo07JKWIq7JuJ5oUsmFDSOtdD3VFfJej2VV7 +hQ0RXooi1naKyM8Z/NvmAtXPGY71qOYq4kZhnihTqh80mzxl9llXCd/eCmg/ +IUn1Y558J+5GrUcxvYfhsk0V1P+EOOe5FmXUz1tylFQqB+EuxYvsSRWsz97/ +QyypFKTjK3fp6qqh2Hf4sqy+GLJU9VaL+KjjQsmJhIUft6BTymjTTIoGzjq6 +7akzKAJ96ZZkzX5NTBn7uRqcCkGIKz9wX8wGDLv76Ih1Xj7InpZjOipq4Qea +hI5ETx7wK7jU2LZrYe1+/1pl7eugwZKsPOWqjQX9WYK7lK9AwKBwqzmHDlpW +XhJyWZ0FkzOJu82ydFDs1qKniVs6bNd8nGOmvhGZyTWpfaOp8GDG4NdC90Yk +Bu3+LIUkg5+a9pv/eW3Ceoe5ir/dicCaONDnyK+LouP3fbgexsM2hoSlYL4u +MjkEshNd42B99IXgls2bMbNONuGvVwyoeOk1KbzZjPGH8ULduijwenDwzN3j +W1Cc8bbzy4lQaMrrOzAtqoeik3PZb1cFweztpQXNe3oYf+nDiKtTAHgqlPLn +WOpjraD4sXUP/WBaJU23akofhW/sHtIzPAS1hb+G5+IN0OORCb4ePgBOW+XR +QJaJ1gUTfH9xH/zp4xNqpTHx52TPsgva+yDPa+KtuTwTe0KfxdIY++DL2bpT +TuuZ+OK2/4qjvPsg4Il1ZYg2EwN+bQ2K7faAC1bhsrWmTKy4XOyX5+YB9Xtf +/t7oz8T7rbNiwwLusO7ouTqNZiZ+WdAzYX5xhotL3psSWpg4fzTrn74eZ+BM +NSW/tjFxjYS0Y0SdM4zW8BTnPWHiYLK6/59EZ6jnOJMl/IKJ3m0nQ+o2OoPT +5ehT85+p7zeeJCTPOUFWQ8imBytZ+CLX1H7LZkcQXeFLWu5h4encTGOhVgco +NIkInXJkoeoJSy6lCgfQjrhokubCQi3Ob/W7sh3Aaor9cmAfCwPT+If7/R3g +bP/coqcvCxs8h5+UyTjAj/wo49DTLLz9T53iyfDd8MYg7UVRKQvTGvUmlU3t +4eDJwqtmFSxkKrd0WOjYw3xFtdcYm4V71Hw3RdDsQZg+sKBVw0IUFb0m9MsO +LPhkpO83s/C6/qmQUbYdNPYVHXjxkho/ZlI0Qs4OzIVq1YMGWMgb1EFLE7SD +ge1P5iXesvCf0sm1tb9sYbb+e7zbBxZal/td0hiwBfUbG8r/GWUhJxqVPEux +hcY3RkGJ4yx0ZoW82xttC+Zr7UBzioWH1ERvzvjZgve5k/8LnGPh35MHn9vv +pN7XfDZH/AcLN/UXyq4zsIWYn5me9T9ZOKdl/WZS2RZWbyxWc/3DQi6TzYu9 +ErZw/Wj93NISC7tWaB9v47WF/wNIF4q4 "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "PlotRange" -> {{0, 30}, {0., 0.06930031447866325}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +10998,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 +11026,8 @@ heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.1760850255633475}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06930031447866325}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -6107,17 +11035,571 @@ heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913465524249306`*^9}, + CellChangeTimes->{3.9913465524249306`*^9, 3.994014979083619*^9}, CellLabel-> - "Out[444]=",ExpressionUUID->"d2a47969-eb62-c243-9b06-713ae9ea0a7d"] + "Out[119]=",ExpressionUUID->"c31a58be-8103-40b1-928c-2909fbdd4dab"] }, 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:eJwV13k4VV0XAHAZQqEiY4Z7rovMoRTutRZKIWRImZXQIEqSmUgplCFjAyFl +vkeRqQhFCn2SNJHS8Mr4mtLkO+9f5/k9zzlnn733WmuvQ+z3t/Xi5ODg4F/G +wfHfdX7wSRsjodDwB6zR4VAxMuy7LhFiNBADtRmJhpYRcoCiPfslBlLhvHeT +Ck+EJgTtKnnFNZAPm/9WKL0MB1gzIZ66+KoK3D9/NkoKt4ahRiv/2Vct8Gt8 +6mFxmDuYMkbfT7/qBRKXePWD/WHx1eb0qVcfYfa37fukw1HQanKr8H/5MxDV +fSGp2zAZpIfqvuxX+wMu7f+GDr7OhLW+7iW8JlzYuTzxfMuf65CqZdpgtZsP +K49YWaXJF8DrrA3N06sFcedzvvGC7UWQUBjVwym5Bs/1rDha41wM4pc/nU+7 +JoJpZw8cXM1dBhKq1Wd+FIngtFaikbFgGUi1nI1yZYtgZ7dlhZ9YGchOKZ9U +ahXBgmWLrHvry0Bh5zGPhm8imEu2i/JaloEO9x/dTzprUa6vqTTvchlYB4qN +aHeuRbcvwVN35MrhnL2ZYe+8KApo8KczFCpA6m63FOcyMfz3rWLeFfUKqBCx +X9BaKYYy8tu5BHQroL/XjZ0iJ4b7Pg12DZhWAMMmkG6zQww778g60w9WQItl +7vLn2WLYo+WfFlhcAX9M57q7mOJ40+frl1VKlZBcFFr6x1QcUTnJga1RCYzl +HPHqNuJIG7PkMdethJ2PVhgleYkjYXdT5tC2Ssgxod3ZeVEc+6L61jt4VsIW +tMh8OiSOwU1uKt+vVcIJvRvuT2IkMMyKzf67nA3meUKzFokS6JNg9HT9CjbQ +ecPju9MlkNzWOW4tyIbnfQ7ki9sS6DdlYJ4uwgaNYwJcg90SuLpV0fW3HBu+ +FZ0q+ldKEnPfGPcabGGDy1qr8XV3JDH69/C+KG826IQ1nL7eKIniotYW5ofY +sOLjejHisSTqv9TVF/ZlQ10lFyi+lsRJ6/3rs4+zQcyiLnnDkiSaV3Vviw2n +xj/N2LjNQgovJgnEdaSwYevkz1C/T1JYzUwxEa9nQ8iOyyoPx6RwNEm4PqiR +DRU31N+IzEth63ir/YsHbJCw99Cr41uHa3kEF2Jb2TBW+2iBS2Md2ik1T7c8 +Y0NaTHJgdvA6jC6K7L83yIaPoop+bYLSaKSkz4rkIEHcv0lGXFwapS2cA2I4 +SdjZsbfrEE0af9Le98Ryk1ATmqC2SkcaTy81ckfykXBhaGrUca80xm7RdN61 +mgTt4gafyXxplGT6fvWVI+E002af1BYZvDN8mv+cAQk73K7/u9lYBuPcVz60 +Z5EgFP09dvdOGfTyTV0vByRcbY0rSvaQQcMQTv4SYxJqzeu/Lz8vg6vsz0hm +mZEwtVc+aOa1DL7U0O566UDCvdBjvGtGZLCtnJv020tC5NX7WRoTMihnMWnO +7USCwIc9DYc4ZXFHSU2+gisJSj6JHB9UZDFTfHQcPUlwOzl34VkYZUfO3W/8 +SFDINJYejZNFz7M7ug2PkdT6XSrnTZZF9G3mzjtOQuhv5efGhbJozqlRujeQ +hPRYN9G6Z7Jo25n6PT+EhGcp7bk3ZeSQSWeVXIklIe3OWq1WJTmcxyGtZ2dI +cHq5r+WDlhwmvWuLXIwj4ZvE75F1pnIYpRd92DyeBK68DSqpfnI43TeT9SiR +BP2K7LuRTXIoFdjUTaSTsPVV95+JDjn0V48UE8ogwYqDe7t7rxzqlWPGAmVP +W7/X8FkO/7FsgpYsEkzDiKhoHhp+emC5Q/cqCcfk5guMVGkooW+Sm51Pwtyd +5I5FTRpujMrIdyyg5rdDdZzcSEPev3OfxQpJiDvuoUs3pKGh74zG+Zsk5LR2 +dnDa0DC16uHAztsktPnkjrcG0VB6+U1um3ISzH7rCYeH0bBsHc3sM+Xu5D7d +jdE07CWc+4MqSHhdxx9deJ6Gnzvtu1IqSZhYGSgcd5WGGYq7WbdIEk7kCW1m +3aChbveTVwpVJPzYWOw8d5OGHmUZTTcoc7kNFnpV0nClVUpIyh0SJNg7Npu2 +0JDTPvPWrmoSrm395Pz3MQ31Dzncr6NMfx0RXfOUhntzNBRoNSSoc955oviS +hodvZ4yPUK7KsJwYfE3D54Zu1ib3SNii+k04c5BaD88KnlzKxvYyLrzfaDh2 +2S3AqpaE9m/3opvGaGhg8Us5n/LOCNubp6Zp2PQhe8sM5T1F5ya+/qRhUo2L +a1IdCb4/pqM7BAlsCrzSf6Oe2s/j3mJfhAm80F4c/Jky3+ibUi4JAvvFL3Mo +NpBw821rvyGdwH8mtz66RjnQfouvixKBikUk10vKxl1ly0LVCMyuNlXlbyRh +8EG6WrUugR8MQe8g5bLNK1p6DQhkHLcm0iiHsiP3TCGBlr7Dc/WUdyjPjAma +Ejib2nVviLJYvk+MqgWBvGLjPsvukzAi9U7cbBeB0rOSvDTKVWm7yr13E/j1 +h0aGAeVogUfGZ5wILGjkFbOnbB2nN3DDncDDBdHnDlGW/Vt+tOkAgeXvgr6H +UR4LonO9P0Rg2v4O4wTK9ZMZWT/9CHRZtLuYSTn+4EoNiUACezQWu/MoOwxH +tW4KoebnmMVzizLDaXavXSSBdVnCOiWU/+09OHEslppvr9ne/9xs8T72YjyB +76tpQf/df7HNRrIsicAf1aFJNyi7sB5XPEklcJ8gMzeLskqN/tavmQReajAr +S6S8qFH5mvsagUVnzldHUO64Je9PzyfwzdRwwxHKGbQsbrxF4GsL/WYHygey +BXJcy6j1LQxtNaSsLXxaM4wkMLwz4bE8ZY6EubasGgJNbPZ08lDu5jrsVNNA +PZ/Q3jNCrffV8MHJF80ErrzY/qqZ8pE527jpRwT6qJp8yqas79cuteopgeS8 +4ow/Zb6vBmy15wRuMPLgM6FcOMB46/OGQEmrRNMPVDwE2GQfixsicJe36/ES +ytgpuLxghEDiNt48Tvl9w/yGwQkCb3hzqi1Q8Va28cjjXzNUvK19FF1NObR8 +yFlykcAAq/0fj1EWy+04a89FR54Hv3sGqfgdEWdJB/DR0X78k2sK5apkkrwk +SMfQ7JDfSNk6Juddpzgdb+sm+mdS8R/v5attpEbHF13BOwgqfxwGP7S7adFx +n+piUCOVb4w9u13DdemYuTB9355y8w7D+HtIR3cpyA6n8nVRdfWg+m46xncI +3iim8nv+mtRpHSc6bpIaWdSkPLtKgaHnTsc422dJd6h6MDGjd3jrITo2DeQf +rqLqx8cGz3mnCDomlLNELlH1ZUjdL9sjho62RoHuS1T9eZcbzPQ+R8dXqUcn +fCn3xybFHE+hY3J44gBQ9arT4p5Q/E067rrw+kdbCZXv9x+SSSV0FP0aFSRH +uU3zmX1aJR1na5oNTxWT8EBkOOd6HR0fv+C7I0vVw6q3K5Squ+hoUJNuavlf +vTziBh/n6DgWefWnci4Jme8Pfvz6k46l3CI5jtdJuGx9Im58iY5vbUwun71G +xa9O/NMf/PKY3D12deAKCTG/yD2rZOWxu8tY2pWq50cSeI4xTeVRxbux4Vsy +CczSsryMDHk8//D80JpoEt7SSnO3XZHHXnn3i5xR1P5mFF+fzZVH1bBzgtMR +1Hl5uuiqbbE8Tos4R7eHUfG7Ny9LqFEeLbd+2+V0igRlnsvJZ4flcUtkupcE +dR6KuYdFB6kx8LfLisrfjiRU94VEKWgxcGVxiUIxdd7amwdH9m1ioHNw+nm7 +PSSkbjoZrg0MtN6zJJ1vT4KggH/whA0Dr8grJipak8Bdt/+Y9ykGDj976tJl +QsK0sLmHQwsD+4043bNVSRjwpT8/3M7AozG5/J+Uqfh4/BOinjHwyNVEH5X1 +JCSHlsrd7meg7kND4yoGCRs+CgwtjjKwd9nx9CIZEvzIHtdrIgr4SfRqO30V +CaPWu51HDiigTs+Z1QFTbBhJ9HAI4FXE+otP+qvK2OA3qkbfIKCIBQXTOdkl +bFjYvjg+vloRQflKYeRtqn/jSo07JKWIq7JuJ5oUsmFDSOtdD3VFfJej2VV7 +hQ0RXooi1naKyM8Z/NvmAtXPGY71qOYq4kZhnihTqh80mzxl9llXCd/eCmg/ +IUn1Y558J+5GrUcxvYfhsk0V1P+EOOe5FmXUz1tylFQqB+EuxYvsSRWsz97/ +QyypFKTjK3fp6qqh2Hf4sqy+GLJU9VaL+KjjQsmJhIUft6BTymjTTIoGzjq6 +7akzKAJ96ZZkzX5NTBn7uRqcCkGIKz9wX8wGDLv76Ih1Xj7InpZjOipq4Qea +hI5ETx7wK7jU2LZrYe1+/1pl7eugwZKsPOWqjQX9WYK7lK9AwKBwqzmHDlpW +XhJyWZ0FkzOJu82ydFDs1qKniVs6bNd8nGOmvhGZyTWpfaOp8GDG4NdC90Yk +Bu3+LIUkg5+a9pv/eW3Ceoe5ir/dicCaONDnyK+LouP3fbgexsM2hoSlYL4u +MjkEshNd42B99IXgls2bMbNONuGvVwyoeOk1KbzZjPGH8ULduijwenDwzN3j +W1Cc8bbzy4lQaMrrOzAtqoeik3PZb1cFweztpQXNe3oYf+nDiKtTAHgqlPLn +WOpjraD4sXUP/WBaJU23akofhW/sHtIzPAS1hb+G5+IN0OORCb4ePgBOW+XR +QJaJ1gUTfH9xH/zp4xNqpTHx52TPsgva+yDPa+KtuTwTe0KfxdIY++DL2bpT +TuuZ+OK2/4qjvPsg4Il1ZYg2EwN+bQ2K7faAC1bhsrWmTKy4XOyX5+YB9Xtf +/t7oz8T7rbNiwwLusO7ouTqNZiZ+WdAzYX5xhotL3psSWpg4fzTrn74eZ+BM +NSW/tjFxjYS0Y0SdM4zW8BTnPWHiYLK6/59EZ6jnOJMl/IKJ3m0nQ+o2OoPT +5ehT85+p7zeeJCTPOUFWQ8imBytZ+CLX1H7LZkcQXeFLWu5h4encTGOhVgco +NIkInXJkoeoJSy6lCgfQjrhokubCQi3Ob/W7sh3Aaor9cmAfCwPT+If7/R3g +bP/coqcvCxs8h5+UyTjAj/wo49DTLLz9T53iyfDd8MYg7UVRKQvTGvUmlU3t +4eDJwqtmFSxkKrd0WOjYw3xFtdcYm4V71Hw3RdDsQZg+sKBVw0IUFb0m9MsO +LPhkpO83s/C6/qmQUbYdNPYVHXjxkho/ZlI0Qs4OzIVq1YMGWMgb1EFLE7SD +ge1P5iXesvCf0sm1tb9sYbb+e7zbBxZal/td0hiwBfUbG8r/GWUhJxqVPEux +hcY3RkGJ4yx0ZoW82xttC+Zr7UBzioWH1ERvzvjZgve5k/8LnGPh35MHn9vv +pN7XfDZH/AcLN/UXyq4zsIWYn5me9T9ZOKdl/WZS2RZWbyxWc/3DQi6TzYu9 +ErZw/Wj93NISC7tWaB9v47WF/wNIF4q4 + "]]}, + 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:eJwV13k4VV0XAHAZQqEiY4Z7rovMoRTutRZKIWRImZXQIEqSmUgplCFjAyFl +vkeRqQhFCn2SNJHS8Mr4mtLkO+9f5/k9zzlnn733WmuvQ+z3t/Xi5ODg4F/G +wfHfdX7wSRsjodDwB6zR4VAxMuy7LhFiNBADtRmJhpYRcoCiPfslBlLhvHeT +Ck+EJgTtKnnFNZAPm/9WKL0MB1gzIZ66+KoK3D9/NkoKt4ahRiv/2Vct8Gt8 +6mFxmDuYMkbfT7/qBRKXePWD/WHx1eb0qVcfYfa37fukw1HQanKr8H/5MxDV +fSGp2zAZpIfqvuxX+wMu7f+GDr7OhLW+7iW8JlzYuTzxfMuf65CqZdpgtZsP +K49YWaXJF8DrrA3N06sFcedzvvGC7UWQUBjVwym5Bs/1rDha41wM4pc/nU+7 +JoJpZw8cXM1dBhKq1Wd+FIngtFaikbFgGUi1nI1yZYtgZ7dlhZ9YGchOKZ9U +ahXBgmWLrHvry0Bh5zGPhm8imEu2i/JaloEO9x/dTzprUa6vqTTvchlYB4qN +aHeuRbcvwVN35MrhnL2ZYe+8KApo8KczFCpA6m63FOcyMfz3rWLeFfUKqBCx +X9BaKYYy8tu5BHQroL/XjZ0iJ4b7Pg12DZhWAMMmkG6zQww778g60w9WQItl +7vLn2WLYo+WfFlhcAX9M57q7mOJ40+frl1VKlZBcFFr6x1QcUTnJga1RCYzl +HPHqNuJIG7PkMdethJ2PVhgleYkjYXdT5tC2Ssgxod3ZeVEc+6L61jt4VsIW +tMh8OiSOwU1uKt+vVcIJvRvuT2IkMMyKzf67nA3meUKzFokS6JNg9HT9CjbQ +ecPju9MlkNzWOW4tyIbnfQ7ki9sS6DdlYJ4uwgaNYwJcg90SuLpV0fW3HBu+ +FZ0q+ldKEnPfGPcabGGDy1qr8XV3JDH69/C+KG826IQ1nL7eKIniotYW5ofY +sOLjejHisSTqv9TVF/ZlQ10lFyi+lsRJ6/3rs4+zQcyiLnnDkiSaV3Vviw2n +xj/N2LjNQgovJgnEdaSwYevkz1C/T1JYzUwxEa9nQ8iOyyoPx6RwNEm4PqiR +DRU31N+IzEth63ir/YsHbJCw99Cr41uHa3kEF2Jb2TBW+2iBS2Md2ik1T7c8 +Y0NaTHJgdvA6jC6K7L83yIaPoop+bYLSaKSkz4rkIEHcv0lGXFwapS2cA2I4 +SdjZsbfrEE0af9Le98Ryk1ATmqC2SkcaTy81ckfykXBhaGrUca80xm7RdN61 +mgTt4gafyXxplGT6fvWVI+E002af1BYZvDN8mv+cAQk73K7/u9lYBuPcVz60 +Z5EgFP09dvdOGfTyTV0vByRcbY0rSvaQQcMQTv4SYxJqzeu/Lz8vg6vsz0hm +mZEwtVc+aOa1DL7U0O566UDCvdBjvGtGZLCtnJv020tC5NX7WRoTMihnMWnO +7USCwIc9DYc4ZXFHSU2+gisJSj6JHB9UZDFTfHQcPUlwOzl34VkYZUfO3W/8 +SFDINJYejZNFz7M7ug2PkdT6XSrnTZZF9G3mzjtOQuhv5efGhbJozqlRujeQ +hPRYN9G6Z7Jo25n6PT+EhGcp7bk3ZeSQSWeVXIklIe3OWq1WJTmcxyGtZ2dI +cHq5r+WDlhwmvWuLXIwj4ZvE75F1pnIYpRd92DyeBK68DSqpfnI43TeT9SiR +BP2K7LuRTXIoFdjUTaSTsPVV95+JDjn0V48UE8ogwYqDe7t7rxzqlWPGAmVP +W7/X8FkO/7FsgpYsEkzDiKhoHhp+emC5Q/cqCcfk5guMVGkooW+Sm51Pwtyd +5I5FTRpujMrIdyyg5rdDdZzcSEPev3OfxQpJiDvuoUs3pKGh74zG+Zsk5LR2 +dnDa0DC16uHAztsktPnkjrcG0VB6+U1um3ISzH7rCYeH0bBsHc3sM+Xu5D7d +jdE07CWc+4MqSHhdxx9deJ6Gnzvtu1IqSZhYGSgcd5WGGYq7WbdIEk7kCW1m +3aChbveTVwpVJPzYWOw8d5OGHmUZTTcoc7kNFnpV0nClVUpIyh0SJNg7Npu2 +0JDTPvPWrmoSrm395Pz3MQ31Dzncr6NMfx0RXfOUhntzNBRoNSSoc955oviS +hodvZ4yPUK7KsJwYfE3D54Zu1ib3SNii+k04c5BaD88KnlzKxvYyLrzfaDh2 +2S3AqpaE9m/3opvGaGhg8Us5n/LOCNubp6Zp2PQhe8sM5T1F5ya+/qRhUo2L +a1IdCb4/pqM7BAlsCrzSf6Oe2s/j3mJfhAm80F4c/Jky3+ibUi4JAvvFL3Mo +NpBw821rvyGdwH8mtz66RjnQfouvixKBikUk10vKxl1ly0LVCMyuNlXlbyRh +8EG6WrUugR8MQe8g5bLNK1p6DQhkHLcm0iiHsiP3TCGBlr7Dc/WUdyjPjAma +Ejib2nVviLJYvk+MqgWBvGLjPsvukzAi9U7cbBeB0rOSvDTKVWm7yr13E/j1 +h0aGAeVogUfGZ5wILGjkFbOnbB2nN3DDncDDBdHnDlGW/Vt+tOkAgeXvgr6H +UR4LonO9P0Rg2v4O4wTK9ZMZWT/9CHRZtLuYSTn+4EoNiUACezQWu/MoOwxH +tW4KoebnmMVzizLDaXavXSSBdVnCOiWU/+09OHEslppvr9ne/9xs8T72YjyB +76tpQf/df7HNRrIsicAf1aFJNyi7sB5XPEklcJ8gMzeLskqN/tavmQReajAr +S6S8qFH5mvsagUVnzldHUO64Je9PzyfwzdRwwxHKGbQsbrxF4GsL/WYHygey +BXJcy6j1LQxtNaSsLXxaM4wkMLwz4bE8ZY6EubasGgJNbPZ08lDu5jrsVNNA +PZ/Q3jNCrffV8MHJF80ErrzY/qqZ8pE527jpRwT6qJp8yqas79cuteopgeS8 +4ow/Zb6vBmy15wRuMPLgM6FcOMB46/OGQEmrRNMPVDwE2GQfixsicJe36/ES +ytgpuLxghEDiNt48Tvl9w/yGwQkCb3hzqi1Q8Va28cjjXzNUvK19FF1NObR8 +yFlykcAAq/0fj1EWy+04a89FR54Hv3sGqfgdEWdJB/DR0X78k2sK5apkkrwk +SMfQ7JDfSNk6Juddpzgdb+sm+mdS8R/v5attpEbHF13BOwgqfxwGP7S7adFx +n+piUCOVb4w9u13DdemYuTB9355y8w7D+HtIR3cpyA6n8nVRdfWg+m46xncI +3iim8nv+mtRpHSc6bpIaWdSkPLtKgaHnTsc422dJd6h6MDGjd3jrITo2DeQf +rqLqx8cGz3mnCDomlLNELlH1ZUjdL9sjho62RoHuS1T9eZcbzPQ+R8dXqUcn +fCn3xybFHE+hY3J44gBQ9arT4p5Q/E067rrw+kdbCZXv9x+SSSV0FP0aFSRH +uU3zmX1aJR1na5oNTxWT8EBkOOd6HR0fv+C7I0vVw6q3K5Squ+hoUJNuavlf +vTziBh/n6DgWefWnci4Jme8Pfvz6k46l3CI5jtdJuGx9Im58iY5vbUwun71G +xa9O/NMf/PKY3D12deAKCTG/yD2rZOWxu8tY2pWq50cSeI4xTeVRxbux4Vsy +CczSsryMDHk8//D80JpoEt7SSnO3XZHHXnn3i5xR1P5mFF+fzZVH1bBzgtMR +1Hl5uuiqbbE8Tos4R7eHUfG7Ny9LqFEeLbd+2+V0igRlnsvJZ4flcUtkupcE +dR6KuYdFB6kx8LfLisrfjiRU94VEKWgxcGVxiUIxdd7amwdH9m1ioHNw+nm7 +PSSkbjoZrg0MtN6zJJ1vT4KggH/whA0Dr8grJipak8Bdt/+Y9ykGDj976tJl +QsK0sLmHQwsD+4043bNVSRjwpT8/3M7AozG5/J+Uqfh4/BOinjHwyNVEH5X1 +JCSHlsrd7meg7kND4yoGCRs+CgwtjjKwd9nx9CIZEvzIHtdrIgr4SfRqO30V +CaPWu51HDiigTs+Z1QFTbBhJ9HAI4FXE+otP+qvK2OA3qkbfIKCIBQXTOdkl +bFjYvjg+vloRQflKYeRtqn/jSo07JKWIq7JuJ5oUsmFDSOtdD3VFfJej2VV7 +hQ0RXooi1naKyM8Z/NvmAtXPGY71qOYq4kZhnihTqh80mzxl9llXCd/eCmg/ +IUn1Y558J+5GrUcxvYfhsk0V1P+EOOe5FmXUz1tylFQqB+EuxYvsSRWsz97/ +QyypFKTjK3fp6qqh2Hf4sqy+GLJU9VaL+KjjQsmJhIUft6BTymjTTIoGzjq6 +7akzKAJ96ZZkzX5NTBn7uRqcCkGIKz9wX8wGDLv76Ih1Xj7InpZjOipq4Qea +hI5ETx7wK7jU2LZrYe1+/1pl7eugwZKsPOWqjQX9WYK7lK9AwKBwqzmHDlpW +XhJyWZ0FkzOJu82ydFDs1qKniVs6bNd8nGOmvhGZyTWpfaOp8GDG4NdC90Yk +Bu3+LIUkg5+a9pv/eW3Ceoe5ir/dicCaONDnyK+LouP3fbgexsM2hoSlYL4u +MjkEshNd42B99IXgls2bMbNONuGvVwyoeOk1KbzZjPGH8ULduijwenDwzN3j +W1Cc8bbzy4lQaMrrOzAtqoeik3PZb1cFweztpQXNe3oYf+nDiKtTAHgqlPLn +WOpjraD4sXUP/WBaJU23akofhW/sHtIzPAS1hb+G5+IN0OORCb4ePgBOW+XR +QJaJ1gUTfH9xH/zp4xNqpTHx52TPsgva+yDPa+KtuTwTe0KfxdIY++DL2bpT +TuuZ+OK2/4qjvPsg4Il1ZYg2EwN+bQ2K7faAC1bhsrWmTKy4XOyX5+YB9Xtf +/t7oz8T7rbNiwwLusO7ouTqNZiZ+WdAzYX5xhotL3psSWpg4fzTrn74eZ+BM +NSW/tjFxjYS0Y0SdM4zW8BTnPWHiYLK6/59EZ6jnOJMl/IKJ3m0nQ+o2OoPT +5ehT85+p7zeeJCTPOUFWQ8imBytZ+CLX1H7LZkcQXeFLWu5h4encTGOhVgco +NIkInXJkoeoJSy6lCgfQjrhokubCQi3Ob/W7sh3Aaor9cmAfCwPT+If7/R3g +bP/coqcvCxs8h5+UyTjAj/wo49DTLLz9T53iyfDd8MYg7UVRKQvTGvUmlU3t +4eDJwqtmFSxkKrd0WOjYw3xFtdcYm4V71Hw3RdDsQZg+sKBVw0IUFb0m9MsO +LPhkpO83s/C6/qmQUbYdNPYVHXjxkho/ZlI0Qs4OzIVq1YMGWMgb1EFLE7SD +ge1P5iXesvCf0sm1tb9sYbb+e7zbBxZal/td0hiwBfUbG8r/GWUhJxqVPEux +hcY3RkGJ4yx0ZoW82xttC+Zr7UBzioWH1ERvzvjZgve5k/8LnGPh35MHn9vv +pN7XfDZH/AcLN/UXyq4zsIWYn5me9T9ZOKdl/WZS2RZWbyxWc/3DQi6TzYu9 +ErZw/Wj93NISC7tWaB9v47WF/wNIF4q4 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06930031447866325}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.06930031447866325}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJwV13k4VV0XAHAZQqEiY4Z7rovMoRTutRZKIWRImZXQIEqSmUgplCFjAyFl +vkeRqQhFCn2SNJHS8Mr4mtLkO+9f5/k9zzlnn733WmuvQ+z3t/Xi5ODg4F/G +wfHfdX7wSRsjodDwB6zR4VAxMuy7LhFiNBADtRmJhpYRcoCiPfslBlLhvHeT +Ck+EJgTtKnnFNZAPm/9WKL0MB1gzIZ66+KoK3D9/NkoKt4ahRiv/2Vct8Gt8 +6mFxmDuYMkbfT7/qBRKXePWD/WHx1eb0qVcfYfa37fukw1HQanKr8H/5MxDV +fSGp2zAZpIfqvuxX+wMu7f+GDr7OhLW+7iW8JlzYuTzxfMuf65CqZdpgtZsP +K49YWaXJF8DrrA3N06sFcedzvvGC7UWQUBjVwym5Bs/1rDha41wM4pc/nU+7 +JoJpZw8cXM1dBhKq1Wd+FIngtFaikbFgGUi1nI1yZYtgZ7dlhZ9YGchOKZ9U +ahXBgmWLrHvry0Bh5zGPhm8imEu2i/JaloEO9x/dTzprUa6vqTTvchlYB4qN +aHeuRbcvwVN35MrhnL2ZYe+8KApo8KczFCpA6m63FOcyMfz3rWLeFfUKqBCx +X9BaKYYy8tu5BHQroL/XjZ0iJ4b7Pg12DZhWAMMmkG6zQww778g60w9WQItl +7vLn2WLYo+WfFlhcAX9M57q7mOJ40+frl1VKlZBcFFr6x1QcUTnJga1RCYzl +HPHqNuJIG7PkMdethJ2PVhgleYkjYXdT5tC2Ssgxod3ZeVEc+6L61jt4VsIW +tMh8OiSOwU1uKt+vVcIJvRvuT2IkMMyKzf67nA3meUKzFokS6JNg9HT9CjbQ +ecPju9MlkNzWOW4tyIbnfQ7ki9sS6DdlYJ4uwgaNYwJcg90SuLpV0fW3HBu+ +FZ0q+ldKEnPfGPcabGGDy1qr8XV3JDH69/C+KG826IQ1nL7eKIniotYW5ofY +sOLjejHisSTqv9TVF/ZlQ10lFyi+lsRJ6/3rs4+zQcyiLnnDkiSaV3Vviw2n +xj/N2LjNQgovJgnEdaSwYevkz1C/T1JYzUwxEa9nQ8iOyyoPx6RwNEm4PqiR +DRU31N+IzEth63ir/YsHbJCw99Cr41uHa3kEF2Jb2TBW+2iBS2Md2ik1T7c8 +Y0NaTHJgdvA6jC6K7L83yIaPoop+bYLSaKSkz4rkIEHcv0lGXFwapS2cA2I4 +SdjZsbfrEE0af9Le98Ryk1ATmqC2SkcaTy81ckfykXBhaGrUca80xm7RdN61 +mgTt4gafyXxplGT6fvWVI+E002af1BYZvDN8mv+cAQk73K7/u9lYBuPcVz60 +Z5EgFP09dvdOGfTyTV0vByRcbY0rSvaQQcMQTv4SYxJqzeu/Lz8vg6vsz0hm +mZEwtVc+aOa1DL7U0O566UDCvdBjvGtGZLCtnJv020tC5NX7WRoTMihnMWnO +7USCwIc9DYc4ZXFHSU2+gisJSj6JHB9UZDFTfHQcPUlwOzl34VkYZUfO3W/8 +SFDINJYejZNFz7M7ug2PkdT6XSrnTZZF9G3mzjtOQuhv5efGhbJozqlRujeQ +hPRYN9G6Z7Jo25n6PT+EhGcp7bk3ZeSQSWeVXIklIe3OWq1WJTmcxyGtZ2dI +cHq5r+WDlhwmvWuLXIwj4ZvE75F1pnIYpRd92DyeBK68DSqpfnI43TeT9SiR +BP2K7LuRTXIoFdjUTaSTsPVV95+JDjn0V48UE8ogwYqDe7t7rxzqlWPGAmVP +W7/X8FkO/7FsgpYsEkzDiKhoHhp+emC5Q/cqCcfk5guMVGkooW+Sm51Pwtyd +5I5FTRpujMrIdyyg5rdDdZzcSEPev3OfxQpJiDvuoUs3pKGh74zG+Zsk5LR2 +dnDa0DC16uHAztsktPnkjrcG0VB6+U1um3ISzH7rCYeH0bBsHc3sM+Xu5D7d +jdE07CWc+4MqSHhdxx9deJ6Gnzvtu1IqSZhYGSgcd5WGGYq7WbdIEk7kCW1m +3aChbveTVwpVJPzYWOw8d5OGHmUZTTcoc7kNFnpV0nClVUpIyh0SJNg7Npu2 +0JDTPvPWrmoSrm395Pz3MQ31Dzncr6NMfx0RXfOUhntzNBRoNSSoc955oviS +hodvZ4yPUK7KsJwYfE3D54Zu1ib3SNii+k04c5BaD88KnlzKxvYyLrzfaDh2 +2S3AqpaE9m/3opvGaGhg8Us5n/LOCNubp6Zp2PQhe8sM5T1F5ya+/qRhUo2L +a1IdCb4/pqM7BAlsCrzSf6Oe2s/j3mJfhAm80F4c/Jky3+ibUi4JAvvFL3Mo +NpBw821rvyGdwH8mtz66RjnQfouvixKBikUk10vKxl1ly0LVCMyuNlXlbyRh +8EG6WrUugR8MQe8g5bLNK1p6DQhkHLcm0iiHsiP3TCGBlr7Dc/WUdyjPjAma +Ejib2nVviLJYvk+MqgWBvGLjPsvukzAi9U7cbBeB0rOSvDTKVWm7yr13E/j1 +h0aGAeVogUfGZ5wILGjkFbOnbB2nN3DDncDDBdHnDlGW/Vt+tOkAgeXvgr6H +UR4LonO9P0Rg2v4O4wTK9ZMZWT/9CHRZtLuYSTn+4EoNiUACezQWu/MoOwxH +tW4KoebnmMVzizLDaXavXSSBdVnCOiWU/+09OHEslppvr9ne/9xs8T72YjyB +76tpQf/df7HNRrIsicAf1aFJNyi7sB5XPEklcJ8gMzeLskqN/tavmQReajAr +S6S8qFH5mvsagUVnzldHUO64Je9PzyfwzdRwwxHKGbQsbrxF4GsL/WYHygey +BXJcy6j1LQxtNaSsLXxaM4wkMLwz4bE8ZY6EubasGgJNbPZ08lDu5jrsVNNA +PZ/Q3jNCrffV8MHJF80ErrzY/qqZ8pE527jpRwT6qJp8yqas79cuteopgeS8 +4ow/Zb6vBmy15wRuMPLgM6FcOMB46/OGQEmrRNMPVDwE2GQfixsicJe36/ES +ytgpuLxghEDiNt48Tvl9w/yGwQkCb3hzqi1Q8Va28cjjXzNUvK19FF1NObR8 +yFlykcAAq/0fj1EWy+04a89FR54Hv3sGqfgdEWdJB/DR0X78k2sK5apkkrwk +SMfQ7JDfSNk6Juddpzgdb+sm+mdS8R/v5attpEbHF13BOwgqfxwGP7S7adFx +n+piUCOVb4w9u13DdemYuTB9355y8w7D+HtIR3cpyA6n8nVRdfWg+m46xncI +3iim8nv+mtRpHSc6bpIaWdSkPLtKgaHnTsc422dJd6h6MDGjd3jrITo2DeQf +rqLqx8cGz3mnCDomlLNELlH1ZUjdL9sjho62RoHuS1T9eZcbzPQ+R8dXqUcn +fCn3xybFHE+hY3J44gBQ9arT4p5Q/E067rrw+kdbCZXv9x+SSSV0FP0aFSRH +uU3zmX1aJR1na5oNTxWT8EBkOOd6HR0fv+C7I0vVw6q3K5Squ+hoUJNuavlf +vTziBh/n6DgWefWnci4Jme8Pfvz6k46l3CI5jtdJuGx9Im58iY5vbUwun71G +xa9O/NMf/PKY3D12deAKCTG/yD2rZOWxu8tY2pWq50cSeI4xTeVRxbux4Vsy +CczSsryMDHk8//D80JpoEt7SSnO3XZHHXnn3i5xR1P5mFF+fzZVH1bBzgtMR +1Hl5uuiqbbE8Tos4R7eHUfG7Ny9LqFEeLbd+2+V0igRlnsvJZ4flcUtkupcE +dR6KuYdFB6kx8LfLisrfjiRU94VEKWgxcGVxiUIxdd7amwdH9m1ioHNw+nm7 +PSSkbjoZrg0MtN6zJJ1vT4KggH/whA0Dr8grJipak8Bdt/+Y9ykGDj976tJl +QsK0sLmHQwsD+4043bNVSRjwpT8/3M7AozG5/J+Uqfh4/BOinjHwyNVEH5X1 +JCSHlsrd7meg7kND4yoGCRs+CgwtjjKwd9nx9CIZEvzIHtdrIgr4SfRqO30V +CaPWu51HDiigTs+Z1QFTbBhJ9HAI4FXE+otP+qvK2OA3qkbfIKCIBQXTOdkl +bFjYvjg+vloRQflKYeRtqn/jSo07JKWIq7JuJ5oUsmFDSOtdD3VFfJej2VV7 +hQ0RXooi1naKyM8Z/NvmAtXPGY71qOYq4kZhnihTqh80mzxl9llXCd/eCmg/ +IUn1Y558J+5GrUcxvYfhsk0V1P+EOOe5FmXUz1tylFQqB+EuxYvsSRWsz97/ +QyypFKTjK3fp6qqh2Hf4sqy+GLJU9VaL+KjjQsmJhIUft6BTymjTTIoGzjq6 +7akzKAJ96ZZkzX5NTBn7uRqcCkGIKz9wX8wGDLv76Ih1Xj7InpZjOipq4Qea +hI5ETx7wK7jU2LZrYe1+/1pl7eugwZKsPOWqjQX9WYK7lK9AwKBwqzmHDlpW +XhJyWZ0FkzOJu82ydFDs1qKniVs6bNd8nGOmvhGZyTWpfaOp8GDG4NdC90Yk +Bu3+LIUkg5+a9pv/eW3Ceoe5ir/dicCaONDnyK+LouP3fbgexsM2hoSlYL4u +MjkEshNd42B99IXgls2bMbNONuGvVwyoeOk1KbzZjPGH8ULduijwenDwzN3j +W1Cc8bbzy4lQaMrrOzAtqoeik3PZb1cFweztpQXNe3oYf+nDiKtTAHgqlPLn +WOpjraD4sXUP/WBaJU23akofhW/sHtIzPAS1hb+G5+IN0OORCb4ePgBOW+XR +QJaJ1gUTfH9xH/zp4xNqpTHx52TPsgva+yDPa+KtuTwTe0KfxdIY++DL2bpT +TuuZ+OK2/4qjvPsg4Il1ZYg2EwN+bQ2K7faAC1bhsrWmTKy4XOyX5+YB9Xtf +/t7oz8T7rbNiwwLusO7ouTqNZiZ+WdAzYX5xhotL3psSWpg4fzTrn74eZ+BM +NSW/tjFxjYS0Y0SdM4zW8BTnPWHiYLK6/59EZ6jnOJMl/IKJ3m0nQ+o2OoPT +5ehT85+p7zeeJCTPOUFWQ8imBytZ+CLX1H7LZkcQXeFLWu5h4encTGOhVgco +NIkInXJkoeoJSy6lCgfQjrhokubCQi3Ob/W7sh3Aaor9cmAfCwPT+If7/R3g +bP/coqcvCxs8h5+UyTjAj/wo49DTLLz9T53iyfDd8MYg7UVRKQvTGvUmlU3t +4eDJwqtmFSxkKrd0WOjYw3xFtdcYm4V71Hw3RdDsQZg+sKBVw0IUFb0m9MsO +LPhkpO83s/C6/qmQUbYdNPYVHXjxkho/ZlI0Qs4OzIVq1YMGWMgb1EFLE7SD +ge1P5iXesvCf0sm1tb9sYbb+e7zbBxZal/td0hiwBfUbG8r/GWUhJxqVPEux +hcY3RkGJ4yx0ZoW82xttC+Zr7UBzioWH1ERvzvjZgve5k/8LnGPh35MHn9vv +pN7XfDZH/AcLN/UXyq4zsIWYn5me9T9ZOKdl/WZS2RZWbyxWc/3DQi6TzYu9 +ErZw/Wj93NISC7tWaB9v47WF/wNIF4q4 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06930031447866325}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, + 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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.061043}}, + "Frame" -> {{False, 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.061043}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.061043}}, + "Frame" -> {{False, 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.06930031447866325}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9940149791533003`*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"7a4ef7d4-8239-494b-b659-1f8ed055e342"] +}, Open ]], Cell[CellGroupData[{ @@ -6128,7 +11610,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[{ @@ -6146,8 +11630,8 @@ Cell[BoxData[ SuperscriptBox[ RowBox[{"(", FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -6169,66 +11653,73 @@ 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[\\\"2.562877904177458`*^-150\\\", \ +RowBox[{\\\"192330073695578600598678\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"112\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 121, 45, + 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347571140808*^9, 3.994014979192436*^9}, CellLabel-> "During evaluation of \ -In[448]:=",ExpressionUUID->"ca0dab71-62e4-1c4e-b2d5-91f300055932"], +In[121]:=",ExpressionUUID->"4ec19f28-5fa8-4b0c-8e3a-4a7ef7ae9acd"], 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[\\\"7.46934685489941`*^-153\\\", \ +RowBox[{\\\"692388265304082962155241\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"115\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 121, 46, + 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347571140808*^9, 3.994014979200014*^9}, CellLabel-> "During evaluation of \ -In[448]:=",ExpressionUUID->"aa43f3fc-5ec5-414d-bbd9-cf1b638f0a27"], +In[121]:=",ExpressionUUID->"3abb1867-37a9-4da7-85ac-38ed45d76ad1"], 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[\\\"2.176894277634407`*^-155\\\", \ +RowBox[{\\\"257637673519649270217965\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"119\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 121, 47, + 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347571140808*^9, 3.994014979207863*^9}, CellLabel-> "During evaluation of \ -In[448]:=",ExpressionUUID->"eaa52aca-1e19-e84e-9825-10ec4ac94baf"], +In[121]:=",ExpressionUUID->"72cad2b0-83f4-4eb5-b5ec-dffbcdb9820c"], 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, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347571140808*^9, 3.994014979214501*^9}, CellLabel-> "During evaluation of \ -In[448]:=",ExpressionUUID->"40ddf79f-d82f-b94d-9b78-050a48c24dda"], +In[121]:=",ExpressionUUID->"94d62fcd-56e9-48b0-9c11-b80c8a79ea26"], -Cell[BoxData["10.362747935330763`"], "Output", - CellChangeTimes->{3.991347578228073*^9}, +Cell[BoxData["11.21618851724314`"], "Output", + CellChangeTimes->{3.991347578228073*^9, 3.99401502667865*^9}, CellLabel-> - "Out[448]=",ExpressionUUID->"f752c3f0-fe06-284b-bff8-a09adf8994cc"] + "Out[121]=",ExpressionUUID->"9d33be81-51ff-473f-b8f9-2b0759a0de90"] }, Open ]], Cell[CellGroupData[{ @@ -6295,68 +11786,73 @@ 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.067336610453535`*^-218\\\", \ +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 122, 49, + 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347578265545*^9, 3.994015026727297*^9}, CellLabel-> "During evaluation of \ -In[449]:=",ExpressionUUID->"03b49875-7e1c-734a-9395-591c7a6a0147"], +In[122]:=",ExpressionUUID->"e2640e04-302f-4929-b387-53cb02f58757"], 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[\\\"3.7932279457804384`*^-224\\\", \ +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 122, 50, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347578265545*^9, 3.994015026734459*^9}, CellLabel-> "During evaluation of \ -In[449]:=",ExpressionUUID->"bbc1c804-e094-2b49-bceb-c837038552fa"], +In[122]:=",ExpressionUUID->"d928f5d5-d1a7-43e6-a552-f9d16bf61e28"], 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.348082517523282`*^-229\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 122, 51, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347578265545*^9, 3.9940150267410583`*^9}, CellLabel-> "During evaluation of \ -In[449]:=",ExpressionUUID->"340351a4-e10e-7141-b933-75e80a563962"], +In[122]:=",ExpressionUUID->"9e611b9f-9dbc-4974-8106-8683bbbe0272"], 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, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347578265545*^9, 3.9940150267489853`*^9}, CellLabel-> "During evaluation of \ -In[449]:=",ExpressionUUID->"45363ba5-7011-ce4a-bbb2-25b54117d598"], +In[122]:=",ExpressionUUID->"2c1835ca-39b1-4f61-b65d-78961b936e12"], -Cell[BoxData["1.4359199941844076`"], "Output", - CellChangeTimes->{3.9913475858902473`*^9}, +Cell[BoxData["0.0997734643479549`"], "Output", + CellChangeTimes->{3.9913475858902473`*^9, 3.9940150334557943`*^9}, CellLabel-> - "Out[449]=",ExpressionUUID->"a7117811-d866-a74a-b451-2e5611fcbe98"] + "Out[122]=",ExpressionUUID->"f62bc8f1-3a99-4101-ac45-866705834c34"] }, Open ]], Cell[CellGroupData[{ @@ -6377,8 +11873,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 +11918,73 @@ 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.067336610453535`*^-218\\\", \ +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 123, 53, + 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913475859272156`*^9, 3.9940150335001917`*^9}, CellLabel-> "During evaluation of \ -In[450]:=",ExpressionUUID->"d229ea6a-26e4-d448-90bf-3044f07066eb"], +In[123]:=",ExpressionUUID->"956c0fe0-0746-4172-af4e-20ee4304353d"], 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[\\\"3.7932279457804384`*^-224\\\", \ +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 123, 54, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913475859272156`*^9, 3.99401503350951*^9}, CellLabel-> "During evaluation of \ -In[450]:=",ExpressionUUID->"7911ebc5-127d-5841-a246-fcff3e2e3d7f"], +In[123]:=",ExpressionUUID->"88f9087e-629b-4419-a54c-b4066394ae20"], 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.348082517523282`*^-229\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 123, 55, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913475859272156`*^9, 3.9940150335176067`*^9}, CellLabel-> "During evaluation of \ -In[450]:=",ExpressionUUID->"62b490bd-3e68-5b49-8d2e-1bbb1e520215"], +In[123]:=",ExpressionUUID->"8bfa1bc0-d2cb-4cd0-a20a-077877f2b219"], 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, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913475859272156`*^9, 3.994015033525765*^9}, CellLabel-> "During evaluation of \ -In[450]:=",ExpressionUUID->"2c340204-da84-dd4d-abb8-8821cc152f8d"], +In[123]:=",ExpressionUUID->"3dc9f7ff-4ced-4187-9ece-2ad903caac56"], -Cell[BoxData["5.09241659576143`"], "Output", - CellChangeTimes->{3.9913475931276417`*^9}, +Cell[BoxData["32.87746363439617`"], "Output", + CellChangeTimes->{3.9913475931276417`*^9, 3.99401503998942*^9}, CellLabel-> - "Out[450]=",ExpressionUUID->"88b2df22-3f75-ff45-90a9-fda3ac3bb827"] + "Out[123]=",ExpressionUUID->"d2388139-1826-4906-87c8-7f2214bba7be"] }, Open ]], Cell[CellGroupData[{ @@ -6505,8 +12005,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 +12050,73 @@ 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.067336610453535`*^-218\\\", \ +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 124, 57, + 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99134759316485*^9, 3.994015040029099*^9}, CellLabel-> "During evaluation of \ -In[451]:=",ExpressionUUID->"8c45e08e-3e6d-d74b-a260-2b9be908c427"], +In[124]:=",ExpressionUUID->"d5012786-7b29-4007-897a-9a823d2c86ad"], 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[\\\"3.7932279457804384`*^-224\\\", \ +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 124, 58, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99134759316485*^9, 3.994015040038487*^9}, CellLabel-> "During evaluation of \ -In[451]:=",ExpressionUUID->"05cc4b97-7653-f04b-8664-f56b3128e201"], +In[124]:=",ExpressionUUID->"7a41b8e3-8a8e-41a9-aa2f-595b1f60de40"], 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.348082517523282`*^-229\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 124, 59, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99134759316485*^9, 3.994015040046921*^9}, CellLabel-> "During evaluation of \ -In[451]:=",ExpressionUUID->"880f1d89-ca48-ef4c-8955-16a02dd06624"], +In[124]:=",ExpressionUUID->"2f6a1418-6e70-4fd9-b6ea-5daa189f13ab"], 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, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99134759316485*^9, 3.994015040055088*^9}, CellLabel-> "During evaluation of \ -In[451]:=",ExpressionUUID->"fbbc91b1-3b40-a04c-8f78-5ca75ca88c9b"], +In[124]:=",ExpressionUUID->"b2d9745a-011a-414e-92dd-be92163618c3"], -Cell[BoxData["16.684462799943017`"], "Output", - CellChangeTimes->{3.9913475973006153`*^9}, +Cell[BoxData["3.878475019178062`"], "Output", + CellChangeTimes->{3.9913475973006153`*^9, 3.994015043846405*^9}, CellLabel-> - "Out[451]=",ExpressionUUID->"ea027f70-f222-b745-8c2e-f4a8bd2e0421"] + "Out[124]=",ExpressionUUID->"5a9d579b-7778-4736-b2ab-6a993ead7d9a"] }, Open ]], Cell[CellGroupData[{ @@ -6621,22 +12125,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.008835586842693748`"], "Output", + CellChangeTimes->{3.991347597341627*^9, 3.9940150438804703`*^9}, + CellLabel-> + "Out[125]=",ExpressionUUID->"d435a38e-ba37-45f3-836e-6d13feb7a039"] }, 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 +12164,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["12.848618316587267`"], "Output", + CellChangeTimes->{3.991347597372614*^9, 3.99401504389894*^9}, CellLabel-> - "Out[454]=",ExpressionUUID->"9fbf2f5c-e66a-8c48-92c5-cb97211e83a1"] + "Out[127]=",ExpressionUUID->"506127ab-3cd0-4b7c-a8b4-c57b83084cbf"] }, Open ]], Cell[CellGroupData[{ @@ -6674,12 +12179,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.8238993813600084`"], "Output", + CellChangeTimes->{3.991347597428034*^9, 3.994015043911265*^9}, CellLabel-> - "Out[456]=",ExpressionUUID->"7a911217-f777-234b-9e3e-66fa91b95a93"] + "Out[128]=",ExpressionUUID->"407e1432-611c-497d-9df9-1968c2df5c26"] }, Open ]], Cell[CellGroupData[{ @@ -6689,12 +12194,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["23.434586998954387`"], "Output", + CellChangeTimes->{3.9913475974971066`*^9, 3.994015043922118*^9}, CellLabel-> - "Out[459]=",ExpressionUUID->"71512215-c060-b042-87dd-cf63c2fdbe79"] + "Out[129]=",ExpressionUUID->"f010d57a-3905-47ef-ba8b-5efb0825747c"] }, Open ]], Cell[CellGroupData[{ @@ -6884,12 +12389,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.006265725637779703`"], "Output", + CellChangeTimes->{3.991347597528105*^9, 3.99401504393609*^9}, CellLabel-> - "Out[460]=",ExpressionUUID->"83eb5a5c-2221-9048-9616-76c841caa7ff"] + "Out[130]=",ExpressionUUID->"d01552b9-7ba0-47eb-9084-2e755198538e"] }, Open ]], Cell[CellGroupData[{ @@ -6903,12 +12408,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.195906260187906`"], "Output", + CellChangeTimes->{3.9913475976441536`*^9, 3.994015044038158*^9}, CellLabel-> - "Out[461]=",ExpressionUUID->"3469ea64-5888-e347-a592-fe58acf45252"] + "Out[131]=",ExpressionUUID->"ed4433cc-2145-49c7-8aad-5636efd0001e"] }, Open ]], Cell[CellGroupData[{ @@ -7100,12 +12605,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.040867756060498445`"], "Output", + CellChangeTimes->{3.991347597671173*^9, 3.994015044051108*^9}, CellLabel-> - "Out[462]=",ExpressionUUID->"6078ae64-e041-ef46-9c98-aeb384a7565b"] + "Out[132]=",ExpressionUUID->"3344c2c2-4513-4f0a-84da-d9dc15a6197a"] }, Open ]], Cell[CellGroupData[{ @@ -7119,12 +12624,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.383838480348011`"], "Output", + CellChangeTimes->{3.9913475977705975`*^9, 3.994015044159603*^9}, CellLabel-> - "Out[463]=",ExpressionUUID->"ed53339e-8a54-b740-a712-127e0aa48364"] + "Out[133]=",ExpressionUUID->"867c3a09-fc1b-4b1b-92b0-060ca72ce6f4"] }, Open ]], Cell[CellGroupData[{ @@ -7217,12 +12722,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.08017799560488434`"], "Output", + CellChangeTimes->{3.9913475977856007`*^9, 3.994015044173671*^9}, CellLabel-> - "Out[464]=",ExpressionUUID->"0881e898-a895-4f44-9932-c9b57f23fb23"] + "Out[134]=",ExpressionUUID->"0d122718-c8ee-4a35-8596-0b1757d596e2"] }, Open ]], Cell[CellGroupData[{ @@ -7312,12 +12817,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.9198220043951155`"], "Output", + CellChangeTimes->{3.991347597813669*^9, 3.99401504418795*^9}, CellLabel-> - "Out[465]=",ExpressionUUID->"6f8be6ff-3439-7547-b2e5-a7f15df03852"] + "Out[135]=",ExpressionUUID->"2595a469-d3cd-40b7-9985-6c124c2ad088"] }, Open ]], Cell[CellGroupData[{ @@ -7440,12 +12945,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.07374948462566748`"], "Output", + CellChangeTimes->{3.9913475978426323`*^9, 3.994015044201968*^9}, CellLabel-> - "Out[466]=",ExpressionUUID->"5f1268db-50d9-294a-839d-2dc73b3483c5"] + "Out[136]=",ExpressionUUID->"9e06ecf8-7256-4e4b-89c6-293d90fe36ec"] }, Open ]], Cell[CellGroupData[{ @@ -7460,30 +12965,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[{"-", @@ -7507,68 +13015,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[\\\"7.571741604975763`*^-212\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 137, 61, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347597872814*^9, 3.994015044215756*^9}, CellLabel-> "During evaluation of \ -In[467]:=",ExpressionUUID->"fea97571-51b6-bc4d-8922-e67cbea226be"], +In[137]:=",ExpressionUUID->"909a52d7-cdf0-4197-98a4-8a4b0ff0faba"], 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.1204914626057895`*^-217\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 137, 62, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347597872814*^9, 3.994015044221711*^9}, CellLabel-> "During evaluation of \ -In[467]:=",ExpressionUUID->"f9381c1d-d837-a646-bb62-f69cb564b78b"], +In[137]:=",ExpressionUUID->"6daa9233-800c-46f0-93cc-2cd9c007bca6"], 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[\\\"6.696134299633731`*^-222\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 137, 63, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347597872814*^9, 3.9940150442278633`*^9}, CellLabel-> "During evaluation of \ -In[467]:=",ExpressionUUID->"2dd3f3b2-ca3e-6c42-abc0-5cf7523a6a65"], +In[137]:=",ExpressionUUID->"a9bc768e-3fcc-4a1c-a5d1-492af26af869"], 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, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347597872814*^9, 3.994015044236065*^9}, CellLabel-> "During evaluation of \ -In[467]:=",ExpressionUUID->"5a727290-5b6b-a347-9739-3df9958ec415"], +In[137]:=",ExpressionUUID->"b70e5091-f69c-46dc-99eb-c441ec95530a"], -Cell[BoxData["4.492838724335523`"], "Output", - CellChangeTimes->{3.9913476018505497`*^9}, +Cell[BoxData["11.195906260187904`"], "Output", + CellChangeTimes->{3.9913476018505497`*^9, 3.994015047900095*^9}, CellLabel-> - "Out[467]=",ExpressionUUID->"44426372-aa84-bf4c-9f95-4de13286a09a"] + "Out[137]=",ExpressionUUID->"0496cd72-828b-4748-ba62-aaf719addeb2"] }, Open ]], Cell[CellGroupData[{ @@ -7583,30 +13095,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[{"-", @@ -7630,68 +13145,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[\\\"7.571741604975763`*^-212\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 138, 65, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913476018885117`*^9, 3.99401504794902*^9}, CellLabel-> "During evaluation of \ -In[468]:=",ExpressionUUID->"a32ffe4b-5346-7b46-9dee-b8bad033001e"], +In[138]:=",ExpressionUUID->"000bc7f6-cf98-4e97-803f-35bd5f2da913"], 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.1204914626057895`*^-217\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 138, 66, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913476018885117`*^9, 3.994015047957901*^9}, CellLabel-> "During evaluation of \ -In[468]:=",ExpressionUUID->"902c6490-8537-484d-8825-0d2295db4f12"], +In[138]:=",ExpressionUUID->"d396ddc8-da1a-4691-9325-4931ea54116d"], 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[\\\"6.696134299633731`*^-222\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 138, 67, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913476018885117`*^9, 3.994015047964581*^9}, CellLabel-> "During evaluation of \ -In[468]:=",ExpressionUUID->"1b49285c-a5d9-074c-871b-37b4cadb7269"], +In[138]:=",ExpressionUUID->"d67f7206-d5ed-4598-ba6b-a64c1cdd78fe"], 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, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913476018885117`*^9, 3.994015047970805*^9}, CellLabel-> "During evaluation of \ -In[468]:=",ExpressionUUID->"2ff3d4da-4949-1448-b68b-aac1ae56bb1a"], +In[138]:=",ExpressionUUID->"c821454b-bcf1-4dab-ad69-4b547a9ac795"], -Cell[BoxData["7.912653285153152`"], "Output", - CellChangeTimes->{3.9913476058912296`*^9}, +Cell[BoxData["4.383838480348012`"], "Output", + CellChangeTimes->{3.9913476058912296`*^9, 3.9940150516341057`*^9}, CellLabel-> - "Out[468]=",ExpressionUUID->"046dcac0-9165-4b41-8a82-c19ed01a7ad4"] + "Out[138]=",ExpressionUUID->"8f4ea6c3-9df1-42d8-a40b-fcec037b2e26"] }, Open ]], Cell[CellGroupData[{ @@ -7749,93 +13268,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[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:eJwV1nk8Vc/7AHB7spSliIvsdUXJRUjmsWcNlYhkufeQhJBEpY2+ZZdEJWUp +ZG2x10+o0A2FlE9E4cq+3EOb+o0/zuu83q8z88zznDMzZxS8g5wYXBwcHGP4 +Wrkfb9+6qaqz3Ujg9v7BNw9YyGg6T8fbrBjV7qsRZmIPZuumKZvVoxrfoesr +dqC/5ROivUSxH95GvMWuiIhu4jVjoqXcs5Xt2FdebWiILnqHWroW7DuxazqP +3/mj1YPe+muYvMce72s7faruI1oVtCW5G1t6RMlt0fQzOsqa0uvFtpk5rR/K +/II2fw4z7MN+/mdcMKJoCFk7N9zsx/5wXjKqMvAb0vfs3DuEPc1nNs7WGkF6 +vPm+I9h88cGutKVRVO9o9OE7tpxoVsvxujFktPd29jS2PWXx/rTpJHpYft/k +JzZxV1FCg38acWvslfmHHa2yJ+YocwapZjc78Baw0EfJ7u1hRXPoVMViqxg2 +/aD/kWvx86g+smqNNPbsbY57jwIXUEvcrlIFbH5FDZE5LRLFfctc3o6dRm+y +FFm/iLrcgksMsOUfuEZvW1pEjtFC1abYeuqx08fqfiChHen9zth+ul+Y46Z/ +0Key+SPnsdkRJ3gEVJdRTsPPmXjsc3WChlT+v2g2/HVnBnYG6D30Zf5D1Yyq +nIqV/PJbzEKKOKH94tRlFnbRq2uD5ylc0DWrMUyu5MvyOJ0SzwW3THRv8RSy +0Gk18nF5IDdY786WUsJOK1NQmtHiBU2ejwfo2H2dk8//5vJCVJX71RPY8vNV +B9es5wPLriLJy9jF2vapGkt8wEPJM3mI3VwTyRlQxw86XKJ9S9hkU9eXMVMh +oATxr80pYiExWyGRqOdC8FpuZKAWW7PbDIT1hcFcNFKqG9t/+Ond7VvXwINN +7e2rHrJQMBdTc5eQCEhbUQ3CsEcUS+diFkXhVR7nOq9i/H6IttUdNDHg7kxK +OofN9XBUYcNxMci8+vnEXWx52kanogkx2BT2+MIQ9kHT5Eftg+JQ1+2T5VfC +Qh0+IaGSb9aDjr9+79VSFhp4kBjnyS8BRxvH/pZjT04U5RaaS4Chv0dKL7ZA +2LeunQ0SwGy7s6hSxkJml/Zpez6VBF3Ri42vsWvzdMmCbCmQ93Px3FjBQnkj +v8INwmSB6RReLfeEhXbvvzwQWiILDiK/mfbYk83iFiWjsvAhscAoGls7T329 +vKscqMqd0x/Cbvb2eMxrtBH0xrcnFD5lofmZwZNjF+XhQZtqiU0VC4kfM3vy +2E4RHJ83dPXUstBonoCfg78izNxMShStY6Hqz52UqVhFWHh4674dtrvtoYuq +DYowsCtw+hV23pZwp0wtJbggJ9r/rB6PP/5g9qykMhzkmtN99pyF9vkKalgP +qUBjE/GVs4mFUPh+rQPLKpBmwBqwxFaLyd5Bl1IFxc2yOonYHLk0k7OOqlAS +WzxNaWahkgG3A49eqIK+R1D6zpd4fToXn5fO2QRnavRq4l7j/MzsPox7U8HN +955jEJOFcvfe+G/pLBV2mNJjG7ATvYcGeW5RQUJnaZ3YWzy/z52YkOuigjwr +GVVii9Zncew1VYO0/xW3cXXg+UObVqtT2gL0+D01xe9YiKKYFB03rA6Zs81/ +TXtZqP4qm/qTSwM8DGhWBdjuC67dhIIGoJTQZaGPLHSnWZlq4qEB5kFBub3Y +ir6173/0agDL5+TI8T5cb/GICvFmK4zZsExq+1lIliJHyLtqQmtbWMDNYRZS +zw8T+o204NlI36uMBRbypl8kNey14HH7ksRaNl6vSqkDnu5aoOcS3xSDzZ1T +Vv4qQgtylBW0wki83u6M70ut0AK7Igpj/xLeTzM8s6hKNCCTCSXqb/x942y3 +uvBpw+wfLgEJ7jF0L0TZ4SlTB7SD4l/xrhtDneFox6V8ffBIVJCo3DWGFDx6 +7A8F7AI3Dc6b1sfGEONfZansKYDVn9KdcrPHkORE9SpJbxNQG3H71/h5DIXR +DD+nqpkBc/+p1p+U78h76k+L+Lg5bPYR+ltz+DsqMQldld1hCaG3hZaryr6j +PLb/i+I0K9CmeG49zjGOfhhveNscbQON9b+skz3GUT8H99yQlx1sS9XnzHkx +jgJlgpLPK+0BiyfIbkZpApUeaWm4HuMAP7bPRk6lTaDIBamlLUcc4ZTRu/rd +PJOItLZwfn3YCfj8k5cMLk4ifbcU4xHHvdDW27ZZkG8KvZfK8m+m7YPTel6G +RMwUkr5/sb5g834wlsms5l4/jaoH1WzthZ1h7YaBKM6700iue9Y3fMoZeu5X +3r6iPoNo11OKcwcPgKfz7HbX1hmUxbOwNbXJBXZ88x9+sG0WVRpv64upcYWG +Klb2zQuzKGPHVdE/RQchg2D0Ej2zqOO//FhavBvcfBF35oLSHHpqd1s5+Jw7 +nJRNiGuOmENzx/ZyBNIPwRUv/nvhLXOItKD6TZt6QOulYgMLiXlUMPXpR6ju +Yfgb7BDXd2QeudzL9zkk5An+Pb8srlTOo8ePbA5zX/aEwpkKhcJVC0if8v7n +lZ+eUOxTdHvJYQEpDfr2vTviBeencwQ40xfQsODRPbe/eUFPwjUrSv8C6ky0 +97Hc7w0/qnSKXChslBaRLXii0xtKftdQi13ZqP75v58+Vj6gPDvGEk1ho7Xu +cJlW6wOtfMlaa/+PjeTXve6QqfeB4L2fB1uxNZl2G/ie+4BAudfGSw1s5GTo +VvjxhQ+kmKTaLr3A8WXC35xp9QF1ju8+H5vZSLr/4dqWjz4wEpV2JKaNjZQ9 +JDPcl3xAPzd56koPG//HpwtitOlAlb2wqDPORvczZ0PtdenA3IWMW7HXdc0b +SerRodG2Scl9go2mzZe6C3bS4Z5qY9m5STbevzg4mSZ0UL4hONQ8zUZrlkRd +xRzpAA6X0vQX2Gg4QWd19jE6HDb9kN31m40S604fqb5Ph8z+nHMvBUl0TOuG +fkQBHfhT2sp2CpHItrBitV4RHWg1aScqsAVujBZWldChM+pV8y1hEsWEOIxX +PqGDbVlW0NG1JDpNVT76tJEOc0GGrEUxEvnfeBPwaIAOafknvz6TIpHVmlHD +kEE6jOSbNqlKk2hzDIew1lc67HI6p5eEPRqiU1IxQofa9NWDHhQSedlnT5VP +0oEoSFb4KUMiF97QwLJfdFifY+spJU8iy1Dp4GIJBpgqlHnwq5KoMTvWOnUD +A3YEBBw9im3InFeOkGbAZX2TpbfYmipvPpnKMUAhdCouZROJpHqjTP9TYUAn +xeSBGJVEEwb9EgI6DPAP3pr+ZwuJkrjuPvPdy4Crk7TPgdtx/duEMuz2M6D/ +ynThC+xLbhEhtAMMkJDOZovjc07EE4dN/w4yoGMpl6MK24vgTEn3ZoCxetLc +Io1EtDZv+svjDHjHbKd66JKoN0VFUCmZAVHl/MmtBiQqRcJ+YykMUD8ic2LV +Thx/it1cco0Be6SSRs2wtayaz+rdYEBdm1/gc+xEDp95uzsM2B3ZI1JsSCKL +oLufIooZwKCIZRw3IpGs7P90jUoZ4NwaaVSAzW4LusZdzoDfuQXBA9g5qsgu +8TEDmFyaEVaIRMv9/Q25tQxojV0UkwYSPbGlFLS3MOCF2nhQvjE+x/3i4k1r +Y4CLdmZ7N7Z3wbiXK5MBBTdjq7lNSCTCU0sZ7mBAArGs4YkdUOeS9PMDA9oS +Y+6Im5JISS09XHmEAWs+XEuim5HoV++Zru+jDChre3gnHrszhqFZNsYAz4hE +vSfYZ4e0x/UnGWBbkynEZU6ivoyuQ3sWcH/VdToZ2KmrRM0jOQk4PGdwodSC +RPXz/W5h3AT811nE2YXN6i8KCeQlwC3h2vQituETs7veqwmoHqsQ2WWJ55tn +xG9rUQLKel1ONGKL2JqLmYsTcDzy5eGv2Dt3iFHRegJO5YVUce4mUbJwsTNN +ioCW3LBSI+ydtV8qKAoEfLriV1uBTeQXt6xXIkD6LXXN25X2yae+rFUhIPLj +r3YW9ighLsxDJUBQrfIGxQo/F7f0m9QkgJm6bHYau/avePSoFgFZMgUc17BH +vg9eH9QmIMNGn1qIbdAQ2dStR4CYzXJDF/ZwQKncMyDgoluqgKI1ida4ROlU +mRDwpHlJXRtb33S3bYUZbu+oWG+OnSj19VT+bgIWnavlfbGrecqSs60JaBuQ +WQzH/jYT9SDTlgCP+3p6sdh6r9b3JDgQ8NfrClcutnfF14nLTgTIuVZfLcdO +uF3GdWEfAYbpqdHPsL+GWGmGuxAQoG9U1oMt7CFhGXyQgPQbAuODK/Gsvh3y +dydgfEtEysRK/41n4jw8Cdilt1X130o+AtY5Lt4EnMwKEee3wfFIiRonOgFW +4g7HRLCFh7512BIEzH9upm3A1mOWj1r4EXDQvYPYiO1ddWYZ/AlYJxbIp4qd +kGO9bmcAAY5Z2WLq2NUJklt0AnE9dd5x21fiRwwbbwsm4KF1ZbAuthC9woUa +QkCyWWajAfaOPWeDlMIIuNkkcN5oJb6BTaxsOAGHOASKjbHjVTZkSUYQIOOU +bmqGXSky8lg0koDWrWWWFthDvyvaBE8TwLllX7XlSnzW2SHeswSI/Lp0fTe2 +7nubH/+icT3HjL+s+P8BFhn6/w== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -7849,105 +13369,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:eJwV1nk8Vc/7AHB7spSliIvsdUXJRUjmsWcNlYhkufeQhJBEpY2+ZZdEJWUp +ZG2x10+o0A2FlE9E4cq+3EOb+o0/zuu83q8z88zznDMzZxS8g5wYXBwcHGP4 +Wrkfb9+6qaqz3Ujg9v7BNw9YyGg6T8fbrBjV7qsRZmIPZuumKZvVoxrfoesr +dqC/5ROivUSxH95GvMWuiIhu4jVjoqXcs5Xt2FdebWiILnqHWroW7DuxazqP +3/mj1YPe+muYvMce72s7faruI1oVtCW5G1t6RMlt0fQzOsqa0uvFtpk5rR/K +/II2fw4z7MN+/mdcMKJoCFk7N9zsx/5wXjKqMvAb0vfs3DuEPc1nNs7WGkF6 +vPm+I9h88cGutKVRVO9o9OE7tpxoVsvxujFktPd29jS2PWXx/rTpJHpYft/k +JzZxV1FCg38acWvslfmHHa2yJ+YocwapZjc78Baw0EfJ7u1hRXPoVMViqxg2 +/aD/kWvx86g+smqNNPbsbY57jwIXUEvcrlIFbH5FDZE5LRLFfctc3o6dRm+y +FFm/iLrcgksMsOUfuEZvW1pEjtFC1abYeuqx08fqfiChHen9zth+ul+Y46Z/ +0Key+SPnsdkRJ3gEVJdRTsPPmXjsc3WChlT+v2g2/HVnBnYG6D30Zf5D1Yyq +nIqV/PJbzEKKOKH94tRlFnbRq2uD5ylc0DWrMUyu5MvyOJ0SzwW3THRv8RSy +0Gk18nF5IDdY786WUsJOK1NQmtHiBU2ejwfo2H2dk8//5vJCVJX71RPY8vNV +B9es5wPLriLJy9jF2vapGkt8wEPJM3mI3VwTyRlQxw86XKJ9S9hkU9eXMVMh +oATxr80pYiExWyGRqOdC8FpuZKAWW7PbDIT1hcFcNFKqG9t/+Ond7VvXwINN +7e2rHrJQMBdTc5eQCEhbUQ3CsEcUS+diFkXhVR7nOq9i/H6IttUdNDHg7kxK +OofN9XBUYcNxMci8+vnEXWx52kanogkx2BT2+MIQ9kHT5Eftg+JQ1+2T5VfC +Qh0+IaGSb9aDjr9+79VSFhp4kBjnyS8BRxvH/pZjT04U5RaaS4Chv0dKL7ZA +2LeunQ0SwGy7s6hSxkJml/Zpez6VBF3Ri42vsWvzdMmCbCmQ93Px3FjBQnkj +v8INwmSB6RReLfeEhXbvvzwQWiILDiK/mfbYk83iFiWjsvAhscAoGls7T329 +vKscqMqd0x/Cbvb2eMxrtBH0xrcnFD5lofmZwZNjF+XhQZtqiU0VC4kfM3vy +2E4RHJ83dPXUstBonoCfg78izNxMShStY6Hqz52UqVhFWHh4674dtrvtoYuq +DYowsCtw+hV23pZwp0wtJbggJ9r/rB6PP/5g9qykMhzkmtN99pyF9vkKalgP +qUBjE/GVs4mFUPh+rQPLKpBmwBqwxFaLyd5Bl1IFxc2yOonYHLk0k7OOqlAS +WzxNaWahkgG3A49eqIK+R1D6zpd4fToXn5fO2QRnavRq4l7j/MzsPox7U8HN +955jEJOFcvfe+G/pLBV2mNJjG7ATvYcGeW5RQUJnaZ3YWzy/z52YkOuigjwr +GVVii9Zncew1VYO0/xW3cXXg+UObVqtT2gL0+D01xe9YiKKYFB03rA6Zs81/ +TXtZqP4qm/qTSwM8DGhWBdjuC67dhIIGoJTQZaGPLHSnWZlq4qEB5kFBub3Y +ir6173/0agDL5+TI8T5cb/GICvFmK4zZsExq+1lIliJHyLtqQmtbWMDNYRZS +zw8T+o204NlI36uMBRbypl8kNey14HH7ksRaNl6vSqkDnu5aoOcS3xSDzZ1T +Vv4qQgtylBW0wki83u6M70ut0AK7Igpj/xLeTzM8s6hKNCCTCSXqb/x942y3 +uvBpw+wfLgEJ7jF0L0TZ4SlTB7SD4l/xrhtDneFox6V8ffBIVJCo3DWGFDx6 +7A8F7AI3Dc6b1sfGEONfZansKYDVn9KdcrPHkORE9SpJbxNQG3H71/h5DIXR +DD+nqpkBc/+p1p+U78h76k+L+Lg5bPYR+ltz+DsqMQldld1hCaG3hZaryr6j +PLb/i+I0K9CmeG49zjGOfhhveNscbQON9b+skz3GUT8H99yQlx1sS9XnzHkx +jgJlgpLPK+0BiyfIbkZpApUeaWm4HuMAP7bPRk6lTaDIBamlLUcc4ZTRu/rd +PJOItLZwfn3YCfj8k5cMLk4ifbcU4xHHvdDW27ZZkG8KvZfK8m+m7YPTel6G +RMwUkr5/sb5g834wlsms5l4/jaoH1WzthZ1h7YaBKM6700iue9Y3fMoZeu5X +3r6iPoNo11OKcwcPgKfz7HbX1hmUxbOwNbXJBXZ88x9+sG0WVRpv64upcYWG +Klb2zQuzKGPHVdE/RQchg2D0Ej2zqOO//FhavBvcfBF35oLSHHpqd1s5+Jw7 +nJRNiGuOmENzx/ZyBNIPwRUv/nvhLXOItKD6TZt6QOulYgMLiXlUMPXpR6ju +Yfgb7BDXd2QeudzL9zkk5An+Pb8srlTOo8ePbA5zX/aEwpkKhcJVC0if8v7n +lZ+eUOxTdHvJYQEpDfr2vTviBeencwQ40xfQsODRPbe/eUFPwjUrSv8C6ky0 +97Hc7w0/qnSKXChslBaRLXii0xtKftdQi13ZqP75v58+Vj6gPDvGEk1ho7Xu +cJlW6wOtfMlaa/+PjeTXve6QqfeB4L2fB1uxNZl2G/ie+4BAudfGSw1s5GTo +VvjxhQ+kmKTaLr3A8WXC35xp9QF1ju8+H5vZSLr/4dqWjz4wEpV2JKaNjZQ9 +JDPcl3xAPzd56koPG//HpwtitOlAlb2wqDPORvczZ0PtdenA3IWMW7HXdc0b +SerRodG2Scl9go2mzZe6C3bS4Z5qY9m5STbevzg4mSZ0UL4hONQ8zUZrlkRd +xRzpAA6X0vQX2Gg4QWd19jE6HDb9kN31m40S604fqb5Ph8z+nHMvBUl0TOuG +fkQBHfhT2sp2CpHItrBitV4RHWg1aScqsAVujBZWldChM+pV8y1hEsWEOIxX +PqGDbVlW0NG1JDpNVT76tJEOc0GGrEUxEvnfeBPwaIAOafknvz6TIpHVmlHD +kEE6jOSbNqlKk2hzDIew1lc67HI6p5eEPRqiU1IxQofa9NWDHhQSedlnT5VP +0oEoSFb4KUMiF97QwLJfdFifY+spJU8iy1Dp4GIJBpgqlHnwq5KoMTvWOnUD +A3YEBBw9im3InFeOkGbAZX2TpbfYmipvPpnKMUAhdCouZROJpHqjTP9TYUAn +xeSBGJVEEwb9EgI6DPAP3pr+ZwuJkrjuPvPdy4Crk7TPgdtx/duEMuz2M6D/ +ynThC+xLbhEhtAMMkJDOZovjc07EE4dN/w4yoGMpl6MK24vgTEn3ZoCxetLc +Io1EtDZv+svjDHjHbKd66JKoN0VFUCmZAVHl/MmtBiQqRcJ+YykMUD8ic2LV +Thx/it1cco0Be6SSRs2wtayaz+rdYEBdm1/gc+xEDp95uzsM2B3ZI1JsSCKL +oLufIooZwKCIZRw3IpGs7P90jUoZ4NwaaVSAzW4LusZdzoDfuQXBA9g5qsgu +8TEDmFyaEVaIRMv9/Q25tQxojV0UkwYSPbGlFLS3MOCF2nhQvjE+x/3i4k1r +Y4CLdmZ7N7Z3wbiXK5MBBTdjq7lNSCTCU0sZ7mBAArGs4YkdUOeS9PMDA9oS +Y+6Im5JISS09XHmEAWs+XEuim5HoV++Zru+jDChre3gnHrszhqFZNsYAz4hE +vSfYZ4e0x/UnGWBbkynEZU6ivoyuQ3sWcH/VdToZ2KmrRM0jOQk4PGdwodSC +RPXz/W5h3AT811nE2YXN6i8KCeQlwC3h2vQituETs7veqwmoHqsQ2WWJ55tn +xG9rUQLKel1ONGKL2JqLmYsTcDzy5eGv2Dt3iFHRegJO5YVUce4mUbJwsTNN +ioCW3LBSI+ydtV8qKAoEfLriV1uBTeQXt6xXIkD6LXXN25X2yae+rFUhIPLj +r3YW9ighLsxDJUBQrfIGxQo/F7f0m9QkgJm6bHYau/avePSoFgFZMgUc17BH +vg9eH9QmIMNGn1qIbdAQ2dStR4CYzXJDF/ZwQKncMyDgoluqgKI1ida4ROlU +mRDwpHlJXRtb33S3bYUZbu+oWG+OnSj19VT+bgIWnavlfbGrecqSs60JaBuQ +WQzH/jYT9SDTlgCP+3p6sdh6r9b3JDgQ8NfrClcutnfF14nLTgTIuVZfLcdO +uF3GdWEfAYbpqdHPsL+GWGmGuxAQoG9U1oMt7CFhGXyQgPQbAuODK/Gsvh3y +dydgfEtEysRK/41n4jw8Cdilt1X130o+AtY5Lt4EnMwKEee3wfFIiRonOgFW +4g7HRLCFh7512BIEzH9upm3A1mOWj1r4EXDQvYPYiO1ddWYZ/AlYJxbIp4qd +kGO9bmcAAY5Z2WLq2NUJklt0AnE9dd5x21fiRwwbbwsm4KF1ZbAuthC9woUa +QkCyWWajAfaOPWeDlMIIuNkkcN5oJb6BTaxsOAGHOASKjbHjVTZkSUYQIOOU +bmqGXSky8lg0koDWrWWWFthDvyvaBE8TwLllX7XlSnzW2SHeswSI/Lp0fTe2 +7nubH/+icT3HjL+s+P8BFhn6/w== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5511670383120075, - 1.7091854080147844`}}, + "PlotRange" -> {{0, 180}, {0.73923295798602, 1.330880043117642}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5511670383120088}, + "AxesOrigin" -> {0, 0.7392329579860216}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.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 +13479,20 @@ wTw= "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5511670383120075, - 1.7091854080147844`}}, + "PlotRange" -> {{0, 180}, {0.73923295798602, 1.330880043117642}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5511670383120088}, + "AxesOrigin" -> {0, 0.7392329579860216}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 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 +13506,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:eJwV1nk8Vc/7AHB7spSliIvsdUXJRUjmsWcNlYhkufeQhJBEpY2+ZZdEJWUp +ZG2x10+o0A2FlE9E4cq+3EOb+o0/zuu83q8z88zznDMzZxS8g5wYXBwcHGP4 +Wrkfb9+6qaqz3Ujg9v7BNw9YyGg6T8fbrBjV7qsRZmIPZuumKZvVoxrfoesr +dqC/5ROivUSxH95GvMWuiIhu4jVjoqXcs5Xt2FdebWiILnqHWroW7DuxazqP +3/mj1YPe+muYvMce72s7faruI1oVtCW5G1t6RMlt0fQzOsqa0uvFtpk5rR/K +/II2fw4z7MN+/mdcMKJoCFk7N9zsx/5wXjKqMvAb0vfs3DuEPc1nNs7WGkF6 +vPm+I9h88cGutKVRVO9o9OE7tpxoVsvxujFktPd29jS2PWXx/rTpJHpYft/k +JzZxV1FCg38acWvslfmHHa2yJ+YocwapZjc78Baw0EfJ7u1hRXPoVMViqxg2 +/aD/kWvx86g+smqNNPbsbY57jwIXUEvcrlIFbH5FDZE5LRLFfctc3o6dRm+y +FFm/iLrcgksMsOUfuEZvW1pEjtFC1abYeuqx08fqfiChHen9zth+ul+Y46Z/ +0Key+SPnsdkRJ3gEVJdRTsPPmXjsc3WChlT+v2g2/HVnBnYG6D30Zf5D1Yyq +nIqV/PJbzEKKOKH94tRlFnbRq2uD5ylc0DWrMUyu5MvyOJ0SzwW3THRv8RSy +0Gk18nF5IDdY786WUsJOK1NQmtHiBU2ejwfo2H2dk8//5vJCVJX71RPY8vNV +B9es5wPLriLJy9jF2vapGkt8wEPJM3mI3VwTyRlQxw86XKJ9S9hkU9eXMVMh +oATxr80pYiExWyGRqOdC8FpuZKAWW7PbDIT1hcFcNFKqG9t/+Ond7VvXwINN +7e2rHrJQMBdTc5eQCEhbUQ3CsEcUS+diFkXhVR7nOq9i/H6IttUdNDHg7kxK +OofN9XBUYcNxMci8+vnEXWx52kanogkx2BT2+MIQ9kHT5Eftg+JQ1+2T5VfC +Qh0+IaGSb9aDjr9+79VSFhp4kBjnyS8BRxvH/pZjT04U5RaaS4Chv0dKL7ZA +2LeunQ0SwGy7s6hSxkJml/Zpez6VBF3Ri42vsWvzdMmCbCmQ93Px3FjBQnkj +v8INwmSB6RReLfeEhXbvvzwQWiILDiK/mfbYk83iFiWjsvAhscAoGls7T329 +vKscqMqd0x/Cbvb2eMxrtBH0xrcnFD5lofmZwZNjF+XhQZtqiU0VC4kfM3vy +2E4RHJ83dPXUstBonoCfg78izNxMShStY6Hqz52UqVhFWHh4674dtrvtoYuq +DYowsCtw+hV23pZwp0wtJbggJ9r/rB6PP/5g9qykMhzkmtN99pyF9vkKalgP +qUBjE/GVs4mFUPh+rQPLKpBmwBqwxFaLyd5Bl1IFxc2yOonYHLk0k7OOqlAS +WzxNaWahkgG3A49eqIK+R1D6zpd4fToXn5fO2QRnavRq4l7j/MzsPox7U8HN +955jEJOFcvfe+G/pLBV2mNJjG7ATvYcGeW5RQUJnaZ3YWzy/z52YkOuigjwr +GVVii9Zncew1VYO0/xW3cXXg+UObVqtT2gL0+D01xe9YiKKYFB03rA6Zs81/ +TXtZqP4qm/qTSwM8DGhWBdjuC67dhIIGoJTQZaGPLHSnWZlq4qEB5kFBub3Y +ir6173/0agDL5+TI8T5cb/GICvFmK4zZsExq+1lIliJHyLtqQmtbWMDNYRZS +zw8T+o204NlI36uMBRbypl8kNey14HH7ksRaNl6vSqkDnu5aoOcS3xSDzZ1T +Vv4qQgtylBW0wki83u6M70ut0AK7Igpj/xLeTzM8s6hKNCCTCSXqb/x942y3 +uvBpw+wfLgEJ7jF0L0TZ4SlTB7SD4l/xrhtDneFox6V8ffBIVJCo3DWGFDx6 +7A8F7AI3Dc6b1sfGEONfZansKYDVn9KdcrPHkORE9SpJbxNQG3H71/h5DIXR +DD+nqpkBc/+p1p+U78h76k+L+Lg5bPYR+ltz+DsqMQldld1hCaG3hZaryr6j +PLb/i+I0K9CmeG49zjGOfhhveNscbQON9b+skz3GUT8H99yQlx1sS9XnzHkx +jgJlgpLPK+0BiyfIbkZpApUeaWm4HuMAP7bPRk6lTaDIBamlLUcc4ZTRu/rd +PJOItLZwfn3YCfj8k5cMLk4ifbcU4xHHvdDW27ZZkG8KvZfK8m+m7YPTel6G +RMwUkr5/sb5g834wlsms5l4/jaoH1WzthZ1h7YaBKM6700iue9Y3fMoZeu5X +3r6iPoNo11OKcwcPgKfz7HbX1hmUxbOwNbXJBXZ88x9+sG0WVRpv64upcYWG +Klb2zQuzKGPHVdE/RQchg2D0Ej2zqOO//FhavBvcfBF35oLSHHpqd1s5+Jw7 +nJRNiGuOmENzx/ZyBNIPwRUv/nvhLXOItKD6TZt6QOulYgMLiXlUMPXpR6ju +Yfgb7BDXd2QeudzL9zkk5An+Pb8srlTOo8ePbA5zX/aEwpkKhcJVC0if8v7n +lZ+eUOxTdHvJYQEpDfr2vTviBeencwQ40xfQsODRPbe/eUFPwjUrSv8C6ky0 +97Hc7w0/qnSKXChslBaRLXii0xtKftdQi13ZqP75v58+Vj6gPDvGEk1ho7Xu +cJlW6wOtfMlaa/+PjeTXve6QqfeB4L2fB1uxNZl2G/ie+4BAudfGSw1s5GTo +VvjxhQ+kmKTaLr3A8WXC35xp9QF1ju8+H5vZSLr/4dqWjz4wEpV2JKaNjZQ9 +JDPcl3xAPzd56koPG//HpwtitOlAlb2wqDPORvczZ0PtdenA3IWMW7HXdc0b +SerRodG2Scl9go2mzZe6C3bS4Z5qY9m5STbevzg4mSZ0UL4hONQ8zUZrlkRd +xRzpAA6X0vQX2Gg4QWd19jE6HDb9kN31m40S604fqb5Ph8z+nHMvBUl0TOuG +fkQBHfhT2sp2CpHItrBitV4RHWg1aScqsAVujBZWldChM+pV8y1hEsWEOIxX +PqGDbVlW0NG1JDpNVT76tJEOc0GGrEUxEvnfeBPwaIAOafknvz6TIpHVmlHD +kEE6jOSbNqlKk2hzDIew1lc67HI6p5eEPRqiU1IxQofa9NWDHhQSedlnT5VP +0oEoSFb4KUMiF97QwLJfdFifY+spJU8iy1Dp4GIJBpgqlHnwq5KoMTvWOnUD +A3YEBBw9im3InFeOkGbAZX2TpbfYmipvPpnKMUAhdCouZROJpHqjTP9TYUAn +xeSBGJVEEwb9EgI6DPAP3pr+ZwuJkrjuPvPdy4Crk7TPgdtx/duEMuz2M6D/ +ynThC+xLbhEhtAMMkJDOZovjc07EE4dN/w4yoGMpl6MK24vgTEn3ZoCxetLc +Io1EtDZv+svjDHjHbKd66JKoN0VFUCmZAVHl/MmtBiQqRcJ+YykMUD8ic2LV +Thx/it1cco0Be6SSRs2wtayaz+rdYEBdm1/gc+xEDp95uzsM2B3ZI1JsSCKL +oLufIooZwKCIZRw3IpGs7P90jUoZ4NwaaVSAzW4LusZdzoDfuQXBA9g5qsgu +8TEDmFyaEVaIRMv9/Q25tQxojV0UkwYSPbGlFLS3MOCF2nhQvjE+x/3i4k1r +Y4CLdmZ7N7Z3wbiXK5MBBTdjq7lNSCTCU0sZ7mBAArGs4YkdUOeS9PMDA9oS +Y+6Im5JISS09XHmEAWs+XEuim5HoV++Zru+jDChre3gnHrszhqFZNsYAz4hE +vSfYZ4e0x/UnGWBbkynEZU6ivoyuQ3sWcH/VdToZ2KmrRM0jOQk4PGdwodSC +RPXz/W5h3AT811nE2YXN6i8KCeQlwC3h2vQituETs7veqwmoHqsQ2WWJ55tn +xG9rUQLKel1ONGKL2JqLmYsTcDzy5eGv2Dt3iFHRegJO5YVUce4mUbJwsTNN +ioCW3LBSI+ydtV8qKAoEfLriV1uBTeQXt6xXIkD6LXXN25X2yae+rFUhIPLj +r3YW9ighLsxDJUBQrfIGxQo/F7f0m9QkgJm6bHYau/avePSoFgFZMgUc17BH +vg9eH9QmIMNGn1qIbdAQ2dStR4CYzXJDF/ZwQKncMyDgoluqgKI1ida4ROlU +mRDwpHlJXRtb33S3bYUZbu+oWG+OnSj19VT+bgIWnavlfbGrecqSs60JaBuQ +WQzH/jYT9SDTlgCP+3p6sdh6r9b3JDgQ8NfrClcutnfF14nLTgTIuVZfLcdO +uF3GdWEfAYbpqdHPsL+GWGmGuxAQoG9U1oMt7CFhGXyQgPQbAuODK/Gsvh3y +dydgfEtEysRK/41n4jw8Cdilt1X130o+AtY5Lt4EnMwKEee3wfFIiRonOgFW +4g7HRLCFh7512BIEzH9upm3A1mOWj1r4EXDQvYPYiO1ddWYZ/AlYJxbIp4qd +kGO9bmcAAY5Z2WLq2NUJklt0AnE9dd5x21fiRwwbbwsm4KF1ZbAuthC9woUa +QkCyWWajAfaOPWeDlMIIuNkkcN5oJb6BTaxsOAGHOASKjbHjVTZkSUYQIOOU +bmqGXSky8lg0koDWrWWWFthDvyvaBE8TwLllX7XlSnzW2SHeswSI/Lp0fTe2 +7nubH/+icT3HjL+s+P8BFhn6/w== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5511670383120075, 1.7091854080147844`}}, + "PlotRange" -> {{0, 180}, {0.73923295798602, 1.330880043117642}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5511670383120088}, + "AxesOrigin" -> {0, 0.7392329579860216}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 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 +13613,8 @@ wTw= AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.5511670383120088}, + AxesOrigin->{0, 0.7392329579860216}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -8121,7 +13642,8 @@ wTw= Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.5511670383120075, 1.7091854080147844`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.73923295798602, 1.330880043117642}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -8129,9 +13651,9 @@ wTw= Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991347865018469*^9}, + CellChangeTimes->{3.991347865018469*^9, 3.994015330856357*^9}, CellLabel-> - "Out[469]=",ExpressionUUID->"d1cda4a3-f1fb-0d44-a506-74525ae66245"] + "Out[139]=",ExpressionUUID->"55d9da26-81cf-46ce-8fc5-e10c7c8aabf9"] }, Open ]], Cell[CellGroupData[{ @@ -8146,30 +13668,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[{"-", @@ -8195,199 +13720,159 @@ 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[\\\"4.024870049321531`*^-264\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 69, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913478652482224`*^9, 3.9940153309980507`*^9}, CellLabel-> "During evaluation of \ -In[470]:=",ExpressionUUID->"56dc07a7-05cc-424a-8fff-08f056385a44"], +In[140]:=",ExpressionUUID->"64ce6e73-95bb-4e59-8bd8-395cea444900"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.7391049816418008`*^-279\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.4216233647146092`*^-275\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 70, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913478652482224`*^9, 3.994015331004912*^9}, + CellLabel-> + "During evaluation of \ +In[140]:=",ExpressionUUID->"95dcf9d5-5b64-436b-9ff9-b25acdae1e79"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.021312405957474`*^-287\\\", \ \\\"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, 71, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913478652482224`*^9, 3.994015331012052*^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[140]:=",ExpressionUUID->"66930e13-ac07-4e5d-ab7a-27f8046b310d"], 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, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913478652482224`*^9, 3.99401533102001*^9}, CellLabel-> "During evaluation of \ -In[470]:=",ExpressionUUID->"64c101a8-dc8b-1f4e-9946-a38ce949c736"], +In[140]:=",ExpressionUUID->"c4321329-5a09-42e1-a2a0-7554f7769b4c"], 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:eJwV13k8VdsXAHDRoIFEmV333HupjJkzXGtFkblkyBDK2ECDImROvChTxmRK +UoZ7TgNPKqJnqFQvEfqlgSaVzKLU77zzz/l8P5/92Xt/1l5r7XOIPQftffn5 +6GcBH99/7+mBjvuc5DJjEZGGix/C0Ph5oWTYpt44qO/WmNY3YACuebJHsjcD ++jqyPk7qq0HItqsvBHpLwdjprXObvjGsGpHImH1xDWRyOoJO6tvC69u2Bydf +NEOKQ8fxaxs9wIwz/GrsxTMYrThTmagTBLMv9LJGX7yD3rAW5ZF1UdBierns +39IJmI57n7pXKxVkX9d/2KMyD8PLZxeYDmfD6gOeV5eYCuB9if2k68MLkKFh +1mDrKIiXLpqqFOwrhb7cDU1jIkKYuGuR8e9jlyC5LPoJv9QqtL061OR7rAIk +zg3+lXlBDLcJNE2IilSCpPLNkz/KxdBH0TeNIVUJ0s2noneRYrig6y95BVYl +MEbXH1vbIoY5P1pE2NqVoGB9yKvhkxi+33FE/p1zJWgtnNcd1FqNRu7p0/sL +K8HuqPiQ5oPVKDi6VOHy2ipIdLAwfja9BhU+6YcmKFWD9I3H0vwLxNFscOXr +r5rVUCPmMKOxXByVfl0WtjWshp5nHmS6vDi++L7j3rxVNXC2H2Vt3yqOS12S +XUUDq6HZpmjx0zxxrGUrZ66sqYZ5s6nHnUYSOM6t2uKgXAPB+iWeHXGSqMHu +YLwW5YFlsfCkVYok6t5IDDOW4gFryYmkx1mSOG1TbJIrz4Onz52orgpJfDJ4 +lmGowgO1QysEBh5L4uXNSZPcLTz4VB5aPi4thRZVUS/0Qnjgvtr2m8x1KRx/ +XtYy18UDrYiG2MLbUijO2+17uY8Hy96tEydapfCBnXCQ7Wse1PMEQLFPCtO1 +aq8nD/NA3Ko+bcMfKQwaPH1qNx8JT2M52luspPFW8IIjouIkbP4+Fx40KI1R +47/2uQIJYVvPKd37Ko334y3PP9hEQk2Jar/YtDS+XB0nvXEzCZIOXvr1gjJY +Hfls0XILEr7+/c+MgJoM3vkpkZ5mT0JmXNrRvOMyODmUniDtS8K7NYpB94Vk +cXf3Jz+lJBIkDjbKSUjI4jtd1czNp0mwbt/ZuZcpizJTz0XcU0ioDU9WWakl +izeCOvni00g4/Xp02GWnLOqI8teRuSRoXmnw/14qi30G/5xPriAh1mj7bumN +cjh9tdgXW0nY6lE4rmcihzYnCr2V20kQjvkS72gth2ESqSD2gISCloTyNC85 +/BjlntHXScLflre+LP5LDsuj/Cuxm4TRneyQiT45fNxo9fX4IAl14YeWrBqS +w4DI+i8a70mIKriTqzYihw3t3Z0fP5Cw4o1zw15+BnYH7zW0HCZhrX8K3xsl +Bs5Guv/zeZQEj2NTpx9FMDD1+IF3mfMkKOSYyA4nMNC0Y1pH5s9/8UutXpLG +wBqLF4eL+CgI/7X+qUkZAydDOGWFAhRkxXusqX/EwFu/h+ZDl1LwKL2t6JKc +PIr75bzJXk2BQU3ejahGeXwd3eObtI6CzS8ez4+0y+NQcJ5Q/noKbPkWmns+ +k0djFRC5okSBt31QH7yXxxr9zrWNKhSYRRDRMYuY+O2rXeXDDRQckp++uEmZ +ietMPnv5baRg6npa+6w6E7Vu4ScbfXp/W5W/UdpM3Kqp9q+mAQUJh710WcZM +vLnibMekIQX5LQ/a+bcz0fNOr5cLUHDfv+hbSwgT5bi7Ui9tocDil77oiQgm +Csro+HmbUfA47bmudgwTbQ5OX2KYU9BXvzSm7C8m9rbL7zmzlYKR5UdFEwqY +eF4vp9/KioLgYmE9bgkT06Jw8RTtH9pX3KYuMXEovq7wvDUFAh4DZb48Ju7e +vkLyrQ0FkuRWPbNmJg5PehnYbKPgwuZBt9+tTDz8K77/LW1WX2RM7UMmRhhG +fwneToEq//UOxW4mFjwR3pNmT4GJg5z7kk9MbBFVJK86UND2qS6m8SsT4yPy +3ys5UmAdaX8pdIyJfIREWgVt5/LEkY9zTNRUtDYrcKLgwI+xmHYhAjfsvGXm +u5M+r8N+4h9ECZxnf1Topy043F8pIEngahMXIWsXCi69bOkxZhFo8uzVjKIr +BUcdNh5wX0ugrq/rr1TaJp1VC8JVCFRLHl0+TXvgbpbKTV0Ck53N7OrdKKjS +W9b8zJDAN7YhJ8Xd6fMio5xHkUCZ8OK2Q7TFS/3jlK0IPBn5KFx2FwV2Cfq9 +JZ4EvncSurLNgwLG7+rARh8Ca6oy92TT/hrCEni1l8As8Tn1PtpJAcvVJI8S +SO4NWOrkSYHT2+gWnTACLZ6Ni6fR5rhO7twRRWCj9R7DNtpNVq/izyYReL5k +/qGKFwVn72+XqjpD4NBnSt+Ntju3taYjg8BWhvu9U7SVag02f8whMNWm2ZtH +e1aN17fwAoHtxpVEN+32y+yDrFICC48N/Jyhnc3MXYiXCTyszpmQ2E2BT96K +/F1VBOp4bxHUoa0pGqseQRG46N5yIzvafMlT93NrCUyhNqX60X4ssM+1toHA +GMdr/BG0C04MfO9qIlAqYX1OCu39U/YJY/8QmPkk2OY8bYOgNumVDwnMD/dQ +vExb8KMhqfKUwM7YOhZJu8eT3GLZTeDabBvTWtplvZyX/v0EnpEbTaqnfWR7 +3qGE1wQqax6c/M/4QGjxxSECF5aeP1VHW9g07nzTZwKdRszwGu1XDdMbBkYI +lLQyZV2lXaW9v/XnBIFhhd6qRbTDq1+7Sc0SuDkmYk867a2KDmO6vwkM1Pds +jqEtXtR+ykGAhftbBm0CaQ9JcGWPCLKws21gkTPta2kUlSrEwqwixS9c2jFL +Fc2rRVnYZJ/xm6BtF5f/vwcSLOTlzKIAbcZP4SOfZFlY8Uz7+ls6/l+D45cs +ZrHQeI2c0x3aSb4HNDepsHDcyV3jAG2ngTdtHhosnO0J2A+0Oc6Ou07ostDe +80zfStpNW42T6pCF2oNpjhV0vpy9d02uewsLg24o+R6i7W6w9vq4JQvNN9pX +6dCeVRYZUHVkYbpp21AdnY/TF6RjtVxZGCkgJhlCe3KlAkffk4Wn90kVa9Ae +mdDft3kvC3c8qqKK6Xz/4rtZyDKIhT7ZH4wcaH96YUvaBbPQ9JI2cxHtdw3e +066RLLzRGDjuQdfLa9WgPK84er1dywaX0P5f0XEjv0QW9ngz1GvoeuuJPxN3 +OJ2Fcebir8bpenxgVSecdImFCf4WFe50PbfduUeduUrHj1OSMkrX+331Rw6Z +PBYeLrHviqV9V+xtfmE9C/2mjJMLnOnzeLls7c1OFmacvXfnGt1P8vd7wLsp +FuLU3ok9dH/KeRXw7uMcC/UExfw76f51zi444dsfFg7rmFvp0D6rlfTwx1I2 +3g0aDZi3pSDuJ+W8ksFGd6V7ogfp/rg/edEhIzM2fgsb+dZL99+A+ZViJlb0 ++H9W90rT9jsoXWu+jY2pZ2I3udL92muH+i97VzYqRH7P+teUAgcZl6S9QWw8 +EhztWYoUGFVWFWdns7F5lYJlJ30/vGRWFm05z8ZCh/x1M/T9EZ59pXCyiI3s +gJ8fGLTrYssL7K+w0ejipcUBunR97izOFb7Nxov3aj6+0aRg/aJzaafe0vPL +7XoXqEznr2dETIgKB7N8A1znpCm4+TwsWkGDgydNipvfStH7sTwe9VyHg4Vz +qZw2SQoydI6d0AQO+np86E0Wp0BoxcHjI9s5aPelUnp+FQUL6/cc8gvlYMT6 +2DvRghSMiVp6OTVzsNJlif/ySRJ6D7Ce7mvj4J8f0eHZ4yQ0tc5B9CMOaoqr +WcuPkZAWXilf0cNB9uJMNaUREja8W/F6dpiDqhcChRU+kRBEPdl1QUwBZVx+ +a5IvSRi2c3Qb8lHA5aq6H9j3SBhK8XI6skQR+YVDqaYEevywCmvDCkX83f6Z +8yGehBnz2W/fRBSxNT7hzdI4EpYJZCTslabHhyzTto6i1wtrueGlqog2Cmv8 +b4eQEOmrKGa3QxHH8oSeW/mTIG789YlykSJKPriQpGpOgsX3UIv3umsxh2HR +qslPf294CwbfiF6Hbwzf/2Rfq6H/DyT4E5vXY6h1ns8d/WoQ7VQ8S35XQgbf +U5+ghkqQTeJt09VVwS/j6hW9AlchV1lfRMxfFb+wS+RqXCrggfQmnYl0NTzt +4HlwklcOBrLNaeo96tjxjDej+aYMhAVKj+6O24D9RzLNIrQuAiNW3shFUQMX +S2nd+n2gBJYquNfat2lgiaRBye+IIlDjSvFCd2liuU3/tm3hBXBkQLTFkk8L +y40ZH3W88+D7RIqjRa4WCmYNzvVXZ4O5emu+hao2KnYXRSpqnYO7E4Y/Zx5r +o+Gxk3+n1qZDkIpm/7++OhioE3ieq5IK3BGf5y5LdXFQWSx18c/TsIUjaSNU +qkvvr83NMDgR1sWcPt6sp4dln81nJxxPgpKvfqNCvx5aRo3NV+yIBd+7ASdv +HN6IvKZThrZkJDQWP/cZW6OPJG+OWzlzHCYr/syo1+ljo17Poa6xo+CtULk0 +38YAt2kYfYkmD8OYUqbutVEDLA0tyNloHQh/l/18O5VkiJFmmTynwwHgupmN +hgwjlGg6pqvu4QMygYn1ak1G6H58JjG2yAvO/vHTSW42wpPrgubvZngBf4YZ +9fG+EYpmGc0tPOUFw7WLrhR3GOEVSAm9esALbvGdzBXtMsJrHvN8bgZe4Hou +JnT6vRFSjvUVBTWekNsQpnN3ORczFu0bua3mAWuWHaBsnLlYf89R3s3DDcpM +I8NHXbgY/qkicIeZG2hGnjXNdOei/nY78FBzA9tRsrt3NxevtA5zK3+7wqme +qVnvA1z8XNK4hyh2hR+l0SbhsVys4RNQO/rBBfoNM7vKK7n4bUfjkHfMTgg4 +VlZgUcNFG+HPHtn7dsJ0zU3fryQXGSs9R/scdoIoq3dGo5aLJ6VmVM6t3wlW +gnKyd5q4GKjr3tvV5Qy3n5f7dHVzUX1CxydE2Rkshf9WDenl4omYErWb4s7Q +a94xLfmSi3VpNbsX8jvD5K0vSR5vuDjws7qnq9cJVEs2VH8e5uLtQJenOolO +cLt/U0jKNy4eNWy9Pn3ECSxX7wD1US4a2TtebfNwAr/EY/8eneLi/66Hlufp +OsFk06l8iR9cTB16n53PcoK4uRzvW3NcLFuvcqhS2AlEtK+o7Jrn4l61+2sf +zTlCYeCtqT9/uLg6VuX6rw+O8H+HZyxO "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -8401,158 +13886,114 @@ 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:eJwV13k8VdsXAHDRoIFEmV333HupjJkzXGtFkblkyBDK2ECDImROvChTxmRK +UoZ7TgNPKqJnqFQvEfqlgSaVzKLU77zzz/l8P5/92Xt/1l5r7XOIPQftffn5 +6GcBH99/7+mBjvuc5DJjEZGGix/C0Ph5oWTYpt44qO/WmNY3YACuebJHsjcD ++jqyPk7qq0HItqsvBHpLwdjprXObvjGsGpHImH1xDWRyOoJO6tvC69u2Bydf +NEOKQ8fxaxs9wIwz/GrsxTMYrThTmagTBLMv9LJGX7yD3rAW5ZF1UdBierns +39IJmI57n7pXKxVkX9d/2KMyD8PLZxeYDmfD6gOeV5eYCuB9if2k68MLkKFh +1mDrKIiXLpqqFOwrhb7cDU1jIkKYuGuR8e9jlyC5LPoJv9QqtL061OR7rAIk +zg3+lXlBDLcJNE2IilSCpPLNkz/KxdBH0TeNIVUJ0s2noneRYrig6y95BVYl +MEbXH1vbIoY5P1pE2NqVoGB9yKvhkxi+33FE/p1zJWgtnNcd1FqNRu7p0/sL +K8HuqPiQ5oPVKDi6VOHy2ipIdLAwfja9BhU+6YcmKFWD9I3H0vwLxNFscOXr +r5rVUCPmMKOxXByVfl0WtjWshp5nHmS6vDi++L7j3rxVNXC2H2Vt3yqOS12S +XUUDq6HZpmjx0zxxrGUrZ66sqYZ5s6nHnUYSOM6t2uKgXAPB+iWeHXGSqMHu +YLwW5YFlsfCkVYok6t5IDDOW4gFryYmkx1mSOG1TbJIrz4Onz52orgpJfDJ4 +lmGowgO1QysEBh5L4uXNSZPcLTz4VB5aPi4thRZVUS/0Qnjgvtr2m8x1KRx/ +XtYy18UDrYiG2MLbUijO2+17uY8Hy96tEydapfCBnXCQ7Wse1PMEQLFPCtO1 +aq8nD/NA3Ko+bcMfKQwaPH1qNx8JT2M52luspPFW8IIjouIkbP4+Fx40KI1R +47/2uQIJYVvPKd37Ko334y3PP9hEQk2Jar/YtDS+XB0nvXEzCZIOXvr1gjJY +Hfls0XILEr7+/c+MgJoM3vkpkZ5mT0JmXNrRvOMyODmUniDtS8K7NYpB94Vk +cXf3Jz+lJBIkDjbKSUjI4jtd1czNp0mwbt/ZuZcpizJTz0XcU0ioDU9WWakl +izeCOvni00g4/Xp02GWnLOqI8teRuSRoXmnw/14qi30G/5xPriAh1mj7bumN +cjh9tdgXW0nY6lE4rmcihzYnCr2V20kQjvkS72gth2ESqSD2gISCloTyNC85 +/BjlntHXScLflre+LP5LDsuj/Cuxm4TRneyQiT45fNxo9fX4IAl14YeWrBqS +w4DI+i8a70mIKriTqzYihw3t3Z0fP5Cw4o1zw15+BnYH7zW0HCZhrX8K3xsl +Bs5Guv/zeZQEj2NTpx9FMDD1+IF3mfMkKOSYyA4nMNC0Y1pH5s9/8UutXpLG +wBqLF4eL+CgI/7X+qUkZAydDOGWFAhRkxXusqX/EwFu/h+ZDl1LwKL2t6JKc +PIr75bzJXk2BQU3ejahGeXwd3eObtI6CzS8ez4+0y+NQcJ5Q/noKbPkWmns+ +k0djFRC5okSBt31QH7yXxxr9zrWNKhSYRRDRMYuY+O2rXeXDDRQckp++uEmZ +ietMPnv5baRg6npa+6w6E7Vu4ScbfXp/W5W/UdpM3Kqp9q+mAQUJh710WcZM +vLnibMekIQX5LQ/a+bcz0fNOr5cLUHDfv+hbSwgT5bi7Ui9tocDil77oiQgm +Csro+HmbUfA47bmudgwTbQ5OX2KYU9BXvzSm7C8m9rbL7zmzlYKR5UdFEwqY +eF4vp9/KioLgYmE9bgkT06Jw8RTtH9pX3KYuMXEovq7wvDUFAh4DZb48Ju7e +vkLyrQ0FkuRWPbNmJg5PehnYbKPgwuZBt9+tTDz8K77/LW1WX2RM7UMmRhhG +fwneToEq//UOxW4mFjwR3pNmT4GJg5z7kk9MbBFVJK86UND2qS6m8SsT4yPy +3ys5UmAdaX8pdIyJfIREWgVt5/LEkY9zTNRUtDYrcKLgwI+xmHYhAjfsvGXm +u5M+r8N+4h9ECZxnf1Topy043F8pIEngahMXIWsXCi69bOkxZhFo8uzVjKIr +BUcdNh5wX0ugrq/rr1TaJp1VC8JVCFRLHl0+TXvgbpbKTV0Ck53N7OrdKKjS +W9b8zJDAN7YhJ8Xd6fMio5xHkUCZ8OK2Q7TFS/3jlK0IPBn5KFx2FwV2Cfq9 +JZ4EvncSurLNgwLG7+rARh8Ca6oy92TT/hrCEni1l8As8Tn1PtpJAcvVJI8S +SO4NWOrkSYHT2+gWnTACLZ6Ni6fR5rhO7twRRWCj9R7DNtpNVq/izyYReL5k +/qGKFwVn72+XqjpD4NBnSt+Ntju3taYjg8BWhvu9U7SVag02f8whMNWm2ZtH +e1aN17fwAoHtxpVEN+32y+yDrFICC48N/Jyhnc3MXYiXCTyszpmQ2E2BT96K +/F1VBOp4bxHUoa0pGqseQRG46N5yIzvafMlT93NrCUyhNqX60X4ssM+1toHA +GMdr/BG0C04MfO9qIlAqYX1OCu39U/YJY/8QmPkk2OY8bYOgNumVDwnMD/dQ +vExb8KMhqfKUwM7YOhZJu8eT3GLZTeDabBvTWtplvZyX/v0EnpEbTaqnfWR7 +3qGE1wQqax6c/M/4QGjxxSECF5aeP1VHW9g07nzTZwKdRszwGu1XDdMbBkYI +lLQyZV2lXaW9v/XnBIFhhd6qRbTDq1+7Sc0SuDkmYk867a2KDmO6vwkM1Pds +jqEtXtR+ykGAhftbBm0CaQ9JcGWPCLKws21gkTPta2kUlSrEwqwixS9c2jFL +Fc2rRVnYZJ/xm6BtF5f/vwcSLOTlzKIAbcZP4SOfZFlY8Uz7+ls6/l+D45cs +ZrHQeI2c0x3aSb4HNDepsHDcyV3jAG2ngTdtHhosnO0J2A+0Oc6Ou07ostDe +80zfStpNW42T6pCF2oNpjhV0vpy9d02uewsLg24o+R6i7W6w9vq4JQvNN9pX +6dCeVRYZUHVkYbpp21AdnY/TF6RjtVxZGCkgJhlCe3KlAkffk4Wn90kVa9Ae +mdDft3kvC3c8qqKK6Xz/4rtZyDKIhT7ZH4wcaH96YUvaBbPQ9JI2cxHtdw3e +066RLLzRGDjuQdfLa9WgPK84er1dywaX0P5f0XEjv0QW9ngz1GvoeuuJPxN3 +OJ2Fcebir8bpenxgVSecdImFCf4WFe50PbfduUeduUrHj1OSMkrX+331Rw6Z +PBYeLrHviqV9V+xtfmE9C/2mjJMLnOnzeLls7c1OFmacvXfnGt1P8vd7wLsp +FuLU3ok9dH/KeRXw7uMcC/UExfw76f51zi444dsfFg7rmFvp0D6rlfTwx1I2 +3g0aDZi3pSDuJ+W8ksFGd6V7ogfp/rg/edEhIzM2fgsb+dZL99+A+ZViJlb0 ++H9W90rT9jsoXWu+jY2pZ2I3udL92muH+i97VzYqRH7P+teUAgcZl6S9QWw8 +EhztWYoUGFVWFWdns7F5lYJlJ30/vGRWFm05z8ZCh/x1M/T9EZ59pXCyiI3s +gJ8fGLTrYssL7K+w0ejipcUBunR97izOFb7Nxov3aj6+0aRg/aJzaafe0vPL +7XoXqEznr2dETIgKB7N8A1znpCm4+TwsWkGDgydNipvfStH7sTwe9VyHg4Vz +qZw2SQoydI6d0AQO+np86E0Wp0BoxcHjI9s5aPelUnp+FQUL6/cc8gvlYMT6 +2DvRghSMiVp6OTVzsNJlif/ySRJ6D7Ce7mvj4J8f0eHZ4yQ0tc5B9CMOaoqr +WcuPkZAWXilf0cNB9uJMNaUREja8W/F6dpiDqhcChRU+kRBEPdl1QUwBZVx+ +a5IvSRi2c3Qb8lHA5aq6H9j3SBhK8XI6skQR+YVDqaYEevywCmvDCkX83f6Z +8yGehBnz2W/fRBSxNT7hzdI4EpYJZCTslabHhyzTto6i1wtrueGlqog2Cmv8 +b4eQEOmrKGa3QxHH8oSeW/mTIG789YlykSJKPriQpGpOgsX3UIv3umsxh2HR +qslPf294CwbfiF6Hbwzf/2Rfq6H/DyT4E5vXY6h1ns8d/WoQ7VQ8S35XQgbf +U5+ghkqQTeJt09VVwS/j6hW9AlchV1lfRMxfFb+wS+RqXCrggfQmnYl0NTzt +4HlwklcOBrLNaeo96tjxjDej+aYMhAVKj+6O24D9RzLNIrQuAiNW3shFUQMX +S2nd+n2gBJYquNfat2lgiaRBye+IIlDjSvFCd2liuU3/tm3hBXBkQLTFkk8L +y40ZH3W88+D7RIqjRa4WCmYNzvVXZ4O5emu+hao2KnYXRSpqnYO7E4Y/Zx5r +o+Gxk3+n1qZDkIpm/7++OhioE3ieq5IK3BGf5y5LdXFQWSx18c/TsIUjaSNU +qkvvr83NMDgR1sWcPt6sp4dln81nJxxPgpKvfqNCvx5aRo3NV+yIBd+7ASdv +HN6IvKZThrZkJDQWP/cZW6OPJG+OWzlzHCYr/syo1+ljo17Poa6xo+CtULk0 +38YAt2kYfYkmD8OYUqbutVEDLA0tyNloHQh/l/18O5VkiJFmmTynwwHgupmN +hgwjlGg6pqvu4QMygYn1ak1G6H58JjG2yAvO/vHTSW42wpPrgubvZngBf4YZ +9fG+EYpmGc0tPOUFw7WLrhR3GOEVSAm9esALbvGdzBXtMsJrHvN8bgZe4Hou +JnT6vRFSjvUVBTWekNsQpnN3ORczFu0bua3mAWuWHaBsnLlYf89R3s3DDcpM +I8NHXbgY/qkicIeZG2hGnjXNdOei/nY78FBzA9tRsrt3NxevtA5zK3+7wqme +qVnvA1z8XNK4hyh2hR+l0SbhsVys4RNQO/rBBfoNM7vKK7n4bUfjkHfMTgg4 +VlZgUcNFG+HPHtn7dsJ0zU3fryQXGSs9R/scdoIoq3dGo5aLJ6VmVM6t3wlW +gnKyd5q4GKjr3tvV5Qy3n5f7dHVzUX1CxydE2Rkshf9WDenl4omYErWb4s7Q +a94xLfmSi3VpNbsX8jvD5K0vSR5vuDjws7qnq9cJVEs2VH8e5uLtQJenOolO +cLt/U0jKNy4eNWy9Pn3ECSxX7wD1US4a2TtebfNwAr/EY/8eneLi/66Hlufp +OsFk06l8iR9cTB16n53PcoK4uRzvW3NcLFuvcqhS2AlEtK+o7Jrn4l61+2sf +zTlCYeCtqT9/uLg6VuX6rw+O8H+HZyxO "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "PlotRange" -> {{0, 30}, {0., 0.06789743631015514}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +14005,139 @@ fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "PlotRange" -> {{0, 30}, {0., 0.06789743631015514}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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:eJwV13k8VdsXAHDRoIFEmV333HupjJkzXGtFkblkyBDK2ECDImROvChTxmRK +UoZ7TgNPKqJnqFQvEfqlgSaVzKLU77zzz/l8P5/92Xt/1l5r7XOIPQftffn5 +6GcBH99/7+mBjvuc5DJjEZGGix/C0Ph5oWTYpt44qO/WmNY3YACuebJHsjcD ++jqyPk7qq0HItqsvBHpLwdjprXObvjGsGpHImH1xDWRyOoJO6tvC69u2Bydf +NEOKQ8fxaxs9wIwz/GrsxTMYrThTmagTBLMv9LJGX7yD3rAW5ZF1UdBierns +39IJmI57n7pXKxVkX9d/2KMyD8PLZxeYDmfD6gOeV5eYCuB9if2k68MLkKFh +1mDrKIiXLpqqFOwrhb7cDU1jIkKYuGuR8e9jlyC5LPoJv9QqtL061OR7rAIk +zg3+lXlBDLcJNE2IilSCpPLNkz/KxdBH0TeNIVUJ0s2noneRYrig6y95BVYl +MEbXH1vbIoY5P1pE2NqVoGB9yKvhkxi+33FE/p1zJWgtnNcd1FqNRu7p0/sL +K8HuqPiQ5oPVKDi6VOHy2ipIdLAwfja9BhU+6YcmKFWD9I3H0vwLxNFscOXr +r5rVUCPmMKOxXByVfl0WtjWshp5nHmS6vDi++L7j3rxVNXC2H2Vt3yqOS12S +XUUDq6HZpmjx0zxxrGUrZ66sqYZ5s6nHnUYSOM6t2uKgXAPB+iWeHXGSqMHu +YLwW5YFlsfCkVYok6t5IDDOW4gFryYmkx1mSOG1TbJIrz4Onz52orgpJfDJ4 +lmGowgO1QysEBh5L4uXNSZPcLTz4VB5aPi4thRZVUS/0Qnjgvtr2m8x1KRx/ +XtYy18UDrYiG2MLbUijO2+17uY8Hy96tEydapfCBnXCQ7Wse1PMEQLFPCtO1 +aq8nD/NA3Ko+bcMfKQwaPH1qNx8JT2M52luspPFW8IIjouIkbP4+Fx40KI1R +47/2uQIJYVvPKd37Ko334y3PP9hEQk2Jar/YtDS+XB0nvXEzCZIOXvr1gjJY +Hfls0XILEr7+/c+MgJoM3vkpkZ5mT0JmXNrRvOMyODmUniDtS8K7NYpB94Vk +cXf3Jz+lJBIkDjbKSUjI4jtd1czNp0mwbt/ZuZcpizJTz0XcU0ioDU9WWakl +izeCOvni00g4/Xp02GWnLOqI8teRuSRoXmnw/14qi30G/5xPriAh1mj7bumN +cjh9tdgXW0nY6lE4rmcihzYnCr2V20kQjvkS72gth2ESqSD2gISCloTyNC85 +/BjlntHXScLflre+LP5LDsuj/Cuxm4TRneyQiT45fNxo9fX4IAl14YeWrBqS +w4DI+i8a70mIKriTqzYihw3t3Z0fP5Cw4o1zw15+BnYH7zW0HCZhrX8K3xsl +Bs5Guv/zeZQEj2NTpx9FMDD1+IF3mfMkKOSYyA4nMNC0Y1pH5s9/8UutXpLG +wBqLF4eL+CgI/7X+qUkZAydDOGWFAhRkxXusqX/EwFu/h+ZDl1LwKL2t6JKc +PIr75bzJXk2BQU3ejahGeXwd3eObtI6CzS8ez4+0y+NQcJ5Q/noKbPkWmns+ +k0djFRC5okSBt31QH7yXxxr9zrWNKhSYRRDRMYuY+O2rXeXDDRQckp++uEmZ +ietMPnv5baRg6npa+6w6E7Vu4ScbfXp/W5W/UdpM3Kqp9q+mAQUJh710WcZM +vLnibMekIQX5LQ/a+bcz0fNOr5cLUHDfv+hbSwgT5bi7Ui9tocDil77oiQgm +Csro+HmbUfA47bmudgwTbQ5OX2KYU9BXvzSm7C8m9rbL7zmzlYKR5UdFEwqY +eF4vp9/KioLgYmE9bgkT06Jw8RTtH9pX3KYuMXEovq7wvDUFAh4DZb48Ju7e +vkLyrQ0FkuRWPbNmJg5PehnYbKPgwuZBt9+tTDz8K77/LW1WX2RM7UMmRhhG +fwneToEq//UOxW4mFjwR3pNmT4GJg5z7kk9MbBFVJK86UND2qS6m8SsT4yPy +3ys5UmAdaX8pdIyJfIREWgVt5/LEkY9zTNRUtDYrcKLgwI+xmHYhAjfsvGXm +u5M+r8N+4h9ECZxnf1Topy043F8pIEngahMXIWsXCi69bOkxZhFo8uzVjKIr +BUcdNh5wX0ugrq/rr1TaJp1VC8JVCFRLHl0+TXvgbpbKTV0Ck53N7OrdKKjS +W9b8zJDAN7YhJ8Xd6fMio5xHkUCZ8OK2Q7TFS/3jlK0IPBn5KFx2FwV2Cfq9 +JZ4EvncSurLNgwLG7+rARh8Ca6oy92TT/hrCEni1l8As8Tn1PtpJAcvVJI8S +SO4NWOrkSYHT2+gWnTACLZ6Ni6fR5rhO7twRRWCj9R7DNtpNVq/izyYReL5k +/qGKFwVn72+XqjpD4NBnSt+Ntju3taYjg8BWhvu9U7SVag02f8whMNWm2ZtH +e1aN17fwAoHtxpVEN+32y+yDrFICC48N/Jyhnc3MXYiXCTyszpmQ2E2BT96K +/F1VBOp4bxHUoa0pGqseQRG46N5yIzvafMlT93NrCUyhNqX60X4ssM+1toHA +GMdr/BG0C04MfO9qIlAqYX1OCu39U/YJY/8QmPkk2OY8bYOgNumVDwnMD/dQ +vExb8KMhqfKUwM7YOhZJu8eT3GLZTeDabBvTWtplvZyX/v0EnpEbTaqnfWR7 +3qGE1wQqax6c/M/4QGjxxSECF5aeP1VHW9g07nzTZwKdRszwGu1XDdMbBkYI +lLQyZV2lXaW9v/XnBIFhhd6qRbTDq1+7Sc0SuDkmYk867a2KDmO6vwkM1Pds +jqEtXtR+ykGAhftbBm0CaQ9JcGWPCLKws21gkTPta2kUlSrEwqwixS9c2jFL +Fc2rRVnYZJ/xm6BtF5f/vwcSLOTlzKIAbcZP4SOfZFlY8Uz7+ls6/l+D45cs +ZrHQeI2c0x3aSb4HNDepsHDcyV3jAG2ngTdtHhosnO0J2A+0Oc6Ou07ostDe +80zfStpNW42T6pCF2oNpjhV0vpy9d02uewsLg24o+R6i7W6w9vq4JQvNN9pX +6dCeVRYZUHVkYbpp21AdnY/TF6RjtVxZGCkgJhlCe3KlAkffk4Wn90kVa9Ae +mdDft3kvC3c8qqKK6Xz/4rtZyDKIhT7ZH4wcaH96YUvaBbPQ9JI2cxHtdw3e +066RLLzRGDjuQdfLa9WgPK84er1dywaX0P5f0XEjv0QW9ngz1GvoeuuJPxN3 +OJ2Fcebir8bpenxgVSecdImFCf4WFe50PbfduUeduUrHj1OSMkrX+331Rw6Z +PBYeLrHviqV9V+xtfmE9C/2mjJMLnOnzeLls7c1OFmacvXfnGt1P8vd7wLsp +FuLU3ok9dH/KeRXw7uMcC/UExfw76f51zi444dsfFg7rmFvp0D6rlfTwx1I2 +3g0aDZi3pSDuJ+W8ksFGd6V7ogfp/rg/edEhIzM2fgsb+dZL99+A+ZViJlb0 ++H9W90rT9jsoXWu+jY2pZ2I3udL92muH+i97VzYqRH7P+teUAgcZl6S9QWw8 +EhztWYoUGFVWFWdns7F5lYJlJ30/vGRWFm05z8ZCh/x1M/T9EZ59pXCyiI3s +gJ8fGLTrYssL7K+w0ejipcUBunR97izOFb7Nxov3aj6+0aRg/aJzaafe0vPL +7XoXqEznr2dETIgKB7N8A1znpCm4+TwsWkGDgydNipvfStH7sTwe9VyHg4Vz +qZw2SQoydI6d0AQO+np86E0Wp0BoxcHjI9s5aPelUnp+FQUL6/cc8gvlYMT6 +2DvRghSMiVp6OTVzsNJlif/ySRJ6D7Ce7mvj4J8f0eHZ4yQ0tc5B9CMOaoqr +WcuPkZAWXilf0cNB9uJMNaUREja8W/F6dpiDqhcChRU+kRBEPdl1QUwBZVx+ +a5IvSRi2c3Qb8lHA5aq6H9j3SBhK8XI6skQR+YVDqaYEevywCmvDCkX83f6Z +8yGehBnz2W/fRBSxNT7hzdI4EpYJZCTslabHhyzTto6i1wtrueGlqog2Cmv8 +b4eQEOmrKGa3QxHH8oSeW/mTIG789YlykSJKPriQpGpOgsX3UIv3umsxh2HR +qslPf294CwbfiF6Hbwzf/2Rfq6H/DyT4E5vXY6h1ns8d/WoQ7VQ8S35XQgbf +U5+ghkqQTeJt09VVwS/j6hW9AlchV1lfRMxfFb+wS+RqXCrggfQmnYl0NTzt +4HlwklcOBrLNaeo96tjxjDej+aYMhAVKj+6O24D9RzLNIrQuAiNW3shFUQMX +S2nd+n2gBJYquNfat2lgiaRBye+IIlDjSvFCd2liuU3/tm3hBXBkQLTFkk8L +y40ZH3W88+D7RIqjRa4WCmYNzvVXZ4O5emu+hao2KnYXRSpqnYO7E4Y/Zx5r +o+Gxk3+n1qZDkIpm/7++OhioE3ieq5IK3BGf5y5LdXFQWSx18c/TsIUjaSNU +qkvvr83NMDgR1sWcPt6sp4dln81nJxxPgpKvfqNCvx5aRo3NV+yIBd+7ASdv +HN6IvKZThrZkJDQWP/cZW6OPJG+OWzlzHCYr/syo1+ljo17Poa6xo+CtULk0 +38YAt2kYfYkmD8OYUqbutVEDLA0tyNloHQh/l/18O5VkiJFmmTynwwHgupmN +hgwjlGg6pqvu4QMygYn1ak1G6H58JjG2yAvO/vHTSW42wpPrgubvZngBf4YZ +9fG+EYpmGc0tPOUFw7WLrhR3GOEVSAm9esALbvGdzBXtMsJrHvN8bgZe4Hou +JnT6vRFSjvUVBTWekNsQpnN3ORczFu0bua3mAWuWHaBsnLlYf89R3s3DDcpM +I8NHXbgY/qkicIeZG2hGnjXNdOei/nY78FBzA9tRsrt3NxevtA5zK3+7wqme +qVnvA1z8XNK4hyh2hR+l0SbhsVys4RNQO/rBBfoNM7vKK7n4bUfjkHfMTgg4 +VlZgUcNFG+HPHtn7dsJ0zU3fryQXGSs9R/scdoIoq3dGo5aLJ6VmVM6t3wlW +gnKyd5q4GKjr3tvV5Qy3n5f7dHVzUX1CxydE2Rkshf9WDenl4omYErWb4s7Q +a94xLfmSi3VpNbsX8jvD5K0vSR5vuDjws7qnq9cJVEs2VH8e5uLtQJenOolO +cLt/U0jKNy4eNWy9Pn3ECSxX7wD1US4a2TtebfNwAr/EY/8eneLi/66Hlufp +OsFk06l8iR9cTB16n53PcoK4uRzvW3NcLFuvcqhS2AlEtK+o7Jrn4l61+2sf +zTlCYeCtqT9/uLg6VuX6rw+O8H+HZyxO "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "PlotRange" -> {{0, 30}, {0., 0.06789743631015514}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {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 +14148,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 +14176,8 @@ fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.16919668648256683`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06789743631015514}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -8786,17 +14185,562 @@ fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913483238131485`*^9}, + CellChangeTimes->{3.9913483238131485`*^9, 3.994015644407132*^9}, CellLabel-> - "Out[470]=",ExpressionUUID->"f98d1ba6-9bcb-b94f-a8fa-792e22f5ac65"] + "Out[140]=",ExpressionUUID->"7f6c629d-8afb-4027-8791-85a6bc546469"] }, 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:eJwV13k8VdsXAHDRoIFEmV333HupjJkzXGtFkblkyBDK2ECDImROvChTxmRK +UoZ7TgNPKqJnqFQvEfqlgSaVzKLU77zzz/l8P5/92Xt/1l5r7XOIPQftffn5 +6GcBH99/7+mBjvuc5DJjEZGGix/C0Ph5oWTYpt44qO/WmNY3YACuebJHsjcD ++jqyPk7qq0HItqsvBHpLwdjprXObvjGsGpHImH1xDWRyOoJO6tvC69u2Bydf +NEOKQ8fxaxs9wIwz/GrsxTMYrThTmagTBLMv9LJGX7yD3rAW5ZF1UdBierns +39IJmI57n7pXKxVkX9d/2KMyD8PLZxeYDmfD6gOeV5eYCuB9if2k68MLkKFh +1mDrKIiXLpqqFOwrhb7cDU1jIkKYuGuR8e9jlyC5LPoJv9QqtL061OR7rAIk +zg3+lXlBDLcJNE2IilSCpPLNkz/KxdBH0TeNIVUJ0s2noneRYrig6y95BVYl +MEbXH1vbIoY5P1pE2NqVoGB9yKvhkxi+33FE/p1zJWgtnNcd1FqNRu7p0/sL +K8HuqPiQ5oPVKDi6VOHy2ipIdLAwfja9BhU+6YcmKFWD9I3H0vwLxNFscOXr +r5rVUCPmMKOxXByVfl0WtjWshp5nHmS6vDi++L7j3rxVNXC2H2Vt3yqOS12S +XUUDq6HZpmjx0zxxrGUrZ66sqYZ5s6nHnUYSOM6t2uKgXAPB+iWeHXGSqMHu +YLwW5YFlsfCkVYok6t5IDDOW4gFryYmkx1mSOG1TbJIrz4Onz52orgpJfDJ4 +lmGowgO1QysEBh5L4uXNSZPcLTz4VB5aPi4thRZVUS/0Qnjgvtr2m8x1KRx/ +XtYy18UDrYiG2MLbUijO2+17uY8Hy96tEydapfCBnXCQ7Wse1PMEQLFPCtO1 +aq8nD/NA3Ko+bcMfKQwaPH1qNx8JT2M52luspPFW8IIjouIkbP4+Fx40KI1R +47/2uQIJYVvPKd37Ko334y3PP9hEQk2Jar/YtDS+XB0nvXEzCZIOXvr1gjJY +Hfls0XILEr7+/c+MgJoM3vkpkZ5mT0JmXNrRvOMyODmUniDtS8K7NYpB94Vk +cXf3Jz+lJBIkDjbKSUjI4jtd1czNp0mwbt/ZuZcpizJTz0XcU0ioDU9WWakl +izeCOvni00g4/Xp02GWnLOqI8teRuSRoXmnw/14qi30G/5xPriAh1mj7bumN +cjh9tdgXW0nY6lE4rmcihzYnCr2V20kQjvkS72gth2ESqSD2gISCloTyNC85 +/BjlntHXScLflre+LP5LDsuj/Cuxm4TRneyQiT45fNxo9fX4IAl14YeWrBqS +w4DI+i8a70mIKriTqzYihw3t3Z0fP5Cw4o1zw15+BnYH7zW0HCZhrX8K3xsl +Bs5Guv/zeZQEj2NTpx9FMDD1+IF3mfMkKOSYyA4nMNC0Y1pH5s9/8UutXpLG +wBqLF4eL+CgI/7X+qUkZAydDOGWFAhRkxXusqX/EwFu/h+ZDl1LwKL2t6JKc +PIr75bzJXk2BQU3ejahGeXwd3eObtI6CzS8ez4+0y+NQcJ5Q/noKbPkWmns+ +k0djFRC5okSBt31QH7yXxxr9zrWNKhSYRRDRMYuY+O2rXeXDDRQckp++uEmZ +ietMPnv5baRg6npa+6w6E7Vu4ScbfXp/W5W/UdpM3Kqp9q+mAQUJh710WcZM +vLnibMekIQX5LQ/a+bcz0fNOr5cLUHDfv+hbSwgT5bi7Ui9tocDil77oiQgm +Csro+HmbUfA47bmudgwTbQ5OX2KYU9BXvzSm7C8m9rbL7zmzlYKR5UdFEwqY +eF4vp9/KioLgYmE9bgkT06Jw8RTtH9pX3KYuMXEovq7wvDUFAh4DZb48Ju7e +vkLyrQ0FkuRWPbNmJg5PehnYbKPgwuZBt9+tTDz8K77/LW1WX2RM7UMmRhhG +fwneToEq//UOxW4mFjwR3pNmT4GJg5z7kk9MbBFVJK86UND2qS6m8SsT4yPy +3ys5UmAdaX8pdIyJfIREWgVt5/LEkY9zTNRUtDYrcKLgwI+xmHYhAjfsvGXm +u5M+r8N+4h9ECZxnf1Topy043F8pIEngahMXIWsXCi69bOkxZhFo8uzVjKIr +BUcdNh5wX0ugrq/rr1TaJp1VC8JVCFRLHl0+TXvgbpbKTV0Ck53N7OrdKKjS +W9b8zJDAN7YhJ8Xd6fMio5xHkUCZ8OK2Q7TFS/3jlK0IPBn5KFx2FwV2Cfq9 +JZ4EvncSurLNgwLG7+rARh8Ca6oy92TT/hrCEni1l8As8Tn1PtpJAcvVJI8S +SO4NWOrkSYHT2+gWnTACLZ6Ni6fR5rhO7twRRWCj9R7DNtpNVq/izyYReL5k +/qGKFwVn72+XqjpD4NBnSt+Ntju3taYjg8BWhvu9U7SVag02f8whMNWm2ZtH +e1aN17fwAoHtxpVEN+32y+yDrFICC48N/Jyhnc3MXYiXCTyszpmQ2E2BT96K +/F1VBOp4bxHUoa0pGqseQRG46N5yIzvafMlT93NrCUyhNqX60X4ssM+1toHA +GMdr/BG0C04MfO9qIlAqYX1OCu39U/YJY/8QmPkk2OY8bYOgNumVDwnMD/dQ +vExb8KMhqfKUwM7YOhZJu8eT3GLZTeDabBvTWtplvZyX/v0EnpEbTaqnfWR7 +3qGE1wQqax6c/M/4QGjxxSECF5aeP1VHW9g07nzTZwKdRszwGu1XDdMbBkYI +lLQyZV2lXaW9v/XnBIFhhd6qRbTDq1+7Sc0SuDkmYk867a2KDmO6vwkM1Pds +jqEtXtR+ykGAhftbBm0CaQ9JcGWPCLKws21gkTPta2kUlSrEwqwixS9c2jFL +Fc2rRVnYZJ/xm6BtF5f/vwcSLOTlzKIAbcZP4SOfZFlY8Uz7+ls6/l+D45cs +ZrHQeI2c0x3aSb4HNDepsHDcyV3jAG2ngTdtHhosnO0J2A+0Oc6Ou07ostDe +80zfStpNW42T6pCF2oNpjhV0vpy9d02uewsLg24o+R6i7W6w9vq4JQvNN9pX +6dCeVRYZUHVkYbpp21AdnY/TF6RjtVxZGCkgJhlCe3KlAkffk4Wn90kVa9Ae +mdDft3kvC3c8qqKK6Xz/4rtZyDKIhT7ZH4wcaH96YUvaBbPQ9JI2cxHtdw3e +066RLLzRGDjuQdfLa9WgPK84er1dywaX0P5f0XEjv0QW9ngz1GvoeuuJPxN3 +OJ2Fcebir8bpenxgVSecdImFCf4WFe50PbfduUeduUrHj1OSMkrX+331Rw6Z +PBYeLrHviqV9V+xtfmE9C/2mjJMLnOnzeLls7c1OFmacvXfnGt1P8vd7wLsp +FuLU3ok9dH/KeRXw7uMcC/UExfw76f51zi444dsfFg7rmFvp0D6rlfTwx1I2 +3g0aDZi3pSDuJ+W8ksFGd6V7ogfp/rg/edEhIzM2fgsb+dZL99+A+ZViJlb0 ++H9W90rT9jsoXWu+jY2pZ2I3udL92muH+i97VzYqRH7P+teUAgcZl6S9QWw8 +EhztWYoUGFVWFWdns7F5lYJlJ30/vGRWFm05z8ZCh/x1M/T9EZ59pXCyiI3s +gJ8fGLTrYssL7K+w0ejipcUBunR97izOFb7Nxov3aj6+0aRg/aJzaafe0vPL +7XoXqEznr2dETIgKB7N8A1znpCm4+TwsWkGDgydNipvfStH7sTwe9VyHg4Vz +qZw2SQoydI6d0AQO+np86E0Wp0BoxcHjI9s5aPelUnp+FQUL6/cc8gvlYMT6 +2DvRghSMiVp6OTVzsNJlif/ySRJ6D7Ce7mvj4J8f0eHZ4yQ0tc5B9CMOaoqr +WcuPkZAWXilf0cNB9uJMNaUREja8W/F6dpiDqhcChRU+kRBEPdl1QUwBZVx+ +a5IvSRi2c3Qb8lHA5aq6H9j3SBhK8XI6skQR+YVDqaYEevywCmvDCkX83f6Z +8yGehBnz2W/fRBSxNT7hzdI4EpYJZCTslabHhyzTto6i1wtrueGlqog2Cmv8 +b4eQEOmrKGa3QxHH8oSeW/mTIG789YlykSJKPriQpGpOgsX3UIv3umsxh2HR +qslPf294CwbfiF6Hbwzf/2Rfq6H/DyT4E5vXY6h1ns8d/WoQ7VQ8S35XQgbf +U5+ghkqQTeJt09VVwS/j6hW9AlchV1lfRMxfFb+wS+RqXCrggfQmnYl0NTzt +4HlwklcOBrLNaeo96tjxjDej+aYMhAVKj+6O24D9RzLNIrQuAiNW3shFUQMX +S2nd+n2gBJYquNfat2lgiaRBye+IIlDjSvFCd2liuU3/tm3hBXBkQLTFkk8L +y40ZH3W88+D7RIqjRa4WCmYNzvVXZ4O5emu+hao2KnYXRSpqnYO7E4Y/Zx5r +o+Gxk3+n1qZDkIpm/7++OhioE3ieq5IK3BGf5y5LdXFQWSx18c/TsIUjaSNU +qkvvr83NMDgR1sWcPt6sp4dln81nJxxPgpKvfqNCvx5aRo3NV+yIBd+7ASdv +HN6IvKZThrZkJDQWP/cZW6OPJG+OWzlzHCYr/syo1+ljo17Poa6xo+CtULk0 +38YAt2kYfYkmD8OYUqbutVEDLA0tyNloHQh/l/18O5VkiJFmmTynwwHgupmN +hgwjlGg6pqvu4QMygYn1ak1G6H58JjG2yAvO/vHTSW42wpPrgubvZngBf4YZ +9fG+EYpmGc0tPOUFw7WLrhR3GOEVSAm9esALbvGdzBXtMsJrHvN8bgZe4Hou +JnT6vRFSjvUVBTWekNsQpnN3ORczFu0bua3mAWuWHaBsnLlYf89R3s3DDcpM +I8NHXbgY/qkicIeZG2hGnjXNdOei/nY78FBzA9tRsrt3NxevtA5zK3+7wqme +qVnvA1z8XNK4hyh2hR+l0SbhsVys4RNQO/rBBfoNM7vKK7n4bUfjkHfMTgg4 +VlZgUcNFG+HPHtn7dsJ0zU3fryQXGSs9R/scdoIoq3dGo5aLJ6VmVM6t3wlW +gnKyd5q4GKjr3tvV5Qy3n5f7dHVzUX1CxydE2Rkshf9WDenl4omYErWb4s7Q +a94xLfmSi3VpNbsX8jvD5K0vSR5vuDjws7qnq9cJVEs2VH8e5uLtQJenOolO +cLt/U0jKNy4eNWy9Pn3ECSxX7wD1US4a2TtebfNwAr/EY/8eneLi/66Hlufp +OsFk06l8iR9cTB16n53PcoK4uRzvW3NcLFuvcqhS2AlEtK+o7Jrn4l61+2sf +zTlCYeCtqT9/uLg6VuX6rw+O8H+HZyxO + "]]}, + 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:eJwV13k8VdsXAHDRoIFEmV333HupjJkzXGtFkblkyBDK2ECDImROvChTxmRK +UoZ7TgNPKqJnqFQvEfqlgSaVzKLU77zzz/l8P5/92Xt/1l5r7XOIPQftffn5 +6GcBH99/7+mBjvuc5DJjEZGGix/C0Ph5oWTYpt44qO/WmNY3YACuebJHsjcD ++jqyPk7qq0HItqsvBHpLwdjprXObvjGsGpHImH1xDWRyOoJO6tvC69u2Bydf +NEOKQ8fxaxs9wIwz/GrsxTMYrThTmagTBLMv9LJGX7yD3rAW5ZF1UdBierns +39IJmI57n7pXKxVkX9d/2KMyD8PLZxeYDmfD6gOeV5eYCuB9if2k68MLkKFh +1mDrKIiXLpqqFOwrhb7cDU1jIkKYuGuR8e9jlyC5LPoJv9QqtL061OR7rAIk +zg3+lXlBDLcJNE2IilSCpPLNkz/KxdBH0TeNIVUJ0s2noneRYrig6y95BVYl +MEbXH1vbIoY5P1pE2NqVoGB9yKvhkxi+33FE/p1zJWgtnNcd1FqNRu7p0/sL +K8HuqPiQ5oPVKDi6VOHy2ipIdLAwfja9BhU+6YcmKFWD9I3H0vwLxNFscOXr +r5rVUCPmMKOxXByVfl0WtjWshp5nHmS6vDi++L7j3rxVNXC2H2Vt3yqOS12S +XUUDq6HZpmjx0zxxrGUrZ66sqYZ5s6nHnUYSOM6t2uKgXAPB+iWeHXGSqMHu +YLwW5YFlsfCkVYok6t5IDDOW4gFryYmkx1mSOG1TbJIrz4Onz52orgpJfDJ4 +lmGowgO1QysEBh5L4uXNSZPcLTz4VB5aPi4thRZVUS/0Qnjgvtr2m8x1KRx/ +XtYy18UDrYiG2MLbUijO2+17uY8Hy96tEydapfCBnXCQ7Wse1PMEQLFPCtO1 +aq8nD/NA3Ko+bcMfKQwaPH1qNx8JT2M52luspPFW8IIjouIkbP4+Fx40KI1R +47/2uQIJYVvPKd37Ko334y3PP9hEQk2Jar/YtDS+XB0nvXEzCZIOXvr1gjJY +Hfls0XILEr7+/c+MgJoM3vkpkZ5mT0JmXNrRvOMyODmUniDtS8K7NYpB94Vk +cXf3Jz+lJBIkDjbKSUjI4jtd1czNp0mwbt/ZuZcpizJTz0XcU0ioDU9WWakl +izeCOvni00g4/Xp02GWnLOqI8teRuSRoXmnw/14qi30G/5xPriAh1mj7bumN +cjh9tdgXW0nY6lE4rmcihzYnCr2V20kQjvkS72gth2ESqSD2gISCloTyNC85 +/BjlntHXScLflre+LP5LDsuj/Cuxm4TRneyQiT45fNxo9fX4IAl14YeWrBqS +w4DI+i8a70mIKriTqzYihw3t3Z0fP5Cw4o1zw15+BnYH7zW0HCZhrX8K3xsl +Bs5Guv/zeZQEj2NTpx9FMDD1+IF3mfMkKOSYyA4nMNC0Y1pH5s9/8UutXpLG +wBqLF4eL+CgI/7X+qUkZAydDOGWFAhRkxXusqX/EwFu/h+ZDl1LwKL2t6JKc +PIr75bzJXk2BQU3ejahGeXwd3eObtI6CzS8ez4+0y+NQcJ5Q/noKbPkWmns+ +k0djFRC5okSBt31QH7yXxxr9zrWNKhSYRRDRMYuY+O2rXeXDDRQckp++uEmZ +ietMPnv5baRg6npa+6w6E7Vu4ScbfXp/W5W/UdpM3Kqp9q+mAQUJh710WcZM +vLnibMekIQX5LQ/a+bcz0fNOr5cLUHDfv+hbSwgT5bi7Ui9tocDil77oiQgm +Csro+HmbUfA47bmudgwTbQ5OX2KYU9BXvzSm7C8m9rbL7zmzlYKR5UdFEwqY +eF4vp9/KioLgYmE9bgkT06Jw8RTtH9pX3KYuMXEovq7wvDUFAh4DZb48Ju7e +vkLyrQ0FkuRWPbNmJg5PehnYbKPgwuZBt9+tTDz8K77/LW1WX2RM7UMmRhhG +fwneToEq//UOxW4mFjwR3pNmT4GJg5z7kk9MbBFVJK86UND2qS6m8SsT4yPy +3ys5UmAdaX8pdIyJfIREWgVt5/LEkY9zTNRUtDYrcKLgwI+xmHYhAjfsvGXm +u5M+r8N+4h9ECZxnf1Topy043F8pIEngahMXIWsXCi69bOkxZhFo8uzVjKIr +BUcdNh5wX0ugrq/rr1TaJp1VC8JVCFRLHl0+TXvgbpbKTV0Ck53N7OrdKKjS +W9b8zJDAN7YhJ8Xd6fMio5xHkUCZ8OK2Q7TFS/3jlK0IPBn5KFx2FwV2Cfq9 +JZ4EvncSurLNgwLG7+rARh8Ca6oy92TT/hrCEni1l8As8Tn1PtpJAcvVJI8S +SO4NWOrkSYHT2+gWnTACLZ6Ni6fR5rhO7twRRWCj9R7DNtpNVq/izyYReL5k +/qGKFwVn72+XqjpD4NBnSt+Ntju3taYjg8BWhvu9U7SVag02f8whMNWm2ZtH +e1aN17fwAoHtxpVEN+32y+yDrFICC48N/Jyhnc3MXYiXCTyszpmQ2E2BT96K +/F1VBOp4bxHUoa0pGqseQRG46N5yIzvafMlT93NrCUyhNqX60X4ssM+1toHA +GMdr/BG0C04MfO9qIlAqYX1OCu39U/YJY/8QmPkk2OY8bYOgNumVDwnMD/dQ +vExb8KMhqfKUwM7YOhZJu8eT3GLZTeDabBvTWtplvZyX/v0EnpEbTaqnfWR7 +3qGE1wQqax6c/M/4QGjxxSECF5aeP1VHW9g07nzTZwKdRszwGu1XDdMbBkYI +lLQyZV2lXaW9v/XnBIFhhd6qRbTDq1+7Sc0SuDkmYk867a2KDmO6vwkM1Pds +jqEtXtR+ykGAhftbBm0CaQ9JcGWPCLKws21gkTPta2kUlSrEwqwixS9c2jFL +Fc2rRVnYZJ/xm6BtF5f/vwcSLOTlzKIAbcZP4SOfZFlY8Uz7+ls6/l+D45cs +ZrHQeI2c0x3aSb4HNDepsHDcyV3jAG2ngTdtHhosnO0J2A+0Oc6Ou07ostDe +80zfStpNW42T6pCF2oNpjhV0vpy9d02uewsLg24o+R6i7W6w9vq4JQvNN9pX +6dCeVRYZUHVkYbpp21AdnY/TF6RjtVxZGCkgJhlCe3KlAkffk4Wn90kVa9Ae +mdDft3kvC3c8qqKK6Xz/4rtZyDKIhT7ZH4wcaH96YUvaBbPQ9JI2cxHtdw3e +066RLLzRGDjuQdfLa9WgPK84er1dywaX0P5f0XEjv0QW9ngz1GvoeuuJPxN3 +OJ2Fcebir8bpenxgVSecdImFCf4WFe50PbfduUeduUrHj1OSMkrX+331Rw6Z +PBYeLrHviqV9V+xtfmE9C/2mjJMLnOnzeLls7c1OFmacvXfnGt1P8vd7wLsp +FuLU3ok9dH/KeRXw7uMcC/UExfw76f51zi444dsfFg7rmFvp0D6rlfTwx1I2 +3g0aDZi3pSDuJ+W8ksFGd6V7ogfp/rg/edEhIzM2fgsb+dZL99+A+ZViJlb0 ++H9W90rT9jsoXWu+jY2pZ2I3udL92muH+i97VzYqRH7P+teUAgcZl6S9QWw8 +EhztWYoUGFVWFWdns7F5lYJlJ30/vGRWFm05z8ZCh/x1M/T9EZ59pXCyiI3s +gJ8fGLTrYssL7K+w0ejipcUBunR97izOFb7Nxov3aj6+0aRg/aJzaafe0vPL +7XoXqEznr2dETIgKB7N8A1znpCm4+TwsWkGDgydNipvfStH7sTwe9VyHg4Vz +qZw2SQoydI6d0AQO+np86E0Wp0BoxcHjI9s5aPelUnp+FQUL6/cc8gvlYMT6 +2DvRghSMiVp6OTVzsNJlif/ySRJ6D7Ce7mvj4J8f0eHZ4yQ0tc5B9CMOaoqr +WcuPkZAWXilf0cNB9uJMNaUREja8W/F6dpiDqhcChRU+kRBEPdl1QUwBZVx+ +a5IvSRi2c3Qb8lHA5aq6H9j3SBhK8XI6skQR+YVDqaYEevywCmvDCkX83f6Z +8yGehBnz2W/fRBSxNT7hzdI4EpYJZCTslabHhyzTto6i1wtrueGlqog2Cmv8 +b4eQEOmrKGa3QxHH8oSeW/mTIG789YlykSJKPriQpGpOgsX3UIv3umsxh2HR +qslPf294CwbfiF6Hbwzf/2Rfq6H/DyT4E5vXY6h1ns8d/WoQ7VQ8S35XQgbf +U5+ghkqQTeJt09VVwS/j6hW9AlchV1lfRMxfFb+wS+RqXCrggfQmnYl0NTzt +4HlwklcOBrLNaeo96tjxjDej+aYMhAVKj+6O24D9RzLNIrQuAiNW3shFUQMX +S2nd+n2gBJYquNfat2lgiaRBye+IIlDjSvFCd2liuU3/tm3hBXBkQLTFkk8L +y40ZH3W88+D7RIqjRa4WCmYNzvVXZ4O5emu+hao2KnYXRSpqnYO7E4Y/Zx5r +o+Gxk3+n1qZDkIpm/7++OhioE3ieq5IK3BGf5y5LdXFQWSx18c/TsIUjaSNU +qkvvr83NMDgR1sWcPt6sp4dln81nJxxPgpKvfqNCvx5aRo3NV+yIBd+7ASdv +HN6IvKZThrZkJDQWP/cZW6OPJG+OWzlzHCYr/syo1+ljo17Poa6xo+CtULk0 +38YAt2kYfYkmD8OYUqbutVEDLA0tyNloHQh/l/18O5VkiJFmmTynwwHgupmN +hgwjlGg6pqvu4QMygYn1ak1G6H58JjG2yAvO/vHTSW42wpPrgubvZngBf4YZ +9fG+EYpmGc0tPOUFw7WLrhR3GOEVSAm9esALbvGdzBXtMsJrHvN8bgZe4Hou +JnT6vRFSjvUVBTWekNsQpnN3ORczFu0bua3mAWuWHaBsnLlYf89R3s3DDcpM +I8NHXbgY/qkicIeZG2hGnjXNdOei/nY78FBzA9tRsrt3NxevtA5zK3+7wqme +qVnvA1z8XNK4hyh2hR+l0SbhsVys4RNQO/rBBfoNM7vKK7n4bUfjkHfMTgg4 +VlZgUcNFG+HPHtn7dsJ0zU3fryQXGSs9R/scdoIoq3dGo5aLJ6VmVM6t3wlW +gnKyd5q4GKjr3tvV5Qy3n5f7dHVzUX1CxydE2Rkshf9WDenl4omYErWb4s7Q +a94xLfmSi3VpNbsX8jvD5K0vSR5vuDjws7qnq9cJVEs2VH8e5uLtQJenOolO +cLt/U0jKNy4eNWy9Pn3ECSxX7wD1US4a2TtebfNwAr/EY/8eneLi/66Hlufp +OsFk06l8iR9cTB16n53PcoK4uRzvW3NcLFuvcqhS2AlEtK+o7Jrn4l61+2sf +zTlCYeCtqT9/uLg6VuX6rw+O8H+HZyxO + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06789743631015514}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.06789743631015514}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJwV13k8VdsXAHDRoIFEmV333HupjJkzXGtFkblkyBDK2ECDImROvChTxmRK +UoZ7TgNPKqJnqFQvEfqlgSaVzKLU77zzz/l8P5/92Xt/1l5r7XOIPQftffn5 +6GcBH99/7+mBjvuc5DJjEZGGix/C0Ph5oWTYpt44qO/WmNY3YACuebJHsjcD ++jqyPk7qq0HItqsvBHpLwdjprXObvjGsGpHImH1xDWRyOoJO6tvC69u2Bydf +NEOKQ8fxaxs9wIwz/GrsxTMYrThTmagTBLMv9LJGX7yD3rAW5ZF1UdBierns +39IJmI57n7pXKxVkX9d/2KMyD8PLZxeYDmfD6gOeV5eYCuB9if2k68MLkKFh +1mDrKIiXLpqqFOwrhb7cDU1jIkKYuGuR8e9jlyC5LPoJv9QqtL061OR7rAIk +zg3+lXlBDLcJNE2IilSCpPLNkz/KxdBH0TeNIVUJ0s2noneRYrig6y95BVYl +MEbXH1vbIoY5P1pE2NqVoGB9yKvhkxi+33FE/p1zJWgtnNcd1FqNRu7p0/sL +K8HuqPiQ5oPVKDi6VOHy2ipIdLAwfja9BhU+6YcmKFWD9I3H0vwLxNFscOXr +r5rVUCPmMKOxXByVfl0WtjWshp5nHmS6vDi++L7j3rxVNXC2H2Vt3yqOS12S +XUUDq6HZpmjx0zxxrGUrZ66sqYZ5s6nHnUYSOM6t2uKgXAPB+iWeHXGSqMHu +YLwW5YFlsfCkVYok6t5IDDOW4gFryYmkx1mSOG1TbJIrz4Onz52orgpJfDJ4 +lmGowgO1QysEBh5L4uXNSZPcLTz4VB5aPi4thRZVUS/0Qnjgvtr2m8x1KRx/ +XtYy18UDrYiG2MLbUijO2+17uY8Hy96tEydapfCBnXCQ7Wse1PMEQLFPCtO1 +aq8nD/NA3Ko+bcMfKQwaPH1qNx8JT2M52luspPFW8IIjouIkbP4+Fx40KI1R +47/2uQIJYVvPKd37Ko334y3PP9hEQk2Jar/YtDS+XB0nvXEzCZIOXvr1gjJY +Hfls0XILEr7+/c+MgJoM3vkpkZ5mT0JmXNrRvOMyODmUniDtS8K7NYpB94Vk +cXf3Jz+lJBIkDjbKSUjI4jtd1czNp0mwbt/ZuZcpizJTz0XcU0ioDU9WWakl +izeCOvni00g4/Xp02GWnLOqI8teRuSRoXmnw/14qi30G/5xPriAh1mj7bumN +cjh9tdgXW0nY6lE4rmcihzYnCr2V20kQjvkS72gth2ESqSD2gISCloTyNC85 +/BjlntHXScLflre+LP5LDsuj/Cuxm4TRneyQiT45fNxo9fX4IAl14YeWrBqS +w4DI+i8a70mIKriTqzYihw3t3Z0fP5Cw4o1zw15+BnYH7zW0HCZhrX8K3xsl +Bs5Guv/zeZQEj2NTpx9FMDD1+IF3mfMkKOSYyA4nMNC0Y1pH5s9/8UutXpLG +wBqLF4eL+CgI/7X+qUkZAydDOGWFAhRkxXusqX/EwFu/h+ZDl1LwKL2t6JKc +PIr75bzJXk2BQU3ejahGeXwd3eObtI6CzS8ez4+0y+NQcJ5Q/noKbPkWmns+ +k0djFRC5okSBt31QH7yXxxr9zrWNKhSYRRDRMYuY+O2rXeXDDRQckp++uEmZ +ietMPnv5baRg6npa+6w6E7Vu4ScbfXp/W5W/UdpM3Kqp9q+mAQUJh710WcZM +vLnibMekIQX5LQ/a+bcz0fNOr5cLUHDfv+hbSwgT5bi7Ui9tocDil77oiQgm +Csro+HmbUfA47bmudgwTbQ5OX2KYU9BXvzSm7C8m9rbL7zmzlYKR5UdFEwqY +eF4vp9/KioLgYmE9bgkT06Jw8RTtH9pX3KYuMXEovq7wvDUFAh4DZb48Ju7e +vkLyrQ0FkuRWPbNmJg5PehnYbKPgwuZBt9+tTDz8K77/LW1WX2RM7UMmRhhG +fwneToEq//UOxW4mFjwR3pNmT4GJg5z7kk9MbBFVJK86UND2qS6m8SsT4yPy +3ys5UmAdaX8pdIyJfIREWgVt5/LEkY9zTNRUtDYrcKLgwI+xmHYhAjfsvGXm +u5M+r8N+4h9ECZxnf1Topy043F8pIEngahMXIWsXCi69bOkxZhFo8uzVjKIr +BUcdNh5wX0ugrq/rr1TaJp1VC8JVCFRLHl0+TXvgbpbKTV0Ck53N7OrdKKjS +W9b8zJDAN7YhJ8Xd6fMio5xHkUCZ8OK2Q7TFS/3jlK0IPBn5KFx2FwV2Cfq9 +JZ4EvncSurLNgwLG7+rARh8Ca6oy92TT/hrCEni1l8As8Tn1PtpJAcvVJI8S +SO4NWOrkSYHT2+gWnTACLZ6Ni6fR5rhO7twRRWCj9R7DNtpNVq/izyYReL5k +/qGKFwVn72+XqjpD4NBnSt+Ntju3taYjg8BWhvu9U7SVag02f8whMNWm2ZtH +e1aN17fwAoHtxpVEN+32y+yDrFICC48N/Jyhnc3MXYiXCTyszpmQ2E2BT96K +/F1VBOp4bxHUoa0pGqseQRG46N5yIzvafMlT93NrCUyhNqX60X4ssM+1toHA +GMdr/BG0C04MfO9qIlAqYX1OCu39U/YJY/8QmPkk2OY8bYOgNumVDwnMD/dQ +vExb8KMhqfKUwM7YOhZJu8eT3GLZTeDabBvTWtplvZyX/v0EnpEbTaqnfWR7 +3qGE1wQqax6c/M/4QGjxxSECF5aeP1VHW9g07nzTZwKdRszwGu1XDdMbBkYI +lLQyZV2lXaW9v/XnBIFhhd6qRbTDq1+7Sc0SuDkmYk867a2KDmO6vwkM1Pds +jqEtXtR+ykGAhftbBm0CaQ9JcGWPCLKws21gkTPta2kUlSrEwqwixS9c2jFL +Fc2rRVnYZJ/xm6BtF5f/vwcSLOTlzKIAbcZP4SOfZFlY8Uz7+ls6/l+D45cs +ZrHQeI2c0x3aSb4HNDepsHDcyV3jAG2ngTdtHhosnO0J2A+0Oc6Ou07ostDe +80zfStpNW42T6pCF2oNpjhV0vpy9d02uewsLg24o+R6i7W6w9vq4JQvNN9pX +6dCeVRYZUHVkYbpp21AdnY/TF6RjtVxZGCkgJhlCe3KlAkffk4Wn90kVa9Ae +mdDft3kvC3c8qqKK6Xz/4rtZyDKIhT7ZH4wcaH96YUvaBbPQ9JI2cxHtdw3e +066RLLzRGDjuQdfLa9WgPK84er1dywaX0P5f0XEjv0QW9ngz1GvoeuuJPxN3 +OJ2Fcebir8bpenxgVSecdImFCf4WFe50PbfduUeduUrHj1OSMkrX+331Rw6Z +PBYeLrHviqV9V+xtfmE9C/2mjJMLnOnzeLls7c1OFmacvXfnGt1P8vd7wLsp +FuLU3ok9dH/KeRXw7uMcC/UExfw76f51zi444dsfFg7rmFvp0D6rlfTwx1I2 +3g0aDZi3pSDuJ+W8ksFGd6V7ogfp/rg/edEhIzM2fgsb+dZL99+A+ZViJlb0 ++H9W90rT9jsoXWu+jY2pZ2I3udL92muH+i97VzYqRH7P+teUAgcZl6S9QWw8 +EhztWYoUGFVWFWdns7F5lYJlJ30/vGRWFm05z8ZCh/x1M/T9EZ59pXCyiI3s +gJ8fGLTrYssL7K+w0ejipcUBunR97izOFb7Nxov3aj6+0aRg/aJzaafe0vPL +7XoXqEznr2dETIgKB7N8A1znpCm4+TwsWkGDgydNipvfStH7sTwe9VyHg4Vz +qZw2SQoydI6d0AQO+np86E0Wp0BoxcHjI9s5aPelUnp+FQUL6/cc8gvlYMT6 +2DvRghSMiVp6OTVzsNJlif/ySRJ6D7Ce7mvj4J8f0eHZ4yQ0tc5B9CMOaoqr +WcuPkZAWXilf0cNB9uJMNaUREja8W/F6dpiDqhcChRU+kRBEPdl1QUwBZVx+ +a5IvSRi2c3Qb8lHA5aq6H9j3SBhK8XI6skQR+YVDqaYEevywCmvDCkX83f6Z +8yGehBnz2W/fRBSxNT7hzdI4EpYJZCTslabHhyzTto6i1wtrueGlqog2Cmv8 +b4eQEOmrKGa3QxHH8oSeW/mTIG789YlykSJKPriQpGpOgsX3UIv3umsxh2HR +qslPf294CwbfiF6Hbwzf/2Rfq6H/DyT4E5vXY6h1ns8d/WoQ7VQ8S35XQgbf +U5+ghkqQTeJt09VVwS/j6hW9AlchV1lfRMxfFb+wS+RqXCrggfQmnYl0NTzt +4HlwklcOBrLNaeo96tjxjDej+aYMhAVKj+6O24D9RzLNIrQuAiNW3shFUQMX +S2nd+n2gBJYquNfat2lgiaRBye+IIlDjSvFCd2liuU3/tm3hBXBkQLTFkk8L +y40ZH3W88+D7RIqjRa4WCmYNzvVXZ4O5emu+hao2KnYXRSpqnYO7E4Y/Zx5r +o+Gxk3+n1qZDkIpm/7++OhioE3ieq5IK3BGf5y5LdXFQWSx18c/TsIUjaSNU +qkvvr83NMDgR1sWcPt6sp4dln81nJxxPgpKvfqNCvx5aRo3NV+yIBd+7ASdv +HN6IvKZThrZkJDQWP/cZW6OPJG+OWzlzHCYr/syo1+ljo17Poa6xo+CtULk0 +38YAt2kYfYkmD8OYUqbutVEDLA0tyNloHQh/l/18O5VkiJFmmTynwwHgupmN +hgwjlGg6pqvu4QMygYn1ak1G6H58JjG2yAvO/vHTSW42wpPrgubvZngBf4YZ +9fG+EYpmGc0tPOUFw7WLrhR3GOEVSAm9esALbvGdzBXtMsJrHvN8bgZe4Hou +JnT6vRFSjvUVBTWekNsQpnN3ORczFu0bua3mAWuWHaBsnLlYf89R3s3DDcpM +I8NHXbgY/qkicIeZG2hGnjXNdOei/nY78FBzA9tRsrt3NxevtA5zK3+7wqme +qVnvA1z8XNK4hyh2hR+l0SbhsVys4RNQO/rBBfoNM7vKK7n4bUfjkHfMTgg4 +VlZgUcNFG+HPHtn7dsJ0zU3fryQXGSs9R/scdoIoq3dGo5aLJ6VmVM6t3wlW +gnKyd5q4GKjr3tvV5Qy3n5f7dHVzUX1CxydE2Rkshf9WDenl4omYErWb4s7Q +a94xLfmSi3VpNbsX8jvD5K0vSR5vuDjws7qnq9cJVEs2VH8e5uLtQJenOolO +cLt/U0jKNy4eNWy9Pn3ECSxX7wD1US4a2TtebfNwAr/EY/8eneLi/66Hlufp +OsFk06l8iR9cTB16n53PcoK4uRzvW3NcLFuvcqhS2AlEtK+o7Jrn4l61+2sf +zTlCYeCtqT9/uLg6VuX6rw+O8H+HZyxO + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06789743631015514}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, + 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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.061043}}, + "Frame" -> {{False, 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.061043}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGCQB2IQDQMZytd9NdeX2kN4H+wfRb1N1BeZAOUzOLxY3LOD +wWQWlM/h8Ke37M6H3QuhfAEHtdxV7yaeXQrlizgoHdrPIWW8EsqXcMiTYD34 ++PZqKF/GQd5bfteCfWuhfAWH058fvFtzdx2Ur+SgttLHkN1xPZSv4vA8N6ds +yS+YvJqDlJQ/S6EcjK/h8Hly1vy+42ugfC2H+szA+U/4YPbpOMwIOPiQVRDm +Hj2HV6cv+Z19ugzKN3BY88xS6f7SJVC+oYPzyr0d25IXQflGDmpBs84+NlgA +5Rs7fLe0i5pjOAfKN3H4+E2B5Yn3DCjf1CH1COuCwF1ToHwzh5Kqe72srROh +fHOH1+bCl1sjeqF8C4cStynf2OI7oHxLh7zFjHtYhVqgfCsH9bvTTrCmN0D5 +1g4MBW9uFs+sgvJtHIIdbv1nyIbFn63DmhUHTXjkC6F8OweJN2253UbZ9gD4 +lIVA + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.061043}}, + "Frame" -> {{False, 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.06789743631015514}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.994015644455141*^9}, + CellLabel-> + "Out[141]=",ExpressionUUID->"47637e04-2008-4664-9ce3-d2a63949f114"] +}, Open ]], Cell[CellGroupData[{ @@ -8807,7 +14751,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[{ @@ -8825,8 +14771,8 @@ Cell[BoxData[ SuperscriptBox[ RowBox[{"(", FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -8846,18 +14792,75 @@ 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[\\\"4.994591037326517`*^-161\\\", \ +RowBox[{\\\"164243120455479739170682\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"105\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 142, 73, + 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994015644486842*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"eb60df3a-5c87-437f-863a-86958726de38"], -Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"b372c493-d6de-934f-951c-1a3f45718733"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.694721660151469`*^-164\\\", \ +RowBox[{\\\"552513857212233842570175\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"108\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 142, 74, + 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9940156444931726`*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"029f0a43-b666-429c-9ace-684c71f16825"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1854572473444628`*^-166\\\", \ +RowBox[{\\\"192330073695578600598678\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"112\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 142, 75, + 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994015644500348*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"695d087c-85cf-41c1-a563-06483c712e87"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 142, 76, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994015644507777*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"e2d73aa5-7e7d-453d-a454-8d089a73f2f3"], + +Cell[BoxData["11.23938495463495`"], "Output", + CellChangeTimes->{3.994015679775939*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"9d1184e9-ac38-4074-add5-d43bf850151a"] }, Open ]], Cell[CellGroupData[{ @@ -8924,27 +14927,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[\\\"7.571741604975763`*^-212\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 143, 77, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99401567981217*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"f7437a14-1dfd-4dfd-adc4-3327b2583178"], 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.1204914626057895`*^-217\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 143, 78, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994015679819704*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"9ad16393-d513-4881-9675-bf40fa2fa082"], -Cell[BoxData["1.0713232818739324`"], "Output",ExpressionUUID->"37cdd74c-8ec4-9047-aa14-d493ed3e18d0"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.696134299633731`*^-222\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 143, 79, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994015679828013*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"606ae197-3e2e-4063-b97a-0f881c964169"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 143, 80, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9940156798341722`*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"d76310d4-d682-4924-8557-1c2b9cead6b4"], + +Cell[BoxData["0.4211918858177853`"], "Output", + CellChangeTimes->{3.9940156850192223`*^9}, + CellLabel-> + "Out[143]=",ExpressionUUID->"cfa45def-f509-43b6-b979-732083eba217"] }, Open ]], Cell[CellGroupData[{ @@ -8965,8 +15013,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 +15058,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[\\\"7.571741604975763`*^-212\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 144, 81, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99401568505437*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"16af03ed-ffcf-4117-91b9-6cfc7ac7b027"], 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.1204914626057895`*^-217\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 144, 82, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9940156850621367`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"e7c391c9-89cd-4db6-ad99-835549add578"], -Cell[BoxData["5.515504100347031`"], "Output",ExpressionUUID->"5fc76ad3-8f3e-9246-bda1-78737e269d99"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.696134299633731`*^-222\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 144, 83, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994015685069954*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"0395e833-c6f9-40a7-a6c9-69b99e80719b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 144, 84, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9940156850776987`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"8dd1bf4f-05dd-4bbb-b96f-0c24915038b8"], + +Cell[BoxData["34.250117066823464`"], "Output", + CellChangeTimes->{3.9940156901326017`*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"2077d200-41f7-41e9-8e19-c88a14c2bf37"] }, Open ]], Cell[CellGroupData[{ @@ -9052,8 +15144,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 +15189,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[\\\"7.571741604975763`*^-212\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 145, 85, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9940156901676607`*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"e1bc6595-a473-495c-a89a-dc2f4e4dd574"], 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.1204914626057895`*^-217\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 145, 86, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994015690175475*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"d4c4cf9a-95c0-4de7-ba5b-b055a6de3909"], -Cell[BoxData["17.107550304528036`"], "Output",ExpressionUUID->"dbb2a900-6759-7349-a1e8-ea8b52a29f31"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.696134299633731`*^-222\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 145, 87, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994015690183076*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"ca52ce59-c099-4cb0-8938-895998c9b1cd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 145, 88, 31386062213996629506, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.994015690188867*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"2e99b8ba-fc71-4d1a-97b8-0bacb3c64350"], + +Cell[BoxData["5.251128451605389`"], "Output", + CellChangeTimes->{3.994015693228499*^9}, + CellLabel-> + "Out[145]=",ExpressionUUID->"71be0b59-1b92-4d30-bcbd-b92eeafd640d"] }, Open ]], Cell[CellGroupData[{ @@ -9127,17 +15263,27 @@ 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.031406724497059044`"], "Output", + CellChangeTimes->{3.994015693263214*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"3dacc3f7-591d-4755-a431-4b132d025ef2"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input", + CellLabel-> + "In[147]:=",ExpressionUUID->"0e8fe253-8820-4d00-b716-83b8946baa2e"] }, -WindowSize->{718.5, 729.75}, -WindowMargins->{{6, Automatic}, {Automatic, 4.5}}, +Evaluator->"Local", +WindowSize->{714, 288}, +WindowMargins->{{-3, Automatic}, {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->"f83c5602-f0d5-2d47-8a1b-23029521caf0" ] @@ -9152,359 +15298,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, 300, 5, 52, "Input",ExpressionUUID->"c2de7cc2-4c99-4f39-9ed3-3580a4aa10f5"], +Cell[879, 29, 320, 5, 59, "Output",ExpressionUUID->"7a9dd92a-02b4-420e-b7ff-7d8d8c5f71a4"] }, 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[1236, 39, 248, 4, 52, "Input",ExpressionUUID->"a4b26aee-6a2c-44d1-a9fc-1aaec818a6f6"], +Cell[1487, 45, 325, 5, 59, "Output",ExpressionUUID->"c4321ad5-e8e9-4435-8c08-da768774f2f4"] }, 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[1849, 55, 225, 4, 52, "Input",ExpressionUUID->"e7342a36-3a4c-4e3c-b128-ad5525224156"], +Cell[2077, 61, 329, 5, 59, "Output",ExpressionUUID->"be212a7f-e7bd-4805-9c6d-6645a74d52da"] }, 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[2443, 71, 175, 3, 52, "Input",ExpressionUUID->"f5d948bf-f2a4-4e23-a3d3-6c9a3f9e9c65"], +Cell[2621, 76, 321, 5, 59, "Output",ExpressionUUID->"1dea85e4-4228-48af-b4de-7e46c641150a"] }, 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[2979, 86, 257, 7, 75, "Input",ExpressionUUID->"b1c3ea4e-289f-45ef-ba1f-10bb42b34516"], +Cell[3239, 95, 337, 5, 59, "Output",ExpressionUUID->"05aaeabd-ebfe-4e2b-a569-5cec233f4d0e"] }, 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[3613, 105, 131, 2, 52, "Input",ExpressionUUID->"7bef9a9a-6a0f-4a16-be8b-2d9e066ce72b"], +Cell[3747, 109, 327, 5, 59, "Output",ExpressionUUID->"2ffb329c-63d8-4e8d-88fd-146593b79a18"] }, 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[4111, 119, 276, 6, 52, "Input",ExpressionUUID->"bb1908a7-ae5b-4e41-b95d-d2dfd1e05039"], +Cell[4390, 127, 336, 5, 59, "Output",ExpressionUUID->"aa9b4478-238f-4ee7-b677-0388c55e7fe3"] }, 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[4763, 137, 257, 7, 52, "Input",ExpressionUUID->"842c73d8-1215-47b6-803d-f58e81165f15"], +Cell[5023, 146, 336, 5, 59, "Output",ExpressionUUID->"946d2672-4899-406e-bc3e-4679c087aa69"] }, 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[5396, 156, 277, 5, 52, "Input",ExpressionUUID->"717b4c68-32f3-4c4b-9027-380d06ad8019"], +Cell[5676, 163, 308, 5, 59, "Output",ExpressionUUID->"9a9aa45b-3b04-4227-a30e-4a0e5cafd3e4"] }, 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[6021, 173, 226, 4, 52, "Input",ExpressionUUID->"2c2b2fce-e2f2-4590-bde4-775d59d2118e"], +Cell[6250, 179, 302, 5, 59, "Output",ExpressionUUID->"bcd6bb0e-4f07-4439-9a8a-90fb2b8e9055"] }, 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[6589, 189, 129, 2, 52, "Input",ExpressionUUID->"48a1f495-9040-4184-9ca6-09f27424a358"], +Cell[6721, 193, 326, 5, 59, "Output",ExpressionUUID->"26c695ed-1c6a-4e9c-b6e5-d1a2a054cb9a"] }, 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[7084, 203, 129, 2, 52, "Input",ExpressionUUID->"d84ce5f7-f8bd-4c80-996b-d138a320107e"], +Cell[7216, 207, 322, 5, 59, "Output",ExpressionUUID->"1e64510e-92ab-4955-a840-22ab7f9778b3"] }, 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[7575, 217, 557, 19, 141, "Input",ExpressionUUID->"fef44cfc-420a-4fb1-86be-f14285b0c513"], +Cell[8135, 238, 342, 5, 59, "Output",ExpressionUUID->"0a8f2c35-7576-45e9-ba93-d9a73dc76eea"] }, 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[8514, 248, 557, 19, 141, "Input",ExpressionUUID->"aa3b6e3e-5528-4edf-8be6-48ec0a1c80cc"], +Cell[9074, 269, 339, 5, 59, "Output",ExpressionUUID->"4b9e17a8-80b0-4698-8c35-75bedf60b36d"] }, 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[9450, 279, 1588, 50, 555, "Input",ExpressionUUID->"9ad1e9b7-692f-4087-86c3-2584e1823699"], +Cell[11041, 331, 338, 5, 59, "Output",ExpressionUUID->"2cb3b60e-5c84-4b50-8fe2-fb35cd472296"] }, 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[11416, 341, 1422, 46, 518, "Input",ExpressionUUID->"26c3752f-41ff-4818-94d9-093cb862c591"], +Cell[12841, 389, 355, 6, 59, "Output",ExpressionUUID->"b1b3e560-ff16-45cb-97c0-2ac640ca7795"] }, 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[13233, 400, 1422, 46, 518, "Input",ExpressionUUID->"d5a7d90c-c024-47de-9f7a-c61dceb5f492"], +Cell[14658, 448, 359, 6, 59, "Output",ExpressionUUID->"4d6ebfe6-5d18-403e-bcea-def5d383a880"] }, 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[15054, 459, 1588, 50, 555, "Input",ExpressionUUID->"fdb7cf32-9e84-48b9-a31f-30f980927bc9"], +Cell[16645, 511, 332, 5, 59, "Output",ExpressionUUID->"e3d21740-630f-45f2-b8d8-47435d9c302f"] }, 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[17014, 521, 131, 2, 52, "Input",ExpressionUUID->"5a518950-3e81-435b-8869-d9bf9a814322"], +Cell[17148, 525, 320, 5, 59, "Output",ExpressionUUID->"e7489b04-73b9-4091-ad7a-bf26bb40a957"] }, 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[17505, 535, 133, 2, 52, "Input",ExpressionUUID->"a5a1abbe-467e-4d58-afb1-96ae6745fb30"], +Cell[17641, 539, 328, 5, 59, "Output",ExpressionUUID->"8b992ae1-ab53-4091-bb08-27ab180fe05b"] }, 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[18006, 549, 134, 2, 52, "Input",ExpressionUUID->"89080562-89a5-4830-8161-66272c321dd3"], +Cell[18143, 553, 324, 5, 59, "Output",ExpressionUUID->"bed0730b-f850-4331-93b1-de8c8ab25323"] }, 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[18504, 563, 219, 4, 52, "Input",ExpressionUUID->"04e52ba1-f313-4c7e-8067-5f7a3253378f"], +Cell[18726, 569, 339, 6, 59, "Output",ExpressionUUID->"896fcbad-4dbb-4066-be7e-483eaeb85a0f"] }, 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[19102, 580, 134, 2, 52, "Input",ExpressionUUID->"30c36f3a-9b0d-4230-bb3a-3debe6dfe738"], +Cell[19239, 584, 328, 5, 59, "Output",ExpressionUUID->"d31533fd-e396-4702-9138-ca119dafc038"] }, 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[19604, 594, 324, 5, 52, "Input",ExpressionUUID->"701d5204-0141-4502-a946-9b31ea3f5528"], +Cell[19931, 601, 321, 5, 59, "Output",ExpressionUUID->"63173cd7-f935-458d-a9f0-1a1ac8ef12c8"] }, 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[20289, 611, 296, 5, 52, "Input",ExpressionUUID->"c7ca3f35-c493-4aeb-bd0f-2779be4c7b43"], +Cell[20588, 618, 323, 5, 59, "Output",ExpressionUUID->"e86babd9-56f8-46a4-884f-4bf84cde19dd"] }, 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[20948, 628, 219, 4, 52, "Input",ExpressionUUID->"42530928-01e2-41bd-8ade-ef57b35144f2"], +Cell[21170, 634, 326, 5, 59, "Output",ExpressionUUID->"f1dd05db-d616-4b1a-8cb4-b424cfbccddf"] }, 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[21533, 644, 350, 10, 75, "Input",ExpressionUUID->"3bc2f5b2-b5b4-4fc1-b228-c3ec9065105f"], +Cell[21886, 656, 338, 5, 59, "Output",ExpressionUUID->"ef3c6fff-b152-4552-be07-3f7d8b6cf46b"] }, 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[22261, 666, 350, 10, 75, "Input",ExpressionUUID->"cb9b574d-e9e6-4c8c-97d7-f4504faf28a4"], +Cell[22614, 678, 359, 6, 59, "Output",ExpressionUUID->"6fd302b4-0aba-4613-a96f-2348587937f6"] }, 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[23010, 689, 994, 26, 459, "Input",ExpressionUUID->"48ec43b4-b2d4-4434-b6ae-c3fbf328541b"], +Cell[24007, 717, 344, 5, 59, "Output",ExpressionUUID->"15901760-09ed-4178-acbf-73ddd24d08b8"] }, 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[24388, 727, 199, 3, 52, "Input",ExpressionUUID->"547ac57a-c5a5-4bd0-b3dc-27d775653b26"], +Cell[24590, 732, 324, 5, 59, "Output",ExpressionUUID->"203f72bc-14a4-446c-9649-d4cfca9e43c9"] }, 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[24951, 742, 329, 5, 52, "Input",ExpressionUUID->"5e591da9-2de1-49c2-af86-5f1f00a78fe7"], +Cell[25283, 749, 279, 4, 59, "Output",ExpressionUUID->"7db723ca-d1b7-418e-8fdb-f8c55da31e94"] +}, Open ]], +Cell[25577, 756, 173, 2, 40, "Input",ExpressionUUID->"5ceba0b8-3921-4a51-8728-902b28c727c2"], +Cell[CellGroupData[{ +Cell[25775, 762, 327, 5, 52, "Input",ExpressionUUID->"83d99618-943e-46eb-9eaa-bc517ab999c8"], +Cell[26105, 769, 272, 4, 59, "Output",ExpressionUUID->"af41cdf2-260e-43ca-9da3-6a59682d057a"] +}, Open ]], +Cell[26392, 776, 173, 2, 40, "Input",ExpressionUUID->"ee05e14f-5386-475b-88de-c5bc86835074"], +Cell[CellGroupData[{ +Cell[26590, 782, 326, 5, 52, "Input",ExpressionUUID->"eac8d120-95c6-4c90-868c-823c08fde704"], +Cell[26919, 789, 276, 4, 59, "Output",ExpressionUUID->"89e017e9-f7c8-4de6-9c61-9f807a6e27bb"] +}, Open ]], +Cell[27210, 796, 173, 2, 40, "Input",ExpressionUUID->"b0ce2ce8-43a9-4cfc-bcf2-e97da817cd55"], +Cell[CellGroupData[{ +Cell[27408, 802, 354, 5, 52, "Input",ExpressionUUID->"8ebe8e0d-cb8c-4005-90b9-9d3c4683d4e3"], +Cell[27765, 809, 280, 4, 59, "Output",ExpressionUUID->"433e43a4-259e-46e2-b982-77e1551b9f88"] +}, Open ]], +Cell[28060, 816, 171, 2, 40, "Input",ExpressionUUID->"60aa66f3-a864-4a1f-8737-0432a3dce9c8"], +Cell[CellGroupData[{ +Cell[28256, 822, 299, 5, 52, "Input",ExpressionUUID->"7b3fee04-4705-4f1b-8597-22956dff21a3"], +Cell[28558, 829, 275, 4, 59, "Output",ExpressionUUID->"399ff348-dbc9-475b-be53-7c79edba1f73"] +}, Open ]], +Cell[28848, 836, 171, 2, 40, "Input",ExpressionUUID->"158b4e1e-bc50-43b4-9d8d-63e1b5f32b4f"], +Cell[CellGroupData[{ +Cell[29044, 842, 302, 5, 52, "Input",ExpressionUUID->"60b67276-12a5-404c-a980-dac3b32e1025"], +Cell[29349, 849, 278, 4, 59, "Output",ExpressionUUID->"06e140e1-172c-443e-8794-595be28fc2b6"] +}, Open ]], +Cell[29642, 856, 173, 2, 40, "Input",ExpressionUUID->"ae68a2db-0f5f-4f5b-ba31-2b47258c2ed0"], +Cell[CellGroupData[{ +Cell[29840, 862, 305, 5, 52, "Input",ExpressionUUID->"8018e923-aef9-42e0-835b-81e5f7029568"], +Cell[30148, 869, 273, 4, 59, "Output",ExpressionUUID->"ee047671-d132-4b46-8f63-d46e7af5a989"] +}, Open ]], +Cell[30436, 876, 172, 2, 40, "Input",ExpressionUUID->"bb831788-bcea-463f-b26d-e91c5ec4d94b"], +Cell[CellGroupData[{ +Cell[30633, 882, 275, 4, 52, "Input",ExpressionUUID->"d882e285-73b9-4206-9ca4-db60193d9f1b"], +Cell[30911, 888, 279, 4, 59, "Output",ExpressionUUID->"8b1f17ac-4a3a-4ebc-8cbe-127280101e8e"] +}, Open ]], +Cell[31205, 895, 175, 2, 40, "Input",ExpressionUUID->"768ca9cb-28ee-4c50-a6d9-56733733be26"], +Cell[CellGroupData[{ +Cell[31405, 901, 19809, 485, 6103, "Input",ExpressionUUID->"cc506674-3c5d-4c96-bcce-6a258dbc6a8f"], +Cell[51217, 1388, 341, 5, 59, "Output",ExpressionUUID->"68740ce8-56c6-4068-9c1d-a72c8488290b"] }, 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[51595, 1398, 19748, 489, 6152, "Input",ExpressionUUID->"bde62ead-1114-42dd-bce0-3f545e38261f"], +Cell[71346, 1889, 337, 5, 59, "Output",ExpressionUUID->"aa0a8c00-15d7-40e0-9ec3-c031ef0fe407"] }, 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[71720, 1899, 19748, 483, 6126, "Input",ExpressionUUID->"d053282b-cb1e-40f5-a2f8-180d88b19300"], +Cell[91471, 2384, 356, 6, 59, "Output",ExpressionUUID->"6c107653-813f-47de-bb9a-55593655a36d"] }, 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[91864, 2395, 22534, 553, 6975, "Input",ExpressionUUID->"e13de586-84df-42c3-9e3e-8c774e3c661e"], +Cell[114401, 2950, 358, 6, 59, "Output",ExpressionUUID->"7b62a808-8820-4848-8bd3-04e441c6c47b"] }, 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[114796, 2961, 22535, 553, 7037, "Input",ExpressionUUID->"8e442dc3-ab55-483e-a82e-d75bc170728d"], +Cell[137334, 3516, 355, 6, 59, "Output",ExpressionUUID->"84e9c503-8540-43a7-823f-f1b66274de47"] }, 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[137726, 3527, 25491, 626, 7925, "Input",ExpressionUUID->"df4d7f6c-0a1e-4f0c-822e-e0df03cf6707"], +Cell[163220, 4155, 361, 6, 59, "Output",ExpressionUUID->"b7e53a7d-7cf7-4bc4-bdb9-e7021f0ea447"] }, 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[163618, 4166, 130, 2, 52, "Input",ExpressionUUID->"9ff685b0-0f24-4839-b4a0-410fdbc5cda1"], +Cell[163751, 4170, 320, 5, 59, "Output",ExpressionUUID->"bd872a53-dca3-4322-b56a-9cb3430e127b"] }, 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[164108, 4180, 130, 2, 52, "Input",ExpressionUUID->"c6907dfa-2109-4dea-a226-cf7980523ec5"], +Cell[164241, 4184, 322, 5, 59, "Output",ExpressionUUID->"bd5f4f9b-5880-4130-9f84-356fdef23c55"] }, 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[164600, 4194, 1144, 39, 581, "Input",ExpressionUUID->"22b82026-3b91-4f4f-8417-5b995f5c2239"], +Cell[165747, 4235, 337, 5, 59, "Output",ExpressionUUID->"e18427d5-0943-4ad6-802f-025a181c14a5"] }, 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[166121, 4245, 1041, 35, 578, "Input",ExpressionUUID->"9bf822f6-8280-4783-abcf-313af80ed01a"], +Cell[167165, 4282, 355, 6, 59, "Output",ExpressionUUID->"67a2362b-846c-4545-8d59-f289f8d1f4e7"] }, 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[167557, 4293, 1144, 39, 581, "Input",ExpressionUUID->"750069f4-80a4-4b51-950c-79b62ee320e2"], +Cell[168704, 4334, 337, 5, 59, "Output",ExpressionUUID->"24375bea-96a9-4128-9e67-9f543d628b54"] }, 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[169078, 4344, 108, 1, 52, "Input",ExpressionUUID->"a7e6edf9-9c5e-4f2b-bc7a-48482a5397b4"], +Cell[169189, 4347, 340, 5, 59, "Output",ExpressionUUID->"cdccb42f-8c5c-4c09-a72a-340c9483e884"] }, 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[169566, 4357, 108, 1, 52, "Input",ExpressionUUID->"75acfae5-3e65-453d-8d0b-66e38488ed3a"], +Cell[169677, 4360, 357, 6, 59, "Output",ExpressionUUID->"3876eb1d-a70e-4ac9-bce3-7bd69b814ee4"] }, 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[170071, 4371, 108, 1, 52, "Input",ExpressionUUID->"2426d84d-43d0-42f5-9ef6-bd5bbd005813"], +Cell[170182, 4374, 354, 6, 59, "Output",ExpressionUUID->"879c5cb9-3f43-43af-8bbc-cb9616053d7d"] }, 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[170573, 4385, 108, 1, 52, "Input",ExpressionUUID->"cf9a6673-19bd-41ab-87c7-20dc61953634"], +Cell[170684, 4388, 342, 5, 59, "Output",ExpressionUUID->"0cbce579-ed9e-4af6-8b63-011395076a1e"] }, 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[171063, 4398, 107, 1, 52, "Input",ExpressionUUID->"9b4a2c6c-cff3-4e3b-ba06-2a412e7b74c2"], +Cell[171173, 4401, 343, 5, 59, "Output",ExpressionUUID->"62ee3511-c1ee-42bd-a9cd-3d57ed7d7d1e"] }, 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[171553, 4411, 107, 1, 52, "Input",ExpressionUUID->"61fb1395-76a6-4435-bb76-d6b4bb67f858"], +Cell[171663, 4414, 340, 5, 59, "Output",ExpressionUUID->"ff293045-0c95-49e3-9d9f-ff26b988e0f2"] }, 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[172040, 4424, 497, 16, 170, "Input",ExpressionUUID->"078dfee5-cb0b-4586-b92f-86f4f066b5b8"], +Cell[172540, 4442, 355, 6, 59, "Output",ExpressionUUID->"7dc1a555-9fec-4c7b-bb6e-3c1abf6a8989"] }, 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[172932, 4453, 497, 16, 170, "Input",ExpressionUUID->"24f3a0b8-de8b-447e-9b1e-3edc75c80b7b"], +Cell[173432, 4471, 358, 6, 59, "Output",ExpressionUUID->"274fa939-04d3-4ae7-814d-546f56f2985c"] }, 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[173827, 4482, 1788, 60, 850, "Input",ExpressionUUID->"2fe75cb8-5406-4539-8a30-cba53ffbfeec"], +Cell[175618, 4544, 338, 5, 59, "Output",ExpressionUUID->"3b1bbcac-57c4-4323-a20c-bae570d6ab0e"] }, 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[175993, 4554, 1101, 36, 617, "Input",ExpressionUUID->"967d075e-2c1e-4ca9-be91-b7057b4b14ee"], +Cell[177097, 4592, 357, 6, 59, "Output",ExpressionUUID->"f531d429-dafc-4c4c-b058-8171c96566b9"] }, 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[177491, 4603, 1818, 61, 850, "Input",ExpressionUUID->"dbc10f14-f6b8-404c-b0a8-776c0f6b8cd7"], +Cell[179312, 4666, 337, 5, 59, "Output",ExpressionUUID->"96114945-fec7-4729-8d0e-9d648c45ea1b"] }, 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[179686, 4676, 1631, 53, 464, "Input",ExpressionUUID->"fea5fafc-9cc7-4cf3-be87-591c873c5ffc"], +Cell[181320, 4731, 338, 5, 59, "Output",ExpressionUUID->"47eeaf1c-00b4-4d50-ae58-3530f9ccbf7d"] }, 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[181695, 4741, 1631, 53, 464, "Input",ExpressionUUID->"569bebfc-bb1d-4b4e-8336-1ac4b0457c14"], +Cell[183329, 4796, 338, 5, 59, "Output",ExpressionUUID->"bee656c2-3808-490f-bee2-690378776670"] }, 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[183704, 4806, 206, 3, 52, "Input",ExpressionUUID->"5894836c-9594-0940-b94c-299085c765cc"], +Cell[183913, 4811, 161, 2, 59, "Output",ExpressionUUID->"aac18883-1510-4a5b-9cf8-99c96b495041"] }, Open ]], -Cell[371689, 8793, 209, 5, 70, "Input",ExpressionUUID->"54d9c986-d109-3d4c-9ee8-76427bb63659"], +Cell[184089, 4816, 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[184287, 4822, 206, 3, 52, "Input",ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-092c5143dcf0"], +Cell[184496, 4827, 163, 2, 59, "Output",ExpressionUUID->"9497ae55-67b8-4575-84a6-53686a9629fa"] +}, Open ]], +Cell[184674, 4832, 173, 2, 52, "Input",ExpressionUUID->"6e7c45d7-0298-ce41-ba97-a3c857e6ae57"], +Cell[CellGroupData[{ +Cell[184872, 4838, 1297, 42, 244, "Input",ExpressionUUID->"38bf39c5-cae1-4148-b0af-e362ef4ee2e3"], +Cell[186172, 4882, 195, 2, 59, "Output",ExpressionUUID->"de9adde4-1cf9-4aea-a137-54299af3cae2"] }, 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[186404, 4889, 927, 30, 241, "Input",ExpressionUUID->"f2e6289f-a8bc-6d44-a856-301cf9f22a61"], +Cell[187334, 4921, 194, 2, 59, "Output",ExpressionUUID->"df1aa494-ddad-4c6e-89eb-17b13e1caa7b"] }, 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[187565, 4928, 908, 29, 241, "Input",ExpressionUUID->"cdf84d2f-1e96-4c43-9286-fda42549e334"], +Cell[188476, 4959, 195, 2, 59, "Output",ExpressionUUID->"c9230703-c41f-48cc-bdc4-851b845b6557"] }, 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[188708, 4966, 554, 18, 93, "Input",ExpressionUUID->"a7d184c1-375c-094d-82ba-c6d8cfdfa4a1"], +Cell[189265, 4986, 193, 2, 59, "Output",ExpressionUUID->"8689885c-346c-4737-a943-3fb031483569"] }, 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[189495, 4993, 647, 21, 163, "Input",ExpressionUUID->"cc7d9e01-d61b-5a43-abcd-9714383fe0fe"], +Cell[190145, 5016, 189, 2, 59, "Output",ExpressionUUID->"9cb713d0-c2eb-4718-98f6-6b9f9b696de5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[190371, 5023, 166, 4, 98, "Input",ExpressionUUID->"1204358e-ac52-0f4c-bf22-945336ddda4e"], +Cell[190540, 5029, 190, 2, 59, "Output",ExpressionUUID->"d82de2cc-2f11-4e0b-b5d9-959f2090a70c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[190767, 5036, 166, 4, 97, "Input",ExpressionUUID->"66c9dc01-c171-8f4f-b59a-2829d67b4589"], +Cell[190936, 5042, 190, 2, 59, "Output",ExpressionUUID->"27a798df-b4c9-4159-9287-125a3d546dc1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191163, 5049, 177, 4, 77, "Input",ExpressionUUID->"09b0eefd-6263-8a44-8015-82d02046019c"], +Cell[191343, 5055, 190, 2, 59, "Output",ExpressionUUID->"ec08f535-8449-4d1f-aba4-78fba2cf15d5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191570, 5062, 177, 4, 77, "Input",ExpressionUUID->"c1911d35-4f2b-d042-9073-088b56a17885"], +Cell[191750, 5068, 191, 2, 59, "Output",ExpressionUUID->"0cc8886d-ff90-4099-a998-80a27c6bae53"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191978, 5075, 6051, 184, 1957, "Input",ExpressionUUID->"6fd22be4-12e4-0d4e-b7f7-ab28adc2524f"], +Cell[198032, 5261, 193, 2, 59, "Output",ExpressionUUID->"c5eea3ae-f69e-4297-b8f0-a3dbd0e321db"] +}, Open ]], +Cell[CellGroupData[{ +Cell[198262, 5268, 364, 8, 75, "Input",ExpressionUUID->"788e89bc-20c8-8541-af10-81d8741a0e5b"], +Cell[198629, 5278, 191, 2, 59, "Output",ExpressionUUID->"faabc1db-d67c-407d-b677-4ad577bc8f75"] +}, Open ]], +Cell[CellGroupData[{ +Cell[198857, 5285, 6118, 186, 1865, "Input",ExpressionUUID->"c19137b0-217d-0844-9acb-cc5878ab26fc"], +Cell[204978, 5473, 194, 2, 59, "Output",ExpressionUUID->"7446b542-803e-4e89-9d7c-eec7937166d6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[205209, 5480, 364, 8, 75, "Input",ExpressionUUID->"7c3bd40f-ac17-c54f-a888-ac3b4c84d9d9"], +Cell[205576, 5490, 193, 2, 59, "Output",ExpressionUUID->"c9028c1b-2e54-471c-be04-b04517f567c5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[205806, 5497, 2659, 87, 804, "Input",ExpressionUUID->"bdca581e-5d9f-434b-8ec4-903e0edf0216"], +Cell[208468, 5586, 190, 2, 59, "Output",ExpressionUUID->"5f6994fc-1a03-4a74-9383-ea5048a5dcc0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[208695, 5593, 2599, 84, 804, "Input",ExpressionUUID->"1cec8cc2-764e-3d42-a680-d2ec92565257"], +Cell[211297, 5679, 191, 2, 59, "Output",ExpressionUUID->"0f53642f-3280-44a9-ab90-ccc0bf18351c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[211525, 5686, 3708, 117, 1253, "Input",ExpressionUUID->"800aba4f-a7e9-864a-a38b-f618fe3c89be"], +Cell[215236, 5805, 192, 2, 59, "Output",ExpressionUUID->"b0ef719e-fa91-4360-8727-63473bcc2636"] +}, Open ]], +Cell[215443, 5810, 160, 3, 52, "Input",ExpressionUUID->"8111b6bb-cdcb-ad40-9440-412e77bed40d"], +Cell[CellGroupData[{ +Cell[215628, 5817, 2209, 61, 594, "Input",ExpressionUUID->"fc88a60e-e348-d344-96c4-1f4f66f53217"], +Cell[217840, 5880, 627, 13, 176, "Message",ExpressionUUID->"3e2d9c15-9c40-4bff-a811-c2e06df42717"], +Cell[218470, 5895, 627, 13, 176, "Message",ExpressionUUID->"bb5f5fe4-4073-495c-8b86-e2eb2bd4ec99"], +Cell[219100, 5910, 627, 13, 176, "Message",ExpressionUUID->"ddd41a7f-ee5e-4e06-a262-1ba10744e5de"], +Cell[219730, 5925, 489, 11, 77, "Message",ExpressionUUID->"c9c5662a-e4e2-43b1-8875-8ebb1859f607"], +Cell[220222, 5938, 191, 2, 59, "Output",ExpressionUUID->"0c400b4c-141b-4e66-a3f7-afded95ead00"] +}, Open ]], +Cell[CellGroupData[{ +Cell[220450, 5945, 2209, 61, 594, "Input",ExpressionUUID->"dca13eb7-7f94-3e45-81a8-b62dad3009d2"], +Cell[222662, 6008, 629, 13, 176, "Message",ExpressionUUID->"bfb09894-12c9-4f93-8803-5eee4d487a55"], +Cell[223294, 6023, 627, 13, 176, "Message",ExpressionUUID->"4ea1ecb1-8139-49cb-8e1b-db8edf690342"], +Cell[223924, 6038, 627, 13, 176, "Message",ExpressionUUID->"f0c8dcd3-f8f4-4706-96c9-a5a936b43574"], +Cell[224554, 6053, 489, 11, 77, "Message",ExpressionUUID->"f90cca62-f0d4-4a5a-81af-ef044a59aa53"], +Cell[225046, 6066, 190, 2, 59, "Output",ExpressionUUID->"d25c0982-12a7-4ea3-b371-9f9643d8736a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[225273, 6073, 2049, 54, 432, "Input",ExpressionUUID->"46451e4d-f5ef-b246-91c6-4265c9fafb97"], +Cell[227325, 6129, 20309, 382, 328, "Output",ExpressionUUID->"9ce0b67d-eef6-4e65-959c-814fe63bbbf1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[247671, 6516, 2249, 62, 698, "Input",ExpressionUUID->"06bd0169-a5a6-404c-935d-e1a61565f71e"], +Cell[249923, 6580, 533, 12, 147, "Message",ExpressionUUID->"7d68697e-aa5e-4c2f-b927-d270401d76f9"], +Cell[250459, 6594, 537, 12, 176, "Message",ExpressionUUID->"ab23703a-1392-44a8-a242-658b001583cf"], +Cell[250999, 6608, 538, 12, 176, "Message",ExpressionUUID->"b0e66379-aab4-41ea-83e2-787f6ca4d13f"], +Cell[251540, 6622, 490, 11, 77, "Message",ExpressionUUID->"30f534ff-47b7-4659-9a4b-9049cf2d15f2"], +Cell[252033, 6635, 21986, 407, 324, "Output",ExpressionUUID->"9d1ecc39-191d-4b70-b891-4900416f725d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[274056, 7047, 2471, 69, 637, "Input",ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-b938908ab9a4"], +Cell[276530, 7118, 9492, 222, 329, "Output",ExpressionUUID->"6024ffd9-5062-4662-8d57-b88ace85faf9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[286059, 7345, 228, 4, 52, "Input",ExpressionUUID->"6b0777bb-40fd-b54e-aa03-b6e82cb2e939"], +Cell[286290, 7351, 28346, 539, 324, "Output",ExpressionUUID->"8589e8f1-44a9-4845-8139-211791a4418e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[314673, 7895, 236, 6, 85, "Input",ExpressionUUID->"1ec1e156-ca0f-9240-857c-ac86e3a0e3fd"], +Cell[314912, 7903, 191, 2, 59, "Output",ExpressionUUID->"73b3a655-20cc-4756-97a7-acaad000ad44"] +}, Open ]], +Cell[CellGroupData[{ +Cell[315140, 7910, 1968, 55, 643, "Input",ExpressionUUID->"2a22eb8b-38c3-1f4b-a455-da901e49f6f1"], +Cell[317111, 7967, 631, 14, 176, "Message",ExpressionUUID->"b5b6595b-272d-4283-a535-dda9a2cb5f36"], +Cell[317745, 7983, 629, 14, 176, "Message",ExpressionUUID->"bf95f182-cc1e-4d66-a99c-830543e513c3"], +Cell[318377, 7999, 630, 14, 176, "Message",ExpressionUUID->"447b9605-b84d-4e81-ae44-48994b0a711c"], +Cell[319010, 8015, 490, 11, 77, "Message",ExpressionUUID->"848c247d-73ea-434a-b5d3-1faa0785ddda"], +Cell[319503, 8028, 22138, 410, 325, "Output",ExpressionUUID->"cfd1660c-22a7-4658-9ad2-dd43747c77ce"] +}, Open ]], +Cell[CellGroupData[{ +Cell[341678, 8443, 1648, 50, 433, "Input",ExpressionUUID->"6e7e1815-2cc6-b24e-a02d-18991b1a751b"], +Cell[343329, 8495, 633, 14, 176, "Message",ExpressionUUID->"94f912e4-313c-4da0-9aae-1b126e7d1f43"], +Cell[343965, 8511, 633, 14, 176, "Message",ExpressionUUID->"9c5d48d3-90c4-49c0-85a5-9e0d1c71aeca"], +Cell[344601, 8527, 632, 14, 176, "Message",ExpressionUUID->"70a661e7-9323-4dac-ba5d-d6d4c03ad196"], +Cell[345236, 8543, 490, 11, 77, "Message",ExpressionUUID->"abdcd123-edf4-42bd-a5ef-01111f19935d"], +Cell[345729, 8556, 195, 3, 59, "Output",ExpressionUUID->"b7e513ee-2e43-4b0e-83dd-8e20649389b8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[345961, 8564, 2274, 64, 652, "Input",ExpressionUUID->"0b10f52e-4583-2a4b-993d-96e59dd43e6a"], +Cell[348238, 8630, 630, 13, 176, "Message",ExpressionUUID->"d15964ba-2c07-45ef-b14f-afe53f8c48fe"], +Cell[348871, 8645, 628, 13, 176, "Message",ExpressionUUID->"0be114b5-4c8f-436c-8116-76ad8f951136"], +Cell[349502, 8660, 628, 13, 176, "Message",ExpressionUUID->"b0431b6a-2c5a-45c3-a9b4-e6056f191e40"], +Cell[350133, 8675, 490, 11, 77, "Message",ExpressionUUID->"4d1b496d-9fee-48e3-8f83-4b97f52c55f0"], +Cell[350626, 8688, 194, 3, 59, "Output",ExpressionUUID->"89cb52f0-80e2-43e4-8685-9a5515adf8fb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[350857, 8696, 2230, 63, 652, "Input",ExpressionUUID->"a58948c9-6d3d-e847-a269-d2e0cc5d1484"], +Cell[353090, 8761, 630, 13, 176, "Message",ExpressionUUID->"06bfe92f-ca75-4717-8344-ceb98a0139b8"], +Cell[353723, 8776, 632, 13, 176, "Message",ExpressionUUID->"d5fb6279-f83c-48ba-a13d-2f27ae1548b6"], +Cell[354358, 8791, 632, 13, 176, "Message",ExpressionUUID->"ef2e3c8a-e00b-4091-be94-dcaa6f06c305"], +Cell[354993, 8806, 492, 11, 77, "Message",ExpressionUUID->"0ef0d155-7869-4e2a-a937-04afe186d345"], +Cell[355488, 8819, 193, 3, 59, "Output",ExpressionUUID->"10f89918-b154-41af-a68f-e603be23b7f6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[355718, 8827, 2233, 63, 652, "Input",ExpressionUUID->"c817b2d1-7deb-5a45-9938-ca10003188eb"], +Cell[357954, 8892, 630, 13, 176, "Message",ExpressionUUID->"e9ae469a-e911-427b-95f8-73d9c3ade606"], +Cell[358587, 8907, 632, 13, 176, "Message",ExpressionUUID->"eb1c2dde-8723-4551-a48a-6186ec982145"], +Cell[359222, 8922, 630, 13, 176, "Message",ExpressionUUID->"bac30cea-cb4c-410c-8955-6275f2bdb8e7"], +Cell[359855, 8937, 492, 11, 77, "Message",ExpressionUUID->"0ad6ca65-956c-40c7-a783-7d12c840c072"], +Cell[360350, 8950, 192, 3, 59, "Output",ExpressionUUID->"dd745d82-2107-48c9-a1aa-20719a260b7a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[360579, 8958, 236, 6, 83, "Input",ExpressionUUID->"350334c7-7c47-c24c-8adc-781173809e57"], +Cell[360818, 8966, 194, 3, 59, "Output",ExpressionUUID->"bc7dbc2d-9782-42a8-a6b2-796630c58105"] +}, Open ]], +Cell[361027, 8972, 271, 6, 52, "Input",ExpressionUUID->"597921e5-69d3-564d-a8fa-092e912c15e0"], +Cell[CellGroupData[{ +Cell[361323, 8982, 558, 19, 93, "Input",ExpressionUUID->"d8a22216-586e-3641-8d6a-b19164cbbef2"], +Cell[361884, 9003, 194, 3, 59, "Output",ExpressionUUID->"eda7e04d-6c40-4985-a98f-75263c7ea471"] +}, Open ]], +Cell[CellGroupData[{ +Cell[362115, 9011, 170, 5, 98, "Input",ExpressionUUID->"fdbad1ee-10c7-0843-8319-ad9a3350b059"], +Cell[362288, 9018, 196, 3, 59, "Output",ExpressionUUID->"57117052-a786-46dc-b9cf-8ca30968e530"] +}, Open ]], +Cell[CellGroupData[{ +Cell[362521, 9026, 181, 5, 77, "Input",ExpressionUUID->"1e4255c3-6733-664e-86c8-98281eb7b3d1"], +Cell[362705, 9033, 193, 3, 59, "Output",ExpressionUUID->"174c0a0d-2659-4cd5-8b8b-2843574f4318"] +}, Open ]], +Cell[CellGroupData[{ +Cell[362935, 9041, 6055, 185, 1957, "Input",ExpressionUUID->"70c538a1-1fdf-1447-919a-237a7f13ec4c"], +Cell[368993, 9228, 194, 3, 59, "Output",ExpressionUUID->"3e70c7a8-d36e-4050-b7da-edd341902f1a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[369224, 9236, 368, 9, 75, "Input",ExpressionUUID->"309f305e-3fbc-e84e-99d9-1087d7a09460"], +Cell[369595, 9247, 197, 3, 59, "Output",ExpressionUUID->"e3190d6b-5449-48ac-b6fd-182b7486cd44"] +}, Open ]], +Cell[CellGroupData[{ +Cell[369829, 9255, 6122, 187, 1865, "Input",ExpressionUUID->"e745b4b9-6adc-da40-98cf-d19095e176b2"], +Cell[375954, 9444, 194, 3, 59, "Output",ExpressionUUID->"5a96a26d-1168-426e-b08f-9f886d759588"] +}, Open ]], +Cell[CellGroupData[{ +Cell[376185, 9452, 368, 9, 75, "Input",ExpressionUUID->"9d206cd8-8a5b-4046-b84a-e6b4fe810128"], +Cell[376556, 9463, 193, 3, 59, "Output",ExpressionUUID->"cf185f92-d1fe-4352-ad92-f550e2506a60"] +}, Open ]], +Cell[CellGroupData[{ +Cell[376786, 9471, 2663, 88, 804, "Input",ExpressionUUID->"2ec72619-a762-004d-a8c1-9773b798bf0e"], +Cell[379452, 9561, 194, 3, 59, "Output",ExpressionUUID->"dc15b9e7-ac26-46cc-8f09-8f8ddfd13afe"] +}, Open ]], +Cell[CellGroupData[{ +Cell[379683, 9569, 2603, 85, 804, "Input",ExpressionUUID->"499f8153-6e36-8043-876b-5343c0af179e"], +Cell[382289, 9656, 195, 3, 59, "Output",ExpressionUUID->"c65122fa-7111-40ab-8f0f-695eb191171d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[382521, 9664, 3712, 118, 1253, "Input",ExpressionUUID->"33c0834c-5a76-7640-a18c-d9704d756896"], +Cell[386236, 9784, 196, 3, 59, "Output",ExpressionUUID->"2c3ed792-4f70-400a-9179-a5424613b16a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[386469, 9792, 2210, 62, 594, "Input",ExpressionUUID->"77c444cf-c5b4-4b4b-9808-ff76b28fd32d"], +Cell[388682, 9856, 635, 14, 176, "Message",ExpressionUUID->"e602d811-9218-4006-a2e6-cba3fb5f9a36"], +Cell[389320, 9872, 633, 13, 176, "Message",ExpressionUUID->"35afe0ed-e4f2-4a3d-83bd-a90230ebfb32"], +Cell[389956, 9887, 630, 13, 176, "Message",ExpressionUUID->"ccb993ff-a021-41b4-b72f-33e7ea7ee4ad"], +Cell[390589, 9902, 492, 11, 77, "Message",ExpressionUUID->"863952bb-73ff-4a3e-bfc4-8be9cf903577"], +Cell[391084, 9915, 195, 3, 59, "Output",ExpressionUUID->"50564e97-dcb0-4863-820a-1480a9a23082"] +}, Open ]], +Cell[CellGroupData[{ +Cell[391316, 9923, 2213, 62, 594, "Input",ExpressionUUID->"baacd3f7-96e4-2949-b9f9-9afb90e551d9"], +Cell[393532, 9987, 633, 14, 176, "Message",ExpressionUUID->"ad0418eb-affb-46ea-afc7-620386d9c0f4"], +Cell[394168, 10003, 629, 13, 176, "Message",ExpressionUUID->"08f314f7-b9e1-4253-82b7-9ac35c8050c7"], +Cell[394800, 10018, 628, 13, 176, "Message",ExpressionUUID->"a949660d-f081-41fe-bc22-33732fdaa7cd"], +Cell[395431, 10033, 490, 11, 77, "Message",ExpressionUUID->"c6fa1d62-360b-457f-91e8-659b75a29388"], +Cell[395924, 10046, 193, 3, 59, "Output",ExpressionUUID->"776e7820-9f8d-41e8-b5ac-d0b035cb4734"] +}, Open ]], +Cell[CellGroupData[{ +Cell[396154, 10054, 2053, 55, 432, "Input",ExpressionUUID->"ea08a5a9-d446-9147-ba82-e3924f732df2"], +Cell[398210, 10111, 20482, 386, 321, "Output",ExpressionUUID->"95522243-214c-43a1-a684-e59a534c2cf4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[418729, 10502, 2279, 63, 698, "Input",ExpressionUUID->"42ddbf41-0bd8-b749-bead-56c89a9b7467"], +Cell[421011, 10567, 531, 12, 147, "Message",ExpressionUUID->"e1bffac2-fc8b-4156-828e-c78663af49c0"], +Cell[421545, 10581, 535, 12, 176, "Message",ExpressionUUID->"7175a1a3-1f83-4e71-9108-1b22e5a2c05f"], +Cell[422083, 10595, 538, 12, 176, "Message",ExpressionUUID->"3e1def2d-e74e-4c4e-ab13-6b9ccbbf1de1"], +Cell[422624, 10609, 490, 11, 77, "Message",ExpressionUUID->"18ce45a4-a22b-4e7c-9d58-30182675af17"], +Cell[423117, 10622, 22532, 417, 320, "Output",ExpressionUUID->"c31a58be-8103-40b1-928c-2909fbdd4dab"] +}, Open ]], +Cell[CellGroupData[{ +Cell[445686, 11044, 232, 5, 52, "Input",ExpressionUUID->"6883477e-2a54-0a45-979a-ae60c73e9e82"], +Cell[445921, 11051, 28894, 549, 320, "Output",ExpressionUUID->"7a4ef7d4-8239-494b-b659-1f8ed055e342"] +}, Open ]], +Cell[CellGroupData[{ +Cell[474852, 11605, 1648, 50, 433, "Input",ExpressionUUID->"93c0bac4-7a17-8748-9b2f-588171dbd56e"], +Cell[476503, 11657, 633, 14, 176, "Message",ExpressionUUID->"4ec19f28-5fa8-4b0c-8e3a-4a7ef7ae9acd"], +Cell[477139, 11673, 632, 14, 176, "Message",ExpressionUUID->"3abb1867-37a9-4da7-85ac-38ed45d76ad1"], +Cell[477774, 11689, 633, 14, 176, "Message",ExpressionUUID->"72cad2b0-83f4-4eb5-b5ec-dffbcdb9820c"], +Cell[478410, 11705, 490, 11, 77, "Message",ExpressionUUID->"94d62fcd-56e9-48b0-9c11-b80c8a79ea26"], +Cell[478903, 11718, 191, 3, 59, "Output",ExpressionUUID->"9d33be81-51ff-473f-b8f9-2b0759a0de90"] +}, Open ]], +Cell[CellGroupData[{ +Cell[479131, 11726, 2274, 64, 652, "Input",ExpressionUUID->"fcc64ab7-eee0-e44f-9b2d-2a98ba29b602"], +Cell[481408, 11792, 633, 14, 176, "Message",ExpressionUUID->"e2640e04-302f-4929-b387-53cb02f58757"], +Cell[482044, 11808, 629, 13, 176, "Message",ExpressionUUID->"d928f5d5-d1a7-43e6-a552-f9d16bf61e28"], +Cell[482676, 11823, 630, 13, 176, "Message",ExpressionUUID->"9e611b9f-9dbc-4974-8106-8683bbbe0272"], +Cell[483309, 11838, 492, 11, 77, "Message",ExpressionUUID->"2c1835ca-39b1-4f61-b65d-78961b936e12"], +Cell[483804, 11851, 197, 3, 59, "Output",ExpressionUUID->"f62bc8f1-3a99-4101-ac45-866705834c34"] +}, Open ]], +Cell[CellGroupData[{ +Cell[484038, 11859, 2231, 63, 652, "Input",ExpressionUUID->"edfdd675-c60b-304e-9e16-68452b971319"], +Cell[486272, 11924, 637, 14, 176, "Message",ExpressionUUID->"956c0fe0-0746-4172-af4e-20ee4304353d"], +Cell[486912, 11940, 630, 13, 176, "Message",ExpressionUUID->"88f9087e-629b-4419-a54c-b4066394ae20"], +Cell[487545, 11955, 632, 13, 176, "Message",ExpressionUUID->"8bfa1bc0-d2cb-4cd0-a20a-077877f2b219"], +Cell[488180, 11970, 492, 11, 77, "Message",ExpressionUUID->"3dc9f7ff-4ced-4187-9ece-2ad903caac56"], +Cell[488675, 11983, 193, 3, 59, "Output",ExpressionUUID->"d2388139-1826-4906-87c8-7f2214bba7be"] +}, Open ]], +Cell[CellGroupData[{ +Cell[488905, 11991, 2231, 63, 652, "Input",ExpressionUUID->"d0469d46-2e74-494a-be85-b41cb2f3fa92"], +Cell[491139, 12056, 632, 14, 176, "Message",ExpressionUUID->"d5012786-7b29-4007-897a-9a823d2c86ad"], +Cell[491774, 12072, 628, 13, 176, "Message",ExpressionUUID->"7a41b8e3-8a8e-41a9-aa2f-595b1f60de40"], +Cell[492405, 12087, 627, 13, 176, "Message",ExpressionUUID->"2f6a1418-6e70-4fd9-b6ea-5daa189f13ab"], +Cell[493035, 12102, 489, 11, 77, "Message",ExpressionUUID->"b2d9745a-011a-414e-92dd-be92163618c3"], +Cell[493527, 12115, 194, 3, 59, "Output",ExpressionUUID->"5a9d579b-7778-4736-b2ab-6a993ead7d9a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[493758, 12123, 235, 6, 83, "Input",ExpressionUUID->"58b5e243-0972-1946-bd17-aca0f3e8a35b"], +Cell[493996, 12131, 197, 3, 59, "Output",ExpressionUUID->"d435a38e-ba37-45f3-836e-6d13feb7a039"] +}, Open ]], +Cell[494208, 12137, 270, 6, 52, "Input",ExpressionUUID->"8ae59c8e-a0a1-f646-a3f5-a3711ba632a4"], +Cell[CellGroupData[{ +Cell[494503, 12147, 558, 19, 93, "Input",ExpressionUUID->"403fd1b3-6929-134c-834a-14f2acd2fccb"], +Cell[495064, 12168, 192, 3, 59, "Output",ExpressionUUID->"506127ab-3cd0-4b7c-a8b4-c57b83084cbf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[495293, 12176, 170, 5, 98, "Input",ExpressionUUID->"434ec2be-ef30-1d48-bf44-e1e8b179c2e0"], +Cell[495466, 12183, 193, 3, 59, "Output",ExpressionUUID->"407e1432-611c-497d-9df9-1968c2df5c26"] +}, Open ]], +Cell[CellGroupData[{ +Cell[495696, 12191, 181, 5, 77, "Input",ExpressionUUID->"defdc4af-a758-2c46-b8da-ac4403e5ffd4"], +Cell[495880, 12198, 195, 3, 59, "Output",ExpressionUUID->"f010d57a-3905-47ef-ba8b-5efb0825747c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[496112, 12206, 6055, 185, 1957, "Input",ExpressionUUID->"7643457c-ba0b-b641-aa35-59c61447beaf"], +Cell[502170, 12393, 194, 3, 59, "Output",ExpressionUUID->"d01552b9-7ba0-47eb-9084-2e755198538e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[502401, 12401, 368, 9, 75, "Input",ExpressionUUID->"88a32c79-3b56-5047-96b0-6fadcea3787e"], +Cell[502772, 12412, 195, 3, 59, "Output",ExpressionUUID->"ed4433cc-2145-49c7-8aad-5636efd0001e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[503004, 12420, 6122, 187, 1865, "Input",ExpressionUUID->"12b95c40-ca91-7148-a053-e8c97b54e7b6"], +Cell[509129, 12609, 195, 3, 59, "Output",ExpressionUUID->"3344c2c2-4513-4f0a-84da-d9dc15a6197a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[509361, 12617, 368, 9, 75, "Input",ExpressionUUID->"4e259183-4a48-7f41-8fc6-1aa60d807e18"], +Cell[509732, 12628, 194, 3, 59, "Output",ExpressionUUID->"867c3a09-fc1b-4b1b-92b0-060ca72ce6f4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[509963, 12636, 2663, 88, 804, "Input",ExpressionUUID->"73b06553-f9e2-3447-85e9-8a163aa2ec21"], +Cell[512629, 12726, 196, 3, 59, "Output",ExpressionUUID->"0d122718-c8ee-4a35-8596-0b1757d596e2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[512862, 12734, 2603, 85, 804, "Input",ExpressionUUID->"64658d71-e48f-7c4d-bfd6-30344127c7bf"], +Cell[515468, 12821, 192, 3, 59, "Output",ExpressionUUID->"2595a469-d3cd-40b7-9985-6c124c2ad088"] +}, Open ]], +Cell[CellGroupData[{ +Cell[515697, 12829, 3712, 118, 1253, "Input",ExpressionUUID->"02b10812-8656-6e43-99ab-3ff059fd6dae"], +Cell[519412, 12949, 196, 3, 59, "Output",ExpressionUUID->"9e06ecf8-7256-4e4b-89c6-293d90fe36ec"] +}, Open ]], +Cell[CellGroupData[{ +Cell[519645, 12957, 2213, 62, 594, "Input",ExpressionUUID->"ba508068-6b78-254c-87d6-cf1adc0753dd"], +Cell[521861, 13021, 628, 13, 176, "Message",ExpressionUUID->"909a52d7-cdf0-4197-98a4-8a4b0ff0faba"], +Cell[522492, 13036, 629, 13, 176, "Message",ExpressionUUID->"6daa9233-800c-46f0-93cc-2cd9c007bca6"], +Cell[523124, 13051, 630, 13, 176, "Message",ExpressionUUID->"a9bc768e-3fcc-4a1c-a5d1-492af26af869"], +Cell[523757, 13066, 490, 11, 77, "Message",ExpressionUUID->"b70e5091-f69c-46dc-99eb-c441ec95530a"], +Cell[524250, 13079, 195, 3, 59, "Output",ExpressionUUID->"0496cd72-828b-4748-ba62-aaf719addeb2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[524482, 13087, 2213, 62, 594, "Input",ExpressionUUID->"842e33e4-ae06-f746-ab8b-97489285cc9c"], +Cell[526698, 13151, 629, 13, 176, "Message",ExpressionUUID->"000bc7f6-cf98-4e97-803f-35bd5f2da913"], +Cell[527330, 13166, 631, 13, 176, "Message",ExpressionUUID->"d396ddc8-da1a-4691-9325-4931ea54116d"], +Cell[527964, 13181, 630, 13, 176, "Message",ExpressionUUID->"d67f7206-d5ed-4598-ba6b-a64c1cdd78fe"], +Cell[528597, 13196, 492, 11, 77, "Message",ExpressionUUID->"c821454b-bcf1-4dab-ad69-4b547a9ac795"], +Cell[529092, 13209, 196, 3, 59, "Output",ExpressionUUID->"8f4ea6c3-9df1-42d8-a40b-fcec037b2e26"] +}, Open ]], +Cell[CellGroupData[{ +Cell[529325, 13217, 2051, 55, 432, "Input",ExpressionUUID->"b2e314f8-a6f0-6942-a94c-5ac1cacd7190"], +Cell[531379, 13274, 20290, 381, 328, "Output",ExpressionUUID->"55d9da26-81cf-46ce-8fc5-e10c7c8aabf9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[551706, 13660, 2304, 64, 698, "Input",ExpressionUUID->"497f9779-a3e4-c84e-a207-0aac70483e3c"], +Cell[554013, 13726, 535, 12, 147, "Message",ExpressionUUID->"64ce6e73-95bb-4e59-8bd8-395cea444900"], +Cell[554551, 13740, 537, 12, 176, "Message",ExpressionUUID->"95dcf9d5-5b64-436b-9ff9-b25acdae1e79"], +Cell[555091, 13754, 539, 12, 176, "Message",ExpressionUUID->"66930e13-ac07-4e5d-ab7a-27f8046b310d"], +Cell[555633, 13768, 491, 11, 77, "Message",ExpressionUUID->"c4321329-5a09-42e1-a2a0-7554f7769b4c"], +Cell[556127, 13781, 21983, 408, 324, "Output",ExpressionUUID->"7f6c629d-8afb-4027-8791-85a6bc546469"] +}, Open ]], +Cell[CellGroupData[{ +Cell[578147, 14194, 232, 5, 52, "Input",ExpressionUUID->"54d9c986-d109-3d4c-9ee8-76427bb63659"], +Cell[578382, 14201, 28343, 540, 324, "Output",ExpressionUUID->"47637e04-2008-4664-9ce3-d2a63949f114"] +}, Open ]], +Cell[CellGroupData[{ +Cell[606762, 14746, 1648, 50, 433, "Input",ExpressionUUID->"5dd0afca-0a4f-544d-814d-33e1c649116f"], +Cell[608413, 14798, 611, 14, 176, "Message",ExpressionUUID->"eb60df3a-5c87-437f-863a-86958726de38"], +Cell[609027, 14814, 613, 14, 176, "Message",ExpressionUUID->"029f0a43-b666-429c-9ace-684c71f16825"], +Cell[609643, 14830, 612, 14, 176, "Message",ExpressionUUID->"695d087c-85cf-41c1-a563-06483c712e87"], +Cell[610258, 14846, 468, 11, 77, "Message",ExpressionUUID->"e2d73aa5-7e7d-453d-a454-8d089a73f2f3"], +Cell[610729, 14859, 170, 3, 59, "Output",ExpressionUUID->"9d1184e9-ac38-4074-add5-d43bf850151a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[610936, 14867, 2272, 64, 652, "Input",ExpressionUUID->"a3e3d205-e3b4-874a-a36c-53cfa72184b4"], +Cell[613211, 14933, 605, 13, 176, "Message",ExpressionUUID->"f7437a14-1dfd-4dfd-adc4-3327b2583178"], +Cell[613819, 14948, 607, 13, 176, "Message",ExpressionUUID->"9ad16393-d513-4881-9675-bf40fa2fa082"], +Cell[614429, 14963, 606, 13, 176, "Message",ExpressionUUID->"606ae197-3e2e-4063-b97a-0f881c964169"], +Cell[615038, 14978, 470, 11, 77, "Message",ExpressionUUID->"d76310d4-d682-4924-8557-1c2b9cead6b4"], +Cell[615511, 14991, 173, 3, 59, "Output",ExpressionUUID->"cfa45def-f509-43b6-b979-732083eba217"] +}, Open ]], +Cell[CellGroupData[{ +Cell[615721, 14999, 2233, 63, 652, "Input",ExpressionUUID->"6977f025-454e-0e4a-b118-07bad9ba3e82"], +Cell[617957, 15064, 605, 13, 176, "Message",ExpressionUUID->"16af03ed-ffcf-4117-91b9-6cfc7ac7b027"], +Cell[618565, 15079, 609, 13, 176, "Message",ExpressionUUID->"e7c391c9-89cd-4db6-ad99-835549add578"], +Cell[619177, 15094, 606, 13, 176, "Message",ExpressionUUID->"0395e833-c6f9-40a7-a6c9-69b99e80719b"], +Cell[619786, 15109, 470, 11, 77, "Message",ExpressionUUID->"8dd1bf4f-05dd-4bbb-b96f-0c24915038b8"], +Cell[620259, 15122, 173, 3, 59, "Output",ExpressionUUID->"2077d200-41f7-41e9-8e19-c88a14c2bf37"] +}, Open ]], +Cell[CellGroupData[{ +Cell[620469, 15130, 2235, 63, 652, "Input",ExpressionUUID->"df8ecb01-788a-604d-b773-f29bb610eb30"], +Cell[622707, 15195, 608, 13, 176, "Message",ExpressionUUID->"e1bc6595-a473-495c-a89a-dc2f4e4dd574"], +Cell[623318, 15210, 607, 13, 176, "Message",ExpressionUUID->"d4c4cf9a-95c0-4de7-ba5b-b055a6de3909"], +Cell[623928, 15225, 606, 13, 176, "Message",ExpressionUUID->"ca52ce59-c099-4cb0-8938-895998c9b1cd"], +Cell[624537, 15240, 468, 11, 77, "Message",ExpressionUUID->"2e99b8ba-fc71-4d1a-97b8-0bacb3c64350"], +Cell[625008, 15253, 170, 3, 59, "Output",ExpressionUUID->"71be0b59-1b92-4d30-bcbd-b92eeafd640d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[625215, 15261, 236, 6, 83, "Input",ExpressionUUID->"54a5e329-20bd-e742-afe8-d2cfa007cfcf"], +Cell[625454, 15269, 173, 3, 59, "Output",ExpressionUUID->"3dacc3f7-591d-4755-a431-4b132d025ef2"] +}, Open ]], +Cell[625642, 15275, 143, 3, 52, "Input",ExpressionUUID->"0e8fe253-8820-4d00-b716-83b8946baa2e"] } ] *) -(* End of internal cache information *) - diff --git a/Pu240_798-811_TitovAA/164-76_h_Pu240_18-19/h_164-76_Pu240_18-19_gid_Qw1.nb b/Pu240_798-811_TitovAA/164-76_h_Pu240_18-19/h_164-76_Pu240_18-19_gid_Qw1.nb index b66829d..0454776 100644 --- a/Pu240_798-811_TitovAA/164-76_h_Pu240_18-19/h_164-76_Pu240_18-19_gid_Qw1.nb +++ b/Pu240_798-811_TitovAA/164-76_h_Pu240_18-19/h_164-76_Pu240_18-19_gid_Qw1.nb @@ -3,32 +3,4979 @@ (*** 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[ 399174, 9347] -NotebookOptionsPosition[ 375132, 8983] -NotebookOutlinePosition[ 375544, 9000] -CellTagsIndexPosition[ 375501, 8997] +NotebookDataLength[ 598608, 14621] +NotebookOptionsPosition[ 559532, 14000] +NotebookOutlinePosition[ 559937, 14017] +CellTagsIndexPosition[ 559894, 14014] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f1", "="}]], "Input", + RowBox[{"d", "=", "1.78"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.993816332414463*^9, 3.993816395113246*^9}, { + 3.99408327105175*^9, + 3.99408327225659*^9}},ExpressionUUID->"0078b1a8-3f2c-4497-9c52-\ +25d178044aa5"], + +Cell[BoxData["1.78`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, {3.9938163104908867`*^9, 3.993816400323968*^9}}, + CellLabel-> + "Out[407]=",ExpressionUUID->"fdea815f-0b7d-48d6-b4c5-454fd9e9abe9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.993816070416484*^9, 3.9938160711424847`*^9}}, + CellLabel-> + "In[408]:=",ExpressionUUID->"a9334120-83c8-487e-937e-b71399944f71"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, {3.993816310783677*^9, 3.9938164003801527`*^9}}, + CellLabel-> + "Out[408]=",ExpressionUUID->"75bf04e3-1efd-4e1a-a8bc-1733941a8d9a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "164"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.993816075114204*^9, 3.993816075786501*^9}}, + CellLabel-> + "In[409]:=",ExpressionUUID->"521debca-02aa-4e6f-b778-143a7373f897"], + +Cell[BoxData["164"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, {3.99381631080079*^9, 3.9938164003966837`*^9}}, + CellLabel-> + "Out[409]=",ExpressionUUID->"3a3747e5-8a45-4f53-921c-0f4875f1a833"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel-> + "In[410]:=",ExpressionUUID->"be7b1703-772f-4229-a7b1-4d0c54ce94ef"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, {3.9938163108190804`*^9, 3.99381640041328*^9}}, + CellLabel-> + "Out[410]=",ExpressionUUID->"10ebbc28-5dc8-4772-8b90-e72bbae78510"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel-> + "In[411]:=",ExpressionUUID->"f1a895c8-4160-47f2-8a43-59625ca41a0f"], + +Cell[BoxData["0.5445000000000001`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, {3.99381631083608*^9, 3.9938164004361677`*^9}}, + CellLabel-> + "Out[411]=",ExpressionUUID->"a2e55c08-86bc-436d-9c50-777bcaf60a17"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel-> + "In[412]:=",ExpressionUUID->"a980436e-908f-40c9-845d-eb8cd657bd0d"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, {3.99381631085299*^9, 3.99381640045368*^9}}, + CellLabel-> + "Out[412]=",ExpressionUUID->"657b79af-1493-428c-ae40-a956c36e42c9"] +}, 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[413]:=",ExpressionUUID->"56c7dee1-9453-4883-abea-f120911216ab"], + +Cell[BoxData["6.349496262766175`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, {3.993816310870123*^9, 3.993816400471637*^9}}, + CellLabel-> + "Out[413]=",ExpressionUUID->"0951e39c-ba60-4988-88be-600cd4ce11ca"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel-> + "In[414]:=",ExpressionUUID->"4aa04189-5cd6-487e-a2bb-4e3f13b35124"], + +Cell[BoxData["4.913555357735675`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, {3.993816310887587*^9, 3.993816400489262*^9}}, + CellLabel-> + "Out[414]=",ExpressionUUID->"efe0ef06-9189-415d-a039-5c4146568ddd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.96357"}]], "Input", + CellChangeTimes->{ + 3.991799283179735*^9, {3.993816155315236*^9, 3.99381616557413*^9}}, + CellLabel-> + "In[415]:=",ExpressionUUID->"69bafadd-8e2f-4831-8eb6-540d5e56e48b"], + +Cell[BoxData["0.96357`"], "Output", + CellChangeTimes->{{3.9938163109056883`*^9, 3.993816400504654*^9}}, + CellLabel-> + "Out[415]=",ExpressionUUID->"ff51d55c-2907-4526-a6bd-e8589961370d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.39003"}]], "Input", + CellChangeTimes->{ + 3.991799280663351*^9, {3.993816167313641*^9, 3.9938161733246517`*^9}}, + CellLabel-> + "In[416]:=",ExpressionUUID->"39ae1ee7-3cea-484e-9675-bee0306ab848"], + +Cell[BoxData["0.39003`"], "Output", + CellChangeTimes->{{3.993816310923224*^9, 3.993816400519388*^9}}, + CellLabel-> + "Out[416]=",ExpressionUUID->"f2efe951-d2fe-409a-9f4b-980a37d3fd8b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel-> + "In[417]:=",ExpressionUUID->"7cd62bc4-4b86-4bad-a731-6e6fb8c154b3"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, {3.993816310942574*^9, 3.993816400534342*^9}}, + CellLabel-> + "Out[417]=",ExpressionUUID->"e78b1686-7a40-4129-a221-66af4aa81e08"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel-> + "In[418]:=",ExpressionUUID->"6977bb7d-b00f-49e9-8144-c17500ab0c11"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, {3.993816310960237*^9, 3.993816400549685*^9}}, + CellLabel-> + "Out[418]=",ExpressionUUID->"ff38b6b2-4061-4c2c-abaa-e0623e1ba0cb"] +}, 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[419]:=",ExpressionUUID->"a7c7146a-ac9a-43ce-b710-2be58578dddb"], + +Cell[BoxData["2.4652625900301657`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, {3.993816310977528*^9, 3.993816400564805*^9}}, + CellLabel-> + "Out[419]=",ExpressionUUID->"cab36dab-fbee-4b85-bca7-5d67476a0f0c"] +}, 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[420]:=",ExpressionUUID->"eb37ae58-be41-4bd0-9482-8465cb26ae94"], + +Cell[BoxData["1.4266899039519758`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, {3.993816310993836*^9, 3.993816400579666*^9}}, + CellLabel-> + "Out[420]=",ExpressionUUID->"c8730907-aacc-44f8-97dc-4117b2a8cd53"] +}, 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[421]:=",ExpressionUUID->"a80d0da3-5266-43d6-9b80-2fce8c3e6a70"], + +Cell[BoxData["0.3750149455401738`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, {3.993816311010377*^9, 3.993816400594367*^9}}, + CellLabel-> + "Out[421]=",ExpressionUUID->"b93eeb02-ae63-4cd7-9727-e0887430638d"] +}, 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[422]:=",ExpressionUUID->"9d5edeb2-e277-4edf-92a4-cff25394f50b"], + +Cell[BoxData[ + RowBox[{"-", "0.07977775132414705`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, {3.993816311027995*^9, 3.9938164006102667`*^9}}, + CellLabel-> + "Out[422]=",ExpressionUUID->"de907f15-caba-4c00-a339-d5011ab9181b"] +}, 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[423]:=",ExpressionUUID->"7eb6b972-158f-4c81-bc3b-1fd26d12632a"], + +Cell[BoxData[ + RowBox[{"-", "0.6284430544064189`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, {3.993816311033072*^9, 3.993816400624234*^9}}, + CellLabel-> + "Out[423]=",ExpressionUUID->"bee247b5-8291-4f95-bbe9-a2b01cb9e472"] +}, 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[424]:=",ExpressionUUID->"aa9c36c2-ea8d-416f-8a2d-d140f7f6d788"], + +Cell[BoxData["0.7294972450656219`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, {3.993816311062511*^9, 3.993816400639195*^9}}, + CellLabel-> + "Out[424]=",ExpressionUUID->"26bcfe06-89f8-4705-ab28-9b12ea97d539"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel-> + "In[425]:=",ExpressionUUID->"31c51e6c-6463-4db1-a431-f10e216a4c57"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, {3.9938163110790157`*^9, 3.993816400654043*^9}}, + CellLabel-> + "Out[425]=",ExpressionUUID->"046d23fd-7172-4465-9b44-01ffd49b8a67"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel-> + "In[426]:=",ExpressionUUID->"debb51a0-f26c-4f97-81e8-ce91f3a48167"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, {3.99381631109599*^9, 3.993816400670066*^9}}, + CellLabel-> + "Out[426]=",ExpressionUUID->"76ec4112-c53d-4970-a8d3-071968802c7b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel-> + "In[427]:=",ExpressionUUID->"a6191bab-ea35-4d0c-8e92-4e5653fd9ab6"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, {3.99381631111339*^9, 3.99381640068589*^9}}, + CellLabel-> + "Out[427]=",ExpressionUUID->"ea3addf6-1200-482e-a572-5a4bf7f404d0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel-> + "In[428]:=",ExpressionUUID->"eae176ea-c7f6-4d85-981d-ddaf0eee9fd1"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, {3.993816311129064*^9, 3.993816400702038*^9}}, + CellLabel-> + "Out[428]=",ExpressionUUID->"a9b27f7f-080b-445c-9550-79190e1b6247"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel-> + "In[429]:=",ExpressionUUID->"f876229a-3085-4608-a5b6-32a71bb5ec58"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, {3.993816311145554*^9, 3.9938164007190237`*^9}}, + CellLabel-> + "Out[429]=",ExpressionUUID->"662677eb-3521-4764-b7bf-7522c3d8cf44"] +}, 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.9938161841110783`*^9, 3.9938161842569923`*^9}}, + CellLabel-> + "In[430]:=",ExpressionUUID->"c2ca37ef-ff09-46ca-ab95-b03305b45e8f"], + +Cell[BoxData["66"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, {3.993816311161642*^9, 3.993816400736003*^9}}, + CellLabel-> + "Out[430]=",ExpressionUUID->"57c03cbe-83a3-479c-bf77-5ca39e407a99"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, {3.9938161866045017`*^9, 3.99381618669993*^9}}, + CellLabel-> + "In[431]:=",ExpressionUUID->"99a34b8f-4521-4eef-8692-d2e1401b2a65"], + +Cell[BoxData["28"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, {3.993816311177599*^9, 3.993816400757028*^9}}, + CellLabel-> + "Out[431]=",ExpressionUUID->"70aefc7c-f628-4b5a-82dc-ca026ebac07d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel-> + "In[432]:=",ExpressionUUID->"76d1051a-db56-42d5-abfe-58600b8b61e5"], + +Cell[BoxData["76"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, {3.993816311193193*^9, 3.993816400775269*^9}}, + CellLabel-> + "Out[432]=",ExpressionUUID->"40f14725-a48d-47ec-9d2b-ef32ec855bfe"] +}, 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[433]:=",ExpressionUUID->"65c3cf13-5bb1-408f-8545-4d76d8502ae1"], + +Cell[BoxData["0.11156611039794609`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, {3.993816311209059*^9, 3.993816400793248*^9}}, + CellLabel-> + "Out[433]=",ExpressionUUID->"4dc1d140-1d2c-4860-8749-860b48c3e000"] +}, 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[434]:=",ExpressionUUID->"5fa975c8-1a63-41b1-b0ba-e05224487524"], + +Cell[BoxData[ + RowBox[{"-", "2.562272143774069`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, {3.993816311224965*^9, 3.993816400810424*^9}}, + CellLabel-> + "Out[434]=",ExpressionUUID->"e245803a-cac4-4995-a743-394da3c00771"] +}, 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[435]:=",ExpressionUUID->"36a0ca89-2ef9-483d-8ec5-f0531079a3a1"], + +Cell[BoxData["17.58253870834664`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, {3.993816311240906*^9, 3.9938164008326178`*^9}}, + CellLabel-> + "Out[435]=",ExpressionUUID->"f816973e-24d1-4d01-989b-ddd389a581b7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel-> + "In[436]:=",ExpressionUUID->"b3a5a3db-d575-4f65-b1c3-b667ff775b6b"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, {3.993816311257287*^9, 3.993816400852189*^9}}, + CellLabel-> + "Out[436]=",ExpressionUUID->"47b7b8d8-ffc6-4b39-a104-0e83858cba8c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "2"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, + 3.993816201054872*^9}, + CellLabel-> + "In[437]:=",ExpressionUUID->"406a39b3-f5b6-46a6-a7e7-773bb971f059"], + +Cell[BoxData["2"], "Output", + CellChangeTimes->{{3.99381631127295*^9, 3.993816400871359*^9}}, + CellLabel-> + "Out[437]=",ExpressionUUID->"9521f395-e3d2-4b78-92b2-48f9ae66f093"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel-> + "In[438]:=",ExpressionUUID->"1bd623c9-ec92-4b12-bb38-5b5a9ff31feb"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.805"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.993816204826747*^9, 3.993816206119349*^9}}, + CellLabel-> + "In[439]:=",ExpressionUUID->"88066b2f-7a0c-4257-a80b-45d340112abb"], + +Cell[BoxData["0.805`"], "Output", + CellChangeTimes->{{3.9938163113036537`*^9, 3.993816400895072*^9}}, + CellLabel-> + "Out[439]=",ExpressionUUID->"c71b4dfb-331d-4a8a-b4c8-83d9dcba9bbd"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel-> + "In[440]:=",ExpressionUUID->"bb882a7a-347c-4dec-84c7-81f1219925cc"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "2.65"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.993816211321389*^9, 3.9938162195378838`*^9}}, + CellLabel-> + "In[441]:=",ExpressionUUID->"dd14a20c-d9b0-4443-b03e-54fd1436bd16"], + +Cell[BoxData["2.65`"], "Output", + CellChangeTimes->{{3.9938163113365593`*^9, 3.993816400917997*^9}}, + CellLabel-> + "Out[441]=",ExpressionUUID->"fda3ce3e-137e-4ca5-988a-52ed6e2f71a8"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel-> + "In[442]:=",ExpressionUUID->"2af23f7f-edc1-4758-91b8-33377a388b9a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.175"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, {3.9938162225291348`*^9, 3.993816223644052*^9}}, + CellLabel-> + "In[443]:=",ExpressionUUID->"10ad3e7a-5e9f-43c6-a126-408531b302d7"], + +Cell[BoxData["1.175`"], "Output", + CellChangeTimes->{{3.993816311366596*^9, 3.993816400940548*^9}}, + CellLabel-> + "Out[443]=",ExpressionUUID->"98adda66-91cc-4940-9b58-e9c4e4a0dbf1"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel-> + "In[444]:=",ExpressionUUID->"214a830d-2c2e-43a4-bc1c-053c15250314"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "0.795"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, {3.9938162281192904`*^9, + 3.993816230831416*^9}}, + CellLabel-> + "In[445]:=",ExpressionUUID->"ecd20ef3-1ab0-4cde-852a-c5d9b1b73661"], + +Cell[BoxData["0.795`"], "Output", + CellChangeTimes->{{3.993816311396524*^9, 3.993816400963438*^9}}, + CellLabel-> + "Out[445]=",ExpressionUUID->"3e7a2388-5bdd-4c18-8b7f-49a73b0ce70b"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel-> + "In[446]:=",ExpressionUUID->"b93dbd63-8a40-4d50-8d17-8352fee8c2e0"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.595"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.993816234625985*^9, + 3.993816236062304*^9}}, + CellLabel-> + "In[447]:=",ExpressionUUID->"acae4259-cb0c-4c9e-b44a-b3aa1344e73d"], + +Cell[BoxData["0.595`"], "Output", + CellChangeTimes->{{3.993816311427802*^9, 3.9938164009852858`*^9}}, + CellLabel-> + "Out[447]=",ExpressionUUID->"6d2bc2cf-4eb1-4352-9730-1f090a6b2350"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel-> + "In[448]:=",ExpressionUUID->"9123453a-6645-4642-ad71-c1e3a644e456"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "1.47"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.993816238161579*^9, + 3.9938162401131277`*^9}}, + CellLabel-> + "In[449]:=",ExpressionUUID->"e7e40969-7c6d-4193-bae0-cb0c20730271"], + +Cell[BoxData["1.47`"], "Output", + CellChangeTimes->{{3.993816311458173*^9, 3.9938164010070257`*^9}}, + CellLabel-> + "Out[449]=",ExpressionUUID->"254a84bc-ad13-4e9e-b418-958514a160df"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel-> + "In[450]:=",ExpressionUUID->"e3737c05-a507-415f-9d74-5abf111e8387"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "0.655"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, {3.993816241842022*^9, 3.993816245056822*^9}}, + CellLabel-> + "In[451]:=",ExpressionUUID->"a4f55aad-c642-418e-bf88-1b425c7e6ec8"], + +Cell[BoxData["0.655`"], "Output", + CellChangeTimes->{{3.993816311488914*^9, 3.993816401028906*^9}}, + CellLabel-> + "Out[451]=",ExpressionUUID->"21448631-ab75-403c-9575-a42edf7aea55"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel-> + "In[452]:=",ExpressionUUID->"c0ccd081-db67-4cae-ba39-39483fa21e19"], + +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[453]:=",ExpressionUUID->"63dbfc9c-e42e-4c7a-871a-ad28a63575d2"], + +Cell[BoxData["0.10932371372103143`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, {3.993816311598846*^9, 3.993816401077582*^9}}, + CellLabel-> + "Out[453]=",ExpressionUUID->"c2097b71-1445-4079-9c90-0343489e6f47"] +}, 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[454]:=",ExpressionUUID->"2ea11fb9-c1cf-4b5c-be38-a3590d3d8bcc"], + +Cell[BoxData["9.790243175904545`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, {3.9938163116474113`*^9, 3.993816401110285*^9}}, + CellLabel-> + "Out[454]=",ExpressionUUID->"77c85e63-32bd-4e83-868d-8a4899d53a0e"] +}, 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[455]:=",ExpressionUUID->"13919706-748a-4c67-9595-2986977db5e6"], + +Cell[BoxData[ + RowBox[{"-", "16.70631937398676`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, {3.993816311688833*^9, 3.99381640114319*^9}}, + CellLabel-> + "Out[455]=",ExpressionUUID->"08bfe9bc-ba63-4fc6-a19b-0113d1134dbf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U41", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", "b2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + 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]", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "nn1", "*", "R1", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "nn1"}], ")"}], "/", "R1"}], ")"}], + "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "n2", "*", "R2", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "n2"}], ")"}], "/", "R2"}], ")"}], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], "/", + RowBox[{"(", + 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]", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "nn1", "*", "R1", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "nn1"}], ")"}], "/", "R1"}], ")"}], + "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "n2", "*", "R2", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "n2"}], ")"}], "/", "R2"}], ")"}], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], "/", + RowBox[{"(", + 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]", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "nn1", "*", "R1", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "nn1"}], ")"}], "/", "R1"}], ")"}], + "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "n2", "*", "R2", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "n2"}], ")"}], "/", "R2"}], ")"}], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], "/", + RowBox[{"(", + 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]", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "n1", "*", "R1", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "n1"}], ")"}], "/", "R1"}], ")"}], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "nn2", "*", "R2", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "nn2"}], ")"}], "/", "R2"}], ")"}], + "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], "/", + RowBox[{"(", + 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]", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "n1", "*", "R1", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "n1"}], ")"}], "/", "R1"}], ")"}], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "nn2", "*", "R2", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "nn2"}], ")"}], "/", "R2"}], ")"}], + "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], "/", + RowBox[{"(", + 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]", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "n1", "*", "R1", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "n1"}], ")"}], "/", "R1"}], ")"}], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "nn2", "*", "R2", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "nn2"}], ")"}], "/", "R2"}], ")"}], + "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], "/", + RowBox[{"(", + 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]", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "n1", "*", "R1", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "n1"}], ")"}], "/", "R1"}], ")"}], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "nn2", "*", "R2", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "nn2"}], ")"}], "/", "R2"}], ")"}], + "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], "/", + RowBox[{"(", + 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]", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "n1", "*", "R1", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "n1"}], ")"}], "/", "R1"}], ")"}], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "n2", "*", "R2", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "n2"}], ")"}], "/", "R2"}], ")"}], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], "/", + RowBox[{"(", + 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[456]:=",ExpressionUUID->"2eb20ff3-6636-4349-a600-9842f9fd331a"], + +Cell[BoxData[ + RowBox[{"-", "21.21244105904564`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, {3.99381631175032*^9, 3.993816401178795*^9}}, + CellLabel-> + "Out[456]=",ExpressionUUID->"6f83c814-6704-4fc2-b65d-476f8747e0e0"] +}, 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[457]:=",ExpressionUUID->"6124a934-47b0-4afd-b8b1-65c796c1e92c"], + +Cell[BoxData[ + RowBox[{"-", "64.11746269097033`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, {3.993816311810264*^9, 3.993816401216831*^9}}, + CellLabel-> + "Out[457]=",ExpressionUUID->"2fb99c3d-7c41-44fd-9473-f62eb3fb0eef"] +}, 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[458]:=",ExpressionUUID->"067ad88a-a827-446e-ba85-df9489d80fe3"], + +Cell[BoxData[ + RowBox[{"-", "162.12919789671096`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, {3.993816311880077*^9, 3.9938164012606087`*^9}}, + CellLabel-> + "Out[458]=",ExpressionUUID->"a08bbafb-59b0-44f4-b7d4-786497b9371b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel-> + "In[459]:=",ExpressionUUID->"0fb9e55a-53df-459a-ac36-cdfd11764a24"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, {3.993816311896537*^9, 3.993816401279429*^9}}, + CellLabel-> + "Out[459]=",ExpressionUUID->"db1b7152-9c09-4fd0-bc25-97c8ed0c9214"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel-> + "In[460]:=",ExpressionUUID->"e8ada919-e98f-4497-aa91-78add5700c1a"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, {3.993816311909266*^9, 3.993816401294653*^9}}, + CellLabel-> + "Out[460]=",ExpressionUUID->"f3e4187d-0eeb-4cb3-972f-a384b24c11c1"] +}, 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[461]:=",ExpressionUUID->"11fb9513-8adc-426d-add8-7a0171eb08c4"], + +Cell[BoxData["137.278680377525`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, {3.993816311921467*^9, 3.993816401310416*^9}}, + CellLabel-> + "Out[461]=",ExpressionUUID->"f8754e43-d894-45ff-b17e-e7ba13d5b11b"] +}, 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[462]:=",ExpressionUUID->"684ac7c8-ffcb-4f44-8014-70bc251db57e"], + +Cell[BoxData[ + RowBox[{"-", "124.2735331996648`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, {3.9938163119334393`*^9, 3.993816401325693*^9}}, + CellLabel-> + "Out[462]=",ExpressionUUID->"2f3454a8-bc7d-4cfc-b2b9-7fe692153711"] +}, 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[463]:=",ExpressionUUID->"91ac834b-4ce6-454e-958e-c28c093f969e"], + +Cell[BoxData["136.79424869488386`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, {3.993816311945665*^9, 3.993816401340849*^9}}, + CellLabel-> + "Out[463]=",ExpressionUUID->"20c1b17e-3fdd-49bb-9c4b-0011a63d9439"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel-> + "In[464]:=",ExpressionUUID->"95defb1f-0166-421b-9570-425e25f79e4b"], + +Cell[BoxData["0.3750149455401738`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, {3.9938163119574957`*^9, 3.993816401363001*^9}}, + CellLabel-> + "Out[464]=",ExpressionUUID->"4eea6a8d-a4e4-4492-a05d-ab326a6505ca"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel-> + "In[465]:=",ExpressionUUID->"047f0807-e297-4e57-ab72-115d0bd4346c"], + +Cell[BoxData[ + RowBox[{"-", "0.07977775132414705`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, {3.9938163119693823`*^9, 3.99381640137784*^9}}, + CellLabel-> + "Out[465]=",ExpressionUUID->"0142c57a-b4c0-4f2b-848d-46c0d06d3c8d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel-> + "In[466]:=",ExpressionUUID->"2db39cad-94a9-4ba7-9de3-f980ab1abdd3"], + +Cell[BoxData[ + RowBox[{"-", "0.6284430544064189`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, {3.9938163119814787`*^9, 3.993816401392654*^9}}, + CellLabel-> + "Out[466]=",ExpressionUUID->"5c828f33-8cea-4211-915e-bf2261536929"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel-> + "In[467]:=",ExpressionUUID->"999c9294-a525-4435-b9b1-665af2777271"], + +Cell[BoxData["0.7294972450656219`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, {3.993816311994028*^9, 3.99381640140742*^9}}, + CellLabel-> + "Out[467]=",ExpressionUUID->"cbcbc64f-a97e-4f18-b0b1-372452a7f799"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel-> + "In[468]:=",ExpressionUUID->"7ae5dd29-22a7-4156-b928-348d5a26efc3"], + +Cell[BoxData["2.4652625900301657`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, {3.993816312006279*^9, 3.99381640142347*^9}}, + CellLabel-> + "Out[468]=",ExpressionUUID->"3176776e-6eaa-41b2-84cf-48dbebee6e63"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel-> + "In[469]:=",ExpressionUUID->"e309fcfb-5e9d-440e-8288-933ddf5d3183"], + +Cell[BoxData["1.4266899039519758`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, {3.993816312018448*^9, 3.993816401439527*^9}}, + CellLabel-> + "Out[469]=",ExpressionUUID->"ebf04ddb-62dc-4687-bcae-0f897f7c991e"] +}, 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[470]:=",ExpressionUUID->"18bb3739-c47b-437f-a843-22b7434fe3c0"], + +Cell[BoxData[ + RowBox[{"-", "36.59398535367672`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, {3.9938163120312033`*^9, 3.9938164014556637`*^9}}, + CellLabel-> + "Out[470]=",ExpressionUUID->"0d7ea3a7-10ed-4b89-a04b-9e4175859abb"] +}, 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[471]:=",ExpressionUUID->"9336aeda-c150-460f-b72b-4a931a6c7246"], + +Cell[BoxData[ + RowBox[{"-", "6.706084141019179`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, {3.99381631203615*^9, 3.99381640147013*^9}}, + CellLabel-> + "Out[471]=",ExpressionUUID->"89edda8e-9ba7-45ab-bc4d-8798b2c67f33"] +}, 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[472]:=",ExpressionUUID->"af548364-1bf8-4b09-9f56-235516d563a6"], + +Cell[BoxData["100.68469502384829`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, {3.9938163120484467`*^9, 3.993816401484993*^9}}, + CellLabel-> + "Out[472]=",ExpressionUUID->"592ec874-7297-4e35-ac4c-4a709753226e"] +}, 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[473]:=",ExpressionUUID->"95a8fa6d-a243-49e0-9b82-930336521cbe"], + +Cell[BoxData[ + RowBox[{"-", "124.2735331996648`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, {3.99381631206076*^9, 3.9938164015001698`*^9}}, + CellLabel-> + "Out[473]=",ExpressionUUID->"7a6d68bd-e620-44e0-ab90-a245f8890b51"] +}, 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[474]:=",ExpressionUUID->"3d40da52-7e84-43df-b724-f982bb0ccbe1"], + +Cell[BoxData["130.0881645538647`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, {3.9938163120760603`*^9, 3.993816401514661*^9}}, + CellLabel-> + "Out[474]=",ExpressionUUID->"77bface0-ef1c-41b7-b57c-58f47957aebb"] +}, 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[475]:=",ExpressionUUID->"f3391ef3-a316-4d0f-9274-0f9548039352"], + +Cell[BoxData["37.11735851847544`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, {3.993816312091509*^9, 3.9938164015309277`*^9}}, + CellLabel-> + "Out[475]=",ExpressionUUID->"b6ed643f-f49e-4be2-9a01-f9bf4817aabc"] +}, 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[476]:=",ExpressionUUID->"ff4d53e3-2af3-48db-bfea-28618ad44623"], + +Cell[BoxData["835.6594550727934`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, {3.9938163121038647`*^9, 3.993816401547245*^9}}, + CellLabel-> + "Out[476]=",ExpressionUUID->"427228c1-f6e7-48fa-aca1-5fe5c3d5961f"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"f1", "=", "0.4682518995"}]], "Input", CellFrame->{{0, 0}, {0, 0}}, - CellChangeTimes->{3.991849227197853*^9}, + CellChangeTimes->{3.991849227197853*^9, 3.99408329868815*^9}, Background->RGBColor[ 0.87, 0.94, 1],ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", + RowBox[{"f2", "=", "0.1138781255"}]], "Input", CellFrame->{{0, 0}, {0, 0}}, - CellChangeTimes->{3.9918492290557346`*^9}, + CellChangeTimes->{3.9918492290557346`*^9, 3.994083305061903*^9}, Background->RGBColor[ 0.87, 0.94, 1],ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], @@ -2895,9 +7842,73 @@ qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", - RowBox[{"{", "}"}], "]"}]}]], "Input", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.005107"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.015156"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.024717"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.033493"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.041238"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.047751"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.052907"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.056635"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.058943"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.059883"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.059573"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.058155"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.055811"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.052723"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.049089"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.045084"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.040884"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.03663"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.03245"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.028437"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.024669"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.02119"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.018036"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.015213"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.012726"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.010557"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.008691"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.007099"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.005759"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.004637"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.00371"}], "}"}]}], "}"}], "]"}]}]], "Input", CellFrame->{{0, 0}, {0, 0}}, - CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}}, + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.994083339125429*^9}, Background->RGBColor[ 0.87, 0.94, 1],ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], @@ -8979,12 +13990,18 @@ Cell[BoxData["0.05576142449710889`"], "Output", CellChangeTimes->{3.9913392304624157`*^9}, CellLabel-> "Out[312]=",ExpressionUUID->"14434839-d5cf-b844-b849-b3b3102df434"] -}, Open ]] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input", + CellChangeTimes->{{3.994083697003388*^9, + 3.994083699059052*^9}},ExpressionUUID->"15fe0063-8d53-48a3-a28b-\ +6c80f458e893"] }, -WindowSize->{1440, 792}, -WindowMargins->{{0, Automatic}, {0, Automatic}}, +WindowSize->{714, 435}, +WindowMargins->{{Automatic, 3}, {444, 15}}, CellContext->Notebook, -FrontEndVersion->"14.1 for Linux x86 (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" ] @@ -8999,356 +14016,613 @@ CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ -Cell[554, 20, 213, 5, 45, "Input",ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], -Cell[770, 27, 215, 5, 45, "Input",ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], Cell[CellGroupData[{ -Cell[1010, 36, 1301, 43, 48, "Input",ExpressionUUID->"5e48fe0c-b3e8-2b40-82cb-716b23b2f326"], -Cell[2314, 81, 178, 3, 33, "Output",ExpressionUUID->"1db85c02-7ca3-154e-854d-2c36f89709c4"] +Cell[576, 22, 330, 7, 36, "Input",ExpressionUUID->"0078b1a8-3f2c-4497-9c52-25d178044aa5"], +Cell[909, 31, 208, 4, 41, "Output",ExpressionUUID->"fdea815f-0b7d-48d6-b4c5-454fd9e9abe9"] }, Open ]], Cell[CellGroupData[{ -Cell[2529, 89, 910, 31, 58, "Input",ExpressionUUID->"e4db2648-4e1a-2c46-83ab-fcd932c3b663"], -Cell[3442, 122, 175, 3, 33, "Output",ExpressionUUID->"78ed190c-23cd-4d45-867a-2b08174b715f"] +Cell[1154, 40, 253, 5, 36, "Input",ExpressionUUID->"a9334120-83c8-487e-937e-b71399944f71"], +Cell[1410, 47, 208, 4, 41, "Output",ExpressionUUID->"75bf04e3-1efd-4e1a-a8bc-1733941a8d9a"] }, Open ]], Cell[CellGroupData[{ -Cell[3654, 130, 885, 30, 58, "Input",ExpressionUUID->"e4649c3d-e19e-ca42-95a0-23b66397f1fd"], -Cell[4542, 162, 177, 3, 33, "Output",ExpressionUUID->"82ec2512-4fcb-ba44-b472-bb3a66bb622e"] +Cell[1655, 56, 226, 5, 36, "Input",ExpressionUUID->"521debca-02aa-4e6f-b778-143a7373f897"], +Cell[1884, 63, 207, 4, 41, "Output",ExpressionUUID->"3a3747e5-8a45-4f53-921c-0f4875f1a833"] }, Open ]], Cell[CellGroupData[{ -Cell[4756, 170, 558, 19, 51, "Input",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], -Cell[5317, 191, 173, 3, 33, "Output",ExpressionUUID->"9d53fa4a-be54-7b42-83bd-0a5560193c0f"] +Cell[2128, 72, 180, 4, 36, "Input",ExpressionUUID->"be7b1703-772f-4229-a7b1-4d0c54ce94ef"], +Cell[2311, 78, 207, 4, 41, "Output",ExpressionUUID->"10ebbc28-5dc8-4772-8b90-e72bbae78510"] }, Open ]], Cell[CellGroupData[{ -Cell[5527, 199, 623, 21, 51, "Input",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], -Cell[6153, 222, 170, 3, 33, "Output",ExpressionUUID->"4107fa63-a138-df48-a95c-ec944a983800"] +Cell[2555, 87, 262, 8, 54, "Input",ExpressionUUID->"f1a895c8-4160-47f2-8a43-59625ca41a0f"], +Cell[2820, 97, 223, 4, 58, "Output",ExpressionUUID->"a2e55c08-86bc-436d-9c50-777bcaf60a17"] }, Open ]], Cell[CellGroupData[{ -Cell[6360, 230, 170, 5, 55, "Input",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], -Cell[6533, 237, 173, 3, 33, "Output",ExpressionUUID->"f894fb1d-1550-5146-a259-dfa871655c2a"] +Cell[3080, 106, 136, 3, 51, "Input",ExpressionUUID->"a980436e-908f-40c9-845d-eb8cd657bd0d"], +Cell[3219, 111, 206, 4, 58, "Output",ExpressionUUID->"657b79af-1493-428c-ae40-a956c36e42c9"] }, Open ]], Cell[CellGroupData[{ -Cell[6743, 245, 170, 5, 54, "Input",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], -Cell[6916, 252, 170, 3, 33, "Output",ExpressionUUID->"8d5b13a4-8c75-0f48-ab21-9720bb8c0cbc"] +Cell[3462, 120, 281, 7, 51, "Input",ExpressionUUID->"56c7dee1-9453-4883-abea-f120911216ab"], +Cell[3746, 129, 221, 4, 58, "Output",ExpressionUUID->"0951e39c-ba60-4988-88be-600cd4ce11ca"] }, Open ]], Cell[CellGroupData[{ -Cell[7123, 260, 181, 5, 43, "Input",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], -Cell[7307, 267, 171, 3, 33, "Output",ExpressionUUID->"4d4b493f-9f2d-1e41-979f-fb4d58d0e93a"] +Cell[4004, 138, 262, 8, 51, "Input",ExpressionUUID->"4aa04189-5cd6-487e-a2bb-4e3f13b35124"], +Cell[4269, 148, 221, 4, 58, "Output",ExpressionUUID->"efe0ef06-9189-415d-a039-5c4146568ddd"] }, Open ]], Cell[CellGroupData[{ -Cell[7515, 275, 181, 5, 43, "Input",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], -Cell[7699, 282, 173, 3, 33, "Output",ExpressionUUID->"e40db20b-c65e-4a45-ba96-abcb59b0d0ac"] +Cell[4527, 157, 229, 5, 51, "Input",ExpressionUUID->"69bafadd-8e2f-4831-8eb6-540d5e56e48b"], +Cell[4759, 164, 186, 3, 58, "Output",ExpressionUUID->"ff51d55c-2907-4526-a6bd-e8589961370d"] }, Open ]], Cell[CellGroupData[{ -Cell[7909, 290, 6055, 185, 195, "Input",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], -Cell[13967, 477, 175, 3, 33, "Output",ExpressionUUID->"cdf81fea-e12a-2b44-81a8-222b4bbf8a86"] +Cell[4982, 172, 232, 5, 51, "Input",ExpressionUUID->"39ae1ee7-3cea-484e-9675-bee0306ab848"], +Cell[5217, 179, 184, 3, 58, "Output",ExpressionUUID->"f2efe951-d2fe-409a-9f4b-980a37d3fd8b"] }, Open ]], Cell[CellGroupData[{ -Cell[14179, 485, 368, 9, 41, "Input",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], -Cell[14550, 496, 170, 3, 33, "Output",ExpressionUUID->"181dc1c8-632b-4b43-91c4-d3626d65bfc7"] +Cell[5438, 187, 133, 3, 51, "Input",ExpressionUUID->"7cd62bc4-4b86-4bad-a731-6e6fb8c154b3"], +Cell[5574, 192, 204, 4, 58, "Output",ExpressionUUID->"e78b1686-7a40-4129-a221-66af4aa81e08"] }, Open ]], Cell[CellGroupData[{ -Cell[14757, 504, 6122, 187, 195, "Input",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], -Cell[20882, 693, 175, 3, 33, "Output",ExpressionUUID->"c7d972b4-764c-954a-8260-240d49cfcff6"] +Cell[5815, 201, 133, 3, 51, "Input",ExpressionUUID->"6977bb7d-b00f-49e9-8144-c17500ab0c11"], +Cell[5951, 206, 204, 4, 58, "Output",ExpressionUUID->"ff38b6b2-4061-4c2c-abaa-e0623e1ba0cb"] }, Open ]], Cell[CellGroupData[{ -Cell[21094, 701, 368, 9, 41, "Input",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], -Cell[21465, 712, 172, 3, 33, "Output",ExpressionUUID->"c285a758-c3ad-974b-93c3-4cb0d4bdd2ae"] +Cell[6192, 215, 561, 20, 140, "Input",ExpressionUUID->"a7c7146a-ac9a-43ce-b710-2be58578dddb"], +Cell[6756, 237, 222, 4, 58, "Output",ExpressionUUID->"cab36dab-fbee-4b85-bca7-5d67476a0f0c"] }, Open ]], Cell[CellGroupData[{ -Cell[21674, 720, 2663, 88, 115, "Input",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], -Cell[24340, 810, 173, 3, 33, "Output",ExpressionUUID->"5dc957f4-8f84-c54c-80a3-c76f756c5df4"] +Cell[7015, 246, 561, 20, 140, "Input",ExpressionUUID->"eb37ae58-be41-4bd0-9482-8465cb26ae94"], +Cell[7579, 268, 222, 4, 58, "Output",ExpressionUUID->"c8730907-aacc-44f8-97dc-4117b2a8cd53"] }, Open ]], Cell[CellGroupData[{ -Cell[24550, 818, 2603, 85, 115, "Input",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], -Cell[27156, 905, 172, 3, 33, "Output",ExpressionUUID->"b4ee01d5-3415-494b-b28a-4587c8d8bb90"] +Cell[7838, 277, 1592, 51, 190, "Input",ExpressionUUID->"a80d0da3-5266-43d6-9b80-2fce8c3e6a70"], +Cell[9433, 330, 220, 4, 58, "Output",ExpressionUUID->"b93eeb02-ae63-4cd7-9727-e0887430638d"] }, Open ]], Cell[CellGroupData[{ -Cell[27365, 913, 3712, 118, 172, "Input",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], -Cell[31080, 1033, 174, 3, 33, "Output",ExpressionUUID->"20c44e64-7085-8e4d-a9d6-f80b5532826e"] -}, Open ]], -Cell[31269, 1039, 138, 3, 29, "Input",ExpressionUUID->"ba4a3eff-9e3b-5e47-a896-3a959bbbf44d"], -Cell[CellGroupData[{ -Cell[31432, 1046, 2052, 59, 92, "Input",ExpressionUUID->"738a48f3-b38c-f441-aec4-53babaa73a14"], -Cell[33487, 1107, 524, 11, 38, "Message",ExpressionUUID->"bd0a7da1-672e-6b4e-afbd-4af379292e8d"], -Cell[34014, 1120, 526, 11, 38, "Message",ExpressionUUID->"9a8837e4-2afa-d145-83db-a88ef0e502bc"], -Cell[34543, 1133, 530, 11, 38, "Message",ExpressionUUID->"0aa4ed5d-b925-834d-b53a-95c75c4ff982"], -Cell[35076, 1146, 455, 10, 26, "Message",ExpressionUUID->"2742a735-9c26-7640-8a81-3e30eaffa353"], -Cell[35534, 1158, 172, 3, 33, "Output",ExpressionUUID->"d91a6bca-04d7-b84b-93cf-0695498dc4de"] +Cell[9690, 339, 1426, 47, 190, "Input",ExpressionUUID->"9d5edeb2-e277-4edf-92a4-cff25394f50b"], +Cell[11119, 388, 240, 5, 58, "Output",ExpressionUUID->"de907f15-caba-4c00-a339-d5011ab9181b"] }, Open ]], Cell[CellGroupData[{ -Cell[35743, 1166, 2054, 59, 92, "Input",ExpressionUUID->"86c33485-ed26-8f49-b3d0-7d040d3b48f0"], -Cell[37800, 1227, 524, 11, 38, "Message",ExpressionUUID->"2c553d54-16ec-9646-b6d7-75da3c367575"], -Cell[38327, 1240, 526, 11, 38, "Message",ExpressionUUID->"1c597fdf-5631-a84c-9feb-152df3629d86"], -Cell[38856, 1253, 528, 11, 38, "Message",ExpressionUUID->"48439b56-7b7d-fa4d-a4e2-5db2bbda0c77"], -Cell[39387, 1266, 456, 10, 26, "Message",ExpressionUUID->"66ce390f-34a9-df4d-9875-a339943ada86"], -Cell[39846, 1278, 170, 3, 33, "Output",ExpressionUUID->"2e46fa54-fabe-5040-8f8c-6829b7c76136"] +Cell[11396, 398, 1335, 45, 141, "Input",ExpressionUUID->"7eb6b972-158f-4c81-bc3b-1fd26d12632a"], +Cell[12734, 445, 239, 5, 58, "Output",ExpressionUUID->"bee247b5-8291-4f95-bbe9-a2b01cb9e472"] }, Open ]], Cell[CellGroupData[{ -Cell[40053, 1286, 1938, 53, 67, "Input",ExpressionUUID->"f373fe4f-940c-0842-9236-63ec36d318ad"], -Cell[41994, 1341, 19994, 375, 229, "Output",ExpressionUUID->"fdd0f260-414f-a94a-8f26-cd86e676700c"] +Cell[13010, 455, 1592, 51, 190, "Input",ExpressionUUID->"aa9c36c2-ea8d-416f-8a2d-d140f7f6d788"], +Cell[14605, 508, 218, 4, 58, "Output",ExpressionUUID->"26bcfe06-89f8-4705-ab28-9b12ea97d539"] }, Open ]], Cell[CellGroupData[{ -Cell[62025, 1721, 2092, 60, 92, "Input",ExpressionUUID->"24fa5db0-1063-354a-bd60-c117a27ff3e1"], -Cell[64120, 1783, 490, 11, 38, "Message",ExpressionUUID->"546a9ea9-5939-f84a-87c6-58844f58f330"], -Cell[64613, 1796, 493, 11, 38, "Message",ExpressionUUID->"b36bffd7-1c84-5c45-a847-b2c31968f579"], -Cell[65109, 1809, 508, 11, 26, "Message",ExpressionUUID->"c864bef7-fc73-d94b-8cde-14570cba8095"], -Cell[65620, 1822, 456, 10, 26, "Message",ExpressionUUID->"a2e62375-acd2-6740-bfd7-026877c5bd7b"], -Cell[66079, 1834, 61603, 1057, 232, "Output",ExpressionUUID->"d4eecdc9-263c-5b43-bb29-cd0ac1286793"] -}, Open ]], -Cell[127697, 2894, 298, 7, 45, "Input",ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], -Cell[127998, 2903, 209, 5, 29, "Input",ExpressionUUID->"6d3700e1-f504-214a-a332-f16397f0b922"], -Cell[CellGroupData[{ -Cell[128232, 2912, 217, 7, 47, "Input",ExpressionUUID->"9051a5e3-bb9f-d941-bcca-598d0b6835be"], -Cell[128452, 2921, 169, 3, 33, "Output",ExpressionUUID->"07374b0a-4615-bf46-ab49-be8623cec410"] +Cell[14860, 517, 135, 3, 51, "Input",ExpressionUUID->"31c51e6c-6463-4db1-a431-f10e216a4c57"], +Cell[14998, 522, 206, 4, 58, "Output",ExpressionUUID->"046d23fd-7172-4465-9b44-01ffd49b8a67"] }, Open ]], Cell[CellGroupData[{ -Cell[128658, 2929, 1816, 53, 92, "Input",ExpressionUUID->"65a995ff-ff3d-634e-9bad-4a8a16073236"], -Cell[130477, 2984, 502, 11, 38, "Message",ExpressionUUID->"c1f83af1-416a-6240-b3fd-c1bfcc643459"], -Cell[130982, 2997, 506, 11, 38, "Message",ExpressionUUID->"5cfd3c4b-6190-2c4d-8479-b4ccd7090f94"], -Cell[131491, 3010, 509, 11, 38, "Message",ExpressionUUID->"288fc6c7-a3fe-9b48-9c0d-bba2713f7084"], -Cell[132003, 3023, 456, 10, 26, "Message",ExpressionUUID->"09478fd5-b212-2347-91e7-b9097bd6d61d"], -Cell[132462, 3035, 28560, 514, 232, "Output",ExpressionUUID->"f7784347-2042-c042-8970-b060f9535d9e"] +Cell[15241, 531, 137, 3, 51, "Input",ExpressionUUID->"debb51a0-f26c-4f97-81e8-ce91f3a48167"], +Cell[15381, 536, 205, 4, 58, "Output",ExpressionUUID->"76ec4112-c53d-4970-a8d3-071968802c7b"] }, Open ]], Cell[CellGroupData[{ -Cell[161059, 3554, 1616, 48, 67, "Input",ExpressionUUID->"86381d88-1537-a242-9cff-0b432b61d63d"], -Cell[162678, 3604, 576, 12, 38, "Message",ExpressionUUID->"0a4bed5c-621d-a546-88e9-ce7d779c106a"], -Cell[163257, 3618, 582, 12, 38, "Message",ExpressionUUID->"80e3943d-459b-8b41-9869-50a6cf829ef8"], -Cell[163842, 3632, 584, 12, 38, "Message",ExpressionUUID->"36529169-7f05-ee43-8080-ce8fdd404b8d"], -Cell[164429, 3646, 458, 10, 26, "Message",ExpressionUUID->"a6c5f0ff-3356-4c42-b883-ce45e5cc4f41"], -Cell[164890, 3658, 170, 3, 33, "Output",ExpressionUUID->"546f133a-4a8e-8d44-937d-5fc3ea2401d8"] +Cell[15623, 545, 138, 3, 51, "Input",ExpressionUUID->"a6191bab-ea35-4d0c-8e92-4e5653fd9ab6"], +Cell[15764, 550, 206, 4, 58, "Output",ExpressionUUID->"ea3addf6-1200-482e-a572-5a4bf7f404d0"] }, Open ]], Cell[CellGroupData[{ -Cell[165097, 3666, 2247, 64, 62, "Input",ExpressionUUID->"6f0ad284-4db3-da47-b8dc-45830eedfe9c"], -Cell[167347, 3732, 522, 11, 38, "Message",ExpressionUUID->"2e7d173d-070f-de49-a3c2-9964fb888ede"], -Cell[167872, 3745, 526, 11, 38, "Message",ExpressionUUID->"04b23985-5685-d344-a2ed-9886796baf32"], -Cell[168401, 3758, 528, 11, 38, "Message",ExpressionUUID->"ccdd27f2-bd64-f442-a708-cfb1052c7f86"], -Cell[168932, 3771, 458, 10, 26, "Message",ExpressionUUID->"384ce3fd-4914-6b49-b10c-84d885ed65d6"], -Cell[169393, 3783, 175, 3, 33, "Output",ExpressionUUID->"8865a4e5-7fd3-3c49-a115-94c8c5479389"] +Cell[16007, 559, 223, 5, 51, "Input",ExpressionUUID->"eae176ea-c7f6-4d85-981d-ddaf0eee9fd1"], +Cell[16233, 566, 221, 5, 58, "Output",ExpressionUUID->"a9b27f7f-080b-445c-9550-79190e1b6247"] }, Open ]], Cell[CellGroupData[{ -Cell[169605, 3791, 2221, 64, 62, "Input",ExpressionUUID->"b2dda819-6f34-5c49-bc62-303d815946e5"], -Cell[171829, 3857, 522, 11, 38, "Message",ExpressionUUID->"958049e8-43e1-cc46-81fb-5b3fe1a5d9ee"], -Cell[172354, 3870, 524, 11, 38, "Message",ExpressionUUID->"6ed73f20-f975-a34c-a5a3-af58e9ecd7ed"], -Cell[172881, 3883, 528, 11, 38, "Message",ExpressionUUID->"4ce11323-2f48-da4f-84f8-593751381024"], -Cell[173412, 3896, 458, 10, 26, "Message",ExpressionUUID->"330905cd-5b42-604b-aaf8-fbac43108165"], -Cell[173873, 3908, 170, 3, 33, "Output",ExpressionUUID->"020ade62-ec43-7549-8079-7ac012e004c4"] +Cell[16491, 576, 138, 3, 51, "Input",ExpressionUUID->"f876229a-3085-4608-a5b6-32a71bb5ec58"], +Cell[16632, 581, 210, 4, 58, "Output",ExpressionUUID->"662677eb-3521-4764-b7bf-7522c3d8cf44"] }, Open ]], Cell[CellGroupData[{ -Cell[174080, 3916, 2221, 64, 62, "Input",ExpressionUUID->"76a9e77d-1f4c-bb4a-bb13-1a175f609f7d"], -Cell[176304, 3982, 524, 11, 38, "Message",ExpressionUUID->"9a8eff2d-0d97-2e45-a2f3-ce0634115f7d"], -Cell[176831, 3995, 526, 11, 38, "Message",ExpressionUUID->"7dd7e17e-c74e-7145-b6ae-77a0f02c67f1"], -Cell[177360, 4008, 530, 11, 38, "Message",ExpressionUUID->"311ddb21-a730-0b41-b633-2d3bac87be85"], -Cell[177893, 4021, 458, 10, 26, "Message",ExpressionUUID->"ecdc16e1-316d-b342-a60b-0f3075607709"], -Cell[178354, 4033, 171, 3, 33, "Output",ExpressionUUID->"a7fc6f95-4067-504b-8754-5086d2659934"] +Cell[16879, 590, 330, 6, 51, "Input",ExpressionUUID->"c2ca37ef-ff09-46ca-ab95-b03305b45e8f"], +Cell[17212, 598, 205, 4, 58, "Output",ExpressionUUID->"57c03cbe-83a3-479c-bf77-5ca39e407a99"] }, Open ]], Cell[CellGroupData[{ -Cell[178562, 4041, 215, 6, 46, "Input",ExpressionUUID->"69dd09d9-152e-3e4d-9517-4de4791db2f4"], -Cell[178780, 4049, 175, 3, 33, "Output",ExpressionUUID->"96bb6c6a-f128-024e-85ce-f8a6083a68c6"] -}, Open ]], -Cell[178970, 4055, 245, 5, 29, "Input",ExpressionUUID->"6ecc7e8c-a7c5-354e-b168-749729cd7104"], -Cell[CellGroupData[{ -Cell[179240, 4064, 623, 20, 51, "Input",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], -Cell[179866, 4086, 172, 3, 33, "Output",ExpressionUUID->"fecac54e-ac70-c448-b60d-60e5d8aa9072"] +Cell[17454, 607, 301, 6, 51, "Input",ExpressionUUID->"99a34b8f-4521-4eef-8692-d2e1401b2a65"], +Cell[17758, 615, 205, 4, 58, "Output",ExpressionUUID->"70aefc7c-f628-4b5a-82dc-ca026ebac07d"] }, Open ]], Cell[CellGroupData[{ -Cell[180075, 4094, 170, 5, 55, "Input",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], -Cell[180248, 4101, 172, 3, 33, "Output",ExpressionUUID->"31e41e93-aaef-1b4f-a5e6-3cad86684dfc"] +Cell[18000, 624, 223, 5, 51, "Input",ExpressionUUID->"76d1051a-db56-42d5-abfe-58600b8b61e5"], +Cell[18226, 631, 203, 4, 58, "Output",ExpressionUUID->"40f14725-a48d-47ec-9d2b-ef32ec855bfe"] }, Open ]], Cell[CellGroupData[{ -Cell[180457, 4109, 181, 5, 43, "Input",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], -Cell[180641, 4116, 172, 3, 33, "Output",ExpressionUUID->"d20f2acf-afe0-0844-b0cd-0cdce2394573"] +Cell[18466, 640, 354, 11, 74, "Input",ExpressionUUID->"65c3cf13-5bb1-408f-8545-4d76d8502ae1"], +Cell[18823, 653, 223, 4, 58, "Output",ExpressionUUID->"4dc1d140-1d2c-4860-8749-860b48c3e000"] }, Open ]], Cell[CellGroupData[{ -Cell[180850, 4124, 6055, 185, 195, "Input",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], -Cell[186908, 4311, 174, 3, 33, "Output",ExpressionUUID->"ec544098-6efd-4845-b84f-33e39ead67c9"] +Cell[19083, 662, 354, 11, 74, "Input",ExpressionUUID->"5fa975c8-1a63-41b1-b0ba-e05224487524"], +Cell[19440, 675, 238, 5, 58, "Output",ExpressionUUID->"e245803a-cac4-4995-a743-394da3c00771"] }, Open ]], Cell[CellGroupData[{ -Cell[187119, 4319, 368, 9, 41, "Input",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], -Cell[187490, 4330, 173, 3, 33, "Output",ExpressionUUID->"85f4fe6d-1167-7a40-b761-0a55e5251875"] +Cell[19715, 685, 998, 27, 142, "Input",ExpressionUUID->"36a0ca89-2ef9-483d-8ec5-f0531079a3a1"], +Cell[20716, 714, 223, 4, 58, "Output",ExpressionUUID->"f816973e-24d1-4d01-989b-ddd389a581b7"] }, Open ]], Cell[CellGroupData[{ -Cell[187700, 4338, 6122, 187, 195, "Input",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], -Cell[193825, 4527, 175, 3, 33, "Output",ExpressionUUID->"53db8250-199b-594a-8ebd-fc9cc43217e3"] +Cell[20976, 723, 203, 4, 51, "Input",ExpressionUUID->"b3a5a3db-d575-4f65-b1c3-b667ff775b6b"], +Cell[21182, 729, 204, 4, 58, "Output",ExpressionUUID->"47b7b8d8-ffc6-4b39-a104-0e83858cba8c"] }, Open ]], Cell[CellGroupData[{ -Cell[194037, 4535, 368, 9, 41, "Input",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], -Cell[194408, 4546, 170, 3, 33, "Output",ExpressionUUID->"0013bb3e-54d0-e343-9869-cf63da2eecbd"] +Cell[21423, 738, 303, 6, 51, "Input",ExpressionUUID->"406a39b3-f5b6-46a6-a7e7-773bb971f059"], +Cell[21729, 746, 176, 3, 58, "Output",ExpressionUUID->"9521f395-e3d2-4b78-92b2-48f9ae66f093"] +}, Open ]], +Cell[21920, 752, 177, 3, 51, "Input",ExpressionUUID->"1bd623c9-ec92-4b12-bb38-5b5a9ff31feb"], +Cell[CellGroupData[{ +Cell[22122, 759, 331, 6, 51, "Input",ExpressionUUID->"88066b2f-7a0c-4257-a80b-45d340112abb"], +Cell[22456, 767, 184, 3, 58, "Output",ExpressionUUID->"c71b4dfb-331d-4a8a-b4c8-83d9dcba9bbd"] +}, Open ]], +Cell[22655, 773, 177, 3, 51, "Input",ExpressionUUID->"bb882a7a-347c-4dec-84c7-81f1219925cc"], +Cell[CellGroupData[{ +Cell[22857, 780, 333, 6, 51, "Input",ExpressionUUID->"dd14a20c-d9b0-4443-b03e-54fd1436bd16"], +Cell[23193, 788, 183, 3, 58, "Output",ExpressionUUID->"fda3ce3e-137e-4ca5-988a-52ed6e2f71a8"] +}, Open ]], +Cell[23391, 794, 177, 3, 51, "Input",ExpressionUUID->"2af23f7f-edc1-4758-91b8-33377a388b9a"], +Cell[CellGroupData[{ +Cell[23593, 801, 358, 6, 51, "Input",ExpressionUUID->"10ad3e7a-5e9f-43c6-a126-408531b302d7"], +Cell[23954, 809, 182, 3, 58, "Output",ExpressionUUID->"98adda66-91cc-4940-9b58-e9c4e4a0dbf1"] +}, Open ]], +Cell[24151, 815, 175, 3, 51, "Input",ExpressionUUID->"214a830d-2c2e-43a4-bc1c-053c15250314"], +Cell[CellGroupData[{ +Cell[24351, 822, 305, 6, 51, "Input",ExpressionUUID->"ecd20ef3-1ab0-4cde-852a-c5d9b1b73661"], +Cell[24659, 830, 182, 3, 58, "Output",ExpressionUUID->"3e7a2388-5bdd-4c18-8b7f-49a73b0ce70b"] +}, Open ]], +Cell[24856, 836, 175, 3, 51, "Input",ExpressionUUID->"b93dbd63-8a40-4d50-8d17-8352fee8c2e0"], +Cell[CellGroupData[{ +Cell[25056, 843, 307, 6, 51, "Input",ExpressionUUID->"acae4259-cb0c-4c9e-b44a-b3aa1344e73d"], +Cell[25366, 851, 184, 3, 58, "Output",ExpressionUUID->"6d2bc2cf-4eb1-4352-9730-1f090a6b2350"] +}, Open ]], +Cell[25565, 857, 177, 3, 51, "Input",ExpressionUUID->"9123453a-6645-4642-ad71-c1e3a644e456"], +Cell[CellGroupData[{ +Cell[25767, 864, 311, 6, 51, "Input",ExpressionUUID->"e7e40969-7c6d-4193-bae0-cb0c20730271"], +Cell[26081, 872, 183, 3, 58, "Output",ExpressionUUID->"254a84bc-ad13-4e9e-b418-958514a160df"] +}, Open ]], +Cell[26279, 878, 176, 3, 51, "Input",ExpressionUUID->"e3737c05-a507-415f-9d74-5abf111e8387"], +Cell[CellGroupData[{ +Cell[26480, 885, 279, 5, 51, "Input",ExpressionUUID->"a4f55aad-c642-418e-bf88-1b425c7e6ec8"], +Cell[26762, 892, 182, 3, 58, "Output",ExpressionUUID->"21448631-ab75-403c-9575-a42edf7aea55"] +}, Open ]], +Cell[26959, 898, 179, 3, 51, "Input",ExpressionUUID->"c0ccd081-db67-4cae-ba39-39483fa21e19"], +Cell[CellGroupData[{ +Cell[27163, 905, 19813, 486, 2581, "Input",ExpressionUUID->"63dbfc9c-e42e-4c7a-871a-ad28a63575d2"], +Cell[46979, 1393, 221, 4, 58, "Output",ExpressionUUID->"c2097b71-1445-4079-9c90-0343489e6f47"] }, Open ]], Cell[CellGroupData[{ -Cell[194615, 4554, 2663, 88, 115, "Input",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], -Cell[197281, 4644, 173, 3, 33, "Output",ExpressionUUID->"96d8705a-f744-d447-bad0-55fe1d703f38"] +Cell[47237, 1402, 19752, 490, 2539, "Input",ExpressionUUID->"2ea11fb9-c1cf-4b5c-be38-a3590d3d8bcc"], +Cell[66992, 1894, 221, 4, 58, "Output",ExpressionUUID->"77c85e63-32bd-4e83-868d-8a4899d53a0e"] }, Open ]], Cell[CellGroupData[{ -Cell[197491, 4652, 2603, 85, 115, "Input",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], -Cell[200097, 4739, 172, 3, 33, "Output",ExpressionUUID->"bad41b21-8b15-a74b-a641-622c6584a958"] +Cell[67250, 1903, 19752, 484, 2561, "Input",ExpressionUUID->"13919706-748a-4c67-9595-2986977db5e6"], +Cell[87005, 2389, 235, 5, 109, "Output",ExpressionUUID->"08bfe9bc-ba63-4fc6-a19b-0113d1134dbf"] }, Open ]], Cell[CellGroupData[{ -Cell[200306, 4747, 3712, 118, 172, "Input",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], -Cell[204021, 4867, 174, 3, 33, "Output",ExpressionUUID->"a42f993d-5633-3546-ae09-6931972f9312"] +Cell[87277, 2399, 28300, 713, 109, "Input",ExpressionUUID->"2eb20ff3-6636-4349-a600-9842f9fd331a"], +Cell[115580, 3114, 235, 5, 58, "Output",ExpressionUUID->"6f83c814-6704-4fc2-b65d-476f8747e0e0"] }, Open ]], Cell[CellGroupData[{ -Cell[204232, 4875, 2052, 59, 92, "Input",ExpressionUUID->"d6aa822f-4140-174a-8e29-c889dba5c0d8"], -Cell[206287, 4936, 574, 12, 38, "Message",ExpressionUUID->"91f9ae14-8766-3848-9c79-ec46ad6af7ea"], -Cell[206864, 4950, 580, 12, 38, "Message",ExpressionUUID->"2440fadc-b12b-424f-a600-97a0a8c9f031"], -Cell[207447, 4964, 582, 12, 38, "Message",ExpressionUUID->"d4d1d26f-ac2b-a949-95b4-8d60af02cc4b"], -Cell[208032, 4978, 456, 10, 26, "Message",ExpressionUUID->"0cb59396-7a19-6b43-af2b-0a0ce0427b94"], -Cell[208491, 4990, 171, 3, 33, "Output",ExpressionUUID->"3ceb430a-d440-e040-b6a8-a18a3884b326"] +Cell[115852, 3124, 22539, 554, 2883, "Input",ExpressionUUID->"6124a934-47b0-4afd-b8b1-65c796c1e92c"], +Cell[138394, 3680, 238, 5, 58, "Output",ExpressionUUID->"2fb99c3d-7c41-44fd-9473-f62eb3fb0eef"] }, Open ]], Cell[CellGroupData[{ -Cell[208699, 4998, 2054, 59, 92, "Input",ExpressionUUID->"46f3f057-22eb-c143-af7a-23ddab00799c"], -Cell[210756, 5059, 574, 12, 26, "Message",ExpressionUUID->"ccb81c35-09e9-854b-9187-d46e8624546d"], -Cell[211333, 5073, 578, 12, 26, "Message",ExpressionUUID->"6dff6307-9a24-c74d-90d8-2f18b14858dc"], -Cell[211914, 5087, 582, 12, 26, "Message",ExpressionUUID->"11045565-b757-154a-b614-eb73b2dcbc5f"], -Cell[212499, 5101, 458, 10, 26, "Message",ExpressionUUID->"af9dd0c6-d446-9940-b908-9b52fbb611cb"], -Cell[212960, 5113, 169, 3, 33, "Output",ExpressionUUID->"d39c46b4-75c6-f741-b7fd-1a1fdbe4155f"] +Cell[138669, 3690, 25495, 627, 3226, "Input",ExpressionUUID->"067ad88a-a827-446e-ba85-df9489d80fe3"], +Cell[164167, 4319, 239, 5, 58, "Output",ExpressionUUID->"a08bbafb-59b0-44f4-b7d4-786497b9371b"] }, Open ]], Cell[CellGroupData[{ -Cell[213166, 5121, 2030, 55, 51, "Input",ExpressionUUID->"0137ed47-cd78-284a-910a-31d165f1571c"], -Cell[215199, 5178, 20326, 381, 238, "Output",ExpressionUUID->"5f98f6f4-700b-0a4b-af1c-32125fed3e6a"] -}, Open ]], -Cell[235540, 5562, 2144, 61, 92, "Input",ExpressionUUID->"00a32bc3-df79-9e43-8f20-d4884962c12d"], -Cell[237687, 5625, 138, 3, 29, "Input",ExpressionUUID->"344da507-9044-ef47-aa8c-99f282e3d6d3"], -Cell[CellGroupData[{ -Cell[237850, 5632, 1616, 48, 67, "Input",ExpressionUUID->"f13d1bd8-d153-ae43-b041-68b993e77854"], -Cell[239469, 5682, 592, 12, 38, "Message",ExpressionUUID->"318da404-8df4-c540-9269-2b249c7e148e"], -Cell[240064, 5696, 597, 12, 38, "Message",ExpressionUUID->"42939765-c33b-c147-a25b-bfa31c71a3cb"], -Cell[240664, 5710, 599, 12, 38, "Message",ExpressionUUID->"63b912c5-afab-654e-9609-c4b849e9abfe"], -Cell[241266, 5724, 458, 10, 26, "Message",ExpressionUUID->"2c8999d2-d9b5-ef4e-a59d-c314a02b2b2a"], -Cell[241727, 5736, 172, 3, 33, "Output",ExpressionUUID->"52013fca-4692-bf47-a0cf-880d71f10fc1"] +Cell[164443, 4329, 134, 3, 51, "Input",ExpressionUUID->"0fb9e55a-53df-459a-ac36-cdfd11764a24"], +Cell[164580, 4334, 204, 4, 58, "Output",ExpressionUUID->"db1b7152-9c09-4fd0-bc25-97c8ed0c9214"] }, Open ]], Cell[CellGroupData[{ -Cell[241936, 5744, 2249, 64, 62, "Input",ExpressionUUID->"53e25fab-b431-cc42-a467-e4dea0353ed0"], -Cell[244188, 5810, 576, 12, 38, "Message",ExpressionUUID->"285f997a-25b4-f647-9523-e0dd05446bae"], -Cell[244767, 5824, 580, 12, 38, "Message",ExpressionUUID->"b1d2a50d-b27b-ca46-afcb-af9e8d59323e"], -Cell[245350, 5838, 582, 12, 38, "Message",ExpressionUUID->"a36c085c-b95e-724c-a04e-30924ab7ac52"], -Cell[245935, 5852, 456, 10, 26, "Message",ExpressionUUID->"976edb68-80f3-5a4d-a255-2f217ec84bfa"], -Cell[246394, 5864, 171, 3, 33, "Output",ExpressionUUID->"b7107287-e519-1249-9ef0-b745347bdb78"] +Cell[164821, 4343, 134, 3, 51, "Input",ExpressionUUID->"e8ada919-e98f-4497-aa91-78add5700c1a"], +Cell[164958, 4348, 204, 4, 58, "Output",ExpressionUUID->"f3e4187d-0eeb-4cb3-972f-a384b24c11c1"] }, Open ]], Cell[CellGroupData[{ -Cell[246602, 5872, 2223, 64, 62, "Input",ExpressionUUID->"b18c819e-620a-d449-97d6-547e3a6fa152"], -Cell[248828, 5938, 574, 12, 38, "Message",ExpressionUUID->"2877ed71-3ee8-8044-94b0-c606083c07b7"], -Cell[249405, 5952, 578, 12, 38, "Message",ExpressionUUID->"34cfc5a5-16b6-f24f-acdf-b4e2d29b1bef"], -Cell[249986, 5966, 580, 12, 38, "Message",ExpressionUUID->"7fe7bdbe-3892-5043-b38d-13721c83d41a"], -Cell[250569, 5980, 458, 10, 26, "Message",ExpressionUUID->"93dfb0cd-55fb-1b4a-b671-37d180b9d444"], -Cell[251030, 5992, 173, 3, 33, "Output",ExpressionUUID->"372279b5-5e4a-b545-a159-384b26aa5ab4"] +Cell[165199, 4357, 1148, 40, 190, "Input",ExpressionUUID->"11fb9513-8adc-426d-add8-7a0171eb08c4"], +Cell[166350, 4399, 218, 4, 58, "Output",ExpressionUUID->"f8754e43-d894-45ff-b17e-e7ba13d5b11b"] }, Open ]], Cell[CellGroupData[{ -Cell[251240, 6000, 2221, 64, 62, "Input",ExpressionUUID->"22ab74c7-5916-9440-9d7d-c3e0f6ab8836"], -Cell[253464, 6066, 574, 12, 38, "Message",ExpressionUUID->"c14c35e1-e487-c742-a0da-128fdb9754d4"], -Cell[254041, 6080, 578, 12, 38, "Message",ExpressionUUID->"4396ed61-4d7e-6144-80f0-6d5649cfcb04"], -Cell[254622, 6094, 582, 12, 38, "Message",ExpressionUUID->"00fa2dcd-bc0b-9e44-9f00-15116f344aca"], -Cell[255207, 6108, 455, 10, 26, "Message",ExpressionUUID->"78b12bf1-7793-9341-ad5f-c7be406b8be6"], -Cell[255665, 6120, 170, 3, 33, "Output",ExpressionUUID->"9454fa52-ff74-094b-8081-2fc86cf96043"] +Cell[166605, 4408, 1045, 36, 257, "Input",ExpressionUUID->"684ac7c8-ffcb-4f44-8014-70bc251db57e"], +Cell[167653, 4446, 238, 5, 58, "Output",ExpressionUUID->"2f3454a8-bc7d-4cfc-b2b9-7fe692153711"] }, Open ]], Cell[CellGroupData[{ -Cell[255872, 6128, 215, 6, 46, "Input",ExpressionUUID->"f9c66987-c237-7a40-a006-e20e260dbdcb"], -Cell[256090, 6136, 174, 3, 33, "Output",ExpressionUUID->"175eda7e-c091-3e4f-86ac-3148f0a9e904"] -}, Open ]], -Cell[256279, 6142, 249, 5, 29, "Input",ExpressionUUID->"770a9ed7-7938-9e48-be64-c31719ef3a6b"], -Cell[CellGroupData[{ -Cell[256553, 6151, 558, 19, 51, "Input",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], -Cell[257114, 6172, 169, 3, 33, "Output",ExpressionUUID->"e757c22c-d836-6c4a-a9f7-93553c4bb232"] +Cell[167928, 4456, 1148, 40, 190, "Input",ExpressionUUID->"91ac834b-4ce6-454e-958e-c28c093f969e"], +Cell[169079, 4498, 222, 4, 58, "Output",ExpressionUUID->"20c1b17e-3fdd-49bb-9c4b-0011a63d9439"] }, Open ]], Cell[CellGroupData[{ -Cell[257320, 6180, 170, 5, 55, "Input",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], -Cell[257493, 6187, 173, 3, 33, "Output",ExpressionUUID->"7f3ee547-87eb-d74d-8f21-a8d42f1dde52"] +Cell[169338, 4507, 112, 2, 51, "Input",ExpressionUUID->"95defb1f-0166-421b-9570-425e25f79e4b"], +Cell[169453, 4511, 224, 4, 58, "Output",ExpressionUUID->"4eea6a8d-a4e4-4492-a05d-ab326a6505ca"] }, Open ]], Cell[CellGroupData[{ -Cell[257703, 6195, 181, 5, 43, "Input",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], -Cell[257887, 6202, 173, 3, 33, "Output",ExpressionUUID->"0603b6e6-a8b7-1e45-9b15-2769b7fbc373"] +Cell[169714, 4520, 112, 2, 51, "Input",ExpressionUUID->"047f0807-e297-4e57-ab72-115d0bd4346c"], +Cell[169829, 4524, 241, 5, 58, "Output",ExpressionUUID->"0142c57a-b4c0-4f2b-848d-46c0d06d3c8d"] }, Open ]], Cell[CellGroupData[{ -Cell[258097, 6210, 6055, 185, 195, "Input",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], -Cell[264155, 6397, 174, 3, 33, "Output",ExpressionUUID->"8b7a346f-cdda-e24e-b924-d6cfb1b3119a"] +Cell[170107, 4534, 112, 2, 51, "Input",ExpressionUUID->"2db39cad-94a9-4ba7-9de3-f980ab1abdd3"], +Cell[170222, 4538, 239, 5, 58, "Output",ExpressionUUID->"5c828f33-8cea-4211-915e-bf2261536929"] }, Open ]], Cell[CellGroupData[{ -Cell[264366, 6405, 368, 9, 41, "Input",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], -Cell[264737, 6416, 172, 3, 33, "Output",ExpressionUUID->"3354b35a-acef-b846-b770-8d2e77b8f68b"] +Cell[170498, 4548, 112, 2, 51, "Input",ExpressionUUID->"999c9294-a525-4435-b9b1-665af2777271"], +Cell[170613, 4552, 219, 4, 58, "Output",ExpressionUUID->"cbcbc64f-a97e-4f18-b0b1-372452a7f799"] }, Open ]], Cell[CellGroupData[{ -Cell[264946, 6424, 6122, 187, 195, "Input",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], -Cell[271071, 6613, 172, 3, 33, "Output",ExpressionUUID->"7b76721b-3d4c-c544-9113-83ba4f36ae7f"] +Cell[170869, 4561, 111, 2, 51, "Input",ExpressionUUID->"7ae5dd29-22a7-4156-b928-348d5a26efc3"], +Cell[170983, 4565, 221, 4, 58, "Output",ExpressionUUID->"3176776e-6eaa-41b2-84cf-48dbebee6e63"] }, Open ]], Cell[CellGroupData[{ -Cell[271280, 6621, 368, 9, 41, "Input",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], -Cell[271651, 6632, 170, 3, 33, "Output",ExpressionUUID->"e9346704-c478-364d-b5eb-0aabe0e2e350"] +Cell[171241, 4574, 111, 2, 51, "Input",ExpressionUUID->"e309fcfb-5e9d-440e-8288-933ddf5d3183"], +Cell[171355, 4578, 222, 4, 58, "Output",ExpressionUUID->"ebf04ddb-62dc-4687-bcae-0f897f7c991e"] }, Open ]], Cell[CellGroupData[{ -Cell[271858, 6640, 2663, 88, 115, "Input",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], -Cell[274524, 6730, 173, 3, 33, "Output",ExpressionUUID->"33b7f444-6995-e54b-a2a6-ad09016b1850"] +Cell[171614, 4587, 501, 17, 97, "Input",ExpressionUUID->"18bb3739-c47b-437f-a843-22b7434fe3c0"], +Cell[172118, 4606, 242, 5, 58, "Output",ExpressionUUID->"0d7ea3a7-10ed-4b89-a04b-9e4175859abb"] }, Open ]], Cell[CellGroupData[{ -Cell[274734, 6738, 2603, 85, 115, "Input",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], -Cell[277340, 6825, 172, 3, 33, "Output",ExpressionUUID->"76ba8e46-11c7-f54d-bfb2-cca1b455c838"] +Cell[172397, 4616, 501, 17, 97, "Input",ExpressionUUID->"9336aeda-c150-460f-b72b-4a931a6c7246"], +Cell[172901, 4635, 234, 5, 58, "Output",ExpressionUUID->"89edda8e-9ba7-45ab-bc4d-8798b2c67f33"] }, Open ]], Cell[CellGroupData[{ -Cell[277549, 6833, 3712, 118, 172, "Input",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], -Cell[281264, 6953, 172, 3, 33, "Output",ExpressionUUID->"f7c29774-2634-5546-ab63-4d3ac6889f79"] +Cell[173172, 4645, 1792, 61, 324, "Input",ExpressionUUID->"af548364-1bf8-4b09-9f56-235516d563a6"], +Cell[174967, 4708, 224, 4, 58, "Output",ExpressionUUID->"592ec874-7297-4e35-ac4c-4a709753226e"] }, Open ]], Cell[CellGroupData[{ -Cell[281473, 6961, 2052, 59, 92, "Input",ExpressionUUID->"55d51961-97f2-ed4d-8bf8-8a461d652ab4"], -Cell[283528, 7022, 573, 12, 38, "Message",ExpressionUUID->"3d5a1265-fb27-0b41-a549-5e326650d270"], -Cell[284104, 7036, 573, 12, 38, "Message",ExpressionUUID->"0726d23e-32d7-7a41-8d7f-0b62fec75437"], -Cell[284680, 7050, 579, 12, 38, "Message",ExpressionUUID->"b47482ef-bec0-234f-aeb7-9009a378a36d"], -Cell[285262, 7064, 458, 10, 26, "Message",ExpressionUUID->"e5e35e3a-0e40-c249-b6f3-c2a6a5a48740"], -Cell[285723, 7076, 170, 3, 33, "Output",ExpressionUUID->"b33776d0-2a41-694b-9af8-c4d483383e7c"] +Cell[175228, 4717, 1105, 37, 231, "Input",ExpressionUUID->"95a8fa6d-a243-49e0-9b82-930336521cbe"], +Cell[176336, 4756, 239, 5, 58, "Output",ExpressionUUID->"7a6d68bd-e620-44e0-ab90-a245f8890b51"] }, Open ]], Cell[CellGroupData[{ -Cell[285930, 7084, 2052, 59, 92, "Input",ExpressionUUID->"9704b9d3-b449-2144-9970-6a7de047241d"], -Cell[287985, 7145, 573, 12, 38, "Message",ExpressionUUID->"ffb6a3c0-c488-cd48-870e-d66051362026"], -Cell[288561, 7159, 575, 12, 38, "Message",ExpressionUUID->"ca3fb11a-47f9-c542-a5c9-6e0087e110b9"], -Cell[289139, 7173, 579, 12, 38, "Message",ExpressionUUID->"7e4a0639-38a1-f74e-ab8e-5264cad2d48c"], -Cell[289721, 7187, 458, 10, 26, "Message",ExpressionUUID->"101eaea3-75b1-d942-9914-a0fe8a6e2f65"], -Cell[290182, 7199, 169, 3, 33, "Output",ExpressionUUID->"921a9c76-dcb9-484a-bc19-88ddead9467a"] +Cell[176612, 4766, 1822, 62, 283, "Input",ExpressionUUID->"3d40da52-7e84-43df-b724-f982bb0ccbe1"], +Cell[178437, 4830, 221, 4, 58, "Output",ExpressionUUID->"77bface0-ef1c-41b7-b57c-58f47957aebb"] }, Open ]], Cell[CellGroupData[{ -Cell[290388, 7207, 2028, 55, 51, "Input",ExpressionUUID->"0fd90636-7592-fc40-bf9d-ae1cb915c656"], -Cell[292419, 7264, 20296, 381, 236, "Output",ExpressionUUID->"09d149ec-0259-a345-a282-743f783e7913"] +Cell[178695, 4839, 1635, 54, 208, "Input",ExpressionUUID->"f3391ef3-a316-4d0f-9274-0f9548039352"], +Cell[180333, 4895, 223, 4, 41, "Output",ExpressionUUID->"b6ed643f-f49e-4be2-9a01-f9bf4817aabc"] }, Open ]], Cell[CellGroupData[{ -Cell[312752, 7650, 2146, 61, 92, "Input",ExpressionUUID->"90696e8b-5a2d-314c-8d58-ac84cb8f4d66"], -Cell[314901, 7713, 500, 11, 38, "Message",ExpressionUUID->"526ffad5-83ae-c149-9912-e494135b3fca"], -Cell[315404, 7726, 505, 11, 38, "Message",ExpressionUUID->"1adb1680-bdf2-4144-bcc9-7270c61e97b7"], -Cell[315912, 7739, 509, 11, 38, "Message",ExpressionUUID->"9e5d82d5-642b-cb46-8232-be5a5ca7050d"], -Cell[316424, 7752, 458, 10, 26, "Message",ExpressionUUID->"ef931413-f964-5b45-a755-76cab1ab5309"], -Cell[316885, 7764, 39609, 697, 232, "Output",ExpressionUUID->"23497d29-f516-664b-9ee0-ea8f6d88359c"] +Cell[180593, 4904, 1635, 54, 208, "Input",ExpressionUUID->"ff4d53e3-2af3-48db-bfea-28618ad44623"], +Cell[182231, 4960, 221, 4, 41, "Output",ExpressionUUID->"427228c1-f6e7-48fa-aca1-5fe5c3d5961f"] }, Open ]], -Cell[356509, 8464, 209, 5, 29, "Input",ExpressionUUID->"ea848967-083d-ea47-bce0-5c3b93725916"], +Cell[182467, 4967, 250, 5, 56, "Input",ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], +Cell[182720, 4974, 253, 5, 56, "Input",ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], Cell[CellGroupData[{ -Cell[356743, 8473, 1616, 48, 67, "Input",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], -Cell[358362, 8523, 589, 12, 38, "Message",ExpressionUUID->"100796fd-6fde-3c41-9088-c2d3ae2f8aeb"], -Cell[358954, 8537, 595, 12, 38, "Message",ExpressionUUID->"c91e75b4-9e2b-1e49-a5d5-453d5f87b5e3"], -Cell[359552, 8551, 596, 12, 38, "Message",ExpressionUUID->"5d8ad6a4-5b83-df49-8c4d-081081895528"], -Cell[360151, 8565, 458, 10, 26, "Message",ExpressionUUID->"26eed7af-5e0a-e840-9956-caca06166010"], -Cell[360612, 8577, 171, 3, 33, "Output",ExpressionUUID->"e4e35b92-e786-3044-bf1d-9c587b1357a2"] +Cell[182998, 4983, 1301, 43, 174, "Input",ExpressionUUID->"5e48fe0c-b3e8-2b40-82cb-716b23b2f326"], +Cell[184302, 5028, 178, 3, 41, "Output",ExpressionUUID->"1db85c02-7ca3-154e-854d-2c36f89709c4"] }, Open ]], Cell[CellGroupData[{ -Cell[360820, 8585, 2249, 64, 62, "Input",ExpressionUUID->"80bba3bc-d8f7-1c4b-9262-0895c02ffd8f"], -Cell[363072, 8651, 573, 12, 38, "Message",ExpressionUUID->"6b65fc2b-3e1d-714d-aeb9-43978836a621"], -Cell[363648, 8665, 573, 12, 38, "Message",ExpressionUUID->"c4736a05-b0e1-5e49-b581-f3ce4c83fe21"], -Cell[364224, 8679, 579, 12, 38, "Message",ExpressionUUID->"ae8eb83c-0205-8046-8445-e249896b7ee5"], -Cell[364806, 8693, 458, 10, 26, "Message",ExpressionUUID->"5072d590-62c3-7a47-ae1b-6dd617a0b9dc"], -Cell[365267, 8705, 174, 3, 70, "Output",ExpressionUUID->"8dd7e1f9-bbea-d84b-ad0e-8922158aee9e"] +Cell[184517, 5036, 910, 31, 128, "Input",ExpressionUUID->"e4db2648-4e1a-2c46-83ab-fcd932c3b663"], +Cell[185430, 5069, 175, 3, 41, "Output",ExpressionUUID->"78ed190c-23cd-4d45-867a-2b08174b715f"] }, Open ]], Cell[CellGroupData[{ -Cell[365478, 8713, 2221, 64, 70, "Input",ExpressionUUID->"57976ffc-56f1-604b-8519-bead95265db8"], -Cell[367702, 8779, 573, 12, 70, "Message",ExpressionUUID->"7ab877ea-0e4b-f948-97c2-7ebafb7901b1"], -Cell[368278, 8793, 575, 12, 70, "Message",ExpressionUUID->"a87a57c5-24bc-dc4a-888a-b3c0095c10c4"], -Cell[368856, 8807, 577, 12, 70, "Message",ExpressionUUID->"d8af7fb1-1d43-664e-ae2d-698eaa818746"], -Cell[369436, 8821, 456, 10, 70, "Message",ExpressionUUID->"7abec434-52e8-c64c-ac86-90da0b27b8aa"], -Cell[369895, 8833, 172, 3, 70, "Output",ExpressionUUID->"164a4c34-f121-a445-b434-e34aa59666ab"] +Cell[185642, 5077, 885, 30, 128, "Input",ExpressionUUID->"e4649c3d-e19e-ca42-95a0-23b66397f1fd"], +Cell[186530, 5109, 177, 3, 41, "Output",ExpressionUUID->"82ec2512-4fcb-ba44-b472-bb3a66bb622e"] }, Open ]], Cell[CellGroupData[{ -Cell[370104, 8841, 2219, 64, 70, "Input",ExpressionUUID->"cfa37210-3ae7-3f49-b290-f19508c6d2f1"], -Cell[372326, 8907, 571, 12, 70, "Message",ExpressionUUID->"92295db4-13f0-284e-8173-df7f8dd20dcf"], -Cell[372900, 8921, 573, 12, 70, "Message",ExpressionUUID->"c6280e41-1347-0f47-81a9-bcd3687b7b73"], -Cell[373476, 8935, 579, 12, 70, "Message",ExpressionUUID->"2aa0f4b1-01ca-4644-884e-b759d4a75412"], -Cell[374058, 8949, 458, 10, 70, "Message",ExpressionUUID->"ab3c3bff-179e-9f4e-b56a-87d1b4f6fc04"], -Cell[374519, 8961, 172, 3, 70, "Output",ExpressionUUID->"f5b8154f-e61e-6a4e-b068-b6c1916773ef"] +Cell[186744, 5117, 558, 19, 66, "Input",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], +Cell[187305, 5138, 173, 3, 41, "Output",ExpressionUUID->"9d53fa4a-be54-7b42-83bd-0a5560193c0f"] }, Open ]], Cell[CellGroupData[{ -Cell[374728, 8969, 211, 6, 70, "Input",ExpressionUUID->"7457b456-6d32-5b44-9679-346c5f5ac532"], -Cell[374942, 8977, 174, 3, 70, "Output",ExpressionUUID->"14434839-d5cf-b844-b849-b3b3102df434"] -}, Open ]] +Cell[187515, 5146, 623, 21, 66, "Input",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], +Cell[188141, 5169, 170, 3, 41, "Output",ExpressionUUID->"4107fa63-a138-df48-a95c-ec944a983800"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188348, 5177, 170, 5, 71, "Input",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], +Cell[188521, 5184, 173, 3, 41, "Output",ExpressionUUID->"f894fb1d-1550-5146-a259-dfa871655c2a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188731, 5192, 170, 5, 69, "Input",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], +Cell[188904, 5199, 170, 3, 41, "Output",ExpressionUUID->"8d5b13a4-8c75-0f48-ab21-9720bb8c0cbc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189111, 5207, 181, 5, 55, "Input",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], +Cell[189295, 5214, 171, 3, 41, "Output",ExpressionUUID->"4d4b493f-9f2d-1e41-979f-fb4d58d0e93a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189503, 5222, 181, 5, 55, "Input",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], +Cell[189687, 5229, 173, 3, 41, "Output",ExpressionUUID->"e40db20b-c65e-4a45-ba96-abcb59b0d0ac"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189897, 5237, 6055, 185, 831, "Input",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], +Cell[195955, 5424, 175, 3, 41, "Output",ExpressionUUID->"cdf81fea-e12a-2b44-81a8-222b4bbf8a86"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196167, 5432, 368, 9, 53, "Input",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], +Cell[196538, 5443, 170, 3, 41, "Output",ExpressionUUID->"181dc1c8-632b-4b43-91c4-d3626d65bfc7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196745, 5451, 6122, 187, 900, "Input",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], +Cell[202870, 5640, 175, 3, 41, "Output",ExpressionUUID->"c7d972b4-764c-954a-8260-240d49cfcff6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[203082, 5648, 368, 9, 53, "Input",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], +Cell[203453, 5659, 172, 3, 41, "Output",ExpressionUUID->"c285a758-c3ad-974b-93c3-4cb0d4bdd2ae"] +}, Open ]], +Cell[CellGroupData[{ +Cell[203662, 5667, 2663, 88, 435, "Input",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], +Cell[206328, 5757, 173, 3, 41, "Output",ExpressionUUID->"5dc957f4-8f84-c54c-80a3-c76f756c5df4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[206538, 5765, 2603, 85, 435, "Input",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], +Cell[209144, 5852, 172, 3, 41, "Output",ExpressionUUID->"b4ee01d5-3415-494b-b28a-4587c8d8bb90"] +}, Open ]], +Cell[CellGroupData[{ +Cell[209353, 5860, 3712, 118, 575, "Input",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], +Cell[213068, 5980, 174, 3, 41, "Output",ExpressionUUID->"20c44e64-7085-8e4d-a9d6-f80b5532826e"] +}, Open ]], +Cell[213257, 5986, 138, 3, 36, "Input",ExpressionUUID->"ba4a3eff-9e3b-5e47-a896-3a959bbbf44d"], +Cell[CellGroupData[{ +Cell[213420, 5993, 2052, 59, 276, "Input",ExpressionUUID->"738a48f3-b38c-f441-aec4-53babaa73a14"], +Cell[215475, 6054, 524, 11, 98, "Message",ExpressionUUID->"bd0a7da1-672e-6b4e-afbd-4af379292e8d"], +Cell[216002, 6067, 526, 11, 91, "Message",ExpressionUUID->"9a8837e4-2afa-d145-83db-a88ef0e502bc"], +Cell[216531, 6080, 530, 11, 98, "Message",ExpressionUUID->"0aa4ed5d-b925-834d-b53a-95c75c4ff982"], +Cell[217064, 6093, 455, 10, 32, "Message",ExpressionUUID->"2742a735-9c26-7640-8a81-3e30eaffa353"], +Cell[217522, 6105, 172, 3, 41, "Output",ExpressionUUID->"d91a6bca-04d7-b84b-93cf-0695498dc4de"] +}, Open ]], +Cell[CellGroupData[{ +Cell[217731, 6113, 2054, 59, 276, "Input",ExpressionUUID->"86c33485-ed26-8f49-b3d0-7d040d3b48f0"], +Cell[219788, 6174, 524, 11, 98, "Message",ExpressionUUID->"2c553d54-16ec-9646-b6d7-75da3c367575"], +Cell[220315, 6187, 526, 11, 98, "Message",ExpressionUUID->"1c597fdf-5631-a84c-9feb-152df3629d86"], +Cell[220844, 6200, 528, 11, 98, "Message",ExpressionUUID->"48439b56-7b7d-fa4d-a4e2-5db2bbda0c77"], +Cell[221375, 6213, 456, 10, 32, "Message",ExpressionUUID->"66ce390f-34a9-df4d-9875-a339943ada86"], +Cell[221834, 6225, 170, 3, 41, "Output",ExpressionUUID->"2e46fa54-fabe-5040-8f8c-6829b7c76136"] +}, Open ]], +Cell[CellGroupData[{ +Cell[222041, 6233, 1938, 53, 232, "Input",ExpressionUUID->"f373fe4f-940c-0842-9236-63ec36d318ad"], +Cell[223982, 6288, 19994, 375, 285, "Output",ExpressionUUID->"fdd0f260-414f-a94a-8f26-cd86e676700c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[244013, 6668, 2092, 60, 311, "Input",ExpressionUUID->"24fa5db0-1063-354a-bd60-c117a27ff3e1"], +Cell[246108, 6730, 490, 11, 71, "Message",ExpressionUUID->"546a9ea9-5939-f84a-87c6-58844f58f330"], +Cell[246601, 6743, 493, 11, 71, "Message",ExpressionUUID->"b36bffd7-1c84-5c45-a847-b2c31968f579"], +Cell[247097, 6756, 508, 11, 56, "Message",ExpressionUUID->"c864bef7-fc73-d94b-8cde-14570cba8095"], +Cell[247608, 6769, 456, 10, 32, "Message",ExpressionUUID->"a2e62375-acd2-6740-bfd7-026877c5bd7b"], +Cell[248067, 6781, 61603, 1057, 290, "Output",ExpressionUUID->"d4eecdc9-263c-5b43-bb29-cd0ac1286793"] +}, Open ]], +Cell[309685, 7841, 2521, 71, 316, "Input",ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], +Cell[312209, 7914, 209, 5, 36, "Input",ExpressionUUID->"6d3700e1-f504-214a-a332-f16397f0b922"], +Cell[CellGroupData[{ +Cell[312443, 7923, 217, 7, 61, "Input",ExpressionUUID->"9051a5e3-bb9f-d941-bcca-598d0b6835be"], +Cell[312663, 7932, 169, 3, 41, "Output",ExpressionUUID->"07374b0a-4615-bf46-ab49-be8623cec410"] +}, Open ]], +Cell[CellGroupData[{ +Cell[312869, 7940, 1816, 53, 116, "Input",ExpressionUUID->"65a995ff-ff3d-634e-9bad-4a8a16073236"], +Cell[314688, 7995, 502, 11, 48, "Message",ExpressionUUID->"c1f83af1-416a-6240-b3fd-c1bfcc643459"], +Cell[315193, 8008, 506, 11, 71, "Message",ExpressionUUID->"5cfd3c4b-6190-2c4d-8479-b4ccd7090f94"], +Cell[315702, 8021, 509, 11, 71, "Message",ExpressionUUID->"288fc6c7-a3fe-9b48-9c0d-bba2713f7084"], +Cell[316214, 8034, 456, 10, 26, "Message",ExpressionUUID->"09478fd5-b212-2347-91e7-b9097bd6d61d"], +Cell[316673, 8046, 28560, 514, 290, "Output",ExpressionUUID->"f7784347-2042-c042-8970-b060f9535d9e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[345270, 8565, 1616, 48, 132, "Input",ExpressionUUID->"86381d88-1537-a242-9cff-0b432b61d63d"], +Cell[346889, 8615, 576, 12, 98, "Message",ExpressionUUID->"0a4bed5c-621d-a546-88e9-ce7d779c106a"], +Cell[347468, 8629, 582, 12, 98, "Message",ExpressionUUID->"80e3943d-459b-8b41-9869-50a6cf829ef8"], +Cell[348053, 8643, 584, 12, 118, "Message",ExpressionUUID->"36529169-7f05-ee43-8080-ce8fdd404b8d"], +Cell[348640, 8657, 458, 10, 109, "Message",ExpressionUUID->"a6c5f0ff-3356-4c42-b883-ce45e5cc4f41"], +Cell[349101, 8669, 170, 3, 109, "Output",ExpressionUUID->"546f133a-4a8e-8d44-937d-5fc3ea2401d8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[349308, 8677, 2247, 64, 109, "Input",ExpressionUUID->"6f0ad284-4db3-da47-b8dc-45830eedfe9c"], +Cell[351558, 8743, 522, 11, 109, "Message",ExpressionUUID->"2e7d173d-070f-de49-a3c2-9964fb888ede"], +Cell[352083, 8756, 526, 11, 109, "Message",ExpressionUUID->"04b23985-5685-d344-a2ed-9886796baf32"], +Cell[352612, 8769, 528, 11, 109, "Message",ExpressionUUID->"ccdd27f2-bd64-f442-a708-cfb1052c7f86"], +Cell[353143, 8782, 458, 10, 32, "Message",ExpressionUUID->"384ce3fd-4914-6b49-b10c-84d885ed65d6"], +Cell[353604, 8794, 175, 3, 41, "Output",ExpressionUUID->"8865a4e5-7fd3-3c49-a115-94c8c5479389"] +}, Open ]], +Cell[CellGroupData[{ +Cell[353816, 8802, 2221, 64, 348, "Input",ExpressionUUID->"b2dda819-6f34-5c49-bc62-303d815946e5"], +Cell[356040, 8868, 522, 11, 98, "Message",ExpressionUUID->"958049e8-43e1-cc46-81fb-5b3fe1a5d9ee"], +Cell[356565, 8881, 524, 11, 98, "Message",ExpressionUUID->"6ed73f20-f975-a34c-a5a3-af58e9ecd7ed"], +Cell[357092, 8894, 528, 11, 98, "Message",ExpressionUUID->"4ce11323-2f48-da4f-84f8-593751381024"], +Cell[357623, 8907, 458, 10, 32, "Message",ExpressionUUID->"330905cd-5b42-604b-aaf8-fbac43108165"], +Cell[358084, 8919, 170, 3, 41, "Output",ExpressionUUID->"020ade62-ec43-7549-8079-7ac012e004c4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[358291, 8927, 2221, 64, 109, "Input",ExpressionUUID->"76a9e77d-1f4c-bb4a-bb13-1a175f609f7d"], +Cell[360515, 8993, 524, 11, 109, "Message",ExpressionUUID->"9a8eff2d-0d97-2e45-a2f3-ce0634115f7d"], +Cell[361042, 9006, 526, 11, 109, "Message",ExpressionUUID->"7dd7e17e-c74e-7145-b6ae-77a0f02c67f1"], +Cell[361571, 9019, 530, 11, 109, "Message",ExpressionUUID->"311ddb21-a730-0b41-b633-2d3bac87be85"], +Cell[362104, 9032, 458, 10, 109, "Message",ExpressionUUID->"ecdc16e1-316d-b342-a60b-0f3075607709"], +Cell[362565, 9044, 171, 3, 41, "Output",ExpressionUUID->"a7fc6f95-4067-504b-8754-5086d2659934"] +}, Open ]], +Cell[CellGroupData[{ +Cell[362773, 9052, 215, 6, 60, "Input",ExpressionUUID->"69dd09d9-152e-3e4d-9517-4de4791db2f4"], +Cell[362991, 9060, 175, 3, 41, "Output",ExpressionUUID->"96bb6c6a-f128-024e-85ce-f8a6083a68c6"] +}, Open ]], +Cell[363181, 9066, 245, 5, 36, "Input",ExpressionUUID->"6ecc7e8c-a7c5-354e-b168-749729cd7104"], +Cell[CellGroupData[{ +Cell[363451, 9075, 623, 20, 66, "Input",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], +Cell[364077, 9097, 172, 3, 41, "Output",ExpressionUUID->"fecac54e-ac70-c448-b60d-60e5d8aa9072"] +}, Open ]], +Cell[CellGroupData[{ +Cell[364286, 9105, 170, 5, 71, "Input",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], +Cell[364459, 9112, 172, 3, 41, "Output",ExpressionUUID->"31e41e93-aaef-1b4f-a5e6-3cad86684dfc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[364668, 9120, 181, 5, 55, "Input",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], +Cell[364852, 9127, 172, 3, 41, "Output",ExpressionUUID->"d20f2acf-afe0-0844-b0cd-0cdce2394573"] +}, Open ]], +Cell[CellGroupData[{ +Cell[365061, 9135, 6055, 185, 831, "Input",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], +Cell[371119, 9322, 174, 3, 41, "Output",ExpressionUUID->"ec544098-6efd-4845-b84f-33e39ead67c9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[371330, 9330, 368, 9, 53, "Input",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], +Cell[371701, 9341, 173, 3, 41, "Output",ExpressionUUID->"85f4fe6d-1167-7a40-b761-0a55e5251875"] +}, Open ]], +Cell[CellGroupData[{ +Cell[371911, 9349, 6122, 187, 900, "Input",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], +Cell[378036, 9538, 175, 3, 41, "Output",ExpressionUUID->"53db8250-199b-594a-8ebd-fc9cc43217e3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[378248, 9546, 368, 9, 53, "Input",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], +Cell[378619, 9557, 170, 3, 41, "Output",ExpressionUUID->"0013bb3e-54d0-e343-9869-cf63da2eecbd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[378826, 9565, 2663, 88, 435, "Input",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], +Cell[381492, 9655, 173, 3, 41, "Output",ExpressionUUID->"96d8705a-f744-d447-bad0-55fe1d703f38"] +}, Open ]], +Cell[CellGroupData[{ +Cell[381702, 9663, 2603, 85, 435, "Input",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], +Cell[384308, 9750, 172, 3, 41, "Output",ExpressionUUID->"bad41b21-8b15-a74b-a641-622c6584a958"] +}, Open ]], +Cell[CellGroupData[{ +Cell[384517, 9758, 3712, 118, 575, "Input",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], +Cell[388232, 9878, 174, 3, 41, "Output",ExpressionUUID->"a42f993d-5633-3546-ae09-6931972f9312"] +}, Open ]], +Cell[CellGroupData[{ +Cell[388443, 9886, 2052, 59, 276, "Input",ExpressionUUID->"d6aa822f-4140-174a-8e29-c889dba5c0d8"], +Cell[390498, 9947, 574, 12, 98, "Message",ExpressionUUID->"91f9ae14-8766-3848-9c79-ec46ad6af7ea"], +Cell[391075, 9961, 580, 12, 98, "Message",ExpressionUUID->"2440fadc-b12b-424f-a600-97a0a8c9f031"], +Cell[391658, 9975, 582, 12, 98, "Message",ExpressionUUID->"d4d1d26f-ac2b-a949-95b4-8d60af02cc4b"], +Cell[392243, 9989, 456, 10, 32, "Message",ExpressionUUID->"0cb59396-7a19-6b43-af2b-0a0ce0427b94"], +Cell[392702, 10001, 171, 3, 41, "Output",ExpressionUUID->"3ceb430a-d440-e040-b6a8-a18a3884b326"] +}, Open ]], +Cell[CellGroupData[{ +Cell[392910, 10009, 2054, 59, 109, "Input",ExpressionUUID->"46f3f057-22eb-c143-af7a-23ddab00799c"], +Cell[394967, 10070, 574, 12, 109, "Message",ExpressionUUID->"ccb81c35-09e9-854b-9187-d46e8624546d"], +Cell[395544, 10084, 578, 12, 109, "Message",ExpressionUUID->"6dff6307-9a24-c74d-90d8-2f18b14858dc"], +Cell[396125, 10098, 582, 12, 109, "Message",ExpressionUUID->"11045565-b757-154a-b614-eb73b2dcbc5f"], +Cell[396710, 10112, 458, 10, 109, "Message",ExpressionUUID->"af9dd0c6-d446-9940-b908-9b52fbb611cb"], +Cell[397171, 10124, 169, 3, 109, "Output",ExpressionUUID->"d39c46b4-75c6-f741-b7fd-1a1fdbe4155f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[397377, 10132, 2030, 55, 109, "Input",ExpressionUUID->"0137ed47-cd78-284a-910a-31d165f1571c"], +Cell[399410, 10189, 20326, 381, 299, "Output",ExpressionUUID->"5f98f6f4-700b-0a4b-af1c-32125fed3e6a"] +}, Open ]], +Cell[419751, 10573, 2144, 61, 311, "Input",ExpressionUUID->"00a32bc3-df79-9e43-8f20-d4884962c12d"], +Cell[421898, 10636, 138, 3, 36, "Input",ExpressionUUID->"344da507-9044-ef47-aa8c-99f282e3d6d3"], +Cell[CellGroupData[{ +Cell[422061, 10643, 1616, 48, 132, "Input",ExpressionUUID->"f13d1bd8-d153-ae43-b041-68b993e77854"], +Cell[423680, 10693, 592, 12, 118, "Message",ExpressionUUID->"318da404-8df4-c540-9269-2b249c7e148e"], +Cell[424275, 10707, 597, 12, 118, "Message",ExpressionUUID->"42939765-c33b-c147-a25b-bfa31c71a3cb"], +Cell[424875, 10721, 599, 12, 109, "Message",ExpressionUUID->"63b912c5-afab-654e-9609-c4b849e9abfe"], +Cell[425477, 10735, 458, 10, 109, "Message",ExpressionUUID->"2c8999d2-d9b5-ef4e-a59d-c314a02b2b2a"], +Cell[425938, 10747, 172, 3, 109, "Output",ExpressionUUID->"52013fca-4692-bf47-a0cf-880d71f10fc1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[426147, 10755, 2249, 64, 348, "Input",ExpressionUUID->"53e25fab-b431-cc42-a467-e4dea0353ed0"], +Cell[428399, 10821, 576, 12, 98, "Message",ExpressionUUID->"285f997a-25b4-f647-9523-e0dd05446bae"], +Cell[428978, 10835, 580, 12, 98, "Message",ExpressionUUID->"b1d2a50d-b27b-ca46-afcb-af9e8d59323e"], +Cell[429561, 10849, 582, 12, 98, "Message",ExpressionUUID->"a36c085c-b95e-724c-a04e-30924ab7ac52"], +Cell[430146, 10863, 456, 10, 32, "Message",ExpressionUUID->"976edb68-80f3-5a4d-a255-2f217ec84bfa"], +Cell[430605, 10875, 171, 3, 41, "Output",ExpressionUUID->"b7107287-e519-1249-9ef0-b745347bdb78"] +}, Open ]], +Cell[CellGroupData[{ +Cell[430813, 10883, 2223, 64, 109, "Input",ExpressionUUID->"b18c819e-620a-d449-97d6-547e3a6fa152"], +Cell[433039, 10949, 574, 12, 109, "Message",ExpressionUUID->"2877ed71-3ee8-8044-94b0-c606083c07b7"], +Cell[433616, 10963, 578, 12, 109, "Message",ExpressionUUID->"34cfc5a5-16b6-f24f-acdf-b4e2d29b1bef"], +Cell[434197, 10977, 580, 12, 109, "Message",ExpressionUUID->"7fe7bdbe-3892-5043-b38d-13721c83d41a"], +Cell[434780, 10991, 458, 10, 109, "Message",ExpressionUUID->"93dfb0cd-55fb-1b4a-b671-37d180b9d444"], +Cell[435241, 11003, 173, 3, 109, "Output",ExpressionUUID->"372279b5-5e4a-b545-a159-384b26aa5ab4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[435451, 11011, 2221, 64, 109, "Input",ExpressionUUID->"22ab74c7-5916-9440-9d7d-c3e0f6ab8836"], +Cell[437675, 11077, 574, 12, 98, "Message",ExpressionUUID->"c14c35e1-e487-c742-a0da-128fdb9754d4"], +Cell[438252, 11091, 578, 12, 98, "Message",ExpressionUUID->"4396ed61-4d7e-6144-80f0-6d5649cfcb04"], +Cell[438833, 11105, 582, 12, 98, "Message",ExpressionUUID->"00fa2dcd-bc0b-9e44-9f00-15116f344aca"], +Cell[439418, 11119, 455, 10, 32, "Message",ExpressionUUID->"78b12bf1-7793-9341-ad5f-c7be406b8be6"], +Cell[439876, 11131, 170, 3, 41, "Output",ExpressionUUID->"9454fa52-ff74-094b-8081-2fc86cf96043"] +}, Open ]], +Cell[CellGroupData[{ +Cell[440083, 11139, 215, 6, 60, "Input",ExpressionUUID->"f9c66987-c237-7a40-a006-e20e260dbdcb"], +Cell[440301, 11147, 174, 3, 41, "Output",ExpressionUUID->"175eda7e-c091-3e4f-86ac-3148f0a9e904"] +}, Open ]], +Cell[440490, 11153, 249, 5, 109, "Input",ExpressionUUID->"770a9ed7-7938-9e48-be64-c31719ef3a6b"], +Cell[CellGroupData[{ +Cell[440764, 11162, 558, 19, 109, "Input",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], +Cell[441325, 11183, 169, 3, 109, "Output",ExpressionUUID->"e757c22c-d836-6c4a-a9f7-93553c4bb232"] +}, Open ]], +Cell[CellGroupData[{ +Cell[441531, 11191, 170, 5, 109, "Input",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], +Cell[441704, 11198, 173, 3, 109, "Output",ExpressionUUID->"7f3ee547-87eb-d74d-8f21-a8d42f1dde52"] +}, Open ]], +Cell[CellGroupData[{ +Cell[441914, 11206, 181, 5, 109, "Input",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], +Cell[442098, 11213, 173, 3, 109, "Output",ExpressionUUID->"0603b6e6-a8b7-1e45-9b15-2769b7fbc373"] +}, Open ]], +Cell[CellGroupData[{ +Cell[442308, 11221, 6055, 185, 109, "Input",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], +Cell[448366, 11408, 174, 3, 109, "Output",ExpressionUUID->"8b7a346f-cdda-e24e-b924-d6cfb1b3119a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[448577, 11416, 368, 9, 53, "Input",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], +Cell[448948, 11427, 172, 3, 41, "Output",ExpressionUUID->"3354b35a-acef-b846-b770-8d2e77b8f68b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[449157, 11435, 6122, 187, 900, "Input",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], +Cell[455282, 11624, 172, 3, 41, "Output",ExpressionUUID->"7b76721b-3d4c-c544-9113-83ba4f36ae7f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[455491, 11632, 368, 9, 53, "Input",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], +Cell[455862, 11643, 170, 3, 41, "Output",ExpressionUUID->"e9346704-c478-364d-b5eb-0aabe0e2e350"] +}, Open ]], +Cell[CellGroupData[{ +Cell[456069, 11651, 2663, 88, 435, "Input",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], +Cell[458735, 11741, 173, 3, 41, "Output",ExpressionUUID->"33b7f444-6995-e54b-a2a6-ad09016b1850"] +}, Open ]], +Cell[CellGroupData[{ +Cell[458945, 11749, 2603, 85, 435, "Input",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], +Cell[461551, 11836, 172, 3, 41, "Output",ExpressionUUID->"76ba8e46-11c7-f54d-bfb2-cca1b455c838"] +}, Open ]], +Cell[CellGroupData[{ +Cell[461760, 11844, 3712, 118, 575, "Input",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], +Cell[465475, 11964, 172, 3, 41, "Output",ExpressionUUID->"f7c29774-2634-5546-ab63-4d3ac6889f79"] +}, Open ]], +Cell[CellGroupData[{ +Cell[465684, 11972, 2052, 59, 276, "Input",ExpressionUUID->"55d51961-97f2-ed4d-8bf8-8a461d652ab4"], +Cell[467739, 12033, 573, 12, 98, "Message",ExpressionUUID->"3d5a1265-fb27-0b41-a549-5e326650d270"], +Cell[468315, 12047, 573, 12, 98, "Message",ExpressionUUID->"0726d23e-32d7-7a41-8d7f-0b62fec75437"], +Cell[468891, 12061, 579, 12, 98, "Message",ExpressionUUID->"b47482ef-bec0-234f-aeb7-9009a378a36d"], +Cell[469473, 12075, 458, 10, 32, "Message",ExpressionUUID->"e5e35e3a-0e40-c249-b6f3-c2a6a5a48740"], +Cell[469934, 12087, 170, 3, 41, "Output",ExpressionUUID->"b33776d0-2a41-694b-9af8-c4d483383e7c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[470141, 12095, 2052, 59, 276, "Input",ExpressionUUID->"9704b9d3-b449-2144-9970-6a7de047241d"], +Cell[472196, 12156, 573, 12, 98, "Message",ExpressionUUID->"ffb6a3c0-c488-cd48-870e-d66051362026"], +Cell[472772, 12170, 575, 12, 98, "Message",ExpressionUUID->"ca3fb11a-47f9-c542-a5c9-6e0087e110b9"], +Cell[473350, 12184, 579, 12, 98, "Message",ExpressionUUID->"7e4a0639-38a1-f74e-ab8e-5264cad2d48c"], +Cell[473932, 12198, 458, 10, 32, "Message",ExpressionUUID->"101eaea3-75b1-d942-9914-a0fe8a6e2f65"], +Cell[474393, 12210, 169, 3, 41, "Output",ExpressionUUID->"921a9c76-dcb9-484a-bc19-88ddead9467a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[474599, 12218, 2028, 55, 109, "Input",ExpressionUUID->"0fd90636-7592-fc40-bf9d-ae1cb915c656"], +Cell[476630, 12275, 20296, 381, 109, "Output",ExpressionUUID->"09d149ec-0259-a345-a282-743f783e7913"] +}, Open ]], +Cell[CellGroupData[{ +Cell[496963, 12661, 2146, 61, 109, "Input",ExpressionUUID->"90696e8b-5a2d-314c-8d58-ac84cb8f4d66"], +Cell[499112, 12724, 500, 11, 109, "Message",ExpressionUUID->"526ffad5-83ae-c149-9912-e494135b3fca"], +Cell[499615, 12737, 505, 11, 109, "Message",ExpressionUUID->"1adb1680-bdf2-4144-bcc9-7270c61e97b7"], +Cell[500123, 12750, 509, 11, 109, "Message",ExpressionUUID->"9e5d82d5-642b-cb46-8232-be5a5ca7050d"], +Cell[500635, 12763, 458, 10, 109, "Message",ExpressionUUID->"ef931413-f964-5b45-a755-76cab1ab5309"], +Cell[501096, 12775, 39609, 697, 109, "Output",ExpressionUUID->"23497d29-f516-664b-9ee0-ea8f6d88359c"] +}, Open ]], +Cell[540720, 13475, 209, 5, 109, "Input",ExpressionUUID->"ea848967-083d-ea47-bce0-5c3b93725916"], +Cell[CellGroupData[{ +Cell[540954, 13484, 1616, 48, 132, "Input",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], +Cell[542573, 13534, 589, 12, 118, "Message",ExpressionUUID->"100796fd-6fde-3c41-9088-c2d3ae2f8aeb"], +Cell[543165, 13548, 595, 12, 118, "Message",ExpressionUUID->"c91e75b4-9e2b-1e49-a5d5-453d5f87b5e3"], +Cell[543763, 13562, 596, 12, 118, "Message",ExpressionUUID->"5d8ad6a4-5b83-df49-8c4d-081081895528"], +Cell[544362, 13576, 458, 10, 109, "Message",ExpressionUUID->"26eed7af-5e0a-e840-9956-caca06166010"], +Cell[544823, 13588, 171, 3, 109, "Output",ExpressionUUID->"e4e35b92-e786-3044-bf1d-9c587b1357a2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[545031, 13596, 2249, 64, 109, "Input",ExpressionUUID->"80bba3bc-d8f7-1c4b-9262-0895c02ffd8f"], +Cell[547283, 13662, 573, 12, 109, "Message",ExpressionUUID->"6b65fc2b-3e1d-714d-aeb9-43978836a621"], +Cell[547859, 13676, 573, 12, 98, "Message",ExpressionUUID->"c4736a05-b0e1-5e49-b581-f3ce4c83fe21"], +Cell[548435, 13690, 579, 12, 98, "Message",ExpressionUUID->"ae8eb83c-0205-8046-8445-e249896b7ee5"], +Cell[549017, 13704, 458, 10, 32, "Message",ExpressionUUID->"5072d590-62c3-7a47-ae1b-6dd617a0b9dc"], +Cell[549478, 13716, 174, 3, 41, "Output",ExpressionUUID->"8dd7e1f9-bbea-d84b-ad0e-8922158aee9e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[549689, 13724, 2221, 64, 348, "Input",ExpressionUUID->"57976ffc-56f1-604b-8519-bead95265db8"], +Cell[551913, 13790, 573, 12, 109, "Message",ExpressionUUID->"7ab877ea-0e4b-f948-97c2-7ebafb7901b1"], +Cell[552489, 13804, 575, 12, 109, "Message",ExpressionUUID->"a87a57c5-24bc-dc4a-888a-b3c0095c10c4"], +Cell[553067, 13818, 577, 12, 109, "Message",ExpressionUUID->"d8af7fb1-1d43-664e-ae2d-698eaa818746"], +Cell[553647, 13832, 456, 10, 109, "Message",ExpressionUUID->"7abec434-52e8-c64c-ac86-90da0b27b8aa"], +Cell[554106, 13844, 172, 3, 109, "Output",ExpressionUUID->"164a4c34-f121-a445-b434-e34aa59666ab"] +}, Open ]], +Cell[CellGroupData[{ +Cell[554315, 13852, 2219, 64, 109, "Input",ExpressionUUID->"cfa37210-3ae7-3f49-b290-f19508c6d2f1"], +Cell[556537, 13918, 571, 12, 98, "Message",ExpressionUUID->"92295db4-13f0-284e-8173-df7f8dd20dcf"], +Cell[557111, 13932, 573, 12, 98, "Message",ExpressionUUID->"c6280e41-1347-0f47-81a9-bcd3687b7b73"], +Cell[557687, 13946, 579, 12, 98, "Message",ExpressionUUID->"2aa0f4b1-01ca-4644-884e-b759d4a75412"], +Cell[558269, 13960, 458, 10, 32, "Message",ExpressionUUID->"ab3c3bff-179e-9f4e-b56a-87d1b4f6fc04"], +Cell[558730, 13972, 172, 3, 41, "Output",ExpressionUUID->"f5b8154f-e61e-6a4e-b068-b6c1916773ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[558939, 13980, 211, 6, 60, "Input",ExpressionUUID->"7457b456-6d32-5b44-9679-346c5f5ac532"], +Cell[559153, 13988, 174, 3, 41, "Output",ExpressionUUID->"14434839-d5cf-b844-b849-b3b3102df434"] +}, Open ]], +Cell[559342, 13994, 186, 4, 36, "Input",ExpressionUUID->"15fe0063-8d53-48a3-a28b-6c80f458e893"] } ] *) diff --git a/Pu240_798-811_TitovAA/164-76_h_Pu240_18-19/h_164-76_Pu240_18-19_gid_Qw2.nb b/Pu240_798-811_TitovAA/164-76_h_Pu240_18-19/h_164-76_Pu240_18-19_gid_Qw2.nb index 1f902d9..ea82b1c 100644 --- a/Pu240_798-811_TitovAA/164-76_h_Pu240_18-19/h_164-76_Pu240_18-19_gid_Qw2.nb +++ b/Pu240_798-811_TitovAA/164-76_h_Pu240_18-19/h_164-76_Pu240_18-19_gid_Qw2.nb @@ -3,25 +3,4972 @@ (*** 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[ 457946, 13435] +NotebookOptionsPosition[ 419383, 12819] +NotebookOutlinePosition[ 419795, 12836] +CellTagsIndexPosition[ 419752, 12833] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f1", "="}]], "Input", + RowBox[{"d", "=", "1.78"}]], "Input", CellChangeTimes->{ - 3.9918505481678543`*^9},ExpressionUUID->"83cccf0d-dccb-fb42-a058-\ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.993816332414463*^9, 3.993816395113246*^9}, { + 3.99408327105175*^9, + 3.99408327225659*^9}},ExpressionUUID->"d303ed45-c1a3-4b14-8f66-\ +b10f36d962f0"], + +Cell[BoxData["1.78`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, {3.9938163104908867`*^9, 3.993816400323968*^9}}, + CellLabel-> + "Out[407]=",ExpressionUUID->"070e4a52-525e-44c8-99c6-719af0639bb7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.993816070416484*^9, 3.9938160711424847`*^9}}, + CellLabel-> + "In[408]:=",ExpressionUUID->"701ec475-b89f-4bab-98d2-9d586513a0c7"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, {3.993816310783677*^9, 3.9938164003801527`*^9}}, + CellLabel-> + "Out[408]=",ExpressionUUID->"48310c09-ecea-48f9-9571-88d8f38dccf2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "164"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.993816075114204*^9, 3.993816075786501*^9}}, + CellLabel-> + "In[409]:=",ExpressionUUID->"5793edf2-6fe4-46c4-a112-de1d147d0d8a"], + +Cell[BoxData["164"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, {3.99381631080079*^9, 3.9938164003966837`*^9}}, + CellLabel-> + "Out[409]=",ExpressionUUID->"5d30e475-70f4-4b78-9b69-4b4bf8a78b72"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel-> + "In[410]:=",ExpressionUUID->"6005175a-0fcb-4adf-bf6c-276191010b9c"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, {3.9938163108190804`*^9, 3.99381640041328*^9}}, + CellLabel-> + "Out[410]=",ExpressionUUID->"56131d3d-e7bf-423f-9a99-038b16e2d991"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel-> + "In[411]:=",ExpressionUUID->"e803105c-cfee-4637-a232-3efa83d154ad"], + +Cell[BoxData["0.5445000000000001`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, {3.99381631083608*^9, 3.9938164004361677`*^9}}, + CellLabel-> + "Out[411]=",ExpressionUUID->"e3a7dca1-0daa-4a70-af2b-8070dd0c7763"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel-> + "In[412]:=",ExpressionUUID->"0b87c224-acf8-43f2-ae1e-d055537656b1"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, {3.99381631085299*^9, 3.99381640045368*^9}}, + CellLabel-> + "Out[412]=",ExpressionUUID->"da26512d-e6bb-4e03-a414-ef499287f62a"] +}, 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[413]:=",ExpressionUUID->"7f5f817c-1099-4b82-a283-2ddfd7bf8cbe"], + +Cell[BoxData["6.349496262766175`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, {3.993816310870123*^9, 3.993816400471637*^9}}, + CellLabel-> + "Out[413]=",ExpressionUUID->"1e07203b-cc26-464e-b100-3f87c717e972"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel-> + "In[414]:=",ExpressionUUID->"de1da203-69eb-421a-8d24-da53d1bf565a"], + +Cell[BoxData["4.913555357735675`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, {3.993816310887587*^9, 3.993816400489262*^9}}, + CellLabel-> + "Out[414]=",ExpressionUUID->"a31ccf1c-97d3-4f0e-b17c-809b97470d85"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.96357"}]], "Input", + CellChangeTimes->{ + 3.991799283179735*^9, {3.993816155315236*^9, 3.99381616557413*^9}}, + CellLabel-> + "In[415]:=",ExpressionUUID->"a133035a-e138-4dae-a551-37d8cbc7c7ed"], + +Cell[BoxData["0.96357`"], "Output", + CellChangeTimes->{{3.9938163109056883`*^9, 3.993816400504654*^9}}, + CellLabel-> + "Out[415]=",ExpressionUUID->"319f64cb-bcee-4f50-92e8-689577ce13d0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.39003"}]], "Input", + CellChangeTimes->{ + 3.991799280663351*^9, {3.993816167313641*^9, 3.9938161733246517`*^9}}, + CellLabel-> + "In[416]:=",ExpressionUUID->"f971fe46-85ac-4caa-bd79-8068f5f3b584"], + +Cell[BoxData["0.39003`"], "Output", + CellChangeTimes->{{3.993816310923224*^9, 3.993816400519388*^9}}, + CellLabel-> + "Out[416]=",ExpressionUUID->"c1edc9fc-975a-4b91-b24a-cb4b147614ac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel-> + "In[417]:=",ExpressionUUID->"db003323-685f-4eb4-b3f8-41d3f48a6862"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, {3.993816310942574*^9, 3.993816400534342*^9}}, + CellLabel-> + "Out[417]=",ExpressionUUID->"2112f792-3cc4-468b-b530-7a7d853d7452"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel-> + "In[418]:=",ExpressionUUID->"68f8b6c6-9a63-49c0-a0fa-9b6641687ec7"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, {3.993816310960237*^9, 3.993816400549685*^9}}, + CellLabel-> + "Out[418]=",ExpressionUUID->"67813ae2-7479-4056-96e1-84cc06d2bc0e"] +}, 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[419]:=",ExpressionUUID->"0cb9f5f7-aaa3-4f85-90b3-70b154d6fca2"], + +Cell[BoxData["2.4652625900301657`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, {3.993816310977528*^9, 3.993816400564805*^9}}, + CellLabel-> + "Out[419]=",ExpressionUUID->"8e6cf7ab-6285-46a8-adef-c930d44f0ba5"] +}, 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[420]:=",ExpressionUUID->"5ab7da97-b7aa-45ec-91dc-f1953d564c11"], + +Cell[BoxData["1.4266899039519758`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, {3.993816310993836*^9, 3.993816400579666*^9}}, + CellLabel-> + "Out[420]=",ExpressionUUID->"288463c0-af4c-46e4-9e9a-a050711a7ceb"] +}, 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[421]:=",ExpressionUUID->"67081942-2246-4cf3-a954-423246e0fde3"], + +Cell[BoxData["0.3750149455401738`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, {3.993816311010377*^9, 3.993816400594367*^9}}, + CellLabel-> + "Out[421]=",ExpressionUUID->"7c9fb910-ac3c-493b-a787-da95d7f1de02"] +}, 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[422]:=",ExpressionUUID->"ac5da6a8-ff11-440c-bd29-59e5a7c3a7d4"], + +Cell[BoxData[ + RowBox[{"-", "0.07977775132414705`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, {3.993816311027995*^9, 3.9938164006102667`*^9}}, + CellLabel-> + "Out[422]=",ExpressionUUID->"4278249a-28fd-4dea-bfe1-40afc061efb0"] +}, 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[423]:=",ExpressionUUID->"2822002c-dcda-42c6-8589-3afc9e02d990"], + +Cell[BoxData[ + RowBox[{"-", "0.6284430544064189`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, {3.993816311033072*^9, 3.993816400624234*^9}}, + CellLabel-> + "Out[423]=",ExpressionUUID->"19acbecd-f218-4d5e-a673-5e364855eb81"] +}, 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[424]:=",ExpressionUUID->"967fa8d1-b61b-461f-8a2a-4a1f700753ee"], + +Cell[BoxData["0.7294972450656219`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, {3.993816311062511*^9, 3.993816400639195*^9}}, + CellLabel-> + "Out[424]=",ExpressionUUID->"cc093211-846f-4a1b-b175-c1fa85be212a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel-> + "In[425]:=",ExpressionUUID->"65107622-afe8-45c6-b172-0e7c4d49ad65"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, {3.9938163110790157`*^9, 3.993816400654043*^9}}, + CellLabel-> + "Out[425]=",ExpressionUUID->"adfaf786-0c23-46ca-8878-3fc99bbf12f4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel-> + "In[426]:=",ExpressionUUID->"5c49f85b-d5cf-4e2e-8b22-0685586394ae"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, {3.99381631109599*^9, 3.993816400670066*^9}}, + CellLabel-> + "Out[426]=",ExpressionUUID->"8deacd12-0357-415a-adad-699e85aedc35"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel-> + "In[427]:=",ExpressionUUID->"2b47516a-2f11-4580-bb32-5f52aaf28daf"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, {3.99381631111339*^9, 3.99381640068589*^9}}, + CellLabel-> + "Out[427]=",ExpressionUUID->"e4d146ce-c48a-44de-816d-1c7dec07bac2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel-> + "In[428]:=",ExpressionUUID->"5877abe8-d663-4922-925b-e0c6bdd91625"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, {3.993816311129064*^9, 3.993816400702038*^9}}, + CellLabel-> + "Out[428]=",ExpressionUUID->"de438067-0530-4c64-a916-b83b6ef6100e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel-> + "In[429]:=",ExpressionUUID->"3aa4d10c-2dfd-430e-b550-11b46b0477c3"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, {3.993816311145554*^9, 3.9938164007190237`*^9}}, + CellLabel-> + "Out[429]=",ExpressionUUID->"22fa14b3-41b3-400a-9bfd-f5623044eca5"] +}, 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.9938161841110783`*^9, 3.9938161842569923`*^9}}, + CellLabel-> + "In[430]:=",ExpressionUUID->"e7216b43-b306-4d81-963b-38a3393544f9"], + +Cell[BoxData["66"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, {3.993816311161642*^9, 3.993816400736003*^9}}, + CellLabel-> + "Out[430]=",ExpressionUUID->"a9ec36ee-806e-4330-9ccd-bae62826f734"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, {3.9938161866045017`*^9, 3.99381618669993*^9}}, + CellLabel-> + "In[431]:=",ExpressionUUID->"ddadd5a9-a1b0-4a74-bd9d-5b52410c5566"], + +Cell[BoxData["28"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, {3.993816311177599*^9, 3.993816400757028*^9}}, + CellLabel-> + "Out[431]=",ExpressionUUID->"19102fbd-8883-4973-ae9d-bd88bf65ec4c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel-> + "In[432]:=",ExpressionUUID->"ef729b71-0db6-4e5a-9ba6-569c9378ee5b"], + +Cell[BoxData["76"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, {3.993816311193193*^9, 3.993816400775269*^9}}, + CellLabel-> + "Out[432]=",ExpressionUUID->"1d23d63e-55bc-4f99-9a9f-339b401304cc"] +}, 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[433]:=",ExpressionUUID->"bf5fef2f-39eb-4128-8c53-56f91d769aff"], + +Cell[BoxData["0.11156611039794609`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, {3.993816311209059*^9, 3.993816400793248*^9}}, + CellLabel-> + "Out[433]=",ExpressionUUID->"cf379a31-935f-452f-87af-498f6d02d89b"] +}, 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[434]:=",ExpressionUUID->"337c6000-eab8-41a7-959a-18959e16d72c"], + +Cell[BoxData[ + RowBox[{"-", "2.562272143774069`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, {3.993816311224965*^9, 3.993816400810424*^9}}, + CellLabel-> + "Out[434]=",ExpressionUUID->"a1304c3a-6c43-4bde-9f95-89331d639ea8"] +}, 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[435]:=",ExpressionUUID->"96af02e7-d9eb-44ea-87d7-e937821ddb9a"], + +Cell[BoxData["17.58253870834664`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, {3.993816311240906*^9, 3.9938164008326178`*^9}}, + CellLabel-> + "Out[435]=",ExpressionUUID->"5b13add6-f111-4ab3-ba77-605ba02abf41"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel-> + "In[436]:=",ExpressionUUID->"1d1c7c2d-e048-4cb5-ac44-94fe39bbc733"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, {3.993816311257287*^9, 3.993816400852189*^9}}, + CellLabel-> + "Out[436]=",ExpressionUUID->"3a81e8db-0d7f-4448-94b9-b872c0a6541a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "2"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, + 3.993816201054872*^9}, + CellLabel-> + "In[437]:=",ExpressionUUID->"c834cebe-bb4f-4f37-bd8f-348f1622bf9e"], + +Cell[BoxData["2"], "Output", + CellChangeTimes->{{3.99381631127295*^9, 3.993816400871359*^9}}, + CellLabel-> + "Out[437]=",ExpressionUUID->"5bfafe20-e096-4ba6-9d0a-8940c1a68df5"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel-> + "In[438]:=",ExpressionUUID->"2766c3a7-b794-4d5d-9fbd-ae6b52f5e5a7"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.805"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.993816204826747*^9, 3.993816206119349*^9}}, + CellLabel-> + "In[439]:=",ExpressionUUID->"ebb63679-94ec-4fc4-93ac-6da663d01406"], + +Cell[BoxData["0.805`"], "Output", + CellChangeTimes->{{3.9938163113036537`*^9, 3.993816400895072*^9}}, + CellLabel-> + "Out[439]=",ExpressionUUID->"68aa2554-7239-499b-98b6-1ec530df400c"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel-> + "In[440]:=",ExpressionUUID->"9b8e2465-1314-4817-89d3-051295558029"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "2.65"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.993816211321389*^9, 3.9938162195378838`*^9}}, + CellLabel-> + "In[441]:=",ExpressionUUID->"a9bbdb13-1ee9-4d27-9b37-8258a7701c48"], + +Cell[BoxData["2.65`"], "Output", + CellChangeTimes->{{3.9938163113365593`*^9, 3.993816400917997*^9}}, + CellLabel-> + "Out[441]=",ExpressionUUID->"fd63263d-7cbb-4fcd-acc8-639f61085dfc"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel-> + "In[442]:=",ExpressionUUID->"ac1b4731-9eda-4b15-a0ad-7809214b2201"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.175"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, {3.9938162225291348`*^9, 3.993816223644052*^9}}, + CellLabel-> + "In[443]:=",ExpressionUUID->"afcc2917-cae8-49bf-ba53-04ac2065eca0"], + +Cell[BoxData["1.175`"], "Output", + CellChangeTimes->{{3.993816311366596*^9, 3.993816400940548*^9}}, + CellLabel-> + "Out[443]=",ExpressionUUID->"b05e9594-9354-49d2-a4a9-cc7b7412f6e0"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel-> + "In[444]:=",ExpressionUUID->"79b7e148-d680-469c-ae7a-38ca25f382e1"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "0.795"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, {3.9938162281192904`*^9, + 3.993816230831416*^9}}, + CellLabel-> + "In[445]:=",ExpressionUUID->"8454375f-9321-4e02-afe6-27edd3c1643c"], + +Cell[BoxData["0.795`"], "Output", + CellChangeTimes->{{3.993816311396524*^9, 3.993816400963438*^9}}, + CellLabel-> + "Out[445]=",ExpressionUUID->"166bffd2-d625-4756-a342-c1a78eebfc8e"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel-> + "In[446]:=",ExpressionUUID->"5a33270e-34f4-4323-82d0-70dc555e6edf"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.595"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.993816234625985*^9, + 3.993816236062304*^9}}, + CellLabel-> + "In[447]:=",ExpressionUUID->"3e6df14a-e8f4-45a3-8e48-55ebe5486ed6"], + +Cell[BoxData["0.595`"], "Output", + CellChangeTimes->{{3.993816311427802*^9, 3.9938164009852858`*^9}}, + CellLabel-> + "Out[447]=",ExpressionUUID->"d5219011-69ee-416e-b5c7-d87abc8266a5"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel-> + "In[448]:=",ExpressionUUID->"d7b01fc2-ded5-46f0-9860-7588154b7c15"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "1.47"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.993816238161579*^9, + 3.9938162401131277`*^9}}, + CellLabel-> + "In[449]:=",ExpressionUUID->"9b5e3193-878f-4049-ac26-33832ff9a585"], + +Cell[BoxData["1.47`"], "Output", + CellChangeTimes->{{3.993816311458173*^9, 3.9938164010070257`*^9}}, + CellLabel-> + "Out[449]=",ExpressionUUID->"8a5f7408-1d7c-4617-bbd6-7c9bfde7795e"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel-> + "In[450]:=",ExpressionUUID->"082437f0-3b56-4f04-9c0e-2fc4cea15500"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "0.655"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, {3.993816241842022*^9, 3.993816245056822*^9}}, + CellLabel-> + "In[451]:=",ExpressionUUID->"a95b9065-e407-4052-9cd0-914d577eba07"], + +Cell[BoxData["0.655`"], "Output", + CellChangeTimes->{{3.993816311488914*^9, 3.993816401028906*^9}}, + CellLabel-> + "Out[451]=",ExpressionUUID->"faa7c284-9b5d-4626-9a13-cfe3667474d6"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel-> + "In[452]:=",ExpressionUUID->"e0787538-609d-41e9-abf7-bd1b23d1e76d"], + +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[453]:=",ExpressionUUID->"7b31be1a-6d11-4236-8210-77a82c551374"], + +Cell[BoxData["0.10932371372103143`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, {3.993816311598846*^9, 3.993816401077582*^9}}, + CellLabel-> + "Out[453]=",ExpressionUUID->"e542e4ff-b489-4b0e-8d15-009bafabe86d"] +}, 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[454]:=",ExpressionUUID->"c2f45571-4655-4449-ab0f-26dc469de44c"], + +Cell[BoxData["9.790243175904545`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, {3.9938163116474113`*^9, 3.993816401110285*^9}}, + CellLabel-> + "Out[454]=",ExpressionUUID->"e24438fd-dd0c-48c3-aec6-96e409dc29a6"] +}, 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[455]:=",ExpressionUUID->"51551723-3d3b-47d7-bba0-130e06e2d503"], + +Cell[BoxData[ + RowBox[{"-", "16.70631937398676`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, {3.993816311688833*^9, 3.99381640114319*^9}}, + CellLabel-> + "Out[455]=",ExpressionUUID->"a9b47d28-e121-49bf-a4f2-3b64ec242508"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U41", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", "b2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + 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]", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "nn1", "*", "R1", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "nn1"}], ")"}], "/", "R1"}], ")"}], + "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "n2", "*", "R2", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "n2"}], ")"}], "/", "R2"}], ")"}], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], "/", + RowBox[{"(", + 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]", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "nn1", "*", "R1", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "nn1"}], ")"}], "/", "R1"}], ")"}], + "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "n2", "*", "R2", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "n2"}], ")"}], "/", "R2"}], ")"}], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], "/", + RowBox[{"(", + 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]", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "nn1", "*", "R1", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "nn1"}], ")"}], "/", "R1"}], ")"}], + "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "n2", "*", "R2", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "n2"}], ")"}], "/", "R2"}], ")"}], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], "/", + RowBox[{"(", + 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]", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "n1", "*", "R1", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "n1"}], ")"}], "/", "R1"}], ")"}], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "nn2", "*", "R2", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "nn2"}], ")"}], "/", "R2"}], ")"}], + "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], "/", + RowBox[{"(", + 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]", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "n1", "*", "R1", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "n1"}], ")"}], "/", "R1"}], ")"}], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "nn2", "*", "R2", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "nn2"}], ")"}], "/", "R2"}], ")"}], + "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], "/", + RowBox[{"(", + 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]", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "n1", "*", "R1", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "n1"}], ")"}], "/", "R1"}], ")"}], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "nn2", "*", "R2", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "nn2"}], ")"}], "/", "R2"}], ")"}], + "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], "/", + RowBox[{"(", + 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]", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "n1", "*", "R1", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "n1"}], ")"}], "/", "R1"}], ")"}], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "nn2", "*", "R2", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "nn2"}], ")"}], "/", "R2"}], ")"}], + "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], "/", + RowBox[{"(", + 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]", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "n1", "*", "R1", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "n1"}], ")"}], "/", "R1"}], ")"}], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "n2", "*", "R2", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "n2"}], ")"}], "/", "R2"}], ")"}], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], "/", + RowBox[{"(", + 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[456]:=",ExpressionUUID->"baed3f29-6f22-4591-a1fe-c43e962c69fa"], + +Cell[BoxData[ + RowBox[{"-", "21.21244105904564`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, {3.99381631175032*^9, 3.993816401178795*^9}}, + CellLabel-> + "Out[456]=",ExpressionUUID->"f82d7828-77aa-4bf4-9545-b52d924f9643"] +}, 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[457]:=",ExpressionUUID->"63424b29-1f79-4f5b-8071-a4fa52e7cebf"], + +Cell[BoxData[ + RowBox[{"-", "64.11746269097033`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, {3.993816311810264*^9, 3.993816401216831*^9}}, + CellLabel-> + "Out[457]=",ExpressionUUID->"249c682d-bd46-4e01-abb1-9e4b1ca32433"] +}, 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[458]:=",ExpressionUUID->"0abc3443-85a9-4675-9343-433b236f2c0e"], + +Cell[BoxData[ + RowBox[{"-", "162.12919789671096`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, {3.993816311880077*^9, 3.9938164012606087`*^9}}, + CellLabel-> + "Out[458]=",ExpressionUUID->"accab13d-983b-47bc-9b39-ca20cb75496c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel-> + "In[459]:=",ExpressionUUID->"f0e57101-b62d-4b65-b012-d842e7097718"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, {3.993816311896537*^9, 3.993816401279429*^9}}, + CellLabel-> + "Out[459]=",ExpressionUUID->"997a0042-33bc-435b-9020-40f3659a8a7a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel-> + "In[460]:=",ExpressionUUID->"98df0087-091d-45d7-b644-411824bb7934"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, {3.993816311909266*^9, 3.993816401294653*^9}}, + CellLabel-> + "Out[460]=",ExpressionUUID->"a7dbb396-ddfb-48f0-beb2-c6c26d93723b"] +}, 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[461]:=",ExpressionUUID->"491e8f78-a665-418a-b0c1-46cabcc8453b"], + +Cell[BoxData["137.278680377525`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, {3.993816311921467*^9, 3.993816401310416*^9}}, + CellLabel-> + "Out[461]=",ExpressionUUID->"c17d75af-0687-4d26-9d03-3de11056e458"] +}, 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[462]:=",ExpressionUUID->"0b8cd8a1-aeef-45df-a380-02d1616e4779"], + +Cell[BoxData[ + RowBox[{"-", "124.2735331996648`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, {3.9938163119334393`*^9, 3.993816401325693*^9}}, + CellLabel-> + "Out[462]=",ExpressionUUID->"72ceb4a8-eeeb-44c7-9edb-2c85f5f68f3d"] +}, 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[463]:=",ExpressionUUID->"f3d07f3e-212c-47f3-96a4-93c2020e5f81"], + +Cell[BoxData["136.79424869488386`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, {3.993816311945665*^9, 3.993816401340849*^9}}, + CellLabel-> + "Out[463]=",ExpressionUUID->"ab284176-d55e-4cb5-abe2-545b366b7a16"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel-> + "In[464]:=",ExpressionUUID->"534b7683-ea0b-4b69-852f-1588370b749b"], + +Cell[BoxData["0.3750149455401738`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, {3.9938163119574957`*^9, 3.993816401363001*^9}}, + CellLabel-> + "Out[464]=",ExpressionUUID->"f6d9cefb-2e7a-40d4-98cd-1429ab789aa1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel-> + "In[465]:=",ExpressionUUID->"2d46740e-c68a-425a-943c-b9d93b0e8239"], + +Cell[BoxData[ + RowBox[{"-", "0.07977775132414705`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, {3.9938163119693823`*^9, 3.99381640137784*^9}}, + CellLabel-> + "Out[465]=",ExpressionUUID->"18255060-36da-4599-8b0a-3e437a0dace8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel-> + "In[466]:=",ExpressionUUID->"501d88a7-dfc9-437f-9b8a-547de52dc8a0"], + +Cell[BoxData[ + RowBox[{"-", "0.6284430544064189`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, {3.9938163119814787`*^9, 3.993816401392654*^9}}, + CellLabel-> + "Out[466]=",ExpressionUUID->"39327496-f811-4b0f-bb0c-fe382d0cb2a9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel-> + "In[467]:=",ExpressionUUID->"de1cfc69-7ad2-4a7f-bbbb-4748f1a97881"], + +Cell[BoxData["0.7294972450656219`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, {3.993816311994028*^9, 3.99381640140742*^9}}, + CellLabel-> + "Out[467]=",ExpressionUUID->"1081d35f-af9b-4d5b-aa92-7ef7dbfa8979"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel-> + "In[468]:=",ExpressionUUID->"0e060f43-946a-41fb-85a0-7afd021b4e5f"], + +Cell[BoxData["2.4652625900301657`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, {3.993816312006279*^9, 3.99381640142347*^9}}, + CellLabel-> + "Out[468]=",ExpressionUUID->"0d3eac85-0fed-4780-b9a3-f2b875da5370"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel-> + "In[469]:=",ExpressionUUID->"acb49a6d-0ba0-4610-885a-fcfcdea1a736"], + +Cell[BoxData["1.4266899039519758`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, {3.993816312018448*^9, 3.993816401439527*^9}}, + CellLabel-> + "Out[469]=",ExpressionUUID->"c9aa39ef-8135-425d-9d5a-926aaee6ab8c"] +}, 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[470]:=",ExpressionUUID->"3f4bc025-fd64-4536-9b0f-7f85202adc92"], + +Cell[BoxData[ + RowBox[{"-", "36.59398535367672`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, {3.9938163120312033`*^9, 3.9938164014556637`*^9}}, + CellLabel-> + "Out[470]=",ExpressionUUID->"edb4a415-2e98-48eb-a1c2-7688fefa9102"] +}, 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[471]:=",ExpressionUUID->"2bedbda1-90c6-4297-a7a7-862198349712"], + +Cell[BoxData[ + RowBox[{"-", "6.706084141019179`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, {3.99381631203615*^9, 3.99381640147013*^9}}, + CellLabel-> + "Out[471]=",ExpressionUUID->"360176d4-36e9-49a0-aa8b-e339b4979ec3"] +}, 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[472]:=",ExpressionUUID->"b8c489e7-4e72-4a7e-97ad-648529130b83"], + +Cell[BoxData["100.68469502384829`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, {3.9938163120484467`*^9, 3.993816401484993*^9}}, + CellLabel-> + "Out[472]=",ExpressionUUID->"3dc24e9d-b851-4c1d-be7b-1e37971b12b5"] +}, 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[473]:=",ExpressionUUID->"006f7343-b9bc-43a2-9839-f2e6286ceea0"], + +Cell[BoxData[ + RowBox[{"-", "124.2735331996648`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, {3.99381631206076*^9, 3.9938164015001698`*^9}}, + CellLabel-> + "Out[473]=",ExpressionUUID->"a6760e9f-c59d-4795-9acd-c8f2dcd1ecba"] +}, 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[474]:=",ExpressionUUID->"eb5d7cbf-54a8-4b33-bc7a-f338cc61d020"], + +Cell[BoxData["130.0881645538647`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, {3.9938163120760603`*^9, 3.993816401514661*^9}}, + CellLabel-> + "Out[474]=",ExpressionUUID->"f45c3fba-c80d-450a-8cb5-82f9ab9cbf1f"] +}, 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[475]:=",ExpressionUUID->"09925dcf-c3a5-46c1-9871-fd3f2475a6e6"], + +Cell[BoxData["37.11735851847544`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, {3.993816312091509*^9, 3.9938164015309277`*^9}}, + CellLabel-> + "Out[475]=",ExpressionUUID->"5a7bd319-3af6-47cd-b5ef-7e48a8972595"] +}, 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[476]:=",ExpressionUUID->"e7697b38-341e-4909-ad80-aece3d833884"], + +Cell[BoxData["835.6594550727934`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, {3.9938163121038647`*^9, 3.993816401547245*^9}}, + CellLabel-> + "Out[476]=",ExpressionUUID->"1028d637-65d2-45d5-bd63-9d36d49e1763"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"f1", "=", "0.4682518995"}]], "Input", + CellChangeTimes->{3.9918505481678543`*^9, + 3.994083444239151*^9},ExpressionUUID->"83cccf0d-dccb-fb42-a058-\ 5e950c758893"], Cell[BoxData[""], "Input", @@ -30,9 +4977,9 @@ Cell[BoxData[""], "Input", e7a6896afd10"], Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", - CellChangeTimes->{ - 3.991850550777445*^9},ExpressionUUID->"b70cfd2b-21a1-8344-9518-\ + RowBox[{"f2", "=", "0.1138781255"}]], "Input", + CellChangeTimes->{3.991850550777445*^9, + 3.9940834487249947`*^9},ExpressionUUID->"b70cfd2b-21a1-8344-9518-\ 5e27a96171a9"], Cell[BoxData[""], "Input", @@ -1562,66 +6509,96 @@ MathPictureEnd 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"], +eJzVnGdgVUUWgENekkeIRCAEpWhiqAkEkIBUQekGYaUsZRdBmgYQRMSyCkhR +6VKWjgIKSFmpsiIIuLqr0lEUld5xBZQm0pl957yZc++83DPzsuLK/sjk3Zlv +zjn3zNyp907TTv2yuvXq1K97l07Jjfp26pPVvcszyQ2f6huI8uWKiMh1MPCX +mhwRFfgtIiK0YKy4Lg5BEPgtxA1xCILf73c6/vOBbfALrzBc/n+UHhNMDvxa +4opNoNi3eFl5IYwjchpPJkKYm8iJPFkUQj+RY3kyWbd+FE+WhDCayGEuEsFU +PX0oL6mcTg7iyYoQRhE5gCczdPJFnryPLMbrF3iymi7zWZ6sqZN9ebK2rr0P +Tz6gy+zFk/V0mT15soEuM4snG+syH+fJTJ3sGlovHtbTO/OSmunkYzz5iE52 +4MkWOtmeJ1vp5J94srVOtuXJtjrZmidRXSSRf+TJP+syW/LkozrZnCc76uQf +eLKTbmcznuysy3w4tF501dMzQ9Mf19Mb85qydJsa8WR3XWYDnuypy6zPk0/q +MuvyZG9d5oM8+ZQusw5PPq3LrM2TfXWZtXiyny6zJk8+q8uszpPP6zKr8eQL +usz7QuvFi7qkKrykl3RJGTw5QJdZiScH6uS9PPmyrr0CTw7WZZbnySE6mc6T +Q3XtZYNkoiSvXrlKZKJH7ld1PWnB3JH4L1qMGztOlC5dWpQpU0b06NFD3Lh+ +IxALaVHiyuUrombNmqJEiRLiyOEjUTLL0iVLMUvx4sVFlSpVxJLFSyJiMC1G +zJg+Q9StW1eULFlSpKaminr16onPPv0st4ddr+l2pQbtivAjsPqD1eKhhx4S +F36+gDfYs2dPMWL4CDLtx1M/iri44Ehrw+cb/FL+nt17xBNPPCG6dOkiUb9Y +tHCR2L9vv9Irdn69U5QtW1bs+HJHhN/DrmG6t0tLu3wINGrUSHyx/QvpPp84 +d/acSElJkZ4Jxh0/dlzs+m4XXsXKuObNm4sVy1fglXJGwG9gqPRcdkNG6A4q +RYZcu3pNFC1aFMvKJzPWqlVLfPftd3iVT8Zt3LBR1KlTR1MKhtWuXZtVOlJX +WpKUnjxxUlSsWFFmCYYdOnQQaz9ci1e3SXef/um0aNu2LdaQChUqoPsLFiwo +Ll+6TEYsfnex6Nixo2MEDmNG6o4vTqoP7D8gqlevrqnOysoSy5Yu01Q3adJE +TJo4Ce/lzOkzomnTpiI2NlYcPXJU5vND4Ynp06aL69euI7d71240dfOmzZ61 +YYzujxQy6tTJU57+WLd2HV7FybjDhw5jdYMrVWvAl/Hx8VBTZN4YMXfOXLxJ +8Fm5cuVE1apV4SnwenJe1226x1oxVG1UNn3y8SeiRYsWmu2FChXCB95tJ9g0 +dcpULa/bkLG6Icnao9K4cWOxfdt27VGBlsQpMZ84dPCQKF++vKZ0y+YtokGD +BppxNkPG6YYkaW3JmtVrRMOGDcX5c+fxDqGZGzN6TES89DxUk8mTJiMbqCoi +IyMDHp2oMHVP0HXfpbev48eNx8YQ6livXr2waOJlGtTR9u3bYzoU+8r3VlIj +AlqLFCkCVSFwFQxl1dIaG7clf9UtKRa0xKtHmaiTRXlykk4W4ckpOnknT07V +yTt4cppOFuLJ6TqZ6CIRnKE3Lgm8pDd1SQV4cqZO5ufJWTqZjydn6+TtPPmW +Tsbz5Ns6mZcn5+pkHE/O08k8PPmOTsby5HydzM2TC3TSz5MLdTImtF4s0tOj +eUnv6qSPJxfrZCRPLtHJXDy5VCe9oWUE3eCh5QRd56EVBF3jofcIuspDKwm6 +wkPvE3SJh1YRdJGHPiDol9CiXk1JF0KT1lDSz7zoDwk6z0NrCTrHQ+sIOstD +6wk6w0MfEXSahyrIuG7duuFQrHLlyoErCONwEA3DBsniCBo6yLS0NBrC9evX +D4dvwSG638gEHyDveYWyDYZDMO6Cq6gwZMbRTd4ppQdmI2A//kGO/PnzB3rc +4H2NHDGS7tw+y4nGXjU9PR3HITBMOPHDiYgkq55otx7l2cDdeHsVxj6DXh6E +Q4tSpUqhrNatW+MAMNmqK4+my+Ap0y3Z1eiu8xkKy3Q7hj5D1UMYEsPQOTAh +kmriRLVq1TSP7d2zF8ZD4uIv+LDjJHDgwIGiXbt2VA9NTNDUGG4iqcwbPGiw +GD5suHZ3JrG3UVUsIiXAhKJVq1bSu0alyiaYIMIQ/9jRY6hg/jvzRWZmZoqH +xCjWZf5sLgNNs2bOgrkxDaZhzgnz8EsXL0Xw8sNzJWN2cQ+xfta9PquZhqGE +mm0F6jOuPATEkIixr49VkzpSDx4Dz8FVukdcpLwzOavXHtfArF5l+fabb1Ed +XOXxEOO0T4UNlYJRotwy7LVh2Ew5dumT+mRWdPj+6N27t5jz9hy8usdDntfN +RYZpn5c8v8GBblsMY8J7ZRwsK0CFHz1qNM3CApVTrF+33lW8fncc/tnWSsrJ +OGgqYTbqmKPLz+thWyHDA2vTq1wItSIwS9bi+vfvTzNOr2KPMfhk2tRp+ODa +ith9b+Ha4iUvt8F/blsMRVxJxsEDASsgE8ZPIDOhF4PlH6eIY9xx+CdXppTn +3YtSqnRfGfoKPhBu69yi4+kJNpWpbQlM+Qy6TJjbu+NmvjkTfcmVqd/gBFg3 +gBbTVqbuOwrXFlOZennNbYuhTDNk3NkzZ9GswIiE+pFRI0eJfXv3IQstFHQS +zZo1SzMnK4fbFgNVkcOYBR44pwBZ0fmp9BM9vBEVpmLl3aSkJBiLaXEL5i8Q +ffr0YUs/N+suv1i4YKHWoq16fxUuOZ8/d96zS48232xUmGaaKkZ235rNNHTp +lWXcpo2bcMnT8W4Mjmxh+Ar/YXQA3g48H2nmZFU2tgVaZQ0MYr8//n04mgtQ +RSloqCg2xcrbMJbyejQHDBjAVpRYg7u6du2KTTg0xTAih+XwwGTBa3wWbb7P +qDAt9KojsQa3Mha6pwxYO6rIXAUKFIAOVNMv651WhO441Tna1sJVXhjXTJk8 +RSstt7xCVOYJhjK3aVPWy0VxLQ6aYugquTLPY/AGeFQNKUqxBa3fkT9MW0yl +6+U1ty2G1Ug1C9y6ZasYOmSoph629WBbkSsMrwL3y2J33Q7+yf2GNJkFkmBD +zK0Omsf69euz6u6gss8nS1ven/JJjFm3qh0wBVIdqbseq3n13d7So3PoKXcB +lDAZ7F0fbFYmma0M18E5qiZ+8c3Ob3AjBHZxoBuDQS/spga6N3r6wq0izE6Q +qiJvzHiDpjjKWhhfQ4PONUF3UhVRuzpA16hRQ7Rs2VLMnjUbXETb44wBanwC +7SUM2ORAWsybOw92p5IMkqNz4Ca354tbrfV2IWNistXE8N0bZgWpKC3atnUb +diqFCxfGTgWqcKCZVDcNS37Qj8EWWqTcSAPrlJgyYXI+eYdeG3ruCgS9QKD3 +j/DJMCEhAdeD3Hdo01WQKtXtMgfs2GZmZqI//QZL1AogjMRAAxQVNE6BqQu1 +525ZMeE5EYoEVLl3I6GNUwYnsaLDd6yXySkecqNz6Gyb7YZtpi1UDod5aCtB +hpegtxF0kIe2E3SAh74gaD8PfUnQPh7aQdBeHvqKoD089DVBwZ4iWG4CItZD +YNjXivWIy03i8oSZ41aSEpLj1+QNSfVRatRvZv2tJOXmeNKwIXEr3eyt5DKv +HFGU6vvNrL+VpPzmla+aR1xVyljdI7UMpcbnOK+XtkTeuF0kbCcP7Sboax7a +Q9BXPLSXoB08tN8jbjuPH/CI28bjBz3itvL4IbLYAB0maIsLQuYIJW3m8x8l +aBMPHSNoIw8dJ2gDD31P0Oc89G+CPuOhHwj6lIdOEPQvHjpJ0D956BRBn/DQ +jwR9zEM/EfQPHjpN0EehxXqGktaHJp2lpHW86HMEreWh8wR9yEM/E7SGhy4Q +tJqHfiHoAx66SNAqHrpE0Ps8dJmgv/PQFYJW8tBVgt7joWsErQgtseuUtDw0 +6QYlLeNFY5jLI2GxJU+kR8K7ljzO4NBGOj353yxkNJGLLGQMkQstpJ/IBRbS +6UXnW8hYIt+xkE5fPs9COpv6cy2k807InNBqgul5Kf1tiyRnG9LwjSmGtxM5 +20LmI3KWhXR2N960kAlEvmEhnZWMGRYykcjpFtJZkZff1+b4hbBsn7YE1yq8 +X5xSi3M5+LQFQ2fxOLh7TuPm7Fv52b5nUfszzCs3as8tp5+2YOisWE7h7VK5 +3d+yqIUX25sgKq/t+xYMC5M1k3lr1CqY7QUFpdn2kQuGRUjzJLtm2za60uz9 +ZUuIvol2fbbd2UipNaefs2B4F1kywW6JbQ9QvUOVg+9XMLybjBhvN8K2VRXu +BysYJpHmcdR+ABCyr0GfUdn2RXKkPJmUjyXlXovm+aRbmfX2cD9OwfAe0vl6 +UKey2L2sml8+417LsG5tOf0oBcMUsmBM0AK2cS9O5GgLWZLIkRayFJEjLGRp +IodbSGcuPsxCphL5mot0hgdplP6qRVJZymg4kAHDdJI5xEKWJ3KwhaxA5CAL +WZHsHGghK5FMw3EQGGYQ2d9CVibyJQtZhez8i4V01lYMR0xgWI3I5y1kdSKf +86wXNeiyn2d6Lcr/jEXT/UQaDrPAsDapMBxmgeEDJPMpC/kgyexlIeuRzCct +ZH0iDQdkYNiAtHe3kI1IpuEoDQyd8zQMR2lgmEkyu1nIJkRmO3QD052TNzp7 +pjej/J0smh4hsqOFbE4qHrWQLUmm4VAODJ2TOQyHcmDonMxhOJQDw7akvY2F +bEcyDYdyYOiczGE4lAPDR0l7CwvZgWQ+YiEfI9JwKAeGzskc2Q7lwHTnZI5M +iyTnjA7D8RwYZhHZ0EL2INJw6AaGzskbhkM3MMSTN3BYXcdCPk0y77eQz5DM +GhbyOZIpj70I7gn86hmoOtgAhmNKjN/vVxLatGlDEthR1gt0F/IgjbySDGPG +qcbp8gttvGLH7i+Rokq8Iq8pZI604OABj5Yqz2spkBOJg0li2f9CojOVe4Xk +lL5JluHAFI/uSrlJEnGgjQeMFbtJEvHz8niIl98vx8mqFDJxUu/KwVcfUgAo +8No8wxBXhrAixumPFD8vihKdO3fGl4eWL1sO78GxwuXKrTpwIPuMx4ffPsGL +r8WKFfPc4XPLYduF/1E6/v4dDvaLyPUfxyNRZA==\ +\>", "ImageResolution" -> 96., "LightDark" -> \ +"Light"],ImageRangeCache->{{{0., 359.}, {221., 0.}} -> {-19.402618477936908, \ +0.8923747627909967, 0.7099700316630947, \ +0.001262238128389079}},ExpressionUUID->"8a200671-82f1-364d-8dba-8342607ad7b7"], Cell[BoxData[ TagBox[ @@ -2020,68 +6997,106 @@ MathPictureEnd 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"], +eJzVXGmUFEUSbug5kEFuQRiRWxgYDmFmGJiBEVRuWFhwXcHHcx6HKCCzAquy +gLq8VZBBDmVRkFMRlCcCgoAil7sIrByK3Mdws3LfN+R2RFdFVZaRmd1t43N/ +TE9VVHzxfRmZlVUZVd3tsgf27tkve+Bz3bMrtHgxO6f3c90HVGje/8WAyZ/P +58t3IPCXVMEXE9gWPp/0MUbcFgfhI7AtxB1xED7C3+6P/+LFnt17xPPPPy9q +1KghqlWrJurUqSMGDhworl+77stAn1hx+NBhkZKSgn/gV6xYMV9+2PP5xVsj +3wIv9Mxv+Y8dMxZjVa9eHWPfuX3Hl2qMVdAdS6crDUP5Rc+ePUXJkiUtIcHP +hIQEcevmLcvDJIeLkeCOYZJixYkX27dtR58GDRqIevXqoe/wvw8XN2/cDChQ +64iVe2Pvnr1i0ReLxNUrV5E6ABfDhg0TTz31lK+JJXnL5i2ic+fOVlD4jBPL +li4TrVq1EpcvXUZMnz59xMgRI9MZSEwIVHaGDx08JOrWrSsWLlhoZdMv0tPT +KcP59fSpyjAJ7jD4p5NjJzlvf57YtXMXYS6cv4BJzsnJsZqllGLleZClCNSA +KtjL1OS1RYsWaHczVqpUictrQSa0nYATP58QqampYtrUaVbO/GLM24GT+NZt +KY8KurQQw8QzEmypN67fEJUrV3adGEo6T64CPSBWfLNCmasYywa9mZiYiMPa +HiyZmZli546duJemSZqbw/Y7e+YsjpLcUblWf5g5UhlsAsNhZ2XCuxNE69at +XZ1g5vDL6alVqxYOTFN6Tp44iR3jhPCLbt26ieVfLzemx83RwLJBZzVs2FCM +Hzc+bA43luNIs5TDbFWiRAnRrFkzGFD+EGmsDOVYw2zUW6PEvr37cIjBUH39 +tddF+/btufnMbggIAYFuht69e4v5n89XJitWT9fIgpw/dx7b+s3ybyi0ia4B +g43R09kj7NLFS2LEmyNgwg+5dZ78wfWmefPm+D8pKQldAz2oy9+pk6fYHgoI +N+ZPQZdhQTas34BXOfcpY6JLZ7B+PZ3dXVlZWXTmhUon5S948lpTnK9pBBOY +dcnRJE3myLIm4+LFi0Msml5N8e0B4cJRk93xG1u2AQMGiI9nfRzS5GVzaFKT +ZSXDyrbdzDirn1q2bCk2b9pMrYE5pEqVKmk6lExgt2/j9xvxsu3WffrU6V9c +nhSMqWGF4VP37LPPisWLFodCF6vOWBNrCMB4bNSokejUqZOYPm06tN9np+2r +ZV/h8L544SJeg+HGb3Tu6FQjlMtd8D6zbNmyGBZmG7jQdezYEWYhmpG0lKGE +kKnTLdwPW37AO6uDB3AJIbb9tE1UrVoV8CZqTw7hBjg5ORn+Aj0Hn35MgM1o +TzVrVq/BqzMkJd5K2Lix45AVLk39+vXDgd6A8Y8LkSvVUr5p4ya8HypTpgze +vMN9VSB2rIY2TQ+NCVFBikUx99O5onHjxniBgfwHJkurFTy9lVTVAq+WRQ9r +RpsKPxf8fxyvFLQGDq+Aj3w6K8bKD4ZCTNSEcGxOFOXWvb+W47ew/U7Vx7ht +8FcODPdoFSd4O/kx2nqcIXqUsT3G2HCWKQamxnebqj58FgJTjCoKT48OLeGj +IOw+wx5vBh8FYLe367ifjuNUHg+7L/Cnns/2xKk+DvYHGDxx0oqF/ZcNnnXJ +c4jbM8btSVKT4QMPvWZ2rk6Rh/PONgA2HqLIb5idK5PzSJdzLB2vQAnOZY8/ +SMffdpPFege/k6VEYhwbIqIMcbwTIqI0ISaoUyCNrBKkaiLfy7CXn7HhZ1EK +NikCdGFSOzkCdCFCTzGgndYmEGZayJiCtDtDjfGrVMYR48wI0LHE/ZEB7eiN +IcZZIWOc3dkujF81nd2ho3NCcb9N0T9VK+KAtwg41wBEp5u09ZnaPZaxXSPg +vPCAVwn4eXjAKwScbwCik+OuubVy3C/T1kK1exxjO0/AReEBzxFwsQGITo77 +l6G4n6WtJWr3eMZ2ioBLwwOeJOAy7wjn3H8m968NPOjkuC9XuxdgbMcZm4aR +C3GMsYWp4ijJX2EAopPjvjIU9yO0tUrtfg9jO0jA1eEBDxBwjQGITo77t6G4 +59HWv4LuumdowbkiBlfWGRkZUJ2A52n2IhHKX7B4rF27Ni7CT/x8gi4eR48c +RQWBYz77WRksKIcMGaI8bQsytn2MzWpocAirHsCQeCjRwBM2iLDuu3V21fHY +0WO4SgahEGb2x7NhLW9P/IEIuMa+dPESXfSXLlkatv69jM3KfDBX9kMRYrEe +ilg5DtpArF1Rs21vvvEmdhrsuat28mODOPH+e+9j8RcqP8C3Y/sOKEVxEwfX +gD00YNaSbNMTC3tRDE2zKlwkERL43sT3rM4J2j6c+SH2xZHDR9hTwrnpcdR8 +R2pMTwdsNTVr1hTnzp6T1EydMpW61E7snNlz0BeGM04EeEPK5WYnqVlHavL2 +62vttpry5cvDA11JDTDn5Nhl+KDtg8kfiKZNm2KuuT7jlr47SNd60mWqYdu6 +oB+4LA0dOhT3bA1Q91ry5RLlycDp2k66NhjHkj3cbV2uaqk0lmB4u3WNzh1N +VVqlLtTgqPmPdEJaTNIJCTMf7NnFDHjCAmU378m3e9duyQYlc+thDdn69+8v +ZkyfEYLCbbT1vTTlKaqevsJWzOPHjuMItiunsz6aJdq1a2c/ic/OzhZdu3bF +EwcOQzfC3Hzm9Bl2iHE1rq2MzUqjfUXhaohFrGPwXBRGGqiEfAekUE0XRgT0 +IJwhFStWFG3atIHRwF37OWU/UtI2BvVwF0Sn2OO4bwrF/Qfa2qx250pemxmb +hpELsYm4t4QH3CjL1wBdiZCPahgLq4aCk9/QgRsIuNUFRB+lOzcANIzOBIRb +P4Xivl4+J3n3IoxtLQG3RwD02EzczmUat3ao3Ysytm8JuDMCIHcJCj3EGuLe +ZQA6d8a4tVvtXoyxrWJsGkYuxErGFqaKFSR/rwHorGtwa5/avThjW87Y3Ix4 +hAN+TYz7w2P8ioB5BqBrfSof1TCWYGxLKdiBCIAem0Y0F2IJcWuegZUgJ8f9 +kNq9JGNbzNg0jFyIRcR9OAKgx2aS79RsnDU0734fY1tAwKMRAD22MLnnE/cx +A9BV/2LqEe4TrBTjNI9CHFfzKIEem0ZqKeLhgCZup3rpFIp499KMbS5j+294 +IT4l7hMGoKsuKx81iXYqwbh1Uu1+P2ObTcBTEQA9NhO3UxLHrdNB9ygXcOxj +8NoUvDNdtGhR9Bk8eDC7OPAo8xy1snJXSjX2gqBDhw7iQF5w9ucUlmFsH5Hq +M5bCaBdj4twVEfxbtXIVvGqFr8sGIEWKFMG3N1566aWQZX9Iss+S7MiLMfHu +Ygz+wcIfOvvqlauUgpDS63oqJB910hutMo2dXqjQWUtw/LN0OhUbZ2Q6aTtH +cvKiVKex5Vy5fAWbB+9feuV4clKWsc1gbE4fR6t4Y39DYeI/J2IJwyWUra1z +SqdTMs8bx2C4RRxbH0wOaWlp+P6rUZ/raah81OlssESjrBNjfUJBBd67NXUy +SnMSdkGaDSOs4sRZGuCNzSZNmuCfQkMiY5vK2KyOjLRwY88KXyz8AsOqeouT +M4WSczEogrv6JZITp/5CKECH55La/QHGNpmxaaRyISYR92UDEJ04RpNo11sP +8lENYznGNpGCXY0A6LFdcYXAI+UousNzTc3zIGObwNg0UrkQ7xL39QiAHptJ +PvI4jDfU7uUZ23jGphHNhRhH3DcjAHpsJvnI4zDeUrtXYGxjGJtGNBfibeK+ +HQHQYzPJRx6H8Y7avSJjy2VsGtFciFHELbynWkU65HHKZ6BwMJ6jQg2sxNhG +yLT5I0BzAjTyKxGjh9uvxlRmbG+ouDVt4OL8Q1YRY0Cjp5Jb04YqjG24zB0b +AZpToWlDFWL0cMeFjOEYNcqrMrbXZO74CNCcCncb8HBV4vEwFvB6PsTEHKbi +0ejl4gyVue8xoNFTyV1Aja7G2P4mcxeMAM2p0LSBizNYVpFgQKOnklvThuqM +7WWZu1AEaE6Fpg3VidHDfa8ak8TY/qrittoQ5ZKS/Z0W+Ipw27ZtMRys7lat +XMWuEzjJg+QGB9dId/MVoHiMBM2AdRocztufh9kI/GcLIUkkUZlfq598d/fN +H9s25YMpYtCgQZJt/Ljx4tVXX7Uy8EuZNRjbADn3RagR0XoPyLbBGIOXrNy2 +BfMXiO7duzuCsbbDDZEBqqwXJsHRrUH5cYTDCyduG9RackflcoIxh55sFiVx +ML6iV5GKx7eGYLzC1/ygKgXfP4TvKsL357jxW0OWyGXS6fpoVaTs8hl08eRJ +k/HlGCg7d+nSBV6c4aaHmowtR05qMeMQDbcyZdtmzphJw5F7xakmCfmLKolO +j4M5mm8bXbt6DSffQOJYccmM7QU5c8Utcb+qRGXPuzAYoDPhdzYC2rhX+5SS +uMxZ3Rppncq+RsF8D+8/wVwLf4Gxxp4QyZQaT5KCz4Lp1tn1nWt2TuUuy31V +bbQ6gMNwtj6yspIGNHoquUuo0bUZ23OqOBoVXJzechtKGdDoqeS+T42uw9h6 +ydylXWh0VGI47lIsGqN7eO5Xq6zL2HqoGEuHF6e7rKKMAY2eSm5NGx5mbNky +d9nw0M/I6EQDGj2zVco13PUYWzeZ+4EI0JwKTRvqEaOHu5waU5+xPa3i1rSh +PjE+LXM/qMakMLYuKm5NG1KIsYvMXd57ZqUy6D+rGDXKuThPquKUN8RBvU/K +yiuqMWmM7QkVdwVDHGR8QuaupMY0YGydVNyaNnBx/iirqGxAo6eSW9OGdMbW +QeauYkCjZ0cVt0Z5Q8bWXuauakCjpwfzUMgYTq+GsRFjayNzVzOg0bOtitut +HA9nMJ6tZMbqasYM8vRgktSYTMbWQqVXw51JjC1k7hpqTGPG9piMrmlAoyf3 +rX8TdxPG1kzmTjag0ZP7dQGT8izG9ogqjkZFFql4RFZeW43heLhc4GcwwN0q +bUHVAlZksNqBN6cmvT+JLW05jWsiNzN4n3l3C1rr163Hw9ZP9eHbFfA1nsB6 +nF3/NCWJmbLYupbY36aM1atXL/HJnE8kG/jA7+0F260Y/soJFPcfpkZEu4z1 +yiuvYOrdNvgRJMBrBaM4bqb2ZD26Zax4sfXHrViQtZfxgIERHljOBwcGlrC4 +nDoXcNyvRxLz9kenmGW/EQSVCL/fjwMrPj4eapjsCeb8tolHWn2SFt3SVTwW +R8AXuhy2V69ajfPA/n372dOK+8GWFFlsinFsRlq/ggb07dtXskGd2G4UNzad +6xh3t+zJLpijWdN6Z/w7+KqV2zbvs3miR48eSsGPk2BuUSRlOCpfqIPXI+Gn +BOE3ZeEwjDC4gATOR3YENGdszoIb94Nrg4hLXfZ1ae2/1+ILYvBjh3CGB+ZR +9rRpTuweHcH7e/by69wc1ZYx6WpMS/JMljEN1ZhWjC1JRjcyoNHTg8lQY1qT +ZzUZk6nGODfTVWVMYzWmLXlWljFN1Jh25FlRxmS5MAhxlhblZc9H1NH/QJ7l +ZExTNcZZciXKmGZqTEfyvJ/04pFH1ZhOhLlP5nlcjelM0YvJPM3VmD+RJ06u +MYRpqcZg6QF/CimGtvBIGzWmK3wWIM/2ak/8/J38TJ7pOG4bfgvel+9/Sn8S +OQ==\ +\>", "ImageResolution" -> 96., "LightDark" -> \ +"Light"],ImageRangeCache->{{{0., 359.}, {221., 0.}} -> {-3.233775858153751, \ +-0.007969775184554129, 0.11832856225129938, \ +0.0005589111396958131}},ExpressionUUID->"06204099-db57-8e4e-bcc4-\ +fa1ae37c0063"], Cell[BoxData[ TagBox[ @@ -2094,9 +7109,72 @@ Cell[BoxData[ Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", - RowBox[{"{", "}"}], "]"}]}]], "Input", - CellChangeTimes->{{3.991799458254999*^9, - 3.9917994623413925`*^9}},ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-\ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.005107"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.015156"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.024717"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.033493"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.041238"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.047751"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.052907"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.056635"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.058943"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.059883"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.059573"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.058155"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.055811"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.052723"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.049089"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.045084"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.040884"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.03663"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.03245"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.028437"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.024669"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.02119"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.018036"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.015213"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.012726"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.010557"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.008691"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.007099"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.005759"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.004637"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.00371"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.994083474760421*^9},ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-\ 5e6c7b4b5678"], Cell[BoxData[ @@ -2512,70 +7590,101 @@ MathPictureEnd 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"], +eJzdXHd8VUUWDqm7ZJWqCCgl9I5ACklIBJRqkKYroMGIgQhiIiAoP0AQpUtb +aYoEREBlVQQUUMD2c2VVQIoUEWnSi0hVUGbfmTdzzr2POXeS+OJvd//Iy7y5 +33fOd8/MnTtn7tyXljEoK7N/xqBHe2VUaj0gIyfr0V4DK7XKHuCrCisSElJk +v++vVqWQcF9ZhIS4PqaI38UB+PCVhbgmDsBH/svZ8l+U2PPdHtG3b19Ru3Zt +UaNGDdGgQQMxaNAg8esvv4YkSUyEOHTwkGjSpIn8A1yJEiVCQuFbSJiYMH4C +oCQyVOGnTpkqbdWsWVPavvb7tZBYq62iTlteuuKkqTCRmZkpSpcurYT4P6Oj +o8VvV39TCJsck41opw2bFGUnSuz4dofExMfHi0aNGkns6GdHi6tXrvoU8Doi +3K3x/Z7vxcoVK8XlS5elax9djBgxQnTr1i0kRUn+ZvM3omvXrsoofEaKNavX +iLZt24qLFy5KTr9+/cT4ceMTDJTwPLjSET544KBo2LChWP7uchXNMJGQkIAR +DvV2H8uaiXaakX9ecnSQ9/2wT+zetRs5534+J4Ock5OjTouVouL8pFIEakAV +fEv2iGvr1q1lvdNjTEyMKa5FDaZ1AE4cPyFiY2NF7rxcFbMwMWWy7yL+7XdX +HBl3cXk0E2WQoKVe+fWKqFKliuPCYN0FxMrXAmL9uvVsrMJVHbRm+fLlZbfW +nSU5OVns2rlLfovzCJrTh8b9dOYn2UsmTZyk2sPuI9bAjTb40FGZ8eIM0a5d +O0cj2H2EucNTr1492TFt4Tl54qRsGDIRJtLT08XaD9daw+P0Ea/qoLGaNm0q +pk+bnm8fTq7JR5xSDqNVqVKlRIsWLaBDheXRjYpQjupmEydMFHu/3yu7GHTV +USNHiQ4dOpjGM30iIAQEOj1kZWWJZe8sY4MV4e0uUVF+PvuzPNd1a9ehaZu7 +eAM33Nud7mEXzl8Q48aOgwE/z2cXED+437Rq1Ur+r1WrloT6WtArfqdOnjK2 +kE+4NX6MuyRF+fLfX8q7nPOSsblLMHDDvN3p5kpNTcUrL6/uXPHzX7xqiAtp +XoABTN1yPILm9pGqBuOSJUuCLRxebfZ1h3Dw8JSd9pupuoEDB4rFixbnafDS +PjxCk6qCoaKtTzNStVObNm3E5k2b8WxgDKlatWqcF8vtQJ/fxq83ytu2U/fp +U6evuz0xHmPzZcYcuj59+oj3Vr6XF3cRfMRSVBeA/piYmCi6dOki5ufOh/MP +0WH7YM0HsnufP3de3oNh4vfCpBdirVRT7PzzzHLlykmzMNrAja5Tp04wCuGI +5OkyLybcrhMUb8s3W+TM6sB+mUKIb7d/K6pVqwZ8m+uAGMIEuG7duvDnazn4 +DJMB0B71UPPpJ5/KuzMEJUoFbNrUadIr3Jr69+8vO3q8AR+ZR1+xSvmmjZvk +fKhs2bJy8g7zKp/tCA+3cd7U8DwqaKJcLH1zqWjWrJm8wUD8fYOlOguzexVU +LsGrp9xDzqhdyc93/zeOx/hrfYfXw0cRr1ppKxQq/mawGp2fOrLClm74oz7+ +jLr/U/VUig5s+juxdJfBbEtD3Z15xLU0OpWYln+yUwdIrgZdd0GFO48LDVlW +YIiGXQdxqw1F0DtOUITLjku1Eydt+W/EWpMf9HYgKNTgW37+00tbATl0Um/x +yDDO+lILh6x76AjnrL9ZCBxS5KE9grP+hoVD1p06JDCSs/k6bzPSbdPDexRn +fUkhcEiRh/a/cNYXWzhk3UPHXznriwqBQ4o8tBflrL8W2BOKum16eDfdO+Tn +wkLgkKLXeKRp7iE/X7VwyLqHDtN9W34usHDIuoeOGznr8wuBQ4qc2iWwGGcz +l7dZzG3Tw3txzvo8C4ese+gowVl/pRA4pEhp93r44h+zw2VKlpSUBGktPIjR +2QWsm0DWUb9+fZm9nTh+Qt1EIsTw4cPxeU3x4sVFnTp18NnP2Z/OoijTTack +d3Jz/ZL9Iya3ZI+qIamHZzJgZsMXG/Q61ZHDR2RedfjHw9LMksVLIPvTI3fH +jh3F9m3b5TfTeFvSHUUVbzUJUSvjOHVQK+MqJv468K+XVXTd2DFjZQPAN+fS +jV7BisijuFJc5F5GmbZlaj0awamoZQ2UNGzYMDF71uz8S6J4zUUhttVgLcTX +c3SPQSHzXpknxXgKkZNRNiIvoZB9P3gvq2ohFStWhGd3LiGvL3kdHiPlKyKl +7ZJsK5VaEvRjU2zg6su3JGoke2/RHVgLcSyCuXrLnNlz8iXkJi42c1zXmXLn +us5gcIJv+oYHq+ewpBJ4TX23+ztHXYRchFfNquUZpzU3uWOkG8s/FjELWOpe +FymOHjkqO7JeBFv02iKRlpamR8tZM2fJRWxYr4ELj9NwMxce/zWJ52Ra9ymm +jsGzLOg3IAfi6LsOcciENb0xz48RZcqUAQ2sBArDRPiQCCbdNHAm4NcbeE4Z +7lTHIvtGC5s8jkGVxRwcWXEL52c0mihh5JD1Z/FASV5RWc7PM2istIVNHolz +U545w1HlzTynHKdyKBq7xcImj0+jx7I8pzzncTAaK29hk0fi3MpzbuU8DkC9 +txWA/QT6rhjYX251qyRkpUDkbZz1x5FTmdd2m9tPfzQbw3MqcB77orGqFjZ5 +JE41nlOR89gH2dULwM7Es61hYZPeTPxai+dU4jw+jOzaFjZ5JE4dnlOZ85iO +51g3sOdUdvtJx6/1A5ExnPUeyGnAa4tx+yFOQ55ThfN4P7JvLwD778huZGGT +XuI05jlVOY9dkB1rYZNH4sTxnGqcx47IjrewySNxEnhOdc5jGrKbBvac6m4/ +hEzk/dTg/LRDdpKFTR6Jk8xzanIeWyE7pQDsu5CdamGTXuLcwXNqcR5bINu/ +/SDYubqe0EMmDM59x0L0hkiYPeoMy7TMWst9oiS1hV9qoeToerHAZ0FOky+c +v4BT+9WrVnsKrs1FORWlt1TSCzeX1/sGIDWCtBNyPfC3c8dO2FtgWkGu7Q42 +Kb4TFQcrrdchXvjqQtkCPx760ZiJ1OHCmYzi7kJxwU71IesGLHRiSvUDokRC +WqGQYKX6uoPNfXmuaN68uYy6qeHqclFqiuJao7hgJf1aCGxpWPX+KvaKqOuO +F0lqY+1V+U3/tSRfSox7b0yS2If7cSiuresiDd5CgH9flNqRh3XZ2dliwfwF ++Rcci4LbKcFBWCiIEhkZGaJHjx7yioLD0L4wVJ85fcbYAekxd4Cq9n5VBV0w +0Bt3oINAg8IFU7lyZdG+fXvoHKalnfpcqBqhqLv9okxBre8+EeKk8ZwGnMcG +yO5gYZNHkzEPdkPOt2lIuMdhJwzn0uS7Dn7tzHu8nfNoml90stgh3ya2h4pG +nArTfLNLAeyYZspdLXbobEzse3l2Y06FKYe6z2KHVFAOdT/PacL5phy2m4VN +HonTnefEch5p/aJHYE+Ndfsh5AO8nzjOD61YPWhhk0fipPOceM4jrUz2tLDJ +I3Ee4jkJnEd6HpJhYZNH4jzMc5pyHulJZC8LmzwS5xGek8h5pOfHmYH9JdHt +h5C9A5FJnHV61t+H15bk9kOcLJ6TzHmkHRqPWtjkkTh9eU4zziPtq+lnYZNH +4jzGc1I4j6bdTh6+U9y+TWwPFamGumto8XELUYIInh3Yc+4wEK8iPMcIl4cI +9AQvobmh7hckDrAQJYjgA3l4C0PdRSQOshAliOBP8nDTJsJzSBzsJxbKykOU +fF0BcgSohzfU4BkYpC0bv95ofDxImxtJ4RC/wkJccIiSO8TBotIhtm7ZKho3 +bgyzdOO0m/aUnsXSU0pn4a4uaDWQDObOy1Wnd71C07bT06j1adQarHUFreHY +0WOyN8AudVPkaMXsjOEoxTBYSwrh6hPe6KtQoYJ8bW3WzFm0qmAK1ElDHYUs +WIsMWhq8bLFt6za5yd8XdtN1QSubJmlDUVqwlhh0awKve/furp7n9NzaUHcM +tQ6z9rL8rjNoXZBdV69e3VuX1EBqhruuz2AsLGg1kNPD6MapaYMajmBphGtU ++0OrBpGiZ8+e8i0hGBChN/Xu3Rse85t6UltD3SFU9Yxf1R9dNTh+7Lh8lQpu +CYAZPHgwaGP1SN+kYqRfhelm1s5Qtx+JoyxECSL4szy8vaFuLxJHW4gSRPDn +HHCJvhsP7cHS87zNNEPdLiSOsRAlaLfhqIfHDoa6HYY6D98d0PcOLI3j4fcY +6rYhcbyFKEEEn8DD6dnZFixN5OGdDHWbkDjJQpQggr/Awzsb6r5C4uTADtQZ +DxFoCm+9i6FuAxKnWogSRPBpPLyroe5zJE7nifca6j5D4j8sRAki+Is8/D5D +3cdInGEhStAnhqMeHul59EeGox4e7zfUrTXUzbSYkL7XYml2YFfqhoc+wNIc +3mZ3Q90qJL7EE3sY6t5D4ssWogQRfC4PfwBBK7DksWn6QUPdMiTOsxAliOC5 +PDwdQW9jaT4P72moW4pEj639PRFEcOf+fol+CA+9gaWFgaAMg/XFCPd43yED +QQT3eGHjYbdNIprhvQx1C5Do8fpLL3f4ZMnjXZxH3K1K0TLDMw11c5Go3mwK +cpatj8FPJ+h9+IAZOnSocR5Ku6FImXqjq1Cyaz3fg123+/fJeZdRV2/3+CFL +6t23oGfTkc7sVv59/NHH8NMK8udxfJRixYrJt7WHDBliFEub2GZj6S0UW/B0 +OsqZTss/SNCgOS9fuownfl0oZQ5LmmZg6R3UFKxUWgcQdmeotEj+KU2UUmcZ +wjYdhS1DYcFKpLWwSxcvyROF31YJFBYgp6+hbipKfBclBiuh1r85BhvBIa10 +yDMuhNFGS1K13NrL8ptOa1VwqcfFxcnfsfFS1Q+1TMbSCteFGoy0Wq+LQJIL +v5rj0YyPoYxJWFrpGtEKmFlHKg2wgJmSkiL/GA390TPte/f/gkiB82g97qxY +vkK64tqDNg2Pw9L7fteme1Q2gsZgaRUPzzHU0ab51RYiJcqytMYBl2jaJD0S +Sx8GggbgoRFYWss7HoigYVhax8MHIYh2v6/n4U8iaAgK/IiH0151In7Cw4cY +6uj0P7UQQ93R+oyHP4Ug6g6f8/CnEUT9/F88nAJJY8UXga1KjdMH6zbwNocj +nCYwX/Jw6ik04/uKhz+DIJq3fs3DqbPSjH4TDx+FoB54qpt5OL1pQrnbFh7+ +HILuReJWHv48wjsjfDsPp5dqaI1lBw+nIehuJO4MbPrxWGqDpd28zYlok1bA +9/DwSWiTnpHt5eGTEZ6CpR94+FQEJWJpPw+fjiC5MixnRgd5+IsIvx1Lh3n4 +TATVRetHefhsBNXA0nEeLtNx+SMdFbF0iofLNDkSqm7G0tnAppdZaFEoRWLp +Am9TpmY3QtUVHiQ//0t+mMh2XJYtv74bUuQ/PkeLDQ==\ +\>", "ImageResolution" -> 96., "LightDark" -> \ +"Light"],ImageRangeCache->{{{0., 359.}, {221., 0.}} -> {-3.233775858153751, \ +-0.0043827503402644324, 0.11832856225129938, \ +0.0003073572253865838}},ExpressionUUID->"899e43aa-c372-6647-a3e4-\ +4952f308ab17"], Cell[BoxData[ TagBox[ @@ -4341,74 +9450,112 @@ MathPictureEnd 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"], +eJztXHd4VUUWj0leHiEQqkgnQKgh9GJAmiIlWUJvK0UIvUlVuiCudAGVIqgo +RXq3geIKKGB3daUIFoqCBRBcirTZe+beOe+elzl3XhJ2P/b79o93k5n5ze+c +OdPOlHtb9hzVv8+QnqMGpPWMazai57D+A9JGxjV9ZIQVFXFXWNhdP1i/CnFh +kdb/IiyMPOaKm+I4PKz/hbgljsPjP/N/afknAuTCfzIkn29nIN1JzmCuLKSH +yz8+MW/uPFGuXDlRvnx5MXDgQHHr5i0rFtIixbU/r4l69eqJ+Ph4cfLESb9D +OWjQILF0yVIZiubErINHFMTH2ALDZHax460dokWLFuLSvy6J69euS7IZ02eg +zLO/nRUxMTGS8MD+A0rm7vd2i+bNm3vLXAyPgm6ZERLQrFkz8cXnXzhljhAX +L1wUpUqVcixgx/3040/iyOEjMqSE3rxxU5QoUUKcP3eeFzoXHjkhvgQKvXH9 +hihSpIg0ZoST8b777hOHDx2WoVxO3NChQ8XyV5bLUDZ4RmIzmAaP7BCsgLS/ +/vKrqFq1qpPZfnbv3l288/Y7hPb9ve+LVq1a6WgnwyMagtWQ9vvvvhdJSUmE +tn///mLL5i2E1iqNKFOmjPjj4h82rc4cE+CRDeLroIDffv1Nq/eud3bJUG4n +bvjw4WLd2nWkDtIJGIMNq77R3qpClYD9+/aLTp06eQsYBQ8fxN9PWhE0v88/ ++5y0IugZEMrhxJ07ew5LoBRJSEgQVy5fkaEoTugjWKqmpLvs3LFTNG3aFGwu +uyN00Tmz54TldIiOHT0mWrduTQSOGjVKbN2y1VvgIBSYTAeE+fPmy1qGQWHI +kCHSpm5puXLlgsq0QvYTOsjYsWO9pfVDaamu4Skw6PVGm7c1DF89sT13NCC7 +I7KLAfkQIrsakJ0R2cOA7IDIXgZkW0T20dqmNQb7a9NbYv6BBkkpmHGIAdkc +OR8xIJsi5wgD8gHkHGVANkbOxwzIhogcq7VNfQyONzDVQ+REAzIJkY8bkLWx +xFMMyJrI+aQBWR2RTxmQVRE5XWubyhicqU1PhEc4BGcbJCVgxjkGZAVEzrWR +mXBD7OgoOR1ZQ6GoXbu2qFmzpmjUqJHYu2cvOzOVQ9nzbdmZ80jsaL+YNXOW +6Nixo8wGNEe/OSpLcOjgIX5uKYM6POvokDkPRcWBwDOnz8iQyrt40WIxZswY +x0qMIvFYuQtQEZPXoiY58BVO/3SaCF24YKGY9tQ0b6GlsPQLUajJp8nhmHvZ +S8tEhw4d0NygVIUKFcDstrkDPk4JFLMYxZh8nJyOWceNGyeio6NFyZIlRURE +BLgovK9THAUtQUEmX0eV55OPPxGJiYnSJYHJ/aUXXxKNGzcWf179k28+xbDW +XjDWmmoqOVxKbFi/gdRat27dUDG21opgKV8kbdbLH1IOQ7t27aTr7hYKTu/K +FSu9hRbGki4jnZXzh2Ids27csFE0adJEpgP+qy+/kmPKLz//wpu1IAp7hY5K +Ol8ol5MGFVa9enVZ2SARTMG2lAJow+WuETIw1t6NGqw0jKD5MOMqAzIvcq42 +IHMj5xoDMhaR6wzInCh9gwEZg5wbtbbJjkybtenRmL7FIMmPGbcakFHIud2A +jETO1wzICOR8w4AMR+SbRk4r6q1gs9zC/Dv5/DcQ7rFjcB2ZdvGgawh6lwdd +RXF/50FXkGk3D7qMoD3BBb+ESXuDk/7ApA946osI2meD7nZA4BcoUIwm4wXM +uN/OmAm/JtLJsnnTZpmldOnSolatWmLTxk1h2TUyz2PZDtgys7bDAv5Lv379 +RFpamnaz4xwW8SNHXOZcF8Xdpk0bsW3rNhnSjcxnUd7HKM/koah1/ocHPhQN +GzZkuX9D7k+QO1RH5Py586Jz586yiqpUqSKX+/nz5w9M3NIR+Rkr51OUYPJB +lISUlBSx4Dnpl4nfz/8uWrZsKX2SUydPaUvzM5bmc5RlckNUIz5x/ITcoBCu +CRosERsbC7WmlXcG5X1hrBlV60rent17RNu2bYleBQoUkH0BQjqH4DTK+wdp +eaFsyBz/4bioXLkyKR+4Xg8++CDbOn5CeV+SjuXte0TJegI/GLBWXYkaNWpA +S9Q5BadQxD/peKHzOGKdNGgLXbt2lenQ8l7b/pq2p55E8q+DR8ETmHSQHwWP +I+gQD/oBQYd50PcIOsKDvkXQUR50DEHHeNBRBH3Lg75B0HfB1jmCSd/z+Q8j +6AcepDpenz595OBgrU+tEDxj5NgL3cXByoEXmlLFihVxUIEtPBhQEpxG6oXx +Oc1DN9VUdvSALv7NEVn0sMgQOIuhTaIcdmuCkqts+EGOPHnyWI3WLtfMGTOx +5OaJzycHIVj7QMeEDgXOeUmjHJ9bjrKsVRq9VWEwmPz4ZNkJy5YtK7lguQ6D +mllWdiLLw1JZKxI1XYRHZXkVJ4e5HcIwD9OBNeE6YmLEvffeSywGm7vWkKL2 +qqXvMGnSJNGlSxdsh16YSGcYZPwP1RSnTJ4ipk+bTkrnRVsU+5uaQyxvQ7Rv +396xrqdQpRM4IJUqVRI/nvpRClj96mqRnJwcr2GMZE3mT2cykAQbE5ZLhbML ++DSwMXH1ylWskvT8oZkyA2r7WfNGGNWM4RtQNSfOas/SGbVokGLu03PlEZlb +PFgMLAehKpq4cKdkjtdIuqvlNapGcujgISkOQtk1NIWwUeTQ2MLnLUSZBfar +YJgK6EW9yVIsdej2gM2OFctXsHy6woVnQT+/hwHdumTnq7y6EweOLjT42bNm +Y9ezGqd4d9e7rur1u+Pkz+SkJzpxMFSCewahaA1/YFcmp6agqhJN0pThoC1Y +ziKJmzBhgtwt5YwZ5WGJ5xc/L7urqWLdJcqKLtk8rObWxaNiazhx0A1gHfLM +/GdQTZi7YH0SqNgod5z8OSskZXn34kjV6ZNTn5TdwK2dm/oerNNYjzo1LcWU +zWCiBKfYHQfbcmBLUwfRGQEcbhgnTXXqLlFWdMnmYTW3Lu46lVVa0wFd+P2C +VAZ2qdWcAecS3x6TDrAcjWBCSE1NreSdrMxsWqOqigb/BLpZoNpY6kA/zqWx +QWSIgpVN4bjZ8rtI3JrVa8SwYcOMdk5vLr9Yu2YtGb3efONNuX0Blxx007fP +u7CRt0HN9Lb1VtNj+q7lxH304UeiTp06LutGSS8WXFX4C54AWNvqFZW8k1Xd +mDYY1EwODqs6LDJIDgwOuTXWiQxRsLI2+E26Djlx4kS2BqI9zNW7d285cMMA +DN437NJYCwOdL+bzLmfkbdBQZ1ZGQ4/lQW0nLm/evPI41a2J0wJlqIomTk2O +pp0f1RDAm1m0cBGpNzdfwKXL41H7JmlKe2dviMTBUAxTJWfb7B7WANsql6Ic +W+W0RP4s6BLtYTW3Lrn4ylVd5NNPPhVTn5hKxMMeMOwvc5Whq3C/U+2u4sif +s+2W4GSBJNh/dYuDgRLOyDhxgSkit1PbTvmUTaK8ZavWAQsfNZG627FaTcfp +2X0ZtJS7Asp4KaxvD1nUMlQDZ6iZ+MXBrw+KwoULy11OmNDA6YU9emuiw94X +ahNhdkpVE3lh6Qu4sFHagn8NQzs3BAVPDj6Jrlu3rjxjfnnZy2CisChvBZSn +AiMnOGyOIy1WrVwFu7clPZh9GTCT2/LxRm31Jsy0iqGbN8QGUs3R6LNPP5PT +S6FCheT0Ak3YGiZVoWGjD2Y062dJgKd9/K9oKoaIi3BKqNsJdzcgmAXc9xDz +5csnd4HcJTTJyoONKp+TA84nkpOTpT39HpqofT/wyUACVBUMTtbSBY3o5ooK +zYhQJSDKVtV+whinFI5jqUM3bKgq+zJobJPu0XwT+xjr4awLFBE4bNQcDbpB +BzD/77yQ/Qi6wIP2IegiD/oAQX/woPcR9C8etBdBl3jQHgRdtkEF7SRZcOtx +F59Vdzz0/7jQ48Lx9O8OUei/FidLnv22/OexPr3jin3Hx0ViHPy1frrj5TtP +7f/J1pmUhbiAgMSMsMgcdfG/e3jldiHoOg96B0E3eNDbCLrpAknMTky6FZy0 +A5MET/0WBXnMVG9SZDiPfIMiI3jk6xQZySNfo0gfj9xOkVHBZtlG0/0801aK +zMYjt1CkhyO1mSI9DgM2UaRHL9hIkR7bSRsoMmewbdbT9FieaR1FeqxO1lJk +bh65hiLz8MjVFJmXR75Kkfl45CqKzM8jV1Lk3cFWXEHTC/BMyynSYzB5hSIL +2sgMX/tg3tWIlGsKReP3+xWD8y6eBPk0ar1M1Spkq6XWtOmP6tJdblSTo3Mt +TIZ0E+YyKqgwL0g5g+4rjaFKeYlKKcJLyRsi44uUsWgmGKVD8YKG+3bpyHJn +RtsgnqUcd7Gscy/huItj74DooF063MGEE3gnG4jS3eB9ntZeHPLqdncUb69e +veRuDrzhWbp0aR3vYspr7xnhOt29xldb7XAZBU4nihYtqr1rvIgy2jvWrjFp +IU0vHZy+gKbHu9KDJD1HkWV45LMUWZZHPkOR5XjkfIoszyPnUWQFHjmXIisG +2+Zpmp7AM82hyEo8cjZFJvLIWRRZmUfOpMgqPHIGRVblkdMpslqwbaZzfbBq +MHIah6zGS3+Ky1Odz/M3qnFNHvkkRdbikVMpsjaPfIIi6/DIKRR5b7C9JtP0 +JJ7pcYqsyyMnUWQ9G5l1L0LtjsIeuOU9uG7TRoiCBQvivRDd5fGJVCf7VD0j +LoQSfvXKVbnRP378eMwOr1l6CZ9AhdfnhevcCnXkAGeePXr0EH379lX3y8T2 +bdsBp92bGk+lNuClqjkFTjth+If5xrK9btk9jpI25EnV/Dp48GD5xqalssvT +GEN5GvE8akseXlKEq69uM7k1C2JsbGaEXWl4wfPc2XNaxsco4/08Y34nDq7+ +792zl20Ij1LGB7BnCI0Hoa7JQC+AO752yH7CVQJ1/UsnaDQV1AQF6VyKXK4G +Bjv3cGh0+dJlGYY7SSkpKVrPaBQVYr9JofUvcjuKwnXJtLQ0eewBkgYMGABX +H3TkIyl5U364GUGRzVxICRxO05vzTMMosgWPfIQik3nkUIpM4ZFDKPIvPHIw +RbbkkYMoMt1XNwbS9FY80wCKbM0j+1NkGx7ZjyI9vvnRlyLb8cg+FNmeR/am +yA7Btkmj6R2D03vR9E68pJ4U2ZlHPkyRHl8s6UGRf+WR3SnyIR7ZjSI9voLS +lSK7BdvmIU2edMig9C6U82Ee2Zkie9rI2+Vg+OXU/8SUJ2QS3LCCE1841jxz ++ox2IOxE9XG+9JJh58IvX1vY98E+nN7hxj7c0E9KStIK7kgFp/GCdY6FWuHV +r18f77HqJpMOVEpvXoqaWeFeSrFixeRbBbqZtT1l7MMz5nEMBo4P3LeAOzi7 +39sdcCTaUqq+ZiqodLg32aBBA5jmAlStKVV/cznhit6S55cQC7vLGcQ4wMwI +Dh04eBxjK8o4EJu+0HgQyi2B90VGjx7NkqZS0kFI6uUtgBnhxgp8ZQyI4AYM +fIPFCmvbaksqZLAthPcWfPKGU2pqqrylAJcZl7+yXHsUlEKZh/IDRzJFuj9q +JIEtaPownqk5RQ7nkc0o0uPzSA+iHjI8kkc2oZyjeeQDFPkoj2xMpbs/uSRj +G1GmsTxTA8o0jkfWp5wTeOR9FOnxcaa6FPk4j0yiyMk8sg4tkfszTjK2NmWa +Gpxek+b3+LhTDcrk8XGnapRzGo+sQpEzeGQiRc7ikQkU6fHBpwoUOTfYNuVp +iefzTGUp8lkeGU9lPmcjs+4gqOtbMMAqGnglH/5u3LBRN7aWoqo4XzzKgG+g +RjznsrsM6QSVgGfg60eLeUE6X0Btb8AKu3jx4vJ+V7hzywtKCNLXr1uvlVyM +FnEpL1m97QNrZPX6f3iI5StMy/ciL0V9mgfmE7jL6zDI0kQjSwHK97KZD+Yj +WOHr+fJRvhU8n9pugWMv+O6Tw6Wb2iTUh6Svmknh9jC8AetBKg95o5B0HfYO +ofEh1DYOvGgNn3DCQruuoDi/HEi5CSl1HoSihI8jOO9F2JTRSPC6TaDzDpSn +NHLkSBEXFydD7AeX7uhv75rS5f+34cvEYXf9GwRZrOc=\ +\>", "ImageResolution" -> 96., "LightDark" -> \ +"Light"],ImageRangeCache->{{{0., 359.}, {221., 0.}} -> {-14.857966328747292, \ +0.654633287374793, 0.6941460339291473, \ +0.0044903445173959475}},ExpressionUUID->"f3c0c3aa-fd64-8e41-bc0a-\ +ae36b33a37ec"], Cell[BoxData[ TagBox[ @@ -4816,74 +9963,112 @@ MathPictureEnd 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"], +eJzdXHmcFcURfriXisohiYgk3OxyH8t9ihpuUAQBIRiWS+QQAgJKAEVQETAg +5ieHoKhRMREP5BBFIsagGBWjUcSTUw3KJcihYmeqprtq5lk1szwf/kz+2Lcz +1fV1fV19TFd3z3QpuG7o4JEF110zsKB8uzEFo4deM3Bs+bajxniijCKJRJFt +3l+18olM79okEqGfOeaE2Q4/3rUx35vt8HPy1wX4L8MMHjzYlCpVyjRo0MC7 +83+LFi1qvvv2O9Soj7/ZZsniJZBqqlevbs4991y83vbJNj85yyyYv8DUqFHD +VKtWzQwbNswc+foIQb86+JUZOnQoQho2bGh69OhhdmzfUctCd+7YiUku9xIl +SiROs0xm3j4TtFDzNKs/d85ck5uba/Ly8tDU9ye+T+TG5pUVzMuVOpEplLhK +SrxUD5UP+9sruKlbt65Z8dQK786XNWnShKw3sLI3N79p+vfvH6qDB+5/wHTt +2tUc+uoQWr/xxhvBsX5yjunUqZO5Y/YdVMjVq1ZjnRw7eixRJ5At+N8vop/t +2mfWmg4dOpivD39tvv3mWzN8+HBz+4zbqwuQzEKWIk/Ani6UrILvnAE2ac9/ +9mALue/e+6xbM8ycP3qN/bsTeFfXZnThhReim4EC/EFzKFmyJF5/8vEn9axD +qlatavZ+uZccAtmUKVPGHD923GaVYT7d/Sk2Wv/O/+3du7d5Zs0zeFc7wnHt +2rVDucsfGnrFihUlx2UVsoSS4zILV2rb0AbaHPbv249VMnvWbNuoss20m6eZ +eXfOI8K2KuoHyAEk6It69ephT4A714ignLVr1w7p9ezZ07y88WXVZ67lQAu5 +4IILsNc6bIsWLcx7W95THZAtFKmmakMtZkXfQYMCpWjatCloJvItEnoWlAy6 +guCgjf/YiA3IU6PaO3jgIMq8Gky4hgfNe9bMWUTg6RVPm1q1akHhxZ7onPPF +ni+wNoOOveqqq8y659apzskRilMjwjlKEa1zBgdKBYyfX/e8dY4/8LpSWVTC +jT0bXthgSpcujWPQRx9+ZD7/7HPTq1cvM33adBq+oI23atUK2yx47Pzzz4fu +VzfCIV6zxkIFHQKPkiefeDJ2nAkWQe+ScrGsN4ZY2KubXjWNGzcODMZZMIiY +/Px89GfYG9nYYWBQgUGkbdu2pmXLllAvrpXNv3u+ad++PZYOqnzEiBFmwoQJ +UY748osvxZbhFU51xBkC+2oRjpBKZB1xtYVB1Xk9N+CITHPvknvNLdNvcZB8 +q1q5cmWzfZs/22hoW0m5cuWwwK5fQFYwSHttMbJfaIPG1ve2qqU/U6CsDy4/ +KIYtuHtsv/7a6ziswJ3r+fBoqVSpEt7l21yAabNmzcwLf3sh6IxFCxdhu2Vn +ZGAX+Ob4N6EsoWPu2rkL72raLO3I6EhnW9bQgDa/sZl8Cf3f83mejMoqZDly +ZXiOXLyQk3LMu++8i6V6du2z2NlhvO7WrRv0Lir1Y399DOcw0Lic00AX9MaO +HQuDh3taQbe44YYbXO2Zh/78kGndurWbN0KXAC7du3c3S+9bCjQTzjnAADoe +NGXwMcwTvalRbgQ0qxCFiMKfLhTQ+meAZfXG62/gnAEGPniQw4PfK1wji4QJ +o5sYNbCWIPf69evDtAL/Xnn5FfuUyTZHjxw148ePx0YDj+l+/frBI9x1pBc3 +vGg6duyI5HJsdnfOvdNUqVIFpw4jR47EDlVN0M+OZixBzhBKYad3WgxSy0Ig +rLHN2E9/6n8jvaIv9ZLXw0+RKCnmdRoIzhJyLXoyMs5FvTr7x9r4KWT/p+z5 +qmhy1Teiq8ZCtg01WYqI3J+Peaujd62EmJ4ZTKcsnpRVnFoqKuEynEZKTwSV +skL5hFg/kVxWf5riAL7S4xFKlNPjUbR+KMPfx2IwXJ7l6dDM0Hj8NQbDuUcw +ztRy/8spwDCjCO5ZWu6P/kgMJmeFefwlOT1by2mZbj07nGcEz8Jr5mg8HonB +cO4RjE/Xcl9IWRRNAT2f3HhWDJpZ3k2Yc3TMGZrFeYQungJ6LqFLxqCZ7xzC +lEpuO2dqdmaRyi9FDOc+kxJK64ySMDMIU0bHSA9W/J1O6LIxaLY4nW5/rWOk +iRf+3kQWy6WAnkLoCjFo5juFbv2wK3Jx2x9LMjGQad68OUbWO3fszLYQWAKA +dQ4IAyDm8UIAGqJ379qNNr20hFvdh/n/pEmTUEMaXKTZF/5OJNL+EnnC79/a ++jHxhvgSFtghQy9+caunsPJas2ZN5AjZPPLwIxBMuLHcywFDj8OHDtOTD9ZT +UqJ+PdVRVUvdf/TaFVwyYFdwrWd9GfB0Cw1Odtutt2FVwZ3DBlcxMyzFhQsW +4voVBIxgb8u7W8yqlauksfTscAu5nm7ziHHc2qlrolAquzRA7MBtsEljAo/L +Bx94EGtg185d4pB0jubO64hcdSIXt3bpyMGOxIH9B0LkYO3F1atz8bJHlqEu +NGccoXEal+SlsVSvNYhI3JqhIwKLUbDkFSQCRkePHh1qYIvvWWzatGmDXpcq +7pwwpTF0W4soxa3eOUpQGZJvJk+ejHfOPMTca1avUftBMa3iriVydWJblWvz +jlxgwSnUqqCNB8nBFpRbYlLJsb+YUt1Q17TmQl0TRr5gP59x2wxckkjuhu9v +fT8kswtLIdmoUaPM/UvvV2kW13w4jNpcPUvYHwaVNSfbi7LNZ59+hg3aLori +claXLl0yrfMKCgpM3759aX0U6heG6n1794nNTuV3DTnUX1+jZ4u0+FPMpq1/ +fj22PiAInvdY0I4BNBCoUOgwFSpUwDV+r3FIk67i4bplKv56lvhoLKEVZDCh +G8Wg2SJjGuuYkprFAqraJimg+5PtZjFo5vs7stg8gEHBuZqd31IWLXU7Krov +oVvFoJllHyLVWseU0iz2oszaxKDZImMu0jG/0Cz2IPTFKaAvp9JeEoNmvpfT +bVsd80vN4qWEbpcCuiuh28egmS9jOuiY8zSLHclDHZNb7XlhOx3ptrNup7Rm +px2hu6SAbkvorjFo5suYS3XM+ZrFiwjdLQbNFhlzeaExbei2u44po7FsRege +MWi2yJgrdMwFmsXmhO6ZAroZoXvFoJkvY3ont9Cymp3GhLlSt1M2bIcxfXTM +rzSLDQjdNwV0PqF/G4Nmvozpp2N+rVmsKySkkk9tYtE/Bs3MGeNvN6Y7ZHZp +sFMOe1jFixdHnYkTJ4rzr3Ja4WoQUX/f79SEyW72ddlll8EpM7xTabIXmdxA +Sy7dgXB2MCTFP9gsLlmyZAaEQB6kWLFiuJc4YcIEkXF5zbF5xH0QcU89JM4J +hsT4B5EX1PjRI0fJD3HuVcnmEtnBRDZdIbJzNCyR2PAH/yxZjpaTKp85DSFO +6YqWHacjXx/BMh4+dPgHnJL8VEHzXWXieTXxTFcInWGbL5zBgfAxwFFcRq4Q +dmEVQYWdma5Q2pGEYaJRo0Z4lCmKZEXNk1IC+9SkKczOtL8Q0U69aWpUnatM +pcYw1DL9UfG1O98Dp0jg9Bn8RZHjuuaqH+YTSTWQdgMHHAOEzLVqrKQ5hx+F +w30m0vOyUpg9Y0bomMqaRZ5OjUwBzZPHa2PQzJcxo3SM1P3wl8OO0QE0KlYJ +22HN3+t2qmp2OEwdkwKaw+qxMWjmy5jrdEyuZpEXZMbFoNkiY8brmDzNorRo +HGE7L2xbQkewqKax4P2h61NA837WDTFoZs6YiTqmumaRd0r/kNx+q4ftsOYk +3U4NzQ7vek9OAc27+FNi0MxX2puPsF1Ts11ESIhgUTPMogjd3qRjJNkJAk49 +OeB3BLw5BohKrD5NV68tyI4TcHoMEJVY/RZdvY4gOyrIghYxpQ7lLqlHWJQi +y8OU2W0nBzxEwBkxQFRi9dt19XqC7AABZ8YAUemgkBphsb4g2yfIImxLWewl +PrN9YJrjaHeaHF4R6ty5M2YHc1gvChQnPfWJDzO7w2d2CveXczAn4A3TSkiG +QAiK7/0XI718QbaHGP/RMj6128pOBq+ajRs3LiSDF17ghTC/8Ap/5Mqs5xDr +dG0tOxk0IPcKlZM99eRTZuDAgcwQY1TJr58LMvZwesPoDGy59r05kkG4OHvW +bIkrek5iyN5Mb1Cdg9vP0DbhNDgE1qtWrsIT+/v37RfbqnQwczdxv5N4piuo +dsE/1O49i+7BvVVYQ+vTpw/su0rdns+JMrF5sc3xZANpJ4M3J13Tkw4eNRJk +O4jXXaHOnc6N6WNHj+EA6jlJ54UcmM2fQoNjilGxGzuhpqGmVj69EshIp0Ck +k7/bBJn1UqpBsnumwHAN++DujQevDYltnFfeJTLWSS5Cda+QUHdOUm8iyD4i +A3f7mUlPWAn4IQHnxwBRidUX6OpNBdlWAi4MAFGnKSW9LwAXJKs3E5S2UBaL +dFq8zcLq9+jqzQXZvwm4OAaISqy+RFdvIcjeEmQRFluQHQkYYbulINtMmd0X +A0QlVl+qq7cSZK8R8P4YICqx+gOFVk9KDdrBlNaC0ibK4kFRHZNY6c86mQsF +2UYCPhQDRCVWf1hXbyPIXhJkERZ5j1YCRti+SJBtoMwizlDzTjKrRxzovliQ +rSdgxMn5i0mJ1SOOz18iyNYJsgiLl5CddXQVfIUAtX8jANeS+nJRHZNYKeLl +i7aCbDUBn4gBotIaITXCIh9+WCWkRlhsL8hWUGYR77a1J6UV4StZvYNGC4FP ++8BTFF1CbAETKpi7wI7tooWLxOiyQ7iK8Gqlz+yURpebXtmEyRAFQzLs4MCp +TW/WLM5mOgqy5YLMevUnijOHDBliHl32aEgGOu4jEdJUik/8LE9qwKcizoT3 +g8H1QRm8wQt4jWEnbfBBrquJa3rjzBzz9ltv40qIm4oDBtq1NyX32wTGmOw/ +5rSGOKUrsnQ7jBA+ZGRkYKvJycmBFQSxH3UmLsvo6hlild44MgeDGdCFmoVr ++LoE9PSPP/pY7D1dBNlDxHNtbOtLNawE7vCWelAGazOuPFLr60K8HhZS2acm +zaHmXfPuws3ZoOzx5Y+bQYMGqVy7CrIHif+zlmtajj/DIQv4ZMaHH2A8hE0K +ngleZxOrnA8wMqHnfEKpRqDu2QJfeYFd4jp16mB/9UZAsU9cKsiWEhl/jBAf +nHzck9Wf19UvE2RLCLg+BsixEl79TVfvRkqLhdQIO5cLsoWCLGgbU/jULL/m +t0G3012Q3U3AF2OAHMrj1d919R6C7C4CvhQD5CUjvPqHrn6FIJtLwI06sKcg +myPIImz3JDsSMMI2n8y+g65e0dV7C7KZBNwUA+TNFbx6VVe/kpRm0NU/k9tb +H0q6la5e0/PsK8imEfD1GCBv5uHVG7o6H+ifSlebdfV+gmwKAd+MAfL2LV79 +S1e/ipQm0dVbuvrvSIlfFHxbV+8vyCYQ8N8xQFRi9Xd09QJSGkdX7+rqAwQZ +v9K1JblFDaAkVnpPz30gKY2mq626+iBS4rek3tfVBwuyEYIswiK/PyMBI2wP +IeAwIfUDHXg1AfnqY119KCkx1U98dX/2dlKhphNDaOa+9ehNg91nHuELZs6w +9Eb/NVoDCqxL23V99TOLSpzpJhx2uod30iRE8jb3kO1hCsoHC93ULxgqFtb+ +cEHGA8cO3757Dz0u+it2MkbRAA9pu8Km4oI31RQGYWyAh/LdYQNxkVhhyzKS +DPAj7NOwqbjwqrCmeBDhh/hnhash1ywKa2oUGcA5ESZ+Hm6MygfMzrH9AV6V +dkmeWPqUAY+hPJHcEzaiRCXOyIABA3AxA7amK1WqJBn5PWXN0+kvwgOOHmhk +YDwDzaJs2bLi5xjGkHs4MPzSz14a/vjN6050tVdX50cer+3t19XHkxKvWh7Q +1fn5ezGV4qCuzi/h82r8oYB6Rnju0JJkh/U8/0DqzUj9iK4+mdR5+/CYrj6F +8synq+O6+k2UZ11S/1ZXn0pKeGQOB54Tuvo0UqpKQEwpomNuJc2KYUyGjplB +dvAQcBZhsnTMLNIsFcacrmPwQMcZIMqiK0yJ+FQLhlVnk2aJ5NaD0p/J1+Hi +0vE65ivdiSL/BdTcD9k=\ +\>", "ImageResolution" -> 96., "LightDark" -> \ +"Light"],ImageRangeCache->{{{0., 359.}, {221., 0.}} -> {-1.6168853824798513, \ +-0.009969067956413457, 0.059164187941960496, \ +0.0006991192353860321}},ExpressionUUID->"fb5ee406-78d5-a849-9c81-\ +3ea500ee883f"], Cell[BoxData[ TagBox[ @@ -6656,74 +11841,112 @@ MathPictureEnd 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"], +eJztXHd4VUUWj0leHiEQqkgnQKgh9GJAmiIlWUJvK0UIvUlVuiCudAGVIqgo +RXq3geIKKGB3daUIFoqCBRBcirTZe+beOe+elzl3XhJ2P/b79o93k5n5ze+c +OdPOlHtb9hzVv8+QnqMGpPWMazai57D+A9JGxjV9ZIQVFXFXWNhdP1i/CnFh +kdb/IiyMPOaKm+I4PKz/hbgljsPjP/N/afknAuTCfzIkn29nIN1JzmCuLKSH +yz8+MW/uPFGuXDlRvnx5MXDgQHHr5i0rFtIixbU/r4l69eqJ+Ph4cfLESb9D +OWjQILF0yVIZiubErINHFMTH2ALDZHax460dokWLFuLSvy6J69euS7IZ02eg +zLO/nRUxMTGS8MD+A0rm7vd2i+bNm3vLXAyPgm6ZERLQrFkz8cXnXzhljhAX +L1wUpUqVcixgx/3040/iyOEjMqSE3rxxU5QoUUKcP3eeFzoXHjkhvgQKvXH9 +hihSpIg0ZoST8b777hOHDx2WoVxO3NChQ8XyV5bLUDZ4RmIzmAaP7BCsgLS/ +/vKrqFq1qpPZfnbv3l288/Y7hPb9ve+LVq1a6WgnwyMagtWQ9vvvvhdJSUmE +tn///mLL5i2E1iqNKFOmjPjj4h82rc4cE+CRDeLroIDffv1Nq/eud3bJUG4n +bvjw4WLd2nWkDtIJGIMNq77R3qpClYD9+/aLTp06eQsYBQ8fxN9PWhE0v88/ ++5y0IugZEMrhxJ07ew5LoBRJSEgQVy5fkaEoTugjWKqmpLvs3LFTNG3aFGwu +uyN00Tmz54TldIiOHT0mWrduTQSOGjVKbN2y1VvgIBSYTAeE+fPmy1qGQWHI +kCHSpm5puXLlgsq0QvYTOsjYsWO9pfVDaamu4Skw6PVGm7c1DF89sT13NCC7 +I7KLAfkQIrsakJ0R2cOA7IDIXgZkW0T20dqmNQb7a9NbYv6BBkkpmHGIAdkc +OR8xIJsi5wgD8gHkHGVANkbOxwzIhogcq7VNfQyONzDVQ+REAzIJkY8bkLWx +xFMMyJrI+aQBWR2RTxmQVRE5XWubyhicqU1PhEc4BGcbJCVgxjkGZAVEzrWR +mXBD7OgoOR1ZQ6GoXbu2qFmzpmjUqJHYu2cvOzOVQ9nzbdmZ80jsaL+YNXOW +6Nixo8wGNEe/OSpLcOjgIX5uKYM6POvokDkPRcWBwDOnz8iQyrt40WIxZswY +x0qMIvFYuQtQEZPXoiY58BVO/3SaCF24YKGY9tQ0b6GlsPQLUajJp8nhmHvZ +S8tEhw4d0NygVIUKFcDstrkDPk4JFLMYxZh8nJyOWceNGyeio6NFyZIlRURE +BLgovK9THAUtQUEmX0eV55OPPxGJiYnSJYHJ/aUXXxKNGzcWf179k28+xbDW +XjDWmmoqOVxKbFi/gdRat27dUDG21opgKV8kbdbLH1IOQ7t27aTr7hYKTu/K +FSu9hRbGki4jnZXzh2Ids27csFE0adJEpgP+qy+/kmPKLz//wpu1IAp7hY5K +Ol8ol5MGFVa9enVZ2SARTMG2lAJow+WuETIw1t6NGqw0jKD5MOMqAzIvcq42 +IHMj5xoDMhaR6wzInCh9gwEZg5wbtbbJjkybtenRmL7FIMmPGbcakFHIud2A +jETO1wzICOR8w4AMR+SbRk4r6q1gs9zC/Dv5/DcQ7rFjcB2ZdvGgawh6lwdd +RXF/50FXkGk3D7qMoD3BBb+ESXuDk/7ApA946osI2meD7nZA4BcoUIwm4wXM +uN/OmAm/JtLJsnnTZpmldOnSolatWmLTxk1h2TUyz2PZDtgys7bDAv5Lv379 +RFpamnaz4xwW8SNHXOZcF8Xdpk0bsW3rNhnSjcxnUd7HKM/koah1/ocHPhQN +GzZkuX9D7k+QO1RH5Py586Jz586yiqpUqSKX+/nz5w9M3NIR+Rkr51OUYPJB +lISUlBSx4Dnpl4nfz/8uWrZsKX2SUydPaUvzM5bmc5RlckNUIz5x/ITcoBCu +CRosERsbC7WmlXcG5X1hrBlV60rent17RNu2bYleBQoUkH0BQjqH4DTK+wdp +eaFsyBz/4bioXLkyKR+4Xg8++CDbOn5CeV+SjuXte0TJegI/GLBWXYkaNWpA +S9Q5BadQxD/peKHzOGKdNGgLXbt2lenQ8l7b/pq2p55E8q+DR8ETmHSQHwWP +I+gQD/oBQYd50PcIOsKDvkXQUR50DEHHeNBRBH3Lg75B0HfB1jmCSd/z+Q8j +6AcepDpenz595OBgrU+tEDxj5NgL3cXByoEXmlLFihVxUIEtPBhQEpxG6oXx +Oc1DN9VUdvSALv7NEVn0sMgQOIuhTaIcdmuCkqts+EGOPHnyWI3WLtfMGTOx +5OaJzycHIVj7QMeEDgXOeUmjHJ9bjrKsVRq9VWEwmPz4ZNkJy5YtK7lguQ6D +mllWdiLLw1JZKxI1XYRHZXkVJ4e5HcIwD9OBNeE6YmLEvffeSywGm7vWkKL2 +qqXvMGnSJNGlSxdsh16YSGcYZPwP1RSnTJ4ipk+bTkrnRVsU+5uaQyxvQ7Rv +396xrqdQpRM4IJUqVRI/nvpRClj96mqRnJwcr2GMZE3mT2cykAQbE5ZLhbML ++DSwMXH1ylWskvT8oZkyA2r7WfNGGNWM4RtQNSfOas/SGbVokGLu03PlEZlb +PFgMLAehKpq4cKdkjtdIuqvlNapGcujgISkOQtk1NIWwUeTQ2MLnLUSZBfar +YJgK6EW9yVIsdej2gM2OFctXsHy6woVnQT+/hwHdumTnq7y6EweOLjT42bNm +Y9ezGqd4d9e7rur1u+Pkz+SkJzpxMFSCewahaA1/YFcmp6agqhJN0pThoC1Y +ziKJmzBhgtwt5YwZ5WGJ5xc/L7urqWLdJcqKLtk8rObWxaNiazhx0A1gHfLM +/GdQTZi7YH0SqNgod5z8OSskZXn34kjV6ZNTn5TdwK2dm/oerNNYjzo1LcWU +zWCiBKfYHQfbcmBLUwfRGQEcbhgnTXXqLlFWdMnmYTW3Lu46lVVa0wFd+P2C +VAZ2qdWcAecS3x6TDrAcjWBCSE1NreSdrMxsWqOqigb/BLpZoNpY6kA/zqWx +QWSIgpVN4bjZ8rtI3JrVa8SwYcOMdk5vLr9Yu2YtGb3efONNuX0Blxx007fP +u7CRt0HN9Lb1VtNj+q7lxH304UeiTp06LutGSS8WXFX4C54AWNvqFZW8k1Xd +mDYY1EwODqs6LDJIDgwOuTXWiQxRsLI2+E26Djlx4kS2BqI9zNW7d285cMMA +DN437NJYCwOdL+bzLmfkbdBQZ1ZGQ4/lQW0nLm/evPI41a2J0wJlqIomTk2O +pp0f1RDAm1m0cBGpNzdfwKXL41H7JmlKe2dviMTBUAxTJWfb7B7WANsql6Ic +W+W0RP4s6BLtYTW3Lrn4ylVd5NNPPhVTn5hKxMMeMOwvc5Whq3C/U+2u4sif +s+2W4GSBJNh/dYuDgRLOyDhxgSkit1PbTvmUTaK8ZavWAQsfNZG627FaTcfp +2X0ZtJS7Asp4KaxvD1nUMlQDZ6iZ+MXBrw+KwoULy11OmNDA6YU9emuiw94X +ahNhdkpVE3lh6Qu4sFHagn8NQzs3BAVPDj6Jrlu3rjxjfnnZy2CisChvBZSn +AiMnOGyOIy1WrVwFu7clPZh9GTCT2/LxRm31Jsy0iqGbN8QGUs3R6LNPP5PT +S6FCheT0Ak3YGiZVoWGjD2Y062dJgKd9/K9oKoaIi3BKqNsJdzcgmAXc9xDz +5csnd4HcJTTJyoONKp+TA84nkpOTpT39HpqofT/wyUACVBUMTtbSBY3o5ooK +zYhQJSDKVtV+whinFI5jqUM3bKgq+zJobJPu0XwT+xjr4awLFBE4bNQcDbpB +BzD/77yQ/Qi6wIP2IegiD/oAQX/woPcR9C8etBdBl3jQHgRdtkEF7SRZcOtx +F59Vdzz0/7jQ48Lx9O8OUei/FidLnv22/OexPr3jin3Hx0ViHPy1frrj5TtP +7f/J1pmUhbiAgMSMsMgcdfG/e3jldiHoOg96B0E3eNDbCLrpAknMTky6FZy0 +A5MET/0WBXnMVG9SZDiPfIMiI3jk6xQZySNfo0gfj9xOkVHBZtlG0/0801aK +zMYjt1CkhyO1mSI9DgM2UaRHL9hIkR7bSRsoMmewbdbT9FieaR1FeqxO1lJk +bh65hiLz8MjVFJmXR75Kkfl45CqKzM8jV1Lk3cFWXEHTC/BMyynSYzB5hSIL +2sgMX/tg3tWIlGsKReP3+xWD8y6eBPk0ar1M1Spkq6XWtOmP6tJdblSTo3Mt +TIZ0E+YyKqgwL0g5g+4rjaFKeYlKKcJLyRsi44uUsWgmGKVD8YKG+3bpyHJn +RtsgnqUcd7Gscy/huItj74DooF063MGEE3gnG4jS3eB9ntZeHPLqdncUb69e +veRuDrzhWbp0aR3vYspr7xnhOt29xldb7XAZBU4nihYtqr1rvIgy2jvWrjFp +IU0vHZy+gKbHu9KDJD1HkWV45LMUWZZHPkOR5XjkfIoszyPnUWQFHjmXIisG +2+Zpmp7AM82hyEo8cjZFJvLIWRRZmUfOpMgqPHIGRVblkdMpslqwbaZzfbBq +MHIah6zGS3+Ky1Odz/M3qnFNHvkkRdbikVMpsjaPfIIi6/DIKRR5b7C9JtP0 +JJ7pcYqsyyMnUWQ9G5l1L0LtjsIeuOU9uG7TRoiCBQvivRDd5fGJVCf7VD0j +LoQSfvXKVbnRP378eMwOr1l6CZ9AhdfnhevcCnXkAGeePXr0EH379lX3y8T2 +bdsBp92bGk+lNuClqjkFTjth+If5xrK9btk9jpI25EnV/Dp48GD5xqalssvT +GEN5GvE8akseXlKEq69uM7k1C2JsbGaEXWl4wfPc2XNaxsco4/08Y34nDq7+ +792zl20Ij1LGB7BnCI0Hoa7JQC+AO752yH7CVQJ1/UsnaDQV1AQF6VyKXK4G +Bjv3cGh0+dJlGYY7SSkpKVrPaBQVYr9JofUvcjuKwnXJtLQ0eewBkgYMGABX +H3TkIyl5U364GUGRzVxICRxO05vzTMMosgWPfIQik3nkUIpM4ZFDKPIvPHIw +RbbkkYMoMt1XNwbS9FY80wCKbM0j+1NkGx7ZjyI9vvnRlyLb8cg+FNmeR/am +yA7Btkmj6R2D03vR9E68pJ4U2ZlHPkyRHl8s6UGRf+WR3SnyIR7ZjSI9voLS +lSK7BdvmIU2edMig9C6U82Ee2Zkie9rI2+Vg+OXU/8SUJ2QS3LCCE1841jxz ++ox2IOxE9XG+9JJh58IvX1vY98E+nN7hxj7c0E9KStIK7kgFp/GCdY6FWuHV +r18f77HqJpMOVEpvXoqaWeFeSrFixeRbBbqZtT1l7MMz5nEMBo4P3LeAOzi7 +39sdcCTaUqq+ZiqodLg32aBBA5jmAlStKVV/cznhit6S55cQC7vLGcQ4wMwI +Dh04eBxjK8o4EJu+0HgQyi2B90VGjx7NkqZS0kFI6uUtgBnhxgp8ZQyI4AYM +fIPFCmvbaksqZLAthPcWfPKGU2pqqrylAJcZl7+yXHsUlEKZh/IDRzJFuj9q +JIEtaPownqk5RQ7nkc0o0uPzSA+iHjI8kkc2oZyjeeQDFPkoj2xMpbs/uSRj +G1GmsTxTA8o0jkfWp5wTeOR9FOnxcaa6FPk4j0yiyMk8sg4tkfszTjK2NmWa +Gpxek+b3+LhTDcrk8XGnapRzGo+sQpEzeGQiRc7ikQkU6fHBpwoUOTfYNuVp +iefzTGUp8lkeGU9lPmcjs+4gqOtbMMAqGnglH/5u3LBRN7aWoqo4XzzKgG+g +RjznsrsM6QSVgGfg60eLeUE6X0Btb8AKu3jx4vJ+V7hzywtKCNLXr1uvlVyM +FnEpL1m97QNrZPX6f3iI5StMy/ciL0V9mgfmE7jL6zDI0kQjSwHK97KZD+Yj +WOHr+fJRvhU8n9pugWMv+O6Tw6Wb2iTUh6Svmknh9jC8AetBKg95o5B0HfYO +ofEh1DYOvGgNn3DCQruuoDi/HEi5CSl1HoSihI8jOO9F2JTRSPC6TaDzDpSn +NHLkSBEXFydD7AeX7uhv75rS5f+34cvEYXf9GwRZrOc=\ +\>", "ImageResolution" -> 96., "LightDark" -> \ +"Light"],ImageRangeCache->{{{0., 359.}, {221., 0.}} -> {-14.857966328747292, \ +0.654633287374793, 0.6941460339291473, \ +0.0044903445173959475}},ExpressionUUID->"7758daab-adf8-2a49-9166-\ +50457409d355"], Cell[BoxData[ TagBox[ @@ -7132,74 +12355,112 @@ MathPictureEnd 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"], +eJzdXHmcFcURfriXisohiYgk3OxyH8t9ihpuUAQBIRiWS+QQAgJKAEVQETAg +5ieHoKhRMREP5BBFIsagGBWjUcSTUw3KJcihYmeqprtq5lk1szwf/kz+2Lcz +1fV1fV19TFd3z3QpuG7o4JEF110zsKB8uzEFo4deM3Bs+bajxniijCKJRJFt +3l+18olM79okEqGfOeaE2Q4/3rUx35vt8HPy1wX4L8MMHjzYlCpVyjRo0MC7 +83+LFi1qvvv2O9Soj7/ZZsniJZBqqlevbs4991y83vbJNj85yyyYv8DUqFHD +VKtWzQwbNswc+foIQb86+JUZOnQoQho2bGh69OhhdmzfUctCd+7YiUku9xIl +SiROs0xm3j4TtFDzNKs/d85ck5uba/Ly8tDU9ye+T+TG5pUVzMuVOpEplLhK +SrxUD5UP+9sruKlbt65Z8dQK786XNWnShKw3sLI3N79p+vfvH6qDB+5/wHTt +2tUc+uoQWr/xxhvBsX5yjunUqZO5Y/YdVMjVq1ZjnRw7eixRJ5At+N8vop/t +2mfWmg4dOpivD39tvv3mWzN8+HBz+4zbqwuQzEKWIk/Ani6UrILvnAE2ac9/ +9mALue/e+6xbM8ycP3qN/bsTeFfXZnThhReim4EC/EFzKFmyJF5/8vEn9axD +qlatavZ+uZccAtmUKVPGHD923GaVYT7d/Sk2Wv/O/+3du7d5Zs0zeFc7wnHt +2rVDucsfGnrFihUlx2UVsoSS4zILV2rb0AbaHPbv249VMnvWbNuoss20m6eZ +eXfOI8K2KuoHyAEk6It69ephT4A714ignLVr1w7p9ezZ07y88WXVZ67lQAu5 +4IILsNc6bIsWLcx7W95THZAtFKmmakMtZkXfQYMCpWjatCloJvItEnoWlAy6 +guCgjf/YiA3IU6PaO3jgIMq8Gky4hgfNe9bMWUTg6RVPm1q1akHhxZ7onPPF +ni+wNoOOveqqq8y659apzskRilMjwjlKEa1zBgdKBYyfX/e8dY4/8LpSWVTC +jT0bXthgSpcujWPQRx9+ZD7/7HPTq1cvM33adBq+oI23atUK2yx47Pzzz4fu +VzfCIV6zxkIFHQKPkiefeDJ2nAkWQe+ScrGsN4ZY2KubXjWNGzcODMZZMIiY +/Px89GfYG9nYYWBQgUGkbdu2pmXLllAvrpXNv3u+ad++PZYOqnzEiBFmwoQJ +UY748osvxZbhFU51xBkC+2oRjpBKZB1xtYVB1Xk9N+CITHPvknvNLdNvcZB8 +q1q5cmWzfZs/22hoW0m5cuWwwK5fQFYwSHttMbJfaIPG1ve2qqU/U6CsDy4/ +KIYtuHtsv/7a6ziswJ3r+fBoqVSpEt7l21yAabNmzcwLf3sh6IxFCxdhu2Vn +ZGAX+Ob4N6EsoWPu2rkL72raLO3I6EhnW9bQgDa/sZl8Cf3f83mejMoqZDly +ZXiOXLyQk3LMu++8i6V6du2z2NlhvO7WrRv0Lir1Y399DOcw0Lic00AX9MaO +HQuDh3taQbe44YYbXO2Zh/78kGndurWbN0KXAC7du3c3S+9bCjQTzjnAADoe +NGXwMcwTvalRbgQ0qxCFiMKfLhTQ+meAZfXG62/gnAEGPniQw4PfK1wji4QJ +o5sYNbCWIPf69evDtAL/Xnn5FfuUyTZHjxw148ePx0YDj+l+/frBI9x1pBc3 +vGg6duyI5HJsdnfOvdNUqVIFpw4jR47EDlVN0M+OZixBzhBKYad3WgxSy0Ig +rLHN2E9/6n8jvaIv9ZLXw0+RKCnmdRoIzhJyLXoyMs5FvTr7x9r4KWT/p+z5 +qmhy1Teiq8ZCtg01WYqI3J+Peaujd62EmJ4ZTKcsnpRVnFoqKuEynEZKTwSV +skL5hFg/kVxWf5riAL7S4xFKlNPjUbR+KMPfx2IwXJ7l6dDM0Hj8NQbDuUcw +ztRy/8spwDCjCO5ZWu6P/kgMJmeFefwlOT1by2mZbj07nGcEz8Jr5mg8HonB +cO4RjE/Xcl9IWRRNAT2f3HhWDJpZ3k2Yc3TMGZrFeYQungJ6LqFLxqCZ7xzC +lEpuO2dqdmaRyi9FDOc+kxJK64ySMDMIU0bHSA9W/J1O6LIxaLY4nW5/rWOk +iRf+3kQWy6WAnkLoCjFo5juFbv2wK3Jx2x9LMjGQad68OUbWO3fszLYQWAKA +dQ4IAyDm8UIAGqJ379qNNr20hFvdh/n/pEmTUEMaXKTZF/5OJNL+EnnC79/a ++jHxhvgSFtghQy9+caunsPJas2ZN5AjZPPLwIxBMuLHcywFDj8OHDtOTD9ZT +UqJ+PdVRVUvdf/TaFVwyYFdwrWd9GfB0Cw1Odtutt2FVwZ3DBlcxMyzFhQsW +4voVBIxgb8u7W8yqlauksfTscAu5nm7ziHHc2qlrolAquzRA7MBtsEljAo/L +Bx94EGtg185d4pB0jubO64hcdSIXt3bpyMGOxIH9B0LkYO3F1atz8bJHlqEu +NGccoXEal+SlsVSvNYhI3JqhIwKLUbDkFSQCRkePHh1qYIvvWWzatGmDXpcq +7pwwpTF0W4soxa3eOUpQGZJvJk+ejHfOPMTca1avUftBMa3iriVydWJblWvz +jlxgwSnUqqCNB8nBFpRbYlLJsb+YUt1Q17TmQl0TRr5gP59x2wxckkjuhu9v +fT8kswtLIdmoUaPM/UvvV2kW13w4jNpcPUvYHwaVNSfbi7LNZ59+hg3aLori +claXLl0yrfMKCgpM3759aX0U6heG6n1794nNTuV3DTnUX1+jZ4u0+FPMpq1/ +fj22PiAInvdY0I4BNBCoUOgwFSpUwDV+r3FIk67i4bplKv56lvhoLKEVZDCh +G8Wg2SJjGuuYkprFAqraJimg+5PtZjFo5vs7stg8gEHBuZqd31IWLXU7Krov +oVvFoJllHyLVWseU0iz2oszaxKDZImMu0jG/0Cz2IPTFKaAvp9JeEoNmvpfT +bVsd80vN4qWEbpcCuiuh28egmS9jOuiY8zSLHclDHZNb7XlhOx3ptrNup7Rm +px2hu6SAbkvorjFo5suYS3XM+ZrFiwjdLQbNFhlzeaExbei2u44po7FsRege +MWi2yJgrdMwFmsXmhO6ZAroZoXvFoJkvY3ont9Cymp3GhLlSt1M2bIcxfXTM +rzSLDQjdNwV0PqF/G4Nmvozpp2N+rVmsKySkkk9tYtE/Bs3MGeNvN6Y7ZHZp +sFMOe1jFixdHnYkTJ4rzr3Ja4WoQUX/f79SEyW72ddlll8EpM7xTabIXmdxA +Sy7dgXB2MCTFP9gsLlmyZAaEQB6kWLFiuJc4YcIEkXF5zbF5xH0QcU89JM4J +hsT4B5EX1PjRI0fJD3HuVcnmEtnBRDZdIbJzNCyR2PAH/yxZjpaTKp85DSFO +6YqWHacjXx/BMh4+dPgHnJL8VEHzXWXieTXxTFcInWGbL5zBgfAxwFFcRq4Q +dmEVQYWdma5Q2pGEYaJRo0Z4lCmKZEXNk1IC+9SkKczOtL8Q0U69aWpUnatM +pcYw1DL9UfG1O98Dp0jg9Bn8RZHjuuaqH+YTSTWQdgMHHAOEzLVqrKQ5hx+F +w30m0vOyUpg9Y0bomMqaRZ5OjUwBzZPHa2PQzJcxo3SM1P3wl8OO0QE0KlYJ +22HN3+t2qmp2OEwdkwKaw+qxMWjmy5jrdEyuZpEXZMbFoNkiY8brmDzNorRo +HGE7L2xbQkewqKax4P2h61NA837WDTFoZs6YiTqmumaRd0r/kNx+q4ftsOYk +3U4NzQ7vek9OAc27+FNi0MxX2puPsF1Ts11ESIhgUTPMogjd3qRjJNkJAk49 +OeB3BLw5BohKrD5NV68tyI4TcHoMEJVY/RZdvY4gOyrIghYxpQ7lLqlHWJQi +y8OU2W0nBzxEwBkxQFRi9dt19XqC7AABZ8YAUemgkBphsb4g2yfIImxLWewl +PrN9YJrjaHeaHF4R6ty5M2YHc1gvChQnPfWJDzO7w2d2CveXczAn4A3TSkiG +QAiK7/0XI718QbaHGP/RMj6128pOBq+ajRs3LiSDF17ghTC/8Ap/5Mqs5xDr +dG0tOxk0IPcKlZM99eRTZuDAgcwQY1TJr58LMvZwesPoDGy59r05kkG4OHvW +bIkrek5iyN5Mb1Cdg9vP0DbhNDgE1qtWrsIT+/v37RfbqnQwczdxv5N4piuo +dsE/1O49i+7BvVVYQ+vTpw/su0rdns+JMrF5sc3xZANpJ4M3J13Tkw4eNRJk +O4jXXaHOnc6N6WNHj+EA6jlJ54UcmM2fQoNjilGxGzuhpqGmVj69EshIp0Ck +k7/bBJn1UqpBsnumwHAN++DujQevDYltnFfeJTLWSS5Cda+QUHdOUm8iyD4i +A3f7mUlPWAn4IQHnxwBRidUX6OpNBdlWAi4MAFGnKSW9LwAXJKs3E5S2UBaL +dFq8zcLq9+jqzQXZvwm4OAaISqy+RFdvIcjeEmQRFluQHQkYYbulINtMmd0X +A0QlVl+qq7cSZK8R8P4YICqx+gOFVk9KDdrBlNaC0ibK4kFRHZNY6c86mQsF +2UYCPhQDRCVWf1hXbyPIXhJkERZ5j1YCRti+SJBtoMwizlDzTjKrRxzovliQ +rSdgxMn5i0mJ1SOOz18iyNYJsgiLl5CddXQVfIUAtX8jANeS+nJRHZNYKeLl +i7aCbDUBn4gBotIaITXCIh9+WCWkRlhsL8hWUGYR77a1J6UV4StZvYNGC4FP ++8BTFF1CbAETKpi7wI7tooWLxOiyQ7iK8Gqlz+yURpebXtmEyRAFQzLs4MCp +TW/WLM5mOgqy5YLMevUnijOHDBliHl32aEgGOu4jEdJUik/8LE9qwKcizoT3 +g8H1QRm8wQt4jWEnbfBBrquJa3rjzBzz9ltv40qIm4oDBtq1NyX32wTGmOw/ +5rSGOKUrsnQ7jBA+ZGRkYKvJycmBFQSxH3UmLsvo6hlild44MgeDGdCFmoVr ++LoE9PSPP/pY7D1dBNlDxHNtbOtLNawE7vCWelAGazOuPFLr60K8HhZS2acm +zaHmXfPuws3ZoOzx5Y+bQYMGqVy7CrIHif+zlmtajj/DIQv4ZMaHH2A8hE0K +ngleZxOrnA8wMqHnfEKpRqDu2QJfeYFd4jp16mB/9UZAsU9cKsiWEhl/jBAf +nHzck9Wf19UvE2RLCLg+BsixEl79TVfvRkqLhdQIO5cLsoWCLGgbU/jULL/m +t0G3012Q3U3AF2OAHMrj1d919R6C7C4CvhQD5CUjvPqHrn6FIJtLwI06sKcg +myPIImz3JDsSMMI2n8y+g65e0dV7C7KZBNwUA+TNFbx6VVe/kpRm0NU/k9tb +H0q6la5e0/PsK8imEfD1GCBv5uHVG7o6H+ifSlebdfV+gmwKAd+MAfL2LV79 +S1e/ipQm0dVbuvrvSIlfFHxbV+8vyCYQ8N8xQFRi9Xd09QJSGkdX7+rqAwQZ +v9K1JblFDaAkVnpPz30gKY2mq626+iBS4rek3tfVBwuyEYIswiK/PyMBI2wP +IeAwIfUDHXg1AfnqY119KCkx1U98dX/2dlKhphNDaOa+9ehNg91nHuELZs6w +9Eb/NVoDCqxL23V99TOLSpzpJhx2uod30iRE8jb3kO1hCsoHC93ULxgqFtb+ +cEHGA8cO3757Dz0u+it2MkbRAA9pu8Km4oI31RQGYWyAh/LdYQNxkVhhyzKS +DPAj7NOwqbjwqrCmeBDhh/hnhash1ywKa2oUGcA5ESZ+Hm6MygfMzrH9AV6V +dkmeWPqUAY+hPJHcEzaiRCXOyIABA3AxA7amK1WqJBn5PWXN0+kvwgOOHmhk +YDwDzaJs2bLi5xjGkHs4MPzSz14a/vjN6050tVdX50cer+3t19XHkxKvWh7Q +1fn5ezGV4qCuzi/h82r8oYB6Rnju0JJkh/U8/0DqzUj9iK4+mdR5+/CYrj6F +8synq+O6+k2UZ11S/1ZXn0pKeGQOB54Tuvo0UqpKQEwpomNuJc2KYUyGjplB +dvAQcBZhsnTMLNIsFcacrmPwQMcZIMqiK0yJ+FQLhlVnk2aJ5NaD0p/J1+Hi +0vE65ivdiSL/BdTcD9k=\ +\>", "ImageResolution" -> 96., "LightDark" -> \ +"Light"],ImageRangeCache->{{{0., 359.}, {221., 0.}} -> {-1.6168853824798513, \ +-0.009969067956413457, 0.059164187941960496, \ +0.0006991192353860321}},ExpressionUUID->"a63f48d3-505f-0a45-b944-\ +e872edd94d6c"], Cell[BoxData[ TagBox[ @@ -7548,12 +12809,18 @@ Cell[BoxData[ 1ca469b254bd"], Cell[BoxData["0.07371813161570438`"], "Output",ExpressionUUID->"d15888a7-bf5a-b54e-a332-976645c927ce"] -}, Open ]] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input", + CellChangeTimes->{{3.994083555092538*^9, + 3.99408355798809*^9}},ExpressionUUID->"c48b0e02-cac6-46a2-8dae-\ +6c5526596fd2"] }, -WindowSize->{718.5, 729.75}, -WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +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 +12835,609 @@ 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, 330, 7, 36, "Input",ExpressionUUID->"d303ed45-c1a3-4b14-8f66-b10f36d962f0"], +Cell[909, 31, 208, 4, 41, "Output",ExpressionUUID->"070e4a52-525e-44c8-99c6-719af0639bb7"] }, 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[1154, 40, 253, 5, 36, "Input",ExpressionUUID->"701ec475-b89f-4bab-98d2-9d586513a0c7"], +Cell[1410, 47, 208, 4, 41, "Output",ExpressionUUID->"48310c09-ecea-48f9-9571-88d8f38dccf2"] }, 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[1655, 56, 226, 5, 36, "Input",ExpressionUUID->"5793edf2-6fe4-46c4-a112-de1d147d0d8a"], +Cell[1884, 63, 207, 4, 41, "Output",ExpressionUUID->"5d30e475-70f4-4b78-9b69-4b4bf8a78b72"] }, 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[2128, 72, 180, 4, 51, "Input",ExpressionUUID->"6005175a-0fcb-4adf-bf6c-276191010b9c"], +Cell[2311, 78, 207, 4, 58, "Output",ExpressionUUID->"56131d3d-e7bf-423f-9a99-038b16e2d991"] }, 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[2555, 87, 262, 8, 74, "Input",ExpressionUUID->"e803105c-cfee-4637-a232-3efa83d154ad"], +Cell[2820, 97, 223, 4, 58, "Output",ExpressionUUID->"e3a7dca1-0daa-4a70-af2b-8070dd0c7763"] }, 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[3080, 106, 136, 3, 51, "Input",ExpressionUUID->"0b87c224-acf8-43f2-ae1e-d055537656b1"], +Cell[3219, 111, 206, 4, 58, "Output",ExpressionUUID->"da26512d-e6bb-4e03-a414-ef499287f62a"] }, 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[3462, 120, 281, 7, 51, "Input",ExpressionUUID->"7f5f817c-1099-4b82-a283-2ddfd7bf8cbe"], +Cell[3746, 129, 221, 4, 58, "Output",ExpressionUUID->"1e07203b-cc26-464e-b100-3f87c717e972"] }, 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[4004, 138, 262, 8, 51, "Input",ExpressionUUID->"de1da203-69eb-421a-8d24-da53d1bf565a"], +Cell[4269, 148, 221, 4, 58, "Output",ExpressionUUID->"a31ccf1c-97d3-4f0e-b17c-809b97470d85"] }, 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[4527, 157, 229, 5, 51, "Input",ExpressionUUID->"a133035a-e138-4dae-a551-37d8cbc7c7ed"], +Cell[4759, 164, 186, 3, 58, "Output",ExpressionUUID->"319f64cb-bcee-4f50-92e8-689577ce13d0"] }, 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[4982, 172, 232, 5, 51, "Input",ExpressionUUID->"f971fe46-85ac-4caa-bd79-8068f5f3b584"], +Cell[5217, 179, 184, 3, 58, "Output",ExpressionUUID->"c1edc9fc-975a-4b91-b24a-cb4b147614ac"] }, 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[5438, 187, 133, 3, 51, "Input",ExpressionUUID->"db003323-685f-4eb4-b3f8-41d3f48a6862"], +Cell[5574, 192, 204, 4, 58, "Output",ExpressionUUID->"2112f792-3cc4-468b-b530-7a7d853d7452"] }, 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[5815, 201, 133, 3, 51, "Input",ExpressionUUID->"68f8b6c6-9a63-49c0-a0fa-9b6641687ec7"], +Cell[5951, 206, 204, 4, 58, "Output",ExpressionUUID->"67813ae2-7479-4056-96e1-84cc06d2bc0e"] }, 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[6192, 215, 561, 20, 140, "Input",ExpressionUUID->"0cb9f5f7-aaa3-4f85-90b3-70b154d6fca2"], +Cell[6756, 237, 222, 4, 58, "Output",ExpressionUUID->"8e6cf7ab-6285-46a8-adef-c930d44f0ba5"] }, 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[7015, 246, 561, 20, 140, "Input",ExpressionUUID->"5ab7da97-b7aa-45ec-91dc-f1953d564c11"], +Cell[7579, 268, 222, 4, 58, "Output",ExpressionUUID->"288463c0-af4c-46e4-9e9a-a050711a7ceb"] }, 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[7838, 277, 1592, 51, 190, "Input",ExpressionUUID->"67081942-2246-4cf3-a954-423246e0fde3"], +Cell[9433, 330, 220, 4, 58, "Output",ExpressionUUID->"7c9fb910-ac3c-493b-a787-da95d7f1de02"] }, 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[9690, 339, 1426, 47, 190, "Input",ExpressionUUID->"ac5da6a8-ff11-440c-bd29-59e5a7c3a7d4"], +Cell[11119, 388, 240, 5, 58, "Output",ExpressionUUID->"4278249a-28fd-4dea-bfe1-40afc061efb0"] }, 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[11396, 398, 1335, 45, 141, "Input",ExpressionUUID->"2822002c-dcda-42c6-8589-3afc9e02d990"], +Cell[12734, 445, 239, 5, 58, "Output",ExpressionUUID->"19acbecd-f218-4d5e-a673-5e364855eb81"] }, 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[13010, 455, 1592, 51, 190, "Input",ExpressionUUID->"967fa8d1-b61b-461f-8a2a-4a1f700753ee"], +Cell[14605, 508, 218, 4, 58, "Output",ExpressionUUID->"cc093211-846f-4a1b-b175-c1fa85be212a"] }, 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[14860, 517, 135, 3, 51, "Input",ExpressionUUID->"65107622-afe8-45c6-b172-0e7c4d49ad65"], +Cell[14998, 522, 206, 4, 58, "Output",ExpressionUUID->"adfaf786-0c23-46ca-8878-3fc99bbf12f4"] }, 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[15241, 531, 137, 3, 51, "Input",ExpressionUUID->"5c49f85b-d5cf-4e2e-8b22-0685586394ae"], +Cell[15381, 536, 205, 4, 58, "Output",ExpressionUUID->"8deacd12-0357-415a-adad-699e85aedc35"] }, 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[15623, 545, 138, 3, 51, "Input",ExpressionUUID->"2b47516a-2f11-4580-bb32-5f52aaf28daf"], +Cell[15764, 550, 206, 4, 58, "Output",ExpressionUUID->"e4d146ce-c48a-44de-816d-1c7dec07bac2"] }, 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[16007, 559, 223, 5, 51, "Input",ExpressionUUID->"5877abe8-d663-4922-925b-e0c6bdd91625"], +Cell[16233, 566, 221, 5, 58, "Output",ExpressionUUID->"de438067-0530-4c64-a916-b83b6ef6100e"] }, 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[16491, 576, 138, 3, 51, "Input",ExpressionUUID->"3aa4d10c-2dfd-430e-b550-11b46b0477c3"], +Cell[16632, 581, 210, 4, 58, "Output",ExpressionUUID->"22fa14b3-41b3-400a-9bfd-f5623044eca5"] }, 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[16879, 590, 330, 6, 51, "Input",ExpressionUUID->"e7216b43-b306-4d81-963b-38a3393544f9"], +Cell[17212, 598, 205, 4, 58, "Output",ExpressionUUID->"a9ec36ee-806e-4330-9ccd-bae62826f734"] }, 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[17454, 607, 301, 6, 51, "Input",ExpressionUUID->"ddadd5a9-a1b0-4a74-bd9d-5b52410c5566"], +Cell[17758, 615, 205, 4, 58, "Output",ExpressionUUID->"19102fbd-8883-4973-ae9d-bd88bf65ec4c"] }, 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[18000, 624, 223, 5, 51, "Input",ExpressionUUID->"ef729b71-0db6-4e5a-9ba6-569c9378ee5b"], +Cell[18226, 631, 203, 4, 58, "Output",ExpressionUUID->"1d23d63e-55bc-4f99-9a9f-339b401304cc"] }, 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[18466, 640, 354, 11, 74, "Input",ExpressionUUID->"bf5fef2f-39eb-4128-8c53-56f91d769aff"], +Cell[18823, 653, 223, 4, 58, "Output",ExpressionUUID->"cf379a31-935f-452f-87af-498f6d02d89b"] }, 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[19083, 662, 354, 11, 74, "Input",ExpressionUUID->"337c6000-eab8-41a7-959a-18959e16d72c"], +Cell[19440, 675, 238, 5, 58, "Output",ExpressionUUID->"a1304c3a-6c43-4bde-9f95-89331d639ea8"] }, 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[19715, 685, 998, 27, 142, "Input",ExpressionUUID->"96af02e7-d9eb-44ea-87d7-e937821ddb9a"], +Cell[20716, 714, 223, 4, 58, "Output",ExpressionUUID->"5b13add6-f111-4ab3-ba77-605ba02abf41"] }, 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[20976, 723, 203, 4, 51, "Input",ExpressionUUID->"1d1c7c2d-e048-4cb5-ac44-94fe39bbc733"], +Cell[21182, 729, 204, 4, 58, "Output",ExpressionUUID->"3a81e8db-0d7f-4448-94b9-b872c0a6541a"] }, 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[21423, 738, 303, 6, 51, "Input",ExpressionUUID->"c834cebe-bb4f-4f37-bd8f-348f1622bf9e"], +Cell[21729, 746, 176, 3, 58, "Output",ExpressionUUID->"5bfafe20-e096-4ba6-9d0a-8940c1a68df5"] +}, Open ]], +Cell[21920, 752, 177, 3, 51, "Input",ExpressionUUID->"2766c3a7-b794-4d5d-9fbd-ae6b52f5e5a7"], +Cell[CellGroupData[{ +Cell[22122, 759, 331, 6, 51, "Input",ExpressionUUID->"ebb63679-94ec-4fc4-93ac-6da663d01406"], +Cell[22456, 767, 184, 3, 58, "Output",ExpressionUUID->"68aa2554-7239-499b-98b6-1ec530df400c"] +}, Open ]], +Cell[22655, 773, 177, 3, 51, "Input",ExpressionUUID->"9b8e2465-1314-4817-89d3-051295558029"], +Cell[CellGroupData[{ +Cell[22857, 780, 333, 6, 51, "Input",ExpressionUUID->"a9bbdb13-1ee9-4d27-9b37-8258a7701c48"], +Cell[23193, 788, 183, 3, 58, "Output",ExpressionUUID->"fd63263d-7cbb-4fcd-acc8-639f61085dfc"] +}, Open ]], +Cell[23391, 794, 177, 3, 51, "Input",ExpressionUUID->"ac1b4731-9eda-4b15-a0ad-7809214b2201"], +Cell[CellGroupData[{ +Cell[23593, 801, 358, 6, 51, "Input",ExpressionUUID->"afcc2917-cae8-49bf-ba53-04ac2065eca0"], +Cell[23954, 809, 182, 3, 58, "Output",ExpressionUUID->"b05e9594-9354-49d2-a4a9-cc7b7412f6e0"] +}, Open ]], +Cell[24151, 815, 175, 3, 51, "Input",ExpressionUUID->"79b7e148-d680-469c-ae7a-38ca25f382e1"], +Cell[CellGroupData[{ +Cell[24351, 822, 305, 6, 51, "Input",ExpressionUUID->"8454375f-9321-4e02-afe6-27edd3c1643c"], +Cell[24659, 830, 182, 3, 58, "Output",ExpressionUUID->"166bffd2-d625-4756-a342-c1a78eebfc8e"] +}, Open ]], +Cell[24856, 836, 175, 3, 51, "Input",ExpressionUUID->"5a33270e-34f4-4323-82d0-70dc555e6edf"], +Cell[CellGroupData[{ +Cell[25056, 843, 307, 6, 51, "Input",ExpressionUUID->"3e6df14a-e8f4-45a3-8e48-55ebe5486ed6"], +Cell[25366, 851, 184, 3, 58, "Output",ExpressionUUID->"d5219011-69ee-416e-b5c7-d87abc8266a5"] +}, Open ]], +Cell[25565, 857, 177, 3, 51, "Input",ExpressionUUID->"d7b01fc2-ded5-46f0-9860-7588154b7c15"], +Cell[CellGroupData[{ +Cell[25767, 864, 311, 6, 51, "Input",ExpressionUUID->"9b5e3193-878f-4049-ac26-33832ff9a585"], +Cell[26081, 872, 183, 3, 58, "Output",ExpressionUUID->"8a5f7408-1d7c-4617-bbd6-7c9bfde7795e"] +}, Open ]], +Cell[26279, 878, 176, 3, 51, "Input",ExpressionUUID->"082437f0-3b56-4f04-9c0e-2fc4cea15500"], +Cell[CellGroupData[{ +Cell[26480, 885, 279, 5, 51, "Input",ExpressionUUID->"a95b9065-e407-4052-9cd0-914d577eba07"], +Cell[26762, 892, 182, 3, 58, "Output",ExpressionUUID->"faa7c284-9b5d-4626-9a13-cfe3667474d6"] +}, Open ]], +Cell[26959, 898, 179, 3, 51, "Input",ExpressionUUID->"e0787538-609d-41e9-abf7-bd1b23d1e76d"], +Cell[CellGroupData[{ +Cell[27163, 905, 19813, 486, 2581, "Input",ExpressionUUID->"7b31be1a-6d11-4236-8210-77a82c551374"], +Cell[46979, 1393, 221, 4, 58, "Output",ExpressionUUID->"e542e4ff-b489-4b0e-8d15-009bafabe86d"] }, 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[47237, 1402, 19752, 490, 2539, "Input",ExpressionUUID->"c2f45571-4655-4449-ab0f-26dc469de44c"], +Cell[66992, 1894, 221, 4, 58, "Output",ExpressionUUID->"e24438fd-dd0c-48c3-aec6-96e409dc29a6"] }, 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[67250, 1903, 19752, 484, 2561, "Input",ExpressionUUID->"51551723-3d3b-47d7-bba0-130e06e2d503"], +Cell[87005, 2389, 235, 5, 109, "Output",ExpressionUUID->"a9b47d28-e121-49bf-a4f2-3b64ec242508"] }, 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[87277, 2399, 28300, 713, 109, "Input",ExpressionUUID->"baed3f29-6f22-4591-a1fe-c43e962c69fa"], +Cell[115580, 3114, 235, 5, 58, "Output",ExpressionUUID->"f82d7828-77aa-4bf4-9545-b52d924f9643"] }, 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[115852, 3124, 22539, 554, 2883, "Input",ExpressionUUID->"63424b29-1f79-4f5b-8071-a4fa52e7cebf"], +Cell[138394, 3680, 238, 5, 58, "Output",ExpressionUUID->"249c682d-bd46-4e01-abb1-9e4b1ca32433"] }, 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[138669, 3690, 25495, 627, 3226, "Input",ExpressionUUID->"0abc3443-85a9-4675-9343-433b236f2c0e"], +Cell[164167, 4319, 239, 5, 58, "Output",ExpressionUUID->"accab13d-983b-47bc-9b39-ca20cb75496c"] }, 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[164443, 4329, 134, 3, 51, "Input",ExpressionUUID->"f0e57101-b62d-4b65-b012-d842e7097718"], +Cell[164580, 4334, 204, 4, 58, "Output",ExpressionUUID->"997a0042-33bc-435b-9020-40f3659a8a7a"] }, 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[164821, 4343, 134, 3, 51, "Input",ExpressionUUID->"98df0087-091d-45d7-b644-411824bb7934"], +Cell[164958, 4348, 204, 4, 58, "Output",ExpressionUUID->"a7dbb396-ddfb-48f0-beb2-c6c26d93723b"] }, 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[165199, 4357, 1148, 40, 190, "Input",ExpressionUUID->"491e8f78-a665-418a-b0c1-46cabcc8453b"], +Cell[166350, 4399, 218, 4, 58, "Output",ExpressionUUID->"c17d75af-0687-4d26-9d03-3de11056e458"] }, 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[166605, 4408, 1045, 36, 257, "Input",ExpressionUUID->"0b8cd8a1-aeef-45df-a380-02d1616e4779"], +Cell[167653, 4446, 238, 5, 58, "Output",ExpressionUUID->"72ceb4a8-eeeb-44c7-9edb-2c85f5f68f3d"] }, 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[167928, 4456, 1148, 40, 190, "Input",ExpressionUUID->"f3d07f3e-212c-47f3-96a4-93c2020e5f81"], +Cell[169079, 4498, 222, 4, 58, "Output",ExpressionUUID->"ab284176-d55e-4cb5-abe2-545b366b7a16"] }, 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[169338, 4507, 112, 2, 51, "Input",ExpressionUUID->"534b7683-ea0b-4b69-852f-1588370b749b"], +Cell[169453, 4511, 224, 4, 58, "Output",ExpressionUUID->"f6d9cefb-2e7a-40d4-98cd-1429ab789aa1"] }, 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[169714, 4520, 112, 2, 51, "Input",ExpressionUUID->"2d46740e-c68a-425a-943c-b9d93b0e8239"], +Cell[169829, 4524, 241, 5, 58, "Output",ExpressionUUID->"18255060-36da-4599-8b0a-3e437a0dace8"] }, 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[170107, 4534, 112, 2, 51, "Input",ExpressionUUID->"501d88a7-dfc9-437f-9b8a-547de52dc8a0"], +Cell[170222, 4538, 239, 5, 58, "Output",ExpressionUUID->"39327496-f811-4b0f-bb0c-fe382d0cb2a9"] }, 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[170498, 4548, 112, 2, 51, "Input",ExpressionUUID->"de1cfc69-7ad2-4a7f-bbbb-4748f1a97881"], +Cell[170613, 4552, 219, 4, 58, "Output",ExpressionUUID->"1081d35f-af9b-4d5b-aa92-7ef7dbfa8979"] }, 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[170869, 4561, 111, 2, 51, "Input",ExpressionUUID->"0e060f43-946a-41fb-85a0-7afd021b4e5f"], +Cell[170983, 4565, 221, 4, 58, "Output",ExpressionUUID->"0d3eac85-0fed-4780-b9a3-f2b875da5370"] }, 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[171241, 4574, 111, 2, 51, "Input",ExpressionUUID->"acb49a6d-0ba0-4610-885a-fcfcdea1a736"], +Cell[171355, 4578, 222, 4, 58, "Output",ExpressionUUID->"c9aa39ef-8135-425d-9d5a-926aaee6ab8c"] }, 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[171614, 4587, 501, 17, 97, "Input",ExpressionUUID->"3f4bc025-fd64-4536-9b0f-7f85202adc92"], +Cell[172118, 4606, 242, 5, 58, "Output",ExpressionUUID->"edb4a415-2e98-48eb-a1c2-7688fefa9102"] }, 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[172397, 4616, 501, 17, 97, "Input",ExpressionUUID->"2bedbda1-90c6-4297-a7a7-862198349712"], +Cell[172901, 4635, 234, 5, 58, "Output",ExpressionUUID->"360176d4-36e9-49a0-aa8b-e339b4979ec3"] }, 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[173172, 4645, 1792, 61, 324, "Input",ExpressionUUID->"b8c489e7-4e72-4a7e-97ad-648529130b83"], +Cell[174967, 4708, 224, 4, 58, "Output",ExpressionUUID->"3dc24e9d-b851-4c1d-be7b-1e37971b12b5"] }, 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[175228, 4717, 1105, 37, 231, "Input",ExpressionUUID->"006f7343-b9bc-43a2-9839-f2e6286ceea0"], +Cell[176336, 4756, 239, 5, 58, "Output",ExpressionUUID->"a6760e9f-c59d-4795-9acd-c8f2dcd1ecba"] }, 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[176612, 4766, 1822, 62, 283, "Input",ExpressionUUID->"eb5d7cbf-54a8-4b33-bc7a-f338cc61d020"], +Cell[178437, 4830, 221, 4, 58, "Output",ExpressionUUID->"f45c3fba-c80d-450a-8cb5-82f9ab9cbf1f"] }, 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[178695, 4839, 1635, 54, 141, "Input",ExpressionUUID->"09925dcf-c3a5-46c1-9871-fd3f2475a6e6"], +Cell[180333, 4895, 223, 4, 58, "Output",ExpressionUUID->"5a7bd319-3af6-47cd-b5ef-7e48a8972595"] }, 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[180593, 4904, 1635, 54, 208, "Input",ExpressionUUID->"e7697b38-341e-4909-ad80-aece3d833884"], +Cell[182231, 4960, 221, 4, 41, "Output",ExpressionUUID->"1028d637-65d2-45d5-bd63-9d36d49e1763"] +}, Open ]], +Cell[182467, 4967, 187, 4, 36, "Input",ExpressionUUID->"83cccf0d-dccb-fb42-a058-5e950c758893"], +Cell[182657, 4973, 152, 3, 36, "Input",ExpressionUUID->"7730e455-e5f4-194b-b761-e7a6896afd10"], +Cell[182812, 4978, 187, 4, 36, "Input",ExpressionUUID->"b70cfd2b-21a1-8344-9518-5e27a96171a9"], +Cell[183002, 4984, 154, 3, 36, "Input",ExpressionUUID->"86df0a71-aa65-aa41-b8f1-8c5c5be10fe8"], +Cell[CellGroupData[{ +Cell[183181, 4991, 1273, 41, 174, "Input",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"], +Cell[184457, 5034, 106, 0, 41, "Output",ExpressionUUID->"cbffa725-bd15-2049-b55f-318286f23572"] }, 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"] -}, Open ]], -Cell[208234, 7211, 138, 3, 70, "Input",ExpressionUUID->"4ad58a38-0776-5240-aa41-ba7c8ff64fb9"], -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[184600, 5039, 910, 31, 128, "Input",ExpressionUUID->"c16f367e-d189-2745-b3b8-a9b137c5e3b6"], +Cell[185513, 5072, 106, 0, 41, "Output",ExpressionUUID->"ccc498a0-28db-294f-9612-85d9a5c6b1f9"] }, 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[185656, 5077, 885, 30, 128, "Input",ExpressionUUID->"b7d001ae-480c-4b41-8df9-8010347227f7"], +Cell[186544, 5109, 106, 0, 41, "Output",ExpressionUUID->"0586a11a-38a6-a040-a172-aaeab8c90dd8"] }, 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[186687, 5114, 532, 18, 66, "Input",ExpressionUUID->"d15e5e59-9ad8-e247-a132-b43b2736212a"], +Cell[187222, 5134, 101, 0, 41, "Output",ExpressionUUID->"c25fd138-6ebd-9549-9de5-30353d068c14"] }, 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[187360, 5139, 625, 21, 66, "Input",ExpressionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"], +Cell[187988, 5162, 100, 0, 41, "Output",ExpressionUUID->"8c8a87e7-f604-4044-b4ce-b17ddc0907b3"] }, 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[188125, 5167, 144, 4, 71, "Input",ExpressionUUID->"906db7f6-73f3-8a4e-88a4-7c75445a4f32"], +Cell[188272, 5173, 101, 0, 41, "Output",ExpressionUUID->"fa0bea71-615d-2d4d-8b39-59994ce24952"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188410, 5178, 144, 4, 69, "Input",ExpressionUUID->"731b68b1-c44a-6c4a-a9f8-bc957ede9a68"], +Cell[188557, 5184, 100, 0, 41, "Output",ExpressionUUID->"d3e4fece-e329-2041-9645-50ae8ca1c91c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188694, 5189, 155, 4, 55, "Input",ExpressionUUID->"71af6813-eb8f-4944-8d03-7bcd77a7b4b4"], +Cell[188852, 5195, 101, 0, 41, "Output",ExpressionUUID->"8db6732d-a570-734c-94eb-cb35afdbb155"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188990, 5200, 155, 4, 55, "Input",ExpressionUUID->"28815b73-08dc-e64f-8823-2a55ad6b8ca8"], +Cell[189148, 5206, 101, 0, 41, "Output",ExpressionUUID->"06581e5e-cb29-0446-9bb7-b3bb2156a7c7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189286, 5211, 6029, 184, 831, "Input",ExpressionUUID->"137e8d46-8eff-3c47-bf8f-1350d0b8a0bb"], +Cell[195318, 5397, 102, 0, 41, "Output",ExpressionUUID->"000a1d2e-b429-4a45-b9a2-ccba4bf718eb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195457, 5402, 342, 8, 53, "Input",ExpressionUUID->"65edd566-4493-2440-9c51-9fca28ce324b"], +Cell[195802, 5412, 342, 6, 26, "Message",ExpressionUUID->"b04cf5cc-6c74-f842-9fba-c737c46f5a7b"], +Cell[196147, 5420, 100, 0, 41, "Output",ExpressionUUID->"32922499-707a-964c-90f0-b2630d16ee29"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196284, 5425, 6096, 186, 900, "Input",ExpressionUUID->"d808e80b-1928-8046-afec-31463f4946cd"], +Cell[202383, 5613, 103, 0, 41, "Output",ExpressionUUID->"17720629-0c4f-744e-a447-06cd4a4f0034"] +}, Open ]], +Cell[CellGroupData[{ +Cell[202523, 5618, 342, 8, 53, "Input",ExpressionUUID->"56b1717f-bc75-4047-98f0-7a0dede3f8a9"], +Cell[202868, 5628, 342, 6, 26, "Message",ExpressionUUID->"6f900e99-9e38-fb4c-84fd-e99588ed1cc5"], +Cell[203213, 5636, 100, 0, 41, "Output",ExpressionUUID->"e5a93687-7c76-eb48-a79a-098cbe08792a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[203350, 5641, 2637, 87, 435, "Input",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-f74418e31aeb"], +Cell[205990, 5730, 101, 0, 41, "Output",ExpressionUUID->"a53e2e6d-ca02-5d40-9088-48aa754351ec"] +}, Open ]], +Cell[CellGroupData[{ +Cell[206128, 5735, 2577, 84, 435, "Input",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-91d5391478d5"], +Cell[208708, 5821, 102, 0, 41, "Output",ExpressionUUID->"5ca04a2b-633e-1547-b10d-b4f00d8b3fcb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[208847, 5826, 3686, 117, 575, "Input",ExpressionUUID->"bea639c9-f172-ef4e-9454-9d4e027f5fa2"], +Cell[212536, 5945, 102, 0, 41, "Output",ExpressionUUID->"af769b0f-0bd4-194f-bc02-90651fd30541"] +}, Open ]], +Cell[212653, 5948, 138, 3, 36, "Input",ExpressionUUID->"752e2dd5-bee6-2048-8697-fe84d79611fa"], +Cell[CellGroupData[{ +Cell[212816, 5955, 2054, 59, 276, "Input",ExpressionUUID->"f8b12d93-5bd9-8641-aa98-3d78ebb0f21b"], +Cell[214873, 6016, 342, 6, 26, "Message",ExpressionUUID->"4105bae1-ec8c-fc46-bc8a-9d70c37ec32c"], +Cell[215218, 6024, 342, 6, 26, "Message",ExpressionUUID->"42c1a263-2456-664a-bb33-c5fe841cb412"], +Cell[215563, 6032, 100, 0, 41, "Output",ExpressionUUID->"1c49befc-babf-0743-9739-e64b536d1c51"] +}, Open ]], +Cell[CellGroupData[{ +Cell[215700, 6037, 2049, 58, 276, "Input",ExpressionUUID->"cbefe077-df46-c24c-b854-69741ca50d38"], +Cell[217752, 6097, 342, 6, 26, "Message",ExpressionUUID->"be4d7bfb-c18e-564a-93ce-3f42607886e7"], +Cell[218097, 6105, 342, 6, 26, "Message",ExpressionUUID->"b768ca5f-6b93-1f43-97bf-08f74ea2facd"], +Cell[218442, 6113, 100, 0, 41, "Output",ExpressionUUID->"6af143a4-6ae5-fb45-8cd1-6940f2290ff9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[218579, 6118, 1938, 53, 232, "Input",ExpressionUUID->"b9a7e2d9-7e48-cb4c-89bc-12d8b19f0936"], +Cell[220520, 6173, 342, 6, 26, "Message",ExpressionUUID->"d3cb6fbc-3803-0541-80d1-8cab47341c44"], +Cell[220865, 6181, 342, 6, 26, "Message",ExpressionUUID->"635ef23c-be29-f947-b49d-c0d2f59f2ba8"], +Cell[221210, 6189, 342, 6, 26, "Message",ExpressionUUID->"d8687e0f-2f42-0543-a749-78a1ff3c9572"], +Cell[221555, 6197, 407, 7, 48, "Message",ExpressionUUID->"b055d243-2255-1f40-80bd-55bc54524667"], +Cell[221965, 6206, 9852, 394, 232, 4231, 300, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"8a200671-82f1-364d-8dba-8342607ad7b7"], +Cell[231820, 6602, 191, 5, 41, "Output",ExpressionUUID->"e49c1b8d-fabe-b944-a6dd-c578eb57eb6a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[232048, 6612, 2094, 60, 311, "Input",ExpressionUUID->"4b73592e-b155-8f42-b33d-562f8b3faecd"], +Cell[234145, 6674, 342, 6, 26, "Message",ExpressionUUID->"9f5fa53c-8bea-a349-9c29-e4614f56cc98"], +Cell[234490, 6682, 342, 6, 26, "Message",ExpressionUUID->"a2ecd22c-b766-5347-9e03-9d459620be75"], +Cell[234835, 6690, 342, 6, 26, "Message",ExpressionUUID->"45a49c2b-98f0-ca4e-ab79-bb0334e26ffd"], +Cell[235180, 6698, 407, 7, 48, "Message",ExpressionUUID->"258782e2-0da4-1143-8b36-76da0d2ac6df"], +Cell[235590, 6707, 10253, 391, 232, 4113, 287, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"06204099-db57-8e4e-bcc4-fa1ae37c0063"], +Cell[245846, 7100, 191, 5, 41, "Output",ExpressionUUID->"8efa1c1f-552a-d042-8a05-04dec8739bf5"] +}, Open ]], +Cell[246052, 7108, 2452, 69, 296, "Input",ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-5e6c7b4b5678"], +Cell[248507, 7179, 209, 5, 36, "Input",ExpressionUUID->"cd9a8165-891b-9245-aca1-3f60fcfd9a79"], +Cell[CellGroupData[{ +Cell[248741, 7188, 215, 7, 61, "Input",ExpressionUUID->"c213919d-017d-a948-8e46-fe19384187c3"], +Cell[248959, 7197, 100, 0, 41, "Output",ExpressionUUID->"38d25667-6c7c-094b-b4ad-180d70233424"] +}, Open ]], +Cell[CellGroupData[{ +Cell[249096, 7202, 1814, 53, 311, "Input",ExpressionUUID->"3764dfb4-9656-4349-b0a1-77ebd1a3e048"], +Cell[250913, 7257, 342, 6, 26, "Message",ExpressionUUID->"12d513db-13cc-bc48-b9a3-22b17d8aeb9a"], +Cell[251258, 7265, 342, 6, 26, "Message",ExpressionUUID->"05911c33-7605-8b49-a7ba-7fc8c8f30741"], +Cell[251603, 7273, 342, 6, 26, "Message",ExpressionUUID->"2192e048-2875-9f4a-aa0c-9cbbd447dfe1"], +Cell[251948, 7281, 407, 7, 48, "Message",ExpressionUUID->"b6990f5f-359f-464b-ac16-44cdfeae3c8e"], +Cell[252358, 7290, 10062, 396, 232, 4186, 297, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"899e43aa-c372-6647-a3e4-4952f308ab17"], +Cell[262423, 7688, 191, 5, 41, "Output",ExpressionUUID->"65116f16-0f68-7e4d-af2e-baecb9a57d9b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[262651, 7698, 1590, 47, 132, "Input",ExpressionUUID->"7899a8a7-561e-a946-a6c9-870ef14ce01b"], +Cell[264244, 7747, 342, 6, 26, "Message",ExpressionUUID->"d7dfab56-fefd-0149-8a26-6ee16f94ab37"], +Cell[264589, 7755, 101, 0, 41, "Output",ExpressionUUID->"43ddf880-80a2-b142-8665-3b95395a9831"] +}, Open ]], +Cell[CellGroupData[{ +Cell[264727, 7760, 2247, 64, 348, "Input",ExpressionUUID->"6fd9b05c-8008-7b42-b1b4-8e83e9537fdc"], +Cell[266977, 7826, 342, 6, 26, "Message",ExpressionUUID->"56921c73-2b67-0e4a-9808-5f61de992c7e"], +Cell[267322, 7834, 342, 6, 26, "Message",ExpressionUUID->"8ae663ad-3729-254b-9ec7-7f5d00ef81af"], +Cell[267667, 7842, 103, 0, 41, "Output",ExpressionUUID->"42e3f6c5-e95f-4040-9e12-cbd48f821f10"] +}, Open ]], +Cell[CellGroupData[{ +Cell[267807, 7847, 2219, 64, 348, "Input",ExpressionUUID->"ccaee6a3-c390-0444-bf16-3471356a3614"], +Cell[270029, 7913, 342, 6, 26, "Message",ExpressionUUID->"1795c3b9-0182-224c-b986-6414d6712c04"], +Cell[270374, 7921, 342, 6, 26, "Message",ExpressionUUID->"c3b31753-a67f-9b45-b822-068e1df11f68"], +Cell[270719, 7929, 100, 0, 41, "Output",ExpressionUUID->"7f3b68f0-36cd-5749-996b-97ffcb02c6cf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[270856, 7934, 2221, 64, 348, "Input",ExpressionUUID->"ca0cc669-d7ba-5b4a-b58b-286954db37c5"], +Cell[273080, 8000, 342, 6, 26, "Message",ExpressionUUID->"32db1bf6-ba11-cb4a-955a-52e174a44e5f"], +Cell[273425, 8008, 342, 6, 26, "Message",ExpressionUUID->"4e2b22f2-1724-7649-93fc-33cd27bb415e"], +Cell[273770, 8016, 101, 0, 41, "Output",ExpressionUUID->"34543184-0f68-7449-9af8-306cfc525771"] +}, Open ]], +Cell[CellGroupData[{ +Cell[273908, 8021, 215, 6, 60, "Input",ExpressionUUID->"7ec678fd-8398-414a-aeba-20e078d734cd"], +Cell[274126, 8029, 104, 0, 41, "Output",ExpressionUUID->"ca67de9f-825c-f641-9d0a-229375d081b1"] +}, Open ]], +Cell[274245, 8032, 247, 5, 36, "Input",ExpressionUUID->"ca329276-48d7-8943-8408-dd2997d3499c"], +Cell[CellGroupData[{ +Cell[274517, 8041, 532, 18, 66, "Input",ExpressionUUID->"681c316f-cd82-ae4b-824f-5eb2b3081f6d"], +Cell[275052, 8061, 100, 0, 41, "Output",ExpressionUUID->"9cf6d8e0-9f1b-734e-b42f-ef77566b5546"] +}, Open ]], +Cell[CellGroupData[{ +Cell[275189, 8066, 144, 4, 71, "Input",ExpressionUUID->"11e77a67-96b2-a645-89cd-559587f30b91"], +Cell[275336, 8072, 100, 0, 41, "Output",ExpressionUUID->"c5ed49bf-8480-c447-a0ac-ef7c5fcad104"] +}, Open ]], +Cell[CellGroupData[{ +Cell[275473, 8077, 155, 4, 55, "Input",ExpressionUUID->"3c5f43e9-afc4-be40-8f37-0116656ecd38"], +Cell[275631, 8083, 100, 0, 41, "Output",ExpressionUUID->"8a551ee1-59e8-d74e-b2fe-ad1527aaef53"] +}, Open ]], +Cell[CellGroupData[{ +Cell[275768, 8088, 6029, 184, 831, "Input",ExpressionUUID->"f07a8476-d7bc-1049-82a6-7cf06f61e28f"], +Cell[281800, 8274, 102, 0, 41, "Output",ExpressionUUID->"6efee3b5-10d6-d642-9cf2-dd8d3fe591e1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[281939, 8279, 342, 8, 53, "Input",ExpressionUUID->"b88b1a94-22d7-2843-88e3-f607b95c8af9"], +Cell[282284, 8289, 342, 6, 26, "Message",ExpressionUUID->"def6b331-c871-b04d-a16e-4fc00b03d009"], +Cell[282629, 8297, 99, 0, 41, "Output",ExpressionUUID->"332f8da7-4eec-ed47-b124-edf7e2bf43d7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[282765, 8302, 6096, 186, 900, "Input",ExpressionUUID->"9d771aab-c0b4-f24c-9b53-9472e00c4d82"], +Cell[288864, 8490, 102, 0, 41, "Output",ExpressionUUID->"0f048ce5-7f5e-0a41-a634-6908b289becd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[289003, 8495, 342, 8, 53, "Input",ExpressionUUID->"47e2a8e8-6af3-374f-9eea-9c2b6faaaf4a"], +Cell[289348, 8505, 342, 6, 26, "Message",ExpressionUUID->"c6c8676e-4601-144e-b83c-769e22949175"], +Cell[289693, 8513, 100, 0, 41, "Output",ExpressionUUID->"bd9f2dfb-0880-624c-8a61-fa3104084faf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[289830, 8518, 2637, 87, 435, "Input",ExpressionUUID->"d8757b1c-19d9-d548-8de4-6b0985b9b3bc"], +Cell[292470, 8607, 101, 0, 41, "Output",ExpressionUUID->"6edb9332-f61a-1c4a-ad7b-c9d3e77138f1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[292608, 8612, 2577, 84, 435, "Input",ExpressionUUID->"58b59182-fae5-674d-b49e-4868d83e9702"], +Cell[295188, 8698, 102, 0, 41, "Output",ExpressionUUID->"5f6645b8-6ac5-6148-a1e1-5f2ee5f21bdd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[295327, 8703, 3686, 117, 575, "Input",ExpressionUUID->"5caf1614-7e5c-9940-98cd-9460e2c074b2"], +Cell[299016, 8822, 102, 0, 41, "Output",ExpressionUUID->"9de56db9-9853-1748-aca6-5103b9dea11d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[299155, 8827, 2052, 59, 276, "Input",ExpressionUUID->"db0784f6-51d0-fd44-b0e8-05d6af1a6e52"], +Cell[301210, 8888, 342, 6, 26, "Message",ExpressionUUID->"7fd60dea-f794-4744-8801-bfb1a50a0e07"], +Cell[301555, 8896, 342, 6, 26, "Message",ExpressionUUID->"0b8c0718-41d2-4542-8afe-212a15805650"], +Cell[301900, 8904, 101, 0, 41, "Output",ExpressionUUID->"a8a97847-bb08-1e4d-8ab6-1eb11a1cda8f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[302038, 8909, 2054, 59, 276, "Input",ExpressionUUID->"7ca6aa7a-7318-6f41-95dc-f69c33a31448"], +Cell[304095, 8970, 342, 6, 26, "Message",ExpressionUUID->"b6f0ccc2-ff83-124b-a341-e143319c7670"], +Cell[304440, 8978, 342, 6, 26, "Message",ExpressionUUID->"d4b50e17-5ee4-384c-b81f-c2a36a80320e"], +Cell[304785, 8986, 100, 0, 41, "Output",ExpressionUUID->"f80834f1-cc9f-1c44-a97c-64c50ba97b67"] +}, Open ]], +Cell[CellGroupData[{ +Cell[304922, 8991, 2030, 55, 232, "Input",ExpressionUUID->"611f92ea-b199-2643-9788-194fae57c34e"], +Cell[306955, 9048, 342, 6, 26, "Message",ExpressionUUID->"7797a546-4085-124a-83da-5f3c472cdc4c"], +Cell[307300, 9056, 342, 6, 26, "Message",ExpressionUUID->"bf75ebeb-fc95-1d45-8487-ceed40ec633c"], +Cell[307645, 9064, 342, 6, 26, "Message",ExpressionUUID->"ca7472ca-7b27-a54a-84a1-e603fa592207"], +Cell[307990, 9072, 407, 7, 48, "Message",ExpressionUUID->"86b3b7d9-f0e9-0a4b-9079-b341ca597ab4"], +Cell[308400, 9081, 11714, 476, 232, 5172, 366, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"f3c0c3aa-fd64-8e41-bc0a-ae36b33a37ec"], +Cell[320117, 9559, 191, 5, 41, "Output",ExpressionUUID->"23cfff6f-2c67-ce46-9cc6-49e8ffb5e8c8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[320345, 9569, 2118, 60, 311, "Input",ExpressionUUID->"f4c3d53a-1214-a145-beb0-494cdae35e56"], +Cell[322466, 9631, 342, 6, 26, "Message",ExpressionUUID->"b9265795-17b8-4e47-bd29-fee31586537e"], +Cell[322811, 9639, 342, 6, 26, "Message",ExpressionUUID->"072fb53f-7116-0f41-a298-6891351a3192"], +Cell[323156, 9647, 342, 6, 26, "Message",ExpressionUUID->"7f686ca7-db7f-0b40-bbd8-c08a80d2c198"], +Cell[323501, 9655, 407, 7, 48, "Message",ExpressionUUID->"3aaeaf29-5b60-ab47-b674-24d071c511f8"], +Cell[323911, 9664, 10793, 406, 232, 4269, 296, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"fb5ee406-78d5-a849-9c81-3ea500ee883f"], +Cell[334707, 10072, 191, 5, 41, "Output",ExpressionUUID->"637816d3-cc2d-bb4a-991c-87bc9c72594a"] +}, Open ]], +Cell[334913, 10080, 209, 5, 36, "Input",ExpressionUUID->"2335a158-7588-4c40-bdb5-53b7ef04b97c"], +Cell[CellGroupData[{ +Cell[335147, 10089, 1590, 47, 132, "Input",ExpressionUUID->"01995149-3665-fe4e-b326-b20429031afd"], +Cell[336740, 10138, 342, 6, 26, "Message",ExpressionUUID->"52cff8eb-0c77-c944-a54f-e282b00ce766"], +Cell[337085, 10146, 101, 0, 41, "Output",ExpressionUUID->"51c9eb8e-8429-9440-b4d1-8a2a914a816b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[337223, 10151, 2251, 64, 348, "Input",ExpressionUUID->"11b1e372-f457-5a4d-bcee-062a3c04ed96"], +Cell[339477, 10217, 342, 6, 26, "Message",ExpressionUUID->"cb5a1193-7562-6446-a279-d9f6295d156e"], +Cell[339822, 10225, 342, 6, 26, "Message",ExpressionUUID->"566b0ad4-7f4e-b04f-8294-646ce1913fac"], +Cell[340167, 10233, 101, 0, 41, "Output",ExpressionUUID->"9a717f6e-3c47-7d43-93ae-4bf4814b6aa7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[340305, 10238, 2220, 64, 348, "Input",ExpressionUUID->"8cb4e371-90a5-d347-adec-3382e7679ba8"], +Cell[342528, 10304, 342, 6, 26, "Message",ExpressionUUID->"4cd45900-7eb0-6b4b-830a-a339e8117392"], +Cell[342873, 10312, 342, 6, 26, "Message",ExpressionUUID->"0ddcf174-f6c5-2546-b6d3-f17f46d6e8a3"], +Cell[343218, 10320, 101, 0, 41, "Output",ExpressionUUID->"3e9bc444-276c-294e-8c8d-12ef37255e0d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[343356, 10325, 2223, 64, 348, "Input",ExpressionUUID->"732b358a-c98a-0347-8b16-2462b23d6249"], +Cell[345582, 10391, 342, 6, 26, "Message",ExpressionUUID->"f702ec8b-e3a1-2f4f-bfef-4278a2688935"], +Cell[345927, 10399, 342, 6, 26, "Message",ExpressionUUID->"61220452-df6a-154e-8b5c-fecd0ab287a1"], +Cell[346272, 10407, 101, 0, 41, "Output",ExpressionUUID->"d8ce023f-3349-8348-844a-2526397581d1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[346410, 10412, 215, 6, 60, "Input",ExpressionUUID->"3d20548b-905d-0343-8df1-168ec8f367e1"], +Cell[346628, 10420, 102, 0, 41, "Output",ExpressionUUID->"b33ad8ed-51f6-a045-9dc5-33a5696fd31e"] +}, Open ]], +Cell[346745, 10423, 247, 5, 36, "Input",ExpressionUUID->"ca34450b-ff3b-f34a-a2ed-e661a25a7ba1"], +Cell[CellGroupData[{ +Cell[347017, 10432, 532, 18, 66, "Input",ExpressionUUID->"601c24ee-3f7b-c74d-891b-10a6d009e34b"], +Cell[347552, 10452, 101, 0, 41, "Output",ExpressionUUID->"f1ecc2fd-4cd6-5249-8977-1cc4a714ca85"] +}, Open ]], +Cell[CellGroupData[{ +Cell[347690, 10457, 144, 4, 71, "Input",ExpressionUUID->"05949206-8ee0-5646-bb01-e9142212274d"], +Cell[347837, 10463, 101, 0, 41, "Output",ExpressionUUID->"0b6f2dc1-dd2d-e341-8cc9-32a5777d3dad"] +}, Open ]], +Cell[CellGroupData[{ +Cell[347975, 10468, 155, 4, 55, "Input",ExpressionUUID->"25a02cc2-cb9a-bc4b-93f0-a7873f982a23"], +Cell[348133, 10474, 100, 0, 41, "Output",ExpressionUUID->"b4c0b4dc-7ff0-3246-8607-df7a1b97c52c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[348270, 10479, 6029, 184, 831, "Input",ExpressionUUID->"df51ca6a-83a1-6340-b13c-0185de64c37f"], +Cell[354302, 10665, 102, 0, 41, "Output",ExpressionUUID->"c326471e-e866-ed4e-b72f-a7b5b42c78d0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[354441, 10670, 342, 8, 53, "Input",ExpressionUUID->"731f0e35-7798-8b45-a769-075ac4b3983f"], +Cell[354786, 10680, 342, 6, 26, "Message",ExpressionUUID->"4870a5d4-b6fc-9044-ae55-fcbd2b9d41eb"], +Cell[355131, 10688, 100, 0, 41, "Output",ExpressionUUID->"4263cd25-e2b6-5c4b-8834-28c6ca12b863"] +}, Open ]], +Cell[CellGroupData[{ +Cell[355268, 10693, 6096, 186, 900, "Input",ExpressionUUID->"413c8e7d-149c-5d4a-9ccb-23aebae2e6d5"], +Cell[361367, 10881, 102, 0, 41, "Output",ExpressionUUID->"ad614c41-0fc1-a542-b7a8-b8207b3c6926"] +}, Open ]], +Cell[CellGroupData[{ +Cell[361506, 10886, 342, 8, 53, "Input",ExpressionUUID->"e11d7eb8-00a8-f540-98a0-89164ac4bae9"], +Cell[361851, 10896, 342, 6, 26, "Message",ExpressionUUID->"d6f4e6b1-3d45-7649-b7dd-944c4a1de3e4"], +Cell[362196, 10904, 99, 0, 41, "Output",ExpressionUUID->"27fdf87b-577e-d74b-99f1-6a0486be19bc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[362332, 10909, 2637, 87, 435, "Input",ExpressionUUID->"08e21b26-8d64-ea4e-8647-1ee89e798d8f"], +Cell[364972, 10998, 101, 0, 41, "Output",ExpressionUUID->"c5362b47-cc2f-ba44-9fef-3c67d726a6cb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[365110, 11003, 2577, 84, 435, "Input",ExpressionUUID->"ae5c0a90-3245-6943-a137-f30d036fcdd2"], +Cell[367690, 11089, 102, 0, 41, "Output",ExpressionUUID->"677f20c9-f9ab-dc41-bd69-627a1665b370"] +}, Open ]], +Cell[CellGroupData[{ +Cell[367829, 11094, 3686, 117, 575, "Input",ExpressionUUID->"46af1283-32d6-7240-acd2-307af56b44db"], +Cell[371518, 11213, 102, 0, 41, "Output",ExpressionUUID->"eb28891c-1746-424b-aa98-1266448f9a3e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[371657, 11218, 2054, 59, 276, "Input",ExpressionUUID->"cd516020-ac7f-224d-b1ff-af0307420662"], +Cell[373714, 11279, 342, 6, 26, "Message",ExpressionUUID->"b82c1933-5313-1d4c-a858-68be8f118333"], +Cell[374059, 11287, 342, 6, 26, "Message",ExpressionUUID->"3b3475f7-7db7-054a-b7f5-20d8f7d491bf"], +Cell[374404, 11295, 100, 0, 41, "Output",ExpressionUUID->"dfa1aa9c-9811-0d49-a9f3-e5e1bcdf702f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[374541, 11300, 2054, 59, 276, "Input",ExpressionUUID->"a9d0e817-a1c8-6546-a901-34313c6ec04d"], +Cell[376598, 11361, 342, 6, 26, "Message",ExpressionUUID->"9e0b92f8-7fe2-e84e-89cd-c02c9da3e5b7"], +Cell[376943, 11369, 342, 6, 26, "Message",ExpressionUUID->"56712e4d-1aa7-524a-8254-bcfd8978eea0"], +Cell[377288, 11377, 100, 0, 41, "Output",ExpressionUUID->"b342636b-f081-cc49-b1ae-5647aa39d6ab"] +}, Open ]], +Cell[CellGroupData[{ +Cell[377425, 11382, 2030, 55, 232, "Input",ExpressionUUID->"f68960b0-cff6-3245-b906-ad38cf07d634"], +Cell[379458, 11439, 342, 6, 26, "Message",ExpressionUUID->"9c6ce535-b42f-3c43-a89e-eda48c04121e"], +Cell[379803, 11447, 342, 6, 26, "Message",ExpressionUUID->"e2ce6bda-7d9b-6149-bf5b-dd4c91908e28"], +Cell[380148, 11455, 342, 6, 26, "Message",ExpressionUUID->"2bed6df2-09cb-4d4d-b247-4fe79fd38fd6"], +Cell[380493, 11463, 407, 7, 48, "Message",ExpressionUUID->"64a64e18-e609-d54b-8225-64fa7909a948"], +Cell[380903, 11472, 11714, 476, 232, 5172, 366, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"7758daab-adf8-2a49-9166-50457409d355"], +Cell[392620, 11950, 191, 5, 41, "Output",ExpressionUUID->"4f7705b8-e954-b341-ab6d-8b4ad9ffca61"] +}, Open ]], +Cell[CellGroupData[{ +Cell[392848, 11960, 2143, 61, 311, "Input",ExpressionUUID->"d43bf17b-b492-0e4a-af4a-6a3bc399953c"], +Cell[394994, 12023, 342, 6, 26, "Message",ExpressionUUID->"2059be4f-bbb2-da49-9e23-3fc4d150d7a8"], +Cell[395339, 12031, 342, 6, 26, "Message",ExpressionUUID->"71d4e039-c2b8-d74d-819a-80d2051e4273"], +Cell[395684, 12039, 342, 6, 26, "Message",ExpressionUUID->"63625e13-15ef-1f45-89dc-998a1b63a626"], +Cell[396029, 12047, 407, 7, 48, "Message",ExpressionUUID->"ff96fc2b-5ddb-2142-a985-58ccc6f07e00"], +Cell[396439, 12056, 10793, 406, 232, 4269, 296, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"a63f48d3-505f-0a45-b944-e872edd94d6c"], +Cell[407235, 12464, 191, 5, 41, "Output",ExpressionUUID->"be4328c1-f4b7-a444-b59f-1872f77ea023"] +}, Open ]], +Cell[407441, 12472, 138, 3, 36, "Input",ExpressionUUID->"4ad58a38-0776-5240-aa41-ba7c8ff64fb9"], +Cell[CellGroupData[{ +Cell[407604, 12479, 1590, 47, 132, "Input",ExpressionUUID->"3edaf53b-bb09-6646-b79e-9350413e0b42"], +Cell[409197, 12528, 342, 6, 26, "Message",ExpressionUUID->"2b38d1a8-4a7e-7b4f-8cdd-5298fced63d9"], +Cell[409542, 12536, 101, 0, 41, "Output",ExpressionUUID->"6941b2ce-51d7-0b43-b524-1e41573ef5f9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[409680, 12541, 2249, 64, 348, "Input",ExpressionUUID->"d2148290-3e90-8347-bddd-5dd8190b0268"], +Cell[411932, 12607, 342, 6, 26, "Message",ExpressionUUID->"905b237c-0e51-ab4b-895d-05994c6f1d5f"], +Cell[412277, 12615, 342, 6, 26, "Message",ExpressionUUID->"7ad8c79e-9570-a44d-b593-07aa87056e21"], +Cell[412622, 12623, 100, 0, 41, "Output",ExpressionUUID->"7a6165f1-f4e7-1f40-9890-5c13218f6833"] +}, Open ]], +Cell[CellGroupData[{ +Cell[412759, 12628, 2219, 64, 348, "Input",ExpressionUUID->"3cdd2064-36e7-b44d-bb0f-98d71f8a8458"], +Cell[414981, 12694, 342, 6, 26, "Message",ExpressionUUID->"c516c31a-74b4-f24d-a16a-678221cde87e"], +Cell[415326, 12702, 342, 6, 26, "Message",ExpressionUUID->"5c50b555-9ebe-f94d-801f-34634555f622"], +Cell[415671, 12710, 99, 0, 41, "Output",ExpressionUUID->"c7a13a95-1179-054f-9108-fe96e6564880"] +}, Open ]], +Cell[CellGroupData[{ +Cell[415807, 12715, 2221, 64, 348, "Input",ExpressionUUID->"c1d3ae3d-f5ac-b04d-af0f-57c1fe1d0585"], +Cell[418031, 12781, 342, 6, 26, "Message",ExpressionUUID->"7ca591cf-a5ce-ce41-8101-8edfca50e890"], +Cell[418376, 12789, 342, 6, 26, "Message",ExpressionUUID->"cbafd11a-4be0-b541-81e4-e62191ae7695"], +Cell[418721, 12797, 101, 0, 41, "Output",ExpressionUUID->"7d22c643-14ba-7245-8972-7de9bf840536"] +}, Open ]], +Cell[CellGroupData[{ +Cell[418859, 12802, 215, 6, 60, "Input",ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-1ca469b254bd"], +Cell[419077, 12810, 102, 0, 41, "Output",ExpressionUUID->"d15888a7-bf5a-b54e-a332-976645c927ce"] +}, Open ]], +Cell[419194, 12813, 185, 4, 36, "Input",ExpressionUUID->"c48b0e02-cac6-46a2-8dae-6c5526596fd2"] } ] *) -(* End of internal cache information *) - diff --git a/Pu240_798-811_TitovAA/164-76_h_Pu240_18-19/h_164-76_Pu240_18-19_osc_Qw1.nb b/Pu240_798-811_TitovAA/164-76_h_Pu240_18-19/h_164-76_Pu240_18-19_osc_Qw1.nb index 29f95cb..7a97de5 100644 --- a/Pu240_798-811_TitovAA/164-76_h_Pu240_18-19/h_164-76_Pu240_18-19_osc_Qw1.nb +++ b/Pu240_798-811_TitovAA/164-76_h_Pu240_18-19/h_164-76_Pu240_18-19_osc_Qw1.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 572608, 14317] -NotebookOptionsPosition[ 530444, 13646] -NotebookOutlinePosition[ 530884, 13664] -CellTagsIndexPosition[ 530841, 13661] +NotebookDataLength[ 575115, 14388] +NotebookOptionsPosition[ 532883, 13716] +NotebookOutlinePosition[ 533323, 13734] +CellTagsIndexPosition[ 533280, 13731] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -24,9 +24,10 @@ Cell[BoxData[ RowBox[{"d", "=", "1.78"}]], "Input", CellChangeTimes->{ 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, - 3.9920650045886707`*^9, {3.993816332414463*^9, 3.993816395113246*^9}}, - CellLabel-> - "In[407]:=",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], + 3.9920650045886707`*^9, {3.993816332414463*^9, 3.993816395113246*^9}, { + 3.99408327105175*^9, + 3.99408327225659*^9}},ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-\ +8326f7c1a9b1"], Cell[BoxData["1.78`"], "Output", CellChangeTimes->{ @@ -7479,9 +7480,72 @@ HbLGog== Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", - RowBox[{"{", "}"}], "]"}]}]], "Input", - CellChangeTimes->{{3.991799458254999*^9, - 3.9917994623413925`*^9}},ExpressionUUID->"d9d63445-4981-8f49-b88b-\ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.005107"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.015156"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.024717"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.033493"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.041238"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.047751"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.052907"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.056635"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.058943"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.059883"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.059573"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.058155"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.055811"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.052723"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.049089"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.045084"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.040884"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.03663"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.03245"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.028437"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.024669"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.02119"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.018036"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.015213"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.012726"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.010557"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.008691"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.007099"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.005759"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.004637"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.00371"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.9940833323653173`*^9},ExpressionUUID->"d9d63445-4981-8f49-b88b-\ 9e93d345c648"], Cell[BoxData[ @@ -13642,9 +13706,15 @@ Cell[BoxData["0.08333108480569339`"], "Output", CellChangeTimes->{3.9913279320452003`*^9}, CellLabel-> "Out[146]=",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"] -}, Open ]] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input", + CellChangeTimes->{{3.9940837104074306`*^9, + 3.994083712741494*^9}},ExpressionUUID->"08768702-f34b-4e10-8a13-\ +30bb622088c4"] }, -WindowSize->{714, 876}, +WindowSize->{714, 435}, WindowMargins->{{Automatic, 3}, {3, Automatic}}, CellContext->Notebook, Magnification:>1.4 Inherited, @@ -13664,661 +13734,662 @@ CellTagsIndex->{} (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ -Cell[576, 22, 304, 6, 40, "Input",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], -Cell[883, 30, 208, 4, 46, "Output",ExpressionUUID->"cefb8d4d-51df-472d-bfa3-4e416027e8e1"] +Cell[576, 22, 330, 7, 51, "Input",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], +Cell[909, 31, 208, 4, 58, "Output",ExpressionUUID->"cefb8d4d-51df-472d-bfa3-4e416027e8e1"] }, Open ]], Cell[CellGroupData[{ -Cell[1128, 39, 253, 5, 40, "Input",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], -Cell[1384, 46, 208, 4, 46, "Output",ExpressionUUID->"3badf72f-4e89-4633-86c0-962e5c0b9464"] +Cell[1154, 40, 253, 5, 51, "Input",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], +Cell[1410, 47, 208, 4, 58, "Output",ExpressionUUID->"3badf72f-4e89-4633-86c0-962e5c0b9464"] }, Open ]], Cell[CellGroupData[{ -Cell[1629, 55, 226, 5, 40, "Input",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], -Cell[1858, 62, 207, 4, 46, "Output",ExpressionUUID->"c93dbef5-3539-413b-9e5d-85ca4413bd19"] +Cell[1655, 56, 226, 5, 51, "Input",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], +Cell[1884, 63, 207, 4, 58, "Output",ExpressionUUID->"c93dbef5-3539-413b-9e5d-85ca4413bd19"] }, Open ]], Cell[CellGroupData[{ -Cell[2102, 71, 180, 4, 40, "Input",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], -Cell[2285, 77, 207, 4, 46, "Output",ExpressionUUID->"0b787f43-671d-4d63-a3b7-b65a6c851284"] +Cell[2128, 72, 180, 4, 51, "Input",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], +Cell[2311, 78, 207, 4, 58, "Output",ExpressionUUID->"0b787f43-671d-4d63-a3b7-b65a6c851284"] }, Open ]], Cell[CellGroupData[{ -Cell[2529, 86, 262, 8, 59, "Input",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], -Cell[2794, 96, 223, 4, 46, "Output",ExpressionUUID->"91e5c082-a16c-4a6f-875a-763c1a8f6fcf"] +Cell[2555, 87, 262, 8, 74, "Input",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], +Cell[2820, 97, 223, 4, 58, "Output",ExpressionUUID->"91e5c082-a16c-4a6f-875a-763c1a8f6fcf"] }, Open ]], Cell[CellGroupData[{ -Cell[3054, 105, 136, 3, 40, "Input",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], -Cell[3193, 110, 206, 4, 46, "Output",ExpressionUUID->"416f51db-c4e4-44d7-97c2-55e00317353b"] +Cell[3080, 106, 136, 3, 51, "Input",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], +Cell[3219, 111, 206, 4, 58, "Output",ExpressionUUID->"416f51db-c4e4-44d7-97c2-55e00317353b"] }, Open ]], Cell[CellGroupData[{ -Cell[3436, 119, 281, 7, 40, "Input",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], -Cell[3720, 128, 221, 4, 46, "Output",ExpressionUUID->"f4000262-78fd-4aed-aace-aa767523bdb7"] +Cell[3462, 120, 281, 7, 51, "Input",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], +Cell[3746, 129, 221, 4, 58, "Output",ExpressionUUID->"f4000262-78fd-4aed-aace-aa767523bdb7"] }, Open ]], Cell[CellGroupData[{ -Cell[3978, 137, 262, 8, 40, "Input",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], -Cell[4243, 147, 221, 4, 46, "Output",ExpressionUUID->"0627a552-2c19-4c7c-aac4-8506c565edbf"] +Cell[4004, 138, 262, 8, 51, "Input",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], +Cell[4269, 148, 221, 4, 58, "Output",ExpressionUUID->"0627a552-2c19-4c7c-aac4-8506c565edbf"] }, Open ]], Cell[CellGroupData[{ -Cell[4501, 156, 229, 5, 40, "Input",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], -Cell[4733, 163, 186, 3, 46, "Output",ExpressionUUID->"19fdee38-e0c2-40de-9adb-8d08da64ad29"] +Cell[4527, 157, 229, 5, 51, "Input",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], +Cell[4759, 164, 186, 3, 58, "Output",ExpressionUUID->"19fdee38-e0c2-40de-9adb-8d08da64ad29"] }, Open ]], Cell[CellGroupData[{ -Cell[4956, 171, 232, 5, 40, "Input",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], -Cell[5191, 178, 184, 3, 46, "Output",ExpressionUUID->"04e2c26b-d153-47a7-9d5f-aeb486d0e35a"] +Cell[4982, 172, 232, 5, 51, "Input",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], +Cell[5217, 179, 184, 3, 58, "Output",ExpressionUUID->"04e2c26b-d153-47a7-9d5f-aeb486d0e35a"] }, Open ]], Cell[CellGroupData[{ -Cell[5412, 186, 133, 3, 40, "Input",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], -Cell[5548, 191, 204, 4, 46, "Output",ExpressionUUID->"c769b883-26da-438c-9457-aa221c5f2646"] +Cell[5438, 187, 133, 3, 51, "Input",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], +Cell[5574, 192, 204, 4, 58, "Output",ExpressionUUID->"c769b883-26da-438c-9457-aa221c5f2646"] }, Open ]], Cell[CellGroupData[{ -Cell[5789, 200, 133, 3, 40, "Input",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], -Cell[5925, 205, 204, 4, 46, "Output",ExpressionUUID->"97cb585b-cdbc-4b2f-8a71-60471e14f9bd"] +Cell[5815, 201, 133, 3, 51, "Input",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], +Cell[5951, 206, 204, 4, 58, "Output",ExpressionUUID->"97cb585b-cdbc-4b2f-8a71-60471e14f9bd"] }, Open ]], Cell[CellGroupData[{ -Cell[6166, 214, 561, 20, 109, "Input",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], -Cell[6730, 236, 222, 4, 46, "Output",ExpressionUUID->"a7f2f565-2e7b-4737-a95f-55f3d894276f"] +Cell[6192, 215, 561, 20, 140, "Input",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], +Cell[6756, 237, 222, 4, 58, "Output",ExpressionUUID->"a7f2f565-2e7b-4737-a95f-55f3d894276f"] }, Open ]], Cell[CellGroupData[{ -Cell[6989, 245, 561, 20, 109, "Input",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], -Cell[7553, 267, 222, 4, 46, "Output",ExpressionUUID->"9311522e-397e-44ac-8335-5c66ce955ab2"] +Cell[7015, 246, 561, 20, 140, "Input",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], +Cell[7579, 268, 222, 4, 58, "Output",ExpressionUUID->"9311522e-397e-44ac-8335-5c66ce955ab2"] }, Open ]], Cell[CellGroupData[{ -Cell[7812, 276, 1592, 51, 188, "Input",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], -Cell[9407, 329, 220, 4, 46, "Output",ExpressionUUID->"13cea7af-38df-4bbf-85ca-b2d769a72d33"] +Cell[7838, 277, 1592, 51, 539, "Input",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], +Cell[9433, 330, 220, 4, 58, "Output",ExpressionUUID->"13cea7af-38df-4bbf-85ca-b2d769a72d33"] }, Open ]], Cell[CellGroupData[{ -Cell[9664, 338, 1426, 47, 155, "Input",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], -Cell[11093, 387, 240, 5, 46, "Output",ExpressionUUID->"a778e92f-ed66-4703-a529-f2237125771e"] +Cell[9690, 339, 1426, 47, 503, "Input",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], +Cell[11119, 388, 240, 5, 58, "Output",ExpressionUUID->"a778e92f-ed66-4703-a529-f2237125771e"] }, Open ]], Cell[CellGroupData[{ -Cell[11370, 397, 1335, 45, 111, "Input",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], -Cell[12708, 444, 239, 5, 46, "Output",ExpressionUUID->"efc8270f-7449-4419-9037-1fcdbe4eb917"] +Cell[11396, 398, 1335, 45, 503, "Input",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], +Cell[12734, 445, 239, 5, 58, "Output",ExpressionUUID->"efc8270f-7449-4419-9037-1fcdbe4eb917"] }, Open ]], Cell[CellGroupData[{ -Cell[12984, 454, 1592, 51, 188, "Input",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], -Cell[14579, 507, 218, 4, 46, "Output",ExpressionUUID->"49380a83-b0ff-45df-935c-e6d630f6f20d"] +Cell[13010, 455, 1592, 51, 539, "Input",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], +Cell[14605, 508, 218, 4, 58, "Output",ExpressionUUID->"49380a83-b0ff-45df-935c-e6d630f6f20d"] }, Open ]], Cell[CellGroupData[{ -Cell[14834, 516, 135, 3, 40, "Input",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], -Cell[14972, 521, 206, 4, 46, "Output",ExpressionUUID->"8d763443-eba5-4611-900f-70ca35bd0041"] +Cell[14860, 517, 135, 3, 51, "Input",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], +Cell[14998, 522, 206, 4, 58, "Output",ExpressionUUID->"8d763443-eba5-4611-900f-70ca35bd0041"] }, Open ]], Cell[CellGroupData[{ -Cell[15215, 530, 137, 3, 40, "Input",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], -Cell[15355, 535, 205, 4, 46, "Output",ExpressionUUID->"86c43d62-1536-415a-9036-6c2389016250"] +Cell[15241, 531, 137, 3, 51, "Input",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], +Cell[15381, 536, 205, 4, 58, "Output",ExpressionUUID->"86c43d62-1536-415a-9036-6c2389016250"] }, Open ]], Cell[CellGroupData[{ -Cell[15597, 544, 138, 3, 40, "Input",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], -Cell[15738, 549, 206, 4, 46, "Output",ExpressionUUID->"dcf069ed-6df6-4704-a2d0-9527449b0829"] +Cell[15623, 545, 138, 3, 51, "Input",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], +Cell[15764, 550, 206, 4, 58, "Output",ExpressionUUID->"dcf069ed-6df6-4704-a2d0-9527449b0829"] }, Open ]], Cell[CellGroupData[{ -Cell[15981, 558, 223, 5, 40, "Input",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], -Cell[16207, 565, 221, 5, 46, "Output",ExpressionUUID->"d4ac3a03-80e5-4cfe-803b-f19f46824a72"] +Cell[16007, 559, 223, 5, 51, "Input",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], +Cell[16233, 566, 221, 5, 58, "Output",ExpressionUUID->"d4ac3a03-80e5-4cfe-803b-f19f46824a72"] }, Open ]], Cell[CellGroupData[{ -Cell[16465, 575, 138, 3, 40, "Input",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], -Cell[16606, 580, 210, 4, 46, "Output",ExpressionUUID->"ecdaa650-fb57-4ff0-b7cc-b0c4b4e2802a"] +Cell[16491, 576, 138, 3, 51, "Input",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], +Cell[16632, 581, 210, 4, 58, "Output",ExpressionUUID->"ecdaa650-fb57-4ff0-b7cc-b0c4b4e2802a"] }, Open ]], Cell[CellGroupData[{ -Cell[16853, 589, 330, 6, 40, "Input",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], -Cell[17186, 597, 205, 4, 46, "Output",ExpressionUUID->"cd72463a-b32a-41e7-97c1-f56d3659cfd3"] +Cell[16879, 590, 330, 6, 51, "Input",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], +Cell[17212, 598, 205, 4, 58, "Output",ExpressionUUID->"cd72463a-b32a-41e7-97c1-f56d3659cfd3"] }, Open ]], Cell[CellGroupData[{ -Cell[17428, 606, 301, 6, 40, "Input",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], -Cell[17732, 614, 205, 4, 46, "Output",ExpressionUUID->"222b04f1-8df7-4632-b17b-47bbc279986d"] +Cell[17454, 607, 301, 6, 51, "Input",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], +Cell[17758, 615, 205, 4, 58, "Output",ExpressionUUID->"222b04f1-8df7-4632-b17b-47bbc279986d"] }, Open ]], Cell[CellGroupData[{ -Cell[17974, 623, 223, 5, 40, "Input",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], -Cell[18200, 630, 203, 4, 46, "Output",ExpressionUUID->"2102f16d-7267-4293-ad6f-3f088c3a264e"] +Cell[18000, 624, 223, 5, 51, "Input",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], +Cell[18226, 631, 203, 4, 58, "Output",ExpressionUUID->"2102f16d-7267-4293-ad6f-3f088c3a264e"] }, Open ]], Cell[CellGroupData[{ -Cell[18440, 639, 354, 11, 59, "Input",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], -Cell[18797, 652, 223, 4, 46, "Output",ExpressionUUID->"df2d83b9-a060-4206-ab25-a58037acf1b8"] +Cell[18466, 640, 354, 11, 74, "Input",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], +Cell[18823, 653, 223, 4, 58, "Output",ExpressionUUID->"df2d83b9-a060-4206-ab25-a58037acf1b8"] }, Open ]], Cell[CellGroupData[{ -Cell[19057, 661, 354, 11, 59, "Input",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], -Cell[19414, 674, 238, 5, 46, "Output",ExpressionUUID->"1b093110-5751-44fc-ba53-aba3f26c11e0"] +Cell[19083, 662, 354, 11, 74, "Input",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], +Cell[19440, 675, 238, 5, 58, "Output",ExpressionUUID->"1b093110-5751-44fc-ba53-aba3f26c11e0"] }, Open ]], Cell[CellGroupData[{ -Cell[19689, 684, 998, 27, 60, "Input",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], -Cell[20690, 713, 223, 4, 46, "Output",ExpressionUUID->"d085f071-d254-4286-a772-dad709740de2"] +Cell[19715, 685, 998, 27, 445, "Input",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], +Cell[20716, 714, 223, 4, 58, "Output",ExpressionUUID->"d085f071-d254-4286-a772-dad709740de2"] }, Open ]], Cell[CellGroupData[{ -Cell[20950, 722, 203, 4, 40, "Input",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], -Cell[21156, 728, 204, 4, 46, "Output",ExpressionUUID->"33c53625-1457-4253-82dc-3b95b673cfae"] +Cell[20976, 723, 203, 4, 51, "Input",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], +Cell[21182, 729, 204, 4, 58, "Output",ExpressionUUID->"33c53625-1457-4253-82dc-3b95b673cfae"] }, Open ]], Cell[CellGroupData[{ -Cell[21397, 737, 303, 6, 40, "Input",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], -Cell[21703, 745, 176, 3, 46, "Output",ExpressionUUID->"9cb10a37-891b-4941-8af2-26e0ec9f6861"] +Cell[21423, 738, 303, 6, 51, "Input",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], +Cell[21729, 746, 176, 3, 58, "Output",ExpressionUUID->"9cb10a37-891b-4941-8af2-26e0ec9f6861"] }, Open ]], -Cell[21894, 751, 177, 3, 40, "Input",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], +Cell[21920, 752, 177, 3, 51, "Input",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], Cell[CellGroupData[{ -Cell[22096, 758, 331, 6, 40, "Input",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], -Cell[22430, 766, 184, 3, 46, "Output",ExpressionUUID->"41dff3ec-614d-41ea-a48f-d20d2baebe24"] +Cell[22122, 759, 331, 6, 51, "Input",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], +Cell[22456, 767, 184, 3, 58, "Output",ExpressionUUID->"41dff3ec-614d-41ea-a48f-d20d2baebe24"] }, Open ]], -Cell[22629, 772, 177, 3, 40, "Input",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], +Cell[22655, 773, 177, 3, 51, "Input",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], Cell[CellGroupData[{ -Cell[22831, 779, 333, 6, 40, "Input",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], -Cell[23167, 787, 183, 3, 46, "Output",ExpressionUUID->"136e1d0d-ba40-448c-9140-5a537b390082"] +Cell[22857, 780, 333, 6, 51, "Input",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], +Cell[23193, 788, 183, 3, 58, "Output",ExpressionUUID->"136e1d0d-ba40-448c-9140-5a537b390082"] }, Open ]], -Cell[23365, 793, 177, 3, 40, "Input",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], +Cell[23391, 794, 177, 3, 51, "Input",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], Cell[CellGroupData[{ -Cell[23567, 800, 358, 6, 40, "Input",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], -Cell[23928, 808, 182, 3, 46, "Output",ExpressionUUID->"8fc2ed65-9e24-4ca8-9554-e820f983c5f2"] +Cell[23593, 801, 358, 6, 51, "Input",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], +Cell[23954, 809, 182, 3, 58, "Output",ExpressionUUID->"8fc2ed65-9e24-4ca8-9554-e820f983c5f2"] }, Open ]], -Cell[24125, 814, 175, 3, 40, "Input",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], +Cell[24151, 815, 175, 3, 51, "Input",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], Cell[CellGroupData[{ -Cell[24325, 821, 305, 6, 40, "Input",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], -Cell[24633, 829, 182, 3, 46, "Output",ExpressionUUID->"aaaec929-970c-4399-9a4d-0b575ae8e327"] +Cell[24351, 822, 305, 6, 51, "Input",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], +Cell[24659, 830, 182, 3, 58, "Output",ExpressionUUID->"aaaec929-970c-4399-9a4d-0b575ae8e327"] }, Open ]], -Cell[24830, 835, 175, 3, 40, "Input",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], +Cell[24856, 836, 175, 3, 51, "Input",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], Cell[CellGroupData[{ -Cell[25030, 842, 307, 6, 40, "Input",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], -Cell[25340, 850, 184, 3, 46, "Output",ExpressionUUID->"753c6143-afda-49b9-bc6c-4abbdbc97575"] +Cell[25056, 843, 307, 6, 51, "Input",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], +Cell[25366, 851, 184, 3, 58, "Output",ExpressionUUID->"753c6143-afda-49b9-bc6c-4abbdbc97575"] }, Open ]], -Cell[25539, 856, 177, 3, 40, "Input",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], +Cell[25565, 857, 177, 3, 51, "Input",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], Cell[CellGroupData[{ -Cell[25741, 863, 311, 6, 40, "Input",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], -Cell[26055, 871, 183, 3, 46, "Output",ExpressionUUID->"6182eeb7-e5dd-441a-aff6-eaae01e51da1"] +Cell[25767, 864, 311, 6, 51, "Input",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], +Cell[26081, 872, 183, 3, 58, "Output",ExpressionUUID->"6182eeb7-e5dd-441a-aff6-eaae01e51da1"] }, Open ]], -Cell[26253, 877, 176, 3, 40, "Input",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], +Cell[26279, 878, 176, 3, 51, "Input",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], Cell[CellGroupData[{ -Cell[26454, 884, 279, 5, 40, "Input",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], -Cell[26736, 891, 182, 3, 46, "Output",ExpressionUUID->"76313be7-6c8a-4386-b96b-883e315a76f4"] +Cell[26480, 885, 279, 5, 51, "Input",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], +Cell[26762, 892, 182, 3, 58, "Output",ExpressionUUID->"76313be7-6c8a-4386-b96b-883e315a76f4"] }, Open ]], -Cell[26933, 897, 179, 3, 40, "Input",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], +Cell[26959, 898, 179, 3, 51, "Input",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], Cell[CellGroupData[{ -Cell[27137, 904, 19813, 486, 1847, "Input",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], -Cell[46953, 1392, 221, 4, 46, "Output",ExpressionUUID->"f84055a2-85c9-46b2-9644-09be5dc33714"] +Cell[27163, 905, 19813, 486, 5658, "Input",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], +Cell[46979, 1393, 221, 4, 58, "Output",ExpressionUUID->"f84055a2-85c9-46b2-9644-09be5dc33714"] }, Open ]], Cell[CellGroupData[{ -Cell[47211, 1401, 19752, 490, 1862, "Input",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], -Cell[66966, 1893, 221, 4, 46, "Output",ExpressionUUID->"a2bf0d30-843e-40f2-97e5-9802c78656c9"] +Cell[47237, 1402, 19752, 490, 5670, "Input",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], +Cell[66992, 1894, 221, 4, 58, "Output",ExpressionUUID->"a2bf0d30-843e-40f2-97e5-9802c78656c9"] }, Open ]], Cell[CellGroupData[{ -Cell[67224, 1902, 19752, 484, 1861, "Input",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], -Cell[86979, 2388, 235, 5, 46, "Output",ExpressionUUID->"5f3b556f-3600-4322-b0ba-9de12da40a82"] +Cell[67250, 1903, 19752, 484, 5669, "Input",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], +Cell[87005, 2389, 235, 5, 58, "Output",ExpressionUUID->"5f3b556f-3600-4322-b0ba-9de12da40a82"] }, Open ]], Cell[CellGroupData[{ -Cell[87251, 2398, 22538, 554, 2040, "Input",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], -Cell[109792, 2954, 235, 5, 46, "Output",ExpressionUUID->"d12c66e5-63dc-4cd8-a0ec-e1e8dcc9504c"] +Cell[87277, 2399, 22538, 554, 6496, "Input",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], +Cell[109818, 2955, 235, 5, 58, "Output",ExpressionUUID->"d12c66e5-63dc-4cd8-a0ec-e1e8dcc9504c"] }, Open ]], Cell[CellGroupData[{ -Cell[110064, 2964, 22539, 554, 2040, "Input",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], -Cell[132606, 3520, 238, 5, 46, "Output",ExpressionUUID->"4b31a03d-cc55-4510-8634-28f5e0e6b271"] +Cell[110090, 2965, 22539, 554, 6496, "Input",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], +Cell[132632, 3521, 238, 5, 58, "Output",ExpressionUUID->"4b31a03d-cc55-4510-8634-28f5e0e6b271"] }, Open ]], Cell[CellGroupData[{ -Cell[132881, 3530, 25495, 627, 2249, "Input",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], -Cell[158379, 4159, 239, 5, 46, "Output",ExpressionUUID->"2b7de1ac-570f-474c-8239-184ad456eee3"] +Cell[132907, 3531, 25495, 627, 7361, "Input",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], +Cell[158405, 4160, 239, 5, 58, "Output",ExpressionUUID->"2b7de1ac-570f-474c-8239-184ad456eee3"] }, Open ]], Cell[CellGroupData[{ -Cell[158655, 4169, 134, 3, 40, "Input",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], -Cell[158792, 4174, 204, 4, 46, "Output",ExpressionUUID->"861321e7-61d3-4dcd-9748-d422ae43ea73"] +Cell[158681, 4170, 134, 3, 51, "Input",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], +Cell[158818, 4175, 204, 4, 58, "Output",ExpressionUUID->"861321e7-61d3-4dcd-9748-d422ae43ea73"] }, Open ]], Cell[CellGroupData[{ -Cell[159033, 4183, 134, 3, 40, "Input",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], -Cell[159170, 4188, 204, 4, 46, "Output",ExpressionUUID->"2a15aa7a-f1ab-4f05-afb7-e841a1dfee2c"] +Cell[159059, 4184, 134, 3, 51, "Input",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], +Cell[159196, 4189, 204, 4, 58, "Output",ExpressionUUID->"2a15aa7a-f1ab-4f05-afb7-e841a1dfee2c"] }, Open ]], Cell[CellGroupData[{ -Cell[159411, 4197, 1148, 40, 79, "Input",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], -Cell[160562, 4239, 218, 4, 46, "Output",ExpressionUUID->"845a428e-c03b-4545-98f6-89f2b7e4a843"] +Cell[159437, 4198, 1148, 40, 565, "Input",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], +Cell[160588, 4240, 218, 4, 58, "Output",ExpressionUUID->"845a428e-c03b-4545-98f6-89f2b7e4a843"] }, Open ]], Cell[CellGroupData[{ -Cell[160817, 4248, 1045, 36, 79, "Input",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], -Cell[161865, 4286, 238, 5, 46, "Output",ExpressionUUID->"d6562593-792b-4263-a237-60596f6ae38d"] +Cell[160843, 4249, 1045, 36, 562, "Input",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], +Cell[161891, 4287, 238, 5, 58, "Output",ExpressionUUID->"d6562593-792b-4263-a237-60596f6ae38d"] }, Open ]], Cell[CellGroupData[{ -Cell[162140, 4296, 1148, 40, 79, "Input",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], -Cell[163291, 4338, 222, 4, 46, "Output",ExpressionUUID->"144edb5a-f746-49cb-98e4-490ce0b3cb9d"] +Cell[162166, 4297, 1148, 40, 565, "Input",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], +Cell[163317, 4339, 222, 4, 58, "Output",ExpressionUUID->"144edb5a-f746-49cb-98e4-490ce0b3cb9d"] }, Open ]], Cell[CellGroupData[{ -Cell[163550, 4347, 112, 2, 40, "Input",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], -Cell[163665, 4351, 224, 4, 46, "Output",ExpressionUUID->"7e96279f-ad61-45f9-ab85-2045b780b2b1"] +Cell[163576, 4348, 112, 2, 51, "Input",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], +Cell[163691, 4352, 224, 4, 58, "Output",ExpressionUUID->"7e96279f-ad61-45f9-ab85-2045b780b2b1"] }, Open ]], Cell[CellGroupData[{ -Cell[163926, 4360, 112, 2, 40, "Input",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], -Cell[164041, 4364, 241, 5, 46, "Output",ExpressionUUID->"13439555-e5d0-472e-94fd-d84043b9424a"] +Cell[163952, 4361, 112, 2, 51, "Input",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], +Cell[164067, 4365, 241, 5, 58, "Output",ExpressionUUID->"13439555-e5d0-472e-94fd-d84043b9424a"] }, Open ]], Cell[CellGroupData[{ -Cell[164319, 4374, 112, 2, 40, "Input",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], -Cell[164434, 4378, 239, 5, 46, "Output",ExpressionUUID->"15b8f6b0-59e6-4533-9b1f-bedba699451d"] +Cell[164345, 4375, 112, 2, 51, "Input",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], +Cell[164460, 4379, 239, 5, 58, "Output",ExpressionUUID->"15b8f6b0-59e6-4533-9b1f-bedba699451d"] }, Open ]], Cell[CellGroupData[{ -Cell[164710, 4388, 112, 2, 40, "Input",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], -Cell[164825, 4392, 219, 4, 46, "Output",ExpressionUUID->"414630e2-bb8a-4fce-a8ee-27e34bd1cd3d"] +Cell[164736, 4389, 112, 2, 51, "Input",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], +Cell[164851, 4393, 219, 4, 58, "Output",ExpressionUUID->"414630e2-bb8a-4fce-a8ee-27e34bd1cd3d"] }, Open ]], Cell[CellGroupData[{ -Cell[165081, 4401, 111, 2, 40, "Input",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], -Cell[165195, 4405, 221, 4, 46, "Output",ExpressionUUID->"5468dcf4-4ec6-4956-b44c-29ed43e16498"] +Cell[165107, 4402, 111, 2, 51, "Input",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], +Cell[165221, 4406, 221, 4, 58, "Output",ExpressionUUID->"5468dcf4-4ec6-4956-b44c-29ed43e16498"] }, Open ]], Cell[CellGroupData[{ -Cell[165453, 4414, 111, 2, 40, "Input",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], -Cell[165567, 4418, 222, 4, 46, "Output",ExpressionUUID->"43cccc66-1758-49c8-be68-b568edceaf0b"] +Cell[165479, 4415, 111, 2, 51, "Input",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], +Cell[165593, 4419, 222, 4, 58, "Output",ExpressionUUID->"43cccc66-1758-49c8-be68-b568edceaf0b"] }, Open ]], Cell[CellGroupData[{ -Cell[165826, 4427, 501, 17, 77, "Input",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], -Cell[166330, 4446, 242, 5, 46, "Output",ExpressionUUID->"cc0d63a3-695d-42d6-a950-87eae12a1fb3"] +Cell[165852, 4428, 501, 17, 166, "Input",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], +Cell[166356, 4447, 242, 5, 58, "Output",ExpressionUUID->"cc0d63a3-695d-42d6-a950-87eae12a1fb3"] }, Open ]], Cell[CellGroupData[{ -Cell[166609, 4456, 501, 17, 77, "Input",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], -Cell[167113, 4475, 234, 5, 46, "Output",ExpressionUUID->"e6f10425-a835-4974-aaa0-f6a7d301a46d"] +Cell[166635, 4457, 501, 17, 166, "Input",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], +Cell[167139, 4476, 234, 5, 58, "Output",ExpressionUUID->"e6f10425-a835-4974-aaa0-f6a7d301a46d"] }, Open ]], Cell[CellGroupData[{ -Cell[167384, 4485, 1792, 61, 187, "Input",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], -Cell[169179, 4548, 224, 4, 46, "Output",ExpressionUUID->"7b5d8d69-84db-412d-831e-328c6dd8aff2"] +Cell[167410, 4486, 1792, 61, 828, "Input",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], +Cell[169205, 4549, 224, 4, 58, "Output",ExpressionUUID->"7b5d8d69-84db-412d-831e-328c6dd8aff2"] }, Open ]], Cell[CellGroupData[{ -Cell[169440, 4557, 1105, 37, 79, "Input",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], -Cell[170548, 4596, 239, 5, 46, "Output",ExpressionUUID->"fc4954b3-c1a5-4a1e-8d7b-252f78d8f95e"] +Cell[169466, 4558, 1105, 37, 600, "Input",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], +Cell[170574, 4597, 239, 5, 58, "Output",ExpressionUUID->"fc4954b3-c1a5-4a1e-8d7b-252f78d8f95e"] }, Open ]], Cell[CellGroupData[{ -Cell[170824, 4606, 1822, 62, 155, "Input",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], -Cell[172649, 4670, 221, 4, 46, "Output",ExpressionUUID->"27b4a8ae-8a51-47d2-af27-7d56874c1be1"] +Cell[170850, 4607, 1822, 62, 828, "Input",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], +Cell[172675, 4671, 221, 4, 58, "Output",ExpressionUUID->"27b4a8ae-8a51-47d2-af27-7d56874c1be1"] }, Open ]], Cell[CellGroupData[{ -Cell[172907, 4679, 1635, 54, 111, "Input",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], -Cell[174545, 4735, 223, 4, 46, "Output",ExpressionUUID->"f21d1b72-74d3-4ec6-adae-629db40f0cb1"] +Cell[172933, 4680, 1635, 54, 453, "Input",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], +Cell[174571, 4736, 223, 4, 58, "Output",ExpressionUUID->"f21d1b72-74d3-4ec6-adae-629db40f0cb1"] }, Open ]], Cell[CellGroupData[{ -Cell[174805, 4744, 1635, 54, 111, "Input",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], -Cell[176443, 4800, 221, 4, 46, "Output",ExpressionUUID->"02830e76-24eb-46ae-bc83-50241d3c6260"] +Cell[174831, 4745, 1635, 54, 453, "Input",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], +Cell[176469, 4801, 221, 4, 58, "Output",ExpressionUUID->"02830e76-24eb-46ae-bc83-50241d3c6260"] }, Open ]], Cell[CellGroupData[{ -Cell[176701, 4809, 233, 5, 40, "Input",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], -Cell[176937, 4816, 184, 3, 46, "Output",ExpressionUUID->"7a8afcac-5a7b-41fd-b417-98472b0f0a53"] +Cell[176727, 4810, 233, 5, 51, "Input",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], +Cell[176963, 4817, 184, 3, 58, "Output",ExpressionUUID->"7a8afcac-5a7b-41fd-b417-98472b0f0a53"] }, Open ]], -Cell[177136, 4822, 176, 3, 40, "Input",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], +Cell[177162, 4823, 176, 3, 51, "Input",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], Cell[CellGroupData[{ -Cell[177337, 4829, 232, 5, 40, "Input",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], -Cell[177572, 4836, 186, 3, 46, "Output",ExpressionUUID->"dbb7b6a5-26fa-450c-bf3b-b84937e2be2e"] +Cell[177363, 4830, 232, 5, 51, "Input",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], +Cell[177598, 4837, 186, 3, 58, "Output",ExpressionUUID->"dbb7b6a5-26fa-450c-bf3b-b84937e2be2e"] }, Open ]], -Cell[177773, 4842, 177, 3, 40, "Input",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], +Cell[177799, 4843, 177, 3, 51, "Input",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], Cell[CellGroupData[{ -Cell[177975, 4849, 1301, 43, 67, "Input",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], -Cell[179279, 4894, 226, 4, 46, "Output",ExpressionUUID->"bad4af36-1f4e-40ba-8366-e40b1978f34c"] +Cell[178001, 4850, 1301, 43, 237, "Input",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], +Cell[179305, 4895, 226, 4, 58, "Output",ExpressionUUID->"bad4af36-1f4e-40ba-8366-e40b1978f34c"] }, Open ]], Cell[CellGroupData[{ -Cell[179542, 4903, 931, 31, 79, "Input",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], -Cell[180476, 4936, 224, 4, 46, "Output",ExpressionUUID->"78fcebbc-de9c-4274-b8e7-debfed9eaadd"] +Cell[179568, 4904, 931, 31, 236, "Input",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], +Cell[180502, 4937, 224, 4, 58, "Output",ExpressionUUID->"78fcebbc-de9c-4274-b8e7-debfed9eaadd"] }, Open ]], Cell[CellGroupData[{ -Cell[180737, 4945, 907, 30, 79, "Input",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], -Cell[181647, 4977, 225, 4, 46, "Output",ExpressionUUID->"ac1d6e70-d0ac-4c8e-9a46-ddb335b81d79"] +Cell[180763, 4946, 907, 30, 236, "Input",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], +Cell[181673, 4978, 225, 4, 58, "Output",ExpressionUUID->"ac1d6e70-d0ac-4c8e-9a46-ddb335b81d79"] }, Open ]], Cell[CellGroupData[{ -Cell[181909, 4986, 558, 19, 73, "Input",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], -Cell[182470, 5007, 619, 10, 46, "Output",ExpressionUUID->"bc12d600-6f53-4b9a-bc6e-ba60d665de90"] +Cell[181935, 4987, 558, 19, 91, "Input",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], +Cell[182496, 5008, 619, 10, 58, "Output",ExpressionUUID->"bc12d600-6f53-4b9a-bc6e-ba60d665de90"] }, Open ]], Cell[CellGroupData[{ -Cell[183126, 5022, 665, 22, 73, "Input",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], -Cell[183794, 5046, 600, 9, 46, "Output",ExpressionUUID->"e82b0cbe-fd45-4152-9d35-25890b55d736"] +Cell[183152, 5023, 665, 22, 91, "Input",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], +Cell[183820, 5047, 600, 9, 58, "Output",ExpressionUUID->"e82b0cbe-fd45-4152-9d35-25890b55d736"] }, Open ]], Cell[CellGroupData[{ -Cell[184431, 5060, 170, 5, 77, "Input",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], -Cell[184604, 5067, 628, 10, 46, "Output",ExpressionUUID->"a702f36a-c9a3-4684-93ef-8dcb7b45e452"] +Cell[184457, 5061, 170, 5, 97, "Input",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], +Cell[184630, 5068, 628, 10, 58, "Output",ExpressionUUID->"a702f36a-c9a3-4684-93ef-8dcb7b45e452"] }, Open ]], Cell[CellGroupData[{ -Cell[185269, 5082, 236, 6, 77, "Input",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], -Cell[185508, 5090, 564, 9, 46, "Output",ExpressionUUID->"8155ab12-df8c-4291-8f77-a45e0b1ec5ba"] +Cell[185295, 5083, 236, 6, 96, "Input",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], +Cell[185534, 5091, 564, 9, 58, "Output",ExpressionUUID->"8155ab12-df8c-4291-8f77-a45e0b1ec5ba"] }, Open ]], Cell[CellGroupData[{ -Cell[186109, 5104, 223, 6, 60, "Input",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], -Cell[186335, 5112, 598, 9, 46, "Output",ExpressionUUID->"e5427862-c331-47cd-addf-db8ab630b65d"] +Cell[186135, 5105, 223, 6, 75, "Input",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], +Cell[186361, 5113, 598, 9, 58, "Output",ExpressionUUID->"e5427862-c331-47cd-addf-db8ab630b65d"] }, Open ]], Cell[CellGroupData[{ -Cell[186970, 5126, 181, 5, 60, "Input",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], -Cell[187154, 5133, 620, 10, 46, "Output",ExpressionUUID->"2a6c3a58-c72a-414a-bb87-3b9103fd2be9"] +Cell[186996, 5127, 181, 5, 75, "Input",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], +Cell[187180, 5134, 620, 10, 58, "Output",ExpressionUUID->"2a6c3a58-c72a-414a-bb87-3b9103fd2be9"] }, Open ]], Cell[CellGroupData[{ -Cell[187811, 5148, 6055, 185, 465, "Input",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], -Cell[193869, 5335, 596, 9, 46, "Output",ExpressionUUID->"af603e11-c12e-4051-aa82-8f8128a52f4f"] +Cell[187837, 5149, 6055, 185, 1734, "Input",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], +Cell[193895, 5336, 596, 9, 58, "Output",ExpressionUUID->"af603e11-c12e-4051-aa82-8f8128a52f4f"] }, Open ]], Cell[CellGroupData[{ -Cell[194502, 5349, 410, 10, 81, "Input",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], -Cell[194915, 5361, 619, 10, 68, "Output",ExpressionUUID->"f903f354-cf61-4bbd-8e0c-a5dcfbe758fe"] +Cell[194528, 5350, 410, 10, 101, "Input",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], +Cell[194941, 5362, 619, 10, 86, "Output",ExpressionUUID->"f903f354-cf61-4bbd-8e0c-a5dcfbe758fe"] }, Open ]], -Cell[195549, 5374, 492, 10, 40, "Input",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], +Cell[195575, 5375, 492, 10, 51, "Input",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], Cell[CellGroupData[{ -Cell[196066, 5388, 558, 19, 73, "Input",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], -Cell[196627, 5409, 218, 4, 46, "Output",ExpressionUUID->"c0f79413-9a60-4813-ae4d-1a65481b901f"] +Cell[196092, 5389, 558, 19, 91, "Input",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], +Cell[196653, 5410, 218, 4, 58, "Output",ExpressionUUID->"c0f79413-9a60-4813-ae4d-1a65481b901f"] }, Open ]], Cell[CellGroupData[{ -Cell[196882, 5418, 623, 21, 73, "Input",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], -Cell[197508, 5441, 226, 4, 46, "Output",ExpressionUUID->"14f40ac7-4228-402e-b758-ce53a98648c9"] +Cell[196908, 5419, 623, 21, 91, "Input",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], +Cell[197534, 5442, 226, 4, 58, "Output",ExpressionUUID->"14f40ac7-4228-402e-b758-ce53a98648c9"] }, Open ]], Cell[CellGroupData[{ -Cell[197771, 5450, 170, 5, 77, "Input",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], -Cell[197944, 5457, 222, 4, 46, "Output",ExpressionUUID->"7e8e51d8-a785-4317-bc6d-1812864e727a"] +Cell[197797, 5451, 170, 5, 97, "Input",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], +Cell[197970, 5458, 222, 4, 58, "Output",ExpressionUUID->"7e8e51d8-a785-4317-bc6d-1812864e727a"] }, Open ]], Cell[CellGroupData[{ -Cell[198203, 5466, 170, 5, 77, "Input",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], -Cell[198376, 5473, 221, 4, 46, "Output",ExpressionUUID->"f88548f5-be3d-4490-9173-b2cb28fd4180"] +Cell[198229, 5467, 170, 5, 96, "Input",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], +Cell[198402, 5474, 221, 4, 58, "Output",ExpressionUUID->"f88548f5-be3d-4490-9173-b2cb28fd4180"] }, Open ]], Cell[CellGroupData[{ -Cell[198634, 5482, 181, 5, 60, "Input",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], -Cell[198818, 5489, 222, 4, 46, "Output",ExpressionUUID->"095b4709-7b5a-4b64-b95e-04929a86c206"] +Cell[198660, 5483, 181, 5, 75, "Input",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], +Cell[198844, 5490, 222, 4, 58, "Output",ExpressionUUID->"095b4709-7b5a-4b64-b95e-04929a86c206"] }, Open ]], Cell[CellGroupData[{ -Cell[199077, 5498, 181, 5, 60, "Input",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], -Cell[199261, 5505, 221, 4, 46, "Output",ExpressionUUID->"8ed04c21-8a50-4275-8835-5af082119b9c"] +Cell[199103, 5499, 181, 5, 75, "Input",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], +Cell[199287, 5506, 221, 4, 58, "Output",ExpressionUUID->"8ed04c21-8a50-4275-8835-5af082119b9c"] }, Open ]], Cell[CellGroupData[{ -Cell[199519, 5514, 6055, 185, 465, "Input",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], -Cell[205577, 5701, 224, 4, 46, "Output",ExpressionUUID->"f1cee2d5-810b-4cae-85ac-11faf205276e"] +Cell[199545, 5515, 6055, 185, 1734, "Input",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], +Cell[205603, 5702, 224, 4, 58, "Output",ExpressionUUID->"f1cee2d5-810b-4cae-85ac-11faf205276e"] }, Open ]], Cell[CellGroupData[{ -Cell[205838, 5710, 368, 9, 58, "Input",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], -Cell[206209, 5721, 221, 4, 46, "Output",ExpressionUUID->"e2020e28-bc6a-4395-a19e-8ddb536157c9"] +Cell[205864, 5711, 368, 9, 73, "Input",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], +Cell[206235, 5722, 221, 4, 58, "Output",ExpressionUUID->"e2020e28-bc6a-4395-a19e-8ddb536157c9"] }, Open ]], Cell[CellGroupData[{ -Cell[206467, 5730, 6122, 187, 465, "Input",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], -Cell[212592, 5919, 226, 4, 46, "Output",ExpressionUUID->"b1c28c25-b36d-48d3-9552-672d4865961a"] +Cell[206493, 5731, 6122, 187, 1645, "Input",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], +Cell[212618, 5920, 226, 4, 58, "Output",ExpressionUUID->"b1c28c25-b36d-48d3-9552-672d4865961a"] }, Open ]], Cell[CellGroupData[{ -Cell[212855, 5928, 368, 9, 58, "Input",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], -Cell[213226, 5939, 225, 4, 46, "Output",ExpressionUUID->"4f0fe4a0-99be-42b7-aa0c-b0bd5b43d08d"] +Cell[212881, 5929, 368, 9, 73, "Input",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], +Cell[213252, 5940, 225, 4, 58, "Output",ExpressionUUID->"4f0fe4a0-99be-42b7-aa0c-b0bd5b43d08d"] }, Open ]], Cell[CellGroupData[{ -Cell[213488, 5948, 2663, 88, 232, "Input",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], -Cell[216154, 6038, 223, 4, 46, "Output",ExpressionUUID->"704c42d5-744b-4840-a2ae-97d722fd0d03"] +Cell[213514, 5949, 2663, 88, 786, "Input",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], +Cell[216180, 6039, 223, 4, 58, "Output",ExpressionUUID->"704c42d5-744b-4840-a2ae-97d722fd0d03"] }, Open ]], Cell[CellGroupData[{ -Cell[216414, 6047, 2603, 85, 232, "Input",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], -Cell[219020, 6134, 222, 4, 46, "Output",ExpressionUUID->"048dcdc4-d992-43e8-982a-0818fae2e502"] +Cell[216440, 6048, 2603, 85, 786, "Input",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], +Cell[219046, 6135, 222, 4, 58, "Output",ExpressionUUID->"048dcdc4-d992-43e8-982a-0818fae2e502"] }, Open ]], Cell[CellGroupData[{ -Cell[219279, 6143, 3712, 118, 341, "Input",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], -Cell[222994, 6263, 223, 4, 46, "Output",ExpressionUUID->"45362ca2-8505-4c0c-be80-6810f9e2e262"] +Cell[219305, 6144, 3712, 118, 1131, "Input",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], +Cell[223020, 6264, 223, 4, 58, "Output",ExpressionUUID->"45362ca2-8505-4c0c-be80-6810f9e2e262"] }, Open ]], -Cell[223232, 6270, 164, 4, 40, "Input",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], +Cell[223258, 6271, 164, 4, 51, "Input",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], Cell[CellGroupData[{ -Cell[223421, 6278, 2075, 59, 127, "Input",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], -Cell[225499, 6339, 613, 14, 82, "Message",ExpressionUUID->"4f7a78d1-66f0-4b72-ab98-8fb879f3c3fa"], -Cell[226115, 6355, 616, 14, 82, "Message",ExpressionUUID->"284c8af2-e4c3-4e65-aaf3-f027d91c853c"], -Cell[226734, 6371, 620, 14, 82, "Message",ExpressionUUID->"b93f277d-0a8c-47fc-832f-87564d92c77d"], -Cell[227357, 6387, 521, 12, 36, "Message",ExpressionUUID->"5b760d07-5b58-431e-adf7-8d3eab9b5cb8"], -Cell[227881, 6401, 213, 4, 46, "Output",ExpressionUUID->"e19f4ec4-fcd9-417a-986f-aa0ead64d1c1"] +Cell[223447, 6279, 2075, 59, 581, "Input",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], +Cell[225525, 6340, 613, 14, 198, "Message",ExpressionUUID->"4f7a78d1-66f0-4b72-ab98-8fb879f3c3fa"], +Cell[226141, 6356, 616, 14, 198, "Message",ExpressionUUID->"284c8af2-e4c3-4e65-aaf3-f027d91c853c"], +Cell[226760, 6372, 620, 14, 109, "Message",ExpressionUUID->"b93f277d-0a8c-47fc-832f-87564d92c77d"], +Cell[227383, 6388, 521, 12, 109, "Message",ExpressionUUID->"5b760d07-5b58-431e-adf7-8d3eab9b5cb8"], +Cell[227907, 6402, 213, 4, 58, "Output",ExpressionUUID->"e19f4ec4-fcd9-417a-986f-aa0ead64d1c1"] }, Open ]], Cell[CellGroupData[{ -Cell[228131, 6410, 2077, 59, 127, "Input",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], -Cell[230211, 6471, 586, 13, 82, "Message",ExpressionUUID->"274958f5-2a7e-419c-8dc2-a90c7de1639d"], -Cell[230800, 6486, 592, 13, 82, "Message",ExpressionUUID->"6c25b6e2-a3c0-43e6-b374-cf0e48518d2c"], -Cell[231395, 6501, 593, 13, 82, "Message",ExpressionUUID->"1c82783a-5ec4-448a-bc49-ba7244d1dac3"], -Cell[231991, 6516, 492, 11, 36, "Message",ExpressionUUID->"0980108d-7ceb-4527-b99c-f36cfb00c059"], -Cell[232486, 6529, 192, 3, 46, "Output",ExpressionUUID->"7bfe0dc9-265c-4029-af6a-530f137ab01c"] +Cell[228157, 6411, 2077, 59, 581, "Input",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], +Cell[230237, 6472, 586, 13, 198, "Message",ExpressionUUID->"274958f5-2a7e-419c-8dc2-a90c7de1639d"], +Cell[230826, 6487, 592, 13, 198, "Message",ExpressionUUID->"6c25b6e2-a3c0-43e6-b374-cf0e48518d2c"], +Cell[231421, 6502, 593, 13, 101, "Message",ExpressionUUID->"1c82783a-5ec4-448a-bc49-ba7244d1dac3"], +Cell[232017, 6517, 492, 11, 38, "Message",ExpressionUUID->"0980108d-7ceb-4527-b99c-f36cfb00c059"], +Cell[232512, 6530, 192, 3, 58, "Output",ExpressionUUID->"7bfe0dc9-265c-4029-af6a-530f137ab01c"] }, Open ]], Cell[CellGroupData[{ -Cell[232715, 6537, 1961, 53, 94, "Input",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], -Cell[234679, 6592, 184, 3, 46, "Output",ExpressionUUID->"d8c49173-7f8d-4c6b-b90e-476e0ec3b8b3"] +Cell[232741, 6538, 1961, 53, 117, "Input",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], +Cell[234705, 6593, 184, 3, 58, "Output",ExpressionUUID->"d8c49173-7f8d-4c6b-b90e-476e0ec3b8b3"] }, Open ]], Cell[CellGroupData[{ -Cell[234900, 6600, 2094, 60, 127, "Input",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], -Cell[236997, 6662, 497, 11, 55, "Message",ExpressionUUID->"cb33453f-b5ca-e14d-a319-662822d35ed2"], -Cell[237497, 6675, 501, 11, 55, "Message",ExpressionUUID->"aa5fb574-aeea-7141-9d86-babfa2192485"], -Cell[238001, 6688, 503, 11, 55, "Message",ExpressionUUID->"dec65c86-5426-6949-9e38-c5bc3eb7722e"], -Cell[238507, 6701, 455, 10, 36, "Message",ExpressionUUID->"32a908f1-0097-2943-9511-bd82e083c1e0"], -Cell[238965, 6713, 43631, 762, 325, "Output",ExpressionUUID->"704b46fd-7ca5-4147-bbb4-19991a3778e5"] +Cell[234926, 6601, 2094, 60, 629, "Input",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], +Cell[237023, 6663, 497, 11, 169, "Message",ExpressionUUID->"cb33453f-b5ca-e14d-a319-662822d35ed2"], +Cell[237523, 6676, 501, 11, 169, "Message",ExpressionUUID->"aa5fb574-aeea-7141-9d86-babfa2192485"], +Cell[238027, 6689, 503, 11, 169, "Message",ExpressionUUID->"dec65c86-5426-6949-9e38-c5bc3eb7722e"], +Cell[238533, 6702, 455, 10, 75, "Message",ExpressionUUID->"32a908f1-0097-2943-9511-bd82e083c1e0"], +Cell[238991, 6714, 43631, 762, 322, "Output",ExpressionUUID->"704b46fd-7ca5-4147-bbb4-19991a3778e5"] }, Open ]], -Cell[282611, 7478, 232, 6, 40, "Input",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], -Cell[282846, 7486, 209, 5, 40, "Input",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], +Cell[282637, 7479, 2454, 69, 616, "Input",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], +Cell[285094, 7550, 209, 5, 51, "Input",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], Cell[CellGroupData[{ -Cell[283080, 7495, 212, 6, 67, "Input",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], -Cell[283295, 7503, 168, 2, 46, "Output",ExpressionUUID->"1f95faab-1b52-5440-9bc8-bbd29c090294"] +Cell[285328, 7559, 212, 6, 83, "Input",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], +Cell[285543, 7567, 168, 2, 58, "Output",ExpressionUUID->"1f95faab-1b52-5440-9bc8-bbd29c090294"] }, Open ]], Cell[CellGroupData[{ -Cell[283500, 7510, 1814, 53, 127, "Input",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], -Cell[285317, 7565, 505, 11, 55, "Message",ExpressionUUID->"34609962-a5ff-c943-bd24-1be35ec9ac87"], -Cell[285825, 7578, 509, 11, 55, "Message",ExpressionUUID->"1fdfd709-87fa-2d47-912a-2bb16540a45a"], -Cell[286337, 7591, 508, 11, 55, "Message",ExpressionUUID->"02f7e2ed-ac22-9d4d-8071-ab116260ee28"], -Cell[286848, 7604, 455, 10, 36, "Message",ExpressionUUID->"7db76209-a5a6-1947-80c1-912d214b981c"], -Cell[287306, 7616, 22399, 414, 328, "Output",ExpressionUUID->"b5f713da-fcb5-f640-b2b9-a3f5b5d5c325"] +Cell[285748, 7574, 1814, 53, 611, "Input",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], +Cell[287565, 7629, 505, 11, 169, "Message",ExpressionUUID->"34609962-a5ff-c943-bd24-1be35ec9ac87"], +Cell[288073, 7642, 509, 11, 169, "Message",ExpressionUUID->"1fdfd709-87fa-2d47-912a-2bb16540a45a"], +Cell[288585, 7655, 508, 11, 169, "Message",ExpressionUUID->"02f7e2ed-ac22-9d4d-8071-ab116260ee28"], +Cell[289096, 7668, 455, 10, 75, "Message",ExpressionUUID->"7db76209-a5a6-1947-80c1-912d214b981c"], +Cell[289554, 7680, 22399, 414, 327, "Output",ExpressionUUID->"b5f713da-fcb5-f640-b2b9-a3f5b5d5c325"] }, Open ]], Cell[CellGroupData[{ -Cell[309742, 8035, 1612, 47, 94, "Input",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], -Cell[311357, 8084, 581, 12, 82, "Message",ExpressionUUID->"e283daf4-b253-944e-a35b-b9d739b4810d"], -Cell[311941, 8098, 584, 12, 122, "Message",ExpressionUUID->"45f4fe27-f32a-9441-bd55-e0801ff04328"], -Cell[312528, 8112, 590, 12, 122, "Message",ExpressionUUID->"8fffabed-e171-5e42-9ba8-fd51ae8f5dd5"], -Cell[313121, 8126, 455, 10, 122, "Message",ExpressionUUID->"8b648472-e40f-a549-a057-c6eeb9f14028"], -Cell[313579, 8138, 169, 2, 122, "Output",ExpressionUUID->"c7b55151-fc31-d94c-8a4e-01b34fb0adaf"] +Cell[311990, 8099, 1612, 47, 420, "Input",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], +Cell[313605, 8148, 581, 12, 227, "Message",ExpressionUUID->"e283daf4-b253-944e-a35b-b9d739b4810d"], +Cell[314189, 8162, 584, 12, 227, "Message",ExpressionUUID->"45f4fe27-f32a-9441-bd55-e0801ff04328"], +Cell[314776, 8176, 590, 12, 227, "Message",ExpressionUUID->"8fffabed-e171-5e42-9ba8-fd51ae8f5dd5"], +Cell[315369, 8190, 455, 10, 75, "Message",ExpressionUUID->"8b648472-e40f-a549-a057-c6eeb9f14028"], +Cell[315827, 8202, 169, 2, 58, "Output",ExpressionUUID->"c7b55151-fc31-d94c-8a4e-01b34fb0adaf"] }, Open ]], Cell[CellGroupData[{ -Cell[313785, 8145, 2249, 64, 122, "Input",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], -Cell[316037, 8211, 557, 12, 122, "Message",ExpressionUUID->"3632efc4-f65f-2f41-a6ff-4f71c0ebce84"], -Cell[316597, 8225, 560, 12, 122, "Message",ExpressionUUID->"779c5516-83d5-5d41-8a7a-6b58e876b564"], -Cell[317160, 8239, 560, 12, 122, "Message",ExpressionUUID->"8e3711bd-8e48-2e4f-9802-ad11f73b56ef"], -Cell[317723, 8253, 455, 10, 122, "Message",ExpressionUUID->"f612a69b-4740-9240-9908-d284159fa285"], -Cell[318181, 8265, 169, 2, 122, "Output",ExpressionUUID->"bfa217e6-2060-bc4b-b710-35d6c4ca9627"] +Cell[316033, 8209, 2249, 64, 624, "Input",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], +Cell[318285, 8275, 557, 12, 198, "Message",ExpressionUUID->"3632efc4-f65f-2f41-a6ff-4f71c0ebce84"], +Cell[318845, 8289, 560, 12, 198, "Message",ExpressionUUID->"779c5516-83d5-5d41-8a7a-6b58e876b564"], +Cell[319408, 8303, 560, 12, 109, "Message",ExpressionUUID->"8e3711bd-8e48-2e4f-9802-ad11f73b56ef"], +Cell[319971, 8317, 455, 10, 75, "Message",ExpressionUUID->"f612a69b-4740-9240-9908-d284159fa285"], +Cell[320429, 8329, 169, 2, 58, "Output",ExpressionUUID->"bfa217e6-2060-bc4b-b710-35d6c4ca9627"] }, Open ]], Cell[CellGroupData[{ -Cell[318387, 8272, 2221, 64, 122, "Input",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], -Cell[320611, 8338, 554, 12, 122, "Message",ExpressionUUID->"3ebcf84a-7882-bd47-b9c8-0657501c09d4"], -Cell[321168, 8352, 560, 12, 122, "Message",ExpressionUUID->"5ba908af-818e-5d45-9b4d-c738ed936632"], -Cell[321731, 8366, 560, 12, 122, "Message",ExpressionUUID->"b25ed3b8-96c0-f246-8b73-bf5dca1bf3be"], -Cell[322294, 8380, 455, 10, 122, "Message",ExpressionUUID->"4d7ee3e1-e220-9e46-b1cc-01012021a276"], -Cell[322752, 8392, 169, 2, 122, "Output",ExpressionUUID->"f21819b7-4040-3a47-b212-dc05454fc812"] +Cell[320635, 8336, 2221, 64, 624, "Input",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], +Cell[322859, 8402, 554, 12, 198, "Message",ExpressionUUID->"3ebcf84a-7882-bd47-b9c8-0657501c09d4"], +Cell[323416, 8416, 560, 12, 198, "Message",ExpressionUUID->"5ba908af-818e-5d45-9b4d-c738ed936632"], +Cell[323979, 8430, 560, 12, 198, "Message",ExpressionUUID->"b25ed3b8-96c0-f246-8b73-bf5dca1bf3be"], +Cell[324542, 8444, 455, 10, 75, "Message",ExpressionUUID->"4d7ee3e1-e220-9e46-b1cc-01012021a276"], +Cell[325000, 8456, 169, 2, 58, "Output",ExpressionUUID->"f21819b7-4040-3a47-b212-dc05454fc812"] }, Open ]], Cell[CellGroupData[{ -Cell[322958, 8399, 2223, 64, 122, "Input",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], -Cell[325184, 8465, 555, 12, 122, "Message",ExpressionUUID->"abd6af2a-56b2-2644-a5c5-5aa91718971c"], -Cell[325742, 8479, 558, 12, 122, "Message",ExpressionUUID->"31d8f902-5be7-c54f-8e99-429decd85903"], -Cell[326303, 8493, 560, 12, 122, "Message",ExpressionUUID->"666728b2-41bd-114c-ad81-a56ae7cb85e9"], -Cell[326866, 8507, 453, 10, 122, "Message",ExpressionUUID->"7a1ee219-911f-6846-82f7-c389bec607c2"], -Cell[327322, 8519, 167, 2, 122, "Output",ExpressionUUID->"f40d5525-ccff-eb4c-a859-e6917373a7f1"] +Cell[325206, 8463, 2223, 64, 624, "Input",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], +Cell[327432, 8529, 555, 12, 198, "Message",ExpressionUUID->"abd6af2a-56b2-2644-a5c5-5aa91718971c"], +Cell[327990, 8543, 558, 12, 198, "Message",ExpressionUUID->"31d8f902-5be7-c54f-8e99-429decd85903"], +Cell[328551, 8557, 560, 12, 198, "Message",ExpressionUUID->"666728b2-41bd-114c-ad81-a56ae7cb85e9"], +Cell[329114, 8571, 453, 10, 75, "Message",ExpressionUUID->"7a1ee219-911f-6846-82f7-c389bec607c2"], +Cell[329570, 8583, 167, 2, 58, "Output",ExpressionUUID->"f40d5525-ccff-eb4c-a859-e6917373a7f1"] }, Open ]], Cell[CellGroupData[{ -Cell[327526, 8526, 213, 6, 122, "Input",ExpressionUUID->"fcd1131c-ba92-0b46-817b-e5f89f4ec38f"], -Cell[327742, 8534, 169, 2, 122, "Output",ExpressionUUID->"3749f94f-79b1-2342-af7e-bc4d815737fe"] +Cell[329774, 8590, 213, 6, 81, "Input",ExpressionUUID->"fcd1131c-ba92-0b46-817b-e5f89f4ec38f"], +Cell[329990, 8598, 169, 2, 109, "Output",ExpressionUUID->"3749f94f-79b1-2342-af7e-bc4d815737fe"] }, Open ]], -Cell[327926, 8539, 247, 5, 122, "Input",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"], +Cell[330174, 8603, 247, 5, 51, "Input",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"], Cell[CellGroupData[{ -Cell[328198, 8548, 554, 18, 122, "Input",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], -Cell[328755, 8568, 167, 2, 122, "Output",ExpressionUUID->"aad53d59-da78-9348-9ac4-1e0902e814d3"] +Cell[330446, 8612, 554, 18, 91, "Input",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], +Cell[331003, 8632, 167, 2, 58, "Output",ExpressionUUID->"aad53d59-da78-9348-9ac4-1e0902e814d3"] }, Open ]], Cell[CellGroupData[{ -Cell[328959, 8575, 166, 4, 122, "Input",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], -Cell[329128, 8581, 169, 2, 122, "Output",ExpressionUUID->"4fef6a46-506a-e14c-9df4-f75ab9f6cdb2"] +Cell[331207, 8639, 166, 4, 97, "Input",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], +Cell[331376, 8645, 169, 2, 58, "Output",ExpressionUUID->"4fef6a46-506a-e14c-9df4-f75ab9f6cdb2"] }, Open ]], Cell[CellGroupData[{ -Cell[329334, 8588, 181, 5, 122, "Input",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], -Cell[329518, 8595, 173, 3, 122, "Output",ExpressionUUID->"f46a3dc4-a4b4-034f-91be-6596e81ebf6d"] +Cell[331582, 8652, 181, 5, 75, "Input",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], +Cell[331766, 8659, 173, 3, 58, "Output",ExpressionUUID->"f46a3dc4-a4b4-034f-91be-6596e81ebf6d"] }, Open ]], Cell[CellGroupData[{ -Cell[329728, 8603, 6055, 185, 122, "Input",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], -Cell[335786, 8790, 172, 3, 122, "Output",ExpressionUUID->"ccd4df45-d425-704c-b4a9-648b41b92e77"] +Cell[331976, 8667, 6055, 185, 1734, "Input",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], +Cell[338034, 8854, 172, 3, 58, "Output",ExpressionUUID->"ccd4df45-d425-704c-b4a9-648b41b92e77"] }, Open ]], Cell[CellGroupData[{ -Cell[335995, 8798, 368, 9, 122, "Input",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], -Cell[336366, 8809, 170, 3, 122, "Output",ExpressionUUID->"1ebb6633-805d-cf47-abbc-564ac9bf2374"] +Cell[338243, 8862, 368, 9, 73, "Input",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], +Cell[338614, 8873, 170, 3, 58, "Output",ExpressionUUID->"1ebb6633-805d-cf47-abbc-564ac9bf2374"] }, Open ]], Cell[CellGroupData[{ -Cell[336573, 8817, 6122, 187, 122, "Input",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], -Cell[342698, 9006, 175, 3, 122, "Output",ExpressionUUID->"a3a95ff2-cddf-6a4c-ac06-8cc3fd5707bc"] +Cell[338821, 8881, 6122, 187, 1645, "Input",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], +Cell[344946, 9070, 175, 3, 58, "Output",ExpressionUUID->"a3a95ff2-cddf-6a4c-ac06-8cc3fd5707bc"] }, Open ]], Cell[CellGroupData[{ -Cell[342910, 9014, 368, 9, 122, "Input",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], -Cell[343281, 9025, 169, 3, 122, "Output",ExpressionUUID->"53071608-cf53-7441-9033-6c9cf2e7fa8e"] +Cell[345158, 9078, 368, 9, 73, "Input",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], +Cell[345529, 9089, 169, 3, 58, "Output",ExpressionUUID->"53071608-cf53-7441-9033-6c9cf2e7fa8e"] }, Open ]], Cell[CellGroupData[{ -Cell[343487, 9033, 2663, 88, 122, "Input",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], -Cell[346153, 9123, 173, 3, 122, "Output",ExpressionUUID->"547b87cc-d628-4d49-8e04-72542aa7650e"] +Cell[345735, 9097, 2663, 88, 786, "Input",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], +Cell[348401, 9187, 173, 3, 58, "Output",ExpressionUUID->"547b87cc-d628-4d49-8e04-72542aa7650e"] }, Open ]], Cell[CellGroupData[{ -Cell[346363, 9131, 2603, 85, 122, "Input",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], -Cell[348969, 9218, 171, 3, 122, "Output",ExpressionUUID->"a8edf49c-9c61-9e4b-9fa8-4de409daba96"] +Cell[348611, 9195, 2603, 85, 786, "Input",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], +Cell[351217, 9282, 171, 3, 58, "Output",ExpressionUUID->"a8edf49c-9c61-9e4b-9fa8-4de409daba96"] }, Open ]], Cell[CellGroupData[{ -Cell[349177, 9226, 3712, 118, 122, "Input",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], -Cell[352892, 9346, 171, 3, 122, "Output",ExpressionUUID->"3584cc50-41a2-ae4b-af54-859d095b0154"] +Cell[351425, 9290, 3712, 118, 1131, "Input",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], +Cell[355140, 9410, 171, 3, 58, "Output",ExpressionUUID->"3584cc50-41a2-ae4b-af54-859d095b0154"] }, Open ]], Cell[CellGroupData[{ -Cell[353100, 9354, 2052, 59, 122, "Input",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], -Cell[355155, 9415, 572, 12, 122, "Message",ExpressionUUID->"d59869d2-8577-0547-8448-230bc5a4ac5e"], -Cell[355730, 9429, 573, 12, 122, "Message",ExpressionUUID->"844f4204-3100-6d45-b5d2-238cc22b8006"], -Cell[356306, 9443, 578, 12, 122, "Message",ExpressionUUID->"f91c55eb-7b3d-3340-b869-4269b99a071c"], -Cell[356887, 9457, 457, 10, 122, "Message",ExpressionUUID->"efd89e15-8a66-4047-aee7-4fb3607a30a7"], -Cell[357347, 9469, 172, 3, 122, "Output",ExpressionUUID->"e68f2098-b3f7-6745-819f-009e252dd442"] +Cell[355348, 9418, 2052, 59, 581, "Input",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], +Cell[357403, 9479, 572, 12, 198, "Message",ExpressionUUID->"d59869d2-8577-0547-8448-230bc5a4ac5e"], +Cell[357978, 9493, 573, 12, 198, "Message",ExpressionUUID->"844f4204-3100-6d45-b5d2-238cc22b8006"], +Cell[358554, 9507, 578, 12, 198, "Message",ExpressionUUID->"f91c55eb-7b3d-3340-b869-4269b99a071c"], +Cell[359135, 9521, 457, 10, 75, "Message",ExpressionUUID->"efd89e15-8a66-4047-aee7-4fb3607a30a7"], +Cell[359595, 9533, 172, 3, 58, "Output",ExpressionUUID->"e68f2098-b3f7-6745-819f-009e252dd442"] }, Open ]], Cell[CellGroupData[{ -Cell[357556, 9477, 2054, 59, 122, "Input",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], -Cell[359613, 9538, 572, 12, 122, "Message",ExpressionUUID->"feb3ed0a-8d45-dd4c-a945-407106f88295"], -Cell[360188, 9552, 575, 12, 122, "Message",ExpressionUUID->"d5a6c2e7-2143-1843-8d40-686107f6aa27"], -Cell[360766, 9566, 576, 12, 122, "Message",ExpressionUUID->"a15d89dd-0dfc-c845-aec3-fe7d60156e1f"], -Cell[361345, 9580, 457, 10, 122, "Message",ExpressionUUID->"0f9408e4-b654-4a40-9b38-655b18398efc"], -Cell[361805, 9592, 170, 3, 122, "Output",ExpressionUUID->"f72e3d82-4d19-7143-9513-38a15cee4d51"] +Cell[359804, 9541, 2054, 59, 581, "Input",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], +Cell[361861, 9602, 572, 12, 109, "Message",ExpressionUUID->"feb3ed0a-8d45-dd4c-a945-407106f88295"], +Cell[362436, 9616, 575, 12, 198, "Message",ExpressionUUID->"d5a6c2e7-2143-1843-8d40-686107f6aa27"], +Cell[363014, 9630, 576, 12, 198, "Message",ExpressionUUID->"a15d89dd-0dfc-c845-aec3-fe7d60156e1f"], +Cell[363593, 9644, 457, 10, 75, "Message",ExpressionUUID->"0f9408e4-b654-4a40-9b38-655b18398efc"], +Cell[364053, 9656, 170, 3, 58, "Output",ExpressionUUID->"f72e3d82-4d19-7143-9513-38a15cee4d51"] }, Open ]], Cell[CellGroupData[{ -Cell[362012, 9600, 2030, 55, 122, "Input",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], -Cell[364045, 9657, 20377, 384, 122, "Output",ExpressionUUID->"02187549-f2f0-9c4d-81fc-d12919ea7802"] +Cell[364260, 9664, 2030, 55, 412, "Input",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], +Cell[366293, 9721, 20377, 384, 329, "Output",ExpressionUUID->"02187549-f2f0-9c4d-81fc-d12919ea7802"] }, Open ]], Cell[CellGroupData[{ -Cell[384459, 10046, 2118, 60, 122, "Input",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], -Cell[386580, 10108, 499, 11, 122, "Message",ExpressionUUID->"75033ea5-32d5-4445-bfb0-a981507a2e9a"], -Cell[387082, 10121, 504, 11, 122, "Message",ExpressionUUID->"bc53c85b-e7c9-be4a-8ed4-30975f08af5c"], -Cell[387589, 10134, 507, 11, 122, "Message",ExpressionUUID->"e09d101b-c5d3-424f-aab9-c5788f3b9ef6"], -Cell[388099, 10147, 455, 10, 122, "Message",ExpressionUUID->"28f777a6-eb27-df49-a698-bd7806baa94c"], -Cell[388557, 10159, 22381, 415, 122, "Output",ExpressionUUID->"cd997d80-b342-8b4c-95c9-b33408882f73"] +Cell[386707, 10110, 2118, 60, 629, "Input",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], +Cell[388828, 10172, 499, 11, 169, "Message",ExpressionUUID->"75033ea5-32d5-4445-bfb0-a981507a2e9a"], +Cell[389330, 10185, 504, 11, 169, "Message",ExpressionUUID->"bc53c85b-e7c9-be4a-8ed4-30975f08af5c"], +Cell[389837, 10198, 507, 11, 169, "Message",ExpressionUUID->"e09d101b-c5d3-424f-aab9-c5788f3b9ef6"], +Cell[390347, 10211, 455, 10, 75, "Message",ExpressionUUID->"28f777a6-eb27-df49-a698-bd7806baa94c"], +Cell[390805, 10223, 22381, 415, 328, "Output",ExpressionUUID->"cd997d80-b342-8b4c-95c9-b33408882f73"] }, Open ]], -Cell[410953, 10577, 174, 3, 122, "Input",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], -Cell[411130, 10582, 209, 5, 122, "Input",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"], +Cell[413201, 10641, 174, 3, 51, "Input",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], +Cell[413378, 10646, 209, 5, 109, "Input",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"], Cell[CellGroupData[{ -Cell[411364, 10591, 1616, 48, 122, "Input",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], -Cell[412983, 10641, 594, 12, 122, "Message",ExpressionUUID->"96d01a47-7c9a-1944-8904-f1788b2f0a8a"], -Cell[413580, 10655, 594, 12, 122, "Message",ExpressionUUID->"fee09e7b-7835-394b-93fe-35ddd26f69d1"], -Cell[414177, 10669, 598, 12, 122, "Message",ExpressionUUID->"fc12fc14-afc1-0a48-8829-94d858477ec4"], -Cell[414778, 10683, 457, 10, 122, "Message",ExpressionUUID->"41b1346d-6d7d-5d4d-9b1a-88cde3361cf3"], -Cell[415238, 10695, 171, 3, 122, "Output",ExpressionUUID->"0bbffe2c-809c-1149-a08f-e3342cda31a0"] +Cell[413612, 10655, 1616, 48, 109, "Input",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], +Cell[415231, 10705, 594, 12, 109, "Message",ExpressionUUID->"96d01a47-7c9a-1944-8904-f1788b2f0a8a"], +Cell[415828, 10719, 594, 12, 109, "Message",ExpressionUUID->"fee09e7b-7835-394b-93fe-35ddd26f69d1"], +Cell[416425, 10733, 598, 12, 227, "Message",ExpressionUUID->"fc12fc14-afc1-0a48-8829-94d858477ec4"], +Cell[417026, 10747, 457, 10, 75, "Message",ExpressionUUID->"41b1346d-6d7d-5d4d-9b1a-88cde3361cf3"], +Cell[417486, 10759, 171, 3, 58, "Output",ExpressionUUID->"0bbffe2c-809c-1149-a08f-e3342cda31a0"] }, Open ]], Cell[CellGroupData[{ -Cell[415446, 10703, 2247, 64, 122, "Input",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], -Cell[417696, 10769, 572, 12, 122, "Message",ExpressionUUID->"922f5f31-888f-7340-96cd-65ecb8ea2e84"], -Cell[418271, 10783, 573, 12, 122, "Message",ExpressionUUID->"287b836d-7493-d44f-85b0-183d2793165c"], -Cell[418847, 10797, 578, 12, 122, "Message",ExpressionUUID->"962d88f7-2937-fe4b-ba97-3fe8099808d5"], -Cell[419428, 10811, 455, 10, 122, "Message",ExpressionUUID->"2ec951f6-2332-9241-84af-c7ac25232c2e"], -Cell[419886, 10823, 172, 3, 122, "Output",ExpressionUUID->"3eb28fb3-5fd6-4240-b231-e1f0fa53f4dc"] +Cell[417694, 10767, 2247, 64, 624, "Input",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], +Cell[419944, 10833, 572, 12, 198, "Message",ExpressionUUID->"922f5f31-888f-7340-96cd-65ecb8ea2e84"], +Cell[420519, 10847, 573, 12, 198, "Message",ExpressionUUID->"287b836d-7493-d44f-85b0-183d2793165c"], +Cell[421095, 10861, 578, 12, 109, "Message",ExpressionUUID->"962d88f7-2937-fe4b-ba97-3fe8099808d5"], +Cell[421676, 10875, 455, 10, 109, "Message",ExpressionUUID->"2ec951f6-2332-9241-84af-c7ac25232c2e"], +Cell[422134, 10887, 172, 3, 58, "Output",ExpressionUUID->"3eb28fb3-5fd6-4240-b231-e1f0fa53f4dc"] }, Open ]], Cell[CellGroupData[{ -Cell[420095, 10831, 2221, 64, 122, "Input",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], -Cell[422319, 10897, 570, 12, 122, "Message",ExpressionUUID->"8fc71a81-55ed-5940-a6a0-1fa4e0c6425a"], -Cell[422892, 10911, 573, 12, 122, "Message",ExpressionUUID->"001b2f06-491c-6c4f-881b-1d7c12c1b14f"], -Cell[423468, 10925, 578, 12, 122, "Message",ExpressionUUID->"865c0491-32b6-3549-83ec-bdf42c3a31aa"], -Cell[424049, 10939, 455, 10, 122, "Message",ExpressionUUID->"3566013f-7b44-504c-95a5-32d3ac2ece3d"], -Cell[424507, 10951, 172, 3, 122, "Output",ExpressionUUID->"9cc3c720-52c0-b040-a0b4-75ff2aab4396"] +Cell[422343, 10895, 2221, 64, 624, "Input",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], +Cell[424567, 10961, 570, 12, 198, "Message",ExpressionUUID->"8fc71a81-55ed-5940-a6a0-1fa4e0c6425a"], +Cell[425140, 10975, 573, 12, 198, "Message",ExpressionUUID->"001b2f06-491c-6c4f-881b-1d7c12c1b14f"], +Cell[425716, 10989, 578, 12, 198, "Message",ExpressionUUID->"865c0491-32b6-3549-83ec-bdf42c3a31aa"], +Cell[426297, 11003, 455, 10, 75, "Message",ExpressionUUID->"3566013f-7b44-504c-95a5-32d3ac2ece3d"], +Cell[426755, 11015, 172, 3, 58, "Output",ExpressionUUID->"9cc3c720-52c0-b040-a0b4-75ff2aab4396"] }, Open ]], Cell[CellGroupData[{ -Cell[424716, 10959, 2221, 64, 122, "Input",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], -Cell[426940, 11025, 572, 12, 122, "Message",ExpressionUUID->"bc9996c1-a929-5b41-9541-f607e96932b8"], -Cell[427515, 11039, 575, 12, 122, "Message",ExpressionUUID->"eb28c83b-0aac-8d4e-a729-f978b41e689a"], -Cell[428093, 11053, 578, 12, 122, "Message",ExpressionUUID->"70b030cf-db8c-c440-8526-b10f71bb72b3"], -Cell[428674, 11067, 455, 10, 122, "Message",ExpressionUUID->"4d72b001-01d6-d944-9c97-6d0d7d2eccbb"], -Cell[429132, 11079, 173, 3, 122, "Output",ExpressionUUID->"c15d23fa-1bed-9640-940a-c33e3a830230"] +Cell[426964, 11023, 2221, 64, 624, "Input",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], +Cell[429188, 11089, 572, 12, 198, "Message",ExpressionUUID->"bc9996c1-a929-5b41-9541-f607e96932b8"], +Cell[429763, 11103, 575, 12, 198, "Message",ExpressionUUID->"eb28c83b-0aac-8d4e-a729-f978b41e689a"], +Cell[430341, 11117, 578, 12, 198, "Message",ExpressionUUID->"70b030cf-db8c-c440-8526-b10f71bb72b3"], +Cell[430922, 11131, 455, 10, 75, "Message",ExpressionUUID->"4d72b001-01d6-d944-9c97-6d0d7d2eccbb"], +Cell[431380, 11143, 173, 3, 58, "Output",ExpressionUUID->"c15d23fa-1bed-9640-940a-c33e3a830230"] }, Open ]], Cell[CellGroupData[{ -Cell[429342, 11087, 213, 6, 122, "Input",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"], -Cell[429558, 11095, 172, 3, 122, "Output",ExpressionUUID->"2d0467ed-c049-384d-ae20-12fc79688cfb"] +Cell[431590, 11151, 213, 6, 81, "Input",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"], +Cell[431806, 11159, 172, 3, 58, "Output",ExpressionUUID->"2d0467ed-c049-384d-ae20-12fc79688cfb"] }, Open ]], -Cell[429745, 11101, 245, 5, 122, "Input",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"], +Cell[431993, 11165, 245, 5, 51, "Input",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"], Cell[CellGroupData[{ -Cell[430015, 11110, 558, 19, 122, "Input",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], -Cell[430576, 11131, 173, 3, 122, "Output",ExpressionUUID->"26c56722-6e97-cb4f-b35b-a00d42f1d8f6"] +Cell[432263, 11174, 558, 19, 91, "Input",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], +Cell[432824, 11195, 173, 3, 58, "Output",ExpressionUUID->"26c56722-6e97-cb4f-b35b-a00d42f1d8f6"] }, Open ]], Cell[CellGroupData[{ -Cell[430786, 11139, 170, 5, 122, "Input",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], -Cell[430959, 11146, 171, 3, 122, "Output",ExpressionUUID->"7e7edb0d-1306-d742-8b32-e7c6dc694892"] +Cell[433034, 11203, 170, 5, 97, "Input",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], +Cell[433207, 11210, 171, 3, 58, "Output",ExpressionUUID->"7e7edb0d-1306-d742-8b32-e7c6dc694892"] }, Open ]], Cell[CellGroupData[{ -Cell[431167, 11154, 181, 5, 122, "Input",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], -Cell[431351, 11161, 173, 3, 122, "Output",ExpressionUUID->"e5353287-a717-554a-9c6b-1021438b30ff"] +Cell[433415, 11218, 181, 5, 75, "Input",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], +Cell[433599, 11225, 173, 3, 58, "Output",ExpressionUUID->"e5353287-a717-554a-9c6b-1021438b30ff"] }, Open ]], Cell[CellGroupData[{ -Cell[431561, 11169, 6055, 185, 122, "Input",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], -Cell[437619, 11356, 175, 3, 122, "Output",ExpressionUUID->"ed4bd4f3-e1cc-fa47-b5b5-475b6e581b1f"] +Cell[433809, 11233, 6055, 185, 1734, "Input",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], +Cell[439867, 11420, 175, 3, 58, "Output",ExpressionUUID->"ed4bd4f3-e1cc-fa47-b5b5-475b6e581b1f"] }, Open ]], Cell[CellGroupData[{ -Cell[437831, 11364, 368, 9, 122, "Input",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], -Cell[438202, 11375, 170, 3, 122, "Output",ExpressionUUID->"0c9f07a0-dfdf-6e41-964a-0bcdc0cbcb45"] +Cell[440079, 11428, 368, 9, 73, "Input",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], +Cell[440450, 11439, 170, 3, 58, "Output",ExpressionUUID->"0c9f07a0-dfdf-6e41-964a-0bcdc0cbcb45"] }, Open ]], Cell[CellGroupData[{ -Cell[438409, 11383, 6122, 187, 122, "Input",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], -Cell[444534, 11572, 175, 3, 122, "Output",ExpressionUUID->"579eace1-979d-7347-a36f-c1fefbf459f5"] +Cell[440657, 11447, 6122, 187, 1645, "Input",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], +Cell[446782, 11636, 175, 3, 58, "Output",ExpressionUUID->"579eace1-979d-7347-a36f-c1fefbf459f5"] }, Open ]], Cell[CellGroupData[{ -Cell[444746, 11580, 368, 9, 122, "Input",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], -Cell[445117, 11591, 172, 3, 122, "Output",ExpressionUUID->"0225baf1-4541-ed4d-8528-13926fef86cd"] +Cell[446994, 11644, 368, 9, 73, "Input",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], +Cell[447365, 11655, 172, 3, 58, "Output",ExpressionUUID->"0225baf1-4541-ed4d-8528-13926fef86cd"] }, Open ]], Cell[CellGroupData[{ -Cell[445326, 11599, 2663, 88, 122, "Input",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], -Cell[447992, 11689, 173, 3, 122, "Output",ExpressionUUID->"f7c789e7-838d-b443-a597-00e69e7c3611"] +Cell[447574, 11663, 2663, 88, 786, "Input",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], +Cell[450240, 11753, 173, 3, 58, "Output",ExpressionUUID->"f7c789e7-838d-b443-a597-00e69e7c3611"] }, Open ]], Cell[CellGroupData[{ -Cell[448202, 11697, 2603, 85, 122, "Input",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], -Cell[450808, 11784, 171, 3, 122, "Output",ExpressionUUID->"fc2bf760-d110-cb46-bd02-e934de9fd4f9"] +Cell[450450, 11761, 2603, 85, 786, "Input",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], +Cell[453056, 11848, 171, 3, 58, "Output",ExpressionUUID->"fc2bf760-d110-cb46-bd02-e934de9fd4f9"] }, Open ]], Cell[CellGroupData[{ -Cell[451016, 11792, 3712, 118, 122, "Input",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], -Cell[454731, 11912, 171, 3, 122, "Output",ExpressionUUID->"4304216c-b250-ab48-915e-b844e71a70f1"] +Cell[453264, 11856, 3712, 118, 1131, "Input",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], +Cell[456979, 11976, 171, 3, 58, "Output",ExpressionUUID->"4304216c-b250-ab48-915e-b844e71a70f1"] }, Open ]], Cell[CellGroupData[{ -Cell[454939, 11920, 2052, 59, 122, "Input",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], -Cell[456994, 11981, 568, 12, 122, "Message",ExpressionUUID->"ef0dcda5-4eb3-fb4f-a7ba-cf9592c754fd"], -Cell[457565, 11995, 572, 12, 122, "Message",ExpressionUUID->"516128bc-41b4-3d49-8276-2fe73d5d437e"], -Cell[458140, 12009, 574, 12, 122, "Message",ExpressionUUID->"83555127-edb0-f34d-bade-abdcd60ad387"], -Cell[458717, 12023, 457, 10, 122, "Message",ExpressionUUID->"f8efe38f-0b83-4645-b574-b25c08902457"], -Cell[459177, 12035, 172, 3, 122, "Output",ExpressionUUID->"de5933f0-d736-3443-950a-4744d8abefe5"] +Cell[457187, 11984, 2052, 59, 581, "Input",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], +Cell[459242, 12045, 568, 12, 198, "Message",ExpressionUUID->"ef0dcda5-4eb3-fb4f-a7ba-cf9592c754fd"], +Cell[459813, 12059, 572, 12, 198, "Message",ExpressionUUID->"516128bc-41b4-3d49-8276-2fe73d5d437e"], +Cell[460388, 12073, 574, 12, 198, "Message",ExpressionUUID->"83555127-edb0-f34d-bade-abdcd60ad387"], +Cell[460965, 12087, 457, 10, 75, "Message",ExpressionUUID->"f8efe38f-0b83-4645-b574-b25c08902457"], +Cell[461425, 12099, 172, 3, 58, "Output",ExpressionUUID->"de5933f0-d736-3443-950a-4744d8abefe5"] }, Open ]], Cell[CellGroupData[{ -Cell[459386, 12043, 2054, 59, 122, "Input",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], -Cell[461443, 12104, 568, 12, 122, "Message",ExpressionUUID->"d0c389d2-1c6b-3a44-bd00-6e54df438015"], -Cell[462014, 12118, 572, 12, 122, "Message",ExpressionUUID->"3f819d0b-3458-d54e-bb8e-ed758b92949a"], -Cell[462589, 12132, 574, 12, 122, "Message",ExpressionUUID->"7403c575-bafd-2049-8d02-89293c73f7f1"], -Cell[463166, 12146, 457, 10, 122, "Message",ExpressionUUID->"29512b1b-8a2c-1740-986b-fb78e7d2ec89"], -Cell[463626, 12158, 171, 3, 122, "Output",ExpressionUUID->"686785b6-8c83-3e43-88fb-689383b13a2d"] +Cell[461634, 12107, 2054, 59, 581, "Input",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], +Cell[463691, 12168, 568, 12, 198, "Message",ExpressionUUID->"d0c389d2-1c6b-3a44-bd00-6e54df438015"], +Cell[464262, 12182, 572, 12, 198, "Message",ExpressionUUID->"3f819d0b-3458-d54e-bb8e-ed758b92949a"], +Cell[464837, 12196, 574, 12, 109, "Message",ExpressionUUID->"7403c575-bafd-2049-8d02-89293c73f7f1"], +Cell[465414, 12210, 457, 10, 75, "Message",ExpressionUUID->"29512b1b-8a2c-1740-986b-fb78e7d2ec89"], +Cell[465874, 12222, 171, 3, 58, "Output",ExpressionUUID->"686785b6-8c83-3e43-88fb-689383b13a2d"] }, Open ]], Cell[CellGroupData[{ -Cell[463834, 12166, 2030, 55, 122, "Input",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], -Cell[465867, 12223, 19960, 375, 122, "Output",ExpressionUUID->"9eb47740-dc4f-3248-80e4-ef19d916a0ad"] +Cell[466082, 12230, 2030, 55, 412, "Input",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], +Cell[468115, 12287, 19960, 375, 109, "Output",ExpressionUUID->"9eb47740-dc4f-3248-80e4-ef19d916a0ad"] }, Open ]], Cell[CellGroupData[{ -Cell[485864, 12603, 2118, 60, 122, "Input",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], -Cell[487985, 12665, 496, 11, 122, "Message",ExpressionUUID->"6bc1b8c6-3100-6640-9985-3abfd43de799"], -Cell[488484, 12678, 501, 11, 122, "Message",ExpressionUUID->"82e13dda-210b-a94d-9e1d-a821db42ab6b"], -Cell[488988, 12691, 505, 11, 122, "Message",ExpressionUUID->"9d37688a-c69d-ed49-bce7-cf0090e0ecb8"], -Cell[489496, 12704, 455, 10, 122, "Message",ExpressionUUID->"4e87d0d8-b47a-ef47-85af-16467b219f50"], -Cell[489954, 12716, 21721, 403, 122, "Output",ExpressionUUID->"6974e3c4-9b35-2f4b-97bf-745f60f533f8"] +Cell[488112, 12667, 2118, 60, 629, "Input",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], +Cell[490233, 12729, 496, 11, 139, "Message",ExpressionUUID->"6bc1b8c6-3100-6640-9985-3abfd43de799"], +Cell[490732, 12742, 501, 11, 169, "Message",ExpressionUUID->"82e13dda-210b-a94d-9e1d-a821db42ab6b"], +Cell[491236, 12755, 505, 11, 169, "Message",ExpressionUUID->"9d37688a-c69d-ed49-bce7-cf0090e0ecb8"], +Cell[491744, 12768, 455, 10, 109, "Message",ExpressionUUID->"4e87d0d8-b47a-ef47-85af-16467b219f50"], +Cell[492202, 12780, 21721, 403, 109, "Output",ExpressionUUID->"6974e3c4-9b35-2f4b-97bf-745f60f533f8"] }, Open ]], -Cell[511690, 13122, 181, 3, 122, "Input",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], -Cell[511874, 13127, 207, 5, 122, "Input",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"], +Cell[513938, 13186, 181, 3, 109, "Input",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], +Cell[514122, 13191, 207, 5, 51, "Input",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"], Cell[CellGroupData[{ -Cell[512106, 13136, 1616, 48, 122, "Input",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], -Cell[513725, 13186, 589, 12, 122, "Message",ExpressionUUID->"8906bbab-e37b-4b4c-898f-52bfc96dde7b"], -Cell[514317, 13200, 588, 12, 122, "Message",ExpressionUUID->"6ae14bce-ec42-7f4d-9914-0630eea4cdf9"], -Cell[514908, 13214, 594, 12, 122, "Message",ExpressionUUID->"7e98a506-896d-0d47-8502-b83685d9a60c"], -Cell[515505, 13228, 455, 10, 122, "Message",ExpressionUUID->"400e66c2-06b5-814e-a2be-19c4c75ccbf0"], -Cell[515963, 13240, 173, 3, 122, "Output",ExpressionUUID->"f202ab02-e319-144b-97e8-ae603395b346"] +Cell[514354, 13200, 1616, 48, 420, "Input",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], +Cell[515973, 13250, 589, 12, 227, "Message",ExpressionUUID->"8906bbab-e37b-4b4c-898f-52bfc96dde7b"], +Cell[516565, 13264, 588, 12, 227, "Message",ExpressionUUID->"6ae14bce-ec42-7f4d-9914-0630eea4cdf9"], +Cell[517156, 13278, 594, 12, 227, "Message",ExpressionUUID->"7e98a506-896d-0d47-8502-b83685d9a60c"], +Cell[517753, 13292, 455, 10, 75, "Message",ExpressionUUID->"400e66c2-06b5-814e-a2be-19c4c75ccbf0"], +Cell[518211, 13304, 173, 3, 58, "Output",ExpressionUUID->"f202ab02-e319-144b-97e8-ae603395b346"] }, Open ]], Cell[CellGroupData[{ -Cell[516173, 13248, 2246, 64, 122, "Input",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], -Cell[518422, 13314, 566, 12, 122, "Message",ExpressionUUID->"2d7e67d1-8691-e348-9ca8-caa63b533102"], -Cell[518991, 13328, 570, 12, 122, "Message",ExpressionUUID->"f0eb6f1d-f621-8647-b6a6-8bf673e41ebb"], -Cell[519564, 13342, 574, 12, 122, "Message",ExpressionUUID->"64fda82a-0f74-2743-89a8-afd600de203a"], -Cell[520141, 13356, 456, 10, 122, "Message",ExpressionUUID->"971a319d-8ab4-464d-a08e-f97fe8d4c0e1"], -Cell[520600, 13368, 171, 3, 122, "Output",ExpressionUUID->"b3c37f48-9827-884f-94d9-1f76aed7bfaa"] +Cell[518421, 13312, 2246, 64, 109, "Input",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], +Cell[520670, 13378, 566, 12, 198, "Message",ExpressionUUID->"2d7e67d1-8691-e348-9ca8-caa63b533102"], +Cell[521239, 13392, 570, 12, 198, "Message",ExpressionUUID->"f0eb6f1d-f621-8647-b6a6-8bf673e41ebb"], +Cell[521812, 13406, 574, 12, 198, "Message",ExpressionUUID->"64fda82a-0f74-2743-89a8-afd600de203a"], +Cell[522389, 13420, 456, 10, 109, "Message",ExpressionUUID->"971a319d-8ab4-464d-a08e-f97fe8d4c0e1"], +Cell[522848, 13432, 171, 3, 109, "Output",ExpressionUUID->"b3c37f48-9827-884f-94d9-1f76aed7bfaa"] }, Open ]], Cell[CellGroupData[{ -Cell[520808, 13376, 2221, 64, 122, "Input",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], -Cell[523032, 13442, 569, 12, 122, "Message",ExpressionUUID->"1040ba10-c733-df44-b556-0998dc0163c9"], -Cell[523604, 13456, 571, 12, 122, "Message",ExpressionUUID->"e451b852-84c2-a941-b1d7-812ecad4750e"], -Cell[524178, 13470, 575, 12, 122, "Message",ExpressionUUID->"a15e0c9d-d634-6e47-94c5-2ce40fcb4d52"], -Cell[524756, 13484, 458, 10, 122, "Message",ExpressionUUID->"a3ddc92b-b5c9-5e46-be44-6165430ec35f"], -Cell[525217, 13496, 171, 3, 122, "Output",ExpressionUUID->"978bf39b-9d1f-a54f-a6de-a2e3d269e126"] +Cell[523056, 13440, 2221, 64, 109, "Input",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], +Cell[525280, 13506, 569, 12, 109, "Message",ExpressionUUID->"1040ba10-c733-df44-b556-0998dc0163c9"], +Cell[525852, 13520, 571, 12, 198, "Message",ExpressionUUID->"e451b852-84c2-a941-b1d7-812ecad4750e"], +Cell[526426, 13534, 575, 12, 198, "Message",ExpressionUUID->"a15e0c9d-d634-6e47-94c5-2ce40fcb4d52"], +Cell[527004, 13548, 458, 10, 75, "Message",ExpressionUUID->"a3ddc92b-b5c9-5e46-be44-6165430ec35f"], +Cell[527465, 13560, 171, 3, 58, "Output",ExpressionUUID->"978bf39b-9d1f-a54f-a6de-a2e3d269e126"] }, Open ]], Cell[CellGroupData[{ -Cell[525425, 13504, 2223, 64, 122, "Input",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], -Cell[527651, 13570, 567, 12, 122, "Message",ExpressionUUID->"57c74c2a-63a6-9846-b3f7-1a08cebb8172"], -Cell[528221, 13584, 571, 12, 122, "Message",ExpressionUUID->"2e606101-b73e-f443-8324-5b1c64dcaa7f"], -Cell[528795, 13598, 573, 12, 122, "Message",ExpressionUUID->"4da9173d-4ced-1e49-83f6-426d72ec8cf3"], -Cell[529371, 13612, 456, 10, 122, "Message",ExpressionUUID->"a2dba8d9-69c9-cb46-bbb4-f7192fe3e138"], -Cell[529830, 13624, 173, 3, 122, "Output",ExpressionUUID->"12fa1803-dc21-9349-8d62-d5d5f0fa85c6"] +Cell[527673, 13568, 2223, 64, 624, "Input",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], +Cell[529899, 13634, 567, 12, 109, "Message",ExpressionUUID->"57c74c2a-63a6-9846-b3f7-1a08cebb8172"], +Cell[530469, 13648, 571, 12, 198, "Message",ExpressionUUID->"2e606101-b73e-f443-8324-5b1c64dcaa7f"], +Cell[531043, 13662, 573, 12, 198, "Message",ExpressionUUID->"4da9173d-4ced-1e49-83f6-426d72ec8cf3"], +Cell[531619, 13676, 456, 10, 75, "Message",ExpressionUUID->"a2dba8d9-69c9-cb46-bbb4-f7192fe3e138"], +Cell[532078, 13688, 173, 3, 58, "Output",ExpressionUUID->"12fa1803-dc21-9349-8d62-d5d5f0fa85c6"] }, Open ]], Cell[CellGroupData[{ -Cell[530040, 13632, 211, 6, 122, "Input",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], -Cell[530254, 13640, 174, 3, 122, "Output",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"] -}, Open ]] +Cell[532288, 13696, 211, 6, 81, "Input",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], +Cell[532502, 13704, 174, 3, 58, "Output",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"] +}, Open ]], +Cell[532691, 13710, 188, 4, 51, "Input",ExpressionUUID->"08768702-f34b-4e10-8a13-30bb622088c4"] } ] *) diff --git a/Pu240_798-811_TitovAA/164-76_h_Pu240_18-19/h_164-76_Pu240_18-19_osc_Qw2.nb b/Pu240_798-811_TitovAA/164-76_h_Pu240_18-19/h_164-76_Pu240_18-19_osc_Qw2.nb index a320d64..bba82ed 100644 --- a/Pu240_798-811_TitovAA/164-76_h_Pu240_18-19/h_164-76_Pu240_18-19_osc_Qw2.nb +++ b/Pu240_798-811_TitovAA/164-76_h_Pu240_18-19/h_164-76_Pu240_18-19_osc_Qw2.nb @@ -3,25 +3,4972 @@ (*** 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[ 580775, 14402] +NotebookOptionsPosition[ 541036, 13772] +NotebookOutlinePosition[ 541447, 13789] +CellTagsIndexPosition[ 541404, 13786] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f1", "="}]], "Input", + RowBox[{"d", "=", "1.78"}]], "Input", CellChangeTimes->{ - 3.9918496921150837`*^9},ExpressionUUID->"ede64bc2-06f7-8743-a0a6-\ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.993816332414463*^9, 3.993816395113246*^9}, { + 3.99408327105175*^9, + 3.99408327225659*^9}},ExpressionUUID->"f1382c5a-37c0-4755-89be-\ +96905c543547"], + +Cell[BoxData["1.78`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, {3.9938163104908867`*^9, 3.993816400323968*^9}}, + CellLabel-> + "Out[407]=",ExpressionUUID->"3a7f5917-ef1b-459b-9a6e-a5fb9a629903"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.993816070416484*^9, 3.9938160711424847`*^9}}, + CellLabel-> + "In[408]:=",ExpressionUUID->"f43660fa-9031-4e07-b66f-b07ee9ac236c"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, {3.993816310783677*^9, 3.9938164003801527`*^9}}, + CellLabel-> + "Out[408]=",ExpressionUUID->"42be1334-300c-4664-8afe-52014a81d464"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "164"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.993816075114204*^9, 3.993816075786501*^9}}, + CellLabel-> + "In[409]:=",ExpressionUUID->"07321a6a-1c35-41db-a569-1f68ddfb7adb"], + +Cell[BoxData["164"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, {3.99381631080079*^9, 3.9938164003966837`*^9}}, + CellLabel-> + "Out[409]=",ExpressionUUID->"34b123b5-c617-4da9-b9f6-81dc21f098b6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel-> + "In[410]:=",ExpressionUUID->"9b12ab22-c117-4c08-ade7-57e3cf871e80"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, {3.9938163108190804`*^9, 3.99381640041328*^9}}, + CellLabel-> + "Out[410]=",ExpressionUUID->"f1c0aa9c-af28-4554-8796-7a53df7cafb8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel-> + "In[411]:=",ExpressionUUID->"1ff90b57-0300-49e1-9e16-5b64a157724e"], + +Cell[BoxData["0.5445000000000001`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, {3.99381631083608*^9, 3.9938164004361677`*^9}}, + CellLabel-> + "Out[411]=",ExpressionUUID->"3445c148-08fb-4cf0-9ef0-b2c45a0077e5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel-> + "In[412]:=",ExpressionUUID->"8ac2d873-0ea2-404c-b6ec-81a1bef4490d"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, {3.99381631085299*^9, 3.99381640045368*^9}}, + CellLabel-> + "Out[412]=",ExpressionUUID->"68226aed-e691-4807-aef9-eb4320ac12dd"] +}, 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[413]:=",ExpressionUUID->"1a90f392-f48f-41b3-8019-dcce6409c2da"], + +Cell[BoxData["6.349496262766175`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, {3.993816310870123*^9, 3.993816400471637*^9}}, + CellLabel-> + "Out[413]=",ExpressionUUID->"04300081-d8c3-4e54-9c65-9635e2fff4c4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel-> + "In[414]:=",ExpressionUUID->"5beb184a-e2b6-4f9c-81b6-cce0f71f14ab"], + +Cell[BoxData["4.913555357735675`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, {3.993816310887587*^9, 3.993816400489262*^9}}, + CellLabel-> + "Out[414]=",ExpressionUUID->"62c11568-7a79-4363-935f-3299a00ee443"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.96357"}]], "Input", + CellChangeTimes->{ + 3.991799283179735*^9, {3.993816155315236*^9, 3.99381616557413*^9}}, + CellLabel-> + "In[415]:=",ExpressionUUID->"63865c01-79b3-48ad-a714-fda334053253"], + +Cell[BoxData["0.96357`"], "Output", + CellChangeTimes->{{3.9938163109056883`*^9, 3.993816400504654*^9}}, + CellLabel-> + "Out[415]=",ExpressionUUID->"63407a06-422c-423e-9fe2-b2ca3822f35e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.39003"}]], "Input", + CellChangeTimes->{ + 3.991799280663351*^9, {3.993816167313641*^9, 3.9938161733246517`*^9}}, + CellLabel-> + "In[416]:=",ExpressionUUID->"014751fc-4a6d-4089-9eb1-c54a4d1e523b"], + +Cell[BoxData["0.39003`"], "Output", + CellChangeTimes->{{3.993816310923224*^9, 3.993816400519388*^9}}, + CellLabel-> + "Out[416]=",ExpressionUUID->"343025f1-e4d4-4001-a648-c181c6df0d84"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel-> + "In[417]:=",ExpressionUUID->"e89e116c-1fde-46ea-8703-084a13839210"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, {3.993816310942574*^9, 3.993816400534342*^9}}, + CellLabel-> + "Out[417]=",ExpressionUUID->"79542a49-f7c6-4d73-8532-e9fff7302790"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel-> + "In[418]:=",ExpressionUUID->"eacd8d62-ec50-4abb-ab80-1b1869859db1"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, {3.993816310960237*^9, 3.993816400549685*^9}}, + CellLabel-> + "Out[418]=",ExpressionUUID->"d641c1e4-6924-452e-b6e4-25bb3dd85ee2"] +}, 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[419]:=",ExpressionUUID->"331c171b-4a6c-4cd7-99e3-97bf56659c80"], + +Cell[BoxData["2.4652625900301657`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, {3.993816310977528*^9, 3.993816400564805*^9}}, + CellLabel-> + "Out[419]=",ExpressionUUID->"1aecefd9-5ea7-4755-b02b-a97b62e4c59b"] +}, 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[420]:=",ExpressionUUID->"20e80858-fe88-4b15-9d44-8618d5793d8e"], + +Cell[BoxData["1.4266899039519758`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, {3.993816310993836*^9, 3.993816400579666*^9}}, + CellLabel-> + "Out[420]=",ExpressionUUID->"466a9b12-a6a1-450d-b367-0dee80b69719"] +}, 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[421]:=",ExpressionUUID->"5ac84d36-8f0a-4dd6-9e16-23f8a409a053"], + +Cell[BoxData["0.3750149455401738`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, {3.993816311010377*^9, 3.993816400594367*^9}}, + CellLabel-> + "Out[421]=",ExpressionUUID->"c8a391d8-072d-47e9-9f5d-d93bea02532d"] +}, 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[422]:=",ExpressionUUID->"5bd40196-ee21-4cd9-8320-21acc069c5ed"], + +Cell[BoxData[ + RowBox[{"-", "0.07977775132414705`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, {3.993816311027995*^9, 3.9938164006102667`*^9}}, + CellLabel-> + "Out[422]=",ExpressionUUID->"b5b2b412-9726-4305-bc33-b095b2c94bdb"] +}, 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[423]:=",ExpressionUUID->"d0c04429-994b-4a44-a4d0-f037102550ca"], + +Cell[BoxData[ + RowBox[{"-", "0.6284430544064189`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, {3.993816311033072*^9, 3.993816400624234*^9}}, + CellLabel-> + "Out[423]=",ExpressionUUID->"ae8f5e46-175c-4bec-ab32-79ae6a0cab8d"] +}, 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[424]:=",ExpressionUUID->"1f9601f2-6a88-4806-ad41-f0df46d4ed91"], + +Cell[BoxData["0.7294972450656219`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, {3.993816311062511*^9, 3.993816400639195*^9}}, + CellLabel-> + "Out[424]=",ExpressionUUID->"0f1293a9-d7f7-431c-b82b-59346602f5c9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel-> + "In[425]:=",ExpressionUUID->"347423ea-8341-41b7-b902-01dd41265ee1"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, {3.9938163110790157`*^9, 3.993816400654043*^9}}, + CellLabel-> + "Out[425]=",ExpressionUUID->"37853dcd-403b-4325-9352-2c97870a9304"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel-> + "In[426]:=",ExpressionUUID->"7907d38c-bf49-4699-9062-8fff129bef18"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, {3.99381631109599*^9, 3.993816400670066*^9}}, + CellLabel-> + "Out[426]=",ExpressionUUID->"28f21e11-6eb2-443c-862f-591adf26406e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel-> + "In[427]:=",ExpressionUUID->"b8ef7471-58ac-46a8-9b9a-1943c1a290e3"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, {3.99381631111339*^9, 3.99381640068589*^9}}, + CellLabel-> + "Out[427]=",ExpressionUUID->"8c6fbb31-49b6-418c-9d22-c173416bec65"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel-> + "In[428]:=",ExpressionUUID->"0189886d-6631-4e30-b784-8afd8e7f95c9"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, {3.993816311129064*^9, 3.993816400702038*^9}}, + CellLabel-> + "Out[428]=",ExpressionUUID->"81e68d03-8007-4e14-b4a0-ba61aa59cd0a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel-> + "In[429]:=",ExpressionUUID->"02568996-b75a-4e5f-8b69-2407169c6916"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, {3.993816311145554*^9, 3.9938164007190237`*^9}}, + CellLabel-> + "Out[429]=",ExpressionUUID->"febd74e2-815d-4f0c-8b41-dba7ab888d65"] +}, 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.9938161841110783`*^9, 3.9938161842569923`*^9}}, + CellLabel-> + "In[430]:=",ExpressionUUID->"e1a912a8-73c3-4c3b-b088-497714fdd235"], + +Cell[BoxData["66"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, {3.993816311161642*^9, 3.993816400736003*^9}}, + CellLabel-> + "Out[430]=",ExpressionUUID->"a2e7fe52-436a-44a5-8b97-ff42839731ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, {3.9938161866045017`*^9, 3.99381618669993*^9}}, + CellLabel-> + "In[431]:=",ExpressionUUID->"06e4989c-d2f4-4d93-b747-84fd32eaa822"], + +Cell[BoxData["28"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, {3.993816311177599*^9, 3.993816400757028*^9}}, + CellLabel-> + "Out[431]=",ExpressionUUID->"a10f3051-0aef-40b6-9855-1c98c87e2fc7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel-> + "In[432]:=",ExpressionUUID->"fc47679b-f40f-41ae-8998-6343e1434760"], + +Cell[BoxData["76"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, {3.993816311193193*^9, 3.993816400775269*^9}}, + CellLabel-> + "Out[432]=",ExpressionUUID->"260dbb5a-ce2d-4326-bf75-ee93f8ebb4ec"] +}, 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[433]:=",ExpressionUUID->"d6cd350e-bfcf-47a5-9d81-f0a69ccfe139"], + +Cell[BoxData["0.11156611039794609`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, {3.993816311209059*^9, 3.993816400793248*^9}}, + CellLabel-> + "Out[433]=",ExpressionUUID->"8755b8d7-e014-4fda-b865-e36850b8017a"] +}, 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[434]:=",ExpressionUUID->"d0a6fae9-9e4e-458b-a7df-835a54518cdd"], + +Cell[BoxData[ + RowBox[{"-", "2.562272143774069`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, {3.993816311224965*^9, 3.993816400810424*^9}}, + CellLabel-> + "Out[434]=",ExpressionUUID->"4008e5a3-03dd-40fe-b2b5-d74941ebe7c4"] +}, 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[435]:=",ExpressionUUID->"036f30de-54e0-4522-af85-5e43b3f4c659"], + +Cell[BoxData["17.58253870834664`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, {3.993816311240906*^9, 3.9938164008326178`*^9}}, + CellLabel-> + "Out[435]=",ExpressionUUID->"b15cc941-9c19-4e1c-a99e-692553c53aca"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel-> + "In[436]:=",ExpressionUUID->"81d99f00-b761-475d-949e-530db7207fe0"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, {3.993816311257287*^9, 3.993816400852189*^9}}, + CellLabel-> + "Out[436]=",ExpressionUUID->"37dbbba4-7857-4375-b02b-20caebe5d9ca"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "2"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, + 3.993816201054872*^9}, + CellLabel-> + "In[437]:=",ExpressionUUID->"fb7c1a44-ae36-4c9d-a48d-2ac384a8901e"], + +Cell[BoxData["2"], "Output", + CellChangeTimes->{{3.99381631127295*^9, 3.993816400871359*^9}}, + CellLabel-> + "Out[437]=",ExpressionUUID->"8a567713-327f-4f89-b5cf-f5d22a3499cf"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel-> + "In[438]:=",ExpressionUUID->"91d58ee7-5627-4dff-9509-e3354c6058c5"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.805"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.993816204826747*^9, 3.993816206119349*^9}}, + CellLabel-> + "In[439]:=",ExpressionUUID->"298ada5c-a5a3-4fa0-9c4a-9120a3296baf"], + +Cell[BoxData["0.805`"], "Output", + CellChangeTimes->{{3.9938163113036537`*^9, 3.993816400895072*^9}}, + CellLabel-> + "Out[439]=",ExpressionUUID->"fa0cff63-7921-4bb3-a225-32b0b174f881"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel-> + "In[440]:=",ExpressionUUID->"1a29ed12-c2bf-4b4b-8b51-986c65959945"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "2.65"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.993816211321389*^9, 3.9938162195378838`*^9}}, + CellLabel-> + "In[441]:=",ExpressionUUID->"38aae145-970c-486e-bbe4-4b07e8b87af2"], + +Cell[BoxData["2.65`"], "Output", + CellChangeTimes->{{3.9938163113365593`*^9, 3.993816400917997*^9}}, + CellLabel-> + "Out[441]=",ExpressionUUID->"2ecd15b6-11d0-4524-a566-c587c8abaf14"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel-> + "In[442]:=",ExpressionUUID->"004d7445-3245-4bc6-b2f6-52011777f892"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.175"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, {3.9938162225291348`*^9, 3.993816223644052*^9}}, + CellLabel-> + "In[443]:=",ExpressionUUID->"799e6cea-589e-41f8-a046-d24e1709f554"], + +Cell[BoxData["1.175`"], "Output", + CellChangeTimes->{{3.993816311366596*^9, 3.993816400940548*^9}}, + CellLabel-> + "Out[443]=",ExpressionUUID->"6a161d46-ce7a-4444-801b-381103ea3853"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel-> + "In[444]:=",ExpressionUUID->"09190fa6-0581-4215-98d6-37e55b97a639"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "0.795"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, {3.9938162281192904`*^9, + 3.993816230831416*^9}}, + CellLabel-> + "In[445]:=",ExpressionUUID->"b5b42979-d0c4-4670-bedd-343f93950d65"], + +Cell[BoxData["0.795`"], "Output", + CellChangeTimes->{{3.993816311396524*^9, 3.993816400963438*^9}}, + CellLabel-> + "Out[445]=",ExpressionUUID->"4edf62f5-ee7c-43bb-97d7-a709d70f8cc4"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel-> + "In[446]:=",ExpressionUUID->"192276d5-e993-4478-82ea-71c65a24df99"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.595"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.993816234625985*^9, + 3.993816236062304*^9}}, + CellLabel-> + "In[447]:=",ExpressionUUID->"ced81e69-1d9a-4863-8d3b-18880c4947fe"], + +Cell[BoxData["0.595`"], "Output", + CellChangeTimes->{{3.993816311427802*^9, 3.9938164009852858`*^9}}, + CellLabel-> + "Out[447]=",ExpressionUUID->"c38e1d6f-f1c4-476f-a387-45b4f3dcbc71"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel-> + "In[448]:=",ExpressionUUID->"6671fa3c-c438-4774-9a97-7904a087d195"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "1.47"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.993816238161579*^9, + 3.9938162401131277`*^9}}, + CellLabel-> + "In[449]:=",ExpressionUUID->"759fa7d9-cbc8-4e43-8720-a995984cede8"], + +Cell[BoxData["1.47`"], "Output", + CellChangeTimes->{{3.993816311458173*^9, 3.9938164010070257`*^9}}, + CellLabel-> + "Out[449]=",ExpressionUUID->"0345f281-faba-4c6c-b204-16d7de695e04"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel-> + "In[450]:=",ExpressionUUID->"cd965388-1682-4cbb-8568-b66f38f454a9"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "0.655"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, {3.993816241842022*^9, 3.993816245056822*^9}}, + CellLabel-> + "In[451]:=",ExpressionUUID->"ecb40850-44b8-4062-80be-f46a3f26b2ed"], + +Cell[BoxData["0.655`"], "Output", + CellChangeTimes->{{3.993816311488914*^9, 3.993816401028906*^9}}, + CellLabel-> + "Out[451]=",ExpressionUUID->"eafb8add-43d3-4445-92d0-900b2812085d"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel-> + "In[452]:=",ExpressionUUID->"c6d528a6-5533-43b6-98c8-00177c44108d"], + +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[453]:=",ExpressionUUID->"426c63e8-fb89-45d6-a957-f95dbbd825bb"], + +Cell[BoxData["0.10932371372103143`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, {3.993816311598846*^9, 3.993816401077582*^9}}, + CellLabel-> + "Out[453]=",ExpressionUUID->"f10e9fc6-b75a-411c-95d2-028b25433a73"] +}, 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[454]:=",ExpressionUUID->"6f685327-4b81-4284-afb6-c3aefad198c3"], + +Cell[BoxData["9.790243175904545`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, {3.9938163116474113`*^9, 3.993816401110285*^9}}, + CellLabel-> + "Out[454]=",ExpressionUUID->"6c936857-18a5-4fef-8750-8859a97c900d"] +}, 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[455]:=",ExpressionUUID->"9177db48-266c-4fc3-a0db-b6c96de6811a"], + +Cell[BoxData[ + RowBox[{"-", "16.70631937398676`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, {3.993816311688833*^9, 3.99381640114319*^9}}, + CellLabel-> + "Out[455]=",ExpressionUUID->"0ea4e416-9636-41c1-892b-81301846ec64"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U41", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", "b2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + 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]", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "nn1", "*", "R1", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "nn1"}], ")"}], "/", "R1"}], ")"}], + "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "n2", "*", "R2", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "n2"}], ")"}], "/", "R2"}], ")"}], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], "/", + RowBox[{"(", + 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]", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "nn1", "*", "R1", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "nn1"}], ")"}], "/", "R1"}], ")"}], + "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "n2", "*", "R2", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "n2"}], ")"}], "/", "R2"}], ")"}], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], "/", + RowBox[{"(", + 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]", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "nn1", "*", "R1", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "nn1"}], ")"}], "/", "R1"}], ")"}], + "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "n2", "*", "R2", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "n2"}], ")"}], "/", "R2"}], ")"}], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], "/", + RowBox[{"(", + 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]", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "n1", "*", "R1", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "n1"}], ")"}], "/", "R1"}], ")"}], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "nn2", "*", "R2", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "nn2"}], ")"}], "/", "R2"}], ")"}], + "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], "/", + RowBox[{"(", + 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]", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "n1", "*", "R1", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "n1"}], ")"}], "/", "R1"}], ")"}], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "nn2", "*", "R2", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "nn2"}], ")"}], "/", "R2"}], ")"}], + "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], "/", + RowBox[{"(", + 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]", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "n1", "*", "R1", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "n1"}], ")"}], "/", "R1"}], ")"}], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "nn2", "*", "R2", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "nn2"}], ")"}], "/", "R2"}], ")"}], + "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], "/", + RowBox[{"(", + 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]", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "n1", "*", "R1", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "n1"}], ")"}], "/", "R1"}], ")"}], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "nn2", "*", "R2", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "nn2"}], ")"}], "/", "R2"}], ")"}], + "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], "/", + RowBox[{"(", + 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]", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "n1", "*", "R1", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "n1"}], ")"}], "/", "R1"}], ")"}], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "n2", "*", "R2", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "n2"}], ")"}], "/", "R2"}], ")"}], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], "/", + RowBox[{"(", + 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[456]:=",ExpressionUUID->"c14b449c-48ab-4a66-bdd8-265f7b768fed"], + +Cell[BoxData[ + RowBox[{"-", "21.21244105904564`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, {3.99381631175032*^9, 3.993816401178795*^9}}, + CellLabel-> + "Out[456]=",ExpressionUUID->"247ac764-03dd-4049-a1ff-8e30e1754ac9"] +}, 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[457]:=",ExpressionUUID->"fd220b96-f4ca-4cca-8867-0e38a96ffb73"], + +Cell[BoxData[ + RowBox[{"-", "64.11746269097033`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, {3.993816311810264*^9, 3.993816401216831*^9}}, + CellLabel-> + "Out[457]=",ExpressionUUID->"9e6e9ee8-3a02-48ee-a3d0-db08b7ee9152"] +}, 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[458]:=",ExpressionUUID->"71dc8cd9-29d3-4396-b5e2-6d0f0fb2d5fc"], + +Cell[BoxData[ + RowBox[{"-", "162.12919789671096`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, {3.993816311880077*^9, 3.9938164012606087`*^9}}, + CellLabel-> + "Out[458]=",ExpressionUUID->"beb982c8-9336-4aa7-9494-0511374f6c60"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel-> + "In[459]:=",ExpressionUUID->"5d61a410-d91d-4e00-a79d-12258b09b734"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, {3.993816311896537*^9, 3.993816401279429*^9}}, + CellLabel-> + "Out[459]=",ExpressionUUID->"1f46af81-5932-455b-902e-951378d8299a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel-> + "In[460]:=",ExpressionUUID->"793ccd2e-d893-43bd-9c87-b89229ad7703"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, {3.993816311909266*^9, 3.993816401294653*^9}}, + CellLabel-> + "Out[460]=",ExpressionUUID->"feb40caf-580b-4b9a-80c5-6d47ca03d1b6"] +}, 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[461]:=",ExpressionUUID->"56cec5e8-2e02-42fb-8e98-3dcf1ded3a17"], + +Cell[BoxData["137.278680377525`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, {3.993816311921467*^9, 3.993816401310416*^9}}, + CellLabel-> + "Out[461]=",ExpressionUUID->"2f96b3a1-0af1-4dfe-b823-77856a7698de"] +}, 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[462]:=",ExpressionUUID->"fcc4ca19-d3b8-4e35-b05a-314fefd293af"], + +Cell[BoxData[ + RowBox[{"-", "124.2735331996648`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, {3.9938163119334393`*^9, 3.993816401325693*^9}}, + CellLabel-> + "Out[462]=",ExpressionUUID->"5aadace0-fd8b-45b9-9817-ec800340e9b9"] +}, 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[463]:=",ExpressionUUID->"cb00b729-9872-4b38-b588-3abe4d931ec8"], + +Cell[BoxData["136.79424869488386`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, {3.993816311945665*^9, 3.993816401340849*^9}}, + CellLabel-> + "Out[463]=",ExpressionUUID->"1735fa03-19d9-46fa-9a0f-02134819655b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel-> + "In[464]:=",ExpressionUUID->"77af222e-239b-4e06-a300-3cd6890b0f45"], + +Cell[BoxData["0.3750149455401738`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, {3.9938163119574957`*^9, 3.993816401363001*^9}}, + CellLabel-> + "Out[464]=",ExpressionUUID->"b69dfc84-60dd-443c-9cc4-8b905a1e0b23"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel-> + "In[465]:=",ExpressionUUID->"bd805f25-b985-4cc0-96ca-d35749e7f5bb"], + +Cell[BoxData[ + RowBox[{"-", "0.07977775132414705`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, {3.9938163119693823`*^9, 3.99381640137784*^9}}, + CellLabel-> + "Out[465]=",ExpressionUUID->"5ea635f7-b3f1-4751-bde1-21dedb82a76b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel-> + "In[466]:=",ExpressionUUID->"be4e622c-9bb7-4110-a469-a61d282192c3"], + +Cell[BoxData[ + RowBox[{"-", "0.6284430544064189`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, {3.9938163119814787`*^9, 3.993816401392654*^9}}, + CellLabel-> + "Out[466]=",ExpressionUUID->"70e543e8-3510-4219-82bc-9f7099a88b6b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel-> + "In[467]:=",ExpressionUUID->"fba58724-aae6-4177-8f5d-352d9088fe66"], + +Cell[BoxData["0.7294972450656219`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, {3.993816311994028*^9, 3.99381640140742*^9}}, + CellLabel-> + "Out[467]=",ExpressionUUID->"9cb081e3-1c16-4828-9ec1-b84b1faad2c0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel-> + "In[468]:=",ExpressionUUID->"be25ab07-b327-4400-93a2-96e5c6b3ccff"], + +Cell[BoxData["2.4652625900301657`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, {3.993816312006279*^9, 3.99381640142347*^9}}, + CellLabel-> + "Out[468]=",ExpressionUUID->"94eaa887-c3a7-4bf0-b3d9-2b1dbc19b63e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel-> + "In[469]:=",ExpressionUUID->"0a948ed0-8af1-49b9-aa61-48aab6f17baf"], + +Cell[BoxData["1.4266899039519758`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, {3.993816312018448*^9, 3.993816401439527*^9}}, + CellLabel-> + "Out[469]=",ExpressionUUID->"ddec6491-f389-4cd0-94d5-37daf9bd99a2"] +}, 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[470]:=",ExpressionUUID->"775d3f9f-6bfb-47fa-86fe-930eb61f9408"], + +Cell[BoxData[ + RowBox[{"-", "36.59398535367672`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, {3.9938163120312033`*^9, 3.9938164014556637`*^9}}, + CellLabel-> + "Out[470]=",ExpressionUUID->"3128cdab-ddb9-4e92-b3c7-1bd17df91fd2"] +}, 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[471]:=",ExpressionUUID->"7f8a5858-9014-486a-bcb3-74b8f2d71e17"], + +Cell[BoxData[ + RowBox[{"-", "6.706084141019179`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, {3.99381631203615*^9, 3.99381640147013*^9}}, + CellLabel-> + "Out[471]=",ExpressionUUID->"dc739dac-f20f-41b8-98e0-8784389e180a"] +}, 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[472]:=",ExpressionUUID->"e07f6b2f-3131-4527-a18d-26e3f7bd7ec3"], + +Cell[BoxData["100.68469502384829`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, {3.9938163120484467`*^9, 3.993816401484993*^9}}, + CellLabel-> + "Out[472]=",ExpressionUUID->"2df9cc3c-76e3-4ad6-878f-e5f50f4183b8"] +}, 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[473]:=",ExpressionUUID->"06dd3ca2-9fda-4a46-bad5-5159bc6ff19c"], + +Cell[BoxData[ + RowBox[{"-", "124.2735331996648`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, {3.99381631206076*^9, 3.9938164015001698`*^9}}, + CellLabel-> + "Out[473]=",ExpressionUUID->"4929fdb6-453c-420f-b70b-483e8e5b542c"] +}, 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[474]:=",ExpressionUUID->"daa564ad-c60b-4423-9c6f-031d136161bf"], + +Cell[BoxData["130.0881645538647`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, {3.9938163120760603`*^9, 3.993816401514661*^9}}, + CellLabel-> + "Out[474]=",ExpressionUUID->"85ee5f42-2eff-4387-a0bc-3c352b854517"] +}, 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[475]:=",ExpressionUUID->"6a187063-737f-41da-b5db-d39f18dfcc54"], + +Cell[BoxData["37.11735851847544`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, {3.993816312091509*^9, 3.9938164015309277`*^9}}, + CellLabel-> + "Out[475]=",ExpressionUUID->"602b227b-47dd-40cb-9fa3-78ca36ea8aca"] +}, 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[476]:=",ExpressionUUID->"43142659-682d-4196-aac6-db3d706f19fa"], + +Cell[BoxData["835.6594550727934`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, {3.9938163121038647`*^9, 3.993816401547245*^9}}, + CellLabel-> + "Out[476]=",ExpressionUUID->"efcd55d7-a7e3-4de2-8879-5f8c904baddb"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"f1", "=", "0.8824908045"}]], "Input", + CellChangeTimes->{3.9918496921150837`*^9, + 3.994083428622492*^9},ExpressionUUID->"ede64bc2-06f7-8743-a0a6-\ 6f058773310c"], Cell[BoxData[""], "Input", @@ -30,9 +4977,9 @@ Cell[BoxData[""], "Input", c82e80965ca9"], Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", - CellChangeTimes->{ - 3.991849690724144*^9},ExpressionUUID->"328429c4-9130-334e-ba7f-\ + RowBox[{"f2", "=", "0.577572279"}]], "Input", + CellChangeTimes->{3.991849690724144*^9, + 3.994083435145775*^9},ExpressionUUID->"328429c4-9130-334e-ba7f-\ 7dc8ec78e5b4"], Cell[BoxData[""], "Input", @@ -1579,8 +6526,8 @@ i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== "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[{ @@ -2580,9 +7527,72 @@ A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", - RowBox[{"{", "}"}], "]"}]}]], "Input", - CellChangeTimes->{{3.991799458254999*^9, - 3.9917994623413925`*^9}},ExpressionUUID->"2d5a8299-5376-9747-8056-\ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.005107"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.015156"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.024717"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.033493"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.041238"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.047751"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.052907"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.056635"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.058943"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.059883"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.059573"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.058155"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.055811"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.052723"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.049089"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.045084"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.040884"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.03663"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.03245"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.028437"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.024669"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.02119"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.018036"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.015213"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.012726"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.010557"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.008691"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.007099"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.005759"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.004637"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.00371"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.994083469012673*^9},ExpressionUUID->"2d5a8299-5376-9747-8056-\ 2bd9764114a1"], Cell[BoxData[ @@ -8753,12 +13763,17 @@ Cell[BoxData["0.14275466609450368`"], "Output", CellChangeTimes->{3.991343787117275*^9}, CellLabel-> "Out[395]=",ExpressionUUID->"188c2681-ea17-924e-adb2-007b19a9ee86"] -}, Open ]] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input", + CellChangeTimes->{{3.994083532538033*^9, 3.994083541956765*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"6e095bee-c7b8-4216-a319-367a047c5d8f"] }, -WindowSize->{718.5, 729.75}, -WindowMargins->{{17.25, Automatic}, {Automatic, 24}}, +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 +13788,623 @@ 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, 330, 7, 36, "Input",ExpressionUUID->"f1382c5a-37c0-4755-89be-96905c543547"], +Cell[909, 31, 208, 4, 41, "Output",ExpressionUUID->"3a7f5917-ef1b-459b-9a6e-a5fb9a629903"] }, 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[1154, 40, 253, 5, 36, "Input",ExpressionUUID->"f43660fa-9031-4e07-b66f-b07ee9ac236c"], +Cell[1410, 47, 208, 4, 41, "Output",ExpressionUUID->"42be1334-300c-4664-8afe-52014a81d464"] }, 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[1655, 56, 226, 5, 36, "Input",ExpressionUUID->"07321a6a-1c35-41db-a569-1f68ddfb7adb"], +Cell[1884, 63, 207, 4, 41, "Output",ExpressionUUID->"34b123b5-c617-4da9-b9f6-81dc21f098b6"] }, 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[2128, 72, 180, 4, 51, "Input",ExpressionUUID->"9b12ab22-c117-4c08-ade7-57e3cf871e80"], +Cell[2311, 78, 207, 4, 58, "Output",ExpressionUUID->"f1c0aa9c-af28-4554-8796-7a53df7cafb8"] }, 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[2555, 87, 262, 8, 74, "Input",ExpressionUUID->"1ff90b57-0300-49e1-9e16-5b64a157724e"], +Cell[2820, 97, 223, 4, 58, "Output",ExpressionUUID->"3445c148-08fb-4cf0-9ef0-b2c45a0077e5"] }, 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[3080, 106, 136, 3, 51, "Input",ExpressionUUID->"8ac2d873-0ea2-404c-b6ec-81a1bef4490d"], +Cell[3219, 111, 206, 4, 58, "Output",ExpressionUUID->"68226aed-e691-4807-aef9-eb4320ac12dd"] }, 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[3462, 120, 281, 7, 51, "Input",ExpressionUUID->"1a90f392-f48f-41b3-8019-dcce6409c2da"], +Cell[3746, 129, 221, 4, 58, "Output",ExpressionUUID->"04300081-d8c3-4e54-9c65-9635e2fff4c4"] }, 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[4004, 138, 262, 8, 51, "Input",ExpressionUUID->"5beb184a-e2b6-4f9c-81b6-cce0f71f14ab"], +Cell[4269, 148, 221, 4, 58, "Output",ExpressionUUID->"62c11568-7a79-4363-935f-3299a00ee443"] }, 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[4527, 157, 229, 5, 51, "Input",ExpressionUUID->"63865c01-79b3-48ad-a714-fda334053253"], +Cell[4759, 164, 186, 3, 58, "Output",ExpressionUUID->"63407a06-422c-423e-9fe2-b2ca3822f35e"] }, 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[4982, 172, 232, 5, 51, "Input",ExpressionUUID->"014751fc-4a6d-4089-9eb1-c54a4d1e523b"], +Cell[5217, 179, 184, 3, 58, "Output",ExpressionUUID->"343025f1-e4d4-4001-a648-c181c6df0d84"] }, 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[5438, 187, 133, 3, 51, "Input",ExpressionUUID->"e89e116c-1fde-46ea-8703-084a13839210"], +Cell[5574, 192, 204, 4, 58, "Output",ExpressionUUID->"79542a49-f7c6-4d73-8532-e9fff7302790"] }, 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[5815, 201, 133, 3, 51, "Input",ExpressionUUID->"eacd8d62-ec50-4abb-ab80-1b1869859db1"], +Cell[5951, 206, 204, 4, 58, "Output",ExpressionUUID->"d641c1e4-6924-452e-b6e4-25bb3dd85ee2"] }, 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[6192, 215, 561, 20, 140, "Input",ExpressionUUID->"331c171b-4a6c-4cd7-99e3-97bf56659c80"], +Cell[6756, 237, 222, 4, 58, "Output",ExpressionUUID->"1aecefd9-5ea7-4755-b02b-a97b62e4c59b"] }, 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[7015, 246, 561, 20, 140, "Input",ExpressionUUID->"20e80858-fe88-4b15-9d44-8618d5793d8e"], +Cell[7579, 268, 222, 4, 58, "Output",ExpressionUUID->"466a9b12-a6a1-450d-b367-0dee80b69719"] }, 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[7838, 277, 1592, 51, 190, "Input",ExpressionUUID->"5ac84d36-8f0a-4dd6-9e16-23f8a409a053"], +Cell[9433, 330, 220, 4, 58, "Output",ExpressionUUID->"c8a391d8-072d-47e9-9f5d-d93bea02532d"] }, 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[9690, 339, 1426, 47, 190, "Input",ExpressionUUID->"5bd40196-ee21-4cd9-8320-21acc069c5ed"], +Cell[11119, 388, 240, 5, 58, "Output",ExpressionUUID->"b5b2b412-9726-4305-bc33-b095b2c94bdb"] }, 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[11396, 398, 1335, 45, 141, "Input",ExpressionUUID->"d0c04429-994b-4a44-a4d0-f037102550ca"], +Cell[12734, 445, 239, 5, 58, "Output",ExpressionUUID->"ae8f5e46-175c-4bec-ab32-79ae6a0cab8d"] }, 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[13010, 455, 1592, 51, 190, "Input",ExpressionUUID->"1f9601f2-6a88-4806-ad41-f0df46d4ed91"], +Cell[14605, 508, 218, 4, 58, "Output",ExpressionUUID->"0f1293a9-d7f7-431c-b82b-59346602f5c9"] }, 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[14860, 517, 135, 3, 51, "Input",ExpressionUUID->"347423ea-8341-41b7-b902-01dd41265ee1"], +Cell[14998, 522, 206, 4, 58, "Output",ExpressionUUID->"37853dcd-403b-4325-9352-2c97870a9304"] }, 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[15241, 531, 137, 3, 51, "Input",ExpressionUUID->"7907d38c-bf49-4699-9062-8fff129bef18"], +Cell[15381, 536, 205, 4, 58, "Output",ExpressionUUID->"28f21e11-6eb2-443c-862f-591adf26406e"] }, 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[15623, 545, 138, 3, 51, "Input",ExpressionUUID->"b8ef7471-58ac-46a8-9b9a-1943c1a290e3"], +Cell[15764, 550, 206, 4, 58, "Output",ExpressionUUID->"8c6fbb31-49b6-418c-9d22-c173416bec65"] }, 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[16007, 559, 223, 5, 51, "Input",ExpressionUUID->"0189886d-6631-4e30-b784-8afd8e7f95c9"], +Cell[16233, 566, 221, 5, 58, "Output",ExpressionUUID->"81e68d03-8007-4e14-b4a0-ba61aa59cd0a"] }, 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[16491, 576, 138, 3, 51, "Input",ExpressionUUID->"02568996-b75a-4e5f-8b69-2407169c6916"], +Cell[16632, 581, 210, 4, 58, "Output",ExpressionUUID->"febd74e2-815d-4f0c-8b41-dba7ab888d65"] }, 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[16879, 590, 330, 6, 51, "Input",ExpressionUUID->"e1a912a8-73c3-4c3b-b088-497714fdd235"], +Cell[17212, 598, 205, 4, 58, "Output",ExpressionUUID->"a2e7fe52-436a-44a5-8b97-ff42839731ef"] }, 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[17454, 607, 301, 6, 51, "Input",ExpressionUUID->"06e4989c-d2f4-4d93-b747-84fd32eaa822"], +Cell[17758, 615, 205, 4, 58, "Output",ExpressionUUID->"a10f3051-0aef-40b6-9855-1c98c87e2fc7"] }, 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[18000, 624, 223, 5, 51, "Input",ExpressionUUID->"fc47679b-f40f-41ae-8998-6343e1434760"], +Cell[18226, 631, 203, 4, 58, "Output",ExpressionUUID->"260dbb5a-ce2d-4326-bf75-ee93f8ebb4ec"] }, 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[18466, 640, 354, 11, 74, "Input",ExpressionUUID->"d6cd350e-bfcf-47a5-9d81-f0a69ccfe139"], +Cell[18823, 653, 223, 4, 58, "Output",ExpressionUUID->"8755b8d7-e014-4fda-b865-e36850b8017a"] }, 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[19083, 662, 354, 11, 74, "Input",ExpressionUUID->"d0a6fae9-9e4e-458b-a7df-835a54518cdd"], +Cell[19440, 675, 238, 5, 58, "Output",ExpressionUUID->"4008e5a3-03dd-40fe-b2b5-d74941ebe7c4"] }, 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[19715, 685, 998, 27, 142, "Input",ExpressionUUID->"036f30de-54e0-4522-af85-5e43b3f4c659"], +Cell[20716, 714, 223, 4, 58, "Output",ExpressionUUID->"b15cc941-9c19-4e1c-a99e-692553c53aca"] }, 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[20976, 723, 203, 4, 51, "Input",ExpressionUUID->"81d99f00-b761-475d-949e-530db7207fe0"], +Cell[21182, 729, 204, 4, 58, "Output",ExpressionUUID->"37dbbba4-7857-4375-b02b-20caebe5d9ca"] }, 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[21423, 738, 303, 6, 51, "Input",ExpressionUUID->"fb7c1a44-ae36-4c9d-a48d-2ac384a8901e"], +Cell[21729, 746, 176, 3, 58, "Output",ExpressionUUID->"8a567713-327f-4f89-b5cf-f5d22a3499cf"] +}, Open ]], +Cell[21920, 752, 177, 3, 51, "Input",ExpressionUUID->"91d58ee7-5627-4dff-9509-e3354c6058c5"], +Cell[CellGroupData[{ +Cell[22122, 759, 331, 6, 51, "Input",ExpressionUUID->"298ada5c-a5a3-4fa0-9c4a-9120a3296baf"], +Cell[22456, 767, 184, 3, 58, "Output",ExpressionUUID->"fa0cff63-7921-4bb3-a225-32b0b174f881"] +}, Open ]], +Cell[22655, 773, 177, 3, 51, "Input",ExpressionUUID->"1a29ed12-c2bf-4b4b-8b51-986c65959945"], +Cell[CellGroupData[{ +Cell[22857, 780, 333, 6, 51, "Input",ExpressionUUID->"38aae145-970c-486e-bbe4-4b07e8b87af2"], +Cell[23193, 788, 183, 3, 58, "Output",ExpressionUUID->"2ecd15b6-11d0-4524-a566-c587c8abaf14"] +}, Open ]], +Cell[23391, 794, 177, 3, 51, "Input",ExpressionUUID->"004d7445-3245-4bc6-b2f6-52011777f892"], +Cell[CellGroupData[{ +Cell[23593, 801, 358, 6, 51, "Input",ExpressionUUID->"799e6cea-589e-41f8-a046-d24e1709f554"], +Cell[23954, 809, 182, 3, 58, "Output",ExpressionUUID->"6a161d46-ce7a-4444-801b-381103ea3853"] +}, Open ]], +Cell[24151, 815, 175, 3, 51, "Input",ExpressionUUID->"09190fa6-0581-4215-98d6-37e55b97a639"], +Cell[CellGroupData[{ +Cell[24351, 822, 305, 6, 51, "Input",ExpressionUUID->"b5b42979-d0c4-4670-bedd-343f93950d65"], +Cell[24659, 830, 182, 3, 58, "Output",ExpressionUUID->"4edf62f5-ee7c-43bb-97d7-a709d70f8cc4"] +}, Open ]], +Cell[24856, 836, 175, 3, 51, "Input",ExpressionUUID->"192276d5-e993-4478-82ea-71c65a24df99"], +Cell[CellGroupData[{ +Cell[25056, 843, 307, 6, 51, "Input",ExpressionUUID->"ced81e69-1d9a-4863-8d3b-18880c4947fe"], +Cell[25366, 851, 184, 3, 58, "Output",ExpressionUUID->"c38e1d6f-f1c4-476f-a387-45b4f3dcbc71"] +}, Open ]], +Cell[25565, 857, 177, 3, 51, "Input",ExpressionUUID->"6671fa3c-c438-4774-9a97-7904a087d195"], +Cell[CellGroupData[{ +Cell[25767, 864, 311, 6, 51, "Input",ExpressionUUID->"759fa7d9-cbc8-4e43-8720-a995984cede8"], +Cell[26081, 872, 183, 3, 58, "Output",ExpressionUUID->"0345f281-faba-4c6c-b204-16d7de695e04"] +}, Open ]], +Cell[26279, 878, 176, 3, 51, "Input",ExpressionUUID->"cd965388-1682-4cbb-8568-b66f38f454a9"], +Cell[CellGroupData[{ +Cell[26480, 885, 279, 5, 51, "Input",ExpressionUUID->"ecb40850-44b8-4062-80be-f46a3f26b2ed"], +Cell[26762, 892, 182, 3, 58, "Output",ExpressionUUID->"eafb8add-43d3-4445-92d0-900b2812085d"] +}, Open ]], +Cell[26959, 898, 179, 3, 51, "Input",ExpressionUUID->"c6d528a6-5533-43b6-98c8-00177c44108d"], +Cell[CellGroupData[{ +Cell[27163, 905, 19813, 486, 2581, "Input",ExpressionUUID->"426c63e8-fb89-45d6-a957-f95dbbd825bb"], +Cell[46979, 1393, 221, 4, 58, "Output",ExpressionUUID->"f10e9fc6-b75a-411c-95d2-028b25433a73"] }, 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[47237, 1402, 19752, 490, 2539, "Input",ExpressionUUID->"6f685327-4b81-4284-afb6-c3aefad198c3"], +Cell[66992, 1894, 221, 4, 58, "Output",ExpressionUUID->"6c936857-18a5-4fef-8750-8859a97c900d"] }, 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[67250, 1903, 19752, 484, 2561, "Input",ExpressionUUID->"9177db48-266c-4fc3-a0db-b6c96de6811a"], +Cell[87005, 2389, 235, 5, 109, "Output",ExpressionUUID->"0ea4e416-9636-41c1-892b-81301846ec64"] }, 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[87277, 2399, 28300, 713, 109, "Input",ExpressionUUID->"c14b449c-48ab-4a66-bdd8-265f7b768fed"], +Cell[115580, 3114, 235, 5, 58, "Output",ExpressionUUID->"247ac764-03dd-4049-a1ff-8e30e1754ac9"] }, 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[115852, 3124, 22539, 554, 2883, "Input",ExpressionUUID->"fd220b96-f4ca-4cca-8867-0e38a96ffb73"], +Cell[138394, 3680, 238, 5, 58, "Output",ExpressionUUID->"9e6e9ee8-3a02-48ee-a3d0-db08b7ee9152"] }, 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[138669, 3690, 25495, 627, 3226, "Input",ExpressionUUID->"71dc8cd9-29d3-4396-b5e2-6d0f0fb2d5fc"], +Cell[164167, 4319, 239, 5, 58, "Output",ExpressionUUID->"beb982c8-9336-4aa7-9494-0511374f6c60"] }, 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[164443, 4329, 134, 3, 51, "Input",ExpressionUUID->"5d61a410-d91d-4e00-a79d-12258b09b734"], +Cell[164580, 4334, 204, 4, 58, "Output",ExpressionUUID->"1f46af81-5932-455b-902e-951378d8299a"] }, 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[164821, 4343, 134, 3, 51, "Input",ExpressionUUID->"793ccd2e-d893-43bd-9c87-b89229ad7703"], +Cell[164958, 4348, 204, 4, 58, "Output",ExpressionUUID->"feb40caf-580b-4b9a-80c5-6d47ca03d1b6"] }, 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[165199, 4357, 1148, 40, 190, "Input",ExpressionUUID->"56cec5e8-2e02-42fb-8e98-3dcf1ded3a17"], +Cell[166350, 4399, 218, 4, 58, "Output",ExpressionUUID->"2f96b3a1-0af1-4dfe-b823-77856a7698de"] }, 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[166605, 4408, 1045, 36, 257, "Input",ExpressionUUID->"fcc4ca19-d3b8-4e35-b05a-314fefd293af"], +Cell[167653, 4446, 238, 5, 58, "Output",ExpressionUUID->"5aadace0-fd8b-45b9-9817-ec800340e9b9"] }, 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[167928, 4456, 1148, 40, 190, "Input",ExpressionUUID->"cb00b729-9872-4b38-b588-3abe4d931ec8"], +Cell[169079, 4498, 222, 4, 58, "Output",ExpressionUUID->"1735fa03-19d9-46fa-9a0f-02134819655b"] }, 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[169338, 4507, 112, 2, 51, "Input",ExpressionUUID->"77af222e-239b-4e06-a300-3cd6890b0f45"], +Cell[169453, 4511, 224, 4, 58, "Output",ExpressionUUID->"b69dfc84-60dd-443c-9cc4-8b905a1e0b23"] }, 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[169714, 4520, 112, 2, 51, "Input",ExpressionUUID->"bd805f25-b985-4cc0-96ca-d35749e7f5bb"], +Cell[169829, 4524, 241, 5, 58, "Output",ExpressionUUID->"5ea635f7-b3f1-4751-bde1-21dedb82a76b"] }, 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[170107, 4534, 112, 2, 51, "Input",ExpressionUUID->"be4e622c-9bb7-4110-a469-a61d282192c3"], +Cell[170222, 4538, 239, 5, 58, "Output",ExpressionUUID->"70e543e8-3510-4219-82bc-9f7099a88b6b"] }, 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[170498, 4548, 112, 2, 51, "Input",ExpressionUUID->"fba58724-aae6-4177-8f5d-352d9088fe66"], +Cell[170613, 4552, 219, 4, 58, "Output",ExpressionUUID->"9cb081e3-1c16-4828-9ec1-b84b1faad2c0"] }, 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[170869, 4561, 111, 2, 51, "Input",ExpressionUUID->"be25ab07-b327-4400-93a2-96e5c6b3ccff"], +Cell[170983, 4565, 221, 4, 58, "Output",ExpressionUUID->"94eaa887-c3a7-4bf0-b3d9-2b1dbc19b63e"] }, 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[171241, 4574, 111, 2, 51, "Input",ExpressionUUID->"0a948ed0-8af1-49b9-aa61-48aab6f17baf"], +Cell[171355, 4578, 222, 4, 58, "Output",ExpressionUUID->"ddec6491-f389-4cd0-94d5-37daf9bd99a2"] }, 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[171614, 4587, 501, 17, 97, "Input",ExpressionUUID->"775d3f9f-6bfb-47fa-86fe-930eb61f9408"], +Cell[172118, 4606, 242, 5, 58, "Output",ExpressionUUID->"3128cdab-ddb9-4e92-b3c7-1bd17df91fd2"] }, 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[172397, 4616, 501, 17, 97, "Input",ExpressionUUID->"7f8a5858-9014-486a-bcb3-74b8f2d71e17"], +Cell[172901, 4635, 234, 5, 58, "Output",ExpressionUUID->"dc739dac-f20f-41b8-98e0-8784389e180a"] }, 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[173172, 4645, 1792, 61, 324, "Input",ExpressionUUID->"e07f6b2f-3131-4527-a18d-26e3f7bd7ec3"], +Cell[174967, 4708, 224, 4, 58, "Output",ExpressionUUID->"2df9cc3c-76e3-4ad6-878f-e5f50f4183b8"] }, 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[175228, 4717, 1105, 37, 231, "Input",ExpressionUUID->"06dd3ca2-9fda-4a46-bad5-5159bc6ff19c"], +Cell[176336, 4756, 239, 5, 58, "Output",ExpressionUUID->"4929fdb6-453c-420f-b70b-483e8e5b542c"] }, 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[176612, 4766, 1822, 62, 283, "Input",ExpressionUUID->"daa564ad-c60b-4423-9c6f-031d136161bf"], +Cell[178437, 4830, 221, 4, 58, "Output",ExpressionUUID->"85ee5f42-2eff-4387-a0bc-3c352b854517"] }, 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[178695, 4839, 1635, 54, 141, "Input",ExpressionUUID->"6a187063-737f-41da-b5db-d39f18dfcc54"], +Cell[180333, 4895, 223, 4, 58, "Output",ExpressionUUID->"602b227b-47dd-40cb-9fa3-78ca36ea8aca"] }, 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[180593, 4904, 1635, 54, 208, "Input",ExpressionUUID->"43142659-682d-4196-aac6-db3d706f19fa"], +Cell[182231, 4960, 221, 4, 41, "Output",ExpressionUUID->"efcd55d7-a7e3-4de2-8879-5f8c904baddb"] +}, Open ]], +Cell[182467, 4967, 187, 4, 36, "Input",ExpressionUUID->"ede64bc2-06f7-8743-a0a6-6f058773310c"], +Cell[182657, 4973, 156, 3, 36, "Input",ExpressionUUID->"9eb3c45a-b33b-a74e-8fe0-c82e80965ca9"], +Cell[182816, 4978, 184, 4, 36, "Input",ExpressionUUID->"328429c4-9130-334e-ba7f-7dc8ec78e5b4"], +Cell[183003, 4984, 152, 3, 36, "Input",ExpressionUUID->"b3364ab6-86a4-7a46-ae33-623392314869"], +Cell[CellGroupData[{ +Cell[183180, 4991, 1301, 43, 174, "Input",ExpressionUUID->"789c64dd-6722-a64c-864a-7fd89b074ad2"], +Cell[184484, 5036, 176, 3, 41, "Output",ExpressionUUID->"b2b0fbe6-496d-0b4b-a132-3f215e541d44"] }, 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"] -}, Open ]], -Cell[338016, 8238, 209, 5, 70, "Input",ExpressionUUID->"b530b35f-2a32-0145-82a7-25a7a01bdd8f"], -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[184697, 5044, 908, 31, 73, "Input",ExpressionUUID->"35e76fc7-2f05-694a-b379-67189aa511ad"], +Cell[185608, 5077, 175, 3, 41, "Output",ExpressionUUID->"cead89a0-592d-3b44-ae8b-df81fa845f91"] }, 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[185820, 5085, 887, 30, 73, "Input",ExpressionUUID->"a10e19cd-f567-6b4d-a841-5f01117db38b"], +Cell[186710, 5117, 177, 3, 41, "Output",ExpressionUUID->"cd23137f-b6ad-354d-a690-15ff879bfb9c"] }, 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[186924, 5125, 558, 19, 66, "Input",ExpressionUUID->"289c2a6f-fa01-2645-80ce-1661c17fd90c"], +Cell[187485, 5146, 172, 3, 41, "Output",ExpressionUUID->"85da9012-bc80-5149-8545-ead2f85c5a34"] }, 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[187694, 5154, 651, 22, 66, "Input",ExpressionUUID->"399520f6-f2e9-6f4a-a02c-50158b624262"], +Cell[188348, 5178, 170, 3, 41, "Output",ExpressionUUID->"86664631-6f8b-d148-8f17-b13cb8a9a5fa"] }, 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[188555, 5186, 170, 5, 71, "Input",ExpressionUUID->"7ee61184-68bc-584d-8849-9a0186a8f35d"], +Cell[188728, 5193, 173, 3, 41, "Output",ExpressionUUID->"77c43b01-85eb-fd46-b71d-1d444bf52ef5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188938, 5201, 170, 5, 69, "Input",ExpressionUUID->"0ec92d80-8d9e-2746-9b01-4edb32bf4eac"], +Cell[189111, 5208, 169, 3, 41, "Output",ExpressionUUID->"aacafa1c-cf55-8c4f-8232-23de80eb25b7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189317, 5216, 181, 5, 55, "Input",ExpressionUUID->"8c869977-4b92-8745-b065-cb6318fdcdb7"], +Cell[189501, 5223, 173, 3, 41, "Output",ExpressionUUID->"de93d189-ac68-c842-aeb5-e64b23581b7c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189711, 5231, 181, 5, 55, "Input",ExpressionUUID->"e2c1a337-e3c1-be4c-aa33-ae15497f38bc"], +Cell[189895, 5238, 170, 3, 41, "Output",ExpressionUUID->"73700a90-df80-2f44-9e2f-d43da4980146"] +}, Open ]], +Cell[CellGroupData[{ +Cell[190102, 5246, 6055, 185, 431, "Input",ExpressionUUID->"abbe4489-628a-134f-b142-f0e18f19d6f9"], +Cell[196160, 5433, 174, 3, 41, "Output",ExpressionUUID->"cebf7c0c-e117-6441-a465-087c93e87be5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196371, 5441, 368, 9, 53, "Input",ExpressionUUID->"9e4d84a7-8664-a749-b8b4-3df6645764a5"], +Cell[196742, 5452, 170, 3, 41, "Output",ExpressionUUID->"53acb857-d475-4b46-bdab-d2addcedb13c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196949, 5460, 6122, 187, 431, "Input",ExpressionUUID->"29cc8bdf-8683-214b-bd33-b4d8b4da1114"], +Cell[203074, 5649, 174, 3, 41, "Output",ExpressionUUID->"9962c954-af09-2844-91ec-70eb43451868"] +}, Open ]], +Cell[CellGroupData[{ +Cell[203285, 5657, 368, 9, 53, "Input",ExpressionUUID->"2190c129-8a98-bf45-873d-af8f8d048936"], +Cell[203656, 5668, 170, 3, 41, "Output",ExpressionUUID->"1f5b5c64-ee33-0943-822d-b5e2806576ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[203863, 5676, 2663, 88, 215, "Input",ExpressionUUID->"972f1c0f-a59f-2847-8b2b-bd88c5077325"], +Cell[206529, 5766, 171, 3, 41, "Output",ExpressionUUID->"a3bdb7fa-0a90-d14f-81e9-757139920dcb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[206737, 5774, 2603, 85, 215, "Input",ExpressionUUID->"c06a7373-f345-6147-b882-1c88bef9608a"], +Cell[209343, 5861, 171, 3, 41, "Output",ExpressionUUID->"1b098546-b8b7-b741-b993-7512b0787277"] +}, Open ]], +Cell[CellGroupData[{ +Cell[209551, 5869, 3712, 118, 316, "Input",ExpressionUUID->"82838793-cf71-8049-a4ac-b01daf51205b"], +Cell[213266, 5989, 171, 3, 41, "Output",ExpressionUUID->"d3b57aaa-e0b1-cb4b-b411-ab6c214b3d77"] +}, Open ]], +Cell[213452, 5995, 138, 3, 36, "Input",ExpressionUUID->"0055f95b-c532-e24d-bdc4-544ea2d2fbd9"], +Cell[CellGroupData[{ +Cell[213615, 6002, 2054, 59, 116, "Input",ExpressionUUID->"574b810b-aa4a-d545-b080-c44fbe83a713"], +Cell[215672, 6063, 566, 12, 109, "Message",ExpressionUUID->"56fc0528-7ab2-a142-bc04-9f31af965213"], +Cell[216241, 6077, 569, 12, 109, "Message",ExpressionUUID->"523f0cae-d948-764c-a560-b9272d5e2d53"], +Cell[216813, 6091, 570, 12, 109, "Message",ExpressionUUID->"0a6922e0-d70a-8f48-87c3-f1e8776a3316"], +Cell[217386, 6105, 458, 10, 109, "Message",ExpressionUUID->"777b8d50-cc35-c140-9ef3-025284fd7e68"], +Cell[217847, 6117, 172, 3, 109, "Output",ExpressionUUID->"bbad1871-e996-ef4b-8dc6-3a39d5c410ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[218056, 6125, 2052, 59, 116, "Input",ExpressionUUID->"3d7dd6a2-2692-2b4d-8922-656c90598e75"], +Cell[220111, 6186, 564, 12, 71, "Message",ExpressionUUID->"e613a9b2-edeb-4743-aa3f-3db45e0849dd"], +Cell[220678, 6200, 567, 12, 71, "Message",ExpressionUUID->"d082687e-fa98-c642-8741-e0aeeee8492c"], +Cell[221248, 6214, 570, 12, 71, "Message",ExpressionUUID->"1cb847b5-98cf-0a42-bcd2-893a3a64388b"], +Cell[221821, 6228, 455, 10, 26, "Message",ExpressionUUID->"0d526236-fa4c-334c-9891-0cc458f43fbe"], +Cell[222279, 6240, 169, 3, 41, "Output",ExpressionUUID->"a61472f3-b6b3-5d40-8ec5-35b87df5c824"] +}, Open ]], +Cell[CellGroupData[{ +Cell[222485, 6248, 1936, 53, 86, "Input",ExpressionUUID->"9c540ba7-8bb4-ef46-919c-62296271f174"], +Cell[224424, 6303, 19994, 375, 295, "Output",ExpressionUUID->"84263d17-cde8-2246-a26d-50fe65f34979"] +}, Open ]], +Cell[CellGroupData[{ +Cell[244455, 6683, 2092, 60, 116, "Input",ExpressionUUID->"6e33cb28-ef1e-1547-b52d-2171e7786920"], +Cell[246550, 6745, 501, 11, 48, "Message",ExpressionUUID->"53d31480-3c5e-ef4a-987b-a232cf0b03f3"], +Cell[247054, 6758, 503, 11, 48, "Message",ExpressionUUID->"b7d94271-16f1-6346-b579-21279019eafb"], +Cell[247560, 6771, 506, 11, 48, "Message",ExpressionUUID->"bfaea4b0-a812-1847-9911-9291b70d2c8f"], +Cell[248069, 6784, 456, 10, 26, "Message",ExpressionUUID->"07354318-4dcc-6049-94e1-9227bd3406fc"], +Cell[248528, 6796, 41581, 727, 292, "Output",ExpressionUUID->"4fedf89c-a1d1-0f4a-bf53-44f2e928d059"] +}, Open ]], +Cell[290124, 7526, 2452, 69, 140, "Input",ExpressionUUID->"2d5a8299-5376-9747-8056-2bd9764114a1"], +Cell[292579, 7597, 209, 5, 36, "Input",ExpressionUUID->"d5fa6d0d-0ad8-f845-b7df-0ac982b58a3a"], +Cell[CellGroupData[{ +Cell[292813, 7606, 217, 7, 61, "Input",ExpressionUUID->"650e43f8-1352-de46-8137-52adca93b0cf"], +Cell[293033, 7615, 170, 3, 41, "Output",ExpressionUUID->"ced270d8-1772-ff41-a012-a661d8496312"] +}, Open ]], +Cell[CellGroupData[{ +Cell[293240, 7623, 1814, 53, 116, "Input",ExpressionUUID->"9ad75b45-8f6d-114b-80bd-d2b12a49fd20"], +Cell[295057, 7678, 506, 11, 48, "Message",ExpressionUUID->"82d24bea-da89-924f-8c72-34dd3938ca31"], +Cell[295566, 7691, 512, 11, 48, "Message",ExpressionUUID->"dec01940-92d8-ec46-9a19-7eeb83f307cb"], +Cell[296081, 7704, 509, 11, 48, "Message",ExpressionUUID->"b8576457-d231-bd44-9899-a0c0bb16b9e8"], +Cell[296593, 7717, 456, 10, 26, "Message",ExpressionUUID->"8bc3094a-336c-7a48-a7ed-1449be3156c0"], +Cell[297052, 7729, 22336, 412, 290, "Output",ExpressionUUID->"8cd361e0-0597-af48-9664-8ef179548a96"] +}, Open ]], +Cell[CellGroupData[{ +Cell[319425, 8146, 1616, 48, 86, "Input",ExpressionUUID->"94eefac7-0bb7-7249-8430-0b2ddd6df117"], +Cell[321044, 8196, 584, 12, 71, "Message",ExpressionUUID->"6b02dcd6-679e-e045-823b-19e8112735bb"], +Cell[321631, 8210, 588, 12, 71, "Message",ExpressionUUID->"1777b2e8-4814-3b40-9d26-e365522e2fa7"], +Cell[322222, 8224, 591, 12, 71, "Message",ExpressionUUID->"343e800a-6390-7b48-892a-7785bb4151c8"], +Cell[322816, 8238, 456, 10, 26, "Message",ExpressionUUID->"30a8c837-a97a-f04a-b90a-1e6b32a15ee9"], +Cell[323275, 8250, 173, 3, 41, "Output",ExpressionUUID->"ae05a7c3-f5d6-d640-8f8e-efe8f63ceb63"] +}, Open ]], +Cell[CellGroupData[{ +Cell[323485, 8258, 2274, 65, 81, "Input",ExpressionUUID->"1d118f77-7d68-dd41-b0af-09454f88e7f1"], +Cell[325762, 8325, 566, 12, 71, "Message",ExpressionUUID->"089dc3ff-480d-db4f-bbed-05630517df59"], +Cell[326331, 8339, 569, 12, 71, "Message",ExpressionUUID->"6e93a9b9-9460-8649-881d-48f37a709a1b"], +Cell[326903, 8353, 572, 12, 71, "Message",ExpressionUUID->"1ee8858a-971e-d34f-bafe-57ab88be1238"], +Cell[327478, 8367, 458, 10, 26, "Message",ExpressionUUID->"96f8e027-4313-4f4f-a21d-2291fe960276"], +Cell[327939, 8379, 171, 3, 41, "Output",ExpressionUUID->"53e3f7cd-1b3e-7343-931d-6e137013b0b0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[328147, 8387, 2221, 64, 81, "Input",ExpressionUUID->"c8039063-5f4d-134a-b6ba-e19335f7a9f6"], +Cell[330371, 8453, 564, 12, 71, "Message",ExpressionUUID->"2abeeb06-100d-8a4f-bcb1-ddb8c833ff54"], +Cell[330938, 8467, 567, 12, 71, "Message",ExpressionUUID->"7e411bd4-b3ce-e244-9ce0-8d1f78e8cd14"], +Cell[331508, 8481, 570, 12, 71, "Message",ExpressionUUID->"1eef1d19-4a0f-cd45-ac5f-c8b603cf3443"], +Cell[332081, 8495, 456, 10, 32, "Message",ExpressionUUID->"6022a732-4a2e-1544-a8b7-891b74c71e8b"], +Cell[332540, 8507, 173, 3, 41, "Output",ExpressionUUID->"3c53d31a-b5c8-d04c-a31f-fccb4feaa955"] +}, Open ]], +Cell[CellGroupData[{ +Cell[332750, 8515, 2223, 64, 81, "Input",ExpressionUUID->"a474307a-af78-3040-90ec-fb8d284b16bb"], +Cell[334976, 8581, 566, 12, 71, "Message",ExpressionUUID->"419d88aa-08de-a042-b43b-49810fba72bb"], +Cell[335545, 8595, 569, 12, 71, "Message",ExpressionUUID->"4a9a6268-a319-d748-9834-40ccb49d2b51"], +Cell[336117, 8609, 570, 12, 71, "Message",ExpressionUUID->"575d1045-9e4b-4643-b969-4ea2653f65d7"], +Cell[336690, 8623, 458, 10, 26, "Message",ExpressionUUID->"0c807644-74de-9c49-acac-c7123cbacadc"], +Cell[337151, 8635, 170, 3, 41, "Output",ExpressionUUID->"40f79c92-c788-c843-8a8c-07266b265dee"] +}, Open ]], +Cell[CellGroupData[{ +Cell[337358, 8643, 213, 6, 60, "Input",ExpressionUUID->"ce14ed0e-a62a-1e46-b7cf-f67bfdbd9bc7"], +Cell[337574, 8651, 171, 3, 41, "Output",ExpressionUUID->"5f3fc6c2-7014-7c43-bf96-8a336bebf769"] +}, Open ]], +Cell[337760, 8657, 244, 5, 36, "Input",ExpressionUUID->"d104d373-080a-854b-92ff-e87abbd4c41c"], +Cell[CellGroupData[{ +Cell[338029, 8666, 558, 19, 66, "Input",ExpressionUUID->"b6bc4645-bb9b-da49-b314-4566a6ca9506"], +Cell[338590, 8687, 173, 3, 41, "Output",ExpressionUUID->"c9ac712d-c12f-0747-84df-4fbc596a4bc5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[338800, 8695, 170, 5, 71, "Input",ExpressionUUID->"1f225213-8143-a346-8c4e-e69f41e85c6f"], +Cell[338973, 8702, 171, 3, 41, "Output",ExpressionUUID->"265915a4-bf42-cc4a-850a-ff4e02169aa3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[339181, 8710, 181, 5, 55, "Input",ExpressionUUID->"4b9388d7-dfe0-ca44-90a4-ea60f173579a"], +Cell[339365, 8717, 173, 3, 41, "Output",ExpressionUUID->"31530b6e-e89a-9145-8021-0dc6b1c7eda5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[339575, 8725, 6055, 185, 431, "Input",ExpressionUUID->"b0d5a77d-c2c5-e84d-b4be-bec051c1557c"], +Cell[345633, 8912, 175, 3, 41, "Output",ExpressionUUID->"498f3df6-21c9-ce42-acfb-0b180bf5016e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[345845, 8920, 368, 9, 53, "Input",ExpressionUUID->"e543ccd6-d1e6-3c4d-9364-2a9eec09292b"], +Cell[346216, 8931, 172, 3, 41, "Output",ExpressionUUID->"7c93e621-3415-c743-b6e4-6e9478aa49a4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[346425, 8939, 6122, 187, 431, "Input",ExpressionUUID->"50e98a1c-f33a-9242-9267-bbd8a1753662"], +Cell[352550, 9128, 173, 3, 41, "Output",ExpressionUUID->"ac3c9970-0aac-ba4f-878d-3a3d1e5e2e3e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[352760, 9136, 368, 9, 53, "Input",ExpressionUUID->"339251a5-83bd-8642-8c5c-4fff9ebe10d7"], +Cell[353131, 9147, 170, 3, 41, "Output",ExpressionUUID->"d74ba3c3-6f35-614a-92df-d33bcc5e630d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[353338, 9155, 2663, 88, 215, "Input",ExpressionUUID->"ad1f9bb1-e9e6-5b4f-9f95-8eeef0cc66ae"], +Cell[356004, 9245, 171, 3, 41, "Output",ExpressionUUID->"33da748c-8c98-4649-9b81-8e00dd5f5d44"] +}, Open ]], +Cell[CellGroupData[{ +Cell[356212, 9253, 2603, 85, 215, "Input",ExpressionUUID->"4b0fdfc8-7d81-3a4d-90ed-a9bb76dc96a0"], +Cell[358818, 9340, 171, 3, 41, "Output",ExpressionUUID->"a300919b-1d52-ed46-bc06-5e86812c0bf8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[359026, 9348, 3712, 118, 316, "Input",ExpressionUUID->"31524ab0-bcc9-e948-9393-cfc225600ff2"], +Cell[362741, 9468, 170, 3, 41, "Output",ExpressionUUID->"45caa3aa-b655-b94b-bc88-ae750a9e28b8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[362948, 9476, 2052, 59, 116, "Input",ExpressionUUID->"486d514f-ec65-1e4e-b780-7e9487f745c3"], +Cell[365003, 9537, 573, 12, 71, "Message",ExpressionUUID->"fdac5db3-60d6-7a42-93b8-a74d8fc5d39e"], +Cell[365579, 9551, 577, 12, 71, "Message",ExpressionUUID->"46e50c50-b3b4-9847-b413-3bf52122b53e"], +Cell[366159, 9565, 580, 12, 71, "Message",ExpressionUUID->"5df9105e-cc71-b049-a285-30acff0c246a"], +Cell[366742, 9579, 456, 10, 26, "Message",ExpressionUUID->"84079c6c-500c-0643-b357-e1da142371e6"], +Cell[367201, 9591, 170, 3, 41, "Output",ExpressionUUID->"8303ac5a-d080-3741-a2d8-b7ff63ccb029"] +}, Open ]], +Cell[CellGroupData[{ +Cell[367408, 9599, 2054, 59, 116, "Input",ExpressionUUID->"c7144ce5-8356-d548-8854-18c538c3321c"], +Cell[369465, 9660, 573, 12, 71, "Message",ExpressionUUID->"65ad7cc5-5634-7d43-8ec3-48fd3e044014"], +Cell[370041, 9674, 577, 12, 71, "Message",ExpressionUUID->"c7632c59-b44f-2c47-aaf4-873ba9758677"], +Cell[370621, 9688, 582, 12, 71, "Message",ExpressionUUID->"509e3117-7502-a34e-9f96-72b696066a2b"], +Cell[371206, 9702, 456, 10, 26, "Message",ExpressionUUID->"0e1f3a7a-70f7-bc47-9700-06e687643558"], +Cell[371665, 9714, 170, 3, 41, "Output",ExpressionUUID->"15bebbf4-baae-a44a-84b5-59b3a1f444c3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[371872, 9722, 2028, 55, 63, "Input",ExpressionUUID->"b2db949b-a7b9-8f4b-afbd-a45df2eabf0c"], +Cell[373903, 9779, 20422, 382, 295, "Output",ExpressionUUID->"d9c156b6-0b42-724f-8e7d-964560057978"] +}, Open ]], +Cell[CellGroupData[{ +Cell[394362, 10166, 2120, 60, 116, "Input",ExpressionUUID->"92d458c4-bfde-c447-a06c-70a15768b745"], +Cell[396485, 10228, 502, 11, 48, "Message",ExpressionUUID->"74b51561-a06a-7345-9196-225d76f7f21f"], +Cell[396990, 10241, 506, 11, 48, "Message",ExpressionUUID->"ee03248d-dd91-8b4e-835e-9c4a5f039c61"], +Cell[397499, 10254, 505, 11, 48, "Message",ExpressionUUID->"81d7736e-0167-fe4f-bd5c-40ffaca911e4"], +Cell[398007, 10267, 458, 10, 26, "Message",ExpressionUUID->"43062041-d596-b540-8a1c-36df0575e1f0"], +Cell[398468, 10279, 22288, 412, 290, "Output",ExpressionUUID->"4ce3b436-d895-8b48-899f-c7dec78bd5cd"] +}, Open ]], +Cell[420771, 10694, 209, 5, 36, "Input",ExpressionUUID->"e1c8585a-8b57-f841-82e1-8e8787fb2589"], +Cell[CellGroupData[{ +Cell[421005, 10703, 1616, 48, 86, "Input",ExpressionUUID->"8cd26316-ef9d-184c-93c8-dd96bfd24ea1"], +Cell[422624, 10753, 595, 12, 71, "Message",ExpressionUUID->"bf4d283e-fed2-af41-90e7-a9b6911d8baf"], +Cell[423222, 10767, 595, 12, 71, "Message",ExpressionUUID->"9f6ca4d5-4251-0341-9c65-a603c68721f6"], +Cell[423820, 10781, 599, 12, 71, "Message",ExpressionUUID->"108eeaac-8397-bf4f-90a4-e14dbe759ebf"], +Cell[424422, 10795, 456, 10, 26, "Message",ExpressionUUID->"1a2f2a3c-e511-b846-8a84-9fad6555a680"], +Cell[424881, 10807, 171, 3, 41, "Output",ExpressionUUID->"ca1793f9-9753-5e46-b385-c8dd36228fd1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[425089, 10815, 2248, 64, 81, "Input",ExpressionUUID->"e0ae6f48-c6a6-a24c-812a-30286a178ca1"], +Cell[427340, 10881, 575, 12, 71, "Message",ExpressionUUID->"642a7168-3d33-6b4e-9213-0f67bfd30f54"], +Cell[427918, 10895, 577, 12, 71, "Message",ExpressionUUID->"315984db-f497-2940-bd36-1d820037ad00"], +Cell[428498, 10909, 582, 12, 71, "Message",ExpressionUUID->"2698bbc8-6aa1-c54b-9b5c-3f71a7eb3345"], +Cell[429083, 10923, 458, 10, 26, "Message",ExpressionUUID->"7f632647-49b8-a945-8682-8e4f7ae37cda"], +Cell[429544, 10935, 172, 3, 41, "Output",ExpressionUUID->"0f5bf0f0-4e96-2c4d-9011-c6ae92f19c83"] +}, Open ]], +Cell[CellGroupData[{ +Cell[429753, 10943, 2215, 63, 81, "Input",ExpressionUUID->"bce0eb71-ca49-364f-a3be-8e8c3542c5fb"], +Cell[431971, 11008, 575, 12, 71, "Message",ExpressionUUID->"704bc64b-0e53-8146-9696-c0e9ea00ec4d"], +Cell[432549, 11022, 577, 12, 71, "Message",ExpressionUUID->"68985ea1-064e-2c42-b957-ce16147f9e13"], +Cell[433129, 11036, 582, 12, 71, "Message",ExpressionUUID->"48a38db6-6d68-6140-9cb6-9dfc686aa062"], +Cell[433714, 11050, 458, 10, 32, "Message",ExpressionUUID->"ac6e6758-d573-7947-b88c-92831bb5be70"], +Cell[434175, 11062, 170, 3, 41, "Output",ExpressionUUID->"4d1b179c-7677-2745-8308-576346b6bf0b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[434382, 11070, 2223, 64, 81, "Input",ExpressionUUID->"935796a8-6280-564a-b4d0-fc6fb6cd41f8"], +Cell[436608, 11136, 573, 12, 71, "Message",ExpressionUUID->"0a9cfe95-3a6f-384b-8656-bdf67695e5d7"], +Cell[437184, 11150, 577, 12, 71, "Message",ExpressionUUID->"700ebedb-417e-8043-ab89-eb4672a7847d"], +Cell[437764, 11164, 580, 12, 71, "Message",ExpressionUUID->"599826a9-6d60-6843-9eef-e381cafa0758"], +Cell[438347, 11178, 456, 10, 32, "Message",ExpressionUUID->"d92d3772-b819-d145-8d96-f897b04ae4a7"], +Cell[438806, 11190, 173, 3, 41, "Output",ExpressionUUID->"98a57fa3-05ea-0d42-95b5-58c14727d753"] +}, Open ]], +Cell[CellGroupData[{ +Cell[439016, 11198, 213, 6, 60, "Input",ExpressionUUID->"ee52036b-90c5-e14a-aed9-684ff23ed035"], +Cell[439232, 11206, 173, 3, 41, "Output",ExpressionUUID->"ea5023c6-5364-074e-904d-43b5c1077635"] +}, Open ]], +Cell[439420, 11212, 247, 5, 36, "Input",ExpressionUUID->"c6d4a146-4cca-7e4e-b483-85227a6e6b51"], +Cell[CellGroupData[{ +Cell[439692, 11221, 558, 19, 66, "Input",ExpressionUUID->"28979542-d43a-e54a-88e0-087a68060d62"], +Cell[440253, 11242, 173, 3, 41, "Output",ExpressionUUID->"b967ea88-4a73-d84a-86f5-ad4ded7dfd59"] +}, Open ]], +Cell[CellGroupData[{ +Cell[440463, 11250, 170, 5, 71, "Input",ExpressionUUID->"c3303a76-2bd9-454b-b35d-6119cde0197e"], +Cell[440636, 11257, 173, 3, 41, "Output",ExpressionUUID->"fd8ea80a-f1d4-be4f-9cfa-b37871c5703d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[440846, 11265, 181, 5, 55, "Input",ExpressionUUID->"b83c9900-e14a-064d-b097-089d758a0eb6"], +Cell[441030, 11272, 173, 3, 41, "Output",ExpressionUUID->"7d039035-dcf9-ec46-abdb-20c0c777b3ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[441240, 11280, 6055, 185, 431, "Input",ExpressionUUID->"17437a0c-d9be-a242-b57f-efef95056982"], +Cell[447298, 11467, 172, 3, 41, "Output",ExpressionUUID->"ec08a5f9-ba46-9147-9d7b-cc1decdb981f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[447507, 11475, 368, 9, 53, "Input",ExpressionUUID->"b3706ed1-2e71-9941-86c4-d789cf8ea193"], +Cell[447878, 11486, 172, 3, 41, "Output",ExpressionUUID->"71ad1ede-d77d-ee46-a908-e7b20c10ebe8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[448087, 11494, 6122, 187, 431, "Input",ExpressionUUID->"2dad5775-7b90-2241-a408-e59b2ea47cb0"], +Cell[454212, 11683, 173, 3, 41, "Output",ExpressionUUID->"819de60b-5785-6448-8fe2-0db5976d700d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[454422, 11691, 368, 9, 53, "Input",ExpressionUUID->"ea913ab0-daa5-1f4d-93f4-2e6143537b5d"], +Cell[454793, 11702, 170, 3, 41, "Output",ExpressionUUID->"8dd6a8d3-1dbb-0d4a-9edc-e78196c49a86"] +}, Open ]], +Cell[CellGroupData[{ +Cell[455000, 11710, 2663, 88, 215, "Input",ExpressionUUID->"53a0bfe7-010b-d445-822a-52c57127f779"], +Cell[457666, 11800, 171, 3, 41, "Output",ExpressionUUID->"ae861452-cf77-f740-9f62-141306c9a07a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[457874, 11808, 2603, 85, 215, "Input",ExpressionUUID->"4e482268-3ff3-d74a-9ba6-ed262245ad4b"], +Cell[460480, 11895, 173, 3, 41, "Output",ExpressionUUID->"253d4a43-9313-5444-b0f9-3aae32edd842"] +}, Open ]], +Cell[CellGroupData[{ +Cell[460690, 11903, 3712, 118, 316, "Input",ExpressionUUID->"df39eab0-0939-764b-8de6-27d0ba2be7e8"], +Cell[464405, 12023, 173, 3, 41, "Output",ExpressionUUID->"0c1e1373-3726-9c43-862b-62a8708f83a9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[464615, 12031, 2052, 59, 116, "Input",ExpressionUUID->"6b25ec99-ae49-ec4d-9652-65328572e509"], +Cell[466670, 12092, 568, 12, 71, "Message",ExpressionUUID->"d55599c5-2bb2-8f4a-a245-aa6d5998cb8f"], +Cell[467241, 12106, 573, 12, 71, "Message",ExpressionUUID->"bdcd3bac-beba-5242-b376-95b5ed40a02a"], +Cell[467817, 12120, 576, 12, 71, "Message",ExpressionUUID->"b91a3ff7-a025-fd4e-b11c-58fa6385068b"], +Cell[468396, 12134, 458, 10, 26, "Message",ExpressionUUID->"9e66d374-59c2-ce4b-b0d2-5a3813a10542"], +Cell[468857, 12146, 172, 3, 41, "Output",ExpressionUUID->"5742ee33-8e4b-444c-91b6-6d4c403c91e9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[469066, 12154, 2052, 59, 116, "Input",ExpressionUUID->"3e2baf62-fab9-eb41-8de7-aa229443ac14"], +Cell[471121, 12215, 568, 12, 71, "Message",ExpressionUUID->"49d9e2db-79aa-5b48-897e-3089c92c79b4"], +Cell[471692, 12229, 573, 12, 71, "Message",ExpressionUUID->"2361061c-25a8-4549-ba9e-397593d876d4"], +Cell[472268, 12243, 574, 12, 71, "Message",ExpressionUUID->"a2993171-fcd7-8742-bf17-921d87bded0b"], +Cell[472845, 12257, 458, 10, 26, "Message",ExpressionUUID->"c72ccd11-884d-074a-bf1c-ed71d6dc6298"], +Cell[473306, 12269, 172, 3, 41, "Output",ExpressionUUID->"9dfb51ec-f6bd-9540-91f7-9d4800c6c680"] +}, Open ]], +Cell[CellGroupData[{ +Cell[473515, 12277, 2028, 55, 63, "Input",ExpressionUUID->"725c3011-bda9-4c42-96ce-9a77a5dc787c"], +Cell[475546, 12334, 20375, 384, 295, "Output",ExpressionUUID->"e400bdb6-95ee-464e-9e4c-d5d7da48485f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[495958, 12723, 2118, 60, 116, "Input",ExpressionUUID->"1ea503b1-33a1-2744-a92d-2e1269faf5ed"], +Cell[498079, 12785, 501, 11, 48, "Message",ExpressionUUID->"1c59fae3-3f74-0144-b936-915cf372347d"], +Cell[498583, 12798, 503, 11, 48, "Message",ExpressionUUID->"c058b3d2-ecc0-7348-bdec-143a71e7f77c"], +Cell[499089, 12811, 506, 11, 48, "Message",ExpressionUUID->"049ee41e-a5fd-7e46-9ca5-37402fcadc74"], +Cell[499598, 12824, 458, 10, 26, "Message",ExpressionUUID->"5bf93938-89e6-8d49-a495-6173a8c36739"], +Cell[500059, 12836, 22161, 409, 290, "Output",ExpressionUUID->"0ea0f8f9-2a4b-804f-a2c8-287645f62313"] +}, Open ]], +Cell[522235, 13248, 209, 5, 36, "Input",ExpressionUUID->"b530b35f-2a32-0145-82a7-25a7a01bdd8f"], +Cell[CellGroupData[{ +Cell[522469, 13257, 1616, 48, 86, "Input",ExpressionUUID->"a0d63734-417a-b84f-b5c7-88ca33cb9355"], +Cell[524088, 13307, 590, 12, 71, "Message",ExpressionUUID->"cb4665e4-f252-8e4c-9d71-b694fbe7aa53"], +Cell[524681, 13321, 589, 12, 71, "Message",ExpressionUUID->"e67b353a-d4a9-454a-9cac-3e22ef8a4d4b"], +Cell[525273, 13335, 593, 12, 71, "Message",ExpressionUUID->"9dbc6a20-c95c-084e-b19f-b6bb6bd70d6b"], +Cell[525869, 13349, 456, 10, 32, "Message",ExpressionUUID->"f9b6cbc5-ab52-2741-b8bf-bf6796495def"], +Cell[526328, 13361, 170, 3, 41, "Output",ExpressionUUID->"1439e238-af89-2243-beb8-0a46e5e09115"] +}, Open ]], +Cell[CellGroupData[{ +Cell[526535, 13369, 2251, 64, 81, "Input",ExpressionUUID->"97b28b29-5d04-5c42-a0e8-93b70f20e7f6"], +Cell[528789, 13435, 568, 12, 71, "Message",ExpressionUUID->"033374a1-a008-6240-84e3-c1c7a7e65b75"], +Cell[529360, 13449, 573, 12, 71, "Message",ExpressionUUID->"88ab6d85-4789-7346-aeee-8e9a4b87248d"], +Cell[529936, 13463, 574, 12, 71, "Message",ExpressionUUID->"051100a9-488b-4d4d-83c7-cdc54aef13e0"], +Cell[530513, 13477, 458, 10, 32, "Message",ExpressionUUID->"a33cd954-f1de-bf45-8642-effd7c3e029f"], +Cell[530974, 13489, 173, 3, 41, "Output",ExpressionUUID->"48a4017b-948a-6a48-8b10-d81adf4b9038"] +}, Open ]], +Cell[CellGroupData[{ +Cell[531184, 13497, 2221, 64, 81, "Input",ExpressionUUID->"f9d1ad25-05cb-d544-8ab6-cdce838d9efe"], +Cell[533408, 13563, 570, 12, 71, "Message",ExpressionUUID->"d8156b3f-4442-9146-9c48-cb34fdfb79d3"], +Cell[533981, 13577, 573, 12, 71, "Message",ExpressionUUID->"60007a19-2492-cd46-a203-7c2bbbc6591f"], +Cell[534557, 13591, 573, 12, 71, "Message",ExpressionUUID->"8754c4a5-0539-0247-94a5-8a81a9ae7e49"], +Cell[535133, 13605, 458, 10, 32, "Message",ExpressionUUID->"3af4c7f8-fe90-6646-8e3b-058500b348e9"], +Cell[535594, 13617, 171, 3, 41, "Output",ExpressionUUID->"46f7d520-9bcf-9d48-ae7c-54e91ca06983"] +}, Open ]], +Cell[CellGroupData[{ +Cell[535802, 13625, 2221, 64, 81, "Input",ExpressionUUID->"0794d062-69d5-0a45-936e-533b19d33de6"], +Cell[538026, 13691, 570, 12, 71, "Message",ExpressionUUID->"ba4db233-5a2e-4340-98d0-df918a11e2c7"], +Cell[538599, 13705, 573, 12, 71, "Message",ExpressionUUID->"444b24ca-68bb-7144-a655-403eefa4900f"], +Cell[539175, 13719, 574, 12, 71, "Message",ExpressionUUID->"f2dc2286-68d4-d74f-83ea-dd0f591156a8"], +Cell[539752, 13733, 458, 10, 32, "Message",ExpressionUUID->"4974a702-c238-6d47-b5b2-a3c25cacf142"], +Cell[540213, 13745, 173, 3, 41, "Output",ExpressionUUID->"d46043b7-707b-4740-ab89-0a2b96978cff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[540423, 13753, 215, 6, 60, "Input",ExpressionUUID->"95c56266-e4d3-624e-89c1-cedeeeb0247a"], +Cell[540641, 13761, 172, 3, 41, "Output",ExpressionUUID->"188c2681-ea17-924e-adb2-007b19a9ee86"] +}, Open ]], +Cell[540828, 13767, 204, 3, 36, "Input",ExpressionUUID->"6e095bee-c7b8-4216-a319-367a047c5d8f"] } ] *) -(* End of internal cache information *) - diff --git a/Pu240_798-811_TitovAA/164-76_h_Pu240_18-19/h_164-76_Pu240_18-19_pr_Qw1.nb b/Pu240_798-811_TitovAA/164-76_h_Pu240_18-19/h_164-76_Pu240_18-19_pr_Qw1.nb index 14330be..42e43fc 100644 --- a/Pu240_798-811_TitovAA/164-76_h_Pu240_18-19/h_164-76_Pu240_18-19_pr_Qw1.nb +++ b/Pu240_798-811_TitovAA/164-76_h_Pu240_18-19/h_164-76_Pu240_18-19_pr_Qw1.nb @@ -3,25 +3,4974 @@ (*** 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[ 619160, 15034] +NotebookOptionsPosition[ 579271, 14403] +NotebookOutlinePosition[ 579712, 14421] +CellTagsIndexPosition[ 579669, 14418] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f1", "="}]], "Input", + RowBox[{"d", "=", "1.78"}]], "Input", CellChangeTimes->{ - 3.9918488488187084`*^9},ExpressionUUID->"bdefbecf-0aaa-4a45-a861-\ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.993816332414463*^9, 3.993816395113246*^9}, { + 3.99408327105175*^9, + 3.99408327225659*^9}},ExpressionUUID->"6729bc0b-3d1e-457d-902b-\ +3834224c9714"], + +Cell[BoxData["1.78`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, {3.9938163104908867`*^9, 3.993816400323968*^9}}, + CellLabel-> + "Out[407]=",ExpressionUUID->"555b3389-4215-48ff-9b83-c5a7b184c778"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.993816070416484*^9, 3.9938160711424847`*^9}}, + CellLabel-> + "In[408]:=",ExpressionUUID->"7f2bb48f-c61b-4afd-9901-07fdf8310763"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, {3.993816310783677*^9, 3.9938164003801527`*^9}}, + CellLabel-> + "Out[408]=",ExpressionUUID->"3b77bb68-09cb-454d-b43b-73dbe0de1da4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "164"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.993816075114204*^9, 3.993816075786501*^9}}, + CellLabel-> + "In[409]:=",ExpressionUUID->"b875eda1-b81a-425a-b020-f2f39b12026d"], + +Cell[BoxData["164"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, {3.99381631080079*^9, 3.9938164003966837`*^9}}, + CellLabel-> + "Out[409]=",ExpressionUUID->"007eee93-79e1-4acc-810c-16f67003377a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel-> + "In[410]:=",ExpressionUUID->"93a95366-b227-4778-a98f-1ff9969a1f84"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, {3.9938163108190804`*^9, 3.99381640041328*^9}}, + CellLabel-> + "Out[410]=",ExpressionUUID->"7e17dece-7200-4bc5-8798-dd1f3c022b2e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel-> + "In[411]:=",ExpressionUUID->"ad97586d-2f22-4a20-885b-ae878d452e35"], + +Cell[BoxData["0.5445000000000001`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, {3.99381631083608*^9, 3.9938164004361677`*^9}}, + CellLabel-> + "Out[411]=",ExpressionUUID->"486fc696-7588-47c3-bca3-9e686b7088ae"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel-> + "In[412]:=",ExpressionUUID->"867aaf97-b763-4f0b-a88a-dde88ae88568"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, {3.99381631085299*^9, 3.99381640045368*^9}}, + CellLabel-> + "Out[412]=",ExpressionUUID->"f1469832-9a11-4bec-a7be-05ef02cb52d8"] +}, 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[413]:=",ExpressionUUID->"023069af-2b2a-4349-b1a0-0343f9f6f0f8"], + +Cell[BoxData["6.349496262766175`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, {3.993816310870123*^9, 3.993816400471637*^9}}, + CellLabel-> + "Out[413]=",ExpressionUUID->"b7485a92-14bb-4b6e-ac17-31807f47726f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel-> + "In[414]:=",ExpressionUUID->"71ec9d78-eb5d-4ed1-b74e-f3b64fdc7fe7"], + +Cell[BoxData["4.913555357735675`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, {3.993816310887587*^9, 3.993816400489262*^9}}, + CellLabel-> + "Out[414]=",ExpressionUUID->"48c705f6-9126-4f0d-92c5-1643bd2a2ff4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.96357"}]], "Input", + CellChangeTimes->{ + 3.991799283179735*^9, {3.993816155315236*^9, 3.99381616557413*^9}}, + CellLabel-> + "In[415]:=",ExpressionUUID->"df98510c-7da8-414b-93a3-e5cf699eb261"], + +Cell[BoxData["0.96357`"], "Output", + CellChangeTimes->{{3.9938163109056883`*^9, 3.993816400504654*^9}}, + CellLabel-> + "Out[415]=",ExpressionUUID->"60040f68-2831-4570-ab6f-01736ff077f8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.39003"}]], "Input", + CellChangeTimes->{ + 3.991799280663351*^9, {3.993816167313641*^9, 3.9938161733246517`*^9}}, + CellLabel-> + "In[416]:=",ExpressionUUID->"37ef831b-0fd7-40fd-bfac-9e3a91e46f3a"], + +Cell[BoxData["0.39003`"], "Output", + CellChangeTimes->{{3.993816310923224*^9, 3.993816400519388*^9}}, + CellLabel-> + "Out[416]=",ExpressionUUID->"f6674c4a-a879-4a8e-be16-b377a146c2b7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel-> + "In[417]:=",ExpressionUUID->"d6f0c889-b9bd-4b6a-bd1e-a2b149e2a1fe"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, {3.993816310942574*^9, 3.993816400534342*^9}}, + CellLabel-> + "Out[417]=",ExpressionUUID->"32d0f285-85ed-456d-bff3-4a9517c58dc0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel-> + "In[418]:=",ExpressionUUID->"da4040a6-97b2-4ca9-9204-742e53113402"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, {3.993816310960237*^9, 3.993816400549685*^9}}, + CellLabel-> + "Out[418]=",ExpressionUUID->"6ca71a68-07aa-4e87-ae82-9a1384ff5ff9"] +}, 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[419]:=",ExpressionUUID->"bb7b8a04-51ec-4867-95cf-0e9b97158012"], + +Cell[BoxData["2.4652625900301657`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, {3.993816310977528*^9, 3.993816400564805*^9}}, + CellLabel-> + "Out[419]=",ExpressionUUID->"5c0a39ff-1ead-4c28-83e3-bcfaff16de3f"] +}, 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[420]:=",ExpressionUUID->"ba39c175-67af-4d2d-9d23-5dcce620545e"], + +Cell[BoxData["1.4266899039519758`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, {3.993816310993836*^9, 3.993816400579666*^9}}, + CellLabel-> + "Out[420]=",ExpressionUUID->"323db7b0-f58b-4357-98fb-57e56e73e975"] +}, 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[421]:=",ExpressionUUID->"0193cf24-dc2d-49fa-a6e9-64af673f5a04"], + +Cell[BoxData["0.3750149455401738`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, {3.993816311010377*^9, 3.993816400594367*^9}}, + CellLabel-> + "Out[421]=",ExpressionUUID->"dd0eeec7-4a06-4ddc-b8c3-403494974bf4"] +}, 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[422]:=",ExpressionUUID->"bcaaaf43-0f8f-4ff3-bdf9-3e724b41c4e5"], + +Cell[BoxData[ + RowBox[{"-", "0.07977775132414705`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, {3.993816311027995*^9, 3.9938164006102667`*^9}}, + CellLabel-> + "Out[422]=",ExpressionUUID->"bc94fde7-e089-4281-841a-4d5a02de82db"] +}, 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[423]:=",ExpressionUUID->"78942345-423b-441d-ad9e-23dec8f818ec"], + +Cell[BoxData[ + RowBox[{"-", "0.6284430544064189`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, {3.993816311033072*^9, 3.993816400624234*^9}}, + CellLabel-> + "Out[423]=",ExpressionUUID->"093b25e5-0683-4098-98cb-09ab09298c89"] +}, 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[424]:=",ExpressionUUID->"b9772705-caeb-4dc4-b22a-0238760c2ec1"], + +Cell[BoxData["0.7294972450656219`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, {3.993816311062511*^9, 3.993816400639195*^9}}, + CellLabel-> + "Out[424]=",ExpressionUUID->"b4043292-5f2e-483e-b9d1-662f4ac48ba4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel-> + "In[425]:=",ExpressionUUID->"76e4f65e-0950-4fef-b78c-b2eebccf0142"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, {3.9938163110790157`*^9, 3.993816400654043*^9}}, + CellLabel-> + "Out[425]=",ExpressionUUID->"6e3c3011-d6f0-453a-b346-d59c29f8432c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel-> + "In[426]:=",ExpressionUUID->"8f02871c-6d6b-49b7-a594-386a71b3d95e"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, {3.99381631109599*^9, 3.993816400670066*^9}}, + CellLabel-> + "Out[426]=",ExpressionUUID->"3a2ebea3-9272-4525-9c05-3f429c70abf5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel-> + "In[427]:=",ExpressionUUID->"64b93da5-84aa-4c46-b94a-aa071f526db5"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, {3.99381631111339*^9, 3.99381640068589*^9}}, + CellLabel-> + "Out[427]=",ExpressionUUID->"2dce4056-bfea-4165-a491-f834eef06c51"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel-> + "In[428]:=",ExpressionUUID->"2952bef4-44ae-4ac2-9561-32238bbfae2e"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, {3.993816311129064*^9, 3.993816400702038*^9}}, + CellLabel-> + "Out[428]=",ExpressionUUID->"b7a3eb9f-0743-4523-b7b2-6874dce5edec"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel-> + "In[429]:=",ExpressionUUID->"f1bf8565-c9e7-4c70-bd0b-57cbb7be2a18"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, {3.993816311145554*^9, 3.9938164007190237`*^9}}, + CellLabel-> + "Out[429]=",ExpressionUUID->"ec0f0356-0977-4061-b7c3-fe86427b0368"] +}, 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.9938161841110783`*^9, 3.9938161842569923`*^9}}, + CellLabel-> + "In[430]:=",ExpressionUUID->"4639a465-cc6b-49dc-b98b-ffb26812b1e2"], + +Cell[BoxData["66"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, {3.993816311161642*^9, 3.993816400736003*^9}}, + CellLabel-> + "Out[430]=",ExpressionUUID->"59ecac49-b68e-4c86-9b0a-c56b7ffdaa6d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, {3.9938161866045017`*^9, 3.99381618669993*^9}}, + CellLabel-> + "In[431]:=",ExpressionUUID->"acd9d697-a16f-4e4f-9ca5-9679d12c1eee"], + +Cell[BoxData["28"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, {3.993816311177599*^9, 3.993816400757028*^9}}, + CellLabel-> + "Out[431]=",ExpressionUUID->"f8c0539f-844d-482b-925a-a90f5225d623"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel-> + "In[432]:=",ExpressionUUID->"bf3c6aef-c5d9-4234-93db-d64a14b82b50"], + +Cell[BoxData["76"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, {3.993816311193193*^9, 3.993816400775269*^9}}, + CellLabel-> + "Out[432]=",ExpressionUUID->"29bd1a74-39d0-4387-a76b-779c89e8ca86"] +}, 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[433]:=",ExpressionUUID->"925bb11a-70d6-41eb-9dd6-63461f872eae"], + +Cell[BoxData["0.11156611039794609`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, {3.993816311209059*^9, 3.993816400793248*^9}}, + CellLabel-> + "Out[433]=",ExpressionUUID->"daa3b6f5-4af7-41fb-88c6-d45cdfbd5564"] +}, 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[434]:=",ExpressionUUID->"8ddf5b97-ef62-45eb-890c-bb640fb1ea66"], + +Cell[BoxData[ + RowBox[{"-", "2.562272143774069`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, {3.993816311224965*^9, 3.993816400810424*^9}}, + CellLabel-> + "Out[434]=",ExpressionUUID->"637f4f9c-be8e-4097-92fa-499f2383d038"] +}, 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[435]:=",ExpressionUUID->"2bf6ec39-1c63-4d14-b925-54d0f7879d85"], + +Cell[BoxData["17.58253870834664`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, {3.993816311240906*^9, 3.9938164008326178`*^9}}, + CellLabel-> + "Out[435]=",ExpressionUUID->"95ec9c07-f901-4300-8f98-99f2936df868"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel-> + "In[436]:=",ExpressionUUID->"24b41f2d-338f-406b-a054-09ca02f95ec7"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, {3.993816311257287*^9, 3.993816400852189*^9}}, + CellLabel-> + "Out[436]=",ExpressionUUID->"c6e9f450-b6dc-407d-941a-a953b7788f96"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "2"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, + 3.993816201054872*^9}, + CellLabel-> + "In[437]:=",ExpressionUUID->"e24e2a14-a1a6-4205-9d0c-0f6f930d45c3"], + +Cell[BoxData["2"], "Output", + CellChangeTimes->{{3.99381631127295*^9, 3.993816400871359*^9}}, + CellLabel-> + "Out[437]=",ExpressionUUID->"f57ed9d2-69d9-40c3-b653-2a85025e51b4"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel-> + "In[438]:=",ExpressionUUID->"095d9aa8-9e83-4f70-b377-e6d60478722f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.805"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.993816204826747*^9, 3.993816206119349*^9}}, + CellLabel-> + "In[439]:=",ExpressionUUID->"d01732ef-0da2-45d8-ae0e-ba62c550a992"], + +Cell[BoxData["0.805`"], "Output", + CellChangeTimes->{{3.9938163113036537`*^9, 3.993816400895072*^9}}, + CellLabel-> + "Out[439]=",ExpressionUUID->"632af769-a33a-4d75-8dd5-02e920ea0a6f"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel-> + "In[440]:=",ExpressionUUID->"8384acc4-36ce-4966-a133-7fe73f171bc1"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "2.65"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.993816211321389*^9, 3.9938162195378838`*^9}}, + CellLabel-> + "In[441]:=",ExpressionUUID->"43f1578e-80bf-42ed-93fb-da7d1ee54692"], + +Cell[BoxData["2.65`"], "Output", + CellChangeTimes->{{3.9938163113365593`*^9, 3.993816400917997*^9}}, + CellLabel-> + "Out[441]=",ExpressionUUID->"ce94c04c-d1c7-4a60-905b-b807678ad2ab"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel-> + "In[442]:=",ExpressionUUID->"12516dbf-c4b3-4f9d-bf31-edfeb232e895"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.175"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, {3.9938162225291348`*^9, 3.993816223644052*^9}}, + CellLabel-> + "In[443]:=",ExpressionUUID->"fe003b3e-bdaa-49f0-baf5-119dc32f6daf"], + +Cell[BoxData["1.175`"], "Output", + CellChangeTimes->{{3.993816311366596*^9, 3.993816400940548*^9}}, + CellLabel-> + "Out[443]=",ExpressionUUID->"67160be2-52ba-48d9-bb19-a92448682175"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel-> + "In[444]:=",ExpressionUUID->"c3259f05-eb8e-4661-8ff3-2df24e992ca2"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "0.795"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, {3.9938162281192904`*^9, + 3.993816230831416*^9}}, + CellLabel-> + "In[445]:=",ExpressionUUID->"b1e05a6b-4c68-460c-8303-0e80cfaad631"], + +Cell[BoxData["0.795`"], "Output", + CellChangeTimes->{{3.993816311396524*^9, 3.993816400963438*^9}}, + CellLabel-> + "Out[445]=",ExpressionUUID->"e66a950a-9302-43d4-a9d2-86552b750c31"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel-> + "In[446]:=",ExpressionUUID->"5aa778ad-184b-42e5-a5a2-7a6238e2b606"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.595"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.993816234625985*^9, + 3.993816236062304*^9}}, + CellLabel-> + "In[447]:=",ExpressionUUID->"5c7c6bd3-7563-4e6c-9dae-fecf5d93ace4"], + +Cell[BoxData["0.595`"], "Output", + CellChangeTimes->{{3.993816311427802*^9, 3.9938164009852858`*^9}}, + CellLabel-> + "Out[447]=",ExpressionUUID->"a291e3d1-1324-4389-a9bf-67f7a7701831"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel-> + "In[448]:=",ExpressionUUID->"aa8876b2-ee35-41bb-bb44-ea43418ebc80"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "1.47"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.993816238161579*^9, + 3.9938162401131277`*^9}}, + CellLabel-> + "In[449]:=",ExpressionUUID->"866fa8c5-de20-423a-b6ca-9e812ebfee01"], + +Cell[BoxData["1.47`"], "Output", + CellChangeTimes->{{3.993816311458173*^9, 3.9938164010070257`*^9}}, + CellLabel-> + "Out[449]=",ExpressionUUID->"51b5ea04-75e1-4799-922a-634a733edfbd"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel-> + "In[450]:=",ExpressionUUID->"19b636c4-a929-4ff8-8dc5-5b6915d8a010"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "0.655"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, {3.993816241842022*^9, 3.993816245056822*^9}}, + CellLabel-> + "In[451]:=",ExpressionUUID->"82e9f5e2-0fa1-4200-a78b-dadbfeafb5c9"], + +Cell[BoxData["0.655`"], "Output", + CellChangeTimes->{{3.993816311488914*^9, 3.993816401028906*^9}}, + CellLabel-> + "Out[451]=",ExpressionUUID->"a3be0860-132c-4240-8675-cfd52c588c42"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel-> + "In[452]:=",ExpressionUUID->"0f76d782-c07a-4570-a174-1f80c2c0601a"], + +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[453]:=",ExpressionUUID->"0f7a024b-3884-4408-a1ac-646c523cb4b0"], + +Cell[BoxData["0.10932371372103143`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, {3.993816311598846*^9, 3.993816401077582*^9}}, + CellLabel-> + "Out[453]=",ExpressionUUID->"0712281e-719e-4bb7-8b0d-fc63756094d4"] +}, 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[454]:=",ExpressionUUID->"7fba8efa-6d16-4927-9dba-193999f2bf97"], + +Cell[BoxData["9.790243175904545`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, {3.9938163116474113`*^9, 3.993816401110285*^9}}, + CellLabel-> + "Out[454]=",ExpressionUUID->"f5ed12e8-5160-4ef9-987b-02a72d14e152"] +}, 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[455]:=",ExpressionUUID->"f51c7370-e984-4436-869e-183513f78470"], + +Cell[BoxData[ + RowBox[{"-", "16.70631937398676`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, {3.993816311688833*^9, 3.99381640114319*^9}}, + CellLabel-> + "Out[455]=",ExpressionUUID->"7ddd73ec-1d4d-451b-a8e5-36f55f74acf7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U41", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", "b2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + 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]", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "nn1", "*", "R1", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "nn1"}], ")"}], "/", "R1"}], ")"}], + "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "n2", "*", "R2", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "n2"}], ")"}], "/", "R2"}], ")"}], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], "/", + RowBox[{"(", + 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]", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "nn1", "*", "R1", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "nn1"}], ")"}], "/", "R1"}], ")"}], + "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "n2", "*", "R2", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "n2"}], ")"}], "/", "R2"}], ")"}], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], "/", + RowBox[{"(", + 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]", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "nn1", "*", "R1", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "nn1"}], ")"}], "/", "R1"}], ")"}], + "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "n2", "*", "R2", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "n2"}], ")"}], "/", "R2"}], ")"}], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], "/", + RowBox[{"(", + 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]", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "n1", "*", "R1", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "n1"}], ")"}], "/", "R1"}], ")"}], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "nn2", "*", "R2", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "nn2"}], ")"}], "/", "R2"}], ")"}], + "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], "/", + RowBox[{"(", + 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]", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "n1", "*", "R1", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "n1"}], ")"}], "/", "R1"}], ")"}], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "nn2", "*", "R2", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "nn2"}], ")"}], "/", "R2"}], ")"}], + "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], "/", + RowBox[{"(", + 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]", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "n1", "*", "R1", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "n1"}], ")"}], "/", "R1"}], ")"}], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "nn2", "*", "R2", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "nn2"}], ")"}], "/", "R2"}], ")"}], + "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], "/", + RowBox[{"(", + 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]", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "n1", "*", "R1", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "n1"}], ")"}], "/", "R1"}], ")"}], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "nn2", "*", "R2", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "nn2"}], ")"}], "/", "R2"}], ")"}], + "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], "/", + RowBox[{"(", + 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]", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "n1", "*", "R1", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "n1"}], ")"}], "/", "R1"}], ")"}], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "n2", "*", "R2", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "n2"}], ")"}], "/", "R2"}], ")"}], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], "/", + RowBox[{"(", + 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[456]:=",ExpressionUUID->"b289736d-1914-4ccd-84a9-b45f7e687841"], + +Cell[BoxData[ + RowBox[{"-", "21.21244105904564`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, {3.99381631175032*^9, 3.993816401178795*^9}}, + CellLabel-> + "Out[456]=",ExpressionUUID->"b9ab16a3-bfa0-4e03-8228-189b3066a79a"] +}, 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[457]:=",ExpressionUUID->"f30a7247-bb54-497f-af7d-7023090c83ff"], + +Cell[BoxData[ + RowBox[{"-", "64.11746269097033`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, {3.993816311810264*^9, 3.993816401216831*^9}}, + CellLabel-> + "Out[457]=",ExpressionUUID->"eb13d8d5-2e86-4ac7-adb9-e467bae745f6"] +}, 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[458]:=",ExpressionUUID->"7a650441-3404-47b3-a182-fc58d69e3f00"], + +Cell[BoxData[ + RowBox[{"-", "162.12919789671096`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, {3.993816311880077*^9, 3.9938164012606087`*^9}}, + CellLabel-> + "Out[458]=",ExpressionUUID->"71226c6c-5244-4a27-ad23-28012197a0f1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel-> + "In[459]:=",ExpressionUUID->"20ed4577-a8a7-41a6-aa65-d6d7dd6a7d37"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, {3.993816311896537*^9, 3.993816401279429*^9}}, + CellLabel-> + "Out[459]=",ExpressionUUID->"97f4a4c3-bf92-48ac-a7f4-992ce3ae8e1c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel-> + "In[460]:=",ExpressionUUID->"33a57048-9084-4f1b-9ad3-97615c81bd05"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, {3.993816311909266*^9, 3.993816401294653*^9}}, + CellLabel-> + "Out[460]=",ExpressionUUID->"1aba9b4f-0894-43be-bcc5-45d8a2b826fd"] +}, 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[461]:=",ExpressionUUID->"6bbdd55e-812b-4991-a934-55d5fe93ca69"], + +Cell[BoxData["137.278680377525`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, {3.993816311921467*^9, 3.993816401310416*^9}}, + CellLabel-> + "Out[461]=",ExpressionUUID->"06b04880-7076-4ee7-bd22-b65955695b22"] +}, 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[462]:=",ExpressionUUID->"e1316acf-ef08-4a35-92f2-f52365d19c7c"], + +Cell[BoxData[ + RowBox[{"-", "124.2735331996648`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, {3.9938163119334393`*^9, 3.993816401325693*^9}}, + CellLabel-> + "Out[462]=",ExpressionUUID->"784effa0-1b56-42dd-a4ec-6a8a421b9229"] +}, 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[463]:=",ExpressionUUID->"f3c8ab6f-cc14-4ef7-8f45-56a4f0fb0280"], + +Cell[BoxData["136.79424869488386`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, {3.993816311945665*^9, 3.993816401340849*^9}}, + CellLabel-> + "Out[463]=",ExpressionUUID->"63f8ef2e-16b7-47de-bdab-2e8cb6546a9f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel-> + "In[464]:=",ExpressionUUID->"c9c39409-cdfc-4a79-9f2b-367593593f49"], + +Cell[BoxData["0.3750149455401738`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, {3.9938163119574957`*^9, 3.993816401363001*^9}}, + CellLabel-> + "Out[464]=",ExpressionUUID->"6cc53293-8771-4d9d-a47c-36780b6af61d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel-> + "In[465]:=",ExpressionUUID->"daea4480-7eec-4ef4-8e45-df932beffd28"], + +Cell[BoxData[ + RowBox[{"-", "0.07977775132414705`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, {3.9938163119693823`*^9, 3.99381640137784*^9}}, + CellLabel-> + "Out[465]=",ExpressionUUID->"37effe82-fb3f-45a1-9a3e-14f2dad446c0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel-> + "In[466]:=",ExpressionUUID->"f1c27a4d-d9b9-4059-906e-f1c9b2f848fe"], + +Cell[BoxData[ + RowBox[{"-", "0.6284430544064189`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, {3.9938163119814787`*^9, 3.993816401392654*^9}}, + CellLabel-> + "Out[466]=",ExpressionUUID->"9b42565b-631e-46fb-8bc4-7d971070b27c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel-> + "In[467]:=",ExpressionUUID->"83ad0518-8081-4e34-b927-1a5b7fe6f5d7"], + +Cell[BoxData["0.7294972450656219`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, {3.993816311994028*^9, 3.99381640140742*^9}}, + CellLabel-> + "Out[467]=",ExpressionUUID->"69bada15-e35a-42ac-9196-5eb1052942a5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel-> + "In[468]:=",ExpressionUUID->"6271f5ad-5a8f-47dc-8780-b7c3a7515bd0"], + +Cell[BoxData["2.4652625900301657`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, {3.993816312006279*^9, 3.99381640142347*^9}}, + CellLabel-> + "Out[468]=",ExpressionUUID->"c602aaab-4be3-4902-a060-e87457a120cf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel-> + "In[469]:=",ExpressionUUID->"40c7ce1b-04f0-43a1-b42f-31988566aadd"], + +Cell[BoxData["1.4266899039519758`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, {3.993816312018448*^9, 3.993816401439527*^9}}, + CellLabel-> + "Out[469]=",ExpressionUUID->"513b5328-fe7c-44ed-9553-0e55e18a7c92"] +}, 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[470]:=",ExpressionUUID->"494c4e91-f213-467c-bbcc-282999b91200"], + +Cell[BoxData[ + RowBox[{"-", "36.59398535367672`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, {3.9938163120312033`*^9, 3.9938164014556637`*^9}}, + CellLabel-> + "Out[470]=",ExpressionUUID->"757ca7f8-226c-49dd-b895-043d7ac85953"] +}, 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[471]:=",ExpressionUUID->"02cd3f31-6603-4a07-9fcf-3b604c6e020e"], + +Cell[BoxData[ + RowBox[{"-", "6.706084141019179`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, {3.99381631203615*^9, 3.99381640147013*^9}}, + CellLabel-> + "Out[471]=",ExpressionUUID->"d598f7a1-e1c5-4b9e-b374-494183d2c6c5"] +}, 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[472]:=",ExpressionUUID->"725331e1-d6ae-47c4-9dcc-467aaa2ba002"], + +Cell[BoxData["100.68469502384829`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, {3.9938163120484467`*^9, 3.993816401484993*^9}}, + CellLabel-> + "Out[472]=",ExpressionUUID->"2be7f0f4-14c3-4e98-a010-ac8b05effc6f"] +}, 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[473]:=",ExpressionUUID->"37614943-a6e5-4d00-8e38-0e6e7984376c"], + +Cell[BoxData[ + RowBox[{"-", "124.2735331996648`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, {3.99381631206076*^9, 3.9938164015001698`*^9}}, + CellLabel-> + "Out[473]=",ExpressionUUID->"eb1dad88-cc33-4ff9-986d-6f6456fd8b67"] +}, 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[474]:=",ExpressionUUID->"f1c1fe52-aa66-4424-a93e-50ee1c6d86b7"], + +Cell[BoxData["130.0881645538647`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, {3.9938163120760603`*^9, 3.993816401514661*^9}}, + CellLabel-> + "Out[474]=",ExpressionUUID->"578e3ba4-bf2e-42f3-bcb8-0861d4c3a898"] +}, 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[475]:=",ExpressionUUID->"6d6fa6d0-861f-4b32-850d-9f8aeb24685d"], + +Cell[BoxData["37.11735851847544`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, {3.993816312091509*^9, 3.9938164015309277`*^9}}, + CellLabel-> + "Out[475]=",ExpressionUUID->"14d25676-5f58-4634-b564-675d96cf5335"] +}, 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[476]:=",ExpressionUUID->"66ca8919-b006-4278-8597-21733e30d8fb"], + +Cell[BoxData["835.6594550727934`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, {3.9938163121038647`*^9, 3.993816401547245*^9}}, + CellLabel-> + "Out[476]=",ExpressionUUID->"86205bd0-c026-41f3-902a-493edff30589"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"f1", "=", "0.4930475122"}]], "Input", + CellChangeTimes->{3.9918488488187084`*^9, + 3.9940832672331123`*^9},ExpressionUUID->"bdefbecf-0aaa-4a45-a861-\ 406cf54e52d1"], Cell[BoxData[""], "Input", @@ -30,9 +4979,9 @@ Cell[BoxData[""], "Input", 7bcc4af89c62"], Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", - CellChangeTimes->{ - 3.9918488509977226`*^9},ExpressionUUID->"45ed831b-459a-9a41-990f-\ + RowBox[{"f2", "=", "0.2291459505"}]], "Input", + CellChangeTimes->{3.9918488509977226`*^9, + 3.994083279172886*^9},ExpressionUUID->"45ed831b-459a-9a41-990f-\ c079ad464f5d"], Cell[BoxData[""], "Input", @@ -1582,8 +6531,8 @@ f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a "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[{ @@ -2844,9 +7793,72 @@ Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", - RowBox[{"{", "}"}], "]"}]}]], "Input", - CellChangeTimes->{{3.991799458254999*^9, - 3.9917994623413925`*^9}},ExpressionUUID->"0f83f761-b16d-5343-987d-\ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.005107"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.015156"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.024717"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.033493"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.041238"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.047751"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.052907"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.056635"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.058943"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.059883"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.059573"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.058155"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.055811"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.052723"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.049089"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.045084"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.040884"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.03663"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.03245"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.028437"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.024669"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.02119"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.018036"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.015213"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.012726"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.010557"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.008691"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.007099"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.005759"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.004637"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.00371"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.994083326686453*^9},ExpressionUUID->"0f83f761-b16d-5343-987d-\ 511095eaf120"], Cell[BoxData[ @@ -9381,13 +14393,19 @@ Cell[BoxData["0.08155763943441016`"], "Output", CellChangeTimes->{3.9913335366395893`*^9}, CellLabel-> "Out[229]=",ExpressionUUID->"3737ba01-5151-874d-9846-1c8b07e42d7a"] -}, Open ]] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input", + CellChangeTimes->{{3.994083685560459*^9, + 3.9940836908478127`*^9}},ExpressionUUID->"927ca6ed-9dbf-4fe4-877b-\ +39074ae002c3"] }, -WindowSize->{718.5, 729.75}, -WindowMargins->{{0, Automatic}, {Automatic, 0}}, +WindowSize->{714, 876}, +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 +14420,623 @@ 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, 330, 7, 59, "Input",ExpressionUUID->"6729bc0b-3d1e-457d-902b-3834224c9714"], +Cell[909, 31, 208, 4, 67, "Output",ExpressionUUID->"555b3389-4215-48ff-9b83-c5a7b184c778"] }, 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[1154, 40, 253, 5, 59, "Input",ExpressionUUID->"7f2bb48f-c61b-4afd-9901-07fdf8310763"], +Cell[1410, 47, 208, 4, 67, "Output",ExpressionUUID->"3b77bb68-09cb-454d-b43b-73dbe0de1da4"] }, 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[1655, 56, 226, 5, 59, "Input",ExpressionUUID->"b875eda1-b81a-425a-b020-f2f39b12026d"], +Cell[1884, 63, 207, 4, 67, "Output",ExpressionUUID->"007eee93-79e1-4acc-810c-16f67003377a"] }, 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[2128, 72, 180, 4, 59, "Input",ExpressionUUID->"93a95366-b227-4778-a98f-1ff9969a1f84"], +Cell[2311, 78, 207, 4, 67, "Output",ExpressionUUID->"7e17dece-7200-4bc5-8798-dd1f3c022b2e"] }, 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[2555, 87, 262, 8, 85, "Input",ExpressionUUID->"ad97586d-2f22-4a20-885b-ae878d452e35"], +Cell[2820, 97, 223, 4, 67, "Output",ExpressionUUID->"486fc696-7588-47c3-bca3-9e686b7088ae"] }, 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[3080, 106, 136, 3, 59, "Input",ExpressionUUID->"867aaf97-b763-4f0b-a88a-dde88ae88568"], +Cell[3219, 111, 206, 4, 67, "Output",ExpressionUUID->"f1469832-9a11-4bec-a7be-05ef02cb52d8"] }, 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[3462, 120, 281, 7, 59, "Input",ExpressionUUID->"023069af-2b2a-4349-b1a0-0343f9f6f0f8"], +Cell[3746, 129, 221, 4, 58, "Output",ExpressionUUID->"b7485a92-14bb-4b6e-ac17-31807f47726f"] }, 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[4004, 138, 262, 8, 51, "Input",ExpressionUUID->"71ec9d78-eb5d-4ed1-b74e-f3b64fdc7fe7"], +Cell[4269, 148, 221, 4, 58, "Output",ExpressionUUID->"48c705f6-9126-4f0d-92c5-1643bd2a2ff4"] }, 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[4527, 157, 229, 5, 51, "Input",ExpressionUUID->"df98510c-7da8-414b-93a3-e5cf699eb261"], +Cell[4759, 164, 186, 3, 58, "Output",ExpressionUUID->"60040f68-2831-4570-ab6f-01736ff077f8"] }, 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[4982, 172, 232, 5, 51, "Input",ExpressionUUID->"37ef831b-0fd7-40fd-bfac-9e3a91e46f3a"], +Cell[5217, 179, 184, 3, 58, "Output",ExpressionUUID->"f6674c4a-a879-4a8e-be16-b377a146c2b7"] }, 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[5438, 187, 133, 3, 51, "Input",ExpressionUUID->"d6f0c889-b9bd-4b6a-bd1e-a2b149e2a1fe"], +Cell[5574, 192, 204, 4, 58, "Output",ExpressionUUID->"32d0f285-85ed-456d-bff3-4a9517c58dc0"] }, 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[5815, 201, 133, 3, 51, "Input",ExpressionUUID->"da4040a6-97b2-4ca9-9204-742e53113402"], +Cell[5951, 206, 204, 4, 58, "Output",ExpressionUUID->"6ca71a68-07aa-4e87-ae82-9a1384ff5ff9"] }, 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[6192, 215, 561, 20, 140, "Input",ExpressionUUID->"bb7b8a04-51ec-4867-95cf-0e9b97158012"], +Cell[6756, 237, 222, 4, 58, "Output",ExpressionUUID->"5c0a39ff-1ead-4c28-83e3-bcfaff16de3f"] }, 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[7015, 246, 561, 20, 140, "Input",ExpressionUUID->"ba39c175-67af-4d2d-9d23-5dcce620545e"], +Cell[7579, 268, 222, 4, 58, "Output",ExpressionUUID->"323db7b0-f58b-4357-98fb-57e56e73e975"] }, 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[7838, 277, 1592, 51, 190, "Input",ExpressionUUID->"0193cf24-dc2d-49fa-a6e9-64af673f5a04"], +Cell[9433, 330, 220, 4, 58, "Output",ExpressionUUID->"dd0eeec7-4a06-4ddc-b8c3-403494974bf4"] }, 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[9690, 339, 1426, 47, 190, "Input",ExpressionUUID->"bcaaaf43-0f8f-4ff3-bdf9-3e724b41c4e5"], +Cell[11119, 388, 240, 5, 58, "Output",ExpressionUUID->"bc94fde7-e089-4281-841a-4d5a02de82db"] }, 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[11396, 398, 1335, 45, 141, "Input",ExpressionUUID->"78942345-423b-441d-ad9e-23dec8f818ec"], +Cell[12734, 445, 239, 5, 58, "Output",ExpressionUUID->"093b25e5-0683-4098-98cb-09ab09298c89"] }, 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[13010, 455, 1592, 51, 190, "Input",ExpressionUUID->"b9772705-caeb-4dc4-b22a-0238760c2ec1"], +Cell[14605, 508, 218, 4, 58, "Output",ExpressionUUID->"b4043292-5f2e-483e-b9d1-662f4ac48ba4"] }, 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[14860, 517, 135, 3, 51, "Input",ExpressionUUID->"76e4f65e-0950-4fef-b78c-b2eebccf0142"], +Cell[14998, 522, 206, 4, 58, "Output",ExpressionUUID->"6e3c3011-d6f0-453a-b346-d59c29f8432c"] }, 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[15241, 531, 137, 3, 51, "Input",ExpressionUUID->"8f02871c-6d6b-49b7-a594-386a71b3d95e"], +Cell[15381, 536, 205, 4, 58, "Output",ExpressionUUID->"3a2ebea3-9272-4525-9c05-3f429c70abf5"] }, 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[15623, 545, 138, 3, 51, "Input",ExpressionUUID->"64b93da5-84aa-4c46-b94a-aa071f526db5"], +Cell[15764, 550, 206, 4, 58, "Output",ExpressionUUID->"2dce4056-bfea-4165-a491-f834eef06c51"] }, 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[16007, 559, 223, 5, 51, "Input",ExpressionUUID->"2952bef4-44ae-4ac2-9561-32238bbfae2e"], +Cell[16233, 566, 221, 5, 58, "Output",ExpressionUUID->"b7a3eb9f-0743-4523-b7b2-6874dce5edec"] }, 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[16491, 576, 138, 3, 51, "Input",ExpressionUUID->"f1bf8565-c9e7-4c70-bd0b-57cbb7be2a18"], +Cell[16632, 581, 210, 4, 58, "Output",ExpressionUUID->"ec0f0356-0977-4061-b7c3-fe86427b0368"] }, 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[16879, 590, 330, 6, 51, "Input",ExpressionUUID->"4639a465-cc6b-49dc-b98b-ffb26812b1e2"], +Cell[17212, 598, 205, 4, 58, "Output",ExpressionUUID->"59ecac49-b68e-4c86-9b0a-c56b7ffdaa6d"] }, 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[17454, 607, 301, 6, 51, "Input",ExpressionUUID->"acd9d697-a16f-4e4f-9ca5-9679d12c1eee"], +Cell[17758, 615, 205, 4, 58, "Output",ExpressionUUID->"f8c0539f-844d-482b-925a-a90f5225d623"] }, 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[18000, 624, 223, 5, 51, "Input",ExpressionUUID->"bf3c6aef-c5d9-4234-93db-d64a14b82b50"], +Cell[18226, 631, 203, 4, 58, "Output",ExpressionUUID->"29bd1a74-39d0-4387-a76b-779c89e8ca86"] }, 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[18466, 640, 354, 11, 74, "Input",ExpressionUUID->"925bb11a-70d6-41eb-9dd6-63461f872eae"], +Cell[18823, 653, 223, 4, 58, "Output",ExpressionUUID->"daa3b6f5-4af7-41fb-88c6-d45cdfbd5564"] }, 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[19083, 662, 354, 11, 74, "Input",ExpressionUUID->"8ddf5b97-ef62-45eb-890c-bb640fb1ea66"], +Cell[19440, 675, 238, 5, 58, "Output",ExpressionUUID->"637f4f9c-be8e-4097-92fa-499f2383d038"] }, 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[19715, 685, 998, 27, 142, "Input",ExpressionUUID->"2bf6ec39-1c63-4d14-b925-54d0f7879d85"], +Cell[20716, 714, 223, 4, 58, "Output",ExpressionUUID->"95ec9c07-f901-4300-8f98-99f2936df868"] }, 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[20976, 723, 203, 4, 51, "Input",ExpressionUUID->"24b41f2d-338f-406b-a054-09ca02f95ec7"], +Cell[21182, 729, 204, 4, 58, "Output",ExpressionUUID->"c6e9f450-b6dc-407d-941a-a953b7788f96"] }, 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[21423, 738, 303, 6, 51, "Input",ExpressionUUID->"e24e2a14-a1a6-4205-9d0c-0f6f930d45c3"], +Cell[21729, 746, 176, 3, 58, "Output",ExpressionUUID->"f57ed9d2-69d9-40c3-b653-2a85025e51b4"] +}, Open ]], +Cell[21920, 752, 177, 3, 51, "Input",ExpressionUUID->"095d9aa8-9e83-4f70-b377-e6d60478722f"], +Cell[CellGroupData[{ +Cell[22122, 759, 331, 6, 51, "Input",ExpressionUUID->"d01732ef-0da2-45d8-ae0e-ba62c550a992"], +Cell[22456, 767, 184, 3, 58, "Output",ExpressionUUID->"632af769-a33a-4d75-8dd5-02e920ea0a6f"] +}, Open ]], +Cell[22655, 773, 177, 3, 51, "Input",ExpressionUUID->"8384acc4-36ce-4966-a133-7fe73f171bc1"], +Cell[CellGroupData[{ +Cell[22857, 780, 333, 6, 51, "Input",ExpressionUUID->"43f1578e-80bf-42ed-93fb-da7d1ee54692"], +Cell[23193, 788, 183, 3, 58, "Output",ExpressionUUID->"ce94c04c-d1c7-4a60-905b-b807678ad2ab"] +}, Open ]], +Cell[23391, 794, 177, 3, 51, "Input",ExpressionUUID->"12516dbf-c4b3-4f9d-bf31-edfeb232e895"], +Cell[CellGroupData[{ +Cell[23593, 801, 358, 6, 51, "Input",ExpressionUUID->"fe003b3e-bdaa-49f0-baf5-119dc32f6daf"], +Cell[23954, 809, 182, 3, 58, "Output",ExpressionUUID->"67160be2-52ba-48d9-bb19-a92448682175"] +}, Open ]], +Cell[24151, 815, 175, 3, 51, "Input",ExpressionUUID->"c3259f05-eb8e-4661-8ff3-2df24e992ca2"], +Cell[CellGroupData[{ +Cell[24351, 822, 305, 6, 51, "Input",ExpressionUUID->"b1e05a6b-4c68-460c-8303-0e80cfaad631"], +Cell[24659, 830, 182, 3, 58, "Output",ExpressionUUID->"e66a950a-9302-43d4-a9d2-86552b750c31"] +}, Open ]], +Cell[24856, 836, 175, 3, 51, "Input",ExpressionUUID->"5aa778ad-184b-42e5-a5a2-7a6238e2b606"], +Cell[CellGroupData[{ +Cell[25056, 843, 307, 6, 51, "Input",ExpressionUUID->"5c7c6bd3-7563-4e6c-9dae-fecf5d93ace4"], +Cell[25366, 851, 184, 3, 58, "Output",ExpressionUUID->"a291e3d1-1324-4389-a9bf-67f7a7701831"] +}, Open ]], +Cell[25565, 857, 177, 3, 51, "Input",ExpressionUUID->"aa8876b2-ee35-41bb-bb44-ea43418ebc80"], +Cell[CellGroupData[{ +Cell[25767, 864, 311, 6, 51, "Input",ExpressionUUID->"866fa8c5-de20-423a-b6ca-9e812ebfee01"], +Cell[26081, 872, 183, 3, 58, "Output",ExpressionUUID->"51b5ea04-75e1-4799-922a-634a733edfbd"] +}, Open ]], +Cell[26279, 878, 176, 3, 51, "Input",ExpressionUUID->"19b636c4-a929-4ff8-8dc5-5b6915d8a010"], +Cell[CellGroupData[{ +Cell[26480, 885, 279, 5, 51, "Input",ExpressionUUID->"82e9f5e2-0fa1-4200-a78b-dadbfeafb5c9"], +Cell[26762, 892, 182, 3, 58, "Output",ExpressionUUID->"a3be0860-132c-4240-8675-cfd52c588c42"] +}, Open ]], +Cell[26959, 898, 179, 3, 51, "Input",ExpressionUUID->"0f76d782-c07a-4570-a174-1f80c2c0601a"], +Cell[CellGroupData[{ +Cell[27163, 905, 19813, 486, 2581, "Input",ExpressionUUID->"0f7a024b-3884-4408-a1ac-646c523cb4b0"], +Cell[46979, 1393, 221, 4, 58, "Output",ExpressionUUID->"0712281e-719e-4bb7-8b0d-fc63756094d4"] }, 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[47237, 1402, 19752, 490, 2539, "Input",ExpressionUUID->"7fba8efa-6d16-4927-9dba-193999f2bf97"], +Cell[66992, 1894, 221, 4, 58, "Output",ExpressionUUID->"f5ed12e8-5160-4ef9-987b-02a72d14e152"] }, 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[67250, 1903, 19752, 484, 2561, "Input",ExpressionUUID->"f51c7370-e984-4436-869e-183513f78470"], +Cell[87005, 2389, 235, 5, 109, "Output",ExpressionUUID->"7ddd73ec-1d4d-451b-a8e5-36f55f74acf7"] }, 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[87277, 2399, 28300, 713, 109, "Input",ExpressionUUID->"b289736d-1914-4ccd-84a9-b45f7e687841"], +Cell[115580, 3114, 235, 5, 58, "Output",ExpressionUUID->"b9ab16a3-bfa0-4e03-8228-189b3066a79a"] }, 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[115852, 3124, 22539, 554, 2883, "Input",ExpressionUUID->"f30a7247-bb54-497f-af7d-7023090c83ff"], +Cell[138394, 3680, 238, 5, 58, "Output",ExpressionUUID->"eb13d8d5-2e86-4ac7-adb9-e467bae745f6"] }, 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[138669, 3690, 25495, 627, 3226, "Input",ExpressionUUID->"7a650441-3404-47b3-a182-fc58d69e3f00"], +Cell[164167, 4319, 239, 5, 58, "Output",ExpressionUUID->"71226c6c-5244-4a27-ad23-28012197a0f1"] }, 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[164443, 4329, 134, 3, 51, "Input",ExpressionUUID->"20ed4577-a8a7-41a6-aa65-d6d7dd6a7d37"], +Cell[164580, 4334, 204, 4, 58, "Output",ExpressionUUID->"97f4a4c3-bf92-48ac-a7f4-992ce3ae8e1c"] }, 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[164821, 4343, 134, 3, 51, "Input",ExpressionUUID->"33a57048-9084-4f1b-9ad3-97615c81bd05"], +Cell[164958, 4348, 204, 4, 58, "Output",ExpressionUUID->"1aba9b4f-0894-43be-bcc5-45d8a2b826fd"] }, 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[165199, 4357, 1148, 40, 190, "Input",ExpressionUUID->"6bbdd55e-812b-4991-a934-55d5fe93ca69"], +Cell[166350, 4399, 218, 4, 58, "Output",ExpressionUUID->"06b04880-7076-4ee7-bd22-b65955695b22"] }, 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[166605, 4408, 1045, 36, 257, "Input",ExpressionUUID->"e1316acf-ef08-4a35-92f2-f52365d19c7c"], +Cell[167653, 4446, 238, 5, 58, "Output",ExpressionUUID->"784effa0-1b56-42dd-a4ec-6a8a421b9229"] }, 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[167928, 4456, 1148, 40, 190, "Input",ExpressionUUID->"f3c8ab6f-cc14-4ef7-8f45-56a4f0fb0280"], +Cell[169079, 4498, 222, 4, 58, "Output",ExpressionUUID->"63f8ef2e-16b7-47de-bdab-2e8cb6546a9f"] }, 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[169338, 4507, 112, 2, 51, "Input",ExpressionUUID->"c9c39409-cdfc-4a79-9f2b-367593593f49"], +Cell[169453, 4511, 224, 4, 58, "Output",ExpressionUUID->"6cc53293-8771-4d9d-a47c-36780b6af61d"] }, 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[169714, 4520, 112, 2, 51, "Input",ExpressionUUID->"daea4480-7eec-4ef4-8e45-df932beffd28"], +Cell[169829, 4524, 241, 5, 58, "Output",ExpressionUUID->"37effe82-fb3f-45a1-9a3e-14f2dad446c0"] }, 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[170107, 4534, 112, 2, 51, "Input",ExpressionUUID->"f1c27a4d-d9b9-4059-906e-f1c9b2f848fe"], +Cell[170222, 4538, 239, 5, 58, "Output",ExpressionUUID->"9b42565b-631e-46fb-8bc4-7d971070b27c"] }, 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[170498, 4548, 112, 2, 51, "Input",ExpressionUUID->"83ad0518-8081-4e34-b927-1a5b7fe6f5d7"], +Cell[170613, 4552, 219, 4, 58, "Output",ExpressionUUID->"69bada15-e35a-42ac-9196-5eb1052942a5"] }, 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[170869, 4561, 111, 2, 51, "Input",ExpressionUUID->"6271f5ad-5a8f-47dc-8780-b7c3a7515bd0"], +Cell[170983, 4565, 221, 4, 58, "Output",ExpressionUUID->"c602aaab-4be3-4902-a060-e87457a120cf"] }, 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[171241, 4574, 111, 2, 51, "Input",ExpressionUUID->"40c7ce1b-04f0-43a1-b42f-31988566aadd"], +Cell[171355, 4578, 222, 4, 58, "Output",ExpressionUUID->"513b5328-fe7c-44ed-9553-0e55e18a7c92"] }, 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[171614, 4587, 501, 17, 97, "Input",ExpressionUUID->"494c4e91-f213-467c-bbcc-282999b91200"], +Cell[172118, 4606, 242, 5, 58, "Output",ExpressionUUID->"757ca7f8-226c-49dd-b895-043d7ac85953"] }, 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[172397, 4616, 501, 17, 97, "Input",ExpressionUUID->"02cd3f31-6603-4a07-9fcf-3b604c6e020e"], +Cell[172901, 4635, 234, 5, 58, "Output",ExpressionUUID->"d598f7a1-e1c5-4b9e-b374-494183d2c6c5"] }, 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[173172, 4645, 1792, 61, 324, "Input",ExpressionUUID->"725331e1-d6ae-47c4-9dcc-467aaa2ba002"], +Cell[174967, 4708, 224, 4, 58, "Output",ExpressionUUID->"2be7f0f4-14c3-4e98-a010-ac8b05effc6f"] }, 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[175228, 4717, 1105, 37, 231, "Input",ExpressionUUID->"37614943-a6e5-4d00-8e38-0e6e7984376c"], +Cell[176336, 4756, 239, 5, 58, "Output",ExpressionUUID->"eb1dad88-cc33-4ff9-986d-6f6456fd8b67"] }, 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[176612, 4766, 1822, 62, 283, "Input",ExpressionUUID->"f1c1fe52-aa66-4424-a93e-50ee1c6d86b7"], +Cell[178437, 4830, 221, 4, 58, "Output",ExpressionUUID->"578e3ba4-bf2e-42f3-bcb8-0861d4c3a898"] }, 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[178695, 4839, 1635, 54, 141, "Input",ExpressionUUID->"6d6fa6d0-861f-4b32-850d-9f8aeb24685d"], +Cell[180333, 4895, 223, 4, 58, "Output",ExpressionUUID->"14d25676-5f58-4634-b564-675d96cf5335"] }, 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[180593, 4904, 1714, 56, 840, "Input",ExpressionUUID->"66ca8919-b006-4278-8597-21733e30d8fb"], +Cell[182310, 4962, 221, 4, 67, "Output",ExpressionUUID->"86205bd0-c026-41f3-902a-493edff30589"] +}, Open ]], +Cell[182546, 4969, 189, 4, 59, "Input",ExpressionUUID->"bdefbecf-0aaa-4a45-a861-406cf54e52d1"], +Cell[182738, 4975, 154, 3, 59, "Input",ExpressionUUID->"a5161e25-7247-124f-8601-7bcc4af89c62"], +Cell[182895, 4980, 187, 4, 59, "Input",ExpressionUUID->"45ed831b-459a-9a41-990f-c079ad464f5d"], +Cell[183085, 4986, 154, 3, 59, "Input",ExpressionUUID->"bc946e22-fdd1-8b4b-8e5a-11f4dcb03e07"], +Cell[CellGroupData[{ +Cell[183264, 4993, 1301, 43, 321, "Input",ExpressionUUID->"78018a61-7851-fe4d-b32f-cb68a3158f29"], +Cell[184568, 5038, 178, 3, 67, "Output",ExpressionUUID->"1658422d-0016-324a-9843-942f5453a9c7"] }, 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"] -}, Open ]], -Cell[376133, 8866, 209, 5, 56, "Input",ExpressionUUID->"f380af60-a605-c546-a4c8-b989835aa113"], -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[184783, 5046, 910, 31, 273, "Input",ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-7221ff813b6d"], +Cell[185696, 5079, 175, 3, 67, "Output",ExpressionUUID->"d307b81f-3de4-ab46-9ef8-af5c6bc7c05b"] }, 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[185908, 5087, 887, 30, 273, "Input",ExpressionUUID->"f22831a7-63b7-f444-8e3a-fa370a62ac27"], +Cell[186798, 5119, 176, 3, 67, "Output",ExpressionUUID->"866e2a7a-c08a-d14a-ae9c-f63fbc316d85"] }, 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[187011, 5127, 558, 19, 105, "Input",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"], +Cell[187572, 5148, 172, 3, 67, "Output",ExpressionUUID->"bba1ae64-a2a6-4745-b870-cca298627f62"] }, 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[187781, 5156, 623, 21, 184, "Input",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"], +Cell[188407, 5179, 172, 3, 67, "Output",ExpressionUUID->"2d9a2576-51c1-274e-bb6b-3d0a12d8f955"] }, 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[188616, 5187, 170, 5, 111, "Input",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"], +Cell[188789, 5194, 172, 3, 67, "Output",ExpressionUUID->"55e80360-690f-0444-ac68-221fe09ddfd5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188998, 5202, 170, 5, 110, "Input",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"], +Cell[189171, 5209, 171, 3, 67, "Output",ExpressionUUID->"ffa83e52-e057-8c44-be5c-a869714a425e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189379, 5217, 181, 5, 87, "Input",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"], +Cell[189563, 5224, 170, 3, 67, "Output",ExpressionUUID->"daa1af48-56b9-b549-9a5e-fd35e4ace383"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189770, 5232, 181, 5, 87, "Input",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"], +Cell[189954, 5239, 172, 3, 67, "Output",ExpressionUUID->"045de583-e60b-c94a-9184-d9a46a689c39"] +}, Open ]], +Cell[CellGroupData[{ +Cell[190163, 5247, 6055, 185, 2552, "Input",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"], +Cell[196221, 5434, 172, 3, 67, "Output",ExpressionUUID->"cdaeef85-4599-4144-88b1-c12ccb960e67"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196430, 5442, 368, 9, 84, "Input",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"], +Cell[196801, 5453, 171, 3, 67, "Output",ExpressionUUID->"c4da64fa-539e-454c-a7bc-f5a50d741b33"] +}, Open ]], +Cell[CellGroupData[{ +Cell[197009, 5461, 6122, 187, 2552, "Input",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"], +Cell[203134, 5650, 173, 3, 67, "Output",ExpressionUUID->"a0ddd9ec-0ad8-da40-93c1-f69a540fecbb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[203344, 5658, 368, 9, 84, "Input",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"], +Cell[203715, 5669, 170, 3, 67, "Output",ExpressionUUID->"bb399ae8-0971-524b-99dd-45c3d83aff90"] +}, Open ]], +Cell[CellGroupData[{ +Cell[203922, 5677, 2663, 88, 1228, "Input",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"], +Cell[206588, 5767, 171, 3, 67, "Output",ExpressionUUID->"8522d772-b29b-b14d-a623-3ad00b3d8250"] +}, Open ]], +Cell[CellGroupData[{ +Cell[206796, 5775, 2603, 85, 1228, "Input",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"], +Cell[209402, 5862, 173, 3, 67, "Output",ExpressionUUID->"d88ed30c-77e3-0245-b8d9-3b803c379fb2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[209612, 5870, 3712, 118, 1634, "Input",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"], +Cell[213327, 5990, 174, 3, 67, "Output",ExpressionUUID->"5d391006-3707-3d44-a060-c06781a98edd"] +}, Open ]], +Cell[213516, 5996, 138, 3, 59, "Input",ExpressionUUID->"714abd93-e0d1-eb45-a9e1-7a2f5d020eb1"], +Cell[CellGroupData[{ +Cell[213679, 6003, 2054, 59, 689, "Input",ExpressionUUID->"137c38a2-741c-bd43-b6d9-c0135e32eaf8"], +Cell[215736, 6064, 557, 12, 255, "Message",ExpressionUUID->"055bf31f-37b2-724c-aeef-d922f7a205c7"], +Cell[216296, 6078, 559, 12, 255, "Message",ExpressionUUID->"eeead3e4-54a5-7c4d-95b2-292dcdbe105a"], +Cell[216858, 6092, 561, 12, 255, "Message",ExpressionUUID->"87e34a07-7a78-bf46-b222-6e72d11fd18d"], +Cell[217422, 6106, 458, 10, 85, "Message",ExpressionUUID->"1cf9faa5-3432-3349-b45a-58344623fc63"], +Cell[217883, 6118, 172, 3, 67, "Output",ExpressionUUID->"acb58738-85fd-0f40-b8fa-3a779aa79369"] +}, Open ]], +Cell[CellGroupData[{ +Cell[218092, 6126, 2052, 59, 689, "Input",ExpressionUUID->"9b196534-2ca5-e54b-8014-b0ab3cd09ac2"], +Cell[220147, 6187, 555, 12, 255, "Message",ExpressionUUID->"6fb03e9c-623b-b24d-bccd-c05b2662537c"], +Cell[220705, 6201, 559, 12, 244, "Message",ExpressionUUID->"410ed293-2b04-a346-b193-5e006759c884"], +Cell[221267, 6215, 561, 12, 255, "Message",ExpressionUUID->"9e59cf72-2df3-6741-910e-ddcc2125aa8b"], +Cell[221831, 6229, 458, 10, 85, "Message",ExpressionUUID->"6f223de4-f4b9-0a4c-b3b3-f489f4259713"], +Cell[222292, 6241, 172, 3, 67, "Output",ExpressionUUID->"d8300689-0813-6149-9a7f-c358ba826aac"] +}, Open ]], +Cell[CellGroupData[{ +Cell[222501, 6249, 1936, 53, 536, "Input",ExpressionUUID->"124cd7db-c537-8943-bef2-1a154ab4a709"], +Cell[224440, 6304, 20458, 382, 324, "Output",ExpressionUUID->"a7dc53c9-dabc-784f-a94a-f1fb7ab10c84"] +}, Open ]], +Cell[CellGroupData[{ +Cell[244935, 6691, 2094, 60, 806, "Input",ExpressionUUID->"5a7f9400-1446-9746-a463-bade8ae5c530"], +Cell[247032, 6753, 500, 11, 190, "Message",ExpressionUUID->"eede1010-35b4-8e43-8206-4c3ebae733c0"], +Cell[247535, 6766, 503, 11, 190, "Message",ExpressionUUID->"01174b23-a2bd-8e4e-90f5-af7e82df101e"], +Cell[248041, 6779, 506, 11, 190, "Message",ExpressionUUID->"ec7385ad-4809-8947-afea-81e4a95fc523"], +Cell[248550, 6792, 455, 10, 85, "Message",ExpressionUUID->"4176ecfe-3aff-0f4b-824e-b07e40312968"], +Cell[249008, 6804, 57321, 985, 314, "Output",ExpressionUUID->"6ef8802e-494c-9d4c-94ba-3ee854b2b684"] +}, Open ]], +Cell[306344, 7792, 2452, 69, 719, "Input",ExpressionUUID->"0f83f761-b16d-5343-987d-511095eaf120"], +Cell[308799, 7863, 209, 5, 59, "Input",ExpressionUUID->"8cdd4baa-f7c9-104e-b978-89d3982ba28f"], +Cell[CellGroupData[{ +Cell[309033, 7872, 217, 7, 96, "Input",ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-3438788b15d6"], +Cell[309253, 7881, 172, 3, 67, "Output",ExpressionUUID->"bea5e069-6c61-f84f-be94-f0a852e2aafc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[309462, 7889, 1816, 53, 745, "Input",ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-0e75880d5d98"], +Cell[311281, 7944, 508, 11, 179, "Message",ExpressionUUID->"3a61d965-a130-7645-90c6-a5061b94ec40"], +Cell[311792, 7957, 508, 11, 179, "Message",ExpressionUUID->"c3c0d10c-aa86-9b43-bfa9-71bc099863f1"], +Cell[312303, 7970, 511, 11, 190, "Message",ExpressionUUID->"321e1ff2-86f6-7244-895a-0b744ecd0cf1"], +Cell[312817, 7983, 456, 10, 85, "Message",ExpressionUUID->"43e0f399-4fd6-3f4d-a3a8-ef137bebb344"], +Cell[313276, 7995, 26000, 472, 319, "Output",ExpressionUUID->"4e674430-b3ee-f841-98e7-88500054cf35"] +}, Open ]], +Cell[CellGroupData[{ +Cell[339313, 8472, 1616, 48, 218, "Input",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"], +Cell[340932, 8522, 584, 12, 218, "Message",ExpressionUUID->"6dc439d9-4983-a74d-a424-1e627442f8ec"], +Cell[341519, 8536, 588, 12, 288, "Message",ExpressionUUID->"cbbb0a14-cac3-b246-be52-03554c6d0159"], +Cell[342110, 8550, 592, 12, 288, "Message",ExpressionUUID->"afaf59d8-5c82-5843-ba76-5dd1061c22bd"], +Cell[342705, 8564, 456, 10, 85, "Message",ExpressionUUID->"370cb98e-1084-6940-9e45-78218dc7334e"], +Cell[343164, 8576, 169, 3, 67, "Output",ExpressionUUID->"49c1839c-f9a0-514a-9803-38aedd206508"] +}, Open ]], +Cell[CellGroupData[{ +Cell[343370, 8584, 2249, 64, 772, "Input",ExpressionUUID->"eb852908-4d60-c84e-80d9-a57fd4094f56"], +Cell[345622, 8650, 555, 12, 218, "Message",ExpressionUUID->"e4da2c2e-bc79-8048-aec6-e0a36c5fd50c"], +Cell[346180, 8664, 557, 12, 218, "Message",ExpressionUUID->"ff48d9a8-4f15-044a-8d17-d378e560badf"], +Cell[346740, 8678, 563, 12, 218, "Message",ExpressionUUID->"d97cd881-ad70-0043-811a-b6650c7bff48"], +Cell[347306, 8692, 458, 10, 218, "Message",ExpressionUUID->"dc1ff9fc-c736-e742-9bd5-f36a7c2c6c53"], +Cell[347767, 8704, 173, 3, 218, "Output",ExpressionUUID->"207fc206-b3fa-1a42-8709-2c8aaaf304b0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[347977, 8712, 2223, 64, 218, "Input",ExpressionUUID->"d11037f6-09e7-b44f-8a1d-47c1a485c608"], +Cell[350203, 8778, 555, 12, 255, "Message",ExpressionUUID->"079487fc-3029-b74e-ba27-a61cf73f30a2"], +Cell[350761, 8792, 557, 12, 255, "Message",ExpressionUUID->"6fef6245-eafb-7343-8d9c-509c47662fd8"], +Cell[351321, 8806, 561, 12, 255, "Message",ExpressionUUID->"caeb451e-fce0-a24e-bdb2-20066bf32e23"], +Cell[351885, 8820, 458, 10, 85, "Message",ExpressionUUID->"b9263c45-06ba-d24d-a71c-72933a67fb86"], +Cell[352346, 8832, 173, 3, 67, "Output",ExpressionUUID->"fdc26e81-7e73-a54e-8b48-fba744fd21b7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[352556, 8840, 2221, 64, 730, "Input",ExpressionUUID->"431dd2fa-6331-2449-bc19-0d79e6ed8953"], +Cell[354780, 8906, 557, 12, 218, "Message",ExpressionUUID->"3270b87e-9743-ef45-96a4-2ce51373a203"], +Cell[355340, 8920, 557, 12, 218, "Message",ExpressionUUID->"b5a7511b-af1a-b946-83d4-1951541611b2"], +Cell[355900, 8934, 563, 12, 218, "Message",ExpressionUUID->"55836c22-e074-4442-9aa3-8442534fcabe"], +Cell[356466, 8948, 456, 10, 218, "Message",ExpressionUUID->"18c3aa33-3860-5f41-a9ac-8cd3806fef7e"], +Cell[356925, 8960, 173, 3, 218, "Output",ExpressionUUID->"62510f7e-bac9-8b4e-86ce-182bdd5d56b9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[357135, 8968, 213, 6, 218, "Input",ExpressionUUID->"8c5df121-e0b9-a146-bc34-b231aa8028b9"], +Cell[357351, 8976, 171, 3, 67, "Output",ExpressionUUID->"5c7cd89e-20ed-8d44-83bb-e2e46deab974"] +}, Open ]], +Cell[357537, 8982, 245, 5, 59, "Input",ExpressionUUID->"831a27fc-89ff-e041-97f1-0ec5d19a7879"], +Cell[CellGroupData[{ +Cell[357807, 8991, 558, 19, 105, "Input",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"], +Cell[358368, 9012, 172, 3, 67, "Output",ExpressionUUID->"e3d357af-87e3-0047-959d-fa0139c5bfc4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[358577, 9020, 170, 5, 111, "Input",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"], +Cell[358750, 9027, 173, 3, 67, "Output",ExpressionUUID->"93dda073-df54-8f4e-afab-666de5caf927"] +}, Open ]], +Cell[CellGroupData[{ +Cell[358960, 9035, 181, 5, 87, "Input",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"], +Cell[359144, 9042, 173, 3, 67, "Output",ExpressionUUID->"db5e4010-00e8-574c-8b32-365b8147ba2d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[359354, 9050, 6055, 185, 2552, "Input",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"], +Cell[365412, 9237, 172, 3, 67, "Output",ExpressionUUID->"6f5204f9-42a7-0343-a2cd-76cd7618ba90"] +}, Open ]], +Cell[CellGroupData[{ +Cell[365621, 9245, 368, 9, 84, "Input",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"], +Cell[365992, 9256, 170, 3, 67, "Output",ExpressionUUID->"732feb85-572c-6a40-bb32-258aa6fbb12e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[366199, 9264, 6122, 187, 2552, "Input",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"], +Cell[372324, 9453, 175, 3, 67, "Output",ExpressionUUID->"330db3dd-df0f-5e4b-9e84-63e3da6287e1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[372536, 9461, 368, 9, 84, "Input",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"], +Cell[372907, 9472, 172, 3, 67, "Output",ExpressionUUID->"8403ef7a-5add-ea45-a6c0-a6dc70f27bb8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[373116, 9480, 2663, 88, 1228, "Input",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"], +Cell[375782, 9570, 173, 3, 67, "Output",ExpressionUUID->"aac00e4f-5d2b-4341-8ca5-f49d9556633e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[375992, 9578, 2603, 85, 1228, "Input",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"], +Cell[378598, 9665, 171, 3, 67, "Output",ExpressionUUID->"eeee5a47-9547-7746-bb79-936b40364d7e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[378806, 9673, 3712, 118, 1634, "Input",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"], +Cell[382521, 9793, 174, 3, 67, "Output",ExpressionUUID->"a1352554-6686-ff4e-be47-04b42c29b000"] +}, Open ]], +Cell[CellGroupData[{ +Cell[382732, 9801, 2052, 59, 689, "Input",ExpressionUUID->"220bdeed-2e17-e94c-a7b0-3e066daf15d7"], +Cell[384787, 9862, 578, 12, 255, "Message",ExpressionUUID->"c854318c-035d-f249-9a8c-a9608e137436"], +Cell[385368, 9876, 583, 12, 288, "Message",ExpressionUUID->"fc1eef58-3b5b-8c4c-bab7-60a3682b1d45"], +Cell[385954, 9890, 586, 12, 288, "Message",ExpressionUUID->"2e134293-05b5-624c-b206-73b12a84c5ea"], +Cell[386543, 9904, 456, 10, 218, "Message",ExpressionUUID->"2cac2ff4-fc29-a048-9fae-70918ed41968"], +Cell[387002, 9916, 170, 3, 218, "Output",ExpressionUUID->"2dcc4178-0b8d-9f48-a040-f2fc5cb8eacd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[387209, 9924, 2054, 59, 218, "Input",ExpressionUUID->"b8791a07-33fe-8c4f-9c59-dd23af9a4471"], +Cell[389266, 9985, 576, 12, 218, "Message",ExpressionUUID->"ac808335-5ecc-ee4f-a7ac-d889b0bf6e05"], +Cell[389845, 9999, 581, 12, 288, "Message",ExpressionUUID->"36b7d718-32d9-a441-b985-1fed8f0f10fd"], +Cell[390429, 10013, 586, 12, 288, "Message",ExpressionUUID->"ab31a569-fab4-434a-9c76-33aa9b59b117"], +Cell[391018, 10027, 458, 10, 85, "Message",ExpressionUUID->"4c41e56d-f5cb-b94c-b99a-06e306247825"], +Cell[391479, 10039, 172, 3, 67, "Output",ExpressionUUID->"5ec230cf-b87d-3e41-bc7f-1f3f2ff283ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[391688, 10047, 2028, 55, 536, "Input",ExpressionUUID->"3fe6e7f1-b44a-234f-af77-3cf1fdaf28d9"], +Cell[393719, 10104, 20011, 378, 218, "Output",ExpressionUUID->"3d0b6a0d-2dc0-3b48-b8dd-35b5149ee27f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[413767, 10487, 2115, 60, 218, "Input",ExpressionUUID->"ab29778f-f183-804b-b871-4070462057d7"], +Cell[415885, 10549, 501, 11, 218, "Message",ExpressionUUID->"abf9cb8a-fbbf-7a43-abcd-82efb32ab217"], +Cell[416389, 10562, 503, 11, 218, "Message",ExpressionUUID->"8fcd13e3-81e0-3446-8882-6e42ca5c0bd1"], +Cell[416895, 10575, 505, 11, 190, "Message",ExpressionUUID->"2c23ed60-41ee-5841-90ce-1d26cb02619d"], +Cell[417403, 10588, 456, 10, 85, "Message",ExpressionUUID->"fa59df63-76ff-4147-acd0-9eeaf33582c5"], +Cell[417862, 10600, 32548, 580, 316, "Output",ExpressionUUID->"4ab96fbd-92e0-8a42-8552-436bb2f629b6"] +}, Open ]], +Cell[450425, 11183, 209, 5, 59, "Input",ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-6bd251746ea6"], +Cell[CellGroupData[{ +Cell[450659, 11192, 1616, 48, 575, "Input",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"], +Cell[452278, 11242, 596, 12, 218, "Message",ExpressionUUID->"3273c967-a8f4-6b46-8292-dfd9dc69311d"], +Cell[452877, 11256, 599, 12, 218, "Message",ExpressionUUID->"cf5457ae-7056-8a4b-afa3-32b95e922259"], +Cell[453479, 11270, 605, 12, 218, "Message",ExpressionUUID->"7ef79528-2ca4-544d-8bbf-e4564533e47a"], +Cell[454087, 11284, 456, 10, 218, "Message",ExpressionUUID->"3f59bf2a-0193-1b41-9437-359e4e291f20"], +Cell[454546, 11296, 170, 3, 67, "Output",ExpressionUUID->"6c94ff26-1921-5a44-a360-bda32f564938"] +}, Open ]], +Cell[CellGroupData[{ +Cell[454753, 11304, 2247, 64, 772, "Input",ExpressionUUID->"5a0cc4bb-b2b0-c64c-958a-7a397847208f"], +Cell[457003, 11370, 580, 12, 255, "Message",ExpressionUUID->"33abd0dc-5204-1046-87c9-87cecac6793f"], +Cell[457586, 11384, 583, 12, 288, "Message",ExpressionUUID->"a3e9f415-30c2-d04b-a044-33980d6ef6e9"], +Cell[458172, 11398, 584, 12, 288, "Message",ExpressionUUID->"3dddc3ab-89f8-ab44-a85d-f5130722f198"], +Cell[458759, 11412, 458, 10, 218, "Message",ExpressionUUID->"a3229605-5a49-544b-bbf6-cc14edd6c936"], +Cell[459220, 11424, 170, 3, 67, "Output",ExpressionUUID->"2f0f984a-e452-7f46-a8f1-230feda2f30b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[459427, 11432, 2219, 64, 730, "Input",ExpressionUUID->"22b50200-0b82-dc47-9932-f1f0210d6caf"], +Cell[461649, 11498, 580, 12, 255, "Message",ExpressionUUID->"1a479ad6-386a-fb47-95e4-f8a3ab25eccc"], +Cell[462232, 11512, 583, 12, 218, "Message",ExpressionUUID->"c45746b8-a614-4245-b137-e38355d43857"], +Cell[462818, 11526, 586, 12, 288, "Message",ExpressionUUID->"7ef9264b-fdf5-8e46-a39d-9d01a56d9fbc"], +Cell[463407, 11540, 458, 10, 85, "Message",ExpressionUUID->"424cc344-67bf-5349-951a-e3d6864f9105"], +Cell[463868, 11552, 171, 3, 67, "Output",ExpressionUUID->"d6fb3ea3-39a2-5b42-96f2-520a52fd0d9f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[464076, 11560, 2221, 64, 730, "Input",ExpressionUUID->"8a5105db-666c-444e-9451-d3e8d1574bcd"], +Cell[466300, 11626, 580, 12, 218, "Message",ExpressionUUID->"7c3b7078-d094-2344-a157-26438223ef0f"], +Cell[466883, 11640, 583, 12, 218, "Message",ExpressionUUID->"a4aaa457-e588-7a42-9066-29e614b18d91"], +Cell[467469, 11654, 584, 12, 218, "Message",ExpressionUUID->"8e9701ac-9508-2346-b853-523f9f269328"], +Cell[468056, 11668, 456, 10, 85, "Message",ExpressionUUID->"062aadbd-03a7-1f42-b815-d27ae6ddc83e"], +Cell[468515, 11680, 170, 3, 67, "Output",ExpressionUUID->"484b070c-cc4a-7049-8a18-4aa38bea8cd9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[468722, 11688, 213, 6, 94, "Input",ExpressionUUID->"d0efa798-230b-fa46-b413-76bfd8e40ccb"], +Cell[468938, 11696, 174, 3, 67, "Output",ExpressionUUID->"8b85bd5c-200a-cc44-9db5-38c5efe118ad"] +}, Open ]], +Cell[469127, 11702, 247, 5, 59, "Input",ExpressionUUID->"f842f74e-f562-934a-9011-6604b8708636"], +Cell[CellGroupData[{ +Cell[469399, 11711, 558, 19, 105, "Input",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"], +Cell[469960, 11732, 173, 3, 67, "Output",ExpressionUUID->"ddfcd06d-5644-fb4b-b789-815d8db71ce6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[470170, 11740, 170, 5, 111, "Input",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"], +Cell[470343, 11747, 173, 3, 67, "Output",ExpressionUUID->"96020250-b44c-694d-acbe-eb8b1c066e25"] +}, Open ]], +Cell[CellGroupData[{ +Cell[470553, 11755, 181, 5, 87, "Input",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"], +Cell[470737, 11762, 171, 3, 67, "Output",ExpressionUUID->"a3cad59a-97f1-1b4b-a0d3-0fcbb55e71c0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[470945, 11770, 6055, 185, 2552, "Input",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"], +Cell[477003, 11957, 173, 3, 67, "Output",ExpressionUUID->"221426ad-3f43-834a-96dc-c22bf0ed0e23"] +}, Open ]], +Cell[CellGroupData[{ +Cell[477213, 11965, 368, 9, 84, "Input",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"], +Cell[477584, 11976, 172, 3, 67, "Output",ExpressionUUID->"54964f1a-0c74-5b45-a5d4-8b241885bf9d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[477793, 11984, 6122, 187, 2552, "Input",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"], +Cell[483918, 12173, 175, 3, 67, "Output",ExpressionUUID->"637b4460-08e1-2c47-b235-20b94d0413ac"] +}, Open ]], +Cell[CellGroupData[{ +Cell[484130, 12181, 368, 9, 84, "Input",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"], +Cell[484501, 12192, 171, 3, 67, "Output",ExpressionUUID->"55b9de35-b316-8a4b-b6c7-df263fdc91bc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[484709, 12200, 2663, 88, 1228, "Input",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"], +Cell[487375, 12290, 173, 3, 67, "Output",ExpressionUUID->"fd2a841e-0c22-9146-97fa-d652989dadbe"] +}, Open ]], +Cell[CellGroupData[{ +Cell[487585, 12298, 2603, 85, 1228, "Input",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"], +Cell[490191, 12385, 171, 3, 67, "Output",ExpressionUUID->"94bd0f60-5228-9b42-83fe-23a478d55c7c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[490399, 12393, 3712, 118, 1634, "Input",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"], +Cell[494114, 12513, 174, 3, 67, "Output",ExpressionUUID->"fe51f341-63c7-8f47-9357-139cd58159ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[494325, 12521, 2054, 59, 689, "Input",ExpressionUUID->"1dec41a6-6752-2041-9d38-804123b5ccd0"], +Cell[496382, 12582, 572, 12, 255, "Message",ExpressionUUID->"0e079558-1b2f-5a46-8c66-a9ee31993ddb"], +Cell[496957, 12596, 573, 12, 255, "Message",ExpressionUUID->"d148db97-53f1-5f42-bd2e-6e779140d5b6"], +Cell[497533, 12610, 579, 12, 255, "Message",ExpressionUUID->"186b0633-6992-1247-a396-6e446c898f15"], +Cell[498115, 12624, 456, 10, 85, "Message",ExpressionUUID->"81723359-f225-2c46-ac9d-0c5bbdaa253b"], +Cell[498574, 12636, 169, 3, 67, "Output",ExpressionUUID->"dfb1ce0b-e756-e84a-9724-ecf250122f19"] +}, Open ]], +Cell[CellGroupData[{ +Cell[498780, 12644, 2049, 58, 689, "Input",ExpressionUUID->"442c9cc5-031c-244c-a3bb-8044e56b047f"], +Cell[500832, 12704, 570, 12, 255, "Message",ExpressionUUID->"90df9b1f-7133-e445-8661-0af9d5feb8bd"], +Cell[501405, 12718, 575, 12, 218, "Message",ExpressionUUID->"93c48be2-5ad7-ad43-88e8-2c6ab8e2f132"], +Cell[501983, 12732, 579, 12, 255, "Message",ExpressionUUID->"cbcbafce-f556-944f-b5f3-9a75f9ae2725"], +Cell[502565, 12746, 458, 10, 85, "Message",ExpressionUUID->"83820e0a-b24a-cc46-bd5a-b19f0104c185"], +Cell[503026, 12758, 171, 3, 67, "Output",ExpressionUUID->"0d63c418-a50b-b94b-ad7d-1a46c6eb320d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[503234, 12766, 2030, 55, 536, "Input",ExpressionUUID->"75bdb70f-74f6-1a4c-9c04-b799ae260294"], +Cell[505267, 12823, 20011, 378, 325, "Output",ExpressionUUID->"a15038e3-a3ab-e64e-ad3b-e8cb09ec92a2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[525315, 13206, 2120, 60, 218, "Input",ExpressionUUID->"cbec275e-4d01-7747-9ece-7fa9a2a651b1"], +Cell[527438, 13268, 501, 11, 218, "Message",ExpressionUUID->"bf289d91-76e3-3e4e-937f-93db9b038d39"], +Cell[527942, 13281, 505, 11, 218, "Message",ExpressionUUID->"a52542a3-f03a-414f-86c8-3b114308924e"], +Cell[528450, 13294, 506, 11, 218, "Message",ExpressionUUID->"1c7104f0-99cd-c74c-b855-98253be62519"], +Cell[528959, 13307, 456, 10, 218, "Message",ExpressionUUID->"e66837df-658a-2c4c-973b-50c515d3781f"], +Cell[529418, 13319, 31008, 556, 218, "Output",ExpressionUUID->"0c8adc65-2b3c-a14f-87e8-79cdde17788b"] +}, Open ]], +Cell[560441, 13878, 209, 5, 218, "Input",ExpressionUUID->"f380af60-a605-c546-a4c8-b989835aa113"], +Cell[CellGroupData[{ +Cell[560675, 13887, 1616, 48, 575, "Input",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"], +Cell[562294, 13937, 593, 12, 288, "Message",ExpressionUUID->"6cb27c14-3e28-3a42-b8b7-fdcba2488488"], +Cell[562890, 13951, 595, 12, 288, "Message",ExpressionUUID->"cb81e4d8-f3c2-a440-be93-8add6661d63f"], +Cell[563488, 13965, 602, 12, 288, "Message",ExpressionUUID->"6fc2d4bb-75da-4f4f-bee0-560983907484"], +Cell[564093, 13979, 456, 10, 218, "Message",ExpressionUUID->"a75f01ed-738d-2b4a-b751-ccae7a894e31"], +Cell[564552, 13991, 172, 3, 218, "Output",ExpressionUUID->"a9b05d7b-788a-eb45-8401-918c1ed97234"] +}, Open ]], +Cell[CellGroupData[{ +Cell[564761, 13999, 2249, 64, 218, "Input",ExpressionUUID->"f2835c98-560f-8e47-bdab-0d2700971836"], +Cell[567013, 14065, 572, 12, 218, "Message",ExpressionUUID->"e3c0ae99-c55d-1a40-897e-ede7de12487f"], +Cell[567588, 14079, 575, 12, 218, "Message",ExpressionUUID->"0a52e0c9-3a0a-a24b-a9af-01175c4ee0f4"], +Cell[568166, 14093, 579, 12, 255, "Message",ExpressionUUID->"e6adb683-0ea5-4b48-bbb8-23c8c11e4418"], +Cell[568748, 14107, 458, 10, 85, "Message",ExpressionUUID->"12441524-bcf6-244b-b009-fad76aa84cea"], +Cell[569209, 14119, 173, 3, 67, "Output",ExpressionUUID->"cc74ac59-df4c-cf4b-a4af-36b2436eea23"] +}, Open ]], +Cell[CellGroupData[{ +Cell[569419, 14127, 2221, 64, 730, "Input",ExpressionUUID->"ca837916-250f-4d4e-8368-5a08f479e656"], +Cell[571643, 14193, 572, 12, 218, "Message",ExpressionUUID->"ee3e5086-63b9-a04a-8b60-1a07bbedb00c"], +Cell[572218, 14207, 575, 12, 218, "Message",ExpressionUUID->"f824dc64-7721-2e40-87b9-9d308e655a7c"], +Cell[572796, 14221, 577, 12, 218, "Message",ExpressionUUID->"830b9065-dbdb-094f-aba8-2b0b04ca96a6"], +Cell[573376, 14235, 456, 10, 218, "Message",ExpressionUUID->"f79b172f-d4db-f24b-98c7-2b2531d3e183"], +Cell[573835, 14247, 172, 3, 67, "Output",ExpressionUUID->"88b0c8ab-c0ff-2a4c-be6a-f15bb3bf7202"] +}, Open ]], +Cell[CellGroupData[{ +Cell[574044, 14255, 2223, 64, 730, "Input",ExpressionUUID->"b579991f-985b-234a-94aa-ed18c097f8c0"], +Cell[576270, 14321, 572, 12, 255, "Message",ExpressionUUID->"f816110f-9bc3-0e4e-85c9-2e71a255bbb9"], +Cell[576845, 14335, 573, 12, 255, "Message",ExpressionUUID->"36d057a5-55b4-f047-814d-965f9626b543"], +Cell[577421, 14349, 579, 12, 255, "Message",ExpressionUUID->"4ef30680-44fe-0244-870d-45b0a67e7a3d"], +Cell[578003, 14363, 456, 10, 85, "Message",ExpressionUUID->"c685c306-1cc4-0a4f-bb39-965ed01378a7"], +Cell[578462, 14375, 173, 3, 67, "Output",ExpressionUUID->"621ca10b-eff8-834f-a283-22ac03a895a3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[578672, 14383, 215, 6, 94, "Input",ExpressionUUID->"afb7855c-8700-d444-926c-6d96abe14e67"], +Cell[578890, 14391, 174, 3, 67, "Output",ExpressionUUID->"3737ba01-5151-874d-9846-1c8b07e42d7a"] +}, Open ]], +Cell[579079, 14397, 188, 4, 59, "Input",ExpressionUUID->"927ca6ed-9dbf-4fe4-877b-39074ae002c3"] } ] *) -(* End of internal cache information *) - diff --git a/Pu240_798-811_TitovAA/164-76_h_Pu240_18-19/h_164-76_Pu240_18-19_pr_Qw2.nb b/Pu240_798-811_TitovAA/164-76_h_Pu240_18-19/h_164-76_Pu240_18-19_pr_Qw2.nb index 1226680..1801a24 100644 --- a/Pu240_798-811_TitovAA/164-76_h_Pu240_18-19/h_164-76_Pu240_18-19_pr_Qw2.nb +++ b/Pu240_798-811_TitovAA/164-76_h_Pu240_18-19/h_164-76_Pu240_18-19_pr_Qw2.nb @@ -3,25 +3,4972 @@ (*** 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[ 606785, 14773] +NotebookOptionsPosition[ 567942, 14152] +NotebookOutlinePosition[ 568353, 14169] +CellTagsIndexPosition[ 568310, 14166] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f1", "="}]], "Input", + RowBox[{"d", "=", "1.78"}]], "Input", CellChangeTimes->{ - 3.9918501413985214`*^9},ExpressionUUID->"5894836c-9594-0940-b94c-\ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.993816332414463*^9, 3.993816395113246*^9}, { + 3.99408327105175*^9, + 3.99408327225659*^9}},ExpressionUUID->"38b4ba9f-54bf-49b6-8ef2-\ +ae25a682d3c2"], + +Cell[BoxData["1.78`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, {3.9938163104908867`*^9, 3.993816400323968*^9}}, + CellLabel-> + "Out[407]=",ExpressionUUID->"406e3fba-3b98-4a85-9f9a-9cfa05191fea"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.993816070416484*^9, 3.9938160711424847`*^9}}, + CellLabel-> + "In[408]:=",ExpressionUUID->"3303f80b-9faa-4ded-bcaa-9ff03c73760f"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, {3.993816310783677*^9, 3.9938164003801527`*^9}}, + CellLabel-> + "Out[408]=",ExpressionUUID->"b0a072b2-0877-4694-97ca-c9c0cbf0be77"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "164"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.993816075114204*^9, 3.993816075786501*^9}}, + CellLabel-> + "In[409]:=",ExpressionUUID->"3787a4cc-7be8-455c-b8d3-7dfd7d3ae507"], + +Cell[BoxData["164"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, {3.99381631080079*^9, 3.9938164003966837`*^9}}, + CellLabel-> + "Out[409]=",ExpressionUUID->"68764c14-3cbc-418a-8802-05ea8d1a7912"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel-> + "In[410]:=",ExpressionUUID->"2d4b377c-cdb6-44b2-8f4e-a265cf477ea0"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, {3.9938163108190804`*^9, 3.99381640041328*^9}}, + CellLabel-> + "Out[410]=",ExpressionUUID->"bdd82d80-457d-4d31-b425-2ad3eb375d0e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel-> + "In[411]:=",ExpressionUUID->"aa3ae721-64f7-469e-a03c-126d9d2e576e"], + +Cell[BoxData["0.5445000000000001`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, {3.99381631083608*^9, 3.9938164004361677`*^9}}, + CellLabel-> + "Out[411]=",ExpressionUUID->"25f4332d-ac61-4d70-bd4b-87188ad16bb6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel-> + "In[412]:=",ExpressionUUID->"7bddbfd1-853f-4617-a8f9-b3ff729d6fb5"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, {3.99381631085299*^9, 3.99381640045368*^9}}, + CellLabel-> + "Out[412]=",ExpressionUUID->"958f4c5d-69ff-475e-a182-d2edacd91f8b"] +}, 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[413]:=",ExpressionUUID->"4cd2e74b-ef7b-402b-b461-b1f02cffab88"], + +Cell[BoxData["6.349496262766175`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, {3.993816310870123*^9, 3.993816400471637*^9}}, + CellLabel-> + "Out[413]=",ExpressionUUID->"26d15f57-f959-4534-a598-68945d363e49"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel-> + "In[414]:=",ExpressionUUID->"215c89e6-6f63-432b-b3fd-0bb65bd35801"], + +Cell[BoxData["4.913555357735675`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, {3.993816310887587*^9, 3.993816400489262*^9}}, + CellLabel-> + "Out[414]=",ExpressionUUID->"0db41cdb-cdfa-4eb0-af5b-c7f68a790d33"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.96357"}]], "Input", + CellChangeTimes->{ + 3.991799283179735*^9, {3.993816155315236*^9, 3.99381616557413*^9}}, + CellLabel-> + "In[415]:=",ExpressionUUID->"3c8dbddf-5c12-4a08-9069-7aa7b259ca7a"], + +Cell[BoxData["0.96357`"], "Output", + CellChangeTimes->{{3.9938163109056883`*^9, 3.993816400504654*^9}}, + CellLabel-> + "Out[415]=",ExpressionUUID->"b7e538a8-5b4b-49b1-8dbf-398c4fdb6b4b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.39003"}]], "Input", + CellChangeTimes->{ + 3.991799280663351*^9, {3.993816167313641*^9, 3.9938161733246517`*^9}}, + CellLabel-> + "In[416]:=",ExpressionUUID->"0934ee55-d18f-47f3-9cfc-617eaa33d263"], + +Cell[BoxData["0.39003`"], "Output", + CellChangeTimes->{{3.993816310923224*^9, 3.993816400519388*^9}}, + CellLabel-> + "Out[416]=",ExpressionUUID->"0bb2f425-c8f5-4724-a6c2-b2d464c5b119"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel-> + "In[417]:=",ExpressionUUID->"b9c9b9e9-83a3-4322-946a-b3701179b981"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, {3.993816310942574*^9, 3.993816400534342*^9}}, + CellLabel-> + "Out[417]=",ExpressionUUID->"c0c7ba5d-5e4c-4d0a-96e2-63c47ed44391"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel-> + "In[418]:=",ExpressionUUID->"7be0cd7c-4e19-4f1d-885b-10e1292c87f2"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, {3.993816310960237*^9, 3.993816400549685*^9}}, + CellLabel-> + "Out[418]=",ExpressionUUID->"3640621f-c858-4e8d-8fc5-007130271cc3"] +}, 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[419]:=",ExpressionUUID->"f8a3824a-8637-4088-a5c9-872ab8b3f906"], + +Cell[BoxData["2.4652625900301657`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, {3.993816310977528*^9, 3.993816400564805*^9}}, + CellLabel-> + "Out[419]=",ExpressionUUID->"c99ce94e-993c-46d3-835b-a814349436c2"] +}, 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[420]:=",ExpressionUUID->"2710d08a-ae53-4779-b39b-ebdcc64ea2af"], + +Cell[BoxData["1.4266899039519758`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, {3.993816310993836*^9, 3.993816400579666*^9}}, + CellLabel-> + "Out[420]=",ExpressionUUID->"6ad47d6b-9669-4867-982e-a3de133998db"] +}, 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[421]:=",ExpressionUUID->"b53ce7c3-5a98-4ba3-b577-6ed97ad936a7"], + +Cell[BoxData["0.3750149455401738`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, {3.993816311010377*^9, 3.993816400594367*^9}}, + CellLabel-> + "Out[421]=",ExpressionUUID->"1fe64173-1c93-4358-84fd-266e88eba0c1"] +}, 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[422]:=",ExpressionUUID->"ccc28c99-7875-4167-b7ff-e3c7e035b3ce"], + +Cell[BoxData[ + RowBox[{"-", "0.07977775132414705`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, {3.993816311027995*^9, 3.9938164006102667`*^9}}, + CellLabel-> + "Out[422]=",ExpressionUUID->"4a76fcdb-6d1a-44ca-a088-b7304a597c83"] +}, 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[423]:=",ExpressionUUID->"17ba3f3b-3981-4899-a7db-6b37bb7eb087"], + +Cell[BoxData[ + RowBox[{"-", "0.6284430544064189`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, {3.993816311033072*^9, 3.993816400624234*^9}}, + CellLabel-> + "Out[423]=",ExpressionUUID->"2752a478-06f0-4ecc-9a87-9041f4db7bd7"] +}, 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[424]:=",ExpressionUUID->"39dbd36d-36a2-4a23-9397-5002551c38f1"], + +Cell[BoxData["0.7294972450656219`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, {3.993816311062511*^9, 3.993816400639195*^9}}, + CellLabel-> + "Out[424]=",ExpressionUUID->"c357015f-184d-4b34-9829-e3bd1baeb582"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel-> + "In[425]:=",ExpressionUUID->"9bcb146c-d317-4522-b712-51ea55f6b02c"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, {3.9938163110790157`*^9, 3.993816400654043*^9}}, + CellLabel-> + "Out[425]=",ExpressionUUID->"c1a75283-4f6d-4a6a-8430-73bb67ee7120"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel-> + "In[426]:=",ExpressionUUID->"c2d0ca44-85be-421a-b28d-c7767ebcd082"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, {3.99381631109599*^9, 3.993816400670066*^9}}, + CellLabel-> + "Out[426]=",ExpressionUUID->"669571af-362c-4019-be94-6035fb6ec54f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel-> + "In[427]:=",ExpressionUUID->"95036d73-7d19-4d9f-aebd-e1140ff405e7"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, {3.99381631111339*^9, 3.99381640068589*^9}}, + CellLabel-> + "Out[427]=",ExpressionUUID->"78b9c731-22f7-418d-b98b-4128ce0470e1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel-> + "In[428]:=",ExpressionUUID->"565c2c4b-9c72-41ce-b1dd-d2f0fb4c477d"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, {3.993816311129064*^9, 3.993816400702038*^9}}, + CellLabel-> + "Out[428]=",ExpressionUUID->"4363c20d-cee9-4502-974b-c5dcc61716d0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel-> + "In[429]:=",ExpressionUUID->"133af694-f4d4-4cd7-a442-bd3a038c6094"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, {3.993816311145554*^9, 3.9938164007190237`*^9}}, + CellLabel-> + "Out[429]=",ExpressionUUID->"20f2022e-3320-4d4e-b49a-0231fe62f324"] +}, 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.9938161841110783`*^9, 3.9938161842569923`*^9}}, + CellLabel-> + "In[430]:=",ExpressionUUID->"f78cbb93-eb7a-4557-81c5-c1e29c95dfe9"], + +Cell[BoxData["66"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, {3.993816311161642*^9, 3.993816400736003*^9}}, + CellLabel-> + "Out[430]=",ExpressionUUID->"e6e5f46c-4908-4fbd-885f-9f935f08e667"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, {3.9938161866045017`*^9, 3.99381618669993*^9}}, + CellLabel-> + "In[431]:=",ExpressionUUID->"41a62cac-9938-4e2c-b950-12ae5fa097b7"], + +Cell[BoxData["28"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, {3.993816311177599*^9, 3.993816400757028*^9}}, + CellLabel-> + "Out[431]=",ExpressionUUID->"9b55dfcb-c473-40ee-b76b-5c6523d40e33"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel-> + "In[432]:=",ExpressionUUID->"e2ceff8c-3dbf-4275-98ba-286c26da6763"], + +Cell[BoxData["76"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, {3.993816311193193*^9, 3.993816400775269*^9}}, + CellLabel-> + "Out[432]=",ExpressionUUID->"e73e599c-981f-45f5-ab72-8dce8fba7052"] +}, 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[433]:=",ExpressionUUID->"a725844d-015d-4632-9657-5304169611d8"], + +Cell[BoxData["0.11156611039794609`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, {3.993816311209059*^9, 3.993816400793248*^9}}, + CellLabel-> + "Out[433]=",ExpressionUUID->"9430d311-b136-4610-8769-4fb19588a888"] +}, 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[434]:=",ExpressionUUID->"3319928f-d9da-4c77-93ed-73db22a0fcbd"], + +Cell[BoxData[ + RowBox[{"-", "2.562272143774069`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, {3.993816311224965*^9, 3.993816400810424*^9}}, + CellLabel-> + "Out[434]=",ExpressionUUID->"62cbd768-4bf9-4aa2-b48a-e6dcc9893faf"] +}, 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[435]:=",ExpressionUUID->"ecb53369-f77b-4dd2-8e8f-1297027565fb"], + +Cell[BoxData["17.58253870834664`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, {3.993816311240906*^9, 3.9938164008326178`*^9}}, + CellLabel-> + "Out[435]=",ExpressionUUID->"d1393760-2978-4d11-97a0-852b384b38e9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel-> + "In[436]:=",ExpressionUUID->"a8a29057-1886-46c0-baa4-e09a6ce3e8c8"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, {3.993816311257287*^9, 3.993816400852189*^9}}, + CellLabel-> + "Out[436]=",ExpressionUUID->"73cb7a46-15c5-41d4-a96b-567509b2b468"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "2"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, + 3.993816201054872*^9}, + CellLabel-> + "In[437]:=",ExpressionUUID->"79f6cf1e-8d99-4ed4-b0ee-520490dfe89e"], + +Cell[BoxData["2"], "Output", + CellChangeTimes->{{3.99381631127295*^9, 3.993816400871359*^9}}, + CellLabel-> + "Out[437]=",ExpressionUUID->"a52a3788-994f-42ca-b9e6-4f882ccb7832"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel-> + "In[438]:=",ExpressionUUID->"77019c38-b57b-4de8-be3e-591a23347d7b"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.805"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.993816204826747*^9, 3.993816206119349*^9}}, + CellLabel-> + "In[439]:=",ExpressionUUID->"fe438279-c0e6-4c37-bc40-51bbdb69d41c"], + +Cell[BoxData["0.805`"], "Output", + CellChangeTimes->{{3.9938163113036537`*^9, 3.993816400895072*^9}}, + CellLabel-> + "Out[439]=",ExpressionUUID->"b7359a20-bbb2-4aa2-aa24-8baea136389e"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel-> + "In[440]:=",ExpressionUUID->"f0ba7773-0e2a-4943-8f3d-4b8d3279b2bd"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "2.65"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.993816211321389*^9, 3.9938162195378838`*^9}}, + CellLabel-> + "In[441]:=",ExpressionUUID->"fd018164-ede3-4627-9926-b692d32fb39a"], + +Cell[BoxData["2.65`"], "Output", + CellChangeTimes->{{3.9938163113365593`*^9, 3.993816400917997*^9}}, + CellLabel-> + "Out[441]=",ExpressionUUID->"2f05c499-39d0-4374-9b26-480cebcfa3b5"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel-> + "In[442]:=",ExpressionUUID->"43ae2c3c-4998-4ce6-8260-1ba43d05f347"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.175"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, {3.9938162225291348`*^9, 3.993816223644052*^9}}, + CellLabel-> + "In[443]:=",ExpressionUUID->"843f9a7c-7692-4007-a356-14369f2e140b"], + +Cell[BoxData["1.175`"], "Output", + CellChangeTimes->{{3.993816311366596*^9, 3.993816400940548*^9}}, + CellLabel-> + "Out[443]=",ExpressionUUID->"021f7f5c-162b-453c-815a-5f00b342356d"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel-> + "In[444]:=",ExpressionUUID->"ce522a44-8ee4-47dc-a321-dc188837389e"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "0.795"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, {3.9938162281192904`*^9, + 3.993816230831416*^9}}, + CellLabel-> + "In[445]:=",ExpressionUUID->"979b8d8b-828d-4454-b2c3-c9a4f483082d"], + +Cell[BoxData["0.795`"], "Output", + CellChangeTimes->{{3.993816311396524*^9, 3.993816400963438*^9}}, + CellLabel-> + "Out[445]=",ExpressionUUID->"493c810b-5f34-4368-b0a8-f663c5c5ddf7"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel-> + "In[446]:=",ExpressionUUID->"6c4802fd-5971-4e70-ae0c-09e85391b46c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.595"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.993816234625985*^9, + 3.993816236062304*^9}}, + CellLabel-> + "In[447]:=",ExpressionUUID->"c74dcd87-311e-441d-ad79-bd2c01ea5412"], + +Cell[BoxData["0.595`"], "Output", + CellChangeTimes->{{3.993816311427802*^9, 3.9938164009852858`*^9}}, + CellLabel-> + "Out[447]=",ExpressionUUID->"bfff1e19-bbd4-4788-9313-897907306d5c"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel-> + "In[448]:=",ExpressionUUID->"e5ee8519-4749-4966-b919-2736f220f0e7"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "1.47"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.993816238161579*^9, + 3.9938162401131277`*^9}}, + CellLabel-> + "In[449]:=",ExpressionUUID->"b7008e3c-af75-498b-8407-88465d3d9964"], + +Cell[BoxData["1.47`"], "Output", + CellChangeTimes->{{3.993816311458173*^9, 3.9938164010070257`*^9}}, + CellLabel-> + "Out[449]=",ExpressionUUID->"a7c06ada-b8e7-47fe-ae4f-bcc3633938d2"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel-> + "In[450]:=",ExpressionUUID->"98bb308b-e00b-4ff8-ba75-3495421b9524"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "0.655"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, {3.993816241842022*^9, 3.993816245056822*^9}}, + CellLabel-> + "In[451]:=",ExpressionUUID->"25bf3be4-d3ad-4161-a096-a103b208607a"], + +Cell[BoxData["0.655`"], "Output", + CellChangeTimes->{{3.993816311488914*^9, 3.993816401028906*^9}}, + CellLabel-> + "Out[451]=",ExpressionUUID->"42855f81-473c-47f9-88b1-d5f379b75ad2"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel-> + "In[452]:=",ExpressionUUID->"fee96512-9988-4a57-959f-d5595ab7a1ed"], + +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[453]:=",ExpressionUUID->"03651c9f-474a-4861-b71e-1977e65d1593"], + +Cell[BoxData["0.10932371372103143`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, {3.993816311598846*^9, 3.993816401077582*^9}}, + CellLabel-> + "Out[453]=",ExpressionUUID->"632c917c-d6ae-4179-be4b-8f8adca35a87"] +}, 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[454]:=",ExpressionUUID->"fff0dfbf-b7d7-48e3-a0e0-113f126cfa3b"], + +Cell[BoxData["9.790243175904545`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, {3.9938163116474113`*^9, 3.993816401110285*^9}}, + CellLabel-> + "Out[454]=",ExpressionUUID->"4c245599-b097-4aae-a1d3-867d38b7b933"] +}, 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[455]:=",ExpressionUUID->"0fbd108c-22d6-4eb5-a83f-71368ad57adf"], + +Cell[BoxData[ + RowBox[{"-", "16.70631937398676`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, {3.993816311688833*^9, 3.99381640114319*^9}}, + CellLabel-> + "Out[455]=",ExpressionUUID->"67b76dcf-acfc-4a8a-a0ea-20a3245851fe"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U41", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", "b2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + 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]", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "nn1", "*", "R1", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "nn1"}], ")"}], "/", "R1"}], ")"}], + "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "n2", "*", "R2", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "n2"}], ")"}], "/", "R2"}], ")"}], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], "/", + RowBox[{"(", + 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]", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "nn1", "*", "R1", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "nn1"}], ")"}], "/", "R1"}], ")"}], + "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "n2", "*", "R2", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "n2"}], ")"}], "/", "R2"}], ")"}], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], "/", + RowBox[{"(", + 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]", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "nn1", "*", "R1", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "nn1"}], ")"}], "/", "R1"}], ")"}], + "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "n2", "*", "R2", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "n2"}], ")"}], "/", "R2"}], ")"}], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], "/", + RowBox[{"(", + 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]", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "n1", "*", "R1", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "n1"}], ")"}], "/", "R1"}], ")"}], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "nn2", "*", "R2", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "nn2"}], ")"}], "/", "R2"}], ")"}], + "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], "/", + RowBox[{"(", + 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]", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "n1", "*", "R1", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "n1"}], ")"}], "/", "R1"}], ")"}], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "nn2", "*", "R2", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "nn2"}], ")"}], "/", "R2"}], ")"}], + "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], "/", + RowBox[{"(", + 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]", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "n1", "*", "R1", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "n1"}], ")"}], "/", "R1"}], ")"}], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "nn2", "*", "R2", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "nn2"}], ")"}], "/", "R2"}], ")"}], + "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], "/", + RowBox[{"(", + 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]", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "n1", "*", "R1", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "n1"}], ")"}], "/", "R1"}], ")"}], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "nn2", "*", "R2", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "nn2"}], ")"}], "/", "R2"}], ")"}], + "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], "/", + RowBox[{"(", + 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]", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "n1", "*", "R1", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "n1"}], ")"}], "/", "R1"}], ")"}], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"2", "\[Pi]"}], ")"}]}], "*", "n2", "*", "R2", "*", + "p0"}], ")"}], "/", + RowBox[{"(", + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], ")"}]}], + ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"\[Pi]", "*", "n2"}], ")"}], "/", "R2"}], ")"}], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], "/", + RowBox[{"(", + 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[456]:=",ExpressionUUID->"9cc386c1-c114-496a-90f8-367ccb9aabf7"], + +Cell[BoxData[ + RowBox[{"-", "21.21244105904564`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, {3.99381631175032*^9, 3.993816401178795*^9}}, + CellLabel-> + "Out[456]=",ExpressionUUID->"6aeb2d5e-d99b-492d-ab39-505092912a62"] +}, 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[457]:=",ExpressionUUID->"e40b8eb7-8608-476d-abf0-dd50b747c2d4"], + +Cell[BoxData[ + RowBox[{"-", "64.11746269097033`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, {3.993816311810264*^9, 3.993816401216831*^9}}, + CellLabel-> + "Out[457]=",ExpressionUUID->"44059afa-01a3-4009-be0d-f15212372938"] +}, 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[458]:=",ExpressionUUID->"ef73288a-49ed-4951-8dcf-ee3fa395ebad"], + +Cell[BoxData[ + RowBox[{"-", "162.12919789671096`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, {3.993816311880077*^9, 3.9938164012606087`*^9}}, + CellLabel-> + "Out[458]=",ExpressionUUID->"df1b33cb-45db-4c3f-9a33-76248ebf3fa1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel-> + "In[459]:=",ExpressionUUID->"e1b324d1-73b0-4899-8964-91d10b73e793"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, {3.993816311896537*^9, 3.993816401279429*^9}}, + CellLabel-> + "Out[459]=",ExpressionUUID->"34f189b4-4388-4e16-acdb-ede25cb814e9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel-> + "In[460]:=",ExpressionUUID->"acab4541-1b13-4655-8fdd-88c66483857f"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, {3.993816311909266*^9, 3.993816401294653*^9}}, + CellLabel-> + "Out[460]=",ExpressionUUID->"ff3682c2-1fe6-4c86-8497-107d91e4ed4a"] +}, 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[461]:=",ExpressionUUID->"2c6d69d7-dd5c-492a-8527-1474b4f1cdeb"], + +Cell[BoxData["137.278680377525`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, {3.993816311921467*^9, 3.993816401310416*^9}}, + CellLabel-> + "Out[461]=",ExpressionUUID->"8856d5e6-440a-4b9e-9c01-7561f2d98d28"] +}, 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[462]:=",ExpressionUUID->"047071bb-0f99-429f-b343-bc023b01c195"], + +Cell[BoxData[ + RowBox[{"-", "124.2735331996648`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, {3.9938163119334393`*^9, 3.993816401325693*^9}}, + CellLabel-> + "Out[462]=",ExpressionUUID->"fcf2ea08-19d0-4aea-a8da-7a9236737a54"] +}, 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[463]:=",ExpressionUUID->"b34faa9d-9966-4c24-b3a5-bddaa1c1afcd"], + +Cell[BoxData["136.79424869488386`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, {3.993816311945665*^9, 3.993816401340849*^9}}, + CellLabel-> + "Out[463]=",ExpressionUUID->"283ebefd-8842-4fbd-ab0f-425e63507696"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel-> + "In[464]:=",ExpressionUUID->"8d3a22ef-5bae-4a8d-a727-5cf6fdd363dd"], + +Cell[BoxData["0.3750149455401738`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, {3.9938163119574957`*^9, 3.993816401363001*^9}}, + CellLabel-> + "Out[464]=",ExpressionUUID->"6e60ae6a-dce1-46b6-ada7-419bcae323b9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel-> + "In[465]:=",ExpressionUUID->"e135c10d-1ad4-467b-a4e4-d6c131377bd2"], + +Cell[BoxData[ + RowBox[{"-", "0.07977775132414705`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, {3.9938163119693823`*^9, 3.99381640137784*^9}}, + CellLabel-> + "Out[465]=",ExpressionUUID->"59d11cab-ee69-450b-85a4-5a03854f1c87"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel-> + "In[466]:=",ExpressionUUID->"016a452b-0935-4767-8c52-867fc2e2db3d"], + +Cell[BoxData[ + RowBox[{"-", "0.6284430544064189`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, {3.9938163119814787`*^9, 3.993816401392654*^9}}, + CellLabel-> + "Out[466]=",ExpressionUUID->"ff099a91-06b3-4687-8f21-8daae70a3cb5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel-> + "In[467]:=",ExpressionUUID->"70d6650f-2683-4ae0-9b6a-57e1dba59bb6"], + +Cell[BoxData["0.7294972450656219`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, {3.993816311994028*^9, 3.99381640140742*^9}}, + CellLabel-> + "Out[467]=",ExpressionUUID->"64f3054d-65f6-4789-8254-861754130fe4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel-> + "In[468]:=",ExpressionUUID->"eb835526-c28e-4374-a360-7cc95750819b"], + +Cell[BoxData["2.4652625900301657`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, {3.993816312006279*^9, 3.99381640142347*^9}}, + CellLabel-> + "Out[468]=",ExpressionUUID->"1a25a1c6-73bd-4cac-b185-9d9f2be106d0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel-> + "In[469]:=",ExpressionUUID->"e9d46a69-f2c3-4eae-8422-f7a11e9f93ee"], + +Cell[BoxData["1.4266899039519758`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, {3.993816312018448*^9, 3.993816401439527*^9}}, + CellLabel-> + "Out[469]=",ExpressionUUID->"d5dea28d-e2eb-4066-a02e-60bcb1f4ac54"] +}, 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[470]:=",ExpressionUUID->"27220227-e6ad-4017-8dda-993781a4c253"], + +Cell[BoxData[ + RowBox[{"-", "36.59398535367672`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, {3.9938163120312033`*^9, 3.9938164014556637`*^9}}, + CellLabel-> + "Out[470]=",ExpressionUUID->"300fd3e7-b906-40d2-ba26-9a11bd8830b7"] +}, 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[471]:=",ExpressionUUID->"88b08446-9f3e-4bf9-adeb-e51633506be3"], + +Cell[BoxData[ + RowBox[{"-", "6.706084141019179`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, {3.99381631203615*^9, 3.99381640147013*^9}}, + CellLabel-> + "Out[471]=",ExpressionUUID->"b48b0644-6736-489b-ac5f-269df6006584"] +}, 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[472]:=",ExpressionUUID->"51a67b8b-4b2f-4ba5-8b74-00330c252eb9"], + +Cell[BoxData["100.68469502384829`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, {3.9938163120484467`*^9, 3.993816401484993*^9}}, + CellLabel-> + "Out[472]=",ExpressionUUID->"b04a547b-3eab-42a1-888f-825a5f6b7567"] +}, 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[473]:=",ExpressionUUID->"f3430c54-256a-4826-8309-198312027df4"], + +Cell[BoxData[ + RowBox[{"-", "124.2735331996648`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, {3.99381631206076*^9, 3.9938164015001698`*^9}}, + CellLabel-> + "Out[473]=",ExpressionUUID->"9e00af96-eba7-4ea7-ba41-1c632637f718"] +}, 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[474]:=",ExpressionUUID->"d41d633d-6eba-4229-8b2f-56b2d4249141"], + +Cell[BoxData["130.0881645538647`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, {3.9938163120760603`*^9, 3.993816401514661*^9}}, + CellLabel-> + "Out[474]=",ExpressionUUID->"cb18e807-1f13-44ca-a808-f6e1f52d0b72"] +}, 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[475]:=",ExpressionUUID->"3f4bf9b9-5644-4849-9111-ea0caa4ab21e"], + +Cell[BoxData["37.11735851847544`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, {3.993816312091509*^9, 3.9938164015309277`*^9}}, + CellLabel-> + "Out[475]=",ExpressionUUID->"735ac1f7-3a02-4e1f-bc3c-f8f211e9add1"] +}, 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[476]:=",ExpressionUUID->"781db07e-d341-40d3-b5dc-12e30e9901c3"], + +Cell[BoxData["835.6594550727934`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, {3.9938163121038647`*^9, 3.993816401547245*^9}}, + CellLabel-> + "Out[476]=",ExpressionUUID->"5361d362-fbe4-481f-8e84-dc09b7e1b605"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"f1", "=", "0.4930475122"}]], "Input", + CellChangeTimes->{3.9918501413985214`*^9, + 3.994083453667295*^9},ExpressionUUID->"5894836c-9594-0940-b94c-\ 299085c765cc"], Cell[BoxData[""], "Input", @@ -30,9 +4977,9 @@ Cell[BoxData[""], "Input", 8fab318cd4b7"], Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", - CellChangeTimes->{ - 3.9918501402114105`*^9},ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-\ + RowBox[{"f2", "=", "0.2291459505"}]], "Input", + CellChangeTimes->{3.9918501402114105`*^9, + 3.994083457206149*^9},ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-\ 092c5143dcf0"], Cell[BoxData[""], "Input", @@ -1581,8 +6528,8 @@ rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS "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[{ @@ -2818,9 +7765,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.005107"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.015156"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.024717"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.033493"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.041238"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.047751"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.052907"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.056635"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.058943"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.059883"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.059573"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.058155"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.055811"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.052723"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.049089"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.045084"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.040884"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.03663"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.03245"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.028437"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.024669"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.02119"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.018036"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.015213"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.012726"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.010557"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.008691"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.007099"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.005759"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.004637"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.00371"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.994083514640395*^9},ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-\ b938908ab9a4"], Cell[BoxData[ @@ -8583,8 +13593,8 @@ fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo "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[{ @@ -9132,12 +14142,18 @@ Cell[BoxData[ d2cfa007cfcf"], Cell[BoxData["0.11028946354837708`"], "Output",ExpressionUUID->"8f1edf59-aed7-914f-9d19-1949d2a555d6"] -}, Open ]] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input", + CellChangeTimes->{{3.994083574793016*^9, + 3.994083578671886*^9}},ExpressionUUID->"35170b17-b067-408f-8497-\ +dfae76b7127e"] }, -WindowSize->{718.5, 729.75}, -WindowMargins->{{6, Automatic}, {Automatic, 4.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->"f83c5602-f0d5-2d47-8a1b-23029521caf0" ] @@ -9152,359 +14168,614 @@ 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, 330, 7, 36, "Input",ExpressionUUID->"38b4ba9f-54bf-49b6-8ef2-ae25a682d3c2"], +Cell[909, 31, 208, 4, 41, "Output",ExpressionUUID->"406e3fba-3b98-4a85-9f9a-9cfa05191fea"] }, 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[1154, 40, 253, 5, 36, "Input",ExpressionUUID->"3303f80b-9faa-4ded-bcaa-9ff03c73760f"], +Cell[1410, 47, 208, 4, 41, "Output",ExpressionUUID->"b0a072b2-0877-4694-97ca-c9c0cbf0be77"] }, 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[1655, 56, 226, 5, 36, "Input",ExpressionUUID->"3787a4cc-7be8-455c-b8d3-7dfd7d3ae507"], +Cell[1884, 63, 207, 4, 41, "Output",ExpressionUUID->"68764c14-3cbc-418a-8802-05ea8d1a7912"] }, 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[2128, 72, 180, 4, 36, "Input",ExpressionUUID->"2d4b377c-cdb6-44b2-8f4e-a265cf477ea0"], +Cell[2311, 78, 207, 4, 41, "Output",ExpressionUUID->"bdd82d80-457d-4d31-b425-2ad3eb375d0e"] }, 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[2555, 87, 262, 8, 54, "Input",ExpressionUUID->"aa3ae721-64f7-469e-a03c-126d9d2e576e"], +Cell[2820, 97, 223, 4, 41, "Output",ExpressionUUID->"25f4332d-ac61-4d70-bd4b-87188ad16bb6"] }, 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[3080, 106, 136, 3, 36, "Input",ExpressionUUID->"7bddbfd1-853f-4617-a8f9-b3ff729d6fb5"], +Cell[3219, 111, 206, 4, 41, "Output",ExpressionUUID->"958f4c5d-69ff-475e-a182-d2edacd91f8b"] }, 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[3462, 120, 281, 7, 36, "Input",ExpressionUUID->"4cd2e74b-ef7b-402b-b461-b1f02cffab88"], +Cell[3746, 129, 221, 4, 41, "Output",ExpressionUUID->"26d15f57-f959-4534-a598-68945d363e49"] }, 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[4004, 138, 262, 8, 36, "Input",ExpressionUUID->"215c89e6-6f63-432b-b3fd-0bb65bd35801"], +Cell[4269, 148, 221, 4, 41, "Output",ExpressionUUID->"0db41cdb-cdfa-4eb0-af5b-c7f68a790d33"] }, 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[4527, 157, 229, 5, 36, "Input",ExpressionUUID->"3c8dbddf-5c12-4a08-9069-7aa7b259ca7a"], +Cell[4759, 164, 186, 3, 41, "Output",ExpressionUUID->"b7e538a8-5b4b-49b1-8dbf-398c4fdb6b4b"] }, 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[4982, 172, 232, 5, 36, "Input",ExpressionUUID->"0934ee55-d18f-47f3-9cfc-617eaa33d263"], +Cell[5217, 179, 184, 3, 41, "Output",ExpressionUUID->"0bb2f425-c8f5-4724-a6c2-b2d464c5b119"] }, 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[5438, 187, 133, 3, 51, "Input",ExpressionUUID->"b9c9b9e9-83a3-4322-946a-b3701179b981"], +Cell[5574, 192, 204, 4, 58, "Output",ExpressionUUID->"c0c7ba5d-5e4c-4d0a-96e2-63c47ed44391"] }, 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[5815, 201, 133, 3, 51, "Input",ExpressionUUID->"7be0cd7c-4e19-4f1d-885b-10e1292c87f2"], +Cell[5951, 206, 204, 4, 58, "Output",ExpressionUUID->"3640621f-c858-4e8d-8fc5-007130271cc3"] }, 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[6192, 215, 561, 20, 140, "Input",ExpressionUUID->"f8a3824a-8637-4088-a5c9-872ab8b3f906"], +Cell[6756, 237, 222, 4, 58, "Output",ExpressionUUID->"c99ce94e-993c-46d3-835b-a814349436c2"] }, 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[7015, 246, 561, 20, 140, "Input",ExpressionUUID->"2710d08a-ae53-4779-b39b-ebdcc64ea2af"], +Cell[7579, 268, 222, 4, 58, "Output",ExpressionUUID->"6ad47d6b-9669-4867-982e-a3de133998db"] }, 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[7838, 277, 1592, 51, 190, "Input",ExpressionUUID->"b53ce7c3-5a98-4ba3-b577-6ed97ad936a7"], +Cell[9433, 330, 220, 4, 58, "Output",ExpressionUUID->"1fe64173-1c93-4358-84fd-266e88eba0c1"] }, 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[9690, 339, 1426, 47, 190, "Input",ExpressionUUID->"ccc28c99-7875-4167-b7ff-e3c7e035b3ce"], +Cell[11119, 388, 240, 5, 58, "Output",ExpressionUUID->"4a76fcdb-6d1a-44ca-a088-b7304a597c83"] }, 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[11396, 398, 1335, 45, 141, "Input",ExpressionUUID->"17ba3f3b-3981-4899-a7db-6b37bb7eb087"], +Cell[12734, 445, 239, 5, 58, "Output",ExpressionUUID->"2752a478-06f0-4ecc-9a87-9041f4db7bd7"] }, 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[13010, 455, 1592, 51, 190, "Input",ExpressionUUID->"39dbd36d-36a2-4a23-9397-5002551c38f1"], +Cell[14605, 508, 218, 4, 58, "Output",ExpressionUUID->"c357015f-184d-4b34-9829-e3bd1baeb582"] }, 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[14860, 517, 135, 3, 51, "Input",ExpressionUUID->"9bcb146c-d317-4522-b712-51ea55f6b02c"], +Cell[14998, 522, 206, 4, 58, "Output",ExpressionUUID->"c1a75283-4f6d-4a6a-8430-73bb67ee7120"] }, 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[15241, 531, 137, 3, 51, "Input",ExpressionUUID->"c2d0ca44-85be-421a-b28d-c7767ebcd082"], +Cell[15381, 536, 205, 4, 58, "Output",ExpressionUUID->"669571af-362c-4019-be94-6035fb6ec54f"] }, 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[15623, 545, 138, 3, 51, "Input",ExpressionUUID->"95036d73-7d19-4d9f-aebd-e1140ff405e7"], +Cell[15764, 550, 206, 4, 58, "Output",ExpressionUUID->"78b9c731-22f7-418d-b98b-4128ce0470e1"] }, 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[16007, 559, 223, 5, 51, "Input",ExpressionUUID->"565c2c4b-9c72-41ce-b1dd-d2f0fb4c477d"], +Cell[16233, 566, 221, 5, 58, "Output",ExpressionUUID->"4363c20d-cee9-4502-974b-c5dcc61716d0"] }, 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[16491, 576, 138, 3, 51, "Input",ExpressionUUID->"133af694-f4d4-4cd7-a442-bd3a038c6094"], +Cell[16632, 581, 210, 4, 58, "Output",ExpressionUUID->"20f2022e-3320-4d4e-b49a-0231fe62f324"] }, 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[16879, 590, 330, 6, 51, "Input",ExpressionUUID->"f78cbb93-eb7a-4557-81c5-c1e29c95dfe9"], +Cell[17212, 598, 205, 4, 58, "Output",ExpressionUUID->"e6e5f46c-4908-4fbd-885f-9f935f08e667"] }, 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[17454, 607, 301, 6, 51, "Input",ExpressionUUID->"41a62cac-9938-4e2c-b950-12ae5fa097b7"], +Cell[17758, 615, 205, 4, 58, "Output",ExpressionUUID->"9b55dfcb-c473-40ee-b76b-5c6523d40e33"] }, 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[18000, 624, 223, 5, 51, "Input",ExpressionUUID->"e2ceff8c-3dbf-4275-98ba-286c26da6763"], +Cell[18226, 631, 203, 4, 58, "Output",ExpressionUUID->"e73e599c-981f-45f5-ab72-8dce8fba7052"] }, 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[18466, 640, 354, 11, 74, "Input",ExpressionUUID->"a725844d-015d-4632-9657-5304169611d8"], +Cell[18823, 653, 223, 4, 58, "Output",ExpressionUUID->"9430d311-b136-4610-8769-4fb19588a888"] }, 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[19083, 662, 354, 11, 74, "Input",ExpressionUUID->"3319928f-d9da-4c77-93ed-73db22a0fcbd"], +Cell[19440, 675, 238, 5, 58, "Output",ExpressionUUID->"62cbd768-4bf9-4aa2-b48a-e6dcc9893faf"] }, 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[19715, 685, 998, 27, 142, "Input",ExpressionUUID->"ecb53369-f77b-4dd2-8e8f-1297027565fb"], +Cell[20716, 714, 223, 4, 58, "Output",ExpressionUUID->"d1393760-2978-4d11-97a0-852b384b38e9"] }, 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[20976, 723, 203, 4, 51, "Input",ExpressionUUID->"a8a29057-1886-46c0-baa4-e09a6ce3e8c8"], +Cell[21182, 729, 204, 4, 58, "Output",ExpressionUUID->"73cb7a46-15c5-41d4-a96b-567509b2b468"] }, 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[21423, 738, 303, 6, 51, "Input",ExpressionUUID->"79f6cf1e-8d99-4ed4-b0ee-520490dfe89e"], +Cell[21729, 746, 176, 3, 58, "Output",ExpressionUUID->"a52a3788-994f-42ca-b9e6-4f882ccb7832"] +}, Open ]], +Cell[21920, 752, 177, 3, 51, "Input",ExpressionUUID->"77019c38-b57b-4de8-be3e-591a23347d7b"], +Cell[CellGroupData[{ +Cell[22122, 759, 331, 6, 51, "Input",ExpressionUUID->"fe438279-c0e6-4c37-bc40-51bbdb69d41c"], +Cell[22456, 767, 184, 3, 58, "Output",ExpressionUUID->"b7359a20-bbb2-4aa2-aa24-8baea136389e"] +}, Open ]], +Cell[22655, 773, 177, 3, 51, "Input",ExpressionUUID->"f0ba7773-0e2a-4943-8f3d-4b8d3279b2bd"], +Cell[CellGroupData[{ +Cell[22857, 780, 333, 6, 51, "Input",ExpressionUUID->"fd018164-ede3-4627-9926-b692d32fb39a"], +Cell[23193, 788, 183, 3, 58, "Output",ExpressionUUID->"2f05c499-39d0-4374-9b26-480cebcfa3b5"] +}, Open ]], +Cell[23391, 794, 177, 3, 51, "Input",ExpressionUUID->"43ae2c3c-4998-4ce6-8260-1ba43d05f347"], +Cell[CellGroupData[{ +Cell[23593, 801, 358, 6, 51, "Input",ExpressionUUID->"843f9a7c-7692-4007-a356-14369f2e140b"], +Cell[23954, 809, 182, 3, 58, "Output",ExpressionUUID->"021f7f5c-162b-453c-815a-5f00b342356d"] +}, Open ]], +Cell[24151, 815, 175, 3, 51, "Input",ExpressionUUID->"ce522a44-8ee4-47dc-a321-dc188837389e"], +Cell[CellGroupData[{ +Cell[24351, 822, 305, 6, 51, "Input",ExpressionUUID->"979b8d8b-828d-4454-b2c3-c9a4f483082d"], +Cell[24659, 830, 182, 3, 58, "Output",ExpressionUUID->"493c810b-5f34-4368-b0a8-f663c5c5ddf7"] +}, Open ]], +Cell[24856, 836, 175, 3, 51, "Input",ExpressionUUID->"6c4802fd-5971-4e70-ae0c-09e85391b46c"], +Cell[CellGroupData[{ +Cell[25056, 843, 307, 6, 51, "Input",ExpressionUUID->"c74dcd87-311e-441d-ad79-bd2c01ea5412"], +Cell[25366, 851, 184, 3, 58, "Output",ExpressionUUID->"bfff1e19-bbd4-4788-9313-897907306d5c"] +}, Open ]], +Cell[25565, 857, 177, 3, 51, "Input",ExpressionUUID->"e5ee8519-4749-4966-b919-2736f220f0e7"], +Cell[CellGroupData[{ +Cell[25767, 864, 311, 6, 51, "Input",ExpressionUUID->"b7008e3c-af75-498b-8407-88465d3d9964"], +Cell[26081, 872, 183, 3, 58, "Output",ExpressionUUID->"a7c06ada-b8e7-47fe-ae4f-bcc3633938d2"] +}, Open ]], +Cell[26279, 878, 176, 3, 51, "Input",ExpressionUUID->"98bb308b-e00b-4ff8-ba75-3495421b9524"], +Cell[CellGroupData[{ +Cell[26480, 885, 279, 5, 51, "Input",ExpressionUUID->"25bf3be4-d3ad-4161-a096-a103b208607a"], +Cell[26762, 892, 182, 3, 58, "Output",ExpressionUUID->"42855f81-473c-47f9-88b1-d5f379b75ad2"] +}, Open ]], +Cell[26959, 898, 179, 3, 51, "Input",ExpressionUUID->"fee96512-9988-4a57-959f-d5595ab7a1ed"], +Cell[CellGroupData[{ +Cell[27163, 905, 19813, 486, 2581, "Input",ExpressionUUID->"03651c9f-474a-4861-b71e-1977e65d1593"], +Cell[46979, 1393, 221, 4, 58, "Output",ExpressionUUID->"632c917c-d6ae-4179-be4b-8f8adca35a87"] }, 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[47237, 1402, 19752, 490, 2539, "Input",ExpressionUUID->"fff0dfbf-b7d7-48e3-a0e0-113f126cfa3b"], +Cell[66992, 1894, 221, 4, 58, "Output",ExpressionUUID->"4c245599-b097-4aae-a1d3-867d38b7b933"] }, 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[67250, 1903, 19752, 484, 2561, "Input",ExpressionUUID->"0fbd108c-22d6-4eb5-a83f-71368ad57adf"], +Cell[87005, 2389, 235, 5, 109, "Output",ExpressionUUID->"67b76dcf-acfc-4a8a-a0ea-20a3245851fe"] }, 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[87277, 2399, 28300, 713, 109, "Input",ExpressionUUID->"9cc386c1-c114-496a-90f8-367ccb9aabf7"], +Cell[115580, 3114, 235, 5, 58, "Output",ExpressionUUID->"6aeb2d5e-d99b-492d-ab39-505092912a62"] }, 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[115852, 3124, 22539, 554, 2883, "Input",ExpressionUUID->"e40b8eb7-8608-476d-abf0-dd50b747c2d4"], +Cell[138394, 3680, 238, 5, 58, "Output",ExpressionUUID->"44059afa-01a3-4009-be0d-f15212372938"] }, 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[138669, 3690, 25495, 627, 3226, "Input",ExpressionUUID->"ef73288a-49ed-4951-8dcf-ee3fa395ebad"], +Cell[164167, 4319, 239, 5, 58, "Output",ExpressionUUID->"df1b33cb-45db-4c3f-9a33-76248ebf3fa1"] }, 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[164443, 4329, 134, 3, 51, "Input",ExpressionUUID->"e1b324d1-73b0-4899-8964-91d10b73e793"], +Cell[164580, 4334, 204, 4, 58, "Output",ExpressionUUID->"34f189b4-4388-4e16-acdb-ede25cb814e9"] }, 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[164821, 4343, 134, 3, 51, "Input",ExpressionUUID->"acab4541-1b13-4655-8fdd-88c66483857f"], +Cell[164958, 4348, 204, 4, 58, "Output",ExpressionUUID->"ff3682c2-1fe6-4c86-8497-107d91e4ed4a"] }, 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[165199, 4357, 1148, 40, 190, "Input",ExpressionUUID->"2c6d69d7-dd5c-492a-8527-1474b4f1cdeb"], +Cell[166350, 4399, 218, 4, 58, "Output",ExpressionUUID->"8856d5e6-440a-4b9e-9c01-7561f2d98d28"] }, 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[166605, 4408, 1045, 36, 257, "Input",ExpressionUUID->"047071bb-0f99-429f-b343-bc023b01c195"], +Cell[167653, 4446, 238, 5, 58, "Output",ExpressionUUID->"fcf2ea08-19d0-4aea-a8da-7a9236737a54"] }, 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[167928, 4456, 1148, 40, 190, "Input",ExpressionUUID->"b34faa9d-9966-4c24-b3a5-bddaa1c1afcd"], +Cell[169079, 4498, 222, 4, 58, "Output",ExpressionUUID->"283ebefd-8842-4fbd-ab0f-425e63507696"] }, 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[169338, 4507, 112, 2, 51, "Input",ExpressionUUID->"8d3a22ef-5bae-4a8d-a727-5cf6fdd363dd"], +Cell[169453, 4511, 224, 4, 58, "Output",ExpressionUUID->"6e60ae6a-dce1-46b6-ada7-419bcae323b9"] }, 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[169714, 4520, 112, 2, 51, "Input",ExpressionUUID->"e135c10d-1ad4-467b-a4e4-d6c131377bd2"], +Cell[169829, 4524, 241, 5, 58, "Output",ExpressionUUID->"59d11cab-ee69-450b-85a4-5a03854f1c87"] }, 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[170107, 4534, 112, 2, 51, "Input",ExpressionUUID->"016a452b-0935-4767-8c52-867fc2e2db3d"], +Cell[170222, 4538, 239, 5, 58, "Output",ExpressionUUID->"ff099a91-06b3-4687-8f21-8daae70a3cb5"] }, 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[170498, 4548, 112, 2, 51, "Input",ExpressionUUID->"70d6650f-2683-4ae0-9b6a-57e1dba59bb6"], +Cell[170613, 4552, 219, 4, 58, "Output",ExpressionUUID->"64f3054d-65f6-4789-8254-861754130fe4"] }, 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[170869, 4561, 111, 2, 51, "Input",ExpressionUUID->"eb835526-c28e-4374-a360-7cc95750819b"], +Cell[170983, 4565, 221, 4, 58, "Output",ExpressionUUID->"1a25a1c6-73bd-4cac-b185-9d9f2be106d0"] }, 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[171241, 4574, 111, 2, 51, "Input",ExpressionUUID->"e9d46a69-f2c3-4eae-8422-f7a11e9f93ee"], +Cell[171355, 4578, 222, 4, 58, "Output",ExpressionUUID->"d5dea28d-e2eb-4066-a02e-60bcb1f4ac54"] }, 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[171614, 4587, 501, 17, 97, "Input",ExpressionUUID->"27220227-e6ad-4017-8dda-993781a4c253"], +Cell[172118, 4606, 242, 5, 58, "Output",ExpressionUUID->"300fd3e7-b906-40d2-ba26-9a11bd8830b7"] }, 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[172397, 4616, 501, 17, 97, "Input",ExpressionUUID->"88b08446-9f3e-4bf9-adeb-e51633506be3"], +Cell[172901, 4635, 234, 5, 41, "Output",ExpressionUUID->"b48b0644-6736-489b-ac5f-269df6006584"] }, 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[173172, 4645, 1792, 61, 142, "Input",ExpressionUUID->"51a67b8b-4b2f-4ba5-8b74-00330c252eb9"], +Cell[174967, 4708, 224, 4, 41, "Output",ExpressionUUID->"b04a547b-3eab-42a1-888f-825a5f6b7567"] }, 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[175228, 4717, 1105, 37, 73, "Input",ExpressionUUID->"f3430c54-256a-4826-8309-198312027df4"], +Cell[176336, 4756, 239, 5, 41, "Output",ExpressionUUID->"9e00af96-eba7-4ea7-ba41-1c632637f718"] }, 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[176612, 4766, 1822, 62, 144, "Input",ExpressionUUID->"d41d633d-6eba-4229-8b2f-56b2d4249141"], +Cell[178437, 4830, 221, 4, 41, "Output",ExpressionUUID->"cb18e807-1f13-44ca-a808-f6e1f52d0b72"] }, 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[178695, 4839, 1635, 54, 101, "Input",ExpressionUUID->"3f4bf9b9-5644-4849-9111-ea0caa4ab21e"], +Cell[180333, 4895, 223, 4, 41, "Output",ExpressionUUID->"735ac1f7-3a02-4e1f-bc3c-f8f211e9add1"] }, 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[180593, 4904, 1635, 54, 101, "Input",ExpressionUUID->"781db07e-d341-40d3-b5dc-12e30e9901c3"], +Cell[182231, 4960, 221, 4, 41, "Output",ExpressionUUID->"5361d362-fbe4-481f-8e84-dc09b7e1b605"] +}, Open ]], +Cell[182467, 4967, 187, 4, 36, "Input",ExpressionUUID->"5894836c-9594-0940-b94c-299085c765cc"], +Cell[182657, 4973, 154, 3, 36, "Input",ExpressionUUID->"5965eb10-01f8-5545-9b6f-8fab318cd4b7"], +Cell[182814, 4978, 187, 4, 36, "Input",ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-092c5143dcf0"], +Cell[183004, 4984, 154, 3, 36, "Input",ExpressionUUID->"6e7c45d7-0298-ce41-ba97-a3c857e6ae57"], +Cell[CellGroupData[{ +Cell[183183, 4991, 1301, 43, 61, "Input",ExpressionUUID->"38bf39c5-cae1-4148-b0af-e362ef4ee2e3"], +Cell[184487, 5036, 178, 3, 41, "Output",ExpressionUUID->"d7904bcf-fc55-b844-b4d2-059d830f1317"] }, 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"] -}, Open ]], -Cell[371689, 8793, 209, 5, 70, "Input",ExpressionUUID->"54d9c986-d109-3d4c-9ee8-76427bb63659"], -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[184702, 5044, 908, 31, 73, "Input",ExpressionUUID->"f2e6289f-a8bc-6d44-a856-301cf9f22a61"], +Cell[185613, 5077, 177, 3, 41, "Output",ExpressionUUID->"7c075ec9-a97b-ab47-b241-cc392b585c5e"] }, 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[185827, 5085, 889, 30, 73, "Input",ExpressionUUID->"cdf84d2f-1e96-4c43-9286-fda42549e334"], +Cell[186719, 5117, 178, 3, 41, "Output",ExpressionUUID->"ddda4800-8c90-d44b-acfd-6ccb39eee852"] }, 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[186934, 5125, 558, 19, 66, "Input",ExpressionUUID->"a7d184c1-375c-094d-82ba-c6d8cfdfa4a1"], +Cell[187495, 5146, 172, 3, 41, "Output",ExpressionUUID->"046d7438-d73f-9343-9ae7-b01adfd6d8f5"] }, 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[187704, 5154, 651, 22, 66, "Input",ExpressionUUID->"cc7d9e01-d61b-5a43-abcd-9714383fe0fe"], +Cell[188358, 5178, 167, 3, 41, "Output",ExpressionUUID->"d2928e96-58be-3a4f-8bee-5b9e193c2ac6"] }, 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[188562, 5186, 170, 5, 71, "Input",ExpressionUUID->"1204358e-ac52-0f4c-bf22-945336ddda4e"], +Cell[188735, 5193, 172, 3, 41, "Output",ExpressionUUID->"bf655ed3-7200-2249-b687-593ee351a598"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188944, 5201, 170, 5, 69, "Input",ExpressionUUID->"66c9dc01-c171-8f4f-b59a-2829d67b4589"], +Cell[189117, 5208, 173, 3, 41, "Output",ExpressionUUID->"56f5f06b-52e2-6941-b28e-41b961cb42e9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189327, 5216, 181, 5, 55, "Input",ExpressionUUID->"09b0eefd-6263-8a44-8015-82d02046019c"], +Cell[189511, 5223, 171, 3, 41, "Output",ExpressionUUID->"8c210f75-69a5-5340-94a4-65e97302ca45"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189719, 5231, 181, 5, 55, "Input",ExpressionUUID->"c1911d35-4f2b-d042-9073-088b56a17885"], +Cell[189903, 5238, 172, 3, 41, "Output",ExpressionUUID->"bad7f5b6-1bd3-6b4b-87e4-44aee3a120fc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[190112, 5246, 6055, 185, 431, "Input",ExpressionUUID->"6fd22be4-12e4-0d4e-b7f7-ab28adc2524f"], +Cell[196170, 5433, 174, 3, 41, "Output",ExpressionUUID->"ffdf2eb3-13bd-724f-a87b-fb40655ae9c4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196381, 5441, 368, 9, 53, "Input",ExpressionUUID->"788e89bc-20c8-8541-af10-81d8741a0e5b"], +Cell[196752, 5452, 172, 3, 41, "Output",ExpressionUUID->"609425d6-cf9c-7a45-bc21-030ca3aa1290"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196961, 5460, 6122, 187, 431, "Input",ExpressionUUID->"c19137b0-217d-0844-9acb-cc5878ab26fc"], +Cell[203086, 5649, 175, 3, 41, "Output",ExpressionUUID->"b20cbe94-36a3-8548-a61e-959a25814c62"] +}, Open ]], +Cell[CellGroupData[{ +Cell[203298, 5657, 368, 9, 53, "Input",ExpressionUUID->"7c3bd40f-ac17-c54f-a888-ac3b4c84d9d9"], +Cell[203669, 5668, 172, 3, 41, "Output",ExpressionUUID->"4fc2e2c1-457d-3d4a-a5b7-180877c6f370"] +}, Open ]], +Cell[CellGroupData[{ +Cell[203878, 5676, 2663, 88, 215, "Input",ExpressionUUID->"bdca581e-5d9f-434b-8ec4-903e0edf0216"], +Cell[206544, 5766, 171, 3, 41, "Output",ExpressionUUID->"08fcefa1-a87b-bf4b-998d-0c9017752dd4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[206752, 5774, 2603, 85, 109, "Input",ExpressionUUID->"1cec8cc2-764e-3d42-a680-d2ec92565257"], +Cell[209358, 5861, 173, 3, 109, "Output",ExpressionUUID->"5678b502-e98a-5d4b-9c03-fe98b2cc6f78"] +}, Open ]], +Cell[CellGroupData[{ +Cell[209568, 5869, 3712, 118, 109, "Input",ExpressionUUID->"800aba4f-a7e9-864a-a38b-f618fe3c89be"], +Cell[213283, 5989, 174, 3, 109, "Output",ExpressionUUID->"d74c1470-6eae-4841-b978-069a86bca67d"] +}, Open ]], +Cell[213472, 5995, 138, 3, 109, "Input",ExpressionUUID->"8111b6bb-cdcb-ad40-9440-412e77bed40d"], +Cell[CellGroupData[{ +Cell[213635, 6002, 2054, 59, 109, "Input",ExpressionUUID->"fc88a60e-e348-d344-96c4-1f4f66f53217"], +Cell[215692, 6063, 559, 12, 71, "Message",ExpressionUUID->"0833bd34-3252-a046-9aa3-94c1d6e5cfe9"], +Cell[216254, 6077, 560, 12, 71, "Message",ExpressionUUID->"f24a3618-ee43-704a-86fe-493dbed35e8d"], +Cell[216817, 6091, 565, 12, 71, "Message",ExpressionUUID->"86271901-aa3c-5542-ab18-fc06d3fd3f32"], +Cell[217385, 6105, 456, 10, 26, "Message",ExpressionUUID->"ce9bd686-d768-5440-b47e-1ee2b5aa0183"], +Cell[217844, 6117, 170, 3, 41, "Output",ExpressionUUID->"a6ab28bd-0b4e-3443-93b3-734d7cf3d8a2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[218051, 6125, 2054, 59, 116, "Input",ExpressionUUID->"dca13eb7-7f94-3e45-81a8-b62dad3009d2"], +Cell[220108, 6186, 559, 12, 71, "Message",ExpressionUUID->"44f2ed65-5109-0141-bef6-eebaeda3d61d"], +Cell[220670, 6200, 559, 12, 71, "Message",ExpressionUUID->"ba49f32e-1ff7-b147-9f42-9c90ccc55447"], +Cell[221232, 6214, 565, 12, 71, "Message",ExpressionUUID->"fa95acf1-55b2-c042-9a9f-32e1ebea5c1e"], +Cell[221800, 6228, 458, 10, 26, "Message",ExpressionUUID->"3c3d4134-2c7d-0949-9759-036664c530e3"], +Cell[222261, 6240, 170, 3, 41, "Output",ExpressionUUID->"742dfe41-8369-8942-b522-c174c845c383"] +}, Open ]], +Cell[CellGroupData[{ +Cell[222468, 6248, 1938, 53, 86, "Input",ExpressionUUID->"46451e4d-f5ef-b246-91c6-4265c9fafb97"], +Cell[224409, 6303, 20207, 379, 295, "Output",ExpressionUUID->"0e6ef056-d4e3-ac4d-9f2a-df071f8decb1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[244653, 6687, 2094, 60, 116, "Input",ExpressionUUID->"06bd0169-a5a6-404c-935d-e1a61565f71e"], +Cell[246750, 6749, 503, 11, 48, "Message",ExpressionUUID->"8a980d1e-9dd5-194d-803a-ac5d63bbe693"], +Cell[247256, 6762, 505, 11, 48, "Message",ExpressionUUID->"637082a9-fe74-7345-8895-dee77343ee6f"], +Cell[247764, 6775, 506, 11, 48, "Message",ExpressionUUID->"b2e7262c-7c6d-d94d-a545-ea4b363e579a"], +Cell[248273, 6788, 455, 10, 32, "Message",ExpressionUUID->"40c56d25-ed26-3045-9759-ae8eef5eb7cb"], +Cell[248731, 6800, 55770, 961, 290, "Output",ExpressionUUID->"f96372ea-8786-a94e-801e-a3ab56caf675"] +}, Open ]], +Cell[304516, 7764, 2452, 69, 140, "Input",ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-b938908ab9a4"], +Cell[306971, 7835, 209, 5, 36, "Input",ExpressionUUID->"6b0777bb-40fd-b54e-aa03-b6e82cb2e939"], +Cell[CellGroupData[{ +Cell[307205, 7844, 217, 7, 61, "Input",ExpressionUUID->"1ec1e156-ca0f-9240-857c-ac86e3a0e3fd"], +Cell[307425, 7853, 173, 3, 41, "Output",ExpressionUUID->"1ffcb79a-13e7-7549-b41c-23408ffbacea"] +}, Open ]], +Cell[CellGroupData[{ +Cell[307635, 7861, 1814, 53, 116, "Input",ExpressionUUID->"2a22eb8b-38c3-1f4b-a455-da901e49f6f1"], +Cell[309452, 7916, 506, 11, 48, "Message",ExpressionUUID->"08a2126f-e71c-b94d-8844-15e292a8f7d1"], +Cell[309961, 7929, 508, 11, 48, "Message",ExpressionUUID->"1acf7f10-7675-ea41-b478-94e928ef3377"], +Cell[310472, 7942, 509, 11, 48, "Message",ExpressionUUID->"67cdfb4c-9282-934a-b3c5-526027acebf5"], +Cell[310984, 7955, 458, 10, 32, "Message",ExpressionUUID->"760e7203-a507-b249-aaf5-4906557faed2"], +Cell[311445, 7967, 24818, 454, 290, "Output",ExpressionUUID->"f25b03e8-0c50-2442-86f8-c19dc28b43cf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[336300, 8426, 1616, 48, 86, "Input",ExpressionUUID->"6e7e1815-2cc6-b24e-a02d-18991b1a751b"], +Cell[337919, 8476, 582, 12, 71, "Message",ExpressionUUID->"b6e3034b-dd99-1142-8723-42090efc2980"], +Cell[338504, 8490, 588, 12, 71, "Message",ExpressionUUID->"54e48413-1d3a-b844-8316-bcdf9191e67e"], +Cell[339095, 8504, 590, 12, 71, "Message",ExpressionUUID->"44ccd47c-7323-4a4e-a9d6-7424d8b3399f"], +Cell[339688, 8518, 458, 10, 32, "Message",ExpressionUUID->"4c2e41d3-b5d7-3f4c-ba94-0408b6a0e82d"], +Cell[340149, 8530, 171, 3, 41, "Output",ExpressionUUID->"c1bfc082-c70f-3140-a59c-c21547622f5b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[340357, 8538, 2251, 64, 81, "Input",ExpressionUUID->"0b10f52e-4583-2a4b-993d-96e59dd43e6a"], +Cell[342611, 8604, 557, 12, 71, "Message",ExpressionUUID->"0e308aaf-a4b5-d740-9882-5c338a63d7a7"], +Cell[343171, 8618, 560, 12, 71, "Message",ExpressionUUID->"5e35cc91-e340-c74b-b6dd-42063e8a308b"], +Cell[343734, 8632, 565, 12, 71, "Message",ExpressionUUID->"c3f5c3a9-ece1-e648-aa3a-3f66f2873ea7"], +Cell[344302, 8646, 458, 10, 32, "Message",ExpressionUUID->"41503ce3-67a0-8a4a-b10a-c3db53fd260d"], +Cell[344763, 8658, 172, 3, 41, "Output",ExpressionUUID->"d9451200-e1de-5d43-8d07-ddcfc9babc52"] +}, Open ]], +Cell[CellGroupData[{ +Cell[344972, 8666, 2218, 64, 81, "Input",ExpressionUUID->"a58948c9-6d3d-e847-a269-d2e0cc5d1484"], +Cell[347193, 8732, 559, 12, 71, "Message",ExpressionUUID->"2247cd70-3ffa-2245-971e-6c6a2bd1ecfc"], +Cell[347755, 8746, 562, 12, 71, "Message",ExpressionUUID->"d9ae7d5b-4e89-a74f-be53-15700ab2593c"], +Cell[348320, 8760, 563, 12, 71, "Message",ExpressionUUID->"821c7ce3-36cc-9549-9881-1225eb1561cf"], +Cell[348886, 8774, 458, 10, 32, "Message",ExpressionUUID->"52af17f2-aff2-c34f-85c8-700b3d2f5f39"], +Cell[349347, 8786, 170, 3, 41, "Output",ExpressionUUID->"9a4afbd4-21df-4744-836a-2ed068742fdd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[349554, 8794, 2221, 64, 81, "Input",ExpressionUUID->"c817b2d1-7deb-5a45-9938-ca10003188eb"], +Cell[351778, 8860, 559, 12, 71, "Message",ExpressionUUID->"3701f96f-691c-9040-a8a1-ff3958638338"], +Cell[352340, 8874, 562, 12, 71, "Message",ExpressionUUID->"9e260603-f97f-ac44-8251-869444fbcc24"], +Cell[352905, 8888, 563, 12, 71, "Message",ExpressionUUID->"f34d60ab-6a89-fd45-89b6-5f3b4b17dd22"], +Cell[353471, 8902, 458, 10, 32, "Message",ExpressionUUID->"27fa1c02-4896-1547-8cb5-b1b86182517f"], +Cell[353932, 8914, 171, 3, 41, "Output",ExpressionUUID->"7fdd69fb-d48e-e24a-a681-093b62cad9ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[354140, 8922, 213, 6, 60, "Input",ExpressionUUID->"350334c7-7c47-c24c-8adc-781173809e57"], +Cell[354356, 8930, 173, 3, 41, "Output",ExpressionUUID->"20848a4e-e706-ec41-8982-5a7089f6420d"] +}, Open ]], +Cell[354544, 8936, 245, 5, 36, "Input",ExpressionUUID->"597921e5-69d3-564d-a8fa-092e912c15e0"], +Cell[CellGroupData[{ +Cell[354814, 8945, 558, 19, 66, "Input",ExpressionUUID->"d8a22216-586e-3641-8d6a-b19164cbbef2"], +Cell[355375, 8966, 170, 3, 41, "Output",ExpressionUUID->"c70c9f2e-d3ac-284f-9a22-d110345400ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[355582, 8974, 170, 5, 71, "Input",ExpressionUUID->"fdbad1ee-10c7-0843-8319-ad9a3350b059"], +Cell[355755, 8981, 173, 3, 41, "Output",ExpressionUUID->"dc218355-20da-7845-8c8d-e506361cd90c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[355965, 8989, 181, 5, 55, "Input",ExpressionUUID->"1e4255c3-6733-664e-86c8-98281eb7b3d1"], +Cell[356149, 8996, 171, 3, 41, "Output",ExpressionUUID->"b98e2d62-3142-7d4b-8175-9f6bcc8f676f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[356357, 9004, 6055, 185, 431, "Input",ExpressionUUID->"70c538a1-1fdf-1447-919a-237a7f13ec4c"], +Cell[362415, 9191, 172, 3, 41, "Output",ExpressionUUID->"e2235b96-63a9-b14d-b5d1-d13c73c5b35b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[362624, 9199, 368, 9, 53, "Input",ExpressionUUID->"309f305e-3fbc-e84e-99d9-1087d7a09460"], +Cell[362995, 9210, 172, 3, 41, "Output",ExpressionUUID->"776526ba-6ae1-2140-8428-6e0766592ce2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[363204, 9218, 6122, 187, 431, "Input",ExpressionUUID->"e745b4b9-6adc-da40-98cf-d19095e176b2"], +Cell[369329, 9407, 173, 3, 41, "Output",ExpressionUUID->"4456bf68-737e-1947-bc9d-24db2abd4b39"] +}, Open ]], +Cell[CellGroupData[{ +Cell[369539, 9415, 368, 9, 53, "Input",ExpressionUUID->"9d206cd8-8a5b-4046-b84a-e6b4fe810128"], +Cell[369910, 9426, 170, 3, 41, "Output",ExpressionUUID->"04031349-1bc1-2c40-8d25-2e90a8f4b902"] +}, Open ]], +Cell[CellGroupData[{ +Cell[370117, 9434, 2663, 88, 215, "Input",ExpressionUUID->"2ec72619-a762-004d-a8c1-9773b798bf0e"], +Cell[372783, 9524, 171, 3, 41, "Output",ExpressionUUID->"ab924ecc-12c3-f448-be6e-b37b3bf2a7ea"] +}, Open ]], +Cell[CellGroupData[{ +Cell[372991, 9532, 2603, 85, 215, "Input",ExpressionUUID->"499f8153-6e36-8043-876b-5343c0af179e"], +Cell[375597, 9619, 173, 3, 41, "Output",ExpressionUUID->"edd230b8-d34a-9d46-9fb1-cbff36fb79ff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[375807, 9627, 3712, 118, 316, "Input",ExpressionUUID->"33c0834c-5a76-7640-a18c-d9704d756896"], +Cell[379522, 9747, 174, 3, 41, "Output",ExpressionUUID->"7ff053b6-f84b-bf44-8265-ecf6593e97c0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[379733, 9755, 2049, 58, 116, "Input",ExpressionUUID->"77c444cf-c5b4-4b4b-9808-ff76b28fd32d"], +Cell[381785, 9815, 579, 12, 71, "Message",ExpressionUUID->"ba9cccb8-fdfa-1d4c-9151-4c0bb8135009"], +Cell[382367, 9829, 582, 12, 71, "Message",ExpressionUUID->"dda5376f-614c-1846-a3e1-09857b4bcae6"], +Cell[382952, 9843, 584, 12, 71, "Message",ExpressionUUID->"7a2a8f8b-abfe-9646-a4d6-23b88b4059ef"], +Cell[383539, 9857, 458, 10, 32, "Message",ExpressionUUID->"61579f38-09d5-bc4c-9509-0aaf4718ceff"], +Cell[384000, 9869, 172, 3, 41, "Output",ExpressionUUID->"87b4581c-42ec-3248-906f-f100fdcc36d4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[384209, 9877, 2054, 59, 116, "Input",ExpressionUUID->"baacd3f7-96e4-2949-b9f9-9afb90e551d9"], +Cell[386266, 9938, 577, 12, 71, "Message",ExpressionUUID->"19016d8b-0ad0-804c-b867-298523611be5"], +Cell[386846, 9952, 580, 12, 71, "Message",ExpressionUUID->"b91abb11-65b8-3b43-a495-4cb1457edd27"], +Cell[387429, 9966, 583, 12, 71, "Message",ExpressionUUID->"120f2ab5-c971-b748-a471-5d053961b4f2"], +Cell[388015, 9980, 456, 10, 32, "Message",ExpressionUUID->"e219a46d-9b55-8b4b-a17f-972d0b60293c"], +Cell[388474, 9992, 171, 3, 41, "Output",ExpressionUUID->"15e7db41-f53f-7c4b-886f-7ba04bf10a25"] +}, Open ]], +Cell[CellGroupData[{ +Cell[388682, 10000, 2030, 55, 63, "Input",ExpressionUUID->"ea08a5a9-d446-9147-ba82-e3924f732df2"], +Cell[390715, 10057, 20493, 384, 295, "Output",ExpressionUUID->"33ceb84f-c9c7-504c-ae94-1b1d69b769af"] +}, Open ]], +Cell[CellGroupData[{ +Cell[411245, 10446, 2120, 60, 116, "Input",ExpressionUUID->"42ddbf41-0bd8-b749-bead-56c89a9b7467"], +Cell[413368, 10508, 501, 11, 48, "Message",ExpressionUUID->"b616cb85-0c12-9449-8e54-a070530c7874"], +Cell[413872, 10521, 504, 11, 48, "Message",ExpressionUUID->"d17cbbe2-194b-ec4c-bb30-d2fcc4c1a181"], +Cell[414379, 10534, 508, 11, 48, "Message",ExpressionUUID->"6c23e3dc-9bc5-a441-99df-2985793b0df8"], +Cell[414890, 10547, 456, 10, 32, "Message",ExpressionUUID->"de9af779-0821-a544-b1ce-6c66cf00e4d6"], +Cell[415349, 10559, 31462, 562, 290, "Output",ExpressionUUID->"d2a47969-eb62-c243-9b06-713ae9ea0a7d"] +}, Open ]], +Cell[446826, 11124, 209, 5, 36, "Input",ExpressionUUID->"6883477e-2a54-0a45-979a-ae60c73e9e82"], +Cell[CellGroupData[{ +Cell[447060, 11133, 1616, 48, 86, "Input",ExpressionUUID->"93c0bac4-7a17-8748-9b2f-588171dbd56e"], +Cell[448679, 11183, 596, 12, 71, "Message",ExpressionUUID->"ca0dab71-62e4-1c4e-b2d5-91f300055932"], +Cell[449278, 11197, 602, 12, 71, "Message",ExpressionUUID->"aa43f3fc-5ec5-414d-bbd9-cf1b638f0a27"], +Cell[449883, 11211, 605, 12, 71, "Message",ExpressionUUID->"eaa52aca-1e19-e84e-9825-10ec4ac94baf"], +Cell[450491, 11225, 458, 10, 32, "Message",ExpressionUUID->"40ddf79f-d82f-b94d-9b78-050a48c24dda"], +Cell[450952, 11237, 171, 3, 41, "Output",ExpressionUUID->"f752c3f0-fe06-284b-bff8-a09adf8994cc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[451160, 11245, 2251, 64, 81, "Input",ExpressionUUID->"fcc64ab7-eee0-e44f-9b2d-2a98ba29b602"], +Cell[453414, 11311, 577, 12, 71, "Message",ExpressionUUID->"03b49875-7e1c-734a-9395-591c7a6a0147"], +Cell[453994, 11325, 580, 12, 71, "Message",ExpressionUUID->"bbc1c804-e094-2b49-bceb-c837038552fa"], +Cell[454577, 11339, 586, 12, 71, "Message",ExpressionUUID->"340351a4-e10e-7141-b933-75e80a563962"], +Cell[455166, 11353, 458, 10, 32, "Message",ExpressionUUID->"45363ba5-7011-ce4a-bbb2-25b54117d598"], +Cell[455627, 11365, 173, 3, 41, "Output",ExpressionUUID->"a7117811-d866-a74a-b451-2e5611fcbe98"] +}, Open ]], +Cell[CellGroupData[{ +Cell[455837, 11373, 2219, 64, 81, "Input",ExpressionUUID->"edfdd675-c60b-304e-9e16-68452b971319"], +Cell[458059, 11439, 579, 12, 71, "Message",ExpressionUUID->"d229ea6a-26e4-d448-90bf-3044f07066eb"], +Cell[458641, 11453, 580, 12, 71, "Message",ExpressionUUID->"7911ebc5-127d-5841-a246-fcff3e2e3d7f"], +Cell[459224, 11467, 586, 12, 71, "Message",ExpressionUUID->"62b490bd-3e68-5b49-8d2e-1bbb1e520215"], +Cell[459813, 11481, 458, 10, 32, "Message",ExpressionUUID->"2c340204-da84-dd4d-abb8-8821cc152f8d"], +Cell[460274, 11493, 171, 3, 41, "Output",ExpressionUUID->"88b2df22-3f75-ff45-90a9-fda3ac3bb827"] +}, Open ]], +Cell[CellGroupData[{ +Cell[460482, 11501, 2219, 64, 81, "Input",ExpressionUUID->"d0469d46-2e74-494a-be85-b41cb2f3fa92"], +Cell[462704, 11567, 576, 12, 71, "Message",ExpressionUUID->"8c45e08e-3e6d-d74b-a260-2b9be908c427"], +Cell[463283, 11581, 580, 12, 71, "Message",ExpressionUUID->"05cc4b97-7653-f04b-8664-f56b3128e201"], +Cell[463866, 11595, 584, 12, 71, "Message",ExpressionUUID->"880f1d89-ca48-ef4c-8955-16a02dd06624"], +Cell[464453, 11609, 458, 10, 32, "Message",ExpressionUUID->"fbbc91b1-3b40-a04c-8f78-5ca75ca88c9b"], +Cell[464914, 11621, 173, 3, 41, "Output",ExpressionUUID->"ea027f70-f222-b745-8c2e-f4a8bd2e0421"] +}, Open ]], +Cell[CellGroupData[{ +Cell[465124, 11629, 212, 6, 60, "Input",ExpressionUUID->"58b5e243-0972-1946-bd17-aca0f3e8a35b"], +Cell[465339, 11637, 172, 3, 41, "Output",ExpressionUUID->"3682abd7-ed62-9948-84cf-8fffa8ddbfe7"] +}, Open ]], +Cell[465526, 11643, 244, 5, 36, "Input",ExpressionUUID->"8ae59c8e-a0a1-f646-a3f5-a3711ba632a4"], +Cell[CellGroupData[{ +Cell[465795, 11652, 558, 19, 66, "Input",ExpressionUUID->"403fd1b3-6929-134c-834a-14f2acd2fccb"], +Cell[466356, 11673, 171, 3, 109, "Output",ExpressionUUID->"9fbf2f5c-e66a-8c48-92c5-cb97211e83a1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[466564, 11681, 170, 5, 109, "Input",ExpressionUUID->"434ec2be-ef30-1d48-bf44-e1e8b179c2e0"], +Cell[466737, 11688, 171, 3, 109, "Output",ExpressionUUID->"7a911217-f777-234b-9e3e-66fa91b95a93"] +}, Open ]], +Cell[CellGroupData[{ +Cell[466945, 11696, 181, 5, 109, "Input",ExpressionUUID->"defdc4af-a758-2c46-b8da-ac4403e5ffd4"], +Cell[467129, 11703, 173, 3, 109, "Output",ExpressionUUID->"71512215-c060-b042-87dd-cf63c2fdbe79"] +}, Open ]], +Cell[CellGroupData[{ +Cell[467339, 11711, 6055, 185, 109, "Input",ExpressionUUID->"7643457c-ba0b-b641-aa35-59c61447beaf"], +Cell[473397, 11898, 173, 3, 109, "Output",ExpressionUUID->"83eb5a5c-2221-9048-9616-76c841caa7ff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[473607, 11906, 368, 9, 109, "Input",ExpressionUUID->"88a32c79-3b56-5047-96b0-6fadcea3787e"], +Cell[473978, 11917, 172, 3, 109, "Output",ExpressionUUID->"3469ea64-5888-e347-a592-fe58acf45252"] +}, Open ]], +Cell[CellGroupData[{ +Cell[474187, 11925, 6122, 187, 109, "Input",ExpressionUUID->"12b95c40-ca91-7148-a053-e8c97b54e7b6"], +Cell[480312, 12114, 173, 3, 109, "Output",ExpressionUUID->"6078ae64-e041-ef46-9c98-aeb384a7565b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[480522, 12122, 368, 9, 109, "Input",ExpressionUUID->"4e259183-4a48-7f41-8fc6-1aa60d807e18"], +Cell[480893, 12133, 172, 3, 109, "Output",ExpressionUUID->"ed53339e-8a54-b740-a712-127e0aa48364"] +}, Open ]], +Cell[CellGroupData[{ +Cell[481102, 12141, 2663, 88, 109, "Input",ExpressionUUID->"73b06553-f9e2-3447-85e9-8a163aa2ec21"], +Cell[483768, 12231, 173, 3, 109, "Output",ExpressionUUID->"0881e898-a895-4f44-9932-c9b57f23fb23"] +}, Open ]], +Cell[CellGroupData[{ +Cell[483978, 12239, 2603, 85, 109, "Input",ExpressionUUID->"64658d71-e48f-7c4d-bfd6-30344127c7bf"], +Cell[486584, 12326, 171, 3, 109, "Output",ExpressionUUID->"6f8be6ff-3439-7547-b2e5-a7f15df03852"] +}, Open ]], +Cell[CellGroupData[{ +Cell[486792, 12334, 3712, 118, 109, "Input",ExpressionUUID->"02b10812-8656-6e43-99ab-3ff059fd6dae"], +Cell[490507, 12454, 174, 3, 41, "Output",ExpressionUUID->"5f1268db-50d9-294a-839d-2dc73b3483c5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[490718, 12462, 2054, 59, 116, "Input",ExpressionUUID->"ba508068-6b78-254c-87d6-cf1adc0753dd"], +Cell[492775, 12523, 574, 12, 71, "Message",ExpressionUUID->"fea97571-51b6-bc4d-8922-e67cbea226be"], +Cell[493352, 12537, 580, 12, 71, "Message",ExpressionUUID->"f9381c1d-d837-a646-bb62-f69cb564b78b"], +Cell[493935, 12551, 580, 12, 71, "Message",ExpressionUUID->"2dd3f3b2-ca3e-6c42-abc0-5cf7523a6a65"], +Cell[494518, 12565, 456, 10, 32, "Message",ExpressionUUID->"5a727290-5b6b-a347-9739-3df9958ec415"], +Cell[494977, 12577, 172, 3, 41, "Output",ExpressionUUID->"44426372-aa84-bf4c-9f95-4de13286a09a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[495186, 12585, 2054, 59, 116, "Input",ExpressionUUID->"842e33e4-ae06-f746-ab8b-97489285cc9c"], +Cell[497243, 12646, 576, 12, 71, "Message",ExpressionUUID->"a32ffe4b-5346-7b46-9dee-b8bad033001e"], +Cell[497822, 12660, 577, 12, 71, "Message",ExpressionUUID->"902c6490-8537-484d-8825-0d2295db4f12"], +Cell[498402, 12674, 582, 12, 71, "Message",ExpressionUUID->"1b49285c-a5d9-074c-871b-37b4cadb7269"], +Cell[498987, 12688, 458, 10, 32, "Message",ExpressionUUID->"2ff3d4da-4949-1448-b68b-aac1ae56bb1a"], +Cell[499448, 12700, 172, 3, 41, "Output",ExpressionUUID->"046dcac0-9165-4b41-8a82-c19ed01a7ad4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[499657, 12708, 2028, 55, 63, "Input",ExpressionUUID->"b2e314f8-a6f0-6942-a94c-5ac1cacd7190"], +Cell[501688, 12765, 20021, 378, 295, "Output",ExpressionUUID->"d1cda4a3-f1fb-0d44-a506-74525ae66245"] +}, Open ]], +Cell[CellGroupData[{ +Cell[521746, 13148, 2146, 61, 116, "Input",ExpressionUUID->"497f9779-a3e4-c84e-a207-0aac70483e3c"], +Cell[523895, 13211, 502, 11, 48, "Message",ExpressionUUID->"56dc07a7-05cc-424a-8fff-08f056385a44"], +Cell[524400, 13224, 506, 11, 48, "Message",ExpressionUUID->"71ae3883-d346-164c-9764-dc57f6863817"], +Cell[524909, 13237, 508, 11, 48, "Message",ExpressionUUID->"16c86d51-9f27-3c48-b312-93c489e538a4"], +Cell[525420, 13250, 456, 10, 32, "Message",ExpressionUUID->"64c101a8-dc8b-1f4e-9946-a38ce949c736"], +Cell[525879, 13262, 30030, 538, 290, "Output",ExpressionUUID->"f98d1ba6-9bcb-b94f-a8fa-792e22f5ac65"] +}, Open ]], +Cell[555924, 13803, 209, 5, 36, "Input",ExpressionUUID->"54d9c986-d109-3d4c-9ee8-76427bb63659"], +Cell[CellGroupData[{ +Cell[556158, 13812, 1590, 47, 86, "Input",ExpressionUUID->"5dd0afca-0a4f-544d-814d-33e1c649116f"], +Cell[557751, 13861, 342, 6, 26, "Message",ExpressionUUID->"9e6d6a70-ad75-9b40-8a0b-ca802f09d5a2"], +Cell[558096, 13869, 101, 0, 41, "Output",ExpressionUUID->"b372c493-d6de-934f-951c-1a3f45718733"] +}, Open ]], +Cell[CellGroupData[{ +Cell[558234, 13874, 2249, 64, 81, "Input",ExpressionUUID->"a3e3d205-e3b4-874a-a36c-53cfa72184b4"], +Cell[560486, 13940, 342, 6, 26, "Message",ExpressionUUID->"9e9d949e-1d4c-8649-8d0e-b7deecfb3ba4"], +Cell[560831, 13948, 342, 6, 26, "Message",ExpressionUUID->"76f8ef60-aab6-7442-aeca-4cebad23cb0e"], +Cell[561176, 13956, 101, 0, 41, "Output",ExpressionUUID->"37cdd74c-8ec4-9047-aa14-d493ed3e18d0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[561314, 13961, 2221, 64, 81, "Input",ExpressionUUID->"6977f025-454e-0e4a-b118-07bad9ba3e82"], +Cell[563538, 14027, 342, 6, 26, "Message",ExpressionUUID->"566a849f-fc85-4d42-a545-a46d44cf7346"], +Cell[563883, 14035, 342, 6, 26, "Message",ExpressionUUID->"fb1cb4d6-a504-e445-bb52-7946e1bca3c6"], +Cell[564228, 14043, 100, 0, 41, "Output",ExpressionUUID->"5fc76ad3-8f3e-9246-bda1-78737e269d99"] +}, Open ]], +Cell[CellGroupData[{ +Cell[564365, 14048, 2223, 64, 81, "Input",ExpressionUUID->"df8ecb01-788a-604d-b773-f29bb610eb30"], +Cell[566591, 14114, 342, 6, 26, "Message",ExpressionUUID->"f9e34ec5-1462-b340-b2e7-8e875dd33d28"], +Cell[566936, 14122, 342, 6, 26, "Message",ExpressionUUID->"19ffb858-7059-2a48-a3db-e2d0dfcf2131"], +Cell[567281, 14130, 101, 0, 41, "Output",ExpressionUUID->"dbb2a900-6759-7349-a1e8-ea8b52a29f31"] +}, Open ]], +Cell[CellGroupData[{ +Cell[567419, 14135, 213, 6, 60, "Input",ExpressionUUID->"54a5e329-20bd-e742-afe8-d2cfa007cfcf"], +Cell[567635, 14143, 102, 0, 41, "Output",ExpressionUUID->"8f1edf59-aed7-914f-9d19-1949d2a555d6"] +}, Open ]], +Cell[567752, 14146, 186, 4, 36, "Input",ExpressionUUID->"35170b17-b067-408f-8497-dfae76b7127e"] } ] *) -(* End of internal cache information *) - diff --git a/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/h_166-74_Pu240_20-21_gid_Qw1.nb b/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/h_166-74_Pu240_20-21_gid_Qw1.nb index b66829d..87c32d5 100644 --- a/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/h_166-74_Pu240_20-21_gid_Qw1.nb +++ b/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/h_166-74_Pu240_20-21_gid_Qw1.nb @@ -3,32 +3,4873 @@ (*** 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[ 399174, 9347] -NotebookOptionsPosition[ 375132, 8983] -NotebookOutlinePosition[ 375544, 9000] -CellTagsIndexPosition[ 375501, 8997] +NotebookDataLength[ 594153, 14508] +NotebookOptionsPosition[ 555100, 13888] +NotebookOutlinePosition[ 555511, 13905] +CellTagsIndexPosition[ 555468, 13902] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f1", "="}]], "Input", + RowBox[{"d", "=", "1.85"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.9940821364341908`*^9, 3.994082136546945*^9}, { + 3.99408222505837*^9, 3.9940822566678658`*^9}}, + CellLabel-> + "In[371]:=",ExpressionUUID->"751667a6-76eb-4f46-8bd2-300510072f47"], + +Cell[BoxData["1.85`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, 3.9940821397588*^9, {3.9940822104439507`*^9, + 3.994082259420228*^9}}, + CellLabel-> + "Out[371]=",ExpressionUUID->"0c94286f-f8c0-4472-9a4c-0d3f6a7651ee"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.99407306326154*^9, 3.994073063917366*^9}}, + CellLabel-> + "In[372]:=",ExpressionUUID->"d86b8b56-5e4c-47f6-988a-3913ef045c3c"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.994082139815686*^9, {3.994082210466728*^9, + 3.994082259455925*^9}}, + CellLabel-> + "Out[372]=",ExpressionUUID->"395c616b-141f-449e-b41b-c24aff7b07c6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "166"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.9940730665357656`*^9, 3.994073067306501*^9}}, + CellLabel-> + "In[373]:=",ExpressionUUID->"bd4c23b5-dad9-4199-8e39-7f0b2e72894b"], + +Cell[BoxData["166"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.994082139825574*^9, {3.9940822104766827`*^9, + 3.994082259466858*^9}}, + CellLabel-> + "Out[373]=",ExpressionUUID->"8e153300-2e0b-4c42-afb7-5c6ec5fa8adc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel-> + "In[374]:=",ExpressionUUID->"ef9c992c-19f5-4d7b-85f5-294b9171c9b8"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.994082139835326*^9, {3.994082210487997*^9, + 3.994082259477521*^9}}, + CellLabel-> + "Out[374]=",ExpressionUUID->"bb0a6ca4-10d2-4fe4-9184-d0be0df5a2e4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel-> + "In[375]:=",ExpressionUUID->"b1d01ce2-c8c6-47ed-b72e-3a2da44a47df"], + +Cell[BoxData["0.54425`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.994082139845067*^9, {3.994082210498448*^9, + 3.994082259487831*^9}}, + CellLabel-> + "Out[375]=",ExpressionUUID->"c37858b4-3416-4c10-bd6b-d692a82edad9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel-> + "In[376]:=",ExpressionUUID->"0c3f07a2-800b-4dca-bd13-6e745a65189c"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.994082139854616*^9, {3.99408221050937*^9, + 3.994082259497772*^9}}, + CellLabel-> + "Out[376]=",ExpressionUUID->"a298159f-63c4-412b-b639-498975833a65"] +}, 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[377]:=",ExpressionUUID->"2e03473e-367e-4dd3-8659-9951abab4ec9"], + +Cell[BoxData["6.3752030057102145`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.994082139865213*^9, {3.994082210519739*^9, + 3.994082259507691*^9}}, + CellLabel-> + "Out[377]=",ExpressionUUID->"9340a93d-7750-47d7-913f-a257a9139437"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel-> + "In[378]:=",ExpressionUUID->"39c43610-9227-4f91-b077-8088d278c8bc"], + +Cell[BoxData["4.870070286417752`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.99408213987599*^9, {3.9940822105302753`*^9, + 3.994082259517621*^9}}, + CellLabel-> + "Out[378]=",ExpressionUUID->"3f046aab-b15c-42ad-8053-fe52fa3dfa0d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.9035518425"}]], "Input", + CellChangeTimes->{3.991799283179735*^9, 3.994073090925538*^9}, + CellLabel-> + "In[379]:=",ExpressionUUID->"e7832b7f-fc46-44f1-ba18-09ee056547cc"], + +Cell[BoxData["0.9035518425`"], "Output", + CellChangeTimes->{ + 3.994082139886828*^9, {3.9940822105402517`*^9, 3.9940822595277653`*^9}}, + CellLabel-> + "Out[379]=",ExpressionUUID->"48e8902d-a312-4bd8-a0d5-ebe59650861c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.3863821951"}]], "Input", + CellChangeTimes->{3.991799280663351*^9, 3.9940730962719193`*^9}, + CellLabel-> + "In[380]:=",ExpressionUUID->"377d5ee0-06b9-4c59-bef7-377bd46292ac"], + +Cell[BoxData["0.3863821951`"], "Output", + CellChangeTimes->{ + 3.994082139897403*^9, {3.994082210550373*^9, 3.994082259537862*^9}}, + CellLabel-> + "Out[380]=",ExpressionUUID->"db896d14-7efe-42b1-aed9-a70cf3692540"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel-> + "In[381]:=",ExpressionUUID->"96d65eab-d95b-4b15-ab6e-fe5871824646"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.994082139910328*^9, {3.994082210560801*^9, + 3.9940822595420103`*^9}}, + CellLabel-> + "Out[381]=",ExpressionUUID->"91084823-a627-401a-a006-67fcd9c30e39"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel-> + "In[382]:=",ExpressionUUID->"3c63b8d9-cfd9-4539-9dde-35d78907c5cf"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.9940821399224367`*^9, {3.994082210571288*^9, + 3.994082259554398*^9}}, + CellLabel-> + "Out[382]=",ExpressionUUID->"56ae2604-b29b-4a88-9094-3bfd12d73d0b"] +}, 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[383]:=",ExpressionUUID->"8bb87003-ce89-4a73-8414-77846586b326"], + +Cell[BoxData["2.315137197466896`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.994082139933848*^9, {3.994082210581699*^9, + 3.9940822595648727`*^9}}, + CellLabel-> + "Out[383]=",ExpressionUUID->"07fe5ccc-797f-400a-8d95-3294c8014c0c"] +}, 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[384]:=",ExpressionUUID->"3777747e-b0cc-458d-9381-442f93da8334"], + +Cell[BoxData["1.4220278650887666`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.994082139944078*^9, {3.9940822105866547`*^9, + 3.9940822595749483`*^9}}, + CellLabel-> + "Out[384]=",ExpressionUUID->"89e89404-34e9-4828-bb2d-02123ed544bd"] +}, 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[385]:=",ExpressionUUID->"0a99f94b-bcd3-407a-9b12-0a13ef21bb79"], + +Cell[BoxData["0.4069661562665162`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.994082139954578*^9, {3.994082210602051*^9, + 3.994082259585372*^9}}, + CellLabel-> + "Out[385]=",ExpressionUUID->"0c3a7b43-6b45-4b41-8df7-4572499595f0"] +}, 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[386]:=",ExpressionUUID->"7ac71713-331a-43ab-86e7-5e48b4c916f6"], + +Cell[BoxData[ + RowBox[{"-", "0.08563504168524437`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.9940821399653873`*^9, {3.994082210613337*^9, + 3.994082259596693*^9}}, + CellLabel-> + "Out[386]=",ExpressionUUID->"6a804999-cdae-453b-879e-cc9a593b3443"] +}, 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[387]:=",ExpressionUUID->"e4972212-2d1a-45e3-93e3-f736d99af180"], + +Cell[BoxData[ + RowBox[{"-", "0.5841673375234483`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.9940821399780188`*^9, {3.9940822106256943`*^9, + 3.9940822596071453`*^9}}, + CellLabel-> + "Out[387]=",ExpressionUUID->"54f83984-6557-4bf9-bf87-23b211a8216a"] +}, 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[388]:=",ExpressionUUID->"ae5371c6-593a-4fbe-b496-969ffa647461"], + +Cell[BoxData["0.7215005296935654`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.994082139989607*^9, {3.994082210635736*^9, + 3.99408225961747*^9}}, + CellLabel-> + "Out[388]=",ExpressionUUID->"203756f7-87b4-4e9d-8926-03296331165a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel-> + "In[389]:=",ExpressionUUID->"d961082f-869d-41a8-936a-7d5f4dea98d2"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.9940821399995413`*^9, {3.9940822106444807`*^9, + 3.994082259627829*^9}}, + CellLabel-> + "Out[389]=",ExpressionUUID->"2392fa3f-00cd-4601-a803-be2337d0ff8f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel-> + "In[390]:=",ExpressionUUID->"3af009a0-f9ac-4896-8cfb-5fcb7166a0a4"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.994082140010191*^9, {3.994082210653286*^9, + 3.994082259638521*^9}}, + CellLabel-> + "Out[390]=",ExpressionUUID->"40a100c3-c5d5-45dd-936e-22a6b712bc08"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel-> + "In[391]:=",ExpressionUUID->"86dd05d3-90b1-46a2-b995-da02a79b23ad"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.9940821400205593`*^9, {3.9940822106620293`*^9, + 3.9940822596489058`*^9}}, + CellLabel-> + "Out[391]=",ExpressionUUID->"a5285ea9-63b2-4c95-bcbd-49c0fd63be67"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel-> + "In[392]:=",ExpressionUUID->"a633539d-b93e-41a4-8a70-2ffca9d28f30"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.994082140031045*^9, {3.994082210671171*^9, + 3.994082259659958*^9}}, + CellLabel-> + "Out[392]=",ExpressionUUID->"aa542d55-5bb4-49ff-86f1-8fc03021093e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel-> + "In[393]:=",ExpressionUUID->"526f1644-7850-4ee9-8d10-cc36a22a17b4"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.994082140043984*^9, {3.9940822106801777`*^9, + 3.994082259671282*^9}}, + CellLabel-> + "Out[393]=",ExpressionUUID->"66d35873-9d30-4e18-a65a-eaeaa6c2d8d7"] +}, 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.9940731043812733`*^9, 3.994073104508005*^9}}, + CellLabel-> + "In[394]:=",ExpressionUUID->"77bd0100-8f25-4471-a5fe-b00dd7082437"], + +Cell[BoxData["66"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, 3.994082140061471*^9, {3.99408221068924*^9, + 3.9940822596826973`*^9}}, + CellLabel-> + "Out[394]=",ExpressionUUID->"f57370c4-914e-4378-8e25-5c7c37fecd36"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, {3.9940731093077307`*^9, 3.99407311085991*^9}}, + CellLabel-> + "In[395]:=",ExpressionUUID->"cfada19d-57a2-4ee8-baa9-a6cf4e4f8d05"], + +Cell[BoxData["28"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.994082140071866*^9, {3.9940822106985188`*^9, + 3.9940822596930656`*^9}}, + CellLabel-> + "Out[395]=",ExpressionUUID->"eec9b0d8-1649-4054-89c0-0850d3ce9d92"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel-> + "In[396]:=",ExpressionUUID->"1641be81-df7b-4fd0-bab9-9f05fed9979c"], + +Cell[BoxData["74"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.994082140082143*^9, {3.994082210707357*^9, + 3.994082259703759*^9}}, + CellLabel-> + "Out[396]=",ExpressionUUID->"f67d1027-c0ba-4ced-a472-9643db548c79"] +}, 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[397]:=",ExpressionUUID->"a0686ee3-e375-4ac1-8346-4c89db0903f9"], + +Cell[BoxData["0.11092478020188863`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9940821400927267`*^9, {3.994082210716133*^9, + 3.994082259714077*^9}}, + CellLabel-> + "Out[397]=",ExpressionUUID->"eae3cf94-a023-4a84-b1bd-2932f42e870b"] +}, 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[398]:=",ExpressionUUID->"1b1dfec8-3f50-4775-83ad-88a1163965d1"], + +Cell[BoxData[ + RowBox[{"-", "2.5630967111690004`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.9940821401033173`*^9, {3.994082210725114*^9, + 3.994082259724759*^9}}, + CellLabel-> + "Out[398]=",ExpressionUUID->"2cbd2036-2746-48f6-91b5-80289d5506f5"] +}, 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[399]:=",ExpressionUUID->"fcb55ebc-e0fb-4dba-9687-5e497fbf44b3"], + +Cell[BoxData["17.4437013546787`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.994082140114669*^9, {3.994082210734028*^9, + 3.994082259736136*^9}}, + CellLabel-> + "Out[399]=",ExpressionUUID->"e35aa21a-738d-4a1f-8438-33d3fdb80a96"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel-> + "In[400]:=",ExpressionUUID->"3e095f03-a0b4-4024-87a1-088c9019f7b9"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.994082140125458*^9, {3.9940822107429523`*^9, + 3.9940822597468443`*^9}}, + CellLabel-> + "Out[400]=",ExpressionUUID->"4947dc45-d1d3-4cbb-ad04-1ba65600cb68"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "2.185"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { + 3.994073141486967*^9, 3.9940731424234343`*^9}}, + CellLabel-> + "In[401]:=",ExpressionUUID->"e91d6a5c-806c-42e9-8cd4-d1dd901d11ff"], + +Cell[BoxData["2.185`"], "Output", + CellChangeTimes->{ + 3.9940821401363583`*^9, {3.994082210751677*^9, 3.9940822597573833`*^9}}, + CellLabel-> + "Out[401]=",ExpressionUUID->"288865a1-8873-4cb3-ab45-533ad4ca0074"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel-> + "In[402]:=",ExpressionUUID->"48b76456-aae3-4c3b-9640-ff5134eb7551"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.755"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.9940731457645493`*^9, 3.994073146848226*^9}}, + CellLabel-> + "In[403]:=",ExpressionUUID->"1bd9a53f-2064-415c-85b2-1b899328fdfc"], + +Cell[BoxData["0.755`"], "Output", + CellChangeTimes->{ + 3.994082140150962*^9, {3.9940822107679367`*^9, 3.9940822597717943`*^9}}, + CellLabel-> + "Out[403]=",ExpressionUUID->"7a066b36-32ec-4953-bcc5-1a1ffaa32a31"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel-> + "In[404]:=",ExpressionUUID->"b7f34cd4-68b5-48ae-ae2f-9be7de71fb7d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "2.5"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.994073149619232*^9, 3.994073149893601*^9}}, + CellLabel-> + "In[405]:=",ExpressionUUID->"d56db30f-ee84-4b14-b4f1-c59418196932"], + +Cell[BoxData["2.5`"], "Output", + CellChangeTimes->{ + 3.994082140164228*^9, {3.994082210783918*^9, 3.994082259785039*^9}}, + CellLabel-> + "Out[405]=",ExpressionUUID->"c7dd0441-2bfd-4d83-a246-7f968fff4d7f"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel-> + "In[406]:=",ExpressionUUID->"faef14ec-6e42-49fa-aec7-1e9033a91eb8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.165"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, {3.994073152359264*^9, 3.994073154823225*^9}}, + CellLabel-> + "In[407]:=",ExpressionUUID->"26549962-cf45-4a0a-87fa-a1b8e607c233"], + +Cell[BoxData["1.165`"], "Output", + CellChangeTimes->{ + 3.994082140177301*^9, {3.994082210799852*^9, 3.9940822597980413`*^9}}, + CellLabel-> + "Out[407]=",ExpressionUUID->"7ee25934-e7b9-4ef4-b7c7-7316f471c5c8"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel-> + "In[408]:=",ExpressionUUID->"bad5a6ff-0f0e-40a4-8fc7-216274bbe398"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.055"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, {3.994073158537945*^9, + 3.994073159984886*^9}}, + CellLabel-> + "In[409]:=",ExpressionUUID->"517a3596-f04a-44e1-af5f-e0f50526ce48"], + +Cell[BoxData["1.055`"], "Output", + CellChangeTimes->{ + 3.9940821401902237`*^9, {3.9940822108158007`*^9, 3.994082259811191*^9}}, + CellLabel-> + "Out[409]=",ExpressionUUID->"cf8515f0-a554-4104-81c4-4333ae728e2a"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel-> + "In[410]:=",ExpressionUUID->"eba5c45e-bee3-4997-9150-519fc7c33e0c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.575"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.9940731689650297`*^9, + 3.994073170525517*^9}}, + CellLabel-> + "In[411]:=",ExpressionUUID->"130ce0b5-ee01-4346-b901-37c115d6fb32"], + +Cell[BoxData["0.575`"], "Output", + CellChangeTimes->{ + 3.99408214020331*^9, {3.9940822108320093`*^9, 3.994082259824339*^9}}, + CellLabel-> + "Out[411]=",ExpressionUUID->"d8d811d3-a53a-4ef4-83cc-0cbd8df3c70c"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel-> + "In[412]:=",ExpressionUUID->"3ed15dd7-c424-4df4-a6bf-dfa7e6aeb2ec"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "1.51"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.99407317466329*^9, + 3.9940731756907377`*^9}}, + CellLabel-> + "In[413]:=",ExpressionUUID->"df1a2442-03ec-4485-8944-b236bed6503a"], + +Cell[BoxData["1.51`"], "Output", + CellChangeTimes->{ + 3.9940821402169437`*^9, {3.994082210847649*^9, 3.994082259837338*^9}}, + CellLabel-> + "Out[413]=",ExpressionUUID->"e656085c-524a-4f01-9cf0-5bdfb977c8db"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel-> + "In[414]:=",ExpressionUUID->"a234e16c-16de-4a73-9e28-91279f7e26f3"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "0.635"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, {3.99407317843715*^9, 3.994073182537156*^9}}, + CellLabel-> + "In[415]:=",ExpressionUUID->"ebcd049d-92ed-452d-bb22-180ce6be5688"], + +Cell[BoxData["0.635`"], "Output", + CellChangeTimes->{ + 3.994082140230339*^9, {3.994082210863504*^9, 3.994082259850523*^9}}, + CellLabel-> + "Out[415]=",ExpressionUUID->"d8ddea09-4296-4828-8bba-f955ce32150e"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel-> + "In[416]:=",ExpressionUUID->"fb171c90-d58d-46a3-835f-4205c35564bb"], + +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[417]:=",ExpressionUUID->"3a22b78a-b793-4e2c-b868-4eb499f8ba16"], + +Cell[BoxData["0.14543451930671605`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.9940821403190203`*^9, {3.994082210903069*^9, + 3.994082259888891*^9}}, + CellLabel-> + "Out[417]=",ExpressionUUID->"91955a31-faab-4202-b29a-c9bb0fb8950b"] +}, 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[418]:=",ExpressionUUID->"8fac76ff-18b4-4efc-bd89-766736fce3f6"], + +Cell[BoxData["7.609769640822119`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9940821403533278`*^9, {3.994082210934519*^9, + 3.994082259917639*^9}}, + CellLabel-> + "Out[418]=",ExpressionUUID->"1633a0ea-8e42-4d34-8c0f-6abb5a1f2a40"] +}, 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[419]:=",ExpressionUUID->"fc31ed85-7cff-4467-889f-062e008e9d03"], + +Cell[BoxData[ + RowBox[{"-", "15.030827196449275`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.994082140383691*^9, {3.9940822109679832`*^9, + 3.994082259945158*^9}}, + CellLabel-> + "Out[419]=",ExpressionUUID->"9f2a0b92-04f3-40c7-8cce-aa5f0fce9176"] +}, 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[420]:=",ExpressionUUID->"13629225-859e-47c9-877e-db45c48a8bd0"], + +Cell[BoxData[ + RowBox[{"-", "19.761827924452415`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.9940821404195766`*^9, {3.9940822110021753`*^9, + 3.994082259978429*^9}}, + CellLabel-> + "Out[420]=",ExpressionUUID->"7fc43723-8a9d-4494-98bc-7d5130838e66"] +}, 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[421]:=",ExpressionUUID->"512cbaa5-9386-4f59-a7db-028ba9a21ddf"], + +Cell[BoxData[ + RowBox[{"-", "57.66257775030843`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.9940821404579077`*^9, {3.994082211038884*^9, + 3.994082260011196*^9}}, + CellLabel-> + "Out[421]=",ExpressionUUID->"729795d9-94c0-44d1-8662-42c68cda0eaf"] +}, 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[422]:=",ExpressionUUID->"1a5227a1-c926-4069-a1d5-d03f382f066c"], + +Cell[BoxData[ + RowBox[{"-", "150.68948520646092`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.994082140505332*^9, {3.994082211079116*^9, + 3.9940822600491877`*^9}}, + CellLabel-> + "Out[422]=",ExpressionUUID->"78ee98f3-1818-4c66-8b49-6dcdadee4e72"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel-> + "In[423]:=",ExpressionUUID->"a81b405e-908a-4134-8186-ca0385930fec"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.99408214052183*^9, {3.994082211090176*^9, + 3.994082260062854*^9}}, + CellLabel-> + "Out[423]=",ExpressionUUID->"a85b9f1e-fc5d-4bad-9482-330b98467bb1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel-> + "In[424]:=",ExpressionUUID->"8476bf90-e525-462a-94d7-cee096eb3e2e"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.994082140531746*^9, {3.9940822111011677`*^9, + 3.994082260073297*^9}}, + CellLabel-> + "Out[424]=",ExpressionUUID->"1e74e985-696f-49c2-8cb3-a86f2ec6431f"] +}, 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[425]:=",ExpressionUUID->"f94be985-7258-476c-a16d-33c95def05a9"], + +Cell[BoxData["120.33662547388403`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.994082140542282*^9, {3.994082211112996*^9, + 3.994082260084251*^9}}, + CellLabel-> + "Out[425]=",ExpressionUUID->"a4d9c36b-7e86-4def-a38a-fa19d3b07c09"] +}, 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[426]:=",ExpressionUUID->"bf0647ef-26aa-4c15-a477-69c327e17cdd"], + +Cell[BoxData[ + RowBox[{"-", "107.1121642480161`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.994082140552636*^9, {3.994082211122551*^9, + 3.994082260094944*^9}}, + CellLabel-> + "Out[426]=",ExpressionUUID->"923be44c-8e98-4e0d-b2a3-a5f96e8421a1"] +}, 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[427]:=",ExpressionUUID->"f6cd6589-21f0-4053-bef6-51735a9b5449"], + +Cell[BoxData["123.55775944746372`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9940821405632*^9, {3.9940822111320972`*^9, + 3.9940822601055107`*^9}}, + CellLabel-> + "Out[427]=",ExpressionUUID->"a96f0478-8fe4-4973-a87e-4278b1226073"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel-> + "In[428]:=",ExpressionUUID->"e20a649a-72ab-4a99-926e-2ea1ca52f590"], + +Cell[BoxData["0.4069661562665162`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.994082140573392*^9, {3.994082211141264*^9, + 3.994082260116184*^9}}, + CellLabel-> + "Out[428]=",ExpressionUUID->"b13cf7ef-97a3-4fef-813b-8c1db0a06b3b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel-> + "In[429]:=",ExpressionUUID->"c216a986-3947-47c3-b8dd-a24331214a74"], + +Cell[BoxData[ + RowBox[{"-", "0.08563504168524437`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.994082140583559*^9, {3.994082211156444*^9, + 3.994082260127738*^9}}, + CellLabel-> + "Out[429]=",ExpressionUUID->"9193edb0-aa30-41e4-8af4-74da1445e38d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel-> + "In[430]:=",ExpressionUUID->"2d85275b-6b14-40bf-b4e6-ba346d30ba60"], + +Cell[BoxData[ + RowBox[{"-", "0.5841673375234483`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.994082140593707*^9, {3.994082211166273*^9, + 3.99408226016045*^9}}, + CellLabel-> + "Out[430]=",ExpressionUUID->"6a02038d-b071-4c7a-a75e-b6e5eef0ac69"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel-> + "In[431]:=",ExpressionUUID->"71d44f1e-c44c-4d18-8fc2-d9a46f6a7caa"], + +Cell[BoxData["0.7215005296935654`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.9940821428128853`*^9, {3.994082211175336*^9, + 3.994082260189337*^9}}, + CellLabel-> + "Out[431]=",ExpressionUUID->"7e2a630b-3c94-4242-871a-4d4a5a53ae8e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel-> + "In[432]:=",ExpressionUUID->"35c8bcf6-abaa-4803-abe7-7e6df3c9cf0c"], + +Cell[BoxData["2.315137197466896`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, {3.9940822111841908`*^9, 3.9940822602133617`*^9}}, + CellLabel-> + "Out[432]=",ExpressionUUID->"9dcbb3fa-0a05-4dd9-bb91-0b2127d354e1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel-> + "In[433]:=",ExpressionUUID->"14b6da05-6584-437e-b3a2-fd9e0032b3af"], + +Cell[BoxData["1.4220278650887666`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, {3.994082211193069*^9, 3.99408226021774*^9}}, + CellLabel-> + "Out[433]=",ExpressionUUID->"5fe74dca-1a92-4ec0-b98c-12f909610fe1"] +}, 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[434]:=",ExpressionUUID->"d7e311d0-fe21-4a3a-8842-37001bc0d559"], + +Cell[BoxData[ + RowBox[{"-", "34.52117430586003`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, {3.994082211202162*^9, 3.994082260228716*^9}}, + CellLabel-> + "Out[434]=",ExpressionUUID->"0ac2c732-d5c7-4f63-900c-51d6c1304ea0"] +}, 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[435]:=",ExpressionUUID->"d26ec46e-58d9-4e8e-bf31-e532b8d3261c"], + +Cell[BoxData[ + RowBox[{"-", "6.669654351008722`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, {3.9940822112147284`*^9, 3.994082260239593*^9}}, + CellLabel-> + "Out[435]=",ExpressionUUID->"050c4da5-9b96-4c6f-88c4-3e5ea241d76a"] +}, 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[436]:=",ExpressionUUID->"7bc3c456-5e98-458e-a765-50ef323a8d69"], + +Cell[BoxData["85.815451168024`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, {3.994082211224436*^9, 3.994082260250916*^9}}, + CellLabel-> + "Out[436]=",ExpressionUUID->"698d6641-bcba-4a98-b5d5-ef9cf9a37140"] +}, 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[437]:=",ExpressionUUID->"e42625ee-4eb9-48fb-a3b3-206c107c36f1"], + +Cell[BoxData[ + RowBox[{"-", "107.1121642480161`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, {3.994082211233815*^9, 3.994082260261983*^9}}, + CellLabel-> + "Out[437]=",ExpressionUUID->"8fd3918b-56b9-46be-9f6a-7d8d438d2737"] +}, 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[438]:=",ExpressionUUID->"577572a2-9d9b-4146-b62c-6811bf661235"], + +Cell[BoxData["116.888105096455`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, {3.99408221124387*^9, 3.994082260273652*^9}}, + CellLabel-> + "Out[438]=",ExpressionUUID->"51614b2f-f889-45cb-a290-f23ace627243"] +}, 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[439]:=",ExpressionUUID->"60c953d6-0a51-47eb-9807-9b0b90eff906"], + +Cell[BoxData["42.180325689118604`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, {3.994082211253778*^9, 3.994082260284829*^9}}, + CellLabel-> + "Out[439]=",ExpressionUUID->"dec8fdd5-5e54-4610-9cb6-e5bcd4842e75"] +}, 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[440]:=",ExpressionUUID->"e3811601-4365-4ef4-ac4c-c4c828a9660c"], + +Cell[BoxData["727.4038074151157`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, {3.994082211263607*^9, 3.994082260289282*^9}}, + CellLabel-> + "Out[440]=",ExpressionUUID->"fee1019a-a3ba-48d1-a327-daccfa027098"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"f1", "=", "0.4308709561"}]], "Input", CellFrame->{{0, 0}, {0, 0}}, - CellChangeTimes->{3.991849227197853*^9}, + CellChangeTimes->{3.991849227197853*^9, 3.99408390970156*^9}, Background->RGBColor[ 0.87, 0.94, 1],ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", + RowBox[{"f2", "=", "0.1119937069"}]], "Input", CellFrame->{{0, 0}, {0, 0}}, - CellChangeTimes->{3.9918492290557346`*^9}, + CellChangeTimes->{3.9918492290557346`*^9, 3.994083916651979*^9}, Background->RGBColor[ 0.87, 0.94, 1],ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], @@ -2895,9 +7736,73 @@ qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", - RowBox[{"{", "}"}], "]"}]}]], "Input", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.005193"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.015406"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.025113"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.034006"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.041831"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.048382"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.053535"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.057218"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.059449"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.060284"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.059853"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.058305"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.055833"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.052623"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.048884"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.044792"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.040528"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.03623"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.032028"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.02801"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.024253"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.020798"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.017676"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.014891"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.012445"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.010316"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.00849"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.006935"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.005627"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.004534"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.003631"}], "}"}]}], "}"}], "]"}]}]], "Input", CellFrame->{{0, 0}, {0, 0}}, - CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}}, + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.994084135894616*^9}, Background->RGBColor[ 0.87, 0.94, 1],ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], @@ -8981,10 +13886,10 @@ Cell[BoxData["0.05576142449710889`"], "Output", "Out[312]=",ExpressionUUID->"14434839-d5cf-b844-b849-b3b3102df434"] }, Open ]] }, -WindowSize->{1440, 792}, +WindowSize->{1440, 882}, WindowMargins->{{0, Automatic}, {0, Automatic}}, CellContext->Notebook, -FrontEndVersion->"14.1 for Linux x86 (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" ] @@ -8999,355 +13904,611 @@ CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ -Cell[554, 20, 213, 5, 45, "Input",ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], -Cell[770, 27, 215, 5, 45, "Input",ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], Cell[CellGroupData[{ -Cell[1010, 36, 1301, 43, 48, "Input",ExpressionUUID->"5e48fe0c-b3e8-2b40-82cb-716b23b2f326"], -Cell[2314, 81, 178, 3, 33, "Output",ExpressionUUID->"1db85c02-7ca3-154e-854d-2c36f89709c4"] +Cell[576, 22, 357, 7, 36, "Input",ExpressionUUID->"751667a6-76eb-4f46-8bd2-300510072f47"], +Cell[936, 31, 232, 5, 41, "Output",ExpressionUUID->"0c94286f-f8c0-4472-9a4c-0d3f6a7651ee"] }, Open ]], Cell[CellGroupData[{ -Cell[2529, 89, 910, 31, 58, "Input",ExpressionUUID->"e4db2648-4e1a-2c46-83ab-fcd932c3b663"], -Cell[3442, 122, 175, 3, 33, "Output",ExpressionUUID->"78ed190c-23cd-4d45-867a-2b08174b715f"] +Cell[1205, 41, 250, 5, 36, "Input",ExpressionUUID->"d86b8b56-5e4c-47f6-988a-3913ef045c3c"], +Cell[1458, 48, 232, 5, 41, "Output",ExpressionUUID->"395c616b-141f-449e-b41b-c24aff7b07c6"] }, Open ]], Cell[CellGroupData[{ -Cell[3654, 130, 885, 30, 58, "Input",ExpressionUUID->"e4649c3d-e19e-ca42-95a0-23b66397f1fd"], -Cell[4542, 162, 177, 3, 33, "Output",ExpressionUUID->"82ec2512-4fcb-ba44-b472-bb3a66bb622e"] +Cell[1727, 58, 228, 5, 36, "Input",ExpressionUUID->"bd4c23b5-dad9-4199-8e39-7f0b2e72894b"], +Cell[1958, 65, 234, 5, 41, "Output",ExpressionUUID->"8e153300-2e0b-4c42-afb7-5c6ec5fa8adc"] }, Open ]], Cell[CellGroupData[{ -Cell[4756, 170, 558, 19, 51, "Input",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], -Cell[5317, 191, 173, 3, 33, "Output",ExpressionUUID->"9d53fa4a-be54-7b42-83bd-0a5560193c0f"] +Cell[2229, 75, 180, 4, 36, "Input",ExpressionUUID->"ef9c992c-19f5-4d7b-85f5-294b9171c9b8"], +Cell[2412, 81, 232, 5, 41, "Output",ExpressionUUID->"bb0a6ca4-10d2-4fe4-9184-d0be0df5a2e4"] }, Open ]], Cell[CellGroupData[{ -Cell[5527, 199, 623, 21, 51, "Input",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], -Cell[6153, 222, 170, 3, 33, "Output",ExpressionUUID->"4107fa63-a138-df48-a95c-ec944a983800"] +Cell[2681, 91, 262, 8, 54, "Input",ExpressionUUID->"b1d01ce2-c8c6-47ed-b72e-3a2da44a47df"], +Cell[2946, 101, 237, 5, 41, "Output",ExpressionUUID->"c37858b4-3416-4c10-bd6b-d692a82edad9"] }, Open ]], Cell[CellGroupData[{ -Cell[6360, 230, 170, 5, 55, "Input",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], -Cell[6533, 237, 173, 3, 33, "Output",ExpressionUUID->"f894fb1d-1550-5146-a259-dfa871655c2a"] +Cell[3220, 111, 136, 3, 36, "Input",ExpressionUUID->"0c3f07a2-800b-4dca-bd13-6e745a65189c"], +Cell[3359, 116, 233, 5, 41, "Output",ExpressionUUID->"a298159f-63c4-412b-b639-498975833a65"] }, Open ]], Cell[CellGroupData[{ -Cell[6743, 245, 170, 5, 54, "Input",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], -Cell[6916, 252, 170, 3, 33, "Output",ExpressionUUID->"8d5b13a4-8c75-0f48-ab21-9720bb8c0cbc"] +Cell[3629, 126, 281, 7, 36, "Input",ExpressionUUID->"2e03473e-367e-4dd3-8659-9951abab4ec9"], +Cell[3913, 135, 248, 5, 41, "Output",ExpressionUUID->"9340a93d-7750-47d7-913f-a257a9139437"] }, Open ]], Cell[CellGroupData[{ -Cell[7123, 260, 181, 5, 43, "Input",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], -Cell[7307, 267, 171, 3, 33, "Output",ExpressionUUID->"4d4b493f-9f2d-1e41-979f-fb4d58d0e93a"] +Cell[4198, 145, 262, 8, 36, "Input",ExpressionUUID->"39c43610-9227-4f91-b077-8088d278c8bc"], +Cell[4463, 155, 248, 5, 41, "Output",ExpressionUUID->"3f046aab-b15c-42ad-8053-fe52fa3dfa0d"] }, Open ]], Cell[CellGroupData[{ -Cell[7515, 275, 181, 5, 43, "Input",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], -Cell[7699, 282, 173, 3, 33, "Output",ExpressionUUID->"e40db20b-c65e-4a45-ba96-abcb59b0d0ac"] +Cell[4748, 165, 208, 4, 36, "Input",ExpressionUUID->"e7832b7f-fc46-44f1-ba18-09ee056547cc"], +Cell[4959, 171, 218, 4, 41, "Output",ExpressionUUID->"48e8902d-a312-4bd8-a0d5-ebe59650861c"] }, Open ]], Cell[CellGroupData[{ -Cell[7909, 290, 6055, 185, 195, "Input",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], -Cell[13967, 477, 175, 3, 33, "Output",ExpressionUUID->"cdf81fea-e12a-2b44-81a8-222b4bbf8a86"] +Cell[5214, 180, 210, 4, 36, "Input",ExpressionUUID->"377d5ee0-06b9-4c59-bef7-377bd46292ac"], +Cell[5427, 186, 214, 4, 41, "Output",ExpressionUUID->"db896d14-7efe-42b1-aed9-a70cf3692540"] }, Open ]], Cell[CellGroupData[{ -Cell[14179, 485, 368, 9, 41, "Input",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], -Cell[14550, 496, 170, 3, 33, "Output",ExpressionUUID->"181dc1c8-632b-4b43-91c4-d3626d65bfc7"] +Cell[5678, 195, 133, 3, 66, "Input",ExpressionUUID->"96d65eab-d95b-4b15-ab6e-fe5871824646"], +Cell[5814, 200, 232, 5, 75, "Output",ExpressionUUID->"91084823-a627-401a-a006-67fcd9c30e39"] }, Open ]], Cell[CellGroupData[{ -Cell[14757, 504, 6122, 187, 195, "Input",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], -Cell[20882, 693, 175, 3, 33, "Output",ExpressionUUID->"c7d972b4-764c-954a-8260-240d49cfcff6"] +Cell[6083, 210, 133, 3, 66, "Input",ExpressionUUID->"3c63b8d9-cfd9-4539-9dde-35d78907c5cf"], +Cell[6219, 215, 232, 5, 75, "Output",ExpressionUUID->"56ae2604-b29b-4a88-9094-3bfd12d73d0b"] }, Open ]], Cell[CellGroupData[{ -Cell[21094, 701, 368, 9, 41, "Input",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], -Cell[21465, 712, 172, 3, 33, "Output",ExpressionUUID->"c285a758-c3ad-974b-93c3-4cb0d4bdd2ae"] +Cell[6488, 225, 561, 20, 175, "Input",ExpressionUUID->"8bb87003-ce89-4a73-8414-77846586b326"], +Cell[7052, 247, 249, 5, 75, "Output",ExpressionUUID->"07fe5ccc-797f-400a-8d95-3294c8014c0c"] }, Open ]], Cell[CellGroupData[{ -Cell[21674, 720, 2663, 88, 115, "Input",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], -Cell[24340, 810, 173, 3, 33, "Output",ExpressionUUID->"5dc957f4-8f84-c54c-80a3-c76f756c5df4"] +Cell[7338, 257, 561, 20, 175, "Input",ExpressionUUID->"3777747e-b0cc-458d-9381-442f93da8334"], +Cell[7902, 279, 252, 5, 75, "Output",ExpressionUUID->"89e89404-34e9-4828-bb2d-02123ed544bd"] }, Open ]], Cell[CellGroupData[{ -Cell[24550, 818, 2603, 85, 115, "Input",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], -Cell[27156, 905, 172, 3, 33, "Output",ExpressionUUID->"b4ee01d5-3415-494b-b28a-4587c8d8bb90"] +Cell[8191, 289, 1592, 51, 362, "Input",ExpressionUUID->"0a99f94b-bcd3-407a-9b12-0a13ef21bb79"], +Cell[9786, 342, 246, 5, 75, "Output",ExpressionUUID->"0c3a7b43-6b45-4b41-8df7-4572499595f0"] }, Open ]], Cell[CellGroupData[{ -Cell[27365, 913, 3712, 118, 172, "Input",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], -Cell[31080, 1033, 174, 3, 33, "Output",ExpressionUUID->"20c44e64-7085-8e4d-a9d6-f80b5532826e"] -}, Open ]], -Cell[31269, 1039, 138, 3, 29, "Input",ExpressionUUID->"ba4a3eff-9e3b-5e47-a896-3a959bbbf44d"], -Cell[CellGroupData[{ -Cell[31432, 1046, 2052, 59, 92, "Input",ExpressionUUID->"738a48f3-b38c-f441-aec4-53babaa73a14"], -Cell[33487, 1107, 524, 11, 38, "Message",ExpressionUUID->"bd0a7da1-672e-6b4e-afbd-4af379292e8d"], -Cell[34014, 1120, 526, 11, 38, "Message",ExpressionUUID->"9a8837e4-2afa-d145-83db-a88ef0e502bc"], -Cell[34543, 1133, 530, 11, 38, "Message",ExpressionUUID->"0aa4ed5d-b925-834d-b53a-95c75c4ff982"], -Cell[35076, 1146, 455, 10, 26, "Message",ExpressionUUID->"2742a735-9c26-7640-8a81-3e30eaffa353"], -Cell[35534, 1158, 172, 3, 33, "Output",ExpressionUUID->"d91a6bca-04d7-b84b-93cf-0695498dc4de"] +Cell[10069, 352, 1426, 47, 362, "Input",ExpressionUUID->"7ac71713-331a-43ab-86e7-5e48b4c916f6"], +Cell[11498, 401, 266, 6, 75, "Output",ExpressionUUID->"6a804999-cdae-453b-879e-cc9a593b3443"] }, Open ]], Cell[CellGroupData[{ -Cell[35743, 1166, 2054, 59, 92, "Input",ExpressionUUID->"86c33485-ed26-8f49-b3d0-7d040d3b48f0"], -Cell[37800, 1227, 524, 11, 38, "Message",ExpressionUUID->"2c553d54-16ec-9646-b6d7-75da3c367575"], -Cell[38327, 1240, 526, 11, 38, "Message",ExpressionUUID->"1c597fdf-5631-a84c-9feb-152df3629d86"], -Cell[38856, 1253, 528, 11, 38, "Message",ExpressionUUID->"48439b56-7b7d-fa4d-a4e2-5db2bbda0c77"], -Cell[39387, 1266, 456, 10, 26, "Message",ExpressionUUID->"66ce390f-34a9-df4d-9875-a339943ada86"], -Cell[39846, 1278, 170, 3, 33, "Output",ExpressionUUID->"2e46fa54-fabe-5040-8f8c-6829b7c76136"] +Cell[11801, 412, 1426, 47, 362, "Input",ExpressionUUID->"e4972212-2d1a-45e3-93e3-f736d99af180"], +Cell[13230, 461, 271, 6, 75, "Output",ExpressionUUID->"54f83984-6557-4bf9-bf87-23b211a8216a"] }, Open ]], Cell[CellGroupData[{ -Cell[40053, 1286, 1938, 53, 67, "Input",ExpressionUUID->"f373fe4f-940c-0842-9236-63ec36d318ad"], -Cell[41994, 1341, 19994, 375, 229, "Output",ExpressionUUID->"fdd0f260-414f-a94a-8f26-cd86e676700c"] +Cell[13538, 472, 1592, 51, 362, "Input",ExpressionUUID->"ae5371c6-593a-4fbe-b496-969ffa647461"], +Cell[15133, 525, 243, 5, 75, "Output",ExpressionUUID->"203756f7-87b4-4e9d-8926-03296331165a"] }, Open ]], Cell[CellGroupData[{ -Cell[62025, 1721, 2092, 60, 92, "Input",ExpressionUUID->"24fa5db0-1063-354a-bd60-c117a27ff3e1"], -Cell[64120, 1783, 490, 11, 38, "Message",ExpressionUUID->"546a9ea9-5939-f84a-87c6-58844f58f330"], -Cell[64613, 1796, 493, 11, 38, "Message",ExpressionUUID->"b36bffd7-1c84-5c45-a847-b2c31968f579"], -Cell[65109, 1809, 508, 11, 26, "Message",ExpressionUUID->"c864bef7-fc73-d94b-8cde-14570cba8095"], -Cell[65620, 1822, 456, 10, 26, "Message",ExpressionUUID->"a2e62375-acd2-6740-bfd7-026877c5bd7b"], -Cell[66079, 1834, 61603, 1057, 232, "Output",ExpressionUUID->"d4eecdc9-263c-5b43-bb29-cd0ac1286793"] -}, Open ]], -Cell[127697, 2894, 298, 7, 45, "Input",ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], -Cell[127998, 2903, 209, 5, 29, "Input",ExpressionUUID->"6d3700e1-f504-214a-a332-f16397f0b922"], -Cell[CellGroupData[{ -Cell[128232, 2912, 217, 7, 47, "Input",ExpressionUUID->"9051a5e3-bb9f-d941-bcca-598d0b6835be"], -Cell[128452, 2921, 169, 3, 33, "Output",ExpressionUUID->"07374b0a-4615-bf46-ab49-be8623cec410"] +Cell[15413, 535, 135, 3, 66, "Input",ExpressionUUID->"d961082f-869d-41a8-936a-7d5f4dea98d2"], +Cell[15551, 540, 234, 5, 75, "Output",ExpressionUUID->"2392fa3f-00cd-4601-a803-be2337d0ff8f"] }, Open ]], Cell[CellGroupData[{ -Cell[128658, 2929, 1816, 53, 92, "Input",ExpressionUUID->"65a995ff-ff3d-634e-9bad-4a8a16073236"], -Cell[130477, 2984, 502, 11, 38, "Message",ExpressionUUID->"c1f83af1-416a-6240-b3fd-c1bfcc643459"], -Cell[130982, 2997, 506, 11, 38, "Message",ExpressionUUID->"5cfd3c4b-6190-2c4d-8479-b4ccd7090f94"], -Cell[131491, 3010, 509, 11, 38, "Message",ExpressionUUID->"288fc6c7-a3fe-9b48-9c0d-bba2713f7084"], -Cell[132003, 3023, 456, 10, 26, "Message",ExpressionUUID->"09478fd5-b212-2347-91e7-b9097bd6d61d"], -Cell[132462, 3035, 28560, 514, 232, "Output",ExpressionUUID->"f7784347-2042-c042-8970-b060f9535d9e"] +Cell[15822, 550, 137, 3, 66, "Input",ExpressionUUID->"3af009a0-f9ac-4896-8cfb-5fcb7166a0a4"], +Cell[15962, 555, 232, 5, 75, "Output",ExpressionUUID->"40a100c3-c5d5-45dd-936e-22a6b712bc08"] }, Open ]], Cell[CellGroupData[{ -Cell[161059, 3554, 1616, 48, 67, "Input",ExpressionUUID->"86381d88-1537-a242-9cff-0b432b61d63d"], -Cell[162678, 3604, 576, 12, 38, "Message",ExpressionUUID->"0a4bed5c-621d-a546-88e9-ce7d779c106a"], -Cell[163257, 3618, 582, 12, 38, "Message",ExpressionUUID->"80e3943d-459b-8b41-9869-50a6cf829ef8"], -Cell[163842, 3632, 584, 12, 38, "Message",ExpressionUUID->"36529169-7f05-ee43-8080-ce8fdd404b8d"], -Cell[164429, 3646, 458, 10, 26, "Message",ExpressionUUID->"a6c5f0ff-3356-4c42-b883-ce45e5cc4f41"], -Cell[164890, 3658, 170, 3, 33, "Output",ExpressionUUID->"546f133a-4a8e-8d44-937d-5fc3ea2401d8"] +Cell[16231, 565, 138, 3, 66, "Input",ExpressionUUID->"86dd05d3-90b1-46a2-b995-da02a79b23ad"], +Cell[16372, 570, 240, 5, 75, "Output",ExpressionUUID->"a5285ea9-63b2-4c95-bcbd-49c0fd63be67"] }, Open ]], Cell[CellGroupData[{ -Cell[165097, 3666, 2247, 64, 62, "Input",ExpressionUUID->"6f0ad284-4db3-da47-b8dc-45830eedfe9c"], -Cell[167347, 3732, 522, 11, 38, "Message",ExpressionUUID->"2e7d173d-070f-de49-a3c2-9964fb888ede"], -Cell[167872, 3745, 526, 11, 38, "Message",ExpressionUUID->"04b23985-5685-d344-a2ed-9886796baf32"], -Cell[168401, 3758, 528, 11, 38, "Message",ExpressionUUID->"ccdd27f2-bd64-f442-a708-cfb1052c7f86"], -Cell[168932, 3771, 458, 10, 26, "Message",ExpressionUUID->"384ce3fd-4914-6b49-b10c-84d885ed65d6"], -Cell[169393, 3783, 175, 3, 33, "Output",ExpressionUUID->"8865a4e5-7fd3-3c49-a115-94c8c5479389"] +Cell[16649, 580, 223, 5, 66, "Input",ExpressionUUID->"a633539d-b93e-41a4-8a70-2ffca9d28f30"], +Cell[16875, 587, 247, 6, 75, "Output",ExpressionUUID->"aa542d55-5bb4-49ff-86f1-8fc03021093e"] }, Open ]], Cell[CellGroupData[{ -Cell[169605, 3791, 2221, 64, 62, "Input",ExpressionUUID->"b2dda819-6f34-5c49-bc62-303d815946e5"], -Cell[171829, 3857, 522, 11, 38, "Message",ExpressionUUID->"958049e8-43e1-cc46-81fb-5b3fe1a5d9ee"], -Cell[172354, 3870, 524, 11, 38, "Message",ExpressionUUID->"6ed73f20-f975-a34c-a5a3-af58e9ecd7ed"], -Cell[172881, 3883, 528, 11, 38, "Message",ExpressionUUID->"4ce11323-2f48-da4f-84f8-593751381024"], -Cell[173412, 3896, 458, 10, 26, "Message",ExpressionUUID->"330905cd-5b42-604b-aaf8-fbac43108165"], -Cell[173873, 3908, 170, 3, 33, "Output",ExpressionUUID->"020ade62-ec43-7549-8079-7ac012e004c4"] +Cell[17159, 598, 138, 3, 66, "Input",ExpressionUUID->"526f1644-7850-4ee9-8d10-cc36a22a17b4"], +Cell[17300, 603, 236, 5, 75, "Output",ExpressionUUID->"66d35873-9d30-4e18-a65a-eaeaa6c2d8d7"] }, Open ]], Cell[CellGroupData[{ -Cell[174080, 3916, 2221, 64, 62, "Input",ExpressionUUID->"76a9e77d-1f4c-bb4a-bb13-1a175f609f7d"], -Cell[176304, 3982, 524, 11, 38, "Message",ExpressionUUID->"9a8eff2d-0d97-2e45-a2f3-ce0634115f7d"], -Cell[176831, 3995, 526, 11, 38, "Message",ExpressionUUID->"7dd7e17e-c74e-7145-b6ae-77a0f02c67f1"], -Cell[177360, 4008, 530, 11, 38, "Message",ExpressionUUID->"311ddb21-a730-0b41-b633-2d3bac87be85"], -Cell[177893, 4021, 458, 10, 26, "Message",ExpressionUUID->"ecdc16e1-316d-b342-a60b-0f3075607709"], -Cell[178354, 4033, 171, 3, 33, "Output",ExpressionUUID->"a7fc6f95-4067-504b-8754-5086d2659934"] +Cell[17573, 613, 328, 6, 66, "Input",ExpressionUUID->"77bd0100-8f25-4471-a5fe-b00dd7082437"], +Cell[17904, 621, 232, 5, 75, "Output",ExpressionUUID->"f57370c4-914e-4378-8e25-5c7c37fecd36"] }, Open ]], Cell[CellGroupData[{ -Cell[178562, 4041, 215, 6, 46, "Input",ExpressionUUID->"69dd09d9-152e-3e4d-9517-4de4791db2f4"], -Cell[178780, 4049, 175, 3, 33, "Output",ExpressionUUID->"96bb6c6a-f128-024e-85ce-f8a6083a68c6"] -}, Open ]], -Cell[178970, 4055, 245, 5, 29, "Input",ExpressionUUID->"6ecc7e8c-a7c5-354e-b168-749729cd7104"], -Cell[CellGroupData[{ -Cell[179240, 4064, 623, 20, 51, "Input",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], -Cell[179866, 4086, 172, 3, 33, "Output",ExpressionUUID->"fecac54e-ac70-c448-b60d-60e5d8aa9072"] +Cell[18173, 631, 301, 6, 66, "Input",ExpressionUUID->"cfada19d-57a2-4ee8-baa9-a6cf4e4f8d05"], +Cell[18477, 639, 235, 5, 75, "Output",ExpressionUUID->"eec9b0d8-1649-4054-89c0-0850d3ce9d92"] }, Open ]], Cell[CellGroupData[{ -Cell[180075, 4094, 170, 5, 55, "Input",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], -Cell[180248, 4101, 172, 3, 33, "Output",ExpressionUUID->"31e41e93-aaef-1b4f-a5e6-3cad86684dfc"] +Cell[18749, 649, 223, 5, 66, "Input",ExpressionUUID->"1641be81-df7b-4fd0-bab9-9f05fed9979c"], +Cell[18975, 656, 229, 5, 75, "Output",ExpressionUUID->"f67d1027-c0ba-4ced-a472-9643db548c79"] }, Open ]], Cell[CellGroupData[{ -Cell[180457, 4109, 181, 5, 43, "Input",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], -Cell[180641, 4116, 172, 3, 33, "Output",ExpressionUUID->"d20f2acf-afe0-0844-b0cd-0cdce2394573"] +Cell[19241, 666, 354, 11, 96, "Input",ExpressionUUID->"a0686ee3-e375-4ac1-8346-4c89db0903f9"], +Cell[19598, 679, 251, 5, 75, "Output",ExpressionUUID->"eae3cf94-a023-4a84-b1bd-2932f42e870b"] }, Open ]], Cell[CellGroupData[{ -Cell[180850, 4124, 6055, 185, 195, "Input",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], -Cell[186908, 4311, 174, 3, 33, "Output",ExpressionUUID->"ec544098-6efd-4845-b84f-33e39ead67c9"] +Cell[19886, 689, 354, 11, 96, "Input",ExpressionUUID->"1b1dfec8-3f50-4775-83ad-88a1163965d1"], +Cell[20243, 702, 267, 6, 75, "Output",ExpressionUUID->"2cbd2036-2746-48f6-91b5-80289d5506f5"] }, Open ]], Cell[CellGroupData[{ -Cell[187119, 4319, 368, 9, 41, "Input",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], -Cell[187490, 4330, 173, 3, 33, "Output",ExpressionUUID->"85f4fe6d-1167-7a40-b761-0a55e5251875"] +Cell[20547, 713, 998, 27, 184, "Input",ExpressionUUID->"fcb55ebc-e0fb-4dba-9687-5e497fbf44b3"], +Cell[21548, 742, 246, 5, 75, "Output",ExpressionUUID->"e35aa21a-738d-4a1f-8438-33d3fdb80a96"] }, Open ]], Cell[CellGroupData[{ -Cell[187700, 4338, 6122, 187, 195, "Input",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], -Cell[193825, 4527, 175, 3, 33, "Output",ExpressionUUID->"53db8250-199b-594a-8ebd-fc9cc43217e3"] +Cell[21831, 752, 203, 4, 66, "Input",ExpressionUUID->"3e095f03-a0b4-4024-87a1-088c9019f7b9"], +Cell[22037, 758, 234, 5, 75, "Output",ExpressionUUID->"4947dc45-d1d3-4cbb-ad04-1ba65600cb68"] }, Open ]], Cell[CellGroupData[{ -Cell[194037, 4535, 368, 9, 41, "Input",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], -Cell[194408, 4546, 170, 3, 33, "Output",ExpressionUUID->"0013bb3e-54d0-e343-9869-cf63da2eecbd"] +Cell[22308, 768, 333, 6, 66, "Input",ExpressionUUID->"e91d6a5c-806c-42e9-8cd4-d1dd901d11ff"], +Cell[22644, 776, 211, 4, 75, "Output",ExpressionUUID->"288865a1-8873-4cb3-ab45-533ad4ca0074"] +}, Open ]], +Cell[22870, 783, 177, 3, 66, "Input",ExpressionUUID->"48b76456-aae3-4c3b-9640-ff5134eb7551"], +Cell[CellGroupData[{ +Cell[23072, 790, 333, 6, 66, "Input",ExpressionUUID->"1bd9a53f-2064-415c-85b2-1b899328fdfc"], +Cell[23408, 798, 211, 4, 75, "Output",ExpressionUUID->"7a066b36-32ec-4953-bcc5-1a1ffaa32a31"] +}, Open ]], +Cell[23634, 805, 177, 3, 66, "Input",ExpressionUUID->"b7f34cd4-68b5-48ae-ae2f-9be7de71fb7d"], +Cell[CellGroupData[{ +Cell[23836, 812, 330, 6, 66, "Input",ExpressionUUID->"d56db30f-ee84-4b14-b4f1-c59418196932"], +Cell[24169, 820, 205, 4, 75, "Output",ExpressionUUID->"c7dd0441-2bfd-4d83-a246-7f968fff4d7f"] +}, Open ]], +Cell[24389, 827, 177, 3, 66, "Input",ExpressionUUID->"faef14ec-6e42-49fa-aec7-1e9033a91eb8"], +Cell[CellGroupData[{ +Cell[24591, 834, 356, 6, 66, "Input",ExpressionUUID->"26549962-cf45-4a0a-87fa-a1b8e607c233"], +Cell[24950, 842, 209, 4, 75, "Output",ExpressionUUID->"7ee25934-e7b9-4ef4-b7c7-7316f471c5c8"] +}, Open ]], +Cell[25174, 849, 175, 3, 66, "Input",ExpressionUUID->"bad5a6ff-0f0e-40a4-8fc7-216274bbe398"], +Cell[CellGroupData[{ +Cell[25374, 856, 303, 6, 66, "Input",ExpressionUUID->"517a3596-f04a-44e1-af5f-e0f50526ce48"], +Cell[25680, 864, 211, 4, 75, "Output",ExpressionUUID->"cf8515f0-a554-4104-81c4-4333ae728e2a"] +}, Open ]], +Cell[25906, 871, 175, 3, 66, "Input",ExpressionUUID->"eba5c45e-bee3-4997-9150-519fc7c33e0c"], +Cell[CellGroupData[{ +Cell[26106, 878, 309, 6, 66, "Input",ExpressionUUID->"130ce0b5-ee01-4346-b901-37c115d6fb32"], +Cell[26418, 886, 208, 4, 75, "Output",ExpressionUUID->"d8d811d3-a53a-4ef4-83cc-0cbd8df3c70c"] +}, Open ]], +Cell[26641, 893, 177, 3, 66, "Input",ExpressionUUID->"3ed15dd7-c424-4df4-a6bf-dfa7e6aeb2ec"], +Cell[CellGroupData[{ +Cell[26843, 900, 310, 6, 66, "Input",ExpressionUUID->"df1a2442-03ec-4485-8944-b236bed6503a"], +Cell[27156, 908, 208, 4, 75, "Output",ExpressionUUID->"e656085c-524a-4f01-9cf0-5bdfb977c8db"] +}, Open ]], +Cell[27379, 915, 176, 3, 66, "Input",ExpressionUUID->"a234e16c-16de-4a73-9e28-91279f7e26f3"], +Cell[CellGroupData[{ +Cell[27580, 922, 278, 5, 66, "Input",ExpressionUUID->"ebcd049d-92ed-452d-bb22-180ce6be5688"], +Cell[27861, 929, 207, 4, 75, "Output",ExpressionUUID->"d8ddea09-4296-4828-8bba-f955ce32150e"] +}, Open ]], +Cell[28083, 936, 179, 3, 66, "Input",ExpressionUUID->"fb171c90-d58d-46a3-835f-4205c35564bb"], +Cell[CellGroupData[{ +Cell[28287, 943, 19813, 486, 5405, "Input",ExpressionUUID->"3a22b78a-b793-4e2c-b868-4eb499f8ba16"], +Cell[48103, 1431, 249, 5, 75, "Output",ExpressionUUID->"91955a31-faab-4202-b29a-c9bb0fb8950b"] }, Open ]], Cell[CellGroupData[{ -Cell[194615, 4554, 2663, 88, 115, "Input",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], -Cell[197281, 4644, 173, 3, 33, "Output",ExpressionUUID->"96d8705a-f744-d447-bad0-55fe1d703f38"] +Cell[48389, 1441, 19752, 490, 5343, "Input",ExpressionUUID->"8fac76ff-18b4-4efc-bd89-766736fce3f6"], +Cell[68144, 1933, 247, 5, 75, "Output",ExpressionUUID->"1633a0ea-8e42-4d34-8c0f-6abb5a1f2a40"] }, Open ]], Cell[CellGroupData[{ -Cell[197491, 4652, 2603, 85, 115, "Input",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], -Cell[200097, 4739, 172, 3, 33, "Output",ExpressionUUID->"bad41b21-8b15-a74b-a641-622c6584a958"] +Cell[68428, 1943, 19752, 484, 5342, "Input",ExpressionUUID->"fc31ed85-7cff-4467-889f-062e008e9d03"], +Cell[88183, 2429, 265, 6, 75, "Output",ExpressionUUID->"9f2a0b92-04f3-40c7-8cce-aa5f0fce9176"] }, Open ]], Cell[CellGroupData[{ -Cell[200306, 4747, 3712, 118, 172, "Input",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], -Cell[204021, 4867, 174, 3, 33, "Output",ExpressionUUID->"a42f993d-5633-3546-ae09-6931972f9312"] +Cell[88485, 2440, 22538, 554, 6074, "Input",ExpressionUUID->"13629225-859e-47c9-877e-db45c48a8bd0"], +Cell[111026, 2996, 267, 6, 75, "Output",ExpressionUUID->"7fc43723-8a9d-4494-98bc-7d5130838e66"] }, Open ]], Cell[CellGroupData[{ -Cell[204232, 4875, 2052, 59, 92, "Input",ExpressionUUID->"d6aa822f-4140-174a-8e29-c889dba5c0d8"], -Cell[206287, 4936, 574, 12, 38, "Message",ExpressionUUID->"91f9ae14-8766-3848-9c79-ec46ad6af7ea"], -Cell[206864, 4950, 580, 12, 38, "Message",ExpressionUUID->"2440fadc-b12b-424f-a600-97a0a8c9f031"], -Cell[207447, 4964, 582, 12, 38, "Message",ExpressionUUID->"d4d1d26f-ac2b-a949-95b4-8d60af02cc4b"], -Cell[208032, 4978, 456, 10, 26, "Message",ExpressionUUID->"0cb59396-7a19-6b43-af2b-0a0ce0427b94"], -Cell[208491, 4990, 171, 3, 33, "Output",ExpressionUUID->"3ceb430a-d440-e040-b6a8-a18a3884b326"] +Cell[111330, 3007, 22539, 554, 6074, "Input",ExpressionUUID->"512cbaa5-9386-4f59-a7db-028ba9a21ddf"], +Cell[133872, 3563, 266, 6, 75, "Output",ExpressionUUID->"729795d9-94c0-44d1-8662-42c68cda0eaf"] }, Open ]], Cell[CellGroupData[{ -Cell[208699, 4998, 2054, 59, 92, "Input",ExpressionUUID->"46f3f057-22eb-c143-af7a-23ddab00799c"], -Cell[210756, 5059, 574, 12, 26, "Message",ExpressionUUID->"ccb81c35-09e9-854b-9187-d46e8624546d"], -Cell[211333, 5073, 578, 12, 26, "Message",ExpressionUUID->"6dff6307-9a24-c74d-90d8-2f18b14858dc"], -Cell[211914, 5087, 582, 12, 26, "Message",ExpressionUUID->"11045565-b757-154a-b614-eb73b2dcbc5f"], -Cell[212499, 5101, 458, 10, 26, "Message",ExpressionUUID->"af9dd0c6-d446-9940-b908-9b52fbb611cb"], -Cell[212960, 5113, 169, 3, 33, "Output",ExpressionUUID->"d39c46b4-75c6-f741-b7fd-1a1fdbe4155f"] +Cell[134175, 3574, 25495, 627, 6806, "Input",ExpressionUUID->"1a5227a1-c926-4069-a1d5-d03f382f066c"], +Cell[159673, 4203, 265, 6, 75, "Output",ExpressionUUID->"78ee98f3-1818-4c66-8b49-6dcdadee4e72"] }, Open ]], Cell[CellGroupData[{ -Cell[213166, 5121, 2030, 55, 51, "Input",ExpressionUUID->"0137ed47-cd78-284a-910a-31d165f1571c"], -Cell[215199, 5178, 20326, 381, 238, "Output",ExpressionUUID->"5f98f6f4-700b-0a4b-af1c-32125fed3e6a"] -}, Open ]], -Cell[235540, 5562, 2144, 61, 92, "Input",ExpressionUUID->"00a32bc3-df79-9e43-8f20-d4884962c12d"], -Cell[237687, 5625, 138, 3, 29, "Input",ExpressionUUID->"344da507-9044-ef47-aa8c-99f282e3d6d3"], -Cell[CellGroupData[{ -Cell[237850, 5632, 1616, 48, 67, "Input",ExpressionUUID->"f13d1bd8-d153-ae43-b041-68b993e77854"], -Cell[239469, 5682, 592, 12, 38, "Message",ExpressionUUID->"318da404-8df4-c540-9269-2b249c7e148e"], -Cell[240064, 5696, 597, 12, 38, "Message",ExpressionUUID->"42939765-c33b-c147-a25b-bfa31c71a3cb"], -Cell[240664, 5710, 599, 12, 38, "Message",ExpressionUUID->"63b912c5-afab-654e-9609-c4b849e9abfe"], -Cell[241266, 5724, 458, 10, 26, "Message",ExpressionUUID->"2c8999d2-d9b5-ef4e-a59d-c314a02b2b2a"], -Cell[241727, 5736, 172, 3, 33, "Output",ExpressionUUID->"52013fca-4692-bf47-a0cf-880d71f10fc1"] +Cell[159975, 4214, 134, 3, 66, "Input",ExpressionUUID->"a81b405e-908a-4134-8186-ca0385930fec"], +Cell[160112, 4219, 229, 5, 75, "Output",ExpressionUUID->"a85b9f1e-fc5d-4bad-9482-330b98467bb1"] }, Open ]], Cell[CellGroupData[{ -Cell[241936, 5744, 2249, 64, 62, "Input",ExpressionUUID->"53e25fab-b431-cc42-a467-e4dea0353ed0"], -Cell[244188, 5810, 576, 12, 38, "Message",ExpressionUUID->"285f997a-25b4-f647-9523-e0dd05446bae"], -Cell[244767, 5824, 580, 12, 38, "Message",ExpressionUUID->"b1d2a50d-b27b-ca46-afcb-af9e8d59323e"], -Cell[245350, 5838, 582, 12, 38, "Message",ExpressionUUID->"a36c085c-b95e-724c-a04e-30924ab7ac52"], -Cell[245935, 5852, 456, 10, 26, "Message",ExpressionUUID->"976edb68-80f3-5a4d-a255-2f217ec84bfa"], -Cell[246394, 5864, 171, 3, 33, "Output",ExpressionUUID->"b7107287-e519-1249-9ef0-b745347bdb78"] +Cell[160378, 4229, 134, 3, 66, "Input",ExpressionUUID->"8476bf90-e525-462a-94d7-cee096eb3e2e"], +Cell[160515, 4234, 232, 5, 75, "Output",ExpressionUUID->"1e74e985-696f-49c2-8cb3-a86f2ec6431f"] }, Open ]], Cell[CellGroupData[{ -Cell[246602, 5872, 2223, 64, 62, "Input",ExpressionUUID->"b18c819e-620a-d449-97d6-547e3a6fa152"], -Cell[248828, 5938, 574, 12, 38, "Message",ExpressionUUID->"2877ed71-3ee8-8044-94b0-c606083c07b7"], -Cell[249405, 5952, 578, 12, 38, "Message",ExpressionUUID->"34cfc5a5-16b6-f24f-acdf-b4e2d29b1bef"], -Cell[249986, 5966, 580, 12, 38, "Message",ExpressionUUID->"7fe7bdbe-3892-5043-b38d-13721c83d41a"], -Cell[250569, 5980, 458, 10, 26, "Message",ExpressionUUID->"93dfb0cd-55fb-1b4a-b671-37d180b9d444"], -Cell[251030, 5992, 173, 3, 33, "Output",ExpressionUUID->"372279b5-5e4a-b545-a159-384b26aa5ab4"] +Cell[160784, 4244, 1148, 40, 246, "Input",ExpressionUUID->"f94be985-7258-476c-a16d-33c95def05a9"], +Cell[161935, 4286, 246, 5, 75, "Output",ExpressionUUID->"a4d9c36b-7e86-4def-a38a-fa19d3b07c09"] }, Open ]], Cell[CellGroupData[{ -Cell[251240, 6000, 2221, 64, 62, "Input",ExpressionUUID->"22ab74c7-5916-9440-9d7d-c3e0f6ab8836"], -Cell[253464, 6066, 574, 12, 38, "Message",ExpressionUUID->"c14c35e1-e487-c742-a0da-128fdb9754d4"], -Cell[254041, 6080, 578, 12, 38, "Message",ExpressionUUID->"4396ed61-4d7e-6144-80f0-6d5649cfcb04"], -Cell[254622, 6094, 582, 12, 38, "Message",ExpressionUUID->"00fa2dcd-bc0b-9e44-9f00-15116f344aca"], -Cell[255207, 6108, 455, 10, 26, "Message",ExpressionUUID->"78b12bf1-7793-9341-ad5f-c7be406b8be6"], -Cell[255665, 6120, 170, 3, 33, "Output",ExpressionUUID->"9454fa52-ff74-094b-8081-2fc86cf96043"] +Cell[162218, 4296, 1045, 36, 246, "Input",ExpressionUUID->"bf0647ef-26aa-4c15-a477-69c327e17cdd"], +Cell[163266, 4334, 262, 6, 75, "Output",ExpressionUUID->"923be44c-8e98-4e0d-b2a3-a5f96e8421a1"] }, Open ]], Cell[CellGroupData[{ -Cell[255872, 6128, 215, 6, 46, "Input",ExpressionUUID->"f9c66987-c237-7a40-a006-e20e260dbdcb"], -Cell[256090, 6136, 174, 3, 33, "Output",ExpressionUUID->"175eda7e-c091-3e4f-86ac-3148f0a9e904"] -}, Open ]], -Cell[256279, 6142, 249, 5, 29, "Input",ExpressionUUID->"770a9ed7-7938-9e48-be64-c31719ef3a6b"], -Cell[CellGroupData[{ -Cell[256553, 6151, 558, 19, 51, "Input",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], -Cell[257114, 6172, 169, 3, 33, "Output",ExpressionUUID->"e757c22c-d836-6c4a-a9f7-93553c4bb232"] +Cell[163565, 4345, 1148, 40, 246, "Input",ExpressionUUID->"f6cd6589-21f0-4053-bef6-51735a9b5449"], +Cell[164716, 4387, 250, 5, 75, "Output",ExpressionUUID->"a96f0478-8fe4-4973-a87e-4278b1226073"] }, Open ]], Cell[CellGroupData[{ -Cell[257320, 6180, 170, 5, 55, "Input",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], -Cell[257493, 6187, 173, 3, 33, "Output",ExpressionUUID->"7f3ee547-87eb-d74d-8f21-a8d42f1dde52"] +Cell[165003, 4397, 112, 2, 66, "Input",ExpressionUUID->"e20a649a-72ab-4a99-926e-2ea1ca52f590"], +Cell[165118, 4401, 248, 5, 75, "Output",ExpressionUUID->"b13cf7ef-97a3-4fef-813b-8c1db0a06b3b"] }, Open ]], Cell[CellGroupData[{ -Cell[257703, 6195, 181, 5, 43, "Input",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], -Cell[257887, 6202, 173, 3, 33, "Output",ExpressionUUID->"0603b6e6-a8b7-1e45-9b15-2769b7fbc373"] +Cell[165403, 4411, 112, 2, 66, "Input",ExpressionUUID->"c216a986-3947-47c3-b8dd-a24331214a74"], +Cell[165518, 4415, 266, 6, 75, "Output",ExpressionUUID->"9193edb0-aa30-41e4-8af4-74da1445e38d"] }, Open ]], Cell[CellGroupData[{ -Cell[258097, 6210, 6055, 185, 195, "Input",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], -Cell[264155, 6397, 174, 3, 33, "Output",ExpressionUUID->"8b7a346f-cdda-e24e-b924-d6cfb1b3119a"] +Cell[165821, 4426, 112, 2, 66, "Input",ExpressionUUID->"2d85275b-6b14-40bf-b4e6-ba346d30ba60"], +Cell[165936, 4430, 262, 6, 75, "Output",ExpressionUUID->"6a02038d-b071-4c7a-a75e-b6e5eef0ac69"] }, Open ]], Cell[CellGroupData[{ -Cell[264366, 6405, 368, 9, 41, "Input",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], -Cell[264737, 6416, 172, 3, 33, "Output",ExpressionUUID->"3354b35a-acef-b846-b770-8d2e77b8f68b"] +Cell[166235, 4441, 112, 2, 66, "Input",ExpressionUUID->"71d44f1e-c44c-4d18-8fc2-d9a46f6a7caa"], +Cell[166350, 4445, 248, 5, 75, "Output",ExpressionUUID->"7e2a630b-3c94-4242-871a-4d4a5a53ae8e"] }, Open ]], Cell[CellGroupData[{ -Cell[264946, 6424, 6122, 187, 195, "Input",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], -Cell[271071, 6613, 172, 3, 33, "Output",ExpressionUUID->"7b76721b-3d4c-c544-9113-83ba4f36ae7f"] +Cell[166635, 4455, 111, 2, 66, "Input",ExpressionUUID->"35c8bcf6-abaa-4803-abe7-7e6df3c9cf0c"], +Cell[166749, 4459, 225, 4, 75, "Output",ExpressionUUID->"9dcbb3fa-0a05-4dd9-bb91-0b2127d354e1"] }, Open ]], Cell[CellGroupData[{ -Cell[271280, 6621, 368, 9, 41, "Input",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], -Cell[271651, 6632, 170, 3, 33, "Output",ExpressionUUID->"e9346704-c478-364d-b5eb-0aabe0e2e350"] +Cell[167011, 4468, 111, 2, 66, "Input",ExpressionUUID->"14b6da05-6584-437e-b3a2-fd9e0032b3af"], +Cell[167125, 4472, 221, 4, 75, "Output",ExpressionUUID->"5fe74dca-1a92-4ec0-b98c-12f909610fe1"] }, Open ]], Cell[CellGroupData[{ -Cell[271858, 6640, 2663, 88, 115, "Input",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], -Cell[274524, 6730, 173, 3, 33, "Output",ExpressionUUID->"33b7f444-6995-e54b-a2a6-ad09016b1850"] +Cell[167383, 4481, 501, 17, 125, "Input",ExpressionUUID->"d7e311d0-fe21-4a3a-8842-37001bc0d559"], +Cell[167887, 4500, 238, 5, 75, "Output",ExpressionUUID->"0ac2c732-d5c7-4f63-900c-51d6c1304ea0"] }, Open ]], Cell[CellGroupData[{ -Cell[274734, 6738, 2603, 85, 115, "Input",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], -Cell[277340, 6825, 172, 3, 33, "Output",ExpressionUUID->"76ba8e46-11c7-f54d-bfb2-cca1b455c838"] +Cell[168162, 4510, 501, 17, 125, "Input",ExpressionUUID->"d26ec46e-58d9-4e8e-bf31-e532b8d3261c"], +Cell[168666, 4529, 238, 5, 41, "Output",ExpressionUUID->"050c4da5-9b96-4c6f-88c4-3e5ea241d76a"] }, Open ]], Cell[CellGroupData[{ -Cell[277549, 6833, 3712, 118, 172, "Input",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], -Cell[281264, 6953, 172, 3, 33, "Output",ExpressionUUID->"f7c29774-2634-5546-ab63-4d3ac6889f79"] +Cell[168941, 4539, 1792, 61, 142, "Input",ExpressionUUID->"7bc3c456-5e98-458e-a765-50ef323a8d69"], +Cell[170736, 4602, 219, 4, 41, "Output",ExpressionUUID->"698d6641-bcba-4a98-b5d5-ef9cf9a37140"] }, Open ]], Cell[CellGroupData[{ -Cell[281473, 6961, 2052, 59, 92, "Input",ExpressionUUID->"55d51961-97f2-ed4d-8bf8-8a461d652ab4"], -Cell[283528, 7022, 573, 12, 38, "Message",ExpressionUUID->"3d5a1265-fb27-0b41-a549-5e326650d270"], -Cell[284104, 7036, 573, 12, 38, "Message",ExpressionUUID->"0726d23e-32d7-7a41-8d7f-0b62fec75437"], -Cell[284680, 7050, 579, 12, 38, "Message",ExpressionUUID->"b47482ef-bec0-234f-aeb7-9009a378a36d"], -Cell[285262, 7064, 458, 10, 26, "Message",ExpressionUUID->"e5e35e3a-0e40-c249-b6f3-c2a6a5a48740"], -Cell[285723, 7076, 170, 3, 33, "Output",ExpressionUUID->"b33776d0-2a41-694b-9af8-c4d483383e7c"] +Cell[170992, 4611, 1105, 37, 73, "Input",ExpressionUUID->"e42625ee-4eb9-48fb-a3b3-206c107c36f1"], +Cell[172100, 4650, 238, 5, 41, "Output",ExpressionUUID->"8fd3918b-56b9-46be-9f6a-7d8d438d2737"] }, Open ]], Cell[CellGroupData[{ -Cell[285930, 7084, 2052, 59, 92, "Input",ExpressionUUID->"9704b9d3-b449-2144-9970-6a7de047241d"], -Cell[287985, 7145, 573, 12, 38, "Message",ExpressionUUID->"ffb6a3c0-c488-cd48-870e-d66051362026"], -Cell[288561, 7159, 575, 12, 38, "Message",ExpressionUUID->"ca3fb11a-47f9-c542-a5c9-6e0087e110b9"], -Cell[289139, 7173, 579, 12, 38, "Message",ExpressionUUID->"7e4a0639-38a1-f74e-ab8e-5264cad2d48c"], -Cell[289721, 7187, 458, 10, 26, "Message",ExpressionUUID->"101eaea3-75b1-d942-9914-a0fe8a6e2f65"], -Cell[290182, 7199, 169, 3, 33, "Output",ExpressionUUID->"921a9c76-dcb9-484a-bc19-88ddead9467a"] +Cell[172375, 4660, 1822, 62, 144, "Input",ExpressionUUID->"577572a2-9d9b-4146-b62c-6811bf661235"], +Cell[174200, 4724, 217, 4, 41, "Output",ExpressionUUID->"51614b2f-f889-45cb-a290-f23ace627243"] }, Open ]], Cell[CellGroupData[{ -Cell[290388, 7207, 2028, 55, 51, "Input",ExpressionUUID->"0fd90636-7592-fc40-bf9d-ae1cb915c656"], -Cell[292419, 7264, 20296, 381, 236, "Output",ExpressionUUID->"09d149ec-0259-a345-a282-743f783e7913"] +Cell[174454, 4733, 1635, 54, 101, "Input",ExpressionUUID->"60c953d6-0a51-47eb-9807-9b0b90eff906"], +Cell[176092, 4789, 222, 4, 41, "Output",ExpressionUUID->"dec8fdd5-5e54-4610-9cb6-e5bcd4842e75"] }, Open ]], Cell[CellGroupData[{ -Cell[312752, 7650, 2146, 61, 92, "Input",ExpressionUUID->"90696e8b-5a2d-314c-8d58-ac84cb8f4d66"], -Cell[314901, 7713, 500, 11, 38, "Message",ExpressionUUID->"526ffad5-83ae-c149-9912-e494135b3fca"], -Cell[315404, 7726, 505, 11, 38, "Message",ExpressionUUID->"1adb1680-bdf2-4144-bcc9-7270c61e97b7"], -Cell[315912, 7739, 509, 11, 38, "Message",ExpressionUUID->"9e5d82d5-642b-cb46-8232-be5a5ca7050d"], -Cell[316424, 7752, 458, 10, 26, "Message",ExpressionUUID->"ef931413-f964-5b45-a755-76cab1ab5309"], -Cell[316885, 7764, 39609, 697, 232, "Output",ExpressionUUID->"23497d29-f516-664b-9ee0-ea8f6d88359c"] +Cell[176351, 4798, 1635, 54, 101, "Input",ExpressionUUID->"e3811601-4365-4ef4-ac4c-c4c828a9660c"], +Cell[177989, 4854, 219, 4, 41, "Output",ExpressionUUID->"fee1019a-a3ba-48d1-a327-daccfa027098"] }, Open ]], -Cell[356509, 8464, 209, 5, 29, "Input",ExpressionUUID->"ea848967-083d-ea47-bce0-5c3b93725916"], +Cell[178223, 4861, 250, 5, 56, "Input",ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], +Cell[178476, 4868, 253, 5, 56, "Input",ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], Cell[CellGroupData[{ -Cell[356743, 8473, 1616, 48, 67, "Input",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], -Cell[358362, 8523, 589, 12, 38, "Message",ExpressionUUID->"100796fd-6fde-3c41-9088-c2d3ae2f8aeb"], -Cell[358954, 8537, 595, 12, 38, "Message",ExpressionUUID->"c91e75b4-9e2b-1e49-a5d5-453d5f87b5e3"], -Cell[359552, 8551, 596, 12, 38, "Message",ExpressionUUID->"5d8ad6a4-5b83-df49-8c4d-081081895528"], -Cell[360151, 8565, 458, 10, 26, "Message",ExpressionUUID->"26eed7af-5e0a-e840-9956-caca06166010"], -Cell[360612, 8577, 171, 3, 33, "Output",ExpressionUUID->"e4e35b92-e786-3044-bf1d-9c587b1357a2"] +Cell[178754, 4877, 1301, 43, 61, "Input",ExpressionUUID->"5e48fe0c-b3e8-2b40-82cb-716b23b2f326"], +Cell[180058, 4922, 178, 3, 41, "Output",ExpressionUUID->"1db85c02-7ca3-154e-854d-2c36f89709c4"] }, Open ]], Cell[CellGroupData[{ -Cell[360820, 8585, 2249, 64, 62, "Input",ExpressionUUID->"80bba3bc-d8f7-1c4b-9262-0895c02ffd8f"], -Cell[363072, 8651, 573, 12, 38, "Message",ExpressionUUID->"6b65fc2b-3e1d-714d-aeb9-43978836a621"], -Cell[363648, 8665, 573, 12, 38, "Message",ExpressionUUID->"c4736a05-b0e1-5e49-b581-f3ce4c83fe21"], -Cell[364224, 8679, 579, 12, 38, "Message",ExpressionUUID->"ae8eb83c-0205-8046-8445-e249896b7ee5"], -Cell[364806, 8693, 458, 10, 26, "Message",ExpressionUUID->"5072d590-62c3-7a47-ae1b-6dd617a0b9dc"], -Cell[365267, 8705, 174, 3, 70, "Output",ExpressionUUID->"8dd7e1f9-bbea-d84b-ad0e-8922158aee9e"] +Cell[180273, 4930, 910, 31, 73, "Input",ExpressionUUID->"e4db2648-4e1a-2c46-83ab-fcd932c3b663"], +Cell[181186, 4963, 175, 3, 41, "Output",ExpressionUUID->"78ed190c-23cd-4d45-867a-2b08174b715f"] }, Open ]], Cell[CellGroupData[{ -Cell[365478, 8713, 2221, 64, 70, "Input",ExpressionUUID->"57976ffc-56f1-604b-8519-bead95265db8"], -Cell[367702, 8779, 573, 12, 70, "Message",ExpressionUUID->"7ab877ea-0e4b-f948-97c2-7ebafb7901b1"], -Cell[368278, 8793, 575, 12, 70, "Message",ExpressionUUID->"a87a57c5-24bc-dc4a-888a-b3c0095c10c4"], -Cell[368856, 8807, 577, 12, 70, "Message",ExpressionUUID->"d8af7fb1-1d43-664e-ae2d-698eaa818746"], -Cell[369436, 8821, 456, 10, 70, "Message",ExpressionUUID->"7abec434-52e8-c64c-ac86-90da0b27b8aa"], -Cell[369895, 8833, 172, 3, 70, "Output",ExpressionUUID->"164a4c34-f121-a445-b434-e34aa59666ab"] +Cell[181398, 4971, 885, 30, 73, "Input",ExpressionUUID->"e4649c3d-e19e-ca42-95a0-23b66397f1fd"], +Cell[182286, 5003, 177, 3, 41, "Output",ExpressionUUID->"82ec2512-4fcb-ba44-b472-bb3a66bb622e"] }, Open ]], Cell[CellGroupData[{ -Cell[370104, 8841, 2219, 64, 70, "Input",ExpressionUUID->"cfa37210-3ae7-3f49-b290-f19508c6d2f1"], -Cell[372326, 8907, 571, 12, 70, "Message",ExpressionUUID->"92295db4-13f0-284e-8173-df7f8dd20dcf"], -Cell[372900, 8921, 573, 12, 70, "Message",ExpressionUUID->"c6280e41-1347-0f47-81a9-bcd3687b7b73"], -Cell[373476, 8935, 579, 12, 70, "Message",ExpressionUUID->"2aa0f4b1-01ca-4644-884e-b759d4a75412"], -Cell[374058, 8949, 458, 10, 70, "Message",ExpressionUUID->"ab3c3bff-179e-9f4e-b56a-87d1b4f6fc04"], -Cell[374519, 8961, 172, 3, 70, "Output",ExpressionUUID->"f5b8154f-e61e-6a4e-b068-b6c1916773ef"] +Cell[182500, 5011, 558, 19, 66, "Input",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], +Cell[183061, 5032, 173, 3, 41, "Output",ExpressionUUID->"9d53fa4a-be54-7b42-83bd-0a5560193c0f"] }, Open ]], Cell[CellGroupData[{ -Cell[374728, 8969, 211, 6, 70, "Input",ExpressionUUID->"7457b456-6d32-5b44-9679-346c5f5ac532"], -Cell[374942, 8977, 174, 3, 70, "Output",ExpressionUUID->"14434839-d5cf-b844-b849-b3b3102df434"] +Cell[183271, 5040, 623, 21, 66, "Input",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], +Cell[183897, 5063, 170, 3, 41, "Output",ExpressionUUID->"4107fa63-a138-df48-a95c-ec944a983800"] +}, Open ]], +Cell[CellGroupData[{ +Cell[184104, 5071, 170, 5, 71, "Input",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], +Cell[184277, 5078, 173, 3, 41, "Output",ExpressionUUID->"f894fb1d-1550-5146-a259-dfa871655c2a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[184487, 5086, 170, 5, 69, "Input",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], +Cell[184660, 5093, 170, 3, 41, "Output",ExpressionUUID->"8d5b13a4-8c75-0f48-ab21-9720bb8c0cbc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[184867, 5101, 181, 5, 55, "Input",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], +Cell[185051, 5108, 171, 3, 41, "Output",ExpressionUUID->"4d4b493f-9f2d-1e41-979f-fb4d58d0e93a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185259, 5116, 181, 5, 55, "Input",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], +Cell[185443, 5123, 173, 3, 41, "Output",ExpressionUUID->"e40db20b-c65e-4a45-ba96-abcb59b0d0ac"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185653, 5131, 6055, 185, 431, "Input",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], +Cell[191711, 5318, 175, 3, 41, "Output",ExpressionUUID->"cdf81fea-e12a-2b44-81a8-222b4bbf8a86"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191923, 5326, 368, 9, 53, "Input",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], +Cell[192294, 5337, 170, 3, 41, "Output",ExpressionUUID->"181dc1c8-632b-4b43-91c4-d3626d65bfc7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192501, 5345, 6122, 187, 431, "Input",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], +Cell[198626, 5534, 175, 3, 41, "Output",ExpressionUUID->"c7d972b4-764c-954a-8260-240d49cfcff6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[198838, 5542, 368, 9, 53, "Input",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], +Cell[199209, 5553, 172, 3, 41, "Output",ExpressionUUID->"c285a758-c3ad-974b-93c3-4cb0d4bdd2ae"] +}, Open ]], +Cell[CellGroupData[{ +Cell[199418, 5561, 2663, 88, 215, "Input",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], +Cell[202084, 5651, 173, 3, 41, "Output",ExpressionUUID->"5dc957f4-8f84-c54c-80a3-c76f756c5df4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[202294, 5659, 2603, 85, 215, "Input",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], +Cell[204900, 5746, 172, 3, 41, "Output",ExpressionUUID->"b4ee01d5-3415-494b-b28a-4587c8d8bb90"] +}, Open ]], +Cell[CellGroupData[{ +Cell[205109, 5754, 3712, 118, 316, "Input",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], +Cell[208824, 5874, 174, 3, 41, "Output",ExpressionUUID->"20c44e64-7085-8e4d-a9d6-f80b5532826e"] +}, Open ]], +Cell[209013, 5880, 138, 3, 36, "Input",ExpressionUUID->"ba4a3eff-9e3b-5e47-a896-3a959bbbf44d"], +Cell[CellGroupData[{ +Cell[209176, 5887, 2052, 59, 116, "Input",ExpressionUUID->"738a48f3-b38c-f441-aec4-53babaa73a14"], +Cell[211231, 5948, 524, 11, 48, "Message",ExpressionUUID->"bd0a7da1-672e-6b4e-afbd-4af379292e8d"], +Cell[211758, 5961, 526, 11, 48, "Message",ExpressionUUID->"9a8837e4-2afa-d145-83db-a88ef0e502bc"], +Cell[212287, 5974, 530, 11, 48, "Message",ExpressionUUID->"0aa4ed5d-b925-834d-b53a-95c75c4ff982"], +Cell[212820, 5987, 455, 10, 26, "Message",ExpressionUUID->"2742a735-9c26-7640-8a81-3e30eaffa353"], +Cell[213278, 5999, 172, 3, 41, "Output",ExpressionUUID->"d91a6bca-04d7-b84b-93cf-0695498dc4de"] +}, Open ]], +Cell[CellGroupData[{ +Cell[213487, 6007, 2054, 59, 116, "Input",ExpressionUUID->"86c33485-ed26-8f49-b3d0-7d040d3b48f0"], +Cell[215544, 6068, 524, 11, 48, "Message",ExpressionUUID->"2c553d54-16ec-9646-b6d7-75da3c367575"], +Cell[216071, 6081, 526, 11, 48, "Message",ExpressionUUID->"1c597fdf-5631-a84c-9feb-152df3629d86"], +Cell[216600, 6094, 528, 11, 48, "Message",ExpressionUUID->"48439b56-7b7d-fa4d-a4e2-5db2bbda0c77"], +Cell[217131, 6107, 456, 10, 26, "Message",ExpressionUUID->"66ce390f-34a9-df4d-9875-a339943ada86"], +Cell[217590, 6119, 170, 3, 41, "Output",ExpressionUUID->"2e46fa54-fabe-5040-8f8c-6829b7c76136"] +}, Open ]], +Cell[CellGroupData[{ +Cell[217797, 6127, 1938, 53, 86, "Input",ExpressionUUID->"f373fe4f-940c-0842-9236-63ec36d318ad"], +Cell[219738, 6182, 19994, 375, 285, "Output",ExpressionUUID->"fdd0f260-414f-a94a-8f26-cd86e676700c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[239769, 6562, 2092, 60, 116, "Input",ExpressionUUID->"24fa5db0-1063-354a-bd60-c117a27ff3e1"], +Cell[241864, 6624, 490, 11, 48, "Message",ExpressionUUID->"546a9ea9-5939-f84a-87c6-58844f58f330"], +Cell[242357, 6637, 493, 11, 48, "Message",ExpressionUUID->"b36bffd7-1c84-5c45-a847-b2c31968f579"], +Cell[242853, 6650, 508, 11, 33, "Message",ExpressionUUID->"c864bef7-fc73-d94b-8cde-14570cba8095"], +Cell[243364, 6663, 456, 10, 26, "Message",ExpressionUUID->"a2e62375-acd2-6740-bfd7-026877c5bd7b"], +Cell[243823, 6675, 61603, 1057, 290, "Output",ExpressionUUID->"d4eecdc9-263c-5b43-bb29-cd0ac1286793"] +}, Open ]], +Cell[305441, 7735, 2522, 71, 160, "Input",ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], +Cell[307966, 7808, 209, 5, 36, "Input",ExpressionUUID->"6d3700e1-f504-214a-a332-f16397f0b922"], +Cell[CellGroupData[{ +Cell[308200, 7817, 217, 7, 61, "Input",ExpressionUUID->"9051a5e3-bb9f-d941-bcca-598d0b6835be"], +Cell[308420, 7826, 169, 3, 41, "Output",ExpressionUUID->"07374b0a-4615-bf46-ab49-be8623cec410"] +}, Open ]], +Cell[CellGroupData[{ +Cell[308626, 7834, 1816, 53, 116, "Input",ExpressionUUID->"65a995ff-ff3d-634e-9bad-4a8a16073236"], +Cell[310445, 7889, 502, 11, 48, "Message",ExpressionUUID->"c1f83af1-416a-6240-b3fd-c1bfcc643459"], +Cell[310950, 7902, 506, 11, 48, "Message",ExpressionUUID->"5cfd3c4b-6190-2c4d-8479-b4ccd7090f94"], +Cell[311459, 7915, 509, 11, 48, "Message",ExpressionUUID->"288fc6c7-a3fe-9b48-9c0d-bba2713f7084"], +Cell[311971, 7928, 456, 10, 26, "Message",ExpressionUUID->"09478fd5-b212-2347-91e7-b9097bd6d61d"], +Cell[312430, 7940, 28560, 514, 290, "Output",ExpressionUUID->"f7784347-2042-c042-8970-b060f9535d9e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[341027, 8459, 1616, 48, 86, "Input",ExpressionUUID->"86381d88-1537-a242-9cff-0b432b61d63d"], +Cell[342646, 8509, 576, 12, 109, "Message",ExpressionUUID->"0a4bed5c-621d-a546-88e9-ce7d779c106a"], +Cell[343225, 8523, 582, 12, 109, "Message",ExpressionUUID->"80e3943d-459b-8b41-9869-50a6cf829ef8"], +Cell[343810, 8537, 584, 12, 109, "Message",ExpressionUUID->"36529169-7f05-ee43-8080-ce8fdd404b8d"], +Cell[344397, 8551, 458, 10, 109, "Message",ExpressionUUID->"a6c5f0ff-3356-4c42-b883-ce45e5cc4f41"], +Cell[344858, 8563, 170, 3, 109, "Output",ExpressionUUID->"546f133a-4a8e-8d44-937d-5fc3ea2401d8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[345065, 8571, 2247, 64, 109, "Input",ExpressionUUID->"6f0ad284-4db3-da47-b8dc-45830eedfe9c"], +Cell[347315, 8637, 522, 11, 109, "Message",ExpressionUUID->"2e7d173d-070f-de49-a3c2-9964fb888ede"], +Cell[347840, 8650, 526, 11, 109, "Message",ExpressionUUID->"04b23985-5685-d344-a2ed-9886796baf32"], +Cell[348369, 8663, 528, 11, 109, "Message",ExpressionUUID->"ccdd27f2-bd64-f442-a708-cfb1052c7f86"], +Cell[348900, 8676, 458, 10, 109, "Message",ExpressionUUID->"384ce3fd-4914-6b49-b10c-84d885ed65d6"], +Cell[349361, 8688, 175, 3, 109, "Output",ExpressionUUID->"8865a4e5-7fd3-3c49-a115-94c8c5479389"] +}, Open ]], +Cell[CellGroupData[{ +Cell[349573, 8696, 2221, 64, 109, "Input",ExpressionUUID->"b2dda819-6f34-5c49-bc62-303d815946e5"], +Cell[351797, 8762, 522, 11, 109, "Message",ExpressionUUID->"958049e8-43e1-cc46-81fb-5b3fe1a5d9ee"], +Cell[352322, 8775, 524, 11, 109, "Message",ExpressionUUID->"6ed73f20-f975-a34c-a5a3-af58e9ecd7ed"], +Cell[352849, 8788, 528, 11, 109, "Message",ExpressionUUID->"4ce11323-2f48-da4f-84f8-593751381024"], +Cell[353380, 8801, 458, 10, 109, "Message",ExpressionUUID->"330905cd-5b42-604b-aaf8-fbac43108165"], +Cell[353841, 8813, 170, 3, 109, "Output",ExpressionUUID->"020ade62-ec43-7549-8079-7ac012e004c4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[354048, 8821, 2221, 64, 109, "Input",ExpressionUUID->"76a9e77d-1f4c-bb4a-bb13-1a175f609f7d"], +Cell[356272, 8887, 524, 11, 109, "Message",ExpressionUUID->"9a8eff2d-0d97-2e45-a2f3-ce0634115f7d"], +Cell[356799, 8900, 526, 11, 109, "Message",ExpressionUUID->"7dd7e17e-c74e-7145-b6ae-77a0f02c67f1"], +Cell[357328, 8913, 530, 11, 109, "Message",ExpressionUUID->"311ddb21-a730-0b41-b633-2d3bac87be85"], +Cell[357861, 8926, 458, 10, 109, "Message",ExpressionUUID->"ecdc16e1-316d-b342-a60b-0f3075607709"], +Cell[358322, 8938, 171, 3, 109, "Output",ExpressionUUID->"a7fc6f95-4067-504b-8754-5086d2659934"] +}, Open ]], +Cell[CellGroupData[{ +Cell[358530, 8946, 215, 6, 109, "Input",ExpressionUUID->"69dd09d9-152e-3e4d-9517-4de4791db2f4"], +Cell[358748, 8954, 175, 3, 109, "Output",ExpressionUUID->"96bb6c6a-f128-024e-85ce-f8a6083a68c6"] +}, Open ]], +Cell[358938, 8960, 245, 5, 109, "Input",ExpressionUUID->"6ecc7e8c-a7c5-354e-b168-749729cd7104"], +Cell[CellGroupData[{ +Cell[359208, 8969, 623, 20, 109, "Input",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], +Cell[359834, 8991, 172, 3, 109, "Output",ExpressionUUID->"fecac54e-ac70-c448-b60d-60e5d8aa9072"] +}, Open ]], +Cell[CellGroupData[{ +Cell[360043, 8999, 170, 5, 109, "Input",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], +Cell[360216, 9006, 172, 3, 109, "Output",ExpressionUUID->"31e41e93-aaef-1b4f-a5e6-3cad86684dfc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[360425, 9014, 181, 5, 109, "Input",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], +Cell[360609, 9021, 172, 3, 109, "Output",ExpressionUUID->"d20f2acf-afe0-0844-b0cd-0cdce2394573"] +}, Open ]], +Cell[CellGroupData[{ +Cell[360818, 9029, 6055, 185, 109, "Input",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], +Cell[366876, 9216, 174, 3, 109, "Output",ExpressionUUID->"ec544098-6efd-4845-b84f-33e39ead67c9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[367087, 9224, 368, 9, 109, "Input",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], +Cell[367458, 9235, 173, 3, 109, "Output",ExpressionUUID->"85f4fe6d-1167-7a40-b761-0a55e5251875"] +}, Open ]], +Cell[CellGroupData[{ +Cell[367668, 9243, 6122, 187, 109, "Input",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], +Cell[373793, 9432, 175, 3, 109, "Output",ExpressionUUID->"53db8250-199b-594a-8ebd-fc9cc43217e3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[374005, 9440, 368, 9, 109, "Input",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], +Cell[374376, 9451, 170, 3, 109, "Output",ExpressionUUID->"0013bb3e-54d0-e343-9869-cf63da2eecbd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[374583, 9459, 2663, 88, 109, "Input",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], +Cell[377249, 9549, 173, 3, 109, "Output",ExpressionUUID->"96d8705a-f744-d447-bad0-55fe1d703f38"] +}, Open ]], +Cell[CellGroupData[{ +Cell[377459, 9557, 2603, 85, 109, "Input",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], +Cell[380065, 9644, 172, 3, 109, "Output",ExpressionUUID->"bad41b21-8b15-a74b-a641-622c6584a958"] +}, Open ]], +Cell[CellGroupData[{ +Cell[380274, 9652, 3712, 118, 109, "Input",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], +Cell[383989, 9772, 174, 3, 109, "Output",ExpressionUUID->"a42f993d-5633-3546-ae09-6931972f9312"] +}, Open ]], +Cell[CellGroupData[{ +Cell[384200, 9780, 2052, 59, 109, "Input",ExpressionUUID->"d6aa822f-4140-174a-8e29-c889dba5c0d8"], +Cell[386255, 9841, 574, 12, 109, "Message",ExpressionUUID->"91f9ae14-8766-3848-9c79-ec46ad6af7ea"], +Cell[386832, 9855, 580, 12, 109, "Message",ExpressionUUID->"2440fadc-b12b-424f-a600-97a0a8c9f031"], +Cell[387415, 9869, 582, 12, 109, "Message",ExpressionUUID->"d4d1d26f-ac2b-a949-95b4-8d60af02cc4b"], +Cell[388000, 9883, 456, 10, 109, "Message",ExpressionUUID->"0cb59396-7a19-6b43-af2b-0a0ce0427b94"], +Cell[388459, 9895, 171, 3, 109, "Output",ExpressionUUID->"3ceb430a-d440-e040-b6a8-a18a3884b326"] +}, Open ]], +Cell[CellGroupData[{ +Cell[388667, 9903, 2054, 59, 109, "Input",ExpressionUUID->"46f3f057-22eb-c143-af7a-23ddab00799c"], +Cell[390724, 9964, 574, 12, 109, "Message",ExpressionUUID->"ccb81c35-09e9-854b-9187-d46e8624546d"], +Cell[391301, 9978, 578, 12, 109, "Message",ExpressionUUID->"6dff6307-9a24-c74d-90d8-2f18b14858dc"], +Cell[391882, 9992, 582, 12, 109, "Message",ExpressionUUID->"11045565-b757-154a-b614-eb73b2dcbc5f"], +Cell[392467, 10006, 458, 10, 109, "Message",ExpressionUUID->"af9dd0c6-d446-9940-b908-9b52fbb611cb"], +Cell[392928, 10018, 169, 3, 109, "Output",ExpressionUUID->"d39c46b4-75c6-f741-b7fd-1a1fdbe4155f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[393134, 10026, 2030, 55, 109, "Input",ExpressionUUID->"0137ed47-cd78-284a-910a-31d165f1571c"], +Cell[395167, 10083, 20326, 381, 109, "Output",ExpressionUUID->"5f98f6f4-700b-0a4b-af1c-32125fed3e6a"] +}, Open ]], +Cell[415508, 10467, 2144, 61, 109, "Input",ExpressionUUID->"00a32bc3-df79-9e43-8f20-d4884962c12d"], +Cell[417655, 10530, 138, 3, 109, "Input",ExpressionUUID->"344da507-9044-ef47-aa8c-99f282e3d6d3"], +Cell[CellGroupData[{ +Cell[417818, 10537, 1616, 48, 109, "Input",ExpressionUUID->"f13d1bd8-d153-ae43-b041-68b993e77854"], +Cell[419437, 10587, 592, 12, 109, "Message",ExpressionUUID->"318da404-8df4-c540-9269-2b249c7e148e"], +Cell[420032, 10601, 597, 12, 109, "Message",ExpressionUUID->"42939765-c33b-c147-a25b-bfa31c71a3cb"], +Cell[420632, 10615, 599, 12, 109, "Message",ExpressionUUID->"63b912c5-afab-654e-9609-c4b849e9abfe"], +Cell[421234, 10629, 458, 10, 109, "Message",ExpressionUUID->"2c8999d2-d9b5-ef4e-a59d-c314a02b2b2a"], +Cell[421695, 10641, 172, 3, 109, "Output",ExpressionUUID->"52013fca-4692-bf47-a0cf-880d71f10fc1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[421904, 10649, 2249, 64, 109, "Input",ExpressionUUID->"53e25fab-b431-cc42-a467-e4dea0353ed0"], +Cell[424156, 10715, 576, 12, 109, "Message",ExpressionUUID->"285f997a-25b4-f647-9523-e0dd05446bae"], +Cell[424735, 10729, 580, 12, 109, "Message",ExpressionUUID->"b1d2a50d-b27b-ca46-afcb-af9e8d59323e"], +Cell[425318, 10743, 582, 12, 109, "Message",ExpressionUUID->"a36c085c-b95e-724c-a04e-30924ab7ac52"], +Cell[425903, 10757, 456, 10, 109, "Message",ExpressionUUID->"976edb68-80f3-5a4d-a255-2f217ec84bfa"], +Cell[426362, 10769, 171, 3, 109, "Output",ExpressionUUID->"b7107287-e519-1249-9ef0-b745347bdb78"] +}, Open ]], +Cell[CellGroupData[{ +Cell[426570, 10777, 2223, 64, 109, "Input",ExpressionUUID->"b18c819e-620a-d449-97d6-547e3a6fa152"], +Cell[428796, 10843, 574, 12, 109, "Message",ExpressionUUID->"2877ed71-3ee8-8044-94b0-c606083c07b7"], +Cell[429373, 10857, 578, 12, 109, "Message",ExpressionUUID->"34cfc5a5-16b6-f24f-acdf-b4e2d29b1bef"], +Cell[429954, 10871, 580, 12, 109, "Message",ExpressionUUID->"7fe7bdbe-3892-5043-b38d-13721c83d41a"], +Cell[430537, 10885, 458, 10, 109, "Message",ExpressionUUID->"93dfb0cd-55fb-1b4a-b671-37d180b9d444"], +Cell[430998, 10897, 173, 3, 109, "Output",ExpressionUUID->"372279b5-5e4a-b545-a159-384b26aa5ab4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[431208, 10905, 2221, 64, 109, "Input",ExpressionUUID->"22ab74c7-5916-9440-9d7d-c3e0f6ab8836"], +Cell[433432, 10971, 574, 12, 109, "Message",ExpressionUUID->"c14c35e1-e487-c742-a0da-128fdb9754d4"], +Cell[434009, 10985, 578, 12, 109, "Message",ExpressionUUID->"4396ed61-4d7e-6144-80f0-6d5649cfcb04"], +Cell[434590, 10999, 582, 12, 109, "Message",ExpressionUUID->"00fa2dcd-bc0b-9e44-9f00-15116f344aca"], +Cell[435175, 11013, 455, 10, 109, "Message",ExpressionUUID->"78b12bf1-7793-9341-ad5f-c7be406b8be6"], +Cell[435633, 11025, 170, 3, 109, "Output",ExpressionUUID->"9454fa52-ff74-094b-8081-2fc86cf96043"] +}, Open ]], +Cell[CellGroupData[{ +Cell[435840, 11033, 215, 6, 109, "Input",ExpressionUUID->"f9c66987-c237-7a40-a006-e20e260dbdcb"], +Cell[436058, 11041, 174, 3, 109, "Output",ExpressionUUID->"175eda7e-c091-3e4f-86ac-3148f0a9e904"] +}, Open ]], +Cell[436247, 11047, 249, 5, 109, "Input",ExpressionUUID->"770a9ed7-7938-9e48-be64-c31719ef3a6b"], +Cell[CellGroupData[{ +Cell[436521, 11056, 558, 19, 109, "Input",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], +Cell[437082, 11077, 169, 3, 109, "Output",ExpressionUUID->"e757c22c-d836-6c4a-a9f7-93553c4bb232"] +}, Open ]], +Cell[CellGroupData[{ +Cell[437288, 11085, 170, 5, 109, "Input",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], +Cell[437461, 11092, 173, 3, 109, "Output",ExpressionUUID->"7f3ee547-87eb-d74d-8f21-a8d42f1dde52"] +}, Open ]], +Cell[CellGroupData[{ +Cell[437671, 11100, 181, 5, 109, "Input",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], +Cell[437855, 11107, 173, 3, 109, "Output",ExpressionUUID->"0603b6e6-a8b7-1e45-9b15-2769b7fbc373"] +}, Open ]], +Cell[CellGroupData[{ +Cell[438065, 11115, 6055, 185, 109, "Input",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], +Cell[444123, 11302, 174, 3, 109, "Output",ExpressionUUID->"8b7a346f-cdda-e24e-b924-d6cfb1b3119a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[444334, 11310, 368, 9, 109, "Input",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], +Cell[444705, 11321, 172, 3, 109, "Output",ExpressionUUID->"3354b35a-acef-b846-b770-8d2e77b8f68b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[444914, 11329, 6122, 187, 109, "Input",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], +Cell[451039, 11518, 172, 3, 109, "Output",ExpressionUUID->"7b76721b-3d4c-c544-9113-83ba4f36ae7f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[451248, 11526, 368, 9, 109, "Input",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], +Cell[451619, 11537, 170, 3, 109, "Output",ExpressionUUID->"e9346704-c478-364d-b5eb-0aabe0e2e350"] +}, Open ]], +Cell[CellGroupData[{ +Cell[451826, 11545, 2663, 88, 109, "Input",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], +Cell[454492, 11635, 173, 3, 109, "Output",ExpressionUUID->"33b7f444-6995-e54b-a2a6-ad09016b1850"] +}, Open ]], +Cell[CellGroupData[{ +Cell[454702, 11643, 2603, 85, 109, "Input",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], +Cell[457308, 11730, 172, 3, 109, "Output",ExpressionUUID->"76ba8e46-11c7-f54d-bfb2-cca1b455c838"] +}, Open ]], +Cell[CellGroupData[{ +Cell[457517, 11738, 3712, 118, 109, "Input",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], +Cell[461232, 11858, 172, 3, 109, "Output",ExpressionUUID->"f7c29774-2634-5546-ab63-4d3ac6889f79"] +}, Open ]], +Cell[CellGroupData[{ +Cell[461441, 11866, 2052, 59, 109, "Input",ExpressionUUID->"55d51961-97f2-ed4d-8bf8-8a461d652ab4"], +Cell[463496, 11927, 573, 12, 109, "Message",ExpressionUUID->"3d5a1265-fb27-0b41-a549-5e326650d270"], +Cell[464072, 11941, 573, 12, 109, "Message",ExpressionUUID->"0726d23e-32d7-7a41-8d7f-0b62fec75437"], +Cell[464648, 11955, 579, 12, 109, "Message",ExpressionUUID->"b47482ef-bec0-234f-aeb7-9009a378a36d"], +Cell[465230, 11969, 458, 10, 109, "Message",ExpressionUUID->"e5e35e3a-0e40-c249-b6f3-c2a6a5a48740"], +Cell[465691, 11981, 170, 3, 109, "Output",ExpressionUUID->"b33776d0-2a41-694b-9af8-c4d483383e7c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[465898, 11989, 2052, 59, 109, "Input",ExpressionUUID->"9704b9d3-b449-2144-9970-6a7de047241d"], +Cell[467953, 12050, 573, 12, 109, "Message",ExpressionUUID->"ffb6a3c0-c488-cd48-870e-d66051362026"], +Cell[468529, 12064, 575, 12, 109, "Message",ExpressionUUID->"ca3fb11a-47f9-c542-a5c9-6e0087e110b9"], +Cell[469107, 12078, 579, 12, 109, "Message",ExpressionUUID->"7e4a0639-38a1-f74e-ab8e-5264cad2d48c"], +Cell[469689, 12092, 458, 10, 109, "Message",ExpressionUUID->"101eaea3-75b1-d942-9914-a0fe8a6e2f65"], +Cell[470150, 12104, 169, 3, 109, "Output",ExpressionUUID->"921a9c76-dcb9-484a-bc19-88ddead9467a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[470356, 12112, 2028, 55, 109, "Input",ExpressionUUID->"0fd90636-7592-fc40-bf9d-ae1cb915c656"], +Cell[472387, 12169, 20296, 381, 109, "Output",ExpressionUUID->"09d149ec-0259-a345-a282-743f783e7913"] +}, Open ]], +Cell[CellGroupData[{ +Cell[492720, 12555, 2146, 61, 109, "Input",ExpressionUUID->"90696e8b-5a2d-314c-8d58-ac84cb8f4d66"], +Cell[494869, 12618, 500, 11, 109, "Message",ExpressionUUID->"526ffad5-83ae-c149-9912-e494135b3fca"], +Cell[495372, 12631, 505, 11, 109, "Message",ExpressionUUID->"1adb1680-bdf2-4144-bcc9-7270c61e97b7"], +Cell[495880, 12644, 509, 11, 109, "Message",ExpressionUUID->"9e5d82d5-642b-cb46-8232-be5a5ca7050d"], +Cell[496392, 12657, 458, 10, 109, "Message",ExpressionUUID->"ef931413-f964-5b45-a755-76cab1ab5309"], +Cell[496853, 12669, 39609, 697, 109, "Output",ExpressionUUID->"23497d29-f516-664b-9ee0-ea8f6d88359c"] +}, Open ]], +Cell[536477, 13369, 209, 5, 109, "Input",ExpressionUUID->"ea848967-083d-ea47-bce0-5c3b93725916"], +Cell[CellGroupData[{ +Cell[536711, 13378, 1616, 48, 109, "Input",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], +Cell[538330, 13428, 589, 12, 109, "Message",ExpressionUUID->"100796fd-6fde-3c41-9088-c2d3ae2f8aeb"], +Cell[538922, 13442, 595, 12, 109, "Message",ExpressionUUID->"c91e75b4-9e2b-1e49-a5d5-453d5f87b5e3"], +Cell[539520, 13456, 596, 12, 109, "Message",ExpressionUUID->"5d8ad6a4-5b83-df49-8c4d-081081895528"], +Cell[540119, 13470, 458, 10, 109, "Message",ExpressionUUID->"26eed7af-5e0a-e840-9956-caca06166010"], +Cell[540580, 13482, 171, 3, 109, "Output",ExpressionUUID->"e4e35b92-e786-3044-bf1d-9c587b1357a2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[540788, 13490, 2249, 64, 109, "Input",ExpressionUUID->"80bba3bc-d8f7-1c4b-9262-0895c02ffd8f"], +Cell[543040, 13556, 573, 12, 109, "Message",ExpressionUUID->"6b65fc2b-3e1d-714d-aeb9-43978836a621"], +Cell[543616, 13570, 573, 12, 109, "Message",ExpressionUUID->"c4736a05-b0e1-5e49-b581-f3ce4c83fe21"], +Cell[544192, 13584, 579, 12, 109, "Message",ExpressionUUID->"ae8eb83c-0205-8046-8445-e249896b7ee5"], +Cell[544774, 13598, 458, 10, 109, "Message",ExpressionUUID->"5072d590-62c3-7a47-ae1b-6dd617a0b9dc"], +Cell[545235, 13610, 174, 3, 109, "Output",ExpressionUUID->"8dd7e1f9-bbea-d84b-ad0e-8922158aee9e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[545446, 13618, 2221, 64, 109, "Input",ExpressionUUID->"57976ffc-56f1-604b-8519-bead95265db8"], +Cell[547670, 13684, 573, 12, 109, "Message",ExpressionUUID->"7ab877ea-0e4b-f948-97c2-7ebafb7901b1"], +Cell[548246, 13698, 575, 12, 109, "Message",ExpressionUUID->"a87a57c5-24bc-dc4a-888a-b3c0095c10c4"], +Cell[548824, 13712, 577, 12, 109, "Message",ExpressionUUID->"d8af7fb1-1d43-664e-ae2d-698eaa818746"], +Cell[549404, 13726, 456, 10, 109, "Message",ExpressionUUID->"7abec434-52e8-c64c-ac86-90da0b27b8aa"], +Cell[549863, 13738, 172, 3, 109, "Output",ExpressionUUID->"164a4c34-f121-a445-b434-e34aa59666ab"] +}, Open ]], +Cell[CellGroupData[{ +Cell[550072, 13746, 2219, 64, 109, "Input",ExpressionUUID->"cfa37210-3ae7-3f49-b290-f19508c6d2f1"], +Cell[552294, 13812, 571, 12, 109, "Message",ExpressionUUID->"92295db4-13f0-284e-8173-df7f8dd20dcf"], +Cell[552868, 13826, 573, 12, 109, "Message",ExpressionUUID->"c6280e41-1347-0f47-81a9-bcd3687b7b73"], +Cell[553444, 13840, 579, 12, 109, "Message",ExpressionUUID->"2aa0f4b1-01ca-4644-884e-b759d4a75412"], +Cell[554026, 13854, 458, 10, 109, "Message",ExpressionUUID->"ab3c3bff-179e-9f4e-b56a-87d1b4f6fc04"], +Cell[554487, 13866, 172, 3, 109, "Output",ExpressionUUID->"f5b8154f-e61e-6a4e-b068-b6c1916773ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[554696, 13874, 211, 6, 109, "Input",ExpressionUUID->"7457b456-6d32-5b44-9679-346c5f5ac532"], +Cell[554910, 13882, 174, 3, 109, "Output",ExpressionUUID->"14434839-d5cf-b844-b849-b3b3102df434"] }, Open ]] } ] diff --git a/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/h_166-74_Pu240_20-21_gid_Qw2.nb b/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/h_166-74_Pu240_20-21_gid_Qw2.nb index 1f902d9..6954233 100644 --- a/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/h_166-74_Pu240_20-21_gid_Qw2.nb +++ b/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/h_166-74_Pu240_20-21_gid_Qw2.nb @@ -3,25 +3,4866 @@ (*** 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[ 436478, 13041] +NotebookOptionsPosition[ 398167, 12426] +NotebookOutlinePosition[ 398577, 12443] +CellTagsIndexPosition[ 398534, 12440] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f1", "="}]], "Input", + RowBox[{"d", "=", "1.85"}]], "Input", CellChangeTimes->{ - 3.9918505481678543`*^9},ExpressionUUID->"83cccf0d-dccb-fb42-a058-\ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.9940821364341908`*^9, 3.994082136546945*^9}, { + 3.99408222505837*^9, 3.9940822566678658`*^9}}, + CellLabel-> + "In[371]:=",ExpressionUUID->"7ea71dfd-b2c0-4b99-9aa3-8fe6de08e31e"], + +Cell[BoxData["1.85`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, 3.9940821397588*^9, {3.9940822104439507`*^9, + 3.994082259420228*^9}}, + CellLabel-> + "Out[371]=",ExpressionUUID->"81a2eacd-9d1d-48e2-ab94-2bad96ae2f6d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.99407306326154*^9, 3.994073063917366*^9}}, + CellLabel-> + "In[372]:=",ExpressionUUID->"f744b062-a40c-4b64-a45f-44b752e39e6b"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.994082139815686*^9, {3.994082210466728*^9, + 3.994082259455925*^9}}, + CellLabel-> + "Out[372]=",ExpressionUUID->"c854fdee-9428-4c59-b580-f94cb8d630e4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "166"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.9940730665357656`*^9, 3.994073067306501*^9}}, + CellLabel-> + "In[373]:=",ExpressionUUID->"87d1104e-cfce-4c88-a8ad-fc2fff981ee6"], + +Cell[BoxData["166"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.994082139825574*^9, {3.9940822104766827`*^9, + 3.994082259466858*^9}}, + CellLabel-> + "Out[373]=",ExpressionUUID->"138ffab8-de63-48d1-82c6-c8d1cf9d8609"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel-> + "In[374]:=",ExpressionUUID->"a03edf3b-1fe5-4172-acda-4468f3e2d00a"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.994082139835326*^9, {3.994082210487997*^9, + 3.994082259477521*^9}}, + CellLabel-> + "Out[374]=",ExpressionUUID->"d9ba2f63-9db3-4dac-9e3c-760355714cad"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel-> + "In[375]:=",ExpressionUUID->"7bfced1d-dc51-4f78-a3d7-9e3af299f64b"], + +Cell[BoxData["0.54425`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.994082139845067*^9, {3.994082210498448*^9, + 3.994082259487831*^9}}, + CellLabel-> + "Out[375]=",ExpressionUUID->"fe42cc1e-7f88-47be-85bf-06353305ab32"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel-> + "In[376]:=",ExpressionUUID->"6ee5abef-bbf2-4ee7-8c77-ed8b7108eb6f"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.994082139854616*^9, {3.99408221050937*^9, + 3.994082259497772*^9}}, + CellLabel-> + "Out[376]=",ExpressionUUID->"40f66af5-b8a1-4f57-aa94-f56ded6fa254"] +}, 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[377]:=",ExpressionUUID->"67c8941d-038b-4734-96dd-fd4c619e69e3"], + +Cell[BoxData["6.3752030057102145`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.994082139865213*^9, {3.994082210519739*^9, + 3.994082259507691*^9}}, + CellLabel-> + "Out[377]=",ExpressionUUID->"bfe204e5-4bbd-4809-85e3-b2cdf8eb6c8e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel-> + "In[378]:=",ExpressionUUID->"350770d6-4a07-484d-a035-07b63503ebc9"], + +Cell[BoxData["4.870070286417752`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.99408213987599*^9, {3.9940822105302753`*^9, + 3.994082259517621*^9}}, + CellLabel-> + "Out[378]=",ExpressionUUID->"28cbd9ca-90f6-4e14-9e41-4d7db18e8830"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.9035518425"}]], "Input", + CellChangeTimes->{3.991799283179735*^9, 3.994073090925538*^9}, + CellLabel-> + "In[379]:=",ExpressionUUID->"d6ee75e6-5445-4bb6-8c64-24bb8eb48403"], + +Cell[BoxData["0.9035518425`"], "Output", + CellChangeTimes->{ + 3.994082139886828*^9, {3.9940822105402517`*^9, 3.9940822595277653`*^9}}, + CellLabel-> + "Out[379]=",ExpressionUUID->"f903acf0-62f4-423a-a0c2-a40f7fa3c61f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.3863821951"}]], "Input", + CellChangeTimes->{3.991799280663351*^9, 3.9940730962719193`*^9}, + CellLabel-> + "In[380]:=",ExpressionUUID->"ed81a5fb-4fb5-441e-87fd-36593f8700ad"], + +Cell[BoxData["0.3863821951`"], "Output", + CellChangeTimes->{ + 3.994082139897403*^9, {3.994082210550373*^9, 3.994082259537862*^9}}, + CellLabel-> + "Out[380]=",ExpressionUUID->"d89e9ffe-9a18-42e1-ae70-f99b5276a16c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel-> + "In[381]:=",ExpressionUUID->"b89827a4-258e-4003-b1e7-dab12555b42d"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.994082139910328*^9, {3.994082210560801*^9, + 3.9940822595420103`*^9}}, + CellLabel-> + "Out[381]=",ExpressionUUID->"3b651afd-f0d2-49bf-a83e-77073070e7a5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel-> + "In[382]:=",ExpressionUUID->"2c7dfbf6-94b8-4a7d-986e-ad84ea648797"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.9940821399224367`*^9, {3.994082210571288*^9, + 3.994082259554398*^9}}, + CellLabel-> + "Out[382]=",ExpressionUUID->"2b5bac7c-e751-4c70-9017-d2a196c9e1be"] +}, 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[383]:=",ExpressionUUID->"29e5375a-e538-4e58-889c-bf8fa8867d96"], + +Cell[BoxData["2.315137197466896`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.994082139933848*^9, {3.994082210581699*^9, + 3.9940822595648727`*^9}}, + CellLabel-> + "Out[383]=",ExpressionUUID->"64a4086f-8a84-4e65-9ae6-0483e0df9121"] +}, 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[384]:=",ExpressionUUID->"57c0b2c1-ed31-4f94-8a02-9684c242442f"], + +Cell[BoxData["1.4220278650887666`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.994082139944078*^9, {3.9940822105866547`*^9, + 3.9940822595749483`*^9}}, + CellLabel-> + "Out[384]=",ExpressionUUID->"f8cc0204-44c5-46d2-bd0c-9c861f9e27ce"] +}, 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[385]:=",ExpressionUUID->"767361d1-eb20-4cfb-98e4-9db123ce2e7d"], + +Cell[BoxData["0.4069661562665162`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.994082139954578*^9, {3.994082210602051*^9, + 3.994082259585372*^9}}, + CellLabel-> + "Out[385]=",ExpressionUUID->"86293c25-45b0-4cf9-9f5a-68c0e992017c"] +}, 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[386]:=",ExpressionUUID->"727d1887-9bd0-4c99-95c1-beb0e6375c1b"], + +Cell[BoxData[ + RowBox[{"-", "0.08563504168524437`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.9940821399653873`*^9, {3.994082210613337*^9, + 3.994082259596693*^9}}, + CellLabel-> + "Out[386]=",ExpressionUUID->"685ce0b8-9f2a-4a97-926d-aceede093559"] +}, 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[387]:=",ExpressionUUID->"70da0a4d-58d0-4c55-aee5-2bcedac5a936"], + +Cell[BoxData[ + RowBox[{"-", "0.5841673375234483`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.9940821399780188`*^9, {3.9940822106256943`*^9, + 3.9940822596071453`*^9}}, + CellLabel-> + "Out[387]=",ExpressionUUID->"181f52e6-143c-43ce-9acc-60f4108b3908"] +}, 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[388]:=",ExpressionUUID->"327d6fe0-2042-4a7f-b513-35484052d306"], + +Cell[BoxData["0.7215005296935654`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.994082139989607*^9, {3.994082210635736*^9, + 3.99408225961747*^9}}, + CellLabel-> + "Out[388]=",ExpressionUUID->"b77a7590-9bc8-4829-8102-ce7119d4896b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel-> + "In[389]:=",ExpressionUUID->"314507d5-d2a6-4437-b833-cc091fec076c"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.9940821399995413`*^9, {3.9940822106444807`*^9, + 3.994082259627829*^9}}, + CellLabel-> + "Out[389]=",ExpressionUUID->"99de46d3-6181-4398-bc8b-1fc407b43790"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel-> + "In[390]:=",ExpressionUUID->"25f8b60e-22fa-40de-a243-e04ff8d8f1f2"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.994082140010191*^9, {3.994082210653286*^9, + 3.994082259638521*^9}}, + CellLabel-> + "Out[390]=",ExpressionUUID->"270143e0-b48e-4af5-87df-8fbbc7b2b850"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel-> + "In[391]:=",ExpressionUUID->"aff68d39-bc98-4cd0-9dae-ed2e14ca7d7e"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.9940821400205593`*^9, {3.9940822106620293`*^9, + 3.9940822596489058`*^9}}, + CellLabel-> + "Out[391]=",ExpressionUUID->"b6186fcd-533f-4010-a90c-33d87bd24f86"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel-> + "In[392]:=",ExpressionUUID->"cb5aa02e-499e-4c4d-ab29-10796a7bea54"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.994082140031045*^9, {3.994082210671171*^9, + 3.994082259659958*^9}}, + CellLabel-> + "Out[392]=",ExpressionUUID->"bd96c79f-a70d-4ab2-8f41-31729e1b35f7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel-> + "In[393]:=",ExpressionUUID->"0c85b4d0-4691-427b-9705-930c99976335"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.994082140043984*^9, {3.9940822106801777`*^9, + 3.994082259671282*^9}}, + CellLabel-> + "Out[393]=",ExpressionUUID->"ab9adafe-4a0f-4754-8f9b-76604838f892"] +}, 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.9940731043812733`*^9, 3.994073104508005*^9}}, + CellLabel-> + "In[394]:=",ExpressionUUID->"58c6c026-bc38-4c2b-aaea-e3e90411b079"], + +Cell[BoxData["66"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, 3.994082140061471*^9, {3.99408221068924*^9, + 3.9940822596826973`*^9}}, + CellLabel-> + "Out[394]=",ExpressionUUID->"88e37657-a72e-4885-8940-b0180f58fcd4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, {3.9940731093077307`*^9, 3.99407311085991*^9}}, + CellLabel-> + "In[395]:=",ExpressionUUID->"25541307-7099-458f-9c32-435fe838297c"], + +Cell[BoxData["28"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.994082140071866*^9, {3.9940822106985188`*^9, + 3.9940822596930656`*^9}}, + CellLabel-> + "Out[395]=",ExpressionUUID->"e4335573-b33b-45a3-9981-92940083a78d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel-> + "In[396]:=",ExpressionUUID->"ae20d118-c0a4-4ad6-886e-c96a21ab626f"], + +Cell[BoxData["74"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.994082140082143*^9, {3.994082210707357*^9, + 3.994082259703759*^9}}, + CellLabel-> + "Out[396]=",ExpressionUUID->"94c57544-e787-4c1d-8a89-9f05d9604f59"] +}, 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[397]:=",ExpressionUUID->"57bf3841-c639-45eb-baf9-b13e37b4122b"], + +Cell[BoxData["0.11092478020188863`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9940821400927267`*^9, {3.994082210716133*^9, + 3.994082259714077*^9}}, + CellLabel-> + "Out[397]=",ExpressionUUID->"8574d8a7-6ce2-4391-b392-62fa12161133"] +}, 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[398]:=",ExpressionUUID->"30fff870-f317-4025-8264-4cdb939fd843"], + +Cell[BoxData[ + RowBox[{"-", "2.5630967111690004`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.9940821401033173`*^9, {3.994082210725114*^9, + 3.994082259724759*^9}}, + CellLabel-> + "Out[398]=",ExpressionUUID->"cb91352a-9065-4b05-b5e5-1749af1e1015"] +}, 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[399]:=",ExpressionUUID->"46a59d8f-21ac-43ba-a641-4517ca87cff2"], + +Cell[BoxData["17.4437013546787`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.994082140114669*^9, {3.994082210734028*^9, + 3.994082259736136*^9}}, + CellLabel-> + "Out[399]=",ExpressionUUID->"a4c101cb-773a-4203-9e14-e20653f3a193"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel-> + "In[400]:=",ExpressionUUID->"6b0b387e-0521-4284-a2c0-3597cf0dd3a1"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.994082140125458*^9, {3.9940822107429523`*^9, + 3.9940822597468443`*^9}}, + CellLabel-> + "Out[400]=",ExpressionUUID->"688289aa-b349-419f-938d-a15706100e04"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "2.185"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { + 3.994073141486967*^9, 3.9940731424234343`*^9}}, + CellLabel-> + "In[401]:=",ExpressionUUID->"d446da3f-5c5f-4536-af81-2864acb72208"], + +Cell[BoxData["2.185`"], "Output", + CellChangeTimes->{ + 3.9940821401363583`*^9, {3.994082210751677*^9, 3.9940822597573833`*^9}}, + CellLabel-> + "Out[401]=",ExpressionUUID->"e4021a63-4185-48ff-b893-c16efddab6ee"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel-> + "In[402]:=",ExpressionUUID->"15fce225-822a-49d5-bb1c-220491babb97"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.755"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.9940731457645493`*^9, 3.994073146848226*^9}}, + CellLabel-> + "In[403]:=",ExpressionUUID->"53f7964f-2add-458d-82e8-10e6e3219080"], + +Cell[BoxData["0.755`"], "Output", + CellChangeTimes->{ + 3.994082140150962*^9, {3.9940822107679367`*^9, 3.9940822597717943`*^9}}, + CellLabel-> + "Out[403]=",ExpressionUUID->"0c4f08ab-8ba2-4f7a-ba68-7c10060ba825"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel-> + "In[404]:=",ExpressionUUID->"79dfe7be-8f52-4378-a5b6-5788a53f6fb0"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "2.5"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.994073149619232*^9, 3.994073149893601*^9}}, + CellLabel-> + "In[405]:=",ExpressionUUID->"6c8cbca9-d770-435c-9caa-abdaf2f4d9a0"], + +Cell[BoxData["2.5`"], "Output", + CellChangeTimes->{ + 3.994082140164228*^9, {3.994082210783918*^9, 3.994082259785039*^9}}, + CellLabel-> + "Out[405]=",ExpressionUUID->"b758653f-b57f-4dcc-92ff-90ca42590a5a"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel-> + "In[406]:=",ExpressionUUID->"274205e6-aaa2-403e-bdf1-60494d2ab4da"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.165"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, {3.994073152359264*^9, 3.994073154823225*^9}}, + CellLabel-> + "In[407]:=",ExpressionUUID->"025d3e12-54f5-4cfe-b073-8ae168db5c5e"], + +Cell[BoxData["1.165`"], "Output", + CellChangeTimes->{ + 3.994082140177301*^9, {3.994082210799852*^9, 3.9940822597980413`*^9}}, + CellLabel-> + "Out[407]=",ExpressionUUID->"5498ada6-792a-4875-ba64-33349e4b862b"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel-> + "In[408]:=",ExpressionUUID->"84577125-699a-4c8b-b50c-b8f719e35e31"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.055"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, {3.994073158537945*^9, + 3.994073159984886*^9}}, + CellLabel-> + "In[409]:=",ExpressionUUID->"dfaf18dc-5eb0-4849-8f51-f8b1984b4725"], + +Cell[BoxData["1.055`"], "Output", + CellChangeTimes->{ + 3.9940821401902237`*^9, {3.9940822108158007`*^9, 3.994082259811191*^9}}, + CellLabel-> + "Out[409]=",ExpressionUUID->"1c05b573-1b1f-424d-a902-c72897518f41"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel-> + "In[410]:=",ExpressionUUID->"bb0a71a5-93ab-4ef3-9fdb-62bb661ed34c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.575"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.9940731689650297`*^9, + 3.994073170525517*^9}}, + CellLabel-> + "In[411]:=",ExpressionUUID->"7da12e6f-221a-4553-aba7-53c53bdb5de6"], + +Cell[BoxData["0.575`"], "Output", + CellChangeTimes->{ + 3.99408214020331*^9, {3.9940822108320093`*^9, 3.994082259824339*^9}}, + CellLabel-> + "Out[411]=",ExpressionUUID->"77f80e55-9d8e-4edb-9dc7-5e2894a18597"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel-> + "In[412]:=",ExpressionUUID->"ebd04750-1d28-4ffa-bdda-7bb457359397"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "1.51"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.99407317466329*^9, + 3.9940731756907377`*^9}}, + CellLabel-> + "In[413]:=",ExpressionUUID->"446f65ef-4350-4911-b9f5-56333a988202"], + +Cell[BoxData["1.51`"], "Output", + CellChangeTimes->{ + 3.9940821402169437`*^9, {3.994082210847649*^9, 3.994082259837338*^9}}, + CellLabel-> + "Out[413]=",ExpressionUUID->"2ec788d0-3867-4881-ba68-0b9ed73c996d"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel-> + "In[414]:=",ExpressionUUID->"dc837306-d20f-440d-8b2b-be9ce105e2b2"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "0.635"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, {3.99407317843715*^9, 3.994073182537156*^9}}, + CellLabel-> + "In[415]:=",ExpressionUUID->"7f4cb388-759f-4782-bed0-c71df4480d64"], + +Cell[BoxData["0.635`"], "Output", + CellChangeTimes->{ + 3.994082140230339*^9, {3.994082210863504*^9, 3.994082259850523*^9}}, + CellLabel-> + "Out[415]=",ExpressionUUID->"dc96c3b7-ac9a-4a53-855c-b6feb5f17789"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel-> + "In[416]:=",ExpressionUUID->"90a13eb9-542d-4060-bb46-46ccb19635d1"], + +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[417]:=",ExpressionUUID->"dafedac8-4248-482a-ad46-946d2abe4ec0"], + +Cell[BoxData["0.14543451930671605`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.9940821403190203`*^9, {3.994082210903069*^9, + 3.994082259888891*^9}}, + CellLabel-> + "Out[417]=",ExpressionUUID->"47f35287-f666-422e-8fc0-445d51343db0"] +}, 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[418]:=",ExpressionUUID->"1863c650-cefb-45cb-b1ad-86aa31150214"], + +Cell[BoxData["7.609769640822119`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9940821403533278`*^9, {3.994082210934519*^9, + 3.994082259917639*^9}}, + CellLabel-> + "Out[418]=",ExpressionUUID->"5d68a0a9-bdcf-4cab-8162-ea55408eedfd"] +}, 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[419]:=",ExpressionUUID->"813e74eb-a8e6-499b-b6ac-1fba16da3421"], + +Cell[BoxData[ + RowBox[{"-", "15.030827196449275`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.994082140383691*^9, {3.9940822109679832`*^9, + 3.994082259945158*^9}}, + CellLabel-> + "Out[419]=",ExpressionUUID->"d7c0df12-97d5-4d5c-bfcc-460298e33414"] +}, 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[420]:=",ExpressionUUID->"aa2232f7-a2ef-4ffb-8632-d6506ccedb96"], + +Cell[BoxData[ + RowBox[{"-", "19.761827924452415`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.9940821404195766`*^9, {3.9940822110021753`*^9, + 3.994082259978429*^9}}, + CellLabel-> + "Out[420]=",ExpressionUUID->"fa02a3d3-4cb5-4a20-9e7e-20d95ed15cbb"] +}, 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[421]:=",ExpressionUUID->"b445d538-3ced-47d4-9054-12263665419d"], + +Cell[BoxData[ + RowBox[{"-", "57.66257775030843`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.9940821404579077`*^9, {3.994082211038884*^9, + 3.994082260011196*^9}}, + CellLabel-> + "Out[421]=",ExpressionUUID->"cc777c3f-81d2-4712-a323-9eb655d9f14e"] +}, 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[422]:=",ExpressionUUID->"0a351458-3ad5-4444-8e6a-262b7c9da82d"], + +Cell[BoxData[ + RowBox[{"-", "150.68948520646092`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.994082140505332*^9, {3.994082211079116*^9, + 3.9940822600491877`*^9}}, + CellLabel-> + "Out[422]=",ExpressionUUID->"c0681327-5d17-47b6-8427-8eb188af49b6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel-> + "In[423]:=",ExpressionUUID->"28280def-0ed0-428b-bd2e-eb71c3096b78"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.99408214052183*^9, {3.994082211090176*^9, + 3.994082260062854*^9}}, + CellLabel-> + "Out[423]=",ExpressionUUID->"ecca8e1e-b59d-418b-9b9d-77de4c37d56c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel-> + "In[424]:=",ExpressionUUID->"2192f8a5-bda1-45e2-8337-5a866cee4124"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.994082140531746*^9, {3.9940822111011677`*^9, + 3.994082260073297*^9}}, + CellLabel-> + "Out[424]=",ExpressionUUID->"4a9b2662-4475-446f-a0d0-9222d876e97b"] +}, 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[425]:=",ExpressionUUID->"570a2a35-a64c-4ecc-afcf-df3397c5eb59"], + +Cell[BoxData["120.33662547388403`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.994082140542282*^9, {3.994082211112996*^9, + 3.994082260084251*^9}}, + CellLabel-> + "Out[425]=",ExpressionUUID->"48f2225d-15b9-4b56-a3b6-6b1dd876f8bb"] +}, 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[426]:=",ExpressionUUID->"6269b77a-f9c5-4551-8880-f900cee8f0ad"], + +Cell[BoxData[ + RowBox[{"-", "107.1121642480161`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.994082140552636*^9, {3.994082211122551*^9, + 3.994082260094944*^9}}, + CellLabel-> + "Out[426]=",ExpressionUUID->"9b661eb1-566e-4a67-af49-1f687f39317e"] +}, 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[427]:=",ExpressionUUID->"318c7941-d810-4a37-9f8c-62909779e04c"], + +Cell[BoxData["123.55775944746372`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9940821405632*^9, {3.9940822111320972`*^9, + 3.9940822601055107`*^9}}, + CellLabel-> + "Out[427]=",ExpressionUUID->"d4150e7f-5810-4e6c-a26b-f8e448b8b6b6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel-> + "In[428]:=",ExpressionUUID->"f253df11-798a-49ba-86b2-1bc054712467"], + +Cell[BoxData["0.4069661562665162`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.994082140573392*^9, {3.994082211141264*^9, + 3.994082260116184*^9}}, + CellLabel-> + "Out[428]=",ExpressionUUID->"93839a89-9423-4a36-b8f0-d5223d7222ff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel-> + "In[429]:=",ExpressionUUID->"effc6f6d-3084-49ce-9097-f05efd86e064"], + +Cell[BoxData[ + RowBox[{"-", "0.08563504168524437`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.994082140583559*^9, {3.994082211156444*^9, + 3.994082260127738*^9}}, + CellLabel-> + "Out[429]=",ExpressionUUID->"8f320bb1-d283-4e61-a6b0-16c26d7be527"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel-> + "In[430]:=",ExpressionUUID->"1a06bccf-3afe-4c66-ad9f-32e21eb4fc0e"], + +Cell[BoxData[ + RowBox[{"-", "0.5841673375234483`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.994082140593707*^9, {3.994082211166273*^9, + 3.99408226016045*^9}}, + CellLabel-> + "Out[430]=",ExpressionUUID->"9735e212-94e9-4f13-bf9e-2f19d6900d37"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel-> + "In[431]:=",ExpressionUUID->"e299288a-6693-4f0f-9b41-89bd36da6319"], + +Cell[BoxData["0.7215005296935654`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.9940821428128853`*^9, {3.994082211175336*^9, + 3.994082260189337*^9}}, + CellLabel-> + "Out[431]=",ExpressionUUID->"bed4c3e0-670d-4fa0-9839-248799c78555"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel-> + "In[432]:=",ExpressionUUID->"37ea46c7-e9c6-4912-a38f-f126189cbde2"], + +Cell[BoxData["2.315137197466896`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, {3.9940822111841908`*^9, 3.9940822602133617`*^9}}, + CellLabel-> + "Out[432]=",ExpressionUUID->"2b17f957-1f57-4265-9537-ced00f11fc9e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel-> + "In[433]:=",ExpressionUUID->"5a2fe610-3676-4d2c-a84f-b81fa3a2dde3"], + +Cell[BoxData["1.4220278650887666`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, {3.994082211193069*^9, 3.99408226021774*^9}}, + CellLabel-> + "Out[433]=",ExpressionUUID->"dd3c2ec9-8460-4b88-9888-edd4ca4aed6f"] +}, 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[434]:=",ExpressionUUID->"f0f9eabe-0ffc-4c21-b7ff-8f840e316b78"], + +Cell[BoxData[ + RowBox[{"-", "34.52117430586003`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, {3.994082211202162*^9, 3.994082260228716*^9}}, + CellLabel-> + "Out[434]=",ExpressionUUID->"f6c3b47b-429e-4866-b56c-04f0923ae4be"] +}, 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[435]:=",ExpressionUUID->"1e7acc64-22e8-46ca-a73b-29fdc9f5a0c3"], + +Cell[BoxData[ + RowBox[{"-", "6.669654351008722`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, {3.9940822112147284`*^9, 3.994082260239593*^9}}, + CellLabel-> + "Out[435]=",ExpressionUUID->"d00a88a5-13d8-4c7d-ab11-5a588c2477f0"] +}, 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[436]:=",ExpressionUUID->"92322cf4-6839-45a4-bf06-bc1d3d155b1f"], + +Cell[BoxData["85.815451168024`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, {3.994082211224436*^9, 3.994082260250916*^9}}, + CellLabel-> + "Out[436]=",ExpressionUUID->"19b5b8c1-6db6-4d0e-aa21-85638ef5e632"] +}, 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[437]:=",ExpressionUUID->"3a820df7-eebe-479a-b2ed-5668de066fae"], + +Cell[BoxData[ + RowBox[{"-", "107.1121642480161`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, {3.994082211233815*^9, 3.994082260261983*^9}}, + CellLabel-> + "Out[437]=",ExpressionUUID->"4f432f74-584c-45b4-b23e-67e7e058bbd4"] +}, 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[438]:=",ExpressionUUID->"43df8d62-a6fc-49dc-aa7b-728eb12230db"], + +Cell[BoxData["116.888105096455`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, {3.99408221124387*^9, 3.994082260273652*^9}}, + CellLabel-> + "Out[438]=",ExpressionUUID->"2398950a-3aa0-40c8-98be-3c892395f30a"] +}, 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[439]:=",ExpressionUUID->"db350966-ce8d-4c4f-828a-14725e1e62f2"], + +Cell[BoxData["42.180325689118604`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, {3.994082211253778*^9, 3.994082260284829*^9}}, + CellLabel-> + "Out[439]=",ExpressionUUID->"daf1f923-5e23-4681-9ef2-c25e5e8da2f9"] +}, 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[440]:=",ExpressionUUID->"4d0eefa6-dde1-470b-bc55-058a41501f61"], + +Cell[BoxData["727.4038074151157`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, {3.994082211263607*^9, 3.994082260289282*^9}}, + CellLabel-> + "Out[440]=",ExpressionUUID->"b78a182d-3e36-40ae-83db-4d9957242865"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"f1", "=", "0.4308709561"}]], "Input", + CellChangeTimes->{3.9918505481678543`*^9, + 3.994084006184299*^9},ExpressionUUID->"83cccf0d-dccb-fb42-a058-\ 5e950c758893"], Cell[BoxData[""], "Input", @@ -30,10 +4871,9 @@ Cell[BoxData[""], "Input", e7a6896afd10"], Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", - CellChangeTimes->{ - 3.991850550777445*^9},ExpressionUUID->"b70cfd2b-21a1-8344-9518-\ -5e27a96171a9"], + RowBox[{"f2", "=", "0.1119937069"}]], "Input", + CellChangeTimes->{3.991850550777445*^9, + 3.99408401130657*^9},ExpressionUUID->"b70cfd2b-21a1-8344-9518-5e27a96171a9"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918505524437046`*^9, @@ -1562,66 +6402,96 @@ MathPictureEnd 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"], +eJzVnGdgVUUWgENekkeIRCAEpWhiqAkEkIBUQekGYaUsZRdBmgYQRMSyCkhR +6VKWjgIKSFmpsiIIuLqr0lEUld5xBZQm0pl957yZc++83DPzsuLK/sjk3Zlv +zjn3zNyp907TTv2yuvXq1K97l07Jjfp26pPVvcszyQ2f6huI8uWKiMh1MPCX +mhwRFfgtIiK0YKy4Lg5BEPgtxA1xCILf73c6/vOBbfALrzBc/n+UHhNMDvxa +4opNoNi3eFl5IYwjchpPJkKYm8iJPFkUQj+RY3kyWbd+FE+WhDCayGEuEsFU +PX0oL6mcTg7iyYoQRhE5gCczdPJFnryPLMbrF3iymi7zWZ6sqZN9ebK2rr0P +Tz6gy+zFk/V0mT15soEuM4snG+syH+fJTJ3sGlovHtbTO/OSmunkYzz5iE52 +4MkWOtmeJ1vp5J94srVOtuXJtjrZmidRXSSRf+TJP+syW/LkozrZnCc76uQf +eLKTbmcznuysy3w4tF501dMzQ9Mf19Mb85qydJsa8WR3XWYDnuypy6zPk0/q +MuvyZG9d5oM8+ZQusw5PPq3LrM2TfXWZtXiyny6zJk8+q8uszpPP6zKr8eQL +usz7QuvFi7qkKrykl3RJGTw5QJdZiScH6uS9PPmyrr0CTw7WZZbnySE6mc6T +Q3XtZYNkoiSvXrlKZKJH7ld1PWnB3JH4L1qMGztOlC5dWpQpU0b06NFD3Lh+ +IxALaVHiyuUrombNmqJEiRLiyOEjUTLL0iVLMUvx4sVFlSpVxJLFSyJiMC1G +zJg+Q9StW1eULFlSpKaminr16onPPv0st4ddr+l2pQbtivAjsPqD1eKhhx4S +F36+gDfYs2dPMWL4CDLtx1M/iri44Ehrw+cb/FL+nt17xBNPPCG6dOkiUb9Y +tHCR2L9vv9Irdn69U5QtW1bs+HJHhN/DrmG6t0tLu3wINGrUSHyx/QvpPp84 +d/acSElJkZ4Jxh0/dlzs+m4XXsXKuObNm4sVy1fglXJGwG9gqPRcdkNG6A4q +RYZcu3pNFC1aFMvKJzPWqlVLfPftd3iVT8Zt3LBR1KlTR1MKhtWuXZtVOlJX +WpKUnjxxUlSsWFFmCYYdOnQQaz9ci1e3SXef/um0aNu2LdaQChUqoPsLFiwo +Ll+6TEYsfnex6Nixo2MEDmNG6o4vTqoP7D8gqlevrqnOysoSy5Yu01Q3adJE +TJo4Ce/lzOkzomnTpiI2NlYcPXJU5vND4Ynp06aL69euI7d71240dfOmzZ61 +YYzujxQy6tTJU57+WLd2HV7FybjDhw5jdYMrVWvAl/Hx8VBTZN4YMXfOXLxJ +8Fm5cuVE1apV4SnwenJe1226x1oxVG1UNn3y8SeiRYsWmu2FChXCB95tJ9g0 +dcpULa/bkLG6Icnao9K4cWOxfdt27VGBlsQpMZ84dPCQKF++vKZ0y+YtokGD +BppxNkPG6YYkaW3JmtVrRMOGDcX5c+fxDqGZGzN6TES89DxUk8mTJiMbqCoi +IyMDHp2oMHVP0HXfpbev48eNx8YQ6livXr2waOJlGtTR9u3bYzoU+8r3VlIj +AlqLFCkCVSFwFQxl1dIaG7clf9UtKRa0xKtHmaiTRXlykk4W4ckpOnknT07V +yTt4cppOFuLJ6TqZ6CIRnKE3Lgm8pDd1SQV4cqZO5ufJWTqZjydn6+TtPPmW +Tsbz5Ns6mZcn5+pkHE/O08k8PPmOTsby5HydzM2TC3TSz5MLdTImtF4s0tOj +eUnv6qSPJxfrZCRPLtHJXDy5VCe9oWUE3eCh5QRd56EVBF3jofcIuspDKwm6 +wkPvE3SJh1YRdJGHPiDol9CiXk1JF0KT1lDSz7zoDwk6z0NrCTrHQ+sIOstD +6wk6w0MfEXSahyrIuG7duuFQrHLlyoErCONwEA3DBsniCBo6yLS0NBrC9evX +D4dvwSG638gEHyDveYWyDYZDMO6Cq6gwZMbRTd4ppQdmI2A//kGO/PnzB3rc +4H2NHDGS7tw+y4nGXjU9PR3HITBMOPHDiYgkq55otx7l2cDdeHsVxj6DXh6E +Q4tSpUqhrNatW+MAMNmqK4+my+Ap0y3Z1eiu8xkKy3Q7hj5D1UMYEsPQOTAh +kmriRLVq1TSP7d2zF8ZD4uIv+LDjJHDgwIGiXbt2VA9NTNDUGG4iqcwbPGiw +GD5suHZ3JrG3UVUsIiXAhKJVq1bSu0alyiaYIMIQ/9jRY6hg/jvzRWZmZoqH +xCjWZf5sLgNNs2bOgrkxDaZhzgnz8EsXL0Xw8sNzJWN2cQ+xfta9PquZhqGE +mm0F6jOuPATEkIixr49VkzpSDx4Dz8FVukdcpLwzOavXHtfArF5l+fabb1Ed +XOXxEOO0T4UNlYJRotwy7LVh2Ew5dumT+mRWdPj+6N27t5jz9hy8usdDntfN +RYZpn5c8v8GBblsMY8J7ZRwsK0CFHz1qNM3CApVTrF+33lW8fncc/tnWSsrJ +OGgqYTbqmKPLz+thWyHDA2vTq1wItSIwS9bi+vfvTzNOr2KPMfhk2tRp+ODa +ith9b+Ha4iUvt8F/blsMRVxJxsEDASsgE8ZPIDOhF4PlH6eIY9xx+CdXppTn +3YtSqnRfGfoKPhBu69yi4+kJNpWpbQlM+Qy6TJjbu+NmvjkTfcmVqd/gBFg3 +gBbTVqbuOwrXFlOZennNbYuhTDNk3NkzZ9GswIiE+pFRI0eJfXv3IQstFHQS +zZo1SzMnK4fbFgNVkcOYBR44pwBZ0fmp9BM9vBEVpmLl3aSkJBiLaXEL5i8Q +ffr0YUs/N+suv1i4YKHWoq16fxUuOZ8/d96zS48232xUmGaaKkZ235rNNHTp +lWXcpo2bcMnT8W4Mjmxh+Ar/YXQA3g48H2nmZFU2tgVaZQ0MYr8//n04mgtQ +RSloqCg2xcrbMJbyejQHDBjAVpRYg7u6du2KTTg0xTAih+XwwGTBa3wWbb7P +qDAt9KojsQa3Mha6pwxYO6rIXAUKFIAOVNMv651WhO441Tna1sJVXhjXTJk8 +RSstt7xCVOYJhjK3aVPWy0VxLQ6aYugquTLPY/AGeFQNKUqxBa3fkT9MW0yl +6+U1ty2G1Ug1C9y6ZasYOmSoph629WBbkSsMrwL3y2J33Q7+yf2GNJkFkmBD +zK0Omsf69euz6u6gss8nS1ven/JJjFm3qh0wBVIdqbseq3n13d7So3PoKXcB +lDAZ7F0fbFYmma0M18E5qiZ+8c3Ob3AjBHZxoBuDQS/spga6N3r6wq0izE6Q +qiJvzHiDpjjKWhhfQ4PONUF3UhVRuzpA16hRQ7Rs2VLMnjUbXETb44wBanwC +7SUM2ORAWsybOw92p5IMkqNz4Ca354tbrfV2IWNistXE8N0bZgWpKC3atnUb +diqFCxfGTgWqcKCZVDcNS37Qj8EWWqTcSAPrlJgyYXI+eYdeG3ruCgS9QKD3 +j/DJMCEhAdeD3Hdo01WQKtXtMgfs2GZmZqI//QZL1AogjMRAAxQVNE6BqQu1 +525ZMeE5EYoEVLl3I6GNUwYnsaLDd6yXySkecqNz6Gyb7YZtpi1UDod5aCtB +hpegtxF0kIe2E3SAh74gaD8PfUnQPh7aQdBeHvqKoD089DVBwZ4iWG4CItZD +YNjXivWIy03i8oSZ41aSEpLj1+QNSfVRatRvZv2tJOXmeNKwIXEr3eyt5DKv +HFGU6vvNrL+VpPzmla+aR1xVyljdI7UMpcbnOK+XtkTeuF0kbCcP7Sboax7a +Q9BXPLSXoB08tN8jbjuPH/CI28bjBz3itvL4IbLYAB0maIsLQuYIJW3m8x8l +aBMPHSNoIw8dJ2gDD31P0Oc89G+CPuOhHwj6lIdOEPQvHjpJ0D956BRBn/DQ +jwR9zEM/EfQPHjpN0EehxXqGktaHJp2lpHW86HMEreWh8wR9yEM/E7SGhy4Q +tJqHfiHoAx66SNAqHrpE0Ps8dJmgv/PQFYJW8tBVgt7joWsErQgtseuUtDw0 +6QYlLeNFY5jLI2GxJU+kR8K7ljzO4NBGOj353yxkNJGLLGQMkQstpJ/IBRbS +6UXnW8hYIt+xkE5fPs9COpv6cy2k807InNBqgul5Kf1tiyRnG9LwjSmGtxM5 +20LmI3KWhXR2N960kAlEvmEhnZWMGRYykcjpFtJZkZff1+b4hbBsn7YE1yq8 +X5xSi3M5+LQFQ2fxOLh7TuPm7Fv52b5nUfszzCs3as8tp5+2YOisWE7h7VK5 +3d+yqIUX25sgKq/t+xYMC5M1k3lr1CqY7QUFpdn2kQuGRUjzJLtm2za60uz9 +ZUuIvol2fbbd2UipNaefs2B4F1kywW6JbQ9QvUOVg+9XMLybjBhvN8K2VRXu +BysYJpHmcdR+ABCyr0GfUdn2RXKkPJmUjyXlXovm+aRbmfX2cD9OwfAe0vl6 +UKey2L2sml8+417LsG5tOf0oBcMUsmBM0AK2cS9O5GgLWZLIkRayFJEjLGRp +IodbSGcuPsxCphL5mot0hgdplP6qRVJZymg4kAHDdJI5xEKWJ3KwhaxA5CAL +WZHsHGghK5FMw3EQGGYQ2d9CVibyJQtZhez8i4V01lYMR0xgWI3I5y1kdSKf +86wXNeiyn2d6Lcr/jEXT/UQaDrPAsDapMBxmgeEDJPMpC/kgyexlIeuRzCct +ZH0iDQdkYNiAtHe3kI1IpuEoDQyd8zQMR2lgmEkyu1nIJkRmO3QD052TNzp7 +pjej/J0smh4hsqOFbE4qHrWQLUmm4VAODJ2TOQyHcmDonMxhOJQDw7akvY2F +bEcyDYdyYOiczGE4lAPDR0l7CwvZgWQ+YiEfI9JwKAeGzskc2Q7lwHTnZI5M +iyTnjA7D8RwYZhHZ0EL2INJw6AaGzskbhkM3MMSTN3BYXcdCPk0y77eQz5DM +GhbyOZIpj70I7gn86hmoOtgAhmNKjN/vVxLatGlDEthR1gt0F/IgjbySDGPG +qcbp8gttvGLH7i+Rokq8Iq8pZI604OABj5Yqz2spkBOJg0li2f9CojOVe4Xk +lL5JluHAFI/uSrlJEnGgjQeMFbtJEvHz8niIl98vx8mqFDJxUu/KwVcfUgAo +8No8wxBXhrAixumPFD8vihKdO3fGl4eWL1sO78GxwuXKrTpwIPuMx4ffPsGL +r8WKFfPc4XPLYduF/1E6/v4dDvaLyPUfxyNRZA==\ +\>", "ImageResolution" -> 96., "LightDark" -> \ +"Light"],ImageRangeCache->{{{0., 359.}, {221., 0.}} -> {-19.402618477936908, \ +0.8923747627909967, 0.7099700316630947, \ +0.001262238128389079}},ExpressionUUID->"8a200671-82f1-364d-8dba-8342607ad7b7"], Cell[BoxData[ TagBox[ @@ -2019,69 +6889,10 @@ MathPictureEnd 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"], + 1}},ImageRangeCache->{{{0., 359.}, {221., 0.}} -> {-3.233775858153751, \ +-0.007969775184554129, 0.11832856225129938, \ +0.0005589111396958131}},ExpressionUUID->"06204099-db57-8e4e-bcc4-\ +fa1ae37c0063"], Cell[BoxData[ TagBox[ @@ -2094,9 +6905,72 @@ Cell[BoxData[ Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", - RowBox[{"{", "}"}], "]"}]}]], "Input", - CellChangeTimes->{{3.991799458254999*^9, - 3.9917994623413925`*^9}},ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-\ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.005193"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.015406"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.025113"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.034006"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.041831"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.048382"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.053535"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.057218"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.059449"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.060284"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.059853"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.058305"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.055833"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.052623"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.048884"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.044792"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.040528"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.03623"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.032028"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.02801"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.024253"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.020798"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.017676"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.014891"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.012445"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.010316"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.00849"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.006935"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.005627"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.004534"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.003631"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.994084097973804*^9},ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-\ 5e6c7b4b5678"], Cell[BoxData[ @@ -7550,10 +12424,10 @@ Cell[BoxData[ Cell[BoxData["0.07371813161570438`"], "Output",ExpressionUUID->"d15888a7-bf5a-b54e-a332-976645c927ce"] }, Open ]] }, -WindowSize->{718.5, 729.75}, -WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +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->"370f2b53-61d0-7c4a-817b-bf9dca2c7a0a" ] @@ -7568,354 +12442,608 @@ 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, 357, 7, 36, "Input",ExpressionUUID->"7ea71dfd-b2c0-4b99-9aa3-8fe6de08e31e"], +Cell[936, 31, 232, 5, 41, "Output",ExpressionUUID->"81a2eacd-9d1d-48e2-ab94-2bad96ae2f6d"] }, 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[1205, 41, 250, 5, 36, "Input",ExpressionUUID->"f744b062-a40c-4b64-a45f-44b752e39e6b"], +Cell[1458, 48, 232, 5, 41, "Output",ExpressionUUID->"c854fdee-9428-4c59-b580-f94cb8d630e4"] }, 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[1727, 58, 228, 5, 36, "Input",ExpressionUUID->"87d1104e-cfce-4c88-a8ad-fc2fff981ee6"], +Cell[1958, 65, 234, 5, 41, "Output",ExpressionUUID->"138ffab8-de63-48d1-82c6-c8d1cf9d8609"] }, 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[2229, 75, 180, 4, 66, "Input",ExpressionUUID->"a03edf3b-1fe5-4172-acda-4468f3e2d00a"], +Cell[2412, 81, 232, 5, 75, "Output",ExpressionUUID->"d9ba2f63-9db3-4dac-9e3c-760355714cad"] }, 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[2681, 91, 262, 8, 96, "Input",ExpressionUUID->"7bfced1d-dc51-4f78-a3d7-9e3af299f64b"], +Cell[2946, 101, 237, 5, 75, "Output",ExpressionUUID->"fe42cc1e-7f88-47be-85bf-06353305ab32"] }, 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[3220, 111, 136, 3, 66, "Input",ExpressionUUID->"6ee5abef-bbf2-4ee7-8c77-ed8b7108eb6f"], +Cell[3359, 116, 233, 5, 75, "Output",ExpressionUUID->"40f66af5-b8a1-4f57-aa94-f56ded6fa254"] }, 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[3629, 126, 281, 7, 66, "Input",ExpressionUUID->"67c8941d-038b-4734-96dd-fd4c619e69e3"], +Cell[3913, 135, 248, 5, 75, "Output",ExpressionUUID->"bfe204e5-4bbd-4809-85e3-b2cdf8eb6c8e"] }, 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[4198, 145, 262, 8, 66, "Input",ExpressionUUID->"350770d6-4a07-484d-a035-07b63503ebc9"], +Cell[4463, 155, 248, 5, 75, "Output",ExpressionUUID->"28cbd9ca-90f6-4e14-9e41-4d7db18e8830"] }, 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[4748, 165, 208, 4, 66, "Input",ExpressionUUID->"d6ee75e6-5445-4bb6-8c64-24bb8eb48403"], +Cell[4959, 171, 218, 4, 75, "Output",ExpressionUUID->"f903acf0-62f4-423a-a0c2-a40f7fa3c61f"] }, 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[5214, 180, 210, 4, 66, "Input",ExpressionUUID->"ed81a5fb-4fb5-441e-87fd-36593f8700ad"], +Cell[5427, 186, 214, 4, 75, "Output",ExpressionUUID->"d89e9ffe-9a18-42e1-ae70-f99b5276a16c"] }, 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[5678, 195, 133, 3, 66, "Input",ExpressionUUID->"b89827a4-258e-4003-b1e7-dab12555b42d"], +Cell[5814, 200, 232, 5, 75, "Output",ExpressionUUID->"3b651afd-f0d2-49bf-a83e-77073070e7a5"] }, 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[6083, 210, 133, 3, 66, "Input",ExpressionUUID->"2c7dfbf6-94b8-4a7d-986e-ad84ea648797"], +Cell[6219, 215, 232, 5, 75, "Output",ExpressionUUID->"2b5bac7c-e751-4c70-9017-d2a196c9e1be"] }, 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[6488, 225, 561, 20, 175, "Input",ExpressionUUID->"29e5375a-e538-4e58-889c-bf8fa8867d96"], +Cell[7052, 247, 249, 5, 75, "Output",ExpressionUUID->"64a4086f-8a84-4e65-9ae6-0483e0df9121"] }, 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[7338, 257, 561, 20, 175, "Input",ExpressionUUID->"57c0b2c1-ed31-4f94-8a02-9684c242442f"], +Cell[7902, 279, 252, 5, 75, "Output",ExpressionUUID->"f8cc0204-44c5-46d2-bd0c-9c861f9e27ce"] }, 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[8191, 289, 1592, 51, 362, "Input",ExpressionUUID->"767361d1-eb20-4cfb-98e4-9db123ce2e7d"], +Cell[9786, 342, 246, 5, 75, "Output",ExpressionUUID->"86293c25-45b0-4cf9-9f5a-68c0e992017c"] }, 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[10069, 352, 1426, 47, 362, "Input",ExpressionUUID->"727d1887-9bd0-4c99-95c1-beb0e6375c1b"], +Cell[11498, 401, 266, 6, 75, "Output",ExpressionUUID->"685ce0b8-9f2a-4a97-926d-aceede093559"] }, 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[11801, 412, 1426, 47, 362, "Input",ExpressionUUID->"70da0a4d-58d0-4c55-aee5-2bcedac5a936"], +Cell[13230, 461, 271, 6, 75, "Output",ExpressionUUID->"181f52e6-143c-43ce-9acc-60f4108b3908"] }, 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[13538, 472, 1592, 51, 362, "Input",ExpressionUUID->"327d6fe0-2042-4a7f-b513-35484052d306"], +Cell[15133, 525, 243, 5, 75, "Output",ExpressionUUID->"b77a7590-9bc8-4829-8102-ce7119d4896b"] }, 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[15413, 535, 135, 3, 66, "Input",ExpressionUUID->"314507d5-d2a6-4437-b833-cc091fec076c"], +Cell[15551, 540, 234, 5, 75, "Output",ExpressionUUID->"99de46d3-6181-4398-bc8b-1fc407b43790"] }, 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[15822, 550, 137, 3, 66, "Input",ExpressionUUID->"25f8b60e-22fa-40de-a243-e04ff8d8f1f2"], +Cell[15962, 555, 232, 5, 75, "Output",ExpressionUUID->"270143e0-b48e-4af5-87df-8fbbc7b2b850"] }, 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[16231, 565, 138, 3, 66, "Input",ExpressionUUID->"aff68d39-bc98-4cd0-9dae-ed2e14ca7d7e"], +Cell[16372, 570, 240, 5, 75, "Output",ExpressionUUID->"b6186fcd-533f-4010-a90c-33d87bd24f86"] }, 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[16649, 580, 223, 5, 66, "Input",ExpressionUUID->"cb5aa02e-499e-4c4d-ab29-10796a7bea54"], +Cell[16875, 587, 247, 6, 75, "Output",ExpressionUUID->"bd96c79f-a70d-4ab2-8f41-31729e1b35f7"] }, 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[17159, 598, 138, 3, 66, "Input",ExpressionUUID->"0c85b4d0-4691-427b-9705-930c99976335"], +Cell[17300, 603, 236, 5, 75, "Output",ExpressionUUID->"ab9adafe-4a0f-4754-8f9b-76604838f892"] }, 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[17573, 613, 328, 6, 66, "Input",ExpressionUUID->"58c6c026-bc38-4c2b-aaea-e3e90411b079"], +Cell[17904, 621, 232, 5, 75, "Output",ExpressionUUID->"88e37657-a72e-4885-8940-b0180f58fcd4"] }, 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[18173, 631, 301, 6, 66, "Input",ExpressionUUID->"25541307-7099-458f-9c32-435fe838297c"], +Cell[18477, 639, 235, 5, 75, "Output",ExpressionUUID->"e4335573-b33b-45a3-9981-92940083a78d"] }, 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[18749, 649, 223, 5, 66, "Input",ExpressionUUID->"ae20d118-c0a4-4ad6-886e-c96a21ab626f"], +Cell[18975, 656, 229, 5, 75, "Output",ExpressionUUID->"94c57544-e787-4c1d-8a89-9f05d9604f59"] }, 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[19241, 666, 354, 11, 96, "Input",ExpressionUUID->"57bf3841-c639-45eb-baf9-b13e37b4122b"], +Cell[19598, 679, 251, 5, 75, "Output",ExpressionUUID->"8574d8a7-6ce2-4391-b392-62fa12161133"] }, 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[19886, 689, 354, 11, 96, "Input",ExpressionUUID->"30fff870-f317-4025-8264-4cdb939fd843"], +Cell[20243, 702, 267, 6, 75, "Output",ExpressionUUID->"cb91352a-9065-4b05-b5e5-1749af1e1015"] }, 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[20547, 713, 998, 27, 184, "Input",ExpressionUUID->"46a59d8f-21ac-43ba-a641-4517ca87cff2"], +Cell[21548, 742, 246, 5, 75, "Output",ExpressionUUID->"a4c101cb-773a-4203-9e14-e20653f3a193"] }, 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[21831, 752, 203, 4, 66, "Input",ExpressionUUID->"6b0b387e-0521-4284-a2c0-3597cf0dd3a1"], +Cell[22037, 758, 234, 5, 75, "Output",ExpressionUUID->"688289aa-b349-419f-938d-a15706100e04"] }, 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[22308, 768, 333, 6, 66, "Input",ExpressionUUID->"d446da3f-5c5f-4536-af81-2864acb72208"], +Cell[22644, 776, 211, 4, 75, "Output",ExpressionUUID->"e4021a63-4185-48ff-b893-c16efddab6ee"] +}, Open ]], +Cell[22870, 783, 177, 3, 66, "Input",ExpressionUUID->"15fce225-822a-49d5-bb1c-220491babb97"], +Cell[CellGroupData[{ +Cell[23072, 790, 333, 6, 66, "Input",ExpressionUUID->"53f7964f-2add-458d-82e8-10e6e3219080"], +Cell[23408, 798, 211, 4, 75, "Output",ExpressionUUID->"0c4f08ab-8ba2-4f7a-ba68-7c10060ba825"] +}, Open ]], +Cell[23634, 805, 177, 3, 66, "Input",ExpressionUUID->"79dfe7be-8f52-4378-a5b6-5788a53f6fb0"], +Cell[CellGroupData[{ +Cell[23836, 812, 330, 6, 66, "Input",ExpressionUUID->"6c8cbca9-d770-435c-9caa-abdaf2f4d9a0"], +Cell[24169, 820, 205, 4, 75, "Output",ExpressionUUID->"b758653f-b57f-4dcc-92ff-90ca42590a5a"] +}, Open ]], +Cell[24389, 827, 177, 3, 66, "Input",ExpressionUUID->"274205e6-aaa2-403e-bdf1-60494d2ab4da"], +Cell[CellGroupData[{ +Cell[24591, 834, 356, 6, 66, "Input",ExpressionUUID->"025d3e12-54f5-4cfe-b073-8ae168db5c5e"], +Cell[24950, 842, 209, 4, 75, "Output",ExpressionUUID->"5498ada6-792a-4875-ba64-33349e4b862b"] +}, Open ]], +Cell[25174, 849, 175, 3, 66, "Input",ExpressionUUID->"84577125-699a-4c8b-b50c-b8f719e35e31"], +Cell[CellGroupData[{ +Cell[25374, 856, 303, 6, 66, "Input",ExpressionUUID->"dfaf18dc-5eb0-4849-8f51-f8b1984b4725"], +Cell[25680, 864, 211, 4, 75, "Output",ExpressionUUID->"1c05b573-1b1f-424d-a902-c72897518f41"] +}, Open ]], +Cell[25906, 871, 175, 3, 66, "Input",ExpressionUUID->"bb0a71a5-93ab-4ef3-9fdb-62bb661ed34c"], +Cell[CellGroupData[{ +Cell[26106, 878, 309, 6, 66, "Input",ExpressionUUID->"7da12e6f-221a-4553-aba7-53c53bdb5de6"], +Cell[26418, 886, 208, 4, 75, "Output",ExpressionUUID->"77f80e55-9d8e-4edb-9dc7-5e2894a18597"] +}, Open ]], +Cell[26641, 893, 177, 3, 66, "Input",ExpressionUUID->"ebd04750-1d28-4ffa-bdda-7bb457359397"], +Cell[CellGroupData[{ +Cell[26843, 900, 310, 6, 66, "Input",ExpressionUUID->"446f65ef-4350-4911-b9f5-56333a988202"], +Cell[27156, 908, 208, 4, 75, "Output",ExpressionUUID->"2ec788d0-3867-4881-ba68-0b9ed73c996d"] +}, Open ]], +Cell[27379, 915, 176, 3, 66, "Input",ExpressionUUID->"dc837306-d20f-440d-8b2b-be9ce105e2b2"], +Cell[CellGroupData[{ +Cell[27580, 922, 278, 5, 66, "Input",ExpressionUUID->"7f4cb388-759f-4782-bed0-c71df4480d64"], +Cell[27861, 929, 207, 4, 75, "Output",ExpressionUUID->"dc96c3b7-ac9a-4a53-855c-b6feb5f17789"] +}, Open ]], +Cell[28083, 936, 179, 3, 66, "Input",ExpressionUUID->"90a13eb9-542d-4060-bb46-46ccb19635d1"], +Cell[CellGroupData[{ +Cell[28287, 943, 19813, 486, 5405, "Input",ExpressionUUID->"dafedac8-4248-482a-ad46-946d2abe4ec0"], +Cell[48103, 1431, 249, 5, 75, "Output",ExpressionUUID->"47f35287-f666-422e-8fc0-445d51343db0"] }, 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[48389, 1441, 19752, 490, 5343, "Input",ExpressionUUID->"1863c650-cefb-45cb-b1ad-86aa31150214"], +Cell[68144, 1933, 247, 5, 75, "Output",ExpressionUUID->"5d68a0a9-bdcf-4cab-8162-ea55408eedfd"] }, 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[68428, 1943, 19752, 484, 5342, "Input",ExpressionUUID->"813e74eb-a8e6-499b-b6ac-1fba16da3421"], +Cell[88183, 2429, 265, 6, 75, "Output",ExpressionUUID->"d7c0df12-97d5-4d5c-bfcc-460298e33414"] }, 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[88485, 2440, 22538, 554, 6074, "Input",ExpressionUUID->"aa2232f7-a2ef-4ffb-8632-d6506ccedb96"], +Cell[111026, 2996, 267, 6, 75, "Output",ExpressionUUID->"fa02a3d3-4cb5-4a20-9e7e-20d95ed15cbb"] }, 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[111330, 3007, 22539, 554, 6074, "Input",ExpressionUUID->"b445d538-3ced-47d4-9054-12263665419d"], +Cell[133872, 3563, 266, 6, 75, "Output",ExpressionUUID->"cc777c3f-81d2-4712-a323-9eb655d9f14e"] }, 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[134175, 3574, 25495, 627, 6806, "Input",ExpressionUUID->"0a351458-3ad5-4444-8e6a-262b7c9da82d"], +Cell[159673, 4203, 265, 6, 75, "Output",ExpressionUUID->"c0681327-5d17-47b6-8427-8eb188af49b6"] }, 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[159975, 4214, 134, 3, 66, "Input",ExpressionUUID->"28280def-0ed0-428b-bd2e-eb71c3096b78"], +Cell[160112, 4219, 229, 5, 75, "Output",ExpressionUUID->"ecca8e1e-b59d-418b-9b9d-77de4c37d56c"] }, 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[160378, 4229, 134, 3, 66, "Input",ExpressionUUID->"2192f8a5-bda1-45e2-8337-5a866cee4124"], +Cell[160515, 4234, 232, 5, 75, "Output",ExpressionUUID->"4a9b2662-4475-446f-a0d0-9222d876e97b"] }, 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[160784, 4244, 1148, 40, 246, "Input",ExpressionUUID->"570a2a35-a64c-4ecc-afcf-df3397c5eb59"], +Cell[161935, 4286, 246, 5, 75, "Output",ExpressionUUID->"48f2225d-15b9-4b56-a3b6-6b1dd876f8bb"] }, 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[162218, 4296, 1045, 36, 246, "Input",ExpressionUUID->"6269b77a-f9c5-4551-8880-f900cee8f0ad"], +Cell[163266, 4334, 262, 6, 75, "Output",ExpressionUUID->"9b661eb1-566e-4a67-af49-1f687f39317e"] }, 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[163565, 4345, 1148, 40, 246, "Input",ExpressionUUID->"318c7941-d810-4a37-9f8c-62909779e04c"], +Cell[164716, 4387, 250, 5, 75, "Output",ExpressionUUID->"d4150e7f-5810-4e6c-a26b-f8e448b8b6b6"] }, 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[165003, 4397, 112, 2, 66, "Input",ExpressionUUID->"f253df11-798a-49ba-86b2-1bc054712467"], +Cell[165118, 4401, 248, 5, 75, "Output",ExpressionUUID->"93839a89-9423-4a36-b8f0-d5223d7222ff"] }, 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[165403, 4411, 112, 2, 66, "Input",ExpressionUUID->"effc6f6d-3084-49ce-9097-f05efd86e064"], +Cell[165518, 4415, 266, 6, 75, "Output",ExpressionUUID->"8f320bb1-d283-4e61-a6b0-16c26d7be527"] }, 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[165821, 4426, 112, 2, 66, "Input",ExpressionUUID->"1a06bccf-3afe-4c66-ad9f-32e21eb4fc0e"], +Cell[165936, 4430, 262, 6, 75, "Output",ExpressionUUID->"9735e212-94e9-4f13-bf9e-2f19d6900d37"] }, 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[166235, 4441, 112, 2, 66, "Input",ExpressionUUID->"e299288a-6693-4f0f-9b41-89bd36da6319"], +Cell[166350, 4445, 248, 5, 75, "Output",ExpressionUUID->"bed4c3e0-670d-4fa0-9839-248799c78555"] }, 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[166635, 4455, 111, 2, 66, "Input",ExpressionUUID->"37ea46c7-e9c6-4912-a38f-f126189cbde2"], +Cell[166749, 4459, 225, 4, 75, "Output",ExpressionUUID->"2b17f957-1f57-4265-9537-ced00f11fc9e"] }, 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[167011, 4468, 111, 2, 66, "Input",ExpressionUUID->"5a2fe610-3676-4d2c-a84f-b81fa3a2dde3"], +Cell[167125, 4472, 221, 4, 75, "Output",ExpressionUUID->"dd3c2ec9-8460-4b88-9888-edd4ca4aed6f"] }, 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[167383, 4481, 501, 17, 125, "Input",ExpressionUUID->"f0f9eabe-0ffc-4c21-b7ff-8f840e316b78"], +Cell[167887, 4500, 238, 5, 75, "Output",ExpressionUUID->"f6c3b47b-429e-4866-b56c-04f0923ae4be"] }, 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[168162, 4510, 501, 17, 125, "Input",ExpressionUUID->"1e7acc64-22e8-46ca-a73b-29fdc9f5a0c3"], +Cell[168666, 4529, 238, 5, 75, "Output",ExpressionUUID->"d00a88a5-13d8-4c7d-ab11-5a588c2477f0"] }, 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[168941, 4539, 1792, 61, 420, "Input",ExpressionUUID->"92322cf4-6839-45a4-bf06-bc1d3d155b1f"], +Cell[170736, 4602, 219, 4, 75, "Output",ExpressionUUID->"19b5b8c1-6db6-4d0e-aa21-85638ef5e632"] }, 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[170992, 4611, 1105, 37, 299, "Input",ExpressionUUID->"3a820df7-eebe-479a-b2ed-5668de066fae"], +Cell[172100, 4650, 238, 5, 75, "Output",ExpressionUUID->"4f432f74-584c-45b4-b23e-67e7e058bbd4"] }, 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[172375, 4660, 1822, 62, 420, "Input",ExpressionUUID->"43df8d62-a6fc-49dc-aa7b-728eb12230db"], +Cell[174200, 4724, 217, 4, 75, "Output",ExpressionUUID->"2398950a-3aa0-40c8-98be-3c892395f30a"] }, 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[174454, 4733, 1635, 54, 368, "Input",ExpressionUUID->"db350966-ce8d-4c4f-828a-14725e1e62f2"], +Cell[176092, 4789, 222, 4, 75, "Output",ExpressionUUID->"daf1f923-5e23-4681-9ef2-c25e5e8da2f9"] }, 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[176351, 4798, 1635, 54, 208, "Input",ExpressionUUID->"4d0eefa6-dde1-470b-bc55-058a41501f61"], +Cell[177989, 4854, 219, 4, 41, "Output",ExpressionUUID->"b78a182d-3e36-40ae-83db-4d9957242865"] +}, Open ]], +Cell[178223, 4861, 187, 4, 36, "Input",ExpressionUUID->"83cccf0d-dccb-fb42-a058-5e950c758893"], +Cell[178413, 4867, 152, 3, 36, "Input",ExpressionUUID->"7730e455-e5f4-194b-b761-e7a6896afd10"], +Cell[178568, 4872, 182, 3, 36, "Input",ExpressionUUID->"b70cfd2b-21a1-8344-9518-5e27a96171a9"], +Cell[178753, 4877, 154, 3, 36, "Input",ExpressionUUID->"86df0a71-aa65-aa41-b8f1-8c5c5be10fe8"], +Cell[CellGroupData[{ +Cell[178932, 4884, 1273, 41, 174, "Input",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"], +Cell[180208, 4927, 106, 0, 41, "Output",ExpressionUUID->"cbffa725-bd15-2049-b55f-318286f23572"] }, 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"] -}, Open ]], -Cell[208234, 7211, 138, 3, 70, "Input",ExpressionUUID->"4ad58a38-0776-5240-aa41-ba7c8ff64fb9"], -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[180351, 4932, 910, 31, 128, "Input",ExpressionUUID->"c16f367e-d189-2745-b3b8-a9b137c5e3b6"], +Cell[181264, 4965, 106, 0, 41, "Output",ExpressionUUID->"ccc498a0-28db-294f-9612-85d9a5c6b1f9"] }, 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[181407, 4970, 885, 30, 128, "Input",ExpressionUUID->"b7d001ae-480c-4b41-8df9-8010347227f7"], +Cell[182295, 5002, 106, 0, 41, "Output",ExpressionUUID->"0586a11a-38a6-a040-a172-aaeab8c90dd8"] }, 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[182438, 5007, 532, 18, 66, "Input",ExpressionUUID->"d15e5e59-9ad8-e247-a132-b43b2736212a"], +Cell[182973, 5027, 101, 0, 41, "Output",ExpressionUUID->"c25fd138-6ebd-9549-9de5-30353d068c14"] }, 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[183111, 5032, 625, 21, 66, "Input",ExpressionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"], +Cell[183739, 5055, 100, 0, 41, "Output",ExpressionUUID->"8c8a87e7-f604-4044-b4ce-b17ddc0907b3"] }, 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[183876, 5060, 144, 4, 71, "Input",ExpressionUUID->"906db7f6-73f3-8a4e-88a4-7c75445a4f32"], +Cell[184023, 5066, 101, 0, 41, "Output",ExpressionUUID->"fa0bea71-615d-2d4d-8b39-59994ce24952"] +}, Open ]], +Cell[CellGroupData[{ +Cell[184161, 5071, 144, 4, 69, "Input",ExpressionUUID->"731b68b1-c44a-6c4a-a9f8-bc957ede9a68"], +Cell[184308, 5077, 100, 0, 41, "Output",ExpressionUUID->"d3e4fece-e329-2041-9645-50ae8ca1c91c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[184445, 5082, 155, 4, 55, "Input",ExpressionUUID->"71af6813-eb8f-4944-8d03-7bcd77a7b4b4"], +Cell[184603, 5088, 101, 0, 41, "Output",ExpressionUUID->"8db6732d-a570-734c-94eb-cb35afdbb155"] +}, Open ]], +Cell[CellGroupData[{ +Cell[184741, 5093, 155, 4, 55, "Input",ExpressionUUID->"28815b73-08dc-e64f-8823-2a55ad6b8ca8"], +Cell[184899, 5099, 101, 0, 41, "Output",ExpressionUUID->"06581e5e-cb29-0446-9bb7-b3bb2156a7c7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185037, 5104, 6029, 184, 831, "Input",ExpressionUUID->"137e8d46-8eff-3c47-bf8f-1350d0b8a0bb"], +Cell[191069, 5290, 102, 0, 41, "Output",ExpressionUUID->"000a1d2e-b429-4a45-b9a2-ccba4bf718eb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191208, 5295, 342, 8, 53, "Input",ExpressionUUID->"65edd566-4493-2440-9c51-9fca28ce324b"], +Cell[191553, 5305, 342, 6, 26, "Message",ExpressionUUID->"b04cf5cc-6c74-f842-9fba-c737c46f5a7b"], +Cell[191898, 5313, 100, 0, 41, "Output",ExpressionUUID->"32922499-707a-964c-90f0-b2630d16ee29"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192035, 5318, 6096, 186, 900, "Input",ExpressionUUID->"d808e80b-1928-8046-afec-31463f4946cd"], +Cell[198134, 5506, 103, 0, 41, "Output",ExpressionUUID->"17720629-0c4f-744e-a447-06cd4a4f0034"] +}, Open ]], +Cell[CellGroupData[{ +Cell[198274, 5511, 342, 8, 53, "Input",ExpressionUUID->"56b1717f-bc75-4047-98f0-7a0dede3f8a9"], +Cell[198619, 5521, 342, 6, 26, "Message",ExpressionUUID->"6f900e99-9e38-fb4c-84fd-e99588ed1cc5"], +Cell[198964, 5529, 100, 0, 41, "Output",ExpressionUUID->"e5a93687-7c76-eb48-a79a-098cbe08792a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[199101, 5534, 2637, 87, 435, "Input",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-f74418e31aeb"], +Cell[201741, 5623, 101, 0, 41, "Output",ExpressionUUID->"a53e2e6d-ca02-5d40-9088-48aa754351ec"] +}, Open ]], +Cell[CellGroupData[{ +Cell[201879, 5628, 2577, 84, 435, "Input",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-91d5391478d5"], +Cell[204459, 5714, 102, 0, 41, "Output",ExpressionUUID->"5ca04a2b-633e-1547-b10d-b4f00d8b3fcb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[204598, 5719, 3686, 117, 575, "Input",ExpressionUUID->"bea639c9-f172-ef4e-9454-9d4e027f5fa2"], +Cell[208287, 5838, 102, 0, 41, "Output",ExpressionUUID->"af769b0f-0bd4-194f-bc02-90651fd30541"] +}, Open ]], +Cell[208404, 5841, 138, 3, 36, "Input",ExpressionUUID->"752e2dd5-bee6-2048-8697-fe84d79611fa"], +Cell[CellGroupData[{ +Cell[208567, 5848, 2054, 59, 276, "Input",ExpressionUUID->"f8b12d93-5bd9-8641-aa98-3d78ebb0f21b"], +Cell[210624, 5909, 342, 6, 26, "Message",ExpressionUUID->"4105bae1-ec8c-fc46-bc8a-9d70c37ec32c"], +Cell[210969, 5917, 342, 6, 26, "Message",ExpressionUUID->"42c1a263-2456-664a-bb33-c5fe841cb412"], +Cell[211314, 5925, 100, 0, 41, "Output",ExpressionUUID->"1c49befc-babf-0743-9739-e64b536d1c51"] +}, Open ]], +Cell[CellGroupData[{ +Cell[211451, 5930, 2049, 58, 276, "Input",ExpressionUUID->"cbefe077-df46-c24c-b854-69741ca50d38"], +Cell[213503, 5990, 342, 6, 26, "Message",ExpressionUUID->"be4d7bfb-c18e-564a-93ce-3f42607886e7"], +Cell[213848, 5998, 342, 6, 26, "Message",ExpressionUUID->"b768ca5f-6b93-1f43-97bf-08f74ea2facd"], +Cell[214193, 6006, 100, 0, 41, "Output",ExpressionUUID->"6af143a4-6ae5-fb45-8cd1-6940f2290ff9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[214330, 6011, 1938, 53, 232, "Input",ExpressionUUID->"b9a7e2d9-7e48-cb4c-89bc-12d8b19f0936"], +Cell[216271, 6066, 342, 6, 26, "Message",ExpressionUUID->"d3cb6fbc-3803-0541-80d1-8cab47341c44"], +Cell[216616, 6074, 342, 6, 26, "Message",ExpressionUUID->"635ef23c-be29-f947-b49d-c0d2f59f2ba8"], +Cell[216961, 6082, 342, 6, 26, "Message",ExpressionUUID->"d8687e0f-2f42-0543-a749-78a1ff3c9572"], +Cell[217306, 6090, 407, 7, 48, "Message",ExpressionUUID->"b055d243-2255-1f40-80bd-55bc54524667"], +Cell[217716, 6099, 9852, 394, 232, 4231, 300, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"8a200671-82f1-364d-8dba-8342607ad7b7"], +Cell[227571, 6495, 191, 5, 41, "Output",ExpressionUUID->"e49c1b8d-fabe-b944-a6dd-c578eb57eb6a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[227799, 6505, 2094, 60, 311, "Input",ExpressionUUID->"4b73592e-b155-8f42-b33d-562f8b3faecd"], +Cell[229896, 6567, 342, 6, 26, "Message",ExpressionUUID->"9f5fa53c-8bea-a349-9c29-e4614f56cc98"], +Cell[230241, 6575, 342, 6, 26, "Message",ExpressionUUID->"a2ecd22c-b766-5347-9e03-9d459620be75"], +Cell[230586, 6583, 342, 6, 26, "Message",ExpressionUUID->"45a49c2b-98f0-ca4e-ab79-bb0334e26ffd"], +Cell[230931, 6591, 407, 7, 26, "Message",ExpressionUUID->"258782e2-0da4-1143-8b36-76da0d2ac6df"], +Cell[231341, 6600, 4406, 294, 232, "Graphics",ExpressionUUID->"06204099-db57-8e4e-bcc4-fa1ae37c0063"], +Cell[235750, 6896, 191, 5, 41, "Output",ExpressionUUID->"8efa1c1f-552a-d042-8a05-04dec8739bf5"] +}, Open ]], +Cell[235956, 6904, 2453, 69, 140, "Input",ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-5e6c7b4b5678"], +Cell[238412, 6975, 209, 5, 36, "Input",ExpressionUUID->"cd9a8165-891b-9245-aca1-3f60fcfd9a79"], +Cell[CellGroupData[{ +Cell[238646, 6984, 215, 7, 61, "Input",ExpressionUUID->"c213919d-017d-a948-8e46-fe19384187c3"], +Cell[238864, 6993, 100, 0, 41, "Output",ExpressionUUID->"38d25667-6c7c-094b-b4ad-180d70233424"] +}, Open ]], +Cell[CellGroupData[{ +Cell[239001, 6998, 1814, 53, 116, "Input",ExpressionUUID->"3764dfb4-9656-4349-b0a1-77ebd1a3e048"], +Cell[240818, 7053, 342, 6, 26, "Message",ExpressionUUID->"12d513db-13cc-bc48-b9a3-22b17d8aeb9a"], +Cell[241163, 7061, 342, 6, 26, "Message",ExpressionUUID->"05911c33-7605-8b49-a7ba-7fc8c8f30741"], +Cell[241508, 7069, 342, 6, 26, "Message",ExpressionUUID->"2192e048-2875-9f4a-aa0c-9cbbd447dfe1"], +Cell[241853, 7077, 407, 7, 26, "Message",ExpressionUUID->"b6990f5f-359f-464b-ac16-44cdfeae3c8e"], +Cell[242263, 7086, 8187, 365, 232, "Graphics",ExpressionUUID->"899e43aa-c372-6647-a3e4-4952f308ab17"], +Cell[250453, 7453, 191, 5, 41, "Output",ExpressionUUID->"65116f16-0f68-7e4d-af2e-baecb9a57d9b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[250681, 7463, 1590, 47, 86, "Input",ExpressionUUID->"7899a8a7-561e-a946-a6c9-870ef14ce01b"], +Cell[252274, 7512, 342, 6, 26, "Message",ExpressionUUID->"d7dfab56-fefd-0149-8a26-6ee16f94ab37"], +Cell[252619, 7520, 101, 0, 41, "Output",ExpressionUUID->"43ddf880-80a2-b142-8665-3b95395a9831"] +}, Open ]], +Cell[CellGroupData[{ +Cell[252757, 7525, 2247, 64, 109, "Input",ExpressionUUID->"6fd9b05c-8008-7b42-b1b4-8e83e9537fdc"], +Cell[255007, 7591, 342, 6, 109, "Message",ExpressionUUID->"56921c73-2b67-0e4a-9808-5f61de992c7e"], +Cell[255352, 7599, 342, 6, 109, "Message",ExpressionUUID->"8ae663ad-3729-254b-9ec7-7f5d00ef81af"], +Cell[255697, 7607, 103, 0, 109, "Output",ExpressionUUID->"42e3f6c5-e95f-4040-9e12-cbd48f821f10"] +}, Open ]], +Cell[CellGroupData[{ +Cell[255837, 7612, 2219, 64, 109, "Input",ExpressionUUID->"ccaee6a3-c390-0444-bf16-3471356a3614"], +Cell[258059, 7678, 342, 6, 109, "Message",ExpressionUUID->"1795c3b9-0182-224c-b986-6414d6712c04"], +Cell[258404, 7686, 342, 6, 109, "Message",ExpressionUUID->"c3b31753-a67f-9b45-b822-068e1df11f68"], +Cell[258749, 7694, 100, 0, 109, "Output",ExpressionUUID->"7f3b68f0-36cd-5749-996b-97ffcb02c6cf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[258886, 7699, 2221, 64, 109, "Input",ExpressionUUID->"ca0cc669-d7ba-5b4a-b58b-286954db37c5"], +Cell[261110, 7765, 342, 6, 109, "Message",ExpressionUUID->"32db1bf6-ba11-cb4a-955a-52e174a44e5f"], +Cell[261455, 7773, 342, 6, 109, "Message",ExpressionUUID->"4e2b22f2-1724-7649-93fc-33cd27bb415e"], +Cell[261800, 7781, 101, 0, 109, "Output",ExpressionUUID->"34543184-0f68-7449-9af8-306cfc525771"] +}, Open ]], +Cell[CellGroupData[{ +Cell[261938, 7786, 215, 6, 109, "Input",ExpressionUUID->"7ec678fd-8398-414a-aeba-20e078d734cd"], +Cell[262156, 7794, 104, 0, 109, "Output",ExpressionUUID->"ca67de9f-825c-f641-9d0a-229375d081b1"] +}, Open ]], +Cell[262275, 7797, 247, 5, 109, "Input",ExpressionUUID->"ca329276-48d7-8943-8408-dd2997d3499c"], +Cell[CellGroupData[{ +Cell[262547, 7806, 532, 18, 109, "Input",ExpressionUUID->"681c316f-cd82-ae4b-824f-5eb2b3081f6d"], +Cell[263082, 7826, 100, 0, 109, "Output",ExpressionUUID->"9cf6d8e0-9f1b-734e-b42f-ef77566b5546"] +}, Open ]], +Cell[CellGroupData[{ +Cell[263219, 7831, 144, 4, 109, "Input",ExpressionUUID->"11e77a67-96b2-a645-89cd-559587f30b91"], +Cell[263366, 7837, 100, 0, 109, "Output",ExpressionUUID->"c5ed49bf-8480-c447-a0ac-ef7c5fcad104"] +}, Open ]], +Cell[CellGroupData[{ +Cell[263503, 7842, 155, 4, 109, "Input",ExpressionUUID->"3c5f43e9-afc4-be40-8f37-0116656ecd38"], +Cell[263661, 7848, 100, 0, 109, "Output",ExpressionUUID->"8a551ee1-59e8-d74e-b2fe-ad1527aaef53"] +}, Open ]], +Cell[CellGroupData[{ +Cell[263798, 7853, 6029, 184, 109, "Input",ExpressionUUID->"f07a8476-d7bc-1049-82a6-7cf06f61e28f"], +Cell[269830, 8039, 102, 0, 109, "Output",ExpressionUUID->"6efee3b5-10d6-d642-9cf2-dd8d3fe591e1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[269969, 8044, 342, 8, 109, "Input",ExpressionUUID->"b88b1a94-22d7-2843-88e3-f607b95c8af9"], +Cell[270314, 8054, 342, 6, 109, "Message",ExpressionUUID->"def6b331-c871-b04d-a16e-4fc00b03d009"], +Cell[270659, 8062, 99, 0, 109, "Output",ExpressionUUID->"332f8da7-4eec-ed47-b124-edf7e2bf43d7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[270795, 8067, 6096, 186, 109, "Input",ExpressionUUID->"9d771aab-c0b4-f24c-9b53-9472e00c4d82"], +Cell[276894, 8255, 102, 0, 109, "Output",ExpressionUUID->"0f048ce5-7f5e-0a41-a634-6908b289becd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[277033, 8260, 342, 8, 109, "Input",ExpressionUUID->"47e2a8e8-6af3-374f-9eea-9c2b6faaaf4a"], +Cell[277378, 8270, 342, 6, 109, "Message",ExpressionUUID->"c6c8676e-4601-144e-b83c-769e22949175"], +Cell[277723, 8278, 100, 0, 109, "Output",ExpressionUUID->"bd9f2dfb-0880-624c-8a61-fa3104084faf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[277860, 8283, 2637, 87, 109, "Input",ExpressionUUID->"d8757b1c-19d9-d548-8de4-6b0985b9b3bc"], +Cell[280500, 8372, 101, 0, 109, "Output",ExpressionUUID->"6edb9332-f61a-1c4a-ad7b-c9d3e77138f1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[280638, 8377, 2577, 84, 109, "Input",ExpressionUUID->"58b59182-fae5-674d-b49e-4868d83e9702"], +Cell[283218, 8463, 102, 0, 109, "Output",ExpressionUUID->"5f6645b8-6ac5-6148-a1e1-5f2ee5f21bdd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[283357, 8468, 3686, 117, 109, "Input",ExpressionUUID->"5caf1614-7e5c-9940-98cd-9460e2c074b2"], +Cell[287046, 8587, 102, 0, 109, "Output",ExpressionUUID->"9de56db9-9853-1748-aca6-5103b9dea11d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[287185, 8592, 2052, 59, 109, "Input",ExpressionUUID->"db0784f6-51d0-fd44-b0e8-05d6af1a6e52"], +Cell[289240, 8653, 342, 6, 109, "Message",ExpressionUUID->"7fd60dea-f794-4744-8801-bfb1a50a0e07"], +Cell[289585, 8661, 342, 6, 109, "Message",ExpressionUUID->"0b8c0718-41d2-4542-8afe-212a15805650"], +Cell[289930, 8669, 101, 0, 109, "Output",ExpressionUUID->"a8a97847-bb08-1e4d-8ab6-1eb11a1cda8f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[290068, 8674, 2054, 59, 109, "Input",ExpressionUUID->"7ca6aa7a-7318-6f41-95dc-f69c33a31448"], +Cell[292125, 8735, 342, 6, 109, "Message",ExpressionUUID->"b6f0ccc2-ff83-124b-a341-e143319c7670"], +Cell[292470, 8743, 342, 6, 109, "Message",ExpressionUUID->"d4b50e17-5ee4-384c-b81f-c2a36a80320e"], +Cell[292815, 8751, 100, 0, 109, "Output",ExpressionUUID->"f80834f1-cc9f-1c44-a97c-64c50ba97b67"] +}, Open ]], +Cell[CellGroupData[{ +Cell[292952, 8756, 2030, 55, 109, "Input",ExpressionUUID->"611f92ea-b199-2643-9788-194fae57c34e"], +Cell[294985, 8813, 342, 6, 109, "Message",ExpressionUUID->"7797a546-4085-124a-83da-5f3c472cdc4c"], +Cell[295330, 8821, 342, 6, 109, "Message",ExpressionUUID->"bf75ebeb-fc95-1d45-8487-ceed40ec633c"], +Cell[295675, 8829, 342, 6, 109, "Message",ExpressionUUID->"ca7472ca-7b27-a54a-84a1-e603fa592207"], +Cell[296020, 8837, 407, 7, 109, "Message",ExpressionUUID->"86b3b7d9-f0e9-0a4b-9079-b341ca597ab4"], +Cell[296430, 8846, 9432, 438, 109, "Graphics",ExpressionUUID->"f3c0c3aa-fd64-8e41-bc0a-ae36b33a37ec"], +Cell[305865, 9286, 191, 5, 109, "Output",ExpressionUUID->"23cfff6f-2c67-ce46-9cc6-49e8ffb5e8c8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[306093, 9296, 2118, 60, 109, "Input",ExpressionUUID->"f4c3d53a-1214-a145-beb0-494cdae35e56"], +Cell[308214, 9358, 342, 6, 109, "Message",ExpressionUUID->"b9265795-17b8-4e47-bd29-fee31586537e"], +Cell[308559, 9366, 342, 6, 109, "Message",ExpressionUUID->"072fb53f-7116-0f41-a298-6891351a3192"], +Cell[308904, 9374, 342, 6, 109, "Message",ExpressionUUID->"7f686ca7-db7f-0b40-bbd8-c08a80d2c198"], +Cell[309249, 9382, 407, 7, 109, "Message",ExpressionUUID->"3aaeaf29-5b60-ab47-b674-24d071c511f8"], +Cell[309659, 9391, 8546, 368, 109, "Graphics",ExpressionUUID->"fb5ee406-78d5-a849-9c81-3ea500ee883f"], +Cell[318208, 9761, 191, 5, 109, "Output",ExpressionUUID->"637816d3-cc2d-bb4a-991c-87bc9c72594a"] +}, Open ]], +Cell[318414, 9769, 209, 5, 109, "Input",ExpressionUUID->"2335a158-7588-4c40-bdb5-53b7ef04b97c"], +Cell[CellGroupData[{ +Cell[318648, 9778, 1590, 47, 109, "Input",ExpressionUUID->"01995149-3665-fe4e-b326-b20429031afd"], +Cell[320241, 9827, 342, 6, 109, "Message",ExpressionUUID->"52cff8eb-0c77-c944-a54f-e282b00ce766"], +Cell[320586, 9835, 101, 0, 109, "Output",ExpressionUUID->"51c9eb8e-8429-9440-b4d1-8a2a914a816b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[320724, 9840, 2251, 64, 109, "Input",ExpressionUUID->"11b1e372-f457-5a4d-bcee-062a3c04ed96"], +Cell[322978, 9906, 342, 6, 109, "Message",ExpressionUUID->"cb5a1193-7562-6446-a279-d9f6295d156e"], +Cell[323323, 9914, 342, 6, 109, "Message",ExpressionUUID->"566b0ad4-7f4e-b04f-8294-646ce1913fac"], +Cell[323668, 9922, 101, 0, 109, "Output",ExpressionUUID->"9a717f6e-3c47-7d43-93ae-4bf4814b6aa7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[323806, 9927, 2220, 64, 109, "Input",ExpressionUUID->"8cb4e371-90a5-d347-adec-3382e7679ba8"], +Cell[326029, 9993, 342, 6, 109, "Message",ExpressionUUID->"4cd45900-7eb0-6b4b-830a-a339e8117392"], +Cell[326374, 10001, 342, 6, 109, "Message",ExpressionUUID->"0ddcf174-f6c5-2546-b6d3-f17f46d6e8a3"], +Cell[326719, 10009, 101, 0, 109, "Output",ExpressionUUID->"3e9bc444-276c-294e-8c8d-12ef37255e0d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[326857, 10014, 2223, 64, 109, "Input",ExpressionUUID->"732b358a-c98a-0347-8b16-2462b23d6249"], +Cell[329083, 10080, 342, 6, 109, "Message",ExpressionUUID->"f702ec8b-e3a1-2f4f-bfef-4278a2688935"], +Cell[329428, 10088, 342, 6, 109, "Message",ExpressionUUID->"61220452-df6a-154e-8b5c-fecd0ab287a1"], +Cell[329773, 10096, 101, 0, 109, "Output",ExpressionUUID->"d8ce023f-3349-8348-844a-2526397581d1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[329911, 10101, 215, 6, 109, "Input",ExpressionUUID->"3d20548b-905d-0343-8df1-168ec8f367e1"], +Cell[330129, 10109, 102, 0, 109, "Output",ExpressionUUID->"b33ad8ed-51f6-a045-9dc5-33a5696fd31e"] +}, Open ]], +Cell[330246, 10112, 247, 5, 109, "Input",ExpressionUUID->"ca34450b-ff3b-f34a-a2ed-e661a25a7ba1"], +Cell[CellGroupData[{ +Cell[330518, 10121, 532, 18, 109, "Input",ExpressionUUID->"601c24ee-3f7b-c74d-891b-10a6d009e34b"], +Cell[331053, 10141, 101, 0, 109, "Output",ExpressionUUID->"f1ecc2fd-4cd6-5249-8977-1cc4a714ca85"] +}, Open ]], +Cell[CellGroupData[{ +Cell[331191, 10146, 144, 4, 109, "Input",ExpressionUUID->"05949206-8ee0-5646-bb01-e9142212274d"], +Cell[331338, 10152, 101, 0, 109, "Output",ExpressionUUID->"0b6f2dc1-dd2d-e341-8cc9-32a5777d3dad"] +}, Open ]], +Cell[CellGroupData[{ +Cell[331476, 10157, 155, 4, 109, "Input",ExpressionUUID->"25a02cc2-cb9a-bc4b-93f0-a7873f982a23"], +Cell[331634, 10163, 100, 0, 109, "Output",ExpressionUUID->"b4c0b4dc-7ff0-3246-8607-df7a1b97c52c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[331771, 10168, 6029, 184, 109, "Input",ExpressionUUID->"df51ca6a-83a1-6340-b13c-0185de64c37f"], +Cell[337803, 10354, 102, 0, 109, "Output",ExpressionUUID->"c326471e-e866-ed4e-b72f-a7b5b42c78d0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[337942, 10359, 342, 8, 109, "Input",ExpressionUUID->"731f0e35-7798-8b45-a769-075ac4b3983f"], +Cell[338287, 10369, 342, 6, 109, "Message",ExpressionUUID->"4870a5d4-b6fc-9044-ae55-fcbd2b9d41eb"], +Cell[338632, 10377, 100, 0, 109, "Output",ExpressionUUID->"4263cd25-e2b6-5c4b-8834-28c6ca12b863"] +}, Open ]], +Cell[CellGroupData[{ +Cell[338769, 10382, 6096, 186, 109, "Input",ExpressionUUID->"413c8e7d-149c-5d4a-9ccb-23aebae2e6d5"], +Cell[344868, 10570, 102, 0, 109, "Output",ExpressionUUID->"ad614c41-0fc1-a542-b7a8-b8207b3c6926"] +}, Open ]], +Cell[CellGroupData[{ +Cell[345007, 10575, 342, 8, 109, "Input",ExpressionUUID->"e11d7eb8-00a8-f540-98a0-89164ac4bae9"], +Cell[345352, 10585, 342, 6, 109, "Message",ExpressionUUID->"d6f4e6b1-3d45-7649-b7dd-944c4a1de3e4"], +Cell[345697, 10593, 99, 0, 109, "Output",ExpressionUUID->"27fdf87b-577e-d74b-99f1-6a0486be19bc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[345833, 10598, 2637, 87, 109, "Input",ExpressionUUID->"08e21b26-8d64-ea4e-8647-1ee89e798d8f"], +Cell[348473, 10687, 101, 0, 109, "Output",ExpressionUUID->"c5362b47-cc2f-ba44-9fef-3c67d726a6cb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[348611, 10692, 2577, 84, 109, "Input",ExpressionUUID->"ae5c0a90-3245-6943-a137-f30d036fcdd2"], +Cell[351191, 10778, 102, 0, 109, "Output",ExpressionUUID->"677f20c9-f9ab-dc41-bd69-627a1665b370"] +}, Open ]], +Cell[CellGroupData[{ +Cell[351330, 10783, 3686, 117, 109, "Input",ExpressionUUID->"46af1283-32d6-7240-acd2-307af56b44db"], +Cell[355019, 10902, 102, 0, 109, "Output",ExpressionUUID->"eb28891c-1746-424b-aa98-1266448f9a3e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[355158, 10907, 2054, 59, 109, "Input",ExpressionUUID->"cd516020-ac7f-224d-b1ff-af0307420662"], +Cell[357215, 10968, 342, 6, 109, "Message",ExpressionUUID->"b82c1933-5313-1d4c-a858-68be8f118333"], +Cell[357560, 10976, 342, 6, 109, "Message",ExpressionUUID->"3b3475f7-7db7-054a-b7f5-20d8f7d491bf"], +Cell[357905, 10984, 100, 0, 109, "Output",ExpressionUUID->"dfa1aa9c-9811-0d49-a9f3-e5e1bcdf702f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[358042, 10989, 2054, 59, 109, "Input",ExpressionUUID->"a9d0e817-a1c8-6546-a901-34313c6ec04d"], +Cell[360099, 11050, 342, 6, 109, "Message",ExpressionUUID->"9e0b92f8-7fe2-e84e-89cd-c02c9da3e5b7"], +Cell[360444, 11058, 342, 6, 109, "Message",ExpressionUUID->"56712e4d-1aa7-524a-8254-bcfd8978eea0"], +Cell[360789, 11066, 100, 0, 109, "Output",ExpressionUUID->"b342636b-f081-cc49-b1ae-5647aa39d6ab"] +}, Open ]], +Cell[CellGroupData[{ +Cell[360926, 11071, 2030, 55, 109, "Input",ExpressionUUID->"f68960b0-cff6-3245-b906-ad38cf07d634"], +Cell[362959, 11128, 342, 6, 109, "Message",ExpressionUUID->"9c6ce535-b42f-3c43-a89e-eda48c04121e"], +Cell[363304, 11136, 342, 6, 109, "Message",ExpressionUUID->"e2ce6bda-7d9b-6149-bf5b-dd4c91908e28"], +Cell[363649, 11144, 342, 6, 109, "Message",ExpressionUUID->"2bed6df2-09cb-4d4d-b247-4fe79fd38fd6"], +Cell[363994, 11152, 407, 7, 109, "Message",ExpressionUUID->"64a64e18-e609-d54b-8225-64fa7909a948"], +Cell[364404, 11161, 9432, 438, 109, "Graphics",ExpressionUUID->"7758daab-adf8-2a49-9166-50457409d355"], +Cell[373839, 11601, 191, 5, 109, "Output",ExpressionUUID->"4f7705b8-e954-b341-ab6d-8b4ad9ffca61"] +}, Open ]], +Cell[CellGroupData[{ +Cell[374067, 11611, 2143, 61, 109, "Input",ExpressionUUID->"d43bf17b-b492-0e4a-af4a-6a3bc399953c"], +Cell[376213, 11674, 342, 6, 109, "Message",ExpressionUUID->"2059be4f-bbb2-da49-9e23-3fc4d150d7a8"], +Cell[376558, 11682, 342, 6, 109, "Message",ExpressionUUID->"71d4e039-c2b8-d74d-819a-80d2051e4273"], +Cell[376903, 11690, 342, 6, 109, "Message",ExpressionUUID->"63625e13-15ef-1f45-89dc-998a1b63a626"], +Cell[377248, 11698, 407, 7, 109, "Message",ExpressionUUID->"ff96fc2b-5ddb-2142-a985-58ccc6f07e00"], +Cell[377658, 11707, 8546, 368, 109, "Graphics",ExpressionUUID->"a63f48d3-505f-0a45-b944-e872edd94d6c"], +Cell[386207, 12077, 191, 5, 109, "Output",ExpressionUUID->"be4328c1-f4b7-a444-b59f-1872f77ea023"] +}, Open ]], +Cell[386413, 12085, 138, 3, 109, "Input",ExpressionUUID->"4ad58a38-0776-5240-aa41-ba7c8ff64fb9"], +Cell[CellGroupData[{ +Cell[386576, 12092, 1590, 47, 109, "Input",ExpressionUUID->"3edaf53b-bb09-6646-b79e-9350413e0b42"], +Cell[388169, 12141, 342, 6, 109, "Message",ExpressionUUID->"2b38d1a8-4a7e-7b4f-8cdd-5298fced63d9"], +Cell[388514, 12149, 101, 0, 109, "Output",ExpressionUUID->"6941b2ce-51d7-0b43-b524-1e41573ef5f9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[388652, 12154, 2249, 64, 109, "Input",ExpressionUUID->"d2148290-3e90-8347-bddd-5dd8190b0268"], +Cell[390904, 12220, 342, 6, 109, "Message",ExpressionUUID->"905b237c-0e51-ab4b-895d-05994c6f1d5f"], +Cell[391249, 12228, 342, 6, 109, "Message",ExpressionUUID->"7ad8c79e-9570-a44d-b593-07aa87056e21"], +Cell[391594, 12236, 100, 0, 109, "Output",ExpressionUUID->"7a6165f1-f4e7-1f40-9890-5c13218f6833"] +}, Open ]], +Cell[CellGroupData[{ +Cell[391731, 12241, 2219, 64, 109, "Input",ExpressionUUID->"3cdd2064-36e7-b44d-bb0f-98d71f8a8458"], +Cell[393953, 12307, 342, 6, 109, "Message",ExpressionUUID->"c516c31a-74b4-f24d-a16a-678221cde87e"], +Cell[394298, 12315, 342, 6, 109, "Message",ExpressionUUID->"5c50b555-9ebe-f94d-801f-34634555f622"], +Cell[394643, 12323, 99, 0, 109, "Output",ExpressionUUID->"c7a13a95-1179-054f-9108-fe96e6564880"] +}, Open ]], +Cell[CellGroupData[{ +Cell[394779, 12328, 2221, 64, 109, "Input",ExpressionUUID->"c1d3ae3d-f5ac-b04d-af0f-57c1fe1d0585"], +Cell[397003, 12394, 342, 6, 109, "Message",ExpressionUUID->"7ca591cf-a5ce-ce41-8101-8edfca50e890"], +Cell[397348, 12402, 342, 6, 109, "Message",ExpressionUUID->"cbafd11a-4be0-b541-81e4-e62191ae7695"], +Cell[397693, 12410, 101, 0, 109, "Output",ExpressionUUID->"7d22c643-14ba-7245-8972-7de9bf840536"] +}, Open ]], +Cell[CellGroupData[{ +Cell[397831, 12415, 215, 6, 109, "Input",ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-1ca469b254bd"], +Cell[398049, 12423, 102, 0, 109, "Output",ExpressionUUID->"d15888a7-bf5a-b54e-a332-976645c927ce"] }, Open ]] } ] *) -(* End of internal cache information *) - diff --git a/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/h_166-74_Pu240_20-21_osc_Qw1.nb b/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/h_166-74_Pu240_20-21_osc_Qw1.nb index 0b16837..ac35cad 100644 --- a/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/h_166-74_Pu240_20-21_osc_Qw1.nb +++ b/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/h_166-74_Pu240_20-21_osc_Qw1.nb @@ -3,17 +3,17 @@ (*** 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[ 581439, 14318] -NotebookOptionsPosition[ 540981, 13683] -NotebookOutlinePosition[ 541435, 13701] -CellTagsIndexPosition[ 541392, 13698] +NotebookDataLength[ 576833, 14439] +NotebookOptionsPosition[ 534639, 13768] +NotebookOutlinePosition[ 535080, 13786] +CellTagsIndexPosition[ 535037, 13783] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -21,41 +21,54 @@ Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"d", "=", "3"}]], "Input", + RowBox[{"d", "=", "1.85"}]], "Input", CellChangeTimes->{ 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, - 3.9920650045886707`*^9},ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-\ -8326f7c1a9b1"], + 3.9920650045886707`*^9, {3.9940821364341908`*^9, 3.994082136546945*^9}, { + 3.99408222505837*^9, 3.9940822566678658`*^9}}, + CellLabel-> + "In[371]:=",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], -Cell[BoxData["3"], "Output", - CellChangeTimes->{3.991320420900818*^9}, - CellLabel->"Out[46]=",ExpressionUUID->"2e7f3b17-b448-644d-bafd-ec5aa11fe78b"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"A", "=", "236"}]], "Input", - CellChangeTimes->{{3.9915672960517406`*^9, - 3.991567297688427*^9}},ExpressionUUID->"40a7803b-9334-ef42-a720-\ -539edfcf67a8"], - -Cell[BoxData["252"], "Output", - CellChangeTimes->{3.9913196497381973`*^9}, - CellLabel->"Out[2]=",ExpressionUUID->"d21d7bec-caad-aa4f-9200-81feafc4acec"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"A1", "="}]], "Input", +Cell[BoxData["1.85`"], "Output", CellChangeTimes->{ - 3.991798961431202*^9},ExpressionUUID->"410ced47-4e2a-4e45-9091-\ -53970f892dbb"], + 3.991320420900818*^9, 3.9940821397588*^9, {3.9940822104439507`*^9, + 3.994082259420228*^9}}, + CellLabel-> + "Out[371]=",ExpressionUUID->"92f49e10-533c-4895-8227-9d625a4d69aa"] +}, Open ]], -Cell[BoxData["130"], "Output", - CellChangeTimes->{3.9913196497578354`*^9}, - CellLabel->"Out[3]=",ExpressionUUID->"a2a1281d-2cdd-5d4c-b7c6-d26236e66b80"] +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.99407306326154*^9, 3.994073063917366*^9}}, + CellLabel-> + "In[372]:=",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.994082139815686*^9, {3.994082210466728*^9, + 3.994082259455925*^9}}, + CellLabel-> + "Out[372]=",ExpressionUUID->"0cc75d92-f172-49f1-af02-d0fe714b7c1a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "166"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.9940730665357656`*^9, 3.994073067306501*^9}}, + CellLabel-> + "In[373]:=",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], + +Cell[BoxData["166"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.994082139825574*^9, {3.9940822104766827`*^9, + 3.994082259466858*^9}}, + CellLabel-> + "Out[373]=",ExpressionUUID->"0a529fc7-b82a-4b77-826b-ce12e09db9d8"] }, Open ]], Cell[CellGroupData[{ @@ -63,11 +76,15 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a1", "=", "0.55"}]], "Input", CellChangeTimes->{3.9434144380252676`*^9}, - CellLabel->"In[4]:=",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], + CellLabel-> + "In[374]:=",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], Cell[BoxData["0.55`"], "Output", - CellChangeTimes->{3.991319649777508*^9}, - CellLabel->"Out[4]=",ExpressionUUID->"4fa6d65b-1d5c-4f45-949a-d7045f28de30"] + CellChangeTimes->{ + 3.991319649777508*^9, 3.994082139835326*^9, {3.994082210487997*^9, + 3.994082259477521*^9}}, + CellLabel-> + "Out[374]=",ExpressionUUID->"a240a871-a81b-4828-b217-62f42d3e6cad"] }, Open ]], Cell[CellGroupData[{ @@ -79,22 +96,30 @@ Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", - CellLabel->"In[5]:=",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], + CellLabel-> + "In[375]:=",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], -Cell[BoxData["0.5495238095238095`"], "Output", - CellChangeTimes->{3.9913196497965145`*^9}, - CellLabel->"Out[5]=",ExpressionUUID->"24d0db1b-9e75-3c46-9c8c-13704f881794"] +Cell[BoxData["0.54425`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.994082139845067*^9, {3.994082210498448*^9, + 3.994082259487831*^9}}, + CellLabel-> + "Out[375]=",ExpressionUUID->"ea8958cd-1f07-4fa3-a535-21044c2aeef1"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"p0", "=", "0.17"}]], "Input", - CellLabel->"In[6]:=",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], + CellLabel-> + "In[376]:=",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], Cell[BoxData["0.17`"], "Output", - CellChangeTimes->{3.9913196498144608`*^9}, - CellLabel->"Out[6]=",ExpressionUUID->"d898610f-2407-1a40-9f24-5be2dcfa557e"] + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.994082139854616*^9, {3.99408221050937*^9, + 3.994082259497772*^9}}, + CellLabel-> + "Out[376]=",ExpressionUUID->"63e2d5e5-72a0-4e84-a043-72de8f80f600"] }, Open ]], Cell[CellGroupData[{ @@ -105,11 +130,15 @@ Cell[BoxData[ SuperscriptBox["A1", RowBox[{"1", "/", "3"}]]}]}]], "Input", CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, - CellLabel->"In[7]:=",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], + CellLabel-> + "In[377]:=",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], -Cell[BoxData["5.876324542157027`"], "Output", - CellChangeTimes->{3.9913196498225155`*^9}, - CellLabel->"Out[7]=",ExpressionUUID->"27ff60eb-7aa7-9949-984d-d71d79c10129"] +Cell[BoxData["6.3752030057102145`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.994082139865213*^9, {3.994082210519739*^9, + 3.994082259507691*^9}}, + CellLabel-> + "Out[377]=",ExpressionUUID->"c7baef21-5c80-41c7-b8a2-73b0b22c9000"] }, Open ]], Cell[CellGroupData[{ @@ -121,45 +150,75 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"1", "/", "3"}]]}]}]], "Input", - CellLabel->"In[8]:=",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], + CellLabel-> + "In[378]:=",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], -Cell[BoxData["5.753223770057068`"], "Output", - CellChangeTimes->{3.9913196498425236`*^9}, - CellLabel->"Out[8]=",ExpressionUUID->"2b4ba32a-ab7d-7140-a043-bb4487278822"] +Cell[BoxData["4.870070286417752`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.99408213987599*^9, {3.9940822105302753`*^9, + 3.994082259517621*^9}}, + CellLabel-> + "Out[378]=",ExpressionUUID->"bada540b-f688-4880-b784-78f4bfe25248"] }, Open ]], -Cell[BoxData[ - RowBox[{"b1", "="}]], "Input", - CellChangeTimes->{ - 3.991799283179735*^9},ExpressionUUID->"3b44378c-91de-5d4a-a244-\ -b3f5cb1cffbb"], +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"b2", "="}]], "Input", + RowBox[{"b1", "=", "0.9035518425"}]], "Input", + CellChangeTimes->{3.991799283179735*^9, 3.994073090925538*^9}, + CellLabel-> + "In[379]:=",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], + +Cell[BoxData["0.9035518425`"], "Output", CellChangeTimes->{ - 3.991799280663351*^9},ExpressionUUID->"c984ea2d-3d65-1d43-b11d-\ -50fde111107a"], + 3.994082139886828*^9, {3.9940822105402517`*^9, 3.9940822595277653`*^9}}, + CellLabel-> + "Out[379]=",ExpressionUUID->"826c2028-43b6-493e-a1d4-a979bf302a2b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.3863821951"}]], "Input", + CellChangeTimes->{3.991799280663351*^9, 3.9940730962719193`*^9}, + CellLabel-> + "In[380]:=",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], + +Cell[BoxData["0.3863821951`"], "Output", + CellChangeTimes->{ + 3.994082139897403*^9, {3.994082210550373*^9, 3.994082259537862*^9}}, + CellLabel-> + "Out[380]=",ExpressionUUID->"3dabc3f7-ec02-453a-ae26-458be204b325"] +}, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x1", "=", "0"}]], "Input", - CellLabel->"In[11]:=",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], + CellLabel-> + "In[381]:=",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], Cell[BoxData["0"], "Output", - CellChangeTimes->{3.9913196498927155`*^9}, - CellLabel->"Out[11]=",ExpressionUUID->"3d15ce67-15c8-f549-9c13-b8dddf0b6641"] + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.994082139910328*^9, {3.994082210560801*^9, + 3.9940822595420103`*^9}}, + CellLabel-> + "Out[381]=",ExpressionUUID->"02204c7c-37a4-44a6-89aa-0b946579fc77"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x2", "=", "0"}]], "Input", - CellLabel->"In[12]:=",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], + CellLabel-> + "In[382]:=",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], Cell[BoxData["0"], "Output", - CellChangeTimes->{3.9913196498996067`*^9}, - CellLabel->"Out[12]=",ExpressionUUID->"8f7b3ab0-4d46-6e46-be1a-60df9a3dcebd"] + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.9940821399224367`*^9, {3.994082210571288*^9, + 3.994082259554398*^9}}, + CellLabel-> + "Out[382]=",ExpressionUUID->"d976ecb2-9be0-4097-8078-cc338cac051e"] }, Open ]], Cell[CellGroupData[{ @@ -183,11 +242,15 @@ Cell[BoxData[ SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", - CellLabel->"In[13]:=",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], + CellLabel-> + "In[383]:=",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], -Cell[BoxData["1.4975864418719793`"], "Output", - CellChangeTimes->{3.9913197863028755`*^9}, - CellLabel->"Out[13]=",ExpressionUUID->"d0cab83a-649b-b14c-b85b-84835124aa09"] +Cell[BoxData["2.315137197466896`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.994082139933848*^9, {3.994082210581699*^9, + 3.9940822595648727`*^9}}, + CellLabel-> + "Out[383]=",ExpressionUUID->"bc5faa54-82a7-408a-93ab-470e75a32ee6"] }, Open ]], Cell[CellGroupData[{ @@ -211,11 +274,15 @@ Cell[BoxData[ SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", - CellLabel->"In[14]:=",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], + CellLabel-> + "In[384]:=",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], -Cell[BoxData["2.555495302485258`"], "Output", - CellChangeTimes->{3.9913197864610195`*^9}, - CellLabel->"Out[14]=",ExpressionUUID->"81304ae5-6353-154d-8b14-59a2dc55038b"] +Cell[BoxData["1.4220278650887666`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.994082139944078*^9, {3.9940822105866547`*^9, + 3.9940822595749483`*^9}}, + CellLabel-> + "Out[384]=",ExpressionUUID->"d0222803-9416-4d88-a6f0-060cd875acf4"] }, Open ]], Cell[CellGroupData[{ @@ -223,25 +290,86 @@ 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[385]:=",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], + +Cell[BoxData["0.4069661562665162`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.994082139954578*^9, {3.994082210602051*^9, + 3.994082259585372*^9}}, + CellLabel-> + "Out[385]=",ExpressionUUID->"33be40cd-a16d-40d6-9573-ddfebe151544"] +}, 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[{"(", @@ -267,75 +395,42 @@ Cell[BoxData[ SuperscriptBox["w1", "2"]}], "+", RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", - SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", - CellLabel->"In[16]:=",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], - -Cell[BoxData["0.6849608803764016`"], "Output", - CellChangeTimes->{3.991319786533783*^9}, - CellLabel->"Out[16]=",ExpressionUUID->"bdbb5f17-757a-b84a-b3ac-6309844818bf"] -}, Open ]], - -Cell[CellGroupData[{ + SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", + CellLabel-> + "In[386]:=",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[17]:=",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], - -Cell[BoxData[ - RowBox[{"-", "0.43849259375441973`"}]], "Output", - CellChangeTimes->{3.991319786540777*^9}, - CellLabel->"Out[17]=",ExpressionUUID->"1dd72b7b-aeff-8747-91d0-6842e926f3b2"] + RowBox[{"-", "0.08563504168524437`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.9940821399653873`*^9, {3.994082210613337*^9, + 3.994082259596693*^9}}, + CellLabel-> + "Out[386]=",ExpressionUUID->"b9c7f0dd-0cb1-455c-befa-a752ed88a1d1"] }, 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", "-", @@ -345,42 +440,32 @@ 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[18]:=",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[387]:=",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], Cell[BoxData[ - RowBox[{"-", "0.08210730792808285`"}]], "Output", - CellChangeTimes->{3.9913197865777817`*^9}, - CellLabel->"Out[18]=",ExpressionUUID->"d5bf6730-c400-e84f-827b-d40e35c83dad"] + RowBox[{"-", "0.5841673375234483`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.9940821399780188`*^9, {3.9940822106256943`*^9, + 3.9940822596071453`*^9}}, + CellLabel-> + "Out[387]=",ExpressionUUID->"01a1ddfc-b675-4943-bc9a-dd26167acb43"] }, Open ]], Cell[CellGroupData[{ @@ -388,89 +473,107 @@ 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[19]:=",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[388]:=",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], -Cell[BoxData["0.30371622798853437`"], "Output", - CellChangeTimes->{3.9913197866129*^9}, - CellLabel->"Out[19]=",ExpressionUUID->"006d42df-1417-1c4e-b4d9-45c05dee6889"] +Cell[BoxData["0.7215005296935654`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.994082139989607*^9, {3.994082210635736*^9, + 3.99408225961747*^9}}, + CellLabel-> + "Out[388]=",ExpressionUUID->"08157cc6-e8c8-4bd7-a5a7-5459e366ef52"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", - CellLabel->"In[20]:=",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], + CellLabel-> + "In[389]:=",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], Cell[BoxData["300"], "Output", - CellChangeTimes->{3.991319786620775*^9}, - CellLabel->"Out[20]=",ExpressionUUID->"64d193ee-3f72-404e-9ca7-d3c855ce1a3f"] + CellChangeTimes->{ + 3.991319786620775*^9, 3.9940821399995413`*^9, {3.9940822106444807`*^9, + 3.994082259627829*^9}}, + CellLabel-> + "Out[389]=",ExpressionUUID->"90be8d69-26d3-4048-ba16-ad9d011b4703"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fin", "=", "0.09"}]], "Input", - CellLabel->"In[21]:=",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], + CellLabel-> + "In[390]:=",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], Cell[BoxData["0.09`"], "Output", - CellChangeTimes->{3.991319786657793*^9}, - CellLabel->"Out[21]=",ExpressionUUID->"8d37ba34-6f64-7d40-86af-bfe10ed7ecf9"] + CellChangeTimes->{ + 3.991319786657793*^9, 3.994082140010191*^9, {3.994082210653286*^9, + 3.994082259638521*^9}}, + CellLabel-> + "Out[390]=",ExpressionUUID->"963d81a0-9ff1-47d5-a2d9-47315708edfa"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffin", "=", "0.42"}]], "Input", - CellLabel->"In[22]:=",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], + CellLabel-> + "In[391]:=",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], Cell[BoxData["0.42`"], "Output", - CellChangeTimes->{3.9913197866657925`*^9}, - CellLabel->"Out[22]=",ExpressionUUID->"cf6fd933-5c85-3c47-a2fa-a53bc24bd1de"] + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.9940821400205593`*^9, {3.9940822106620293`*^9, + 3.9940822596489058`*^9}}, + CellLabel-> + "Out[391]=",ExpressionUUID->"1aebb37c-e437-46ca-87cc-80f0d9a94ed6"] }, Open ]], Cell[CellGroupData[{ @@ -479,51 +582,67 @@ Cell[BoxData[ RowBox[{"fex", "=", RowBox[{"-", "2.59"}]}]], "Input", CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, - CellLabel->"In[23]:=",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], + CellLabel-> + "In[392]:=",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], Cell[BoxData[ RowBox[{"-", "2.59`"}]], "Output", - CellChangeTimes->{3.9913197866996*^9}, - CellLabel->"Out[23]=",ExpressionUUID->"68c660da-f0f0-ad47-93fc-5a731457088a"] + CellChangeTimes->{ + 3.9913197866996*^9, 3.994082140031045*^9, {3.994082210671171*^9, + 3.994082259659958*^9}}, + CellLabel-> + "Out[392]=",ExpressionUUID->"249b8c73-d930-48ad-b9e9-59d5b706ebd0"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffex", "=", "0.54"}]], "Input", - CellLabel->"In[24]:=",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], + CellLabel-> + "In[393]:=",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], Cell[BoxData["0.54`"], "Output", - CellChangeTimes->{3.9913197867406044`*^9}, - CellLabel->"Out[24]=",ExpressionUUID->"8f2a2cb7-00c0-6642-b771-a61c78864261"] + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.994082140043984*^9, {3.9940822106801777`*^9, + 3.994082259671282*^9}}, + CellLabel-> + "Out[393]=",ExpressionUUID->"e7ffabb3-f7fd-4500-84cd-ccbf975faf83"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"Z1", "="}]], "Input", + RowBox[{"Z1", "=", "66"}]], "Input", CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { - 3.943437514738135*^9, 3.9434375159795218`*^9}, - 3.991799293571144*^9},ExpressionUUID->"50acb4f0-66e7-924a-841b-\ -56c0ae53ef15"], + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, { + 3.9940731043812733`*^9, 3.994073104508005*^9}}, + CellLabel-> + "In[394]:=",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], -Cell[BoxData["50"], "Output", - CellChangeTimes->{3.9913197867861958`*^9}, - CellLabel->"Out[25]=",ExpressionUUID->"55d6fafd-5f57-cf44-945d-c5c7fb1b087a"] +Cell[BoxData["66"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, 3.994082140061471*^9, {3.99408221068924*^9, + 3.9940822596826973`*^9}}, + CellLabel-> + "Out[394]=",ExpressionUUID->"2419f2a8-1e65-4a18-b034-189377b2a77c"] }, 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},ExpressionUUID->"4451fdbc-8b04-2c43-a6db-\ -990caacde85d"], + 3.9916443064841423`*^9, {3.9940731093077307`*^9, 3.99407311085991*^9}}, + CellLabel-> + "In[395]:=",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], -Cell[BoxData["48"], "Output", - CellChangeTimes->{3.9913197867928696`*^9}, - CellLabel->"Out[26]=",ExpressionUUID->"e4541cb8-be74-4140-af0a-812e02085534"] +Cell[BoxData["28"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.994082140071866*^9, {3.9940822106985188`*^9, + 3.9940822596930656`*^9}}, + CellLabel-> + "Out[395]=",ExpressionUUID->"036ec96a-ba0b-412d-b998-cfeb918f6e9f"] }, Open ]], Cell[CellGroupData[{ @@ -532,11 +651,15 @@ Cell[BoxData[ RowBox[{"A2", "=", RowBox[{"A", "-", "A1"}]}]], "Input", CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, - CellLabel->"In[27]:=",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], + CellLabel-> + "In[396]:=",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], -Cell[BoxData["122"], "Output", - CellChangeTimes->{3.991319786827894*^9}, - CellLabel->"Out[27]=",ExpressionUUID->"41e65355-0d62-5849-876b-33938574e65a"] +Cell[BoxData["74"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.994082140082143*^9, {3.994082210707357*^9, + 3.994082259703759*^9}}, + CellLabel-> + "Out[396]=",ExpressionUUID->"0100bcee-d8c3-450b-be1c-5960f0c586b3"] }, Open ]], Cell[CellGroupData[{ @@ -551,11 +674,15 @@ Cell[BoxData[ FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", - CellLabel->"In[28]:=",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], + CellLabel-> + "In[397]:=",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], -Cell[BoxData["0.11065573770491803`"], "Output", - CellChangeTimes->{3.9913197868648605`*^9}, - CellLabel->"Out[28]=",ExpressionUUID->"b6d3bf5f-35d3-5240-acc0-10ada08af661"] +Cell[BoxData["0.11092478020188863`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9940821400927267`*^9, {3.994082210716133*^9, + 3.994082259714077*^9}}, + CellLabel-> + "Out[397]=",ExpressionUUID->"e15babaf-72ba-47fd-825d-89d856f0cf03"] }, Open ]], Cell[CellGroupData[{ @@ -570,12 +697,16 @@ Cell[BoxData[ FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", - CellLabel->"In[29]:=",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], + CellLabel-> + "In[398]:=",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], Cell[BoxData[ - RowBox[{"-", "2.5634426229508196`"}]], "Output", - CellChangeTimes->{3.9913197868718567`*^9}, - CellLabel->"Out[29]=",ExpressionUUID->"5d506fa3-f740-ff4f-9786-10c7e1e82f78"] + RowBox[{"-", "2.5630967111690004`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.9940821401033173`*^9, {3.994082210725114*^9, + 3.994082259724759*^9}}, + CellLabel-> + "Out[398]=",ExpressionUUID->"20ac17cf-fcfa-4716-af9c-bde1604aeae1"] }, Open ]], Cell[CellGroupData[{ @@ -605,13 +736,16 @@ Cell[BoxData[ "+", "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}},ExpressionUUID->"957e37d7-d728-e448-9a63-\ -f9d65131b81c"], + 3.943418448948422*^9}, {3.9919752185010967`*^9, 3.9919752200326233`*^9}}, + CellLabel-> + "In[399]:=",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], -Cell[BoxData["19.346196963603006`"], "Output", - CellChangeTimes->{3.9913197869068584`*^9}, - CellLabel->"Out[30]=",ExpressionUUID->"02f8af82-a9df-4342-9d73-750f12d42e7b"] +Cell[BoxData["17.4437013546787`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.994082140114669*^9, {3.994082210734028*^9, + 3.994082259736136*^9}}, + CellLabel-> + "Out[399]=",ExpressionUUID->"cecb9c0e-b59c-4750-b2b1-30a8328178d2"] }, Open ]], Cell[CellGroupData[{ @@ -619,107 +753,191 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, - CellLabel->"In[31]:=",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], + CellLabel-> + "In[400]:=",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], Cell[BoxData["300"], "Output", - CellChangeTimes->{3.991319786940857*^9}, - CellLabel->"Out[31]=",ExpressionUUID->"1ee0020e-da30-7b46-8f5c-7602d78cb1cb"] + CellChangeTimes->{ + 3.991319786940857*^9, 3.994082140125458*^9, {3.9940822107429523`*^9, + 3.9940822597468443`*^9}}, + CellLabel-> + "Out[400]=",ExpressionUUID->"42c2c1a0-cee4-457b-9154-cde84748c01c"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ - RowBox[{"v1", "="}]], "Input", + RowBox[{"v1", "=", "2.185"}]], "Input", CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, - 3.943437451104373*^9, 3.9917179877659073`*^9, - 3.9917993555955296`*^9},ExpressionUUID->"477d69f3-81a2-6d40-bff8-\ -58a9467eced9"], + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { + 3.994073141486967*^9, 3.9940731424234343`*^9}}, + CellLabel-> + "In[401]:=",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], + +Cell[BoxData["2.185`"], "Output", + CellChangeTimes->{ + 3.9940821401363583`*^9, {3.994082210751677*^9, 3.9940822597573833`*^9}}, + CellLabel-> + "Out[401]=",ExpressionUUID->"0a105781-8ae2-465b-8ffd-a1ec840b3e52"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.9918486394740562`*^9, - 3.991848639478634*^9}},ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-\ -bb644ea0ddfa"], + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel-> + "In[402]:=",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"n1", "="}]], "Input", + RowBox[{"n1", "=", "0.755"}]], "Input", CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, - 3.9434374542625003`*^9, 3.9917179964399834`*^9, - 3.9917993574235134`*^9},ExpressionUUID->"a9223860-e2cf-2047-9a01-\ -b6480cd2846d"], + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.9940731457645493`*^9, 3.994073146848226*^9}}, + CellLabel-> + "In[403]:=",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], + +Cell[BoxData["0.755`"], "Output", + CellChangeTimes->{ + 3.994082140150962*^9, {3.9940822107679367`*^9, 3.9940822597717943`*^9}}, + CellLabel-> + "Out[403]=",ExpressionUUID->"fecf66b4-2daa-4656-b192-56694d052145"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.991848641020609*^9, - 3.9918486410246162`*^9}},ExpressionUUID->"d35f11fe-a53c-8943-ac4f-\ -07cc8884f5b8"], + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel-> + "In[404]:=",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"vv1", "="}]], "Input", + RowBox[{"vv1", "=", "2.5"}]], "Input", CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { - 3.943437458959346*^9, 3.943437459115596*^9}, - 3.9917993587947025`*^9},ExpressionUUID->"afeba878-eb4d-ef43-8941-\ -b46079e5a618"], + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.994073149619232*^9, 3.994073149893601*^9}}, + CellLabel-> + "In[405]:=",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], + +Cell[BoxData["2.5`"], "Output", + CellChangeTimes->{ + 3.994082140164228*^9, {3.994082210783918*^9, 3.994082259785039*^9}}, + CellLabel-> + "Out[405]=",ExpressionUUID->"683a7d34-4923-48d8-a9b9-5cd8d430c0a7"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.9918486421415234`*^9, - 3.991848642146063*^9}},ExpressionUUID->"12665172-e21c-4e44-b1fc-\ -e81404b2a0db"], + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel-> + "In[406]:=",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"nn1", "="}]], "Input", + RowBox[{"nn1", "=", "1.165"}]], "Input", CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, - 3.991799359954439*^9},ExpressionUUID->"81b490c7-39d4-f348-8914-\ -f54b23f74296"], + 3.991799359954439*^9, {3.994073152359264*^9, 3.994073154823225*^9}}, + CellLabel-> + "In[407]:=",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], + +Cell[BoxData["1.165`"], "Output", + CellChangeTimes->{ + 3.994082140177301*^9, {3.994082210799852*^9, 3.9940822597980413`*^9}}, + CellLabel-> + "Out[407]=",ExpressionUUID->"88e2d78a-8c64-465a-8abd-b3298cf685b3"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.991848643356409*^9, - 3.991848643361412*^9}},ExpressionUUID->"78f54ff3-2505-5940-9b78-\ -ccc2627a783c"], + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel-> + "In[408]:=",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"v2", "="}]], "Input", + RowBox[{"v2", "=", "1.055"}]], "Input", CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, - 3.991718016467348*^9, - 3.991799361414671*^9},ExpressionUUID->"17c8b6b3-c729-7c42-8964-\ -e70aa92597e4"], + 3.991718016467348*^9, 3.991799361414671*^9, {3.994073158537945*^9, + 3.994073159984886*^9}}, + CellLabel-> + "In[409]:=",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], + +Cell[BoxData["1.055`"], "Output", + CellChangeTimes->{ + 3.9940821401902237`*^9, {3.9940822108158007`*^9, 3.994082259811191*^9}}, + CellLabel-> + "Out[409]=",ExpressionUUID->"6ce9657a-1686-402b-b34b-751ae69af9aa"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.991848644751276*^9, - 3.991848644757372*^9}},ExpressionUUID->"3908ad8b-9aa1-4d42-954c-\ -a3b9eef1576d"], + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel-> + "In[410]:=",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"n2", "="}]], "Input", + RowBox[{"n2", "=", "0.575"}]], "Input", CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, - 3.9917180279399567`*^9, - 3.9917993631287174`*^9},ExpressionUUID->"92080e53-e7ee-a444-8071-\ -b94745a1c38a"], + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.9940731689650297`*^9, + 3.994073170525517*^9}}, + CellLabel-> + "In[411]:=",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], + +Cell[BoxData["0.575`"], "Output", + CellChangeTimes->{ + 3.99408214020331*^9, {3.9940822108320093`*^9, 3.994082259824339*^9}}, + CellLabel-> + "Out[411]=",ExpressionUUID->"c2d97d15-e2a1-4ca5-b150-9bf4eb7ff27b"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.9918486484561863`*^9, - 3.991848648461731*^9}},ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-\ -7d827c4ef6de"], + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel-> + "In[412]:=",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"vv2", "="}]], "Input", + RowBox[{"vv2", "=", "1.51"}]], "Input", CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, - 3.9917180507508755`*^9, - 3.9917993645898876`*^9},ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-\ -264265a5c2d2"], + 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.99407317466329*^9, + 3.9940731756907377`*^9}}, + CellLabel-> + "In[413]:=",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], + +Cell[BoxData["1.51`"], "Output", + CellChangeTimes->{ + 3.9940821402169437`*^9, {3.994082210847649*^9, 3.994082259837338*^9}}, + CellLabel-> + "Out[413]=",ExpressionUUID->"aa72a42c-ecda-434b-9c18-b8eafaf3f24a"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.99184864995627*^9, - 3.9918486499632607`*^9}},ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-\ -01ae055dd38b"], + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel-> + "In[414]:=",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"nn2", "="}]], "Input", + RowBox[{"nn2", "=", "0.635"}]], "Input", CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, - 3.9917993660901737`*^9},ExpressionUUID->"0efd73e6-d1c0-4449-a060-\ -0fd7b04115ca"], + 3.9917993660901737`*^9, {3.99407317843715*^9, 3.994073182537156*^9}}, + CellLabel-> + "In[415]:=",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], + +Cell[BoxData["0.635`"], "Output", + CellChangeTimes->{ + 3.994082140230339*^9, {3.994082210863504*^9, 3.994082259850523*^9}}, + CellLabel-> + "Out[415]=",ExpressionUUID->"918c9ed6-e358-42b9-8f43-f645fd52c2d1"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.9918486513316555`*^9, - 3.9918486513362026`*^9}},ExpressionUUID->"cc8697be-e0d9-6944-bb0c-\ -e22b0839e976"], + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel-> + "In[416]:=",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], Cell[CellGroupData[{ @@ -1208,11 +1426,15 @@ uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== "], - CellLabel->"In[40]:=",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], + CellLabel-> + "In[417]:=",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], -Cell[BoxData["2.0187310532697746`"], "Output", - CellChangeTimes->{3.991319787430073*^9}, - CellLabel->"Out[40]=",ExpressionUUID->"6e3e2b1b-3430-b546-9dfc-ccd29250c9d7"] +Cell[BoxData["0.14543451930671605`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.9940821403190203`*^9, {3.994082210903069*^9, + 3.994082259888891*^9}}, + CellLabel-> + "Out[417]=",ExpressionUUID->"e0e8cb47-2ea4-4195-9c6e-3ab5417accc0"] }, Open ]], Cell[CellGroupData[{ @@ -1706,11 +1928,15 @@ Cell[BoxData[ CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, - CellLabel->"In[41]:=",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], + CellLabel-> + "In[418]:=",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], -Cell[BoxData["0.14694138435338647`"], "Output", - CellChangeTimes->{3.991319787574972*^9}, - CellLabel->"Out[41]=",ExpressionUUID->"ca8af40c-4f04-8747-aa6f-9594ea3fb865"] +Cell[BoxData["7.609769640822119`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9940821403533278`*^9, {3.994082210934519*^9, + 3.994082259917639*^9}}, + CellLabel-> + "Out[418]=",ExpressionUUID->"b621c5bb-9177-45b8-b442-aaf2dd776d70"] }, Open ]], Cell[CellGroupData[{ @@ -2198,12 +2424,16 @@ Cell[BoxData[ CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, - CellLabel->"In[42]:=",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], + CellLabel-> + "In[419]:=",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], Cell[BoxData[ - RowBox[{"-", "32.27220689122579`"}]], "Output", - CellChangeTimes->{3.991319787641424*^9}, - CellLabel->"Out[42]=",ExpressionUUID->"43eaee96-3646-954d-899a-d1e3ee2edd5e"] + RowBox[{"-", "15.030827196449275`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.994082140383691*^9, {3.9940822109679832`*^9, + 3.994082259945158*^9}}, + CellLabel-> + "Out[419]=",ExpressionUUID->"82cfdd64-3f1e-4b73-b2ea-5778810ddd17"] }, Open ]], Cell[CellGroupData[{ @@ -2761,12 +2991,16 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel->"In[43]:=",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], + CellLabel-> + "In[420]:=",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], Cell[BoxData[ - RowBox[{"-", "81.2532555132978`"}]], "Output", - CellChangeTimes->{3.991319787711939*^9}, - CellLabel->"Out[43]=",ExpressionUUID->"a8d59888-f6f0-0746-9034-5e74c45610b1"] + RowBox[{"-", "19.761827924452415`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.9940821404195766`*^9, {3.9940822110021753`*^9, + 3.994082259978429*^9}}, + CellLabel-> + "Out[420]=",ExpressionUUID->"281e4c34-c425-4ac7-9186-671fafe39131"] }, Open ]], Cell[CellGroupData[{ @@ -3324,12 +3558,16 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel->"In[44]:=",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], + CellLabel-> + "In[421]:=",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], Cell[BoxData[ - RowBox[{"-", "38.89688349410641`"}]], "Output", - CellChangeTimes->{3.9913197877723045`*^9}, - CellLabel->"Out[44]=",ExpressionUUID->"dd5d5506-e4f6-7d4c-bcd9-ea70659f69e1"] + RowBox[{"-", "57.66257775030843`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.9940821404579077`*^9, {3.994082211038884*^9, + 3.994082260011196*^9}}, + CellLabel-> + "Out[421]=",ExpressionUUID->"25e6553a-fb83-425a-ac8d-977995a2d598"] }, Open ]], Cell[CellGroupData[{ @@ -3960,34 +4198,46 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel->"In[45]:=",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], + CellLabel-> + "In[422]:=",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], Cell[BoxData[ - RowBox[{"-", "199.04976850122156`"}]], "Output", - CellChangeTimes->{3.991319787833355*^9}, - CellLabel->"Out[45]=",ExpressionUUID->"b983c8d8-6a34-fb4a-8a0a-8960e79ae993"] + RowBox[{"-", "150.68948520646092`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.994082140505332*^9, {3.994082211079116*^9, + 3.9940822600491877`*^9}}, + CellLabel-> + "Out[422]=",ExpressionUUID->"705c7128-176a-4e60-8cde-3141363199e3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U21", "=", "0"}]], "Input", - CellLabel->"In[47]:=",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], + CellLabel-> + "In[423]:=",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], Cell[BoxData["0"], "Output", - CellChangeTimes->{3.9913204210013676`*^9}, - CellLabel->"Out[47]=",ExpressionUUID->"bb0c55af-9cf7-0443-8b24-f19c97d6c781"] + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.99408214052183*^9, {3.994082211090176*^9, + 3.994082260062854*^9}}, + CellLabel-> + "Out[423]=",ExpressionUUID->"163a2a2b-0ca8-4c5b-a553-567a37965691"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U22", "=", "0"}]], "Input", - CellLabel->"In[48]:=",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], + CellLabel-> + "In[424]:=",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], Cell[BoxData["0"], "Output", - CellChangeTimes->{3.9913204210355663`*^9}, - CellLabel->"Out[48]=",ExpressionUUID->"0d4bafbb-7685-ff43-aaa0-fe1597369669"] + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.994082140531746*^9, {3.9940822111011677`*^9, + 3.994082260073297*^9}}, + CellLabel-> + "Out[424]=",ExpressionUUID->"1920f2b3-4662-4ead-9654-2f62cf5727b3"] }, Open ]], Cell[CellGroupData[{ @@ -4031,11 +4281,15 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel->"In[49]:=",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], + CellLabel-> + "In[425]:=",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], -Cell[BoxData["165.32626018052665`"], "Output", - CellChangeTimes->{3.991320421068556*^9}, - CellLabel->"Out[49]=",ExpressionUUID->"25fde637-8846-5644-8daa-868231713f08"] +Cell[BoxData["120.33662547388403`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.994082140542282*^9, {3.994082211112996*^9, + 3.994082260084251*^9}}, + CellLabel-> + "Out[425]=",ExpressionUUID->"340b0d86-e03b-45cb-b2c2-ae9e64c52c8f"] }, Open ]], Cell[CellGroupData[{ @@ -4075,12 +4329,16 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel->"In[50]:=",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], + CellLabel-> + "In[426]:=",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], Cell[BoxData[ - RowBox[{"-", "113.55836273207095`"}]], "Output", - CellChangeTimes->{3.991320421098543*^9}, - CellLabel->"Out[50]=",ExpressionUUID->"222cd90e-6438-0a46-88d0-fcdd10fc9432"] + RowBox[{"-", "107.1121642480161`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.994082140552636*^9, {3.994082211122551*^9, + 3.994082260094944*^9}}, + CellLabel-> + "Out[426]=",ExpressionUUID->"76ba76ba-9562-41cd-88c4-707224480d23"] }, Open ]], Cell[CellGroupData[{ @@ -4124,73 +4382,99 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel->"In[51]:=",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], + CellLabel-> + "In[427]:=",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], -Cell[BoxData["101.25756231997637`"], "Output", - CellChangeTimes->{3.9913204211275444`*^9}, - CellLabel->"Out[51]=",ExpressionUUID->"b7d1d4d3-3e05-af4b-9683-83817f2bdc88"] +Cell[BoxData["123.55775944746372`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9940821405632*^9, {3.9940822111320972`*^9, + 3.9940822601055107`*^9}}, + CellLabel-> + "Out[427]=",ExpressionUUID->"bf90d935-4ee8-481c-8d5c-3be142664870"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c11"], "Input", - CellLabel->"In[52]:=",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], + CellLabel-> + "In[428]:=",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], -Cell[BoxData["0.6849608803764016`"], "Output", - CellChangeTimes->{3.9913204211385536`*^9}, - CellLabel->"Out[52]=",ExpressionUUID->"9fab72a0-15cc-f04b-8b2d-eafd610fbe08"] +Cell[BoxData["0.4069661562665162`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.994082140573392*^9, {3.994082211141264*^9, + 3.994082260116184*^9}}, + CellLabel-> + "Out[428]=",ExpressionUUID->"2623f4b4-3e57-436d-a3a2-83f9307bb872"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c12"], "Input", - CellLabel->"In[53]:=",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], + CellLabel-> + "In[429]:=",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], Cell[BoxData[ - RowBox[{"-", "0.43849259375441973`"}]], "Output", - CellChangeTimes->{3.9913204211683464`*^9}, - CellLabel->"Out[53]=",ExpressionUUID->"5baa5811-6d68-0847-bfa7-611a7f282595"] + RowBox[{"-", "0.08563504168524437`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.994082140583559*^9, {3.994082211156444*^9, + 3.994082260127738*^9}}, + CellLabel-> + "Out[429]=",ExpressionUUID->"0f1eded3-805e-4cbe-a37b-057f37983da3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c21"], "Input", - CellLabel->"In[54]:=",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], + CellLabel-> + "In[430]:=",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], Cell[BoxData[ - RowBox[{"-", "0.08210730792808285`"}]], "Output", - CellChangeTimes->{3.991320421199068*^9}, - CellLabel->"Out[54]=",ExpressionUUID->"66d60cf8-894b-f64c-bc5e-4862fc34e98d"] + RowBox[{"-", "0.5841673375234483`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.994082140593707*^9, {3.994082211166273*^9, + 3.99408226016045*^9}}, + CellLabel-> + "Out[430]=",ExpressionUUID->"cbacdbb0-99d6-446e-9ceb-fa978d1ee555"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c22"], "Input", - CellLabel->"In[55]:=",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], + CellLabel-> + "In[431]:=",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], -Cell[BoxData["0.30371622798853437`"], "Output", - CellChangeTimes->{3.991320421228037*^9}, - CellLabel->"Out[55]=",ExpressionUUID->"95baa4f5-66f1-b04e-8459-661f90319bc4"] +Cell[BoxData["0.7215005296935654`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.9940821428128853`*^9, {3.994082211175336*^9, + 3.994082260189337*^9}}, + CellLabel-> + "Out[431]=",ExpressionUUID->"a202ddec-8352-4ca8-86b6-0ae67d808b59"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w1"], "Input", - CellLabel->"In[56]:=",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], + CellLabel-> + "In[432]:=",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], -Cell[BoxData["1.4975864418719793`"], "Output", - CellChangeTimes->{3.9913204212585373`*^9}, - CellLabel->"Out[56]=",ExpressionUUID->"de032191-9b61-7645-8f26-423f534a2cb1"] +Cell[BoxData["2.315137197466896`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, {3.9940822111841908`*^9, 3.9940822602133617`*^9}}, + CellLabel-> + "Out[432]=",ExpressionUUID->"de4b39e2-fadc-4df3-a685-cbd07a5ae09a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w2"], "Input", - CellLabel->"In[57]:=",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], + CellLabel-> + "In[433]:=",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], -Cell[BoxData["2.555495302485258`"], "Output", - CellChangeTimes->{3.9913204212884274`*^9}, - CellLabel->"Out[57]=",ExpressionUUID->"56b6e721-a4ff-f24f-9100-8013c893b0ae"] +Cell[BoxData["1.4220278650887666`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, {3.994082211193069*^9, 3.99408226021774*^9}}, + CellLabel-> + "Out[433]=",ExpressionUUID->"dfe901e9-edb5-4eea-8e15-d73ae4da775a"] }, Open ]], Cell[CellGroupData[{ @@ -4211,12 +4495,15 @@ Cell[BoxData[ RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", - CellLabel->"In[58]:=",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], + CellLabel-> + "In[434]:=",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], Cell[BoxData[ - RowBox[{"-", "10.968150500985438`"}]], "Output", - CellChangeTimes->{3.9913204213185234`*^9}, - CellLabel->"Out[58]=",ExpressionUUID->"ed7537ce-20e6-4246-aac0-4a4b9f4faed7"] + RowBox[{"-", "34.52117430586003`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, {3.994082211202162*^9, 3.994082260228716*^9}}, + CellLabel-> + "Out[434]=",ExpressionUUID->"48e44735-b63e-4544-b63e-264031b735d8"] }, Open ]], Cell[CellGroupData[{ @@ -4237,12 +4524,15 @@ Cell[BoxData[ RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", - CellLabel->"In[59]:=",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], + CellLabel-> + "In[435]:=",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], Cell[BoxData[ - RowBox[{"-", "30.737279670206195`"}]], "Output", - CellChangeTimes->{3.991320421349531*^9}, - CellLabel->"Out[59]=",ExpressionUUID->"643b7429-505f-4045-a97f-7e6871b3f504"] + RowBox[{"-", "6.669654351008722`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, {3.9940822112147284`*^9, 3.994082260239593*^9}}, + CellLabel-> + "Out[435]=",ExpressionUUID->"61b052e1-d792-4900-8d96-d63125b54874"] }, Open ]], Cell[CellGroupData[{ @@ -4307,11 +4597,14 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]}]}]], "Input", - CellLabel->"In[60]:=",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], + CellLabel-> + "In[436]:=",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], -Cell[BoxData["154.3581096795412`"], "Output", - CellChangeTimes->{3.9913204213784294`*^9}, - CellLabel->"Out[60]=",ExpressionUUID->"029098e5-22ab-9a4c-99ad-caac4d1307db"] +Cell[BoxData["85.815451168024`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, {3.994082211224436*^9, 3.994082260250916*^9}}, + CellLabel-> + "Out[436]=",ExpressionUUID->"efa493bf-62a4-42ef-a298-acc4b31951e1"] }, Open ]], Cell[CellGroupData[{ @@ -4352,12 +4645,15 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", - CellLabel->"In[61]:=",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], + CellLabel-> + "In[437]:=",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], Cell[BoxData[ - RowBox[{"-", "113.55836273207095`"}]], "Output", - CellChangeTimes->{3.9913204213904285`*^9}, - CellLabel->"Out[61]=",ExpressionUUID->"f7cceab2-e319-0345-98f3-b759ec5fa40c"] + RowBox[{"-", "107.1121642480161`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, {3.994082211233815*^9, 3.994082260261983*^9}}, + CellLabel-> + "Out[437]=",ExpressionUUID->"ce0c3045-c46d-48ae-b267-0e10802a422a"] }, Open ]], Cell[CellGroupData[{ @@ -4423,11 +4719,14 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]}]}]], "Input", - CellLabel->"In[62]:=",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], + CellLabel-> + "In[438]:=",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], -Cell[BoxData["70.52028264977018`"], "Output", - CellChangeTimes->{3.991320421419428*^9}, - CellLabel->"Out[62]=",ExpressionUUID->"ee7339b3-3748-a34f-a057-3912a0918fd6"] +Cell[BoxData["116.888105096455`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, {3.99408221124387*^9, 3.994082260273652*^9}}, + CellLabel-> + "Out[438]=",ExpressionUUID->"c865c015-b56d-4ccc-ad76-f18e9802683b"] }, Open ]], Cell[CellGroupData[{ @@ -4485,11 +4784,14 @@ Cell[BoxData[ RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", - CellLabel->"In[63]:=",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], + CellLabel-> + "In[439]:=",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], -Cell[BoxData["14.070681463640064`"], "Output", - CellChangeTimes->{3.9913204214494324`*^9}, - CellLabel->"Out[63]=",ExpressionUUID->"9d980dd1-9860-3745-8961-1b723545e44c"] +Cell[BoxData["42.180325689118604`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, {3.994082211253778*^9, 3.994082260284829*^9}}, + CellLabel-> + "Out[439]=",ExpressionUUID->"b7c3bbf9-9343-4488-ac38-54b3a3bb5a76"] }, Open ]], Cell[CellGroupData[{ @@ -4547,34 +4849,53 @@ Cell[BoxData[ RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", - CellLabel->"In[64]:=",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], + CellLabel-> + "In[440]:=",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], -Cell[BoxData["392.58159931234866`"], "Output", - CellChangeTimes->{3.991320421481529*^9}, - CellLabel->"Out[64]=",ExpressionUUID->"791dcf4f-1a7f-2347-997c-27eed6cf3948"] +Cell[BoxData["727.4038074151157`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, {3.994082211263607*^9, 3.994082260289282*^9}}, + CellLabel-> + "Out[440]=",ExpressionUUID->"dcaa4778-af98-407c-b754-aa7593469626"] }, Open ]], -Cell[BoxData[ - RowBox[{"f1", "="}]], "Input", - CellChangeTimes->{ - 3.991799412462593*^9},ExpressionUUID->"8ee71d5b-854f-5949-88a2-\ -843ffd08641f"], - -Cell[BoxData[""], "Input", - CellChangeTimes->{{3.99184866880085*^9, - 3.9918486688048573`*^9}},ExpressionUUID->"13f65097-48a8-0b48-8f26-\ -bfa63ff56738"], +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", - CellChangeTimes->{ - 3.991799414288656*^9},ExpressionUUID->"6c8cc5df-ad31-9945-825b-\ -23c469148e55"], + RowBox[{"f1", "=", "0.8718414861"}]], "Input", + CellChangeTimes->{3.991799412462593*^9, 3.99407322940346*^9}, + CellLabel-> + "In[441]:=",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], + +Cell[BoxData["0.8718414861`"], "Output", + CellChangeTimes->{{3.994082211273093*^9, 3.994082260300088*^9}}, + CellLabel-> + "Out[441]=",ExpressionUUID->"7bdf2466-2d8a-4e2b-840a-6fef1ae2bc7f"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.991848669922333*^9, - 3.9918486699293537`*^9}},ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-\ -049e50ab8a2a"], + CellChangeTimes->{{3.99184866880085*^9, 3.9918486688048573`*^9}}, + CellLabel-> + "In[442]:=",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f2", "=", "0.5562187875"}]], "Input", + CellChangeTimes->{3.991799414288656*^9, 3.9940732361826572`*^9}, + CellLabel-> + "In[443]:=",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], + +Cell[BoxData["0.5562187875`"], "Output", + CellChangeTimes->{{3.994082211285598*^9, 3.994082260313322*^9}}, + CellLabel-> + "Out[443]=",ExpressionUUID->"2fd9f24a-4d81-4a6c-a436-67b1a0fd5f1f"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848669922333*^9, 3.9918486699293537`*^9}}, + CellLabel-> + "In[444]:=",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], Cell[CellGroupData[{ @@ -4620,11 +4941,14 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], ")"}]}]], "Input", - CellLabel->"In[67]:=",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], + CellLabel-> + "In[445]:=",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], -Cell[BoxData["2.3793916761039797`*^-53"], "Output", - CellChangeTimes->{3.99132042156752*^9}, - CellLabel->"Out[67]=",ExpressionUUID->"83707082-f118-c146-a95c-693158b61875"] +Cell[BoxData["1.5199617014106653`*^-53"], "Output", + CellChangeTimes->{ + 3.99132042156752*^9, {3.9940822113093443`*^9, 3.994082260326758*^9}}, + CellLabel-> + "Out[445]=",ExpressionUUID->"53aeb72e-5f1b-4dab-8c60-5ec696603396"] }, Open ]], Cell[CellGroupData[{ @@ -4658,13 +4982,15 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", - CellChangeTimes->{ - 3.991557471461853*^9},ExpressionUUID->"4237f61c-7340-ae4e-a030-\ -5501c3a85c24"], + CellChangeTimes->{3.991557471461853*^9}, + CellLabel-> + "In[446]:=",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], -Cell[BoxData["2.192147584896785`*^-54"], "Output", - CellChangeTimes->{3.99132042159643*^9}, - CellLabel->"Out[68]=",ExpressionUUID->"93dbdfa1-2e9a-2d49-80d6-05af3e592734"] +Cell[BoxData["1.5082100629610504`*^-54"], "Output", + CellChangeTimes->{ + 3.99132042159643*^9, {3.994082211337117*^9, 3.99408226033742*^9}}, + CellLabel-> + "Out[446]=",ExpressionUUID->"c25688b7-2cd0-4781-8a84-19834ee062a5"] }, Open ]], Cell[CellGroupData[{ @@ -4697,13 +5023,15 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}]], "Input", - CellChangeTimes->{{3.991557474366678*^9, - 3.99155747655138*^9}},ExpressionUUID->"8a758118-d07d-d243-b7d7-\ -f8e668175458"], + CellChangeTimes->{{3.991557474366678*^9, 3.99155747655138*^9}}, + CellLabel-> + "In[447]:=",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], -Cell[BoxData["3.508823705223133`*^-54"], "Output", - CellChangeTimes->{3.9913204216085243`*^9}, - CellLabel->"Out[69]=",ExpressionUUID->"afd7d2f8-cc87-734c-9c81-c0621f31e0e5"] +Cell[BoxData["2.8809837120527296`*^-54"], "Output", + CellChangeTimes->{ + 3.9913204216085243`*^9, {3.994082211349947*^9, 3.994082260348366*^9}}, + CellLabel-> + "Out[447]=",ExpressionUUID->"e029c9a9-7648-4991-8b6a-f9771da08271"] }, Open ]], Cell[CellGroupData[{ @@ -4727,18 +5055,19 @@ Cell[BoxData[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", CellLabel-> - "In[670]:=",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], + "In[448]:=",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], -Cell[BoxData["20.232611751799567`"], "Output", +Cell[BoxData["14.366774230577528`"], "Output", CellChangeTimes->{ 3.991323706886154*^9, 3.9917089973478775`*^9, 3.9920860582546215`*^9, 3.992086268464361*^9, 3.992086312066765*^9, 3.9920865713192253`*^9, 3.992086602134493*^9, 3.9920866682814503`*^9, {3.992086776768282*^9, 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.9920915619364376`*^9, 3.9920915885645847`*^9}, {3.994082211360269*^9, + 3.994082260359448*^9}}, CellLabel-> - "Out[670]=",ExpressionUUID->"0432d540-b940-d44f-87c2-61a0d876fa3f"] + "Out[448]=",ExpressionUUID->"0cc6e19e-0b12-4334-95f0-4b325f4c4782"] }, Open ]], Cell[CellGroupData[{ @@ -4765,18 +5094,18 @@ Cell[BoxData[ RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", CellChangeTimes->{3.992086162437586*^9}, CellLabel-> - "In[671]:=",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], + "In[449]:=",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], -Cell[BoxData["61.811743284264836`"], "Output", +Cell[BoxData["49.42545919517845`"], "Output", CellChangeTimes->{ 3.9913204216685333`*^9, 3.9917083768681793`*^9, 3.9920862684823704`*^9, 3.992086312091795*^9, 3.9920865713392296`*^9, 3.9920866021582546`*^9, 3.992086668289461*^9, {3.992086776775297*^9, 3.9920868041333256`*^9}, 3.992091247484524*^9, {3.9920913926676064`*^9, 3.9920914468313007`*^9}, { 3.9920915031479607`*^9, 3.9920915226223583`*^9}, {3.9920915619450817`*^9, - 3.992091588571615*^9}}, + 3.992091588571615*^9}, {3.994082211370572*^9, 3.994082260370407*^9}}, CellLabel-> - "Out[671]=",ExpressionUUID->"d6001eae-8a76-854e-9f93-fc6d9f888546"] + "Out[449]=",ExpressionUUID->"ee271180-a88e-4901-995d-fc00d664602b"] }, Open ]], Cell[CellGroupData[{ @@ -4786,18 +5115,19 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", CellLabel-> - "In[672]:=",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], + "In[450]:=",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], -Cell[BoxData["2.078701539535334`"], "Output", +Cell[BoxData["1.7134653673502502`"], "Output", CellChangeTimes->{ 3.9913237069236546`*^9, 3.9917089973924427`*^9, 3.9920860582606277`*^9, 3.9920862684883747`*^9, 3.992086312111845*^9, 3.9920865713602333`*^9, 3.992086602164238*^9, 3.9920866683116226`*^9, {3.9920867767991753`*^9, 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.9920915619686337`*^9, 3.992091588596325*^9}, {3.994082211381027*^9, + 3.9940822603816147`*^9}}, CellLabel-> - "Out[672]=",ExpressionUUID->"529ddbf3-d030-9b49-9390-e82eea1b6cd9"] + "Out[450]=",ExpressionUUID->"4210faa2-d16f-4159-9536-41bbeb118197"] }, Open ]], Cell[CellGroupData[{ @@ -4808,17 +5138,18 @@ Cell[BoxData[ FractionBox["Kw", "Qw2"]]}]], "Input", CellChangeTimes->{{3.992086303949501*^9, 3.992086304210249*^9}}, CellLabel-> - "In[673]:=",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], + "In[451]:=",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], -Cell[BoxData["5.12428714806174`"], "Output", +Cell[BoxData["3.836298822642981`"], "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.992091522636343*^9}, {3.992091561975609*^9, 3.99209158860334*^9}, { + 3.994082211391102*^9, 3.994082260392704*^9}}, CellLabel-> - "Out[673]=",ExpressionUUID->"1efb03b1-ddd9-3544-b911-a583d1e1d12c"] + "Out[451]=",ExpressionUUID->"213fb299-7213-4e3a-a9f9-48c39939a5ba"] }, Open ]], Cell[CellGroupData[{ @@ -4829,18 +5160,18 @@ Cell[BoxData[ RowBox[{"Qw2", "*", "hw"}], "1"]}]], "Input", CellChangeTimes->{3.992086167409481*^9}, CellLabel-> - "In[674]:=",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], + "In[452]:=",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], -Cell[BoxData["316.7411217108498`"], "Output", +Cell[BoxData["189.61083091905178`"], "Output", CellChangeTimes->{ 3.9913204217554817`*^9, 3.9917083769190636`*^9, 3.9920862684953804`*^9, 3.992086312138464*^9, 3.992086571391514*^9, 3.9920866022223396`*^9, 3.9920866683466625`*^9, {3.9920867768341465`*^9, 3.9920868041850357`*^9}, 3.992091247547844*^9, {3.9920913927375374`*^9, 3.992091446867302*^9}, { 3.992091503209553*^9, 3.992091522657341*^9}, {3.992091561999613*^9, - 3.9920915886284447`*^9}}, + 3.9920915886284447`*^9}, {3.994082211400819*^9, 3.9940822604038277`*^9}}, CellLabel-> - "Out[674]=",ExpressionUUID->"0c2f4a5d-aa8f-1846-8930-72520d6d68fa"] + "Out[452]=",ExpressionUUID->"36b44dfd-8d68-475c-86fd-1b934dda9dec"] }, Open ]], Cell[CellGroupData[{ @@ -4850,18 +5181,19 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[675]:=",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], + "In[453]:=",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], -Cell[BoxData["42.05756119728645`"], "Output", +Cell[BoxData["24.616970084634634`"], "Output", CellChangeTimes->{ 3.9913237069753113`*^9, 3.99170899744343*^9, 3.992086058291689*^9, 3.9920862685164757`*^9, 3.992086312143465*^9, 3.9920865713975163`*^9, 3.99208660222736*^9, 3.9920866683701725`*^9, {3.9920867768552227`*^9, 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.992091562006651*^9, 3.992091588636162*^9}, {3.994082211410651*^9, + 3.994082260414859*^9}}, CellLabel-> - "Out[675]=",ExpressionUUID->"51b96550-e411-8f49-ae52-0ef4087a9cca"] + "Out[453]=",ExpressionUUID->"3cee8994-2481-461e-88f3-f631187e5832"] }, Open ]], Cell[CellGroupData[{ @@ -5051,18 +5383,18 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[676]:=",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], + "In[454]:=",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], -Cell[BoxData["0.007069898460535921`"], "Output", +Cell[BoxData["0.005770252847407`"], "Output", CellChangeTimes->{ 3.991323707000412*^9, 3.991708997465433*^9, 3.9920860583187714`*^9, 3.992086268523493*^9, 3.9920863121684647`*^9, 3.9920865714232826`*^9, 3.992086602254381*^9, {3.992086776882221*^9, 3.9920868042180786`*^9}, 3.992091247578861*^9, {3.9920913927664986`*^9, 3.992091446900387*^9}, { 3.992091503241564*^9, 3.9920915226853714`*^9}, {3.9920915620301514`*^9, - 3.992091588657053*^9}}, + 3.992091588657053*^9}, {3.994082211420331*^9, 3.994082260426902*^9}}, CellLabel-> - "Out[676]=",ExpressionUUID->"ae5a263d-347a-6e47-95a0-f7c420f4dc91"] + "Out[454]=",ExpressionUUID->"ab70d59e-5f61-4611-af7f-fafca10d931c"] }, Open ]], Cell[CellGroupData[{ @@ -5076,17 +5408,18 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[677]:=",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], + "In[455]:=",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], -Cell[BoxData["10.539945190547895`"], "Output", +Cell[BoxData["11.666686251913518`"], "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.9920915227624416`*^9}, {3.9920915621031647`*^9, + 3.9920915887305927`*^9}, {3.994082211570291*^9, 3.994082260481759*^9}}, CellLabel-> - "Out[677]=",ExpressionUUID->"eb964dd3-b4a5-124b-bf6d-21f5f9718a4e"] + "Out[455]=",ExpressionUUID->"ad6c6e2e-e0e3-4078-bdf5-a398f6fa29b6"] }, Open ]], Cell[BoxData[ @@ -5099,7 +5432,7 @@ Cell[BoxData[ 3.9920863634349823`*^9}, {3.9920864985362244`*^9, 3.992086501430176*^9}, { 3.9920869541635437`*^9, 3.992086954848522*^9}}, CellLabel-> - "In[678]:=",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], + "In[456]:=",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], Cell[CellGroupData[{ @@ -5121,11 +5454,14 @@ Cell[BoxData[ FractionBox[ RowBox[{"Ih", "*", "Ir"}], RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", - CellLabel->"In[70]:=",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], + CellLabel-> + "In[457]:=",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], -Cell[BoxData["44.37747929594205`"], "Output", - CellChangeTimes->{3.991320421637537*^9}, - CellLabel->"Out[70]=",ExpressionUUID->"e4d9d77a-b508-454c-baed-04aa4a4ef418"] +Cell[BoxData["35.148109994345155`"], "Output", + CellChangeTimes->{ + 3.991320421637537*^9, {3.994082211645638*^9, 3.994082260503162*^9}}, + CellLabel-> + "Out[457]=",ExpressionUUID->"8bebcf67-128b-43de-8c41-0d3f801099dc"] }, Open ]], Cell[CellGroupData[{ @@ -5150,11 +5486,14 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", - CellLabel->"In[71]:=",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], + CellLabel-> + "In[458]:=",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], -Cell[BoxData["66.74356871519693`"], "Output", - CellChangeTimes->{3.9913204216685333`*^9}, - CellLabel->"Out[71]=",ExpressionUUID->"3007515b-4da6-bf4e-9b4f-90b429e2dd04"] +Cell[BoxData["49.42545919517845`"], "Output", + CellChangeTimes->{ + 3.9913204216685333`*^9, {3.994082211655341*^9, 3.9940822605140467`*^9}}, + CellLabel-> + "Out[458]=",ExpressionUUID->"08a80e46-ee9e-43af-b04d-2d0c497b8c23"] }, Open ]], Cell[CellGroupData[{ @@ -5163,11 +5502,14 @@ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb3"]]}]], "Input", - CellLabel->"In[72]:=",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], + CellLabel-> + "In[459]:=",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], -Cell[BoxData["0.5630879721742558`"], "Output", - CellChangeTimes->{3.991320421698473*^9}, - CellLabel->"Out[72]=",ExpressionUUID->"f6274504-766f-8549-a4a8-fd0e803dda86"] +Cell[BoxData["1.0954787963831218`"], "Output", + CellChangeTimes->{ + 3.991320421698473*^9, {3.9940822116651077`*^9, 3.9940822605248423`*^9}}, + CellLabel-> + "Out[459]=",ExpressionUUID->"416c053f-e7f9-499a-83f3-b3f146c8f4e1"] }, Open ]], Cell[CellGroupData[{ @@ -5176,11 +5518,14 @@ Cell[BoxData[ RowBox[{"hw", "=", SqrtBox[ FractionBox["Kw", "Qw3"]]}]], "Input", - CellLabel->"In[73]:=",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], + CellLabel-> + "In[460]:=",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], -Cell[BoxData["2.425270911118517`"], "Output", - CellChangeTimes->{3.991320421726494*^9}, - CellLabel->"Out[73]=",ExpressionUUID->"72d24546-97b5-7344-98ec-019068f7b9fb"] +Cell[BoxData["3.836298822642981`"], "Output", + CellChangeTimes->{ + 3.991320421726494*^9, {3.994082211674952*^9, 3.994082260535968*^9}}, + CellLabel-> + "Out[460]=",ExpressionUUID->"45010d70-4e75-421d-beb4-8be15802e299"] }, Open ]], Cell[CellGroupData[{ @@ -5189,11 +5534,14 @@ Cell[BoxData[ RowBox[{"Cw", "=", FractionBox[ RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", - CellLabel->"In[74]:=",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], + CellLabel-> + "In[461]:=",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], -Cell[BoxData["161.87123570920699`"], "Output", - CellChangeTimes->{3.9913204217554817`*^9}, - CellLabel->"Out[74]=",ExpressionUUID->"7075b380-afe9-8b44-acc9-29433a09a866"] +Cell[BoxData["189.61083091905178`"], "Output", + CellChangeTimes->{ + 3.9913204217554817`*^9, {3.994082211684774*^9, 3.994082260547063*^9}}, + CellLabel-> + "Out[461]=",ExpressionUUID->"c2802e50-c7b5-4415-8acc-7abdab875406"] }, Open ]], Cell[CellGroupData[{ @@ -5202,11 +5550,14 @@ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", - CellLabel->"In[75]:=",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], + CellLabel-> + "In[462]:=",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], -Cell[BoxData["24.98842482695703`"], "Output", - CellChangeTimes->{3.9913204217855225`*^9}, - CellLabel->"Out[75]=",ExpressionUUID->"667394bf-ade3-1944-8cac-a719104b58af"] +Cell[BoxData["38.50400923174681`"], "Output", + CellChangeTimes->{ + 3.9913204217855225`*^9, {3.9940822116943083`*^9, 3.99408226055772*^9}}, + CellLabel-> + "Out[462]=",ExpressionUUID->"e798f31f-867f-4b3c-983b-69756ef43bab"] }, Open ]], Cell[CellGroupData[{ @@ -5395,11 +5746,14 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel->"In[76]:=",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], + CellLabel-> + "In[463]:=",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], -Cell[BoxData["0.020440609994923815`"], "Output", - CellChangeTimes->{3.9913204218154297`*^9}, - CellLabel->"Out[76]=",ExpressionUUID->"bdb345c8-7c0c-3e4d-96c3-d5d94768456f"] +Cell[BoxData["0.005342175127535896`"], "Output", + CellChangeTimes->{ + 3.9913204218154297`*^9, {3.994082211704894*^9, 3.994082260568593*^9}}, + CellLabel-> + "Out[463]=",ExpressionUUID->"fb5dc71f-76d1-4c2b-96db-6825a72886e5"] }, Open ]], Cell[CellGroupData[{ @@ -5412,11 +5766,16 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel->"In[77]:=",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], + Background->RGBColor[0.4, 0.6, 1, 0.33], + CellLabel-> + "In[464]:=",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], -Cell[BoxData["6.198662839936796`"], "Output", - CellChangeTimes->{3.991320422776104*^9}, - CellLabel->"Out[77]=",ExpressionUUID->"a136c49d-6dd1-8a4a-9add-7300e6132adb"] +Cell[BoxData["12.125115386739955`"], "Output", + CellChangeTimes->{ + 3.991320422776104*^9, {3.9940822117454567`*^9, 3.994082260641898*^9}}, + Background->RGBColor[0.14, 0.8, 0.14, 0.33], + CellLabel-> + "Out[464]=",ExpressionUUID->"43f02828-8363-47e4-b400-993a345a91b2"] }, Open ]], Cell[CellGroupData[{ @@ -5607,11 +5966,14 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel->"In[78]:=",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], + CellLabel-> + "In[465]:=",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], -Cell[BoxData["0.01158648853220534`"], "Output", - CellChangeTimes->{3.9913204229248886`*^9}, - CellLabel->"Out[78]=",ExpressionUUID->"85a24dde-0aa6-984c-b7a3-ccfa87afb6cd"] +Cell[BoxData["0.024397039829222016`"], "Output", + CellChangeTimes->{ + 3.9913204229248886`*^9, {3.994082211759033*^9, 3.994082260652686*^9}}, + CellLabel-> + "Out[465]=",ExpressionUUID->"1fb26a00-4e0c-4bf5-b1e1-357cc406c913"] }, Open ]], Cell[CellGroupData[{ @@ -5624,11 +5986,14 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel->"In[79]:=",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], + CellLabel-> + "In[466]:=",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], -Cell[BoxData["8.233206772574567`"], "Output", - CellChangeTimes->{3.9913204230053368`*^9}, - CellLabel->"Out[79]=",ExpressionUUID->"9a87dba6-1411-3f4b-a17f-9d7a664889bd"] +Cell[BoxData["5.673830703056657`"], "Output", + CellChangeTimes->{ + 3.9913204230053368`*^9, {3.9940822117996893`*^9, 3.9940822607077827`*^9}}, + CellLabel-> + "Out[466]=",ExpressionUUID->"5b198d56-056a-427f-9d9b-d2faa67b15c2"] }, Open ]], Cell[CellGroupData[{ @@ -5720,11 +6085,14 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel->"In[80]:=",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], + CellLabel-> + "In[467]:=",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], -Cell[BoxData["0.6154782275967796`"], "Output", - CellChangeTimes->{3.9913204230393543`*^9}, - CellLabel->"Out[80]=",ExpressionUUID->"39ebfd06-20a8-e945-ae56-55ff95d26618"] +Cell[BoxData["0.11447062330044823`"], "Output", + CellChangeTimes->{ + 3.9913204230393543`*^9, {3.9940822118135557`*^9, 3.994082260718741*^9}}, + CellLabel-> + "Out[467]=",ExpressionUUID->"6e559820-ab51-4344-9543-8c0e2137ed0d"] }, Open ]], Cell[CellGroupData[{ @@ -5813,11 +6181,14 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel->"In[81]:=",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], + CellLabel-> + "In[468]:=",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], -Cell[BoxData["0.3845217724032204`"], "Output", - CellChangeTimes->{3.9913204230728855`*^9}, - CellLabel->"Out[81]=",ExpressionUUID->"6c617ce1-6ebd-9d43-be44-73f7ca23a829"] +Cell[BoxData["0.8855293766995518`"], "Output", + CellChangeTimes->{ + 3.9913204230728855`*^9, {3.994082211824037*^9, 3.9940822607294807`*^9}}, + CellLabel-> + "Out[468]=",ExpressionUUID->"650795d2-84a9-4db4-92ba-cbc37ba66253"] }, Open ]], Cell[CellGroupData[{ @@ -5939,17 +6310,21 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", - CellLabel->"In[82]:=",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], + CellLabel-> + "In[469]:=",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], -Cell[BoxData["0.2366647789511063`"], "Output", - CellChangeTimes->{3.9913204231038837`*^9}, - CellLabel->"Out[82]=",ExpressionUUID->"145fcb0a-d842-9a43-9617-34577d485689"] +Cell[BoxData["0.1013670997016551`"], "Output", + CellChangeTimes->{ + 3.9913204231038837`*^9, {3.994082211835012*^9, 3.994082260741048*^9}}, + CellLabel-> + "Out[469]=",ExpressionUUID->"8c71c53f-1bfd-428c-8ffe-82c94d65cde6"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", - RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"1cc34a71-05ee-\ -424c-ba53-995669bbcd65"], + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellLabel-> + "In[470]:=",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], Cell[CellGroupData[{ @@ -6010,67 +6385,77 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.991799443370365*^9}, + CellLabel-> + "In[471]:=",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.884734744316392`*^-212\\\", \ +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 471, 25, 31386517616921847950, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{ - 3.991799443370365*^9},ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-\ -3a94fbdbad18"], + 3.9913204231548862`*^9, {3.994082211864319*^9, 3.994082260757379*^9}}, + CellLabel-> + "During evaluation of \ +In[471]:=",ExpressionUUID->"29f4d308-2a0d-43d6-b28b-e4add91e8a0a"], 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, 83, 1, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913204231548862`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.7102186537353504`*^-217\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 471, 26, 31386517616921847950, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{ + 3.9913204231548862`*^9, {3.994082211864319*^9, 3.99408226076195*^9}}, CellLabel-> "During evaluation of \ -In[83]:=",ExpressionUUID->"be9831d8-a262-3541-9040-ad5e31b2eb28"], +In[471]:=",ExpressionUUID->"ab1ab79f-e2ac-45ac-a41f-0ec5c838c0e5"], 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, 83, 2, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913204231788826`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.8908073869912646`*^-222\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 471, 27, 31386517616921847950, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{ + 3.9913204231548862`*^9, {3.994082211864319*^9, 3.994082260765967*^9}}, CellLabel-> "During evaluation of \ -In[83]:=",ExpressionUUID->"31896901-1c82-aa4e-bb9a-c09e2220f684"], - -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, 83, 3, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991320423191887*^9}, - CellLabel-> - "During evaluation of \ -In[83]:=",ExpressionUUID->"aa16e061-5976-9143-8add-7376f3059569"], +In[471]:=",ExpressionUUID->"7f72033a-702b-4fdc-944a-2864fc8abe3e"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 83, 4, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991320423200884*^9}, +during this calculation.\"", 2, 471, 28, 31386517616921847950, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{ + 3.9913204231548862`*^9, {3.994082211864319*^9, 3.9940822607698183`*^9}}, CellLabel-> "During evaluation of \ -In[83]:=",ExpressionUUID->"68730c15-5e57-ca48-8468-735233dec44d"], +In[471]:=",ExpressionUUID->"f8e5ccc6-e74b-4178-b92a-f01d060fc33f"], -Cell[BoxData["6.198662839936798`"], "Output", - CellChangeTimes->{3.9913204260017204`*^9}, - CellLabel->"Out[83]=",ExpressionUUID->"9deaa7ff-19fe-b345-ae65-d7f8adce193c"] +Cell[BoxData["12.12511538673996`"], "Output", + CellChangeTimes->{ + 3.9913204260017204`*^9, {3.994082213114771*^9, 3.994082262799468*^9}}, + CellLabel-> + "Out[471]=",ExpressionUUID->"7dd2a9a8-9cdb-423c-9fc4-d63ccf97c2bb"] }, Open ]], Cell[CellGroupData[{ @@ -6132,67 +6517,77 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.9917994459475594`*^9}, + CellLabel-> + "In[472]:=",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.884734744316392`*^-212\\\", \ +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 472, 29, 31386517616921847950, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{ - 3.9917994459475594`*^9},ExpressionUUID->"0f581ffd-dfa8-e845-a733-\ -ca6cc08b08a0"], + 3.9913204262354183`*^9, {3.994082213152547*^9, 3.994082262840848*^9}}, + CellLabel-> + "During evaluation of \ +In[472]:=",ExpressionUUID->"3e12b230-1ad3-44d9-8eb6-ea75177805c3"], 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, 84, 5, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913204262354183`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.7102186537353504`*^-217\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 472, 30, 31386517616921847950, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{ + 3.9913204262354183`*^9, {3.994082213152547*^9, 3.9940822628450193`*^9}}, CellLabel-> "During evaluation of \ -In[84]:=",ExpressionUUID->"365becfb-66c2-b442-8b7b-c6077e53a212"], +In[472]:=",ExpressionUUID->"f01abd79-4765-43ba-9418-3a3b399624c7"], 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, 84, 6, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99132042625132*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.8908073869912646`*^-222\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 472, 31, 31386517616921847950, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{ + 3.9913204262354183`*^9, {3.994082213152547*^9, 3.994082262848035*^9}}, CellLabel-> "During evaluation of \ -In[84]:=",ExpressionUUID->"2b170196-02e0-d544-a5a5-d90722dc10dc"], - -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, 84, 7, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991320426261322*^9}, - CellLabel-> - "During evaluation of \ -In[84]:=",ExpressionUUID->"02967e8e-3430-cf4f-b706-b82af40300a2"], +In[472]:=",ExpressionUUID->"628c8280-d03d-463c-a130-979bccc59aea"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 84, 8, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991320426270418*^9}, +during this calculation.\"", 2, 472, 32, 31386517616921847950, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{ + 3.9913204262354183`*^9, {3.994082213152547*^9, 3.9940822628509703`*^9}}, CellLabel-> "During evaluation of \ -In[84]:=",ExpressionUUID->"a8933e75-6bbd-684a-8439-656414d7fe5d"], +In[472]:=",ExpressionUUID->"1200c2ba-bdd1-4a30-a6ef-17d49332922e"], -Cell[BoxData["8.233206772574558`"], "Output", - CellChangeTimes->{3.991320428882721*^9}, - CellLabel->"Out[84]=",ExpressionUUID->"0790c690-9267-6441-bc9c-d353ab16b428"] +Cell[BoxData["$Aborted"], "Output", + CellChangeTimes->{ + 3.991320428882721*^9, {3.994082214469574*^9, 3.994082264545432*^9}}, + CellLabel-> + "Out[472]=",ExpressionUUID->"55209329-590f-4177-92cb-c38eb178ce77"] }, Open ]], Cell[CellGroupData[{ @@ -6248,389 +6643,15 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9917994505623856`*^9},ExpressionUUID->"1834f328-2171-004d-99c2-\ -8b70b5354bda"], + CellChangeTimes->{3.9917994505623856`*^9}, + CellLabel-> + "In[370]:=",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:eJwV1nk0VlsfB3BzGRvMROZSmYdosH8ZMo+lzOlxnmMqRLmKDAm3awi5pVGF -kgyZmpRX6UookiJFxueR4TGekPBuf5x11mftc77nu/Zee68jTwt2onOwsbEN -42v1fuKD+pYnrR+MDHnrTapmKWTEytOjmRYhxNm3XIndm6OfpWT6AnmW6muu -2oF4zyOg8x/q1H7bUY5dFhFTx23ajD41ZVKPsC/US9TGFH5Elh+vXijBftZ6 -4tYf7c9oTcX3Sw+xR7oao05Xd6I3C+4iBdhSQ4ruv0y+o5X9Evx52NYTUYZh -zT+QhPPGiBzsmj8j/BGFfchyzsr9GvaXOPHIx0ED6IZkXWUWNovHdGRWewix -vYo8n4bNkxLiqjPHQGr84Y1J2LIbbjacqB5Gr9UrEmOx7aR/3WOZjKE0l8Wj -IdjkbQUxtbUspGjBG+eLHaNsnxDYPIHeDxwR88LuFG/XOlk4hTQ5WbmW2IRb -gP+llGnUr696wwh78gbbnfKgGXQjvJJPB3utgtr6KW0KiSTXWUlhZxF15utF -fyHnL9abBLHl7rvGaMz9QjlSasTKDIUMdiSyjlfPI+0UrsP92H76P5pHTP6g -9hCnd3ewZyNOcfGpLCE73XHbdOzYav49qmuXkfSJOYto7GwweOjbvIISj/ve -dcEm8htMQwvZwS9KbIAHu7D+Um+cNAfk+6ZKT03jvkyvqIwUDog9m97YhR21 -jap4FMQJVYetU4qws0rlFSe0uYEVxpdjid3VOlaznMsNS5UuKRrYctNP3IRE -eUCa7dCkCHaRrl2m2hwP6C+EbOqZotCbZ2fYj1WvBbEXldwB2FTdpx/DJgKg -F6ki7zdJoY02AusjawRgYDkj2Rhbs90UBA0F4T2dw3kTdsBg1W0tdSGwcdrI -/WGCQiEczZp7BdaDJHztUsUeUiiZSvi1AXaqvCXqxvH8kI28LTobwSgjq+4S -NsdDhrzEiY1wgWM+zgdbTmezU+HoRhD5/kCGHdvNJL38Q68wvFvp+ag7RqEW -n9Aw8SZRmMxV3Rk9QqGe+2nJ3mvFIPCyb5Yp9thoYe4DMzEQs2U58mHznRz4 -tLtWDCb2r2Fd+kkh0/MHdb2rxEH5xNuHOcMUep6nTxXkSIJkxrjFVQaF8oZ+ -h+86KQPr7JcCRfspZOGc1BNWLAPX9uwWed+H898I7y9myIBIV732eWzdvB2i -cq6y4Jr+p22yF88nzauC22gzLO71vFP3g0LTE71/DcfLwY562XP23RQSPm5a -WWGrAK7KS8/YOinEyOPzcwhQgFtncszvd1Do6fdW6fFEBTAj/G1tsT1sPONV -ahWgIL7q1ZUvuN/2cKer2orQJ7xip/IZf3/k/mS0uBIExajwb2uj0EFffjWr -PmUwKRRNaG6iEAp31j68pAym9kYOBPa2hJydhKQKeEXOX1tspBBbro5xtKMK -ZBkElG7FLu5xP1z+SgXCr5h9iWrA+/NQUZzU3S3AXqazQ/A/3M/U9ssITRUW -i37FfHhJIWmFizHJgztgeLrHuLOYQi/+mVVd4FADY8HCtWbYHjOu7aS8GvC/ -C95bVkShW2+UVI291KCQhzab9JBCCr7P2+Y71KDv8pbr6g9wv6IhZbJJHZby -XjK88ygkIy1LyrlqAqdZnr3bNQrtyD8psIi0QWP93r/vn6cQjYin1Oy0IU1p -u+FSPN5fipk93h7acHl0PNQJm/Nu6aP6CG24G0DGLcbh/XFr5GBmmTZ0jbkI -WsTg8y/b+6aqog6Efd222Hgar0eyjboLjy7Euhuwnw6i0J1QJYeqZj2Q4Ow4 -F3WIQq3haOf5fEOQXFeben0TheS9Ptt5HtsLH9vctWK/zyL6yuMSmdMA65Jc -z7dfm0Xio0/XiNOMIVXyvuWU7Sw6qbPne+Y2U7iYxBOfyD6LaON/GoRHzCC6 -Vjp2tHwGFRuHrclpMYfpu0mWu9xmUN5swKuiLEvIyS2omuKaQfP7JN6/ibGG -hKTU7afvTaNuNs6pvqO28Gl3Ce9Ri2kUtCk4PU7RHtbYRZWwT06hEv+G2n8T -HGBCrENROH0KnZmRnNvu7whj1rLnKP0pRFntP/T2iBNY+0+wHemYRIbuGfuG -HA/AvWv1YQtnJlGb5M2ANzoHgZnomx+iMomk7sW/KNjqDO/UZa0YVyfQ095t -NnaCh2C75LCF/xwLybZP+oaPHwKDBGmRQQ8W0vk3oyi39zB4VyzZrqkeRze5 -ZtQz61wgyluQ95nqOHq8T6Mr4ZkrBNaYfmrOHEPZO//Z8KfQDYJ4NqvGc4+h -lm/5iTop7tBoMr/M+/coqrK9oRQS6wFmkb79izyjaOr4AbYgwhNMzEcPafw7 -gqj9qn4sEy84FkiPZ20fQQXjX+fD9I+AV+dNqqX2J3K5k+/jKeANm6OfDiT5 -/EQV5dZHOJO8oX45+NoD7p/IULpt4cKCN5yz6R1srhxGir2+XR/9j0Jh7EvP -b4HDaJA/0P7GwFH4KiSv1aA4jFrT7HzMnWlw9tjtV6JMJsqKyOE/1UqD6Usz -pwKLmOhFzcqCj6UPtKZnr587zUTrPCBJ57kPDGvpnd7tyERyIm9bNr3wgSP9 -WruyHZhIs9lWgqfGB3pf+R2n7JnIaY/7g85XPlCyErGtzA7nbwpvOvvOB9po -LctqNkwk1f1wXUOnDzCGngjuNWciJS/xbI85H7BxZJQ+2stEht6sggRdArTK -d5Pj25no3tXJMDt9Apr0r6cFY4t8mjYSNyBg5umY5PQ2JmKZzbUX7Cbguaan -67wqE583bOzNxgSwZxhE8m5lIqG5Da4bHQlQy+KwNFJiosFUPd6c4wQoDoUv -T21iIse3O9t9gwkYHBCKi8WuYduVo3mCgA+Wh8l12FfDjPRenyTA+NSUi7o0 -E9m5mh8diiTA6LVIT4gkEz1Tcn22/R8CivN9ybViTJRWHeX/9B4BXfuFaHHr -mOi49hXDiAICkK2+jiy2zYMyXoNCAuSvLtGqhZiI7wrjwZNiAg44+PT8EmSi -hFCHkceVBJSXeZiGCjBRlKpSYNVrAmgJV5rO8DJRwJWmY+U9BGRML1S3cTKR -pRBjT2gvAYvBTM9I7K0JbILa/QRku+/zUsJmhOoVlw0RAPG6Z/7iYKKjdjnj -j8YImE9mySqwM5ELd1hQ6W8CCLEAqQvLDGQeJhVSJEaH1tCMlpsLDPQ6J9Eq -U4IOaz5u+myNvad5WilCig6jxdmWv+cZSFO56auJLB0G9NxjXLAlOyJNvinT -IVG3W0YK/yeN7uoW49Ojg8pFf+XyWQa6yHH7pe8BOjjXPz2gN8lAfBoC2bbO -dNgyj3SnJhjovHtEqM5hOvBaJ8YXY0dUOmxZcaPD5mdWQVuwj5LsGZdpdDg4 -nXxSjsVAOo004r8TdHD7WWu8ZYyBOjKU+RXT6SAkNvU9aZiBSpCg33AGHXoM -6zSdsc+Pz74pvkSHA7K9gwrY2pZvog2u0MEi9tfx/zEZKI3NZ9r2Fh3e+kdx -LjEYaH/w7a8RRXRo+2vr7n+GGEhG5m99oxI6LPvsueSJPdsYfInzER2CdFKt -tbDvqiDbtAo6mEP/96+DDLTU3V2b+5wOGm0m5zSwK22kCz400CEzyqBjrJ+B -kn9zcGc10qFA56V2PTatYOSoazMdmu6HsnKw13M9lx5soYPJ72OJB7GPVbtc -XPhChyLBFIPXfQykuO1yuNIQHTZ8+JFX2stAvzvOfvrJoMNVxmbOi9itCXTN -0mE6BDsmvgrCju7THTEcowOtts5LA7sr+5On/Qwd2tsnpap+MFDmmg1mZ9hJ -WKuQfbWth4FeTHe7n+QkIZD3IrMSm9ldGBrETULideviK9h7Kk1v03hJ+Cgs -fNsLm+EdsWi1gYQvOu8UprtxfxuzjWbCJDCMvql3Yu/euVEViZJA9heX12Cn -CxYd0pEkIeJmpnzq6vjzH2XS8iRwbbW6oYFN5hc1iCqS0LbFkZRcfT799I91 -yiRc8xAp4MRmkMKCXKokfPd9n/n1Ox4XNvcb0ySBVfKHKxn7+bJwDEObhCOs -jpQI7KGfvf/26pIwWxKYQmLvqj1T125AQqdg9bQJ9uCxEtmXQILfQZY7F7aQ -S6TeE2MSHl4/d4f6xkCGJhY2ZaYkCHk3ezGx0yT7T+dbkBC9MQaasZ9ylabn -WJGQ5c0k/oc9MBF5/6oN7j/KyV6BbVAv+jnVgQSU7XL7OjatrH80yYmEUxrp -uenYqTdKOc4dxPM1cUY2Ebs/1FIz3IUEmTm/yFBsQS8x8xA3EqbfBXr6r+ZZ -DngGeJBg3iP3xHv1/c1nk728Sehhv/PRYbUPn9VdFxoJtIrATMvVPErsmRNB -QukIs9F4Na9voMWGJKEuRjRyz2pe8yPGfj8S6Lazd/VX+z05uwQBJKzROm+s -tZp/10pk9zHcj+8/1x2r+ani2/WCSJCteTy8ZTU/YnCfRggJbpquE4rYAkSZ -i2ooCUZWRcflsHfaRwcrnsR5c6U+Mqv5u6wTZcJJqFEiPkphpyhL3BSPIGH3 -m4bHEtiP1w9VbDhDgui7bmFx7L7Fskb+KBIyVXOHRVfzmdF93NEkTPRI6K1a -v816fiUGr+eg0YII9v8BEOUgTQ== - "]]}, - Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, - {"WolframDynamicHighlight", <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], - StyleBox[ - DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, - Slot["HighlightElements"], - Slot["LayoutOptions"], - Slot["Meta"], - Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, - Annotation[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]], - Line[CompressedData[" -1:eJwV1nk0VlsfB3BzGRvMROZSmYdosH8ZMo+lzOlxnmMqRLmKDAm3awi5pVGF -kgyZmpRX6UookiJFxueR4TGekPBuf5x11mftc77nu/Zee68jTwt2onOwsbEN -42v1fuKD+pYnrR+MDHnrTapmKWTEytOjmRYhxNm3XIndm6OfpWT6AnmW6muu -2oF4zyOg8x/q1H7bUY5dFhFTx23ajD41ZVKPsC/US9TGFH5Elh+vXijBftZ6 -4tYf7c9oTcX3Sw+xR7oao05Xd6I3C+4iBdhSQ4ruv0y+o5X9Evx52NYTUYZh -zT+QhPPGiBzsmj8j/BGFfchyzsr9GvaXOPHIx0ED6IZkXWUWNovHdGRWewix -vYo8n4bNkxLiqjPHQGr84Y1J2LIbbjacqB5Gr9UrEmOx7aR/3WOZjKE0l8Wj -IdjkbQUxtbUspGjBG+eLHaNsnxDYPIHeDxwR88LuFG/XOlk4hTQ5WbmW2IRb -gP+llGnUr696wwh78gbbnfKgGXQjvJJPB3utgtr6KW0KiSTXWUlhZxF15utF -fyHnL9abBLHl7rvGaMz9QjlSasTKDIUMdiSyjlfPI+0UrsP92H76P5pHTP6g -9hCnd3ewZyNOcfGpLCE73XHbdOzYav49qmuXkfSJOYto7GwweOjbvIISj/ve -dcEm8htMQwvZwS9KbIAHu7D+Um+cNAfk+6ZKT03jvkyvqIwUDog9m97YhR21 -jap4FMQJVYetU4qws0rlFSe0uYEVxpdjid3VOlaznMsNS5UuKRrYctNP3IRE -eUCa7dCkCHaRrl2m2hwP6C+EbOqZotCbZ2fYj1WvBbEXldwB2FTdpx/DJgKg -F6ki7zdJoY02AusjawRgYDkj2Rhbs90UBA0F4T2dw3kTdsBg1W0tdSGwcdrI -/WGCQiEczZp7BdaDJHztUsUeUiiZSvi1AXaqvCXqxvH8kI28LTobwSgjq+4S -NsdDhrzEiY1wgWM+zgdbTmezU+HoRhD5/kCGHdvNJL38Q68wvFvp+ag7RqEW -n9Aw8SZRmMxV3Rk9QqGe+2nJ3mvFIPCyb5Yp9thoYe4DMzEQs2U58mHznRz4 -tLtWDCb2r2Fd+kkh0/MHdb2rxEH5xNuHOcMUep6nTxXkSIJkxrjFVQaF8oZ+ -h+86KQPr7JcCRfspZOGc1BNWLAPX9uwWed+H898I7y9myIBIV732eWzdvB2i -cq6y4Jr+p22yF88nzauC22gzLO71vFP3g0LTE71/DcfLwY562XP23RQSPm5a -WWGrAK7KS8/YOinEyOPzcwhQgFtncszvd1Do6fdW6fFEBTAj/G1tsT1sPONV -ahWgIL7q1ZUvuN/2cKer2orQJ7xip/IZf3/k/mS0uBIExajwb2uj0EFffjWr -PmUwKRRNaG6iEAp31j68pAym9kYOBPa2hJydhKQKeEXOX1tspBBbro5xtKMK -ZBkElG7FLu5xP1z+SgXCr5h9iWrA+/NQUZzU3S3AXqazQ/A/3M/U9ssITRUW -i37FfHhJIWmFizHJgztgeLrHuLOYQi/+mVVd4FADY8HCtWbYHjOu7aS8GvC/ -C95bVkShW2+UVI291KCQhzab9JBCCr7P2+Y71KDv8pbr6g9wv6IhZbJJHZby -XjK88ygkIy1LyrlqAqdZnr3bNQrtyD8psIi0QWP93r/vn6cQjYin1Oy0IU1p -u+FSPN5fipk93h7acHl0PNQJm/Nu6aP6CG24G0DGLcbh/XFr5GBmmTZ0jbkI -WsTg8y/b+6aqog6Efd222Hgar0eyjboLjy7Euhuwnw6i0J1QJYeqZj2Q4Ow4 -F3WIQq3haOf5fEOQXFeben0TheS9Ptt5HtsLH9vctWK/zyL6yuMSmdMA65Jc -z7dfm0Xio0/XiNOMIVXyvuWU7Sw6qbPne+Y2U7iYxBOfyD6LaON/GoRHzCC6 -Vjp2tHwGFRuHrclpMYfpu0mWu9xmUN5swKuiLEvIyS2omuKaQfP7JN6/ibGG -hKTU7afvTaNuNs6pvqO28Gl3Ce9Ri2kUtCk4PU7RHtbYRZWwT06hEv+G2n8T -HGBCrENROH0KnZmRnNvu7whj1rLnKP0pRFntP/T2iBNY+0+wHemYRIbuGfuG -HA/AvWv1YQtnJlGb5M2ANzoHgZnomx+iMomk7sW/KNjqDO/UZa0YVyfQ095t -NnaCh2C75LCF/xwLybZP+oaPHwKDBGmRQQ8W0vk3oyi39zB4VyzZrqkeRze5 -ZtQz61wgyluQ95nqOHq8T6Mr4ZkrBNaYfmrOHEPZO//Z8KfQDYJ4NqvGc4+h -lm/5iTop7tBoMr/M+/coqrK9oRQS6wFmkb79izyjaOr4AbYgwhNMzEcPafw7 -gqj9qn4sEy84FkiPZ20fQQXjX+fD9I+AV+dNqqX2J3K5k+/jKeANm6OfDiT5 -/EQV5dZHOJO8oX45+NoD7p/IULpt4cKCN5yz6R1srhxGir2+XR/9j0Jh7EvP -b4HDaJA/0P7GwFH4KiSv1aA4jFrT7HzMnWlw9tjtV6JMJsqKyOE/1UqD6Usz -pwKLmOhFzcqCj6UPtKZnr587zUTrPCBJ57kPDGvpnd7tyERyIm9bNr3wgSP9 -WruyHZhIs9lWgqfGB3pf+R2n7JnIaY/7g85XPlCyErGtzA7nbwpvOvvOB9po -LctqNkwk1f1wXUOnDzCGngjuNWciJS/xbI85H7BxZJQ+2stEht6sggRdArTK -d5Pj25no3tXJMDt9Apr0r6cFY4t8mjYSNyBg5umY5PQ2JmKZzbUX7Cbguaan -67wqE583bOzNxgSwZxhE8m5lIqG5Da4bHQlQy+KwNFJiosFUPd6c4wQoDoUv -T21iIse3O9t9gwkYHBCKi8WuYduVo3mCgA+Wh8l12FfDjPRenyTA+NSUi7o0 -E9m5mh8diiTA6LVIT4gkEz1Tcn22/R8CivN9ybViTJRWHeX/9B4BXfuFaHHr -mOi49hXDiAICkK2+jiy2zYMyXoNCAuSvLtGqhZiI7wrjwZNiAg44+PT8EmSi -hFCHkceVBJSXeZiGCjBRlKpSYNVrAmgJV5rO8DJRwJWmY+U9BGRML1S3cTKR -pRBjT2gvAYvBTM9I7K0JbILa/QRku+/zUsJmhOoVlw0RAPG6Z/7iYKKjdjnj -j8YImE9mySqwM5ELd1hQ6W8CCLEAqQvLDGQeJhVSJEaH1tCMlpsLDPQ6J9Eq -U4IOaz5u+myNvad5WilCig6jxdmWv+cZSFO56auJLB0G9NxjXLAlOyJNvinT -IVG3W0YK/yeN7uoW49Ojg8pFf+XyWQa6yHH7pe8BOjjXPz2gN8lAfBoC2bbO -dNgyj3SnJhjovHtEqM5hOvBaJ8YXY0dUOmxZcaPD5mdWQVuwj5LsGZdpdDg4 -nXxSjsVAOo004r8TdHD7WWu8ZYyBOjKU+RXT6SAkNvU9aZiBSpCg33AGHXoM -6zSdsc+Pz74pvkSHA7K9gwrY2pZvog2u0MEi9tfx/zEZKI3NZ9r2Fh3e+kdx -LjEYaH/w7a8RRXRo+2vr7n+GGEhG5m99oxI6LPvsueSJPdsYfInzER2CdFKt -tbDvqiDbtAo6mEP/96+DDLTU3V2b+5wOGm0m5zSwK22kCz400CEzyqBjrJ+B -kn9zcGc10qFA56V2PTatYOSoazMdmu6HsnKw13M9lx5soYPJ72OJB7GPVbtc -XPhChyLBFIPXfQykuO1yuNIQHTZ8+JFX2stAvzvOfvrJoMNVxmbOi9itCXTN -0mE6BDsmvgrCju7THTEcowOtts5LA7sr+5On/Qwd2tsnpap+MFDmmg1mZ9hJ -WKuQfbWth4FeTHe7n+QkIZD3IrMSm9ldGBrETULideviK9h7Kk1v03hJ+Cgs -fNsLm+EdsWi1gYQvOu8UprtxfxuzjWbCJDCMvql3Yu/euVEViZJA9heX12Cn -CxYd0pEkIeJmpnzq6vjzH2XS8iRwbbW6oYFN5hc1iCqS0LbFkZRcfT799I91 -yiRc8xAp4MRmkMKCXKokfPd9n/n1Ox4XNvcb0ySBVfKHKxn7+bJwDEObhCOs -jpQI7KGfvf/26pIwWxKYQmLvqj1T125AQqdg9bQJ9uCxEtmXQILfQZY7F7aQ -S6TeE2MSHl4/d4f6xkCGJhY2ZaYkCHk3ezGx0yT7T+dbkBC9MQaasZ9ylabn -WJGQ5c0k/oc9MBF5/6oN7j/KyV6BbVAv+jnVgQSU7XL7OjatrH80yYmEUxrp -uenYqTdKOc4dxPM1cUY2Ebs/1FIz3IUEmTm/yFBsQS8x8xA3EqbfBXr6r+ZZ -DngGeJBg3iP3xHv1/c1nk728Sehhv/PRYbUPn9VdFxoJtIrATMvVPErsmRNB -QukIs9F4Na9voMWGJKEuRjRyz2pe8yPGfj8S6Lazd/VX+z05uwQBJKzROm+s -tZp/10pk9zHcj+8/1x2r+ani2/WCSJCteTy8ZTU/YnCfRggJbpquE4rYAkSZ -i2ooCUZWRcflsHfaRwcrnsR5c6U+Mqv5u6wTZcJJqFEiPkphpyhL3BSPIGH3 -m4bHEtiP1w9VbDhDgui7bmFx7L7Fskb+KBIyVXOHRVfzmdF93NEkTPRI6K1a -v816fiUGr+eg0YII9v8BEOUgTQ== - "]]}, "Charting`Private`Tag#1"]}}, {}}, <| - "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, - "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.7142433994369197, 1.372243180027523}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.7142433994369213}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, - "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), - "DefaultStyle" -> { - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]]}, - "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ - Part[#, 1]], - Identity[ - Part[#, 2]]}& ), - "ScalingFunctions" -> {{Identity, Identity}, { - Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> - False|>, - "Meta" -> <| - "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> - Plot, "GroupHighlight" -> False|>|>]]& )[<| - "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, - "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.7142433994369197, 1.372243180027523}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.7142433994369213}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, - "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), - "DefaultStyle" -> { - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]]}, - "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ - Part[#, 1]], - Identity[ - Part[#, 2]]}& ), - "ScalingFunctions" -> {{Identity, Identity}, { - Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, - "Meta" -> <| - "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> - Plot, "GroupHighlight" -> False|>|>], - ImageSizeCache->{{91.80048673422974, - 202.74756866009872`}, {-11.626778089982832`, 5.710721910017167}}], - Selectable->False]}, - Annotation[{{{{}, {}, - Annotation[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]], - Line[CompressedData[" -1:eJwV1nk0VlsfB3BzGRvMROZSmYdosH8ZMo+lzOlxnmMqRLmKDAm3awi5pVGF -kgyZmpRX6UookiJFxueR4TGekPBuf5x11mftc77nu/Zee68jTwt2onOwsbEN -42v1fuKD+pYnrR+MDHnrTapmKWTEytOjmRYhxNm3XIndm6OfpWT6AnmW6muu -2oF4zyOg8x/q1H7bUY5dFhFTx23ajD41ZVKPsC/US9TGFH5Elh+vXijBftZ6 -4tYf7c9oTcX3Sw+xR7oao05Xd6I3C+4iBdhSQ4ruv0y+o5X9Evx52NYTUYZh -zT+QhPPGiBzsmj8j/BGFfchyzsr9GvaXOPHIx0ED6IZkXWUWNovHdGRWewix -vYo8n4bNkxLiqjPHQGr84Y1J2LIbbjacqB5Gr9UrEmOx7aR/3WOZjKE0l8Wj -IdjkbQUxtbUspGjBG+eLHaNsnxDYPIHeDxwR88LuFG/XOlk4hTQ5WbmW2IRb -gP+llGnUr696wwh78gbbnfKgGXQjvJJPB3utgtr6KW0KiSTXWUlhZxF15utF -fyHnL9abBLHl7rvGaMz9QjlSasTKDIUMdiSyjlfPI+0UrsP92H76P5pHTP6g -9hCnd3ewZyNOcfGpLCE73XHbdOzYav49qmuXkfSJOYto7GwweOjbvIISj/ve -dcEm8htMQwvZwS9KbIAHu7D+Um+cNAfk+6ZKT03jvkyvqIwUDog9m97YhR21 -jap4FMQJVYetU4qws0rlFSe0uYEVxpdjid3VOlaznMsNS5UuKRrYctNP3IRE -eUCa7dCkCHaRrl2m2hwP6C+EbOqZotCbZ2fYj1WvBbEXldwB2FTdpx/DJgKg -F6ki7zdJoY02AusjawRgYDkj2Rhbs90UBA0F4T2dw3kTdsBg1W0tdSGwcdrI -/WGCQiEczZp7BdaDJHztUsUeUiiZSvi1AXaqvCXqxvH8kI28LTobwSgjq+4S -NsdDhrzEiY1wgWM+zgdbTmezU+HoRhD5/kCGHdvNJL38Q68wvFvp+ag7RqEW -n9Aw8SZRmMxV3Rk9QqGe+2nJ3mvFIPCyb5Yp9thoYe4DMzEQs2U58mHznRz4 -tLtWDCb2r2Fd+kkh0/MHdb2rxEH5xNuHOcMUep6nTxXkSIJkxrjFVQaF8oZ+ -h+86KQPr7JcCRfspZOGc1BNWLAPX9uwWed+H898I7y9myIBIV732eWzdvB2i -cq6y4Jr+p22yF88nzauC22gzLO71vFP3g0LTE71/DcfLwY562XP23RQSPm5a -WWGrAK7KS8/YOinEyOPzcwhQgFtncszvd1Do6fdW6fFEBTAj/G1tsT1sPONV -ahWgIL7q1ZUvuN/2cKer2orQJ7xip/IZf3/k/mS0uBIExajwb2uj0EFffjWr -PmUwKRRNaG6iEAp31j68pAym9kYOBPa2hJydhKQKeEXOX1tspBBbro5xtKMK -ZBkElG7FLu5xP1z+SgXCr5h9iWrA+/NQUZzU3S3AXqazQ/A/3M/U9ssITRUW -i37FfHhJIWmFizHJgztgeLrHuLOYQi/+mVVd4FADY8HCtWbYHjOu7aS8GvC/ -C95bVkShW2+UVI291KCQhzab9JBCCr7P2+Y71KDv8pbr6g9wv6IhZbJJHZby -XjK88ygkIy1LyrlqAqdZnr3bNQrtyD8psIi0QWP93r/vn6cQjYin1Oy0IU1p -u+FSPN5fipk93h7acHl0PNQJm/Nu6aP6CG24G0DGLcbh/XFr5GBmmTZ0jbkI -WsTg8y/b+6aqog6Efd222Hgar0eyjboLjy7Euhuwnw6i0J1QJYeqZj2Q4Ow4 -F3WIQq3haOf5fEOQXFeben0TheS9Ptt5HtsLH9vctWK/zyL6yuMSmdMA65Jc -z7dfm0Xio0/XiNOMIVXyvuWU7Sw6qbPne+Y2U7iYxBOfyD6LaON/GoRHzCC6 -Vjp2tHwGFRuHrclpMYfpu0mWu9xmUN5swKuiLEvIyS2omuKaQfP7JN6/ibGG -hKTU7afvTaNuNs6pvqO28Gl3Ce9Ri2kUtCk4PU7RHtbYRZWwT06hEv+G2n8T -HGBCrENROH0KnZmRnNvu7whj1rLnKP0pRFntP/T2iBNY+0+wHemYRIbuGfuG -HA/AvWv1YQtnJlGb5M2ANzoHgZnomx+iMomk7sW/KNjqDO/UZa0YVyfQ095t -NnaCh2C75LCF/xwLybZP+oaPHwKDBGmRQQ8W0vk3oyi39zB4VyzZrqkeRze5 -ZtQz61wgyluQ95nqOHq8T6Mr4ZkrBNaYfmrOHEPZO//Z8KfQDYJ4NqvGc4+h -lm/5iTop7tBoMr/M+/coqrK9oRQS6wFmkb79izyjaOr4AbYgwhNMzEcPafw7 -gqj9qn4sEy84FkiPZ20fQQXjX+fD9I+AV+dNqqX2J3K5k+/jKeANm6OfDiT5 -/EQV5dZHOJO8oX45+NoD7p/IULpt4cKCN5yz6R1srhxGir2+XR/9j0Jh7EvP -b4HDaJA/0P7GwFH4KiSv1aA4jFrT7HzMnWlw9tjtV6JMJsqKyOE/1UqD6Usz -pwKLmOhFzcqCj6UPtKZnr587zUTrPCBJ57kPDGvpnd7tyERyIm9bNr3wgSP9 -WruyHZhIs9lWgqfGB3pf+R2n7JnIaY/7g85XPlCyErGtzA7nbwpvOvvOB9po -LctqNkwk1f1wXUOnDzCGngjuNWciJS/xbI85H7BxZJQ+2stEht6sggRdArTK -d5Pj25no3tXJMDt9Apr0r6cFY4t8mjYSNyBg5umY5PQ2JmKZzbUX7Cbguaan -67wqE583bOzNxgSwZxhE8m5lIqG5Da4bHQlQy+KwNFJiosFUPd6c4wQoDoUv -T21iIse3O9t9gwkYHBCKi8WuYduVo3mCgA+Wh8l12FfDjPRenyTA+NSUi7o0 -E9m5mh8diiTA6LVIT4gkEz1Tcn22/R8CivN9ybViTJRWHeX/9B4BXfuFaHHr -mOi49hXDiAICkK2+jiy2zYMyXoNCAuSvLtGqhZiI7wrjwZNiAg44+PT8EmSi -hFCHkceVBJSXeZiGCjBRlKpSYNVrAmgJV5rO8DJRwJWmY+U9BGRML1S3cTKR -pRBjT2gvAYvBTM9I7K0JbILa/QRku+/zUsJmhOoVlw0RAPG6Z/7iYKKjdjnj -j8YImE9mySqwM5ELd1hQ6W8CCLEAqQvLDGQeJhVSJEaH1tCMlpsLDPQ6J9Eq -U4IOaz5u+myNvad5WilCig6jxdmWv+cZSFO56auJLB0G9NxjXLAlOyJNvinT -IVG3W0YK/yeN7uoW49Ojg8pFf+XyWQa6yHH7pe8BOjjXPz2gN8lAfBoC2bbO -dNgyj3SnJhjovHtEqM5hOvBaJ8YXY0dUOmxZcaPD5mdWQVuwj5LsGZdpdDg4 -nXxSjsVAOo004r8TdHD7WWu8ZYyBOjKU+RXT6SAkNvU9aZiBSpCg33AGHXoM -6zSdsc+Pz74pvkSHA7K9gwrY2pZvog2u0MEi9tfx/zEZKI3NZ9r2Fh3e+kdx -LjEYaH/w7a8RRXRo+2vr7n+GGEhG5m99oxI6LPvsueSJPdsYfInzER2CdFKt -tbDvqiDbtAo6mEP/96+DDLTU3V2b+5wOGm0m5zSwK22kCz400CEzyqBjrJ+B -kn9zcGc10qFA56V2PTatYOSoazMdmu6HsnKw13M9lx5soYPJ72OJB7GPVbtc -XPhChyLBFIPXfQykuO1yuNIQHTZ8+JFX2stAvzvOfvrJoMNVxmbOi9itCXTN -0mE6BDsmvgrCju7THTEcowOtts5LA7sr+5On/Qwd2tsnpap+MFDmmg1mZ9hJ -WKuQfbWth4FeTHe7n+QkIZD3IrMSm9ldGBrETULideviK9h7Kk1v03hJ+Cgs -fNsLm+EdsWi1gYQvOu8UprtxfxuzjWbCJDCMvql3Yu/euVEViZJA9heX12Cn -CxYd0pEkIeJmpnzq6vjzH2XS8iRwbbW6oYFN5hc1iCqS0LbFkZRcfT799I91 -yiRc8xAp4MRmkMKCXKokfPd9n/n1Ox4XNvcb0ySBVfKHKxn7+bJwDEObhCOs -jpQI7KGfvf/26pIwWxKYQmLvqj1T125AQqdg9bQJ9uCxEtmXQILfQZY7F7aQ -S6TeE2MSHl4/d4f6xkCGJhY2ZaYkCHk3ezGx0yT7T+dbkBC9MQaasZ9ylabn -WJGQ5c0k/oc9MBF5/6oN7j/KyV6BbVAv+jnVgQSU7XL7OjatrH80yYmEUxrp -uenYqTdKOc4dxPM1cUY2Ebs/1FIz3IUEmTm/yFBsQS8x8xA3EqbfBXr6r+ZZ -DngGeJBg3iP3xHv1/c1nk728Sehhv/PRYbUPn9VdFxoJtIrATMvVPErsmRNB -QukIs9F4Na9voMWGJKEuRjRyz2pe8yPGfj8S6Lazd/VX+z05uwQBJKzROm+s -tZp/10pk9zHcj+8/1x2r+ani2/WCSJCteTy8ZTU/YnCfRggJbpquE4rYAkSZ -i2ooCUZWRcflsHfaRwcrnsR5c6U+Mqv5u6wTZcJJqFEiPkphpyhL3BSPIGH3 -m4bHEtiP1w9VbDhDgui7bmFx7L7Fskb+KBIyVXOHRVfzmdF93NEkTPRI6K1a -v816fiUGr+eg0YII9v8BEOUgTQ== - "]]}, "Charting`Private`Tag#1"]}}, {}}, <| - "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, - "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.7142433994369197, 1.372243180027523}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.7142433994369213}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, - "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]]}, - "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ - Part[#, 1]], - Identity[ - Part[#, 2]]}& ), - "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, - "Primitives" -> {}, "GCFlag" -> False|>, - "Meta" -> <| - "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> - Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], - AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes->{True, True}, - AxesLabel->{None, None}, - AxesOrigin->{0, 0.7142433994369213}, - DisplayFunction->Identity, - Frame->{{False, False}, {False, False}}, - FrameLabel->{{None, None}, {None, None}}, - FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, - GridLines->{None, None}, - GridLinesStyle->Directive[ - GrayLevel[0.5, 0.4]], - ImagePadding->All, - Method->{ - "DefaultBoundaryStyle" -> Automatic, - "DefaultGraphicsInteraction" -> { - "Version" -> 1.2, "TrackMousePosition" -> {True, False}, - "Effects" -> { - "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, - "Droplines" -> { - "freeformCursorMode" -> True, - "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> - AbsolutePointSize[6], "ScalingFunctions" -> None, - "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Identity[#]& )[ - Part[#, 1]], - (Identity[#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - (Identity[#]& )[ - Part[#, 1]], - (Identity[#]& )[ - Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.7142433994369197, 1.372243180027523}}, - PlotRangeClipping->True, - PlotRangePadding->{{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.05]}}, - Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913206956809444`*^9}, - CellLabel->"Out[85]=",ExpressionUUID->"5d2ddb35-b7b8-514c-917f-fcc77dc8600c"] +Cell[BoxData["$Aborted"], "Output", + CellChangeTimes->{ + 3.9913206956809444`*^9, {3.9940822218544197`*^9, 3.994082258208984*^9}}, + CellLabel-> + "Out[370]=",ExpressionUUID->"16a76c66-3d75-46b0-a19d-62ade5ebdabc"] }, Open ]], Cell[CellGroupData[{ @@ -7516,9 +7537,72 @@ HbLGog== Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", - RowBox[{"{", "}"}], "]"}]}]], "Input", - CellChangeTimes->{{3.991799458254999*^9, - 3.9917994623413925`*^9}},ExpressionUUID->"d9d63445-4981-8f49-b88b-\ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.005193"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.015406"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.025113"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.034006"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.041831"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.048382"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.053535"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.057218"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.059449"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.060284"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.059853"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.058305"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.055833"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.052623"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.048884"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.044792"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.040528"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.03623"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.032028"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.02801"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.024253"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.020798"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.017676"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.014891"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.012445"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.010316"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.00849"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.006935"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.005627"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.004534"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.003631"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.994084153728354*^9},ExpressionUUID->"d9d63445-4981-8f49-b88b-\ 9e93d345c648"], Cell[BoxData[ @@ -8822,6 +8906,7 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", + CellChangeTimes->{3.994084200822302*^9}, CellLabel-> "In[102]:=",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], @@ -13681,11 +13766,11 @@ Cell[BoxData["0.08333108480569339`"], "Output", "Out[146]=",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"] }, Open ]] }, -WindowSize->{718.5, 729.75}, -WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +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)", +Magnification:>1.8 Inherited, +FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", StyleDefinitions->"Default.nb", ExpressionUUID->"8af74bcb-cc50-f64a-8d83-c4bf7188d038" ] @@ -13701,624 +13786,660 @@ CellTagsIndex->{} (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ -Cell[576, 22, 229, 5, 22, "Input",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], -Cell[808, 29, 149, 2, 25, "Output",ExpressionUUID->"2e7f3b17-b448-644d-bafd-ec5aa11fe78b"] +Cell[576, 22, 357, 7, 119, "Input",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], +Cell[936, 31, 232, 5, 75, "Output",ExpressionUUID->"92f49e10-533c-4895-8227-9d625a4d69aa"] }, Open ]], Cell[CellGroupData[{ -Cell[994, 36, 179, 4, 22, "Input",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], -Cell[1176, 42, 152, 2, 25, "Output",ExpressionUUID->"d21d7bec-caad-aa4f-9200-81feafc4acec"] +Cell[1205, 41, 250, 5, 66, "Input",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], +Cell[1458, 48, 232, 5, 75, "Output",ExpressionUUID->"0cc75d92-f172-49f1-af02-d0fe714b7c1a"] }, Open ]], Cell[CellGroupData[{ -Cell[1365, 49, 147, 4, 22, "Input",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], -Cell[1515, 55, 152, 2, 25, "Output",ExpressionUUID->"a2a1281d-2cdd-5d4c-b7c6-d26236e66b80"] +Cell[1727, 58, 228, 5, 66, "Input",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], +Cell[1958, 65, 234, 5, 75, "Output",ExpressionUUID->"0a529fc7-b82a-4b77-826b-ce12e09db9d8"] }, Open ]], Cell[CellGroupData[{ -Cell[1704, 62, 175, 3, 22, "Input",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], -Cell[1882, 67, 152, 2, 25, "Output",ExpressionUUID->"4fa6d65b-1d5c-4f45-949a-d7045f28de30"] +Cell[2229, 75, 180, 4, 66, "Input",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], +Cell[2412, 81, 232, 5, 75, "Output",ExpressionUUID->"a240a871-a81b-4828-b217-62f42d3e6cad"] }, Open ]], Cell[CellGroupData[{ -Cell[2071, 74, 257, 7, 35, "Input",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], -Cell[2331, 83, 168, 2, 25, "Output",ExpressionUUID->"24d0db1b-9e75-3c46-9c8c-13704f881794"] +Cell[2681, 91, 262, 8, 96, "Input",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], +Cell[2946, 101, 237, 5, 75, "Output",ExpressionUUID->"ea8958cd-1f07-4fa3-a535-21044c2aeef1"] }, Open ]], Cell[CellGroupData[{ -Cell[2536, 90, 131, 2, 22, "Input",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], -Cell[2670, 94, 154, 2, 25, "Output",ExpressionUUID->"d898610f-2407-1a40-9f24-5be2dcfa557e"] +Cell[3220, 111, 136, 3, 66, "Input",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], +Cell[3359, 116, 233, 5, 75, "Output",ExpressionUUID->"63e2d5e5-72a0-4e84-a043-72de8f80f600"] }, Open ]], Cell[CellGroupData[{ -Cell[2861, 101, 276, 6, 22, "Input",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], -Cell[3140, 109, 167, 2, 25, "Output",ExpressionUUID->"27ff60eb-7aa7-9949-984d-d71d79c10129"] +Cell[3629, 126, 281, 7, 66, "Input",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], +Cell[3913, 135, 248, 5, 75, "Output",ExpressionUUID->"c7baef21-5c80-41c7-b8a2-73b0b22c9000"] }, Open ]], Cell[CellGroupData[{ -Cell[3344, 116, 257, 7, 22, "Input",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], -Cell[3604, 125, 167, 2, 25, "Output",ExpressionUUID->"2b4ba32a-ab7d-7140-a043-bb4487278822"] +Cell[4198, 145, 262, 8, 66, "Input",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], +Cell[4463, 155, 248, 5, 75, "Output",ExpressionUUID->"bada540b-f688-4880-b784-78f4bfe25248"] }, Open ]], -Cell[3786, 130, 147, 4, 22, "Input",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], -Cell[3936, 136, 147, 4, 22, "Input",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], Cell[CellGroupData[{ -Cell[4108, 144, 129, 2, 22, "Input",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], -Cell[4240, 148, 151, 2, 25, "Output",ExpressionUUID->"3d15ce67-15c8-f549-9c13-b8dddf0b6641"] +Cell[4748, 165, 208, 4, 66, "Input",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], +Cell[4959, 171, 218, 4, 75, "Output",ExpressionUUID->"826c2028-43b6-493e-a1d4-a979bf302a2b"] }, Open ]], Cell[CellGroupData[{ -Cell[4428, 155, 129, 2, 22, "Input",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], -Cell[4560, 159, 151, 2, 25, "Output",ExpressionUUID->"8f7b3ab0-4d46-6e46-be1a-60df9a3dcebd"] +Cell[5214, 180, 210, 4, 66, "Input",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], +Cell[5427, 186, 214, 4, 75, "Output",ExpressionUUID->"3dabc3f7-ec02-453a-ae26-458be204b325"] }, Open ]], Cell[CellGroupData[{ -Cell[4748, 166, 557, 19, 65, "Input",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], -Cell[5308, 187, 169, 2, 25, "Output",ExpressionUUID->"d0cab83a-649b-b14c-b85b-84835124aa09"] +Cell[5678, 195, 133, 3, 66, "Input",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], +Cell[5814, 200, 232, 5, 75, "Output",ExpressionUUID->"02204c7c-37a4-44a6-89aa-0b946579fc77"] }, Open ]], Cell[CellGroupData[{ -Cell[5514, 194, 557, 19, 65, "Input",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], -Cell[6074, 215, 168, 2, 25, "Output",ExpressionUUID->"81304ae5-6353-154d-8b14-59a2dc55038b"] +Cell[6083, 210, 133, 3, 66, "Input",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], +Cell[6219, 215, 232, 5, 75, "Output",ExpressionUUID->"d976ecb2-9be0-4097-8078-cc338cac051e"] }, Open ]], Cell[CellGroupData[{ -Cell[6279, 222, 1492, 48, 65, "Input",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], -Cell[7774, 272, 167, 2, 25, "Output",ExpressionUUID->"bdbb5f17-757a-b84a-b3ac-6309844818bf"] +Cell[6488, 225, 561, 20, 175, "Input",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], +Cell[7052, 247, 249, 5, 75, "Output",ExpressionUUID->"bc5faa54-82a7-408a-93ab-470e75a32ee6"] }, Open ]], Cell[CellGroupData[{ -Cell[7978, 279, 1331, 44, 65, "Input",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], -Cell[9312, 325, 185, 3, 25, "Output",ExpressionUUID->"1dd72b7b-aeff-8747-91d0-6842e926f3b2"] +Cell[7338, 257, 561, 20, 175, "Input",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], +Cell[7902, 279, 252, 5, 75, "Output",ExpressionUUID->"d0222803-9416-4d88-a6f0-060cd875acf4"] }, Open ]], Cell[CellGroupData[{ -Cell[9534, 333, 1331, 44, 65, "Input",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], -Cell[10868, 379, 187, 3, 25, "Output",ExpressionUUID->"d5bf6730-c400-e84f-827b-d40e35c83dad"] +Cell[8191, 289, 1592, 51, 362, "Input",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], +Cell[9786, 342, 246, 5, 75, "Output",ExpressionUUID->"33be40cd-a16d-40d6-9573-ddfebe151544"] }, Open ]], Cell[CellGroupData[{ -Cell[11092, 387, 1492, 48, 65, "Input",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], -Cell[12587, 437, 166, 2, 25, "Output",ExpressionUUID->"006d42df-1417-1c4e-b4d9-45c05dee6889"] +Cell[10069, 352, 1426, 47, 362, "Input",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], +Cell[11498, 401, 266, 6, 75, "Output",ExpressionUUID->"b9c7f0dd-0cb1-455c-befa-a752ed88a1d1"] }, Open ]], Cell[CellGroupData[{ -Cell[12790, 444, 131, 2, 22, "Input",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], -Cell[12924, 448, 151, 2, 25, "Output",ExpressionUUID->"64d193ee-3f72-404e-9ca7-d3c855ce1a3f"] +Cell[11801, 412, 1426, 47, 362, "Input",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], +Cell[13230, 461, 271, 6, 75, "Output",ExpressionUUID->"01a1ddfc-b675-4943-bc9a-dd26167acb43"] }, Open ]], Cell[CellGroupData[{ -Cell[13112, 455, 133, 2, 22, "Input",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], -Cell[13248, 459, 153, 2, 25, "Output",ExpressionUUID->"8d37ba34-6f64-7d40-86af-bfe10ed7ecf9"] +Cell[13538, 472, 1592, 51, 362, "Input",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], +Cell[15133, 525, 243, 5, 75, "Output",ExpressionUUID->"08157cc6-e8c8-4bd7-a5a7-5459e366ef52"] }, Open ]], Cell[CellGroupData[{ -Cell[13438, 466, 134, 2, 22, "Input",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], -Cell[13575, 470, 155, 2, 25, "Output",ExpressionUUID->"cf6fd933-5c85-3c47-a2fa-a53bc24bd1de"] +Cell[15413, 535, 135, 3, 66, "Input",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], +Cell[15551, 540, 234, 5, 75, "Output",ExpressionUUID->"90be8d69-26d3-4048-ba16-ad9d011b4703"] }, Open ]], Cell[CellGroupData[{ -Cell[13767, 477, 219, 4, 22, "Input",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], -Cell[13989, 483, 168, 3, 25, "Output",ExpressionUUID->"68c660da-f0f0-ad47-93fc-5a731457088a"] +Cell[15822, 550, 137, 3, 66, "Input",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], +Cell[15962, 555, 232, 5, 75, "Output",ExpressionUUID->"963d81a0-9ff1-47d5-a2d9-47315708edfa"] }, Open ]], Cell[CellGroupData[{ -Cell[14194, 491, 134, 2, 22, "Input",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], -Cell[14331, 495, 155, 2, 25, "Output",ExpressionUUID->"8f2a2cb7-00c0-6642-b771-a61c78864261"] +Cell[16231, 565, 138, 3, 66, "Input",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], +Cell[16372, 570, 240, 5, 75, "Output",ExpressionUUID->"1aebb37c-e437-46ca-87cc-80f0d9a94ed6"] }, Open ]], Cell[CellGroupData[{ -Cell[14523, 502, 248, 5, 22, "Input",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], -Cell[14774, 509, 152, 2, 25, "Output",ExpressionUUID->"55d6fafd-5f57-cf44-945d-c5c7fb1b087a"] +Cell[16649, 580, 223, 5, 66, "Input",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], +Cell[16875, 587, 247, 6, 75, "Output",ExpressionUUID->"249b8c73-d930-48ad-b9e9-59d5b706ebd0"] }, Open ]], Cell[CellGroupData[{ -Cell[14963, 516, 228, 5, 22, "Input",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], -Cell[15194, 523, 152, 2, 25, "Output",ExpressionUUID->"e4541cb8-be74-4140-af0a-812e02085534"] +Cell[17159, 598, 138, 3, 66, "Input",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], +Cell[17300, 603, 236, 5, 75, "Output",ExpressionUUID->"e7ffabb3-f7fd-4500-84cd-ccbf975faf83"] }, Open ]], Cell[CellGroupData[{ -Cell[15383, 530, 219, 4, 22, "Input",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], -Cell[15605, 536, 151, 2, 25, "Output",ExpressionUUID->"41e65355-0d62-5849-876b-33938574e65a"] +Cell[17573, 613, 328, 6, 66, "Input",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], +Cell[17904, 621, 232, 5, 75, "Output",ExpressionUUID->"2419f2a8-1e65-4a18-b034-189377b2a77c"] }, Open ]], Cell[CellGroupData[{ -Cell[15793, 543, 350, 10, 35, "Input",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], -Cell[16146, 555, 170, 2, 25, "Output",ExpressionUUID->"b6d3bf5f-35d3-5240-acc0-10ada08af661"] +Cell[18173, 631, 301, 6, 66, "Input",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], +Cell[18477, 639, 235, 5, 75, "Output",ExpressionUUID->"036ec96a-ba0b-412d-b998-cfeb918f6e9f"] }, Open ]], Cell[CellGroupData[{ -Cell[16353, 562, 350, 10, 35, "Input",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], -Cell[16706, 574, 186, 3, 25, "Output",ExpressionUUID->"5d506fa3-f740-ff4f-9786-10c7e1e82f78"] +Cell[18749, 649, 223, 5, 66, "Input",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], +Cell[18975, 656, 229, 5, 75, "Output",ExpressionUUID->"0100bcee-d8c3-450b-be1c-5960f0c586b3"] }, Open ]], Cell[CellGroupData[{ -Cell[16929, 582, 975, 27, 92, "Input",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], -Cell[17907, 611, 169, 2, 25, "Output",ExpressionUUID->"02f8af82-a9df-4342-9d73-750f12d42e7b"] +Cell[19241, 666, 354, 11, 96, "Input",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], +Cell[19598, 679, 251, 5, 75, "Output",ExpressionUUID->"e15babaf-72ba-47fd-825d-89d856f0cf03"] }, Open ]], Cell[CellGroupData[{ -Cell[18113, 618, 199, 3, 22, "Input",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], -Cell[18315, 623, 151, 2, 25, "Output",ExpressionUUID->"1ee0020e-da30-7b46-8f5c-7602d78cb1cb"] +Cell[19886, 689, 354, 11, 96, "Input",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], +Cell[20243, 702, 267, 6, 75, "Output",ExpressionUUID->"20ac17cf-fcfa-4716-af9c-bde1604aeae1"] }, Open ]], -Cell[18481, 628, 250, 5, 22, "Input",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], -Cell[18734, 635, 154, 3, 22, "Input",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], -Cell[18891, 640, 250, 5, 22, "Input",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], -Cell[19144, 647, 154, 3, 22, "Input",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], -Cell[19301, 652, 251, 5, 22, "Input",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], -Cell[19555, 659, 154, 3, 22, "Input",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], -Cell[19712, 664, 275, 5, 22, "Input",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], -Cell[19990, 671, 152, 3, 22, "Input",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], -Cell[20145, 676, 222, 5, 22, "Input",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], -Cell[20370, 683, 152, 3, 22, "Input",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], -Cell[20525, 688, 226, 5, 22, "Input",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], -Cell[20754, 695, 154, 3, 22, "Input",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], -Cell[20911, 700, 229, 5, 22, "Input",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], -Cell[21143, 707, 153, 3, 22, "Input",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], -Cell[21299, 712, 198, 4, 22, "Input",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], -Cell[21500, 718, 156, 3, 22, "Input",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], Cell[CellGroupData[{ -Cell[21681, 725, 19809, 485, 1553, "Input",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], -Cell[41493, 1212, 167, 2, 25, "Output",ExpressionUUID->"6e3e2b1b-3430-b546-9dfc-ccd29250c9d7"] +Cell[20547, 713, 998, 27, 184, "Input",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], +Cell[21548, 742, 246, 5, 75, "Output",ExpressionUUID->"cecb9c0e-b59c-4750-b2b1-30a8328178d2"] }, Open ]], Cell[CellGroupData[{ -Cell[41697, 1219, 19748, 489, 1579, "Input",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], -Cell[61448, 1710, 168, 2, 25, "Output",ExpressionUUID->"ca8af40c-4f04-8747-aa6f-9594ea3fb865"] +Cell[21831, 752, 203, 4, 66, "Input",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], +Cell[22037, 758, 234, 5, 75, "Output",ExpressionUUID->"42c2c1a0-cee4-457b-9154-cde84748c01c"] }, Open ]], Cell[CellGroupData[{ -Cell[61653, 1717, 19748, 483, 1572, "Input",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], -Cell[81404, 2202, 183, 3, 25, "Output",ExpressionUUID->"43eaee96-3646-954d-899a-d1e3ee2edd5e"] +Cell[22308, 768, 333, 6, 66, "Input",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], +Cell[22644, 776, 211, 4, 75, "Output",ExpressionUUID->"0a105781-8ae2-465b-8ffd-a1ec840b3e52"] }, Open ]], +Cell[22870, 783, 177, 3, 66, "Input",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], Cell[CellGroupData[{ -Cell[81624, 2210, 22534, 553, 1766, "Input",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], -Cell[104161, 2765, 182, 3, 25, "Output",ExpressionUUID->"a8d59888-f6f0-0746-9034-5e74c45610b1"] +Cell[23072, 790, 333, 6, 66, "Input",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], +Cell[23408, 798, 211, 4, 75, "Output",ExpressionUUID->"fecf66b4-2daa-4656-b192-56694d052145"] }, Open ]], +Cell[23634, 805, 177, 3, 66, "Input",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], Cell[CellGroupData[{ -Cell[104380, 2773, 22535, 553, 1773, "Input",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], -Cell[126918, 3328, 185, 3, 25, "Output",ExpressionUUID->"dd5d5506-e4f6-7d4c-bcd9-ea70659f69e1"] +Cell[23836, 812, 330, 6, 66, "Input",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], +Cell[24169, 820, 205, 4, 75, "Output",ExpressionUUID->"683a7d34-4923-48d8-a9b9-5cd8d430c0a7"] }, Open ]], +Cell[24389, 827, 177, 3, 66, "Input",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], Cell[CellGroupData[{ -Cell[127140, 3336, 25491, 626, 1984, "Input",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], -Cell[152634, 3964, 184, 3, 25, "Output",ExpressionUUID->"b983c8d8-6a34-fb4a-8a0a-8960e79ae993"] +Cell[24591, 834, 356, 6, 66, "Input",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], +Cell[24950, 842, 209, 4, 75, "Output",ExpressionUUID->"88e2d78a-8c64-465a-8abd-b3298cf685b3"] }, Open ]], +Cell[25174, 849, 175, 3, 66, "Input",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], Cell[CellGroupData[{ -Cell[152855, 3972, 130, 2, 22, "Input",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], -Cell[152988, 3976, 151, 2, 25, "Output",ExpressionUUID->"bb0c55af-9cf7-0443-8b24-f19c97d6c781"] +Cell[25374, 856, 303, 6, 66, "Input",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], +Cell[25680, 864, 211, 4, 75, "Output",ExpressionUUID->"6ce9657a-1686-402b-b34b-751ae69af9aa"] }, Open ]], +Cell[25906, 871, 175, 3, 66, "Input",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], Cell[CellGroupData[{ -Cell[153176, 3983, 130, 2, 22, "Input",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], -Cell[153309, 3987, 151, 2, 25, "Output",ExpressionUUID->"0d4bafbb-7685-ff43-aaa0-fe1597369669"] +Cell[26106, 878, 309, 6, 66, "Input",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], +Cell[26418, 886, 208, 4, 75, "Output",ExpressionUUID->"c2d97d15-e2a1-4ca5-b150-9bf4eb7ff27b"] }, Open ]], +Cell[26641, 893, 177, 3, 66, "Input",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], Cell[CellGroupData[{ -Cell[153497, 3994, 1144, 39, 46, "Input",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], -Cell[154644, 4035, 167, 2, 25, "Output",ExpressionUUID->"25fde637-8846-5644-8daa-868231713f08"] +Cell[26843, 900, 310, 6, 66, "Input",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], +Cell[27156, 908, 208, 4, 75, "Output",ExpressionUUID->"aa72a42c-ecda-434b-9c18-b8eafaf3f24a"] }, Open ]], +Cell[27379, 915, 176, 3, 66, "Input",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], Cell[CellGroupData[{ -Cell[154848, 4042, 1041, 35, 46, "Input",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], -Cell[155892, 4079, 184, 3, 25, "Output",ExpressionUUID->"222cd90e-6438-0a46-88d0-fcdd10fc9432"] +Cell[27580, 922, 278, 5, 66, "Input",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], +Cell[27861, 929, 207, 4, 75, "Output",ExpressionUUID->"918c9ed6-e358-42b9-8f43-f645fd52c2d1"] }, Open ]], +Cell[28083, 936, 179, 3, 66, "Input",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], Cell[CellGroupData[{ -Cell[156113, 4087, 1144, 39, 46, "Input",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], -Cell[157260, 4128, 169, 2, 25, "Output",ExpressionUUID->"b7d1d4d3-3e05-af4b-9683-83817f2bdc88"] +Cell[28287, 943, 19813, 486, 5405, "Input",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], +Cell[48103, 1431, 249, 5, 75, "Output",ExpressionUUID->"e0e8cb47-2ea4-4195-9c6e-3ab5417accc0"] }, Open ]], Cell[CellGroupData[{ -Cell[157466, 4135, 108, 1, 22, "Input",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], -Cell[157577, 4138, 169, 2, 25, "Output",ExpressionUUID->"9fab72a0-15cc-f04b-8b2d-eafd610fbe08"] +Cell[48389, 1441, 19752, 490, 5343, "Input",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], +Cell[68144, 1933, 247, 5, 75, "Output",ExpressionUUID->"b621c5bb-9177-45b8-b442-aaf2dd776d70"] }, Open ]], Cell[CellGroupData[{ -Cell[157783, 4145, 108, 1, 22, "Input",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], -Cell[157894, 4148, 187, 3, 25, "Output",ExpressionUUID->"5baa5811-6d68-0847-bfa7-611a7f282595"] +Cell[68428, 1943, 19752, 484, 5342, "Input",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], +Cell[88183, 2429, 265, 6, 75, "Output",ExpressionUUID->"82cfdd64-3f1e-4b73-b2ea-5778810ddd17"] }, Open ]], Cell[CellGroupData[{ -Cell[158118, 4156, 108, 1, 22, "Input",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], -Cell[158229, 4159, 185, 3, 25, "Output",ExpressionUUID->"66d60cf8-894b-f64c-bc5e-4862fc34e98d"] +Cell[88485, 2440, 22538, 554, 6074, "Input",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], +Cell[111026, 2996, 267, 6, 75, "Output",ExpressionUUID->"281e4c34-c425-4ac7-9186-671fafe39131"] }, Open ]], Cell[CellGroupData[{ -Cell[158451, 4167, 108, 1, 22, "Input",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], -Cell[158562, 4170, 168, 2, 25, "Output",ExpressionUUID->"95baa4f5-66f1-b04e-8459-661f90319bc4"] +Cell[111330, 3007, 22539, 554, 6074, "Input",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], +Cell[133872, 3563, 266, 6, 75, "Output",ExpressionUUID->"25e6553a-fb83-425a-ac8d-977995a2d598"] }, Open ]], Cell[CellGroupData[{ -Cell[158767, 4177, 107, 1, 22, "Input",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], -Cell[158877, 4180, 169, 2, 25, "Output",ExpressionUUID->"de032191-9b61-7645-8f26-423f534a2cb1"] +Cell[134175, 3574, 25495, 627, 6806, "Input",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], +Cell[159673, 4203, 265, 6, 75, "Output",ExpressionUUID->"705c7128-176a-4e60-8cde-3141363199e3"] }, Open ]], Cell[CellGroupData[{ -Cell[159083, 4187, 107, 1, 22, "Input",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], -Cell[159193, 4190, 168, 2, 25, "Output",ExpressionUUID->"56b6e721-a4ff-f24f-9100-8013c893b0ae"] +Cell[159975, 4214, 134, 3, 66, "Input",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], +Cell[160112, 4219, 229, 5, 75, "Output",ExpressionUUID->"163a2a2b-0ca8-4c5b-a553-567a37965691"] }, Open ]], Cell[CellGroupData[{ -Cell[159398, 4197, 497, 16, 46, "Input",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], -Cell[159898, 4215, 186, 3, 25, "Output",ExpressionUUID->"ed7537ce-20e6-4246-aac0-4a4b9f4faed7"] +Cell[160378, 4229, 134, 3, 66, "Input",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], +Cell[160515, 4234, 232, 5, 75, "Output",ExpressionUUID->"1920f2b3-4662-4ead-9654-2f62cf5727b3"] }, Open ]], Cell[CellGroupData[{ -Cell[160121, 4223, 497, 16, 46, "Input",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], -Cell[160621, 4241, 184, 3, 25, "Output",ExpressionUUID->"643b7429-505f-4045-a97f-7e6871b3f504"] +Cell[160784, 4244, 1148, 40, 246, "Input",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], +Cell[161935, 4286, 246, 5, 75, "Output",ExpressionUUID->"340b0d86-e03b-45cb-b2c2-ae9e64c52c8f"] }, Open ]], Cell[CellGroupData[{ -Cell[160842, 4249, 1788, 60, 109, "Input",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], -Cell[162633, 4311, 168, 2, 25, "Output",ExpressionUUID->"029098e5-22ab-9a4c-99ad-caac4d1307db"] +Cell[162218, 4296, 1045, 36, 246, "Input",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], +Cell[163266, 4334, 262, 6, 75, "Output",ExpressionUUID->"76ba76ba-9562-41cd-88c4-707224480d23"] }, Open ]], Cell[CellGroupData[{ -Cell[162838, 4318, 1101, 36, 64, "Input",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], -Cell[163942, 4356, 186, 3, 25, "Output",ExpressionUUID->"f7cceab2-e319-0345-98f3-b759ec5fa40c"] +Cell[163565, 4345, 1148, 40, 246, "Input",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], +Cell[164716, 4387, 250, 5, 75, "Output",ExpressionUUID->"bf90d935-4ee8-481c-8d5c-3be142664870"] }, Open ]], Cell[CellGroupData[{ -Cell[164165, 4364, 1818, 61, 90, "Input",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], -Cell[165986, 4427, 166, 2, 25, "Output",ExpressionUUID->"ee7339b3-3748-a34f-a057-3912a0918fd6"] +Cell[165003, 4397, 112, 2, 66, "Input",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], +Cell[165118, 4401, 248, 5, 75, "Output",ExpressionUUID->"2623f4b4-3e57-436d-a3a2-83f9307bb872"] }, Open ]], Cell[CellGroupData[{ -Cell[166189, 4434, 1631, 53, 65, "Input",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], -Cell[167823, 4489, 169, 2, 25, "Output",ExpressionUUID->"9d980dd1-9860-3745-8961-1b723545e44c"] +Cell[165403, 4411, 112, 2, 66, "Input",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], +Cell[165518, 4415, 266, 6, 75, "Output",ExpressionUUID->"0f1eded3-805e-4cbe-a37b-057f37983da3"] }, Open ]], Cell[CellGroupData[{ -Cell[168029, 4496, 1631, 53, 65, "Input",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], -Cell[169663, 4551, 167, 2, 25, "Output",ExpressionUUID->"791dcf4f-1a7f-2347-997c-27eed6cf3948"] +Cell[165821, 4426, 112, 2, 66, "Input",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], +Cell[165936, 4430, 262, 6, 75, "Output",ExpressionUUID->"cbacdbb0-99d6-446e-9ceb-fa978d1ee555"] }, Open ]], -Cell[169845, 4556, 147, 4, 22, "Input",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], -Cell[169995, 4562, 153, 3, 22, "Input",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], -Cell[170151, 4567, 147, 4, 22, "Input",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], -Cell[170301, 4573, 154, 3, 22, "Input",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], Cell[CellGroupData[{ -Cell[170480, 4580, 1297, 42, 39, "Input",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], -Cell[171780, 4624, 171, 2, 25, "Output",ExpressionUUID->"83707082-f118-c146-a95c-693158b61875"] +Cell[166235, 4441, 112, 2, 66, "Input",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], +Cell[166350, 4445, 248, 5, 75, "Output",ExpressionUUID->"a202ddec-8352-4ca8-86b6-0ae67d808b59"] }, Open ]], Cell[CellGroupData[{ -Cell[171988, 4631, 908, 31, 46, "Input",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], -Cell[172899, 4664, 170, 2, 25, "Output",ExpressionUUID->"93dbdfa1-2e9a-2d49-80d6-05af3e592734"] +Cell[166635, 4455, 111, 2, 66, "Input",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], +Cell[166749, 4459, 225, 4, 75, "Output",ExpressionUUID->"de4b39e2-fadc-4df3-a685-cbd07a5ae09a"] }, Open ]], Cell[CellGroupData[{ -Cell[173106, 4671, 884, 30, 46, "Input",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], -Cell[173993, 4703, 173, 2, 25, "Output",ExpressionUUID->"afd7d2f8-cc87-734c-9c81-c0621f31e0e5"] +Cell[167011, 4468, 111, 2, 66, "Input",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], +Cell[167125, 4472, 221, 4, 75, "Output",ExpressionUUID->"dfe901e9-edb5-4eea-8e15-d73ae4da775a"] }, Open ]], Cell[CellGroupData[{ -Cell[174203, 4710, 558, 19, 42, "Input",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], -Cell[174764, 4731, 567, 9, 25, "Output",ExpressionUUID->"0432d540-b940-d44f-87c2-61a0d876fa3f"] +Cell[167383, 4481, 501, 17, 125, "Input",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], +Cell[167887, 4500, 238, 5, 75, "Output",ExpressionUUID->"48e44735-b63e-4544-b63e-264031b735d8"] }, Open ]], Cell[CellGroupData[{ -Cell[175368, 4745, 665, 22, 42, "Input",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], -Cell[176036, 4769, 554, 9, 25, "Output",ExpressionUUID->"d6001eae-8a76-854e-9f93-fc6d9f888546"] +Cell[168162, 4510, 501, 17, 125, "Input",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], +Cell[168666, 4529, 238, 5, 75, "Output",ExpressionUUID->"61b052e1-d792-4900-8d96-d63125b54874"] }, Open ]], Cell[CellGroupData[{ -Cell[176627, 4783, 170, 5, 46, "Input",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], -Cell[176800, 4790, 577, 9, 25, "Output",ExpressionUUID->"529ddbf3-d030-9b49-9390-e82eea1b6cd9"] +Cell[168941, 4539, 1792, 61, 420, "Input",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], +Cell[170736, 4602, 219, 4, 75, "Output",ExpressionUUID->"efa493bf-62a4-42ef-a298-acc4b31951e1"] }, Open ]], Cell[CellGroupData[{ -Cell[177414, 4804, 236, 6, 45, "Input",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], -Cell[177653, 4812, 514, 8, 25, "Output",ExpressionUUID->"1efb03b1-ddd9-3544-b911-a583d1e1d12c"] +Cell[170992, 4611, 1105, 37, 299, "Input",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], +Cell[172100, 4650, 238, 5, 75, "Output",ExpressionUUID->"ce0c3045-c46d-48ae-b267-0e10802a422a"] }, Open ]], Cell[CellGroupData[{ -Cell[178204, 4825, 223, 6, 35, "Input",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], -Cell[178430, 4833, 549, 9, 25, "Output",ExpressionUUID->"0c2f4a5d-aa8f-1846-8930-72520d6d68fa"] +Cell[172375, 4660, 1822, 62, 420, "Input",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], +Cell[174200, 4724, 217, 4, 75, "Output",ExpressionUUID->"c865c015-b56d-4ccc-ad76-f18e9802683b"] }, Open ]], Cell[CellGroupData[{ -Cell[179016, 4847, 181, 5, 35, "Input",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], -Cell[179200, 4854, 567, 9, 25, "Output",ExpressionUUID->"51b96550-e411-8f49-ae52-0ef4087a9cca"] +Cell[174454, 4733, 1635, 54, 368, "Input",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], +Cell[176092, 4789, 222, 4, 75, "Output",ExpressionUUID->"b7c3bbf9-9343-4488-ac38-54b3a3bb5a76"] }, Open ]], Cell[CellGroupData[{ -Cell[179804, 4868, 6055, 185, 310, "Input",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], -Cell[185862, 5055, 548, 9, 25, "Output",ExpressionUUID->"ae5a263d-347a-6e47-95a0-f7c420f4dc91"] +Cell[176351, 4798, 1635, 54, 368, "Input",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], +Cell[177989, 4854, 219, 4, 75, "Output",ExpressionUUID->"dcaa4778-af98-407c-b754-aa7593469626"] }, Open ]], Cell[CellGroupData[{ -Cell[186447, 5069, 368, 9, 33, "Input",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], -Cell[186818, 5080, 521, 8, 25, "Output",ExpressionUUID->"eb964dd3-b4a5-124b-bf6d-21f5f9718a4e"] +Cell[178245, 4863, 207, 4, 66, "Input",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], +Cell[178455, 4869, 189, 3, 75, "Output",ExpressionUUID->"7bdf2466-2d8a-4e2b-840a-6fef1ae2bc7f"] }, Open ]], -Cell[187354, 5091, 492, 10, 34, "Input",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], +Cell[178659, 4875, 176, 3, 66, "Input",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], Cell[CellGroupData[{ -Cell[187871, 5105, 554, 18, 42, "Input",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], -Cell[188428, 5125, 166, 2, 25, "Output",ExpressionUUID->"e4d9d77a-b508-454c-baed-04aa4a4ef418"] +Cell[178860, 4882, 210, 4, 66, "Input",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], +Cell[179073, 4888, 189, 3, 75, "Output",ExpressionUUID->"2fd9f24a-4d81-4a6c-a436-67b1a0fd5f1f"] }, Open ]], +Cell[179277, 4894, 177, 3, 66, "Input",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], Cell[CellGroupData[{ -Cell[188631, 5132, 619, 20, 42, "Input",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], -Cell[189253, 5154, 168, 2, 25, "Output",ExpressionUUID->"3007515b-4da6-bf4e-9b4f-90b429e2dd04"] +Cell[179479, 4901, 1301, 43, 257, "Input",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], +Cell[180783, 4946, 226, 4, 75, "Output",ExpressionUUID->"53aeb72e-5f1b-4dab-8c60-5ec696603396"] }, Open ]], Cell[CellGroupData[{ -Cell[189458, 5161, 166, 4, 46, "Input",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], -Cell[189627, 5167, 167, 2, 25, "Output",ExpressionUUID->"f6274504-766f-8549-a4a8-fd0e803dda86"] +Cell[181046, 4955, 931, 31, 221, "Input",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], +Cell[181980, 4988, 223, 4, 75, "Output",ExpressionUUID->"c25688b7-2cd0-4781-8a84-19834ee062a5"] }, Open ]], Cell[CellGroupData[{ -Cell[189831, 5174, 166, 4, 45, "Input",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], -Cell[190000, 5180, 166, 2, 25, "Output",ExpressionUUID->"72d24546-97b5-7344-98ec-019068f7b9fb"] +Cell[182240, 4997, 907, 30, 221, "Input",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], +Cell[183150, 5029, 227, 4, 75, "Output",ExpressionUUID->"e029c9a9-7648-4991-8b6a-f9771da08271"] }, Open ]], Cell[CellGroupData[{ -Cell[190203, 5187, 177, 4, 35, "Input",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], -Cell[190383, 5193, 169, 2, 25, "Output",ExpressionUUID->"7075b380-afe9-8b44-acc9-29433a09a866"] +Cell[183414, 5038, 558, 19, 118, "Input",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], +Cell[183975, 5059, 617, 10, 75, "Output",ExpressionUUID->"0cc6e19e-0b12-4334-95f0-4b325f4c4782"] }, Open ]], Cell[CellGroupData[{ -Cell[190589, 5200, 177, 4, 35, "Input",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], -Cell[190769, 5206, 168, 2, 25, "Output",ExpressionUUID->"667394bf-ade3-1944-8cac-a719104b58af"] +Cell[184629, 5074, 665, 22, 118, "Input",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], +Cell[185297, 5098, 599, 9, 75, "Output",ExpressionUUID->"ee271180-a88e-4901-995d-fc00d664602b"] }, Open ]], Cell[CellGroupData[{ -Cell[190974, 5213, 6051, 184, 310, "Input",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], -Cell[197028, 5399, 171, 2, 25, "Output",ExpressionUUID->"bdb345c8-7c0c-3e4d-96c3-d5d94768456f"] +Cell[185933, 5112, 170, 5, 125, "Input",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], +Cell[186106, 5119, 630, 10, 75, "Output",ExpressionUUID->"4210faa2-d16f-4159-9536-41bbeb118197"] }, Open ]], Cell[CellGroupData[{ -Cell[197236, 5406, 364, 8, 33, "Input",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], -Cell[197603, 5416, 166, 2, 25, "Output",ExpressionUUID->"a136c49d-6dd1-8a4a-9add-7300e6132adb"] +Cell[186773, 5134, 236, 6, 123, "Input",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], +Cell[187012, 5142, 565, 9, 75, "Output",ExpressionUUID->"213fb299-7213-4e3a-a9f9-48c39939a5ba"] }, Open ]], Cell[CellGroupData[{ -Cell[197806, 5423, 6118, 186, 353, "Input",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], -Cell[203927, 5611, 170, 2, 25, "Output",ExpressionUUID->"85a24dde-0aa6-984c-b7a3-ccfa87afb6cd"] +Cell[187614, 5156, 223, 6, 97, "Input",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], +Cell[187840, 5164, 598, 9, 75, "Output",ExpressionUUID->"36b44dfd-8d68-475c-86fd-1b934dda9dec"] }, Open ]], Cell[CellGroupData[{ -Cell[204134, 5618, 364, 8, 33, "Input",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], -Cell[204501, 5628, 168, 2, 25, "Output",ExpressionUUID->"9a87dba6-1411-3f4b-a17f-9d7a664889bd"] +Cell[188475, 5178, 181, 5, 97, "Input",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], +Cell[188659, 5185, 618, 10, 75, "Output",ExpressionUUID->"3cee8994-2481-461e-88f3-f631187e5832"] }, Open ]], Cell[CellGroupData[{ -Cell[204706, 5635, 2659, 87, 135, "Input",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], -Cell[207368, 5724, 169, 2, 25, "Output",ExpressionUUID->"39ebfd06-20a8-e945-ae56-55ff95d26618"] +Cell[189314, 5200, 6055, 185, 1319, "Input",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], +Cell[195372, 5387, 591, 9, 75, "Output",ExpressionUUID->"ab70d59e-5f61-4611-af7f-fafca10d931c"] }, Open ]], Cell[CellGroupData[{ -Cell[207574, 5731, 2599, 84, 135, "Input",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], -Cell[210176, 5817, 169, 2, 25, "Output",ExpressionUUID->"6c617ce1-6ebd-9d43-be44-73f7ca23a829"] +Cell[196000, 5401, 368, 9, 94, "Input",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], +Cell[196371, 5412, 571, 9, 75, "Output",ExpressionUUID->"ad6c6e2e-e0e3-4078-bdf5-a398f6fa29b6"] }, Open ]], +Cell[196957, 5424, 492, 10, 66, "Input",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], Cell[CellGroupData[{ -Cell[210382, 5824, 3708, 117, 197, "Input",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], -Cell[214093, 5943, 169, 2, 25, "Output",ExpressionUUID->"145fcb0a-d842-9a43-9617-34577d485689"] +Cell[197474, 5438, 558, 19, 118, "Input",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], +Cell[198035, 5459, 220, 4, 75, "Output",ExpressionUUID->"8bebcf67-128b-43de-8c41-0d3f801099dc"] }, Open ]], -Cell[214277, 5948, 138, 3, 34, "Input",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], Cell[CellGroupData[{ -Cell[214440, 5955, 2052, 59, 92, "Input",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], -Cell[216495, 6016, 556, 12, 50, "Message",ExpressionUUID->"be9831d8-a262-3541-9040-ad5e31b2eb28"], -Cell[217054, 6030, 559, 12, 50, "Message",ExpressionUUID->"31896901-1c82-aa4e-bb9a-c09e2220f684"], -Cell[217616, 6044, 559, 12, 50, "Message",ExpressionUUID->"aa16e061-5976-9143-8add-7376f3059569"], -Cell[218178, 6058, 452, 10, 20, "Message",ExpressionUUID->"68730c15-5e57-ca48-8468-735233dec44d"], -Cell[218633, 6070, 168, 2, 25, "Output",ExpressionUUID->"9deaa7ff-19fe-b345-ae65-d7f8adce193c"] +Cell[198292, 5468, 623, 21, 118, "Input",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], +Cell[198918, 5491, 223, 4, 75, "Output",ExpressionUUID->"08a80e46-ee9e-43af-b04d-2d0c497b8c23"] }, Open ]], Cell[CellGroupData[{ -Cell[218838, 6077, 2054, 59, 92, "Input",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], -Cell[220895, 6138, 556, 12, 50, "Message",ExpressionUUID->"365becfb-66c2-b442-8b7b-c6077e53a212"], -Cell[221454, 6152, 556, 12, 50, "Message",ExpressionUUID->"2b170196-02e0-d544-a5a5-d90722dc10dc"], -Cell[222013, 6166, 559, 12, 50, "Message",ExpressionUUID->"02967e8e-3430-cf4f-b706-b82af40300a2"], -Cell[222575, 6180, 452, 10, 20, "Message",ExpressionUUID->"a8933e75-6bbd-684a-8439-656414d7fe5d"], -Cell[223030, 6192, 166, 2, 25, "Output",ExpressionUUID->"0790c690-9267-6441-bc9c-d353ab16b428"] +Cell[199178, 5500, 170, 5, 125, "Input",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], +Cell[199351, 5507, 224, 4, 75, "Output",ExpressionUUID->"416c053f-e7f9-499a-83f3-b3f146c8f4e1"] }, Open ]], Cell[CellGroupData[{ -Cell[223233, 6199, 1938, 53, 69, "Input",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], -Cell[225174, 6254, 20226, 378, 191, "Output",ExpressionUUID->"5d2ddb35-b7b8-514c-917f-fcc77dc8600c"] +Cell[199612, 5516, 170, 5, 123, "Input",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], +Cell[199785, 5523, 219, 4, 75, "Output",ExpressionUUID->"45010d70-4e75-421d-beb4-8be15802e299"] }, Open ]], Cell[CellGroupData[{ -Cell[245437, 6637, 2094, 60, 92, "Input",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], -Cell[247534, 6699, 497, 11, 70, "Message",ExpressionUUID->"cb33453f-b5ca-e14d-a319-662822d35ed2"], -Cell[248034, 6712, 501, 11, 70, "Message",ExpressionUUID->"aa5fb574-aeea-7141-9d86-babfa2192485"], -Cell[248538, 6725, 503, 11, 70, "Message",ExpressionUUID->"dec65c86-5426-6949-9e38-c5bc3eb7722e"], -Cell[249044, 6738, 455, 10, 70, "Message",ExpressionUUID->"32a908f1-0097-2943-9511-bd82e083c1e0"], -Cell[249502, 6750, 43631, 762, 70, "Output",ExpressionUUID->"704b46fd-7ca5-4147-bbb4-19991a3778e5"] +Cell[200041, 5532, 181, 5, 97, "Input",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], +Cell[200225, 5539, 222, 4, 75, "Output",ExpressionUUID->"c2802e50-c7b5-4415-8acc-7abdab875406"] }, Open ]], -Cell[293148, 7515, 232, 6, 70, "Input",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], -Cell[293383, 7523, 209, 5, 70, "Input",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], Cell[CellGroupData[{ -Cell[293617, 7532, 212, 6, 70, "Input",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], -Cell[293832, 7540, 168, 2, 70, "Output",ExpressionUUID->"1f95faab-1b52-5440-9bc8-bbd29c090294"] +Cell[200484, 5548, 181, 5, 97, "Input",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], +Cell[200668, 5555, 222, 4, 75, "Output",ExpressionUUID->"e798f31f-867f-4b3c-983b-69756ef43bab"] }, Open ]], Cell[CellGroupData[{ -Cell[294037, 7547, 1814, 53, 70, "Input",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], -Cell[295854, 7602, 505, 11, 70, "Message",ExpressionUUID->"34609962-a5ff-c943-bd24-1be35ec9ac87"], -Cell[296362, 7615, 509, 11, 70, "Message",ExpressionUUID->"1fdfd709-87fa-2d47-912a-2bb16540a45a"], -Cell[296874, 7628, 508, 11, 70, "Message",ExpressionUUID->"02f7e2ed-ac22-9d4d-8071-ab116260ee28"], -Cell[297385, 7641, 455, 10, 70, "Message",ExpressionUUID->"7db76209-a5a6-1947-80c1-912d214b981c"], -Cell[297843, 7653, 22399, 414, 70, "Output",ExpressionUUID->"b5f713da-fcb5-f640-b2b9-a3f5b5d5c325"] +Cell[200927, 5564, 6055, 185, 1319, "Input",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], +Cell[206985, 5751, 224, 4, 75, "Output",ExpressionUUID->"fb5dc71f-76d1-4c2b-96db-6825a72886e5"] }, Open ]], Cell[CellGroupData[{ -Cell[320279, 8072, 1612, 47, 70, "Input",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], -Cell[321894, 8121, 581, 12, 70, "Message",ExpressionUUID->"e283daf4-b253-944e-a35b-b9d739b4810d"], -Cell[322478, 8135, 584, 12, 70, "Message",ExpressionUUID->"45f4fe27-f32a-9441-bd55-e0801ff04328"], -Cell[323065, 8149, 590, 12, 70, "Message",ExpressionUUID->"8fffabed-e171-5e42-9ba8-fd51ae8f5dd5"], -Cell[323658, 8163, 455, 10, 70, "Message",ExpressionUUID->"8b648472-e40f-a549-a057-c6eeb9f14028"], -Cell[324116, 8175, 169, 2, 70, "Output",ExpressionUUID->"c7b55151-fc31-d94c-8a4e-01b34fb0adaf"] +Cell[207246, 5760, 410, 10, 130, "Input",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], +Cell[207659, 5772, 268, 5, 111, "Output",ExpressionUUID->"43f02828-8363-47e4-b400-993a345a91b2"] }, Open ]], Cell[CellGroupData[{ -Cell[324322, 8182, 2249, 64, 70, "Input",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], -Cell[326574, 8248, 557, 12, 70, "Message",ExpressionUUID->"3632efc4-f65f-2f41-a6ff-4f71c0ebce84"], -Cell[327134, 8262, 560, 12, 70, "Message",ExpressionUUID->"779c5516-83d5-5d41-8a7a-6b58e876b564"], -Cell[327697, 8276, 560, 12, 70, "Message",ExpressionUUID->"8e3711bd-8e48-2e4f-9802-ad11f73b56ef"], -Cell[328260, 8290, 455, 10, 70, "Message",ExpressionUUID->"f612a69b-4740-9240-9908-d284159fa285"], -Cell[328718, 8302, 169, 2, 70, "Output",ExpressionUUID->"bfa217e6-2060-bc4b-b710-35d6c4ca9627"] +Cell[207964, 5782, 6122, 187, 1319, "Input",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], +Cell[214089, 5971, 224, 4, 75, "Output",ExpressionUUID->"1fb26a00-4e0c-4bf5-b1e1-357cc406c913"] }, Open ]], Cell[CellGroupData[{ -Cell[328924, 8309, 2221, 64, 70, "Input",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], -Cell[331148, 8375, 554, 12, 70, "Message",ExpressionUUID->"3ebcf84a-7882-bd47-b9c8-0657501c09d4"], -Cell[331705, 8389, 560, 12, 70, "Message",ExpressionUUID->"5ba908af-818e-5d45-9b4d-c738ed936632"], -Cell[332268, 8403, 560, 12, 70, "Message",ExpressionUUID->"b25ed3b8-96c0-f246-8b73-bf5dca1bf3be"], -Cell[332831, 8417, 455, 10, 70, "Message",ExpressionUUID->"4d7ee3e1-e220-9e46-b1cc-01012021a276"], -Cell[333289, 8429, 169, 2, 70, "Output",ExpressionUUID->"f21819b7-4040-3a47-b212-dc05454fc812"] +Cell[214350, 5980, 368, 9, 94, "Input",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], +Cell[214721, 5991, 225, 4, 75, "Output",ExpressionUUID->"5b198d56-056a-427f-9d9b-d2faa67b15c2"] }, Open ]], Cell[CellGroupData[{ -Cell[333495, 8436, 2223, 64, 70, "Input",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], -Cell[335721, 8502, 555, 12, 70, "Message",ExpressionUUID->"abd6af2a-56b2-2644-a5c5-5aa91718971c"], -Cell[336279, 8516, 558, 12, 70, "Message",ExpressionUUID->"31d8f902-5be7-c54f-8e99-429decd85903"], -Cell[336840, 8530, 560, 12, 70, "Message",ExpressionUUID->"666728b2-41bd-114c-ad81-a56ae7cb85e9"], -Cell[337403, 8544, 453, 10, 70, "Message",ExpressionUUID->"7a1ee219-911f-6846-82f7-c389bec607c2"], -Cell[337859, 8556, 167, 2, 70, "Output",ExpressionUUID->"f40d5525-ccff-eb4c-a859-e6917373a7f1"] +Cell[214983, 6000, 2663, 88, 746, "Input",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], +Cell[217649, 6090, 225, 4, 75, "Output",ExpressionUUID->"6e559820-ab51-4344-9543-8c0e2137ed0d"] }, Open ]], Cell[CellGroupData[{ -Cell[338063, 8563, 213, 6, 70, "Input",ExpressionUUID->"fcd1131c-ba92-0b46-817b-e5f89f4ec38f"], -Cell[338279, 8571, 169, 2, 70, "Output",ExpressionUUID->"3749f94f-79b1-2342-af7e-bc4d815737fe"] +Cell[217911, 6099, 2603, 85, 746, "Input",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], +Cell[220517, 6186, 224, 4, 75, "Output",ExpressionUUID->"650795d2-84a9-4db4-92ba-cbc37ba66253"] }, Open ]], -Cell[338463, 8576, 247, 5, 70, "Input",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"], Cell[CellGroupData[{ -Cell[338735, 8585, 554, 18, 70, "Input",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], -Cell[339292, 8605, 167, 2, 70, "Output",ExpressionUUID->"aad53d59-da78-9348-9ac4-1e0902e814d3"] +Cell[220778, 6195, 3712, 118, 982, "Input",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], +Cell[224493, 6315, 222, 4, 75, "Output",ExpressionUUID->"8c71c53f-1bfd-428c-8ffe-82c94d65cde6"] }, Open ]], +Cell[224730, 6322, 164, 4, 66, "Input",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], Cell[CellGroupData[{ -Cell[339496, 8612, 166, 4, 70, "Input",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], -Cell[339665, 8618, 169, 2, 70, "Output",ExpressionUUID->"4fef6a46-506a-e14c-9df4-f75ab9f6cdb2"] +Cell[224919, 6330, 2075, 59, 484, "Input",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], +Cell[226997, 6391, 660, 14, 129, "Message",ExpressionUUID->"29f4d308-2a0d-43d6-b28b-e4add91e8a0a"], +Cell[227660, 6407, 660, 14, 129, "Message",ExpressionUUID->"ab1ab79f-e2ac-45ac-a41f-0ec5c838c0e5"], +Cell[228323, 6423, 661, 14, 129, "Message",ExpressionUUID->"7f72033a-702b-4fdc-944a-2864fc8abe3e"], +Cell[228987, 6439, 524, 12, 49, "Message",ExpressionUUID->"f8e5ccc6-e74b-4178-b92a-f01d060fc33f"], +Cell[229514, 6453, 221, 4, 75, "Output",ExpressionUUID->"7dd2a9a8-9cdb-423c-9fc4-d63ccf97c2bb"] }, Open ]], Cell[CellGroupData[{ -Cell[339871, 8625, 181, 5, 70, "Input",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], -Cell[340055, 8632, 173, 3, 70, "Output",ExpressionUUID->"f46a3dc4-a4b4-034f-91be-6596e81ebf6d"] +Cell[229772, 6462, 2077, 59, 484, "Input",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], +Cell[231852, 6523, 660, 14, 129, "Message",ExpressionUUID->"3e12b230-1ad3-44d9-8eb6-ea75177805c3"], +Cell[232515, 6539, 663, 14, 129, "Message",ExpressionUUID->"f01abd79-4765-43ba-9418-3a3b399624c7"], +Cell[233181, 6555, 661, 14, 129, "Message",ExpressionUUID->"628c8280-d03d-463c-a130-979bccc59aea"], +Cell[233845, 6571, 524, 12, 49, "Message",ExpressionUUID->"1200c2ba-bdd1-4a30-a6ef-17d49332922e"], +Cell[234372, 6585, 209, 4, 75, "Output",ExpressionUUID->"55209329-590f-4177-92cb-c38eb178ce77"] }, Open ]], Cell[CellGroupData[{ -Cell[340265, 8640, 6055, 185, 70, "Input",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], -Cell[346323, 8827, 172, 3, 70, "Output",ExpressionUUID->"ccd4df45-d425-704c-b4a9-648b41b92e77"] +Cell[234618, 6594, 1961, 53, 340, "Input",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], +Cell[236582, 6649, 213, 4, 75, "Output",ExpressionUUID->"16a76c66-3d75-46b0-a19d-62ade5ebdabc"] }, Open ]], Cell[CellGroupData[{ -Cell[346532, 8835, 368, 9, 70, "Input",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], -Cell[346903, 8846, 170, 3, 70, "Output",ExpressionUUID->"1ebb6633-805d-cf47-abbc-564ac9bf2374"] +Cell[236832, 6658, 2094, 60, 546, "Input",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], +Cell[238929, 6720, 497, 11, 129, "Message",ExpressionUUID->"cb33453f-b5ca-e14d-a319-662822d35ed2"], +Cell[239429, 6733, 501, 11, 129, "Message",ExpressionUUID->"aa5fb574-aeea-7141-9d86-babfa2192485"], +Cell[239933, 6746, 503, 11, 129, "Message",ExpressionUUID->"dec65c86-5426-6949-9e38-c5bc3eb7722e"], +Cell[240439, 6759, 455, 10, 47, "Message",ExpressionUUID->"32a908f1-0097-2943-9511-bd82e083c1e0"], +Cell[240897, 6771, 43631, 762, 523, "Output",ExpressionUUID->"704b46fd-7ca5-4147-bbb4-19991a3778e5"] }, Open ]], +Cell[284543, 7536, 2453, 69, 387, "Input",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], +Cell[286999, 7607, 209, 5, 66, "Input",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], Cell[CellGroupData[{ -Cell[347110, 8854, 6122, 187, 70, "Input",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], -Cell[353235, 9043, 175, 3, 70, "Output",ExpressionUUID->"a3a95ff2-cddf-6a4c-ac06-8cc3fd5707bc"] +Cell[287233, 7616, 212, 6, 107, "Input",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], +Cell[287448, 7624, 168, 2, 75, "Output",ExpressionUUID->"1f95faab-1b52-5440-9bc8-bbd29c090294"] }, Open ]], Cell[CellGroupData[{ -Cell[353447, 9051, 368, 9, 70, "Input",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], -Cell[353818, 9062, 169, 3, 70, "Output",ExpressionUUID->"53071608-cf53-7441-9033-6c9cf2e7fa8e"] +Cell[287653, 7631, 1814, 53, 546, "Input",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], +Cell[289470, 7686, 505, 11, 129, "Message",ExpressionUUID->"34609962-a5ff-c943-bd24-1be35ec9ac87"], +Cell[289978, 7699, 509, 11, 129, "Message",ExpressionUUID->"1fdfd709-87fa-2d47-912a-2bb16540a45a"], +Cell[290490, 7712, 508, 11, 129, "Message",ExpressionUUID->"02f7e2ed-ac22-9d4d-8071-ab116260ee28"], +Cell[291001, 7725, 455, 10, 47, "Message",ExpressionUUID->"7db76209-a5a6-1947-80c1-912d214b981c"], +Cell[291459, 7737, 22399, 414, 527, "Output",ExpressionUUID->"b5f713da-fcb5-f640-b2b9-a3f5b5d5c325"] }, Open ]], Cell[CellGroupData[{ -Cell[354024, 9070, 2663, 88, 70, "Input",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], -Cell[356690, 9160, 173, 3, 70, "Output",ExpressionUUID->"547b87cc-d628-4d49-8e04-72542aa7650e"] +Cell[313895, 8156, 1612, 47, 221, "Input",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], +Cell[315510, 8205, 581, 12, 109, "Message",ExpressionUUID->"e283daf4-b253-944e-a35b-b9d739b4810d"], +Cell[316094, 8219, 584, 12, 109, "Message",ExpressionUUID->"45f4fe27-f32a-9441-bd55-e0801ff04328"], +Cell[316681, 8233, 590, 12, 166, "Message",ExpressionUUID->"8fffabed-e171-5e42-9ba8-fd51ae8f5dd5"], +Cell[317274, 8247, 455, 10, 47, "Message",ExpressionUUID->"8b648472-e40f-a549-a057-c6eeb9f14028"], +Cell[317732, 8259, 169, 2, 75, "Output",ExpressionUUID->"c7b55151-fc31-d94c-8a4e-01b34fb0adaf"] }, Open ]], Cell[CellGroupData[{ -Cell[356900, 9168, 2603, 85, 70, "Input",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], -Cell[359506, 9255, 171, 3, 70, "Output",ExpressionUUID->"a8edf49c-9c61-9e4b-9fa8-4de409daba96"] +Cell[317938, 8266, 2249, 64, 472, "Input",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], +Cell[320190, 8332, 557, 12, 166, "Message",ExpressionUUID->"3632efc4-f65f-2f41-a6ff-4f71c0ebce84"], +Cell[320750, 8346, 560, 12, 166, "Message",ExpressionUUID->"779c5516-83d5-5d41-8a7a-6b58e876b564"], +Cell[321313, 8360, 560, 12, 166, "Message",ExpressionUUID->"8e3711bd-8e48-2e4f-9802-ad11f73b56ef"], +Cell[321876, 8374, 455, 10, 47, "Message",ExpressionUUID->"f612a69b-4740-9240-9908-d284159fa285"], +Cell[322334, 8386, 169, 2, 75, "Output",ExpressionUUID->"bfa217e6-2060-bc4b-b710-35d6c4ca9627"] }, Open ]], Cell[CellGroupData[{ -Cell[359714, 9263, 3712, 118, 70, "Input",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], -Cell[363429, 9383, 171, 3, 70, "Output",ExpressionUUID->"3584cc50-41a2-ae4b-af54-859d095b0154"] +Cell[322540, 8393, 2221, 64, 610, "Input",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], +Cell[324764, 8459, 554, 12, 166, "Message",ExpressionUUID->"3ebcf84a-7882-bd47-b9c8-0657501c09d4"], +Cell[325321, 8473, 560, 12, 109, "Message",ExpressionUUID->"5ba908af-818e-5d45-9b4d-c738ed936632"], +Cell[325884, 8487, 560, 12, 166, "Message",ExpressionUUID->"b25ed3b8-96c0-f246-8b73-bf5dca1bf3be"], +Cell[326447, 8501, 455, 10, 47, "Message",ExpressionUUID->"4d7ee3e1-e220-9e46-b1cc-01012021a276"], +Cell[326905, 8513, 169, 2, 75, "Output",ExpressionUUID->"f21819b7-4040-3a47-b212-dc05454fc812"] }, Open ]], Cell[CellGroupData[{ -Cell[363637, 9391, 2052, 59, 70, "Input",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], -Cell[365692, 9452, 572, 12, 70, "Message",ExpressionUUID->"d59869d2-8577-0547-8448-230bc5a4ac5e"], -Cell[366267, 9466, 573, 12, 70, "Message",ExpressionUUID->"844f4204-3100-6d45-b5d2-238cc22b8006"], -Cell[366843, 9480, 578, 12, 70, "Message",ExpressionUUID->"f91c55eb-7b3d-3340-b869-4269b99a071c"], -Cell[367424, 9494, 457, 10, 70, "Message",ExpressionUUID->"efd89e15-8a66-4047-aee7-4fb3607a30a7"], -Cell[367884, 9506, 172, 3, 70, "Output",ExpressionUUID->"e68f2098-b3f7-6745-819f-009e252dd442"] +Cell[327111, 8520, 2223, 64, 610, "Input",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], +Cell[329337, 8586, 555, 12, 166, "Message",ExpressionUUID->"abd6af2a-56b2-2644-a5c5-5aa91718971c"], +Cell[329895, 8600, 558, 12, 109, "Message",ExpressionUUID->"31d8f902-5be7-c54f-8e99-429decd85903"], +Cell[330456, 8614, 560, 12, 166, "Message",ExpressionUUID->"666728b2-41bd-114c-ad81-a56ae7cb85e9"], +Cell[331019, 8628, 453, 10, 47, "Message",ExpressionUUID->"7a1ee219-911f-6846-82f7-c389bec607c2"], +Cell[331475, 8640, 167, 2, 75, "Output",ExpressionUUID->"f40d5525-ccff-eb4c-a859-e6917373a7f1"] }, Open ]], Cell[CellGroupData[{ -Cell[368093, 9514, 2054, 59, 70, "Input",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], -Cell[370150, 9575, 572, 12, 70, "Message",ExpressionUUID->"feb3ed0a-8d45-dd4c-a945-407106f88295"], -Cell[370725, 9589, 575, 12, 70, "Message",ExpressionUUID->"d5a6c2e7-2143-1843-8d40-686107f6aa27"], -Cell[371303, 9603, 576, 12, 70, "Message",ExpressionUUID->"a15d89dd-0dfc-c845-aec3-fe7d60156e1f"], -Cell[371882, 9617, 457, 10, 70, "Message",ExpressionUUID->"0f9408e4-b654-4a40-9b38-655b18398efc"], -Cell[372342, 9629, 170, 3, 70, "Output",ExpressionUUID->"f72e3d82-4d19-7143-9513-38a15cee4d51"] +Cell[331679, 8647, 213, 6, 106, "Input",ExpressionUUID->"fcd1131c-ba92-0b46-817b-e5f89f4ec38f"], +Cell[331895, 8655, 169, 2, 75, "Output",ExpressionUUID->"3749f94f-79b1-2342-af7e-bc4d815737fe"] }, Open ]], +Cell[332079, 8660, 247, 5, 66, "Input",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"], Cell[CellGroupData[{ -Cell[372549, 9637, 2030, 55, 70, "Input",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], -Cell[374582, 9694, 20377, 384, 70, "Output",ExpressionUUID->"02187549-f2f0-9c4d-81fc-d12919ea7802"] +Cell[332351, 8669, 554, 18, 118, "Input",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], +Cell[332908, 8689, 167, 2, 75, "Output",ExpressionUUID->"aad53d59-da78-9348-9ac4-1e0902e814d3"] }, Open ]], Cell[CellGroupData[{ -Cell[394996, 10083, 2118, 60, 70, "Input",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], -Cell[397117, 10145, 499, 11, 70, "Message",ExpressionUUID->"75033ea5-32d5-4445-bfb0-a981507a2e9a"], -Cell[397619, 10158, 504, 11, 70, "Message",ExpressionUUID->"bc53c85b-e7c9-be4a-8ed4-30975f08af5c"], -Cell[398126, 10171, 507, 11, 70, "Message",ExpressionUUID->"e09d101b-c5d3-424f-aab9-c5788f3b9ef6"], -Cell[398636, 10184, 455, 10, 70, "Message",ExpressionUUID->"28f777a6-eb27-df49-a698-bd7806baa94c"], -Cell[399094, 10196, 22381, 415, 70, "Output",ExpressionUUID->"cd997d80-b342-8b4c-95c9-b33408882f73"] +Cell[333112, 8696, 166, 4, 125, "Input",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], +Cell[333281, 8702, 169, 2, 75, "Output",ExpressionUUID->"4fef6a46-506a-e14c-9df4-f75ab9f6cdb2"] }, Open ]], -Cell[421490, 10614, 174, 3, 70, "Input",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], -Cell[421667, 10619, 209, 5, 70, "Input",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"], Cell[CellGroupData[{ -Cell[421901, 10628, 1616, 48, 70, "Input",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], -Cell[423520, 10678, 594, 12, 70, "Message",ExpressionUUID->"96d01a47-7c9a-1944-8904-f1788b2f0a8a"], -Cell[424117, 10692, 594, 12, 70, "Message",ExpressionUUID->"fee09e7b-7835-394b-93fe-35ddd26f69d1"], -Cell[424714, 10706, 598, 12, 70, "Message",ExpressionUUID->"fc12fc14-afc1-0a48-8829-94d858477ec4"], -Cell[425315, 10720, 457, 10, 70, "Message",ExpressionUUID->"41b1346d-6d7d-5d4d-9b1a-88cde3361cf3"], -Cell[425775, 10732, 171, 3, 70, "Output",ExpressionUUID->"0bbffe2c-809c-1149-a08f-e3342cda31a0"] +Cell[333487, 8709, 181, 5, 97, "Input",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], +Cell[333671, 8716, 173, 3, 75, "Output",ExpressionUUID->"f46a3dc4-a4b4-034f-91be-6596e81ebf6d"] }, Open ]], Cell[CellGroupData[{ -Cell[425983, 10740, 2247, 64, 70, "Input",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], -Cell[428233, 10806, 572, 12, 70, "Message",ExpressionUUID->"922f5f31-888f-7340-96cd-65ecb8ea2e84"], -Cell[428808, 10820, 573, 12, 70, "Message",ExpressionUUID->"287b836d-7493-d44f-85b0-183d2793165c"], -Cell[429384, 10834, 578, 12, 70, "Message",ExpressionUUID->"962d88f7-2937-fe4b-ba97-3fe8099808d5"], -Cell[429965, 10848, 455, 10, 70, "Message",ExpressionUUID->"2ec951f6-2332-9241-84af-c7ac25232c2e"], -Cell[430423, 10860, 172, 3, 70, "Output",ExpressionUUID->"3eb28fb3-5fd6-4240-b231-e1f0fa53f4dc"] +Cell[333881, 8724, 6097, 186, 1319, "Input",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], +Cell[339981, 8912, 172, 3, 75, "Output",ExpressionUUID->"ccd4df45-d425-704c-b4a9-648b41b92e77"] }, Open ]], Cell[CellGroupData[{ -Cell[430632, 10868, 2221, 64, 70, "Input",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], -Cell[432856, 10934, 570, 12, 70, "Message",ExpressionUUID->"8fc71a81-55ed-5940-a6a0-1fa4e0c6425a"], -Cell[433429, 10948, 573, 12, 70, "Message",ExpressionUUID->"001b2f06-491c-6c4f-881b-1d7c12c1b14f"], -Cell[434005, 10962, 578, 12, 70, "Message",ExpressionUUID->"865c0491-32b6-3549-83ec-bdf42c3a31aa"], -Cell[434586, 10976, 455, 10, 70, "Message",ExpressionUUID->"3566013f-7b44-504c-95a5-32d3ac2ece3d"], -Cell[435044, 10988, 172, 3, 70, "Output",ExpressionUUID->"9cc3c720-52c0-b040-a0b4-75ff2aab4396"] +Cell[340190, 8920, 368, 9, 94, "Input",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], +Cell[340561, 8931, 170, 3, 75, "Output",ExpressionUUID->"1ebb6633-805d-cf47-abbc-564ac9bf2374"] }, Open ]], Cell[CellGroupData[{ -Cell[435253, 10996, 2221, 64, 70, "Input",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], -Cell[437477, 11062, 572, 12, 70, "Message",ExpressionUUID->"bc9996c1-a929-5b41-9541-f607e96932b8"], -Cell[438052, 11076, 575, 12, 70, "Message",ExpressionUUID->"eb28c83b-0aac-8d4e-a729-f978b41e689a"], -Cell[438630, 11090, 578, 12, 70, "Message",ExpressionUUID->"70b030cf-db8c-c440-8526-b10f71bb72b3"], -Cell[439211, 11104, 455, 10, 70, "Message",ExpressionUUID->"4d72b001-01d6-d944-9c97-6d0d7d2eccbb"], -Cell[439669, 11116, 173, 3, 70, "Output",ExpressionUUID->"c15d23fa-1bed-9640-940a-c33e3a830230"] +Cell[340768, 8939, 6122, 187, 1319, "Input",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], +Cell[346893, 9128, 175, 3, 109, "Output",ExpressionUUID->"a3a95ff2-cddf-6a4c-ac06-8cc3fd5707bc"] }, Open ]], Cell[CellGroupData[{ -Cell[439879, 11124, 213, 6, 70, "Input",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"], -Cell[440095, 11132, 172, 3, 70, "Output",ExpressionUUID->"2d0467ed-c049-384d-ae20-12fc79688cfb"] +Cell[347105, 9136, 368, 9, 109, "Input",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], +Cell[347476, 9147, 169, 3, 109, "Output",ExpressionUUID->"53071608-cf53-7441-9033-6c9cf2e7fa8e"] }, Open ]], -Cell[440282, 11138, 245, 5, 70, "Input",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"], Cell[CellGroupData[{ -Cell[440552, 11147, 558, 19, 70, "Input",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], -Cell[441113, 11168, 173, 3, 70, "Output",ExpressionUUID->"26c56722-6e97-cb4f-b35b-a00d42f1d8f6"] +Cell[347682, 9155, 2663, 88, 109, "Input",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], +Cell[350348, 9245, 173, 3, 109, "Output",ExpressionUUID->"547b87cc-d628-4d49-8e04-72542aa7650e"] }, Open ]], Cell[CellGroupData[{ -Cell[441323, 11176, 170, 5, 70, "Input",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], -Cell[441496, 11183, 171, 3, 70, "Output",ExpressionUUID->"7e7edb0d-1306-d742-8b32-e7c6dc694892"] +Cell[350558, 9253, 2603, 85, 109, "Input",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], +Cell[353164, 9340, 171, 3, 109, "Output",ExpressionUUID->"a8edf49c-9c61-9e4b-9fa8-4de409daba96"] }, Open ]], Cell[CellGroupData[{ -Cell[441704, 11191, 181, 5, 70, "Input",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], -Cell[441888, 11198, 173, 3, 70, "Output",ExpressionUUID->"e5353287-a717-554a-9c6b-1021438b30ff"] +Cell[353372, 9348, 3712, 118, 109, "Input",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], +Cell[357087, 9468, 171, 3, 109, "Output",ExpressionUUID->"3584cc50-41a2-ae4b-af54-859d095b0154"] }, Open ]], Cell[CellGroupData[{ -Cell[442098, 11206, 6055, 185, 70, "Input",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], -Cell[448156, 11393, 175, 3, 70, "Output",ExpressionUUID->"ed4bd4f3-e1cc-fa47-b5b5-475b6e581b1f"] +Cell[357295, 9476, 2052, 59, 109, "Input",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], +Cell[359350, 9537, 572, 12, 109, "Message",ExpressionUUID->"d59869d2-8577-0547-8448-230bc5a4ac5e"], +Cell[359925, 9551, 573, 12, 109, "Message",ExpressionUUID->"844f4204-3100-6d45-b5d2-238cc22b8006"], +Cell[360501, 9565, 578, 12, 109, "Message",ExpressionUUID->"f91c55eb-7b3d-3340-b869-4269b99a071c"], +Cell[361082, 9579, 457, 10, 109, "Message",ExpressionUUID->"efd89e15-8a66-4047-aee7-4fb3607a30a7"], +Cell[361542, 9591, 172, 3, 109, "Output",ExpressionUUID->"e68f2098-b3f7-6745-819f-009e252dd442"] }, Open ]], Cell[CellGroupData[{ -Cell[448368, 11401, 368, 9, 70, "Input",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], -Cell[448739, 11412, 170, 3, 70, "Output",ExpressionUUID->"0c9f07a0-dfdf-6e41-964a-0bcdc0cbcb45"] +Cell[361751, 9599, 2054, 59, 109, "Input",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], +Cell[363808, 9660, 572, 12, 109, "Message",ExpressionUUID->"feb3ed0a-8d45-dd4c-a945-407106f88295"], +Cell[364383, 9674, 575, 12, 109, "Message",ExpressionUUID->"d5a6c2e7-2143-1843-8d40-686107f6aa27"], +Cell[364961, 9688, 576, 12, 109, "Message",ExpressionUUID->"a15d89dd-0dfc-c845-aec3-fe7d60156e1f"], +Cell[365540, 9702, 457, 10, 109, "Message",ExpressionUUID->"0f9408e4-b654-4a40-9b38-655b18398efc"], +Cell[366000, 9714, 170, 3, 109, "Output",ExpressionUUID->"f72e3d82-4d19-7143-9513-38a15cee4d51"] }, Open ]], Cell[CellGroupData[{ -Cell[448946, 11420, 6122, 187, 70, "Input",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], -Cell[455071, 11609, 175, 3, 70, "Output",ExpressionUUID->"579eace1-979d-7347-a36f-c1fefbf459f5"] +Cell[366207, 9722, 2030, 55, 109, "Input",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], +Cell[368240, 9779, 20377, 384, 109, "Output",ExpressionUUID->"02187549-f2f0-9c4d-81fc-d12919ea7802"] }, Open ]], Cell[CellGroupData[{ -Cell[455283, 11617, 368, 9, 70, "Input",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], -Cell[455654, 11628, 172, 3, 70, "Output",ExpressionUUID->"0225baf1-4541-ed4d-8528-13926fef86cd"] +Cell[388654, 10168, 2118, 60, 109, "Input",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], +Cell[390775, 10230, 499, 11, 109, "Message",ExpressionUUID->"75033ea5-32d5-4445-bfb0-a981507a2e9a"], +Cell[391277, 10243, 504, 11, 109, "Message",ExpressionUUID->"bc53c85b-e7c9-be4a-8ed4-30975f08af5c"], +Cell[391784, 10256, 507, 11, 109, "Message",ExpressionUUID->"e09d101b-c5d3-424f-aab9-c5788f3b9ef6"], +Cell[392294, 10269, 455, 10, 109, "Message",ExpressionUUID->"28f777a6-eb27-df49-a698-bd7806baa94c"], +Cell[392752, 10281, 22381, 415, 109, "Output",ExpressionUUID->"cd997d80-b342-8b4c-95c9-b33408882f73"] }, Open ]], +Cell[415148, 10699, 174, 3, 109, "Input",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], +Cell[415325, 10704, 209, 5, 109, "Input",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"], Cell[CellGroupData[{ -Cell[455863, 11636, 2663, 88, 70, "Input",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], -Cell[458529, 11726, 173, 3, 70, "Output",ExpressionUUID->"f7c789e7-838d-b443-a597-00e69e7c3611"] +Cell[415559, 10713, 1616, 48, 109, "Input",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], +Cell[417178, 10763, 594, 12, 109, "Message",ExpressionUUID->"96d01a47-7c9a-1944-8904-f1788b2f0a8a"], +Cell[417775, 10777, 594, 12, 109, "Message",ExpressionUUID->"fee09e7b-7835-394b-93fe-35ddd26f69d1"], +Cell[418372, 10791, 598, 12, 109, "Message",ExpressionUUID->"fc12fc14-afc1-0a48-8829-94d858477ec4"], +Cell[418973, 10805, 457, 10, 109, "Message",ExpressionUUID->"41b1346d-6d7d-5d4d-9b1a-88cde3361cf3"], +Cell[419433, 10817, 171, 3, 109, "Output",ExpressionUUID->"0bbffe2c-809c-1149-a08f-e3342cda31a0"] }, Open ]], Cell[CellGroupData[{ -Cell[458739, 11734, 2603, 85, 70, "Input",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], -Cell[461345, 11821, 171, 3, 70, "Output",ExpressionUUID->"fc2bf760-d110-cb46-bd02-e934de9fd4f9"] +Cell[419641, 10825, 2247, 64, 109, "Input",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], +Cell[421891, 10891, 572, 12, 109, "Message",ExpressionUUID->"922f5f31-888f-7340-96cd-65ecb8ea2e84"], +Cell[422466, 10905, 573, 12, 109, "Message",ExpressionUUID->"287b836d-7493-d44f-85b0-183d2793165c"], +Cell[423042, 10919, 578, 12, 109, "Message",ExpressionUUID->"962d88f7-2937-fe4b-ba97-3fe8099808d5"], +Cell[423623, 10933, 455, 10, 109, "Message",ExpressionUUID->"2ec951f6-2332-9241-84af-c7ac25232c2e"], +Cell[424081, 10945, 172, 3, 109, "Output",ExpressionUUID->"3eb28fb3-5fd6-4240-b231-e1f0fa53f4dc"] }, Open ]], Cell[CellGroupData[{ -Cell[461553, 11829, 3712, 118, 70, "Input",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], -Cell[465268, 11949, 171, 3, 70, "Output",ExpressionUUID->"4304216c-b250-ab48-915e-b844e71a70f1"] +Cell[424290, 10953, 2221, 64, 109, "Input",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], +Cell[426514, 11019, 570, 12, 109, "Message",ExpressionUUID->"8fc71a81-55ed-5940-a6a0-1fa4e0c6425a"], +Cell[427087, 11033, 573, 12, 109, "Message",ExpressionUUID->"001b2f06-491c-6c4f-881b-1d7c12c1b14f"], +Cell[427663, 11047, 578, 12, 109, "Message",ExpressionUUID->"865c0491-32b6-3549-83ec-bdf42c3a31aa"], +Cell[428244, 11061, 455, 10, 109, "Message",ExpressionUUID->"3566013f-7b44-504c-95a5-32d3ac2ece3d"], +Cell[428702, 11073, 172, 3, 109, "Output",ExpressionUUID->"9cc3c720-52c0-b040-a0b4-75ff2aab4396"] }, Open ]], Cell[CellGroupData[{ -Cell[465476, 11957, 2052, 59, 70, "Input",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], -Cell[467531, 12018, 568, 12, 70, "Message",ExpressionUUID->"ef0dcda5-4eb3-fb4f-a7ba-cf9592c754fd"], -Cell[468102, 12032, 572, 12, 70, "Message",ExpressionUUID->"516128bc-41b4-3d49-8276-2fe73d5d437e"], -Cell[468677, 12046, 574, 12, 70, "Message",ExpressionUUID->"83555127-edb0-f34d-bade-abdcd60ad387"], -Cell[469254, 12060, 457, 10, 70, "Message",ExpressionUUID->"f8efe38f-0b83-4645-b574-b25c08902457"], -Cell[469714, 12072, 172, 3, 70, "Output",ExpressionUUID->"de5933f0-d736-3443-950a-4744d8abefe5"] +Cell[428911, 11081, 2221, 64, 109, "Input",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], +Cell[431135, 11147, 572, 12, 109, "Message",ExpressionUUID->"bc9996c1-a929-5b41-9541-f607e96932b8"], +Cell[431710, 11161, 575, 12, 109, "Message",ExpressionUUID->"eb28c83b-0aac-8d4e-a729-f978b41e689a"], +Cell[432288, 11175, 578, 12, 109, "Message",ExpressionUUID->"70b030cf-db8c-c440-8526-b10f71bb72b3"], +Cell[432869, 11189, 455, 10, 109, "Message",ExpressionUUID->"4d72b001-01d6-d944-9c97-6d0d7d2eccbb"], +Cell[433327, 11201, 173, 3, 109, "Output",ExpressionUUID->"c15d23fa-1bed-9640-940a-c33e3a830230"] }, Open ]], Cell[CellGroupData[{ -Cell[469923, 12080, 2054, 59, 70, "Input",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], -Cell[471980, 12141, 568, 12, 70, "Message",ExpressionUUID->"d0c389d2-1c6b-3a44-bd00-6e54df438015"], -Cell[472551, 12155, 572, 12, 70, "Message",ExpressionUUID->"3f819d0b-3458-d54e-bb8e-ed758b92949a"], -Cell[473126, 12169, 574, 12, 70, "Message",ExpressionUUID->"7403c575-bafd-2049-8d02-89293c73f7f1"], -Cell[473703, 12183, 457, 10, 70, "Message",ExpressionUUID->"29512b1b-8a2c-1740-986b-fb78e7d2ec89"], -Cell[474163, 12195, 171, 3, 70, "Output",ExpressionUUID->"686785b6-8c83-3e43-88fb-689383b13a2d"] +Cell[433537, 11209, 213, 6, 109, "Input",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"], +Cell[433753, 11217, 172, 3, 109, "Output",ExpressionUUID->"2d0467ed-c049-384d-ae20-12fc79688cfb"] }, Open ]], +Cell[433940, 11223, 245, 5, 109, "Input",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"], Cell[CellGroupData[{ -Cell[474371, 12203, 2030, 55, 70, "Input",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], -Cell[476404, 12260, 19960, 375, 70, "Output",ExpressionUUID->"9eb47740-dc4f-3248-80e4-ef19d916a0ad"] +Cell[434210, 11232, 558, 19, 109, "Input",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], +Cell[434771, 11253, 173, 3, 109, "Output",ExpressionUUID->"26c56722-6e97-cb4f-b35b-a00d42f1d8f6"] }, Open ]], Cell[CellGroupData[{ -Cell[496401, 12640, 2118, 60, 70, "Input",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], -Cell[498522, 12702, 496, 11, 70, "Message",ExpressionUUID->"6bc1b8c6-3100-6640-9985-3abfd43de799"], -Cell[499021, 12715, 501, 11, 70, "Message",ExpressionUUID->"82e13dda-210b-a94d-9e1d-a821db42ab6b"], -Cell[499525, 12728, 505, 11, 70, "Message",ExpressionUUID->"9d37688a-c69d-ed49-bce7-cf0090e0ecb8"], -Cell[500033, 12741, 455, 10, 70, "Message",ExpressionUUID->"4e87d0d8-b47a-ef47-85af-16467b219f50"], -Cell[500491, 12753, 21721, 403, 70, "Output",ExpressionUUID->"6974e3c4-9b35-2f4b-97bf-745f60f533f8"] +Cell[434981, 11261, 170, 5, 109, "Input",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], +Cell[435154, 11268, 171, 3, 109, "Output",ExpressionUUID->"7e7edb0d-1306-d742-8b32-e7c6dc694892"] }, Open ]], -Cell[522227, 13159, 181, 3, 70, "Input",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], -Cell[522411, 13164, 207, 5, 70, "Input",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"], Cell[CellGroupData[{ -Cell[522643, 13173, 1616, 48, 70, "Input",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], -Cell[524262, 13223, 589, 12, 70, "Message",ExpressionUUID->"8906bbab-e37b-4b4c-898f-52bfc96dde7b"], -Cell[524854, 13237, 588, 12, 70, "Message",ExpressionUUID->"6ae14bce-ec42-7f4d-9914-0630eea4cdf9"], -Cell[525445, 13251, 594, 12, 70, "Message",ExpressionUUID->"7e98a506-896d-0d47-8502-b83685d9a60c"], -Cell[526042, 13265, 455, 10, 70, "Message",ExpressionUUID->"400e66c2-06b5-814e-a2be-19c4c75ccbf0"], -Cell[526500, 13277, 173, 3, 70, "Output",ExpressionUUID->"f202ab02-e319-144b-97e8-ae603395b346"] +Cell[435362, 11276, 181, 5, 109, "Input",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], +Cell[435546, 11283, 173, 3, 109, "Output",ExpressionUUID->"e5353287-a717-554a-9c6b-1021438b30ff"] }, Open ]], Cell[CellGroupData[{ -Cell[526710, 13285, 2246, 64, 70, "Input",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], -Cell[528959, 13351, 566, 12, 70, "Message",ExpressionUUID->"2d7e67d1-8691-e348-9ca8-caa63b533102"], -Cell[529528, 13365, 570, 12, 70, "Message",ExpressionUUID->"f0eb6f1d-f621-8647-b6a6-8bf673e41ebb"], -Cell[530101, 13379, 574, 12, 70, "Message",ExpressionUUID->"64fda82a-0f74-2743-89a8-afd600de203a"], -Cell[530678, 13393, 456, 10, 70, "Message",ExpressionUUID->"971a319d-8ab4-464d-a08e-f97fe8d4c0e1"], -Cell[531137, 13405, 171, 3, 70, "Output",ExpressionUUID->"b3c37f48-9827-884f-94d9-1f76aed7bfaa"] +Cell[435756, 11291, 6055, 185, 109, "Input",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], +Cell[441814, 11478, 175, 3, 109, "Output",ExpressionUUID->"ed4bd4f3-e1cc-fa47-b5b5-475b6e581b1f"] }, Open ]], Cell[CellGroupData[{ -Cell[531345, 13413, 2221, 64, 70, "Input",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], -Cell[533569, 13479, 569, 12, 70, "Message",ExpressionUUID->"1040ba10-c733-df44-b556-0998dc0163c9"], -Cell[534141, 13493, 571, 12, 70, "Message",ExpressionUUID->"e451b852-84c2-a941-b1d7-812ecad4750e"], -Cell[534715, 13507, 575, 12, 70, "Message",ExpressionUUID->"a15e0c9d-d634-6e47-94c5-2ce40fcb4d52"], -Cell[535293, 13521, 458, 10, 70, "Message",ExpressionUUID->"a3ddc92b-b5c9-5e46-be44-6165430ec35f"], -Cell[535754, 13533, 171, 3, 70, "Output",ExpressionUUID->"978bf39b-9d1f-a54f-a6de-a2e3d269e126"] +Cell[442026, 11486, 368, 9, 109, "Input",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], +Cell[442397, 11497, 170, 3, 109, "Output",ExpressionUUID->"0c9f07a0-dfdf-6e41-964a-0bcdc0cbcb45"] }, Open ]], Cell[CellGroupData[{ -Cell[535962, 13541, 2223, 64, 70, "Input",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], -Cell[538188, 13607, 567, 12, 70, "Message",ExpressionUUID->"57c74c2a-63a6-9846-b3f7-1a08cebb8172"], -Cell[538758, 13621, 571, 12, 70, "Message",ExpressionUUID->"2e606101-b73e-f443-8324-5b1c64dcaa7f"], -Cell[539332, 13635, 573, 12, 70, "Message",ExpressionUUID->"4da9173d-4ced-1e49-83f6-426d72ec8cf3"], -Cell[539908, 13649, 456, 10, 70, "Message",ExpressionUUID->"a2dba8d9-69c9-cb46-bbb4-f7192fe3e138"], -Cell[540367, 13661, 173, 3, 70, "Output",ExpressionUUID->"12fa1803-dc21-9349-8d62-d5d5f0fa85c6"] +Cell[442604, 11505, 6122, 187, 109, "Input",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], +Cell[448729, 11694, 175, 3, 109, "Output",ExpressionUUID->"579eace1-979d-7347-a36f-c1fefbf459f5"] }, Open ]], Cell[CellGroupData[{ -Cell[540577, 13669, 211, 6, 70, "Input",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], -Cell[540791, 13677, 174, 3, 70, "Output",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"] +Cell[448941, 11702, 368, 9, 109, "Input",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], +Cell[449312, 11713, 172, 3, 109, "Output",ExpressionUUID->"0225baf1-4541-ed4d-8528-13926fef86cd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[449521, 11721, 2663, 88, 109, "Input",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], +Cell[452187, 11811, 173, 3, 109, "Output",ExpressionUUID->"f7c789e7-838d-b443-a597-00e69e7c3611"] +}, Open ]], +Cell[CellGroupData[{ +Cell[452397, 11819, 2603, 85, 109, "Input",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], +Cell[455003, 11906, 171, 3, 109, "Output",ExpressionUUID->"fc2bf760-d110-cb46-bd02-e934de9fd4f9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[455211, 11914, 3712, 118, 109, "Input",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], +Cell[458926, 12034, 171, 3, 109, "Output",ExpressionUUID->"4304216c-b250-ab48-915e-b844e71a70f1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[459134, 12042, 2052, 59, 109, "Input",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], +Cell[461189, 12103, 568, 12, 109, "Message",ExpressionUUID->"ef0dcda5-4eb3-fb4f-a7ba-cf9592c754fd"], +Cell[461760, 12117, 572, 12, 109, "Message",ExpressionUUID->"516128bc-41b4-3d49-8276-2fe73d5d437e"], +Cell[462335, 12131, 574, 12, 109, "Message",ExpressionUUID->"83555127-edb0-f34d-bade-abdcd60ad387"], +Cell[462912, 12145, 457, 10, 109, "Message",ExpressionUUID->"f8efe38f-0b83-4645-b574-b25c08902457"], +Cell[463372, 12157, 172, 3, 109, "Output",ExpressionUUID->"de5933f0-d736-3443-950a-4744d8abefe5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[463581, 12165, 2054, 59, 109, "Input",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], +Cell[465638, 12226, 568, 12, 109, "Message",ExpressionUUID->"d0c389d2-1c6b-3a44-bd00-6e54df438015"], +Cell[466209, 12240, 572, 12, 109, "Message",ExpressionUUID->"3f819d0b-3458-d54e-bb8e-ed758b92949a"], +Cell[466784, 12254, 574, 12, 109, "Message",ExpressionUUID->"7403c575-bafd-2049-8d02-89293c73f7f1"], +Cell[467361, 12268, 457, 10, 109, "Message",ExpressionUUID->"29512b1b-8a2c-1740-986b-fb78e7d2ec89"], +Cell[467821, 12280, 171, 3, 109, "Output",ExpressionUUID->"686785b6-8c83-3e43-88fb-689383b13a2d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[468029, 12288, 2030, 55, 109, "Input",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], +Cell[470062, 12345, 19960, 375, 109, "Output",ExpressionUUID->"9eb47740-dc4f-3248-80e4-ef19d916a0ad"] +}, Open ]], +Cell[CellGroupData[{ +Cell[490059, 12725, 2118, 60, 109, "Input",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], +Cell[492180, 12787, 496, 11, 109, "Message",ExpressionUUID->"6bc1b8c6-3100-6640-9985-3abfd43de799"], +Cell[492679, 12800, 501, 11, 109, "Message",ExpressionUUID->"82e13dda-210b-a94d-9e1d-a821db42ab6b"], +Cell[493183, 12813, 505, 11, 109, "Message",ExpressionUUID->"9d37688a-c69d-ed49-bce7-cf0090e0ecb8"], +Cell[493691, 12826, 455, 10, 109, "Message",ExpressionUUID->"4e87d0d8-b47a-ef47-85af-16467b219f50"], +Cell[494149, 12838, 21721, 403, 109, "Output",ExpressionUUID->"6974e3c4-9b35-2f4b-97bf-745f60f533f8"] +}, Open ]], +Cell[515885, 13244, 181, 3, 109, "Input",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], +Cell[516069, 13249, 207, 5, 109, "Input",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"], +Cell[CellGroupData[{ +Cell[516301, 13258, 1616, 48, 109, "Input",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], +Cell[517920, 13308, 589, 12, 109, "Message",ExpressionUUID->"8906bbab-e37b-4b4c-898f-52bfc96dde7b"], +Cell[518512, 13322, 588, 12, 109, "Message",ExpressionUUID->"6ae14bce-ec42-7f4d-9914-0630eea4cdf9"], +Cell[519103, 13336, 594, 12, 109, "Message",ExpressionUUID->"7e98a506-896d-0d47-8502-b83685d9a60c"], +Cell[519700, 13350, 455, 10, 109, "Message",ExpressionUUID->"400e66c2-06b5-814e-a2be-19c4c75ccbf0"], +Cell[520158, 13362, 173, 3, 109, "Output",ExpressionUUID->"f202ab02-e319-144b-97e8-ae603395b346"] +}, Open ]], +Cell[CellGroupData[{ +Cell[520368, 13370, 2246, 64, 109, "Input",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], +Cell[522617, 13436, 566, 12, 109, "Message",ExpressionUUID->"2d7e67d1-8691-e348-9ca8-caa63b533102"], +Cell[523186, 13450, 570, 12, 109, "Message",ExpressionUUID->"f0eb6f1d-f621-8647-b6a6-8bf673e41ebb"], +Cell[523759, 13464, 574, 12, 109, "Message",ExpressionUUID->"64fda82a-0f74-2743-89a8-afd600de203a"], +Cell[524336, 13478, 456, 10, 109, "Message",ExpressionUUID->"971a319d-8ab4-464d-a08e-f97fe8d4c0e1"], +Cell[524795, 13490, 171, 3, 109, "Output",ExpressionUUID->"b3c37f48-9827-884f-94d9-1f76aed7bfaa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[525003, 13498, 2221, 64, 109, "Input",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], +Cell[527227, 13564, 569, 12, 109, "Message",ExpressionUUID->"1040ba10-c733-df44-b556-0998dc0163c9"], +Cell[527799, 13578, 571, 12, 109, "Message",ExpressionUUID->"e451b852-84c2-a941-b1d7-812ecad4750e"], +Cell[528373, 13592, 575, 12, 109, "Message",ExpressionUUID->"a15e0c9d-d634-6e47-94c5-2ce40fcb4d52"], +Cell[528951, 13606, 458, 10, 109, "Message",ExpressionUUID->"a3ddc92b-b5c9-5e46-be44-6165430ec35f"], +Cell[529412, 13618, 171, 3, 109, "Output",ExpressionUUID->"978bf39b-9d1f-a54f-a6de-a2e3d269e126"] +}, Open ]], +Cell[CellGroupData[{ +Cell[529620, 13626, 2223, 64, 109, "Input",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], +Cell[531846, 13692, 567, 12, 109, "Message",ExpressionUUID->"57c74c2a-63a6-9846-b3f7-1a08cebb8172"], +Cell[532416, 13706, 571, 12, 109, "Message",ExpressionUUID->"2e606101-b73e-f443-8324-5b1c64dcaa7f"], +Cell[532990, 13720, 573, 12, 109, "Message",ExpressionUUID->"4da9173d-4ced-1e49-83f6-426d72ec8cf3"], +Cell[533566, 13734, 456, 10, 109, "Message",ExpressionUUID->"a2dba8d9-69c9-cb46-bbb4-f7192fe3e138"], +Cell[534025, 13746, 173, 3, 109, "Output",ExpressionUUID->"12fa1803-dc21-9349-8d62-d5d5f0fa85c6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[534235, 13754, 211, 6, 109, "Input",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], +Cell[534449, 13762, 174, 3, 109, "Output",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"] }, Open ]] } ] diff --git a/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/h_166-74_Pu240_20-21_osc_Qw2.nb b/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/h_166-74_Pu240_20-21_osc_Qw2.nb index a320d64..c38b355 100644 --- a/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/h_166-74_Pu240_20-21_osc_Qw2.nb +++ b/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/h_166-74_Pu240_20-21_osc_Qw2.nb @@ -3,25 +3,4866 @@ (*** 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[ 576364, 14290] +NotebookOptionsPosition[ 536578, 13661] +NotebookOutlinePosition[ 536990, 13678] +CellTagsIndexPosition[ 536947, 13675] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f1", "="}]], "Input", + RowBox[{"d", "=", "1.85"}]], "Input", CellChangeTimes->{ - 3.9918496921150837`*^9},ExpressionUUID->"ede64bc2-06f7-8743-a0a6-\ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.9940821364341908`*^9, 3.994082136546945*^9}, { + 3.99408222505837*^9, 3.9940822566678658`*^9}}, + CellLabel-> + "In[371]:=",ExpressionUUID->"54b36068-9321-438c-a803-bdfeeb693271"], + +Cell[BoxData["1.85`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, 3.9940821397588*^9, {3.9940822104439507`*^9, + 3.994082259420228*^9}}, + CellLabel-> + "Out[371]=",ExpressionUUID->"26277989-612d-4624-a7fd-6566daf32958"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.99407306326154*^9, 3.994073063917366*^9}}, + CellLabel-> + "In[372]:=",ExpressionUUID->"1c421dd2-7ef0-4acf-b3ac-9d06c4aef325"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.994082139815686*^9, {3.994082210466728*^9, + 3.994082259455925*^9}}, + CellLabel-> + "Out[372]=",ExpressionUUID->"47d7e8c2-8ba2-4926-bdf4-ba3f66c667da"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "166"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.9940730665357656`*^9, 3.994073067306501*^9}}, + CellLabel-> + "In[373]:=",ExpressionUUID->"865b48f4-585d-4a77-9c1a-36035c88fc15"], + +Cell[BoxData["166"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.994082139825574*^9, {3.9940822104766827`*^9, + 3.994082259466858*^9}}, + CellLabel-> + "Out[373]=",ExpressionUUID->"3ca5277a-8673-4870-a853-3c078b11a2be"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel-> + "In[374]:=",ExpressionUUID->"0dcece84-756b-4391-883d-ef8e469946e0"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.994082139835326*^9, {3.994082210487997*^9, + 3.994082259477521*^9}}, + CellLabel-> + "Out[374]=",ExpressionUUID->"793de95e-87af-4dee-b866-1ddfb7b0b609"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel-> + "In[375]:=",ExpressionUUID->"0276ac51-d7d4-4127-b3d4-8450525062c0"], + +Cell[BoxData["0.54425`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.994082139845067*^9, {3.994082210498448*^9, + 3.994082259487831*^9}}, + CellLabel-> + "Out[375]=",ExpressionUUID->"804b9073-4dfa-495c-9a56-8907ecfe983c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel-> + "In[376]:=",ExpressionUUID->"8242da63-2454-42b7-b309-f70f75e9da83"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.994082139854616*^9, {3.99408221050937*^9, + 3.994082259497772*^9}}, + CellLabel-> + "Out[376]=",ExpressionUUID->"2da1f696-2e73-40c1-b6fe-a9f8e9ad8bed"] +}, 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[377]:=",ExpressionUUID->"aa02b70e-387d-49e9-9573-6e0f1130bf3c"], + +Cell[BoxData["6.3752030057102145`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.994082139865213*^9, {3.994082210519739*^9, + 3.994082259507691*^9}}, + CellLabel-> + "Out[377]=",ExpressionUUID->"6da2d0b7-1d1b-4438-8bdc-523c1f1d27f6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel-> + "In[378]:=",ExpressionUUID->"f50e1dab-1bd4-439a-bc22-a71f7ec2e562"], + +Cell[BoxData["4.870070286417752`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.99408213987599*^9, {3.9940822105302753`*^9, + 3.994082259517621*^9}}, + CellLabel-> + "Out[378]=",ExpressionUUID->"d4b9773d-3d85-4f2e-b937-d08b39725edf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.9035518425"}]], "Input", + CellChangeTimes->{3.991799283179735*^9, 3.994073090925538*^9}, + CellLabel-> + "In[379]:=",ExpressionUUID->"4454b5e4-85d8-455b-ad0b-a1d17160f221"], + +Cell[BoxData["0.9035518425`"], "Output", + CellChangeTimes->{ + 3.994082139886828*^9, {3.9940822105402517`*^9, 3.9940822595277653`*^9}}, + CellLabel-> + "Out[379]=",ExpressionUUID->"bc37fd4b-6ef9-4a25-9cc2-45208c17c8ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.3863821951"}]], "Input", + CellChangeTimes->{3.991799280663351*^9, 3.9940730962719193`*^9}, + CellLabel-> + "In[380]:=",ExpressionUUID->"416b70d3-a4e0-4204-a453-6eb1c3b1e9c8"], + +Cell[BoxData["0.3863821951`"], "Output", + CellChangeTimes->{ + 3.994082139897403*^9, {3.994082210550373*^9, 3.994082259537862*^9}}, + CellLabel-> + "Out[380]=",ExpressionUUID->"9874a41a-46ff-4865-8b55-87d4d4f2aea6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel-> + "In[381]:=",ExpressionUUID->"e788292c-aaa3-41c4-997f-b67346c03039"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.994082139910328*^9, {3.994082210560801*^9, + 3.9940822595420103`*^9}}, + CellLabel-> + "Out[381]=",ExpressionUUID->"8b770740-6375-4a94-bd8e-753563b43199"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel-> + "In[382]:=",ExpressionUUID->"ef0cda8d-9d8a-4bb3-bd88-bbfd83e75854"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.9940821399224367`*^9, {3.994082210571288*^9, + 3.994082259554398*^9}}, + CellLabel-> + "Out[382]=",ExpressionUUID->"607b86d8-b6ac-49ee-a12e-de50d26e0a24"] +}, 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[383]:=",ExpressionUUID->"43da542d-4f77-420f-9090-54018b5cb4fe"], + +Cell[BoxData["2.315137197466896`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.994082139933848*^9, {3.994082210581699*^9, + 3.9940822595648727`*^9}}, + CellLabel-> + "Out[383]=",ExpressionUUID->"1539a043-75f6-4697-9c66-dd6c8abaa5f3"] +}, 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[384]:=",ExpressionUUID->"1de051a4-9775-42cc-b740-bc991544eec8"], + +Cell[BoxData["1.4220278650887666`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.994082139944078*^9, {3.9940822105866547`*^9, + 3.9940822595749483`*^9}}, + CellLabel-> + "Out[384]=",ExpressionUUID->"74ad00f1-d8cd-4d17-bcd4-7955bf5baba7"] +}, 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[385]:=",ExpressionUUID->"84e1d295-8c23-4259-8dd9-7adf7e35d067"], + +Cell[BoxData["0.4069661562665162`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.994082139954578*^9, {3.994082210602051*^9, + 3.994082259585372*^9}}, + CellLabel-> + "Out[385]=",ExpressionUUID->"1b5cee6c-5edd-4ab9-8d56-a1c083877dc5"] +}, 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[386]:=",ExpressionUUID->"fa45fea8-6386-4332-b153-df368543cf58"], + +Cell[BoxData[ + RowBox[{"-", "0.08563504168524437`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.9940821399653873`*^9, {3.994082210613337*^9, + 3.994082259596693*^9}}, + CellLabel-> + "Out[386]=",ExpressionUUID->"33fd6a96-3820-4318-a5ad-945d7a94ebe5"] +}, 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[387]:=",ExpressionUUID->"716610a2-7c9d-4f23-88aa-d470351e90ba"], + +Cell[BoxData[ + RowBox[{"-", "0.5841673375234483`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.9940821399780188`*^9, {3.9940822106256943`*^9, + 3.9940822596071453`*^9}}, + CellLabel-> + "Out[387]=",ExpressionUUID->"91133e04-72bb-4b94-a180-694a0fef273c"] +}, 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[388]:=",ExpressionUUID->"0ac3d858-cb59-4e46-8b73-36d3d79cae0c"], + +Cell[BoxData["0.7215005296935654`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.994082139989607*^9, {3.994082210635736*^9, + 3.99408225961747*^9}}, + CellLabel-> + "Out[388]=",ExpressionUUID->"142c7187-6d38-471d-859c-6e6c99f3569b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel-> + "In[389]:=",ExpressionUUID->"762bf122-768c-4500-8971-55894b694671"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.9940821399995413`*^9, {3.9940822106444807`*^9, + 3.994082259627829*^9}}, + CellLabel-> + "Out[389]=",ExpressionUUID->"e4b902a8-892e-4e78-aaa1-469409eb24f7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel-> + "In[390]:=",ExpressionUUID->"ca09243d-e621-4101-9ff7-d458cc8f1266"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.994082140010191*^9, {3.994082210653286*^9, + 3.994082259638521*^9}}, + CellLabel-> + "Out[390]=",ExpressionUUID->"96e1ce9f-6f9f-4c45-a7fb-d8b9e6dd3b46"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel-> + "In[391]:=",ExpressionUUID->"c6803cf1-3e56-4c42-a419-2641da711aa0"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.9940821400205593`*^9, {3.9940822106620293`*^9, + 3.9940822596489058`*^9}}, + CellLabel-> + "Out[391]=",ExpressionUUID->"2fbb2136-1d41-45c3-bdc0-7482492cb64d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel-> + "In[392]:=",ExpressionUUID->"dae5153f-911a-49cf-9bb4-44d0081c1d49"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.994082140031045*^9, {3.994082210671171*^9, + 3.994082259659958*^9}}, + CellLabel-> + "Out[392]=",ExpressionUUID->"97fb2515-1180-45bf-bb60-d9b69adafd83"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel-> + "In[393]:=",ExpressionUUID->"99979b7d-5078-4d3b-ba55-a88f742375b4"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.994082140043984*^9, {3.9940822106801777`*^9, + 3.994082259671282*^9}}, + CellLabel-> + "Out[393]=",ExpressionUUID->"a6815b56-76f8-46f7-80cd-f9fd64394d65"] +}, 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.9940731043812733`*^9, 3.994073104508005*^9}}, + CellLabel-> + "In[394]:=",ExpressionUUID->"46780137-b59e-4062-a64f-2b398a29ee35"], + +Cell[BoxData["66"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, 3.994082140061471*^9, {3.99408221068924*^9, + 3.9940822596826973`*^9}}, + CellLabel-> + "Out[394]=",ExpressionUUID->"85549d07-7b10-4a40-b965-c3aa798887c5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, {3.9940731093077307`*^9, 3.99407311085991*^9}}, + CellLabel-> + "In[395]:=",ExpressionUUID->"8d50ce28-af85-4d96-85ca-8f8868659214"], + +Cell[BoxData["28"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.994082140071866*^9, {3.9940822106985188`*^9, + 3.9940822596930656`*^9}}, + CellLabel-> + "Out[395]=",ExpressionUUID->"f5d9458a-dd25-4aca-9c76-0c2ef189fc6b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel-> + "In[396]:=",ExpressionUUID->"9965b835-5d7d-46b8-a269-a30feacd524e"], + +Cell[BoxData["74"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.994082140082143*^9, {3.994082210707357*^9, + 3.994082259703759*^9}}, + CellLabel-> + "Out[396]=",ExpressionUUID->"9c1aa965-16a3-4b7d-8c56-44f3f002d052"] +}, 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[397]:=",ExpressionUUID->"92bcc0dd-a8f0-4ab1-a3d9-ee0b74e4ecf5"], + +Cell[BoxData["0.11092478020188863`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9940821400927267`*^9, {3.994082210716133*^9, + 3.994082259714077*^9}}, + CellLabel-> + "Out[397]=",ExpressionUUID->"f21ae9bf-2a23-4a0f-8470-c2a3eef714b0"] +}, 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[398]:=",ExpressionUUID->"2bbfcebd-831f-432f-a392-abeb412a5495"], + +Cell[BoxData[ + RowBox[{"-", "2.5630967111690004`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.9940821401033173`*^9, {3.994082210725114*^9, + 3.994082259724759*^9}}, + CellLabel-> + "Out[398]=",ExpressionUUID->"d1ed5244-bcd3-413f-9e8b-117cd540ca01"] +}, 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[399]:=",ExpressionUUID->"9b92a6bf-fac6-42f2-a8f7-4ef3d660996e"], + +Cell[BoxData["17.4437013546787`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.994082140114669*^9, {3.994082210734028*^9, + 3.994082259736136*^9}}, + CellLabel-> + "Out[399]=",ExpressionUUID->"4de7e762-d517-4e21-9ef0-6188b6a598f3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel-> + "In[400]:=",ExpressionUUID->"184d0590-ce03-4b2e-ac29-4a3dab3130fa"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.994082140125458*^9, {3.9940822107429523`*^9, + 3.9940822597468443`*^9}}, + CellLabel-> + "Out[400]=",ExpressionUUID->"cbc1698c-fc06-4e9f-a3ca-f7c5d815ca79"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "2.185"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { + 3.994073141486967*^9, 3.9940731424234343`*^9}}, + CellLabel-> + "In[401]:=",ExpressionUUID->"0b570ae3-42d2-4602-82a8-84e3a04649d9"], + +Cell[BoxData["2.185`"], "Output", + CellChangeTimes->{ + 3.9940821401363583`*^9, {3.994082210751677*^9, 3.9940822597573833`*^9}}, + CellLabel-> + "Out[401]=",ExpressionUUID->"d1b15e78-d2be-4f53-9006-7f711ea12201"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel-> + "In[402]:=",ExpressionUUID->"d39bf080-2369-4f01-b27f-465c7b25d1e0"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.755"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.9940731457645493`*^9, 3.994073146848226*^9}}, + CellLabel-> + "In[403]:=",ExpressionUUID->"1ed9c65d-e67b-44be-bc26-948345b3f4ce"], + +Cell[BoxData["0.755`"], "Output", + CellChangeTimes->{ + 3.994082140150962*^9, {3.9940822107679367`*^9, 3.9940822597717943`*^9}}, + CellLabel-> + "Out[403]=",ExpressionUUID->"99cb3253-9cbc-4baa-9177-c3f88a7491fc"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel-> + "In[404]:=",ExpressionUUID->"295d5529-f7ea-475f-acb4-6eb4486987a6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "2.5"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.994073149619232*^9, 3.994073149893601*^9}}, + CellLabel-> + "In[405]:=",ExpressionUUID->"7f3ec5f8-41c4-4cf5-a24e-a062c6800394"], + +Cell[BoxData["2.5`"], "Output", + CellChangeTimes->{ + 3.994082140164228*^9, {3.994082210783918*^9, 3.994082259785039*^9}}, + CellLabel-> + "Out[405]=",ExpressionUUID->"a4cd39fc-e7b7-4abb-ba1d-f3a2c23f4f20"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel-> + "In[406]:=",ExpressionUUID->"993979c0-bd2d-4ad1-9b61-552ca76007a0"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.165"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, {3.994073152359264*^9, 3.994073154823225*^9}}, + CellLabel-> + "In[407]:=",ExpressionUUID->"b92b203e-98eb-4a2b-91fa-18cad5b51e15"], + +Cell[BoxData["1.165`"], "Output", + CellChangeTimes->{ + 3.994082140177301*^9, {3.994082210799852*^9, 3.9940822597980413`*^9}}, + CellLabel-> + "Out[407]=",ExpressionUUID->"d74f83c4-1e66-4ebe-a4da-fc391dcbf215"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel-> + "In[408]:=",ExpressionUUID->"fdeb5ba4-fdd2-422d-8ea1-39e77d72f72d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.055"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, {3.994073158537945*^9, + 3.994073159984886*^9}}, + CellLabel-> + "In[409]:=",ExpressionUUID->"6177caaf-88a9-4637-8e87-257bcca7d7d3"], + +Cell[BoxData["1.055`"], "Output", + CellChangeTimes->{ + 3.9940821401902237`*^9, {3.9940822108158007`*^9, 3.994082259811191*^9}}, + CellLabel-> + "Out[409]=",ExpressionUUID->"afd2c213-33ec-42c1-b499-0c4ac04a4864"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel-> + "In[410]:=",ExpressionUUID->"60b82e3b-67de-44d1-b120-0c9b9d0d3fd4"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.575"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.9940731689650297`*^9, + 3.994073170525517*^9}}, + CellLabel-> + "In[411]:=",ExpressionUUID->"12de3bbc-0879-44cc-b328-21ba423eeb20"], + +Cell[BoxData["0.575`"], "Output", + CellChangeTimes->{ + 3.99408214020331*^9, {3.9940822108320093`*^9, 3.994082259824339*^9}}, + CellLabel-> + "Out[411]=",ExpressionUUID->"7b540941-4937-4c6f-acd9-16093a44981a"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel-> + "In[412]:=",ExpressionUUID->"00f01e3b-b3db-4685-af30-78576555e0fd"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "1.51"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.99407317466329*^9, + 3.9940731756907377`*^9}}, + CellLabel-> + "In[413]:=",ExpressionUUID->"7975ebac-cd08-419a-a96b-d5292747e5f3"], + +Cell[BoxData["1.51`"], "Output", + CellChangeTimes->{ + 3.9940821402169437`*^9, {3.994082210847649*^9, 3.994082259837338*^9}}, + CellLabel-> + "Out[413]=",ExpressionUUID->"5a8f3b4c-1fac-4616-8a48-ccca896dcbe8"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel-> + "In[414]:=",ExpressionUUID->"31005cd2-1cb1-4c77-af6e-89c1822b54e1"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "0.635"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, {3.99407317843715*^9, 3.994073182537156*^9}}, + CellLabel-> + "In[415]:=",ExpressionUUID->"fd4967a2-2507-4712-a0bb-5a23786cbe57"], + +Cell[BoxData["0.635`"], "Output", + CellChangeTimes->{ + 3.994082140230339*^9, {3.994082210863504*^9, 3.994082259850523*^9}}, + CellLabel-> + "Out[415]=",ExpressionUUID->"cffe47dc-4dac-4268-b615-804cb50a4a1d"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel-> + "In[416]:=",ExpressionUUID->"2a198cd6-3fbf-4fba-8290-42336a86ac0b"], + +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[417]:=",ExpressionUUID->"a7c8eb5b-277e-43f9-ad0e-c2e582e8c0dc"], + +Cell[BoxData["0.14543451930671605`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.9940821403190203`*^9, {3.994082210903069*^9, + 3.994082259888891*^9}}, + CellLabel-> + "Out[417]=",ExpressionUUID->"617f27cb-cd5b-4f7b-9373-fffa46bef6a3"] +}, 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[418]:=",ExpressionUUID->"2b01dd81-5a9e-4651-914a-da7baa693613"], + +Cell[BoxData["7.609769640822119`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9940821403533278`*^9, {3.994082210934519*^9, + 3.994082259917639*^9}}, + CellLabel-> + "Out[418]=",ExpressionUUID->"03e2f15e-84bb-49ec-bb27-c117b44e4f5c"] +}, 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[419]:=",ExpressionUUID->"d3f3bd4a-a9ac-45a8-ac67-3af82fbc74d8"], + +Cell[BoxData[ + RowBox[{"-", "15.030827196449275`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.994082140383691*^9, {3.9940822109679832`*^9, + 3.994082259945158*^9}}, + CellLabel-> + "Out[419]=",ExpressionUUID->"d579e267-8e04-48f3-8b4e-d5022ddfcb63"] +}, 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[420]:=",ExpressionUUID->"151a3a36-34c7-4b81-aa16-f23e16c0d146"], + +Cell[BoxData[ + RowBox[{"-", "19.761827924452415`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.9940821404195766`*^9, {3.9940822110021753`*^9, + 3.994082259978429*^9}}, + CellLabel-> + "Out[420]=",ExpressionUUID->"112182d7-e756-486e-89db-5383cac76ed9"] +}, 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[421]:=",ExpressionUUID->"8f7b1795-a9ef-41e5-8533-b6c6a5bd88b2"], + +Cell[BoxData[ + RowBox[{"-", "57.66257775030843`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.9940821404579077`*^9, {3.994082211038884*^9, + 3.994082260011196*^9}}, + CellLabel-> + "Out[421]=",ExpressionUUID->"9c0df20c-1574-41ef-bf65-e415a8b4a304"] +}, 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[422]:=",ExpressionUUID->"05db592d-4708-4ba2-b046-1754a38e3d37"], + +Cell[BoxData[ + RowBox[{"-", "150.68948520646092`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.994082140505332*^9, {3.994082211079116*^9, + 3.9940822600491877`*^9}}, + CellLabel-> + "Out[422]=",ExpressionUUID->"478028f3-f095-4d5d-9214-bd3400febb1f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel-> + "In[423]:=",ExpressionUUID->"e0dbfa19-8141-43bf-86ec-4287e1cbd7e6"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.99408214052183*^9, {3.994082211090176*^9, + 3.994082260062854*^9}}, + CellLabel-> + "Out[423]=",ExpressionUUID->"8fdcf4fa-2a40-404b-8128-61bd41c8c5ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel-> + "In[424]:=",ExpressionUUID->"b9584586-114f-42b8-b6f0-f06b1038285d"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.994082140531746*^9, {3.9940822111011677`*^9, + 3.994082260073297*^9}}, + CellLabel-> + "Out[424]=",ExpressionUUID->"cd6646a2-1e6c-442c-8a25-10345f39107d"] +}, 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[425]:=",ExpressionUUID->"abc92f82-3d3e-41cb-a0f0-063081e72ebc"], + +Cell[BoxData["120.33662547388403`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.994082140542282*^9, {3.994082211112996*^9, + 3.994082260084251*^9}}, + CellLabel-> + "Out[425]=",ExpressionUUID->"d288d810-0b52-4467-bc9a-5d1a6ba2ecbe"] +}, 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[426]:=",ExpressionUUID->"1fb81d84-4db6-457d-a98d-d3d4a6c111aa"], + +Cell[BoxData[ + RowBox[{"-", "107.1121642480161`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.994082140552636*^9, {3.994082211122551*^9, + 3.994082260094944*^9}}, + CellLabel-> + "Out[426]=",ExpressionUUID->"e59afbe2-5db2-425b-9ffc-635915bbaa10"] +}, 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[427]:=",ExpressionUUID->"1a9670fb-b623-40cf-91a7-4db9b61d62ec"], + +Cell[BoxData["123.55775944746372`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9940821405632*^9, {3.9940822111320972`*^9, + 3.9940822601055107`*^9}}, + CellLabel-> + "Out[427]=",ExpressionUUID->"3ffa7517-e36e-41ea-ab7d-d96fc660a854"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel-> + "In[428]:=",ExpressionUUID->"2f5b9bd8-f9ad-4bfd-a8c4-e5f5b660eee5"], + +Cell[BoxData["0.4069661562665162`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.994082140573392*^9, {3.994082211141264*^9, + 3.994082260116184*^9}}, + CellLabel-> + "Out[428]=",ExpressionUUID->"a5b9a15f-7441-4230-82ca-01dfd277d66a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel-> + "In[429]:=",ExpressionUUID->"ebfb17f3-e95e-4eba-9e50-433992102c8f"], + +Cell[BoxData[ + RowBox[{"-", "0.08563504168524437`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.994082140583559*^9, {3.994082211156444*^9, + 3.994082260127738*^9}}, + CellLabel-> + "Out[429]=",ExpressionUUID->"3593d402-754f-47fd-a87e-f56000e4cef1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel-> + "In[430]:=",ExpressionUUID->"5de504fd-f846-40cb-ad8b-4804c3917e14"], + +Cell[BoxData[ + RowBox[{"-", "0.5841673375234483`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.994082140593707*^9, {3.994082211166273*^9, + 3.99408226016045*^9}}, + CellLabel-> + "Out[430]=",ExpressionUUID->"a1e99dc5-7b24-4bf7-8994-9bb38b933044"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel-> + "In[431]:=",ExpressionUUID->"6247a7d7-e98d-4926-b82f-4e40f049efb0"], + +Cell[BoxData["0.7215005296935654`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.9940821428128853`*^9, {3.994082211175336*^9, + 3.994082260189337*^9}}, + CellLabel-> + "Out[431]=",ExpressionUUID->"100d9dbc-e6cb-4be4-ab5d-6281b95c4887"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel-> + "In[432]:=",ExpressionUUID->"e1b956f3-c906-49b1-aacf-7b546604d57d"], + +Cell[BoxData["2.315137197466896`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, {3.9940822111841908`*^9, 3.9940822602133617`*^9}}, + CellLabel-> + "Out[432]=",ExpressionUUID->"94c6bc5b-57ff-46ba-9f60-44006d3d8e43"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel-> + "In[433]:=",ExpressionUUID->"69d58b13-133d-4ef2-805c-df6535a39a8f"], + +Cell[BoxData["1.4220278650887666`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, {3.994082211193069*^9, 3.99408226021774*^9}}, + CellLabel-> + "Out[433]=",ExpressionUUID->"0f9f6270-e39d-4344-98b2-a4f83ae423c2"] +}, 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[434]:=",ExpressionUUID->"b06349f3-b106-49d9-9e6a-8775f70c91a6"], + +Cell[BoxData[ + RowBox[{"-", "34.52117430586003`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, {3.994082211202162*^9, 3.994082260228716*^9}}, + CellLabel-> + "Out[434]=",ExpressionUUID->"503e7a6a-ec1a-486c-9371-2dd49a43067c"] +}, 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[435]:=",ExpressionUUID->"63085683-6964-4d01-aad9-4fd48996008c"], + +Cell[BoxData[ + RowBox[{"-", "6.669654351008722`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, {3.9940822112147284`*^9, 3.994082260239593*^9}}, + CellLabel-> + "Out[435]=",ExpressionUUID->"c5cdc95a-179c-4f26-8556-8009a49ee2a5"] +}, 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[436]:=",ExpressionUUID->"f13e102e-2f50-4d77-a269-5e537a06fe7a"], + +Cell[BoxData["85.815451168024`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, {3.994082211224436*^9, 3.994082260250916*^9}}, + CellLabel-> + "Out[436]=",ExpressionUUID->"112241ee-4b28-4b87-93e2-42bc771a12f8"] +}, 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[437]:=",ExpressionUUID->"072ffdfe-0804-4695-8920-d2fd093cca68"], + +Cell[BoxData[ + RowBox[{"-", "107.1121642480161`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, {3.994082211233815*^9, 3.994082260261983*^9}}, + CellLabel-> + "Out[437]=",ExpressionUUID->"2165d84f-f4db-483e-b290-22f40bc573ed"] +}, 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[438]:=",ExpressionUUID->"71e2886b-ac9e-4df8-b38c-37ad827d4d8f"], + +Cell[BoxData["116.888105096455`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, {3.99408221124387*^9, 3.994082260273652*^9}}, + CellLabel-> + "Out[438]=",ExpressionUUID->"46774e83-27aa-45ab-8f4a-08f3fbb5b805"] +}, 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[439]:=",ExpressionUUID->"7cd41244-b7a2-466a-993f-28f728f742bc"], + +Cell[BoxData["42.180325689118604`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, {3.994082211253778*^9, 3.994082260284829*^9}}, + CellLabel-> + "Out[439]=",ExpressionUUID->"32c0d37d-a3ca-4fec-96e3-656444c14232"] +}, 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[440]:=",ExpressionUUID->"14140c38-699a-42c2-b521-279a6e853eda"], + +Cell[BoxData["727.4038074151157`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, {3.994082211263607*^9, 3.994082260289282*^9}}, + CellLabel-> + "Out[440]=",ExpressionUUID->"ef128e5b-9058-47b1-85b0-30da9d6079f8"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"f1", "=", "0.8718414861"}]], "Input", + CellChangeTimes->{3.9918496921150837`*^9, + 3.994083992797997*^9},ExpressionUUID->"ede64bc2-06f7-8743-a0a6-\ 6f058773310c"], Cell[BoxData[""], "Input", @@ -30,9 +4871,9 @@ Cell[BoxData[""], "Input", c82e80965ca9"], Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", - CellChangeTimes->{ - 3.991849690724144*^9},ExpressionUUID->"328429c4-9130-334e-ba7f-\ + RowBox[{"f2", "=", "0.5562187875"}]], "Input", + CellChangeTimes->{3.991849690724144*^9, + 3.9940839973284693`*^9},ExpressionUUID->"328429c4-9130-334e-ba7f-\ 7dc8ec78e5b4"], Cell[BoxData[""], "Input", @@ -2580,9 +7421,72 @@ A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", - RowBox[{"{", "}"}], "]"}]}]], "Input", - CellChangeTimes->{{3.991799458254999*^9, - 3.9917994623413925`*^9}},ExpressionUUID->"2d5a8299-5376-9747-8056-\ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.005193"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.015406"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.025113"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.034006"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.041831"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.048382"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.053535"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.057218"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.059449"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.060284"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.059853"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.058305"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.055833"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.052623"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.048884"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.044792"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.040528"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.03623"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.032028"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.02801"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.024253"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.020798"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.017676"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.014891"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.012445"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.010316"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.00849"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.006935"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.005627"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.004534"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.003631"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.994084088789774*^9},ExpressionUUID->"2d5a8299-5376-9747-8056-\ 2bd9764114a1"], Cell[BoxData[ @@ -8755,10 +13659,10 @@ Cell[BoxData["0.14275466609450368`"], "Output", "Out[395]=",ExpressionUUID->"188c2681-ea17-924e-adb2-007b19a9ee86"] }, Open ]] }, -WindowSize->{718.5, 729.75}, -WindowMargins->{{17.25, Automatic}, {Automatic, 24}}, +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->"c5c6a337-d1c3-0f45-98d9-a2509510bd89" ] @@ -8773,368 +13677,622 @@ 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, 357, 7, 36, "Input",ExpressionUUID->"54b36068-9321-438c-a803-bdfeeb693271"], +Cell[936, 31, 232, 5, 41, "Output",ExpressionUUID->"26277989-612d-4624-a7fd-6566daf32958"] }, 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[1205, 41, 250, 5, 36, "Input",ExpressionUUID->"1c421dd2-7ef0-4acf-b3ac-9d06c4aef325"], +Cell[1458, 48, 232, 5, 41, "Output",ExpressionUUID->"47d7e8c2-8ba2-4926-bdf4-ba3f66c667da"] }, 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[1727, 58, 228, 5, 36, "Input",ExpressionUUID->"865b48f4-585d-4a77-9c1a-36035c88fc15"], +Cell[1958, 65, 234, 5, 41, "Output",ExpressionUUID->"3ca5277a-8673-4870-a853-3c078b11a2be"] }, 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[2229, 75, 180, 4, 66, "Input",ExpressionUUID->"0dcece84-756b-4391-883d-ef8e469946e0"], +Cell[2412, 81, 232, 5, 75, "Output",ExpressionUUID->"793de95e-87af-4dee-b866-1ddfb7b0b609"] }, 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[2681, 91, 262, 8, 96, "Input",ExpressionUUID->"0276ac51-d7d4-4127-b3d4-8450525062c0"], +Cell[2946, 101, 237, 5, 75, "Output",ExpressionUUID->"804b9073-4dfa-495c-9a56-8907ecfe983c"] }, 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[3220, 111, 136, 3, 66, "Input",ExpressionUUID->"8242da63-2454-42b7-b309-f70f75e9da83"], +Cell[3359, 116, 233, 5, 75, "Output",ExpressionUUID->"2da1f696-2e73-40c1-b6fe-a9f8e9ad8bed"] }, 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[3629, 126, 281, 7, 66, "Input",ExpressionUUID->"aa02b70e-387d-49e9-9573-6e0f1130bf3c"], +Cell[3913, 135, 248, 5, 75, "Output",ExpressionUUID->"6da2d0b7-1d1b-4438-8bdc-523c1f1d27f6"] }, 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[4198, 145, 262, 8, 66, "Input",ExpressionUUID->"f50e1dab-1bd4-439a-bc22-a71f7ec2e562"], +Cell[4463, 155, 248, 5, 75, "Output",ExpressionUUID->"d4b9773d-3d85-4f2e-b937-d08b39725edf"] }, 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[4748, 165, 208, 4, 66, "Input",ExpressionUUID->"4454b5e4-85d8-455b-ad0b-a1d17160f221"], +Cell[4959, 171, 218, 4, 75, "Output",ExpressionUUID->"bc37fd4b-6ef9-4a25-9cc2-45208c17c8ba"] }, 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[5214, 180, 210, 4, 66, "Input",ExpressionUUID->"416b70d3-a4e0-4204-a453-6eb1c3b1e9c8"], +Cell[5427, 186, 214, 4, 75, "Output",ExpressionUUID->"9874a41a-46ff-4865-8b55-87d4d4f2aea6"] }, 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[5678, 195, 133, 3, 66, "Input",ExpressionUUID->"e788292c-aaa3-41c4-997f-b67346c03039"], +Cell[5814, 200, 232, 5, 75, "Output",ExpressionUUID->"8b770740-6375-4a94-bd8e-753563b43199"] }, 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[6083, 210, 133, 3, 66, "Input",ExpressionUUID->"ef0cda8d-9d8a-4bb3-bd88-bbfd83e75854"], +Cell[6219, 215, 232, 5, 75, "Output",ExpressionUUID->"607b86d8-b6ac-49ee-a12e-de50d26e0a24"] }, 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[6488, 225, 561, 20, 175, "Input",ExpressionUUID->"43da542d-4f77-420f-9090-54018b5cb4fe"], +Cell[7052, 247, 249, 5, 75, "Output",ExpressionUUID->"1539a043-75f6-4697-9c66-dd6c8abaa5f3"] }, 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[7338, 257, 561, 20, 175, "Input",ExpressionUUID->"1de051a4-9775-42cc-b740-bc991544eec8"], +Cell[7902, 279, 252, 5, 75, "Output",ExpressionUUID->"74ad00f1-d8cd-4d17-bcd4-7955bf5baba7"] }, 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[8191, 289, 1592, 51, 362, "Input",ExpressionUUID->"84e1d295-8c23-4259-8dd9-7adf7e35d067"], +Cell[9786, 342, 246, 5, 75, "Output",ExpressionUUID->"1b5cee6c-5edd-4ab9-8d56-a1c083877dc5"] }, 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[10069, 352, 1426, 47, 362, "Input",ExpressionUUID->"fa45fea8-6386-4332-b153-df368543cf58"], +Cell[11498, 401, 266, 6, 75, "Output",ExpressionUUID->"33fd6a96-3820-4318-a5ad-945d7a94ebe5"] }, 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[11801, 412, 1426, 47, 362, "Input",ExpressionUUID->"716610a2-7c9d-4f23-88aa-d470351e90ba"], +Cell[13230, 461, 271, 6, 75, "Output",ExpressionUUID->"91133e04-72bb-4b94-a180-694a0fef273c"] }, 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[13538, 472, 1592, 51, 362, "Input",ExpressionUUID->"0ac3d858-cb59-4e46-8b73-36d3d79cae0c"], +Cell[15133, 525, 243, 5, 75, "Output",ExpressionUUID->"142c7187-6d38-471d-859c-6e6c99f3569b"] }, 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[15413, 535, 135, 3, 66, "Input",ExpressionUUID->"762bf122-768c-4500-8971-55894b694671"], +Cell[15551, 540, 234, 5, 75, "Output",ExpressionUUID->"e4b902a8-892e-4e78-aaa1-469409eb24f7"] }, 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[15822, 550, 137, 3, 66, "Input",ExpressionUUID->"ca09243d-e621-4101-9ff7-d458cc8f1266"], +Cell[15962, 555, 232, 5, 75, "Output",ExpressionUUID->"96e1ce9f-6f9f-4c45-a7fb-d8b9e6dd3b46"] }, 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[16231, 565, 138, 3, 66, "Input",ExpressionUUID->"c6803cf1-3e56-4c42-a419-2641da711aa0"], +Cell[16372, 570, 240, 5, 75, "Output",ExpressionUUID->"2fbb2136-1d41-45c3-bdc0-7482492cb64d"] }, 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[16649, 580, 223, 5, 66, "Input",ExpressionUUID->"dae5153f-911a-49cf-9bb4-44d0081c1d49"], +Cell[16875, 587, 247, 6, 75, "Output",ExpressionUUID->"97fb2515-1180-45bf-bb60-d9b69adafd83"] }, 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[17159, 598, 138, 3, 66, "Input",ExpressionUUID->"99979b7d-5078-4d3b-ba55-a88f742375b4"], +Cell[17300, 603, 236, 5, 75, "Output",ExpressionUUID->"a6815b56-76f8-46f7-80cd-f9fd64394d65"] }, 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[17573, 613, 328, 6, 66, "Input",ExpressionUUID->"46780137-b59e-4062-a64f-2b398a29ee35"], +Cell[17904, 621, 232, 5, 75, "Output",ExpressionUUID->"85549d07-7b10-4a40-b965-c3aa798887c5"] }, 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[18173, 631, 301, 6, 66, "Input",ExpressionUUID->"8d50ce28-af85-4d96-85ca-8f8868659214"], +Cell[18477, 639, 235, 5, 75, "Output",ExpressionUUID->"f5d9458a-dd25-4aca-9c76-0c2ef189fc6b"] }, 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[18749, 649, 223, 5, 66, "Input",ExpressionUUID->"9965b835-5d7d-46b8-a269-a30feacd524e"], +Cell[18975, 656, 229, 5, 75, "Output",ExpressionUUID->"9c1aa965-16a3-4b7d-8c56-44f3f002d052"] }, 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[19241, 666, 354, 11, 96, "Input",ExpressionUUID->"92bcc0dd-a8f0-4ab1-a3d9-ee0b74e4ecf5"], +Cell[19598, 679, 251, 5, 75, "Output",ExpressionUUID->"f21ae9bf-2a23-4a0f-8470-c2a3eef714b0"] }, 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[19886, 689, 354, 11, 96, "Input",ExpressionUUID->"2bbfcebd-831f-432f-a392-abeb412a5495"], +Cell[20243, 702, 267, 6, 75, "Output",ExpressionUUID->"d1ed5244-bcd3-413f-9e8b-117cd540ca01"] }, 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[20547, 713, 998, 27, 184, "Input",ExpressionUUID->"9b92a6bf-fac6-42f2-a8f7-4ef3d660996e"], +Cell[21548, 742, 246, 5, 75, "Output",ExpressionUUID->"4de7e762-d517-4e21-9ef0-6188b6a598f3"] }, 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[21831, 752, 203, 4, 66, "Input",ExpressionUUID->"184d0590-ce03-4b2e-ac29-4a3dab3130fa"], +Cell[22037, 758, 234, 5, 75, "Output",ExpressionUUID->"cbc1698c-fc06-4e9f-a3ca-f7c5d815ca79"] }, 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[22308, 768, 333, 6, 66, "Input",ExpressionUUID->"0b570ae3-42d2-4602-82a8-84e3a04649d9"], +Cell[22644, 776, 211, 4, 75, "Output",ExpressionUUID->"d1b15e78-d2be-4f53-9006-7f711ea12201"] +}, Open ]], +Cell[22870, 783, 177, 3, 66, "Input",ExpressionUUID->"d39bf080-2369-4f01-b27f-465c7b25d1e0"], +Cell[CellGroupData[{ +Cell[23072, 790, 333, 6, 66, "Input",ExpressionUUID->"1ed9c65d-e67b-44be-bc26-948345b3f4ce"], +Cell[23408, 798, 211, 4, 75, "Output",ExpressionUUID->"99cb3253-9cbc-4baa-9177-c3f88a7491fc"] +}, Open ]], +Cell[23634, 805, 177, 3, 66, "Input",ExpressionUUID->"295d5529-f7ea-475f-acb4-6eb4486987a6"], +Cell[CellGroupData[{ +Cell[23836, 812, 330, 6, 66, "Input",ExpressionUUID->"7f3ec5f8-41c4-4cf5-a24e-a062c6800394"], +Cell[24169, 820, 205, 4, 75, "Output",ExpressionUUID->"a4cd39fc-e7b7-4abb-ba1d-f3a2c23f4f20"] +}, Open ]], +Cell[24389, 827, 177, 3, 66, "Input",ExpressionUUID->"993979c0-bd2d-4ad1-9b61-552ca76007a0"], +Cell[CellGroupData[{ +Cell[24591, 834, 356, 6, 66, "Input",ExpressionUUID->"b92b203e-98eb-4a2b-91fa-18cad5b51e15"], +Cell[24950, 842, 209, 4, 75, "Output",ExpressionUUID->"d74f83c4-1e66-4ebe-a4da-fc391dcbf215"] +}, Open ]], +Cell[25174, 849, 175, 3, 66, "Input",ExpressionUUID->"fdeb5ba4-fdd2-422d-8ea1-39e77d72f72d"], +Cell[CellGroupData[{ +Cell[25374, 856, 303, 6, 66, "Input",ExpressionUUID->"6177caaf-88a9-4637-8e87-257bcca7d7d3"], +Cell[25680, 864, 211, 4, 75, "Output",ExpressionUUID->"afd2c213-33ec-42c1-b499-0c4ac04a4864"] +}, Open ]], +Cell[25906, 871, 175, 3, 66, "Input",ExpressionUUID->"60b82e3b-67de-44d1-b120-0c9b9d0d3fd4"], +Cell[CellGroupData[{ +Cell[26106, 878, 309, 6, 66, "Input",ExpressionUUID->"12de3bbc-0879-44cc-b328-21ba423eeb20"], +Cell[26418, 886, 208, 4, 75, "Output",ExpressionUUID->"7b540941-4937-4c6f-acd9-16093a44981a"] +}, Open ]], +Cell[26641, 893, 177, 3, 66, "Input",ExpressionUUID->"00f01e3b-b3db-4685-af30-78576555e0fd"], +Cell[CellGroupData[{ +Cell[26843, 900, 310, 6, 66, "Input",ExpressionUUID->"7975ebac-cd08-419a-a96b-d5292747e5f3"], +Cell[27156, 908, 208, 4, 75, "Output",ExpressionUUID->"5a8f3b4c-1fac-4616-8a48-ccca896dcbe8"] +}, Open ]], +Cell[27379, 915, 176, 3, 66, "Input",ExpressionUUID->"31005cd2-1cb1-4c77-af6e-89c1822b54e1"], +Cell[CellGroupData[{ +Cell[27580, 922, 278, 5, 66, "Input",ExpressionUUID->"fd4967a2-2507-4712-a0bb-5a23786cbe57"], +Cell[27861, 929, 207, 4, 75, "Output",ExpressionUUID->"cffe47dc-4dac-4268-b615-804cb50a4a1d"] +}, Open ]], +Cell[28083, 936, 179, 3, 66, "Input",ExpressionUUID->"2a198cd6-3fbf-4fba-8290-42336a86ac0b"], +Cell[CellGroupData[{ +Cell[28287, 943, 19813, 486, 5405, "Input",ExpressionUUID->"a7c8eb5b-277e-43f9-ad0e-c2e582e8c0dc"], +Cell[48103, 1431, 249, 5, 75, "Output",ExpressionUUID->"617f27cb-cd5b-4f7b-9373-fffa46bef6a3"] }, 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[48389, 1441, 19752, 490, 5343, "Input",ExpressionUUID->"2b01dd81-5a9e-4651-914a-da7baa693613"], +Cell[68144, 1933, 247, 5, 75, "Output",ExpressionUUID->"03e2f15e-84bb-49ec-bb27-c117b44e4f5c"] }, 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[68428, 1943, 19752, 484, 5342, "Input",ExpressionUUID->"d3f3bd4a-a9ac-45a8-ac67-3af82fbc74d8"], +Cell[88183, 2429, 265, 6, 75, "Output",ExpressionUUID->"d579e267-8e04-48f3-8b4e-d5022ddfcb63"] }, 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[88485, 2440, 22538, 554, 6074, "Input",ExpressionUUID->"151a3a36-34c7-4b81-aa16-f23e16c0d146"], +Cell[111026, 2996, 267, 6, 75, "Output",ExpressionUUID->"112182d7-e756-486e-89db-5383cac76ed9"] }, 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[111330, 3007, 22539, 554, 6074, "Input",ExpressionUUID->"8f7b1795-a9ef-41e5-8533-b6c6a5bd88b2"], +Cell[133872, 3563, 266, 6, 75, "Output",ExpressionUUID->"9c0df20c-1574-41ef-bf65-e415a8b4a304"] }, 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[134175, 3574, 25495, 627, 6806, "Input",ExpressionUUID->"05db592d-4708-4ba2-b046-1754a38e3d37"], +Cell[159673, 4203, 265, 6, 75, "Output",ExpressionUUID->"478028f3-f095-4d5d-9214-bd3400febb1f"] }, 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[159975, 4214, 134, 3, 66, "Input",ExpressionUUID->"e0dbfa19-8141-43bf-86ec-4287e1cbd7e6"], +Cell[160112, 4219, 229, 5, 75, "Output",ExpressionUUID->"8fdcf4fa-2a40-404b-8128-61bd41c8c5ba"] }, 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[160378, 4229, 134, 3, 66, "Input",ExpressionUUID->"b9584586-114f-42b8-b6f0-f06b1038285d"], +Cell[160515, 4234, 232, 5, 75, "Output",ExpressionUUID->"cd6646a2-1e6c-442c-8a25-10345f39107d"] }, 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[160784, 4244, 1148, 40, 246, "Input",ExpressionUUID->"abc92f82-3d3e-41cb-a0f0-063081e72ebc"], +Cell[161935, 4286, 246, 5, 75, "Output",ExpressionUUID->"d288d810-0b52-4467-bc9a-5d1a6ba2ecbe"] }, 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[162218, 4296, 1045, 36, 246, "Input",ExpressionUUID->"1fb81d84-4db6-457d-a98d-d3d4a6c111aa"], +Cell[163266, 4334, 262, 6, 75, "Output",ExpressionUUID->"e59afbe2-5db2-425b-9ffc-635915bbaa10"] }, 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[163565, 4345, 1148, 40, 246, "Input",ExpressionUUID->"1a9670fb-b623-40cf-91a7-4db9b61d62ec"], +Cell[164716, 4387, 250, 5, 75, "Output",ExpressionUUID->"3ffa7517-e36e-41ea-ab7d-d96fc660a854"] }, 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[165003, 4397, 112, 2, 66, "Input",ExpressionUUID->"2f5b9bd8-f9ad-4bfd-a8c4-e5f5b660eee5"], +Cell[165118, 4401, 248, 5, 75, "Output",ExpressionUUID->"a5b9a15f-7441-4230-82ca-01dfd277d66a"] }, 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[165403, 4411, 112, 2, 66, "Input",ExpressionUUID->"ebfb17f3-e95e-4eba-9e50-433992102c8f"], +Cell[165518, 4415, 266, 6, 75, "Output",ExpressionUUID->"3593d402-754f-47fd-a87e-f56000e4cef1"] }, 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[165821, 4426, 112, 2, 66, "Input",ExpressionUUID->"5de504fd-f846-40cb-ad8b-4804c3917e14"], +Cell[165936, 4430, 262, 6, 75, "Output",ExpressionUUID->"a1e99dc5-7b24-4bf7-8994-9bb38b933044"] }, 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[166235, 4441, 112, 2, 66, "Input",ExpressionUUID->"6247a7d7-e98d-4926-b82f-4e40f049efb0"], +Cell[166350, 4445, 248, 5, 75, "Output",ExpressionUUID->"100d9dbc-e6cb-4be4-ab5d-6281b95c4887"] }, 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[166635, 4455, 111, 2, 66, "Input",ExpressionUUID->"e1b956f3-c906-49b1-aacf-7b546604d57d"], +Cell[166749, 4459, 225, 4, 75, "Output",ExpressionUUID->"94c6bc5b-57ff-46ba-9f60-44006d3d8e43"] }, 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[167011, 4468, 111, 2, 66, "Input",ExpressionUUID->"69d58b13-133d-4ef2-805c-df6535a39a8f"], +Cell[167125, 4472, 221, 4, 75, "Output",ExpressionUUID->"0f9f6270-e39d-4344-98b2-a4f83ae423c2"] }, 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[167383, 4481, 501, 17, 125, "Input",ExpressionUUID->"b06349f3-b106-49d9-9e6a-8775f70c91a6"], +Cell[167887, 4500, 238, 5, 75, "Output",ExpressionUUID->"503e7a6a-ec1a-486c-9371-2dd49a43067c"] }, 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[168162, 4510, 501, 17, 125, "Input",ExpressionUUID->"63085683-6964-4d01-aad9-4fd48996008c"], +Cell[168666, 4529, 238, 5, 75, "Output",ExpressionUUID->"c5cdc95a-179c-4f26-8556-8009a49ee2a5"] }, 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[168941, 4539, 1792, 61, 420, "Input",ExpressionUUID->"f13e102e-2f50-4d77-a269-5e537a06fe7a"], +Cell[170736, 4602, 219, 4, 75, "Output",ExpressionUUID->"112241ee-4b28-4b87-93e2-42bc771a12f8"] }, 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[170992, 4611, 1105, 37, 299, "Input",ExpressionUUID->"072ffdfe-0804-4695-8920-d2fd093cca68"], +Cell[172100, 4650, 238, 5, 75, "Output",ExpressionUUID->"2165d84f-f4db-483e-b290-22f40bc573ed"] }, 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[172375, 4660, 1822, 62, 420, "Input",ExpressionUUID->"71e2886b-ac9e-4df8-b38c-37ad827d4d8f"], +Cell[174200, 4724, 217, 4, 75, "Output",ExpressionUUID->"46774e83-27aa-45ab-8f4a-08f3fbb5b805"] }, 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[174454, 4733, 1635, 54, 368, "Input",ExpressionUUID->"7cd41244-b7a2-466a-993f-28f728f742bc"], +Cell[176092, 4789, 222, 4, 75, "Output",ExpressionUUID->"32c0d37d-a3ca-4fec-96e3-656444c14232"] }, 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[176351, 4798, 1635, 54, 208, "Input",ExpressionUUID->"14140c38-699a-42c2-b521-279a6e853eda"], +Cell[177989, 4854, 219, 4, 41, "Output",ExpressionUUID->"ef128e5b-9058-47b1-85b0-30da9d6079f8"] +}, Open ]], +Cell[178223, 4861, 187, 4, 36, "Input",ExpressionUUID->"ede64bc2-06f7-8743-a0a6-6f058773310c"], +Cell[178413, 4867, 156, 3, 36, "Input",ExpressionUUID->"9eb3c45a-b33b-a74e-8fe0-c82e80965ca9"], +Cell[178572, 4872, 187, 4, 36, "Input",ExpressionUUID->"328429c4-9130-334e-ba7f-7dc8ec78e5b4"], +Cell[178762, 4878, 152, 3, 36, "Input",ExpressionUUID->"b3364ab6-86a4-7a46-ae33-623392314869"], +Cell[CellGroupData[{ +Cell[178939, 4885, 1301, 43, 174, "Input",ExpressionUUID->"789c64dd-6722-a64c-864a-7fd89b074ad2"], +Cell[180243, 4930, 176, 3, 41, "Output",ExpressionUUID->"b2b0fbe6-496d-0b4b-a132-3f215e541d44"] }, 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"] -}, Open ]], -Cell[338016, 8238, 209, 5, 70, "Input",ExpressionUUID->"b530b35f-2a32-0145-82a7-25a7a01bdd8f"], -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[180456, 4938, 908, 31, 128, "Input",ExpressionUUID->"35e76fc7-2f05-694a-b379-67189aa511ad"], +Cell[181367, 4971, 175, 3, 41, "Output",ExpressionUUID->"cead89a0-592d-3b44-ae8b-df81fa845f91"] }, 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[181579, 4979, 887, 30, 128, "Input",ExpressionUUID->"a10e19cd-f567-6b4d-a841-5f01117db38b"], +Cell[182469, 5011, 177, 3, 41, "Output",ExpressionUUID->"cd23137f-b6ad-354d-a690-15ff879bfb9c"] }, 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[182683, 5019, 558, 19, 66, "Input",ExpressionUUID->"289c2a6f-fa01-2645-80ce-1661c17fd90c"], +Cell[183244, 5040, 172, 3, 41, "Output",ExpressionUUID->"85da9012-bc80-5149-8545-ead2f85c5a34"] }, 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[183453, 5048, 651, 22, 66, "Input",ExpressionUUID->"399520f6-f2e9-6f4a-a02c-50158b624262"], +Cell[184107, 5072, 170, 3, 41, "Output",ExpressionUUID->"86664631-6f8b-d148-8f17-b13cb8a9a5fa"] }, 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[184314, 5080, 170, 5, 71, "Input",ExpressionUUID->"7ee61184-68bc-584d-8849-9a0186a8f35d"], +Cell[184487, 5087, 173, 3, 41, "Output",ExpressionUUID->"77c43b01-85eb-fd46-b71d-1d444bf52ef5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[184697, 5095, 170, 5, 69, "Input",ExpressionUUID->"0ec92d80-8d9e-2746-9b01-4edb32bf4eac"], +Cell[184870, 5102, 169, 3, 41, "Output",ExpressionUUID->"aacafa1c-cf55-8c4f-8232-23de80eb25b7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185076, 5110, 181, 5, 55, "Input",ExpressionUUID->"8c869977-4b92-8745-b065-cb6318fdcdb7"], +Cell[185260, 5117, 173, 3, 41, "Output",ExpressionUUID->"de93d189-ac68-c842-aeb5-e64b23581b7c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185470, 5125, 181, 5, 55, "Input",ExpressionUUID->"e2c1a337-e3c1-be4c-aa33-ae15497f38bc"], +Cell[185654, 5132, 170, 3, 41, "Output",ExpressionUUID->"73700a90-df80-2f44-9e2f-d43da4980146"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185861, 5140, 6055, 185, 831, "Input",ExpressionUUID->"abbe4489-628a-134f-b142-f0e18f19d6f9"], +Cell[191919, 5327, 174, 3, 41, "Output",ExpressionUUID->"cebf7c0c-e117-6441-a465-087c93e87be5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192130, 5335, 368, 9, 53, "Input",ExpressionUUID->"9e4d84a7-8664-a749-b8b4-3df6645764a5"], +Cell[192501, 5346, 170, 3, 41, "Output",ExpressionUUID->"53acb857-d475-4b46-bdab-d2addcedb13c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192708, 5354, 6122, 187, 900, "Input",ExpressionUUID->"29cc8bdf-8683-214b-bd33-b4d8b4da1114"], +Cell[198833, 5543, 174, 3, 41, "Output",ExpressionUUID->"9962c954-af09-2844-91ec-70eb43451868"] +}, Open ]], +Cell[CellGroupData[{ +Cell[199044, 5551, 368, 9, 53, "Input",ExpressionUUID->"2190c129-8a98-bf45-873d-af8f8d048936"], +Cell[199415, 5562, 170, 3, 41, "Output",ExpressionUUID->"1f5b5c64-ee33-0943-822d-b5e2806576ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[199622, 5570, 2663, 88, 435, "Input",ExpressionUUID->"972f1c0f-a59f-2847-8b2b-bd88c5077325"], +Cell[202288, 5660, 171, 3, 41, "Output",ExpressionUUID->"a3bdb7fa-0a90-d14f-81e9-757139920dcb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[202496, 5668, 2603, 85, 435, "Input",ExpressionUUID->"c06a7373-f345-6147-b882-1c88bef9608a"], +Cell[205102, 5755, 171, 3, 41, "Output",ExpressionUUID->"1b098546-b8b7-b741-b993-7512b0787277"] +}, Open ]], +Cell[CellGroupData[{ +Cell[205310, 5763, 3712, 118, 575, "Input",ExpressionUUID->"82838793-cf71-8049-a4ac-b01daf51205b"], +Cell[209025, 5883, 171, 3, 41, "Output",ExpressionUUID->"d3b57aaa-e0b1-cb4b-b411-ab6c214b3d77"] +}, Open ]], +Cell[209211, 5889, 138, 3, 36, "Input",ExpressionUUID->"0055f95b-c532-e24d-bdc4-544ea2d2fbd9"], +Cell[CellGroupData[{ +Cell[209374, 5896, 2054, 59, 276, "Input",ExpressionUUID->"574b810b-aa4a-d545-b080-c44fbe83a713"], +Cell[211431, 5957, 566, 12, 91, "Message",ExpressionUUID->"56fc0528-7ab2-a142-bc04-9f31af965213"], +Cell[212000, 5971, 569, 12, 91, "Message",ExpressionUUID->"523f0cae-d948-764c-a560-b9272d5e2d53"], +Cell[212572, 5985, 570, 12, 91, "Message",ExpressionUUID->"0a6922e0-d70a-8f48-87c3-f1e8776a3316"], +Cell[213145, 5999, 458, 10, 26, "Message",ExpressionUUID->"777b8d50-cc35-c140-9ef3-025284fd7e68"], +Cell[213606, 6011, 172, 3, 41, "Output",ExpressionUUID->"bbad1871-e996-ef4b-8dc6-3a39d5c410ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[213815, 6019, 2052, 59, 276, "Input",ExpressionUUID->"3d7dd6a2-2692-2b4d-8922-656c90598e75"], +Cell[215870, 6080, 564, 12, 91, "Message",ExpressionUUID->"e613a9b2-edeb-4743-aa3f-3db45e0849dd"], +Cell[216437, 6094, 567, 12, 91, "Message",ExpressionUUID->"d082687e-fa98-c642-8741-e0aeeee8492c"], +Cell[217007, 6108, 570, 12, 91, "Message",ExpressionUUID->"1cb847b5-98cf-0a42-bcd2-893a3a64388b"], +Cell[217580, 6122, 455, 10, 26, "Message",ExpressionUUID->"0d526236-fa4c-334c-9891-0cc458f43fbe"], +Cell[218038, 6134, 169, 3, 41, "Output",ExpressionUUID->"a61472f3-b6b3-5d40-8ec5-35b87df5c824"] +}, Open ]], +Cell[CellGroupData[{ +Cell[218244, 6142, 1936, 53, 232, "Input",ExpressionUUID->"9c540ba7-8bb4-ef46-919c-62296271f174"], +Cell[220183, 6197, 19983, 375, 295, "Output",ExpressionUUID->"84263d17-cde8-2246-a26d-50fe65f34979"] +}, Open ]], +Cell[CellGroupData[{ +Cell[240203, 6577, 2092, 60, 311, "Input",ExpressionUUID->"6e33cb28-ef1e-1547-b52d-2171e7786920"], +Cell[242298, 6639, 501, 11, 71, "Message",ExpressionUUID->"53d31480-3c5e-ef4a-987b-a232cf0b03f3"], +Cell[242802, 6652, 503, 11, 71, "Message",ExpressionUUID->"b7d94271-16f1-6346-b579-21279019eafb"], +Cell[243308, 6665, 506, 11, 71, "Message",ExpressionUUID->"bfaea4b0-a812-1847-9911-9291b70d2c8f"], +Cell[243817, 6678, 456, 10, 26, "Message",ExpressionUUID->"07354318-4dcc-6049-94e1-9227bd3406fc"], +Cell[244276, 6690, 41581, 727, 292, "Output",ExpressionUUID->"4fedf89c-a1d1-0f4a-bf53-44f2e928d059"] +}, Open ]], +Cell[285872, 7420, 2453, 69, 140, "Input",ExpressionUUID->"2d5a8299-5376-9747-8056-2bd9764114a1"], +Cell[288328, 7491, 209, 5, 36, "Input",ExpressionUUID->"d5fa6d0d-0ad8-f845-b7df-0ac982b58a3a"], +Cell[CellGroupData[{ +Cell[288562, 7500, 217, 7, 61, "Input",ExpressionUUID->"650e43f8-1352-de46-8137-52adca93b0cf"], +Cell[288782, 7509, 170, 3, 41, "Output",ExpressionUUID->"ced270d8-1772-ff41-a012-a661d8496312"] +}, Open ]], +Cell[CellGroupData[{ +Cell[288989, 7517, 1814, 53, 116, "Input",ExpressionUUID->"9ad75b45-8f6d-114b-80bd-d2b12a49fd20"], +Cell[290806, 7572, 506, 11, 48, "Message",ExpressionUUID->"82d24bea-da89-924f-8c72-34dd3938ca31"], +Cell[291315, 7585, 512, 11, 48, "Message",ExpressionUUID->"dec01940-92d8-ec46-9a19-7eeb83f307cb"], +Cell[291830, 7598, 509, 11, 48, "Message",ExpressionUUID->"b8576457-d231-bd44-9899-a0c0bb16b9e8"], +Cell[292342, 7611, 456, 10, 26, "Message",ExpressionUUID->"8bc3094a-336c-7a48-a7ed-1449be3156c0"], +Cell[292801, 7623, 22336, 412, 290, "Output",ExpressionUUID->"8cd361e0-0597-af48-9664-8ef179548a96"] +}, Open ]], +Cell[CellGroupData[{ +Cell[315174, 8040, 1616, 48, 86, "Input",ExpressionUUID->"94eefac7-0bb7-7249-8430-0b2ddd6df117"], +Cell[316793, 8090, 584, 12, 109, "Message",ExpressionUUID->"6b02dcd6-679e-e045-823b-19e8112735bb"], +Cell[317380, 8104, 588, 12, 109, "Message",ExpressionUUID->"1777b2e8-4814-3b40-9d26-e365522e2fa7"], +Cell[317971, 8118, 591, 12, 109, "Message",ExpressionUUID->"343e800a-6390-7b48-892a-7785bb4151c8"], +Cell[318565, 8132, 456, 10, 109, "Message",ExpressionUUID->"30a8c837-a97a-f04a-b90a-1e6b32a15ee9"], +Cell[319024, 8144, 173, 3, 109, "Output",ExpressionUUID->"ae05a7c3-f5d6-d640-8f8e-efe8f63ceb63"] +}, Open ]], +Cell[CellGroupData[{ +Cell[319234, 8152, 2274, 65, 109, "Input",ExpressionUUID->"1d118f77-7d68-dd41-b0af-09454f88e7f1"], +Cell[321511, 8219, 566, 12, 109, "Message",ExpressionUUID->"089dc3ff-480d-db4f-bbed-05630517df59"], +Cell[322080, 8233, 569, 12, 109, "Message",ExpressionUUID->"6e93a9b9-9460-8649-881d-48f37a709a1b"], +Cell[322652, 8247, 572, 12, 109, "Message",ExpressionUUID->"1ee8858a-971e-d34f-bafe-57ab88be1238"], +Cell[323227, 8261, 458, 10, 109, "Message",ExpressionUUID->"96f8e027-4313-4f4f-a21d-2291fe960276"], +Cell[323688, 8273, 171, 3, 109, "Output",ExpressionUUID->"53e3f7cd-1b3e-7343-931d-6e137013b0b0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[323896, 8281, 2221, 64, 109, "Input",ExpressionUUID->"c8039063-5f4d-134a-b6ba-e19335f7a9f6"], +Cell[326120, 8347, 564, 12, 109, "Message",ExpressionUUID->"2abeeb06-100d-8a4f-bcb1-ddb8c833ff54"], +Cell[326687, 8361, 567, 12, 109, "Message",ExpressionUUID->"7e411bd4-b3ce-e244-9ce0-8d1f78e8cd14"], +Cell[327257, 8375, 570, 12, 109, "Message",ExpressionUUID->"1eef1d19-4a0f-cd45-ac5f-c8b603cf3443"], +Cell[327830, 8389, 456, 10, 109, "Message",ExpressionUUID->"6022a732-4a2e-1544-a8b7-891b74c71e8b"], +Cell[328289, 8401, 173, 3, 109, "Output",ExpressionUUID->"3c53d31a-b5c8-d04c-a31f-fccb4feaa955"] +}, Open ]], +Cell[CellGroupData[{ +Cell[328499, 8409, 2223, 64, 109, "Input",ExpressionUUID->"a474307a-af78-3040-90ec-fb8d284b16bb"], +Cell[330725, 8475, 566, 12, 109, "Message",ExpressionUUID->"419d88aa-08de-a042-b43b-49810fba72bb"], +Cell[331294, 8489, 569, 12, 109, "Message",ExpressionUUID->"4a9a6268-a319-d748-9834-40ccb49d2b51"], +Cell[331866, 8503, 570, 12, 109, "Message",ExpressionUUID->"575d1045-9e4b-4643-b969-4ea2653f65d7"], +Cell[332439, 8517, 458, 10, 109, "Message",ExpressionUUID->"0c807644-74de-9c49-acac-c7123cbacadc"], +Cell[332900, 8529, 170, 3, 109, "Output",ExpressionUUID->"40f79c92-c788-c843-8a8c-07266b265dee"] +}, Open ]], +Cell[CellGroupData[{ +Cell[333107, 8537, 213, 6, 109, "Input",ExpressionUUID->"ce14ed0e-a62a-1e46-b7cf-f67bfdbd9bc7"], +Cell[333323, 8545, 171, 3, 109, "Output",ExpressionUUID->"5f3fc6c2-7014-7c43-bf96-8a336bebf769"] +}, Open ]], +Cell[333509, 8551, 244, 5, 109, "Input",ExpressionUUID->"d104d373-080a-854b-92ff-e87abbd4c41c"], +Cell[CellGroupData[{ +Cell[333778, 8560, 558, 19, 109, "Input",ExpressionUUID->"b6bc4645-bb9b-da49-b314-4566a6ca9506"], +Cell[334339, 8581, 173, 3, 109, "Output",ExpressionUUID->"c9ac712d-c12f-0747-84df-4fbc596a4bc5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[334549, 8589, 170, 5, 109, "Input",ExpressionUUID->"1f225213-8143-a346-8c4e-e69f41e85c6f"], +Cell[334722, 8596, 171, 3, 109, "Output",ExpressionUUID->"265915a4-bf42-cc4a-850a-ff4e02169aa3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[334930, 8604, 181, 5, 109, "Input",ExpressionUUID->"4b9388d7-dfe0-ca44-90a4-ea60f173579a"], +Cell[335114, 8611, 173, 3, 109, "Output",ExpressionUUID->"31530b6e-e89a-9145-8021-0dc6b1c7eda5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[335324, 8619, 6055, 185, 109, "Input",ExpressionUUID->"b0d5a77d-c2c5-e84d-b4be-bec051c1557c"], +Cell[341382, 8806, 175, 3, 109, "Output",ExpressionUUID->"498f3df6-21c9-ce42-acfb-0b180bf5016e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[341594, 8814, 368, 9, 109, "Input",ExpressionUUID->"e543ccd6-d1e6-3c4d-9364-2a9eec09292b"], +Cell[341965, 8825, 172, 3, 109, "Output",ExpressionUUID->"7c93e621-3415-c743-b6e4-6e9478aa49a4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[342174, 8833, 6122, 187, 109, "Input",ExpressionUUID->"50e98a1c-f33a-9242-9267-bbd8a1753662"], +Cell[348299, 9022, 173, 3, 109, "Output",ExpressionUUID->"ac3c9970-0aac-ba4f-878d-3a3d1e5e2e3e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[348509, 9030, 368, 9, 109, "Input",ExpressionUUID->"339251a5-83bd-8642-8c5c-4fff9ebe10d7"], +Cell[348880, 9041, 170, 3, 109, "Output",ExpressionUUID->"d74ba3c3-6f35-614a-92df-d33bcc5e630d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[349087, 9049, 2663, 88, 109, "Input",ExpressionUUID->"ad1f9bb1-e9e6-5b4f-9f95-8eeef0cc66ae"], +Cell[351753, 9139, 171, 3, 109, "Output",ExpressionUUID->"33da748c-8c98-4649-9b81-8e00dd5f5d44"] +}, Open ]], +Cell[CellGroupData[{ +Cell[351961, 9147, 2603, 85, 109, "Input",ExpressionUUID->"4b0fdfc8-7d81-3a4d-90ed-a9bb76dc96a0"], +Cell[354567, 9234, 171, 3, 109, "Output",ExpressionUUID->"a300919b-1d52-ed46-bc06-5e86812c0bf8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[354775, 9242, 3712, 118, 109, "Input",ExpressionUUID->"31524ab0-bcc9-e948-9393-cfc225600ff2"], +Cell[358490, 9362, 170, 3, 109, "Output",ExpressionUUID->"45caa3aa-b655-b94b-bc88-ae750a9e28b8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[358697, 9370, 2052, 59, 109, "Input",ExpressionUUID->"486d514f-ec65-1e4e-b780-7e9487f745c3"], +Cell[360752, 9431, 573, 12, 109, "Message",ExpressionUUID->"fdac5db3-60d6-7a42-93b8-a74d8fc5d39e"], +Cell[361328, 9445, 577, 12, 109, "Message",ExpressionUUID->"46e50c50-b3b4-9847-b413-3bf52122b53e"], +Cell[361908, 9459, 580, 12, 109, "Message",ExpressionUUID->"5df9105e-cc71-b049-a285-30acff0c246a"], +Cell[362491, 9473, 456, 10, 109, "Message",ExpressionUUID->"84079c6c-500c-0643-b357-e1da142371e6"], +Cell[362950, 9485, 170, 3, 109, "Output",ExpressionUUID->"8303ac5a-d080-3741-a2d8-b7ff63ccb029"] +}, Open ]], +Cell[CellGroupData[{ +Cell[363157, 9493, 2054, 59, 109, "Input",ExpressionUUID->"c7144ce5-8356-d548-8854-18c538c3321c"], +Cell[365214, 9554, 573, 12, 109, "Message",ExpressionUUID->"65ad7cc5-5634-7d43-8ec3-48fd3e044014"], +Cell[365790, 9568, 577, 12, 109, "Message",ExpressionUUID->"c7632c59-b44f-2c47-aaf4-873ba9758677"], +Cell[366370, 9582, 582, 12, 109, "Message",ExpressionUUID->"509e3117-7502-a34e-9f96-72b696066a2b"], +Cell[366955, 9596, 456, 10, 109, "Message",ExpressionUUID->"0e1f3a7a-70f7-bc47-9700-06e687643558"], +Cell[367414, 9608, 170, 3, 109, "Output",ExpressionUUID->"15bebbf4-baae-a44a-84b5-59b3a1f444c3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[367621, 9616, 2028, 55, 109, "Input",ExpressionUUID->"b2db949b-a7b9-8f4b-afbd-a45df2eabf0c"], +Cell[369652, 9673, 20422, 382, 109, "Output",ExpressionUUID->"d9c156b6-0b42-724f-8e7d-964560057978"] +}, Open ]], +Cell[CellGroupData[{ +Cell[390111, 10060, 2120, 60, 109, "Input",ExpressionUUID->"92d458c4-bfde-c447-a06c-70a15768b745"], +Cell[392234, 10122, 502, 11, 109, "Message",ExpressionUUID->"74b51561-a06a-7345-9196-225d76f7f21f"], +Cell[392739, 10135, 506, 11, 109, "Message",ExpressionUUID->"ee03248d-dd91-8b4e-835e-9c4a5f039c61"], +Cell[393248, 10148, 505, 11, 109, "Message",ExpressionUUID->"81d7736e-0167-fe4f-bd5c-40ffaca911e4"], +Cell[393756, 10161, 458, 10, 109, "Message",ExpressionUUID->"43062041-d596-b540-8a1c-36df0575e1f0"], +Cell[394217, 10173, 22288, 412, 109, "Output",ExpressionUUID->"4ce3b436-d895-8b48-899f-c7dec78bd5cd"] +}, Open ]], +Cell[416520, 10588, 209, 5, 109, "Input",ExpressionUUID->"e1c8585a-8b57-f841-82e1-8e8787fb2589"], +Cell[CellGroupData[{ +Cell[416754, 10597, 1616, 48, 109, "Input",ExpressionUUID->"8cd26316-ef9d-184c-93c8-dd96bfd24ea1"], +Cell[418373, 10647, 595, 12, 109, "Message",ExpressionUUID->"bf4d283e-fed2-af41-90e7-a9b6911d8baf"], +Cell[418971, 10661, 595, 12, 109, "Message",ExpressionUUID->"9f6ca4d5-4251-0341-9c65-a603c68721f6"], +Cell[419569, 10675, 599, 12, 109, "Message",ExpressionUUID->"108eeaac-8397-bf4f-90a4-e14dbe759ebf"], +Cell[420171, 10689, 456, 10, 109, "Message",ExpressionUUID->"1a2f2a3c-e511-b846-8a84-9fad6555a680"], +Cell[420630, 10701, 171, 3, 109, "Output",ExpressionUUID->"ca1793f9-9753-5e46-b385-c8dd36228fd1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[420838, 10709, 2248, 64, 109, "Input",ExpressionUUID->"e0ae6f48-c6a6-a24c-812a-30286a178ca1"], +Cell[423089, 10775, 575, 12, 109, "Message",ExpressionUUID->"642a7168-3d33-6b4e-9213-0f67bfd30f54"], +Cell[423667, 10789, 577, 12, 109, "Message",ExpressionUUID->"315984db-f497-2940-bd36-1d820037ad00"], +Cell[424247, 10803, 582, 12, 109, "Message",ExpressionUUID->"2698bbc8-6aa1-c54b-9b5c-3f71a7eb3345"], +Cell[424832, 10817, 458, 10, 109, "Message",ExpressionUUID->"7f632647-49b8-a945-8682-8e4f7ae37cda"], +Cell[425293, 10829, 172, 3, 109, "Output",ExpressionUUID->"0f5bf0f0-4e96-2c4d-9011-c6ae92f19c83"] +}, Open ]], +Cell[CellGroupData[{ +Cell[425502, 10837, 2215, 63, 109, "Input",ExpressionUUID->"bce0eb71-ca49-364f-a3be-8e8c3542c5fb"], +Cell[427720, 10902, 575, 12, 109, "Message",ExpressionUUID->"704bc64b-0e53-8146-9696-c0e9ea00ec4d"], +Cell[428298, 10916, 577, 12, 109, "Message",ExpressionUUID->"68985ea1-064e-2c42-b957-ce16147f9e13"], +Cell[428878, 10930, 582, 12, 109, "Message",ExpressionUUID->"48a38db6-6d68-6140-9cb6-9dfc686aa062"], +Cell[429463, 10944, 458, 10, 109, "Message",ExpressionUUID->"ac6e6758-d573-7947-b88c-92831bb5be70"], +Cell[429924, 10956, 170, 3, 109, "Output",ExpressionUUID->"4d1b179c-7677-2745-8308-576346b6bf0b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[430131, 10964, 2223, 64, 109, "Input",ExpressionUUID->"935796a8-6280-564a-b4d0-fc6fb6cd41f8"], +Cell[432357, 11030, 573, 12, 109, "Message",ExpressionUUID->"0a9cfe95-3a6f-384b-8656-bdf67695e5d7"], +Cell[432933, 11044, 577, 12, 109, "Message",ExpressionUUID->"700ebedb-417e-8043-ab89-eb4672a7847d"], +Cell[433513, 11058, 580, 12, 109, "Message",ExpressionUUID->"599826a9-6d60-6843-9eef-e381cafa0758"], +Cell[434096, 11072, 456, 10, 109, "Message",ExpressionUUID->"d92d3772-b819-d145-8d96-f897b04ae4a7"], +Cell[434555, 11084, 173, 3, 109, "Output",ExpressionUUID->"98a57fa3-05ea-0d42-95b5-58c14727d753"] +}, Open ]], +Cell[CellGroupData[{ +Cell[434765, 11092, 213, 6, 109, "Input",ExpressionUUID->"ee52036b-90c5-e14a-aed9-684ff23ed035"], +Cell[434981, 11100, 173, 3, 109, "Output",ExpressionUUID->"ea5023c6-5364-074e-904d-43b5c1077635"] +}, Open ]], +Cell[435169, 11106, 247, 5, 109, "Input",ExpressionUUID->"c6d4a146-4cca-7e4e-b483-85227a6e6b51"], +Cell[CellGroupData[{ +Cell[435441, 11115, 558, 19, 109, "Input",ExpressionUUID->"28979542-d43a-e54a-88e0-087a68060d62"], +Cell[436002, 11136, 173, 3, 109, "Output",ExpressionUUID->"b967ea88-4a73-d84a-86f5-ad4ded7dfd59"] +}, Open ]], +Cell[CellGroupData[{ +Cell[436212, 11144, 170, 5, 109, "Input",ExpressionUUID->"c3303a76-2bd9-454b-b35d-6119cde0197e"], +Cell[436385, 11151, 173, 3, 109, "Output",ExpressionUUID->"fd8ea80a-f1d4-be4f-9cfa-b37871c5703d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[436595, 11159, 181, 5, 109, "Input",ExpressionUUID->"b83c9900-e14a-064d-b097-089d758a0eb6"], +Cell[436779, 11166, 173, 3, 109, "Output",ExpressionUUID->"7d039035-dcf9-ec46-abdb-20c0c777b3ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[436989, 11174, 6055, 185, 109, "Input",ExpressionUUID->"17437a0c-d9be-a242-b57f-efef95056982"], +Cell[443047, 11361, 172, 3, 109, "Output",ExpressionUUID->"ec08a5f9-ba46-9147-9d7b-cc1decdb981f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[443256, 11369, 368, 9, 109, "Input",ExpressionUUID->"b3706ed1-2e71-9941-86c4-d789cf8ea193"], +Cell[443627, 11380, 172, 3, 109, "Output",ExpressionUUID->"71ad1ede-d77d-ee46-a908-e7b20c10ebe8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[443836, 11388, 6122, 187, 109, "Input",ExpressionUUID->"2dad5775-7b90-2241-a408-e59b2ea47cb0"], +Cell[449961, 11577, 173, 3, 109, "Output",ExpressionUUID->"819de60b-5785-6448-8fe2-0db5976d700d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[450171, 11585, 368, 9, 109, "Input",ExpressionUUID->"ea913ab0-daa5-1f4d-93f4-2e6143537b5d"], +Cell[450542, 11596, 170, 3, 109, "Output",ExpressionUUID->"8dd6a8d3-1dbb-0d4a-9edc-e78196c49a86"] +}, Open ]], +Cell[CellGroupData[{ +Cell[450749, 11604, 2663, 88, 109, "Input",ExpressionUUID->"53a0bfe7-010b-d445-822a-52c57127f779"], +Cell[453415, 11694, 171, 3, 109, "Output",ExpressionUUID->"ae861452-cf77-f740-9f62-141306c9a07a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[453623, 11702, 2603, 85, 109, "Input",ExpressionUUID->"4e482268-3ff3-d74a-9ba6-ed262245ad4b"], +Cell[456229, 11789, 173, 3, 109, "Output",ExpressionUUID->"253d4a43-9313-5444-b0f9-3aae32edd842"] +}, Open ]], +Cell[CellGroupData[{ +Cell[456439, 11797, 3712, 118, 109, "Input",ExpressionUUID->"df39eab0-0939-764b-8de6-27d0ba2be7e8"], +Cell[460154, 11917, 173, 3, 109, "Output",ExpressionUUID->"0c1e1373-3726-9c43-862b-62a8708f83a9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[460364, 11925, 2052, 59, 109, "Input",ExpressionUUID->"6b25ec99-ae49-ec4d-9652-65328572e509"], +Cell[462419, 11986, 568, 12, 109, "Message",ExpressionUUID->"d55599c5-2bb2-8f4a-a245-aa6d5998cb8f"], +Cell[462990, 12000, 573, 12, 109, "Message",ExpressionUUID->"bdcd3bac-beba-5242-b376-95b5ed40a02a"], +Cell[463566, 12014, 576, 12, 109, "Message",ExpressionUUID->"b91a3ff7-a025-fd4e-b11c-58fa6385068b"], +Cell[464145, 12028, 458, 10, 109, "Message",ExpressionUUID->"9e66d374-59c2-ce4b-b0d2-5a3813a10542"], +Cell[464606, 12040, 172, 3, 109, "Output",ExpressionUUID->"5742ee33-8e4b-444c-91b6-6d4c403c91e9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[464815, 12048, 2052, 59, 109, "Input",ExpressionUUID->"3e2baf62-fab9-eb41-8de7-aa229443ac14"], +Cell[466870, 12109, 568, 12, 109, "Message",ExpressionUUID->"49d9e2db-79aa-5b48-897e-3089c92c79b4"], +Cell[467441, 12123, 573, 12, 109, "Message",ExpressionUUID->"2361061c-25a8-4549-ba9e-397593d876d4"], +Cell[468017, 12137, 574, 12, 109, "Message",ExpressionUUID->"a2993171-fcd7-8742-bf17-921d87bded0b"], +Cell[468594, 12151, 458, 10, 109, "Message",ExpressionUUID->"c72ccd11-884d-074a-bf1c-ed71d6dc6298"], +Cell[469055, 12163, 172, 3, 109, "Output",ExpressionUUID->"9dfb51ec-f6bd-9540-91f7-9d4800c6c680"] +}, Open ]], +Cell[CellGroupData[{ +Cell[469264, 12171, 2028, 55, 109, "Input",ExpressionUUID->"725c3011-bda9-4c42-96ce-9a77a5dc787c"], +Cell[471295, 12228, 20375, 384, 109, "Output",ExpressionUUID->"e400bdb6-95ee-464e-9e4c-d5d7da48485f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[491707, 12617, 2118, 60, 109, "Input",ExpressionUUID->"1ea503b1-33a1-2744-a92d-2e1269faf5ed"], +Cell[493828, 12679, 501, 11, 109, "Message",ExpressionUUID->"1c59fae3-3f74-0144-b936-915cf372347d"], +Cell[494332, 12692, 503, 11, 109, "Message",ExpressionUUID->"c058b3d2-ecc0-7348-bdec-143a71e7f77c"], +Cell[494838, 12705, 506, 11, 109, "Message",ExpressionUUID->"049ee41e-a5fd-7e46-9ca5-37402fcadc74"], +Cell[495347, 12718, 458, 10, 109, "Message",ExpressionUUID->"5bf93938-89e6-8d49-a495-6173a8c36739"], +Cell[495808, 12730, 22161, 409, 109, "Output",ExpressionUUID->"0ea0f8f9-2a4b-804f-a2c8-287645f62313"] +}, Open ]], +Cell[517984, 13142, 209, 5, 109, "Input",ExpressionUUID->"b530b35f-2a32-0145-82a7-25a7a01bdd8f"], +Cell[CellGroupData[{ +Cell[518218, 13151, 1616, 48, 109, "Input",ExpressionUUID->"a0d63734-417a-b84f-b5c7-88ca33cb9355"], +Cell[519837, 13201, 590, 12, 109, "Message",ExpressionUUID->"cb4665e4-f252-8e4c-9d71-b694fbe7aa53"], +Cell[520430, 13215, 589, 12, 109, "Message",ExpressionUUID->"e67b353a-d4a9-454a-9cac-3e22ef8a4d4b"], +Cell[521022, 13229, 593, 12, 109, "Message",ExpressionUUID->"9dbc6a20-c95c-084e-b19f-b6bb6bd70d6b"], +Cell[521618, 13243, 456, 10, 109, "Message",ExpressionUUID->"f9b6cbc5-ab52-2741-b8bf-bf6796495def"], +Cell[522077, 13255, 170, 3, 109, "Output",ExpressionUUID->"1439e238-af89-2243-beb8-0a46e5e09115"] +}, Open ]], +Cell[CellGroupData[{ +Cell[522284, 13263, 2251, 64, 109, "Input",ExpressionUUID->"97b28b29-5d04-5c42-a0e8-93b70f20e7f6"], +Cell[524538, 13329, 568, 12, 109, "Message",ExpressionUUID->"033374a1-a008-6240-84e3-c1c7a7e65b75"], +Cell[525109, 13343, 573, 12, 109, "Message",ExpressionUUID->"88ab6d85-4789-7346-aeee-8e9a4b87248d"], +Cell[525685, 13357, 574, 12, 109, "Message",ExpressionUUID->"051100a9-488b-4d4d-83c7-cdc54aef13e0"], +Cell[526262, 13371, 458, 10, 109, "Message",ExpressionUUID->"a33cd954-f1de-bf45-8642-effd7c3e029f"], +Cell[526723, 13383, 173, 3, 109, "Output",ExpressionUUID->"48a4017b-948a-6a48-8b10-d81adf4b9038"] +}, Open ]], +Cell[CellGroupData[{ +Cell[526933, 13391, 2221, 64, 109, "Input",ExpressionUUID->"f9d1ad25-05cb-d544-8ab6-cdce838d9efe"], +Cell[529157, 13457, 570, 12, 109, "Message",ExpressionUUID->"d8156b3f-4442-9146-9c48-cb34fdfb79d3"], +Cell[529730, 13471, 573, 12, 109, "Message",ExpressionUUID->"60007a19-2492-cd46-a203-7c2bbbc6591f"], +Cell[530306, 13485, 573, 12, 109, "Message",ExpressionUUID->"8754c4a5-0539-0247-94a5-8a81a9ae7e49"], +Cell[530882, 13499, 458, 10, 109, "Message",ExpressionUUID->"3af4c7f8-fe90-6646-8e3b-058500b348e9"], +Cell[531343, 13511, 171, 3, 109, "Output",ExpressionUUID->"46f7d520-9bcf-9d48-ae7c-54e91ca06983"] +}, Open ]], +Cell[CellGroupData[{ +Cell[531551, 13519, 2221, 64, 109, "Input",ExpressionUUID->"0794d062-69d5-0a45-936e-533b19d33de6"], +Cell[533775, 13585, 570, 12, 109, "Message",ExpressionUUID->"ba4db233-5a2e-4340-98d0-df918a11e2c7"], +Cell[534348, 13599, 573, 12, 109, "Message",ExpressionUUID->"444b24ca-68bb-7144-a655-403eefa4900f"], +Cell[534924, 13613, 574, 12, 109, "Message",ExpressionUUID->"f2dc2286-68d4-d74f-83ea-dd0f591156a8"], +Cell[535501, 13627, 458, 10, 109, "Message",ExpressionUUID->"4974a702-c238-6d47-b5b2-a3c25cacf142"], +Cell[535962, 13639, 173, 3, 109, "Output",ExpressionUUID->"d46043b7-707b-4740-ab89-0a2b96978cff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[536172, 13647, 215, 6, 109, "Input",ExpressionUUID->"95c56266-e4d3-624e-89c1-cedeeeb0247a"], +Cell[536390, 13655, 172, 3, 109, "Output",ExpressionUUID->"188c2681-ea17-924e-adb2-007b19a9ee86"] }, Open ]] } ] *) -(* End of internal cache information *) - diff --git a/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/h_166-74_Pu240_20-21_pr_Qw1.nb b/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/h_166-74_Pu240_20-21_pr_Qw1.nb index 14330be..d9aaccf 100644 --- a/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/h_166-74_Pu240_20-21_pr_Qw1.nb +++ b/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/h_166-74_Pu240_20-21_pr_Qw1.nb @@ -3,25 +3,4866 @@ (*** 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[ 614550, 14919] +NotebookOptionsPosition[ 574738, 14289] +NotebookOutlinePosition[ 575179, 14307] +CellTagsIndexPosition[ 575136, 14304] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f1", "="}]], "Input", + RowBox[{"d", "=", "1.85"}]], "Input", CellChangeTimes->{ - 3.9918488488187084`*^9},ExpressionUUID->"bdefbecf-0aaa-4a45-a861-\ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.9940821364341908`*^9, 3.994082136546945*^9}, { + 3.99408222505837*^9, 3.9940822566678658`*^9}}, + CellLabel-> + "In[371]:=",ExpressionUUID->"b889bfd4-807d-422d-ac7f-c02fd6ee8510"], + +Cell[BoxData["1.85`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, 3.9940821397588*^9, {3.9940822104439507`*^9, + 3.994082259420228*^9}}, + CellLabel-> + "Out[371]=",ExpressionUUID->"529ad15b-e6ad-49ce-88cf-317318b34ca1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.99407306326154*^9, 3.994073063917366*^9}}, + CellLabel-> + "In[372]:=",ExpressionUUID->"eb80148f-bf35-4e4a-804e-80f97ab5e689"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.994082139815686*^9, {3.994082210466728*^9, + 3.994082259455925*^9}}, + CellLabel-> + "Out[372]=",ExpressionUUID->"fda51582-ce83-4489-be97-bd5107e05d63"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "166"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.9940730665357656`*^9, 3.994073067306501*^9}}, + CellLabel-> + "In[373]:=",ExpressionUUID->"ecc38e97-703c-4f0f-9148-92a1d475043c"], + +Cell[BoxData["166"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.994082139825574*^9, {3.9940822104766827`*^9, + 3.994082259466858*^9}}, + CellLabel-> + "Out[373]=",ExpressionUUID->"a5aa4cc3-f462-42ed-9b53-9af90f7caec8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel-> + "In[374]:=",ExpressionUUID->"99ac952c-1f4e-4d46-9a34-2d251b7c86ce"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.994082139835326*^9, {3.994082210487997*^9, + 3.994082259477521*^9}}, + CellLabel-> + "Out[374]=",ExpressionUUID->"2eee7f80-e49a-4f80-a4e2-65a1d99e56b3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel-> + "In[375]:=",ExpressionUUID->"4436f480-0c5c-458d-8c45-df8a9b6bea6a"], + +Cell[BoxData["0.54425`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.994082139845067*^9, {3.994082210498448*^9, + 3.994082259487831*^9}}, + CellLabel-> + "Out[375]=",ExpressionUUID->"fcc6327d-cdb7-4da5-82fd-259cd5c1bc60"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel-> + "In[376]:=",ExpressionUUID->"cb58f02f-be8b-4d45-bd49-171e1ee7d031"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.994082139854616*^9, {3.99408221050937*^9, + 3.994082259497772*^9}}, + CellLabel-> + "Out[376]=",ExpressionUUID->"219e5551-d3b6-4536-84b7-b79c4049f1d9"] +}, 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[377]:=",ExpressionUUID->"e1ac8643-0af0-46b9-836e-2444f6b2fd8a"], + +Cell[BoxData["6.3752030057102145`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.994082139865213*^9, {3.994082210519739*^9, + 3.994082259507691*^9}}, + CellLabel-> + "Out[377]=",ExpressionUUID->"06e0fc80-6155-4c57-80c9-6ba7a7ac1dcc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel-> + "In[378]:=",ExpressionUUID->"8275e0b6-3618-4c2e-875f-2b7bb8d6856a"], + +Cell[BoxData["4.870070286417752`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.99408213987599*^9, {3.9940822105302753`*^9, + 3.994082259517621*^9}}, + CellLabel-> + "Out[378]=",ExpressionUUID->"2e96ef34-f020-4371-ad0b-15a99677fdac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.9035518425"}]], "Input", + CellChangeTimes->{3.991799283179735*^9, 3.994073090925538*^9}, + CellLabel-> + "In[379]:=",ExpressionUUID->"23b01d0a-5903-4e9c-ad2a-07a68c9459c8"], + +Cell[BoxData["0.9035518425`"], "Output", + CellChangeTimes->{ + 3.994082139886828*^9, {3.9940822105402517`*^9, 3.9940822595277653`*^9}}, + CellLabel-> + "Out[379]=",ExpressionUUID->"caa2e3a1-909f-4a18-bf6b-f2625b0d33e9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.3863821951"}]], "Input", + CellChangeTimes->{3.991799280663351*^9, 3.9940730962719193`*^9}, + CellLabel-> + "In[380]:=",ExpressionUUID->"df407cf7-6b46-4e5d-809f-24379797fc77"], + +Cell[BoxData["0.3863821951`"], "Output", + CellChangeTimes->{ + 3.994082139897403*^9, {3.994082210550373*^9, 3.994082259537862*^9}}, + CellLabel-> + "Out[380]=",ExpressionUUID->"d1be7809-d837-41e2-8543-bc0cbc18f3e7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel-> + "In[381]:=",ExpressionUUID->"dde34a8a-9eae-4100-bc6d-95e7040a3589"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.994082139910328*^9, {3.994082210560801*^9, + 3.9940822595420103`*^9}}, + CellLabel-> + "Out[381]=",ExpressionUUID->"a189dc1c-a561-40f7-90aa-1d4fa5b3c382"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel-> + "In[382]:=",ExpressionUUID->"bf5d9094-3dbd-48ef-a41a-221ed590d195"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.9940821399224367`*^9, {3.994082210571288*^9, + 3.994082259554398*^9}}, + CellLabel-> + "Out[382]=",ExpressionUUID->"d9f8261a-f29c-4234-ac75-2f7d6ebe3483"] +}, 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[383]:=",ExpressionUUID->"3ace4fda-d92d-425c-a2b5-0120c0772e6d"], + +Cell[BoxData["2.315137197466896`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.994082139933848*^9, {3.994082210581699*^9, + 3.9940822595648727`*^9}}, + CellLabel-> + "Out[383]=",ExpressionUUID->"9954528d-0f8d-4638-8c11-834a9aab1fab"] +}, 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[384]:=",ExpressionUUID->"e291aa18-249e-4d72-a70c-054d52c7448f"], + +Cell[BoxData["1.4220278650887666`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.994082139944078*^9, {3.9940822105866547`*^9, + 3.9940822595749483`*^9}}, + CellLabel-> + "Out[384]=",ExpressionUUID->"59cb48b2-69e7-415b-806d-34aa3aa5097e"] +}, 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[385]:=",ExpressionUUID->"f42bf625-e124-4b64-aef5-42e76d046d82"], + +Cell[BoxData["0.4069661562665162`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.994082139954578*^9, {3.994082210602051*^9, + 3.994082259585372*^9}}, + CellLabel-> + "Out[385]=",ExpressionUUID->"a171f111-bf01-4a12-8132-9a0d7785376c"] +}, 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[386]:=",ExpressionUUID->"f5d5560d-9260-454d-98ce-c06511c83954"], + +Cell[BoxData[ + RowBox[{"-", "0.08563504168524437`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.9940821399653873`*^9, {3.994082210613337*^9, + 3.994082259596693*^9}}, + CellLabel-> + "Out[386]=",ExpressionUUID->"5f961593-6260-498e-9a54-51d53fde60f5"] +}, 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[387]:=",ExpressionUUID->"d0e7131a-0f25-404d-884d-c03a8244b0ef"], + +Cell[BoxData[ + RowBox[{"-", "0.5841673375234483`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.9940821399780188`*^9, {3.9940822106256943`*^9, + 3.9940822596071453`*^9}}, + CellLabel-> + "Out[387]=",ExpressionUUID->"4bd7832a-a133-4b2f-95a2-c2c53ebe1809"] +}, 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[388]:=",ExpressionUUID->"d63ea0e8-4e6c-4188-b794-6257f62783c1"], + +Cell[BoxData["0.7215005296935654`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.994082139989607*^9, {3.994082210635736*^9, + 3.99408225961747*^9}}, + CellLabel-> + "Out[388]=",ExpressionUUID->"d579c7c6-7fcb-4155-b706-631dc5e4c89a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel-> + "In[389]:=",ExpressionUUID->"6aa07b64-4c4c-494a-af1f-a531af9dbe38"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.9940821399995413`*^9, {3.9940822106444807`*^9, + 3.994082259627829*^9}}, + CellLabel-> + "Out[389]=",ExpressionUUID->"0e75f869-022d-46cc-8256-2126aa4a55ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel-> + "In[390]:=",ExpressionUUID->"3c1b38fe-0723-4995-9435-a1f03b92def6"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.994082140010191*^9, {3.994082210653286*^9, + 3.994082259638521*^9}}, + CellLabel-> + "Out[390]=",ExpressionUUID->"0393cca6-c16c-458d-9770-dc405494e428"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel-> + "In[391]:=",ExpressionUUID->"92e841e4-ada6-4208-9127-dc72dab603ab"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.9940821400205593`*^9, {3.9940822106620293`*^9, + 3.9940822596489058`*^9}}, + CellLabel-> + "Out[391]=",ExpressionUUID->"3038ed8c-5179-47a4-a818-96fa0d8e72bb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel-> + "In[392]:=",ExpressionUUID->"716935ef-6633-4892-90bc-9682ac59b90c"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.994082140031045*^9, {3.994082210671171*^9, + 3.994082259659958*^9}}, + CellLabel-> + "Out[392]=",ExpressionUUID->"ee044974-221d-4b28-88f4-f24cf19365b1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel-> + "In[393]:=",ExpressionUUID->"73f208fc-0b23-4ee4-8d4e-6ab90d717484"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.994082140043984*^9, {3.9940822106801777`*^9, + 3.994082259671282*^9}}, + CellLabel-> + "Out[393]=",ExpressionUUID->"822d6fac-ac4d-4942-bb34-27ca91e5a9bd"] +}, 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.9940731043812733`*^9, 3.994073104508005*^9}}, + CellLabel-> + "In[394]:=",ExpressionUUID->"b4c6186e-42ec-418f-9785-2e4b6041c082"], + +Cell[BoxData["66"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, 3.994082140061471*^9, {3.99408221068924*^9, + 3.9940822596826973`*^9}}, + CellLabel-> + "Out[394]=",ExpressionUUID->"32d9c518-c474-43b6-bcf8-858b8b6c37b3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, {3.9940731093077307`*^9, 3.99407311085991*^9}}, + CellLabel-> + "In[395]:=",ExpressionUUID->"8a26d530-4bcb-49ee-be8a-f86bb9292676"], + +Cell[BoxData["28"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.994082140071866*^9, {3.9940822106985188`*^9, + 3.9940822596930656`*^9}}, + CellLabel-> + "Out[395]=",ExpressionUUID->"7b9e415b-2a16-4adc-a44f-f2f8de8a1803"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel-> + "In[396]:=",ExpressionUUID->"f657102f-c0ac-4fbe-b6f4-c4f8ad770408"], + +Cell[BoxData["74"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.994082140082143*^9, {3.994082210707357*^9, + 3.994082259703759*^9}}, + CellLabel-> + "Out[396]=",ExpressionUUID->"b2966cdc-7db0-44fe-88c3-2efa183fcd7b"] +}, 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[397]:=",ExpressionUUID->"876adfcc-624e-4813-82c0-c91b8f56c1b4"], + +Cell[BoxData["0.11092478020188863`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9940821400927267`*^9, {3.994082210716133*^9, + 3.994082259714077*^9}}, + CellLabel-> + "Out[397]=",ExpressionUUID->"027d48c5-687e-4b47-9309-ef4495aacce0"] +}, 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[398]:=",ExpressionUUID->"6ca1aecf-fd23-4f94-a82e-3abdfa526710"], + +Cell[BoxData[ + RowBox[{"-", "2.5630967111690004`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.9940821401033173`*^9, {3.994082210725114*^9, + 3.994082259724759*^9}}, + CellLabel-> + "Out[398]=",ExpressionUUID->"014023ac-1e47-4fd2-afd9-47396da74ca6"] +}, 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[399]:=",ExpressionUUID->"129bd3de-aa55-44ed-abb6-ce76f9724961"], + +Cell[BoxData["17.4437013546787`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.994082140114669*^9, {3.994082210734028*^9, + 3.994082259736136*^9}}, + CellLabel-> + "Out[399]=",ExpressionUUID->"b1c07d3c-ca7a-4254-a5d6-4e804cb60449"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel-> + "In[400]:=",ExpressionUUID->"35c01070-725f-4a07-9122-ceb2bb9c1a81"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.994082140125458*^9, {3.9940822107429523`*^9, + 3.9940822597468443`*^9}}, + CellLabel-> + "Out[400]=",ExpressionUUID->"1770695c-941b-4043-96af-95808cda6c39"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "2.185"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { + 3.994073141486967*^9, 3.9940731424234343`*^9}}, + CellLabel-> + "In[401]:=",ExpressionUUID->"00393c38-8634-4f0a-8b8e-7299406937c3"], + +Cell[BoxData["2.185`"], "Output", + CellChangeTimes->{ + 3.9940821401363583`*^9, {3.994082210751677*^9, 3.9940822597573833`*^9}}, + CellLabel-> + "Out[401]=",ExpressionUUID->"55e78409-e048-461e-81fd-905d4a79a907"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel-> + "In[402]:=",ExpressionUUID->"060cc9c9-d6a9-4dc5-9f63-195bf3f43014"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.755"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.9940731457645493`*^9, 3.994073146848226*^9}}, + CellLabel-> + "In[403]:=",ExpressionUUID->"7dd9c0b0-4426-4548-9919-206579fb8a7d"], + +Cell[BoxData["0.755`"], "Output", + CellChangeTimes->{ + 3.994082140150962*^9, {3.9940822107679367`*^9, 3.9940822597717943`*^9}}, + CellLabel-> + "Out[403]=",ExpressionUUID->"65863f18-c946-4c1e-9076-c3333543e3d0"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel-> + "In[404]:=",ExpressionUUID->"27dccaf4-8574-4d6b-a0b8-2304a5033f4a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "2.5"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.994073149619232*^9, 3.994073149893601*^9}}, + CellLabel-> + "In[405]:=",ExpressionUUID->"c741877f-21ae-44ff-a6ae-b13381562db0"], + +Cell[BoxData["2.5`"], "Output", + CellChangeTimes->{ + 3.994082140164228*^9, {3.994082210783918*^9, 3.994082259785039*^9}}, + CellLabel-> + "Out[405]=",ExpressionUUID->"25a5a314-6bd2-4d6d-bd16-0f3da287dcc7"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel-> + "In[406]:=",ExpressionUUID->"ba3221b0-c202-42a3-883d-e743c638fd9f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.165"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, {3.994073152359264*^9, 3.994073154823225*^9}}, + CellLabel-> + "In[407]:=",ExpressionUUID->"f6f848a0-d478-4bc9-bcbb-b725a33e64d2"], + +Cell[BoxData["1.165`"], "Output", + CellChangeTimes->{ + 3.994082140177301*^9, {3.994082210799852*^9, 3.9940822597980413`*^9}}, + CellLabel-> + "Out[407]=",ExpressionUUID->"d5ff6518-669c-4598-b485-2a2d37a2effb"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel-> + "In[408]:=",ExpressionUUID->"50ff3763-0dcd-4a38-9aea-12b85a4eeeda"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.055"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, {3.994073158537945*^9, + 3.994073159984886*^9}}, + CellLabel-> + "In[409]:=",ExpressionUUID->"cd51b3f2-e7f8-48b8-bb33-4407f1e55a48"], + +Cell[BoxData["1.055`"], "Output", + CellChangeTimes->{ + 3.9940821401902237`*^9, {3.9940822108158007`*^9, 3.994082259811191*^9}}, + CellLabel-> + "Out[409]=",ExpressionUUID->"86bdc338-e59e-41ed-a909-5d508995facc"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel-> + "In[410]:=",ExpressionUUID->"33308d13-78ed-4b52-852a-3765e8739d7c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.575"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.9940731689650297`*^9, + 3.994073170525517*^9}}, + CellLabel-> + "In[411]:=",ExpressionUUID->"19ab9d0f-018d-4522-9acb-ede80f71a687"], + +Cell[BoxData["0.575`"], "Output", + CellChangeTimes->{ + 3.99408214020331*^9, {3.9940822108320093`*^9, 3.994082259824339*^9}}, + CellLabel-> + "Out[411]=",ExpressionUUID->"c5422570-8cdf-47f5-821b-e1edc3a3ac71"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel-> + "In[412]:=",ExpressionUUID->"d299566e-788a-4060-bd1a-50b1f8dd12a2"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "1.51"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.99407317466329*^9, + 3.9940731756907377`*^9}}, + CellLabel-> + "In[413]:=",ExpressionUUID->"ee4c998d-8053-4886-ae9b-cce50c89a029"], + +Cell[BoxData["1.51`"], "Output", + CellChangeTimes->{ + 3.9940821402169437`*^9, {3.994082210847649*^9, 3.994082259837338*^9}}, + CellLabel-> + "Out[413]=",ExpressionUUID->"e060c47d-0330-4daa-8d55-0d5f210d0841"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel-> + "In[414]:=",ExpressionUUID->"064a5061-0671-4ab9-8886-a3d5161dcd2a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "0.635"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, {3.99407317843715*^9, 3.994073182537156*^9}}, + CellLabel-> + "In[415]:=",ExpressionUUID->"c655aeeb-0936-4a16-a83e-6eaac93c4708"], + +Cell[BoxData["0.635`"], "Output", + CellChangeTimes->{ + 3.994082140230339*^9, {3.994082210863504*^9, 3.994082259850523*^9}}, + CellLabel-> + "Out[415]=",ExpressionUUID->"04330939-cb6f-4aaa-a57f-0fda5a64c6b8"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel-> + "In[416]:=",ExpressionUUID->"4af259aa-18d3-44c0-8cc2-5eeaaaba1ca6"], + +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[417]:=",ExpressionUUID->"d14b3b8a-2cdc-4544-bbb0-d8d46f034c8d"], + +Cell[BoxData["0.14543451930671605`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.9940821403190203`*^9, {3.994082210903069*^9, + 3.994082259888891*^9}}, + CellLabel-> + "Out[417]=",ExpressionUUID->"e7d5892a-e090-4ef4-b006-d9eb4e925673"] +}, 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[418]:=",ExpressionUUID->"8de6c3d1-daef-43ec-8c0d-d26918d223d3"], + +Cell[BoxData["7.609769640822119`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9940821403533278`*^9, {3.994082210934519*^9, + 3.994082259917639*^9}}, + CellLabel-> + "Out[418]=",ExpressionUUID->"97b04ffc-a9a3-4dd0-b199-cf7213d0b6a4"] +}, 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[419]:=",ExpressionUUID->"ad5520ec-84d8-45a0-8cc5-e84301e4fbe7"], + +Cell[BoxData[ + RowBox[{"-", "15.030827196449275`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.994082140383691*^9, {3.9940822109679832`*^9, + 3.994082259945158*^9}}, + CellLabel-> + "Out[419]=",ExpressionUUID->"981c28b2-e938-4f87-a1dc-3525b71b080b"] +}, 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[420]:=",ExpressionUUID->"0d9ab4fd-7cde-48ba-8741-da13981efc32"], + +Cell[BoxData[ + RowBox[{"-", "19.761827924452415`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.9940821404195766`*^9, {3.9940822110021753`*^9, + 3.994082259978429*^9}}, + CellLabel-> + "Out[420]=",ExpressionUUID->"8e954486-23c3-4351-b64e-812100532ebe"] +}, 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[421]:=",ExpressionUUID->"4878baa4-7561-48bb-a697-805dcbd99ccc"], + +Cell[BoxData[ + RowBox[{"-", "57.66257775030843`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.9940821404579077`*^9, {3.994082211038884*^9, + 3.994082260011196*^9}}, + CellLabel-> + "Out[421]=",ExpressionUUID->"f47db446-29e4-4c26-810f-f1963ec98e5f"] +}, 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[422]:=",ExpressionUUID->"b2b2b65f-3302-4b16-b0bc-c3dba064603d"], + +Cell[BoxData[ + RowBox[{"-", "150.68948520646092`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.994082140505332*^9, {3.994082211079116*^9, + 3.9940822600491877`*^9}}, + CellLabel-> + "Out[422]=",ExpressionUUID->"f44d17ea-21a8-43b0-a171-49a7ec2c0e79"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel-> + "In[423]:=",ExpressionUUID->"84ce8f1f-58d8-4eaa-a930-227c84951e62"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.99408214052183*^9, {3.994082211090176*^9, + 3.994082260062854*^9}}, + CellLabel-> + "Out[423]=",ExpressionUUID->"8a580cce-a966-4fc1-a9ce-da183ca43c66"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel-> + "In[424]:=",ExpressionUUID->"72b1a9dc-3127-4e48-86c3-45bad88f5e1b"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.994082140531746*^9, {3.9940822111011677`*^9, + 3.994082260073297*^9}}, + CellLabel-> + "Out[424]=",ExpressionUUID->"36cdd94d-6809-4166-86ad-ffe81fac9699"] +}, 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[425]:=",ExpressionUUID->"cd27022c-c099-4bb3-b386-df409e9a7ddc"], + +Cell[BoxData["120.33662547388403`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.994082140542282*^9, {3.994082211112996*^9, + 3.994082260084251*^9}}, + CellLabel-> + "Out[425]=",ExpressionUUID->"cddd5c1e-f917-44ba-8a84-5bc0d8964aec"] +}, 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[426]:=",ExpressionUUID->"6da541b4-99e0-4eba-bdc7-63250b29f74c"], + +Cell[BoxData[ + RowBox[{"-", "107.1121642480161`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.994082140552636*^9, {3.994082211122551*^9, + 3.994082260094944*^9}}, + CellLabel-> + "Out[426]=",ExpressionUUID->"38defbdb-68b9-4b0b-8286-cc0ab05cb311"] +}, 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[427]:=",ExpressionUUID->"f53ff4b6-d3f1-4d5e-83aa-78df9bad89af"], + +Cell[BoxData["123.55775944746372`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9940821405632*^9, {3.9940822111320972`*^9, + 3.9940822601055107`*^9}}, + CellLabel-> + "Out[427]=",ExpressionUUID->"895eadde-b7ea-48c2-ae12-e77255ba0edb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel-> + "In[428]:=",ExpressionUUID->"e04a089d-3d44-4008-be1b-48d773e92a0d"], + +Cell[BoxData["0.4069661562665162`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.994082140573392*^9, {3.994082211141264*^9, + 3.994082260116184*^9}}, + CellLabel-> + "Out[428]=",ExpressionUUID->"3f6d0d8c-4818-414c-be61-af3e1de7e772"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel-> + "In[429]:=",ExpressionUUID->"4941bb53-4063-43b1-9e9b-d28f5d3f183a"], + +Cell[BoxData[ + RowBox[{"-", "0.08563504168524437`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.994082140583559*^9, {3.994082211156444*^9, + 3.994082260127738*^9}}, + CellLabel-> + "Out[429]=",ExpressionUUID->"d9635c64-f3ff-4a9c-b1a2-ec0f530f6e86"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel-> + "In[430]:=",ExpressionUUID->"4fdd5590-d0f9-456e-96ba-3cf8f7bf1e4f"], + +Cell[BoxData[ + RowBox[{"-", "0.5841673375234483`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.994082140593707*^9, {3.994082211166273*^9, + 3.99408226016045*^9}}, + CellLabel-> + "Out[430]=",ExpressionUUID->"49cfb441-c7b0-4ee9-bbfe-1e6b41eda586"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel-> + "In[431]:=",ExpressionUUID->"6adc2de8-b1ec-46b8-92b9-0d15cc7612ed"], + +Cell[BoxData["0.7215005296935654`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.9940821428128853`*^9, {3.994082211175336*^9, + 3.994082260189337*^9}}, + CellLabel-> + "Out[431]=",ExpressionUUID->"793bde36-e10a-4d2f-b7a7-7328fedca048"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel-> + "In[432]:=",ExpressionUUID->"65a03490-7d68-44a6-a971-65d7fe7092fb"], + +Cell[BoxData["2.315137197466896`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, {3.9940822111841908`*^9, 3.9940822602133617`*^9}}, + CellLabel-> + "Out[432]=",ExpressionUUID->"2033cecb-686f-4d59-9f23-cc1b3e1e77bf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel-> + "In[433]:=",ExpressionUUID->"12075aa1-ff44-4038-ace0-d1b39df28f5d"], + +Cell[BoxData["1.4220278650887666`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, {3.994082211193069*^9, 3.99408226021774*^9}}, + CellLabel-> + "Out[433]=",ExpressionUUID->"69932e2f-138d-4cb6-8c35-ed6d20a9228e"] +}, 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[434]:=",ExpressionUUID->"d5fb27b7-b43d-4580-b46d-25ec58e7822d"], + +Cell[BoxData[ + RowBox[{"-", "34.52117430586003`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, {3.994082211202162*^9, 3.994082260228716*^9}}, + CellLabel-> + "Out[434]=",ExpressionUUID->"8be15e63-ffce-42e2-be77-78e149ad05d9"] +}, 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[435]:=",ExpressionUUID->"69447d37-eb3a-4a25-a211-ac123cbb4689"], + +Cell[BoxData[ + RowBox[{"-", "6.669654351008722`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, {3.9940822112147284`*^9, 3.994082260239593*^9}}, + CellLabel-> + "Out[435]=",ExpressionUUID->"e2f82828-68e3-47e5-9ea9-ea49d28b268b"] +}, 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[436]:=",ExpressionUUID->"7517deda-b264-4489-9a37-527e0691500c"], + +Cell[BoxData["85.815451168024`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, {3.994082211224436*^9, 3.994082260250916*^9}}, + CellLabel-> + "Out[436]=",ExpressionUUID->"cdf288af-9a6f-4208-940d-233de24acfe4"] +}, 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[437]:=",ExpressionUUID->"cd1f08be-0e58-479a-b69a-fcc9497d7ddc"], + +Cell[BoxData[ + RowBox[{"-", "107.1121642480161`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, {3.994082211233815*^9, 3.994082260261983*^9}}, + CellLabel-> + "Out[437]=",ExpressionUUID->"82826ea4-6ed1-483d-abea-5d83919f11b7"] +}, 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[438]:=",ExpressionUUID->"a392d378-7274-4661-8402-2eac94b15b8f"], + +Cell[BoxData["116.888105096455`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, {3.99408221124387*^9, 3.994082260273652*^9}}, + CellLabel-> + "Out[438]=",ExpressionUUID->"fffa7096-3879-424d-ba21-1c5738295d30"] +}, 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[439]:=",ExpressionUUID->"67d7383b-067f-44a8-8b59-1544234b8583"], + +Cell[BoxData["42.180325689118604`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, {3.994082211253778*^9, 3.994082260284829*^9}}, + CellLabel-> + "Out[439]=",ExpressionUUID->"50e4732e-bbc7-457c-abd9-7328f1d30d64"] +}, 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[440]:=",ExpressionUUID->"171fd13f-2950-49f7-8085-054b4c769116"], + +Cell[BoxData["727.4038074151157`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, {3.994082211263607*^9, 3.994082260289282*^9}}, + CellLabel-> + "Out[440]=",ExpressionUUID->"b5202487-e867-41f2-a575-d2482b47c6ea"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"f1", "=", "0.4778829661"}]], "Input", + CellChangeTimes->{3.9918488488187084`*^9, + 3.994083882452469*^9},ExpressionUUID->"bdefbecf-0aaa-4a45-a861-\ 406cf54e52d1"], Cell[BoxData[""], "Input", @@ -30,9 +4871,9 @@ Cell[BoxData[""], "Input", 7bcc4af89c62"], Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", - CellChangeTimes->{ - 3.9918488509977226`*^9},ExpressionUUID->"45ed831b-459a-9a41-990f-\ + RowBox[{"f2", "=", "0.2179097118"}]], "Input", + CellChangeTimes->{3.9918488509977226`*^9, + 3.994083891070215*^9},ExpressionUUID->"45ed831b-459a-9a41-990f-\ c079ad464f5d"], Cell[BoxData[""], "Input", @@ -2844,9 +7685,72 @@ Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", - RowBox[{"{", "}"}], "]"}]}]], "Input", - CellChangeTimes->{{3.991799458254999*^9, - 3.9917994623413925`*^9}},ExpressionUUID->"0f83f761-b16d-5343-987d-\ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.005193"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.015406"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.025113"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.034006"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.041831"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.048382"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.053535"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.057218"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.059449"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.060284"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.059853"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.058305"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.055833"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.052623"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.048884"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.044792"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.040528"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.03623"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.032028"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.02801"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.024253"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.020798"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.017676"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.014891"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.012445"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.010316"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.00849"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.006935"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.005627"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.004534"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.003631"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.994084145070607*^9},ExpressionUUID->"0f83f761-b16d-5343-987d-\ 511095eaf120"], Cell[BoxData[ @@ -9383,11 +14287,11 @@ Cell[BoxData["0.08155763943441016`"], "Output", "Out[229]=",ExpressionUUID->"3737ba01-5151-874d-9846-1c8b07e42d7a"] }, Open ]] }, -WindowSize->{718.5, 729.75}, -WindowMargins->{{0, Automatic}, {Automatic, 0}}, +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)", +Magnification:>1.2 Inherited, +FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", StyleDefinitions->"Default.nb", ExpressionUUID->"5cbbdd72-8791-4241-8a7a-ad89ed63e6b0" ] @@ -9402,368 +14306,622 @@ 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, 357, 7, 79, "Input",ExpressionUUID->"b889bfd4-807d-422d-ac7f-c02fd6ee8510"], +Cell[936, 31, 232, 5, 50, "Output",ExpressionUUID->"529ad15b-e6ad-49ce-88cf-317318b34ca1"] }, 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[1205, 41, 250, 5, 44, "Input",ExpressionUUID->"eb80148f-bf35-4e4a-804e-80f97ab5e689"], +Cell[1458, 48, 232, 5, 50, "Output",ExpressionUUID->"fda51582-ce83-4489-be97-bd5107e05d63"] }, 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[1727, 58, 228, 5, 44, "Input",ExpressionUUID->"ecc38e97-703c-4f0f-9148-92a1d475043c"], +Cell[1958, 65, 234, 5, 50, "Output",ExpressionUUID->"a5aa4cc3-f462-42ed-9b53-9af90f7caec8"] }, 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[2229, 75, 180, 4, 44, "Input",ExpressionUUID->"99ac952c-1f4e-4d46-9a34-2d251b7c86ce"], +Cell[2412, 81, 232, 5, 50, "Output",ExpressionUUID->"2eee7f80-e49a-4f80-a4e2-65a1d99e56b3"] }, 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[2681, 91, 262, 8, 64, "Input",ExpressionUUID->"4436f480-0c5c-458d-8c45-df8a9b6bea6a"], +Cell[2946, 101, 237, 5, 50, "Output",ExpressionUUID->"fcc6327d-cdb7-4da5-82fd-259cd5c1bc60"] }, 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[3220, 111, 136, 3, 44, "Input",ExpressionUUID->"cb58f02f-be8b-4d45-bd49-171e1ee7d031"], +Cell[3359, 116, 233, 5, 50, "Output",ExpressionUUID->"219e5551-d3b6-4536-84b7-b79c4049f1d9"] }, 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[3629, 126, 281, 7, 44, "Input",ExpressionUUID->"e1ac8643-0af0-46b9-836e-2444f6b2fd8a"], +Cell[3913, 135, 248, 5, 50, "Output",ExpressionUUID->"06e0fc80-6155-4c57-80c9-6ba7a7ac1dcc"] }, 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[4198, 145, 262, 8, 44, "Input",ExpressionUUID->"8275e0b6-3618-4c2e-875f-2b7bb8d6856a"], +Cell[4463, 155, 248, 5, 50, "Output",ExpressionUUID->"2e96ef34-f020-4371-ad0b-15a99677fdac"] }, 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[4748, 165, 208, 4, 66, "Input",ExpressionUUID->"23b01d0a-5903-4e9c-ad2a-07a68c9459c8"], +Cell[4959, 171, 218, 4, 75, "Output",ExpressionUUID->"caa2e3a1-909f-4a18-bf6b-f2625b0d33e9"] }, 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[5214, 180, 210, 4, 66, "Input",ExpressionUUID->"df407cf7-6b46-4e5d-809f-24379797fc77"], +Cell[5427, 186, 214, 4, 75, "Output",ExpressionUUID->"d1be7809-d837-41e2-8543-bc0cbc18f3e7"] }, 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[5678, 195, 133, 3, 66, "Input",ExpressionUUID->"dde34a8a-9eae-4100-bc6d-95e7040a3589"], +Cell[5814, 200, 232, 5, 75, "Output",ExpressionUUID->"a189dc1c-a561-40f7-90aa-1d4fa5b3c382"] }, 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[6083, 210, 133, 3, 66, "Input",ExpressionUUID->"bf5d9094-3dbd-48ef-a41a-221ed590d195"], +Cell[6219, 215, 232, 5, 75, "Output",ExpressionUUID->"d9f8261a-f29c-4234-ac75-2f7d6ebe3483"] }, 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[6488, 225, 561, 20, 175, "Input",ExpressionUUID->"3ace4fda-d92d-425c-a2b5-0120c0772e6d"], +Cell[7052, 247, 249, 5, 75, "Output",ExpressionUUID->"9954528d-0f8d-4638-8c11-834a9aab1fab"] }, 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[7338, 257, 561, 20, 175, "Input",ExpressionUUID->"e291aa18-249e-4d72-a70c-054d52c7448f"], +Cell[7902, 279, 252, 5, 75, "Output",ExpressionUUID->"59cb48b2-69e7-415b-806d-34aa3aa5097e"] }, 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[8191, 289, 1592, 51, 362, "Input",ExpressionUUID->"f42bf625-e124-4b64-aef5-42e76d046d82"], +Cell[9786, 342, 246, 5, 75, "Output",ExpressionUUID->"a171f111-bf01-4a12-8132-9a0d7785376c"] }, 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[10069, 352, 1426, 47, 362, "Input",ExpressionUUID->"f5d5560d-9260-454d-98ce-c06511c83954"], +Cell[11498, 401, 266, 6, 75, "Output",ExpressionUUID->"5f961593-6260-498e-9a54-51d53fde60f5"] }, 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[11801, 412, 1426, 47, 362, "Input",ExpressionUUID->"d0e7131a-0f25-404d-884d-c03a8244b0ef"], +Cell[13230, 461, 271, 6, 75, "Output",ExpressionUUID->"4bd7832a-a133-4b2f-95a2-c2c53ebe1809"] }, 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[13538, 472, 1592, 51, 362, "Input",ExpressionUUID->"d63ea0e8-4e6c-4188-b794-6257f62783c1"], +Cell[15133, 525, 243, 5, 75, "Output",ExpressionUUID->"d579c7c6-7fcb-4155-b706-631dc5e4c89a"] }, 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[15413, 535, 135, 3, 66, "Input",ExpressionUUID->"6aa07b64-4c4c-494a-af1f-a531af9dbe38"], +Cell[15551, 540, 234, 5, 75, "Output",ExpressionUUID->"0e75f869-022d-46cc-8256-2126aa4a55ba"] }, 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[15822, 550, 137, 3, 66, "Input",ExpressionUUID->"3c1b38fe-0723-4995-9435-a1f03b92def6"], +Cell[15962, 555, 232, 5, 75, "Output",ExpressionUUID->"0393cca6-c16c-458d-9770-dc405494e428"] }, 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[16231, 565, 138, 3, 66, "Input",ExpressionUUID->"92e841e4-ada6-4208-9127-dc72dab603ab"], +Cell[16372, 570, 240, 5, 75, "Output",ExpressionUUID->"3038ed8c-5179-47a4-a818-96fa0d8e72bb"] }, 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[16649, 580, 223, 5, 66, "Input",ExpressionUUID->"716935ef-6633-4892-90bc-9682ac59b90c"], +Cell[16875, 587, 247, 6, 75, "Output",ExpressionUUID->"ee044974-221d-4b28-88f4-f24cf19365b1"] }, 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[17159, 598, 138, 3, 66, "Input",ExpressionUUID->"73f208fc-0b23-4ee4-8d4e-6ab90d717484"], +Cell[17300, 603, 236, 5, 75, "Output",ExpressionUUID->"822d6fac-ac4d-4942-bb34-27ca91e5a9bd"] }, 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[17573, 613, 328, 6, 66, "Input",ExpressionUUID->"b4c6186e-42ec-418f-9785-2e4b6041c082"], +Cell[17904, 621, 232, 5, 75, "Output",ExpressionUUID->"32d9c518-c474-43b6-bcf8-858b8b6c37b3"] }, 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[18173, 631, 301, 6, 66, "Input",ExpressionUUID->"8a26d530-4bcb-49ee-be8a-f86bb9292676"], +Cell[18477, 639, 235, 5, 75, "Output",ExpressionUUID->"7b9e415b-2a16-4adc-a44f-f2f8de8a1803"] }, 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[18749, 649, 223, 5, 66, "Input",ExpressionUUID->"f657102f-c0ac-4fbe-b6f4-c4f8ad770408"], +Cell[18975, 656, 229, 5, 75, "Output",ExpressionUUID->"b2966cdc-7db0-44fe-88c3-2efa183fcd7b"] }, 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[19241, 666, 354, 11, 96, "Input",ExpressionUUID->"876adfcc-624e-4813-82c0-c91b8f56c1b4"], +Cell[19598, 679, 251, 5, 75, "Output",ExpressionUUID->"027d48c5-687e-4b47-9309-ef4495aacce0"] }, 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[19886, 689, 354, 11, 96, "Input",ExpressionUUID->"6ca1aecf-fd23-4f94-a82e-3abdfa526710"], +Cell[20243, 702, 267, 6, 75, "Output",ExpressionUUID->"014023ac-1e47-4fd2-afd9-47396da74ca6"] }, 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[20547, 713, 998, 27, 184, "Input",ExpressionUUID->"129bd3de-aa55-44ed-abb6-ce76f9724961"], +Cell[21548, 742, 246, 5, 75, "Output",ExpressionUUID->"b1c07d3c-ca7a-4254-a5d6-4e804cb60449"] }, 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[21831, 752, 203, 4, 66, "Input",ExpressionUUID->"35c01070-725f-4a07-9122-ceb2bb9c1a81"], +Cell[22037, 758, 234, 5, 75, "Output",ExpressionUUID->"1770695c-941b-4043-96af-95808cda6c39"] }, 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[22308, 768, 333, 6, 66, "Input",ExpressionUUID->"00393c38-8634-4f0a-8b8e-7299406937c3"], +Cell[22644, 776, 211, 4, 75, "Output",ExpressionUUID->"55e78409-e048-461e-81fd-905d4a79a907"] +}, Open ]], +Cell[22870, 783, 177, 3, 66, "Input",ExpressionUUID->"060cc9c9-d6a9-4dc5-9f63-195bf3f43014"], +Cell[CellGroupData[{ +Cell[23072, 790, 333, 6, 66, "Input",ExpressionUUID->"7dd9c0b0-4426-4548-9919-206579fb8a7d"], +Cell[23408, 798, 211, 4, 75, "Output",ExpressionUUID->"65863f18-c946-4c1e-9076-c3333543e3d0"] +}, Open ]], +Cell[23634, 805, 177, 3, 66, "Input",ExpressionUUID->"27dccaf4-8574-4d6b-a0b8-2304a5033f4a"], +Cell[CellGroupData[{ +Cell[23836, 812, 330, 6, 66, "Input",ExpressionUUID->"c741877f-21ae-44ff-a6ae-b13381562db0"], +Cell[24169, 820, 205, 4, 75, "Output",ExpressionUUID->"25a5a314-6bd2-4d6d-bd16-0f3da287dcc7"] +}, Open ]], +Cell[24389, 827, 177, 3, 66, "Input",ExpressionUUID->"ba3221b0-c202-42a3-883d-e743c638fd9f"], +Cell[CellGroupData[{ +Cell[24591, 834, 356, 6, 66, "Input",ExpressionUUID->"f6f848a0-d478-4bc9-bcbb-b725a33e64d2"], +Cell[24950, 842, 209, 4, 75, "Output",ExpressionUUID->"d5ff6518-669c-4598-b485-2a2d37a2effb"] +}, Open ]], +Cell[25174, 849, 175, 3, 66, "Input",ExpressionUUID->"50ff3763-0dcd-4a38-9aea-12b85a4eeeda"], +Cell[CellGroupData[{ +Cell[25374, 856, 303, 6, 66, "Input",ExpressionUUID->"cd51b3f2-e7f8-48b8-bb33-4407f1e55a48"], +Cell[25680, 864, 211, 4, 75, "Output",ExpressionUUID->"86bdc338-e59e-41ed-a909-5d508995facc"] +}, Open ]], +Cell[25906, 871, 175, 3, 66, "Input",ExpressionUUID->"33308d13-78ed-4b52-852a-3765e8739d7c"], +Cell[CellGroupData[{ +Cell[26106, 878, 309, 6, 66, "Input",ExpressionUUID->"19ab9d0f-018d-4522-9acb-ede80f71a687"], +Cell[26418, 886, 208, 4, 75, "Output",ExpressionUUID->"c5422570-8cdf-47f5-821b-e1edc3a3ac71"] +}, Open ]], +Cell[26641, 893, 177, 3, 66, "Input",ExpressionUUID->"d299566e-788a-4060-bd1a-50b1f8dd12a2"], +Cell[CellGroupData[{ +Cell[26843, 900, 310, 6, 66, "Input",ExpressionUUID->"ee4c998d-8053-4886-ae9b-cce50c89a029"], +Cell[27156, 908, 208, 4, 75, "Output",ExpressionUUID->"e060c47d-0330-4daa-8d55-0d5f210d0841"] +}, Open ]], +Cell[27379, 915, 176, 3, 66, "Input",ExpressionUUID->"064a5061-0671-4ab9-8886-a3d5161dcd2a"], +Cell[CellGroupData[{ +Cell[27580, 922, 278, 5, 66, "Input",ExpressionUUID->"c655aeeb-0936-4a16-a83e-6eaac93c4708"], +Cell[27861, 929, 207, 4, 75, "Output",ExpressionUUID->"04330939-cb6f-4aaa-a57f-0fda5a64c6b8"] +}, Open ]], +Cell[28083, 936, 179, 3, 66, "Input",ExpressionUUID->"4af259aa-18d3-44c0-8cc2-5eeaaaba1ca6"], +Cell[CellGroupData[{ +Cell[28287, 943, 19813, 486, 5405, "Input",ExpressionUUID->"d14b3b8a-2cdc-4544-bbb0-d8d46f034c8d"], +Cell[48103, 1431, 249, 5, 75, "Output",ExpressionUUID->"e7d5892a-e090-4ef4-b006-d9eb4e925673"] }, 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[48389, 1441, 19752, 490, 5343, "Input",ExpressionUUID->"8de6c3d1-daef-43ec-8c0d-d26918d223d3"], +Cell[68144, 1933, 247, 5, 75, "Output",ExpressionUUID->"97b04ffc-a9a3-4dd0-b199-cf7213d0b6a4"] }, 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[68428, 1943, 19752, 484, 5342, "Input",ExpressionUUID->"ad5520ec-84d8-45a0-8cc5-e84301e4fbe7"], +Cell[88183, 2429, 265, 6, 75, "Output",ExpressionUUID->"981c28b2-e938-4f87-a1dc-3525b71b080b"] }, 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[88485, 2440, 22538, 554, 6074, "Input",ExpressionUUID->"0d9ab4fd-7cde-48ba-8741-da13981efc32"], +Cell[111026, 2996, 267, 6, 75, "Output",ExpressionUUID->"8e954486-23c3-4351-b64e-812100532ebe"] }, 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[111330, 3007, 22539, 554, 6074, "Input",ExpressionUUID->"4878baa4-7561-48bb-a697-805dcbd99ccc"], +Cell[133872, 3563, 266, 6, 75, "Output",ExpressionUUID->"f47db446-29e4-4c26-810f-f1963ec98e5f"] }, 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[134175, 3574, 25495, 627, 6806, "Input",ExpressionUUID->"b2b2b65f-3302-4b16-b0bc-c3dba064603d"], +Cell[159673, 4203, 265, 6, 75, "Output",ExpressionUUID->"f44d17ea-21a8-43b0-a171-49a7ec2c0e79"] }, 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[159975, 4214, 134, 3, 66, "Input",ExpressionUUID->"84ce8f1f-58d8-4eaa-a930-227c84951e62"], +Cell[160112, 4219, 229, 5, 75, "Output",ExpressionUUID->"8a580cce-a966-4fc1-a9ce-da183ca43c66"] }, 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[160378, 4229, 134, 3, 66, "Input",ExpressionUUID->"72b1a9dc-3127-4e48-86c3-45bad88f5e1b"], +Cell[160515, 4234, 232, 5, 75, "Output",ExpressionUUID->"36cdd94d-6809-4166-86ad-ffe81fac9699"] }, 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[160784, 4244, 1148, 40, 246, "Input",ExpressionUUID->"cd27022c-c099-4bb3-b386-df409e9a7ddc"], +Cell[161935, 4286, 246, 5, 75, "Output",ExpressionUUID->"cddd5c1e-f917-44ba-8a84-5bc0d8964aec"] }, 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[162218, 4296, 1045, 36, 246, "Input",ExpressionUUID->"6da541b4-99e0-4eba-bdc7-63250b29f74c"], +Cell[163266, 4334, 262, 6, 75, "Output",ExpressionUUID->"38defbdb-68b9-4b0b-8286-cc0ab05cb311"] }, 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[163565, 4345, 1148, 40, 246, "Input",ExpressionUUID->"f53ff4b6-d3f1-4d5e-83aa-78df9bad89af"], +Cell[164716, 4387, 250, 5, 75, "Output",ExpressionUUID->"895eadde-b7ea-48c2-ae12-e77255ba0edb"] }, 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[165003, 4397, 112, 2, 66, "Input",ExpressionUUID->"e04a089d-3d44-4008-be1b-48d773e92a0d"], +Cell[165118, 4401, 248, 5, 75, "Output",ExpressionUUID->"3f6d0d8c-4818-414c-be61-af3e1de7e772"] }, 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[165403, 4411, 112, 2, 66, "Input",ExpressionUUID->"4941bb53-4063-43b1-9e9b-d28f5d3f183a"], +Cell[165518, 4415, 266, 6, 75, "Output",ExpressionUUID->"d9635c64-f3ff-4a9c-b1a2-ec0f530f6e86"] }, 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[165821, 4426, 112, 2, 66, "Input",ExpressionUUID->"4fdd5590-d0f9-456e-96ba-3cf8f7bf1e4f"], +Cell[165936, 4430, 262, 6, 75, "Output",ExpressionUUID->"49cfb441-c7b0-4ee9-bbfe-1e6b41eda586"] }, 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[166235, 4441, 112, 2, 66, "Input",ExpressionUUID->"6adc2de8-b1ec-46b8-92b9-0d15cc7612ed"], +Cell[166350, 4445, 248, 5, 75, "Output",ExpressionUUID->"793bde36-e10a-4d2f-b7a7-7328fedca048"] }, 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[166635, 4455, 111, 2, 66, "Input",ExpressionUUID->"65a03490-7d68-44a6-a971-65d7fe7092fb"], +Cell[166749, 4459, 225, 4, 75, "Output",ExpressionUUID->"2033cecb-686f-4d59-9f23-cc1b3e1e77bf"] }, 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[167011, 4468, 111, 2, 66, "Input",ExpressionUUID->"12075aa1-ff44-4038-ace0-d1b39df28f5d"], +Cell[167125, 4472, 221, 4, 75, "Output",ExpressionUUID->"69932e2f-138d-4cb6-8c35-ed6d20a9228e"] }, 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[167383, 4481, 501, 17, 125, "Input",ExpressionUUID->"d5fb27b7-b43d-4580-b46d-25ec58e7822d"], +Cell[167887, 4500, 238, 5, 75, "Output",ExpressionUUID->"8be15e63-ffce-42e2-be77-78e149ad05d9"] }, 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[168162, 4510, 501, 17, 125, "Input",ExpressionUUID->"69447d37-eb3a-4a25-a211-ac123cbb4689"], +Cell[168666, 4529, 238, 5, 75, "Output",ExpressionUUID->"e2f82828-68e3-47e5-9ea9-ea49d28b268b"] }, 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[168941, 4539, 1792, 61, 201, "Input",ExpressionUUID->"7517deda-b264-4489-9a37-527e0691500c"], +Cell[170736, 4602, 219, 4, 50, "Output",ExpressionUUID->"cdf288af-9a6f-4208-940d-233de24acfe4"] }, 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[170992, 4611, 1105, 37, 84, "Input",ExpressionUUID->"cd1f08be-0e58-479a-b69a-fcc9497d7ddc"], +Cell[172100, 4650, 238, 5, 50, "Output",ExpressionUUID->"82826ea4-6ed1-483d-abea-5d83919f11b7"] }, 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[172375, 4660, 1822, 62, 166, "Input",ExpressionUUID->"a392d378-7274-4661-8402-2eac94b15b8f"], +Cell[174200, 4724, 217, 4, 50, "Output",ExpressionUUID->"fffa7096-3879-424d-ba21-1c5738295d30"] }, 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[174454, 4733, 1635, 54, 120, "Input",ExpressionUUID->"67d7383b-067f-44a8-8b59-1544234b8583"], +Cell[176092, 4789, 222, 4, 50, "Output",ExpressionUUID->"50e4732e-bbc7-457c-abd9-7328f1d30d64"] }, 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[176351, 4798, 1635, 54, 120, "Input",ExpressionUUID->"171fd13f-2950-49f7-8085-054b4c769116"], +Cell[177989, 4854, 219, 4, 50, "Output",ExpressionUUID->"b5202487-e867-41f2-a575-d2482b47c6ea"] +}, Open ]], +Cell[178223, 4861, 187, 4, 44, "Input",ExpressionUUID->"bdefbecf-0aaa-4a45-a861-406cf54e52d1"], +Cell[178413, 4867, 154, 3, 44, "Input",ExpressionUUID->"a5161e25-7247-124f-8601-7bcc4af89c62"], +Cell[178570, 4872, 187, 4, 44, "Input",ExpressionUUID->"45ed831b-459a-9a41-990f-c079ad464f5d"], +Cell[178760, 4878, 154, 3, 44, "Input",ExpressionUUID->"bc946e22-fdd1-8b4b-8e5a-11f4dcb03e07"], +Cell[CellGroupData[{ +Cell[178939, 4885, 1301, 43, 73, "Input",ExpressionUUID->"78018a61-7851-fe4d-b32f-cb68a3158f29"], +Cell[180243, 4930, 178, 3, 50, "Output",ExpressionUUID->"1658422d-0016-324a-9843-942f5453a9c7"] }, 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"] -}, Open ]], -Cell[376133, 8866, 209, 5, 56, "Input",ExpressionUUID->"f380af60-a605-c546-a4c8-b989835aa113"], -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[180458, 4938, 910, 31, 84, "Input",ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-7221ff813b6d"], +Cell[181371, 4971, 175, 3, 50, "Output",ExpressionUUID->"d307b81f-3de4-ab46-9ef8-af5c6bc7c05b"] }, 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[181583, 4979, 887, 30, 84, "Input",ExpressionUUID->"f22831a7-63b7-f444-8e3a-fa370a62ac27"], +Cell[182473, 5011, 176, 3, 50, "Output",ExpressionUUID->"866e2a7a-c08a-d14a-ae9c-f63fbc316d85"] }, 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[182686, 5019, 558, 19, 79, "Input",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"], +Cell[183247, 5040, 172, 3, 50, "Output",ExpressionUUID->"bba1ae64-a2a6-4745-b870-cca298627f62"] }, 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[183456, 5048, 623, 21, 79, "Input",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"], +Cell[184082, 5071, 172, 3, 50, "Output",ExpressionUUID->"2d9a2576-51c1-274e-bb6b-3d0a12d8f955"] }, 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"] +Cell[184291, 5079, 170, 5, 84, "Input",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"], +Cell[184464, 5086, 172, 3, 50, "Output",ExpressionUUID->"55e80360-690f-0444-ac68-221fe09ddfd5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[184673, 5094, 170, 5, 83, "Input",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"], +Cell[184846, 5101, 171, 3, 50, "Output",ExpressionUUID->"ffa83e52-e057-8c44-be5c-a869714a425e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185054, 5109, 181, 5, 65, "Input",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"], +Cell[185238, 5116, 170, 3, 50, "Output",ExpressionUUID->"daa1af48-56b9-b549-9a5e-fd35e4ace383"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185445, 5124, 181, 5, 65, "Input",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"], +Cell[185629, 5131, 172, 3, 50, "Output",ExpressionUUID->"045de583-e60b-c94a-9184-d9a46a689c39"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185838, 5139, 6055, 185, 497, "Input",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"], +Cell[191896, 5326, 172, 3, 50, "Output",ExpressionUUID->"cdaeef85-4599-4144-88b1-c12ccb960e67"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192105, 5334, 368, 9, 63, "Input",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"], +Cell[192476, 5345, 171, 3, 50, "Output",ExpressionUUID->"c4da64fa-539e-454c-a7bc-f5a50d741b33"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192684, 5353, 6122, 187, 497, "Input",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"], +Cell[198809, 5542, 173, 3, 50, "Output",ExpressionUUID->"a0ddd9ec-0ad8-da40-93c1-f69a540fecbb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[199019, 5550, 368, 9, 63, "Input",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"], +Cell[199390, 5561, 170, 3, 50, "Output",ExpressionUUID->"bb399ae8-0971-524b-99dd-45c3d83aff90"] +}, Open ]], +Cell[CellGroupData[{ +Cell[199597, 5569, 2663, 88, 247, "Input",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"], +Cell[202263, 5659, 171, 3, 50, "Output",ExpressionUUID->"8522d772-b29b-b14d-a623-3ad00b3d8250"] +}, Open ]], +Cell[CellGroupData[{ +Cell[202471, 5667, 2603, 85, 247, "Input",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"], +Cell[205077, 5754, 173, 3, 50, "Output",ExpressionUUID->"d88ed30c-77e3-0245-b8d9-3b803c379fb2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[205287, 5762, 3712, 118, 364, "Input",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"], +Cell[209002, 5882, 174, 3, 50, "Output",ExpressionUUID->"5d391006-3707-3d44-a060-c06781a98edd"] +}, Open ]], +Cell[209191, 5888, 138, 3, 44, "Input",ExpressionUUID->"714abd93-e0d1-eb45-a9e1-7a2f5d020eb1"], +Cell[CellGroupData[{ +Cell[209354, 5895, 2054, 59, 138, "Input",ExpressionUUID->"137c38a2-741c-bd43-b6d9-c0135e32eaf8"], +Cell[211411, 5956, 557, 12, 86, "Message",ExpressionUUID->"055bf31f-37b2-724c-aeef-d922f7a205c7"], +Cell[211971, 5970, 559, 12, 86, "Message",ExpressionUUID->"eeead3e4-54a5-7c4d-95b2-292dcdbe105a"], +Cell[212533, 5984, 561, 12, 86, "Message",ExpressionUUID->"87e34a07-7a78-bf46-b222-6e72d11fd18d"], +Cell[213097, 5998, 458, 10, 31, "Message",ExpressionUUID->"1cf9faa5-3432-3349-b45a-58344623fc63"], +Cell[213558, 6010, 172, 3, 50, "Output",ExpressionUUID->"acb58738-85fd-0f40-b8fa-3a779aa79369"] +}, Open ]], +Cell[CellGroupData[{ +Cell[213767, 6018, 2052, 59, 138, "Input",ExpressionUUID->"9b196534-2ca5-e54b-8014-b0ab3cd09ac2"], +Cell[215822, 6079, 555, 12, 86, "Message",ExpressionUUID->"6fb03e9c-623b-b24d-bccd-c05b2662537c"], +Cell[216380, 6093, 559, 12, 86, "Message",ExpressionUUID->"410ed293-2b04-a346-b193-5e006759c884"], +Cell[216942, 6107, 561, 12, 86, "Message",ExpressionUUID->"9e59cf72-2df3-6741-910e-ddcc2125aa8b"], +Cell[217506, 6121, 458, 10, 31, "Message",ExpressionUUID->"6f223de4-f4b9-0a4c-b3b3-f489f4259713"], +Cell[217967, 6133, 172, 3, 50, "Output",ExpressionUUID->"d8300689-0813-6149-9a7f-c358ba826aac"] +}, Open ]], +Cell[CellGroupData[{ +Cell[218176, 6141, 1936, 53, 102, "Input",ExpressionUUID->"124cd7db-c537-8943-bef2-1a154ab4a709"], +Cell[220115, 6196, 20440, 382, 355, "Output",ExpressionUUID->"a7dc53c9-dabc-784f-a94a-f1fb7ab10c84"] +}, Open ]], +Cell[CellGroupData[{ +Cell[240592, 6583, 2094, 60, 138, "Input",ExpressionUUID->"5a7f9400-1446-9746-a463-bade8ae5c530"], +Cell[242689, 6645, 500, 11, 58, "Message",ExpressionUUID->"eede1010-35b4-8e43-8206-4c3ebae733c0"], +Cell[243192, 6658, 503, 11, 58, "Message",ExpressionUUID->"01174b23-a2bd-8e4e-90f5-af7e82df101e"], +Cell[243698, 6671, 506, 11, 58, "Message",ExpressionUUID->"ec7385ad-4809-8947-afea-81e4a95fc523"], +Cell[244207, 6684, 455, 10, 31, "Message",ExpressionUUID->"4176ecfe-3aff-0f4b-824e-b07e40312968"], +Cell[244665, 6696, 57321, 985, 348, "Output",ExpressionUUID->"6ef8802e-494c-9d4c-94ba-3ee854b2b684"] +}, Open ]], +Cell[302001, 7684, 2453, 69, 166, "Input",ExpressionUUID->"0f83f761-b16d-5343-987d-511095eaf120"], +Cell[304457, 7755, 209, 5, 44, "Input",ExpressionUUID->"8cdd4baa-f7c9-104e-b978-89d3982ba28f"], +Cell[CellGroupData[{ +Cell[304691, 7764, 217, 7, 72, "Input",ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-3438788b15d6"], +Cell[304911, 7773, 172, 3, 50, "Output",ExpressionUUID->"bea5e069-6c61-f84f-be94-f0a852e2aafc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[305120, 7781, 1816, 53, 138, "Input",ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-0e75880d5d98"], +Cell[306939, 7836, 508, 11, 58, "Message",ExpressionUUID->"3a61d965-a130-7645-90c6-a5061b94ec40"], +Cell[307450, 7849, 508, 11, 58, "Message",ExpressionUUID->"c3c0d10c-aa86-9b43-bfa9-71bc099863f1"], +Cell[307961, 7862, 511, 11, 58, "Message",ExpressionUUID->"321e1ff2-86f6-7244-895a-0b744ecd0cf1"], +Cell[308475, 7875, 456, 10, 31, "Message",ExpressionUUID->"43e0f399-4fd6-3f4d-a3a8-ef137bebb344"], +Cell[308934, 7887, 26000, 472, 349, "Output",ExpressionUUID->"4e674430-b3ee-f841-98e7-88500054cf35"] +}, Open ]], +Cell[CellGroupData[{ +Cell[334971, 8364, 1616, 48, 164, "Input",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"], +Cell[336590, 8414, 584, 12, 164, "Message",ExpressionUUID->"6dc439d9-4983-a74d-a424-1e627442f8ec"], +Cell[337177, 8428, 588, 12, 164, "Message",ExpressionUUID->"cbbb0a14-cac3-b246-be52-03554c6d0159"], +Cell[337768, 8442, 592, 12, 164, "Message",ExpressionUUID->"afaf59d8-5c82-5843-ba76-5dd1061c22bd"], +Cell[338363, 8456, 456, 10, 164, "Message",ExpressionUUID->"370cb98e-1084-6940-9e45-78218dc7334e"], +Cell[338822, 8468, 169, 3, 164, "Output",ExpressionUUID->"49c1839c-f9a0-514a-9803-38aedd206508"] +}, Open ]], +Cell[CellGroupData[{ +Cell[339028, 8476, 2249, 64, 164, "Input",ExpressionUUID->"eb852908-4d60-c84e-80d9-a57fd4094f56"], +Cell[341280, 8542, 555, 12, 164, "Message",ExpressionUUID->"e4da2c2e-bc79-8048-aec6-e0a36c5fd50c"], +Cell[341838, 8556, 557, 12, 164, "Message",ExpressionUUID->"ff48d9a8-4f15-044a-8d17-d378e560badf"], +Cell[342398, 8570, 563, 12, 164, "Message",ExpressionUUID->"d97cd881-ad70-0043-811a-b6650c7bff48"], +Cell[342964, 8584, 458, 10, 164, "Message",ExpressionUUID->"dc1ff9fc-c736-e742-9bd5-f36a7c2c6c53"], +Cell[343425, 8596, 173, 3, 164, "Output",ExpressionUUID->"207fc206-b3fa-1a42-8709-2c8aaaf304b0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[343635, 8604, 2223, 64, 164, "Input",ExpressionUUID->"d11037f6-09e7-b44f-8a1d-47c1a485c608"], +Cell[345861, 8670, 555, 12, 164, "Message",ExpressionUUID->"079487fc-3029-b74e-ba27-a61cf73f30a2"], +Cell[346419, 8684, 557, 12, 164, "Message",ExpressionUUID->"6fef6245-eafb-7343-8d9c-509c47662fd8"], +Cell[346979, 8698, 561, 12, 164, "Message",ExpressionUUID->"caeb451e-fce0-a24e-bdb2-20066bf32e23"], +Cell[347543, 8712, 458, 10, 164, "Message",ExpressionUUID->"b9263c45-06ba-d24d-a71c-72933a67fb86"], +Cell[348004, 8724, 173, 3, 164, "Output",ExpressionUUID->"fdc26e81-7e73-a54e-8b48-fba744fd21b7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[348214, 8732, 2221, 64, 164, "Input",ExpressionUUID->"431dd2fa-6331-2449-bc19-0d79e6ed8953"], +Cell[350438, 8798, 557, 12, 164, "Message",ExpressionUUID->"3270b87e-9743-ef45-96a4-2ce51373a203"], +Cell[350998, 8812, 557, 12, 164, "Message",ExpressionUUID->"b5a7511b-af1a-b946-83d4-1951541611b2"], +Cell[351558, 8826, 563, 12, 164, "Message",ExpressionUUID->"55836c22-e074-4442-9aa3-8442534fcabe"], +Cell[352124, 8840, 456, 10, 164, "Message",ExpressionUUID->"18c3aa33-3860-5f41-a9ac-8cd3806fef7e"], +Cell[352583, 8852, 173, 3, 164, "Output",ExpressionUUID->"62510f7e-bac9-8b4e-86ce-182bdd5d56b9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[352793, 8860, 213, 6, 164, "Input",ExpressionUUID->"8c5df121-e0b9-a146-bc34-b231aa8028b9"], +Cell[353009, 8868, 171, 3, 164, "Output",ExpressionUUID->"5c7cd89e-20ed-8d44-83bb-e2e46deab974"] +}, Open ]], +Cell[353195, 8874, 245, 5, 164, "Input",ExpressionUUID->"831a27fc-89ff-e041-97f1-0ec5d19a7879"], +Cell[CellGroupData[{ +Cell[353465, 8883, 558, 19, 164, "Input",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"], +Cell[354026, 8904, 172, 3, 164, "Output",ExpressionUUID->"e3d357af-87e3-0047-959d-fa0139c5bfc4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[354235, 8912, 170, 5, 164, "Input",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"], +Cell[354408, 8919, 173, 3, 164, "Output",ExpressionUUID->"93dda073-df54-8f4e-afab-666de5caf927"] +}, Open ]], +Cell[CellGroupData[{ +Cell[354618, 8927, 181, 5, 164, "Input",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"], +Cell[354802, 8934, 173, 3, 164, "Output",ExpressionUUID->"db5e4010-00e8-574c-8b32-365b8147ba2d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[355012, 8942, 6055, 185, 164, "Input",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"], +Cell[361070, 9129, 172, 3, 164, "Output",ExpressionUUID->"6f5204f9-42a7-0343-a2cd-76cd7618ba90"] +}, Open ]], +Cell[CellGroupData[{ +Cell[361279, 9137, 368, 9, 164, "Input",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"], +Cell[361650, 9148, 170, 3, 164, "Output",ExpressionUUID->"732feb85-572c-6a40-bb32-258aa6fbb12e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[361857, 9156, 6122, 187, 164, "Input",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"], +Cell[367982, 9345, 175, 3, 164, "Output",ExpressionUUID->"330db3dd-df0f-5e4b-9e84-63e3da6287e1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[368194, 9353, 368, 9, 164, "Input",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"], +Cell[368565, 9364, 172, 3, 164, "Output",ExpressionUUID->"8403ef7a-5add-ea45-a6c0-a6dc70f27bb8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[368774, 9372, 2663, 88, 164, "Input",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"], +Cell[371440, 9462, 173, 3, 164, "Output",ExpressionUUID->"aac00e4f-5d2b-4341-8ca5-f49d9556633e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[371650, 9470, 2603, 85, 164, "Input",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"], +Cell[374256, 9557, 171, 3, 164, "Output",ExpressionUUID->"eeee5a47-9547-7746-bb79-936b40364d7e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[374464, 9565, 3712, 118, 164, "Input",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"], +Cell[378179, 9685, 174, 3, 164, "Output",ExpressionUUID->"a1352554-6686-ff4e-be47-04b42c29b000"] +}, Open ]], +Cell[CellGroupData[{ +Cell[378390, 9693, 2052, 59, 164, "Input",ExpressionUUID->"220bdeed-2e17-e94c-a7b0-3e066daf15d7"], +Cell[380445, 9754, 578, 12, 164, "Message",ExpressionUUID->"c854318c-035d-f249-9a8c-a9608e137436"], +Cell[381026, 9768, 583, 12, 164, "Message",ExpressionUUID->"fc1eef58-3b5b-8c4c-bab7-60a3682b1d45"], +Cell[381612, 9782, 586, 12, 164, "Message",ExpressionUUID->"2e134293-05b5-624c-b206-73b12a84c5ea"], +Cell[382201, 9796, 456, 10, 164, "Message",ExpressionUUID->"2cac2ff4-fc29-a048-9fae-70918ed41968"], +Cell[382660, 9808, 170, 3, 164, "Output",ExpressionUUID->"2dcc4178-0b8d-9f48-a040-f2fc5cb8eacd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[382867, 9816, 2054, 59, 164, "Input",ExpressionUUID->"b8791a07-33fe-8c4f-9c59-dd23af9a4471"], +Cell[384924, 9877, 576, 12, 164, "Message",ExpressionUUID->"ac808335-5ecc-ee4f-a7ac-d889b0bf6e05"], +Cell[385503, 9891, 581, 12, 164, "Message",ExpressionUUID->"36b7d718-32d9-a441-b985-1fed8f0f10fd"], +Cell[386087, 9905, 586, 12, 164, "Message",ExpressionUUID->"ab31a569-fab4-434a-9c76-33aa9b59b117"], +Cell[386676, 9919, 458, 10, 164, "Message",ExpressionUUID->"4c41e56d-f5cb-b94c-b99a-06e306247825"], +Cell[387137, 9931, 172, 3, 164, "Output",ExpressionUUID->"5ec230cf-b87d-3e41-bc7f-1f3f2ff283ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[387346, 9939, 2028, 55, 164, "Input",ExpressionUUID->"3fe6e7f1-b44a-234f-af77-3cf1fdaf28d9"], +Cell[389377, 9996, 20011, 378, 164, "Output",ExpressionUUID->"3d0b6a0d-2dc0-3b48-b8dd-35b5149ee27f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[409425, 10379, 2115, 60, 164, "Input",ExpressionUUID->"ab29778f-f183-804b-b871-4070462057d7"], +Cell[411543, 10441, 501, 11, 164, "Message",ExpressionUUID->"abf9cb8a-fbbf-7a43-abcd-82efb32ab217"], +Cell[412047, 10454, 503, 11, 164, "Message",ExpressionUUID->"8fcd13e3-81e0-3446-8882-6e42ca5c0bd1"], +Cell[412553, 10467, 505, 11, 164, "Message",ExpressionUUID->"2c23ed60-41ee-5841-90ce-1d26cb02619d"], +Cell[413061, 10480, 456, 10, 164, "Message",ExpressionUUID->"fa59df63-76ff-4147-acd0-9eeaf33582c5"], +Cell[413520, 10492, 32548, 580, 164, "Output",ExpressionUUID->"4ab96fbd-92e0-8a42-8552-436bb2f629b6"] +}, Open ]], +Cell[446083, 11075, 209, 5, 164, "Input",ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-6bd251746ea6"], +Cell[CellGroupData[{ +Cell[446317, 11084, 1616, 48, 164, "Input",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"], +Cell[447936, 11134, 596, 12, 164, "Message",ExpressionUUID->"3273c967-a8f4-6b46-8292-dfd9dc69311d"], +Cell[448535, 11148, 599, 12, 164, "Message",ExpressionUUID->"cf5457ae-7056-8a4b-afa3-32b95e922259"], +Cell[449137, 11162, 605, 12, 164, "Message",ExpressionUUID->"7ef79528-2ca4-544d-8bbf-e4564533e47a"], +Cell[449745, 11176, 456, 10, 164, "Message",ExpressionUUID->"3f59bf2a-0193-1b41-9437-359e4e291f20"], +Cell[450204, 11188, 170, 3, 164, "Output",ExpressionUUID->"6c94ff26-1921-5a44-a360-bda32f564938"] +}, Open ]], +Cell[CellGroupData[{ +Cell[450411, 11196, 2247, 64, 164, "Input",ExpressionUUID->"5a0cc4bb-b2b0-c64c-958a-7a397847208f"], +Cell[452661, 11262, 580, 12, 164, "Message",ExpressionUUID->"33abd0dc-5204-1046-87c9-87cecac6793f"], +Cell[453244, 11276, 583, 12, 164, "Message",ExpressionUUID->"a3e9f415-30c2-d04b-a044-33980d6ef6e9"], +Cell[453830, 11290, 584, 12, 164, "Message",ExpressionUUID->"3dddc3ab-89f8-ab44-a85d-f5130722f198"], +Cell[454417, 11304, 458, 10, 164, "Message",ExpressionUUID->"a3229605-5a49-544b-bbf6-cc14edd6c936"], +Cell[454878, 11316, 170, 3, 164, "Output",ExpressionUUID->"2f0f984a-e452-7f46-a8f1-230feda2f30b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[455085, 11324, 2219, 64, 164, "Input",ExpressionUUID->"22b50200-0b82-dc47-9932-f1f0210d6caf"], +Cell[457307, 11390, 580, 12, 164, "Message",ExpressionUUID->"1a479ad6-386a-fb47-95e4-f8a3ab25eccc"], +Cell[457890, 11404, 583, 12, 164, "Message",ExpressionUUID->"c45746b8-a614-4245-b137-e38355d43857"], +Cell[458476, 11418, 586, 12, 164, "Message",ExpressionUUID->"7ef9264b-fdf5-8e46-a39d-9d01a56d9fbc"], +Cell[459065, 11432, 458, 10, 164, "Message",ExpressionUUID->"424cc344-67bf-5349-951a-e3d6864f9105"], +Cell[459526, 11444, 171, 3, 164, "Output",ExpressionUUID->"d6fb3ea3-39a2-5b42-96f2-520a52fd0d9f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[459734, 11452, 2221, 64, 164, "Input",ExpressionUUID->"8a5105db-666c-444e-9451-d3e8d1574bcd"], +Cell[461958, 11518, 580, 12, 164, "Message",ExpressionUUID->"7c3b7078-d094-2344-a157-26438223ef0f"], +Cell[462541, 11532, 583, 12, 164, "Message",ExpressionUUID->"a4aaa457-e588-7a42-9066-29e614b18d91"], +Cell[463127, 11546, 584, 12, 164, "Message",ExpressionUUID->"8e9701ac-9508-2346-b853-523f9f269328"], +Cell[463714, 11560, 456, 10, 164, "Message",ExpressionUUID->"062aadbd-03a7-1f42-b815-d27ae6ddc83e"], +Cell[464173, 11572, 170, 3, 164, "Output",ExpressionUUID->"484b070c-cc4a-7049-8a18-4aa38bea8cd9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[464380, 11580, 213, 6, 164, "Input",ExpressionUUID->"d0efa798-230b-fa46-b413-76bfd8e40ccb"], +Cell[464596, 11588, 174, 3, 164, "Output",ExpressionUUID->"8b85bd5c-200a-cc44-9db5-38c5efe118ad"] +}, Open ]], +Cell[464785, 11594, 247, 5, 164, "Input",ExpressionUUID->"f842f74e-f562-934a-9011-6604b8708636"], +Cell[CellGroupData[{ +Cell[465057, 11603, 558, 19, 164, "Input",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"], +Cell[465618, 11624, 173, 3, 164, "Output",ExpressionUUID->"ddfcd06d-5644-fb4b-b789-815d8db71ce6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[465828, 11632, 170, 5, 164, "Input",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"], +Cell[466001, 11639, 173, 3, 164, "Output",ExpressionUUID->"96020250-b44c-694d-acbe-eb8b1c066e25"] +}, Open ]], +Cell[CellGroupData[{ +Cell[466211, 11647, 181, 5, 164, "Input",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"], +Cell[466395, 11654, 171, 3, 164, "Output",ExpressionUUID->"a3cad59a-97f1-1b4b-a0d3-0fcbb55e71c0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[466603, 11662, 6055, 185, 164, "Input",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"], +Cell[472661, 11849, 173, 3, 164, "Output",ExpressionUUID->"221426ad-3f43-834a-96dc-c22bf0ed0e23"] +}, Open ]], +Cell[CellGroupData[{ +Cell[472871, 11857, 368, 9, 164, "Input",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"], +Cell[473242, 11868, 172, 3, 164, "Output",ExpressionUUID->"54964f1a-0c74-5b45-a5d4-8b241885bf9d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[473451, 11876, 6122, 187, 164, "Input",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"], +Cell[479576, 12065, 175, 3, 164, "Output",ExpressionUUID->"637b4460-08e1-2c47-b235-20b94d0413ac"] +}, Open ]], +Cell[CellGroupData[{ +Cell[479788, 12073, 368, 9, 164, "Input",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"], +Cell[480159, 12084, 171, 3, 164, "Output",ExpressionUUID->"55b9de35-b316-8a4b-b6c7-df263fdc91bc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[480367, 12092, 2663, 88, 164, "Input",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"], +Cell[483033, 12182, 173, 3, 164, "Output",ExpressionUUID->"fd2a841e-0c22-9146-97fa-d652989dadbe"] +}, Open ]], +Cell[CellGroupData[{ +Cell[483243, 12190, 2603, 85, 164, "Input",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"], +Cell[485849, 12277, 171, 3, 164, "Output",ExpressionUUID->"94bd0f60-5228-9b42-83fe-23a478d55c7c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[486057, 12285, 3712, 118, 164, "Input",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"], +Cell[489772, 12405, 174, 3, 164, "Output",ExpressionUUID->"fe51f341-63c7-8f47-9357-139cd58159ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[489983, 12413, 2054, 59, 164, "Input",ExpressionUUID->"1dec41a6-6752-2041-9d38-804123b5ccd0"], +Cell[492040, 12474, 572, 12, 164, "Message",ExpressionUUID->"0e079558-1b2f-5a46-8c66-a9ee31993ddb"], +Cell[492615, 12488, 573, 12, 164, "Message",ExpressionUUID->"d148db97-53f1-5f42-bd2e-6e779140d5b6"], +Cell[493191, 12502, 579, 12, 164, "Message",ExpressionUUID->"186b0633-6992-1247-a396-6e446c898f15"], +Cell[493773, 12516, 456, 10, 164, "Message",ExpressionUUID->"81723359-f225-2c46-ac9d-0c5bbdaa253b"], +Cell[494232, 12528, 169, 3, 164, "Output",ExpressionUUID->"dfb1ce0b-e756-e84a-9724-ecf250122f19"] +}, Open ]], +Cell[CellGroupData[{ +Cell[494438, 12536, 2049, 58, 164, "Input",ExpressionUUID->"442c9cc5-031c-244c-a3bb-8044e56b047f"], +Cell[496490, 12596, 570, 12, 164, "Message",ExpressionUUID->"90df9b1f-7133-e445-8661-0af9d5feb8bd"], +Cell[497063, 12610, 575, 12, 164, "Message",ExpressionUUID->"93c48be2-5ad7-ad43-88e8-2c6ab8e2f132"], +Cell[497641, 12624, 579, 12, 164, "Message",ExpressionUUID->"cbcbafce-f556-944f-b5f3-9a75f9ae2725"], +Cell[498223, 12638, 458, 10, 164, "Message",ExpressionUUID->"83820e0a-b24a-cc46-bd5a-b19f0104c185"], +Cell[498684, 12650, 171, 3, 164, "Output",ExpressionUUID->"0d63c418-a50b-b94b-ad7d-1a46c6eb320d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[498892, 12658, 2030, 55, 164, "Input",ExpressionUUID->"75bdb70f-74f6-1a4c-9c04-b799ae260294"], +Cell[500925, 12715, 20011, 378, 164, "Output",ExpressionUUID->"a15038e3-a3ab-e64e-ad3b-e8cb09ec92a2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[520973, 13098, 2120, 60, 164, "Input",ExpressionUUID->"cbec275e-4d01-7747-9ece-7fa9a2a651b1"], +Cell[523096, 13160, 501, 11, 164, "Message",ExpressionUUID->"bf289d91-76e3-3e4e-937f-93db9b038d39"], +Cell[523600, 13173, 505, 11, 164, "Message",ExpressionUUID->"a52542a3-f03a-414f-86c8-3b114308924e"], +Cell[524108, 13186, 506, 11, 164, "Message",ExpressionUUID->"1c7104f0-99cd-c74c-b855-98253be62519"], +Cell[524617, 13199, 456, 10, 164, "Message",ExpressionUUID->"e66837df-658a-2c4c-973b-50c515d3781f"], +Cell[525076, 13211, 31008, 556, 164, "Output",ExpressionUUID->"0c8adc65-2b3c-a14f-87e8-79cdde17788b"] +}, Open ]], +Cell[556099, 13770, 209, 5, 164, "Input",ExpressionUUID->"f380af60-a605-c546-a4c8-b989835aa113"], +Cell[CellGroupData[{ +Cell[556333, 13779, 1616, 48, 164, "Input",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"], +Cell[557952, 13829, 593, 12, 164, "Message",ExpressionUUID->"6cb27c14-3e28-3a42-b8b7-fdcba2488488"], +Cell[558548, 13843, 595, 12, 164, "Message",ExpressionUUID->"cb81e4d8-f3c2-a440-be93-8add6661d63f"], +Cell[559146, 13857, 602, 12, 164, "Message",ExpressionUUID->"6fc2d4bb-75da-4f4f-bee0-560983907484"], +Cell[559751, 13871, 456, 10, 164, "Message",ExpressionUUID->"a75f01ed-738d-2b4a-b751-ccae7a894e31"], +Cell[560210, 13883, 172, 3, 164, "Output",ExpressionUUID->"a9b05d7b-788a-eb45-8401-918c1ed97234"] +}, Open ]], +Cell[CellGroupData[{ +Cell[560419, 13891, 2249, 64, 164, "Input",ExpressionUUID->"f2835c98-560f-8e47-bdab-0d2700971836"], +Cell[562671, 13957, 572, 12, 164, "Message",ExpressionUUID->"e3c0ae99-c55d-1a40-897e-ede7de12487f"], +Cell[563246, 13971, 575, 12, 164, "Message",ExpressionUUID->"0a52e0c9-3a0a-a24b-a9af-01175c4ee0f4"], +Cell[563824, 13985, 579, 12, 164, "Message",ExpressionUUID->"e6adb683-0ea5-4b48-bbb8-23c8c11e4418"], +Cell[564406, 13999, 458, 10, 164, "Message",ExpressionUUID->"12441524-bcf6-244b-b009-fad76aa84cea"], +Cell[564867, 14011, 173, 3, 164, "Output",ExpressionUUID->"cc74ac59-df4c-cf4b-a4af-36b2436eea23"] +}, Open ]], +Cell[CellGroupData[{ +Cell[565077, 14019, 2221, 64, 164, "Input",ExpressionUUID->"ca837916-250f-4d4e-8368-5a08f479e656"], +Cell[567301, 14085, 572, 12, 164, "Message",ExpressionUUID->"ee3e5086-63b9-a04a-8b60-1a07bbedb00c"], +Cell[567876, 14099, 575, 12, 164, "Message",ExpressionUUID->"f824dc64-7721-2e40-87b9-9d308e655a7c"], +Cell[568454, 14113, 577, 12, 164, "Message",ExpressionUUID->"830b9065-dbdb-094f-aba8-2b0b04ca96a6"], +Cell[569034, 14127, 456, 10, 164, "Message",ExpressionUUID->"f79b172f-d4db-f24b-98c7-2b2531d3e183"], +Cell[569493, 14139, 172, 3, 164, "Output",ExpressionUUID->"88b0c8ab-c0ff-2a4c-be6a-f15bb3bf7202"] +}, Open ]], +Cell[CellGroupData[{ +Cell[569702, 14147, 2223, 64, 164, "Input",ExpressionUUID->"b579991f-985b-234a-94aa-ed18c097f8c0"], +Cell[571928, 14213, 572, 12, 164, "Message",ExpressionUUID->"f816110f-9bc3-0e4e-85c9-2e71a255bbb9"], +Cell[572503, 14227, 573, 12, 164, "Message",ExpressionUUID->"36d057a5-55b4-f047-814d-965f9626b543"], +Cell[573079, 14241, 579, 12, 164, "Message",ExpressionUUID->"4ef30680-44fe-0244-870d-45b0a67e7a3d"], +Cell[573661, 14255, 456, 10, 164, "Message",ExpressionUUID->"c685c306-1cc4-0a4f-bb39-965ed01378a7"], +Cell[574120, 14267, 173, 3, 164, "Output",ExpressionUUID->"621ca10b-eff8-834f-a283-22ac03a895a3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[574330, 14275, 215, 6, 164, "Input",ExpressionUUID->"afb7855c-8700-d444-926c-6d96abe14e67"], +Cell[574548, 14283, 174, 3, 164, "Output",ExpressionUUID->"3737ba01-5151-874d-9846-1c8b07e42d7a"] }, Open ]] } ] *) -(* End of internal cache information *) - diff --git a/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/h_166-74_Pu240_20-21_pr_Qw2.nb b/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/h_166-74_Pu240_20-21_pr_Qw2.nb index 1226680..706ba7a 100644 --- a/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/h_166-74_Pu240_20-21_pr_Qw2.nb +++ b/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/h_166-74_Pu240_20-21_pr_Qw2.nb @@ -3,25 +3,4866 @@ (*** 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[ 602379, 14661] +NotebookOptionsPosition[ 563514, 14041] +NotebookOutlinePosition[ 563925, 14058] +CellTagsIndexPosition[ 563882, 14055] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f1", "="}]], "Input", + RowBox[{"d", "=", "1.85"}]], "Input", CellChangeTimes->{ - 3.9918501413985214`*^9},ExpressionUUID->"5894836c-9594-0940-b94c-\ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.9940821364341908`*^9, 3.994082136546945*^9}, { + 3.99408222505837*^9, 3.9940822566678658`*^9}}, + CellLabel-> + "In[371]:=",ExpressionUUID->"35973d63-0d9a-456c-add5-8b5e8390b888"], + +Cell[BoxData["1.85`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, 3.9940821397588*^9, {3.9940822104439507`*^9, + 3.994082259420228*^9}}, + CellLabel-> + "Out[371]=",ExpressionUUID->"fd7b1493-9e6f-41b7-9769-1152ffcfc4a8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.99407306326154*^9, 3.994073063917366*^9}}, + CellLabel-> + "In[372]:=",ExpressionUUID->"dbdfe1d5-8311-4ac7-a46b-901ff8c30623"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.994082139815686*^9, {3.994082210466728*^9, + 3.994082259455925*^9}}, + CellLabel-> + "Out[372]=",ExpressionUUID->"8ba2d563-8790-468b-b8c3-3f9a1df82e0c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "166"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.9940730665357656`*^9, 3.994073067306501*^9}}, + CellLabel-> + "In[373]:=",ExpressionUUID->"6f811e58-bb01-4804-b737-86b35489b8eb"], + +Cell[BoxData["166"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.994082139825574*^9, {3.9940822104766827`*^9, + 3.994082259466858*^9}}, + CellLabel-> + "Out[373]=",ExpressionUUID->"f74e5a76-ee94-4575-a24a-25c0b6bcb454"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel-> + "In[374]:=",ExpressionUUID->"88380dba-6b91-457e-b0fb-d0594f76aca1"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.994082139835326*^9, {3.994082210487997*^9, + 3.994082259477521*^9}}, + CellLabel-> + "Out[374]=",ExpressionUUID->"ca1b3b6e-b7f4-4abd-ac1f-c8daabc3be1a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel-> + "In[375]:=",ExpressionUUID->"8c4dac5f-46bc-43ac-a4df-6dd5378834d0"], + +Cell[BoxData["0.54425`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.994082139845067*^9, {3.994082210498448*^9, + 3.994082259487831*^9}}, + CellLabel-> + "Out[375]=",ExpressionUUID->"600c1426-0ce0-4a63-b03b-04a6464ab1e8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel-> + "In[376]:=",ExpressionUUID->"88f58631-98c2-423b-b1fa-dc5fa27002e2"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.994082139854616*^9, {3.99408221050937*^9, + 3.994082259497772*^9}}, + CellLabel-> + "Out[376]=",ExpressionUUID->"f40cbbf8-783b-41f3-b625-825cc593e3af"] +}, 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[377]:=",ExpressionUUID->"adb39ac5-0d3e-44ae-b7f3-8326c2ac749d"], + +Cell[BoxData["6.3752030057102145`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.994082139865213*^9, {3.994082210519739*^9, + 3.994082259507691*^9}}, + CellLabel-> + "Out[377]=",ExpressionUUID->"d5dd9a41-5632-4a89-9de1-50da2c817b78"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel-> + "In[378]:=",ExpressionUUID->"f149ca1a-9038-4f65-afb4-26e0d1159c8c"], + +Cell[BoxData["4.870070286417752`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.99408213987599*^9, {3.9940822105302753`*^9, + 3.994082259517621*^9}}, + CellLabel-> + "Out[378]=",ExpressionUUID->"5768fe08-2ee1-4690-812a-68499791ca0c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.9035518425"}]], "Input", + CellChangeTimes->{3.991799283179735*^9, 3.994073090925538*^9}, + CellLabel-> + "In[379]:=",ExpressionUUID->"9605763a-f9d3-4856-a010-2d3a060ace0f"], + +Cell[BoxData["0.9035518425`"], "Output", + CellChangeTimes->{ + 3.994082139886828*^9, {3.9940822105402517`*^9, 3.9940822595277653`*^9}}, + CellLabel-> + "Out[379]=",ExpressionUUID->"5c1f2d4f-7f53-43a7-9dff-bb0d958faab9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.3863821951"}]], "Input", + CellChangeTimes->{3.991799280663351*^9, 3.9940730962719193`*^9}, + CellLabel-> + "In[380]:=",ExpressionUUID->"64836933-25c9-4db5-bd32-fbb116d0de1d"], + +Cell[BoxData["0.3863821951`"], "Output", + CellChangeTimes->{ + 3.994082139897403*^9, {3.994082210550373*^9, 3.994082259537862*^9}}, + CellLabel-> + "Out[380]=",ExpressionUUID->"d0d2dbc8-8214-41d4-96c4-ff855e3ae0e5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel-> + "In[381]:=",ExpressionUUID->"419e5362-c0de-4669-abe1-997084eaebaf"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.994082139910328*^9, {3.994082210560801*^9, + 3.9940822595420103`*^9}}, + CellLabel-> + "Out[381]=",ExpressionUUID->"4f79c2d8-8648-41db-a0a4-bb15cdd2e3e6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel-> + "In[382]:=",ExpressionUUID->"872d5066-6306-44a9-bec8-fff8eb67aa28"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.9940821399224367`*^9, {3.994082210571288*^9, + 3.994082259554398*^9}}, + CellLabel-> + "Out[382]=",ExpressionUUID->"02ab10b9-0e8a-4686-956a-68ea031bcac6"] +}, 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[383]:=",ExpressionUUID->"764cc1f7-0f06-4256-a6a4-65ab16179530"], + +Cell[BoxData["2.315137197466896`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.994082139933848*^9, {3.994082210581699*^9, + 3.9940822595648727`*^9}}, + CellLabel-> + "Out[383]=",ExpressionUUID->"5b1dbac8-6f2c-4c49-b1cf-0317fbdabcaf"] +}, 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[384]:=",ExpressionUUID->"cd0ecf79-d3ef-4ba6-ae0e-e2874c38a9ba"], + +Cell[BoxData["1.4220278650887666`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.994082139944078*^9, {3.9940822105866547`*^9, + 3.9940822595749483`*^9}}, + CellLabel-> + "Out[384]=",ExpressionUUID->"a734bf3d-b563-42e1-a950-8ee8dc581e98"] +}, 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[385]:=",ExpressionUUID->"8adb6708-1bda-475c-b18a-d1b195458671"], + +Cell[BoxData["0.4069661562665162`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.994082139954578*^9, {3.994082210602051*^9, + 3.994082259585372*^9}}, + CellLabel-> + "Out[385]=",ExpressionUUID->"898f6483-ca77-4442-ad4d-0621443411c6"] +}, 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[386]:=",ExpressionUUID->"4d151d2d-a479-4f7c-bf52-c1e63afc2115"], + +Cell[BoxData[ + RowBox[{"-", "0.08563504168524437`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.9940821399653873`*^9, {3.994082210613337*^9, + 3.994082259596693*^9}}, + CellLabel-> + "Out[386]=",ExpressionUUID->"2771f7c2-c507-44b2-89ea-040da86bb557"] +}, 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[387]:=",ExpressionUUID->"63598d16-2d41-4dd4-8df7-aa91cd656229"], + +Cell[BoxData[ + RowBox[{"-", "0.5841673375234483`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.9940821399780188`*^9, {3.9940822106256943`*^9, + 3.9940822596071453`*^9}}, + CellLabel-> + "Out[387]=",ExpressionUUID->"a9b614e6-f510-488a-901a-2ed10f310475"] +}, 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[388]:=",ExpressionUUID->"4676fefc-6764-4074-a289-9b1337d33532"], + +Cell[BoxData["0.7215005296935654`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.994082139989607*^9, {3.994082210635736*^9, + 3.99408225961747*^9}}, + CellLabel-> + "Out[388]=",ExpressionUUID->"a5c743bc-8301-4ed4-8c12-7b6dfe30c0b3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel-> + "In[389]:=",ExpressionUUID->"ef604341-566d-4c22-8f6c-8367d47b5f57"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.9940821399995413`*^9, {3.9940822106444807`*^9, + 3.994082259627829*^9}}, + CellLabel-> + "Out[389]=",ExpressionUUID->"6d89071e-ca6f-440c-9fad-a38d638ce33a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel-> + "In[390]:=",ExpressionUUID->"8cd91362-d232-4fbe-bb52-7dd1d83b495b"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.994082140010191*^9, {3.994082210653286*^9, + 3.994082259638521*^9}}, + CellLabel-> + "Out[390]=",ExpressionUUID->"77a766c5-be71-481f-8dff-ca18941832cf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel-> + "In[391]:=",ExpressionUUID->"1ad6203e-5d08-404d-ae4a-b663b1daf515"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.9940821400205593`*^9, {3.9940822106620293`*^9, + 3.9940822596489058`*^9}}, + CellLabel-> + "Out[391]=",ExpressionUUID->"8925ecbe-da2e-48e3-894f-4c833e0e3a6d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel-> + "In[392]:=",ExpressionUUID->"988b6766-dabf-49ce-8199-d8633380940a"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.994082140031045*^9, {3.994082210671171*^9, + 3.994082259659958*^9}}, + CellLabel-> + "Out[392]=",ExpressionUUID->"a35b0dc5-55eb-442a-a8c6-24adb1cbefbe"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel-> + "In[393]:=",ExpressionUUID->"0c60800f-35d6-4020-a221-04ec0cc10606"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.994082140043984*^9, {3.9940822106801777`*^9, + 3.994082259671282*^9}}, + CellLabel-> + "Out[393]=",ExpressionUUID->"d2587cea-4db4-4d77-8429-030a1690bef6"] +}, 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.9940731043812733`*^9, 3.994073104508005*^9}}, + CellLabel-> + "In[394]:=",ExpressionUUID->"756422f7-7c28-4212-b2f2-e5b506ee19b1"], + +Cell[BoxData["66"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, 3.994082140061471*^9, {3.99408221068924*^9, + 3.9940822596826973`*^9}}, + CellLabel-> + "Out[394]=",ExpressionUUID->"d9fa092a-e215-459e-86fd-3d62e849e98a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, {3.9940731093077307`*^9, 3.99407311085991*^9}}, + CellLabel-> + "In[395]:=",ExpressionUUID->"ea33de80-585b-46ef-acec-553c4b7426f6"], + +Cell[BoxData["28"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.994082140071866*^9, {3.9940822106985188`*^9, + 3.9940822596930656`*^9}}, + CellLabel-> + "Out[395]=",ExpressionUUID->"1c808bb8-dbcd-48d5-b662-085176024c1a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel-> + "In[396]:=",ExpressionUUID->"e223028e-00bb-4320-ab11-a830208e08a4"], + +Cell[BoxData["74"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.994082140082143*^9, {3.994082210707357*^9, + 3.994082259703759*^9}}, + CellLabel-> + "Out[396]=",ExpressionUUID->"827bb4b0-7f6e-46ff-a874-d640a4729a0b"] +}, 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[397]:=",ExpressionUUID->"dda54ce1-7959-4a8c-b756-f256ef453607"], + +Cell[BoxData["0.11092478020188863`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9940821400927267`*^9, {3.994082210716133*^9, + 3.994082259714077*^9}}, + CellLabel-> + "Out[397]=",ExpressionUUID->"82ed1f04-853e-4622-8f13-755f19d771e3"] +}, 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[398]:=",ExpressionUUID->"08b03fa2-34b5-4b3a-87b6-3cfe78c5a1af"], + +Cell[BoxData[ + RowBox[{"-", "2.5630967111690004`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.9940821401033173`*^9, {3.994082210725114*^9, + 3.994082259724759*^9}}, + CellLabel-> + "Out[398]=",ExpressionUUID->"dd3fad28-0ee5-4a6b-ad11-19f2624cb434"] +}, 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[399]:=",ExpressionUUID->"a5272b68-0b83-4cf7-b097-b53705fbec87"], + +Cell[BoxData["17.4437013546787`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.994082140114669*^9, {3.994082210734028*^9, + 3.994082259736136*^9}}, + CellLabel-> + "Out[399]=",ExpressionUUID->"10802376-20e8-4767-bcd8-cac6b8547b40"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel-> + "In[400]:=",ExpressionUUID->"b22ad84e-5801-40b8-bd7c-fae45515558f"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.994082140125458*^9, {3.9940822107429523`*^9, + 3.9940822597468443`*^9}}, + CellLabel-> + "Out[400]=",ExpressionUUID->"e2ca16d3-e434-427f-a924-ea56631aa1b2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "2.185"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { + 3.994073141486967*^9, 3.9940731424234343`*^9}}, + CellLabel-> + "In[401]:=",ExpressionUUID->"b50f0492-e9e8-4f11-8747-e219459d6ef8"], + +Cell[BoxData["2.185`"], "Output", + CellChangeTimes->{ + 3.9940821401363583`*^9, {3.994082210751677*^9, 3.9940822597573833`*^9}}, + CellLabel-> + "Out[401]=",ExpressionUUID->"04a20273-b058-4e34-911f-cb7c8929d4e5"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel-> + "In[402]:=",ExpressionUUID->"c6021c6e-7c33-45a8-8c92-05eb0451ec5b"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.755"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.9940731457645493`*^9, 3.994073146848226*^9}}, + CellLabel-> + "In[403]:=",ExpressionUUID->"af4d14a7-37f4-4d8b-8c46-bf1570896c80"], + +Cell[BoxData["0.755`"], "Output", + CellChangeTimes->{ + 3.994082140150962*^9, {3.9940822107679367`*^9, 3.9940822597717943`*^9}}, + CellLabel-> + "Out[403]=",ExpressionUUID->"b20b9287-cab5-445c-91c2-a2cd3ab02906"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel-> + "In[404]:=",ExpressionUUID->"7cdd0519-ffcb-4c3f-97f3-953447f63b18"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "2.5"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.994073149619232*^9, 3.994073149893601*^9}}, + CellLabel-> + "In[405]:=",ExpressionUUID->"87786be5-cb34-407a-82ef-18816e301000"], + +Cell[BoxData["2.5`"], "Output", + CellChangeTimes->{ + 3.994082140164228*^9, {3.994082210783918*^9, 3.994082259785039*^9}}, + CellLabel-> + "Out[405]=",ExpressionUUID->"da586645-f35e-4790-a010-fcbbc09d17fe"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel-> + "In[406]:=",ExpressionUUID->"5ee80794-3af3-4d63-a6e8-e0b3a2b14380"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.165"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, {3.994073152359264*^9, 3.994073154823225*^9}}, + CellLabel-> + "In[407]:=",ExpressionUUID->"db036076-38f0-40be-b8b2-6dadceaedd49"], + +Cell[BoxData["1.165`"], "Output", + CellChangeTimes->{ + 3.994082140177301*^9, {3.994082210799852*^9, 3.9940822597980413`*^9}}, + CellLabel-> + "Out[407]=",ExpressionUUID->"227d737d-42bf-4f9d-81e2-1f20c4e74171"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel-> + "In[408]:=",ExpressionUUID->"7ee14980-9873-4cc8-a19a-61a10ddc5bfb"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.055"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, {3.994073158537945*^9, + 3.994073159984886*^9}}, + CellLabel-> + "In[409]:=",ExpressionUUID->"141fb624-b4b3-456e-a1c1-ab4da7d57631"], + +Cell[BoxData["1.055`"], "Output", + CellChangeTimes->{ + 3.9940821401902237`*^9, {3.9940822108158007`*^9, 3.994082259811191*^9}}, + CellLabel-> + "Out[409]=",ExpressionUUID->"751e58f2-ee83-46ea-b676-d22797e24e60"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel-> + "In[410]:=",ExpressionUUID->"aab7b163-711b-4a21-babe-fa98c46477ae"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.575"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.9940731689650297`*^9, + 3.994073170525517*^9}}, + CellLabel-> + "In[411]:=",ExpressionUUID->"79165bba-50b7-4f82-be58-422bb26b7823"], + +Cell[BoxData["0.575`"], "Output", + CellChangeTimes->{ + 3.99408214020331*^9, {3.9940822108320093`*^9, 3.994082259824339*^9}}, + CellLabel-> + "Out[411]=",ExpressionUUID->"8acf4cfd-f6cb-4a2a-a53d-daed26debdf8"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel-> + "In[412]:=",ExpressionUUID->"51863c77-1834-49f7-bd68-3f839f11e1f6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "1.51"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.99407317466329*^9, + 3.9940731756907377`*^9}}, + CellLabel-> + "In[413]:=",ExpressionUUID->"2fca0a10-f9e5-4f2f-954c-d8766ec0b484"], + +Cell[BoxData["1.51`"], "Output", + CellChangeTimes->{ + 3.9940821402169437`*^9, {3.994082210847649*^9, 3.994082259837338*^9}}, + CellLabel-> + "Out[413]=",ExpressionUUID->"d98c218e-06bc-486e-872b-1218ab1ec32e"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel-> + "In[414]:=",ExpressionUUID->"eed6014a-7425-47a7-a95a-b11da733c93d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "0.635"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, {3.99407317843715*^9, 3.994073182537156*^9}}, + CellLabel-> + "In[415]:=",ExpressionUUID->"79010408-3f6a-4fe4-9c6c-ab994ac472e0"], + +Cell[BoxData["0.635`"], "Output", + CellChangeTimes->{ + 3.994082140230339*^9, {3.994082210863504*^9, 3.994082259850523*^9}}, + CellLabel-> + "Out[415]=",ExpressionUUID->"5f10b804-04e2-4e26-a775-45cfa7123f3b"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel-> + "In[416]:=",ExpressionUUID->"992aaabe-b7dc-4836-bfc9-fdcae0db9d41"], + +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[417]:=",ExpressionUUID->"0af209fa-1884-48f4-b14b-10d077942bdb"], + +Cell[BoxData["0.14543451930671605`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.9940821403190203`*^9, {3.994082210903069*^9, + 3.994082259888891*^9}}, + CellLabel-> + "Out[417]=",ExpressionUUID->"8023304c-1af5-4412-afc5-fba41d234636"] +}, 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[418]:=",ExpressionUUID->"f45fdfe9-51b6-4196-b64a-eb8a9acc9d27"], + +Cell[BoxData["7.609769640822119`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9940821403533278`*^9, {3.994082210934519*^9, + 3.994082259917639*^9}}, + CellLabel-> + "Out[418]=",ExpressionUUID->"f7caff3b-610c-4e53-a840-e0b15afa9969"] +}, 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[419]:=",ExpressionUUID->"7d04a896-c948-4917-8f7a-ffddd03ef629"], + +Cell[BoxData[ + RowBox[{"-", "15.030827196449275`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.994082140383691*^9, {3.9940822109679832`*^9, + 3.994082259945158*^9}}, + CellLabel-> + "Out[419]=",ExpressionUUID->"913ff7b2-ed80-4221-ad52-dd8aa985ab81"] +}, 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[420]:=",ExpressionUUID->"ea6582ec-1a42-47fb-bb76-8e5fb6c396db"], + +Cell[BoxData[ + RowBox[{"-", "19.761827924452415`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.9940821404195766`*^9, {3.9940822110021753`*^9, + 3.994082259978429*^9}}, + CellLabel-> + "Out[420]=",ExpressionUUID->"26b6bf5c-1edb-4424-b958-6821ec8c7cd3"] +}, 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[421]:=",ExpressionUUID->"9bc5b782-c107-4109-b23a-b3e64837552f"], + +Cell[BoxData[ + RowBox[{"-", "57.66257775030843`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.9940821404579077`*^9, {3.994082211038884*^9, + 3.994082260011196*^9}}, + CellLabel-> + "Out[421]=",ExpressionUUID->"40e90a17-8ef8-4b96-b7ba-e2dba694b2d8"] +}, 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[422]:=",ExpressionUUID->"39450f1b-2cf2-4958-999d-91af8561db12"], + +Cell[BoxData[ + RowBox[{"-", "150.68948520646092`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.994082140505332*^9, {3.994082211079116*^9, + 3.9940822600491877`*^9}}, + CellLabel-> + "Out[422]=",ExpressionUUID->"32b78379-3bc0-460b-bde3-7931d93da19f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel-> + "In[423]:=",ExpressionUUID->"1f0e4ea8-c6cb-403b-94bc-eda30e02b671"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.99408214052183*^9, {3.994082211090176*^9, + 3.994082260062854*^9}}, + CellLabel-> + "Out[423]=",ExpressionUUID->"6aa8a4e5-8f83-4a49-be6e-0655e4c7bc75"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel-> + "In[424]:=",ExpressionUUID->"30ce4bd6-03e6-49ff-83d1-863c3c4ec8cb"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.994082140531746*^9, {3.9940822111011677`*^9, + 3.994082260073297*^9}}, + CellLabel-> + "Out[424]=",ExpressionUUID->"9aadbb21-462e-41f6-b0c1-ce4137afd226"] +}, 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[425]:=",ExpressionUUID->"da9a4ccc-9d67-4a3d-b4e9-621b007b6c0e"], + +Cell[BoxData["120.33662547388403`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.994082140542282*^9, {3.994082211112996*^9, + 3.994082260084251*^9}}, + CellLabel-> + "Out[425]=",ExpressionUUID->"8c1134bc-353d-4040-b8da-7fc381b23a12"] +}, 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[426]:=",ExpressionUUID->"aa39e519-1f4c-49fa-9d35-4962903c69f1"], + +Cell[BoxData[ + RowBox[{"-", "107.1121642480161`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.994082140552636*^9, {3.994082211122551*^9, + 3.994082260094944*^9}}, + CellLabel-> + "Out[426]=",ExpressionUUID->"534de6e0-7885-43f0-9b39-0070d5fe6167"] +}, 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[427]:=",ExpressionUUID->"3b9d77d0-c1b5-49e6-9f20-fde03d9ceb23"], + +Cell[BoxData["123.55775944746372`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9940821405632*^9, {3.9940822111320972`*^9, + 3.9940822601055107`*^9}}, + CellLabel-> + "Out[427]=",ExpressionUUID->"d2713f39-74da-4501-959c-44a2671aa671"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel-> + "In[428]:=",ExpressionUUID->"097fd25f-632d-45c7-977e-ff3c9da7c387"], + +Cell[BoxData["0.4069661562665162`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.994082140573392*^9, {3.994082211141264*^9, + 3.994082260116184*^9}}, + CellLabel-> + "Out[428]=",ExpressionUUID->"55684397-80b3-4f24-b7de-ee4051d722e5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel-> + "In[429]:=",ExpressionUUID->"bb0e460c-457a-4afd-a63f-da30feb4a44d"], + +Cell[BoxData[ + RowBox[{"-", "0.08563504168524437`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.994082140583559*^9, {3.994082211156444*^9, + 3.994082260127738*^9}}, + CellLabel-> + "Out[429]=",ExpressionUUID->"44dd8802-b63b-4418-9ca8-1e8622c713e3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel-> + "In[430]:=",ExpressionUUID->"a67c15e8-778f-4016-8487-89ce13f18ccb"], + +Cell[BoxData[ + RowBox[{"-", "0.5841673375234483`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.994082140593707*^9, {3.994082211166273*^9, + 3.99408226016045*^9}}, + CellLabel-> + "Out[430]=",ExpressionUUID->"658150e0-2b99-4f38-a450-2bbcdc135c66"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel-> + "In[431]:=",ExpressionUUID->"1ec851a9-a51a-49dd-be7f-7093f84bb8b5"], + +Cell[BoxData["0.7215005296935654`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.9940821428128853`*^9, {3.994082211175336*^9, + 3.994082260189337*^9}}, + CellLabel-> + "Out[431]=",ExpressionUUID->"8061cf5b-fd65-4c42-8623-833dbe9ded13"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel-> + "In[432]:=",ExpressionUUID->"86a3b821-dc91-454e-96e5-b77a853672da"], + +Cell[BoxData["2.315137197466896`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, {3.9940822111841908`*^9, 3.9940822602133617`*^9}}, + CellLabel-> + "Out[432]=",ExpressionUUID->"09de291e-9257-4864-8f95-35b2b8eb84eb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel-> + "In[433]:=",ExpressionUUID->"feab34f0-0487-4946-8ed0-bd275e1baae6"], + +Cell[BoxData["1.4220278650887666`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, {3.994082211193069*^9, 3.99408226021774*^9}}, + CellLabel-> + "Out[433]=",ExpressionUUID->"de70b5d8-2aa3-4dbc-9a73-2722905a51ca"] +}, 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[434]:=",ExpressionUUID->"32523e67-675f-4078-8dc8-5e193aa113d8"], + +Cell[BoxData[ + RowBox[{"-", "34.52117430586003`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, {3.994082211202162*^9, 3.994082260228716*^9}}, + CellLabel-> + "Out[434]=",ExpressionUUID->"932867c6-ed7f-4d49-b34e-495aa5fd0917"] +}, 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[435]:=",ExpressionUUID->"f231e10b-ae07-4340-a418-e7a623f7122d"], + +Cell[BoxData[ + RowBox[{"-", "6.669654351008722`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, {3.9940822112147284`*^9, 3.994082260239593*^9}}, + CellLabel-> + "Out[435]=",ExpressionUUID->"2fcdd375-55b9-4030-9f60-5a053ed51c5c"] +}, 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[436]:=",ExpressionUUID->"da29d4c1-690e-4539-b52c-f3e75a081ddb"], + +Cell[BoxData["85.815451168024`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, {3.994082211224436*^9, 3.994082260250916*^9}}, + CellLabel-> + "Out[436]=",ExpressionUUID->"0c61f6b4-d606-4806-81e0-14b13cbd95ee"] +}, 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[437]:=",ExpressionUUID->"c950e619-5acb-46d4-9e8b-ad7348056105"], + +Cell[BoxData[ + RowBox[{"-", "107.1121642480161`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, {3.994082211233815*^9, 3.994082260261983*^9}}, + CellLabel-> + "Out[437]=",ExpressionUUID->"2490215e-07a0-46ae-b531-c0f83eed0322"] +}, 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[438]:=",ExpressionUUID->"ee700acb-ae80-48f4-941c-88c081a15dd5"], + +Cell[BoxData["116.888105096455`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, {3.99408221124387*^9, 3.994082260273652*^9}}, + CellLabel-> + "Out[438]=",ExpressionUUID->"2f15d55c-26d3-4d59-b33f-5ae7816e70b5"] +}, 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[439]:=",ExpressionUUID->"c3e7124d-e0f5-435b-bb22-3960dd7a97c2"], + +Cell[BoxData["42.180325689118604`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, {3.994082211253778*^9, 3.994082260284829*^9}}, + CellLabel-> + "Out[439]=",ExpressionUUID->"a8ae5637-5cd9-4551-8e6f-1a5029499bfc"] +}, 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[440]:=",ExpressionUUID->"46c7b588-5a55-4e32-95e4-20c36bfed809"], + +Cell[BoxData["727.4038074151157`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, {3.994082211263607*^9, 3.994082260289282*^9}}, + CellLabel-> + "Out[440]=",ExpressionUUID->"3a83ed23-9d71-4672-a7ef-65036f1624d9"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"f1", "=", "0.4778829661"}]], "Input", + CellChangeTimes->{3.9918501413985214`*^9, + 3.994083980470228*^9},ExpressionUUID->"5894836c-9594-0940-b94c-\ 299085c765cc"], Cell[BoxData[""], "Input", @@ -30,9 +4871,10 @@ Cell[BoxData[""], "Input", 8fab318cd4b7"], Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", + RowBox[{"f2", "=", "0.2179097118"}]], "Input", CellChangeTimes->{ - 3.9918501402114105`*^9},ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-\ + 3.9918501402114105`*^9, {3.9940839858246813`*^9, + 3.994084014357471*^9}},ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-\ 092c5143dcf0"], Cell[BoxData[""], "Input", @@ -2818,9 +7660,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.005193"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.015406"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.025113"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.034006"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.041831"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.048382"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.053535"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.057218"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.059449"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.060284"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.059853"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.058305"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.055833"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.052623"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.048884"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.044792"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.040528"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.03623"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.032028"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.02801"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.024253"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.020798"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.017676"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.014891"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.012445"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.010316"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.00849"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.006935"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.005627"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.004534"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.003631"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.994084079302889*^9},ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-\ b938908ab9a4"], Cell[BoxData[ @@ -9134,10 +14039,10 @@ d2cfa007cfcf"], Cell[BoxData["0.11028946354837708`"], "Output",ExpressionUUID->"8f1edf59-aed7-914f-9d19-1949d2a555d6"] }, Open ]] }, -WindowSize->{718.5, 729.75}, -WindowMargins->{{6, Automatic}, {Automatic, 4.5}}, +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->"f83c5602-f0d5-2d47-8a1b-23029521caf0" ] @@ -9152,359 +14057,613 @@ 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, 357, 7, 36, "Input",ExpressionUUID->"35973d63-0d9a-456c-add5-8b5e8390b888"], +Cell[936, 31, 232, 5, 41, "Output",ExpressionUUID->"fd7b1493-9e6f-41b7-9769-1152ffcfc4a8"] }, 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[1205, 41, 250, 5, 36, "Input",ExpressionUUID->"dbdfe1d5-8311-4ac7-a46b-901ff8c30623"], +Cell[1458, 48, 232, 5, 41, "Output",ExpressionUUID->"8ba2d563-8790-468b-b8c3-3f9a1df82e0c"] }, 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[1727, 58, 228, 5, 36, "Input",ExpressionUUID->"6f811e58-bb01-4804-b737-86b35489b8eb"], +Cell[1958, 65, 234, 5, 41, "Output",ExpressionUUID->"f74e5a76-ee94-4575-a24a-25c0b6bcb454"] }, 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[2229, 75, 180, 4, 66, "Input",ExpressionUUID->"88380dba-6b91-457e-b0fb-d0594f76aca1"], +Cell[2412, 81, 232, 5, 75, "Output",ExpressionUUID->"ca1b3b6e-b7f4-4abd-ac1f-c8daabc3be1a"] }, 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[2681, 91, 262, 8, 96, "Input",ExpressionUUID->"8c4dac5f-46bc-43ac-a4df-6dd5378834d0"], +Cell[2946, 101, 237, 5, 75, "Output",ExpressionUUID->"600c1426-0ce0-4a63-b03b-04a6464ab1e8"] }, 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[3220, 111, 136, 3, 66, "Input",ExpressionUUID->"88f58631-98c2-423b-b1fa-dc5fa27002e2"], +Cell[3359, 116, 233, 5, 75, "Output",ExpressionUUID->"f40cbbf8-783b-41f3-b625-825cc593e3af"] }, 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[3629, 126, 281, 7, 66, "Input",ExpressionUUID->"adb39ac5-0d3e-44ae-b7f3-8326c2ac749d"], +Cell[3913, 135, 248, 5, 75, "Output",ExpressionUUID->"d5dd9a41-5632-4a89-9de1-50da2c817b78"] }, 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[4198, 145, 262, 8, 66, "Input",ExpressionUUID->"f149ca1a-9038-4f65-afb4-26e0d1159c8c"], +Cell[4463, 155, 248, 5, 75, "Output",ExpressionUUID->"5768fe08-2ee1-4690-812a-68499791ca0c"] }, 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[4748, 165, 208, 4, 66, "Input",ExpressionUUID->"9605763a-f9d3-4856-a010-2d3a060ace0f"], +Cell[4959, 171, 218, 4, 75, "Output",ExpressionUUID->"5c1f2d4f-7f53-43a7-9dff-bb0d958faab9"] }, 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[5214, 180, 210, 4, 66, "Input",ExpressionUUID->"64836933-25c9-4db5-bd32-fbb116d0de1d"], +Cell[5427, 186, 214, 4, 75, "Output",ExpressionUUID->"d0d2dbc8-8214-41d4-96c4-ff855e3ae0e5"] }, 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[5678, 195, 133, 3, 66, "Input",ExpressionUUID->"419e5362-c0de-4669-abe1-997084eaebaf"], +Cell[5814, 200, 232, 5, 75, "Output",ExpressionUUID->"4f79c2d8-8648-41db-a0a4-bb15cdd2e3e6"] }, 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[6083, 210, 133, 3, 66, "Input",ExpressionUUID->"872d5066-6306-44a9-bec8-fff8eb67aa28"], +Cell[6219, 215, 232, 5, 75, "Output",ExpressionUUID->"02ab10b9-0e8a-4686-956a-68ea031bcac6"] }, 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[6488, 225, 561, 20, 175, "Input",ExpressionUUID->"764cc1f7-0f06-4256-a6a4-65ab16179530"], +Cell[7052, 247, 249, 5, 75, "Output",ExpressionUUID->"5b1dbac8-6f2c-4c49-b1cf-0317fbdabcaf"] }, 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[7338, 257, 561, 20, 175, "Input",ExpressionUUID->"cd0ecf79-d3ef-4ba6-ae0e-e2874c38a9ba"], +Cell[7902, 279, 252, 5, 75, "Output",ExpressionUUID->"a734bf3d-b563-42e1-a950-8ee8dc581e98"] }, 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[8191, 289, 1592, 51, 362, "Input",ExpressionUUID->"8adb6708-1bda-475c-b18a-d1b195458671"], +Cell[9786, 342, 246, 5, 75, "Output",ExpressionUUID->"898f6483-ca77-4442-ad4d-0621443411c6"] }, 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[10069, 352, 1426, 47, 362, "Input",ExpressionUUID->"4d151d2d-a479-4f7c-bf52-c1e63afc2115"], +Cell[11498, 401, 266, 6, 75, "Output",ExpressionUUID->"2771f7c2-c507-44b2-89ea-040da86bb557"] }, 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[11801, 412, 1426, 47, 362, "Input",ExpressionUUID->"63598d16-2d41-4dd4-8df7-aa91cd656229"], +Cell[13230, 461, 271, 6, 75, "Output",ExpressionUUID->"a9b614e6-f510-488a-901a-2ed10f310475"] }, 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[13538, 472, 1592, 51, 362, "Input",ExpressionUUID->"4676fefc-6764-4074-a289-9b1337d33532"], +Cell[15133, 525, 243, 5, 75, "Output",ExpressionUUID->"a5c743bc-8301-4ed4-8c12-7b6dfe30c0b3"] }, 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[15413, 535, 135, 3, 66, "Input",ExpressionUUID->"ef604341-566d-4c22-8f6c-8367d47b5f57"], +Cell[15551, 540, 234, 5, 75, "Output",ExpressionUUID->"6d89071e-ca6f-440c-9fad-a38d638ce33a"] }, 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[15822, 550, 137, 3, 66, "Input",ExpressionUUID->"8cd91362-d232-4fbe-bb52-7dd1d83b495b"], +Cell[15962, 555, 232, 5, 75, "Output",ExpressionUUID->"77a766c5-be71-481f-8dff-ca18941832cf"] }, 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[16231, 565, 138, 3, 66, "Input",ExpressionUUID->"1ad6203e-5d08-404d-ae4a-b663b1daf515"], +Cell[16372, 570, 240, 5, 75, "Output",ExpressionUUID->"8925ecbe-da2e-48e3-894f-4c833e0e3a6d"] }, 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[16649, 580, 223, 5, 66, "Input",ExpressionUUID->"988b6766-dabf-49ce-8199-d8633380940a"], +Cell[16875, 587, 247, 6, 75, "Output",ExpressionUUID->"a35b0dc5-55eb-442a-a8c6-24adb1cbefbe"] }, 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[17159, 598, 138, 3, 66, "Input",ExpressionUUID->"0c60800f-35d6-4020-a221-04ec0cc10606"], +Cell[17300, 603, 236, 5, 75, "Output",ExpressionUUID->"d2587cea-4db4-4d77-8429-030a1690bef6"] }, 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[17573, 613, 328, 6, 66, "Input",ExpressionUUID->"756422f7-7c28-4212-b2f2-e5b506ee19b1"], +Cell[17904, 621, 232, 5, 75, "Output",ExpressionUUID->"d9fa092a-e215-459e-86fd-3d62e849e98a"] }, 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[18173, 631, 301, 6, 66, "Input",ExpressionUUID->"ea33de80-585b-46ef-acec-553c4b7426f6"], +Cell[18477, 639, 235, 5, 75, "Output",ExpressionUUID->"1c808bb8-dbcd-48d5-b662-085176024c1a"] }, 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[18749, 649, 223, 5, 66, "Input",ExpressionUUID->"e223028e-00bb-4320-ab11-a830208e08a4"], +Cell[18975, 656, 229, 5, 75, "Output",ExpressionUUID->"827bb4b0-7f6e-46ff-a874-d640a4729a0b"] }, 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[19241, 666, 354, 11, 96, "Input",ExpressionUUID->"dda54ce1-7959-4a8c-b756-f256ef453607"], +Cell[19598, 679, 251, 5, 75, "Output",ExpressionUUID->"82ed1f04-853e-4622-8f13-755f19d771e3"] }, 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[19886, 689, 354, 11, 96, "Input",ExpressionUUID->"08b03fa2-34b5-4b3a-87b6-3cfe78c5a1af"], +Cell[20243, 702, 267, 6, 75, "Output",ExpressionUUID->"dd3fad28-0ee5-4a6b-ad11-19f2624cb434"] }, 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[20547, 713, 998, 27, 184, "Input",ExpressionUUID->"a5272b68-0b83-4cf7-b097-b53705fbec87"], +Cell[21548, 742, 246, 5, 75, "Output",ExpressionUUID->"10802376-20e8-4767-bcd8-cac6b8547b40"] }, 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[21831, 752, 203, 4, 66, "Input",ExpressionUUID->"b22ad84e-5801-40b8-bd7c-fae45515558f"], +Cell[22037, 758, 234, 5, 75, "Output",ExpressionUUID->"e2ca16d3-e434-427f-a924-ea56631aa1b2"] }, 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[22308, 768, 333, 6, 66, "Input",ExpressionUUID->"b50f0492-e9e8-4f11-8747-e219459d6ef8"], +Cell[22644, 776, 211, 4, 75, "Output",ExpressionUUID->"04a20273-b058-4e34-911f-cb7c8929d4e5"] +}, Open ]], +Cell[22870, 783, 177, 3, 66, "Input",ExpressionUUID->"c6021c6e-7c33-45a8-8c92-05eb0451ec5b"], +Cell[CellGroupData[{ +Cell[23072, 790, 333, 6, 66, "Input",ExpressionUUID->"af4d14a7-37f4-4d8b-8c46-bf1570896c80"], +Cell[23408, 798, 211, 4, 75, "Output",ExpressionUUID->"b20b9287-cab5-445c-91c2-a2cd3ab02906"] +}, Open ]], +Cell[23634, 805, 177, 3, 66, "Input",ExpressionUUID->"7cdd0519-ffcb-4c3f-97f3-953447f63b18"], +Cell[CellGroupData[{ +Cell[23836, 812, 330, 6, 66, "Input",ExpressionUUID->"87786be5-cb34-407a-82ef-18816e301000"], +Cell[24169, 820, 205, 4, 75, "Output",ExpressionUUID->"da586645-f35e-4790-a010-fcbbc09d17fe"] +}, Open ]], +Cell[24389, 827, 177, 3, 66, "Input",ExpressionUUID->"5ee80794-3af3-4d63-a6e8-e0b3a2b14380"], +Cell[CellGroupData[{ +Cell[24591, 834, 356, 6, 66, "Input",ExpressionUUID->"db036076-38f0-40be-b8b2-6dadceaedd49"], +Cell[24950, 842, 209, 4, 75, "Output",ExpressionUUID->"227d737d-42bf-4f9d-81e2-1f20c4e74171"] +}, Open ]], +Cell[25174, 849, 175, 3, 66, "Input",ExpressionUUID->"7ee14980-9873-4cc8-a19a-61a10ddc5bfb"], +Cell[CellGroupData[{ +Cell[25374, 856, 303, 6, 66, "Input",ExpressionUUID->"141fb624-b4b3-456e-a1c1-ab4da7d57631"], +Cell[25680, 864, 211, 4, 75, "Output",ExpressionUUID->"751e58f2-ee83-46ea-b676-d22797e24e60"] +}, Open ]], +Cell[25906, 871, 175, 3, 66, "Input",ExpressionUUID->"aab7b163-711b-4a21-babe-fa98c46477ae"], +Cell[CellGroupData[{ +Cell[26106, 878, 309, 6, 66, "Input",ExpressionUUID->"79165bba-50b7-4f82-be58-422bb26b7823"], +Cell[26418, 886, 208, 4, 75, "Output",ExpressionUUID->"8acf4cfd-f6cb-4a2a-a53d-daed26debdf8"] +}, Open ]], +Cell[26641, 893, 177, 3, 66, "Input",ExpressionUUID->"51863c77-1834-49f7-bd68-3f839f11e1f6"], +Cell[CellGroupData[{ +Cell[26843, 900, 310, 6, 66, "Input",ExpressionUUID->"2fca0a10-f9e5-4f2f-954c-d8766ec0b484"], +Cell[27156, 908, 208, 4, 75, "Output",ExpressionUUID->"d98c218e-06bc-486e-872b-1218ab1ec32e"] +}, Open ]], +Cell[27379, 915, 176, 3, 66, "Input",ExpressionUUID->"eed6014a-7425-47a7-a95a-b11da733c93d"], +Cell[CellGroupData[{ +Cell[27580, 922, 278, 5, 66, "Input",ExpressionUUID->"79010408-3f6a-4fe4-9c6c-ab994ac472e0"], +Cell[27861, 929, 207, 4, 75, "Output",ExpressionUUID->"5f10b804-04e2-4e26-a775-45cfa7123f3b"] +}, Open ]], +Cell[28083, 936, 179, 3, 66, "Input",ExpressionUUID->"992aaabe-b7dc-4836-bfc9-fdcae0db9d41"], +Cell[CellGroupData[{ +Cell[28287, 943, 19813, 486, 5405, "Input",ExpressionUUID->"0af209fa-1884-48f4-b14b-10d077942bdb"], +Cell[48103, 1431, 249, 5, 75, "Output",ExpressionUUID->"8023304c-1af5-4412-afc5-fba41d234636"] }, 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[48389, 1441, 19752, 490, 5343, "Input",ExpressionUUID->"f45fdfe9-51b6-4196-b64a-eb8a9acc9d27"], +Cell[68144, 1933, 247, 5, 75, "Output",ExpressionUUID->"f7caff3b-610c-4e53-a840-e0b15afa9969"] }, 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[68428, 1943, 19752, 484, 5342, "Input",ExpressionUUID->"7d04a896-c948-4917-8f7a-ffddd03ef629"], +Cell[88183, 2429, 265, 6, 75, "Output",ExpressionUUID->"913ff7b2-ed80-4221-ad52-dd8aa985ab81"] }, 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[88485, 2440, 22538, 554, 6074, "Input",ExpressionUUID->"ea6582ec-1a42-47fb-bb76-8e5fb6c396db"], +Cell[111026, 2996, 267, 6, 75, "Output",ExpressionUUID->"26b6bf5c-1edb-4424-b958-6821ec8c7cd3"] }, 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[111330, 3007, 22539, 554, 6074, "Input",ExpressionUUID->"9bc5b782-c107-4109-b23a-b3e64837552f"], +Cell[133872, 3563, 266, 6, 75, "Output",ExpressionUUID->"40e90a17-8ef8-4b96-b7ba-e2dba694b2d8"] }, 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[134175, 3574, 25495, 627, 6806, "Input",ExpressionUUID->"39450f1b-2cf2-4958-999d-91af8561db12"], +Cell[159673, 4203, 265, 6, 75, "Output",ExpressionUUID->"32b78379-3bc0-460b-bde3-7931d93da19f"] }, 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[159975, 4214, 134, 3, 66, "Input",ExpressionUUID->"1f0e4ea8-c6cb-403b-94bc-eda30e02b671"], +Cell[160112, 4219, 229, 5, 75, "Output",ExpressionUUID->"6aa8a4e5-8f83-4a49-be6e-0655e4c7bc75"] }, 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[160378, 4229, 134, 3, 66, "Input",ExpressionUUID->"30ce4bd6-03e6-49ff-83d1-863c3c4ec8cb"], +Cell[160515, 4234, 232, 5, 75, "Output",ExpressionUUID->"9aadbb21-462e-41f6-b0c1-ce4137afd226"] }, 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[160784, 4244, 1148, 40, 246, "Input",ExpressionUUID->"da9a4ccc-9d67-4a3d-b4e9-621b007b6c0e"], +Cell[161935, 4286, 246, 5, 75, "Output",ExpressionUUID->"8c1134bc-353d-4040-b8da-7fc381b23a12"] }, 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[162218, 4296, 1045, 36, 246, "Input",ExpressionUUID->"aa39e519-1f4c-49fa-9d35-4962903c69f1"], +Cell[163266, 4334, 262, 6, 75, "Output",ExpressionUUID->"534de6e0-7885-43f0-9b39-0070d5fe6167"] }, 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[163565, 4345, 1148, 40, 246, "Input",ExpressionUUID->"3b9d77d0-c1b5-49e6-9f20-fde03d9ceb23"], +Cell[164716, 4387, 250, 5, 75, "Output",ExpressionUUID->"d2713f39-74da-4501-959c-44a2671aa671"] }, 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[165003, 4397, 112, 2, 66, "Input",ExpressionUUID->"097fd25f-632d-45c7-977e-ff3c9da7c387"], +Cell[165118, 4401, 248, 5, 75, "Output",ExpressionUUID->"55684397-80b3-4f24-b7de-ee4051d722e5"] }, 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[165403, 4411, 112, 2, 66, "Input",ExpressionUUID->"bb0e460c-457a-4afd-a63f-da30feb4a44d"], +Cell[165518, 4415, 266, 6, 75, "Output",ExpressionUUID->"44dd8802-b63b-4418-9ca8-1e8622c713e3"] }, 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[165821, 4426, 112, 2, 66, "Input",ExpressionUUID->"a67c15e8-778f-4016-8487-89ce13f18ccb"], +Cell[165936, 4430, 262, 6, 75, "Output",ExpressionUUID->"658150e0-2b99-4f38-a450-2bbcdc135c66"] }, 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[166235, 4441, 112, 2, 66, "Input",ExpressionUUID->"1ec851a9-a51a-49dd-be7f-7093f84bb8b5"], +Cell[166350, 4445, 248, 5, 75, "Output",ExpressionUUID->"8061cf5b-fd65-4c42-8623-833dbe9ded13"] }, 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[166635, 4455, 111, 2, 66, "Input",ExpressionUUID->"86a3b821-dc91-454e-96e5-b77a853672da"], +Cell[166749, 4459, 225, 4, 75, "Output",ExpressionUUID->"09de291e-9257-4864-8f95-35b2b8eb84eb"] }, 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[167011, 4468, 111, 2, 66, "Input",ExpressionUUID->"feab34f0-0487-4946-8ed0-bd275e1baae6"], +Cell[167125, 4472, 221, 4, 75, "Output",ExpressionUUID->"de70b5d8-2aa3-4dbc-9a73-2722905a51ca"] }, 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[167383, 4481, 501, 17, 125, "Input",ExpressionUUID->"32523e67-675f-4078-8dc8-5e193aa113d8"], +Cell[167887, 4500, 238, 5, 75, "Output",ExpressionUUID->"932867c6-ed7f-4d49-b34e-495aa5fd0917"] }, 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[168162, 4510, 501, 17, 125, "Input",ExpressionUUID->"f231e10b-ae07-4340-a418-e7a623f7122d"], +Cell[168666, 4529, 238, 5, 75, "Output",ExpressionUUID->"2fcdd375-55b9-4030-9f60-5a053ed51c5c"] }, 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[168941, 4539, 1792, 61, 420, "Input",ExpressionUUID->"da29d4c1-690e-4539-b52c-f3e75a081ddb"], +Cell[170736, 4602, 219, 4, 75, "Output",ExpressionUUID->"0c61f6b4-d606-4806-81e0-14b13cbd95ee"] }, 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[170992, 4611, 1105, 37, 299, "Input",ExpressionUUID->"c950e619-5acb-46d4-9e8b-ad7348056105"], +Cell[172100, 4650, 238, 5, 75, "Output",ExpressionUUID->"2490215e-07a0-46ae-b531-c0f83eed0322"] }, 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[172375, 4660, 1822, 62, 420, "Input",ExpressionUUID->"ee700acb-ae80-48f4-941c-88c081a15dd5"], +Cell[174200, 4724, 217, 4, 75, "Output",ExpressionUUID->"2f15d55c-26d3-4d59-b33f-5ae7816e70b5"] }, 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[174454, 4733, 1635, 54, 368, "Input",ExpressionUUID->"c3e7124d-e0f5-435b-bb22-3960dd7a97c2"], +Cell[176092, 4789, 222, 4, 75, "Output",ExpressionUUID->"a8ae5637-5cd9-4551-8e6f-1a5029499bfc"] }, 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[176351, 4798, 1635, 54, 208, "Input",ExpressionUUID->"46c7b588-5a55-4e32-95e4-20c36bfed809"], +Cell[177989, 4854, 219, 4, 41, "Output",ExpressionUUID->"3a83ed23-9d71-4672-a7ef-65036f1624d9"] +}, Open ]], +Cell[178223, 4861, 187, 4, 36, "Input",ExpressionUUID->"5894836c-9594-0940-b94c-299085c765cc"], +Cell[178413, 4867, 154, 3, 36, "Input",ExpressionUUID->"5965eb10-01f8-5545-9b6f-8fab318cd4b7"], +Cell[178570, 4872, 217, 5, 36, "Input",ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-092c5143dcf0"], +Cell[178790, 4879, 154, 3, 36, "Input",ExpressionUUID->"6e7c45d7-0298-ce41-ba97-a3c857e6ae57"], +Cell[CellGroupData[{ +Cell[178969, 4886, 1301, 43, 174, "Input",ExpressionUUID->"38bf39c5-cae1-4148-b0af-e362ef4ee2e3"], +Cell[180273, 4931, 178, 3, 41, "Output",ExpressionUUID->"d7904bcf-fc55-b844-b4d2-059d830f1317"] }, 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"] -}, Open ]], -Cell[371689, 8793, 209, 5, 70, "Input",ExpressionUUID->"54d9c986-d109-3d4c-9ee8-76427bb63659"], -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[180488, 4939, 908, 31, 73, "Input",ExpressionUUID->"f2e6289f-a8bc-6d44-a856-301cf9f22a61"], +Cell[181399, 4972, 177, 3, 41, "Output",ExpressionUUID->"7c075ec9-a97b-ab47-b241-cc392b585c5e"] }, 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[181613, 4980, 889, 30, 73, "Input",ExpressionUUID->"cdf84d2f-1e96-4c43-9286-fda42549e334"], +Cell[182505, 5012, 178, 3, 41, "Output",ExpressionUUID->"ddda4800-8c90-d44b-acfd-6ccb39eee852"] }, 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[182720, 5020, 558, 19, 66, "Input",ExpressionUUID->"a7d184c1-375c-094d-82ba-c6d8cfdfa4a1"], +Cell[183281, 5041, 172, 3, 41, "Output",ExpressionUUID->"046d7438-d73f-9343-9ae7-b01adfd6d8f5"] }, 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[183490, 5049, 651, 22, 66, "Input",ExpressionUUID->"cc7d9e01-d61b-5a43-abcd-9714383fe0fe"], +Cell[184144, 5073, 167, 3, 41, "Output",ExpressionUUID->"d2928e96-58be-3a4f-8bee-5b9e193c2ac6"] }, 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[184348, 5081, 170, 5, 71, "Input",ExpressionUUID->"1204358e-ac52-0f4c-bf22-945336ddda4e"], +Cell[184521, 5088, 172, 3, 41, "Output",ExpressionUUID->"bf655ed3-7200-2249-b687-593ee351a598"] +}, Open ]], +Cell[CellGroupData[{ +Cell[184730, 5096, 170, 5, 69, "Input",ExpressionUUID->"66c9dc01-c171-8f4f-b59a-2829d67b4589"], +Cell[184903, 5103, 173, 3, 41, "Output",ExpressionUUID->"56f5f06b-52e2-6941-b28e-41b961cb42e9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185113, 5111, 181, 5, 55, "Input",ExpressionUUID->"09b0eefd-6263-8a44-8015-82d02046019c"], +Cell[185297, 5118, 171, 3, 41, "Output",ExpressionUUID->"8c210f75-69a5-5340-94a4-65e97302ca45"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185505, 5126, 181, 5, 55, "Input",ExpressionUUID->"c1911d35-4f2b-d042-9073-088b56a17885"], +Cell[185689, 5133, 172, 3, 41, "Output",ExpressionUUID->"bad7f5b6-1bd3-6b4b-87e4-44aee3a120fc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185898, 5141, 6055, 185, 431, "Input",ExpressionUUID->"6fd22be4-12e4-0d4e-b7f7-ab28adc2524f"], +Cell[191956, 5328, 174, 3, 41, "Output",ExpressionUUID->"ffdf2eb3-13bd-724f-a87b-fb40655ae9c4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192167, 5336, 368, 9, 53, "Input",ExpressionUUID->"788e89bc-20c8-8541-af10-81d8741a0e5b"], +Cell[192538, 5347, 172, 3, 41, "Output",ExpressionUUID->"609425d6-cf9c-7a45-bc21-030ca3aa1290"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192747, 5355, 6122, 187, 431, "Input",ExpressionUUID->"c19137b0-217d-0844-9acb-cc5878ab26fc"], +Cell[198872, 5544, 175, 3, 41, "Output",ExpressionUUID->"b20cbe94-36a3-8548-a61e-959a25814c62"] +}, Open ]], +Cell[CellGroupData[{ +Cell[199084, 5552, 368, 9, 53, "Input",ExpressionUUID->"7c3bd40f-ac17-c54f-a888-ac3b4c84d9d9"], +Cell[199455, 5563, 172, 3, 41, "Output",ExpressionUUID->"4fc2e2c1-457d-3d4a-a5b7-180877c6f370"] +}, Open ]], +Cell[CellGroupData[{ +Cell[199664, 5571, 2663, 88, 215, "Input",ExpressionUUID->"bdca581e-5d9f-434b-8ec4-903e0edf0216"], +Cell[202330, 5661, 171, 3, 41, "Output",ExpressionUUID->"08fcefa1-a87b-bf4b-998d-0c9017752dd4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[202538, 5669, 2603, 85, 215, "Input",ExpressionUUID->"1cec8cc2-764e-3d42-a680-d2ec92565257"], +Cell[205144, 5756, 173, 3, 41, "Output",ExpressionUUID->"5678b502-e98a-5d4b-9c03-fe98b2cc6f78"] +}, Open ]], +Cell[CellGroupData[{ +Cell[205354, 5764, 3712, 118, 316, "Input",ExpressionUUID->"800aba4f-a7e9-864a-a38b-f618fe3c89be"], +Cell[209069, 5884, 174, 3, 41, "Output",ExpressionUUID->"d74c1470-6eae-4841-b978-069a86bca67d"] +}, Open ]], +Cell[209258, 5890, 138, 3, 36, "Input",ExpressionUUID->"8111b6bb-cdcb-ad40-9440-412e77bed40d"], +Cell[CellGroupData[{ +Cell[209421, 5897, 2054, 59, 116, "Input",ExpressionUUID->"fc88a60e-e348-d344-96c4-1f4f66f53217"], +Cell[211478, 5958, 559, 12, 71, "Message",ExpressionUUID->"0833bd34-3252-a046-9aa3-94c1d6e5cfe9"], +Cell[212040, 5972, 560, 12, 71, "Message",ExpressionUUID->"f24a3618-ee43-704a-86fe-493dbed35e8d"], +Cell[212603, 5986, 565, 12, 71, "Message",ExpressionUUID->"86271901-aa3c-5542-ab18-fc06d3fd3f32"], +Cell[213171, 6000, 456, 10, 26, "Message",ExpressionUUID->"ce9bd686-d768-5440-b47e-1ee2b5aa0183"], +Cell[213630, 6012, 170, 3, 41, "Output",ExpressionUUID->"a6ab28bd-0b4e-3443-93b3-734d7cf3d8a2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[213837, 6020, 2054, 59, 116, "Input",ExpressionUUID->"dca13eb7-7f94-3e45-81a8-b62dad3009d2"], +Cell[215894, 6081, 559, 12, 71, "Message",ExpressionUUID->"44f2ed65-5109-0141-bef6-eebaeda3d61d"], +Cell[216456, 6095, 559, 12, 71, "Message",ExpressionUUID->"ba49f32e-1ff7-b147-9f42-9c90ccc55447"], +Cell[217018, 6109, 565, 12, 71, "Message",ExpressionUUID->"fa95acf1-55b2-c042-9a9f-32e1ebea5c1e"], +Cell[217586, 6123, 458, 10, 26, "Message",ExpressionUUID->"3c3d4134-2c7d-0949-9759-036664c530e3"], +Cell[218047, 6135, 170, 3, 41, "Output",ExpressionUUID->"742dfe41-8369-8942-b522-c174c845c383"] +}, Open ]], +Cell[CellGroupData[{ +Cell[218254, 6143, 1938, 53, 86, "Input",ExpressionUUID->"46451e4d-f5ef-b246-91c6-4265c9fafb97"], +Cell[220195, 6198, 20196, 379, 295, "Output",ExpressionUUID->"0e6ef056-d4e3-ac4d-9f2a-df071f8decb1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[240428, 6582, 2094, 60, 116, "Input",ExpressionUUID->"06bd0169-a5a6-404c-935d-e1a61565f71e"], +Cell[242525, 6644, 503, 11, 48, "Message",ExpressionUUID->"8a980d1e-9dd5-194d-803a-ac5d63bbe693"], +Cell[243031, 6657, 505, 11, 48, "Message",ExpressionUUID->"637082a9-fe74-7345-8895-dee77343ee6f"], +Cell[243539, 6670, 506, 11, 48, "Message",ExpressionUUID->"b2e7262c-7c6d-d94d-a545-ea4b363e579a"], +Cell[244048, 6683, 455, 10, 26, "Message",ExpressionUUID->"40c56d25-ed26-3045-9759-ae8eef5eb7cb"], +Cell[244506, 6695, 55770, 961, 290, "Output",ExpressionUUID->"f96372ea-8786-a94e-801e-a3ab56caf675"] +}, Open ]], +Cell[300291, 7659, 2453, 69, 140, "Input",ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-b938908ab9a4"], +Cell[302747, 7730, 209, 5, 36, "Input",ExpressionUUID->"6b0777bb-40fd-b54e-aa03-b6e82cb2e939"], +Cell[CellGroupData[{ +Cell[302981, 7739, 217, 7, 61, "Input",ExpressionUUID->"1ec1e156-ca0f-9240-857c-ac86e3a0e3fd"], +Cell[303201, 7748, 173, 3, 41, "Output",ExpressionUUID->"1ffcb79a-13e7-7549-b41c-23408ffbacea"] +}, Open ]], +Cell[CellGroupData[{ +Cell[303411, 7756, 1814, 53, 116, "Input",ExpressionUUID->"2a22eb8b-38c3-1f4b-a455-da901e49f6f1"], +Cell[305228, 7811, 506, 11, 48, "Message",ExpressionUUID->"08a2126f-e71c-b94d-8844-15e292a8f7d1"], +Cell[305737, 7824, 508, 11, 48, "Message",ExpressionUUID->"1acf7f10-7675-ea41-b478-94e928ef3377"], +Cell[306248, 7837, 509, 11, 48, "Message",ExpressionUUID->"67cdfb4c-9282-934a-b3c5-526027acebf5"], +Cell[306760, 7850, 458, 10, 26, "Message",ExpressionUUID->"760e7203-a507-b249-aaf5-4906557faed2"], +Cell[307221, 7862, 24818, 454, 290, "Output",ExpressionUUID->"f25b03e8-0c50-2442-86f8-c19dc28b43cf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[332076, 8321, 1616, 48, 86, "Input",ExpressionUUID->"6e7e1815-2cc6-b24e-a02d-18991b1a751b"], +Cell[333695, 8371, 582, 12, 71, "Message",ExpressionUUID->"b6e3034b-dd99-1142-8723-42090efc2980"], +Cell[334280, 8385, 588, 12, 109, "Message",ExpressionUUID->"54e48413-1d3a-b844-8316-bcdf9191e67e"], +Cell[334871, 8399, 590, 12, 109, "Message",ExpressionUUID->"44ccd47c-7323-4a4e-a9d6-7424d8b3399f"], +Cell[335464, 8413, 458, 10, 109, "Message",ExpressionUUID->"4c2e41d3-b5d7-3f4c-ba94-0408b6a0e82d"], +Cell[335925, 8425, 171, 3, 109, "Output",ExpressionUUID->"c1bfc082-c70f-3140-a59c-c21547622f5b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[336133, 8433, 2251, 64, 109, "Input",ExpressionUUID->"0b10f52e-4583-2a4b-993d-96e59dd43e6a"], +Cell[338387, 8499, 557, 12, 109, "Message",ExpressionUUID->"0e308aaf-a4b5-d740-9882-5c338a63d7a7"], +Cell[338947, 8513, 560, 12, 109, "Message",ExpressionUUID->"5e35cc91-e340-c74b-b6dd-42063e8a308b"], +Cell[339510, 8527, 565, 12, 109, "Message",ExpressionUUID->"c3f5c3a9-ece1-e648-aa3a-3f66f2873ea7"], +Cell[340078, 8541, 458, 10, 109, "Message",ExpressionUUID->"41503ce3-67a0-8a4a-b10a-c3db53fd260d"], +Cell[340539, 8553, 172, 3, 109, "Output",ExpressionUUID->"d9451200-e1de-5d43-8d07-ddcfc9babc52"] +}, Open ]], +Cell[CellGroupData[{ +Cell[340748, 8561, 2218, 64, 109, "Input",ExpressionUUID->"a58948c9-6d3d-e847-a269-d2e0cc5d1484"], +Cell[342969, 8627, 559, 12, 109, "Message",ExpressionUUID->"2247cd70-3ffa-2245-971e-6c6a2bd1ecfc"], +Cell[343531, 8641, 562, 12, 109, "Message",ExpressionUUID->"d9ae7d5b-4e89-a74f-be53-15700ab2593c"], +Cell[344096, 8655, 563, 12, 109, "Message",ExpressionUUID->"821c7ce3-36cc-9549-9881-1225eb1561cf"], +Cell[344662, 8669, 458, 10, 109, "Message",ExpressionUUID->"52af17f2-aff2-c34f-85c8-700b3d2f5f39"], +Cell[345123, 8681, 170, 3, 109, "Output",ExpressionUUID->"9a4afbd4-21df-4744-836a-2ed068742fdd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[345330, 8689, 2221, 64, 109, "Input",ExpressionUUID->"c817b2d1-7deb-5a45-9938-ca10003188eb"], +Cell[347554, 8755, 559, 12, 109, "Message",ExpressionUUID->"3701f96f-691c-9040-a8a1-ff3958638338"], +Cell[348116, 8769, 562, 12, 109, "Message",ExpressionUUID->"9e260603-f97f-ac44-8251-869444fbcc24"], +Cell[348681, 8783, 563, 12, 109, "Message",ExpressionUUID->"f34d60ab-6a89-fd45-89b6-5f3b4b17dd22"], +Cell[349247, 8797, 458, 10, 109, "Message",ExpressionUUID->"27fa1c02-4896-1547-8cb5-b1b86182517f"], +Cell[349708, 8809, 171, 3, 109, "Output",ExpressionUUID->"7fdd69fb-d48e-e24a-a681-093b62cad9ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[349916, 8817, 213, 6, 109, "Input",ExpressionUUID->"350334c7-7c47-c24c-8adc-781173809e57"], +Cell[350132, 8825, 173, 3, 109, "Output",ExpressionUUID->"20848a4e-e706-ec41-8982-5a7089f6420d"] +}, Open ]], +Cell[350320, 8831, 245, 5, 109, "Input",ExpressionUUID->"597921e5-69d3-564d-a8fa-092e912c15e0"], +Cell[CellGroupData[{ +Cell[350590, 8840, 558, 19, 109, "Input",ExpressionUUID->"d8a22216-586e-3641-8d6a-b19164cbbef2"], +Cell[351151, 8861, 170, 3, 109, "Output",ExpressionUUID->"c70c9f2e-d3ac-284f-9a22-d110345400ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[351358, 8869, 170, 5, 109, "Input",ExpressionUUID->"fdbad1ee-10c7-0843-8319-ad9a3350b059"], +Cell[351531, 8876, 173, 3, 109, "Output",ExpressionUUID->"dc218355-20da-7845-8c8d-e506361cd90c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[351741, 8884, 181, 5, 109, "Input",ExpressionUUID->"1e4255c3-6733-664e-86c8-98281eb7b3d1"], +Cell[351925, 8891, 171, 3, 109, "Output",ExpressionUUID->"b98e2d62-3142-7d4b-8175-9f6bcc8f676f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[352133, 8899, 6055, 185, 109, "Input",ExpressionUUID->"70c538a1-1fdf-1447-919a-237a7f13ec4c"], +Cell[358191, 9086, 172, 3, 109, "Output",ExpressionUUID->"e2235b96-63a9-b14d-b5d1-d13c73c5b35b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[358400, 9094, 368, 9, 109, "Input",ExpressionUUID->"309f305e-3fbc-e84e-99d9-1087d7a09460"], +Cell[358771, 9105, 172, 3, 109, "Output",ExpressionUUID->"776526ba-6ae1-2140-8428-6e0766592ce2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[358980, 9113, 6122, 187, 109, "Input",ExpressionUUID->"e745b4b9-6adc-da40-98cf-d19095e176b2"], +Cell[365105, 9302, 173, 3, 109, "Output",ExpressionUUID->"4456bf68-737e-1947-bc9d-24db2abd4b39"] +}, Open ]], +Cell[CellGroupData[{ +Cell[365315, 9310, 368, 9, 109, "Input",ExpressionUUID->"9d206cd8-8a5b-4046-b84a-e6b4fe810128"], +Cell[365686, 9321, 170, 3, 109, "Output",ExpressionUUID->"04031349-1bc1-2c40-8d25-2e90a8f4b902"] +}, Open ]], +Cell[CellGroupData[{ +Cell[365893, 9329, 2663, 88, 109, "Input",ExpressionUUID->"2ec72619-a762-004d-a8c1-9773b798bf0e"], +Cell[368559, 9419, 171, 3, 109, "Output",ExpressionUUID->"ab924ecc-12c3-f448-be6e-b37b3bf2a7ea"] +}, Open ]], +Cell[CellGroupData[{ +Cell[368767, 9427, 2603, 85, 109, "Input",ExpressionUUID->"499f8153-6e36-8043-876b-5343c0af179e"], +Cell[371373, 9514, 173, 3, 109, "Output",ExpressionUUID->"edd230b8-d34a-9d46-9fb1-cbff36fb79ff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[371583, 9522, 3712, 118, 109, "Input",ExpressionUUID->"33c0834c-5a76-7640-a18c-d9704d756896"], +Cell[375298, 9642, 174, 3, 109, "Output",ExpressionUUID->"7ff053b6-f84b-bf44-8265-ecf6593e97c0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[375509, 9650, 2049, 58, 109, "Input",ExpressionUUID->"77c444cf-c5b4-4b4b-9808-ff76b28fd32d"], +Cell[377561, 9710, 579, 12, 109, "Message",ExpressionUUID->"ba9cccb8-fdfa-1d4c-9151-4c0bb8135009"], +Cell[378143, 9724, 582, 12, 109, "Message",ExpressionUUID->"dda5376f-614c-1846-a3e1-09857b4bcae6"], +Cell[378728, 9738, 584, 12, 109, "Message",ExpressionUUID->"7a2a8f8b-abfe-9646-a4d6-23b88b4059ef"], +Cell[379315, 9752, 458, 10, 109, "Message",ExpressionUUID->"61579f38-09d5-bc4c-9509-0aaf4718ceff"], +Cell[379776, 9764, 172, 3, 109, "Output",ExpressionUUID->"87b4581c-42ec-3248-906f-f100fdcc36d4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[379985, 9772, 2054, 59, 109, "Input",ExpressionUUID->"baacd3f7-96e4-2949-b9f9-9afb90e551d9"], +Cell[382042, 9833, 577, 12, 109, "Message",ExpressionUUID->"19016d8b-0ad0-804c-b867-298523611be5"], +Cell[382622, 9847, 580, 12, 109, "Message",ExpressionUUID->"b91abb11-65b8-3b43-a495-4cb1457edd27"], +Cell[383205, 9861, 583, 12, 109, "Message",ExpressionUUID->"120f2ab5-c971-b748-a471-5d053961b4f2"], +Cell[383791, 9875, 456, 10, 109, "Message",ExpressionUUID->"e219a46d-9b55-8b4b-a17f-972d0b60293c"], +Cell[384250, 9887, 171, 3, 109, "Output",ExpressionUUID->"15e7db41-f53f-7c4b-886f-7ba04bf10a25"] +}, Open ]], +Cell[CellGroupData[{ +Cell[384458, 9895, 2030, 55, 109, "Input",ExpressionUUID->"ea08a5a9-d446-9147-ba82-e3924f732df2"], +Cell[386491, 9952, 20493, 384, 109, "Output",ExpressionUUID->"33ceb84f-c9c7-504c-ae94-1b1d69b769af"] +}, Open ]], +Cell[CellGroupData[{ +Cell[407021, 10341, 2120, 60, 109, "Input",ExpressionUUID->"42ddbf41-0bd8-b749-bead-56c89a9b7467"], +Cell[409144, 10403, 501, 11, 109, "Message",ExpressionUUID->"b616cb85-0c12-9449-8e54-a070530c7874"], +Cell[409648, 10416, 504, 11, 109, "Message",ExpressionUUID->"d17cbbe2-194b-ec4c-bb30-d2fcc4c1a181"], +Cell[410155, 10429, 508, 11, 109, "Message",ExpressionUUID->"6c23e3dc-9bc5-a441-99df-2985793b0df8"], +Cell[410666, 10442, 456, 10, 109, "Message",ExpressionUUID->"de9af779-0821-a544-b1ce-6c66cf00e4d6"], +Cell[411125, 10454, 31462, 562, 109, "Output",ExpressionUUID->"d2a47969-eb62-c243-9b06-713ae9ea0a7d"] +}, Open ]], +Cell[442602, 11019, 209, 5, 109, "Input",ExpressionUUID->"6883477e-2a54-0a45-979a-ae60c73e9e82"], +Cell[CellGroupData[{ +Cell[442836, 11028, 1616, 48, 109, "Input",ExpressionUUID->"93c0bac4-7a17-8748-9b2f-588171dbd56e"], +Cell[444455, 11078, 596, 12, 109, "Message",ExpressionUUID->"ca0dab71-62e4-1c4e-b2d5-91f300055932"], +Cell[445054, 11092, 602, 12, 109, "Message",ExpressionUUID->"aa43f3fc-5ec5-414d-bbd9-cf1b638f0a27"], +Cell[445659, 11106, 605, 12, 109, "Message",ExpressionUUID->"eaa52aca-1e19-e84e-9825-10ec4ac94baf"], +Cell[446267, 11120, 458, 10, 109, "Message",ExpressionUUID->"40ddf79f-d82f-b94d-9b78-050a48c24dda"], +Cell[446728, 11132, 171, 3, 109, "Output",ExpressionUUID->"f752c3f0-fe06-284b-bff8-a09adf8994cc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[446936, 11140, 2251, 64, 109, "Input",ExpressionUUID->"fcc64ab7-eee0-e44f-9b2d-2a98ba29b602"], +Cell[449190, 11206, 577, 12, 109, "Message",ExpressionUUID->"03b49875-7e1c-734a-9395-591c7a6a0147"], +Cell[449770, 11220, 580, 12, 109, "Message",ExpressionUUID->"bbc1c804-e094-2b49-bceb-c837038552fa"], +Cell[450353, 11234, 586, 12, 109, "Message",ExpressionUUID->"340351a4-e10e-7141-b933-75e80a563962"], +Cell[450942, 11248, 458, 10, 109, "Message",ExpressionUUID->"45363ba5-7011-ce4a-bbb2-25b54117d598"], +Cell[451403, 11260, 173, 3, 109, "Output",ExpressionUUID->"a7117811-d866-a74a-b451-2e5611fcbe98"] +}, Open ]], +Cell[CellGroupData[{ +Cell[451613, 11268, 2219, 64, 109, "Input",ExpressionUUID->"edfdd675-c60b-304e-9e16-68452b971319"], +Cell[453835, 11334, 579, 12, 109, "Message",ExpressionUUID->"d229ea6a-26e4-d448-90bf-3044f07066eb"], +Cell[454417, 11348, 580, 12, 109, "Message",ExpressionUUID->"7911ebc5-127d-5841-a246-fcff3e2e3d7f"], +Cell[455000, 11362, 586, 12, 109, "Message",ExpressionUUID->"62b490bd-3e68-5b49-8d2e-1bbb1e520215"], +Cell[455589, 11376, 458, 10, 109, "Message",ExpressionUUID->"2c340204-da84-dd4d-abb8-8821cc152f8d"], +Cell[456050, 11388, 171, 3, 109, "Output",ExpressionUUID->"88b2df22-3f75-ff45-90a9-fda3ac3bb827"] +}, Open ]], +Cell[CellGroupData[{ +Cell[456258, 11396, 2219, 64, 109, "Input",ExpressionUUID->"d0469d46-2e74-494a-be85-b41cb2f3fa92"], +Cell[458480, 11462, 576, 12, 109, "Message",ExpressionUUID->"8c45e08e-3e6d-d74b-a260-2b9be908c427"], +Cell[459059, 11476, 580, 12, 109, "Message",ExpressionUUID->"05cc4b97-7653-f04b-8664-f56b3128e201"], +Cell[459642, 11490, 584, 12, 109, "Message",ExpressionUUID->"880f1d89-ca48-ef4c-8955-16a02dd06624"], +Cell[460229, 11504, 458, 10, 109, "Message",ExpressionUUID->"fbbc91b1-3b40-a04c-8f78-5ca75ca88c9b"], +Cell[460690, 11516, 173, 3, 109, "Output",ExpressionUUID->"ea027f70-f222-b745-8c2e-f4a8bd2e0421"] +}, Open ]], +Cell[CellGroupData[{ +Cell[460900, 11524, 212, 6, 109, "Input",ExpressionUUID->"58b5e243-0972-1946-bd17-aca0f3e8a35b"], +Cell[461115, 11532, 172, 3, 109, "Output",ExpressionUUID->"3682abd7-ed62-9948-84cf-8fffa8ddbfe7"] +}, Open ]], +Cell[461302, 11538, 244, 5, 109, "Input",ExpressionUUID->"8ae59c8e-a0a1-f646-a3f5-a3711ba632a4"], +Cell[CellGroupData[{ +Cell[461571, 11547, 558, 19, 109, "Input",ExpressionUUID->"403fd1b3-6929-134c-834a-14f2acd2fccb"], +Cell[462132, 11568, 171, 3, 109, "Output",ExpressionUUID->"9fbf2f5c-e66a-8c48-92c5-cb97211e83a1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[462340, 11576, 170, 5, 109, "Input",ExpressionUUID->"434ec2be-ef30-1d48-bf44-e1e8b179c2e0"], +Cell[462513, 11583, 171, 3, 109, "Output",ExpressionUUID->"7a911217-f777-234b-9e3e-66fa91b95a93"] +}, Open ]], +Cell[CellGroupData[{ +Cell[462721, 11591, 181, 5, 109, "Input",ExpressionUUID->"defdc4af-a758-2c46-b8da-ac4403e5ffd4"], +Cell[462905, 11598, 173, 3, 109, "Output",ExpressionUUID->"71512215-c060-b042-87dd-cf63c2fdbe79"] +}, Open ]], +Cell[CellGroupData[{ +Cell[463115, 11606, 6055, 185, 109, "Input",ExpressionUUID->"7643457c-ba0b-b641-aa35-59c61447beaf"], +Cell[469173, 11793, 173, 3, 109, "Output",ExpressionUUID->"83eb5a5c-2221-9048-9616-76c841caa7ff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[469383, 11801, 368, 9, 109, "Input",ExpressionUUID->"88a32c79-3b56-5047-96b0-6fadcea3787e"], +Cell[469754, 11812, 172, 3, 109, "Output",ExpressionUUID->"3469ea64-5888-e347-a592-fe58acf45252"] +}, Open ]], +Cell[CellGroupData[{ +Cell[469963, 11820, 6122, 187, 109, "Input",ExpressionUUID->"12b95c40-ca91-7148-a053-e8c97b54e7b6"], +Cell[476088, 12009, 173, 3, 109, "Output",ExpressionUUID->"6078ae64-e041-ef46-9c98-aeb384a7565b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[476298, 12017, 368, 9, 109, "Input",ExpressionUUID->"4e259183-4a48-7f41-8fc6-1aa60d807e18"], +Cell[476669, 12028, 172, 3, 109, "Output",ExpressionUUID->"ed53339e-8a54-b740-a712-127e0aa48364"] +}, Open ]], +Cell[CellGroupData[{ +Cell[476878, 12036, 2663, 88, 109, "Input",ExpressionUUID->"73b06553-f9e2-3447-85e9-8a163aa2ec21"], +Cell[479544, 12126, 173, 3, 109, "Output",ExpressionUUID->"0881e898-a895-4f44-9932-c9b57f23fb23"] +}, Open ]], +Cell[CellGroupData[{ +Cell[479754, 12134, 2603, 85, 109, "Input",ExpressionUUID->"64658d71-e48f-7c4d-bfd6-30344127c7bf"], +Cell[482360, 12221, 171, 3, 109, "Output",ExpressionUUID->"6f8be6ff-3439-7547-b2e5-a7f15df03852"] +}, Open ]], +Cell[CellGroupData[{ +Cell[482568, 12229, 3712, 118, 109, "Input",ExpressionUUID->"02b10812-8656-6e43-99ab-3ff059fd6dae"], +Cell[486283, 12349, 174, 3, 109, "Output",ExpressionUUID->"5f1268db-50d9-294a-839d-2dc73b3483c5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[486494, 12357, 2054, 59, 109, "Input",ExpressionUUID->"ba508068-6b78-254c-87d6-cf1adc0753dd"], +Cell[488551, 12418, 574, 12, 109, "Message",ExpressionUUID->"fea97571-51b6-bc4d-8922-e67cbea226be"], +Cell[489128, 12432, 580, 12, 109, "Message",ExpressionUUID->"f9381c1d-d837-a646-bb62-f69cb564b78b"], +Cell[489711, 12446, 580, 12, 109, "Message",ExpressionUUID->"2dd3f3b2-ca3e-6c42-abc0-5cf7523a6a65"], +Cell[490294, 12460, 456, 10, 109, "Message",ExpressionUUID->"5a727290-5b6b-a347-9739-3df9958ec415"], +Cell[490753, 12472, 172, 3, 109, "Output",ExpressionUUID->"44426372-aa84-bf4c-9f95-4de13286a09a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[490962, 12480, 2054, 59, 109, "Input",ExpressionUUID->"842e33e4-ae06-f746-ab8b-97489285cc9c"], +Cell[493019, 12541, 576, 12, 109, "Message",ExpressionUUID->"a32ffe4b-5346-7b46-9dee-b8bad033001e"], +Cell[493598, 12555, 577, 12, 109, "Message",ExpressionUUID->"902c6490-8537-484d-8825-0d2295db4f12"], +Cell[494178, 12569, 582, 12, 109, "Message",ExpressionUUID->"1b49285c-a5d9-074c-871b-37b4cadb7269"], +Cell[494763, 12583, 458, 10, 109, "Message",ExpressionUUID->"2ff3d4da-4949-1448-b68b-aac1ae56bb1a"], +Cell[495224, 12595, 172, 3, 109, "Output",ExpressionUUID->"046dcac0-9165-4b41-8a82-c19ed01a7ad4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[495433, 12603, 2028, 55, 109, "Input",ExpressionUUID->"b2e314f8-a6f0-6942-a94c-5ac1cacd7190"], +Cell[497464, 12660, 20021, 378, 109, "Output",ExpressionUUID->"d1cda4a3-f1fb-0d44-a506-74525ae66245"] +}, Open ]], +Cell[CellGroupData[{ +Cell[517522, 13043, 2146, 61, 109, "Input",ExpressionUUID->"497f9779-a3e4-c84e-a207-0aac70483e3c"], +Cell[519671, 13106, 502, 11, 109, "Message",ExpressionUUID->"56dc07a7-05cc-424a-8fff-08f056385a44"], +Cell[520176, 13119, 506, 11, 109, "Message",ExpressionUUID->"71ae3883-d346-164c-9764-dc57f6863817"], +Cell[520685, 13132, 508, 11, 109, "Message",ExpressionUUID->"16c86d51-9f27-3c48-b312-93c489e538a4"], +Cell[521196, 13145, 456, 10, 109, "Message",ExpressionUUID->"64c101a8-dc8b-1f4e-9946-a38ce949c736"], +Cell[521655, 13157, 30015, 538, 109, "Output",ExpressionUUID->"f98d1ba6-9bcb-b94f-a8fa-792e22f5ac65"] +}, Open ]], +Cell[551685, 13698, 209, 5, 109, "Input",ExpressionUUID->"54d9c986-d109-3d4c-9ee8-76427bb63659"], +Cell[CellGroupData[{ +Cell[551919, 13707, 1590, 47, 109, "Input",ExpressionUUID->"5dd0afca-0a4f-544d-814d-33e1c649116f"], +Cell[553512, 13756, 342, 6, 109, "Message",ExpressionUUID->"9e6d6a70-ad75-9b40-8a0b-ca802f09d5a2"], +Cell[553857, 13764, 101, 0, 109, "Output",ExpressionUUID->"b372c493-d6de-934f-951c-1a3f45718733"] +}, Open ]], +Cell[CellGroupData[{ +Cell[553995, 13769, 2249, 64, 109, "Input",ExpressionUUID->"a3e3d205-e3b4-874a-a36c-53cfa72184b4"], +Cell[556247, 13835, 342, 6, 109, "Message",ExpressionUUID->"9e9d949e-1d4c-8649-8d0e-b7deecfb3ba4"], +Cell[556592, 13843, 342, 6, 109, "Message",ExpressionUUID->"76f8ef60-aab6-7442-aeca-4cebad23cb0e"], +Cell[556937, 13851, 101, 0, 109, "Output",ExpressionUUID->"37cdd74c-8ec4-9047-aa14-d493ed3e18d0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[557075, 13856, 2221, 64, 109, "Input",ExpressionUUID->"6977f025-454e-0e4a-b118-07bad9ba3e82"], +Cell[559299, 13922, 342, 6, 109, "Message",ExpressionUUID->"566a849f-fc85-4d42-a545-a46d44cf7346"], +Cell[559644, 13930, 342, 6, 109, "Message",ExpressionUUID->"fb1cb4d6-a504-e445-bb52-7946e1bca3c6"], +Cell[559989, 13938, 100, 0, 109, "Output",ExpressionUUID->"5fc76ad3-8f3e-9246-bda1-78737e269d99"] +}, Open ]], +Cell[CellGroupData[{ +Cell[560126, 13943, 2223, 64, 109, "Input",ExpressionUUID->"df8ecb01-788a-604d-b773-f29bb610eb30"], +Cell[562352, 14009, 342, 6, 109, "Message",ExpressionUUID->"f9e34ec5-1462-b340-b2e7-8e875dd33d28"], +Cell[562697, 14017, 342, 6, 109, "Message",ExpressionUUID->"19ffb858-7059-2a48-a3db-e2d0dfcf2131"], +Cell[563042, 14025, 101, 0, 109, "Output",ExpressionUUID->"dbb2a900-6759-7349-a1e8-ea8b52a29f31"] +}, Open ]], +Cell[CellGroupData[{ +Cell[563180, 14030, 213, 6, 109, "Input",ExpressionUUID->"54a5e329-20bd-e742-afe8-d2cfa007cfcf"], +Cell[563396, 14038, 102, 0, 109, "Output",ExpressionUUID->"8f1edf59-aed7-914f-9d19-1949d2a555d6"] }, Open ]] } ] *) -(* End of internal cache information *) - diff --git a/Pu240_798-811_TitovAA/168-72_h_Pu240_22-23/h_168-72_Pu240_22-23_gid_Qw1.nb b/Pu240_798-811_TitovAA/168-72_h_Pu240_22-23/h_168-72_Pu240_22-23_gid_Qw1.nb index b66829d..91a9469 100644 --- a/Pu240_798-811_TitovAA/168-72_h_Pu240_22-23/h_168-72_Pu240_22-23_gid_Qw1.nb +++ b/Pu240_798-811_TitovAA/168-72_h_Pu240_22-23/h_168-72_Pu240_22-23_gid_Qw1.nb @@ -3,32 +3,4883 @@ (*** 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[ 399174, 9347] -NotebookOptionsPosition[ 375132, 8983] -NotebookOutlinePosition[ 375544, 9000] -CellTagsIndexPosition[ 375501, 8997] +NotebookDataLength[ 595945, 14522] +NotebookOptionsPosition[ 556929, 13901] +NotebookOutlinePosition[ 557340, 13918] +CellTagsIndexPosition[ 557297, 13915] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f1", "="}]], "Input", + RowBox[{"d", "=", "1.9"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.9940735873936653`*^9, 3.9940735896443777`*^9}, { + 3.994075218023417*^9, 3.994075221411705*^9}}, + CellLabel-> + "In[106]:=",ExpressionUUID->"654de044-0e50-46e4-a030-5c51782643e2"], + +Cell[BoxData["1.9`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, {3.9940735644974327`*^9, 3.994073590895896*^9}, { + 3.994075171996416*^9, 3.994075180507247*^9}, {3.994075219377726*^9, + 3.9940752234153214`*^9}}, + CellLabel-> + "Out[106]=",ExpressionUUID->"9b3880c8-5b7d-42a6-8a83-2fa12a7fc99c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.9940732811688833`*^9, 3.994073289502289*^9}}, + CellLabel-> + "In[107]:=",ExpressionUUID->"1bff45ef-3366-47ea-aac1-eb064d64cd81"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, {3.994073564560362*^9, 3.994073590977919*^9}, + 3.994075180702458*^9, 3.9940752234546824`*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"2005cc7b-c4fd-4227-a5bb-236b098bb58a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "168"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.994073284506165*^9, 3.994073287626708*^9}}, + CellLabel-> + "In[108]:=",ExpressionUUID->"6d89bceb-0dc2-4a2c-a79a-2d190d748f3b"], + +Cell[BoxData["168"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, {3.994073564571506*^9, 3.994073590992278*^9}, + 3.994075180712758*^9, 3.9940752234670067`*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"d47cb3a4-c75b-4103-98ac-3d9fdf97da0c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel-> + "In[109]:=",ExpressionUUID->"38d94942-1353-4515-8e2c-98eaa63b1e8f"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, {3.994073564582589*^9, 3.994073590996417*^9}, + 3.994075180723978*^9, 3.994075223478387*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"1b1cc60d-b3db-48fe-a607-04702dd6ee18"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel-> + "In[110]:=",ExpressionUUID->"1b256968-e387-489a-8829-57f3de16e065"], + +Cell[BoxData["0.544`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, {3.994073564593708*^9, 3.994073591015129*^9}, + 3.994075180735317*^9, 3.994075223489546*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"e6bd806a-a758-4351-b20b-63f102cc0917"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel-> + "In[111]:=",ExpressionUUID->"d3b9ea6b-d791-4b3d-90f3-8d5f2213b559"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, {3.994073564604851*^9, 3.9940735910271397`*^9}, + 3.9940751807454844`*^9, 3.994075223493987*^9}, + CellLabel-> + "Out[111]=",ExpressionUUID->"26dcec8d-d627-4ff5-813b-4faf3b6f8638"] +}, 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[112]:=",ExpressionUUID->"be3f42c2-01c3-4d2c-89be-538333e1aa03"], + +Cell[BoxData["6.400704089204199`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, {3.9940735646161203`*^9, 3.9940735910381737`*^9}, + 3.99407518075636*^9, 3.9940752235073977`*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"80c159bd-d267-4f8b-8390-7a09001d97fc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel-> + "In[113]:=",ExpressionUUID->"47c6e29f-3d13-4327-943d-eaa5040dcc82"], + +Cell[BoxData["4.825794469480417`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, {3.994073564627458*^9, 3.9940735910486517`*^9}, + 3.994075180767749*^9, 3.9940752235185337`*^9}, + CellLabel-> + "Out[113]=",ExpressionUUID->"c310b58a-cd33-499e-a1ef-93ca2913a8bc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.8877902834"}]], "Input", + CellChangeTimes->{3.991799283179735*^9, 3.994073298855084*^9}, + CellLabel-> + "In[114]:=",ExpressionUUID->"df71849f-efb2-4261-b6d8-8ccc7f214f9f"], + +Cell[BoxData["0.8877902834`"], "Output", + CellChangeTimes->{{3.99407356463848*^9, 3.994073591058733*^9}, + 3.994075180779163*^9, 3.994075223529882*^9}, + CellLabel-> + "Out[114]=",ExpressionUUID->"90e44468-f2ed-4c13-9652-b7c5aa423df8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.3862529089"}]], "Input", + CellChangeTimes->{3.991799280663351*^9, 3.994073304321521*^9}, + CellLabel-> + "In[115]:=",ExpressionUUID->"2970230d-e92a-491c-8f9b-8b9995b13f72"], + +Cell[BoxData["0.3862529089`"], "Output", + CellChangeTimes->{{3.9940735646497602`*^9, 3.994073591068905*^9}, + 3.994075180790642*^9, 3.994075223541339*^9}, + CellLabel-> + "Out[115]=",ExpressionUUID->"fc5bd5dc-e939-4366-9f60-44a94c646ee7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel-> + "In[116]:=",ExpressionUUID->"8fcec1cb-6367-48d5-84a8-488e55773556"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, {3.994073564660372*^9, 3.994073591079844*^9}, + 3.9940751808023157`*^9, 3.99407522355291*^9}, + CellLabel-> + "Out[116]=",ExpressionUUID->"c29a2188-b064-46d8-a12b-0f83885966ca"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel-> + "In[117]:=",ExpressionUUID->"afa8b026-e9e2-4c2a-b598-7adf346042e7"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, {3.994073564670796*^9, 3.994073591090024*^9}, + 3.994075180813775*^9, 3.994075223564582*^9}, + CellLabel-> + "Out[117]=",ExpressionUUID->"9c52aa91-d4d1-4e91-91f0-e3989f9dcf8a"] +}, 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[118]:=",ExpressionUUID->"46f248de-e191-4429-960f-89c025ca6bee"], + +Cell[BoxData["2.2780057225092705`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, {3.9940735646817017`*^9, 3.994073591101307*^9}, + 3.9940751808204927`*^9, 3.99407522357547*^9}, + CellLabel-> + "Out[118]=",ExpressionUUID->"d8ea0a76-d1ee-404b-8a3e-cffb3f85794b"] +}, 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[119]:=",ExpressionUUID->"4732b5af-12aa-43ce-a050-406d6060aa53"], + +Cell[BoxData["1.4218629228610074`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, {3.9940735646923637`*^9, 3.994073591111409*^9}, + 3.994075180833333*^9, 3.99407522358539*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"55c31971-9787-4118-8c22-ce7065e3695a"] +}, 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[120]:=",ExpressionUUID->"f5c402e7-7872-40cd-a967-4fd1559482f6"], + +Cell[BoxData["0.4156604021030056`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, {3.994073564703178*^9, 3.99407359112132*^9}, + 3.994075180844792*^9, 3.994075223596579*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"4f1853a1-b0e8-41bb-9e10-159f8abfc671"] +}, 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[121]:=",ExpressionUUID->"71043eea-bc06-49fa-a1f1-46b6dd6c128a"], + +Cell[BoxData[ + RowBox[{"-", "0.08656844775361539`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, {3.994073564714039*^9, 3.994073591132222*^9}, + 3.994075180888361*^9, 3.994075223608573*^9}, + CellLabel-> + "Out[121]=",ExpressionUUID->"3420a2b4-5230-4f67-8994-069d2d6ac33c"] +}, 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[122]:=",ExpressionUUID->"c54f827c-9ced-4bd2-8efc-3e09d9172516"], + +Cell[BoxData[ + RowBox[{"-", "0.5722877017893374`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, {3.9940735647250757`*^9, 3.994073591143152*^9}, + 3.994075180901285*^9, 3.994075223621201*^9}, + CellLabel-> + "Out[122]=",ExpressionUUID->"3c0c71ee-8031-4092-855f-8c578539af0b"] +}, 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[123]:=",ExpressionUUID->"4252dd08-5614-43a1-af53-09613750d7ff"], + +Cell[BoxData["0.7168396379251292`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, {3.994073564736117*^9, 3.994073591154641*^9}, + 3.9940751809127274`*^9, 3.994075223631315*^9}, + CellLabel-> + "Out[123]=",ExpressionUUID->"316e0695-b38f-4832-b75c-0fca45037f05"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel-> + "In[124]:=",ExpressionUUID->"11e60afc-d5e0-42be-839f-81e4e339a1a8"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, {3.994073564745685*^9, 3.9940735911671133`*^9}, + 3.9940751809237967`*^9, 3.994075223641436*^9}, + CellLabel-> + "Out[124]=",ExpressionUUID->"7839a583-0c5e-45b7-b21e-8d630f368922"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel-> + "In[125]:=",ExpressionUUID->"b8419fae-7d4c-403d-91dd-7cbb6be5fa8a"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, {3.994073564755136*^9, 3.994073591178863*^9}, + 3.9940751809343033`*^9, 3.9940752236530647`*^9}, + CellLabel-> + "Out[125]=",ExpressionUUID->"cdbd6e17-3be3-4c8d-a31c-814a789d7474"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel-> + "In[126]:=",ExpressionUUID->"6bdd48c9-606a-47e3-8d77-8a971e25ae45"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, {3.9940735647648563`*^9, 3.994073591190179*^9}, + 3.9940751809451323`*^9, 3.994075223664682*^9}, + CellLabel-> + "Out[126]=",ExpressionUUID->"8d5e3cb0-0cf5-4466-8d6a-6ecf07d3dd2e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel-> + "In[127]:=",ExpressionUUID->"28e5ef3d-8836-4b8b-b9c3-a61da2dbfbcf"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, {3.994073564774688*^9, 3.994073591201717*^9}, + 3.994075180956657*^9, 3.994075223675436*^9}, + CellLabel-> + "Out[127]=",ExpressionUUID->"83fdab78-1fc9-4885-aa2c-d5b9ab4cffab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel-> + "In[128]:=",ExpressionUUID->"5c28b10c-735d-4661-a1c2-55e9b6ea4a8a"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, {3.994073564784115*^9, 3.994073591213622*^9}, + 3.9940751809686193`*^9, 3.9940752236862583`*^9}, + CellLabel-> + "Out[128]=",ExpressionUUID->"40d42391-3305-4ab1-86b2-ef08748814c2"] +}, 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.994073317560268*^9, 3.994073317727027*^9}}, + CellLabel-> + "In[129]:=",ExpressionUUID->"a2bae7c2-8b8a-4c64-948a-54151bd4a28a"], + +Cell[BoxData["66"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, {3.994073564793541*^9, 3.994073591224018*^9}, + 3.994075180980678*^9, 3.994075223697234*^9}, + CellLabel-> + "Out[129]=",ExpressionUUID->"a75bb78f-119b-48fc-b0c8-fa8af117f5bf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, {3.9940733207460938`*^9, 3.994073320804184*^9}}, + CellLabel-> + "In[130]:=",ExpressionUUID->"ef64e7ce-f7c5-409b-83f9-9929007e2a69"], + +Cell[BoxData["28"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, {3.9940735648031883`*^9, 3.9940735912353287`*^9}, + 3.9940751809920683`*^9, 3.994075223707429*^9}, + CellLabel-> + "Out[130]=",ExpressionUUID->"60b2213c-6129-4f9b-882f-3626bb753259"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel-> + "In[131]:=",ExpressionUUID->"02cfe06e-a2c5-47f2-bd0e-da365d14055b"], + +Cell[BoxData["72"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, {3.99407356481284*^9, 3.994073591246372*^9}, + 3.994075181003516*^9, 3.994075223717374*^9}, + CellLabel-> + "Out[131]=",ExpressionUUID->"11168aca-c5f6-4e28-a7b9-10bf8d3da8de"] +}, 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[132]:=",ExpressionUUID->"34054da0-34c4-4ed2-b5e7-ba513c08970f"], + +Cell[BoxData["0.10999999999999999`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, {3.994073564822513*^9, 3.9940735912565413`*^9}, + 3.994075181014969*^9, 3.994075223727599*^9}, + CellLabel-> + "Out[132]=",ExpressionUUID->"d706937e-4232-4d2e-9ade-32e4cb6ba51e"] +}, 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[133]:=",ExpressionUUID->"6973c3cf-3f46-4d19-8fbc-9846d4d6f09a"], + +Cell[BoxData[ + RowBox[{"-", "2.564285714285714`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, {3.994073564832857*^9, 3.994073591267404*^9}, + 3.9940751810260887`*^9, 3.9940752237376823`*^9}, + CellLabel-> + "Out[133]=",ExpressionUUID->"edc0225a-fcad-40b4-bbb6-ec17b380955b"] +}, 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[134]:=",ExpressionUUID->"d7e713ef-32a0-45b6-811b-285e81ec9257"], + +Cell[BoxData["17.427928477019236`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, {3.994073564842832*^9, 3.9940735912778807`*^9}, + 3.9940751810379477`*^9, 3.994075223748026*^9}, + CellLabel-> + "Out[134]=",ExpressionUUID->"a116a9c3-c3a5-46a1-aa13-2ee22a0829c7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel-> + "In[135]:=",ExpressionUUID->"c78ba437-3544-44ae-a68a-2918bbc821f8"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, {3.994073564851839*^9, 3.994073591288074*^9}, + 3.99407518104945*^9, 3.994075223758711*^9}, + CellLabel-> + "Out[135]=",ExpressionUUID->"7032efca-8a24-4818-b7d3-3e93ecbdf6c0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "2.155"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { + 3.994073341190873*^9, 3.994073342038845*^9}}, + CellLabel-> + "In[136]:=",ExpressionUUID->"ebfbd65d-60e9-4c6b-8cd5-97cf7e7b59e6"], + +Cell[BoxData["2.155`"], "Output", + CellChangeTimes->{{3.994073564860754*^9, 3.994073591298296*^9}, + 3.994075181060684*^9, 3.994075223775366*^9}, + CellLabel-> + "Out[136]=",ExpressionUUID->"3b160b7e-adb2-4621-8abc-6580c062fce6"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel-> + "In[137]:=",ExpressionUUID->"a7681eef-67d2-4f8d-a607-83e1b8eb15d3"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.755"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.994073344618413*^9, 3.994073345759185*^9}}, + CellLabel-> + "In[138]:=",ExpressionUUID->"ba79384a-2558-4f42-90b9-a9174c76935e"], + +Cell[BoxData["0.755`"], "Output", + CellChangeTimes->{{3.994073564877489*^9, 3.994073591311125*^9}, + 3.9940751810754833`*^9, 3.9940752237900457`*^9}, + CellLabel-> + "Out[138]=",ExpressionUUID->"e9aeeae4-8c37-408a-b6b6-6a96b59fb57c"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel-> + "In[139]:=",ExpressionUUID->"90cd403c-b3c8-44af-89f3-c87b24208c4f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "2.62"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.9940733478949413`*^9, 3.994073348567162*^9}}, + CellLabel-> + "In[140]:=",ExpressionUUID->"231f573a-63ae-4cab-a335-c22117bf3178"], + +Cell[BoxData["2.62`"], "Output", + CellChangeTimes->{{3.994073564894133*^9, 3.9940735913232403`*^9}, + 3.994075181088438*^9, 3.994075223803163*^9}, + CellLabel-> + "Out[140]=",ExpressionUUID->"0716c625-fc30-4fc8-9286-670a022ea3d4"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel-> + "In[141]:=",ExpressionUUID->"081a4ceb-c4d7-4ac4-af60-22b59f2c6c7d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.135"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, {3.99407335112987*^9, 3.9940733523562517`*^9}}, + CellLabel-> + "In[142]:=",ExpressionUUID->"a2a0a3bc-e8db-4bae-b7be-e050d9292d34"], + +Cell[BoxData["1.135`"], "Output", + CellChangeTimes->{{3.994073564911627*^9, 3.994073591335389*^9}, + 3.994075181101487*^9, 3.994075223815889*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"1cf20bfd-75cc-40f7-9b75-d0d27e97664f"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel-> + "In[143]:=",ExpressionUUID->"73f6a3e2-e8b4-4d89-8532-3cdb6911efa1"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.025"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, {3.994073355091783*^9, + 3.994073355935183*^9}}, + CellLabel-> + "In[144]:=",ExpressionUUID->"b3215d13-b4cb-4fd6-8407-e0b6af7f32f0"], + +Cell[BoxData["1.025`"], "Output", + CellChangeTimes->{{3.994073564928769*^9, 3.9940735913488693`*^9}, + 3.994075181114448*^9, 3.994075223832756*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"566ed76e-32cb-4804-8e41-5f1289ea131e"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel-> + "In[145]:=",ExpressionUUID->"f8468766-c01d-4218-9357-b27f88ed876c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.575"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.994073359153013*^9, + 3.9940733600822906`*^9}}, + CellLabel-> + "In[146]:=",ExpressionUUID->"e697212f-4ac1-4f24-b113-4b8b823d4160"], + +Cell[BoxData["0.575`"], "Output", + CellChangeTimes->{{3.994073564946273*^9, 3.99407359136164*^9}, + 3.9940751811274652`*^9, 3.9940752238459263`*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"b30e7d73-c3ee-4932-9a14-c35bb895f77b"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel-> + "In[147]:=",ExpressionUUID->"e1140db4-a145-41f1-aa15-c22c84d26e51"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "1.44"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, 3.994073366138835*^9, { + 3.994073396938322*^9, 3.994073398601803*^9}}, + CellLabel-> + "In[148]:=",ExpressionUUID->"67830d0d-3b05-499f-9f43-f9e2a2e96c1f"], + +Cell[BoxData["1.44`"], "Output", + CellChangeTimes->{{3.994073564964167*^9, 3.9940735913757553`*^9}, + 3.9940751811406727`*^9, 3.9940752238589993`*^9}, + CellLabel-> + "Out[148]=",ExpressionUUID->"1b24339f-0d5e-4de8-8cda-513396a0a437"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel-> + "In[149]:=",ExpressionUUID->"95a2cd4c-f71b-407d-a8c8-42d33e1b5db5"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "0.645"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, {3.9940734006045856`*^9, 3.99407340214142*^9}}, + CellLabel-> + "In[150]:=",ExpressionUUID->"76b73b14-23cc-4e57-b98e-07a0e5c48928"], + +Cell[BoxData["0.645`"], "Output", + CellChangeTimes->{{3.9940735649821672`*^9, 3.994073591389337*^9}, + 3.994075181153781*^9, 3.994075223871763*^9}, + CellLabel-> + "Out[150]=",ExpressionUUID->"b32d8e2e-2248-4cbb-863d-6e4b1ca4a65d"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel-> + "In[151]:=",ExpressionUUID->"47dbed8a-06d7-4a89-bed1-7f0f0e09af87"], + +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[152]:=",ExpressionUUID->"977a22c1-7f05-4ef0-ab0f-3487f42964a3"], + +Cell[BoxData["0.1377756020325425`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, {3.9940735650538073`*^9, 3.99407359143029*^9}, + 3.994075181231205*^9, 3.9940752239087954`*^9}, + CellLabel-> + "Out[152]=",ExpressionUUID->"87ac0de1-f633-4baa-aeb4-953445646a3a"] +}, 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[153]:=",ExpressionUUID->"0154fad5-7f06-4a30-8cc3-5a2d45318328"], + +Cell[BoxData["7.524926889811008`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, {3.99407356508613*^9, 3.994073591458125*^9}, + 3.994075181264968*^9, 3.994075223937818*^9}, + CellLabel-> + "Out[153]=",ExpressionUUID->"f024000d-7527-4f5c-a875-84a8e4c887cc"] +}, 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[154]:=",ExpressionUUID->"8b62c611-b190-42db-9d66-9023afda65c0"], + +Cell[BoxData[ + RowBox[{"-", "14.084113046357718`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, {3.994073565118821*^9, 3.994073591484323*^9}, + 3.994075181298151*^9, 3.9940752239647293`*^9}, + CellLabel-> + "Out[154]=",ExpressionUUID->"ca1d9fd8-f604-4b10-8672-36682db5079e"] +}, 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[155]:=",ExpressionUUID->"41b0e6b5-d875-4a41-bddc-b96726f30b8e"], + +Cell[BoxData[ + RowBox[{"-", "18.31263149263108`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, {3.9940735651553993`*^9, 3.994073591515855*^9}, + 3.9940751813370543`*^9, 3.994075223996374*^9}, + CellLabel-> + "Out[155]=",ExpressionUUID->"2e9b67d2-1d0a-4210-ba7d-fc6651a8d8e9"] +}, 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[156]:=",ExpressionUUID->"f5dfe48c-c744-404c-a83e-906f1d590bad"], + +Cell[BoxData[ + RowBox[{"-", "53.236632839784775`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, {3.994073565191607*^9, 3.9940735915482073`*^9}, + 3.9940751813752813`*^9, 3.994075224029221*^9}, + CellLabel-> + "Out[156]=",ExpressionUUID->"189fe403-7aba-468e-b5ec-d167d4ae7c02"] +}, 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[157]:=",ExpressionUUID->"3dce4f21-8853-4356-9c51-0e01f426e7d3"], + +Cell[BoxData[ + RowBox[{"-", "137.72173412227852`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, {3.9940735652337313`*^9, 3.9940735915861683`*^9}, + 3.9940751814204807`*^9, 3.99407522406466*^9}, + CellLabel-> + "Out[157]=",ExpressionUUID->"7c6bc069-444a-46aa-bdbc-7dac8546bf9c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel-> + "In[158]:=",ExpressionUUID->"0c7b3f73-53fe-46f6-b876-55160b5b6f32"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, {3.994073565247233*^9, 3.99407359159737*^9}, + 3.994075181435895*^9, 3.9940752240755796`*^9}, + CellLabel-> + "Out[158]=",ExpressionUUID->"b86d1cc9-90bc-4b34-9ba1-2a64d2c0c604"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel-> + "In[159]:=",ExpressionUUID->"3e524e61-6281-4bfd-8c3d-124dde1d850b"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, {3.994073565259305*^9, 3.994073591607201*^9}, + 3.9940751814462433`*^9, 3.994075224085256*^9}, + CellLabel-> + "Out[159]=",ExpressionUUID->"28b2ad46-611c-4eed-b39f-7fbe339cc12c"] +}, 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[160]:=",ExpressionUUID->"635f4e4a-0c8e-4483-a3a6-0e96e17e79ba"], + +Cell[BoxData["109.03965674383026`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, {3.9940735652689238`*^9, 3.99407359161714*^9}, + 3.994075181457575*^9, 3.994075224089169*^9}, + CellLabel-> + "Out[160]=",ExpressionUUID->"0fb17b6d-48ce-45c7-800b-a73a61d8374b"] +}, 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[161]:=",ExpressionUUID->"16076403-4cf2-4dd2-adeb-8ec26990a906"], + +Cell[BoxData[ + RowBox[{"-", "96.23297652944373`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, {3.9940735652791967`*^9, 3.994073591627187*^9}, + 3.994075181468134*^9, 3.9940752240986977`*^9}, + CellLabel-> + "Out[161]=",ExpressionUUID->"99dea3a3-ac4f-4919-91ca-b0d5f01eac97"] +}, 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[162]:=",ExpressionUUID->"eace7e71-d77b-4244-9165-1769e36be22d"], + +Cell[BoxData["112.13680293055965`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, {3.994073565289288*^9, 3.994073591637117*^9}, + 3.994075181479414*^9, 3.9940752241080437`*^9}, + CellLabel-> + "Out[162]=",ExpressionUUID->"6bc418f6-0e0c-4cb4-9311-82e8028c408a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel-> + "In[163]:=",ExpressionUUID->"84d17c99-5bd0-4360-9f94-db9e257c08b8"], + +Cell[BoxData["0.4156604021030056`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, {3.99407356529922*^9, 3.994073591647008*^9}, + 3.994075181491456*^9, 3.994075224117897*^9}, + CellLabel-> + "Out[163]=",ExpressionUUID->"0462b6f9-4c07-469b-9f46-ddc24cee93db"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel-> + "In[164]:=",ExpressionUUID->"f1c9aaa0-649f-41fd-b4b5-5cdf7d9e4994"], + +Cell[BoxData[ + RowBox[{"-", "0.08656844775361539`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, {3.994073565311245*^9, 3.994073591656905*^9}, + 3.994075181502122*^9, 3.9940752241273518`*^9}, + CellLabel-> + "Out[164]=",ExpressionUUID->"1a591bd3-666f-466d-a23d-6d2b845c8fb5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel-> + "In[165]:=",ExpressionUUID->"a0471ab2-6038-4a17-ab69-10536cd0ccac"], + +Cell[BoxData[ + RowBox[{"-", "0.5722877017893374`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, {3.9940735653224297`*^9, 3.994073591666703*^9}, + 3.994075181512973*^9, 3.994075224138131*^9}, + CellLabel-> + "Out[165]=",ExpressionUUID->"77aa9a60-c9bf-4578-9ff1-4206379f9f14"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel-> + "In[166]:=",ExpressionUUID->"3ca58a31-103c-45b8-a596-f20c7d5d0eb6"], + +Cell[BoxData["0.7168396379251292`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, {3.994073565332736*^9, 3.994073591676529*^9}, + 3.9940751815232983`*^9, 3.99407522414828*^9}, + CellLabel-> + "Out[166]=",ExpressionUUID->"e694da90-2caf-44c5-afc6-e9e2810f4efe"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel-> + "In[167]:=",ExpressionUUID->"ea2830d3-1c19-45c3-9c69-02e548b27a25"], + +Cell[BoxData["2.2780057225092705`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, {3.994073565343382*^9, 3.994073591686304*^9}, + 3.9940751815621433`*^9, 3.994075224158536*^9}, + CellLabel-> + "Out[167]=",ExpressionUUID->"2b8dfe4f-27e8-4e22-bb12-4b4482cf3b4e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel-> + "In[168]:=",ExpressionUUID->"809f0a50-4913-458a-a1e7-cb270263a73f"], + +Cell[BoxData["1.4218629228610074`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, {3.9940735677968397`*^9, 3.994073591696135*^9}, + 3.994075181571867*^9, 3.994075224168653*^9}, + CellLabel-> + "Out[168]=",ExpressionUUID->"9b8c15c5-99bd-403e-8850-0382767a19d2"] +}, 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[169]:=",ExpressionUUID->"e52951a6-435a-47e8-b932-62cc03f01a8e"], + +Cell[BoxData[ + RowBox[{"-", "34.047906297441784`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, {3.994073567991251*^9, 3.994073591706287*^9}, + 3.994075181582259*^9, 3.994075224178802*^9}, + CellLabel-> + "Out[169]=",ExpressionUUID->"487fe44e-81b3-4b9a-87ad-a2e075b0b7c6"] +}, 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[170]:=",ExpressionUUID->"f7f11b32-3aac-4fe6-899b-165a4303e96e"], + +Cell[BoxData[ + RowBox[{"-", "6.56405378738986`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, {3.994073568001831*^9, 3.994073591716386*^9}, + 3.994075181592502*^9, 3.994075224188962*^9}, + CellLabel-> + "Out[170]=",ExpressionUUID->"2b99fdb6-f533-4ed5-8c0d-c06a80cc56c1"] +}, 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[171]:=",ExpressionUUID->"81bc1609-b94f-4e55-9120-4324a33ca2f3"], + +Cell[BoxData["74.99175044638848`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, {3.994073568012953*^9, 3.994073591726822*^9}, + 3.9940751816039963`*^9, 3.994075224199308*^9}, + CellLabel-> + "Out[171]=",ExpressionUUID->"722935c4-2c7a-43e1-8248-3b27ad3bfa8e"] +}, 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[172]:=",ExpressionUUID->"ae67d1a1-c662-498f-a276-9ee8d2caa351"], + +Cell[BoxData[ + RowBox[{"-", "96.23297652944373`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, {3.994073568023205*^9, 3.9940735917368*^9}, + 3.994075181615046*^9, 3.994075224209613*^9}, + CellLabel-> + "Out[172]=",ExpressionUUID->"907b9465-e011-4ead-815a-9da0021532cf"] +}, 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[173]:=",ExpressionUUID->"ea3ceea0-934b-4be6-8221-5a3c3c00657d"], + +Cell[BoxData["105.57274914316979`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, {3.994073568033989*^9, 3.994073591747006*^9}, + 3.994075181626021*^9, 3.994075224219851*^9}, + CellLabel-> + "Out[173]=",ExpressionUUID->"c288ca2f-aae0-4da7-b3d2-8a15dfecf03e"] +}, 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[174]:=",ExpressionUUID->"57ee0694-2a18-4150-9247-6165f96999ff"], + +Cell[BoxData["39.10949309233206`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, {3.994073568045323*^9, 3.99407359175727*^9}, + 3.994075181636903*^9, 3.99407522423002*^9}, + CellLabel-> + "Out[174]=",ExpressionUUID->"5d1a1f43-33c3-43da-974c-99fe009f9fec"] +}, 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[175]:=",ExpressionUUID->"388b4d86-49b2-4271-a4a0-3c7028dff9d2"], + +Cell[BoxData["659.7171122788135`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, {3.994073568055649*^9, 3.994073591768012*^9}, + 3.9940751816477003`*^9, 3.99407522424048*^9}, + CellLabel-> + "Out[175]=",ExpressionUUID->"656d020b-75a2-4f99-a8e2-2431d894f988"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"f1", "=", "0.4209192664"}]], "Input", CellFrame->{{0, 0}, {0, 0}}, - CellChangeTimes->{3.991849227197853*^9}, + CellChangeTimes->{3.991849227197853*^9, 3.994084804228025*^9}, Background->RGBColor[ 0.87, 0.94, 1],ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", + RowBox[{"f2", "=", "0.1119271435"}]], "Input", CellFrame->{{0, 0}, {0, 0}}, - CellChangeTimes->{3.9918492290557346`*^9}, + CellChangeTimes->{3.9918492290557346`*^9, 3.994084809875893*^9}, Background->RGBColor[ 0.87, 0.94, 1],ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], @@ -2895,9 +7746,73 @@ qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", - RowBox[{"{", "}"}], "]"}]}]], "Input", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.005365"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.015909"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.025915"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.035051"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.043054"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.049704"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.05488"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.058507"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.060618"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.061275"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.060632"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.058842"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.056126"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.052675"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.048717"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.044429"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.040006"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.03558"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.031291"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.027216"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.023437"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.019982"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.016885"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.014139"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.011745"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.009675"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.007913"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.006421"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.005177"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.004144"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.003297"}], "}"}]}], "}"}], "]"}]}]], "Input", CellFrame->{{0, 0}, {0, 0}}, - CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}}, + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.994084956256139*^9}, Background->RGBColor[ 0.87, 0.94, 1],ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], @@ -8979,12 +13894,15 @@ Cell[BoxData["0.05576142449710889`"], "Output", CellChangeTimes->{3.9913392304624157`*^9}, CellLabel-> "Out[312]=",ExpressionUUID->"14434839-d5cf-b844-b849-b3b3102df434"] -}, Open ]] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input",ExpressionUUID->"f39be7b1-d665-440d-a910-3cb53865d46e"] }, -WindowSize->{1440, 792}, +WindowSize->{1440, 882}, WindowMargins->{{0, Automatic}, {0, Automatic}}, CellContext->Notebook, -FrontEndVersion->"14.1 for Linux x86 (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" ] @@ -8999,356 +13917,613 @@ CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ -Cell[554, 20, 213, 5, 45, "Input",ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], -Cell[770, 27, 215, 5, 45, "Input",ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], Cell[CellGroupData[{ -Cell[1010, 36, 1301, 43, 48, "Input",ExpressionUUID->"5e48fe0c-b3e8-2b40-82cb-716b23b2f326"], -Cell[2314, 81, 178, 3, 33, "Output",ExpressionUUID->"1db85c02-7ca3-154e-854d-2c36f89709c4"] +Cell[576, 22, 357, 7, 36, "Input",ExpressionUUID->"654de044-0e50-46e4-a030-5c51782643e2"], +Cell[936, 31, 309, 6, 41, "Output",ExpressionUUID->"9b3880c8-5b7d-42a6-8a83-2fa12a7fc99c"] }, Open ]], Cell[CellGroupData[{ -Cell[2529, 89, 910, 31, 58, "Input",ExpressionUUID->"e4db2648-4e1a-2c46-83ab-fcd932c3b663"], -Cell[3442, 122, 175, 3, 33, "Output",ExpressionUUID->"78ed190c-23cd-4d45-867a-2b08174b715f"] +Cell[1282, 42, 253, 5, 36, "Input",ExpressionUUID->"1bff45ef-3366-47ea-aac1-eb064d64cd81"], +Cell[1538, 49, 256, 5, 41, "Output",ExpressionUUID->"2005cc7b-c4fd-4227-a5bb-236b098bb58a"] }, Open ]], Cell[CellGroupData[{ -Cell[3654, 130, 885, 30, 58, "Input",ExpressionUUID->"e4649c3d-e19e-ca42-95a0-23b66397f1fd"], -Cell[4542, 162, 177, 3, 33, "Output",ExpressionUUID->"82ec2512-4fcb-ba44-b472-bb3a66bb622e"] +Cell[1831, 59, 226, 5, 36, "Input",ExpressionUUID->"6d89bceb-0dc2-4a2c-a79a-2d190d748f3b"], +Cell[2060, 66, 256, 5, 41, "Output",ExpressionUUID->"d47cb3a4-c75b-4103-98ac-3d9fdf97da0c"] }, Open ]], Cell[CellGroupData[{ -Cell[4756, 170, 558, 19, 51, "Input",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], -Cell[5317, 191, 173, 3, 33, "Output",ExpressionUUID->"9d53fa4a-be54-7b42-83bd-0a5560193c0f"] +Cell[2353, 76, 180, 4, 36, "Input",ExpressionUUID->"38d94942-1353-4515-8e2c-98eaa63b1e8f"], +Cell[2536, 82, 254, 5, 41, "Output",ExpressionUUID->"1b1cc60d-b3db-48fe-a607-04702dd6ee18"] }, Open ]], Cell[CellGroupData[{ -Cell[5527, 199, 623, 21, 51, "Input",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], -Cell[6153, 222, 170, 3, 33, "Output",ExpressionUUID->"4107fa63-a138-df48-a95c-ec944a983800"] +Cell[2827, 92, 262, 8, 54, "Input",ExpressionUUID->"1b256968-e387-489a-8829-57f3de16e065"], +Cell[3092, 102, 257, 5, 75, "Output",ExpressionUUID->"e6bd806a-a758-4351-b20b-63f102cc0917"] }, Open ]], Cell[CellGroupData[{ -Cell[6360, 230, 170, 5, 55, "Input",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], -Cell[6533, 237, 173, 3, 33, "Output",ExpressionUUID->"f894fb1d-1550-5146-a259-dfa871655c2a"] +Cell[3386, 112, 136, 3, 66, "Input",ExpressionUUID->"d3b9ea6b-d791-4b3d-90f3-8d5f2213b559"], +Cell[3525, 117, 260, 5, 75, "Output",ExpressionUUID->"26dcec8d-d627-4ff5-813b-4faf3b6f8638"] }, Open ]], Cell[CellGroupData[{ -Cell[6743, 245, 170, 5, 54, "Input",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], -Cell[6916, 252, 170, 3, 33, "Output",ExpressionUUID->"8d5b13a4-8c75-0f48-ab21-9720bb8c0cbc"] +Cell[3822, 127, 281, 7, 66, "Input",ExpressionUUID->"be3f42c2-01c3-4d2c-89be-538333e1aa03"], +Cell[4106, 136, 274, 5, 75, "Output",ExpressionUUID->"80c159bd-d267-4f8b-8390-7a09001d97fc"] }, Open ]], Cell[CellGroupData[{ -Cell[7123, 260, 181, 5, 43, "Input",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], -Cell[7307, 267, 171, 3, 33, "Output",ExpressionUUID->"4d4b493f-9f2d-1e41-979f-fb4d58d0e93a"] +Cell[4417, 146, 262, 8, 66, "Input",ExpressionUUID->"47c6e29f-3d13-4327-943d-eaa5040dcc82"], +Cell[4682, 156, 273, 5, 75, "Output",ExpressionUUID->"c310b58a-cd33-499e-a1ef-93ca2913a8bc"] }, Open ]], Cell[CellGroupData[{ -Cell[7515, 275, 181, 5, 43, "Input",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], -Cell[7699, 282, 173, 3, 33, "Output",ExpressionUUID->"e40db20b-c65e-4a45-ba96-abcb59b0d0ac"] +Cell[4992, 166, 208, 4, 66, "Input",ExpressionUUID->"df71849f-efb2-4261-b6d8-8ccc7f214f9f"], +Cell[5203, 172, 236, 4, 75, "Output",ExpressionUUID->"90e44468-f2ed-4c13-9652-b7c5aa423df8"] }, Open ]], Cell[CellGroupData[{ -Cell[7909, 290, 6055, 185, 195, "Input",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], -Cell[13967, 477, 175, 3, 33, "Output",ExpressionUUID->"cdf81fea-e12a-2b44-81a8-222b4bbf8a86"] +Cell[5476, 181, 208, 4, 66, "Input",ExpressionUUID->"2970230d-e92a-491c-8f9b-8b9995b13f72"], +Cell[5687, 187, 239, 4, 75, "Output",ExpressionUUID->"fc5bd5dc-e939-4366-9f60-44a94c646ee7"] }, Open ]], Cell[CellGroupData[{ -Cell[14179, 485, 368, 9, 41, "Input",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], -Cell[14550, 496, 170, 3, 33, "Output",ExpressionUUID->"181dc1c8-632b-4b43-91c4-d3626d65bfc7"] +Cell[5963, 196, 133, 3, 66, "Input",ExpressionUUID->"8fcec1cb-6367-48d5-84a8-488e55773556"], +Cell[6099, 201, 253, 5, 75, "Output",ExpressionUUID->"c29a2188-b064-46d8-a12b-0f83885966ca"] }, Open ]], Cell[CellGroupData[{ -Cell[14757, 504, 6122, 187, 195, "Input",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], -Cell[20882, 693, 175, 3, 33, "Output",ExpressionUUID->"c7d972b4-764c-954a-8260-240d49cfcff6"] +Cell[6389, 211, 133, 3, 66, "Input",ExpressionUUID->"afa8b026-e9e2-4c2a-b598-7adf346042e7"], +Cell[6525, 216, 252, 5, 75, "Output",ExpressionUUID->"9c52aa91-d4d1-4e91-91f0-e3989f9dcf8a"] }, Open ]], Cell[CellGroupData[{ -Cell[21094, 701, 368, 9, 41, "Input",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], -Cell[21465, 712, 172, 3, 33, "Output",ExpressionUUID->"c285a758-c3ad-974b-93c3-4cb0d4bdd2ae"] +Cell[6814, 226, 561, 20, 175, "Input",ExpressionUUID->"46f248de-e191-4429-960f-89c025ca6bee"], +Cell[7378, 248, 273, 5, 75, "Output",ExpressionUUID->"d8ea0a76-d1ee-404b-8a3e-cffb3f85794b"] }, Open ]], Cell[CellGroupData[{ -Cell[21674, 720, 2663, 88, 115, "Input",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], -Cell[24340, 810, 173, 3, 33, "Output",ExpressionUUID->"5dc957f4-8f84-c54c-80a3-c76f756c5df4"] +Cell[7688, 258, 561, 20, 175, "Input",ExpressionUUID->"4732b5af-12aa-43ce-a050-406d6060aa53"], +Cell[8252, 280, 271, 5, 75, "Output",ExpressionUUID->"55c31971-9787-4118-8c22-ce7065e3695a"] }, Open ]], Cell[CellGroupData[{ -Cell[24550, 818, 2603, 85, 115, "Input",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], -Cell[27156, 905, 172, 3, 33, "Output",ExpressionUUID->"b4ee01d5-3415-494b-b28a-4587c8d8bb90"] +Cell[8560, 290, 1592, 51, 362, "Input",ExpressionUUID->"f5c402e7-7872-40cd-a967-4fd1559482f6"], +Cell[10155, 343, 267, 5, 75, "Output",ExpressionUUID->"4f1853a1-b0e8-41bb-9e10-159f8abfc671"] }, Open ]], Cell[CellGroupData[{ -Cell[27365, 913, 3712, 118, 172, "Input",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], -Cell[31080, 1033, 174, 3, 33, "Output",ExpressionUUID->"20c44e64-7085-8e4d-a9d6-f80b5532826e"] -}, Open ]], -Cell[31269, 1039, 138, 3, 29, "Input",ExpressionUUID->"ba4a3eff-9e3b-5e47-a896-3a959bbbf44d"], -Cell[CellGroupData[{ -Cell[31432, 1046, 2052, 59, 92, "Input",ExpressionUUID->"738a48f3-b38c-f441-aec4-53babaa73a14"], -Cell[33487, 1107, 524, 11, 38, "Message",ExpressionUUID->"bd0a7da1-672e-6b4e-afbd-4af379292e8d"], -Cell[34014, 1120, 526, 11, 38, "Message",ExpressionUUID->"9a8837e4-2afa-d145-83db-a88ef0e502bc"], -Cell[34543, 1133, 530, 11, 38, "Message",ExpressionUUID->"0aa4ed5d-b925-834d-b53a-95c75c4ff982"], -Cell[35076, 1146, 455, 10, 26, "Message",ExpressionUUID->"2742a735-9c26-7640-8a81-3e30eaffa353"], -Cell[35534, 1158, 172, 3, 33, "Output",ExpressionUUID->"d91a6bca-04d7-b84b-93cf-0695498dc4de"] +Cell[10459, 353, 1426, 47, 362, "Input",ExpressionUUID->"71043eea-bc06-49fa-a1f1-46b6dd6c128a"], +Cell[11888, 402, 286, 6, 75, "Output",ExpressionUUID->"3420a2b4-5230-4f67-8994-069d2d6ac33c"] }, Open ]], Cell[CellGroupData[{ -Cell[35743, 1166, 2054, 59, 92, "Input",ExpressionUUID->"86c33485-ed26-8f49-b3d0-7d040d3b48f0"], -Cell[37800, 1227, 524, 11, 38, "Message",ExpressionUUID->"2c553d54-16ec-9646-b6d7-75da3c367575"], -Cell[38327, 1240, 526, 11, 38, "Message",ExpressionUUID->"1c597fdf-5631-a84c-9feb-152df3629d86"], -Cell[38856, 1253, 528, 11, 38, "Message",ExpressionUUID->"48439b56-7b7d-fa4d-a4e2-5db2bbda0c77"], -Cell[39387, 1266, 456, 10, 26, "Message",ExpressionUUID->"66ce390f-34a9-df4d-9875-a339943ada86"], -Cell[39846, 1278, 170, 3, 33, "Output",ExpressionUUID->"2e46fa54-fabe-5040-8f8c-6829b7c76136"] +Cell[12211, 413, 1426, 47, 362, "Input",ExpressionUUID->"c54f827c-9ced-4bd2-8efc-3e09d9172516"], +Cell[13640, 462, 289, 6, 75, "Output",ExpressionUUID->"3c0c71ee-8031-4092-855f-8c578539af0b"] }, Open ]], Cell[CellGroupData[{ -Cell[40053, 1286, 1938, 53, 67, "Input",ExpressionUUID->"f373fe4f-940c-0842-9236-63ec36d318ad"], -Cell[41994, 1341, 19994, 375, 229, "Output",ExpressionUUID->"fdd0f260-414f-a94a-8f26-cd86e676700c"] +Cell[13966, 473, 1592, 51, 362, "Input",ExpressionUUID->"4252dd08-5614-43a1-af53-09613750d7ff"], +Cell[15561, 526, 268, 5, 75, "Output",ExpressionUUID->"316e0695-b38f-4832-b75c-0fca45037f05"] }, Open ]], Cell[CellGroupData[{ -Cell[62025, 1721, 2092, 60, 92, "Input",ExpressionUUID->"24fa5db0-1063-354a-bd60-c117a27ff3e1"], -Cell[64120, 1783, 490, 11, 38, "Message",ExpressionUUID->"546a9ea9-5939-f84a-87c6-58844f58f330"], -Cell[64613, 1796, 493, 11, 38, "Message",ExpressionUUID->"b36bffd7-1c84-5c45-a847-b2c31968f579"], -Cell[65109, 1809, 508, 11, 26, "Message",ExpressionUUID->"c864bef7-fc73-d94b-8cde-14570cba8095"], -Cell[65620, 1822, 456, 10, 26, "Message",ExpressionUUID->"a2e62375-acd2-6740-bfd7-026877c5bd7b"], -Cell[66079, 1834, 61603, 1057, 232, "Output",ExpressionUUID->"d4eecdc9-263c-5b43-bb29-cd0ac1286793"] -}, Open ]], -Cell[127697, 2894, 298, 7, 45, "Input",ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], -Cell[127998, 2903, 209, 5, 29, "Input",ExpressionUUID->"6d3700e1-f504-214a-a332-f16397f0b922"], -Cell[CellGroupData[{ -Cell[128232, 2912, 217, 7, 47, "Input",ExpressionUUID->"9051a5e3-bb9f-d941-bcca-598d0b6835be"], -Cell[128452, 2921, 169, 3, 33, "Output",ExpressionUUID->"07374b0a-4615-bf46-ab49-be8623cec410"] +Cell[15866, 536, 135, 3, 66, "Input",ExpressionUUID->"11e60afc-d5e0-42be-839f-81e4e339a1a8"], +Cell[16004, 541, 256, 5, 75, "Output",ExpressionUUID->"7839a583-0c5e-45b7-b21e-8d630f368922"] }, Open ]], Cell[CellGroupData[{ -Cell[128658, 2929, 1816, 53, 92, "Input",ExpressionUUID->"65a995ff-ff3d-634e-9bad-4a8a16073236"], -Cell[130477, 2984, 502, 11, 38, "Message",ExpressionUUID->"c1f83af1-416a-6240-b3fd-c1bfcc643459"], -Cell[130982, 2997, 506, 11, 38, "Message",ExpressionUUID->"5cfd3c4b-6190-2c4d-8479-b4ccd7090f94"], -Cell[131491, 3010, 509, 11, 38, "Message",ExpressionUUID->"288fc6c7-a3fe-9b48-9c0d-bba2713f7084"], -Cell[132003, 3023, 456, 10, 26, "Message",ExpressionUUID->"09478fd5-b212-2347-91e7-b9097bd6d61d"], -Cell[132462, 3035, 28560, 514, 232, "Output",ExpressionUUID->"f7784347-2042-c042-8970-b060f9535d9e"] +Cell[16297, 551, 137, 3, 66, "Input",ExpressionUUID->"b8419fae-7d4c-403d-91dd-7cbb6be5fa8a"], +Cell[16437, 556, 258, 5, 75, "Output",ExpressionUUID->"cdbd6e17-3be3-4c8d-a31c-814a789d7474"] }, Open ]], Cell[CellGroupData[{ -Cell[161059, 3554, 1616, 48, 67, "Input",ExpressionUUID->"86381d88-1537-a242-9cff-0b432b61d63d"], -Cell[162678, 3604, 576, 12, 38, "Message",ExpressionUUID->"0a4bed5c-621d-a546-88e9-ce7d779c106a"], -Cell[163257, 3618, 582, 12, 38, "Message",ExpressionUUID->"80e3943d-459b-8b41-9869-50a6cf829ef8"], -Cell[163842, 3632, 584, 12, 38, "Message",ExpressionUUID->"36529169-7f05-ee43-8080-ce8fdd404b8d"], -Cell[164429, 3646, 458, 10, 26, "Message",ExpressionUUID->"a6c5f0ff-3356-4c42-b883-ce45e5cc4f41"], -Cell[164890, 3658, 170, 3, 33, "Output",ExpressionUUID->"546f133a-4a8e-8d44-937d-5fc3ea2401d8"] +Cell[16732, 566, 138, 3, 66, "Input",ExpressionUUID->"6bdd48c9-606a-47e3-8d77-8a971e25ae45"], +Cell[16873, 571, 260, 5, 75, "Output",ExpressionUUID->"8d5e3cb0-0cf5-4466-8d6a-6ecf07d3dd2e"] }, Open ]], Cell[CellGroupData[{ -Cell[165097, 3666, 2247, 64, 62, "Input",ExpressionUUID->"6f0ad284-4db3-da47-b8dc-45830eedfe9c"], -Cell[167347, 3732, 522, 11, 38, "Message",ExpressionUUID->"2e7d173d-070f-de49-a3c2-9964fb888ede"], -Cell[167872, 3745, 526, 11, 38, "Message",ExpressionUUID->"04b23985-5685-d344-a2ed-9886796baf32"], -Cell[168401, 3758, 528, 11, 38, "Message",ExpressionUUID->"ccdd27f2-bd64-f442-a708-cfb1052c7f86"], -Cell[168932, 3771, 458, 10, 26, "Message",ExpressionUUID->"384ce3fd-4914-6b49-b10c-84d885ed65d6"], -Cell[169393, 3783, 175, 3, 33, "Output",ExpressionUUID->"8865a4e5-7fd3-3c49-a115-94c8c5479389"] +Cell[17170, 581, 223, 5, 66, "Input",ExpressionUUID->"28e5ef3d-8836-4b8b-b9c3-a61da2dbfbcf"], +Cell[17396, 588, 269, 6, 75, "Output",ExpressionUUID->"83fdab78-1fc9-4885-aa2c-d5b9ab4cffab"] }, Open ]], Cell[CellGroupData[{ -Cell[169605, 3791, 2221, 64, 62, "Input",ExpressionUUID->"b2dda819-6f34-5c49-bc62-303d815946e5"], -Cell[171829, 3857, 522, 11, 38, "Message",ExpressionUUID->"958049e8-43e1-cc46-81fb-5b3fe1a5d9ee"], -Cell[172354, 3870, 524, 11, 38, "Message",ExpressionUUID->"6ed73f20-f975-a34c-a5a3-af58e9ecd7ed"], -Cell[172881, 3883, 528, 11, 38, "Message",ExpressionUUID->"4ce11323-2f48-da4f-84f8-593751381024"], -Cell[173412, 3896, 458, 10, 26, "Message",ExpressionUUID->"330905cd-5b42-604b-aaf8-fbac43108165"], -Cell[173873, 3908, 170, 3, 33, "Output",ExpressionUUID->"020ade62-ec43-7549-8079-7ac012e004c4"] +Cell[17702, 599, 138, 3, 66, "Input",ExpressionUUID->"5c28b10c-735d-4661-a1c2-55e9b6ea4a8a"], +Cell[17843, 604, 260, 5, 75, "Output",ExpressionUUID->"40d42391-3305-4ab1-86b2-ef08748814c2"] }, Open ]], Cell[CellGroupData[{ -Cell[174080, 3916, 2221, 64, 62, "Input",ExpressionUUID->"76a9e77d-1f4c-bb4a-bb13-1a175f609f7d"], -Cell[176304, 3982, 524, 11, 38, "Message",ExpressionUUID->"9a8eff2d-0d97-2e45-a2f3-ce0634115f7d"], -Cell[176831, 3995, 526, 11, 38, "Message",ExpressionUUID->"7dd7e17e-c74e-7145-b6ae-77a0f02c67f1"], -Cell[177360, 4008, 530, 11, 38, "Message",ExpressionUUID->"311ddb21-a730-0b41-b633-2d3bac87be85"], -Cell[177893, 4021, 458, 10, 26, "Message",ExpressionUUID->"ecdc16e1-316d-b342-a60b-0f3075607709"], -Cell[178354, 4033, 171, 3, 33, "Output",ExpressionUUID->"a7fc6f95-4067-504b-8754-5086d2659934"] +Cell[18140, 614, 326, 6, 66, "Input",ExpressionUUID->"a2bae7c2-8b8a-4c64-948a-54151bd4a28a"], +Cell[18469, 622, 253, 5, 75, "Output",ExpressionUUID->"a75bb78f-119b-48fc-b0c8-fa8af117f5bf"] }, Open ]], Cell[CellGroupData[{ -Cell[178562, 4041, 215, 6, 46, "Input",ExpressionUUID->"69dd09d9-152e-3e4d-9517-4de4791db2f4"], -Cell[178780, 4049, 175, 3, 33, "Output",ExpressionUUID->"96bb6c6a-f128-024e-85ce-f8a6083a68c6"] -}, Open ]], -Cell[178970, 4055, 245, 5, 29, "Input",ExpressionUUID->"6ecc7e8c-a7c5-354e-b168-749729cd7104"], -Cell[CellGroupData[{ -Cell[179240, 4064, 623, 20, 51, "Input",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], -Cell[179866, 4086, 172, 3, 33, "Output",ExpressionUUID->"fecac54e-ac70-c448-b60d-60e5d8aa9072"] +Cell[18759, 632, 302, 6, 66, "Input",ExpressionUUID->"ef64e7ce-f7c5-409b-83f9-9929007e2a69"], +Cell[19064, 640, 259, 5, 75, "Output",ExpressionUUID->"60b2213c-6129-4f9b-882f-3626bb753259"] }, Open ]], Cell[CellGroupData[{ -Cell[180075, 4094, 170, 5, 55, "Input",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], -Cell[180248, 4101, 172, 3, 33, "Output",ExpressionUUID->"31e41e93-aaef-1b4f-a5e6-3cad86684dfc"] +Cell[19360, 650, 223, 5, 66, "Input",ExpressionUUID->"02cfe06e-a2c5-47f2-bd0e-da365d14055b"], +Cell[19586, 657, 250, 5, 75, "Output",ExpressionUUID->"11168aca-c5f6-4e28-a7b9-10bf8d3da8de"] }, Open ]], Cell[CellGroupData[{ -Cell[180457, 4109, 181, 5, 43, "Input",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], -Cell[180641, 4116, 172, 3, 33, "Output",ExpressionUUID->"d20f2acf-afe0-0844-b0cd-0cdce2394573"] +Cell[19873, 667, 354, 11, 96, "Input",ExpressionUUID->"34054da0-34c4-4ed2-b5e7-ba513c08970f"], +Cell[20230, 680, 273, 5, 75, "Output",ExpressionUUID->"d706937e-4232-4d2e-9ade-32e4cb6ba51e"] }, Open ]], Cell[CellGroupData[{ -Cell[180850, 4124, 6055, 185, 195, "Input",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], -Cell[186908, 4311, 174, 3, 33, "Output",ExpressionUUID->"ec544098-6efd-4845-b84f-33e39ead67c9"] +Cell[20540, 690, 354, 11, 96, "Input",ExpressionUUID->"6973c3cf-3f46-4d19-8fbc-9846d4d6f09a"], +Cell[20897, 703, 290, 6, 75, "Output",ExpressionUUID->"edc0225a-fcad-40b4-bbb6-ec17b380955b"] }, Open ]], Cell[CellGroupData[{ -Cell[187119, 4319, 368, 9, 41, "Input",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], -Cell[187490, 4330, 173, 3, 33, "Output",ExpressionUUID->"85f4fe6d-1167-7a40-b761-0a55e5251875"] +Cell[21224, 714, 998, 27, 184, "Input",ExpressionUUID->"d7e713ef-32a0-45b6-811b-285e81ec9257"], +Cell[22225, 743, 274, 5, 75, "Output",ExpressionUUID->"a116a9c3-c3a5-46a1-aa13-2ee22a0829c7"] }, Open ]], Cell[CellGroupData[{ -Cell[187700, 4338, 6122, 187, 195, "Input",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], -Cell[193825, 4527, 175, 3, 33, "Output",ExpressionUUID->"53db8250-199b-594a-8ebd-fc9cc43217e3"] +Cell[22536, 753, 203, 4, 66, "Input",ExpressionUUID->"c78ba437-3544-44ae-a68a-2918bbc821f8"], +Cell[22742, 759, 251, 5, 75, "Output",ExpressionUUID->"7032efca-8a24-4818-b7d3-3e93ecbdf6c0"] }, Open ]], Cell[CellGroupData[{ -Cell[194037, 4535, 368, 9, 41, "Input",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], -Cell[194408, 4546, 170, 3, 33, "Output",ExpressionUUID->"0013bb3e-54d0-e343-9869-cf63da2eecbd"] +Cell[23030, 769, 331, 6, 66, "Input",ExpressionUUID->"ebfbd65d-60e9-4c6b-8cd5-97cf7e7b59e6"], +Cell[23364, 777, 230, 4, 75, "Output",ExpressionUUID->"3b160b7e-adb2-4621-8abc-6580c062fce6"] +}, Open ]], +Cell[23609, 784, 177, 3, 66, "Input",ExpressionUUID->"a7681eef-67d2-4f8d-a607-83e1b8eb15d3"], +Cell[CellGroupData[{ +Cell[23811, 791, 331, 6, 66, "Input",ExpressionUUID->"ba79384a-2558-4f42-90b9-a9174c76935e"], +Cell[24145, 799, 234, 4, 75, "Output",ExpressionUUID->"e9aeeae4-8c37-408a-b6b6-6a96b59fb57c"] +}, Open ]], +Cell[24394, 806, 177, 3, 66, "Input",ExpressionUUID->"90cd403c-b3c8-44af-89f3-c87b24208c4f"], +Cell[CellGroupData[{ +Cell[24596, 813, 333, 6, 66, "Input",ExpressionUUID->"231f573a-63ae-4cab-a335-c22117bf3178"], +Cell[24932, 821, 231, 4, 75, "Output",ExpressionUUID->"0716c625-fc30-4fc8-9286-670a022ea3d4"] +}, Open ]], +Cell[25178, 828, 177, 3, 66, "Input",ExpressionUUID->"081a4ceb-c4d7-4ac4-af60-22b59f2c6c7d"], +Cell[CellGroupData[{ +Cell[25380, 835, 357, 6, 66, "Input",ExpressionUUID->"a2a0a3bc-e8db-4bae-b7be-e050d9292d34"], +Cell[25740, 843, 230, 4, 75, "Output",ExpressionUUID->"1cf20bfd-75cc-40f7-9b75-d0d27e97664f"] +}, Open ]], +Cell[25985, 850, 175, 3, 66, "Input",ExpressionUUID->"73f6a3e2-e8b4-4d89-8532-3cdb6911efa1"], +Cell[CellGroupData[{ +Cell[26185, 857, 303, 6, 66, "Input",ExpressionUUID->"b3215d13-b4cb-4fd6-8407-e0b6af7f32f0"], +Cell[26491, 865, 232, 4, 75, "Output",ExpressionUUID->"566ed76e-32cb-4804-8e41-5f1289ea131e"] +}, Open ]], +Cell[26738, 872, 175, 3, 66, "Input",ExpressionUUID->"f8468766-c01d-4218-9357-b27f88ed876c"], +Cell[CellGroupData[{ +Cell[26938, 879, 309, 6, 66, "Input",ExpressionUUID->"e697212f-4ac1-4f24-b113-4b8b823d4160"], +Cell[27250, 887, 233, 4, 75, "Output",ExpressionUUID->"b30e7d73-c3ee-4932-9a14-c35bb895f77b"] +}, Open ]], +Cell[27498, 894, 177, 3, 66, "Input",ExpressionUUID->"e1140db4-a145-41f1-aa15-c22c84d26e51"], +Cell[CellGroupData[{ +Cell[27700, 901, 331, 6, 66, "Input",ExpressionUUID->"67830d0d-3b05-499f-9f43-f9e2a2e96c1f"], +Cell[28034, 909, 235, 4, 75, "Output",ExpressionUUID->"1b24339f-0d5e-4de8-8cda-513396a0a437"] +}, Open ]], +Cell[28284, 916, 176, 3, 66, "Input",ExpressionUUID->"95a2cd4c-f71b-407d-a8c8-42d33e1b5db5"], +Cell[CellGroupData[{ +Cell[28485, 923, 280, 5, 66, "Input",ExpressionUUID->"76b73b14-23cc-4e57-b98e-07a0e5c48928"], +Cell[28768, 930, 232, 4, 75, "Output",ExpressionUUID->"b32d8e2e-2248-4cbb-863d-6e4b1ca4a65d"] +}, Open ]], +Cell[29015, 937, 179, 3, 66, "Input",ExpressionUUID->"47dbed8a-06d7-4a89-bed1-7f0f0e09af87"], +Cell[CellGroupData[{ +Cell[29219, 944, 19813, 486, 5405, "Input",ExpressionUUID->"977a22c1-7f05-4ef0-ab0f-3487f42964a3"], +Cell[49035, 1432, 271, 5, 75, "Output",ExpressionUUID->"87ac0de1-f633-4baa-aeb4-953445646a3a"] }, Open ]], Cell[CellGroupData[{ -Cell[194615, 4554, 2663, 88, 115, "Input",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], -Cell[197281, 4644, 173, 3, 33, "Output",ExpressionUUID->"96d8705a-f744-d447-bad0-55fe1d703f38"] +Cell[49343, 1442, 19752, 490, 5343, "Input",ExpressionUUID->"0154fad5-7f06-4a30-8cc3-5a2d45318328"], +Cell[69098, 1934, 266, 5, 75, "Output",ExpressionUUID->"f024000d-7527-4f5c-a875-84a8e4c887cc"] }, Open ]], Cell[CellGroupData[{ -Cell[197491, 4652, 2603, 85, 115, "Input",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], -Cell[200097, 4739, 172, 3, 33, "Output",ExpressionUUID->"bad41b21-8b15-a74b-a641-622c6584a958"] +Cell[69401, 1944, 19752, 484, 5342, "Input",ExpressionUUID->"8b62c611-b190-42db-9d66-9023afda65c0"], +Cell[89156, 2430, 287, 6, 75, "Output",ExpressionUUID->"ca1d9fd8-f604-4b10-8672-36682db5079e"] }, Open ]], Cell[CellGroupData[{ -Cell[200306, 4747, 3712, 118, 172, "Input",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], -Cell[204021, 4867, 174, 3, 33, "Output",ExpressionUUID->"a42f993d-5633-3546-ae09-6931972f9312"] +Cell[89480, 2441, 22538, 554, 6074, "Input",ExpressionUUID->"41b0e6b5-d875-4a41-bddc-b96726f30b8e"], +Cell[112021, 2997, 288, 6, 75, "Output",ExpressionUUID->"2e9b67d2-1d0a-4210-ba7d-fc6651a8d8e9"] }, Open ]], Cell[CellGroupData[{ -Cell[204232, 4875, 2052, 59, 92, "Input",ExpressionUUID->"d6aa822f-4140-174a-8e29-c889dba5c0d8"], -Cell[206287, 4936, 574, 12, 38, "Message",ExpressionUUID->"91f9ae14-8766-3848-9c79-ec46ad6af7ea"], -Cell[206864, 4950, 580, 12, 38, "Message",ExpressionUUID->"2440fadc-b12b-424f-a600-97a0a8c9f031"], -Cell[207447, 4964, 582, 12, 38, "Message",ExpressionUUID->"d4d1d26f-ac2b-a949-95b4-8d60af02cc4b"], -Cell[208032, 4978, 456, 10, 26, "Message",ExpressionUUID->"0cb59396-7a19-6b43-af2b-0a0ce0427b94"], -Cell[208491, 4990, 171, 3, 33, "Output",ExpressionUUID->"3ceb430a-d440-e040-b6a8-a18a3884b326"] +Cell[112346, 3008, 22539, 554, 6074, "Input",ExpressionUUID->"f5dfe48c-c744-404c-a83e-906f1d590bad"], +Cell[134888, 3564, 291, 6, 75, "Output",ExpressionUUID->"189fe403-7aba-468e-b5ec-d167d4ae7c02"] }, Open ]], Cell[CellGroupData[{ -Cell[208699, 4998, 2054, 59, 92, "Input",ExpressionUUID->"46f3f057-22eb-c143-af7a-23ddab00799c"], -Cell[210756, 5059, 574, 12, 26, "Message",ExpressionUUID->"ccb81c35-09e9-854b-9187-d46e8624546d"], -Cell[211333, 5073, 578, 12, 26, "Message",ExpressionUUID->"6dff6307-9a24-c74d-90d8-2f18b14858dc"], -Cell[211914, 5087, 582, 12, 26, "Message",ExpressionUUID->"11045565-b757-154a-b614-eb73b2dcbc5f"], -Cell[212499, 5101, 458, 10, 26, "Message",ExpressionUUID->"af9dd0c6-d446-9940-b908-9b52fbb611cb"], -Cell[212960, 5113, 169, 3, 33, "Output",ExpressionUUID->"d39c46b4-75c6-f741-b7fd-1a1fdbe4155f"] +Cell[135216, 3575, 25495, 627, 6806, "Input",ExpressionUUID->"3dce4f21-8853-4356-9c51-0e01f426e7d3"], +Cell[160714, 4204, 290, 6, 75, "Output",ExpressionUUID->"7c6bc069-444a-46aa-bdbc-7dac8546bf9c"] }, Open ]], Cell[CellGroupData[{ -Cell[213166, 5121, 2030, 55, 51, "Input",ExpressionUUID->"0137ed47-cd78-284a-910a-31d165f1571c"], -Cell[215199, 5178, 20326, 381, 238, "Output",ExpressionUUID->"5f98f6f4-700b-0a4b-af1c-32125fed3e6a"] -}, Open ]], -Cell[235540, 5562, 2144, 61, 92, "Input",ExpressionUUID->"00a32bc3-df79-9e43-8f20-d4884962c12d"], -Cell[237687, 5625, 138, 3, 29, "Input",ExpressionUUID->"344da507-9044-ef47-aa8c-99f282e3d6d3"], -Cell[CellGroupData[{ -Cell[237850, 5632, 1616, 48, 67, "Input",ExpressionUUID->"f13d1bd8-d153-ae43-b041-68b993e77854"], -Cell[239469, 5682, 592, 12, 38, "Message",ExpressionUUID->"318da404-8df4-c540-9269-2b249c7e148e"], -Cell[240064, 5696, 597, 12, 38, "Message",ExpressionUUID->"42939765-c33b-c147-a25b-bfa31c71a3cb"], -Cell[240664, 5710, 599, 12, 38, "Message",ExpressionUUID->"63b912c5-afab-654e-9609-c4b849e9abfe"], -Cell[241266, 5724, 458, 10, 26, "Message",ExpressionUUID->"2c8999d2-d9b5-ef4e-a59d-c314a02b2b2a"], -Cell[241727, 5736, 172, 3, 33, "Output",ExpressionUUID->"52013fca-4692-bf47-a0cf-880d71f10fc1"] +Cell[161041, 4215, 134, 3, 66, "Input",ExpressionUUID->"0c7b3f73-53fe-46f6-b876-55160b5b6f32"], +Cell[161178, 4220, 253, 5, 75, "Output",ExpressionUUID->"b86d1cc9-90bc-4b34-9ba1-2a64d2c0c604"] }, Open ]], Cell[CellGroupData[{ -Cell[241936, 5744, 2249, 64, 62, "Input",ExpressionUUID->"53e25fab-b431-cc42-a467-e4dea0353ed0"], -Cell[244188, 5810, 576, 12, 38, "Message",ExpressionUUID->"285f997a-25b4-f647-9523-e0dd05446bae"], -Cell[244767, 5824, 580, 12, 38, "Message",ExpressionUUID->"b1d2a50d-b27b-ca46-afcb-af9e8d59323e"], -Cell[245350, 5838, 582, 12, 38, "Message",ExpressionUUID->"a36c085c-b95e-724c-a04e-30924ab7ac52"], -Cell[245935, 5852, 456, 10, 26, "Message",ExpressionUUID->"976edb68-80f3-5a4d-a255-2f217ec84bfa"], -Cell[246394, 5864, 171, 3, 33, "Output",ExpressionUUID->"b7107287-e519-1249-9ef0-b745347bdb78"] +Cell[161468, 4230, 134, 3, 66, "Input",ExpressionUUID->"3e524e61-6281-4bfd-8c3d-124dde1d850b"], +Cell[161605, 4235, 254, 5, 75, "Output",ExpressionUUID->"28b2ad46-611c-4eed-b39f-7fbe339cc12c"] }, Open ]], Cell[CellGroupData[{ -Cell[246602, 5872, 2223, 64, 62, "Input",ExpressionUUID->"b18c819e-620a-d449-97d6-547e3a6fa152"], -Cell[248828, 5938, 574, 12, 38, "Message",ExpressionUUID->"2877ed71-3ee8-8044-94b0-c606083c07b7"], -Cell[249405, 5952, 578, 12, 38, "Message",ExpressionUUID->"34cfc5a5-16b6-f24f-acdf-b4e2d29b1bef"], -Cell[249986, 5966, 580, 12, 38, "Message",ExpressionUUID->"7fe7bdbe-3892-5043-b38d-13721c83d41a"], -Cell[250569, 5980, 458, 10, 26, "Message",ExpressionUUID->"93dfb0cd-55fb-1b4a-b671-37d180b9d444"], -Cell[251030, 5992, 173, 3, 33, "Output",ExpressionUUID->"372279b5-5e4a-b545-a159-384b26aa5ab4"] +Cell[161896, 4245, 1148, 40, 246, "Input",ExpressionUUID->"635f4e4a-0c8e-4483-a3a6-0e96e17e79ba"], +Cell[163047, 4287, 269, 5, 75, "Output",ExpressionUUID->"0fb17b6d-48ce-45c7-800b-a73a61d8374b"] }, Open ]], Cell[CellGroupData[{ -Cell[251240, 6000, 2221, 64, 62, "Input",ExpressionUUID->"22ab74c7-5916-9440-9d7d-c3e0f6ab8836"], -Cell[253464, 6066, 574, 12, 38, "Message",ExpressionUUID->"c14c35e1-e487-c742-a0da-128fdb9754d4"], -Cell[254041, 6080, 578, 12, 38, "Message",ExpressionUUID->"4396ed61-4d7e-6144-80f0-6d5649cfcb04"], -Cell[254622, 6094, 582, 12, 38, "Message",ExpressionUUID->"00fa2dcd-bc0b-9e44-9f00-15116f344aca"], -Cell[255207, 6108, 455, 10, 26, "Message",ExpressionUUID->"78b12bf1-7793-9341-ad5f-c7be406b8be6"], -Cell[255665, 6120, 170, 3, 33, "Output",ExpressionUUID->"9454fa52-ff74-094b-8081-2fc86cf96043"] +Cell[163353, 4297, 1045, 36, 246, "Input",ExpressionUUID->"16076403-4cf2-4dd2-adeb-8ec26990a906"], +Cell[164401, 4335, 288, 6, 75, "Output",ExpressionUUID->"99dea3a3-ac4f-4919-91ca-b0d5f01eac97"] }, Open ]], Cell[CellGroupData[{ -Cell[255872, 6128, 215, 6, 46, "Input",ExpressionUUID->"f9c66987-c237-7a40-a006-e20e260dbdcb"], -Cell[256090, 6136, 174, 3, 33, "Output",ExpressionUUID->"175eda7e-c091-3e4f-86ac-3148f0a9e904"] -}, Open ]], -Cell[256279, 6142, 249, 5, 29, "Input",ExpressionUUID->"770a9ed7-7938-9e48-be64-c31719ef3a6b"], -Cell[CellGroupData[{ -Cell[256553, 6151, 558, 19, 51, "Input",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], -Cell[257114, 6172, 169, 3, 33, "Output",ExpressionUUID->"e757c22c-d836-6c4a-a9f7-93553c4bb232"] +Cell[164726, 4346, 1148, 40, 246, "Input",ExpressionUUID->"eace7e71-d77b-4244-9165-1769e36be22d"], +Cell[165877, 4388, 272, 5, 75, "Output",ExpressionUUID->"6bc418f6-0e0c-4cb4-9311-82e8028c408a"] }, Open ]], Cell[CellGroupData[{ -Cell[257320, 6180, 170, 5, 55, "Input",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], -Cell[257493, 6187, 173, 3, 33, "Output",ExpressionUUID->"7f3ee547-87eb-d74d-8f21-a8d42f1dde52"] +Cell[166186, 4398, 112, 2, 66, "Input",ExpressionUUID->"84d17c99-5bd0-4360-9f94-db9e257c08b8"], +Cell[166301, 4402, 269, 5, 75, "Output",ExpressionUUID->"0462b6f9-4c07-469b-9f46-ddc24cee93db"] }, Open ]], Cell[CellGroupData[{ -Cell[257703, 6195, 181, 5, 43, "Input",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], -Cell[257887, 6202, 173, 3, 33, "Output",ExpressionUUID->"0603b6e6-a8b7-1e45-9b15-2769b7fbc373"] +Cell[166607, 4412, 112, 2, 66, "Input",ExpressionUUID->"f1c9aaa0-649f-41fd-b4b5-5cdf7d9e4994"], +Cell[166722, 4416, 290, 6, 75, "Output",ExpressionUUID->"1a591bd3-666f-466d-a23d-6d2b845c8fb5"] }, Open ]], Cell[CellGroupData[{ -Cell[258097, 6210, 6055, 185, 195, "Input",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], -Cell[264155, 6397, 174, 3, 33, "Output",ExpressionUUID->"8b7a346f-cdda-e24e-b924-d6cfb1b3119a"] +Cell[167049, 4427, 112, 2, 66, "Input",ExpressionUUID->"a0471ab2-6038-4a17-ab69-10536cd0ccac"], +Cell[167164, 4431, 287, 6, 75, "Output",ExpressionUUID->"77aa9a60-c9bf-4578-9ff1-4206379f9f14"] }, Open ]], Cell[CellGroupData[{ -Cell[264366, 6405, 368, 9, 41, "Input",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], -Cell[264737, 6416, 172, 3, 33, "Output",ExpressionUUID->"3354b35a-acef-b846-b770-8d2e77b8f68b"] +Cell[167488, 4442, 112, 2, 66, "Input",ExpressionUUID->"3ca58a31-103c-45b8-a596-f20c7d5d0eb6"], +Cell[167603, 4446, 269, 5, 75, "Output",ExpressionUUID->"e694da90-2caf-44c5-afc6-e9e2810f4efe"] }, Open ]], Cell[CellGroupData[{ -Cell[264946, 6424, 6122, 187, 195, "Input",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], -Cell[271071, 6613, 172, 3, 33, "Output",ExpressionUUID->"7b76721b-3d4c-c544-9113-83ba4f36ae7f"] +Cell[167909, 4456, 111, 2, 66, "Input",ExpressionUUID->"ea2830d3-1c19-45c3-9c69-02e548b27a25"], +Cell[168023, 4460, 272, 5, 75, "Output",ExpressionUUID->"2b8dfe4f-27e8-4e22-bb12-4b4482cf3b4e"] }, Open ]], Cell[CellGroupData[{ -Cell[271280, 6621, 368, 9, 41, "Input",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], -Cell[271651, 6632, 170, 3, 33, "Output",ExpressionUUID->"e9346704-c478-364d-b5eb-0aabe0e2e350"] +Cell[168332, 4470, 111, 2, 66, "Input",ExpressionUUID->"809f0a50-4913-458a-a1e7-cb270263a73f"], +Cell[168446, 4474, 272, 5, 75, "Output",ExpressionUUID->"9b8c15c5-99bd-403e-8850-0382767a19d2"] }, Open ]], Cell[CellGroupData[{ -Cell[271858, 6640, 2663, 88, 115, "Input",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], -Cell[274524, 6730, 173, 3, 33, "Output",ExpressionUUID->"33b7f444-6995-e54b-a2a6-ad09016b1850"] +Cell[168755, 4484, 501, 17, 125, "Input",ExpressionUUID->"e52951a6-435a-47e8-b932-62cc03f01a8e"], +Cell[169259, 4503, 287, 6, 75, "Output",ExpressionUUID->"487fe44e-81b3-4b9a-87ad-a2e075b0b7c6"] }, Open ]], Cell[CellGroupData[{ -Cell[274734, 6738, 2603, 85, 115, "Input",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], -Cell[277340, 6825, 172, 3, 33, "Output",ExpressionUUID->"76ba8e46-11c7-f54d-bfb2-cca1b455c838"] +Cell[169583, 4514, 501, 17, 125, "Input",ExpressionUUID->"f7f11b32-3aac-4fe6-899b-165a4303e96e"], +Cell[170087, 4533, 283, 6, 75, "Output",ExpressionUUID->"2b99fdb6-f533-4ed5-8c0d-c06a80cc56c1"] }, Open ]], Cell[CellGroupData[{ -Cell[277549, 6833, 3712, 118, 172, "Input",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], -Cell[281264, 6953, 172, 3, 33, "Output",ExpressionUUID->"f7c29774-2634-5546-ab63-4d3ac6889f79"] +Cell[170407, 4544, 1792, 61, 420, "Input",ExpressionUUID->"81bc1609-b94f-4e55-9120-4324a33ca2f3"], +Cell[172202, 4607, 271, 5, 75, "Output",ExpressionUUID->"722935c4-2c7a-43e1-8248-3b27ad3bfa8e"] }, Open ]], Cell[CellGroupData[{ -Cell[281473, 6961, 2052, 59, 92, "Input",ExpressionUUID->"55d51961-97f2-ed4d-8bf8-8a461d652ab4"], -Cell[283528, 7022, 573, 12, 38, "Message",ExpressionUUID->"3d5a1265-fb27-0b41-a549-5e326650d270"], -Cell[284104, 7036, 573, 12, 38, "Message",ExpressionUUID->"0726d23e-32d7-7a41-8d7f-0b62fec75437"], -Cell[284680, 7050, 579, 12, 38, "Message",ExpressionUUID->"b47482ef-bec0-234f-aeb7-9009a378a36d"], -Cell[285262, 7064, 458, 10, 26, "Message",ExpressionUUID->"e5e35e3a-0e40-c249-b6f3-c2a6a5a48740"], -Cell[285723, 7076, 170, 3, 33, "Output",ExpressionUUID->"b33776d0-2a41-694b-9af8-c4d483383e7c"] +Cell[172510, 4617, 1105, 37, 299, "Input",ExpressionUUID->"ae67d1a1-c662-498f-a276-9ee8d2caa351"], +Cell[173618, 4656, 284, 6, 75, "Output",ExpressionUUID->"907b9465-e011-4ead-815a-9da0021532cf"] }, Open ]], Cell[CellGroupData[{ -Cell[285930, 7084, 2052, 59, 92, "Input",ExpressionUUID->"9704b9d3-b449-2144-9970-6a7de047241d"], -Cell[287985, 7145, 573, 12, 38, "Message",ExpressionUUID->"ffb6a3c0-c488-cd48-870e-d66051362026"], -Cell[288561, 7159, 575, 12, 38, "Message",ExpressionUUID->"ca3fb11a-47f9-c542-a5c9-6e0087e110b9"], -Cell[289139, 7173, 579, 12, 38, "Message",ExpressionUUID->"7e4a0639-38a1-f74e-ab8e-5264cad2d48c"], -Cell[289721, 7187, 458, 10, 26, "Message",ExpressionUUID->"101eaea3-75b1-d942-9914-a0fe8a6e2f65"], -Cell[290182, 7199, 169, 3, 33, "Output",ExpressionUUID->"921a9c76-dcb9-484a-bc19-88ddead9467a"] +Cell[173939, 4667, 1822, 62, 420, "Input",ExpressionUUID->"ea3ceea0-934b-4be6-8221-5a3c3c00657d"], +Cell[175764, 4731, 268, 5, 75, "Output",ExpressionUUID->"c288ca2f-aae0-4da7-b3d2-8a15dfecf03e"] }, Open ]], Cell[CellGroupData[{ -Cell[290388, 7207, 2028, 55, 51, "Input",ExpressionUUID->"0fd90636-7592-fc40-bf9d-ae1cb915c656"], -Cell[292419, 7264, 20296, 381, 236, "Output",ExpressionUUID->"09d149ec-0259-a345-a282-743f783e7913"] +Cell[176069, 4741, 1635, 54, 101, "Input",ExpressionUUID->"57ee0694-2a18-4150-9247-6165f96999ff"], +Cell[177707, 4797, 267, 5, 41, "Output",ExpressionUUID->"5d1a1f43-33c3-43da-974c-99fe009f9fec"] }, Open ]], Cell[CellGroupData[{ -Cell[312752, 7650, 2146, 61, 92, "Input",ExpressionUUID->"90696e8b-5a2d-314c-8d58-ac84cb8f4d66"], -Cell[314901, 7713, 500, 11, 38, "Message",ExpressionUUID->"526ffad5-83ae-c149-9912-e494135b3fca"], -Cell[315404, 7726, 505, 11, 38, "Message",ExpressionUUID->"1adb1680-bdf2-4144-bcc9-7270c61e97b7"], -Cell[315912, 7739, 509, 11, 38, "Message",ExpressionUUID->"9e5d82d5-642b-cb46-8232-be5a5ca7050d"], -Cell[316424, 7752, 458, 10, 26, "Message",ExpressionUUID->"ef931413-f964-5b45-a755-76cab1ab5309"], -Cell[316885, 7764, 39609, 697, 232, "Output",ExpressionUUID->"23497d29-f516-664b-9ee0-ea8f6d88359c"] +Cell[178011, 4807, 1635, 54, 101, "Input",ExpressionUUID->"388b4d86-49b2-4271-a4a0-3c7028dff9d2"], +Cell[179649, 4863, 268, 5, 41, "Output",ExpressionUUID->"656d020b-75a2-4f99-a8e2-2431d894f988"] }, Open ]], -Cell[356509, 8464, 209, 5, 29, "Input",ExpressionUUID->"ea848967-083d-ea47-bce0-5c3b93725916"], +Cell[179932, 4871, 251, 5, 56, "Input",ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], +Cell[180186, 4878, 253, 5, 56, "Input",ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], Cell[CellGroupData[{ -Cell[356743, 8473, 1616, 48, 67, "Input",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], -Cell[358362, 8523, 589, 12, 38, "Message",ExpressionUUID->"100796fd-6fde-3c41-9088-c2d3ae2f8aeb"], -Cell[358954, 8537, 595, 12, 38, "Message",ExpressionUUID->"c91e75b4-9e2b-1e49-a5d5-453d5f87b5e3"], -Cell[359552, 8551, 596, 12, 38, "Message",ExpressionUUID->"5d8ad6a4-5b83-df49-8c4d-081081895528"], -Cell[360151, 8565, 458, 10, 26, "Message",ExpressionUUID->"26eed7af-5e0a-e840-9956-caca06166010"], -Cell[360612, 8577, 171, 3, 33, "Output",ExpressionUUID->"e4e35b92-e786-3044-bf1d-9c587b1357a2"] +Cell[180464, 4887, 1301, 43, 61, "Input",ExpressionUUID->"5e48fe0c-b3e8-2b40-82cb-716b23b2f326"], +Cell[181768, 4932, 178, 3, 41, "Output",ExpressionUUID->"1db85c02-7ca3-154e-854d-2c36f89709c4"] }, Open ]], Cell[CellGroupData[{ -Cell[360820, 8585, 2249, 64, 62, "Input",ExpressionUUID->"80bba3bc-d8f7-1c4b-9262-0895c02ffd8f"], -Cell[363072, 8651, 573, 12, 38, "Message",ExpressionUUID->"6b65fc2b-3e1d-714d-aeb9-43978836a621"], -Cell[363648, 8665, 573, 12, 38, "Message",ExpressionUUID->"c4736a05-b0e1-5e49-b581-f3ce4c83fe21"], -Cell[364224, 8679, 579, 12, 38, "Message",ExpressionUUID->"ae8eb83c-0205-8046-8445-e249896b7ee5"], -Cell[364806, 8693, 458, 10, 26, "Message",ExpressionUUID->"5072d590-62c3-7a47-ae1b-6dd617a0b9dc"], -Cell[365267, 8705, 174, 3, 70, "Output",ExpressionUUID->"8dd7e1f9-bbea-d84b-ad0e-8922158aee9e"] +Cell[181983, 4940, 910, 31, 73, "Input",ExpressionUUID->"e4db2648-4e1a-2c46-83ab-fcd932c3b663"], +Cell[182896, 4973, 175, 3, 41, "Output",ExpressionUUID->"78ed190c-23cd-4d45-867a-2b08174b715f"] }, Open ]], Cell[CellGroupData[{ -Cell[365478, 8713, 2221, 64, 70, "Input",ExpressionUUID->"57976ffc-56f1-604b-8519-bead95265db8"], -Cell[367702, 8779, 573, 12, 70, "Message",ExpressionUUID->"7ab877ea-0e4b-f948-97c2-7ebafb7901b1"], -Cell[368278, 8793, 575, 12, 70, "Message",ExpressionUUID->"a87a57c5-24bc-dc4a-888a-b3c0095c10c4"], -Cell[368856, 8807, 577, 12, 70, "Message",ExpressionUUID->"d8af7fb1-1d43-664e-ae2d-698eaa818746"], -Cell[369436, 8821, 456, 10, 70, "Message",ExpressionUUID->"7abec434-52e8-c64c-ac86-90da0b27b8aa"], -Cell[369895, 8833, 172, 3, 70, "Output",ExpressionUUID->"164a4c34-f121-a445-b434-e34aa59666ab"] +Cell[183108, 4981, 885, 30, 73, "Input",ExpressionUUID->"e4649c3d-e19e-ca42-95a0-23b66397f1fd"], +Cell[183996, 5013, 177, 3, 41, "Output",ExpressionUUID->"82ec2512-4fcb-ba44-b472-bb3a66bb622e"] }, Open ]], Cell[CellGroupData[{ -Cell[370104, 8841, 2219, 64, 70, "Input",ExpressionUUID->"cfa37210-3ae7-3f49-b290-f19508c6d2f1"], -Cell[372326, 8907, 571, 12, 70, "Message",ExpressionUUID->"92295db4-13f0-284e-8173-df7f8dd20dcf"], -Cell[372900, 8921, 573, 12, 70, "Message",ExpressionUUID->"c6280e41-1347-0f47-81a9-bcd3687b7b73"], -Cell[373476, 8935, 579, 12, 70, "Message",ExpressionUUID->"2aa0f4b1-01ca-4644-884e-b759d4a75412"], -Cell[374058, 8949, 458, 10, 70, "Message",ExpressionUUID->"ab3c3bff-179e-9f4e-b56a-87d1b4f6fc04"], -Cell[374519, 8961, 172, 3, 70, "Output",ExpressionUUID->"f5b8154f-e61e-6a4e-b068-b6c1916773ef"] +Cell[184210, 5021, 558, 19, 66, "Input",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], +Cell[184771, 5042, 173, 3, 41, "Output",ExpressionUUID->"9d53fa4a-be54-7b42-83bd-0a5560193c0f"] }, Open ]], Cell[CellGroupData[{ -Cell[374728, 8969, 211, 6, 70, "Input",ExpressionUUID->"7457b456-6d32-5b44-9679-346c5f5ac532"], -Cell[374942, 8977, 174, 3, 70, "Output",ExpressionUUID->"14434839-d5cf-b844-b849-b3b3102df434"] -}, Open ]] +Cell[184981, 5050, 623, 21, 66, "Input",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], +Cell[185607, 5073, 170, 3, 41, "Output",ExpressionUUID->"4107fa63-a138-df48-a95c-ec944a983800"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185814, 5081, 170, 5, 71, "Input",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], +Cell[185987, 5088, 173, 3, 41, "Output",ExpressionUUID->"f894fb1d-1550-5146-a259-dfa871655c2a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[186197, 5096, 170, 5, 69, "Input",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], +Cell[186370, 5103, 170, 3, 41, "Output",ExpressionUUID->"8d5b13a4-8c75-0f48-ab21-9720bb8c0cbc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[186577, 5111, 181, 5, 55, "Input",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], +Cell[186761, 5118, 171, 3, 41, "Output",ExpressionUUID->"4d4b493f-9f2d-1e41-979f-fb4d58d0e93a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[186969, 5126, 181, 5, 55, "Input",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], +Cell[187153, 5133, 173, 3, 41, "Output",ExpressionUUID->"e40db20b-c65e-4a45-ba96-abcb59b0d0ac"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187363, 5141, 6055, 185, 431, "Input",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], +Cell[193421, 5328, 175, 3, 41, "Output",ExpressionUUID->"cdf81fea-e12a-2b44-81a8-222b4bbf8a86"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193633, 5336, 368, 9, 53, "Input",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], +Cell[194004, 5347, 170, 3, 41, "Output",ExpressionUUID->"181dc1c8-632b-4b43-91c4-d3626d65bfc7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194211, 5355, 6122, 187, 431, "Input",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], +Cell[200336, 5544, 175, 3, 41, "Output",ExpressionUUID->"c7d972b4-764c-954a-8260-240d49cfcff6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[200548, 5552, 368, 9, 53, "Input",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], +Cell[200919, 5563, 172, 3, 41, "Output",ExpressionUUID->"c285a758-c3ad-974b-93c3-4cb0d4bdd2ae"] +}, Open ]], +Cell[CellGroupData[{ +Cell[201128, 5571, 2663, 88, 215, "Input",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], +Cell[203794, 5661, 173, 3, 41, "Output",ExpressionUUID->"5dc957f4-8f84-c54c-80a3-c76f756c5df4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[204004, 5669, 2603, 85, 215, "Input",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], +Cell[206610, 5756, 172, 3, 41, "Output",ExpressionUUID->"b4ee01d5-3415-494b-b28a-4587c8d8bb90"] +}, Open ]], +Cell[CellGroupData[{ +Cell[206819, 5764, 3712, 118, 316, "Input",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], +Cell[210534, 5884, 174, 3, 41, "Output",ExpressionUUID->"20c44e64-7085-8e4d-a9d6-f80b5532826e"] +}, Open ]], +Cell[210723, 5890, 138, 3, 36, "Input",ExpressionUUID->"ba4a3eff-9e3b-5e47-a896-3a959bbbf44d"], +Cell[CellGroupData[{ +Cell[210886, 5897, 2052, 59, 116, "Input",ExpressionUUID->"738a48f3-b38c-f441-aec4-53babaa73a14"], +Cell[212941, 5958, 524, 11, 29, "Message",ExpressionUUID->"bd0a7da1-672e-6b4e-afbd-4af379292e8d"], +Cell[213468, 5971, 526, 11, 29, "Message",ExpressionUUID->"9a8837e4-2afa-d145-83db-a88ef0e502bc"], +Cell[213997, 5984, 530, 11, 29, "Message",ExpressionUUID->"0aa4ed5d-b925-834d-b53a-95c75c4ff982"], +Cell[214530, 5997, 455, 10, 26, "Message",ExpressionUUID->"2742a735-9c26-7640-8a81-3e30eaffa353"], +Cell[214988, 6009, 172, 3, 41, "Output",ExpressionUUID->"d91a6bca-04d7-b84b-93cf-0695498dc4de"] +}, Open ]], +Cell[CellGroupData[{ +Cell[215197, 6017, 2054, 59, 116, "Input",ExpressionUUID->"86c33485-ed26-8f49-b3d0-7d040d3b48f0"], +Cell[217254, 6078, 524, 11, 29, "Message",ExpressionUUID->"2c553d54-16ec-9646-b6d7-75da3c367575"], +Cell[217781, 6091, 526, 11, 29, "Message",ExpressionUUID->"1c597fdf-5631-a84c-9feb-152df3629d86"], +Cell[218310, 6104, 528, 11, 29, "Message",ExpressionUUID->"48439b56-7b7d-fa4d-a4e2-5db2bbda0c77"], +Cell[218841, 6117, 456, 10, 26, "Message",ExpressionUUID->"66ce390f-34a9-df4d-9875-a339943ada86"], +Cell[219300, 6129, 170, 3, 41, "Output",ExpressionUUID->"2e46fa54-fabe-5040-8f8c-6829b7c76136"] +}, Open ]], +Cell[CellGroupData[{ +Cell[219507, 6137, 1938, 53, 63, "Input",ExpressionUUID->"f373fe4f-940c-0842-9236-63ec36d318ad"], +Cell[221448, 6192, 19994, 375, 285, "Output",ExpressionUUID->"fdd0f260-414f-a94a-8f26-cd86e676700c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[241479, 6572, 2092, 60, 116, "Input",ExpressionUUID->"24fa5db0-1063-354a-bd60-c117a27ff3e1"], +Cell[243574, 6634, 490, 11, 48, "Message",ExpressionUUID->"546a9ea9-5939-f84a-87c6-58844f58f330"], +Cell[244067, 6647, 493, 11, 48, "Message",ExpressionUUID->"b36bffd7-1c84-5c45-a847-b2c31968f579"], +Cell[244563, 6660, 508, 11, 33, "Message",ExpressionUUID->"c864bef7-fc73-d94b-8cde-14570cba8095"], +Cell[245074, 6673, 456, 10, 26, "Message",ExpressionUUID->"a2e62375-acd2-6740-bfd7-026877c5bd7b"], +Cell[245533, 6685, 61603, 1057, 290, "Output",ExpressionUUID->"d4eecdc9-263c-5b43-bb29-cd0ac1286793"] +}, Open ]], +Cell[307151, 7745, 2523, 71, 160, "Input",ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], +Cell[309677, 7818, 209, 5, 36, "Input",ExpressionUUID->"6d3700e1-f504-214a-a332-f16397f0b922"], +Cell[CellGroupData[{ +Cell[309911, 7827, 217, 7, 61, "Input",ExpressionUUID->"9051a5e3-bb9f-d941-bcca-598d0b6835be"], +Cell[310131, 7836, 169, 3, 41, "Output",ExpressionUUID->"07374b0a-4615-bf46-ab49-be8623cec410"] +}, Open ]], +Cell[CellGroupData[{ +Cell[310337, 7844, 1816, 53, 116, "Input",ExpressionUUID->"65a995ff-ff3d-634e-9bad-4a8a16073236"], +Cell[312156, 7899, 502, 11, 48, "Message",ExpressionUUID->"c1f83af1-416a-6240-b3fd-c1bfcc643459"], +Cell[312661, 7912, 506, 11, 48, "Message",ExpressionUUID->"5cfd3c4b-6190-2c4d-8479-b4ccd7090f94"], +Cell[313170, 7925, 509, 11, 48, "Message",ExpressionUUID->"288fc6c7-a3fe-9b48-9c0d-bba2713f7084"], +Cell[313682, 7938, 456, 10, 26, "Message",ExpressionUUID->"09478fd5-b212-2347-91e7-b9097bd6d61d"], +Cell[314141, 7950, 28560, 514, 290, "Output",ExpressionUUID->"f7784347-2042-c042-8970-b060f9535d9e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[342738, 8469, 1616, 48, 86, "Input",ExpressionUUID->"86381d88-1537-a242-9cff-0b432b61d63d"], +Cell[344357, 8519, 576, 12, 71, "Message",ExpressionUUID->"0a4bed5c-621d-a546-88e9-ce7d779c106a"], +Cell[344936, 8533, 582, 12, 71, "Message",ExpressionUUID->"80e3943d-459b-8b41-9869-50a6cf829ef8"], +Cell[345521, 8547, 584, 12, 71, "Message",ExpressionUUID->"36529169-7f05-ee43-8080-ce8fdd404b8d"], +Cell[346108, 8561, 458, 10, 26, "Message",ExpressionUUID->"a6c5f0ff-3356-4c42-b883-ce45e5cc4f41"], +Cell[346569, 8573, 170, 3, 41, "Output",ExpressionUUID->"546f133a-4a8e-8d44-937d-5fc3ea2401d8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[346776, 8581, 2247, 64, 81, "Input",ExpressionUUID->"6f0ad284-4db3-da47-b8dc-45830eedfe9c"], +Cell[349026, 8647, 522, 11, 48, "Message",ExpressionUUID->"2e7d173d-070f-de49-a3c2-9964fb888ede"], +Cell[349551, 8660, 526, 11, 48, "Message",ExpressionUUID->"04b23985-5685-d344-a2ed-9886796baf32"], +Cell[350080, 8673, 528, 11, 48, "Message",ExpressionUUID->"ccdd27f2-bd64-f442-a708-cfb1052c7f86"], +Cell[350611, 8686, 458, 10, 26, "Message",ExpressionUUID->"384ce3fd-4914-6b49-b10c-84d885ed65d6"], +Cell[351072, 8698, 175, 3, 41, "Output",ExpressionUUID->"8865a4e5-7fd3-3c49-a115-94c8c5479389"] +}, Open ]], +Cell[CellGroupData[{ +Cell[351284, 8706, 2221, 64, 81, "Input",ExpressionUUID->"b2dda819-6f34-5c49-bc62-303d815946e5"], +Cell[353508, 8772, 522, 11, 48, "Message",ExpressionUUID->"958049e8-43e1-cc46-81fb-5b3fe1a5d9ee"], +Cell[354033, 8785, 524, 11, 48, "Message",ExpressionUUID->"6ed73f20-f975-a34c-a5a3-af58e9ecd7ed"], +Cell[354560, 8798, 528, 11, 48, "Message",ExpressionUUID->"4ce11323-2f48-da4f-84f8-593751381024"], +Cell[355091, 8811, 458, 10, 26, "Message",ExpressionUUID->"330905cd-5b42-604b-aaf8-fbac43108165"], +Cell[355552, 8823, 170, 3, 41, "Output",ExpressionUUID->"020ade62-ec43-7549-8079-7ac012e004c4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[355759, 8831, 2221, 64, 81, "Input",ExpressionUUID->"76a9e77d-1f4c-bb4a-bb13-1a175f609f7d"], +Cell[357983, 8897, 524, 11, 48, "Message",ExpressionUUID->"9a8eff2d-0d97-2e45-a2f3-ce0634115f7d"], +Cell[358510, 8910, 526, 11, 48, "Message",ExpressionUUID->"7dd7e17e-c74e-7145-b6ae-77a0f02c67f1"], +Cell[359039, 8923, 530, 11, 48, "Message",ExpressionUUID->"311ddb21-a730-0b41-b633-2d3bac87be85"], +Cell[359572, 8936, 458, 10, 26, "Message",ExpressionUUID->"ecdc16e1-316d-b342-a60b-0f3075607709"], +Cell[360033, 8948, 171, 3, 41, "Output",ExpressionUUID->"a7fc6f95-4067-504b-8754-5086d2659934"] +}, Open ]], +Cell[CellGroupData[{ +Cell[360241, 8956, 215, 6, 60, "Input",ExpressionUUID->"69dd09d9-152e-3e4d-9517-4de4791db2f4"], +Cell[360459, 8964, 175, 3, 41, "Output",ExpressionUUID->"96bb6c6a-f128-024e-85ce-f8a6083a68c6"] +}, Open ]], +Cell[360649, 8970, 245, 5, 36, "Input",ExpressionUUID->"6ecc7e8c-a7c5-354e-b168-749729cd7104"], +Cell[CellGroupData[{ +Cell[360919, 8979, 623, 20, 66, "Input",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], +Cell[361545, 9001, 172, 3, 41, "Output",ExpressionUUID->"fecac54e-ac70-c448-b60d-60e5d8aa9072"] +}, Open ]], +Cell[CellGroupData[{ +Cell[361754, 9009, 170, 5, 71, "Input",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], +Cell[361927, 9016, 172, 3, 41, "Output",ExpressionUUID->"31e41e93-aaef-1b4f-a5e6-3cad86684dfc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[362136, 9024, 181, 5, 55, "Input",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], +Cell[362320, 9031, 172, 3, 41, "Output",ExpressionUUID->"d20f2acf-afe0-0844-b0cd-0cdce2394573"] +}, Open ]], +Cell[CellGroupData[{ +Cell[362529, 9039, 6055, 185, 431, "Input",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], +Cell[368587, 9226, 174, 3, 41, "Output",ExpressionUUID->"ec544098-6efd-4845-b84f-33e39ead67c9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[368798, 9234, 368, 9, 53, "Input",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], +Cell[369169, 9245, 173, 3, 41, "Output",ExpressionUUID->"85f4fe6d-1167-7a40-b761-0a55e5251875"] +}, Open ]], +Cell[CellGroupData[{ +Cell[369379, 9253, 6122, 187, 431, "Input",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], +Cell[375504, 9442, 175, 3, 41, "Output",ExpressionUUID->"53db8250-199b-594a-8ebd-fc9cc43217e3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[375716, 9450, 368, 9, 53, "Input",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], +Cell[376087, 9461, 170, 3, 41, "Output",ExpressionUUID->"0013bb3e-54d0-e343-9869-cf63da2eecbd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[376294, 9469, 2663, 88, 215, "Input",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], +Cell[378960, 9559, 173, 3, 41, "Output",ExpressionUUID->"96d8705a-f744-d447-bad0-55fe1d703f38"] +}, Open ]], +Cell[CellGroupData[{ +Cell[379170, 9567, 2603, 85, 215, "Input",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], +Cell[381776, 9654, 172, 3, 41, "Output",ExpressionUUID->"bad41b21-8b15-a74b-a641-622c6584a958"] +}, Open ]], +Cell[CellGroupData[{ +Cell[381985, 9662, 3712, 118, 316, "Input",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], +Cell[385700, 9782, 174, 3, 41, "Output",ExpressionUUID->"a42f993d-5633-3546-ae09-6931972f9312"] +}, Open ]], +Cell[CellGroupData[{ +Cell[385911, 9790, 2052, 59, 116, "Input",ExpressionUUID->"d6aa822f-4140-174a-8e29-c889dba5c0d8"], +Cell[387966, 9851, 574, 12, 71, "Message",ExpressionUUID->"91f9ae14-8766-3848-9c79-ec46ad6af7ea"], +Cell[388543, 9865, 580, 12, 71, "Message",ExpressionUUID->"2440fadc-b12b-424f-a600-97a0a8c9f031"], +Cell[389126, 9879, 582, 12, 71, "Message",ExpressionUUID->"d4d1d26f-ac2b-a949-95b4-8d60af02cc4b"], +Cell[389711, 9893, 456, 10, 26, "Message",ExpressionUUID->"0cb59396-7a19-6b43-af2b-0a0ce0427b94"], +Cell[390170, 9905, 171, 3, 41, "Output",ExpressionUUID->"3ceb430a-d440-e040-b6a8-a18a3884b326"] +}, Open ]], +Cell[CellGroupData[{ +Cell[390378, 9913, 2054, 59, 116, "Input",ExpressionUUID->"46f3f057-22eb-c143-af7a-23ddab00799c"], +Cell[392435, 9974, 574, 12, 71, "Message",ExpressionUUID->"ccb81c35-09e9-854b-9187-d46e8624546d"], +Cell[393012, 9988, 578, 12, 71, "Message",ExpressionUUID->"6dff6307-9a24-c74d-90d8-2f18b14858dc"], +Cell[393593, 10002, 582, 12, 71, "Message",ExpressionUUID->"11045565-b757-154a-b614-eb73b2dcbc5f"], +Cell[394178, 10016, 458, 10, 26, "Message",ExpressionUUID->"af9dd0c6-d446-9940-b908-9b52fbb611cb"], +Cell[394639, 10028, 169, 3, 41, "Output",ExpressionUUID->"d39c46b4-75c6-f741-b7fd-1a1fdbe4155f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[394845, 10036, 2030, 55, 63, "Input",ExpressionUUID->"0137ed47-cd78-284a-910a-31d165f1571c"], +Cell[396878, 10093, 20326, 381, 299, "Output",ExpressionUUID->"5f98f6f4-700b-0a4b-af1c-32125fed3e6a"] +}, Open ]], +Cell[417219, 10477, 2144, 61, 116, "Input",ExpressionUUID->"00a32bc3-df79-9e43-8f20-d4884962c12d"], +Cell[419366, 10540, 138, 3, 36, "Input",ExpressionUUID->"344da507-9044-ef47-aa8c-99f282e3d6d3"], +Cell[CellGroupData[{ +Cell[419529, 10547, 1616, 48, 86, "Input",ExpressionUUID->"f13d1bd8-d153-ae43-b041-68b993e77854"], +Cell[421148, 10597, 592, 12, 71, "Message",ExpressionUUID->"318da404-8df4-c540-9269-2b249c7e148e"], +Cell[421743, 10611, 597, 12, 71, "Message",ExpressionUUID->"42939765-c33b-c147-a25b-bfa31c71a3cb"], +Cell[422343, 10625, 599, 12, 71, "Message",ExpressionUUID->"63b912c5-afab-654e-9609-c4b849e9abfe"], +Cell[422945, 10639, 458, 10, 26, "Message",ExpressionUUID->"2c8999d2-d9b5-ef4e-a59d-c314a02b2b2a"], +Cell[423406, 10651, 172, 3, 41, "Output",ExpressionUUID->"52013fca-4692-bf47-a0cf-880d71f10fc1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[423615, 10659, 2249, 64, 81, "Input",ExpressionUUID->"53e25fab-b431-cc42-a467-e4dea0353ed0"], +Cell[425867, 10725, 576, 12, 71, "Message",ExpressionUUID->"285f997a-25b4-f647-9523-e0dd05446bae"], +Cell[426446, 10739, 580, 12, 71, "Message",ExpressionUUID->"b1d2a50d-b27b-ca46-afcb-af9e8d59323e"], +Cell[427029, 10753, 582, 12, 71, "Message",ExpressionUUID->"a36c085c-b95e-724c-a04e-30924ab7ac52"], +Cell[427614, 10767, 456, 10, 26, "Message",ExpressionUUID->"976edb68-80f3-5a4d-a255-2f217ec84bfa"], +Cell[428073, 10779, 171, 3, 41, "Output",ExpressionUUID->"b7107287-e519-1249-9ef0-b745347bdb78"] +}, Open ]], +Cell[CellGroupData[{ +Cell[428281, 10787, 2223, 64, 81, "Input",ExpressionUUID->"b18c819e-620a-d449-97d6-547e3a6fa152"], +Cell[430507, 10853, 574, 12, 71, "Message",ExpressionUUID->"2877ed71-3ee8-8044-94b0-c606083c07b7"], +Cell[431084, 10867, 578, 12, 71, "Message",ExpressionUUID->"34cfc5a5-16b6-f24f-acdf-b4e2d29b1bef"], +Cell[431665, 10881, 580, 12, 71, "Message",ExpressionUUID->"7fe7bdbe-3892-5043-b38d-13721c83d41a"], +Cell[432248, 10895, 458, 10, 26, "Message",ExpressionUUID->"93dfb0cd-55fb-1b4a-b671-37d180b9d444"], +Cell[432709, 10907, 173, 3, 41, "Output",ExpressionUUID->"372279b5-5e4a-b545-a159-384b26aa5ab4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[432919, 10915, 2221, 64, 81, "Input",ExpressionUUID->"22ab74c7-5916-9440-9d7d-c3e0f6ab8836"], +Cell[435143, 10981, 574, 12, 71, "Message",ExpressionUUID->"c14c35e1-e487-c742-a0da-128fdb9754d4"], +Cell[435720, 10995, 578, 12, 71, "Message",ExpressionUUID->"4396ed61-4d7e-6144-80f0-6d5649cfcb04"], +Cell[436301, 11009, 582, 12, 71, "Message",ExpressionUUID->"00fa2dcd-bc0b-9e44-9f00-15116f344aca"], +Cell[436886, 11023, 455, 10, 26, "Message",ExpressionUUID->"78b12bf1-7793-9341-ad5f-c7be406b8be6"], +Cell[437344, 11035, 170, 3, 41, "Output",ExpressionUUID->"9454fa52-ff74-094b-8081-2fc86cf96043"] +}, Open ]], +Cell[CellGroupData[{ +Cell[437551, 11043, 215, 6, 60, "Input",ExpressionUUID->"f9c66987-c237-7a40-a006-e20e260dbdcb"], +Cell[437769, 11051, 174, 3, 41, "Output",ExpressionUUID->"175eda7e-c091-3e4f-86ac-3148f0a9e904"] +}, Open ]], +Cell[437958, 11057, 249, 5, 36, "Input",ExpressionUUID->"770a9ed7-7938-9e48-be64-c31719ef3a6b"], +Cell[CellGroupData[{ +Cell[438232, 11066, 558, 19, 66, "Input",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], +Cell[438793, 11087, 169, 3, 41, "Output",ExpressionUUID->"e757c22c-d836-6c4a-a9f7-93553c4bb232"] +}, Open ]], +Cell[CellGroupData[{ +Cell[438999, 11095, 170, 5, 71, "Input",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], +Cell[439172, 11102, 173, 3, 41, "Output",ExpressionUUID->"7f3ee547-87eb-d74d-8f21-a8d42f1dde52"] +}, Open ]], +Cell[CellGroupData[{ +Cell[439382, 11110, 181, 5, 55, "Input",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], +Cell[439566, 11117, 173, 3, 41, "Output",ExpressionUUID->"0603b6e6-a8b7-1e45-9b15-2769b7fbc373"] +}, Open ]], +Cell[CellGroupData[{ +Cell[439776, 11125, 6055, 185, 431, "Input",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], +Cell[445834, 11312, 174, 3, 41, "Output",ExpressionUUID->"8b7a346f-cdda-e24e-b924-d6cfb1b3119a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[446045, 11320, 368, 9, 53, "Input",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], +Cell[446416, 11331, 172, 3, 41, "Output",ExpressionUUID->"3354b35a-acef-b846-b770-8d2e77b8f68b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[446625, 11339, 6122, 187, 431, "Input",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], +Cell[452750, 11528, 172, 3, 41, "Output",ExpressionUUID->"7b76721b-3d4c-c544-9113-83ba4f36ae7f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[452959, 11536, 368, 9, 53, "Input",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], +Cell[453330, 11547, 170, 3, 41, "Output",ExpressionUUID->"e9346704-c478-364d-b5eb-0aabe0e2e350"] +}, Open ]], +Cell[CellGroupData[{ +Cell[453537, 11555, 2663, 88, 215, "Input",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], +Cell[456203, 11645, 173, 3, 41, "Output",ExpressionUUID->"33b7f444-6995-e54b-a2a6-ad09016b1850"] +}, Open ]], +Cell[CellGroupData[{ +Cell[456413, 11653, 2603, 85, 215, "Input",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], +Cell[459019, 11740, 172, 3, 41, "Output",ExpressionUUID->"76ba8e46-11c7-f54d-bfb2-cca1b455c838"] +}, Open ]], +Cell[CellGroupData[{ +Cell[459228, 11748, 3712, 118, 316, "Input",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], +Cell[462943, 11868, 172, 3, 41, "Output",ExpressionUUID->"f7c29774-2634-5546-ab63-4d3ac6889f79"] +}, Open ]], +Cell[CellGroupData[{ +Cell[463152, 11876, 2052, 59, 116, "Input",ExpressionUUID->"55d51961-97f2-ed4d-8bf8-8a461d652ab4"], +Cell[465207, 11937, 573, 12, 71, "Message",ExpressionUUID->"3d5a1265-fb27-0b41-a549-5e326650d270"], +Cell[465783, 11951, 573, 12, 71, "Message",ExpressionUUID->"0726d23e-32d7-7a41-8d7f-0b62fec75437"], +Cell[466359, 11965, 579, 12, 71, "Message",ExpressionUUID->"b47482ef-bec0-234f-aeb7-9009a378a36d"], +Cell[466941, 11979, 458, 10, 26, "Message",ExpressionUUID->"e5e35e3a-0e40-c249-b6f3-c2a6a5a48740"], +Cell[467402, 11991, 170, 3, 41, "Output",ExpressionUUID->"b33776d0-2a41-694b-9af8-c4d483383e7c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[467609, 11999, 2052, 59, 116, "Input",ExpressionUUID->"9704b9d3-b449-2144-9970-6a7de047241d"], +Cell[469664, 12060, 573, 12, 71, "Message",ExpressionUUID->"ffb6a3c0-c488-cd48-870e-d66051362026"], +Cell[470240, 12074, 575, 12, 71, "Message",ExpressionUUID->"ca3fb11a-47f9-c542-a5c9-6e0087e110b9"], +Cell[470818, 12088, 579, 12, 71, "Message",ExpressionUUID->"7e4a0639-38a1-f74e-ab8e-5264cad2d48c"], +Cell[471400, 12102, 458, 10, 26, "Message",ExpressionUUID->"101eaea3-75b1-d942-9914-a0fe8a6e2f65"], +Cell[471861, 12114, 169, 3, 41, "Output",ExpressionUUID->"921a9c76-dcb9-484a-bc19-88ddead9467a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[472067, 12122, 2028, 55, 63, "Input",ExpressionUUID->"0fd90636-7592-fc40-bf9d-ae1cb915c656"], +Cell[474098, 12179, 20296, 381, 295, "Output",ExpressionUUID->"09d149ec-0259-a345-a282-743f783e7913"] +}, Open ]], +Cell[CellGroupData[{ +Cell[494431, 12565, 2146, 61, 116, "Input",ExpressionUUID->"90696e8b-5a2d-314c-8d58-ac84cb8f4d66"], +Cell[496580, 12628, 500, 11, 48, "Message",ExpressionUUID->"526ffad5-83ae-c149-9912-e494135b3fca"], +Cell[497083, 12641, 505, 11, 48, "Message",ExpressionUUID->"1adb1680-bdf2-4144-bcc9-7270c61e97b7"], +Cell[497591, 12654, 509, 11, 48, "Message",ExpressionUUID->"9e5d82d5-642b-cb46-8232-be5a5ca7050d"], +Cell[498103, 12667, 458, 10, 26, "Message",ExpressionUUID->"ef931413-f964-5b45-a755-76cab1ab5309"], +Cell[498564, 12679, 39609, 697, 290, "Output",ExpressionUUID->"23497d29-f516-664b-9ee0-ea8f6d88359c"] +}, Open ]], +Cell[538188, 13379, 209, 5, 36, "Input",ExpressionUUID->"ea848967-083d-ea47-bce0-5c3b93725916"], +Cell[CellGroupData[{ +Cell[538422, 13388, 1616, 48, 86, "Input",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], +Cell[540041, 13438, 589, 12, 71, "Message",ExpressionUUID->"100796fd-6fde-3c41-9088-c2d3ae2f8aeb"], +Cell[540633, 13452, 595, 12, 71, "Message",ExpressionUUID->"c91e75b4-9e2b-1e49-a5d5-453d5f87b5e3"], +Cell[541231, 13466, 596, 12, 71, "Message",ExpressionUUID->"5d8ad6a4-5b83-df49-8c4d-081081895528"], +Cell[541830, 13480, 458, 10, 26, "Message",ExpressionUUID->"26eed7af-5e0a-e840-9956-caca06166010"], +Cell[542291, 13492, 171, 3, 41, "Output",ExpressionUUID->"e4e35b92-e786-3044-bf1d-9c587b1357a2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[542499, 13500, 2249, 64, 81, "Input",ExpressionUUID->"80bba3bc-d8f7-1c4b-9262-0895c02ffd8f"], +Cell[544751, 13566, 573, 12, 71, "Message",ExpressionUUID->"6b65fc2b-3e1d-714d-aeb9-43978836a621"], +Cell[545327, 13580, 573, 12, 71, "Message",ExpressionUUID->"c4736a05-b0e1-5e49-b581-f3ce4c83fe21"], +Cell[545903, 13594, 579, 12, 71, "Message",ExpressionUUID->"ae8eb83c-0205-8046-8445-e249896b7ee5"], +Cell[546485, 13608, 458, 10, 26, "Message",ExpressionUUID->"5072d590-62c3-7a47-ae1b-6dd617a0b9dc"], +Cell[546946, 13620, 174, 3, 41, "Output",ExpressionUUID->"8dd7e1f9-bbea-d84b-ad0e-8922158aee9e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[547157, 13628, 2221, 64, 81, "Input",ExpressionUUID->"57976ffc-56f1-604b-8519-bead95265db8"], +Cell[549381, 13694, 573, 12, 71, "Message",ExpressionUUID->"7ab877ea-0e4b-f948-97c2-7ebafb7901b1"], +Cell[549957, 13708, 575, 12, 71, "Message",ExpressionUUID->"a87a57c5-24bc-dc4a-888a-b3c0095c10c4"], +Cell[550535, 13722, 577, 12, 71, "Message",ExpressionUUID->"d8af7fb1-1d43-664e-ae2d-698eaa818746"], +Cell[551115, 13736, 456, 10, 26, "Message",ExpressionUUID->"7abec434-52e8-c64c-ac86-90da0b27b8aa"], +Cell[551574, 13748, 172, 3, 41, "Output",ExpressionUUID->"164a4c34-f121-a445-b434-e34aa59666ab"] +}, Open ]], +Cell[CellGroupData[{ +Cell[551783, 13756, 2219, 64, 81, "Input",ExpressionUUID->"cfa37210-3ae7-3f49-b290-f19508c6d2f1"], +Cell[554005, 13822, 571, 12, 71, "Message",ExpressionUUID->"92295db4-13f0-284e-8173-df7f8dd20dcf"], +Cell[554579, 13836, 573, 12, 71, "Message",ExpressionUUID->"c6280e41-1347-0f47-81a9-bcd3687b7b73"], +Cell[555155, 13850, 579, 12, 71, "Message",ExpressionUUID->"2aa0f4b1-01ca-4644-884e-b759d4a75412"], +Cell[555737, 13864, 458, 10, 26, "Message",ExpressionUUID->"ab3c3bff-179e-9f4e-b56a-87d1b4f6fc04"], +Cell[556198, 13876, 172, 3, 41, "Output",ExpressionUUID->"f5b8154f-e61e-6a4e-b068-b6c1916773ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[556407, 13884, 211, 6, 60, "Input",ExpressionUUID->"7457b456-6d32-5b44-9679-346c5f5ac532"], +Cell[556621, 13892, 174, 3, 41, "Output",ExpressionUUID->"14434839-d5cf-b844-b849-b3b3102df434"] +}, Open ]], +Cell[556810, 13898, 115, 1, 36, "Input",ExpressionUUID->"f39be7b1-d665-440d-a910-3cb53865d46e"] } ] *) diff --git a/Pu240_798-811_TitovAA/168-72_h_Pu240_22-23/h_168-72_Pu240_22-23_gid_Qw2.nb b/Pu240_798-811_TitovAA/168-72_h_Pu240_22-23/h_168-72_Pu240_22-23_gid_Qw2.nb index 1f902d9..6484366 100644 --- a/Pu240_798-811_TitovAA/168-72_h_Pu240_22-23/h_168-72_Pu240_22-23_gid_Qw2.nb +++ b/Pu240_798-811_TitovAA/168-72_h_Pu240_22-23/h_168-72_Pu240_22-23_gid_Qw2.nb @@ -3,25 +3,4876 @@ (*** 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[ 446097, 13184] +NotebookOptionsPosition[ 407722, 12568] +NotebookOutlinePosition[ 408133, 12585] +CellTagsIndexPosition[ 408090, 12582] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f1", "="}]], "Input", + RowBox[{"d", "=", "1.9"}]], "Input", CellChangeTimes->{ - 3.9918505481678543`*^9},ExpressionUUID->"83cccf0d-dccb-fb42-a058-\ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.9940735873936653`*^9, 3.9940735896443777`*^9}, { + 3.994075218023417*^9, 3.994075221411705*^9}}, + CellLabel-> + "In[106]:=",ExpressionUUID->"5210b4c5-145f-4e1a-aa29-511430e5ecc6"], + +Cell[BoxData["1.9`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, {3.9940735644974327`*^9, 3.994073590895896*^9}, { + 3.994075171996416*^9, 3.994075180507247*^9}, {3.994075219377726*^9, + 3.9940752234153214`*^9}}, + CellLabel-> + "Out[106]=",ExpressionUUID->"ad46ab81-2d31-44d3-953b-97b13ecd0a1e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.9940732811688833`*^9, 3.994073289502289*^9}}, + CellLabel-> + "In[107]:=",ExpressionUUID->"69758569-6559-4f9f-9f7f-b65c67e67ecc"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, {3.994073564560362*^9, 3.994073590977919*^9}, + 3.994075180702458*^9, 3.9940752234546824`*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"29c5a549-af78-42c3-b788-cc9039fc82f3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "168"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.994073284506165*^9, 3.994073287626708*^9}}, + CellLabel-> + "In[108]:=",ExpressionUUID->"96c70c96-9f28-40c4-b3b5-214b23241895"], + +Cell[BoxData["168"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, {3.994073564571506*^9, 3.994073590992278*^9}, + 3.994075180712758*^9, 3.9940752234670067`*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"afec2811-2dc8-4754-9efe-cdaf9df3f1f5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel-> + "In[109]:=",ExpressionUUID->"bd360ff8-9801-462d-bf9e-a94db99e6d16"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, {3.994073564582589*^9, 3.994073590996417*^9}, + 3.994075180723978*^9, 3.994075223478387*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"f605b3be-026c-423a-81ba-dd6f47768b47"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel-> + "In[110]:=",ExpressionUUID->"32cd3f49-2a3e-415d-8a20-a03a5e28f4be"], + +Cell[BoxData["0.544`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, {3.994073564593708*^9, 3.994073591015129*^9}, + 3.994075180735317*^9, 3.994075223489546*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"352cb8d0-fce8-4296-9609-a75efd02eeab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel-> + "In[111]:=",ExpressionUUID->"14c77262-0f08-4a0c-8b7b-06f9b837b5b9"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, {3.994073564604851*^9, 3.9940735910271397`*^9}, + 3.9940751807454844`*^9, 3.994075223493987*^9}, + CellLabel-> + "Out[111]=",ExpressionUUID->"45c0c1e8-1471-4571-a48f-0dfd03cfa534"] +}, 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[112]:=",ExpressionUUID->"38248510-4494-40d5-8d8c-7c0a0239824b"], + +Cell[BoxData["6.400704089204199`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, {3.9940735646161203`*^9, 3.9940735910381737`*^9}, + 3.99407518075636*^9, 3.9940752235073977`*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"d71185f7-dc36-49a2-a838-3a97af68854c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel-> + "In[113]:=",ExpressionUUID->"d9399ba0-28d3-4c6e-aa7b-5360ab82d8e0"], + +Cell[BoxData["4.825794469480417`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, {3.994073564627458*^9, 3.9940735910486517`*^9}, + 3.994075180767749*^9, 3.9940752235185337`*^9}, + CellLabel-> + "Out[113]=",ExpressionUUID->"49350be2-43ef-4491-be3b-9d06634e361d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.8877902834"}]], "Input", + CellChangeTimes->{3.991799283179735*^9, 3.994073298855084*^9}, + CellLabel-> + "In[114]:=",ExpressionUUID->"0e21b474-16e9-43d4-8cfa-749627016079"], + +Cell[BoxData["0.8877902834`"], "Output", + CellChangeTimes->{{3.99407356463848*^9, 3.994073591058733*^9}, + 3.994075180779163*^9, 3.994075223529882*^9}, + CellLabel-> + "Out[114]=",ExpressionUUID->"5c612506-0b0f-4e8e-b103-abc2a73b398b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.3862529089"}]], "Input", + CellChangeTimes->{3.991799280663351*^9, 3.994073304321521*^9}, + CellLabel-> + "In[115]:=",ExpressionUUID->"e35541b8-50be-4e11-9c7e-d38cfef2b2d6"], + +Cell[BoxData["0.3862529089`"], "Output", + CellChangeTimes->{{3.9940735646497602`*^9, 3.994073591068905*^9}, + 3.994075180790642*^9, 3.994075223541339*^9}, + CellLabel-> + "Out[115]=",ExpressionUUID->"c7bbd978-e40b-44a5-9b2f-3717d41e2556"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel-> + "In[116]:=",ExpressionUUID->"78b1b396-ec07-435d-b63f-bae87a994155"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, {3.994073564660372*^9, 3.994073591079844*^9}, + 3.9940751808023157`*^9, 3.99407522355291*^9}, + CellLabel-> + "Out[116]=",ExpressionUUID->"9c13ebf4-ac03-4d33-a018-5534cc931b9a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel-> + "In[117]:=",ExpressionUUID->"abfdab78-d2c0-4a27-a323-ec74c98d8f5a"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, {3.994073564670796*^9, 3.994073591090024*^9}, + 3.994075180813775*^9, 3.994075223564582*^9}, + CellLabel-> + "Out[117]=",ExpressionUUID->"b2fef7c4-cb7f-49e4-be94-2892db0c9dd2"] +}, 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[118]:=",ExpressionUUID->"b03b18f2-5dda-4e35-823c-0a9766dcc51d"], + +Cell[BoxData["2.2780057225092705`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, {3.9940735646817017`*^9, 3.994073591101307*^9}, + 3.9940751808204927`*^9, 3.99407522357547*^9}, + CellLabel-> + "Out[118]=",ExpressionUUID->"01354a3a-c9b7-4cb3-8461-a3c2ac201038"] +}, 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[119]:=",ExpressionUUID->"5f3deac1-6a9f-4c8d-8d15-5bb8e0bc7096"], + +Cell[BoxData["1.4218629228610074`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, {3.9940735646923637`*^9, 3.994073591111409*^9}, + 3.994075180833333*^9, 3.99407522358539*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"5948e55d-9456-4fd6-a8ea-40324232efe8"] +}, 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[120]:=",ExpressionUUID->"6b04567a-b064-4157-98ae-6782b8a8a457"], + +Cell[BoxData["0.4156604021030056`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, {3.994073564703178*^9, 3.99407359112132*^9}, + 3.994075180844792*^9, 3.994075223596579*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"dc34d31e-b4ce-4175-bc12-7e6e07d83e53"] +}, 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[121]:=",ExpressionUUID->"92e21de7-0fb3-4574-b0c3-e7e966a594b6"], + +Cell[BoxData[ + RowBox[{"-", "0.08656844775361539`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, {3.994073564714039*^9, 3.994073591132222*^9}, + 3.994075180888361*^9, 3.994075223608573*^9}, + CellLabel-> + "Out[121]=",ExpressionUUID->"1853c4d2-964b-4e8a-b338-2927ac203594"] +}, 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[122]:=",ExpressionUUID->"7792e963-ea18-4cd7-b377-5907b6a6686e"], + +Cell[BoxData[ + RowBox[{"-", "0.5722877017893374`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, {3.9940735647250757`*^9, 3.994073591143152*^9}, + 3.994075180901285*^9, 3.994075223621201*^9}, + CellLabel-> + "Out[122]=",ExpressionUUID->"d7bd1f8c-24b3-4da3-92c2-58e7609339cf"] +}, 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[123]:=",ExpressionUUID->"5c040776-6591-4224-bb83-a4801cb23196"], + +Cell[BoxData["0.7168396379251292`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, {3.994073564736117*^9, 3.994073591154641*^9}, + 3.9940751809127274`*^9, 3.994075223631315*^9}, + CellLabel-> + "Out[123]=",ExpressionUUID->"6b92ed77-596c-4b2c-a35c-1da372b08b72"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel-> + "In[124]:=",ExpressionUUID->"500d9880-2d6a-40d6-9da5-06118272064f"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, {3.994073564745685*^9, 3.9940735911671133`*^9}, + 3.9940751809237967`*^9, 3.994075223641436*^9}, + CellLabel-> + "Out[124]=",ExpressionUUID->"2ee25cb4-af7c-4364-96ac-5b5bb44693fc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel-> + "In[125]:=",ExpressionUUID->"8a60e21d-5640-4eec-a6ff-1af78e25481c"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, {3.994073564755136*^9, 3.994073591178863*^9}, + 3.9940751809343033`*^9, 3.9940752236530647`*^9}, + CellLabel-> + "Out[125]=",ExpressionUUID->"9f1acd20-54f9-4c6a-94a9-6104ad9a50a9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel-> + "In[126]:=",ExpressionUUID->"246f7103-b2bb-46cd-a57e-a2494f3ddd1c"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, {3.9940735647648563`*^9, 3.994073591190179*^9}, + 3.9940751809451323`*^9, 3.994075223664682*^9}, + CellLabel-> + "Out[126]=",ExpressionUUID->"2eb701c5-f0cc-4d5a-91cb-82dbf2b8d16b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel-> + "In[127]:=",ExpressionUUID->"f56ca74e-3b0a-4d83-af0c-d97c9e86a21b"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, {3.994073564774688*^9, 3.994073591201717*^9}, + 3.994075180956657*^9, 3.994075223675436*^9}, + CellLabel-> + "Out[127]=",ExpressionUUID->"f967ea04-c983-4fde-9681-971ea031b1ac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel-> + "In[128]:=",ExpressionUUID->"c2aea24b-853c-4042-9d19-332d1fe3fd11"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, {3.994073564784115*^9, 3.994073591213622*^9}, + 3.9940751809686193`*^9, 3.9940752236862583`*^9}, + CellLabel-> + "Out[128]=",ExpressionUUID->"9ab3568e-9dc9-4ec4-9ad7-125607efc6e8"] +}, 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.994073317560268*^9, 3.994073317727027*^9}}, + CellLabel-> + "In[129]:=",ExpressionUUID->"e3de6edb-f435-4cc3-a9d8-e91c9d075165"], + +Cell[BoxData["66"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, {3.994073564793541*^9, 3.994073591224018*^9}, + 3.994075180980678*^9, 3.994075223697234*^9}, + CellLabel-> + "Out[129]=",ExpressionUUID->"5bcaf05b-c24b-454e-8767-eca48d75722a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, {3.9940733207460938`*^9, 3.994073320804184*^9}}, + CellLabel-> + "In[130]:=",ExpressionUUID->"0c0d7845-898d-4907-ba48-90e67215fccc"], + +Cell[BoxData["28"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, {3.9940735648031883`*^9, 3.9940735912353287`*^9}, + 3.9940751809920683`*^9, 3.994075223707429*^9}, + CellLabel-> + "Out[130]=",ExpressionUUID->"f07d616a-9ba9-4576-8201-37ce68feafa3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel-> + "In[131]:=",ExpressionUUID->"9bbe9c96-37e3-47aa-856d-3dc1aaab8cd0"], + +Cell[BoxData["72"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, {3.99407356481284*^9, 3.994073591246372*^9}, + 3.994075181003516*^9, 3.994075223717374*^9}, + CellLabel-> + "Out[131]=",ExpressionUUID->"3f39b572-abbd-47f2-a52d-e6d8b469b0c9"] +}, 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[132]:=",ExpressionUUID->"392e48ba-7a8a-4f76-846f-de90c2cdaf68"], + +Cell[BoxData["0.10999999999999999`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, {3.994073564822513*^9, 3.9940735912565413`*^9}, + 3.994075181014969*^9, 3.994075223727599*^9}, + CellLabel-> + "Out[132]=",ExpressionUUID->"7777ca2a-de5c-4d45-b74e-faeb81f5a0d9"] +}, 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[133]:=",ExpressionUUID->"4f381a6b-ee93-4295-9e03-c57107db6657"], + +Cell[BoxData[ + RowBox[{"-", "2.564285714285714`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, {3.994073564832857*^9, 3.994073591267404*^9}, + 3.9940751810260887`*^9, 3.9940752237376823`*^9}, + CellLabel-> + "Out[133]=",ExpressionUUID->"c6c7e799-2b6a-4e29-abe9-8ec7a5ac31af"] +}, 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[134]:=",ExpressionUUID->"5e5777eb-c78c-40cf-89d7-98bdf45c2cc5"], + +Cell[BoxData["17.427928477019236`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, {3.994073564842832*^9, 3.9940735912778807`*^9}, + 3.9940751810379477`*^9, 3.994075223748026*^9}, + CellLabel-> + "Out[134]=",ExpressionUUID->"6099da28-3108-4785-a699-ff43f7a69c94"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel-> + "In[135]:=",ExpressionUUID->"3d7b4fcd-5d11-4b24-a739-1055052c8d2a"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, {3.994073564851839*^9, 3.994073591288074*^9}, + 3.99407518104945*^9, 3.994075223758711*^9}, + CellLabel-> + "Out[135]=",ExpressionUUID->"3c49b192-f416-43fe-8314-2f6552b30171"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "2.155"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { + 3.994073341190873*^9, 3.994073342038845*^9}}, + CellLabel-> + "In[136]:=",ExpressionUUID->"3a510322-dc13-4a29-9657-3a3b4dbac4a4"], + +Cell[BoxData["2.155`"], "Output", + CellChangeTimes->{{3.994073564860754*^9, 3.994073591298296*^9}, + 3.994075181060684*^9, 3.994075223775366*^9}, + CellLabel-> + "Out[136]=",ExpressionUUID->"7b9aa398-7ff3-4c6a-be2d-ba1e4155d7f6"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel-> + "In[137]:=",ExpressionUUID->"842095ec-445b-4e68-bdd7-6634e4c20f80"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.755"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.994073344618413*^9, 3.994073345759185*^9}}, + CellLabel-> + "In[138]:=",ExpressionUUID->"de7435d2-2f54-4b08-bb3e-08111c71fef7"], + +Cell[BoxData["0.755`"], "Output", + CellChangeTimes->{{3.994073564877489*^9, 3.994073591311125*^9}, + 3.9940751810754833`*^9, 3.9940752237900457`*^9}, + CellLabel-> + "Out[138]=",ExpressionUUID->"55035af7-cf2c-46dc-918f-457c1e33b299"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel-> + "In[139]:=",ExpressionUUID->"dc0c6988-8768-4f31-a837-83f0cb6628ef"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "2.62"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.9940733478949413`*^9, 3.994073348567162*^9}}, + CellLabel-> + "In[140]:=",ExpressionUUID->"fc569750-6604-4df8-aa55-1321664a65c4"], + +Cell[BoxData["2.62`"], "Output", + CellChangeTimes->{{3.994073564894133*^9, 3.9940735913232403`*^9}, + 3.994075181088438*^9, 3.994075223803163*^9}, + CellLabel-> + "Out[140]=",ExpressionUUID->"ef94bd72-3bad-46aa-9eee-fed1f077a037"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel-> + "In[141]:=",ExpressionUUID->"6cf2d16e-e71f-49e8-a67a-08cb0010e5e1"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.135"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, {3.99407335112987*^9, 3.9940733523562517`*^9}}, + CellLabel-> + "In[142]:=",ExpressionUUID->"35a48b33-ff80-44f9-8fbc-a222d26dcb6a"], + +Cell[BoxData["1.135`"], "Output", + CellChangeTimes->{{3.994073564911627*^9, 3.994073591335389*^9}, + 3.994075181101487*^9, 3.994075223815889*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"5225ec4e-4aef-4320-b254-1847f41b4605"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel-> + "In[143]:=",ExpressionUUID->"1675c165-e69d-4b9c-bf18-187694398458"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.025"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, {3.994073355091783*^9, + 3.994073355935183*^9}}, + CellLabel-> + "In[144]:=",ExpressionUUID->"c9ae2d79-9ac6-4d19-a1d1-15447d866c59"], + +Cell[BoxData["1.025`"], "Output", + CellChangeTimes->{{3.994073564928769*^9, 3.9940735913488693`*^9}, + 3.994075181114448*^9, 3.994075223832756*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"357937b8-17fc-4482-834a-0186a915e41a"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel-> + "In[145]:=",ExpressionUUID->"34f9c528-5b71-4ece-b354-1826feed8c16"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.575"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.994073359153013*^9, + 3.9940733600822906`*^9}}, + CellLabel-> + "In[146]:=",ExpressionUUID->"965fae0c-ed4c-44fd-9e6d-188bb1d3098a"], + +Cell[BoxData["0.575`"], "Output", + CellChangeTimes->{{3.994073564946273*^9, 3.99407359136164*^9}, + 3.9940751811274652`*^9, 3.9940752238459263`*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"4fe16542-584e-4eb2-a493-e8fa85773d6b"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel-> + "In[147]:=",ExpressionUUID->"e6ac4dd4-3f69-4758-b2b5-dedab2cd1552"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "1.44"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, 3.994073366138835*^9, { + 3.994073396938322*^9, 3.994073398601803*^9}}, + CellLabel-> + "In[148]:=",ExpressionUUID->"99ee2901-d88a-4220-94bd-eaaac967b501"], + +Cell[BoxData["1.44`"], "Output", + CellChangeTimes->{{3.994073564964167*^9, 3.9940735913757553`*^9}, + 3.9940751811406727`*^9, 3.9940752238589993`*^9}, + CellLabel-> + "Out[148]=",ExpressionUUID->"2588ad09-2a23-4964-b783-881f51cbe8d3"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel-> + "In[149]:=",ExpressionUUID->"2e90c8b9-c357-45d1-af1e-69e619f0f8c4"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "0.645"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, {3.9940734006045856`*^9, 3.99407340214142*^9}}, + CellLabel-> + "In[150]:=",ExpressionUUID->"616094f6-07e9-4426-abab-f9e340c819f7"], + +Cell[BoxData["0.645`"], "Output", + CellChangeTimes->{{3.9940735649821672`*^9, 3.994073591389337*^9}, + 3.994075181153781*^9, 3.994075223871763*^9}, + CellLabel-> + "Out[150]=",ExpressionUUID->"9d86f16a-5372-4c74-95d1-3cac60461657"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel-> + "In[151]:=",ExpressionUUID->"21d9ca36-ed36-49d0-8e70-66354b7c2f9b"], + +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[152]:=",ExpressionUUID->"6a92d4ba-7990-4137-88f1-cebc950ec2b4"], + +Cell[BoxData["0.1377756020325425`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, {3.9940735650538073`*^9, 3.99407359143029*^9}, + 3.994075181231205*^9, 3.9940752239087954`*^9}, + CellLabel-> + "Out[152]=",ExpressionUUID->"6556bb48-da8c-4ec6-b3ae-3a5c8dd280e7"] +}, 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[153]:=",ExpressionUUID->"ded44718-5e9f-4136-ad97-4f21f5eb326b"], + +Cell[BoxData["7.524926889811008`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, {3.99407356508613*^9, 3.994073591458125*^9}, + 3.994075181264968*^9, 3.994075223937818*^9}, + CellLabel-> + "Out[153]=",ExpressionUUID->"aaf40761-363b-473b-b56f-509a7dc80c7c"] +}, 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[154]:=",ExpressionUUID->"234e4766-ae73-4366-888d-721c90c34342"], + +Cell[BoxData[ + RowBox[{"-", "14.084113046357718`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, {3.994073565118821*^9, 3.994073591484323*^9}, + 3.994075181298151*^9, 3.9940752239647293`*^9}, + CellLabel-> + "Out[154]=",ExpressionUUID->"c4e24a77-f356-474c-a6db-3c31c03b3b98"] +}, 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[155]:=",ExpressionUUID->"3447aa47-926e-4105-b529-53182b1f9892"], + +Cell[BoxData[ + RowBox[{"-", "18.31263149263108`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, {3.9940735651553993`*^9, 3.994073591515855*^9}, + 3.9940751813370543`*^9, 3.994075223996374*^9}, + CellLabel-> + "Out[155]=",ExpressionUUID->"4150c03c-74de-45dd-94c1-164928601e9b"] +}, 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[156]:=",ExpressionUUID->"84e45612-fe14-4a86-b37b-29b1fd952f1a"], + +Cell[BoxData[ + RowBox[{"-", "53.236632839784775`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, {3.994073565191607*^9, 3.9940735915482073`*^9}, + 3.9940751813752813`*^9, 3.994075224029221*^9}, + CellLabel-> + "Out[156]=",ExpressionUUID->"184adab8-24f7-40cf-8257-2553c683f0fc"] +}, 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[157]:=",ExpressionUUID->"7a70f639-b9ef-43cc-85ac-2a3c009b0422"], + +Cell[BoxData[ + RowBox[{"-", "137.72173412227852`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, {3.9940735652337313`*^9, 3.9940735915861683`*^9}, + 3.9940751814204807`*^9, 3.99407522406466*^9}, + CellLabel-> + "Out[157]=",ExpressionUUID->"308ec60b-8c5c-47c1-8d12-6d12c5ece297"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel-> + "In[158]:=",ExpressionUUID->"7bc16394-d589-462d-b330-8397fb3f2047"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, {3.994073565247233*^9, 3.99407359159737*^9}, + 3.994075181435895*^9, 3.9940752240755796`*^9}, + CellLabel-> + "Out[158]=",ExpressionUUID->"e53699da-0c38-4832-89e0-2f096d488e23"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel-> + "In[159]:=",ExpressionUUID->"a6b40e3a-cf2c-4f9a-b129-de395f756d4e"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, {3.994073565259305*^9, 3.994073591607201*^9}, + 3.9940751814462433`*^9, 3.994075224085256*^9}, + CellLabel-> + "Out[159]=",ExpressionUUID->"e5682ebd-a4a7-4282-8c38-0d669f9a424e"] +}, 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[160]:=",ExpressionUUID->"73a21032-e77c-4504-89ed-159786f65d30"], + +Cell[BoxData["109.03965674383026`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, {3.9940735652689238`*^9, 3.99407359161714*^9}, + 3.994075181457575*^9, 3.994075224089169*^9}, + CellLabel-> + "Out[160]=",ExpressionUUID->"f912ad7b-c882-41f5-815f-ecea19b45029"] +}, 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[161]:=",ExpressionUUID->"21217782-7ddf-452d-9a66-8c8a3ae8aedd"], + +Cell[BoxData[ + RowBox[{"-", "96.23297652944373`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, {3.9940735652791967`*^9, 3.994073591627187*^9}, + 3.994075181468134*^9, 3.9940752240986977`*^9}, + CellLabel-> + "Out[161]=",ExpressionUUID->"bcae0679-338e-45a0-9243-e04cd91709dd"] +}, 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[162]:=",ExpressionUUID->"af407c9e-e948-4537-b0e9-9976724fad70"], + +Cell[BoxData["112.13680293055965`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, {3.994073565289288*^9, 3.994073591637117*^9}, + 3.994075181479414*^9, 3.9940752241080437`*^9}, + CellLabel-> + "Out[162]=",ExpressionUUID->"92750e76-ea54-463d-8cfc-8fa52e037e25"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel-> + "In[163]:=",ExpressionUUID->"c6f40a8e-7108-4280-abdf-d61c7ef7c069"], + +Cell[BoxData["0.4156604021030056`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, {3.99407356529922*^9, 3.994073591647008*^9}, + 3.994075181491456*^9, 3.994075224117897*^9}, + CellLabel-> + "Out[163]=",ExpressionUUID->"c0d8fa98-deff-4a1e-a762-248eb4961b2f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel-> + "In[164]:=",ExpressionUUID->"9f49d01a-e956-46f1-bc32-3c0a0c5676fd"], + +Cell[BoxData[ + RowBox[{"-", "0.08656844775361539`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, {3.994073565311245*^9, 3.994073591656905*^9}, + 3.994075181502122*^9, 3.9940752241273518`*^9}, + CellLabel-> + "Out[164]=",ExpressionUUID->"d7e3941f-a328-4ba2-8498-96acacba8db3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel-> + "In[165]:=",ExpressionUUID->"757ac39d-4b2a-4228-9138-a03f58a1ff11"], + +Cell[BoxData[ + RowBox[{"-", "0.5722877017893374`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, {3.9940735653224297`*^9, 3.994073591666703*^9}, + 3.994075181512973*^9, 3.994075224138131*^9}, + CellLabel-> + "Out[165]=",ExpressionUUID->"b03be3c2-99e5-48da-b4fc-d971a27c41ae"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel-> + "In[166]:=",ExpressionUUID->"62adb8fa-10b5-480f-894b-f0238c0d1b4a"], + +Cell[BoxData["0.7168396379251292`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, {3.994073565332736*^9, 3.994073591676529*^9}, + 3.9940751815232983`*^9, 3.99407522414828*^9}, + CellLabel-> + "Out[166]=",ExpressionUUID->"a9ff62cb-6229-420d-a06d-9f4405fec512"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel-> + "In[167]:=",ExpressionUUID->"d43e6f92-d809-44e0-9120-b196ea8daae1"], + +Cell[BoxData["2.2780057225092705`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, {3.994073565343382*^9, 3.994073591686304*^9}, + 3.9940751815621433`*^9, 3.994075224158536*^9}, + CellLabel-> + "Out[167]=",ExpressionUUID->"ae06fbeb-d6c8-473e-9c5f-4a3b3e64c434"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel-> + "In[168]:=",ExpressionUUID->"02a8a8e6-24da-4cb4-a9aa-601cc47acfc0"], + +Cell[BoxData["1.4218629228610074`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, {3.9940735677968397`*^9, 3.994073591696135*^9}, + 3.994075181571867*^9, 3.994075224168653*^9}, + CellLabel-> + "Out[168]=",ExpressionUUID->"4005a743-b7f7-4e32-b1cb-890516619b5f"] +}, 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[169]:=",ExpressionUUID->"93541c5e-8b46-4315-b49c-dba3509c9f70"], + +Cell[BoxData[ + RowBox[{"-", "34.047906297441784`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, {3.994073567991251*^9, 3.994073591706287*^9}, + 3.994075181582259*^9, 3.994075224178802*^9}, + CellLabel-> + "Out[169]=",ExpressionUUID->"6c00d70e-51ac-49a5-aad3-6b5aab4905d8"] +}, 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[170]:=",ExpressionUUID->"2d38d866-1931-4002-9617-99a4e47bd22d"], + +Cell[BoxData[ + RowBox[{"-", "6.56405378738986`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, {3.994073568001831*^9, 3.994073591716386*^9}, + 3.994075181592502*^9, 3.994075224188962*^9}, + CellLabel-> + "Out[170]=",ExpressionUUID->"6777495a-a6e6-4cf3-bf0e-4953d5b72a50"] +}, 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[171]:=",ExpressionUUID->"9d6a4f6e-da0a-4388-909c-a8e2830ba813"], + +Cell[BoxData["74.99175044638848`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, {3.994073568012953*^9, 3.994073591726822*^9}, + 3.9940751816039963`*^9, 3.994075224199308*^9}, + CellLabel-> + "Out[171]=",ExpressionUUID->"e12b71a0-a2cf-48ff-8242-904c1a152792"] +}, 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[172]:=",ExpressionUUID->"02ec0ba8-fa05-4c6d-aac2-4590440599d3"], + +Cell[BoxData[ + RowBox[{"-", "96.23297652944373`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, {3.994073568023205*^9, 3.9940735917368*^9}, + 3.994075181615046*^9, 3.994075224209613*^9}, + CellLabel-> + "Out[172]=",ExpressionUUID->"3b885b3e-049d-40a6-bf91-9a94cae83015"] +}, 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[173]:=",ExpressionUUID->"cf4b5661-671b-4ab6-b1c1-32c95855ae45"], + +Cell[BoxData["105.57274914316979`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, {3.994073568033989*^9, 3.994073591747006*^9}, + 3.994075181626021*^9, 3.994075224219851*^9}, + CellLabel-> + "Out[173]=",ExpressionUUID->"189fdaf0-6685-4ba2-a19e-8da43287dc1e"] +}, 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[174]:=",ExpressionUUID->"56d119f4-b5a5-4dc4-b3d1-1f19739c2200"], + +Cell[BoxData["39.10949309233206`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, {3.994073568045323*^9, 3.99407359175727*^9}, + 3.994075181636903*^9, 3.99407522423002*^9}, + CellLabel-> + "Out[174]=",ExpressionUUID->"734e72f0-aea2-43f6-a811-0fbb63b31412"] +}, 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[175]:=",ExpressionUUID->"946d2eb7-09c8-43aa-b66f-39edc741593f"], + +Cell[BoxData["659.7171122788135`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, {3.994073568055649*^9, 3.994073591768012*^9}, + 3.9940751816477003`*^9, 3.99407522424048*^9}, + CellLabel-> + "Out[175]=",ExpressionUUID->"60691fd1-8a80-414f-8058-b32593c168eb"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"f1", "=", "0.4209192664"}]], "Input", + CellChangeTimes->{3.9918505481678543`*^9, + 3.994084895859604*^9},ExpressionUUID->"83cccf0d-dccb-fb42-a058-\ 5e950c758893"], Cell[BoxData[""], "Input", @@ -30,9 +4881,9 @@ Cell[BoxData[""], "Input", e7a6896afd10"], Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", - CellChangeTimes->{ - 3.991850550777445*^9},ExpressionUUID->"b70cfd2b-21a1-8344-9518-\ + RowBox[{"f2", "=", "0.1119271435"}]], "Input", + CellChangeTimes->{3.991850550777445*^9, + 3.9940849040018682`*^9},ExpressionUUID->"b70cfd2b-21a1-8344-9518-\ 5e27a96171a9"], Cell[BoxData[""], "Input", @@ -1562,66 +6413,96 @@ MathPictureEnd 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"], +eJzVnGdgVUUWgENekkeIRCAEpWhiqAkEkIBUQekGYaUsZRdBmgYQRMSyCkhR +6VKWjgIKSFmpsiIIuLqr0lEUld5xBZQm0pl957yZc++83DPzsuLK/sjk3Zlv +zjn3zNyp907TTv2yuvXq1K97l07Jjfp26pPVvcszyQ2f6huI8uWKiMh1MPCX +mhwRFfgtIiK0YKy4Lg5BEPgtxA1xCILf73c6/vOBbfALrzBc/n+UHhNMDvxa +4opNoNi3eFl5IYwjchpPJkKYm8iJPFkUQj+RY3kyWbd+FE+WhDCayGEuEsFU +PX0oL6mcTg7iyYoQRhE5gCczdPJFnryPLMbrF3iymi7zWZ6sqZN9ebK2rr0P +Tz6gy+zFk/V0mT15soEuM4snG+syH+fJTJ3sGlovHtbTO/OSmunkYzz5iE52 +4MkWOtmeJ1vp5J94srVOtuXJtjrZmidRXSSRf+TJP+syW/LkozrZnCc76uQf +eLKTbmcznuysy3w4tF501dMzQ9Mf19Mb85qydJsa8WR3XWYDnuypy6zPk0/q +MuvyZG9d5oM8+ZQusw5PPq3LrM2TfXWZtXiyny6zJk8+q8uszpPP6zKr8eQL +usz7QuvFi7qkKrykl3RJGTw5QJdZiScH6uS9PPmyrr0CTw7WZZbnySE6mc6T +Q3XtZYNkoiSvXrlKZKJH7ld1PWnB3JH4L1qMGztOlC5dWpQpU0b06NFD3Lh+ +IxALaVHiyuUrombNmqJEiRLiyOEjUTLL0iVLMUvx4sVFlSpVxJLFSyJiMC1G +zJg+Q9StW1eULFlSpKaminr16onPPv0st4ddr+l2pQbtivAjsPqD1eKhhx4S +F36+gDfYs2dPMWL4CDLtx1M/iri44Ehrw+cb/FL+nt17xBNPPCG6dOkiUb9Y +tHCR2L9vv9Irdn69U5QtW1bs+HJHhN/DrmG6t0tLu3wINGrUSHyx/QvpPp84 +d/acSElJkZ4Jxh0/dlzs+m4XXsXKuObNm4sVy1fglXJGwG9gqPRcdkNG6A4q +RYZcu3pNFC1aFMvKJzPWqlVLfPftd3iVT8Zt3LBR1KlTR1MKhtWuXZtVOlJX +WpKUnjxxUlSsWFFmCYYdOnQQaz9ci1e3SXef/um0aNu2LdaQChUqoPsLFiwo +Ll+6TEYsfnex6Nixo2MEDmNG6o4vTqoP7D8gqlevrqnOysoSy5Yu01Q3adJE +TJo4Ce/lzOkzomnTpiI2NlYcPXJU5vND4Ynp06aL69euI7d71240dfOmzZ61 +YYzujxQy6tTJU57+WLd2HV7FybjDhw5jdYMrVWvAl/Hx8VBTZN4YMXfOXLxJ +8Fm5cuVE1apV4SnwenJe1226x1oxVG1UNn3y8SeiRYsWmu2FChXCB95tJ9g0 +dcpULa/bkLG6Icnao9K4cWOxfdt27VGBlsQpMZ84dPCQKF++vKZ0y+YtokGD +BppxNkPG6YYkaW3JmtVrRMOGDcX5c+fxDqGZGzN6TES89DxUk8mTJiMbqCoi +IyMDHp2oMHVP0HXfpbev48eNx8YQ6livXr2waOJlGtTR9u3bYzoU+8r3VlIj +AlqLFCkCVSFwFQxl1dIaG7clf9UtKRa0xKtHmaiTRXlykk4W4ckpOnknT07V +yTt4cppOFuLJ6TqZ6CIRnKE3Lgm8pDd1SQV4cqZO5ufJWTqZjydn6+TtPPmW +Tsbz5Ns6mZcn5+pkHE/O08k8PPmOTsby5HydzM2TC3TSz5MLdTImtF4s0tOj +eUnv6qSPJxfrZCRPLtHJXDy5VCe9oWUE3eCh5QRd56EVBF3jofcIuspDKwm6 +wkPvE3SJh1YRdJGHPiDol9CiXk1JF0KT1lDSz7zoDwk6z0NrCTrHQ+sIOstD +6wk6w0MfEXSahyrIuG7duuFQrHLlyoErCONwEA3DBsniCBo6yLS0NBrC9evX +D4dvwSG638gEHyDveYWyDYZDMO6Cq6gwZMbRTd4ppQdmI2A//kGO/PnzB3rc +4H2NHDGS7tw+y4nGXjU9PR3HITBMOPHDiYgkq55otx7l2cDdeHsVxj6DXh6E +Q4tSpUqhrNatW+MAMNmqK4+my+Ap0y3Z1eiu8xkKy3Q7hj5D1UMYEsPQOTAh +kmriRLVq1TSP7d2zF8ZD4uIv+LDjJHDgwIGiXbt2VA9NTNDUGG4iqcwbPGiw +GD5suHZ3JrG3UVUsIiXAhKJVq1bSu0alyiaYIMIQ/9jRY6hg/jvzRWZmZoqH +xCjWZf5sLgNNs2bOgrkxDaZhzgnz8EsXL0Xw8sNzJWN2cQ+xfta9PquZhqGE +mm0F6jOuPATEkIixr49VkzpSDx4Dz8FVukdcpLwzOavXHtfArF5l+fabb1Ed +XOXxEOO0T4UNlYJRotwy7LVh2Ew5dumT+mRWdPj+6N27t5jz9hy8usdDntfN +RYZpn5c8v8GBblsMY8J7ZRwsK0CFHz1qNM3CApVTrF+33lW8fncc/tnWSsrJ +OGgqYTbqmKPLz+thWyHDA2vTq1wItSIwS9bi+vfvTzNOr2KPMfhk2tRp+ODa +ith9b+Ha4iUvt8F/blsMRVxJxsEDASsgE8ZPIDOhF4PlH6eIY9xx+CdXppTn +3YtSqnRfGfoKPhBu69yi4+kJNpWpbQlM+Qy6TJjbu+NmvjkTfcmVqd/gBFg3 +gBbTVqbuOwrXFlOZennNbYuhTDNk3NkzZ9GswIiE+pFRI0eJfXv3IQstFHQS +zZo1SzMnK4fbFgNVkcOYBR44pwBZ0fmp9BM9vBEVpmLl3aSkJBiLaXEL5i8Q +ffr0YUs/N+suv1i4YKHWoq16fxUuOZ8/d96zS48232xUmGaaKkZ235rNNHTp +lWXcpo2bcMnT8W4Mjmxh+Ar/YXQA3g48H2nmZFU2tgVaZQ0MYr8//n04mgtQ +RSloqCg2xcrbMJbyejQHDBjAVpRYg7u6du2KTTg0xTAih+XwwGTBa3wWbb7P +qDAt9KojsQa3Mha6pwxYO6rIXAUKFIAOVNMv651WhO441Tna1sJVXhjXTJk8 +RSstt7xCVOYJhjK3aVPWy0VxLQ6aYugquTLPY/AGeFQNKUqxBa3fkT9MW0yl +6+U1ty2G1Ug1C9y6ZasYOmSoph629WBbkSsMrwL3y2J33Q7+yf2GNJkFkmBD +zK0Omsf69euz6u6gss8nS1ven/JJjFm3qh0wBVIdqbseq3n13d7So3PoKXcB +lDAZ7F0fbFYmma0M18E5qiZ+8c3Ob3AjBHZxoBuDQS/spga6N3r6wq0izE6Q +qiJvzHiDpjjKWhhfQ4PONUF3UhVRuzpA16hRQ7Rs2VLMnjUbXETb44wBanwC +7SUM2ORAWsybOw92p5IMkqNz4Ca354tbrfV2IWNistXE8N0bZgWpKC3atnUb +diqFCxfGTgWqcKCZVDcNS37Qj8EWWqTcSAPrlJgyYXI+eYdeG3ruCgS9QKD3 +j/DJMCEhAdeD3Hdo01WQKtXtMgfs2GZmZqI//QZL1AogjMRAAxQVNE6BqQu1 +525ZMeE5EYoEVLl3I6GNUwYnsaLDd6yXySkecqNz6Gyb7YZtpi1UDod5aCtB +hpegtxF0kIe2E3SAh74gaD8PfUnQPh7aQdBeHvqKoD089DVBwZ4iWG4CItZD +YNjXivWIy03i8oSZ41aSEpLj1+QNSfVRatRvZv2tJOXmeNKwIXEr3eyt5DKv +HFGU6vvNrL+VpPzmla+aR1xVyljdI7UMpcbnOK+XtkTeuF0kbCcP7Sboax7a +Q9BXPLSXoB08tN8jbjuPH/CI28bjBz3itvL4IbLYAB0maIsLQuYIJW3m8x8l +aBMPHSNoIw8dJ2gDD31P0Oc89G+CPuOhHwj6lIdOEPQvHjpJ0D956BRBn/DQ +jwR9zEM/EfQPHjpN0EehxXqGktaHJp2lpHW86HMEreWh8wR9yEM/E7SGhy4Q +tJqHfiHoAx66SNAqHrpE0Ps8dJmgv/PQFYJW8tBVgt7joWsErQgtseuUtDw0 +6QYlLeNFY5jLI2GxJU+kR8K7ljzO4NBGOj353yxkNJGLLGQMkQstpJ/IBRbS +6UXnW8hYIt+xkE5fPs9COpv6cy2k807InNBqgul5Kf1tiyRnG9LwjSmGtxM5 +20LmI3KWhXR2N960kAlEvmEhnZWMGRYykcjpFtJZkZff1+b4hbBsn7YE1yq8 +X5xSi3M5+LQFQ2fxOLh7TuPm7Fv52b5nUfszzCs3as8tp5+2YOisWE7h7VK5 +3d+yqIUX25sgKq/t+xYMC5M1k3lr1CqY7QUFpdn2kQuGRUjzJLtm2za60uz9 +ZUuIvol2fbbd2UipNaefs2B4F1kywW6JbQ9QvUOVg+9XMLybjBhvN8K2VRXu +BysYJpHmcdR+ABCyr0GfUdn2RXKkPJmUjyXlXovm+aRbmfX2cD9OwfAe0vl6 +UKey2L2sml8+417LsG5tOf0oBcMUsmBM0AK2cS9O5GgLWZLIkRayFJEjLGRp +IodbSGcuPsxCphL5mot0hgdplP6qRVJZymg4kAHDdJI5xEKWJ3KwhaxA5CAL +WZHsHGghK5FMw3EQGGYQ2d9CVibyJQtZhez8i4V01lYMR0xgWI3I5y1kdSKf +86wXNeiyn2d6Lcr/jEXT/UQaDrPAsDapMBxmgeEDJPMpC/kgyexlIeuRzCct +ZH0iDQdkYNiAtHe3kI1IpuEoDQyd8zQMR2lgmEkyu1nIJkRmO3QD052TNzp7 +pjej/J0smh4hsqOFbE4qHrWQLUmm4VAODJ2TOQyHcmDonMxhOJQDw7akvY2F +bEcyDYdyYOiczGE4lAPDR0l7CwvZgWQ+YiEfI9JwKAeGzskc2Q7lwHTnZI5M +iyTnjA7D8RwYZhHZ0EL2INJw6AaGzskbhkM3MMSTN3BYXcdCPk0y77eQz5DM +GhbyOZIpj70I7gn86hmoOtgAhmNKjN/vVxLatGlDEthR1gt0F/IgjbySDGPG +qcbp8gttvGLH7i+Rokq8Iq8pZI604OABj5Yqz2spkBOJg0li2f9CojOVe4Xk +lL5JluHAFI/uSrlJEnGgjQeMFbtJEvHz8niIl98vx8mqFDJxUu/KwVcfUgAo +8No8wxBXhrAixumPFD8vihKdO3fGl4eWL1sO78GxwuXKrTpwIPuMx4ffPsGL +r8WKFfPc4XPLYduF/1E6/v4dDvaLyPUfxyNRZA==\ +\>", "ImageResolution" -> 96., "LightDark" -> \ +"Light"],ImageRangeCache->{{{0., 359.}, {221., 0.}} -> {-19.402618477936908, \ +0.8923747627909967, 0.7099700316630947, \ +0.001262238128389079}},ExpressionUUID->"8a200671-82f1-364d-8dba-8342607ad7b7"], Cell[BoxData[ TagBox[ @@ -2020,68 +6901,106 @@ MathPictureEnd 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"], +eJzVXGmUFEUSbug5kEFuQRiRWxgYDmFmGJiBEVRuWFhwXcHHcx6HKCCzAquy +gLq8VZBBDmVRkFMRlCcCgoAil7sIrByK3Mdws3LfN+R2RFdFVZaRmd1t43N/ +TE9VVHzxfRmZlVUZVd3tsgf27tkve+Bz3bMrtHgxO6f3c90HVGje/8WAyZ/P +58t3IPCXVMEXE9gWPp/0MUbcFgfhI7AtxB1xED7C3+6P/+LFnt17xPPPPy9q +1KghqlWrJurUqSMGDhworl+77stAn1hx+NBhkZKSgn/gV6xYMV9+2PP5xVsj +3wIv9Mxv+Y8dMxZjVa9eHWPfuX3Hl2qMVdAdS6crDUP5Rc+ePUXJkiUtIcHP +hIQEcevmLcvDJIeLkeCOYZJixYkX27dtR58GDRqIevXqoe/wvw8XN2/cDChQ +64iVe2Pvnr1i0ReLxNUrV5E6ABfDhg0TTz31lK+JJXnL5i2ic+fOVlD4jBPL +li4TrVq1EpcvXUZMnz59xMgRI9MZSEwIVHaGDx08JOrWrSsWLlhoZdMv0tPT +KcP59fSpyjAJ7jD4p5NjJzlvf57YtXMXYS6cv4BJzsnJsZqllGLleZClCNSA +KtjL1OS1RYsWaHczVqpUictrQSa0nYATP58QqampYtrUaVbO/GLM24GT+NZt +KY8KurQQw8QzEmypN67fEJUrV3adGEo6T64CPSBWfLNCmasYywa9mZiYiMPa +HiyZmZli546duJemSZqbw/Y7e+YsjpLcUblWf5g5UhlsAsNhZ2XCuxNE69at +XZ1g5vDL6alVqxYOTFN6Tp44iR3jhPCLbt26ieVfLzemx83RwLJBZzVs2FCM +Hzc+bA43luNIs5TDbFWiRAnRrFkzGFD+EGmsDOVYw2zUW6PEvr37cIjBUH39 +tddF+/btufnMbggIAYFuht69e4v5n89XJitWT9fIgpw/dx7b+s3ybyi0ia4B +g43R09kj7NLFS2LEmyNgwg+5dZ78wfWmefPm+D8pKQldAz2oy9+pk6fYHgoI +N+ZPQZdhQTas34BXOfcpY6JLZ7B+PZ3dXVlZWXTmhUon5S948lpTnK9pBBOY +dcnRJE3myLIm4+LFi0Msml5N8e0B4cJRk93xG1u2AQMGiI9nfRzS5GVzaFKT +ZSXDyrbdzDirn1q2bCk2b9pMrYE5pEqVKmk6lExgt2/j9xvxsu3WffrU6V9c +nhSMqWGF4VP37LPPisWLFodCF6vOWBNrCMB4bNSokejUqZOYPm06tN9np+2r +ZV/h8L544SJeg+HGb3Tu6FQjlMtd8D6zbNmyGBZmG7jQdezYEWYhmpG0lKGE +kKnTLdwPW37AO6uDB3AJIbb9tE1UrVoV8CZqTw7hBjg5ORn+Aj0Hn35MgM1o +TzVrVq/BqzMkJd5K2Lix45AVLk39+vXDgd6A8Y8LkSvVUr5p4ya8HypTpgze +vMN9VSB2rIY2TQ+NCVFBikUx99O5onHjxniBgfwHJkurFTy9lVTVAq+WRQ9r +RpsKPxf8fxyvFLQGDq+Aj3w6K8bKD4ZCTNSEcGxOFOXWvb+W47ew/U7Vx7ht +8FcODPdoFSd4O/kx2nqcIXqUsT3G2HCWKQamxnebqj58FgJTjCoKT48OLeGj +IOw+wx5vBh8FYLe367ifjuNUHg+7L/Cnns/2xKk+DvYHGDxx0oqF/ZcNnnXJ +c4jbM8btSVKT4QMPvWZ2rk6Rh/PONgA2HqLIb5idK5PzSJdzLB2vQAnOZY8/ +SMffdpPFege/k6VEYhwbIqIMcbwTIqI0ISaoUyCNrBKkaiLfy7CXn7HhZ1EK +NikCdGFSOzkCdCFCTzGgndYmEGZayJiCtDtDjfGrVMYR48wI0LHE/ZEB7eiN +IcZZIWOc3dkujF81nd2ho3NCcb9N0T9VK+KAtwg41wBEp5u09ZnaPZaxXSPg +vPCAVwn4eXjAKwScbwCik+OuubVy3C/T1kK1exxjO0/AReEBzxFwsQGITo77 +l6G4n6WtJWr3eMZ2ioBLwwOeJOAy7wjn3H8m968NPOjkuC9XuxdgbMcZm4aR +C3GMsYWp4ijJX2EAopPjvjIU9yO0tUrtfg9jO0jA1eEBDxBwjQGITo77t6G4 +59HWv4LuumdowbkiBlfWGRkZUJ2A52n2IhHKX7B4rF27Ni7CT/x8gi4eR48c +RQWBYz77WRksKIcMGaI8bQsytn2MzWpocAirHsCQeCjRwBM2iLDuu3V21fHY +0WO4SgahEGb2x7NhLW9P/IEIuMa+dPESXfSXLlkatv69jM3KfDBX9kMRYrEe +ilg5DtpArF1Rs21vvvEmdhrsuat28mODOPH+e+9j8RcqP8C3Y/sOKEVxEwfX +gD00YNaSbNMTC3tRDE2zKlwkERL43sT3rM4J2j6c+SH2xZHDR9hTwrnpcdR8 +R2pMTwdsNTVr1hTnzp6T1EydMpW61E7snNlz0BeGM04EeEPK5WYnqVlHavL2 +62vttpry5cvDA11JDTDn5Nhl+KDtg8kfiKZNm2KuuT7jlr47SNd60mWqYdu6 +oB+4LA0dOhT3bA1Q91ry5RLlycDp2k66NhjHkj3cbV2uaqk0lmB4u3WNzh1N +VVqlLtTgqPmPdEJaTNIJCTMf7NnFDHjCAmU378m3e9duyQYlc+thDdn69+8v +ZkyfEYLCbbT1vTTlKaqevsJWzOPHjuMItiunsz6aJdq1a2c/ic/OzhZdu3bF +EwcOQzfC3Hzm9Bl2iHE1rq2MzUqjfUXhaohFrGPwXBRGGqiEfAekUE0XRgT0 +IJwhFStWFG3atIHRwF37OWU/UtI2BvVwF0Sn2OO4bwrF/Qfa2qx250pemxmb +hpELsYm4t4QH3CjL1wBdiZCPahgLq4aCk9/QgRsIuNUFRB+lOzcANIzOBIRb +P4Xivl4+J3n3IoxtLQG3RwD02EzczmUat3ao3Ysytm8JuDMCIHcJCj3EGuLe +ZQA6d8a4tVvtXoyxrWJsGkYuxErGFqaKFSR/rwHorGtwa5/avThjW87Y3Ix4 +hAN+TYz7w2P8ioB5BqBrfSof1TCWYGxLKdiBCIAem0Y0F2IJcWuegZUgJ8f9 +kNq9JGNbzNg0jFyIRcR9OAKgx2aS79RsnDU0734fY1tAwKMRAD22MLnnE/cx +A9BV/2LqEe4TrBTjNI9CHFfzKIEem0ZqKeLhgCZup3rpFIp499KMbS5j+294 +IT4l7hMGoKsuKx81iXYqwbh1Uu1+P2ObTcBTEQA9NhO3UxLHrdNB9ygXcOxj +8NoUvDNdtGhR9Bk8eDC7OPAo8xy1snJXSjX2gqBDhw7iQF5w9ucUlmFsH5Hq +M5bCaBdj4twVEfxbtXIVvGqFr8sGIEWKFMG3N1566aWQZX9Iss+S7MiLMfHu +Ygz+wcIfOvvqlauUgpDS63oqJB910hutMo2dXqjQWUtw/LN0OhUbZ2Q6aTtH +cvKiVKex5Vy5fAWbB+9feuV4clKWsc1gbE4fR6t4Y39DYeI/J2IJwyWUra1z +SqdTMs8bx2C4RRxbH0wOaWlp+P6rUZ/raah81OlssESjrBNjfUJBBd67NXUy +SnMSdkGaDSOs4sRZGuCNzSZNmuCfQkMiY5vK2KyOjLRwY88KXyz8AsOqeouT +M4WSczEogrv6JZITp/5CKECH55La/QHGNpmxaaRyISYR92UDEJ04RpNo11sP +8lENYznGNpGCXY0A6LFdcYXAI+UousNzTc3zIGObwNg0UrkQ7xL39QiAHptJ +PvI4jDfU7uUZ23jGphHNhRhH3DcjAHpsJvnI4zDeUrtXYGxjGJtGNBfibeK+ +HQHQYzPJRx6H8Y7avSJjy2VsGtFciFHELbynWkU65HHKZ6BwMJ6jQg2sxNhG +yLT5I0BzAjTyKxGjh9uvxlRmbG+ouDVt4OL8Q1YRY0Cjp5Jb04YqjG24zB0b +AZpToWlDFWL0cMeFjOEYNcqrMrbXZO74CNCcCncb8HBV4vEwFvB6PsTEHKbi +0ejl4gyVue8xoNFTyV1Aja7G2P4mcxeMAM2p0LSBizNYVpFgQKOnklvThuqM +7WWZu1AEaE6Fpg3VidHDfa8ak8TY/qrittoQ5ZKS/Z0W+Ipw27ZtMRys7lat +XMWuEzjJg+QGB9dId/MVoHiMBM2AdRocztufh9kI/GcLIUkkUZlfq598d/fN +H9s25YMpYtCgQZJt/Ljx4tVXX7Uy8EuZNRjbADn3RagR0XoPyLbBGIOXrNy2 +BfMXiO7duzuCsbbDDZEBqqwXJsHRrUH5cYTDCyduG9RackflcoIxh55sFiVx +ML6iV5GKx7eGYLzC1/ygKgXfP4TvKsL357jxW0OWyGXS6fpoVaTs8hl08eRJ +k/HlGCg7d+nSBV6c4aaHmowtR05qMeMQDbcyZdtmzphJw5F7xakmCfmLKolO +j4M5mm8bXbt6DSffQOJYccmM7QU5c8Utcb+qRGXPuzAYoDPhdzYC2rhX+5SS +uMxZ3Rppncq+RsF8D+8/wVwLf4Gxxp4QyZQaT5KCz4Lp1tn1nWt2TuUuy31V +bbQ6gMNwtj6yspIGNHoquUuo0bUZ23OqOBoVXJzechtKGdDoqeS+T42uw9h6 +ydylXWh0VGI47lIsGqN7eO5Xq6zL2HqoGEuHF6e7rKKMAY2eSm5NGx5mbNky +d9nw0M/I6EQDGj2zVco13PUYWzeZ+4EI0JwKTRvqEaOHu5waU5+xPa3i1rSh +PjE+LXM/qMakMLYuKm5NG1KIsYvMXd57ZqUy6D+rGDXKuThPquKUN8RBvU/K +yiuqMWmM7QkVdwVDHGR8QuaupMY0YGydVNyaNnBx/iirqGxAo6eSW9OGdMbW +QeauYkCjZ0cVt0Z5Q8bWXuauakCjpwfzUMgYTq+GsRFjayNzVzOg0bOtitut +HA9nMJ6tZMbqasYM8vRgktSYTMbWQqVXw51JjC1k7hpqTGPG9piMrmlAoyf3 +rX8TdxPG1kzmTjag0ZP7dQGT8izG9ogqjkZFFql4RFZeW43heLhc4GcwwN0q +bUHVAlZksNqBN6cmvT+JLW05jWsiNzN4n3l3C1rr163Hw9ZP9eHbFfA1nsB6 +nF3/NCWJmbLYupbY36aM1atXL/HJnE8kG/jA7+0F260Y/soJFPcfpkZEu4z1 +yiuvYOrdNvgRJMBrBaM4bqb2ZD26Zax4sfXHrViQtZfxgIERHljOBwcGlrC4 +nDoXcNyvRxLz9kenmGW/EQSVCL/fjwMrPj4eapjsCeb8tolHWn2SFt3SVTwW +R8AXuhy2V69ajfPA/n372dOK+8GWFFlsinFsRlq/ggb07dtXskGd2G4UNzad +6xh3t+zJLpijWdN6Z/w7+KqV2zbvs3miR48eSsGPk2BuUSRlOCpfqIPXI+Gn +BOE3ZeEwjDC4gATOR3YENGdszoIb94Nrg4hLXfZ1ae2/1+ILYvBjh3CGB+ZR +9rRpTuweHcH7e/by69wc1ZYx6WpMS/JMljEN1ZhWjC1JRjcyoNHTg8lQY1qT +ZzUZk6nGODfTVWVMYzWmLXlWljFN1Jh25FlRxmS5MAhxlhblZc9H1NH/QJ7l +ZExTNcZZciXKmGZqTEfyvJ/04pFH1ZhOhLlP5nlcjelM0YvJPM3VmD+RJ06u +MYRpqcZg6QF/CimGtvBIGzWmK3wWIM/2ak/8/J38TJ7pOG4bfgvel+9/Sn8S +OQ==\ +\>", "ImageResolution" -> 96., "LightDark" -> \ +"Light"],ImageRangeCache->{{{0., 359.}, {221., 0.}} -> {-3.233775858153751, \ +-0.007969775184554129, 0.11832856225129938, \ +0.0005589111396958131}},ExpressionUUID->"06204099-db57-8e4e-bcc4-\ +fa1ae37c0063"], Cell[BoxData[ TagBox[ @@ -2094,9 +7013,72 @@ Cell[BoxData[ Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", - RowBox[{"{", "}"}], "]"}]}]], "Input", - CellChangeTimes->{{3.991799458254999*^9, - 3.9917994623413925`*^9}},ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-\ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.005365"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.015909"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.025915"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.035051"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.043054"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.049704"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.05488"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.058507"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.060618"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.061275"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.060632"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.058842"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.056126"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.052675"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.048717"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.044429"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.040006"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.03558"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.031291"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.027216"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.023437"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.019982"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.016885"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.014139"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.011745"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.009675"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.007913"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.006421"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.005177"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.004144"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.003297"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.994084942821766*^9},ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-\ 5e6c7b4b5678"], Cell[BoxData[ @@ -2512,70 +7494,101 @@ MathPictureEnd 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"], +eJzdXHd8VUUWDqm7ZJWqCCgl9I5ACklIBJRqkKYroMGIgQhiIiAoP0AQpUtb +aYoEREBlVQQUUMD2c2VVQIoUEWnSi0hVUGbfmTdzzr2POXeS+OJvd//Iy7y5 +33fOd8/MnTtn7tyXljEoK7N/xqBHe2VUaj0gIyfr0V4DK7XKHuCrCisSElJk +v++vVqWQcF9ZhIS4PqaI38UB+PCVhbgmDsBH/svZ8l+U2PPdHtG3b19Ru3Zt +UaNGDdGgQQMxaNAg8esvv4YkSUyEOHTwkGjSpIn8A1yJEiVCQuFbSJiYMH4C +oCQyVOGnTpkqbdWsWVPavvb7tZBYq62iTlteuuKkqTCRmZkpSpcurYT4P6Oj +o8VvV39TCJsck41opw2bFGUnSuz4dofExMfHi0aNGkns6GdHi6tXrvoU8Doi +3K3x/Z7vxcoVK8XlS5elax9djBgxQnTr1i0kRUn+ZvM3omvXrsoofEaKNavX +iLZt24qLFy5KTr9+/cT4ceMTDJTwPLjSET544KBo2LChWP7uchXNMJGQkIAR +DvV2H8uaiXaakX9ecnSQ9/2wT+zetRs5534+J4Ock5OjTouVouL8pFIEakAV +fEv2iGvr1q1lvdNjTEyMKa5FDaZ1AE4cPyFiY2NF7rxcFbMwMWWy7yL+7XdX +HBl3cXk0E2WQoKVe+fWKqFKliuPCYN0FxMrXAmL9uvVsrMJVHbRm+fLlZbfW +nSU5OVns2rlLfovzCJrTh8b9dOYn2UsmTZyk2sPuI9bAjTb40FGZ8eIM0a5d +O0cj2H2EucNTr1492TFt4Tl54qRsGDIRJtLT08XaD9daw+P0Ea/qoLGaNm0q +pk+bnm8fTq7JR5xSDqNVqVKlRIsWLaBDheXRjYpQjupmEydMFHu/3yu7GHTV +USNHiQ4dOpjGM30iIAQEOj1kZWWJZe8sY4MV4e0uUVF+PvuzPNd1a9ehaZu7 +eAM33Nud7mEXzl8Q48aOgwE/z2cXED+437Rq1Ur+r1WrloT6WtArfqdOnjK2 +kE+4NX6MuyRF+fLfX8q7nPOSsblLMHDDvN3p5kpNTcUrL6/uXPHzX7xqiAtp +XoABTN1yPILm9pGqBuOSJUuCLRxebfZ1h3Dw8JSd9pupuoEDB4rFixbnafDS +PjxCk6qCoaKtTzNStVObNm3E5k2b8WxgDKlatWqcF8vtQJ/fxq83ytu2U/fp +U6evuz0xHmPzZcYcuj59+oj3Vr6XF3cRfMRSVBeA/piYmCi6dOki5ufOh/MP +0WH7YM0HsnufP3de3oNh4vfCpBdirVRT7PzzzHLlykmzMNrAja5Tp04wCuGI +5OkyLybcrhMUb8s3W+TM6sB+mUKIb7d/K6pVqwZ8m+uAGMIEuG7duvDnazn4 +DJMB0B71UPPpJ5/KuzMEJUoFbNrUadIr3Jr69+8vO3q8AR+ZR1+xSvmmjZvk +fKhs2bJy8g7zKp/tCA+3cd7U8DwqaKJcLH1zqWjWrJm8wUD8fYOlOguzexVU +LsGrp9xDzqhdyc93/zeOx/hrfYfXw0cRr1ppKxQq/mawGp2fOrLClm74oz7+ +jLr/U/VUig5s+juxdJfBbEtD3Z15xLU0OpWYln+yUwdIrgZdd0GFO48LDVlW +YIiGXQdxqw1F0DtOUITLjku1Eydt+W/EWpMf9HYgKNTgW37+00tbATl0Um/x +yDDO+lILh6x76AjnrL9ZCBxS5KE9grP+hoVD1p06JDCSs/k6bzPSbdPDexRn +fUkhcEiRh/a/cNYXWzhk3UPHXznriwqBQ4o8tBflrL8W2BOKum16eDfdO+Tn +wkLgkKLXeKRp7iE/X7VwyLqHDtN9W34usHDIuoeOGznr8wuBQ4qc2iWwGGcz +l7dZzG3Tw3txzvo8C4ese+gowVl/pRA4pEhp93r44h+zw2VKlpSUBGktPIjR +2QWsm0DWUb9+fZm9nTh+Qt1EIsTw4cPxeU3x4sVFnTp18NnP2Z/OoijTTack +d3Jz/ZL9Iya3ZI+qIamHZzJgZsMXG/Q61ZHDR2RedfjHw9LMksVLIPvTI3fH +jh3F9m3b5TfTeFvSHUUVbzUJUSvjOHVQK+MqJv468K+XVXTd2DFjZQPAN+fS +jV7BisijuFJc5F5GmbZlaj0awamoZQ2UNGzYMDF71uz8S6J4zUUhttVgLcTX +c3SPQSHzXpknxXgKkZNRNiIvoZB9P3gvq2ohFStWhGd3LiGvL3kdHiPlKyKl +7ZJsK5VaEvRjU2zg6su3JGoke2/RHVgLcSyCuXrLnNlz8iXkJi42c1zXmXLn +us5gcIJv+oYHq+ewpBJ4TX23+ztHXYRchFfNquUZpzU3uWOkG8s/FjELWOpe +FymOHjkqO7JeBFv02iKRlpamR8tZM2fJRWxYr4ELj9NwMxce/zWJ52Ra9ymm +jsGzLOg3IAfi6LsOcciENb0xz48RZcqUAQ2sBArDRPiQCCbdNHAm4NcbeE4Z +7lTHIvtGC5s8jkGVxRwcWXEL52c0mihh5JD1Z/FASV5RWc7PM2istIVNHolz +U545w1HlzTynHKdyKBq7xcImj0+jx7I8pzzncTAaK29hk0fi3MpzbuU8DkC9 +txWA/QT6rhjYX251qyRkpUDkbZz1x5FTmdd2m9tPfzQbw3MqcB77orGqFjZ5 +JE41nlOR89gH2dULwM7Es61hYZPeTPxai+dU4jw+jOzaFjZ5JE4dnlOZ85iO +51g3sOdUdvtJx6/1A5ExnPUeyGnAa4tx+yFOQ55ThfN4P7JvLwD778huZGGT +XuI05jlVOY9dkB1rYZNH4sTxnGqcx47IjrewySNxEnhOdc5jGrKbBvac6m4/ +hEzk/dTg/LRDdpKFTR6Jk8xzanIeWyE7pQDsu5CdamGTXuLcwXNqcR5bINu/ +/SDYubqe0EMmDM59x0L0hkiYPeoMy7TMWst9oiS1hV9qoeToerHAZ0FOky+c +v4BT+9WrVnsKrs1FORWlt1TSCzeX1/sGIDWCtBNyPfC3c8dO2FtgWkGu7Q42 +Kb4TFQcrrdchXvjqQtkCPx760ZiJ1OHCmYzi7kJxwU71IesGLHRiSvUDokRC +WqGQYKX6uoPNfXmuaN68uYy6qeHqclFqiuJao7hgJf1aCGxpWPX+KvaKqOuO +F0lqY+1V+U3/tSRfSox7b0yS2If7cSiuresiDd5CgH9flNqRh3XZ2dliwfwF ++Rcci4LbKcFBWCiIEhkZGaJHjx7yioLD0L4wVJ85fcbYAekxd4Cq9n5VBV0w +0Bt3oINAg8IFU7lyZdG+fXvoHKalnfpcqBqhqLv9okxBre8+EeKk8ZwGnMcG +yO5gYZNHkzEPdkPOt2lIuMdhJwzn0uS7Dn7tzHu8nfNoml90stgh3ya2h4pG +nArTfLNLAeyYZspdLXbobEzse3l2Y06FKYe6z2KHVFAOdT/PacL5phy2m4VN +HonTnefEch5p/aJHYE+Ndfsh5AO8nzjOD61YPWhhk0fipPOceM4jrUz2tLDJ +I3Ee4jkJnEd6HpJhYZNH4jzMc5pyHulJZC8LmzwS5xGek8h5pOfHmYH9JdHt +h5C9A5FJnHV61t+H15bk9kOcLJ6TzHmkHRqPWtjkkTh9eU4zziPtq+lnYZNH +4jzGc1I4j6bdTh6+U9y+TWwPFamGumto8XELUYIInh3Yc+4wEK8iPMcIl4cI +9AQvobmh7hckDrAQJYjgA3l4C0PdRSQOshAliOBP8nDTJsJzSBzsJxbKykOU +fF0BcgSohzfU4BkYpC0bv95ofDxImxtJ4RC/wkJccIiSO8TBotIhtm7ZKho3 +bgyzdOO0m/aUnsXSU0pn4a4uaDWQDObOy1Wnd71C07bT06j1adQarHUFreHY +0WOyN8AudVPkaMXsjOEoxTBYSwrh6hPe6KtQoYJ8bW3WzFm0qmAK1ElDHYUs +WIsMWhq8bLFt6za5yd8XdtN1QSubJmlDUVqwlhh0awKve/furp7n9NzaUHcM +tQ6z9rL8rjNoXZBdV69e3VuX1EBqhruuz2AsLGg1kNPD6MapaYMajmBphGtU ++0OrBpGiZ8+e8i0hGBChN/Xu3Rse85t6UltD3SFU9Yxf1R9dNTh+7Lh8lQpu +CYAZPHgwaGP1SN+kYqRfhelm1s5Qtx+JoyxECSL4szy8vaFuLxJHW4gSRPDn +HHCJvhsP7cHS87zNNEPdLiSOsRAlaLfhqIfHDoa6HYY6D98d0PcOLI3j4fcY +6rYhcbyFKEEEn8DD6dnZFixN5OGdDHWbkDjJQpQggr/Awzsb6r5C4uTADtQZ +DxFoCm+9i6FuAxKnWogSRPBpPLyroe5zJE7nifca6j5D4j8sRAki+Is8/D5D +3cdInGEhStAnhqMeHul59EeGox4e7zfUrTXUzbSYkL7XYml2YFfqhoc+wNIc +3mZ3Q90qJL7EE3sY6t5D4ssWogQRfC4PfwBBK7DksWn6QUPdMiTOsxAliOC5 +PDwdQW9jaT4P72moW4pEj639PRFEcOf+fol+CA+9gaWFgaAMg/XFCPd43yED +QQT3eGHjYbdNIprhvQx1C5Do8fpLL3f4ZMnjXZxH3K1K0TLDMw11c5Go3mwK +cpatj8FPJ+h9+IAZOnSocR5Ku6FImXqjq1Cyaz3fg123+/fJeZdRV2/3+CFL +6t23oGfTkc7sVv59/NHH8NMK8udxfJRixYrJt7WHDBliFEub2GZj6S0UW/B0 +OsqZTss/SNCgOS9fuownfl0oZQ5LmmZg6R3UFKxUWgcQdmeotEj+KU2UUmcZ +wjYdhS1DYcFKpLWwSxcvyROF31YJFBYgp6+hbipKfBclBiuh1r85BhvBIa10 +yDMuhNFGS1K13NrL8ptOa1VwqcfFxcnfsfFS1Q+1TMbSCteFGoy0Wq+LQJIL +v5rj0YyPoYxJWFrpGtEKmFlHKg2wgJmSkiL/GA390TPte/f/gkiB82g97qxY +vkK64tqDNg2Pw9L7fteme1Q2gsZgaRUPzzHU0ab51RYiJcqytMYBl2jaJD0S +Sx8GggbgoRFYWss7HoigYVhax8MHIYh2v6/n4U8iaAgK/IiH0151In7Cw4cY +6uj0P7UQQ93R+oyHP4Ug6g6f8/CnEUT9/F88nAJJY8UXga1KjdMH6zbwNocj +nCYwX/Jw6ik04/uKhz+DIJq3fs3DqbPSjH4TDx+FoB54qpt5OL1pQrnbFh7+ +HILuReJWHv48wjsjfDsPp5dqaI1lBw+nIehuJO4MbPrxWGqDpd28zYlok1bA +9/DwSWiTnpHt5eGTEZ6CpR94+FQEJWJpPw+fjiC5MixnRgd5+IsIvx1Lh3n4 +TATVRetHefhsBNXA0nEeLtNx+SMdFbF0iofLNDkSqm7G0tnAppdZaFEoRWLp +Am9TpmY3QtUVHiQ//0t+mMh2XJYtv74bUuQ/PkeLDQ==\ +\>", "ImageResolution" -> 96., "LightDark" -> \ +"Light"],ImageRangeCache->{{{0., 359.}, {221., 0.}} -> {-3.233775858153751, \ +-0.0043827503402644324, 0.11832856225129938, \ +0.0003073572253865838}},ExpressionUUID->"899e43aa-c372-6647-a3e4-\ +4952f308ab17"], Cell[BoxData[ TagBox[ @@ -7548,12 +12561,15 @@ Cell[BoxData[ 1ca469b254bd"], Cell[BoxData["0.07371813161570438`"], "Output",ExpressionUUID->"d15888a7-bf5a-b54e-a332-976645c927ce"] -}, Open ]] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input",ExpressionUUID->"ce1d07fb-39ef-4a2d-a4ac-c7999ed96f34"] }, -WindowSize->{718.5, 729.75}, -WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +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 +12584,609 @@ 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, 357, 7, 36, "Input",ExpressionUUID->"5210b4c5-145f-4e1a-aa29-511430e5ecc6"], +Cell[936, 31, 309, 6, 41, "Output",ExpressionUUID->"ad46ab81-2d31-44d3-953b-97b13ecd0a1e"] }, 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[1282, 42, 253, 5, 36, "Input",ExpressionUUID->"69758569-6559-4f9f-9f7f-b65c67e67ecc"], +Cell[1538, 49, 256, 5, 41, "Output",ExpressionUUID->"29c5a549-af78-42c3-b788-cc9039fc82f3"] }, 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[1831, 59, 226, 5, 36, "Input",ExpressionUUID->"96c70c96-9f28-40c4-b3b5-214b23241895"], +Cell[2060, 66, 256, 5, 41, "Output",ExpressionUUID->"afec2811-2dc8-4754-9efe-cdaf9df3f1f5"] }, 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[2353, 76, 180, 4, 66, "Input",ExpressionUUID->"bd360ff8-9801-462d-bf9e-a94db99e6d16"], +Cell[2536, 82, 254, 5, 75, "Output",ExpressionUUID->"f605b3be-026c-423a-81ba-dd6f47768b47"] }, 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[2827, 92, 262, 8, 96, "Input",ExpressionUUID->"32cd3f49-2a3e-415d-8a20-a03a5e28f4be"], +Cell[3092, 102, 257, 5, 75, "Output",ExpressionUUID->"352cb8d0-fce8-4296-9609-a75efd02eeab"] }, 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[3386, 112, 136, 3, 66, "Input",ExpressionUUID->"14c77262-0f08-4a0c-8b7b-06f9b837b5b9"], +Cell[3525, 117, 260, 5, 75, "Output",ExpressionUUID->"45c0c1e8-1471-4571-a48f-0dfd03cfa534"] }, 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[3822, 127, 281, 7, 66, "Input",ExpressionUUID->"38248510-4494-40d5-8d8c-7c0a0239824b"], +Cell[4106, 136, 274, 5, 75, "Output",ExpressionUUID->"d71185f7-dc36-49a2-a838-3a97af68854c"] }, 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[4417, 146, 262, 8, 66, "Input",ExpressionUUID->"d9399ba0-28d3-4c6e-aa7b-5360ab82d8e0"], +Cell[4682, 156, 273, 5, 75, "Output",ExpressionUUID->"49350be2-43ef-4491-be3b-9d06634e361d"] }, 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[4992, 166, 208, 4, 66, "Input",ExpressionUUID->"0e21b474-16e9-43d4-8cfa-749627016079"], +Cell[5203, 172, 236, 4, 75, "Output",ExpressionUUID->"5c612506-0b0f-4e8e-b103-abc2a73b398b"] }, 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[5476, 181, 208, 4, 66, "Input",ExpressionUUID->"e35541b8-50be-4e11-9c7e-d38cfef2b2d6"], +Cell[5687, 187, 239, 4, 75, "Output",ExpressionUUID->"c7bbd978-e40b-44a5-9b2f-3717d41e2556"] }, 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[5963, 196, 133, 3, 66, "Input",ExpressionUUID->"78b1b396-ec07-435d-b63f-bae87a994155"], +Cell[6099, 201, 253, 5, 75, "Output",ExpressionUUID->"9c13ebf4-ac03-4d33-a018-5534cc931b9a"] }, 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[6389, 211, 133, 3, 66, "Input",ExpressionUUID->"abfdab78-d2c0-4a27-a323-ec74c98d8f5a"], +Cell[6525, 216, 252, 5, 75, "Output",ExpressionUUID->"b2fef7c4-cb7f-49e4-be94-2892db0c9dd2"] }, 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[6814, 226, 561, 20, 175, "Input",ExpressionUUID->"b03b18f2-5dda-4e35-823c-0a9766dcc51d"], +Cell[7378, 248, 273, 5, 75, "Output",ExpressionUUID->"01354a3a-c9b7-4cb3-8461-a3c2ac201038"] }, 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[7688, 258, 561, 20, 175, "Input",ExpressionUUID->"5f3deac1-6a9f-4c8d-8d15-5bb8e0bc7096"], +Cell[8252, 280, 271, 5, 75, "Output",ExpressionUUID->"5948e55d-9456-4fd6-a8ea-40324232efe8"] }, 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[8560, 290, 1592, 51, 362, "Input",ExpressionUUID->"6b04567a-b064-4157-98ae-6782b8a8a457"], +Cell[10155, 343, 267, 5, 75, "Output",ExpressionUUID->"dc34d31e-b4ce-4175-bc12-7e6e07d83e53"] }, 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[10459, 353, 1426, 47, 362, "Input",ExpressionUUID->"92e21de7-0fb3-4574-b0c3-e7e966a594b6"], +Cell[11888, 402, 286, 6, 75, "Output",ExpressionUUID->"1853c4d2-964b-4e8a-b338-2927ac203594"] }, 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[12211, 413, 1426, 47, 362, "Input",ExpressionUUID->"7792e963-ea18-4cd7-b377-5907b6a6686e"], +Cell[13640, 462, 289, 6, 75, "Output",ExpressionUUID->"d7bd1f8c-24b3-4da3-92c2-58e7609339cf"] }, 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[13966, 473, 1592, 51, 362, "Input",ExpressionUUID->"5c040776-6591-4224-bb83-a4801cb23196"], +Cell[15561, 526, 268, 5, 75, "Output",ExpressionUUID->"6b92ed77-596c-4b2c-a35c-1da372b08b72"] }, 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[15866, 536, 135, 3, 66, "Input",ExpressionUUID->"500d9880-2d6a-40d6-9da5-06118272064f"], +Cell[16004, 541, 256, 5, 75, "Output",ExpressionUUID->"2ee25cb4-af7c-4364-96ac-5b5bb44693fc"] }, 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[16297, 551, 137, 3, 66, "Input",ExpressionUUID->"8a60e21d-5640-4eec-a6ff-1af78e25481c"], +Cell[16437, 556, 258, 5, 75, "Output",ExpressionUUID->"9f1acd20-54f9-4c6a-94a9-6104ad9a50a9"] }, 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[16732, 566, 138, 3, 66, "Input",ExpressionUUID->"246f7103-b2bb-46cd-a57e-a2494f3ddd1c"], +Cell[16873, 571, 260, 5, 75, "Output",ExpressionUUID->"2eb701c5-f0cc-4d5a-91cb-82dbf2b8d16b"] }, 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[17170, 581, 223, 5, 66, "Input",ExpressionUUID->"f56ca74e-3b0a-4d83-af0c-d97c9e86a21b"], +Cell[17396, 588, 269, 6, 75, "Output",ExpressionUUID->"f967ea04-c983-4fde-9681-971ea031b1ac"] }, 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[17702, 599, 138, 3, 66, "Input",ExpressionUUID->"c2aea24b-853c-4042-9d19-332d1fe3fd11"], +Cell[17843, 604, 260, 5, 75, "Output",ExpressionUUID->"9ab3568e-9dc9-4ec4-9ad7-125607efc6e8"] }, 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[18140, 614, 326, 6, 66, "Input",ExpressionUUID->"e3de6edb-f435-4cc3-a9d8-e91c9d075165"], +Cell[18469, 622, 253, 5, 75, "Output",ExpressionUUID->"5bcaf05b-c24b-454e-8767-eca48d75722a"] }, 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[18759, 632, 302, 6, 66, "Input",ExpressionUUID->"0c0d7845-898d-4907-ba48-90e67215fccc"], +Cell[19064, 640, 259, 5, 75, "Output",ExpressionUUID->"f07d616a-9ba9-4576-8201-37ce68feafa3"] }, 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[19360, 650, 223, 5, 66, "Input",ExpressionUUID->"9bbe9c96-37e3-47aa-856d-3dc1aaab8cd0"], +Cell[19586, 657, 250, 5, 75, "Output",ExpressionUUID->"3f39b572-abbd-47f2-a52d-e6d8b469b0c9"] }, 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[19873, 667, 354, 11, 96, "Input",ExpressionUUID->"392e48ba-7a8a-4f76-846f-de90c2cdaf68"], +Cell[20230, 680, 273, 5, 75, "Output",ExpressionUUID->"7777ca2a-de5c-4d45-b74e-faeb81f5a0d9"] }, 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[20540, 690, 354, 11, 96, "Input",ExpressionUUID->"4f381a6b-ee93-4295-9e03-c57107db6657"], +Cell[20897, 703, 290, 6, 75, "Output",ExpressionUUID->"c6c7e799-2b6a-4e29-abe9-8ec7a5ac31af"] }, 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[21224, 714, 998, 27, 184, "Input",ExpressionUUID->"5e5777eb-c78c-40cf-89d7-98bdf45c2cc5"], +Cell[22225, 743, 274, 5, 75, "Output",ExpressionUUID->"6099da28-3108-4785-a699-ff43f7a69c94"] }, 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[22536, 753, 203, 4, 66, "Input",ExpressionUUID->"3d7b4fcd-5d11-4b24-a739-1055052c8d2a"], +Cell[22742, 759, 251, 5, 75, "Output",ExpressionUUID->"3c49b192-f416-43fe-8314-2f6552b30171"] }, 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[23030, 769, 331, 6, 66, "Input",ExpressionUUID->"3a510322-dc13-4a29-9657-3a3b4dbac4a4"], +Cell[23364, 777, 230, 4, 75, "Output",ExpressionUUID->"7b9aa398-7ff3-4c6a-be2d-ba1e4155d7f6"] +}, Open ]], +Cell[23609, 784, 177, 3, 66, "Input",ExpressionUUID->"842095ec-445b-4e68-bdd7-6634e4c20f80"], +Cell[CellGroupData[{ +Cell[23811, 791, 331, 6, 66, "Input",ExpressionUUID->"de7435d2-2f54-4b08-bb3e-08111c71fef7"], +Cell[24145, 799, 234, 4, 75, "Output",ExpressionUUID->"55035af7-cf2c-46dc-918f-457c1e33b299"] +}, Open ]], +Cell[24394, 806, 177, 3, 66, "Input",ExpressionUUID->"dc0c6988-8768-4f31-a837-83f0cb6628ef"], +Cell[CellGroupData[{ +Cell[24596, 813, 333, 6, 66, "Input",ExpressionUUID->"fc569750-6604-4df8-aa55-1321664a65c4"], +Cell[24932, 821, 231, 4, 75, "Output",ExpressionUUID->"ef94bd72-3bad-46aa-9eee-fed1f077a037"] +}, Open ]], +Cell[25178, 828, 177, 3, 66, "Input",ExpressionUUID->"6cf2d16e-e71f-49e8-a67a-08cb0010e5e1"], +Cell[CellGroupData[{ +Cell[25380, 835, 357, 6, 66, "Input",ExpressionUUID->"35a48b33-ff80-44f9-8fbc-a222d26dcb6a"], +Cell[25740, 843, 230, 4, 75, "Output",ExpressionUUID->"5225ec4e-4aef-4320-b254-1847f41b4605"] +}, Open ]], +Cell[25985, 850, 175, 3, 66, "Input",ExpressionUUID->"1675c165-e69d-4b9c-bf18-187694398458"], +Cell[CellGroupData[{ +Cell[26185, 857, 303, 6, 66, "Input",ExpressionUUID->"c9ae2d79-9ac6-4d19-a1d1-15447d866c59"], +Cell[26491, 865, 232, 4, 75, "Output",ExpressionUUID->"357937b8-17fc-4482-834a-0186a915e41a"] +}, Open ]], +Cell[26738, 872, 175, 3, 66, "Input",ExpressionUUID->"34f9c528-5b71-4ece-b354-1826feed8c16"], +Cell[CellGroupData[{ +Cell[26938, 879, 309, 6, 66, "Input",ExpressionUUID->"965fae0c-ed4c-44fd-9e6d-188bb1d3098a"], +Cell[27250, 887, 233, 4, 75, "Output",ExpressionUUID->"4fe16542-584e-4eb2-a493-e8fa85773d6b"] +}, Open ]], +Cell[27498, 894, 177, 3, 66, "Input",ExpressionUUID->"e6ac4dd4-3f69-4758-b2b5-dedab2cd1552"], +Cell[CellGroupData[{ +Cell[27700, 901, 331, 6, 66, "Input",ExpressionUUID->"99ee2901-d88a-4220-94bd-eaaac967b501"], +Cell[28034, 909, 235, 4, 75, "Output",ExpressionUUID->"2588ad09-2a23-4964-b783-881f51cbe8d3"] +}, Open ]], +Cell[28284, 916, 176, 3, 66, "Input",ExpressionUUID->"2e90c8b9-c357-45d1-af1e-69e619f0f8c4"], +Cell[CellGroupData[{ +Cell[28485, 923, 280, 5, 66, "Input",ExpressionUUID->"616094f6-07e9-4426-abab-f9e340c819f7"], +Cell[28768, 930, 232, 4, 75, "Output",ExpressionUUID->"9d86f16a-5372-4c74-95d1-3cac60461657"] +}, Open ]], +Cell[29015, 937, 179, 3, 66, "Input",ExpressionUUID->"21d9ca36-ed36-49d0-8e70-66354b7c2f9b"], +Cell[CellGroupData[{ +Cell[29219, 944, 19813, 486, 5405, "Input",ExpressionUUID->"6a92d4ba-7990-4137-88f1-cebc950ec2b4"], +Cell[49035, 1432, 271, 5, 75, "Output",ExpressionUUID->"6556bb48-da8c-4ec6-b3ae-3a5c8dd280e7"] }, 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[49343, 1442, 19752, 490, 5343, "Input",ExpressionUUID->"ded44718-5e9f-4136-ad97-4f21f5eb326b"], +Cell[69098, 1934, 266, 5, 75, "Output",ExpressionUUID->"aaf40761-363b-473b-b56f-509a7dc80c7c"] }, 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[69401, 1944, 19752, 484, 5342, "Input",ExpressionUUID->"234e4766-ae73-4366-888d-721c90c34342"], +Cell[89156, 2430, 287, 6, 75, "Output",ExpressionUUID->"c4e24a77-f356-474c-a6db-3c31c03b3b98"] }, 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[89480, 2441, 22538, 554, 6074, "Input",ExpressionUUID->"3447aa47-926e-4105-b529-53182b1f9892"], +Cell[112021, 2997, 288, 6, 75, "Output",ExpressionUUID->"4150c03c-74de-45dd-94c1-164928601e9b"] }, 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[112346, 3008, 22539, 554, 6074, "Input",ExpressionUUID->"84e45612-fe14-4a86-b37b-29b1fd952f1a"], +Cell[134888, 3564, 291, 6, 75, "Output",ExpressionUUID->"184adab8-24f7-40cf-8257-2553c683f0fc"] }, 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[135216, 3575, 25495, 627, 6806, "Input",ExpressionUUID->"7a70f639-b9ef-43cc-85ac-2a3c009b0422"], +Cell[160714, 4204, 290, 6, 75, "Output",ExpressionUUID->"308ec60b-8c5c-47c1-8d12-6d12c5ece297"] }, 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[161041, 4215, 134, 3, 66, "Input",ExpressionUUID->"7bc16394-d589-462d-b330-8397fb3f2047"], +Cell[161178, 4220, 253, 5, 75, "Output",ExpressionUUID->"e53699da-0c38-4832-89e0-2f096d488e23"] }, 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[161468, 4230, 134, 3, 66, "Input",ExpressionUUID->"a6b40e3a-cf2c-4f9a-b129-de395f756d4e"], +Cell[161605, 4235, 254, 5, 75, "Output",ExpressionUUID->"e5682ebd-a4a7-4282-8c38-0d669f9a424e"] }, 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[161896, 4245, 1148, 40, 246, "Input",ExpressionUUID->"73a21032-e77c-4504-89ed-159786f65d30"], +Cell[163047, 4287, 269, 5, 75, "Output",ExpressionUUID->"f912ad7b-c882-41f5-815f-ecea19b45029"] }, 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[163353, 4297, 1045, 36, 246, "Input",ExpressionUUID->"21217782-7ddf-452d-9a66-8c8a3ae8aedd"], +Cell[164401, 4335, 288, 6, 75, "Output",ExpressionUUID->"bcae0679-338e-45a0-9243-e04cd91709dd"] }, 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[164726, 4346, 1148, 40, 246, "Input",ExpressionUUID->"af407c9e-e948-4537-b0e9-9976724fad70"], +Cell[165877, 4388, 272, 5, 75, "Output",ExpressionUUID->"92750e76-ea54-463d-8cfc-8fa52e037e25"] }, 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[166186, 4398, 112, 2, 66, "Input",ExpressionUUID->"c6f40a8e-7108-4280-abdf-d61c7ef7c069"], +Cell[166301, 4402, 269, 5, 75, "Output",ExpressionUUID->"c0d8fa98-deff-4a1e-a762-248eb4961b2f"] }, 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[166607, 4412, 112, 2, 66, "Input",ExpressionUUID->"9f49d01a-e956-46f1-bc32-3c0a0c5676fd"], +Cell[166722, 4416, 290, 6, 75, "Output",ExpressionUUID->"d7e3941f-a328-4ba2-8498-96acacba8db3"] }, 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[167049, 4427, 112, 2, 66, "Input",ExpressionUUID->"757ac39d-4b2a-4228-9138-a03f58a1ff11"], +Cell[167164, 4431, 287, 6, 75, "Output",ExpressionUUID->"b03be3c2-99e5-48da-b4fc-d971a27c41ae"] }, 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[167488, 4442, 112, 2, 66, "Input",ExpressionUUID->"62adb8fa-10b5-480f-894b-f0238c0d1b4a"], +Cell[167603, 4446, 269, 5, 75, "Output",ExpressionUUID->"a9ff62cb-6229-420d-a06d-9f4405fec512"] }, 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[167909, 4456, 111, 2, 66, "Input",ExpressionUUID->"d43e6f92-d809-44e0-9120-b196ea8daae1"], +Cell[168023, 4460, 272, 5, 75, "Output",ExpressionUUID->"ae06fbeb-d6c8-473e-9c5f-4a3b3e64c434"] }, 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[168332, 4470, 111, 2, 66, "Input",ExpressionUUID->"02a8a8e6-24da-4cb4-a9aa-601cc47acfc0"], +Cell[168446, 4474, 272, 5, 75, "Output",ExpressionUUID->"4005a743-b7f7-4e32-b1cb-890516619b5f"] }, 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[168755, 4484, 501, 17, 125, "Input",ExpressionUUID->"93541c5e-8b46-4315-b49c-dba3509c9f70"], +Cell[169259, 4503, 287, 6, 75, "Output",ExpressionUUID->"6c00d70e-51ac-49a5-aad3-6b5aab4905d8"] }, 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[169583, 4514, 501, 17, 125, "Input",ExpressionUUID->"2d38d866-1931-4002-9617-99a4e47bd22d"], +Cell[170087, 4533, 283, 6, 75, "Output",ExpressionUUID->"6777495a-a6e6-4cf3-bf0e-4953d5b72a50"] }, 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[170407, 4544, 1792, 61, 420, "Input",ExpressionUUID->"9d6a4f6e-da0a-4388-909c-a8e2830ba813"], +Cell[172202, 4607, 271, 5, 75, "Output",ExpressionUUID->"e12b71a0-a2cf-48ff-8242-904c1a152792"] }, 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[172510, 4617, 1105, 37, 299, "Input",ExpressionUUID->"02ec0ba8-fa05-4c6d-aac2-4590440599d3"], +Cell[173618, 4656, 284, 6, 75, "Output",ExpressionUUID->"3b885b3e-049d-40a6-bf91-9a94cae83015"] }, 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[173939, 4667, 1822, 62, 420, "Input",ExpressionUUID->"cf4b5661-671b-4ab6-b1c1-32c95855ae45"], +Cell[175764, 4731, 268, 5, 75, "Output",ExpressionUUID->"189fdaf0-6685-4ba2-a19e-8da43287dc1e"] }, 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[176069, 4741, 1635, 54, 368, "Input",ExpressionUUID->"56d119f4-b5a5-4dc4-b3d1-1f19739c2200"], +Cell[177707, 4797, 267, 5, 75, "Output",ExpressionUUID->"734e72f0-aea2-43f6-a811-0fbb63b31412"] }, 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[178011, 4807, 1635, 54, 101, "Input",ExpressionUUID->"946d2eb7-09c8-43aa-b66f-39edc741593f"], +Cell[179649, 4863, 268, 5, 41, "Output",ExpressionUUID->"60691fd1-8a80-414f-8058-b32593c168eb"] +}, Open ]], +Cell[179932, 4871, 187, 4, 36, "Input",ExpressionUUID->"83cccf0d-dccb-fb42-a058-5e950c758893"], +Cell[180122, 4877, 152, 3, 36, "Input",ExpressionUUID->"7730e455-e5f4-194b-b761-e7a6896afd10"], +Cell[180277, 4882, 187, 4, 36, "Input",ExpressionUUID->"b70cfd2b-21a1-8344-9518-5e27a96171a9"], +Cell[180467, 4888, 154, 3, 36, "Input",ExpressionUUID->"86df0a71-aa65-aa41-b8f1-8c5c5be10fe8"], +Cell[CellGroupData[{ +Cell[180646, 4895, 1273, 41, 61, "Input",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"], +Cell[181922, 4938, 106, 0, 41, "Output",ExpressionUUID->"cbffa725-bd15-2049-b55f-318286f23572"] }, 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"] -}, Open ]], -Cell[208234, 7211, 138, 3, 70, "Input",ExpressionUUID->"4ad58a38-0776-5240-aa41-ba7c8ff64fb9"], -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[182065, 4943, 910, 31, 73, "Input",ExpressionUUID->"c16f367e-d189-2745-b3b8-a9b137c5e3b6"], +Cell[182978, 4976, 106, 0, 41, "Output",ExpressionUUID->"ccc498a0-28db-294f-9612-85d9a5c6b1f9"] }, 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[183121, 4981, 885, 30, 73, "Input",ExpressionUUID->"b7d001ae-480c-4b41-8df9-8010347227f7"], +Cell[184009, 5013, 106, 0, 41, "Output",ExpressionUUID->"0586a11a-38a6-a040-a172-aaeab8c90dd8"] }, 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[184152, 5018, 532, 18, 66, "Input",ExpressionUUID->"d15e5e59-9ad8-e247-a132-b43b2736212a"], +Cell[184687, 5038, 101, 0, 41, "Output",ExpressionUUID->"c25fd138-6ebd-9549-9de5-30353d068c14"] }, 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[184825, 5043, 625, 21, 66, "Input",ExpressionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"], +Cell[185453, 5066, 100, 0, 41, "Output",ExpressionUUID->"8c8a87e7-f604-4044-b4ce-b17ddc0907b3"] }, 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[185590, 5071, 144, 4, 71, "Input",ExpressionUUID->"906db7f6-73f3-8a4e-88a4-7c75445a4f32"], +Cell[185737, 5077, 101, 0, 41, "Output",ExpressionUUID->"fa0bea71-615d-2d4d-8b39-59994ce24952"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185875, 5082, 144, 4, 69, "Input",ExpressionUUID->"731b68b1-c44a-6c4a-a9f8-bc957ede9a68"], +Cell[186022, 5088, 100, 0, 41, "Output",ExpressionUUID->"d3e4fece-e329-2041-9645-50ae8ca1c91c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[186159, 5093, 155, 4, 55, "Input",ExpressionUUID->"71af6813-eb8f-4944-8d03-7bcd77a7b4b4"], +Cell[186317, 5099, 101, 0, 41, "Output",ExpressionUUID->"8db6732d-a570-734c-94eb-cb35afdbb155"] +}, Open ]], +Cell[CellGroupData[{ +Cell[186455, 5104, 155, 4, 55, "Input",ExpressionUUID->"28815b73-08dc-e64f-8823-2a55ad6b8ca8"], +Cell[186613, 5110, 101, 0, 41, "Output",ExpressionUUID->"06581e5e-cb29-0446-9bb7-b3bb2156a7c7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[186751, 5115, 6029, 184, 431, "Input",ExpressionUUID->"137e8d46-8eff-3c47-bf8f-1350d0b8a0bb"], +Cell[192783, 5301, 102, 0, 41, "Output",ExpressionUUID->"000a1d2e-b429-4a45-b9a2-ccba4bf718eb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192922, 5306, 342, 8, 53, "Input",ExpressionUUID->"65edd566-4493-2440-9c51-9fca28ce324b"], +Cell[193267, 5316, 342, 6, 26, "Message",ExpressionUUID->"b04cf5cc-6c74-f842-9fba-c737c46f5a7b"], +Cell[193612, 5324, 100, 0, 41, "Output",ExpressionUUID->"32922499-707a-964c-90f0-b2630d16ee29"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193749, 5329, 6096, 186, 431, "Input",ExpressionUUID->"d808e80b-1928-8046-afec-31463f4946cd"], +Cell[199848, 5517, 103, 0, 41, "Output",ExpressionUUID->"17720629-0c4f-744e-a447-06cd4a4f0034"] +}, Open ]], +Cell[CellGroupData[{ +Cell[199988, 5522, 342, 8, 53, "Input",ExpressionUUID->"56b1717f-bc75-4047-98f0-7a0dede3f8a9"], +Cell[200333, 5532, 342, 6, 26, "Message",ExpressionUUID->"6f900e99-9e38-fb4c-84fd-e99588ed1cc5"], +Cell[200678, 5540, 100, 0, 41, "Output",ExpressionUUID->"e5a93687-7c76-eb48-a79a-098cbe08792a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[200815, 5545, 2637, 87, 215, "Input",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-f74418e31aeb"], +Cell[203455, 5634, 101, 0, 41, "Output",ExpressionUUID->"a53e2e6d-ca02-5d40-9088-48aa754351ec"] +}, Open ]], +Cell[CellGroupData[{ +Cell[203593, 5639, 2577, 84, 215, "Input",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-91d5391478d5"], +Cell[206173, 5725, 102, 0, 41, "Output",ExpressionUUID->"5ca04a2b-633e-1547-b10d-b4f00d8b3fcb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[206312, 5730, 3686, 117, 316, "Input",ExpressionUUID->"bea639c9-f172-ef4e-9454-9d4e027f5fa2"], +Cell[210001, 5849, 102, 0, 41, "Output",ExpressionUUID->"af769b0f-0bd4-194f-bc02-90651fd30541"] +}, Open ]], +Cell[210118, 5852, 138, 3, 36, "Input",ExpressionUUID->"752e2dd5-bee6-2048-8697-fe84d79611fa"], +Cell[CellGroupData[{ +Cell[210281, 5859, 2054, 59, 116, "Input",ExpressionUUID->"f8b12d93-5bd9-8641-aa98-3d78ebb0f21b"], +Cell[212338, 5920, 342, 6, 26, "Message",ExpressionUUID->"4105bae1-ec8c-fc46-bc8a-9d70c37ec32c"], +Cell[212683, 5928, 342, 6, 26, "Message",ExpressionUUID->"42c1a263-2456-664a-bb33-c5fe841cb412"], +Cell[213028, 5936, 100, 0, 41, "Output",ExpressionUUID->"1c49befc-babf-0743-9739-e64b536d1c51"] +}, Open ]], +Cell[CellGroupData[{ +Cell[213165, 5941, 2049, 58, 116, "Input",ExpressionUUID->"cbefe077-df46-c24c-b854-69741ca50d38"], +Cell[215217, 6001, 342, 6, 26, "Message",ExpressionUUID->"be4d7bfb-c18e-564a-93ce-3f42607886e7"], +Cell[215562, 6009, 342, 6, 26, "Message",ExpressionUUID->"b768ca5f-6b93-1f43-97bf-08f74ea2facd"], +Cell[215907, 6017, 100, 0, 41, "Output",ExpressionUUID->"6af143a4-6ae5-fb45-8cd1-6940f2290ff9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[216044, 6022, 1938, 53, 63, "Input",ExpressionUUID->"b9a7e2d9-7e48-cb4c-89bc-12d8b19f0936"], +Cell[217985, 6077, 342, 6, 26, "Message",ExpressionUUID->"d3cb6fbc-3803-0541-80d1-8cab47341c44"], +Cell[218330, 6085, 342, 6, 26, "Message",ExpressionUUID->"635ef23c-be29-f947-b49d-c0d2f59f2ba8"], +Cell[218675, 6093, 342, 6, 26, "Message",ExpressionUUID->"d8687e0f-2f42-0543-a749-78a1ff3c9572"], +Cell[219020, 6101, 407, 7, 26, "Message",ExpressionUUID->"b055d243-2255-1f40-80bd-55bc54524667"], +Cell[219430, 6110, 9852, 394, 232, 4231, 300, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"8a200671-82f1-364d-8dba-8342607ad7b7"], +Cell[229285, 6506, 191, 5, 41, "Output",ExpressionUUID->"e49c1b8d-fabe-b944-a6dd-c578eb57eb6a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[229513, 6516, 2094, 60, 116, "Input",ExpressionUUID->"4b73592e-b155-8f42-b33d-562f8b3faecd"], +Cell[231610, 6578, 342, 6, 26, "Message",ExpressionUUID->"9f5fa53c-8bea-a349-9c29-e4614f56cc98"], +Cell[231955, 6586, 342, 6, 26, "Message",ExpressionUUID->"a2ecd22c-b766-5347-9e03-9d459620be75"], +Cell[232300, 6594, 342, 6, 26, "Message",ExpressionUUID->"45a49c2b-98f0-ca4e-ab79-bb0334e26ffd"], +Cell[232645, 6602, 407, 7, 26, "Message",ExpressionUUID->"258782e2-0da4-1143-8b36-76da0d2ac6df"], +Cell[233055, 6611, 10253, 391, 232, 4113, 287, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"06204099-db57-8e4e-bcc4-fa1ae37c0063"], +Cell[243311, 7004, 191, 5, 41, "Output",ExpressionUUID->"8efa1c1f-552a-d042-8a05-04dec8739bf5"] +}, Open ]], +Cell[243517, 7012, 2454, 69, 140, "Input",ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-5e6c7b4b5678"], +Cell[245974, 7083, 209, 5, 36, "Input",ExpressionUUID->"cd9a8165-891b-9245-aca1-3f60fcfd9a79"], +Cell[CellGroupData[{ +Cell[246208, 7092, 215, 7, 61, "Input",ExpressionUUID->"c213919d-017d-a948-8e46-fe19384187c3"], +Cell[246426, 7101, 100, 0, 41, "Output",ExpressionUUID->"38d25667-6c7c-094b-b4ad-180d70233424"] +}, Open ]], +Cell[CellGroupData[{ +Cell[246563, 7106, 1814, 53, 116, "Input",ExpressionUUID->"3764dfb4-9656-4349-b0a1-77ebd1a3e048"], +Cell[248380, 7161, 342, 6, 26, "Message",ExpressionUUID->"12d513db-13cc-bc48-b9a3-22b17d8aeb9a"], +Cell[248725, 7169, 342, 6, 26, "Message",ExpressionUUID->"05911c33-7605-8b49-a7ba-7fc8c8f30741"], +Cell[249070, 7177, 342, 6, 26, "Message",ExpressionUUID->"2192e048-2875-9f4a-aa0c-9cbbd447dfe1"], +Cell[249415, 7185, 407, 7, 26, "Message",ExpressionUUID->"b6990f5f-359f-464b-ac16-44cdfeae3c8e"], +Cell[249825, 7194, 10062, 396, 232, 4186, 297, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"899e43aa-c372-6647-a3e4-4952f308ab17"], +Cell[259890, 7592, 191, 5, 41, "Output",ExpressionUUID->"65116f16-0f68-7e4d-af2e-baecb9a57d9b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[260118, 7602, 1590, 47, 86, "Input",ExpressionUUID->"7899a8a7-561e-a946-a6c9-870ef14ce01b"], +Cell[261711, 7651, 342, 6, 26, "Message",ExpressionUUID->"d7dfab56-fefd-0149-8a26-6ee16f94ab37"], +Cell[262056, 7659, 101, 0, 41, "Output",ExpressionUUID->"43ddf880-80a2-b142-8665-3b95395a9831"] +}, Open ]], +Cell[CellGroupData[{ +Cell[262194, 7664, 2247, 64, 81, "Input",ExpressionUUID->"6fd9b05c-8008-7b42-b1b4-8e83e9537fdc"], +Cell[264444, 7730, 342, 6, 26, "Message",ExpressionUUID->"56921c73-2b67-0e4a-9808-5f61de992c7e"], +Cell[264789, 7738, 342, 6, 26, "Message",ExpressionUUID->"8ae663ad-3729-254b-9ec7-7f5d00ef81af"], +Cell[265134, 7746, 103, 0, 41, "Output",ExpressionUUID->"42e3f6c5-e95f-4040-9e12-cbd48f821f10"] +}, Open ]], +Cell[CellGroupData[{ +Cell[265274, 7751, 2219, 64, 81, "Input",ExpressionUUID->"ccaee6a3-c390-0444-bf16-3471356a3614"], +Cell[267496, 7817, 342, 6, 26, "Message",ExpressionUUID->"1795c3b9-0182-224c-b986-6414d6712c04"], +Cell[267841, 7825, 342, 6, 26, "Message",ExpressionUUID->"c3b31753-a67f-9b45-b822-068e1df11f68"], +Cell[268186, 7833, 100, 0, 41, "Output",ExpressionUUID->"7f3b68f0-36cd-5749-996b-97ffcb02c6cf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[268323, 7838, 2221, 64, 81, "Input",ExpressionUUID->"ca0cc669-d7ba-5b4a-b58b-286954db37c5"], +Cell[270547, 7904, 342, 6, 26, "Message",ExpressionUUID->"32db1bf6-ba11-cb4a-955a-52e174a44e5f"], +Cell[270892, 7912, 342, 6, 26, "Message",ExpressionUUID->"4e2b22f2-1724-7649-93fc-33cd27bb415e"], +Cell[271237, 7920, 101, 0, 41, "Output",ExpressionUUID->"34543184-0f68-7449-9af8-306cfc525771"] +}, Open ]], +Cell[CellGroupData[{ +Cell[271375, 7925, 215, 6, 60, "Input",ExpressionUUID->"7ec678fd-8398-414a-aeba-20e078d734cd"], +Cell[271593, 7933, 104, 0, 41, "Output",ExpressionUUID->"ca67de9f-825c-f641-9d0a-229375d081b1"] +}, Open ]], +Cell[271712, 7936, 247, 5, 36, "Input",ExpressionUUID->"ca329276-48d7-8943-8408-dd2997d3499c"], +Cell[CellGroupData[{ +Cell[271984, 7945, 532, 18, 66, "Input",ExpressionUUID->"681c316f-cd82-ae4b-824f-5eb2b3081f6d"], +Cell[272519, 7965, 100, 0, 41, "Output",ExpressionUUID->"9cf6d8e0-9f1b-734e-b42f-ef77566b5546"] +}, Open ]], +Cell[CellGroupData[{ +Cell[272656, 7970, 144, 4, 71, "Input",ExpressionUUID->"11e77a67-96b2-a645-89cd-559587f30b91"], +Cell[272803, 7976, 100, 0, 41, "Output",ExpressionUUID->"c5ed49bf-8480-c447-a0ac-ef7c5fcad104"] +}, Open ]], +Cell[CellGroupData[{ +Cell[272940, 7981, 155, 4, 55, "Input",ExpressionUUID->"3c5f43e9-afc4-be40-8f37-0116656ecd38"], +Cell[273098, 7987, 100, 0, 41, "Output",ExpressionUUID->"8a551ee1-59e8-d74e-b2fe-ad1527aaef53"] +}, Open ]], +Cell[CellGroupData[{ +Cell[273235, 7992, 6029, 184, 431, "Input",ExpressionUUID->"f07a8476-d7bc-1049-82a6-7cf06f61e28f"], +Cell[279267, 8178, 102, 0, 41, "Output",ExpressionUUID->"6efee3b5-10d6-d642-9cf2-dd8d3fe591e1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[279406, 8183, 342, 8, 53, "Input",ExpressionUUID->"b88b1a94-22d7-2843-88e3-f607b95c8af9"], +Cell[279751, 8193, 342, 6, 26, "Message",ExpressionUUID->"def6b331-c871-b04d-a16e-4fc00b03d009"], +Cell[280096, 8201, 99, 0, 41, "Output",ExpressionUUID->"332f8da7-4eec-ed47-b124-edf7e2bf43d7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[280232, 8206, 6096, 186, 431, "Input",ExpressionUUID->"9d771aab-c0b4-f24c-9b53-9472e00c4d82"], +Cell[286331, 8394, 102, 0, 41, "Output",ExpressionUUID->"0f048ce5-7f5e-0a41-a634-6908b289becd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[286470, 8399, 342, 8, 53, "Input",ExpressionUUID->"47e2a8e8-6af3-374f-9eea-9c2b6faaaf4a"], +Cell[286815, 8409, 342, 6, 26, "Message",ExpressionUUID->"c6c8676e-4601-144e-b83c-769e22949175"], +Cell[287160, 8417, 100, 0, 41, "Output",ExpressionUUID->"bd9f2dfb-0880-624c-8a61-fa3104084faf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[287297, 8422, 2637, 87, 215, "Input",ExpressionUUID->"d8757b1c-19d9-d548-8de4-6b0985b9b3bc"], +Cell[289937, 8511, 101, 0, 41, "Output",ExpressionUUID->"6edb9332-f61a-1c4a-ad7b-c9d3e77138f1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[290075, 8516, 2577, 84, 215, "Input",ExpressionUUID->"58b59182-fae5-674d-b49e-4868d83e9702"], +Cell[292655, 8602, 102, 0, 41, "Output",ExpressionUUID->"5f6645b8-6ac5-6148-a1e1-5f2ee5f21bdd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[292794, 8607, 3686, 117, 316, "Input",ExpressionUUID->"5caf1614-7e5c-9940-98cd-9460e2c074b2"], +Cell[296483, 8726, 102, 0, 41, "Output",ExpressionUUID->"9de56db9-9853-1748-aca6-5103b9dea11d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[296622, 8731, 2052, 59, 116, "Input",ExpressionUUID->"db0784f6-51d0-fd44-b0e8-05d6af1a6e52"], +Cell[298677, 8792, 342, 6, 26, "Message",ExpressionUUID->"7fd60dea-f794-4744-8801-bfb1a50a0e07"], +Cell[299022, 8800, 342, 6, 26, "Message",ExpressionUUID->"0b8c0718-41d2-4542-8afe-212a15805650"], +Cell[299367, 8808, 101, 0, 41, "Output",ExpressionUUID->"a8a97847-bb08-1e4d-8ab6-1eb11a1cda8f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[299505, 8813, 2054, 59, 116, "Input",ExpressionUUID->"7ca6aa7a-7318-6f41-95dc-f69c33a31448"], +Cell[301562, 8874, 342, 6, 26, "Message",ExpressionUUID->"b6f0ccc2-ff83-124b-a341-e143319c7670"], +Cell[301907, 8882, 342, 6, 26, "Message",ExpressionUUID->"d4b50e17-5ee4-384c-b81f-c2a36a80320e"], +Cell[302252, 8890, 100, 0, 41, "Output",ExpressionUUID->"f80834f1-cc9f-1c44-a97c-64c50ba97b67"] +}, Open ]], +Cell[CellGroupData[{ +Cell[302389, 8895, 2030, 55, 63, "Input",ExpressionUUID->"611f92ea-b199-2643-9788-194fae57c34e"], +Cell[304422, 8952, 342, 6, 26, "Message",ExpressionUUID->"7797a546-4085-124a-83da-5f3c472cdc4c"], +Cell[304767, 8960, 342, 6, 26, "Message",ExpressionUUID->"bf75ebeb-fc95-1d45-8487-ceed40ec633c"], +Cell[305112, 8968, 342, 6, 26, "Message",ExpressionUUID->"ca7472ca-7b27-a54a-84a1-e603fa592207"], +Cell[305457, 8976, 407, 7, 26, "Message",ExpressionUUID->"86b3b7d9-f0e9-0a4b-9079-b341ca597ab4"], +Cell[305867, 8985, 9432, 438, 232, "Graphics",ExpressionUUID->"f3c0c3aa-fd64-8e41-bc0a-ae36b33a37ec"], +Cell[315302, 9425, 191, 5, 41, "Output",ExpressionUUID->"23cfff6f-2c67-ce46-9cc6-49e8ffb5e8c8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[315530, 9435, 2118, 60, 116, "Input",ExpressionUUID->"f4c3d53a-1214-a145-beb0-494cdae35e56"], +Cell[317651, 9497, 342, 6, 26, "Message",ExpressionUUID->"b9265795-17b8-4e47-bd29-fee31586537e"], +Cell[317996, 9505, 342, 6, 26, "Message",ExpressionUUID->"072fb53f-7116-0f41-a298-6891351a3192"], +Cell[318341, 9513, 342, 6, 26, "Message",ExpressionUUID->"7f686ca7-db7f-0b40-bbd8-c08a80d2c198"], +Cell[318686, 9521, 407, 7, 26, "Message",ExpressionUUID->"3aaeaf29-5b60-ab47-b674-24d071c511f8"], +Cell[319096, 9530, 8546, 368, 232, "Graphics",ExpressionUUID->"fb5ee406-78d5-a849-9c81-3ea500ee883f"], +Cell[327645, 9900, 191, 5, 41, "Output",ExpressionUUID->"637816d3-cc2d-bb4a-991c-87bc9c72594a"] +}, Open ]], +Cell[327851, 9908, 209, 5, 36, "Input",ExpressionUUID->"2335a158-7588-4c40-bdb5-53b7ef04b97c"], +Cell[CellGroupData[{ +Cell[328085, 9917, 1590, 47, 86, "Input",ExpressionUUID->"01995149-3665-fe4e-b326-b20429031afd"], +Cell[329678, 9966, 342, 6, 26, "Message",ExpressionUUID->"52cff8eb-0c77-c944-a54f-e282b00ce766"], +Cell[330023, 9974, 101, 0, 41, "Output",ExpressionUUID->"51c9eb8e-8429-9440-b4d1-8a2a914a816b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[330161, 9979, 2251, 64, 81, "Input",ExpressionUUID->"11b1e372-f457-5a4d-bcee-062a3c04ed96"], +Cell[332415, 10045, 342, 6, 26, "Message",ExpressionUUID->"cb5a1193-7562-6446-a279-d9f6295d156e"], +Cell[332760, 10053, 342, 6, 26, "Message",ExpressionUUID->"566b0ad4-7f4e-b04f-8294-646ce1913fac"], +Cell[333105, 10061, 101, 0, 41, "Output",ExpressionUUID->"9a717f6e-3c47-7d43-93ae-4bf4814b6aa7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[333243, 10066, 2220, 64, 81, "Input",ExpressionUUID->"8cb4e371-90a5-d347-adec-3382e7679ba8"], +Cell[335466, 10132, 342, 6, 26, "Message",ExpressionUUID->"4cd45900-7eb0-6b4b-830a-a339e8117392"], +Cell[335811, 10140, 342, 6, 26, "Message",ExpressionUUID->"0ddcf174-f6c5-2546-b6d3-f17f46d6e8a3"], +Cell[336156, 10148, 101, 0, 41, "Output",ExpressionUUID->"3e9bc444-276c-294e-8c8d-12ef37255e0d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[336294, 10153, 2223, 64, 81, "Input",ExpressionUUID->"732b358a-c98a-0347-8b16-2462b23d6249"], +Cell[338520, 10219, 342, 6, 26, "Message",ExpressionUUID->"f702ec8b-e3a1-2f4f-bfef-4278a2688935"], +Cell[338865, 10227, 342, 6, 26, "Message",ExpressionUUID->"61220452-df6a-154e-8b5c-fecd0ab287a1"], +Cell[339210, 10235, 101, 0, 41, "Output",ExpressionUUID->"d8ce023f-3349-8348-844a-2526397581d1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[339348, 10240, 215, 6, 60, "Input",ExpressionUUID->"3d20548b-905d-0343-8df1-168ec8f367e1"], +Cell[339566, 10248, 102, 0, 41, "Output",ExpressionUUID->"b33ad8ed-51f6-a045-9dc5-33a5696fd31e"] +}, Open ]], +Cell[339683, 10251, 247, 5, 36, "Input",ExpressionUUID->"ca34450b-ff3b-f34a-a2ed-e661a25a7ba1"], +Cell[CellGroupData[{ +Cell[339955, 10260, 532, 18, 66, "Input",ExpressionUUID->"601c24ee-3f7b-c74d-891b-10a6d009e34b"], +Cell[340490, 10280, 101, 0, 41, "Output",ExpressionUUID->"f1ecc2fd-4cd6-5249-8977-1cc4a714ca85"] +}, Open ]], +Cell[CellGroupData[{ +Cell[340628, 10285, 144, 4, 71, "Input",ExpressionUUID->"05949206-8ee0-5646-bb01-e9142212274d"], +Cell[340775, 10291, 101, 0, 41, "Output",ExpressionUUID->"0b6f2dc1-dd2d-e341-8cc9-32a5777d3dad"] +}, Open ]], +Cell[CellGroupData[{ +Cell[340913, 10296, 155, 4, 55, "Input",ExpressionUUID->"25a02cc2-cb9a-bc4b-93f0-a7873f982a23"], +Cell[341071, 10302, 100, 0, 41, "Output",ExpressionUUID->"b4c0b4dc-7ff0-3246-8607-df7a1b97c52c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[341208, 10307, 6029, 184, 431, "Input",ExpressionUUID->"df51ca6a-83a1-6340-b13c-0185de64c37f"], +Cell[347240, 10493, 102, 0, 41, "Output",ExpressionUUID->"c326471e-e866-ed4e-b72f-a7b5b42c78d0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[347379, 10498, 342, 8, 53, "Input",ExpressionUUID->"731f0e35-7798-8b45-a769-075ac4b3983f"], +Cell[347724, 10508, 342, 6, 26, "Message",ExpressionUUID->"4870a5d4-b6fc-9044-ae55-fcbd2b9d41eb"], +Cell[348069, 10516, 100, 0, 41, "Output",ExpressionUUID->"4263cd25-e2b6-5c4b-8834-28c6ca12b863"] +}, Open ]], +Cell[CellGroupData[{ +Cell[348206, 10521, 6096, 186, 431, "Input",ExpressionUUID->"413c8e7d-149c-5d4a-9ccb-23aebae2e6d5"], +Cell[354305, 10709, 102, 0, 41, "Output",ExpressionUUID->"ad614c41-0fc1-a542-b7a8-b8207b3c6926"] +}, Open ]], +Cell[CellGroupData[{ +Cell[354444, 10714, 342, 8, 53, "Input",ExpressionUUID->"e11d7eb8-00a8-f540-98a0-89164ac4bae9"], +Cell[354789, 10724, 342, 6, 26, "Message",ExpressionUUID->"d6f4e6b1-3d45-7649-b7dd-944c4a1de3e4"], +Cell[355134, 10732, 99, 0, 41, "Output",ExpressionUUID->"27fdf87b-577e-d74b-99f1-6a0486be19bc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[355270, 10737, 2637, 87, 215, "Input",ExpressionUUID->"08e21b26-8d64-ea4e-8647-1ee89e798d8f"], +Cell[357910, 10826, 101, 0, 41, "Output",ExpressionUUID->"c5362b47-cc2f-ba44-9fef-3c67d726a6cb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[358048, 10831, 2577, 84, 215, "Input",ExpressionUUID->"ae5c0a90-3245-6943-a137-f30d036fcdd2"], +Cell[360628, 10917, 102, 0, 41, "Output",ExpressionUUID->"677f20c9-f9ab-dc41-bd69-627a1665b370"] +}, Open ]], +Cell[CellGroupData[{ +Cell[360767, 10922, 3686, 117, 316, "Input",ExpressionUUID->"46af1283-32d6-7240-acd2-307af56b44db"], +Cell[364456, 11041, 102, 0, 41, "Output",ExpressionUUID->"eb28891c-1746-424b-aa98-1266448f9a3e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[364595, 11046, 2054, 59, 116, "Input",ExpressionUUID->"cd516020-ac7f-224d-b1ff-af0307420662"], +Cell[366652, 11107, 342, 6, 26, "Message",ExpressionUUID->"b82c1933-5313-1d4c-a858-68be8f118333"], +Cell[366997, 11115, 342, 6, 26, "Message",ExpressionUUID->"3b3475f7-7db7-054a-b7f5-20d8f7d491bf"], +Cell[367342, 11123, 100, 0, 41, "Output",ExpressionUUID->"dfa1aa9c-9811-0d49-a9f3-e5e1bcdf702f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[367479, 11128, 2054, 59, 116, "Input",ExpressionUUID->"a9d0e817-a1c8-6546-a901-34313c6ec04d"], +Cell[369536, 11189, 342, 6, 26, "Message",ExpressionUUID->"9e0b92f8-7fe2-e84e-89cd-c02c9da3e5b7"], +Cell[369881, 11197, 342, 6, 26, "Message",ExpressionUUID->"56712e4d-1aa7-524a-8254-bcfd8978eea0"], +Cell[370226, 11205, 100, 0, 41, "Output",ExpressionUUID->"b342636b-f081-cc49-b1ae-5647aa39d6ab"] +}, Open ]], +Cell[CellGroupData[{ +Cell[370363, 11210, 2030, 55, 63, "Input",ExpressionUUID->"f68960b0-cff6-3245-b906-ad38cf07d634"], +Cell[372396, 11267, 342, 6, 26, "Message",ExpressionUUID->"9c6ce535-b42f-3c43-a89e-eda48c04121e"], +Cell[372741, 11275, 342, 6, 26, "Message",ExpressionUUID->"e2ce6bda-7d9b-6149-bf5b-dd4c91908e28"], +Cell[373086, 11283, 342, 6, 26, "Message",ExpressionUUID->"2bed6df2-09cb-4d4d-b247-4fe79fd38fd6"], +Cell[373431, 11291, 407, 7, 26, "Message",ExpressionUUID->"64a64e18-e609-d54b-8225-64fa7909a948"], +Cell[373841, 11300, 9432, 438, 232, "Graphics",ExpressionUUID->"7758daab-adf8-2a49-9166-50457409d355"], +Cell[383276, 11740, 191, 5, 41, "Output",ExpressionUUID->"4f7705b8-e954-b341-ab6d-8b4ad9ffca61"] +}, Open ]], +Cell[CellGroupData[{ +Cell[383504, 11750, 2143, 61, 116, "Input",ExpressionUUID->"d43bf17b-b492-0e4a-af4a-6a3bc399953c"], +Cell[385650, 11813, 342, 6, 26, "Message",ExpressionUUID->"2059be4f-bbb2-da49-9e23-3fc4d150d7a8"], +Cell[385995, 11821, 342, 6, 26, "Message",ExpressionUUID->"71d4e039-c2b8-d74d-819a-80d2051e4273"], +Cell[386340, 11829, 342, 6, 26, "Message",ExpressionUUID->"63625e13-15ef-1f45-89dc-998a1b63a626"], +Cell[386685, 11837, 407, 7, 26, "Message",ExpressionUUID->"ff96fc2b-5ddb-2142-a985-58ccc6f07e00"], +Cell[387095, 11846, 8546, 368, 232, "Graphics",ExpressionUUID->"a63f48d3-505f-0a45-b944-e872edd94d6c"], +Cell[395644, 12216, 191, 5, 41, "Output",ExpressionUUID->"be4328c1-f4b7-a444-b59f-1872f77ea023"] +}, Open ]], +Cell[395850, 12224, 138, 3, 36, "Input",ExpressionUUID->"4ad58a38-0776-5240-aa41-ba7c8ff64fb9"], +Cell[CellGroupData[{ +Cell[396013, 12231, 1590, 47, 86, "Input",ExpressionUUID->"3edaf53b-bb09-6646-b79e-9350413e0b42"], +Cell[397606, 12280, 342, 6, 26, "Message",ExpressionUUID->"2b38d1a8-4a7e-7b4f-8cdd-5298fced63d9"], +Cell[397951, 12288, 101, 0, 41, "Output",ExpressionUUID->"6941b2ce-51d7-0b43-b524-1e41573ef5f9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[398089, 12293, 2249, 64, 81, "Input",ExpressionUUID->"d2148290-3e90-8347-bddd-5dd8190b0268"], +Cell[400341, 12359, 342, 6, 26, "Message",ExpressionUUID->"905b237c-0e51-ab4b-895d-05994c6f1d5f"], +Cell[400686, 12367, 342, 6, 26, "Message",ExpressionUUID->"7ad8c79e-9570-a44d-b593-07aa87056e21"], +Cell[401031, 12375, 100, 0, 41, "Output",ExpressionUUID->"7a6165f1-f4e7-1f40-9890-5c13218f6833"] +}, Open ]], +Cell[CellGroupData[{ +Cell[401168, 12380, 2219, 64, 81, "Input",ExpressionUUID->"3cdd2064-36e7-b44d-bb0f-98d71f8a8458"], +Cell[403390, 12446, 342, 6, 26, "Message",ExpressionUUID->"c516c31a-74b4-f24d-a16a-678221cde87e"], +Cell[403735, 12454, 342, 6, 26, "Message",ExpressionUUID->"5c50b555-9ebe-f94d-801f-34634555f622"], +Cell[404080, 12462, 99, 0, 41, "Output",ExpressionUUID->"c7a13a95-1179-054f-9108-fe96e6564880"] +}, Open ]], +Cell[CellGroupData[{ +Cell[404216, 12467, 2221, 64, 81, "Input",ExpressionUUID->"c1d3ae3d-f5ac-b04d-af0f-57c1fe1d0585"], +Cell[406440, 12533, 342, 6, 26, "Message",ExpressionUUID->"7ca591cf-a5ce-ce41-8101-8edfca50e890"], +Cell[406785, 12541, 342, 6, 26, "Message",ExpressionUUID->"cbafd11a-4be0-b541-81e4-e62191ae7695"], +Cell[407130, 12549, 101, 0, 41, "Output",ExpressionUUID->"7d22c643-14ba-7245-8972-7de9bf840536"] +}, Open ]], +Cell[CellGroupData[{ +Cell[407268, 12554, 215, 6, 60, "Input",ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-1ca469b254bd"], +Cell[407486, 12562, 102, 0, 41, "Output",ExpressionUUID->"d15888a7-bf5a-b54e-a332-976645c927ce"] +}, Open ]], +Cell[407603, 12565, 115, 1, 36, "Input",ExpressionUUID->"ce1d07fb-39ef-4a2d-a4ac-c7999ed96f34"] } ] *) -(* End of internal cache information *) - diff --git a/Pu240_798-811_TitovAA/168-72_h_Pu240_22-23/h_168-72_Pu240_22-23_osc_Qw1.nb b/Pu240_798-811_TitovAA/168-72_h_Pu240_22-23/h_168-72_Pu240_22-23_osc_Qw1.nb index 0b16837..3ffad66 100644 --- a/Pu240_798-811_TitovAA/168-72_h_Pu240_22-23/h_168-72_Pu240_22-23_osc_Qw1.nb +++ b/Pu240_798-811_TitovAA/168-72_h_Pu240_22-23/h_168-72_Pu240_22-23_osc_Qw1.nb @@ -3,17 +3,17 @@ (*** 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[ 581439, 14318] -NotebookOptionsPosition[ 540981, 13683] -NotebookOutlinePosition[ 541435, 13701] -CellTagsIndexPosition[ 541392, 13698] +NotebookDataLength[ 580315, 14482] +NotebookOptionsPosition[ 538068, 13810] +NotebookOutlinePosition[ 538509, 13828] +CellTagsIndexPosition[ 538466, 13825] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -21,41 +21,55 @@ Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"d", "=", "3"}]], "Input", + RowBox[{"d", "=", "1.9"}]], "Input", CellChangeTimes->{ 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, - 3.9920650045886707`*^9},ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-\ -8326f7c1a9b1"], + 3.9920650045886707`*^9, {3.9940735873936653`*^9, 3.9940735896443777`*^9}, { + 3.994075218023417*^9, 3.994075221411705*^9}}, + CellLabel-> + "In[106]:=",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], -Cell[BoxData["3"], "Output", - CellChangeTimes->{3.991320420900818*^9}, - CellLabel->"Out[46]=",ExpressionUUID->"2e7f3b17-b448-644d-bafd-ec5aa11fe78b"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"A", "=", "236"}]], "Input", - CellChangeTimes->{{3.9915672960517406`*^9, - 3.991567297688427*^9}},ExpressionUUID->"40a7803b-9334-ef42-a720-\ -539edfcf67a8"], - -Cell[BoxData["252"], "Output", - CellChangeTimes->{3.9913196497381973`*^9}, - CellLabel->"Out[2]=",ExpressionUUID->"d21d7bec-caad-aa4f-9200-81feafc4acec"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"A1", "="}]], "Input", +Cell[BoxData["1.9`"], "Output", CellChangeTimes->{ - 3.991798961431202*^9},ExpressionUUID->"410ced47-4e2a-4e45-9091-\ -53970f892dbb"], + 3.991320420900818*^9, {3.9940735644974327`*^9, 3.994073590895896*^9}, { + 3.994075171996416*^9, 3.994075180507247*^9}, {3.994075219377726*^9, + 3.9940752234153214`*^9}}, + CellLabel-> + "Out[106]=",ExpressionUUID->"3fc602ac-3528-4c94-84c5-2cbef5e80e13"] +}, Open ]], -Cell[BoxData["130"], "Output", - CellChangeTimes->{3.9913196497578354`*^9}, - CellLabel->"Out[3]=",ExpressionUUID->"a2a1281d-2cdd-5d4c-b7c6-d26236e66b80"] +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.9940732811688833`*^9, 3.994073289502289*^9}}, + CellLabel-> + "In[107]:=",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, {3.994073564560362*^9, 3.994073590977919*^9}, + 3.994075180702458*^9, 3.9940752234546824`*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"4f849138-67dc-4f8f-a590-302d10dd42f8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "168"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.994073284506165*^9, 3.994073287626708*^9}}, + CellLabel-> + "In[108]:=",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], + +Cell[BoxData["168"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, {3.994073564571506*^9, 3.994073590992278*^9}, + 3.994075180712758*^9, 3.9940752234670067`*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"3cd98634-bc13-4797-bd1e-44036ef78eae"] }, Open ]], Cell[CellGroupData[{ @@ -63,11 +77,15 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a1", "=", "0.55"}]], "Input", CellChangeTimes->{3.9434144380252676`*^9}, - CellLabel->"In[4]:=",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], + CellLabel-> + "In[109]:=",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], Cell[BoxData["0.55`"], "Output", - CellChangeTimes->{3.991319649777508*^9}, - CellLabel->"Out[4]=",ExpressionUUID->"4fa6d65b-1d5c-4f45-949a-d7045f28de30"] + CellChangeTimes->{ + 3.991319649777508*^9, {3.994073564582589*^9, 3.994073590996417*^9}, + 3.994075180723978*^9, 3.994075223478387*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"2ed4a14c-942a-49b9-97cf-650a63a78bd7"] }, Open ]], Cell[CellGroupData[{ @@ -79,22 +97,30 @@ Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", - CellLabel->"In[5]:=",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], + CellLabel-> + "In[110]:=",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], -Cell[BoxData["0.5495238095238095`"], "Output", - CellChangeTimes->{3.9913196497965145`*^9}, - CellLabel->"Out[5]=",ExpressionUUID->"24d0db1b-9e75-3c46-9c8c-13704f881794"] +Cell[BoxData["0.544`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, {3.994073564593708*^9, 3.994073591015129*^9}, + 3.994075180735317*^9, 3.994075223489546*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"7339c118-72c2-44a2-9f22-c2b2b05f227c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"p0", "=", "0.17"}]], "Input", - CellLabel->"In[6]:=",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], + CellLabel-> + "In[111]:=",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], Cell[BoxData["0.17`"], "Output", - CellChangeTimes->{3.9913196498144608`*^9}, - CellLabel->"Out[6]=",ExpressionUUID->"d898610f-2407-1a40-9f24-5be2dcfa557e"] + CellChangeTimes->{ + 3.9913196498144608`*^9, {3.994073564604851*^9, 3.9940735910271397`*^9}, + 3.9940751807454844`*^9, 3.994075223493987*^9}, + CellLabel-> + "Out[111]=",ExpressionUUID->"28f1d5a1-0e10-4e5e-b143-6cff63710154"] }, Open ]], Cell[CellGroupData[{ @@ -105,11 +131,15 @@ Cell[BoxData[ SuperscriptBox["A1", RowBox[{"1", "/", "3"}]]}]}]], "Input", CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, - CellLabel->"In[7]:=",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], + CellLabel-> + "In[112]:=",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], -Cell[BoxData["5.876324542157027`"], "Output", - CellChangeTimes->{3.9913196498225155`*^9}, - CellLabel->"Out[7]=",ExpressionUUID->"27ff60eb-7aa7-9949-984d-d71d79c10129"] +Cell[BoxData["6.400704089204199`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, {3.9940735646161203`*^9, 3.9940735910381737`*^9}, + 3.99407518075636*^9, 3.9940752235073977`*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"5761785b-e83b-4033-87d8-d639fb22d04e"] }, Open ]], Cell[CellGroupData[{ @@ -121,45 +151,75 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"1", "/", "3"}]]}]}]], "Input", - CellLabel->"In[8]:=",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], + CellLabel-> + "In[113]:=",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], -Cell[BoxData["5.753223770057068`"], "Output", - CellChangeTimes->{3.9913196498425236`*^9}, - CellLabel->"Out[8]=",ExpressionUUID->"2b4ba32a-ab7d-7140-a043-bb4487278822"] +Cell[BoxData["4.825794469480417`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, {3.994073564627458*^9, 3.9940735910486517`*^9}, + 3.994075180767749*^9, 3.9940752235185337`*^9}, + CellLabel-> + "Out[113]=",ExpressionUUID->"d081c0b4-e157-44f9-995c-e4b29a26d538"] }, Open ]], -Cell[BoxData[ - RowBox[{"b1", "="}]], "Input", - CellChangeTimes->{ - 3.991799283179735*^9},ExpressionUUID->"3b44378c-91de-5d4a-a244-\ -b3f5cb1cffbb"], +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"b2", "="}]], "Input", - CellChangeTimes->{ - 3.991799280663351*^9},ExpressionUUID->"c984ea2d-3d65-1d43-b11d-\ -50fde111107a"], + RowBox[{"b1", "=", "0.8877902834"}]], "Input", + CellChangeTimes->{3.991799283179735*^9, 3.994073298855084*^9}, + CellLabel-> + "In[114]:=",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], + +Cell[BoxData["0.8877902834`"], "Output", + CellChangeTimes->{{3.99407356463848*^9, 3.994073591058733*^9}, + 3.994075180779163*^9, 3.994075223529882*^9}, + CellLabel-> + "Out[114]=",ExpressionUUID->"9a9d3de4-8d49-4ce6-b09a-f943956af81a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.3862529089"}]], "Input", + CellChangeTimes->{3.991799280663351*^9, 3.994073304321521*^9}, + CellLabel-> + "In[115]:=",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], + +Cell[BoxData["0.3862529089`"], "Output", + CellChangeTimes->{{3.9940735646497602`*^9, 3.994073591068905*^9}, + 3.994075180790642*^9, 3.994075223541339*^9}, + CellLabel-> + "Out[115]=",ExpressionUUID->"4298dfcb-9ee1-4f34-b816-bac4ec6dc561"] +}, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x1", "=", "0"}]], "Input", - CellLabel->"In[11]:=",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], + CellLabel-> + "In[116]:=",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], Cell[BoxData["0"], "Output", - CellChangeTimes->{3.9913196498927155`*^9}, - CellLabel->"Out[11]=",ExpressionUUID->"3d15ce67-15c8-f549-9c13-b8dddf0b6641"] + CellChangeTimes->{ + 3.9913196498927155`*^9, {3.994073564660372*^9, 3.994073591079844*^9}, + 3.9940751808023157`*^9, 3.99407522355291*^9}, + CellLabel-> + "Out[116]=",ExpressionUUID->"d9184f92-9bb2-4c4b-9db1-4e3bb144d8f8"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x2", "=", "0"}]], "Input", - CellLabel->"In[12]:=",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], + CellLabel-> + "In[117]:=",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], Cell[BoxData["0"], "Output", - CellChangeTimes->{3.9913196498996067`*^9}, - CellLabel->"Out[12]=",ExpressionUUID->"8f7b3ab0-4d46-6e46-be1a-60df9a3dcebd"] + CellChangeTimes->{ + 3.9913196498996067`*^9, {3.994073564670796*^9, 3.994073591090024*^9}, + 3.994075180813775*^9, 3.994075223564582*^9}, + CellLabel-> + "Out[117]=",ExpressionUUID->"5ac4bc3d-c931-4057-ac88-d6789946171a"] }, Open ]], Cell[CellGroupData[{ @@ -183,11 +243,15 @@ Cell[BoxData[ SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", - CellLabel->"In[13]:=",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], + CellLabel-> + "In[118]:=",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], -Cell[BoxData["1.4975864418719793`"], "Output", - CellChangeTimes->{3.9913197863028755`*^9}, - CellLabel->"Out[13]=",ExpressionUUID->"d0cab83a-649b-b14c-b85b-84835124aa09"] +Cell[BoxData["2.2780057225092705`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, {3.9940735646817017`*^9, 3.994073591101307*^9}, + 3.9940751808204927`*^9, 3.99407522357547*^9}, + CellLabel-> + "Out[118]=",ExpressionUUID->"9b91c36a-db9d-42da-b92b-c7b40571889f"] }, Open ]], Cell[CellGroupData[{ @@ -211,11 +275,15 @@ Cell[BoxData[ SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", - CellLabel->"In[14]:=",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], + CellLabel-> + "In[119]:=",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], -Cell[BoxData["2.555495302485258`"], "Output", - CellChangeTimes->{3.9913197864610195`*^9}, - CellLabel->"Out[14]=",ExpressionUUID->"81304ae5-6353-154d-8b14-59a2dc55038b"] +Cell[BoxData["1.4218629228610074`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, {3.9940735646923637`*^9, 3.994073591111409*^9}, + 3.994075180833333*^9, 3.99407522358539*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"507e61f7-abca-4b67-8dc5-3d5ec9783365"] }, Open ]], Cell[CellGroupData[{ @@ -223,25 +291,86 @@ 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[120]:=",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], + +Cell[BoxData["0.4156604021030056`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, {3.994073564703178*^9, 3.99407359112132*^9}, + 3.994075180844792*^9, 3.994075223596579*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"291a5445-9c07-4345-8353-f120ed249482"] +}, 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[{"(", @@ -267,75 +396,42 @@ Cell[BoxData[ SuperscriptBox["w1", "2"]}], "+", RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", - SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", - CellLabel->"In[16]:=",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], - -Cell[BoxData["0.6849608803764016`"], "Output", - CellChangeTimes->{3.991319786533783*^9}, - CellLabel->"Out[16]=",ExpressionUUID->"bdbb5f17-757a-b84a-b3ac-6309844818bf"] -}, Open ]], - -Cell[CellGroupData[{ + SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", + CellLabel-> + "In[121]:=",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[17]:=",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], - -Cell[BoxData[ - RowBox[{"-", "0.43849259375441973`"}]], "Output", - CellChangeTimes->{3.991319786540777*^9}, - CellLabel->"Out[17]=",ExpressionUUID->"1dd72b7b-aeff-8747-91d0-6842e926f3b2"] + RowBox[{"-", "0.08656844775361539`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, {3.994073564714039*^9, 3.994073591132222*^9}, + 3.994075180888361*^9, 3.994075223608573*^9}, + CellLabel-> + "Out[121]=",ExpressionUUID->"5b05c19a-5a42-434f-b92a-b1f47e2f4e8f"] }, 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", "-", @@ -345,42 +441,32 @@ 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[18]:=",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[122]:=",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], Cell[BoxData[ - RowBox[{"-", "0.08210730792808285`"}]], "Output", - CellChangeTimes->{3.9913197865777817`*^9}, - CellLabel->"Out[18]=",ExpressionUUID->"d5bf6730-c400-e84f-827b-d40e35c83dad"] + RowBox[{"-", "0.5722877017893374`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, {3.9940735647250757`*^9, 3.994073591143152*^9}, + 3.994075180901285*^9, 3.994075223621201*^9}, + CellLabel-> + "Out[122]=",ExpressionUUID->"60602193-828e-4b81-87ed-b00b2b05b82f"] }, Open ]], Cell[CellGroupData[{ @@ -388,89 +474,107 @@ 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[19]:=",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[123]:=",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], -Cell[BoxData["0.30371622798853437`"], "Output", - CellChangeTimes->{3.9913197866129*^9}, - CellLabel->"Out[19]=",ExpressionUUID->"006d42df-1417-1c4e-b4d9-45c05dee6889"] +Cell[BoxData["0.7168396379251292`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, {3.994073564736117*^9, 3.994073591154641*^9}, + 3.9940751809127274`*^9, 3.994075223631315*^9}, + CellLabel-> + "Out[123]=",ExpressionUUID->"e6bca617-3902-4eca-8236-6d0027a75f4e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", - CellLabel->"In[20]:=",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], + CellLabel-> + "In[124]:=",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], Cell[BoxData["300"], "Output", - CellChangeTimes->{3.991319786620775*^9}, - CellLabel->"Out[20]=",ExpressionUUID->"64d193ee-3f72-404e-9ca7-d3c855ce1a3f"] + CellChangeTimes->{ + 3.991319786620775*^9, {3.994073564745685*^9, 3.9940735911671133`*^9}, + 3.9940751809237967`*^9, 3.994075223641436*^9}, + CellLabel-> + "Out[124]=",ExpressionUUID->"3e8c5d25-0de1-4e74-b9dd-68362990eebb"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fin", "=", "0.09"}]], "Input", - CellLabel->"In[21]:=",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], + CellLabel-> + "In[125]:=",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], Cell[BoxData["0.09`"], "Output", - CellChangeTimes->{3.991319786657793*^9}, - CellLabel->"Out[21]=",ExpressionUUID->"8d37ba34-6f64-7d40-86af-bfe10ed7ecf9"] + CellChangeTimes->{ + 3.991319786657793*^9, {3.994073564755136*^9, 3.994073591178863*^9}, + 3.9940751809343033`*^9, 3.9940752236530647`*^9}, + CellLabel-> + "Out[125]=",ExpressionUUID->"cd3a6b77-4e62-43ff-b252-05f31a46f5cb"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffin", "=", "0.42"}]], "Input", - CellLabel->"In[22]:=",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], + CellLabel-> + "In[126]:=",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], Cell[BoxData["0.42`"], "Output", - CellChangeTimes->{3.9913197866657925`*^9}, - CellLabel->"Out[22]=",ExpressionUUID->"cf6fd933-5c85-3c47-a2fa-a53bc24bd1de"] + CellChangeTimes->{ + 3.9913197866657925`*^9, {3.9940735647648563`*^9, 3.994073591190179*^9}, + 3.9940751809451323`*^9, 3.994075223664682*^9}, + CellLabel-> + "Out[126]=",ExpressionUUID->"dcaf9709-20b7-4905-9536-0b209c2add16"] }, Open ]], Cell[CellGroupData[{ @@ -479,51 +583,67 @@ Cell[BoxData[ RowBox[{"fex", "=", RowBox[{"-", "2.59"}]}]], "Input", CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, - CellLabel->"In[23]:=",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], + CellLabel-> + "In[127]:=",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], Cell[BoxData[ RowBox[{"-", "2.59`"}]], "Output", - CellChangeTimes->{3.9913197866996*^9}, - CellLabel->"Out[23]=",ExpressionUUID->"68c660da-f0f0-ad47-93fc-5a731457088a"] + CellChangeTimes->{ + 3.9913197866996*^9, {3.994073564774688*^9, 3.994073591201717*^9}, + 3.994075180956657*^9, 3.994075223675436*^9}, + CellLabel-> + "Out[127]=",ExpressionUUID->"a2f17eea-ff78-41e5-a0f8-94c185156e70"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffex", "=", "0.54"}]], "Input", - CellLabel->"In[24]:=",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], + CellLabel-> + "In[128]:=",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], Cell[BoxData["0.54`"], "Output", - CellChangeTimes->{3.9913197867406044`*^9}, - CellLabel->"Out[24]=",ExpressionUUID->"8f2a2cb7-00c0-6642-b771-a61c78864261"] + CellChangeTimes->{ + 3.9913197867406044`*^9, {3.994073564784115*^9, 3.994073591213622*^9}, + 3.9940751809686193`*^9, 3.9940752236862583`*^9}, + CellLabel-> + "Out[128]=",ExpressionUUID->"20afb8c7-cabc-4a1d-bac4-8a4c5fc59dc3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"Z1", "="}]], "Input", + RowBox[{"Z1", "=", "66"}]], "Input", CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { - 3.943437514738135*^9, 3.9434375159795218`*^9}, - 3.991799293571144*^9},ExpressionUUID->"50acb4f0-66e7-924a-841b-\ -56c0ae53ef15"], + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, { + 3.994073317560268*^9, 3.994073317727027*^9}}, + CellLabel-> + "In[129]:=",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], -Cell[BoxData["50"], "Output", - CellChangeTimes->{3.9913197867861958`*^9}, - CellLabel->"Out[25]=",ExpressionUUID->"55d6fafd-5f57-cf44-945d-c5c7fb1b087a"] +Cell[BoxData["66"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, {3.994073564793541*^9, 3.994073591224018*^9}, + 3.994075180980678*^9, 3.994075223697234*^9}, + CellLabel-> + "Out[129]=",ExpressionUUID->"124c5170-d79c-46db-8f5c-077b8f0967e5"] }, 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},ExpressionUUID->"4451fdbc-8b04-2c43-a6db-\ -990caacde85d"], + 3.9916443064841423`*^9, {3.9940733207460938`*^9, 3.994073320804184*^9}}, + CellLabel-> + "In[130]:=",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], -Cell[BoxData["48"], "Output", - CellChangeTimes->{3.9913197867928696`*^9}, - CellLabel->"Out[26]=",ExpressionUUID->"e4541cb8-be74-4140-af0a-812e02085534"] +Cell[BoxData["28"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, {3.9940735648031883`*^9, 3.9940735912353287`*^9}, + 3.9940751809920683`*^9, 3.994075223707429*^9}, + CellLabel-> + "Out[130]=",ExpressionUUID->"fca7c3f2-dd09-401a-af5a-7f0e5b5e9132"] }, Open ]], Cell[CellGroupData[{ @@ -532,11 +652,15 @@ Cell[BoxData[ RowBox[{"A2", "=", RowBox[{"A", "-", "A1"}]}]], "Input", CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, - CellLabel->"In[27]:=",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], + CellLabel-> + "In[131]:=",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], -Cell[BoxData["122"], "Output", - CellChangeTimes->{3.991319786827894*^9}, - CellLabel->"Out[27]=",ExpressionUUID->"41e65355-0d62-5849-876b-33938574e65a"] +Cell[BoxData["72"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, {3.99407356481284*^9, 3.994073591246372*^9}, + 3.994075181003516*^9, 3.994075223717374*^9}, + CellLabel-> + "Out[131]=",ExpressionUUID->"d9b69473-2971-460e-a714-eae49ac84666"] }, Open ]], Cell[CellGroupData[{ @@ -551,11 +675,15 @@ Cell[BoxData[ FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", - CellLabel->"In[28]:=",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], + CellLabel-> + "In[132]:=",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], -Cell[BoxData["0.11065573770491803`"], "Output", - CellChangeTimes->{3.9913197868648605`*^9}, - CellLabel->"Out[28]=",ExpressionUUID->"b6d3bf5f-35d3-5240-acc0-10ada08af661"] +Cell[BoxData["0.10999999999999999`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, {3.994073564822513*^9, 3.9940735912565413`*^9}, + 3.994075181014969*^9, 3.994075223727599*^9}, + CellLabel-> + "Out[132]=",ExpressionUUID->"00c63b3f-dab3-49c9-922a-1e7d3688cfb1"] }, Open ]], Cell[CellGroupData[{ @@ -570,12 +698,16 @@ Cell[BoxData[ FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", - CellLabel->"In[29]:=",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], + CellLabel-> + "In[133]:=",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], Cell[BoxData[ - RowBox[{"-", "2.5634426229508196`"}]], "Output", - CellChangeTimes->{3.9913197868718567`*^9}, - CellLabel->"Out[29]=",ExpressionUUID->"5d506fa3-f740-ff4f-9786-10c7e1e82f78"] + RowBox[{"-", "2.564285714285714`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, {3.994073564832857*^9, 3.994073591267404*^9}, + 3.9940751810260887`*^9, 3.9940752237376823`*^9}, + CellLabel-> + "Out[133]=",ExpressionUUID->"f2128c71-5723-4e55-89de-f77cd15b4fe5"] }, Open ]], Cell[CellGroupData[{ @@ -605,13 +737,16 @@ Cell[BoxData[ "+", "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}},ExpressionUUID->"957e37d7-d728-e448-9a63-\ -f9d65131b81c"], + 3.943418448948422*^9}, {3.9919752185010967`*^9, 3.9919752200326233`*^9}}, + CellLabel-> + "In[134]:=",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], -Cell[BoxData["19.346196963603006`"], "Output", - CellChangeTimes->{3.9913197869068584`*^9}, - CellLabel->"Out[30]=",ExpressionUUID->"02f8af82-a9df-4342-9d73-750f12d42e7b"] +Cell[BoxData["17.427928477019236`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, {3.994073564842832*^9, 3.9940735912778807`*^9}, + 3.9940751810379477`*^9, 3.994075223748026*^9}, + CellLabel-> + "Out[134]=",ExpressionUUID->"f4e19122-13ac-414b-a7a7-f55a8e585c1c"] }, Open ]], Cell[CellGroupData[{ @@ -619,107 +754,191 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, - CellLabel->"In[31]:=",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], + CellLabel-> + "In[135]:=",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], Cell[BoxData["300"], "Output", - CellChangeTimes->{3.991319786940857*^9}, - CellLabel->"Out[31]=",ExpressionUUID->"1ee0020e-da30-7b46-8f5c-7602d78cb1cb"] + CellChangeTimes->{ + 3.991319786940857*^9, {3.994073564851839*^9, 3.994073591288074*^9}, + 3.99407518104945*^9, 3.994075223758711*^9}, + CellLabel-> + "Out[135]=",ExpressionUUID->"786707a3-5ae1-4f3f-9e44-ba1a667edd9a"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ - RowBox[{"v1", "="}]], "Input", + RowBox[{"v1", "=", "2.155"}]], "Input", CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, - 3.943437451104373*^9, 3.9917179877659073`*^9, - 3.9917993555955296`*^9},ExpressionUUID->"477d69f3-81a2-6d40-bff8-\ -58a9467eced9"], + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { + 3.994073341190873*^9, 3.994073342038845*^9}}, + CellLabel-> + "In[136]:=",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], + +Cell[BoxData["2.155`"], "Output", + CellChangeTimes->{{3.994073564860754*^9, 3.994073591298296*^9}, + 3.994075181060684*^9, 3.994075223775366*^9}, + CellLabel-> + "Out[136]=",ExpressionUUID->"24e5bd3c-736c-4608-8299-b5f235e43e65"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.9918486394740562`*^9, - 3.991848639478634*^9}},ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-\ -bb644ea0ddfa"], + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel-> + "In[137]:=",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"n1", "="}]], "Input", + RowBox[{"n1", "=", "0.755"}]], "Input", CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, - 3.9434374542625003`*^9, 3.9917179964399834`*^9, - 3.9917993574235134`*^9},ExpressionUUID->"a9223860-e2cf-2047-9a01-\ -b6480cd2846d"], + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.994073344618413*^9, 3.994073345759185*^9}}, + CellLabel-> + "In[138]:=",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], + +Cell[BoxData["0.755`"], "Output", + CellChangeTimes->{{3.994073564877489*^9, 3.994073591311125*^9}, + 3.9940751810754833`*^9, 3.9940752237900457`*^9}, + CellLabel-> + "Out[138]=",ExpressionUUID->"58b53ca7-159f-4d71-8f37-af3258d4d69e"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.991848641020609*^9, - 3.9918486410246162`*^9}},ExpressionUUID->"d35f11fe-a53c-8943-ac4f-\ -07cc8884f5b8"], + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel-> + "In[139]:=",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"vv1", "="}]], "Input", + RowBox[{"vv1", "=", "2.62"}]], "Input", CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { - 3.943437458959346*^9, 3.943437459115596*^9}, - 3.9917993587947025`*^9},ExpressionUUID->"afeba878-eb4d-ef43-8941-\ -b46079e5a618"], + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.9940733478949413`*^9, 3.994073348567162*^9}}, + CellLabel-> + "In[140]:=",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], + +Cell[BoxData["2.62`"], "Output", + CellChangeTimes->{{3.994073564894133*^9, 3.9940735913232403`*^9}, + 3.994075181088438*^9, 3.994075223803163*^9}, + CellLabel-> + "Out[140]=",ExpressionUUID->"f73fb9ad-0086-4816-a9b4-52f06c0e52cf"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.9918486421415234`*^9, - 3.991848642146063*^9}},ExpressionUUID->"12665172-e21c-4e44-b1fc-\ -e81404b2a0db"], + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel-> + "In[141]:=",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"nn1", "="}]], "Input", + RowBox[{"nn1", "=", "1.135"}]], "Input", CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, - 3.991799359954439*^9},ExpressionUUID->"81b490c7-39d4-f348-8914-\ -f54b23f74296"], + 3.991799359954439*^9, {3.99407335112987*^9, 3.9940733523562517`*^9}}, + CellLabel-> + "In[142]:=",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], + +Cell[BoxData["1.135`"], "Output", + CellChangeTimes->{{3.994073564911627*^9, 3.994073591335389*^9}, + 3.994075181101487*^9, 3.994075223815889*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"3541afd6-40de-41d5-bbb1-c1fb477483ed"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.991848643356409*^9, - 3.991848643361412*^9}},ExpressionUUID->"78f54ff3-2505-5940-9b78-\ -ccc2627a783c"], + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel-> + "In[143]:=",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"v2", "="}]], "Input", + RowBox[{"v2", "=", "1.025"}]], "Input", CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, - 3.991718016467348*^9, - 3.991799361414671*^9},ExpressionUUID->"17c8b6b3-c729-7c42-8964-\ -e70aa92597e4"], + 3.991718016467348*^9, 3.991799361414671*^9, {3.994073355091783*^9, + 3.994073355935183*^9}}, + CellLabel-> + "In[144]:=",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], + +Cell[BoxData["1.025`"], "Output", + CellChangeTimes->{{3.994073564928769*^9, 3.9940735913488693`*^9}, + 3.994075181114448*^9, 3.994075223832756*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"ffccf229-8842-4c96-ab81-eea6ca750c9c"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.991848644751276*^9, - 3.991848644757372*^9}},ExpressionUUID->"3908ad8b-9aa1-4d42-954c-\ -a3b9eef1576d"], + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel-> + "In[145]:=",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"n2", "="}]], "Input", + RowBox[{"n2", "=", "0.575"}]], "Input", CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, - 3.9917180279399567`*^9, - 3.9917993631287174`*^9},ExpressionUUID->"92080e53-e7ee-a444-8071-\ -b94745a1c38a"], + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.994073359153013*^9, + 3.9940733600822906`*^9}}, + CellLabel-> + "In[146]:=",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], + +Cell[BoxData["0.575`"], "Output", + CellChangeTimes->{{3.994073564946273*^9, 3.99407359136164*^9}, + 3.9940751811274652`*^9, 3.9940752238459263`*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"84bc00a8-b4db-4f18-869f-1dc6f274f90a"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.9918486484561863`*^9, - 3.991848648461731*^9}},ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-\ -7d827c4ef6de"], + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel-> + "In[147]:=",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"vv2", "="}]], "Input", + RowBox[{"vv2", "=", "1.44"}]], "Input", CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, - 3.9917180507508755`*^9, - 3.9917993645898876`*^9},ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-\ -264265a5c2d2"], + 3.9917180507508755`*^9, 3.9917993645898876`*^9, 3.994073366138835*^9, { + 3.994073396938322*^9, 3.994073398601803*^9}}, + CellLabel-> + "In[148]:=",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], + +Cell[BoxData["1.44`"], "Output", + CellChangeTimes->{{3.994073564964167*^9, 3.9940735913757553`*^9}, + 3.9940751811406727`*^9, 3.9940752238589993`*^9}, + CellLabel-> + "Out[148]=",ExpressionUUID->"afae8fea-407d-479f-bc74-13b51d067251"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.99184864995627*^9, - 3.9918486499632607`*^9}},ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-\ -01ae055dd38b"], + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel-> + "In[149]:=",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"nn2", "="}]], "Input", + RowBox[{"nn2", "=", "0.645"}]], "Input", CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, - 3.9917993660901737`*^9},ExpressionUUID->"0efd73e6-d1c0-4449-a060-\ -0fd7b04115ca"], + 3.9917993660901737`*^9, {3.9940734006045856`*^9, 3.99407340214142*^9}}, + CellLabel-> + "In[150]:=",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], + +Cell[BoxData["0.645`"], "Output", + CellChangeTimes->{{3.9940735649821672`*^9, 3.994073591389337*^9}, + 3.994075181153781*^9, 3.994075223871763*^9}, + CellLabel-> + "Out[150]=",ExpressionUUID->"4561d0db-e274-4df4-af17-d05cbed75663"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.9918486513316555`*^9, - 3.9918486513362026`*^9}},ExpressionUUID->"cc8697be-e0d9-6944-bb0c-\ -e22b0839e976"], + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel-> + "In[151]:=",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], Cell[CellGroupData[{ @@ -1208,11 +1427,15 @@ uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== "], - CellLabel->"In[40]:=",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], + CellLabel-> + "In[152]:=",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], -Cell[BoxData["2.0187310532697746`"], "Output", - CellChangeTimes->{3.991319787430073*^9}, - CellLabel->"Out[40]=",ExpressionUUID->"6e3e2b1b-3430-b546-9dfc-ccd29250c9d7"] +Cell[BoxData["0.1377756020325425`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, {3.9940735650538073`*^9, 3.99407359143029*^9}, + 3.994075181231205*^9, 3.9940752239087954`*^9}, + CellLabel-> + "Out[152]=",ExpressionUUID->"a0b6eb77-7a40-4149-8996-69298baaa115"] }, Open ]], Cell[CellGroupData[{ @@ -1706,11 +1929,15 @@ Cell[BoxData[ CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, - CellLabel->"In[41]:=",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], + CellLabel-> + "In[153]:=",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], -Cell[BoxData["0.14694138435338647`"], "Output", - CellChangeTimes->{3.991319787574972*^9}, - CellLabel->"Out[41]=",ExpressionUUID->"ca8af40c-4f04-8747-aa6f-9594ea3fb865"] +Cell[BoxData["7.524926889811008`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, {3.99407356508613*^9, 3.994073591458125*^9}, + 3.994075181264968*^9, 3.994075223937818*^9}, + CellLabel-> + "Out[153]=",ExpressionUUID->"a3d1a840-0b00-4050-9772-7b0edc7352af"] }, Open ]], Cell[CellGroupData[{ @@ -2198,12 +2425,16 @@ Cell[BoxData[ CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, - CellLabel->"In[42]:=",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], + CellLabel-> + "In[154]:=",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], Cell[BoxData[ - RowBox[{"-", "32.27220689122579`"}]], "Output", - CellChangeTimes->{3.991319787641424*^9}, - CellLabel->"Out[42]=",ExpressionUUID->"43eaee96-3646-954d-899a-d1e3ee2edd5e"] + RowBox[{"-", "14.084113046357718`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, {3.994073565118821*^9, 3.994073591484323*^9}, + 3.994075181298151*^9, 3.9940752239647293`*^9}, + CellLabel-> + "Out[154]=",ExpressionUUID->"12933a3f-52b7-4098-aa18-656cd2cc71ec"] }, Open ]], Cell[CellGroupData[{ @@ -2761,12 +2992,16 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel->"In[43]:=",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], + CellLabel-> + "In[155]:=",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], Cell[BoxData[ - RowBox[{"-", "81.2532555132978`"}]], "Output", - CellChangeTimes->{3.991319787711939*^9}, - CellLabel->"Out[43]=",ExpressionUUID->"a8d59888-f6f0-0746-9034-5e74c45610b1"] + RowBox[{"-", "18.31263149263108`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, {3.9940735651553993`*^9, 3.994073591515855*^9}, + 3.9940751813370543`*^9, 3.994075223996374*^9}, + CellLabel-> + "Out[155]=",ExpressionUUID->"0c25fe6b-f86a-4093-b345-52a763c8e9c0"] }, Open ]], Cell[CellGroupData[{ @@ -3324,12 +3559,16 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel->"In[44]:=",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], + CellLabel-> + "In[156]:=",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], Cell[BoxData[ - RowBox[{"-", "38.89688349410641`"}]], "Output", - CellChangeTimes->{3.9913197877723045`*^9}, - CellLabel->"Out[44]=",ExpressionUUID->"dd5d5506-e4f6-7d4c-bcd9-ea70659f69e1"] + RowBox[{"-", "53.236632839784775`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, {3.994073565191607*^9, 3.9940735915482073`*^9}, + 3.9940751813752813`*^9, 3.994075224029221*^9}, + CellLabel-> + "Out[156]=",ExpressionUUID->"8a2bdd3e-5197-4470-852a-259650b2ba2b"] }, Open ]], Cell[CellGroupData[{ @@ -3960,34 +4199,46 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel->"In[45]:=",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], + CellLabel-> + "In[157]:=",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], Cell[BoxData[ - RowBox[{"-", "199.04976850122156`"}]], "Output", - CellChangeTimes->{3.991319787833355*^9}, - CellLabel->"Out[45]=",ExpressionUUID->"b983c8d8-6a34-fb4a-8a0a-8960e79ae993"] + RowBox[{"-", "137.72173412227852`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, {3.9940735652337313`*^9, 3.9940735915861683`*^9}, + 3.9940751814204807`*^9, 3.99407522406466*^9}, + CellLabel-> + "Out[157]=",ExpressionUUID->"667240dd-2ffb-4aab-953f-74203839a2e1"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U21", "=", "0"}]], "Input", - CellLabel->"In[47]:=",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], + CellLabel-> + "In[158]:=",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], Cell[BoxData["0"], "Output", - CellChangeTimes->{3.9913204210013676`*^9}, - CellLabel->"Out[47]=",ExpressionUUID->"bb0c55af-9cf7-0443-8b24-f19c97d6c781"] + CellChangeTimes->{ + 3.9913204210013676`*^9, {3.994073565247233*^9, 3.99407359159737*^9}, + 3.994075181435895*^9, 3.9940752240755796`*^9}, + CellLabel-> + "Out[158]=",ExpressionUUID->"0febcc1d-bcb8-46cb-8034-9f3685156a5a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U22", "=", "0"}]], "Input", - CellLabel->"In[48]:=",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], + CellLabel-> + "In[159]:=",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], Cell[BoxData["0"], "Output", - CellChangeTimes->{3.9913204210355663`*^9}, - CellLabel->"Out[48]=",ExpressionUUID->"0d4bafbb-7685-ff43-aaa0-fe1597369669"] + CellChangeTimes->{ + 3.9913204210355663`*^9, {3.994073565259305*^9, 3.994073591607201*^9}, + 3.9940751814462433`*^9, 3.994075224085256*^9}, + CellLabel-> + "Out[159]=",ExpressionUUID->"1ef2b21c-2c62-42da-bdf7-e8a8ac672482"] }, Open ]], Cell[CellGroupData[{ @@ -4031,11 +4282,15 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel->"In[49]:=",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], + CellLabel-> + "In[160]:=",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], -Cell[BoxData["165.32626018052665`"], "Output", - CellChangeTimes->{3.991320421068556*^9}, - CellLabel->"Out[49]=",ExpressionUUID->"25fde637-8846-5644-8daa-868231713f08"] +Cell[BoxData["109.03965674383026`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, {3.9940735652689238`*^9, 3.99407359161714*^9}, + 3.994075181457575*^9, 3.994075224089169*^9}, + CellLabel-> + "Out[160]=",ExpressionUUID->"959de20e-e319-4821-856a-2db061248dc4"] }, Open ]], Cell[CellGroupData[{ @@ -4075,12 +4330,16 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel->"In[50]:=",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], + CellLabel-> + "In[161]:=",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], Cell[BoxData[ - RowBox[{"-", "113.55836273207095`"}]], "Output", - CellChangeTimes->{3.991320421098543*^9}, - CellLabel->"Out[50]=",ExpressionUUID->"222cd90e-6438-0a46-88d0-fcdd10fc9432"] + RowBox[{"-", "96.23297652944373`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, {3.9940735652791967`*^9, 3.994073591627187*^9}, + 3.994075181468134*^9, 3.9940752240986977`*^9}, + CellLabel-> + "Out[161]=",ExpressionUUID->"b1db9611-48bc-4896-beb1-8a7875512d81"] }, Open ]], Cell[CellGroupData[{ @@ -4124,73 +4383,101 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel->"In[51]:=",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], + CellLabel-> + "In[162]:=",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], -Cell[BoxData["101.25756231997637`"], "Output", - CellChangeTimes->{3.9913204211275444`*^9}, - CellLabel->"Out[51]=",ExpressionUUID->"b7d1d4d3-3e05-af4b-9683-83817f2bdc88"] +Cell[BoxData["112.13680293055965`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, {3.994073565289288*^9, 3.994073591637117*^9}, + 3.994075181479414*^9, 3.9940752241080437`*^9}, + CellLabel-> + "Out[162]=",ExpressionUUID->"19482b06-bfbf-42e1-966f-1ca5e68041c0"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c11"], "Input", - CellLabel->"In[52]:=",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], + CellLabel-> + "In[163]:=",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], -Cell[BoxData["0.6849608803764016`"], "Output", - CellChangeTimes->{3.9913204211385536`*^9}, - CellLabel->"Out[52]=",ExpressionUUID->"9fab72a0-15cc-f04b-8b2d-eafd610fbe08"] +Cell[BoxData["0.4156604021030056`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, {3.99407356529922*^9, 3.994073591647008*^9}, + 3.994075181491456*^9, 3.994075224117897*^9}, + CellLabel-> + "Out[163]=",ExpressionUUID->"267767d6-895f-4ba6-9f0e-daa9a1fe3161"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c12"], "Input", - CellLabel->"In[53]:=",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], + CellLabel-> + "In[164]:=",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], Cell[BoxData[ - RowBox[{"-", "0.43849259375441973`"}]], "Output", - CellChangeTimes->{3.9913204211683464`*^9}, - CellLabel->"Out[53]=",ExpressionUUID->"5baa5811-6d68-0847-bfa7-611a7f282595"] + RowBox[{"-", "0.08656844775361539`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, {3.994073565311245*^9, 3.994073591656905*^9}, + 3.994075181502122*^9, 3.9940752241273518`*^9}, + CellLabel-> + "Out[164]=",ExpressionUUID->"5400b027-5158-4fa7-b234-3e43d63912b9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c21"], "Input", - CellLabel->"In[54]:=",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], + CellLabel-> + "In[165]:=",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], Cell[BoxData[ - RowBox[{"-", "0.08210730792808285`"}]], "Output", - CellChangeTimes->{3.991320421199068*^9}, - CellLabel->"Out[54]=",ExpressionUUID->"66d60cf8-894b-f64c-bc5e-4862fc34e98d"] + RowBox[{"-", "0.5722877017893374`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, {3.9940735653224297`*^9, 3.994073591666703*^9}, + 3.994075181512973*^9, 3.994075224138131*^9}, + CellLabel-> + "Out[165]=",ExpressionUUID->"f4a32333-db17-466f-aba5-bb9d6b4f6399"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c22"], "Input", - CellLabel->"In[55]:=",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], + CellLabel-> + "In[166]:=",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], -Cell[BoxData["0.30371622798853437`"], "Output", - CellChangeTimes->{3.991320421228037*^9}, - CellLabel->"Out[55]=",ExpressionUUID->"95baa4f5-66f1-b04e-8459-661f90319bc4"] +Cell[BoxData["0.7168396379251292`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, {3.994073565332736*^9, 3.994073591676529*^9}, + 3.9940751815232983`*^9, 3.99407522414828*^9}, + CellLabel-> + "Out[166]=",ExpressionUUID->"797ae031-4fc8-4710-8404-04a4b2f96865"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w1"], "Input", - CellLabel->"In[56]:=",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], + CellLabel-> + "In[167]:=",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], -Cell[BoxData["1.4975864418719793`"], "Output", - CellChangeTimes->{3.9913204212585373`*^9}, - CellLabel->"Out[56]=",ExpressionUUID->"de032191-9b61-7645-8f26-423f534a2cb1"] +Cell[BoxData["2.2780057225092705`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, {3.994073565343382*^9, 3.994073591686304*^9}, + 3.9940751815621433`*^9, 3.994075224158536*^9}, + CellLabel-> + "Out[167]=",ExpressionUUID->"eedb8b45-7ad3-46ef-8609-79a186c2fdce"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w2"], "Input", - CellLabel->"In[57]:=",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], + CellLabel-> + "In[168]:=",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], -Cell[BoxData["2.555495302485258`"], "Output", - CellChangeTimes->{3.9913204212884274`*^9}, - CellLabel->"Out[57]=",ExpressionUUID->"56b6e721-a4ff-f24f-9100-8013c893b0ae"] +Cell[BoxData["1.4218629228610074`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, {3.9940735677968397`*^9, 3.994073591696135*^9}, + 3.994075181571867*^9, 3.994075224168653*^9}, + CellLabel-> + "Out[168]=",ExpressionUUID->"9fa255bb-5bc5-4f09-a647-1262633ab9fe"] }, Open ]], Cell[CellGroupData[{ @@ -4211,12 +4498,16 @@ Cell[BoxData[ RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", - CellLabel->"In[58]:=",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], + CellLabel-> + "In[169]:=",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], Cell[BoxData[ - RowBox[{"-", "10.968150500985438`"}]], "Output", - CellChangeTimes->{3.9913204213185234`*^9}, - CellLabel->"Out[58]=",ExpressionUUID->"ed7537ce-20e6-4246-aac0-4a4b9f4faed7"] + RowBox[{"-", "34.047906297441784`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, {3.994073567991251*^9, 3.994073591706287*^9}, + 3.994075181582259*^9, 3.994075224178802*^9}, + CellLabel-> + "Out[169]=",ExpressionUUID->"3bf14ac4-0082-4302-a700-78211a962477"] }, Open ]], Cell[CellGroupData[{ @@ -4237,12 +4528,16 @@ Cell[BoxData[ RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", - CellLabel->"In[59]:=",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], + CellLabel-> + "In[170]:=",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], Cell[BoxData[ - RowBox[{"-", "30.737279670206195`"}]], "Output", - CellChangeTimes->{3.991320421349531*^9}, - CellLabel->"Out[59]=",ExpressionUUID->"643b7429-505f-4045-a97f-7e6871b3f504"] + RowBox[{"-", "6.56405378738986`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, {3.994073568001831*^9, 3.994073591716386*^9}, + 3.994075181592502*^9, 3.994075224188962*^9}, + CellLabel-> + "Out[170]=",ExpressionUUID->"113930a9-872c-495e-bde6-8f11ffae2542"] }, Open ]], Cell[CellGroupData[{ @@ -4307,11 +4602,15 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]}]}]], "Input", - CellLabel->"In[60]:=",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], + CellLabel-> + "In[171]:=",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], -Cell[BoxData["154.3581096795412`"], "Output", - CellChangeTimes->{3.9913204213784294`*^9}, - CellLabel->"Out[60]=",ExpressionUUID->"029098e5-22ab-9a4c-99ad-caac4d1307db"] +Cell[BoxData["74.99175044638848`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, {3.994073568012953*^9, 3.994073591726822*^9}, + 3.9940751816039963`*^9, 3.994075224199308*^9}, + CellLabel-> + "Out[171]=",ExpressionUUID->"70fb2170-70df-4335-9ac8-39307964fc8d"] }, Open ]], Cell[CellGroupData[{ @@ -4352,12 +4651,16 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", - CellLabel->"In[61]:=",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], + CellLabel-> + "In[172]:=",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], Cell[BoxData[ - RowBox[{"-", "113.55836273207095`"}]], "Output", - CellChangeTimes->{3.9913204213904285`*^9}, - CellLabel->"Out[61]=",ExpressionUUID->"f7cceab2-e319-0345-98f3-b759ec5fa40c"] + RowBox[{"-", "96.23297652944373`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, {3.994073568023205*^9, 3.9940735917368*^9}, + 3.994075181615046*^9, 3.994075224209613*^9}, + CellLabel-> + "Out[172]=",ExpressionUUID->"05b5d827-ff10-4026-8f0c-2872ed10ebff"] }, Open ]], Cell[CellGroupData[{ @@ -4423,11 +4726,15 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]}]}]], "Input", - CellLabel->"In[62]:=",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], + CellLabel-> + "In[173]:=",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], -Cell[BoxData["70.52028264977018`"], "Output", - CellChangeTimes->{3.991320421419428*^9}, - CellLabel->"Out[62]=",ExpressionUUID->"ee7339b3-3748-a34f-a057-3912a0918fd6"] +Cell[BoxData["105.57274914316979`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, {3.994073568033989*^9, 3.994073591747006*^9}, + 3.994075181626021*^9, 3.994075224219851*^9}, + CellLabel-> + "Out[173]=",ExpressionUUID->"7434ab66-9dcb-4d49-8c6a-0df4b4475a0d"] }, Open ]], Cell[CellGroupData[{ @@ -4485,11 +4792,15 @@ Cell[BoxData[ RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", - CellLabel->"In[63]:=",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], + CellLabel-> + "In[174]:=",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], -Cell[BoxData["14.070681463640064`"], "Output", - CellChangeTimes->{3.9913204214494324`*^9}, - CellLabel->"Out[63]=",ExpressionUUID->"9d980dd1-9860-3745-8961-1b723545e44c"] +Cell[BoxData["39.10949309233206`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, {3.994073568045323*^9, 3.99407359175727*^9}, + 3.994075181636903*^9, 3.99407522423002*^9}, + CellLabel-> + "Out[174]=",ExpressionUUID->"4b878535-e718-450b-a3c7-d6c0db830348"] }, Open ]], Cell[CellGroupData[{ @@ -4547,34 +4858,57 @@ Cell[BoxData[ RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", - CellLabel->"In[64]:=",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], + CellLabel-> + "In[175]:=",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], -Cell[BoxData["392.58159931234866`"], "Output", - CellChangeTimes->{3.991320421481529*^9}, - CellLabel->"Out[64]=",ExpressionUUID->"791dcf4f-1a7f-2347-997c-27eed6cf3948"] +Cell[BoxData["659.7171122788135`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, {3.994073568055649*^9, 3.994073591768012*^9}, + 3.9940751816477003`*^9, 3.99407522424048*^9}, + CellLabel-> + "Out[175]=",ExpressionUUID->"9f930ce4-b2ee-4b45-a127-641eb26351ff"] }, Open ]], -Cell[BoxData[ - RowBox[{"f1", "="}]], "Input", - CellChangeTimes->{ - 3.991799412462593*^9},ExpressionUUID->"8ee71d5b-854f-5949-88a2-\ -843ffd08641f"], - -Cell[BoxData[""], "Input", - CellChangeTimes->{{3.99184866880085*^9, - 3.9918486688048573`*^9}},ExpressionUUID->"13f65097-48a8-0b48-8f26-\ -bfa63ff56738"], +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", + RowBox[{"f1", "=", "0.8725040536"}]], "Input", CellChangeTimes->{ - 3.991799414288656*^9},ExpressionUUID->"6c8cc5df-ad31-9945-825b-\ -23c469148e55"], + 3.991799412462593*^9, {3.9940734291138678`*^9, 3.9940734381551647`*^9}}, + CellLabel-> + "In[176]:=",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], + +Cell[BoxData["0.8725040536`"], "Output", + CellChangeTimes->{{3.99407356806634*^9, 3.9940735917783203`*^9}, + 3.994075181658287*^9, 3.994075224250654*^9}, + CellLabel-> + "Out[176]=",ExpressionUUID->"391f95c9-de39-4fb1-a3ca-696e27495551"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.991848669922333*^9, - 3.9918486699293537`*^9}},ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-\ -049e50ab8a2a"], + CellChangeTimes->{{3.99184866880085*^9, 3.9918486688048573`*^9}}, + CellLabel-> + "In[177]:=",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f2", "=", "0.5470324096"}]], "Input", + CellChangeTimes->{3.991799414288656*^9, 3.994073443186633*^9}, + CellLabel-> + "In[178]:=",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], + +Cell[BoxData["0.5470324096`"], "Output", + CellChangeTimes->{{3.994073568079108*^9, 3.9940735917917*^9}, + 3.994075181671835*^9, 3.99407522429589*^9}, + CellLabel-> + "Out[178]=",ExpressionUUID->"8b262717-73bc-4c33-a610-384f7df79d4f"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848669922333*^9, 3.9918486699293537`*^9}}, + CellLabel-> + "In[179]:=",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], Cell[CellGroupData[{ @@ -4620,11 +4954,15 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], ")"}]}]], "Input", - CellLabel->"In[67]:=",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], + CellLabel-> + "In[180]:=",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], -Cell[BoxData["2.3793916761039797`*^-53"], "Output", - CellChangeTimes->{3.99132042156752*^9}, - CellLabel->"Out[67]=",ExpressionUUID->"83707082-f118-c146-a95c-693158b61875"] +Cell[BoxData["1.5054805119396558`*^-53"], "Output", + CellChangeTimes->{ + 3.99132042156752*^9, {3.9940735680914793`*^9, 3.9940735918055973`*^9}, + 3.99407518168524*^9, 3.994075224325406*^9}, + CellLabel-> + "Out[180]=",ExpressionUUID->"def1fdc3-5344-4f30-9489-17424043f7f2"] }, Open ]], Cell[CellGroupData[{ @@ -4658,13 +4996,16 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", - CellChangeTimes->{ - 3.991557471461853*^9},ExpressionUUID->"4237f61c-7340-ae4e-a030-\ -5501c3a85c24"], + CellChangeTimes->{3.991557471461853*^9}, + CellLabel-> + "In[181]:=",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], -Cell[BoxData["2.192147584896785`*^-54"], "Output", - CellChangeTimes->{3.99132042159643*^9}, - CellLabel->"Out[68]=",ExpressionUUID->"93dbdfa1-2e9a-2d49-80d6-05af3e592734"] +Cell[BoxData["1.430360078496079`*^-54"], "Output", + CellChangeTimes->{ + 3.99132042159643*^9, {3.994073568101479*^9, 3.994073591817135*^9}, + 3.994075181696602*^9, 3.99407522433638*^9}, + CellLabel-> + "Out[181]=",ExpressionUUID->"63676d78-49e5-47b8-a6dd-5a44c183f616"] }, Open ]], Cell[CellGroupData[{ @@ -4697,13 +5038,16 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}]], "Input", - CellChangeTimes->{{3.991557474366678*^9, - 3.99155747655138*^9}},ExpressionUUID->"8a758118-d07d-d243-b7d7-\ -f8e668175458"], + CellChangeTimes->{{3.991557474366678*^9, 3.99155747655138*^9}}, + CellLabel-> + "In[182]:=",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], -Cell[BoxData["3.508823705223133`*^-54"], "Output", - CellChangeTimes->{3.9913204216085243`*^9}, - CellLabel->"Out[69]=",ExpressionUUID->"afd7d2f8-cc87-734c-9c81-c0621f31e0e5"] +Cell[BoxData["2.8903622337570463`*^-54"], "Output", + CellChangeTimes->{ + 3.9913204216085243`*^9, {3.99407356811165*^9, 3.9940735918288307`*^9}, + 3.994075181707142*^9, 3.994075224348711*^9}, + CellLabel-> + "Out[182]=",ExpressionUUID->"63823632-182e-4c64-b161-34283d2cde3b"] }, Open ]], Cell[CellGroupData[{ @@ -4727,18 +5071,19 @@ Cell[BoxData[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", CellLabel-> - "In[670]:=",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], + "In[183]:=",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], -Cell[BoxData["20.232611751799567`"], "Output", +Cell[BoxData["13.886176572292896`"], "Output", CellChangeTimes->{ 3.991323706886154*^9, 3.9917089973478775`*^9, 3.9920860582546215`*^9, 3.992086268464361*^9, 3.992086312066765*^9, 3.9920865713192253`*^9, 3.992086602134493*^9, 3.9920866682814503`*^9, {3.992086776768282*^9, 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.9920915619364376`*^9, 3.9920915885645847`*^9}, {3.994073568121551*^9, + 3.9940735918400784`*^9}, 3.994075181717709*^9, 3.994075224362709*^9}, CellLabel-> - "Out[670]=",ExpressionUUID->"0432d540-b940-d44f-87c2-61a0d876fa3f"] + "Out[183]=",ExpressionUUID->"0415d3ae-f93e-4008-a13c-8fbbe0d44767"] }, Open ]], Cell[CellGroupData[{ @@ -4765,18 +5110,19 @@ Cell[BoxData[ RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", CellChangeTimes->{3.992086162437586*^9}, CellLabel-> - "In[671]:=",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], + "In[184]:=",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], -Cell[BoxData["61.811743284264836`"], "Output", +Cell[BoxData["48.721353500088284`"], "Output", CellChangeTimes->{ 3.9913204216685333`*^9, 3.9917083768681793`*^9, 3.9920862684823704`*^9, 3.992086312091795*^9, 3.9920865713392296`*^9, 3.9920866021582546`*^9, 3.992086668289461*^9, {3.992086776775297*^9, 3.9920868041333256`*^9}, 3.992091247484524*^9, {3.9920913926676064`*^9, 3.9920914468313007`*^9}, { 3.9920915031479607`*^9, 3.9920915226223583`*^9}, {3.9920915619450817`*^9, - 3.992091588571615*^9}}, + 3.992091588571615*^9}, {3.994073568131518*^9, 3.99407359185163*^9}, + 3.9940751817283688`*^9, 3.99407522437365*^9}, CellLabel-> - "Out[671]=",ExpressionUUID->"d6001eae-8a76-854e-9f93-fc6d9f888546"] + "Out[184]=",ExpressionUUID->"0e1c76cb-1795-408e-ad42-c1004833256f"] }, Open ]], Cell[CellGroupData[{ @@ -4786,18 +5132,19 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", CellLabel-> - "In[672]:=",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], + "In[185]:=",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], -Cell[BoxData["2.078701539535334`"], "Output", +Cell[BoxData["1.678223320932622`"], "Output", CellChangeTimes->{ 3.9913237069236546`*^9, 3.9917089973924427`*^9, 3.9920860582606277`*^9, 3.9920862684883747`*^9, 3.992086312111845*^9, 3.9920865713602333`*^9, 3.992086602164238*^9, 3.9920866683116226`*^9, {3.9920867767991753`*^9, 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.9920915619686337`*^9, 3.992091588596325*^9}, {3.994073568141081*^9, + 3.99407359186281*^9}, 3.994075181739097*^9, 3.994075224384358*^9}, CellLabel-> - "Out[672]=",ExpressionUUID->"529ddbf3-d030-9b49-9390-e82eea1b6cd9"] + "Out[185]=",ExpressionUUID->"f46856f5-b2fd-4da9-8170-a8a6196179fb"] }, Open ]], Cell[CellGroupData[{ @@ -4808,17 +5155,19 @@ Cell[BoxData[ FractionBox["Kw", "Qw2"]]}]], "Input", CellChangeTimes->{{3.992086303949501*^9, 3.992086304210249*^9}}, CellLabel-> - "In[673]:=",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], + "In[186]:=",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], -Cell[BoxData["5.12428714806174`"], "Output", +Cell[BoxData["3.679757526901149`"], "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.992091522636343*^9}, {3.992091561975609*^9, 3.99209158860334*^9}, { + 3.994073568151667*^9, 3.99407359187431*^9}, 3.994075181749591*^9, + 3.9940752243950768`*^9}, CellLabel-> - "Out[673]=",ExpressionUUID->"1efb03b1-ddd9-3544-b911-a583d1e1d12c"] + "Out[186]=",ExpressionUUID->"a7d5ab5d-d1f0-43ef-8e4e-de717cfc04c9"] }, Open ]], Cell[CellGroupData[{ @@ -4829,18 +5178,19 @@ Cell[BoxData[ RowBox[{"Qw2", "*", "hw"}], "1"]}]], "Input", CellChangeTimes->{3.992086167409481*^9}, CellLabel-> - "In[674]:=",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], + "In[187]:=",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], -Cell[BoxData["316.7411217108498`"], "Output", +Cell[BoxData["179.2827672627615`"], "Output", CellChangeTimes->{ 3.9913204217554817`*^9, 3.9917083769190636`*^9, 3.9920862684953804`*^9, 3.992086312138464*^9, 3.992086571391514*^9, 3.9920866022223396`*^9, 3.9920866683466625`*^9, {3.9920867768341465`*^9, 3.9920868041850357`*^9}, 3.992091247547844*^9, {3.9920913927375374`*^9, 3.992091446867302*^9}, { 3.992091503209553*^9, 3.992091522657341*^9}, {3.992091561999613*^9, - 3.9920915886284447`*^9}}, + 3.9920915886284447`*^9}, {3.994073568161523*^9, 3.994073591885874*^9}, + 3.99407518175989*^9, 3.994075224405814*^9}, CellLabel-> - "Out[674]=",ExpressionUUID->"0c2f4a5d-aa8f-1846-8930-72520d6d68fa"] + "Out[187]=",ExpressionUUID->"bbf0f360-d4e0-4196-bece-8505377ce7cc"] }, Open ]], Cell[CellGroupData[{ @@ -4850,18 +5200,19 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[675]:=",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], + "In[188]:=",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], -Cell[BoxData["42.05756119728645`"], "Output", +Cell[BoxData["23.30410536221016`"], "Output", CellChangeTimes->{ 3.9913237069753113`*^9, 3.99170899744343*^9, 3.992086058291689*^9, 3.9920862685164757`*^9, 3.992086312143465*^9, 3.9920865713975163`*^9, 3.99208660222736*^9, 3.9920866683701725`*^9, {3.9920867768552227`*^9, 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.992091562006651*^9, 3.992091588636162*^9}, {3.994073568172328*^9, + 3.994073591896564*^9}, 3.994075181770046*^9, 3.994075224416945*^9}, CellLabel-> - "Out[675]=",ExpressionUUID->"51b96550-e411-8f49-ae52-0ef4087a9cca"] + "Out[188]=",ExpressionUUID->"6d655ba4-795f-4384-b27a-a1797175c6f4"] }, Open ]], Cell[CellGroupData[{ @@ -5051,18 +5402,19 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[676]:=",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], + "In[189]:=",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], -Cell[BoxData["0.007069898460535921`"], "Output", +Cell[BoxData["0.0060151889208131335`"], "Output", CellChangeTimes->{ 3.991323707000412*^9, 3.991708997465433*^9, 3.9920860583187714`*^9, 3.992086268523493*^9, 3.9920863121684647`*^9, 3.9920865714232826`*^9, 3.992086602254381*^9, {3.992086776882221*^9, 3.9920868042180786`*^9}, 3.992091247578861*^9, {3.9920913927664986`*^9, 3.992091446900387*^9}, { 3.992091503241564*^9, 3.9920915226853714`*^9}, {3.9920915620301514`*^9, - 3.992091588657053*^9}}, + 3.992091588657053*^9}, {3.994073568184826*^9, 3.994073591909194*^9}, + 3.9940751817815437`*^9, 3.9940752244283447`*^9}, CellLabel-> - "Out[676]=",ExpressionUUID->"ae5a263d-347a-6e47-95a0-f7c420f4dc91"] + "Out[189]=",ExpressionUUID->"9dadf9c6-f8e2-4617-9081-918009d02169"] }, Open ]], Cell[CellGroupData[{ @@ -5075,18 +5427,22 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + Background->None, CellLabel-> - "In[677]:=",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], + "In[190]:=",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], -Cell[BoxData["10.539945190547895`"], "Output", +Cell[BoxData["11.426686299832566`"], "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.9920915227624416`*^9}, {3.9920915621031647`*^9, + 3.9920915887305927`*^9}, {3.9940735694908037`*^9, 3.9940735919766693`*^9}, + 3.99407518189362*^9, 3.994075224493855*^9}, + Background->None, CellLabel-> - "Out[677]=",ExpressionUUID->"eb964dd3-b4a5-124b-bf6d-21f5f9718a4e"] + "Out[190]=",ExpressionUUID->"5dab7f55-a32f-4f72-bcf3-e3aca25987b6"] }, Open ]], Cell[BoxData[ @@ -5099,7 +5455,7 @@ Cell[BoxData[ 3.9920863634349823`*^9}, {3.9920864985362244`*^9, 3.992086501430176*^9}, { 3.9920869541635437`*^9, 3.992086954848522*^9}}, CellLabel-> - "In[678]:=",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], + "In[191]:=",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], Cell[CellGroupData[{ @@ -5121,11 +5477,15 @@ Cell[BoxData[ FractionBox[ RowBox[{"Ih", "*", "Ir"}], RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", - CellLabel->"In[70]:=",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], + CellLabel-> + "In[192]:=",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], -Cell[BoxData["44.37747929594205`"], "Output", - CellChangeTimes->{3.991320421637537*^9}, - CellLabel->"Out[70]=",ExpressionUUID->"e4d9d77a-b508-454c-baed-04aa4a4ef418"] +Cell[BoxData["35.19016342490424`"], "Output", + CellChangeTimes->{ + 3.991320421637537*^9, {3.9940735695774927`*^9, 3.9940735919950237`*^9}, + 3.994075181909905*^9, 3.994075224508122*^9}, + CellLabel-> + "Out[192]=",ExpressionUUID->"83d94100-49ff-4018-9255-21615cdd3c63"] }, Open ]], Cell[CellGroupData[{ @@ -5150,11 +5510,15 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", - CellLabel->"In[71]:=",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], + CellLabel-> + "In[193]:=",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], -Cell[BoxData["66.74356871519693`"], "Output", - CellChangeTimes->{3.9913204216685333`*^9}, - CellLabel->"Out[71]=",ExpressionUUID->"3007515b-4da6-bf4e-9b4f-90b429e2dd04"] +Cell[BoxData["48.721353500088284`"], "Output", + CellChangeTimes->{ + 3.9913204216685333`*^9, {3.994073569586437*^9, 3.9940735920051193`*^9}, + 3.9940751819200087`*^9, 3.994075224518662*^9}, + CellLabel-> + "Out[193]=",ExpressionUUID->"f8a823cc-70a2-4079-a54e-45e6573131e1"] }, Open ]], Cell[CellGroupData[{ @@ -5163,11 +5527,15 @@ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb3"]]}]], "Input", - CellLabel->"In[72]:=",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], + CellLabel-> + "In[194]:=",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], -Cell[BoxData["0.5630879721742558`"], "Output", - CellChangeTimes->{3.991320421698473*^9}, - CellLabel->"Out[72]=",ExpressionUUID->"f6274504-766f-8549-a4a8-fd0e803dda86"] +Cell[BoxData["1.0542180593042814`"], "Output", + CellChangeTimes->{ + 3.991320421698473*^9, {3.994073569597731*^9, 3.9940735920143948`*^9}, + 3.9940751819300413`*^9, 3.994075224529359*^9}, + CellLabel-> + "Out[194]=",ExpressionUUID->"6e210646-ff3d-433f-9f7c-eb08e5103a5a"] }, Open ]], Cell[CellGroupData[{ @@ -5176,11 +5544,15 @@ Cell[BoxData[ RowBox[{"hw", "=", SqrtBox[ FractionBox["Kw", "Qw3"]]}]], "Input", - CellLabel->"In[73]:=",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], + CellLabel-> + "In[195]:=",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], -Cell[BoxData["2.425270911118517`"], "Output", - CellChangeTimes->{3.991320421726494*^9}, - CellLabel->"Out[73]=",ExpressionUUID->"72d24546-97b5-7344-98ec-019068f7b9fb"] +Cell[BoxData["3.679757526901149`"], "Output", + CellChangeTimes->{ + 3.991320421726494*^9, {3.994073569607998*^9, 3.994073592023653*^9}, + 3.994075181941288*^9, 3.994075224540246*^9}, + CellLabel-> + "Out[195]=",ExpressionUUID->"a80c5baf-122f-40e1-a188-5f47b5defd9e"] }, Open ]], Cell[CellGroupData[{ @@ -5189,11 +5561,15 @@ Cell[BoxData[ RowBox[{"Cw", "=", FractionBox[ RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", - CellLabel->"In[74]:=",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], + CellLabel-> + "In[196]:=",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], -Cell[BoxData["161.87123570920699`"], "Output", - CellChangeTimes->{3.9913204217554817`*^9}, - CellLabel->"Out[74]=",ExpressionUUID->"7075b380-afe9-8b44-acc9-29433a09a866"] +Cell[BoxData["179.2827672627615`"], "Output", + CellChangeTimes->{ + 3.9913204217554817`*^9, {3.994073569616849*^9, 3.994073592032955*^9}, + 3.994075181951705*^9, 3.994075224551179*^9}, + CellLabel-> + "Out[196]=",ExpressionUUID->"0fcac2cc-227f-47b7-8c25-9217ae55eedf"] }, Open ]], Cell[CellGroupData[{ @@ -5202,11 +5578,15 @@ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", - CellLabel->"In[75]:=",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], + CellLabel-> + "In[197]:=",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], -Cell[BoxData["24.98842482695703`"], "Output", - CellChangeTimes->{3.9913204217855225`*^9}, - CellLabel->"Out[75]=",ExpressionUUID->"667394bf-ade3-1944-8cac-a719104b58af"] +Cell[BoxData["37.098105792403054`"], "Output", + CellChangeTimes->{ + 3.9913204217855225`*^9, {3.994073569625689*^9, 3.9940735920422983`*^9}, + 3.9940751819622803`*^9, 3.9940752245635967`*^9}, + CellLabel-> + "Out[197]=",ExpressionUUID->"11bb211a-1c67-48f5-81ef-dd7ced5b9302"] }, Open ]], Cell[CellGroupData[{ @@ -5395,11 +5775,15 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel->"In[76]:=",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], + CellLabel-> + "In[198]:=",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], -Cell[BoxData["0.020440609994923815`"], "Output", - CellChangeTimes->{3.9913204218154297`*^9}, - CellLabel->"Out[76]=",ExpressionUUID->"bdb345c8-7c0c-3e4d-96c3-d5d94768456f"] +Cell[BoxData["0.005554326876619897`"], "Output", + CellChangeTimes->{ + 3.9913204218154297`*^9, {3.994073569635306*^9, 3.9940735920524483`*^9}, + 3.9940751819737473`*^9, 3.994075224576437*^9}, + CellLabel-> + "Out[198]=",ExpressionUUID->"d33d9a25-fd34-4c8a-95bc-605e67bd6e39"] }, Open ]], Cell[CellGroupData[{ @@ -5412,11 +5796,17 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel->"In[77]:=",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], + Background->RGBColor[0.4, 0.6, 1, 0.33], + CellLabel-> + "In[199]:=",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], -Cell[BoxData["6.198662839936796`"], "Output", - CellChangeTimes->{3.991320422776104*^9}, - CellLabel->"Out[77]=",ExpressionUUID->"a136c49d-6dd1-8a4a-9add-7300e6132adb"] +Cell[BoxData["11.891296918274248`"], "Output", + CellChangeTimes->{ + 3.991320422776104*^9, {3.99407357075261*^9, 3.9940735920907784`*^9}, + 3.9940751820134287`*^9, 3.994075224633216*^9}, + Background->RGBColor[0.14, 0.8, 0.14, 0.33], + CellLabel-> + "Out[199]=",ExpressionUUID->"fbc45696-2ee6-4ea2-907a-fbeeb97788ce"] }, Open ]], Cell[CellGroupData[{ @@ -5607,11 +5997,15 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel->"In[78]:=",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], + CellLabel-> + "In[200]:=",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], -Cell[BoxData["0.01158648853220534`"], "Output", - CellChangeTimes->{3.9913204229248886`*^9}, - CellLabel->"Out[78]=",ExpressionUUID->"85a24dde-0aa6-984c-b7a3-ccfa87afb6cd"] +Cell[BoxData["0.025540194965123556`"], "Output", + CellChangeTimes->{ + 3.9913204229248886`*^9, {3.99407357078102*^9, 3.994073592102573*^9}, + 3.9940751820283957`*^9, 3.9940752246455517`*^9}, + CellLabel-> + "Out[200]=",ExpressionUUID->"d7430364-d0a0-462b-9337-8679c65e00f9"] }, Open ]], Cell[CellGroupData[{ @@ -5624,11 +6018,15 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel->"In[79]:=",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], + CellLabel-> + "In[201]:=",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], -Cell[BoxData["8.233206772574567`"], "Output", - CellChangeTimes->{3.9913204230053368`*^9}, - CellLabel->"Out[79]=",ExpressionUUID->"9a87dba6-1411-3f4b-a17f-9d7a664889bd"] +Cell[BoxData["5.545399470130799`"], "Output", + CellChangeTimes->{ + 3.9913204230053368`*^9, {3.994073571798023*^9, 3.994073592142036*^9}, + 3.994075182116054*^9, 3.9940752247024727`*^9}, + CellLabel-> + "Out[201]=",ExpressionUUID->"d0ddf07d-61bc-416d-8ea7-6f9ad44673a1"] }, Open ]], Cell[CellGroupData[{ @@ -5720,11 +6118,15 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel->"In[80]:=",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], + CellLabel-> + "In[202]:=",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], -Cell[BoxData["0.6154782275967796`"], "Output", - CellChangeTimes->{3.9913204230393543`*^9}, - CellLabel->"Out[80]=",ExpressionUUID->"39ebfd06-20a8-e945-ae56-55ff95d26618"] +Cell[BoxData["0.10708479897462729`"], "Output", + CellChangeTimes->{ + 3.9913204230393543`*^9, {3.994073571816867*^9, 3.994073592156478*^9}, + 3.994075182257403*^9, 3.994075224714756*^9}, + CellLabel-> + "Out[202]=",ExpressionUUID->"fb65cba0-d58a-4938-b9c1-d9606ddafbb1"] }, Open ]], Cell[CellGroupData[{ @@ -5813,11 +6215,15 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel->"In[81]:=",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], + CellLabel-> + "In[203]:=",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], -Cell[BoxData["0.3845217724032204`"], "Output", - CellChangeTimes->{3.9913204230728855`*^9}, - CellLabel->"Out[81]=",ExpressionUUID->"6c617ce1-6ebd-9d43-be44-73f7ca23a829"] +Cell[BoxData["0.8929152010253727`"], "Output", + CellChangeTimes->{ + 3.9913204230728855`*^9, {3.994073571827396*^9, 3.994073592166896*^9}, + 3.994075182274292*^9, 3.994075224727522*^9}, + CellLabel-> + "Out[203]=",ExpressionUUID->"957ef34c-e797-48a7-a7c9-80d9833a59e9"] }, Open ]], Cell[CellGroupData[{ @@ -5939,17 +6345,22 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", - CellLabel->"In[82]:=",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], + CellLabel-> + "In[204]:=",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], -Cell[BoxData["0.2366647789511063`"], "Output", - CellChangeTimes->{3.9913204231038837`*^9}, - CellLabel->"Out[82]=",ExpressionUUID->"145fcb0a-d842-9a43-9617-34577d485689"] +Cell[BoxData["0.09561764480319095`"], "Output", + CellChangeTimes->{ + 3.9913204231038837`*^9, {3.99407357183808*^9, 3.994073592178246*^9}, + 3.994075182286728*^9, 3.994075224743524*^9}, + CellLabel-> + "Out[204]=",ExpressionUUID->"08b1b256-2cf1-417f-8b4f-b7280ea4ec91"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", - RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"1cc34a71-05ee-\ -424c-ba53-995669bbcd65"], + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellLabel-> + "In[205]:=",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], Cell[CellGroupData[{ @@ -6010,67 +6421,82 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.991799443370365*^9}, + CellLabel-> + "In[206]:=",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.209187975172153`*^-212\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 206, 9, 31386471951417599936, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{ - 3.991799443370365*^9},ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-\ -3a94fbdbad18"], + 3.9913204231548862`*^9, {3.994073571859603*^9, 3.9940735922015753`*^9}, + 3.994075182310584*^9, 3.994075224758751*^9}, + CellLabel-> + "During evaluation of \ +In[206]:=",ExpressionUUID->"00468604-1b8d-4d45-b381-4ffac8adbce7"], 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, 83, 1, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913204231548862`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0885262600731083`*^-217\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 206, 10, 31386471951417599936, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{ + 3.9913204231548862`*^9, {3.994073571859603*^9, 3.9940735922015753`*^9}, + 3.994075182310584*^9, 3.994075224761992*^9}, CellLabel-> "During evaluation of \ -In[83]:=",ExpressionUUID->"be9831d8-a262-3541-9040-ad5e31b2eb28"], +In[206]:=",ExpressionUUID->"6ee4886b-82ba-4317-96bd-cb63f5c63680"], 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, 83, 2, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913204231788826`*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.799050628997984`*^-223\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 206, 11, 31386471951417599936, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{ + 3.9913204231548862`*^9, {3.994073571859603*^9, 3.9940735922015753`*^9}, + 3.994075182310584*^9, 3.994075224765277*^9}, CellLabel-> "During evaluation of \ -In[83]:=",ExpressionUUID->"31896901-1c82-aa4e-bb9a-c09e2220f684"], - -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, 83, 3, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991320423191887*^9}, - CellLabel-> - "During evaluation of \ -In[83]:=",ExpressionUUID->"aa16e061-5976-9143-8add-7376f3059569"], +In[206]:=",ExpressionUUID->"319b1807-8cb5-4fc1-9985-bc2e0a059e8a"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 83, 4, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991320423200884*^9}, +during this calculation.\"", 2, 206, 12, 31386471951417599936, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{ + 3.9913204231548862`*^9, {3.994073571859603*^9, 3.9940735922015753`*^9}, + 3.994075182310584*^9, 3.994075224768016*^9}, CellLabel-> "During evaluation of \ -In[83]:=",ExpressionUUID->"68730c15-5e57-ca48-8468-735233dec44d"], +In[206]:=",ExpressionUUID->"7e95a6cd-0269-49b0-9a40-d11ed65485ae"], -Cell[BoxData["6.198662839936798`"], "Output", - CellChangeTimes->{3.9913204260017204`*^9}, - CellLabel->"Out[83]=",ExpressionUUID->"9deaa7ff-19fe-b345-ae65-d7f8adce193c"] +Cell[BoxData["11.891296918274236`"], "Output", + CellChangeTimes->{ + 3.9913204260017204`*^9, {3.994073572695344*^9, 3.9940735934204082`*^9}, + 3.994075183493922*^9, 3.99407522654254*^9}, + CellLabel-> + "Out[206]=",ExpressionUUID->"ddc17924-7e0a-4f6c-a3a2-9b2a834fd61d"] }, Open ]], Cell[CellGroupData[{ @@ -6132,67 +6558,77 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9917994459475594`*^9},ExpressionUUID->"0f581ffd-dfa8-e845-a733-\ -ca6cc08b08a0"], + CellChangeTimes->{3.9917994459475594`*^9}, + CellLabel-> + "In[207]:=",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], 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, 84, 5, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913204262354183`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.209187975172153`*^-212\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 207, 13, 31386471951417599936, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913204262354183`*^9, 3.994073593436479*^9, + 3.994075183566085*^9, 3.9940752265735064`*^9}, CellLabel-> "During evaluation of \ -In[84]:=",ExpressionUUID->"365becfb-66c2-b442-8b7b-c6077e53a212"], +In[207]:=",ExpressionUUID->"4c68f761-ea3f-4c87-876c-62086f5bcc44"], 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, 84, 6, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99132042625132*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0885262600731083`*^-217\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 207, 14, 31386471951417599936, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913204262354183`*^9, 3.994073593436479*^9, + 3.994075183566085*^9, 3.994075226576586*^9}, CellLabel-> "During evaluation of \ -In[84]:=",ExpressionUUID->"2b170196-02e0-d544-a5a5-d90722dc10dc"], +In[207]:=",ExpressionUUID->"a89778a4-dcbd-43da-9dd2-fcdc8860506a"], 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, 84, 7, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991320426261322*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.799050628997984`*^-223\\\", \ +RowBox[{\\\"706640776532825937191303\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"60\\\", \\\"\[RightSkeleton]\\\"}], \\\"2006784000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 207, 15, 31386471951417599936, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913204262354183`*^9, 3.994073593436479*^9, + 3.994075183566085*^9, 3.994075226579262*^9}, CellLabel-> "During evaluation of \ -In[84]:=",ExpressionUUID->"02967e8e-3430-cf4f-b706-b82af40300a2"], +In[207]:=",ExpressionUUID->"c60293b6-0417-4ab5-8f7b-df0ce979bf76"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 84, 8, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991320426270418*^9}, +during this calculation.\"", 2, 207, 16, 31386471951417599936, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913204262354183`*^9, 3.994073593436479*^9, + 3.994075183566085*^9, 3.9940752265813837`*^9}, CellLabel-> "During evaluation of \ -In[84]:=",ExpressionUUID->"a8933e75-6bbd-684a-8439-656414d7fe5d"], +In[207]:=",ExpressionUUID->"e9513b1d-a7ee-41e2-a2f2-0646bf0bb0c6"], -Cell[BoxData["8.233206772574558`"], "Output", - CellChangeTimes->{3.991320428882721*^9}, - CellLabel->"Out[84]=",ExpressionUUID->"0790c690-9267-6441-bc9c-d353ab16b428"] +Cell[BoxData["$Aborted"], "Output", + CellChangeTimes->{3.991320428882721*^9, 3.9940735940958548`*^9, + 3.994075184727406*^9, 3.994075226603857*^9}, + CellLabel-> + "Out[207]=",ExpressionUUID->"1a927ee9-82c8-44e4-a73a-d779472d297e"] }, Open ]], Cell[CellGroupData[{ @@ -6248,389 +6684,14 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9917994505623856`*^9},ExpressionUUID->"1834f328-2171-004d-99c2-\ -8b70b5354bda"], + CellChangeTimes->{3.9917994505623856`*^9}, + CellLabel-> + "In[104]:=",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:eJwV1nk0VlsfB3BzGRvMROZSmYdosH8ZMo+lzOlxnmMqRLmKDAm3awi5pVGF -kgyZmpRX6UookiJFxueR4TGekPBuf5x11mftc77nu/Zee68jTwt2onOwsbEN -42v1fuKD+pYnrR+MDHnrTapmKWTEytOjmRYhxNm3XIndm6OfpWT6AnmW6muu -2oF4zyOg8x/q1H7bUY5dFhFTx23ajD41ZVKPsC/US9TGFH5Elh+vXijBftZ6 -4tYf7c9oTcX3Sw+xR7oao05Xd6I3C+4iBdhSQ4ruv0y+o5X9Evx52NYTUYZh -zT+QhPPGiBzsmj8j/BGFfchyzsr9GvaXOPHIx0ED6IZkXWUWNovHdGRWewix -vYo8n4bNkxLiqjPHQGr84Y1J2LIbbjacqB5Gr9UrEmOx7aR/3WOZjKE0l8Wj -IdjkbQUxtbUspGjBG+eLHaNsnxDYPIHeDxwR88LuFG/XOlk4hTQ5WbmW2IRb -gP+llGnUr696wwh78gbbnfKgGXQjvJJPB3utgtr6KW0KiSTXWUlhZxF15utF -fyHnL9abBLHl7rvGaMz9QjlSasTKDIUMdiSyjlfPI+0UrsP92H76P5pHTP6g -9hCnd3ewZyNOcfGpLCE73XHbdOzYav49qmuXkfSJOYto7GwweOjbvIISj/ve -dcEm8htMQwvZwS9KbIAHu7D+Um+cNAfk+6ZKT03jvkyvqIwUDog9m97YhR21 -jap4FMQJVYetU4qws0rlFSe0uYEVxpdjid3VOlaznMsNS5UuKRrYctNP3IRE -eUCa7dCkCHaRrl2m2hwP6C+EbOqZotCbZ2fYj1WvBbEXldwB2FTdpx/DJgKg -F6ki7zdJoY02AusjawRgYDkj2Rhbs90UBA0F4T2dw3kTdsBg1W0tdSGwcdrI -/WGCQiEczZp7BdaDJHztUsUeUiiZSvi1AXaqvCXqxvH8kI28LTobwSgjq+4S -NsdDhrzEiY1wgWM+zgdbTmezU+HoRhD5/kCGHdvNJL38Q68wvFvp+ag7RqEW -n9Aw8SZRmMxV3Rk9QqGe+2nJ3mvFIPCyb5Yp9thoYe4DMzEQs2U58mHznRz4 -tLtWDCb2r2Fd+kkh0/MHdb2rxEH5xNuHOcMUep6nTxXkSIJkxrjFVQaF8oZ+ -h+86KQPr7JcCRfspZOGc1BNWLAPX9uwWed+H898I7y9myIBIV732eWzdvB2i -cq6y4Jr+p22yF88nzauC22gzLO71vFP3g0LTE71/DcfLwY562XP23RQSPm5a -WWGrAK7KS8/YOinEyOPzcwhQgFtncszvd1Do6fdW6fFEBTAj/G1tsT1sPONV -ahWgIL7q1ZUvuN/2cKer2orQJ7xip/IZf3/k/mS0uBIExajwb2uj0EFffjWr -PmUwKRRNaG6iEAp31j68pAym9kYOBPa2hJydhKQKeEXOX1tspBBbro5xtKMK -ZBkElG7FLu5xP1z+SgXCr5h9iWrA+/NQUZzU3S3AXqazQ/A/3M/U9ssITRUW -i37FfHhJIWmFizHJgztgeLrHuLOYQi/+mVVd4FADY8HCtWbYHjOu7aS8GvC/ -C95bVkShW2+UVI291KCQhzab9JBCCr7P2+Y71KDv8pbr6g9wv6IhZbJJHZby -XjK88ygkIy1LyrlqAqdZnr3bNQrtyD8psIi0QWP93r/vn6cQjYin1Oy0IU1p -u+FSPN5fipk93h7acHl0PNQJm/Nu6aP6CG24G0DGLcbh/XFr5GBmmTZ0jbkI -WsTg8y/b+6aqog6Efd222Hgar0eyjboLjy7Euhuwnw6i0J1QJYeqZj2Q4Ow4 -F3WIQq3haOf5fEOQXFeben0TheS9Ptt5HtsLH9vctWK/zyL6yuMSmdMA65Jc -z7dfm0Xio0/XiNOMIVXyvuWU7Sw6qbPne+Y2U7iYxBOfyD6LaON/GoRHzCC6 -Vjp2tHwGFRuHrclpMYfpu0mWu9xmUN5swKuiLEvIyS2omuKaQfP7JN6/ibGG -hKTU7afvTaNuNs6pvqO28Gl3Ce9Ri2kUtCk4PU7RHtbYRZWwT06hEv+G2n8T -HGBCrENROH0KnZmRnNvu7whj1rLnKP0pRFntP/T2iBNY+0+wHemYRIbuGfuG -HA/AvWv1YQtnJlGb5M2ANzoHgZnomx+iMomk7sW/KNjqDO/UZa0YVyfQ095t -NnaCh2C75LCF/xwLybZP+oaPHwKDBGmRQQ8W0vk3oyi39zB4VyzZrqkeRze5 -ZtQz61wgyluQ95nqOHq8T6Mr4ZkrBNaYfmrOHEPZO//Z8KfQDYJ4NqvGc4+h -lm/5iTop7tBoMr/M+/coqrK9oRQS6wFmkb79izyjaOr4AbYgwhNMzEcPafw7 -gqj9qn4sEy84FkiPZ20fQQXjX+fD9I+AV+dNqqX2J3K5k+/jKeANm6OfDiT5 -/EQV5dZHOJO8oX45+NoD7p/IULpt4cKCN5yz6R1srhxGir2+XR/9j0Jh7EvP -b4HDaJA/0P7GwFH4KiSv1aA4jFrT7HzMnWlw9tjtV6JMJsqKyOE/1UqD6Usz -pwKLmOhFzcqCj6UPtKZnr587zUTrPCBJ57kPDGvpnd7tyERyIm9bNr3wgSP9 -WruyHZhIs9lWgqfGB3pf+R2n7JnIaY/7g85XPlCyErGtzA7nbwpvOvvOB9po -LctqNkwk1f1wXUOnDzCGngjuNWciJS/xbI85H7BxZJQ+2stEht6sggRdArTK -d5Pj25no3tXJMDt9Apr0r6cFY4t8mjYSNyBg5umY5PQ2JmKZzbUX7Cbguaan -67wqE583bOzNxgSwZxhE8m5lIqG5Da4bHQlQy+KwNFJiosFUPd6c4wQoDoUv -T21iIse3O9t9gwkYHBCKi8WuYduVo3mCgA+Wh8l12FfDjPRenyTA+NSUi7o0 -E9m5mh8diiTA6LVIT4gkEz1Tcn22/R8CivN9ybViTJRWHeX/9B4BXfuFaHHr -mOi49hXDiAICkK2+jiy2zYMyXoNCAuSvLtGqhZiI7wrjwZNiAg44+PT8EmSi -hFCHkceVBJSXeZiGCjBRlKpSYNVrAmgJV5rO8DJRwJWmY+U9BGRML1S3cTKR -pRBjT2gvAYvBTM9I7K0JbILa/QRku+/zUsJmhOoVlw0RAPG6Z/7iYKKjdjnj -j8YImE9mySqwM5ELd1hQ6W8CCLEAqQvLDGQeJhVSJEaH1tCMlpsLDPQ6J9Eq -U4IOaz5u+myNvad5WilCig6jxdmWv+cZSFO56auJLB0G9NxjXLAlOyJNvinT -IVG3W0YK/yeN7uoW49Ojg8pFf+XyWQa6yHH7pe8BOjjXPz2gN8lAfBoC2bbO -dNgyj3SnJhjovHtEqM5hOvBaJ8YXY0dUOmxZcaPD5mdWQVuwj5LsGZdpdDg4 -nXxSjsVAOo004r8TdHD7WWu8ZYyBOjKU+RXT6SAkNvU9aZiBSpCg33AGHXoM -6zSdsc+Pz74pvkSHA7K9gwrY2pZvog2u0MEi9tfx/zEZKI3NZ9r2Fh3e+kdx -LjEYaH/w7a8RRXRo+2vr7n+GGEhG5m99oxI6LPvsueSJPdsYfInzER2CdFKt -tbDvqiDbtAo6mEP/96+DDLTU3V2b+5wOGm0m5zSwK22kCz400CEzyqBjrJ+B -kn9zcGc10qFA56V2PTatYOSoazMdmu6HsnKw13M9lx5soYPJ72OJB7GPVbtc -XPhChyLBFIPXfQykuO1yuNIQHTZ8+JFX2stAvzvOfvrJoMNVxmbOi9itCXTN -0mE6BDsmvgrCju7THTEcowOtts5LA7sr+5On/Qwd2tsnpap+MFDmmg1mZ9hJ -WKuQfbWth4FeTHe7n+QkIZD3IrMSm9ldGBrETULideviK9h7Kk1v03hJ+Cgs -fNsLm+EdsWi1gYQvOu8UprtxfxuzjWbCJDCMvql3Yu/euVEViZJA9heX12Cn -CxYd0pEkIeJmpnzq6vjzH2XS8iRwbbW6oYFN5hc1iCqS0LbFkZRcfT799I91 -yiRc8xAp4MRmkMKCXKokfPd9n/n1Ox4XNvcb0ySBVfKHKxn7+bJwDEObhCOs -jpQI7KGfvf/26pIwWxKYQmLvqj1T125AQqdg9bQJ9uCxEtmXQILfQZY7F7aQ -S6TeE2MSHl4/d4f6xkCGJhY2ZaYkCHk3ezGx0yT7T+dbkBC9MQaasZ9ylabn -WJGQ5c0k/oc9MBF5/6oN7j/KyV6BbVAv+jnVgQSU7XL7OjatrH80yYmEUxrp -uenYqTdKOc4dxPM1cUY2Ebs/1FIz3IUEmTm/yFBsQS8x8xA3EqbfBXr6r+ZZ -DngGeJBg3iP3xHv1/c1nk728Sehhv/PRYbUPn9VdFxoJtIrATMvVPErsmRNB -QukIs9F4Na9voMWGJKEuRjRyz2pe8yPGfj8S6Lazd/VX+z05uwQBJKzROm+s -tZp/10pk9zHcj+8/1x2r+ani2/WCSJCteTy8ZTU/YnCfRggJbpquE4rYAkSZ -i2ooCUZWRcflsHfaRwcrnsR5c6U+Mqv5u6wTZcJJqFEiPkphpyhL3BSPIGH3 -m4bHEtiP1w9VbDhDgui7bmFx7L7Fskb+KBIyVXOHRVfzmdF93NEkTPRI6K1a -v816fiUGr+eg0YII9v8BEOUgTQ== - "]]}, - Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, - {"WolframDynamicHighlight", <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], - StyleBox[ - DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, - Slot["HighlightElements"], - Slot["LayoutOptions"], - Slot["Meta"], - Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, - Annotation[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]], - Line[CompressedData[" -1:eJwV1nk0VlsfB3BzGRvMROZSmYdosH8ZMo+lzOlxnmMqRLmKDAm3awi5pVGF -kgyZmpRX6UookiJFxueR4TGekPBuf5x11mftc77nu/Zee68jTwt2onOwsbEN -42v1fuKD+pYnrR+MDHnrTapmKWTEytOjmRYhxNm3XIndm6OfpWT6AnmW6muu -2oF4zyOg8x/q1H7bUY5dFhFTx23ajD41ZVKPsC/US9TGFH5Elh+vXijBftZ6 -4tYf7c9oTcX3Sw+xR7oao05Xd6I3C+4iBdhSQ4ruv0y+o5X9Evx52NYTUYZh -zT+QhPPGiBzsmj8j/BGFfchyzsr9GvaXOPHIx0ED6IZkXWUWNovHdGRWewix -vYo8n4bNkxLiqjPHQGr84Y1J2LIbbjacqB5Gr9UrEmOx7aR/3WOZjKE0l8Wj -IdjkbQUxtbUspGjBG+eLHaNsnxDYPIHeDxwR88LuFG/XOlk4hTQ5WbmW2IRb -gP+llGnUr696wwh78gbbnfKgGXQjvJJPB3utgtr6KW0KiSTXWUlhZxF15utF -fyHnL9abBLHl7rvGaMz9QjlSasTKDIUMdiSyjlfPI+0UrsP92H76P5pHTP6g -9hCnd3ewZyNOcfGpLCE73XHbdOzYav49qmuXkfSJOYto7GwweOjbvIISj/ve -dcEm8htMQwvZwS9KbIAHu7D+Um+cNAfk+6ZKT03jvkyvqIwUDog9m97YhR21 -jap4FMQJVYetU4qws0rlFSe0uYEVxpdjid3VOlaznMsNS5UuKRrYctNP3IRE -eUCa7dCkCHaRrl2m2hwP6C+EbOqZotCbZ2fYj1WvBbEXldwB2FTdpx/DJgKg -F6ki7zdJoY02AusjawRgYDkj2Rhbs90UBA0F4T2dw3kTdsBg1W0tdSGwcdrI -/WGCQiEczZp7BdaDJHztUsUeUiiZSvi1AXaqvCXqxvH8kI28LTobwSgjq+4S -NsdDhrzEiY1wgWM+zgdbTmezU+HoRhD5/kCGHdvNJL38Q68wvFvp+ag7RqEW -n9Aw8SZRmMxV3Rk9QqGe+2nJ3mvFIPCyb5Yp9thoYe4DMzEQs2U58mHznRz4 -tLtWDCb2r2Fd+kkh0/MHdb2rxEH5xNuHOcMUep6nTxXkSIJkxrjFVQaF8oZ+ -h+86KQPr7JcCRfspZOGc1BNWLAPX9uwWed+H898I7y9myIBIV732eWzdvB2i -cq6y4Jr+p22yF88nzauC22gzLO71vFP3g0LTE71/DcfLwY562XP23RQSPm5a -WWGrAK7KS8/YOinEyOPzcwhQgFtncszvd1Do6fdW6fFEBTAj/G1tsT1sPONV -ahWgIL7q1ZUvuN/2cKer2orQJ7xip/IZf3/k/mS0uBIExajwb2uj0EFffjWr -PmUwKRRNaG6iEAp31j68pAym9kYOBPa2hJydhKQKeEXOX1tspBBbro5xtKMK -ZBkElG7FLu5xP1z+SgXCr5h9iWrA+/NQUZzU3S3AXqazQ/A/3M/U9ssITRUW -i37FfHhJIWmFizHJgztgeLrHuLOYQi/+mVVd4FADY8HCtWbYHjOu7aS8GvC/ -C95bVkShW2+UVI291KCQhzab9JBCCr7P2+Y71KDv8pbr6g9wv6IhZbJJHZby -XjK88ygkIy1LyrlqAqdZnr3bNQrtyD8psIi0QWP93r/vn6cQjYin1Oy0IU1p -u+FSPN5fipk93h7acHl0PNQJm/Nu6aP6CG24G0DGLcbh/XFr5GBmmTZ0jbkI -WsTg8y/b+6aqog6Efd222Hgar0eyjboLjy7Euhuwnw6i0J1QJYeqZj2Q4Ow4 -F3WIQq3haOf5fEOQXFeben0TheS9Ptt5HtsLH9vctWK/zyL6yuMSmdMA65Jc -z7dfm0Xio0/XiNOMIVXyvuWU7Sw6qbPne+Y2U7iYxBOfyD6LaON/GoRHzCC6 -Vjp2tHwGFRuHrclpMYfpu0mWu9xmUN5swKuiLEvIyS2omuKaQfP7JN6/ibGG -hKTU7afvTaNuNs6pvqO28Gl3Ce9Ri2kUtCk4PU7RHtbYRZWwT06hEv+G2n8T -HGBCrENROH0KnZmRnNvu7whj1rLnKP0pRFntP/T2iBNY+0+wHemYRIbuGfuG -HA/AvWv1YQtnJlGb5M2ANzoHgZnomx+iMomk7sW/KNjqDO/UZa0YVyfQ095t -NnaCh2C75LCF/xwLybZP+oaPHwKDBGmRQQ8W0vk3oyi39zB4VyzZrqkeRze5 -ZtQz61wgyluQ95nqOHq8T6Mr4ZkrBNaYfmrOHEPZO//Z8KfQDYJ4NqvGc4+h -lm/5iTop7tBoMr/M+/coqrK9oRQS6wFmkb79izyjaOr4AbYgwhNMzEcPafw7 -gqj9qn4sEy84FkiPZ20fQQXjX+fD9I+AV+dNqqX2J3K5k+/jKeANm6OfDiT5 -/EQV5dZHOJO8oX45+NoD7p/IULpt4cKCN5yz6R1srhxGir2+XR/9j0Jh7EvP -b4HDaJA/0P7GwFH4KiSv1aA4jFrT7HzMnWlw9tjtV6JMJsqKyOE/1UqD6Usz -pwKLmOhFzcqCj6UPtKZnr587zUTrPCBJ57kPDGvpnd7tyERyIm9bNr3wgSP9 -WruyHZhIs9lWgqfGB3pf+R2n7JnIaY/7g85XPlCyErGtzA7nbwpvOvvOB9po -LctqNkwk1f1wXUOnDzCGngjuNWciJS/xbI85H7BxZJQ+2stEht6sggRdArTK -d5Pj25no3tXJMDt9Apr0r6cFY4t8mjYSNyBg5umY5PQ2JmKZzbUX7Cbguaan -67wqE583bOzNxgSwZxhE8m5lIqG5Da4bHQlQy+KwNFJiosFUPd6c4wQoDoUv -T21iIse3O9t9gwkYHBCKi8WuYduVo3mCgA+Wh8l12FfDjPRenyTA+NSUi7o0 -E9m5mh8diiTA6LVIT4gkEz1Tcn22/R8CivN9ybViTJRWHeX/9B4BXfuFaHHr -mOi49hXDiAICkK2+jiy2zYMyXoNCAuSvLtGqhZiI7wrjwZNiAg44+PT8EmSi -hFCHkceVBJSXeZiGCjBRlKpSYNVrAmgJV5rO8DJRwJWmY+U9BGRML1S3cTKR -pRBjT2gvAYvBTM9I7K0JbILa/QRku+/zUsJmhOoVlw0RAPG6Z/7iYKKjdjnj -j8YImE9mySqwM5ELd1hQ6W8CCLEAqQvLDGQeJhVSJEaH1tCMlpsLDPQ6J9Eq -U4IOaz5u+myNvad5WilCig6jxdmWv+cZSFO56auJLB0G9NxjXLAlOyJNvinT -IVG3W0YK/yeN7uoW49Ojg8pFf+XyWQa6yHH7pe8BOjjXPz2gN8lAfBoC2bbO -dNgyj3SnJhjovHtEqM5hOvBaJ8YXY0dUOmxZcaPD5mdWQVuwj5LsGZdpdDg4 -nXxSjsVAOo004r8TdHD7WWu8ZYyBOjKU+RXT6SAkNvU9aZiBSpCg33AGHXoM -6zSdsc+Pz74pvkSHA7K9gwrY2pZvog2u0MEi9tfx/zEZKI3NZ9r2Fh3e+kdx -LjEYaH/w7a8RRXRo+2vr7n+GGEhG5m99oxI6LPvsueSJPdsYfInzER2CdFKt -tbDvqiDbtAo6mEP/96+DDLTU3V2b+5wOGm0m5zSwK22kCz400CEzyqBjrJ+B -kn9zcGc10qFA56V2PTatYOSoazMdmu6HsnKw13M9lx5soYPJ72OJB7GPVbtc -XPhChyLBFIPXfQykuO1yuNIQHTZ8+JFX2stAvzvOfvrJoMNVxmbOi9itCXTN -0mE6BDsmvgrCju7THTEcowOtts5LA7sr+5On/Qwd2tsnpap+MFDmmg1mZ9hJ -WKuQfbWth4FeTHe7n+QkIZD3IrMSm9ldGBrETULideviK9h7Kk1v03hJ+Cgs -fNsLm+EdsWi1gYQvOu8UprtxfxuzjWbCJDCMvql3Yu/euVEViZJA9heX12Cn -CxYd0pEkIeJmpnzq6vjzH2XS8iRwbbW6oYFN5hc1iCqS0LbFkZRcfT799I91 -yiRc8xAp4MRmkMKCXKokfPd9n/n1Ox4XNvcb0ySBVfKHKxn7+bJwDEObhCOs -jpQI7KGfvf/26pIwWxKYQmLvqj1T125AQqdg9bQJ9uCxEtmXQILfQZY7F7aQ -S6TeE2MSHl4/d4f6xkCGJhY2ZaYkCHk3ezGx0yT7T+dbkBC9MQaasZ9ylabn -WJGQ5c0k/oc9MBF5/6oN7j/KyV6BbVAv+jnVgQSU7XL7OjatrH80yYmEUxrp -uenYqTdKOc4dxPM1cUY2Ebs/1FIz3IUEmTm/yFBsQS8x8xA3EqbfBXr6r+ZZ -DngGeJBg3iP3xHv1/c1nk728Sehhv/PRYbUPn9VdFxoJtIrATMvVPErsmRNB -QukIs9F4Na9voMWGJKEuRjRyz2pe8yPGfj8S6Lazd/VX+z05uwQBJKzROm+s -tZp/10pk9zHcj+8/1x2r+ani2/WCSJCteTy8ZTU/YnCfRggJbpquE4rYAkSZ -i2ooCUZWRcflsHfaRwcrnsR5c6U+Mqv5u6wTZcJJqFEiPkphpyhL3BSPIGH3 -m4bHEtiP1w9VbDhDgui7bmFx7L7Fskb+KBIyVXOHRVfzmdF93NEkTPRI6K1a -v816fiUGr+eg0YII9v8BEOUgTQ== - "]]}, "Charting`Private`Tag#1"]}}, {}}, <| - "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, - "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.7142433994369197, 1.372243180027523}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.7142433994369213}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, - "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), - "DefaultStyle" -> { - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]]}, - "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ - Part[#, 1]], - Identity[ - Part[#, 2]]}& ), - "ScalingFunctions" -> {{Identity, Identity}, { - Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> - False|>, - "Meta" -> <| - "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> - Plot, "GroupHighlight" -> False|>|>]]& )[<| - "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, - "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.7142433994369197, 1.372243180027523}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.7142433994369213}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, - "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), - "DefaultStyle" -> { - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]]}, - "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ - Part[#, 1]], - Identity[ - Part[#, 2]]}& ), - "ScalingFunctions" -> {{Identity, Identity}, { - Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, - "Meta" -> <| - "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> - Plot, "GroupHighlight" -> False|>|>], - ImageSizeCache->{{91.80048673422974, - 202.74756866009872`}, {-11.626778089982832`, 5.710721910017167}}], - Selectable->False]}, - Annotation[{{{{}, {}, - Annotation[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]], - Line[CompressedData[" -1:eJwV1nk0VlsfB3BzGRvMROZSmYdosH8ZMo+lzOlxnmMqRLmKDAm3awi5pVGF -kgyZmpRX6UookiJFxueR4TGekPBuf5x11mftc77nu/Zee68jTwt2onOwsbEN -42v1fuKD+pYnrR+MDHnrTapmKWTEytOjmRYhxNm3XIndm6OfpWT6AnmW6muu -2oF4zyOg8x/q1H7bUY5dFhFTx23ajD41ZVKPsC/US9TGFH5Elh+vXijBftZ6 -4tYf7c9oTcX3Sw+xR7oao05Xd6I3C+4iBdhSQ4ruv0y+o5X9Evx52NYTUYZh -zT+QhPPGiBzsmj8j/BGFfchyzsr9GvaXOPHIx0ED6IZkXWUWNovHdGRWewix -vYo8n4bNkxLiqjPHQGr84Y1J2LIbbjacqB5Gr9UrEmOx7aR/3WOZjKE0l8Wj -IdjkbQUxtbUspGjBG+eLHaNsnxDYPIHeDxwR88LuFG/XOlk4hTQ5WbmW2IRb -gP+llGnUr696wwh78gbbnfKgGXQjvJJPB3utgtr6KW0KiSTXWUlhZxF15utF -fyHnL9abBLHl7rvGaMz9QjlSasTKDIUMdiSyjlfPI+0UrsP92H76P5pHTP6g -9hCnd3ewZyNOcfGpLCE73XHbdOzYav49qmuXkfSJOYto7GwweOjbvIISj/ve -dcEm8htMQwvZwS9KbIAHu7D+Um+cNAfk+6ZKT03jvkyvqIwUDog9m97YhR21 -jap4FMQJVYetU4qws0rlFSe0uYEVxpdjid3VOlaznMsNS5UuKRrYctNP3IRE -eUCa7dCkCHaRrl2m2hwP6C+EbOqZotCbZ2fYj1WvBbEXldwB2FTdpx/DJgKg -F6ki7zdJoY02AusjawRgYDkj2Rhbs90UBA0F4T2dw3kTdsBg1W0tdSGwcdrI -/WGCQiEczZp7BdaDJHztUsUeUiiZSvi1AXaqvCXqxvH8kI28LTobwSgjq+4S -NsdDhrzEiY1wgWM+zgdbTmezU+HoRhD5/kCGHdvNJL38Q68wvFvp+ag7RqEW -n9Aw8SZRmMxV3Rk9QqGe+2nJ3mvFIPCyb5Yp9thoYe4DMzEQs2U58mHznRz4 -tLtWDCb2r2Fd+kkh0/MHdb2rxEH5xNuHOcMUep6nTxXkSIJkxrjFVQaF8oZ+ -h+86KQPr7JcCRfspZOGc1BNWLAPX9uwWed+H898I7y9myIBIV732eWzdvB2i -cq6y4Jr+p22yF88nzauC22gzLO71vFP3g0LTE71/DcfLwY562XP23RQSPm5a -WWGrAK7KS8/YOinEyOPzcwhQgFtncszvd1Do6fdW6fFEBTAj/G1tsT1sPONV -ahWgIL7q1ZUvuN/2cKer2orQJ7xip/IZf3/k/mS0uBIExajwb2uj0EFffjWr -PmUwKRRNaG6iEAp31j68pAym9kYOBPa2hJydhKQKeEXOX1tspBBbro5xtKMK -ZBkElG7FLu5xP1z+SgXCr5h9iWrA+/NQUZzU3S3AXqazQ/A/3M/U9ssITRUW -i37FfHhJIWmFizHJgztgeLrHuLOYQi/+mVVd4FADY8HCtWbYHjOu7aS8GvC/ -C95bVkShW2+UVI291KCQhzab9JBCCr7P2+Y71KDv8pbr6g9wv6IhZbJJHZby -XjK88ygkIy1LyrlqAqdZnr3bNQrtyD8psIi0QWP93r/vn6cQjYin1Oy0IU1p -u+FSPN5fipk93h7acHl0PNQJm/Nu6aP6CG24G0DGLcbh/XFr5GBmmTZ0jbkI -WsTg8y/b+6aqog6Efd222Hgar0eyjboLjy7Euhuwnw6i0J1QJYeqZj2Q4Ow4 -F3WIQq3haOf5fEOQXFeben0TheS9Ptt5HtsLH9vctWK/zyL6yuMSmdMA65Jc -z7dfm0Xio0/XiNOMIVXyvuWU7Sw6qbPne+Y2U7iYxBOfyD6LaON/GoRHzCC6 -Vjp2tHwGFRuHrclpMYfpu0mWu9xmUN5swKuiLEvIyS2omuKaQfP7JN6/ibGG -hKTU7afvTaNuNs6pvqO28Gl3Ce9Ri2kUtCk4PU7RHtbYRZWwT06hEv+G2n8T -HGBCrENROH0KnZmRnNvu7whj1rLnKP0pRFntP/T2iBNY+0+wHemYRIbuGfuG -HA/AvWv1YQtnJlGb5M2ANzoHgZnomx+iMomk7sW/KNjqDO/UZa0YVyfQ095t -NnaCh2C75LCF/xwLybZP+oaPHwKDBGmRQQ8W0vk3oyi39zB4VyzZrqkeRze5 -ZtQz61wgyluQ95nqOHq8T6Mr4ZkrBNaYfmrOHEPZO//Z8KfQDYJ4NqvGc4+h -lm/5iTop7tBoMr/M+/coqrK9oRQS6wFmkb79izyjaOr4AbYgwhNMzEcPafw7 -gqj9qn4sEy84FkiPZ20fQQXjX+fD9I+AV+dNqqX2J3K5k+/jKeANm6OfDiT5 -/EQV5dZHOJO8oX45+NoD7p/IULpt4cKCN5yz6R1srhxGir2+XR/9j0Jh7EvP -b4HDaJA/0P7GwFH4KiSv1aA4jFrT7HzMnWlw9tjtV6JMJsqKyOE/1UqD6Usz -pwKLmOhFzcqCj6UPtKZnr587zUTrPCBJ57kPDGvpnd7tyERyIm9bNr3wgSP9 -WruyHZhIs9lWgqfGB3pf+R2n7JnIaY/7g85XPlCyErGtzA7nbwpvOvvOB9po -LctqNkwk1f1wXUOnDzCGngjuNWciJS/xbI85H7BxZJQ+2stEht6sggRdArTK -d5Pj25no3tXJMDt9Apr0r6cFY4t8mjYSNyBg5umY5PQ2JmKZzbUX7Cbguaan -67wqE583bOzNxgSwZxhE8m5lIqG5Da4bHQlQy+KwNFJiosFUPd6c4wQoDoUv -T21iIse3O9t9gwkYHBCKi8WuYduVo3mCgA+Wh8l12FfDjPRenyTA+NSUi7o0 -E9m5mh8diiTA6LVIT4gkEz1Tcn22/R8CivN9ybViTJRWHeX/9B4BXfuFaHHr -mOi49hXDiAICkK2+jiy2zYMyXoNCAuSvLtGqhZiI7wrjwZNiAg44+PT8EmSi -hFCHkceVBJSXeZiGCjBRlKpSYNVrAmgJV5rO8DJRwJWmY+U9BGRML1S3cTKR -pRBjT2gvAYvBTM9I7K0JbILa/QRku+/zUsJmhOoVlw0RAPG6Z/7iYKKjdjnj -j8YImE9mySqwM5ELd1hQ6W8CCLEAqQvLDGQeJhVSJEaH1tCMlpsLDPQ6J9Eq -U4IOaz5u+myNvad5WilCig6jxdmWv+cZSFO56auJLB0G9NxjXLAlOyJNvinT -IVG3W0YK/yeN7uoW49Ojg8pFf+XyWQa6yHH7pe8BOjjXPz2gN8lAfBoC2bbO -dNgyj3SnJhjovHtEqM5hOvBaJ8YXY0dUOmxZcaPD5mdWQVuwj5LsGZdpdDg4 -nXxSjsVAOo004r8TdHD7WWu8ZYyBOjKU+RXT6SAkNvU9aZiBSpCg33AGHXoM -6zSdsc+Pz74pvkSHA7K9gwrY2pZvog2u0MEi9tfx/zEZKI3NZ9r2Fh3e+kdx -LjEYaH/w7a8RRXRo+2vr7n+GGEhG5m99oxI6LPvsueSJPdsYfInzER2CdFKt -tbDvqiDbtAo6mEP/96+DDLTU3V2b+5wOGm0m5zSwK22kCz400CEzyqBjrJ+B -kn9zcGc10qFA56V2PTatYOSoazMdmu6HsnKw13M9lx5soYPJ72OJB7GPVbtc -XPhChyLBFIPXfQykuO1yuNIQHTZ8+JFX2stAvzvOfvrJoMNVxmbOi9itCXTN -0mE6BDsmvgrCju7THTEcowOtts5LA7sr+5On/Qwd2tsnpap+MFDmmg1mZ9hJ -WKuQfbWth4FeTHe7n+QkIZD3IrMSm9ldGBrETULideviK9h7Kk1v03hJ+Cgs -fNsLm+EdsWi1gYQvOu8UprtxfxuzjWbCJDCMvql3Yu/euVEViZJA9heX12Cn -CxYd0pEkIeJmpnzq6vjzH2XS8iRwbbW6oYFN5hc1iCqS0LbFkZRcfT799I91 -yiRc8xAp4MRmkMKCXKokfPd9n/n1Ox4XNvcb0ySBVfKHKxn7+bJwDEObhCOs -jpQI7KGfvf/26pIwWxKYQmLvqj1T125AQqdg9bQJ9uCxEtmXQILfQZY7F7aQ -S6TeE2MSHl4/d4f6xkCGJhY2ZaYkCHk3ezGx0yT7T+dbkBC9MQaasZ9ylabn -WJGQ5c0k/oc9MBF5/6oN7j/KyV6BbVAv+jnVgQSU7XL7OjatrH80yYmEUxrp -uenYqTdKOc4dxPM1cUY2Ebs/1FIz3IUEmTm/yFBsQS8x8xA3EqbfBXr6r+ZZ -DngGeJBg3iP3xHv1/c1nk728Sehhv/PRYbUPn9VdFxoJtIrATMvVPErsmRNB -QukIs9F4Na9voMWGJKEuRjRyz2pe8yPGfj8S6Lazd/VX+z05uwQBJKzROm+s -tZp/10pk9zHcj+8/1x2r+ani2/WCSJCteTy8ZTU/YnCfRggJbpquE4rYAkSZ -i2ooCUZWRcflsHfaRwcrnsR5c6U+Mqv5u6wTZcJJqFEiPkphpyhL3BSPIGH3 -m4bHEtiP1w9VbDhDgui7bmFx7L7Fskb+KBIyVXOHRVfzmdF93NEkTPRI6K1a -v816fiUGr+eg0YII9v8BEOUgTQ== - "]]}, "Charting`Private`Tag#1"]}}, {}}, <| - "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, - "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.7142433994369197, 1.372243180027523}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.7142433994369213}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, - "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]]}, - "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ - Part[#, 1]], - Identity[ - Part[#, 2]]}& ), - "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, - "Primitives" -> {}, "GCFlag" -> False|>, - "Meta" -> <| - "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> - Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], - AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes->{True, True}, - AxesLabel->{None, None}, - AxesOrigin->{0, 0.7142433994369213}, - DisplayFunction->Identity, - Frame->{{False, False}, {False, False}}, - FrameLabel->{{None, None}, {None, None}}, - FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, - GridLines->{None, None}, - GridLinesStyle->Directive[ - GrayLevel[0.5, 0.4]], - ImagePadding->All, - Method->{ - "DefaultBoundaryStyle" -> Automatic, - "DefaultGraphicsInteraction" -> { - "Version" -> 1.2, "TrackMousePosition" -> {True, False}, - "Effects" -> { - "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, - "Droplines" -> { - "freeformCursorMode" -> True, - "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> - AbsolutePointSize[6], "ScalingFunctions" -> None, - "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Identity[#]& )[ - Part[#, 1]], - (Identity[#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - (Identity[#]& )[ - Part[#, 1]], - (Identity[#]& )[ - Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.7142433994369197, 1.372243180027523}}, - PlotRangeClipping->True, - PlotRangePadding->{{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.05]}}, - Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913206956809444`*^9}, - CellLabel->"Out[85]=",ExpressionUUID->"5d2ddb35-b7b8-514c-917f-fcc77dc8600c"] +Cell[BoxData["$Aborted"], "Output", + CellChangeTimes->{3.9913206956809444`*^9, 3.9940751880749063`*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"8cb384bc-2548-4cf8-9143-ddaa04a8d819"] }, Open ]], Cell[CellGroupData[{ @@ -7516,9 +7577,72 @@ HbLGog== Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", - RowBox[{"{", "}"}], "]"}]}]], "Input", - CellChangeTimes->{{3.991799458254999*^9, - 3.9917994623413925`*^9}},ExpressionUUID->"d9d63445-4981-8f49-b88b-\ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.005365"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.015909"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.025915"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.035051"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.043054"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.049704"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.05488"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.058507"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.060618"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.061275"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.060632"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.058842"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.056126"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.052675"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.048717"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.044429"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.040006"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.03558"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.031291"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.027216"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.023437"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.019982"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.016885"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.014139"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.011745"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.009675"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.007913"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.006421"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.005177"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.004144"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.003297"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.994084961380664*^9},ExpressionUUID->"d9d63445-4981-8f49-b88b-\ 9e93d345c648"], Cell[BoxData[ @@ -13679,13 +13803,16 @@ Cell[BoxData["0.08333108480569339`"], "Output", CellChangeTimes->{3.9913279320452003`*^9}, CellLabel-> "Out[146]=",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"] -}, Open ]] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input",ExpressionUUID->"527555fe-54f3-44c3-a217-b0e3a0006c5f"] }, -WindowSize->{718.5, 729.75}, -WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +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)", +Magnification:>1.8 Inherited, +FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", StyleDefinitions->"Default.nb", ExpressionUUID->"8af74bcb-cc50-f64a-8d83-c4bf7188d038" ] @@ -13701,625 +13828,662 @@ CellTagsIndex->{} (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ -Cell[576, 22, 229, 5, 22, "Input",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], -Cell[808, 29, 149, 2, 25, "Output",ExpressionUUID->"2e7f3b17-b448-644d-bafd-ec5aa11fe78b"] +Cell[576, 22, 357, 7, 66, "Input",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], +Cell[936, 31, 309, 6, 75, "Output",ExpressionUUID->"3fc602ac-3528-4c94-84c5-2cbef5e80e13"] }, Open ]], Cell[CellGroupData[{ -Cell[994, 36, 179, 4, 22, "Input",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], -Cell[1176, 42, 152, 2, 25, "Output",ExpressionUUID->"d21d7bec-caad-aa4f-9200-81feafc4acec"] +Cell[1282, 42, 253, 5, 66, "Input",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], +Cell[1538, 49, 256, 5, 75, "Output",ExpressionUUID->"4f849138-67dc-4f8f-a590-302d10dd42f8"] }, Open ]], Cell[CellGroupData[{ -Cell[1365, 49, 147, 4, 22, "Input",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], -Cell[1515, 55, 152, 2, 25, "Output",ExpressionUUID->"a2a1281d-2cdd-5d4c-b7c6-d26236e66b80"] +Cell[1831, 59, 226, 5, 66, "Input",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], +Cell[2060, 66, 256, 5, 75, "Output",ExpressionUUID->"3cd98634-bc13-4797-bd1e-44036ef78eae"] }, Open ]], Cell[CellGroupData[{ -Cell[1704, 62, 175, 3, 22, "Input",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], -Cell[1882, 67, 152, 2, 25, "Output",ExpressionUUID->"4fa6d65b-1d5c-4f45-949a-d7045f28de30"] +Cell[2353, 76, 180, 4, 66, "Input",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], +Cell[2536, 82, 254, 5, 75, "Output",ExpressionUUID->"2ed4a14c-942a-49b9-97cf-650a63a78bd7"] }, Open ]], Cell[CellGroupData[{ -Cell[2071, 74, 257, 7, 35, "Input",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], -Cell[2331, 83, 168, 2, 25, "Output",ExpressionUUID->"24d0db1b-9e75-3c46-9c8c-13704f881794"] +Cell[2827, 92, 262, 8, 96, "Input",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], +Cell[3092, 102, 257, 5, 75, "Output",ExpressionUUID->"7339c118-72c2-44a2-9f22-c2b2b05f227c"] }, Open ]], Cell[CellGroupData[{ -Cell[2536, 90, 131, 2, 22, "Input",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], -Cell[2670, 94, 154, 2, 25, "Output",ExpressionUUID->"d898610f-2407-1a40-9f24-5be2dcfa557e"] +Cell[3386, 112, 136, 3, 66, "Input",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], +Cell[3525, 117, 260, 5, 75, "Output",ExpressionUUID->"28f1d5a1-0e10-4e5e-b143-6cff63710154"] }, Open ]], Cell[CellGroupData[{ -Cell[2861, 101, 276, 6, 22, "Input",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], -Cell[3140, 109, 167, 2, 25, "Output",ExpressionUUID->"27ff60eb-7aa7-9949-984d-d71d79c10129"] +Cell[3822, 127, 281, 7, 66, "Input",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], +Cell[4106, 136, 274, 5, 75, "Output",ExpressionUUID->"5761785b-e83b-4033-87d8-d639fb22d04e"] }, Open ]], Cell[CellGroupData[{ -Cell[3344, 116, 257, 7, 22, "Input",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], -Cell[3604, 125, 167, 2, 25, "Output",ExpressionUUID->"2b4ba32a-ab7d-7140-a043-bb4487278822"] +Cell[4417, 146, 262, 8, 66, "Input",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], +Cell[4682, 156, 273, 5, 75, "Output",ExpressionUUID->"d081c0b4-e157-44f9-995c-e4b29a26d538"] }, Open ]], -Cell[3786, 130, 147, 4, 22, "Input",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], -Cell[3936, 136, 147, 4, 22, "Input",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], Cell[CellGroupData[{ -Cell[4108, 144, 129, 2, 22, "Input",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], -Cell[4240, 148, 151, 2, 25, "Output",ExpressionUUID->"3d15ce67-15c8-f549-9c13-b8dddf0b6641"] +Cell[4992, 166, 208, 4, 66, "Input",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], +Cell[5203, 172, 236, 4, 75, "Output",ExpressionUUID->"9a9d3de4-8d49-4ce6-b09a-f943956af81a"] }, Open ]], Cell[CellGroupData[{ -Cell[4428, 155, 129, 2, 22, "Input",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], -Cell[4560, 159, 151, 2, 25, "Output",ExpressionUUID->"8f7b3ab0-4d46-6e46-be1a-60df9a3dcebd"] +Cell[5476, 181, 208, 4, 66, "Input",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], +Cell[5687, 187, 239, 4, 75, "Output",ExpressionUUID->"4298dfcb-9ee1-4f34-b816-bac4ec6dc561"] }, Open ]], Cell[CellGroupData[{ -Cell[4748, 166, 557, 19, 65, "Input",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], -Cell[5308, 187, 169, 2, 25, "Output",ExpressionUUID->"d0cab83a-649b-b14c-b85b-84835124aa09"] +Cell[5963, 196, 133, 3, 66, "Input",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], +Cell[6099, 201, 253, 5, 75, "Output",ExpressionUUID->"d9184f92-9bb2-4c4b-9db1-4e3bb144d8f8"] }, Open ]], Cell[CellGroupData[{ -Cell[5514, 194, 557, 19, 65, "Input",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], -Cell[6074, 215, 168, 2, 25, "Output",ExpressionUUID->"81304ae5-6353-154d-8b14-59a2dc55038b"] +Cell[6389, 211, 133, 3, 66, "Input",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], +Cell[6525, 216, 252, 5, 75, "Output",ExpressionUUID->"5ac4bc3d-c931-4057-ac88-d6789946171a"] }, Open ]], Cell[CellGroupData[{ -Cell[6279, 222, 1492, 48, 65, "Input",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], -Cell[7774, 272, 167, 2, 25, "Output",ExpressionUUID->"bdbb5f17-757a-b84a-b3ac-6309844818bf"] +Cell[6814, 226, 561, 20, 175, "Input",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], +Cell[7378, 248, 273, 5, 75, "Output",ExpressionUUID->"9b91c36a-db9d-42da-b92b-c7b40571889f"] }, Open ]], Cell[CellGroupData[{ -Cell[7978, 279, 1331, 44, 65, "Input",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], -Cell[9312, 325, 185, 3, 25, "Output",ExpressionUUID->"1dd72b7b-aeff-8747-91d0-6842e926f3b2"] +Cell[7688, 258, 561, 20, 175, "Input",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], +Cell[8252, 280, 271, 5, 75, "Output",ExpressionUUID->"507e61f7-abca-4b67-8dc5-3d5ec9783365"] }, Open ]], Cell[CellGroupData[{ -Cell[9534, 333, 1331, 44, 65, "Input",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], -Cell[10868, 379, 187, 3, 25, "Output",ExpressionUUID->"d5bf6730-c400-e84f-827b-d40e35c83dad"] +Cell[8560, 290, 1592, 51, 362, "Input",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], +Cell[10155, 343, 267, 5, 75, "Output",ExpressionUUID->"291a5445-9c07-4345-8353-f120ed249482"] }, Open ]], Cell[CellGroupData[{ -Cell[11092, 387, 1492, 48, 65, "Input",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], -Cell[12587, 437, 166, 2, 25, "Output",ExpressionUUID->"006d42df-1417-1c4e-b4d9-45c05dee6889"] +Cell[10459, 353, 1426, 47, 362, "Input",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], +Cell[11888, 402, 286, 6, 75, "Output",ExpressionUUID->"5b05c19a-5a42-434f-b92a-b1f47e2f4e8f"] }, Open ]], Cell[CellGroupData[{ -Cell[12790, 444, 131, 2, 22, "Input",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], -Cell[12924, 448, 151, 2, 25, "Output",ExpressionUUID->"64d193ee-3f72-404e-9ca7-d3c855ce1a3f"] +Cell[12211, 413, 1426, 47, 362, "Input",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], +Cell[13640, 462, 289, 6, 75, "Output",ExpressionUUID->"60602193-828e-4b81-87ed-b00b2b05b82f"] }, Open ]], Cell[CellGroupData[{ -Cell[13112, 455, 133, 2, 22, "Input",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], -Cell[13248, 459, 153, 2, 25, "Output",ExpressionUUID->"8d37ba34-6f64-7d40-86af-bfe10ed7ecf9"] +Cell[13966, 473, 1592, 51, 362, "Input",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], +Cell[15561, 526, 268, 5, 75, "Output",ExpressionUUID->"e6bca617-3902-4eca-8236-6d0027a75f4e"] }, Open ]], Cell[CellGroupData[{ -Cell[13438, 466, 134, 2, 22, "Input",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], -Cell[13575, 470, 155, 2, 25, "Output",ExpressionUUID->"cf6fd933-5c85-3c47-a2fa-a53bc24bd1de"] +Cell[15866, 536, 135, 3, 66, "Input",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], +Cell[16004, 541, 256, 5, 75, "Output",ExpressionUUID->"3e8c5d25-0de1-4e74-b9dd-68362990eebb"] }, Open ]], Cell[CellGroupData[{ -Cell[13767, 477, 219, 4, 22, "Input",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], -Cell[13989, 483, 168, 3, 25, "Output",ExpressionUUID->"68c660da-f0f0-ad47-93fc-5a731457088a"] +Cell[16297, 551, 137, 3, 66, "Input",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], +Cell[16437, 556, 258, 5, 75, "Output",ExpressionUUID->"cd3a6b77-4e62-43ff-b252-05f31a46f5cb"] }, Open ]], Cell[CellGroupData[{ -Cell[14194, 491, 134, 2, 22, "Input",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], -Cell[14331, 495, 155, 2, 25, "Output",ExpressionUUID->"8f2a2cb7-00c0-6642-b771-a61c78864261"] +Cell[16732, 566, 138, 3, 66, "Input",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], +Cell[16873, 571, 260, 5, 75, "Output",ExpressionUUID->"dcaf9709-20b7-4905-9536-0b209c2add16"] }, Open ]], Cell[CellGroupData[{ -Cell[14523, 502, 248, 5, 22, "Input",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], -Cell[14774, 509, 152, 2, 25, "Output",ExpressionUUID->"55d6fafd-5f57-cf44-945d-c5c7fb1b087a"] +Cell[17170, 581, 223, 5, 66, "Input",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], +Cell[17396, 588, 269, 6, 75, "Output",ExpressionUUID->"a2f17eea-ff78-41e5-a0f8-94c185156e70"] }, Open ]], Cell[CellGroupData[{ -Cell[14963, 516, 228, 5, 22, "Input",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], -Cell[15194, 523, 152, 2, 25, "Output",ExpressionUUID->"e4541cb8-be74-4140-af0a-812e02085534"] +Cell[17702, 599, 138, 3, 66, "Input",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], +Cell[17843, 604, 260, 5, 75, "Output",ExpressionUUID->"20afb8c7-cabc-4a1d-bac4-8a4c5fc59dc3"] }, Open ]], Cell[CellGroupData[{ -Cell[15383, 530, 219, 4, 22, "Input",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], -Cell[15605, 536, 151, 2, 25, "Output",ExpressionUUID->"41e65355-0d62-5849-876b-33938574e65a"] +Cell[18140, 614, 326, 6, 66, "Input",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], +Cell[18469, 622, 253, 5, 75, "Output",ExpressionUUID->"124c5170-d79c-46db-8f5c-077b8f0967e5"] }, Open ]], Cell[CellGroupData[{ -Cell[15793, 543, 350, 10, 35, "Input",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], -Cell[16146, 555, 170, 2, 25, "Output",ExpressionUUID->"b6d3bf5f-35d3-5240-acc0-10ada08af661"] +Cell[18759, 632, 302, 6, 66, "Input",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], +Cell[19064, 640, 259, 5, 75, "Output",ExpressionUUID->"fca7c3f2-dd09-401a-af5a-7f0e5b5e9132"] }, Open ]], Cell[CellGroupData[{ -Cell[16353, 562, 350, 10, 35, "Input",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], -Cell[16706, 574, 186, 3, 25, "Output",ExpressionUUID->"5d506fa3-f740-ff4f-9786-10c7e1e82f78"] +Cell[19360, 650, 223, 5, 66, "Input",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], +Cell[19586, 657, 250, 5, 75, "Output",ExpressionUUID->"d9b69473-2971-460e-a714-eae49ac84666"] }, Open ]], Cell[CellGroupData[{ -Cell[16929, 582, 975, 27, 92, "Input",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], -Cell[17907, 611, 169, 2, 25, "Output",ExpressionUUID->"02f8af82-a9df-4342-9d73-750f12d42e7b"] +Cell[19873, 667, 354, 11, 96, "Input",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], +Cell[20230, 680, 273, 5, 75, "Output",ExpressionUUID->"00c63b3f-dab3-49c9-922a-1e7d3688cfb1"] }, Open ]], Cell[CellGroupData[{ -Cell[18113, 618, 199, 3, 22, "Input",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], -Cell[18315, 623, 151, 2, 25, "Output",ExpressionUUID->"1ee0020e-da30-7b46-8f5c-7602d78cb1cb"] +Cell[20540, 690, 354, 11, 96, "Input",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], +Cell[20897, 703, 290, 6, 75, "Output",ExpressionUUID->"f2128c71-5723-4e55-89de-f77cd15b4fe5"] }, Open ]], -Cell[18481, 628, 250, 5, 22, "Input",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], -Cell[18734, 635, 154, 3, 22, "Input",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], -Cell[18891, 640, 250, 5, 22, "Input",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], -Cell[19144, 647, 154, 3, 22, "Input",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], -Cell[19301, 652, 251, 5, 22, "Input",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], -Cell[19555, 659, 154, 3, 22, "Input",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], -Cell[19712, 664, 275, 5, 22, "Input",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], -Cell[19990, 671, 152, 3, 22, "Input",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], -Cell[20145, 676, 222, 5, 22, "Input",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], -Cell[20370, 683, 152, 3, 22, "Input",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], -Cell[20525, 688, 226, 5, 22, "Input",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], -Cell[20754, 695, 154, 3, 22, "Input",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], -Cell[20911, 700, 229, 5, 22, "Input",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], -Cell[21143, 707, 153, 3, 22, "Input",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], -Cell[21299, 712, 198, 4, 22, "Input",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], -Cell[21500, 718, 156, 3, 22, "Input",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], Cell[CellGroupData[{ -Cell[21681, 725, 19809, 485, 1553, "Input",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], -Cell[41493, 1212, 167, 2, 25, "Output",ExpressionUUID->"6e3e2b1b-3430-b546-9dfc-ccd29250c9d7"] +Cell[21224, 714, 998, 27, 184, "Input",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], +Cell[22225, 743, 274, 5, 75, "Output",ExpressionUUID->"f4e19122-13ac-414b-a7a7-f55a8e585c1c"] }, Open ]], Cell[CellGroupData[{ -Cell[41697, 1219, 19748, 489, 1579, "Input",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], -Cell[61448, 1710, 168, 2, 25, "Output",ExpressionUUID->"ca8af40c-4f04-8747-aa6f-9594ea3fb865"] +Cell[22536, 753, 203, 4, 66, "Input",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], +Cell[22742, 759, 251, 5, 75, "Output",ExpressionUUID->"786707a3-5ae1-4f3f-9e44-ba1a667edd9a"] }, Open ]], Cell[CellGroupData[{ -Cell[61653, 1717, 19748, 483, 1572, "Input",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], -Cell[81404, 2202, 183, 3, 25, "Output",ExpressionUUID->"43eaee96-3646-954d-899a-d1e3ee2edd5e"] +Cell[23030, 769, 331, 6, 66, "Input",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], +Cell[23364, 777, 230, 4, 75, "Output",ExpressionUUID->"24e5bd3c-736c-4608-8299-b5f235e43e65"] }, Open ]], +Cell[23609, 784, 177, 3, 66, "Input",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], Cell[CellGroupData[{ -Cell[81624, 2210, 22534, 553, 1766, "Input",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], -Cell[104161, 2765, 182, 3, 25, "Output",ExpressionUUID->"a8d59888-f6f0-0746-9034-5e74c45610b1"] +Cell[23811, 791, 331, 6, 66, "Input",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], +Cell[24145, 799, 234, 4, 75, "Output",ExpressionUUID->"58b53ca7-159f-4d71-8f37-af3258d4d69e"] }, Open ]], +Cell[24394, 806, 177, 3, 66, "Input",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], Cell[CellGroupData[{ -Cell[104380, 2773, 22535, 553, 1773, "Input",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], -Cell[126918, 3328, 185, 3, 25, "Output",ExpressionUUID->"dd5d5506-e4f6-7d4c-bcd9-ea70659f69e1"] +Cell[24596, 813, 333, 6, 66, "Input",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], +Cell[24932, 821, 231, 4, 75, "Output",ExpressionUUID->"f73fb9ad-0086-4816-a9b4-52f06c0e52cf"] }, Open ]], +Cell[25178, 828, 177, 3, 66, "Input",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], Cell[CellGroupData[{ -Cell[127140, 3336, 25491, 626, 1984, "Input",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], -Cell[152634, 3964, 184, 3, 25, "Output",ExpressionUUID->"b983c8d8-6a34-fb4a-8a0a-8960e79ae993"] +Cell[25380, 835, 357, 6, 66, "Input",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], +Cell[25740, 843, 230, 4, 75, "Output",ExpressionUUID->"3541afd6-40de-41d5-bbb1-c1fb477483ed"] }, Open ]], +Cell[25985, 850, 175, 3, 66, "Input",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], Cell[CellGroupData[{ -Cell[152855, 3972, 130, 2, 22, "Input",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], -Cell[152988, 3976, 151, 2, 25, "Output",ExpressionUUID->"bb0c55af-9cf7-0443-8b24-f19c97d6c781"] +Cell[26185, 857, 303, 6, 66, "Input",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], +Cell[26491, 865, 232, 4, 75, "Output",ExpressionUUID->"ffccf229-8842-4c96-ab81-eea6ca750c9c"] }, Open ]], +Cell[26738, 872, 175, 3, 66, "Input",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], Cell[CellGroupData[{ -Cell[153176, 3983, 130, 2, 22, "Input",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], -Cell[153309, 3987, 151, 2, 25, "Output",ExpressionUUID->"0d4bafbb-7685-ff43-aaa0-fe1597369669"] +Cell[26938, 879, 309, 6, 66, "Input",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], +Cell[27250, 887, 233, 4, 75, "Output",ExpressionUUID->"84bc00a8-b4db-4f18-869f-1dc6f274f90a"] }, Open ]], +Cell[27498, 894, 177, 3, 66, "Input",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], Cell[CellGroupData[{ -Cell[153497, 3994, 1144, 39, 46, "Input",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], -Cell[154644, 4035, 167, 2, 25, "Output",ExpressionUUID->"25fde637-8846-5644-8daa-868231713f08"] +Cell[27700, 901, 331, 6, 66, "Input",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], +Cell[28034, 909, 235, 4, 75, "Output",ExpressionUUID->"afae8fea-407d-479f-bc74-13b51d067251"] }, Open ]], +Cell[28284, 916, 176, 3, 66, "Input",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], Cell[CellGroupData[{ -Cell[154848, 4042, 1041, 35, 46, "Input",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], -Cell[155892, 4079, 184, 3, 25, "Output",ExpressionUUID->"222cd90e-6438-0a46-88d0-fcdd10fc9432"] +Cell[28485, 923, 280, 5, 66, "Input",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], +Cell[28768, 930, 232, 4, 75, "Output",ExpressionUUID->"4561d0db-e274-4df4-af17-d05cbed75663"] }, Open ]], +Cell[29015, 937, 179, 3, 66, "Input",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], Cell[CellGroupData[{ -Cell[156113, 4087, 1144, 39, 46, "Input",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], -Cell[157260, 4128, 169, 2, 25, "Output",ExpressionUUID->"b7d1d4d3-3e05-af4b-9683-83817f2bdc88"] +Cell[29219, 944, 19813, 486, 5405, "Input",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], +Cell[49035, 1432, 271, 5, 75, "Output",ExpressionUUID->"a0b6eb77-7a40-4149-8996-69298baaa115"] }, Open ]], Cell[CellGroupData[{ -Cell[157466, 4135, 108, 1, 22, "Input",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], -Cell[157577, 4138, 169, 2, 25, "Output",ExpressionUUID->"9fab72a0-15cc-f04b-8b2d-eafd610fbe08"] +Cell[49343, 1442, 19752, 490, 5343, "Input",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], +Cell[69098, 1934, 266, 5, 75, "Output",ExpressionUUID->"a3d1a840-0b00-4050-9772-7b0edc7352af"] }, Open ]], Cell[CellGroupData[{ -Cell[157783, 4145, 108, 1, 22, "Input",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], -Cell[157894, 4148, 187, 3, 25, "Output",ExpressionUUID->"5baa5811-6d68-0847-bfa7-611a7f282595"] +Cell[69401, 1944, 19752, 484, 5342, "Input",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], +Cell[89156, 2430, 287, 6, 75, "Output",ExpressionUUID->"12933a3f-52b7-4098-aa18-656cd2cc71ec"] }, Open ]], Cell[CellGroupData[{ -Cell[158118, 4156, 108, 1, 22, "Input",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], -Cell[158229, 4159, 185, 3, 25, "Output",ExpressionUUID->"66d60cf8-894b-f64c-bc5e-4862fc34e98d"] +Cell[89480, 2441, 22538, 554, 6074, "Input",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], +Cell[112021, 2997, 288, 6, 75, "Output",ExpressionUUID->"0c25fe6b-f86a-4093-b345-52a763c8e9c0"] }, Open ]], Cell[CellGroupData[{ -Cell[158451, 4167, 108, 1, 22, "Input",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], -Cell[158562, 4170, 168, 2, 25, "Output",ExpressionUUID->"95baa4f5-66f1-b04e-8459-661f90319bc4"] +Cell[112346, 3008, 22539, 554, 6074, "Input",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], +Cell[134888, 3564, 291, 6, 75, "Output",ExpressionUUID->"8a2bdd3e-5197-4470-852a-259650b2ba2b"] }, Open ]], Cell[CellGroupData[{ -Cell[158767, 4177, 107, 1, 22, "Input",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], -Cell[158877, 4180, 169, 2, 25, "Output",ExpressionUUID->"de032191-9b61-7645-8f26-423f534a2cb1"] +Cell[135216, 3575, 25495, 627, 6806, "Input",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], +Cell[160714, 4204, 290, 6, 75, "Output",ExpressionUUID->"667240dd-2ffb-4aab-953f-74203839a2e1"] }, Open ]], Cell[CellGroupData[{ -Cell[159083, 4187, 107, 1, 22, "Input",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], -Cell[159193, 4190, 168, 2, 25, "Output",ExpressionUUID->"56b6e721-a4ff-f24f-9100-8013c893b0ae"] +Cell[161041, 4215, 134, 3, 66, "Input",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], +Cell[161178, 4220, 253, 5, 75, "Output",ExpressionUUID->"0febcc1d-bcb8-46cb-8034-9f3685156a5a"] }, Open ]], Cell[CellGroupData[{ -Cell[159398, 4197, 497, 16, 46, "Input",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], -Cell[159898, 4215, 186, 3, 25, "Output",ExpressionUUID->"ed7537ce-20e6-4246-aac0-4a4b9f4faed7"] +Cell[161468, 4230, 134, 3, 66, "Input",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], +Cell[161605, 4235, 254, 5, 75, "Output",ExpressionUUID->"1ef2b21c-2c62-42da-bdf7-e8a8ac672482"] }, Open ]], Cell[CellGroupData[{ -Cell[160121, 4223, 497, 16, 46, "Input",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], -Cell[160621, 4241, 184, 3, 25, "Output",ExpressionUUID->"643b7429-505f-4045-a97f-7e6871b3f504"] +Cell[161896, 4245, 1148, 40, 246, "Input",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], +Cell[163047, 4287, 269, 5, 75, "Output",ExpressionUUID->"959de20e-e319-4821-856a-2db061248dc4"] }, Open ]], Cell[CellGroupData[{ -Cell[160842, 4249, 1788, 60, 109, "Input",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], -Cell[162633, 4311, 168, 2, 25, "Output",ExpressionUUID->"029098e5-22ab-9a4c-99ad-caac4d1307db"] +Cell[163353, 4297, 1045, 36, 246, "Input",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], +Cell[164401, 4335, 288, 6, 75, "Output",ExpressionUUID->"b1db9611-48bc-4896-beb1-8a7875512d81"] }, Open ]], Cell[CellGroupData[{ -Cell[162838, 4318, 1101, 36, 64, "Input",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], -Cell[163942, 4356, 186, 3, 25, "Output",ExpressionUUID->"f7cceab2-e319-0345-98f3-b759ec5fa40c"] +Cell[164726, 4346, 1148, 40, 246, "Input",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], +Cell[165877, 4388, 272, 5, 75, "Output",ExpressionUUID->"19482b06-bfbf-42e1-966f-1ca5e68041c0"] }, Open ]], Cell[CellGroupData[{ -Cell[164165, 4364, 1818, 61, 90, "Input",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], -Cell[165986, 4427, 166, 2, 25, "Output",ExpressionUUID->"ee7339b3-3748-a34f-a057-3912a0918fd6"] +Cell[166186, 4398, 112, 2, 66, "Input",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], +Cell[166301, 4402, 269, 5, 75, "Output",ExpressionUUID->"267767d6-895f-4ba6-9f0e-daa9a1fe3161"] }, Open ]], Cell[CellGroupData[{ -Cell[166189, 4434, 1631, 53, 65, "Input",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], -Cell[167823, 4489, 169, 2, 25, "Output",ExpressionUUID->"9d980dd1-9860-3745-8961-1b723545e44c"] +Cell[166607, 4412, 112, 2, 66, "Input",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], +Cell[166722, 4416, 290, 6, 75, "Output",ExpressionUUID->"5400b027-5158-4fa7-b234-3e43d63912b9"] }, Open ]], Cell[CellGroupData[{ -Cell[168029, 4496, 1631, 53, 65, "Input",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], -Cell[169663, 4551, 167, 2, 25, "Output",ExpressionUUID->"791dcf4f-1a7f-2347-997c-27eed6cf3948"] +Cell[167049, 4427, 112, 2, 66, "Input",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], +Cell[167164, 4431, 287, 6, 75, "Output",ExpressionUUID->"f4a32333-db17-466f-aba5-bb9d6b4f6399"] }, Open ]], -Cell[169845, 4556, 147, 4, 22, "Input",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], -Cell[169995, 4562, 153, 3, 22, "Input",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], -Cell[170151, 4567, 147, 4, 22, "Input",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], -Cell[170301, 4573, 154, 3, 22, "Input",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], Cell[CellGroupData[{ -Cell[170480, 4580, 1297, 42, 39, "Input",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], -Cell[171780, 4624, 171, 2, 25, "Output",ExpressionUUID->"83707082-f118-c146-a95c-693158b61875"] +Cell[167488, 4442, 112, 2, 66, "Input",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], +Cell[167603, 4446, 269, 5, 75, "Output",ExpressionUUID->"797ae031-4fc8-4710-8404-04a4b2f96865"] }, Open ]], Cell[CellGroupData[{ -Cell[171988, 4631, 908, 31, 46, "Input",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], -Cell[172899, 4664, 170, 2, 25, "Output",ExpressionUUID->"93dbdfa1-2e9a-2d49-80d6-05af3e592734"] +Cell[167909, 4456, 111, 2, 66, "Input",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], +Cell[168023, 4460, 272, 5, 75, "Output",ExpressionUUID->"eedb8b45-7ad3-46ef-8609-79a186c2fdce"] }, Open ]], Cell[CellGroupData[{ -Cell[173106, 4671, 884, 30, 46, "Input",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], -Cell[173993, 4703, 173, 2, 25, "Output",ExpressionUUID->"afd7d2f8-cc87-734c-9c81-c0621f31e0e5"] +Cell[168332, 4470, 111, 2, 66, "Input",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], +Cell[168446, 4474, 272, 5, 75, "Output",ExpressionUUID->"9fa255bb-5bc5-4f09-a647-1262633ab9fe"] }, Open ]], Cell[CellGroupData[{ -Cell[174203, 4710, 558, 19, 42, "Input",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], -Cell[174764, 4731, 567, 9, 25, "Output",ExpressionUUID->"0432d540-b940-d44f-87c2-61a0d876fa3f"] +Cell[168755, 4484, 501, 17, 125, "Input",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], +Cell[169259, 4503, 287, 6, 75, "Output",ExpressionUUID->"3bf14ac4-0082-4302-a700-78211a962477"] }, Open ]], Cell[CellGroupData[{ -Cell[175368, 4745, 665, 22, 42, "Input",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], -Cell[176036, 4769, 554, 9, 25, "Output",ExpressionUUID->"d6001eae-8a76-854e-9f93-fc6d9f888546"] +Cell[169583, 4514, 501, 17, 125, "Input",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], +Cell[170087, 4533, 283, 6, 75, "Output",ExpressionUUID->"113930a9-872c-495e-bde6-8f11ffae2542"] }, Open ]], Cell[CellGroupData[{ -Cell[176627, 4783, 170, 5, 46, "Input",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], -Cell[176800, 4790, 577, 9, 25, "Output",ExpressionUUID->"529ddbf3-d030-9b49-9390-e82eea1b6cd9"] +Cell[170407, 4544, 1792, 61, 420, "Input",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], +Cell[172202, 4607, 271, 5, 75, "Output",ExpressionUUID->"70fb2170-70df-4335-9ac8-39307964fc8d"] }, Open ]], Cell[CellGroupData[{ -Cell[177414, 4804, 236, 6, 45, "Input",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], -Cell[177653, 4812, 514, 8, 25, "Output",ExpressionUUID->"1efb03b1-ddd9-3544-b911-a583d1e1d12c"] +Cell[172510, 4617, 1105, 37, 299, "Input",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], +Cell[173618, 4656, 284, 6, 75, "Output",ExpressionUUID->"05b5d827-ff10-4026-8f0c-2872ed10ebff"] }, Open ]], Cell[CellGroupData[{ -Cell[178204, 4825, 223, 6, 35, "Input",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], -Cell[178430, 4833, 549, 9, 25, "Output",ExpressionUUID->"0c2f4a5d-aa8f-1846-8930-72520d6d68fa"] +Cell[173939, 4667, 1822, 62, 420, "Input",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], +Cell[175764, 4731, 268, 5, 75, "Output",ExpressionUUID->"7434ab66-9dcb-4d49-8c6a-0df4b4475a0d"] }, Open ]], Cell[CellGroupData[{ -Cell[179016, 4847, 181, 5, 35, "Input",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], -Cell[179200, 4854, 567, 9, 25, "Output",ExpressionUUID->"51b96550-e411-8f49-ae52-0ef4087a9cca"] +Cell[176069, 4741, 1635, 54, 368, "Input",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], +Cell[177707, 4797, 267, 5, 75, "Output",ExpressionUUID->"4b878535-e718-450b-a3c7-d6c0db830348"] }, Open ]], Cell[CellGroupData[{ -Cell[179804, 4868, 6055, 185, 310, "Input",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], -Cell[185862, 5055, 548, 9, 25, "Output",ExpressionUUID->"ae5a263d-347a-6e47-95a0-f7c420f4dc91"] +Cell[178011, 4807, 1635, 54, 368, "Input",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], +Cell[179649, 4863, 268, 5, 75, "Output",ExpressionUUID->"9f930ce4-b2ee-4b45-a127-641eb26351ff"] }, Open ]], Cell[CellGroupData[{ -Cell[186447, 5069, 368, 9, 33, "Input",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], -Cell[186818, 5080, 521, 8, 25, "Output",ExpressionUUID->"eb964dd3-b4a5-124b-bf6d-21f5f9718a4e"] +Cell[179954, 4873, 239, 5, 66, "Input",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], +Cell[180196, 4880, 238, 4, 75, "Output",ExpressionUUID->"391f95c9-de39-4fb1-a3ca-696e27495551"] }, Open ]], -Cell[187354, 5091, 492, 10, 34, "Input",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], +Cell[180449, 4887, 176, 3, 66, "Input",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], Cell[CellGroupData[{ -Cell[187871, 5105, 554, 18, 42, "Input",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], -Cell[188428, 5125, 166, 2, 25, "Output",ExpressionUUID->"e4d9d77a-b508-454c-baed-04aa4a4ef418"] +Cell[180650, 4894, 208, 4, 66, "Input",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], +Cell[180861, 4900, 234, 4, 75, "Output",ExpressionUUID->"8b262717-73bc-4c33-a610-384f7df79d4f"] }, Open ]], +Cell[181110, 4907, 177, 3, 66, "Input",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], Cell[CellGroupData[{ -Cell[188631, 5132, 619, 20, 42, "Input",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], -Cell[189253, 5154, 168, 2, 25, "Output",ExpressionUUID->"3007515b-4da6-bf4e-9b4f-90b429e2dd04"] +Cell[181312, 4914, 1301, 43, 257, "Input",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], +Cell[182616, 4959, 275, 5, 75, "Output",ExpressionUUID->"def1fdc3-5344-4f30-9489-17424043f7f2"] }, Open ]], Cell[CellGroupData[{ -Cell[189458, 5161, 166, 4, 46, "Input",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], -Cell[189627, 5167, 167, 2, 25, "Output",ExpressionUUID->"f6274504-766f-8549-a4a8-fd0e803dda86"] +Cell[182928, 4969, 931, 31, 221, "Input",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], +Cell[183862, 5002, 270, 5, 75, "Output",ExpressionUUID->"63676d78-49e5-47b8-a6dd-5a44c183f616"] }, Open ]], Cell[CellGroupData[{ -Cell[189831, 5174, 166, 4, 45, "Input",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], -Cell[190000, 5180, 166, 2, 25, "Output",ExpressionUUID->"72d24546-97b5-7344-98ec-019068f7b9fb"] +Cell[184169, 5012, 907, 30, 221, "Input",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], +Cell[185079, 5044, 276, 5, 75, "Output",ExpressionUUID->"63823632-182e-4c64-b161-34283d2cde3b"] }, Open ]], Cell[CellGroupData[{ -Cell[190203, 5187, 177, 4, 35, "Input",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], -Cell[190383, 5193, 169, 2, 25, "Output",ExpressionUUID->"7075b380-afe9-8b44-acc9-29433a09a866"] +Cell[185392, 5054, 558, 19, 118, "Input",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], +Cell[185953, 5075, 663, 10, 75, "Output",ExpressionUUID->"0415d3ae-f93e-4008-a13c-8fbbe0d44767"] }, Open ]], Cell[CellGroupData[{ -Cell[190589, 5200, 177, 4, 35, "Input",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], -Cell[190769, 5206, 168, 2, 25, "Output",ExpressionUUID->"667394bf-ade3-1944-8cac-a719104b58af"] +Cell[186653, 5090, 665, 22, 118, "Input",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], +Cell[187321, 5114, 648, 10, 75, "Output",ExpressionUUID->"0e1c76cb-1795-408e-ad42-c1004833256f"] }, Open ]], Cell[CellGroupData[{ -Cell[190974, 5213, 6051, 184, 310, "Input",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], -Cell[197028, 5399, 171, 2, 25, "Output",ExpressionUUID->"bdb345c8-7c0c-3e4d-96c3-d5d94768456f"] +Cell[188006, 5129, 170, 5, 125, "Input",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], +Cell[188179, 5136, 670, 10, 75, "Output",ExpressionUUID->"f46856f5-b2fd-4da9-8170-a8a6196179fb"] }, Open ]], Cell[CellGroupData[{ -Cell[197236, 5406, 364, 8, 33, "Input",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], -Cell[197603, 5416, 166, 2, 25, "Output",ExpressionUUID->"a136c49d-6dd1-8a4a-9add-7300e6132adb"] +Cell[188886, 5151, 236, 6, 123, "Input",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], +Cell[189125, 5159, 614, 10, 75, "Output",ExpressionUUID->"a7d5ab5d-d1f0-43ef-8e4e-de717cfc04c9"] }, Open ]], Cell[CellGroupData[{ -Cell[197806, 5423, 6118, 186, 353, "Input",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], -Cell[203927, 5611, 170, 2, 25, "Output",ExpressionUUID->"85a24dde-0aa6-984c-b7a3-ccfa87afb6cd"] +Cell[189776, 5174, 223, 6, 97, "Input",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], +Cell[190002, 5182, 642, 10, 75, "Output",ExpressionUUID->"bbf0f360-d4e0-4196-bece-8505377ce7cc"] }, Open ]], Cell[CellGroupData[{ -Cell[204134, 5618, 364, 8, 33, "Input",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], -Cell[204501, 5628, 168, 2, 25, "Output",ExpressionUUID->"9a87dba6-1411-3f4b-a17f-9d7a664889bd"] +Cell[190681, 5197, 181, 5, 97, "Input",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], +Cell[190865, 5204, 661, 10, 75, "Output",ExpressionUUID->"6d655ba4-795f-4384-b27a-a1797175c6f4"] }, Open ]], Cell[CellGroupData[{ -Cell[204706, 5635, 2659, 87, 135, "Input",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], -Cell[207368, 5724, 169, 2, 25, "Output",ExpressionUUID->"39ebfd06-20a8-e945-ae56-55ff95d26618"] +Cell[191563, 5219, 6055, 185, 1319, "Input",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], +Cell[197621, 5406, 647, 10, 75, "Output",ExpressionUUID->"9dadf9c6-f8e2-4617-9081-918009d02169"] }, Open ]], Cell[CellGroupData[{ -Cell[207574, 5731, 2599, 84, 135, "Input",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], -Cell[210176, 5817, 169, 2, 25, "Output",ExpressionUUID->"6c617ce1-6ebd-9d43-be44-73f7ca23a829"] +Cell[198305, 5421, 387, 10, 94, "Input",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], +Cell[198695, 5433, 641, 11, 75, "Output",ExpressionUUID->"5dab7f55-a32f-4f72-bcf3-e3aca25987b6"] }, Open ]], +Cell[199351, 5447, 492, 10, 66, "Input",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], Cell[CellGroupData[{ -Cell[210382, 5824, 3708, 117, 197, "Input",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], -Cell[214093, 5943, 169, 2, 25, "Output",ExpressionUUID->"145fcb0a-d842-9a43-9617-34577d485689"] +Cell[199868, 5461, 558, 19, 118, "Input",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], +Cell[200429, 5482, 271, 5, 75, "Output",ExpressionUUID->"83d94100-49ff-4018-9255-21615cdd3c63"] }, Open ]], -Cell[214277, 5948, 138, 3, 34, "Input",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], Cell[CellGroupData[{ -Cell[214440, 5955, 2052, 59, 92, "Input",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], -Cell[216495, 6016, 556, 12, 50, "Message",ExpressionUUID->"be9831d8-a262-3541-9040-ad5e31b2eb28"], -Cell[217054, 6030, 559, 12, 50, "Message",ExpressionUUID->"31896901-1c82-aa4e-bb9a-c09e2220f684"], -Cell[217616, 6044, 559, 12, 50, "Message",ExpressionUUID->"aa16e061-5976-9143-8add-7376f3059569"], -Cell[218178, 6058, 452, 10, 20, "Message",ExpressionUUID->"68730c15-5e57-ca48-8468-735233dec44d"], -Cell[218633, 6070, 168, 2, 25, "Output",ExpressionUUID->"9deaa7ff-19fe-b345-ae65-d7f8adce193c"] +Cell[200737, 5492, 623, 21, 118, "Input",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], +Cell[201363, 5515, 274, 5, 75, "Output",ExpressionUUID->"f8a823cc-70a2-4079-a54e-45e6573131e1"] }, Open ]], Cell[CellGroupData[{ -Cell[218838, 6077, 2054, 59, 92, "Input",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], -Cell[220895, 6138, 556, 12, 50, "Message",ExpressionUUID->"365becfb-66c2-b442-8b7b-c6077e53a212"], -Cell[221454, 6152, 556, 12, 50, "Message",ExpressionUUID->"2b170196-02e0-d544-a5a5-d90722dc10dc"], -Cell[222013, 6166, 559, 12, 50, "Message",ExpressionUUID->"02967e8e-3430-cf4f-b706-b82af40300a2"], -Cell[222575, 6180, 452, 10, 20, "Message",ExpressionUUID->"a8933e75-6bbd-684a-8439-656414d7fe5d"], -Cell[223030, 6192, 166, 2, 25, "Output",ExpressionUUID->"0790c690-9267-6441-bc9c-d353ab16b428"] +Cell[201674, 5525, 170, 5, 125, "Input",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], +Cell[201847, 5532, 272, 5, 75, "Output",ExpressionUUID->"6e210646-ff3d-433f-9f7c-eb08e5103a5a"] }, Open ]], Cell[CellGroupData[{ -Cell[223233, 6199, 1938, 53, 69, "Input",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], -Cell[225174, 6254, 20226, 378, 191, "Output",ExpressionUUID->"5d2ddb35-b7b8-514c-917f-fcc77dc8600c"] +Cell[202156, 5542, 170, 5, 123, "Input",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], +Cell[202329, 5549, 267, 5, 75, "Output",ExpressionUUID->"a80c5baf-122f-40e1-a188-5f47b5defd9e"] }, Open ]], Cell[CellGroupData[{ -Cell[245437, 6637, 2094, 60, 92, "Input",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], -Cell[247534, 6699, 497, 11, 70, "Message",ExpressionUUID->"cb33453f-b5ca-e14d-a319-662822d35ed2"], -Cell[248034, 6712, 501, 11, 70, "Message",ExpressionUUID->"aa5fb574-aeea-7141-9d86-babfa2192485"], -Cell[248538, 6725, 503, 11, 70, "Message",ExpressionUUID->"dec65c86-5426-6949-9e38-c5bc3eb7722e"], -Cell[249044, 6738, 455, 10, 70, "Message",ExpressionUUID->"32a908f1-0097-2943-9511-bd82e083c1e0"], -Cell[249502, 6750, 43631, 762, 70, "Output",ExpressionUUID->"704b46fd-7ca5-4147-bbb4-19991a3778e5"] +Cell[202633, 5559, 181, 5, 97, "Input",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], +Cell[202817, 5566, 269, 5, 75, "Output",ExpressionUUID->"0fcac2cc-227f-47b7-8c25-9217ae55eedf"] }, Open ]], -Cell[293148, 7515, 232, 6, 70, "Input",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], -Cell[293383, 7523, 209, 5, 70, "Input",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], Cell[CellGroupData[{ -Cell[293617, 7532, 212, 6, 70, "Input",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], -Cell[293832, 7540, 168, 2, 70, "Output",ExpressionUUID->"1f95faab-1b52-5440-9bc8-bbd29c090294"] +Cell[203123, 5576, 181, 5, 97, "Input",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], +Cell[203307, 5583, 276, 5, 75, "Output",ExpressionUUID->"11bb211a-1c67-48f5-81ef-dd7ced5b9302"] }, Open ]], Cell[CellGroupData[{ -Cell[294037, 7547, 1814, 53, 70, "Input",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], -Cell[295854, 7602, 505, 11, 70, "Message",ExpressionUUID->"34609962-a5ff-c943-bd24-1be35ec9ac87"], -Cell[296362, 7615, 509, 11, 70, "Message",ExpressionUUID->"1fdfd709-87fa-2d47-912a-2bb16540a45a"], -Cell[296874, 7628, 508, 11, 70, "Message",ExpressionUUID->"02f7e2ed-ac22-9d4d-8071-ab116260ee28"], -Cell[297385, 7641, 455, 10, 70, "Message",ExpressionUUID->"7db76209-a5a6-1947-80c1-912d214b981c"], -Cell[297843, 7653, 22399, 414, 70, "Output",ExpressionUUID->"b5f713da-fcb5-f640-b2b9-a3f5b5d5c325"] +Cell[203620, 5593, 6055, 185, 1319, "Input",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], +Cell[209678, 5780, 276, 5, 75, "Output",ExpressionUUID->"d33d9a25-fd34-4c8a-95bc-605e67bd6e39"] }, Open ]], Cell[CellGroupData[{ -Cell[320279, 8072, 1612, 47, 70, "Input",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], -Cell[321894, 8121, 581, 12, 70, "Message",ExpressionUUID->"e283daf4-b253-944e-a35b-b9d739b4810d"], -Cell[322478, 8135, 584, 12, 70, "Message",ExpressionUUID->"45f4fe27-f32a-9441-bd55-e0801ff04328"], -Cell[323065, 8149, 590, 12, 70, "Message",ExpressionUUID->"8fffabed-e171-5e42-9ba8-fd51ae8f5dd5"], -Cell[323658, 8163, 455, 10, 70, "Message",ExpressionUUID->"8b648472-e40f-a549-a057-c6eeb9f14028"], -Cell[324116, 8175, 169, 2, 70, "Output",ExpressionUUID->"c7b55151-fc31-d94c-8a4e-01b34fb0adaf"] +Cell[209991, 5790, 410, 10, 130, "Input",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], +Cell[210404, 5802, 317, 6, 111, "Output",ExpressionUUID->"fbc45696-2ee6-4ea2-907a-fbeeb97788ce"] }, Open ]], Cell[CellGroupData[{ -Cell[324322, 8182, 2249, 64, 70, "Input",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], -Cell[326574, 8248, 557, 12, 70, "Message",ExpressionUUID->"3632efc4-f65f-2f41-a6ff-4f71c0ebce84"], -Cell[327134, 8262, 560, 12, 70, "Message",ExpressionUUID->"779c5516-83d5-5d41-8a7a-6b58e876b564"], -Cell[327697, 8276, 560, 12, 70, "Message",ExpressionUUID->"8e3711bd-8e48-2e4f-9802-ad11f73b56ef"], -Cell[328260, 8290, 455, 10, 70, "Message",ExpressionUUID->"f612a69b-4740-9240-9908-d284159fa285"], -Cell[328718, 8302, 169, 2, 70, "Output",ExpressionUUID->"bfa217e6-2060-bc4b-b710-35d6c4ca9627"] +Cell[210758, 5813, 6122, 187, 1319, "Input",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], +Cell[216883, 6002, 275, 5, 75, "Output",ExpressionUUID->"d7430364-d0a0-462b-9337-8679c65e00f9"] }, Open ]], Cell[CellGroupData[{ -Cell[328924, 8309, 2221, 64, 70, "Input",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], -Cell[331148, 8375, 554, 12, 70, "Message",ExpressionUUID->"3ebcf84a-7882-bd47-b9c8-0657501c09d4"], -Cell[331705, 8389, 560, 12, 70, "Message",ExpressionUUID->"5ba908af-818e-5d45-9b4d-c738ed936632"], -Cell[332268, 8403, 560, 12, 70, "Message",ExpressionUUID->"b25ed3b8-96c0-f246-8b73-bf5dca1bf3be"], -Cell[332831, 8417, 455, 10, 70, "Message",ExpressionUUID->"4d7ee3e1-e220-9e46-b1cc-01012021a276"], -Cell[333289, 8429, 169, 2, 70, "Output",ExpressionUUID->"f21819b7-4040-3a47-b212-dc05454fc812"] +Cell[217195, 6012, 368, 9, 94, "Input",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], +Cell[217566, 6023, 271, 5, 75, "Output",ExpressionUUID->"d0ddf07d-61bc-416d-8ea7-6f9ad44673a1"] }, Open ]], Cell[CellGroupData[{ -Cell[333495, 8436, 2223, 64, 70, "Input",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], -Cell[335721, 8502, 555, 12, 70, "Message",ExpressionUUID->"abd6af2a-56b2-2644-a5c5-5aa91718971c"], -Cell[336279, 8516, 558, 12, 70, "Message",ExpressionUUID->"31d8f902-5be7-c54f-8e99-429decd85903"], -Cell[336840, 8530, 560, 12, 70, "Message",ExpressionUUID->"666728b2-41bd-114c-ad81-a56ae7cb85e9"], -Cell[337403, 8544, 453, 10, 70, "Message",ExpressionUUID->"7a1ee219-911f-6846-82f7-c389bec607c2"], -Cell[337859, 8556, 167, 2, 70, "Output",ExpressionUUID->"f40d5525-ccff-eb4c-a859-e6917373a7f1"] +Cell[217874, 6033, 2663, 88, 746, "Input",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], +Cell[220540, 6123, 271, 5, 75, "Output",ExpressionUUID->"fb65cba0-d58a-4938-b9c1-d9606ddafbb1"] }, Open ]], Cell[CellGroupData[{ -Cell[338063, 8563, 213, 6, 70, "Input",ExpressionUUID->"fcd1131c-ba92-0b46-817b-e5f89f4ec38f"], -Cell[338279, 8571, 169, 2, 70, "Output",ExpressionUUID->"3749f94f-79b1-2342-af7e-bc4d815737fe"] +Cell[220848, 6133, 2603, 85, 746, "Input",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], +Cell[223454, 6220, 270, 5, 75, "Output",ExpressionUUID->"957ef34c-e797-48a7-a7c9-80d9833a59e9"] }, Open ]], -Cell[338463, 8576, 247, 5, 70, "Input",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"], Cell[CellGroupData[{ -Cell[338735, 8585, 554, 18, 70, "Input",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], -Cell[339292, 8605, 167, 2, 70, "Output",ExpressionUUID->"aad53d59-da78-9348-9ac4-1e0902e814d3"] +Cell[223761, 6230, 3712, 118, 982, "Input",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], +Cell[227476, 6350, 270, 5, 75, "Output",ExpressionUUID->"08b1b256-2cf1-417f-8b4f-b7280ea4ec91"] }, Open ]], +Cell[227761, 6358, 164, 4, 66, "Input",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], Cell[CellGroupData[{ -Cell[339496, 8612, 166, 4, 70, "Input",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], -Cell[339665, 8618, 169, 2, 70, "Output",ExpressionUUID->"4fef6a46-506a-e14c-9df4-f75ab9f6cdb2"] +Cell[227950, 6366, 2075, 59, 484, "Input",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], +Cell[230028, 6427, 709, 15, 129, "Message",ExpressionUUID->"00468604-1b8d-4d45-b381-4ffac8adbce7"], +Cell[230740, 6444, 711, 15, 129, "Message",ExpressionUUID->"6ee4886b-82ba-4317-96bd-cb63f5c63680"], +Cell[231454, 6461, 710, 15, 129, "Message",ExpressionUUID->"319b1807-8cb5-4fc1-9985-bc2e0a059e8a"], +Cell[232167, 6478, 572, 13, 49, "Message",ExpressionUUID->"7e95a6cd-0269-49b0-9a40-d11ed65485ae"], +Cell[232742, 6493, 271, 5, 75, "Output",ExpressionUUID->"ddc17924-7e0a-4f6c-a3a2-9b2a834fd61d"] }, Open ]], Cell[CellGroupData[{ -Cell[339871, 8625, 181, 5, 70, "Input",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], -Cell[340055, 8632, 173, 3, 70, "Output",ExpressionUUID->"f46a3dc4-a4b4-034f-91be-6596e81ebf6d"] +Cell[233050, 6503, 2077, 59, 484, "Input",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], +Cell[235130, 6564, 682, 14, 129, "Message",ExpressionUUID->"4c68f761-ea3f-4c87-876c-62086f5bcc44"], +Cell[235815, 6580, 681, 14, 129, "Message",ExpressionUUID->"a89778a4-dcbd-43da-9dd2-fcdc8860506a"], +Cell[236499, 6596, 680, 14, 129, "Message",ExpressionUUID->"c60293b6-0417-4ab5-8f7b-df0ce979bf76"], +Cell[237182, 6612, 544, 12, 49, "Message",ExpressionUUID->"e9513b1d-a7ee-41e2-a2f2-0646bf0bb0c6"], +Cell[237729, 6626, 231, 4, 75, "Output",ExpressionUUID->"1a927ee9-82c8-44e4-a73a-d779472d297e"] }, Open ]], Cell[CellGroupData[{ -Cell[340265, 8640, 6055, 185, 70, "Input",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], -Cell[346323, 8827, 172, 3, 70, "Output",ExpressionUUID->"ccd4df45-d425-704c-b4a9-648b41b92e77"] +Cell[237997, 6635, 1961, 53, 340, "Input",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], +Cell[239961, 6690, 186, 3, 75, "Output",ExpressionUUID->"8cb384bc-2548-4cf8-9143-ddaa04a8d819"] }, Open ]], Cell[CellGroupData[{ -Cell[346532, 8835, 368, 9, 70, "Input",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], -Cell[346903, 8846, 170, 3, 70, "Output",ExpressionUUID->"1ebb6633-805d-cf47-abbc-564ac9bf2374"] +Cell[240184, 6698, 2094, 60, 546, "Input",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], +Cell[242281, 6760, 497, 11, 129, "Message",ExpressionUUID->"cb33453f-b5ca-e14d-a319-662822d35ed2"], +Cell[242781, 6773, 501, 11, 129, "Message",ExpressionUUID->"aa5fb574-aeea-7141-9d86-babfa2192485"], +Cell[243285, 6786, 503, 11, 129, "Message",ExpressionUUID->"dec65c86-5426-6949-9e38-c5bc3eb7722e"], +Cell[243791, 6799, 455, 10, 47, "Message",ExpressionUUID->"32a908f1-0097-2943-9511-bd82e083c1e0"], +Cell[244249, 6811, 43631, 762, 523, "Output",ExpressionUUID->"704b46fd-7ca5-4147-bbb4-19991a3778e5"] }, Open ]], +Cell[287895, 7576, 2454, 69, 387, "Input",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], +Cell[290352, 7647, 209, 5, 66, "Input",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], Cell[CellGroupData[{ -Cell[347110, 8854, 6122, 187, 70, "Input",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], -Cell[353235, 9043, 175, 3, 70, "Output",ExpressionUUID->"a3a95ff2-cddf-6a4c-ac06-8cc3fd5707bc"] +Cell[290586, 7656, 212, 6, 107, "Input",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], +Cell[290801, 7664, 168, 2, 75, "Output",ExpressionUUID->"1f95faab-1b52-5440-9bc8-bbd29c090294"] }, Open ]], Cell[CellGroupData[{ -Cell[353447, 9051, 368, 9, 70, "Input",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], -Cell[353818, 9062, 169, 3, 70, "Output",ExpressionUUID->"53071608-cf53-7441-9033-6c9cf2e7fa8e"] +Cell[291006, 7671, 1814, 53, 546, "Input",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], +Cell[292823, 7726, 505, 11, 129, "Message",ExpressionUUID->"34609962-a5ff-c943-bd24-1be35ec9ac87"], +Cell[293331, 7739, 509, 11, 129, "Message",ExpressionUUID->"1fdfd709-87fa-2d47-912a-2bb16540a45a"], +Cell[293843, 7752, 508, 11, 129, "Message",ExpressionUUID->"02f7e2ed-ac22-9d4d-8071-ab116260ee28"], +Cell[294354, 7765, 455, 10, 47, "Message",ExpressionUUID->"7db76209-a5a6-1947-80c1-912d214b981c"], +Cell[294812, 7777, 22399, 414, 527, "Output",ExpressionUUID->"b5f713da-fcb5-f640-b2b9-a3f5b5d5c325"] }, Open ]], Cell[CellGroupData[{ -Cell[354024, 9070, 2663, 88, 70, "Input",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], -Cell[356690, 9160, 173, 3, 70, "Output",ExpressionUUID->"547b87cc-d628-4d49-8e04-72542aa7650e"] +Cell[317248, 8196, 1612, 47, 221, "Input",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], +Cell[318863, 8245, 581, 12, 166, "Message",ExpressionUUID->"e283daf4-b253-944e-a35b-b9d739b4810d"], +Cell[319447, 8259, 584, 12, 166, "Message",ExpressionUUID->"45f4fe27-f32a-9441-bd55-e0801ff04328"], +Cell[320034, 8273, 590, 12, 166, "Message",ExpressionUUID->"8fffabed-e171-5e42-9ba8-fd51ae8f5dd5"], +Cell[320627, 8287, 455, 10, 47, "Message",ExpressionUUID->"8b648472-e40f-a549-a057-c6eeb9f14028"], +Cell[321085, 8299, 169, 2, 75, "Output",ExpressionUUID->"c7b55151-fc31-d94c-8a4e-01b34fb0adaf"] }, Open ]], Cell[CellGroupData[{ -Cell[356900, 9168, 2603, 85, 70, "Input",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], -Cell[359506, 9255, 171, 3, 70, "Output",ExpressionUUID->"a8edf49c-9c61-9e4b-9fa8-4de409daba96"] +Cell[321291, 8306, 2249, 64, 472, "Input",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], +Cell[323543, 8372, 557, 12, 166, "Message",ExpressionUUID->"3632efc4-f65f-2f41-a6ff-4f71c0ebce84"], +Cell[324103, 8386, 560, 12, 166, "Message",ExpressionUUID->"779c5516-83d5-5d41-8a7a-6b58e876b564"], +Cell[324666, 8400, 560, 12, 166, "Message",ExpressionUUID->"8e3711bd-8e48-2e4f-9802-ad11f73b56ef"], +Cell[325229, 8414, 455, 10, 47, "Message",ExpressionUUID->"f612a69b-4740-9240-9908-d284159fa285"], +Cell[325687, 8426, 169, 2, 75, "Output",ExpressionUUID->"bfa217e6-2060-bc4b-b710-35d6c4ca9627"] }, Open ]], Cell[CellGroupData[{ -Cell[359714, 9263, 3712, 118, 70, "Input",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], -Cell[363429, 9383, 171, 3, 70, "Output",ExpressionUUID->"3584cc50-41a2-ae4b-af54-859d095b0154"] +Cell[325893, 8433, 2221, 64, 610, "Input",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], +Cell[328117, 8499, 554, 12, 166, "Message",ExpressionUUID->"3ebcf84a-7882-bd47-b9c8-0657501c09d4"], +Cell[328674, 8513, 560, 12, 166, "Message",ExpressionUUID->"5ba908af-818e-5d45-9b4d-c738ed936632"], +Cell[329237, 8527, 560, 12, 166, "Message",ExpressionUUID->"b25ed3b8-96c0-f246-8b73-bf5dca1bf3be"], +Cell[329800, 8541, 455, 10, 47, "Message",ExpressionUUID->"4d7ee3e1-e220-9e46-b1cc-01012021a276"], +Cell[330258, 8553, 169, 2, 75, "Output",ExpressionUUID->"f21819b7-4040-3a47-b212-dc05454fc812"] }, Open ]], Cell[CellGroupData[{ -Cell[363637, 9391, 2052, 59, 70, "Input",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], -Cell[365692, 9452, 572, 12, 70, "Message",ExpressionUUID->"d59869d2-8577-0547-8448-230bc5a4ac5e"], -Cell[366267, 9466, 573, 12, 70, "Message",ExpressionUUID->"844f4204-3100-6d45-b5d2-238cc22b8006"], -Cell[366843, 9480, 578, 12, 70, "Message",ExpressionUUID->"f91c55eb-7b3d-3340-b869-4269b99a071c"], -Cell[367424, 9494, 457, 10, 70, "Message",ExpressionUUID->"efd89e15-8a66-4047-aee7-4fb3607a30a7"], -Cell[367884, 9506, 172, 3, 70, "Output",ExpressionUUID->"e68f2098-b3f7-6745-819f-009e252dd442"] +Cell[330464, 8560, 2223, 64, 610, "Input",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], +Cell[332690, 8626, 555, 12, 166, "Message",ExpressionUUID->"abd6af2a-56b2-2644-a5c5-5aa91718971c"], +Cell[333248, 8640, 558, 12, 166, "Message",ExpressionUUID->"31d8f902-5be7-c54f-8e99-429decd85903"], +Cell[333809, 8654, 560, 12, 166, "Message",ExpressionUUID->"666728b2-41bd-114c-ad81-a56ae7cb85e9"], +Cell[334372, 8668, 453, 10, 47, "Message",ExpressionUUID->"7a1ee219-911f-6846-82f7-c389bec607c2"], +Cell[334828, 8680, 167, 2, 75, "Output",ExpressionUUID->"f40d5525-ccff-eb4c-a859-e6917373a7f1"] }, Open ]], Cell[CellGroupData[{ -Cell[368093, 9514, 2054, 59, 70, "Input",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], -Cell[370150, 9575, 572, 12, 70, "Message",ExpressionUUID->"feb3ed0a-8d45-dd4c-a945-407106f88295"], -Cell[370725, 9589, 575, 12, 70, "Message",ExpressionUUID->"d5a6c2e7-2143-1843-8d40-686107f6aa27"], -Cell[371303, 9603, 576, 12, 70, "Message",ExpressionUUID->"a15d89dd-0dfc-c845-aec3-fe7d60156e1f"], -Cell[371882, 9617, 457, 10, 70, "Message",ExpressionUUID->"0f9408e4-b654-4a40-9b38-655b18398efc"], -Cell[372342, 9629, 170, 3, 70, "Output",ExpressionUUID->"f72e3d82-4d19-7143-9513-38a15cee4d51"] +Cell[335032, 8687, 213, 6, 106, "Input",ExpressionUUID->"fcd1131c-ba92-0b46-817b-e5f89f4ec38f"], +Cell[335248, 8695, 169, 2, 75, "Output",ExpressionUUID->"3749f94f-79b1-2342-af7e-bc4d815737fe"] }, Open ]], +Cell[335432, 8700, 247, 5, 66, "Input",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"], Cell[CellGroupData[{ -Cell[372549, 9637, 2030, 55, 70, "Input",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], -Cell[374582, 9694, 20377, 384, 70, "Output",ExpressionUUID->"02187549-f2f0-9c4d-81fc-d12919ea7802"] +Cell[335704, 8709, 554, 18, 118, "Input",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], +Cell[336261, 8729, 167, 2, 75, "Output",ExpressionUUID->"aad53d59-da78-9348-9ac4-1e0902e814d3"] }, Open ]], Cell[CellGroupData[{ -Cell[394996, 10083, 2118, 60, 70, "Input",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], -Cell[397117, 10145, 499, 11, 70, "Message",ExpressionUUID->"75033ea5-32d5-4445-bfb0-a981507a2e9a"], -Cell[397619, 10158, 504, 11, 70, "Message",ExpressionUUID->"bc53c85b-e7c9-be4a-8ed4-30975f08af5c"], -Cell[398126, 10171, 507, 11, 70, "Message",ExpressionUUID->"e09d101b-c5d3-424f-aab9-c5788f3b9ef6"], -Cell[398636, 10184, 455, 10, 70, "Message",ExpressionUUID->"28f777a6-eb27-df49-a698-bd7806baa94c"], -Cell[399094, 10196, 22381, 415, 70, "Output",ExpressionUUID->"cd997d80-b342-8b4c-95c9-b33408882f73"] +Cell[336465, 8736, 166, 4, 125, "Input",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], +Cell[336634, 8742, 169, 2, 75, "Output",ExpressionUUID->"4fef6a46-506a-e14c-9df4-f75ab9f6cdb2"] }, Open ]], -Cell[421490, 10614, 174, 3, 70, "Input",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], -Cell[421667, 10619, 209, 5, 70, "Input",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"], Cell[CellGroupData[{ -Cell[421901, 10628, 1616, 48, 70, "Input",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], -Cell[423520, 10678, 594, 12, 70, "Message",ExpressionUUID->"96d01a47-7c9a-1944-8904-f1788b2f0a8a"], -Cell[424117, 10692, 594, 12, 70, "Message",ExpressionUUID->"fee09e7b-7835-394b-93fe-35ddd26f69d1"], -Cell[424714, 10706, 598, 12, 70, "Message",ExpressionUUID->"fc12fc14-afc1-0a48-8829-94d858477ec4"], -Cell[425315, 10720, 457, 10, 70, "Message",ExpressionUUID->"41b1346d-6d7d-5d4d-9b1a-88cde3361cf3"], -Cell[425775, 10732, 171, 3, 70, "Output",ExpressionUUID->"0bbffe2c-809c-1149-a08f-e3342cda31a0"] +Cell[336840, 8749, 181, 5, 97, "Input",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], +Cell[337024, 8756, 173, 3, 75, "Output",ExpressionUUID->"f46a3dc4-a4b4-034f-91be-6596e81ebf6d"] }, Open ]], Cell[CellGroupData[{ -Cell[425983, 10740, 2247, 64, 70, "Input",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], -Cell[428233, 10806, 572, 12, 70, "Message",ExpressionUUID->"922f5f31-888f-7340-96cd-65ecb8ea2e84"], -Cell[428808, 10820, 573, 12, 70, "Message",ExpressionUUID->"287b836d-7493-d44f-85b0-183d2793165c"], -Cell[429384, 10834, 578, 12, 70, "Message",ExpressionUUID->"962d88f7-2937-fe4b-ba97-3fe8099808d5"], -Cell[429965, 10848, 455, 10, 70, "Message",ExpressionUUID->"2ec951f6-2332-9241-84af-c7ac25232c2e"], -Cell[430423, 10860, 172, 3, 70, "Output",ExpressionUUID->"3eb28fb3-5fd6-4240-b231-e1f0fa53f4dc"] +Cell[337234, 8764, 6055, 185, 1319, "Input",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], +Cell[343292, 8951, 172, 3, 75, "Output",ExpressionUUID->"ccd4df45-d425-704c-b4a9-648b41b92e77"] }, Open ]], Cell[CellGroupData[{ -Cell[430632, 10868, 2221, 64, 70, "Input",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], -Cell[432856, 10934, 570, 12, 70, "Message",ExpressionUUID->"8fc71a81-55ed-5940-a6a0-1fa4e0c6425a"], -Cell[433429, 10948, 573, 12, 70, "Message",ExpressionUUID->"001b2f06-491c-6c4f-881b-1d7c12c1b14f"], -Cell[434005, 10962, 578, 12, 70, "Message",ExpressionUUID->"865c0491-32b6-3549-83ec-bdf42c3a31aa"], -Cell[434586, 10976, 455, 10, 70, "Message",ExpressionUUID->"3566013f-7b44-504c-95a5-32d3ac2ece3d"], -Cell[435044, 10988, 172, 3, 70, "Output",ExpressionUUID->"9cc3c720-52c0-b040-a0b4-75ff2aab4396"] +Cell[343501, 8959, 368, 9, 94, "Input",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], +Cell[343872, 8970, 170, 3, 75, "Output",ExpressionUUID->"1ebb6633-805d-cf47-abbc-564ac9bf2374"] }, Open ]], Cell[CellGroupData[{ -Cell[435253, 10996, 2221, 64, 70, "Input",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], -Cell[437477, 11062, 572, 12, 70, "Message",ExpressionUUID->"bc9996c1-a929-5b41-9541-f607e96932b8"], -Cell[438052, 11076, 575, 12, 70, "Message",ExpressionUUID->"eb28c83b-0aac-8d4e-a729-f978b41e689a"], -Cell[438630, 11090, 578, 12, 70, "Message",ExpressionUUID->"70b030cf-db8c-c440-8526-b10f71bb72b3"], -Cell[439211, 11104, 455, 10, 70, "Message",ExpressionUUID->"4d72b001-01d6-d944-9c97-6d0d7d2eccbb"], -Cell[439669, 11116, 173, 3, 70, "Output",ExpressionUUID->"c15d23fa-1bed-9640-940a-c33e3a830230"] +Cell[344079, 8978, 6122, 187, 1319, "Input",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], +Cell[350204, 9167, 175, 3, 75, "Output",ExpressionUUID->"a3a95ff2-cddf-6a4c-ac06-8cc3fd5707bc"] }, Open ]], Cell[CellGroupData[{ -Cell[439879, 11124, 213, 6, 70, "Input",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"], -Cell[440095, 11132, 172, 3, 70, "Output",ExpressionUUID->"2d0467ed-c049-384d-ae20-12fc79688cfb"] +Cell[350416, 9175, 368, 9, 94, "Input",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], +Cell[350787, 9186, 169, 3, 75, "Output",ExpressionUUID->"53071608-cf53-7441-9033-6c9cf2e7fa8e"] }, Open ]], -Cell[440282, 11138, 245, 5, 70, "Input",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"], Cell[CellGroupData[{ -Cell[440552, 11147, 558, 19, 70, "Input",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], -Cell[441113, 11168, 173, 3, 70, "Output",ExpressionUUID->"26c56722-6e97-cb4f-b35b-a00d42f1d8f6"] +Cell[350993, 9194, 2663, 88, 746, "Input",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], +Cell[353659, 9284, 173, 3, 75, "Output",ExpressionUUID->"547b87cc-d628-4d49-8e04-72542aa7650e"] }, Open ]], Cell[CellGroupData[{ -Cell[441323, 11176, 170, 5, 70, "Input",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], -Cell[441496, 11183, 171, 3, 70, "Output",ExpressionUUID->"7e7edb0d-1306-d742-8b32-e7c6dc694892"] +Cell[353869, 9292, 2603, 85, 746, "Input",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], +Cell[356475, 9379, 171, 3, 75, "Output",ExpressionUUID->"a8edf49c-9c61-9e4b-9fa8-4de409daba96"] }, Open ]], Cell[CellGroupData[{ -Cell[441704, 11191, 181, 5, 70, "Input",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], -Cell[441888, 11198, 173, 3, 70, "Output",ExpressionUUID->"e5353287-a717-554a-9c6b-1021438b30ff"] +Cell[356683, 9387, 3712, 118, 982, "Input",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], +Cell[360398, 9507, 171, 3, 75, "Output",ExpressionUUID->"3584cc50-41a2-ae4b-af54-859d095b0154"] }, Open ]], Cell[CellGroupData[{ -Cell[442098, 11206, 6055, 185, 70, "Input",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], -Cell[448156, 11393, 175, 3, 70, "Output",ExpressionUUID->"ed4bd4f3-e1cc-fa47-b5b5-475b6e581b1f"] +Cell[360606, 9515, 2052, 59, 484, "Input",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], +Cell[362661, 9576, 572, 12, 166, "Message",ExpressionUUID->"d59869d2-8577-0547-8448-230bc5a4ac5e"], +Cell[363236, 9590, 573, 12, 166, "Message",ExpressionUUID->"844f4204-3100-6d45-b5d2-238cc22b8006"], +Cell[363812, 9604, 578, 12, 166, "Message",ExpressionUUID->"f91c55eb-7b3d-3340-b869-4269b99a071c"], +Cell[364393, 9618, 457, 10, 47, "Message",ExpressionUUID->"efd89e15-8a66-4047-aee7-4fb3607a30a7"], +Cell[364853, 9630, 172, 3, 75, "Output",ExpressionUUID->"e68f2098-b3f7-6745-819f-009e252dd442"] }, Open ]], Cell[CellGroupData[{ -Cell[448368, 11401, 368, 9, 70, "Input",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], -Cell[448739, 11412, 170, 3, 70, "Output",ExpressionUUID->"0c9f07a0-dfdf-6e41-964a-0bcdc0cbcb45"] +Cell[365062, 9638, 2054, 59, 484, "Input",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], +Cell[367119, 9699, 572, 12, 166, "Message",ExpressionUUID->"feb3ed0a-8d45-dd4c-a945-407106f88295"], +Cell[367694, 9713, 575, 12, 166, "Message",ExpressionUUID->"d5a6c2e7-2143-1843-8d40-686107f6aa27"], +Cell[368272, 9727, 576, 12, 166, "Message",ExpressionUUID->"a15d89dd-0dfc-c845-aec3-fe7d60156e1f"], +Cell[368851, 9741, 457, 10, 47, "Message",ExpressionUUID->"0f9408e4-b654-4a40-9b38-655b18398efc"], +Cell[369311, 9753, 170, 3, 75, "Output",ExpressionUUID->"f72e3d82-4d19-7143-9513-38a15cee4d51"] }, Open ]], Cell[CellGroupData[{ -Cell[448946, 11420, 6122, 187, 70, "Input",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], -Cell[455071, 11609, 175, 3, 70, "Output",ExpressionUUID->"579eace1-979d-7347-a36f-c1fefbf459f5"] +Cell[369518, 9761, 2030, 55, 404, "Input",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], +Cell[371551, 9818, 20377, 384, 531, "Output",ExpressionUUID->"02187549-f2f0-9c4d-81fc-d12919ea7802"] }, Open ]], Cell[CellGroupData[{ -Cell[455283, 11617, 368, 9, 70, "Input",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], -Cell[455654, 11628, 172, 3, 70, "Output",ExpressionUUID->"0225baf1-4541-ed4d-8528-13926fef86cd"] +Cell[391965, 10207, 2118, 60, 546, "Input",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], +Cell[394086, 10269, 499, 11, 129, "Message",ExpressionUUID->"75033ea5-32d5-4445-bfb0-a981507a2e9a"], +Cell[394588, 10282, 504, 11, 129, "Message",ExpressionUUID->"bc53c85b-e7c9-be4a-8ed4-30975f08af5c"], +Cell[395095, 10295, 507, 11, 129, "Message",ExpressionUUID->"e09d101b-c5d3-424f-aab9-c5788f3b9ef6"], +Cell[395605, 10308, 455, 10, 47, "Message",ExpressionUUID->"28f777a6-eb27-df49-a698-bd7806baa94c"], +Cell[396063, 10320, 22381, 415, 528, "Output",ExpressionUUID->"cd997d80-b342-8b4c-95c9-b33408882f73"] }, Open ]], +Cell[418459, 10738, 174, 3, 66, "Input",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], +Cell[418636, 10743, 209, 5, 66, "Input",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"], Cell[CellGroupData[{ -Cell[455863, 11636, 2663, 88, 70, "Input",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], -Cell[458529, 11726, 173, 3, 70, "Output",ExpressionUUID->"f7c789e7-838d-b443-a597-00e69e7c3611"] +Cell[418870, 10752, 1616, 48, 221, "Input",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], +Cell[420489, 10802, 594, 12, 166, "Message",ExpressionUUID->"96d01a47-7c9a-1944-8904-f1788b2f0a8a"], +Cell[421086, 10816, 594, 12, 166, "Message",ExpressionUUID->"fee09e7b-7835-394b-93fe-35ddd26f69d1"], +Cell[421683, 10830, 598, 12, 166, "Message",ExpressionUUID->"fc12fc14-afc1-0a48-8829-94d858477ec4"], +Cell[422284, 10844, 457, 10, 47, "Message",ExpressionUUID->"41b1346d-6d7d-5d4d-9b1a-88cde3361cf3"], +Cell[422744, 10856, 171, 3, 75, "Output",ExpressionUUID->"0bbffe2c-809c-1149-a08f-e3342cda31a0"] }, Open ]], Cell[CellGroupData[{ -Cell[458739, 11734, 2603, 85, 70, "Input",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], -Cell[461345, 11821, 171, 3, 70, "Output",ExpressionUUID->"fc2bf760-d110-cb46-bd02-e934de9fd4f9"] +Cell[422952, 10864, 2247, 64, 472, "Input",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], +Cell[425202, 10930, 572, 12, 166, "Message",ExpressionUUID->"922f5f31-888f-7340-96cd-65ecb8ea2e84"], +Cell[425777, 10944, 573, 12, 166, "Message",ExpressionUUID->"287b836d-7493-d44f-85b0-183d2793165c"], +Cell[426353, 10958, 578, 12, 166, "Message",ExpressionUUID->"962d88f7-2937-fe4b-ba97-3fe8099808d5"], +Cell[426934, 10972, 455, 10, 47, "Message",ExpressionUUID->"2ec951f6-2332-9241-84af-c7ac25232c2e"], +Cell[427392, 10984, 172, 3, 75, "Output",ExpressionUUID->"3eb28fb3-5fd6-4240-b231-e1f0fa53f4dc"] }, Open ]], Cell[CellGroupData[{ -Cell[461553, 11829, 3712, 118, 70, "Input",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], -Cell[465268, 11949, 171, 3, 70, "Output",ExpressionUUID->"4304216c-b250-ab48-915e-b844e71a70f1"] +Cell[427601, 10992, 2221, 64, 610, "Input",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], +Cell[429825, 11058, 570, 12, 166, "Message",ExpressionUUID->"8fc71a81-55ed-5940-a6a0-1fa4e0c6425a"], +Cell[430398, 11072, 573, 12, 166, "Message",ExpressionUUID->"001b2f06-491c-6c4f-881b-1d7c12c1b14f"], +Cell[430974, 11086, 578, 12, 166, "Message",ExpressionUUID->"865c0491-32b6-3549-83ec-bdf42c3a31aa"], +Cell[431555, 11100, 455, 10, 47, "Message",ExpressionUUID->"3566013f-7b44-504c-95a5-32d3ac2ece3d"], +Cell[432013, 11112, 172, 3, 75, "Output",ExpressionUUID->"9cc3c720-52c0-b040-a0b4-75ff2aab4396"] }, Open ]], Cell[CellGroupData[{ -Cell[465476, 11957, 2052, 59, 70, "Input",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], -Cell[467531, 12018, 568, 12, 70, "Message",ExpressionUUID->"ef0dcda5-4eb3-fb4f-a7ba-cf9592c754fd"], -Cell[468102, 12032, 572, 12, 70, "Message",ExpressionUUID->"516128bc-41b4-3d49-8276-2fe73d5d437e"], -Cell[468677, 12046, 574, 12, 70, "Message",ExpressionUUID->"83555127-edb0-f34d-bade-abdcd60ad387"], -Cell[469254, 12060, 457, 10, 70, "Message",ExpressionUUID->"f8efe38f-0b83-4645-b574-b25c08902457"], -Cell[469714, 12072, 172, 3, 70, "Output",ExpressionUUID->"de5933f0-d736-3443-950a-4744d8abefe5"] +Cell[432222, 11120, 2221, 64, 610, "Input",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], +Cell[434446, 11186, 572, 12, 166, "Message",ExpressionUUID->"bc9996c1-a929-5b41-9541-f607e96932b8"], +Cell[435021, 11200, 575, 12, 166, "Message",ExpressionUUID->"eb28c83b-0aac-8d4e-a729-f978b41e689a"], +Cell[435599, 11214, 578, 12, 166, "Message",ExpressionUUID->"70b030cf-db8c-c440-8526-b10f71bb72b3"], +Cell[436180, 11228, 455, 10, 47, "Message",ExpressionUUID->"4d72b001-01d6-d944-9c97-6d0d7d2eccbb"], +Cell[436638, 11240, 173, 3, 75, "Output",ExpressionUUID->"c15d23fa-1bed-9640-940a-c33e3a830230"] }, Open ]], Cell[CellGroupData[{ -Cell[469923, 12080, 2054, 59, 70, "Input",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], -Cell[471980, 12141, 568, 12, 70, "Message",ExpressionUUID->"d0c389d2-1c6b-3a44-bd00-6e54df438015"], -Cell[472551, 12155, 572, 12, 70, "Message",ExpressionUUID->"3f819d0b-3458-d54e-bb8e-ed758b92949a"], -Cell[473126, 12169, 574, 12, 70, "Message",ExpressionUUID->"7403c575-bafd-2049-8d02-89293c73f7f1"], -Cell[473703, 12183, 457, 10, 70, "Message",ExpressionUUID->"29512b1b-8a2c-1740-986b-fb78e7d2ec89"], -Cell[474163, 12195, 171, 3, 70, "Output",ExpressionUUID->"686785b6-8c83-3e43-88fb-689383b13a2d"] +Cell[436848, 11248, 213, 6, 106, "Input",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"], +Cell[437064, 11256, 172, 3, 75, "Output",ExpressionUUID->"2d0467ed-c049-384d-ae20-12fc79688cfb"] }, Open ]], +Cell[437251, 11262, 245, 5, 66, "Input",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"], Cell[CellGroupData[{ -Cell[474371, 12203, 2030, 55, 70, "Input",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], -Cell[476404, 12260, 19960, 375, 70, "Output",ExpressionUUID->"9eb47740-dc4f-3248-80e4-ef19d916a0ad"] +Cell[437521, 11271, 558, 19, 118, "Input",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], +Cell[438082, 11292, 173, 3, 75, "Output",ExpressionUUID->"26c56722-6e97-cb4f-b35b-a00d42f1d8f6"] }, Open ]], Cell[CellGroupData[{ -Cell[496401, 12640, 2118, 60, 70, "Input",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], -Cell[498522, 12702, 496, 11, 70, "Message",ExpressionUUID->"6bc1b8c6-3100-6640-9985-3abfd43de799"], -Cell[499021, 12715, 501, 11, 70, "Message",ExpressionUUID->"82e13dda-210b-a94d-9e1d-a821db42ab6b"], -Cell[499525, 12728, 505, 11, 70, "Message",ExpressionUUID->"9d37688a-c69d-ed49-bce7-cf0090e0ecb8"], -Cell[500033, 12741, 455, 10, 70, "Message",ExpressionUUID->"4e87d0d8-b47a-ef47-85af-16467b219f50"], -Cell[500491, 12753, 21721, 403, 70, "Output",ExpressionUUID->"6974e3c4-9b35-2f4b-97bf-745f60f533f8"] +Cell[438292, 11300, 170, 5, 125, "Input",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], +Cell[438465, 11307, 171, 3, 75, "Output",ExpressionUUID->"7e7edb0d-1306-d742-8b32-e7c6dc694892"] }, Open ]], -Cell[522227, 13159, 181, 3, 70, "Input",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], -Cell[522411, 13164, 207, 5, 70, "Input",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"], Cell[CellGroupData[{ -Cell[522643, 13173, 1616, 48, 70, "Input",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], -Cell[524262, 13223, 589, 12, 70, "Message",ExpressionUUID->"8906bbab-e37b-4b4c-898f-52bfc96dde7b"], -Cell[524854, 13237, 588, 12, 70, "Message",ExpressionUUID->"6ae14bce-ec42-7f4d-9914-0630eea4cdf9"], -Cell[525445, 13251, 594, 12, 70, "Message",ExpressionUUID->"7e98a506-896d-0d47-8502-b83685d9a60c"], -Cell[526042, 13265, 455, 10, 70, "Message",ExpressionUUID->"400e66c2-06b5-814e-a2be-19c4c75ccbf0"], -Cell[526500, 13277, 173, 3, 70, "Output",ExpressionUUID->"f202ab02-e319-144b-97e8-ae603395b346"] +Cell[438673, 11315, 181, 5, 97, "Input",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], +Cell[438857, 11322, 173, 3, 75, "Output",ExpressionUUID->"e5353287-a717-554a-9c6b-1021438b30ff"] }, Open ]], Cell[CellGroupData[{ -Cell[526710, 13285, 2246, 64, 70, "Input",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], -Cell[528959, 13351, 566, 12, 70, "Message",ExpressionUUID->"2d7e67d1-8691-e348-9ca8-caa63b533102"], -Cell[529528, 13365, 570, 12, 70, "Message",ExpressionUUID->"f0eb6f1d-f621-8647-b6a6-8bf673e41ebb"], -Cell[530101, 13379, 574, 12, 70, "Message",ExpressionUUID->"64fda82a-0f74-2743-89a8-afd600de203a"], -Cell[530678, 13393, 456, 10, 70, "Message",ExpressionUUID->"971a319d-8ab4-464d-a08e-f97fe8d4c0e1"], -Cell[531137, 13405, 171, 3, 70, "Output",ExpressionUUID->"b3c37f48-9827-884f-94d9-1f76aed7bfaa"] +Cell[439067, 11330, 6055, 185, 1319, "Input",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], +Cell[445125, 11517, 175, 3, 75, "Output",ExpressionUUID->"ed4bd4f3-e1cc-fa47-b5b5-475b6e581b1f"] }, Open ]], Cell[CellGroupData[{ -Cell[531345, 13413, 2221, 64, 70, "Input",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], -Cell[533569, 13479, 569, 12, 70, "Message",ExpressionUUID->"1040ba10-c733-df44-b556-0998dc0163c9"], -Cell[534141, 13493, 571, 12, 70, "Message",ExpressionUUID->"e451b852-84c2-a941-b1d7-812ecad4750e"], -Cell[534715, 13507, 575, 12, 70, "Message",ExpressionUUID->"a15e0c9d-d634-6e47-94c5-2ce40fcb4d52"], -Cell[535293, 13521, 458, 10, 70, "Message",ExpressionUUID->"a3ddc92b-b5c9-5e46-be44-6165430ec35f"], -Cell[535754, 13533, 171, 3, 70, "Output",ExpressionUUID->"978bf39b-9d1f-a54f-a6de-a2e3d269e126"] +Cell[445337, 11525, 368, 9, 94, "Input",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], +Cell[445708, 11536, 170, 3, 75, "Output",ExpressionUUID->"0c9f07a0-dfdf-6e41-964a-0bcdc0cbcb45"] }, Open ]], Cell[CellGroupData[{ -Cell[535962, 13541, 2223, 64, 70, "Input",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], -Cell[538188, 13607, 567, 12, 70, "Message",ExpressionUUID->"57c74c2a-63a6-9846-b3f7-1a08cebb8172"], -Cell[538758, 13621, 571, 12, 70, "Message",ExpressionUUID->"2e606101-b73e-f443-8324-5b1c64dcaa7f"], -Cell[539332, 13635, 573, 12, 70, "Message",ExpressionUUID->"4da9173d-4ced-1e49-83f6-426d72ec8cf3"], -Cell[539908, 13649, 456, 10, 70, "Message",ExpressionUUID->"a2dba8d9-69c9-cb46-bbb4-f7192fe3e138"], -Cell[540367, 13661, 173, 3, 70, "Output",ExpressionUUID->"12fa1803-dc21-9349-8d62-d5d5f0fa85c6"] +Cell[445915, 11544, 6122, 187, 1319, "Input",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], +Cell[452040, 11733, 175, 3, 75, "Output",ExpressionUUID->"579eace1-979d-7347-a36f-c1fefbf459f5"] }, Open ]], Cell[CellGroupData[{ -Cell[540577, 13669, 211, 6, 70, "Input",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], -Cell[540791, 13677, 174, 3, 70, "Output",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"] -}, Open ]] +Cell[452252, 11741, 368, 9, 94, "Input",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], +Cell[452623, 11752, 172, 3, 75, "Output",ExpressionUUID->"0225baf1-4541-ed4d-8528-13926fef86cd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[452832, 11760, 2663, 88, 746, "Input",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], +Cell[455498, 11850, 173, 3, 75, "Output",ExpressionUUID->"f7c789e7-838d-b443-a597-00e69e7c3611"] +}, Open ]], +Cell[CellGroupData[{ +Cell[455708, 11858, 2603, 85, 746, "Input",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], +Cell[458314, 11945, 171, 3, 75, "Output",ExpressionUUID->"fc2bf760-d110-cb46-bd02-e934de9fd4f9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[458522, 11953, 3712, 118, 982, "Input",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], +Cell[462237, 12073, 171, 3, 75, "Output",ExpressionUUID->"4304216c-b250-ab48-915e-b844e71a70f1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[462445, 12081, 2052, 59, 484, "Input",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], +Cell[464500, 12142, 568, 12, 166, "Message",ExpressionUUID->"ef0dcda5-4eb3-fb4f-a7ba-cf9592c754fd"], +Cell[465071, 12156, 572, 12, 166, "Message",ExpressionUUID->"516128bc-41b4-3d49-8276-2fe73d5d437e"], +Cell[465646, 12170, 574, 12, 166, "Message",ExpressionUUID->"83555127-edb0-f34d-bade-abdcd60ad387"], +Cell[466223, 12184, 457, 10, 47, "Message",ExpressionUUID->"f8efe38f-0b83-4645-b574-b25c08902457"], +Cell[466683, 12196, 172, 3, 75, "Output",ExpressionUUID->"de5933f0-d736-3443-950a-4744d8abefe5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[466892, 12204, 2054, 59, 484, "Input",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], +Cell[468949, 12265, 568, 12, 166, "Message",ExpressionUUID->"d0c389d2-1c6b-3a44-bd00-6e54df438015"], +Cell[469520, 12279, 572, 12, 166, "Message",ExpressionUUID->"3f819d0b-3458-d54e-bb8e-ed758b92949a"], +Cell[470095, 12293, 574, 12, 166, "Message",ExpressionUUID->"7403c575-bafd-2049-8d02-89293c73f7f1"], +Cell[470672, 12307, 457, 10, 47, "Message",ExpressionUUID->"29512b1b-8a2c-1740-986b-fb78e7d2ec89"], +Cell[471132, 12319, 171, 3, 75, "Output",ExpressionUUID->"686785b6-8c83-3e43-88fb-689383b13a2d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[471340, 12327, 2030, 55, 404, "Input",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], +Cell[473373, 12384, 19960, 375, 531, "Output",ExpressionUUID->"9eb47740-dc4f-3248-80e4-ef19d916a0ad"] +}, Open ]], +Cell[CellGroupData[{ +Cell[493370, 12764, 2118, 60, 546, "Input",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], +Cell[495491, 12826, 496, 11, 129, "Message",ExpressionUUID->"6bc1b8c6-3100-6640-9985-3abfd43de799"], +Cell[495990, 12839, 501, 11, 129, "Message",ExpressionUUID->"82e13dda-210b-a94d-9e1d-a821db42ab6b"], +Cell[496494, 12852, 505, 11, 129, "Message",ExpressionUUID->"9d37688a-c69d-ed49-bce7-cf0090e0ecb8"], +Cell[497002, 12865, 455, 10, 47, "Message",ExpressionUUID->"4e87d0d8-b47a-ef47-85af-16467b219f50"], +Cell[497460, 12877, 21721, 403, 523, "Output",ExpressionUUID->"6974e3c4-9b35-2f4b-97bf-745f60f533f8"] +}, Open ]], +Cell[519196, 13283, 181, 3, 66, "Input",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], +Cell[519380, 13288, 207, 5, 66, "Input",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"], +Cell[CellGroupData[{ +Cell[519612, 13297, 1616, 48, 221, "Input",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], +Cell[521231, 13347, 589, 12, 166, "Message",ExpressionUUID->"8906bbab-e37b-4b4c-898f-52bfc96dde7b"], +Cell[521823, 13361, 588, 12, 166, "Message",ExpressionUUID->"6ae14bce-ec42-7f4d-9914-0630eea4cdf9"], +Cell[522414, 13375, 594, 12, 166, "Message",ExpressionUUID->"7e98a506-896d-0d47-8502-b83685d9a60c"], +Cell[523011, 13389, 455, 10, 47, "Message",ExpressionUUID->"400e66c2-06b5-814e-a2be-19c4c75ccbf0"], +Cell[523469, 13401, 173, 3, 75, "Output",ExpressionUUID->"f202ab02-e319-144b-97e8-ae603395b346"] +}, Open ]], +Cell[CellGroupData[{ +Cell[523679, 13409, 2246, 64, 472, "Input",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], +Cell[525928, 13475, 566, 12, 166, "Message",ExpressionUUID->"2d7e67d1-8691-e348-9ca8-caa63b533102"], +Cell[526497, 13489, 570, 12, 166, "Message",ExpressionUUID->"f0eb6f1d-f621-8647-b6a6-8bf673e41ebb"], +Cell[527070, 13503, 574, 12, 166, "Message",ExpressionUUID->"64fda82a-0f74-2743-89a8-afd600de203a"], +Cell[527647, 13517, 456, 10, 47, "Message",ExpressionUUID->"971a319d-8ab4-464d-a08e-f97fe8d4c0e1"], +Cell[528106, 13529, 171, 3, 75, "Output",ExpressionUUID->"b3c37f48-9827-884f-94d9-1f76aed7bfaa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[528314, 13537, 2221, 64, 610, "Input",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], +Cell[530538, 13603, 569, 12, 166, "Message",ExpressionUUID->"1040ba10-c733-df44-b556-0998dc0163c9"], +Cell[531110, 13617, 571, 12, 166, "Message",ExpressionUUID->"e451b852-84c2-a941-b1d7-812ecad4750e"], +Cell[531684, 13631, 575, 12, 166, "Message",ExpressionUUID->"a15e0c9d-d634-6e47-94c5-2ce40fcb4d52"], +Cell[532262, 13645, 458, 10, 47, "Message",ExpressionUUID->"a3ddc92b-b5c9-5e46-be44-6165430ec35f"], +Cell[532723, 13657, 171, 3, 75, "Output",ExpressionUUID->"978bf39b-9d1f-a54f-a6de-a2e3d269e126"] +}, Open ]], +Cell[CellGroupData[{ +Cell[532931, 13665, 2223, 64, 610, "Input",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], +Cell[535157, 13731, 567, 12, 166, "Message",ExpressionUUID->"57c74c2a-63a6-9846-b3f7-1a08cebb8172"], +Cell[535727, 13745, 571, 12, 166, "Message",ExpressionUUID->"2e606101-b73e-f443-8324-5b1c64dcaa7f"], +Cell[536301, 13759, 573, 12, 166, "Message",ExpressionUUID->"4da9173d-4ced-1e49-83f6-426d72ec8cf3"], +Cell[536877, 13773, 456, 10, 47, "Message",ExpressionUUID->"a2dba8d9-69c9-cb46-bbb4-f7192fe3e138"], +Cell[537336, 13785, 173, 3, 75, "Output",ExpressionUUID->"12fa1803-dc21-9349-8d62-d5d5f0fa85c6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[537546, 13793, 211, 6, 106, "Input",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], +Cell[537760, 13801, 174, 3, 75, "Output",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"] +}, Open ]], +Cell[537949, 13807, 115, 1, 66, "Input",ExpressionUUID->"527555fe-54f3-44c3-a217-b0e3a0006c5f"] } ] *) diff --git a/Pu240_798-811_TitovAA/168-72_h_Pu240_22-23/h_168-72_Pu240_22-23_osc_Qw2.nb b/Pu240_798-811_TitovAA/168-72_h_Pu240_22-23/h_168-72_Pu240_22-23_osc_Qw2.nb index a320d64..1e16a66 100644 --- a/Pu240_798-811_TitovAA/168-72_h_Pu240_22-23/h_168-72_Pu240_22-23_osc_Qw2.nb +++ b/Pu240_798-811_TitovAA/168-72_h_Pu240_22-23/h_168-72_Pu240_22-23_osc_Qw2.nb @@ -3,25 +3,4876 @@ (*** 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[ 578146, 14304] +NotebookOptionsPosition[ 538408, 13674] +NotebookOutlinePosition[ 538819, 13691] +CellTagsIndexPosition[ 538776, 13688] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f1", "="}]], "Input", + RowBox[{"d", "=", "1.9"}]], "Input", CellChangeTimes->{ - 3.9918496921150837`*^9},ExpressionUUID->"ede64bc2-06f7-8743-a0a6-\ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.9940735873936653`*^9, 3.9940735896443777`*^9}, { + 3.994075218023417*^9, 3.994075221411705*^9}}, + CellLabel-> + "In[106]:=",ExpressionUUID->"daebe3bc-0a65-4079-8cfc-6ea289f788d6"], + +Cell[BoxData["1.9`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, {3.9940735644974327`*^9, 3.994073590895896*^9}, { + 3.994075171996416*^9, 3.994075180507247*^9}, {3.994075219377726*^9, + 3.9940752234153214`*^9}}, + CellLabel-> + "Out[106]=",ExpressionUUID->"21c22a00-b37e-4bd9-ad8d-9393c631a332"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.9940732811688833`*^9, 3.994073289502289*^9}}, + CellLabel-> + "In[107]:=",ExpressionUUID->"c9be71d2-85a6-40f2-8207-1b3ec49e9601"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, {3.994073564560362*^9, 3.994073590977919*^9}, + 3.994075180702458*^9, 3.9940752234546824`*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"98aea7bb-d7d5-49b8-83ca-afde5c6cbccd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "168"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.994073284506165*^9, 3.994073287626708*^9}}, + CellLabel-> + "In[108]:=",ExpressionUUID->"64f35230-ab8b-405f-933d-6ee357ab7191"], + +Cell[BoxData["168"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, {3.994073564571506*^9, 3.994073590992278*^9}, + 3.994075180712758*^9, 3.9940752234670067`*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"3fa24ae8-66d7-47dc-8600-bc16115b0358"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel-> + "In[109]:=",ExpressionUUID->"d60d011a-0037-4dcd-8724-36e75322ced0"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, {3.994073564582589*^9, 3.994073590996417*^9}, + 3.994075180723978*^9, 3.994075223478387*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"a8c69135-ce71-48a6-8453-3f705b383930"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel-> + "In[110]:=",ExpressionUUID->"51180a4e-12f3-4f9b-82d6-eadfd3fad407"], + +Cell[BoxData["0.544`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, {3.994073564593708*^9, 3.994073591015129*^9}, + 3.994075180735317*^9, 3.994075223489546*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"8200c5eb-2591-43b0-802c-c83506e77139"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel-> + "In[111]:=",ExpressionUUID->"544454f5-81b1-4f9e-b85a-03bb8132b0cd"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, {3.994073564604851*^9, 3.9940735910271397`*^9}, + 3.9940751807454844`*^9, 3.994075223493987*^9}, + CellLabel-> + "Out[111]=",ExpressionUUID->"6f7a0d88-18fe-44fb-b0cf-88c0fb3b0a47"] +}, 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[112]:=",ExpressionUUID->"62e3cdda-a591-4586-af71-0f1e36fe7c76"], + +Cell[BoxData["6.400704089204199`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, {3.9940735646161203`*^9, 3.9940735910381737`*^9}, + 3.99407518075636*^9, 3.9940752235073977`*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"91474f3b-e14f-403c-b49e-fb1f621bf0b3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel-> + "In[113]:=",ExpressionUUID->"af66d9f4-ed34-47a1-a8a0-6b2570d105f7"], + +Cell[BoxData["4.825794469480417`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, {3.994073564627458*^9, 3.9940735910486517`*^9}, + 3.994075180767749*^9, 3.9940752235185337`*^9}, + CellLabel-> + "Out[113]=",ExpressionUUID->"38b55147-596e-4fbe-a2c1-a98bb6b5a60e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.8877902834"}]], "Input", + CellChangeTimes->{3.991799283179735*^9, 3.994073298855084*^9}, + CellLabel-> + "In[114]:=",ExpressionUUID->"34c1f49a-253a-4945-9de7-d0c20a1110c6"], + +Cell[BoxData["0.8877902834`"], "Output", + CellChangeTimes->{{3.99407356463848*^9, 3.994073591058733*^9}, + 3.994075180779163*^9, 3.994075223529882*^9}, + CellLabel-> + "Out[114]=",ExpressionUUID->"3cbb7bac-b29e-4bb0-bad9-97b26af72440"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.3862529089"}]], "Input", + CellChangeTimes->{3.991799280663351*^9, 3.994073304321521*^9}, + CellLabel-> + "In[115]:=",ExpressionUUID->"0b83963d-c65a-46e4-b3a6-9fc479afce6e"], + +Cell[BoxData["0.3862529089`"], "Output", + CellChangeTimes->{{3.9940735646497602`*^9, 3.994073591068905*^9}, + 3.994075180790642*^9, 3.994075223541339*^9}, + CellLabel-> + "Out[115]=",ExpressionUUID->"2cd0660a-11e7-46ad-b903-3a40b4418caf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel-> + "In[116]:=",ExpressionUUID->"4993e251-725c-46e3-b066-ac229fbe2493"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, {3.994073564660372*^9, 3.994073591079844*^9}, + 3.9940751808023157`*^9, 3.99407522355291*^9}, + CellLabel-> + "Out[116]=",ExpressionUUID->"72b31e26-d112-4a08-b996-fafcf5a48b98"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel-> + "In[117]:=",ExpressionUUID->"826bfb63-0b0a-453a-921e-e6b2d4370dd4"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, {3.994073564670796*^9, 3.994073591090024*^9}, + 3.994075180813775*^9, 3.994075223564582*^9}, + CellLabel-> + "Out[117]=",ExpressionUUID->"53d30ef0-ae30-4eb8-940f-fbd57036bf1a"] +}, 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[118]:=",ExpressionUUID->"3f161619-f839-43fe-b0e6-8c0ad1e1e9d9"], + +Cell[BoxData["2.2780057225092705`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, {3.9940735646817017`*^9, 3.994073591101307*^9}, + 3.9940751808204927`*^9, 3.99407522357547*^9}, + CellLabel-> + "Out[118]=",ExpressionUUID->"2456a0fa-4cd5-4675-ae55-0f86483efb68"] +}, 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[119]:=",ExpressionUUID->"bdfe5776-e403-47c4-9cd7-2317d7cca590"], + +Cell[BoxData["1.4218629228610074`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, {3.9940735646923637`*^9, 3.994073591111409*^9}, + 3.994075180833333*^9, 3.99407522358539*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"d2f261b2-2b12-4682-b78f-2659b83e699e"] +}, 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[120]:=",ExpressionUUID->"d9bbdd6f-f5f1-4a71-aaa1-5c0906195453"], + +Cell[BoxData["0.4156604021030056`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, {3.994073564703178*^9, 3.99407359112132*^9}, + 3.994075180844792*^9, 3.994075223596579*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"59d933d9-f38d-44ab-9f2d-53a07374f3be"] +}, 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[121]:=",ExpressionUUID->"3f419dba-9cf0-495f-bebf-693523759bd6"], + +Cell[BoxData[ + RowBox[{"-", "0.08656844775361539`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, {3.994073564714039*^9, 3.994073591132222*^9}, + 3.994075180888361*^9, 3.994075223608573*^9}, + CellLabel-> + "Out[121]=",ExpressionUUID->"cf46ac6b-c191-4e68-98ac-cbade79d676c"] +}, 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[122]:=",ExpressionUUID->"7a84bee4-1cad-4121-a752-3a07a3b2fef3"], + +Cell[BoxData[ + RowBox[{"-", "0.5722877017893374`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, {3.9940735647250757`*^9, 3.994073591143152*^9}, + 3.994075180901285*^9, 3.994075223621201*^9}, + CellLabel-> + "Out[122]=",ExpressionUUID->"51c7302a-4041-4d4b-929a-a87cf67ab587"] +}, 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[123]:=",ExpressionUUID->"caa8e0cf-7fae-429f-8405-426d2e61f16e"], + +Cell[BoxData["0.7168396379251292`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, {3.994073564736117*^9, 3.994073591154641*^9}, + 3.9940751809127274`*^9, 3.994075223631315*^9}, + CellLabel-> + "Out[123]=",ExpressionUUID->"7b6ea78d-22c6-4832-85a3-fe0ae7bd5165"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel-> + "In[124]:=",ExpressionUUID->"1a647d6d-7f17-4053-95f8-e005d48fec17"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, {3.994073564745685*^9, 3.9940735911671133`*^9}, + 3.9940751809237967`*^9, 3.994075223641436*^9}, + CellLabel-> + "Out[124]=",ExpressionUUID->"35aea4e1-80d4-4f8b-b917-1ea1f9907ee0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel-> + "In[125]:=",ExpressionUUID->"b9eac5f9-d5af-4af2-bf13-f2a8ddf2daff"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, {3.994073564755136*^9, 3.994073591178863*^9}, + 3.9940751809343033`*^9, 3.9940752236530647`*^9}, + CellLabel-> + "Out[125]=",ExpressionUUID->"70594058-ca3c-4c9e-b4d6-69d2a70d0293"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel-> + "In[126]:=",ExpressionUUID->"d43b5a83-7f8f-4754-a7af-5d7bb52dcd98"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, {3.9940735647648563`*^9, 3.994073591190179*^9}, + 3.9940751809451323`*^9, 3.994075223664682*^9}, + CellLabel-> + "Out[126]=",ExpressionUUID->"7e37a310-378f-498a-b9ad-337120337443"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel-> + "In[127]:=",ExpressionUUID->"ea564721-4283-464e-ba73-b321bd36f74a"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, {3.994073564774688*^9, 3.994073591201717*^9}, + 3.994075180956657*^9, 3.994075223675436*^9}, + CellLabel-> + "Out[127]=",ExpressionUUID->"5d1507b1-aa96-43a3-a5f6-7212eadf6ba8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel-> + "In[128]:=",ExpressionUUID->"59273c13-f1c9-40aa-9c3d-d6180fe2d761"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, {3.994073564784115*^9, 3.994073591213622*^9}, + 3.9940751809686193`*^9, 3.9940752236862583`*^9}, + CellLabel-> + "Out[128]=",ExpressionUUID->"66e7d2a3-520a-43c3-b438-2bf7e9cc416c"] +}, 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.994073317560268*^9, 3.994073317727027*^9}}, + CellLabel-> + "In[129]:=",ExpressionUUID->"523a5e67-ce58-496f-992a-d482c0c67570"], + +Cell[BoxData["66"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, {3.994073564793541*^9, 3.994073591224018*^9}, + 3.994075180980678*^9, 3.994075223697234*^9}, + CellLabel-> + "Out[129]=",ExpressionUUID->"3a7b1ce7-00b4-4a20-a6fb-6c673d2361e1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, {3.9940733207460938`*^9, 3.994073320804184*^9}}, + CellLabel-> + "In[130]:=",ExpressionUUID->"c3373745-d99e-4638-a690-443d6521c14e"], + +Cell[BoxData["28"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, {3.9940735648031883`*^9, 3.9940735912353287`*^9}, + 3.9940751809920683`*^9, 3.994075223707429*^9}, + CellLabel-> + "Out[130]=",ExpressionUUID->"30526edf-d4fc-4278-9fba-f51af3da31ac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel-> + "In[131]:=",ExpressionUUID->"fa431e54-ba79-4694-a497-8d6afa2bca3a"], + +Cell[BoxData["72"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, {3.99407356481284*^9, 3.994073591246372*^9}, + 3.994075181003516*^9, 3.994075223717374*^9}, + CellLabel-> + "Out[131]=",ExpressionUUID->"94e1cded-8e44-464f-ab86-e616f51307cf"] +}, 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[132]:=",ExpressionUUID->"9565be1c-f08f-4108-988e-7de99bc60af0"], + +Cell[BoxData["0.10999999999999999`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, {3.994073564822513*^9, 3.9940735912565413`*^9}, + 3.994075181014969*^9, 3.994075223727599*^9}, + CellLabel-> + "Out[132]=",ExpressionUUID->"5bff3cb7-a3ef-4a74-9004-7ad5fa20c11c"] +}, 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[133]:=",ExpressionUUID->"66041539-2752-4550-9be0-7d916925ff81"], + +Cell[BoxData[ + RowBox[{"-", "2.564285714285714`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, {3.994073564832857*^9, 3.994073591267404*^9}, + 3.9940751810260887`*^9, 3.9940752237376823`*^9}, + CellLabel-> + "Out[133]=",ExpressionUUID->"455c40ca-551f-4b8b-b6bc-2e3833f63585"] +}, 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[134]:=",ExpressionUUID->"cd0f5fe2-800f-432d-9e83-1e697ee9a749"], + +Cell[BoxData["17.427928477019236`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, {3.994073564842832*^9, 3.9940735912778807`*^9}, + 3.9940751810379477`*^9, 3.994075223748026*^9}, + CellLabel-> + "Out[134]=",ExpressionUUID->"43c1c84b-06e2-4271-aea5-e03c3388b9ed"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel-> + "In[135]:=",ExpressionUUID->"abe18745-5483-42f0-8f72-2be9a2918b6c"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, {3.994073564851839*^9, 3.994073591288074*^9}, + 3.99407518104945*^9, 3.994075223758711*^9}, + CellLabel-> + "Out[135]=",ExpressionUUID->"71ca72f2-e79a-4c1c-aa3c-f413fa79053e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "2.155"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { + 3.994073341190873*^9, 3.994073342038845*^9}}, + CellLabel-> + "In[136]:=",ExpressionUUID->"c2fce426-14da-4dd7-aa62-bd47a0c8e81e"], + +Cell[BoxData["2.155`"], "Output", + CellChangeTimes->{{3.994073564860754*^9, 3.994073591298296*^9}, + 3.994075181060684*^9, 3.994075223775366*^9}, + CellLabel-> + "Out[136]=",ExpressionUUID->"bcd0e4cc-666f-4021-addc-a6660ebf4ae1"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel-> + "In[137]:=",ExpressionUUID->"be9b286b-d328-4901-b030-8baca6fe0c91"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.755"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.994073344618413*^9, 3.994073345759185*^9}}, + CellLabel-> + "In[138]:=",ExpressionUUID->"6f67c5bc-fc5e-4a19-9ba6-661e1984cc6f"], + +Cell[BoxData["0.755`"], "Output", + CellChangeTimes->{{3.994073564877489*^9, 3.994073591311125*^9}, + 3.9940751810754833`*^9, 3.9940752237900457`*^9}, + CellLabel-> + "Out[138]=",ExpressionUUID->"af56ada0-bdb5-4a1f-b234-614556f04c0d"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel-> + "In[139]:=",ExpressionUUID->"51491074-964c-4747-ac4a-2c86a9af3ca0"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "2.62"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.9940733478949413`*^9, 3.994073348567162*^9}}, + CellLabel-> + "In[140]:=",ExpressionUUID->"abacad17-87f9-4c57-97a5-4671695a11a6"], + +Cell[BoxData["2.62`"], "Output", + CellChangeTimes->{{3.994073564894133*^9, 3.9940735913232403`*^9}, + 3.994075181088438*^9, 3.994075223803163*^9}, + CellLabel-> + "Out[140]=",ExpressionUUID->"f7c23d1e-5183-445d-92b9-64ec67ff307e"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel-> + "In[141]:=",ExpressionUUID->"875bf697-22dc-4f5d-a27c-14c908876b04"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.135"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, {3.99407335112987*^9, 3.9940733523562517`*^9}}, + CellLabel-> + "In[142]:=",ExpressionUUID->"da6f0fd0-5812-4b4b-9916-6b989c03e0cf"], + +Cell[BoxData["1.135`"], "Output", + CellChangeTimes->{{3.994073564911627*^9, 3.994073591335389*^9}, + 3.994075181101487*^9, 3.994075223815889*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"2794b3d5-20d7-4f7c-ab4a-e4f8eed926e0"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel-> + "In[143]:=",ExpressionUUID->"53b7c85f-c056-49a9-96fc-42d558804987"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.025"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, {3.994073355091783*^9, + 3.994073355935183*^9}}, + CellLabel-> + "In[144]:=",ExpressionUUID->"1db2f001-9463-4e12-96c5-ae91a21cb3fe"], + +Cell[BoxData["1.025`"], "Output", + CellChangeTimes->{{3.994073564928769*^9, 3.9940735913488693`*^9}, + 3.994075181114448*^9, 3.994075223832756*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"b1259f44-b67a-4079-bb7d-25648b5a9ead"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel-> + "In[145]:=",ExpressionUUID->"a0a4dc97-3f94-4533-ada5-8c75a92b85ef"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.575"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.994073359153013*^9, + 3.9940733600822906`*^9}}, + CellLabel-> + "In[146]:=",ExpressionUUID->"1e3960fc-6ad5-4f8e-9613-63b254df9637"], + +Cell[BoxData["0.575`"], "Output", + CellChangeTimes->{{3.994073564946273*^9, 3.99407359136164*^9}, + 3.9940751811274652`*^9, 3.9940752238459263`*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"10457894-2111-4a4d-a835-ef62811a5da7"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel-> + "In[147]:=",ExpressionUUID->"019295da-a9f5-45ef-8427-662c09336965"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "1.44"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, 3.994073366138835*^9, { + 3.994073396938322*^9, 3.994073398601803*^9}}, + CellLabel-> + "In[148]:=",ExpressionUUID->"3f6dcc07-9579-4cdd-9e77-eeaba01a3ec6"], + +Cell[BoxData["1.44`"], "Output", + CellChangeTimes->{{3.994073564964167*^9, 3.9940735913757553`*^9}, + 3.9940751811406727`*^9, 3.9940752238589993`*^9}, + CellLabel-> + "Out[148]=",ExpressionUUID->"2f560d87-8748-4d99-b2dd-3827572ef0cf"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel-> + "In[149]:=",ExpressionUUID->"f1ba4815-7e52-4e52-90bd-c3de3a670c60"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "0.645"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, {3.9940734006045856`*^9, 3.99407340214142*^9}}, + CellLabel-> + "In[150]:=",ExpressionUUID->"527dc628-63bd-4d40-8438-c83309fb5fb2"], + +Cell[BoxData["0.645`"], "Output", + CellChangeTimes->{{3.9940735649821672`*^9, 3.994073591389337*^9}, + 3.994075181153781*^9, 3.994075223871763*^9}, + CellLabel-> + "Out[150]=",ExpressionUUID->"e24cdd66-f49e-47be-ae56-dc72e1470b24"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel-> + "In[151]:=",ExpressionUUID->"6a017435-6ff3-46b2-ad75-25eed0695c2d"], + +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[152]:=",ExpressionUUID->"ffcd4fa8-0c62-4893-829a-b2d47c77774b"], + +Cell[BoxData["0.1377756020325425`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, {3.9940735650538073`*^9, 3.99407359143029*^9}, + 3.994075181231205*^9, 3.9940752239087954`*^9}, + CellLabel-> + "Out[152]=",ExpressionUUID->"0b9d49e6-a30d-4b8c-8e00-3961184d1bb5"] +}, 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[153]:=",ExpressionUUID->"f36bbb79-6a45-4206-8baf-12792cb72c87"], + +Cell[BoxData["7.524926889811008`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, {3.99407356508613*^9, 3.994073591458125*^9}, + 3.994075181264968*^9, 3.994075223937818*^9}, + CellLabel-> + "Out[153]=",ExpressionUUID->"6d4a23c5-3ce4-402b-8bd0-1959ed046e5c"] +}, 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[154]:=",ExpressionUUID->"95aff88c-658e-4f5b-80f5-3db601ed2749"], + +Cell[BoxData[ + RowBox[{"-", "14.084113046357718`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, {3.994073565118821*^9, 3.994073591484323*^9}, + 3.994075181298151*^9, 3.9940752239647293`*^9}, + CellLabel-> + "Out[154]=",ExpressionUUID->"eca866a4-1c10-4d29-b834-74713bda26c4"] +}, 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[155]:=",ExpressionUUID->"37bf501b-ffa0-415b-8b3a-99d38cbb6d3d"], + +Cell[BoxData[ + RowBox[{"-", "18.31263149263108`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, {3.9940735651553993`*^9, 3.994073591515855*^9}, + 3.9940751813370543`*^9, 3.994075223996374*^9}, + CellLabel-> + "Out[155]=",ExpressionUUID->"351fb5fa-1528-401f-a82c-f7e30459236c"] +}, 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[156]:=",ExpressionUUID->"1270cfbd-3842-4e0d-a9a0-36b7cce44817"], + +Cell[BoxData[ + RowBox[{"-", "53.236632839784775`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, {3.994073565191607*^9, 3.9940735915482073`*^9}, + 3.9940751813752813`*^9, 3.994075224029221*^9}, + CellLabel-> + "Out[156]=",ExpressionUUID->"9c3ed634-3c5e-4f4a-b34f-ae46791dfaae"] +}, 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[157]:=",ExpressionUUID->"a8bcd563-1baa-4b7b-8e44-e38af43df0ae"], + +Cell[BoxData[ + RowBox[{"-", "137.72173412227852`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, {3.9940735652337313`*^9, 3.9940735915861683`*^9}, + 3.9940751814204807`*^9, 3.99407522406466*^9}, + CellLabel-> + "Out[157]=",ExpressionUUID->"7c97beb6-4498-45de-bf83-743cb76c1d12"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel-> + "In[158]:=",ExpressionUUID->"a140ba0e-db9d-4a5f-87cd-7a41850ccd6a"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, {3.994073565247233*^9, 3.99407359159737*^9}, + 3.994075181435895*^9, 3.9940752240755796`*^9}, + CellLabel-> + "Out[158]=",ExpressionUUID->"3e98bbc9-69aa-49b2-b7c9-b656d17c71bf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel-> + "In[159]:=",ExpressionUUID->"25fa88a4-0889-4700-8d33-5086b86b7c7d"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, {3.994073565259305*^9, 3.994073591607201*^9}, + 3.9940751814462433`*^9, 3.994075224085256*^9}, + CellLabel-> + "Out[159]=",ExpressionUUID->"0bd414ed-9e05-4add-88dc-c25d03473898"] +}, 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[160]:=",ExpressionUUID->"f0e388d1-d839-4f03-8681-1ade3a9d54e1"], + +Cell[BoxData["109.03965674383026`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, {3.9940735652689238`*^9, 3.99407359161714*^9}, + 3.994075181457575*^9, 3.994075224089169*^9}, + CellLabel-> + "Out[160]=",ExpressionUUID->"5a762686-ecc7-44d2-b8b1-6cbc6cbf9309"] +}, 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[161]:=",ExpressionUUID->"0c30ee0a-e809-4998-9dba-cb42efcd0b63"], + +Cell[BoxData[ + RowBox[{"-", "96.23297652944373`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, {3.9940735652791967`*^9, 3.994073591627187*^9}, + 3.994075181468134*^9, 3.9940752240986977`*^9}, + CellLabel-> + "Out[161]=",ExpressionUUID->"814d79a2-0895-4f5a-9499-c741488755d5"] +}, 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[162]:=",ExpressionUUID->"d7a80348-a29c-4d60-88b0-40bf2212e92f"], + +Cell[BoxData["112.13680293055965`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, {3.994073565289288*^9, 3.994073591637117*^9}, + 3.994075181479414*^9, 3.9940752241080437`*^9}, + CellLabel-> + "Out[162]=",ExpressionUUID->"7a406b04-1760-4033-b3d9-9163e8d4713c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel-> + "In[163]:=",ExpressionUUID->"4ff62e70-b611-4e38-a55b-c933f61f867a"], + +Cell[BoxData["0.4156604021030056`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, {3.99407356529922*^9, 3.994073591647008*^9}, + 3.994075181491456*^9, 3.994075224117897*^9}, + CellLabel-> + "Out[163]=",ExpressionUUID->"a23038df-5b27-4c8d-81c2-fbc28260c3eb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel-> + "In[164]:=",ExpressionUUID->"0eac4dd1-3812-43a1-a598-1782238a9214"], + +Cell[BoxData[ + RowBox[{"-", "0.08656844775361539`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, {3.994073565311245*^9, 3.994073591656905*^9}, + 3.994075181502122*^9, 3.9940752241273518`*^9}, + CellLabel-> + "Out[164]=",ExpressionUUID->"ab43283e-88f7-40e1-8408-97d92629f73a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel-> + "In[165]:=",ExpressionUUID->"58605f9a-a33d-4aa5-b2a7-78ee444368f5"], + +Cell[BoxData[ + RowBox[{"-", "0.5722877017893374`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, {3.9940735653224297`*^9, 3.994073591666703*^9}, + 3.994075181512973*^9, 3.994075224138131*^9}, + CellLabel-> + "Out[165]=",ExpressionUUID->"0bd79e48-4432-4db4-810d-1793a72f11c5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel-> + "In[166]:=",ExpressionUUID->"c73c629f-ac4e-4874-8182-725c670a953b"], + +Cell[BoxData["0.7168396379251292`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, {3.994073565332736*^9, 3.994073591676529*^9}, + 3.9940751815232983`*^9, 3.99407522414828*^9}, + CellLabel-> + "Out[166]=",ExpressionUUID->"18b5c01d-aa06-4aed-8cd8-a7406da0f607"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel-> + "In[167]:=",ExpressionUUID->"084048df-817a-45ca-8c42-fd6082535615"], + +Cell[BoxData["2.2780057225092705`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, {3.994073565343382*^9, 3.994073591686304*^9}, + 3.9940751815621433`*^9, 3.994075224158536*^9}, + CellLabel-> + "Out[167]=",ExpressionUUID->"aa12e1fe-fe5f-454a-86b3-352641c7c50c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel-> + "In[168]:=",ExpressionUUID->"0695b6c8-80f6-44c4-a86e-d1a687f82a25"], + +Cell[BoxData["1.4218629228610074`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, {3.9940735677968397`*^9, 3.994073591696135*^9}, + 3.994075181571867*^9, 3.994075224168653*^9}, + CellLabel-> + "Out[168]=",ExpressionUUID->"e9cf1dc0-c205-4392-9a64-3fb4a97f0c2a"] +}, 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[169]:=",ExpressionUUID->"bf8c47a5-ea81-4d55-ab36-61267382f6e5"], + +Cell[BoxData[ + RowBox[{"-", "34.047906297441784`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, {3.994073567991251*^9, 3.994073591706287*^9}, + 3.994075181582259*^9, 3.994075224178802*^9}, + CellLabel-> + "Out[169]=",ExpressionUUID->"358925d0-630c-4d01-81d3-49733beb6aab"] +}, 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[170]:=",ExpressionUUID->"2f540fd8-14e5-400d-b548-a28e8fe79797"], + +Cell[BoxData[ + RowBox[{"-", "6.56405378738986`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, {3.994073568001831*^9, 3.994073591716386*^9}, + 3.994075181592502*^9, 3.994075224188962*^9}, + CellLabel-> + "Out[170]=",ExpressionUUID->"df0999c8-fe67-4f7e-929c-360e6e566f56"] +}, 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[171]:=",ExpressionUUID->"6e3a0cff-a89f-408a-a0b6-770c92f9f376"], + +Cell[BoxData["74.99175044638848`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, {3.994073568012953*^9, 3.994073591726822*^9}, + 3.9940751816039963`*^9, 3.994075224199308*^9}, + CellLabel-> + "Out[171]=",ExpressionUUID->"f9ef4f82-9985-4ff8-81c7-5293c98b8002"] +}, 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[172]:=",ExpressionUUID->"f7d73717-d2f8-40b1-af46-bb63f4e2bf56"], + +Cell[BoxData[ + RowBox[{"-", "96.23297652944373`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, {3.994073568023205*^9, 3.9940735917368*^9}, + 3.994075181615046*^9, 3.994075224209613*^9}, + CellLabel-> + "Out[172]=",ExpressionUUID->"52c0305b-bbdb-436d-a304-ce40e0098d84"] +}, 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[173]:=",ExpressionUUID->"9534853d-6c51-4f3d-af80-da47e4e1a1d0"], + +Cell[BoxData["105.57274914316979`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, {3.994073568033989*^9, 3.994073591747006*^9}, + 3.994075181626021*^9, 3.994075224219851*^9}, + CellLabel-> + "Out[173]=",ExpressionUUID->"2458ea57-2898-40a1-a363-97d883edab00"] +}, 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[174]:=",ExpressionUUID->"ce707e72-b936-4662-b118-54cdf9042b08"], + +Cell[BoxData["39.10949309233206`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, {3.994073568045323*^9, 3.99407359175727*^9}, + 3.994075181636903*^9, 3.99407522423002*^9}, + CellLabel-> + "Out[174]=",ExpressionUUID->"e4025daa-dd1d-45c7-bd75-1723b3406a52"] +}, 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[175]:=",ExpressionUUID->"7fe7f35f-3585-4bbe-8596-a442c6791b15"], + +Cell[BoxData["659.7171122788135`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, {3.994073568055649*^9, 3.994073591768012*^9}, + 3.9940751816477003`*^9, 3.99407522424048*^9}, + CellLabel-> + "Out[175]=",ExpressionUUID->"b430a4be-769f-4732-9f10-d70befc67177"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"f1", "=", "0.8725040536"}]], "Input", + CellChangeTimes->{3.9918496921150837`*^9, + 3.9940848778309383`*^9},ExpressionUUID->"ede64bc2-06f7-8743-a0a6-\ 6f058773310c"], Cell[BoxData[""], "Input", @@ -30,9 +4881,9 @@ Cell[BoxData[""], "Input", c82e80965ca9"], Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", - CellChangeTimes->{ - 3.991849690724144*^9},ExpressionUUID->"328429c4-9130-334e-ba7f-\ + RowBox[{"f2", "=", "0.5470324096"}]], "Input", + CellChangeTimes->{3.991849690724144*^9, + 3.994084885669587*^9},ExpressionUUID->"328429c4-9130-334e-ba7f-\ 7dc8ec78e5b4"], Cell[BoxData[""], "Input", @@ -2580,9 +7431,72 @@ A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", - RowBox[{"{", "}"}], "]"}]}]], "Input", - CellChangeTimes->{{3.991799458254999*^9, - 3.9917994623413925`*^9}},ExpressionUUID->"2d5a8299-5376-9747-8056-\ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.005365"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.015909"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.025915"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.035051"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.043054"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.049704"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.05488"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.058507"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.060618"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.061275"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.060632"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.058842"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.056126"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.052675"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.048717"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.044429"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.040006"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.03558"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.031291"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.027216"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.023437"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.019982"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.016885"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.014139"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.011745"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.009675"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.007913"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.006421"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.005177"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.004144"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.003297"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.9940849363210697`*^9},ExpressionUUID->"2d5a8299-5376-9747-8056-\ 2bd9764114a1"], Cell[BoxData[ @@ -8753,12 +13667,15 @@ Cell[BoxData["0.14275466609450368`"], "Output", CellChangeTimes->{3.991343787117275*^9}, CellLabel-> "Out[395]=",ExpressionUUID->"188c2681-ea17-924e-adb2-007b19a9ee86"] -}, Open ]] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input",ExpressionUUID->"003a3cee-6cc9-43f2-a36e-2e9c0a4a4908"] }, -WindowSize->{718.5, 729.75}, -WindowMargins->{{17.25, Automatic}, {Automatic, 24}}, +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->"c5c6a337-d1c3-0f45-98d9-a2509510bd89" ] @@ -8773,368 +13690,623 @@ 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, 357, 7, 36, "Input",ExpressionUUID->"daebe3bc-0a65-4079-8cfc-6ea289f788d6"], +Cell[936, 31, 309, 6, 41, "Output",ExpressionUUID->"21c22a00-b37e-4bd9-ad8d-9393c631a332"] }, 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[1282, 42, 253, 5, 36, "Input",ExpressionUUID->"c9be71d2-85a6-40f2-8207-1b3ec49e9601"], +Cell[1538, 49, 256, 5, 41, "Output",ExpressionUUID->"98aea7bb-d7d5-49b8-83ca-afde5c6cbccd"] }, 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[1831, 59, 226, 5, 36, "Input",ExpressionUUID->"64f35230-ab8b-405f-933d-6ee357ab7191"], +Cell[2060, 66, 256, 5, 41, "Output",ExpressionUUID->"3fa24ae8-66d7-47dc-8600-bc16115b0358"] }, 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[2353, 76, 180, 4, 66, "Input",ExpressionUUID->"d60d011a-0037-4dcd-8724-36e75322ced0"], +Cell[2536, 82, 254, 5, 75, "Output",ExpressionUUID->"a8c69135-ce71-48a6-8453-3f705b383930"] }, 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[2827, 92, 262, 8, 96, "Input",ExpressionUUID->"51180a4e-12f3-4f9b-82d6-eadfd3fad407"], +Cell[3092, 102, 257, 5, 75, "Output",ExpressionUUID->"8200c5eb-2591-43b0-802c-c83506e77139"] }, 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[3386, 112, 136, 3, 66, "Input",ExpressionUUID->"544454f5-81b1-4f9e-b85a-03bb8132b0cd"], +Cell[3525, 117, 260, 5, 75, "Output",ExpressionUUID->"6f7a0d88-18fe-44fb-b0cf-88c0fb3b0a47"] }, 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[3822, 127, 281, 7, 66, "Input",ExpressionUUID->"62e3cdda-a591-4586-af71-0f1e36fe7c76"], +Cell[4106, 136, 274, 5, 75, "Output",ExpressionUUID->"91474f3b-e14f-403c-b49e-fb1f621bf0b3"] }, 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[4417, 146, 262, 8, 66, "Input",ExpressionUUID->"af66d9f4-ed34-47a1-a8a0-6b2570d105f7"], +Cell[4682, 156, 273, 5, 75, "Output",ExpressionUUID->"38b55147-596e-4fbe-a2c1-a98bb6b5a60e"] }, 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[4992, 166, 208, 4, 66, "Input",ExpressionUUID->"34c1f49a-253a-4945-9de7-d0c20a1110c6"], +Cell[5203, 172, 236, 4, 75, "Output",ExpressionUUID->"3cbb7bac-b29e-4bb0-bad9-97b26af72440"] }, 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[5476, 181, 208, 4, 66, "Input",ExpressionUUID->"0b83963d-c65a-46e4-b3a6-9fc479afce6e"], +Cell[5687, 187, 239, 4, 75, "Output",ExpressionUUID->"2cd0660a-11e7-46ad-b903-3a40b4418caf"] }, 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[5963, 196, 133, 3, 66, "Input",ExpressionUUID->"4993e251-725c-46e3-b066-ac229fbe2493"], +Cell[6099, 201, 253, 5, 75, "Output",ExpressionUUID->"72b31e26-d112-4a08-b996-fafcf5a48b98"] }, 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[6389, 211, 133, 3, 66, "Input",ExpressionUUID->"826bfb63-0b0a-453a-921e-e6b2d4370dd4"], +Cell[6525, 216, 252, 5, 75, "Output",ExpressionUUID->"53d30ef0-ae30-4eb8-940f-fbd57036bf1a"] }, 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[6814, 226, 561, 20, 175, "Input",ExpressionUUID->"3f161619-f839-43fe-b0e6-8c0ad1e1e9d9"], +Cell[7378, 248, 273, 5, 75, "Output",ExpressionUUID->"2456a0fa-4cd5-4675-ae55-0f86483efb68"] }, 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[7688, 258, 561, 20, 175, "Input",ExpressionUUID->"bdfe5776-e403-47c4-9cd7-2317d7cca590"], +Cell[8252, 280, 271, 5, 75, "Output",ExpressionUUID->"d2f261b2-2b12-4682-b78f-2659b83e699e"] }, 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[8560, 290, 1592, 51, 362, "Input",ExpressionUUID->"d9bbdd6f-f5f1-4a71-aaa1-5c0906195453"], +Cell[10155, 343, 267, 5, 75, "Output",ExpressionUUID->"59d933d9-f38d-44ab-9f2d-53a07374f3be"] }, 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[10459, 353, 1426, 47, 362, "Input",ExpressionUUID->"3f419dba-9cf0-495f-bebf-693523759bd6"], +Cell[11888, 402, 286, 6, 75, "Output",ExpressionUUID->"cf46ac6b-c191-4e68-98ac-cbade79d676c"] }, 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[12211, 413, 1426, 47, 362, "Input",ExpressionUUID->"7a84bee4-1cad-4121-a752-3a07a3b2fef3"], +Cell[13640, 462, 289, 6, 75, "Output",ExpressionUUID->"51c7302a-4041-4d4b-929a-a87cf67ab587"] }, 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[13966, 473, 1592, 51, 362, "Input",ExpressionUUID->"caa8e0cf-7fae-429f-8405-426d2e61f16e"], +Cell[15561, 526, 268, 5, 75, "Output",ExpressionUUID->"7b6ea78d-22c6-4832-85a3-fe0ae7bd5165"] }, 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[15866, 536, 135, 3, 66, "Input",ExpressionUUID->"1a647d6d-7f17-4053-95f8-e005d48fec17"], +Cell[16004, 541, 256, 5, 75, "Output",ExpressionUUID->"35aea4e1-80d4-4f8b-b917-1ea1f9907ee0"] }, 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[16297, 551, 137, 3, 66, "Input",ExpressionUUID->"b9eac5f9-d5af-4af2-bf13-f2a8ddf2daff"], +Cell[16437, 556, 258, 5, 75, "Output",ExpressionUUID->"70594058-ca3c-4c9e-b4d6-69d2a70d0293"] }, 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[16732, 566, 138, 3, 66, "Input",ExpressionUUID->"d43b5a83-7f8f-4754-a7af-5d7bb52dcd98"], +Cell[16873, 571, 260, 5, 75, "Output",ExpressionUUID->"7e37a310-378f-498a-b9ad-337120337443"] }, 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[17170, 581, 223, 5, 66, "Input",ExpressionUUID->"ea564721-4283-464e-ba73-b321bd36f74a"], +Cell[17396, 588, 269, 6, 75, "Output",ExpressionUUID->"5d1507b1-aa96-43a3-a5f6-7212eadf6ba8"] }, 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[17702, 599, 138, 3, 66, "Input",ExpressionUUID->"59273c13-f1c9-40aa-9c3d-d6180fe2d761"], +Cell[17843, 604, 260, 5, 75, "Output",ExpressionUUID->"66e7d2a3-520a-43c3-b438-2bf7e9cc416c"] }, 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[18140, 614, 326, 6, 66, "Input",ExpressionUUID->"523a5e67-ce58-496f-992a-d482c0c67570"], +Cell[18469, 622, 253, 5, 75, "Output",ExpressionUUID->"3a7b1ce7-00b4-4a20-a6fb-6c673d2361e1"] }, 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[18759, 632, 302, 6, 66, "Input",ExpressionUUID->"c3373745-d99e-4638-a690-443d6521c14e"], +Cell[19064, 640, 259, 5, 75, "Output",ExpressionUUID->"30526edf-d4fc-4278-9fba-f51af3da31ac"] }, 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[19360, 650, 223, 5, 66, "Input",ExpressionUUID->"fa431e54-ba79-4694-a497-8d6afa2bca3a"], +Cell[19586, 657, 250, 5, 75, "Output",ExpressionUUID->"94e1cded-8e44-464f-ab86-e616f51307cf"] }, 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[19873, 667, 354, 11, 96, "Input",ExpressionUUID->"9565be1c-f08f-4108-988e-7de99bc60af0"], +Cell[20230, 680, 273, 5, 75, "Output",ExpressionUUID->"5bff3cb7-a3ef-4a74-9004-7ad5fa20c11c"] }, 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[20540, 690, 354, 11, 96, "Input",ExpressionUUID->"66041539-2752-4550-9be0-7d916925ff81"], +Cell[20897, 703, 290, 6, 75, "Output",ExpressionUUID->"455c40ca-551f-4b8b-b6bc-2e3833f63585"] }, 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[21224, 714, 998, 27, 184, "Input",ExpressionUUID->"cd0f5fe2-800f-432d-9e83-1e697ee9a749"], +Cell[22225, 743, 274, 5, 75, "Output",ExpressionUUID->"43c1c84b-06e2-4271-aea5-e03c3388b9ed"] }, 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[22536, 753, 203, 4, 66, "Input",ExpressionUUID->"abe18745-5483-42f0-8f72-2be9a2918b6c"], +Cell[22742, 759, 251, 5, 75, "Output",ExpressionUUID->"71ca72f2-e79a-4c1c-aa3c-f413fa79053e"] }, 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[23030, 769, 331, 6, 66, "Input",ExpressionUUID->"c2fce426-14da-4dd7-aa62-bd47a0c8e81e"], +Cell[23364, 777, 230, 4, 75, "Output",ExpressionUUID->"bcd0e4cc-666f-4021-addc-a6660ebf4ae1"] +}, Open ]], +Cell[23609, 784, 177, 3, 66, "Input",ExpressionUUID->"be9b286b-d328-4901-b030-8baca6fe0c91"], +Cell[CellGroupData[{ +Cell[23811, 791, 331, 6, 66, "Input",ExpressionUUID->"6f67c5bc-fc5e-4a19-9ba6-661e1984cc6f"], +Cell[24145, 799, 234, 4, 75, "Output",ExpressionUUID->"af56ada0-bdb5-4a1f-b234-614556f04c0d"] +}, Open ]], +Cell[24394, 806, 177, 3, 66, "Input",ExpressionUUID->"51491074-964c-4747-ac4a-2c86a9af3ca0"], +Cell[CellGroupData[{ +Cell[24596, 813, 333, 6, 66, "Input",ExpressionUUID->"abacad17-87f9-4c57-97a5-4671695a11a6"], +Cell[24932, 821, 231, 4, 75, "Output",ExpressionUUID->"f7c23d1e-5183-445d-92b9-64ec67ff307e"] +}, Open ]], +Cell[25178, 828, 177, 3, 66, "Input",ExpressionUUID->"875bf697-22dc-4f5d-a27c-14c908876b04"], +Cell[CellGroupData[{ +Cell[25380, 835, 357, 6, 66, "Input",ExpressionUUID->"da6f0fd0-5812-4b4b-9916-6b989c03e0cf"], +Cell[25740, 843, 230, 4, 75, "Output",ExpressionUUID->"2794b3d5-20d7-4f7c-ab4a-e4f8eed926e0"] +}, Open ]], +Cell[25985, 850, 175, 3, 66, "Input",ExpressionUUID->"53b7c85f-c056-49a9-96fc-42d558804987"], +Cell[CellGroupData[{ +Cell[26185, 857, 303, 6, 66, "Input",ExpressionUUID->"1db2f001-9463-4e12-96c5-ae91a21cb3fe"], +Cell[26491, 865, 232, 4, 75, "Output",ExpressionUUID->"b1259f44-b67a-4079-bb7d-25648b5a9ead"] +}, Open ]], +Cell[26738, 872, 175, 3, 66, "Input",ExpressionUUID->"a0a4dc97-3f94-4533-ada5-8c75a92b85ef"], +Cell[CellGroupData[{ +Cell[26938, 879, 309, 6, 66, "Input",ExpressionUUID->"1e3960fc-6ad5-4f8e-9613-63b254df9637"], +Cell[27250, 887, 233, 4, 75, "Output",ExpressionUUID->"10457894-2111-4a4d-a835-ef62811a5da7"] +}, Open ]], +Cell[27498, 894, 177, 3, 66, "Input",ExpressionUUID->"019295da-a9f5-45ef-8427-662c09336965"], +Cell[CellGroupData[{ +Cell[27700, 901, 331, 6, 66, "Input",ExpressionUUID->"3f6dcc07-9579-4cdd-9e77-eeaba01a3ec6"], +Cell[28034, 909, 235, 4, 75, "Output",ExpressionUUID->"2f560d87-8748-4d99-b2dd-3827572ef0cf"] +}, Open ]], +Cell[28284, 916, 176, 3, 66, "Input",ExpressionUUID->"f1ba4815-7e52-4e52-90bd-c3de3a670c60"], +Cell[CellGroupData[{ +Cell[28485, 923, 280, 5, 66, "Input",ExpressionUUID->"527dc628-63bd-4d40-8438-c83309fb5fb2"], +Cell[28768, 930, 232, 4, 75, "Output",ExpressionUUID->"e24cdd66-f49e-47be-ae56-dc72e1470b24"] +}, Open ]], +Cell[29015, 937, 179, 3, 66, "Input",ExpressionUUID->"6a017435-6ff3-46b2-ad75-25eed0695c2d"], +Cell[CellGroupData[{ +Cell[29219, 944, 19813, 486, 5405, "Input",ExpressionUUID->"ffcd4fa8-0c62-4893-829a-b2d47c77774b"], +Cell[49035, 1432, 271, 5, 75, "Output",ExpressionUUID->"0b9d49e6-a30d-4b8c-8e00-3961184d1bb5"] }, 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[49343, 1442, 19752, 490, 5343, "Input",ExpressionUUID->"f36bbb79-6a45-4206-8baf-12792cb72c87"], +Cell[69098, 1934, 266, 5, 75, "Output",ExpressionUUID->"6d4a23c5-3ce4-402b-8bd0-1959ed046e5c"] }, 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[69401, 1944, 19752, 484, 5342, "Input",ExpressionUUID->"95aff88c-658e-4f5b-80f5-3db601ed2749"], +Cell[89156, 2430, 287, 6, 75, "Output",ExpressionUUID->"eca866a4-1c10-4d29-b834-74713bda26c4"] }, 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[89480, 2441, 22538, 554, 6074, "Input",ExpressionUUID->"37bf501b-ffa0-415b-8b3a-99d38cbb6d3d"], +Cell[112021, 2997, 288, 6, 75, "Output",ExpressionUUID->"351fb5fa-1528-401f-a82c-f7e30459236c"] }, 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[112346, 3008, 22539, 554, 6074, "Input",ExpressionUUID->"1270cfbd-3842-4e0d-a9a0-36b7cce44817"], +Cell[134888, 3564, 291, 6, 75, "Output",ExpressionUUID->"9c3ed634-3c5e-4f4a-b34f-ae46791dfaae"] }, 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[135216, 3575, 25495, 627, 6806, "Input",ExpressionUUID->"a8bcd563-1baa-4b7b-8e44-e38af43df0ae"], +Cell[160714, 4204, 290, 6, 75, "Output",ExpressionUUID->"7c97beb6-4498-45de-bf83-743cb76c1d12"] }, 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[161041, 4215, 134, 3, 66, "Input",ExpressionUUID->"a140ba0e-db9d-4a5f-87cd-7a41850ccd6a"], +Cell[161178, 4220, 253, 5, 75, "Output",ExpressionUUID->"3e98bbc9-69aa-49b2-b7c9-b656d17c71bf"] }, 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[161468, 4230, 134, 3, 66, "Input",ExpressionUUID->"25fa88a4-0889-4700-8d33-5086b86b7c7d"], +Cell[161605, 4235, 254, 5, 75, "Output",ExpressionUUID->"0bd414ed-9e05-4add-88dc-c25d03473898"] }, 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[161896, 4245, 1148, 40, 246, "Input",ExpressionUUID->"f0e388d1-d839-4f03-8681-1ade3a9d54e1"], +Cell[163047, 4287, 269, 5, 75, "Output",ExpressionUUID->"5a762686-ecc7-44d2-b8b1-6cbc6cbf9309"] }, 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[163353, 4297, 1045, 36, 246, "Input",ExpressionUUID->"0c30ee0a-e809-4998-9dba-cb42efcd0b63"], +Cell[164401, 4335, 288, 6, 75, "Output",ExpressionUUID->"814d79a2-0895-4f5a-9499-c741488755d5"] }, 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[164726, 4346, 1148, 40, 246, "Input",ExpressionUUID->"d7a80348-a29c-4d60-88b0-40bf2212e92f"], +Cell[165877, 4388, 272, 5, 75, "Output",ExpressionUUID->"7a406b04-1760-4033-b3d9-9163e8d4713c"] }, 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[166186, 4398, 112, 2, 66, "Input",ExpressionUUID->"4ff62e70-b611-4e38-a55b-c933f61f867a"], +Cell[166301, 4402, 269, 5, 75, "Output",ExpressionUUID->"a23038df-5b27-4c8d-81c2-fbc28260c3eb"] }, 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[166607, 4412, 112, 2, 66, "Input",ExpressionUUID->"0eac4dd1-3812-43a1-a598-1782238a9214"], +Cell[166722, 4416, 290, 6, 75, "Output",ExpressionUUID->"ab43283e-88f7-40e1-8408-97d92629f73a"] }, 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[167049, 4427, 112, 2, 66, "Input",ExpressionUUID->"58605f9a-a33d-4aa5-b2a7-78ee444368f5"], +Cell[167164, 4431, 287, 6, 75, "Output",ExpressionUUID->"0bd79e48-4432-4db4-810d-1793a72f11c5"] }, 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[167488, 4442, 112, 2, 66, "Input",ExpressionUUID->"c73c629f-ac4e-4874-8182-725c670a953b"], +Cell[167603, 4446, 269, 5, 75, "Output",ExpressionUUID->"18b5c01d-aa06-4aed-8cd8-a7406da0f607"] }, 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[167909, 4456, 111, 2, 66, "Input",ExpressionUUID->"084048df-817a-45ca-8c42-fd6082535615"], +Cell[168023, 4460, 272, 5, 75, "Output",ExpressionUUID->"aa12e1fe-fe5f-454a-86b3-352641c7c50c"] }, 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[168332, 4470, 111, 2, 66, "Input",ExpressionUUID->"0695b6c8-80f6-44c4-a86e-d1a687f82a25"], +Cell[168446, 4474, 272, 5, 75, "Output",ExpressionUUID->"e9cf1dc0-c205-4392-9a64-3fb4a97f0c2a"] }, 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[168755, 4484, 501, 17, 125, "Input",ExpressionUUID->"bf8c47a5-ea81-4d55-ab36-61267382f6e5"], +Cell[169259, 4503, 287, 6, 75, "Output",ExpressionUUID->"358925d0-630c-4d01-81d3-49733beb6aab"] }, 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[169583, 4514, 501, 17, 125, "Input",ExpressionUUID->"2f540fd8-14e5-400d-b548-a28e8fe79797"], +Cell[170087, 4533, 283, 6, 75, "Output",ExpressionUUID->"df0999c8-fe67-4f7e-929c-360e6e566f56"] }, 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[170407, 4544, 1792, 61, 420, "Input",ExpressionUUID->"6e3a0cff-a89f-408a-a0b6-770c92f9f376"], +Cell[172202, 4607, 271, 5, 75, "Output",ExpressionUUID->"f9ef4f82-9985-4ff8-81c7-5293c98b8002"] }, 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[172510, 4617, 1105, 37, 299, "Input",ExpressionUUID->"f7d73717-d2f8-40b1-af46-bb63f4e2bf56"], +Cell[173618, 4656, 284, 6, 75, "Output",ExpressionUUID->"52c0305b-bbdb-436d-a304-ce40e0098d84"] }, 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[173939, 4667, 1822, 62, 420, "Input",ExpressionUUID->"9534853d-6c51-4f3d-af80-da47e4e1a1d0"], +Cell[175764, 4731, 268, 5, 75, "Output",ExpressionUUID->"2458ea57-2898-40a1-a363-97d883edab00"] }, 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[176069, 4741, 1635, 54, 368, "Input",ExpressionUUID->"ce707e72-b936-4662-b118-54cdf9042b08"], +Cell[177707, 4797, 267, 5, 75, "Output",ExpressionUUID->"e4025daa-dd1d-45c7-bd75-1723b3406a52"] }, 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[178011, 4807, 1635, 54, 101, "Input",ExpressionUUID->"7fe7f35f-3585-4bbe-8596-a442c6791b15"], +Cell[179649, 4863, 268, 5, 41, "Output",ExpressionUUID->"b430a4be-769f-4732-9f10-d70befc67177"] +}, Open ]], +Cell[179932, 4871, 189, 4, 36, "Input",ExpressionUUID->"ede64bc2-06f7-8743-a0a6-6f058773310c"], +Cell[180124, 4877, 156, 3, 36, "Input",ExpressionUUID->"9eb3c45a-b33b-a74e-8fe0-c82e80965ca9"], +Cell[180283, 4882, 185, 4, 36, "Input",ExpressionUUID->"328429c4-9130-334e-ba7f-7dc8ec78e5b4"], +Cell[180471, 4888, 152, 3, 36, "Input",ExpressionUUID->"b3364ab6-86a4-7a46-ae33-623392314869"], +Cell[CellGroupData[{ +Cell[180648, 4895, 1301, 43, 61, "Input",ExpressionUUID->"789c64dd-6722-a64c-864a-7fd89b074ad2"], +Cell[181952, 4940, 176, 3, 41, "Output",ExpressionUUID->"b2b0fbe6-496d-0b4b-a132-3f215e541d44"] }, 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"] -}, Open ]], -Cell[338016, 8238, 209, 5, 70, "Input",ExpressionUUID->"b530b35f-2a32-0145-82a7-25a7a01bdd8f"], -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[182165, 4948, 908, 31, 73, "Input",ExpressionUUID->"35e76fc7-2f05-694a-b379-67189aa511ad"], +Cell[183076, 4981, 175, 3, 41, "Output",ExpressionUUID->"cead89a0-592d-3b44-ae8b-df81fa845f91"] }, 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[183288, 4989, 887, 30, 73, "Input",ExpressionUUID->"a10e19cd-f567-6b4d-a841-5f01117db38b"], +Cell[184178, 5021, 177, 3, 41, "Output",ExpressionUUID->"cd23137f-b6ad-354d-a690-15ff879bfb9c"] }, 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[184392, 5029, 558, 19, 66, "Input",ExpressionUUID->"289c2a6f-fa01-2645-80ce-1661c17fd90c"], +Cell[184953, 5050, 172, 3, 41, "Output",ExpressionUUID->"85da9012-bc80-5149-8545-ead2f85c5a34"] }, 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[185162, 5058, 651, 22, 66, "Input",ExpressionUUID->"399520f6-f2e9-6f4a-a02c-50158b624262"], +Cell[185816, 5082, 170, 3, 41, "Output",ExpressionUUID->"86664631-6f8b-d148-8f17-b13cb8a9a5fa"] }, 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[186023, 5090, 170, 5, 71, "Input",ExpressionUUID->"7ee61184-68bc-584d-8849-9a0186a8f35d"], +Cell[186196, 5097, 173, 3, 41, "Output",ExpressionUUID->"77c43b01-85eb-fd46-b71d-1d444bf52ef5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[186406, 5105, 170, 5, 69, "Input",ExpressionUUID->"0ec92d80-8d9e-2746-9b01-4edb32bf4eac"], +Cell[186579, 5112, 169, 3, 41, "Output",ExpressionUUID->"aacafa1c-cf55-8c4f-8232-23de80eb25b7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[186785, 5120, 181, 5, 55, "Input",ExpressionUUID->"8c869977-4b92-8745-b065-cb6318fdcdb7"], +Cell[186969, 5127, 173, 3, 41, "Output",ExpressionUUID->"de93d189-ac68-c842-aeb5-e64b23581b7c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187179, 5135, 181, 5, 55, "Input",ExpressionUUID->"e2c1a337-e3c1-be4c-aa33-ae15497f38bc"], +Cell[187363, 5142, 170, 3, 41, "Output",ExpressionUUID->"73700a90-df80-2f44-9e2f-d43da4980146"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187570, 5150, 6055, 185, 431, "Input",ExpressionUUID->"abbe4489-628a-134f-b142-f0e18f19d6f9"], +Cell[193628, 5337, 174, 3, 41, "Output",ExpressionUUID->"cebf7c0c-e117-6441-a465-087c93e87be5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193839, 5345, 368, 9, 53, "Input",ExpressionUUID->"9e4d84a7-8664-a749-b8b4-3df6645764a5"], +Cell[194210, 5356, 170, 3, 41, "Output",ExpressionUUID->"53acb857-d475-4b46-bdab-d2addcedb13c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194417, 5364, 6122, 187, 431, "Input",ExpressionUUID->"29cc8bdf-8683-214b-bd33-b4d8b4da1114"], +Cell[200542, 5553, 174, 3, 41, "Output",ExpressionUUID->"9962c954-af09-2844-91ec-70eb43451868"] +}, Open ]], +Cell[CellGroupData[{ +Cell[200753, 5561, 368, 9, 53, "Input",ExpressionUUID->"2190c129-8a98-bf45-873d-af8f8d048936"], +Cell[201124, 5572, 170, 3, 41, "Output",ExpressionUUID->"1f5b5c64-ee33-0943-822d-b5e2806576ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[201331, 5580, 2663, 88, 215, "Input",ExpressionUUID->"972f1c0f-a59f-2847-8b2b-bd88c5077325"], +Cell[203997, 5670, 171, 3, 41, "Output",ExpressionUUID->"a3bdb7fa-0a90-d14f-81e9-757139920dcb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[204205, 5678, 2603, 85, 215, "Input",ExpressionUUID->"c06a7373-f345-6147-b882-1c88bef9608a"], +Cell[206811, 5765, 171, 3, 41, "Output",ExpressionUUID->"1b098546-b8b7-b741-b993-7512b0787277"] +}, Open ]], +Cell[CellGroupData[{ +Cell[207019, 5773, 3712, 118, 316, "Input",ExpressionUUID->"82838793-cf71-8049-a4ac-b01daf51205b"], +Cell[210734, 5893, 171, 3, 41, "Output",ExpressionUUID->"d3b57aaa-e0b1-cb4b-b411-ab6c214b3d77"] +}, Open ]], +Cell[210920, 5899, 138, 3, 36, "Input",ExpressionUUID->"0055f95b-c532-e24d-bdc4-544ea2d2fbd9"], +Cell[CellGroupData[{ +Cell[211083, 5906, 2054, 59, 116, "Input",ExpressionUUID->"574b810b-aa4a-d545-b080-c44fbe83a713"], +Cell[213140, 5967, 566, 12, 50, "Message",ExpressionUUID->"56fc0528-7ab2-a142-bc04-9f31af965213"], +Cell[213709, 5981, 569, 12, 50, "Message",ExpressionUUID->"523f0cae-d948-764c-a560-b9272d5e2d53"], +Cell[214281, 5995, 570, 12, 50, "Message",ExpressionUUID->"0a6922e0-d70a-8f48-87c3-f1e8776a3316"], +Cell[214854, 6009, 458, 10, 26, "Message",ExpressionUUID->"777b8d50-cc35-c140-9ef3-025284fd7e68"], +Cell[215315, 6021, 172, 3, 41, "Output",ExpressionUUID->"bbad1871-e996-ef4b-8dc6-3a39d5c410ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[215524, 6029, 2052, 59, 116, "Input",ExpressionUUID->"3d7dd6a2-2692-2b4d-8922-656c90598e75"], +Cell[217579, 6090, 564, 12, 50, "Message",ExpressionUUID->"e613a9b2-edeb-4743-aa3f-3db45e0849dd"], +Cell[218146, 6104, 567, 12, 50, "Message",ExpressionUUID->"d082687e-fa98-c642-8741-e0aeeee8492c"], +Cell[218716, 6118, 570, 12, 50, "Message",ExpressionUUID->"1cb847b5-98cf-0a42-bcd2-893a3a64388b"], +Cell[219289, 6132, 455, 10, 26, "Message",ExpressionUUID->"0d526236-fa4c-334c-9891-0cc458f43fbe"], +Cell[219747, 6144, 169, 3, 41, "Output",ExpressionUUID->"a61472f3-b6b3-5d40-8ec5-35b87df5c824"] +}, Open ]], +Cell[CellGroupData[{ +Cell[219953, 6152, 1936, 53, 63, "Input",ExpressionUUID->"9c540ba7-8bb4-ef46-919c-62296271f174"], +Cell[221892, 6207, 19983, 375, 295, "Output",ExpressionUUID->"84263d17-cde8-2246-a26d-50fe65f34979"] +}, Open ]], +Cell[CellGroupData[{ +Cell[241912, 6587, 2092, 60, 116, "Input",ExpressionUUID->"6e33cb28-ef1e-1547-b52d-2171e7786920"], +Cell[244007, 6649, 501, 11, 48, "Message",ExpressionUUID->"53d31480-3c5e-ef4a-987b-a232cf0b03f3"], +Cell[244511, 6662, 503, 11, 48, "Message",ExpressionUUID->"b7d94271-16f1-6346-b579-21279019eafb"], +Cell[245017, 6675, 506, 11, 48, "Message",ExpressionUUID->"bfaea4b0-a812-1847-9911-9291b70d2c8f"], +Cell[245526, 6688, 456, 10, 26, "Message",ExpressionUUID->"07354318-4dcc-6049-94e1-9227bd3406fc"], +Cell[245985, 6700, 41581, 727, 292, "Output",ExpressionUUID->"4fedf89c-a1d1-0f4a-bf53-44f2e928d059"] +}, Open ]], +Cell[287581, 7430, 2456, 69, 140, "Input",ExpressionUUID->"2d5a8299-5376-9747-8056-2bd9764114a1"], +Cell[290040, 7501, 209, 5, 36, "Input",ExpressionUUID->"d5fa6d0d-0ad8-f845-b7df-0ac982b58a3a"], +Cell[CellGroupData[{ +Cell[290274, 7510, 217, 7, 61, "Input",ExpressionUUID->"650e43f8-1352-de46-8137-52adca93b0cf"], +Cell[290494, 7519, 170, 3, 41, "Output",ExpressionUUID->"ced270d8-1772-ff41-a012-a661d8496312"] +}, Open ]], +Cell[CellGroupData[{ +Cell[290701, 7527, 1814, 53, 116, "Input",ExpressionUUID->"9ad75b45-8f6d-114b-80bd-d2b12a49fd20"], +Cell[292518, 7582, 506, 11, 48, "Message",ExpressionUUID->"82d24bea-da89-924f-8c72-34dd3938ca31"], +Cell[293027, 7595, 512, 11, 48, "Message",ExpressionUUID->"dec01940-92d8-ec46-9a19-7eeb83f307cb"], +Cell[293542, 7608, 509, 11, 48, "Message",ExpressionUUID->"b8576457-d231-bd44-9899-a0c0bb16b9e8"], +Cell[294054, 7621, 456, 10, 26, "Message",ExpressionUUID->"8bc3094a-336c-7a48-a7ed-1449be3156c0"], +Cell[294513, 7633, 22336, 412, 290, "Output",ExpressionUUID->"8cd361e0-0597-af48-9664-8ef179548a96"] +}, Open ]], +Cell[CellGroupData[{ +Cell[316886, 8050, 1616, 48, 86, "Input",ExpressionUUID->"94eefac7-0bb7-7249-8430-0b2ddd6df117"], +Cell[318505, 8100, 584, 12, 71, "Message",ExpressionUUID->"6b02dcd6-679e-e045-823b-19e8112735bb"], +Cell[319092, 8114, 588, 12, 71, "Message",ExpressionUUID->"1777b2e8-4814-3b40-9d26-e365522e2fa7"], +Cell[319683, 8128, 591, 12, 71, "Message",ExpressionUUID->"343e800a-6390-7b48-892a-7785bb4151c8"], +Cell[320277, 8142, 456, 10, 26, "Message",ExpressionUUID->"30a8c837-a97a-f04a-b90a-1e6b32a15ee9"], +Cell[320736, 8154, 173, 3, 41, "Output",ExpressionUUID->"ae05a7c3-f5d6-d640-8f8e-efe8f63ceb63"] +}, Open ]], +Cell[CellGroupData[{ +Cell[320946, 8162, 2274, 65, 81, "Input",ExpressionUUID->"1d118f77-7d68-dd41-b0af-09454f88e7f1"], +Cell[323223, 8229, 566, 12, 71, "Message",ExpressionUUID->"089dc3ff-480d-db4f-bbed-05630517df59"], +Cell[323792, 8243, 569, 12, 71, "Message",ExpressionUUID->"6e93a9b9-9460-8649-881d-48f37a709a1b"], +Cell[324364, 8257, 572, 12, 71, "Message",ExpressionUUID->"1ee8858a-971e-d34f-bafe-57ab88be1238"], +Cell[324939, 8271, 458, 10, 26, "Message",ExpressionUUID->"96f8e027-4313-4f4f-a21d-2291fe960276"], +Cell[325400, 8283, 171, 3, 41, "Output",ExpressionUUID->"53e3f7cd-1b3e-7343-931d-6e137013b0b0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[325608, 8291, 2221, 64, 81, "Input",ExpressionUUID->"c8039063-5f4d-134a-b6ba-e19335f7a9f6"], +Cell[327832, 8357, 564, 12, 71, "Message",ExpressionUUID->"2abeeb06-100d-8a4f-bcb1-ddb8c833ff54"], +Cell[328399, 8371, 567, 12, 71, "Message",ExpressionUUID->"7e411bd4-b3ce-e244-9ce0-8d1f78e8cd14"], +Cell[328969, 8385, 570, 12, 71, "Message",ExpressionUUID->"1eef1d19-4a0f-cd45-ac5f-c8b603cf3443"], +Cell[329542, 8399, 456, 10, 26, "Message",ExpressionUUID->"6022a732-4a2e-1544-a8b7-891b74c71e8b"], +Cell[330001, 8411, 173, 3, 41, "Output",ExpressionUUID->"3c53d31a-b5c8-d04c-a31f-fccb4feaa955"] +}, Open ]], +Cell[CellGroupData[{ +Cell[330211, 8419, 2223, 64, 81, "Input",ExpressionUUID->"a474307a-af78-3040-90ec-fb8d284b16bb"], +Cell[332437, 8485, 566, 12, 71, "Message",ExpressionUUID->"419d88aa-08de-a042-b43b-49810fba72bb"], +Cell[333006, 8499, 569, 12, 71, "Message",ExpressionUUID->"4a9a6268-a319-d748-9834-40ccb49d2b51"], +Cell[333578, 8513, 570, 12, 71, "Message",ExpressionUUID->"575d1045-9e4b-4643-b969-4ea2653f65d7"], +Cell[334151, 8527, 458, 10, 26, "Message",ExpressionUUID->"0c807644-74de-9c49-acac-c7123cbacadc"], +Cell[334612, 8539, 170, 3, 41, "Output",ExpressionUUID->"40f79c92-c788-c843-8a8c-07266b265dee"] +}, Open ]], +Cell[CellGroupData[{ +Cell[334819, 8547, 213, 6, 60, "Input",ExpressionUUID->"ce14ed0e-a62a-1e46-b7cf-f67bfdbd9bc7"], +Cell[335035, 8555, 171, 3, 41, "Output",ExpressionUUID->"5f3fc6c2-7014-7c43-bf96-8a336bebf769"] +}, Open ]], +Cell[335221, 8561, 244, 5, 36, "Input",ExpressionUUID->"d104d373-080a-854b-92ff-e87abbd4c41c"], +Cell[CellGroupData[{ +Cell[335490, 8570, 558, 19, 66, "Input",ExpressionUUID->"b6bc4645-bb9b-da49-b314-4566a6ca9506"], +Cell[336051, 8591, 173, 3, 41, "Output",ExpressionUUID->"c9ac712d-c12f-0747-84df-4fbc596a4bc5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[336261, 8599, 170, 5, 71, "Input",ExpressionUUID->"1f225213-8143-a346-8c4e-e69f41e85c6f"], +Cell[336434, 8606, 171, 3, 41, "Output",ExpressionUUID->"265915a4-bf42-cc4a-850a-ff4e02169aa3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[336642, 8614, 181, 5, 55, "Input",ExpressionUUID->"4b9388d7-dfe0-ca44-90a4-ea60f173579a"], +Cell[336826, 8621, 173, 3, 41, "Output",ExpressionUUID->"31530b6e-e89a-9145-8021-0dc6b1c7eda5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[337036, 8629, 6055, 185, 431, "Input",ExpressionUUID->"b0d5a77d-c2c5-e84d-b4be-bec051c1557c"], +Cell[343094, 8816, 175, 3, 41, "Output",ExpressionUUID->"498f3df6-21c9-ce42-acfb-0b180bf5016e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[343306, 8824, 368, 9, 53, "Input",ExpressionUUID->"e543ccd6-d1e6-3c4d-9364-2a9eec09292b"], +Cell[343677, 8835, 172, 3, 41, "Output",ExpressionUUID->"7c93e621-3415-c743-b6e4-6e9478aa49a4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[343886, 8843, 6122, 187, 431, "Input",ExpressionUUID->"50e98a1c-f33a-9242-9267-bbd8a1753662"], +Cell[350011, 9032, 173, 3, 41, "Output",ExpressionUUID->"ac3c9970-0aac-ba4f-878d-3a3d1e5e2e3e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[350221, 9040, 368, 9, 53, "Input",ExpressionUUID->"339251a5-83bd-8642-8c5c-4fff9ebe10d7"], +Cell[350592, 9051, 170, 3, 41, "Output",ExpressionUUID->"d74ba3c3-6f35-614a-92df-d33bcc5e630d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[350799, 9059, 2663, 88, 215, "Input",ExpressionUUID->"ad1f9bb1-e9e6-5b4f-9f95-8eeef0cc66ae"], +Cell[353465, 9149, 171, 3, 41, "Output",ExpressionUUID->"33da748c-8c98-4649-9b81-8e00dd5f5d44"] +}, Open ]], +Cell[CellGroupData[{ +Cell[353673, 9157, 2603, 85, 215, "Input",ExpressionUUID->"4b0fdfc8-7d81-3a4d-90ed-a9bb76dc96a0"], +Cell[356279, 9244, 171, 3, 41, "Output",ExpressionUUID->"a300919b-1d52-ed46-bc06-5e86812c0bf8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[356487, 9252, 3712, 118, 316, "Input",ExpressionUUID->"31524ab0-bcc9-e948-9393-cfc225600ff2"], +Cell[360202, 9372, 170, 3, 41, "Output",ExpressionUUID->"45caa3aa-b655-b94b-bc88-ae750a9e28b8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[360409, 9380, 2052, 59, 116, "Input",ExpressionUUID->"486d514f-ec65-1e4e-b780-7e9487f745c3"], +Cell[362464, 9441, 573, 12, 71, "Message",ExpressionUUID->"fdac5db3-60d6-7a42-93b8-a74d8fc5d39e"], +Cell[363040, 9455, 577, 12, 71, "Message",ExpressionUUID->"46e50c50-b3b4-9847-b413-3bf52122b53e"], +Cell[363620, 9469, 580, 12, 71, "Message",ExpressionUUID->"5df9105e-cc71-b049-a285-30acff0c246a"], +Cell[364203, 9483, 456, 10, 26, "Message",ExpressionUUID->"84079c6c-500c-0643-b357-e1da142371e6"], +Cell[364662, 9495, 170, 3, 41, "Output",ExpressionUUID->"8303ac5a-d080-3741-a2d8-b7ff63ccb029"] +}, Open ]], +Cell[CellGroupData[{ +Cell[364869, 9503, 2054, 59, 116, "Input",ExpressionUUID->"c7144ce5-8356-d548-8854-18c538c3321c"], +Cell[366926, 9564, 573, 12, 71, "Message",ExpressionUUID->"65ad7cc5-5634-7d43-8ec3-48fd3e044014"], +Cell[367502, 9578, 577, 12, 71, "Message",ExpressionUUID->"c7632c59-b44f-2c47-aaf4-873ba9758677"], +Cell[368082, 9592, 582, 12, 71, "Message",ExpressionUUID->"509e3117-7502-a34e-9f96-72b696066a2b"], +Cell[368667, 9606, 456, 10, 26, "Message",ExpressionUUID->"0e1f3a7a-70f7-bc47-9700-06e687643558"], +Cell[369126, 9618, 170, 3, 41, "Output",ExpressionUUID->"15bebbf4-baae-a44a-84b5-59b3a1f444c3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[369333, 9626, 2028, 55, 63, "Input",ExpressionUUID->"b2db949b-a7b9-8f4b-afbd-a45df2eabf0c"], +Cell[371364, 9683, 20422, 382, 295, "Output",ExpressionUUID->"d9c156b6-0b42-724f-8e7d-964560057978"] +}, Open ]], +Cell[CellGroupData[{ +Cell[391823, 10070, 2120, 60, 116, "Input",ExpressionUUID->"92d458c4-bfde-c447-a06c-70a15768b745"], +Cell[393946, 10132, 502, 11, 48, "Message",ExpressionUUID->"74b51561-a06a-7345-9196-225d76f7f21f"], +Cell[394451, 10145, 506, 11, 48, "Message",ExpressionUUID->"ee03248d-dd91-8b4e-835e-9c4a5f039c61"], +Cell[394960, 10158, 505, 11, 48, "Message",ExpressionUUID->"81d7736e-0167-fe4f-bd5c-40ffaca911e4"], +Cell[395468, 10171, 458, 10, 26, "Message",ExpressionUUID->"43062041-d596-b540-8a1c-36df0575e1f0"], +Cell[395929, 10183, 22288, 412, 290, "Output",ExpressionUUID->"4ce3b436-d895-8b48-899f-c7dec78bd5cd"] +}, Open ]], +Cell[418232, 10598, 209, 5, 36, "Input",ExpressionUUID->"e1c8585a-8b57-f841-82e1-8e8787fb2589"], +Cell[CellGroupData[{ +Cell[418466, 10607, 1616, 48, 86, "Input",ExpressionUUID->"8cd26316-ef9d-184c-93c8-dd96bfd24ea1"], +Cell[420085, 10657, 595, 12, 71, "Message",ExpressionUUID->"bf4d283e-fed2-af41-90e7-a9b6911d8baf"], +Cell[420683, 10671, 595, 12, 71, "Message",ExpressionUUID->"9f6ca4d5-4251-0341-9c65-a603c68721f6"], +Cell[421281, 10685, 599, 12, 71, "Message",ExpressionUUID->"108eeaac-8397-bf4f-90a4-e14dbe759ebf"], +Cell[421883, 10699, 456, 10, 26, "Message",ExpressionUUID->"1a2f2a3c-e511-b846-8a84-9fad6555a680"], +Cell[422342, 10711, 171, 3, 41, "Output",ExpressionUUID->"ca1793f9-9753-5e46-b385-c8dd36228fd1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[422550, 10719, 2248, 64, 81, "Input",ExpressionUUID->"e0ae6f48-c6a6-a24c-812a-30286a178ca1"], +Cell[424801, 10785, 575, 12, 71, "Message",ExpressionUUID->"642a7168-3d33-6b4e-9213-0f67bfd30f54"], +Cell[425379, 10799, 577, 12, 71, "Message",ExpressionUUID->"315984db-f497-2940-bd36-1d820037ad00"], +Cell[425959, 10813, 582, 12, 71, "Message",ExpressionUUID->"2698bbc8-6aa1-c54b-9b5c-3f71a7eb3345"], +Cell[426544, 10827, 458, 10, 26, "Message",ExpressionUUID->"7f632647-49b8-a945-8682-8e4f7ae37cda"], +Cell[427005, 10839, 172, 3, 41, "Output",ExpressionUUID->"0f5bf0f0-4e96-2c4d-9011-c6ae92f19c83"] +}, Open ]], +Cell[CellGroupData[{ +Cell[427214, 10847, 2215, 63, 81, "Input",ExpressionUUID->"bce0eb71-ca49-364f-a3be-8e8c3542c5fb"], +Cell[429432, 10912, 575, 12, 71, "Message",ExpressionUUID->"704bc64b-0e53-8146-9696-c0e9ea00ec4d"], +Cell[430010, 10926, 577, 12, 71, "Message",ExpressionUUID->"68985ea1-064e-2c42-b957-ce16147f9e13"], +Cell[430590, 10940, 582, 12, 71, "Message",ExpressionUUID->"48a38db6-6d68-6140-9cb6-9dfc686aa062"], +Cell[431175, 10954, 458, 10, 26, "Message",ExpressionUUID->"ac6e6758-d573-7947-b88c-92831bb5be70"], +Cell[431636, 10966, 170, 3, 41, "Output",ExpressionUUID->"4d1b179c-7677-2745-8308-576346b6bf0b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[431843, 10974, 2223, 64, 81, "Input",ExpressionUUID->"935796a8-6280-564a-b4d0-fc6fb6cd41f8"], +Cell[434069, 11040, 573, 12, 71, "Message",ExpressionUUID->"0a9cfe95-3a6f-384b-8656-bdf67695e5d7"], +Cell[434645, 11054, 577, 12, 71, "Message",ExpressionUUID->"700ebedb-417e-8043-ab89-eb4672a7847d"], +Cell[435225, 11068, 580, 12, 71, "Message",ExpressionUUID->"599826a9-6d60-6843-9eef-e381cafa0758"], +Cell[435808, 11082, 456, 10, 26, "Message",ExpressionUUID->"d92d3772-b819-d145-8d96-f897b04ae4a7"], +Cell[436267, 11094, 173, 3, 41, "Output",ExpressionUUID->"98a57fa3-05ea-0d42-95b5-58c14727d753"] +}, Open ]], +Cell[CellGroupData[{ +Cell[436477, 11102, 213, 6, 60, "Input",ExpressionUUID->"ee52036b-90c5-e14a-aed9-684ff23ed035"], +Cell[436693, 11110, 173, 3, 41, "Output",ExpressionUUID->"ea5023c6-5364-074e-904d-43b5c1077635"] +}, Open ]], +Cell[436881, 11116, 247, 5, 36, "Input",ExpressionUUID->"c6d4a146-4cca-7e4e-b483-85227a6e6b51"], +Cell[CellGroupData[{ +Cell[437153, 11125, 558, 19, 66, "Input",ExpressionUUID->"28979542-d43a-e54a-88e0-087a68060d62"], +Cell[437714, 11146, 173, 3, 41, "Output",ExpressionUUID->"b967ea88-4a73-d84a-86f5-ad4ded7dfd59"] +}, Open ]], +Cell[CellGroupData[{ +Cell[437924, 11154, 170, 5, 71, "Input",ExpressionUUID->"c3303a76-2bd9-454b-b35d-6119cde0197e"], +Cell[438097, 11161, 173, 3, 41, "Output",ExpressionUUID->"fd8ea80a-f1d4-be4f-9cfa-b37871c5703d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[438307, 11169, 181, 5, 55, "Input",ExpressionUUID->"b83c9900-e14a-064d-b097-089d758a0eb6"], +Cell[438491, 11176, 173, 3, 41, "Output",ExpressionUUID->"7d039035-dcf9-ec46-abdb-20c0c777b3ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[438701, 11184, 6055, 185, 431, "Input",ExpressionUUID->"17437a0c-d9be-a242-b57f-efef95056982"], +Cell[444759, 11371, 172, 3, 41, "Output",ExpressionUUID->"ec08a5f9-ba46-9147-9d7b-cc1decdb981f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[444968, 11379, 368, 9, 53, "Input",ExpressionUUID->"b3706ed1-2e71-9941-86c4-d789cf8ea193"], +Cell[445339, 11390, 172, 3, 41, "Output",ExpressionUUID->"71ad1ede-d77d-ee46-a908-e7b20c10ebe8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[445548, 11398, 6122, 187, 431, "Input",ExpressionUUID->"2dad5775-7b90-2241-a408-e59b2ea47cb0"], +Cell[451673, 11587, 173, 3, 41, "Output",ExpressionUUID->"819de60b-5785-6448-8fe2-0db5976d700d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[451883, 11595, 368, 9, 53, "Input",ExpressionUUID->"ea913ab0-daa5-1f4d-93f4-2e6143537b5d"], +Cell[452254, 11606, 170, 3, 41, "Output",ExpressionUUID->"8dd6a8d3-1dbb-0d4a-9edc-e78196c49a86"] +}, Open ]], +Cell[CellGroupData[{ +Cell[452461, 11614, 2663, 88, 215, "Input",ExpressionUUID->"53a0bfe7-010b-d445-822a-52c57127f779"], +Cell[455127, 11704, 171, 3, 41, "Output",ExpressionUUID->"ae861452-cf77-f740-9f62-141306c9a07a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[455335, 11712, 2603, 85, 215, "Input",ExpressionUUID->"4e482268-3ff3-d74a-9ba6-ed262245ad4b"], +Cell[457941, 11799, 173, 3, 41, "Output",ExpressionUUID->"253d4a43-9313-5444-b0f9-3aae32edd842"] +}, Open ]], +Cell[CellGroupData[{ +Cell[458151, 11807, 3712, 118, 316, "Input",ExpressionUUID->"df39eab0-0939-764b-8de6-27d0ba2be7e8"], +Cell[461866, 11927, 173, 3, 41, "Output",ExpressionUUID->"0c1e1373-3726-9c43-862b-62a8708f83a9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[462076, 11935, 2052, 59, 116, "Input",ExpressionUUID->"6b25ec99-ae49-ec4d-9652-65328572e509"], +Cell[464131, 11996, 568, 12, 71, "Message",ExpressionUUID->"d55599c5-2bb2-8f4a-a245-aa6d5998cb8f"], +Cell[464702, 12010, 573, 12, 71, "Message",ExpressionUUID->"bdcd3bac-beba-5242-b376-95b5ed40a02a"], +Cell[465278, 12024, 576, 12, 71, "Message",ExpressionUUID->"b91a3ff7-a025-fd4e-b11c-58fa6385068b"], +Cell[465857, 12038, 458, 10, 26, "Message",ExpressionUUID->"9e66d374-59c2-ce4b-b0d2-5a3813a10542"], +Cell[466318, 12050, 172, 3, 41, "Output",ExpressionUUID->"5742ee33-8e4b-444c-91b6-6d4c403c91e9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[466527, 12058, 2052, 59, 116, "Input",ExpressionUUID->"3e2baf62-fab9-eb41-8de7-aa229443ac14"], +Cell[468582, 12119, 568, 12, 71, "Message",ExpressionUUID->"49d9e2db-79aa-5b48-897e-3089c92c79b4"], +Cell[469153, 12133, 573, 12, 71, "Message",ExpressionUUID->"2361061c-25a8-4549-ba9e-397593d876d4"], +Cell[469729, 12147, 574, 12, 71, "Message",ExpressionUUID->"a2993171-fcd7-8742-bf17-921d87bded0b"], +Cell[470306, 12161, 458, 10, 26, "Message",ExpressionUUID->"c72ccd11-884d-074a-bf1c-ed71d6dc6298"], +Cell[470767, 12173, 172, 3, 41, "Output",ExpressionUUID->"9dfb51ec-f6bd-9540-91f7-9d4800c6c680"] +}, Open ]], +Cell[CellGroupData[{ +Cell[470976, 12181, 2028, 55, 63, "Input",ExpressionUUID->"725c3011-bda9-4c42-96ce-9a77a5dc787c"], +Cell[473007, 12238, 20375, 384, 295, "Output",ExpressionUUID->"e400bdb6-95ee-464e-9e4c-d5d7da48485f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[493419, 12627, 2118, 60, 116, "Input",ExpressionUUID->"1ea503b1-33a1-2744-a92d-2e1269faf5ed"], +Cell[495540, 12689, 501, 11, 48, "Message",ExpressionUUID->"1c59fae3-3f74-0144-b936-915cf372347d"], +Cell[496044, 12702, 503, 11, 48, "Message",ExpressionUUID->"c058b3d2-ecc0-7348-bdec-143a71e7f77c"], +Cell[496550, 12715, 506, 11, 48, "Message",ExpressionUUID->"049ee41e-a5fd-7e46-9ca5-37402fcadc74"], +Cell[497059, 12728, 458, 10, 26, "Message",ExpressionUUID->"5bf93938-89e6-8d49-a495-6173a8c36739"], +Cell[497520, 12740, 22161, 409, 290, "Output",ExpressionUUID->"0ea0f8f9-2a4b-804f-a2c8-287645f62313"] +}, Open ]], +Cell[519696, 13152, 209, 5, 36, "Input",ExpressionUUID->"b530b35f-2a32-0145-82a7-25a7a01bdd8f"], +Cell[CellGroupData[{ +Cell[519930, 13161, 1616, 48, 86, "Input",ExpressionUUID->"a0d63734-417a-b84f-b5c7-88ca33cb9355"], +Cell[521549, 13211, 590, 12, 71, "Message",ExpressionUUID->"cb4665e4-f252-8e4c-9d71-b694fbe7aa53"], +Cell[522142, 13225, 589, 12, 71, "Message",ExpressionUUID->"e67b353a-d4a9-454a-9cac-3e22ef8a4d4b"], +Cell[522734, 13239, 593, 12, 71, "Message",ExpressionUUID->"9dbc6a20-c95c-084e-b19f-b6bb6bd70d6b"], +Cell[523330, 13253, 456, 10, 26, "Message",ExpressionUUID->"f9b6cbc5-ab52-2741-b8bf-bf6796495def"], +Cell[523789, 13265, 170, 3, 41, "Output",ExpressionUUID->"1439e238-af89-2243-beb8-0a46e5e09115"] +}, Open ]], +Cell[CellGroupData[{ +Cell[523996, 13273, 2251, 64, 81, "Input",ExpressionUUID->"97b28b29-5d04-5c42-a0e8-93b70f20e7f6"], +Cell[526250, 13339, 568, 12, 71, "Message",ExpressionUUID->"033374a1-a008-6240-84e3-c1c7a7e65b75"], +Cell[526821, 13353, 573, 12, 71, "Message",ExpressionUUID->"88ab6d85-4789-7346-aeee-8e9a4b87248d"], +Cell[527397, 13367, 574, 12, 71, "Message",ExpressionUUID->"051100a9-488b-4d4d-83c7-cdc54aef13e0"], +Cell[527974, 13381, 458, 10, 26, "Message",ExpressionUUID->"a33cd954-f1de-bf45-8642-effd7c3e029f"], +Cell[528435, 13393, 173, 3, 41, "Output",ExpressionUUID->"48a4017b-948a-6a48-8b10-d81adf4b9038"] +}, Open ]], +Cell[CellGroupData[{ +Cell[528645, 13401, 2221, 64, 81, "Input",ExpressionUUID->"f9d1ad25-05cb-d544-8ab6-cdce838d9efe"], +Cell[530869, 13467, 570, 12, 71, "Message",ExpressionUUID->"d8156b3f-4442-9146-9c48-cb34fdfb79d3"], +Cell[531442, 13481, 573, 12, 71, "Message",ExpressionUUID->"60007a19-2492-cd46-a203-7c2bbbc6591f"], +Cell[532018, 13495, 573, 12, 71, "Message",ExpressionUUID->"8754c4a5-0539-0247-94a5-8a81a9ae7e49"], +Cell[532594, 13509, 458, 10, 26, "Message",ExpressionUUID->"3af4c7f8-fe90-6646-8e3b-058500b348e9"], +Cell[533055, 13521, 171, 3, 41, "Output",ExpressionUUID->"46f7d520-9bcf-9d48-ae7c-54e91ca06983"] +}, Open ]], +Cell[CellGroupData[{ +Cell[533263, 13529, 2221, 64, 81, "Input",ExpressionUUID->"0794d062-69d5-0a45-936e-533b19d33de6"], +Cell[535487, 13595, 570, 12, 71, "Message",ExpressionUUID->"ba4db233-5a2e-4340-98d0-df918a11e2c7"], +Cell[536060, 13609, 573, 12, 71, "Message",ExpressionUUID->"444b24ca-68bb-7144-a655-403eefa4900f"], +Cell[536636, 13623, 574, 12, 71, "Message",ExpressionUUID->"f2dc2286-68d4-d74f-83ea-dd0f591156a8"], +Cell[537213, 13637, 458, 10, 26, "Message",ExpressionUUID->"4974a702-c238-6d47-b5b2-a3c25cacf142"], +Cell[537674, 13649, 173, 3, 41, "Output",ExpressionUUID->"d46043b7-707b-4740-ab89-0a2b96978cff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[537884, 13657, 215, 6, 60, "Input",ExpressionUUID->"95c56266-e4d3-624e-89c1-cedeeeb0247a"], +Cell[538102, 13665, 172, 3, 41, "Output",ExpressionUUID->"188c2681-ea17-924e-adb2-007b19a9ee86"] +}, Open ]], +Cell[538289, 13671, 115, 1, 36, "Input",ExpressionUUID->"003a3cee-6cc9-43f2-a36e-2e9c0a4a4908"] } ] *) -(* End of internal cache information *) - diff --git a/Pu240_798-811_TitovAA/168-72_h_Pu240_22-23/h_168-72_Pu240_22-23_pr_Qw1.nb b/Pu240_798-811_TitovAA/168-72_h_Pu240_22-23/h_168-72_Pu240_22-23_pr_Qw1.nb index 14330be..8032e62 100644 --- a/Pu240_798-811_TitovAA/168-72_h_Pu240_22-23/h_168-72_Pu240_22-23_pr_Qw1.nb +++ b/Pu240_798-811_TitovAA/168-72_h_Pu240_22-23/h_168-72_Pu240_22-23_pr_Qw1.nb @@ -3,25 +3,4876 @@ (*** 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[ 616425, 14936] +NotebookOptionsPosition[ 576639, 14305] +NotebookOutlinePosition[ 577080, 14323] +CellTagsIndexPosition[ 577037, 14320] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f1", "="}]], "Input", + RowBox[{"d", "=", "1.9"}]], "Input", CellChangeTimes->{ - 3.9918488488187084`*^9},ExpressionUUID->"bdefbecf-0aaa-4a45-a861-\ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.9940735873936653`*^9, 3.9940735896443777`*^9}, { + 3.994075218023417*^9, 3.994075221411705*^9}}, + CellLabel-> + "In[106]:=",ExpressionUUID->"c0335248-5247-4f13-926b-fa62a8f981f8"], + +Cell[BoxData["1.9`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, {3.9940735644974327`*^9, 3.994073590895896*^9}, { + 3.994075171996416*^9, 3.994075180507247*^9}, {3.994075219377726*^9, + 3.9940752234153214`*^9}}, + CellLabel-> + "Out[106]=",ExpressionUUID->"ceb62d2e-5f81-4d00-baa6-06f3301db58f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.9940732811688833`*^9, 3.994073289502289*^9}}, + CellLabel-> + "In[107]:=",ExpressionUUID->"354befd8-b4be-4c61-8a98-493114337f1f"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, {3.994073564560362*^9, 3.994073590977919*^9}, + 3.994075180702458*^9, 3.9940752234546824`*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"aa9acc15-94a5-48ec-aa8a-a0e86efa3475"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "168"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.994073284506165*^9, 3.994073287626708*^9}}, + CellLabel-> + "In[108]:=",ExpressionUUID->"a9a84cdd-aa0a-4f21-aaa0-f584821f8cde"], + +Cell[BoxData["168"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, {3.994073564571506*^9, 3.994073590992278*^9}, + 3.994075180712758*^9, 3.9940752234670067`*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"4db3209e-46c3-4b70-a558-d0e16d75924a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel-> + "In[109]:=",ExpressionUUID->"6166240b-c04a-47c3-91f8-2572d760f671"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, {3.994073564582589*^9, 3.994073590996417*^9}, + 3.994075180723978*^9, 3.994075223478387*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"1ba05c05-42ce-4682-95b3-ac200c44e934"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel-> + "In[110]:=",ExpressionUUID->"1cc1773a-afa8-404c-ab7d-98dfc3caed55"], + +Cell[BoxData["0.544`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, {3.994073564593708*^9, 3.994073591015129*^9}, + 3.994075180735317*^9, 3.994075223489546*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"cac6c2a2-1e45-4220-8d78-0a494a8edd9e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel-> + "In[111]:=",ExpressionUUID->"ac4e08ab-a3a2-4447-9ac6-7a59c3909ef7"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, {3.994073564604851*^9, 3.9940735910271397`*^9}, + 3.9940751807454844`*^9, 3.994075223493987*^9}, + CellLabel-> + "Out[111]=",ExpressionUUID->"a9587b20-8751-462b-9920-b9ae8d8c3a20"] +}, 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[112]:=",ExpressionUUID->"5603746c-7135-454a-be5d-59a4b3dabe03"], + +Cell[BoxData["6.400704089204199`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, {3.9940735646161203`*^9, 3.9940735910381737`*^9}, + 3.99407518075636*^9, 3.9940752235073977`*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"ec44b850-7fde-4a49-bcd6-5d955f8fc74b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel-> + "In[113]:=",ExpressionUUID->"d24b86df-4e74-4c9c-8318-4e08eb58fd43"], + +Cell[BoxData["4.825794469480417`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, {3.994073564627458*^9, 3.9940735910486517`*^9}, + 3.994075180767749*^9, 3.9940752235185337`*^9}, + CellLabel-> + "Out[113]=",ExpressionUUID->"32a5fad8-d2c9-40b4-95c9-775636ea5ca5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.8877902834"}]], "Input", + CellChangeTimes->{3.991799283179735*^9, 3.994073298855084*^9}, + CellLabel-> + "In[114]:=",ExpressionUUID->"5c5a5da4-d766-4793-86a8-8f6a53b73c5e"], + +Cell[BoxData["0.8877902834`"], "Output", + CellChangeTimes->{{3.99407356463848*^9, 3.994073591058733*^9}, + 3.994075180779163*^9, 3.994075223529882*^9}, + CellLabel-> + "Out[114]=",ExpressionUUID->"12d3b0e0-0941-46b2-906e-f7f53b008bf7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.3862529089"}]], "Input", + CellChangeTimes->{3.991799280663351*^9, 3.994073304321521*^9}, + CellLabel-> + "In[115]:=",ExpressionUUID->"9a082f09-f9d3-4bad-84cb-72b8e84d2756"], + +Cell[BoxData["0.3862529089`"], "Output", + CellChangeTimes->{{3.9940735646497602`*^9, 3.994073591068905*^9}, + 3.994075180790642*^9, 3.994075223541339*^9}, + CellLabel-> + "Out[115]=",ExpressionUUID->"172aaa76-1da9-440f-8637-f3d2e59158ac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel-> + "In[116]:=",ExpressionUUID->"bc93169a-7f39-4d7a-aba2-e0d1bde947e6"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, {3.994073564660372*^9, 3.994073591079844*^9}, + 3.9940751808023157`*^9, 3.99407522355291*^9}, + CellLabel-> + "Out[116]=",ExpressionUUID->"990f47b0-5d66-46b8-8540-aa25ef18bf6c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel-> + "In[117]:=",ExpressionUUID->"3cddb14a-cfc5-4d7b-a60c-0bfb54d25f87"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, {3.994073564670796*^9, 3.994073591090024*^9}, + 3.994075180813775*^9, 3.994075223564582*^9}, + CellLabel-> + "Out[117]=",ExpressionUUID->"949240ff-8a96-425e-bbaf-31fe7022c59d"] +}, 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[118]:=",ExpressionUUID->"99e72024-8dca-46c2-9f6e-4e49d00393d8"], + +Cell[BoxData["2.2780057225092705`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, {3.9940735646817017`*^9, 3.994073591101307*^9}, + 3.9940751808204927`*^9, 3.99407522357547*^9}, + CellLabel-> + "Out[118]=",ExpressionUUID->"ab263a2f-6ec1-49da-851d-122c1a939904"] +}, 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[119]:=",ExpressionUUID->"7e56c9da-ba3b-414d-9c5c-323c366b0f61"], + +Cell[BoxData["1.4218629228610074`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, {3.9940735646923637`*^9, 3.994073591111409*^9}, + 3.994075180833333*^9, 3.99407522358539*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"2e382193-856c-406a-ad00-52213b3d070c"] +}, 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[120]:=",ExpressionUUID->"54e0e6b9-1e0d-4ff8-ab6e-fec01274c687"], + +Cell[BoxData["0.4156604021030056`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, {3.994073564703178*^9, 3.99407359112132*^9}, + 3.994075180844792*^9, 3.994075223596579*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"df2709fe-1126-42da-8ae3-4c614ff552f4"] +}, 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[121]:=",ExpressionUUID->"16ada101-d422-48cc-b9c6-0c548b80c938"], + +Cell[BoxData[ + RowBox[{"-", "0.08656844775361539`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, {3.994073564714039*^9, 3.994073591132222*^9}, + 3.994075180888361*^9, 3.994075223608573*^9}, + CellLabel-> + "Out[121]=",ExpressionUUID->"098bfcb8-2ecf-4ebe-8697-c15b8864dec1"] +}, 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[122]:=",ExpressionUUID->"67614b29-ea38-467b-ad1e-848611eed2d6"], + +Cell[BoxData[ + RowBox[{"-", "0.5722877017893374`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, {3.9940735647250757`*^9, 3.994073591143152*^9}, + 3.994075180901285*^9, 3.994075223621201*^9}, + CellLabel-> + "Out[122]=",ExpressionUUID->"453f20c6-7f70-4443-a374-12bbc65f1132"] +}, 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[123]:=",ExpressionUUID->"6e819a46-7aa0-4151-a6cd-6bdc76a25292"], + +Cell[BoxData["0.7168396379251292`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, {3.994073564736117*^9, 3.994073591154641*^9}, + 3.9940751809127274`*^9, 3.994075223631315*^9}, + CellLabel-> + "Out[123]=",ExpressionUUID->"d36ce724-4946-4073-99e5-9782b84bbecb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel-> + "In[124]:=",ExpressionUUID->"fb2f36b8-4cb6-4bdd-a4be-3b902e12f18d"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, {3.994073564745685*^9, 3.9940735911671133`*^9}, + 3.9940751809237967`*^9, 3.994075223641436*^9}, + CellLabel-> + "Out[124]=",ExpressionUUID->"2453793b-9be0-454f-bc05-3af7819d1790"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel-> + "In[125]:=",ExpressionUUID->"3639ec78-e245-4fbc-bceb-94be6eae0b95"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, {3.994073564755136*^9, 3.994073591178863*^9}, + 3.9940751809343033`*^9, 3.9940752236530647`*^9}, + CellLabel-> + "Out[125]=",ExpressionUUID->"35eb5f76-ca26-4828-a1e3-c83a1b4f1adf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel-> + "In[126]:=",ExpressionUUID->"3bd9ee5d-b974-4258-914b-375ae4e1df1d"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, {3.9940735647648563`*^9, 3.994073591190179*^9}, + 3.9940751809451323`*^9, 3.994075223664682*^9}, + CellLabel-> + "Out[126]=",ExpressionUUID->"ea0777b9-9cb9-4ee7-ad98-16cb31cf4aa2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel-> + "In[127]:=",ExpressionUUID->"8fa011cb-4a23-4e0b-8c62-1ddf5c0e3f36"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, {3.994073564774688*^9, 3.994073591201717*^9}, + 3.994075180956657*^9, 3.994075223675436*^9}, + CellLabel-> + "Out[127]=",ExpressionUUID->"03338214-083a-401d-a6e6-b60b43caa38c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel-> + "In[128]:=",ExpressionUUID->"da1d7249-1f33-48d4-b51e-3dd7bb77315e"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, {3.994073564784115*^9, 3.994073591213622*^9}, + 3.9940751809686193`*^9, 3.9940752236862583`*^9}, + CellLabel-> + "Out[128]=",ExpressionUUID->"5c951bc6-3170-488b-a321-9ead508184d4"] +}, 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.994073317560268*^9, 3.994073317727027*^9}}, + CellLabel-> + "In[129]:=",ExpressionUUID->"510028e4-882a-4df9-9b40-bfcd3c772953"], + +Cell[BoxData["66"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, {3.994073564793541*^9, 3.994073591224018*^9}, + 3.994075180980678*^9, 3.994075223697234*^9}, + CellLabel-> + "Out[129]=",ExpressionUUID->"dbce15ee-c59b-497f-9e37-1443941efb40"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, {3.9940733207460938`*^9, 3.994073320804184*^9}}, + CellLabel-> + "In[130]:=",ExpressionUUID->"f3fb1b87-340d-4e3a-a91e-5115ab7911c5"], + +Cell[BoxData["28"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, {3.9940735648031883`*^9, 3.9940735912353287`*^9}, + 3.9940751809920683`*^9, 3.994075223707429*^9}, + CellLabel-> + "Out[130]=",ExpressionUUID->"4c30a20a-3182-4a49-b31a-cded622b81a8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel-> + "In[131]:=",ExpressionUUID->"1de600e4-7465-4dc8-b56f-43516753f540"], + +Cell[BoxData["72"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, {3.99407356481284*^9, 3.994073591246372*^9}, + 3.994075181003516*^9, 3.994075223717374*^9}, + CellLabel-> + "Out[131]=",ExpressionUUID->"dc1462f9-31c9-49ed-a16f-b52aea3e6112"] +}, 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[132]:=",ExpressionUUID->"cb2d4f82-397e-4a51-8be2-42063086093d"], + +Cell[BoxData["0.10999999999999999`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, {3.994073564822513*^9, 3.9940735912565413`*^9}, + 3.994075181014969*^9, 3.994075223727599*^9}, + CellLabel-> + "Out[132]=",ExpressionUUID->"46aba39d-d5e8-46bc-8816-495dedaf7a47"] +}, 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[133]:=",ExpressionUUID->"8993c6b3-c3e7-44a7-85aa-b36f40e453a4"], + +Cell[BoxData[ + RowBox[{"-", "2.564285714285714`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, {3.994073564832857*^9, 3.994073591267404*^9}, + 3.9940751810260887`*^9, 3.9940752237376823`*^9}, + CellLabel-> + "Out[133]=",ExpressionUUID->"bdcbf2bf-54d6-42b2-9892-707c318f9cf6"] +}, 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[134]:=",ExpressionUUID->"40eace06-4fbe-46fc-bfc8-8e67d497e107"], + +Cell[BoxData["17.427928477019236`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, {3.994073564842832*^9, 3.9940735912778807`*^9}, + 3.9940751810379477`*^9, 3.994075223748026*^9}, + CellLabel-> + "Out[134]=",ExpressionUUID->"b1597745-fe5e-4d01-af16-e4b928caa564"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel-> + "In[135]:=",ExpressionUUID->"915acc3b-0278-4ec9-81ec-34747a42d3c9"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, {3.994073564851839*^9, 3.994073591288074*^9}, + 3.99407518104945*^9, 3.994075223758711*^9}, + CellLabel-> + "Out[135]=",ExpressionUUID->"7e476c0a-8950-4107-b7b1-a6dd348403bf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "2.155"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { + 3.994073341190873*^9, 3.994073342038845*^9}}, + CellLabel-> + "In[136]:=",ExpressionUUID->"5ef6a20c-5cd2-42f7-8da7-ebe72323b4ec"], + +Cell[BoxData["2.155`"], "Output", + CellChangeTimes->{{3.994073564860754*^9, 3.994073591298296*^9}, + 3.994075181060684*^9, 3.994075223775366*^9}, + CellLabel-> + "Out[136]=",ExpressionUUID->"a00be3b9-b0e0-4d08-a9c0-73fc996848f0"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel-> + "In[137]:=",ExpressionUUID->"48c0c524-e26b-4d2e-95e3-1420b47e42d3"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.755"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.994073344618413*^9, 3.994073345759185*^9}}, + CellLabel-> + "In[138]:=",ExpressionUUID->"69b389d6-e250-4a61-bec4-6681f862fc89"], + +Cell[BoxData["0.755`"], "Output", + CellChangeTimes->{{3.994073564877489*^9, 3.994073591311125*^9}, + 3.9940751810754833`*^9, 3.9940752237900457`*^9}, + CellLabel-> + "Out[138]=",ExpressionUUID->"962e4c63-d89d-487c-ac1c-b66bf6e0f611"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel-> + "In[139]:=",ExpressionUUID->"201d274f-b28e-4d36-94fa-28f8d9d0b9e2"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "2.62"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.9940733478949413`*^9, 3.994073348567162*^9}}, + CellLabel-> + "In[140]:=",ExpressionUUID->"0bb0ca5a-a152-4981-bdb2-9d32241b5481"], + +Cell[BoxData["2.62`"], "Output", + CellChangeTimes->{{3.994073564894133*^9, 3.9940735913232403`*^9}, + 3.994075181088438*^9, 3.994075223803163*^9}, + CellLabel-> + "Out[140]=",ExpressionUUID->"e8247fbd-07ea-4853-9a05-4f6ce329caf3"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel-> + "In[141]:=",ExpressionUUID->"b2974d27-96c4-469c-b450-7f00b2efc66b"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.135"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, {3.99407335112987*^9, 3.9940733523562517`*^9}}, + CellLabel-> + "In[142]:=",ExpressionUUID->"6a3bcb7f-c703-4f0a-80b0-03f64c0faed8"], + +Cell[BoxData["1.135`"], "Output", + CellChangeTimes->{{3.994073564911627*^9, 3.994073591335389*^9}, + 3.994075181101487*^9, 3.994075223815889*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"3404e60d-3820-4084-a1e8-04b1d3bae090"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel-> + "In[143]:=",ExpressionUUID->"18c4df67-6890-4429-926e-cc22e3e979ea"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.025"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, {3.994073355091783*^9, + 3.994073355935183*^9}}, + CellLabel-> + "In[144]:=",ExpressionUUID->"96d17d67-b209-4476-a91c-c9707ec30b3f"], + +Cell[BoxData["1.025`"], "Output", + CellChangeTimes->{{3.994073564928769*^9, 3.9940735913488693`*^9}, + 3.994075181114448*^9, 3.994075223832756*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"de11238c-e73e-41b0-a2c8-1c6fa46c3712"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel-> + "In[145]:=",ExpressionUUID->"2651477c-a144-4f89-8ddb-9a0b58c38f62"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.575"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.994073359153013*^9, + 3.9940733600822906`*^9}}, + CellLabel-> + "In[146]:=",ExpressionUUID->"df16c93c-10f6-4301-8a6a-9b6d2f7293e4"], + +Cell[BoxData["0.575`"], "Output", + CellChangeTimes->{{3.994073564946273*^9, 3.99407359136164*^9}, + 3.9940751811274652`*^9, 3.9940752238459263`*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"b162a30d-861a-49af-9f4c-38c95acdbba6"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel-> + "In[147]:=",ExpressionUUID->"37b5a9d6-6387-47b7-9e2f-fb9438400ee9"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "1.44"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, 3.994073366138835*^9, { + 3.994073396938322*^9, 3.994073398601803*^9}}, + CellLabel-> + "In[148]:=",ExpressionUUID->"e9786605-1be3-45cd-af96-9a833fbd2027"], + +Cell[BoxData["1.44`"], "Output", + CellChangeTimes->{{3.994073564964167*^9, 3.9940735913757553`*^9}, + 3.9940751811406727`*^9, 3.9940752238589993`*^9}, + CellLabel-> + "Out[148]=",ExpressionUUID->"d20b5187-c0e7-4d30-b185-57f93df63f20"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel-> + "In[149]:=",ExpressionUUID->"72743464-9145-44aa-b8c5-9ce8cb3a1661"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "0.645"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, {3.9940734006045856`*^9, 3.99407340214142*^9}}, + CellLabel-> + "In[150]:=",ExpressionUUID->"5f7b1f55-72bb-425e-8a55-284fd8d2e435"], + +Cell[BoxData["0.645`"], "Output", + CellChangeTimes->{{3.9940735649821672`*^9, 3.994073591389337*^9}, + 3.994075181153781*^9, 3.994075223871763*^9}, + CellLabel-> + "Out[150]=",ExpressionUUID->"7fc1ac66-809a-4f55-844a-9da079c6447b"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel-> + "In[151]:=",ExpressionUUID->"453209c5-91c3-4edf-9ba2-5a059b785845"], + +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[152]:=",ExpressionUUID->"d4a650aa-aa3b-4af2-8c25-cd6a8950511c"], + +Cell[BoxData["0.1377756020325425`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, {3.9940735650538073`*^9, 3.99407359143029*^9}, + 3.994075181231205*^9, 3.9940752239087954`*^9}, + CellLabel-> + "Out[152]=",ExpressionUUID->"c4533770-e51c-4efe-ad9c-7934cde475ba"] +}, 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[153]:=",ExpressionUUID->"3ac53e2c-e6a1-49a0-adef-a26078efff40"], + +Cell[BoxData["7.524926889811008`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, {3.99407356508613*^9, 3.994073591458125*^9}, + 3.994075181264968*^9, 3.994075223937818*^9}, + CellLabel-> + "Out[153]=",ExpressionUUID->"4aeedbbe-7897-41fb-aba8-70853993e4f0"] +}, 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[154]:=",ExpressionUUID->"df9e6656-1de2-4cf4-ab98-4aaf4c5aafb9"], + +Cell[BoxData[ + RowBox[{"-", "14.084113046357718`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, {3.994073565118821*^9, 3.994073591484323*^9}, + 3.994075181298151*^9, 3.9940752239647293`*^9}, + CellLabel-> + "Out[154]=",ExpressionUUID->"047139e5-a4d7-4fa3-a584-e6dee055fc0f"] +}, 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[155]:=",ExpressionUUID->"102c1b36-6747-4403-9b99-7d44ce9a28bb"], + +Cell[BoxData[ + RowBox[{"-", "18.31263149263108`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, {3.9940735651553993`*^9, 3.994073591515855*^9}, + 3.9940751813370543`*^9, 3.994075223996374*^9}, + CellLabel-> + "Out[155]=",ExpressionUUID->"6946a29a-1641-428b-9db0-c60f5925bd08"] +}, 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[156]:=",ExpressionUUID->"95296522-0a2a-434c-8865-2c89ba3efa73"], + +Cell[BoxData[ + RowBox[{"-", "53.236632839784775`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, {3.994073565191607*^9, 3.9940735915482073`*^9}, + 3.9940751813752813`*^9, 3.994075224029221*^9}, + CellLabel-> + "Out[156]=",ExpressionUUID->"307adb1a-7bbe-4fb6-8094-5b6015f7be40"] +}, 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[157]:=",ExpressionUUID->"9010b95c-ac92-4603-9235-8445a1e62807"], + +Cell[BoxData[ + RowBox[{"-", "137.72173412227852`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, {3.9940735652337313`*^9, 3.9940735915861683`*^9}, + 3.9940751814204807`*^9, 3.99407522406466*^9}, + CellLabel-> + "Out[157]=",ExpressionUUID->"f7beb120-f713-40d9-bf35-8eae0ef2a65c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel-> + "In[158]:=",ExpressionUUID->"86f01f3e-5f28-417e-8437-8e045dcea278"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, {3.994073565247233*^9, 3.99407359159737*^9}, + 3.994075181435895*^9, 3.9940752240755796`*^9}, + CellLabel-> + "Out[158]=",ExpressionUUID->"4489ccb6-da05-44b2-83ed-c78506fbc0ed"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel-> + "In[159]:=",ExpressionUUID->"083a2ac6-7106-49ed-aeca-5f099f6ab7dc"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, {3.994073565259305*^9, 3.994073591607201*^9}, + 3.9940751814462433`*^9, 3.994075224085256*^9}, + CellLabel-> + "Out[159]=",ExpressionUUID->"e8e800b6-12bd-421a-a85b-6e8ef1f6b145"] +}, 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[160]:=",ExpressionUUID->"b91cd1e8-6fa7-4eaa-9663-290567205b38"], + +Cell[BoxData["109.03965674383026`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, {3.9940735652689238`*^9, 3.99407359161714*^9}, + 3.994075181457575*^9, 3.994075224089169*^9}, + CellLabel-> + "Out[160]=",ExpressionUUID->"24e10728-5b97-47b9-857c-7f835ce7c8a2"] +}, 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[161]:=",ExpressionUUID->"dafb5daa-ccd4-43ad-b6dd-0344b2068787"], + +Cell[BoxData[ + RowBox[{"-", "96.23297652944373`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, {3.9940735652791967`*^9, 3.994073591627187*^9}, + 3.994075181468134*^9, 3.9940752240986977`*^9}, + CellLabel-> + "Out[161]=",ExpressionUUID->"ef048afa-181b-46d6-a204-a4f43dfd5462"] +}, 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[162]:=",ExpressionUUID->"a7ae48a9-4b3e-4ff0-a2eb-8bf797d30085"], + +Cell[BoxData["112.13680293055965`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, {3.994073565289288*^9, 3.994073591637117*^9}, + 3.994075181479414*^9, 3.9940752241080437`*^9}, + CellLabel-> + "Out[162]=",ExpressionUUID->"deaae744-91d3-42dc-92b5-0490afb71aab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel-> + "In[163]:=",ExpressionUUID->"9c297244-a5bc-496f-a923-9aaa5f24f6c1"], + +Cell[BoxData["0.4156604021030056`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, {3.99407356529922*^9, 3.994073591647008*^9}, + 3.994075181491456*^9, 3.994075224117897*^9}, + CellLabel-> + "Out[163]=",ExpressionUUID->"7295b066-5026-4596-aa1d-9a4707b7f587"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel-> + "In[164]:=",ExpressionUUID->"877fcbde-276e-4a2c-836d-53d540a497ca"], + +Cell[BoxData[ + RowBox[{"-", "0.08656844775361539`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, {3.994073565311245*^9, 3.994073591656905*^9}, + 3.994075181502122*^9, 3.9940752241273518`*^9}, + CellLabel-> + "Out[164]=",ExpressionUUID->"e849b770-6467-483e-8abb-57197cc517ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel-> + "In[165]:=",ExpressionUUID->"3b8a316a-a410-47e0-a13d-9efe5a77ce3e"], + +Cell[BoxData[ + RowBox[{"-", "0.5722877017893374`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, {3.9940735653224297`*^9, 3.994073591666703*^9}, + 3.994075181512973*^9, 3.994075224138131*^9}, + CellLabel-> + "Out[165]=",ExpressionUUID->"2dafd199-4af3-432e-a02e-b79c927ee72a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel-> + "In[166]:=",ExpressionUUID->"c740442c-d864-4b98-9a47-4e36289cbbf2"], + +Cell[BoxData["0.7168396379251292`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, {3.994073565332736*^9, 3.994073591676529*^9}, + 3.9940751815232983`*^9, 3.99407522414828*^9}, + CellLabel-> + "Out[166]=",ExpressionUUID->"fa2eab3a-9ee0-4932-bd1d-3a7114885d17"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel-> + "In[167]:=",ExpressionUUID->"b7724a61-bf3f-42ba-bf4b-234390c9872a"], + +Cell[BoxData["2.2780057225092705`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, {3.994073565343382*^9, 3.994073591686304*^9}, + 3.9940751815621433`*^9, 3.994075224158536*^9}, + CellLabel-> + "Out[167]=",ExpressionUUID->"89c9ccf3-57cc-44b9-ad58-f14bfcbb7e9c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel-> + "In[168]:=",ExpressionUUID->"fd13d997-9762-499b-a2f1-b85c8102c377"], + +Cell[BoxData["1.4218629228610074`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, {3.9940735677968397`*^9, 3.994073591696135*^9}, + 3.994075181571867*^9, 3.994075224168653*^9}, + CellLabel-> + "Out[168]=",ExpressionUUID->"5eb336fb-1474-48c7-8e70-b2d51035d2b0"] +}, 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[169]:=",ExpressionUUID->"6b10c15a-f89b-4a9a-a8fe-3200c0eb53fa"], + +Cell[BoxData[ + RowBox[{"-", "34.047906297441784`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, {3.994073567991251*^9, 3.994073591706287*^9}, + 3.994075181582259*^9, 3.994075224178802*^9}, + CellLabel-> + "Out[169]=",ExpressionUUID->"2be4e0b2-ff27-4032-bb6f-07d5eb554252"] +}, 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[170]:=",ExpressionUUID->"dea721d1-bdbd-4248-99c9-331ed0ad1233"], + +Cell[BoxData[ + RowBox[{"-", "6.56405378738986`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, {3.994073568001831*^9, 3.994073591716386*^9}, + 3.994075181592502*^9, 3.994075224188962*^9}, + CellLabel-> + "Out[170]=",ExpressionUUID->"e4a89a47-8b20-43f2-ae24-44f802be60e6"] +}, 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[171]:=",ExpressionUUID->"b012b84c-6e63-429d-bc53-eb09754291c1"], + +Cell[BoxData["74.99175044638848`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, {3.994073568012953*^9, 3.994073591726822*^9}, + 3.9940751816039963`*^9, 3.994075224199308*^9}, + CellLabel-> + "Out[171]=",ExpressionUUID->"c3b55c8b-5a54-4004-9afc-4b91d92ad3fb"] +}, 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[172]:=",ExpressionUUID->"d39fa51b-8be7-410b-a294-c35f27d1b65b"], + +Cell[BoxData[ + RowBox[{"-", "96.23297652944373`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, {3.994073568023205*^9, 3.9940735917368*^9}, + 3.994075181615046*^9, 3.994075224209613*^9}, + CellLabel-> + "Out[172]=",ExpressionUUID->"e9dc6c44-5995-467b-bec7-657b972dd207"] +}, 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[173]:=",ExpressionUUID->"1b4104e3-8445-4439-826d-6d10b9d6c287"], + +Cell[BoxData["105.57274914316979`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, {3.994073568033989*^9, 3.994073591747006*^9}, + 3.994075181626021*^9, 3.994075224219851*^9}, + CellLabel-> + "Out[173]=",ExpressionUUID->"963ea5ba-2331-426f-ae87-dbd63a93831b"] +}, 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[174]:=",ExpressionUUID->"8b288cdc-a966-4c35-a26b-ef5be912ee32"], + +Cell[BoxData["39.10949309233206`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, {3.994073568045323*^9, 3.99407359175727*^9}, + 3.994075181636903*^9, 3.99407522423002*^9}, + CellLabel-> + "Out[174]=",ExpressionUUID->"212a0e4a-9d50-4333-b445-d6217fc229cd"] +}, 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[175]:=",ExpressionUUID->"0afb1289-2b6f-4d81-8a63-5b10c39a0135"], + +Cell[BoxData["659.7171122788135`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, {3.994073568055649*^9, 3.994073591768012*^9}, + 3.9940751816477003`*^9, 3.99407522424048*^9}, + CellLabel-> + "Out[175]=",ExpressionUUID->"d21d33fa-6c1a-4767-b04a-479aa03b8a20"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"f1", "=", "0.4800798445"}]], "Input", + CellChangeTimes->{3.9918488488187084`*^9, + 3.994084789621996*^9},ExpressionUUID->"bdefbecf-0aaa-4a45-a861-\ 406cf54e52d1"], Cell[BoxData[""], "Input", @@ -30,9 +4881,9 @@ Cell[BoxData[""], "Input", 7bcc4af89c62"], Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", - CellChangeTimes->{ - 3.9918488509977226`*^9},ExpressionUUID->"45ed831b-459a-9a41-990f-\ + RowBox[{"f2", "=", "0.2075336813"}]], "Input", + CellChangeTimes->{3.9918488509977226`*^9, + 3.994084794627777*^9},ExpressionUUID->"45ed831b-459a-9a41-990f-\ c079ad464f5d"], Cell[BoxData[""], "Input", @@ -2844,9 +7695,72 @@ Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", - RowBox[{"{", "}"}], "]"}]}]], "Input", - CellChangeTimes->{{3.991799458254999*^9, - 3.9917994623413925`*^9}},ExpressionUUID->"0f83f761-b16d-5343-987d-\ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.005365"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.015909"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.025915"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.035051"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.043054"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.049704"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.05488"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.058507"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.060618"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.061275"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.060632"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.058842"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.056126"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.052675"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.048717"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.044429"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.040006"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.03558"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.031291"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.027216"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.023437"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.019982"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.016885"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.014139"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.011745"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.009675"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.007913"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.006421"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.005177"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.004144"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.003297"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.994084950625277*^9},ExpressionUUID->"0f83f761-b16d-5343-987d-\ 511095eaf120"], Cell[BoxData[ @@ -9381,13 +14295,19 @@ Cell[BoxData["0.08155763943441016`"], "Output", CellChangeTimes->{3.9913335366395893`*^9}, CellLabel-> "Out[229]=",ExpressionUUID->"3737ba01-5151-874d-9846-1c8b07e42d7a"] -}, Open ]] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input", + CellChangeTimes->{{3.9940850640897617`*^9, + 3.994085064857016*^9}},ExpressionUUID->"a3c9312c-d52b-429d-a073-\ +e8b0adec4a09"] }, -WindowSize->{718.5, 729.75}, -WindowMargins->{{0, Automatic}, {Automatic, 0}}, +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)", +Magnification:>1.3 Inherited, +FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", StyleDefinitions->"Default.nb", ExpressionUUID->"5cbbdd72-8791-4241-8a7a-ad89ed63e6b0" ] @@ -9402,368 +14322,623 @@ 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, 357, 7, 47, "Input",ExpressionUUID->"c0335248-5247-4f13-926b-fa62a8f981f8"], +Cell[936, 31, 309, 6, 54, "Output",ExpressionUUID->"ceb62d2e-5f81-4d00-baa6-06f3301db58f"] }, 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[1282, 42, 253, 5, 47, "Input",ExpressionUUID->"354befd8-b4be-4c61-8a98-493114337f1f"], +Cell[1538, 49, 256, 5, 54, "Output",ExpressionUUID->"aa9acc15-94a5-48ec-aa8a-a0e86efa3475"] }, 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[1831, 59, 226, 5, 47, "Input",ExpressionUUID->"a9a84cdd-aa0a-4f21-aaa0-f584821f8cde"], +Cell[2060, 66, 256, 5, 54, "Output",ExpressionUUID->"4db3209e-46c3-4b70-a558-d0e16d75924a"] }, 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[2353, 76, 180, 4, 47, "Input",ExpressionUUID->"6166240b-c04a-47c3-91f8-2572d760f671"], +Cell[2536, 82, 254, 5, 54, "Output",ExpressionUUID->"1ba05c05-42ce-4682-95b3-ac200c44e934"] }, 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[2827, 92, 262, 8, 69, "Input",ExpressionUUID->"1cc1773a-afa8-404c-ab7d-98dfc3caed55"], +Cell[3092, 102, 257, 5, 54, "Output",ExpressionUUID->"cac6c2a2-1e45-4220-8d78-0a494a8edd9e"] }, 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[3386, 112, 136, 3, 47, "Input",ExpressionUUID->"ac4e08ab-a3a2-4447-9ac6-7a59c3909ef7"], +Cell[3525, 117, 260, 5, 54, "Output",ExpressionUUID->"a9587b20-8751-462b-9920-b9ae8d8c3a20"] }, 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[3822, 127, 281, 7, 47, "Input",ExpressionUUID->"5603746c-7135-454a-be5d-59a4b3dabe03"], +Cell[4106, 136, 274, 5, 54, "Output",ExpressionUUID->"ec44b850-7fde-4a49-bcd6-5d955f8fc74b"] }, 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[4417, 146, 262, 8, 47, "Input",ExpressionUUID->"d24b86df-4e74-4c9c-8318-4e08eb58fd43"], +Cell[4682, 156, 273, 5, 54, "Output",ExpressionUUID->"32a5fad8-d2c9-40b4-95c9-775636ea5ca5"] }, 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[4992, 166, 208, 4, 66, "Input",ExpressionUUID->"5c5a5da4-d766-4793-86a8-8f6a53b73c5e"], +Cell[5203, 172, 236, 4, 75, "Output",ExpressionUUID->"12d3b0e0-0941-46b2-906e-f7f53b008bf7"] }, 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[5476, 181, 208, 4, 66, "Input",ExpressionUUID->"9a082f09-f9d3-4bad-84cb-72b8e84d2756"], +Cell[5687, 187, 239, 4, 75, "Output",ExpressionUUID->"172aaa76-1da9-440f-8637-f3d2e59158ac"] }, 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[5963, 196, 133, 3, 66, "Input",ExpressionUUID->"bc93169a-7f39-4d7a-aba2-e0d1bde947e6"], +Cell[6099, 201, 253, 5, 75, "Output",ExpressionUUID->"990f47b0-5d66-46b8-8540-aa25ef18bf6c"] }, 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[6389, 211, 133, 3, 66, "Input",ExpressionUUID->"3cddb14a-cfc5-4d7b-a60c-0bfb54d25f87"], +Cell[6525, 216, 252, 5, 75, "Output",ExpressionUUID->"949240ff-8a96-425e-bbaf-31fe7022c59d"] }, 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[6814, 226, 561, 20, 175, "Input",ExpressionUUID->"99e72024-8dca-46c2-9f6e-4e49d00393d8"], +Cell[7378, 248, 273, 5, 75, "Output",ExpressionUUID->"ab263a2f-6ec1-49da-851d-122c1a939904"] }, 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[7688, 258, 561, 20, 175, "Input",ExpressionUUID->"7e56c9da-ba3b-414d-9c5c-323c366b0f61"], +Cell[8252, 280, 271, 5, 75, "Output",ExpressionUUID->"2e382193-856c-406a-ad00-52213b3d070c"] }, 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[8560, 290, 1592, 51, 362, "Input",ExpressionUUID->"54e0e6b9-1e0d-4ff8-ab6e-fec01274c687"], +Cell[10155, 343, 267, 5, 75, "Output",ExpressionUUID->"df2709fe-1126-42da-8ae3-4c614ff552f4"] }, 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[10459, 353, 1426, 47, 362, "Input",ExpressionUUID->"16ada101-d422-48cc-b9c6-0c548b80c938"], +Cell[11888, 402, 286, 6, 75, "Output",ExpressionUUID->"098bfcb8-2ecf-4ebe-8697-c15b8864dec1"] }, 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[12211, 413, 1426, 47, 362, "Input",ExpressionUUID->"67614b29-ea38-467b-ad1e-848611eed2d6"], +Cell[13640, 462, 289, 6, 75, "Output",ExpressionUUID->"453f20c6-7f70-4443-a374-12bbc65f1132"] }, 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[13966, 473, 1592, 51, 362, "Input",ExpressionUUID->"6e819a46-7aa0-4151-a6cd-6bdc76a25292"], +Cell[15561, 526, 268, 5, 75, "Output",ExpressionUUID->"d36ce724-4946-4073-99e5-9782b84bbecb"] }, 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[15866, 536, 135, 3, 66, "Input",ExpressionUUID->"fb2f36b8-4cb6-4bdd-a4be-3b902e12f18d"], +Cell[16004, 541, 256, 5, 75, "Output",ExpressionUUID->"2453793b-9be0-454f-bc05-3af7819d1790"] }, 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[16297, 551, 137, 3, 66, "Input",ExpressionUUID->"3639ec78-e245-4fbc-bceb-94be6eae0b95"], +Cell[16437, 556, 258, 5, 75, "Output",ExpressionUUID->"35eb5f76-ca26-4828-a1e3-c83a1b4f1adf"] }, 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[16732, 566, 138, 3, 66, "Input",ExpressionUUID->"3bd9ee5d-b974-4258-914b-375ae4e1df1d"], +Cell[16873, 571, 260, 5, 75, "Output",ExpressionUUID->"ea0777b9-9cb9-4ee7-ad98-16cb31cf4aa2"] }, 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[17170, 581, 223, 5, 66, "Input",ExpressionUUID->"8fa011cb-4a23-4e0b-8c62-1ddf5c0e3f36"], +Cell[17396, 588, 269, 6, 75, "Output",ExpressionUUID->"03338214-083a-401d-a6e6-b60b43caa38c"] }, 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[17702, 599, 138, 3, 66, "Input",ExpressionUUID->"da1d7249-1f33-48d4-b51e-3dd7bb77315e"], +Cell[17843, 604, 260, 5, 75, "Output",ExpressionUUID->"5c951bc6-3170-488b-a321-9ead508184d4"] }, 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[18140, 614, 326, 6, 66, "Input",ExpressionUUID->"510028e4-882a-4df9-9b40-bfcd3c772953"], +Cell[18469, 622, 253, 5, 75, "Output",ExpressionUUID->"dbce15ee-c59b-497f-9e37-1443941efb40"] }, 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[18759, 632, 302, 6, 66, "Input",ExpressionUUID->"f3fb1b87-340d-4e3a-a91e-5115ab7911c5"], +Cell[19064, 640, 259, 5, 75, "Output",ExpressionUUID->"4c30a20a-3182-4a49-b31a-cded622b81a8"] }, 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[19360, 650, 223, 5, 66, "Input",ExpressionUUID->"1de600e4-7465-4dc8-b56f-43516753f540"], +Cell[19586, 657, 250, 5, 75, "Output",ExpressionUUID->"dc1462f9-31c9-49ed-a16f-b52aea3e6112"] }, 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[19873, 667, 354, 11, 96, "Input",ExpressionUUID->"cb2d4f82-397e-4a51-8be2-42063086093d"], +Cell[20230, 680, 273, 5, 75, "Output",ExpressionUUID->"46aba39d-d5e8-46bc-8816-495dedaf7a47"] }, 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[20540, 690, 354, 11, 96, "Input",ExpressionUUID->"8993c6b3-c3e7-44a7-85aa-b36f40e453a4"], +Cell[20897, 703, 290, 6, 75, "Output",ExpressionUUID->"bdcbf2bf-54d6-42b2-9892-707c318f9cf6"] }, 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[21224, 714, 998, 27, 184, "Input",ExpressionUUID->"40eace06-4fbe-46fc-bfc8-8e67d497e107"], +Cell[22225, 743, 274, 5, 75, "Output",ExpressionUUID->"b1597745-fe5e-4d01-af16-e4b928caa564"] }, 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[22536, 753, 203, 4, 66, "Input",ExpressionUUID->"915acc3b-0278-4ec9-81ec-34747a42d3c9"], +Cell[22742, 759, 251, 5, 75, "Output",ExpressionUUID->"7e476c0a-8950-4107-b7b1-a6dd348403bf"] }, 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[23030, 769, 331, 6, 66, "Input",ExpressionUUID->"5ef6a20c-5cd2-42f7-8da7-ebe72323b4ec"], +Cell[23364, 777, 230, 4, 75, "Output",ExpressionUUID->"a00be3b9-b0e0-4d08-a9c0-73fc996848f0"] +}, Open ]], +Cell[23609, 784, 177, 3, 66, "Input",ExpressionUUID->"48c0c524-e26b-4d2e-95e3-1420b47e42d3"], +Cell[CellGroupData[{ +Cell[23811, 791, 331, 6, 66, "Input",ExpressionUUID->"69b389d6-e250-4a61-bec4-6681f862fc89"], +Cell[24145, 799, 234, 4, 75, "Output",ExpressionUUID->"962e4c63-d89d-487c-ac1c-b66bf6e0f611"] +}, Open ]], +Cell[24394, 806, 177, 3, 66, "Input",ExpressionUUID->"201d274f-b28e-4d36-94fa-28f8d9d0b9e2"], +Cell[CellGroupData[{ +Cell[24596, 813, 333, 6, 66, "Input",ExpressionUUID->"0bb0ca5a-a152-4981-bdb2-9d32241b5481"], +Cell[24932, 821, 231, 4, 75, "Output",ExpressionUUID->"e8247fbd-07ea-4853-9a05-4f6ce329caf3"] +}, Open ]], +Cell[25178, 828, 177, 3, 66, "Input",ExpressionUUID->"b2974d27-96c4-469c-b450-7f00b2efc66b"], +Cell[CellGroupData[{ +Cell[25380, 835, 357, 6, 66, "Input",ExpressionUUID->"6a3bcb7f-c703-4f0a-80b0-03f64c0faed8"], +Cell[25740, 843, 230, 4, 75, "Output",ExpressionUUID->"3404e60d-3820-4084-a1e8-04b1d3bae090"] +}, Open ]], +Cell[25985, 850, 175, 3, 66, "Input",ExpressionUUID->"18c4df67-6890-4429-926e-cc22e3e979ea"], +Cell[CellGroupData[{ +Cell[26185, 857, 303, 6, 66, "Input",ExpressionUUID->"96d17d67-b209-4476-a91c-c9707ec30b3f"], +Cell[26491, 865, 232, 4, 75, "Output",ExpressionUUID->"de11238c-e73e-41b0-a2c8-1c6fa46c3712"] +}, Open ]], +Cell[26738, 872, 175, 3, 66, "Input",ExpressionUUID->"2651477c-a144-4f89-8ddb-9a0b58c38f62"], +Cell[CellGroupData[{ +Cell[26938, 879, 309, 6, 66, "Input",ExpressionUUID->"df16c93c-10f6-4301-8a6a-9b6d2f7293e4"], +Cell[27250, 887, 233, 4, 75, "Output",ExpressionUUID->"b162a30d-861a-49af-9f4c-38c95acdbba6"] +}, Open ]], +Cell[27498, 894, 177, 3, 66, "Input",ExpressionUUID->"37b5a9d6-6387-47b7-9e2f-fb9438400ee9"], +Cell[CellGroupData[{ +Cell[27700, 901, 331, 6, 66, "Input",ExpressionUUID->"e9786605-1be3-45cd-af96-9a833fbd2027"], +Cell[28034, 909, 235, 4, 75, "Output",ExpressionUUID->"d20b5187-c0e7-4d30-b185-57f93df63f20"] +}, Open ]], +Cell[28284, 916, 176, 3, 66, "Input",ExpressionUUID->"72743464-9145-44aa-b8c5-9ce8cb3a1661"], +Cell[CellGroupData[{ +Cell[28485, 923, 280, 5, 66, "Input",ExpressionUUID->"5f7b1f55-72bb-425e-8a55-284fd8d2e435"], +Cell[28768, 930, 232, 4, 75, "Output",ExpressionUUID->"7fc1ac66-809a-4f55-844a-9da079c6447b"] +}, Open ]], +Cell[29015, 937, 179, 3, 66, "Input",ExpressionUUID->"453209c5-91c3-4edf-9ba2-5a059b785845"], +Cell[CellGroupData[{ +Cell[29219, 944, 19813, 486, 5405, "Input",ExpressionUUID->"d4a650aa-aa3b-4af2-8c25-cd6a8950511c"], +Cell[49035, 1432, 271, 5, 75, "Output",ExpressionUUID->"c4533770-e51c-4efe-ad9c-7934cde475ba"] }, 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[49343, 1442, 19752, 490, 5343, "Input",ExpressionUUID->"3ac53e2c-e6a1-49a0-adef-a26078efff40"], +Cell[69098, 1934, 266, 5, 75, "Output",ExpressionUUID->"4aeedbbe-7897-41fb-aba8-70853993e4f0"] }, 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[69401, 1944, 19752, 484, 5342, "Input",ExpressionUUID->"df9e6656-1de2-4cf4-ab98-4aaf4c5aafb9"], +Cell[89156, 2430, 287, 6, 75, "Output",ExpressionUUID->"047139e5-a4d7-4fa3-a584-e6dee055fc0f"] }, 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[89480, 2441, 22538, 554, 6074, "Input",ExpressionUUID->"102c1b36-6747-4403-9b99-7d44ce9a28bb"], +Cell[112021, 2997, 288, 6, 75, "Output",ExpressionUUID->"6946a29a-1641-428b-9db0-c60f5925bd08"] }, 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[112346, 3008, 22539, 554, 6074, "Input",ExpressionUUID->"95296522-0a2a-434c-8865-2c89ba3efa73"], +Cell[134888, 3564, 291, 6, 75, "Output",ExpressionUUID->"307adb1a-7bbe-4fb6-8094-5b6015f7be40"] }, 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[135216, 3575, 25495, 627, 6806, "Input",ExpressionUUID->"9010b95c-ac92-4603-9235-8445a1e62807"], +Cell[160714, 4204, 290, 6, 75, "Output",ExpressionUUID->"f7beb120-f713-40d9-bf35-8eae0ef2a65c"] }, 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[161041, 4215, 134, 3, 66, "Input",ExpressionUUID->"86f01f3e-5f28-417e-8437-8e045dcea278"], +Cell[161178, 4220, 253, 5, 75, "Output",ExpressionUUID->"4489ccb6-da05-44b2-83ed-c78506fbc0ed"] }, 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[161468, 4230, 134, 3, 66, "Input",ExpressionUUID->"083a2ac6-7106-49ed-aeca-5f099f6ab7dc"], +Cell[161605, 4235, 254, 5, 75, "Output",ExpressionUUID->"e8e800b6-12bd-421a-a85b-6e8ef1f6b145"] }, 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[161896, 4245, 1148, 40, 246, "Input",ExpressionUUID->"b91cd1e8-6fa7-4eaa-9663-290567205b38"], +Cell[163047, 4287, 269, 5, 75, "Output",ExpressionUUID->"24e10728-5b97-47b9-857c-7f835ce7c8a2"] }, 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[163353, 4297, 1045, 36, 246, "Input",ExpressionUUID->"dafb5daa-ccd4-43ad-b6dd-0344b2068787"], +Cell[164401, 4335, 288, 6, 75, "Output",ExpressionUUID->"ef048afa-181b-46d6-a204-a4f43dfd5462"] }, 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[164726, 4346, 1148, 40, 246, "Input",ExpressionUUID->"a7ae48a9-4b3e-4ff0-a2eb-8bf797d30085"], +Cell[165877, 4388, 272, 5, 75, "Output",ExpressionUUID->"deaae744-91d3-42dc-92b5-0490afb71aab"] }, 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[166186, 4398, 112, 2, 66, "Input",ExpressionUUID->"9c297244-a5bc-496f-a923-9aaa5f24f6c1"], +Cell[166301, 4402, 269, 5, 75, "Output",ExpressionUUID->"7295b066-5026-4596-aa1d-9a4707b7f587"] }, 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[166607, 4412, 112, 2, 66, "Input",ExpressionUUID->"877fcbde-276e-4a2c-836d-53d540a497ca"], +Cell[166722, 4416, 290, 6, 75, "Output",ExpressionUUID->"e849b770-6467-483e-8abb-57197cc517ef"] }, 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[167049, 4427, 112, 2, 66, "Input",ExpressionUUID->"3b8a316a-a410-47e0-a13d-9efe5a77ce3e"], +Cell[167164, 4431, 287, 6, 75, "Output",ExpressionUUID->"2dafd199-4af3-432e-a02e-b79c927ee72a"] }, 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[167488, 4442, 112, 2, 66, "Input",ExpressionUUID->"c740442c-d864-4b98-9a47-4e36289cbbf2"], +Cell[167603, 4446, 269, 5, 75, "Output",ExpressionUUID->"fa2eab3a-9ee0-4932-bd1d-3a7114885d17"] }, 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[167909, 4456, 111, 2, 66, "Input",ExpressionUUID->"b7724a61-bf3f-42ba-bf4b-234390c9872a"], +Cell[168023, 4460, 272, 5, 75, "Output",ExpressionUUID->"89c9ccf3-57cc-44b9-ad58-f14bfcbb7e9c"] }, 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[168332, 4470, 111, 2, 66, "Input",ExpressionUUID->"fd13d997-9762-499b-a2f1-b85c8102c377"], +Cell[168446, 4474, 272, 5, 75, "Output",ExpressionUUID->"5eb336fb-1474-48c7-8e70-b2d51035d2b0"] }, 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[168755, 4484, 501, 17, 125, "Input",ExpressionUUID->"6b10c15a-f89b-4a9a-a8fe-3200c0eb53fa"], +Cell[169259, 4503, 287, 6, 75, "Output",ExpressionUUID->"2be4e0b2-ff27-4032-bb6f-07d5eb554252"] }, 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[169583, 4514, 501, 17, 125, "Input",ExpressionUUID->"dea721d1-bdbd-4248-99c9-331ed0ad1233"], +Cell[170087, 4533, 283, 6, 75, "Output",ExpressionUUID->"e4a89a47-8b20-43f2-ae24-44f802be60e6"] }, 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[170407, 4544, 1792, 61, 420, "Input",ExpressionUUID->"b012b84c-6e63-429d-bc53-eb09754291c1"], +Cell[172202, 4607, 271, 5, 75, "Output",ExpressionUUID->"c3b55c8b-5a54-4004-9afc-4b91d92ad3fb"] }, 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[172510, 4617, 1105, 37, 299, "Input",ExpressionUUID->"d39fa51b-8be7-410b-a294-c35f27d1b65b"], +Cell[173618, 4656, 284, 6, 75, "Output",ExpressionUUID->"e9dc6c44-5995-467b-bec7-657b972dd207"] }, 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[173939, 4667, 1822, 62, 420, "Input",ExpressionUUID->"1b4104e3-8445-4439-826d-6d10b9d6c287"], +Cell[175764, 4731, 268, 5, 75, "Output",ExpressionUUID->"963ea5ba-2331-426f-ae87-dbd63a93831b"] }, 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[176069, 4741, 1635, 54, 130, "Input",ExpressionUUID->"8b288cdc-a966-4c35-a26b-ef5be912ee32"], +Cell[177707, 4797, 267, 5, 54, "Output",ExpressionUUID->"212a0e4a-9d50-4333-b445-d6217fc229cd"] }, 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[178011, 4807, 1635, 54, 130, "Input",ExpressionUUID->"0afb1289-2b6f-4d81-8a63-5b10c39a0135"], +Cell[179649, 4863, 268, 5, 54, "Output",ExpressionUUID->"d21d33fa-6c1a-4767-b04a-479aa03b8a20"] +}, Open ]], +Cell[179932, 4871, 187, 4, 47, "Input",ExpressionUUID->"bdefbecf-0aaa-4a45-a861-406cf54e52d1"], +Cell[180122, 4877, 154, 3, 47, "Input",ExpressionUUID->"a5161e25-7247-124f-8601-7bcc4af89c62"], +Cell[180279, 4882, 187, 4, 47, "Input",ExpressionUUID->"45ed831b-459a-9a41-990f-c079ad464f5d"], +Cell[180469, 4888, 154, 3, 47, "Input",ExpressionUUID->"bc946e22-fdd1-8b4b-8e5a-11f4dcb03e07"], +Cell[CellGroupData[{ +Cell[180648, 4895, 1301, 43, 79, "Input",ExpressionUUID->"78018a61-7851-fe4d-b32f-cb68a3158f29"], +Cell[181952, 4940, 178, 3, 54, "Output",ExpressionUUID->"1658422d-0016-324a-9843-942f5453a9c7"] }, 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"] -}, Open ]], -Cell[376133, 8866, 209, 5, 56, "Input",ExpressionUUID->"f380af60-a605-c546-a4c8-b989835aa113"], -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[182167, 4948, 910, 31, 91, "Input",ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-7221ff813b6d"], +Cell[183080, 4981, 175, 3, 54, "Output",ExpressionUUID->"d307b81f-3de4-ab46-9ef8-af5c6bc7c05b"] }, 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[183292, 4989, 887, 30, 91, "Input",ExpressionUUID->"f22831a7-63b7-f444-8e3a-fa370a62ac27"], +Cell[184182, 5021, 176, 3, 54, "Output",ExpressionUUID->"866e2a7a-c08a-d14a-ae9c-f63fbc316d85"] }, 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[184395, 5029, 558, 19, 85, "Input",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"], +Cell[184956, 5050, 172, 3, 54, "Output",ExpressionUUID->"bba1ae64-a2a6-4745-b870-cca298627f62"] }, 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[185165, 5058, 623, 21, 85, "Input",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"], +Cell[185791, 5081, 172, 3, 54, "Output",ExpressionUUID->"2d9a2576-51c1-274e-bb6b-3d0a12d8f955"] }, 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[186000, 5089, 170, 5, 91, "Input",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"], +Cell[186173, 5096, 172, 3, 54, "Output",ExpressionUUID->"55e80360-690f-0444-ac68-221fe09ddfd5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[186382, 5104, 170, 5, 89, "Input",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"], +Cell[186555, 5111, 171, 3, 54, "Output",ExpressionUUID->"ffa83e52-e057-8c44-be5c-a869714a425e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[186763, 5119, 181, 5, 70, "Input",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"], +Cell[186947, 5126, 170, 3, 54, "Output",ExpressionUUID->"daa1af48-56b9-b549-9a5e-fd35e4ace383"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187154, 5134, 181, 5, 70, "Input",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"], +Cell[187338, 5141, 172, 3, 54, "Output",ExpressionUUID->"045de583-e60b-c94a-9184-d9a46a689c39"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187547, 5149, 6055, 185, 616, "Input",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"], +Cell[193605, 5336, 172, 3, 54, "Output",ExpressionUUID->"cdaeef85-4599-4144-88b1-c12ccb960e67"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193814, 5344, 368, 9, 68, "Input",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"], +Cell[194185, 5355, 171, 3, 54, "Output",ExpressionUUID->"c4da64fa-539e-454c-a7bc-f5a50d741b33"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194393, 5363, 6122, 187, 701, "Input",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"], +Cell[200518, 5552, 173, 3, 54, "Output",ExpressionUUID->"a0ddd9ec-0ad8-da40-93c1-f69a540fecbb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[200728, 5560, 368, 9, 68, "Input",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"], +Cell[201099, 5571, 170, 3, 54, "Output",ExpressionUUID->"bb399ae8-0971-524b-99dd-45c3d83aff90"] +}, Open ]], +Cell[CellGroupData[{ +Cell[201306, 5579, 2663, 88, 266, "Input",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"], +Cell[203972, 5669, 171, 3, 54, "Output",ExpressionUUID->"8522d772-b29b-b14d-a623-3ad00b3d8250"] +}, Open ]], +Cell[CellGroupData[{ +Cell[204180, 5677, 2603, 85, 266, "Input",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"], +Cell[206786, 5764, 173, 3, 54, "Output",ExpressionUUID->"d88ed30c-77e3-0245-b8d9-3b803c379fb2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[206996, 5772, 3712, 118, 393, "Input",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"], +Cell[210711, 5892, 174, 3, 54, "Output",ExpressionUUID->"5d391006-3707-3d44-a060-c06781a98edd"] +}, Open ]], +Cell[210900, 5898, 138, 3, 47, "Input",ExpressionUUID->"714abd93-e0d1-eb45-a9e1-7a2f5d020eb1"], +Cell[CellGroupData[{ +Cell[211063, 5905, 2054, 59, 242, "Input",ExpressionUUID->"137c38a2-741c-bd43-b6d9-c0135e32eaf8"], +Cell[213120, 5966, 557, 12, 66, "Message",ExpressionUUID->"055bf31f-37b2-724c-aeef-d922f7a205c7"], +Cell[213680, 5980, 559, 12, 94, "Message",ExpressionUUID->"eeead3e4-54a5-7c4d-95b2-292dcdbe105a"], +Cell[214242, 5994, 561, 12, 94, "Message",ExpressionUUID->"87e34a07-7a78-bf46-b222-6e72d11fd18d"], +Cell[214806, 6008, 458, 10, 34, "Message",ExpressionUUID->"1cf9faa5-3432-3349-b45a-58344623fc63"], +Cell[215267, 6020, 172, 3, 54, "Output",ExpressionUUID->"acb58738-85fd-0f40-b8fa-3a779aa79369"] +}, Open ]], +Cell[CellGroupData[{ +Cell[215476, 6028, 2052, 59, 242, "Input",ExpressionUUID->"9b196534-2ca5-e54b-8014-b0ab3cd09ac2"], +Cell[217531, 6089, 555, 12, 66, "Message",ExpressionUUID->"6fb03e9c-623b-b24d-bccd-c05b2662537c"], +Cell[218089, 6103, 559, 12, 94, "Message",ExpressionUUID->"410ed293-2b04-a346-b193-5e006759c884"], +Cell[218651, 6117, 561, 12, 94, "Message",ExpressionUUID->"9e59cf72-2df3-6741-910e-ddcc2125aa8b"], +Cell[219215, 6131, 458, 10, 34, "Message",ExpressionUUID->"6f223de4-f4b9-0a4c-b3b3-f489f4259713"], +Cell[219676, 6143, 172, 3, 54, "Output",ExpressionUUID->"d8300689-0813-6149-9a7f-c358ba826aac"] +}, Open ]], +Cell[CellGroupData[{ +Cell[219885, 6151, 1936, 53, 81, "Input",ExpressionUUID->"124cd7db-c537-8943-bef2-1a154ab4a709"], +Cell[221824, 6206, 20440, 382, 384, "Output",ExpressionUUID->"a7dc53c9-dabc-784f-a94a-f1fb7ab10c84"] +}, Open ]], +Cell[CellGroupData[{ +Cell[242301, 6593, 2094, 60, 237, "Input",ExpressionUUID->"5a7f9400-1446-9746-a463-bade8ae5c530"], +Cell[244398, 6655, 500, 11, 64, "Message",ExpressionUUID->"eede1010-35b4-8e43-8206-4c3ebae733c0"], +Cell[244901, 6668, 503, 11, 64, "Message",ExpressionUUID->"01174b23-a2bd-8e4e-90f5-af7e82df101e"], +Cell[245407, 6681, 506, 11, 66, "Message",ExpressionUUID->"ec7385ad-4809-8947-afea-81e4a95fc523"], +Cell[245916, 6694, 455, 10, 34, "Message",ExpressionUUID->"4176ecfe-3aff-0f4b-824e-b07e40312968"], +Cell[246374, 6706, 57321, 985, 378, "Output",ExpressionUUID->"6ef8802e-494c-9d4c-94ba-3ee854b2b684"] +}, Open ]], +Cell[303710, 7694, 2454, 69, 212, "Input",ExpressionUUID->"0f83f761-b16d-5343-987d-511095eaf120"], +Cell[306167, 7765, 209, 5, 47, "Input",ExpressionUUID->"8cdd4baa-f7c9-104e-b978-89d3982ba28f"], +Cell[CellGroupData[{ +Cell[306401, 7774, 217, 7, 78, "Input",ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-3438788b15d6"], +Cell[306621, 7783, 172, 3, 54, "Output",ExpressionUUID->"bea5e069-6c61-f84f-be94-f0a852e2aafc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[306830, 7791, 1816, 53, 148, "Input",ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-0e75880d5d98"], +Cell[308649, 7846, 508, 11, 94, "Message",ExpressionUUID->"3a61d965-a130-7645-90c6-a5061b94ec40"], +Cell[309160, 7859, 508, 11, 94, "Message",ExpressionUUID->"c3c0d10c-aa86-9b43-bfa9-71bc099863f1"], +Cell[309671, 7872, 511, 11, 94, "Message",ExpressionUUID->"321e1ff2-86f6-7244-895a-0b744ecd0cf1"], +Cell[310185, 7885, 456, 10, 34, "Message",ExpressionUUID->"43e0f399-4fd6-3f4d-a3a8-ef137bebb344"], +Cell[310644, 7897, 26000, 472, 378, "Output",ExpressionUUID->"4e674430-b3ee-f841-98e7-88500054cf35"] +}, Open ]], +Cell[CellGroupData[{ +Cell[336681, 8374, 1616, 48, 110, "Input",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"], +Cell[338300, 8424, 584, 12, 94, "Message",ExpressionUUID->"6dc439d9-4983-a74d-a424-1e627442f8ec"], +Cell[338887, 8438, 588, 12, 94, "Message",ExpressionUUID->"cbbb0a14-cac3-b246-be52-03554c6d0159"], +Cell[339478, 8452, 592, 12, 94, "Message",ExpressionUUID->"afaf59d8-5c82-5843-ba76-5dd1061c22bd"], +Cell[340073, 8466, 456, 10, 34, "Message",ExpressionUUID->"370cb98e-1084-6940-9e45-78218dc7334e"], +Cell[340532, 8478, 169, 3, 54, "Output",ExpressionUUID->"49c1839c-f9a0-514a-9803-38aedd206508"] +}, Open ]], +Cell[CellGroupData[{ +Cell[340738, 8486, 2249, 64, 242, "Input",ExpressionUUID->"eb852908-4d60-c84e-80d9-a57fd4094f56"], +Cell[342990, 8552, 555, 12, 94, "Message",ExpressionUUID->"e4da2c2e-bc79-8048-aec6-e0a36c5fd50c"], +Cell[343548, 8566, 557, 12, 94, "Message",ExpressionUUID->"ff48d9a8-4f15-044a-8d17-d378e560badf"], +Cell[344108, 8580, 563, 12, 94, "Message",ExpressionUUID->"d97cd881-ad70-0043-811a-b6650c7bff48"], +Cell[344674, 8594, 458, 10, 34, "Message",ExpressionUUID->"dc1ff9fc-c736-e742-9bd5-f36a7c2c6c53"], +Cell[345135, 8606, 173, 3, 54, "Output",ExpressionUUID->"207fc206-b3fa-1a42-8709-2c8aaaf304b0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[345345, 8614, 2223, 64, 242, "Input",ExpressionUUID->"d11037f6-09e7-b44f-8a1d-47c1a485c608"], +Cell[347571, 8680, 555, 12, 94, "Message",ExpressionUUID->"079487fc-3029-b74e-ba27-a61cf73f30a2"], +Cell[348129, 8694, 557, 12, 94, "Message",ExpressionUUID->"6fef6245-eafb-7343-8d9c-509c47662fd8"], +Cell[348689, 8708, 561, 12, 94, "Message",ExpressionUUID->"caeb451e-fce0-a24e-bdb2-20066bf32e23"], +Cell[349253, 8722, 458, 10, 34, "Message",ExpressionUUID->"b9263c45-06ba-d24d-a71c-72933a67fb86"], +Cell[349714, 8734, 173, 3, 54, "Output",ExpressionUUID->"fdc26e81-7e73-a54e-8b48-fba744fd21b7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[349924, 8742, 2221, 64, 242, "Input",ExpressionUUID->"431dd2fa-6331-2449-bc19-0d79e6ed8953"], +Cell[352148, 8808, 557, 12, 94, "Message",ExpressionUUID->"3270b87e-9743-ef45-96a4-2ce51373a203"], +Cell[352708, 8822, 557, 12, 94, "Message",ExpressionUUID->"b5a7511b-af1a-b946-83d4-1951541611b2"], +Cell[353268, 8836, 563, 12, 94, "Message",ExpressionUUID->"55836c22-e074-4442-9aa3-8442534fcabe"], +Cell[353834, 8850, 456, 10, 34, "Message",ExpressionUUID->"18c3aa33-3860-5f41-a9ac-8cd3806fef7e"], +Cell[354293, 8862, 173, 3, 54, "Output",ExpressionUUID->"62510f7e-bac9-8b4e-86ce-182bdd5d56b9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[354503, 8870, 213, 6, 76, "Input",ExpressionUUID->"8c5df121-e0b9-a146-bc34-b231aa8028b9"], +Cell[354719, 8878, 171, 3, 54, "Output",ExpressionUUID->"5c7cd89e-20ed-8d44-83bb-e2e46deab974"] +}, Open ]], +Cell[354905, 8884, 245, 5, 47, "Input",ExpressionUUID->"831a27fc-89ff-e041-97f1-0ec5d19a7879"], +Cell[CellGroupData[{ +Cell[355175, 8893, 558, 19, 85, "Input",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"], +Cell[355736, 8914, 172, 3, 54, "Output",ExpressionUUID->"e3d357af-87e3-0047-959d-fa0139c5bfc4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[355945, 8922, 170, 5, 91, "Input",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"], +Cell[356118, 8929, 173, 3, 54, "Output",ExpressionUUID->"93dda073-df54-8f4e-afab-666de5caf927"] +}, Open ]], +Cell[CellGroupData[{ +Cell[356328, 8937, 181, 5, 70, "Input",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"], +Cell[356512, 8944, 173, 3, 54, "Output",ExpressionUUID->"db5e4010-00e8-574c-8b32-365b8147ba2d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[356722, 8952, 6055, 185, 616, "Input",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"], +Cell[362780, 9139, 172, 3, 54, "Output",ExpressionUUID->"6f5204f9-42a7-0343-a2cd-76cd7618ba90"] +}, Open ]], +Cell[CellGroupData[{ +Cell[362989, 9147, 368, 9, 68, "Input",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"], +Cell[363360, 9158, 170, 3, 54, "Output",ExpressionUUID->"732feb85-572c-6a40-bb32-258aa6fbb12e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[363567, 9166, 6122, 187, 701, "Input",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"], +Cell[369692, 9355, 175, 3, 54, "Output",ExpressionUUID->"330db3dd-df0f-5e4b-9e84-63e3da6287e1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[369904, 9363, 368, 9, 68, "Input",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"], +Cell[370275, 9374, 172, 3, 54, "Output",ExpressionUUID->"8403ef7a-5add-ea45-a6c0-a6dc70f27bb8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[370484, 9382, 2663, 88, 266, "Input",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"], +Cell[373150, 9472, 173, 3, 54, "Output",ExpressionUUID->"aac00e4f-5d2b-4341-8ca5-f49d9556633e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[373360, 9480, 2603, 85, 266, "Input",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"], +Cell[375966, 9567, 171, 3, 54, "Output",ExpressionUUID->"eeee5a47-9547-7746-bb79-936b40364d7e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[376174, 9575, 3712, 118, 393, "Input",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"], +Cell[379889, 9695, 174, 3, 54, "Output",ExpressionUUID->"a1352554-6686-ff4e-be47-04b42c29b000"] +}, Open ]], +Cell[CellGroupData[{ +Cell[380100, 9703, 2052, 59, 148, "Input",ExpressionUUID->"220bdeed-2e17-e94c-a7b0-3e066daf15d7"], +Cell[382155, 9764, 578, 12, 94, "Message",ExpressionUUID->"c854318c-035d-f249-9a8c-a9608e137436"], +Cell[382736, 9778, 583, 12, 94, "Message",ExpressionUUID->"fc1eef58-3b5b-8c4c-bab7-60a3682b1d45"], +Cell[383322, 9792, 586, 12, 94, "Message",ExpressionUUID->"2e134293-05b5-624c-b206-73b12a84c5ea"], +Cell[383911, 9806, 456, 10, 34, "Message",ExpressionUUID->"2cac2ff4-fc29-a048-9fae-70918ed41968"], +Cell[384370, 9818, 170, 3, 54, "Output",ExpressionUUID->"2dcc4178-0b8d-9f48-a040-f2fc5cb8eacd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[384577, 9826, 2054, 59, 148, "Input",ExpressionUUID->"b8791a07-33fe-8c4f-9c59-dd23af9a4471"], +Cell[386634, 9887, 576, 12, 94, "Message",ExpressionUUID->"ac808335-5ecc-ee4f-a7ac-d889b0bf6e05"], +Cell[387213, 9901, 581, 12, 94, "Message",ExpressionUUID->"36b7d718-32d9-a441-b985-1fed8f0f10fd"], +Cell[387797, 9915, 586, 12, 94, "Message",ExpressionUUID->"ab31a569-fab4-434a-9c76-33aa9b59b117"], +Cell[388386, 9929, 458, 10, 34, "Message",ExpressionUUID->"4c41e56d-f5cb-b94c-b99a-06e306247825"], +Cell[388847, 9941, 172, 3, 54, "Output",ExpressionUUID->"5ec230cf-b87d-3e41-bc7f-1f3f2ff283ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[389056, 9949, 2028, 55, 81, "Input",ExpressionUUID->"3fe6e7f1-b44a-234f-af77-3cf1fdaf28d9"], +Cell[391087, 10006, 20011, 378, 385, "Output",ExpressionUUID->"3d0b6a0d-2dc0-3b48-b8dd-35b5149ee27f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[411135, 10389, 2115, 60, 204, "Input",ExpressionUUID->"ab29778f-f183-804b-b871-4070462057d7"], +Cell[413253, 10451, 501, 11, 64, "Message",ExpressionUUID->"abf9cb8a-fbbf-7a43-abcd-82efb32ab217"], +Cell[413757, 10464, 503, 11, 64, "Message",ExpressionUUID->"8fcd13e3-81e0-3446-8882-6e42ca5c0bd1"], +Cell[414263, 10477, 505, 11, 94, "Message",ExpressionUUID->"2c23ed60-41ee-5841-90ce-1d26cb02619d"], +Cell[414771, 10490, 456, 10, 34, "Message",ExpressionUUID->"fa59df63-76ff-4147-acd0-9eeaf33582c5"], +Cell[415230, 10502, 32548, 580, 378, "Output",ExpressionUUID->"4ab96fbd-92e0-8a42-8552-436bb2f629b6"] +}, Open ]], +Cell[447793, 11085, 209, 5, 47, "Input",ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-6bd251746ea6"], +Cell[CellGroupData[{ +Cell[448027, 11094, 1616, 48, 110, "Input",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"], +Cell[449646, 11144, 596, 12, 94, "Message",ExpressionUUID->"3273c967-a8f4-6b46-8292-dfd9dc69311d"], +Cell[450245, 11158, 599, 12, 94, "Message",ExpressionUUID->"cf5457ae-7056-8a4b-afa3-32b95e922259"], +Cell[450847, 11172, 605, 12, 94, "Message",ExpressionUUID->"7ef79528-2ca4-544d-8bbf-e4564533e47a"], +Cell[451455, 11186, 456, 10, 34, "Message",ExpressionUUID->"3f59bf2a-0193-1b41-9437-359e4e291f20"], +Cell[451914, 11198, 170, 3, 54, "Output",ExpressionUUID->"6c94ff26-1921-5a44-a360-bda32f564938"] +}, Open ]], +Cell[CellGroupData[{ +Cell[452121, 11206, 2247, 64, 242, "Input",ExpressionUUID->"5a0cc4bb-b2b0-c64c-958a-7a397847208f"], +Cell[454371, 11272, 580, 12, 94, "Message",ExpressionUUID->"33abd0dc-5204-1046-87c9-87cecac6793f"], +Cell[454954, 11286, 583, 12, 94, "Message",ExpressionUUID->"a3e9f415-30c2-d04b-a044-33980d6ef6e9"], +Cell[455540, 11300, 584, 12, 94, "Message",ExpressionUUID->"3dddc3ab-89f8-ab44-a85d-f5130722f198"], +Cell[456127, 11314, 458, 10, 34, "Message",ExpressionUUID->"a3229605-5a49-544b-bbf6-cc14edd6c936"], +Cell[456588, 11326, 170, 3, 54, "Output",ExpressionUUID->"2f0f984a-e452-7f46-a8f1-230feda2f30b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[456795, 11334, 2219, 64, 242, "Input",ExpressionUUID->"22b50200-0b82-dc47-9932-f1f0210d6caf"], +Cell[459017, 11400, 580, 12, 94, "Message",ExpressionUUID->"1a479ad6-386a-fb47-95e4-f8a3ab25eccc"], +Cell[459600, 11414, 583, 12, 94, "Message",ExpressionUUID->"c45746b8-a614-4245-b137-e38355d43857"], +Cell[460186, 11428, 586, 12, 94, "Message",ExpressionUUID->"7ef9264b-fdf5-8e46-a39d-9d01a56d9fbc"], +Cell[460775, 11442, 458, 10, 34, "Message",ExpressionUUID->"424cc344-67bf-5349-951a-e3d6864f9105"], +Cell[461236, 11454, 171, 3, 54, "Output",ExpressionUUID->"d6fb3ea3-39a2-5b42-96f2-520a52fd0d9f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[461444, 11462, 2221, 64, 242, "Input",ExpressionUUID->"8a5105db-666c-444e-9451-d3e8d1574bcd"], +Cell[463668, 11528, 580, 12, 94, "Message",ExpressionUUID->"7c3b7078-d094-2344-a157-26438223ef0f"], +Cell[464251, 11542, 583, 12, 94, "Message",ExpressionUUID->"a4aaa457-e588-7a42-9066-29e614b18d91"], +Cell[464837, 11556, 584, 12, 94, "Message",ExpressionUUID->"8e9701ac-9508-2346-b853-523f9f269328"], +Cell[465424, 11570, 456, 10, 34, "Message",ExpressionUUID->"062aadbd-03a7-1f42-b815-d27ae6ddc83e"], +Cell[465883, 11582, 170, 3, 54, "Output",ExpressionUUID->"484b070c-cc4a-7049-8a18-4aa38bea8cd9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[466090, 11590, 213, 6, 76, "Input",ExpressionUUID->"d0efa798-230b-fa46-b413-76bfd8e40ccb"], +Cell[466306, 11598, 174, 3, 54, "Output",ExpressionUUID->"8b85bd5c-200a-cc44-9db5-38c5efe118ad"] +}, Open ]], +Cell[466495, 11604, 247, 5, 47, "Input",ExpressionUUID->"f842f74e-f562-934a-9011-6604b8708636"], +Cell[CellGroupData[{ +Cell[466767, 11613, 558, 19, 85, "Input",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"], +Cell[467328, 11634, 173, 3, 54, "Output",ExpressionUUID->"ddfcd06d-5644-fb4b-b789-815d8db71ce6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[467538, 11642, 170, 5, 91, "Input",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"], +Cell[467711, 11649, 173, 3, 54, "Output",ExpressionUUID->"96020250-b44c-694d-acbe-eb8b1c066e25"] +}, Open ]], +Cell[CellGroupData[{ +Cell[467921, 11657, 181, 5, 70, "Input",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"], +Cell[468105, 11664, 171, 3, 54, "Output",ExpressionUUID->"a3cad59a-97f1-1b4b-a0d3-0fcbb55e71c0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[468313, 11672, 6055, 185, 616, "Input",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"], +Cell[474371, 11859, 173, 3, 54, "Output",ExpressionUUID->"221426ad-3f43-834a-96dc-c22bf0ed0e23"] +}, Open ]], +Cell[CellGroupData[{ +Cell[474581, 11867, 368, 9, 68, "Input",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"], +Cell[474952, 11878, 172, 3, 54, "Output",ExpressionUUID->"54964f1a-0c74-5b45-a5d4-8b241885bf9d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[475161, 11886, 6122, 187, 701, "Input",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"], +Cell[481286, 12075, 175, 3, 54, "Output",ExpressionUUID->"637b4460-08e1-2c47-b235-20b94d0413ac"] +}, Open ]], +Cell[CellGroupData[{ +Cell[481498, 12083, 368, 9, 68, "Input",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"], +Cell[481869, 12094, 171, 3, 54, "Output",ExpressionUUID->"55b9de35-b316-8a4b-b6c7-df263fdc91bc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[482077, 12102, 2663, 88, 266, "Input",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"], +Cell[484743, 12192, 173, 3, 54, "Output",ExpressionUUID->"fd2a841e-0c22-9146-97fa-d652989dadbe"] +}, Open ]], +Cell[CellGroupData[{ +Cell[484953, 12200, 2603, 85, 266, "Input",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"], +Cell[487559, 12287, 171, 3, 54, "Output",ExpressionUUID->"94bd0f60-5228-9b42-83fe-23a478d55c7c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[487767, 12295, 3712, 118, 393, "Input",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"], +Cell[491482, 12415, 174, 3, 54, "Output",ExpressionUUID->"fe51f341-63c7-8f47-9357-139cd58159ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[491693, 12423, 2054, 59, 148, "Input",ExpressionUUID->"1dec41a6-6752-2041-9d38-804123b5ccd0"], +Cell[493750, 12484, 572, 12, 94, "Message",ExpressionUUID->"0e079558-1b2f-5a46-8c66-a9ee31993ddb"], +Cell[494325, 12498, 573, 12, 125, "Message",ExpressionUUID->"d148db97-53f1-5f42-bd2e-6e779140d5b6"], +Cell[494901, 12512, 579, 12, 94, "Message",ExpressionUUID->"186b0633-6992-1247-a396-6e446c898f15"], +Cell[495483, 12526, 456, 10, 34, "Message",ExpressionUUID->"81723359-f225-2c46-ac9d-0c5bbdaa253b"], +Cell[495942, 12538, 169, 3, 54, "Output",ExpressionUUID->"dfb1ce0b-e756-e84a-9724-ecf250122f19"] +}, Open ]], +Cell[CellGroupData[{ +Cell[496148, 12546, 2049, 58, 148, "Input",ExpressionUUID->"442c9cc5-031c-244c-a3bb-8044e56b047f"], +Cell[498200, 12606, 570, 12, 94, "Message",ExpressionUUID->"90df9b1f-7133-e445-8661-0af9d5feb8bd"], +Cell[498773, 12620, 575, 12, 125, "Message",ExpressionUUID->"93c48be2-5ad7-ad43-88e8-2c6ab8e2f132"], +Cell[499351, 12634, 579, 12, 94, "Message",ExpressionUUID->"cbcbafce-f556-944f-b5f3-9a75f9ae2725"], +Cell[499933, 12648, 458, 10, 34, "Message",ExpressionUUID->"83820e0a-b24a-cc46-bd5a-b19f0104c185"], +Cell[500394, 12660, 171, 3, 54, "Output",ExpressionUUID->"0d63c418-a50b-b94b-ad7d-1a46c6eb320d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[500602, 12668, 2030, 55, 81, "Input",ExpressionUUID->"75bdb70f-74f6-1a4c-9c04-b799ae260294"], +Cell[502635, 12725, 20011, 378, 384, "Output",ExpressionUUID->"a15038e3-a3ab-e64e-ad3b-e8cb09ec92a2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[522683, 13108, 2120, 60, 204, "Input",ExpressionUUID->"cbec275e-4d01-7747-9ece-7fa9a2a651b1"], +Cell[524806, 13170, 501, 11, 64, "Message",ExpressionUUID->"bf289d91-76e3-3e4e-937f-93db9b038d39"], +Cell[525310, 13183, 505, 11, 64, "Message",ExpressionUUID->"a52542a3-f03a-414f-86c8-3b114308924e"], +Cell[525818, 13196, 506, 11, 94, "Message",ExpressionUUID->"1c7104f0-99cd-c74c-b855-98253be62519"], +Cell[526327, 13209, 456, 10, 34, "Message",ExpressionUUID->"e66837df-658a-2c4c-973b-50c515d3781f"], +Cell[526786, 13221, 31008, 556, 378, "Output",ExpressionUUID->"0c8adc65-2b3c-a14f-87e8-79cdde17788b"] +}, Open ]], +Cell[557809, 13780, 209, 5, 47, "Input",ExpressionUUID->"f380af60-a605-c546-a4c8-b989835aa113"], +Cell[CellGroupData[{ +Cell[558043, 13789, 1616, 48, 110, "Input",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"], +Cell[559662, 13839, 593, 12, 94, "Message",ExpressionUUID->"6cb27c14-3e28-3a42-b8b7-fdcba2488488"], +Cell[560258, 13853, 595, 12, 94, "Message",ExpressionUUID->"cb81e4d8-f3c2-a440-be93-8add6661d63f"], +Cell[560856, 13867, 602, 12, 94, "Message",ExpressionUUID->"6fc2d4bb-75da-4f4f-bee0-560983907484"], +Cell[561461, 13881, 456, 10, 34, "Message",ExpressionUUID->"a75f01ed-738d-2b4a-b751-ccae7a894e31"], +Cell[561920, 13893, 172, 3, 54, "Output",ExpressionUUID->"a9b05d7b-788a-eb45-8401-918c1ed97234"] +}, Open ]], +Cell[CellGroupData[{ +Cell[562129, 13901, 2249, 64, 242, "Input",ExpressionUUID->"f2835c98-560f-8e47-bdab-0d2700971836"], +Cell[564381, 13967, 572, 12, 94, "Message",ExpressionUUID->"e3c0ae99-c55d-1a40-897e-ede7de12487f"], +Cell[564956, 13981, 575, 12, 125, "Message",ExpressionUUID->"0a52e0c9-3a0a-a24b-a9af-01175c4ee0f4"], +Cell[565534, 13995, 579, 12, 94, "Message",ExpressionUUID->"e6adb683-0ea5-4b48-bbb8-23c8c11e4418"], +Cell[566116, 14009, 458, 10, 34, "Message",ExpressionUUID->"12441524-bcf6-244b-b009-fad76aa84cea"], +Cell[566577, 14021, 173, 3, 54, "Output",ExpressionUUID->"cc74ac59-df4c-cf4b-a4af-36b2436eea23"] +}, Open ]], +Cell[CellGroupData[{ +Cell[566787, 14029, 2221, 64, 242, "Input",ExpressionUUID->"ca837916-250f-4d4e-8368-5a08f479e656"], +Cell[569011, 14095, 572, 12, 94, "Message",ExpressionUUID->"ee3e5086-63b9-a04a-8b60-1a07bbedb00c"], +Cell[569586, 14109, 575, 12, 125, "Message",ExpressionUUID->"f824dc64-7721-2e40-87b9-9d308e655a7c"], +Cell[570164, 14123, 577, 12, 94, "Message",ExpressionUUID->"830b9065-dbdb-094f-aba8-2b0b04ca96a6"], +Cell[570744, 14137, 456, 10, 34, "Message",ExpressionUUID->"f79b172f-d4db-f24b-98c7-2b2531d3e183"], +Cell[571203, 14149, 172, 3, 54, "Output",ExpressionUUID->"88b0c8ab-c0ff-2a4c-be6a-f15bb3bf7202"] +}, Open ]], +Cell[CellGroupData[{ +Cell[571412, 14157, 2223, 64, 242, "Input",ExpressionUUID->"b579991f-985b-234a-94aa-ed18c097f8c0"], +Cell[573638, 14223, 572, 12, 94, "Message",ExpressionUUID->"f816110f-9bc3-0e4e-85c9-2e71a255bbb9"], +Cell[574213, 14237, 573, 12, 125, "Message",ExpressionUUID->"36d057a5-55b4-f047-814d-965f9626b543"], +Cell[574789, 14251, 579, 12, 94, "Message",ExpressionUUID->"4ef30680-44fe-0244-870d-45b0a67e7a3d"], +Cell[575371, 14265, 456, 10, 34, "Message",ExpressionUUID->"c685c306-1cc4-0a4f-bb39-965ed01378a7"], +Cell[575830, 14277, 173, 3, 54, "Output",ExpressionUUID->"621ca10b-eff8-834f-a283-22ac03a895a3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[576040, 14285, 215, 6, 76, "Input",ExpressionUUID->"afb7855c-8700-d444-926c-6d96abe14e67"], +Cell[576258, 14293, 174, 3, 54, "Output",ExpressionUUID->"3737ba01-5151-874d-9846-1c8b07e42d7a"] +}, Open ]], +Cell[576447, 14299, 188, 4, 47, "Input",ExpressionUUID->"a3c9312c-d52b-429d-a073-e8b0adec4a09"] } ] *) -(* End of internal cache information *) - diff --git a/Pu240_798-811_TitovAA/168-72_h_Pu240_22-23/h_168-72_Pu240_22-23_pr_Qw2.nb b/Pu240_798-811_TitovAA/168-72_h_Pu240_22-23/h_168-72_Pu240_22-23_pr_Qw2.nb index 1226680..7f02c1a 100644 --- a/Pu240_798-811_TitovAA/168-72_h_Pu240_22-23/h_168-72_Pu240_22-23_pr_Qw2.nb +++ b/Pu240_798-811_TitovAA/168-72_h_Pu240_22-23/h_168-72_Pu240_22-23_pr_Qw2.nb @@ -3,42 +3,4771 @@ (*** 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[ 586596, 14155] +NotebookOptionsPosition[ 547385, 13528] +NotebookOutlinePosition[ 547796, 13545] +CellTagsIndexPosition[ 547753, 13542] 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", "=", "1.9"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.9940735873936653`*^9, 3.9940735896443777`*^9}, { + 3.994075218023417*^9, 3.994075221411705*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"c62de598-43a4-4ade-b5eb-955d4b7d7879"], + +Cell[BoxData["1.9`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, {3.9940735644974327`*^9, 3.994073590895896*^9}, { + 3.994075171996416*^9, 3.994075180507247*^9}, {3.994075219377726*^9, + 3.9940752234153214`*^9}, 3.994085115195125*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"02ee43ff-906a-40e5-b09b-17c16a41dd28"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.9940732811688833`*^9, 3.994073289502289*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"443c2931-8a20-441e-b187-045a02a9013b"], + +Cell[BoxData["240"], "Output", CellChangeTimes->{ - 3.9918501402114105`*^9},ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-\ -092c5143dcf0"], + 3.9913196497381973`*^9, {3.994073564560362*^9, 3.994073590977919*^9}, + 3.994075180702458*^9, 3.9940752234546824`*^9, 3.994085115261709*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"f8dc1e5d-820c-4798-af54-a797019ab4be"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "168"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.994073284506165*^9, 3.994073287626708*^9}}, + CellLabel->"In[3]:=",ExpressionUUID->"fb95b8d6-68e2-4212-85c8-47c4f59a1d74"], + +Cell[BoxData["168"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, {3.994073564571506*^9, 3.994073590992278*^9}, + 3.994075180712758*^9, 3.9940752234670067`*^9, 3.994085115272978*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"31e9d910-d4c0-45d6-869d-a05446246a18"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"ec9e8c01-0ccd-45dc-b638-869becaeaaef"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, {3.994073564582589*^9, 3.994073590996417*^9}, + 3.994075180723978*^9, 3.994075223478387*^9, 3.994085115283976*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"8249d52c-d43f-41c2-8d25-817510c289dc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"fd1283af-1f2c-45f0-ab3f-92f4112ffd00"], + +Cell[BoxData["0.544`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, {3.994073564593708*^9, 3.994073591015129*^9}, + 3.994075180735317*^9, 3.994075223489546*^9, 3.99408511528822*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"5b5015f2-87a4-47d3-a645-6d0566e97e8b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"7a4077a9-3f50-428d-a6b3-85f1b7607ddc"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, {3.994073564604851*^9, 3.9940735910271397`*^9}, + 3.9940751807454844`*^9, 3.994075223493987*^9, 3.994085115305625*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"f6967b40-8618-4de8-a2f1-141001d765f4"] +}, 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->"5590d9be-5fc0-4dd1-bfac-edcd428f0031"], + +Cell[BoxData["6.400704089204199`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, {3.9940735646161203`*^9, 3.9940735910381737`*^9}, + 3.99407518075636*^9, 3.9940752235073977`*^9, 3.994085115316967*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"74249ad1-680b-446c-a045-8f6317c9cbef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"76002746-961d-4d23-b3fe-d4be05f7ca20"], + +Cell[BoxData["4.825794469480417`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, {3.994073564627458*^9, 3.9940735910486517`*^9}, + 3.994075180767749*^9, 3.9940752235185337`*^9, 3.994085115328018*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"df2ba0bd-028b-4353-8d9b-f8d9b00076c1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.8877902834"}]], "Input", + CellChangeTimes->{3.991799283179735*^9, 3.994073298855084*^9}, + CellLabel->"In[9]:=",ExpressionUUID->"30539bc8-31d1-42a2-afd0-23e5ac7c7311"], + +Cell[BoxData["0.8877902834`"], "Output", + CellChangeTimes->{{3.99407356463848*^9, 3.994073591058733*^9}, + 3.994075180779163*^9, 3.994075223529882*^9, 3.99408511533893*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"80d73021-3e2d-472b-ade3-42924739b17c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.3862529089"}]], "Input", + CellChangeTimes->{3.991799280663351*^9, 3.994073304321521*^9}, + CellLabel->"In[10]:=",ExpressionUUID->"3f8b5ee1-539d-4aa3-994a-ba60694a164f"], + +Cell[BoxData["0.3862529089`"], "Output", + CellChangeTimes->{{3.9940735646497602`*^9, 3.994073591068905*^9}, + 3.994075180790642*^9, 3.994075223541339*^9, 3.9940851153499804`*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"6a0f2ec6-de08-4ff1-a7d1-eeb267379119"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"c3607326-7fbc-4bc0-850d-87bddc12f83e"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, {3.994073564660372*^9, 3.994073591079844*^9}, + 3.9940751808023157`*^9, 3.99407522355291*^9, 3.994085115360931*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"329f1bda-e626-4e2a-b51b-0cb5fefbdcc5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"ec6db483-7fa2-4314-ae9e-2b03fa7b04cb"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, {3.994073564670796*^9, 3.994073591090024*^9}, + 3.994075180813775*^9, 3.994075223564582*^9, 3.994085115371682*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"3c20db16-f7a6-4610-afcd-2b8101f2de4d"] +}, 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->"752f5062-cf4b-4b1b-8eaf-33dc91418f79"], + +Cell[BoxData["2.2780057225092705`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, {3.9940735646817017`*^9, 3.994073591101307*^9}, + 3.9940751808204927`*^9, 3.99407522357547*^9, 3.994085115382881*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"df66f67b-d1b7-4781-bf88-7bc69831d326"] +}, 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->"a7ec5164-166e-4e2d-9554-e60f38e99a30"], + +Cell[BoxData["1.4218629228610074`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, {3.9940735646923637`*^9, 3.994073591111409*^9}, + 3.994075180833333*^9, 3.99407522358539*^9, 3.994085115393899*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"77195fc0-7fb3-41fc-bfbd-562ca4f420f4"] +}, 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->"31e17f5b-5ce4-493d-bf44-e05cab7dac5d"], + +Cell[BoxData["0.4156604021030056`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, {3.994073564703178*^9, 3.99407359112132*^9}, + 3.994075180844792*^9, 3.994075223596579*^9, 3.994085115405024*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"85fe8299-739b-4dcf-9994-022ec5b76feb"] +}, 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->"a5a9c07c-c9cf-406d-832c-3a9f2a889fac"], + +Cell[BoxData[ + RowBox[{"-", "0.08656844775361539`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, {3.994073564714039*^9, 3.994073591132222*^9}, + 3.994075180888361*^9, 3.994075223608573*^9, 3.994085115416223*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"51a73d11-1920-437d-94ce-fa1d3f9c5089"] +}, 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->"e9e1fc08-4585-4930-aa73-398513033f86"], + +Cell[BoxData[ + RowBox[{"-", "0.5722877017893374`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, {3.9940735647250757`*^9, 3.994073591143152*^9}, + 3.994075180901285*^9, 3.994075223621201*^9, 3.994085115427527*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"a689cb8c-13f9-4656-8794-f93478636eaf"] +}, 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->"2077cb14-499d-4811-9147-bcfe43430501"], + +Cell[BoxData["0.7168396379251292`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, {3.994073564736117*^9, 3.994073591154641*^9}, + 3.9940751809127274`*^9, 3.994075223631315*^9, 3.994085115439013*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"6151e0ed-c6f5-453a-ac85-9f7284f59620"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"3ee28a59-2332-4807-9490-8091cdbfe15f"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, {3.994073564745685*^9, 3.9940735911671133`*^9}, + 3.9940751809237967`*^9, 3.994075223641436*^9, 3.994085115449952*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"fcb058a5-4fe2-4181-aeb0-447a3ce8f491"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel->"In[20]:=",ExpressionUUID->"c0c9bdcf-6644-4b81-a69d-85367326eb68"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, {3.994073564755136*^9, 3.994073591178863*^9}, + 3.9940751809343033`*^9, 3.9940752236530647`*^9, 3.994085115460924*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"20167d98-09aa-4a17-a339-8590f6272351"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"258f4db0-cf27-4b8e-9a08-c286a8f7a1b7"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, {3.9940735647648563`*^9, 3.994073591190179*^9}, + 3.9940751809451323`*^9, 3.994075223664682*^9, 3.994085115472015*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"345b463d-d0ad-45e3-94c3-ae2a4b5cff6c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"d30cafe6-dfd9-4b35-a4cd-dd7fd3c95ffa"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, {3.994073564774688*^9, 3.994073591201717*^9}, + 3.994075180956657*^9, 3.994075223675436*^9, 3.994085115483061*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"1f8d8275-7763-44ea-9141-f9902f7f99bb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[23]:=",ExpressionUUID->"20eb6d99-d773-45a3-b106-30180dfff0f5"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, {3.994073564784115*^9, 3.994073591213622*^9}, + 3.9940751809686193`*^9, 3.9940752236862583`*^9, 3.9940851154940977`*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"90eb103d-ca0a-4766-b1d8-c0ed78f1fef6"] +}, 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.994073317560268*^9, 3.994073317727027*^9}}, + CellLabel->"In[24]:=",ExpressionUUID->"87a9097a-1263-4cd4-8bdb-66b56f9d5581"], + +Cell[BoxData["66"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, {3.994073564793541*^9, 3.994073591224018*^9}, + 3.994075180980678*^9, 3.994075223697234*^9, 3.9940851155052233`*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"3bbb8ab1-9759-473d-9fdb-d39afee5cdfc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, {3.9940733207460938`*^9, 3.994073320804184*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"3174395d-009d-49b8-a2c7-f935f6f2070a"], + +Cell[BoxData["28"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, {3.9940735648031883`*^9, 3.9940735912353287`*^9}, + 3.9940751809920683`*^9, 3.994075223707429*^9, 3.994085115516377*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"afe9d3dd-708d-42a6-898d-31d2d959d117"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"128a1648-e438-4a47-a063-a9a9364bc192"], + +Cell[BoxData["72"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, {3.99407356481284*^9, 3.994073591246372*^9}, + 3.994075181003516*^9, 3.994075223717374*^9, 3.994085115527375*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"c43260a7-d9eb-4ff8-bfb4-75f2299d10c7"] +}, 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->"7a6feb61-193c-4f0b-9146-6e2d422dc542"], + +Cell[BoxData["0.10999999999999999`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, {3.994073564822513*^9, 3.9940735912565413`*^9}, + 3.994075181014969*^9, 3.994075223727599*^9, 3.9940851155385227`*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"5fcf7dbf-1a69-4c01-ba36-f912484cd003"] +}, 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->"8206f17f-d083-41bb-97fa-98870c95d0c5"], + +Cell[BoxData[ + RowBox[{"-", "2.564285714285714`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, {3.994073564832857*^9, 3.994073591267404*^9}, + 3.9940751810260887`*^9, 3.9940752237376823`*^9, 3.9940851155496197`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"b4c86b70-e3ea-485d-85fb-9a1c5d7533e3"] +}, 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->"cbe139b8-6eb6-4350-aa10-947664bb7960"], + +Cell[BoxData["17.427928477019236`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, {3.994073564842832*^9, 3.9940735912778807`*^9}, + 3.9940751810379477`*^9, 3.994075223748026*^9, 3.994085115561041*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"b5b23c58-7acd-492e-bb44-7c8a62c15555"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"c5d6b6d3-d0f1-4a6e-b6be-8b4237a8c8fc"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, {3.994073564851839*^9, 3.994073591288074*^9}, + 3.99407518104945*^9, 3.994075223758711*^9, 3.9940851155718*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"8c8728b1-d8a6-4b1d-a01c-9ad8a31d0c6e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "2.155"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { + 3.994073341190873*^9, 3.994073342038845*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"1407b367-db95-44cd-8913-0b7027426f24"], + +Cell[BoxData["2.155`"], "Output", + CellChangeTimes->{{3.994073564860754*^9, 3.994073591298296*^9}, + 3.994075181060684*^9, 3.994075223775366*^9, 3.9940851155825577`*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"729e92b0-5457-4aea-a142-2ee5c4e5f1dc"] +}, 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->"fe6b8aab-6ec1-461b-b840-bfc68e60fb43"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.755"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.994073344618413*^9, 3.994073345759185*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"1dc22824-3561-4243-a957-da5fec5ab8fb"], + +Cell[BoxData["0.755`"], "Output", + CellChangeTimes->{{3.994073564877489*^9, 3.994073591311125*^9}, + 3.9940751810754833`*^9, 3.9940752237900457`*^9, 3.994085115602026*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"b6046670-1f4a-4801-8d1d-93a4c11fbab5"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel->"In[34]:=",ExpressionUUID->"c4dfccc7-db1d-478e-b432-5cdc48975c03"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "2.62"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.9940733478949413`*^9, 3.994073348567162*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"0f4fdc47-2f33-4c01-b732-1e0b219a28b3"], + +Cell[BoxData["2.62`"], "Output", + CellChangeTimes->{{3.994073564894133*^9, 3.9940735913232403`*^9}, + 3.994075181088438*^9, 3.994075223803163*^9, 3.994085115621591*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"6e32449c-ecf6-42f5-9699-61612de9196c"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel->"In[36]:=",ExpressionUUID->"3b525bd4-a574-49a4-bb5c-363e78948163"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.135"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, {3.99407335112987*^9, 3.9940733523562517`*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"efe0aefc-2665-45a2-a1ef-77fbc4d0f30c"], + +Cell[BoxData["1.135`"], "Output", + CellChangeTimes->{{3.994073564911627*^9, 3.994073591335389*^9}, + 3.994075181101487*^9, 3.994075223815889*^9, 3.994085115641233*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"538ab533-714b-4b2a-ba31-7d346a92e0f7"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel->"In[38]:=",ExpressionUUID->"6f978b7e-dadb-4f17-bd6b-a7684e8b28dd"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.025"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, {3.994073355091783*^9, + 3.994073355935183*^9}}, + CellLabel->"In[39]:=",ExpressionUUID->"39b77847-74a0-4092-ae6f-45182093468c"], + +Cell[BoxData["1.025`"], "Output", + CellChangeTimes->{{3.994073564928769*^9, 3.9940735913488693`*^9}, + 3.994075181114448*^9, 3.994075223832756*^9, 3.994085115661132*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"2753ca29-1488-470d-886d-0b8d912d182c"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel->"In[40]:=",ExpressionUUID->"ca569417-d65c-4bb3-bbde-6d897e42c337"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.575"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.994073359153013*^9, + 3.9940733600822906`*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"9344dccb-5a4c-43ae-9a13-1b1ed8541e21"], + +Cell[BoxData["0.575`"], "Output", + CellChangeTimes->{{3.994073564946273*^9, 3.99407359136164*^9}, + 3.9940751811274652`*^9, 3.9940752238459263`*^9, 3.994085115680732*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"b172a7e2-085c-4d2f-8fbc-9121dbea35e1"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel->"In[42]:=",ExpressionUUID->"c5fa4fcb-240f-496d-965c-f878c23a8a3a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "1.44"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, 3.994073366138835*^9, { + 3.994073396938322*^9, 3.994073398601803*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"8d0074db-3b7a-4e2c-9091-d8b953934f65"], + +Cell[BoxData["1.44`"], "Output", + CellChangeTimes->{{3.994073564964167*^9, 3.9940735913757553`*^9}, + 3.9940751811406727`*^9, 3.9940752238589993`*^9, 3.994085115700485*^9}, + CellLabel->"Out[43]=",ExpressionUUID->"f5c139ef-c6ab-4715-ab1d-9fbffb024e67"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel->"In[44]:=",ExpressionUUID->"baaff160-3478-4e58-8bc9-a6b4e33df6f8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "0.645"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, {3.9940734006045856`*^9, 3.99407340214142*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"beb8ed61-9457-46eb-864d-57c96c21c7ba"], + +Cell[BoxData["0.645`"], "Output", + CellChangeTimes->{{3.9940735649821672`*^9, 3.994073591389337*^9}, + 3.994075181153781*^9, 3.994075223871763*^9, 3.99408511572055*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"f3c3673f-42c4-4954-b5ab-ff46dbccbe13"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel->"In[46]:=",ExpressionUUID->"8f1d7272-29c5-4918-813c-65be11559d09"], + +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->"e2cd2ed8-3962-4a23-87cf-f018c3e03ed2"], + +Cell[BoxData["0.1377756020325425`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, {3.9940735650538073`*^9, 3.99407359143029*^9}, + 3.994075181231205*^9, 3.9940752239087954`*^9, 3.994085115791532*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"eeb00c32-8325-4870-90a0-00c9e5307945"] +}, 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->"a2733d81-8360-49cf-9df4-7ef1197a6abc"], + +Cell[BoxData["7.524926889811008`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, {3.99407356508613*^9, 3.994073591458125*^9}, + 3.994075181264968*^9, 3.994075223937818*^9, 3.9940851158187523`*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"92f40e41-e91b-496e-b031-e6057d24b081"] +}, 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->"f3ceb801-caf5-424b-8955-5beccb99f812"], + +Cell[BoxData[ + RowBox[{"-", "14.084113046357718`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, {3.994073565118821*^9, 3.994073591484323*^9}, + 3.994075181298151*^9, 3.9940752239647293`*^9, 3.994085115845601*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"3ca0012c-eb00-42b4-912b-c8cb99b6c9c3"] +}, 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->"ca186892-9129-4b79-9589-21361de4c53a"], + +Cell[BoxData[ + RowBox[{"-", "18.31263149263108`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, {3.9940735651553993`*^9, 3.994073591515855*^9}, + 3.9940751813370543`*^9, 3.994075223996374*^9, 3.994085115877906*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"8c537c1b-8d44-404d-acb6-4d30b6dd6d70"] +}, 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->"3a9e5a20-998b-40dc-83dc-3923c73911dd"], + +Cell[BoxData[ + RowBox[{"-", "53.236632839784775`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, {3.994073565191607*^9, 3.9940735915482073`*^9}, + 3.9940751813752813`*^9, 3.994075224029221*^9, 3.994085115907621*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"8c831df6-f7f9-4f7e-9e92-76675c9da378"] +}, 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->"c90b5c84-6b38-49a8-b9a6-852d905b7595"], + +Cell[BoxData[ + RowBox[{"-", "137.72173412227852`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, {3.9940735652337313`*^9, 3.9940735915861683`*^9}, + 3.9940751814204807`*^9, 3.99407522406466*^9, 3.994085115942054*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"0b056661-7141-40be-8d5f-4f56f2db16ab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[53]:=",ExpressionUUID->"c1072390-c91c-461f-9061-3953c9c41272"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, {3.994073565247233*^9, 3.99407359159737*^9}, + 3.994075181435895*^9, 3.9940752240755796`*^9, 3.994085115957597*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"c5eea605-f807-4d87-b299-7762bbaf58e9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[54]:=",ExpressionUUID->"9bbe40a4-3290-4166-b620-315848b98a39"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, {3.994073565259305*^9, 3.994073591607201*^9}, + 3.9940751814462433`*^9, 3.994075224085256*^9, 3.994085115970207*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"d63b1889-fb52-4f17-8f77-c511eac20578"] +}, 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->"85082aa6-00bd-4cc0-8b0b-df31b91af18c"], + +Cell[BoxData["109.03965674383026`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, {3.9940735652689238`*^9, 3.99407359161714*^9}, + 3.994075181457575*^9, 3.994075224089169*^9, 3.994085115981757*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"e238f3f1-4fcb-4c9e-9da4-c8e5ffe63b86"] +}, 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->"c96828d9-3f14-4d10-9102-dcdf583c2e94"], + +Cell[BoxData[ + RowBox[{"-", "96.23297652944373`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, {3.9940735652791967`*^9, 3.994073591627187*^9}, + 3.994075181468134*^9, 3.9940752240986977`*^9, 3.9940851159941797`*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"5c48db18-8f9f-4770-ba96-bc261082d1d5"] +}, 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->"f6d1ac3a-6fe8-4977-bd19-622801a955d0"], + +Cell[BoxData["112.13680293055965`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, {3.994073565289288*^9, 3.994073591637117*^9}, + 3.994075181479414*^9, 3.9940752241080437`*^9, 3.994085116007025*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"285cf33b-d30e-439d-a6b4-dcdbd82099e7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[58]:=",ExpressionUUID->"04e66d09-3217-4776-8f58-e5766c1bc1d0"], + +Cell[BoxData["0.4156604021030056`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, {3.99407356529922*^9, 3.994073591647008*^9}, + 3.994075181491456*^9, 3.994075224117897*^9, 3.9940851160206537`*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"f12ac516-3215-4b94-8d0d-5f74db7d25d3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[59]:=",ExpressionUUID->"fab83b14-f761-42b7-8294-0ee4a3924d96"], + +Cell[BoxData[ + RowBox[{"-", "0.08656844775361539`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, {3.994073565311245*^9, 3.994073591656905*^9}, + 3.994075181502122*^9, 3.9940752241273518`*^9, 3.9940851160340023`*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"3b347523-0ce8-4a5b-a0ff-a2af83dc0265"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[60]:=",ExpressionUUID->"4d40c3db-b716-44e3-99e6-10d903da7cd8"], + +Cell[BoxData[ + RowBox[{"-", "0.5722877017893374`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, {3.9940735653224297`*^9, 3.994073591666703*^9}, + 3.994075181512973*^9, 3.994075224138131*^9, 3.994085118461482*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"71c3e5ad-8f38-4bbd-a8ef-7371762fea68"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"137ad634-1ade-4ac0-9137-c1f5404e58d3"], + +Cell[BoxData["0.7168396379251292`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, {3.994073565332736*^9, 3.994073591676529*^9}, + 3.9940751815232983`*^9, 3.99407522414828*^9, 3.9940851186335783`*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"f199e36e-103f-4687-99bb-1dbc7ed9c2d5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[62]:=",ExpressionUUID->"3426c5a0-26bb-44e7-bd68-37ad5d99528d"], + +Cell[BoxData["2.2780057225092705`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, {3.994073565343382*^9, 3.994073591686304*^9}, + 3.9940751815621433`*^9, 3.994075224158536*^9, 3.994085118647644*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"d89dd81a-41a8-46b4-be87-81a6e83655ca"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[63]:=",ExpressionUUID->"da187f4c-de74-4d4c-98f6-6be653f32b24"], + +Cell[BoxData["1.4218629228610074`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, {3.9940735677968397`*^9, 3.994073591696135*^9}, + 3.994075181571867*^9, 3.994075224168653*^9, 3.994085118661684*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"df4bcd23-e665-48b2-a180-bebf80334d3e"] +}, 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->"593e5379-38c4-4a00-8707-5fcab24d8713"], + +Cell[BoxData[ + RowBox[{"-", "34.047906297441784`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, {3.994073567991251*^9, 3.994073591706287*^9}, + 3.994075181582259*^9, 3.994075224178802*^9, 3.994085118675519*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"4bf6662d-44d9-494c-95d2-758cc46bb0e1"] +}, 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->"4d18bb4f-280d-4386-aa56-c72e7043e5b6"], + +Cell[BoxData[ + RowBox[{"-", "6.56405378738986`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, {3.994073568001831*^9, 3.994073591716386*^9}, + 3.994075181592502*^9, 3.994075224188962*^9, 3.994085118690284*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"525df73e-aafa-4b88-a85a-47d082ea5b39"] +}, 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->"928216fb-1623-4f12-b68f-772917d7bdf4"], + +Cell[BoxData["74.99175044638848`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, {3.994073568012953*^9, 3.994073591726822*^9}, + 3.9940751816039963`*^9, 3.994075224199308*^9, 3.994085118707182*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"9a1dd232-0eed-4cf4-ada5-96bceba4881b"] +}, 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->"d10640d1-31d7-4755-8005-7b2e4f82ff94"], + +Cell[BoxData[ + RowBox[{"-", "96.23297652944373`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, {3.994073568023205*^9, 3.9940735917368*^9}, + 3.994075181615046*^9, 3.994075224209613*^9, 3.994085118720606*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"d37aa652-c3b1-4d33-8b31-d3ba4c11efc6"] +}, 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->"e266c0f8-b943-4b21-8b28-b379a06329e7"], + +Cell[BoxData["105.57274914316979`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, {3.994073568033989*^9, 3.994073591747006*^9}, + 3.994075181626021*^9, 3.994075224219851*^9, 3.994085118737733*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"8d41f0b8-5f29-4adb-aaad-e7ea83699fca"] +}, 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->"e5df6cb6-eada-4d75-8f4f-ac18128c4ec0"], + +Cell[BoxData["39.10949309233206`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, {3.994073568045323*^9, 3.99407359175727*^9}, + 3.994075181636903*^9, 3.99407522423002*^9, 3.994085118753406*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"6a77c378-2c32-424c-9d32-95d98258afff"] +}, 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->"a09e27d6-8b77-4532-86c7-9d9656f540bb"], + +Cell[BoxData["659.7171122788135`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, {3.994073568055649*^9, 3.994073591768012*^9}, + 3.9940751816477003`*^9, 3.99407522424048*^9, 3.9940851187719316`*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"c03b8c17-45bb-4061-aca2-70a7a7a9d4e3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f1", "=", "0.4800798445"}]], "Input", + CellChangeTimes->{3.9918501413985214`*^9, 3.9940848439169493`*^9}, + CellLabel->"In[71]:=",ExpressionUUID->"5894836c-9594-0940-b94c-299085c765cc"], + +Cell[BoxData["0.4800798445`"], "Output", + CellChangeTimes->{3.99408511878881*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"f1a65227-2122-4ffe-8a0b-7ffc85a16663"] +}, 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.2075336813"}]], "Input", + CellChangeTimes->{3.9918501402114105`*^9, 3.9940848593135233`*^9}, + CellLabel->"In[73]:=",ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-092c5143dcf0"], + +Cell[BoxData["0.2075336813`"], "Output", + CellChangeTimes->{3.994085118811582*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"4d4b67ae-3393-4a0a-9ac3-bb9351b58216"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918501388085117`*^9, 3.991850138811516*^9}}, + CellLabel->"In[74]:=",ExpressionUUID->"6e7c45d7-0298-ce41-ba97-a3c857e6ae57"], Cell[CellGroupData[{ @@ -84,13 +4813,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.5054805119396558`*^-53"], "Output", + CellChangeTimes->{3.9913437871842365`*^9, 3.994085118832778*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"3ee7292d-1d94-4662-ab3a-06cccc934e1c"] }, Open ]], Cell[CellGroupData[{ @@ -124,14 +4851,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["7.870302048799622`*^-55"], "Output", + CellChangeTimes->{3.9913437872132397`*^9, 3.9940851188494253`*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"b62f44dd-2018-46a2-94f0-397f7a6f6a37"] }, Open ]], Cell[CellGroupData[{ @@ -164,14 +4889,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.09654840213345`*^-54"], "Output", + CellChangeTimes->{3.9913437872412376`*^9, 3.9940851188660507`*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"51ce5759-9eb0-400a-b729-93d8f59ab7d9"] }, Open ]], Cell[CellGroupData[{ @@ -194,13 +4917,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["14.833218900905916`"], "Output", + CellChangeTimes->{3.9913437872672386`*^9, 3.994085118883193*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"5f552c53-15f5-4356-aa20-b76db8aee47e"] }, Open ]], Cell[CellGroupData[{ @@ -226,13 +4947,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["30.755441300456276`"], "Output", + CellChangeTimes->{3.991343787279253*^9, 3.994085118902314*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"9e3bce48-88ba-4844-b96e-71ee461a6742"] }, Open ]], Cell[CellGroupData[{ @@ -241,13 +4960,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.6237658021470522`"], "Output", + CellChangeTimes->{3.9913437873062572`*^9, 3.994085118917459*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"eca8ec09-f8c0-416c-bb2b-4617927543ef"] }, Open ]], Cell[CellGroupData[{ @@ -256,13 +4973,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.6314597396935815`"], "Output", + CellChangeTimes->{3.9913437873353844`*^9, 3.9940851189329033`*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"804ee7fe-04a6-474e-a2b4-4a97b244d859"] }, Open ]], Cell[CellGroupData[{ @@ -271,13 +4986,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["142.44258815957244`"], "Output", + CellChangeTimes->{3.991343787361582*^9, 3.994085118948419*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"a702af9e-64f0-4465-91fd-7c9750a659f0"] }, Open ]], Cell[CellGroupData[{ @@ -286,13 +4999,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["24.085673587052312`"], "Output", + CellChangeTimes->{3.9913437873734856`*^9, 3.9940851189643497`*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"7019d27b-cbb5-44c9-a237-0c077a767cac"] }, Open ]], Cell[CellGroupData[{ @@ -481,13 +5192,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.006868065640753621`"], "Output", + CellChangeTimes->{3.9913437874002857`*^9, 3.994085118980521*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"16385cf6-5108-4529-bb97-60710b9620a3"] }, Open ]], Cell[CellGroupData[{ @@ -500,13 +5209,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["10.693693248035043`"], "Output", + CellChangeTimes->{3.9913437875033875`*^9, 3.994085119095364*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"09eb46cf-534f-414a-aa87-568af882a7a1"] }, Open ]], Cell[CellGroupData[{ @@ -697,13 +5404,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.04013399702687854`"], "Output", + CellChangeTimes->{3.9913437875342865`*^9, 3.994085119112389*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"5914698f-2309-43aa-af88-0432267b79df"] }, Open ]], Cell[CellGroupData[{ @@ -716,13 +5421,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.423731236863689`"], "Output", + CellChangeTimes->{3.9913437876352882`*^9, 3.994085119153*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"af484f27-d07d-4431-b8dd-ca87a86dcd81"] }, Open ]], Cell[CellGroupData[{ @@ -814,13 +5517,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.07637363207411572`"], "Output", + CellChangeTimes->{3.991343787650694*^9, 3.994085119168439*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"21aac974-f852-4cd5-aa6b-c229a072fc92"] }, Open ]], Cell[CellGroupData[{ @@ -909,13 +5610,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.9236263679258842`"], "Output", + CellChangeTimes->{3.9913437876776943`*^9, 3.99408511918509*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"fadea4f8-13df-49fa-9f31-0aece10dad52"] }, Open ]], Cell[CellGroupData[{ @@ -1037,19 +5736,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.07054070039792333`"], "Output", + CellChangeTimes->{3.9913437877049465`*^9, 3.994085119202577*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"9f04824f-8859-4c0f-8080-4e0bbcc98912"] }, 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 +5807,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[\\\"4.1985377845763865`*^-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, 92, 1, + 31386537120616806061, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437877189426`*^9, 3.994085119234145*^9}, CellLabel-> "During evaluation of \ -In[415]:=",ExpressionUUID->"f24a3618-ee43-704a-86fe-493dbed35e8d"], +In[92]:=",ExpressionUUID->"524fb3dd-14a1-4597-8b02-c4b19af119ef"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ + "\"\\!\\(\\*FractionBox[\\\"7.028959552781788`*^-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, 92, 2, + 31386537120616806061, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437877189426`*^9, 3.994085119278974*^9}, CellLabel-> "During evaluation of \ -In[415]:=",ExpressionUUID->"86271901-aa3c-5542-ab18-fc06d3fd3f32"], +In[92]:=",ExpressionUUID->"1dbfef4f-d99d-45e6-bd42-676be565c04f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.176749500174552`*^-215\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 92, 3, + 31386537120616806061, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437877189426`*^9, 3.994085119282937*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"aff0035c-fe76-4864-bb49-0a97d515f074"], 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, 31386537120616806061, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437877189426`*^9, 3.994085119285736*^9}, CellLabel-> "During evaluation of \ -In[415]:=",ExpressionUUID->"ce9bd686-d768-5440-b47e-1ee2b5aa0183"], +In[92]:=",ExpressionUUID->"cdf38bd5-b9d6-4ea9-86d0-078a87b2bbaf"], -Cell[BoxData["5.020278507983898`"], "Output", - CellChangeTimes->{3.991343791131052*^9}, - CellLabel-> - "Out[415]=",ExpressionUUID->"a6ab28bd-0b4e-3443-93b3-734d7cf3d8a2"] +Cell[BoxData["10.693693248035046`"], "Output", + CellChangeTimes->{3.991343791131052*^9, 3.9940851206663218`*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"8a6705e7-cd3b-4654-b884-0d62b3eff3c9"] }, Open ]], Cell[CellGroupData[{ @@ -1233,68 +5932,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[\\\"4.1985377845763865`*^-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, 93, 5, + 31386537120616806061, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437911686516`*^9, 3.9940851207421217`*^9}, CellLabel-> "During evaluation of \ -In[416]:=",ExpressionUUID->"ba49f32e-1ff7-b147-9f42-9c90ccc55447"], +In[93]:=",ExpressionUUID->"316bfd93-b19e-4dcb-8445-615084c354e9"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ + "\"\\!\\(\\*FractionBox[\\\"7.028959552781788`*^-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, 93, 6, + 31386537120616806061, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437911686516`*^9, 3.994085120746357*^9}, CellLabel-> "During evaluation of \ -In[416]:=",ExpressionUUID->"fa95acf1-55b2-c042-9a9f-32e1ebea5c1e"], +In[93]:=",ExpressionUUID->"bad63f1a-ce8a-45c1-bb35-d524c598c760"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.176749500174552`*^-215\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 93, 7, + 31386537120616806061, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437911686516`*^9, 3.9940851207491217`*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"af6c8db3-8a76-43db-9d99-56de53c49dc2"], 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, 31386537120616806061, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437911686516`*^9, 3.994085120751528*^9}, CellLabel-> "During evaluation of \ -In[416]:=",ExpressionUUID->"3c3d4134-2c7d-0949-9759-036664c530e3"], +In[93]:=",ExpressionUUID->"a63bc6ec-4195-4730-b157-eaf565e1c4bd"], -Cell[BoxData["8.223604958038848`"], "Output", - CellChangeTimes->{3.991343794599764*^9}, - CellLabel-> - "Out[416]=",ExpressionUUID->"742dfe41-8369-8942-b522-c174c845c383"] +Cell[BoxData["4.423731236863689`"], "Output", + CellChangeTimes->{3.991343794599764*^9, 3.994085122259233*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"c6755025-6688-4ee9-92e5-b5ac8f3c41e5"] }, Open ]], Cell[CellGroupData[{ @@ -1350,390 +6051,12 @@ 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 - "]]}, - Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, - {"WolframDynamicHighlight", <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], - StyleBox[ - DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, - Slot["HighlightElements"], - Slot["LayoutOptions"], - Slot["Meta"], - Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, - Annotation[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]], - Line[CompressedData[" -1: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 - "]]}, "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}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, - "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), - "DefaultStyle" -> { - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]]}, - "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ - Part[#, 1]], - Identity[ - Part[#, 2]]}& ), - "ScalingFunctions" -> {{Identity, Identity}, { - Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> - False|>, - "Meta" -> <| - "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> - Plot, "GroupHighlight" -> False|>|>]]& )[<| - "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, - "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.7504249066936051, 1.313047485013753}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.7504249066936067}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, - "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), - "DefaultStyle" -> { - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]]}, - "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ - Part[#, 1]], - Identity[ - Part[#, 2]]}& ), - "ScalingFunctions" -> {{Identity, Identity}, { - Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, - "Meta" -> <| - "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> - Plot, "GroupHighlight" -> False|>|>], - ImageSizeCache->{{115.12306105754324`, - 253.30690491292427`}, {-15.402138689748767`, 5.769736310251233}}], - Selectable->False]}, - Annotation[{{{{}, {}, - Annotation[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - 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 - "]]}, "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}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, - "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]]}, - "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ - Part[#, 1]], - Identity[ - Part[#, 2]]}& ), - "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, - "Primitives" -> {}, "GCFlag" -> False|>, - "Meta" -> <| - "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> - Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], - AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes->{True, True}, - AxesLabel->{None, None}, - AxesOrigin->{0, 0.7504249066936067}, - DisplayFunction->Identity, - Frame->{{False, False}, {False, False}}, - FrameLabel->{{None, None}, {None, None}}, - FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, - GridLines->{None, None}, - GridLinesStyle->Directive[ - GrayLevel[0.5, 0.4]], - ImagePadding->All, - Method->{ - "DefaultBoundaryStyle" -> Automatic, - "DefaultGraphicsInteraction" -> { - "Version" -> 1.2, "TrackMousePosition" -> {True, False}, - "Effects" -> { - "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, - "Droplines" -> { - "freeformCursorMode" -> True, - "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> - AbsolutePointSize[6], "ScalingFunctions" -> None, - "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Identity[#]& )[ - Part[#, 1]], - (Identity[#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - (Identity[#]& )[ - Part[#, 1]], - (Identity[#]& )[ - Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.7504249066936051, 1.313047485013753}}, - PlotRangeClipping->True, - PlotRangePadding->{{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.05]}}, - Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913440619685707`*^9}, - CellLabel-> - "Out[417]=",ExpressionUUID->"0e6ef056-d4e3-ac4d-9f2a-df071f8decb1"] +Cell[BoxData["$Aborted"], "Output", + CellChangeTimes->{3.9913440619685707`*^9, 3.994085128290843*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"20fc6a4f-8ecf-46a1-a5d2-78999a9146bc"] }, Open ]], Cell[CellGroupData[{ @@ -2818,9 +7141,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.005365"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.015909"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.025915"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.035051"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.043054"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.049704"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.05488"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.058507"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.060618"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.061275"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.060632"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.058842"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.056126"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.052675"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.048717"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.044429"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.040006"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.03558"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.031291"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.027216"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.023437"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.019982"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.016885"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.014139"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.011745"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.009675"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.007913"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.006421"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.005177"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.004144"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.003297"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.994084929325358*^9},ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-\ b938908ab9a4"], Cell[BoxData[ @@ -9132,12 +13518,18 @@ Cell[BoxData[ d2cfa007cfcf"], Cell[BoxData["0.11028946354837708`"], "Output",ExpressionUUID->"8f1edf59-aed7-914f-9d19-1949d2a555d6"] -}, Open ]] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input", + CellChangeTimes->{{3.994085036527689*^9, + 3.9940850442982607`*^9}},ExpressionUUID->"2d6f49d4-1fcc-4bef-9913-\ +3930bef1b779"] }, -WindowSize->{718.5, 729.75}, -WindowMargins->{{6, Automatic}, {Automatic, 4.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->"f83c5602-f0d5-2d47-8a1b-23029521caf0" ] @@ -9152,356 +13544,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, 352, 6, 36, "Input",ExpressionUUID->"c62de598-43a4-4ade-b5eb-955d4b7d7879"], +Cell[931, 30, 326, 5, 41, "Output",ExpressionUUID->"02ee43ff-906a-40e5-b09b-17c16a41dd28"] }, 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[1294, 40, 248, 4, 36, "Input",ExpressionUUID->"443c2931-8a20-441e-b187-045a02a9013b"], +Cell[1545, 46, 273, 4, 41, "Output",ExpressionUUID->"f8dc1e5d-820c-4798-af54-a797019ab4be"] }, 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[1855, 55, 221, 4, 36, "Input",ExpressionUUID->"fb95b8d6-68e2-4212-85c8-47c4f59a1d74"], +Cell[2079, 61, 273, 4, 41, "Output",ExpressionUUID->"31e9d910-d4c0-45d6-869d-a05446246a18"] }, 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[2389, 70, 175, 3, 36, "Input",ExpressionUUID->"ec9e8c01-0ccd-45dc-b638-869becaeaaef"], +Cell[2567, 75, 271, 4, 41, "Output",ExpressionUUID->"8249d52c-d43f-41c2-8d25-817510c289dc"] }, 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[2875, 84, 257, 7, 54, "Input",ExpressionUUID->"fd1283af-1f2c-45f0-ab3f-92f4112ffd00"], +Cell[3135, 93, 273, 4, 41, "Output",ExpressionUUID->"5b5015f2-87a4-47d3-a645-6d0566e97e8b"] }, 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[3445, 102, 131, 2, 36, "Input",ExpressionUUID->"7a4077a9-3f50-428d-a6b3-85f1b7607ddc"], +Cell[3579, 106, 277, 4, 41, "Output",ExpressionUUID->"f6967b40-8618-4de8-a2f1-141001d765f4"] }, 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[3893, 115, 276, 6, 36, "Input",ExpressionUUID->"5590d9be-5fc0-4dd1-bfac-edcd428f0031"], +Cell[4172, 123, 291, 4, 41, "Output",ExpressionUUID->"74249ad1-680b-446c-a045-8f6317c9cbef"] }, 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[4500, 132, 257, 7, 36, "Input",ExpressionUUID->"76002746-961d-4d23-b3fe-d4be05f7ca20"], +Cell[4760, 141, 290, 4, 41, "Output",ExpressionUUID->"df2ba0bd-028b-4353-8d9b-f8d9b00076c1"] }, 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[5087, 150, 203, 3, 36, "Input",ExpressionUUID->"30539bc8-31d1-42a2-afd0-23e5ac7c7311"], +Cell[5293, 155, 252, 3, 41, "Output",ExpressionUUID->"80d73021-3e2d-472b-ade3-42924739b17c"] }, 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[5582, 163, 204, 3, 36, "Input",ExpressionUUID->"3f8b5ee1-539d-4aa3-994a-ba60694a164f"], +Cell[5789, 168, 259, 3, 41, "Output",ExpressionUUID->"6a0f2ec6-de08-4ff1-a7d1-eeb267379119"] }, 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[6085, 176, 129, 2, 36, "Input",ExpressionUUID->"c3607326-7fbc-4bc0-850d-87bddc12f83e"], +Cell[6217, 180, 271, 4, 41, "Output",ExpressionUUID->"329f1bda-e626-4e2a-b51b-0cb5fefbdcc5"] }, 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[6525, 189, 129, 2, 36, "Input",ExpressionUUID->"ec6db483-7fa2-4314-ae9e-2b03fa7b04cb"], +Cell[6657, 193, 270, 4, 41, "Output",ExpressionUUID->"3c20db16-f7a6-4610-afcd-2b8101f2de4d"] }, 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[6964, 202, 557, 19, 100, "Input",ExpressionUUID->"752f5062-cf4b-4b1b-8eaf-33dc91418f79"], +Cell[7524, 223, 291, 4, 41, "Output",ExpressionUUID->"df66f67b-d1b7-4781-bf88-7bc69831d326"] }, 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[7852, 232, 557, 19, 100, "Input",ExpressionUUID->"a7ec5164-166e-4e2d-9554-e60f38e99a30"], +Cell[8412, 253, 289, 4, 41, "Output",ExpressionUUID->"77195fc0-7fb3-41fc-bfbd-562ca4f420f4"] }, 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[8738, 262, 1588, 50, 103, "Input",ExpressionUUID->"31e17f5b-5ce4-493d-bf44-e05cab7dac5d"], +Cell[10329, 314, 285, 4, 41, "Output",ExpressionUUID->"85fe8299-739b-4dcf-9994-022ec5b76feb"] }, 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[10651, 323, 1422, 46, 73, "Input",ExpressionUUID->"a5a9c07c-c9cf-406d-832c-3a9f2a889fac"], +Cell[12076, 371, 304, 5, 41, "Output",ExpressionUUID->"51a73d11-1920-437d-94ce-fa1d3f9c5089"] }, 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[12417, 381, 1422, 46, 73, "Input",ExpressionUUID->"e9e1fc08-4585-4930-aa73-398513033f86"], +Cell[13842, 429, 307, 5, 41, "Output",ExpressionUUID->"a689cb8c-13f9-4656-8794-f93478636eaf"] }, 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[14186, 439, 1588, 50, 103, "Input",ExpressionUUID->"2077cb14-499d-4811-9147-bcfe43430501"], +Cell[15777, 491, 286, 4, 41, "Output",ExpressionUUID->"6151e0ed-c6f5-453a-ac85-9f7284f59620"] }, 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[16100, 500, 131, 2, 36, "Input",ExpressionUUID->"3ee28a59-2332-4807-9490-8091cdbfe15f"], +Cell[16234, 504, 274, 4, 41, "Output",ExpressionUUID->"fcb058a5-4fe2-4181-aeb0-447a3ce8f491"] }, 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[16545, 513, 133, 2, 36, "Input",ExpressionUUID->"c0c9bdcf-6644-4b81-a69d-85367326eb68"], +Cell[16681, 517, 276, 4, 41, "Output",ExpressionUUID->"20167d98-09aa-4a17-a339-8590f6272351"] }, 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[16994, 526, 134, 2, 36, "Input",ExpressionUUID->"258f4db0-cf27-4b8e-9a08-c286a8f7a1b7"], +Cell[17131, 530, 278, 4, 41, "Output",ExpressionUUID->"345b463d-d0ad-45e3-94c3-ae2a4b5cff6c"] }, 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[17446, 539, 219, 4, 36, "Input",ExpressionUUID->"d30cafe6-dfd9-4b35-a4cd-dd7fd3c95ffa"], +Cell[17668, 545, 287, 5, 41, "Output",ExpressionUUID->"1f8d8275-7763-44ea-9141-f9902f7f99bb"] }, 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[17992, 555, 134, 2, 36, "Input",ExpressionUUID->"20eb6d99-d773-45a3-b106-30180dfff0f5"], +Cell[18129, 559, 280, 4, 41, "Output",ExpressionUUID->"90eb103d-ca0a-4766-b1d8-c0ed78f1fef6"] }, 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[18446, 568, 322, 5, 36, "Input",ExpressionUUID->"87a9097a-1263-4cd4-8bdb-66b56f9d5581"], +Cell[18771, 575, 273, 4, 41, "Output",ExpressionUUID->"3bbb8ab1-9759-473d-9fdb-d39afee5cdfc"] }, 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[19081, 584, 298, 5, 36, "Input",ExpressionUUID->"3174395d-009d-49b8-a2c7-f935f6f2070a"], +Cell[19382, 591, 277, 4, 41, "Output",ExpressionUUID->"afe9d3dd-708d-42a6-898d-31d2d959d117"] }, 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[19696, 600, 219, 4, 36, "Input",ExpressionUUID->"128a1648-e438-4a47-a063-a9a9364bc192"], +Cell[19918, 606, 268, 4, 41, "Output",ExpressionUUID->"c43260a7-d9eb-4ff8-bfb4-75f2299d10c7"] }, 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[20223, 615, 350, 10, 54, "Input",ExpressionUUID->"7a6feb61-193c-4f0b-9146-6e2d422dc542"], +Cell[20576, 627, 293, 4, 41, "Output",ExpressionUUID->"5fcf7dbf-1a69-4c01-ba36-f912484cd003"] }, 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[20906, 636, 350, 10, 54, "Input",ExpressionUUID->"8206f17f-d083-41bb-97fa-98870c95d0c5"], +Cell[21259, 648, 310, 5, 41, "Output",ExpressionUUID->"b4c86b70-e3ea-485d-85fb-9a1c5d7533e3"] }, 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[21606, 658, 994, 26, 55, "Input",ExpressionUUID->"cbe139b8-6eb6-4350-aa10-947664bb7960"], +Cell[22603, 686, 292, 4, 41, "Output",ExpressionUUID->"b5b23c58-7acd-492e-bb44-7c8a62c15555"] }, 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[22932, 695, 199, 3, 36, "Input",ExpressionUUID->"c5d6b6d3-d0f1-4a6e-b6be-8b4237a8c8fc"], +Cell[23134, 700, 267, 4, 41, "Output",ExpressionUUID->"8c8728b1-d8a6-4b1d-a01c-9ad8a31d0c6e"] }, 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[23438, 709, 327, 5, 36, "Input",ExpressionUUID->"1407b367-db95-44cd-8913-0b7027426f24"], +Cell[23768, 716, 250, 3, 41, "Output",ExpressionUUID->"729e92b0-5457-4aea-a142-2ee5c4e5f1dc"] +}, Open ]], +Cell[24033, 722, 173, 2, 36, "Input",ExpressionUUID->"fe6b8aab-6ec1-461b-b840-bfc68e60fb43"], +Cell[CellGroupData[{ +Cell[24231, 728, 327, 5, 36, "Input",ExpressionUUID->"1dc22824-3561-4243-a957-da5fec5ab8fb"], +Cell[24561, 735, 252, 3, 41, "Output",ExpressionUUID->"b6046670-1f4a-4801-8d1d-93a4c11fbab5"] +}, Open ]], +Cell[24828, 741, 173, 2, 36, "Input",ExpressionUUID->"c4dfccc7-db1d-478e-b432-5cdc48975c03"], +Cell[CellGroupData[{ +Cell[25026, 747, 329, 5, 36, "Input",ExpressionUUID->"0f4fdc47-2f33-4c01-b732-1e0b219a28b3"], +Cell[25358, 754, 249, 3, 41, "Output",ExpressionUUID->"6e32449c-ecf6-42f5-9699-61612de9196c"] +}, Open ]], +Cell[25622, 760, 173, 2, 36, "Input",ExpressionUUID->"3b525bd4-a574-49a4-bb5c-363e78948163"], +Cell[CellGroupData[{ +Cell[25820, 766, 353, 5, 36, "Input",ExpressionUUID->"efe0aefc-2665-45a2-a1ef-77fbc4d0f30c"], +Cell[26176, 773, 248, 3, 41, "Output",ExpressionUUID->"538ab533-714b-4b2a-ba31-7d346a92e0f7"] +}, Open ]], +Cell[26439, 779, 171, 2, 36, "Input",ExpressionUUID->"6f978b7e-dadb-4f17-bd6b-a7684e8b28dd"], +Cell[CellGroupData[{ +Cell[26635, 785, 299, 5, 36, "Input",ExpressionUUID->"39b77847-74a0-4092-ae6f-45182093468c"], +Cell[26937, 792, 250, 3, 41, "Output",ExpressionUUID->"2753ca29-1488-470d-886d-0b8d912d182c"] +}, Open ]], +Cell[27202, 798, 171, 2, 36, "Input",ExpressionUUID->"ca569417-d65c-4bb3-bbde-6d897e42c337"], +Cell[CellGroupData[{ +Cell[27398, 804, 305, 5, 36, "Input",ExpressionUUID->"9344dccb-5a4c-43ae-9a13-1b1ed8541e21"], +Cell[27706, 811, 251, 3, 41, "Output",ExpressionUUID->"b172a7e2-085c-4d2f-8fbc-9121dbea35e1"] +}, Open ]], +Cell[27972, 817, 173, 2, 36, "Input",ExpressionUUID->"c5fa4fcb-240f-496d-965c-f878c23a8a3a"], +Cell[CellGroupData[{ +Cell[28170, 823, 327, 5, 36, "Input",ExpressionUUID->"8d0074db-3b7a-4e2c-9091-d8b953934f65"], +Cell[28500, 830, 253, 3, 41, "Output",ExpressionUUID->"f5c139ef-c6ab-4715-ab1d-9fbffb024e67"] +}, Open ]], +Cell[28768, 836, 172, 2, 36, "Input",ExpressionUUID->"baaff160-3478-4e58-8bc9-a6b4e33df6f8"], +Cell[CellGroupData[{ +Cell[28965, 842, 276, 4, 36, "Input",ExpressionUUID->"beb8ed61-9457-46eb-864d-57c96c21c7ba"], +Cell[29244, 848, 249, 3, 41, "Output",ExpressionUUID->"f3c3673f-42c4-4954-b5ab-ff46dbccbe13"] +}, Open ]], +Cell[29508, 854, 175, 2, 36, "Input",ExpressionUUID->"8f1d7272-29c5-4918-813c-65be11559d09"], +Cell[CellGroupData[{ +Cell[29708, 860, 19809, 485, 1708, "Input",ExpressionUUID->"e2cd2ed8-3962-4a23-87cf-f018c3e03ed2"], +Cell[49520, 1347, 289, 4, 41, "Output",ExpressionUUID->"eeb00c32-8325-4870-90a0-00c9e5307945"] }, 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[49846, 1356, 19748, 489, 1720, "Input",ExpressionUUID->"a2733d81-8360-49cf-9df4-7ef1197a6abc"], +Cell[69597, 1847, 286, 4, 41, "Output",ExpressionUUID->"92f40e41-e91b-496e-b031-e6057d24b081"] }, 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[69920, 1856, 19748, 483, 1720, "Input",ExpressionUUID->"f3ceb801-caf5-424b-8955-5beccb99f812"], +Cell[89671, 2341, 305, 5, 41, "Output",ExpressionUUID->"3ca0012c-eb00-42b4-912b-c8cb99b6c9c3"] }, 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[90013, 2351, 22534, 553, 1885, "Input",ExpressionUUID->"ca186892-9129-4b79-9589-21361de4c53a"], +Cell[112550, 2906, 306, 5, 41, "Output",ExpressionUUID->"8c537c1b-8d44-404d-acb6-4d30b6dd6d70"] }, 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[112893, 2916, 22535, 553, 1885, "Input",ExpressionUUID->"3a9e5a20-998b-40dc-83dc-3923c73911dd"], +Cell[135431, 3471, 309, 5, 41, "Output",ExpressionUUID->"8c831df6-f7f9-4f7e-9e92-76675c9da378"] }, 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[135777, 3481, 25491, 626, 2078, "Input",ExpressionUUID->"c90b5c84-6b38-49a8-b9a6-852d905b7595"], +Cell[161271, 4109, 308, 5, 41, "Output",ExpressionUUID->"0b056661-7141-40be-8d5f-4f56f2db16ab"] }, 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[161616, 4119, 130, 2, 36, "Input",ExpressionUUID->"c1072390-c91c-461f-9061-3953c9c41272"], +Cell[161749, 4123, 271, 4, 41, "Output",ExpressionUUID->"c5eea605-f807-4d87-b299-7762bbaf58e9"] }, 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[162057, 4132, 130, 2, 36, "Input",ExpressionUUID->"9bbe40a4-3290-4166-b620-315848b98a39"], +Cell[162190, 4136, 272, 4, 41, "Output",ExpressionUUID->"d63b1889-fb52-4f17-8f77-c511eac20578"] }, 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[162499, 4145, 1144, 39, 73, "Input",ExpressionUUID->"85082aa6-00bd-4cc0-8b0b-df31b91af18c"], +Cell[163646, 4186, 287, 4, 41, "Output",ExpressionUUID->"e238f3f1-4fcb-4c9e-9da4-c8e5ffe63b86"] }, 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[163970, 4195, 1041, 35, 73, "Input",ExpressionUUID->"c96828d9-3f14-4d10-9102-dcdf583c2e94"], +Cell[165014, 4232, 308, 5, 41, "Output",ExpressionUUID->"5c48db18-8f9f-4770-ba96-bc261082d1d5"] }, 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[165359, 4242, 1144, 39, 73, "Input",ExpressionUUID->"f6d1ac3a-6fe8-4977-bd19-622801a955d0"], +Cell[166506, 4283, 290, 4, 41, "Output",ExpressionUUID->"285cf33b-d30e-439d-a6b4-dcdbd82099e7"] }, 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[166833, 4292, 108, 1, 36, "Input",ExpressionUUID->"04e66d09-3217-4776-8f58-e5766c1bc1d0"], +Cell[166944, 4295, 289, 4, 41, "Output",ExpressionUUID->"f12ac516-3215-4b94-8d0d-5f74db7d25d3"] }, 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[167270, 4304, 108, 1, 36, "Input",ExpressionUUID->"fab83b14-f761-42b7-8294-0ee4a3924d96"], +Cell[167381, 4307, 310, 5, 41, "Output",ExpressionUUID->"3b347523-0ce8-4a5b-a0ff-a2af83dc0265"] }, 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[167728, 4317, 108, 1, 36, "Input",ExpressionUUID->"4d40c3db-b716-44e3-99e6-10d903da7cd8"], +Cell[167839, 4320, 305, 5, 41, "Output",ExpressionUUID->"71c3e5ad-8f38-4bbd-a8ef-7371762fea68"] }, 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[168181, 4330, 108, 1, 36, "Input",ExpressionUUID->"137ad634-1ade-4ac0-9137-c1f5404e58d3"], +Cell[168292, 4333, 289, 4, 41, "Output",ExpressionUUID->"f199e36e-103f-4687-99bb-1dbc7ed9c2d5"] }, 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[168618, 4342, 107, 1, 36, "Input",ExpressionUUID->"3426c5a0-26bb-44e7-bd68-37ad5d99528d"], +Cell[168728, 4345, 290, 4, 41, "Output",ExpressionUUID->"d89dd81a-41a8-46b4-be87-81a6e83655ca"] }, 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[169055, 4354, 107, 1, 36, "Input",ExpressionUUID->"da187f4c-de74-4d4c-98f6-6be653f32b24"], +Cell[169165, 4357, 290, 4, 41, "Output",ExpressionUUID->"df4bcd23-e665-48b2-a180-bebf80334d3e"] }, 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[169492, 4366, 497, 16, 71, "Input",ExpressionUUID->"593e5379-38c4-4a00-8707-5fcab24d8713"], +Cell[169992, 4384, 305, 5, 41, "Output",ExpressionUUID->"4bf6662d-44d9-494c-95d2-758cc46bb0e1"] }, 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[170334, 4394, 497, 16, 71, "Input",ExpressionUUID->"4d18bb4f-280d-4386-aa56-c72e7043e5b6"], +Cell[170834, 4412, 301, 5, 41, "Output",ExpressionUUID->"525df73e-aafa-4b88-a85a-47d082ea5b39"] }, 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[171172, 4422, 1788, 60, 142, "Input",ExpressionUUID->"928216fb-1623-4f12-b68f-772917d7bdf4"], +Cell[172963, 4484, 289, 4, 41, "Output",ExpressionUUID->"9a1dd232-0eed-4cf4-ada5-96bceba4881b"] }, 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[173289, 4493, 1101, 36, 73, "Input",ExpressionUUID->"d10640d1-31d7-4755-8005-7b2e4f82ff94"], +Cell[174393, 4531, 302, 5, 41, "Output",ExpressionUUID->"d37aa652-c3b1-4d33-8b31-d3ba4c11efc6"] }, 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[174732, 4541, 1818, 61, 144, "Input",ExpressionUUID->"e266c0f8-b943-4b21-8b28-b379a06329e7"], +Cell[176553, 4604, 286, 4, 41, "Output",ExpressionUUID->"8d41f0b8-5f29-4adb-aaad-e7ea83699fca"] }, 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[176876, 4613, 1631, 53, 101, "Input",ExpressionUUID->"e5df6cb6-eada-4d75-8f4f-ac18128c4ec0"], +Cell[178510, 4668, 285, 4, 41, "Output",ExpressionUUID->"6a77c378-2c32-424c-9d32-95d98258afff"] }, 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[178832, 4677, 1631, 53, 101, "Input",ExpressionUUID->"a09e27d6-8b77-4532-86c7-9d9656f540bb"], +Cell[180466, 4732, 288, 4, 41, "Output",ExpressionUUID->"c03b8c17-45bb-4061-aca2-70a7a7a9d4e3"] }, 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[180791, 4741, 208, 3, 36, "Input",ExpressionUUID->"5894836c-9594-0940-b94c-299085c765cc"], +Cell[181002, 4746, 160, 2, 41, "Output",ExpressionUUID->"f1a65227-2122-4ffe-8a0b-7ffc85a16663"] }, Open ]], -Cell[371689, 8793, 209, 5, 70, "Input",ExpressionUUID->"54d9c986-d109-3d4c-9ee8-76427bb63659"], +Cell[181177, 4751, 173, 2, 36, "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[181375, 4757, 208, 3, 36, "Input",ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-092c5143dcf0"], +Cell[181586, 4762, 161, 2, 41, "Output",ExpressionUUID->"4d4b67ae-3393-4a0a-9ac3-bb9351b58216"] +}, Open ]], +Cell[181762, 4767, 173, 2, 36, "Input",ExpressionUUID->"6e7c45d7-0298-ce41-ba97-a3c857e6ae57"], +Cell[CellGroupData[{ +Cell[181960, 4773, 1297, 42, 61, "Input",ExpressionUUID->"38bf39c5-cae1-4148-b0af-e362ef4ee2e3"], +Cell[183260, 4817, 196, 2, 41, "Output",ExpressionUUID->"3ee7292d-1d94-4662-ab3a-06cccc934e1c"] }, 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[183493, 4824, 927, 30, 73, "Input",ExpressionUUID->"f2e6289f-a8bc-6d44-a856-301cf9f22a61"], +Cell[184423, 4856, 197, 2, 41, "Output",ExpressionUUID->"b62f44dd-2018-46a2-94f0-397f7a6f6a37"] }, 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[184657, 4863, 908, 29, 73, "Input",ExpressionUUID->"cdf84d2f-1e96-4c43-9286-fda42549e334"], +Cell[185568, 4894, 196, 2, 41, "Output",ExpressionUUID->"51ce5759-9eb0-400a-b729-93d8f59ab7d9"] }, 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[185801, 4901, 554, 18, 66, "Input",ExpressionUUID->"a7d184c1-375c-094d-82ba-c6d8cfdfa4a1"], +Cell[186358, 4921, 191, 2, 41, "Output",ExpressionUUID->"5f552c53-15f5-4356-aa20-b76db8aee47e"] }, 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[186586, 4928, 647, 21, 66, "Input",ExpressionUUID->"cc7d9e01-d61b-5a43-abcd-9714383fe0fe"], +Cell[187236, 4951, 189, 2, 41, "Output",ExpressionUUID->"9e3bce48-88ba-4844-b96e-71ee461a6742"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187462, 4958, 166, 4, 71, "Input",ExpressionUUID->"1204358e-ac52-0f4c-bf22-945336ddda4e"], +Cell[187631, 4964, 191, 2, 41, "Output",ExpressionUUID->"eca8ec09-f8c0-416c-bb2b-4617927543ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187859, 4971, 166, 4, 69, "Input",ExpressionUUID->"66c9dc01-c171-8f4f-b59a-2829d67b4589"], +Cell[188028, 4977, 193, 2, 41, "Output",ExpressionUUID->"804ee7fe-04a6-474e-a2b4-4a97b244d859"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188258, 4984, 177, 4, 55, "Input",ExpressionUUID->"09b0eefd-6263-8a44-8015-82d02046019c"], +Cell[188438, 4990, 189, 2, 41, "Output",ExpressionUUID->"a702af9e-64f0-4465-91fd-7c9750a659f0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188664, 4997, 177, 4, 55, "Input",ExpressionUUID->"c1911d35-4f2b-d042-9073-088b56a17885"], +Cell[188844, 5003, 193, 2, 41, "Output",ExpressionUUID->"7019d27b-cbb5-44c9-a237-0c077a767cac"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189074, 5010, 6051, 184, 431, "Input",ExpressionUUID->"6fd22be4-12e4-0d4e-b7f7-ab28adc2524f"], +Cell[195128, 5196, 193, 2, 41, "Output",ExpressionUUID->"16385cf6-5108-4529-bb97-60710b9620a3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195358, 5203, 364, 8, 53, "Input",ExpressionUUID->"788e89bc-20c8-8541-af10-81d8741a0e5b"], +Cell[195725, 5213, 191, 2, 41, "Output",ExpressionUUID->"09eb46cf-534f-414a-aa87-568af882a7a1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195953, 5220, 6118, 186, 431, "Input",ExpressionUUID->"c19137b0-217d-0844-9acb-cc5878ab26fc"], +Cell[202074, 5408, 192, 2, 41, "Output",ExpressionUUID->"5914698f-2309-43aa-af88-0432267b79df"] +}, Open ]], +Cell[CellGroupData[{ +Cell[202303, 5415, 364, 8, 53, "Input",ExpressionUUID->"7c3bd40f-ac17-c54f-a888-ac3b4c84d9d9"], +Cell[202670, 5425, 187, 2, 41, "Output",ExpressionUUID->"af484f27-d07d-4431-b8dd-ca87a86dcd81"] +}, Open ]], +Cell[CellGroupData[{ +Cell[202894, 5432, 2659, 87, 215, "Input",ExpressionUUID->"bdca581e-5d9f-434b-8ec4-903e0edf0216"], +Cell[205556, 5521, 190, 2, 41, "Output",ExpressionUUID->"21aac974-f852-4cd5-aa6b-c229a072fc92"] +}, Open ]], +Cell[CellGroupData[{ +Cell[205783, 5528, 2599, 84, 215, "Input",ExpressionUUID->"1cec8cc2-764e-3d42-a680-d2ec92565257"], +Cell[208385, 5614, 190, 2, 41, "Output",ExpressionUUID->"fadea4f8-13df-49fa-9f31-0aece10dad52"] +}, Open ]], +Cell[CellGroupData[{ +Cell[208612, 5621, 3708, 117, 316, "Input",ExpressionUUID->"800aba4f-a7e9-864a-a38b-f618fe3c89be"], +Cell[212323, 5740, 192, 2, 41, "Output",ExpressionUUID->"9f04824f-8859-4c0f-8080-4e0bbcc98912"] +}, Open ]], +Cell[212530, 5745, 160, 3, 36, "Input",ExpressionUUID->"8111b6bb-cdcb-ad40-9440-412e77bed40d"], +Cell[CellGroupData[{ +Cell[212715, 5752, 2073, 58, 116, "Input",ExpressionUUID->"fc88a60e-e348-d344-96c4-1f4f66f53217"], +Cell[214791, 5812, 597, 13, 71, "Message",ExpressionUUID->"524fb3dd-14a1-4597-8b02-c4b19af119ef"], +Cell[215391, 5827, 599, 13, 71, "Message",ExpressionUUID->"1dbfef4f-d99d-45e6-bd42-676be565c04f"], +Cell[215993, 5842, 603, 13, 71, "Message",ExpressionUUID->"aff0035c-fe76-4864-bb49-0a97d515f074"], +Cell[216599, 5857, 492, 11, 32, "Message",ExpressionUUID->"cdf38bd5-b9d6-4ea9-86d0-078a87b2bbaf"], +Cell[217094, 5870, 191, 2, 41, "Output",ExpressionUUID->"8a6705e7-cd3b-4654-b884-0d62b3eff3c9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[217322, 5877, 2073, 58, 116, "Input",ExpressionUUID->"dca13eb7-7f94-3e45-81a8-b62dad3009d2"], +Cell[219398, 5937, 599, 13, 71, "Message",ExpressionUUID->"316bfd93-b19e-4dcb-8445-615084c354e9"], +Cell[220000, 5952, 599, 13, 71, "Message",ExpressionUUID->"bad63f1a-ce8a-45c1-bb35-d524c598c760"], +Cell[220602, 5967, 605, 13, 71, "Message",ExpressionUUID->"af6c8db3-8a76-43db-9d99-56de53c49dc2"], +Cell[221210, 5982, 492, 11, 32, "Message",ExpressionUUID->"a63bc6ec-4195-4730-b157-eaf565e1c4bd"], +Cell[221705, 5995, 188, 2, 41, "Output",ExpressionUUID->"c6755025-6688-4ee9-92e5-b5ac8f3c41e5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[221930, 6002, 1957, 52, 86, "Input",ExpressionUUID->"46451e4d-f5ef-b246-91c6-4265c9fafb97"], +Cell[223890, 6056, 180, 2, 41, "Output",ExpressionUUID->"20fc6a4f-8ecf-46a1-a5d2-78999a9146bc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[224107, 6063, 2094, 60, 116, "Input",ExpressionUUID->"06bd0169-a5a6-404c-935d-e1a61565f71e"], +Cell[226204, 6125, 503, 11, 48, "Message",ExpressionUUID->"8a980d1e-9dd5-194d-803a-ac5d63bbe693"], +Cell[226710, 6138, 505, 11, 48, "Message",ExpressionUUID->"637082a9-fe74-7345-8895-dee77343ee6f"], +Cell[227218, 6151, 506, 11, 48, "Message",ExpressionUUID->"b2e7262c-7c6d-d94d-a545-ea4b363e579a"], +Cell[227727, 6164, 455, 10, 32, "Message",ExpressionUUID->"40c56d25-ed26-3045-9759-ae8eef5eb7cb"], +Cell[228185, 6176, 55770, 961, 290, "Output",ExpressionUUID->"f96372ea-8786-a94e-801e-a3ab56caf675"] +}, Open ]], +Cell[283970, 7140, 2454, 69, 109, "Input",ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-b938908ab9a4"], +Cell[286427, 7211, 209, 5, 109, "Input",ExpressionUUID->"6b0777bb-40fd-b54e-aa03-b6e82cb2e939"], +Cell[CellGroupData[{ +Cell[286661, 7220, 217, 7, 109, "Input",ExpressionUUID->"1ec1e156-ca0f-9240-857c-ac86e3a0e3fd"], +Cell[286881, 7229, 173, 3, 109, "Output",ExpressionUUID->"1ffcb79a-13e7-7549-b41c-23408ffbacea"] +}, Open ]], +Cell[CellGroupData[{ +Cell[287091, 7237, 1814, 53, 109, "Input",ExpressionUUID->"2a22eb8b-38c3-1f4b-a455-da901e49f6f1"], +Cell[288908, 7292, 506, 11, 109, "Message",ExpressionUUID->"08a2126f-e71c-b94d-8844-15e292a8f7d1"], +Cell[289417, 7305, 508, 11, 109, "Message",ExpressionUUID->"1acf7f10-7675-ea41-b478-94e928ef3377"], +Cell[289928, 7318, 509, 11, 109, "Message",ExpressionUUID->"67cdfb4c-9282-934a-b3c5-526027acebf5"], +Cell[290440, 7331, 458, 10, 109, "Message",ExpressionUUID->"760e7203-a507-b249-aaf5-4906557faed2"], +Cell[290901, 7343, 24818, 454, 109, "Output",ExpressionUUID->"f25b03e8-0c50-2442-86f8-c19dc28b43cf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[315756, 7802, 1616, 48, 109, "Input",ExpressionUUID->"6e7e1815-2cc6-b24e-a02d-18991b1a751b"], +Cell[317375, 7852, 582, 12, 109, "Message",ExpressionUUID->"b6e3034b-dd99-1142-8723-42090efc2980"], +Cell[317960, 7866, 588, 12, 109, "Message",ExpressionUUID->"54e48413-1d3a-b844-8316-bcdf9191e67e"], +Cell[318551, 7880, 590, 12, 109, "Message",ExpressionUUID->"44ccd47c-7323-4a4e-a9d6-7424d8b3399f"], +Cell[319144, 7894, 458, 10, 109, "Message",ExpressionUUID->"4c2e41d3-b5d7-3f4c-ba94-0408b6a0e82d"], +Cell[319605, 7906, 171, 3, 109, "Output",ExpressionUUID->"c1bfc082-c70f-3140-a59c-c21547622f5b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[319813, 7914, 2251, 64, 109, "Input",ExpressionUUID->"0b10f52e-4583-2a4b-993d-96e59dd43e6a"], +Cell[322067, 7980, 557, 12, 109, "Message",ExpressionUUID->"0e308aaf-a4b5-d740-9882-5c338a63d7a7"], +Cell[322627, 7994, 560, 12, 109, "Message",ExpressionUUID->"5e35cc91-e340-c74b-b6dd-42063e8a308b"], +Cell[323190, 8008, 565, 12, 109, "Message",ExpressionUUID->"c3f5c3a9-ece1-e648-aa3a-3f66f2873ea7"], +Cell[323758, 8022, 458, 10, 109, "Message",ExpressionUUID->"41503ce3-67a0-8a4a-b10a-c3db53fd260d"], +Cell[324219, 8034, 172, 3, 109, "Output",ExpressionUUID->"d9451200-e1de-5d43-8d07-ddcfc9babc52"] +}, Open ]], +Cell[CellGroupData[{ +Cell[324428, 8042, 2218, 64, 109, "Input",ExpressionUUID->"a58948c9-6d3d-e847-a269-d2e0cc5d1484"], +Cell[326649, 8108, 559, 12, 109, "Message",ExpressionUUID->"2247cd70-3ffa-2245-971e-6c6a2bd1ecfc"], +Cell[327211, 8122, 562, 12, 109, "Message",ExpressionUUID->"d9ae7d5b-4e89-a74f-be53-15700ab2593c"], +Cell[327776, 8136, 563, 12, 109, "Message",ExpressionUUID->"821c7ce3-36cc-9549-9881-1225eb1561cf"], +Cell[328342, 8150, 458, 10, 109, "Message",ExpressionUUID->"52af17f2-aff2-c34f-85c8-700b3d2f5f39"], +Cell[328803, 8162, 170, 3, 109, "Output",ExpressionUUID->"9a4afbd4-21df-4744-836a-2ed068742fdd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[329010, 8170, 2221, 64, 109, "Input",ExpressionUUID->"c817b2d1-7deb-5a45-9938-ca10003188eb"], +Cell[331234, 8236, 559, 12, 109, "Message",ExpressionUUID->"3701f96f-691c-9040-a8a1-ff3958638338"], +Cell[331796, 8250, 562, 12, 109, "Message",ExpressionUUID->"9e260603-f97f-ac44-8251-869444fbcc24"], +Cell[332361, 8264, 563, 12, 109, "Message",ExpressionUUID->"f34d60ab-6a89-fd45-89b6-5f3b4b17dd22"], +Cell[332927, 8278, 458, 10, 109, "Message",ExpressionUUID->"27fa1c02-4896-1547-8cb5-b1b86182517f"], +Cell[333388, 8290, 171, 3, 109, "Output",ExpressionUUID->"7fdd69fb-d48e-e24a-a681-093b62cad9ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[333596, 8298, 213, 6, 109, "Input",ExpressionUUID->"350334c7-7c47-c24c-8adc-781173809e57"], +Cell[333812, 8306, 173, 3, 109, "Output",ExpressionUUID->"20848a4e-e706-ec41-8982-5a7089f6420d"] +}, Open ]], +Cell[334000, 8312, 245, 5, 109, "Input",ExpressionUUID->"597921e5-69d3-564d-a8fa-092e912c15e0"], +Cell[CellGroupData[{ +Cell[334270, 8321, 558, 19, 109, "Input",ExpressionUUID->"d8a22216-586e-3641-8d6a-b19164cbbef2"], +Cell[334831, 8342, 170, 3, 109, "Output",ExpressionUUID->"c70c9f2e-d3ac-284f-9a22-d110345400ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[335038, 8350, 170, 5, 109, "Input",ExpressionUUID->"fdbad1ee-10c7-0843-8319-ad9a3350b059"], +Cell[335211, 8357, 173, 3, 109, "Output",ExpressionUUID->"dc218355-20da-7845-8c8d-e506361cd90c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[335421, 8365, 181, 5, 109, "Input",ExpressionUUID->"1e4255c3-6733-664e-86c8-98281eb7b3d1"], +Cell[335605, 8372, 171, 3, 109, "Output",ExpressionUUID->"b98e2d62-3142-7d4b-8175-9f6bcc8f676f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[335813, 8380, 6055, 185, 109, "Input",ExpressionUUID->"70c538a1-1fdf-1447-919a-237a7f13ec4c"], +Cell[341871, 8567, 172, 3, 109, "Output",ExpressionUUID->"e2235b96-63a9-b14d-b5d1-d13c73c5b35b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[342080, 8575, 368, 9, 109, "Input",ExpressionUUID->"309f305e-3fbc-e84e-99d9-1087d7a09460"], +Cell[342451, 8586, 172, 3, 109, "Output",ExpressionUUID->"776526ba-6ae1-2140-8428-6e0766592ce2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[342660, 8594, 6122, 187, 109, "Input",ExpressionUUID->"e745b4b9-6adc-da40-98cf-d19095e176b2"], +Cell[348785, 8783, 173, 3, 109, "Output",ExpressionUUID->"4456bf68-737e-1947-bc9d-24db2abd4b39"] +}, Open ]], +Cell[CellGroupData[{ +Cell[348995, 8791, 368, 9, 109, "Input",ExpressionUUID->"9d206cd8-8a5b-4046-b84a-e6b4fe810128"], +Cell[349366, 8802, 170, 3, 109, "Output",ExpressionUUID->"04031349-1bc1-2c40-8d25-2e90a8f4b902"] +}, Open ]], +Cell[CellGroupData[{ +Cell[349573, 8810, 2663, 88, 109, "Input",ExpressionUUID->"2ec72619-a762-004d-a8c1-9773b798bf0e"], +Cell[352239, 8900, 171, 3, 109, "Output",ExpressionUUID->"ab924ecc-12c3-f448-be6e-b37b3bf2a7ea"] +}, Open ]], +Cell[CellGroupData[{ +Cell[352447, 8908, 2603, 85, 109, "Input",ExpressionUUID->"499f8153-6e36-8043-876b-5343c0af179e"], +Cell[355053, 8995, 173, 3, 109, "Output",ExpressionUUID->"edd230b8-d34a-9d46-9fb1-cbff36fb79ff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[355263, 9003, 3712, 118, 109, "Input",ExpressionUUID->"33c0834c-5a76-7640-a18c-d9704d756896"], +Cell[358978, 9123, 174, 3, 109, "Output",ExpressionUUID->"7ff053b6-f84b-bf44-8265-ecf6593e97c0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[359189, 9131, 2049, 58, 109, "Input",ExpressionUUID->"77c444cf-c5b4-4b4b-9808-ff76b28fd32d"], +Cell[361241, 9191, 579, 12, 109, "Message",ExpressionUUID->"ba9cccb8-fdfa-1d4c-9151-4c0bb8135009"], +Cell[361823, 9205, 582, 12, 109, "Message",ExpressionUUID->"dda5376f-614c-1846-a3e1-09857b4bcae6"], +Cell[362408, 9219, 584, 12, 109, "Message",ExpressionUUID->"7a2a8f8b-abfe-9646-a4d6-23b88b4059ef"], +Cell[362995, 9233, 458, 10, 109, "Message",ExpressionUUID->"61579f38-09d5-bc4c-9509-0aaf4718ceff"], +Cell[363456, 9245, 172, 3, 109, "Output",ExpressionUUID->"87b4581c-42ec-3248-906f-f100fdcc36d4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[363665, 9253, 2054, 59, 109, "Input",ExpressionUUID->"baacd3f7-96e4-2949-b9f9-9afb90e551d9"], +Cell[365722, 9314, 577, 12, 109, "Message",ExpressionUUID->"19016d8b-0ad0-804c-b867-298523611be5"], +Cell[366302, 9328, 580, 12, 109, "Message",ExpressionUUID->"b91abb11-65b8-3b43-a495-4cb1457edd27"], +Cell[366885, 9342, 583, 12, 109, "Message",ExpressionUUID->"120f2ab5-c971-b748-a471-5d053961b4f2"], +Cell[367471, 9356, 456, 10, 109, "Message",ExpressionUUID->"e219a46d-9b55-8b4b-a17f-972d0b60293c"], +Cell[367930, 9368, 171, 3, 109, "Output",ExpressionUUID->"15e7db41-f53f-7c4b-886f-7ba04bf10a25"] +}, Open ]], +Cell[CellGroupData[{ +Cell[368138, 9376, 2030, 55, 109, "Input",ExpressionUUID->"ea08a5a9-d446-9147-ba82-e3924f732df2"], +Cell[370171, 9433, 20493, 384, 109, "Output",ExpressionUUID->"33ceb84f-c9c7-504c-ae94-1b1d69b769af"] +}, Open ]], +Cell[CellGroupData[{ +Cell[390701, 9822, 2120, 60, 109, "Input",ExpressionUUID->"42ddbf41-0bd8-b749-bead-56c89a9b7467"], +Cell[392824, 9884, 501, 11, 109, "Message",ExpressionUUID->"b616cb85-0c12-9449-8e54-a070530c7874"], +Cell[393328, 9897, 504, 11, 109, "Message",ExpressionUUID->"d17cbbe2-194b-ec4c-bb30-d2fcc4c1a181"], +Cell[393835, 9910, 508, 11, 109, "Message",ExpressionUUID->"6c23e3dc-9bc5-a441-99df-2985793b0df8"], +Cell[394346, 9923, 456, 10, 109, "Message",ExpressionUUID->"de9af779-0821-a544-b1ce-6c66cf00e4d6"], +Cell[394805, 9935, 31462, 562, 109, "Output",ExpressionUUID->"d2a47969-eb62-c243-9b06-713ae9ea0a7d"] +}, Open ]], +Cell[426282, 10500, 209, 5, 109, "Input",ExpressionUUID->"6883477e-2a54-0a45-979a-ae60c73e9e82"], +Cell[CellGroupData[{ +Cell[426516, 10509, 1616, 48, 109, "Input",ExpressionUUID->"93c0bac4-7a17-8748-9b2f-588171dbd56e"], +Cell[428135, 10559, 596, 12, 109, "Message",ExpressionUUID->"ca0dab71-62e4-1c4e-b2d5-91f300055932"], +Cell[428734, 10573, 602, 12, 109, "Message",ExpressionUUID->"aa43f3fc-5ec5-414d-bbd9-cf1b638f0a27"], +Cell[429339, 10587, 605, 12, 109, "Message",ExpressionUUID->"eaa52aca-1e19-e84e-9825-10ec4ac94baf"], +Cell[429947, 10601, 458, 10, 109, "Message",ExpressionUUID->"40ddf79f-d82f-b94d-9b78-050a48c24dda"], +Cell[430408, 10613, 171, 3, 109, "Output",ExpressionUUID->"f752c3f0-fe06-284b-bff8-a09adf8994cc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[430616, 10621, 2251, 64, 109, "Input",ExpressionUUID->"fcc64ab7-eee0-e44f-9b2d-2a98ba29b602"], +Cell[432870, 10687, 577, 12, 109, "Message",ExpressionUUID->"03b49875-7e1c-734a-9395-591c7a6a0147"], +Cell[433450, 10701, 580, 12, 109, "Message",ExpressionUUID->"bbc1c804-e094-2b49-bceb-c837038552fa"], +Cell[434033, 10715, 586, 12, 109, "Message",ExpressionUUID->"340351a4-e10e-7141-b933-75e80a563962"], +Cell[434622, 10729, 458, 10, 109, "Message",ExpressionUUID->"45363ba5-7011-ce4a-bbb2-25b54117d598"], +Cell[435083, 10741, 173, 3, 109, "Output",ExpressionUUID->"a7117811-d866-a74a-b451-2e5611fcbe98"] +}, Open ]], +Cell[CellGroupData[{ +Cell[435293, 10749, 2219, 64, 109, "Input",ExpressionUUID->"edfdd675-c60b-304e-9e16-68452b971319"], +Cell[437515, 10815, 579, 12, 109, "Message",ExpressionUUID->"d229ea6a-26e4-d448-90bf-3044f07066eb"], +Cell[438097, 10829, 580, 12, 109, "Message",ExpressionUUID->"7911ebc5-127d-5841-a246-fcff3e2e3d7f"], +Cell[438680, 10843, 586, 12, 109, "Message",ExpressionUUID->"62b490bd-3e68-5b49-8d2e-1bbb1e520215"], +Cell[439269, 10857, 458, 10, 109, "Message",ExpressionUUID->"2c340204-da84-dd4d-abb8-8821cc152f8d"], +Cell[439730, 10869, 171, 3, 109, "Output",ExpressionUUID->"88b2df22-3f75-ff45-90a9-fda3ac3bb827"] +}, Open ]], +Cell[CellGroupData[{ +Cell[439938, 10877, 2219, 64, 109, "Input",ExpressionUUID->"d0469d46-2e74-494a-be85-b41cb2f3fa92"], +Cell[442160, 10943, 576, 12, 109, "Message",ExpressionUUID->"8c45e08e-3e6d-d74b-a260-2b9be908c427"], +Cell[442739, 10957, 580, 12, 109, "Message",ExpressionUUID->"05cc4b97-7653-f04b-8664-f56b3128e201"], +Cell[443322, 10971, 584, 12, 109, "Message",ExpressionUUID->"880f1d89-ca48-ef4c-8955-16a02dd06624"], +Cell[443909, 10985, 458, 10, 109, "Message",ExpressionUUID->"fbbc91b1-3b40-a04c-8f78-5ca75ca88c9b"], +Cell[444370, 10997, 173, 3, 109, "Output",ExpressionUUID->"ea027f70-f222-b745-8c2e-f4a8bd2e0421"] +}, Open ]], +Cell[CellGroupData[{ +Cell[444580, 11005, 212, 6, 109, "Input",ExpressionUUID->"58b5e243-0972-1946-bd17-aca0f3e8a35b"], +Cell[444795, 11013, 172, 3, 109, "Output",ExpressionUUID->"3682abd7-ed62-9948-84cf-8fffa8ddbfe7"] +}, Open ]], +Cell[444982, 11019, 244, 5, 109, "Input",ExpressionUUID->"8ae59c8e-a0a1-f646-a3f5-a3711ba632a4"], +Cell[CellGroupData[{ +Cell[445251, 11028, 558, 19, 109, "Input",ExpressionUUID->"403fd1b3-6929-134c-834a-14f2acd2fccb"], +Cell[445812, 11049, 171, 3, 109, "Output",ExpressionUUID->"9fbf2f5c-e66a-8c48-92c5-cb97211e83a1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[446020, 11057, 170, 5, 109, "Input",ExpressionUUID->"434ec2be-ef30-1d48-bf44-e1e8b179c2e0"], +Cell[446193, 11064, 171, 3, 109, "Output",ExpressionUUID->"7a911217-f777-234b-9e3e-66fa91b95a93"] +}, Open ]], +Cell[CellGroupData[{ +Cell[446401, 11072, 181, 5, 109, "Input",ExpressionUUID->"defdc4af-a758-2c46-b8da-ac4403e5ffd4"], +Cell[446585, 11079, 173, 3, 109, "Output",ExpressionUUID->"71512215-c060-b042-87dd-cf63c2fdbe79"] +}, Open ]], +Cell[CellGroupData[{ +Cell[446795, 11087, 6055, 185, 109, "Input",ExpressionUUID->"7643457c-ba0b-b641-aa35-59c61447beaf"], +Cell[452853, 11274, 173, 3, 109, "Output",ExpressionUUID->"83eb5a5c-2221-9048-9616-76c841caa7ff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[453063, 11282, 368, 9, 109, "Input",ExpressionUUID->"88a32c79-3b56-5047-96b0-6fadcea3787e"], +Cell[453434, 11293, 172, 3, 109, "Output",ExpressionUUID->"3469ea64-5888-e347-a592-fe58acf45252"] +}, Open ]], +Cell[CellGroupData[{ +Cell[453643, 11301, 6122, 187, 109, "Input",ExpressionUUID->"12b95c40-ca91-7148-a053-e8c97b54e7b6"], +Cell[459768, 11490, 173, 3, 109, "Output",ExpressionUUID->"6078ae64-e041-ef46-9c98-aeb384a7565b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[459978, 11498, 368, 9, 109, "Input",ExpressionUUID->"4e259183-4a48-7f41-8fc6-1aa60d807e18"], +Cell[460349, 11509, 172, 3, 109, "Output",ExpressionUUID->"ed53339e-8a54-b740-a712-127e0aa48364"] +}, Open ]], +Cell[CellGroupData[{ +Cell[460558, 11517, 2663, 88, 109, "Input",ExpressionUUID->"73b06553-f9e2-3447-85e9-8a163aa2ec21"], +Cell[463224, 11607, 173, 3, 109, "Output",ExpressionUUID->"0881e898-a895-4f44-9932-c9b57f23fb23"] +}, Open ]], +Cell[CellGroupData[{ +Cell[463434, 11615, 2603, 85, 109, "Input",ExpressionUUID->"64658d71-e48f-7c4d-bfd6-30344127c7bf"], +Cell[466040, 11702, 171, 3, 109, "Output",ExpressionUUID->"6f8be6ff-3439-7547-b2e5-a7f15df03852"] +}, Open ]], +Cell[CellGroupData[{ +Cell[466248, 11710, 3712, 118, 109, "Input",ExpressionUUID->"02b10812-8656-6e43-99ab-3ff059fd6dae"], +Cell[469963, 11830, 174, 3, 109, "Output",ExpressionUUID->"5f1268db-50d9-294a-839d-2dc73b3483c5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[470174, 11838, 2054, 59, 109, "Input",ExpressionUUID->"ba508068-6b78-254c-87d6-cf1adc0753dd"], +Cell[472231, 11899, 574, 12, 109, "Message",ExpressionUUID->"fea97571-51b6-bc4d-8922-e67cbea226be"], +Cell[472808, 11913, 580, 12, 109, "Message",ExpressionUUID->"f9381c1d-d837-a646-bb62-f69cb564b78b"], +Cell[473391, 11927, 580, 12, 109, "Message",ExpressionUUID->"2dd3f3b2-ca3e-6c42-abc0-5cf7523a6a65"], +Cell[473974, 11941, 456, 10, 109, "Message",ExpressionUUID->"5a727290-5b6b-a347-9739-3df9958ec415"], +Cell[474433, 11953, 172, 3, 109, "Output",ExpressionUUID->"44426372-aa84-bf4c-9f95-4de13286a09a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[474642, 11961, 2054, 59, 109, "Input",ExpressionUUID->"842e33e4-ae06-f746-ab8b-97489285cc9c"], +Cell[476699, 12022, 576, 12, 109, "Message",ExpressionUUID->"a32ffe4b-5346-7b46-9dee-b8bad033001e"], +Cell[477278, 12036, 577, 12, 109, "Message",ExpressionUUID->"902c6490-8537-484d-8825-0d2295db4f12"], +Cell[477858, 12050, 582, 12, 109, "Message",ExpressionUUID->"1b49285c-a5d9-074c-871b-37b4cadb7269"], +Cell[478443, 12064, 458, 10, 109, "Message",ExpressionUUID->"2ff3d4da-4949-1448-b68b-aac1ae56bb1a"], +Cell[478904, 12076, 172, 3, 109, "Output",ExpressionUUID->"046dcac0-9165-4b41-8a82-c19ed01a7ad4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[479113, 12084, 2028, 55, 109, "Input",ExpressionUUID->"b2e314f8-a6f0-6942-a94c-5ac1cacd7190"], +Cell[481144, 12141, 20021, 378, 109, "Output",ExpressionUUID->"d1cda4a3-f1fb-0d44-a506-74525ae66245"] +}, Open ]], +Cell[CellGroupData[{ +Cell[501202, 12524, 2146, 61, 109, "Input",ExpressionUUID->"497f9779-a3e4-c84e-a207-0aac70483e3c"], +Cell[503351, 12587, 502, 11, 109, "Message",ExpressionUUID->"56dc07a7-05cc-424a-8fff-08f056385a44"], +Cell[503856, 12600, 506, 11, 109, "Message",ExpressionUUID->"71ae3883-d346-164c-9764-dc57f6863817"], +Cell[504365, 12613, 508, 11, 109, "Message",ExpressionUUID->"16c86d51-9f27-3c48-b312-93c489e538a4"], +Cell[504876, 12626, 456, 10, 109, "Message",ExpressionUUID->"64c101a8-dc8b-1f4e-9946-a38ce949c736"], +Cell[505335, 12638, 30015, 538, 109, "Output",ExpressionUUID->"f98d1ba6-9bcb-b94f-a8fa-792e22f5ac65"] +}, Open ]], +Cell[535365, 13179, 209, 5, 109, "Input",ExpressionUUID->"54d9c986-d109-3d4c-9ee8-76427bb63659"], +Cell[CellGroupData[{ +Cell[535599, 13188, 1590, 47, 109, "Input",ExpressionUUID->"5dd0afca-0a4f-544d-814d-33e1c649116f"], +Cell[537192, 13237, 342, 6, 109, "Message",ExpressionUUID->"9e6d6a70-ad75-9b40-8a0b-ca802f09d5a2"], +Cell[537537, 13245, 101, 0, 109, "Output",ExpressionUUID->"b372c493-d6de-934f-951c-1a3f45718733"] +}, Open ]], +Cell[CellGroupData[{ +Cell[537675, 13250, 2249, 64, 109, "Input",ExpressionUUID->"a3e3d205-e3b4-874a-a36c-53cfa72184b4"], +Cell[539927, 13316, 342, 6, 109, "Message",ExpressionUUID->"9e9d949e-1d4c-8649-8d0e-b7deecfb3ba4"], +Cell[540272, 13324, 342, 6, 109, "Message",ExpressionUUID->"76f8ef60-aab6-7442-aeca-4cebad23cb0e"], +Cell[540617, 13332, 101, 0, 109, "Output",ExpressionUUID->"37cdd74c-8ec4-9047-aa14-d493ed3e18d0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[540755, 13337, 2221, 64, 109, "Input",ExpressionUUID->"6977f025-454e-0e4a-b118-07bad9ba3e82"], +Cell[542979, 13403, 342, 6, 109, "Message",ExpressionUUID->"566a849f-fc85-4d42-a545-a46d44cf7346"], +Cell[543324, 13411, 342, 6, 109, "Message",ExpressionUUID->"fb1cb4d6-a504-e445-bb52-7946e1bca3c6"], +Cell[543669, 13419, 100, 0, 109, "Output",ExpressionUUID->"5fc76ad3-8f3e-9246-bda1-78737e269d99"] +}, Open ]], +Cell[CellGroupData[{ +Cell[543806, 13424, 2223, 64, 109, "Input",ExpressionUUID->"df8ecb01-788a-604d-b773-f29bb610eb30"], +Cell[546032, 13490, 342, 6, 109, "Message",ExpressionUUID->"f9e34ec5-1462-b340-b2e7-8e875dd33d28"], +Cell[546377, 13498, 342, 6, 109, "Message",ExpressionUUID->"19ffb858-7059-2a48-a3db-e2d0dfcf2131"], +Cell[546722, 13506, 101, 0, 109, "Output",ExpressionUUID->"dbb2a900-6759-7349-a1e8-ea8b52a29f31"] +}, Open ]], +Cell[CellGroupData[{ +Cell[546860, 13511, 213, 6, 109, "Input",ExpressionUUID->"54a5e329-20bd-e742-afe8-d2cfa007cfcf"], +Cell[547076, 13519, 102, 0, 109, "Output",ExpressionUUID->"8f1edf59-aed7-914f-9d19-1949d2a555d6"] +}, Open ]], +Cell[547193, 13522, 188, 4, 109, "Input",ExpressionUUID->"2d6f49d4-1fcc-4bef-9913-3930bef1b779"] } ] *) diff --git a/Pu240_798-811_TitovAA/170-70_h_Pu240_24-25/h_170-70_Pu240_24-25_gid_Qw1.nb b/Pu240_798-811_TitovAA/170-70_h_Pu240_24-25/h_170-70_Pu240_24-25_gid_Qw1.nb index b66829d..24d770c 100644 --- a/Pu240_798-811_TitovAA/170-70_h_Pu240_24-25/h_170-70_Pu240_24-25_gid_Qw1.nb +++ b/Pu240_798-811_TitovAA/170-70_h_Pu240_24-25/h_170-70_Pu240_24-25_gid_Qw1.nb @@ -3,32 +3,4931 @@ (*** 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[ 399174, 9347] -NotebookOptionsPosition[ 375132, 8983] -NotebookOutlinePosition[ 375544, 9000] -CellTagsIndexPosition[ 375501, 8997] +NotebookDataLength[ 598568, 14570] +NotebookOptionsPosition[ 559529, 13949] +NotebookOutlinePosition[ 559940, 13966] +CellTagsIndexPosition[ 559897, 13963] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f1", "="}]], "Input", + RowBox[{"d", "=", "2"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.994074365586355*^9, 3.9940743682625427`*^9}, { + 3.994074972569545*^9, 3.994074973088262*^9}, {3.9940750163921824`*^9, + 3.9940750181750507`*^9}, {3.994075068546856*^9, 3.994075088637937*^9}}, + CellLabel-> + "In[408]:=",ExpressionUUID->"8fe1c173-48e4-40da-853e-c7660d0953ff"], + +Cell[BoxData["2"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, 3.994074326579653*^9, 3.994074935279605*^9, + 3.994074974578923*^9, 3.9940750193451347`*^9, {3.994075073182597*^9, + 3.9940750908104277`*^9}}, + CellLabel-> + "Out[408]=",ExpressionUUID->"2e4fa5be-ebd9-47a6-b918-2d1037bfa0d3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.9940736553396893`*^9, 3.9940736559062967`*^9}}, + CellLabel-> + "In[409]:=",ExpressionUUID->"2da1658c-7e33-476a-91d3-3a12ac5d4054"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.994074326639216*^9, 3.994074935535688*^9, + 3.99407497466455*^9, 3.9940750193870497`*^9, {3.9940750732233963`*^9, + 3.994075090853217*^9}}, + CellLabel-> + "Out[409]=",ExpressionUUID->"658291d7-f7a1-44c7-acc0-cc6804b86448"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "170"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.994073658167858*^9, 3.994073658855419*^9}}, + CellLabel-> + "In[410]:=",ExpressionUUID->"c4ab2602-4821-4853-82aa-f55a72e0aaab"], + +Cell[BoxData["170"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.99407432665131*^9, 3.994074935546548*^9, + 3.994074974677713*^9, 3.994075019399205*^9, {3.99407507323412*^9, + 3.994075090864901*^9}}, + CellLabel-> + "Out[410]=",ExpressionUUID->"388a5dec-22e1-403d-9df4-6c9a6c389a83"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel-> + "In[411]:=",ExpressionUUID->"f789b39f-0ad8-4646-95c3-1ec11ff85d9d"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.994074326662937*^9, 3.994074935557375*^9, + 3.994074974689283*^9, 3.99407501941103*^9, {3.994075073246029*^9, + 3.9940750908767548`*^9}}, + CellLabel-> + "Out[411]=",ExpressionUUID->"5a188d2d-00ef-4a8c-832a-844cf226ad94"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel-> + "In[412]:=",ExpressionUUID->"55893559-3f60-4006-a662-5b99e964c5ad"], + +Cell[BoxData["0.5437500000000001`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.994074326674385*^9, 3.994074935568224*^9, + 3.994074974701558*^9, 3.99407501942295*^9, {3.994075073258301*^9, + 3.994075090888695*^9}}, + CellLabel-> + "Out[412]=",ExpressionUUID->"b8decdc7-2317-4b22-8ed5-af092522691c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel-> + "In[413]:=",ExpressionUUID->"8dc4e2d5-d91c-4ed4-b5ed-77e7122fe469"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.99407432668569*^9, 3.9940749355790033`*^9, + 3.994074974713187*^9, 3.9940750194346647`*^9, {3.994075073269951*^9, + 3.9940750909003353`*^9}}, + CellLabel-> + "Out[413]=",ExpressionUUID->"2a77efe3-a3c3-49f5-897f-bdb025f1b711"] +}, 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[414]:=",ExpressionUUID->"e4a8643f-da8e-487a-a9da-facf48dd1dbe"], + +Cell[BoxData["6.426003577835178`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.994074326696957*^9, 3.9940749355899067`*^9, + 3.994074974724668*^9, 3.994075019446229*^9, {3.994075073281803*^9, + 3.9940750909055967`*^9}}, + CellLabel-> + "Out[414]=",ExpressionUUID->"e1fe17f1-16a6-485c-b548-c95c3bb75d7d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel-> + "In[415]:=",ExpressionUUID->"9b20a0d1-981f-47cb-9932-f43daf3b20ff"], + +Cell[BoxData["4.7806909477779245`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.994074326708106*^9, 3.994074935599874*^9, + 3.9940749747357597`*^9, 3.994075019457683*^9, {3.994075073286825*^9, + 3.994075090919847*^9}}, + CellLabel-> + "Out[415]=",ExpressionUUID->"962ca9aa-e7fa-4fc2-ac4d-548281cd254e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.8747255229"}]], "Input", + CellChangeTimes->{3.991799283179735*^9, 3.994073678806656*^9}, + CellLabel-> + "In[416]:=",ExpressionUUID->"20aeb256-62d8-422c-9e4c-2e8eb192f455"], + +Cell[BoxData["0.8747255229`"], "Output", + CellChangeTimes->{ + 3.994074326718845*^9, 3.994074935610774*^9, 3.9940749747456427`*^9, + 3.994075019469336*^9, {3.9940750733015203`*^9, 3.994075090931666*^9}}, + CellLabel-> + "Out[416]=",ExpressionUUID->"5864dfbb-c4d4-492d-a6a6-842db0ae821f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.3882072479"}]], "Input", + CellChangeTimes->{3.991799280663351*^9, 3.9940736835660563`*^9}, + CellLabel-> + "In[417]:=",ExpressionUUID->"de81fbf9-8a17-44ca-a205-0a2f9dffac83"], + +Cell[BoxData["0.3882072479`"], "Output", + CellChangeTimes->{ + 3.994074326731606*^9, 3.9940749356216*^9, 3.9940749747554703`*^9, + 3.994075019480736*^9, {3.9940750733138313`*^9, 3.9940750909438963`*^9}}, + CellLabel-> + "Out[417]=",ExpressionUUID->"dc56965f-2437-4b21-b0c3-783cc139f50c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel-> + "In[418]:=",ExpressionUUID->"3fa258e5-621f-4343-b671-d18a2cdd0ab0"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.994074326743565*^9, 3.994074935632176*^9, + 3.994074974765235*^9, 3.994075019485297*^9, {3.994075073318596*^9, + 3.994075090955942*^9}}, + CellLabel-> + "Out[418]=",ExpressionUUID->"7a617167-5f7d-4152-97c6-3f012b851962"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel-> + "In[419]:=",ExpressionUUID->"b88bafaf-5c5f-49ae-afa0-a452969fca21"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.994074326755156*^9, 3.994074935643033*^9, + 3.99407497477602*^9, 3.994075019498505*^9, {3.994075073331485*^9, + 3.9940750909684067`*^9}}, + CellLabel-> + "Out[419]=",ExpressionUUID->"e30e9937-5d86-46db-8e0e-cba3b49e6d5c"] +}, 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[420]:=",ExpressionUUID->"a65de40a-1982-4c6c-a9dd-ebeb9b25be9f"], + +Cell[BoxData["2.2478963955971953`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.9940743267687807`*^9, 3.994074935653433*^9, + 3.994074974785841*^9, 3.994075019509776*^9, {3.994075073341671*^9, + 3.994075090978916*^9}}, + CellLabel-> + "Out[420]=",ExpressionUUID->"831e86d8-cb7d-4d59-b5d1-2804ba1a4f94"] +}, 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[421]:=",ExpressionUUID->"834c7559-63d6-4f38-8f88-0b74d1f00b6b"], + +Cell[BoxData["1.4243583722932822`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.994074326780384*^9, 3.994074935663515*^9, + 3.994074974795456*^9, 3.994075019519595*^9, {3.994075073351719*^9, + 3.99407509098914*^9}}, + CellLabel-> + "Out[421]=",ExpressionUUID->"4525e55f-b065-42fb-906a-946f4dba3cb7"] +}, 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[422]:=",ExpressionUUID->"88380677-4b53-464b-a364-c25e5bf28cfa"], + +Cell[BoxData["0.4215025991580821`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.994074326791608*^9, 3.994074935674151*^9, + 3.994074974805192*^9, 3.9940750195300922`*^9, {3.99407507336273*^9, + 3.994075090999715*^9}}, + CellLabel-> + "Out[422]=",ExpressionUUID->"7569faee-79b8-43a8-89dd-3d0efc170bd0"] +}, 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[423]:=",ExpressionUUID->"1c6bff4f-3585-4780-9239-2d0970069dfe"], + +Cell[BoxData[ + RowBox[{"-", "0.08696983109232953`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.994074326803142*^9, 3.994074935687113*^9, + 3.994074974815411*^9, 3.994075019541635*^9, {3.994075073373554*^9, + 3.994075091010479*^9}}, + CellLabel-> + "Out[423]=",ExpressionUUID->"6cd7a847-5d88-4450-a816-1c98309a1a1a"] +}, 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[424]:=",ExpressionUUID->"4dc74e11-a432-4902-b777-1c51f8e95def"], + +Cell[BoxData[ + RowBox[{"-", "0.5569156814457635`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.994074326815329*^9, 3.994074935701499*^9, + 3.9940749748259974`*^9, 3.9940750195530157`*^9, {3.994075073384471*^9, + 3.9940750910236893`*^9}}, + CellLabel-> + "Out[424]=",ExpressionUUID->"72ed276c-667b-4494-86aa-9b2b6a273373"] +}, 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[425]:=",ExpressionUUID->"a3fbbc71-ed31-48aa-81aa-83cb9ac7c2e0"], + +Cell[BoxData["0.7095150675393332`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.9940743268278837`*^9, 3.994074935715124*^9, + 3.994074974837141*^9, 3.994075019564198*^9, {3.9940750733955727`*^9, + 3.994075091035767*^9}}, + CellLabel-> + "Out[425]=",ExpressionUUID->"57935ae7-c6ce-4573-aa40-9f33f2113804"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel-> + "In[426]:=",ExpressionUUID->"2cb5df68-72f8-4aa3-bfed-e59b541fd94a"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.994074326840913*^9, 3.994074935728681*^9, + 3.994074974847731*^9, 3.994075019576145*^9, {3.994075073406547*^9, + 3.9940750910471153`*^9}}, + CellLabel-> + "Out[426]=",ExpressionUUID->"613e1fb5-c5fd-4266-9976-dfacc4c7e258"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel-> + "In[427]:=",ExpressionUUID->"c39a481b-8f5b-46f1-bf4f-b7b84e7c763c"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.994074326854053*^9, 3.99407493574161*^9, + 3.994074974858211*^9, 3.994075019594636*^9, {3.994075073417151*^9, + 3.9940750910581427`*^9}}, + CellLabel-> + "Out[427]=",ExpressionUUID->"47ff5e5d-50b3-40b1-a3ca-407cb3563f45"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel-> + "In[428]:=",ExpressionUUID->"52a6af0b-2aaf-4da3-8ad0-3cf9cac0c9c7"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.994074326866469*^9, 3.994074935754272*^9, + 3.994074974869028*^9, 3.994075019614243*^9, {3.994075073428639*^9, + 3.994075091069083*^9}}, + CellLabel-> + "Out[428]=",ExpressionUUID->"d29d4705-0e39-4e58-9657-394a033522f2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel-> + "In[429]:=",ExpressionUUID->"274614a8-b2e4-488a-9a51-b3c1320f8cf2"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.9940743268793383`*^9, 3.994074935766993*^9, + 3.994074974879899*^9, 3.994075019631719*^9, {3.9940750734398613`*^9, + 3.994075091080567*^9}}, + CellLabel-> + "Out[429]=",ExpressionUUID->"5899c6a4-4bbb-474c-adbd-42c47f7a97b3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel-> + "In[430]:=",ExpressionUUID->"4c3ccab8-f16a-473a-9477-8f4038d7fcf0"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.994074326891512*^9, 3.994074935779024*^9, + 3.994074974889886*^9, 3.99407501964223*^9, {3.994075073449995*^9, + 3.994075091090703*^9}}, + CellLabel-> + "Out[430]=",ExpressionUUID->"2d2025be-d99e-4781-94ac-86c0aacd6b4d"] +}, 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.994073690740699*^9, 3.994073690862359*^9}}, + CellLabel-> + "In[431]:=",ExpressionUUID->"b139e6f3-21d1-4cfc-86bb-63f330a03334"], + +Cell[BoxData["66"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, 3.994074326904242*^9, 3.994074935791787*^9, + 3.9940749749005938`*^9, 3.994075019653521*^9, {3.994075073461108*^9, + 3.994075091102222*^9}}, + CellLabel-> + "Out[431]=",ExpressionUUID->"76702380-b2f8-44db-8133-f9eb3e9f6570"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, {3.994073693453496*^9, 3.9940736957455587`*^9}}, + CellLabel-> + "In[432]:=",ExpressionUUID->"e1207387-24ac-4dea-843b-d1089efa7762"], + +Cell[BoxData["28"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.994074326916279*^9, 3.9940749358034363`*^9, + 3.99407497491004*^9, 3.994075019663575*^9, {3.994075073471445*^9, + 3.994075091112747*^9}}, + CellLabel-> + "Out[432]=",ExpressionUUID->"19f73123-c298-4350-8ed8-8c2fec5bbb1c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel-> + "In[433]:=",ExpressionUUID->"d35bc7f8-d637-4879-81b3-93555238ca00"], + +Cell[BoxData["70"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.994074326928279*^9, 3.994074935814618*^9, + 3.994074974919529*^9, 3.994075019673669*^9, {3.9940750734815598`*^9, + 3.9940750911232967`*^9}}, + CellLabel-> + "Out[433]=",ExpressionUUID->"77e86005-a4b5-4b64-b60a-17a63c8d5c96"] +}, 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[434]:=",ExpressionUUID->"873e03bc-05ef-4eee-b240-9645488938d1"], + +Cell[BoxData["0.1087764705882353`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9940743269397917`*^9, 3.994074935826476*^9, + 3.994074974929028*^9, 3.994075019683881*^9, {3.994075073492182*^9, + 3.994075091133902*^9}}, + CellLabel-> + "Out[434]=",ExpressionUUID->"d5233a41-8a26-4392-8654-ad00aa242b61"] +}, 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[435]:=",ExpressionUUID->"005f52ce-9a2a-4bce-9747-69a2e1f94c09"], + +Cell[BoxData[ + RowBox[{"-", "2.5658588235294117`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.994074326951318*^9, 3.9940749358379097`*^9, + 3.9940749749388123`*^9, 3.994075019694408*^9, {3.994075073502742*^9, + 3.9940750911440773`*^9}}, + CellLabel-> + "Out[435]=",ExpressionUUID->"6abec2a2-b612-4b94-bc11-e1939f456334"] +}, 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[436]:=",ExpressionUUID->"a0840464-3e6c-4c47-a4dc-923fe4972af5"], + +Cell[BoxData["17.474387700041003`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.994074326963644*^9, 3.99407493585293*^9, + 3.994074974948763*^9, 3.9940750197049227`*^9, {3.994075073513197*^9, + 3.9940750911556253`*^9}}, + CellLabel-> + "Out[436]=",ExpressionUUID->"e5a556e2-6106-4fd0-a44d-e56291c234f0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel-> + "In[437]:=",ExpressionUUID->"b6441bd4-7a69-43ea-ba92-f5dcf5867d52"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.994074326975409*^9, 3.994074935865913*^9, + 3.994074974958894*^9, 3.9940750197157593`*^9, {3.994075073523876*^9, + 3.99407509116647*^9}}, + CellLabel-> + "Out[437]=",ExpressionUUID->"4ec5757d-8ff3-425c-9386-0f27589df0fd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "1.895"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { + 3.9940737081112833`*^9, 3.994073709172043*^9}}, + CellLabel-> + "In[438]:=",ExpressionUUID->"ec59f7e4-521b-4033-9663-877560d36cf4"], + +Cell[BoxData["1.895`"], "Output", + CellChangeTimes->{ + 3.99407432698682*^9, 3.994074935879013*^9, 3.994074974974915*^9, + 3.994075019726281*^9, {3.994075073534071*^9, 3.994075091176951*^9}}, + CellLabel-> + "Out[438]=",ExpressionUUID->"a8767b48-8606-4d48-b47c-275a280f9721"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel-> + "In[439]:=",ExpressionUUID->"be9b1537-8539-405a-9142-2855b44c2bd8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.785"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.994073711335288*^9, 3.994073712564888*^9}}, + CellLabel-> + "In[440]:=",ExpressionUUID->"ab141ba7-c516-4594-afd9-d4e4026a803a"], + +Cell[BoxData["0.785`"], "Output", + CellChangeTimes->{ + 3.994074327001001*^9, 3.994074935894207*^9, 3.994074974988394*^9, + 3.9940750197399607`*^9, {3.994075073548934*^9, 3.994075091190888*^9}}, + CellLabel-> + "Out[440]=",ExpressionUUID->"2a80916f-884a-4e8c-900e-62bb4ca81ee6"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel-> + "In[441]:=",ExpressionUUID->"ea7ebe23-0332-41f4-9bf9-9de81a2d1c58"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "2.605"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.9940737150021257`*^9, 3.994073716213628*^9}}, + CellLabel-> + "In[442]:=",ExpressionUUID->"d22f9856-b278-4da0-ac80-e4f2aad7e881"], + +Cell[BoxData["2.605`"], "Output", + CellChangeTimes->{ + 3.99407432701412*^9, 3.994074935907247*^9, 3.994074975000514*^9, + 3.994075019753892*^9, {3.994075073561831*^9, 3.994075091203961*^9}}, + CellLabel-> + "Out[442]=",ExpressionUUID->"f3a9b9a5-c57c-4aca-a58a-22760bdb3199"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel-> + "In[443]:=",ExpressionUUID->"aa7c73c4-7d6d-45c1-b034-aa7300d12b27"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.125"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, {3.994073720159833*^9, 3.9940737213308268`*^9}}, + CellLabel-> + "In[444]:=",ExpressionUUID->"87502099-7a58-4c87-b791-742712d905a8"], + +Cell[BoxData["1.125`"], "Output", + CellChangeTimes->{ + 3.9940743270271187`*^9, 3.994074935920094*^9, 3.994074975012611*^9, + 3.994075019766945*^9, {3.99407507357449*^9, 3.994075091216796*^9}}, + CellLabel-> + "Out[444]=",ExpressionUUID->"0213b930-a2b7-43d8-aee3-0f480fb55ce1"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel-> + "In[445]:=",ExpressionUUID->"3975a569-11c3-49b5-a9f5-12c45d938987"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.145"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, {3.9940737243709307`*^9, + 3.9940737264630413`*^9}}, + CellLabel-> + "In[446]:=",ExpressionUUID->"46ff4a35-e8b3-4712-8c95-f04c6b4f1b19"], + +Cell[BoxData["1.145`"], "Output", + CellChangeTimes->{ + 3.9940743270398684`*^9, 3.994074935932911*^9, 3.994074975024604*^9, + 3.994075019782*^9, {3.994075073587862*^9, 3.9940750912294607`*^9}}, + CellLabel-> + "Out[446]=",ExpressionUUID->"e94c18eb-a569-4463-a03a-4df750c8ee16"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel-> + "In[447]:=",ExpressionUUID->"d749f7f6-4bc9-4a37-b767-de22f7bfae93"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.565"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.9940737287627993`*^9, + 3.994073731586865*^9}}, + CellLabel-> + "In[448]:=",ExpressionUUID->"a6a1c89f-f1b6-4d8e-8892-18b23c974523"], + +Cell[BoxData["0.565`"], "Output", + CellChangeTimes->{ + 3.994074327052676*^9, 3.994074935945746*^9, 3.994074975036669*^9, + 3.994075019795862*^9, {3.994075073601301*^9, 3.9940750912417994`*^9}}, + CellLabel-> + "Out[448]=",ExpressionUUID->"ec577efd-2169-40b1-9d66-34a661b7d634"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel-> + "In[449]:=",ExpressionUUID->"6ef6c23b-efe1-4381-8dbd-7a685bb93414"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "1.5"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.994073736277706*^9, + 3.994073737300967*^9}}, + CellLabel-> + "In[450]:=",ExpressionUUID->"2db0b0f3-277c-414a-8b1e-cda1b8115745"], + +Cell[BoxData["1.5`"], "Output", + CellChangeTimes->{ + 3.994074327065536*^9, 3.9940749359585743`*^9, 3.994074975048807*^9, + 3.9940750198098516`*^9, {3.9940750736145077`*^9, 3.994075091254464*^9}}, + CellLabel-> + "Out[450]=",ExpressionUUID->"799d4243-721b-49e0-9ea5-504a37101c70"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel-> + "In[451]:=",ExpressionUUID->"a90c1064-83ca-4580-a782-45503b2a3e0a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "0.635"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, {3.994073740255535*^9, 3.994073742830049*^9}}, + CellLabel-> + "In[452]:=",ExpressionUUID->"b2424bd5-a184-4487-a247-9670211a1381"], + +Cell[BoxData["0.635`"], "Output", + CellChangeTimes->{ + 3.99407432707825*^9, 3.994074935971406*^9, 3.994074975061311*^9, + 3.994075019822795*^9, {3.994075073627393*^9, 3.994075091268227*^9}}, + CellLabel-> + "Out[452]=",ExpressionUUID->"9ea40502-7747-4bdb-b61f-8cbad2d3ceaa"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel-> + "In[453]:=",ExpressionUUID->"446a7c7d-45fe-4d75-9981-40be2c500f76"], + +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[454]:=",ExpressionUUID->"91f7b36e-cafc-45ac-82d9-9cc8f7b4f65a"], + +Cell[BoxData["0.12734722137174234`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.9940743271585913`*^9, 3.994074936065404*^9, + 3.9940749751004868`*^9, 3.9940750198601313`*^9, {3.9940750736645*^9, + 3.994075091306961*^9}}, + CellLabel-> + "Out[454]=",ExpressionUUID->"c5665871-9309-4d8e-a18f-86a7575e2a2a"] +}, 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[455]:=",ExpressionUUID->"9e881350-3c46-4116-b9a6-a723c92eb5c9"], + +Cell[BoxData["7.503764283698204`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9940743271979237`*^9, 3.994074936098249*^9, + 3.994074975128014*^9, 3.994075019886159*^9, {3.994075073691079*^9, + 3.994075091332656*^9}}, + CellLabel-> + "Out[455]=",ExpressionUUID->"85f78186-7a84-4db6-bfd8-600689b234d5"] +}, 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[456]:=",ExpressionUUID->"ea63455f-1636-45bc-af0e-8bfd0e77196d"], + +Cell[BoxData[ + RowBox[{"-", "14.220629552114458`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.9940743272387447`*^9, 3.9940749361294937`*^9, + 3.994074975156514*^9, 3.994075019911666*^9, {3.9940750737180433`*^9, + 3.994075091358534*^9}}, + CellLabel-> + "Out[456]=",ExpressionUUID->"6d976a6c-2c71-41e6-b7f8-fa9e8b9c6fe8"] +}, 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[457]:=",ExpressionUUID->"a5c096f4-a6a2-4f3a-b4dc-b7238271be18"], + +Cell[BoxData[ + RowBox[{"-", "18.05754390959481`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.994074327278555*^9, 3.9940749361661787`*^9, + 3.9940749751890287`*^9, 3.994075019948382*^9, {3.994075073748582*^9, + 3.99407509139049*^9}}, + CellLabel-> + "Out[457]=",ExpressionUUID->"1b6c8a71-712a-49ee-a2c8-b3f64ae83497"] +}, 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[458]:=",ExpressionUUID->"6a3ffacd-73ad-49ff-85c8-adad63d69aee"], + +Cell[BoxData[ + RowBox[{"-", "51.76635903245878`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.994074327318758*^9, 3.9940749362040663`*^9, + 3.9940749752210827`*^9, 3.994075019983523*^9, {3.9940750737782516`*^9, + 3.994075091423628*^9}}, + CellLabel-> + "Out[458]=",ExpressionUUID->"711a396b-cd50-49c2-bb3a-40d91b0bb040"] +}, 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[459]:=",ExpressionUUID->"fb9a1b94-b949-44c2-8fe3-8942caa84fe2"], + +Cell[BoxData[ + RowBox[{"-", "131.16526179683018`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.994074327362462*^9, 3.994074936248407*^9, + 3.99407497525825*^9, 3.994075020024899*^9, {3.994075073816177*^9, + 3.9940750914627743`*^9}}, + CellLabel-> + "Out[459]=",ExpressionUUID->"e767b85b-91d1-4341-8d41-a79236dc2721"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel-> + "In[460]:=",ExpressionUUID->"3350982b-73a4-40cd-8396-2ddf11ec098f"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.9940743273758507`*^9, 3.994074936262808*^9, + 3.994074975269576*^9, 3.99407502003885*^9, {3.994075073828107*^9, + 3.994075091476185*^9}}, + CellLabel-> + "Out[460]=",ExpressionUUID->"8d7ec022-2571-4e85-8e27-a6948cef4103"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel-> + "In[461]:=",ExpressionUUID->"7642c3e9-30be-455c-b967-c675f84df14c"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.994074327386962*^9, 3.9940749362749443`*^9, + 3.99407497527983*^9, 3.994075020050624*^9, {3.994075073838533*^9, + 3.994075091486505*^9}}, + CellLabel-> + "Out[461]=",ExpressionUUID->"4e3a5cd9-2b9d-48d7-8bc1-5d6df7953bc0"] +}, 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[462]:=",ExpressionUUID->"ce01ebdc-52ef-45e2-8b39-b931f30e5522"], + +Cell[BoxData["102.57012833062927`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.9940743273966637`*^9, 3.994074936286751*^9, + 3.994074975289721*^9, 3.994075020061038*^9, {3.9940750738489656`*^9, + 3.994075091497402*^9}}, + CellLabel-> + "Out[462]=",ExpressionUUID->"6efaafab-1ee0-45ad-9a36-2517866d4697"] +}, 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[463]:=",ExpressionUUID->"0e1ac804-4cda-4439-83db-a1177dffaf72"], + +Cell[BoxData[ + RowBox[{"-", "89.85372860437164`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.994074327406303*^9, 3.9940749362972116`*^9, + 3.994074975299696*^9, 3.994075020070904*^9, {3.994075073859618*^9, + 3.994075091508032*^9}}, + CellLabel-> + "Out[463]=",ExpressionUUID->"7a25a679-eff9-432d-8d58-d7de1c50e057"] +}, 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[464]:=",ExpressionUUID->"24896788-36d8-4a4e-9682-579df2322bb9"], + +Cell[BoxData["106.05157029710364`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9940743274159946`*^9, 3.994074936339744*^9, + 3.99407497530958*^9, 3.994075020080964*^9, {3.994075073870014*^9, + 3.994075091518471*^9}}, + CellLabel-> + "Out[464]=",ExpressionUUID->"e7feeb19-25af-4e81-8c4b-70239431e215"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel-> + "In[465]:=",ExpressionUUID->"1b5c9d0c-19c8-4c2b-9989-7dedd166bdcb"], + +Cell[BoxData["0.4215025991580821`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.9940743274252653`*^9, 3.994074936349539*^9, + 3.994074975319766*^9, 3.99407502009256*^9, {3.994075073880959*^9, + 3.99407509152868*^9}}, + CellLabel-> + "Out[465]=",ExpressionUUID->"0cbf36d9-74aa-46fd-a674-2b3fe840be7c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel-> + "In[466]:=",ExpressionUUID->"c3446fed-5381-4526-b84d-b5424ef3f6ef"], + +Cell[BoxData[ + RowBox[{"-", "0.08696983109232953`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.9940749363615837`*^9, 3.994074975323977*^9, + 3.994075020102562*^9, {3.994075073891796*^9, 3.994075091539506*^9}}, + CellLabel-> + "Out[466]=",ExpressionUUID->"db83aecb-9123-40bd-bbaa-e4f7cf62ddfc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel-> + "In[467]:=",ExpressionUUID->"526f1696-b258-400b-8a96-60fbae37852f"], + +Cell[BoxData[ + RowBox[{"-", "0.5569156814457635`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.994074936371666*^9, 3.994074975333539*^9, + 3.99407502011357*^9, {3.994075073902575*^9, 3.994075091549716*^9}}, + CellLabel-> + "Out[467]=",ExpressionUUID->"34fdcb2f-8e5b-4996-814b-db0b8cdec9b3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel-> + "In[468]:=",ExpressionUUID->"98b96cd6-5d4c-4e52-b363-b3dff8ee271e"], + +Cell[BoxData["0.7095150675393332`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.994074936381706*^9, 3.994074975343092*^9, + 3.994075020123022*^9, {3.994075073912849*^9, 3.99407509155998*^9}}, + CellLabel-> + "Out[468]=",ExpressionUUID->"86a7d301-7f0d-4076-bbf9-81ed2f2bb91f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel-> + "In[469]:=",ExpressionUUID->"194b3329-8bba-47df-bf16-20b5c2eeb717"], + +Cell[BoxData["2.2478963955971953`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.994074936391926*^9, 3.994074975352632*^9, + 3.99407502013336*^9, {3.994075073923398*^9, 3.994075091570552*^9}}, + CellLabel-> + "Out[469]=",ExpressionUUID->"b0cb48ea-77f9-4017-aaf8-d6521d884554"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel-> + "In[470]:=",ExpressionUUID->"6f9c1217-09e6-44aa-9c38-6c85a894cd3c"], + +Cell[BoxData["1.4243583722932822`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.994074936401989*^9, 3.994074975362446*^9, + 3.9940750201447487`*^9, {3.9940750739335833`*^9, 3.994075091580728*^9}}, + CellLabel-> + "Out[470]=",ExpressionUUID->"acee040a-3dc3-4aa6-a5b1-f868fbb1889d"] +}, 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[471]:=",ExpressionUUID->"46851f4d-166d-41a3-9017-4031733d9226"], + +Cell[BoxData[ + RowBox[{"-", "33.35096235519822`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.994074936412284*^9, 3.994074975373137*^9, + 3.994075020154063*^9, {3.994075073943824*^9, 3.99407509159135*^9}}, + CellLabel-> + "Out[471]=",ExpressionUUID->"c6969745-bdfa-4dfc-9e80-1731f8fa155e"] +}, 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[472]:=",ExpressionUUID->"ac442096-0fa2-4641-a8ed-927c3361bbfa"], + +Cell[BoxData[ + RowBox[{"-", "6.430095836913352`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.994074936422553*^9, 3.994074975386326*^9, + 3.9940750201636887`*^9, {3.994075073954281*^9, 3.9940750916019077`*^9}}, + CellLabel-> + "Out[472]=",ExpressionUUID->"ef0cf1ff-4b5a-49b2-a8c7-67c67860b919"] +}, 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[473]:=",ExpressionUUID->"70ef65cb-3261-4e79-9029-7f3d0227f633"], + +Cell[BoxData["69.21916597543105`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.994074936433895*^9, 3.994074975398871*^9, + 3.994075020173421*^9, {3.994075073964881*^9, 3.994075091612443*^9}}, + CellLabel-> + "Out[473]=",ExpressionUUID->"bddd9dad-d485-4198-a1a8-bf5bfd233e9c"] +}, 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[474]:=",ExpressionUUID->"cb7cabb1-db00-484c-830a-2f5bbbc309a2"], + +Cell[BoxData[ + RowBox[{"-", "89.85372860437164`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.9940749364442453`*^9, 3.994074975409512*^9, + 3.9940750201838827`*^9, {3.994075073975268*^9, 3.994075091623101*^9}}, + CellLabel-> + "Out[474]=",ExpressionUUID->"4d4e46fb-e3d6-44e4-808a-e048716bae12"] +}, 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[475]:=",ExpressionUUID->"60088de3-8c8f-45d8-ac7f-fe41010b2e24"], + +Cell[BoxData["99.62147446019029`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.9940749364549513`*^9, 3.9940749754197397`*^9, + 3.99407502019348*^9, {3.994075073985984*^9, 3.994075091633762*^9}}, + CellLabel-> + "Out[475]=",ExpressionUUID->"c6bbc6d1-64be-4f79-81a8-b6651d883b62"] +}, 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[476]:=",ExpressionUUID->"fff42478-bb85-4588-a8a8-883adf3fa8f0"], + +Cell[BoxData["40.3202486570226`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.994074936466222*^9, 3.994074975429769*^9, + 3.9940750202031527`*^9, {3.99407507399641*^9, 3.994075091644145*^9}}, + CellLabel-> + "Out[476]=",ExpressionUUID->"ab7efd9e-d235-44db-9309-ad5471bb6168"] +}, 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[477]:=",ExpressionUUID->"f40a19a2-1985-4e93-bc21-69807cb4221e"], + +Cell[BoxData["624.5259763904654`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.994074936476499*^9, 3.994074975439941*^9, + 3.994075020213862*^9, {3.994075074006929*^9, 3.994075091654208*^9}}, + CellLabel-> + "Out[477]=",ExpressionUUID->"6c81ad2c-cdd1-4e08-8c1d-75735da4a19e"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"f1", "=", "0.4126334817"}]], "Input", CellFrame->{{0, 0}, {0, 0}}, - CellChangeTimes->{3.991849227197853*^9}, + CellChangeTimes->{3.991849227197853*^9, 3.99423544488796*^9}, Background->RGBColor[ 0.87, 0.94, 1],ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", + RowBox[{"f2", "=", "0.1129347808"}]], "Input", CellFrame->{{0, 0}, {0, 0}}, - CellChangeTimes->{3.9918492290557346`*^9}, + CellChangeTimes->{3.9918492290557346`*^9, 3.994235448955714*^9}, Background->RGBColor[ 0.87, 0.94, 1],ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], @@ -2895,9 +7794,73 @@ qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", - RowBox[{"{", "}"}], "]"}]}]], "Input", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.005449"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.016155"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.026309"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.035566"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.043662"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.050365"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.05556"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.059166"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.061228"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.061803"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.061061"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.059155"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.056323"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.05275"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.048682"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.044291"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.039784"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.035286"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.030946"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.026832"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.023034"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.01957"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.016479"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.013745"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.011373"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.009328"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.007596"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.006134"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.004922"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.003918"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.003101"}], "}"}]}], "}"}], "]"}]}]], "Input", CellFrame->{{0, 0}, {0, 0}}, - CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}}, + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.994235588626381*^9}, Background->RGBColor[ 0.87, 0.94, 1],ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], @@ -8979,12 +13942,15 @@ Cell[BoxData["0.05576142449710889`"], "Output", CellChangeTimes->{3.9913392304624157`*^9}, CellLabel-> "Out[312]=",ExpressionUUID->"14434839-d5cf-b844-b849-b3b3102df434"] -}, Open ]] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input",ExpressionUUID->"f36cb0fd-7ec0-4ab9-9521-1ef13679df34"] }, -WindowSize->{1440, 792}, -WindowMargins->{{0, Automatic}, {0, Automatic}}, +WindowSize->{714, 876}, +WindowMargins->{{-3, Automatic}, {3, Automatic}}, CellContext->Notebook, -FrontEndVersion->"14.1 for Linux x86 (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" ] @@ -8999,356 +13965,613 @@ CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ -Cell[554, 20, 213, 5, 45, "Input",ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], -Cell[770, 27, 215, 5, 45, "Input",ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], Cell[CellGroupData[{ -Cell[1010, 36, 1301, 43, 48, "Input",ExpressionUUID->"5e48fe0c-b3e8-2b40-82cb-716b23b2f326"], -Cell[2314, 81, 178, 3, 33, "Output",ExpressionUUID->"1db85c02-7ca3-154e-854d-2c36f89709c4"] +Cell[576, 22, 453, 8, 36, "Input",ExpressionUUID->"8fe1c173-48e4-40da-853e-c7660d0953ff"], +Cell[1032, 32, 302, 6, 41, "Output",ExpressionUUID->"2e4fa5be-ebd9-47a6-b918-2d1037bfa0d3"] }, Open ]], Cell[CellGroupData[{ -Cell[2529, 89, 910, 31, 58, "Input",ExpressionUUID->"e4db2648-4e1a-2c46-83ab-fcd932c3b663"], -Cell[3442, 122, 175, 3, 33, "Output",ExpressionUUID->"78ed190c-23cd-4d45-867a-2b08174b715f"] +Cell[1371, 43, 255, 5, 36, "Input",ExpressionUUID->"2da1658c-7e33-476a-91d3-3a12ac5d4054"], +Cell[1629, 50, 305, 6, 41, "Output",ExpressionUUID->"658291d7-f7a1-44c7-acc0-cc6804b86448"] }, Open ]], Cell[CellGroupData[{ -Cell[3654, 130, 885, 30, 58, "Input",ExpressionUUID->"e4649c3d-e19e-ca42-95a0-23b66397f1fd"], -Cell[4542, 162, 177, 3, 33, "Output",ExpressionUUID->"82ec2512-4fcb-ba44-b472-bb3a66bb622e"] +Cell[1971, 61, 226, 5, 36, "Input",ExpressionUUID->"c4ab2602-4821-4853-82aa-f55a72e0aaab"], +Cell[2200, 68, 300, 6, 41, "Output",ExpressionUUID->"388a5dec-22e1-403d-9df4-6c9a6c389a83"] }, Open ]], Cell[CellGroupData[{ -Cell[4756, 170, 558, 19, 51, "Input",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], -Cell[5317, 191, 173, 3, 33, "Output",ExpressionUUID->"9d53fa4a-be54-7b42-83bd-0a5560193c0f"] +Cell[2537, 79, 180, 4, 36, "Input",ExpressionUUID->"f789b39f-0ad8-4646-95c3-1ec11ff85d9d"], +Cell[2720, 85, 303, 6, 41, "Output",ExpressionUUID->"5a188d2d-00ef-4a8c-832a-844cf226ad94"] }, Open ]], Cell[CellGroupData[{ -Cell[5527, 199, 623, 21, 51, "Input",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], -Cell[6153, 222, 170, 3, 33, "Output",ExpressionUUID->"4107fa63-a138-df48-a95c-ec944a983800"] +Cell[3060, 96, 262, 8, 54, "Input",ExpressionUUID->"55893559-3f60-4006-a662-5b99e964c5ad"], +Cell[3325, 106, 317, 6, 41, "Output",ExpressionUUID->"b8decdc7-2317-4b22-8ed5-af092522691c"] }, Open ]], Cell[CellGroupData[{ -Cell[6360, 230, 170, 5, 55, "Input",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], -Cell[6533, 237, 173, 3, 33, "Output",ExpressionUUID->"f894fb1d-1550-5146-a259-dfa871655c2a"] +Cell[3679, 117, 136, 3, 36, "Input",ExpressionUUID->"8dc4e2d5-d91c-4ed4-b5ed-77e7122fe469"], +Cell[3818, 122, 309, 6, 41, "Output",ExpressionUUID->"2a77efe3-a3c3-49f5-897f-bdb025f1b711"] }, Open ]], Cell[CellGroupData[{ -Cell[6743, 245, 170, 5, 54, "Input",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], -Cell[6916, 252, 170, 3, 33, "Output",ExpressionUUID->"8d5b13a4-8c75-0f48-ab21-9720bb8c0cbc"] +Cell[4164, 133, 281, 7, 36, "Input",ExpressionUUID->"e4a8643f-da8e-487a-a9da-facf48dd1dbe"], +Cell[4448, 142, 321, 6, 41, "Output",ExpressionUUID->"e1fe17f1-16a6-485c-b548-c95c3bb75d7d"] }, Open ]], Cell[CellGroupData[{ -Cell[7123, 260, 181, 5, 43, "Input",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], -Cell[7307, 267, 171, 3, 33, "Output",ExpressionUUID->"4d4b493f-9f2d-1e41-979f-fb4d58d0e93a"] +Cell[4806, 153, 262, 8, 36, "Input",ExpressionUUID->"9b20a0d1-981f-47cb-9932-f43daf3b20ff"], +Cell[5071, 163, 320, 6, 41, "Output",ExpressionUUID->"962ca9aa-e7fa-4fc2-ac4d-548281cd254e"] }, Open ]], Cell[CellGroupData[{ -Cell[7515, 275, 181, 5, 43, "Input",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], -Cell[7699, 282, 173, 3, 33, "Output",ExpressionUUID->"e40db20b-c65e-4a45-ba96-abcb59b0d0ac"] +Cell[5428, 174, 208, 4, 36, "Input",ExpressionUUID->"20aeb256-62d8-422c-9e4c-2e8eb192f455"], +Cell[5639, 180, 288, 5, 41, "Output",ExpressionUUID->"5864dfbb-c4d4-492d-a6a6-842db0ae821f"] }, Open ]], Cell[CellGroupData[{ -Cell[7909, 290, 6055, 185, 195, "Input",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], -Cell[13967, 477, 175, 3, 33, "Output",ExpressionUUID->"cdf81fea-e12a-2b44-81a8-222b4bbf8a86"] +Cell[5964, 190, 210, 4, 36, "Input",ExpressionUUID->"de81fbf9-8a17-44ca-a205-0a2f9dffac83"], +Cell[6177, 196, 288, 5, 41, "Output",ExpressionUUID->"dc56965f-2437-4b21-b0c3-783cc139f50c"] }, Open ]], Cell[CellGroupData[{ -Cell[14179, 485, 368, 9, 41, "Input",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], -Cell[14550, 496, 170, 3, 33, "Output",ExpressionUUID->"181dc1c8-632b-4b43-91c4-d3626d65bfc7"] +Cell[6502, 206, 133, 3, 40, "Input",ExpressionUUID->"3fa258e5-621f-4343-b671-d18a2cdd0ab0"], +Cell[6638, 211, 300, 6, 45, "Output",ExpressionUUID->"7a617167-5f7d-4152-97c6-3f012b851962"] }, Open ]], Cell[CellGroupData[{ -Cell[14757, 504, 6122, 187, 195, "Input",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], -Cell[20882, 693, 175, 3, 33, "Output",ExpressionUUID->"c7d972b4-764c-954a-8260-240d49cfcff6"] +Cell[6975, 222, 133, 3, 40, "Input",ExpressionUUID->"b88bafaf-5c5f-49ae-afa0-a452969fca21"], +Cell[7111, 227, 301, 6, 45, "Output",ExpressionUUID->"e30e9937-5d86-46db-8e0e-cba3b49e6d5c"] }, Open ]], Cell[CellGroupData[{ -Cell[21094, 701, 368, 9, 41, "Input",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], -Cell[21465, 712, 172, 3, 33, "Output",ExpressionUUID->"c285a758-c3ad-974b-93c3-4cb0d4bdd2ae"] +Cell[7449, 238, 561, 20, 109, "Input",ExpressionUUID->"a65de40a-1982-4c6c-a9dd-ebeb9b25be9f"], +Cell[8013, 260, 320, 6, 45, "Output",ExpressionUUID->"831e86d8-cb7d-4d59-b5d1-2804ba1a4f94"] }, Open ]], Cell[CellGroupData[{ -Cell[21674, 720, 2663, 88, 115, "Input",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], -Cell[24340, 810, 173, 3, 33, "Output",ExpressionUUID->"5dc957f4-8f84-c54c-80a3-c76f756c5df4"] +Cell[8370, 271, 561, 20, 109, "Input",ExpressionUUID->"834c7559-63d6-4f38-8f88-0b74d1f00b6b"], +Cell[8934, 293, 317, 6, 45, "Output",ExpressionUUID->"4525e55f-b065-42fb-906a-946f4dba3cb7"] }, Open ]], Cell[CellGroupData[{ -Cell[24550, 818, 2603, 85, 115, "Input",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], -Cell[27156, 905, 172, 3, 33, "Output",ExpressionUUID->"b4ee01d5-3415-494b-b28a-4587c8d8bb90"] +Cell[9288, 304, 1592, 51, 188, "Input",ExpressionUUID->"88380677-4b53-464b-a364-c25e5bf28cfa"], +Cell[10883, 357, 317, 6, 45, "Output",ExpressionUUID->"7569faee-79b8-43a8-89dd-3d0efc170bd0"] }, Open ]], Cell[CellGroupData[{ -Cell[27365, 913, 3712, 118, 172, "Input",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], -Cell[31080, 1033, 174, 3, 33, "Output",ExpressionUUID->"20c44e64-7085-8e4d-a9d6-f80b5532826e"] -}, Open ]], -Cell[31269, 1039, 138, 3, 29, "Input",ExpressionUUID->"ba4a3eff-9e3b-5e47-a896-3a959bbbf44d"], -Cell[CellGroupData[{ -Cell[31432, 1046, 2052, 59, 92, "Input",ExpressionUUID->"738a48f3-b38c-f441-aec4-53babaa73a14"], -Cell[33487, 1107, 524, 11, 38, "Message",ExpressionUUID->"bd0a7da1-672e-6b4e-afbd-4af379292e8d"], -Cell[34014, 1120, 526, 11, 38, "Message",ExpressionUUID->"9a8837e4-2afa-d145-83db-a88ef0e502bc"], -Cell[34543, 1133, 530, 11, 38, "Message",ExpressionUUID->"0aa4ed5d-b925-834d-b53a-95c75c4ff982"], -Cell[35076, 1146, 455, 10, 26, "Message",ExpressionUUID->"2742a735-9c26-7640-8a81-3e30eaffa353"], -Cell[35534, 1158, 172, 3, 33, "Output",ExpressionUUID->"d91a6bca-04d7-b84b-93cf-0695498dc4de"] +Cell[11237, 368, 1426, 47, 155, "Input",ExpressionUUID->"1c6bff4f-3585-4780-9239-2d0970069dfe"], +Cell[12666, 417, 334, 7, 45, "Output",ExpressionUUID->"6cd7a847-5d88-4450-a816-1c98309a1a1a"] }, Open ]], Cell[CellGroupData[{ -Cell[35743, 1166, 2054, 59, 92, "Input",ExpressionUUID->"86c33485-ed26-8f49-b3d0-7d040d3b48f0"], -Cell[37800, 1227, 524, 11, 38, "Message",ExpressionUUID->"2c553d54-16ec-9646-b6d7-75da3c367575"], -Cell[38327, 1240, 526, 11, 38, "Message",ExpressionUUID->"1c597fdf-5631-a84c-9feb-152df3629d86"], -Cell[38856, 1253, 528, 11, 38, "Message",ExpressionUUID->"48439b56-7b7d-fa4d-a4e2-5db2bbda0c77"], -Cell[39387, 1266, 456, 10, 26, "Message",ExpressionUUID->"66ce390f-34a9-df4d-9875-a339943ada86"], -Cell[39846, 1278, 170, 3, 33, "Output",ExpressionUUID->"2e46fa54-fabe-5040-8f8c-6829b7c76136"] +Cell[13037, 429, 1426, 47, 155, "Input",ExpressionUUID->"4dc74e11-a432-4902-b777-1c51f8e95def"], +Cell[14466, 478, 341, 7, 45, "Output",ExpressionUUID->"72ed276c-667b-4494-86aa-9b2b6a273373"] }, Open ]], Cell[CellGroupData[{ -Cell[40053, 1286, 1938, 53, 67, "Input",ExpressionUUID->"f373fe4f-940c-0842-9236-63ec36d318ad"], -Cell[41994, 1341, 19994, 375, 229, "Output",ExpressionUUID->"fdd0f260-414f-a94a-8f26-cd86e676700c"] +Cell[14844, 490, 1496, 49, 111, "Input",ExpressionUUID->"a3fbbc71-ed31-48aa-81aa-83cb9ac7c2e0"], +Cell[16343, 541, 318, 6, 45, "Output",ExpressionUUID->"57935ae7-c6ce-4573-aa40-9f33f2113804"] }, Open ]], Cell[CellGroupData[{ -Cell[62025, 1721, 2092, 60, 92, "Input",ExpressionUUID->"24fa5db0-1063-354a-bd60-c117a27ff3e1"], -Cell[64120, 1783, 490, 11, 38, "Message",ExpressionUUID->"546a9ea9-5939-f84a-87c6-58844f58f330"], -Cell[64613, 1796, 493, 11, 38, "Message",ExpressionUUID->"b36bffd7-1c84-5c45-a847-b2c31968f579"], -Cell[65109, 1809, 508, 11, 26, "Message",ExpressionUUID->"c864bef7-fc73-d94b-8cde-14570cba8095"], -Cell[65620, 1822, 456, 10, 26, "Message",ExpressionUUID->"a2e62375-acd2-6740-bfd7-026877c5bd7b"], -Cell[66079, 1834, 61603, 1057, 232, "Output",ExpressionUUID->"d4eecdc9-263c-5b43-bb29-cd0ac1286793"] -}, Open ]], -Cell[127697, 2894, 298, 7, 45, "Input",ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], -Cell[127998, 2903, 209, 5, 29, "Input",ExpressionUUID->"6d3700e1-f504-214a-a332-f16397f0b922"], -Cell[CellGroupData[{ -Cell[128232, 2912, 217, 7, 47, "Input",ExpressionUUID->"9051a5e3-bb9f-d941-bcca-598d0b6835be"], -Cell[128452, 2921, 169, 3, 33, "Output",ExpressionUUID->"07374b0a-4615-bf46-ab49-be8623cec410"] +Cell[16698, 552, 135, 3, 40, "Input",ExpressionUUID->"2cb5df68-72f8-4aa3-bfed-e59b541fd94a"], +Cell[16836, 557, 302, 6, 45, "Output",ExpressionUUID->"613e1fb5-c5fd-4266-9976-dfacc4c7e258"] }, Open ]], Cell[CellGroupData[{ -Cell[128658, 2929, 1816, 53, 92, "Input",ExpressionUUID->"65a995ff-ff3d-634e-9bad-4a8a16073236"], -Cell[130477, 2984, 502, 11, 38, "Message",ExpressionUUID->"c1f83af1-416a-6240-b3fd-c1bfcc643459"], -Cell[130982, 2997, 506, 11, 38, "Message",ExpressionUUID->"5cfd3c4b-6190-2c4d-8479-b4ccd7090f94"], -Cell[131491, 3010, 509, 11, 38, "Message",ExpressionUUID->"288fc6c7-a3fe-9b48-9c0d-bba2713f7084"], -Cell[132003, 3023, 456, 10, 26, "Message",ExpressionUUID->"09478fd5-b212-2347-91e7-b9097bd6d61d"], -Cell[132462, 3035, 28560, 514, 232, "Output",ExpressionUUID->"f7784347-2042-c042-8970-b060f9535d9e"] +Cell[17175, 568, 137, 3, 40, "Input",ExpressionUUID->"c39a481b-8f5b-46f1-bf4f-b7b84e7c763c"], +Cell[17315, 573, 303, 6, 45, "Output",ExpressionUUID->"47ff5e5d-50b3-40b1-a3ca-407cb3563f45"] }, Open ]], Cell[CellGroupData[{ -Cell[161059, 3554, 1616, 48, 67, "Input",ExpressionUUID->"86381d88-1537-a242-9cff-0b432b61d63d"], -Cell[162678, 3604, 576, 12, 38, "Message",ExpressionUUID->"0a4bed5c-621d-a546-88e9-ce7d779c106a"], -Cell[163257, 3618, 582, 12, 38, "Message",ExpressionUUID->"80e3943d-459b-8b41-9869-50a6cf829ef8"], -Cell[163842, 3632, 584, 12, 38, "Message",ExpressionUUID->"36529169-7f05-ee43-8080-ce8fdd404b8d"], -Cell[164429, 3646, 458, 10, 26, "Message",ExpressionUUID->"a6c5f0ff-3356-4c42-b883-ce45e5cc4f41"], -Cell[164890, 3658, 170, 3, 33, "Output",ExpressionUUID->"546f133a-4a8e-8d44-937d-5fc3ea2401d8"] +Cell[17655, 584, 138, 3, 40, "Input",ExpressionUUID->"52a6af0b-2aaf-4da3-8ad0-3cf9cac0c9c7"], +Cell[17796, 589, 304, 6, 45, "Output",ExpressionUUID->"d29d4705-0e39-4e58-9657-394a033522f2"] }, Open ]], Cell[CellGroupData[{ -Cell[165097, 3666, 2247, 64, 62, "Input",ExpressionUUID->"6f0ad284-4db3-da47-b8dc-45830eedfe9c"], -Cell[167347, 3732, 522, 11, 38, "Message",ExpressionUUID->"2e7d173d-070f-de49-a3c2-9964fb888ede"], -Cell[167872, 3745, 526, 11, 38, "Message",ExpressionUUID->"04b23985-5685-d344-a2ed-9886796baf32"], -Cell[168401, 3758, 528, 11, 38, "Message",ExpressionUUID->"ccdd27f2-bd64-f442-a708-cfb1052c7f86"], -Cell[168932, 3771, 458, 10, 26, "Message",ExpressionUUID->"384ce3fd-4914-6b49-b10c-84d885ed65d6"], -Cell[169393, 3783, 175, 3, 33, "Output",ExpressionUUID->"8865a4e5-7fd3-3c49-a115-94c8c5479389"] +Cell[18137, 600, 223, 5, 40, "Input",ExpressionUUID->"274614a8-b2e4-488a-9a51-b3c1320f8cf2"], +Cell[18363, 607, 321, 7, 45, "Output",ExpressionUUID->"5899c6a4-4bbb-474c-adbd-42c47f7a97b3"] }, Open ]], Cell[CellGroupData[{ -Cell[169605, 3791, 2221, 64, 62, "Input",ExpressionUUID->"b2dda819-6f34-5c49-bc62-303d815946e5"], -Cell[171829, 3857, 522, 11, 38, "Message",ExpressionUUID->"958049e8-43e1-cc46-81fb-5b3fe1a5d9ee"], -Cell[172354, 3870, 524, 11, 38, "Message",ExpressionUUID->"6ed73f20-f975-a34c-a5a3-af58e9ecd7ed"], -Cell[172881, 3883, 528, 11, 38, "Message",ExpressionUUID->"4ce11323-2f48-da4f-84f8-593751381024"], -Cell[173412, 3896, 458, 10, 26, "Message",ExpressionUUID->"330905cd-5b42-604b-aaf8-fbac43108165"], -Cell[173873, 3908, 170, 3, 33, "Output",ExpressionUUID->"020ade62-ec43-7549-8079-7ac012e004c4"] +Cell[18721, 619, 138, 3, 40, "Input",ExpressionUUID->"4c3ccab8-f16a-473a-9477-8f4038d7fcf0"], +Cell[18862, 624, 303, 6, 45, "Output",ExpressionUUID->"2d2025be-d99e-4781-94ac-86c0aacd6b4d"] }, Open ]], Cell[CellGroupData[{ -Cell[174080, 3916, 2221, 64, 62, "Input",ExpressionUUID->"76a9e77d-1f4c-bb4a-bb13-1a175f609f7d"], -Cell[176304, 3982, 524, 11, 38, "Message",ExpressionUUID->"9a8eff2d-0d97-2e45-a2f3-ce0634115f7d"], -Cell[176831, 3995, 526, 11, 38, "Message",ExpressionUUID->"7dd7e17e-c74e-7145-b6ae-77a0f02c67f1"], -Cell[177360, 4008, 530, 11, 38, "Message",ExpressionUUID->"311ddb21-a730-0b41-b633-2d3bac87be85"], -Cell[177893, 4021, 458, 10, 26, "Message",ExpressionUUID->"ecdc16e1-316d-b342-a60b-0f3075607709"], -Cell[178354, 4033, 171, 3, 33, "Output",ExpressionUUID->"a7fc6f95-4067-504b-8754-5086d2659934"] +Cell[19202, 635, 326, 6, 40, "Input",ExpressionUUID->"b139e6f3-21d1-4cfc-86bb-63f330a03334"], +Cell[19531, 643, 303, 6, 45, "Output",ExpressionUUID->"76702380-b2f8-44db-8133-f9eb3e9f6570"] }, Open ]], Cell[CellGroupData[{ -Cell[178562, 4041, 215, 6, 46, "Input",ExpressionUUID->"69dd09d9-152e-3e4d-9517-4de4791db2f4"], -Cell[178780, 4049, 175, 3, 33, "Output",ExpressionUUID->"96bb6c6a-f128-024e-85ce-f8a6083a68c6"] -}, Open ]], -Cell[178970, 4055, 245, 5, 29, "Input",ExpressionUUID->"6ecc7e8c-a7c5-354e-b168-749729cd7104"], -Cell[CellGroupData[{ -Cell[179240, 4064, 623, 20, 51, "Input",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], -Cell[179866, 4086, 172, 3, 33, "Output",ExpressionUUID->"fecac54e-ac70-c448-b60d-60e5d8aa9072"] +Cell[19871, 654, 302, 6, 40, "Input",ExpressionUUID->"e1207387-24ac-4dea-843b-d1089efa7762"], +Cell[20176, 662, 302, 6, 45, "Output",ExpressionUUID->"19f73123-c298-4350-8ed8-8c2fec5bbb1c"] }, Open ]], Cell[CellGroupData[{ -Cell[180075, 4094, 170, 5, 55, "Input",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], -Cell[180248, 4101, 172, 3, 33, "Output",ExpressionUUID->"31e41e93-aaef-1b4f-a5e6-3cad86684dfc"] +Cell[20515, 673, 223, 5, 40, "Input",ExpressionUUID->"d35bc7f8-d637-4879-81b3-93555238ca00"], +Cell[20741, 680, 303, 6, 45, "Output",ExpressionUUID->"77e86005-a4b5-4b64-b60a-17a63c8d5c96"] }, Open ]], Cell[CellGroupData[{ -Cell[180457, 4109, 181, 5, 43, "Input",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], -Cell[180641, 4116, 172, 3, 33, "Output",ExpressionUUID->"d20f2acf-afe0-0844-b0cd-0cdce2394573"] +Cell[21081, 691, 354, 11, 59, "Input",ExpressionUUID->"873e03bc-05ef-4eee-b240-9645488938d1"], +Cell[21438, 704, 320, 6, 45, "Output",ExpressionUUID->"d5233a41-8a26-4392-8654-ad00aa242b61"] }, Open ]], Cell[CellGroupData[{ -Cell[180850, 4124, 6055, 185, 195, "Input",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], -Cell[186908, 4311, 174, 3, 33, "Output",ExpressionUUID->"ec544098-6efd-4845-b84f-33e39ead67c9"] +Cell[21795, 715, 354, 11, 59, "Input",ExpressionUUID->"005f52ce-9a2a-4bce-9747-69a2e1f94c09"], +Cell[22152, 728, 341, 7, 45, "Output",ExpressionUUID->"6abec2a2-b612-4b94-bc11-e1939f456334"] }, Open ]], Cell[CellGroupData[{ -Cell[187119, 4319, 368, 9, 41, "Input",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], -Cell[187490, 4330, 173, 3, 33, "Output",ExpressionUUID->"85f4fe6d-1167-7a40-b761-0a55e5251875"] +Cell[22530, 740, 998, 27, 60, "Input",ExpressionUUID->"a0840464-3e6c-4c47-a4dc-923fe4972af5"], +Cell[23531, 769, 321, 6, 45, "Output",ExpressionUUID->"e5a556e2-6106-4fd0-a44d-e56291c234f0"] }, Open ]], Cell[CellGroupData[{ -Cell[187700, 4338, 6122, 187, 195, "Input",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], -Cell[193825, 4527, 175, 3, 33, "Output",ExpressionUUID->"53db8250-199b-594a-8ebd-fc9cc43217e3"] +Cell[23889, 780, 203, 4, 40, "Input",ExpressionUUID->"b6441bd4-7a69-43ea-ba92-f5dcf5867d52"], +Cell[24095, 786, 301, 6, 45, "Output",ExpressionUUID->"4ec5757d-8ff3-425c-9386-0f27589df0fd"] }, Open ]], Cell[CellGroupData[{ -Cell[194037, 4535, 368, 9, 41, "Input",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], -Cell[194408, 4546, 170, 3, 33, "Output",ExpressionUUID->"0013bb3e-54d0-e343-9869-cf63da2eecbd"] +Cell[24433, 797, 333, 6, 40, "Input",ExpressionUUID->"ec59f7e4-521b-4033-9663-877560d36cf4"], +Cell[24769, 805, 276, 5, 45, "Output",ExpressionUUID->"a8767b48-8606-4d48-b47c-275a280f9721"] +}, Open ]], +Cell[25060, 813, 177, 3, 40, "Input",ExpressionUUID->"be9b1537-8539-405a-9142-2855b44c2bd8"], +Cell[CellGroupData[{ +Cell[25262, 820, 331, 6, 40, "Input",ExpressionUUID->"ab141ba7-c516-4594-afd9-d4e4026a803a"], +Cell[25596, 828, 279, 5, 45, "Output",ExpressionUUID->"2a80916f-884a-4e8c-900e-62bb4ca81ee6"] +}, Open ]], +Cell[25890, 836, 177, 3, 40, "Input",ExpressionUUID->"ea7ebe23-0332-41f4-9bf9-9de81a2d1c58"], +Cell[CellGroupData[{ +Cell[26092, 843, 334, 6, 40, "Input",ExpressionUUID->"d22f9856-b278-4da0-ac80-e4f2aad7e881"], +Cell[26429, 851, 276, 5, 45, "Output",ExpressionUUID->"f3a9b9a5-c57c-4aca-a58a-22760bdb3199"] +}, Open ]], +Cell[26720, 859, 177, 3, 40, "Input",ExpressionUUID->"aa7c73c4-7d6d-45c1-b034-aa7300d12b27"], +Cell[CellGroupData[{ +Cell[26922, 866, 358, 6, 40, "Input",ExpressionUUID->"87502099-7a58-4c87-b791-742712d905a8"], +Cell[27283, 874, 278, 5, 45, "Output",ExpressionUUID->"0213b930-a2b7-43d8-aee3-0f480fb55ce1"] +}, Open ]], +Cell[27576, 882, 175, 3, 40, "Input",ExpressionUUID->"3975a569-11c3-49b5-a9f5-12c45d938987"], +Cell[CellGroupData[{ +Cell[27776, 889, 307, 6, 40, "Input",ExpressionUUID->"46ff4a35-e8b3-4712-8c95-f04c6b4f1b19"], +Cell[28086, 897, 278, 5, 45, "Output",ExpressionUUID->"e94c18eb-a569-4463-a03a-4df750c8ee16"] +}, Open ]], +Cell[28379, 905, 175, 3, 40, "Input",ExpressionUUID->"d749f7f6-4bc9-4a37-b767-de22f7bfae93"], +Cell[CellGroupData[{ +Cell[28579, 912, 309, 6, 40, "Input",ExpressionUUID->"a6a1c89f-f1b6-4d8e-8892-18b23c974523"], +Cell[28891, 920, 279, 5, 45, "Output",ExpressionUUID->"ec577efd-2169-40b1-9d66-34a661b7d634"] +}, Open ]], +Cell[29185, 928, 177, 3, 40, "Input",ExpressionUUID->"6ef6c23b-efe1-4381-8dbd-7a685bb93414"], +Cell[CellGroupData[{ +Cell[29387, 935, 308, 6, 40, "Input",ExpressionUUID->"2db0b0f3-277c-414a-8b1e-cda1b8115745"], +Cell[29698, 943, 281, 5, 45, "Output",ExpressionUUID->"799d4243-721b-49e0-9ea5-504a37101c70"] +}, Open ]], +Cell[29994, 951, 176, 3, 40, "Input",ExpressionUUID->"a90c1064-83ca-4580-a782-45503b2a3e0a"], +Cell[CellGroupData[{ +Cell[30195, 958, 279, 5, 40, "Input",ExpressionUUID->"b2424bd5-a184-4487-a247-9670211a1381"], +Cell[30477, 965, 276, 5, 45, "Output",ExpressionUUID->"9ea40502-7747-4bdb-b61f-8cbad2d3ceaa"] +}, Open ]], +Cell[30768, 973, 179, 3, 40, "Input",ExpressionUUID->"446a7c7d-45fe-4d75-9981-40be2c500f76"], +Cell[CellGroupData[{ +Cell[30972, 980, 19813, 486, 1845, "Input",ExpressionUUID->"91f7b36e-cafc-45ac-82d9-9cc8f7b4f65a"], +Cell[50788, 1468, 321, 6, 45, "Output",ExpressionUUID->"c5665871-9309-4d8e-a18f-86a7575e2a2a"] }, Open ]], Cell[CellGroupData[{ -Cell[194615, 4554, 2663, 88, 115, "Input",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], -Cell[197281, 4644, 173, 3, 33, "Output",ExpressionUUID->"96d8705a-f744-d447-bad0-55fe1d703f38"] +Cell[51146, 1479, 19752, 490, 1859, "Input",ExpressionUUID->"9e881350-3c46-4116-b9a6-a723c92eb5c9"], +Cell[70901, 1971, 317, 6, 45, "Output",ExpressionUUID->"85f78186-7a84-4db6-bfd8-600689b234d5"] }, Open ]], Cell[CellGroupData[{ -Cell[197491, 4652, 2603, 85, 115, "Input",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], -Cell[200097, 4739, 172, 3, 33, "Output",ExpressionUUID->"bad41b21-8b15-a74b-a641-622c6584a958"] +Cell[71255, 1982, 19752, 484, 1858, "Input",ExpressionUUID->"ea63455f-1636-45bc-af0e-8bfd0e77196d"], +Cell[91010, 2468, 339, 7, 45, "Output",ExpressionUUID->"6d976a6c-2c71-41e6-b7f8-fa9e8b9c6fe8"] }, Open ]], Cell[CellGroupData[{ -Cell[200306, 4747, 3712, 118, 172, "Input",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], -Cell[204021, 4867, 174, 3, 33, "Output",ExpressionUUID->"a42f993d-5633-3546-ae09-6931972f9312"] +Cell[91386, 2480, 22538, 554, 2037, "Input",ExpressionUUID->"a5c096f4-a6a2-4f3a-b4dc-b7238271be18"], +Cell[113927, 3036, 335, 7, 45, "Output",ExpressionUUID->"1b6c8a71-712a-49ee-a2c8-b3f64ae83497"] }, Open ]], Cell[CellGroupData[{ -Cell[204232, 4875, 2052, 59, 92, "Input",ExpressionUUID->"d6aa822f-4140-174a-8e29-c889dba5c0d8"], -Cell[206287, 4936, 574, 12, 38, "Message",ExpressionUUID->"91f9ae14-8766-3848-9c79-ec46ad6af7ea"], -Cell[206864, 4950, 580, 12, 38, "Message",ExpressionUUID->"2440fadc-b12b-424f-a600-97a0a8c9f031"], -Cell[207447, 4964, 582, 12, 38, "Message",ExpressionUUID->"d4d1d26f-ac2b-a949-95b4-8d60af02cc4b"], -Cell[208032, 4978, 456, 10, 26, "Message",ExpressionUUID->"0cb59396-7a19-6b43-af2b-0a0ce0427b94"], -Cell[208491, 4990, 171, 3, 33, "Output",ExpressionUUID->"3ceb430a-d440-e040-b6a8-a18a3884b326"] +Cell[114299, 3048, 22539, 554, 2037, "Input",ExpressionUUID->"6a3ffacd-73ad-49ff-85c8-adad63d69aee"], +Cell[136841, 3604, 340, 7, 45, "Output",ExpressionUUID->"711a396b-cd50-49c2-bb3a-40d91b0bb040"] }, Open ]], Cell[CellGroupData[{ -Cell[208699, 4998, 2054, 59, 92, "Input",ExpressionUUID->"46f3f057-22eb-c143-af7a-23ddab00799c"], -Cell[210756, 5059, 574, 12, 26, "Message",ExpressionUUID->"ccb81c35-09e9-854b-9187-d46e8624546d"], -Cell[211333, 5073, 578, 12, 26, "Message",ExpressionUUID->"6dff6307-9a24-c74d-90d8-2f18b14858dc"], -Cell[211914, 5087, 582, 12, 26, "Message",ExpressionUUID->"11045565-b757-154a-b614-eb73b2dcbc5f"], -Cell[212499, 5101, 458, 10, 26, "Message",ExpressionUUID->"af9dd0c6-d446-9940-b908-9b52fbb611cb"], -Cell[212960, 5113, 169, 3, 33, "Output",ExpressionUUID->"d39c46b4-75c6-f741-b7fd-1a1fdbe4155f"] +Cell[137218, 3616, 25495, 627, 2246, "Input",ExpressionUUID->"fb9a1b94-b949-44c2-8fe3-8942caa84fe2"], +Cell[162716, 4245, 334, 7, 45, "Output",ExpressionUUID->"e767b85b-91d1-4341-8d41-a79236dc2721"] }, Open ]], Cell[CellGroupData[{ -Cell[213166, 5121, 2030, 55, 51, "Input",ExpressionUUID->"0137ed47-cd78-284a-910a-31d165f1571c"], -Cell[215199, 5178, 20326, 381, 238, "Output",ExpressionUUID->"5f98f6f4-700b-0a4b-af1c-32125fed3e6a"] -}, Open ]], -Cell[235540, 5562, 2144, 61, 92, "Input",ExpressionUUID->"00a32bc3-df79-9e43-8f20-d4884962c12d"], -Cell[237687, 5625, 138, 3, 29, "Input",ExpressionUUID->"344da507-9044-ef47-aa8c-99f282e3d6d3"], -Cell[CellGroupData[{ -Cell[237850, 5632, 1616, 48, 67, "Input",ExpressionUUID->"f13d1bd8-d153-ae43-b041-68b993e77854"], -Cell[239469, 5682, 592, 12, 38, "Message",ExpressionUUID->"318da404-8df4-c540-9269-2b249c7e148e"], -Cell[240064, 5696, 597, 12, 38, "Message",ExpressionUUID->"42939765-c33b-c147-a25b-bfa31c71a3cb"], -Cell[240664, 5710, 599, 12, 38, "Message",ExpressionUUID->"63b912c5-afab-654e-9609-c4b849e9abfe"], -Cell[241266, 5724, 458, 10, 26, "Message",ExpressionUUID->"2c8999d2-d9b5-ef4e-a59d-c314a02b2b2a"], -Cell[241727, 5736, 172, 3, 33, "Output",ExpressionUUID->"52013fca-4692-bf47-a0cf-880d71f10fc1"] +Cell[163087, 4257, 134, 3, 40, "Input",ExpressionUUID->"3350982b-73a4-40cd-8396-2ddf11ec098f"], +Cell[163224, 4262, 301, 6, 45, "Output",ExpressionUUID->"8d7ec022-2571-4e85-8e27-a6948cef4103"] }, Open ]], Cell[CellGroupData[{ -Cell[241936, 5744, 2249, 64, 62, "Input",ExpressionUUID->"53e25fab-b431-cc42-a467-e4dea0353ed0"], -Cell[244188, 5810, 576, 12, 38, "Message",ExpressionUUID->"285f997a-25b4-f647-9523-e0dd05446bae"], -Cell[244767, 5824, 580, 12, 38, "Message",ExpressionUUID->"b1d2a50d-b27b-ca46-afcb-af9e8d59323e"], -Cell[245350, 5838, 582, 12, 38, "Message",ExpressionUUID->"a36c085c-b95e-724c-a04e-30924ab7ac52"], -Cell[245935, 5852, 456, 10, 26, "Message",ExpressionUUID->"976edb68-80f3-5a4d-a255-2f217ec84bfa"], -Cell[246394, 5864, 171, 3, 33, "Output",ExpressionUUID->"b7107287-e519-1249-9ef0-b745347bdb78"] +Cell[163562, 4273, 134, 3, 40, "Input",ExpressionUUID->"7642c3e9-30be-455c-b967-c675f84df14c"], +Cell[163699, 4278, 301, 6, 45, "Output",ExpressionUUID->"4e3a5cd9-2b9d-48d7-8bc1-5d6df7953bc0"] }, Open ]], Cell[CellGroupData[{ -Cell[246602, 5872, 2223, 64, 62, "Input",ExpressionUUID->"b18c819e-620a-d449-97d6-547e3a6fa152"], -Cell[248828, 5938, 574, 12, 38, "Message",ExpressionUUID->"2877ed71-3ee8-8044-94b0-c606083c07b7"], -Cell[249405, 5952, 578, 12, 38, "Message",ExpressionUUID->"34cfc5a5-16b6-f24f-acdf-b4e2d29b1bef"], -Cell[249986, 5966, 580, 12, 38, "Message",ExpressionUUID->"7fe7bdbe-3892-5043-b38d-13721c83d41a"], -Cell[250569, 5980, 458, 10, 26, "Message",ExpressionUUID->"93dfb0cd-55fb-1b4a-b671-37d180b9d444"], -Cell[251030, 5992, 173, 3, 33, "Output",ExpressionUUID->"372279b5-5e4a-b545-a159-384b26aa5ab4"] +Cell[164037, 4289, 1148, 40, 78, "Input",ExpressionUUID->"ce01ebdc-52ef-45e2-8b39-b931f30e5522"], +Cell[165188, 4331, 320, 6, 45, "Output",ExpressionUUID->"6efaafab-1ee0-45ad-9a36-2517866d4697"] }, Open ]], Cell[CellGroupData[{ -Cell[251240, 6000, 2221, 64, 62, "Input",ExpressionUUID->"22ab74c7-5916-9440-9d7d-c3e0f6ab8836"], -Cell[253464, 6066, 574, 12, 38, "Message",ExpressionUUID->"c14c35e1-e487-c742-a0da-128fdb9754d4"], -Cell[254041, 6080, 578, 12, 38, "Message",ExpressionUUID->"4396ed61-4d7e-6144-80f0-6d5649cfcb04"], -Cell[254622, 6094, 582, 12, 38, "Message",ExpressionUUID->"00fa2dcd-bc0b-9e44-9f00-15116f344aca"], -Cell[255207, 6108, 455, 10, 26, "Message",ExpressionUUID->"78b12bf1-7793-9341-ad5f-c7be406b8be6"], -Cell[255665, 6120, 170, 3, 33, "Output",ExpressionUUID->"9454fa52-ff74-094b-8081-2fc86cf96043"] +Cell[165545, 4342, 1045, 36, 78, "Input",ExpressionUUID->"0e1ac804-4cda-4439-83db-a1177dffaf72"], +Cell[166593, 4380, 334, 7, 45, "Output",ExpressionUUID->"7a25a679-eff9-432d-8d58-d7de1c50e057"] }, Open ]], Cell[CellGroupData[{ -Cell[255872, 6128, 215, 6, 46, "Input",ExpressionUUID->"f9c66987-c237-7a40-a006-e20e260dbdcb"], -Cell[256090, 6136, 174, 3, 33, "Output",ExpressionUUID->"175eda7e-c091-3e4f-86ac-3148f0a9e904"] -}, Open ]], -Cell[256279, 6142, 249, 5, 29, "Input",ExpressionUUID->"770a9ed7-7938-9e48-be64-c31719ef3a6b"], -Cell[CellGroupData[{ -Cell[256553, 6151, 558, 19, 51, "Input",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], -Cell[257114, 6172, 169, 3, 33, "Output",ExpressionUUID->"e757c22c-d836-6c4a-a9f7-93553c4bb232"] +Cell[166964, 4392, 1148, 40, 78, "Input",ExpressionUUID->"24896788-36d8-4a4e-9682-579df2322bb9"], +Cell[168115, 4434, 319, 6, 45, "Output",ExpressionUUID->"e7feeb19-25af-4e81-8c4b-70239431e215"] }, Open ]], Cell[CellGroupData[{ -Cell[257320, 6180, 170, 5, 55, "Input",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], -Cell[257493, 6187, 173, 3, 33, "Output",ExpressionUUID->"7f3ee547-87eb-d74d-8f21-a8d42f1dde52"] +Cell[168471, 4445, 112, 2, 40, "Input",ExpressionUUID->"1b5c9d0c-19c8-4c2b-9989-7dedd166bdcb"], +Cell[168586, 4449, 318, 6, 45, "Output",ExpressionUUID->"0cbf36d9-74aa-46fd-a674-2b3fe840be7c"] }, Open ]], Cell[CellGroupData[{ -Cell[257703, 6195, 181, 5, 43, "Input",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], -Cell[257887, 6202, 173, 3, 33, "Output",ExpressionUUID->"0603b6e6-a8b7-1e45-9b15-2769b7fbc373"] +Cell[168941, 4460, 112, 2, 40, "Input",ExpressionUUID->"c3446fed-5381-4526-b84d-b5424ef3f6ef"], +Cell[169056, 4464, 312, 6, 45, "Output",ExpressionUUID->"db83aecb-9123-40bd-bbaa-e4f7cf62ddfc"] }, Open ]], Cell[CellGroupData[{ -Cell[258097, 6210, 6055, 185, 195, "Input",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], -Cell[264155, 6397, 174, 3, 33, "Output",ExpressionUUID->"8b7a346f-cdda-e24e-b924-d6cfb1b3119a"] +Cell[169405, 4475, 112, 2, 40, "Input",ExpressionUUID->"526f1696-b258-400b-8a96-60fbae37852f"], +Cell[169520, 4479, 306, 6, 45, "Output",ExpressionUUID->"34fdcb2f-8e5b-4996-814b-db0b8cdec9b3"] }, Open ]], Cell[CellGroupData[{ -Cell[264366, 6405, 368, 9, 41, "Input",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], -Cell[264737, 6416, 172, 3, 33, "Output",ExpressionUUID->"3354b35a-acef-b846-b770-8d2e77b8f68b"] +Cell[169863, 4490, 112, 2, 40, "Input",ExpressionUUID->"98b96cd6-5d4c-4e52-b363-b3dff8ee271e"], +Cell[169978, 4494, 289, 5, 45, "Output",ExpressionUUID->"86a7d301-7f0d-4076-bbf9-81ed2f2bb91f"] }, Open ]], Cell[CellGroupData[{ -Cell[264946, 6424, 6122, 187, 195, "Input",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], -Cell[271071, 6613, 172, 3, 33, "Output",ExpressionUUID->"7b76721b-3d4c-c544-9113-83ba4f36ae7f"] +Cell[170304, 4504, 111, 2, 40, "Input",ExpressionUUID->"194b3329-8bba-47df-bf16-20b5c2eeb717"], +Cell[170418, 4508, 291, 5, 45, "Output",ExpressionUUID->"b0cb48ea-77f9-4017-aaf8-d6521d884554"] }, Open ]], Cell[CellGroupData[{ -Cell[271280, 6621, 368, 9, 41, "Input",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], -Cell[271651, 6632, 170, 3, 33, "Output",ExpressionUUID->"e9346704-c478-364d-b5eb-0aabe0e2e350"] +Cell[170746, 4518, 111, 2, 40, "Input",ExpressionUUID->"6f9c1217-09e6-44aa-9c38-6c85a894cd3c"], +Cell[170860, 4522, 296, 5, 45, "Output",ExpressionUUID->"acee040a-3dc3-4aa6-a5b1-f868fbb1889d"] }, Open ]], Cell[CellGroupData[{ -Cell[271858, 6640, 2663, 88, 115, "Input",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], -Cell[274524, 6730, 173, 3, 33, "Output",ExpressionUUID->"33b7f444-6995-e54b-a2a6-ad09016b1850"] +Cell[171193, 4532, 501, 17, 77, "Input",ExpressionUUID->"46851f4d-166d-41a3-9017-4031733d9226"], +Cell[171697, 4551, 307, 6, 45, "Output",ExpressionUUID->"c6969745-bdfa-4dfc-9e80-1731f8fa155e"] }, Open ]], Cell[CellGroupData[{ -Cell[274734, 6738, 2603, 85, 115, "Input",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], -Cell[277340, 6825, 172, 3, 33, "Output",ExpressionUUID->"76ba8e46-11c7-f54d-bfb2-cca1b455c838"] +Cell[172041, 4562, 501, 17, 77, "Input",ExpressionUUID->"ac442096-0fa2-4641-a8ed-927c3361bbfa"], +Cell[172545, 4581, 310, 6, 45, "Output",ExpressionUUID->"ef0cf1ff-4b5a-49b2-a8c7-67c67860b919"] }, Open ]], Cell[CellGroupData[{ -Cell[277549, 6833, 3712, 118, 172, "Input",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], -Cell[281264, 6953, 172, 3, 33, "Output",ExpressionUUID->"f7c29774-2634-5546-ab63-4d3ac6889f79"] +Cell[172892, 4592, 1792, 61, 186, "Input",ExpressionUUID->"70ef65cb-3261-4e79-9029-7f3d0227f633"], +Cell[174687, 4655, 291, 5, 45, "Output",ExpressionUUID->"bddd9dad-d485-4198-a1a8-bf5bfd233e9c"] }, Open ]], Cell[CellGroupData[{ -Cell[281473, 6961, 2052, 59, 92, "Input",ExpressionUUID->"55d51961-97f2-ed4d-8bf8-8a461d652ab4"], -Cell[283528, 7022, 573, 12, 38, "Message",ExpressionUUID->"3d5a1265-fb27-0b41-a549-5e326650d270"], -Cell[284104, 7036, 573, 12, 38, "Message",ExpressionUUID->"0726d23e-32d7-7a41-8d7f-0b62fec75437"], -Cell[284680, 7050, 579, 12, 38, "Message",ExpressionUUID->"b47482ef-bec0-234f-aeb7-9009a378a36d"], -Cell[285262, 7064, 458, 10, 26, "Message",ExpressionUUID->"e5e35e3a-0e40-c249-b6f3-c2a6a5a48740"], -Cell[285723, 7076, 170, 3, 33, "Output",ExpressionUUID->"b33776d0-2a41-694b-9af8-c4d483383e7c"] +Cell[175015, 4665, 1105, 37, 78, "Input",ExpressionUUID->"cb7cabb1-db00-484c-830a-2f5bbbc309a2"], +Cell[176123, 4704, 312, 6, 45, "Output",ExpressionUUID->"4d4e46fb-e3d6-44e4-808a-e048716bae12"] }, Open ]], Cell[CellGroupData[{ -Cell[285930, 7084, 2052, 59, 92, "Input",ExpressionUUID->"9704b9d3-b449-2144-9970-6a7de047241d"], -Cell[287985, 7145, 573, 12, 38, "Message",ExpressionUUID->"ffb6a3c0-c488-cd48-870e-d66051362026"], -Cell[288561, 7159, 575, 12, 38, "Message",ExpressionUUID->"ca3fb11a-47f9-c542-a5c9-6e0087e110b9"], -Cell[289139, 7173, 579, 12, 38, "Message",ExpressionUUID->"7e4a0639-38a1-f74e-ab8e-5264cad2d48c"], -Cell[289721, 7187, 458, 10, 26, "Message",ExpressionUUID->"101eaea3-75b1-d942-9914-a0fe8a6e2f65"], -Cell[290182, 7199, 169, 3, 33, "Output",ExpressionUUID->"921a9c76-dcb9-484a-bc19-88ddead9467a"] +Cell[176472, 4715, 1822, 62, 340, "Input",ExpressionUUID->"60088de3-8c8f-45d8-ac7f-fe41010b2e24"], +Cell[178297, 4779, 292, 5, 41, "Output",ExpressionUUID->"c6bbc6d1-64be-4f79-81a8-b6651d883b62"] }, Open ]], Cell[CellGroupData[{ -Cell[290388, 7207, 2028, 55, 51, "Input",ExpressionUUID->"0fd90636-7592-fc40-bf9d-ae1cb915c656"], -Cell[292419, 7264, 20296, 381, 236, "Output",ExpressionUUID->"09d149ec-0259-a345-a282-743f783e7913"] +Cell[178626, 4789, 1635, 54, 208, "Input",ExpressionUUID->"fff42478-bb85-4588-a8a8-883adf3fa8f0"], +Cell[180264, 4845, 291, 5, 41, "Output",ExpressionUUID->"ab7efd9e-d235-44db-9309-ad5471bb6168"] }, Open ]], Cell[CellGroupData[{ -Cell[312752, 7650, 2146, 61, 92, "Input",ExpressionUUID->"90696e8b-5a2d-314c-8d58-ac84cb8f4d66"], -Cell[314901, 7713, 500, 11, 38, "Message",ExpressionUUID->"526ffad5-83ae-c149-9912-e494135b3fca"], -Cell[315404, 7726, 505, 11, 38, "Message",ExpressionUUID->"1adb1680-bdf2-4144-bcc9-7270c61e97b7"], -Cell[315912, 7739, 509, 11, 38, "Message",ExpressionUUID->"9e5d82d5-642b-cb46-8232-be5a5ca7050d"], -Cell[316424, 7752, 458, 10, 26, "Message",ExpressionUUID->"ef931413-f964-5b45-a755-76cab1ab5309"], -Cell[316885, 7764, 39609, 697, 232, "Output",ExpressionUUID->"23497d29-f516-664b-9ee0-ea8f6d88359c"] +Cell[180592, 4855, 1635, 54, 208, "Input",ExpressionUUID->"f40a19a2-1985-4e93-bc21-69807cb4221e"], +Cell[182230, 4911, 289, 5, 41, "Output",ExpressionUUID->"6c81ad2c-cdd1-4e08-8c1d-75735da4a19e"] }, Open ]], -Cell[356509, 8464, 209, 5, 29, "Input",ExpressionUUID->"ea848967-083d-ea47-bce0-5c3b93725916"], +Cell[182534, 4919, 250, 5, 56, "Input",ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], +Cell[182787, 4926, 253, 5, 56, "Input",ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], Cell[CellGroupData[{ -Cell[356743, 8473, 1616, 48, 67, "Input",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], -Cell[358362, 8523, 589, 12, 38, "Message",ExpressionUUID->"100796fd-6fde-3c41-9088-c2d3ae2f8aeb"], -Cell[358954, 8537, 595, 12, 38, "Message",ExpressionUUID->"c91e75b4-9e2b-1e49-a5d5-453d5f87b5e3"], -Cell[359552, 8551, 596, 12, 38, "Message",ExpressionUUID->"5d8ad6a4-5b83-df49-8c4d-081081895528"], -Cell[360151, 8565, 458, 10, 26, "Message",ExpressionUUID->"26eed7af-5e0a-e840-9956-caca06166010"], -Cell[360612, 8577, 171, 3, 33, "Output",ExpressionUUID->"e4e35b92-e786-3044-bf1d-9c587b1357a2"] +Cell[183065, 4935, 1301, 43, 174, "Input",ExpressionUUID->"5e48fe0c-b3e8-2b40-82cb-716b23b2f326"], +Cell[184369, 4980, 178, 3, 41, "Output",ExpressionUUID->"1db85c02-7ca3-154e-854d-2c36f89709c4"] }, Open ]], Cell[CellGroupData[{ -Cell[360820, 8585, 2249, 64, 62, "Input",ExpressionUUID->"80bba3bc-d8f7-1c4b-9262-0895c02ffd8f"], -Cell[363072, 8651, 573, 12, 38, "Message",ExpressionUUID->"6b65fc2b-3e1d-714d-aeb9-43978836a621"], -Cell[363648, 8665, 573, 12, 38, "Message",ExpressionUUID->"c4736a05-b0e1-5e49-b581-f3ce4c83fe21"], -Cell[364224, 8679, 579, 12, 38, "Message",ExpressionUUID->"ae8eb83c-0205-8046-8445-e249896b7ee5"], -Cell[364806, 8693, 458, 10, 26, "Message",ExpressionUUID->"5072d590-62c3-7a47-ae1b-6dd617a0b9dc"], -Cell[365267, 8705, 174, 3, 70, "Output",ExpressionUUID->"8dd7e1f9-bbea-d84b-ad0e-8922158aee9e"] +Cell[184584, 4988, 910, 31, 128, "Input",ExpressionUUID->"e4db2648-4e1a-2c46-83ab-fcd932c3b663"], +Cell[185497, 5021, 175, 3, 41, "Output",ExpressionUUID->"78ed190c-23cd-4d45-867a-2b08174b715f"] }, Open ]], Cell[CellGroupData[{ -Cell[365478, 8713, 2221, 64, 70, "Input",ExpressionUUID->"57976ffc-56f1-604b-8519-bead95265db8"], -Cell[367702, 8779, 573, 12, 70, "Message",ExpressionUUID->"7ab877ea-0e4b-f948-97c2-7ebafb7901b1"], -Cell[368278, 8793, 575, 12, 70, "Message",ExpressionUUID->"a87a57c5-24bc-dc4a-888a-b3c0095c10c4"], -Cell[368856, 8807, 577, 12, 70, "Message",ExpressionUUID->"d8af7fb1-1d43-664e-ae2d-698eaa818746"], -Cell[369436, 8821, 456, 10, 70, "Message",ExpressionUUID->"7abec434-52e8-c64c-ac86-90da0b27b8aa"], -Cell[369895, 8833, 172, 3, 70, "Output",ExpressionUUID->"164a4c34-f121-a445-b434-e34aa59666ab"] +Cell[185709, 5029, 885, 30, 128, "Input",ExpressionUUID->"e4649c3d-e19e-ca42-95a0-23b66397f1fd"], +Cell[186597, 5061, 177, 3, 41, "Output",ExpressionUUID->"82ec2512-4fcb-ba44-b472-bb3a66bb622e"] }, Open ]], Cell[CellGroupData[{ -Cell[370104, 8841, 2219, 64, 70, "Input",ExpressionUUID->"cfa37210-3ae7-3f49-b290-f19508c6d2f1"], -Cell[372326, 8907, 571, 12, 70, "Message",ExpressionUUID->"92295db4-13f0-284e-8173-df7f8dd20dcf"], -Cell[372900, 8921, 573, 12, 70, "Message",ExpressionUUID->"c6280e41-1347-0f47-81a9-bcd3687b7b73"], -Cell[373476, 8935, 579, 12, 70, "Message",ExpressionUUID->"2aa0f4b1-01ca-4644-884e-b759d4a75412"], -Cell[374058, 8949, 458, 10, 70, "Message",ExpressionUUID->"ab3c3bff-179e-9f4e-b56a-87d1b4f6fc04"], -Cell[374519, 8961, 172, 3, 70, "Output",ExpressionUUID->"f5b8154f-e61e-6a4e-b068-b6c1916773ef"] +Cell[186811, 5069, 558, 19, 66, "Input",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], +Cell[187372, 5090, 173, 3, 41, "Output",ExpressionUUID->"9d53fa4a-be54-7b42-83bd-0a5560193c0f"] }, Open ]], Cell[CellGroupData[{ -Cell[374728, 8969, 211, 6, 70, "Input",ExpressionUUID->"7457b456-6d32-5b44-9679-346c5f5ac532"], -Cell[374942, 8977, 174, 3, 70, "Output",ExpressionUUID->"14434839-d5cf-b844-b849-b3b3102df434"] -}, Open ]] +Cell[187582, 5098, 623, 21, 66, "Input",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], +Cell[188208, 5121, 170, 3, 41, "Output",ExpressionUUID->"4107fa63-a138-df48-a95c-ec944a983800"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188415, 5129, 170, 5, 71, "Input",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], +Cell[188588, 5136, 173, 3, 41, "Output",ExpressionUUID->"f894fb1d-1550-5146-a259-dfa871655c2a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188798, 5144, 170, 5, 69, "Input",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], +Cell[188971, 5151, 170, 3, 41, "Output",ExpressionUUID->"8d5b13a4-8c75-0f48-ab21-9720bb8c0cbc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189178, 5159, 181, 5, 55, "Input",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], +Cell[189362, 5166, 171, 3, 41, "Output",ExpressionUUID->"4d4b493f-9f2d-1e41-979f-fb4d58d0e93a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189570, 5174, 181, 5, 55, "Input",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], +Cell[189754, 5181, 173, 3, 41, "Output",ExpressionUUID->"e40db20b-c65e-4a45-ba96-abcb59b0d0ac"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189964, 5189, 6055, 185, 831, "Input",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], +Cell[196022, 5376, 175, 3, 41, "Output",ExpressionUUID->"cdf81fea-e12a-2b44-81a8-222b4bbf8a86"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196234, 5384, 368, 9, 53, "Input",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], +Cell[196605, 5395, 170, 3, 41, "Output",ExpressionUUID->"181dc1c8-632b-4b43-91c4-d3626d65bfc7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196812, 5403, 6122, 187, 900, "Input",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], +Cell[202937, 5592, 175, 3, 41, "Output",ExpressionUUID->"c7d972b4-764c-954a-8260-240d49cfcff6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[203149, 5600, 368, 9, 53, "Input",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], +Cell[203520, 5611, 172, 3, 41, "Output",ExpressionUUID->"c285a758-c3ad-974b-93c3-4cb0d4bdd2ae"] +}, Open ]], +Cell[CellGroupData[{ +Cell[203729, 5619, 2663, 88, 435, "Input",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], +Cell[206395, 5709, 173, 3, 41, "Output",ExpressionUUID->"5dc957f4-8f84-c54c-80a3-c76f756c5df4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[206605, 5717, 2603, 85, 435, "Input",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], +Cell[209211, 5804, 172, 3, 41, "Output",ExpressionUUID->"b4ee01d5-3415-494b-b28a-4587c8d8bb90"] +}, Open ]], +Cell[CellGroupData[{ +Cell[209420, 5812, 3712, 118, 575, "Input",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], +Cell[213135, 5932, 174, 3, 41, "Output",ExpressionUUID->"20c44e64-7085-8e4d-a9d6-f80b5532826e"] +}, Open ]], +Cell[213324, 5938, 138, 3, 36, "Input",ExpressionUUID->"ba4a3eff-9e3b-5e47-a896-3a959bbbf44d"], +Cell[CellGroupData[{ +Cell[213487, 5945, 2052, 59, 276, "Input",ExpressionUUID->"738a48f3-b38c-f441-aec4-53babaa73a14"], +Cell[215542, 6006, 524, 11, 91, "Message",ExpressionUUID->"bd0a7da1-672e-6b4e-afbd-4af379292e8d"], +Cell[216069, 6019, 526, 11, 91, "Message",ExpressionUUID->"9a8837e4-2afa-d145-83db-a88ef0e502bc"], +Cell[216598, 6032, 530, 11, 91, "Message",ExpressionUUID->"0aa4ed5d-b925-834d-b53a-95c75c4ff982"], +Cell[217131, 6045, 455, 10, 26, "Message",ExpressionUUID->"2742a735-9c26-7640-8a81-3e30eaffa353"], +Cell[217589, 6057, 172, 3, 41, "Output",ExpressionUUID->"d91a6bca-04d7-b84b-93cf-0695498dc4de"] +}, Open ]], +Cell[CellGroupData[{ +Cell[217798, 6065, 2054, 59, 276, "Input",ExpressionUUID->"86c33485-ed26-8f49-b3d0-7d040d3b48f0"], +Cell[219855, 6126, 524, 11, 91, "Message",ExpressionUUID->"2c553d54-16ec-9646-b6d7-75da3c367575"], +Cell[220382, 6139, 526, 11, 91, "Message",ExpressionUUID->"1c597fdf-5631-a84c-9feb-152df3629d86"], +Cell[220911, 6152, 528, 11, 91, "Message",ExpressionUUID->"48439b56-7b7d-fa4d-a4e2-5db2bbda0c77"], +Cell[221442, 6165, 456, 10, 26, "Message",ExpressionUUID->"66ce390f-34a9-df4d-9875-a339943ada86"], +Cell[221901, 6177, 170, 3, 41, "Output",ExpressionUUID->"2e46fa54-fabe-5040-8f8c-6829b7c76136"] +}, Open ]], +Cell[CellGroupData[{ +Cell[222108, 6185, 1938, 53, 232, "Input",ExpressionUUID->"f373fe4f-940c-0842-9236-63ec36d318ad"], +Cell[224049, 6240, 19994, 375, 285, "Output",ExpressionUUID->"fdd0f260-414f-a94a-8f26-cd86e676700c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[244080, 6620, 2092, 60, 311, "Input",ExpressionUUID->"24fa5db0-1063-354a-bd60-c117a27ff3e1"], +Cell[246175, 6682, 490, 11, 71, "Message",ExpressionUUID->"546a9ea9-5939-f84a-87c6-58844f58f330"], +Cell[246668, 6695, 493, 11, 71, "Message",ExpressionUUID->"b36bffd7-1c84-5c45-a847-b2c31968f579"], +Cell[247164, 6708, 508, 11, 54, "Message",ExpressionUUID->"c864bef7-fc73-d94b-8cde-14570cba8095"], +Cell[247675, 6721, 456, 10, 26, "Message",ExpressionUUID->"a2e62375-acd2-6740-bfd7-026877c5bd7b"], +Cell[248134, 6733, 61603, 1057, 290, "Output",ExpressionUUID->"d4eecdc9-263c-5b43-bb29-cd0ac1286793"] +}, Open ]], +Cell[309752, 7793, 2522, 71, 316, "Input",ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], +Cell[312277, 7866, 209, 5, 36, "Input",ExpressionUUID->"6d3700e1-f504-214a-a332-f16397f0b922"], +Cell[CellGroupData[{ +Cell[312511, 7875, 217, 7, 61, "Input",ExpressionUUID->"9051a5e3-bb9f-d941-bcca-598d0b6835be"], +Cell[312731, 7884, 169, 3, 41, "Output",ExpressionUUID->"07374b0a-4615-bf46-ab49-be8623cec410"] +}, Open ]], +Cell[CellGroupData[{ +Cell[312937, 7892, 1816, 53, 311, "Input",ExpressionUUID->"65a995ff-ff3d-634e-9bad-4a8a16073236"], +Cell[314756, 7947, 502, 11, 71, "Message",ExpressionUUID->"c1f83af1-416a-6240-b3fd-c1bfcc643459"], +Cell[315261, 7960, 506, 11, 71, "Message",ExpressionUUID->"5cfd3c4b-6190-2c4d-8479-b4ccd7090f94"], +Cell[315770, 7973, 509, 11, 71, "Message",ExpressionUUID->"288fc6c7-a3fe-9b48-9c0d-bba2713f7084"], +Cell[316282, 7986, 456, 10, 26, "Message",ExpressionUUID->"09478fd5-b212-2347-91e7-b9097bd6d61d"], +Cell[316741, 7998, 28560, 514, 290, "Output",ExpressionUUID->"f7784347-2042-c042-8970-b060f9535d9e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[345338, 8517, 1616, 48, 132, "Input",ExpressionUUID->"86381d88-1537-a242-9cff-0b432b61d63d"], +Cell[346957, 8567, 576, 12, 91, "Message",ExpressionUUID->"0a4bed5c-621d-a546-88e9-ce7d779c106a"], +Cell[347536, 8581, 582, 12, 91, "Message",ExpressionUUID->"80e3943d-459b-8b41-9869-50a6cf829ef8"], +Cell[348121, 8595, 584, 12, 111, "Message",ExpressionUUID->"36529169-7f05-ee43-8080-ce8fdd404b8d"], +Cell[348708, 8609, 458, 10, 109, "Message",ExpressionUUID->"a6c5f0ff-3356-4c42-b883-ce45e5cc4f41"], +Cell[349169, 8621, 170, 3, 109, "Output",ExpressionUUID->"546f133a-4a8e-8d44-937d-5fc3ea2401d8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[349376, 8629, 2247, 64, 109, "Input",ExpressionUUID->"6f0ad284-4db3-da47-b8dc-45830eedfe9c"], +Cell[351626, 8695, 522, 11, 91, "Message",ExpressionUUID->"2e7d173d-070f-de49-a3c2-9964fb888ede"], +Cell[352151, 8708, 526, 11, 91, "Message",ExpressionUUID->"04b23985-5685-d344-a2ed-9886796baf32"], +Cell[352680, 8721, 528, 11, 91, "Message",ExpressionUUID->"ccdd27f2-bd64-f442-a708-cfb1052c7f86"], +Cell[353211, 8734, 458, 10, 26, "Message",ExpressionUUID->"384ce3fd-4914-6b49-b10c-84d885ed65d6"], +Cell[353672, 8746, 175, 3, 41, "Output",ExpressionUUID->"8865a4e5-7fd3-3c49-a115-94c8c5479389"] +}, Open ]], +Cell[CellGroupData[{ +Cell[353884, 8754, 2221, 64, 348, "Input",ExpressionUUID->"b2dda819-6f34-5c49-bc62-303d815946e5"], +Cell[356108, 8820, 522, 11, 91, "Message",ExpressionUUID->"958049e8-43e1-cc46-81fb-5b3fe1a5d9ee"], +Cell[356633, 8833, 524, 11, 91, "Message",ExpressionUUID->"6ed73f20-f975-a34c-a5a3-af58e9ecd7ed"], +Cell[357160, 8846, 528, 11, 91, "Message",ExpressionUUID->"4ce11323-2f48-da4f-84f8-593751381024"], +Cell[357691, 8859, 458, 10, 26, "Message",ExpressionUUID->"330905cd-5b42-604b-aaf8-fbac43108165"], +Cell[358152, 8871, 170, 3, 41, "Output",ExpressionUUID->"020ade62-ec43-7549-8079-7ac012e004c4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[358359, 8879, 2221, 64, 348, "Input",ExpressionUUID->"76a9e77d-1f4c-bb4a-bb13-1a175f609f7d"], +Cell[360583, 8945, 524, 11, 91, "Message",ExpressionUUID->"9a8eff2d-0d97-2e45-a2f3-ce0634115f7d"], +Cell[361110, 8958, 526, 11, 91, "Message",ExpressionUUID->"7dd7e17e-c74e-7145-b6ae-77a0f02c67f1"], +Cell[361639, 8971, 530, 11, 91, "Message",ExpressionUUID->"311ddb21-a730-0b41-b633-2d3bac87be85"], +Cell[362172, 8984, 458, 10, 26, "Message",ExpressionUUID->"ecdc16e1-316d-b342-a60b-0f3075607709"], +Cell[362633, 8996, 171, 3, 41, "Output",ExpressionUUID->"a7fc6f95-4067-504b-8754-5086d2659934"] +}, Open ]], +Cell[CellGroupData[{ +Cell[362841, 9004, 215, 6, 60, "Input",ExpressionUUID->"69dd09d9-152e-3e4d-9517-4de4791db2f4"], +Cell[363059, 9012, 175, 3, 41, "Output",ExpressionUUID->"96bb6c6a-f128-024e-85ce-f8a6083a68c6"] +}, Open ]], +Cell[363249, 9018, 245, 5, 36, "Input",ExpressionUUID->"6ecc7e8c-a7c5-354e-b168-749729cd7104"], +Cell[CellGroupData[{ +Cell[363519, 9027, 623, 20, 66, "Input",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], +Cell[364145, 9049, 172, 3, 41, "Output",ExpressionUUID->"fecac54e-ac70-c448-b60d-60e5d8aa9072"] +}, Open ]], +Cell[CellGroupData[{ +Cell[364354, 9057, 170, 5, 71, "Input",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], +Cell[364527, 9064, 172, 3, 41, "Output",ExpressionUUID->"31e41e93-aaef-1b4f-a5e6-3cad86684dfc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[364736, 9072, 181, 5, 55, "Input",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], +Cell[364920, 9079, 172, 3, 41, "Output",ExpressionUUID->"d20f2acf-afe0-0844-b0cd-0cdce2394573"] +}, Open ]], +Cell[CellGroupData[{ +Cell[365129, 9087, 6055, 185, 831, "Input",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], +Cell[371187, 9274, 174, 3, 41, "Output",ExpressionUUID->"ec544098-6efd-4845-b84f-33e39ead67c9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[371398, 9282, 368, 9, 53, "Input",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], +Cell[371769, 9293, 173, 3, 41, "Output",ExpressionUUID->"85f4fe6d-1167-7a40-b761-0a55e5251875"] +}, Open ]], +Cell[CellGroupData[{ +Cell[371979, 9301, 6122, 187, 900, "Input",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], +Cell[378104, 9490, 175, 3, 41, "Output",ExpressionUUID->"53db8250-199b-594a-8ebd-fc9cc43217e3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[378316, 9498, 368, 9, 53, "Input",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], +Cell[378687, 9509, 170, 3, 41, "Output",ExpressionUUID->"0013bb3e-54d0-e343-9869-cf63da2eecbd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[378894, 9517, 2663, 88, 435, "Input",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], +Cell[381560, 9607, 173, 3, 41, "Output",ExpressionUUID->"96d8705a-f744-d447-bad0-55fe1d703f38"] +}, Open ]], +Cell[CellGroupData[{ +Cell[381770, 9615, 2603, 85, 435, "Input",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], +Cell[384376, 9702, 172, 3, 41, "Output",ExpressionUUID->"bad41b21-8b15-a74b-a641-622c6584a958"] +}, Open ]], +Cell[CellGroupData[{ +Cell[384585, 9710, 3712, 118, 575, "Input",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], +Cell[388300, 9830, 174, 3, 41, "Output",ExpressionUUID->"a42f993d-5633-3546-ae09-6931972f9312"] +}, Open ]], +Cell[CellGroupData[{ +Cell[388511, 9838, 2052, 59, 276, "Input",ExpressionUUID->"d6aa822f-4140-174a-8e29-c889dba5c0d8"], +Cell[390566, 9899, 574, 12, 91, "Message",ExpressionUUID->"91f9ae14-8766-3848-9c79-ec46ad6af7ea"], +Cell[391143, 9913, 580, 12, 91, "Message",ExpressionUUID->"2440fadc-b12b-424f-a600-97a0a8c9f031"], +Cell[391726, 9927, 582, 12, 91, "Message",ExpressionUUID->"d4d1d26f-ac2b-a949-95b4-8d60af02cc4b"], +Cell[392311, 9941, 456, 10, 26, "Message",ExpressionUUID->"0cb59396-7a19-6b43-af2b-0a0ce0427b94"], +Cell[392770, 9953, 171, 3, 41, "Output",ExpressionUUID->"3ceb430a-d440-e040-b6a8-a18a3884b326"] +}, Open ]], +Cell[CellGroupData[{ +Cell[392978, 9961, 2054, 59, 276, "Input",ExpressionUUID->"46f3f057-22eb-c143-af7a-23ddab00799c"], +Cell[395035, 10022, 574, 12, 91, "Message",ExpressionUUID->"ccb81c35-09e9-854b-9187-d46e8624546d"], +Cell[395612, 10036, 578, 12, 91, "Message",ExpressionUUID->"6dff6307-9a24-c74d-90d8-2f18b14858dc"], +Cell[396193, 10050, 582, 12, 91, "Message",ExpressionUUID->"11045565-b757-154a-b614-eb73b2dcbc5f"], +Cell[396778, 10064, 458, 10, 26, "Message",ExpressionUUID->"af9dd0c6-d446-9940-b908-9b52fbb611cb"], +Cell[397239, 10076, 169, 3, 41, "Output",ExpressionUUID->"d39c46b4-75c6-f741-b7fd-1a1fdbe4155f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[397445, 10084, 2030, 55, 232, "Input",ExpressionUUID->"0137ed47-cd78-284a-910a-31d165f1571c"], +Cell[399478, 10141, 20326, 381, 299, "Output",ExpressionUUID->"5f98f6f4-700b-0a4b-af1c-32125fed3e6a"] +}, Open ]], +Cell[419819, 10525, 2144, 61, 311, "Input",ExpressionUUID->"00a32bc3-df79-9e43-8f20-d4884962c12d"], +Cell[421966, 10588, 138, 3, 36, "Input",ExpressionUUID->"344da507-9044-ef47-aa8c-99f282e3d6d3"], +Cell[CellGroupData[{ +Cell[422129, 10595, 1616, 48, 132, "Input",ExpressionUUID->"f13d1bd8-d153-ae43-b041-68b993e77854"], +Cell[423748, 10645, 592, 12, 111, "Message",ExpressionUUID->"318da404-8df4-c540-9269-2b249c7e148e"], +Cell[424343, 10659, 597, 12, 111, "Message",ExpressionUUID->"42939765-c33b-c147-a25b-bfa31c71a3cb"], +Cell[424943, 10673, 599, 12, 111, "Message",ExpressionUUID->"63b912c5-afab-654e-9609-c4b849e9abfe"], +Cell[425545, 10687, 458, 10, 26, "Message",ExpressionUUID->"2c8999d2-d9b5-ef4e-a59d-c314a02b2b2a"], +Cell[426006, 10699, 172, 3, 41, "Output",ExpressionUUID->"52013fca-4692-bf47-a0cf-880d71f10fc1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[426215, 10707, 2249, 64, 348, "Input",ExpressionUUID->"53e25fab-b431-cc42-a467-e4dea0353ed0"], +Cell[428467, 10773, 576, 12, 91, "Message",ExpressionUUID->"285f997a-25b4-f647-9523-e0dd05446bae"], +Cell[429046, 10787, 580, 12, 91, "Message",ExpressionUUID->"b1d2a50d-b27b-ca46-afcb-af9e8d59323e"], +Cell[429629, 10801, 582, 12, 91, "Message",ExpressionUUID->"a36c085c-b95e-724c-a04e-30924ab7ac52"], +Cell[430214, 10815, 456, 10, 26, "Message",ExpressionUUID->"976edb68-80f3-5a4d-a255-2f217ec84bfa"], +Cell[430673, 10827, 171, 3, 41, "Output",ExpressionUUID->"b7107287-e519-1249-9ef0-b745347bdb78"] +}, Open ]], +Cell[CellGroupData[{ +Cell[430881, 10835, 2223, 64, 348, "Input",ExpressionUUID->"b18c819e-620a-d449-97d6-547e3a6fa152"], +Cell[433107, 10901, 574, 12, 91, "Message",ExpressionUUID->"2877ed71-3ee8-8044-94b0-c606083c07b7"], +Cell[433684, 10915, 578, 12, 91, "Message",ExpressionUUID->"34cfc5a5-16b6-f24f-acdf-b4e2d29b1bef"], +Cell[434265, 10929, 580, 12, 91, "Message",ExpressionUUID->"7fe7bdbe-3892-5043-b38d-13721c83d41a"], +Cell[434848, 10943, 458, 10, 26, "Message",ExpressionUUID->"93dfb0cd-55fb-1b4a-b671-37d180b9d444"], +Cell[435309, 10955, 173, 3, 41, "Output",ExpressionUUID->"372279b5-5e4a-b545-a159-384b26aa5ab4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[435519, 10963, 2221, 64, 348, "Input",ExpressionUUID->"22ab74c7-5916-9440-9d7d-c3e0f6ab8836"], +Cell[437743, 11029, 574, 12, 91, "Message",ExpressionUUID->"c14c35e1-e487-c742-a0da-128fdb9754d4"], +Cell[438320, 11043, 578, 12, 91, "Message",ExpressionUUID->"4396ed61-4d7e-6144-80f0-6d5649cfcb04"], +Cell[438901, 11057, 582, 12, 91, "Message",ExpressionUUID->"00fa2dcd-bc0b-9e44-9f00-15116f344aca"], +Cell[439486, 11071, 455, 10, 26, "Message",ExpressionUUID->"78b12bf1-7793-9341-ad5f-c7be406b8be6"], +Cell[439944, 11083, 170, 3, 41, "Output",ExpressionUUID->"9454fa52-ff74-094b-8081-2fc86cf96043"] +}, Open ]], +Cell[CellGroupData[{ +Cell[440151, 11091, 215, 6, 60, "Input",ExpressionUUID->"f9c66987-c237-7a40-a006-e20e260dbdcb"], +Cell[440369, 11099, 174, 3, 41, "Output",ExpressionUUID->"175eda7e-c091-3e4f-86ac-3148f0a9e904"] +}, Open ]], +Cell[440558, 11105, 249, 5, 36, "Input",ExpressionUUID->"770a9ed7-7938-9e48-be64-c31719ef3a6b"], +Cell[CellGroupData[{ +Cell[440832, 11114, 558, 19, 66, "Input",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], +Cell[441393, 11135, 169, 3, 41, "Output",ExpressionUUID->"e757c22c-d836-6c4a-a9f7-93553c4bb232"] +}, Open ]], +Cell[CellGroupData[{ +Cell[441599, 11143, 170, 5, 71, "Input",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], +Cell[441772, 11150, 173, 3, 41, "Output",ExpressionUUID->"7f3ee547-87eb-d74d-8f21-a8d42f1dde52"] +}, Open ]], +Cell[CellGroupData[{ +Cell[441982, 11158, 181, 5, 55, "Input",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], +Cell[442166, 11165, 173, 3, 41, "Output",ExpressionUUID->"0603b6e6-a8b7-1e45-9b15-2769b7fbc373"] +}, Open ]], +Cell[CellGroupData[{ +Cell[442376, 11173, 6055, 185, 831, "Input",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], +Cell[448434, 11360, 174, 3, 41, "Output",ExpressionUUID->"8b7a346f-cdda-e24e-b924-d6cfb1b3119a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[448645, 11368, 368, 9, 53, "Input",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], +Cell[449016, 11379, 172, 3, 41, "Output",ExpressionUUID->"3354b35a-acef-b846-b770-8d2e77b8f68b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[449225, 11387, 6122, 187, 900, "Input",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], +Cell[455350, 11576, 172, 3, 41, "Output",ExpressionUUID->"7b76721b-3d4c-c544-9113-83ba4f36ae7f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[455559, 11584, 368, 9, 53, "Input",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], +Cell[455930, 11595, 170, 3, 41, "Output",ExpressionUUID->"e9346704-c478-364d-b5eb-0aabe0e2e350"] +}, Open ]], +Cell[CellGroupData[{ +Cell[456137, 11603, 2663, 88, 435, "Input",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], +Cell[458803, 11693, 173, 3, 41, "Output",ExpressionUUID->"33b7f444-6995-e54b-a2a6-ad09016b1850"] +}, Open ]], +Cell[CellGroupData[{ +Cell[459013, 11701, 2603, 85, 435, "Input",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], +Cell[461619, 11788, 172, 3, 41, "Output",ExpressionUUID->"76ba8e46-11c7-f54d-bfb2-cca1b455c838"] +}, Open ]], +Cell[CellGroupData[{ +Cell[461828, 11796, 3712, 118, 575, "Input",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], +Cell[465543, 11916, 172, 3, 41, "Output",ExpressionUUID->"f7c29774-2634-5546-ab63-4d3ac6889f79"] +}, Open ]], +Cell[CellGroupData[{ +Cell[465752, 11924, 2052, 59, 276, "Input",ExpressionUUID->"55d51961-97f2-ed4d-8bf8-8a461d652ab4"], +Cell[467807, 11985, 573, 12, 91, "Message",ExpressionUUID->"3d5a1265-fb27-0b41-a549-5e326650d270"], +Cell[468383, 11999, 573, 12, 91, "Message",ExpressionUUID->"0726d23e-32d7-7a41-8d7f-0b62fec75437"], +Cell[468959, 12013, 579, 12, 91, "Message",ExpressionUUID->"b47482ef-bec0-234f-aeb7-9009a378a36d"], +Cell[469541, 12027, 458, 10, 26, "Message",ExpressionUUID->"e5e35e3a-0e40-c249-b6f3-c2a6a5a48740"], +Cell[470002, 12039, 170, 3, 41, "Output",ExpressionUUID->"b33776d0-2a41-694b-9af8-c4d483383e7c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[470209, 12047, 2052, 59, 276, "Input",ExpressionUUID->"9704b9d3-b449-2144-9970-6a7de047241d"], +Cell[472264, 12108, 573, 12, 91, "Message",ExpressionUUID->"ffb6a3c0-c488-cd48-870e-d66051362026"], +Cell[472840, 12122, 575, 12, 91, "Message",ExpressionUUID->"ca3fb11a-47f9-c542-a5c9-6e0087e110b9"], +Cell[473418, 12136, 579, 12, 91, "Message",ExpressionUUID->"7e4a0639-38a1-f74e-ab8e-5264cad2d48c"], +Cell[474000, 12150, 458, 10, 26, "Message",ExpressionUUID->"101eaea3-75b1-d942-9914-a0fe8a6e2f65"], +Cell[474461, 12162, 169, 3, 41, "Output",ExpressionUUID->"921a9c76-dcb9-484a-bc19-88ddead9467a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[474667, 12170, 2028, 55, 232, "Input",ExpressionUUID->"0fd90636-7592-fc40-bf9d-ae1cb915c656"], +Cell[476698, 12227, 20296, 381, 295, "Output",ExpressionUUID->"09d149ec-0259-a345-a282-743f783e7913"] +}, Open ]], +Cell[CellGroupData[{ +Cell[497031, 12613, 2146, 61, 311, "Input",ExpressionUUID->"90696e8b-5a2d-314c-8d58-ac84cb8f4d66"], +Cell[499180, 12676, 500, 11, 71, "Message",ExpressionUUID->"526ffad5-83ae-c149-9912-e494135b3fca"], +Cell[499683, 12689, 505, 11, 71, "Message",ExpressionUUID->"1adb1680-bdf2-4144-bcc9-7270c61e97b7"], +Cell[500191, 12702, 509, 11, 71, "Message",ExpressionUUID->"9e5d82d5-642b-cb46-8232-be5a5ca7050d"], +Cell[500703, 12715, 458, 10, 26, "Message",ExpressionUUID->"ef931413-f964-5b45-a755-76cab1ab5309"], +Cell[501164, 12727, 39609, 697, 290, "Output",ExpressionUUID->"23497d29-f516-664b-9ee0-ea8f6d88359c"] +}, Open ]], +Cell[540788, 13427, 209, 5, 36, "Input",ExpressionUUID->"ea848967-083d-ea47-bce0-5c3b93725916"], +Cell[CellGroupData[{ +Cell[541022, 13436, 1616, 48, 132, "Input",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], +Cell[542641, 13486, 589, 12, 111, "Message",ExpressionUUID->"100796fd-6fde-3c41-9088-c2d3ae2f8aeb"], +Cell[543233, 13500, 595, 12, 111, "Message",ExpressionUUID->"c91e75b4-9e2b-1e49-a5d5-453d5f87b5e3"], +Cell[543831, 13514, 596, 12, 111, "Message",ExpressionUUID->"5d8ad6a4-5b83-df49-8c4d-081081895528"], +Cell[544430, 13528, 458, 10, 26, "Message",ExpressionUUID->"26eed7af-5e0a-e840-9956-caca06166010"], +Cell[544891, 13540, 171, 3, 41, "Output",ExpressionUUID->"e4e35b92-e786-3044-bf1d-9c587b1357a2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[545099, 13548, 2249, 64, 348, "Input",ExpressionUUID->"80bba3bc-d8f7-1c4b-9262-0895c02ffd8f"], +Cell[547351, 13614, 573, 12, 91, "Message",ExpressionUUID->"6b65fc2b-3e1d-714d-aeb9-43978836a621"], +Cell[547927, 13628, 573, 12, 91, "Message",ExpressionUUID->"c4736a05-b0e1-5e49-b581-f3ce4c83fe21"], +Cell[548503, 13642, 579, 12, 91, "Message",ExpressionUUID->"ae8eb83c-0205-8046-8445-e249896b7ee5"], +Cell[549085, 13656, 458, 10, 26, "Message",ExpressionUUID->"5072d590-62c3-7a47-ae1b-6dd617a0b9dc"], +Cell[549546, 13668, 174, 3, 41, "Output",ExpressionUUID->"8dd7e1f9-bbea-d84b-ad0e-8922158aee9e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[549757, 13676, 2221, 64, 348, "Input",ExpressionUUID->"57976ffc-56f1-604b-8519-bead95265db8"], +Cell[551981, 13742, 573, 12, 91, "Message",ExpressionUUID->"7ab877ea-0e4b-f948-97c2-7ebafb7901b1"], +Cell[552557, 13756, 575, 12, 91, "Message",ExpressionUUID->"a87a57c5-24bc-dc4a-888a-b3c0095c10c4"], +Cell[553135, 13770, 577, 12, 91, "Message",ExpressionUUID->"d8af7fb1-1d43-664e-ae2d-698eaa818746"], +Cell[553715, 13784, 456, 10, 26, "Message",ExpressionUUID->"7abec434-52e8-c64c-ac86-90da0b27b8aa"], +Cell[554174, 13796, 172, 3, 41, "Output",ExpressionUUID->"164a4c34-f121-a445-b434-e34aa59666ab"] +}, Open ]], +Cell[CellGroupData[{ +Cell[554383, 13804, 2219, 64, 348, "Input",ExpressionUUID->"cfa37210-3ae7-3f49-b290-f19508c6d2f1"], +Cell[556605, 13870, 571, 12, 91, "Message",ExpressionUUID->"92295db4-13f0-284e-8173-df7f8dd20dcf"], +Cell[557179, 13884, 573, 12, 91, "Message",ExpressionUUID->"c6280e41-1347-0f47-81a9-bcd3687b7b73"], +Cell[557755, 13898, 579, 12, 91, "Message",ExpressionUUID->"2aa0f4b1-01ca-4644-884e-b759d4a75412"], +Cell[558337, 13912, 458, 10, 26, "Message",ExpressionUUID->"ab3c3bff-179e-9f4e-b56a-87d1b4f6fc04"], +Cell[558798, 13924, 172, 3, 41, "Output",ExpressionUUID->"f5b8154f-e61e-6a4e-b068-b6c1916773ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[559007, 13932, 211, 6, 60, "Input",ExpressionUUID->"7457b456-6d32-5b44-9679-346c5f5ac532"], +Cell[559221, 13940, 174, 3, 41, "Output",ExpressionUUID->"14434839-d5cf-b844-b849-b3b3102df434"] +}, Open ]], +Cell[559410, 13946, 115, 1, 36, "Input",ExpressionUUID->"f36cb0fd-7ec0-4ab9-9521-1ef13679df34"] } ] *) diff --git a/Pu240_798-811_TitovAA/170-70_h_Pu240_24-25/h_170-70_Pu240_24-25_gid_Qw2.nb b/Pu240_798-811_TitovAA/170-70_h_Pu240_24-25/h_170-70_Pu240_24-25_gid_Qw2.nb index 1f902d9..c33aa94 100644 --- a/Pu240_798-811_TitovAA/170-70_h_Pu240_24-25/h_170-70_Pu240_24-25_gid_Qw2.nb +++ b/Pu240_798-811_TitovAA/170-70_h_Pu240_24-25/h_170-70_Pu240_24-25_gid_Qw2.nb @@ -3,26 +3,4924 @@ (*** 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[ 448712, 13231] +NotebookOptionsPosition[ 410320, 12615] +NotebookOutlinePosition[ 410732, 12632] +CellTagsIndexPosition[ 410689, 12629] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f1", "="}]], "Input", + RowBox[{"d", "=", "2"}]], "Input", CellChangeTimes->{ - 3.9918505481678543`*^9},ExpressionUUID->"83cccf0d-dccb-fb42-a058-\ -5e950c758893"], + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.994074365586355*^9, 3.9940743682625427`*^9}, { + 3.994074972569545*^9, 3.994074973088262*^9}, {3.9940750163921824`*^9, + 3.9940750181750507`*^9}, {3.994075068546856*^9, 3.994075088637937*^9}}, + CellLabel-> + "In[408]:=",ExpressionUUID->"1b0145b9-c263-4046-9bc6-03f20ecab3a7"], + +Cell[BoxData["2"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, 3.994074326579653*^9, 3.994074935279605*^9, + 3.994074974578923*^9, 3.9940750193451347`*^9, {3.994075073182597*^9, + 3.9940750908104277`*^9}}, + CellLabel-> + "Out[408]=",ExpressionUUID->"7bc51bb9-6bbb-4b19-9688-791c18ee3cde"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.9940736553396893`*^9, 3.9940736559062967`*^9}}, + CellLabel-> + "In[409]:=",ExpressionUUID->"1c396d6a-893b-48dc-8cc2-08ef10f1f076"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.994074326639216*^9, 3.994074935535688*^9, + 3.99407497466455*^9, 3.9940750193870497`*^9, {3.9940750732233963`*^9, + 3.994075090853217*^9}}, + CellLabel-> + "Out[409]=",ExpressionUUID->"c46a7856-0093-4ed2-a7f9-fab8465786df"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "170"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.994073658167858*^9, 3.994073658855419*^9}}, + CellLabel-> + "In[410]:=",ExpressionUUID->"8de3908c-9967-46e7-97c5-da93dbb91232"], + +Cell[BoxData["170"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.99407432665131*^9, 3.994074935546548*^9, + 3.994074974677713*^9, 3.994075019399205*^9, {3.99407507323412*^9, + 3.994075090864901*^9}}, + CellLabel-> + "Out[410]=",ExpressionUUID->"97bbed16-09e4-411f-8cb7-2d5f7cb9d9fd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel-> + "In[411]:=",ExpressionUUID->"36cff24f-2730-4a70-ae5f-44c80f05b7e3"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.994074326662937*^9, 3.994074935557375*^9, + 3.994074974689283*^9, 3.99407501941103*^9, {3.994075073246029*^9, + 3.9940750908767548`*^9}}, + CellLabel-> + "Out[411]=",ExpressionUUID->"8ad97b38-714e-4ceb-8567-a4cf0746eb59"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel-> + "In[412]:=",ExpressionUUID->"c4c6fe41-2a40-4985-b825-fc2006608934"], + +Cell[BoxData["0.5437500000000001`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.994074326674385*^9, 3.994074935568224*^9, + 3.994074974701558*^9, 3.99407501942295*^9, {3.994075073258301*^9, + 3.994075090888695*^9}}, + CellLabel-> + "Out[412]=",ExpressionUUID->"92ccd187-38cc-4392-bcc9-29ef13f5fd36"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel-> + "In[413]:=",ExpressionUUID->"942a0b3a-7df8-40b9-8058-81db0d905c52"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.99407432668569*^9, 3.9940749355790033`*^9, + 3.994074974713187*^9, 3.9940750194346647`*^9, {3.994075073269951*^9, + 3.9940750909003353`*^9}}, + CellLabel-> + "Out[413]=",ExpressionUUID->"4b1f73ef-f962-4199-af60-2c0affa572e8"] +}, 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[414]:=",ExpressionUUID->"707373aa-0b0c-48fc-8691-0925ee0e4a94"], + +Cell[BoxData["6.426003577835178`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.994074326696957*^9, 3.9940749355899067`*^9, + 3.994074974724668*^9, 3.994075019446229*^9, {3.994075073281803*^9, + 3.9940750909055967`*^9}}, + CellLabel-> + "Out[414]=",ExpressionUUID->"9771dd66-86bd-43cc-9c37-14dd2cb198c1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel-> + "In[415]:=",ExpressionUUID->"2db1cb82-f8b4-4dec-982e-7232505e99d8"], + +Cell[BoxData["4.7806909477779245`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.994074326708106*^9, 3.994074935599874*^9, + 3.9940749747357597`*^9, 3.994075019457683*^9, {3.994075073286825*^9, + 3.994075090919847*^9}}, + CellLabel-> + "Out[415]=",ExpressionUUID->"126d1014-4469-400f-8de8-e9d2b11c3c06"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.8747255229"}]], "Input", + CellChangeTimes->{3.991799283179735*^9, 3.994073678806656*^9}, + CellLabel-> + "In[416]:=",ExpressionUUID->"014d0552-9a9c-4487-93a6-43a7d805daee"], + +Cell[BoxData["0.8747255229`"], "Output", + CellChangeTimes->{ + 3.994074326718845*^9, 3.994074935610774*^9, 3.9940749747456427`*^9, + 3.994075019469336*^9, {3.9940750733015203`*^9, 3.994075090931666*^9}}, + CellLabel-> + "Out[416]=",ExpressionUUID->"7b8c13ed-8165-42ff-9de3-c75975e62260"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.3882072479"}]], "Input", + CellChangeTimes->{3.991799280663351*^9, 3.9940736835660563`*^9}, + CellLabel-> + "In[417]:=",ExpressionUUID->"61f06fbc-f9bf-4abf-8406-88a04612eb21"], + +Cell[BoxData["0.3882072479`"], "Output", + CellChangeTimes->{ + 3.994074326731606*^9, 3.9940749356216*^9, 3.9940749747554703`*^9, + 3.994075019480736*^9, {3.9940750733138313`*^9, 3.9940750909438963`*^9}}, + CellLabel-> + "Out[417]=",ExpressionUUID->"9b3127b9-a0f5-4fd1-b083-4b9f94775b9a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel-> + "In[418]:=",ExpressionUUID->"559f4988-7e93-4915-9b5f-13ef42ae01c9"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.994074326743565*^9, 3.994074935632176*^9, + 3.994074974765235*^9, 3.994075019485297*^9, {3.994075073318596*^9, + 3.994075090955942*^9}}, + CellLabel-> + "Out[418]=",ExpressionUUID->"dbcb1f62-d78d-4427-bc72-c6df84f1144d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel-> + "In[419]:=",ExpressionUUID->"30a25338-5f5e-4960-bbd1-64025eb95826"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.994074326755156*^9, 3.994074935643033*^9, + 3.99407497477602*^9, 3.994075019498505*^9, {3.994075073331485*^9, + 3.9940750909684067`*^9}}, + CellLabel-> + "Out[419]=",ExpressionUUID->"58ffb66f-664d-40a8-a67c-2bb43cb6b212"] +}, 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[420]:=",ExpressionUUID->"b5942fda-386e-457d-8dbc-79a4c3027062"], + +Cell[BoxData["2.2478963955971953`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.9940743267687807`*^9, 3.994074935653433*^9, + 3.994074974785841*^9, 3.994075019509776*^9, {3.994075073341671*^9, + 3.994075090978916*^9}}, + CellLabel-> + "Out[420]=",ExpressionUUID->"1febd101-8029-46be-ab2d-6d150b4b2020"] +}, 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[421]:=",ExpressionUUID->"fdc63ed7-5579-43ff-82ff-7b2f7d80ea6c"], + +Cell[BoxData["1.4243583722932822`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.994074326780384*^9, 3.994074935663515*^9, + 3.994074974795456*^9, 3.994075019519595*^9, {3.994075073351719*^9, + 3.99407509098914*^9}}, + CellLabel-> + "Out[421]=",ExpressionUUID->"c085af3f-a527-4c37-bdd9-04ab36a118f5"] +}, 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[422]:=",ExpressionUUID->"6ff41813-c0c4-43cb-b307-c0e34995eab2"], + +Cell[BoxData["0.4215025991580821`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.994074326791608*^9, 3.994074935674151*^9, + 3.994074974805192*^9, 3.9940750195300922`*^9, {3.99407507336273*^9, + 3.994075090999715*^9}}, + CellLabel-> + "Out[422]=",ExpressionUUID->"14e6e542-843a-4d26-9be8-de6d038dfbec"] +}, 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[423]:=",ExpressionUUID->"8df2443b-2533-4d1b-a3e2-1b4cf0d8f9a3"], + +Cell[BoxData[ + RowBox[{"-", "0.08696983109232953`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.994074326803142*^9, 3.994074935687113*^9, + 3.994074974815411*^9, 3.994075019541635*^9, {3.994075073373554*^9, + 3.994075091010479*^9}}, + CellLabel-> + "Out[423]=",ExpressionUUID->"adde3154-f7a8-4325-9793-c5877fa58c08"] +}, 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[424]:=",ExpressionUUID->"a3c6916f-506a-4e34-9223-3a09edea9851"], + +Cell[BoxData[ + RowBox[{"-", "0.5569156814457635`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.994074326815329*^9, 3.994074935701499*^9, + 3.9940749748259974`*^9, 3.9940750195530157`*^9, {3.994075073384471*^9, + 3.9940750910236893`*^9}}, + CellLabel-> + "Out[424]=",ExpressionUUID->"327bb7a0-39fc-4dd6-8ead-01e5117f5209"] +}, 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[425]:=",ExpressionUUID->"58aba826-d624-4a57-a6a0-84f64258744d"], + +Cell[BoxData["0.7095150675393332`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.9940743268278837`*^9, 3.994074935715124*^9, + 3.994074974837141*^9, 3.994075019564198*^9, {3.9940750733955727`*^9, + 3.994075091035767*^9}}, + CellLabel-> + "Out[425]=",ExpressionUUID->"7dbfbe06-dc8f-4565-aa18-8ed572c8b8b9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel-> + "In[426]:=",ExpressionUUID->"24515d9d-01ec-4943-8556-f3358f10ae69"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.994074326840913*^9, 3.994074935728681*^9, + 3.994074974847731*^9, 3.994075019576145*^9, {3.994075073406547*^9, + 3.9940750910471153`*^9}}, + CellLabel-> + "Out[426]=",ExpressionUUID->"c19cda5a-2934-45df-aecd-25a4c5956951"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel-> + "In[427]:=",ExpressionUUID->"1504b6dc-3b0e-4f27-98cd-7951058814ca"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.994074326854053*^9, 3.99407493574161*^9, + 3.994074974858211*^9, 3.994075019594636*^9, {3.994075073417151*^9, + 3.9940750910581427`*^9}}, + CellLabel-> + "Out[427]=",ExpressionUUID->"93dd4ad4-0ea4-428c-b268-b8ce16e1a032"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel-> + "In[428]:=",ExpressionUUID->"09807293-e0ad-45aa-a71d-3fb37c1e2bd8"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.994074326866469*^9, 3.994074935754272*^9, + 3.994074974869028*^9, 3.994075019614243*^9, {3.994075073428639*^9, + 3.994075091069083*^9}}, + CellLabel-> + "Out[428]=",ExpressionUUID->"9b512037-a260-4366-91f2-7dd6db3d4b4e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel-> + "In[429]:=",ExpressionUUID->"9edcabb8-545b-495c-bd1d-223f7243fc56"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.9940743268793383`*^9, 3.994074935766993*^9, + 3.994074974879899*^9, 3.994075019631719*^9, {3.9940750734398613`*^9, + 3.994075091080567*^9}}, + CellLabel-> + "Out[429]=",ExpressionUUID->"f0b6785c-f6ed-4e27-a166-6f9d43d5bc95"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel-> + "In[430]:=",ExpressionUUID->"d55e7d65-add0-4287-b08e-95b088880c38"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.994074326891512*^9, 3.994074935779024*^9, + 3.994074974889886*^9, 3.99407501964223*^9, {3.994075073449995*^9, + 3.994075091090703*^9}}, + CellLabel-> + "Out[430]=",ExpressionUUID->"1177acc0-9fbe-47b5-815d-2636500d9d6c"] +}, 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.994073690740699*^9, 3.994073690862359*^9}}, + CellLabel-> + "In[431]:=",ExpressionUUID->"db63370d-191f-49b4-b1cb-9588293ebd86"], + +Cell[BoxData["66"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, 3.994074326904242*^9, 3.994074935791787*^9, + 3.9940749749005938`*^9, 3.994075019653521*^9, {3.994075073461108*^9, + 3.994075091102222*^9}}, + CellLabel-> + "Out[431]=",ExpressionUUID->"36337149-1e3a-433e-9f79-ee3f37d4a4a0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, {3.994073693453496*^9, 3.9940736957455587`*^9}}, + CellLabel-> + "In[432]:=",ExpressionUUID->"9c310da3-6b04-46e7-8046-ec8d7a4efc3b"], + +Cell[BoxData["28"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.994074326916279*^9, 3.9940749358034363`*^9, + 3.99407497491004*^9, 3.994075019663575*^9, {3.994075073471445*^9, + 3.994075091112747*^9}}, + CellLabel-> + "Out[432]=",ExpressionUUID->"cebf5036-dede-4b80-a327-ea3915d2c32a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel-> + "In[433]:=",ExpressionUUID->"bbde5e1c-d408-43ac-9446-505d623205d4"], + +Cell[BoxData["70"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.994074326928279*^9, 3.994074935814618*^9, + 3.994074974919529*^9, 3.994075019673669*^9, {3.9940750734815598`*^9, + 3.9940750911232967`*^9}}, + CellLabel-> + "Out[433]=",ExpressionUUID->"87d7851f-1340-47d6-9816-a4eb86236036"] +}, 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[434]:=",ExpressionUUID->"194c0861-57cb-4f6a-9737-5e902fa734fb"], + +Cell[BoxData["0.1087764705882353`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9940743269397917`*^9, 3.994074935826476*^9, + 3.994074974929028*^9, 3.994075019683881*^9, {3.994075073492182*^9, + 3.994075091133902*^9}}, + CellLabel-> + "Out[434]=",ExpressionUUID->"2efcb1d0-c70b-4f8e-9247-858cf517b586"] +}, 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[435]:=",ExpressionUUID->"d369bc80-4e5f-488c-a048-377340b61c98"], + +Cell[BoxData[ + RowBox[{"-", "2.5658588235294117`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.994074326951318*^9, 3.9940749358379097`*^9, + 3.9940749749388123`*^9, 3.994075019694408*^9, {3.994075073502742*^9, + 3.9940750911440773`*^9}}, + CellLabel-> + "Out[435]=",ExpressionUUID->"f1746dfe-74f3-4f23-8731-370fff4284f3"] +}, 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[436]:=",ExpressionUUID->"04c76e26-c04c-4fd2-bf35-75b2bc9a4072"], + +Cell[BoxData["17.474387700041003`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.994074326963644*^9, 3.99407493585293*^9, + 3.994074974948763*^9, 3.9940750197049227`*^9, {3.994075073513197*^9, + 3.9940750911556253`*^9}}, + CellLabel-> + "Out[436]=",ExpressionUUID->"e26dd477-ca73-4d15-af44-1a0b0d83f12e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel-> + "In[437]:=",ExpressionUUID->"fc5b5b54-94a3-43c3-8a44-2eff6945eba3"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.994074326975409*^9, 3.994074935865913*^9, + 3.994074974958894*^9, 3.9940750197157593`*^9, {3.994075073523876*^9, + 3.99407509116647*^9}}, + CellLabel-> + "Out[437]=",ExpressionUUID->"3d406e82-145b-4854-b07b-ddc1842c5bca"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "1.895"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { + 3.9940737081112833`*^9, 3.994073709172043*^9}}, + CellLabel-> + "In[438]:=",ExpressionUUID->"89b30c0d-d26d-43fd-9e05-942f44c71582"], + +Cell[BoxData["1.895`"], "Output", + CellChangeTimes->{ + 3.99407432698682*^9, 3.994074935879013*^9, 3.994074974974915*^9, + 3.994075019726281*^9, {3.994075073534071*^9, 3.994075091176951*^9}}, + CellLabel-> + "Out[438]=",ExpressionUUID->"8b671d44-c4a8-4d86-8281-7f451c7c3c42"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel-> + "In[439]:=",ExpressionUUID->"7eec31d4-e290-4d0d-8cf4-db44d99d267d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.785"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.994073711335288*^9, 3.994073712564888*^9}}, + CellLabel-> + "In[440]:=",ExpressionUUID->"17359210-f5c0-41e4-9a26-40af026ba776"], + +Cell[BoxData["0.785`"], "Output", + CellChangeTimes->{ + 3.994074327001001*^9, 3.994074935894207*^9, 3.994074974988394*^9, + 3.9940750197399607`*^9, {3.994075073548934*^9, 3.994075091190888*^9}}, + CellLabel-> + "Out[440]=",ExpressionUUID->"294f100b-7718-4c92-9d87-ec7586264b55"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel-> + "In[441]:=",ExpressionUUID->"b831c6df-63d3-4eb4-9c2d-bad970a4708a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "2.605"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.9940737150021257`*^9, 3.994073716213628*^9}}, + CellLabel-> + "In[442]:=",ExpressionUUID->"a82c32e6-9644-43c8-84c6-a984343f5d78"], + +Cell[BoxData["2.605`"], "Output", + CellChangeTimes->{ + 3.99407432701412*^9, 3.994074935907247*^9, 3.994074975000514*^9, + 3.994075019753892*^9, {3.994075073561831*^9, 3.994075091203961*^9}}, + CellLabel-> + "Out[442]=",ExpressionUUID->"fa9d8691-b49c-4129-9a11-d2b876f94ca3"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel-> + "In[443]:=",ExpressionUUID->"08594332-f9c9-49de-8640-ebbb5d154674"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.125"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, {3.994073720159833*^9, 3.9940737213308268`*^9}}, + CellLabel-> + "In[444]:=",ExpressionUUID->"536b6d61-fe40-4c6d-acb5-237ee933fd8e"], + +Cell[BoxData["1.125`"], "Output", + CellChangeTimes->{ + 3.9940743270271187`*^9, 3.994074935920094*^9, 3.994074975012611*^9, + 3.994075019766945*^9, {3.99407507357449*^9, 3.994075091216796*^9}}, + CellLabel-> + "Out[444]=",ExpressionUUID->"9e8acd84-519c-4e0d-89bc-daa26b67abf9"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel-> + "In[445]:=",ExpressionUUID->"1286c31b-6c3e-436b-acd7-1f05e5f2f1de"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.145"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, {3.9940737243709307`*^9, + 3.9940737264630413`*^9}}, + CellLabel-> + "In[446]:=",ExpressionUUID->"f9519009-e507-492b-93e4-2ebbe6a1c510"], + +Cell[BoxData["1.145`"], "Output", + CellChangeTimes->{ + 3.9940743270398684`*^9, 3.994074935932911*^9, 3.994074975024604*^9, + 3.994075019782*^9, {3.994075073587862*^9, 3.9940750912294607`*^9}}, + CellLabel-> + "Out[446]=",ExpressionUUID->"e0aed65f-abe0-4e89-920c-45a6c7efc0fa"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel-> + "In[447]:=",ExpressionUUID->"f69d3dce-28c8-4026-b684-5b1d934710a8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.565"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.9940737287627993`*^9, + 3.994073731586865*^9}}, + CellLabel-> + "In[448]:=",ExpressionUUID->"c7b878bc-8afa-43e6-8b34-0476fc19185e"], + +Cell[BoxData["0.565`"], "Output", + CellChangeTimes->{ + 3.994074327052676*^9, 3.994074935945746*^9, 3.994074975036669*^9, + 3.994075019795862*^9, {3.994075073601301*^9, 3.9940750912417994`*^9}}, + CellLabel-> + "Out[448]=",ExpressionUUID->"ab4238b1-5831-4530-aabc-b14297c10e65"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel-> + "In[449]:=",ExpressionUUID->"e5426d1d-dfa7-4f5d-ba9c-e3b73fd9a4ac"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "1.5"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.994073736277706*^9, + 3.994073737300967*^9}}, + CellLabel-> + "In[450]:=",ExpressionUUID->"ffcc49f1-1bf7-4877-89a9-84c1f6b1893d"], + +Cell[BoxData["1.5`"], "Output", + CellChangeTimes->{ + 3.994074327065536*^9, 3.9940749359585743`*^9, 3.994074975048807*^9, + 3.9940750198098516`*^9, {3.9940750736145077`*^9, 3.994075091254464*^9}}, + CellLabel-> + "Out[450]=",ExpressionUUID->"f1e37cc7-df75-4cc0-a623-4f82f8cc691b"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel-> + "In[451]:=",ExpressionUUID->"9a7e0309-288b-4ddf-90f9-f8d951d89362"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "0.635"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, {3.994073740255535*^9, 3.994073742830049*^9}}, + CellLabel-> + "In[452]:=",ExpressionUUID->"3e620f06-cbce-4668-834b-0e037d8ed983"], + +Cell[BoxData["0.635`"], "Output", + CellChangeTimes->{ + 3.99407432707825*^9, 3.994074935971406*^9, 3.994074975061311*^9, + 3.994075019822795*^9, {3.994075073627393*^9, 3.994075091268227*^9}}, + CellLabel-> + "Out[452]=",ExpressionUUID->"6d2aa252-4daa-4dae-83d6-d1e960deec09"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel-> + "In[453]:=",ExpressionUUID->"a9a33099-11b0-48de-8623-8c52261917f5"], + +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[454]:=",ExpressionUUID->"af53eeb9-f3a5-468c-9272-bdb3eb8d7245"], + +Cell[BoxData["0.12734722137174234`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.9940743271585913`*^9, 3.994074936065404*^9, + 3.9940749751004868`*^9, 3.9940750198601313`*^9, {3.9940750736645*^9, + 3.994075091306961*^9}}, + CellLabel-> + "Out[454]=",ExpressionUUID->"1752660a-eb5d-4653-bf13-064231d220dd"] +}, 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[455]:=",ExpressionUUID->"a948efa2-657b-4b94-a800-b8db1e74b021"], + +Cell[BoxData["7.503764283698204`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9940743271979237`*^9, 3.994074936098249*^9, + 3.994074975128014*^9, 3.994075019886159*^9, {3.994075073691079*^9, + 3.994075091332656*^9}}, + CellLabel-> + "Out[455]=",ExpressionUUID->"c1c2080a-d4fc-4ab8-8452-7e143aac02f5"] +}, 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[456]:=",ExpressionUUID->"92f1dfeb-5e3c-484c-9a16-cf2b6ea3ed47"], + +Cell[BoxData[ + RowBox[{"-", "14.220629552114458`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.9940743272387447`*^9, 3.9940749361294937`*^9, + 3.994074975156514*^9, 3.994075019911666*^9, {3.9940750737180433`*^9, + 3.994075091358534*^9}}, + CellLabel-> + "Out[456]=",ExpressionUUID->"0886f4c3-b9a7-48df-a57c-569d37ee9f60"] +}, 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[457]:=",ExpressionUUID->"62f47c3c-85a5-444f-ae96-138c6dbfd4a5"], + +Cell[BoxData[ + RowBox[{"-", "18.05754390959481`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.994074327278555*^9, 3.9940749361661787`*^9, + 3.9940749751890287`*^9, 3.994075019948382*^9, {3.994075073748582*^9, + 3.99407509139049*^9}}, + CellLabel-> + "Out[457]=",ExpressionUUID->"92273eb4-7a74-483c-b588-a11b499517b1"] +}, 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[458]:=",ExpressionUUID->"9c8c7dfd-906a-47eb-b578-8526cad374c5"], + +Cell[BoxData[ + RowBox[{"-", "51.76635903245878`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.994074327318758*^9, 3.9940749362040663`*^9, + 3.9940749752210827`*^9, 3.994075019983523*^9, {3.9940750737782516`*^9, + 3.994075091423628*^9}}, + CellLabel-> + "Out[458]=",ExpressionUUID->"bfd7cf19-a2ee-4254-a46b-4b7fc94f0449"] +}, 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[459]:=",ExpressionUUID->"7bdfe7e1-55b5-4e0d-b7b9-96c0dc9db906"], + +Cell[BoxData[ + RowBox[{"-", "131.16526179683018`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.994074327362462*^9, 3.994074936248407*^9, + 3.99407497525825*^9, 3.994075020024899*^9, {3.994075073816177*^9, + 3.9940750914627743`*^9}}, + CellLabel-> + "Out[459]=",ExpressionUUID->"7f5402e5-c3ab-4d3a-990e-3eda68450081"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel-> + "In[460]:=",ExpressionUUID->"c4d8b1b4-5123-4b97-8d9d-d1d3fc1d7555"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.9940743273758507`*^9, 3.994074936262808*^9, + 3.994074975269576*^9, 3.99407502003885*^9, {3.994075073828107*^9, + 3.994075091476185*^9}}, + CellLabel-> + "Out[460]=",ExpressionUUID->"331882c9-1152-4b3e-9f43-a2f1167cae8f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel-> + "In[461]:=",ExpressionUUID->"4daf7a7c-622c-47c3-b5fb-0cf7246a4b73"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.994074327386962*^9, 3.9940749362749443`*^9, + 3.99407497527983*^9, 3.994075020050624*^9, {3.994075073838533*^9, + 3.994075091486505*^9}}, + CellLabel-> + "Out[461]=",ExpressionUUID->"803692b2-953a-4011-98b5-3c705cdbe364"] +}, 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[462]:=",ExpressionUUID->"1b1d1463-8589-474d-b533-05533221ce5a"], + +Cell[BoxData["102.57012833062927`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.9940743273966637`*^9, 3.994074936286751*^9, + 3.994074975289721*^9, 3.994075020061038*^9, {3.9940750738489656`*^9, + 3.994075091497402*^9}}, + CellLabel-> + "Out[462]=",ExpressionUUID->"54a1411e-c577-43be-8a45-a4613c86e6ae"] +}, 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[463]:=",ExpressionUUID->"6711db2d-76c0-45fc-a154-b6e909463e13"], + +Cell[BoxData[ + RowBox[{"-", "89.85372860437164`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.994074327406303*^9, 3.9940749362972116`*^9, + 3.994074975299696*^9, 3.994075020070904*^9, {3.994075073859618*^9, + 3.994075091508032*^9}}, + CellLabel-> + "Out[463]=",ExpressionUUID->"e4d1cf93-7b9a-4abb-bb91-8958bf792072"] +}, 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[464]:=",ExpressionUUID->"2f46feef-fe19-4ae6-b041-de643f5933ea"], + +Cell[BoxData["106.05157029710364`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9940743274159946`*^9, 3.994074936339744*^9, + 3.99407497530958*^9, 3.994075020080964*^9, {3.994075073870014*^9, + 3.994075091518471*^9}}, + CellLabel-> + "Out[464]=",ExpressionUUID->"eccf34c4-5424-4a72-96e5-ba1b9465448f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel-> + "In[465]:=",ExpressionUUID->"ab8d5ccc-87e4-41b2-a61b-3a61982208ac"], + +Cell[BoxData["0.4215025991580821`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.9940743274252653`*^9, 3.994074936349539*^9, + 3.994074975319766*^9, 3.99407502009256*^9, {3.994075073880959*^9, + 3.99407509152868*^9}}, + CellLabel-> + "Out[465]=",ExpressionUUID->"d3169ac3-6ffc-4bb8-90c6-6d5d74d56ea1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel-> + "In[466]:=",ExpressionUUID->"f0e29519-e5d2-4030-8e3e-5e1a05e73def"], + +Cell[BoxData[ + RowBox[{"-", "0.08696983109232953`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.9940749363615837`*^9, 3.994074975323977*^9, + 3.994075020102562*^9, {3.994075073891796*^9, 3.994075091539506*^9}}, + CellLabel-> + "Out[466]=",ExpressionUUID->"cccab308-5eb9-4ca0-bb10-e9b1fdc432aa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel-> + "In[467]:=",ExpressionUUID->"e4d3f5d0-7ba5-41d4-9d75-26e182eaa293"], + +Cell[BoxData[ + RowBox[{"-", "0.5569156814457635`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.994074936371666*^9, 3.994074975333539*^9, + 3.99407502011357*^9, {3.994075073902575*^9, 3.994075091549716*^9}}, + CellLabel-> + "Out[467]=",ExpressionUUID->"10de6b50-f5e9-482d-8d51-4c39d987eeb9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel-> + "In[468]:=",ExpressionUUID->"c5d1c79f-9d47-4e53-aa84-e02f48280215"], + +Cell[BoxData["0.7095150675393332`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.994074936381706*^9, 3.994074975343092*^9, + 3.994075020123022*^9, {3.994075073912849*^9, 3.99407509155998*^9}}, + CellLabel-> + "Out[468]=",ExpressionUUID->"5f304fad-9033-4c64-9933-908f1226d416"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel-> + "In[469]:=",ExpressionUUID->"1f76c2c6-d44b-4ad1-a305-91d6d9cfb3de"], + +Cell[BoxData["2.2478963955971953`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.994074936391926*^9, 3.994074975352632*^9, + 3.99407502013336*^9, {3.994075073923398*^9, 3.994075091570552*^9}}, + CellLabel-> + "Out[469]=",ExpressionUUID->"c4c0310f-0117-4a9b-8ffb-029e909ea83f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel-> + "In[470]:=",ExpressionUUID->"abcec447-a992-4fb6-a942-f6cc08e5359a"], + +Cell[BoxData["1.4243583722932822`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.994074936401989*^9, 3.994074975362446*^9, + 3.9940750201447487`*^9, {3.9940750739335833`*^9, 3.994075091580728*^9}}, + CellLabel-> + "Out[470]=",ExpressionUUID->"3162e120-9206-43af-a40a-7c4441ab06b3"] +}, 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[471]:=",ExpressionUUID->"57c61dac-80b3-4542-b4fe-84eefab12319"], + +Cell[BoxData[ + RowBox[{"-", "33.35096235519822`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.994074936412284*^9, 3.994074975373137*^9, + 3.994075020154063*^9, {3.994075073943824*^9, 3.99407509159135*^9}}, + CellLabel-> + "Out[471]=",ExpressionUUID->"f74048a6-5a4d-46ab-92f5-9a8ce66e8449"] +}, 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[472]:=",ExpressionUUID->"88cb455b-c21f-428e-90d8-99b777f7069f"], + +Cell[BoxData[ + RowBox[{"-", "6.430095836913352`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.994074936422553*^9, 3.994074975386326*^9, + 3.9940750201636887`*^9, {3.994075073954281*^9, 3.9940750916019077`*^9}}, + CellLabel-> + "Out[472]=",ExpressionUUID->"f1ca22ea-5f4d-4b5a-b5f3-43ce9e6dc189"] +}, 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[473]:=",ExpressionUUID->"93b7a45c-6511-4e69-9c45-0d633fd7f374"], + +Cell[BoxData["69.21916597543105`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.994074936433895*^9, 3.994074975398871*^9, + 3.994075020173421*^9, {3.994075073964881*^9, 3.994075091612443*^9}}, + CellLabel-> + "Out[473]=",ExpressionUUID->"56aece5d-bed6-4b8e-8e02-2562ea80be8d"] +}, 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[474]:=",ExpressionUUID->"56296330-5f4c-4d26-8935-94174ff82c03"], + +Cell[BoxData[ + RowBox[{"-", "89.85372860437164`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.9940749364442453`*^9, 3.994074975409512*^9, + 3.9940750201838827`*^9, {3.994075073975268*^9, 3.994075091623101*^9}}, + CellLabel-> + "Out[474]=",ExpressionUUID->"422bc55e-ad24-4e67-a92f-f47f4a5275e0"] +}, 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[475]:=",ExpressionUUID->"d96ee3ec-f062-4f5e-8919-9123d91d7459"], + +Cell[BoxData["99.62147446019029`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.9940749364549513`*^9, 3.9940749754197397`*^9, + 3.99407502019348*^9, {3.994075073985984*^9, 3.994075091633762*^9}}, + CellLabel-> + "Out[475]=",ExpressionUUID->"d78fec70-bba0-4067-8341-8d5ca2da841a"] +}, 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[476]:=",ExpressionUUID->"33137ca0-f184-4c25-89cc-b6113bf33322"], + +Cell[BoxData["40.3202486570226`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.994074936466222*^9, 3.994074975429769*^9, + 3.9940750202031527`*^9, {3.99407507399641*^9, 3.994075091644145*^9}}, + CellLabel-> + "Out[476]=",ExpressionUUID->"05bd9f17-9fdb-4b6f-9ceb-c36aa2203f03"] +}, 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[477]:=",ExpressionUUID->"92750103-210c-42fb-ae6c-b7962adcac6e"], + +Cell[BoxData["624.5259763904654`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.994074936476499*^9, 3.994074975439941*^9, + 3.994075020213862*^9, {3.994075074006929*^9, 3.994075091654208*^9}}, + CellLabel-> + "Out[477]=",ExpressionUUID->"8a6efb38-a045-4948-a637-f1bb1190bc1f"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"f1", "=", "0.4126334817"}]], "Input", + CellChangeTimes->{3.9918505481678543`*^9, + 3.99423550540412*^9},ExpressionUUID->"83cccf0d-dccb-fb42-a058-5e950c758893"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991850549355442*^9, @@ -30,9 +4928,9 @@ Cell[BoxData[""], "Input", e7a6896afd10"], Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", - CellChangeTimes->{ - 3.991850550777445*^9},ExpressionUUID->"b70cfd2b-21a1-8344-9518-\ + RowBox[{"f2", "=", "0.1129347808"}]], "Input", + CellChangeTimes->{3.991850550777445*^9, + 3.994235509197481*^9},ExpressionUUID->"b70cfd2b-21a1-8344-9518-\ 5e27a96171a9"], Cell[BoxData[""], "Input", @@ -1562,66 +6460,96 @@ MathPictureEnd 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"], +eJzVnGdgVUUWgENekkeIRCAEpWhiqAkEkIBUQekGYaUsZRdBmgYQRMSyCkhR +6VKWjgIKSFmpsiIIuLqr0lEUld5xBZQm0pl957yZc++83DPzsuLK/sjk3Zlv +zjn3zNyp907TTv2yuvXq1K97l07Jjfp26pPVvcszyQ2f6huI8uWKiMh1MPCX +mhwRFfgtIiK0YKy4Lg5BEPgtxA1xCILf73c6/vOBbfALrzBc/n+UHhNMDvxa +4opNoNi3eFl5IYwjchpPJkKYm8iJPFkUQj+RY3kyWbd+FE+WhDCayGEuEsFU +PX0oL6mcTg7iyYoQRhE5gCczdPJFnryPLMbrF3iymi7zWZ6sqZN9ebK2rr0P +Tz6gy+zFk/V0mT15soEuM4snG+syH+fJTJ3sGlovHtbTO/OSmunkYzz5iE52 +4MkWOtmeJ1vp5J94srVOtuXJtjrZmidRXSSRf+TJP+syW/LkozrZnCc76uQf +eLKTbmcznuysy3w4tF501dMzQ9Mf19Mb85qydJsa8WR3XWYDnuypy6zPk0/q +MuvyZG9d5oM8+ZQusw5PPq3LrM2TfXWZtXiyny6zJk8+q8uszpPP6zKr8eQL +usz7QuvFi7qkKrykl3RJGTw5QJdZiScH6uS9PPmyrr0CTw7WZZbnySE6mc6T +Q3XtZYNkoiSvXrlKZKJH7ld1PWnB3JH4L1qMGztOlC5dWpQpU0b06NFD3Lh+ +IxALaVHiyuUrombNmqJEiRLiyOEjUTLL0iVLMUvx4sVFlSpVxJLFSyJiMC1G +zJg+Q9StW1eULFlSpKaminr16onPPv0st4ddr+l2pQbtivAjsPqD1eKhhx4S +F36+gDfYs2dPMWL4CDLtx1M/iri44Ehrw+cb/FL+nt17xBNPPCG6dOkiUb9Y +tHCR2L9vv9Irdn69U5QtW1bs+HJHhN/DrmG6t0tLu3wINGrUSHyx/QvpPp84 +d/acSElJkZ4Jxh0/dlzs+m4XXsXKuObNm4sVy1fglXJGwG9gqPRcdkNG6A4q +RYZcu3pNFC1aFMvKJzPWqlVLfPftd3iVT8Zt3LBR1KlTR1MKhtWuXZtVOlJX +WpKUnjxxUlSsWFFmCYYdOnQQaz9ci1e3SXef/um0aNu2LdaQChUqoPsLFiwo +Ll+6TEYsfnex6Nixo2MEDmNG6o4vTqoP7D8gqlevrqnOysoSy5Yu01Q3adJE +TJo4Ce/lzOkzomnTpiI2NlYcPXJU5vND4Ynp06aL69euI7d71240dfOmzZ61 +YYzujxQy6tTJU57+WLd2HV7FybjDhw5jdYMrVWvAl/Hx8VBTZN4YMXfOXLxJ +8Fm5cuVE1apV4SnwenJe1226x1oxVG1UNn3y8SeiRYsWmu2FChXCB95tJ9g0 +dcpULa/bkLG6Icnao9K4cWOxfdt27VGBlsQpMZ84dPCQKF++vKZ0y+YtokGD +BppxNkPG6YYkaW3JmtVrRMOGDcX5c+fxDqGZGzN6TES89DxUk8mTJiMbqCoi +IyMDHp2oMHVP0HXfpbev48eNx8YQ6livXr2waOJlGtTR9u3bYzoU+8r3VlIj +AlqLFCkCVSFwFQxl1dIaG7clf9UtKRa0xKtHmaiTRXlykk4W4ckpOnknT07V +yTt4cppOFuLJ6TqZ6CIRnKE3Lgm8pDd1SQV4cqZO5ufJWTqZjydn6+TtPPmW +Tsbz5Ns6mZcn5+pkHE/O08k8PPmOTsby5HydzM2TC3TSz5MLdTImtF4s0tOj +eUnv6qSPJxfrZCRPLtHJXDy5VCe9oWUE3eCh5QRd56EVBF3jofcIuspDKwm6 +wkPvE3SJh1YRdJGHPiDol9CiXk1JF0KT1lDSz7zoDwk6z0NrCTrHQ+sIOstD +6wk6w0MfEXSahyrIuG7duuFQrHLlyoErCONwEA3DBsniCBo6yLS0NBrC9evX +D4dvwSG638gEHyDveYWyDYZDMO6Cq6gwZMbRTd4ppQdmI2A//kGO/PnzB3rc +4H2NHDGS7tw+y4nGXjU9PR3HITBMOPHDiYgkq55otx7l2cDdeHsVxj6DXh6E +Q4tSpUqhrNatW+MAMNmqK4+my+Ap0y3Z1eiu8xkKy3Q7hj5D1UMYEsPQOTAh +kmriRLVq1TSP7d2zF8ZD4uIv+LDjJHDgwIGiXbt2VA9NTNDUGG4iqcwbPGiw +GD5suHZ3JrG3UVUsIiXAhKJVq1bSu0alyiaYIMIQ/9jRY6hg/jvzRWZmZoqH +xCjWZf5sLgNNs2bOgrkxDaZhzgnz8EsXL0Xw8sNzJWN2cQ+xfta9PquZhqGE +mm0F6jOuPATEkIixr49VkzpSDx4Dz8FVukdcpLwzOavXHtfArF5l+fabb1Ed +XOXxEOO0T4UNlYJRotwy7LVh2Ew5dumT+mRWdPj+6N27t5jz9hy8usdDntfN +RYZpn5c8v8GBblsMY8J7ZRwsK0CFHz1qNM3CApVTrF+33lW8fncc/tnWSsrJ +OGgqYTbqmKPLz+thWyHDA2vTq1wItSIwS9bi+vfvTzNOr2KPMfhk2tRp+ODa +ith9b+Ha4iUvt8F/blsMRVxJxsEDASsgE8ZPIDOhF4PlH6eIY9xx+CdXppTn +3YtSqnRfGfoKPhBu69yi4+kJNpWpbQlM+Qy6TJjbu+NmvjkTfcmVqd/gBFg3 +gBbTVqbuOwrXFlOZennNbYuhTDNk3NkzZ9GswIiE+pFRI0eJfXv3IQstFHQS +zZo1SzMnK4fbFgNVkcOYBR44pwBZ0fmp9BM9vBEVpmLl3aSkJBiLaXEL5i8Q +ffr0YUs/N+suv1i4YKHWoq16fxUuOZ8/d96zS48232xUmGaaKkZ235rNNHTp +lWXcpo2bcMnT8W4Mjmxh+Ar/YXQA3g48H2nmZFU2tgVaZQ0MYr8//n04mgtQ +RSloqCg2xcrbMJbyejQHDBjAVpRYg7u6du2KTTg0xTAih+XwwGTBa3wWbb7P +qDAt9KojsQa3Mha6pwxYO6rIXAUKFIAOVNMv651WhO441Tna1sJVXhjXTJk8 +RSstt7xCVOYJhjK3aVPWy0VxLQ6aYugquTLPY/AGeFQNKUqxBa3fkT9MW0yl +6+U1ty2G1Ug1C9y6ZasYOmSoph629WBbkSsMrwL3y2J33Q7+yf2GNJkFkmBD +zK0Omsf69euz6u6gss8nS1ven/JJjFm3qh0wBVIdqbseq3n13d7So3PoKXcB +lDAZ7F0fbFYmma0M18E5qiZ+8c3Ob3AjBHZxoBuDQS/spga6N3r6wq0izE6Q +qiJvzHiDpjjKWhhfQ4PONUF3UhVRuzpA16hRQ7Rs2VLMnjUbXETb44wBanwC +7SUM2ORAWsybOw92p5IMkqNz4Ca354tbrfV2IWNistXE8N0bZgWpKC3atnUb +diqFCxfGTgWqcKCZVDcNS37Qj8EWWqTcSAPrlJgyYXI+eYdeG3ruCgS9QKD3 +j/DJMCEhAdeD3Hdo01WQKtXtMgfs2GZmZqI//QZL1AogjMRAAxQVNE6BqQu1 +525ZMeE5EYoEVLl3I6GNUwYnsaLDd6yXySkecqNz6Gyb7YZtpi1UDod5aCtB +hpegtxF0kIe2E3SAh74gaD8PfUnQPh7aQdBeHvqKoD089DVBwZ4iWG4CItZD +YNjXivWIy03i8oSZ41aSEpLj1+QNSfVRatRvZv2tJOXmeNKwIXEr3eyt5DKv +HFGU6vvNrL+VpPzmla+aR1xVyljdI7UMpcbnOK+XtkTeuF0kbCcP7Sboax7a +Q9BXPLSXoB08tN8jbjuPH/CI28bjBz3itvL4IbLYAB0maIsLQuYIJW3m8x8l +aBMPHSNoIw8dJ2gDD31P0Oc89G+CPuOhHwj6lIdOEPQvHjpJ0D956BRBn/DQ +jwR9zEM/EfQPHjpN0EehxXqGktaHJp2lpHW86HMEreWh8wR9yEM/E7SGhy4Q +tJqHfiHoAx66SNAqHrpE0Ps8dJmgv/PQFYJW8tBVgt7joWsErQgtseuUtDw0 +6QYlLeNFY5jLI2GxJU+kR8K7ljzO4NBGOj353yxkNJGLLGQMkQstpJ/IBRbS +6UXnW8hYIt+xkE5fPs9COpv6cy2k807InNBqgul5Kf1tiyRnG9LwjSmGtxM5 +20LmI3KWhXR2N960kAlEvmEhnZWMGRYykcjpFtJZkZff1+b4hbBsn7YE1yq8 +X5xSi3M5+LQFQ2fxOLh7TuPm7Fv52b5nUfszzCs3as8tp5+2YOisWE7h7VK5 +3d+yqIUX25sgKq/t+xYMC5M1k3lr1CqY7QUFpdn2kQuGRUjzJLtm2za60uz9 +ZUuIvol2fbbd2UipNaefs2B4F1kywW6JbQ9QvUOVg+9XMLybjBhvN8K2VRXu +BysYJpHmcdR+ABCyr0GfUdn2RXKkPJmUjyXlXovm+aRbmfX2cD9OwfAe0vl6 +UKey2L2sml8+417LsG5tOf0oBcMUsmBM0AK2cS9O5GgLWZLIkRayFJEjLGRp +IodbSGcuPsxCphL5mot0hgdplP6qRVJZymg4kAHDdJI5xEKWJ3KwhaxA5CAL +WZHsHGghK5FMw3EQGGYQ2d9CVibyJQtZhez8i4V01lYMR0xgWI3I5y1kdSKf +86wXNeiyn2d6Lcr/jEXT/UQaDrPAsDapMBxmgeEDJPMpC/kgyexlIeuRzCct +ZH0iDQdkYNiAtHe3kI1IpuEoDQyd8zQMR2lgmEkyu1nIJkRmO3QD052TNzp7 +pjej/J0smh4hsqOFbE4qHrWQLUmm4VAODJ2TOQyHcmDonMxhOJQDw7akvY2F +bEcyDYdyYOiczGE4lAPDR0l7CwvZgWQ+YiEfI9JwKAeGzskc2Q7lwHTnZI5M +iyTnjA7D8RwYZhHZ0EL2INJw6AaGzskbhkM3MMSTN3BYXcdCPk0y77eQz5DM +GhbyOZIpj70I7gn86hmoOtgAhmNKjN/vVxLatGlDEthR1gt0F/IgjbySDGPG +qcbp8gttvGLH7i+Rokq8Iq8pZI604OABj5Yqz2spkBOJg0li2f9CojOVe4Xk +lL5JluHAFI/uSrlJEnGgjQeMFbtJEvHz8niIl98vx8mqFDJxUu/KwVcfUgAo +8No8wxBXhrAixumPFD8vihKdO3fGl4eWL1sO78GxwuXKrTpwIPuMx4ffPsGL +r8WKFfPc4XPLYduF/1E6/v4dDvaLyPUfxyNRZA==\ +\>", "ImageResolution" -> 96., "LightDark" -> \ +"Light"],ImageRangeCache->{{{0., 359.}, {221., 0.}} -> {-19.402618477936908, \ +0.8923747627909967, 0.7099700316630947, \ +0.001262238128389079}},ExpressionUUID->"8a200671-82f1-364d-8dba-8342607ad7b7"], Cell[BoxData[ TagBox[ @@ -2020,68 +6948,106 @@ MathPictureEnd 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"], +eJzVXGmUFEUSbug5kEFuQRiRWxgYDmFmGJiBEVRuWFhwXcHHcx6HKCCzAquy +gLq8VZBBDmVRkFMRlCcCgoAil7sIrByK3Mdws3LfN+R2RFdFVZaRmd1t43N/ +TE9VVHzxfRmZlVUZVd3tsgf27tkve+Bz3bMrtHgxO6f3c90HVGje/8WAyZ/P +58t3IPCXVMEXE9gWPp/0MUbcFgfhI7AtxB1xED7C3+6P/+LFnt17xPPPPy9q +1KghqlWrJurUqSMGDhworl+77stAn1hx+NBhkZKSgn/gV6xYMV9+2PP5xVsj +3wIv9Mxv+Y8dMxZjVa9eHWPfuX3Hl2qMVdAdS6crDUP5Rc+ePUXJkiUtIcHP +hIQEcevmLcvDJIeLkeCOYZJixYkX27dtR58GDRqIevXqoe/wvw8XN2/cDChQ +64iVe2Pvnr1i0ReLxNUrV5E6ABfDhg0TTz31lK+JJXnL5i2ic+fOVlD4jBPL +li4TrVq1EpcvXUZMnz59xMgRI9MZSEwIVHaGDx08JOrWrSsWLlhoZdMv0tPT +KcP59fSpyjAJ7jD4p5NjJzlvf57YtXMXYS6cv4BJzsnJsZqllGLleZClCNSA +KtjL1OS1RYsWaHczVqpUictrQSa0nYATP58QqampYtrUaVbO/GLM24GT+NZt +KY8KurQQw8QzEmypN67fEJUrV3adGEo6T64CPSBWfLNCmasYywa9mZiYiMPa +HiyZmZli546duJemSZqbw/Y7e+YsjpLcUblWf5g5UhlsAsNhZ2XCuxNE69at +XZ1g5vDL6alVqxYOTFN6Tp44iR3jhPCLbt26ieVfLzemx83RwLJBZzVs2FCM +Hzc+bA43luNIs5TDbFWiRAnRrFkzGFD+EGmsDOVYw2zUW6PEvr37cIjBUH39 +tddF+/btufnMbggIAYFuht69e4v5n89XJitWT9fIgpw/dx7b+s3ybyi0ia4B +g43R09kj7NLFS2LEmyNgwg+5dZ78wfWmefPm+D8pKQldAz2oy9+pk6fYHgoI +N+ZPQZdhQTas34BXOfcpY6JLZ7B+PZ3dXVlZWXTmhUon5S948lpTnK9pBBOY +dcnRJE3myLIm4+LFi0Msml5N8e0B4cJRk93xG1u2AQMGiI9nfRzS5GVzaFKT +ZSXDyrbdzDirn1q2bCk2b9pMrYE5pEqVKmk6lExgt2/j9xvxsu3WffrU6V9c +nhSMqWGF4VP37LPPisWLFodCF6vOWBNrCMB4bNSokejUqZOYPm06tN9np+2r +ZV/h8L544SJeg+HGb3Tu6FQjlMtd8D6zbNmyGBZmG7jQdezYEWYhmpG0lKGE +kKnTLdwPW37AO6uDB3AJIbb9tE1UrVoV8CZqTw7hBjg5ORn+Aj0Hn35MgM1o +TzVrVq/BqzMkJd5K2Lix45AVLk39+vXDgd6A8Y8LkSvVUr5p4ya8HypTpgze +vMN9VSB2rIY2TQ+NCVFBikUx99O5onHjxniBgfwHJkurFTy9lVTVAq+WRQ9r +RpsKPxf8fxyvFLQGDq+Aj3w6K8bKD4ZCTNSEcGxOFOXWvb+W47ew/U7Vx7ht +8FcODPdoFSd4O/kx2nqcIXqUsT3G2HCWKQamxnebqj58FgJTjCoKT48OLeGj +IOw+wx5vBh8FYLe367ifjuNUHg+7L/Cnns/2xKk+DvYHGDxx0oqF/ZcNnnXJ +c4jbM8btSVKT4QMPvWZ2rk6Rh/PONgA2HqLIb5idK5PzSJdzLB2vQAnOZY8/ +SMffdpPFege/k6VEYhwbIqIMcbwTIqI0ISaoUyCNrBKkaiLfy7CXn7HhZ1EK +NikCdGFSOzkCdCFCTzGgndYmEGZayJiCtDtDjfGrVMYR48wI0LHE/ZEB7eiN +IcZZIWOc3dkujF81nd2ho3NCcb9N0T9VK+KAtwg41wBEp5u09ZnaPZaxXSPg +vPCAVwn4eXjAKwScbwCik+OuubVy3C/T1kK1exxjO0/AReEBzxFwsQGITo77 +l6G4n6WtJWr3eMZ2ioBLwwOeJOAy7wjn3H8m968NPOjkuC9XuxdgbMcZm4aR +C3GMsYWp4ijJX2EAopPjvjIU9yO0tUrtfg9jO0jA1eEBDxBwjQGITo77t6G4 +59HWv4LuumdowbkiBlfWGRkZUJ2A52n2IhHKX7B4rF27Ni7CT/x8gi4eR48c +RQWBYz77WRksKIcMGaI8bQsytn2MzWpocAirHsCQeCjRwBM2iLDuu3V21fHY +0WO4SgahEGb2x7NhLW9P/IEIuMa+dPESXfSXLlkatv69jM3KfDBX9kMRYrEe +ilg5DtpArF1Rs21vvvEmdhrsuat28mODOPH+e+9j8RcqP8C3Y/sOKEVxEwfX +gD00YNaSbNMTC3tRDE2zKlwkERL43sT3rM4J2j6c+SH2xZHDR9hTwrnpcdR8 +R2pMTwdsNTVr1hTnzp6T1EydMpW61E7snNlz0BeGM04EeEPK5WYnqVlHavL2 +62vttpry5cvDA11JDTDn5Nhl+KDtg8kfiKZNm2KuuT7jlr47SNd60mWqYdu6 +oB+4LA0dOhT3bA1Q91ry5RLlycDp2k66NhjHkj3cbV2uaqk0lmB4u3WNzh1N +VVqlLtTgqPmPdEJaTNIJCTMf7NnFDHjCAmU378m3e9duyQYlc+thDdn69+8v +ZkyfEYLCbbT1vTTlKaqevsJWzOPHjuMItiunsz6aJdq1a2c/ic/OzhZdu3bF +EwcOQzfC3Hzm9Bl2iHE1rq2MzUqjfUXhaohFrGPwXBRGGqiEfAekUE0XRgT0 +IJwhFStWFG3atIHRwF37OWU/UtI2BvVwF0Sn2OO4bwrF/Qfa2qx250pemxmb +hpELsYm4t4QH3CjL1wBdiZCPahgLq4aCk9/QgRsIuNUFRB+lOzcANIzOBIRb +P4Xivl4+J3n3IoxtLQG3RwD02EzczmUat3ao3Ysytm8JuDMCIHcJCj3EGuLe +ZQA6d8a4tVvtXoyxrWJsGkYuxErGFqaKFSR/rwHorGtwa5/avThjW87Y3Ix4 +hAN+TYz7w2P8ioB5BqBrfSof1TCWYGxLKdiBCIAem0Y0F2IJcWuegZUgJ8f9 +kNq9JGNbzNg0jFyIRcR9OAKgx2aS79RsnDU0734fY1tAwKMRAD22MLnnE/cx +A9BV/2LqEe4TrBTjNI9CHFfzKIEem0ZqKeLhgCZup3rpFIp499KMbS5j+294 +IT4l7hMGoKsuKx81iXYqwbh1Uu1+P2ObTcBTEQA9NhO3UxLHrdNB9ygXcOxj +8NoUvDNdtGhR9Bk8eDC7OPAo8xy1snJXSjX2gqBDhw7iQF5w9ucUlmFsH5Hq +M5bCaBdj4twVEfxbtXIVvGqFr8sGIEWKFMG3N1566aWQZX9Iss+S7MiLMfHu +Ygz+wcIfOvvqlauUgpDS63oqJB910hutMo2dXqjQWUtw/LN0OhUbZ2Q6aTtH +cvKiVKex5Vy5fAWbB+9feuV4clKWsc1gbE4fR6t4Y39DYeI/J2IJwyWUra1z +SqdTMs8bx2C4RRxbH0wOaWlp+P6rUZ/raah81OlssESjrBNjfUJBBd67NXUy +SnMSdkGaDSOs4sRZGuCNzSZNmuCfQkMiY5vK2KyOjLRwY88KXyz8AsOqeouT +M4WSczEogrv6JZITp/5CKECH55La/QHGNpmxaaRyISYR92UDEJ04RpNo11sP +8lENYznGNpGCXY0A6LFdcYXAI+UousNzTc3zIGObwNg0UrkQ7xL39QiAHptJ +PvI4jDfU7uUZ23jGphHNhRhH3DcjAHpsJvnI4zDeUrtXYGxjGJtGNBfibeK+ +HQHQYzPJRx6H8Y7avSJjy2VsGtFciFHELbynWkU65HHKZ6BwMJ6jQg2sxNhG +yLT5I0BzAjTyKxGjh9uvxlRmbG+ouDVt4OL8Q1YRY0Cjp5Jb04YqjG24zB0b +AZpToWlDFWL0cMeFjOEYNcqrMrbXZO74CNCcCncb8HBV4vEwFvB6PsTEHKbi +0ejl4gyVue8xoNFTyV1Aja7G2P4mcxeMAM2p0LSBizNYVpFgQKOnklvThuqM +7WWZu1AEaE6Fpg3VidHDfa8ak8TY/qrittoQ5ZKS/Z0W+Ipw27ZtMRys7lat +XMWuEzjJg+QGB9dId/MVoHiMBM2AdRocztufh9kI/GcLIUkkUZlfq598d/fN +H9s25YMpYtCgQZJt/Ljx4tVXX7Uy8EuZNRjbADn3RagR0XoPyLbBGIOXrNy2 +BfMXiO7duzuCsbbDDZEBqqwXJsHRrUH5cYTDCyduG9RackflcoIxh55sFiVx +ML6iV5GKx7eGYLzC1/ygKgXfP4TvKsL357jxW0OWyGXS6fpoVaTs8hl08eRJ +k/HlGCg7d+nSBV6c4aaHmowtR05qMeMQDbcyZdtmzphJw5F7xakmCfmLKolO +j4M5mm8bXbt6DSffQOJYccmM7QU5c8Utcb+qRGXPuzAYoDPhdzYC2rhX+5SS +uMxZ3Rppncq+RsF8D+8/wVwLf4Gxxp4QyZQaT5KCz4Lp1tn1nWt2TuUuy31V +bbQ6gMNwtj6yspIGNHoquUuo0bUZ23OqOBoVXJzechtKGdDoqeS+T42uw9h6 +ydylXWh0VGI47lIsGqN7eO5Xq6zL2HqoGEuHF6e7rKKMAY2eSm5NGx5mbNky +d9nw0M/I6EQDGj2zVco13PUYWzeZ+4EI0JwKTRvqEaOHu5waU5+xPa3i1rSh +PjE+LXM/qMakMLYuKm5NG1KIsYvMXd57ZqUy6D+rGDXKuThPquKUN8RBvU/K +yiuqMWmM7QkVdwVDHGR8QuaupMY0YGydVNyaNnBx/iirqGxAo6eSW9OGdMbW +QeauYkCjZ0cVt0Z5Q8bWXuauakCjpwfzUMgYTq+GsRFjayNzVzOg0bOtitut +HA9nMJ6tZMbqasYM8vRgktSYTMbWQqVXw51JjC1k7hpqTGPG9piMrmlAoyf3 +rX8TdxPG1kzmTjag0ZP7dQGT8izG9ogqjkZFFql4RFZeW43heLhc4GcwwN0q +bUHVAlZksNqBN6cmvT+JLW05jWsiNzN4n3l3C1rr163Hw9ZP9eHbFfA1nsB6 +nF3/NCWJmbLYupbY36aM1atXL/HJnE8kG/jA7+0F260Y/soJFPcfpkZEu4z1 +yiuvYOrdNvgRJMBrBaM4bqb2ZD26Zax4sfXHrViQtZfxgIERHljOBwcGlrC4 +nDoXcNyvRxLz9kenmGW/EQSVCL/fjwMrPj4eapjsCeb8tolHWn2SFt3SVTwW +R8AXuhy2V69ajfPA/n372dOK+8GWFFlsinFsRlq/ggb07dtXskGd2G4UNzad +6xh3t+zJLpijWdN6Z/w7+KqV2zbvs3miR48eSsGPk2BuUSRlOCpfqIPXI+Gn +BOE3ZeEwjDC4gATOR3YENGdszoIb94Nrg4hLXfZ1ae2/1+ILYvBjh3CGB+ZR +9rRpTuweHcH7e/by69wc1ZYx6WpMS/JMljEN1ZhWjC1JRjcyoNHTg8lQY1qT +ZzUZk6nGODfTVWVMYzWmLXlWljFN1Jh25FlRxmS5MAhxlhblZc9H1NH/QJ7l +ZExTNcZZciXKmGZqTEfyvJ/04pFH1ZhOhLlP5nlcjelM0YvJPM3VmD+RJ06u +MYRpqcZg6QF/CimGtvBIGzWmK3wWIM/2ak/8/J38TJ7pOG4bfgvel+9/Sn8S +OQ==\ +\>", "ImageResolution" -> 96., "LightDark" -> \ +"Light"],ImageRangeCache->{{{0., 359.}, {221., 0.}} -> {-3.233775858153751, \ +-0.007969775184554129, 0.11832856225129938, \ +0.0005589111396958131}},ExpressionUUID->"06204099-db57-8e4e-bcc4-\ +fa1ae37c0063"], Cell[BoxData[ TagBox[ @@ -2094,9 +7060,72 @@ Cell[BoxData[ Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", - RowBox[{"{", "}"}], "]"}]}]], "Input", - CellChangeTimes->{{3.991799458254999*^9, - 3.9917994623413925`*^9}},ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-\ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.005449"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.016155"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.026309"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.035566"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.043662"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.050365"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.05556"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.059166"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.061228"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.061803"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.061061"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.059155"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.056323"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.05275"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.048682"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.044291"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.039784"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.035286"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.030946"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.026832"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.023034"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.01957"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.016479"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.013745"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.011373"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.009328"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.007596"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.006134"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.004922"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.003918"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.003101"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.9942355674226227`*^9},ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-\ 5e6c7b4b5678"], Cell[BoxData[ @@ -2512,70 +7541,101 @@ MathPictureEnd 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"], +eJzdXHd8VUUWDqm7ZJWqCCgl9I5ACklIBJRqkKYroMGIgQhiIiAoP0AQpUtb +aYoEREBlVQQUUMD2c2VVQIoUEWnSi0hVUGbfmTdzzr2POXeS+OJvd//Iy7y5 +33fOd8/MnTtn7tyXljEoK7N/xqBHe2VUaj0gIyfr0V4DK7XKHuCrCisSElJk +v++vVqWQcF9ZhIS4PqaI38UB+PCVhbgmDsBH/svZ8l+U2PPdHtG3b19Ru3Zt +UaNGDdGgQQMxaNAg8esvv4YkSUyEOHTwkGjSpIn8A1yJEiVCQuFbSJiYMH4C +oCQyVOGnTpkqbdWsWVPavvb7tZBYq62iTlteuuKkqTCRmZkpSpcurYT4P6Oj +o8VvV39TCJsck41opw2bFGUnSuz4dofExMfHi0aNGkns6GdHi6tXrvoU8Doi +3K3x/Z7vxcoVK8XlS5elax9djBgxQnTr1i0kRUn+ZvM3omvXrsoofEaKNavX +iLZt24qLFy5KTr9+/cT4ceMTDJTwPLjSET544KBo2LChWP7uchXNMJGQkIAR +DvV2H8uaiXaakX9ecnSQ9/2wT+zetRs5534+J4Ock5OjTouVouL8pFIEakAV +fEv2iGvr1q1lvdNjTEyMKa5FDaZ1AE4cPyFiY2NF7rxcFbMwMWWy7yL+7XdX +HBl3cXk0E2WQoKVe+fWKqFKliuPCYN0FxMrXAmL9uvVsrMJVHbRm+fLlZbfW +nSU5OVns2rlLfovzCJrTh8b9dOYn2UsmTZyk2sPuI9bAjTb40FGZ8eIM0a5d +O0cj2H2EucNTr1492TFt4Tl54qRsGDIRJtLT08XaD9daw+P0Ea/qoLGaNm0q +pk+bnm8fTq7JR5xSDqNVqVKlRIsWLaBDheXRjYpQjupmEydMFHu/3yu7GHTV +USNHiQ4dOpjGM30iIAQEOj1kZWWJZe8sY4MV4e0uUVF+PvuzPNd1a9ehaZu7 +eAM33Nud7mEXzl8Q48aOgwE/z2cXED+437Rq1Ur+r1WrloT6WtArfqdOnjK2 +kE+4NX6MuyRF+fLfX8q7nPOSsblLMHDDvN3p5kpNTcUrL6/uXPHzX7xqiAtp +XoABTN1yPILm9pGqBuOSJUuCLRxebfZ1h3Dw8JSd9pupuoEDB4rFixbnafDS +PjxCk6qCoaKtTzNStVObNm3E5k2b8WxgDKlatWqcF8vtQJ/fxq83ytu2U/fp +U6evuz0xHmPzZcYcuj59+oj3Vr6XF3cRfMRSVBeA/piYmCi6dOki5ufOh/MP +0WH7YM0HsnufP3de3oNh4vfCpBdirVRT7PzzzHLlykmzMNrAja5Tp04wCuGI +5OkyLybcrhMUb8s3W+TM6sB+mUKIb7d/K6pVqwZ8m+uAGMIEuG7duvDnazn4 +DJMB0B71UPPpJ5/KuzMEJUoFbNrUadIr3Jr69+8vO3q8AR+ZR1+xSvmmjZvk +fKhs2bJy8g7zKp/tCA+3cd7U8DwqaKJcLH1zqWjWrJm8wUD8fYOlOguzexVU +LsGrp9xDzqhdyc93/zeOx/hrfYfXw0cRr1ppKxQq/mawGp2fOrLClm74oz7+ +jLr/U/VUig5s+juxdJfBbEtD3Z15xLU0OpWYln+yUwdIrgZdd0GFO48LDVlW +YIiGXQdxqw1F0DtOUITLjku1Eydt+W/EWpMf9HYgKNTgW37+00tbATl0Um/x +yDDO+lILh6x76AjnrL9ZCBxS5KE9grP+hoVD1p06JDCSs/k6bzPSbdPDexRn +fUkhcEiRh/a/cNYXWzhk3UPHXznriwqBQ4o8tBflrL8W2BOKum16eDfdO+Tn +wkLgkKLXeKRp7iE/X7VwyLqHDtN9W34usHDIuoeOGznr8wuBQ4qc2iWwGGcz +l7dZzG3Tw3txzvo8C4ese+gowVl/pRA4pEhp93r44h+zw2VKlpSUBGktPIjR +2QWsm0DWUb9+fZm9nTh+Qt1EIsTw4cPxeU3x4sVFnTp18NnP2Z/OoijTTack +d3Jz/ZL9Iya3ZI+qIamHZzJgZsMXG/Q61ZHDR2RedfjHw9LMksVLIPvTI3fH +jh3F9m3b5TfTeFvSHUUVbzUJUSvjOHVQK+MqJv468K+XVXTd2DFjZQPAN+fS +jV7BisijuFJc5F5GmbZlaj0awamoZQ2UNGzYMDF71uz8S6J4zUUhttVgLcTX +c3SPQSHzXpknxXgKkZNRNiIvoZB9P3gvq2ohFStWhGd3LiGvL3kdHiPlKyKl +7ZJsK5VaEvRjU2zg6su3JGoke2/RHVgLcSyCuXrLnNlz8iXkJi42c1zXmXLn +us5gcIJv+oYHq+ewpBJ4TX23+ztHXYRchFfNquUZpzU3uWOkG8s/FjELWOpe +FymOHjkqO7JeBFv02iKRlpamR8tZM2fJRWxYr4ELj9NwMxce/zWJ52Ra9ymm +jsGzLOg3IAfi6LsOcciENb0xz48RZcqUAQ2sBArDRPiQCCbdNHAm4NcbeE4Z +7lTHIvtGC5s8jkGVxRwcWXEL52c0mihh5JD1Z/FASV5RWc7PM2istIVNHolz +U545w1HlzTynHKdyKBq7xcImj0+jx7I8pzzncTAaK29hk0fi3MpzbuU8DkC9 +txWA/QT6rhjYX251qyRkpUDkbZz1x5FTmdd2m9tPfzQbw3MqcB77orGqFjZ5 +JE41nlOR89gH2dULwM7Es61hYZPeTPxai+dU4jw+jOzaFjZ5JE4dnlOZ85iO +51g3sOdUdvtJx6/1A5ExnPUeyGnAa4tx+yFOQ55ThfN4P7JvLwD778huZGGT +XuI05jlVOY9dkB1rYZNH4sTxnGqcx47IjrewySNxEnhOdc5jGrKbBvac6m4/ +hEzk/dTg/LRDdpKFTR6Jk8xzanIeWyE7pQDsu5CdamGTXuLcwXNqcR5bINu/ +/SDYubqe0EMmDM59x0L0hkiYPeoMy7TMWst9oiS1hV9qoeToerHAZ0FOky+c +v4BT+9WrVnsKrs1FORWlt1TSCzeX1/sGIDWCtBNyPfC3c8dO2FtgWkGu7Q42 +Kb4TFQcrrdchXvjqQtkCPx760ZiJ1OHCmYzi7kJxwU71IesGLHRiSvUDokRC +WqGQYKX6uoPNfXmuaN68uYy6qeHqclFqiuJao7hgJf1aCGxpWPX+KvaKqOuO +F0lqY+1V+U3/tSRfSox7b0yS2If7cSiuresiDd5CgH9flNqRh3XZ2dliwfwF ++Rcci4LbKcFBWCiIEhkZGaJHjx7yioLD0L4wVJ85fcbYAekxd4Cq9n5VBV0w +0Bt3oINAg8IFU7lyZdG+fXvoHKalnfpcqBqhqLv9okxBre8+EeKk8ZwGnMcG +yO5gYZNHkzEPdkPOt2lIuMdhJwzn0uS7Dn7tzHu8nfNoml90stgh3ya2h4pG +nArTfLNLAeyYZspdLXbobEzse3l2Y06FKYe6z2KHVFAOdT/PacL5phy2m4VN +HonTnefEch5p/aJHYE+Ndfsh5AO8nzjOD61YPWhhk0fipPOceM4jrUz2tLDJ +I3Ee4jkJnEd6HpJhYZNH4jzMc5pyHulJZC8LmzwS5xGek8h5pOfHmYH9JdHt +h5C9A5FJnHV61t+H15bk9kOcLJ6TzHmkHRqPWtjkkTh9eU4zziPtq+lnYZNH +4jzGc1I4j6bdTh6+U9y+TWwPFamGumto8XELUYIInh3Yc+4wEK8iPMcIl4cI +9AQvobmh7hckDrAQJYjgA3l4C0PdRSQOshAliOBP8nDTJsJzSBzsJxbKykOU +fF0BcgSohzfU4BkYpC0bv95ofDxImxtJ4RC/wkJccIiSO8TBotIhtm7ZKho3 +bgyzdOO0m/aUnsXSU0pn4a4uaDWQDObOy1Wnd71C07bT06j1adQarHUFreHY +0WOyN8AudVPkaMXsjOEoxTBYSwrh6hPe6KtQoYJ8bW3WzFm0qmAK1ElDHYUs +WIsMWhq8bLFt6za5yd8XdtN1QSubJmlDUVqwlhh0awKve/furp7n9NzaUHcM +tQ6z9rL8rjNoXZBdV69e3VuX1EBqhruuz2AsLGg1kNPD6MapaYMajmBphGtU ++0OrBpGiZ8+e8i0hGBChN/Xu3Rse85t6UltD3SFU9Yxf1R9dNTh+7Lh8lQpu +CYAZPHgwaGP1SN+kYqRfhelm1s5Qtx+JoyxECSL4szy8vaFuLxJHW4gSRPDn +HHCJvhsP7cHS87zNNEPdLiSOsRAlaLfhqIfHDoa6HYY6D98d0PcOLI3j4fcY +6rYhcbyFKEEEn8DD6dnZFixN5OGdDHWbkDjJQpQggr/Awzsb6r5C4uTADtQZ +DxFoCm+9i6FuAxKnWogSRPBpPLyroe5zJE7nifca6j5D4j8sRAki+Is8/D5D +3cdInGEhStAnhqMeHul59EeGox4e7zfUrTXUzbSYkL7XYml2YFfqhoc+wNIc +3mZ3Q90qJL7EE3sY6t5D4ssWogQRfC4PfwBBK7DksWn6QUPdMiTOsxAliOC5 +PDwdQW9jaT4P72moW4pEj639PRFEcOf+fol+CA+9gaWFgaAMg/XFCPd43yED +QQT3eGHjYbdNIprhvQx1C5Do8fpLL3f4ZMnjXZxH3K1K0TLDMw11c5Go3mwK +cpatj8FPJ+h9+IAZOnSocR5Ku6FImXqjq1Cyaz3fg123+/fJeZdRV2/3+CFL +6t23oGfTkc7sVv59/NHH8NMK8udxfJRixYrJt7WHDBliFEub2GZj6S0UW/B0 +OsqZTss/SNCgOS9fuownfl0oZQ5LmmZg6R3UFKxUWgcQdmeotEj+KU2UUmcZ +wjYdhS1DYcFKpLWwSxcvyROF31YJFBYgp6+hbipKfBclBiuh1r85BhvBIa10 +yDMuhNFGS1K13NrL8ptOa1VwqcfFxcnfsfFS1Q+1TMbSCteFGoy0Wq+LQJIL +v5rj0YyPoYxJWFrpGtEKmFlHKg2wgJmSkiL/GA390TPte/f/gkiB82g97qxY +vkK64tqDNg2Pw9L7fteme1Q2gsZgaRUPzzHU0ab51RYiJcqytMYBl2jaJD0S +Sx8GggbgoRFYWss7HoigYVhax8MHIYh2v6/n4U8iaAgK/IiH0151In7Cw4cY +6uj0P7UQQ93R+oyHP4Ug6g6f8/CnEUT9/F88nAJJY8UXga1KjdMH6zbwNocj +nCYwX/Jw6ik04/uKhz+DIJq3fs3DqbPSjH4TDx+FoB54qpt5OL1pQrnbFh7+ +HILuReJWHv48wjsjfDsPp5dqaI1lBw+nIehuJO4MbPrxWGqDpd28zYlok1bA +9/DwSWiTnpHt5eGTEZ6CpR94+FQEJWJpPw+fjiC5MixnRgd5+IsIvx1Lh3n4 +TATVRetHefhsBNXA0nEeLtNx+SMdFbF0iofLNDkSqm7G0tnAppdZaFEoRWLp +Am9TpmY3QtUVHiQ//0t+mMh2XJYtv74bUuQ/PkeLDQ==\ +\>", "ImageResolution" -> 96., "LightDark" -> \ +"Light"],ImageRangeCache->{{{0., 359.}, {221., 0.}} -> {-3.233775858153751, \ +-0.0043827503402644324, 0.11832856225129938, \ +0.0003073572253865838}},ExpressionUUID->"899e43aa-c372-6647-a3e4-\ +4952f308ab17"], Cell[BoxData[ TagBox[ @@ -7548,12 +12608,15 @@ Cell[BoxData[ 1ca469b254bd"], Cell[BoxData["0.07371813161570438`"], "Output",ExpressionUUID->"d15888a7-bf5a-b54e-a332-976645c927ce"] -}, Open ]] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input",ExpressionUUID->"2fc8c501-08b5-4b5e-96d2-21ebd6441cb1"] }, -WindowSize->{718.5, 729.75}, -WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +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 +12631,609 @@ 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, 453, 8, 36, "Input",ExpressionUUID->"1b0145b9-c263-4046-9bc6-03f20ecab3a7"], +Cell[1032, 32, 302, 6, 41, "Output",ExpressionUUID->"7bc51bb9-6bbb-4b19-9688-791c18ee3cde"] }, 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[1371, 43, 255, 5, 36, "Input",ExpressionUUID->"1c396d6a-893b-48dc-8cc2-08ef10f1f076"], +Cell[1629, 50, 305, 6, 41, "Output",ExpressionUUID->"c46a7856-0093-4ed2-a7f9-fab8465786df"] }, 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[1971, 61, 226, 5, 36, "Input",ExpressionUUID->"8de3908c-9967-46e7-97c5-da93dbb91232"], +Cell[2200, 68, 300, 6, 41, "Output",ExpressionUUID->"97bbed16-09e4-411f-8cb7-2d5f7cb9d9fd"] }, 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[2537, 79, 180, 4, 36, "Input",ExpressionUUID->"36cff24f-2730-4a70-ae5f-44c80f05b7e3"], +Cell[2720, 85, 303, 6, 41, "Output",ExpressionUUID->"8ad97b38-714e-4ceb-8567-a4cf0746eb59"] }, 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[3060, 96, 262, 8, 54, "Input",ExpressionUUID->"c4c6fe41-2a40-4985-b825-fc2006608934"], +Cell[3325, 106, 317, 6, 41, "Output",ExpressionUUID->"92ccd187-38cc-4392-bcc9-29ef13f5fd36"] }, 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[3679, 117, 136, 3, 36, "Input",ExpressionUUID->"942a0b3a-7df8-40b9-8058-81db0d905c52"], +Cell[3818, 122, 309, 6, 41, "Output",ExpressionUUID->"4b1f73ef-f962-4199-af60-2c0affa572e8"] }, 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[4164, 133, 281, 7, 36, "Input",ExpressionUUID->"707373aa-0b0c-48fc-8691-0925ee0e4a94"], +Cell[4448, 142, 321, 6, 41, "Output",ExpressionUUID->"9771dd66-86bd-43cc-9c37-14dd2cb198c1"] }, 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[4806, 153, 262, 8, 36, "Input",ExpressionUUID->"2db1cb82-f8b4-4dec-982e-7232505e99d8"], +Cell[5071, 163, 320, 6, 41, "Output",ExpressionUUID->"126d1014-4469-400f-8de8-e9d2b11c3c06"] }, 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[5428, 174, 208, 4, 36, "Input",ExpressionUUID->"014d0552-9a9c-4487-93a6-43a7d805daee"], +Cell[5639, 180, 288, 5, 41, "Output",ExpressionUUID->"7b8c13ed-8165-42ff-9de3-c75975e62260"] }, 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[5964, 190, 210, 4, 36, "Input",ExpressionUUID->"61f06fbc-f9bf-4abf-8406-88a04612eb21"], +Cell[6177, 196, 288, 5, 41, "Output",ExpressionUUID->"9b3127b9-a0f5-4fd1-b083-4b9f94775b9a"] }, 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[6502, 206, 133, 3, 40, "Input",ExpressionUUID->"559f4988-7e93-4915-9b5f-13ef42ae01c9"], +Cell[6638, 211, 300, 6, 45, "Output",ExpressionUUID->"dbcb1f62-d78d-4427-bc72-c6df84f1144d"] }, 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[6975, 222, 133, 3, 40, "Input",ExpressionUUID->"30a25338-5f5e-4960-bbd1-64025eb95826"], +Cell[7111, 227, 301, 6, 45, "Output",ExpressionUUID->"58ffb66f-664d-40a8-a67c-2bb43cb6b212"] }, 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[7449, 238, 561, 20, 109, "Input",ExpressionUUID->"b5942fda-386e-457d-8dbc-79a4c3027062"], +Cell[8013, 260, 320, 6, 45, "Output",ExpressionUUID->"1febd101-8029-46be-ab2d-6d150b4b2020"] }, 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[8370, 271, 561, 20, 109, "Input",ExpressionUUID->"fdc63ed7-5579-43ff-82ff-7b2f7d80ea6c"], +Cell[8934, 293, 317, 6, 45, "Output",ExpressionUUID->"c085af3f-a527-4c37-bdd9-04ab36a118f5"] }, 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[9288, 304, 1592, 51, 188, "Input",ExpressionUUID->"6ff41813-c0c4-43cb-b307-c0e34995eab2"], +Cell[10883, 357, 317, 6, 45, "Output",ExpressionUUID->"14e6e542-843a-4d26-9be8-de6d038dfbec"] }, 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[11237, 368, 1426, 47, 155, "Input",ExpressionUUID->"8df2443b-2533-4d1b-a3e2-1b4cf0d8f9a3"], +Cell[12666, 417, 334, 7, 45, "Output",ExpressionUUID->"adde3154-f7a8-4325-9793-c5877fa58c08"] }, 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[13037, 429, 1426, 47, 155, "Input",ExpressionUUID->"a3c6916f-506a-4e34-9223-3a09edea9851"], +Cell[14466, 478, 341, 7, 45, "Output",ExpressionUUID->"327bb7a0-39fc-4dd6-8ead-01e5117f5209"] }, 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[14844, 490, 1496, 49, 111, "Input",ExpressionUUID->"58aba826-d624-4a57-a6a0-84f64258744d"], +Cell[16343, 541, 318, 6, 45, "Output",ExpressionUUID->"7dbfbe06-dc8f-4565-aa18-8ed572c8b8b9"] }, 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[16698, 552, 135, 3, 40, "Input",ExpressionUUID->"24515d9d-01ec-4943-8556-f3358f10ae69"], +Cell[16836, 557, 302, 6, 45, "Output",ExpressionUUID->"c19cda5a-2934-45df-aecd-25a4c5956951"] }, 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[17175, 568, 137, 3, 40, "Input",ExpressionUUID->"1504b6dc-3b0e-4f27-98cd-7951058814ca"], +Cell[17315, 573, 303, 6, 45, "Output",ExpressionUUID->"93dd4ad4-0ea4-428c-b268-b8ce16e1a032"] }, 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[17655, 584, 138, 3, 40, "Input",ExpressionUUID->"09807293-e0ad-45aa-a71d-3fb37c1e2bd8"], +Cell[17796, 589, 304, 6, 45, "Output",ExpressionUUID->"9b512037-a260-4366-91f2-7dd6db3d4b4e"] }, 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[18137, 600, 223, 5, 40, "Input",ExpressionUUID->"9edcabb8-545b-495c-bd1d-223f7243fc56"], +Cell[18363, 607, 321, 7, 45, "Output",ExpressionUUID->"f0b6785c-f6ed-4e27-a166-6f9d43d5bc95"] }, 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[18721, 619, 138, 3, 40, "Input",ExpressionUUID->"d55e7d65-add0-4287-b08e-95b088880c38"], +Cell[18862, 624, 303, 6, 45, "Output",ExpressionUUID->"1177acc0-9fbe-47b5-815d-2636500d9d6c"] }, 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[19202, 635, 326, 6, 40, "Input",ExpressionUUID->"db63370d-191f-49b4-b1cb-9588293ebd86"], +Cell[19531, 643, 303, 6, 45, "Output",ExpressionUUID->"36337149-1e3a-433e-9f79-ee3f37d4a4a0"] }, 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[19871, 654, 302, 6, 40, "Input",ExpressionUUID->"9c310da3-6b04-46e7-8046-ec8d7a4efc3b"], +Cell[20176, 662, 302, 6, 45, "Output",ExpressionUUID->"cebf5036-dede-4b80-a327-ea3915d2c32a"] }, 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[20515, 673, 223, 5, 40, "Input",ExpressionUUID->"bbde5e1c-d408-43ac-9446-505d623205d4"], +Cell[20741, 680, 303, 6, 45, "Output",ExpressionUUID->"87d7851f-1340-47d6-9816-a4eb86236036"] }, 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[21081, 691, 354, 11, 59, "Input",ExpressionUUID->"194c0861-57cb-4f6a-9737-5e902fa734fb"], +Cell[21438, 704, 320, 6, 45, "Output",ExpressionUUID->"2efcb1d0-c70b-4f8e-9247-858cf517b586"] }, 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[21795, 715, 354, 11, 59, "Input",ExpressionUUID->"d369bc80-4e5f-488c-a048-377340b61c98"], +Cell[22152, 728, 341, 7, 45, "Output",ExpressionUUID->"f1746dfe-74f3-4f23-8731-370fff4284f3"] }, 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[22530, 740, 998, 27, 60, "Input",ExpressionUUID->"04c76e26-c04c-4fd2-bf35-75b2bc9a4072"], +Cell[23531, 769, 321, 6, 45, "Output",ExpressionUUID->"e26dd477-ca73-4d15-af44-1a0b0d83f12e"] }, 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[23889, 780, 203, 4, 40, "Input",ExpressionUUID->"fc5b5b54-94a3-43c3-8a44-2eff6945eba3"], +Cell[24095, 786, 301, 6, 45, "Output",ExpressionUUID->"3d406e82-145b-4854-b07b-ddc1842c5bca"] }, 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[24433, 797, 333, 6, 40, "Input",ExpressionUUID->"89b30c0d-d26d-43fd-9e05-942f44c71582"], +Cell[24769, 805, 276, 5, 45, "Output",ExpressionUUID->"8b671d44-c4a8-4d86-8281-7f451c7c3c42"] +}, Open ]], +Cell[25060, 813, 177, 3, 40, "Input",ExpressionUUID->"7eec31d4-e290-4d0d-8cf4-db44d99d267d"], +Cell[CellGroupData[{ +Cell[25262, 820, 331, 6, 40, "Input",ExpressionUUID->"17359210-f5c0-41e4-9a26-40af026ba776"], +Cell[25596, 828, 279, 5, 45, "Output",ExpressionUUID->"294f100b-7718-4c92-9d87-ec7586264b55"] +}, Open ]], +Cell[25890, 836, 177, 3, 40, "Input",ExpressionUUID->"b831c6df-63d3-4eb4-9c2d-bad970a4708a"], +Cell[CellGroupData[{ +Cell[26092, 843, 334, 6, 40, "Input",ExpressionUUID->"a82c32e6-9644-43c8-84c6-a984343f5d78"], +Cell[26429, 851, 276, 5, 45, "Output",ExpressionUUID->"fa9d8691-b49c-4129-9a11-d2b876f94ca3"] +}, Open ]], +Cell[26720, 859, 177, 3, 40, "Input",ExpressionUUID->"08594332-f9c9-49de-8640-ebbb5d154674"], +Cell[CellGroupData[{ +Cell[26922, 866, 358, 6, 40, "Input",ExpressionUUID->"536b6d61-fe40-4c6d-acb5-237ee933fd8e"], +Cell[27283, 874, 278, 5, 45, "Output",ExpressionUUID->"9e8acd84-519c-4e0d-89bc-daa26b67abf9"] +}, Open ]], +Cell[27576, 882, 175, 3, 40, "Input",ExpressionUUID->"1286c31b-6c3e-436b-acd7-1f05e5f2f1de"], +Cell[CellGroupData[{ +Cell[27776, 889, 307, 6, 40, "Input",ExpressionUUID->"f9519009-e507-492b-93e4-2ebbe6a1c510"], +Cell[28086, 897, 278, 5, 45, "Output",ExpressionUUID->"e0aed65f-abe0-4e89-920c-45a6c7efc0fa"] +}, Open ]], +Cell[28379, 905, 175, 3, 40, "Input",ExpressionUUID->"f69d3dce-28c8-4026-b684-5b1d934710a8"], +Cell[CellGroupData[{ +Cell[28579, 912, 309, 6, 40, "Input",ExpressionUUID->"c7b878bc-8afa-43e6-8b34-0476fc19185e"], +Cell[28891, 920, 279, 5, 45, "Output",ExpressionUUID->"ab4238b1-5831-4530-aabc-b14297c10e65"] +}, Open ]], +Cell[29185, 928, 177, 3, 40, "Input",ExpressionUUID->"e5426d1d-dfa7-4f5d-ba9c-e3b73fd9a4ac"], +Cell[CellGroupData[{ +Cell[29387, 935, 308, 6, 40, "Input",ExpressionUUID->"ffcc49f1-1bf7-4877-89a9-84c1f6b1893d"], +Cell[29698, 943, 281, 5, 45, "Output",ExpressionUUID->"f1e37cc7-df75-4cc0-a623-4f82f8cc691b"] +}, Open ]], +Cell[29994, 951, 176, 3, 40, "Input",ExpressionUUID->"9a7e0309-288b-4ddf-90f9-f8d951d89362"], +Cell[CellGroupData[{ +Cell[30195, 958, 279, 5, 40, "Input",ExpressionUUID->"3e620f06-cbce-4668-834b-0e037d8ed983"], +Cell[30477, 965, 276, 5, 45, "Output",ExpressionUUID->"6d2aa252-4daa-4dae-83d6-d1e960deec09"] +}, Open ]], +Cell[30768, 973, 179, 3, 40, "Input",ExpressionUUID->"a9a33099-11b0-48de-8623-8c52261917f5"], +Cell[CellGroupData[{ +Cell[30972, 980, 19813, 486, 1845, "Input",ExpressionUUID->"af53eeb9-f3a5-468c-9272-bdb3eb8d7245"], +Cell[50788, 1468, 321, 6, 45, "Output",ExpressionUUID->"1752660a-eb5d-4653-bf13-064231d220dd"] }, 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[51146, 1479, 19752, 490, 1859, "Input",ExpressionUUID->"a948efa2-657b-4b94-a800-b8db1e74b021"], +Cell[70901, 1971, 317, 6, 45, "Output",ExpressionUUID->"c1c2080a-d4fc-4ab8-8452-7e143aac02f5"] }, 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[71255, 1982, 19752, 484, 1858, "Input",ExpressionUUID->"92f1dfeb-5e3c-484c-9a16-cf2b6ea3ed47"], +Cell[91010, 2468, 339, 7, 45, "Output",ExpressionUUID->"0886f4c3-b9a7-48df-a57c-569d37ee9f60"] }, 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[91386, 2480, 22538, 554, 2037, "Input",ExpressionUUID->"62f47c3c-85a5-444f-ae96-138c6dbfd4a5"], +Cell[113927, 3036, 335, 7, 45, "Output",ExpressionUUID->"92273eb4-7a74-483c-b588-a11b499517b1"] }, 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[114299, 3048, 22539, 554, 2037, "Input",ExpressionUUID->"9c8c7dfd-906a-47eb-b578-8526cad374c5"], +Cell[136841, 3604, 340, 7, 45, "Output",ExpressionUUID->"bfd7cf19-a2ee-4254-a46b-4b7fc94f0449"] }, 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[137218, 3616, 25495, 627, 2246, "Input",ExpressionUUID->"7bdfe7e1-55b5-4e0d-b7b9-96c0dc9db906"], +Cell[162716, 4245, 334, 7, 45, "Output",ExpressionUUID->"7f5402e5-c3ab-4d3a-990e-3eda68450081"] }, 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[163087, 4257, 134, 3, 40, "Input",ExpressionUUID->"c4d8b1b4-5123-4b97-8d9d-d1d3fc1d7555"], +Cell[163224, 4262, 301, 6, 45, "Output",ExpressionUUID->"331882c9-1152-4b3e-9f43-a2f1167cae8f"] }, 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[163562, 4273, 134, 3, 40, "Input",ExpressionUUID->"4daf7a7c-622c-47c3-b5fb-0cf7246a4b73"], +Cell[163699, 4278, 301, 6, 45, "Output",ExpressionUUID->"803692b2-953a-4011-98b5-3c705cdbe364"] }, 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[164037, 4289, 1148, 40, 78, "Input",ExpressionUUID->"1b1d1463-8589-474d-b533-05533221ce5a"], +Cell[165188, 4331, 320, 6, 45, "Output",ExpressionUUID->"54a1411e-c577-43be-8a45-a4613c86e6ae"] }, 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[165545, 4342, 1045, 36, 78, "Input",ExpressionUUID->"6711db2d-76c0-45fc-a154-b6e909463e13"], +Cell[166593, 4380, 334, 7, 45, "Output",ExpressionUUID->"e4d1cf93-7b9a-4abb-bb91-8958bf792072"] }, 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[166964, 4392, 1148, 40, 78, "Input",ExpressionUUID->"2f46feef-fe19-4ae6-b041-de643f5933ea"], +Cell[168115, 4434, 319, 6, 45, "Output",ExpressionUUID->"eccf34c4-5424-4a72-96e5-ba1b9465448f"] }, 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[168471, 4445, 112, 2, 40, "Input",ExpressionUUID->"ab8d5ccc-87e4-41b2-a61b-3a61982208ac"], +Cell[168586, 4449, 318, 6, 45, "Output",ExpressionUUID->"d3169ac3-6ffc-4bb8-90c6-6d5d74d56ea1"] }, 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[168941, 4460, 112, 2, 40, "Input",ExpressionUUID->"f0e29519-e5d2-4030-8e3e-5e1a05e73def"], +Cell[169056, 4464, 312, 6, 45, "Output",ExpressionUUID->"cccab308-5eb9-4ca0-bb10-e9b1fdc432aa"] }, 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[169405, 4475, 112, 2, 40, "Input",ExpressionUUID->"e4d3f5d0-7ba5-41d4-9d75-26e182eaa293"], +Cell[169520, 4479, 306, 6, 45, "Output",ExpressionUUID->"10de6b50-f5e9-482d-8d51-4c39d987eeb9"] }, 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[169863, 4490, 112, 2, 40, "Input",ExpressionUUID->"c5d1c79f-9d47-4e53-aa84-e02f48280215"], +Cell[169978, 4494, 289, 5, 45, "Output",ExpressionUUID->"5f304fad-9033-4c64-9933-908f1226d416"] }, 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[170304, 4504, 111, 2, 40, "Input",ExpressionUUID->"1f76c2c6-d44b-4ad1-a305-91d6d9cfb3de"], +Cell[170418, 4508, 291, 5, 45, "Output",ExpressionUUID->"c4c0310f-0117-4a9b-8ffb-029e909ea83f"] }, 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[170746, 4518, 111, 2, 40, "Input",ExpressionUUID->"abcec447-a992-4fb6-a942-f6cc08e5359a"], +Cell[170860, 4522, 296, 5, 45, "Output",ExpressionUUID->"3162e120-9206-43af-a40a-7c4441ab06b3"] }, 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[171193, 4532, 501, 17, 77, "Input",ExpressionUUID->"57c61dac-80b3-4542-b4fe-84eefab12319"], +Cell[171697, 4551, 307, 6, 45, "Output",ExpressionUUID->"f74048a6-5a4d-46ab-92f5-9a8ce66e8449"] }, 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[172041, 4562, 501, 17, 77, "Input",ExpressionUUID->"88cb455b-c21f-428e-90d8-99b777f7069f"], +Cell[172545, 4581, 310, 6, 41, "Output",ExpressionUUID->"f1ca22ea-5f4d-4b5a-b5f3-43ce9e6dc189"] }, 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[172892, 4592, 1792, 61, 340, "Input",ExpressionUUID->"93b7a45c-6511-4e69-9c45-0d633fd7f374"], +Cell[174687, 4655, 291, 5, 41, "Output",ExpressionUUID->"56aece5d-bed6-4b8e-8e02-2562ea80be8d"] }, 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[175015, 4665, 1105, 37, 174, "Input",ExpressionUUID->"56296330-5f4c-4d26-8935-94174ff82c03"], +Cell[176123, 4704, 312, 6, 41, "Output",ExpressionUUID->"422bc55e-ad24-4e67-a92f-f47f4a5275e0"] }, 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[176472, 4715, 1822, 62, 340, "Input",ExpressionUUID->"d96ee3ec-f062-4f5e-8919-9123d91d7459"], +Cell[178297, 4779, 292, 5, 41, "Output",ExpressionUUID->"d78fec70-bba0-4067-8341-8d5ca2da841a"] }, 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[178626, 4789, 1635, 54, 208, "Input",ExpressionUUID->"33137ca0-f184-4c25-89cc-b6113bf33322"], +Cell[180264, 4845, 291, 5, 41, "Output",ExpressionUUID->"05bd9f17-9fdb-4b6f-9ceb-c36aa2203f03"] }, 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[180592, 4855, 1635, 54, 208, "Input",ExpressionUUID->"92750103-210c-42fb-ae6c-b7962adcac6e"], +Cell[182230, 4911, 289, 5, 41, "Output",ExpressionUUID->"8a6efb38-a045-4948-a637-f1bb1190bc1f"] +}, Open ]], +Cell[182534, 4919, 184, 3, 36, "Input",ExpressionUUID->"83cccf0d-dccb-fb42-a058-5e950c758893"], +Cell[182721, 4924, 152, 3, 36, "Input",ExpressionUUID->"7730e455-e5f4-194b-b761-e7a6896afd10"], +Cell[182876, 4929, 185, 4, 36, "Input",ExpressionUUID->"b70cfd2b-21a1-8344-9518-5e27a96171a9"], +Cell[183064, 4935, 154, 3, 36, "Input",ExpressionUUID->"86df0a71-aa65-aa41-b8f1-8c5c5be10fe8"], +Cell[CellGroupData[{ +Cell[183243, 4942, 1273, 41, 174, "Input",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"], +Cell[184519, 4985, 106, 0, 41, "Output",ExpressionUUID->"cbffa725-bd15-2049-b55f-318286f23572"] }, 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"] -}, Open ]], -Cell[208234, 7211, 138, 3, 70, "Input",ExpressionUUID->"4ad58a38-0776-5240-aa41-ba7c8ff64fb9"], -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[184662, 4990, 910, 31, 128, "Input",ExpressionUUID->"c16f367e-d189-2745-b3b8-a9b137c5e3b6"], +Cell[185575, 5023, 106, 0, 41, "Output",ExpressionUUID->"ccc498a0-28db-294f-9612-85d9a5c6b1f9"] }, 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[185718, 5028, 885, 30, 128, "Input",ExpressionUUID->"b7d001ae-480c-4b41-8df9-8010347227f7"], +Cell[186606, 5060, 106, 0, 41, "Output",ExpressionUUID->"0586a11a-38a6-a040-a172-aaeab8c90dd8"] }, 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[186749, 5065, 532, 18, 66, "Input",ExpressionUUID->"d15e5e59-9ad8-e247-a132-b43b2736212a"], +Cell[187284, 5085, 101, 0, 41, "Output",ExpressionUUID->"c25fd138-6ebd-9549-9de5-30353d068c14"] }, 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[187422, 5090, 625, 21, 66, "Input",ExpressionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"], +Cell[188050, 5113, 100, 0, 41, "Output",ExpressionUUID->"8c8a87e7-f604-4044-b4ce-b17ddc0907b3"] }, 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[188187, 5118, 144, 4, 71, "Input",ExpressionUUID->"906db7f6-73f3-8a4e-88a4-7c75445a4f32"], +Cell[188334, 5124, 101, 0, 41, "Output",ExpressionUUID->"fa0bea71-615d-2d4d-8b39-59994ce24952"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188472, 5129, 144, 4, 69, "Input",ExpressionUUID->"731b68b1-c44a-6c4a-a9f8-bc957ede9a68"], +Cell[188619, 5135, 100, 0, 41, "Output",ExpressionUUID->"d3e4fece-e329-2041-9645-50ae8ca1c91c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188756, 5140, 155, 4, 55, "Input",ExpressionUUID->"71af6813-eb8f-4944-8d03-7bcd77a7b4b4"], +Cell[188914, 5146, 101, 0, 41, "Output",ExpressionUUID->"8db6732d-a570-734c-94eb-cb35afdbb155"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189052, 5151, 155, 4, 55, "Input",ExpressionUUID->"28815b73-08dc-e64f-8823-2a55ad6b8ca8"], +Cell[189210, 5157, 101, 0, 41, "Output",ExpressionUUID->"06581e5e-cb29-0446-9bb7-b3bb2156a7c7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189348, 5162, 6029, 184, 831, "Input",ExpressionUUID->"137e8d46-8eff-3c47-bf8f-1350d0b8a0bb"], +Cell[195380, 5348, 102, 0, 41, "Output",ExpressionUUID->"000a1d2e-b429-4a45-b9a2-ccba4bf718eb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195519, 5353, 342, 8, 53, "Input",ExpressionUUID->"65edd566-4493-2440-9c51-9fca28ce324b"], +Cell[195864, 5363, 342, 6, 26, "Message",ExpressionUUID->"b04cf5cc-6c74-f842-9fba-c737c46f5a7b"], +Cell[196209, 5371, 100, 0, 41, "Output",ExpressionUUID->"32922499-707a-964c-90f0-b2630d16ee29"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196346, 5376, 6096, 186, 900, "Input",ExpressionUUID->"d808e80b-1928-8046-afec-31463f4946cd"], +Cell[202445, 5564, 103, 0, 41, "Output",ExpressionUUID->"17720629-0c4f-744e-a447-06cd4a4f0034"] +}, Open ]], +Cell[CellGroupData[{ +Cell[202585, 5569, 342, 8, 53, "Input",ExpressionUUID->"56b1717f-bc75-4047-98f0-7a0dede3f8a9"], +Cell[202930, 5579, 342, 6, 26, "Message",ExpressionUUID->"6f900e99-9e38-fb4c-84fd-e99588ed1cc5"], +Cell[203275, 5587, 100, 0, 41, "Output",ExpressionUUID->"e5a93687-7c76-eb48-a79a-098cbe08792a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[203412, 5592, 2637, 87, 435, "Input",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-f74418e31aeb"], +Cell[206052, 5681, 101, 0, 41, "Output",ExpressionUUID->"a53e2e6d-ca02-5d40-9088-48aa754351ec"] +}, Open ]], +Cell[CellGroupData[{ +Cell[206190, 5686, 2577, 84, 435, "Input",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-91d5391478d5"], +Cell[208770, 5772, 102, 0, 41, "Output",ExpressionUUID->"5ca04a2b-633e-1547-b10d-b4f00d8b3fcb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[208909, 5777, 3686, 117, 575, "Input",ExpressionUUID->"bea639c9-f172-ef4e-9454-9d4e027f5fa2"], +Cell[212598, 5896, 102, 0, 41, "Output",ExpressionUUID->"af769b0f-0bd4-194f-bc02-90651fd30541"] +}, Open ]], +Cell[212715, 5899, 138, 3, 36, "Input",ExpressionUUID->"752e2dd5-bee6-2048-8697-fe84d79611fa"], +Cell[CellGroupData[{ +Cell[212878, 5906, 2054, 59, 276, "Input",ExpressionUUID->"f8b12d93-5bd9-8641-aa98-3d78ebb0f21b"], +Cell[214935, 5967, 342, 6, 26, "Message",ExpressionUUID->"4105bae1-ec8c-fc46-bc8a-9d70c37ec32c"], +Cell[215280, 5975, 342, 6, 26, "Message",ExpressionUUID->"42c1a263-2456-664a-bb33-c5fe841cb412"], +Cell[215625, 5983, 100, 0, 41, "Output",ExpressionUUID->"1c49befc-babf-0743-9739-e64b536d1c51"] +}, Open ]], +Cell[CellGroupData[{ +Cell[215762, 5988, 2049, 58, 276, "Input",ExpressionUUID->"cbefe077-df46-c24c-b854-69741ca50d38"], +Cell[217814, 6048, 342, 6, 26, "Message",ExpressionUUID->"be4d7bfb-c18e-564a-93ce-3f42607886e7"], +Cell[218159, 6056, 342, 6, 26, "Message",ExpressionUUID->"b768ca5f-6b93-1f43-97bf-08f74ea2facd"], +Cell[218504, 6064, 100, 0, 41, "Output",ExpressionUUID->"6af143a4-6ae5-fb45-8cd1-6940f2290ff9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[218641, 6069, 1938, 53, 232, "Input",ExpressionUUID->"b9a7e2d9-7e48-cb4c-89bc-12d8b19f0936"], +Cell[220582, 6124, 342, 6, 26, "Message",ExpressionUUID->"d3cb6fbc-3803-0541-80d1-8cab47341c44"], +Cell[220927, 6132, 342, 6, 26, "Message",ExpressionUUID->"635ef23c-be29-f947-b49d-c0d2f59f2ba8"], +Cell[221272, 6140, 342, 6, 26, "Message",ExpressionUUID->"d8687e0f-2f42-0543-a749-78a1ff3c9572"], +Cell[221617, 6148, 407, 7, 48, "Message",ExpressionUUID->"b055d243-2255-1f40-80bd-55bc54524667"], +Cell[222027, 6157, 9852, 394, 232, 4231, 300, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"8a200671-82f1-364d-8dba-8342607ad7b7"], +Cell[231882, 6553, 191, 5, 41, "Output",ExpressionUUID->"e49c1b8d-fabe-b944-a6dd-c578eb57eb6a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[232110, 6563, 2094, 60, 311, "Input",ExpressionUUID->"4b73592e-b155-8f42-b33d-562f8b3faecd"], +Cell[234207, 6625, 342, 6, 26, "Message",ExpressionUUID->"9f5fa53c-8bea-a349-9c29-e4614f56cc98"], +Cell[234552, 6633, 342, 6, 26, "Message",ExpressionUUID->"a2ecd22c-b766-5347-9e03-9d459620be75"], +Cell[234897, 6641, 342, 6, 26, "Message",ExpressionUUID->"45a49c2b-98f0-ca4e-ab79-bb0334e26ffd"], +Cell[235242, 6649, 407, 7, 48, "Message",ExpressionUUID->"258782e2-0da4-1143-8b36-76da0d2ac6df"], +Cell[235652, 6658, 10253, 391, 232, 4113, 287, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"06204099-db57-8e4e-bcc4-fa1ae37c0063"], +Cell[245908, 7051, 191, 5, 41, "Output",ExpressionUUID->"8efa1c1f-552a-d042-8a05-04dec8739bf5"] +}, Open ]], +Cell[246114, 7059, 2455, 69, 296, "Input",ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-5e6c7b4b5678"], +Cell[248572, 7130, 209, 5, 36, "Input",ExpressionUUID->"cd9a8165-891b-9245-aca1-3f60fcfd9a79"], +Cell[CellGroupData[{ +Cell[248806, 7139, 215, 7, 61, "Input",ExpressionUUID->"c213919d-017d-a948-8e46-fe19384187c3"], +Cell[249024, 7148, 100, 0, 41, "Output",ExpressionUUID->"38d25667-6c7c-094b-b4ad-180d70233424"] +}, Open ]], +Cell[CellGroupData[{ +Cell[249161, 7153, 1814, 53, 311, "Input",ExpressionUUID->"3764dfb4-9656-4349-b0a1-77ebd1a3e048"], +Cell[250978, 7208, 342, 6, 26, "Message",ExpressionUUID->"12d513db-13cc-bc48-b9a3-22b17d8aeb9a"], +Cell[251323, 7216, 342, 6, 26, "Message",ExpressionUUID->"05911c33-7605-8b49-a7ba-7fc8c8f30741"], +Cell[251668, 7224, 342, 6, 26, "Message",ExpressionUUID->"2192e048-2875-9f4a-aa0c-9cbbd447dfe1"], +Cell[252013, 7232, 407, 7, 48, "Message",ExpressionUUID->"b6990f5f-359f-464b-ac16-44cdfeae3c8e"], +Cell[252423, 7241, 10062, 396, 232, 4186, 297, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"899e43aa-c372-6647-a3e4-4952f308ab17"], +Cell[262488, 7639, 191, 5, 41, "Output",ExpressionUUID->"65116f16-0f68-7e4d-af2e-baecb9a57d9b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[262716, 7649, 1590, 47, 132, "Input",ExpressionUUID->"7899a8a7-561e-a946-a6c9-870ef14ce01b"], +Cell[264309, 7698, 342, 6, 26, "Message",ExpressionUUID->"d7dfab56-fefd-0149-8a26-6ee16f94ab37"], +Cell[264654, 7706, 101, 0, 41, "Output",ExpressionUUID->"43ddf880-80a2-b142-8665-3b95395a9831"] +}, Open ]], +Cell[CellGroupData[{ +Cell[264792, 7711, 2247, 64, 348, "Input",ExpressionUUID->"6fd9b05c-8008-7b42-b1b4-8e83e9537fdc"], +Cell[267042, 7777, 342, 6, 26, "Message",ExpressionUUID->"56921c73-2b67-0e4a-9808-5f61de992c7e"], +Cell[267387, 7785, 342, 6, 26, "Message",ExpressionUUID->"8ae663ad-3729-254b-9ec7-7f5d00ef81af"], +Cell[267732, 7793, 103, 0, 41, "Output",ExpressionUUID->"42e3f6c5-e95f-4040-9e12-cbd48f821f10"] +}, Open ]], +Cell[CellGroupData[{ +Cell[267872, 7798, 2219, 64, 348, "Input",ExpressionUUID->"ccaee6a3-c390-0444-bf16-3471356a3614"], +Cell[270094, 7864, 342, 6, 26, "Message",ExpressionUUID->"1795c3b9-0182-224c-b986-6414d6712c04"], +Cell[270439, 7872, 342, 6, 26, "Message",ExpressionUUID->"c3b31753-a67f-9b45-b822-068e1df11f68"], +Cell[270784, 7880, 100, 0, 41, "Output",ExpressionUUID->"7f3b68f0-36cd-5749-996b-97ffcb02c6cf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[270921, 7885, 2221, 64, 348, "Input",ExpressionUUID->"ca0cc669-d7ba-5b4a-b58b-286954db37c5"], +Cell[273145, 7951, 342, 6, 26, "Message",ExpressionUUID->"32db1bf6-ba11-cb4a-955a-52e174a44e5f"], +Cell[273490, 7959, 342, 6, 26, "Message",ExpressionUUID->"4e2b22f2-1724-7649-93fc-33cd27bb415e"], +Cell[273835, 7967, 101, 0, 41, "Output",ExpressionUUID->"34543184-0f68-7449-9af8-306cfc525771"] +}, Open ]], +Cell[CellGroupData[{ +Cell[273973, 7972, 215, 6, 60, "Input",ExpressionUUID->"7ec678fd-8398-414a-aeba-20e078d734cd"], +Cell[274191, 7980, 104, 0, 41, "Output",ExpressionUUID->"ca67de9f-825c-f641-9d0a-229375d081b1"] +}, Open ]], +Cell[274310, 7983, 247, 5, 36, "Input",ExpressionUUID->"ca329276-48d7-8943-8408-dd2997d3499c"], +Cell[CellGroupData[{ +Cell[274582, 7992, 532, 18, 66, "Input",ExpressionUUID->"681c316f-cd82-ae4b-824f-5eb2b3081f6d"], +Cell[275117, 8012, 100, 0, 41, "Output",ExpressionUUID->"9cf6d8e0-9f1b-734e-b42f-ef77566b5546"] +}, Open ]], +Cell[CellGroupData[{ +Cell[275254, 8017, 144, 4, 71, "Input",ExpressionUUID->"11e77a67-96b2-a645-89cd-559587f30b91"], +Cell[275401, 8023, 100, 0, 41, "Output",ExpressionUUID->"c5ed49bf-8480-c447-a0ac-ef7c5fcad104"] +}, Open ]], +Cell[CellGroupData[{ +Cell[275538, 8028, 155, 4, 55, "Input",ExpressionUUID->"3c5f43e9-afc4-be40-8f37-0116656ecd38"], +Cell[275696, 8034, 100, 0, 41, "Output",ExpressionUUID->"8a551ee1-59e8-d74e-b2fe-ad1527aaef53"] +}, Open ]], +Cell[CellGroupData[{ +Cell[275833, 8039, 6029, 184, 831, "Input",ExpressionUUID->"f07a8476-d7bc-1049-82a6-7cf06f61e28f"], +Cell[281865, 8225, 102, 0, 41, "Output",ExpressionUUID->"6efee3b5-10d6-d642-9cf2-dd8d3fe591e1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[282004, 8230, 342, 8, 53, "Input",ExpressionUUID->"b88b1a94-22d7-2843-88e3-f607b95c8af9"], +Cell[282349, 8240, 342, 6, 26, "Message",ExpressionUUID->"def6b331-c871-b04d-a16e-4fc00b03d009"], +Cell[282694, 8248, 99, 0, 41, "Output",ExpressionUUID->"332f8da7-4eec-ed47-b124-edf7e2bf43d7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[282830, 8253, 6096, 186, 900, "Input",ExpressionUUID->"9d771aab-c0b4-f24c-9b53-9472e00c4d82"], +Cell[288929, 8441, 102, 0, 41, "Output",ExpressionUUID->"0f048ce5-7f5e-0a41-a634-6908b289becd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[289068, 8446, 342, 8, 53, "Input",ExpressionUUID->"47e2a8e8-6af3-374f-9eea-9c2b6faaaf4a"], +Cell[289413, 8456, 342, 6, 26, "Message",ExpressionUUID->"c6c8676e-4601-144e-b83c-769e22949175"], +Cell[289758, 8464, 100, 0, 41, "Output",ExpressionUUID->"bd9f2dfb-0880-624c-8a61-fa3104084faf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[289895, 8469, 2637, 87, 435, "Input",ExpressionUUID->"d8757b1c-19d9-d548-8de4-6b0985b9b3bc"], +Cell[292535, 8558, 101, 0, 41, "Output",ExpressionUUID->"6edb9332-f61a-1c4a-ad7b-c9d3e77138f1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[292673, 8563, 2577, 84, 435, "Input",ExpressionUUID->"58b59182-fae5-674d-b49e-4868d83e9702"], +Cell[295253, 8649, 102, 0, 41, "Output",ExpressionUUID->"5f6645b8-6ac5-6148-a1e1-5f2ee5f21bdd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[295392, 8654, 3686, 117, 575, "Input",ExpressionUUID->"5caf1614-7e5c-9940-98cd-9460e2c074b2"], +Cell[299081, 8773, 102, 0, 41, "Output",ExpressionUUID->"9de56db9-9853-1748-aca6-5103b9dea11d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[299220, 8778, 2052, 59, 276, "Input",ExpressionUUID->"db0784f6-51d0-fd44-b0e8-05d6af1a6e52"], +Cell[301275, 8839, 342, 6, 26, "Message",ExpressionUUID->"7fd60dea-f794-4744-8801-bfb1a50a0e07"], +Cell[301620, 8847, 342, 6, 26, "Message",ExpressionUUID->"0b8c0718-41d2-4542-8afe-212a15805650"], +Cell[301965, 8855, 101, 0, 41, "Output",ExpressionUUID->"a8a97847-bb08-1e4d-8ab6-1eb11a1cda8f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[302103, 8860, 2054, 59, 276, "Input",ExpressionUUID->"7ca6aa7a-7318-6f41-95dc-f69c33a31448"], +Cell[304160, 8921, 342, 6, 26, "Message",ExpressionUUID->"b6f0ccc2-ff83-124b-a341-e143319c7670"], +Cell[304505, 8929, 342, 6, 26, "Message",ExpressionUUID->"d4b50e17-5ee4-384c-b81f-c2a36a80320e"], +Cell[304850, 8937, 100, 0, 41, "Output",ExpressionUUID->"f80834f1-cc9f-1c44-a97c-64c50ba97b67"] +}, Open ]], +Cell[CellGroupData[{ +Cell[304987, 8942, 2030, 55, 232, "Input",ExpressionUUID->"611f92ea-b199-2643-9788-194fae57c34e"], +Cell[307020, 8999, 342, 6, 26, "Message",ExpressionUUID->"7797a546-4085-124a-83da-5f3c472cdc4c"], +Cell[307365, 9007, 342, 6, 26, "Message",ExpressionUUID->"bf75ebeb-fc95-1d45-8487-ceed40ec633c"], +Cell[307710, 9015, 342, 6, 26, "Message",ExpressionUUID->"ca7472ca-7b27-a54a-84a1-e603fa592207"], +Cell[308055, 9023, 407, 7, 48, "Message",ExpressionUUID->"86b3b7d9-f0e9-0a4b-9079-b341ca597ab4"], +Cell[308465, 9032, 9432, 438, 232, "Graphics",ExpressionUUID->"f3c0c3aa-fd64-8e41-bc0a-ae36b33a37ec"], +Cell[317900, 9472, 191, 5, 41, "Output",ExpressionUUID->"23cfff6f-2c67-ce46-9cc6-49e8ffb5e8c8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[318128, 9482, 2118, 60, 311, "Input",ExpressionUUID->"f4c3d53a-1214-a145-beb0-494cdae35e56"], +Cell[320249, 9544, 342, 6, 26, "Message",ExpressionUUID->"b9265795-17b8-4e47-bd29-fee31586537e"], +Cell[320594, 9552, 342, 6, 26, "Message",ExpressionUUID->"072fb53f-7116-0f41-a298-6891351a3192"], +Cell[320939, 9560, 342, 6, 26, "Message",ExpressionUUID->"7f686ca7-db7f-0b40-bbd8-c08a80d2c198"], +Cell[321284, 9568, 407, 7, 48, "Message",ExpressionUUID->"3aaeaf29-5b60-ab47-b674-24d071c511f8"], +Cell[321694, 9577, 8546, 368, 232, "Graphics",ExpressionUUID->"fb5ee406-78d5-a849-9c81-3ea500ee883f"], +Cell[330243, 9947, 191, 5, 41, "Output",ExpressionUUID->"637816d3-cc2d-bb4a-991c-87bc9c72594a"] +}, Open ]], +Cell[330449, 9955, 209, 5, 36, "Input",ExpressionUUID->"2335a158-7588-4c40-bdb5-53b7ef04b97c"], +Cell[CellGroupData[{ +Cell[330683, 9964, 1590, 47, 132, "Input",ExpressionUUID->"01995149-3665-fe4e-b326-b20429031afd"], +Cell[332276, 10013, 342, 6, 26, "Message",ExpressionUUID->"52cff8eb-0c77-c944-a54f-e282b00ce766"], +Cell[332621, 10021, 101, 0, 41, "Output",ExpressionUUID->"51c9eb8e-8429-9440-b4d1-8a2a914a816b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[332759, 10026, 2251, 64, 348, "Input",ExpressionUUID->"11b1e372-f457-5a4d-bcee-062a3c04ed96"], +Cell[335013, 10092, 342, 6, 26, "Message",ExpressionUUID->"cb5a1193-7562-6446-a279-d9f6295d156e"], +Cell[335358, 10100, 342, 6, 26, "Message",ExpressionUUID->"566b0ad4-7f4e-b04f-8294-646ce1913fac"], +Cell[335703, 10108, 101, 0, 41, "Output",ExpressionUUID->"9a717f6e-3c47-7d43-93ae-4bf4814b6aa7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[335841, 10113, 2220, 64, 348, "Input",ExpressionUUID->"8cb4e371-90a5-d347-adec-3382e7679ba8"], +Cell[338064, 10179, 342, 6, 26, "Message",ExpressionUUID->"4cd45900-7eb0-6b4b-830a-a339e8117392"], +Cell[338409, 10187, 342, 6, 26, "Message",ExpressionUUID->"0ddcf174-f6c5-2546-b6d3-f17f46d6e8a3"], +Cell[338754, 10195, 101, 0, 41, "Output",ExpressionUUID->"3e9bc444-276c-294e-8c8d-12ef37255e0d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[338892, 10200, 2223, 64, 348, "Input",ExpressionUUID->"732b358a-c98a-0347-8b16-2462b23d6249"], +Cell[341118, 10266, 342, 6, 26, "Message",ExpressionUUID->"f702ec8b-e3a1-2f4f-bfef-4278a2688935"], +Cell[341463, 10274, 342, 6, 26, "Message",ExpressionUUID->"61220452-df6a-154e-8b5c-fecd0ab287a1"], +Cell[341808, 10282, 101, 0, 41, "Output",ExpressionUUID->"d8ce023f-3349-8348-844a-2526397581d1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[341946, 10287, 215, 6, 60, "Input",ExpressionUUID->"3d20548b-905d-0343-8df1-168ec8f367e1"], +Cell[342164, 10295, 102, 0, 41, "Output",ExpressionUUID->"b33ad8ed-51f6-a045-9dc5-33a5696fd31e"] +}, Open ]], +Cell[342281, 10298, 247, 5, 36, "Input",ExpressionUUID->"ca34450b-ff3b-f34a-a2ed-e661a25a7ba1"], +Cell[CellGroupData[{ +Cell[342553, 10307, 532, 18, 66, "Input",ExpressionUUID->"601c24ee-3f7b-c74d-891b-10a6d009e34b"], +Cell[343088, 10327, 101, 0, 41, "Output",ExpressionUUID->"f1ecc2fd-4cd6-5249-8977-1cc4a714ca85"] +}, Open ]], +Cell[CellGroupData[{ +Cell[343226, 10332, 144, 4, 71, "Input",ExpressionUUID->"05949206-8ee0-5646-bb01-e9142212274d"], +Cell[343373, 10338, 101, 0, 41, "Output",ExpressionUUID->"0b6f2dc1-dd2d-e341-8cc9-32a5777d3dad"] +}, Open ]], +Cell[CellGroupData[{ +Cell[343511, 10343, 155, 4, 55, "Input",ExpressionUUID->"25a02cc2-cb9a-bc4b-93f0-a7873f982a23"], +Cell[343669, 10349, 100, 0, 41, "Output",ExpressionUUID->"b4c0b4dc-7ff0-3246-8607-df7a1b97c52c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[343806, 10354, 6029, 184, 831, "Input",ExpressionUUID->"df51ca6a-83a1-6340-b13c-0185de64c37f"], +Cell[349838, 10540, 102, 0, 41, "Output",ExpressionUUID->"c326471e-e866-ed4e-b72f-a7b5b42c78d0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[349977, 10545, 342, 8, 53, "Input",ExpressionUUID->"731f0e35-7798-8b45-a769-075ac4b3983f"], +Cell[350322, 10555, 342, 6, 26, "Message",ExpressionUUID->"4870a5d4-b6fc-9044-ae55-fcbd2b9d41eb"], +Cell[350667, 10563, 100, 0, 41, "Output",ExpressionUUID->"4263cd25-e2b6-5c4b-8834-28c6ca12b863"] +}, Open ]], +Cell[CellGroupData[{ +Cell[350804, 10568, 6096, 186, 900, "Input",ExpressionUUID->"413c8e7d-149c-5d4a-9ccb-23aebae2e6d5"], +Cell[356903, 10756, 102, 0, 41, "Output",ExpressionUUID->"ad614c41-0fc1-a542-b7a8-b8207b3c6926"] +}, Open ]], +Cell[CellGroupData[{ +Cell[357042, 10761, 342, 8, 53, "Input",ExpressionUUID->"e11d7eb8-00a8-f540-98a0-89164ac4bae9"], +Cell[357387, 10771, 342, 6, 26, "Message",ExpressionUUID->"d6f4e6b1-3d45-7649-b7dd-944c4a1de3e4"], +Cell[357732, 10779, 99, 0, 41, "Output",ExpressionUUID->"27fdf87b-577e-d74b-99f1-6a0486be19bc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[357868, 10784, 2637, 87, 435, "Input",ExpressionUUID->"08e21b26-8d64-ea4e-8647-1ee89e798d8f"], +Cell[360508, 10873, 101, 0, 41, "Output",ExpressionUUID->"c5362b47-cc2f-ba44-9fef-3c67d726a6cb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[360646, 10878, 2577, 84, 435, "Input",ExpressionUUID->"ae5c0a90-3245-6943-a137-f30d036fcdd2"], +Cell[363226, 10964, 102, 0, 41, "Output",ExpressionUUID->"677f20c9-f9ab-dc41-bd69-627a1665b370"] +}, Open ]], +Cell[CellGroupData[{ +Cell[363365, 10969, 3686, 117, 575, "Input",ExpressionUUID->"46af1283-32d6-7240-acd2-307af56b44db"], +Cell[367054, 11088, 102, 0, 41, "Output",ExpressionUUID->"eb28891c-1746-424b-aa98-1266448f9a3e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[367193, 11093, 2054, 59, 276, "Input",ExpressionUUID->"cd516020-ac7f-224d-b1ff-af0307420662"], +Cell[369250, 11154, 342, 6, 26, "Message",ExpressionUUID->"b82c1933-5313-1d4c-a858-68be8f118333"], +Cell[369595, 11162, 342, 6, 26, "Message",ExpressionUUID->"3b3475f7-7db7-054a-b7f5-20d8f7d491bf"], +Cell[369940, 11170, 100, 0, 41, "Output",ExpressionUUID->"dfa1aa9c-9811-0d49-a9f3-e5e1bcdf702f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[370077, 11175, 2054, 59, 276, "Input",ExpressionUUID->"a9d0e817-a1c8-6546-a901-34313c6ec04d"], +Cell[372134, 11236, 342, 6, 26, "Message",ExpressionUUID->"9e0b92f8-7fe2-e84e-89cd-c02c9da3e5b7"], +Cell[372479, 11244, 342, 6, 26, "Message",ExpressionUUID->"56712e4d-1aa7-524a-8254-bcfd8978eea0"], +Cell[372824, 11252, 100, 0, 41, "Output",ExpressionUUID->"b342636b-f081-cc49-b1ae-5647aa39d6ab"] +}, Open ]], +Cell[CellGroupData[{ +Cell[372961, 11257, 2030, 55, 232, "Input",ExpressionUUID->"f68960b0-cff6-3245-b906-ad38cf07d634"], +Cell[374994, 11314, 342, 6, 26, "Message",ExpressionUUID->"9c6ce535-b42f-3c43-a89e-eda48c04121e"], +Cell[375339, 11322, 342, 6, 26, "Message",ExpressionUUID->"e2ce6bda-7d9b-6149-bf5b-dd4c91908e28"], +Cell[375684, 11330, 342, 6, 26, "Message",ExpressionUUID->"2bed6df2-09cb-4d4d-b247-4fe79fd38fd6"], +Cell[376029, 11338, 407, 7, 48, "Message",ExpressionUUID->"64a64e18-e609-d54b-8225-64fa7909a948"], +Cell[376439, 11347, 9432, 438, 232, "Graphics",ExpressionUUID->"7758daab-adf8-2a49-9166-50457409d355"], +Cell[385874, 11787, 191, 5, 41, "Output",ExpressionUUID->"4f7705b8-e954-b341-ab6d-8b4ad9ffca61"] +}, Open ]], +Cell[CellGroupData[{ +Cell[386102, 11797, 2143, 61, 311, "Input",ExpressionUUID->"d43bf17b-b492-0e4a-af4a-6a3bc399953c"], +Cell[388248, 11860, 342, 6, 26, "Message",ExpressionUUID->"2059be4f-bbb2-da49-9e23-3fc4d150d7a8"], +Cell[388593, 11868, 342, 6, 26, "Message",ExpressionUUID->"71d4e039-c2b8-d74d-819a-80d2051e4273"], +Cell[388938, 11876, 342, 6, 26, "Message",ExpressionUUID->"63625e13-15ef-1f45-89dc-998a1b63a626"], +Cell[389283, 11884, 407, 7, 48, "Message",ExpressionUUID->"ff96fc2b-5ddb-2142-a985-58ccc6f07e00"], +Cell[389693, 11893, 8546, 368, 232, "Graphics",ExpressionUUID->"a63f48d3-505f-0a45-b944-e872edd94d6c"], +Cell[398242, 12263, 191, 5, 41, "Output",ExpressionUUID->"be4328c1-f4b7-a444-b59f-1872f77ea023"] +}, Open ]], +Cell[398448, 12271, 138, 3, 36, "Input",ExpressionUUID->"4ad58a38-0776-5240-aa41-ba7c8ff64fb9"], +Cell[CellGroupData[{ +Cell[398611, 12278, 1590, 47, 132, "Input",ExpressionUUID->"3edaf53b-bb09-6646-b79e-9350413e0b42"], +Cell[400204, 12327, 342, 6, 26, "Message",ExpressionUUID->"2b38d1a8-4a7e-7b4f-8cdd-5298fced63d9"], +Cell[400549, 12335, 101, 0, 41, "Output",ExpressionUUID->"6941b2ce-51d7-0b43-b524-1e41573ef5f9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[400687, 12340, 2249, 64, 348, "Input",ExpressionUUID->"d2148290-3e90-8347-bddd-5dd8190b0268"], +Cell[402939, 12406, 342, 6, 26, "Message",ExpressionUUID->"905b237c-0e51-ab4b-895d-05994c6f1d5f"], +Cell[403284, 12414, 342, 6, 26, "Message",ExpressionUUID->"7ad8c79e-9570-a44d-b593-07aa87056e21"], +Cell[403629, 12422, 100, 0, 41, "Output",ExpressionUUID->"7a6165f1-f4e7-1f40-9890-5c13218f6833"] +}, Open ]], +Cell[CellGroupData[{ +Cell[403766, 12427, 2219, 64, 348, "Input",ExpressionUUID->"3cdd2064-36e7-b44d-bb0f-98d71f8a8458"], +Cell[405988, 12493, 342, 6, 26, "Message",ExpressionUUID->"c516c31a-74b4-f24d-a16a-678221cde87e"], +Cell[406333, 12501, 342, 6, 26, "Message",ExpressionUUID->"5c50b555-9ebe-f94d-801f-34634555f622"], +Cell[406678, 12509, 99, 0, 41, "Output",ExpressionUUID->"c7a13a95-1179-054f-9108-fe96e6564880"] +}, Open ]], +Cell[CellGroupData[{ +Cell[406814, 12514, 2221, 64, 348, "Input",ExpressionUUID->"c1d3ae3d-f5ac-b04d-af0f-57c1fe1d0585"], +Cell[409038, 12580, 342, 6, 26, "Message",ExpressionUUID->"7ca591cf-a5ce-ce41-8101-8edfca50e890"], +Cell[409383, 12588, 342, 6, 26, "Message",ExpressionUUID->"cbafd11a-4be0-b541-81e4-e62191ae7695"], +Cell[409728, 12596, 101, 0, 41, "Output",ExpressionUUID->"7d22c643-14ba-7245-8972-7de9bf840536"] +}, Open ]], +Cell[CellGroupData[{ +Cell[409866, 12601, 215, 6, 60, "Input",ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-1ca469b254bd"], +Cell[410084, 12609, 102, 0, 41, "Output",ExpressionUUID->"d15888a7-bf5a-b54e-a332-976645c927ce"] +}, Open ]], +Cell[410201, 12612, 115, 1, 36, "Input",ExpressionUUID->"2fc8c501-08b5-4b5e-96d2-21ebd6441cb1"] } ] *) -(* End of internal cache information *) - diff --git a/Pu240_798-811_TitovAA/170-70_h_Pu240_24-25/h_170-70_Pu240_24-25_osc_Qw1.nb b/Pu240_798-811_TitovAA/170-70_h_Pu240_24-25/h_170-70_Pu240_24-25_osc_Qw1.nb index 0b16837..e154e6b 100644 --- a/Pu240_798-811_TitovAA/170-70_h_Pu240_24-25/h_170-70_Pu240_24-25_osc_Qw1.nb +++ b/Pu240_798-811_TitovAA/170-70_h_Pu240_24-25/h_170-70_Pu240_24-25_osc_Qw1.nb @@ -3,17 +3,17 @@ (*** 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[ 581439, 14318] -NotebookOptionsPosition[ 540981, 13683] -NotebookOutlinePosition[ 541435, 13701] -CellTagsIndexPosition[ 541392, 13698] +NotebookDataLength[ 583384, 14535] +NotebookOptionsPosition[ 541163, 13863] +NotebookOutlinePosition[ 541604, 13881] +CellTagsIndexPosition[ 541561, 13878] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -21,41 +21,58 @@ Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"d", "=", "3"}]], "Input", + RowBox[{"d", "=", "2"}]], "Input", CellChangeTimes->{ 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, - 3.9920650045886707`*^9},ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-\ -8326f7c1a9b1"], + 3.9920650045886707`*^9, {3.994074365586355*^9, 3.9940743682625427`*^9}, { + 3.994074972569545*^9, 3.994074973088262*^9}, {3.9940750163921824`*^9, + 3.9940750181750507`*^9}, {3.994075068546856*^9, 3.994075088637937*^9}}, + CellLabel-> + "In[408]:=",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], -Cell[BoxData["3"], "Output", - CellChangeTimes->{3.991320420900818*^9}, - CellLabel->"Out[46]=",ExpressionUUID->"2e7f3b17-b448-644d-bafd-ec5aa11fe78b"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"A", "=", "236"}]], "Input", - CellChangeTimes->{{3.9915672960517406`*^9, - 3.991567297688427*^9}},ExpressionUUID->"40a7803b-9334-ef42-a720-\ -539edfcf67a8"], - -Cell[BoxData["252"], "Output", - CellChangeTimes->{3.9913196497381973`*^9}, - CellLabel->"Out[2]=",ExpressionUUID->"d21d7bec-caad-aa4f-9200-81feafc4acec"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"A1", "="}]], "Input", +Cell[BoxData["2"], "Output", CellChangeTimes->{ - 3.991798961431202*^9},ExpressionUUID->"410ced47-4e2a-4e45-9091-\ -53970f892dbb"], + 3.991320420900818*^9, 3.994074326579653*^9, 3.994074935279605*^9, + 3.994074974578923*^9, 3.9940750193451347`*^9, {3.994075073182597*^9, + 3.9940750908104277`*^9}}, + CellLabel-> + "Out[408]=",ExpressionUUID->"fa94cc60-1305-4c6c-94b9-dfec3b3d5e97"] +}, Open ]], -Cell[BoxData["130"], "Output", - CellChangeTimes->{3.9913196497578354`*^9}, - CellLabel->"Out[3]=",ExpressionUUID->"a2a1281d-2cdd-5d4c-b7c6-d26236e66b80"] +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.9940736553396893`*^9, 3.9940736559062967`*^9}}, + CellLabel-> + "In[409]:=",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.994074326639216*^9, 3.994074935535688*^9, + 3.99407497466455*^9, 3.9940750193870497`*^9, {3.9940750732233963`*^9, + 3.994075090853217*^9}}, + CellLabel-> + "Out[409]=",ExpressionUUID->"50a462f5-1c8f-41d2-a98d-d73de3c59ec6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "170"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.994073658167858*^9, 3.994073658855419*^9}}, + CellLabel-> + "In[410]:=",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], + +Cell[BoxData["170"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.99407432665131*^9, 3.994074935546548*^9, + 3.994074974677713*^9, 3.994075019399205*^9, {3.99407507323412*^9, + 3.994075090864901*^9}}, + CellLabel-> + "Out[410]=",ExpressionUUID->"7c7a2405-8772-4f44-913e-66d3fac2d8b7"] }, Open ]], Cell[CellGroupData[{ @@ -63,11 +80,16 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a1", "=", "0.55"}]], "Input", CellChangeTimes->{3.9434144380252676`*^9}, - CellLabel->"In[4]:=",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], + CellLabel-> + "In[411]:=",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], Cell[BoxData["0.55`"], "Output", - CellChangeTimes->{3.991319649777508*^9}, - CellLabel->"Out[4]=",ExpressionUUID->"4fa6d65b-1d5c-4f45-949a-d7045f28de30"] + CellChangeTimes->{ + 3.991319649777508*^9, 3.994074326662937*^9, 3.994074935557375*^9, + 3.994074974689283*^9, 3.99407501941103*^9, {3.994075073246029*^9, + 3.9940750908767548`*^9}}, + CellLabel-> + "Out[411]=",ExpressionUUID->"94d1ac3a-e16c-43f6-b45d-3876afcdc16d"] }, Open ]], Cell[CellGroupData[{ @@ -79,22 +101,32 @@ Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", - CellLabel->"In[5]:=",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], + CellLabel-> + "In[412]:=",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], -Cell[BoxData["0.5495238095238095`"], "Output", - CellChangeTimes->{3.9913196497965145`*^9}, - CellLabel->"Out[5]=",ExpressionUUID->"24d0db1b-9e75-3c46-9c8c-13704f881794"] +Cell[BoxData["0.5437500000000001`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.994074326674385*^9, 3.994074935568224*^9, + 3.994074974701558*^9, 3.99407501942295*^9, {3.994075073258301*^9, + 3.994075090888695*^9}}, + CellLabel-> + "Out[412]=",ExpressionUUID->"09f8d98b-8e89-4313-8e8e-e5e97d73c783"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"p0", "=", "0.17"}]], "Input", - CellLabel->"In[6]:=",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], + CellLabel-> + "In[413]:=",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], Cell[BoxData["0.17`"], "Output", - CellChangeTimes->{3.9913196498144608`*^9}, - CellLabel->"Out[6]=",ExpressionUUID->"d898610f-2407-1a40-9f24-5be2dcfa557e"] + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.99407432668569*^9, 3.9940749355790033`*^9, + 3.994074974713187*^9, 3.9940750194346647`*^9, {3.994075073269951*^9, + 3.9940750909003353`*^9}}, + CellLabel-> + "Out[413]=",ExpressionUUID->"ea27385d-4662-4d8a-a618-8973e3e556ec"] }, Open ]], Cell[CellGroupData[{ @@ -105,11 +137,16 @@ Cell[BoxData[ SuperscriptBox["A1", RowBox[{"1", "/", "3"}]]}]}]], "Input", CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, - CellLabel->"In[7]:=",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], + CellLabel-> + "In[414]:=",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], -Cell[BoxData["5.876324542157027`"], "Output", - CellChangeTimes->{3.9913196498225155`*^9}, - CellLabel->"Out[7]=",ExpressionUUID->"27ff60eb-7aa7-9949-984d-d71d79c10129"] +Cell[BoxData["6.426003577835178`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.994074326696957*^9, 3.9940749355899067`*^9, + 3.994074974724668*^9, 3.994075019446229*^9, {3.994075073281803*^9, + 3.9940750909055967`*^9}}, + CellLabel-> + "Out[414]=",ExpressionUUID->"999d7edd-cf6a-4a9f-9600-d4f1b948cf99"] }, Open ]], Cell[CellGroupData[{ @@ -121,45 +158,80 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"1", "/", "3"}]]}]}]], "Input", - CellLabel->"In[8]:=",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], + CellLabel-> + "In[415]:=",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], -Cell[BoxData["5.753223770057068`"], "Output", - CellChangeTimes->{3.9913196498425236`*^9}, - CellLabel->"Out[8]=",ExpressionUUID->"2b4ba32a-ab7d-7140-a043-bb4487278822"] +Cell[BoxData["4.7806909477779245`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.994074326708106*^9, 3.994074935599874*^9, + 3.9940749747357597`*^9, 3.994075019457683*^9, {3.994075073286825*^9, + 3.994075090919847*^9}}, + CellLabel-> + "Out[415]=",ExpressionUUID->"9e6351fe-ca20-4bf4-bec6-6a9b1f77d85e"] }, Open ]], -Cell[BoxData[ - RowBox[{"b1", "="}]], "Input", - CellChangeTimes->{ - 3.991799283179735*^9},ExpressionUUID->"3b44378c-91de-5d4a-a244-\ -b3f5cb1cffbb"], +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"b2", "="}]], "Input", + RowBox[{"b1", "=", "0.8747255229"}]], "Input", + CellChangeTimes->{3.991799283179735*^9, 3.994073678806656*^9}, + CellLabel-> + "In[416]:=",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], + +Cell[BoxData["0.8747255229`"], "Output", CellChangeTimes->{ - 3.991799280663351*^9},ExpressionUUID->"c984ea2d-3d65-1d43-b11d-\ -50fde111107a"], + 3.994074326718845*^9, 3.994074935610774*^9, 3.9940749747456427`*^9, + 3.994075019469336*^9, {3.9940750733015203`*^9, 3.994075090931666*^9}}, + CellLabel-> + "Out[416]=",ExpressionUUID->"66fc1cb3-d6d8-4ab9-a3de-c5bef3e6ad7f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.3882072479"}]], "Input", + CellChangeTimes->{3.991799280663351*^9, 3.9940736835660563`*^9}, + CellLabel-> + "In[417]:=",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], + +Cell[BoxData["0.3882072479`"], "Output", + CellChangeTimes->{ + 3.994074326731606*^9, 3.9940749356216*^9, 3.9940749747554703`*^9, + 3.994075019480736*^9, {3.9940750733138313`*^9, 3.9940750909438963`*^9}}, + CellLabel-> + "Out[417]=",ExpressionUUID->"2040dd30-863a-4f4e-94e7-263f4a362b30"] +}, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x1", "=", "0"}]], "Input", - CellLabel->"In[11]:=",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], + CellLabel-> + "In[418]:=",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], Cell[BoxData["0"], "Output", - CellChangeTimes->{3.9913196498927155`*^9}, - CellLabel->"Out[11]=",ExpressionUUID->"3d15ce67-15c8-f549-9c13-b8dddf0b6641"] + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.994074326743565*^9, 3.994074935632176*^9, + 3.994074974765235*^9, 3.994075019485297*^9, {3.994075073318596*^9, + 3.994075090955942*^9}}, + CellLabel-> + "Out[418]=",ExpressionUUID->"f014c2f3-83a1-4b59-91d6-6fe132b7d872"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x2", "=", "0"}]], "Input", - CellLabel->"In[12]:=",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], + CellLabel-> + "In[419]:=",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], Cell[BoxData["0"], "Output", - CellChangeTimes->{3.9913196498996067`*^9}, - CellLabel->"Out[12]=",ExpressionUUID->"8f7b3ab0-4d46-6e46-be1a-60df9a3dcebd"] + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.994074326755156*^9, 3.994074935643033*^9, + 3.99407497477602*^9, 3.994075019498505*^9, {3.994075073331485*^9, + 3.9940750909684067`*^9}}, + CellLabel-> + "Out[419]=",ExpressionUUID->"603d6b0b-6bef-4195-a4ab-f38eb57c8531"] }, Open ]], Cell[CellGroupData[{ @@ -183,11 +255,16 @@ Cell[BoxData[ SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", - CellLabel->"In[13]:=",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], + CellLabel-> + "In[420]:=",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], -Cell[BoxData["1.4975864418719793`"], "Output", - CellChangeTimes->{3.9913197863028755`*^9}, - CellLabel->"Out[13]=",ExpressionUUID->"d0cab83a-649b-b14c-b85b-84835124aa09"] +Cell[BoxData["2.2478963955971953`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.9940743267687807`*^9, 3.994074935653433*^9, + 3.994074974785841*^9, 3.994075019509776*^9, {3.994075073341671*^9, + 3.994075090978916*^9}}, + CellLabel-> + "Out[420]=",ExpressionUUID->"bd01e92c-e2aa-42b9-8795-1c21241e342f"] }, Open ]], Cell[CellGroupData[{ @@ -211,11 +288,16 @@ Cell[BoxData[ SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", - CellLabel->"In[14]:=",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], + CellLabel-> + "In[421]:=",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], -Cell[BoxData["2.555495302485258`"], "Output", - CellChangeTimes->{3.9913197864610195`*^9}, - CellLabel->"Out[14]=",ExpressionUUID->"81304ae5-6353-154d-8b14-59a2dc55038b"] +Cell[BoxData["1.4243583722932822`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.994074326780384*^9, 3.994074935663515*^9, + 3.994074974795456*^9, 3.994075019519595*^9, {3.994075073351719*^9, + 3.99407509098914*^9}}, + CellLabel-> + "Out[421]=",ExpressionUUID->"01775465-9dc7-4028-8481-c09c2c089cda"] }, Open ]], Cell[CellGroupData[{ @@ -268,11 +350,16 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", - CellLabel->"In[16]:=",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], + CellLabel-> + "In[422]:=",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], -Cell[BoxData["0.6849608803764016`"], "Output", - CellChangeTimes->{3.991319786533783*^9}, - CellLabel->"Out[16]=",ExpressionUUID->"bdbb5f17-757a-b84a-b3ac-6309844818bf"] +Cell[BoxData["0.4215025991580821`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.994074326791608*^9, 3.994074935674151*^9, + 3.994074974805192*^9, 3.9940750195300922`*^9, {3.99407507336273*^9, + 3.994075090999715*^9}}, + CellLabel-> + "Out[422]=",ExpressionUUID->"3985d0fa-c50c-474c-a5a5-6827471756b9"] }, Open ]], Cell[CellGroupData[{ @@ -321,12 +408,17 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}]]}]], "Input", - CellLabel->"In[17]:=",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], + CellLabel-> + "In[423]:=",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], Cell[BoxData[ - RowBox[{"-", "0.43849259375441973`"}]], "Output", - CellChangeTimes->{3.991319786540777*^9}, - CellLabel->"Out[17]=",ExpressionUUID->"1dd72b7b-aeff-8747-91d0-6842e926f3b2"] + RowBox[{"-", "0.08696983109232953`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.994074326803142*^9, 3.994074935687113*^9, + 3.994074974815411*^9, 3.994075019541635*^9, {3.994075073373554*^9, + 3.994075091010479*^9}}, + CellLabel-> + "Out[423]=",ExpressionUUID->"adcc8b62-e3dc-424d-936f-9a791c76df39"] }, Open ]], Cell[CellGroupData[{ @@ -375,12 +467,17 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}]]}]], "Input", - CellLabel->"In[18]:=",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], + CellLabel-> + "In[424]:=",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], Cell[BoxData[ - RowBox[{"-", "0.08210730792808285`"}]], "Output", - CellChangeTimes->{3.9913197865777817`*^9}, - CellLabel->"Out[18]=",ExpressionUUID->"d5bf6730-c400-e84f-827b-d40e35c83dad"] + RowBox[{"-", "0.5569156814457635`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.994074326815329*^9, 3.994074935701499*^9, + 3.9940749748259974`*^9, 3.9940750195530157`*^9, {3.994075073384471*^9, + 3.9940750910236893`*^9}}, + CellLabel-> + "Out[424]=",ExpressionUUID->"de90c3de-d3ca-4aed-a946-1114d56aa2d0"] }, Open ]], Cell[CellGroupData[{ @@ -433,44 +530,64 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", - CellLabel->"In[19]:=",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], + CellLabel-> + "In[425]:=",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], -Cell[BoxData["0.30371622798853437`"], "Output", - CellChangeTimes->{3.9913197866129*^9}, - CellLabel->"Out[19]=",ExpressionUUID->"006d42df-1417-1c4e-b4d9-45c05dee6889"] +Cell[BoxData["0.7095150675393332`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.9940743268278837`*^9, 3.994074935715124*^9, + 3.994074974837141*^9, 3.994075019564198*^9, {3.9940750733955727`*^9, + 3.994075091035767*^9}}, + CellLabel-> + "Out[425]=",ExpressionUUID->"9774975d-6419-47b6-a5f9-4d8f53da4848"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", - CellLabel->"In[20]:=",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], + CellLabel-> + "In[426]:=",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], Cell[BoxData["300"], "Output", - CellChangeTimes->{3.991319786620775*^9}, - CellLabel->"Out[20]=",ExpressionUUID->"64d193ee-3f72-404e-9ca7-d3c855ce1a3f"] + CellChangeTimes->{ + 3.991319786620775*^9, 3.994074326840913*^9, 3.994074935728681*^9, + 3.994074974847731*^9, 3.994075019576145*^9, {3.994075073406547*^9, + 3.9940750910471153`*^9}}, + CellLabel-> + "Out[426]=",ExpressionUUID->"9de8014a-e9fd-4ba8-bdba-cf5232274296"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fin", "=", "0.09"}]], "Input", - CellLabel->"In[21]:=",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], + CellLabel-> + "In[427]:=",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], Cell[BoxData["0.09`"], "Output", - CellChangeTimes->{3.991319786657793*^9}, - CellLabel->"Out[21]=",ExpressionUUID->"8d37ba34-6f64-7d40-86af-bfe10ed7ecf9"] + CellChangeTimes->{ + 3.991319786657793*^9, 3.994074326854053*^9, 3.99407493574161*^9, + 3.994074974858211*^9, 3.994075019594636*^9, {3.994075073417151*^9, + 3.9940750910581427`*^9}}, + CellLabel-> + "Out[427]=",ExpressionUUID->"9d000889-367b-47cc-9abe-e3854d05a73f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffin", "=", "0.42"}]], "Input", - CellLabel->"In[22]:=",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], + CellLabel-> + "In[428]:=",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], Cell[BoxData["0.42`"], "Output", - CellChangeTimes->{3.9913197866657925`*^9}, - CellLabel->"Out[22]=",ExpressionUUID->"cf6fd933-5c85-3c47-a2fa-a53bc24bd1de"] + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.994074326866469*^9, 3.994074935754272*^9, + 3.994074974869028*^9, 3.994075019614243*^9, {3.994075073428639*^9, + 3.994075091069083*^9}}, + CellLabel-> + "Out[428]=",ExpressionUUID->"76919cf3-f476-4f2e-97ee-532c2fed40ed"] }, Open ]], Cell[CellGroupData[{ @@ -479,51 +596,71 @@ Cell[BoxData[ RowBox[{"fex", "=", RowBox[{"-", "2.59"}]}]], "Input", CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, - CellLabel->"In[23]:=",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], + CellLabel-> + "In[429]:=",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], Cell[BoxData[ RowBox[{"-", "2.59`"}]], "Output", - CellChangeTimes->{3.9913197866996*^9}, - CellLabel->"Out[23]=",ExpressionUUID->"68c660da-f0f0-ad47-93fc-5a731457088a"] + CellChangeTimes->{ + 3.9913197866996*^9, 3.9940743268793383`*^9, 3.994074935766993*^9, + 3.994074974879899*^9, 3.994075019631719*^9, {3.9940750734398613`*^9, + 3.994075091080567*^9}}, + CellLabel-> + "Out[429]=",ExpressionUUID->"37b1aac5-9db8-4caa-818d-10f1d9b2c3ab"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffex", "=", "0.54"}]], "Input", - CellLabel->"In[24]:=",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], + CellLabel-> + "In[430]:=",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], Cell[BoxData["0.54`"], "Output", - CellChangeTimes->{3.9913197867406044`*^9}, - CellLabel->"Out[24]=",ExpressionUUID->"8f2a2cb7-00c0-6642-b771-a61c78864261"] + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.994074326891512*^9, 3.994074935779024*^9, + 3.994074974889886*^9, 3.99407501964223*^9, {3.994075073449995*^9, + 3.994075091090703*^9}}, + CellLabel-> + "Out[430]=",ExpressionUUID->"b69578e7-bb0f-4cc2-a4d1-829bda4ca0cc"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"Z1", "="}]], "Input", + RowBox[{"Z1", "=", "66"}]], "Input", CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { - 3.943437514738135*^9, 3.9434375159795218`*^9}, - 3.991799293571144*^9},ExpressionUUID->"50acb4f0-66e7-924a-841b-\ -56c0ae53ef15"], + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, { + 3.994073690740699*^9, 3.994073690862359*^9}}, + CellLabel-> + "In[431]:=",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], -Cell[BoxData["50"], "Output", - CellChangeTimes->{3.9913197867861958`*^9}, - CellLabel->"Out[25]=",ExpressionUUID->"55d6fafd-5f57-cf44-945d-c5c7fb1b087a"] +Cell[BoxData["66"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, 3.994074326904242*^9, 3.994074935791787*^9, + 3.9940749749005938`*^9, 3.994075019653521*^9, {3.994075073461108*^9, + 3.994075091102222*^9}}, + CellLabel-> + "Out[431]=",ExpressionUUID->"f300beeb-1e68-43d7-9a43-0bfc58afd9ba"] }, 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},ExpressionUUID->"4451fdbc-8b04-2c43-a6db-\ -990caacde85d"], + 3.9916443064841423`*^9, {3.994073693453496*^9, 3.9940736957455587`*^9}}, + CellLabel-> + "In[432]:=",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], -Cell[BoxData["48"], "Output", - CellChangeTimes->{3.9913197867928696`*^9}, - CellLabel->"Out[26]=",ExpressionUUID->"e4541cb8-be74-4140-af0a-812e02085534"] +Cell[BoxData["28"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.994074326916279*^9, 3.9940749358034363`*^9, + 3.99407497491004*^9, 3.994075019663575*^9, {3.994075073471445*^9, + 3.994075091112747*^9}}, + CellLabel-> + "Out[432]=",ExpressionUUID->"12936372-2ef2-4ce9-b725-74d378c77de5"] }, Open ]], Cell[CellGroupData[{ @@ -532,11 +669,16 @@ Cell[BoxData[ RowBox[{"A2", "=", RowBox[{"A", "-", "A1"}]}]], "Input", CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, - CellLabel->"In[27]:=",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], + CellLabel-> + "In[433]:=",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], -Cell[BoxData["122"], "Output", - CellChangeTimes->{3.991319786827894*^9}, - CellLabel->"Out[27]=",ExpressionUUID->"41e65355-0d62-5849-876b-33938574e65a"] +Cell[BoxData["70"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.994074326928279*^9, 3.994074935814618*^9, + 3.994074974919529*^9, 3.994075019673669*^9, {3.9940750734815598`*^9, + 3.9940750911232967`*^9}}, + CellLabel-> + "Out[433]=",ExpressionUUID->"573d81f5-eb0c-43e6-8eaa-3f8901160221"] }, Open ]], Cell[CellGroupData[{ @@ -551,11 +693,16 @@ Cell[BoxData[ FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", - CellLabel->"In[28]:=",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], + CellLabel-> + "In[434]:=",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], -Cell[BoxData["0.11065573770491803`"], "Output", - CellChangeTimes->{3.9913197868648605`*^9}, - CellLabel->"Out[28]=",ExpressionUUID->"b6d3bf5f-35d3-5240-acc0-10ada08af661"] +Cell[BoxData["0.1087764705882353`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9940743269397917`*^9, 3.994074935826476*^9, + 3.994074974929028*^9, 3.994075019683881*^9, {3.994075073492182*^9, + 3.994075091133902*^9}}, + CellLabel-> + "Out[434]=",ExpressionUUID->"1e8ae19a-cfe9-41b1-9a1a-bd48ee6c4d87"] }, Open ]], Cell[CellGroupData[{ @@ -570,12 +717,17 @@ Cell[BoxData[ FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", - CellLabel->"In[29]:=",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], + CellLabel-> + "In[435]:=",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], Cell[BoxData[ - RowBox[{"-", "2.5634426229508196`"}]], "Output", - CellChangeTimes->{3.9913197868718567`*^9}, - CellLabel->"Out[29]=",ExpressionUUID->"5d506fa3-f740-ff4f-9786-10c7e1e82f78"] + RowBox[{"-", "2.5658588235294117`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.994074326951318*^9, 3.9940749358379097`*^9, + 3.9940749749388123`*^9, 3.994075019694408*^9, {3.994075073502742*^9, + 3.9940750911440773`*^9}}, + CellLabel-> + "Out[435]=",ExpressionUUID->"2ed79cd1-f2d4-43ad-8bd0-2589898aeb4c"] }, Open ]], Cell[CellGroupData[{ @@ -605,13 +757,17 @@ Cell[BoxData[ "+", "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}},ExpressionUUID->"957e37d7-d728-e448-9a63-\ -f9d65131b81c"], + 3.943418448948422*^9}, {3.9919752185010967`*^9, 3.9919752200326233`*^9}}, + CellLabel-> + "In[436]:=",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], -Cell[BoxData["19.346196963603006`"], "Output", - CellChangeTimes->{3.9913197869068584`*^9}, - CellLabel->"Out[30]=",ExpressionUUID->"02f8af82-a9df-4342-9d73-750f12d42e7b"] +Cell[BoxData["17.474387700041003`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.994074326963644*^9, 3.99407493585293*^9, + 3.994074974948763*^9, 3.9940750197049227`*^9, {3.994075073513197*^9, + 3.9940750911556253`*^9}}, + CellLabel-> + "Out[436]=",ExpressionUUID->"70b0d530-b9a4-4f64-b884-e3ff28b434fc"] }, Open ]], Cell[CellGroupData[{ @@ -619,107 +775,200 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, - CellLabel->"In[31]:=",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], + CellLabel-> + "In[437]:=",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], Cell[BoxData["300"], "Output", - CellChangeTimes->{3.991319786940857*^9}, - CellLabel->"Out[31]=",ExpressionUUID->"1ee0020e-da30-7b46-8f5c-7602d78cb1cb"] + CellChangeTimes->{ + 3.991319786940857*^9, 3.994074326975409*^9, 3.994074935865913*^9, + 3.994074974958894*^9, 3.9940750197157593`*^9, {3.994075073523876*^9, + 3.99407509116647*^9}}, + CellLabel-> + "Out[437]=",ExpressionUUID->"de1af145-a36f-4cd8-bf85-50b5ce866ddc"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ - RowBox[{"v1", "="}]], "Input", + RowBox[{"v1", "=", "1.895"}]], "Input", CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, - 3.943437451104373*^9, 3.9917179877659073`*^9, - 3.9917993555955296`*^9},ExpressionUUID->"477d69f3-81a2-6d40-bff8-\ -58a9467eced9"], + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { + 3.9940737081112833`*^9, 3.994073709172043*^9}}, + CellLabel-> + "In[438]:=",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], + +Cell[BoxData["1.895`"], "Output", + CellChangeTimes->{ + 3.99407432698682*^9, 3.994074935879013*^9, 3.994074974974915*^9, + 3.994075019726281*^9, {3.994075073534071*^9, 3.994075091176951*^9}}, + CellLabel-> + "Out[438]=",ExpressionUUID->"e598e271-4662-4603-b100-b2ef0b372928"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.9918486394740562`*^9, - 3.991848639478634*^9}},ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-\ -bb644ea0ddfa"], + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel-> + "In[439]:=",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"n1", "="}]], "Input", + RowBox[{"n1", "=", "0.785"}]], "Input", CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, - 3.9434374542625003`*^9, 3.9917179964399834`*^9, - 3.9917993574235134`*^9},ExpressionUUID->"a9223860-e2cf-2047-9a01-\ -b6480cd2846d"], + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.994073711335288*^9, 3.994073712564888*^9}}, + CellLabel-> + "In[440]:=",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], + +Cell[BoxData["0.785`"], "Output", + CellChangeTimes->{ + 3.994074327001001*^9, 3.994074935894207*^9, 3.994074974988394*^9, + 3.9940750197399607`*^9, {3.994075073548934*^9, 3.994075091190888*^9}}, + CellLabel-> + "Out[440]=",ExpressionUUID->"1bb1cb7f-b6e0-469a-95fc-2a46de990c5d"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.991848641020609*^9, - 3.9918486410246162`*^9}},ExpressionUUID->"d35f11fe-a53c-8943-ac4f-\ -07cc8884f5b8"], + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel-> + "In[441]:=",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"vv1", "="}]], "Input", + RowBox[{"vv1", "=", "2.605"}]], "Input", CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { - 3.943437458959346*^9, 3.943437459115596*^9}, - 3.9917993587947025`*^9},ExpressionUUID->"afeba878-eb4d-ef43-8941-\ -b46079e5a618"], + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.9940737150021257`*^9, 3.994073716213628*^9}}, + CellLabel-> + "In[442]:=",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], + +Cell[BoxData["2.605`"], "Output", + CellChangeTimes->{ + 3.99407432701412*^9, 3.994074935907247*^9, 3.994074975000514*^9, + 3.994075019753892*^9, {3.994075073561831*^9, 3.994075091203961*^9}}, + CellLabel-> + "Out[442]=",ExpressionUUID->"e3c488f2-9970-4453-be03-0af957364fd5"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.9918486421415234`*^9, - 3.991848642146063*^9}},ExpressionUUID->"12665172-e21c-4e44-b1fc-\ -e81404b2a0db"], + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel-> + "In[443]:=",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"nn1", "="}]], "Input", + RowBox[{"nn1", "=", "1.125"}]], "Input", CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, - 3.991799359954439*^9},ExpressionUUID->"81b490c7-39d4-f348-8914-\ -f54b23f74296"], + 3.991799359954439*^9, {3.994073720159833*^9, 3.9940737213308268`*^9}}, + CellLabel-> + "In[444]:=",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], + +Cell[BoxData["1.125`"], "Output", + CellChangeTimes->{ + 3.9940743270271187`*^9, 3.994074935920094*^9, 3.994074975012611*^9, + 3.994075019766945*^9, {3.99407507357449*^9, 3.994075091216796*^9}}, + CellLabel-> + "Out[444]=",ExpressionUUID->"47ff94e5-2a7c-423d-8b49-729701313d02"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.991848643356409*^9, - 3.991848643361412*^9}},ExpressionUUID->"78f54ff3-2505-5940-9b78-\ -ccc2627a783c"], + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel-> + "In[445]:=",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"v2", "="}]], "Input", + RowBox[{"v2", "=", "1.145"}]], "Input", CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, - 3.991718016467348*^9, - 3.991799361414671*^9},ExpressionUUID->"17c8b6b3-c729-7c42-8964-\ -e70aa92597e4"], + 3.991718016467348*^9, 3.991799361414671*^9, {3.9940737243709307`*^9, + 3.9940737264630413`*^9}}, + CellLabel-> + "In[446]:=",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], + +Cell[BoxData["1.145`"], "Output", + CellChangeTimes->{ + 3.9940743270398684`*^9, 3.994074935932911*^9, 3.994074975024604*^9, + 3.994075019782*^9, {3.994075073587862*^9, 3.9940750912294607`*^9}}, + CellLabel-> + "Out[446]=",ExpressionUUID->"b548f324-40f7-4096-b026-f2a9b1eb8a40"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.991848644751276*^9, - 3.991848644757372*^9}},ExpressionUUID->"3908ad8b-9aa1-4d42-954c-\ -a3b9eef1576d"], + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel-> + "In[447]:=",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"n2", "="}]], "Input", + RowBox[{"n2", "=", "0.565"}]], "Input", CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, - 3.9917180279399567`*^9, - 3.9917993631287174`*^9},ExpressionUUID->"92080e53-e7ee-a444-8071-\ -b94745a1c38a"], + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.9940737287627993`*^9, + 3.994073731586865*^9}}, + CellLabel-> + "In[448]:=",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], + +Cell[BoxData["0.565`"], "Output", + CellChangeTimes->{ + 3.994074327052676*^9, 3.994074935945746*^9, 3.994074975036669*^9, + 3.994075019795862*^9, {3.994075073601301*^9, 3.9940750912417994`*^9}}, + CellLabel-> + "Out[448]=",ExpressionUUID->"a51aaa20-e42c-41c4-9877-27708c69f3e3"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.9918486484561863`*^9, - 3.991848648461731*^9}},ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-\ -7d827c4ef6de"], + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel-> + "In[449]:=",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"vv2", "="}]], "Input", + RowBox[{"vv2", "=", "1.5"}]], "Input", CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, - 3.9917180507508755`*^9, - 3.9917993645898876`*^9},ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-\ -264265a5c2d2"], + 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.994073736277706*^9, + 3.994073737300967*^9}}, + CellLabel-> + "In[450]:=",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], + +Cell[BoxData["1.5`"], "Output", + CellChangeTimes->{ + 3.994074327065536*^9, 3.9940749359585743`*^9, 3.994074975048807*^9, + 3.9940750198098516`*^9, {3.9940750736145077`*^9, 3.994075091254464*^9}}, + CellLabel-> + "Out[450]=",ExpressionUUID->"eb85382a-72c9-4210-9951-5dca056dceae"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.99184864995627*^9, - 3.9918486499632607`*^9}},ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-\ -01ae055dd38b"], + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel-> + "In[451]:=",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"nn2", "="}]], "Input", + RowBox[{"nn2", "=", "0.635"}]], "Input", CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, - 3.9917993660901737`*^9},ExpressionUUID->"0efd73e6-d1c0-4449-a060-\ -0fd7b04115ca"], + 3.9917993660901737`*^9, {3.994073740255535*^9, 3.994073742830049*^9}}, + CellLabel-> + "In[452]:=",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], + +Cell[BoxData["0.635`"], "Output", + CellChangeTimes->{ + 3.99407432707825*^9, 3.994074935971406*^9, 3.994074975061311*^9, + 3.994075019822795*^9, {3.994075073627393*^9, 3.994075091268227*^9}}, + CellLabel-> + "Out[452]=",ExpressionUUID->"805b68e3-0dc1-40ed-ab0d-b8b004b0fbf7"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.9918486513316555`*^9, - 3.9918486513362026`*^9}},ExpressionUUID->"cc8697be-e0d9-6944-bb0c-\ -e22b0839e976"], + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel-> + "In[453]:=",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], Cell[CellGroupData[{ @@ -1208,11 +1457,16 @@ uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== "], - CellLabel->"In[40]:=",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], + CellLabel-> + "In[454]:=",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], -Cell[BoxData["2.0187310532697746`"], "Output", - CellChangeTimes->{3.991319787430073*^9}, - CellLabel->"Out[40]=",ExpressionUUID->"6e3e2b1b-3430-b546-9dfc-ccd29250c9d7"] +Cell[BoxData["0.12734722137174234`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.9940743271585913`*^9, 3.994074936065404*^9, + 3.9940749751004868`*^9, 3.9940750198601313`*^9, {3.9940750736645*^9, + 3.994075091306961*^9}}, + CellLabel-> + "Out[454]=",ExpressionUUID->"583f6967-640f-4503-ac67-302dadba9f42"] }, Open ]], Cell[CellGroupData[{ @@ -1706,11 +1960,16 @@ Cell[BoxData[ CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, - CellLabel->"In[41]:=",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], + CellLabel-> + "In[455]:=",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], -Cell[BoxData["0.14694138435338647`"], "Output", - CellChangeTimes->{3.991319787574972*^9}, - CellLabel->"Out[41]=",ExpressionUUID->"ca8af40c-4f04-8747-aa6f-9594ea3fb865"] +Cell[BoxData["7.503764283698204`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9940743271979237`*^9, 3.994074936098249*^9, + 3.994074975128014*^9, 3.994075019886159*^9, {3.994075073691079*^9, + 3.994075091332656*^9}}, + CellLabel-> + "Out[455]=",ExpressionUUID->"8f54d772-97eb-4307-b464-386a1b728f49"] }, Open ]], Cell[CellGroupData[{ @@ -2198,12 +2457,17 @@ Cell[BoxData[ CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, - CellLabel->"In[42]:=",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], + CellLabel-> + "In[456]:=",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], Cell[BoxData[ - RowBox[{"-", "32.27220689122579`"}]], "Output", - CellChangeTimes->{3.991319787641424*^9}, - CellLabel->"Out[42]=",ExpressionUUID->"43eaee96-3646-954d-899a-d1e3ee2edd5e"] + RowBox[{"-", "14.220629552114458`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.9940743272387447`*^9, 3.9940749361294937`*^9, + 3.994074975156514*^9, 3.994075019911666*^9, {3.9940750737180433`*^9, + 3.994075091358534*^9}}, + CellLabel-> + "Out[456]=",ExpressionUUID->"23550e8b-d4c6-4da8-8d5a-830ff5d1b49c"] }, Open ]], Cell[CellGroupData[{ @@ -2761,12 +3025,17 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel->"In[43]:=",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], + CellLabel-> + "In[457]:=",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], Cell[BoxData[ - RowBox[{"-", "81.2532555132978`"}]], "Output", - CellChangeTimes->{3.991319787711939*^9}, - CellLabel->"Out[43]=",ExpressionUUID->"a8d59888-f6f0-0746-9034-5e74c45610b1"] + RowBox[{"-", "18.05754390959481`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.994074327278555*^9, 3.9940749361661787`*^9, + 3.9940749751890287`*^9, 3.994075019948382*^9, {3.994075073748582*^9, + 3.99407509139049*^9}}, + CellLabel-> + "Out[457]=",ExpressionUUID->"423c727c-a646-4144-a58e-809cb863c915"] }, Open ]], Cell[CellGroupData[{ @@ -3324,12 +3593,17 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel->"In[44]:=",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], + CellLabel-> + "In[458]:=",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], Cell[BoxData[ - RowBox[{"-", "38.89688349410641`"}]], "Output", - CellChangeTimes->{3.9913197877723045`*^9}, - CellLabel->"Out[44]=",ExpressionUUID->"dd5d5506-e4f6-7d4c-bcd9-ea70659f69e1"] + RowBox[{"-", "51.76635903245878`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.994074327318758*^9, 3.9940749362040663`*^9, + 3.9940749752210827`*^9, 3.994075019983523*^9, {3.9940750737782516`*^9, + 3.994075091423628*^9}}, + CellLabel-> + "Out[458]=",ExpressionUUID->"a0c385e2-8bba-4657-8b21-b3fe7b82988e"] }, Open ]], Cell[CellGroupData[{ @@ -3960,34 +4234,49 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel->"In[45]:=",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], + CellLabel-> + "In[459]:=",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], Cell[BoxData[ - RowBox[{"-", "199.04976850122156`"}]], "Output", - CellChangeTimes->{3.991319787833355*^9}, - CellLabel->"Out[45]=",ExpressionUUID->"b983c8d8-6a34-fb4a-8a0a-8960e79ae993"] + RowBox[{"-", "131.16526179683018`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.994074327362462*^9, 3.994074936248407*^9, + 3.99407497525825*^9, 3.994075020024899*^9, {3.994075073816177*^9, + 3.9940750914627743`*^9}}, + CellLabel-> + "Out[459]=",ExpressionUUID->"0e26e5d1-1aa5-45fe-949a-7bced0e7f8a3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U21", "=", "0"}]], "Input", - CellLabel->"In[47]:=",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], + CellLabel-> + "In[460]:=",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], Cell[BoxData["0"], "Output", - CellChangeTimes->{3.9913204210013676`*^9}, - CellLabel->"Out[47]=",ExpressionUUID->"bb0c55af-9cf7-0443-8b24-f19c97d6c781"] + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.9940743273758507`*^9, 3.994074936262808*^9, + 3.994074975269576*^9, 3.99407502003885*^9, {3.994075073828107*^9, + 3.994075091476185*^9}}, + CellLabel-> + "Out[460]=",ExpressionUUID->"34626303-b9be-451d-9cf8-f0b2df71cec9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U22", "=", "0"}]], "Input", - CellLabel->"In[48]:=",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], + CellLabel-> + "In[461]:=",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], Cell[BoxData["0"], "Output", - CellChangeTimes->{3.9913204210355663`*^9}, - CellLabel->"Out[48]=",ExpressionUUID->"0d4bafbb-7685-ff43-aaa0-fe1597369669"] + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.994074327386962*^9, 3.9940749362749443`*^9, + 3.99407497527983*^9, 3.994075020050624*^9, {3.994075073838533*^9, + 3.994075091486505*^9}}, + CellLabel-> + "Out[461]=",ExpressionUUID->"b0064b53-e80b-4d29-9d13-d556198fb072"] }, Open ]], Cell[CellGroupData[{ @@ -4031,11 +4320,16 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel->"In[49]:=",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], + CellLabel-> + "In[462]:=",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], -Cell[BoxData["165.32626018052665`"], "Output", - CellChangeTimes->{3.991320421068556*^9}, - CellLabel->"Out[49]=",ExpressionUUID->"25fde637-8846-5644-8daa-868231713f08"] +Cell[BoxData["102.57012833062927`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.9940743273966637`*^9, 3.994074936286751*^9, + 3.994074975289721*^9, 3.994075020061038*^9, {3.9940750738489656`*^9, + 3.994075091497402*^9}}, + CellLabel-> + "Out[462]=",ExpressionUUID->"0915ec79-a5ac-4fd4-a602-4bf984a7daa9"] }, Open ]], Cell[CellGroupData[{ @@ -4075,12 +4369,17 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel->"In[50]:=",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], + CellLabel-> + "In[463]:=",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], Cell[BoxData[ - RowBox[{"-", "113.55836273207095`"}]], "Output", - CellChangeTimes->{3.991320421098543*^9}, - CellLabel->"Out[50]=",ExpressionUUID->"222cd90e-6438-0a46-88d0-fcdd10fc9432"] + RowBox[{"-", "89.85372860437164`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.994074327406303*^9, 3.9940749362972116`*^9, + 3.994074975299696*^9, 3.994075020070904*^9, {3.994075073859618*^9, + 3.994075091508032*^9}}, + CellLabel-> + "Out[463]=",ExpressionUUID->"60cbf343-82fa-4f2a-86d4-1783b0395be5"] }, Open ]], Cell[CellGroupData[{ @@ -4124,73 +4423,103 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel->"In[51]:=",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], + CellLabel-> + "In[464]:=",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], -Cell[BoxData["101.25756231997637`"], "Output", - CellChangeTimes->{3.9913204211275444`*^9}, - CellLabel->"Out[51]=",ExpressionUUID->"b7d1d4d3-3e05-af4b-9683-83817f2bdc88"] +Cell[BoxData["106.05157029710364`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9940743274159946`*^9, 3.994074936339744*^9, + 3.99407497530958*^9, 3.994075020080964*^9, {3.994075073870014*^9, + 3.994075091518471*^9}}, + CellLabel-> + "Out[464]=",ExpressionUUID->"9a3aa6c7-62fb-4aa4-ae5c-15bd1e280f25"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c11"], "Input", - CellLabel->"In[52]:=",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], + CellLabel-> + "In[465]:=",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], -Cell[BoxData["0.6849608803764016`"], "Output", - CellChangeTimes->{3.9913204211385536`*^9}, - CellLabel->"Out[52]=",ExpressionUUID->"9fab72a0-15cc-f04b-8b2d-eafd610fbe08"] +Cell[BoxData["0.4215025991580821`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.9940743274252653`*^9, 3.994074936349539*^9, + 3.994074975319766*^9, 3.99407502009256*^9, {3.994075073880959*^9, + 3.99407509152868*^9}}, + CellLabel-> + "Out[465]=",ExpressionUUID->"f3b353c4-88b0-43f8-9620-410e423f7eef"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c12"], "Input", - CellLabel->"In[53]:=",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], + CellLabel-> + "In[466]:=",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], Cell[BoxData[ - RowBox[{"-", "0.43849259375441973`"}]], "Output", - CellChangeTimes->{3.9913204211683464`*^9}, - CellLabel->"Out[53]=",ExpressionUUID->"5baa5811-6d68-0847-bfa7-611a7f282595"] + RowBox[{"-", "0.08696983109232953`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.9940749363615837`*^9, 3.994074975323977*^9, + 3.994075020102562*^9, {3.994075073891796*^9, 3.994075091539506*^9}}, + CellLabel-> + "Out[466]=",ExpressionUUID->"80be49dd-d9b4-403f-9033-fe661198416a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c21"], "Input", - CellLabel->"In[54]:=",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], + CellLabel-> + "In[467]:=",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], Cell[BoxData[ - RowBox[{"-", "0.08210730792808285`"}]], "Output", - CellChangeTimes->{3.991320421199068*^9}, - CellLabel->"Out[54]=",ExpressionUUID->"66d60cf8-894b-f64c-bc5e-4862fc34e98d"] + RowBox[{"-", "0.5569156814457635`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.994074936371666*^9, 3.994074975333539*^9, + 3.99407502011357*^9, {3.994075073902575*^9, 3.994075091549716*^9}}, + CellLabel-> + "Out[467]=",ExpressionUUID->"a47d7903-0d29-44bf-acb6-9b6eff97e33f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c22"], "Input", - CellLabel->"In[55]:=",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], + CellLabel-> + "In[468]:=",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], -Cell[BoxData["0.30371622798853437`"], "Output", - CellChangeTimes->{3.991320421228037*^9}, - CellLabel->"Out[55]=",ExpressionUUID->"95baa4f5-66f1-b04e-8459-661f90319bc4"] +Cell[BoxData["0.7095150675393332`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.994074936381706*^9, 3.994074975343092*^9, + 3.994075020123022*^9, {3.994075073912849*^9, 3.99407509155998*^9}}, + CellLabel-> + "Out[468]=",ExpressionUUID->"f0c78dc3-d805-46c1-9ca9-382be008a5be"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w1"], "Input", - CellLabel->"In[56]:=",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], + CellLabel-> + "In[469]:=",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], -Cell[BoxData["1.4975864418719793`"], "Output", - CellChangeTimes->{3.9913204212585373`*^9}, - CellLabel->"Out[56]=",ExpressionUUID->"de032191-9b61-7645-8f26-423f534a2cb1"] +Cell[BoxData["2.2478963955971953`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.994074936391926*^9, 3.994074975352632*^9, + 3.99407502013336*^9, {3.994075073923398*^9, 3.994075091570552*^9}}, + CellLabel-> + "Out[469]=",ExpressionUUID->"3029eb47-7bab-4d84-824d-0a7bd0e4d3f5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w2"], "Input", - CellLabel->"In[57]:=",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], + CellLabel-> + "In[470]:=",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], -Cell[BoxData["2.555495302485258`"], "Output", - CellChangeTimes->{3.9913204212884274`*^9}, - CellLabel->"Out[57]=",ExpressionUUID->"56b6e721-a4ff-f24f-9100-8013c893b0ae"] +Cell[BoxData["1.4243583722932822`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.994074936401989*^9, 3.994074975362446*^9, + 3.9940750201447487`*^9, {3.9940750739335833`*^9, 3.994075091580728*^9}}, + CellLabel-> + "Out[470]=",ExpressionUUID->"ceebf8be-0900-4414-928b-8c4a04a0366c"] }, Open ]], Cell[CellGroupData[{ @@ -4211,12 +4540,16 @@ Cell[BoxData[ RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", - CellLabel->"In[58]:=",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], + CellLabel-> + "In[471]:=",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], Cell[BoxData[ - RowBox[{"-", "10.968150500985438`"}]], "Output", - CellChangeTimes->{3.9913204213185234`*^9}, - CellLabel->"Out[58]=",ExpressionUUID->"ed7537ce-20e6-4246-aac0-4a4b9f4faed7"] + RowBox[{"-", "33.35096235519822`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.994074936412284*^9, 3.994074975373137*^9, + 3.994075020154063*^9, {3.994075073943824*^9, 3.99407509159135*^9}}, + CellLabel-> + "Out[471]=",ExpressionUUID->"b07b9286-d381-4dc2-8a27-14c7eed58c79"] }, Open ]], Cell[CellGroupData[{ @@ -4237,12 +4570,16 @@ Cell[BoxData[ RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", - CellLabel->"In[59]:=",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], + CellLabel-> + "In[472]:=",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], Cell[BoxData[ - RowBox[{"-", "30.737279670206195`"}]], "Output", - CellChangeTimes->{3.991320421349531*^9}, - CellLabel->"Out[59]=",ExpressionUUID->"643b7429-505f-4045-a97f-7e6871b3f504"] + RowBox[{"-", "6.430095836913352`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.994074936422553*^9, 3.994074975386326*^9, + 3.9940750201636887`*^9, {3.994075073954281*^9, 3.9940750916019077`*^9}}, + CellLabel-> + "Out[472]=",ExpressionUUID->"bc445076-8fae-4ece-b921-e9d1c3f70b07"] }, Open ]], Cell[CellGroupData[{ @@ -4307,11 +4644,15 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]}]}]], "Input", - CellLabel->"In[60]:=",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], + CellLabel-> + "In[473]:=",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], -Cell[BoxData["154.3581096795412`"], "Output", - CellChangeTimes->{3.9913204213784294`*^9}, - CellLabel->"Out[60]=",ExpressionUUID->"029098e5-22ab-9a4c-99ad-caac4d1307db"] +Cell[BoxData["69.21916597543105`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.994074936433895*^9, 3.994074975398871*^9, + 3.994075020173421*^9, {3.994075073964881*^9, 3.994075091612443*^9}}, + CellLabel-> + "Out[473]=",ExpressionUUID->"ccf89f1b-f28b-4584-b7b8-0edc0a3401bc"] }, Open ]], Cell[CellGroupData[{ @@ -4352,12 +4693,16 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", - CellLabel->"In[61]:=",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], + CellLabel-> + "In[474]:=",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], Cell[BoxData[ - RowBox[{"-", "113.55836273207095`"}]], "Output", - CellChangeTimes->{3.9913204213904285`*^9}, - CellLabel->"Out[61]=",ExpressionUUID->"f7cceab2-e319-0345-98f3-b759ec5fa40c"] + RowBox[{"-", "89.85372860437164`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.9940749364442453`*^9, 3.994074975409512*^9, + 3.9940750201838827`*^9, {3.994075073975268*^9, 3.994075091623101*^9}}, + CellLabel-> + "Out[474]=",ExpressionUUID->"35d56c82-c6f8-444e-8203-f5d91668e5ec"] }, Open ]], Cell[CellGroupData[{ @@ -4423,11 +4768,15 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]}]}]], "Input", - CellLabel->"In[62]:=",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], + CellLabel-> + "In[475]:=",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], -Cell[BoxData["70.52028264977018`"], "Output", - CellChangeTimes->{3.991320421419428*^9}, - CellLabel->"Out[62]=",ExpressionUUID->"ee7339b3-3748-a34f-a057-3912a0918fd6"] +Cell[BoxData["99.62147446019029`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.9940749364549513`*^9, 3.9940749754197397`*^9, + 3.99407502019348*^9, {3.994075073985984*^9, 3.994075091633762*^9}}, + CellLabel-> + "Out[475]=",ExpressionUUID->"784942dc-4f73-427d-9fdf-670525e4f45f"] }, Open ]], Cell[CellGroupData[{ @@ -4485,11 +4834,15 @@ Cell[BoxData[ RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", - CellLabel->"In[63]:=",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], + CellLabel-> + "In[476]:=",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], -Cell[BoxData["14.070681463640064`"], "Output", - CellChangeTimes->{3.9913204214494324`*^9}, - CellLabel->"Out[63]=",ExpressionUUID->"9d980dd1-9860-3745-8961-1b723545e44c"] +Cell[BoxData["40.3202486570226`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.994074936466222*^9, 3.994074975429769*^9, + 3.9940750202031527`*^9, {3.99407507399641*^9, 3.994075091644145*^9}}, + CellLabel-> + "Out[476]=",ExpressionUUID->"4bacb163-bb6c-49fa-99ef-8a50240e5d6a"] }, Open ]], Cell[CellGroupData[{ @@ -4547,34 +4900,58 @@ Cell[BoxData[ RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", - CellLabel->"In[64]:=",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], + CellLabel-> + "In[477]:=",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], -Cell[BoxData["392.58159931234866`"], "Output", - CellChangeTimes->{3.991320421481529*^9}, - CellLabel->"Out[64]=",ExpressionUUID->"791dcf4f-1a7f-2347-997c-27eed6cf3948"] +Cell[BoxData["624.5259763904654`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.994074936476499*^9, 3.994074975439941*^9, + 3.994075020213862*^9, {3.994075074006929*^9, 3.994075091654208*^9}}, + CellLabel-> + "Out[477]=",ExpressionUUID->"5af8381f-1a53-4b41-97e5-43d3a1efd56f"] }, Open ]], -Cell[BoxData[ - RowBox[{"f1", "="}]], "Input", - CellChangeTimes->{ - 3.991799412462593*^9},ExpressionUUID->"8ee71d5b-854f-5949-88a2-\ -843ffd08641f"], - -Cell[BoxData[""], "Input", - CellChangeTimes->{{3.99184866880085*^9, - 3.9918486688048573`*^9}},ExpressionUUID->"13f65097-48a8-0b48-8f26-\ -bfa63ff56738"], +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", + RowBox[{"f1", "=", "0.8638738906"}]], "Input", + CellChangeTimes->{3.991799412462593*^9, 3.994073767563478*^9}, + CellLabel-> + "In[478]:=",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], + +Cell[BoxData["0.8638738906`"], "Output", CellChangeTimes->{ - 3.991799414288656*^9},ExpressionUUID->"6c8cc5df-ad31-9945-825b-\ -23c469148e55"], + 3.9940749364864273`*^9, 3.9940749754498367`*^9, 3.994075020223328*^9, { + 3.9940750740169067`*^9, 3.994075091664157*^9}}, + CellLabel-> + "Out[478]=",ExpressionUUID->"0d0a8d72-6cbf-4ca9-8187-103c65b65be9"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.991848669922333*^9, - 3.9918486699293537`*^9}},ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-\ -049e50ab8a2a"], + CellChangeTimes->{{3.99184866880085*^9, 3.9918486688048573`*^9}}, + CellLabel-> + "In[479]:=",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f2", "=", "0.5114215939"}]], "Input", + CellChangeTimes->{3.991799414288656*^9, 3.994073773058166*^9}, + CellLabel-> + "In[480]:=",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], + +Cell[BoxData["0.5114215939`"], "Output", + CellChangeTimes->{ + 3.994074936499249*^9, 3.994074975462162*^9, 3.9940750202390757`*^9, { + 3.994075074029931*^9, 3.994075091676601*^9}}, + CellLabel-> + "Out[480]=",ExpressionUUID->"899d4388-5b66-465c-913b-006fd7895eed"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848669922333*^9, 3.9918486699293537`*^9}}, + CellLabel-> + "In[481]:=",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], Cell[CellGroupData[{ @@ -4620,11 +4997,15 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], ")"}]}]], "Input", - CellLabel->"In[67]:=",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], + CellLabel-> + "In[482]:=",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], -Cell[BoxData["2.3793916761039797`*^-53"], "Output", - CellChangeTimes->{3.99132042156752*^9}, - CellLabel->"Out[67]=",ExpressionUUID->"83707082-f118-c146-a95c-693158b61875"] +Cell[BoxData["1.502378697384544`*^-53"], "Output", + CellChangeTimes->{ + 3.99132042156752*^9, 3.994074936512719*^9, 3.9940749754745903`*^9, + 3.9940750202538557`*^9, {3.994075074042775*^9, 3.994075091689769*^9}}, + CellLabel-> + "Out[482]=",ExpressionUUID->"e2e96540-ebb2-46ee-bdd8-0564f4811472"] }, Open ]], Cell[CellGroupData[{ @@ -4658,13 +5039,16 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", - CellChangeTimes->{ - 3.991557471461853*^9},ExpressionUUID->"4237f61c-7340-ae4e-a030-\ -5501c3a85c24"], + CellChangeTimes->{3.991557471461853*^9}, + CellLabel-> + "In[483]:=",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], -Cell[BoxData["2.192147584896785`*^-54"], "Output", - CellChangeTimes->{3.99132042159643*^9}, - CellLabel->"Out[68]=",ExpressionUUID->"93dbdfa1-2e9a-2d49-80d6-05af3e592734"] +Cell[BoxData["1.3422410307557068`*^-54"], "Output", + CellChangeTimes->{ + 3.99132042159643*^9, 3.9940749365248947`*^9, 3.9940749754844227`*^9, + 3.9940750202639236`*^9, {3.99407507405294*^9, 3.994075091699884*^9}}, + CellLabel-> + "Out[483]=",ExpressionUUID->"b2051f55-61c0-4492-a95d-307222f7dc5e"] }, Open ]], Cell[CellGroupData[{ @@ -4697,13 +5081,16 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}]], "Input", - CellChangeTimes->{{3.991557474366678*^9, - 3.99155747655138*^9}},ExpressionUUID->"8a758118-d07d-d243-b7d7-\ -f8e668175458"], + CellChangeTimes->{{3.991557474366678*^9, 3.99155747655138*^9}}, + CellLabel-> + "In[484]:=",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], -Cell[BoxData["3.508823705223133`*^-54"], "Output", - CellChangeTimes->{3.9913204216085243`*^9}, - CellLabel->"Out[69]=",ExpressionUUID->"afd7d2f8-cc87-734c-9c81-c0621f31e0e5"] +Cell[BoxData["2.758393474248247`*^-54"], "Output", + CellChangeTimes->{ + 3.9913204216085243`*^9, 3.99407493653656*^9, 3.994074975494647*^9, + 3.994075020275387*^9, {3.994075074063376*^9, 3.994075091710374*^9}}, + CellLabel-> + "Out[484]=",ExpressionUUID->"ecb528e0-41d9-435b-9fa5-4988320ff6de"] }, Open ]], Cell[CellGroupData[{ @@ -4727,18 +5114,20 @@ Cell[BoxData[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", CellLabel-> - "In[670]:=",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], + "In[485]:=",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], -Cell[BoxData["20.232611751799567`"], "Output", +Cell[BoxData["13.103190348487058`"], "Output", CellChangeTimes->{ 3.991323706886154*^9, 3.9917089973478775`*^9, 3.9920860582546215`*^9, 3.992086268464361*^9, 3.992086312066765*^9, 3.9920865713192253`*^9, 3.992086602134493*^9, 3.9920866682814503`*^9, {3.992086776768282*^9, 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.9920915619364376`*^9, 3.9920915885645847`*^9}, 3.994074936547941*^9, + 3.994074975504512*^9, 3.994075020287477*^9, {3.994075074073863*^9, + 3.99407509172069*^9}}, CellLabel-> - "Out[670]=",ExpressionUUID->"0432d540-b940-d44f-87c2-61a0d876fa3f"] + "Out[485]=",ExpressionUUID->"fb994914-d0f7-4d08-ae0a-8f202062ede3"] }, Open ]], Cell[CellGroupData[{ @@ -4765,18 +5154,19 @@ Cell[BoxData[ RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", CellChangeTimes->{3.992086162437586*^9}, CellLabel-> - "In[671]:=",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], + "In[486]:=",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], -Cell[BoxData["61.811743284264836`"], "Output", +Cell[BoxData["46.75020900783951`"], "Output", CellChangeTimes->{ 3.9913204216685333`*^9, 3.9917083768681793`*^9, 3.9920862684823704`*^9, 3.992086312091795*^9, 3.9920865713392296`*^9, 3.9920866021582546`*^9, 3.992086668289461*^9, {3.992086776775297*^9, 3.9920868041333256`*^9}, 3.992091247484524*^9, {3.9920913926676064`*^9, 3.9920914468313007`*^9}, { 3.9920915031479607`*^9, 3.9920915226223583`*^9}, {3.9920915619450817`*^9, - 3.992091588571615*^9}}, + 3.992091588571615*^9}, 3.994074936558331*^9, 3.994074975514373*^9, + 3.994075020298012*^9, {3.994075074085128*^9, 3.994075091731069*^9}}, CellLabel-> - "Out[671]=",ExpressionUUID->"d6001eae-8a76-854e-9f93-fc6d9f888546"] + "Out[486]=",ExpressionUUID->"3981cd16-8d87-4741-87d3-9dcb0dd6d891"] }, Open ]], Cell[CellGroupData[{ @@ -4786,18 +5176,20 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", CellLabel-> - "In[672]:=",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], + "In[487]:=",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], -Cell[BoxData["2.078701539535334`"], "Output", +Cell[BoxData["1.754175640605632`"], "Output", CellChangeTimes->{ 3.9913237069236546`*^9, 3.9917089973924427`*^9, 3.9920860582606277`*^9, 3.9920862684883747`*^9, 3.992086312111845*^9, 3.9920865713602333`*^9, 3.992086602164238*^9, 3.9920866683116226`*^9, {3.9920867767991753`*^9, 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.9920915619686337`*^9, 3.992091588596325*^9}, 3.994074936568638*^9, + 3.994074975524087*^9, 3.9940750203092957`*^9, {3.9940750740975637`*^9, + 3.994075091742402*^9}}, CellLabel-> - "Out[672]=",ExpressionUUID->"529ddbf3-d030-9b49-9390-e82eea1b6cd9"] + "Out[487]=",ExpressionUUID->"d883b5d1-6205-4365-ac79-56c10834a948"] }, Open ]], Cell[CellGroupData[{ @@ -4808,17 +5200,19 @@ Cell[BoxData[ FractionBox["Kw", "Qw2"]]}]], "Input", CellChangeTimes->{{3.992086303949501*^9, 3.992086304210249*^9}}, CellLabel-> - "In[673]:=",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], + "In[488]:=",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], -Cell[BoxData["5.12428714806174`"], "Output", +Cell[BoxData["3.6549671258307512`"], "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.992091522636343*^9}, {3.992091561975609*^9, 3.99209158860334*^9}, + 3.994074936578792*^9, 3.994074975533774*^9, 3.994075020318893*^9, { + 3.994075074107939*^9, 3.99407509175333*^9}}, CellLabel-> - "Out[673]=",ExpressionUUID->"1efb03b1-ddd9-3544-b911-a583d1e1d12c"] + "Out[488]=",ExpressionUUID->"47f8cfe3-1756-44ab-946f-fe20a05ff862"] }, Open ]], Cell[CellGroupData[{ @@ -4829,18 +5223,19 @@ Cell[BoxData[ RowBox[{"Qw2", "*", "hw"}], "1"]}]], "Input", CellChangeTimes->{3.992086167409481*^9}, CellLabel-> - "In[674]:=",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], + "In[489]:=",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], -Cell[BoxData["316.7411217108498`"], "Output", +Cell[BoxData["170.87047704937007`"], "Output", CellChangeTimes->{ 3.9913204217554817`*^9, 3.9917083769190636`*^9, 3.9920862684953804`*^9, 3.992086312138464*^9, 3.992086571391514*^9, 3.9920866022223396`*^9, 3.9920866683466625`*^9, {3.9920867768341465`*^9, 3.9920868041850357`*^9}, 3.992091247547844*^9, {3.9920913927375374`*^9, 3.992091446867302*^9}, { 3.992091503209553*^9, 3.992091522657341*^9}, {3.992091561999613*^9, - 3.9920915886284447`*^9}}, + 3.9920915886284447`*^9}, 3.994074936589108*^9, 3.994074975543824*^9, + 3.994075020324066*^9, {3.9940750741179647`*^9, 3.9940750917638893`*^9}}, CellLabel-> - "Out[674]=",ExpressionUUID->"0c2f4a5d-aa8f-1846-8930-72520d6d68fa"] + "Out[489]=",ExpressionUUID->"d3459512-4875-4873-8e60-ded20134eea3"] }, Open ]], Cell[CellGroupData[{ @@ -4850,18 +5245,20 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[675]:=",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], + "In[490]:=",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], -Cell[BoxData["42.05756119728645`"], "Output", +Cell[BoxData["22.985297323534816`"], "Output", CellChangeTimes->{ 3.9913237069753113`*^9, 3.99170899744343*^9, 3.992086058291689*^9, 3.9920862685164757`*^9, 3.992086312143465*^9, 3.9920865713975163`*^9, 3.99208660222736*^9, 3.9920866683701725`*^9, {3.9920867768552227`*^9, 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.992091562006651*^9, 3.992091588636162*^9}, 3.99407493659912*^9, + 3.994074975554226*^9, 3.994075020337634*^9, {3.994075074128367*^9, + 3.994075091774065*^9}}, CellLabel-> - "Out[675]=",ExpressionUUID->"51b96550-e411-8f49-ae52-0ef4087a9cca"] + "Out[490]=",ExpressionUUID->"9da34343-33f6-4881-86e9-8ffa6701b6e9"] }, Open ]], Cell[CellGroupData[{ @@ -5051,18 +5448,19 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[676]:=",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], + "In[491]:=",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], -Cell[BoxData["0.007069898460535921`"], "Output", +Cell[BoxData["0.0061543729933492`"], "Output", CellChangeTimes->{ 3.991323707000412*^9, 3.991708997465433*^9, 3.9920860583187714`*^9, 3.992086268523493*^9, 3.9920863121684647`*^9, 3.9920865714232826`*^9, 3.992086602254381*^9, {3.992086776882221*^9, 3.9920868042180786`*^9}, 3.992091247578861*^9, {3.9920913927664986`*^9, 3.992091446900387*^9}, { 3.992091503241564*^9, 3.9920915226853714`*^9}, {3.9920915620301514`*^9, - 3.992091588657053*^9}}, + 3.992091588657053*^9}, 3.994074936610054*^9, 3.9940749755647593`*^9, + 3.99407502034942*^9, {3.9940750741386423`*^9, 3.994075091784724*^9}}, CellLabel-> - "Out[676]=",ExpressionUUID->"ae5a263d-347a-6e47-95a0-f7c420f4dc91"] + "Out[491]=",ExpressionUUID->"565968c7-f2a6-4154-b824-8ecc95d43d9f"] }, Open ]], Cell[CellGroupData[{ @@ -5076,17 +5474,19 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[677]:=",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], + "In[492]:=",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], -Cell[BoxData["10.539945190547895`"], "Output", +Cell[BoxData["11.296737411375291`"], "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.9920915227624416`*^9}, {3.9920915621031647`*^9, 3.9920915887305927`*^9}, + 3.994074936766333*^9, 3.994074975611465*^9, 3.994075020433676*^9, { + 3.994075074192267*^9, 3.994075091838851*^9}}, CellLabel-> - "Out[677]=",ExpressionUUID->"eb964dd3-b4a5-124b-bf6d-21f5f9718a4e"] + "Out[492]=",ExpressionUUID->"aeba6651-6b92-4513-85ef-72cbb67fe247"] }, Open ]], Cell[BoxData[ @@ -5099,7 +5499,7 @@ Cell[BoxData[ 3.9920863634349823`*^9}, {3.9920864985362244`*^9, 3.992086501430176*^9}, { 3.9920869541635437`*^9, 3.992086954848522*^9}}, CellLabel-> - "In[678]:=",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], + "In[493]:=",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], Cell[CellGroupData[{ @@ -5121,11 +5521,15 @@ Cell[BoxData[ FractionBox[ RowBox[{"Ih", "*", "Ir"}], RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", - CellLabel->"In[70]:=",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], + CellLabel-> + "In[494]:=",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], -Cell[BoxData["44.37747929594205`"], "Output", - CellChangeTimes->{3.991320421637537*^9}, - CellLabel->"Out[70]=",ExpressionUUID->"e4d9d77a-b508-454c-baed-04aa4a4ef418"] +Cell[BoxData["33.8214330516121`"], "Output", + CellChangeTimes->{ + 3.991320421637537*^9, 3.994074936780057*^9, 3.9940749756324463`*^9, + 3.994075020447908*^9, {3.994075074213812*^9, 3.994075091860526*^9}}, + CellLabel-> + "Out[494]=",ExpressionUUID->"7050747a-54ce-41f3-8bfa-829a38589ab0"] }, Open ]], Cell[CellGroupData[{ @@ -5150,11 +5554,15 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", - CellLabel->"In[71]:=",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], + CellLabel-> + "In[495]:=",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], -Cell[BoxData["66.74356871519693`"], "Output", - CellChangeTimes->{3.9913204216685333`*^9}, - CellLabel->"Out[71]=",ExpressionUUID->"3007515b-4da6-bf4e-9b4f-90b429e2dd04"] +Cell[BoxData["46.75020900783951`"], "Output", + CellChangeTimes->{ + 3.9913204216685333`*^9, 3.994074936790141*^9, 3.994074975642214*^9, + 3.994075020455833*^9, {3.99407507422532*^9, 3.994075091871029*^9}}, + CellLabel-> + "Out[495]=",ExpressionUUID->"05783674-5c91-4039-b868-9761478c9935"] }, Open ]], Cell[CellGroupData[{ @@ -5163,11 +5571,15 @@ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb3"]]}]], "Input", - CellLabel->"In[72]:=",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], + CellLabel-> + "In[496]:=",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], -Cell[BoxData["0.5630879721742558`"], "Output", - CellChangeTimes->{3.991320421698473*^9}, - CellLabel->"Out[72]=",ExpressionUUID->"f6274504-766f-8549-a4a8-fd0e803dda86"] +Cell[BoxData["1.0918565865262573`"], "Output", + CellChangeTimes->{ + 3.991320421698473*^9, 3.994074936801005*^9, 3.994074975652001*^9, + 3.994075020466427*^9, {3.994075074235756*^9, 3.994075091881679*^9}}, + CellLabel-> + "Out[496]=",ExpressionUUID->"c38b805d-cf94-48f5-ad87-4615a30ec5f1"] }, Open ]], Cell[CellGroupData[{ @@ -5176,11 +5588,15 @@ Cell[BoxData[ RowBox[{"hw", "=", SqrtBox[ FractionBox["Kw", "Qw3"]]}]], "Input", - CellLabel->"In[73]:=",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], + CellLabel-> + "In[497]:=",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], -Cell[BoxData["2.425270911118517`"], "Output", - CellChangeTimes->{3.991320421726494*^9}, - CellLabel->"Out[73]=",ExpressionUUID->"72d24546-97b5-7344-98ec-019068f7b9fb"] +Cell[BoxData["3.6549671258307512`"], "Output", + CellChangeTimes->{ + 3.991320421726494*^9, 3.994074936812052*^9, 3.994074975661764*^9, + 3.9940750204774027`*^9, {3.994075074246265*^9, 3.994075091892459*^9}}, + CellLabel-> + "Out[497]=",ExpressionUUID->"0a252b6c-4502-4fde-a0d4-0a974b9c8a2c"] }, Open ]], Cell[CellGroupData[{ @@ -5189,11 +5605,15 @@ Cell[BoxData[ RowBox[{"Cw", "=", FractionBox[ RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", - CellLabel->"In[74]:=",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], + CellLabel-> + "In[498]:=",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], -Cell[BoxData["161.87123570920699`"], "Output", - CellChangeTimes->{3.9913204217554817`*^9}, - CellLabel->"Out[74]=",ExpressionUUID->"7075b380-afe9-8b44-acc9-29433a09a866"] +Cell[BoxData["170.87047704937007`"], "Output", + CellChangeTimes->{ + 3.9913204217554817`*^9, 3.994074936823965*^9, 3.9940749756714354`*^9, + 3.994075020487782*^9, {3.994075074256814*^9, 3.994075091902958*^9}}, + CellLabel-> + "Out[498]=",ExpressionUUID->"2fa5e23b-ee03-4ec1-95ea-00097e00f2e1"] }, Open ]], Cell[CellGroupData[{ @@ -5202,11 +5622,15 @@ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", - CellLabel->"In[75]:=",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], + CellLabel-> + "In[499]:=",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], -Cell[BoxData["24.98842482695703`"], "Output", - CellChangeTimes->{3.9913204217855225`*^9}, - CellLabel->"Out[75]=",ExpressionUUID->"667394bf-ade3-1944-8cac-a719104b58af"] +Cell[BoxData["36.92815444315952`"], "Output", + CellChangeTimes->{ + 3.9913204217855225`*^9, 3.994074936834209*^9, 3.994074975681313*^9, + 3.994075020497636*^9, {3.994075074267437*^9, 3.9940750919136257`*^9}}, + CellLabel-> + "Out[499]=",ExpressionUUID->"ef91c62f-36c8-4700-ae81-a69344d90fdd"] }, Open ]], Cell[CellGroupData[{ @@ -5395,11 +5819,15 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel->"In[76]:=",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], + CellLabel-> + "In[500]:=",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], -Cell[BoxData["0.020440609994923815`"], "Output", - CellChangeTimes->{3.9913204218154297`*^9}, - CellLabel->"Out[76]=",ExpressionUUID->"bdb345c8-7c0c-3e4d-96c3-d5d94768456f"] +Cell[BoxData["0.0056680041461086164`"], "Output", + CellChangeTimes->{ + 3.9913204218154297`*^9, 3.994074936845209*^9, 3.994074975692152*^9, + 3.9940750205073423`*^9, {3.9940750742793093`*^9, 3.9940750919255133`*^9}}, + CellLabel-> + "Out[500]=",ExpressionUUID->"f3eb6687-2274-41a7-9df2-f310f556d96c"] }, Open ]], Cell[CellGroupData[{ @@ -5412,11 +5840,17 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel->"In[77]:=",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], + Background->RGBColor[0.4, 0.6, 1, 0.33], + CellLabel-> + "In[501]:=",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], -Cell[BoxData["6.198662839936796`"], "Output", - CellChangeTimes->{3.991320422776104*^9}, - CellLabel->"Out[77]=",ExpressionUUID->"a136c49d-6dd1-8a4a-9add-7300e6132adb"] +Cell[BoxData["11.771447256638949`"], "Output", + CellChangeTimes->{ + 3.991320422776104*^9, 3.9940749368840637`*^9, 3.994074975739698*^9, + 3.99407502057265*^9, {3.994075074332365*^9, 3.9940750919803143`*^9}}, + Background->RGBColor[0.14, 0.8, 0.14, 0.33], + CellLabel-> + "Out[501]=",ExpressionUUID->"30edd760-76a8-49bf-9ae2-da9ec7cb0149"] }, Open ]], Cell[CellGroupData[{ @@ -5607,11 +6041,15 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel->"In[78]:=",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], + CellLabel-> + "In[502]:=",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], -Cell[BoxData["0.01158648853220534`"], "Output", - CellChangeTimes->{3.9913204229248886`*^9}, - CellLabel->"Out[78]=",ExpressionUUID->"85a24dde-0aa6-984c-b7a3-ccfa87afb6cd"] +Cell[BoxData["0.02596221539752704`"], "Output", + CellChangeTimes->{ + 3.9913204229248886`*^9, 3.994074936896278*^9, 3.994074975750927*^9, + 3.994075020584323*^9, {3.994075074344434*^9, 3.994075091991942*^9}}, + CellLabel-> + "Out[502]=",ExpressionUUID->"e1607385-ce10-4cf7-9d7f-17a025004bc8"] }, Open ]], Cell[CellGroupData[{ @@ -5624,11 +6062,17 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel->"In[79]:=",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], + Background->None, + CellLabel-> + "In[503]:=",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], -Cell[BoxData["8.233206772574567`"], "Output", - CellChangeTimes->{3.9913204230053368`*^9}, - CellLabel->"Out[79]=",ExpressionUUID->"9a87dba6-1411-3f4b-a17f-9d7a664889bd"] +Cell[BoxData["5.5001440803059065`"], "Output", + CellChangeTimes->{ + 3.9913204230053368`*^9, 3.994074936936968*^9, 3.994074975800235*^9, + 3.994075020648406*^9, {3.994075074400708*^9, 3.994075092045961*^9}}, + Background->None, + CellLabel-> + "Out[503]=",ExpressionUUID->"e22961d9-7314-42ad-95cb-daa7b394c85a"] }, Open ]], Cell[CellGroupData[{ @@ -5720,11 +6164,15 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel->"In[80]:=",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], + CellLabel-> + "In[504]:=",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], -Cell[BoxData["0.6154782275967796`"], "Output", - CellChangeTimes->{3.9913204230393543`*^9}, - CellLabel->"Out[80]=",ExpressionUUID->"39ebfd06-20a8-e945-ae56-55ff95d26618"] +Cell[BoxData["0.09644452732399805`"], "Output", + CellChangeTimes->{ + 3.9913204230393543`*^9, 3.994074936949451*^9, 3.9940749758111467`*^9, + 3.994075020657529*^9, {3.994075074412417*^9, 3.994075092057684*^9}}, + CellLabel-> + "Out[504]=",ExpressionUUID->"a26ce8ac-2269-4591-951c-a89d328f71df"] }, Open ]], Cell[CellGroupData[{ @@ -5813,11 +6261,15 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel->"In[81]:=",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], + CellLabel-> + "In[505]:=",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], -Cell[BoxData["0.3845217724032204`"], "Output", - CellChangeTimes->{3.9913204230728855`*^9}, - CellLabel->"Out[81]=",ExpressionUUID->"6c617ce1-6ebd-9d43-be44-73f7ca23a829"] +Cell[BoxData["0.903555472676002`"], "Output", + CellChangeTimes->{ + 3.9913204230728855`*^9, 3.994074936960535*^9, 3.994074975821406*^9, + 3.994075020668214*^9, {3.994075074423147*^9, 3.994075092069425*^9}}, + CellLabel-> + "Out[505]=",ExpressionUUID->"3d9834dd-54fa-4d19-9791-ed7bda3baa31"] }, Open ]], Cell[CellGroupData[{ @@ -5939,17 +6391,22 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", - CellLabel->"In[82]:=",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], + CellLabel-> + "In[506]:=",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], -Cell[BoxData["0.2366647789511063`"], "Output", - CellChangeTimes->{3.9913204231038837`*^9}, - CellLabel->"Out[82]=",ExpressionUUID->"145fcb0a-d842-9a43-9617-34577d485689"] +Cell[BoxData["0.08714298047324866`"], "Output", + CellChangeTimes->{ + 3.9913204231038837`*^9, 3.994074936973423*^9, 3.994074975832206*^9, + 3.9940750206771507`*^9, {3.9940750744338417`*^9, 3.994075092080255*^9}}, + CellLabel-> + "Out[506]=",ExpressionUUID->"3ffcdb40-2814-4b1f-bc5b-690a5a109f96"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", - RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"1cc34a71-05ee-\ -424c-ba53-995669bbcd65"], + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellLabel-> + "In[507]:=",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], Cell[CellGroupData[{ @@ -6010,67 +6467,85 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.991799443370365*^9}, + CellLabel-> + "In[508]:=",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.210949781724305`*^-207\\\", \ +RowBox[{\\\"197404219092301941520573764\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"806995456000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 508, 25, + 31386469945955888881, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{ - 3.991799443370365*^9},ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-\ -3a94fbdbad18"], + 3.9913204231548862`*^9, 3.994074937018906*^9, 3.994074975850026*^9, + 3.994075020689248*^9, {3.994075074447703*^9, 3.9940750920943947`*^9}}, + CellLabel-> + "During evaluation of \ +In[508]:=",ExpressionUUID->"fa96e4e0-1824-4022-95b6-5d237e5dc412"], 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, 83, 1, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913204231548862`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.136589097020563`*^-212\\\", \ +RowBox[{\\\"365000401101666289871540890\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"52\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"134598144000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 508, 26, + 31386469945955888881, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{ + 3.9913204231548862`*^9, 3.994074937018906*^9, 3.994074975850026*^9, + 3.994075020689248*^9, {3.994075074447703*^9, 3.994075092097526*^9}}, CellLabel-> "During evaluation of \ -In[83]:=",ExpressionUUID->"be9831d8-a262-3541-9040-ad5e31b2eb28"], +In[508]:=",ExpressionUUID->"ce87c19d-47ac-4429-8951-17671976d0d8"], 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, 83, 2, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913204231788826`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.265699882278472`*^-217\\\", \ +RowBox[{\\\"706640776532825937191303163\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"55\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"582006784000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 508, 27, + 31386469945955888881, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{ + 3.9913204231548862`*^9, 3.994074937018906*^9, 3.994074975850026*^9, + 3.994075020689248*^9, {3.994075074447703*^9, 3.994075092100298*^9}}, CellLabel-> "During evaluation of \ -In[83]:=",ExpressionUUID->"31896901-1c82-aa4e-bb9a-c09e2220f684"], - -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, 83, 3, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991320423191887*^9}, - CellLabel-> - "During evaluation of \ -In[83]:=",ExpressionUUID->"aa16e061-5976-9143-8add-7376f3059569"], +In[508]:=",ExpressionUUID->"a759d243-bcc4-47cf-b2cd-c3627b191112"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 83, 4, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991320423200884*^9}, +during this calculation.\"", 2, 508, 28, 31386469945955888881, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{ + 3.9913204231548862`*^9, 3.994074937018906*^9, 3.994074975850026*^9, + 3.994075020689248*^9, {3.994075074447703*^9, 3.994075092102895*^9}}, CellLabel-> "During evaluation of \ -In[83]:=",ExpressionUUID->"68730c15-5e57-ca48-8468-735233dec44d"], +In[508]:=",ExpressionUUID->"563b86f9-b72e-48af-a340-5efcc20f64ea"], -Cell[BoxData["6.198662839936798`"], "Output", - CellChangeTimes->{3.9913204260017204`*^9}, - CellLabel->"Out[83]=",ExpressionUUID->"9deaa7ff-19fe-b345-ae65-d7f8adce193c"] +Cell[BoxData["11.771447256638933`"], "Output", + CellChangeTimes->{ + 3.9913204260017204`*^9, 3.994074938236412*^9, 3.994074977437273*^9, + 3.994075021819463*^9, {3.994075075561866*^9, 3.994075093972012*^9}}, + CellLabel-> + "Out[508]=",ExpressionUUID->"20383c24-ed62-4bf7-b689-7c4d58e0a3a9"] }, Open ]], Cell[CellGroupData[{ @@ -6132,67 +6607,80 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9917994459475594`*^9},ExpressionUUID->"0f581ffd-dfa8-e845-a733-\ -ca6cc08b08a0"], + CellChangeTimes->{3.9917994459475594`*^9}, + CellLabel-> + "In[509]:=",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], 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, 84, 5, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913204262354183`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.210949781724305`*^-207\\\", \ +RowBox[{\\\"197404219092301941520573764\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"806995456000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 509, 29, + 31386469945955888881, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913204262354183`*^9, 3.9940749383071823`*^9, + 3.9940749774572887`*^9, 3.9940750939990263`*^9}, CellLabel-> "During evaluation of \ -In[84]:=",ExpressionUUID->"365becfb-66c2-b442-8b7b-c6077e53a212"], +In[509]:=",ExpressionUUID->"816f1531-6ee6-4a82-9505-bb8aef05e747"], 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, 84, 6, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99132042625132*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.136589097020563`*^-212\\\", \ +RowBox[{\\\"365000401101666289871540890\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"52\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"134598144000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 509, 30, + 31386469945955888881, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913204262354183`*^9, 3.9940749383071823`*^9, + 3.9940749774572887`*^9, 3.994075094002339*^9}, CellLabel-> "During evaluation of \ -In[84]:=",ExpressionUUID->"2b170196-02e0-d544-a5a5-d90722dc10dc"], +In[509]:=",ExpressionUUID->"0ca1d9d3-d84a-4c28-a629-150c9788c0af"], 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, 84, 7, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991320426261322*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.265699882278472`*^-217\\\", \ +RowBox[{\\\"706640776532825937191303163\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"55\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"582006784000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 509, 31, + 31386469945955888881, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913204262354183`*^9, 3.9940749383071823`*^9, + 3.9940749774572887`*^9, 3.994075094004982*^9}, CellLabel-> "During evaluation of \ -In[84]:=",ExpressionUUID->"02967e8e-3430-cf4f-b706-b82af40300a2"], +In[509]:=",ExpressionUUID->"e7d6c14b-d5c2-4db6-95f0-047bf5c02b49"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 84, 8, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991320426270418*^9}, +during this calculation.\"", 2, 509, 32, 31386469945955888881, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913204262354183`*^9, 3.9940749383071823`*^9, + 3.9940749774572887`*^9, 3.9940750940075417`*^9}, CellLabel-> "During evaluation of \ -In[84]:=",ExpressionUUID->"a8933e75-6bbd-684a-8439-656414d7fe5d"], +In[509]:=",ExpressionUUID->"42a43128-060c-42b8-aa62-06747df7c5b7"], -Cell[BoxData["8.233206772574558`"], "Output", - CellChangeTimes->{3.991320428882721*^9}, - CellLabel->"Out[84]=",ExpressionUUID->"0790c690-9267-6441-bc9c-d353ab16b428"] +Cell[BoxData["5.500144080305909`"], "Output", + CellChangeTimes->{3.991320428882721*^9, 3.994074939481648*^9, + 3.99407497756094*^9, 3.994075096009781*^9}, + CellLabel-> + "Out[509]=",ExpressionUUID->"b6842594-c56a-4a5b-b298-6eeb8591f167"] }, Open ]], Cell[CellGroupData[{ @@ -6248,389 +6736,15 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9917994505623856`*^9},ExpressionUUID->"1834f328-2171-004d-99c2-\ -8b70b5354bda"], + CellChangeTimes->{3.9917994505623856`*^9}, + CellLabel-> + "In[510]:=",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:eJwV1nk0VlsfB3BzGRvMROZSmYdosH8ZMo+lzOlxnmMqRLmKDAm3awi5pVGF -kgyZmpRX6UookiJFxueR4TGekPBuf5x11mftc77nu/Zee68jTwt2onOwsbEN -42v1fuKD+pYnrR+MDHnrTapmKWTEytOjmRYhxNm3XIndm6OfpWT6AnmW6muu -2oF4zyOg8x/q1H7bUY5dFhFTx23ajD41ZVKPsC/US9TGFH5Elh+vXijBftZ6 -4tYf7c9oTcX3Sw+xR7oao05Xd6I3C+4iBdhSQ4ruv0y+o5X9Evx52NYTUYZh -zT+QhPPGiBzsmj8j/BGFfchyzsr9GvaXOPHIx0ED6IZkXWUWNovHdGRWewix -vYo8n4bNkxLiqjPHQGr84Y1J2LIbbjacqB5Gr9UrEmOx7aR/3WOZjKE0l8Wj -IdjkbQUxtbUspGjBG+eLHaNsnxDYPIHeDxwR88LuFG/XOlk4hTQ5WbmW2IRb -gP+llGnUr696wwh78gbbnfKgGXQjvJJPB3utgtr6KW0KiSTXWUlhZxF15utF -fyHnL9abBLHl7rvGaMz9QjlSasTKDIUMdiSyjlfPI+0UrsP92H76P5pHTP6g -9hCnd3ewZyNOcfGpLCE73XHbdOzYav49qmuXkfSJOYto7GwweOjbvIISj/ve -dcEm8htMQwvZwS9KbIAHu7D+Um+cNAfk+6ZKT03jvkyvqIwUDog9m97YhR21 -jap4FMQJVYetU4qws0rlFSe0uYEVxpdjid3VOlaznMsNS5UuKRrYctNP3IRE -eUCa7dCkCHaRrl2m2hwP6C+EbOqZotCbZ2fYj1WvBbEXldwB2FTdpx/DJgKg -F6ki7zdJoY02AusjawRgYDkj2Rhbs90UBA0F4T2dw3kTdsBg1W0tdSGwcdrI -/WGCQiEczZp7BdaDJHztUsUeUiiZSvi1AXaqvCXqxvH8kI28LTobwSgjq+4S -NsdDhrzEiY1wgWM+zgdbTmezU+HoRhD5/kCGHdvNJL38Q68wvFvp+ag7RqEW -n9Aw8SZRmMxV3Rk9QqGe+2nJ3mvFIPCyb5Yp9thoYe4DMzEQs2U58mHznRz4 -tLtWDCb2r2Fd+kkh0/MHdb2rxEH5xNuHOcMUep6nTxXkSIJkxrjFVQaF8oZ+ -h+86KQPr7JcCRfspZOGc1BNWLAPX9uwWed+H898I7y9myIBIV732eWzdvB2i -cq6y4Jr+p22yF88nzauC22gzLO71vFP3g0LTE71/DcfLwY562XP23RQSPm5a -WWGrAK7KS8/YOinEyOPzcwhQgFtncszvd1Do6fdW6fFEBTAj/G1tsT1sPONV -ahWgIL7q1ZUvuN/2cKer2orQJ7xip/IZf3/k/mS0uBIExajwb2uj0EFffjWr -PmUwKRRNaG6iEAp31j68pAym9kYOBPa2hJydhKQKeEXOX1tspBBbro5xtKMK -ZBkElG7FLu5xP1z+SgXCr5h9iWrA+/NQUZzU3S3AXqazQ/A/3M/U9ssITRUW -i37FfHhJIWmFizHJgztgeLrHuLOYQi/+mVVd4FADY8HCtWbYHjOu7aS8GvC/ -C95bVkShW2+UVI291KCQhzab9JBCCr7P2+Y71KDv8pbr6g9wv6IhZbJJHZby -XjK88ygkIy1LyrlqAqdZnr3bNQrtyD8psIi0QWP93r/vn6cQjYin1Oy0IU1p -u+FSPN5fipk93h7acHl0PNQJm/Nu6aP6CG24G0DGLcbh/XFr5GBmmTZ0jbkI -WsTg8y/b+6aqog6Efd222Hgar0eyjboLjy7Euhuwnw6i0J1QJYeqZj2Q4Ow4 -F3WIQq3haOf5fEOQXFeben0TheS9Ptt5HtsLH9vctWK/zyL6yuMSmdMA65Jc -z7dfm0Xio0/XiNOMIVXyvuWU7Sw6qbPne+Y2U7iYxBOfyD6LaON/GoRHzCC6 -Vjp2tHwGFRuHrclpMYfpu0mWu9xmUN5swKuiLEvIyS2omuKaQfP7JN6/ibGG -hKTU7afvTaNuNs6pvqO28Gl3Ce9Ri2kUtCk4PU7RHtbYRZWwT06hEv+G2n8T -HGBCrENROH0KnZmRnNvu7whj1rLnKP0pRFntP/T2iBNY+0+wHemYRIbuGfuG -HA/AvWv1YQtnJlGb5M2ANzoHgZnomx+iMomk7sW/KNjqDO/UZa0YVyfQ095t -NnaCh2C75LCF/xwLybZP+oaPHwKDBGmRQQ8W0vk3oyi39zB4VyzZrqkeRze5 -ZtQz61wgyluQ95nqOHq8T6Mr4ZkrBNaYfmrOHEPZO//Z8KfQDYJ4NqvGc4+h -lm/5iTop7tBoMr/M+/coqrK9oRQS6wFmkb79izyjaOr4AbYgwhNMzEcPafw7 -gqj9qn4sEy84FkiPZ20fQQXjX+fD9I+AV+dNqqX2J3K5k+/jKeANm6OfDiT5 -/EQV5dZHOJO8oX45+NoD7p/IULpt4cKCN5yz6R1srhxGir2+XR/9j0Jh7EvP -b4HDaJA/0P7GwFH4KiSv1aA4jFrT7HzMnWlw9tjtV6JMJsqKyOE/1UqD6Usz -pwKLmOhFzcqCj6UPtKZnr587zUTrPCBJ57kPDGvpnd7tyERyIm9bNr3wgSP9 -WruyHZhIs9lWgqfGB3pf+R2n7JnIaY/7g85XPlCyErGtzA7nbwpvOvvOB9po -LctqNkwk1f1wXUOnDzCGngjuNWciJS/xbI85H7BxZJQ+2stEht6sggRdArTK -d5Pj25no3tXJMDt9Apr0r6cFY4t8mjYSNyBg5umY5PQ2JmKZzbUX7Cbguaan -67wqE583bOzNxgSwZxhE8m5lIqG5Da4bHQlQy+KwNFJiosFUPd6c4wQoDoUv -T21iIse3O9t9gwkYHBCKi8WuYduVo3mCgA+Wh8l12FfDjPRenyTA+NSUi7o0 -E9m5mh8diiTA6LVIT4gkEz1Tcn22/R8CivN9ybViTJRWHeX/9B4BXfuFaHHr -mOi49hXDiAICkK2+jiy2zYMyXoNCAuSvLtGqhZiI7wrjwZNiAg44+PT8EmSi -hFCHkceVBJSXeZiGCjBRlKpSYNVrAmgJV5rO8DJRwJWmY+U9BGRML1S3cTKR -pRBjT2gvAYvBTM9I7K0JbILa/QRku+/zUsJmhOoVlw0RAPG6Z/7iYKKjdjnj -j8YImE9mySqwM5ELd1hQ6W8CCLEAqQvLDGQeJhVSJEaH1tCMlpsLDPQ6J9Eq -U4IOaz5u+myNvad5WilCig6jxdmWv+cZSFO56auJLB0G9NxjXLAlOyJNvinT -IVG3W0YK/yeN7uoW49Ojg8pFf+XyWQa6yHH7pe8BOjjXPz2gN8lAfBoC2bbO -dNgyj3SnJhjovHtEqM5hOvBaJ8YXY0dUOmxZcaPD5mdWQVuwj5LsGZdpdDg4 -nXxSjsVAOo004r8TdHD7WWu8ZYyBOjKU+RXT6SAkNvU9aZiBSpCg33AGHXoM -6zSdsc+Pz74pvkSHA7K9gwrY2pZvog2u0MEi9tfx/zEZKI3NZ9r2Fh3e+kdx -LjEYaH/w7a8RRXRo+2vr7n+GGEhG5m99oxI6LPvsueSJPdsYfInzER2CdFKt -tbDvqiDbtAo6mEP/96+DDLTU3V2b+5wOGm0m5zSwK22kCz400CEzyqBjrJ+B -kn9zcGc10qFA56V2PTatYOSoazMdmu6HsnKw13M9lx5soYPJ72OJB7GPVbtc -XPhChyLBFIPXfQykuO1yuNIQHTZ8+JFX2stAvzvOfvrJoMNVxmbOi9itCXTN -0mE6BDsmvgrCju7THTEcowOtts5LA7sr+5On/Qwd2tsnpap+MFDmmg1mZ9hJ -WKuQfbWth4FeTHe7n+QkIZD3IrMSm9ldGBrETULideviK9h7Kk1v03hJ+Cgs -fNsLm+EdsWi1gYQvOu8UprtxfxuzjWbCJDCMvql3Yu/euVEViZJA9heX12Cn -CxYd0pEkIeJmpnzq6vjzH2XS8iRwbbW6oYFN5hc1iCqS0LbFkZRcfT799I91 -yiRc8xAp4MRmkMKCXKokfPd9n/n1Ox4XNvcb0ySBVfKHKxn7+bJwDEObhCOs -jpQI7KGfvf/26pIwWxKYQmLvqj1T125AQqdg9bQJ9uCxEtmXQILfQZY7F7aQ -S6TeE2MSHl4/d4f6xkCGJhY2ZaYkCHk3ezGx0yT7T+dbkBC9MQaasZ9ylabn -WJGQ5c0k/oc9MBF5/6oN7j/KyV6BbVAv+jnVgQSU7XL7OjatrH80yYmEUxrp -uenYqTdKOc4dxPM1cUY2Ebs/1FIz3IUEmTm/yFBsQS8x8xA3EqbfBXr6r+ZZ -DngGeJBg3iP3xHv1/c1nk728Sehhv/PRYbUPn9VdFxoJtIrATMvVPErsmRNB -QukIs9F4Na9voMWGJKEuRjRyz2pe8yPGfj8S6Lazd/VX+z05uwQBJKzROm+s -tZp/10pk9zHcj+8/1x2r+ani2/WCSJCteTy8ZTU/YnCfRggJbpquE4rYAkSZ -i2ooCUZWRcflsHfaRwcrnsR5c6U+Mqv5u6wTZcJJqFEiPkphpyhL3BSPIGH3 -m4bHEtiP1w9VbDhDgui7bmFx7L7Fskb+KBIyVXOHRVfzmdF93NEkTPRI6K1a -v816fiUGr+eg0YII9v8BEOUgTQ== - "]]}, - Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, - {"WolframDynamicHighlight", <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], - StyleBox[ - DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, - Slot["HighlightElements"], - Slot["LayoutOptions"], - Slot["Meta"], - Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, - Annotation[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]], - Line[CompressedData[" -1:eJwV1nk0VlsfB3BzGRvMROZSmYdosH8ZMo+lzOlxnmMqRLmKDAm3awi5pVGF -kgyZmpRX6UookiJFxueR4TGekPBuf5x11mftc77nu/Zee68jTwt2onOwsbEN -42v1fuKD+pYnrR+MDHnrTapmKWTEytOjmRYhxNm3XIndm6OfpWT6AnmW6muu -2oF4zyOg8x/q1H7bUY5dFhFTx23ajD41ZVKPsC/US9TGFH5Elh+vXijBftZ6 -4tYf7c9oTcX3Sw+xR7oao05Xd6I3C+4iBdhSQ4ruv0y+o5X9Evx52NYTUYZh -zT+QhPPGiBzsmj8j/BGFfchyzsr9GvaXOPHIx0ED6IZkXWUWNovHdGRWewix -vYo8n4bNkxLiqjPHQGr84Y1J2LIbbjacqB5Gr9UrEmOx7aR/3WOZjKE0l8Wj -IdjkbQUxtbUspGjBG+eLHaNsnxDYPIHeDxwR88LuFG/XOlk4hTQ5WbmW2IRb -gP+llGnUr696wwh78gbbnfKgGXQjvJJPB3utgtr6KW0KiSTXWUlhZxF15utF -fyHnL9abBLHl7rvGaMz9QjlSasTKDIUMdiSyjlfPI+0UrsP92H76P5pHTP6g -9hCnd3ewZyNOcfGpLCE73XHbdOzYav49qmuXkfSJOYto7GwweOjbvIISj/ve -dcEm8htMQwvZwS9KbIAHu7D+Um+cNAfk+6ZKT03jvkyvqIwUDog9m97YhR21 -jap4FMQJVYetU4qws0rlFSe0uYEVxpdjid3VOlaznMsNS5UuKRrYctNP3IRE -eUCa7dCkCHaRrl2m2hwP6C+EbOqZotCbZ2fYj1WvBbEXldwB2FTdpx/DJgKg -F6ki7zdJoY02AusjawRgYDkj2Rhbs90UBA0F4T2dw3kTdsBg1W0tdSGwcdrI -/WGCQiEczZp7BdaDJHztUsUeUiiZSvi1AXaqvCXqxvH8kI28LTobwSgjq+4S -NsdDhrzEiY1wgWM+zgdbTmezU+HoRhD5/kCGHdvNJL38Q68wvFvp+ag7RqEW -n9Aw8SZRmMxV3Rk9QqGe+2nJ3mvFIPCyb5Yp9thoYe4DMzEQs2U58mHznRz4 -tLtWDCb2r2Fd+kkh0/MHdb2rxEH5xNuHOcMUep6nTxXkSIJkxrjFVQaF8oZ+ -h+86KQPr7JcCRfspZOGc1BNWLAPX9uwWed+H898I7y9myIBIV732eWzdvB2i -cq6y4Jr+p22yF88nzauC22gzLO71vFP3g0LTE71/DcfLwY562XP23RQSPm5a -WWGrAK7KS8/YOinEyOPzcwhQgFtncszvd1Do6fdW6fFEBTAj/G1tsT1sPONV -ahWgIL7q1ZUvuN/2cKer2orQJ7xip/IZf3/k/mS0uBIExajwb2uj0EFffjWr -PmUwKRRNaG6iEAp31j68pAym9kYOBPa2hJydhKQKeEXOX1tspBBbro5xtKMK -ZBkElG7FLu5xP1z+SgXCr5h9iWrA+/NQUZzU3S3AXqazQ/A/3M/U9ssITRUW -i37FfHhJIWmFizHJgztgeLrHuLOYQi/+mVVd4FADY8HCtWbYHjOu7aS8GvC/ -C95bVkShW2+UVI291KCQhzab9JBCCr7P2+Y71KDv8pbr6g9wv6IhZbJJHZby -XjK88ygkIy1LyrlqAqdZnr3bNQrtyD8psIi0QWP93r/vn6cQjYin1Oy0IU1p -u+FSPN5fipk93h7acHl0PNQJm/Nu6aP6CG24G0DGLcbh/XFr5GBmmTZ0jbkI -WsTg8y/b+6aqog6Efd222Hgar0eyjboLjy7Euhuwnw6i0J1QJYeqZj2Q4Ow4 -F3WIQq3haOf5fEOQXFeben0TheS9Ptt5HtsLH9vctWK/zyL6yuMSmdMA65Jc -z7dfm0Xio0/XiNOMIVXyvuWU7Sw6qbPne+Y2U7iYxBOfyD6LaON/GoRHzCC6 -Vjp2tHwGFRuHrclpMYfpu0mWu9xmUN5swKuiLEvIyS2omuKaQfP7JN6/ibGG -hKTU7afvTaNuNs6pvqO28Gl3Ce9Ri2kUtCk4PU7RHtbYRZWwT06hEv+G2n8T -HGBCrENROH0KnZmRnNvu7whj1rLnKP0pRFntP/T2iBNY+0+wHemYRIbuGfuG -HA/AvWv1YQtnJlGb5M2ANzoHgZnomx+iMomk7sW/KNjqDO/UZa0YVyfQ095t -NnaCh2C75LCF/xwLybZP+oaPHwKDBGmRQQ8W0vk3oyi39zB4VyzZrqkeRze5 -ZtQz61wgyluQ95nqOHq8T6Mr4ZkrBNaYfmrOHEPZO//Z8KfQDYJ4NqvGc4+h -lm/5iTop7tBoMr/M+/coqrK9oRQS6wFmkb79izyjaOr4AbYgwhNMzEcPafw7 -gqj9qn4sEy84FkiPZ20fQQXjX+fD9I+AV+dNqqX2J3K5k+/jKeANm6OfDiT5 -/EQV5dZHOJO8oX45+NoD7p/IULpt4cKCN5yz6R1srhxGir2+XR/9j0Jh7EvP -b4HDaJA/0P7GwFH4KiSv1aA4jFrT7HzMnWlw9tjtV6JMJsqKyOE/1UqD6Usz -pwKLmOhFzcqCj6UPtKZnr587zUTrPCBJ57kPDGvpnd7tyERyIm9bNr3wgSP9 -WruyHZhIs9lWgqfGB3pf+R2n7JnIaY/7g85XPlCyErGtzA7nbwpvOvvOB9po -LctqNkwk1f1wXUOnDzCGngjuNWciJS/xbI85H7BxZJQ+2stEht6sggRdArTK -d5Pj25no3tXJMDt9Apr0r6cFY4t8mjYSNyBg5umY5PQ2JmKZzbUX7Cbguaan -67wqE583bOzNxgSwZxhE8m5lIqG5Da4bHQlQy+KwNFJiosFUPd6c4wQoDoUv -T21iIse3O9t9gwkYHBCKi8WuYduVo3mCgA+Wh8l12FfDjPRenyTA+NSUi7o0 -E9m5mh8diiTA6LVIT4gkEz1Tcn22/R8CivN9ybViTJRWHeX/9B4BXfuFaHHr -mOi49hXDiAICkK2+jiy2zYMyXoNCAuSvLtGqhZiI7wrjwZNiAg44+PT8EmSi -hFCHkceVBJSXeZiGCjBRlKpSYNVrAmgJV5rO8DJRwJWmY+U9BGRML1S3cTKR -pRBjT2gvAYvBTM9I7K0JbILa/QRku+/zUsJmhOoVlw0RAPG6Z/7iYKKjdjnj -j8YImE9mySqwM5ELd1hQ6W8CCLEAqQvLDGQeJhVSJEaH1tCMlpsLDPQ6J9Eq -U4IOaz5u+myNvad5WilCig6jxdmWv+cZSFO56auJLB0G9NxjXLAlOyJNvinT -IVG3W0YK/yeN7uoW49Ojg8pFf+XyWQa6yHH7pe8BOjjXPz2gN8lAfBoC2bbO -dNgyj3SnJhjovHtEqM5hOvBaJ8YXY0dUOmxZcaPD5mdWQVuwj5LsGZdpdDg4 -nXxSjsVAOo004r8TdHD7WWu8ZYyBOjKU+RXT6SAkNvU9aZiBSpCg33AGHXoM -6zSdsc+Pz74pvkSHA7K9gwrY2pZvog2u0MEi9tfx/zEZKI3NZ9r2Fh3e+kdx -LjEYaH/w7a8RRXRo+2vr7n+GGEhG5m99oxI6LPvsueSJPdsYfInzER2CdFKt -tbDvqiDbtAo6mEP/96+DDLTU3V2b+5wOGm0m5zSwK22kCz400CEzyqBjrJ+B -kn9zcGc10qFA56V2PTatYOSoazMdmu6HsnKw13M9lx5soYPJ72OJB7GPVbtc -XPhChyLBFIPXfQykuO1yuNIQHTZ8+JFX2stAvzvOfvrJoMNVxmbOi9itCXTN -0mE6BDsmvgrCju7THTEcowOtts5LA7sr+5On/Qwd2tsnpap+MFDmmg1mZ9hJ -WKuQfbWth4FeTHe7n+QkIZD3IrMSm9ldGBrETULideviK9h7Kk1v03hJ+Cgs -fNsLm+EdsWi1gYQvOu8UprtxfxuzjWbCJDCMvql3Yu/euVEViZJA9heX12Cn -CxYd0pEkIeJmpnzq6vjzH2XS8iRwbbW6oYFN5hc1iCqS0LbFkZRcfT799I91 -yiRc8xAp4MRmkMKCXKokfPd9n/n1Ox4XNvcb0ySBVfKHKxn7+bJwDEObhCOs -jpQI7KGfvf/26pIwWxKYQmLvqj1T125AQqdg9bQJ9uCxEtmXQILfQZY7F7aQ -S6TeE2MSHl4/d4f6xkCGJhY2ZaYkCHk3ezGx0yT7T+dbkBC9MQaasZ9ylabn -WJGQ5c0k/oc9MBF5/6oN7j/KyV6BbVAv+jnVgQSU7XL7OjatrH80yYmEUxrp -uenYqTdKOc4dxPM1cUY2Ebs/1FIz3IUEmTm/yFBsQS8x8xA3EqbfBXr6r+ZZ -DngGeJBg3iP3xHv1/c1nk728Sehhv/PRYbUPn9VdFxoJtIrATMvVPErsmRNB -QukIs9F4Na9voMWGJKEuRjRyz2pe8yPGfj8S6Lazd/VX+z05uwQBJKzROm+s -tZp/10pk9zHcj+8/1x2r+ani2/WCSJCteTy8ZTU/YnCfRggJbpquE4rYAkSZ -i2ooCUZWRcflsHfaRwcrnsR5c6U+Mqv5u6wTZcJJqFEiPkphpyhL3BSPIGH3 -m4bHEtiP1w9VbDhDgui7bmFx7L7Fskb+KBIyVXOHRVfzmdF93NEkTPRI6K1a -v816fiUGr+eg0YII9v8BEOUgTQ== - "]]}, "Charting`Private`Tag#1"]}}, {}}, <| - "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, - "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.7142433994369197, 1.372243180027523}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.7142433994369213}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, - "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), - "DefaultStyle" -> { - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]]}, - "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ - Part[#, 1]], - Identity[ - Part[#, 2]]}& ), - "ScalingFunctions" -> {{Identity, Identity}, { - Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> - False|>, - "Meta" -> <| - "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> - Plot, "GroupHighlight" -> False|>|>]]& )[<| - "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, - "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.7142433994369197, 1.372243180027523}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.7142433994369213}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, - "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), - "DefaultStyle" -> { - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]]}, - "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ - Part[#, 1]], - Identity[ - Part[#, 2]]}& ), - "ScalingFunctions" -> {{Identity, Identity}, { - Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, - "Meta" -> <| - "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> - Plot, "GroupHighlight" -> False|>|>], - ImageSizeCache->{{91.80048673422974, - 202.74756866009872`}, {-11.626778089982832`, 5.710721910017167}}], - Selectable->False]}, - Annotation[{{{{}, {}, - Annotation[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]], - Line[CompressedData[" -1:eJwV1nk0VlsfB3BzGRvMROZSmYdosH8ZMo+lzOlxnmMqRLmKDAm3awi5pVGF -kgyZmpRX6UookiJFxueR4TGekPBuf5x11mftc77nu/Zee68jTwt2onOwsbEN -42v1fuKD+pYnrR+MDHnrTapmKWTEytOjmRYhxNm3XIndm6OfpWT6AnmW6muu -2oF4zyOg8x/q1H7bUY5dFhFTx23ajD41ZVKPsC/US9TGFH5Elh+vXijBftZ6 -4tYf7c9oTcX3Sw+xR7oao05Xd6I3C+4iBdhSQ4ruv0y+o5X9Evx52NYTUYZh -zT+QhPPGiBzsmj8j/BGFfchyzsr9GvaXOPHIx0ED6IZkXWUWNovHdGRWewix -vYo8n4bNkxLiqjPHQGr84Y1J2LIbbjacqB5Gr9UrEmOx7aR/3WOZjKE0l8Wj -IdjkbQUxtbUspGjBG+eLHaNsnxDYPIHeDxwR88LuFG/XOlk4hTQ5WbmW2IRb -gP+llGnUr696wwh78gbbnfKgGXQjvJJPB3utgtr6KW0KiSTXWUlhZxF15utF -fyHnL9abBLHl7rvGaMz9QjlSasTKDIUMdiSyjlfPI+0UrsP92H76P5pHTP6g -9hCnd3ewZyNOcfGpLCE73XHbdOzYav49qmuXkfSJOYto7GwweOjbvIISj/ve -dcEm8htMQwvZwS9KbIAHu7D+Um+cNAfk+6ZKT03jvkyvqIwUDog9m97YhR21 -jap4FMQJVYetU4qws0rlFSe0uYEVxpdjid3VOlaznMsNS5UuKRrYctNP3IRE -eUCa7dCkCHaRrl2m2hwP6C+EbOqZotCbZ2fYj1WvBbEXldwB2FTdpx/DJgKg -F6ki7zdJoY02AusjawRgYDkj2Rhbs90UBA0F4T2dw3kTdsBg1W0tdSGwcdrI -/WGCQiEczZp7BdaDJHztUsUeUiiZSvi1AXaqvCXqxvH8kI28LTobwSgjq+4S -NsdDhrzEiY1wgWM+zgdbTmezU+HoRhD5/kCGHdvNJL38Q68wvFvp+ag7RqEW -n9Aw8SZRmMxV3Rk9QqGe+2nJ3mvFIPCyb5Yp9thoYe4DMzEQs2U58mHznRz4 -tLtWDCb2r2Fd+kkh0/MHdb2rxEH5xNuHOcMUep6nTxXkSIJkxrjFVQaF8oZ+ -h+86KQPr7JcCRfspZOGc1BNWLAPX9uwWed+H898I7y9myIBIV732eWzdvB2i -cq6y4Jr+p22yF88nzauC22gzLO71vFP3g0LTE71/DcfLwY562XP23RQSPm5a -WWGrAK7KS8/YOinEyOPzcwhQgFtncszvd1Do6fdW6fFEBTAj/G1tsT1sPONV -ahWgIL7q1ZUvuN/2cKer2orQJ7xip/IZf3/k/mS0uBIExajwb2uj0EFffjWr -PmUwKRRNaG6iEAp31j68pAym9kYOBPa2hJydhKQKeEXOX1tspBBbro5xtKMK -ZBkElG7FLu5xP1z+SgXCr5h9iWrA+/NQUZzU3S3AXqazQ/A/3M/U9ssITRUW -i37FfHhJIWmFizHJgztgeLrHuLOYQi/+mVVd4FADY8HCtWbYHjOu7aS8GvC/ -C95bVkShW2+UVI291KCQhzab9JBCCr7P2+Y71KDv8pbr6g9wv6IhZbJJHZby -XjK88ygkIy1LyrlqAqdZnr3bNQrtyD8psIi0QWP93r/vn6cQjYin1Oy0IU1p -u+FSPN5fipk93h7acHl0PNQJm/Nu6aP6CG24G0DGLcbh/XFr5GBmmTZ0jbkI -WsTg8y/b+6aqog6Efd222Hgar0eyjboLjy7Euhuwnw6i0J1QJYeqZj2Q4Ow4 -F3WIQq3haOf5fEOQXFeben0TheS9Ptt5HtsLH9vctWK/zyL6yuMSmdMA65Jc -z7dfm0Xio0/XiNOMIVXyvuWU7Sw6qbPne+Y2U7iYxBOfyD6LaON/GoRHzCC6 -Vjp2tHwGFRuHrclpMYfpu0mWu9xmUN5swKuiLEvIyS2omuKaQfP7JN6/ibGG -hKTU7afvTaNuNs6pvqO28Gl3Ce9Ri2kUtCk4PU7RHtbYRZWwT06hEv+G2n8T -HGBCrENROH0KnZmRnNvu7whj1rLnKP0pRFntP/T2iBNY+0+wHemYRIbuGfuG -HA/AvWv1YQtnJlGb5M2ANzoHgZnomx+iMomk7sW/KNjqDO/UZa0YVyfQ095t -NnaCh2C75LCF/xwLybZP+oaPHwKDBGmRQQ8W0vk3oyi39zB4VyzZrqkeRze5 -ZtQz61wgyluQ95nqOHq8T6Mr4ZkrBNaYfmrOHEPZO//Z8KfQDYJ4NqvGc4+h -lm/5iTop7tBoMr/M+/coqrK9oRQS6wFmkb79izyjaOr4AbYgwhNMzEcPafw7 -gqj9qn4sEy84FkiPZ20fQQXjX+fD9I+AV+dNqqX2J3K5k+/jKeANm6OfDiT5 -/EQV5dZHOJO8oX45+NoD7p/IULpt4cKCN5yz6R1srhxGir2+XR/9j0Jh7EvP -b4HDaJA/0P7GwFH4KiSv1aA4jFrT7HzMnWlw9tjtV6JMJsqKyOE/1UqD6Usz -pwKLmOhFzcqCj6UPtKZnr587zUTrPCBJ57kPDGvpnd7tyERyIm9bNr3wgSP9 -WruyHZhIs9lWgqfGB3pf+R2n7JnIaY/7g85XPlCyErGtzA7nbwpvOvvOB9po -LctqNkwk1f1wXUOnDzCGngjuNWciJS/xbI85H7BxZJQ+2stEht6sggRdArTK -d5Pj25no3tXJMDt9Apr0r6cFY4t8mjYSNyBg5umY5PQ2JmKZzbUX7Cbguaan -67wqE583bOzNxgSwZxhE8m5lIqG5Da4bHQlQy+KwNFJiosFUPd6c4wQoDoUv -T21iIse3O9t9gwkYHBCKi8WuYduVo3mCgA+Wh8l12FfDjPRenyTA+NSUi7o0 -E9m5mh8diiTA6LVIT4gkEz1Tcn22/R8CivN9ybViTJRWHeX/9B4BXfuFaHHr -mOi49hXDiAICkK2+jiy2zYMyXoNCAuSvLtGqhZiI7wrjwZNiAg44+PT8EmSi -hFCHkceVBJSXeZiGCjBRlKpSYNVrAmgJV5rO8DJRwJWmY+U9BGRML1S3cTKR -pRBjT2gvAYvBTM9I7K0JbILa/QRku+/zUsJmhOoVlw0RAPG6Z/7iYKKjdjnj -j8YImE9mySqwM5ELd1hQ6W8CCLEAqQvLDGQeJhVSJEaH1tCMlpsLDPQ6J9Eq -U4IOaz5u+myNvad5WilCig6jxdmWv+cZSFO56auJLB0G9NxjXLAlOyJNvinT -IVG3W0YK/yeN7uoW49Ojg8pFf+XyWQa6yHH7pe8BOjjXPz2gN8lAfBoC2bbO -dNgyj3SnJhjovHtEqM5hOvBaJ8YXY0dUOmxZcaPD5mdWQVuwj5LsGZdpdDg4 -nXxSjsVAOo004r8TdHD7WWu8ZYyBOjKU+RXT6SAkNvU9aZiBSpCg33AGHXoM -6zSdsc+Pz74pvkSHA7K9gwrY2pZvog2u0MEi9tfx/zEZKI3NZ9r2Fh3e+kdx -LjEYaH/w7a8RRXRo+2vr7n+GGEhG5m99oxI6LPvsueSJPdsYfInzER2CdFKt -tbDvqiDbtAo6mEP/96+DDLTU3V2b+5wOGm0m5zSwK22kCz400CEzyqBjrJ+B -kn9zcGc10qFA56V2PTatYOSoazMdmu6HsnKw13M9lx5soYPJ72OJB7GPVbtc -XPhChyLBFIPXfQykuO1yuNIQHTZ8+JFX2stAvzvOfvrJoMNVxmbOi9itCXTN -0mE6BDsmvgrCju7THTEcowOtts5LA7sr+5On/Qwd2tsnpap+MFDmmg1mZ9hJ -WKuQfbWth4FeTHe7n+QkIZD3IrMSm9ldGBrETULideviK9h7Kk1v03hJ+Cgs -fNsLm+EdsWi1gYQvOu8UprtxfxuzjWbCJDCMvql3Yu/euVEViZJA9heX12Cn -CxYd0pEkIeJmpnzq6vjzH2XS8iRwbbW6oYFN5hc1iCqS0LbFkZRcfT799I91 -yiRc8xAp4MRmkMKCXKokfPd9n/n1Ox4XNvcb0ySBVfKHKxn7+bJwDEObhCOs -jpQI7KGfvf/26pIwWxKYQmLvqj1T125AQqdg9bQJ9uCxEtmXQILfQZY7F7aQ -S6TeE2MSHl4/d4f6xkCGJhY2ZaYkCHk3ezGx0yT7T+dbkBC9MQaasZ9ylabn -WJGQ5c0k/oc9MBF5/6oN7j/KyV6BbVAv+jnVgQSU7XL7OjatrH80yYmEUxrp -uenYqTdKOc4dxPM1cUY2Ebs/1FIz3IUEmTm/yFBsQS8x8xA3EqbfBXr6r+ZZ -DngGeJBg3iP3xHv1/c1nk728Sehhv/PRYbUPn9VdFxoJtIrATMvVPErsmRNB -QukIs9F4Na9voMWGJKEuRjRyz2pe8yPGfj8S6Lazd/VX+z05uwQBJKzROm+s -tZp/10pk9zHcj+8/1x2r+ani2/WCSJCteTy8ZTU/YnCfRggJbpquE4rYAkSZ -i2ooCUZWRcflsHfaRwcrnsR5c6U+Mqv5u6wTZcJJqFEiPkphpyhL3BSPIGH3 -m4bHEtiP1w9VbDhDgui7bmFx7L7Fskb+KBIyVXOHRVfzmdF93NEkTPRI6K1a -v816fiUGr+eg0YII9v8BEOUgTQ== - "]]}, "Charting`Private`Tag#1"]}}, {}}, <| - "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, - "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.7142433994369197, 1.372243180027523}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.7142433994369213}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, - "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]]}, - "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ - Part[#, 1]], - Identity[ - Part[#, 2]]}& ), - "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, - "Primitives" -> {}, "GCFlag" -> False|>, - "Meta" -> <| - "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> - Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], - AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes->{True, True}, - AxesLabel->{None, None}, - AxesOrigin->{0, 0.7142433994369213}, - DisplayFunction->Identity, - Frame->{{False, False}, {False, False}}, - FrameLabel->{{None, None}, {None, None}}, - FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, - GridLines->{None, None}, - GridLinesStyle->Directive[ - GrayLevel[0.5, 0.4]], - ImagePadding->All, - Method->{ - "DefaultBoundaryStyle" -> Automatic, - "DefaultGraphicsInteraction" -> { - "Version" -> 1.2, "TrackMousePosition" -> {True, False}, - "Effects" -> { - "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, - "Droplines" -> { - "freeformCursorMode" -> True, - "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> - AbsolutePointSize[6], "ScalingFunctions" -> None, - "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Identity[#]& )[ - Part[#, 1]], - (Identity[#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - (Identity[#]& )[ - Part[#, 1]], - (Identity[#]& )[ - Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.7142433994369197, 1.372243180027523}}, - PlotRangeClipping->True, - PlotRangePadding->{{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.05]}}, - Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913206956809444`*^9}, - CellLabel->"Out[85]=",ExpressionUUID->"5d2ddb35-b7b8-514c-917f-fcc77dc8600c"] +Cell[BoxData["$Aborted"], "Output", + CellChangeTimes->{3.9913206956809444`*^9, 3.9940749491604347`*^9, + 3.9940750965563307`*^9}, + CellLabel-> + "Out[510]=",ExpressionUUID->"7554495c-e131-4bab-93bd-e74ae9ef4b47"] }, Open ]], Cell[CellGroupData[{ @@ -7516,9 +7630,72 @@ HbLGog== Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", - RowBox[{"{", "}"}], "]"}]}]], "Input", - CellChangeTimes->{{3.991799458254999*^9, - 3.9917994623413925`*^9}},ExpressionUUID->"d9d63445-4981-8f49-b88b-\ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.005449"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.016155"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.026309"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.035566"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.043662"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.050365"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.05556"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.059166"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.061228"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.061803"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.061061"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.059155"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.056323"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.05275"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.048682"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.044291"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.039784"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.035286"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.030946"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.026832"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.023034"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.01957"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.016479"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.013745"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.011373"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.009328"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.007596"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.006134"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.004922"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.003918"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.003101"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.9942354198766413`*^9},ExpressionUUID->"d9d63445-4981-8f49-b88b-\ 9e93d345c648"], Cell[BoxData[ @@ -13679,13 +13856,16 @@ Cell[BoxData["0.08333108480569339`"], "Output", CellChangeTimes->{3.9913279320452003`*^9}, CellLabel-> "Out[146]=",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"] -}, Open ]] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input",ExpressionUUID->"db19731b-41c3-414b-814d-467835909659"] }, -WindowSize->{718.5, 729.75}, -WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +WindowSize->{714, 435}, +WindowMargins->{{Automatic, 3}, {Automatic, 15}}, CellContext->Notebook, -Magnification:>0.8 Inherited, -FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +Magnification:>1.1 Inherited, +FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", StyleDefinitions->"Default.nb", ExpressionUUID->"8af74bcb-cc50-f64a-8d83-c4bf7188d038" ] @@ -13701,625 +13881,662 @@ CellTagsIndex->{} (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ -Cell[576, 22, 229, 5, 22, "Input",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], -Cell[808, 29, 149, 2, 25, "Output",ExpressionUUID->"2e7f3b17-b448-644d-bafd-ec5aa11fe78b"] +Cell[576, 22, 453, 8, 73, "Input",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], +Cell[1032, 32, 302, 6, 45, "Output",ExpressionUUID->"fa94cc60-1305-4c6c-94b9-dfec3b3d5e97"] }, Open ]], Cell[CellGroupData[{ -Cell[994, 36, 179, 4, 22, "Input",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], -Cell[1176, 42, 152, 2, 25, "Output",ExpressionUUID->"d21d7bec-caad-aa4f-9200-81feafc4acec"] +Cell[1371, 43, 255, 5, 40, "Input",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], +Cell[1629, 50, 305, 6, 45, "Output",ExpressionUUID->"50a462f5-1c8f-41d2-a98d-d73de3c59ec6"] }, Open ]], Cell[CellGroupData[{ -Cell[1365, 49, 147, 4, 22, "Input",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], -Cell[1515, 55, 152, 2, 25, "Output",ExpressionUUID->"a2a1281d-2cdd-5d4c-b7c6-d26236e66b80"] +Cell[1971, 61, 226, 5, 40, "Input",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], +Cell[2200, 68, 300, 6, 45, "Output",ExpressionUUID->"7c7a2405-8772-4f44-913e-66d3fac2d8b7"] }, Open ]], Cell[CellGroupData[{ -Cell[1704, 62, 175, 3, 22, "Input",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], -Cell[1882, 67, 152, 2, 25, "Output",ExpressionUUID->"4fa6d65b-1d5c-4f45-949a-d7045f28de30"] +Cell[2537, 79, 180, 4, 40, "Input",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], +Cell[2720, 85, 303, 6, 45, "Output",ExpressionUUID->"94d1ac3a-e16c-43f6-b45d-3876afcdc16d"] }, Open ]], Cell[CellGroupData[{ -Cell[2071, 74, 257, 7, 35, "Input",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], -Cell[2331, 83, 168, 2, 25, "Output",ExpressionUUID->"24d0db1b-9e75-3c46-9c8c-13704f881794"] +Cell[3060, 96, 262, 8, 59, "Input",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], +Cell[3325, 106, 317, 6, 45, "Output",ExpressionUUID->"09f8d98b-8e89-4313-8e8e-e5e97d73c783"] }, Open ]], Cell[CellGroupData[{ -Cell[2536, 90, 131, 2, 22, "Input",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], -Cell[2670, 94, 154, 2, 25, "Output",ExpressionUUID->"d898610f-2407-1a40-9f24-5be2dcfa557e"] +Cell[3679, 117, 136, 3, 40, "Input",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], +Cell[3818, 122, 309, 6, 45, "Output",ExpressionUUID->"ea27385d-4662-4d8a-a618-8973e3e556ec"] }, Open ]], Cell[CellGroupData[{ -Cell[2861, 101, 276, 6, 22, "Input",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], -Cell[3140, 109, 167, 2, 25, "Output",ExpressionUUID->"27ff60eb-7aa7-9949-984d-d71d79c10129"] +Cell[4164, 133, 281, 7, 40, "Input",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], +Cell[4448, 142, 321, 6, 45, "Output",ExpressionUUID->"999d7edd-cf6a-4a9f-9600-d4f1b948cf99"] }, Open ]], Cell[CellGroupData[{ -Cell[3344, 116, 257, 7, 22, "Input",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], -Cell[3604, 125, 167, 2, 25, "Output",ExpressionUUID->"2b4ba32a-ab7d-7140-a043-bb4487278822"] +Cell[4806, 153, 262, 8, 40, "Input",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], +Cell[5071, 163, 320, 6, 45, "Output",ExpressionUUID->"9e6351fe-ca20-4bf4-bec6-6a9b1f77d85e"] }, Open ]], -Cell[3786, 130, 147, 4, 22, "Input",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], -Cell[3936, 136, 147, 4, 22, "Input",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], Cell[CellGroupData[{ -Cell[4108, 144, 129, 2, 22, "Input",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], -Cell[4240, 148, 151, 2, 25, "Output",ExpressionUUID->"3d15ce67-15c8-f549-9c13-b8dddf0b6641"] +Cell[5428, 174, 208, 4, 40, "Input",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], +Cell[5639, 180, 288, 5, 45, "Output",ExpressionUUID->"66fc1cb3-d6d8-4ab9-a3de-c5bef3e6ad7f"] }, Open ]], Cell[CellGroupData[{ -Cell[4428, 155, 129, 2, 22, "Input",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], -Cell[4560, 159, 151, 2, 25, "Output",ExpressionUUID->"8f7b3ab0-4d46-6e46-be1a-60df9a3dcebd"] +Cell[5964, 190, 210, 4, 40, "Input",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], +Cell[6177, 196, 288, 5, 45, "Output",ExpressionUUID->"2040dd30-863a-4f4e-94e7-263f4a362b30"] }, Open ]], Cell[CellGroupData[{ -Cell[4748, 166, 557, 19, 65, "Input",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], -Cell[5308, 187, 169, 2, 25, "Output",ExpressionUUID->"d0cab83a-649b-b14c-b85b-84835124aa09"] +Cell[6502, 206, 133, 3, 40, "Input",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], +Cell[6638, 211, 300, 6, 45, "Output",ExpressionUUID->"f014c2f3-83a1-4b59-91d6-6fe132b7d872"] }, Open ]], Cell[CellGroupData[{ -Cell[5514, 194, 557, 19, 65, "Input",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], -Cell[6074, 215, 168, 2, 25, "Output",ExpressionUUID->"81304ae5-6353-154d-8b14-59a2dc55038b"] +Cell[6975, 222, 133, 3, 40, "Input",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], +Cell[7111, 227, 301, 6, 45, "Output",ExpressionUUID->"603d6b0b-6bef-4195-a4ab-f38eb57c8531"] }, Open ]], Cell[CellGroupData[{ -Cell[6279, 222, 1492, 48, 65, "Input",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], -Cell[7774, 272, 167, 2, 25, "Output",ExpressionUUID->"bdbb5f17-757a-b84a-b3ac-6309844818bf"] +Cell[7449, 238, 561, 20, 109, "Input",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], +Cell[8013, 260, 320, 6, 45, "Output",ExpressionUUID->"bd01e92c-e2aa-42b9-8795-1c21241e342f"] }, Open ]], Cell[CellGroupData[{ -Cell[7978, 279, 1331, 44, 65, "Input",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], -Cell[9312, 325, 185, 3, 25, "Output",ExpressionUUID->"1dd72b7b-aeff-8747-91d0-6842e926f3b2"] +Cell[8370, 271, 561, 20, 109, "Input",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], +Cell[8934, 293, 317, 6, 45, "Output",ExpressionUUID->"01775465-9dc7-4028-8481-c09c2c089cda"] }, Open ]], Cell[CellGroupData[{ -Cell[9534, 333, 1331, 44, 65, "Input",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], -Cell[10868, 379, 187, 3, 25, "Output",ExpressionUUID->"d5bf6730-c400-e84f-827b-d40e35c83dad"] +Cell[9288, 304, 1496, 49, 264, "Input",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], +Cell[10787, 355, 317, 6, 45, "Output",ExpressionUUID->"3985d0fa-c50c-474c-a5a5-6827471756b9"] }, Open ]], Cell[CellGroupData[{ -Cell[11092, 387, 1492, 48, 65, "Input",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], -Cell[12587, 437, 166, 2, 25, "Output",ExpressionUUID->"006d42df-1417-1c4e-b4d9-45c05dee6889"] +Cell[11141, 366, 1335, 45, 231, "Input",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], +Cell[12479, 413, 334, 7, 45, "Output",ExpressionUUID->"adcc8b62-e3dc-424d-936f-9a791c76df39"] }, Open ]], Cell[CellGroupData[{ -Cell[12790, 444, 131, 2, 22, "Input",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], -Cell[12924, 448, 151, 2, 25, "Output",ExpressionUUID->"64d193ee-3f72-404e-9ca7-d3c855ce1a3f"] +Cell[12850, 425, 1335, 45, 231, "Input",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], +Cell[14188, 472, 341, 7, 45, "Output",ExpressionUUID->"de90c3de-d3ca-4aed-a946-1114d56aa2d0"] }, Open ]], Cell[CellGroupData[{ -Cell[13112, 455, 133, 2, 22, "Input",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], -Cell[13248, 459, 153, 2, 25, "Output",ExpressionUUID->"8d37ba34-6f64-7d40-86af-bfe10ed7ecf9"] +Cell[14566, 484, 1496, 49, 264, "Input",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], +Cell[16065, 535, 318, 6, 45, "Output",ExpressionUUID->"9774975d-6419-47b6-a5f9-4d8f53da4848"] }, Open ]], Cell[CellGroupData[{ -Cell[13438, 466, 134, 2, 22, "Input",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], -Cell[13575, 470, 155, 2, 25, "Output",ExpressionUUID->"cf6fd933-5c85-3c47-a2fa-a53bc24bd1de"] +Cell[16420, 546, 135, 3, 40, "Input",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], +Cell[16558, 551, 302, 6, 45, "Output",ExpressionUUID->"9de8014a-e9fd-4ba8-bdba-cf5232274296"] }, Open ]], Cell[CellGroupData[{ -Cell[13767, 477, 219, 4, 22, "Input",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], -Cell[13989, 483, 168, 3, 25, "Output",ExpressionUUID->"68c660da-f0f0-ad47-93fc-5a731457088a"] +Cell[16897, 562, 137, 3, 40, "Input",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], +Cell[17037, 567, 303, 6, 45, "Output",ExpressionUUID->"9d000889-367b-47cc-9abe-e3854d05a73f"] }, Open ]], Cell[CellGroupData[{ -Cell[14194, 491, 134, 2, 22, "Input",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], -Cell[14331, 495, 155, 2, 25, "Output",ExpressionUUID->"8f2a2cb7-00c0-6642-b771-a61c78864261"] +Cell[17377, 578, 138, 3, 40, "Input",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], +Cell[17518, 583, 304, 6, 45, "Output",ExpressionUUID->"76919cf3-f476-4f2e-97ee-532c2fed40ed"] }, Open ]], Cell[CellGroupData[{ -Cell[14523, 502, 248, 5, 22, "Input",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], -Cell[14774, 509, 152, 2, 25, "Output",ExpressionUUID->"55d6fafd-5f57-cf44-945d-c5c7fb1b087a"] +Cell[17859, 594, 223, 5, 40, "Input",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], +Cell[18085, 601, 321, 7, 45, "Output",ExpressionUUID->"37b1aac5-9db8-4caa-818d-10f1d9b2c3ab"] }, Open ]], Cell[CellGroupData[{ -Cell[14963, 516, 228, 5, 22, "Input",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], -Cell[15194, 523, 152, 2, 25, "Output",ExpressionUUID->"e4541cb8-be74-4140-af0a-812e02085534"] +Cell[18443, 613, 138, 3, 40, "Input",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], +Cell[18584, 618, 303, 6, 45, "Output",ExpressionUUID->"b69578e7-bb0f-4cc2-a4d1-829bda4ca0cc"] }, Open ]], Cell[CellGroupData[{ -Cell[15383, 530, 219, 4, 22, "Input",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], -Cell[15605, 536, 151, 2, 25, "Output",ExpressionUUID->"41e65355-0d62-5849-876b-33938574e65a"] +Cell[18924, 629, 326, 6, 40, "Input",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], +Cell[19253, 637, 303, 6, 45, "Output",ExpressionUUID->"f300beeb-1e68-43d7-9a43-0bfc58afd9ba"] }, Open ]], Cell[CellGroupData[{ -Cell[15793, 543, 350, 10, 35, "Input",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], -Cell[16146, 555, 170, 2, 25, "Output",ExpressionUUID->"b6d3bf5f-35d3-5240-acc0-10ada08af661"] +Cell[19593, 648, 302, 6, 40, "Input",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], +Cell[19898, 656, 302, 6, 45, "Output",ExpressionUUID->"12936372-2ef2-4ce9-b725-74d378c77de5"] }, Open ]], Cell[CellGroupData[{ -Cell[16353, 562, 350, 10, 35, "Input",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], -Cell[16706, 574, 186, 3, 25, "Output",ExpressionUUID->"5d506fa3-f740-ff4f-9786-10c7e1e82f78"] +Cell[20237, 667, 223, 5, 40, "Input",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], +Cell[20463, 674, 303, 6, 45, "Output",ExpressionUUID->"573d81f5-eb0c-43e6-8eaa-3f8901160221"] }, Open ]], Cell[CellGroupData[{ -Cell[16929, 582, 975, 27, 92, "Input",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], -Cell[17907, 611, 169, 2, 25, "Output",ExpressionUUID->"02f8af82-a9df-4342-9d73-750f12d42e7b"] +Cell[20803, 685, 354, 11, 59, "Input",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], +Cell[21160, 698, 320, 6, 45, "Output",ExpressionUUID->"1e8ae19a-cfe9-41b1-9a1a-bd48ee6c4d87"] }, Open ]], Cell[CellGroupData[{ -Cell[18113, 618, 199, 3, 22, "Input",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], -Cell[18315, 623, 151, 2, 25, "Output",ExpressionUUID->"1ee0020e-da30-7b46-8f5c-7602d78cb1cb"] +Cell[21517, 709, 354, 11, 59, "Input",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], +Cell[21874, 722, 341, 7, 45, "Output",ExpressionUUID->"2ed79cd1-f2d4-43ad-8bd0-2589898aeb4c"] }, Open ]], -Cell[18481, 628, 250, 5, 22, "Input",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], -Cell[18734, 635, 154, 3, 22, "Input",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], -Cell[18891, 640, 250, 5, 22, "Input",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], -Cell[19144, 647, 154, 3, 22, "Input",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], -Cell[19301, 652, 251, 5, 22, "Input",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], -Cell[19555, 659, 154, 3, 22, "Input",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], -Cell[19712, 664, 275, 5, 22, "Input",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], -Cell[19990, 671, 152, 3, 22, "Input",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], -Cell[20145, 676, 222, 5, 22, "Input",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], -Cell[20370, 683, 152, 3, 22, "Input",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], -Cell[20525, 688, 226, 5, 22, "Input",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], -Cell[20754, 695, 154, 3, 22, "Input",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], -Cell[20911, 700, 229, 5, 22, "Input",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], -Cell[21143, 707, 153, 3, 22, "Input",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], -Cell[21299, 712, 198, 4, 22, "Input",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], -Cell[21500, 718, 156, 3, 22, "Input",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], Cell[CellGroupData[{ -Cell[21681, 725, 19809, 485, 1553, "Input",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], -Cell[41493, 1212, 167, 2, 25, "Output",ExpressionUUID->"6e3e2b1b-3430-b546-9dfc-ccd29250c9d7"] +Cell[22252, 734, 998, 27, 201, "Input",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], +Cell[23253, 763, 321, 6, 45, "Output",ExpressionUUID->"70b0d530-b9a4-4f64-b884-e3ff28b434fc"] }, Open ]], Cell[CellGroupData[{ -Cell[41697, 1219, 19748, 489, 1579, "Input",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], -Cell[61448, 1710, 168, 2, 25, "Output",ExpressionUUID->"ca8af40c-4f04-8747-aa6f-9594ea3fb865"] +Cell[23611, 774, 203, 4, 40, "Input",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], +Cell[23817, 780, 301, 6, 45, "Output",ExpressionUUID->"de1af145-a36f-4cd8-bf85-50b5ce866ddc"] }, Open ]], Cell[CellGroupData[{ -Cell[61653, 1717, 19748, 483, 1572, "Input",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], -Cell[81404, 2202, 183, 3, 25, "Output",ExpressionUUID->"43eaee96-3646-954d-899a-d1e3ee2edd5e"] +Cell[24155, 791, 333, 6, 40, "Input",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], +Cell[24491, 799, 276, 5, 45, "Output",ExpressionUUID->"e598e271-4662-4603-b100-b2ef0b372928"] }, Open ]], +Cell[24782, 807, 177, 3, 40, "Input",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], Cell[CellGroupData[{ -Cell[81624, 2210, 22534, 553, 1766, "Input",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], -Cell[104161, 2765, 182, 3, 25, "Output",ExpressionUUID->"a8d59888-f6f0-0746-9034-5e74c45610b1"] +Cell[24984, 814, 331, 6, 40, "Input",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], +Cell[25318, 822, 279, 5, 45, "Output",ExpressionUUID->"1bb1cb7f-b6e0-469a-95fc-2a46de990c5d"] }, Open ]], +Cell[25612, 830, 177, 3, 40, "Input",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], Cell[CellGroupData[{ -Cell[104380, 2773, 22535, 553, 1773, "Input",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], -Cell[126918, 3328, 185, 3, 25, "Output",ExpressionUUID->"dd5d5506-e4f6-7d4c-bcd9-ea70659f69e1"] +Cell[25814, 837, 334, 6, 40, "Input",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], +Cell[26151, 845, 276, 5, 45, "Output",ExpressionUUID->"e3c488f2-9970-4453-be03-0af957364fd5"] }, Open ]], +Cell[26442, 853, 177, 3, 40, "Input",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], Cell[CellGroupData[{ -Cell[127140, 3336, 25491, 626, 1984, "Input",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], -Cell[152634, 3964, 184, 3, 25, "Output",ExpressionUUID->"b983c8d8-6a34-fb4a-8a0a-8960e79ae993"] +Cell[26644, 860, 358, 6, 40, "Input",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], +Cell[27005, 868, 278, 5, 45, "Output",ExpressionUUID->"47ff94e5-2a7c-423d-8b49-729701313d02"] }, Open ]], +Cell[27298, 876, 175, 3, 40, "Input",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], Cell[CellGroupData[{ -Cell[152855, 3972, 130, 2, 22, "Input",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], -Cell[152988, 3976, 151, 2, 25, "Output",ExpressionUUID->"bb0c55af-9cf7-0443-8b24-f19c97d6c781"] +Cell[27498, 883, 307, 6, 40, "Input",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], +Cell[27808, 891, 278, 5, 45, "Output",ExpressionUUID->"b548f324-40f7-4096-b026-f2a9b1eb8a40"] }, Open ]], +Cell[28101, 899, 175, 3, 40, "Input",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], Cell[CellGroupData[{ -Cell[153176, 3983, 130, 2, 22, "Input",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], -Cell[153309, 3987, 151, 2, 25, "Output",ExpressionUUID->"0d4bafbb-7685-ff43-aaa0-fe1597369669"] +Cell[28301, 906, 309, 6, 40, "Input",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], +Cell[28613, 914, 279, 5, 45, "Output",ExpressionUUID->"a51aaa20-e42c-41c4-9877-27708c69f3e3"] }, Open ]], +Cell[28907, 922, 177, 3, 40, "Input",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], Cell[CellGroupData[{ -Cell[153497, 3994, 1144, 39, 46, "Input",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], -Cell[154644, 4035, 167, 2, 25, "Output",ExpressionUUID->"25fde637-8846-5644-8daa-868231713f08"] +Cell[29109, 929, 308, 6, 40, "Input",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], +Cell[29420, 937, 281, 5, 45, "Output",ExpressionUUID->"eb85382a-72c9-4210-9951-5dca056dceae"] }, Open ]], +Cell[29716, 945, 176, 3, 40, "Input",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], Cell[CellGroupData[{ -Cell[154848, 4042, 1041, 35, 46, "Input",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], -Cell[155892, 4079, 184, 3, 25, "Output",ExpressionUUID->"222cd90e-6438-0a46-88d0-fcdd10fc9432"] +Cell[29917, 952, 279, 5, 40, "Input",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], +Cell[30199, 959, 276, 5, 45, "Output",ExpressionUUID->"805b68e3-0dc1-40ed-ab0d-b8b004b0fbf7"] }, Open ]], +Cell[30490, 967, 179, 3, 40, "Input",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], Cell[CellGroupData[{ -Cell[156113, 4087, 1144, 39, 46, "Input",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], -Cell[157260, 4128, 169, 2, 25, "Output",ExpressionUUID->"b7d1d4d3-3e05-af4b-9683-83817f2bdc88"] +Cell[30694, 974, 19813, 486, 3372, "Input",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], +Cell[50510, 1462, 321, 6, 45, "Output",ExpressionUUID->"583f6967-640f-4503-ac67-302dadba9f42"] }, Open ]], Cell[CellGroupData[{ -Cell[157466, 4135, 108, 1, 22, "Input",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], -Cell[157577, 4138, 169, 2, 25, "Output",ExpressionUUID->"9fab72a0-15cc-f04b-8b2d-eafd610fbe08"] +Cell[50868, 1473, 19752, 490, 3372, "Input",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], +Cell[70623, 1965, 317, 6, 45, "Output",ExpressionUUID->"8f54d772-97eb-4307-b464-386a1b728f49"] }, Open ]], Cell[CellGroupData[{ -Cell[157783, 4145, 108, 1, 22, "Input",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], -Cell[157894, 4148, 187, 3, 25, "Output",ExpressionUUID->"5baa5811-6d68-0847-bfa7-611a7f282595"] +Cell[70977, 1976, 19752, 484, 3372, "Input",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], +Cell[90732, 2462, 339, 7, 45, "Output",ExpressionUUID->"23550e8b-d4c6-4da8-8d5a-830ff5d1b49c"] }, Open ]], Cell[CellGroupData[{ -Cell[158118, 4156, 108, 1, 22, "Input",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], -Cell[158229, 4159, 185, 3, 25, "Output",ExpressionUUID->"66d60cf8-894b-f64c-bc5e-4862fc34e98d"] +Cell[91108, 2474, 22538, 554, 3853, "Input",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], +Cell[113649, 3030, 335, 7, 45, "Output",ExpressionUUID->"423c727c-a646-4144-a58e-809cb863c915"] }, Open ]], Cell[CellGroupData[{ -Cell[158451, 4167, 108, 1, 22, "Input",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], -Cell[158562, 4170, 168, 2, 25, "Output",ExpressionUUID->"95baa4f5-66f1-b04e-8459-661f90319bc4"] +Cell[114021, 3042, 22539, 554, 3853, "Input",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], +Cell[136563, 3598, 340, 7, 45, "Output",ExpressionUUID->"a0c385e2-8bba-4657-8b21-b3fe7b82988e"] }, Open ]], Cell[CellGroupData[{ -Cell[158767, 4177, 107, 1, 22, "Input",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], -Cell[158877, 4180, 169, 2, 25, "Output",ExpressionUUID->"de032191-9b61-7645-8f26-423f534a2cb1"] +Cell[136940, 3610, 25495, 627, 4334, "Input",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], +Cell[162438, 4239, 334, 7, 45, "Output",ExpressionUUID->"0e26e5d1-1aa5-45fe-949a-7bced0e7f8a3"] }, Open ]], Cell[CellGroupData[{ -Cell[159083, 4187, 107, 1, 22, "Input",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], -Cell[159193, 4190, 168, 2, 25, "Output",ExpressionUUID->"56b6e721-a4ff-f24f-9100-8013c893b0ae"] +Cell[162809, 4251, 134, 3, 40, "Input",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], +Cell[162946, 4256, 301, 6, 45, "Output",ExpressionUUID->"34626303-b9be-451d-9cf8-f0b2df71cec9"] }, Open ]], Cell[CellGroupData[{ -Cell[159398, 4197, 497, 16, 46, "Input",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], -Cell[159898, 4215, 186, 3, 25, "Output",ExpressionUUID->"ed7537ce-20e6-4246-aac0-4a4b9f4faed7"] +Cell[163284, 4267, 134, 3, 40, "Input",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], +Cell[163421, 4272, 301, 6, 45, "Output",ExpressionUUID->"b0064b53-e80b-4d29-9d13-d556198fb072"] }, Open ]], Cell[CellGroupData[{ -Cell[160121, 4223, 497, 16, 46, "Input",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], -Cell[160621, 4241, 184, 3, 25, "Output",ExpressionUUID->"643b7429-505f-4045-a97f-7e6871b3f504"] +Cell[163759, 4283, 1148, 40, 155, "Input",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], +Cell[164910, 4325, 320, 6, 45, "Output",ExpressionUUID->"0915ec79-a5ac-4fd4-a602-4bf984a7daa9"] }, Open ]], Cell[CellGroupData[{ -Cell[160842, 4249, 1788, 60, 109, "Input",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], -Cell[162633, 4311, 168, 2, 25, "Output",ExpressionUUID->"029098e5-22ab-9a4c-99ad-caac4d1307db"] +Cell[165267, 4336, 1045, 36, 210, "Input",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], +Cell[166315, 4374, 334, 7, 45, "Output",ExpressionUUID->"60cbf343-82fa-4f2a-86d4-1783b0395be5"] }, Open ]], Cell[CellGroupData[{ -Cell[162838, 4318, 1101, 36, 64, "Input",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], -Cell[163942, 4356, 186, 3, 25, "Output",ExpressionUUID->"f7cceab2-e319-0345-98f3-b759ec5fa40c"] +Cell[166686, 4386, 1148, 40, 155, "Input",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], +Cell[167837, 4428, 319, 6, 45, "Output",ExpressionUUID->"9a3aa6c7-62fb-4aa4-ae5c-15bd1e280f25"] }, Open ]], Cell[CellGroupData[{ -Cell[164165, 4364, 1818, 61, 90, "Input",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], -Cell[165986, 4427, 166, 2, 25, "Output",ExpressionUUID->"ee7339b3-3748-a34f-a057-3912a0918fd6"] +Cell[168193, 4439, 112, 2, 40, "Input",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], +Cell[168308, 4443, 318, 6, 45, "Output",ExpressionUUID->"f3b353c4-88b0-43f8-9620-410e423f7eef"] }, Open ]], Cell[CellGroupData[{ -Cell[166189, 4434, 1631, 53, 65, "Input",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], -Cell[167823, 4489, 169, 2, 25, "Output",ExpressionUUID->"9d980dd1-9860-3745-8961-1b723545e44c"] +Cell[168663, 4454, 112, 2, 40, "Input",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], +Cell[168778, 4458, 312, 6, 45, "Output",ExpressionUUID->"80be49dd-d9b4-403f-9033-fe661198416a"] }, Open ]], Cell[CellGroupData[{ -Cell[168029, 4496, 1631, 53, 65, "Input",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], -Cell[169663, 4551, 167, 2, 25, "Output",ExpressionUUID->"791dcf4f-1a7f-2347-997c-27eed6cf3948"] +Cell[169127, 4469, 112, 2, 40, "Input",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], +Cell[169242, 4473, 306, 6, 45, "Output",ExpressionUUID->"a47d7903-0d29-44bf-acb6-9b6eff97e33f"] }, Open ]], -Cell[169845, 4556, 147, 4, 22, "Input",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], -Cell[169995, 4562, 153, 3, 22, "Input",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], -Cell[170151, 4567, 147, 4, 22, "Input",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], -Cell[170301, 4573, 154, 3, 22, "Input",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], Cell[CellGroupData[{ -Cell[170480, 4580, 1297, 42, 39, "Input",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], -Cell[171780, 4624, 171, 2, 25, "Output",ExpressionUUID->"83707082-f118-c146-a95c-693158b61875"] +Cell[169585, 4484, 112, 2, 40, "Input",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], +Cell[169700, 4488, 289, 5, 45, "Output",ExpressionUUID->"f0c78dc3-d805-46c1-9ca9-382be008a5be"] }, Open ]], Cell[CellGroupData[{ -Cell[171988, 4631, 908, 31, 46, "Input",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], -Cell[172899, 4664, 170, 2, 25, "Output",ExpressionUUID->"93dbdfa1-2e9a-2d49-80d6-05af3e592734"] +Cell[170026, 4498, 111, 2, 40, "Input",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], +Cell[170140, 4502, 291, 5, 45, "Output",ExpressionUUID->"3029eb47-7bab-4d84-824d-0a7bd0e4d3f5"] }, Open ]], Cell[CellGroupData[{ -Cell[173106, 4671, 884, 30, 46, "Input",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], -Cell[173993, 4703, 173, 2, 25, "Output",ExpressionUUID->"afd7d2f8-cc87-734c-9c81-c0621f31e0e5"] +Cell[170468, 4512, 111, 2, 40, "Input",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], +Cell[170582, 4516, 296, 5, 45, "Output",ExpressionUUID->"ceebf8be-0900-4414-928b-8c4a04a0366c"] }, Open ]], Cell[CellGroupData[{ -Cell[174203, 4710, 558, 19, 42, "Input",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], -Cell[174764, 4731, 567, 9, 25, "Output",ExpressionUUID->"0432d540-b940-d44f-87c2-61a0d876fa3f"] +Cell[170915, 4526, 501, 17, 77, "Input",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], +Cell[171419, 4545, 307, 6, 45, "Output",ExpressionUUID->"b07b9286-d381-4dc2-8a27-14c7eed58c79"] }, Open ]], Cell[CellGroupData[{ -Cell[175368, 4745, 665, 22, 42, "Input",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], -Cell[176036, 4769, 554, 9, 25, "Output",ExpressionUUID->"d6001eae-8a76-854e-9f93-fc6d9f888546"] +Cell[171763, 4556, 501, 17, 77, "Input",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], +Cell[172267, 4575, 310, 6, 45, "Output",ExpressionUUID->"bc445076-8fae-4ece-b921-e9d1c3f70b07"] }, Open ]], Cell[CellGroupData[{ -Cell[176627, 4783, 170, 5, 46, "Input",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], -Cell[176800, 4790, 577, 9, 25, "Output",ExpressionUUID->"529ddbf3-d030-9b49-9390-e82eea1b6cd9"] +Cell[172614, 4586, 1792, 61, 472, "Input",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], +Cell[174409, 4649, 291, 5, 45, "Output",ExpressionUUID->"ccf89f1b-f28b-4584-b7b8-0edc0a3401bc"] }, Open ]], Cell[CellGroupData[{ -Cell[177414, 4804, 236, 6, 45, "Input",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], -Cell[177653, 4812, 514, 8, 25, "Output",ExpressionUUID->"1efb03b1-ddd9-3544-b911-a583d1e1d12c"] +Cell[174737, 4659, 1105, 37, 240, "Input",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], +Cell[175845, 4698, 312, 6, 45, "Output",ExpressionUUID->"35d56c82-c6f8-444e-8203-f5d91668e5ec"] }, Open ]], Cell[CellGroupData[{ -Cell[178204, 4825, 223, 6, 35, "Input",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], -Cell[178430, 4833, 549, 9, 25, "Output",ExpressionUUID->"0c2f4a5d-aa8f-1846-8930-72520d6d68fa"] +Cell[176194, 4709, 1822, 62, 472, "Input",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], +Cell[178019, 4773, 292, 5, 45, "Output",ExpressionUUID->"784942dc-4f73-427d-9fdf-670525e4f45f"] }, Open ]], Cell[CellGroupData[{ -Cell[179016, 4847, 181, 5, 35, "Input",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], -Cell[179200, 4854, 567, 9, 25, "Output",ExpressionUUID->"51b96550-e411-8f49-ae52-0ef4087a9cca"] +Cell[178348, 4783, 1635, 54, 227, "Input",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], +Cell[179986, 4839, 291, 5, 45, "Output",ExpressionUUID->"4bacb163-bb6c-49fa-99ef-8a50240e5d6a"] }, Open ]], Cell[CellGroupData[{ -Cell[179804, 4868, 6055, 185, 310, "Input",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], -Cell[185862, 5055, 548, 9, 25, "Output",ExpressionUUID->"ae5a263d-347a-6e47-95a0-f7c420f4dc91"] +Cell[180314, 4849, 1635, 54, 227, "Input",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], +Cell[181952, 4905, 289, 5, 45, "Output",ExpressionUUID->"5af8381f-1a53-4b41-97e5-43d3a1efd56f"] }, Open ]], Cell[CellGroupData[{ -Cell[186447, 5069, 368, 9, 33, "Input",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], -Cell[186818, 5080, 521, 8, 25, "Output",ExpressionUUID->"eb964dd3-b4a5-124b-bf6d-21f5f9718a4e"] +Cell[182278, 4915, 208, 4, 40, "Input",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], +Cell[182489, 4921, 268, 5, 45, "Output",ExpressionUUID->"0d0a8d72-6cbf-4ca9-8187-103c65b65be9"] }, Open ]], -Cell[187354, 5091, 492, 10, 34, "Input",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], +Cell[182772, 4929, 176, 3, 40, "Input",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], Cell[CellGroupData[{ -Cell[187871, 5105, 554, 18, 42, "Input",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], -Cell[188428, 5125, 166, 2, 25, "Output",ExpressionUUID->"e4d9d77a-b508-454c-baed-04aa4a4ef418"] +Cell[182973, 4936, 208, 4, 40, "Input",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], +Cell[183184, 4942, 264, 5, 45, "Output",ExpressionUUID->"899d4388-5b66-465c-913b-006fd7895eed"] }, Open ]], +Cell[183463, 4950, 177, 3, 40, "Input",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], Cell[CellGroupData[{ -Cell[188631, 5132, 619, 20, 42, "Input",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], -Cell[189253, 5154, 168, 2, 25, "Output",ExpressionUUID->"3007515b-4da6-bf4e-9b4f-90b429e2dd04"] +Cell[183665, 4957, 1301, 43, 158, "Input",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], +Cell[184969, 5002, 297, 5, 45, "Output",ExpressionUUID->"e2e96540-ebb2-46ee-bdd8-0564f4811472"] }, Open ]], Cell[CellGroupData[{ -Cell[189458, 5161, 166, 4, 46, "Input",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], -Cell[189627, 5167, 167, 2, 25, "Output",ExpressionUUID->"f6274504-766f-8549-a4a8-fd0e803dda86"] +Cell[185303, 5012, 931, 31, 138, "Input",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], +Cell[186237, 5045, 299, 5, 45, "Output",ExpressionUUID->"b2051f55-61c0-4492-a95d-307222f7dc5e"] }, Open ]], Cell[CellGroupData[{ -Cell[189831, 5174, 166, 4, 45, "Input",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], -Cell[190000, 5180, 166, 2, 25, "Output",ExpressionUUID->"72d24546-97b5-7344-98ec-019068f7b9fb"] +Cell[186573, 5055, 907, 30, 138, "Input",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], +Cell[187483, 5087, 295, 5, 45, "Output",ExpressionUUID->"ecb528e0-41d9-435b-9fa5-4988320ff6de"] }, Open ]], Cell[CellGroupData[{ -Cell[190203, 5187, 177, 4, 35, "Input",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], -Cell[190383, 5193, 169, 2, 25, "Output",ExpressionUUID->"7075b380-afe9-8b44-acc9-29433a09a866"] +Cell[187815, 5097, 558, 19, 72, "Input",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], +Cell[188376, 5118, 686, 11, 45, "Output",ExpressionUUID->"fb994914-d0f7-4d08-ae0a-8f202062ede3"] }, Open ]], Cell[CellGroupData[{ -Cell[190589, 5200, 177, 4, 35, "Input",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], -Cell[190769, 5206, 168, 2, 25, "Output",ExpressionUUID->"667394bf-ade3-1944-8cac-a719104b58af"] +Cell[189099, 5134, 665, 22, 72, "Input",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], +Cell[189767, 5158, 669, 10, 45, "Output",ExpressionUUID->"3981cd16-8d87-4741-87d3-9dcb0dd6d891"] }, Open ]], Cell[CellGroupData[{ -Cell[190974, 5213, 6051, 184, 310, "Input",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], -Cell[197028, 5399, 171, 2, 25, "Output",ExpressionUUID->"bdb345c8-7c0c-3e4d-96c3-d5d94768456f"] +Cell[190473, 5173, 170, 5, 77, "Input",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], +Cell[190646, 5180, 701, 11, 45, "Output",ExpressionUUID->"d883b5d1-6205-4365-ac79-56c10834a948"] }, Open ]], Cell[CellGroupData[{ -Cell[197236, 5406, 364, 8, 33, "Input",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], -Cell[197603, 5416, 166, 2, 25, "Output",ExpressionUUID->"a136c49d-6dd1-8a4a-9add-7300e6132adb"] +Cell[191384, 5196, 236, 6, 76, "Input",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], +Cell[191623, 5204, 635, 10, 45, "Output",ExpressionUUID->"47f8cfe3-1756-44ab-946f-fe20a05ff862"] }, Open ]], Cell[CellGroupData[{ -Cell[197806, 5423, 6118, 186, 353, "Input",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], -Cell[203927, 5611, 170, 2, 25, "Output",ExpressionUUID->"85a24dde-0aa6-984c-b7a3-ccfa87afb6cd"] +Cell[192295, 5219, 223, 6, 60, "Input",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], +Cell[192521, 5227, 670, 10, 45, "Output",ExpressionUUID->"d3459512-4875-4873-8e60-ded20134eea3"] }, Open ]], Cell[CellGroupData[{ -Cell[204134, 5618, 364, 8, 33, "Input",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], -Cell[204501, 5628, 168, 2, 25, "Output",ExpressionUUID->"9a87dba6-1411-3f4b-a17f-9d7a664889bd"] +Cell[193228, 5242, 181, 5, 60, "Input",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], +Cell[193412, 5249, 687, 11, 45, "Output",ExpressionUUID->"9da34343-33f6-4881-86e9-8ffa6701b6e9"] }, Open ]], Cell[CellGroupData[{ -Cell[204706, 5635, 2659, 87, 135, "Input",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], -Cell[207368, 5724, 169, 2, 25, "Output",ExpressionUUID->"39ebfd06-20a8-e945-ae56-55ff95d26618"] +Cell[194136, 5265, 6055, 185, 1092, "Input",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], +Cell[200194, 5452, 665, 10, 45, "Output",ExpressionUUID->"565968c7-f2a6-4154-b824-8ecc95d43d9f"] }, Open ]], Cell[CellGroupData[{ -Cell[207574, 5731, 2599, 84, 135, "Input",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], -Cell[210176, 5817, 169, 2, 25, "Output",ExpressionUUID->"6c617ce1-6ebd-9d43-be44-73f7ca23a829"] +Cell[200896, 5467, 368, 9, 58, "Input",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], +Cell[201267, 5478, 641, 10, 45, "Output",ExpressionUUID->"aeba6651-6b92-4513-85ef-72cbb67fe247"] }, Open ]], +Cell[201923, 5491, 492, 10, 40, "Input",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], Cell[CellGroupData[{ -Cell[210382, 5824, 3708, 117, 197, "Input",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], -Cell[214093, 5943, 169, 2, 25, "Output",ExpressionUUID->"145fcb0a-d842-9a43-9617-34577d485689"] +Cell[202440, 5505, 558, 19, 72, "Input",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], +Cell[203001, 5526, 290, 5, 45, "Output",ExpressionUUID->"7050747a-54ce-41f3-8bfa-829a38589ab0"] }, Open ]], -Cell[214277, 5948, 138, 3, 34, "Input",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], Cell[CellGroupData[{ -Cell[214440, 5955, 2052, 59, 92, "Input",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], -Cell[216495, 6016, 556, 12, 50, "Message",ExpressionUUID->"be9831d8-a262-3541-9040-ad5e31b2eb28"], -Cell[217054, 6030, 559, 12, 50, "Message",ExpressionUUID->"31896901-1c82-aa4e-bb9a-c09e2220f684"], -Cell[217616, 6044, 559, 12, 50, "Message",ExpressionUUID->"aa16e061-5976-9143-8add-7376f3059569"], -Cell[218178, 6058, 452, 10, 20, "Message",ExpressionUUID->"68730c15-5e57-ca48-8468-735233dec44d"], -Cell[218633, 6070, 168, 2, 25, "Output",ExpressionUUID->"9deaa7ff-19fe-b345-ae65-d7f8adce193c"] +Cell[203328, 5536, 623, 21, 72, "Input",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], +Cell[203954, 5559, 290, 5, 45, "Output",ExpressionUUID->"05783674-5c91-4039-b868-9761478c9935"] }, Open ]], Cell[CellGroupData[{ -Cell[218838, 6077, 2054, 59, 92, "Input",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], -Cell[220895, 6138, 556, 12, 50, "Message",ExpressionUUID->"365becfb-66c2-b442-8b7b-c6077e53a212"], -Cell[221454, 6152, 556, 12, 50, "Message",ExpressionUUID->"2b170196-02e0-d544-a5a5-d90722dc10dc"], -Cell[222013, 6166, 559, 12, 50, "Message",ExpressionUUID->"02967e8e-3430-cf4f-b706-b82af40300a2"], -Cell[222575, 6180, 452, 10, 20, "Message",ExpressionUUID->"a8933e75-6bbd-684a-8439-656414d7fe5d"], -Cell[223030, 6192, 166, 2, 25, "Output",ExpressionUUID->"0790c690-9267-6441-bc9c-d353ab16b428"] +Cell[204281, 5569, 170, 5, 77, "Input",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], +Cell[204454, 5576, 290, 5, 45, "Output",ExpressionUUID->"c38b805d-cf94-48f5-ad87-4615a30ec5f1"] }, Open ]], Cell[CellGroupData[{ -Cell[223233, 6199, 1938, 53, 69, "Input",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], -Cell[225174, 6254, 20226, 378, 191, "Output",ExpressionUUID->"5d2ddb35-b7b8-514c-917f-fcc77dc8600c"] +Cell[204781, 5586, 170, 5, 76, "Input",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], +Cell[204954, 5593, 292, 5, 45, "Output",ExpressionUUID->"0a252b6c-4502-4fde-a0d4-0a974b9c8a2c"] }, Open ]], Cell[CellGroupData[{ -Cell[245437, 6637, 2094, 60, 92, "Input",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], -Cell[247534, 6699, 497, 11, 70, "Message",ExpressionUUID->"cb33453f-b5ca-e14d-a319-662822d35ed2"], -Cell[248034, 6712, 501, 11, 70, "Message",ExpressionUUID->"aa5fb574-aeea-7141-9d86-babfa2192485"], -Cell[248538, 6725, 503, 11, 70, "Message",ExpressionUUID->"dec65c86-5426-6949-9e38-c5bc3eb7722e"], -Cell[249044, 6738, 455, 10, 70, "Message",ExpressionUUID->"32a908f1-0097-2943-9511-bd82e083c1e0"], -Cell[249502, 6750, 43631, 762, 70, "Output",ExpressionUUID->"704b46fd-7ca5-4147-bbb4-19991a3778e5"] +Cell[205283, 5603, 181, 5, 60, "Input",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], +Cell[205467, 5610, 294, 5, 45, "Output",ExpressionUUID->"2fa5e23b-ee03-4ec1-95ea-00097e00f2e1"] }, Open ]], -Cell[293148, 7515, 232, 6, 70, "Input",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], -Cell[293383, 7523, 209, 5, 70, "Input",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], Cell[CellGroupData[{ -Cell[293617, 7532, 212, 6, 70, "Input",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], -Cell[293832, 7540, 168, 2, 70, "Output",ExpressionUUID->"1f95faab-1b52-5440-9bc8-bbd29c090294"] +Cell[205798, 5620, 181, 5, 60, "Input",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], +Cell[205982, 5627, 293, 5, 45, "Output",ExpressionUUID->"ef91c62f-36c8-4700-ae81-a69344d90fdd"] }, Open ]], Cell[CellGroupData[{ -Cell[294037, 7547, 1814, 53, 70, "Input",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], -Cell[295854, 7602, 505, 11, 70, "Message",ExpressionUUID->"34609962-a5ff-c943-bd24-1be35ec9ac87"], -Cell[296362, 7615, 509, 11, 70, "Message",ExpressionUUID->"1fdfd709-87fa-2d47-912a-2bb16540a45a"], -Cell[296874, 7628, 508, 11, 70, "Message",ExpressionUUID->"02f7e2ed-ac22-9d4d-8071-ab116260ee28"], -Cell[297385, 7641, 455, 10, 70, "Message",ExpressionUUID->"7db76209-a5a6-1947-80c1-912d214b981c"], -Cell[297843, 7653, 22399, 414, 70, "Output",ExpressionUUID->"b5f713da-fcb5-f640-b2b9-a3f5b5d5c325"] +Cell[206312, 5637, 6055, 185, 1092, "Input",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], +Cell[212370, 5824, 301, 5, 45, "Output",ExpressionUUID->"f3eb6687-2274-41a7-9df2-f310f556d96c"] }, Open ]], Cell[CellGroupData[{ -Cell[320279, 8072, 1612, 47, 70, "Input",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], -Cell[321894, 8121, 581, 12, 70, "Message",ExpressionUUID->"e283daf4-b253-944e-a35b-b9d739b4810d"], -Cell[322478, 8135, 584, 12, 70, "Message",ExpressionUUID->"45f4fe27-f32a-9441-bd55-e0801ff04328"], -Cell[323065, 8149, 590, 12, 70, "Message",ExpressionUUID->"8fffabed-e171-5e42-9ba8-fd51ae8f5dd5"], -Cell[323658, 8163, 455, 10, 70, "Message",ExpressionUUID->"8b648472-e40f-a549-a057-c6eeb9f14028"], -Cell[324116, 8175, 169, 2, 70, "Output",ExpressionUUID->"c7b55151-fc31-d94c-8a4e-01b34fb0adaf"] +Cell[212708, 5834, 410, 10, 80, "Input",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], +Cell[213121, 5846, 339, 6, 67, "Output",ExpressionUUID->"30edd760-76a8-49bf-9ae2-da9ec7cb0149"] }, Open ]], Cell[CellGroupData[{ -Cell[324322, 8182, 2249, 64, 70, "Input",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], -Cell[326574, 8248, 557, 12, 70, "Message",ExpressionUUID->"3632efc4-f65f-2f41-a6ff-4f71c0ebce84"], -Cell[327134, 8262, 560, 12, 70, "Message",ExpressionUUID->"779c5516-83d5-5d41-8a7a-6b58e876b564"], -Cell[327697, 8276, 560, 12, 70, "Message",ExpressionUUID->"8e3711bd-8e48-2e4f-9802-ad11f73b56ef"], -Cell[328260, 8290, 455, 10, 70, "Message",ExpressionUUID->"f612a69b-4740-9240-9908-d284159fa285"], -Cell[328718, 8302, 169, 2, 70, "Output",ExpressionUUID->"bfa217e6-2060-bc4b-b710-35d6c4ca9627"] +Cell[213497, 5857, 6122, 187, 1092, "Input",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], +Cell[219622, 6046, 293, 5, 45, "Output",ExpressionUUID->"e1607385-ce10-4cf7-9d7f-17a025004bc8"] }, Open ]], Cell[CellGroupData[{ -Cell[328924, 8309, 2221, 64, 70, "Input",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], -Cell[331148, 8375, 554, 12, 70, "Message",ExpressionUUID->"3ebcf84a-7882-bd47-b9c8-0657501c09d4"], -Cell[331705, 8389, 560, 12, 70, "Message",ExpressionUUID->"5ba908af-818e-5d45-9b4d-c738ed936632"], -Cell[332268, 8403, 560, 12, 70, "Message",ExpressionUUID->"b25ed3b8-96c0-f246-8b73-bf5dca1bf3be"], -Cell[332831, 8417, 455, 10, 70, "Message",ExpressionUUID->"4d7ee3e1-e220-9e46-b1cc-01012021a276"], -Cell[333289, 8429, 169, 2, 70, "Output",ExpressionUUID->"f21819b7-4040-3a47-b212-dc05454fc812"] +Cell[219952, 6056, 387, 10, 58, "Input",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], +Cell[220342, 6068, 311, 6, 45, "Output",ExpressionUUID->"e22961d9-7314-42ad-95cb-daa7b394c85a"] }, Open ]], Cell[CellGroupData[{ -Cell[333495, 8436, 2223, 64, 70, "Input",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], -Cell[335721, 8502, 555, 12, 70, "Message",ExpressionUUID->"abd6af2a-56b2-2644-a5c5-5aa91718971c"], -Cell[336279, 8516, 558, 12, 70, "Message",ExpressionUUID->"31d8f902-5be7-c54f-8e99-429decd85903"], -Cell[336840, 8530, 560, 12, 70, "Message",ExpressionUUID->"666728b2-41bd-114c-ad81-a56ae7cb85e9"], -Cell[337403, 8544, 453, 10, 70, "Message",ExpressionUUID->"7a1ee219-911f-6846-82f7-c389bec607c2"], -Cell[337859, 8556, 167, 2, 70, "Output",ExpressionUUID->"f40d5525-ccff-eb4c-a859-e6917373a7f1"] +Cell[220690, 6079, 2663, 88, 469, "Input",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], +Cell[223356, 6169, 295, 5, 45, "Output",ExpressionUUID->"a26ce8ac-2269-4591-951c-a89d328f71df"] }, Open ]], Cell[CellGroupData[{ -Cell[338063, 8563, 213, 6, 70, "Input",ExpressionUUID->"fcd1131c-ba92-0b46-817b-e5f89f4ec38f"], -Cell[338279, 8571, 169, 2, 70, "Output",ExpressionUUID->"3749f94f-79b1-2342-af7e-bc4d815737fe"] +Cell[223688, 6179, 2603, 85, 469, "Input",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], +Cell[226294, 6266, 291, 5, 45, "Output",ExpressionUUID->"3d9834dd-54fa-4d19-9791-ed7bda3baa31"] }, Open ]], -Cell[338463, 8576, 247, 5, 70, "Input",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"], Cell[CellGroupData[{ -Cell[338735, 8585, 554, 18, 70, "Input",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], -Cell[339292, 8605, 167, 2, 70, "Output",ExpressionUUID->"aad53d59-da78-9348-9ac4-1e0902e814d3"] +Cell[226622, 6276, 3712, 118, 619, "Input",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], +Cell[230337, 6396, 297, 5, 45, "Output",ExpressionUUID->"3ffcdb40-2814-4b1f-bc5b-690a5a109f96"] }, Open ]], +Cell[230649, 6404, 164, 4, 40, "Input",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], Cell[CellGroupData[{ -Cell[339496, 8612, 166, 4, 70, "Input",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], -Cell[339665, 8618, 169, 2, 70, "Output",ExpressionUUID->"4fef6a46-506a-e14c-9df4-f75ab9f6cdb2"] +Cell[230838, 6412, 2075, 59, 291, "Input",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], +Cell[232916, 6473, 741, 16, 107, "Message",ExpressionUUID->"fa96e4e0-1824-4022-95b6-5d237e5dc412"], +Cell[233660, 6491, 739, 16, 107, "Message",ExpressionUUID->"ce87c19d-47ac-4429-8951-17671976d0d8"], +Cell[234402, 6509, 739, 16, 107, "Message",ExpressionUUID->"a759d243-bcc4-47cf-b2cd-c3627b191112"], +Cell[235144, 6527, 592, 13, 29, "Message",ExpressionUUID->"563b86f9-b72e-48af-a340-5efcc20f64ea"], +Cell[235739, 6542, 292, 5, 45, "Output",ExpressionUUID->"20383c24-ed62-4bf7-b689-7c4d58e0a3a9"] }, Open ]], Cell[CellGroupData[{ -Cell[339871, 8625, 181, 5, 70, "Input",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], -Cell[340055, 8632, 173, 3, 70, "Output",ExpressionUUID->"f46a3dc4-a4b4-034f-91be-6596e81ebf6d"] +Cell[236068, 6552, 2077, 59, 291, "Input",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], +Cell[238148, 6613, 695, 15, 107, "Message",ExpressionUUID->"816f1531-6ee6-4a82-9505-bb8aef05e747"], +Cell[238846, 6630, 693, 15, 107, "Message",ExpressionUUID->"0ca1d9d3-d84a-4c28-a629-150c9788c0af"], +Cell[239542, 6647, 693, 15, 107, "Message",ExpressionUUID->"e7d6c14b-d5c2-4db6-95f0-047bf5c02b49"], +Cell[240238, 6664, 548, 12, 29, "Message",ExpressionUUID->"42a43128-060c-42b8-aa62-06747df7c5b7"], +Cell[240789, 6678, 238, 4, 45, "Output",ExpressionUUID->"b6842594-c56a-4a5b-b298-6eeb8591f167"] }, Open ]], Cell[CellGroupData[{ -Cell[340265, 8640, 6055, 185, 70, "Input",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], -Cell[346323, 8827, 172, 3, 70, "Output",ExpressionUUID->"ccd4df45-d425-704c-b4a9-648b41b92e77"] +Cell[241064, 6687, 1961, 53, 292, "Input",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], +Cell[243028, 6742, 213, 4, 45, "Output",ExpressionUUID->"7554495c-e131-4bab-93bd-e74ae9ef4b47"] }, Open ]], Cell[CellGroupData[{ -Cell[346532, 8835, 368, 9, 70, "Input",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], -Cell[346903, 8846, 170, 3, 70, "Output",ExpressionUUID->"1ebb6633-805d-cf47-abbc-564ac9bf2374"] +Cell[243278, 6751, 2094, 60, 387, "Input",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], +Cell[245375, 6813, 497, 11, 79, "Message",ExpressionUUID->"cb33453f-b5ca-e14d-a319-662822d35ed2"], +Cell[245875, 6826, 501, 11, 79, "Message",ExpressionUUID->"aa5fb574-aeea-7141-9d86-babfa2192485"], +Cell[246379, 6839, 503, 11, 102, "Message",ExpressionUUID->"dec65c86-5426-6949-9e38-c5bc3eb7722e"], +Cell[246885, 6852, 455, 10, 29, "Message",ExpressionUUID->"32a908f1-0097-2943-9511-bd82e083c1e0"], +Cell[247343, 6864, 43631, 762, 319, "Output",ExpressionUUID->"704b46fd-7ca5-4147-bbb4-19991a3778e5"] }, Open ]], +Cell[290989, 7629, 2455, 69, 323, "Input",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], +Cell[293447, 7700, 209, 5, 40, "Input",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], Cell[CellGroupData[{ -Cell[347110, 8854, 6122, 187, 70, "Input",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], -Cell[353235, 9043, 175, 3, 70, "Output",ExpressionUUID->"a3a95ff2-cddf-6a4c-ac06-8cc3fd5707bc"] +Cell[293681, 7709, 212, 6, 66, "Input",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], +Cell[293896, 7717, 168, 2, 45, "Output",ExpressionUUID->"1f95faab-1b52-5440-9bc8-bbd29c090294"] }, Open ]], Cell[CellGroupData[{ -Cell[353447, 9051, 368, 9, 70, "Input",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], -Cell[353818, 9062, 169, 3, 70, "Output",ExpressionUUID->"53071608-cf53-7441-9033-6c9cf2e7fa8e"] +Cell[294101, 7724, 1814, 53, 339, "Input",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], +Cell[295918, 7779, 505, 11, 102, "Message",ExpressionUUID->"34609962-a5ff-c943-bd24-1be35ec9ac87"], +Cell[296426, 7792, 509, 11, 102, "Message",ExpressionUUID->"1fdfd709-87fa-2d47-912a-2bb16540a45a"], +Cell[296938, 7805, 508, 11, 105, "Message",ExpressionUUID->"02f7e2ed-ac22-9d4d-8071-ab116260ee28"], +Cell[297449, 7818, 455, 10, 29, "Message",ExpressionUUID->"7db76209-a5a6-1947-80c1-912d214b981c"], +Cell[297907, 7830, 22399, 414, 322, "Output",ExpressionUUID->"b5f713da-fcb5-f640-b2b9-a3f5b5d5c325"] }, Open ]], Cell[CellGroupData[{ -Cell[354024, 9070, 2663, 88, 70, "Input",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], -Cell[356690, 9160, 173, 3, 70, "Output",ExpressionUUID->"547b87cc-d628-4d49-8e04-72542aa7650e"] +Cell[320343, 8249, 1612, 47, 144, "Input",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], +Cell[321958, 8298, 581, 12, 128, "Message",ExpressionUUID->"e283daf4-b253-944e-a35b-b9d739b4810d"], +Cell[322542, 8312, 584, 12, 128, "Message",ExpressionUUID->"45f4fe27-f32a-9441-bd55-e0801ff04328"], +Cell[323129, 8326, 590, 12, 128, "Message",ExpressionUUID->"8fffabed-e171-5e42-9ba8-fd51ae8f5dd5"], +Cell[323722, 8340, 455, 10, 29, "Message",ExpressionUUID->"8b648472-e40f-a549-a057-c6eeb9f14028"], +Cell[324180, 8352, 169, 2, 45, "Output",ExpressionUUID->"c7b55151-fc31-d94c-8a4e-01b34fb0adaf"] }, Open ]], Cell[CellGroupData[{ -Cell[356900, 9168, 2603, 85, 70, "Input",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], -Cell[359506, 9255, 171, 3, 70, "Output",ExpressionUUID->"a8edf49c-9c61-9e4b-9fa8-4de409daba96"] +Cell[324386, 8359, 2249, 64, 461, "Input",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], +Cell[326638, 8425, 557, 12, 128, "Message",ExpressionUUID->"3632efc4-f65f-2f41-a6ff-4f71c0ebce84"], +Cell[327198, 8439, 560, 12, 128, "Message",ExpressionUUID->"779c5516-83d5-5d41-8a7a-6b58e876b564"], +Cell[327761, 8453, 560, 12, 128, "Message",ExpressionUUID->"8e3711bd-8e48-2e4f-9802-ad11f73b56ef"], +Cell[328324, 8467, 455, 10, 29, "Message",ExpressionUUID->"f612a69b-4740-9240-9908-d284159fa285"], +Cell[328782, 8479, 169, 2, 45, "Output",ExpressionUUID->"bfa217e6-2060-bc4b-b710-35d6c4ca9627"] }, Open ]], Cell[CellGroupData[{ -Cell[359714, 9263, 3712, 118, 70, "Input",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], -Cell[363429, 9383, 171, 3, 70, "Output",ExpressionUUID->"3584cc50-41a2-ae4b-af54-859d095b0154"] +Cell[328988, 8486, 2221, 64, 461, "Input",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], +Cell[331212, 8552, 554, 12, 128, "Message",ExpressionUUID->"3ebcf84a-7882-bd47-b9c8-0657501c09d4"], +Cell[331769, 8566, 560, 12, 128, "Message",ExpressionUUID->"5ba908af-818e-5d45-9b4d-c738ed936632"], +Cell[332332, 8580, 560, 12, 128, "Message",ExpressionUUID->"b25ed3b8-96c0-f246-8b73-bf5dca1bf3be"], +Cell[332895, 8594, 455, 10, 29, "Message",ExpressionUUID->"4d7ee3e1-e220-9e46-b1cc-01012021a276"], +Cell[333353, 8606, 169, 2, 45, "Output",ExpressionUUID->"f21819b7-4040-3a47-b212-dc05454fc812"] }, Open ]], Cell[CellGroupData[{ -Cell[363637, 9391, 2052, 59, 70, "Input",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], -Cell[365692, 9452, 572, 12, 70, "Message",ExpressionUUID->"d59869d2-8577-0547-8448-230bc5a4ac5e"], -Cell[366267, 9466, 573, 12, 70, "Message",ExpressionUUID->"844f4204-3100-6d45-b5d2-238cc22b8006"], -Cell[366843, 9480, 578, 12, 70, "Message",ExpressionUUID->"f91c55eb-7b3d-3340-b869-4269b99a071c"], -Cell[367424, 9494, 457, 10, 70, "Message",ExpressionUUID->"efd89e15-8a66-4047-aee7-4fb3607a30a7"], -Cell[367884, 9506, 172, 3, 70, "Output",ExpressionUUID->"e68f2098-b3f7-6745-819f-009e252dd442"] +Cell[333559, 8613, 2223, 64, 461, "Input",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], +Cell[335785, 8679, 555, 12, 128, "Message",ExpressionUUID->"abd6af2a-56b2-2644-a5c5-5aa91718971c"], +Cell[336343, 8693, 558, 12, 128, "Message",ExpressionUUID->"31d8f902-5be7-c54f-8e99-429decd85903"], +Cell[336904, 8707, 560, 12, 128, "Message",ExpressionUUID->"666728b2-41bd-114c-ad81-a56ae7cb85e9"], +Cell[337467, 8721, 453, 10, 29, "Message",ExpressionUUID->"7a1ee219-911f-6846-82f7-c389bec607c2"], +Cell[337923, 8733, 167, 2, 45, "Output",ExpressionUUID->"f40d5525-ccff-eb4c-a859-e6917373a7f1"] }, Open ]], Cell[CellGroupData[{ -Cell[368093, 9514, 2054, 59, 70, "Input",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], -Cell[370150, 9575, 572, 12, 70, "Message",ExpressionUUID->"feb3ed0a-8d45-dd4c-a945-407106f88295"], -Cell[370725, 9589, 575, 12, 70, "Message",ExpressionUUID->"d5a6c2e7-2143-1843-8d40-686107f6aa27"], -Cell[371303, 9603, 576, 12, 70, "Message",ExpressionUUID->"a15d89dd-0dfc-c845-aec3-fe7d60156e1f"], -Cell[371882, 9617, 457, 10, 70, "Message",ExpressionUUID->"0f9408e4-b654-4a40-9b38-655b18398efc"], -Cell[372342, 9629, 170, 3, 70, "Output",ExpressionUUID->"f72e3d82-4d19-7143-9513-38a15cee4d51"] +Cell[338127, 8740, 213, 6, 65, "Input",ExpressionUUID->"fcd1131c-ba92-0b46-817b-e5f89f4ec38f"], +Cell[338343, 8748, 169, 2, 45, "Output",ExpressionUUID->"3749f94f-79b1-2342-af7e-bc4d815737fe"] }, Open ]], +Cell[338527, 8753, 247, 5, 40, "Input",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"], Cell[CellGroupData[{ -Cell[372549, 9637, 2030, 55, 70, "Input",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], -Cell[374582, 9694, 20377, 384, 70, "Output",ExpressionUUID->"02187549-f2f0-9c4d-81fc-d12919ea7802"] +Cell[338799, 8762, 554, 18, 72, "Input",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], +Cell[339356, 8782, 167, 2, 45, "Output",ExpressionUUID->"aad53d59-da78-9348-9ac4-1e0902e814d3"] }, Open ]], Cell[CellGroupData[{ -Cell[394996, 10083, 2118, 60, 70, "Input",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], -Cell[397117, 10145, 499, 11, 70, "Message",ExpressionUUID->"75033ea5-32d5-4445-bfb0-a981507a2e9a"], -Cell[397619, 10158, 504, 11, 70, "Message",ExpressionUUID->"bc53c85b-e7c9-be4a-8ed4-30975f08af5c"], -Cell[398126, 10171, 507, 11, 70, "Message",ExpressionUUID->"e09d101b-c5d3-424f-aab9-c5788f3b9ef6"], -Cell[398636, 10184, 455, 10, 70, "Message",ExpressionUUID->"28f777a6-eb27-df49-a698-bd7806baa94c"], -Cell[399094, 10196, 22381, 415, 70, "Output",ExpressionUUID->"cd997d80-b342-8b4c-95c9-b33408882f73"] +Cell[339560, 8789, 166, 4, 77, "Input",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], +Cell[339729, 8795, 169, 2, 45, "Output",ExpressionUUID->"4fef6a46-506a-e14c-9df4-f75ab9f6cdb2"] }, Open ]], -Cell[421490, 10614, 174, 3, 70, "Input",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], -Cell[421667, 10619, 209, 5, 70, "Input",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"], Cell[CellGroupData[{ -Cell[421901, 10628, 1616, 48, 70, "Input",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], -Cell[423520, 10678, 594, 12, 70, "Message",ExpressionUUID->"96d01a47-7c9a-1944-8904-f1788b2f0a8a"], -Cell[424117, 10692, 594, 12, 70, "Message",ExpressionUUID->"fee09e7b-7835-394b-93fe-35ddd26f69d1"], -Cell[424714, 10706, 598, 12, 70, "Message",ExpressionUUID->"fc12fc14-afc1-0a48-8829-94d858477ec4"], -Cell[425315, 10720, 457, 10, 70, "Message",ExpressionUUID->"41b1346d-6d7d-5d4d-9b1a-88cde3361cf3"], -Cell[425775, 10732, 171, 3, 70, "Output",ExpressionUUID->"0bbffe2c-809c-1149-a08f-e3342cda31a0"] +Cell[339935, 8802, 181, 5, 60, "Input",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], +Cell[340119, 8809, 173, 3, 45, "Output",ExpressionUUID->"f46a3dc4-a4b4-034f-91be-6596e81ebf6d"] }, Open ]], Cell[CellGroupData[{ -Cell[425983, 10740, 2247, 64, 70, "Input",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], -Cell[428233, 10806, 572, 12, 70, "Message",ExpressionUUID->"922f5f31-888f-7340-96cd-65ecb8ea2e84"], -Cell[428808, 10820, 573, 12, 70, "Message",ExpressionUUID->"287b836d-7493-d44f-85b0-183d2793165c"], -Cell[429384, 10834, 578, 12, 70, "Message",ExpressionUUID->"962d88f7-2937-fe4b-ba97-3fe8099808d5"], -Cell[429965, 10848, 455, 10, 70, "Message",ExpressionUUID->"2ec951f6-2332-9241-84af-c7ac25232c2e"], -Cell[430423, 10860, 172, 3, 70, "Output",ExpressionUUID->"3eb28fb3-5fd6-4240-b231-e1f0fa53f4dc"] +Cell[340329, 8817, 6055, 185, 1092, "Input",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], +Cell[346387, 9004, 172, 3, 45, "Output",ExpressionUUID->"ccd4df45-d425-704c-b4a9-648b41b92e77"] }, Open ]], Cell[CellGroupData[{ -Cell[430632, 10868, 2221, 64, 70, "Input",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], -Cell[432856, 10934, 570, 12, 70, "Message",ExpressionUUID->"8fc71a81-55ed-5940-a6a0-1fa4e0c6425a"], -Cell[433429, 10948, 573, 12, 70, "Message",ExpressionUUID->"001b2f06-491c-6c4f-881b-1d7c12c1b14f"], -Cell[434005, 10962, 578, 12, 70, "Message",ExpressionUUID->"865c0491-32b6-3549-83ec-bdf42c3a31aa"], -Cell[434586, 10976, 455, 10, 70, "Message",ExpressionUUID->"3566013f-7b44-504c-95a5-32d3ac2ece3d"], -Cell[435044, 10988, 172, 3, 70, "Output",ExpressionUUID->"9cc3c720-52c0-b040-a0b4-75ff2aab4396"] +Cell[346596, 9012, 368, 9, 58, "Input",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], +Cell[346967, 9023, 170, 3, 45, "Output",ExpressionUUID->"1ebb6633-805d-cf47-abbc-564ac9bf2374"] }, Open ]], Cell[CellGroupData[{ -Cell[435253, 10996, 2221, 64, 70, "Input",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], -Cell[437477, 11062, 572, 12, 70, "Message",ExpressionUUID->"bc9996c1-a929-5b41-9541-f607e96932b8"], -Cell[438052, 11076, 575, 12, 70, "Message",ExpressionUUID->"eb28c83b-0aac-8d4e-a729-f978b41e689a"], -Cell[438630, 11090, 578, 12, 70, "Message",ExpressionUUID->"70b030cf-db8c-c440-8526-b10f71bb72b3"], -Cell[439211, 11104, 455, 10, 70, "Message",ExpressionUUID->"4d72b001-01d6-d944-9c97-6d0d7d2eccbb"], -Cell[439669, 11116, 173, 3, 70, "Output",ExpressionUUID->"c15d23fa-1bed-9640-940a-c33e3a830230"] +Cell[347174, 9031, 6122, 187, 1092, "Input",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], +Cell[353299, 9220, 175, 3, 45, "Output",ExpressionUUID->"a3a95ff2-cddf-6a4c-ac06-8cc3fd5707bc"] }, Open ]], Cell[CellGroupData[{ -Cell[439879, 11124, 213, 6, 70, "Input",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"], -Cell[440095, 11132, 172, 3, 70, "Output",ExpressionUUID->"2d0467ed-c049-384d-ae20-12fc79688cfb"] +Cell[353511, 9228, 368, 9, 58, "Input",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], +Cell[353882, 9239, 169, 3, 45, "Output",ExpressionUUID->"53071608-cf53-7441-9033-6c9cf2e7fa8e"] }, Open ]], -Cell[440282, 11138, 245, 5, 70, "Input",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"], Cell[CellGroupData[{ -Cell[440552, 11147, 558, 19, 70, "Input",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], -Cell[441113, 11168, 173, 3, 70, "Output",ExpressionUUID->"26c56722-6e97-cb4f-b35b-a00d42f1d8f6"] +Cell[354088, 9247, 2663, 88, 469, "Input",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], +Cell[356754, 9337, 173, 3, 45, "Output",ExpressionUUID->"547b87cc-d628-4d49-8e04-72542aa7650e"] }, Open ]], Cell[CellGroupData[{ -Cell[441323, 11176, 170, 5, 70, "Input",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], -Cell[441496, 11183, 171, 3, 70, "Output",ExpressionUUID->"7e7edb0d-1306-d742-8b32-e7c6dc694892"] +Cell[356964, 9345, 2603, 85, 469, "Input",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], +Cell[359570, 9432, 171, 3, 45, "Output",ExpressionUUID->"a8edf49c-9c61-9e4b-9fa8-4de409daba96"] }, Open ]], Cell[CellGroupData[{ -Cell[441704, 11191, 181, 5, 70, "Input",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], -Cell[441888, 11198, 173, 3, 70, "Output",ExpressionUUID->"e5353287-a717-554a-9c6b-1021438b30ff"] +Cell[359778, 9440, 3712, 118, 619, "Input",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], +Cell[363493, 9560, 171, 3, 45, "Output",ExpressionUUID->"3584cc50-41a2-ae4b-af54-859d095b0154"] }, Open ]], Cell[CellGroupData[{ -Cell[442098, 11206, 6055, 185, 70, "Input",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], -Cell[448156, 11393, 175, 3, 70, "Output",ExpressionUUID->"ed4bd4f3-e1cc-fa47-b5b5-475b6e581b1f"] +Cell[363701, 9568, 2052, 59, 291, "Input",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], +Cell[365756, 9629, 572, 12, 128, "Message",ExpressionUUID->"d59869d2-8577-0547-8448-230bc5a4ac5e"], +Cell[366331, 9643, 573, 12, 128, "Message",ExpressionUUID->"844f4204-3100-6d45-b5d2-238cc22b8006"], +Cell[366907, 9657, 578, 12, 128, "Message",ExpressionUUID->"f91c55eb-7b3d-3340-b869-4269b99a071c"], +Cell[367488, 9671, 457, 10, 29, "Message",ExpressionUUID->"efd89e15-8a66-4047-aee7-4fb3607a30a7"], +Cell[367948, 9683, 172, 3, 45, "Output",ExpressionUUID->"e68f2098-b3f7-6745-819f-009e252dd442"] }, Open ]], Cell[CellGroupData[{ -Cell[448368, 11401, 368, 9, 70, "Input",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], -Cell[448739, 11412, 170, 3, 70, "Output",ExpressionUUID->"0c9f07a0-dfdf-6e41-964a-0bcdc0cbcb45"] +Cell[368157, 9691, 2054, 59, 291, "Input",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], +Cell[370214, 9752, 572, 12, 128, "Message",ExpressionUUID->"feb3ed0a-8d45-dd4c-a945-407106f88295"], +Cell[370789, 9766, 575, 12, 128, "Message",ExpressionUUID->"d5a6c2e7-2143-1843-8d40-686107f6aa27"], +Cell[371367, 9780, 576, 12, 128, "Message",ExpressionUUID->"a15d89dd-0dfc-c845-aec3-fe7d60156e1f"], +Cell[371946, 9794, 457, 10, 29, "Message",ExpressionUUID->"0f9408e4-b654-4a40-9b38-655b18398efc"], +Cell[372406, 9806, 170, 3, 45, "Output",ExpressionUUID->"f72e3d82-4d19-7143-9513-38a15cee4d51"] }, Open ]], Cell[CellGroupData[{ -Cell[448946, 11420, 6122, 187, 70, "Input",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], -Cell[455071, 11609, 175, 3, 70, "Output",ExpressionUUID->"579eace1-979d-7347-a36f-c1fefbf459f5"] +Cell[372613, 9814, 2030, 55, 292, "Input",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], +Cell[374646, 9871, 20377, 384, 325, "Output",ExpressionUUID->"02187549-f2f0-9c4d-81fc-d12919ea7802"] }, Open ]], Cell[CellGroupData[{ -Cell[455283, 11617, 368, 9, 70, "Input",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], -Cell[455654, 11628, 172, 3, 70, "Output",ExpressionUUID->"0225baf1-4541-ed4d-8528-13926fef86cd"] +Cell[395060, 10260, 2118, 60, 387, "Input",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], +Cell[397181, 10322, 499, 11, 79, "Message",ExpressionUUID->"75033ea5-32d5-4445-bfb0-a981507a2e9a"], +Cell[397683, 10335, 504, 11, 79, "Message",ExpressionUUID->"bc53c85b-e7c9-be4a-8ed4-30975f08af5c"], +Cell[398190, 10348, 507, 11, 102, "Message",ExpressionUUID->"e09d101b-c5d3-424f-aab9-c5788f3b9ef6"], +Cell[398700, 10361, 455, 10, 29, "Message",ExpressionUUID->"28f777a6-eb27-df49-a698-bd7806baa94c"], +Cell[399158, 10373, 22381, 415, 322, "Output",ExpressionUUID->"cd997d80-b342-8b4c-95c9-b33408882f73"] }, Open ]], +Cell[421554, 10791, 174, 3, 40, "Input",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], +Cell[421731, 10796, 209, 5, 40, "Input",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"], Cell[CellGroupData[{ -Cell[455863, 11636, 2663, 88, 70, "Input",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], -Cell[458529, 11726, 173, 3, 70, "Output",ExpressionUUID->"f7c789e7-838d-b443-a597-00e69e7c3611"] +Cell[421965, 10805, 1616, 48, 144, "Input",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], +Cell[423584, 10855, 594, 12, 128, "Message",ExpressionUUID->"96d01a47-7c9a-1944-8904-f1788b2f0a8a"], +Cell[424181, 10869, 594, 12, 128, "Message",ExpressionUUID->"fee09e7b-7835-394b-93fe-35ddd26f69d1"], +Cell[424778, 10883, 598, 12, 128, "Message",ExpressionUUID->"fc12fc14-afc1-0a48-8829-94d858477ec4"], +Cell[425379, 10897, 457, 10, 29, "Message",ExpressionUUID->"41b1346d-6d7d-5d4d-9b1a-88cde3361cf3"], +Cell[425839, 10909, 171, 3, 45, "Output",ExpressionUUID->"0bbffe2c-809c-1149-a08f-e3342cda31a0"] }, Open ]], Cell[CellGroupData[{ -Cell[458739, 11734, 2603, 85, 70, "Input",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], -Cell[461345, 11821, 171, 3, 70, "Output",ExpressionUUID->"fc2bf760-d110-cb46-bd02-e934de9fd4f9"] +Cell[426047, 10917, 2247, 64, 461, "Input",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], +Cell[428297, 10983, 572, 12, 128, "Message",ExpressionUUID->"922f5f31-888f-7340-96cd-65ecb8ea2e84"], +Cell[428872, 10997, 573, 12, 128, "Message",ExpressionUUID->"287b836d-7493-d44f-85b0-183d2793165c"], +Cell[429448, 11011, 578, 12, 128, "Message",ExpressionUUID->"962d88f7-2937-fe4b-ba97-3fe8099808d5"], +Cell[430029, 11025, 455, 10, 29, "Message",ExpressionUUID->"2ec951f6-2332-9241-84af-c7ac25232c2e"], +Cell[430487, 11037, 172, 3, 45, "Output",ExpressionUUID->"3eb28fb3-5fd6-4240-b231-e1f0fa53f4dc"] }, Open ]], Cell[CellGroupData[{ -Cell[461553, 11829, 3712, 118, 70, "Input",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], -Cell[465268, 11949, 171, 3, 70, "Output",ExpressionUUID->"4304216c-b250-ab48-915e-b844e71a70f1"] +Cell[430696, 11045, 2221, 64, 461, "Input",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], +Cell[432920, 11111, 570, 12, 128, "Message",ExpressionUUID->"8fc71a81-55ed-5940-a6a0-1fa4e0c6425a"], +Cell[433493, 11125, 573, 12, 128, "Message",ExpressionUUID->"001b2f06-491c-6c4f-881b-1d7c12c1b14f"], +Cell[434069, 11139, 578, 12, 128, "Message",ExpressionUUID->"865c0491-32b6-3549-83ec-bdf42c3a31aa"], +Cell[434650, 11153, 455, 10, 29, "Message",ExpressionUUID->"3566013f-7b44-504c-95a5-32d3ac2ece3d"], +Cell[435108, 11165, 172, 3, 45, "Output",ExpressionUUID->"9cc3c720-52c0-b040-a0b4-75ff2aab4396"] }, Open ]], Cell[CellGroupData[{ -Cell[465476, 11957, 2052, 59, 70, "Input",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], -Cell[467531, 12018, 568, 12, 70, "Message",ExpressionUUID->"ef0dcda5-4eb3-fb4f-a7ba-cf9592c754fd"], -Cell[468102, 12032, 572, 12, 70, "Message",ExpressionUUID->"516128bc-41b4-3d49-8276-2fe73d5d437e"], -Cell[468677, 12046, 574, 12, 70, "Message",ExpressionUUID->"83555127-edb0-f34d-bade-abdcd60ad387"], -Cell[469254, 12060, 457, 10, 70, "Message",ExpressionUUID->"f8efe38f-0b83-4645-b574-b25c08902457"], -Cell[469714, 12072, 172, 3, 70, "Output",ExpressionUUID->"de5933f0-d736-3443-950a-4744d8abefe5"] +Cell[435317, 11173, 2221, 64, 461, "Input",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], +Cell[437541, 11239, 572, 12, 128, "Message",ExpressionUUID->"bc9996c1-a929-5b41-9541-f607e96932b8"], +Cell[438116, 11253, 575, 12, 128, "Message",ExpressionUUID->"eb28c83b-0aac-8d4e-a729-f978b41e689a"], +Cell[438694, 11267, 578, 12, 128, "Message",ExpressionUUID->"70b030cf-db8c-c440-8526-b10f71bb72b3"], +Cell[439275, 11281, 455, 10, 29, "Message",ExpressionUUID->"4d72b001-01d6-d944-9c97-6d0d7d2eccbb"], +Cell[439733, 11293, 173, 3, 45, "Output",ExpressionUUID->"c15d23fa-1bed-9640-940a-c33e3a830230"] }, Open ]], Cell[CellGroupData[{ -Cell[469923, 12080, 2054, 59, 70, "Input",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], -Cell[471980, 12141, 568, 12, 70, "Message",ExpressionUUID->"d0c389d2-1c6b-3a44-bd00-6e54df438015"], -Cell[472551, 12155, 572, 12, 70, "Message",ExpressionUUID->"3f819d0b-3458-d54e-bb8e-ed758b92949a"], -Cell[473126, 12169, 574, 12, 70, "Message",ExpressionUUID->"7403c575-bafd-2049-8d02-89293c73f7f1"], -Cell[473703, 12183, 457, 10, 70, "Message",ExpressionUUID->"29512b1b-8a2c-1740-986b-fb78e7d2ec89"], -Cell[474163, 12195, 171, 3, 70, "Output",ExpressionUUID->"686785b6-8c83-3e43-88fb-689383b13a2d"] +Cell[439943, 11301, 213, 6, 65, "Input",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"], +Cell[440159, 11309, 172, 3, 45, "Output",ExpressionUUID->"2d0467ed-c049-384d-ae20-12fc79688cfb"] }, Open ]], +Cell[440346, 11315, 245, 5, 40, "Input",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"], Cell[CellGroupData[{ -Cell[474371, 12203, 2030, 55, 70, "Input",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], -Cell[476404, 12260, 19960, 375, 70, "Output",ExpressionUUID->"9eb47740-dc4f-3248-80e4-ef19d916a0ad"] +Cell[440616, 11324, 558, 19, 72, "Input",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], +Cell[441177, 11345, 173, 3, 45, "Output",ExpressionUUID->"26c56722-6e97-cb4f-b35b-a00d42f1d8f6"] }, Open ]], Cell[CellGroupData[{ -Cell[496401, 12640, 2118, 60, 70, "Input",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], -Cell[498522, 12702, 496, 11, 70, "Message",ExpressionUUID->"6bc1b8c6-3100-6640-9985-3abfd43de799"], -Cell[499021, 12715, 501, 11, 70, "Message",ExpressionUUID->"82e13dda-210b-a94d-9e1d-a821db42ab6b"], -Cell[499525, 12728, 505, 11, 70, "Message",ExpressionUUID->"9d37688a-c69d-ed49-bce7-cf0090e0ecb8"], -Cell[500033, 12741, 455, 10, 70, "Message",ExpressionUUID->"4e87d0d8-b47a-ef47-85af-16467b219f50"], -Cell[500491, 12753, 21721, 403, 70, "Output",ExpressionUUID->"6974e3c4-9b35-2f4b-97bf-745f60f533f8"] +Cell[441387, 11353, 170, 5, 77, "Input",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], +Cell[441560, 11360, 171, 3, 45, "Output",ExpressionUUID->"7e7edb0d-1306-d742-8b32-e7c6dc694892"] }, Open ]], -Cell[522227, 13159, 181, 3, 70, "Input",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], -Cell[522411, 13164, 207, 5, 70, "Input",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"], Cell[CellGroupData[{ -Cell[522643, 13173, 1616, 48, 70, "Input",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], -Cell[524262, 13223, 589, 12, 70, "Message",ExpressionUUID->"8906bbab-e37b-4b4c-898f-52bfc96dde7b"], -Cell[524854, 13237, 588, 12, 70, "Message",ExpressionUUID->"6ae14bce-ec42-7f4d-9914-0630eea4cdf9"], -Cell[525445, 13251, 594, 12, 70, "Message",ExpressionUUID->"7e98a506-896d-0d47-8502-b83685d9a60c"], -Cell[526042, 13265, 455, 10, 70, "Message",ExpressionUUID->"400e66c2-06b5-814e-a2be-19c4c75ccbf0"], -Cell[526500, 13277, 173, 3, 70, "Output",ExpressionUUID->"f202ab02-e319-144b-97e8-ae603395b346"] +Cell[441768, 11368, 181, 5, 60, "Input",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], +Cell[441952, 11375, 173, 3, 45, "Output",ExpressionUUID->"e5353287-a717-554a-9c6b-1021438b30ff"] }, Open ]], Cell[CellGroupData[{ -Cell[526710, 13285, 2246, 64, 70, "Input",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], -Cell[528959, 13351, 566, 12, 70, "Message",ExpressionUUID->"2d7e67d1-8691-e348-9ca8-caa63b533102"], -Cell[529528, 13365, 570, 12, 70, "Message",ExpressionUUID->"f0eb6f1d-f621-8647-b6a6-8bf673e41ebb"], -Cell[530101, 13379, 574, 12, 70, "Message",ExpressionUUID->"64fda82a-0f74-2743-89a8-afd600de203a"], -Cell[530678, 13393, 456, 10, 70, "Message",ExpressionUUID->"971a319d-8ab4-464d-a08e-f97fe8d4c0e1"], -Cell[531137, 13405, 171, 3, 70, "Output",ExpressionUUID->"b3c37f48-9827-884f-94d9-1f76aed7bfaa"] +Cell[442162, 11383, 6055, 185, 1092, "Input",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], +Cell[448220, 11570, 175, 3, 45, "Output",ExpressionUUID->"ed4bd4f3-e1cc-fa47-b5b5-475b6e581b1f"] }, Open ]], Cell[CellGroupData[{ -Cell[531345, 13413, 2221, 64, 70, "Input",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], -Cell[533569, 13479, 569, 12, 70, "Message",ExpressionUUID->"1040ba10-c733-df44-b556-0998dc0163c9"], -Cell[534141, 13493, 571, 12, 70, "Message",ExpressionUUID->"e451b852-84c2-a941-b1d7-812ecad4750e"], -Cell[534715, 13507, 575, 12, 70, "Message",ExpressionUUID->"a15e0c9d-d634-6e47-94c5-2ce40fcb4d52"], -Cell[535293, 13521, 458, 10, 70, "Message",ExpressionUUID->"a3ddc92b-b5c9-5e46-be44-6165430ec35f"], -Cell[535754, 13533, 171, 3, 70, "Output",ExpressionUUID->"978bf39b-9d1f-a54f-a6de-a2e3d269e126"] +Cell[448432, 11578, 368, 9, 58, "Input",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], +Cell[448803, 11589, 170, 3, 45, "Output",ExpressionUUID->"0c9f07a0-dfdf-6e41-964a-0bcdc0cbcb45"] }, Open ]], Cell[CellGroupData[{ -Cell[535962, 13541, 2223, 64, 70, "Input",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], -Cell[538188, 13607, 567, 12, 70, "Message",ExpressionUUID->"57c74c2a-63a6-9846-b3f7-1a08cebb8172"], -Cell[538758, 13621, 571, 12, 70, "Message",ExpressionUUID->"2e606101-b73e-f443-8324-5b1c64dcaa7f"], -Cell[539332, 13635, 573, 12, 70, "Message",ExpressionUUID->"4da9173d-4ced-1e49-83f6-426d72ec8cf3"], -Cell[539908, 13649, 456, 10, 70, "Message",ExpressionUUID->"a2dba8d9-69c9-cb46-bbb4-f7192fe3e138"], -Cell[540367, 13661, 173, 3, 70, "Output",ExpressionUUID->"12fa1803-dc21-9349-8d62-d5d5f0fa85c6"] +Cell[449010, 11597, 6122, 187, 1092, "Input",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], +Cell[455135, 11786, 175, 3, 45, "Output",ExpressionUUID->"579eace1-979d-7347-a36f-c1fefbf459f5"] }, Open ]], Cell[CellGroupData[{ -Cell[540577, 13669, 211, 6, 70, "Input",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], -Cell[540791, 13677, 174, 3, 70, "Output",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"] -}, Open ]] +Cell[455347, 11794, 368, 9, 58, "Input",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], +Cell[455718, 11805, 172, 3, 45, "Output",ExpressionUUID->"0225baf1-4541-ed4d-8528-13926fef86cd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[455927, 11813, 2663, 88, 469, "Input",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], +Cell[458593, 11903, 173, 3, 45, "Output",ExpressionUUID->"f7c789e7-838d-b443-a597-00e69e7c3611"] +}, Open ]], +Cell[CellGroupData[{ +Cell[458803, 11911, 2603, 85, 469, "Input",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], +Cell[461409, 11998, 171, 3, 45, "Output",ExpressionUUID->"fc2bf760-d110-cb46-bd02-e934de9fd4f9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[461617, 12006, 3712, 118, 619, "Input",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], +Cell[465332, 12126, 171, 3, 45, "Output",ExpressionUUID->"4304216c-b250-ab48-915e-b844e71a70f1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[465540, 12134, 2052, 59, 291, "Input",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], +Cell[467595, 12195, 568, 12, 128, "Message",ExpressionUUID->"ef0dcda5-4eb3-fb4f-a7ba-cf9592c754fd"], +Cell[468166, 12209, 572, 12, 128, "Message",ExpressionUUID->"516128bc-41b4-3d49-8276-2fe73d5d437e"], +Cell[468741, 12223, 574, 12, 128, "Message",ExpressionUUID->"83555127-edb0-f34d-bade-abdcd60ad387"], +Cell[469318, 12237, 457, 10, 29, "Message",ExpressionUUID->"f8efe38f-0b83-4645-b574-b25c08902457"], +Cell[469778, 12249, 172, 3, 45, "Output",ExpressionUUID->"de5933f0-d736-3443-950a-4744d8abefe5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[469987, 12257, 2054, 59, 291, "Input",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], +Cell[472044, 12318, 568, 12, 128, "Message",ExpressionUUID->"d0c389d2-1c6b-3a44-bd00-6e54df438015"], +Cell[472615, 12332, 572, 12, 128, "Message",ExpressionUUID->"3f819d0b-3458-d54e-bb8e-ed758b92949a"], +Cell[473190, 12346, 574, 12, 128, "Message",ExpressionUUID->"7403c575-bafd-2049-8d02-89293c73f7f1"], +Cell[473767, 12360, 457, 10, 29, "Message",ExpressionUUID->"29512b1b-8a2c-1740-986b-fb78e7d2ec89"], +Cell[474227, 12372, 171, 3, 45, "Output",ExpressionUUID->"686785b6-8c83-3e43-88fb-689383b13a2d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[474435, 12380, 2030, 55, 292, "Input",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], +Cell[476468, 12437, 19960, 375, 325, "Output",ExpressionUUID->"9eb47740-dc4f-3248-80e4-ef19d916a0ad"] +}, Open ]], +Cell[CellGroupData[{ +Cell[496465, 12817, 2118, 60, 387, "Input",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], +Cell[498586, 12879, 496, 11, 79, "Message",ExpressionUUID->"6bc1b8c6-3100-6640-9985-3abfd43de799"], +Cell[499085, 12892, 501, 11, 79, "Message",ExpressionUUID->"82e13dda-210b-a94d-9e1d-a821db42ab6b"], +Cell[499589, 12905, 505, 11, 79, "Message",ExpressionUUID->"9d37688a-c69d-ed49-bce7-cf0090e0ecb8"], +Cell[500097, 12918, 455, 10, 29, "Message",ExpressionUUID->"4e87d0d8-b47a-ef47-85af-16467b219f50"], +Cell[500555, 12930, 21721, 403, 319, "Output",ExpressionUUID->"6974e3c4-9b35-2f4b-97bf-745f60f533f8"] +}, Open ]], +Cell[522291, 13336, 181, 3, 40, "Input",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], +Cell[522475, 13341, 207, 5, 40, "Input",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"], +Cell[CellGroupData[{ +Cell[522707, 13350, 1616, 48, 144, "Input",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], +Cell[524326, 13400, 589, 12, 128, "Message",ExpressionUUID->"8906bbab-e37b-4b4c-898f-52bfc96dde7b"], +Cell[524918, 13414, 588, 12, 128, "Message",ExpressionUUID->"6ae14bce-ec42-7f4d-9914-0630eea4cdf9"], +Cell[525509, 13428, 594, 12, 128, "Message",ExpressionUUID->"7e98a506-896d-0d47-8502-b83685d9a60c"], +Cell[526106, 13442, 455, 10, 29, "Message",ExpressionUUID->"400e66c2-06b5-814e-a2be-19c4c75ccbf0"], +Cell[526564, 13454, 173, 3, 45, "Output",ExpressionUUID->"f202ab02-e319-144b-97e8-ae603395b346"] +}, Open ]], +Cell[CellGroupData[{ +Cell[526774, 13462, 2246, 64, 461, "Input",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], +Cell[529023, 13528, 566, 12, 128, "Message",ExpressionUUID->"2d7e67d1-8691-e348-9ca8-caa63b533102"], +Cell[529592, 13542, 570, 12, 128, "Message",ExpressionUUID->"f0eb6f1d-f621-8647-b6a6-8bf673e41ebb"], +Cell[530165, 13556, 574, 12, 128, "Message",ExpressionUUID->"64fda82a-0f74-2743-89a8-afd600de203a"], +Cell[530742, 13570, 456, 10, 29, "Message",ExpressionUUID->"971a319d-8ab4-464d-a08e-f97fe8d4c0e1"], +Cell[531201, 13582, 171, 3, 45, "Output",ExpressionUUID->"b3c37f48-9827-884f-94d9-1f76aed7bfaa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[531409, 13590, 2221, 64, 461, "Input",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], +Cell[533633, 13656, 569, 12, 128, "Message",ExpressionUUID->"1040ba10-c733-df44-b556-0998dc0163c9"], +Cell[534205, 13670, 571, 12, 128, "Message",ExpressionUUID->"e451b852-84c2-a941-b1d7-812ecad4750e"], +Cell[534779, 13684, 575, 12, 128, "Message",ExpressionUUID->"a15e0c9d-d634-6e47-94c5-2ce40fcb4d52"], +Cell[535357, 13698, 458, 10, 29, "Message",ExpressionUUID->"a3ddc92b-b5c9-5e46-be44-6165430ec35f"], +Cell[535818, 13710, 171, 3, 45, "Output",ExpressionUUID->"978bf39b-9d1f-a54f-a6de-a2e3d269e126"] +}, Open ]], +Cell[CellGroupData[{ +Cell[536026, 13718, 2223, 64, 461, "Input",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], +Cell[538252, 13784, 567, 12, 128, "Message",ExpressionUUID->"57c74c2a-63a6-9846-b3f7-1a08cebb8172"], +Cell[538822, 13798, 571, 12, 128, "Message",ExpressionUUID->"2e606101-b73e-f443-8324-5b1c64dcaa7f"], +Cell[539396, 13812, 573, 12, 128, "Message",ExpressionUUID->"4da9173d-4ced-1e49-83f6-426d72ec8cf3"], +Cell[539972, 13826, 456, 10, 29, "Message",ExpressionUUID->"a2dba8d9-69c9-cb46-bbb4-f7192fe3e138"], +Cell[540431, 13838, 173, 3, 45, "Output",ExpressionUUID->"12fa1803-dc21-9349-8d62-d5d5f0fa85c6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[540641, 13846, 211, 6, 65, "Input",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], +Cell[540855, 13854, 174, 3, 45, "Output",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"] +}, Open ]], +Cell[541044, 13860, 115, 1, 40, "Input",ExpressionUUID->"db19731b-41c3-414b-814d-467835909659"] } ] *) diff --git a/Pu240_798-811_TitovAA/170-70_h_Pu240_24-25/h_170-70_Pu240_24-25_osc_Qw2.nb b/Pu240_798-811_TitovAA/170-70_h_Pu240_24-25/h_170-70_Pu240_24-25_osc_Qw2.nb index a320d64..8f74eef 100644 --- a/Pu240_798-811_TitovAA/170-70_h_Pu240_24-25/h_170-70_Pu240_24-25_osc_Qw2.nb +++ b/Pu240_798-811_TitovAA/170-70_h_Pu240_24-25/h_170-70_Pu240_24-25_osc_Qw2.nb @@ -3,25 +3,25 @@ (*** 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[ 383944, 9197] +NotebookOptionsPosition[ 359027, 8823] +NotebookOutlinePosition[ 359438, 8840] +CellTagsIndexPosition[ 359395, 8837] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ - RowBox[{"f1", "="}]], "Input", - CellChangeTimes->{ - 3.9918496921150837`*^9},ExpressionUUID->"ede64bc2-06f7-8743-a0a6-\ + RowBox[{"f1", "=", "0.8638738906"}]], "Input", + CellChangeTimes->{3.9918496921150837`*^9, + 3.994235487372745*^9},ExpressionUUID->"ede64bc2-06f7-8743-a0a6-\ 6f058773310c"], Cell[BoxData[""], "Input", @@ -30,9 +30,9 @@ Cell[BoxData[""], "Input", c82e80965ca9"], Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", - CellChangeTimes->{ - 3.991849690724144*^9},ExpressionUUID->"328429c4-9130-334e-ba7f-\ + RowBox[{"f2", "=", "0.5114215939"}]], "Input", + CellChangeTimes->{3.991849690724144*^9, + 3.994235492669819*^9},ExpressionUUID->"328429c4-9130-334e-ba7f-\ 7dc8ec78e5b4"], Cell[BoxData[""], "Input", @@ -2580,9 +2580,72 @@ A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", - RowBox[{"{", "}"}], "]"}]}]], "Input", - CellChangeTimes->{{3.991799458254999*^9, - 3.9917994623413925`*^9}},ExpressionUUID->"2d5a8299-5376-9747-8056-\ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.005449"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.016155"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.026309"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.035566"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.043662"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.050365"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.05556"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.059166"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.061228"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.061803"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.061061"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.059155"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.056323"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.05275"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.048682"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.044291"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.039784"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.035286"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.030946"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.026832"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.023034"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.01957"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.016479"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.013745"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.011373"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.009328"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.007596"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.006134"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.004922"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.003918"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.003101"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.9942355603687773`*^9},ExpressionUUID->"2d5a8299-5376-9747-8056-\ 2bd9764114a1"], Cell[BoxData[ @@ -8753,12 +8816,15 @@ Cell[BoxData["0.14275466609450368`"], "Output", CellChangeTimes->{3.991343787117275*^9}, CellLabel-> "Out[395]=",ExpressionUUID->"188c2681-ea17-924e-adb2-007b19a9ee86"] -}, Open ]] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input",ExpressionUUID->"370581aa-9efa-4b64-87cf-3407d34ae244"] }, -WindowSize->{718.5, 729.75}, -WindowMargins->{{17.25, Automatic}, {Automatic, 24}}, +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 +8839,367 @@ 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[554, 20, 187, 4, 66, "Input",ExpressionUUID->"ede64bc2-06f7-8743-a0a6-6f058773310c"], +Cell[744, 26, 156, 3, 36, "Input",ExpressionUUID->"9eb3c45a-b33b-a74e-8fe0-c82e80965ca9"], +Cell[903, 31, 185, 4, 36, "Input",ExpressionUUID->"328429c4-9130-334e-ba7f-7dc8ec78e5b4"], +Cell[1091, 37, 152, 3, 36, "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[1268, 44, 1301, 43, 174, "Input",ExpressionUUID->"789c64dd-6722-a64c-864a-7fd89b074ad2"], +Cell[2572, 89, 176, 3, 41, "Output",ExpressionUUID->"b2b0fbe6-496d-0b4b-a132-3f215e541d44"] }, 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[2785, 97, 908, 31, 73, "Input",ExpressionUUID->"35e76fc7-2f05-694a-b379-67189aa511ad"], +Cell[3696, 130, 175, 3, 41, "Output",ExpressionUUID->"cead89a0-592d-3b44-ae8b-df81fa845f91"] }, 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[3908, 138, 887, 30, 73, "Input",ExpressionUUID->"a10e19cd-f567-6b4d-a841-5f01117db38b"], +Cell[4798, 170, 177, 3, 41, "Output",ExpressionUUID->"cd23137f-b6ad-354d-a690-15ff879bfb9c"] }, 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[5012, 178, 558, 19, 66, "Input",ExpressionUUID->"289c2a6f-fa01-2645-80ce-1661c17fd90c"], +Cell[5573, 199, 172, 3, 41, "Output",ExpressionUUID->"85da9012-bc80-5149-8545-ead2f85c5a34"] }, 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[5782, 207, 651, 22, 66, "Input",ExpressionUUID->"399520f6-f2e9-6f4a-a02c-50158b624262"], +Cell[6436, 231, 170, 3, 41, "Output",ExpressionUUID->"86664631-6f8b-d148-8f17-b13cb8a9a5fa"] }, 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[6643, 239, 170, 5, 71, "Input",ExpressionUUID->"7ee61184-68bc-584d-8849-9a0186a8f35d"], +Cell[6816, 246, 173, 3, 41, "Output",ExpressionUUID->"77c43b01-85eb-fd46-b71d-1d444bf52ef5"] }, 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[7026, 254, 170, 5, 69, "Input",ExpressionUUID->"0ec92d80-8d9e-2746-9b01-4edb32bf4eac"], +Cell[7199, 261, 169, 3, 109, "Output",ExpressionUUID->"aacafa1c-cf55-8c4f-8232-23de80eb25b7"] }, 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[7405, 269, 181, 5, 109, "Input",ExpressionUUID->"8c869977-4b92-8745-b065-cb6318fdcdb7"], +Cell[7589, 276, 173, 3, 109, "Output",ExpressionUUID->"de93d189-ac68-c842-aeb5-e64b23581b7c"] }, 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[7799, 284, 181, 5, 109, "Input",ExpressionUUID->"e2c1a337-e3c1-be4c-aa33-ae15497f38bc"], +Cell[7983, 291, 170, 3, 109, "Output",ExpressionUUID->"73700a90-df80-2f44-9e2f-d43da4980146"] }, 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[8190, 299, 6055, 185, 109, "Input",ExpressionUUID->"abbe4489-628a-134f-b142-f0e18f19d6f9"], +Cell[14248, 486, 174, 3, 109, "Output",ExpressionUUID->"cebf7c0c-e117-6441-a465-087c93e87be5"] }, 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[14459, 494, 368, 9, 109, "Input",ExpressionUUID->"9e4d84a7-8664-a749-b8b4-3df6645764a5"], +Cell[14830, 505, 170, 3, 109, "Output",ExpressionUUID->"53acb857-d475-4b46-bdab-d2addcedb13c"] }, 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[15037, 513, 6122, 187, 109, "Input",ExpressionUUID->"29cc8bdf-8683-214b-bd33-b4d8b4da1114"], +Cell[21162, 702, 174, 3, 109, "Output",ExpressionUUID->"9962c954-af09-2844-91ec-70eb43451868"] }, 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[21373, 710, 368, 9, 109, "Input",ExpressionUUID->"2190c129-8a98-bf45-873d-af8f8d048936"], +Cell[21744, 721, 170, 3, 109, "Output",ExpressionUUID->"1f5b5c64-ee33-0943-822d-b5e2806576ef"] }, 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[21951, 729, 2663, 88, 109, "Input",ExpressionUUID->"972f1c0f-a59f-2847-8b2b-bd88c5077325"], +Cell[24617, 819, 171, 3, 109, "Output",ExpressionUUID->"a3bdb7fa-0a90-d14f-81e9-757139920dcb"] }, 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[24825, 827, 2603, 85, 109, "Input",ExpressionUUID->"c06a7373-f345-6147-b882-1c88bef9608a"], +Cell[27431, 914, 171, 3, 109, "Output",ExpressionUUID->"1b098546-b8b7-b741-b993-7512b0787277"] }, 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"] +Cell[27639, 922, 3712, 118, 109, "Input",ExpressionUUID->"82838793-cf71-8049-a4ac-b01daf51205b"], +Cell[31354, 1042, 171, 3, 109, "Output",ExpressionUUID->"d3b57aaa-e0b1-cb4b-b411-ab6c214b3d77"] }, Open ]], -Cell[31464, 1048, 138, 3, 70, "Input",ExpressionUUID->"0055f95b-c532-e24d-bdc4-544ea2d2fbd9"], +Cell[31540, 1048, 138, 3, 109, "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[31703, 1055, 2054, 59, 109, "Input",ExpressionUUID->"574b810b-aa4a-d545-b080-c44fbe83a713"], +Cell[33760, 1116, 566, 12, 109, "Message",ExpressionUUID->"56fc0528-7ab2-a142-bc04-9f31af965213"], +Cell[34329, 1130, 569, 12, 109, "Message",ExpressionUUID->"523f0cae-d948-764c-a560-b9272d5e2d53"], +Cell[34901, 1144, 570, 12, 109, "Message",ExpressionUUID->"0a6922e0-d70a-8f48-87c3-f1e8776a3316"], +Cell[35474, 1158, 458, 10, 109, "Message",ExpressionUUID->"777b8d50-cc35-c140-9ef3-025284fd7e68"], +Cell[35935, 1170, 172, 3, 109, "Output",ExpressionUUID->"bbad1871-e996-ef4b-8dc6-3a39d5c410ef"] }, 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[36144, 1178, 2052, 59, 109, "Input",ExpressionUUID->"3d7dd6a2-2692-2b4d-8922-656c90598e75"], +Cell[38199, 1239, 564, 12, 109, "Message",ExpressionUUID->"e613a9b2-edeb-4743-aa3f-3db45e0849dd"], +Cell[38766, 1253, 567, 12, 109, "Message",ExpressionUUID->"d082687e-fa98-c642-8741-e0aeeee8492c"], +Cell[39336, 1267, 570, 12, 109, "Message",ExpressionUUID->"1cb847b5-98cf-0a42-bcd2-893a3a64388b"], +Cell[39909, 1281, 455, 10, 109, "Message",ExpressionUUID->"0d526236-fa4c-334c-9891-0cc458f43fbe"], +Cell[40367, 1293, 169, 3, 109, "Output",ExpressionUUID->"a61472f3-b6b3-5d40-8ec5-35b87df5c824"] }, 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[40573, 1301, 1936, 53, 109, "Input",ExpressionUUID->"9c540ba7-8bb4-ef46-919c-62296271f174"], +Cell[42512, 1356, 19983, 375, 109, "Output",ExpressionUUID->"84263d17-cde8-2246-a26d-50fe65f34979"] }, 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"] +Cell[62532, 1736, 2092, 60, 109, "Input",ExpressionUUID->"6e33cb28-ef1e-1547-b52d-2171e7786920"], +Cell[64627, 1798, 501, 11, 109, "Message",ExpressionUUID->"53d31480-3c5e-ef4a-987b-a232cf0b03f3"], +Cell[65131, 1811, 503, 11, 109, "Message",ExpressionUUID->"b7d94271-16f1-6346-b579-21279019eafb"], +Cell[65637, 1824, 506, 11, 109, "Message",ExpressionUUID->"bfaea4b0-a812-1847-9911-9291b70d2c8f"], +Cell[66146, 1837, 456, 10, 109, "Message",ExpressionUUID->"07354318-4dcc-6049-94e1-9227bd3406fc"], +Cell[66605, 1849, 41581, 727, 292, "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[108201, 2579, 2455, 69, 296, "Input",ExpressionUUID->"2d5a8299-5376-9747-8056-2bd9764114a1"], +Cell[110659, 2650, 209, 5, 36, "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[110893, 2659, 217, 7, 61, "Input",ExpressionUUID->"650e43f8-1352-de46-8137-52adca93b0cf"], +Cell[111113, 2668, 170, 3, 41, "Output",ExpressionUUID->"ced270d8-1772-ff41-a012-a661d8496312"] }, 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[111320, 2676, 1814, 53, 311, "Input",ExpressionUUID->"9ad75b45-8f6d-114b-80bd-d2b12a49fd20"], +Cell[113137, 2731, 506, 11, 71, "Message",ExpressionUUID->"82d24bea-da89-924f-8c72-34dd3938ca31"], +Cell[113646, 2744, 512, 11, 71, "Message",ExpressionUUID->"dec01940-92d8-ec46-9a19-7eeb83f307cb"], +Cell[114161, 2757, 509, 11, 71, "Message",ExpressionUUID->"b8576457-d231-bd44-9899-a0c0bb16b9e8"], +Cell[114673, 2770, 456, 10, 26, "Message",ExpressionUUID->"8bc3094a-336c-7a48-a7ed-1449be3156c0"], +Cell[115132, 2782, 22336, 412, 290, "Output",ExpressionUUID->"8cd361e0-0597-af48-9664-8ef179548a96"] }, 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[137505, 3199, 1616, 48, 132, "Input",ExpressionUUID->"94eefac7-0bb7-7249-8430-0b2ddd6df117"], +Cell[139124, 3249, 584, 12, 111, "Message",ExpressionUUID->"6b02dcd6-679e-e045-823b-19e8112735bb"], +Cell[139711, 3263, 588, 12, 111, "Message",ExpressionUUID->"1777b2e8-4814-3b40-9d26-e365522e2fa7"], +Cell[140302, 3277, 591, 12, 111, "Message",ExpressionUUID->"343e800a-6390-7b48-892a-7785bb4151c8"], +Cell[140896, 3291, 456, 10, 26, "Message",ExpressionUUID->"30a8c837-a97a-f04a-b90a-1e6b32a15ee9"], +Cell[141355, 3303, 173, 3, 41, "Output",ExpressionUUID->"ae05a7c3-f5d6-d640-8f8e-efe8f63ceb63"] }, 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[141565, 3311, 2274, 65, 348, "Input",ExpressionUUID->"1d118f77-7d68-dd41-b0af-09454f88e7f1"], +Cell[143842, 3378, 566, 12, 91, "Message",ExpressionUUID->"089dc3ff-480d-db4f-bbed-05630517df59"], +Cell[144411, 3392, 569, 12, 91, "Message",ExpressionUUID->"6e93a9b9-9460-8649-881d-48f37a709a1b"], +Cell[144983, 3406, 572, 12, 91, "Message",ExpressionUUID->"1ee8858a-971e-d34f-bafe-57ab88be1238"], +Cell[145558, 3420, 458, 10, 26, "Message",ExpressionUUID->"96f8e027-4313-4f4f-a21d-2291fe960276"], +Cell[146019, 3432, 171, 3, 41, "Output",ExpressionUUID->"53e3f7cd-1b3e-7343-931d-6e137013b0b0"] }, 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[146227, 3440, 2221, 64, 348, "Input",ExpressionUUID->"c8039063-5f4d-134a-b6ba-e19335f7a9f6"], +Cell[148451, 3506, 564, 12, 91, "Message",ExpressionUUID->"2abeeb06-100d-8a4f-bcb1-ddb8c833ff54"], +Cell[149018, 3520, 567, 12, 91, "Message",ExpressionUUID->"7e411bd4-b3ce-e244-9ce0-8d1f78e8cd14"], +Cell[149588, 3534, 570, 12, 91, "Message",ExpressionUUID->"1eef1d19-4a0f-cd45-ac5f-c8b603cf3443"], +Cell[150161, 3548, 456, 10, 26, "Message",ExpressionUUID->"6022a732-4a2e-1544-a8b7-891b74c71e8b"], +Cell[150620, 3560, 173, 3, 41, "Output",ExpressionUUID->"3c53d31a-b5c8-d04c-a31f-fccb4feaa955"] }, 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[150830, 3568, 2223, 64, 348, "Input",ExpressionUUID->"a474307a-af78-3040-90ec-fb8d284b16bb"], +Cell[153056, 3634, 566, 12, 91, "Message",ExpressionUUID->"419d88aa-08de-a042-b43b-49810fba72bb"], +Cell[153625, 3648, 569, 12, 91, "Message",ExpressionUUID->"4a9a6268-a319-d748-9834-40ccb49d2b51"], +Cell[154197, 3662, 570, 12, 91, "Message",ExpressionUUID->"575d1045-9e4b-4643-b969-4ea2653f65d7"], +Cell[154770, 3676, 458, 10, 26, "Message",ExpressionUUID->"0c807644-74de-9c49-acac-c7123cbacadc"], +Cell[155231, 3688, 170, 3, 41, "Output",ExpressionUUID->"40f79c92-c788-c843-8a8c-07266b265dee"] }, 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"] +Cell[155438, 3696, 213, 6, 60, "Input",ExpressionUUID->"ce14ed0e-a62a-1e46-b7cf-f67bfdbd9bc7"], +Cell[155654, 3704, 171, 3, 41, "Output",ExpressionUUID->"5f3fc6c2-7014-7c43-bf96-8a336bebf769"] }, Open ]], -Cell[153541, 3647, 244, 5, 70, "Input",ExpressionUUID->"d104d373-080a-854b-92ff-e87abbd4c41c"], +Cell[155840, 3710, 244, 5, 36, "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[156109, 3719, 558, 19, 66, "Input",ExpressionUUID->"b6bc4645-bb9b-da49-b314-4566a6ca9506"], +Cell[156670, 3740, 173, 3, 41, "Output",ExpressionUUID->"c9ac712d-c12f-0747-84df-4fbc596a4bc5"] }, 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[156880, 3748, 170, 5, 71, "Input",ExpressionUUID->"1f225213-8143-a346-8c4e-e69f41e85c6f"], +Cell[157053, 3755, 171, 3, 41, "Output",ExpressionUUID->"265915a4-bf42-cc4a-850a-ff4e02169aa3"] }, 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[157261, 3763, 181, 5, 55, "Input",ExpressionUUID->"4b9388d7-dfe0-ca44-90a4-ea60f173579a"], +Cell[157445, 3770, 173, 3, 41, "Output",ExpressionUUID->"31530b6e-e89a-9145-8021-0dc6b1c7eda5"] }, 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[157655, 3778, 6055, 185, 831, "Input",ExpressionUUID->"b0d5a77d-c2c5-e84d-b4be-bec051c1557c"], +Cell[163713, 3965, 175, 3, 41, "Output",ExpressionUUID->"498f3df6-21c9-ce42-acfb-0b180bf5016e"] }, 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[163925, 3973, 368, 9, 53, "Input",ExpressionUUID->"e543ccd6-d1e6-3c4d-9364-2a9eec09292b"], +Cell[164296, 3984, 172, 3, 41, "Output",ExpressionUUID->"7c93e621-3415-c743-b6e4-6e9478aa49a4"] }, 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[164505, 3992, 6122, 187, 900, "Input",ExpressionUUID->"50e98a1c-f33a-9242-9267-bbd8a1753662"], +Cell[170630, 4181, 173, 3, 41, "Output",ExpressionUUID->"ac3c9970-0aac-ba4f-878d-3a3d1e5e2e3e"] }, 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[170840, 4189, 368, 9, 53, "Input",ExpressionUUID->"339251a5-83bd-8642-8c5c-4fff9ebe10d7"], +Cell[171211, 4200, 170, 3, 41, "Output",ExpressionUUID->"d74ba3c3-6f35-614a-92df-d33bcc5e630d"] }, 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[171418, 4208, 2663, 88, 435, "Input",ExpressionUUID->"ad1f9bb1-e9e6-5b4f-9f95-8eeef0cc66ae"], +Cell[174084, 4298, 171, 3, 41, "Output",ExpressionUUID->"33da748c-8c98-4649-9b81-8e00dd5f5d44"] }, 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[174292, 4306, 2603, 85, 435, "Input",ExpressionUUID->"4b0fdfc8-7d81-3a4d-90ed-a9bb76dc96a0"], +Cell[176898, 4393, 171, 3, 41, "Output",ExpressionUUID->"a300919b-1d52-ed46-bc06-5e86812c0bf8"] }, 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[177106, 4401, 3712, 118, 575, "Input",ExpressionUUID->"31524ab0-bcc9-e948-9393-cfc225600ff2"], +Cell[180821, 4521, 170, 3, 41, "Output",ExpressionUUID->"45caa3aa-b655-b94b-bc88-ae750a9e28b8"] }, 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[181028, 4529, 2052, 59, 276, "Input",ExpressionUUID->"486d514f-ec65-1e4e-b780-7e9487f745c3"], +Cell[183083, 4590, 573, 12, 91, "Message",ExpressionUUID->"fdac5db3-60d6-7a42-93b8-a74d8fc5d39e"], +Cell[183659, 4604, 577, 12, 91, "Message",ExpressionUUID->"46e50c50-b3b4-9847-b413-3bf52122b53e"], +Cell[184239, 4618, 580, 12, 91, "Message",ExpressionUUID->"5df9105e-cc71-b049-a285-30acff0c246a"], +Cell[184822, 4632, 456, 10, 26, "Message",ExpressionUUID->"84079c6c-500c-0643-b357-e1da142371e6"], +Cell[185281, 4644, 170, 3, 41, "Output",ExpressionUUID->"8303ac5a-d080-3741-a2d8-b7ff63ccb029"] }, 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[185488, 4652, 2054, 59, 276, "Input",ExpressionUUID->"c7144ce5-8356-d548-8854-18c538c3321c"], +Cell[187545, 4713, 573, 12, 91, "Message",ExpressionUUID->"65ad7cc5-5634-7d43-8ec3-48fd3e044014"], +Cell[188121, 4727, 577, 12, 91, "Message",ExpressionUUID->"c7632c59-b44f-2c47-aaf4-873ba9758677"], +Cell[188701, 4741, 582, 12, 91, "Message",ExpressionUUID->"509e3117-7502-a34e-9f96-72b696066a2b"], +Cell[189286, 4755, 456, 10, 26, "Message",ExpressionUUID->"0e1f3a7a-70f7-bc47-9700-06e687643558"], +Cell[189745, 4767, 170, 3, 41, "Output",ExpressionUUID->"15bebbf4-baae-a44a-84b5-59b3a1f444c3"] }, 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[189952, 4775, 2028, 55, 232, "Input",ExpressionUUID->"b2db949b-a7b9-8f4b-afbd-a45df2eabf0c"], +Cell[191983, 4832, 20422, 382, 295, "Output",ExpressionUUID->"d9c156b6-0b42-724f-8e7d-964560057978"] }, 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"] +Cell[212442, 5219, 2120, 60, 311, "Input",ExpressionUUID->"92d458c4-bfde-c447-a06c-70a15768b745"], +Cell[214565, 5281, 502, 11, 71, "Message",ExpressionUUID->"74b51561-a06a-7345-9196-225d76f7f21f"], +Cell[215070, 5294, 506, 11, 71, "Message",ExpressionUUID->"ee03248d-dd91-8b4e-835e-9c4a5f039c61"], +Cell[215579, 5307, 505, 11, 71, "Message",ExpressionUUID->"81d7736e-0167-fe4f-bd5c-40ffaca911e4"], +Cell[216087, 5320, 458, 10, 26, "Message",ExpressionUUID->"43062041-d596-b540-8a1c-36df0575e1f0"], +Cell[216548, 5332, 22288, 412, 290, "Output",ExpressionUUID->"4ce3b436-d895-8b48-899f-c7dec78bd5cd"] }, Open ]], -Cell[236552, 5684, 209, 5, 70, "Input",ExpressionUUID->"e1c8585a-8b57-f841-82e1-8e8787fb2589"], +Cell[238851, 5747, 209, 5, 36, "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[239085, 5756, 1616, 48, 132, "Input",ExpressionUUID->"8cd26316-ef9d-184c-93c8-dd96bfd24ea1"], +Cell[240704, 5806, 595, 12, 111, "Message",ExpressionUUID->"bf4d283e-fed2-af41-90e7-a9b6911d8baf"], +Cell[241302, 5820, 595, 12, 111, "Message",ExpressionUUID->"9f6ca4d5-4251-0341-9c65-a603c68721f6"], +Cell[241900, 5834, 599, 12, 111, "Message",ExpressionUUID->"108eeaac-8397-bf4f-90a4-e14dbe759ebf"], +Cell[242502, 5848, 456, 10, 26, "Message",ExpressionUUID->"1a2f2a3c-e511-b846-8a84-9fad6555a680"], +Cell[242961, 5860, 171, 3, 41, "Output",ExpressionUUID->"ca1793f9-9753-5e46-b385-c8dd36228fd1"] }, 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[243169, 5868, 2248, 64, 348, "Input",ExpressionUUID->"e0ae6f48-c6a6-a24c-812a-30286a178ca1"], +Cell[245420, 5934, 575, 12, 91, "Message",ExpressionUUID->"642a7168-3d33-6b4e-9213-0f67bfd30f54"], +Cell[245998, 5948, 577, 12, 91, "Message",ExpressionUUID->"315984db-f497-2940-bd36-1d820037ad00"], +Cell[246578, 5962, 582, 12, 91, "Message",ExpressionUUID->"2698bbc8-6aa1-c54b-9b5c-3f71a7eb3345"], +Cell[247163, 5976, 458, 10, 26, "Message",ExpressionUUID->"7f632647-49b8-a945-8682-8e4f7ae37cda"], +Cell[247624, 5988, 172, 3, 41, "Output",ExpressionUUID->"0f5bf0f0-4e96-2c4d-9011-c6ae92f19c83"] }, 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[247833, 5996, 2215, 63, 348, "Input",ExpressionUUID->"bce0eb71-ca49-364f-a3be-8e8c3542c5fb"], +Cell[250051, 6061, 575, 12, 91, "Message",ExpressionUUID->"704bc64b-0e53-8146-9696-c0e9ea00ec4d"], +Cell[250629, 6075, 577, 12, 91, "Message",ExpressionUUID->"68985ea1-064e-2c42-b957-ce16147f9e13"], +Cell[251209, 6089, 582, 12, 91, "Message",ExpressionUUID->"48a38db6-6d68-6140-9cb6-9dfc686aa062"], +Cell[251794, 6103, 458, 10, 26, "Message",ExpressionUUID->"ac6e6758-d573-7947-b88c-92831bb5be70"], +Cell[252255, 6115, 170, 3, 41, "Output",ExpressionUUID->"4d1b179c-7677-2745-8308-576346b6bf0b"] }, 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[252462, 6123, 2223, 64, 348, "Input",ExpressionUUID->"935796a8-6280-564a-b4d0-fc6fb6cd41f8"], +Cell[254688, 6189, 573, 12, 91, "Message",ExpressionUUID->"0a9cfe95-3a6f-384b-8656-bdf67695e5d7"], +Cell[255264, 6203, 577, 12, 91, "Message",ExpressionUUID->"700ebedb-417e-8043-ab89-eb4672a7847d"], +Cell[255844, 6217, 580, 12, 91, "Message",ExpressionUUID->"599826a9-6d60-6843-9eef-e381cafa0758"], +Cell[256427, 6231, 456, 10, 26, "Message",ExpressionUUID->"d92d3772-b819-d145-8d96-f897b04ae4a7"], +Cell[256886, 6243, 173, 3, 41, "Output",ExpressionUUID->"98a57fa3-05ea-0d42-95b5-58c14727d753"] }, 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"] +Cell[257096, 6251, 213, 6, 60, "Input",ExpressionUUID->"ee52036b-90c5-e14a-aed9-684ff23ed035"], +Cell[257312, 6259, 173, 3, 41, "Output",ExpressionUUID->"ea5023c6-5364-074e-904d-43b5c1077635"] }, Open ]], -Cell[255201, 6202, 247, 5, 70, "Input",ExpressionUUID->"c6d4a146-4cca-7e4e-b483-85227a6e6b51"], +Cell[257500, 6265, 247, 5, 36, "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[257772, 6274, 558, 19, 66, "Input",ExpressionUUID->"28979542-d43a-e54a-88e0-087a68060d62"], +Cell[258333, 6295, 173, 3, 41, "Output",ExpressionUUID->"b967ea88-4a73-d84a-86f5-ad4ded7dfd59"] }, 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[258543, 6303, 170, 5, 71, "Input",ExpressionUUID->"c3303a76-2bd9-454b-b35d-6119cde0197e"], +Cell[258716, 6310, 173, 3, 41, "Output",ExpressionUUID->"fd8ea80a-f1d4-be4f-9cfa-b37871c5703d"] }, 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[258926, 6318, 181, 5, 55, "Input",ExpressionUUID->"b83c9900-e14a-064d-b097-089d758a0eb6"], +Cell[259110, 6325, 173, 3, 41, "Output",ExpressionUUID->"7d039035-dcf9-ec46-abdb-20c0c777b3ef"] }, 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[259320, 6333, 6055, 185, 831, "Input",ExpressionUUID->"17437a0c-d9be-a242-b57f-efef95056982"], +Cell[265378, 6520, 172, 3, 41, "Output",ExpressionUUID->"ec08a5f9-ba46-9147-9d7b-cc1decdb981f"] }, 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[265587, 6528, 368, 9, 53, "Input",ExpressionUUID->"b3706ed1-2e71-9941-86c4-d789cf8ea193"], +Cell[265958, 6539, 172, 3, 41, "Output",ExpressionUUID->"71ad1ede-d77d-ee46-a908-e7b20c10ebe8"] }, 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[266167, 6547, 6122, 187, 900, "Input",ExpressionUUID->"2dad5775-7b90-2241-a408-e59b2ea47cb0"], +Cell[272292, 6736, 173, 3, 41, "Output",ExpressionUUID->"819de60b-5785-6448-8fe2-0db5976d700d"] }, 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[272502, 6744, 368, 9, 53, "Input",ExpressionUUID->"ea913ab0-daa5-1f4d-93f4-2e6143537b5d"], +Cell[272873, 6755, 170, 3, 41, "Output",ExpressionUUID->"8dd6a8d3-1dbb-0d4a-9edc-e78196c49a86"] }, 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[273080, 6763, 2663, 88, 435, "Input",ExpressionUUID->"53a0bfe7-010b-d445-822a-52c57127f779"], +Cell[275746, 6853, 171, 3, 41, "Output",ExpressionUUID->"ae861452-cf77-f740-9f62-141306c9a07a"] }, 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[275954, 6861, 2603, 85, 435, "Input",ExpressionUUID->"4e482268-3ff3-d74a-9ba6-ed262245ad4b"], +Cell[278560, 6948, 173, 3, 41, "Output",ExpressionUUID->"253d4a43-9313-5444-b0f9-3aae32edd842"] }, 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[278770, 6956, 3712, 118, 575, "Input",ExpressionUUID->"df39eab0-0939-764b-8de6-27d0ba2be7e8"], +Cell[282485, 7076, 173, 3, 41, "Output",ExpressionUUID->"0c1e1373-3726-9c43-862b-62a8708f83a9"] }, 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[282695, 7084, 2052, 59, 276, "Input",ExpressionUUID->"6b25ec99-ae49-ec4d-9652-65328572e509"], +Cell[284750, 7145, 568, 12, 91, "Message",ExpressionUUID->"d55599c5-2bb2-8f4a-a245-aa6d5998cb8f"], +Cell[285321, 7159, 573, 12, 91, "Message",ExpressionUUID->"bdcd3bac-beba-5242-b376-95b5ed40a02a"], +Cell[285897, 7173, 576, 12, 91, "Message",ExpressionUUID->"b91a3ff7-a025-fd4e-b11c-58fa6385068b"], +Cell[286476, 7187, 458, 10, 26, "Message",ExpressionUUID->"9e66d374-59c2-ce4b-b0d2-5a3813a10542"], +Cell[286937, 7199, 172, 3, 41, "Output",ExpressionUUID->"5742ee33-8e4b-444c-91b6-6d4c403c91e9"] }, 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[287146, 7207, 2052, 59, 276, "Input",ExpressionUUID->"3e2baf62-fab9-eb41-8de7-aa229443ac14"], +Cell[289201, 7268, 568, 12, 91, "Message",ExpressionUUID->"49d9e2db-79aa-5b48-897e-3089c92c79b4"], +Cell[289772, 7282, 573, 12, 91, "Message",ExpressionUUID->"2361061c-25a8-4549-ba9e-397593d876d4"], +Cell[290348, 7296, 574, 12, 91, "Message",ExpressionUUID->"a2993171-fcd7-8742-bf17-921d87bded0b"], +Cell[290925, 7310, 458, 10, 26, "Message",ExpressionUUID->"c72ccd11-884d-074a-bf1c-ed71d6dc6298"], +Cell[291386, 7322, 172, 3, 41, "Output",ExpressionUUID->"9dfb51ec-f6bd-9540-91f7-9d4800c6c680"] }, 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[291595, 7330, 2028, 55, 232, "Input",ExpressionUUID->"725c3011-bda9-4c42-96ce-9a77a5dc787c"], +Cell[293626, 7387, 20375, 384, 295, "Output",ExpressionUUID->"e400bdb6-95ee-464e-9e4c-d5d7da48485f"] }, 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[314038, 7776, 2118, 60, 311, "Input",ExpressionUUID->"1ea503b1-33a1-2744-a92d-2e1269faf5ed"], +Cell[316159, 7838, 501, 11, 71, "Message",ExpressionUUID->"1c59fae3-3f74-0144-b936-915cf372347d"], +Cell[316663, 7851, 503, 11, 71, "Message",ExpressionUUID->"c058b3d2-ecc0-7348-bdec-143a71e7f77c"], +Cell[317169, 7864, 506, 11, 71, "Message",ExpressionUUID->"049ee41e-a5fd-7e46-9ca5-37402fcadc74"], +Cell[317678, 7877, 458, 10, 26, "Message",ExpressionUUID->"5bf93938-89e6-8d49-a495-6173a8c36739"], +Cell[318139, 7889, 22161, 409, 290, "Output",ExpressionUUID->"0ea0f8f9-2a4b-804f-a2c8-287645f62313"] }, Open ]], -Cell[338016, 8238, 209, 5, 70, "Input",ExpressionUUID->"b530b35f-2a32-0145-82a7-25a7a01bdd8f"], +Cell[340315, 8301, 209, 5, 36, "Input",ExpressionUUID->"b530b35f-2a32-0145-82a7-25a7a01bdd8f"], 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[340549, 8310, 1616, 48, 132, "Input",ExpressionUUID->"a0d63734-417a-b84f-b5c7-88ca33cb9355"], +Cell[342168, 8360, 590, 12, 111, "Message",ExpressionUUID->"cb4665e4-f252-8e4c-9d71-b694fbe7aa53"], +Cell[342761, 8374, 589, 12, 111, "Message",ExpressionUUID->"e67b353a-d4a9-454a-9cac-3e22ef8a4d4b"], +Cell[343353, 8388, 593, 12, 111, "Message",ExpressionUUID->"9dbc6a20-c95c-084e-b19f-b6bb6bd70d6b"], +Cell[343949, 8402, 456, 10, 26, "Message",ExpressionUUID->"f9b6cbc5-ab52-2741-b8bf-bf6796495def"], +Cell[344408, 8414, 170, 3, 41, "Output",ExpressionUUID->"1439e238-af89-2243-beb8-0a46e5e09115"] }, 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[344615, 8422, 2251, 64, 348, "Input",ExpressionUUID->"97b28b29-5d04-5c42-a0e8-93b70f20e7f6"], +Cell[346869, 8488, 568, 12, 91, "Message",ExpressionUUID->"033374a1-a008-6240-84e3-c1c7a7e65b75"], +Cell[347440, 8502, 573, 12, 91, "Message",ExpressionUUID->"88ab6d85-4789-7346-aeee-8e9a4b87248d"], +Cell[348016, 8516, 574, 12, 91, "Message",ExpressionUUID->"051100a9-488b-4d4d-83c7-cdc54aef13e0"], +Cell[348593, 8530, 458, 10, 26, "Message",ExpressionUUID->"a33cd954-f1de-bf45-8642-effd7c3e029f"], +Cell[349054, 8542, 173, 3, 41, "Output",ExpressionUUID->"48a4017b-948a-6a48-8b10-d81adf4b9038"] }, 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[349264, 8550, 2221, 64, 348, "Input",ExpressionUUID->"f9d1ad25-05cb-d544-8ab6-cdce838d9efe"], +Cell[351488, 8616, 570, 12, 91, "Message",ExpressionUUID->"d8156b3f-4442-9146-9c48-cb34fdfb79d3"], +Cell[352061, 8630, 573, 12, 91, "Message",ExpressionUUID->"60007a19-2492-cd46-a203-7c2bbbc6591f"], +Cell[352637, 8644, 573, 12, 91, "Message",ExpressionUUID->"8754c4a5-0539-0247-94a5-8a81a9ae7e49"], +Cell[353213, 8658, 458, 10, 26, "Message",ExpressionUUID->"3af4c7f8-fe90-6646-8e3b-058500b348e9"], +Cell[353674, 8670, 171, 3, 41, "Output",ExpressionUUID->"46f7d520-9bcf-9d48-ae7c-54e91ca06983"] }, 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[353882, 8678, 2221, 64, 348, "Input",ExpressionUUID->"0794d062-69d5-0a45-936e-533b19d33de6"], +Cell[356106, 8744, 570, 12, 91, "Message",ExpressionUUID->"ba4db233-5a2e-4340-98d0-df918a11e2c7"], +Cell[356679, 8758, 573, 12, 91, "Message",ExpressionUUID->"444b24ca-68bb-7144-a655-403eefa4900f"], +Cell[357255, 8772, 574, 12, 91, "Message",ExpressionUUID->"f2dc2286-68d4-d74f-83ea-dd0f591156a8"], +Cell[357832, 8786, 458, 10, 26, "Message",ExpressionUUID->"4974a702-c238-6d47-b5b2-a3c25cacf142"], +Cell[358293, 8798, 173, 3, 41, "Output",ExpressionUUID->"d46043b7-707b-4740-ab89-0a2b96978cff"] }, 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[358503, 8806, 215, 6, 60, "Input",ExpressionUUID->"95c56266-e4d3-624e-89c1-cedeeeb0247a"], +Cell[358721, 8814, 172, 3, 41, "Output",ExpressionUUID->"188c2681-ea17-924e-adb2-007b19a9ee86"] +}, Open ]], +Cell[358908, 8820, 115, 1, 36, "Input",ExpressionUUID->"370581aa-9efa-4b64-87cf-3407d34ae244"] } ] *) -(* End of internal cache information *) - diff --git a/Pu240_798-811_TitovAA/170-70_h_Pu240_24-25/h_170-70_Pu240_24-25_pr_Qw1.nb b/Pu240_798-811_TitovAA/170-70_h_Pu240_24-25/h_170-70_Pu240_24-25_pr_Qw1.nb index 14330be..b78f4c9 100644 --- a/Pu240_798-811_TitovAA/170-70_h_Pu240_24-25/h_170-70_Pu240_24-25_pr_Qw1.nb +++ b/Pu240_798-811_TitovAA/170-70_h_Pu240_24-25/h_170-70_Pu240_24-25_pr_Qw1.nb @@ -3,25 +3,4924 @@ (*** 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[ 619043, 14980] +NotebookOptionsPosition[ 579184, 14349] +NotebookOutlinePosition[ 579625, 14367] +CellTagsIndexPosition[ 579582, 14364] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f1", "="}]], "Input", + RowBox[{"d", "=", "2"}]], "Input", CellChangeTimes->{ - 3.9918488488187084`*^9},ExpressionUUID->"bdefbecf-0aaa-4a45-a861-\ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.994074365586355*^9, 3.9940743682625427`*^9}, { + 3.994074972569545*^9, 3.994074973088262*^9}, {3.9940750163921824`*^9, + 3.9940750181750507`*^9}, {3.994075068546856*^9, 3.994075088637937*^9}}, + CellLabel-> + "In[408]:=",ExpressionUUID->"faf503b8-bf82-4409-955e-15ee2a94c2df"], + +Cell[BoxData["2"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, 3.994074326579653*^9, 3.994074935279605*^9, + 3.994074974578923*^9, 3.9940750193451347`*^9, {3.994075073182597*^9, + 3.9940750908104277`*^9}}, + CellLabel-> + "Out[408]=",ExpressionUUID->"7dcd0da0-ce28-451b-a6f6-179b3ac96f74"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.9940736553396893`*^9, 3.9940736559062967`*^9}}, + CellLabel-> + "In[409]:=",ExpressionUUID->"0482454e-7a46-47a1-a981-2b03e3a5820a"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.994074326639216*^9, 3.994074935535688*^9, + 3.99407497466455*^9, 3.9940750193870497`*^9, {3.9940750732233963`*^9, + 3.994075090853217*^9}}, + CellLabel-> + "Out[409]=",ExpressionUUID->"1ed7fc2d-5475-4719-b897-23a712e44396"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "170"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.994073658167858*^9, 3.994073658855419*^9}}, + CellLabel-> + "In[410]:=",ExpressionUUID->"7e1f76b5-da0b-4708-bde6-bea9db2f787f"], + +Cell[BoxData["170"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.99407432665131*^9, 3.994074935546548*^9, + 3.994074974677713*^9, 3.994075019399205*^9, {3.99407507323412*^9, + 3.994075090864901*^9}}, + CellLabel-> + "Out[410]=",ExpressionUUID->"231b5efc-c0ff-44c8-80cd-9f5ce3841156"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel-> + "In[411]:=",ExpressionUUID->"b59b5ec0-bdc8-4f20-8ee1-a8b6af224589"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.994074326662937*^9, 3.994074935557375*^9, + 3.994074974689283*^9, 3.99407501941103*^9, {3.994075073246029*^9, + 3.9940750908767548`*^9}}, + CellLabel-> + "Out[411]=",ExpressionUUID->"bfce32fc-5e05-45d0-ba98-cb8aacbd0357"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel-> + "In[412]:=",ExpressionUUID->"20530379-6c67-4b6d-a3a2-80100049257f"], + +Cell[BoxData["0.5437500000000001`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.994074326674385*^9, 3.994074935568224*^9, + 3.994074974701558*^9, 3.99407501942295*^9, {3.994075073258301*^9, + 3.994075090888695*^9}}, + CellLabel-> + "Out[412]=",ExpressionUUID->"2811e28b-07ed-4573-8619-55ef8fba4b35"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel-> + "In[413]:=",ExpressionUUID->"c131c4ba-350b-4e28-b404-b38b303d2bdb"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.99407432668569*^9, 3.9940749355790033`*^9, + 3.994074974713187*^9, 3.9940750194346647`*^9, {3.994075073269951*^9, + 3.9940750909003353`*^9}}, + CellLabel-> + "Out[413]=",ExpressionUUID->"e7b4dc2b-fe02-46f7-8226-05931a569ef6"] +}, 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[414]:=",ExpressionUUID->"7ccd5104-a703-429c-85c4-472095119179"], + +Cell[BoxData["6.426003577835178`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.994074326696957*^9, 3.9940749355899067`*^9, + 3.994074974724668*^9, 3.994075019446229*^9, {3.994075073281803*^9, + 3.9940750909055967`*^9}}, + CellLabel-> + "Out[414]=",ExpressionUUID->"d45ef454-4988-408a-9c43-f12d9533a1f1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel-> + "In[415]:=",ExpressionUUID->"d84fb6ac-5c42-4ded-b544-a8c4c222399e"], + +Cell[BoxData["4.7806909477779245`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.994074326708106*^9, 3.994074935599874*^9, + 3.9940749747357597`*^9, 3.994075019457683*^9, {3.994075073286825*^9, + 3.994075090919847*^9}}, + CellLabel-> + "Out[415]=",ExpressionUUID->"b36670ac-5411-489e-b5aa-4a880e403306"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.8747255229"}]], "Input", + CellChangeTimes->{3.991799283179735*^9, 3.994073678806656*^9}, + CellLabel-> + "In[416]:=",ExpressionUUID->"2ecbf9f4-05d6-4a3e-9036-ede71c8661a1"], + +Cell[BoxData["0.8747255229`"], "Output", + CellChangeTimes->{ + 3.994074326718845*^9, 3.994074935610774*^9, 3.9940749747456427`*^9, + 3.994075019469336*^9, {3.9940750733015203`*^9, 3.994075090931666*^9}}, + CellLabel-> + "Out[416]=",ExpressionUUID->"efb938d7-4e73-414f-b299-17ae25e63fdd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.3882072479"}]], "Input", + CellChangeTimes->{3.991799280663351*^9, 3.9940736835660563`*^9}, + CellLabel-> + "In[417]:=",ExpressionUUID->"e6a46019-5cb5-415d-bd52-06c6ee550cd5"], + +Cell[BoxData["0.3882072479`"], "Output", + CellChangeTimes->{ + 3.994074326731606*^9, 3.9940749356216*^9, 3.9940749747554703`*^9, + 3.994075019480736*^9, {3.9940750733138313`*^9, 3.9940750909438963`*^9}}, + CellLabel-> + "Out[417]=",ExpressionUUID->"b2e5b6d7-26e6-4ab5-93b4-e436656232bf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel-> + "In[418]:=",ExpressionUUID->"4ef33a45-e772-4713-b351-ea3e169fd068"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.994074326743565*^9, 3.994074935632176*^9, + 3.994074974765235*^9, 3.994075019485297*^9, {3.994075073318596*^9, + 3.994075090955942*^9}}, + CellLabel-> + "Out[418]=",ExpressionUUID->"d8af5bd4-2231-4326-b532-292130c5eddd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel-> + "In[419]:=",ExpressionUUID->"0a8a9ae5-b423-42bd-af89-cb4709c6dbb9"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.994074326755156*^9, 3.994074935643033*^9, + 3.99407497477602*^9, 3.994075019498505*^9, {3.994075073331485*^9, + 3.9940750909684067`*^9}}, + CellLabel-> + "Out[419]=",ExpressionUUID->"2606210e-db88-4da1-836a-498e7b4da9f1"] +}, 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[420]:=",ExpressionUUID->"798d81cf-8599-4a8c-9c09-952b3eedf2c9"], + +Cell[BoxData["2.2478963955971953`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.9940743267687807`*^9, 3.994074935653433*^9, + 3.994074974785841*^9, 3.994075019509776*^9, {3.994075073341671*^9, + 3.994075090978916*^9}}, + CellLabel-> + "Out[420]=",ExpressionUUID->"448e88d2-7fc6-4699-8327-90cd3e45a5b5"] +}, 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[421]:=",ExpressionUUID->"d28a4f17-6e1f-44e0-8aeb-0dadd20f46e9"], + +Cell[BoxData["1.4243583722932822`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.994074326780384*^9, 3.994074935663515*^9, + 3.994074974795456*^9, 3.994075019519595*^9, {3.994075073351719*^9, + 3.99407509098914*^9}}, + CellLabel-> + "Out[421]=",ExpressionUUID->"01e30b20-77a9-4106-acd1-f09b0656e464"] +}, 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[422]:=",ExpressionUUID->"c38b68b1-105e-4887-ac1a-9ca660ce7261"], + +Cell[BoxData["0.4215025991580821`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.994074326791608*^9, 3.994074935674151*^9, + 3.994074974805192*^9, 3.9940750195300922`*^9, {3.99407507336273*^9, + 3.994075090999715*^9}}, + CellLabel-> + "Out[422]=",ExpressionUUID->"e9aab4fb-febd-46e7-9c91-d99929afee2f"] +}, 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[423]:=",ExpressionUUID->"288b92fe-a08b-4910-9c73-2479be62d5f4"], + +Cell[BoxData[ + RowBox[{"-", "0.08696983109232953`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.994074326803142*^9, 3.994074935687113*^9, + 3.994074974815411*^9, 3.994075019541635*^9, {3.994075073373554*^9, + 3.994075091010479*^9}}, + CellLabel-> + "Out[423]=",ExpressionUUID->"3e994045-7be0-44c7-b7b0-b5ea746b9807"] +}, 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[424]:=",ExpressionUUID->"7deb9773-c069-4aa9-8bf5-d3e375b009af"], + +Cell[BoxData[ + RowBox[{"-", "0.5569156814457635`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.994074326815329*^9, 3.994074935701499*^9, + 3.9940749748259974`*^9, 3.9940750195530157`*^9, {3.994075073384471*^9, + 3.9940750910236893`*^9}}, + CellLabel-> + "Out[424]=",ExpressionUUID->"9cfe3724-4ddd-4d09-bfff-ef96385f8adc"] +}, 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[425]:=",ExpressionUUID->"ff528133-b2b2-4632-a8b1-e3cc7c87bf02"], + +Cell[BoxData["0.7095150675393332`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.9940743268278837`*^9, 3.994074935715124*^9, + 3.994074974837141*^9, 3.994075019564198*^9, {3.9940750733955727`*^9, + 3.994075091035767*^9}}, + CellLabel-> + "Out[425]=",ExpressionUUID->"426a65d0-5ac1-42a0-83ba-77b04562f15e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel-> + "In[426]:=",ExpressionUUID->"c76593e4-5022-433f-bc20-c104d8c438c6"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.994074326840913*^9, 3.994074935728681*^9, + 3.994074974847731*^9, 3.994075019576145*^9, {3.994075073406547*^9, + 3.9940750910471153`*^9}}, + CellLabel-> + "Out[426]=",ExpressionUUID->"8d293245-efa7-4d05-80bc-d82b84f5d512"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel-> + "In[427]:=",ExpressionUUID->"577be7ba-83c4-4f8c-b77c-efd450a50206"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.994074326854053*^9, 3.99407493574161*^9, + 3.994074974858211*^9, 3.994075019594636*^9, {3.994075073417151*^9, + 3.9940750910581427`*^9}}, + CellLabel-> + "Out[427]=",ExpressionUUID->"504fa325-c1cf-49c7-9d67-59287b96c20b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel-> + "In[428]:=",ExpressionUUID->"db4b09ee-1b65-4f02-aa32-ae3647575031"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.994074326866469*^9, 3.994074935754272*^9, + 3.994074974869028*^9, 3.994075019614243*^9, {3.994075073428639*^9, + 3.994075091069083*^9}}, + CellLabel-> + "Out[428]=",ExpressionUUID->"f6341bac-028e-4117-a388-942d499e30b8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel-> + "In[429]:=",ExpressionUUID->"36e5c699-a54a-4843-8823-32fbba51e948"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.9940743268793383`*^9, 3.994074935766993*^9, + 3.994074974879899*^9, 3.994075019631719*^9, {3.9940750734398613`*^9, + 3.994075091080567*^9}}, + CellLabel-> + "Out[429]=",ExpressionUUID->"3b9f8bfd-b9b1-4cf7-8d29-889e8ee20440"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel-> + "In[430]:=",ExpressionUUID->"6c7e19fa-dac6-4294-a9da-c64cf80c099c"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.994074326891512*^9, 3.994074935779024*^9, + 3.994074974889886*^9, 3.99407501964223*^9, {3.994075073449995*^9, + 3.994075091090703*^9}}, + CellLabel-> + "Out[430]=",ExpressionUUID->"9a6e3eca-8464-45d5-b6c0-ea2a6c019f4b"] +}, 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.994073690740699*^9, 3.994073690862359*^9}}, + CellLabel-> + "In[431]:=",ExpressionUUID->"c2ea0e2c-bdb3-49a4-b5fd-e06b5d537674"], + +Cell[BoxData["66"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, 3.994074326904242*^9, 3.994074935791787*^9, + 3.9940749749005938`*^9, 3.994075019653521*^9, {3.994075073461108*^9, + 3.994075091102222*^9}}, + CellLabel-> + "Out[431]=",ExpressionUUID->"ab9e21c5-3598-41d6-b7dc-e4731c13abe4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, {3.994073693453496*^9, 3.9940736957455587`*^9}}, + CellLabel-> + "In[432]:=",ExpressionUUID->"451bc2a2-746f-407f-ab4a-b355e77abe9b"], + +Cell[BoxData["28"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.994074326916279*^9, 3.9940749358034363`*^9, + 3.99407497491004*^9, 3.994075019663575*^9, {3.994075073471445*^9, + 3.994075091112747*^9}}, + CellLabel-> + "Out[432]=",ExpressionUUID->"9719b37f-2430-441b-9ac9-e04ef62a3385"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel-> + "In[433]:=",ExpressionUUID->"f5226187-30d5-47f5-9822-c9e8fcd842dd"], + +Cell[BoxData["70"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.994074326928279*^9, 3.994074935814618*^9, + 3.994074974919529*^9, 3.994075019673669*^9, {3.9940750734815598`*^9, + 3.9940750911232967`*^9}}, + CellLabel-> + "Out[433]=",ExpressionUUID->"5be17cba-0629-4c94-b2de-e158b43ba315"] +}, 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[434]:=",ExpressionUUID->"ae36c648-63dc-4c97-8921-aacc9a1502d7"], + +Cell[BoxData["0.1087764705882353`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9940743269397917`*^9, 3.994074935826476*^9, + 3.994074974929028*^9, 3.994075019683881*^9, {3.994075073492182*^9, + 3.994075091133902*^9}}, + CellLabel-> + "Out[434]=",ExpressionUUID->"3d7f70c5-5f1a-40a7-a2e3-f61b09b7c563"] +}, 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[435]:=",ExpressionUUID->"1c8c0d19-1c22-468b-b120-8bd73a3590bf"], + +Cell[BoxData[ + RowBox[{"-", "2.5658588235294117`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.994074326951318*^9, 3.9940749358379097`*^9, + 3.9940749749388123`*^9, 3.994075019694408*^9, {3.994075073502742*^9, + 3.9940750911440773`*^9}}, + CellLabel-> + "Out[435]=",ExpressionUUID->"7dd762ff-da61-4554-aa40-fdcb5de59ac9"] +}, 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[436]:=",ExpressionUUID->"47c0c7b8-007c-4975-a6a2-6b6f0fec59c0"], + +Cell[BoxData["17.474387700041003`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.994074326963644*^9, 3.99407493585293*^9, + 3.994074974948763*^9, 3.9940750197049227`*^9, {3.994075073513197*^9, + 3.9940750911556253`*^9}}, + CellLabel-> + "Out[436]=",ExpressionUUID->"80421a31-fa4c-4cc0-a7aa-24a2f7c26657"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel-> + "In[437]:=",ExpressionUUID->"c810247c-73c8-4319-8fe6-4d16224b180a"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.994074326975409*^9, 3.994074935865913*^9, + 3.994074974958894*^9, 3.9940750197157593`*^9, {3.994075073523876*^9, + 3.99407509116647*^9}}, + CellLabel-> + "Out[437]=",ExpressionUUID->"d4478ff5-8048-44e0-b1e0-74303ae3682e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "1.895"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { + 3.9940737081112833`*^9, 3.994073709172043*^9}}, + CellLabel-> + "In[438]:=",ExpressionUUID->"e8439067-3845-4d86-b0de-851c2f5f29d9"], + +Cell[BoxData["1.895`"], "Output", + CellChangeTimes->{ + 3.99407432698682*^9, 3.994074935879013*^9, 3.994074974974915*^9, + 3.994075019726281*^9, {3.994075073534071*^9, 3.994075091176951*^9}}, + CellLabel-> + "Out[438]=",ExpressionUUID->"963196ec-2acd-4451-9d10-777b378f56b8"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel-> + "In[439]:=",ExpressionUUID->"0ff2aa6d-ae8f-4495-8d98-c7fdb2b39241"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.785"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.994073711335288*^9, 3.994073712564888*^9}}, + CellLabel-> + "In[440]:=",ExpressionUUID->"2f03b11b-316f-4525-8cf1-d218b17ee3a9"], + +Cell[BoxData["0.785`"], "Output", + CellChangeTimes->{ + 3.994074327001001*^9, 3.994074935894207*^9, 3.994074974988394*^9, + 3.9940750197399607`*^9, {3.994075073548934*^9, 3.994075091190888*^9}}, + CellLabel-> + "Out[440]=",ExpressionUUID->"d6d63f32-4b97-409b-9c0e-6499ffa93417"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel-> + "In[441]:=",ExpressionUUID->"74301e05-69cc-480d-934c-a1b00099d8bc"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "2.605"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.9940737150021257`*^9, 3.994073716213628*^9}}, + CellLabel-> + "In[442]:=",ExpressionUUID->"ac3a0401-11e4-4255-90e3-a666a2b3e134"], + +Cell[BoxData["2.605`"], "Output", + CellChangeTimes->{ + 3.99407432701412*^9, 3.994074935907247*^9, 3.994074975000514*^9, + 3.994075019753892*^9, {3.994075073561831*^9, 3.994075091203961*^9}}, + CellLabel-> + "Out[442]=",ExpressionUUID->"70bb58d4-3fc8-4849-b431-2decee6fbd82"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel-> + "In[443]:=",ExpressionUUID->"aca2a824-518f-4e0c-9dc3-7c4b1cbbab9b"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.125"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, {3.994073720159833*^9, 3.9940737213308268`*^9}}, + CellLabel-> + "In[444]:=",ExpressionUUID->"2cdc5ad7-2cf7-490b-a717-99d56799cda0"], + +Cell[BoxData["1.125`"], "Output", + CellChangeTimes->{ + 3.9940743270271187`*^9, 3.994074935920094*^9, 3.994074975012611*^9, + 3.994075019766945*^9, {3.99407507357449*^9, 3.994075091216796*^9}}, + CellLabel-> + "Out[444]=",ExpressionUUID->"0fc64376-bdbf-4291-b37e-55200f87693a"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel-> + "In[445]:=",ExpressionUUID->"cfe644e6-6a71-4395-a7c6-8a24e6df830b"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.145"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, {3.9940737243709307`*^9, + 3.9940737264630413`*^9}}, + CellLabel-> + "In[446]:=",ExpressionUUID->"eb3757d9-7ff9-4674-8ef6-4c8a7dc320a2"], + +Cell[BoxData["1.145`"], "Output", + CellChangeTimes->{ + 3.9940743270398684`*^9, 3.994074935932911*^9, 3.994074975024604*^9, + 3.994075019782*^9, {3.994075073587862*^9, 3.9940750912294607`*^9}}, + CellLabel-> + "Out[446]=",ExpressionUUID->"1f65794f-2b1c-4452-aab4-7b85dcd256bf"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel-> + "In[447]:=",ExpressionUUID->"ae670d93-2719-4f7e-8005-30cd2720262b"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.565"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.9940737287627993`*^9, + 3.994073731586865*^9}}, + CellLabel-> + "In[448]:=",ExpressionUUID->"42992945-6511-420b-aeb1-baab39cc276b"], + +Cell[BoxData["0.565`"], "Output", + CellChangeTimes->{ + 3.994074327052676*^9, 3.994074935945746*^9, 3.994074975036669*^9, + 3.994075019795862*^9, {3.994075073601301*^9, 3.9940750912417994`*^9}}, + CellLabel-> + "Out[448]=",ExpressionUUID->"339d80cd-fb9a-4ba1-bc47-63f890e7eedb"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel-> + "In[449]:=",ExpressionUUID->"30d9c5d5-74cd-42c0-87fa-52be7a0496a6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "1.5"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.994073736277706*^9, + 3.994073737300967*^9}}, + CellLabel-> + "In[450]:=",ExpressionUUID->"b7618fd1-2275-4c4d-8608-c841f952eb45"], + +Cell[BoxData["1.5`"], "Output", + CellChangeTimes->{ + 3.994074327065536*^9, 3.9940749359585743`*^9, 3.994074975048807*^9, + 3.9940750198098516`*^9, {3.9940750736145077`*^9, 3.994075091254464*^9}}, + CellLabel-> + "Out[450]=",ExpressionUUID->"958ec7a0-713c-415b-a96e-0c6e2c641577"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel-> + "In[451]:=",ExpressionUUID->"483ac3d1-0043-4c48-962e-dc44f7738e5e"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "0.635"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, {3.994073740255535*^9, 3.994073742830049*^9}}, + CellLabel-> + "In[452]:=",ExpressionUUID->"6d50d0b3-d04f-4154-b54d-ecb80531dd64"], + +Cell[BoxData["0.635`"], "Output", + CellChangeTimes->{ + 3.99407432707825*^9, 3.994074935971406*^9, 3.994074975061311*^9, + 3.994075019822795*^9, {3.994075073627393*^9, 3.994075091268227*^9}}, + CellLabel-> + "Out[452]=",ExpressionUUID->"4c03725b-01c1-44e2-bea9-12329b1a9c88"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel-> + "In[453]:=",ExpressionUUID->"cce1f09e-472d-43a8-b22a-f75983ffc02b"], + +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[454]:=",ExpressionUUID->"e9fe2a31-f845-48e7-a025-f041278678bb"], + +Cell[BoxData["0.12734722137174234`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.9940743271585913`*^9, 3.994074936065404*^9, + 3.9940749751004868`*^9, 3.9940750198601313`*^9, {3.9940750736645*^9, + 3.994075091306961*^9}}, + CellLabel-> + "Out[454]=",ExpressionUUID->"8587f47c-9752-4ad1-8635-562ee6f9d838"] +}, 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[455]:=",ExpressionUUID->"bed3b2d2-7173-4716-8631-10ab9d971dba"], + +Cell[BoxData["7.503764283698204`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9940743271979237`*^9, 3.994074936098249*^9, + 3.994074975128014*^9, 3.994075019886159*^9, {3.994075073691079*^9, + 3.994075091332656*^9}}, + CellLabel-> + "Out[455]=",ExpressionUUID->"1f015ce4-62ae-4fca-9ffc-65f0d23e6c1e"] +}, 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[456]:=",ExpressionUUID->"3d1eee7d-aed8-404e-842a-b2d39195cb1c"], + +Cell[BoxData[ + RowBox[{"-", "14.220629552114458`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.9940743272387447`*^9, 3.9940749361294937`*^9, + 3.994074975156514*^9, 3.994075019911666*^9, {3.9940750737180433`*^9, + 3.994075091358534*^9}}, + CellLabel-> + "Out[456]=",ExpressionUUID->"6e9b5e38-1d21-4cfb-88f4-f67d2766736f"] +}, 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[457]:=",ExpressionUUID->"57977419-3181-4bd7-b046-b5348ce6379e"], + +Cell[BoxData[ + RowBox[{"-", "18.05754390959481`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.994074327278555*^9, 3.9940749361661787`*^9, + 3.9940749751890287`*^9, 3.994075019948382*^9, {3.994075073748582*^9, + 3.99407509139049*^9}}, + CellLabel-> + "Out[457]=",ExpressionUUID->"34c30351-3f9e-4608-9c56-249e5c22b8a4"] +}, 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[458]:=",ExpressionUUID->"4a92750a-5025-4c91-9ece-3360c1b46e63"], + +Cell[BoxData[ + RowBox[{"-", "51.76635903245878`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.994074327318758*^9, 3.9940749362040663`*^9, + 3.9940749752210827`*^9, 3.994075019983523*^9, {3.9940750737782516`*^9, + 3.994075091423628*^9}}, + CellLabel-> + "Out[458]=",ExpressionUUID->"09910f10-5c1d-409b-9a47-88b772e540fc"] +}, 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[459]:=",ExpressionUUID->"2d9d5c62-e6c7-4f94-8992-fb01069f2bc8"], + +Cell[BoxData[ + RowBox[{"-", "131.16526179683018`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.994074327362462*^9, 3.994074936248407*^9, + 3.99407497525825*^9, 3.994075020024899*^9, {3.994075073816177*^9, + 3.9940750914627743`*^9}}, + CellLabel-> + "Out[459]=",ExpressionUUID->"af329f52-9f93-4724-945b-860188860e51"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel-> + "In[460]:=",ExpressionUUID->"577a6f40-f17a-46a7-86e4-31839bd7c63f"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.9940743273758507`*^9, 3.994074936262808*^9, + 3.994074975269576*^9, 3.99407502003885*^9, {3.994075073828107*^9, + 3.994075091476185*^9}}, + CellLabel-> + "Out[460]=",ExpressionUUID->"0aa2cc7d-063d-42b7-aed0-1aca1ef94296"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel-> + "In[461]:=",ExpressionUUID->"bddadc26-aed4-4de8-861b-3eed221711a3"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.994074327386962*^9, 3.9940749362749443`*^9, + 3.99407497527983*^9, 3.994075020050624*^9, {3.994075073838533*^9, + 3.994075091486505*^9}}, + CellLabel-> + "Out[461]=",ExpressionUUID->"a3f94d76-478b-4242-a14d-f9cce6c9dc13"] +}, 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[462]:=",ExpressionUUID->"7758746a-3303-4080-8034-003e81e72aab"], + +Cell[BoxData["102.57012833062927`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.9940743273966637`*^9, 3.994074936286751*^9, + 3.994074975289721*^9, 3.994075020061038*^9, {3.9940750738489656`*^9, + 3.994075091497402*^9}}, + CellLabel-> + "Out[462]=",ExpressionUUID->"c5fb0dbf-94ba-4aca-aa17-6adcdae2a7f3"] +}, 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[463]:=",ExpressionUUID->"864b711b-7ed6-4139-9bf5-17283229ae04"], + +Cell[BoxData[ + RowBox[{"-", "89.85372860437164`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.994074327406303*^9, 3.9940749362972116`*^9, + 3.994074975299696*^9, 3.994075020070904*^9, {3.994075073859618*^9, + 3.994075091508032*^9}}, + CellLabel-> + "Out[463]=",ExpressionUUID->"c13a7a11-cf1a-49d1-bf4f-ff7375eeeab0"] +}, 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[464]:=",ExpressionUUID->"0cefa213-96fe-4065-8dbb-30c6a021066f"], + +Cell[BoxData["106.05157029710364`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9940743274159946`*^9, 3.994074936339744*^9, + 3.99407497530958*^9, 3.994075020080964*^9, {3.994075073870014*^9, + 3.994075091518471*^9}}, + CellLabel-> + "Out[464]=",ExpressionUUID->"59e314fd-9410-48a9-aeb6-18fc922cea3b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel-> + "In[465]:=",ExpressionUUID->"0be320fe-f46c-457e-b8fd-af97c3546bdc"], + +Cell[BoxData["0.4215025991580821`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.9940743274252653`*^9, 3.994074936349539*^9, + 3.994074975319766*^9, 3.99407502009256*^9, {3.994075073880959*^9, + 3.99407509152868*^9}}, + CellLabel-> + "Out[465]=",ExpressionUUID->"6edda228-88ac-4b6c-9766-ae1a82bff058"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel-> + "In[466]:=",ExpressionUUID->"025364aa-405c-4d73-b1ea-94437671667d"], + +Cell[BoxData[ + RowBox[{"-", "0.08696983109232953`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.9940749363615837`*^9, 3.994074975323977*^9, + 3.994075020102562*^9, {3.994075073891796*^9, 3.994075091539506*^9}}, + CellLabel-> + "Out[466]=",ExpressionUUID->"a0f20734-4a80-499a-9b52-5e08ea865325"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel-> + "In[467]:=",ExpressionUUID->"c370832f-4e6d-42fa-bc49-5128ff0384ba"], + +Cell[BoxData[ + RowBox[{"-", "0.5569156814457635`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.994074936371666*^9, 3.994074975333539*^9, + 3.99407502011357*^9, {3.994075073902575*^9, 3.994075091549716*^9}}, + CellLabel-> + "Out[467]=",ExpressionUUID->"d04b1e2e-2127-4cc2-804b-b6b3d0e428f7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel-> + "In[468]:=",ExpressionUUID->"91986df6-265b-411a-9ec2-1af16f04a5e4"], + +Cell[BoxData["0.7095150675393332`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.994074936381706*^9, 3.994074975343092*^9, + 3.994075020123022*^9, {3.994075073912849*^9, 3.99407509155998*^9}}, + CellLabel-> + "Out[468]=",ExpressionUUID->"ff17035c-412b-4bf0-ad41-0ae59cb3ca9f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel-> + "In[469]:=",ExpressionUUID->"47c69875-f9e7-4088-bf36-8b70746ddcc4"], + +Cell[BoxData["2.2478963955971953`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.994074936391926*^9, 3.994074975352632*^9, + 3.99407502013336*^9, {3.994075073923398*^9, 3.994075091570552*^9}}, + CellLabel-> + "Out[469]=",ExpressionUUID->"ab625dd8-3903-4fba-8bfe-51c742eb179f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel-> + "In[470]:=",ExpressionUUID->"74c384a6-84a4-4c32-a653-d2988bb330d5"], + +Cell[BoxData["1.4243583722932822`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.994074936401989*^9, 3.994074975362446*^9, + 3.9940750201447487`*^9, {3.9940750739335833`*^9, 3.994075091580728*^9}}, + CellLabel-> + "Out[470]=",ExpressionUUID->"734fe929-6a54-4311-8a69-b87d23b704a1"] +}, 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[471]:=",ExpressionUUID->"bbd3ba20-daed-4e05-8619-384f2129461e"], + +Cell[BoxData[ + RowBox[{"-", "33.35096235519822`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.994074936412284*^9, 3.994074975373137*^9, + 3.994075020154063*^9, {3.994075073943824*^9, 3.99407509159135*^9}}, + CellLabel-> + "Out[471]=",ExpressionUUID->"67c975c7-010e-4036-a9ec-de572d0d96e7"] +}, 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[472]:=",ExpressionUUID->"7826628e-c8b8-49e1-b5c6-a44bee3e6416"], + +Cell[BoxData[ + RowBox[{"-", "6.430095836913352`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.994074936422553*^9, 3.994074975386326*^9, + 3.9940750201636887`*^9, {3.994075073954281*^9, 3.9940750916019077`*^9}}, + CellLabel-> + "Out[472]=",ExpressionUUID->"3a4d0d17-66a7-46a9-a59e-8cf04f698be0"] +}, 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[473]:=",ExpressionUUID->"463277f7-b347-495e-8624-e148927c8041"], + +Cell[BoxData["69.21916597543105`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.994074936433895*^9, 3.994074975398871*^9, + 3.994075020173421*^9, {3.994075073964881*^9, 3.994075091612443*^9}}, + CellLabel-> + "Out[473]=",ExpressionUUID->"c39c7495-bff7-4cb5-9bcc-5f2e293cd72d"] +}, 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[474]:=",ExpressionUUID->"eee689fc-f105-4d18-89f0-7c11cf6f99fe"], + +Cell[BoxData[ + RowBox[{"-", "89.85372860437164`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.9940749364442453`*^9, 3.994074975409512*^9, + 3.9940750201838827`*^9, {3.994075073975268*^9, 3.994075091623101*^9}}, + CellLabel-> + "Out[474]=",ExpressionUUID->"26e40046-7615-4c4a-a431-8166fbfa44ab"] +}, 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[475]:=",ExpressionUUID->"406780a6-3bee-4562-b12c-fd4639943008"], + +Cell[BoxData["99.62147446019029`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.9940749364549513`*^9, 3.9940749754197397`*^9, + 3.99407502019348*^9, {3.994075073985984*^9, 3.994075091633762*^9}}, + CellLabel-> + "Out[475]=",ExpressionUUID->"1380be76-e3c2-4286-a595-7c0c0ed65cbe"] +}, 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[476]:=",ExpressionUUID->"1dc5648e-1b63-4675-a8c5-15d0b057772e"], + +Cell[BoxData["40.3202486570226`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.994074936466222*^9, 3.994074975429769*^9, + 3.9940750202031527`*^9, {3.99407507399641*^9, 3.994075091644145*^9}}, + CellLabel-> + "Out[476]=",ExpressionUUID->"8edd87a3-b0a5-477f-a8a0-f698b932875f"] +}, 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[477]:=",ExpressionUUID->"049e63fe-e62f-491f-a2e5-08cb3d411df2"], + +Cell[BoxData["624.5259763904654`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.994074936476499*^9, 3.994074975439941*^9, + 3.994075020213862*^9, {3.994075074006929*^9, 3.994075091654208*^9}}, + CellLabel-> + "Out[477]=",ExpressionUUID->"ee7c412f-1624-4c5c-89de-5bafa33fd0fc"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"f1", "=", "0.466369126"}]], "Input", + CellChangeTimes->{3.9918488488187084`*^9, 3.99423545423339*^9, + 3.994235776086232*^9},ExpressionUUID->"bdefbecf-0aaa-4a45-a861-\ 406cf54e52d1"], Cell[BoxData[""], "Input", @@ -30,10 +4929,9 @@ Cell[BoxData[""], "Input", 7bcc4af89c62"], Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", - CellChangeTimes->{ - 3.9918488509977226`*^9},ExpressionUUID->"45ed831b-459a-9a41-990f-\ -c079ad464f5d"], + RowBox[{"f2", "=", "0.1888262039"}]], "Input", + CellChangeTimes->{3.9918488509977226`*^9, + 3.99423545860105*^9},ExpressionUUID->"45ed831b-459a-9a41-990f-c079ad464f5d"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848851636154*^9, @@ -2844,9 +7742,72 @@ Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", - RowBox[{"{", "}"}], "]"}]}]], "Input", - CellChangeTimes->{{3.991799458254999*^9, - 3.9917994623413925`*^9}},ExpressionUUID->"0f83f761-b16d-5343-987d-\ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.005449"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.016155"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.026309"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.035566"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.043662"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.050365"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.05556"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.059166"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.061228"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.061803"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.061061"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.059155"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.056323"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.05275"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.048682"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.044291"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.039784"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.035286"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.030946"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.026832"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.023034"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.01957"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.016479"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.013745"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.011373"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.009328"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.007596"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.006134"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.004922"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.003918"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.003101"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.994235599272483*^9},ExpressionUUID->"0f83f761-b16d-5343-987d-\ 511095eaf120"], Cell[BoxData[ @@ -9381,13 +14342,16 @@ Cell[BoxData["0.08155763943441016`"], "Output", CellChangeTimes->{3.9913335366395893`*^9}, CellLabel-> "Out[229]=",ExpressionUUID->"3737ba01-5151-874d-9846-1c8b07e42d7a"] -}, Open ]] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input",ExpressionUUID->"2809d080-4c9b-47b9-8022-1a475fefd15e"] }, -WindowSize->{718.5, 729.75}, -WindowMargins->{{0, Automatic}, {Automatic, 0}}, +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)", +Magnification:>1.4 Inherited, +FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", StyleDefinitions->"Default.nb", ExpressionUUID->"5cbbdd72-8791-4241-8a7a-ad89ed63e6b0" ] @@ -9402,368 +14366,623 @@ 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, 453, 8, 51, "Input",ExpressionUUID->"faf503b8-bf82-4409-955e-15ee2a94c2df"], +Cell[1032, 32, 302, 6, 58, "Output",ExpressionUUID->"7dcd0da0-ce28-451b-a6f6-179b3ac96f74"] }, 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[1371, 43, 255, 5, 51, "Input",ExpressionUUID->"0482454e-7a46-47a1-a981-2b03e3a5820a"], +Cell[1629, 50, 305, 6, 58, "Output",ExpressionUUID->"1ed7fc2d-5475-4719-b897-23a712e44396"] }, 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[1971, 61, 226, 5, 51, "Input",ExpressionUUID->"7e1f76b5-da0b-4708-bde6-bea9db2f787f"], +Cell[2200, 68, 300, 6, 58, "Output",ExpressionUUID->"231b5efc-c0ff-44c8-80cd-9f5ce3841156"] }, 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[2537, 79, 180, 4, 51, "Input",ExpressionUUID->"b59b5ec0-bdc8-4f20-8ee1-a8b6af224589"], +Cell[2720, 85, 303, 6, 58, "Output",ExpressionUUID->"bfce32fc-5e05-45d0-ba98-cb8aacbd0357"] }, 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[3060, 96, 262, 8, 74, "Input",ExpressionUUID->"20530379-6c67-4b6d-a3a2-80100049257f"], +Cell[3325, 106, 317, 6, 58, "Output",ExpressionUUID->"2811e28b-07ed-4573-8619-55ef8fba4b35"] }, 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[3679, 117, 136, 3, 51, "Input",ExpressionUUID->"c131c4ba-350b-4e28-b404-b38b303d2bdb"], +Cell[3818, 122, 309, 6, 58, "Output",ExpressionUUID->"e7b4dc2b-fe02-46f7-8226-05931a569ef6"] }, 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[4164, 133, 281, 7, 51, "Input",ExpressionUUID->"7ccd5104-a703-429c-85c4-472095119179"], +Cell[4448, 142, 321, 6, 58, "Output",ExpressionUUID->"d45ef454-4988-408a-9c43-f12d9533a1f1"] }, 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[4806, 153, 262, 8, 51, "Input",ExpressionUUID->"d84fb6ac-5c42-4ded-b544-a8c4c222399e"], +Cell[5071, 163, 320, 6, 58, "Output",ExpressionUUID->"b36670ac-5411-489e-b5aa-4a880e403306"] }, 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[5428, 174, 208, 4, 51, "Input",ExpressionUUID->"2ecbf9f4-05d6-4a3e-9036-ede71c8661a1"], +Cell[5639, 180, 288, 5, 58, "Output",ExpressionUUID->"efb938d7-4e73-414f-b299-17ae25e63fdd"] }, 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[5964, 190, 210, 4, 51, "Input",ExpressionUUID->"e6a46019-5cb5-415d-bd52-06c6ee550cd5"], +Cell[6177, 196, 288, 5, 58, "Output",ExpressionUUID->"b2e5b6d7-26e6-4ab5-93b4-e436656232bf"] }, 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[6502, 206, 133, 3, 51, "Input",ExpressionUUID->"4ef33a45-e772-4713-b351-ea3e169fd068"], +Cell[6638, 211, 300, 6, 58, "Output",ExpressionUUID->"d8af5bd4-2231-4326-b532-292130c5eddd"] }, 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[6975, 222, 133, 3, 51, "Input",ExpressionUUID->"0a8a9ae5-b423-42bd-af89-cb4709c6dbb9"], +Cell[7111, 227, 301, 6, 58, "Output",ExpressionUUID->"2606210e-db88-4da1-836a-498e7b4da9f1"] }, 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[7449, 238, 561, 20, 140, "Input",ExpressionUUID->"798d81cf-8599-4a8c-9c09-952b3eedf2c9"], +Cell[8013, 260, 320, 6, 58, "Output",ExpressionUUID->"448e88d2-7fc6-4699-8327-90cd3e45a5b5"] }, 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[8370, 271, 561, 20, 140, "Input",ExpressionUUID->"d28a4f17-6e1f-44e0-8aeb-0dadd20f46e9"], +Cell[8934, 293, 317, 6, 58, "Output",ExpressionUUID->"01e30b20-77a9-4106-acd1-f09b0656e464"] }, 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[9288, 304, 1592, 51, 190, "Input",ExpressionUUID->"c38b68b1-105e-4887-ac1a-9ca660ce7261"], +Cell[10883, 357, 317, 6, 58, "Output",ExpressionUUID->"e9aab4fb-febd-46e7-9c91-d99929afee2f"] }, 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[11237, 368, 1426, 47, 190, "Input",ExpressionUUID->"288b92fe-a08b-4910-9c73-2479be62d5f4"], +Cell[12666, 417, 334, 7, 58, "Output",ExpressionUUID->"3e994045-7be0-44c7-b7b0-b5ea746b9807"] }, 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[13037, 429, 1426, 47, 190, "Input",ExpressionUUID->"7deb9773-c069-4aa9-8bf5-d3e375b009af"], +Cell[14466, 478, 341, 7, 58, "Output",ExpressionUUID->"9cfe3724-4ddd-4d09-bfff-ef96385f8adc"] }, 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[14844, 490, 1496, 49, 141, "Input",ExpressionUUID->"ff528133-b2b2-4632-a8b1-e3cc7c87bf02"], +Cell[16343, 541, 318, 6, 58, "Output",ExpressionUUID->"426a65d0-5ac1-42a0-83ba-77b04562f15e"] }, 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[16698, 552, 135, 3, 51, "Input",ExpressionUUID->"c76593e4-5022-433f-bc20-c104d8c438c6"], +Cell[16836, 557, 302, 6, 58, "Output",ExpressionUUID->"8d293245-efa7-4d05-80bc-d82b84f5d512"] }, 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[17175, 568, 137, 3, 51, "Input",ExpressionUUID->"577be7ba-83c4-4f8c-b77c-efd450a50206"], +Cell[17315, 573, 303, 6, 58, "Output",ExpressionUUID->"504fa325-c1cf-49c7-9d67-59287b96c20b"] }, 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[17655, 584, 138, 3, 51, "Input",ExpressionUUID->"db4b09ee-1b65-4f02-aa32-ae3647575031"], +Cell[17796, 589, 304, 6, 58, "Output",ExpressionUUID->"f6341bac-028e-4117-a388-942d499e30b8"] }, 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[18137, 600, 223, 5, 51, "Input",ExpressionUUID->"36e5c699-a54a-4843-8823-32fbba51e948"], +Cell[18363, 607, 321, 7, 58, "Output",ExpressionUUID->"3b9f8bfd-b9b1-4cf7-8d29-889e8ee20440"] }, 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[18721, 619, 138, 3, 51, "Input",ExpressionUUID->"6c7e19fa-dac6-4294-a9da-c64cf80c099c"], +Cell[18862, 624, 303, 6, 58, "Output",ExpressionUUID->"9a6e3eca-8464-45d5-b6c0-ea2a6c019f4b"] }, 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[19202, 635, 326, 6, 51, "Input",ExpressionUUID->"c2ea0e2c-bdb3-49a4-b5fd-e06b5d537674"], +Cell[19531, 643, 303, 6, 58, "Output",ExpressionUUID->"ab9e21c5-3598-41d6-b7dc-e4731c13abe4"] }, 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[19871, 654, 302, 6, 51, "Input",ExpressionUUID->"451bc2a2-746f-407f-ab4a-b355e77abe9b"], +Cell[20176, 662, 302, 6, 58, "Output",ExpressionUUID->"9719b37f-2430-441b-9ac9-e04ef62a3385"] }, 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[20515, 673, 223, 5, 51, "Input",ExpressionUUID->"f5226187-30d5-47f5-9822-c9e8fcd842dd"], +Cell[20741, 680, 303, 6, 58, "Output",ExpressionUUID->"5be17cba-0629-4c94-b2de-e158b43ba315"] }, 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[21081, 691, 354, 11, 74, "Input",ExpressionUUID->"ae36c648-63dc-4c97-8921-aacc9a1502d7"], +Cell[21438, 704, 320, 6, 58, "Output",ExpressionUUID->"3d7f70c5-5f1a-40a7-a2e3-f61b09b7c563"] }, 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[21795, 715, 354, 11, 74, "Input",ExpressionUUID->"1c8c0d19-1c22-468b-b120-8bd73a3590bf"], +Cell[22152, 728, 341, 7, 58, "Output",ExpressionUUID->"7dd762ff-da61-4554-aa40-fdcb5de59ac9"] }, 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[22530, 740, 998, 27, 142, "Input",ExpressionUUID->"47c0c7b8-007c-4975-a6a2-6b6f0fec59c0"], +Cell[23531, 769, 321, 6, 58, "Output",ExpressionUUID->"80421a31-fa4c-4cc0-a7aa-24a2f7c26657"] }, 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[23889, 780, 203, 4, 51, "Input",ExpressionUUID->"c810247c-73c8-4319-8fe6-4d16224b180a"], +Cell[24095, 786, 301, 6, 58, "Output",ExpressionUUID->"d4478ff5-8048-44e0-b1e0-74303ae3682e"] }, 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[24433, 797, 333, 6, 51, "Input",ExpressionUUID->"e8439067-3845-4d86-b0de-851c2f5f29d9"], +Cell[24769, 805, 276, 5, 58, "Output",ExpressionUUID->"963196ec-2acd-4451-9d10-777b378f56b8"] +}, Open ]], +Cell[25060, 813, 177, 3, 51, "Input",ExpressionUUID->"0ff2aa6d-ae8f-4495-8d98-c7fdb2b39241"], +Cell[CellGroupData[{ +Cell[25262, 820, 331, 6, 51, "Input",ExpressionUUID->"2f03b11b-316f-4525-8cf1-d218b17ee3a9"], +Cell[25596, 828, 279, 5, 58, "Output",ExpressionUUID->"d6d63f32-4b97-409b-9c0e-6499ffa93417"] +}, Open ]], +Cell[25890, 836, 177, 3, 51, "Input",ExpressionUUID->"74301e05-69cc-480d-934c-a1b00099d8bc"], +Cell[CellGroupData[{ +Cell[26092, 843, 334, 6, 51, "Input",ExpressionUUID->"ac3a0401-11e4-4255-90e3-a666a2b3e134"], +Cell[26429, 851, 276, 5, 58, "Output",ExpressionUUID->"70bb58d4-3fc8-4849-b431-2decee6fbd82"] +}, Open ]], +Cell[26720, 859, 177, 3, 51, "Input",ExpressionUUID->"aca2a824-518f-4e0c-9dc3-7c4b1cbbab9b"], +Cell[CellGroupData[{ +Cell[26922, 866, 358, 6, 51, "Input",ExpressionUUID->"2cdc5ad7-2cf7-490b-a717-99d56799cda0"], +Cell[27283, 874, 278, 5, 58, "Output",ExpressionUUID->"0fc64376-bdbf-4291-b37e-55200f87693a"] +}, Open ]], +Cell[27576, 882, 175, 3, 51, "Input",ExpressionUUID->"cfe644e6-6a71-4395-a7c6-8a24e6df830b"], +Cell[CellGroupData[{ +Cell[27776, 889, 307, 6, 51, "Input",ExpressionUUID->"eb3757d9-7ff9-4674-8ef6-4c8a7dc320a2"], +Cell[28086, 897, 278, 5, 58, "Output",ExpressionUUID->"1f65794f-2b1c-4452-aab4-7b85dcd256bf"] +}, Open ]], +Cell[28379, 905, 175, 3, 51, "Input",ExpressionUUID->"ae670d93-2719-4f7e-8005-30cd2720262b"], +Cell[CellGroupData[{ +Cell[28579, 912, 309, 6, 51, "Input",ExpressionUUID->"42992945-6511-420b-aeb1-baab39cc276b"], +Cell[28891, 920, 279, 5, 58, "Output",ExpressionUUID->"339d80cd-fb9a-4ba1-bc47-63f890e7eedb"] +}, Open ]], +Cell[29185, 928, 177, 3, 51, "Input",ExpressionUUID->"30d9c5d5-74cd-42c0-87fa-52be7a0496a6"], +Cell[CellGroupData[{ +Cell[29387, 935, 308, 6, 51, "Input",ExpressionUUID->"b7618fd1-2275-4c4d-8608-c841f952eb45"], +Cell[29698, 943, 281, 5, 58, "Output",ExpressionUUID->"958ec7a0-713c-415b-a96e-0c6e2c641577"] +}, Open ]], +Cell[29994, 951, 176, 3, 51, "Input",ExpressionUUID->"483ac3d1-0043-4c48-962e-dc44f7738e5e"], +Cell[CellGroupData[{ +Cell[30195, 958, 279, 5, 51, "Input",ExpressionUUID->"6d50d0b3-d04f-4154-b54d-ecb80531dd64"], +Cell[30477, 965, 276, 5, 58, "Output",ExpressionUUID->"4c03725b-01c1-44e2-bea9-12329b1a9c88"] +}, Open ]], +Cell[30768, 973, 179, 3, 51, "Input",ExpressionUUID->"cce1f09e-472d-43a8-b22a-f75983ffc02b"], +Cell[CellGroupData[{ +Cell[30972, 980, 19813, 486, 2581, "Input",ExpressionUUID->"e9fe2a31-f845-48e7-a025-f041278678bb"], +Cell[50788, 1468, 321, 6, 58, "Output",ExpressionUUID->"8587f47c-9752-4ad1-8635-562ee6f9d838"] }, 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[51146, 1479, 19752, 490, 2539, "Input",ExpressionUUID->"bed3b2d2-7173-4716-8631-10ab9d971dba"], +Cell[70901, 1971, 317, 6, 58, "Output",ExpressionUUID->"1f015ce4-62ae-4fca-9ffc-65f0d23e6c1e"] }, 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[71255, 1982, 19752, 484, 2561, "Input",ExpressionUUID->"3d1eee7d-aed8-404e-842a-b2d39195cb1c"], +Cell[91010, 2468, 339, 7, 58, "Output",ExpressionUUID->"6e9b5e38-1d21-4cfb-88f4-f67d2766736f"] }, 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[91386, 2480, 22538, 554, 2904, "Input",ExpressionUUID->"57977419-3181-4bd7-b046-b5348ce6379e"], +Cell[113927, 3036, 335, 7, 58, "Output",ExpressionUUID->"34c30351-3f9e-4608-9c56-249e5c22b8a4"] }, 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[114299, 3048, 22539, 554, 2883, "Input",ExpressionUUID->"4a92750a-5025-4c91-9ece-3360c1b46e63"], +Cell[136841, 3604, 340, 7, 58, "Output",ExpressionUUID->"09910f10-5c1d-409b-9a47-88b772e540fc"] }, 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[137218, 3616, 25495, 627, 3226, "Input",ExpressionUUID->"2d9d5c62-e6c7-4f94-8992-fb01069f2bc8"], +Cell[162716, 4245, 334, 7, 58, "Output",ExpressionUUID->"af329f52-9f93-4724-945b-860188860e51"] }, 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[163087, 4257, 134, 3, 51, "Input",ExpressionUUID->"577a6f40-f17a-46a7-86e4-31839bd7c63f"], +Cell[163224, 4262, 301, 6, 58, "Output",ExpressionUUID->"0aa2cc7d-063d-42b7-aed0-1aca1ef94296"] }, 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[163562, 4273, 134, 3, 51, "Input",ExpressionUUID->"bddadc26-aed4-4de8-861b-3eed221711a3"], +Cell[163699, 4278, 301, 6, 58, "Output",ExpressionUUID->"a3f94d76-478b-4242-a14d-f9cce6c9dc13"] }, 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[164037, 4289, 1148, 40, 190, "Input",ExpressionUUID->"7758746a-3303-4080-8034-003e81e72aab"], +Cell[165188, 4331, 320, 6, 58, "Output",ExpressionUUID->"c5fb0dbf-94ba-4aca-aa17-6adcdae2a7f3"] }, 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[165545, 4342, 1045, 36, 257, "Input",ExpressionUUID->"864b711b-7ed6-4139-9bf5-17283229ae04"], +Cell[166593, 4380, 334, 7, 58, "Output",ExpressionUUID->"c13a7a11-cf1a-49d1-bf4f-ff7375eeeab0"] }, 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[166964, 4392, 1148, 40, 190, "Input",ExpressionUUID->"0cefa213-96fe-4065-8dbb-30c6a021066f"], +Cell[168115, 4434, 319, 6, 58, "Output",ExpressionUUID->"59e314fd-9410-48a9-aeb6-18fc922cea3b"] }, 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[168471, 4445, 112, 2, 51, "Input",ExpressionUUID->"0be320fe-f46c-457e-b8fd-af97c3546bdc"], +Cell[168586, 4449, 318, 6, 58, "Output",ExpressionUUID->"6edda228-88ac-4b6c-9766-ae1a82bff058"] }, 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[168941, 4460, 112, 2, 51, "Input",ExpressionUUID->"025364aa-405c-4d73-b1ea-94437671667d"], +Cell[169056, 4464, 312, 6, 58, "Output",ExpressionUUID->"a0f20734-4a80-499a-9b52-5e08ea865325"] }, 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[169405, 4475, 112, 2, 51, "Input",ExpressionUUID->"c370832f-4e6d-42fa-bc49-5128ff0384ba"], +Cell[169520, 4479, 306, 6, 58, "Output",ExpressionUUID->"d04b1e2e-2127-4cc2-804b-b6b3d0e428f7"] }, 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[169863, 4490, 112, 2, 51, "Input",ExpressionUUID->"91986df6-265b-411a-9ec2-1af16f04a5e4"], +Cell[169978, 4494, 289, 5, 58, "Output",ExpressionUUID->"ff17035c-412b-4bf0-ad41-0ae59cb3ca9f"] }, 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[170304, 4504, 111, 2, 51, "Input",ExpressionUUID->"47c69875-f9e7-4088-bf36-8b70746ddcc4"], +Cell[170418, 4508, 291, 5, 58, "Output",ExpressionUUID->"ab625dd8-3903-4fba-8bfe-51c742eb179f"] }, 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[170746, 4518, 111, 2, 51, "Input",ExpressionUUID->"74c384a6-84a4-4c32-a653-d2988bb330d5"], +Cell[170860, 4522, 296, 5, 58, "Output",ExpressionUUID->"734fe929-6a54-4311-8a69-b87d23b704a1"] }, 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[171193, 4532, 501, 17, 97, "Input",ExpressionUUID->"bbd3ba20-daed-4e05-8619-384f2129461e"], +Cell[171697, 4551, 307, 6, 58, "Output",ExpressionUUID->"67c975c7-010e-4036-a9ec-de572d0d96e7"] }, 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[172041, 4562, 501, 17, 97, "Input",ExpressionUUID->"7826628e-c8b8-49e1-b5c6-a44bee3e6416"], +Cell[172545, 4581, 310, 6, 58, "Output",ExpressionUUID->"3a4d0d17-66a7-46a9-a59e-8cf04f698be0"] }, 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[172892, 4592, 1792, 61, 324, "Input",ExpressionUUID->"463277f7-b347-495e-8624-e148927c8041"], +Cell[174687, 4655, 291, 5, 58, "Output",ExpressionUUID->"c39c7495-bff7-4cb5-9bcc-5f2e293cd72d"] }, 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[175015, 4665, 1105, 37, 231, "Input",ExpressionUUID->"eee689fc-f105-4d18-89f0-7c11cf6f99fe"], +Cell[176123, 4704, 312, 6, 58, "Output",ExpressionUUID->"26e40046-7615-4c4a-a431-8166fbfa44ab"] }, 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[176472, 4715, 1822, 62, 283, "Input",ExpressionUUID->"406780a6-3bee-4562-b12c-fd4639943008"], +Cell[178297, 4779, 292, 5, 58, "Output",ExpressionUUID->"1380be76-e3c2-4286-a595-7c0c0ed65cbe"] }, 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[178626, 4789, 1635, 54, 141, "Input",ExpressionUUID->"1dc5648e-1b63-4675-a8c5-15d0b057772e"], +Cell[180264, 4845, 291, 5, 58, "Output",ExpressionUUID->"8edd87a3-b0a5-477f-a8a0-f698b932875f"] }, 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[180592, 4855, 1635, 54, 141, "Input",ExpressionUUID->"049e63fe-e62f-491f-a2e5-08cb3d411df2"], +Cell[182230, 4911, 289, 5, 58, "Output",ExpressionUUID->"ee7c412f-1624-4c5c-89de-5bafa33fd0fc"] +}, Open ]], +Cell[182534, 4919, 207, 4, 51, "Input",ExpressionUUID->"bdefbecf-0aaa-4a45-a861-406cf54e52d1"], +Cell[182744, 4925, 154, 3, 51, "Input",ExpressionUUID->"a5161e25-7247-124f-8601-7bcc4af89c62"], +Cell[182901, 4930, 184, 3, 51, "Input",ExpressionUUID->"45ed831b-459a-9a41-990f-c079ad464f5d"], +Cell[183088, 4935, 154, 3, 51, "Input",ExpressionUUID->"bc946e22-fdd1-8b4b-8e5a-11f4dcb03e07"], +Cell[CellGroupData[{ +Cell[183267, 4942, 1301, 43, 198, "Input",ExpressionUUID->"78018a61-7851-fe4d-b32f-cb68a3158f29"], +Cell[184571, 4987, 178, 3, 58, "Output",ExpressionUUID->"1658422d-0016-324a-9843-942f5453a9c7"] }, 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"] -}, Open ]], -Cell[376133, 8866, 209, 5, 56, "Input",ExpressionUUID->"f380af60-a605-c546-a4c8-b989835aa113"], -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[184786, 4995, 910, 31, 97, "Input",ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-7221ff813b6d"], +Cell[185699, 5028, 175, 3, 58, "Output",ExpressionUUID->"d307b81f-3de4-ab46-9ef8-af5c6bc7c05b"] }, 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[185911, 5036, 887, 30, 97, "Input",ExpressionUUID->"f22831a7-63b7-f444-8e3a-fa370a62ac27"], +Cell[186801, 5068, 176, 3, 58, "Output",ExpressionUUID->"866e2a7a-c08a-d14a-ae9c-f63fbc316d85"] }, 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[187014, 5076, 558, 19, 91, "Input",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"], +Cell[187575, 5097, 172, 3, 58, "Output",ExpressionUUID->"bba1ae64-a2a6-4745-b870-cca298627f62"] }, 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[187784, 5105, 623, 21, 91, "Input",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"], +Cell[188410, 5128, 172, 3, 58, "Output",ExpressionUUID->"2d9a2576-51c1-274e-bb6b-3d0a12d8f955"] }, 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[188619, 5136, 170, 5, 97, "Input",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"], +Cell[188792, 5143, 172, 3, 58, "Output",ExpressionUUID->"55e80360-690f-0444-ac68-221fe09ddfd5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189001, 5151, 170, 5, 96, "Input",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"], +Cell[189174, 5158, 171, 3, 58, "Output",ExpressionUUID->"ffa83e52-e057-8c44-be5c-a869714a425e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189382, 5166, 181, 5, 75, "Input",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"], +Cell[189566, 5173, 170, 3, 58, "Output",ExpressionUUID->"daa1af48-56b9-b549-9a5e-fd35e4ace383"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189773, 5181, 181, 5, 75, "Input",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"], +Cell[189957, 5188, 172, 3, 58, "Output",ExpressionUUID->"045de583-e60b-c94a-9184-d9a46a689c39"] +}, Open ]], +Cell[CellGroupData[{ +Cell[190166, 5196, 6055, 185, 1734, "Input",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"], +Cell[196224, 5383, 172, 3, 58, "Output",ExpressionUUID->"cdaeef85-4599-4144-88b1-c12ccb960e67"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196433, 5391, 368, 9, 73, "Input",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"], +Cell[196804, 5402, 171, 3, 58, "Output",ExpressionUUID->"c4da64fa-539e-454c-a7bc-f5a50d741b33"] +}, Open ]], +Cell[CellGroupData[{ +Cell[197012, 5410, 6122, 187, 1645, "Input",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"], +Cell[203137, 5599, 173, 3, 58, "Output",ExpressionUUID->"a0ddd9ec-0ad8-da40-93c1-f69a540fecbb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[203347, 5607, 368, 9, 73, "Input",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"], +Cell[203718, 5618, 170, 3, 58, "Output",ExpressionUUID->"bb399ae8-0971-524b-99dd-45c3d83aff90"] +}, Open ]], +Cell[CellGroupData[{ +Cell[203925, 5626, 2663, 88, 786, "Input",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"], +Cell[206591, 5716, 171, 3, 58, "Output",ExpressionUUID->"8522d772-b29b-b14d-a623-3ad00b3d8250"] +}, Open ]], +Cell[CellGroupData[{ +Cell[206799, 5724, 2603, 85, 786, "Input",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"], +Cell[209405, 5811, 173, 3, 58, "Output",ExpressionUUID->"d88ed30c-77e3-0245-b8d9-3b803c379fb2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[209615, 5819, 3712, 118, 1131, "Input",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"], +Cell[213330, 5939, 174, 3, 58, "Output",ExpressionUUID->"5d391006-3707-3d44-a060-c06781a98edd"] +}, Open ]], +Cell[213519, 5945, 138, 3, 51, "Input",ExpressionUUID->"714abd93-e0d1-eb45-a9e1-7a2f5d020eb1"], +Cell[CellGroupData[{ +Cell[213682, 5952, 2054, 59, 581, "Input",ExpressionUUID->"137c38a2-741c-bd43-b6d9-c0135e32eaf8"], +Cell[215739, 6013, 557, 12, 189, "Message",ExpressionUUID->"055bf31f-37b2-724c-aeef-d922f7a205c7"], +Cell[216299, 6027, 559, 12, 189, "Message",ExpressionUUID->"eeead3e4-54a5-7c4d-95b2-292dcdbe105a"], +Cell[216861, 6041, 561, 12, 189, "Message",ExpressionUUID->"87e34a07-7a78-bf46-b222-6e72d11fd18d"], +Cell[217425, 6055, 458, 10, 66, "Message",ExpressionUUID->"1cf9faa5-3432-3349-b45a-58344623fc63"], +Cell[217886, 6067, 172, 3, 58, "Output",ExpressionUUID->"acb58738-85fd-0f40-b8fa-3a779aa79369"] +}, Open ]], +Cell[CellGroupData[{ +Cell[218095, 6075, 2052, 59, 581, "Input",ExpressionUUID->"9b196534-2ca5-e54b-8014-b0ab3cd09ac2"], +Cell[220150, 6136, 555, 12, 189, "Message",ExpressionUUID->"6fb03e9c-623b-b24d-bccd-c05b2662537c"], +Cell[220708, 6150, 559, 12, 189, "Message",ExpressionUUID->"410ed293-2b04-a346-b193-5e006759c884"], +Cell[221270, 6164, 561, 12, 189, "Message",ExpressionUUID->"9e59cf72-2df3-6741-910e-ddcc2125aa8b"], +Cell[221834, 6178, 458, 10, 66, "Message",ExpressionUUID->"6f223de4-f4b9-0a4c-b3b3-f489f4259713"], +Cell[222295, 6190, 172, 3, 58, "Output",ExpressionUUID->"d8300689-0813-6149-9a7f-c358ba826aac"] +}, Open ]], +Cell[CellGroupData[{ +Cell[222504, 6198, 1936, 53, 412, "Input",ExpressionUUID->"124cd7db-c537-8943-bef2-1a154ab4a709"], +Cell[224443, 6253, 20440, 382, 329, "Output",ExpressionUUID->"a7dc53c9-dabc-784f-a94a-f1fb7ab10c84"] +}, Open ]], +Cell[CellGroupData[{ +Cell[244920, 6640, 2094, 60, 629, "Input",ExpressionUUID->"5a7f9400-1446-9746-a463-bade8ae5c530"], +Cell[247017, 6702, 500, 11, 130, "Message",ExpressionUUID->"eede1010-35b4-8e43-8206-4c3ebae733c0"], +Cell[247520, 6715, 503, 11, 160, "Message",ExpressionUUID->"01174b23-a2bd-8e4e-90f5-af7e82df101e"], +Cell[248026, 6728, 506, 11, 160, "Message",ExpressionUUID->"ec7385ad-4809-8947-afea-81e4a95fc523"], +Cell[248535, 6741, 455, 10, 66, "Message",ExpressionUUID->"4176ecfe-3aff-0f4b-824e-b07e40312968"], +Cell[248993, 6753, 57321, 985, 322, "Output",ExpressionUUID->"6ef8802e-494c-9d4c-94ba-3ee854b2b684"] +}, Open ]], +Cell[306329, 7741, 2453, 69, 616, "Input",ExpressionUUID->"0f83f761-b16d-5343-987d-511095eaf120"], +Cell[308785, 7812, 209, 5, 51, "Input",ExpressionUUID->"8cdd4baa-f7c9-104e-b978-89d3982ba28f"], +Cell[CellGroupData[{ +Cell[309019, 7821, 217, 7, 83, "Input",ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-3438788b15d6"], +Cell[309239, 7830, 172, 3, 58, "Output",ExpressionUUID->"bea5e069-6c61-f84f-be94-f0a852e2aafc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[309448, 7838, 1816, 53, 611, "Input",ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-0e75880d5d98"], +Cell[311267, 7893, 508, 11, 160, "Message",ExpressionUUID->"3a61d965-a130-7645-90c6-a5061b94ec40"], +Cell[311778, 7906, 508, 11, 160, "Message",ExpressionUUID->"c3c0d10c-aa86-9b43-bfa9-71bc099863f1"], +Cell[312289, 7919, 511, 11, 160, "Message",ExpressionUUID->"321e1ff2-86f6-7244-895a-0b744ecd0cf1"], +Cell[312803, 7932, 456, 10, 66, "Message",ExpressionUUID->"43e0f399-4fd6-3f4d-a3a8-ef137bebb344"], +Cell[313262, 7944, 26000, 472, 324, "Output",ExpressionUUID->"4e674430-b3ee-f841-98e7-88500054cf35"] +}, Open ]], +Cell[CellGroupData[{ +Cell[339299, 8421, 1616, 48, 420, "Input",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"], +Cell[340918, 8471, 584, 12, 218, "Message",ExpressionUUID->"6dc439d9-4983-a74d-a424-1e627442f8ec"], +Cell[341505, 8485, 588, 12, 218, "Message",ExpressionUUID->"cbbb0a14-cac3-b246-be52-03554c6d0159"], +Cell[342096, 8499, 592, 12, 218, "Message",ExpressionUUID->"afaf59d8-5c82-5843-ba76-5dd1061c22bd"], +Cell[342691, 8513, 456, 10, 66, "Message",ExpressionUUID->"370cb98e-1084-6940-9e45-78218dc7334e"], +Cell[343150, 8525, 169, 3, 58, "Output",ExpressionUUID->"49c1839c-f9a0-514a-9803-38aedd206508"] +}, Open ]], +Cell[CellGroupData[{ +Cell[343356, 8533, 2249, 64, 624, "Input",ExpressionUUID->"eb852908-4d60-c84e-80d9-a57fd4094f56"], +Cell[345608, 8599, 555, 12, 189, "Message",ExpressionUUID->"e4da2c2e-bc79-8048-aec6-e0a36c5fd50c"], +Cell[346166, 8613, 557, 12, 189, "Message",ExpressionUUID->"ff48d9a8-4f15-044a-8d17-d378e560badf"], +Cell[346726, 8627, 563, 12, 189, "Message",ExpressionUUID->"d97cd881-ad70-0043-811a-b6650c7bff48"], +Cell[347292, 8641, 458, 10, 66, "Message",ExpressionUUID->"dc1ff9fc-c736-e742-9bd5-f36a7c2c6c53"], +Cell[347753, 8653, 173, 3, 58, "Output",ExpressionUUID->"207fc206-b3fa-1a42-8709-2c8aaaf304b0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[347963, 8661, 2223, 64, 624, "Input",ExpressionUUID->"d11037f6-09e7-b44f-8a1d-47c1a485c608"], +Cell[350189, 8727, 555, 12, 189, "Message",ExpressionUUID->"079487fc-3029-b74e-ba27-a61cf73f30a2"], +Cell[350747, 8741, 557, 12, 189, "Message",ExpressionUUID->"6fef6245-eafb-7343-8d9c-509c47662fd8"], +Cell[351307, 8755, 561, 12, 189, "Message",ExpressionUUID->"caeb451e-fce0-a24e-bdb2-20066bf32e23"], +Cell[351871, 8769, 458, 10, 66, "Message",ExpressionUUID->"b9263c45-06ba-d24d-a71c-72933a67fb86"], +Cell[352332, 8781, 173, 3, 58, "Output",ExpressionUUID->"fdc26e81-7e73-a54e-8b48-fba744fd21b7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[352542, 8789, 2221, 64, 624, "Input",ExpressionUUID->"431dd2fa-6331-2449-bc19-0d79e6ed8953"], +Cell[354766, 8855, 557, 12, 189, "Message",ExpressionUUID->"3270b87e-9743-ef45-96a4-2ce51373a203"], +Cell[355326, 8869, 557, 12, 189, "Message",ExpressionUUID->"b5a7511b-af1a-b946-83d4-1951541611b2"], +Cell[355886, 8883, 563, 12, 189, "Message",ExpressionUUID->"55836c22-e074-4442-9aa3-8442534fcabe"], +Cell[356452, 8897, 456, 10, 66, "Message",ExpressionUUID->"18c3aa33-3860-5f41-a9ac-8cd3806fef7e"], +Cell[356911, 8909, 173, 3, 58, "Output",ExpressionUUID->"62510f7e-bac9-8b4e-86ce-182bdd5d56b9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[357121, 8917, 213, 6, 81, "Input",ExpressionUUID->"8c5df121-e0b9-a146-bc34-b231aa8028b9"], +Cell[357337, 8925, 171, 3, 58, "Output",ExpressionUUID->"5c7cd89e-20ed-8d44-83bb-e2e46deab974"] +}, Open ]], +Cell[357523, 8931, 245, 5, 51, "Input",ExpressionUUID->"831a27fc-89ff-e041-97f1-0ec5d19a7879"], +Cell[CellGroupData[{ +Cell[357793, 8940, 558, 19, 91, "Input",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"], +Cell[358354, 8961, 172, 3, 58, "Output",ExpressionUUID->"e3d357af-87e3-0047-959d-fa0139c5bfc4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[358563, 8969, 170, 5, 97, "Input",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"], +Cell[358736, 8976, 173, 3, 58, "Output",ExpressionUUID->"93dda073-df54-8f4e-afab-666de5caf927"] +}, Open ]], +Cell[CellGroupData[{ +Cell[358946, 8984, 181, 5, 75, "Input",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"], +Cell[359130, 8991, 173, 3, 58, "Output",ExpressionUUID->"db5e4010-00e8-574c-8b32-365b8147ba2d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[359340, 8999, 6055, 185, 1734, "Input",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"], +Cell[365398, 9186, 172, 3, 58, "Output",ExpressionUUID->"6f5204f9-42a7-0343-a2cd-76cd7618ba90"] +}, Open ]], +Cell[CellGroupData[{ +Cell[365607, 9194, 368, 9, 73, "Input",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"], +Cell[365978, 9205, 170, 3, 58, "Output",ExpressionUUID->"732feb85-572c-6a40-bb32-258aa6fbb12e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[366185, 9213, 6122, 187, 1645, "Input",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"], +Cell[372310, 9402, 175, 3, 58, "Output",ExpressionUUID->"330db3dd-df0f-5e4b-9e84-63e3da6287e1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[372522, 9410, 368, 9, 73, "Input",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"], +Cell[372893, 9421, 172, 3, 58, "Output",ExpressionUUID->"8403ef7a-5add-ea45-a6c0-a6dc70f27bb8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[373102, 9429, 2663, 88, 786, "Input",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"], +Cell[375768, 9519, 173, 3, 58, "Output",ExpressionUUID->"aac00e4f-5d2b-4341-8ca5-f49d9556633e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[375978, 9527, 2603, 85, 786, "Input",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"], +Cell[378584, 9614, 171, 3, 58, "Output",ExpressionUUID->"eeee5a47-9547-7746-bb79-936b40364d7e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[378792, 9622, 3712, 118, 1131, "Input",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"], +Cell[382507, 9742, 174, 3, 58, "Output",ExpressionUUID->"a1352554-6686-ff4e-be47-04b42c29b000"] +}, Open ]], +Cell[CellGroupData[{ +Cell[382718, 9750, 2052, 59, 581, "Input",ExpressionUUID->"220bdeed-2e17-e94c-a7b0-3e066daf15d7"], +Cell[384773, 9811, 578, 12, 189, "Message",ExpressionUUID->"c854318c-035d-f249-9a8c-a9608e137436"], +Cell[385354, 9825, 583, 12, 218, "Message",ExpressionUUID->"fc1eef58-3b5b-8c4c-bab7-60a3682b1d45"], +Cell[385940, 9839, 586, 12, 218, "Message",ExpressionUUID->"2e134293-05b5-624c-b206-73b12a84c5ea"], +Cell[386529, 9853, 456, 10, 66, "Message",ExpressionUUID->"2cac2ff4-fc29-a048-9fae-70918ed41968"], +Cell[386988, 9865, 170, 3, 58, "Output",ExpressionUUID->"2dcc4178-0b8d-9f48-a040-f2fc5cb8eacd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[387195, 9873, 2054, 59, 581, "Input",ExpressionUUID->"b8791a07-33fe-8c4f-9c59-dd23af9a4471"], +Cell[389252, 9934, 576, 12, 189, "Message",ExpressionUUID->"ac808335-5ecc-ee4f-a7ac-d889b0bf6e05"], +Cell[389831, 9948, 581, 12, 218, "Message",ExpressionUUID->"36b7d718-32d9-a441-b985-1fed8f0f10fd"], +Cell[390415, 9962, 586, 12, 218, "Message",ExpressionUUID->"ab31a569-fab4-434a-9c76-33aa9b59b117"], +Cell[391004, 9976, 458, 10, 66, "Message",ExpressionUUID->"4c41e56d-f5cb-b94c-b99a-06e306247825"], +Cell[391465, 9988, 172, 3, 58, "Output",ExpressionUUID->"5ec230cf-b87d-3e41-bc7f-1f3f2ff283ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[391674, 9996, 2028, 55, 412, "Input",ExpressionUUID->"3fe6e7f1-b44a-234f-af77-3cf1fdaf28d9"], +Cell[393705, 10053, 20011, 378, 332, "Output",ExpressionUUID->"3d0b6a0d-2dc0-3b48-b8dd-35b5149ee27f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[413753, 10436, 2115, 60, 629, "Input",ExpressionUUID->"ab29778f-f183-804b-b871-4070462057d7"], +Cell[415871, 10498, 501, 11, 160, "Message",ExpressionUUID->"abf9cb8a-fbbf-7a43-abcd-82efb32ab217"], +Cell[416375, 10511, 503, 11, 160, "Message",ExpressionUUID->"8fcd13e3-81e0-3446-8882-6e42ca5c0bd1"], +Cell[416881, 10524, 505, 11, 160, "Message",ExpressionUUID->"2c23ed60-41ee-5841-90ce-1d26cb02619d"], +Cell[417389, 10537, 456, 10, 66, "Message",ExpressionUUID->"fa59df63-76ff-4147-acd0-9eeaf33582c5"], +Cell[417848, 10549, 32548, 580, 323, "Output",ExpressionUUID->"4ab96fbd-92e0-8a42-8552-436bb2f629b6"] +}, Open ]], +Cell[450411, 11132, 209, 5, 51, "Input",ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-6bd251746ea6"], +Cell[CellGroupData[{ +Cell[450645, 11141, 1616, 48, 420, "Input",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"], +Cell[452264, 11191, 596, 12, 218, "Message",ExpressionUUID->"3273c967-a8f4-6b46-8292-dfd9dc69311d"], +Cell[452863, 11205, 599, 12, 218, "Message",ExpressionUUID->"cf5457ae-7056-8a4b-afa3-32b95e922259"], +Cell[453465, 11219, 605, 12, 218, "Message",ExpressionUUID->"7ef79528-2ca4-544d-8bbf-e4564533e47a"], +Cell[454073, 11233, 456, 10, 66, "Message",ExpressionUUID->"3f59bf2a-0193-1b41-9437-359e4e291f20"], +Cell[454532, 11245, 170, 3, 58, "Output",ExpressionUUID->"6c94ff26-1921-5a44-a360-bda32f564938"] +}, Open ]], +Cell[CellGroupData[{ +Cell[454739, 11253, 2247, 64, 624, "Input",ExpressionUUID->"5a0cc4bb-b2b0-c64c-958a-7a397847208f"], +Cell[456989, 11319, 580, 12, 189, "Message",ExpressionUUID->"33abd0dc-5204-1046-87c9-87cecac6793f"], +Cell[457572, 11333, 583, 12, 218, "Message",ExpressionUUID->"a3e9f415-30c2-d04b-a044-33980d6ef6e9"], +Cell[458158, 11347, 584, 12, 218, "Message",ExpressionUUID->"3dddc3ab-89f8-ab44-a85d-f5130722f198"], +Cell[458745, 11361, 458, 10, 66, "Message",ExpressionUUID->"a3229605-5a49-544b-bbf6-cc14edd6c936"], +Cell[459206, 11373, 170, 3, 58, "Output",ExpressionUUID->"2f0f984a-e452-7f46-a8f1-230feda2f30b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[459413, 11381, 2219, 64, 624, "Input",ExpressionUUID->"22b50200-0b82-dc47-9932-f1f0210d6caf"], +Cell[461635, 11447, 580, 12, 189, "Message",ExpressionUUID->"1a479ad6-386a-fb47-95e4-f8a3ab25eccc"], +Cell[462218, 11461, 583, 12, 218, "Message",ExpressionUUID->"c45746b8-a614-4245-b137-e38355d43857"], +Cell[462804, 11475, 586, 12, 218, "Message",ExpressionUUID->"7ef9264b-fdf5-8e46-a39d-9d01a56d9fbc"], +Cell[463393, 11489, 458, 10, 66, "Message",ExpressionUUID->"424cc344-67bf-5349-951a-e3d6864f9105"], +Cell[463854, 11501, 171, 3, 58, "Output",ExpressionUUID->"d6fb3ea3-39a2-5b42-96f2-520a52fd0d9f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[464062, 11509, 2221, 64, 624, "Input",ExpressionUUID->"8a5105db-666c-444e-9451-d3e8d1574bcd"], +Cell[466286, 11575, 580, 12, 189, "Message",ExpressionUUID->"7c3b7078-d094-2344-a157-26438223ef0f"], +Cell[466869, 11589, 583, 12, 218, "Message",ExpressionUUID->"a4aaa457-e588-7a42-9066-29e614b18d91"], +Cell[467455, 11603, 584, 12, 218, "Message",ExpressionUUID->"8e9701ac-9508-2346-b853-523f9f269328"], +Cell[468042, 11617, 456, 10, 66, "Message",ExpressionUUID->"062aadbd-03a7-1f42-b815-d27ae6ddc83e"], +Cell[468501, 11629, 170, 3, 58, "Output",ExpressionUUID->"484b070c-cc4a-7049-8a18-4aa38bea8cd9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[468708, 11637, 213, 6, 81, "Input",ExpressionUUID->"d0efa798-230b-fa46-b413-76bfd8e40ccb"], +Cell[468924, 11645, 174, 3, 58, "Output",ExpressionUUID->"8b85bd5c-200a-cc44-9db5-38c5efe118ad"] +}, Open ]], +Cell[469113, 11651, 247, 5, 51, "Input",ExpressionUUID->"f842f74e-f562-934a-9011-6604b8708636"], +Cell[CellGroupData[{ +Cell[469385, 11660, 558, 19, 91, "Input",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"], +Cell[469946, 11681, 173, 3, 58, "Output",ExpressionUUID->"ddfcd06d-5644-fb4b-b789-815d8db71ce6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[470156, 11689, 170, 5, 97, "Input",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"], +Cell[470329, 11696, 173, 3, 58, "Output",ExpressionUUID->"96020250-b44c-694d-acbe-eb8b1c066e25"] +}, Open ]], +Cell[CellGroupData[{ +Cell[470539, 11704, 181, 5, 75, "Input",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"], +Cell[470723, 11711, 171, 3, 58, "Output",ExpressionUUID->"a3cad59a-97f1-1b4b-a0d3-0fcbb55e71c0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[470931, 11719, 6055, 185, 1734, "Input",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"], +Cell[476989, 11906, 173, 3, 58, "Output",ExpressionUUID->"221426ad-3f43-834a-96dc-c22bf0ed0e23"] +}, Open ]], +Cell[CellGroupData[{ +Cell[477199, 11914, 368, 9, 73, "Input",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"], +Cell[477570, 11925, 172, 3, 58, "Output",ExpressionUUID->"54964f1a-0c74-5b45-a5d4-8b241885bf9d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[477779, 11933, 6122, 187, 1645, "Input",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"], +Cell[483904, 12122, 175, 3, 58, "Output",ExpressionUUID->"637b4460-08e1-2c47-b235-20b94d0413ac"] +}, Open ]], +Cell[CellGroupData[{ +Cell[484116, 12130, 368, 9, 73, "Input",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"], +Cell[484487, 12141, 171, 3, 58, "Output",ExpressionUUID->"55b9de35-b316-8a4b-b6c7-df263fdc91bc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[484695, 12149, 2663, 88, 786, "Input",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"], +Cell[487361, 12239, 173, 3, 58, "Output",ExpressionUUID->"fd2a841e-0c22-9146-97fa-d652989dadbe"] +}, Open ]], +Cell[CellGroupData[{ +Cell[487571, 12247, 2603, 85, 786, "Input",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"], +Cell[490177, 12334, 171, 3, 58, "Output",ExpressionUUID->"94bd0f60-5228-9b42-83fe-23a478d55c7c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[490385, 12342, 3712, 118, 1131, "Input",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"], +Cell[494100, 12462, 174, 3, 58, "Output",ExpressionUUID->"fe51f341-63c7-8f47-9357-139cd58159ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[494311, 12470, 2054, 59, 581, "Input",ExpressionUUID->"1dec41a6-6752-2041-9d38-804123b5ccd0"], +Cell[496368, 12531, 572, 12, 189, "Message",ExpressionUUID->"0e079558-1b2f-5a46-8c66-a9ee31993ddb"], +Cell[496943, 12545, 573, 12, 189, "Message",ExpressionUUID->"d148db97-53f1-5f42-bd2e-6e779140d5b6"], +Cell[497519, 12559, 579, 12, 189, "Message",ExpressionUUID->"186b0633-6992-1247-a396-6e446c898f15"], +Cell[498101, 12573, 456, 10, 66, "Message",ExpressionUUID->"81723359-f225-2c46-ac9d-0c5bbdaa253b"], +Cell[498560, 12585, 169, 3, 58, "Output",ExpressionUUID->"dfb1ce0b-e756-e84a-9724-ecf250122f19"] +}, Open ]], +Cell[CellGroupData[{ +Cell[498766, 12593, 2049, 58, 581, "Input",ExpressionUUID->"442c9cc5-031c-244c-a3bb-8044e56b047f"], +Cell[500818, 12653, 570, 12, 189, "Message",ExpressionUUID->"90df9b1f-7133-e445-8661-0af9d5feb8bd"], +Cell[501391, 12667, 575, 12, 189, "Message",ExpressionUUID->"93c48be2-5ad7-ad43-88e8-2c6ab8e2f132"], +Cell[501969, 12681, 579, 12, 189, "Message",ExpressionUUID->"cbcbafce-f556-944f-b5f3-9a75f9ae2725"], +Cell[502551, 12695, 458, 10, 66, "Message",ExpressionUUID->"83820e0a-b24a-cc46-bd5a-b19f0104c185"], +Cell[503012, 12707, 171, 3, 58, "Output",ExpressionUUID->"0d63c418-a50b-b94b-ad7d-1a46c6eb320d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[503220, 12715, 2030, 55, 412, "Input",ExpressionUUID->"75bdb70f-74f6-1a4c-9c04-b799ae260294"], +Cell[505253, 12772, 20011, 378, 329, "Output",ExpressionUUID->"a15038e3-a3ab-e64e-ad3b-e8cb09ec92a2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[525301, 13155, 2120, 60, 629, "Input",ExpressionUUID->"cbec275e-4d01-7747-9ece-7fa9a2a651b1"], +Cell[527424, 13217, 501, 11, 160, "Message",ExpressionUUID->"bf289d91-76e3-3e4e-937f-93db9b038d39"], +Cell[527928, 13230, 505, 11, 160, "Message",ExpressionUUID->"a52542a3-f03a-414f-86c8-3b114308924e"], +Cell[528436, 13243, 506, 11, 160, "Message",ExpressionUUID->"1c7104f0-99cd-c74c-b855-98253be62519"], +Cell[528945, 13256, 456, 10, 66, "Message",ExpressionUUID->"e66837df-658a-2c4c-973b-50c515d3781f"], +Cell[529404, 13268, 31008, 556, 323, "Output",ExpressionUUID->"0c8adc65-2b3c-a14f-87e8-79cdde17788b"] +}, Open ]], +Cell[560427, 13827, 209, 5, 51, "Input",ExpressionUUID->"f380af60-a605-c546-a4c8-b989835aa113"], +Cell[CellGroupData[{ +Cell[560661, 13836, 1616, 48, 420, "Input",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"], +Cell[562280, 13886, 593, 12, 218, "Message",ExpressionUUID->"6cb27c14-3e28-3a42-b8b7-fdcba2488488"], +Cell[562876, 13900, 595, 12, 218, "Message",ExpressionUUID->"cb81e4d8-f3c2-a440-be93-8add6661d63f"], +Cell[563474, 13914, 602, 12, 218, "Message",ExpressionUUID->"6fc2d4bb-75da-4f4f-bee0-560983907484"], +Cell[564079, 13928, 456, 10, 66, "Message",ExpressionUUID->"a75f01ed-738d-2b4a-b751-ccae7a894e31"], +Cell[564538, 13940, 172, 3, 58, "Output",ExpressionUUID->"a9b05d7b-788a-eb45-8401-918c1ed97234"] +}, Open ]], +Cell[CellGroupData[{ +Cell[564747, 13948, 2249, 64, 624, "Input",ExpressionUUID->"f2835c98-560f-8e47-bdab-0d2700971836"], +Cell[566999, 14014, 572, 12, 189, "Message",ExpressionUUID->"e3c0ae99-c55d-1a40-897e-ede7de12487f"], +Cell[567574, 14028, 575, 12, 189, "Message",ExpressionUUID->"0a52e0c9-3a0a-a24b-a9af-01175c4ee0f4"], +Cell[568152, 14042, 579, 12, 189, "Message",ExpressionUUID->"e6adb683-0ea5-4b48-bbb8-23c8c11e4418"], +Cell[568734, 14056, 458, 10, 66, "Message",ExpressionUUID->"12441524-bcf6-244b-b009-fad76aa84cea"], +Cell[569195, 14068, 173, 3, 58, "Output",ExpressionUUID->"cc74ac59-df4c-cf4b-a4af-36b2436eea23"] +}, Open ]], +Cell[CellGroupData[{ +Cell[569405, 14076, 2221, 64, 624, "Input",ExpressionUUID->"ca837916-250f-4d4e-8368-5a08f479e656"], +Cell[571629, 14142, 572, 12, 189, "Message",ExpressionUUID->"ee3e5086-63b9-a04a-8b60-1a07bbedb00c"], +Cell[572204, 14156, 575, 12, 189, "Message",ExpressionUUID->"f824dc64-7721-2e40-87b9-9d308e655a7c"], +Cell[572782, 14170, 577, 12, 189, "Message",ExpressionUUID->"830b9065-dbdb-094f-aba8-2b0b04ca96a6"], +Cell[573362, 14184, 456, 10, 66, "Message",ExpressionUUID->"f79b172f-d4db-f24b-98c7-2b2531d3e183"], +Cell[573821, 14196, 172, 3, 58, "Output",ExpressionUUID->"88b0c8ab-c0ff-2a4c-be6a-f15bb3bf7202"] +}, Open ]], +Cell[CellGroupData[{ +Cell[574030, 14204, 2223, 64, 624, "Input",ExpressionUUID->"b579991f-985b-234a-94aa-ed18c097f8c0"], +Cell[576256, 14270, 572, 12, 189, "Message",ExpressionUUID->"f816110f-9bc3-0e4e-85c9-2e71a255bbb9"], +Cell[576831, 14284, 573, 12, 189, "Message",ExpressionUUID->"36d057a5-55b4-f047-814d-965f9626b543"], +Cell[577407, 14298, 579, 12, 189, "Message",ExpressionUUID->"4ef30680-44fe-0244-870d-45b0a67e7a3d"], +Cell[577989, 14312, 456, 10, 66, "Message",ExpressionUUID->"c685c306-1cc4-0a4f-bb39-965ed01378a7"], +Cell[578448, 14324, 173, 3, 58, "Output",ExpressionUUID->"621ca10b-eff8-834f-a283-22ac03a895a3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[578658, 14332, 215, 6, 81, "Input",ExpressionUUID->"afb7855c-8700-d444-926c-6d96abe14e67"], +Cell[578876, 14340, 174, 3, 58, "Output",ExpressionUUID->"3737ba01-5151-874d-9846-1c8b07e42d7a"] +}, Open ]], +Cell[579065, 14346, 115, 1, 51, "Input",ExpressionUUID->"2809d080-4c9b-47b9-8022-1a475fefd15e"] } ] *) -(* End of internal cache information *) - diff --git a/Pu240_798-811_TitovAA/170-70_h_Pu240_24-25/h_170-70_Pu240_24-25_pr_Qw2.nb b/Pu240_798-811_TitovAA/170-70_h_Pu240_24-25/h_170-70_Pu240_24-25_pr_Qw2.nb index 1226680..7ad16db 100644 --- a/Pu240_798-811_TitovAA/170-70_h_Pu240_24-25/h_170-70_Pu240_24-25_pr_Qw2.nb +++ b/Pu240_798-811_TitovAA/170-70_h_Pu240_24-25/h_170-70_Pu240_24-25_pr_Qw2.nb @@ -3,25 +3,9824 @@ (*** 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[ 803795, 19881] +NotebookOptionsPosition[ 749995, 19004] +NotebookOutlinePosition[ 750405, 19021] +CellTagsIndexPosition[ 750362, 19018] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f1", "="}]], "Input", + RowBox[{"d", "=", "2"}]], "Input", CellChangeTimes->{ - 3.9918501413985214`*^9},ExpressionUUID->"5894836c-9594-0940-b94c-\ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.994074365586355*^9, 3.9940743682625427`*^9}, { + 3.994074972569545*^9, 3.994074973088262*^9}, {3.9940750163921824`*^9, + 3.9940750181750507`*^9}, {3.994075068546856*^9, 3.994075088637937*^9}}, + CellLabel-> + "In[408]:=",ExpressionUUID->"81b527e9-1a4a-4a72-b90f-3535b7c3d89c"], + +Cell[BoxData["2"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, 3.994074326579653*^9, 3.994074935279605*^9, + 3.994074974578923*^9, 3.9940750193451347`*^9, {3.994075073182597*^9, + 3.9940750908104277`*^9}}, + CellLabel-> + "Out[408]=",ExpressionUUID->"07f0787f-581a-4439-9d6d-37f725e93a51"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.9940736553396893`*^9, 3.9940736559062967`*^9}}, + CellLabel-> + "In[409]:=",ExpressionUUID->"134c5a5b-fb7e-4fc8-b759-5838444ed063"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.994074326639216*^9, 3.994074935535688*^9, + 3.99407497466455*^9, 3.9940750193870497`*^9, {3.9940750732233963`*^9, + 3.994075090853217*^9}}, + CellLabel-> + "Out[409]=",ExpressionUUID->"c39f08c8-842b-409d-83a7-ee4f988a36de"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "170"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.994073658167858*^9, 3.994073658855419*^9}}, + CellLabel-> + "In[410]:=",ExpressionUUID->"b43c51b8-3564-4e75-973a-9cc22cbf1ac4"], + +Cell[BoxData["170"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.99407432665131*^9, 3.994074935546548*^9, + 3.994074974677713*^9, 3.994075019399205*^9, {3.99407507323412*^9, + 3.994075090864901*^9}}, + CellLabel-> + "Out[410]=",ExpressionUUID->"fbf78345-d43f-497e-9785-8d0970ea6f6b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel-> + "In[411]:=",ExpressionUUID->"5797654b-52b1-44d0-a8d9-179c3e288f61"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.994074326662937*^9, 3.994074935557375*^9, + 3.994074974689283*^9, 3.99407501941103*^9, {3.994075073246029*^9, + 3.9940750908767548`*^9}}, + CellLabel-> + "Out[411]=",ExpressionUUID->"6cbad377-4ab0-4ccc-9211-9dd75f8afb60"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel-> + "In[412]:=",ExpressionUUID->"55247566-8120-4655-a71a-f0839cd707d9"], + +Cell[BoxData["0.5437500000000001`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.994074326674385*^9, 3.994074935568224*^9, + 3.994074974701558*^9, 3.99407501942295*^9, {3.994075073258301*^9, + 3.994075090888695*^9}}, + CellLabel-> + "Out[412]=",ExpressionUUID->"442e9716-3d2a-4108-9a0f-d1ac5ab6c9ee"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel-> + "In[413]:=",ExpressionUUID->"9be26ed7-edeb-4da5-a549-86a2c4581309"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.99407432668569*^9, 3.9940749355790033`*^9, + 3.994074974713187*^9, 3.9940750194346647`*^9, {3.994075073269951*^9, + 3.9940750909003353`*^9}}, + CellLabel-> + "Out[413]=",ExpressionUUID->"5b996026-7e1d-495a-b544-8cb3b0822826"] +}, 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[414]:=",ExpressionUUID->"4cbcc918-98e8-460e-9080-638d3804e3f5"], + +Cell[BoxData["6.426003577835178`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.994074326696957*^9, 3.9940749355899067`*^9, + 3.994074974724668*^9, 3.994075019446229*^9, {3.994075073281803*^9, + 3.9940750909055967`*^9}}, + CellLabel-> + "Out[414]=",ExpressionUUID->"0efc00a8-ae19-42aa-996a-3bef55caec17"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel-> + "In[415]:=",ExpressionUUID->"22ff34f5-3764-46f1-b790-637cf5aaf7d0"], + +Cell[BoxData["4.7806909477779245`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.994074326708106*^9, 3.994074935599874*^9, + 3.9940749747357597`*^9, 3.994075019457683*^9, {3.994075073286825*^9, + 3.994075090919847*^9}}, + CellLabel-> + "Out[415]=",ExpressionUUID->"2b733097-549c-4317-85bc-0cf633ba2f8e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.8747255229"}]], "Input", + CellChangeTimes->{3.991799283179735*^9, 3.994073678806656*^9}, + CellLabel-> + "In[416]:=",ExpressionUUID->"6834db87-b122-4ba9-8997-2a6808e2a7fa"], + +Cell[BoxData["0.8747255229`"], "Output", + CellChangeTimes->{ + 3.994074326718845*^9, 3.994074935610774*^9, 3.9940749747456427`*^9, + 3.994075019469336*^9, {3.9940750733015203`*^9, 3.994075090931666*^9}}, + CellLabel-> + "Out[416]=",ExpressionUUID->"f308de37-a60d-4d54-ba06-dd2efcdbc402"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.3882072479"}]], "Input", + CellChangeTimes->{3.991799280663351*^9, 3.9940736835660563`*^9}, + CellLabel-> + "In[417]:=",ExpressionUUID->"78c225f3-4236-4030-be10-19a9eb0e8500"], + +Cell[BoxData["0.3882072479`"], "Output", + CellChangeTimes->{ + 3.994074326731606*^9, 3.9940749356216*^9, 3.9940749747554703`*^9, + 3.994075019480736*^9, {3.9940750733138313`*^9, 3.9940750909438963`*^9}}, + CellLabel-> + "Out[417]=",ExpressionUUID->"31a6958c-ca23-41dd-87c2-450329edba5d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel-> + "In[418]:=",ExpressionUUID->"c954b44c-22ac-4023-bfd3-2d72e9cda875"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.994074326743565*^9, 3.994074935632176*^9, + 3.994074974765235*^9, 3.994075019485297*^9, {3.994075073318596*^9, + 3.994075090955942*^9}}, + CellLabel-> + "Out[418]=",ExpressionUUID->"d3894bce-5251-446d-9675-10f0ffe5230f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel-> + "In[419]:=",ExpressionUUID->"3f3cd860-e5a5-4f15-a7ef-da034b5da88b"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.994074326755156*^9, 3.994074935643033*^9, + 3.99407497477602*^9, 3.994075019498505*^9, {3.994075073331485*^9, + 3.9940750909684067`*^9}}, + CellLabel-> + "Out[419]=",ExpressionUUID->"0d32f0e0-50c7-4b58-8e3b-bb7c495b5d3c"] +}, 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[420]:=",ExpressionUUID->"4ae63ea4-9ceb-446d-85b8-3f2529094ea8"], + +Cell[BoxData["2.2478963955971953`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.9940743267687807`*^9, 3.994074935653433*^9, + 3.994074974785841*^9, 3.994075019509776*^9, {3.994075073341671*^9, + 3.994075090978916*^9}}, + CellLabel-> + "Out[420]=",ExpressionUUID->"f931dc3a-cc55-4dd2-bc48-1dda79a3bded"] +}, 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[421]:=",ExpressionUUID->"07a2d665-3e57-46fe-a011-636961fd623b"], + +Cell[BoxData["1.4243583722932822`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.994074326780384*^9, 3.994074935663515*^9, + 3.994074974795456*^9, 3.994075019519595*^9, {3.994075073351719*^9, + 3.99407509098914*^9}}, + CellLabel-> + "Out[421]=",ExpressionUUID->"c6ee6a11-2260-4ea7-98e1-b4922dd7d924"] +}, 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[422]:=",ExpressionUUID->"a1b528f2-606b-46cc-ab92-6f748f78f2ad"], + +Cell[BoxData["0.4215025991580821`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.994074326791608*^9, 3.994074935674151*^9, + 3.994074974805192*^9, 3.9940750195300922`*^9, {3.99407507336273*^9, + 3.994075090999715*^9}}, + CellLabel-> + "Out[422]=",ExpressionUUID->"2b5198b1-074d-4859-b5c7-4baae7a5ff32"] +}, 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[423]:=",ExpressionUUID->"0be2b1e0-cb10-4a08-ab94-bf55fd089016"], + +Cell[BoxData[ + RowBox[{"-", "0.08696983109232953`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.994074326803142*^9, 3.994074935687113*^9, + 3.994074974815411*^9, 3.994075019541635*^9, {3.994075073373554*^9, + 3.994075091010479*^9}}, + CellLabel-> + "Out[423]=",ExpressionUUID->"c78eec67-2fc1-4d16-a49e-c1de3d508601"] +}, 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[424]:=",ExpressionUUID->"98c397be-c84e-4e6d-b795-6b135f8bf1f7"], + +Cell[BoxData[ + RowBox[{"-", "0.5569156814457635`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.994074326815329*^9, 3.994074935701499*^9, + 3.9940749748259974`*^9, 3.9940750195530157`*^9, {3.994075073384471*^9, + 3.9940750910236893`*^9}}, + CellLabel-> + "Out[424]=",ExpressionUUID->"6812a211-e1c4-478a-ab97-09a4444900b3"] +}, 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[425]:=",ExpressionUUID->"bc2e9ecb-9f98-4a9d-a794-eed238079895"], + +Cell[BoxData["0.7095150675393332`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.9940743268278837`*^9, 3.994074935715124*^9, + 3.994074974837141*^9, 3.994075019564198*^9, {3.9940750733955727`*^9, + 3.994075091035767*^9}}, + CellLabel-> + "Out[425]=",ExpressionUUID->"8b8c9dcd-123b-40ff-a496-360706c20e12"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel-> + "In[426]:=",ExpressionUUID->"10ca4ab8-d4d1-4e93-96ba-6d736cbe4e69"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.994074326840913*^9, 3.994074935728681*^9, + 3.994074974847731*^9, 3.994075019576145*^9, {3.994075073406547*^9, + 3.9940750910471153`*^9}}, + CellLabel-> + "Out[426]=",ExpressionUUID->"0d0b47ad-7c92-4ad7-8075-47b9bcb98d7b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel-> + "In[427]:=",ExpressionUUID->"7e0d93aa-f871-45de-8331-4f903699483e"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.994074326854053*^9, 3.99407493574161*^9, + 3.994074974858211*^9, 3.994075019594636*^9, {3.994075073417151*^9, + 3.9940750910581427`*^9}}, + CellLabel-> + "Out[427]=",ExpressionUUID->"59f9bf8b-cd38-4c14-b4df-237c8dbd073c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel-> + "In[428]:=",ExpressionUUID->"aa33af73-769e-4a25-b7cf-91f1615de0b8"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.994074326866469*^9, 3.994074935754272*^9, + 3.994074974869028*^9, 3.994075019614243*^9, {3.994075073428639*^9, + 3.994075091069083*^9}}, + CellLabel-> + "Out[428]=",ExpressionUUID->"eb6413cf-902a-44a2-bb52-7931a4cb1a88"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel-> + "In[429]:=",ExpressionUUID->"d55f4443-2ba8-4c0a-96a1-424b50e81576"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.9940743268793383`*^9, 3.994074935766993*^9, + 3.994074974879899*^9, 3.994075019631719*^9, {3.9940750734398613`*^9, + 3.994075091080567*^9}}, + CellLabel-> + "Out[429]=",ExpressionUUID->"f7a3dcc3-f3d3-415d-88e8-bf068b3fcd03"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel-> + "In[430]:=",ExpressionUUID->"52ae6f0b-9fef-418d-b34f-d0156c471818"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.994074326891512*^9, 3.994074935779024*^9, + 3.994074974889886*^9, 3.99407501964223*^9, {3.994075073449995*^9, + 3.994075091090703*^9}}, + CellLabel-> + "Out[430]=",ExpressionUUID->"44896276-b91a-483b-aacd-639012eb5a03"] +}, 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.994073690740699*^9, 3.994073690862359*^9}}, + CellLabel-> + "In[431]:=",ExpressionUUID->"0f22a465-82d4-444b-a05c-243d880f3c9c"], + +Cell[BoxData["66"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, 3.994074326904242*^9, 3.994074935791787*^9, + 3.9940749749005938`*^9, 3.994075019653521*^9, {3.994075073461108*^9, + 3.994075091102222*^9}}, + CellLabel-> + "Out[431]=",ExpressionUUID->"f7ceba86-6ad8-40a3-9e7c-fa74a2e46f89"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, {3.994073693453496*^9, 3.9940736957455587`*^9}}, + CellLabel-> + "In[432]:=",ExpressionUUID->"674f5b65-3f95-499c-ae0e-149d7ff5bbea"], + +Cell[BoxData["28"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.994074326916279*^9, 3.9940749358034363`*^9, + 3.99407497491004*^9, 3.994075019663575*^9, {3.994075073471445*^9, + 3.994075091112747*^9}}, + CellLabel-> + "Out[432]=",ExpressionUUID->"d2a06cb7-d102-4bee-b038-393092cf6ff7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel-> + "In[433]:=",ExpressionUUID->"419fa898-845d-4e55-b445-f18a32d77680"], + +Cell[BoxData["70"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.994074326928279*^9, 3.994074935814618*^9, + 3.994074974919529*^9, 3.994075019673669*^9, {3.9940750734815598`*^9, + 3.9940750911232967`*^9}}, + CellLabel-> + "Out[433]=",ExpressionUUID->"fdb2a482-89e7-4e1c-ba40-14f45a3ea955"] +}, 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[434]:=",ExpressionUUID->"ba616683-0f1c-4d79-a9fe-9e7bb0668997"], + +Cell[BoxData["0.1087764705882353`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9940743269397917`*^9, 3.994074935826476*^9, + 3.994074974929028*^9, 3.994075019683881*^9, {3.994075073492182*^9, + 3.994075091133902*^9}}, + CellLabel-> + "Out[434]=",ExpressionUUID->"90712c98-beeb-4a8a-a41c-11095ade9b01"] +}, 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[435]:=",ExpressionUUID->"a585b481-0438-4e38-a5db-e58c3f347d51"], + +Cell[BoxData[ + RowBox[{"-", "2.5658588235294117`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.994074326951318*^9, 3.9940749358379097`*^9, + 3.9940749749388123`*^9, 3.994075019694408*^9, {3.994075073502742*^9, + 3.9940750911440773`*^9}}, + CellLabel-> + "Out[435]=",ExpressionUUID->"56ad2987-614e-4ac2-b3f5-f9ab5b085e41"] +}, 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[436]:=",ExpressionUUID->"9df59fdf-3144-4ce6-ac26-b866533ca4bd"], + +Cell[BoxData["17.474387700041003`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.994074326963644*^9, 3.99407493585293*^9, + 3.994074974948763*^9, 3.9940750197049227`*^9, {3.994075073513197*^9, + 3.9940750911556253`*^9}}, + CellLabel-> + "Out[436]=",ExpressionUUID->"78251514-3973-44e8-8212-9aff757fa46a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel-> + "In[437]:=",ExpressionUUID->"c6804401-99e6-4312-84b8-003a58fc9e74"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.994074326975409*^9, 3.994074935865913*^9, + 3.994074974958894*^9, 3.9940750197157593`*^9, {3.994075073523876*^9, + 3.99407509116647*^9}}, + CellLabel-> + "Out[437]=",ExpressionUUID->"2668198c-24b3-44fe-8bb5-23aee1d84d93"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "1.895"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { + 3.9940737081112833`*^9, 3.994073709172043*^9}}, + CellLabel-> + "In[438]:=",ExpressionUUID->"abb24b70-6e69-40b5-8e99-1e6fc0f229c6"], + +Cell[BoxData["1.895`"], "Output", + CellChangeTimes->{ + 3.99407432698682*^9, 3.994074935879013*^9, 3.994074974974915*^9, + 3.994075019726281*^9, {3.994075073534071*^9, 3.994075091176951*^9}}, + CellLabel-> + "Out[438]=",ExpressionUUID->"bb84bf09-67d5-4828-ae2e-9bf840698a86"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel-> + "In[439]:=",ExpressionUUID->"2033be30-ce42-461b-9483-9d9fe4970881"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.785"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.994073711335288*^9, 3.994073712564888*^9}}, + CellLabel-> + "In[440]:=",ExpressionUUID->"94550ac3-3438-49b5-b74e-e8d552b88948"], + +Cell[BoxData["0.785`"], "Output", + CellChangeTimes->{ + 3.994074327001001*^9, 3.994074935894207*^9, 3.994074974988394*^9, + 3.9940750197399607`*^9, {3.994075073548934*^9, 3.994075091190888*^9}}, + CellLabel-> + "Out[440]=",ExpressionUUID->"1df62af1-d286-4890-8f5d-30b72d2daff6"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel-> + "In[441]:=",ExpressionUUID->"9e0c9678-3423-4776-87d8-a635992f4d12"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "2.605"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.9940737150021257`*^9, 3.994073716213628*^9}}, + CellLabel-> + "In[442]:=",ExpressionUUID->"51045f82-8d11-44c3-9364-24648a013a2e"], + +Cell[BoxData["2.605`"], "Output", + CellChangeTimes->{ + 3.99407432701412*^9, 3.994074935907247*^9, 3.994074975000514*^9, + 3.994075019753892*^9, {3.994075073561831*^9, 3.994075091203961*^9}}, + CellLabel-> + "Out[442]=",ExpressionUUID->"44f95c9b-18e3-48a0-b3db-0568974168ad"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel-> + "In[443]:=",ExpressionUUID->"0eb0248c-9222-4513-961b-455d0864b215"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.125"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, {3.994073720159833*^9, 3.9940737213308268`*^9}}, + CellLabel-> + "In[444]:=",ExpressionUUID->"e2d3a0dc-7fed-48de-b89a-2c0157c5fbb3"], + +Cell[BoxData["1.125`"], "Output", + CellChangeTimes->{ + 3.9940743270271187`*^9, 3.994074935920094*^9, 3.994074975012611*^9, + 3.994075019766945*^9, {3.99407507357449*^9, 3.994075091216796*^9}}, + CellLabel-> + "Out[444]=",ExpressionUUID->"7ff7b5a3-6281-40ae-a27a-2e8606d239c8"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel-> + "In[445]:=",ExpressionUUID->"5ff06203-ae66-4fd9-9d55-92540c3e7ba7"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.145"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, {3.9940737243709307`*^9, + 3.9940737264630413`*^9}}, + CellLabel-> + "In[446]:=",ExpressionUUID->"78d24afd-74f6-40f2-a8d0-785bc780349c"], + +Cell[BoxData["1.145`"], "Output", + CellChangeTimes->{ + 3.9940743270398684`*^9, 3.994074935932911*^9, 3.994074975024604*^9, + 3.994075019782*^9, {3.994075073587862*^9, 3.9940750912294607`*^9}}, + CellLabel-> + "Out[446]=",ExpressionUUID->"529bdeb2-c753-42f1-9090-88df1be4716b"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel-> + "In[447]:=",ExpressionUUID->"f8eaba12-c009-4373-85c6-cc8eb648d821"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.565"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.9940737287627993`*^9, + 3.994073731586865*^9}}, + CellLabel-> + "In[448]:=",ExpressionUUID->"9a47dda6-f61c-467d-a2a7-1ad99c2ec831"], + +Cell[BoxData["0.565`"], "Output", + CellChangeTimes->{ + 3.994074327052676*^9, 3.994074935945746*^9, 3.994074975036669*^9, + 3.994075019795862*^9, {3.994075073601301*^9, 3.9940750912417994`*^9}}, + CellLabel-> + "Out[448]=",ExpressionUUID->"64e2d668-4442-49ad-b2da-b50a933e0d0c"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel-> + "In[449]:=",ExpressionUUID->"4ce2f91d-123e-4fd5-9ad4-7c55cfd9f644"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "1.5"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.994073736277706*^9, + 3.994073737300967*^9}}, + CellLabel-> + "In[450]:=",ExpressionUUID->"00b90950-380c-4ad7-bdb9-9b9016abdda2"], + +Cell[BoxData["1.5`"], "Output", + CellChangeTimes->{ + 3.994074327065536*^9, 3.9940749359585743`*^9, 3.994074975048807*^9, + 3.9940750198098516`*^9, {3.9940750736145077`*^9, 3.994075091254464*^9}}, + CellLabel-> + "Out[450]=",ExpressionUUID->"1bf8ef89-cb3f-48b2-ba4c-976d1a5b2dba"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel-> + "In[451]:=",ExpressionUUID->"8f369104-d5c5-476d-8d7a-af83e1b30d17"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "0.635"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, {3.994073740255535*^9, 3.994073742830049*^9}}, + CellLabel-> + "In[452]:=",ExpressionUUID->"f1ee930f-df89-4ccf-8a09-e2d7b3b8e0b5"], + +Cell[BoxData["0.635`"], "Output", + CellChangeTimes->{ + 3.99407432707825*^9, 3.994074935971406*^9, 3.994074975061311*^9, + 3.994075019822795*^9, {3.994075073627393*^9, 3.994075091268227*^9}}, + CellLabel-> + "Out[452]=",ExpressionUUID->"9d21e662-f4a0-440f-873e-7a28287ce341"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel-> + "In[453]:=",ExpressionUUID->"86b52cef-b172-4954-b709-1f6c41e2feab"], + +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[454]:=",ExpressionUUID->"761aab7f-a618-4bb2-9981-34a333242c95"], + +Cell[BoxData["0.12734722137174234`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.9940743271585913`*^9, 3.994074936065404*^9, + 3.9940749751004868`*^9, 3.9940750198601313`*^9, {3.9940750736645*^9, + 3.994075091306961*^9}}, + CellLabel-> + "Out[454]=",ExpressionUUID->"da1d140f-d2ea-4b89-a4a0-e015a1955f1b"] +}, 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[455]:=",ExpressionUUID->"4e5c5ac6-229a-4cbf-84e4-e21aa5975ed7"], + +Cell[BoxData["7.503764283698204`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9940743271979237`*^9, 3.994074936098249*^9, + 3.994074975128014*^9, 3.994075019886159*^9, {3.994075073691079*^9, + 3.994075091332656*^9}}, + CellLabel-> + "Out[455]=",ExpressionUUID->"de40f40d-3522-4fa6-9672-aeed9d5cc67f"] +}, 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[456]:=",ExpressionUUID->"b6e1c50f-453f-4f08-9bb8-406c60c96df1"], + +Cell[BoxData[ + RowBox[{"-", "14.220629552114458`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.9940743272387447`*^9, 3.9940749361294937`*^9, + 3.994074975156514*^9, 3.994075019911666*^9, {3.9940750737180433`*^9, + 3.994075091358534*^9}}, + CellLabel-> + "Out[456]=",ExpressionUUID->"ccf5e2ec-b2de-4012-877b-25e7811a88c9"] +}, 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[457]:=",ExpressionUUID->"b1144424-b828-459f-9f8e-0fe461d33ea3"], + +Cell[BoxData[ + RowBox[{"-", "18.05754390959481`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.994074327278555*^9, 3.9940749361661787`*^9, + 3.9940749751890287`*^9, 3.994075019948382*^9, {3.994075073748582*^9, + 3.99407509139049*^9}}, + CellLabel-> + "Out[457]=",ExpressionUUID->"c840fd50-f566-4d91-963d-473db10d95e2"] +}, 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[458]:=",ExpressionUUID->"fadb9a7b-eff8-44cc-94cc-acd3f21ce013"], + +Cell[BoxData[ + RowBox[{"-", "51.76635903245878`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.994074327318758*^9, 3.9940749362040663`*^9, + 3.9940749752210827`*^9, 3.994075019983523*^9, {3.9940750737782516`*^9, + 3.994075091423628*^9}}, + CellLabel-> + "Out[458]=",ExpressionUUID->"b1f7ada8-b17f-4a15-9fa6-eec88e63a741"] +}, 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[459]:=",ExpressionUUID->"356916c3-d654-4d58-8f12-2f430ab9b5c1"], + +Cell[BoxData[ + RowBox[{"-", "131.16526179683018`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.994074327362462*^9, 3.994074936248407*^9, + 3.99407497525825*^9, 3.994075020024899*^9, {3.994075073816177*^9, + 3.9940750914627743`*^9}}, + CellLabel-> + "Out[459]=",ExpressionUUID->"1e1312dd-9d34-4d8e-8720-893eac72717e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel-> + "In[460]:=",ExpressionUUID->"6fdba6ea-9211-4186-ac47-3f23f522b52a"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.9940743273758507`*^9, 3.994074936262808*^9, + 3.994074975269576*^9, 3.99407502003885*^9, {3.994075073828107*^9, + 3.994075091476185*^9}}, + CellLabel-> + "Out[460]=",ExpressionUUID->"82a28b28-d91f-4f71-b960-99e442f4f8fe"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel-> + "In[461]:=",ExpressionUUID->"ee67e7d8-cb19-4690-bde5-ffd8c12d3af6"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.994074327386962*^9, 3.9940749362749443`*^9, + 3.99407497527983*^9, 3.994075020050624*^9, {3.994075073838533*^9, + 3.994075091486505*^9}}, + CellLabel-> + "Out[461]=",ExpressionUUID->"dba9ec90-7702-4c85-b569-3be6822db3f8"] +}, 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[462]:=",ExpressionUUID->"1182daf8-2f15-4198-b949-2c1fa7a543c4"], + +Cell[BoxData["102.57012833062927`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.9940743273966637`*^9, 3.994074936286751*^9, + 3.994074975289721*^9, 3.994075020061038*^9, {3.9940750738489656`*^9, + 3.994075091497402*^9}}, + CellLabel-> + "Out[462]=",ExpressionUUID->"a6a8d1ea-50f1-4283-aec3-45c24bf2786e"] +}, 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[463]:=",ExpressionUUID->"0dcf7a55-ee33-4614-93c0-0e72222bcd7e"], + +Cell[BoxData[ + RowBox[{"-", "89.85372860437164`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.994074327406303*^9, 3.9940749362972116`*^9, + 3.994074975299696*^9, 3.994075020070904*^9, {3.994075073859618*^9, + 3.994075091508032*^9}}, + CellLabel-> + "Out[463]=",ExpressionUUID->"9fe7a3dc-e8ab-4b30-9548-af0c3094e4d6"] +}, 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[464]:=",ExpressionUUID->"6e83f30d-8cdb-4e1c-b8a7-c6cb26789aec"], + +Cell[BoxData["106.05157029710364`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9940743274159946`*^9, 3.994074936339744*^9, + 3.99407497530958*^9, 3.994075020080964*^9, {3.994075073870014*^9, + 3.994075091518471*^9}}, + CellLabel-> + "Out[464]=",ExpressionUUID->"2705791c-d2d7-41cd-b9bf-7e8432fcebb5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel-> + "In[465]:=",ExpressionUUID->"fc4e1618-32ec-4d47-ac59-d1e28e2df293"], + +Cell[BoxData["0.4215025991580821`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.9940743274252653`*^9, 3.994074936349539*^9, + 3.994074975319766*^9, 3.99407502009256*^9, {3.994075073880959*^9, + 3.99407509152868*^9}}, + CellLabel-> + "Out[465]=",ExpressionUUID->"d985ee92-d209-4cd3-9974-9400d81a5bae"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel-> + "In[466]:=",ExpressionUUID->"e93313e8-eb83-4efd-aa32-92a2c370bcb9"], + +Cell[BoxData[ + RowBox[{"-", "0.08696983109232953`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.9940749363615837`*^9, 3.994074975323977*^9, + 3.994075020102562*^9, {3.994075073891796*^9, 3.994075091539506*^9}}, + CellLabel-> + "Out[466]=",ExpressionUUID->"7fbbb59d-d23e-4283-babb-b90ab7faf890"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel-> + "In[467]:=",ExpressionUUID->"9aa8886b-58cf-4323-9df2-f08d91b7ab7f"], + +Cell[BoxData[ + RowBox[{"-", "0.5569156814457635`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.994074936371666*^9, 3.994074975333539*^9, + 3.99407502011357*^9, {3.994075073902575*^9, 3.994075091549716*^9}}, + CellLabel-> + "Out[467]=",ExpressionUUID->"ee0130eb-724e-4293-b231-76ec6c27d217"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel-> + "In[468]:=",ExpressionUUID->"bc4d44f9-6286-4fc7-87d7-4a141615ff3c"], + +Cell[BoxData["0.7095150675393332`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.994074936381706*^9, 3.994074975343092*^9, + 3.994075020123022*^9, {3.994075073912849*^9, 3.99407509155998*^9}}, + CellLabel-> + "Out[468]=",ExpressionUUID->"151187f2-ccbc-4db9-8cc1-5a2100e9a240"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel-> + "In[469]:=",ExpressionUUID->"67840883-954c-47c3-a8fa-8b687de69b62"], + +Cell[BoxData["2.2478963955971953`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.994074936391926*^9, 3.994074975352632*^9, + 3.99407502013336*^9, {3.994075073923398*^9, 3.994075091570552*^9}}, + CellLabel-> + "Out[469]=",ExpressionUUID->"a254d151-fb54-4db5-be28-93af222ff9db"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel-> + "In[470]:=",ExpressionUUID->"a271cd04-ea38-4071-a67e-0c886d87f1e6"], + +Cell[BoxData["1.4243583722932822`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.994074936401989*^9, 3.994074975362446*^9, + 3.9940750201447487`*^9, {3.9940750739335833`*^9, 3.994075091580728*^9}}, + CellLabel-> + "Out[470]=",ExpressionUUID->"a6b2e7bd-0d99-4e97-9f96-93074b1b5d79"] +}, 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[471]:=",ExpressionUUID->"b5662b85-47db-436d-a08e-10ba73aa5993"], + +Cell[BoxData[ + RowBox[{"-", "33.35096235519822`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.994074936412284*^9, 3.994074975373137*^9, + 3.994075020154063*^9, {3.994075073943824*^9, 3.99407509159135*^9}}, + CellLabel-> + "Out[471]=",ExpressionUUID->"0df25805-9742-4d87-8e1b-eb2d12d70039"] +}, 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[472]:=",ExpressionUUID->"87d968ec-8f4f-4bbe-9075-1707aa31c21b"], + +Cell[BoxData[ + RowBox[{"-", "6.430095836913352`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.994074936422553*^9, 3.994074975386326*^9, + 3.9940750201636887`*^9, {3.994075073954281*^9, 3.9940750916019077`*^9}}, + CellLabel-> + "Out[472]=",ExpressionUUID->"3258c19d-d6b5-4df2-8018-8ba9e3741593"] +}, 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[473]:=",ExpressionUUID->"78cd79c7-7ff2-46f3-8433-a0a081ea00c6"], + +Cell[BoxData["69.21916597543105`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.994074936433895*^9, 3.994074975398871*^9, + 3.994075020173421*^9, {3.994075073964881*^9, 3.994075091612443*^9}}, + CellLabel-> + "Out[473]=",ExpressionUUID->"de79af3a-0e3f-4a69-bd57-148e6fec3b57"] +}, 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[474]:=",ExpressionUUID->"74094ace-1086-4ee6-b372-8a4db63634de"], + +Cell[BoxData[ + RowBox[{"-", "89.85372860437164`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.9940749364442453`*^9, 3.994074975409512*^9, + 3.9940750201838827`*^9, {3.994075073975268*^9, 3.994075091623101*^9}}, + CellLabel-> + "Out[474]=",ExpressionUUID->"c5d0cf6a-eece-4f09-907a-80a09037fb8a"] +}, 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[475]:=",ExpressionUUID->"00b1c57a-c808-4661-90df-5cc2c8ce592a"], + +Cell[BoxData["99.62147446019029`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.9940749364549513`*^9, 3.9940749754197397`*^9, + 3.99407502019348*^9, {3.994075073985984*^9, 3.994075091633762*^9}}, + CellLabel-> + "Out[475]=",ExpressionUUID->"cb6c1c8e-222a-440a-a063-bbff58d14ce9"] +}, 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[476]:=",ExpressionUUID->"e4b898ef-b009-4105-ba8b-ae4d254c5c7b"], + +Cell[BoxData["40.3202486570226`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.994074936466222*^9, 3.994074975429769*^9, + 3.9940750202031527`*^9, {3.99407507399641*^9, 3.994075091644145*^9}}, + CellLabel-> + "Out[476]=",ExpressionUUID->"a4427087-22ef-4b60-ac6b-e2bb7ca02b24"] +}, 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[477]:=",ExpressionUUID->"90d90135-22e2-4a5c-a5c7-a83223d75bfd"], + +Cell[BoxData["624.5259763904654`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.994074936476499*^9, 3.994074975439941*^9, + 3.994075020213862*^9, {3.994075074006929*^9, 3.994075091654208*^9}}, + CellLabel-> + "Out[477]=",ExpressionUUID->"a1bc32c6-af80-4e29-b006-ef19da17b909"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"d", "=", "2"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.994074365586355*^9, 3.9940743682625427`*^9}, { + 3.994074972569545*^9, 3.994074973088262*^9}, {3.9940750163921824`*^9, + 3.9940750181750507`*^9}, {3.994075068546856*^9, 3.994075088637937*^9}}, + CellLabel-> + "In[408]:=",ExpressionUUID->"b9510d34-a584-4a0b-98f3-c4e78b02c45f"], + +Cell[BoxData["2"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, 3.994074326579653*^9, 3.994074935279605*^9, + 3.994074974578923*^9, 3.9940750193451347`*^9, {3.994075073182597*^9, + 3.9940750908104277`*^9}}, + CellLabel-> + "Out[408]=",ExpressionUUID->"82a356e3-ceb6-4f2d-8bb2-07b5492c64c8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.9940736553396893`*^9, 3.9940736559062967`*^9}}, + CellLabel-> + "In[409]:=",ExpressionUUID->"526bbada-818a-43ae-a5e7-84d27538ffc1"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.994074326639216*^9, 3.994074935535688*^9, + 3.99407497466455*^9, 3.9940750193870497`*^9, {3.9940750732233963`*^9, + 3.994075090853217*^9}}, + CellLabel-> + "Out[409]=",ExpressionUUID->"fd0e3e99-c68d-4c0b-9f70-ba55d633f53f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "170"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.994073658167858*^9, 3.994073658855419*^9}}, + CellLabel-> + "In[410]:=",ExpressionUUID->"1f5d1f43-3157-43e3-8128-9a3651e366c5"], + +Cell[BoxData["170"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.99407432665131*^9, 3.994074935546548*^9, + 3.994074974677713*^9, 3.994075019399205*^9, {3.99407507323412*^9, + 3.994075090864901*^9}}, + CellLabel-> + "Out[410]=",ExpressionUUID->"15580006-1bcc-41dd-9936-18c1390c439b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel-> + "In[411]:=",ExpressionUUID->"140ea6ab-fc56-4e96-967f-eba18f9f1627"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.994074326662937*^9, 3.994074935557375*^9, + 3.994074974689283*^9, 3.99407501941103*^9, {3.994075073246029*^9, + 3.9940750908767548`*^9}}, + CellLabel-> + "Out[411]=",ExpressionUUID->"a49001ba-3592-4437-93c7-87a59dc10ac7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel-> + "In[412]:=",ExpressionUUID->"f6dcb05c-ce3c-405c-9748-80831769e78f"], + +Cell[BoxData["0.5437500000000001`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.994074326674385*^9, 3.994074935568224*^9, + 3.994074974701558*^9, 3.99407501942295*^9, {3.994075073258301*^9, + 3.994075090888695*^9}}, + CellLabel-> + "Out[412]=",ExpressionUUID->"454198c6-0b9c-4940-a189-c69e444d572a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel-> + "In[413]:=",ExpressionUUID->"da31ac4f-0f16-4a3f-bb1f-5fb7f12aaacd"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.99407432668569*^9, 3.9940749355790033`*^9, + 3.994074974713187*^9, 3.9940750194346647`*^9, {3.994075073269951*^9, + 3.9940750909003353`*^9}}, + CellLabel-> + "Out[413]=",ExpressionUUID->"8c8ed8b4-dd03-49a0-b047-a2b86cfeb51e"] +}, 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[414]:=",ExpressionUUID->"838b680d-23ae-4346-ab5e-25fd8edfcf43"], + +Cell[BoxData["6.426003577835178`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.994074326696957*^9, 3.9940749355899067`*^9, + 3.994074974724668*^9, 3.994075019446229*^9, {3.994075073281803*^9, + 3.9940750909055967`*^9}}, + CellLabel-> + "Out[414]=",ExpressionUUID->"f5c57208-17e6-454a-a1b0-7d2f0d115c57"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel-> + "In[415]:=",ExpressionUUID->"71d08f20-13be-480f-9ba8-0af2c0cc2b0a"], + +Cell[BoxData["4.7806909477779245`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.994074326708106*^9, 3.994074935599874*^9, + 3.9940749747357597`*^9, 3.994075019457683*^9, {3.994075073286825*^9, + 3.994075090919847*^9}}, + CellLabel-> + "Out[415]=",ExpressionUUID->"596f584f-d888-4897-9072-2b4e85d7ba27"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.8747255229"}]], "Input", + CellChangeTimes->{3.991799283179735*^9, 3.994073678806656*^9}, + CellLabel-> + "In[416]:=",ExpressionUUID->"c0484b17-a8d5-4f1b-8b99-5c87369acd5e"], + +Cell[BoxData["0.8747255229`"], "Output", + CellChangeTimes->{ + 3.994074326718845*^9, 3.994074935610774*^9, 3.9940749747456427`*^9, + 3.994075019469336*^9, {3.9940750733015203`*^9, 3.994075090931666*^9}}, + CellLabel-> + "Out[416]=",ExpressionUUID->"b013be95-433d-45a6-8a88-9b77e78145df"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.3882072479"}]], "Input", + CellChangeTimes->{3.991799280663351*^9, 3.9940736835660563`*^9}, + CellLabel-> + "In[417]:=",ExpressionUUID->"bebc8e35-625c-4bfc-9677-12518aef7afb"], + +Cell[BoxData["0.3882072479`"], "Output", + CellChangeTimes->{ + 3.994074326731606*^9, 3.9940749356216*^9, 3.9940749747554703`*^9, + 3.994075019480736*^9, {3.9940750733138313`*^9, 3.9940750909438963`*^9}}, + CellLabel-> + "Out[417]=",ExpressionUUID->"5c11af60-9064-4c81-8d15-34cf1ff9ae60"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel-> + "In[418]:=",ExpressionUUID->"ba4e6e50-3572-45a0-b010-d5c4dfcdd337"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.994074326743565*^9, 3.994074935632176*^9, + 3.994074974765235*^9, 3.994075019485297*^9, {3.994075073318596*^9, + 3.994075090955942*^9}}, + CellLabel-> + "Out[418]=",ExpressionUUID->"ac5acdb4-1361-4fde-aa37-2ecc78c4469b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel-> + "In[419]:=",ExpressionUUID->"8bac60d8-5432-4304-a48b-bc40990756f8"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.994074326755156*^9, 3.994074935643033*^9, + 3.99407497477602*^9, 3.994075019498505*^9, {3.994075073331485*^9, + 3.9940750909684067`*^9}}, + CellLabel-> + "Out[419]=",ExpressionUUID->"282ce56f-f060-4c3e-bf5b-ed20d5434266"] +}, 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[420]:=",ExpressionUUID->"526d508c-9975-40b6-8a6d-1cc4b5a5276d"], + +Cell[BoxData["2.2478963955971953`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.9940743267687807`*^9, 3.994074935653433*^9, + 3.994074974785841*^9, 3.994075019509776*^9, {3.994075073341671*^9, + 3.994075090978916*^9}}, + CellLabel-> + "Out[420]=",ExpressionUUID->"ddc9739d-40fa-4e39-9801-d85b9d0bcbc4"] +}, 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[421]:=",ExpressionUUID->"3e891a96-8c59-4f7c-9c3e-990a898f2e20"], + +Cell[BoxData["1.4243583722932822`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.994074326780384*^9, 3.994074935663515*^9, + 3.994074974795456*^9, 3.994075019519595*^9, {3.994075073351719*^9, + 3.99407509098914*^9}}, + CellLabel-> + "Out[421]=",ExpressionUUID->"a2482aad-b112-4d90-a4de-a0b8e20fac00"] +}, 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[422]:=",ExpressionUUID->"a37dec1c-59a4-4c51-9022-e4ddc2be01cf"], + +Cell[BoxData["0.4215025991580821`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.994074326791608*^9, 3.994074935674151*^9, + 3.994074974805192*^9, 3.9940750195300922`*^9, {3.99407507336273*^9, + 3.994075090999715*^9}}, + CellLabel-> + "Out[422]=",ExpressionUUID->"627d1a1d-1f6a-40e9-9386-e4a720261599"] +}, 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[423]:=",ExpressionUUID->"87c79552-81b0-401a-90ad-03e92adf048f"], + +Cell[BoxData[ + RowBox[{"-", "0.08696983109232953`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.994074326803142*^9, 3.994074935687113*^9, + 3.994074974815411*^9, 3.994075019541635*^9, {3.994075073373554*^9, + 3.994075091010479*^9}}, + CellLabel-> + "Out[423]=",ExpressionUUID->"2558ad60-6f31-4a85-a918-bec124988945"] +}, 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[424]:=",ExpressionUUID->"2cdde44d-4a40-4e27-9396-3f09b99ecfb8"], + +Cell[BoxData[ + RowBox[{"-", "0.5569156814457635`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.994074326815329*^9, 3.994074935701499*^9, + 3.9940749748259974`*^9, 3.9940750195530157`*^9, {3.994075073384471*^9, + 3.9940750910236893`*^9}}, + CellLabel-> + "Out[424]=",ExpressionUUID->"73548512-b863-4786-a429-b7d9ae6e1712"] +}, 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[425]:=",ExpressionUUID->"c65e3e00-b427-478d-9793-d3efacd1ccc3"], + +Cell[BoxData["0.7095150675393332`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.9940743268278837`*^9, 3.994074935715124*^9, + 3.994074974837141*^9, 3.994075019564198*^9, {3.9940750733955727`*^9, + 3.994075091035767*^9}}, + CellLabel-> + "Out[425]=",ExpressionUUID->"0fdfe0e8-1170-4734-92db-737edd725b4f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel-> + "In[426]:=",ExpressionUUID->"faec3591-5272-4811-8e51-10325cc5a1e7"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.994074326840913*^9, 3.994074935728681*^9, + 3.994074974847731*^9, 3.994075019576145*^9, {3.994075073406547*^9, + 3.9940750910471153`*^9}}, + CellLabel-> + "Out[426]=",ExpressionUUID->"3dd75654-1ea8-4b42-9562-4f01be51dd58"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel-> + "In[427]:=",ExpressionUUID->"dc6187d2-4115-43fe-93bd-75e52bbf170b"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.994074326854053*^9, 3.99407493574161*^9, + 3.994074974858211*^9, 3.994075019594636*^9, {3.994075073417151*^9, + 3.9940750910581427`*^9}}, + CellLabel-> + "Out[427]=",ExpressionUUID->"c50399a1-ff58-492c-aafc-d2ce340a4bbb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel-> + "In[428]:=",ExpressionUUID->"bcd62977-bb90-4a5d-859e-c6f310ed28dc"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.994074326866469*^9, 3.994074935754272*^9, + 3.994074974869028*^9, 3.994075019614243*^9, {3.994075073428639*^9, + 3.994075091069083*^9}}, + CellLabel-> + "Out[428]=",ExpressionUUID->"0b879a3d-43fd-4295-b00c-0ad6e9bb7923"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel-> + "In[429]:=",ExpressionUUID->"2730540f-d341-435a-928d-3b1dc9befa4a"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.9940743268793383`*^9, 3.994074935766993*^9, + 3.994074974879899*^9, 3.994075019631719*^9, {3.9940750734398613`*^9, + 3.994075091080567*^9}}, + CellLabel-> + "Out[429]=",ExpressionUUID->"93fcfa8f-4160-41e6-b3d3-25792634aef4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel-> + "In[430]:=",ExpressionUUID->"6e143f26-c6bd-44b7-a20a-d9b93450045a"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.994074326891512*^9, 3.994074935779024*^9, + 3.994074974889886*^9, 3.99407501964223*^9, {3.994075073449995*^9, + 3.994075091090703*^9}}, + CellLabel-> + "Out[430]=",ExpressionUUID->"638c0066-2a47-4f7c-8e62-9d97a616f9e3"] +}, 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.994073690740699*^9, 3.994073690862359*^9}}, + CellLabel-> + "In[431]:=",ExpressionUUID->"9306094a-05a0-4f8f-a845-c5e177318cbc"], + +Cell[BoxData["66"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, 3.994074326904242*^9, 3.994074935791787*^9, + 3.9940749749005938`*^9, 3.994075019653521*^9, {3.994075073461108*^9, + 3.994075091102222*^9}}, + CellLabel-> + "Out[431]=",ExpressionUUID->"0d146129-6fda-469d-aaa6-446ac94d1c2e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, {3.994073693453496*^9, 3.9940736957455587`*^9}}, + CellLabel-> + "In[432]:=",ExpressionUUID->"585538e8-f108-4c55-ae2d-a725785abf30"], + +Cell[BoxData["28"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.994074326916279*^9, 3.9940749358034363`*^9, + 3.99407497491004*^9, 3.994075019663575*^9, {3.994075073471445*^9, + 3.994075091112747*^9}}, + CellLabel-> + "Out[432]=",ExpressionUUID->"c039b2c0-c1b7-4f4d-ab11-f06f1e8e7c92"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel-> + "In[433]:=",ExpressionUUID->"97bca7ac-ba3f-42c3-823a-5e52a461adf8"], + +Cell[BoxData["70"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.994074326928279*^9, 3.994074935814618*^9, + 3.994074974919529*^9, 3.994075019673669*^9, {3.9940750734815598`*^9, + 3.9940750911232967`*^9}}, + CellLabel-> + "Out[433]=",ExpressionUUID->"6f07860c-5857-4452-b7cb-d589d7d12517"] +}, 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[434]:=",ExpressionUUID->"5e0f746f-61a4-497b-a535-07508ad6f848"], + +Cell[BoxData["0.1087764705882353`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9940743269397917`*^9, 3.994074935826476*^9, + 3.994074974929028*^9, 3.994075019683881*^9, {3.994075073492182*^9, + 3.994075091133902*^9}}, + CellLabel-> + "Out[434]=",ExpressionUUID->"acd501c3-a338-433a-9eea-8d93b27dc7b6"] +}, 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[435]:=",ExpressionUUID->"e2224fe5-7fb9-4e84-b205-303205bdefd4"], + +Cell[BoxData[ + RowBox[{"-", "2.5658588235294117`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.994074326951318*^9, 3.9940749358379097`*^9, + 3.9940749749388123`*^9, 3.994075019694408*^9, {3.994075073502742*^9, + 3.9940750911440773`*^9}}, + CellLabel-> + "Out[435]=",ExpressionUUID->"ffad908c-912a-49e8-90fd-34c352b9c9cb"] +}, 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[436]:=",ExpressionUUID->"15d38e2e-3604-480d-9612-69d8f22a5340"], + +Cell[BoxData["17.474387700041003`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.994074326963644*^9, 3.99407493585293*^9, + 3.994074974948763*^9, 3.9940750197049227`*^9, {3.994075073513197*^9, + 3.9940750911556253`*^9}}, + CellLabel-> + "Out[436]=",ExpressionUUID->"1d0f3d04-7cec-46b2-86c6-fb02e9438d08"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel-> + "In[437]:=",ExpressionUUID->"a2181dac-7825-479f-b3f7-7d4307fe8f3d"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.994074326975409*^9, 3.994074935865913*^9, + 3.994074974958894*^9, 3.9940750197157593`*^9, {3.994075073523876*^9, + 3.99407509116647*^9}}, + CellLabel-> + "Out[437]=",ExpressionUUID->"45584973-5d3a-4cda-b8f4-c16e0f3b1434"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "1.895"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { + 3.9940737081112833`*^9, 3.994073709172043*^9}}, + CellLabel-> + "In[438]:=",ExpressionUUID->"2bfa74b1-b31e-4d1b-bd69-2b0c4f35294f"], + +Cell[BoxData["1.895`"], "Output", + CellChangeTimes->{ + 3.99407432698682*^9, 3.994074935879013*^9, 3.994074974974915*^9, + 3.994075019726281*^9, {3.994075073534071*^9, 3.994075091176951*^9}}, + CellLabel-> + "Out[438]=",ExpressionUUID->"7e020882-109d-482d-88f5-78b459c2ac67"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel-> + "In[439]:=",ExpressionUUID->"82f366d1-b423-48e2-8f7f-e260eab3cc90"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.785"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.994073711335288*^9, 3.994073712564888*^9}}, + CellLabel-> + "In[440]:=",ExpressionUUID->"6d0c910a-a04a-4526-beb8-a5baa60bc8fa"], + +Cell[BoxData["0.785`"], "Output", + CellChangeTimes->{ + 3.994074327001001*^9, 3.994074935894207*^9, 3.994074974988394*^9, + 3.9940750197399607`*^9, {3.994075073548934*^9, 3.994075091190888*^9}}, + CellLabel-> + "Out[440]=",ExpressionUUID->"cd6f236b-43e8-4575-bc66-a686b1bc7b8b"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel-> + "In[441]:=",ExpressionUUID->"b7033cf9-26f0-4f8d-a018-e3f3e0e21657"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "2.605"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.9940737150021257`*^9, 3.994073716213628*^9}}, + CellLabel-> + "In[442]:=",ExpressionUUID->"53284a79-2a40-4ddf-9665-90f2bea0ca7a"], + +Cell[BoxData["2.605`"], "Output", + CellChangeTimes->{ + 3.99407432701412*^9, 3.994074935907247*^9, 3.994074975000514*^9, + 3.994075019753892*^9, {3.994075073561831*^9, 3.994075091203961*^9}}, + CellLabel-> + "Out[442]=",ExpressionUUID->"5826ca9c-3a2d-433e-b21f-ef0d95635b74"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel-> + "In[443]:=",ExpressionUUID->"35de1d89-3842-4102-8886-8963b779c8f3"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.125"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, {3.994073720159833*^9, 3.9940737213308268`*^9}}, + CellLabel-> + "In[444]:=",ExpressionUUID->"34a03e26-3ef6-4224-91c0-3919b80256a8"], + +Cell[BoxData["1.125`"], "Output", + CellChangeTimes->{ + 3.9940743270271187`*^9, 3.994074935920094*^9, 3.994074975012611*^9, + 3.994075019766945*^9, {3.99407507357449*^9, 3.994075091216796*^9}}, + CellLabel-> + "Out[444]=",ExpressionUUID->"4e192d79-d65f-4f2c-8251-6d1e5425dbfd"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel-> + "In[445]:=",ExpressionUUID->"e5faaea7-83bd-40b1-910e-f91ea67907ba"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.145"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, {3.9940737243709307`*^9, + 3.9940737264630413`*^9}}, + CellLabel-> + "In[446]:=",ExpressionUUID->"71ef7802-0384-44a9-b2f7-055696206568"], + +Cell[BoxData["1.145`"], "Output", + CellChangeTimes->{ + 3.9940743270398684`*^9, 3.994074935932911*^9, 3.994074975024604*^9, + 3.994075019782*^9, {3.994075073587862*^9, 3.9940750912294607`*^9}}, + CellLabel-> + "Out[446]=",ExpressionUUID->"065dc7d4-fd1e-4162-bb13-31615374f1cf"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel-> + "In[447]:=",ExpressionUUID->"c38a225e-16ac-4173-8b77-ba3fa4a8a6b0"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.565"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.9940737287627993`*^9, + 3.994073731586865*^9}}, + CellLabel-> + "In[448]:=",ExpressionUUID->"74130078-2486-4980-9abc-f65d3f8b532e"], + +Cell[BoxData["0.565`"], "Output", + CellChangeTimes->{ + 3.994074327052676*^9, 3.994074935945746*^9, 3.994074975036669*^9, + 3.994075019795862*^9, {3.994075073601301*^9, 3.9940750912417994`*^9}}, + CellLabel-> + "Out[448]=",ExpressionUUID->"8d4a7c08-4940-4988-9878-689145082c92"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel-> + "In[449]:=",ExpressionUUID->"8830e9a5-1b52-4167-be80-e38579b52fe2"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "1.5"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.994073736277706*^9, + 3.994073737300967*^9}}, + CellLabel-> + "In[450]:=",ExpressionUUID->"7ffcde28-2645-4dce-810e-6960d04b5265"], + +Cell[BoxData["1.5`"], "Output", + CellChangeTimes->{ + 3.994074327065536*^9, 3.9940749359585743`*^9, 3.994074975048807*^9, + 3.9940750198098516`*^9, {3.9940750736145077`*^9, 3.994075091254464*^9}}, + CellLabel-> + "Out[450]=",ExpressionUUID->"34af5f12-6b37-40e2-a51a-80e820da2559"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel-> + "In[451]:=",ExpressionUUID->"534834d7-c99a-4c8b-8bf6-062f6ae916aa"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "0.635"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, {3.994073740255535*^9, 3.994073742830049*^9}}, + CellLabel-> + "In[452]:=",ExpressionUUID->"135ee35f-8ffd-4924-b26f-b5459b9e110b"], + +Cell[BoxData["0.635`"], "Output", + CellChangeTimes->{ + 3.99407432707825*^9, 3.994074935971406*^9, 3.994074975061311*^9, + 3.994075019822795*^9, {3.994075073627393*^9, 3.994075091268227*^9}}, + CellLabel-> + "Out[452]=",ExpressionUUID->"ea2d5a72-20f2-40d8-960a-24f2a78badff"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel-> + "In[453]:=",ExpressionUUID->"c56c1ddb-b12d-4422-bf29-3b0b01c42f00"], + +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[454]:=",ExpressionUUID->"f68497d7-f76f-494c-8ef6-957d51a34243"], + +Cell[BoxData["0.12734722137174234`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.9940743271585913`*^9, 3.994074936065404*^9, + 3.9940749751004868`*^9, 3.9940750198601313`*^9, {3.9940750736645*^9, + 3.994075091306961*^9}}, + CellLabel-> + "Out[454]=",ExpressionUUID->"a28a9f72-8e9e-47a9-b3f4-bc795be1bf42"] +}, 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[455]:=",ExpressionUUID->"78d34269-346e-45af-a043-7c2873164ad0"], + +Cell[BoxData["7.503764283698204`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9940743271979237`*^9, 3.994074936098249*^9, + 3.994074975128014*^9, 3.994075019886159*^9, {3.994075073691079*^9, + 3.994075091332656*^9}}, + CellLabel-> + "Out[455]=",ExpressionUUID->"13855b8e-81c8-4d5d-b355-a789b0e64673"] +}, 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[456]:=",ExpressionUUID->"1753f734-cfd4-40c6-94a3-98cc442028d6"], + +Cell[BoxData[ + RowBox[{"-", "14.220629552114458`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.9940743272387447`*^9, 3.9940749361294937`*^9, + 3.994074975156514*^9, 3.994075019911666*^9, {3.9940750737180433`*^9, + 3.994075091358534*^9}}, + CellLabel-> + "Out[456]=",ExpressionUUID->"7cb5d14d-9770-47e2-a6f8-19d4b435743e"] +}, 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[457]:=",ExpressionUUID->"1533e185-520c-4b06-a810-4fff825ed6e3"], + +Cell[BoxData[ + RowBox[{"-", "18.05754390959481`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.994074327278555*^9, 3.9940749361661787`*^9, + 3.9940749751890287`*^9, 3.994075019948382*^9, {3.994075073748582*^9, + 3.99407509139049*^9}}, + CellLabel-> + "Out[457]=",ExpressionUUID->"45c7995d-c0e8-47b6-a4f6-d0e532ba365e"] +}, 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[458]:=",ExpressionUUID->"48f0ab0f-99ff-430c-ae9a-cae1ff11d0d4"], + +Cell[BoxData[ + RowBox[{"-", "51.76635903245878`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.994074327318758*^9, 3.9940749362040663`*^9, + 3.9940749752210827`*^9, 3.994075019983523*^9, {3.9940750737782516`*^9, + 3.994075091423628*^9}}, + CellLabel-> + "Out[458]=",ExpressionUUID->"90adaa06-9cb2-4c80-84e5-03ac35947e75"] +}, 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[459]:=",ExpressionUUID->"2e857b96-d62e-443e-96bd-c5f4027b4f4b"], + +Cell[BoxData[ + RowBox[{"-", "131.16526179683018`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.994074327362462*^9, 3.994074936248407*^9, + 3.99407497525825*^9, 3.994075020024899*^9, {3.994075073816177*^9, + 3.9940750914627743`*^9}}, + CellLabel-> + "Out[459]=",ExpressionUUID->"344aa463-5250-48bf-a7c9-25db18dc062f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel-> + "In[460]:=",ExpressionUUID->"b10475d2-3167-4670-99eb-cbdcff897155"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.9940743273758507`*^9, 3.994074936262808*^9, + 3.994074975269576*^9, 3.99407502003885*^9, {3.994075073828107*^9, + 3.994075091476185*^9}}, + CellLabel-> + "Out[460]=",ExpressionUUID->"48a44076-b792-40d6-94ea-e5e93bd32a46"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel-> + "In[461]:=",ExpressionUUID->"bb87416f-6346-4cf4-a693-31a8607807dd"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.994074327386962*^9, 3.9940749362749443`*^9, + 3.99407497527983*^9, 3.994075020050624*^9, {3.994075073838533*^9, + 3.994075091486505*^9}}, + CellLabel-> + "Out[461]=",ExpressionUUID->"30f697c8-90d9-43ec-acde-aca91b3bab9a"] +}, 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[462]:=",ExpressionUUID->"8bd5d07d-3777-48b8-9134-a98d0c5e6a3c"], + +Cell[BoxData["102.57012833062927`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.9940743273966637`*^9, 3.994074936286751*^9, + 3.994074975289721*^9, 3.994075020061038*^9, {3.9940750738489656`*^9, + 3.994075091497402*^9}}, + CellLabel-> + "Out[462]=",ExpressionUUID->"e38fe0b7-4224-47cf-aa68-b513fd72c7f5"] +}, 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[463]:=",ExpressionUUID->"21c2ba5f-8c84-456a-866a-d59808603e16"], + +Cell[BoxData[ + RowBox[{"-", "89.85372860437164`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.994074327406303*^9, 3.9940749362972116`*^9, + 3.994074975299696*^9, 3.994075020070904*^9, {3.994075073859618*^9, + 3.994075091508032*^9}}, + CellLabel-> + "Out[463]=",ExpressionUUID->"55ce79d7-0043-47a4-b4c8-43064e4fda97"] +}, 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[464]:=",ExpressionUUID->"0d3f7a6f-e62d-4e5d-9bf5-33c7c1aa96fa"], + +Cell[BoxData["106.05157029710364`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9940743274159946`*^9, 3.994074936339744*^9, + 3.99407497530958*^9, 3.994075020080964*^9, {3.994075073870014*^9, + 3.994075091518471*^9}}, + CellLabel-> + "Out[464]=",ExpressionUUID->"5a2a7e66-6a1a-42da-aa4e-82d9cdb3b900"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel-> + "In[465]:=",ExpressionUUID->"51091a04-ee5c-44c8-9b87-7f6eab0f54d4"], + +Cell[BoxData["0.4215025991580821`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.9940743274252653`*^9, 3.994074936349539*^9, + 3.994074975319766*^9, 3.99407502009256*^9, {3.994075073880959*^9, + 3.99407509152868*^9}}, + CellLabel-> + "Out[465]=",ExpressionUUID->"96e0f1e0-ae5f-4aa1-9e87-b05302102c04"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel-> + "In[466]:=",ExpressionUUID->"aa8664e9-7a0d-4329-a494-0b9235ba70bd"], + +Cell[BoxData[ + RowBox[{"-", "0.08696983109232953`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.9940749363615837`*^9, 3.994074975323977*^9, + 3.994075020102562*^9, {3.994075073891796*^9, 3.994075091539506*^9}}, + CellLabel-> + "Out[466]=",ExpressionUUID->"1fd4dc44-78d3-4bec-88c6-5f3004e320b3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel-> + "In[467]:=",ExpressionUUID->"8ad16100-9963-455d-bb4a-18485cc6a462"], + +Cell[BoxData[ + RowBox[{"-", "0.5569156814457635`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.994074936371666*^9, 3.994074975333539*^9, + 3.99407502011357*^9, {3.994075073902575*^9, 3.994075091549716*^9}}, + CellLabel-> + "Out[467]=",ExpressionUUID->"86fffbfa-5c5d-4ed7-94a2-e95b3eb6a461"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel-> + "In[468]:=",ExpressionUUID->"5362a78a-eafb-4101-84fc-a110bd990c05"], + +Cell[BoxData["0.7095150675393332`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.994074936381706*^9, 3.994074975343092*^9, + 3.994075020123022*^9, {3.994075073912849*^9, 3.99407509155998*^9}}, + CellLabel-> + "Out[468]=",ExpressionUUID->"8f9b014e-aa60-4461-9d31-d7c041656133"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel-> + "In[469]:=",ExpressionUUID->"ab8298db-eb89-468c-9f30-8b26a0639fed"], + +Cell[BoxData["2.2478963955971953`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.994074936391926*^9, 3.994074975352632*^9, + 3.99407502013336*^9, {3.994075073923398*^9, 3.994075091570552*^9}}, + CellLabel-> + "Out[469]=",ExpressionUUID->"d426c2dd-db45-4cde-b59d-cbf17cd96c57"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel-> + "In[470]:=",ExpressionUUID->"15afe09a-545b-456c-b862-783499a9aa3e"], + +Cell[BoxData["1.4243583722932822`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.994074936401989*^9, 3.994074975362446*^9, + 3.9940750201447487`*^9, {3.9940750739335833`*^9, 3.994075091580728*^9}}, + CellLabel-> + "Out[470]=",ExpressionUUID->"f554d23f-b187-4b9f-a7d9-ae4231f6c6bd"] +}, 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[471]:=",ExpressionUUID->"d2cee077-a240-4c98-8e64-6034cd291aad"], + +Cell[BoxData[ + RowBox[{"-", "33.35096235519822`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.994074936412284*^9, 3.994074975373137*^9, + 3.994075020154063*^9, {3.994075073943824*^9, 3.99407509159135*^9}}, + CellLabel-> + "Out[471]=",ExpressionUUID->"c73fd9b3-ab13-41b7-98b1-ec37e2936624"] +}, 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[472]:=",ExpressionUUID->"52944921-5af5-4c21-a7ae-13086ddc9cd1"], + +Cell[BoxData[ + RowBox[{"-", "6.430095836913352`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.994074936422553*^9, 3.994074975386326*^9, + 3.9940750201636887`*^9, {3.994075073954281*^9, 3.9940750916019077`*^9}}, + CellLabel-> + "Out[472]=",ExpressionUUID->"a3630ce9-ef03-450a-8517-62db7645491a"] +}, 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[473]:=",ExpressionUUID->"d5fd357f-fd90-433e-8ded-24de79601f6c"], + +Cell[BoxData["69.21916597543105`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.994074936433895*^9, 3.994074975398871*^9, + 3.994075020173421*^9, {3.994075073964881*^9, 3.994075091612443*^9}}, + CellLabel-> + "Out[473]=",ExpressionUUID->"7a5076e9-e527-4503-81c4-86cb6ce0e74c"] +}, 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[474]:=",ExpressionUUID->"2d3e2067-d5af-489d-ac0b-6d494a615060"], + +Cell[BoxData[ + RowBox[{"-", "89.85372860437164`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.9940749364442453`*^9, 3.994074975409512*^9, + 3.9940750201838827`*^9, {3.994075073975268*^9, 3.994075091623101*^9}}, + CellLabel-> + "Out[474]=",ExpressionUUID->"6565c76d-b318-481c-95be-db18f4ec6ff7"] +}, 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[475]:=",ExpressionUUID->"67723656-50a5-49b8-8d0f-139bec049352"], + +Cell[BoxData["99.62147446019029`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.9940749364549513`*^9, 3.9940749754197397`*^9, + 3.99407502019348*^9, {3.994075073985984*^9, 3.994075091633762*^9}}, + CellLabel-> + "Out[475]=",ExpressionUUID->"c7a01b89-358f-4ad6-9168-8545a79e20e8"] +}, 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[476]:=",ExpressionUUID->"4335829d-0808-4d97-a0f4-f678101e0a58"], + +Cell[BoxData["40.3202486570226`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.994074936466222*^9, 3.994074975429769*^9, + 3.9940750202031527`*^9, {3.99407507399641*^9, 3.994075091644145*^9}}, + CellLabel-> + "Out[476]=",ExpressionUUID->"c02b99d0-639a-4df5-a73a-9065ee8890b7"] +}, 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[477]:=",ExpressionUUID->"d62b6b99-b96c-485c-87cb-c0a9062a99c6"], + +Cell[BoxData["624.5259763904654`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.994074936476499*^9, 3.994074975439941*^9, + 3.994075020213862*^9, {3.994075074006929*^9, 3.994075091654208*^9}}, + CellLabel-> + "Out[477]=",ExpressionUUID->"740b69e0-a972-4090-a479-ecd2691cd4e7"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"f1", "=", "0.466369126"}]], "Input", + CellChangeTimes->{ + 3.9918501413985214`*^9, {3.9942355154034843`*^9, + 3.994235536476674*^9}},ExpressionUUID->"5894836c-9594-0940-b94c-\ 299085c765cc"], Cell[BoxData[""], "Input", @@ -30,9 +9829,9 @@ Cell[BoxData[""], "Input", 8fab318cd4b7"], Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", - CellChangeTimes->{ - 3.9918501402114105`*^9},ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-\ + RowBox[{"f2", "=", "0.1888262039"}]], "Input", + CellChangeTimes->{3.9918501402114105`*^9, + 3.994235547153337*^9},ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-\ 092c5143dcf0"], Cell[BoxData[""], "Input", @@ -2818,9 +12617,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.005449"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.016155"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.026309"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.035566"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.043662"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.050365"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.05556"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.059166"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.061228"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.061803"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.061061"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.059155"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.056323"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.05275"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.048682"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.044291"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.039784"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.035286"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.030946"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.026832"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.023034"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.01957"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.016479"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.013745"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.011373"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.009328"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.007596"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.006134"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.004922"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.003918"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.003101"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.9942355752784367`*^9},ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-\ b938908ab9a4"], Cell[BoxData[ @@ -9132,12 +18994,18 @@ Cell[BoxData[ d2cfa007cfcf"], Cell[BoxData["0.11028946354837708`"], "Output",ExpressionUUID->"8f1edf59-aed7-914f-9d19-1949d2a555d6"] -}, Open ]] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input", + CellChangeTimes->{{3.994235690673896*^9, + 3.994235696103387*^9}},ExpressionUUID->"5860aea8-afeb-4d17-a86c-\ +19f24e0a5bcc"] }, -WindowSize->{718.5, 729.75}, -WindowMargins->{{6, Automatic}, {Automatic, 4.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 +19020,870 @@ 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, 453, 8, 36, "Input",ExpressionUUID->"81b527e9-1a4a-4a72-b90f-3535b7c3d89c"], +Cell[1032, 32, 302, 6, 41, "Output",ExpressionUUID->"07f0787f-581a-4439-9d6d-37f725e93a51"] }, 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[1371, 43, 255, 5, 36, "Input",ExpressionUUID->"134c5a5b-fb7e-4fc8-b759-5838444ed063"], +Cell[1629, 50, 305, 6, 41, "Output",ExpressionUUID->"c39f08c8-842b-409d-83a7-ee4f988a36de"] }, 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[1971, 61, 226, 5, 36, "Input",ExpressionUUID->"b43c51b8-3564-4e75-973a-9cc22cbf1ac4"], +Cell[2200, 68, 300, 6, 41, "Output",ExpressionUUID->"fbf78345-d43f-497e-9785-8d0970ea6f6b"] }, 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[2537, 79, 180, 4, 36, "Input",ExpressionUUID->"5797654b-52b1-44d0-a8d9-179c3e288f61"], +Cell[2720, 85, 303, 6, 41, "Output",ExpressionUUID->"6cbad377-4ab0-4ccc-9211-9dd75f8afb60"] }, 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[3060, 96, 262, 8, 54, "Input",ExpressionUUID->"55247566-8120-4655-a71a-f0839cd707d9"], +Cell[3325, 106, 317, 6, 41, "Output",ExpressionUUID->"442e9716-3d2a-4108-9a0f-d1ac5ab6c9ee"] }, 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[3679, 117, 136, 3, 36, "Input",ExpressionUUID->"9be26ed7-edeb-4da5-a549-86a2c4581309"], +Cell[3818, 122, 309, 6, 41, "Output",ExpressionUUID->"5b996026-7e1d-495a-b544-8cb3b0822826"] }, 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[4164, 133, 281, 7, 36, "Input",ExpressionUUID->"4cbcc918-98e8-460e-9080-638d3804e3f5"], +Cell[4448, 142, 321, 6, 41, "Output",ExpressionUUID->"0efc00a8-ae19-42aa-996a-3bef55caec17"] }, 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[4806, 153, 262, 8, 36, "Input",ExpressionUUID->"22ff34f5-3764-46f1-b790-637cf5aaf7d0"], +Cell[5071, 163, 320, 6, 41, "Output",ExpressionUUID->"2b733097-549c-4317-85bc-0cf633ba2f8e"] }, 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[5428, 174, 208, 4, 36, "Input",ExpressionUUID->"6834db87-b122-4ba9-8997-2a6808e2a7fa"], +Cell[5639, 180, 288, 5, 41, "Output",ExpressionUUID->"f308de37-a60d-4d54-ba06-dd2efcdbc402"] }, 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[5964, 190, 210, 4, 36, "Input",ExpressionUUID->"78c225f3-4236-4030-be10-19a9eb0e8500"], +Cell[6177, 196, 288, 5, 41, "Output",ExpressionUUID->"31a6958c-ca23-41dd-87c2-450329edba5d"] }, 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[6502, 206, 133, 3, 40, "Input",ExpressionUUID->"c954b44c-22ac-4023-bfd3-2d72e9cda875"], +Cell[6638, 211, 300, 6, 45, "Output",ExpressionUUID->"d3894bce-5251-446d-9675-10f0ffe5230f"] }, 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[6975, 222, 133, 3, 40, "Input",ExpressionUUID->"3f3cd860-e5a5-4f15-a7ef-da034b5da88b"], +Cell[7111, 227, 301, 6, 45, "Output",ExpressionUUID->"0d32f0e0-50c7-4b58-8e3b-bb7c495b5d3c"] }, 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[7449, 238, 561, 20, 109, "Input",ExpressionUUID->"4ae63ea4-9ceb-446d-85b8-3f2529094ea8"], +Cell[8013, 260, 320, 6, 45, "Output",ExpressionUUID->"f931dc3a-cc55-4dd2-bc48-1dda79a3bded"] }, 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[8370, 271, 561, 20, 109, "Input",ExpressionUUID->"07a2d665-3e57-46fe-a011-636961fd623b"], +Cell[8934, 293, 317, 6, 45, "Output",ExpressionUUID->"c6ee6a11-2260-4ea7-98e1-b4922dd7d924"] }, 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[9288, 304, 1592, 51, 188, "Input",ExpressionUUID->"a1b528f2-606b-46cc-ab92-6f748f78f2ad"], +Cell[10883, 357, 317, 6, 45, "Output",ExpressionUUID->"2b5198b1-074d-4859-b5c7-4baae7a5ff32"] }, 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[11237, 368, 1426, 47, 155, "Input",ExpressionUUID->"0be2b1e0-cb10-4a08-ab94-bf55fd089016"], +Cell[12666, 417, 334, 7, 45, "Output",ExpressionUUID->"c78eec67-2fc1-4d16-a49e-c1de3d508601"] }, 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[13037, 429, 1426, 47, 155, "Input",ExpressionUUID->"98c397be-c84e-4e6d-b795-6b135f8bf1f7"], +Cell[14466, 478, 341, 7, 45, "Output",ExpressionUUID->"6812a211-e1c4-478a-ab97-09a4444900b3"] }, 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[14844, 490, 1496, 49, 111, "Input",ExpressionUUID->"bc2e9ecb-9f98-4a9d-a794-eed238079895"], +Cell[16343, 541, 318, 6, 45, "Output",ExpressionUUID->"8b8c9dcd-123b-40ff-a496-360706c20e12"] }, 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[16698, 552, 135, 3, 40, "Input",ExpressionUUID->"10ca4ab8-d4d1-4e93-96ba-6d736cbe4e69"], +Cell[16836, 557, 302, 6, 45, "Output",ExpressionUUID->"0d0b47ad-7c92-4ad7-8075-47b9bcb98d7b"] }, 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[17175, 568, 137, 3, 40, "Input",ExpressionUUID->"7e0d93aa-f871-45de-8331-4f903699483e"], +Cell[17315, 573, 303, 6, 45, "Output",ExpressionUUID->"59f9bf8b-cd38-4c14-b4df-237c8dbd073c"] }, 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[17655, 584, 138, 3, 40, "Input",ExpressionUUID->"aa33af73-769e-4a25-b7cf-91f1615de0b8"], +Cell[17796, 589, 304, 6, 45, "Output",ExpressionUUID->"eb6413cf-902a-44a2-bb52-7931a4cb1a88"] }, 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[18137, 600, 223, 5, 40, "Input",ExpressionUUID->"d55f4443-2ba8-4c0a-96a1-424b50e81576"], +Cell[18363, 607, 321, 7, 45, "Output",ExpressionUUID->"f7a3dcc3-f3d3-415d-88e8-bf068b3fcd03"] }, 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[18721, 619, 138, 3, 40, "Input",ExpressionUUID->"52ae6f0b-9fef-418d-b34f-d0156c471818"], +Cell[18862, 624, 303, 6, 45, "Output",ExpressionUUID->"44896276-b91a-483b-aacd-639012eb5a03"] }, 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[19202, 635, 326, 6, 40, "Input",ExpressionUUID->"0f22a465-82d4-444b-a05c-243d880f3c9c"], +Cell[19531, 643, 303, 6, 45, "Output",ExpressionUUID->"f7ceba86-6ad8-40a3-9e7c-fa74a2e46f89"] }, 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[19871, 654, 302, 6, 40, "Input",ExpressionUUID->"674f5b65-3f95-499c-ae0e-149d7ff5bbea"], +Cell[20176, 662, 302, 6, 45, "Output",ExpressionUUID->"d2a06cb7-d102-4bee-b038-393092cf6ff7"] }, 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[20515, 673, 223, 5, 40, "Input",ExpressionUUID->"419fa898-845d-4e55-b445-f18a32d77680"], +Cell[20741, 680, 303, 6, 45, "Output",ExpressionUUID->"fdb2a482-89e7-4e1c-ba40-14f45a3ea955"] }, 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[21081, 691, 354, 11, 59, "Input",ExpressionUUID->"ba616683-0f1c-4d79-a9fe-9e7bb0668997"], +Cell[21438, 704, 320, 6, 45, "Output",ExpressionUUID->"90712c98-beeb-4a8a-a41c-11095ade9b01"] }, 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[21795, 715, 354, 11, 59, "Input",ExpressionUUID->"a585b481-0438-4e38-a5db-e58c3f347d51"], +Cell[22152, 728, 341, 7, 45, "Output",ExpressionUUID->"56ad2987-614e-4ac2-b3f5-f9ab5b085e41"] }, 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[22530, 740, 998, 27, 60, "Input",ExpressionUUID->"9df59fdf-3144-4ce6-ac26-b866533ca4bd"], +Cell[23531, 769, 321, 6, 45, "Output",ExpressionUUID->"78251514-3973-44e8-8212-9aff757fa46a"] }, 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[23889, 780, 203, 4, 40, "Input",ExpressionUUID->"c6804401-99e6-4312-84b8-003a58fc9e74"], +Cell[24095, 786, 301, 6, 45, "Output",ExpressionUUID->"2668198c-24b3-44fe-8bb5-23aee1d84d93"] }, 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[24433, 797, 333, 6, 40, "Input",ExpressionUUID->"abb24b70-6e69-40b5-8e99-1e6fc0f229c6"], +Cell[24769, 805, 276, 5, 45, "Output",ExpressionUUID->"bb84bf09-67d5-4828-ae2e-9bf840698a86"] +}, Open ]], +Cell[25060, 813, 177, 3, 40, "Input",ExpressionUUID->"2033be30-ce42-461b-9483-9d9fe4970881"], +Cell[CellGroupData[{ +Cell[25262, 820, 331, 6, 40, "Input",ExpressionUUID->"94550ac3-3438-49b5-b74e-e8d552b88948"], +Cell[25596, 828, 279, 5, 45, "Output",ExpressionUUID->"1df62af1-d286-4890-8f5d-30b72d2daff6"] +}, Open ]], +Cell[25890, 836, 177, 3, 40, "Input",ExpressionUUID->"9e0c9678-3423-4776-87d8-a635992f4d12"], +Cell[CellGroupData[{ +Cell[26092, 843, 334, 6, 40, "Input",ExpressionUUID->"51045f82-8d11-44c3-9364-24648a013a2e"], +Cell[26429, 851, 276, 5, 45, "Output",ExpressionUUID->"44f95c9b-18e3-48a0-b3db-0568974168ad"] +}, Open ]], +Cell[26720, 859, 177, 3, 40, "Input",ExpressionUUID->"0eb0248c-9222-4513-961b-455d0864b215"], +Cell[CellGroupData[{ +Cell[26922, 866, 358, 6, 40, "Input",ExpressionUUID->"e2d3a0dc-7fed-48de-b89a-2c0157c5fbb3"], +Cell[27283, 874, 278, 5, 45, "Output",ExpressionUUID->"7ff7b5a3-6281-40ae-a27a-2e8606d239c8"] +}, Open ]], +Cell[27576, 882, 175, 3, 40, "Input",ExpressionUUID->"5ff06203-ae66-4fd9-9d55-92540c3e7ba7"], +Cell[CellGroupData[{ +Cell[27776, 889, 307, 6, 40, "Input",ExpressionUUID->"78d24afd-74f6-40f2-a8d0-785bc780349c"], +Cell[28086, 897, 278, 5, 45, "Output",ExpressionUUID->"529bdeb2-c753-42f1-9090-88df1be4716b"] +}, Open ]], +Cell[28379, 905, 175, 3, 40, "Input",ExpressionUUID->"f8eaba12-c009-4373-85c6-cc8eb648d821"], +Cell[CellGroupData[{ +Cell[28579, 912, 309, 6, 40, "Input",ExpressionUUID->"9a47dda6-f61c-467d-a2a7-1ad99c2ec831"], +Cell[28891, 920, 279, 5, 45, "Output",ExpressionUUID->"64e2d668-4442-49ad-b2da-b50a933e0d0c"] +}, Open ]], +Cell[29185, 928, 177, 3, 40, "Input",ExpressionUUID->"4ce2f91d-123e-4fd5-9ad4-7c55cfd9f644"], +Cell[CellGroupData[{ +Cell[29387, 935, 308, 6, 40, "Input",ExpressionUUID->"00b90950-380c-4ad7-bdb9-9b9016abdda2"], +Cell[29698, 943, 281, 5, 45, "Output",ExpressionUUID->"1bf8ef89-cb3f-48b2-ba4c-976d1a5b2dba"] +}, Open ]], +Cell[29994, 951, 176, 3, 40, "Input",ExpressionUUID->"8f369104-d5c5-476d-8d7a-af83e1b30d17"], +Cell[CellGroupData[{ +Cell[30195, 958, 279, 5, 40, "Input",ExpressionUUID->"f1ee930f-df89-4ccf-8a09-e2d7b3b8e0b5"], +Cell[30477, 965, 276, 5, 45, "Output",ExpressionUUID->"9d21e662-f4a0-440f-873e-7a28287ce341"] +}, Open ]], +Cell[30768, 973, 179, 3, 40, "Input",ExpressionUUID->"86b52cef-b172-4954-b709-1f6c41e2feab"], +Cell[CellGroupData[{ +Cell[30972, 980, 19813, 486, 1845, "Input",ExpressionUUID->"761aab7f-a618-4bb2-9981-34a333242c95"], +Cell[50788, 1468, 321, 6, 45, "Output",ExpressionUUID->"da1d140f-d2ea-4b89-a4a0-e015a1955f1b"] }, 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[51146, 1479, 19752, 490, 1859, "Input",ExpressionUUID->"4e5c5ac6-229a-4cbf-84e4-e21aa5975ed7"], +Cell[70901, 1971, 317, 6, 45, "Output",ExpressionUUID->"de40f40d-3522-4fa6-9672-aeed9d5cc67f"] }, 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[71255, 1982, 19752, 484, 1858, "Input",ExpressionUUID->"b6e1c50f-453f-4f08-9bb8-406c60c96df1"], +Cell[91010, 2468, 339, 7, 45, "Output",ExpressionUUID->"ccf5e2ec-b2de-4012-877b-25e7811a88c9"] }, 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[91386, 2480, 22538, 554, 2037, "Input",ExpressionUUID->"b1144424-b828-459f-9f8e-0fe461d33ea3"], +Cell[113927, 3036, 335, 7, 45, "Output",ExpressionUUID->"c840fd50-f566-4d91-963d-473db10d95e2"] }, 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[114299, 3048, 22539, 554, 2037, "Input",ExpressionUUID->"fadb9a7b-eff8-44cc-94cc-acd3f21ce013"], +Cell[136841, 3604, 340, 7, 45, "Output",ExpressionUUID->"b1f7ada8-b17f-4a15-9fa6-eec88e63a741"] }, 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[137218, 3616, 25495, 627, 2246, "Input",ExpressionUUID->"356916c3-d654-4d58-8f12-2f430ab9b5c1"], +Cell[162716, 4245, 334, 7, 45, "Output",ExpressionUUID->"1e1312dd-9d34-4d8e-8720-893eac72717e"] }, 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[163087, 4257, 134, 3, 40, "Input",ExpressionUUID->"6fdba6ea-9211-4186-ac47-3f23f522b52a"], +Cell[163224, 4262, 301, 6, 45, "Output",ExpressionUUID->"82a28b28-d91f-4f71-b960-99e442f4f8fe"] }, 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[163562, 4273, 134, 3, 40, "Input",ExpressionUUID->"ee67e7d8-cb19-4690-bde5-ffd8c12d3af6"], +Cell[163699, 4278, 301, 6, 45, "Output",ExpressionUUID->"dba9ec90-7702-4c85-b569-3be6822db3f8"] }, 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[164037, 4289, 1148, 40, 78, "Input",ExpressionUUID->"1182daf8-2f15-4198-b949-2c1fa7a543c4"], +Cell[165188, 4331, 320, 6, 45, "Output",ExpressionUUID->"a6a8d1ea-50f1-4283-aec3-45c24bf2786e"] }, 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[165545, 4342, 1045, 36, 78, "Input",ExpressionUUID->"0dcf7a55-ee33-4614-93c0-0e72222bcd7e"], +Cell[166593, 4380, 334, 7, 45, "Output",ExpressionUUID->"9fe7a3dc-e8ab-4b30-9548-af0c3094e4d6"] }, 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[166964, 4392, 1148, 40, 78, "Input",ExpressionUUID->"6e83f30d-8cdb-4e1c-b8a7-c6cb26789aec"], +Cell[168115, 4434, 319, 6, 45, "Output",ExpressionUUID->"2705791c-d2d7-41cd-b9bf-7e8432fcebb5"] }, 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[168471, 4445, 112, 2, 40, "Input",ExpressionUUID->"fc4e1618-32ec-4d47-ac59-d1e28e2df293"], +Cell[168586, 4449, 318, 6, 45, "Output",ExpressionUUID->"d985ee92-d209-4cd3-9974-9400d81a5bae"] }, 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[168941, 4460, 112, 2, 40, "Input",ExpressionUUID->"e93313e8-eb83-4efd-aa32-92a2c370bcb9"], +Cell[169056, 4464, 312, 6, 45, "Output",ExpressionUUID->"7fbbb59d-d23e-4283-babb-b90ab7faf890"] }, 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[169405, 4475, 112, 2, 40, "Input",ExpressionUUID->"9aa8886b-58cf-4323-9df2-f08d91b7ab7f"], +Cell[169520, 4479, 306, 6, 45, "Output",ExpressionUUID->"ee0130eb-724e-4293-b231-76ec6c27d217"] }, 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[169863, 4490, 112, 2, 40, "Input",ExpressionUUID->"bc4d44f9-6286-4fc7-87d7-4a141615ff3c"], +Cell[169978, 4494, 289, 5, 45, "Output",ExpressionUUID->"151187f2-ccbc-4db9-8cc1-5a2100e9a240"] }, 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[170304, 4504, 111, 2, 40, "Input",ExpressionUUID->"67840883-954c-47c3-a8fa-8b687de69b62"], +Cell[170418, 4508, 291, 5, 45, "Output",ExpressionUUID->"a254d151-fb54-4db5-be28-93af222ff9db"] }, 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[170746, 4518, 111, 2, 40, "Input",ExpressionUUID->"a271cd04-ea38-4071-a67e-0c886d87f1e6"], +Cell[170860, 4522, 296, 5, 45, "Output",ExpressionUUID->"a6b2e7bd-0d99-4e97-9f96-93074b1b5d79"] }, 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[171193, 4532, 501, 17, 77, "Input",ExpressionUUID->"b5662b85-47db-436d-a08e-10ba73aa5993"], +Cell[171697, 4551, 307, 6, 45, "Output",ExpressionUUID->"0df25805-9742-4d87-8e1b-eb2d12d70039"] }, 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[172041, 4562, 501, 17, 77, "Input",ExpressionUUID->"87d968ec-8f4f-4bbe-9075-1707aa31c21b"], +Cell[172545, 4581, 310, 6, 41, "Output",ExpressionUUID->"3258c19d-d6b5-4df2-8018-8ba9e3741593"] }, 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[172892, 4592, 1792, 61, 142, "Input",ExpressionUUID->"78cd79c7-7ff2-46f3-8433-a0a081ea00c6"], +Cell[174687, 4655, 291, 5, 41, "Output",ExpressionUUID->"de79af3a-0e3f-4a69-bd57-148e6fec3b57"] }, 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[175015, 4665, 1105, 37, 73, "Input",ExpressionUUID->"74094ace-1086-4ee6-b372-8a4db63634de"], +Cell[176123, 4704, 312, 6, 41, "Output",ExpressionUUID->"c5d0cf6a-eece-4f09-907a-80a09037fb8a"] }, 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[176472, 4715, 1822, 62, 144, "Input",ExpressionUUID->"00b1c57a-c808-4661-90df-5cc2c8ce592a"], +Cell[178297, 4779, 292, 5, 41, "Output",ExpressionUUID->"cb6c1c8e-222a-440a-a063-bbff58d14ce9"] }, 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[178626, 4789, 1635, 54, 101, "Input",ExpressionUUID->"e4b898ef-b009-4105-ba8b-ae4d254c5c7b"], +Cell[180264, 4845, 291, 5, 41, "Output",ExpressionUUID->"a4427087-22ef-4b60-ac6b-e2bb7ca02b24"] }, 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[180592, 4855, 1635, 54, 101, "Input",ExpressionUUID->"90d90135-22e2-4a5c-a5c7-a83223d75bfd"], +Cell[182230, 4911, 289, 5, 41, "Output",ExpressionUUID->"a1bc32c6-af80-4e29-b006-ef19da17b909"] }, 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"] -}, Open ]], -Cell[371689, 8793, 209, 5, 70, "Input",ExpressionUUID->"54d9c986-d109-3d4c-9ee8-76427bb63659"], -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[182556, 4921, 453, 8, 36, "Input",ExpressionUUID->"b9510d34-a584-4a0b-98f3-c4e78b02c45f"], +Cell[183012, 4931, 302, 6, 41, "Output",ExpressionUUID->"82a356e3-ceb6-4f2d-8bb2-07b5492c64c8"] }, 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[183351, 4942, 255, 5, 36, "Input",ExpressionUUID->"526bbada-818a-43ae-a5e7-84d27538ffc1"], +Cell[183609, 4949, 305, 6, 41, "Output",ExpressionUUID->"fd0e3e99-c68d-4c0b-9f70-ba55d633f53f"] }, 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[183951, 4960, 226, 5, 36, "Input",ExpressionUUID->"1f5d1f43-3157-43e3-8128-9a3651e366c5"], +Cell[184180, 4967, 300, 6, 41, "Output",ExpressionUUID->"15580006-1bcc-41dd-9936-18c1390c439b"] }, 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[184517, 4978, 180, 4, 36, "Input",ExpressionUUID->"140ea6ab-fc56-4e96-967f-eba18f9f1627"], +Cell[184700, 4984, 303, 6, 41, "Output",ExpressionUUID->"a49001ba-3592-4437-93c7-87a59dc10ac7"] }, 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[185040, 4995, 262, 8, 54, "Input",ExpressionUUID->"f6dcb05c-ce3c-405c-9748-80831769e78f"], +Cell[185305, 5005, 317, 6, 41, "Output",ExpressionUUID->"454198c6-0b9c-4940-a189-c69e444d572a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185659, 5016, 136, 3, 36, "Input",ExpressionUUID->"da31ac4f-0f16-4a3f-bb1f-5fb7f12aaacd"], +Cell[185798, 5021, 309, 6, 41, "Output",ExpressionUUID->"8c8ed8b4-dd03-49a0-b047-a2b86cfeb51e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[186144, 5032, 281, 7, 36, "Input",ExpressionUUID->"838b680d-23ae-4346-ab5e-25fd8edfcf43"], +Cell[186428, 5041, 321, 6, 41, "Output",ExpressionUUID->"f5c57208-17e6-454a-a1b0-7d2f0d115c57"] +}, Open ]], +Cell[CellGroupData[{ +Cell[186786, 5052, 262, 8, 36, "Input",ExpressionUUID->"71d08f20-13be-480f-9ba8-0af2c0cc2b0a"], +Cell[187051, 5062, 320, 6, 41, "Output",ExpressionUUID->"596f584f-d888-4897-9072-2b4e85d7ba27"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187408, 5073, 208, 4, 36, "Input",ExpressionUUID->"c0484b17-a8d5-4f1b-8b99-5c87369acd5e"], +Cell[187619, 5079, 288, 5, 41, "Output",ExpressionUUID->"b013be95-433d-45a6-8a88-9b77e78145df"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187944, 5089, 210, 4, 36, "Input",ExpressionUUID->"bebc8e35-625c-4bfc-9677-12518aef7afb"], +Cell[188157, 5095, 288, 5, 41, "Output",ExpressionUUID->"5c11af60-9064-4c81-8d15-34cf1ff9ae60"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188482, 5105, 133, 3, 36, "Input",ExpressionUUID->"ba4e6e50-3572-45a0-b010-d5c4dfcdd337"], +Cell[188618, 5110, 300, 6, 41, "Output",ExpressionUUID->"ac5acdb4-1361-4fde-aa37-2ecc78c4469b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188955, 5121, 133, 3, 36, "Input",ExpressionUUID->"8bac60d8-5432-4304-a48b-bc40990756f8"], +Cell[189091, 5126, 301, 6, 41, "Output",ExpressionUUID->"282ce56f-f060-4c3e-bf5b-ed20d5434266"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189429, 5137, 561, 20, 100, "Input",ExpressionUUID->"526d508c-9975-40b6-8a6d-1cc4b5a5276d"], +Cell[189993, 5159, 320, 6, 41, "Output",ExpressionUUID->"ddc9739d-40fa-4e39-9801-d85b9d0bcbc4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[190350, 5170, 561, 20, 100, "Input",ExpressionUUID->"3e891a96-8c59-4f7c-9c3e-990a898f2e20"], +Cell[190914, 5192, 317, 6, 41, "Output",ExpressionUUID->"a2482aad-b112-4d90-a4de-a0b8e20fac00"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191268, 5203, 1592, 51, 103, "Input",ExpressionUUID->"a37dec1c-59a4-4c51-9022-e4ddc2be01cf"], +Cell[192863, 5256, 317, 6, 41, "Output",ExpressionUUID->"627d1a1d-1f6a-40e9-9386-e4a720261599"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193217, 5267, 1426, 47, 73, "Input",ExpressionUUID->"87c79552-81b0-401a-90ad-03e92adf048f"], +Cell[194646, 5316, 334, 7, 41, "Output",ExpressionUUID->"2558ad60-6f31-4a85-a918-bec124988945"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195017, 5328, 1426, 47, 73, "Input",ExpressionUUID->"2cdde44d-4a40-4e27-9396-3f09b99ecfb8"], +Cell[196446, 5377, 341, 7, 41, "Output",ExpressionUUID->"73548512-b863-4786-a429-b7d9ae6e1712"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196824, 5389, 1496, 49, 101, "Input",ExpressionUUID->"c65e3e00-b427-478d-9793-d3efacd1ccc3"], +Cell[198323, 5440, 318, 6, 41, "Output",ExpressionUUID->"0fdfe0e8-1170-4734-92db-737edd725b4f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[198678, 5451, 135, 3, 36, "Input",ExpressionUUID->"faec3591-5272-4811-8e51-10325cc5a1e7"], +Cell[198816, 5456, 302, 6, 41, "Output",ExpressionUUID->"3dd75654-1ea8-4b42-9562-4f01be51dd58"] +}, Open ]], +Cell[CellGroupData[{ +Cell[199155, 5467, 137, 3, 36, "Input",ExpressionUUID->"dc6187d2-4115-43fe-93bd-75e52bbf170b"], +Cell[199295, 5472, 303, 6, 41, "Output",ExpressionUUID->"c50399a1-ff58-492c-aafc-d2ce340a4bbb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[199635, 5483, 138, 3, 36, "Input",ExpressionUUID->"bcd62977-bb90-4a5d-859e-c6f310ed28dc"], +Cell[199776, 5488, 304, 6, 41, "Output",ExpressionUUID->"0b879a3d-43fd-4295-b00c-0ad6e9bb7923"] +}, Open ]], +Cell[CellGroupData[{ +Cell[200117, 5499, 223, 5, 36, "Input",ExpressionUUID->"2730540f-d341-435a-928d-3b1dc9befa4a"], +Cell[200343, 5506, 321, 7, 41, "Output",ExpressionUUID->"93fcfa8f-4160-41e6-b3d3-25792634aef4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[200701, 5518, 138, 3, 36, "Input",ExpressionUUID->"6e143f26-c6bd-44b7-a20a-d9b93450045a"], +Cell[200842, 5523, 303, 6, 41, "Output",ExpressionUUID->"638c0066-2a47-4f7c-8e62-9d97a616f9e3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[201182, 5534, 326, 6, 36, "Input",ExpressionUUID->"9306094a-05a0-4f8f-a845-c5e177318cbc"], +Cell[201511, 5542, 303, 6, 41, "Output",ExpressionUUID->"0d146129-6fda-469d-aaa6-446ac94d1c2e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[201851, 5553, 302, 6, 36, "Input",ExpressionUUID->"585538e8-f108-4c55-ae2d-a725785abf30"], +Cell[202156, 5561, 302, 6, 41, "Output",ExpressionUUID->"c039b2c0-c1b7-4f4d-ab11-f06f1e8e7c92"] +}, Open ]], +Cell[CellGroupData[{ +Cell[202495, 5572, 223, 5, 36, "Input",ExpressionUUID->"97bca7ac-ba3f-42c3-823a-5e52a461adf8"], +Cell[202721, 5579, 303, 6, 41, "Output",ExpressionUUID->"6f07860c-5857-4452-b7cb-d589d7d12517"] +}, Open ]], +Cell[CellGroupData[{ +Cell[203061, 5590, 354, 11, 54, "Input",ExpressionUUID->"5e0f746f-61a4-497b-a535-07508ad6f848"], +Cell[203418, 5603, 320, 6, 41, "Output",ExpressionUUID->"acd501c3-a338-433a-9eea-8d93b27dc7b6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[203775, 5614, 354, 11, 54, "Input",ExpressionUUID->"e2224fe5-7fb9-4e84-b205-303205bdefd4"], +Cell[204132, 5627, 341, 7, 41, "Output",ExpressionUUID->"ffad908c-912a-49e8-90fd-34c352b9c9cb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[204510, 5639, 998, 27, 55, "Input",ExpressionUUID->"15d38e2e-3604-480d-9612-69d8f22a5340"], +Cell[205511, 5668, 321, 6, 41, "Output",ExpressionUUID->"1d0f3d04-7cec-46b2-86c6-fb02e9438d08"] +}, Open ]], +Cell[CellGroupData[{ +Cell[205869, 5679, 203, 4, 36, "Input",ExpressionUUID->"a2181dac-7825-479f-b3f7-7d4307fe8f3d"], +Cell[206075, 5685, 301, 6, 41, "Output",ExpressionUUID->"45584973-5d3a-4cda-b8f4-c16e0f3b1434"] +}, Open ]], +Cell[CellGroupData[{ +Cell[206413, 5696, 333, 6, 36, "Input",ExpressionUUID->"2bfa74b1-b31e-4d1b-bd69-2b0c4f35294f"], +Cell[206749, 5704, 276, 5, 41, "Output",ExpressionUUID->"7e020882-109d-482d-88f5-78b459c2ac67"] +}, Open ]], +Cell[207040, 5712, 177, 3, 36, "Input",ExpressionUUID->"82f366d1-b423-48e2-8f7f-e260eab3cc90"], +Cell[CellGroupData[{ +Cell[207242, 5719, 331, 6, 36, "Input",ExpressionUUID->"6d0c910a-a04a-4526-beb8-a5baa60bc8fa"], +Cell[207576, 5727, 279, 5, 41, "Output",ExpressionUUID->"cd6f236b-43e8-4575-bc66-a686b1bc7b8b"] +}, Open ]], +Cell[207870, 5735, 177, 3, 36, "Input",ExpressionUUID->"b7033cf9-26f0-4f8d-a018-e3f3e0e21657"], +Cell[CellGroupData[{ +Cell[208072, 5742, 334, 6, 36, "Input",ExpressionUUID->"53284a79-2a40-4ddf-9665-90f2bea0ca7a"], +Cell[208409, 5750, 276, 5, 41, "Output",ExpressionUUID->"5826ca9c-3a2d-433e-b21f-ef0d95635b74"] +}, Open ]], +Cell[208700, 5758, 177, 3, 36, "Input",ExpressionUUID->"35de1d89-3842-4102-8886-8963b779c8f3"], +Cell[CellGroupData[{ +Cell[208902, 5765, 358, 6, 36, "Input",ExpressionUUID->"34a03e26-3ef6-4224-91c0-3919b80256a8"], +Cell[209263, 5773, 278, 5, 41, "Output",ExpressionUUID->"4e192d79-d65f-4f2c-8251-6d1e5425dbfd"] +}, Open ]], +Cell[209556, 5781, 175, 3, 36, "Input",ExpressionUUID->"e5faaea7-83bd-40b1-910e-f91ea67907ba"], +Cell[CellGroupData[{ +Cell[209756, 5788, 307, 6, 36, "Input",ExpressionUUID->"71ef7802-0384-44a9-b2f7-055696206568"], +Cell[210066, 5796, 278, 5, 41, "Output",ExpressionUUID->"065dc7d4-fd1e-4162-bb13-31615374f1cf"] +}, Open ]], +Cell[210359, 5804, 175, 3, 36, "Input",ExpressionUUID->"c38a225e-16ac-4173-8b77-ba3fa4a8a6b0"], +Cell[CellGroupData[{ +Cell[210559, 5811, 309, 6, 36, "Input",ExpressionUUID->"74130078-2486-4980-9abc-f65d3f8b532e"], +Cell[210871, 5819, 279, 5, 41, "Output",ExpressionUUID->"8d4a7c08-4940-4988-9878-689145082c92"] +}, Open ]], +Cell[211165, 5827, 177, 3, 36, "Input",ExpressionUUID->"8830e9a5-1b52-4167-be80-e38579b52fe2"], +Cell[CellGroupData[{ +Cell[211367, 5834, 308, 6, 36, "Input",ExpressionUUID->"7ffcde28-2645-4dce-810e-6960d04b5265"], +Cell[211678, 5842, 281, 5, 41, "Output",ExpressionUUID->"34af5f12-6b37-40e2-a51a-80e820da2559"] +}, Open ]], +Cell[211974, 5850, 176, 3, 36, "Input",ExpressionUUID->"534834d7-c99a-4c8b-8bf6-062f6ae916aa"], +Cell[CellGroupData[{ +Cell[212175, 5857, 279, 5, 36, "Input",ExpressionUUID->"135ee35f-8ffd-4924-b26f-b5459b9e110b"], +Cell[212457, 5864, 276, 5, 41, "Output",ExpressionUUID->"ea2d5a72-20f2-40d8-960a-24f2a78badff"] +}, Open ]], +Cell[212748, 5872, 179, 3, 36, "Input",ExpressionUUID->"c56c1ddb-b12d-4422-bf29-3b0b01c42f00"], +Cell[CellGroupData[{ +Cell[212952, 5879, 19813, 486, 1708, "Input",ExpressionUUID->"f68497d7-f76f-494c-8ef6-957d51a34243"], +Cell[232768, 6367, 321, 6, 41, "Output",ExpressionUUID->"a28a9f72-8e9e-47a9-b3f4-bc795be1bf42"] +}, Open ]], +Cell[CellGroupData[{ +Cell[233126, 6378, 19752, 490, 1720, "Input",ExpressionUUID->"78d34269-346e-45af-a043-7c2873164ad0"], +Cell[252881, 6870, 317, 6, 41, "Output",ExpressionUUID->"13855b8e-81c8-4d5d-b355-a789b0e64673"] +}, Open ]], +Cell[CellGroupData[{ +Cell[253235, 6881, 19752, 484, 1720, "Input",ExpressionUUID->"1753f734-cfd4-40c6-94a3-98cc442028d6"], +Cell[272990, 7367, 339, 7, 41, "Output",ExpressionUUID->"7cb5d14d-9770-47e2-a6f8-19d4b435743e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[273366, 7379, 22538, 554, 1885, "Input",ExpressionUUID->"1533e185-520c-4b06-a810-4fff825ed6e3"], +Cell[295907, 7935, 335, 7, 41, "Output",ExpressionUUID->"45c7995d-c0e8-47b6-a4f6-d0e532ba365e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[296279, 7947, 22539, 554, 1885, "Input",ExpressionUUID->"48f0ab0f-99ff-430c-ae9a-cae1ff11d0d4"], +Cell[318821, 8503, 340, 7, 41, "Output",ExpressionUUID->"90adaa06-9cb2-4c80-84e5-03ac35947e75"] +}, Open ]], +Cell[CellGroupData[{ +Cell[319198, 8515, 25495, 627, 2078, "Input",ExpressionUUID->"2e857b96-d62e-443e-96bd-c5f4027b4f4b"], +Cell[344696, 9144, 334, 7, 41, "Output",ExpressionUUID->"344aa463-5250-48bf-a7c9-25db18dc062f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[345067, 9156, 134, 3, 36, "Input",ExpressionUUID->"b10475d2-3167-4670-99eb-cbdcff897155"], +Cell[345204, 9161, 301, 6, 41, "Output",ExpressionUUID->"48a44076-b792-40d6-94ea-e5e93bd32a46"] +}, Open ]], +Cell[CellGroupData[{ +Cell[345542, 9172, 134, 3, 36, "Input",ExpressionUUID->"bb87416f-6346-4cf4-a693-31a8607807dd"], +Cell[345679, 9177, 301, 6, 41, "Output",ExpressionUUID->"30f697c8-90d9-43ec-acde-aca91b3bab9a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[346017, 9188, 1148, 40, 73, "Input",ExpressionUUID->"8bd5d07d-3777-48b8-9134-a98d0c5e6a3c"], +Cell[347168, 9230, 320, 6, 41, "Output",ExpressionUUID->"e38fe0b7-4224-47cf-aa68-b513fd72c7f5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[347525, 9241, 1045, 36, 73, "Input",ExpressionUUID->"21c2ba5f-8c84-456a-866a-d59808603e16"], +Cell[348573, 9279, 334, 7, 41, "Output",ExpressionUUID->"55ce79d7-0043-47a4-b4c8-43064e4fda97"] +}, Open ]], +Cell[CellGroupData[{ +Cell[348944, 9291, 1148, 40, 73, "Input",ExpressionUUID->"0d3f7a6f-e62d-4e5d-9bf5-33c7c1aa96fa"], +Cell[350095, 9333, 319, 6, 41, "Output",ExpressionUUID->"5a2a7e66-6a1a-42da-aa4e-82d9cdb3b900"] +}, Open ]], +Cell[CellGroupData[{ +Cell[350451, 9344, 112, 2, 36, "Input",ExpressionUUID->"51091a04-ee5c-44c8-9b87-7f6eab0f54d4"], +Cell[350566, 9348, 318, 6, 41, "Output",ExpressionUUID->"96e0f1e0-ae5f-4aa1-9e87-b05302102c04"] +}, Open ]], +Cell[CellGroupData[{ +Cell[350921, 9359, 112, 2, 36, "Input",ExpressionUUID->"aa8664e9-7a0d-4329-a494-0b9235ba70bd"], +Cell[351036, 9363, 312, 6, 41, "Output",ExpressionUUID->"1fd4dc44-78d3-4bec-88c6-5f3004e320b3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[351385, 9374, 112, 2, 36, "Input",ExpressionUUID->"8ad16100-9963-455d-bb4a-18485cc6a462"], +Cell[351500, 9378, 306, 6, 41, "Output",ExpressionUUID->"86fffbfa-5c5d-4ed7-94a2-e95b3eb6a461"] +}, Open ]], +Cell[CellGroupData[{ +Cell[351843, 9389, 112, 2, 36, "Input",ExpressionUUID->"5362a78a-eafb-4101-84fc-a110bd990c05"], +Cell[351958, 9393, 289, 5, 41, "Output",ExpressionUUID->"8f9b014e-aa60-4461-9d31-d7c041656133"] +}, Open ]], +Cell[CellGroupData[{ +Cell[352284, 9403, 111, 2, 36, "Input",ExpressionUUID->"ab8298db-eb89-468c-9f30-8b26a0639fed"], +Cell[352398, 9407, 291, 5, 41, "Output",ExpressionUUID->"d426c2dd-db45-4cde-b59d-cbf17cd96c57"] +}, Open ]], +Cell[CellGroupData[{ +Cell[352726, 9417, 111, 2, 36, "Input",ExpressionUUID->"15afe09a-545b-456c-b862-783499a9aa3e"], +Cell[352840, 9421, 296, 5, 41, "Output",ExpressionUUID->"f554d23f-b187-4b9f-a7d9-ae4231f6c6bd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[353173, 9431, 501, 17, 71, "Input",ExpressionUUID->"d2cee077-a240-4c98-8e64-6034cd291aad"], +Cell[353677, 9450, 307, 6, 41, "Output",ExpressionUUID->"c73fd9b3-ab13-41b7-98b1-ec37e2936624"] +}, Open ]], +Cell[CellGroupData[{ +Cell[354021, 9461, 501, 17, 71, "Input",ExpressionUUID->"52944921-5af5-4c21-a7ae-13086ddc9cd1"], +Cell[354525, 9480, 310, 6, 41, "Output",ExpressionUUID->"a3630ce9-ef03-450a-8517-62db7645491a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[354872, 9491, 1792, 61, 142, "Input",ExpressionUUID->"d5fd357f-fd90-433e-8ded-24de79601f6c"], +Cell[356667, 9554, 291, 5, 41, "Output",ExpressionUUID->"7a5076e9-e527-4503-81c4-86cb6ce0e74c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[356995, 9564, 1105, 37, 73, "Input",ExpressionUUID->"2d3e2067-d5af-489d-ac0b-6d494a615060"], +Cell[358103, 9603, 312, 6, 41, "Output",ExpressionUUID->"6565c76d-b318-481c-95be-db18f4ec6ff7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[358452, 9614, 1822, 62, 144, "Input",ExpressionUUID->"67723656-50a5-49b8-8d0f-139bec049352"], +Cell[360277, 9678, 292, 5, 41, "Output",ExpressionUUID->"c7a01b89-358f-4ad6-9168-8545a79e20e8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[360606, 9688, 1635, 54, 101, "Input",ExpressionUUID->"4335829d-0808-4d97-a0f4-f678101e0a58"], +Cell[362244, 9744, 291, 5, 41, "Output",ExpressionUUID->"c02b99d0-639a-4df5-a73a-9065ee8890b7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[362572, 9754, 1635, 54, 101, "Input",ExpressionUUID->"d62b6b99-b96c-485c-87cb-c0a9062a99c6"], +Cell[364210, 9810, 289, 5, 41, "Output",ExpressionUUID->"740b69e0-a972-4090-a479-ecd2691cd4e7"] +}, Open ]], +Cell[364514, 9818, 216, 5, 36, "Input",ExpressionUUID->"5894836c-9594-0940-b94c-299085c765cc"], +Cell[364733, 9825, 154, 3, 36, "Input",ExpressionUUID->"5965eb10-01f8-5545-9b6f-8fab318cd4b7"], +Cell[364890, 9830, 187, 4, 36, "Input",ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-092c5143dcf0"], +Cell[365080, 9836, 154, 3, 36, "Input",ExpressionUUID->"6e7c45d7-0298-ce41-ba97-a3c857e6ae57"], +Cell[CellGroupData[{ +Cell[365259, 9843, 1301, 43, 61, "Input",ExpressionUUID->"38bf39c5-cae1-4148-b0af-e362ef4ee2e3"], +Cell[366563, 9888, 178, 3, 41, "Output",ExpressionUUID->"d7904bcf-fc55-b844-b4d2-059d830f1317"] +}, Open ]], +Cell[CellGroupData[{ +Cell[366778, 9896, 908, 31, 73, "Input",ExpressionUUID->"f2e6289f-a8bc-6d44-a856-301cf9f22a61"], +Cell[367689, 9929, 177, 3, 41, "Output",ExpressionUUID->"7c075ec9-a97b-ab47-b241-cc392b585c5e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[367903, 9937, 889, 30, 73, "Input",ExpressionUUID->"cdf84d2f-1e96-4c43-9286-fda42549e334"], +Cell[368795, 9969, 178, 3, 41, "Output",ExpressionUUID->"ddda4800-8c90-d44b-acfd-6ccb39eee852"] +}, Open ]], +Cell[CellGroupData[{ +Cell[369010, 9977, 558, 19, 66, "Input",ExpressionUUID->"a7d184c1-375c-094d-82ba-c6d8cfdfa4a1"], +Cell[369571, 9998, 172, 3, 41, "Output",ExpressionUUID->"046d7438-d73f-9343-9ae7-b01adfd6d8f5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[369780, 10006, 651, 22, 66, "Input",ExpressionUUID->"cc7d9e01-d61b-5a43-abcd-9714383fe0fe"], +Cell[370434, 10030, 167, 3, 41, "Output",ExpressionUUID->"d2928e96-58be-3a4f-8bee-5b9e193c2ac6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[370638, 10038, 170, 5, 71, "Input",ExpressionUUID->"1204358e-ac52-0f4c-bf22-945336ddda4e"], +Cell[370811, 10045, 172, 3, 41, "Output",ExpressionUUID->"bf655ed3-7200-2249-b687-593ee351a598"] +}, Open ]], +Cell[CellGroupData[{ +Cell[371020, 10053, 170, 5, 69, "Input",ExpressionUUID->"66c9dc01-c171-8f4f-b59a-2829d67b4589"], +Cell[371193, 10060, 173, 3, 41, "Output",ExpressionUUID->"56f5f06b-52e2-6941-b28e-41b961cb42e9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[371403, 10068, 181, 5, 55, "Input",ExpressionUUID->"09b0eefd-6263-8a44-8015-82d02046019c"], +Cell[371587, 10075, 171, 3, 41, "Output",ExpressionUUID->"8c210f75-69a5-5340-94a4-65e97302ca45"] +}, Open ]], +Cell[CellGroupData[{ +Cell[371795, 10083, 181, 5, 55, "Input",ExpressionUUID->"c1911d35-4f2b-d042-9073-088b56a17885"], +Cell[371979, 10090, 172, 3, 41, "Output",ExpressionUUID->"bad7f5b6-1bd3-6b4b-87e4-44aee3a120fc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[372188, 10098, 6055, 185, 431, "Input",ExpressionUUID->"6fd22be4-12e4-0d4e-b7f7-ab28adc2524f"], +Cell[378246, 10285, 174, 3, 41, "Output",ExpressionUUID->"ffdf2eb3-13bd-724f-a87b-fb40655ae9c4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[378457, 10293, 368, 9, 53, "Input",ExpressionUUID->"788e89bc-20c8-8541-af10-81d8741a0e5b"], +Cell[378828, 10304, 172, 3, 41, "Output",ExpressionUUID->"609425d6-cf9c-7a45-bc21-030ca3aa1290"] +}, Open ]], +Cell[CellGroupData[{ +Cell[379037, 10312, 6122, 187, 431, "Input",ExpressionUUID->"c19137b0-217d-0844-9acb-cc5878ab26fc"], +Cell[385162, 10501, 175, 3, 41, "Output",ExpressionUUID->"b20cbe94-36a3-8548-a61e-959a25814c62"] +}, Open ]], +Cell[CellGroupData[{ +Cell[385374, 10509, 368, 9, 53, "Input",ExpressionUUID->"7c3bd40f-ac17-c54f-a888-ac3b4c84d9d9"], +Cell[385745, 10520, 172, 3, 41, "Output",ExpressionUUID->"4fc2e2c1-457d-3d4a-a5b7-180877c6f370"] +}, Open ]], +Cell[CellGroupData[{ +Cell[385954, 10528, 2663, 88, 215, "Input",ExpressionUUID->"bdca581e-5d9f-434b-8ec4-903e0edf0216"], +Cell[388620, 10618, 171, 3, 41, "Output",ExpressionUUID->"08fcefa1-a87b-bf4b-998d-0c9017752dd4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[388828, 10626, 2603, 85, 215, "Input",ExpressionUUID->"1cec8cc2-764e-3d42-a680-d2ec92565257"], +Cell[391434, 10713, 173, 3, 41, "Output",ExpressionUUID->"5678b502-e98a-5d4b-9c03-fe98b2cc6f78"] +}, Open ]], +Cell[CellGroupData[{ +Cell[391644, 10721, 3712, 118, 316, "Input",ExpressionUUID->"800aba4f-a7e9-864a-a38b-f618fe3c89be"], +Cell[395359, 10841, 174, 3, 41, "Output",ExpressionUUID->"d74c1470-6eae-4841-b978-069a86bca67d"] +}, Open ]], +Cell[395548, 10847, 138, 3, 36, "Input",ExpressionUUID->"8111b6bb-cdcb-ad40-9440-412e77bed40d"], +Cell[CellGroupData[{ +Cell[395711, 10854, 2054, 59, 116, "Input",ExpressionUUID->"fc88a60e-e348-d344-96c4-1f4f66f53217"], +Cell[397768, 10915, 559, 12, 71, "Message",ExpressionUUID->"0833bd34-3252-a046-9aa3-94c1d6e5cfe9"], +Cell[398330, 10929, 560, 12, 71, "Message",ExpressionUUID->"f24a3618-ee43-704a-86fe-493dbed35e8d"], +Cell[398893, 10943, 565, 12, 71, "Message",ExpressionUUID->"86271901-aa3c-5542-ab18-fc06d3fd3f32"], +Cell[399461, 10957, 456, 10, 26, "Message",ExpressionUUID->"ce9bd686-d768-5440-b47e-1ee2b5aa0183"], +Cell[399920, 10969, 170, 3, 41, "Output",ExpressionUUID->"a6ab28bd-0b4e-3443-93b3-734d7cf3d8a2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[400127, 10977, 2054, 59, 116, "Input",ExpressionUUID->"dca13eb7-7f94-3e45-81a8-b62dad3009d2"], +Cell[402184, 11038, 559, 12, 71, "Message",ExpressionUUID->"44f2ed65-5109-0141-bef6-eebaeda3d61d"], +Cell[402746, 11052, 559, 12, 71, "Message",ExpressionUUID->"ba49f32e-1ff7-b147-9f42-9c90ccc55447"], +Cell[403308, 11066, 565, 12, 71, "Message",ExpressionUUID->"fa95acf1-55b2-c042-9a9f-32e1ebea5c1e"], +Cell[403876, 11080, 458, 10, 26, "Message",ExpressionUUID->"3c3d4134-2c7d-0949-9759-036664c530e3"], +Cell[404337, 11092, 170, 3, 41, "Output",ExpressionUUID->"742dfe41-8369-8942-b522-c174c845c383"] +}, Open ]], +Cell[CellGroupData[{ +Cell[404544, 11100, 1938, 53, 86, "Input",ExpressionUUID->"46451e4d-f5ef-b246-91c6-4265c9fafb97"], +Cell[406485, 11155, 20196, 379, 295, "Output",ExpressionUUID->"0e6ef056-d4e3-ac4d-9f2a-df071f8decb1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[426718, 11539, 2094, 60, 116, "Input",ExpressionUUID->"06bd0169-a5a6-404c-935d-e1a61565f71e"], +Cell[428815, 11601, 503, 11, 48, "Message",ExpressionUUID->"8a980d1e-9dd5-194d-803a-ac5d63bbe693"], +Cell[429321, 11614, 505, 11, 48, "Message",ExpressionUUID->"637082a9-fe74-7345-8895-dee77343ee6f"], +Cell[429829, 11627, 506, 11, 48, "Message",ExpressionUUID->"b2e7262c-7c6d-d94d-a545-ea4b363e579a"], +Cell[430338, 11640, 455, 10, 26, "Message",ExpressionUUID->"40c56d25-ed26-3045-9759-ae8eef5eb7cb"], +Cell[430796, 11652, 55770, 961, 290, "Output",ExpressionUUID->"f96372ea-8786-a94e-801e-a3ab56caf675"] +}, Open ]], +Cell[486581, 12616, 2455, 69, 140, "Input",ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-b938908ab9a4"], +Cell[489039, 12687, 209, 5, 36, "Input",ExpressionUUID->"6b0777bb-40fd-b54e-aa03-b6e82cb2e939"], +Cell[CellGroupData[{ +Cell[489273, 12696, 217, 7, 61, "Input",ExpressionUUID->"1ec1e156-ca0f-9240-857c-ac86e3a0e3fd"], +Cell[489493, 12705, 173, 3, 41, "Output",ExpressionUUID->"1ffcb79a-13e7-7549-b41c-23408ffbacea"] +}, Open ]], +Cell[CellGroupData[{ +Cell[489703, 12713, 1814, 53, 116, "Input",ExpressionUUID->"2a22eb8b-38c3-1f4b-a455-da901e49f6f1"], +Cell[491520, 12768, 506, 11, 48, "Message",ExpressionUUID->"08a2126f-e71c-b94d-8844-15e292a8f7d1"], +Cell[492029, 12781, 508, 11, 48, "Message",ExpressionUUID->"1acf7f10-7675-ea41-b478-94e928ef3377"], +Cell[492540, 12794, 509, 11, 48, "Message",ExpressionUUID->"67cdfb4c-9282-934a-b3c5-526027acebf5"], +Cell[493052, 12807, 458, 10, 26, "Message",ExpressionUUID->"760e7203-a507-b249-aaf5-4906557faed2"], +Cell[493513, 12819, 24818, 454, 290, "Output",ExpressionUUID->"f25b03e8-0c50-2442-86f8-c19dc28b43cf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[518368, 13278, 1616, 48, 86, "Input",ExpressionUUID->"6e7e1815-2cc6-b24e-a02d-18991b1a751b"], +Cell[519987, 13328, 582, 12, 71, "Message",ExpressionUUID->"b6e3034b-dd99-1142-8723-42090efc2980"], +Cell[520572, 13342, 588, 12, 71, "Message",ExpressionUUID->"54e48413-1d3a-b844-8316-bcdf9191e67e"], +Cell[521163, 13356, 590, 12, 71, "Message",ExpressionUUID->"44ccd47c-7323-4a4e-a9d6-7424d8b3399f"], +Cell[521756, 13370, 458, 10, 26, "Message",ExpressionUUID->"4c2e41d3-b5d7-3f4c-ba94-0408b6a0e82d"], +Cell[522217, 13382, 171, 3, 41, "Output",ExpressionUUID->"c1bfc082-c70f-3140-a59c-c21547622f5b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[522425, 13390, 2251, 64, 81, "Input",ExpressionUUID->"0b10f52e-4583-2a4b-993d-96e59dd43e6a"], +Cell[524679, 13456, 557, 12, 71, "Message",ExpressionUUID->"0e308aaf-a4b5-d740-9882-5c338a63d7a7"], +Cell[525239, 13470, 560, 12, 71, "Message",ExpressionUUID->"5e35cc91-e340-c74b-b6dd-42063e8a308b"], +Cell[525802, 13484, 565, 12, 71, "Message",ExpressionUUID->"c3f5c3a9-ece1-e648-aa3a-3f66f2873ea7"], +Cell[526370, 13498, 458, 10, 26, "Message",ExpressionUUID->"41503ce3-67a0-8a4a-b10a-c3db53fd260d"], +Cell[526831, 13510, 172, 3, 41, "Output",ExpressionUUID->"d9451200-e1de-5d43-8d07-ddcfc9babc52"] +}, Open ]], +Cell[CellGroupData[{ +Cell[527040, 13518, 2218, 64, 81, "Input",ExpressionUUID->"a58948c9-6d3d-e847-a269-d2e0cc5d1484"], +Cell[529261, 13584, 559, 12, 71, "Message",ExpressionUUID->"2247cd70-3ffa-2245-971e-6c6a2bd1ecfc"], +Cell[529823, 13598, 562, 12, 71, "Message",ExpressionUUID->"d9ae7d5b-4e89-a74f-be53-15700ab2593c"], +Cell[530388, 13612, 563, 12, 71, "Message",ExpressionUUID->"821c7ce3-36cc-9549-9881-1225eb1561cf"], +Cell[530954, 13626, 458, 10, 26, "Message",ExpressionUUID->"52af17f2-aff2-c34f-85c8-700b3d2f5f39"], +Cell[531415, 13638, 170, 3, 41, "Output",ExpressionUUID->"9a4afbd4-21df-4744-836a-2ed068742fdd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[531622, 13646, 2221, 64, 81, "Input",ExpressionUUID->"c817b2d1-7deb-5a45-9938-ca10003188eb"], +Cell[533846, 13712, 559, 12, 71, "Message",ExpressionUUID->"3701f96f-691c-9040-a8a1-ff3958638338"], +Cell[534408, 13726, 562, 12, 71, "Message",ExpressionUUID->"9e260603-f97f-ac44-8251-869444fbcc24"], +Cell[534973, 13740, 563, 12, 71, "Message",ExpressionUUID->"f34d60ab-6a89-fd45-89b6-5f3b4b17dd22"], +Cell[535539, 13754, 458, 10, 26, "Message",ExpressionUUID->"27fa1c02-4896-1547-8cb5-b1b86182517f"], +Cell[536000, 13766, 171, 3, 41, "Output",ExpressionUUID->"7fdd69fb-d48e-e24a-a681-093b62cad9ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[536208, 13774, 213, 6, 60, "Input",ExpressionUUID->"350334c7-7c47-c24c-8adc-781173809e57"], +Cell[536424, 13782, 173, 3, 41, "Output",ExpressionUUID->"20848a4e-e706-ec41-8982-5a7089f6420d"] +}, Open ]], +Cell[536612, 13788, 245, 5, 36, "Input",ExpressionUUID->"597921e5-69d3-564d-a8fa-092e912c15e0"], +Cell[CellGroupData[{ +Cell[536882, 13797, 558, 19, 66, "Input",ExpressionUUID->"d8a22216-586e-3641-8d6a-b19164cbbef2"], +Cell[537443, 13818, 170, 3, 41, "Output",ExpressionUUID->"c70c9f2e-d3ac-284f-9a22-d110345400ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[537650, 13826, 170, 5, 71, "Input",ExpressionUUID->"fdbad1ee-10c7-0843-8319-ad9a3350b059"], +Cell[537823, 13833, 173, 3, 41, "Output",ExpressionUUID->"dc218355-20da-7845-8c8d-e506361cd90c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[538033, 13841, 181, 5, 55, "Input",ExpressionUUID->"1e4255c3-6733-664e-86c8-98281eb7b3d1"], +Cell[538217, 13848, 171, 3, 41, "Output",ExpressionUUID->"b98e2d62-3142-7d4b-8175-9f6bcc8f676f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[538425, 13856, 6055, 185, 431, "Input",ExpressionUUID->"70c538a1-1fdf-1447-919a-237a7f13ec4c"], +Cell[544483, 14043, 172, 3, 41, "Output",ExpressionUUID->"e2235b96-63a9-b14d-b5d1-d13c73c5b35b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[544692, 14051, 368, 9, 53, "Input",ExpressionUUID->"309f305e-3fbc-e84e-99d9-1087d7a09460"], +Cell[545063, 14062, 172, 3, 41, "Output",ExpressionUUID->"776526ba-6ae1-2140-8428-6e0766592ce2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[545272, 14070, 6122, 187, 431, "Input",ExpressionUUID->"e745b4b9-6adc-da40-98cf-d19095e176b2"], +Cell[551397, 14259, 173, 3, 41, "Output",ExpressionUUID->"4456bf68-737e-1947-bc9d-24db2abd4b39"] +}, Open ]], +Cell[CellGroupData[{ +Cell[551607, 14267, 368, 9, 53, "Input",ExpressionUUID->"9d206cd8-8a5b-4046-b84a-e6b4fe810128"], +Cell[551978, 14278, 170, 3, 41, "Output",ExpressionUUID->"04031349-1bc1-2c40-8d25-2e90a8f4b902"] +}, Open ]], +Cell[CellGroupData[{ +Cell[552185, 14286, 2663, 88, 215, "Input",ExpressionUUID->"2ec72619-a762-004d-a8c1-9773b798bf0e"], +Cell[554851, 14376, 171, 3, 41, "Output",ExpressionUUID->"ab924ecc-12c3-f448-be6e-b37b3bf2a7ea"] +}, Open ]], +Cell[CellGroupData[{ +Cell[555059, 14384, 2603, 85, 215, "Input",ExpressionUUID->"499f8153-6e36-8043-876b-5343c0af179e"], +Cell[557665, 14471, 173, 3, 41, "Output",ExpressionUUID->"edd230b8-d34a-9d46-9fb1-cbff36fb79ff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[557875, 14479, 3712, 118, 316, "Input",ExpressionUUID->"33c0834c-5a76-7640-a18c-d9704d756896"], +Cell[561590, 14599, 174, 3, 41, "Output",ExpressionUUID->"7ff053b6-f84b-bf44-8265-ecf6593e97c0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[561801, 14607, 2049, 58, 116, "Input",ExpressionUUID->"77c444cf-c5b4-4b4b-9808-ff76b28fd32d"], +Cell[563853, 14667, 579, 12, 71, "Message",ExpressionUUID->"ba9cccb8-fdfa-1d4c-9151-4c0bb8135009"], +Cell[564435, 14681, 582, 12, 71, "Message",ExpressionUUID->"dda5376f-614c-1846-a3e1-09857b4bcae6"], +Cell[565020, 14695, 584, 12, 71, "Message",ExpressionUUID->"7a2a8f8b-abfe-9646-a4d6-23b88b4059ef"], +Cell[565607, 14709, 458, 10, 26, "Message",ExpressionUUID->"61579f38-09d5-bc4c-9509-0aaf4718ceff"], +Cell[566068, 14721, 172, 3, 41, "Output",ExpressionUUID->"87b4581c-42ec-3248-906f-f100fdcc36d4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[566277, 14729, 2054, 59, 116, "Input",ExpressionUUID->"baacd3f7-96e4-2949-b9f9-9afb90e551d9"], +Cell[568334, 14790, 577, 12, 71, "Message",ExpressionUUID->"19016d8b-0ad0-804c-b867-298523611be5"], +Cell[568914, 14804, 580, 12, 71, "Message",ExpressionUUID->"b91abb11-65b8-3b43-a495-4cb1457edd27"], +Cell[569497, 14818, 583, 12, 71, "Message",ExpressionUUID->"120f2ab5-c971-b748-a471-5d053961b4f2"], +Cell[570083, 14832, 456, 10, 26, "Message",ExpressionUUID->"e219a46d-9b55-8b4b-a17f-972d0b60293c"], +Cell[570542, 14844, 171, 3, 41, "Output",ExpressionUUID->"15e7db41-f53f-7c4b-886f-7ba04bf10a25"] +}, Open ]], +Cell[CellGroupData[{ +Cell[570750, 14852, 2030, 55, 63, "Input",ExpressionUUID->"ea08a5a9-d446-9147-ba82-e3924f732df2"], +Cell[572783, 14909, 20493, 384, 295, "Output",ExpressionUUID->"33ceb84f-c9c7-504c-ae94-1b1d69b769af"] +}, Open ]], +Cell[CellGroupData[{ +Cell[593313, 15298, 2120, 60, 116, "Input",ExpressionUUID->"42ddbf41-0bd8-b749-bead-56c89a9b7467"], +Cell[595436, 15360, 501, 11, 48, "Message",ExpressionUUID->"b616cb85-0c12-9449-8e54-a070530c7874"], +Cell[595940, 15373, 504, 11, 48, "Message",ExpressionUUID->"d17cbbe2-194b-ec4c-bb30-d2fcc4c1a181"], +Cell[596447, 15386, 508, 11, 48, "Message",ExpressionUUID->"6c23e3dc-9bc5-a441-99df-2985793b0df8"], +Cell[596958, 15399, 456, 10, 26, "Message",ExpressionUUID->"de9af779-0821-a544-b1ce-6c66cf00e4d6"], +Cell[597417, 15411, 31462, 562, 290, "Output",ExpressionUUID->"d2a47969-eb62-c243-9b06-713ae9ea0a7d"] +}, Open ]], +Cell[628894, 15976, 209, 5, 36, "Input",ExpressionUUID->"6883477e-2a54-0a45-979a-ae60c73e9e82"], +Cell[CellGroupData[{ +Cell[629128, 15985, 1616, 48, 86, "Input",ExpressionUUID->"93c0bac4-7a17-8748-9b2f-588171dbd56e"], +Cell[630747, 16035, 596, 12, 71, "Message",ExpressionUUID->"ca0dab71-62e4-1c4e-b2d5-91f300055932"], +Cell[631346, 16049, 602, 12, 71, "Message",ExpressionUUID->"aa43f3fc-5ec5-414d-bbd9-cf1b638f0a27"], +Cell[631951, 16063, 605, 12, 109, "Message",ExpressionUUID->"eaa52aca-1e19-e84e-9825-10ec4ac94baf"], +Cell[632559, 16077, 458, 10, 109, "Message",ExpressionUUID->"40ddf79f-d82f-b94d-9b78-050a48c24dda"], +Cell[633020, 16089, 171, 3, 109, "Output",ExpressionUUID->"f752c3f0-fe06-284b-bff8-a09adf8994cc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[633228, 16097, 2251, 64, 109, "Input",ExpressionUUID->"fcc64ab7-eee0-e44f-9b2d-2a98ba29b602"], +Cell[635482, 16163, 577, 12, 71, "Message",ExpressionUUID->"03b49875-7e1c-734a-9395-591c7a6a0147"], +Cell[636062, 16177, 580, 12, 71, "Message",ExpressionUUID->"bbc1c804-e094-2b49-bceb-c837038552fa"], +Cell[636645, 16191, 586, 12, 71, "Message",ExpressionUUID->"340351a4-e10e-7141-b933-75e80a563962"], +Cell[637234, 16205, 458, 10, 26, "Message",ExpressionUUID->"45363ba5-7011-ce4a-bbb2-25b54117d598"], +Cell[637695, 16217, 173, 3, 41, "Output",ExpressionUUID->"a7117811-d866-a74a-b451-2e5611fcbe98"] +}, Open ]], +Cell[CellGroupData[{ +Cell[637905, 16225, 2219, 64, 81, "Input",ExpressionUUID->"edfdd675-c60b-304e-9e16-68452b971319"], +Cell[640127, 16291, 579, 12, 71, "Message",ExpressionUUID->"d229ea6a-26e4-d448-90bf-3044f07066eb"], +Cell[640709, 16305, 580, 12, 71, "Message",ExpressionUUID->"7911ebc5-127d-5841-a246-fcff3e2e3d7f"], +Cell[641292, 16319, 586, 12, 71, "Message",ExpressionUUID->"62b490bd-3e68-5b49-8d2e-1bbb1e520215"], +Cell[641881, 16333, 458, 10, 26, "Message",ExpressionUUID->"2c340204-da84-dd4d-abb8-8821cc152f8d"], +Cell[642342, 16345, 171, 3, 41, "Output",ExpressionUUID->"88b2df22-3f75-ff45-90a9-fda3ac3bb827"] +}, Open ]], +Cell[CellGroupData[{ +Cell[642550, 16353, 2219, 64, 81, "Input",ExpressionUUID->"d0469d46-2e74-494a-be85-b41cb2f3fa92"], +Cell[644772, 16419, 576, 12, 71, "Message",ExpressionUUID->"8c45e08e-3e6d-d74b-a260-2b9be908c427"], +Cell[645351, 16433, 580, 12, 71, "Message",ExpressionUUID->"05cc4b97-7653-f04b-8664-f56b3128e201"], +Cell[645934, 16447, 584, 12, 71, "Message",ExpressionUUID->"880f1d89-ca48-ef4c-8955-16a02dd06624"], +Cell[646521, 16461, 458, 10, 26, "Message",ExpressionUUID->"fbbc91b1-3b40-a04c-8f78-5ca75ca88c9b"], +Cell[646982, 16473, 173, 3, 41, "Output",ExpressionUUID->"ea027f70-f222-b745-8c2e-f4a8bd2e0421"] +}, Open ]], +Cell[CellGroupData[{ +Cell[647192, 16481, 212, 6, 60, "Input",ExpressionUUID->"58b5e243-0972-1946-bd17-aca0f3e8a35b"], +Cell[647407, 16489, 172, 3, 41, "Output",ExpressionUUID->"3682abd7-ed62-9948-84cf-8fffa8ddbfe7"] +}, Open ]], +Cell[647594, 16495, 244, 5, 36, "Input",ExpressionUUID->"8ae59c8e-a0a1-f646-a3f5-a3711ba632a4"], +Cell[CellGroupData[{ +Cell[647863, 16504, 558, 19, 66, "Input",ExpressionUUID->"403fd1b3-6929-134c-834a-14f2acd2fccb"], +Cell[648424, 16525, 171, 3, 41, "Output",ExpressionUUID->"9fbf2f5c-e66a-8c48-92c5-cb97211e83a1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[648632, 16533, 170, 5, 71, "Input",ExpressionUUID->"434ec2be-ef30-1d48-bf44-e1e8b179c2e0"], +Cell[648805, 16540, 171, 3, 41, "Output",ExpressionUUID->"7a911217-f777-234b-9e3e-66fa91b95a93"] +}, Open ]], +Cell[CellGroupData[{ +Cell[649013, 16548, 181, 5, 55, "Input",ExpressionUUID->"defdc4af-a758-2c46-b8da-ac4403e5ffd4"], +Cell[649197, 16555, 173, 3, 41, "Output",ExpressionUUID->"71512215-c060-b042-87dd-cf63c2fdbe79"] +}, Open ]], +Cell[CellGroupData[{ +Cell[649407, 16563, 6055, 185, 431, "Input",ExpressionUUID->"7643457c-ba0b-b641-aa35-59c61447beaf"], +Cell[655465, 16750, 173, 3, 41, "Output",ExpressionUUID->"83eb5a5c-2221-9048-9616-76c841caa7ff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[655675, 16758, 368, 9, 53, "Input",ExpressionUUID->"88a32c79-3b56-5047-96b0-6fadcea3787e"], +Cell[656046, 16769, 172, 3, 41, "Output",ExpressionUUID->"3469ea64-5888-e347-a592-fe58acf45252"] +}, Open ]], +Cell[CellGroupData[{ +Cell[656255, 16777, 6122, 187, 431, "Input",ExpressionUUID->"12b95c40-ca91-7148-a053-e8c97b54e7b6"], +Cell[662380, 16966, 173, 3, 41, "Output",ExpressionUUID->"6078ae64-e041-ef46-9c98-aeb384a7565b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[662590, 16974, 368, 9, 53, "Input",ExpressionUUID->"4e259183-4a48-7f41-8fc6-1aa60d807e18"], +Cell[662961, 16985, 172, 3, 41, "Output",ExpressionUUID->"ed53339e-8a54-b740-a712-127e0aa48364"] +}, Open ]], +Cell[CellGroupData[{ +Cell[663170, 16993, 2663, 88, 215, "Input",ExpressionUUID->"73b06553-f9e2-3447-85e9-8a163aa2ec21"], +Cell[665836, 17083, 173, 3, 41, "Output",ExpressionUUID->"0881e898-a895-4f44-9932-c9b57f23fb23"] +}, Open ]], +Cell[CellGroupData[{ +Cell[666046, 17091, 2603, 85, 215, "Input",ExpressionUUID->"64658d71-e48f-7c4d-bfd6-30344127c7bf"], +Cell[668652, 17178, 171, 3, 41, "Output",ExpressionUUID->"6f8be6ff-3439-7547-b2e5-a7f15df03852"] +}, Open ]], +Cell[CellGroupData[{ +Cell[668860, 17186, 3712, 118, 316, "Input",ExpressionUUID->"02b10812-8656-6e43-99ab-3ff059fd6dae"], +Cell[672575, 17306, 174, 3, 41, "Output",ExpressionUUID->"5f1268db-50d9-294a-839d-2dc73b3483c5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[672786, 17314, 2054, 59, 116, "Input",ExpressionUUID->"ba508068-6b78-254c-87d6-cf1adc0753dd"], +Cell[674843, 17375, 574, 12, 71, "Message",ExpressionUUID->"fea97571-51b6-bc4d-8922-e67cbea226be"], +Cell[675420, 17389, 580, 12, 71, "Message",ExpressionUUID->"f9381c1d-d837-a646-bb62-f69cb564b78b"], +Cell[676003, 17403, 580, 12, 71, "Message",ExpressionUUID->"2dd3f3b2-ca3e-6c42-abc0-5cf7523a6a65"], +Cell[676586, 17417, 456, 10, 26, "Message",ExpressionUUID->"5a727290-5b6b-a347-9739-3df9958ec415"], +Cell[677045, 17429, 172, 3, 41, "Output",ExpressionUUID->"44426372-aa84-bf4c-9f95-4de13286a09a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[677254, 17437, 2054, 59, 116, "Input",ExpressionUUID->"842e33e4-ae06-f746-ab8b-97489285cc9c"], +Cell[679311, 17498, 576, 12, 71, "Message",ExpressionUUID->"a32ffe4b-5346-7b46-9dee-b8bad033001e"], +Cell[679890, 17512, 577, 12, 71, "Message",ExpressionUUID->"902c6490-8537-484d-8825-0d2295db4f12"], +Cell[680470, 17526, 582, 12, 71, "Message",ExpressionUUID->"1b49285c-a5d9-074c-871b-37b4cadb7269"], +Cell[681055, 17540, 458, 10, 26, "Message",ExpressionUUID->"2ff3d4da-4949-1448-b68b-aac1ae56bb1a"], +Cell[681516, 17552, 172, 3, 41, "Output",ExpressionUUID->"046dcac0-9165-4b41-8a82-c19ed01a7ad4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[681725, 17560, 2028, 55, 63, "Input",ExpressionUUID->"b2e314f8-a6f0-6942-a94c-5ac1cacd7190"], +Cell[683756, 17617, 20021, 378, 295, "Output",ExpressionUUID->"d1cda4a3-f1fb-0d44-a506-74525ae66245"] +}, Open ]], +Cell[CellGroupData[{ +Cell[703814, 18000, 2146, 61, 109, "Input",ExpressionUUID->"497f9779-a3e4-c84e-a207-0aac70483e3c"], +Cell[705963, 18063, 502, 11, 109, "Message",ExpressionUUID->"56dc07a7-05cc-424a-8fff-08f056385a44"], +Cell[706468, 18076, 506, 11, 48, "Message",ExpressionUUID->"71ae3883-d346-164c-9764-dc57f6863817"], +Cell[706977, 18089, 508, 11, 48, "Message",ExpressionUUID->"16c86d51-9f27-3c48-b312-93c489e538a4"], +Cell[707488, 18102, 456, 10, 26, "Message",ExpressionUUID->"64c101a8-dc8b-1f4e-9946-a38ce949c736"], +Cell[707947, 18114, 30015, 538, 290, "Output",ExpressionUUID->"f98d1ba6-9bcb-b94f-a8fa-792e22f5ac65"] +}, Open ]], +Cell[737977, 18655, 209, 5, 36, "Input",ExpressionUUID->"54d9c986-d109-3d4c-9ee8-76427bb63659"], +Cell[CellGroupData[{ +Cell[738211, 18664, 1590, 47, 86, "Input",ExpressionUUID->"5dd0afca-0a4f-544d-814d-33e1c649116f"], +Cell[739804, 18713, 342, 6, 26, "Message",ExpressionUUID->"9e6d6a70-ad75-9b40-8a0b-ca802f09d5a2"], +Cell[740149, 18721, 101, 0, 41, "Output",ExpressionUUID->"b372c493-d6de-934f-951c-1a3f45718733"] +}, Open ]], +Cell[CellGroupData[{ +Cell[740287, 18726, 2249, 64, 81, "Input",ExpressionUUID->"a3e3d205-e3b4-874a-a36c-53cfa72184b4"], +Cell[742539, 18792, 342, 6, 26, "Message",ExpressionUUID->"9e9d949e-1d4c-8649-8d0e-b7deecfb3ba4"], +Cell[742884, 18800, 342, 6, 26, "Message",ExpressionUUID->"76f8ef60-aab6-7442-aeca-4cebad23cb0e"], +Cell[743229, 18808, 101, 0, 41, "Output",ExpressionUUID->"37cdd74c-8ec4-9047-aa14-d493ed3e18d0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[743367, 18813, 2221, 64, 81, "Input",ExpressionUUID->"6977f025-454e-0e4a-b118-07bad9ba3e82"], +Cell[745591, 18879, 342, 6, 26, "Message",ExpressionUUID->"566a849f-fc85-4d42-a545-a46d44cf7346"], +Cell[745936, 18887, 342, 6, 26, "Message",ExpressionUUID->"fb1cb4d6-a504-e445-bb52-7946e1bca3c6"], +Cell[746281, 18895, 100, 0, 41, "Output",ExpressionUUID->"5fc76ad3-8f3e-9246-bda1-78737e269d99"] +}, Open ]], +Cell[CellGroupData[{ +Cell[746418, 18900, 2223, 64, 81, "Input",ExpressionUUID->"df8ecb01-788a-604d-b773-f29bb610eb30"], +Cell[748644, 18966, 342, 6, 26, "Message",ExpressionUUID->"f9e34ec5-1462-b340-b2e7-8e875dd33d28"], +Cell[748989, 18974, 342, 6, 26, "Message",ExpressionUUID->"19ffb858-7059-2a48-a3db-e2d0dfcf2131"], +Cell[749334, 18982, 101, 0, 41, "Output",ExpressionUUID->"dbb2a900-6759-7349-a1e8-ea8b52a29f31"] +}, Open ]], +Cell[CellGroupData[{ +Cell[749472, 18987, 213, 6, 60, "Input",ExpressionUUID->"54a5e329-20bd-e742-afe8-d2cfa007cfcf"], +Cell[749688, 18995, 102, 0, 41, "Output",ExpressionUUID->"8f1edf59-aed7-914f-9d19-1949d2a555d6"] +}, Open ]], +Cell[749805, 18998, 186, 4, 36, "Input",ExpressionUUID->"5860aea8-afeb-4d17-a86c-19f24e0a5bcc"] } ] *) -(* End of internal cache information *) - diff --git a/Pu240_798-811_TitovAA/172-68_h_Pu240_26-27/h_172-68_Pu240_26-27_gid_Qw1.nb b/Pu240_798-811_TitovAA/172-68_h_Pu240_26-27/h_172-68_Pu240_26-27_gid_Qw1.nb index b66829d..f584ead 100644 --- a/Pu240_798-811_TitovAA/172-68_h_Pu240_26-27/h_172-68_Pu240_26-27_gid_Qw1.nb +++ b/Pu240_798-811_TitovAA/172-68_h_Pu240_26-27/h_172-68_Pu240_26-27_gid_Qw1.nb @@ -3,32 +3,4882 @@ (*** 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[ 399174, 9347] -NotebookOptionsPosition[ 375132, 8983] -NotebookOutlinePosition[ 375544, 9000] -CellTagsIndexPosition[ 375501, 8997] +NotebookDataLength[ 596005, 14521] +NotebookOptionsPosition[ 556964, 13900] +NotebookOutlinePosition[ 557375, 13917] +CellTagsIndexPosition[ 557332, 13914] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f1", "="}]], "Input", + RowBox[{"d", "=", "1.95"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.994074211664226*^9, 3.994074212605893*^9}, { + 3.994074246621201*^9, 3.994074265935053*^9}}, + CellLabel-> + "In[304]:=",ExpressionUUID->"ba3c332d-ee0d-459f-8b4f-87a6d15e2660"], + +Cell[BoxData["1.95`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, {3.994074196804253*^9, 3.994074214075809*^9}, { + 3.9940742497364883`*^9, 3.9940742697527313`*^9}}, + CellLabel-> + "Out[304]=",ExpressionUUID->"556b2940-a91e-4db9-86ab-2d8d70fc38d8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.9940740226123867`*^9, 3.994074030397141*^9}}, + CellLabel-> + "In[305]:=",ExpressionUUID->"114295aa-7299-4e80-acb9-2c2dcad002e2"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, {3.9940741968744993`*^9, 3.994074214306916*^9}, { + 3.994074249779564*^9, 3.9940742697936697`*^9}}, + CellLabel-> + "Out[305]=",ExpressionUUID->"f4fab3ae-36f6-4243-8835-083571caeba3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "172"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.994074027305109*^9, 3.994074028074005*^9}}, + CellLabel-> + "In[306]:=",ExpressionUUID->"95c8a061-4ed7-4547-a690-b7ab673958ae"], + +Cell[BoxData["172"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, {3.994074196887857*^9, 3.994074214318638*^9}, { + 3.9940742497919416`*^9, 3.9940742698063602`*^9}}, + CellLabel-> + "Out[306]=",ExpressionUUID->"acebbc0a-ef2e-4786-83a9-33d2575ba07a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel-> + "In[307]:=",ExpressionUUID->"1cc3e765-6d8e-4d58-8fd0-6c3164091ec9"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, {3.9940741969012012`*^9, 3.994074214329146*^9}, { + 3.9940742497961063`*^9, 3.994074269818478*^9}}, + CellLabel-> + "Out[307]=",ExpressionUUID->"8d774961-1cc1-496c-824f-88e29b5272af"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel-> + "In[308]:=",ExpressionUUID->"9570a7a8-b674-476f-afc6-4526d7903be2"], + +Cell[BoxData["0.5435000000000001`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, {3.9940741969137297`*^9, 3.99407421433959*^9}, { + 3.994074249812704*^9, 3.994074269830806*^9}}, + CellLabel-> + "Out[308]=",ExpressionUUID->"88893293-95b6-42eb-bda9-51c2b0e222ca"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel-> + "In[309]:=",ExpressionUUID->"41426b9d-711a-4a0d-8329-7566ccf3bb96"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, {3.9940741969249763`*^9, 3.994074214349977*^9}, { + 3.99407424982506*^9, 3.994074269834938*^9}}, + CellLabel-> + "Out[309]=",ExpressionUUID->"4ada1cc9-9d92-477d-9fe9-e857d09f27e6"] +}, 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[310]:=",ExpressionUUID->"66cfa4a3-2d38-425d-9c39-ad913b1b5db7"], + +Cell[BoxData["6.451105409164632`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, {3.994074196937035*^9, 3.994074214360525*^9}, { + 3.994074249837967*^9, 3.9940742698497963`*^9}}, + CellLabel-> + "Out[310]=",ExpressionUUID->"231a73cd-ade5-4a8b-a646-12b27390f9c7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel-> + "In[311]:=",ExpressionUUID->"16ae2ad5-24a1-4188-b303-f20f4a7a88a5"], + +Cell[BoxData["4.734719918224123`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, {3.9940741969492617`*^9, 3.994074214370586*^9}, { + 3.994074249850299*^9, 3.994074269861824*^9}}, + CellLabel-> + "Out[311]=",ExpressionUUID->"44546f67-77fc-4da4-98f4-7c5c042ff1d0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.852277809"}]], "Input", + CellChangeTimes->{3.991799283179735*^9, 3.9940740415240393`*^9}, + CellLabel-> + "In[312]:=",ExpressionUUID->"fd0d3b24-ec74-46d6-9406-92fc0fc7d6fd"], + +Cell[BoxData["0.852277809`"], "Output", + CellChangeTimes->{{3.994074196961275*^9, 3.994074214380481*^9}, { + 3.994074249862259*^9, 3.994074269873619*^9}}, + CellLabel-> + "Out[312]=",ExpressionUUID->"9ba46232-ffc5-4910-828e-9196c12c545d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.3903505481"}]], "Input", + CellChangeTimes->{3.991799280663351*^9, 3.99407404519888*^9}, + CellLabel-> + "In[313]:=",ExpressionUUID->"d96413c4-e06e-4060-bad6-4d4931ea412c"], + +Cell[BoxData["0.3903505481`"], "Output", + CellChangeTimes->{{3.99407419697276*^9, 3.9940742143904543`*^9}, { + 3.99407424987506*^9, 3.994074269885377*^9}}, + CellLabel-> + "Out[313]=",ExpressionUUID->"1817b3cb-73d5-4cd8-825c-1255af3a5d27"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel-> + "In[314]:=",ExpressionUUID->"88b2bca7-4c2a-46fa-9951-a957773a8650"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, {3.9940741969837933`*^9, 3.994074214400448*^9}, { + 3.994074249886661*^9, 3.994074269897275*^9}}, + CellLabel-> + "Out[314]=",ExpressionUUID->"e315d0ac-64aa-4680-8b80-b0ec912e5eb8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel-> + "In[315]:=",ExpressionUUID->"1b36c2f9-f078-4c25-b52e-69542e9a07fa"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, {3.9940741969946527`*^9, 3.994074214410337*^9}, { + 3.9940742498968973`*^9, 3.994074269909542*^9}}, + CellLabel-> + "Out[315]=",ExpressionUUID->"c087a469-c67f-44df-8f88-df684276a201"] +}, 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[316]:=",ExpressionUUID->"1a41ae46-b75b-404f-ab2b-a579c3f324c8"], + +Cell[BoxData["2.19751871461767`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, {3.994074197005885*^9, 3.994074214421315*^9}, { + 3.994074249908176*^9, 3.994074269922103*^9}}, + CellLabel-> + "Out[316]=",ExpressionUUID->"f46f1558-8cb9-4ae7-8421-f7d9fb9bbc12"] +}, 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[317]:=",ExpressionUUID->"844fe406-8e7c-4a7e-8f2c-db07339e9a90"], + +Cell[BoxData["1.4271003361718892`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, {3.994074197017363*^9, 3.994074214431409*^9}, { + 3.994074249918466*^9, 3.99407426993229*^9}}, + CellLabel-> + "Out[317]=",ExpressionUUID->"de77989e-2e29-4965-9d8a-b3b2bd73c11f"] +}, 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[318]:=",ExpressionUUID->"e81a24ab-eede-410c-8054-c5feb6edf31a"], + +Cell[BoxData["0.4377300224639211`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, {3.994074197029154*^9, 3.994074214441661*^9}, { + 3.9940742499280653`*^9, 3.994074269943099*^9}}, + CellLabel-> + "Out[318]=",ExpressionUUID->"ad960200-974f-4e00-85ed-1d847ef8e232"] +}, 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[319]:=",ExpressionUUID->"3a1b178e-5a69-420a-a203-40f73d32c2c3"], + +Cell[BoxData[ + RowBox[{"-", "0.09062394423616692`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, {3.9940741970396633`*^9, 3.994074214453579*^9}, { + 3.994074249938612*^9, 3.994074269953534*^9}}, + CellLabel-> + "Out[319]=",ExpressionUUID->"fae3d388-ebfc-4878-9768-53581a7d6979"] +}, 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[320]:=",ExpressionUUID->"c9bdf29a-9fbe-42d9-bc00-7dc8477c3939"], + +Cell[BoxData[ + RowBox[{"-", "0.5469059277191528`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, {3.994074197050289*^9, 3.994074214467175*^9}, { + 3.994074249949532*^9, 3.9940742699645767`*^9}}, + CellLabel-> + "Out[320]=",ExpressionUUID->"836d8af8-9e32-43d7-a534-0934a706c992"] +}, 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[321]:=",ExpressionUUID->"e320432c-3c96-402c-9032-e06766716510"], + +Cell[BoxData["0.7058922703634168`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, {3.994074197062862*^9, 3.99407421448357*^9}, { + 3.9940742499608793`*^9, 3.994074269975973*^9}}, + CellLabel-> + "Out[321]=",ExpressionUUID->"1edad1ba-0974-41c6-ab07-caae3fd74e4b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel-> + "In[322]:=",ExpressionUUID->"704d957b-d36b-49d9-8ccc-7769aea79ca5"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, {3.9940741970755367`*^9, 3.994074214495585*^9}, { + 3.994074249972097*^9, 3.9940742699872303`*^9}}, + CellLabel-> + "Out[322]=",ExpressionUUID->"1ce2e0ac-3643-4d1f-bf80-cd8a58bb5197"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel-> + "In[323]:=",ExpressionUUID->"75876833-cff1-4f75-8397-1ea9b241d52a"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, {3.994074197089067*^9, 3.994074214507393*^9}, { + 3.99407424998314*^9, 3.994074269998393*^9}}, + CellLabel-> + "Out[323]=",ExpressionUUID->"9e3bf7e0-db3c-4e80-8a7b-5918c1348e38"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel-> + "In[324]:=",ExpressionUUID->"b1f4f70a-4b77-4e41-abdc-72f1a88c84f5"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, {3.9940741971016483`*^9, 3.9940742145189466`*^9}, { + 3.994074249994322*^9, 3.994074270009439*^9}}, + CellLabel-> + "Out[324]=",ExpressionUUID->"ba99e333-17f0-4c64-aa64-42bc40397bf1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel-> + "In[325]:=",ExpressionUUID->"dae0ef62-0e09-49f3-a1fe-ebbbb61fab0c"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, {3.9940741971133337`*^9, 3.99407421453058*^9}, { + 3.994074250005796*^9, 3.994074270020775*^9}}, + CellLabel-> + "Out[325]=",ExpressionUUID->"4540ec32-3056-45e9-a498-525004066f9c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel-> + "In[326]:=",ExpressionUUID->"8fb4cee8-8821-4a2a-b3f1-9e3451a6453d"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, {3.994074197124381*^9, 3.994074214542293*^9}, { + 3.994074250017613*^9, 3.9940742700324078`*^9}}, + CellLabel-> + "Out[326]=",ExpressionUUID->"b7e29a91-bd30-4a9b-871d-4e041ddab9a8"] +}, 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.994074052479707*^9, 3.9940740526225157`*^9}}, + CellLabel-> + "In[327]:=",ExpressionUUID->"552aa3bd-0fd9-4ece-a039-8e81f92de910"], + +Cell[BoxData["66"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, {3.99407419713608*^9, 3.994074214545911*^9}, { + 3.994074250027919*^9, 3.99407427004285*^9}}, + CellLabel-> + "Out[327]=",ExpressionUUID->"4726da29-02d3-4d46-830d-b36f5252be02"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, {3.99407405616786*^9, 3.994074056966621*^9}}, + CellLabel-> + "In[328]:=",ExpressionUUID->"4c616ef5-570f-464e-b88f-d1ed7313d51f"], + +Cell[BoxData["28"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, {3.994074197147298*^9, 3.99407421455849*^9}, { + 3.9940742500393*^9, 3.994074270054291*^9}}, + CellLabel-> + "Out[328]=",ExpressionUUID->"e974a83d-f03a-4c70-b462-cdaf9dcb68ab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel-> + "In[329]:=",ExpressionUUID->"096a1657-78bc-4752-bb7e-95e56b96cadd"], + +Cell[BoxData["68"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, {3.994074197159381*^9, 3.994074214569437*^9}, { + 3.9940742500504293`*^9, 3.9940742700651913`*^9}}, + CellLabel-> + "Out[329]=",ExpressionUUID->"96646b9a-8ac9-4994-898d-f1b8a49ca68e"] +}, 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[330]:=",ExpressionUUID->"66cc0c50-eaa8-468c-9d8a-c7cb64a85294"], + +Cell[BoxData["0.10723666210670314`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, {3.994074197172007*^9, 3.994074214580143*^9}, { + 3.994074250060562*^9, 3.9940742700753593`*^9}}, + CellLabel-> + "Out[330]=",ExpressionUUID->"5a0a951a-a4a0-46c3-be2c-79e557f9aff5"] +}, 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[331]:=",ExpressionUUID->"6f37de12-b072-4ebb-8bef-d789f5667525"], + +Cell[BoxData[ + RowBox[{"-", "2.5678385772913814`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, {3.994074197183957*^9, 3.994074214590371*^9}, { + 3.994074250071249*^9, 3.99407427008554*^9}}, + CellLabel-> + "Out[331]=",ExpressionUUID->"7ec0516d-09fb-4e84-8c23-e9f77fc22b6a"] +}, 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[332]:=",ExpressionUUID->"3f8bb9eb-ad92-4fa5-ae94-7b654151a7fb"], + +Cell[BoxData["17.339463280274387`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, {3.994074197196582*^9, 3.9940742146010637`*^9}, { + 3.994074250082402*^9, 3.9940742700958967`*^9}}, + CellLabel-> + "Out[332]=",ExpressionUUID->"1313161d-41c4-4295-9655-16fc257d0da7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel-> + "In[333]:=",ExpressionUUID->"3f76d94e-bd3a-4ad9-ac4d-3895de751d5c"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, {3.9940741972101183`*^9, 3.9940742146122723`*^9}, { + 3.994074250094462*^9, 3.994074270106193*^9}}, + CellLabel-> + "Out[333]=",ExpressionUUID->"d0418020-8543-49da-b390-cdfafc389132"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "1.895"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { + 3.994074073155587*^9, 3.994074075499446*^9}}, + CellLabel-> + "In[334]:=",ExpressionUUID->"c538a944-f1cd-45ec-9213-4ee9ba34888e"], + +Cell[BoxData["1.895`"], "Output", + CellChangeTimes->{{3.9940741972243557`*^9, 3.994074214623012*^9}, { + 3.994074250106516*^9, 3.9940742701165457`*^9}}, + CellLabel-> + "Out[334]=",ExpressionUUID->"c0d9c95d-f8fd-4353-8a02-0398d945711d"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel-> + "In[335]:=",ExpressionUUID->"b6ffd985-f8c0-40ec-8c9a-420755112fa1"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.765"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.994074078227497*^9, 3.9940740796275997`*^9}}, + CellLabel-> + "In[336]:=",ExpressionUUID->"8b2be4fe-5abe-41c1-8c2b-308221f789c5"], + +Cell[BoxData["0.765`"], "Output", + CellChangeTimes->{{3.994074197245954*^9, 3.994074214636681*^9}, { + 3.9940742501222553`*^9, 3.99407427012961*^9}}, + CellLabel-> + "Out[336]=",ExpressionUUID->"39d87589-88b5-439a-a5c3-1f92e446f010"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel-> + "In[337]:=",ExpressionUUID->"53a13f5f-e05e-47ca-b734-090c55369ce1"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "2.605"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.9940740824169683`*^9, 3.9940740841708183`*^9}}, + CellLabel-> + "In[338]:=",ExpressionUUID->"cf8cda0c-3bb3-4016-a3f5-9c6926bbc271"], + +Cell[BoxData["2.605`"], "Output", + CellChangeTimes->{{3.994074197269746*^9, 3.994074214649177*^9}, { + 3.994074250142523*^9, 3.994074270141824*^9}}, + CellLabel-> + "Out[338]=",ExpressionUUID->"ef0435dd-913b-4b7c-89c0-a17719b03d16"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel-> + "In[339]:=",ExpressionUUID->"36067f20-9256-49cd-b13a-2acfaf085868"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.115"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, {3.994074087466568*^9, 3.9940740892428827`*^9}}, + CellLabel-> + "In[340]:=",ExpressionUUID->"896f3cdf-8d20-4b50-ac74-5fc9cae1e9d4"], + +Cell[BoxData["1.115`"], "Output", + CellChangeTimes->{{3.9940741972942533`*^9, 3.9940742146616087`*^9}, { + 3.994074250166238*^9, 3.9940742701540823`*^9}}, + CellLabel-> + "Out[340]=",ExpressionUUID->"87d8fbc3-8359-4b32-8756-b5cbde25a2fb"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel-> + "In[341]:=",ExpressionUUID->"13a887da-fdf1-4555-bdc0-cfce424630d2"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.375"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, {3.994074092127721*^9, + 3.994074094282755*^9}}, + CellLabel-> + "In[342]:=",ExpressionUUID->"a6b21d46-0453-469c-8b62-efbaebe4b955"], + +Cell[BoxData["1.375`"], "Output", + CellChangeTimes->{{3.9940741973176317`*^9, 3.9940742146740303`*^9}, { + 3.994074250185948*^9, 3.9940742701663027`*^9}}, + CellLabel-> + "Out[342]=",ExpressionUUID->"9a8b3fab-d57d-4175-8174-701cc8a73330"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel-> + "In[343]:=",ExpressionUUID->"9eedf60d-53ef-4938-baa6-11e02c29cf8f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.545"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.994074098253368*^9, + 3.994074099547431*^9}}, + CellLabel-> + "In[344]:=",ExpressionUUID->"ecd7ca77-2fdc-4a6c-b6f5-709a80e8eb24"], + +Cell[BoxData["0.545`"], "Output", + CellChangeTimes->{{3.9940741973401327`*^9, 3.994074214686512*^9}, { + 3.994074250207786*^9, 3.994074270178926*^9}}, + CellLabel-> + "Out[344]=",ExpressionUUID->"d8529a53-686a-4e4a-a62b-356a2adc2e55"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel-> + "In[345]:=",ExpressionUUID->"0066d7c9-cbac-458f-a9d8-0f394de6b7d7"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "1.35"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.994074102320486*^9, + 3.9940741031259613`*^9}}, + CellLabel-> + "In[346]:=",ExpressionUUID->"eb555cef-293a-4b3f-a8d4-770f015ea832"], + +Cell[BoxData["1.35`"], "Output", + CellChangeTimes->{{3.994074197360721*^9, 3.994074214698968*^9}, { + 3.9940742502296133`*^9, 3.994074270190978*^9}}, + CellLabel-> + "Out[346]=",ExpressionUUID->"5fa5fe46-82da-47e3-b06f-c0b1b24ac58f"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel-> + "In[347]:=",ExpressionUUID->"2d6d55d5-526d-4fa4-b318-5bfabd7913e0"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "0.655"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, {3.994074105268124*^9, 3.994074106561956*^9}}, + CellLabel-> + "In[348]:=",ExpressionUUID->"ce46883d-0875-488c-a662-b1a9828b60a4"], + +Cell[BoxData["0.655`"], "Output", + CellChangeTimes->{{3.994074197383122*^9, 3.994074214711643*^9}, { + 3.994074250250944*^9, 3.994074270203269*^9}}, + CellLabel-> + "Out[348]=",ExpressionUUID->"8198cd7f-c43c-436d-a289-efc2055d75e6"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel-> + "In[349]:=",ExpressionUUID->"221b8dcb-f609-494a-b36c-40b6472c10a3"], + +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[350]:=",ExpressionUUID->"e446f4d8-14f5-4096-837e-b38ea645f5b1"], + +Cell[BoxData["0.1542863605960474`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, {3.994074197462419*^9, 3.9940742147508163`*^9}, { + 3.994074250298726*^9, 3.994074270240198*^9}}, + CellLabel-> + "Out[350]=",ExpressionUUID->"782841f2-4225-4aff-9662-b46ab0b98d7a"] +}, 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[351]:=",ExpressionUUID->"c754259e-b681-44ec-bc5f-f1002de6b346"], + +Cell[BoxData["6.986649521084862`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, {3.994074197551347*^9, 3.994074214777306*^9}, { + 3.9940742503242893`*^9, 3.994074270266127*^9}}, + CellLabel-> + "Out[351]=",ExpressionUUID->"e94e89e2-c00f-406b-9e5a-5d750cf4e528"] +}, 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[352]:=",ExpressionUUID->"a0d78b9d-da66-4b78-a3d6-d80e8e08266d"], + +Cell[BoxData[ + RowBox[{"-", "15.225784715275067`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, {3.994074197626877*^9, 3.994074214803336*^9}, { + 3.994074250347639*^9, 3.9940742702914057`*^9}}, + CellLabel-> + "Out[352]=",ExpressionUUID->"3677372e-b949-43a1-b9ef-a4fddd71eba0"] +}, 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[353]:=",ExpressionUUID->"29ba86b4-e35f-41cb-bd23-95aa4f58b80c"], + +Cell[BoxData[ + RowBox[{"-", "19.527743438945258`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, {3.994074197680339*^9, 3.9940742148337717`*^9}, { + 3.994074250376841*^9, 3.9940742703219957`*^9}}, + CellLabel-> + "Out[353]=",ExpressionUUID->"b33ef8da-8a9c-4478-858d-00bd52663baa"] +}, 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[354]:=",ExpressionUUID->"8be7818b-92d5-4578-aa31-e4da70c8e4c5"], + +Cell[BoxData[ + RowBox[{"-", "55.27021800638023`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, {3.9940741977668943`*^9, 3.9940742148649673`*^9}, { + 3.994074250406843*^9, 3.994074270352029*^9}}, + CellLabel-> + "Out[354]=",ExpressionUUID->"1910edf3-acaa-48b3-b89f-4c2225d2bd72"] +}, 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[355]:=",ExpressionUUID->"64302f58-29a7-49a8-b2e1-fa56c49c4dca"], + +Cell[BoxData[ + RowBox[{"-", "141.4524755079782`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, {3.994074197832451*^9, 3.994074214909892*^9}, { + 3.994074250439662*^9, 3.994074270387487*^9}}, + CellLabel-> + "Out[355]=",ExpressionUUID->"c85322e9-84b9-486b-bb95-5be89728c4bc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel-> + "In[356]:=",ExpressionUUID->"8f7c645d-ec3b-4a9b-9e3f-ed7ed480145a"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, {3.994074197929666*^9, 3.994074214922945*^9}, { + 3.994074250452722*^9, 3.994074270403535*^9}}, + CellLabel-> + "Out[356]=",ExpressionUUID->"1b41b77d-0477-4ffa-be10-e2ca605f6e54"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel-> + "In[357]:=",ExpressionUUID->"c43bdea7-0906-49ec-8ca6-ef839705fc94"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, {3.994074197952071*^9, 3.994074214935376*^9}, { + 3.994074250464295*^9, 3.994074270413846*^9}}, + CellLabel-> + "Out[357]=",ExpressionUUID->"209d102e-8b06-49fd-8562-1e9609fb488a"] +}, 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[358]:=",ExpressionUUID->"04a502bd-2a13-4818-8add-72d236fb5cef"], + +Cell[BoxData["111.55440139653717`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, {3.9940741979658833`*^9, 3.994074214947126*^9}, { + 3.99407425047659*^9, 3.994074270424139*^9}}, + CellLabel-> + "Out[358]=",ExpressionUUID->"cfd7f144-2838-477a-be4a-1c8e8047ef31"] +}, 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[359]:=",ExpressionUUID->"408a3b04-8641-4ffc-b98c-fca92199312d"], + +Cell[BoxData[ + RowBox[{"-", "95.43889051158258`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, {3.994074197994025*^9, 3.994074214959611*^9}, { + 3.994074250488699*^9, 3.994074270434445*^9}}, + CellLabel-> + "Out[359]=",ExpressionUUID->"9f36d0ea-beaa-4937-9524-ffd3a9547bfa"] +}, 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[360]:=",ExpressionUUID->"e0c14472-8fa3-4706-a91e-87b0b649926b"], + +Cell[BoxData["113.13286100443031`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, {3.994074198004314*^9, 3.994074214972053*^9}, { + 3.994074250500126*^9, 3.99407427044481*^9}}, + CellLabel-> + "Out[360]=",ExpressionUUID->"7473e455-ee7c-440c-9905-7d894df38dd7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel-> + "In[361]:=",ExpressionUUID->"3361d54a-9fee-4dc7-b0f9-c079ad13bff9"], + +Cell[BoxData["0.4377300224639211`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, {3.994074198016279*^9, 3.994074214983481*^9}, { + 3.994074250511408*^9, 3.994074270455081*^9}}, + CellLabel-> + "Out[361]=",ExpressionUUID->"fc82e519-98a4-4ec5-abbb-822af7592133"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel-> + "In[362]:=",ExpressionUUID->"78afd026-364a-4aa4-9e4b-7291c917c93b"], + +Cell[BoxData[ + RowBox[{"-", "0.09062394423616692`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, {3.99407419803306*^9, 3.994074214997123*^9}, { + 3.994074250525971*^9, 3.994074270465309*^9}}, + CellLabel-> + "Out[362]=",ExpressionUUID->"b631c807-62d5-49fb-9333-765109003d6f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel-> + "In[363]:=",ExpressionUUID->"15a13a1d-3344-451b-bace-62f40125a6ae"], + +Cell[BoxData[ + RowBox[{"-", "0.5469059277191528`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, {3.994074198060273*^9, 3.994074215008013*^9}, { + 3.994074250535656*^9, 3.994074270476778*^9}}, + CellLabel-> + "Out[363]=",ExpressionUUID->"dc76234d-e699-4177-b1bf-67a8d584ffdf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel-> + "In[364]:=",ExpressionUUID->"06631f67-ba6a-4304-a742-be824337daa9"], + +Cell[BoxData["0.7058922703634168`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, {3.9940741980734253`*^9, 3.994074215018661*^9}, { + 3.994074250546678*^9, 3.9940742704879427`*^9}}, + CellLabel-> + "Out[364]=",ExpressionUUID->"b9d33f70-3d9e-4507-9542-c7565dac6a4a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel-> + "In[365]:=",ExpressionUUID->"94346525-779e-4404-8516-30e7487a8377"], + +Cell[BoxData["2.19751871461767`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, {3.994074198087656*^9, 3.9940742150302687`*^9}, { + 3.994074250550354*^9, 3.994074270499359*^9}}, + CellLabel-> + "Out[365]=",ExpressionUUID->"773cf697-359a-4f18-865c-27d836e37315"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel-> + "In[366]:=",ExpressionUUID->"ebf2bbf4-40de-4f6a-827f-7e8c756e14d7"], + +Cell[BoxData["1.4271003361718892`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, {3.994074198096857*^9, 3.994074215043764*^9}, { + 3.994074250564603*^9, 3.994074270511888*^9}}, + CellLabel-> + "Out[366]=",ExpressionUUID->"64c28c6f-8c52-4f26-9dcf-baf817ea4147"] +}, 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[367]:=",ExpressionUUID->"517d4477-0c6c-48e5-91af-37aa5f87471e"], + +Cell[BoxData[ + RowBox[{"-", "33.18726375495992`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, {3.994074198107793*^9, 3.994074215058444*^9}, { + 3.994074250574132*^9, 3.99407427052425*^9}}, + CellLabel-> + "Out[367]=",ExpressionUUID->"909ea9b0-71b9-4196-9318-eaff211b38d0"] +}, 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[368]:=",ExpressionUUID->"6064daa3-6279-4c68-958b-67bad8cf01d5"], + +Cell[BoxData[ + RowBox[{"-", "6.498883922853802`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, {3.994074198134163*^9, 3.994074215071083*^9}, { + 3.994074250583393*^9, 3.994074270535636*^9}}, + CellLabel-> + "Out[368]=",ExpressionUUID->"295b97de-a14e-487b-82ef-b83f9c6dc41f"] +}, 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[369]:=",ExpressionUUID->"ef5ef45e-02f1-40e0-98d6-43db39a8a36a"], + +Cell[BoxData["78.36713764157724`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, {3.99407419816089*^9, 3.994074215083827*^9}, { + 3.994074250592779*^9, 3.994074270550357*^9}}, + CellLabel-> + "Out[369]=",ExpressionUUID->"d3c5f8a3-eb62-4177-aee4-0ea6043e3985"] +}, 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[370]:=",ExpressionUUID->"0feb24b4-f965-4c9a-892b-0f55af7f3930"], + +Cell[BoxData[ + RowBox[{"-", "95.43889051158258`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, {3.994074198173212*^9, 3.9940742151226263`*^9}, { + 3.9940742506018353`*^9, 3.99407427055612*^9}}, + CellLabel-> + "Out[370]=",ExpressionUUID->"e98de81d-3dbf-481e-aa5a-72ff72ee6dc8"] +}, 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[371]:=",ExpressionUUID->"92f48aa9-a01c-431b-ad27-db26cba84490"], + +Cell[BoxData["106.6339770815765`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, {3.994074198185794*^9, 3.994074215135048*^9}, { + 3.994074250611326*^9, 3.994074270578539*^9}}, + CellLabel-> + "Out[371]=",ExpressionUUID->"ca981722-7728-47af-b853-953b186e37c1"] +}, 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[372]:=",ExpressionUUID->"4154f56f-4103-4558-b830-6083ff36be8d"], + +Cell[BoxData["51.145215962859936`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, {3.994074198196261*^9, 3.9940742151460247`*^9}, { + 3.994074250621415*^9, 3.99407427059237*^9}}, + CellLabel-> + "Out[372]=",ExpressionUUID->"d6ec32d4-207d-4cd8-9eeb-88f97add5e2f"] +}, 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[373]:=",ExpressionUUID->"2d5197b2-6c2a-4bb0-bcee-b44c1006a471"], + +Cell[BoxData["674.8474263523988`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, {3.994074198207098*^9, 3.9940742151610737`*^9}, { + 3.99407425063161*^9, 3.9940742706025248`*^9}}, + CellLabel-> + "Out[373]=",ExpressionUUID->"8a566fda-2491-4f78-88f7-6c8bd7948d76"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"f1", "=", "0.3983268181"}]], "Input", CellFrame->{{0, 0}, {0, 0}}, - CellChangeTimes->{3.991849227197853*^9}, + CellChangeTimes->{3.991849227197853*^9, 3.99423601235506*^9}, Background->RGBColor[ 0.87, 0.94, 1],ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", + RowBox[{"f2", "=", "0.1140433738"}]], "Input", CellFrame->{{0, 0}, {0, 0}}, - CellChangeTimes->{3.9918492290557346`*^9}, + CellChangeTimes->{3.9918492290557346`*^9, 3.994236018233659*^9}, Background->RGBColor[ 0.87, 0.94, 1],ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], @@ -2895,9 +7745,73 @@ qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", - RowBox[{"{", "}"}], "]"}]}]], "Input", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.005263"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.01561"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.025439"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.034428"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.042324"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.048911"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.054071"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.057726"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.059905"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.060662"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.060144"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.058493"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.055924"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.052616"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.048792"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.044623"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.040302"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.035956"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.031726"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.027689"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.023931"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.020479"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.017372"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.014605"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.012182"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.010077"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.008278"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.006747"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.005464"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.004393"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.003512"}], "}"}]}], "}"}], "]"}]}]], "Input", CellFrame->{{0, 0}, {0, 0}}, - CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}}, + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.994236222998274*^9}, Background->RGBColor[ 0.87, 0.94, 1],ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], @@ -8979,12 +13893,15 @@ Cell[BoxData["0.05576142449710889`"], "Output", CellChangeTimes->{3.9913392304624157`*^9}, CellLabel-> "Out[312]=",ExpressionUUID->"14434839-d5cf-b844-b849-b3b3102df434"] -}, Open ]] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input",ExpressionUUID->"60c63353-4bae-43d1-a5cd-279e942e44ea"] }, -WindowSize->{1440, 792}, -WindowMargins->{{0, Automatic}, {0, Automatic}}, +WindowSize->{714, 435}, +WindowMargins->{{Automatic, 3}, {Automatic, 15}}, CellContext->Notebook, -FrontEndVersion->"14.1 for Linux x86 (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" ] @@ -8999,356 +13916,613 @@ CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ -Cell[554, 20, 213, 5, 45, "Input",ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], -Cell[770, 27, 215, 5, 45, "Input",ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], Cell[CellGroupData[{ -Cell[1010, 36, 1301, 43, 48, "Input",ExpressionUUID->"5e48fe0c-b3e8-2b40-82cb-716b23b2f326"], -Cell[2314, 81, 178, 3, 33, "Output",ExpressionUUID->"1db85c02-7ca3-154e-854d-2c36f89709c4"] +Cell[576, 22, 354, 7, 66, "Input",ExpressionUUID->"ba3c332d-ee0d-459f-8b4f-87a6d15e2660"], +Cell[933, 31, 260, 5, 41, "Output",ExpressionUUID->"556b2940-a91e-4db9-86ab-2d8d70fc38d8"] }, Open ]], Cell[CellGroupData[{ -Cell[2529, 89, 910, 31, 58, "Input",ExpressionUUID->"e4db2648-4e1a-2c46-83ab-fcd932c3b663"], -Cell[3442, 122, 175, 3, 33, "Output",ExpressionUUID->"78ed190c-23cd-4d45-867a-2b08174b715f"] +Cell[1230, 41, 253, 5, 36, "Input",ExpressionUUID->"114295aa-7299-4e80-acb9-2c2dcad002e2"], +Cell[1486, 48, 260, 5, 41, "Output",ExpressionUUID->"f4fab3ae-36f6-4243-8835-083571caeba3"] }, Open ]], Cell[CellGroupData[{ -Cell[3654, 130, 885, 30, 58, "Input",ExpressionUUID->"e4649c3d-e19e-ca42-95a0-23b66397f1fd"], -Cell[4542, 162, 177, 3, 33, "Output",ExpressionUUID->"82ec2512-4fcb-ba44-b472-bb3a66bb622e"] +Cell[1783, 58, 226, 5, 36, "Input",ExpressionUUID->"95c8a061-4ed7-4547-a690-b7ab673958ae"], +Cell[2012, 65, 260, 5, 41, "Output",ExpressionUUID->"acebbc0a-ef2e-4786-83a9-33d2575ba07a"] }, Open ]], Cell[CellGroupData[{ -Cell[4756, 170, 558, 19, 51, "Input",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], -Cell[5317, 191, 173, 3, 33, "Output",ExpressionUUID->"9d53fa4a-be54-7b42-83bd-0a5560193c0f"] +Cell[2309, 75, 180, 4, 36, "Input",ExpressionUUID->"1cc3e765-6d8e-4d58-8fd0-6c3164091ec9"], +Cell[2492, 81, 260, 5, 41, "Output",ExpressionUUID->"8d774961-1cc1-496c-824f-88e29b5272af"] }, Open ]], Cell[CellGroupData[{ -Cell[5527, 199, 623, 21, 51, "Input",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], -Cell[6153, 222, 170, 3, 33, "Output",ExpressionUUID->"4107fa63-a138-df48-a95c-ec944a983800"] +Cell[2789, 91, 262, 8, 54, "Input",ExpressionUUID->"9570a7a8-b674-476f-afc6-4526d7903be2"], +Cell[3054, 101, 273, 5, 62, "Output",ExpressionUUID->"88893293-95b6-42eb-bda9-51c2b0e222ca"] }, Open ]], Cell[CellGroupData[{ -Cell[6360, 230, 170, 5, 55, "Input",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], -Cell[6533, 237, 173, 3, 33, "Output",ExpressionUUID->"f894fb1d-1550-5146-a259-dfa871655c2a"] +Cell[3364, 111, 136, 3, 55, "Input",ExpressionUUID->"41426b9d-711a-4a0d-8329-7566ccf3bb96"], +Cell[3503, 116, 259, 5, 62, "Output",ExpressionUUID->"4ada1cc9-9d92-477d-9fe9-e857d09f27e6"] }, Open ]], Cell[CellGroupData[{ -Cell[6743, 245, 170, 5, 54, "Input",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], -Cell[6916, 252, 170, 3, 33, "Output",ExpressionUUID->"8d5b13a4-8c75-0f48-ab21-9720bb8c0cbc"] +Cell[3799, 126, 281, 7, 55, "Input",ExpressionUUID->"66cfa4a3-2d38-425d-9c39-ad913b1b5db7"], +Cell[4083, 135, 273, 5, 62, "Output",ExpressionUUID->"231a73cd-ade5-4a8b-a646-12b27390f9c7"] }, Open ]], Cell[CellGroupData[{ -Cell[7123, 260, 181, 5, 43, "Input",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], -Cell[7307, 267, 171, 3, 33, "Output",ExpressionUUID->"4d4b493f-9f2d-1e41-979f-fb4d58d0e93a"] +Cell[4393, 145, 262, 8, 55, "Input",ExpressionUUID->"16ae2ad5-24a1-4188-b303-f20f4a7a88a5"], +Cell[4658, 155, 273, 5, 62, "Output",ExpressionUUID->"44546f67-77fc-4da4-98f4-7c5c042ff1d0"] }, Open ]], Cell[CellGroupData[{ -Cell[7515, 275, 181, 5, 43, "Input",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], -Cell[7699, 282, 173, 3, 33, "Output",ExpressionUUID->"e40db20b-c65e-4a45-ba96-abcb59b0d0ac"] +Cell[4968, 165, 209, 4, 55, "Input",ExpressionUUID->"fd0d3b24-ec74-46d6-9406-92fc0fc7d6fd"], +Cell[5180, 171, 237, 4, 62, "Output",ExpressionUUID->"9ba46232-ffc5-4910-828e-9196c12c545d"] }, Open ]], Cell[CellGroupData[{ -Cell[7909, 290, 6055, 185, 195, "Input",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], -Cell[13967, 477, 175, 3, 33, "Output",ExpressionUUID->"cdf81fea-e12a-2b44-81a8-222b4bbf8a86"] +Cell[5454, 180, 207, 4, 55, "Input",ExpressionUUID->"d96413c4-e06e-4060-bad6-4d4931ea412c"], +Cell[5664, 186, 238, 4, 62, "Output",ExpressionUUID->"1817b3cb-73d5-4cd8-825c-1255af3a5d27"] }, Open ]], Cell[CellGroupData[{ -Cell[14179, 485, 368, 9, 41, "Input",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], -Cell[14550, 496, 170, 3, 33, "Output",ExpressionUUID->"181dc1c8-632b-4b43-91c4-d3626d65bfc7"] +Cell[5939, 195, 133, 3, 55, "Input",ExpressionUUID->"88b2bca7-4c2a-46fa-9951-a957773a8650"], +Cell[6075, 200, 256, 5, 62, "Output",ExpressionUUID->"e315d0ac-64aa-4680-8b80-b0ec912e5eb8"] }, Open ]], Cell[CellGroupData[{ -Cell[14757, 504, 6122, 187, 195, "Input",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], -Cell[20882, 693, 175, 3, 33, "Output",ExpressionUUID->"c7d972b4-764c-954a-8260-240d49cfcff6"] +Cell[6368, 210, 133, 3, 55, "Input",ExpressionUUID->"1b36c2f9-f078-4c25-b52e-69542e9a07fa"], +Cell[6504, 215, 258, 5, 62, "Output",ExpressionUUID->"c087a469-c67f-44df-8f88-df684276a201"] }, Open ]], Cell[CellGroupData[{ -Cell[21094, 701, 368, 9, 41, "Input",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], -Cell[21465, 712, 172, 3, 33, "Output",ExpressionUUID->"c285a758-c3ad-974b-93c3-4cb0d4bdd2ae"] +Cell[6799, 225, 561, 20, 148, "Input",ExpressionUUID->"1a41ae46-b75b-404f-ab2b-a579c3f324c8"], +Cell[7363, 247, 270, 5, 62, "Output",ExpressionUUID->"f46f1558-8cb9-4ae7-8421-f7d9fb9bbc12"] }, Open ]], Cell[CellGroupData[{ -Cell[21674, 720, 2663, 88, 115, "Input",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], -Cell[24340, 810, 173, 3, 33, "Output",ExpressionUUID->"5dc957f4-8f84-c54c-80a3-c76f756c5df4"] +Cell[7670, 257, 561, 20, 148, "Input",ExpressionUUID->"844fe406-8e7c-4a7e-8f2c-db07339e9a90"], +Cell[8234, 279, 271, 5, 62, "Output",ExpressionUUID->"de77989e-2e29-4965-9d8a-b3b2bd73c11f"] }, Open ]], Cell[CellGroupData[{ -Cell[24550, 818, 2603, 85, 115, "Input",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], -Cell[27156, 905, 172, 3, 33, "Output",ExpressionUUID->"b4ee01d5-3415-494b-b28a-4587c8d8bb90"] +Cell[8542, 289, 1592, 51, 211, "Input",ExpressionUUID->"e81a24ab-eede-410c-8054-c5feb6edf31a"], +Cell[10137, 342, 272, 5, 62, "Output",ExpressionUUID->"ad960200-974f-4e00-85ed-1d847ef8e232"] }, Open ]], Cell[CellGroupData[{ -Cell[27365, 913, 3712, 118, 172, "Input",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], -Cell[31080, 1033, 174, 3, 33, "Output",ExpressionUUID->"20c44e64-7085-8e4d-a9d6-f80b5532826e"] -}, Open ]], -Cell[31269, 1039, 138, 3, 29, "Input",ExpressionUUID->"ba4a3eff-9e3b-5e47-a896-3a959bbbf44d"], -Cell[CellGroupData[{ -Cell[31432, 1046, 2052, 59, 92, "Input",ExpressionUUID->"738a48f3-b38c-f441-aec4-53babaa73a14"], -Cell[33487, 1107, 524, 11, 38, "Message",ExpressionUUID->"bd0a7da1-672e-6b4e-afbd-4af379292e8d"], -Cell[34014, 1120, 526, 11, 38, "Message",ExpressionUUID->"9a8837e4-2afa-d145-83db-a88ef0e502bc"], -Cell[34543, 1133, 530, 11, 38, "Message",ExpressionUUID->"0aa4ed5d-b925-834d-b53a-95c75c4ff982"], -Cell[35076, 1146, 455, 10, 26, "Message",ExpressionUUID->"2742a735-9c26-7640-8a81-3e30eaffa353"], -Cell[35534, 1158, 172, 3, 33, "Output",ExpressionUUID->"d91a6bca-04d7-b84b-93cf-0695498dc4de"] +Cell[10446, 352, 1426, 47, 211, "Input",ExpressionUUID->"3a1b178e-5a69-420a-a203-40f73d32c2c3"], +Cell[11875, 401, 290, 6, 62, "Output",ExpressionUUID->"fae3d388-ebfc-4878-9768-53581a7d6979"] }, Open ]], Cell[CellGroupData[{ -Cell[35743, 1166, 2054, 59, 92, "Input",ExpressionUUID->"86c33485-ed26-8f49-b3d0-7d040d3b48f0"], -Cell[37800, 1227, 524, 11, 38, "Message",ExpressionUUID->"2c553d54-16ec-9646-b6d7-75da3c367575"], -Cell[38327, 1240, 526, 11, 38, "Message",ExpressionUUID->"1c597fdf-5631-a84c-9feb-152df3629d86"], -Cell[38856, 1253, 528, 11, 38, "Message",ExpressionUUID->"48439b56-7b7d-fa4d-a4e2-5db2bbda0c77"], -Cell[39387, 1266, 456, 10, 26, "Message",ExpressionUUID->"66ce390f-34a9-df4d-9875-a339943ada86"], -Cell[39846, 1278, 170, 3, 33, "Output",ExpressionUUID->"2e46fa54-fabe-5040-8f8c-6829b7c76136"] +Cell[12202, 412, 1426, 47, 211, "Input",ExpressionUUID->"c9bdf29a-9fbe-42d9-bc00-7dc8477c3939"], +Cell[13631, 461, 291, 6, 62, "Output",ExpressionUUID->"836d8af8-9e32-43d7-a534-0934a706c992"] }, Open ]], Cell[CellGroupData[{ -Cell[40053, 1286, 1938, 53, 67, "Input",ExpressionUUID->"f373fe4f-940c-0842-9236-63ec36d318ad"], -Cell[41994, 1341, 19994, 375, 229, "Output",ExpressionUUID->"fdd0f260-414f-a94a-8f26-cd86e676700c"] +Cell[13959, 472, 1592, 51, 211, "Input",ExpressionUUID->"e320432c-3c96-402c-9032-e06766716510"], +Cell[15554, 525, 269, 5, 62, "Output",ExpressionUUID->"1edad1ba-0974-41c6-ab07-caae3fd74e4b"] }, Open ]], Cell[CellGroupData[{ -Cell[62025, 1721, 2092, 60, 92, "Input",ExpressionUUID->"24fa5db0-1063-354a-bd60-c117a27ff3e1"], -Cell[64120, 1783, 490, 11, 38, "Message",ExpressionUUID->"546a9ea9-5939-f84a-87c6-58844f58f330"], -Cell[64613, 1796, 493, 11, 38, "Message",ExpressionUUID->"b36bffd7-1c84-5c45-a847-b2c31968f579"], -Cell[65109, 1809, 508, 11, 26, "Message",ExpressionUUID->"c864bef7-fc73-d94b-8cde-14570cba8095"], -Cell[65620, 1822, 456, 10, 26, "Message",ExpressionUUID->"a2e62375-acd2-6740-bfd7-026877c5bd7b"], -Cell[66079, 1834, 61603, 1057, 232, "Output",ExpressionUUID->"d4eecdc9-263c-5b43-bb29-cd0ac1286793"] -}, Open ]], -Cell[127697, 2894, 298, 7, 45, "Input",ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], -Cell[127998, 2903, 209, 5, 29, "Input",ExpressionUUID->"6d3700e1-f504-214a-a332-f16397f0b922"], -Cell[CellGroupData[{ -Cell[128232, 2912, 217, 7, 47, "Input",ExpressionUUID->"9051a5e3-bb9f-d941-bcca-598d0b6835be"], -Cell[128452, 2921, 169, 3, 33, "Output",ExpressionUUID->"07374b0a-4615-bf46-ab49-be8623cec410"] +Cell[15860, 535, 135, 3, 55, "Input",ExpressionUUID->"704d957b-d36b-49d9-8ccc-7769aea79ca5"], +Cell[15998, 540, 258, 5, 62, "Output",ExpressionUUID->"1ce2e0ac-3643-4d1f-bf80-cd8a58bb5197"] }, Open ]], Cell[CellGroupData[{ -Cell[128658, 2929, 1816, 53, 92, "Input",ExpressionUUID->"65a995ff-ff3d-634e-9bad-4a8a16073236"], -Cell[130477, 2984, 502, 11, 38, "Message",ExpressionUUID->"c1f83af1-416a-6240-b3fd-c1bfcc643459"], -Cell[130982, 2997, 506, 11, 38, "Message",ExpressionUUID->"5cfd3c4b-6190-2c4d-8479-b4ccd7090f94"], -Cell[131491, 3010, 509, 11, 38, "Message",ExpressionUUID->"288fc6c7-a3fe-9b48-9c0d-bba2713f7084"], -Cell[132003, 3023, 456, 10, 26, "Message",ExpressionUUID->"09478fd5-b212-2347-91e7-b9097bd6d61d"], -Cell[132462, 3035, 28560, 514, 232, "Output",ExpressionUUID->"f7784347-2042-c042-8970-b060f9535d9e"] +Cell[16293, 550, 137, 3, 55, "Input",ExpressionUUID->"75876833-cff1-4f75-8397-1ea9b241d52a"], +Cell[16433, 555, 255, 5, 62, "Output",ExpressionUUID->"9e3bf7e0-db3c-4e80-8a7b-5918c1348e38"] }, Open ]], Cell[CellGroupData[{ -Cell[161059, 3554, 1616, 48, 67, "Input",ExpressionUUID->"86381d88-1537-a242-9cff-0b432b61d63d"], -Cell[162678, 3604, 576, 12, 38, "Message",ExpressionUUID->"0a4bed5c-621d-a546-88e9-ce7d779c106a"], -Cell[163257, 3618, 582, 12, 38, "Message",ExpressionUUID->"80e3943d-459b-8b41-9869-50a6cf829ef8"], -Cell[163842, 3632, 584, 12, 38, "Message",ExpressionUUID->"36529169-7f05-ee43-8080-ce8fdd404b8d"], -Cell[164429, 3646, 458, 10, 26, "Message",ExpressionUUID->"a6c5f0ff-3356-4c42-b883-ce45e5cc4f41"], -Cell[164890, 3658, 170, 3, 33, "Output",ExpressionUUID->"546f133a-4a8e-8d44-937d-5fc3ea2401d8"] +Cell[16725, 565, 138, 3, 55, "Input",ExpressionUUID->"b1f4f70a-4b77-4e41-abdc-72f1a88c84f5"], +Cell[16866, 570, 262, 5, 62, "Output",ExpressionUUID->"ba99e333-17f0-4c64-aa64-42bc40397bf1"] }, Open ]], Cell[CellGroupData[{ -Cell[165097, 3666, 2247, 64, 62, "Input",ExpressionUUID->"6f0ad284-4db3-da47-b8dc-45830eedfe9c"], -Cell[167347, 3732, 522, 11, 38, "Message",ExpressionUUID->"2e7d173d-070f-de49-a3c2-9964fb888ede"], -Cell[167872, 3745, 526, 11, 38, "Message",ExpressionUUID->"04b23985-5685-d344-a2ed-9886796baf32"], -Cell[168401, 3758, 528, 11, 38, "Message",ExpressionUUID->"ccdd27f2-bd64-f442-a708-cfb1052c7f86"], -Cell[168932, 3771, 458, 10, 26, "Message",ExpressionUUID->"384ce3fd-4914-6b49-b10c-84d885ed65d6"], -Cell[169393, 3783, 175, 3, 33, "Output",ExpressionUUID->"8865a4e5-7fd3-3c49-a115-94c8c5479389"] +Cell[17165, 580, 223, 5, 55, "Input",ExpressionUUID->"dae0ef62-0e09-49f3-a1fe-ebbbb61fab0c"], +Cell[17391, 587, 272, 6, 62, "Output",ExpressionUUID->"4540ec32-3056-45e9-a498-525004066f9c"] }, Open ]], Cell[CellGroupData[{ -Cell[169605, 3791, 2221, 64, 62, "Input",ExpressionUUID->"b2dda819-6f34-5c49-bc62-303d815946e5"], -Cell[171829, 3857, 522, 11, 38, "Message",ExpressionUUID->"958049e8-43e1-cc46-81fb-5b3fe1a5d9ee"], -Cell[172354, 3870, 524, 11, 38, "Message",ExpressionUUID->"6ed73f20-f975-a34c-a5a3-af58e9ecd7ed"], -Cell[172881, 3883, 528, 11, 38, "Message",ExpressionUUID->"4ce11323-2f48-da4f-84f8-593751381024"], -Cell[173412, 3896, 458, 10, 26, "Message",ExpressionUUID->"330905cd-5b42-604b-aaf8-fbac43108165"], -Cell[173873, 3908, 170, 3, 33, "Output",ExpressionUUID->"020ade62-ec43-7549-8079-7ac012e004c4"] +Cell[17700, 598, 138, 3, 55, "Input",ExpressionUUID->"8fb4cee8-8821-4a2a-b3f1-9e3451a6453d"], +Cell[17841, 603, 260, 5, 62, "Output",ExpressionUUID->"b7e29a91-bd30-4a9b-871d-4e041ddab9a8"] }, Open ]], Cell[CellGroupData[{ -Cell[174080, 3916, 2221, 64, 62, "Input",ExpressionUUID->"76a9e77d-1f4c-bb4a-bb13-1a175f609f7d"], -Cell[176304, 3982, 524, 11, 38, "Message",ExpressionUUID->"9a8eff2d-0d97-2e45-a2f3-ce0634115f7d"], -Cell[176831, 3995, 526, 11, 38, "Message",ExpressionUUID->"7dd7e17e-c74e-7145-b6ae-77a0f02c67f1"], -Cell[177360, 4008, 530, 11, 38, "Message",ExpressionUUID->"311ddb21-a730-0b41-b633-2d3bac87be85"], -Cell[177893, 4021, 458, 10, 26, "Message",ExpressionUUID->"ecdc16e1-316d-b342-a60b-0f3075607709"], -Cell[178354, 4033, 171, 3, 33, "Output",ExpressionUUID->"a7fc6f95-4067-504b-8754-5086d2659934"] +Cell[18138, 613, 328, 6, 55, "Input",ExpressionUUID->"552aa3bd-0fd9-4ece-a039-8e81f92de910"], +Cell[18469, 621, 253, 5, 62, "Output",ExpressionUUID->"4726da29-02d3-4d46-830d-b36f5252be02"] }, Open ]], Cell[CellGroupData[{ -Cell[178562, 4041, 215, 6, 46, "Input",ExpressionUUID->"69dd09d9-152e-3e4d-9517-4de4791db2f4"], -Cell[178780, 4049, 175, 3, 33, "Output",ExpressionUUID->"96bb6c6a-f128-024e-85ce-f8a6083a68c6"] -}, Open ]], -Cell[178970, 4055, 245, 5, 29, "Input",ExpressionUUID->"6ecc7e8c-a7c5-354e-b168-749729cd7104"], -Cell[CellGroupData[{ -Cell[179240, 4064, 623, 20, 51, "Input",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], -Cell[179866, 4086, 172, 3, 33, "Output",ExpressionUUID->"fecac54e-ac70-c448-b60d-60e5d8aa9072"] +Cell[18759, 631, 299, 6, 55, "Input",ExpressionUUID->"4c616ef5-570f-464e-b88f-d1ed7313d51f"], +Cell[19061, 639, 252, 5, 62, "Output",ExpressionUUID->"e974a83d-f03a-4c70-b462-cdaf9dcb68ab"] }, Open ]], Cell[CellGroupData[{ -Cell[180075, 4094, 170, 5, 55, "Input",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], -Cell[180248, 4101, 172, 3, 33, "Output",ExpressionUUID->"31e41e93-aaef-1b4f-a5e6-3cad86684dfc"] +Cell[19350, 649, 223, 5, 55, "Input",ExpressionUUID->"096a1657-78bc-4752-bb7e-95e56b96cadd"], +Cell[19576, 656, 257, 5, 62, "Output",ExpressionUUID->"96646b9a-8ac9-4994-898d-f1b8a49ca68e"] }, Open ]], Cell[CellGroupData[{ -Cell[180457, 4109, 181, 5, 43, "Input",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], -Cell[180641, 4116, 172, 3, 33, "Output",ExpressionUUID->"d20f2acf-afe0-0844-b0cd-0cdce2394573"] +Cell[19870, 666, 354, 11, 81, "Input",ExpressionUUID->"66cc0c50-eaa8-468c-9d8a-c7cb64a85294"], +Cell[20227, 679, 275, 5, 62, "Output",ExpressionUUID->"5a0a951a-a4a0-46c3-be2c-79e557f9aff5"] }, Open ]], Cell[CellGroupData[{ -Cell[180850, 4124, 6055, 185, 195, "Input",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], -Cell[186908, 4311, 174, 3, 33, "Output",ExpressionUUID->"ec544098-6efd-4845-b84f-33e39ead67c9"] +Cell[20539, 689, 354, 11, 81, "Input",ExpressionUUID->"6f37de12-b072-4ebb-8bef-d789f5667525"], +Cell[20896, 702, 288, 6, 62, "Output",ExpressionUUID->"7ec0516d-09fb-4e84-8c23-e9f77fc22b6a"] }, Open ]], Cell[CellGroupData[{ -Cell[187119, 4319, 368, 9, 41, "Input",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], -Cell[187490, 4330, 173, 3, 33, "Output",ExpressionUUID->"85f4fe6d-1167-7a40-b761-0a55e5251875"] +Cell[21221, 713, 998, 27, 154, "Input",ExpressionUUID->"3f8bb9eb-ad92-4fa5-ae94-7b654151a7fb"], +Cell[22222, 742, 276, 5, 62, "Output",ExpressionUUID->"1313161d-41c4-4295-9655-16fc257d0da7"] }, Open ]], Cell[CellGroupData[{ -Cell[187700, 4338, 6122, 187, 195, "Input",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], -Cell[193825, 4527, 175, 3, 33, "Output",ExpressionUUID->"53db8250-199b-594a-8ebd-fc9cc43217e3"] +Cell[22535, 752, 203, 4, 55, "Input",ExpressionUUID->"3f76d94e-bd3a-4ad9-ac4d-3895de751d5c"], +Cell[22741, 758, 258, 5, 62, "Output",ExpressionUUID->"d0418020-8543-49da-b390-cdfafc389132"] }, Open ]], Cell[CellGroupData[{ -Cell[194037, 4535, 368, 9, 41, "Input",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], -Cell[194408, 4546, 170, 3, 33, "Output",ExpressionUUID->"0013bb3e-54d0-e343-9869-cf63da2eecbd"] +Cell[23036, 768, 331, 6, 55, "Input",ExpressionUUID->"c538a944-f1cd-45ec-9213-4ee9ba34888e"], +Cell[23370, 776, 235, 4, 62, "Output",ExpressionUUID->"c0d9c95d-f8fd-4353-8a02-0398d945711d"] +}, Open ]], +Cell[23620, 783, 177, 3, 55, "Input",ExpressionUUID->"b6ffd985-f8c0-40ec-8c9a-420755112fa1"], +Cell[CellGroupData[{ +Cell[23822, 790, 333, 6, 55, "Input",ExpressionUUID->"8b2be4fe-5abe-41c1-8c2b-308221f789c5"], +Cell[24158, 798, 232, 4, 62, "Output",ExpressionUUID->"39d87589-88b5-439a-a5c3-1f92e446f010"] +}, Open ]], +Cell[24405, 805, 177, 3, 55, "Input",ExpressionUUID->"53a13f5f-e05e-47ca-b734-090c55369ce1"], +Cell[CellGroupData[{ +Cell[24607, 812, 336, 6, 55, "Input",ExpressionUUID->"cf8cda0c-3bb3-4016-a3f5-9c6926bbc271"], +Cell[24946, 820, 231, 4, 62, "Output",ExpressionUUID->"ef0435dd-913b-4b7c-89c0-a17719b03d16"] +}, Open ]], +Cell[25192, 827, 177, 3, 55, "Input",ExpressionUUID->"36067f20-9256-49cd-b13a-2acfaf085868"], +Cell[CellGroupData[{ +Cell[25394, 834, 358, 6, 55, "Input",ExpressionUUID->"896f3cdf-8d20-4b50-ac74-5fc9cae1e9d4"], +Cell[25755, 842, 237, 4, 62, "Output",ExpressionUUID->"87d8fbc3-8359-4b32-8756-b5cbde25a2fb"] +}, Open ]], +Cell[26007, 849, 175, 3, 55, "Input",ExpressionUUID->"13a887da-fdf1-4555-bdc0-cfce424630d2"], +Cell[CellGroupData[{ +Cell[26207, 856, 303, 6, 55, "Input",ExpressionUUID->"a6b21d46-0453-469c-8b62-efbaebe4b955"], +Cell[26513, 864, 237, 4, 62, "Output",ExpressionUUID->"9a8b3fab-d57d-4175-8174-701cc8a73330"] +}, Open ]], +Cell[26765, 871, 175, 3, 55, "Input",ExpressionUUID->"9eedf60d-53ef-4938-baa6-11e02c29cf8f"], +Cell[CellGroupData[{ +Cell[26965, 878, 307, 6, 55, "Input",ExpressionUUID->"ecd7ca77-2fdc-4a6c-b6f5-709a80e8eb24"], +Cell[27275, 886, 233, 4, 62, "Output",ExpressionUUID->"d8529a53-686a-4e4a-a62b-356a2adc2e55"] +}, Open ]], +Cell[27523, 893, 177, 3, 55, "Input",ExpressionUUID->"0066d7c9-cbac-458f-a9d8-0f394de6b7d7"], +Cell[CellGroupData[{ +Cell[27725, 900, 311, 6, 55, "Input",ExpressionUUID->"eb555cef-293a-4b3f-a8d4-770f015ea832"], +Cell[28039, 908, 232, 4, 62, "Output",ExpressionUUID->"5fa5fe46-82da-47e3-b06f-c0b1b24ac58f"] +}, Open ]], +Cell[28286, 915, 176, 3, 55, "Input",ExpressionUUID->"2d6d55d5-526d-4fa4-b318-5bfabd7913e0"], +Cell[CellGroupData[{ +Cell[28487, 922, 279, 5, 55, "Input",ExpressionUUID->"ce46883d-0875-488c-a662-b1a9828b60a4"], +Cell[28769, 929, 231, 4, 62, "Output",ExpressionUUID->"8198cd7f-c43c-436d-a289-efc2055d75e6"] +}, Open ]], +Cell[29015, 936, 179, 3, 55, "Input",ExpressionUUID->"221b8dcb-f609-494a-b36c-40b6472c10a3"], +Cell[CellGroupData[{ +Cell[29219, 943, 19813, 486, 3214, "Input",ExpressionUUID->"e446f4d8-14f5-4096-837e-b38ea645f5b1"], +Cell[49035, 1431, 272, 5, 62, "Output",ExpressionUUID->"782841f2-4225-4aff-9662-b46ab0b98d7a"] }, Open ]], Cell[CellGroupData[{ -Cell[194615, 4554, 2663, 88, 115, "Input",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], -Cell[197281, 4644, 173, 3, 33, "Output",ExpressionUUID->"96d8705a-f744-d447-bad0-55fe1d703f38"] +Cell[49344, 1441, 19752, 490, 3214, "Input",ExpressionUUID->"c754259e-b681-44ec-bc5f-f1002de6b346"], +Cell[69099, 1933, 271, 5, 62, "Output",ExpressionUUID->"e94e89e2-c00f-406b-9e5a-5d750cf4e528"] }, Open ]], Cell[CellGroupData[{ -Cell[197491, 4652, 2603, 85, 115, "Input",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], -Cell[200097, 4739, 172, 3, 33, "Output",ExpressionUUID->"bad41b21-8b15-a74b-a641-622c6584a958"] +Cell[69407, 1943, 19752, 484, 3213, "Input",ExpressionUUID->"a0d78b9d-da66-4b78-a3d6-d80e8e08266d"], +Cell[89162, 2429, 289, 6, 62, "Output",ExpressionUUID->"3677372e-b949-43a1-b9ef-a4fddd71eba0"] }, Open ]], Cell[CellGroupData[{ -Cell[200306, 4747, 3712, 118, 172, "Input",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], -Cell[204021, 4867, 174, 3, 33, "Output",ExpressionUUID->"a42f993d-5633-3546-ae09-6931972f9312"] +Cell[89488, 2440, 22538, 554, 3639, "Input",ExpressionUUID->"29ba86b4-e35f-41cb-bd23-95aa4f58b80c"], +Cell[112029, 2996, 291, 6, 62, "Output",ExpressionUUID->"b33ef8da-8a9c-4478-858d-00bd52663baa"] }, Open ]], Cell[CellGroupData[{ -Cell[204232, 4875, 2052, 59, 92, "Input",ExpressionUUID->"d6aa822f-4140-174a-8e29-c889dba5c0d8"], -Cell[206287, 4936, 574, 12, 38, "Message",ExpressionUUID->"91f9ae14-8766-3848-9c79-ec46ad6af7ea"], -Cell[206864, 4950, 580, 12, 38, "Message",ExpressionUUID->"2440fadc-b12b-424f-a600-97a0a8c9f031"], -Cell[207447, 4964, 582, 12, 38, "Message",ExpressionUUID->"d4d1d26f-ac2b-a949-95b4-8d60af02cc4b"], -Cell[208032, 4978, 456, 10, 26, "Message",ExpressionUUID->"0cb59396-7a19-6b43-af2b-0a0ce0427b94"], -Cell[208491, 4990, 171, 3, 33, "Output",ExpressionUUID->"3ceb430a-d440-e040-b6a8-a18a3884b326"] +Cell[112357, 3007, 22539, 554, 3639, "Input",ExpressionUUID->"8be7818b-92d5-4578-aa31-e4da70c8e4c5"], +Cell[134899, 3563, 292, 6, 62, "Output",ExpressionUUID->"1910edf3-acaa-48b3-b89f-4c2225d2bd72"] }, Open ]], Cell[CellGroupData[{ -Cell[208699, 4998, 2054, 59, 92, "Input",ExpressionUUID->"46f3f057-22eb-c143-af7a-23ddab00799c"], -Cell[210756, 5059, 574, 12, 26, "Message",ExpressionUUID->"ccb81c35-09e9-854b-9187-d46e8624546d"], -Cell[211333, 5073, 578, 12, 26, "Message",ExpressionUUID->"6dff6307-9a24-c74d-90d8-2f18b14858dc"], -Cell[211914, 5087, 582, 12, 26, "Message",ExpressionUUID->"11045565-b757-154a-b614-eb73b2dcbc5f"], -Cell[212499, 5101, 458, 10, 26, "Message",ExpressionUUID->"af9dd0c6-d446-9940-b908-9b52fbb611cb"], -Cell[212960, 5113, 169, 3, 33, "Output",ExpressionUUID->"d39c46b4-75c6-f741-b7fd-1a1fdbe4155f"] +Cell[135228, 3574, 25495, 627, 4065, "Input",ExpressionUUID->"64302f58-29a7-49a8-b2e1-fa56c49c4dca"], +Cell[160726, 4203, 286, 6, 62, "Output",ExpressionUUID->"c85322e9-84b9-486b-bb95-5be89728c4bc"] }, Open ]], Cell[CellGroupData[{ -Cell[213166, 5121, 2030, 55, 51, "Input",ExpressionUUID->"0137ed47-cd78-284a-910a-31d165f1571c"], -Cell[215199, 5178, 20326, 381, 238, "Output",ExpressionUUID->"5f98f6f4-700b-0a4b-af1c-32125fed3e6a"] -}, Open ]], -Cell[235540, 5562, 2144, 61, 92, "Input",ExpressionUUID->"00a32bc3-df79-9e43-8f20-d4884962c12d"], -Cell[237687, 5625, 138, 3, 29, "Input",ExpressionUUID->"344da507-9044-ef47-aa8c-99f282e3d6d3"], -Cell[CellGroupData[{ -Cell[237850, 5632, 1616, 48, 67, "Input",ExpressionUUID->"f13d1bd8-d153-ae43-b041-68b993e77854"], -Cell[239469, 5682, 592, 12, 38, "Message",ExpressionUUID->"318da404-8df4-c540-9269-2b249c7e148e"], -Cell[240064, 5696, 597, 12, 38, "Message",ExpressionUUID->"42939765-c33b-c147-a25b-bfa31c71a3cb"], -Cell[240664, 5710, 599, 12, 38, "Message",ExpressionUUID->"63b912c5-afab-654e-9609-c4b849e9abfe"], -Cell[241266, 5724, 458, 10, 26, "Message",ExpressionUUID->"2c8999d2-d9b5-ef4e-a59d-c314a02b2b2a"], -Cell[241727, 5736, 172, 3, 33, "Output",ExpressionUUID->"52013fca-4692-bf47-a0cf-880d71f10fc1"] +Cell[161049, 4214, 134, 3, 55, "Input",ExpressionUUID->"8f7c645d-ec3b-4a9b-9e3f-ed7ed480145a"], +Cell[161186, 4219, 254, 5, 62, "Output",ExpressionUUID->"1b41b77d-0477-4ffa-be10-e2ca605f6e54"] }, Open ]], Cell[CellGroupData[{ -Cell[241936, 5744, 2249, 64, 62, "Input",ExpressionUUID->"53e25fab-b431-cc42-a467-e4dea0353ed0"], -Cell[244188, 5810, 576, 12, 38, "Message",ExpressionUUID->"285f997a-25b4-f647-9523-e0dd05446bae"], -Cell[244767, 5824, 580, 12, 38, "Message",ExpressionUUID->"b1d2a50d-b27b-ca46-afcb-af9e8d59323e"], -Cell[245350, 5838, 582, 12, 38, "Message",ExpressionUUID->"a36c085c-b95e-724c-a04e-30924ab7ac52"], -Cell[245935, 5852, 456, 10, 26, "Message",ExpressionUUID->"976edb68-80f3-5a4d-a255-2f217ec84bfa"], -Cell[246394, 5864, 171, 3, 33, "Output",ExpressionUUID->"b7107287-e519-1249-9ef0-b745347bdb78"] +Cell[161477, 4229, 134, 3, 55, "Input",ExpressionUUID->"c43bdea7-0906-49ec-8ca6-ef839705fc94"], +Cell[161614, 4234, 254, 5, 62, "Output",ExpressionUUID->"209d102e-8b06-49fd-8562-1e9609fb488a"] }, Open ]], Cell[CellGroupData[{ -Cell[246602, 5872, 2223, 64, 62, "Input",ExpressionUUID->"b18c819e-620a-d449-97d6-547e3a6fa152"], -Cell[248828, 5938, 574, 12, 38, "Message",ExpressionUUID->"2877ed71-3ee8-8044-94b0-c606083c07b7"], -Cell[249405, 5952, 578, 12, 38, "Message",ExpressionUUID->"34cfc5a5-16b6-f24f-acdf-b4e2d29b1bef"], -Cell[249986, 5966, 580, 12, 38, "Message",ExpressionUUID->"7fe7bdbe-3892-5043-b38d-13721c83d41a"], -Cell[250569, 5980, 458, 10, 26, "Message",ExpressionUUID->"93dfb0cd-55fb-1b4a-b671-37d180b9d444"], -Cell[251030, 5992, 173, 3, 33, "Output",ExpressionUUID->"372279b5-5e4a-b545-a159-384b26aa5ab4"] +Cell[161905, 4244, 1148, 40, 211, "Input",ExpressionUUID->"04a502bd-2a13-4818-8add-72d236fb5cef"], +Cell[163056, 4286, 271, 5, 62, "Output",ExpressionUUID->"cfd7f144-2838-477a-be4a-1c8e8047ef31"] }, Open ]], Cell[CellGroupData[{ -Cell[251240, 6000, 2221, 64, 62, "Input",ExpressionUUID->"22ab74c7-5916-9440-9d7d-c3e0f6ab8836"], -Cell[253464, 6066, 574, 12, 38, "Message",ExpressionUUID->"c14c35e1-e487-c742-a0da-128fdb9754d4"], -Cell[254041, 6080, 578, 12, 38, "Message",ExpressionUUID->"4396ed61-4d7e-6144-80f0-6d5649cfcb04"], -Cell[254622, 6094, 582, 12, 38, "Message",ExpressionUUID->"00fa2dcd-bc0b-9e44-9f00-15116f344aca"], -Cell[255207, 6108, 455, 10, 26, "Message",ExpressionUUID->"78b12bf1-7793-9341-ad5f-c7be406b8be6"], -Cell[255665, 6120, 170, 3, 33, "Output",ExpressionUUID->"9454fa52-ff74-094b-8081-2fc86cf96043"] +Cell[163364, 4296, 1045, 36, 211, "Input",ExpressionUUID->"408a3b04-8641-4ffc-b98c-fca92199312d"], +Cell[164412, 4334, 286, 6, 62, "Output",ExpressionUUID->"9f36d0ea-beaa-4937-9524-ffd3a9547bfa"] }, Open ]], Cell[CellGroupData[{ -Cell[255872, 6128, 215, 6, 46, "Input",ExpressionUUID->"f9c66987-c237-7a40-a006-e20e260dbdcb"], -Cell[256090, 6136, 174, 3, 33, "Output",ExpressionUUID->"175eda7e-c091-3e4f-86ac-3148f0a9e904"] -}, Open ]], -Cell[256279, 6142, 249, 5, 29, "Input",ExpressionUUID->"770a9ed7-7938-9e48-be64-c31719ef3a6b"], -Cell[CellGroupData[{ -Cell[256553, 6151, 558, 19, 51, "Input",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], -Cell[257114, 6172, 169, 3, 33, "Output",ExpressionUUID->"e757c22c-d836-6c4a-a9f7-93553c4bb232"] +Cell[164735, 4345, 1148, 40, 211, "Input",ExpressionUUID->"e0c14472-8fa3-4706-a91e-87b0b649926b"], +Cell[165886, 4387, 271, 5, 62, "Output",ExpressionUUID->"7473e455-ee7c-440c-9905-7d894df38dd7"] }, Open ]], Cell[CellGroupData[{ -Cell[257320, 6180, 170, 5, 55, "Input",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], -Cell[257493, 6187, 173, 3, 33, "Output",ExpressionUUID->"7f3ee547-87eb-d74d-8f21-a8d42f1dde52"] +Cell[166194, 4397, 112, 2, 55, "Input",ExpressionUUID->"3361d54a-9fee-4dc7-b0f9-c079ad13bff9"], +Cell[166309, 4401, 272, 5, 62, "Output",ExpressionUUID->"fc82e519-98a4-4ec5-abbb-822af7592133"] }, Open ]], Cell[CellGroupData[{ -Cell[257703, 6195, 181, 5, 43, "Input",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], -Cell[257887, 6202, 173, 3, 33, "Output",ExpressionUUID->"0603b6e6-a8b7-1e45-9b15-2769b7fbc373"] +Cell[166618, 4411, 112, 2, 55, "Input",ExpressionUUID->"78afd026-364a-4aa4-9e4b-7291c917c93b"], +Cell[166733, 4415, 289, 6, 62, "Output",ExpressionUUID->"b631c807-62d5-49fb-9333-765109003d6f"] }, Open ]], Cell[CellGroupData[{ -Cell[258097, 6210, 6055, 185, 195, "Input",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], -Cell[264155, 6397, 174, 3, 33, "Output",ExpressionUUID->"8b7a346f-cdda-e24e-b924-d6cfb1b3119a"] +Cell[167059, 4426, 112, 2, 55, "Input",ExpressionUUID->"15a13a1d-3344-451b-bace-62f40125a6ae"], +Cell[167174, 4430, 287, 6, 62, "Output",ExpressionUUID->"dc76234d-e699-4177-b1bf-67a8d584ffdf"] }, Open ]], Cell[CellGroupData[{ -Cell[264366, 6405, 368, 9, 41, "Input",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], -Cell[264737, 6416, 172, 3, 33, "Output",ExpressionUUID->"3354b35a-acef-b846-b770-8d2e77b8f68b"] +Cell[167498, 4441, 112, 2, 55, "Input",ExpressionUUID->"06631f67-ba6a-4304-a742-be824337daa9"], +Cell[167613, 4445, 274, 5, 62, "Output",ExpressionUUID->"b9d33f70-3d9e-4507-9542-c7565dac6a4a"] }, Open ]], Cell[CellGroupData[{ -Cell[264946, 6424, 6122, 187, 195, "Input",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], -Cell[271071, 6613, 172, 3, 33, "Output",ExpressionUUID->"7b76721b-3d4c-c544-9113-83ba4f36ae7f"] +Cell[167924, 4455, 111, 2, 55, "Input",ExpressionUUID->"94346525-779e-4404-8516-30e7487a8377"], +Cell[168038, 4459, 272, 5, 62, "Output",ExpressionUUID->"773cf697-359a-4f18-865c-27d836e37315"] }, Open ]], Cell[CellGroupData[{ -Cell[271280, 6621, 368, 9, 41, "Input",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], -Cell[271651, 6632, 170, 3, 33, "Output",ExpressionUUID->"e9346704-c478-364d-b5eb-0aabe0e2e350"] +Cell[168347, 4469, 111, 2, 55, "Input",ExpressionUUID->"ebf2bbf4-40de-4f6a-827f-7e8c756e14d7"], +Cell[168461, 4473, 272, 5, 62, "Output",ExpressionUUID->"64c28c6f-8c52-4f26-9dcf-baf817ea4147"] }, Open ]], Cell[CellGroupData[{ -Cell[271858, 6640, 2663, 88, 115, "Input",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], -Cell[274524, 6730, 173, 3, 33, "Output",ExpressionUUID->"33b7f444-6995-e54b-a2a6-ad09016b1850"] +Cell[168770, 4483, 501, 17, 105, "Input",ExpressionUUID->"517d4477-0c6c-48e5-91af-37aa5f87471e"], +Cell[169274, 4502, 287, 6, 62, "Output",ExpressionUUID->"909ea9b0-71b9-4196-9318-eaff211b38d0"] }, Open ]], Cell[CellGroupData[{ -Cell[274734, 6738, 2603, 85, 115, "Input",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], -Cell[277340, 6825, 172, 3, 33, "Output",ExpressionUUID->"76ba8e46-11c7-f54d-bfb2-cca1b455c838"] +Cell[169598, 4513, 501, 17, 105, "Input",ExpressionUUID->"6064daa3-6279-4c68-958b-67bad8cf01d5"], +Cell[170102, 4532, 286, 6, 62, "Output",ExpressionUUID->"295b97de-a14e-487b-82ef-b83f9c6dc41f"] }, Open ]], Cell[CellGroupData[{ -Cell[277549, 6833, 3712, 118, 172, "Input",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], -Cell[281264, 6953, 172, 3, 33, "Output",ExpressionUUID->"f7c29774-2634-5546-ab63-4d3ac6889f79"] +Cell[170425, 4543, 1792, 61, 358, "Input",ExpressionUUID->"ef5ef45e-02f1-40e0-98d6-43db39a8a36a"], +Cell[172220, 4606, 270, 5, 62, "Output",ExpressionUUID->"d3c5f8a3-eb62-4177-aee4-0ea6043e3985"] }, Open ]], Cell[CellGroupData[{ -Cell[281473, 6961, 2052, 59, 92, "Input",ExpressionUUID->"55d51961-97f2-ed4d-8bf8-8a461d652ab4"], -Cell[283528, 7022, 573, 12, 38, "Message",ExpressionUUID->"3d5a1265-fb27-0b41-a549-5e326650d270"], -Cell[284104, 7036, 573, 12, 38, "Message",ExpressionUUID->"0726d23e-32d7-7a41-8d7f-0b62fec75437"], -Cell[284680, 7050, 579, 12, 38, "Message",ExpressionUUID->"b47482ef-bec0-234f-aeb7-9009a378a36d"], -Cell[285262, 7064, 458, 10, 26, "Message",ExpressionUUID->"e5e35e3a-0e40-c249-b6f3-c2a6a5a48740"], -Cell[285723, 7076, 170, 3, 33, "Output",ExpressionUUID->"b33776d0-2a41-694b-9af8-c4d483383e7c"] +Cell[172527, 4616, 1105, 37, 256, "Input",ExpressionUUID->"0feb24b4-f965-4c9a-892b-0f55af7f3930"], +Cell[173635, 4655, 291, 6, 62, "Output",ExpressionUUID->"e98de81d-3dbf-481e-aa5a-72ff72ee6dc8"] }, Open ]], Cell[CellGroupData[{ -Cell[285930, 7084, 2052, 59, 92, "Input",ExpressionUUID->"9704b9d3-b449-2144-9970-6a7de047241d"], -Cell[287985, 7145, 573, 12, 38, "Message",ExpressionUUID->"ffb6a3c0-c488-cd48-870e-d66051362026"], -Cell[288561, 7159, 575, 12, 38, "Message",ExpressionUUID->"ca3fb11a-47f9-c542-a5c9-6e0087e110b9"], -Cell[289139, 7173, 579, 12, 38, "Message",ExpressionUUID->"7e4a0639-38a1-f74e-ab8e-5264cad2d48c"], -Cell[289721, 7187, 458, 10, 26, "Message",ExpressionUUID->"101eaea3-75b1-d942-9914-a0fe8a6e2f65"], -Cell[290182, 7199, 169, 3, 33, "Output",ExpressionUUID->"921a9c76-dcb9-484a-bc19-88ddead9467a"] +Cell[173963, 4666, 1822, 62, 313, "Input",ExpressionUUID->"92f48aa9-a01c-431b-ad27-db26cba84490"], +Cell[175788, 4730, 269, 5, 62, "Output",ExpressionUUID->"ca981722-7728-47af-b853-953b186e37c1"] }, Open ]], Cell[CellGroupData[{ -Cell[290388, 7207, 2028, 55, 51, "Input",ExpressionUUID->"0fd90636-7592-fc40-bf9d-ae1cb915c656"], -Cell[292419, 7264, 20296, 381, 236, "Output",ExpressionUUID->"09d149ec-0259-a345-a282-743f783e7913"] +Cell[176094, 4740, 1635, 54, 208, "Input",ExpressionUUID->"4154f56f-4103-4558-b830-6083ff36be8d"], +Cell[177732, 4796, 273, 5, 41, "Output",ExpressionUUID->"d6ec32d4-207d-4cd8-9eeb-88f97add5e2f"] }, Open ]], Cell[CellGroupData[{ -Cell[312752, 7650, 2146, 61, 92, "Input",ExpressionUUID->"90696e8b-5a2d-314c-8d58-ac84cb8f4d66"], -Cell[314901, 7713, 500, 11, 38, "Message",ExpressionUUID->"526ffad5-83ae-c149-9912-e494135b3fca"], -Cell[315404, 7726, 505, 11, 38, "Message",ExpressionUUID->"1adb1680-bdf2-4144-bcc9-7270c61e97b7"], -Cell[315912, 7739, 509, 11, 38, "Message",ExpressionUUID->"9e5d82d5-642b-cb46-8232-be5a5ca7050d"], -Cell[316424, 7752, 458, 10, 26, "Message",ExpressionUUID->"ef931413-f964-5b45-a755-76cab1ab5309"], -Cell[316885, 7764, 39609, 697, 232, "Output",ExpressionUUID->"23497d29-f516-664b-9ee0-ea8f6d88359c"] +Cell[178042, 4806, 1635, 54, 208, "Input",ExpressionUUID->"2d5197b2-6c2a-4bb0-bcee-b44c1006a471"], +Cell[179680, 4862, 272, 5, 41, "Output",ExpressionUUID->"8a566fda-2491-4f78-88f7-6c8bd7948d76"] }, Open ]], -Cell[356509, 8464, 209, 5, 29, "Input",ExpressionUUID->"ea848967-083d-ea47-bce0-5c3b93725916"], +Cell[179967, 4870, 250, 5, 56, "Input",ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], +Cell[180220, 4877, 253, 5, 56, "Input",ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], Cell[CellGroupData[{ -Cell[356743, 8473, 1616, 48, 67, "Input",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], -Cell[358362, 8523, 589, 12, 38, "Message",ExpressionUUID->"100796fd-6fde-3c41-9088-c2d3ae2f8aeb"], -Cell[358954, 8537, 595, 12, 38, "Message",ExpressionUUID->"c91e75b4-9e2b-1e49-a5d5-453d5f87b5e3"], -Cell[359552, 8551, 596, 12, 38, "Message",ExpressionUUID->"5d8ad6a4-5b83-df49-8c4d-081081895528"], -Cell[360151, 8565, 458, 10, 26, "Message",ExpressionUUID->"26eed7af-5e0a-e840-9956-caca06166010"], -Cell[360612, 8577, 171, 3, 33, "Output",ExpressionUUID->"e4e35b92-e786-3044-bf1d-9c587b1357a2"] +Cell[180498, 4886, 1301, 43, 174, "Input",ExpressionUUID->"5e48fe0c-b3e8-2b40-82cb-716b23b2f326"], +Cell[181802, 4931, 178, 3, 41, "Output",ExpressionUUID->"1db85c02-7ca3-154e-854d-2c36f89709c4"] }, Open ]], Cell[CellGroupData[{ -Cell[360820, 8585, 2249, 64, 62, "Input",ExpressionUUID->"80bba3bc-d8f7-1c4b-9262-0895c02ffd8f"], -Cell[363072, 8651, 573, 12, 38, "Message",ExpressionUUID->"6b65fc2b-3e1d-714d-aeb9-43978836a621"], -Cell[363648, 8665, 573, 12, 38, "Message",ExpressionUUID->"c4736a05-b0e1-5e49-b581-f3ce4c83fe21"], -Cell[364224, 8679, 579, 12, 38, "Message",ExpressionUUID->"ae8eb83c-0205-8046-8445-e249896b7ee5"], -Cell[364806, 8693, 458, 10, 26, "Message",ExpressionUUID->"5072d590-62c3-7a47-ae1b-6dd617a0b9dc"], -Cell[365267, 8705, 174, 3, 70, "Output",ExpressionUUID->"8dd7e1f9-bbea-d84b-ad0e-8922158aee9e"] +Cell[182017, 4939, 910, 31, 128, "Input",ExpressionUUID->"e4db2648-4e1a-2c46-83ab-fcd932c3b663"], +Cell[182930, 4972, 175, 3, 41, "Output",ExpressionUUID->"78ed190c-23cd-4d45-867a-2b08174b715f"] }, Open ]], Cell[CellGroupData[{ -Cell[365478, 8713, 2221, 64, 70, "Input",ExpressionUUID->"57976ffc-56f1-604b-8519-bead95265db8"], -Cell[367702, 8779, 573, 12, 70, "Message",ExpressionUUID->"7ab877ea-0e4b-f948-97c2-7ebafb7901b1"], -Cell[368278, 8793, 575, 12, 70, "Message",ExpressionUUID->"a87a57c5-24bc-dc4a-888a-b3c0095c10c4"], -Cell[368856, 8807, 577, 12, 70, "Message",ExpressionUUID->"d8af7fb1-1d43-664e-ae2d-698eaa818746"], -Cell[369436, 8821, 456, 10, 70, "Message",ExpressionUUID->"7abec434-52e8-c64c-ac86-90da0b27b8aa"], -Cell[369895, 8833, 172, 3, 70, "Output",ExpressionUUID->"164a4c34-f121-a445-b434-e34aa59666ab"] +Cell[183142, 4980, 885, 30, 128, "Input",ExpressionUUID->"e4649c3d-e19e-ca42-95a0-23b66397f1fd"], +Cell[184030, 5012, 177, 3, 41, "Output",ExpressionUUID->"82ec2512-4fcb-ba44-b472-bb3a66bb622e"] }, Open ]], Cell[CellGroupData[{ -Cell[370104, 8841, 2219, 64, 70, "Input",ExpressionUUID->"cfa37210-3ae7-3f49-b290-f19508c6d2f1"], -Cell[372326, 8907, 571, 12, 70, "Message",ExpressionUUID->"92295db4-13f0-284e-8173-df7f8dd20dcf"], -Cell[372900, 8921, 573, 12, 70, "Message",ExpressionUUID->"c6280e41-1347-0f47-81a9-bcd3687b7b73"], -Cell[373476, 8935, 579, 12, 70, "Message",ExpressionUUID->"2aa0f4b1-01ca-4644-884e-b759d4a75412"], -Cell[374058, 8949, 458, 10, 70, "Message",ExpressionUUID->"ab3c3bff-179e-9f4e-b56a-87d1b4f6fc04"], -Cell[374519, 8961, 172, 3, 70, "Output",ExpressionUUID->"f5b8154f-e61e-6a4e-b068-b6c1916773ef"] +Cell[184244, 5020, 558, 19, 66, "Input",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], +Cell[184805, 5041, 173, 3, 41, "Output",ExpressionUUID->"9d53fa4a-be54-7b42-83bd-0a5560193c0f"] }, Open ]], Cell[CellGroupData[{ -Cell[374728, 8969, 211, 6, 70, "Input",ExpressionUUID->"7457b456-6d32-5b44-9679-346c5f5ac532"], -Cell[374942, 8977, 174, 3, 70, "Output",ExpressionUUID->"14434839-d5cf-b844-b849-b3b3102df434"] -}, Open ]] +Cell[185015, 5049, 623, 21, 66, "Input",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], +Cell[185641, 5072, 170, 3, 41, "Output",ExpressionUUID->"4107fa63-a138-df48-a95c-ec944a983800"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185848, 5080, 170, 5, 71, "Input",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], +Cell[186021, 5087, 173, 3, 41, "Output",ExpressionUUID->"f894fb1d-1550-5146-a259-dfa871655c2a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[186231, 5095, 170, 5, 69, "Input",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], +Cell[186404, 5102, 170, 3, 41, "Output",ExpressionUUID->"8d5b13a4-8c75-0f48-ab21-9720bb8c0cbc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[186611, 5110, 181, 5, 55, "Input",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], +Cell[186795, 5117, 171, 3, 41, "Output",ExpressionUUID->"4d4b493f-9f2d-1e41-979f-fb4d58d0e93a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187003, 5125, 181, 5, 55, "Input",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], +Cell[187187, 5132, 173, 3, 41, "Output",ExpressionUUID->"e40db20b-c65e-4a45-ba96-abcb59b0d0ac"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187397, 5140, 6055, 185, 831, "Input",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], +Cell[193455, 5327, 175, 3, 41, "Output",ExpressionUUID->"cdf81fea-e12a-2b44-81a8-222b4bbf8a86"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193667, 5335, 368, 9, 53, "Input",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], +Cell[194038, 5346, 170, 3, 41, "Output",ExpressionUUID->"181dc1c8-632b-4b43-91c4-d3626d65bfc7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194245, 5354, 6122, 187, 900, "Input",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], +Cell[200370, 5543, 175, 3, 41, "Output",ExpressionUUID->"c7d972b4-764c-954a-8260-240d49cfcff6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[200582, 5551, 368, 9, 53, "Input",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], +Cell[200953, 5562, 172, 3, 41, "Output",ExpressionUUID->"c285a758-c3ad-974b-93c3-4cb0d4bdd2ae"] +}, Open ]], +Cell[CellGroupData[{ +Cell[201162, 5570, 2663, 88, 435, "Input",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], +Cell[203828, 5660, 173, 3, 41, "Output",ExpressionUUID->"5dc957f4-8f84-c54c-80a3-c76f756c5df4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[204038, 5668, 2603, 85, 435, "Input",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], +Cell[206644, 5755, 172, 3, 41, "Output",ExpressionUUID->"b4ee01d5-3415-494b-b28a-4587c8d8bb90"] +}, Open ]], +Cell[CellGroupData[{ +Cell[206853, 5763, 3712, 118, 575, "Input",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], +Cell[210568, 5883, 174, 3, 41, "Output",ExpressionUUID->"20c44e64-7085-8e4d-a9d6-f80b5532826e"] +}, Open ]], +Cell[210757, 5889, 138, 3, 36, "Input",ExpressionUUID->"ba4a3eff-9e3b-5e47-a896-3a959bbbf44d"], +Cell[CellGroupData[{ +Cell[210920, 5896, 2052, 59, 276, "Input",ExpressionUUID->"738a48f3-b38c-f441-aec4-53babaa73a14"], +Cell[212975, 5957, 524, 11, 98, "Message",ExpressionUUID->"bd0a7da1-672e-6b4e-afbd-4af379292e8d"], +Cell[213502, 5970, 526, 11, 98, "Message",ExpressionUUID->"9a8837e4-2afa-d145-83db-a88ef0e502bc"], +Cell[214031, 5983, 530, 11, 98, "Message",ExpressionUUID->"0aa4ed5d-b925-834d-b53a-95c75c4ff982"], +Cell[214564, 5996, 455, 10, 32, "Message",ExpressionUUID->"2742a735-9c26-7640-8a81-3e30eaffa353"], +Cell[215022, 6008, 172, 3, 41, "Output",ExpressionUUID->"d91a6bca-04d7-b84b-93cf-0695498dc4de"] +}, Open ]], +Cell[CellGroupData[{ +Cell[215231, 6016, 2054, 59, 276, "Input",ExpressionUUID->"86c33485-ed26-8f49-b3d0-7d040d3b48f0"], +Cell[217288, 6077, 524, 11, 98, "Message",ExpressionUUID->"2c553d54-16ec-9646-b6d7-75da3c367575"], +Cell[217815, 6090, 526, 11, 98, "Message",ExpressionUUID->"1c597fdf-5631-a84c-9feb-152df3629d86"], +Cell[218344, 6103, 528, 11, 98, "Message",ExpressionUUID->"48439b56-7b7d-fa4d-a4e2-5db2bbda0c77"], +Cell[218875, 6116, 456, 10, 32, "Message",ExpressionUUID->"66ce390f-34a9-df4d-9875-a339943ada86"], +Cell[219334, 6128, 170, 3, 41, "Output",ExpressionUUID->"2e46fa54-fabe-5040-8f8c-6829b7c76136"] +}, Open ]], +Cell[CellGroupData[{ +Cell[219541, 6136, 1938, 53, 232, "Input",ExpressionUUID->"f373fe4f-940c-0842-9236-63ec36d318ad"], +Cell[221482, 6191, 19994, 375, 285, "Output",ExpressionUUID->"fdd0f260-414f-a94a-8f26-cd86e676700c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[241513, 6571, 2092, 60, 311, "Input",ExpressionUUID->"24fa5db0-1063-354a-bd60-c117a27ff3e1"], +Cell[243608, 6633, 490, 11, 71, "Message",ExpressionUUID->"546a9ea9-5939-f84a-87c6-58844f58f330"], +Cell[244101, 6646, 493, 11, 71, "Message",ExpressionUUID->"b36bffd7-1c84-5c45-a847-b2c31968f579"], +Cell[244597, 6659, 508, 11, 56, "Message",ExpressionUUID->"c864bef7-fc73-d94b-8cde-14570cba8095"], +Cell[245108, 6672, 456, 10, 32, "Message",ExpressionUUID->"a2e62375-acd2-6740-bfd7-026877c5bd7b"], +Cell[245567, 6684, 61603, 1057, 290, "Output",ExpressionUUID->"d4eecdc9-263c-5b43-bb29-cd0ac1286793"] +}, Open ]], +Cell[307185, 7744, 2524, 71, 316, "Input",ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], +Cell[309712, 7817, 209, 5, 36, "Input",ExpressionUUID->"6d3700e1-f504-214a-a332-f16397f0b922"], +Cell[CellGroupData[{ +Cell[309946, 7826, 217, 7, 61, "Input",ExpressionUUID->"9051a5e3-bb9f-d941-bcca-598d0b6835be"], +Cell[310166, 7835, 169, 3, 41, "Output",ExpressionUUID->"07374b0a-4615-bf46-ab49-be8623cec410"] +}, Open ]], +Cell[CellGroupData[{ +Cell[310372, 7843, 1816, 53, 311, "Input",ExpressionUUID->"65a995ff-ff3d-634e-9bad-4a8a16073236"], +Cell[312191, 7898, 502, 11, 71, "Message",ExpressionUUID->"c1f83af1-416a-6240-b3fd-c1bfcc643459"], +Cell[312696, 7911, 506, 11, 71, "Message",ExpressionUUID->"5cfd3c4b-6190-2c4d-8479-b4ccd7090f94"], +Cell[313205, 7924, 509, 11, 71, "Message",ExpressionUUID->"288fc6c7-a3fe-9b48-9c0d-bba2713f7084"], +Cell[313717, 7937, 456, 10, 32, "Message",ExpressionUUID->"09478fd5-b212-2347-91e7-b9097bd6d61d"], +Cell[314176, 7949, 28560, 514, 290, "Output",ExpressionUUID->"f7784347-2042-c042-8970-b060f9535d9e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[342773, 8468, 1616, 48, 132, "Input",ExpressionUUID->"86381d88-1537-a242-9cff-0b432b61d63d"], +Cell[344392, 8518, 576, 12, 98, "Message",ExpressionUUID->"0a4bed5c-621d-a546-88e9-ce7d779c106a"], +Cell[344971, 8532, 582, 12, 98, "Message",ExpressionUUID->"80e3943d-459b-8b41-9869-50a6cf829ef8"], +Cell[345556, 8546, 584, 12, 118, "Message",ExpressionUUID->"36529169-7f05-ee43-8080-ce8fdd404b8d"], +Cell[346143, 8560, 458, 10, 32, "Message",ExpressionUUID->"a6c5f0ff-3356-4c42-b883-ce45e5cc4f41"], +Cell[346604, 8572, 170, 3, 41, "Output",ExpressionUUID->"546f133a-4a8e-8d44-937d-5fc3ea2401d8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[346811, 8580, 2247, 64, 348, "Input",ExpressionUUID->"6f0ad284-4db3-da47-b8dc-45830eedfe9c"], +Cell[349061, 8646, 522, 11, 98, "Message",ExpressionUUID->"2e7d173d-070f-de49-a3c2-9964fb888ede"], +Cell[349586, 8659, 526, 11, 98, "Message",ExpressionUUID->"04b23985-5685-d344-a2ed-9886796baf32"], +Cell[350115, 8672, 528, 11, 98, "Message",ExpressionUUID->"ccdd27f2-bd64-f442-a708-cfb1052c7f86"], +Cell[350646, 8685, 458, 10, 32, "Message",ExpressionUUID->"384ce3fd-4914-6b49-b10c-84d885ed65d6"], +Cell[351107, 8697, 175, 3, 41, "Output",ExpressionUUID->"8865a4e5-7fd3-3c49-a115-94c8c5479389"] +}, Open ]], +Cell[CellGroupData[{ +Cell[351319, 8705, 2221, 64, 348, "Input",ExpressionUUID->"b2dda819-6f34-5c49-bc62-303d815946e5"], +Cell[353543, 8771, 522, 11, 98, "Message",ExpressionUUID->"958049e8-43e1-cc46-81fb-5b3fe1a5d9ee"], +Cell[354068, 8784, 524, 11, 98, "Message",ExpressionUUID->"6ed73f20-f975-a34c-a5a3-af58e9ecd7ed"], +Cell[354595, 8797, 528, 11, 98, "Message",ExpressionUUID->"4ce11323-2f48-da4f-84f8-593751381024"], +Cell[355126, 8810, 458, 10, 32, "Message",ExpressionUUID->"330905cd-5b42-604b-aaf8-fbac43108165"], +Cell[355587, 8822, 170, 3, 41, "Output",ExpressionUUID->"020ade62-ec43-7549-8079-7ac012e004c4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[355794, 8830, 2221, 64, 348, "Input",ExpressionUUID->"76a9e77d-1f4c-bb4a-bb13-1a175f609f7d"], +Cell[358018, 8896, 524, 11, 98, "Message",ExpressionUUID->"9a8eff2d-0d97-2e45-a2f3-ce0634115f7d"], +Cell[358545, 8909, 526, 11, 98, "Message",ExpressionUUID->"7dd7e17e-c74e-7145-b6ae-77a0f02c67f1"], +Cell[359074, 8922, 530, 11, 98, "Message",ExpressionUUID->"311ddb21-a730-0b41-b633-2d3bac87be85"], +Cell[359607, 8935, 458, 10, 32, "Message",ExpressionUUID->"ecdc16e1-316d-b342-a60b-0f3075607709"], +Cell[360068, 8947, 171, 3, 41, "Output",ExpressionUUID->"a7fc6f95-4067-504b-8754-5086d2659934"] +}, Open ]], +Cell[CellGroupData[{ +Cell[360276, 8955, 215, 6, 60, "Input",ExpressionUUID->"69dd09d9-152e-3e4d-9517-4de4791db2f4"], +Cell[360494, 8963, 175, 3, 41, "Output",ExpressionUUID->"96bb6c6a-f128-024e-85ce-f8a6083a68c6"] +}, Open ]], +Cell[360684, 8969, 245, 5, 36, "Input",ExpressionUUID->"6ecc7e8c-a7c5-354e-b168-749729cd7104"], +Cell[CellGroupData[{ +Cell[360954, 8978, 623, 20, 66, "Input",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], +Cell[361580, 9000, 172, 3, 41, "Output",ExpressionUUID->"fecac54e-ac70-c448-b60d-60e5d8aa9072"] +}, Open ]], +Cell[CellGroupData[{ +Cell[361789, 9008, 170, 5, 71, "Input",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], +Cell[361962, 9015, 172, 3, 41, "Output",ExpressionUUID->"31e41e93-aaef-1b4f-a5e6-3cad86684dfc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[362171, 9023, 181, 5, 55, "Input",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], +Cell[362355, 9030, 172, 3, 41, "Output",ExpressionUUID->"d20f2acf-afe0-0844-b0cd-0cdce2394573"] +}, Open ]], +Cell[CellGroupData[{ +Cell[362564, 9038, 6055, 185, 831, "Input",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], +Cell[368622, 9225, 174, 3, 41, "Output",ExpressionUUID->"ec544098-6efd-4845-b84f-33e39ead67c9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[368833, 9233, 368, 9, 53, "Input",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], +Cell[369204, 9244, 173, 3, 41, "Output",ExpressionUUID->"85f4fe6d-1167-7a40-b761-0a55e5251875"] +}, Open ]], +Cell[CellGroupData[{ +Cell[369414, 9252, 6122, 187, 900, "Input",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], +Cell[375539, 9441, 175, 3, 41, "Output",ExpressionUUID->"53db8250-199b-594a-8ebd-fc9cc43217e3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[375751, 9449, 368, 9, 53, "Input",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], +Cell[376122, 9460, 170, 3, 41, "Output",ExpressionUUID->"0013bb3e-54d0-e343-9869-cf63da2eecbd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[376329, 9468, 2663, 88, 435, "Input",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], +Cell[378995, 9558, 173, 3, 41, "Output",ExpressionUUID->"96d8705a-f744-d447-bad0-55fe1d703f38"] +}, Open ]], +Cell[CellGroupData[{ +Cell[379205, 9566, 2603, 85, 435, "Input",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], +Cell[381811, 9653, 172, 3, 41, "Output",ExpressionUUID->"bad41b21-8b15-a74b-a641-622c6584a958"] +}, Open ]], +Cell[CellGroupData[{ +Cell[382020, 9661, 3712, 118, 575, "Input",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], +Cell[385735, 9781, 174, 3, 41, "Output",ExpressionUUID->"a42f993d-5633-3546-ae09-6931972f9312"] +}, Open ]], +Cell[CellGroupData[{ +Cell[385946, 9789, 2052, 59, 276, "Input",ExpressionUUID->"d6aa822f-4140-174a-8e29-c889dba5c0d8"], +Cell[388001, 9850, 574, 12, 98, "Message",ExpressionUUID->"91f9ae14-8766-3848-9c79-ec46ad6af7ea"], +Cell[388578, 9864, 580, 12, 98, "Message",ExpressionUUID->"2440fadc-b12b-424f-a600-97a0a8c9f031"], +Cell[389161, 9878, 582, 12, 98, "Message",ExpressionUUID->"d4d1d26f-ac2b-a949-95b4-8d60af02cc4b"], +Cell[389746, 9892, 456, 10, 32, "Message",ExpressionUUID->"0cb59396-7a19-6b43-af2b-0a0ce0427b94"], +Cell[390205, 9904, 171, 3, 41, "Output",ExpressionUUID->"3ceb430a-d440-e040-b6a8-a18a3884b326"] +}, Open ]], +Cell[CellGroupData[{ +Cell[390413, 9912, 2054, 59, 276, "Input",ExpressionUUID->"46f3f057-22eb-c143-af7a-23ddab00799c"], +Cell[392470, 9973, 574, 12, 98, "Message",ExpressionUUID->"ccb81c35-09e9-854b-9187-d46e8624546d"], +Cell[393047, 9987, 578, 12, 98, "Message",ExpressionUUID->"6dff6307-9a24-c74d-90d8-2f18b14858dc"], +Cell[393628, 10001, 582, 12, 98, "Message",ExpressionUUID->"11045565-b757-154a-b614-eb73b2dcbc5f"], +Cell[394213, 10015, 458, 10, 32, "Message",ExpressionUUID->"af9dd0c6-d446-9940-b908-9b52fbb611cb"], +Cell[394674, 10027, 169, 3, 41, "Output",ExpressionUUID->"d39c46b4-75c6-f741-b7fd-1a1fdbe4155f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[394880, 10035, 2030, 55, 232, "Input",ExpressionUUID->"0137ed47-cd78-284a-910a-31d165f1571c"], +Cell[396913, 10092, 20326, 381, 299, "Output",ExpressionUUID->"5f98f6f4-700b-0a4b-af1c-32125fed3e6a"] +}, Open ]], +Cell[417254, 10476, 2144, 61, 311, "Input",ExpressionUUID->"00a32bc3-df79-9e43-8f20-d4884962c12d"], +Cell[419401, 10539, 138, 3, 36, "Input",ExpressionUUID->"344da507-9044-ef47-aa8c-99f282e3d6d3"], +Cell[CellGroupData[{ +Cell[419564, 10546, 1616, 48, 132, "Input",ExpressionUUID->"f13d1bd8-d153-ae43-b041-68b993e77854"], +Cell[421183, 10596, 592, 12, 118, "Message",ExpressionUUID->"318da404-8df4-c540-9269-2b249c7e148e"], +Cell[421778, 10610, 597, 12, 118, "Message",ExpressionUUID->"42939765-c33b-c147-a25b-bfa31c71a3cb"], +Cell[422378, 10624, 599, 12, 118, "Message",ExpressionUUID->"63b912c5-afab-654e-9609-c4b849e9abfe"], +Cell[422980, 10638, 458, 10, 32, "Message",ExpressionUUID->"2c8999d2-d9b5-ef4e-a59d-c314a02b2b2a"], +Cell[423441, 10650, 172, 3, 41, "Output",ExpressionUUID->"52013fca-4692-bf47-a0cf-880d71f10fc1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[423650, 10658, 2249, 64, 348, "Input",ExpressionUUID->"53e25fab-b431-cc42-a467-e4dea0353ed0"], +Cell[425902, 10724, 576, 12, 98, "Message",ExpressionUUID->"285f997a-25b4-f647-9523-e0dd05446bae"], +Cell[426481, 10738, 580, 12, 98, "Message",ExpressionUUID->"b1d2a50d-b27b-ca46-afcb-af9e8d59323e"], +Cell[427064, 10752, 582, 12, 98, "Message",ExpressionUUID->"a36c085c-b95e-724c-a04e-30924ab7ac52"], +Cell[427649, 10766, 456, 10, 32, "Message",ExpressionUUID->"976edb68-80f3-5a4d-a255-2f217ec84bfa"], +Cell[428108, 10778, 171, 3, 41, "Output",ExpressionUUID->"b7107287-e519-1249-9ef0-b745347bdb78"] +}, Open ]], +Cell[CellGroupData[{ +Cell[428316, 10786, 2223, 64, 348, "Input",ExpressionUUID->"b18c819e-620a-d449-97d6-547e3a6fa152"], +Cell[430542, 10852, 574, 12, 98, "Message",ExpressionUUID->"2877ed71-3ee8-8044-94b0-c606083c07b7"], +Cell[431119, 10866, 578, 12, 98, "Message",ExpressionUUID->"34cfc5a5-16b6-f24f-acdf-b4e2d29b1bef"], +Cell[431700, 10880, 580, 12, 98, "Message",ExpressionUUID->"7fe7bdbe-3892-5043-b38d-13721c83d41a"], +Cell[432283, 10894, 458, 10, 32, "Message",ExpressionUUID->"93dfb0cd-55fb-1b4a-b671-37d180b9d444"], +Cell[432744, 10906, 173, 3, 41, "Output",ExpressionUUID->"372279b5-5e4a-b545-a159-384b26aa5ab4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[432954, 10914, 2221, 64, 348, "Input",ExpressionUUID->"22ab74c7-5916-9440-9d7d-c3e0f6ab8836"], +Cell[435178, 10980, 574, 12, 98, "Message",ExpressionUUID->"c14c35e1-e487-c742-a0da-128fdb9754d4"], +Cell[435755, 10994, 578, 12, 98, "Message",ExpressionUUID->"4396ed61-4d7e-6144-80f0-6d5649cfcb04"], +Cell[436336, 11008, 582, 12, 98, "Message",ExpressionUUID->"00fa2dcd-bc0b-9e44-9f00-15116f344aca"], +Cell[436921, 11022, 455, 10, 32, "Message",ExpressionUUID->"78b12bf1-7793-9341-ad5f-c7be406b8be6"], +Cell[437379, 11034, 170, 3, 41, "Output",ExpressionUUID->"9454fa52-ff74-094b-8081-2fc86cf96043"] +}, Open ]], +Cell[CellGroupData[{ +Cell[437586, 11042, 215, 6, 60, "Input",ExpressionUUID->"f9c66987-c237-7a40-a006-e20e260dbdcb"], +Cell[437804, 11050, 174, 3, 41, "Output",ExpressionUUID->"175eda7e-c091-3e4f-86ac-3148f0a9e904"] +}, Open ]], +Cell[437993, 11056, 249, 5, 36, "Input",ExpressionUUID->"770a9ed7-7938-9e48-be64-c31719ef3a6b"], +Cell[CellGroupData[{ +Cell[438267, 11065, 558, 19, 66, "Input",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], +Cell[438828, 11086, 169, 3, 41, "Output",ExpressionUUID->"e757c22c-d836-6c4a-a9f7-93553c4bb232"] +}, Open ]], +Cell[CellGroupData[{ +Cell[439034, 11094, 170, 5, 71, "Input",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], +Cell[439207, 11101, 173, 3, 41, "Output",ExpressionUUID->"7f3ee547-87eb-d74d-8f21-a8d42f1dde52"] +}, Open ]], +Cell[CellGroupData[{ +Cell[439417, 11109, 181, 5, 55, "Input",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], +Cell[439601, 11116, 173, 3, 41, "Output",ExpressionUUID->"0603b6e6-a8b7-1e45-9b15-2769b7fbc373"] +}, Open ]], +Cell[CellGroupData[{ +Cell[439811, 11124, 6055, 185, 831, "Input",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], +Cell[445869, 11311, 174, 3, 41, "Output",ExpressionUUID->"8b7a346f-cdda-e24e-b924-d6cfb1b3119a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[446080, 11319, 368, 9, 53, "Input",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], +Cell[446451, 11330, 172, 3, 41, "Output",ExpressionUUID->"3354b35a-acef-b846-b770-8d2e77b8f68b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[446660, 11338, 6122, 187, 900, "Input",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], +Cell[452785, 11527, 172, 3, 41, "Output",ExpressionUUID->"7b76721b-3d4c-c544-9113-83ba4f36ae7f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[452994, 11535, 368, 9, 53, "Input",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], +Cell[453365, 11546, 170, 3, 41, "Output",ExpressionUUID->"e9346704-c478-364d-b5eb-0aabe0e2e350"] +}, Open ]], +Cell[CellGroupData[{ +Cell[453572, 11554, 2663, 88, 435, "Input",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], +Cell[456238, 11644, 173, 3, 41, "Output",ExpressionUUID->"33b7f444-6995-e54b-a2a6-ad09016b1850"] +}, Open ]], +Cell[CellGroupData[{ +Cell[456448, 11652, 2603, 85, 435, "Input",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], +Cell[459054, 11739, 172, 3, 41, "Output",ExpressionUUID->"76ba8e46-11c7-f54d-bfb2-cca1b455c838"] +}, Open ]], +Cell[CellGroupData[{ +Cell[459263, 11747, 3712, 118, 575, "Input",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], +Cell[462978, 11867, 172, 3, 41, "Output",ExpressionUUID->"f7c29774-2634-5546-ab63-4d3ac6889f79"] +}, Open ]], +Cell[CellGroupData[{ +Cell[463187, 11875, 2052, 59, 276, "Input",ExpressionUUID->"55d51961-97f2-ed4d-8bf8-8a461d652ab4"], +Cell[465242, 11936, 573, 12, 98, "Message",ExpressionUUID->"3d5a1265-fb27-0b41-a549-5e326650d270"], +Cell[465818, 11950, 573, 12, 98, "Message",ExpressionUUID->"0726d23e-32d7-7a41-8d7f-0b62fec75437"], +Cell[466394, 11964, 579, 12, 98, "Message",ExpressionUUID->"b47482ef-bec0-234f-aeb7-9009a378a36d"], +Cell[466976, 11978, 458, 10, 32, "Message",ExpressionUUID->"e5e35e3a-0e40-c249-b6f3-c2a6a5a48740"], +Cell[467437, 11990, 170, 3, 41, "Output",ExpressionUUID->"b33776d0-2a41-694b-9af8-c4d483383e7c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[467644, 11998, 2052, 59, 276, "Input",ExpressionUUID->"9704b9d3-b449-2144-9970-6a7de047241d"], +Cell[469699, 12059, 573, 12, 98, "Message",ExpressionUUID->"ffb6a3c0-c488-cd48-870e-d66051362026"], +Cell[470275, 12073, 575, 12, 98, "Message",ExpressionUUID->"ca3fb11a-47f9-c542-a5c9-6e0087e110b9"], +Cell[470853, 12087, 579, 12, 98, "Message",ExpressionUUID->"7e4a0639-38a1-f74e-ab8e-5264cad2d48c"], +Cell[471435, 12101, 458, 10, 32, "Message",ExpressionUUID->"101eaea3-75b1-d942-9914-a0fe8a6e2f65"], +Cell[471896, 12113, 169, 3, 41, "Output",ExpressionUUID->"921a9c76-dcb9-484a-bc19-88ddead9467a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[472102, 12121, 2028, 55, 232, "Input",ExpressionUUID->"0fd90636-7592-fc40-bf9d-ae1cb915c656"], +Cell[474133, 12178, 20296, 381, 295, "Output",ExpressionUUID->"09d149ec-0259-a345-a282-743f783e7913"] +}, Open ]], +Cell[CellGroupData[{ +Cell[494466, 12564, 2146, 61, 311, "Input",ExpressionUUID->"90696e8b-5a2d-314c-8d58-ac84cb8f4d66"], +Cell[496615, 12627, 500, 11, 71, "Message",ExpressionUUID->"526ffad5-83ae-c149-9912-e494135b3fca"], +Cell[497118, 12640, 505, 11, 71, "Message",ExpressionUUID->"1adb1680-bdf2-4144-bcc9-7270c61e97b7"], +Cell[497626, 12653, 509, 11, 71, "Message",ExpressionUUID->"9e5d82d5-642b-cb46-8232-be5a5ca7050d"], +Cell[498138, 12666, 458, 10, 32, "Message",ExpressionUUID->"ef931413-f964-5b45-a755-76cab1ab5309"], +Cell[498599, 12678, 39609, 697, 290, "Output",ExpressionUUID->"23497d29-f516-664b-9ee0-ea8f6d88359c"] +}, Open ]], +Cell[538223, 13378, 209, 5, 36, "Input",ExpressionUUID->"ea848967-083d-ea47-bce0-5c3b93725916"], +Cell[CellGroupData[{ +Cell[538457, 13387, 1616, 48, 132, "Input",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], +Cell[540076, 13437, 589, 12, 118, "Message",ExpressionUUID->"100796fd-6fde-3c41-9088-c2d3ae2f8aeb"], +Cell[540668, 13451, 595, 12, 118, "Message",ExpressionUUID->"c91e75b4-9e2b-1e49-a5d5-453d5f87b5e3"], +Cell[541266, 13465, 596, 12, 118, "Message",ExpressionUUID->"5d8ad6a4-5b83-df49-8c4d-081081895528"], +Cell[541865, 13479, 458, 10, 32, "Message",ExpressionUUID->"26eed7af-5e0a-e840-9956-caca06166010"], +Cell[542326, 13491, 171, 3, 41, "Output",ExpressionUUID->"e4e35b92-e786-3044-bf1d-9c587b1357a2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[542534, 13499, 2249, 64, 348, "Input",ExpressionUUID->"80bba3bc-d8f7-1c4b-9262-0895c02ffd8f"], +Cell[544786, 13565, 573, 12, 98, "Message",ExpressionUUID->"6b65fc2b-3e1d-714d-aeb9-43978836a621"], +Cell[545362, 13579, 573, 12, 98, "Message",ExpressionUUID->"c4736a05-b0e1-5e49-b581-f3ce4c83fe21"], +Cell[545938, 13593, 579, 12, 98, "Message",ExpressionUUID->"ae8eb83c-0205-8046-8445-e249896b7ee5"], +Cell[546520, 13607, 458, 10, 32, "Message",ExpressionUUID->"5072d590-62c3-7a47-ae1b-6dd617a0b9dc"], +Cell[546981, 13619, 174, 3, 41, "Output",ExpressionUUID->"8dd7e1f9-bbea-d84b-ad0e-8922158aee9e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[547192, 13627, 2221, 64, 348, "Input",ExpressionUUID->"57976ffc-56f1-604b-8519-bead95265db8"], +Cell[549416, 13693, 573, 12, 98, "Message",ExpressionUUID->"7ab877ea-0e4b-f948-97c2-7ebafb7901b1"], +Cell[549992, 13707, 575, 12, 98, "Message",ExpressionUUID->"a87a57c5-24bc-dc4a-888a-b3c0095c10c4"], +Cell[550570, 13721, 577, 12, 98, "Message",ExpressionUUID->"d8af7fb1-1d43-664e-ae2d-698eaa818746"], +Cell[551150, 13735, 456, 10, 32, "Message",ExpressionUUID->"7abec434-52e8-c64c-ac86-90da0b27b8aa"], +Cell[551609, 13747, 172, 3, 41, "Output",ExpressionUUID->"164a4c34-f121-a445-b434-e34aa59666ab"] +}, Open ]], +Cell[CellGroupData[{ +Cell[551818, 13755, 2219, 64, 348, "Input",ExpressionUUID->"cfa37210-3ae7-3f49-b290-f19508c6d2f1"], +Cell[554040, 13821, 571, 12, 98, "Message",ExpressionUUID->"92295db4-13f0-284e-8173-df7f8dd20dcf"], +Cell[554614, 13835, 573, 12, 98, "Message",ExpressionUUID->"c6280e41-1347-0f47-81a9-bcd3687b7b73"], +Cell[555190, 13849, 579, 12, 98, "Message",ExpressionUUID->"2aa0f4b1-01ca-4644-884e-b759d4a75412"], +Cell[555772, 13863, 458, 10, 32, "Message",ExpressionUUID->"ab3c3bff-179e-9f4e-b56a-87d1b4f6fc04"], +Cell[556233, 13875, 172, 3, 41, "Output",ExpressionUUID->"f5b8154f-e61e-6a4e-b068-b6c1916773ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[556442, 13883, 211, 6, 60, "Input",ExpressionUUID->"7457b456-6d32-5b44-9679-346c5f5ac532"], +Cell[556656, 13891, 174, 3, 41, "Output",ExpressionUUID->"14434839-d5cf-b844-b849-b3b3102df434"] +}, Open ]], +Cell[556845, 13897, 115, 1, 36, "Input",ExpressionUUID->"60c63353-4bae-43d1-a5cd-279e942e44ea"] } ] *) diff --git a/Pu240_798-811_TitovAA/172-68_h_Pu240_26-27/h_172-68_Pu240_26-27_gid_Qw2.nb b/Pu240_798-811_TitovAA/172-68_h_Pu240_26-27/h_172-68_Pu240_26-27_gid_Qw2.nb index 1f902d9..d33b6a1 100644 --- a/Pu240_798-811_TitovAA/172-68_h_Pu240_26-27/h_172-68_Pu240_26-27_gid_Qw2.nb +++ b/Pu240_798-811_TitovAA/172-68_h_Pu240_26-27/h_172-68_Pu240_26-27_gid_Qw2.nb @@ -3,26 +3,4875 @@ (*** 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[ 435199, 13004] +NotebookOptionsPosition[ 396907, 12388] +NotebookOutlinePosition[ 397318, 12405] +CellTagsIndexPosition[ 397275, 12402] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f1", "="}]], "Input", + RowBox[{"d", "=", "1.95"}]], "Input", CellChangeTimes->{ - 3.9918505481678543`*^9},ExpressionUUID->"83cccf0d-dccb-fb42-a058-\ -5e950c758893"], + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.994074211664226*^9, 3.994074212605893*^9}, { + 3.994074246621201*^9, 3.994074265935053*^9}}, + CellLabel-> + "In[304]:=",ExpressionUUID->"3943730d-9530-43b8-bf39-19784136256b"], + +Cell[BoxData["1.95`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, {3.994074196804253*^9, 3.994074214075809*^9}, { + 3.9940742497364883`*^9, 3.9940742697527313`*^9}}, + CellLabel-> + "Out[304]=",ExpressionUUID->"499a6fc7-b1e5-48d6-b79b-db1dd4a5b79b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.9940740226123867`*^9, 3.994074030397141*^9}}, + CellLabel-> + "In[305]:=",ExpressionUUID->"daae7706-fca6-4e7a-9954-4fe79beca5c2"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, {3.9940741968744993`*^9, 3.994074214306916*^9}, { + 3.994074249779564*^9, 3.9940742697936697`*^9}}, + CellLabel-> + "Out[305]=",ExpressionUUID->"c7716299-8dfe-4fe4-85d3-b5caadb02ba2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "172"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.994074027305109*^9, 3.994074028074005*^9}}, + CellLabel-> + "In[306]:=",ExpressionUUID->"d74a31de-003c-48e3-bd39-989b5d6e0b39"], + +Cell[BoxData["172"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, {3.994074196887857*^9, 3.994074214318638*^9}, { + 3.9940742497919416`*^9, 3.9940742698063602`*^9}}, + CellLabel-> + "Out[306]=",ExpressionUUID->"801e168a-e06e-491d-98b0-151f04a299ab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel-> + "In[307]:=",ExpressionUUID->"1c44b317-519b-49c8-8702-e2d9d929601d"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, {3.9940741969012012`*^9, 3.994074214329146*^9}, { + 3.9940742497961063`*^9, 3.994074269818478*^9}}, + CellLabel-> + "Out[307]=",ExpressionUUID->"da50ec22-f880-4086-95ca-25b5f93bce82"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel-> + "In[308]:=",ExpressionUUID->"3f66c609-61b6-4f6f-ba97-9d8451a7ad83"], + +Cell[BoxData["0.5435000000000001`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, {3.9940741969137297`*^9, 3.99407421433959*^9}, { + 3.994074249812704*^9, 3.994074269830806*^9}}, + CellLabel-> + "Out[308]=",ExpressionUUID->"c03047fc-49e4-4b00-b56f-5501fb6aa2ca"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel-> + "In[309]:=",ExpressionUUID->"ff44fa1f-89eb-4ba4-b609-646ee4da5423"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, {3.9940741969249763`*^9, 3.994074214349977*^9}, { + 3.99407424982506*^9, 3.994074269834938*^9}}, + CellLabel-> + "Out[309]=",ExpressionUUID->"9edf3971-4c57-4fa1-b8df-861f940ee735"] +}, 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[310]:=",ExpressionUUID->"94581f7f-892d-4c5a-bc76-6a965728ccb3"], + +Cell[BoxData["6.451105409164632`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, {3.994074196937035*^9, 3.994074214360525*^9}, { + 3.994074249837967*^9, 3.9940742698497963`*^9}}, + CellLabel-> + "Out[310]=",ExpressionUUID->"4312da58-abfb-4481-90d4-32ab1f884412"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel-> + "In[311]:=",ExpressionUUID->"64734b62-ad52-4430-8a27-dca2156ea9db"], + +Cell[BoxData["4.734719918224123`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, {3.9940741969492617`*^9, 3.994074214370586*^9}, { + 3.994074249850299*^9, 3.994074269861824*^9}}, + CellLabel-> + "Out[311]=",ExpressionUUID->"bd1056d7-4cba-43b2-bde1-b8d57dfd7dc5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.852277809"}]], "Input", + CellChangeTimes->{3.991799283179735*^9, 3.9940740415240393`*^9}, + CellLabel-> + "In[312]:=",ExpressionUUID->"6b321ac0-44f1-4881-9cd1-4a4b52e97f45"], + +Cell[BoxData["0.852277809`"], "Output", + CellChangeTimes->{{3.994074196961275*^9, 3.994074214380481*^9}, { + 3.994074249862259*^9, 3.994074269873619*^9}}, + CellLabel-> + "Out[312]=",ExpressionUUID->"6af075ab-3e00-4497-bdd8-ab4377b90b38"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.3903505481"}]], "Input", + CellChangeTimes->{3.991799280663351*^9, 3.99407404519888*^9}, + CellLabel-> + "In[313]:=",ExpressionUUID->"44eaa458-26da-4c2c-9c5b-de663afd33a3"], + +Cell[BoxData["0.3903505481`"], "Output", + CellChangeTimes->{{3.99407419697276*^9, 3.9940742143904543`*^9}, { + 3.99407424987506*^9, 3.994074269885377*^9}}, + CellLabel-> + "Out[313]=",ExpressionUUID->"42257ab3-e7f0-4b2d-accc-c7d4960d77bd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel-> + "In[314]:=",ExpressionUUID->"08e8b451-72ed-4e4f-816e-862c4275c518"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, {3.9940741969837933`*^9, 3.994074214400448*^9}, { + 3.994074249886661*^9, 3.994074269897275*^9}}, + CellLabel-> + "Out[314]=",ExpressionUUID->"08042680-84e3-4953-9097-8b4b2329c8a9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel-> + "In[315]:=",ExpressionUUID->"ebc894a3-b30c-4783-b098-44e1acfb02e2"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, {3.9940741969946527`*^9, 3.994074214410337*^9}, { + 3.9940742498968973`*^9, 3.994074269909542*^9}}, + CellLabel-> + "Out[315]=",ExpressionUUID->"197384c7-5cbd-4da5-af81-56243f0ddbb4"] +}, 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[316]:=",ExpressionUUID->"94884653-9926-43f0-a4e4-c8a218730d65"], + +Cell[BoxData["2.19751871461767`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, {3.994074197005885*^9, 3.994074214421315*^9}, { + 3.994074249908176*^9, 3.994074269922103*^9}}, + CellLabel-> + "Out[316]=",ExpressionUUID->"b0418ee4-11ae-4236-8758-d1177d1d5715"] +}, 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[317]:=",ExpressionUUID->"6175cef8-34fe-4c75-a9f1-e60f3bbaacfe"], + +Cell[BoxData["1.4271003361718892`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, {3.994074197017363*^9, 3.994074214431409*^9}, { + 3.994074249918466*^9, 3.99407426993229*^9}}, + CellLabel-> + "Out[317]=",ExpressionUUID->"ae4c8c55-8eef-4563-96cb-21d8ba0414f4"] +}, 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[318]:=",ExpressionUUID->"bb0f74ec-aec0-425a-9079-bf958f539559"], + +Cell[BoxData["0.4377300224639211`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, {3.994074197029154*^9, 3.994074214441661*^9}, { + 3.9940742499280653`*^9, 3.994074269943099*^9}}, + CellLabel-> + "Out[318]=",ExpressionUUID->"4e9cf17c-c086-4207-93a2-1c9be79bec5f"] +}, 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[319]:=",ExpressionUUID->"c33dcea4-9866-4fe5-a912-90d5431107fd"], + +Cell[BoxData[ + RowBox[{"-", "0.09062394423616692`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, {3.9940741970396633`*^9, 3.994074214453579*^9}, { + 3.994074249938612*^9, 3.994074269953534*^9}}, + CellLabel-> + "Out[319]=",ExpressionUUID->"91e07067-ff11-4791-90c4-12c7b6c0218a"] +}, 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[320]:=",ExpressionUUID->"9522d922-0771-4bfc-b71d-52614048d630"], + +Cell[BoxData[ + RowBox[{"-", "0.5469059277191528`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, {3.994074197050289*^9, 3.994074214467175*^9}, { + 3.994074249949532*^9, 3.9940742699645767`*^9}}, + CellLabel-> + "Out[320]=",ExpressionUUID->"4b5ccc44-874a-4062-a2ee-585fdf588efa"] +}, 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[321]:=",ExpressionUUID->"e032899b-6b0b-4998-81de-c470b48600d6"], + +Cell[BoxData["0.7058922703634168`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, {3.994074197062862*^9, 3.99407421448357*^9}, { + 3.9940742499608793`*^9, 3.994074269975973*^9}}, + CellLabel-> + "Out[321]=",ExpressionUUID->"8e3fce66-1bea-4515-a6be-08ab330f5a8e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel-> + "In[322]:=",ExpressionUUID->"216606c7-6dad-4aa1-a3b7-4830abc566c0"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, {3.9940741970755367`*^9, 3.994074214495585*^9}, { + 3.994074249972097*^9, 3.9940742699872303`*^9}}, + CellLabel-> + "Out[322]=",ExpressionUUID->"620aadf4-3b24-41bd-90a9-2a851d458f72"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel-> + "In[323]:=",ExpressionUUID->"57a3072b-f902-4e31-89a5-b16ef3c9230d"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, {3.994074197089067*^9, 3.994074214507393*^9}, { + 3.99407424998314*^9, 3.994074269998393*^9}}, + CellLabel-> + "Out[323]=",ExpressionUUID->"9cec912c-4b48-4158-97f3-06ff6968be02"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel-> + "In[324]:=",ExpressionUUID->"1ceb69c9-9fc5-40b6-ab8e-c8e59d88e8de"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, {3.9940741971016483`*^9, 3.9940742145189466`*^9}, { + 3.994074249994322*^9, 3.994074270009439*^9}}, + CellLabel-> + "Out[324]=",ExpressionUUID->"7bc279d0-7531-4399-a25c-56f639440104"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel-> + "In[325]:=",ExpressionUUID->"9f3f8bb1-d0e8-48d7-a0d2-d236e125b8df"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, {3.9940741971133337`*^9, 3.99407421453058*^9}, { + 3.994074250005796*^9, 3.994074270020775*^9}}, + CellLabel-> + "Out[325]=",ExpressionUUID->"9beed3d8-5c86-4f06-a197-c30484e3cd35"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel-> + "In[326]:=",ExpressionUUID->"7852062e-9d9c-4d72-b668-53029692efc7"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, {3.994074197124381*^9, 3.994074214542293*^9}, { + 3.994074250017613*^9, 3.9940742700324078`*^9}}, + CellLabel-> + "Out[326]=",ExpressionUUID->"b71a3c77-d52d-412d-a545-2e790ba7d27a"] +}, 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.994074052479707*^9, 3.9940740526225157`*^9}}, + CellLabel-> + "In[327]:=",ExpressionUUID->"4238e547-04b4-4cc2-a364-96e360fd1095"], + +Cell[BoxData["66"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, {3.99407419713608*^9, 3.994074214545911*^9}, { + 3.994074250027919*^9, 3.99407427004285*^9}}, + CellLabel-> + "Out[327]=",ExpressionUUID->"c22508b0-e128-4d8f-a35a-f1274e6790ab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, {3.99407405616786*^9, 3.994074056966621*^9}}, + CellLabel-> + "In[328]:=",ExpressionUUID->"40cfdd4f-d522-4cf4-bb3f-ddf87ddd0049"], + +Cell[BoxData["28"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, {3.994074197147298*^9, 3.99407421455849*^9}, { + 3.9940742500393*^9, 3.994074270054291*^9}}, + CellLabel-> + "Out[328]=",ExpressionUUID->"b5c3d90a-a29c-4803-9477-07294e73f107"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel-> + "In[329]:=",ExpressionUUID->"d5cc82e8-3bb4-461d-8af2-e917834817a0"], + +Cell[BoxData["68"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, {3.994074197159381*^9, 3.994074214569437*^9}, { + 3.9940742500504293`*^9, 3.9940742700651913`*^9}}, + CellLabel-> + "Out[329]=",ExpressionUUID->"f0373de4-4109-4341-b94a-96998235c1fa"] +}, 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[330]:=",ExpressionUUID->"1521e7a7-457f-4c43-92d7-83c8a29470ee"], + +Cell[BoxData["0.10723666210670314`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, {3.994074197172007*^9, 3.994074214580143*^9}, { + 3.994074250060562*^9, 3.9940742700753593`*^9}}, + CellLabel-> + "Out[330]=",ExpressionUUID->"3801847b-4dc3-4ee5-a7d6-c282eef96ffc"] +}, 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[331]:=",ExpressionUUID->"bb70a224-c72c-4ce1-a572-c1a6982f5e64"], + +Cell[BoxData[ + RowBox[{"-", "2.5678385772913814`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, {3.994074197183957*^9, 3.994074214590371*^9}, { + 3.994074250071249*^9, 3.99407427008554*^9}}, + CellLabel-> + "Out[331]=",ExpressionUUID->"102a79da-360d-4383-af2e-636189646b64"] +}, 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[332]:=",ExpressionUUID->"d228318d-7be6-4ab9-995e-a12ebb7925bf"], + +Cell[BoxData["17.339463280274387`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, {3.994074197196582*^9, 3.9940742146010637`*^9}, { + 3.994074250082402*^9, 3.9940742700958967`*^9}}, + CellLabel-> + "Out[332]=",ExpressionUUID->"9eecf493-829a-43f0-8011-7f8ff37b9cf1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel-> + "In[333]:=",ExpressionUUID->"1c644334-4034-4175-b519-5173e387509e"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, {3.9940741972101183`*^9, 3.9940742146122723`*^9}, { + 3.994074250094462*^9, 3.994074270106193*^9}}, + CellLabel-> + "Out[333]=",ExpressionUUID->"da8ac628-9b2b-46f0-a295-be6729651dc8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "1.895"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { + 3.994074073155587*^9, 3.994074075499446*^9}}, + CellLabel-> + "In[334]:=",ExpressionUUID->"6ed480b8-b627-490d-a1bd-b6b2cc1dc50d"], + +Cell[BoxData["1.895`"], "Output", + CellChangeTimes->{{3.9940741972243557`*^9, 3.994074214623012*^9}, { + 3.994074250106516*^9, 3.9940742701165457`*^9}}, + CellLabel-> + "Out[334]=",ExpressionUUID->"13e60e75-e971-4310-8d1d-659942245f47"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel-> + "In[335]:=",ExpressionUUID->"82ed6860-a721-4fa4-bc9a-b8b91ebd31e8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.765"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.994074078227497*^9, 3.9940740796275997`*^9}}, + CellLabel-> + "In[336]:=",ExpressionUUID->"c9346430-f3f7-4030-ae91-c2d23857a67f"], + +Cell[BoxData["0.765`"], "Output", + CellChangeTimes->{{3.994074197245954*^9, 3.994074214636681*^9}, { + 3.9940742501222553`*^9, 3.99407427012961*^9}}, + CellLabel-> + "Out[336]=",ExpressionUUID->"9f7fbcdf-43fd-411d-9e20-64c878a946b1"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel-> + "In[337]:=",ExpressionUUID->"028b0534-2c4c-4cf2-905d-4552f7ca54c2"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "2.605"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.9940740824169683`*^9, 3.9940740841708183`*^9}}, + CellLabel-> + "In[338]:=",ExpressionUUID->"85518522-1b80-432e-a966-1cf53b275711"], + +Cell[BoxData["2.605`"], "Output", + CellChangeTimes->{{3.994074197269746*^9, 3.994074214649177*^9}, { + 3.994074250142523*^9, 3.994074270141824*^9}}, + CellLabel-> + "Out[338]=",ExpressionUUID->"c5465443-2cda-4f7f-875b-ee3debb90888"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel-> + "In[339]:=",ExpressionUUID->"cc4b9fe1-a96b-491e-b02e-437a97b451dc"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.115"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, {3.994074087466568*^9, 3.9940740892428827`*^9}}, + CellLabel-> + "In[340]:=",ExpressionUUID->"2761b0bd-c8fe-43b1-8339-b663fa070bea"], + +Cell[BoxData["1.115`"], "Output", + CellChangeTimes->{{3.9940741972942533`*^9, 3.9940742146616087`*^9}, { + 3.994074250166238*^9, 3.9940742701540823`*^9}}, + CellLabel-> + "Out[340]=",ExpressionUUID->"b077b6db-214d-44be-a4f1-66b324d689e7"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel-> + "In[341]:=",ExpressionUUID->"55690335-bd9f-438d-a21e-b3c436e73a36"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.375"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, {3.994074092127721*^9, + 3.994074094282755*^9}}, + CellLabel-> + "In[342]:=",ExpressionUUID->"6cb5e4b9-f971-48f9-8193-9d4d80826f60"], + +Cell[BoxData["1.375`"], "Output", + CellChangeTimes->{{3.9940741973176317`*^9, 3.9940742146740303`*^9}, { + 3.994074250185948*^9, 3.9940742701663027`*^9}}, + CellLabel-> + "Out[342]=",ExpressionUUID->"91182982-aab4-4f88-bafb-142295944784"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel-> + "In[343]:=",ExpressionUUID->"0aea4f91-16f1-4379-a384-c8f1d75b1b6a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.545"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.994074098253368*^9, + 3.994074099547431*^9}}, + CellLabel-> + "In[344]:=",ExpressionUUID->"890b4fc3-cf88-4785-8657-54e7da4c1174"], + +Cell[BoxData["0.545`"], "Output", + CellChangeTimes->{{3.9940741973401327`*^9, 3.994074214686512*^9}, { + 3.994074250207786*^9, 3.994074270178926*^9}}, + CellLabel-> + "Out[344]=",ExpressionUUID->"dc4cd8fc-4e63-43a6-aa6f-66c7d88b4769"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel-> + "In[345]:=",ExpressionUUID->"e0b260f2-8d3f-43a5-8613-1e9fcf0a277c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "1.35"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.994074102320486*^9, + 3.9940741031259613`*^9}}, + CellLabel-> + "In[346]:=",ExpressionUUID->"55c819a6-052f-42dc-b827-ee064f89cfb9"], + +Cell[BoxData["1.35`"], "Output", + CellChangeTimes->{{3.994074197360721*^9, 3.994074214698968*^9}, { + 3.9940742502296133`*^9, 3.994074270190978*^9}}, + CellLabel-> + "Out[346]=",ExpressionUUID->"38998a46-4472-476c-b152-eb30354e583b"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel-> + "In[347]:=",ExpressionUUID->"2f642cd5-77a3-49e8-be27-8d513a09080a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "0.655"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, {3.994074105268124*^9, 3.994074106561956*^9}}, + CellLabel-> + "In[348]:=",ExpressionUUID->"4669ad9d-ec53-4c97-9513-e1af6420e80e"], + +Cell[BoxData["0.655`"], "Output", + CellChangeTimes->{{3.994074197383122*^9, 3.994074214711643*^9}, { + 3.994074250250944*^9, 3.994074270203269*^9}}, + CellLabel-> + "Out[348]=",ExpressionUUID->"87a6042c-1df3-42c3-b80f-bd1eee62fc2f"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel-> + "In[349]:=",ExpressionUUID->"be32d0fb-a27a-438c-a76f-2201d8c0fbac"], + +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[350]:=",ExpressionUUID->"0ccb87c5-597e-48f2-8a09-eab3df7ef3f1"], + +Cell[BoxData["0.1542863605960474`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, {3.994074197462419*^9, 3.9940742147508163`*^9}, { + 3.994074250298726*^9, 3.994074270240198*^9}}, + CellLabel-> + "Out[350]=",ExpressionUUID->"9f4dee7c-b3b0-40ee-a29b-041a2e275078"] +}, 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[351]:=",ExpressionUUID->"ef40558d-9877-413e-ad39-31919e60aa22"], + +Cell[BoxData["6.986649521084862`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, {3.994074197551347*^9, 3.994074214777306*^9}, { + 3.9940742503242893`*^9, 3.994074270266127*^9}}, + CellLabel-> + "Out[351]=",ExpressionUUID->"d9512901-9110-4a08-834b-e31a77481e83"] +}, 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[352]:=",ExpressionUUID->"ad8b4a8d-aa5a-47cb-9231-3882aa3aa636"], + +Cell[BoxData[ + RowBox[{"-", "15.225784715275067`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, {3.994074197626877*^9, 3.994074214803336*^9}, { + 3.994074250347639*^9, 3.9940742702914057`*^9}}, + CellLabel-> + "Out[352]=",ExpressionUUID->"6376cc57-a6ec-48c2-9ea3-e9896c20d1fd"] +}, 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[353]:=",ExpressionUUID->"f6417cb4-7895-4e62-b55f-b938a0d2d12a"], + +Cell[BoxData[ + RowBox[{"-", "19.527743438945258`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, {3.994074197680339*^9, 3.9940742148337717`*^9}, { + 3.994074250376841*^9, 3.9940742703219957`*^9}}, + CellLabel-> + "Out[353]=",ExpressionUUID->"957d529d-ef4f-4bea-92fe-f59636cd901d"] +}, 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[354]:=",ExpressionUUID->"17b000e1-6a35-4a6c-ae53-b8c939e69c93"], + +Cell[BoxData[ + RowBox[{"-", "55.27021800638023`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, {3.9940741977668943`*^9, 3.9940742148649673`*^9}, { + 3.994074250406843*^9, 3.994074270352029*^9}}, + CellLabel-> + "Out[354]=",ExpressionUUID->"fa67b965-6ac0-445d-b326-8c89a66a42a9"] +}, 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[355]:=",ExpressionUUID->"fffad2cc-5fdd-4f36-9123-f758e64cf42d"], + +Cell[BoxData[ + RowBox[{"-", "141.4524755079782`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, {3.994074197832451*^9, 3.994074214909892*^9}, { + 3.994074250439662*^9, 3.994074270387487*^9}}, + CellLabel-> + "Out[355]=",ExpressionUUID->"60b1eb9b-8c32-4cca-8d6f-d4ac8f942bf9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel-> + "In[356]:=",ExpressionUUID->"95fe90eb-9c3b-42b7-b53c-7ec3fd3c9dc5"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, {3.994074197929666*^9, 3.994074214922945*^9}, { + 3.994074250452722*^9, 3.994074270403535*^9}}, + CellLabel-> + "Out[356]=",ExpressionUUID->"f84a4360-eaad-40da-97ef-0ba357d9630e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel-> + "In[357]:=",ExpressionUUID->"a374712d-25bb-4ed3-8dad-1eacd03e8b74"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, {3.994074197952071*^9, 3.994074214935376*^9}, { + 3.994074250464295*^9, 3.994074270413846*^9}}, + CellLabel-> + "Out[357]=",ExpressionUUID->"76a5733c-2c44-40f0-9ad2-abd82107af80"] +}, 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[358]:=",ExpressionUUID->"f9220ace-6a6a-4409-8c96-26d769144f34"], + +Cell[BoxData["111.55440139653717`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, {3.9940741979658833`*^9, 3.994074214947126*^9}, { + 3.99407425047659*^9, 3.994074270424139*^9}}, + CellLabel-> + "Out[358]=",ExpressionUUID->"ec2d7bfb-a523-4ac7-9513-614b1c4cc249"] +}, 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[359]:=",ExpressionUUID->"ea1c2514-c7ba-4fd2-b739-a8ed8b506983"], + +Cell[BoxData[ + RowBox[{"-", "95.43889051158258`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, {3.994074197994025*^9, 3.994074214959611*^9}, { + 3.994074250488699*^9, 3.994074270434445*^9}}, + CellLabel-> + "Out[359]=",ExpressionUUID->"9da40605-f57f-4ab0-8533-3883ab18cdd9"] +}, 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[360]:=",ExpressionUUID->"7fedfd99-5ba8-4e99-bf55-2415856ffce2"], + +Cell[BoxData["113.13286100443031`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, {3.994074198004314*^9, 3.994074214972053*^9}, { + 3.994074250500126*^9, 3.99407427044481*^9}}, + CellLabel-> + "Out[360]=",ExpressionUUID->"c050c737-e662-4f27-bf0e-107c1a1f8b18"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel-> + "In[361]:=",ExpressionUUID->"a9c445c1-eed1-48ab-a9df-f883e3c6dd49"], + +Cell[BoxData["0.4377300224639211`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, {3.994074198016279*^9, 3.994074214983481*^9}, { + 3.994074250511408*^9, 3.994074270455081*^9}}, + CellLabel-> + "Out[361]=",ExpressionUUID->"a7cd8413-3f9c-444e-8af4-1c0527655f38"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel-> + "In[362]:=",ExpressionUUID->"9fac5d2e-d0ad-417f-83ba-a1df7e4069ab"], + +Cell[BoxData[ + RowBox[{"-", "0.09062394423616692`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, {3.99407419803306*^9, 3.994074214997123*^9}, { + 3.994074250525971*^9, 3.994074270465309*^9}}, + CellLabel-> + "Out[362]=",ExpressionUUID->"45f5d4c4-0903-49ba-ab5a-1d97f15a0313"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel-> + "In[363]:=",ExpressionUUID->"4400a4ff-4a9c-4af6-b342-b122489ac5be"], + +Cell[BoxData[ + RowBox[{"-", "0.5469059277191528`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, {3.994074198060273*^9, 3.994074215008013*^9}, { + 3.994074250535656*^9, 3.994074270476778*^9}}, + CellLabel-> + "Out[363]=",ExpressionUUID->"a2ccd06d-586e-4d52-af8c-5dd770595030"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel-> + "In[364]:=",ExpressionUUID->"6be331a8-113b-4a43-97d5-7058a5132475"], + +Cell[BoxData["0.7058922703634168`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, {3.9940741980734253`*^9, 3.994074215018661*^9}, { + 3.994074250546678*^9, 3.9940742704879427`*^9}}, + CellLabel-> + "Out[364]=",ExpressionUUID->"fb009e1d-546a-4c59-813a-ef4408993780"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel-> + "In[365]:=",ExpressionUUID->"8b321167-e5bd-4895-930a-f1c4c2e27fe0"], + +Cell[BoxData["2.19751871461767`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, {3.994074198087656*^9, 3.9940742150302687`*^9}, { + 3.994074250550354*^9, 3.994074270499359*^9}}, + CellLabel-> + "Out[365]=",ExpressionUUID->"4eebef00-7095-403f-912c-0fb326e5e131"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel-> + "In[366]:=",ExpressionUUID->"780e69f3-32cb-477f-be6d-06854098aab7"], + +Cell[BoxData["1.4271003361718892`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, {3.994074198096857*^9, 3.994074215043764*^9}, { + 3.994074250564603*^9, 3.994074270511888*^9}}, + CellLabel-> + "Out[366]=",ExpressionUUID->"b394dcfe-94d4-4a0f-a227-01400baa41c7"] +}, 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[367]:=",ExpressionUUID->"ee2c157f-c2e4-4e6e-a76a-b6444c0b4980"], + +Cell[BoxData[ + RowBox[{"-", "33.18726375495992`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, {3.994074198107793*^9, 3.994074215058444*^9}, { + 3.994074250574132*^9, 3.99407427052425*^9}}, + CellLabel-> + "Out[367]=",ExpressionUUID->"b4455df1-1462-41b7-ab31-110a7ad06705"] +}, 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[368]:=",ExpressionUUID->"0d157823-9a51-4684-8434-84a3c4faa864"], + +Cell[BoxData[ + RowBox[{"-", "6.498883922853802`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, {3.994074198134163*^9, 3.994074215071083*^9}, { + 3.994074250583393*^9, 3.994074270535636*^9}}, + CellLabel-> + "Out[368]=",ExpressionUUID->"85cb3be1-0ccb-4107-9c3a-a5ac787672e1"] +}, 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[369]:=",ExpressionUUID->"7dea769f-37e3-4c1a-a621-9da816094e65"], + +Cell[BoxData["78.36713764157724`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, {3.99407419816089*^9, 3.994074215083827*^9}, { + 3.994074250592779*^9, 3.994074270550357*^9}}, + CellLabel-> + "Out[369]=",ExpressionUUID->"fa756504-b278-4356-a18c-99660bc53f6c"] +}, 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[370]:=",ExpressionUUID->"20d1ef7b-f49b-40d4-8f50-9611fcfa7243"], + +Cell[BoxData[ + RowBox[{"-", "95.43889051158258`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, {3.994074198173212*^9, 3.9940742151226263`*^9}, { + 3.9940742506018353`*^9, 3.99407427055612*^9}}, + CellLabel-> + "Out[370]=",ExpressionUUID->"ed55d506-0729-4a36-8914-2992e565f7a3"] +}, 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[371]:=",ExpressionUUID->"4f78fd37-fcc1-4fac-9190-460b93233bfb"], + +Cell[BoxData["106.6339770815765`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, {3.994074198185794*^9, 3.994074215135048*^9}, { + 3.994074250611326*^9, 3.994074270578539*^9}}, + CellLabel-> + "Out[371]=",ExpressionUUID->"dfda7e2b-ea7c-4936-8882-f8bccf88173b"] +}, 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[372]:=",ExpressionUUID->"e5221a03-e942-4167-90f2-a148298a34bf"], + +Cell[BoxData["51.145215962859936`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, {3.994074198196261*^9, 3.9940742151460247`*^9}, { + 3.994074250621415*^9, 3.99407427059237*^9}}, + CellLabel-> + "Out[372]=",ExpressionUUID->"98638f7d-9775-482d-976a-cc30f73a745a"] +}, 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[373]:=",ExpressionUUID->"55053f2f-a87c-49b6-b5f3-b1ad3a8687cd"], + +Cell[BoxData["674.8474263523988`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, {3.994074198207098*^9, 3.9940742151610737`*^9}, { + 3.99407425063161*^9, 3.9940742706025248`*^9}}, + CellLabel-> + "Out[373]=",ExpressionUUID->"7ddf38de-738b-4105-ab5d-7edef50340a0"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"f1", "=", "0.3983268181"}]], "Input", + CellChangeTimes->{3.9918505481678543`*^9, + 3.99423609080558*^9},ExpressionUUID->"83cccf0d-dccb-fb42-a058-5e950c758893"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991850549355442*^9, @@ -30,10 +4879,9 @@ Cell[BoxData[""], "Input", e7a6896afd10"], Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", - CellChangeTimes->{ - 3.991850550777445*^9},ExpressionUUID->"b70cfd2b-21a1-8344-9518-\ -5e27a96171a9"], + RowBox[{"f2", "=", "0.1140433738"}]], "Input", + CellChangeTimes->{3.991850550777445*^9, + 3.99423609529844*^9},ExpressionUUID->"b70cfd2b-21a1-8344-9518-5e27a96171a9"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918505524437046`*^9, @@ -1561,67 +6409,9 @@ MathPictureEnd 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"], + 1}},ImageRangeCache->{{{0., 359.}, {221., 0.}} -> {-19.402618477936908, \ +0.8923747627909967, 0.7099700316630947, \ +0.001262238128389079}},ExpressionUUID->"8a200671-82f1-364d-8dba-8342607ad7b7"], Cell[BoxData[ TagBox[ @@ -2020,68 +6810,106 @@ MathPictureEnd 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"], +eJzVXGmUFEUSbug5kEFuQRiRWxgYDmFmGJiBEVRuWFhwXcHHcx6HKCCzAquy +gLq8VZBBDmVRkFMRlCcCgoAil7sIrByK3Mdws3LfN+R2RFdFVZaRmd1t43N/ +TE9VVHzxfRmZlVUZVd3tsgf27tkve+Bz3bMrtHgxO6f3c90HVGje/8WAyZ/P +58t3IPCXVMEXE9gWPp/0MUbcFgfhI7AtxB1xED7C3+6P/+LFnt17xPPPPy9q +1KghqlWrJurUqSMGDhworl+77stAn1hx+NBhkZKSgn/gV6xYMV9+2PP5xVsj +3wIv9Mxv+Y8dMxZjVa9eHWPfuX3Hl2qMVdAdS6crDUP5Rc+ePUXJkiUtIcHP +hIQEcevmLcvDJIeLkeCOYZJixYkX27dtR58GDRqIevXqoe/wvw8XN2/cDChQ +64iVe2Pvnr1i0ReLxNUrV5E6ABfDhg0TTz31lK+JJXnL5i2ic+fOVlD4jBPL +li4TrVq1EpcvXUZMnz59xMgRI9MZSEwIVHaGDx08JOrWrSsWLlhoZdMv0tPT +KcP59fSpyjAJ7jD4p5NjJzlvf57YtXMXYS6cv4BJzsnJsZqllGLleZClCNSA +KtjL1OS1RYsWaHczVqpUictrQSa0nYATP58QqampYtrUaVbO/GLM24GT+NZt +KY8KurQQw8QzEmypN67fEJUrV3adGEo6T64CPSBWfLNCmasYywa9mZiYiMPa +HiyZmZli546duJemSZqbw/Y7e+YsjpLcUblWf5g5UhlsAsNhZ2XCuxNE69at +XZ1g5vDL6alVqxYOTFN6Tp44iR3jhPCLbt26ieVfLzemx83RwLJBZzVs2FCM +Hzc+bA43luNIs5TDbFWiRAnRrFkzGFD+EGmsDOVYw2zUW6PEvr37cIjBUH39 +tddF+/btufnMbggIAYFuht69e4v5n89XJitWT9fIgpw/dx7b+s3ybyi0ia4B +g43R09kj7NLFS2LEmyNgwg+5dZ78wfWmefPm+D8pKQldAz2oy9+pk6fYHgoI +N+ZPQZdhQTas34BXOfcpY6JLZ7B+PZ3dXVlZWXTmhUon5S948lpTnK9pBBOY +dcnRJE3myLIm4+LFi0Msml5N8e0B4cJRk93xG1u2AQMGiI9nfRzS5GVzaFKT +ZSXDyrbdzDirn1q2bCk2b9pMrYE5pEqVKmk6lExgt2/j9xvxsu3WffrU6V9c +nhSMqWGF4VP37LPPisWLFodCF6vOWBNrCMB4bNSokejUqZOYPm06tN9np+2r +ZV/h8L544SJeg+HGb3Tu6FQjlMtd8D6zbNmyGBZmG7jQdezYEWYhmpG0lKGE +kKnTLdwPW37AO6uDB3AJIbb9tE1UrVoV8CZqTw7hBjg5ORn+Aj0Hn35MgM1o +TzVrVq/BqzMkJd5K2Lix45AVLk39+vXDgd6A8Y8LkSvVUr5p4ya8HypTpgze +vMN9VSB2rIY2TQ+NCVFBikUx99O5onHjxniBgfwHJkurFTy9lVTVAq+WRQ9r +RpsKPxf8fxyvFLQGDq+Aj3w6K8bKD4ZCTNSEcGxOFOXWvb+W47ew/U7Vx7ht +8FcODPdoFSd4O/kx2nqcIXqUsT3G2HCWKQamxnebqj58FgJTjCoKT48OLeGj +IOw+wx5vBh8FYLe367ifjuNUHg+7L/Cnns/2xKk+DvYHGDxx0oqF/ZcNnnXJ +c4jbM8btSVKT4QMPvWZ2rk6Rh/PONgA2HqLIb5idK5PzSJdzLB2vQAnOZY8/ +SMffdpPFege/k6VEYhwbIqIMcbwTIqI0ISaoUyCNrBKkaiLfy7CXn7HhZ1EK +NikCdGFSOzkCdCFCTzGgndYmEGZayJiCtDtDjfGrVMYR48wI0LHE/ZEB7eiN +IcZZIWOc3dkujF81nd2ho3NCcb9N0T9VK+KAtwg41wBEp5u09ZnaPZaxXSPg +vPCAVwn4eXjAKwScbwCik+OuubVy3C/T1kK1exxjO0/AReEBzxFwsQGITo77 +l6G4n6WtJWr3eMZ2ioBLwwOeJOAy7wjn3H8m968NPOjkuC9XuxdgbMcZm4aR +C3GMsYWp4ijJX2EAopPjvjIU9yO0tUrtfg9jO0jA1eEBDxBwjQGITo77t6G4 +59HWv4LuumdowbkiBlfWGRkZUJ2A52n2IhHKX7B4rF27Ni7CT/x8gi4eR48c +RQWBYz77WRksKIcMGaI8bQsytn2MzWpocAirHsCQeCjRwBM2iLDuu3V21fHY +0WO4SgahEGb2x7NhLW9P/IEIuMa+dPESXfSXLlkatv69jM3KfDBX9kMRYrEe +ilg5DtpArF1Rs21vvvEmdhrsuat28mODOPH+e+9j8RcqP8C3Y/sOKEVxEwfX +gD00YNaSbNMTC3tRDE2zKlwkERL43sT3rM4J2j6c+SH2xZHDR9hTwrnpcdR8 +R2pMTwdsNTVr1hTnzp6T1EydMpW61E7snNlz0BeGM04EeEPK5WYnqVlHavL2 +62vttpry5cvDA11JDTDn5Nhl+KDtg8kfiKZNm2KuuT7jlr47SNd60mWqYdu6 +oB+4LA0dOhT3bA1Q91ry5RLlycDp2k66NhjHkj3cbV2uaqk0lmB4u3WNzh1N +VVqlLtTgqPmPdEJaTNIJCTMf7NnFDHjCAmU378m3e9duyQYlc+thDdn69+8v +ZkyfEYLCbbT1vTTlKaqevsJWzOPHjuMItiunsz6aJdq1a2c/ic/OzhZdu3bF +EwcOQzfC3Hzm9Bl2iHE1rq2MzUqjfUXhaohFrGPwXBRGGqiEfAekUE0XRgT0 +IJwhFStWFG3atIHRwF37OWU/UtI2BvVwF0Sn2OO4bwrF/Qfa2qx250pemxmb +hpELsYm4t4QH3CjL1wBdiZCPahgLq4aCk9/QgRsIuNUFRB+lOzcANIzOBIRb +P4Xivl4+J3n3IoxtLQG3RwD02EzczmUat3ao3Ysytm8JuDMCIHcJCj3EGuLe +ZQA6d8a4tVvtXoyxrWJsGkYuxErGFqaKFSR/rwHorGtwa5/avThjW87Y3Ix4 +hAN+TYz7w2P8ioB5BqBrfSof1TCWYGxLKdiBCIAem0Y0F2IJcWuegZUgJ8f9 +kNq9JGNbzNg0jFyIRcR9OAKgx2aS79RsnDU0734fY1tAwKMRAD22MLnnE/cx +A9BV/2LqEe4TrBTjNI9CHFfzKIEem0ZqKeLhgCZup3rpFIp499KMbS5j+294 +IT4l7hMGoKsuKx81iXYqwbh1Uu1+P2ObTcBTEQA9NhO3UxLHrdNB9ygXcOxj +8NoUvDNdtGhR9Bk8eDC7OPAo8xy1snJXSjX2gqBDhw7iQF5w9ucUlmFsH5Hq +M5bCaBdj4twVEfxbtXIVvGqFr8sGIEWKFMG3N1566aWQZX9Iss+S7MiLMfHu +Ygz+wcIfOvvqlauUgpDS63oqJB910hutMo2dXqjQWUtw/LN0OhUbZ2Q6aTtH +cvKiVKex5Vy5fAWbB+9feuV4clKWsc1gbE4fR6t4Y39DYeI/J2IJwyWUra1z +SqdTMs8bx2C4RRxbH0wOaWlp+P6rUZ/raah81OlssESjrBNjfUJBBd67NXUy +SnMSdkGaDSOs4sRZGuCNzSZNmuCfQkMiY5vK2KyOjLRwY88KXyz8AsOqeouT +M4WSczEogrv6JZITp/5CKECH55La/QHGNpmxaaRyISYR92UDEJ04RpNo11sP +8lENYznGNpGCXY0A6LFdcYXAI+UousNzTc3zIGObwNg0UrkQ7xL39QiAHptJ +PvI4jDfU7uUZ23jGphHNhRhH3DcjAHpsJvnI4zDeUrtXYGxjGJtGNBfibeK+ +HQHQYzPJRx6H8Y7avSJjy2VsGtFciFHELbynWkU65HHKZ6BwMJ6jQg2sxNhG +yLT5I0BzAjTyKxGjh9uvxlRmbG+ouDVt4OL8Q1YRY0Cjp5Jb04YqjG24zB0b +AZpToWlDFWL0cMeFjOEYNcqrMrbXZO74CNCcCncb8HBV4vEwFvB6PsTEHKbi +0ejl4gyVue8xoNFTyV1Aja7G2P4mcxeMAM2p0LSBizNYVpFgQKOnklvThuqM +7WWZu1AEaE6Fpg3VidHDfa8ak8TY/qrittoQ5ZKS/Z0W+Ipw27ZtMRys7lat +XMWuEzjJg+QGB9dId/MVoHiMBM2AdRocztufh9kI/GcLIUkkUZlfq598d/fN +H9s25YMpYtCgQZJt/Ljx4tVXX7Uy8EuZNRjbADn3RagR0XoPyLbBGIOXrNy2 +BfMXiO7duzuCsbbDDZEBqqwXJsHRrUH5cYTDCyduG9RackflcoIxh55sFiVx +ML6iV5GKx7eGYLzC1/ygKgXfP4TvKsL357jxW0OWyGXS6fpoVaTs8hl08eRJ +k/HlGCg7d+nSBV6c4aaHmowtR05qMeMQDbcyZdtmzphJw5F7xakmCfmLKolO +j4M5mm8bXbt6DSffQOJYccmM7QU5c8Utcb+qRGXPuzAYoDPhdzYC2rhX+5SS +uMxZ3Rppncq+RsF8D+8/wVwLf4Gxxp4QyZQaT5KCz4Lp1tn1nWt2TuUuy31V +bbQ6gMNwtj6yspIGNHoquUuo0bUZ23OqOBoVXJzechtKGdDoqeS+T42uw9h6 +ydylXWh0VGI47lIsGqN7eO5Xq6zL2HqoGEuHF6e7rKKMAY2eSm5NGx5mbNky +d9nw0M/I6EQDGj2zVco13PUYWzeZ+4EI0JwKTRvqEaOHu5waU5+xPa3i1rSh +PjE+LXM/qMakMLYuKm5NG1KIsYvMXd57ZqUy6D+rGDXKuThPquKUN8RBvU/K +yiuqMWmM7QkVdwVDHGR8QuaupMY0YGydVNyaNnBx/iirqGxAo6eSW9OGdMbW +QeauYkCjZ0cVt0Z5Q8bWXuauakCjpwfzUMgYTq+GsRFjayNzVzOg0bOtitut +HA9nMJ6tZMbqasYM8vRgktSYTMbWQqVXw51JjC1k7hpqTGPG9piMrmlAoyf3 +rX8TdxPG1kzmTjag0ZP7dQGT8izG9ogqjkZFFql4RFZeW43heLhc4GcwwN0q +bUHVAlZksNqBN6cmvT+JLW05jWsiNzN4n3l3C1rr163Hw9ZP9eHbFfA1nsB6 +nF3/NCWJmbLYupbY36aM1atXL/HJnE8kG/jA7+0F260Y/soJFPcfpkZEu4z1 +yiuvYOrdNvgRJMBrBaM4bqb2ZD26Zax4sfXHrViQtZfxgIERHljOBwcGlrC4 +nDoXcNyvRxLz9kenmGW/EQSVCL/fjwMrPj4eapjsCeb8tolHWn2SFt3SVTwW +R8AXuhy2V69ajfPA/n372dOK+8GWFFlsinFsRlq/ggb07dtXskGd2G4UNzad +6xh3t+zJLpijWdN6Z/w7+KqV2zbvs3miR48eSsGPk2BuUSRlOCpfqIPXI+Gn +BOE3ZeEwjDC4gATOR3YENGdszoIb94Nrg4hLXfZ1ae2/1+ILYvBjh3CGB+ZR +9rRpTuweHcH7e/by69wc1ZYx6WpMS/JMljEN1ZhWjC1JRjcyoNHTg8lQY1qT +ZzUZk6nGODfTVWVMYzWmLXlWljFN1Jh25FlRxmS5MAhxlhblZc9H1NH/QJ7l +ZExTNcZZciXKmGZqTEfyvJ/04pFH1ZhOhLlP5nlcjelM0YvJPM3VmD+RJ06u +MYRpqcZg6QF/CimGtvBIGzWmK3wWIM/2ak/8/J38TJ7pOG4bfgvel+9/Sn8S +OQ==\ +\>", "ImageResolution" -> 96., "LightDark" -> \ +"Light"],ImageRangeCache->{{{0., 359.}, {221., 0.}} -> {-3.233775858153751, \ +-0.007969775184554129, 0.11832856225129938, \ +0.0005589111396958131}},ExpressionUUID->"06204099-db57-8e4e-bcc4-\ +fa1ae37c0063"], Cell[BoxData[ TagBox[ @@ -2094,9 +6922,72 @@ Cell[BoxData[ Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", - RowBox[{"{", "}"}], "]"}]}]], "Input", - CellChangeTimes->{{3.991799458254999*^9, - 3.9917994623413925`*^9}},ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-\ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.005263"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.01561"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.025439"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.034428"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.042324"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.048911"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.054071"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.057726"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.059905"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.060662"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.060144"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.058493"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.055924"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.052616"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.048792"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.044623"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.040302"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.035956"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.031726"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.027689"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.023931"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.020479"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.017372"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.014605"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.012182"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.010077"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.008278"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.006747"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.005464"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.004393"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.003512"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.994236201388714*^9},ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-\ 5e6c7b4b5678"], Cell[BoxData[ @@ -2511,71 +7402,10 @@ MathPictureEnd 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"], + 1}},ImageRangeCache->{{{0., 359.}, {221., 0.}} -> {-3.233775858153751, \ +-0.0043827503402644324, 0.11832856225129938, \ +0.0003073572253865838}},ExpressionUUID->"899e43aa-c372-6647-a3e4-\ +4952f308ab17"], Cell[BoxData[ TagBox[ @@ -7548,12 +12378,18 @@ Cell[BoxData[ 1ca469b254bd"], Cell[BoxData["0.07371813161570438`"], "Output",ExpressionUUID->"d15888a7-bf5a-b54e-a332-976645c927ce"] -}, Open ]] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input", + CellChangeTimes->{{3.994236307856925*^9, + 3.9942363154318037`*^9}},ExpressionUUID->"a3233522-e327-40d5-8d4e-\ +9bd748a0a988"] }, -WindowSize->{718.5, 729.75}, -WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +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 +12404,609 @@ 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, 354, 7, 66, "Input",ExpressionUUID->"3943730d-9530-43b8-bf39-19784136256b"], +Cell[933, 31, 260, 5, 41, "Output",ExpressionUUID->"499a6fc7-b1e5-48d6-b79b-db1dd4a5b79b"] }, 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[1230, 41, 253, 5, 36, "Input",ExpressionUUID->"daae7706-fca6-4e7a-9954-4fe79beca5c2"], +Cell[1486, 48, 260, 5, 41, "Output",ExpressionUUID->"c7716299-8dfe-4fe4-85d3-b5caadb02ba2"] }, 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[1783, 58, 226, 5, 36, "Input",ExpressionUUID->"d74a31de-003c-48e3-bd39-989b5d6e0b39"], +Cell[2012, 65, 260, 5, 41, "Output",ExpressionUUID->"801e168a-e06e-491d-98b0-151f04a299ab"] }, 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[2309, 75, 180, 4, 36, "Input",ExpressionUUID->"1c44b317-519b-49c8-8702-e2d9d929601d"], +Cell[2492, 81, 260, 5, 41, "Output",ExpressionUUID->"da50ec22-f880-4086-95ca-25b5f93bce82"] }, 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[2789, 91, 262, 8, 54, "Input",ExpressionUUID->"3f66c609-61b6-4f6f-ba97-9d8451a7ad83"], +Cell[3054, 101, 273, 5, 41, "Output",ExpressionUUID->"c03047fc-49e4-4b00-b56f-5501fb6aa2ca"] }, 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[3364, 111, 136, 3, 36, "Input",ExpressionUUID->"ff44fa1f-89eb-4ba4-b609-646ee4da5423"], +Cell[3503, 116, 259, 5, 41, "Output",ExpressionUUID->"9edf3971-4c57-4fa1-b8df-861f940ee735"] }, 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, 126, 281, 7, 36, "Input",ExpressionUUID->"94581f7f-892d-4c5a-bc76-6a965728ccb3"], +Cell[4083, 135, 273, 5, 41, "Output",ExpressionUUID->"4312da58-abfb-4481-90d4-32ab1f884412"] }, 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[4393, 145, 262, 8, 36, "Input",ExpressionUUID->"64734b62-ad52-4430-8a27-dca2156ea9db"], +Cell[4658, 155, 273, 5, 41, "Output",ExpressionUUID->"bd1056d7-4cba-43b2-bde1-b8d57dfd7dc5"] }, 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[4968, 165, 209, 4, 36, "Input",ExpressionUUID->"6b321ac0-44f1-4881-9cd1-4a4b52e97f45"], +Cell[5180, 171, 237, 4, 41, "Output",ExpressionUUID->"6af075ab-3e00-4497-bdd8-ab4377b90b38"] }, 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[5454, 180, 207, 4, 36, "Input",ExpressionUUID->"44eaa458-26da-4c2c-9c5b-de663afd33a3"], +Cell[5664, 186, 238, 4, 62, "Output",ExpressionUUID->"42257ab3-e7f0-4b2d-accc-c7d4960d77bd"] }, 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[5939, 195, 133, 3, 55, "Input",ExpressionUUID->"08e8b451-72ed-4e4f-816e-862c4275c518"], +Cell[6075, 200, 256, 5, 62, "Output",ExpressionUUID->"08042680-84e3-4953-9097-8b4b2329c8a9"] }, 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[6368, 210, 133, 3, 55, "Input",ExpressionUUID->"ebc894a3-b30c-4783-b098-44e1acfb02e2"], +Cell[6504, 215, 258, 5, 62, "Output",ExpressionUUID->"197384c7-5cbd-4da5-af81-56243f0ddbb4"] }, 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[6799, 225, 561, 20, 148, "Input",ExpressionUUID->"94884653-9926-43f0-a4e4-c8a218730d65"], +Cell[7363, 247, 270, 5, 62, "Output",ExpressionUUID->"b0418ee4-11ae-4236-8758-d1177d1d5715"] }, 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[7670, 257, 561, 20, 148, "Input",ExpressionUUID->"6175cef8-34fe-4c75-a9f1-e60f3bbaacfe"], +Cell[8234, 279, 271, 5, 62, "Output",ExpressionUUID->"ae4c8c55-8eef-4563-96cb-21d8ba0414f4"] }, 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[8542, 289, 1592, 51, 211, "Input",ExpressionUUID->"bb0f74ec-aec0-425a-9079-bf958f539559"], +Cell[10137, 342, 272, 5, 62, "Output",ExpressionUUID->"4e9cf17c-c086-4207-93a2-1c9be79bec5f"] }, 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[10446, 352, 1426, 47, 211, "Input",ExpressionUUID->"c33dcea4-9866-4fe5-a912-90d5431107fd"], +Cell[11875, 401, 290, 6, 62, "Output",ExpressionUUID->"91e07067-ff11-4791-90c4-12c7b6c0218a"] }, 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[12202, 412, 1426, 47, 211, "Input",ExpressionUUID->"9522d922-0771-4bfc-b71d-52614048d630"], +Cell[13631, 461, 291, 6, 62, "Output",ExpressionUUID->"4b5ccc44-874a-4062-a2ee-585fdf588efa"] }, 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[13959, 472, 1592, 51, 211, "Input",ExpressionUUID->"e032899b-6b0b-4998-81de-c470b48600d6"], +Cell[15554, 525, 269, 5, 62, "Output",ExpressionUUID->"8e3fce66-1bea-4515-a6be-08ab330f5a8e"] }, 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[15860, 535, 135, 3, 55, "Input",ExpressionUUID->"216606c7-6dad-4aa1-a3b7-4830abc566c0"], +Cell[15998, 540, 258, 5, 62, "Output",ExpressionUUID->"620aadf4-3b24-41bd-90a9-2a851d458f72"] }, 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[16293, 550, 137, 3, 55, "Input",ExpressionUUID->"57a3072b-f902-4e31-89a5-b16ef3c9230d"], +Cell[16433, 555, 255, 5, 62, "Output",ExpressionUUID->"9cec912c-4b48-4158-97f3-06ff6968be02"] }, 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[16725, 565, 138, 3, 55, "Input",ExpressionUUID->"1ceb69c9-9fc5-40b6-ab8e-c8e59d88e8de"], +Cell[16866, 570, 262, 5, 62, "Output",ExpressionUUID->"7bc279d0-7531-4399-a25c-56f639440104"] }, 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[17165, 580, 223, 5, 55, "Input",ExpressionUUID->"9f3f8bb1-d0e8-48d7-a0d2-d236e125b8df"], +Cell[17391, 587, 272, 6, 62, "Output",ExpressionUUID->"9beed3d8-5c86-4f06-a197-c30484e3cd35"] }, 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[17700, 598, 138, 3, 55, "Input",ExpressionUUID->"7852062e-9d9c-4d72-b668-53029692efc7"], +Cell[17841, 603, 260, 5, 62, "Output",ExpressionUUID->"b71a3c77-d52d-412d-a545-2e790ba7d27a"] }, 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[18138, 613, 328, 6, 55, "Input",ExpressionUUID->"4238e547-04b4-4cc2-a364-96e360fd1095"], +Cell[18469, 621, 253, 5, 62, "Output",ExpressionUUID->"c22508b0-e128-4d8f-a35a-f1274e6790ab"] }, 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[18759, 631, 299, 6, 55, "Input",ExpressionUUID->"40cfdd4f-d522-4cf4-bb3f-ddf87ddd0049"], +Cell[19061, 639, 252, 5, 62, "Output",ExpressionUUID->"b5c3d90a-a29c-4803-9477-07294e73f107"] }, 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[19350, 649, 223, 5, 55, "Input",ExpressionUUID->"d5cc82e8-3bb4-461d-8af2-e917834817a0"], +Cell[19576, 656, 257, 5, 62, "Output",ExpressionUUID->"f0373de4-4109-4341-b94a-96998235c1fa"] }, 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[19870, 666, 354, 11, 81, "Input",ExpressionUUID->"1521e7a7-457f-4c43-92d7-83c8a29470ee"], +Cell[20227, 679, 275, 5, 62, "Output",ExpressionUUID->"3801847b-4dc3-4ee5-a7d6-c282eef96ffc"] }, 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[20539, 689, 354, 11, 81, "Input",ExpressionUUID->"bb70a224-c72c-4ce1-a572-c1a6982f5e64"], +Cell[20896, 702, 288, 6, 62, "Output",ExpressionUUID->"102a79da-360d-4383-af2e-636189646b64"] }, 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[21221, 713, 998, 27, 154, "Input",ExpressionUUID->"d228318d-7be6-4ab9-995e-a12ebb7925bf"], +Cell[22222, 742, 276, 5, 62, "Output",ExpressionUUID->"9eecf493-829a-43f0-8011-7f8ff37b9cf1"] }, 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[22535, 752, 203, 4, 55, "Input",ExpressionUUID->"1c644334-4034-4175-b519-5173e387509e"], +Cell[22741, 758, 258, 5, 62, "Output",ExpressionUUID->"da8ac628-9b2b-46f0-a295-be6729651dc8"] }, 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[23036, 768, 331, 6, 55, "Input",ExpressionUUID->"6ed480b8-b627-490d-a1bd-b6b2cc1dc50d"], +Cell[23370, 776, 235, 4, 62, "Output",ExpressionUUID->"13e60e75-e971-4310-8d1d-659942245f47"] +}, Open ]], +Cell[23620, 783, 177, 3, 55, "Input",ExpressionUUID->"82ed6860-a721-4fa4-bc9a-b8b91ebd31e8"], +Cell[CellGroupData[{ +Cell[23822, 790, 333, 6, 55, "Input",ExpressionUUID->"c9346430-f3f7-4030-ae91-c2d23857a67f"], +Cell[24158, 798, 232, 4, 62, "Output",ExpressionUUID->"9f7fbcdf-43fd-411d-9e20-64c878a946b1"] +}, Open ]], +Cell[24405, 805, 177, 3, 55, "Input",ExpressionUUID->"028b0534-2c4c-4cf2-905d-4552f7ca54c2"], +Cell[CellGroupData[{ +Cell[24607, 812, 336, 6, 55, "Input",ExpressionUUID->"85518522-1b80-432e-a966-1cf53b275711"], +Cell[24946, 820, 231, 4, 62, "Output",ExpressionUUID->"c5465443-2cda-4f7f-875b-ee3debb90888"] +}, Open ]], +Cell[25192, 827, 177, 3, 55, "Input",ExpressionUUID->"cc4b9fe1-a96b-491e-b02e-437a97b451dc"], +Cell[CellGroupData[{ +Cell[25394, 834, 358, 6, 55, "Input",ExpressionUUID->"2761b0bd-c8fe-43b1-8339-b663fa070bea"], +Cell[25755, 842, 237, 4, 62, "Output",ExpressionUUID->"b077b6db-214d-44be-a4f1-66b324d689e7"] +}, Open ]], +Cell[26007, 849, 175, 3, 55, "Input",ExpressionUUID->"55690335-bd9f-438d-a21e-b3c436e73a36"], +Cell[CellGroupData[{ +Cell[26207, 856, 303, 6, 55, "Input",ExpressionUUID->"6cb5e4b9-f971-48f9-8193-9d4d80826f60"], +Cell[26513, 864, 237, 4, 62, "Output",ExpressionUUID->"91182982-aab4-4f88-bafb-142295944784"] +}, Open ]], +Cell[26765, 871, 175, 3, 55, "Input",ExpressionUUID->"0aea4f91-16f1-4379-a384-c8f1d75b1b6a"], +Cell[CellGroupData[{ +Cell[26965, 878, 307, 6, 55, "Input",ExpressionUUID->"890b4fc3-cf88-4785-8657-54e7da4c1174"], +Cell[27275, 886, 233, 4, 62, "Output",ExpressionUUID->"dc4cd8fc-4e63-43a6-aa6f-66c7d88b4769"] +}, Open ]], +Cell[27523, 893, 177, 3, 55, "Input",ExpressionUUID->"e0b260f2-8d3f-43a5-8613-1e9fcf0a277c"], +Cell[CellGroupData[{ +Cell[27725, 900, 311, 6, 55, "Input",ExpressionUUID->"55c819a6-052f-42dc-b827-ee064f89cfb9"], +Cell[28039, 908, 232, 4, 62, "Output",ExpressionUUID->"38998a46-4472-476c-b152-eb30354e583b"] +}, Open ]], +Cell[28286, 915, 176, 3, 55, "Input",ExpressionUUID->"2f642cd5-77a3-49e8-be27-8d513a09080a"], +Cell[CellGroupData[{ +Cell[28487, 922, 279, 5, 55, "Input",ExpressionUUID->"4669ad9d-ec53-4c97-9513-e1af6420e80e"], +Cell[28769, 929, 231, 4, 62, "Output",ExpressionUUID->"87a6042c-1df3-42c3-b80f-bd1eee62fc2f"] +}, Open ]], +Cell[29015, 936, 179, 3, 55, "Input",ExpressionUUID->"be32d0fb-a27a-438c-a76f-2201d8c0fbac"], +Cell[CellGroupData[{ +Cell[29219, 943, 19813, 486, 3214, "Input",ExpressionUUID->"0ccb87c5-597e-48f2-8a09-eab3df7ef3f1"], +Cell[49035, 1431, 272, 5, 62, "Output",ExpressionUUID->"9f4dee7c-b3b0-40ee-a29b-041a2e275078"] }, 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[49344, 1441, 19752, 490, 3214, "Input",ExpressionUUID->"ef40558d-9877-413e-ad39-31919e60aa22"], +Cell[69099, 1933, 271, 5, 62, "Output",ExpressionUUID->"d9512901-9110-4a08-834b-e31a77481e83"] }, 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[69407, 1943, 19752, 484, 3213, "Input",ExpressionUUID->"ad8b4a8d-aa5a-47cb-9231-3882aa3aa636"], +Cell[89162, 2429, 289, 6, 62, "Output",ExpressionUUID->"6376cc57-a6ec-48c2-9ea3-e9896c20d1fd"] }, 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[89488, 2440, 22538, 554, 3639, "Input",ExpressionUUID->"f6417cb4-7895-4e62-b55f-b938a0d2d12a"], +Cell[112029, 2996, 291, 6, 62, "Output",ExpressionUUID->"957d529d-ef4f-4bea-92fe-f59636cd901d"] }, 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[112357, 3007, 22539, 554, 3639, "Input",ExpressionUUID->"17b000e1-6a35-4a6c-ae53-b8c939e69c93"], +Cell[134899, 3563, 292, 6, 62, "Output",ExpressionUUID->"fa67b965-6ac0-445d-b326-8c89a66a42a9"] }, 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[135228, 3574, 25495, 627, 4065, "Input",ExpressionUUID->"fffad2cc-5fdd-4f36-9123-f758e64cf42d"], +Cell[160726, 4203, 286, 6, 62, "Output",ExpressionUUID->"60b1eb9b-8c32-4cca-8d6f-d4ac8f942bf9"] }, 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[161049, 4214, 134, 3, 55, "Input",ExpressionUUID->"95fe90eb-9c3b-42b7-b53c-7ec3fd3c9dc5"], +Cell[161186, 4219, 254, 5, 62, "Output",ExpressionUUID->"f84a4360-eaad-40da-97ef-0ba357d9630e"] }, 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[161477, 4229, 134, 3, 55, "Input",ExpressionUUID->"a374712d-25bb-4ed3-8dad-1eacd03e8b74"], +Cell[161614, 4234, 254, 5, 62, "Output",ExpressionUUID->"76a5733c-2c44-40f0-9ad2-abd82107af80"] }, 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[161905, 4244, 1148, 40, 211, "Input",ExpressionUUID->"f9220ace-6a6a-4409-8c96-26d769144f34"], +Cell[163056, 4286, 271, 5, 62, "Output",ExpressionUUID->"ec2d7bfb-a523-4ac7-9513-614b1c4cc249"] }, 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[163364, 4296, 1045, 36, 211, "Input",ExpressionUUID->"ea1c2514-c7ba-4fd2-b739-a8ed8b506983"], +Cell[164412, 4334, 286, 6, 62, "Output",ExpressionUUID->"9da40605-f57f-4ab0-8533-3883ab18cdd9"] }, 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[164735, 4345, 1148, 40, 211, "Input",ExpressionUUID->"7fedfd99-5ba8-4e99-bf55-2415856ffce2"], +Cell[165886, 4387, 271, 5, 62, "Output",ExpressionUUID->"c050c737-e662-4f27-bf0e-107c1a1f8b18"] }, 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[166194, 4397, 112, 2, 55, "Input",ExpressionUUID->"a9c445c1-eed1-48ab-a9df-f883e3c6dd49"], +Cell[166309, 4401, 272, 5, 62, "Output",ExpressionUUID->"a7cd8413-3f9c-444e-8af4-1c0527655f38"] }, 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[166618, 4411, 112, 2, 55, "Input",ExpressionUUID->"9fac5d2e-d0ad-417f-83ba-a1df7e4069ab"], +Cell[166733, 4415, 289, 6, 62, "Output",ExpressionUUID->"45f5d4c4-0903-49ba-ab5a-1d97f15a0313"] }, 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[167059, 4426, 112, 2, 55, "Input",ExpressionUUID->"4400a4ff-4a9c-4af6-b342-b122489ac5be"], +Cell[167174, 4430, 287, 6, 62, "Output",ExpressionUUID->"a2ccd06d-586e-4d52-af8c-5dd770595030"] }, 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[167498, 4441, 112, 2, 55, "Input",ExpressionUUID->"6be331a8-113b-4a43-97d5-7058a5132475"], +Cell[167613, 4445, 274, 5, 62, "Output",ExpressionUUID->"fb009e1d-546a-4c59-813a-ef4408993780"] }, 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[167924, 4455, 111, 2, 55, "Input",ExpressionUUID->"8b321167-e5bd-4895-930a-f1c4c2e27fe0"], +Cell[168038, 4459, 272, 5, 62, "Output",ExpressionUUID->"4eebef00-7095-403f-912c-0fb326e5e131"] }, 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[168347, 4469, 111, 2, 55, "Input",ExpressionUUID->"780e69f3-32cb-477f-be6d-06854098aab7"], +Cell[168461, 4473, 272, 5, 62, "Output",ExpressionUUID->"b394dcfe-94d4-4a0f-a227-01400baa41c7"] }, 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[168770, 4483, 501, 17, 105, "Input",ExpressionUUID->"ee2c157f-c2e4-4e6e-a76a-b6444c0b4980"], +Cell[169274, 4502, 287, 6, 62, "Output",ExpressionUUID->"b4455df1-1462-41b7-ab31-110a7ad06705"] }, 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[169598, 4513, 501, 17, 105, "Input",ExpressionUUID->"0d157823-9a51-4684-8434-84a3c4faa864"], +Cell[170102, 4532, 286, 6, 41, "Output",ExpressionUUID->"85cb3be1-0ccb-4107-9c3a-a5ac787672e1"] }, 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[170425, 4543, 1792, 61, 142, "Input",ExpressionUUID->"7dea769f-37e3-4c1a-a621-9da816094e65"], +Cell[172220, 4606, 270, 5, 41, "Output",ExpressionUUID->"fa756504-b278-4356-a18c-99660bc53f6c"] }, 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[172527, 4616, 1105, 37, 73, "Input",ExpressionUUID->"20d1ef7b-f49b-40d4-8f50-9611fcfa7243"], +Cell[173635, 4655, 291, 6, 41, "Output",ExpressionUUID->"ed55d506-0729-4a36-8914-2992e565f7a3"] }, 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[173963, 4666, 1822, 62, 144, "Input",ExpressionUUID->"4f78fd37-fcc1-4fac-9190-460b93233bfb"], +Cell[175788, 4730, 269, 5, 41, "Output",ExpressionUUID->"dfda7e2b-ea7c-4936-8882-f8bccf88173b"] }, 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[176094, 4740, 1635, 54, 101, "Input",ExpressionUUID->"e5221a03-e942-4167-90f2-a148298a34bf"], +Cell[177732, 4796, 273, 5, 41, "Output",ExpressionUUID->"98638f7d-9775-482d-976a-cc30f73a745a"] }, 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[178042, 4806, 1635, 54, 101, "Input",ExpressionUUID->"55053f2f-a87c-49b6-b5f3-b1ad3a8687cd"], +Cell[179680, 4862, 272, 5, 41, "Output",ExpressionUUID->"7ddf38de-738b-4105-ab5d-7edef50340a0"] +}, Open ]], +Cell[179967, 4870, 184, 3, 36, "Input",ExpressionUUID->"83cccf0d-dccb-fb42-a058-5e950c758893"], +Cell[180154, 4875, 152, 3, 36, "Input",ExpressionUUID->"7730e455-e5f4-194b-b761-e7a6896afd10"], +Cell[180309, 4880, 182, 3, 36, "Input",ExpressionUUID->"b70cfd2b-21a1-8344-9518-5e27a96171a9"], +Cell[180494, 4885, 154, 3, 36, "Input",ExpressionUUID->"86df0a71-aa65-aa41-b8f1-8c5c5be10fe8"], +Cell[CellGroupData[{ +Cell[180673, 4892, 1273, 41, 61, "Input",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"], +Cell[181949, 4935, 106, 0, 41, "Output",ExpressionUUID->"cbffa725-bd15-2049-b55f-318286f23572"] }, 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"] -}, Open ]], -Cell[208234, 7211, 138, 3, 70, "Input",ExpressionUUID->"4ad58a38-0776-5240-aa41-ba7c8ff64fb9"], -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[182092, 4940, 910, 31, 73, "Input",ExpressionUUID->"c16f367e-d189-2745-b3b8-a9b137c5e3b6"], +Cell[183005, 4973, 106, 0, 41, "Output",ExpressionUUID->"ccc498a0-28db-294f-9612-85d9a5c6b1f9"] }, 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[183148, 4978, 885, 30, 73, "Input",ExpressionUUID->"b7d001ae-480c-4b41-8df9-8010347227f7"], +Cell[184036, 5010, 106, 0, 41, "Output",ExpressionUUID->"0586a11a-38a6-a040-a172-aaeab8c90dd8"] }, 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[184179, 5015, 532, 18, 66, "Input",ExpressionUUID->"d15e5e59-9ad8-e247-a132-b43b2736212a"], +Cell[184714, 5035, 101, 0, 41, "Output",ExpressionUUID->"c25fd138-6ebd-9549-9de5-30353d068c14"] }, 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[184852, 5040, 625, 21, 66, "Input",ExpressionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"], +Cell[185480, 5063, 100, 0, 41, "Output",ExpressionUUID->"8c8a87e7-f604-4044-b4ce-b17ddc0907b3"] }, 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[185617, 5068, 144, 4, 71, "Input",ExpressionUUID->"906db7f6-73f3-8a4e-88a4-7c75445a4f32"], +Cell[185764, 5074, 101, 0, 41, "Output",ExpressionUUID->"fa0bea71-615d-2d4d-8b39-59994ce24952"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185902, 5079, 144, 4, 69, "Input",ExpressionUUID->"731b68b1-c44a-6c4a-a9f8-bc957ede9a68"], +Cell[186049, 5085, 100, 0, 41, "Output",ExpressionUUID->"d3e4fece-e329-2041-9645-50ae8ca1c91c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[186186, 5090, 155, 4, 55, "Input",ExpressionUUID->"71af6813-eb8f-4944-8d03-7bcd77a7b4b4"], +Cell[186344, 5096, 101, 0, 41, "Output",ExpressionUUID->"8db6732d-a570-734c-94eb-cb35afdbb155"] +}, Open ]], +Cell[CellGroupData[{ +Cell[186482, 5101, 155, 4, 55, "Input",ExpressionUUID->"28815b73-08dc-e64f-8823-2a55ad6b8ca8"], +Cell[186640, 5107, 101, 0, 41, "Output",ExpressionUUID->"06581e5e-cb29-0446-9bb7-b3bb2156a7c7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[186778, 5112, 6029, 184, 431, "Input",ExpressionUUID->"137e8d46-8eff-3c47-bf8f-1350d0b8a0bb"], +Cell[192810, 5298, 102, 0, 41, "Output",ExpressionUUID->"000a1d2e-b429-4a45-b9a2-ccba4bf718eb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192949, 5303, 342, 8, 53, "Input",ExpressionUUID->"65edd566-4493-2440-9c51-9fca28ce324b"], +Cell[193294, 5313, 342, 6, 26, "Message",ExpressionUUID->"b04cf5cc-6c74-f842-9fba-c737c46f5a7b"], +Cell[193639, 5321, 100, 0, 41, "Output",ExpressionUUID->"32922499-707a-964c-90f0-b2630d16ee29"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193776, 5326, 6096, 186, 431, "Input",ExpressionUUID->"d808e80b-1928-8046-afec-31463f4946cd"], +Cell[199875, 5514, 103, 0, 41, "Output",ExpressionUUID->"17720629-0c4f-744e-a447-06cd4a4f0034"] +}, Open ]], +Cell[CellGroupData[{ +Cell[200015, 5519, 342, 8, 53, "Input",ExpressionUUID->"56b1717f-bc75-4047-98f0-7a0dede3f8a9"], +Cell[200360, 5529, 342, 6, 26, "Message",ExpressionUUID->"6f900e99-9e38-fb4c-84fd-e99588ed1cc5"], +Cell[200705, 5537, 100, 0, 41, "Output",ExpressionUUID->"e5a93687-7c76-eb48-a79a-098cbe08792a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[200842, 5542, 2637, 87, 215, "Input",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-f74418e31aeb"], +Cell[203482, 5631, 101, 0, 41, "Output",ExpressionUUID->"a53e2e6d-ca02-5d40-9088-48aa754351ec"] +}, Open ]], +Cell[CellGroupData[{ +Cell[203620, 5636, 2577, 84, 215, "Input",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-91d5391478d5"], +Cell[206200, 5722, 102, 0, 41, "Output",ExpressionUUID->"5ca04a2b-633e-1547-b10d-b4f00d8b3fcb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[206339, 5727, 3686, 117, 316, "Input",ExpressionUUID->"bea639c9-f172-ef4e-9454-9d4e027f5fa2"], +Cell[210028, 5846, 102, 0, 41, "Output",ExpressionUUID->"af769b0f-0bd4-194f-bc02-90651fd30541"] +}, Open ]], +Cell[210145, 5849, 138, 3, 36, "Input",ExpressionUUID->"752e2dd5-bee6-2048-8697-fe84d79611fa"], +Cell[CellGroupData[{ +Cell[210308, 5856, 2054, 59, 116, "Input",ExpressionUUID->"f8b12d93-5bd9-8641-aa98-3d78ebb0f21b"], +Cell[212365, 5917, 342, 6, 26, "Message",ExpressionUUID->"4105bae1-ec8c-fc46-bc8a-9d70c37ec32c"], +Cell[212710, 5925, 342, 6, 26, "Message",ExpressionUUID->"42c1a263-2456-664a-bb33-c5fe841cb412"], +Cell[213055, 5933, 100, 0, 41, "Output",ExpressionUUID->"1c49befc-babf-0743-9739-e64b536d1c51"] +}, Open ]], +Cell[CellGroupData[{ +Cell[213192, 5938, 2049, 58, 116, "Input",ExpressionUUID->"cbefe077-df46-c24c-b854-69741ca50d38"], +Cell[215244, 5998, 342, 6, 26, "Message",ExpressionUUID->"be4d7bfb-c18e-564a-93ce-3f42607886e7"], +Cell[215589, 6006, 342, 6, 26, "Message",ExpressionUUID->"b768ca5f-6b93-1f43-97bf-08f74ea2facd"], +Cell[215934, 6014, 100, 0, 41, "Output",ExpressionUUID->"6af143a4-6ae5-fb45-8cd1-6940f2290ff9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[216071, 6019, 1938, 53, 86, "Input",ExpressionUUID->"b9a7e2d9-7e48-cb4c-89bc-12d8b19f0936"], +Cell[218012, 6074, 342, 6, 26, "Message",ExpressionUUID->"d3cb6fbc-3803-0541-80d1-8cab47341c44"], +Cell[218357, 6082, 342, 6, 26, "Message",ExpressionUUID->"635ef23c-be29-f947-b49d-c0d2f59f2ba8"], +Cell[218702, 6090, 342, 6, 26, "Message",ExpressionUUID->"d8687e0f-2f42-0543-a749-78a1ff3c9572"], +Cell[219047, 6098, 407, 7, 26, "Message",ExpressionUUID->"b055d243-2255-1f40-80bd-55bc54524667"], +Cell[219457, 6107, 4518, 306, 232, "Graphics",ExpressionUUID->"8a200671-82f1-364d-8dba-8342607ad7b7"], +Cell[223978, 6415, 191, 5, 41, "Output",ExpressionUUID->"e49c1b8d-fabe-b944-a6dd-c578eb57eb6a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[224206, 6425, 2094, 60, 116, "Input",ExpressionUUID->"4b73592e-b155-8f42-b33d-562f8b3faecd"], +Cell[226303, 6487, 342, 6, 26, "Message",ExpressionUUID->"9f5fa53c-8bea-a349-9c29-e4614f56cc98"], +Cell[226648, 6495, 342, 6, 26, "Message",ExpressionUUID->"a2ecd22c-b766-5347-9e03-9d459620be75"], +Cell[226993, 6503, 342, 6, 26, "Message",ExpressionUUID->"45a49c2b-98f0-ca4e-ab79-bb0334e26ffd"], +Cell[227338, 6511, 407, 7, 26, "Message",ExpressionUUID->"258782e2-0da4-1143-8b36-76da0d2ac6df"], +Cell[227748, 6520, 10253, 391, 232, 4113, 287, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"06204099-db57-8e4e-bcc4-fa1ae37c0063"], +Cell[238004, 6913, 191, 5, 41, "Output",ExpressionUUID->"8efa1c1f-552a-d042-8a05-04dec8739bf5"] +}, Open ]], +Cell[238210, 6921, 2455, 69, 140, "Input",ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-5e6c7b4b5678"], +Cell[240668, 6992, 209, 5, 36, "Input",ExpressionUUID->"cd9a8165-891b-9245-aca1-3f60fcfd9a79"], +Cell[CellGroupData[{ +Cell[240902, 7001, 215, 7, 61, "Input",ExpressionUUID->"c213919d-017d-a948-8e46-fe19384187c3"], +Cell[241120, 7010, 100, 0, 41, "Output",ExpressionUUID->"38d25667-6c7c-094b-b4ad-180d70233424"] +}, Open ]], +Cell[CellGroupData[{ +Cell[241257, 7015, 1814, 53, 116, "Input",ExpressionUUID->"3764dfb4-9656-4349-b0a1-77ebd1a3e048"], +Cell[243074, 7070, 342, 6, 26, "Message",ExpressionUUID->"12d513db-13cc-bc48-b9a3-22b17d8aeb9a"], +Cell[243419, 7078, 342, 6, 26, "Message",ExpressionUUID->"05911c33-7605-8b49-a7ba-7fc8c8f30741"], +Cell[243764, 7086, 342, 6, 26, "Message",ExpressionUUID->"2192e048-2875-9f4a-aa0c-9cbbd447dfe1"], +Cell[244109, 7094, 407, 7, 26, "Message",ExpressionUUID->"b6990f5f-359f-464b-ac16-44cdfeae3c8e"], +Cell[244519, 7103, 4480, 304, 232, "Graphics",ExpressionUUID->"899e43aa-c372-6647-a3e4-4952f308ab17"], +Cell[249002, 7409, 191, 5, 41, "Output",ExpressionUUID->"65116f16-0f68-7e4d-af2e-baecb9a57d9b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[249230, 7419, 1590, 47, 86, "Input",ExpressionUUID->"7899a8a7-561e-a946-a6c9-870ef14ce01b"], +Cell[250823, 7468, 342, 6, 26, "Message",ExpressionUUID->"d7dfab56-fefd-0149-8a26-6ee16f94ab37"], +Cell[251168, 7476, 101, 0, 41, "Output",ExpressionUUID->"43ddf880-80a2-b142-8665-3b95395a9831"] +}, Open ]], +Cell[CellGroupData[{ +Cell[251306, 7481, 2247, 64, 81, "Input",ExpressionUUID->"6fd9b05c-8008-7b42-b1b4-8e83e9537fdc"], +Cell[253556, 7547, 342, 6, 26, "Message",ExpressionUUID->"56921c73-2b67-0e4a-9808-5f61de992c7e"], +Cell[253901, 7555, 342, 6, 26, "Message",ExpressionUUID->"8ae663ad-3729-254b-9ec7-7f5d00ef81af"], +Cell[254246, 7563, 103, 0, 41, "Output",ExpressionUUID->"42e3f6c5-e95f-4040-9e12-cbd48f821f10"] +}, Open ]], +Cell[CellGroupData[{ +Cell[254386, 7568, 2219, 64, 81, "Input",ExpressionUUID->"ccaee6a3-c390-0444-bf16-3471356a3614"], +Cell[256608, 7634, 342, 6, 26, "Message",ExpressionUUID->"1795c3b9-0182-224c-b986-6414d6712c04"], +Cell[256953, 7642, 342, 6, 26, "Message",ExpressionUUID->"c3b31753-a67f-9b45-b822-068e1df11f68"], +Cell[257298, 7650, 100, 0, 41, "Output",ExpressionUUID->"7f3b68f0-36cd-5749-996b-97ffcb02c6cf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[257435, 7655, 2221, 64, 81, "Input",ExpressionUUID->"ca0cc669-d7ba-5b4a-b58b-286954db37c5"], +Cell[259659, 7721, 342, 6, 26, "Message",ExpressionUUID->"32db1bf6-ba11-cb4a-955a-52e174a44e5f"], +Cell[260004, 7729, 342, 6, 26, "Message",ExpressionUUID->"4e2b22f2-1724-7649-93fc-33cd27bb415e"], +Cell[260349, 7737, 101, 0, 41, "Output",ExpressionUUID->"34543184-0f68-7449-9af8-306cfc525771"] +}, Open ]], +Cell[CellGroupData[{ +Cell[260487, 7742, 215, 6, 60, "Input",ExpressionUUID->"7ec678fd-8398-414a-aeba-20e078d734cd"], +Cell[260705, 7750, 104, 0, 41, "Output",ExpressionUUID->"ca67de9f-825c-f641-9d0a-229375d081b1"] +}, Open ]], +Cell[260824, 7753, 247, 5, 36, "Input",ExpressionUUID->"ca329276-48d7-8943-8408-dd2997d3499c"], +Cell[CellGroupData[{ +Cell[261096, 7762, 532, 18, 66, "Input",ExpressionUUID->"681c316f-cd82-ae4b-824f-5eb2b3081f6d"], +Cell[261631, 7782, 100, 0, 41, "Output",ExpressionUUID->"9cf6d8e0-9f1b-734e-b42f-ef77566b5546"] +}, Open ]], +Cell[CellGroupData[{ +Cell[261768, 7787, 144, 4, 71, "Input",ExpressionUUID->"11e77a67-96b2-a645-89cd-559587f30b91"], +Cell[261915, 7793, 100, 0, 41, "Output",ExpressionUUID->"c5ed49bf-8480-c447-a0ac-ef7c5fcad104"] +}, Open ]], +Cell[CellGroupData[{ +Cell[262052, 7798, 155, 4, 109, "Input",ExpressionUUID->"3c5f43e9-afc4-be40-8f37-0116656ecd38"], +Cell[262210, 7804, 100, 0, 109, "Output",ExpressionUUID->"8a551ee1-59e8-d74e-b2fe-ad1527aaef53"] +}, Open ]], +Cell[CellGroupData[{ +Cell[262347, 7809, 6029, 184, 109, "Input",ExpressionUUID->"f07a8476-d7bc-1049-82a6-7cf06f61e28f"], +Cell[268379, 7995, 102, 0, 109, "Output",ExpressionUUID->"6efee3b5-10d6-d642-9cf2-dd8d3fe591e1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[268518, 8000, 342, 8, 53, "Input",ExpressionUUID->"b88b1a94-22d7-2843-88e3-f607b95c8af9"], +Cell[268863, 8010, 342, 6, 26, "Message",ExpressionUUID->"def6b331-c871-b04d-a16e-4fc00b03d009"], +Cell[269208, 8018, 99, 0, 41, "Output",ExpressionUUID->"332f8da7-4eec-ed47-b124-edf7e2bf43d7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[269344, 8023, 6096, 186, 431, "Input",ExpressionUUID->"9d771aab-c0b4-f24c-9b53-9472e00c4d82"], +Cell[275443, 8211, 102, 0, 41, "Output",ExpressionUUID->"0f048ce5-7f5e-0a41-a634-6908b289becd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[275582, 8216, 342, 8, 53, "Input",ExpressionUUID->"47e2a8e8-6af3-374f-9eea-9c2b6faaaf4a"], +Cell[275927, 8226, 342, 6, 26, "Message",ExpressionUUID->"c6c8676e-4601-144e-b83c-769e22949175"], +Cell[276272, 8234, 100, 0, 41, "Output",ExpressionUUID->"bd9f2dfb-0880-624c-8a61-fa3104084faf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[276409, 8239, 2637, 87, 215, "Input",ExpressionUUID->"d8757b1c-19d9-d548-8de4-6b0985b9b3bc"], +Cell[279049, 8328, 101, 0, 41, "Output",ExpressionUUID->"6edb9332-f61a-1c4a-ad7b-c9d3e77138f1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[279187, 8333, 2577, 84, 215, "Input",ExpressionUUID->"58b59182-fae5-674d-b49e-4868d83e9702"], +Cell[281767, 8419, 102, 0, 41, "Output",ExpressionUUID->"5f6645b8-6ac5-6148-a1e1-5f2ee5f21bdd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[281906, 8424, 3686, 117, 316, "Input",ExpressionUUID->"5caf1614-7e5c-9940-98cd-9460e2c074b2"], +Cell[285595, 8543, 102, 0, 41, "Output",ExpressionUUID->"9de56db9-9853-1748-aca6-5103b9dea11d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[285734, 8548, 2052, 59, 116, "Input",ExpressionUUID->"db0784f6-51d0-fd44-b0e8-05d6af1a6e52"], +Cell[287789, 8609, 342, 6, 26, "Message",ExpressionUUID->"7fd60dea-f794-4744-8801-bfb1a50a0e07"], +Cell[288134, 8617, 342, 6, 26, "Message",ExpressionUUID->"0b8c0718-41d2-4542-8afe-212a15805650"], +Cell[288479, 8625, 101, 0, 41, "Output",ExpressionUUID->"a8a97847-bb08-1e4d-8ab6-1eb11a1cda8f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[288617, 8630, 2054, 59, 116, "Input",ExpressionUUID->"7ca6aa7a-7318-6f41-95dc-f69c33a31448"], +Cell[290674, 8691, 342, 6, 26, "Message",ExpressionUUID->"b6f0ccc2-ff83-124b-a341-e143319c7670"], +Cell[291019, 8699, 342, 6, 26, "Message",ExpressionUUID->"d4b50e17-5ee4-384c-b81f-c2a36a80320e"], +Cell[291364, 8707, 100, 0, 41, "Output",ExpressionUUID->"f80834f1-cc9f-1c44-a97c-64c50ba97b67"] +}, Open ]], +Cell[CellGroupData[{ +Cell[291501, 8712, 2030, 55, 63, "Input",ExpressionUUID->"611f92ea-b199-2643-9788-194fae57c34e"], +Cell[293534, 8769, 342, 6, 26, "Message",ExpressionUUID->"7797a546-4085-124a-83da-5f3c472cdc4c"], +Cell[293879, 8777, 342, 6, 26, "Message",ExpressionUUID->"bf75ebeb-fc95-1d45-8487-ceed40ec633c"], +Cell[294224, 8785, 342, 6, 26, "Message",ExpressionUUID->"ca7472ca-7b27-a54a-84a1-e603fa592207"], +Cell[294569, 8793, 407, 7, 26, "Message",ExpressionUUID->"86b3b7d9-f0e9-0a4b-9079-b341ca597ab4"], +Cell[294979, 8802, 9432, 438, 232, "Graphics",ExpressionUUID->"f3c0c3aa-fd64-8e41-bc0a-ae36b33a37ec"], +Cell[304414, 9242, 191, 5, 109, "Output",ExpressionUUID->"23cfff6f-2c67-ce46-9cc6-49e8ffb5e8c8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[304642, 9252, 2118, 60, 109, "Input",ExpressionUUID->"f4c3d53a-1214-a145-beb0-494cdae35e56"], +Cell[306763, 9314, 342, 6, 109, "Message",ExpressionUUID->"b9265795-17b8-4e47-bd29-fee31586537e"], +Cell[307108, 9322, 342, 6, 26, "Message",ExpressionUUID->"072fb53f-7116-0f41-a298-6891351a3192"], +Cell[307453, 9330, 342, 6, 26, "Message",ExpressionUUID->"7f686ca7-db7f-0b40-bbd8-c08a80d2c198"], +Cell[307798, 9338, 407, 7, 26, "Message",ExpressionUUID->"3aaeaf29-5b60-ab47-b674-24d071c511f8"], +Cell[308208, 9347, 8546, 368, 232, "Graphics",ExpressionUUID->"fb5ee406-78d5-a849-9c81-3ea500ee883f"], +Cell[316757, 9717, 191, 5, 41, "Output",ExpressionUUID->"637816d3-cc2d-bb4a-991c-87bc9c72594a"] +}, Open ]], +Cell[316963, 9725, 209, 5, 36, "Input",ExpressionUUID->"2335a158-7588-4c40-bdb5-53b7ef04b97c"], +Cell[CellGroupData[{ +Cell[317197, 9734, 1590, 47, 86, "Input",ExpressionUUID->"01995149-3665-fe4e-b326-b20429031afd"], +Cell[318790, 9783, 342, 6, 26, "Message",ExpressionUUID->"52cff8eb-0c77-c944-a54f-e282b00ce766"], +Cell[319135, 9791, 101, 0, 41, "Output",ExpressionUUID->"51c9eb8e-8429-9440-b4d1-8a2a914a816b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[319273, 9796, 2251, 64, 81, "Input",ExpressionUUID->"11b1e372-f457-5a4d-bcee-062a3c04ed96"], +Cell[321527, 9862, 342, 6, 26, "Message",ExpressionUUID->"cb5a1193-7562-6446-a279-d9f6295d156e"], +Cell[321872, 9870, 342, 6, 26, "Message",ExpressionUUID->"566b0ad4-7f4e-b04f-8294-646ce1913fac"], +Cell[322217, 9878, 101, 0, 41, "Output",ExpressionUUID->"9a717f6e-3c47-7d43-93ae-4bf4814b6aa7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[322355, 9883, 2220, 64, 81, "Input",ExpressionUUID->"8cb4e371-90a5-d347-adec-3382e7679ba8"], +Cell[324578, 9949, 342, 6, 26, "Message",ExpressionUUID->"4cd45900-7eb0-6b4b-830a-a339e8117392"], +Cell[324923, 9957, 342, 6, 26, "Message",ExpressionUUID->"0ddcf174-f6c5-2546-b6d3-f17f46d6e8a3"], +Cell[325268, 9965, 101, 0, 41, "Output",ExpressionUUID->"3e9bc444-276c-294e-8c8d-12ef37255e0d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[325406, 9970, 2223, 64, 81, "Input",ExpressionUUID->"732b358a-c98a-0347-8b16-2462b23d6249"], +Cell[327632, 10036, 342, 6, 26, "Message",ExpressionUUID->"f702ec8b-e3a1-2f4f-bfef-4278a2688935"], +Cell[327977, 10044, 342, 6, 26, "Message",ExpressionUUID->"61220452-df6a-154e-8b5c-fecd0ab287a1"], +Cell[328322, 10052, 101, 0, 41, "Output",ExpressionUUID->"d8ce023f-3349-8348-844a-2526397581d1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[328460, 10057, 215, 6, 60, "Input",ExpressionUUID->"3d20548b-905d-0343-8df1-168ec8f367e1"], +Cell[328678, 10065, 102, 0, 41, "Output",ExpressionUUID->"b33ad8ed-51f6-a045-9dc5-33a5696fd31e"] +}, Open ]], +Cell[328795, 10068, 247, 5, 36, "Input",ExpressionUUID->"ca34450b-ff3b-f34a-a2ed-e661a25a7ba1"], +Cell[CellGroupData[{ +Cell[329067, 10077, 532, 18, 66, "Input",ExpressionUUID->"601c24ee-3f7b-c74d-891b-10a6d009e34b"], +Cell[329602, 10097, 101, 0, 41, "Output",ExpressionUUID->"f1ecc2fd-4cd6-5249-8977-1cc4a714ca85"] +}, Open ]], +Cell[CellGroupData[{ +Cell[329740, 10102, 144, 4, 71, "Input",ExpressionUUID->"05949206-8ee0-5646-bb01-e9142212274d"], +Cell[329887, 10108, 101, 0, 41, "Output",ExpressionUUID->"0b6f2dc1-dd2d-e341-8cc9-32a5777d3dad"] +}, Open ]], +Cell[CellGroupData[{ +Cell[330025, 10113, 155, 4, 55, "Input",ExpressionUUID->"25a02cc2-cb9a-bc4b-93f0-a7873f982a23"], +Cell[330183, 10119, 100, 0, 109, "Output",ExpressionUUID->"b4c0b4dc-7ff0-3246-8607-df7a1b97c52c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[330320, 10124, 6029, 184, 109, "Input",ExpressionUUID->"df51ca6a-83a1-6340-b13c-0185de64c37f"], +Cell[336352, 10310, 102, 0, 109, "Output",ExpressionUUID->"c326471e-e866-ed4e-b72f-a7b5b42c78d0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[336491, 10315, 342, 8, 109, "Input",ExpressionUUID->"731f0e35-7798-8b45-a769-075ac4b3983f"], +Cell[336836, 10325, 342, 6, 109, "Message",ExpressionUUID->"4870a5d4-b6fc-9044-ae55-fcbd2b9d41eb"], +Cell[337181, 10333, 100, 0, 41, "Output",ExpressionUUID->"4263cd25-e2b6-5c4b-8834-28c6ca12b863"] +}, Open ]], +Cell[CellGroupData[{ +Cell[337318, 10338, 6096, 186, 431, "Input",ExpressionUUID->"413c8e7d-149c-5d4a-9ccb-23aebae2e6d5"], +Cell[343417, 10526, 102, 0, 41, "Output",ExpressionUUID->"ad614c41-0fc1-a542-b7a8-b8207b3c6926"] +}, Open ]], +Cell[CellGroupData[{ +Cell[343556, 10531, 342, 8, 53, "Input",ExpressionUUID->"e11d7eb8-00a8-f540-98a0-89164ac4bae9"], +Cell[343901, 10541, 342, 6, 26, "Message",ExpressionUUID->"d6f4e6b1-3d45-7649-b7dd-944c4a1de3e4"], +Cell[344246, 10549, 99, 0, 41, "Output",ExpressionUUID->"27fdf87b-577e-d74b-99f1-6a0486be19bc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[344382, 10554, 2637, 87, 215, "Input",ExpressionUUID->"08e21b26-8d64-ea4e-8647-1ee89e798d8f"], +Cell[347022, 10643, 101, 0, 41, "Output",ExpressionUUID->"c5362b47-cc2f-ba44-9fef-3c67d726a6cb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[347160, 10648, 2577, 84, 215, "Input",ExpressionUUID->"ae5c0a90-3245-6943-a137-f30d036fcdd2"], +Cell[349740, 10734, 102, 0, 41, "Output",ExpressionUUID->"677f20c9-f9ab-dc41-bd69-627a1665b370"] +}, Open ]], +Cell[CellGroupData[{ +Cell[349879, 10739, 3686, 117, 316, "Input",ExpressionUUID->"46af1283-32d6-7240-acd2-307af56b44db"], +Cell[353568, 10858, 102, 0, 41, "Output",ExpressionUUID->"eb28891c-1746-424b-aa98-1266448f9a3e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[353707, 10863, 2054, 59, 116, "Input",ExpressionUUID->"cd516020-ac7f-224d-b1ff-af0307420662"], +Cell[355764, 10924, 342, 6, 26, "Message",ExpressionUUID->"b82c1933-5313-1d4c-a858-68be8f118333"], +Cell[356109, 10932, 342, 6, 26, "Message",ExpressionUUID->"3b3475f7-7db7-054a-b7f5-20d8f7d491bf"], +Cell[356454, 10940, 100, 0, 41, "Output",ExpressionUUID->"dfa1aa9c-9811-0d49-a9f3-e5e1bcdf702f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[356591, 10945, 2054, 59, 116, "Input",ExpressionUUID->"a9d0e817-a1c8-6546-a901-34313c6ec04d"], +Cell[358648, 11006, 342, 6, 26, "Message",ExpressionUUID->"9e0b92f8-7fe2-e84e-89cd-c02c9da3e5b7"], +Cell[358993, 11014, 342, 6, 26, "Message",ExpressionUUID->"56712e4d-1aa7-524a-8254-bcfd8978eea0"], +Cell[359338, 11022, 100, 0, 41, "Output",ExpressionUUID->"b342636b-f081-cc49-b1ae-5647aa39d6ab"] +}, Open ]], +Cell[CellGroupData[{ +Cell[359475, 11027, 2030, 55, 63, "Input",ExpressionUUID->"f68960b0-cff6-3245-b906-ad38cf07d634"], +Cell[361508, 11084, 342, 6, 26, "Message",ExpressionUUID->"9c6ce535-b42f-3c43-a89e-eda48c04121e"], +Cell[361853, 11092, 342, 6, 26, "Message",ExpressionUUID->"e2ce6bda-7d9b-6149-bf5b-dd4c91908e28"], +Cell[362198, 11100, 342, 6, 26, "Message",ExpressionUUID->"2bed6df2-09cb-4d4d-b247-4fe79fd38fd6"], +Cell[362543, 11108, 407, 7, 26, "Message",ExpressionUUID->"64a64e18-e609-d54b-8225-64fa7909a948"], +Cell[362953, 11117, 9432, 438, 232, "Graphics",ExpressionUUID->"7758daab-adf8-2a49-9166-50457409d355"], +Cell[372388, 11557, 191, 5, 41, "Output",ExpressionUUID->"4f7705b8-e954-b341-ab6d-8b4ad9ffca61"] +}, Open ]], +Cell[CellGroupData[{ +Cell[372616, 11567, 2143, 61, 116, "Input",ExpressionUUID->"d43bf17b-b492-0e4a-af4a-6a3bc399953c"], +Cell[374762, 11630, 342, 6, 26, "Message",ExpressionUUID->"2059be4f-bbb2-da49-9e23-3fc4d150d7a8"], +Cell[375107, 11638, 342, 6, 26, "Message",ExpressionUUID->"71d4e039-c2b8-d74d-819a-80d2051e4273"], +Cell[375452, 11646, 342, 6, 26, "Message",ExpressionUUID->"63625e13-15ef-1f45-89dc-998a1b63a626"], +Cell[375797, 11654, 407, 7, 26, "Message",ExpressionUUID->"ff96fc2b-5ddb-2142-a985-58ccc6f07e00"], +Cell[376207, 11663, 8546, 368, 232, "Graphics",ExpressionUUID->"a63f48d3-505f-0a45-b944-e872edd94d6c"], +Cell[384756, 12033, 191, 5, 41, "Output",ExpressionUUID->"be4328c1-f4b7-a444-b59f-1872f77ea023"] +}, Open ]], +Cell[384962, 12041, 138, 3, 36, "Input",ExpressionUUID->"4ad58a38-0776-5240-aa41-ba7c8ff64fb9"], +Cell[CellGroupData[{ +Cell[385125, 12048, 1590, 47, 86, "Input",ExpressionUUID->"3edaf53b-bb09-6646-b79e-9350413e0b42"], +Cell[386718, 12097, 342, 6, 26, "Message",ExpressionUUID->"2b38d1a8-4a7e-7b4f-8cdd-5298fced63d9"], +Cell[387063, 12105, 101, 0, 41, "Output",ExpressionUUID->"6941b2ce-51d7-0b43-b524-1e41573ef5f9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[387201, 12110, 2249, 64, 81, "Input",ExpressionUUID->"d2148290-3e90-8347-bddd-5dd8190b0268"], +Cell[389453, 12176, 342, 6, 26, "Message",ExpressionUUID->"905b237c-0e51-ab4b-895d-05994c6f1d5f"], +Cell[389798, 12184, 342, 6, 26, "Message",ExpressionUUID->"7ad8c79e-9570-a44d-b593-07aa87056e21"], +Cell[390143, 12192, 100, 0, 41, "Output",ExpressionUUID->"7a6165f1-f4e7-1f40-9890-5c13218f6833"] +}, Open ]], +Cell[CellGroupData[{ +Cell[390280, 12197, 2219, 64, 81, "Input",ExpressionUUID->"3cdd2064-36e7-b44d-bb0f-98d71f8a8458"], +Cell[392502, 12263, 342, 6, 26, "Message",ExpressionUUID->"c516c31a-74b4-f24d-a16a-678221cde87e"], +Cell[392847, 12271, 342, 6, 26, "Message",ExpressionUUID->"5c50b555-9ebe-f94d-801f-34634555f622"], +Cell[393192, 12279, 99, 0, 41, "Output",ExpressionUUID->"c7a13a95-1179-054f-9108-fe96e6564880"] +}, Open ]], +Cell[CellGroupData[{ +Cell[393328, 12284, 2221, 64, 81, "Input",ExpressionUUID->"c1d3ae3d-f5ac-b04d-af0f-57c1fe1d0585"], +Cell[395552, 12350, 342, 6, 26, "Message",ExpressionUUID->"7ca591cf-a5ce-ce41-8101-8edfca50e890"], +Cell[395897, 12358, 342, 6, 26, "Message",ExpressionUUID->"cbafd11a-4be0-b541-81e4-e62191ae7695"], +Cell[396242, 12366, 101, 0, 41, "Output",ExpressionUUID->"7d22c643-14ba-7245-8972-7de9bf840536"] +}, Open ]], +Cell[CellGroupData[{ +Cell[396380, 12371, 215, 6, 60, "Input",ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-1ca469b254bd"], +Cell[396598, 12379, 102, 0, 41, "Output",ExpressionUUID->"d15888a7-bf5a-b54e-a332-976645c927ce"] +}, Open ]], +Cell[396715, 12382, 188, 4, 36, "Input",ExpressionUUID->"a3233522-e327-40d5-8d4e-9bd748a0a988"] } ] *) -(* End of internal cache information *) - diff --git a/Pu240_798-811_TitovAA/172-68_h_Pu240_26-27/h_172-68_Pu240_26-27_osc_Qw1.nb b/Pu240_798-811_TitovAA/172-68_h_Pu240_26-27/h_172-68_Pu240_26-27_osc_Qw1.nb index 0b16837..4f1cf4b 100644 --- a/Pu240_798-811_TitovAA/172-68_h_Pu240_26-27/h_172-68_Pu240_26-27_osc_Qw1.nb +++ b/Pu240_798-811_TitovAA/172-68_h_Pu240_26-27/h_172-68_Pu240_26-27_osc_Qw1.nb @@ -3,17 +3,17 @@ (*** 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[ 581439, 14318] -NotebookOptionsPosition[ 540981, 13683] -NotebookOutlinePosition[ 541435, 13701] -CellTagsIndexPosition[ 541392, 13698] +NotebookDataLength[ 599947, 14846] +NotebookOptionsPosition[ 557685, 14174] +NotebookOutlinePosition[ 558126, 14192] +CellTagsIndexPosition[ 558083, 14189] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -21,41 +21,54 @@ Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"d", "=", "3"}]], "Input", + RowBox[{"d", "=", "1.95"}]], "Input", CellChangeTimes->{ 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, - 3.9920650045886707`*^9},ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-\ -8326f7c1a9b1"], + 3.9920650045886707`*^9, {3.994074211664226*^9, 3.994074212605893*^9}, { + 3.994074246621201*^9, 3.994074265935053*^9}}, + CellLabel-> + "In[304]:=",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], -Cell[BoxData["3"], "Output", - CellChangeTimes->{3.991320420900818*^9}, - CellLabel->"Out[46]=",ExpressionUUID->"2e7f3b17-b448-644d-bafd-ec5aa11fe78b"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"A", "=", "236"}]], "Input", - CellChangeTimes->{{3.9915672960517406`*^9, - 3.991567297688427*^9}},ExpressionUUID->"40a7803b-9334-ef42-a720-\ -539edfcf67a8"], - -Cell[BoxData["252"], "Output", - CellChangeTimes->{3.9913196497381973`*^9}, - CellLabel->"Out[2]=",ExpressionUUID->"d21d7bec-caad-aa4f-9200-81feafc4acec"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"A1", "="}]], "Input", +Cell[BoxData["1.95`"], "Output", CellChangeTimes->{ - 3.991798961431202*^9},ExpressionUUID->"410ced47-4e2a-4e45-9091-\ -53970f892dbb"], + 3.991320420900818*^9, {3.994074196804253*^9, 3.994074214075809*^9}, { + 3.9940742497364883`*^9, 3.9940742697527313`*^9}}, + CellLabel-> + "Out[304]=",ExpressionUUID->"f9762e12-9267-47fa-8806-6002245e3fc8"] +}, Open ]], -Cell[BoxData["130"], "Output", - CellChangeTimes->{3.9913196497578354`*^9}, - CellLabel->"Out[3]=",ExpressionUUID->"a2a1281d-2cdd-5d4c-b7c6-d26236e66b80"] +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.9940740226123867`*^9, 3.994074030397141*^9}}, + CellLabel-> + "In[305]:=",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, {3.9940741968744993`*^9, 3.994074214306916*^9}, { + 3.994074249779564*^9, 3.9940742697936697`*^9}}, + CellLabel-> + "Out[305]=",ExpressionUUID->"9df34e1f-52ce-4cb7-89e2-b1ed3fd66791"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "172"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.994074027305109*^9, 3.994074028074005*^9}}, + CellLabel-> + "In[306]:=",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], + +Cell[BoxData["172"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, {3.994074196887857*^9, 3.994074214318638*^9}, { + 3.9940742497919416`*^9, 3.9940742698063602`*^9}}, + CellLabel-> + "Out[306]=",ExpressionUUID->"3e4b3a96-72b8-4abf-aeab-219b4c959203"] }, Open ]], Cell[CellGroupData[{ @@ -63,11 +76,15 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a1", "=", "0.55"}]], "Input", CellChangeTimes->{3.9434144380252676`*^9}, - CellLabel->"In[4]:=",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], + CellLabel-> + "In[307]:=",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], Cell[BoxData["0.55`"], "Output", - CellChangeTimes->{3.991319649777508*^9}, - CellLabel->"Out[4]=",ExpressionUUID->"4fa6d65b-1d5c-4f45-949a-d7045f28de30"] + CellChangeTimes->{ + 3.991319649777508*^9, {3.9940741969012012`*^9, 3.994074214329146*^9}, { + 3.9940742497961063`*^9, 3.994074269818478*^9}}, + CellLabel-> + "Out[307]=",ExpressionUUID->"fc1febad-9fb8-4c03-a36a-50afa9cc7108"] }, Open ]], Cell[CellGroupData[{ @@ -79,22 +96,30 @@ Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", - CellLabel->"In[5]:=",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], + CellLabel-> + "In[308]:=",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], -Cell[BoxData["0.5495238095238095`"], "Output", - CellChangeTimes->{3.9913196497965145`*^9}, - CellLabel->"Out[5]=",ExpressionUUID->"24d0db1b-9e75-3c46-9c8c-13704f881794"] +Cell[BoxData["0.5435000000000001`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, {3.9940741969137297`*^9, 3.99407421433959*^9}, { + 3.994074249812704*^9, 3.994074269830806*^9}}, + CellLabel-> + "Out[308]=",ExpressionUUID->"089a5bc6-3818-49b5-8294-c6294311a0c2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"p0", "=", "0.17"}]], "Input", - CellLabel->"In[6]:=",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], + CellLabel-> + "In[309]:=",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], Cell[BoxData["0.17`"], "Output", - CellChangeTimes->{3.9913196498144608`*^9}, - CellLabel->"Out[6]=",ExpressionUUID->"d898610f-2407-1a40-9f24-5be2dcfa557e"] + CellChangeTimes->{ + 3.9913196498144608`*^9, {3.9940741969249763`*^9, 3.994074214349977*^9}, { + 3.99407424982506*^9, 3.994074269834938*^9}}, + CellLabel-> + "Out[309]=",ExpressionUUID->"f1ccd887-b52c-43c9-89b1-9239e5430c65"] }, Open ]], Cell[CellGroupData[{ @@ -105,11 +130,15 @@ Cell[BoxData[ SuperscriptBox["A1", RowBox[{"1", "/", "3"}]]}]}]], "Input", CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, - CellLabel->"In[7]:=",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], + CellLabel-> + "In[310]:=",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], -Cell[BoxData["5.876324542157027`"], "Output", - CellChangeTimes->{3.9913196498225155`*^9}, - CellLabel->"Out[7]=",ExpressionUUID->"27ff60eb-7aa7-9949-984d-d71d79c10129"] +Cell[BoxData["6.451105409164632`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, {3.994074196937035*^9, 3.994074214360525*^9}, { + 3.994074249837967*^9, 3.9940742698497963`*^9}}, + CellLabel-> + "Out[310]=",ExpressionUUID->"e11cbca4-2937-4fb2-a2eb-3c7299ba1fe6"] }, Open ]], Cell[CellGroupData[{ @@ -121,45 +150,75 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"1", "/", "3"}]]}]}]], "Input", - CellLabel->"In[8]:=",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], + CellLabel-> + "In[311]:=",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], -Cell[BoxData["5.753223770057068`"], "Output", - CellChangeTimes->{3.9913196498425236`*^9}, - CellLabel->"Out[8]=",ExpressionUUID->"2b4ba32a-ab7d-7140-a043-bb4487278822"] +Cell[BoxData["4.734719918224123`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, {3.9940741969492617`*^9, 3.994074214370586*^9}, { + 3.994074249850299*^9, 3.994074269861824*^9}}, + CellLabel-> + "Out[311]=",ExpressionUUID->"d4e2a5d8-a7a2-475b-9487-873406d22677"] }, Open ]], -Cell[BoxData[ - RowBox[{"b1", "="}]], "Input", - CellChangeTimes->{ - 3.991799283179735*^9},ExpressionUUID->"3b44378c-91de-5d4a-a244-\ -b3f5cb1cffbb"], +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"b2", "="}]], "Input", - CellChangeTimes->{ - 3.991799280663351*^9},ExpressionUUID->"c984ea2d-3d65-1d43-b11d-\ -50fde111107a"], + RowBox[{"b1", "=", "0.852277809"}]], "Input", + CellChangeTimes->{3.991799283179735*^9, 3.9940740415240393`*^9}, + CellLabel-> + "In[312]:=",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], + +Cell[BoxData["0.852277809`"], "Output", + CellChangeTimes->{{3.994074196961275*^9, 3.994074214380481*^9}, { + 3.994074249862259*^9, 3.994074269873619*^9}}, + CellLabel-> + "Out[312]=",ExpressionUUID->"5f151c0b-3551-4b0f-b0eb-a401e41c9fc2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.3903505481"}]], "Input", + CellChangeTimes->{3.991799280663351*^9, 3.99407404519888*^9}, + CellLabel-> + "In[313]:=",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], + +Cell[BoxData["0.3903505481`"], "Output", + CellChangeTimes->{{3.99407419697276*^9, 3.9940742143904543`*^9}, { + 3.99407424987506*^9, 3.994074269885377*^9}}, + CellLabel-> + "Out[313]=",ExpressionUUID->"02059a2f-554c-4b90-9964-b6ffed1c19a1"] +}, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x1", "=", "0"}]], "Input", - CellLabel->"In[11]:=",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], + CellLabel-> + "In[314]:=",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], Cell[BoxData["0"], "Output", - CellChangeTimes->{3.9913196498927155`*^9}, - CellLabel->"Out[11]=",ExpressionUUID->"3d15ce67-15c8-f549-9c13-b8dddf0b6641"] + CellChangeTimes->{ + 3.9913196498927155`*^9, {3.9940741969837933`*^9, 3.994074214400448*^9}, { + 3.994074249886661*^9, 3.994074269897275*^9}}, + CellLabel-> + "Out[314]=",ExpressionUUID->"31c9ef03-a8d5-419e-bdc4-a3c74cc03bc4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x2", "=", "0"}]], "Input", - CellLabel->"In[12]:=",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], + CellLabel-> + "In[315]:=",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], Cell[BoxData["0"], "Output", - CellChangeTimes->{3.9913196498996067`*^9}, - CellLabel->"Out[12]=",ExpressionUUID->"8f7b3ab0-4d46-6e46-be1a-60df9a3dcebd"] + CellChangeTimes->{ + 3.9913196498996067`*^9, {3.9940741969946527`*^9, 3.994074214410337*^9}, { + 3.9940742498968973`*^9, 3.994074269909542*^9}}, + CellLabel-> + "Out[315]=",ExpressionUUID->"56b1ba07-dcd1-4dff-80a6-e2b24b5b2901"] }, Open ]], Cell[CellGroupData[{ @@ -183,11 +242,15 @@ Cell[BoxData[ SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", - CellLabel->"In[13]:=",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], + CellLabel-> + "In[316]:=",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], -Cell[BoxData["1.4975864418719793`"], "Output", - CellChangeTimes->{3.9913197863028755`*^9}, - CellLabel->"Out[13]=",ExpressionUUID->"d0cab83a-649b-b14c-b85b-84835124aa09"] +Cell[BoxData["2.19751871461767`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, {3.994074197005885*^9, 3.994074214421315*^9}, { + 3.994074249908176*^9, 3.994074269922103*^9}}, + CellLabel-> + "Out[316]=",ExpressionUUID->"6dc056c6-e85c-41c4-8d0a-5d8b9ddae7d2"] }, Open ]], Cell[CellGroupData[{ @@ -211,11 +274,15 @@ Cell[BoxData[ SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", - CellLabel->"In[14]:=",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], + CellLabel-> + "In[317]:=",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], -Cell[BoxData["2.555495302485258`"], "Output", - CellChangeTimes->{3.9913197864610195`*^9}, - CellLabel->"Out[14]=",ExpressionUUID->"81304ae5-6353-154d-8b14-59a2dc55038b"] +Cell[BoxData["1.4271003361718892`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, {3.994074197017363*^9, 3.994074214431409*^9}, { + 3.994074249918466*^9, 3.99407426993229*^9}}, + CellLabel-> + "Out[317]=",ExpressionUUID->"5971dfaa-c94c-45df-8971-a09869eb43d1"] }, Open ]], Cell[CellGroupData[{ @@ -223,25 +290,86 @@ 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[318]:=",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], + +Cell[BoxData["0.4377300224639211`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, {3.994074197029154*^9, 3.994074214441661*^9}, { + 3.9940742499280653`*^9, 3.994074269943099*^9}}, + CellLabel-> + "Out[318]=",ExpressionUUID->"f1a06989-a7de-46c4-b03d-9a750dcf58c8"] +}, 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[{"(", @@ -267,75 +395,42 @@ Cell[BoxData[ SuperscriptBox["w1", "2"]}], "+", RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", - SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", - CellLabel->"In[16]:=",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], - -Cell[BoxData["0.6849608803764016`"], "Output", - CellChangeTimes->{3.991319786533783*^9}, - CellLabel->"Out[16]=",ExpressionUUID->"bdbb5f17-757a-b84a-b3ac-6309844818bf"] -}, Open ]], - -Cell[CellGroupData[{ + SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", + CellLabel-> + "In[319]:=",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[17]:=",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], - -Cell[BoxData[ - RowBox[{"-", "0.43849259375441973`"}]], "Output", - CellChangeTimes->{3.991319786540777*^9}, - CellLabel->"Out[17]=",ExpressionUUID->"1dd72b7b-aeff-8747-91d0-6842e926f3b2"] + RowBox[{"-", "0.09062394423616692`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, {3.9940741970396633`*^9, 3.994074214453579*^9}, { + 3.994074249938612*^9, 3.994074269953534*^9}}, + CellLabel-> + "Out[319]=",ExpressionUUID->"5504cb81-c891-481c-8e7a-a777b4cf5f7d"] }, 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", "-", @@ -345,42 +440,32 @@ 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[18]:=",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[320]:=",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], Cell[BoxData[ - RowBox[{"-", "0.08210730792808285`"}]], "Output", - CellChangeTimes->{3.9913197865777817`*^9}, - CellLabel->"Out[18]=",ExpressionUUID->"d5bf6730-c400-e84f-827b-d40e35c83dad"] + RowBox[{"-", "0.5469059277191528`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, {3.994074197050289*^9, 3.994074214467175*^9}, { + 3.994074249949532*^9, 3.9940742699645767`*^9}}, + CellLabel-> + "Out[320]=",ExpressionUUID->"f6642a88-88c6-46c5-8405-2b16fe6405a5"] }, Open ]], Cell[CellGroupData[{ @@ -388,89 +473,107 @@ 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[19]:=",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[321]:=",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], -Cell[BoxData["0.30371622798853437`"], "Output", - CellChangeTimes->{3.9913197866129*^9}, - CellLabel->"Out[19]=",ExpressionUUID->"006d42df-1417-1c4e-b4d9-45c05dee6889"] +Cell[BoxData["0.7058922703634168`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, {3.994074197062862*^9, 3.99407421448357*^9}, { + 3.9940742499608793`*^9, 3.994074269975973*^9}}, + CellLabel-> + "Out[321]=",ExpressionUUID->"e792967f-1e94-4818-8464-1d5064316cbc"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", - CellLabel->"In[20]:=",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], + CellLabel-> + "In[322]:=",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], Cell[BoxData["300"], "Output", - CellChangeTimes->{3.991319786620775*^9}, - CellLabel->"Out[20]=",ExpressionUUID->"64d193ee-3f72-404e-9ca7-d3c855ce1a3f"] + CellChangeTimes->{ + 3.991319786620775*^9, {3.9940741970755367`*^9, 3.994074214495585*^9}, { + 3.994074249972097*^9, 3.9940742699872303`*^9}}, + CellLabel-> + "Out[322]=",ExpressionUUID->"693d205b-3ef2-4518-88fa-84bc7cf50447"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fin", "=", "0.09"}]], "Input", - CellLabel->"In[21]:=",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], + CellLabel-> + "In[323]:=",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], Cell[BoxData["0.09`"], "Output", - CellChangeTimes->{3.991319786657793*^9}, - CellLabel->"Out[21]=",ExpressionUUID->"8d37ba34-6f64-7d40-86af-bfe10ed7ecf9"] + CellChangeTimes->{ + 3.991319786657793*^9, {3.994074197089067*^9, 3.994074214507393*^9}, { + 3.99407424998314*^9, 3.994074269998393*^9}}, + CellLabel-> + "Out[323]=",ExpressionUUID->"a7c39232-9068-448e-ad6a-4f30f2f26e89"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffin", "=", "0.42"}]], "Input", - CellLabel->"In[22]:=",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], + CellLabel-> + "In[324]:=",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], Cell[BoxData["0.42`"], "Output", - CellChangeTimes->{3.9913197866657925`*^9}, - CellLabel->"Out[22]=",ExpressionUUID->"cf6fd933-5c85-3c47-a2fa-a53bc24bd1de"] + CellChangeTimes->{ + 3.9913197866657925`*^9, {3.9940741971016483`*^9, 3.9940742145189466`*^9}, { + 3.994074249994322*^9, 3.994074270009439*^9}}, + CellLabel-> + "Out[324]=",ExpressionUUID->"a55ae702-b51d-4113-be61-6345ce492dc4"] }, Open ]], Cell[CellGroupData[{ @@ -479,51 +582,67 @@ Cell[BoxData[ RowBox[{"fex", "=", RowBox[{"-", "2.59"}]}]], "Input", CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, - CellLabel->"In[23]:=",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], + CellLabel-> + "In[325]:=",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], Cell[BoxData[ RowBox[{"-", "2.59`"}]], "Output", - CellChangeTimes->{3.9913197866996*^9}, - CellLabel->"Out[23]=",ExpressionUUID->"68c660da-f0f0-ad47-93fc-5a731457088a"] + CellChangeTimes->{ + 3.9913197866996*^9, {3.9940741971133337`*^9, 3.99407421453058*^9}, { + 3.994074250005796*^9, 3.994074270020775*^9}}, + CellLabel-> + "Out[325]=",ExpressionUUID->"7957c0c3-24f6-449d-8a3e-badebf9dbf51"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffex", "=", "0.54"}]], "Input", - CellLabel->"In[24]:=",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], + CellLabel-> + "In[326]:=",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], Cell[BoxData["0.54`"], "Output", - CellChangeTimes->{3.9913197867406044`*^9}, - CellLabel->"Out[24]=",ExpressionUUID->"8f2a2cb7-00c0-6642-b771-a61c78864261"] + CellChangeTimes->{ + 3.9913197867406044`*^9, {3.994074197124381*^9, 3.994074214542293*^9}, { + 3.994074250017613*^9, 3.9940742700324078`*^9}}, + CellLabel-> + "Out[326]=",ExpressionUUID->"5efdd1cf-c8d8-4e12-b3a7-5766434c2c05"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"Z1", "="}]], "Input", + RowBox[{"Z1", "=", "66"}]], "Input", CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { - 3.943437514738135*^9, 3.9434375159795218`*^9}, - 3.991799293571144*^9},ExpressionUUID->"50acb4f0-66e7-924a-841b-\ -56c0ae53ef15"], + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, { + 3.994074052479707*^9, 3.9940740526225157`*^9}}, + CellLabel-> + "In[327]:=",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], -Cell[BoxData["50"], "Output", - CellChangeTimes->{3.9913197867861958`*^9}, - CellLabel->"Out[25]=",ExpressionUUID->"55d6fafd-5f57-cf44-945d-c5c7fb1b087a"] +Cell[BoxData["66"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, {3.99407419713608*^9, 3.994074214545911*^9}, { + 3.994074250027919*^9, 3.99407427004285*^9}}, + CellLabel-> + "Out[327]=",ExpressionUUID->"b084d395-d063-4ba6-9417-3466190acb62"] }, 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},ExpressionUUID->"4451fdbc-8b04-2c43-a6db-\ -990caacde85d"], + 3.9916443064841423`*^9, {3.99407405616786*^9, 3.994074056966621*^9}}, + CellLabel-> + "In[328]:=",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], -Cell[BoxData["48"], "Output", - CellChangeTimes->{3.9913197867928696`*^9}, - CellLabel->"Out[26]=",ExpressionUUID->"e4541cb8-be74-4140-af0a-812e02085534"] +Cell[BoxData["28"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, {3.994074197147298*^9, 3.99407421455849*^9}, { + 3.9940742500393*^9, 3.994074270054291*^9}}, + CellLabel-> + "Out[328]=",ExpressionUUID->"c765c8df-63cc-42f0-a521-78ad287ccf02"] }, Open ]], Cell[CellGroupData[{ @@ -532,11 +651,15 @@ Cell[BoxData[ RowBox[{"A2", "=", RowBox[{"A", "-", "A1"}]}]], "Input", CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, - CellLabel->"In[27]:=",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], + CellLabel-> + "In[329]:=",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], -Cell[BoxData["122"], "Output", - CellChangeTimes->{3.991319786827894*^9}, - CellLabel->"Out[27]=",ExpressionUUID->"41e65355-0d62-5849-876b-33938574e65a"] +Cell[BoxData["68"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, {3.994074197159381*^9, 3.994074214569437*^9}, { + 3.9940742500504293`*^9, 3.9940742700651913`*^9}}, + CellLabel-> + "Out[329]=",ExpressionUUID->"3386464b-a6af-492c-af10-1c78731e4151"] }, Open ]], Cell[CellGroupData[{ @@ -551,11 +674,15 @@ Cell[BoxData[ FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", - CellLabel->"In[28]:=",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], + CellLabel-> + "In[330]:=",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], -Cell[BoxData["0.11065573770491803`"], "Output", - CellChangeTimes->{3.9913197868648605`*^9}, - CellLabel->"Out[28]=",ExpressionUUID->"b6d3bf5f-35d3-5240-acc0-10ada08af661"] +Cell[BoxData["0.10723666210670314`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, {3.994074197172007*^9, 3.994074214580143*^9}, { + 3.994074250060562*^9, 3.9940742700753593`*^9}}, + CellLabel-> + "Out[330]=",ExpressionUUID->"94bfc6db-9198-49f1-a9f3-94ba6ed8e927"] }, Open ]], Cell[CellGroupData[{ @@ -570,12 +697,16 @@ Cell[BoxData[ FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", - CellLabel->"In[29]:=",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], + CellLabel-> + "In[331]:=",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], Cell[BoxData[ - RowBox[{"-", "2.5634426229508196`"}]], "Output", - CellChangeTimes->{3.9913197868718567`*^9}, - CellLabel->"Out[29]=",ExpressionUUID->"5d506fa3-f740-ff4f-9786-10c7e1e82f78"] + RowBox[{"-", "2.5678385772913814`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, {3.994074197183957*^9, 3.994074214590371*^9}, { + 3.994074250071249*^9, 3.99407427008554*^9}}, + CellLabel-> + "Out[331]=",ExpressionUUID->"7df2e02d-ceb9-4e02-b431-c4e3dc07a1ae"] }, Open ]], Cell[CellGroupData[{ @@ -605,13 +736,16 @@ Cell[BoxData[ "+", "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}},ExpressionUUID->"957e37d7-d728-e448-9a63-\ -f9d65131b81c"], + 3.943418448948422*^9}, {3.9919752185010967`*^9, 3.9919752200326233`*^9}}, + CellLabel-> + "In[332]:=",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], -Cell[BoxData["19.346196963603006`"], "Output", - CellChangeTimes->{3.9913197869068584`*^9}, - CellLabel->"Out[30]=",ExpressionUUID->"02f8af82-a9df-4342-9d73-750f12d42e7b"] +Cell[BoxData["17.339463280274387`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, {3.994074197196582*^9, 3.9940742146010637`*^9}, { + 3.994074250082402*^9, 3.9940742700958967`*^9}}, + CellLabel-> + "Out[332]=",ExpressionUUID->"c90de278-6f4b-43a0-84bb-271f080c496b"] }, Open ]], Cell[CellGroupData[{ @@ -619,107 +753,191 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, - CellLabel->"In[31]:=",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], + CellLabel-> + "In[333]:=",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], Cell[BoxData["300"], "Output", - CellChangeTimes->{3.991319786940857*^9}, - CellLabel->"Out[31]=",ExpressionUUID->"1ee0020e-da30-7b46-8f5c-7602d78cb1cb"] + CellChangeTimes->{ + 3.991319786940857*^9, {3.9940741972101183`*^9, 3.9940742146122723`*^9}, { + 3.994074250094462*^9, 3.994074270106193*^9}}, + CellLabel-> + "Out[333]=",ExpressionUUID->"f548e84f-605f-4274-97e2-3ddbb7d20a31"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ - RowBox[{"v1", "="}]], "Input", + RowBox[{"v1", "=", "1.895"}]], "Input", CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, - 3.943437451104373*^9, 3.9917179877659073`*^9, - 3.9917993555955296`*^9},ExpressionUUID->"477d69f3-81a2-6d40-bff8-\ -58a9467eced9"], + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { + 3.994074073155587*^9, 3.994074075499446*^9}}, + CellLabel-> + "In[334]:=",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], + +Cell[BoxData["1.895`"], "Output", + CellChangeTimes->{{3.9940741972243557`*^9, 3.994074214623012*^9}, { + 3.994074250106516*^9, 3.9940742701165457`*^9}}, + CellLabel-> + "Out[334]=",ExpressionUUID->"0e689e33-997a-4bfb-bde3-b7ebe94d83f2"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.9918486394740562`*^9, - 3.991848639478634*^9}},ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-\ -bb644ea0ddfa"], + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel-> + "In[335]:=",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"n1", "="}]], "Input", + RowBox[{"n1", "=", "0.765"}]], "Input", CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, - 3.9434374542625003`*^9, 3.9917179964399834`*^9, - 3.9917993574235134`*^9},ExpressionUUID->"a9223860-e2cf-2047-9a01-\ -b6480cd2846d"], + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.994074078227497*^9, 3.9940740796275997`*^9}}, + CellLabel-> + "In[336]:=",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], + +Cell[BoxData["0.765`"], "Output", + CellChangeTimes->{{3.994074197245954*^9, 3.994074214636681*^9}, { + 3.9940742501222553`*^9, 3.99407427012961*^9}}, + CellLabel-> + "Out[336]=",ExpressionUUID->"23abc775-7d15-4b54-956b-f4b88dbdb298"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.991848641020609*^9, - 3.9918486410246162`*^9}},ExpressionUUID->"d35f11fe-a53c-8943-ac4f-\ -07cc8884f5b8"], + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel-> + "In[337]:=",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"vv1", "="}]], "Input", + RowBox[{"vv1", "=", "2.605"}]], "Input", CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { - 3.943437458959346*^9, 3.943437459115596*^9}, - 3.9917993587947025`*^9},ExpressionUUID->"afeba878-eb4d-ef43-8941-\ -b46079e5a618"], + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.9940740824169683`*^9, 3.9940740841708183`*^9}}, + CellLabel-> + "In[338]:=",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], + +Cell[BoxData["2.605`"], "Output", + CellChangeTimes->{{3.994074197269746*^9, 3.994074214649177*^9}, { + 3.994074250142523*^9, 3.994074270141824*^9}}, + CellLabel-> + "Out[338]=",ExpressionUUID->"285f7f9a-06e2-417c-b156-5d97ac66c414"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.9918486421415234`*^9, - 3.991848642146063*^9}},ExpressionUUID->"12665172-e21c-4e44-b1fc-\ -e81404b2a0db"], + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel-> + "In[339]:=",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"nn1", "="}]], "Input", + RowBox[{"nn1", "=", "1.115"}]], "Input", CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, - 3.991799359954439*^9},ExpressionUUID->"81b490c7-39d4-f348-8914-\ -f54b23f74296"], + 3.991799359954439*^9, {3.994074087466568*^9, 3.9940740892428827`*^9}}, + CellLabel-> + "In[340]:=",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], + +Cell[BoxData["1.115`"], "Output", + CellChangeTimes->{{3.9940741972942533`*^9, 3.9940742146616087`*^9}, { + 3.994074250166238*^9, 3.9940742701540823`*^9}}, + CellLabel-> + "Out[340]=",ExpressionUUID->"67719885-cd0e-433e-88e0-39f4ff4f62f3"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.991848643356409*^9, - 3.991848643361412*^9}},ExpressionUUID->"78f54ff3-2505-5940-9b78-\ -ccc2627a783c"], + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel-> + "In[341]:=",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"v2", "="}]], "Input", + RowBox[{"v2", "=", "1.375"}]], "Input", CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, - 3.991718016467348*^9, - 3.991799361414671*^9},ExpressionUUID->"17c8b6b3-c729-7c42-8964-\ -e70aa92597e4"], + 3.991718016467348*^9, 3.991799361414671*^9, {3.994074092127721*^9, + 3.994074094282755*^9}}, + CellLabel-> + "In[342]:=",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], + +Cell[BoxData["1.375`"], "Output", + CellChangeTimes->{{3.9940741973176317`*^9, 3.9940742146740303`*^9}, { + 3.994074250185948*^9, 3.9940742701663027`*^9}}, + CellLabel-> + "Out[342]=",ExpressionUUID->"28680976-e45d-497a-9c9f-9733bd0bae2a"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.991848644751276*^9, - 3.991848644757372*^9}},ExpressionUUID->"3908ad8b-9aa1-4d42-954c-\ -a3b9eef1576d"], + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel-> + "In[343]:=",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"n2", "="}]], "Input", + RowBox[{"n2", "=", "0.545"}]], "Input", CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, - 3.9917180279399567`*^9, - 3.9917993631287174`*^9},ExpressionUUID->"92080e53-e7ee-a444-8071-\ -b94745a1c38a"], + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.994074098253368*^9, + 3.994074099547431*^9}}, + CellLabel-> + "In[344]:=",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], + +Cell[BoxData["0.545`"], "Output", + CellChangeTimes->{{3.9940741973401327`*^9, 3.994074214686512*^9}, { + 3.994074250207786*^9, 3.994074270178926*^9}}, + CellLabel-> + "Out[344]=",ExpressionUUID->"32be1364-5fd4-4df3-9515-955ffc31a2d9"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.9918486484561863`*^9, - 3.991848648461731*^9}},ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-\ -7d827c4ef6de"], + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel-> + "In[345]:=",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"vv2", "="}]], "Input", + RowBox[{"vv2", "=", "1.35"}]], "Input", CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, - 3.9917180507508755`*^9, - 3.9917993645898876`*^9},ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-\ -264265a5c2d2"], + 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.994074102320486*^9, + 3.9940741031259613`*^9}}, + CellLabel-> + "In[346]:=",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], + +Cell[BoxData["1.35`"], "Output", + CellChangeTimes->{{3.994074197360721*^9, 3.994074214698968*^9}, { + 3.9940742502296133`*^9, 3.994074270190978*^9}}, + CellLabel-> + "Out[346]=",ExpressionUUID->"0926821a-87af-4ceb-9932-a1ebc88c972b"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.99184864995627*^9, - 3.9918486499632607`*^9}},ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-\ -01ae055dd38b"], + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel-> + "In[347]:=",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"nn2", "="}]], "Input", + RowBox[{"nn2", "=", "0.655"}]], "Input", CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, - 3.9917993660901737`*^9},ExpressionUUID->"0efd73e6-d1c0-4449-a060-\ -0fd7b04115ca"], + 3.9917993660901737`*^9, {3.994074105268124*^9, 3.994074106561956*^9}}, + CellLabel-> + "In[348]:=",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], + +Cell[BoxData["0.655`"], "Output", + CellChangeTimes->{{3.994074197383122*^9, 3.994074214711643*^9}, { + 3.994074250250944*^9, 3.994074270203269*^9}}, + CellLabel-> + "Out[348]=",ExpressionUUID->"63fcce57-2676-49ff-a853-6e78541ed516"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.9918486513316555`*^9, - 3.9918486513362026`*^9}},ExpressionUUID->"cc8697be-e0d9-6944-bb0c-\ -e22b0839e976"], + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel-> + "In[349]:=",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], Cell[CellGroupData[{ @@ -1208,11 +1426,15 @@ uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== "], - CellLabel->"In[40]:=",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], + CellLabel-> + "In[350]:=",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], -Cell[BoxData["2.0187310532697746`"], "Output", - CellChangeTimes->{3.991319787430073*^9}, - CellLabel->"Out[40]=",ExpressionUUID->"6e3e2b1b-3430-b546-9dfc-ccd29250c9d7"] +Cell[BoxData["0.1542863605960474`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, {3.994074197462419*^9, 3.9940742147508163`*^9}, { + 3.994074250298726*^9, 3.994074270240198*^9}}, + CellLabel-> + "Out[350]=",ExpressionUUID->"411a5131-3b33-45a0-894b-111161436c1a"] }, Open ]], Cell[CellGroupData[{ @@ -1706,11 +1928,15 @@ Cell[BoxData[ CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, - CellLabel->"In[41]:=",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], + CellLabel-> + "In[351]:=",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], -Cell[BoxData["0.14694138435338647`"], "Output", - CellChangeTimes->{3.991319787574972*^9}, - CellLabel->"Out[41]=",ExpressionUUID->"ca8af40c-4f04-8747-aa6f-9594ea3fb865"] +Cell[BoxData["6.986649521084862`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, {3.994074197551347*^9, 3.994074214777306*^9}, { + 3.9940742503242893`*^9, 3.994074270266127*^9}}, + CellLabel-> + "Out[351]=",ExpressionUUID->"7a2946b6-15b0-4efc-891d-59318f57e0a0"] }, Open ]], Cell[CellGroupData[{ @@ -2198,12 +2424,16 @@ Cell[BoxData[ CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, - CellLabel->"In[42]:=",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], + CellLabel-> + "In[352]:=",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], Cell[BoxData[ - RowBox[{"-", "32.27220689122579`"}]], "Output", - CellChangeTimes->{3.991319787641424*^9}, - CellLabel->"Out[42]=",ExpressionUUID->"43eaee96-3646-954d-899a-d1e3ee2edd5e"] + RowBox[{"-", "15.225784715275067`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, {3.994074197626877*^9, 3.994074214803336*^9}, { + 3.994074250347639*^9, 3.9940742702914057`*^9}}, + CellLabel-> + "Out[352]=",ExpressionUUID->"d3db5732-abdb-4f42-bb8e-c94398a97284"] }, Open ]], Cell[CellGroupData[{ @@ -2761,12 +2991,16 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel->"In[43]:=",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], + CellLabel-> + "In[353]:=",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], Cell[BoxData[ - RowBox[{"-", "81.2532555132978`"}]], "Output", - CellChangeTimes->{3.991319787711939*^9}, - CellLabel->"Out[43]=",ExpressionUUID->"a8d59888-f6f0-0746-9034-5e74c45610b1"] + RowBox[{"-", "19.527743438945258`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, {3.994074197680339*^9, 3.9940742148337717`*^9}, { + 3.994074250376841*^9, 3.9940742703219957`*^9}}, + CellLabel-> + "Out[353]=",ExpressionUUID->"e04073d8-5cd1-4a34-a275-873f38cb9eae"] }, Open ]], Cell[CellGroupData[{ @@ -3324,12 +3558,16 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel->"In[44]:=",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], + CellLabel-> + "In[354]:=",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], Cell[BoxData[ - RowBox[{"-", "38.89688349410641`"}]], "Output", - CellChangeTimes->{3.9913197877723045`*^9}, - CellLabel->"Out[44]=",ExpressionUUID->"dd5d5506-e4f6-7d4c-bcd9-ea70659f69e1"] + RowBox[{"-", "55.27021800638023`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, {3.9940741977668943`*^9, 3.9940742148649673`*^9}, { + 3.994074250406843*^9, 3.994074270352029*^9}}, + CellLabel-> + "Out[354]=",ExpressionUUID->"ef0001a9-8dc6-4a72-936d-29f33ed46a0c"] }, Open ]], Cell[CellGroupData[{ @@ -3960,34 +4198,46 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel->"In[45]:=",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], + CellLabel-> + "In[355]:=",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], Cell[BoxData[ - RowBox[{"-", "199.04976850122156`"}]], "Output", - CellChangeTimes->{3.991319787833355*^9}, - CellLabel->"Out[45]=",ExpressionUUID->"b983c8d8-6a34-fb4a-8a0a-8960e79ae993"] + RowBox[{"-", "141.4524755079782`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, {3.994074197832451*^9, 3.994074214909892*^9}, { + 3.994074250439662*^9, 3.994074270387487*^9}}, + CellLabel-> + "Out[355]=",ExpressionUUID->"ada8cea0-0dc8-40e0-96d3-6bceecba2f99"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U21", "=", "0"}]], "Input", - CellLabel->"In[47]:=",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], + CellLabel-> + "In[356]:=",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], Cell[BoxData["0"], "Output", - CellChangeTimes->{3.9913204210013676`*^9}, - CellLabel->"Out[47]=",ExpressionUUID->"bb0c55af-9cf7-0443-8b24-f19c97d6c781"] + CellChangeTimes->{ + 3.9913204210013676`*^9, {3.994074197929666*^9, 3.994074214922945*^9}, { + 3.994074250452722*^9, 3.994074270403535*^9}}, + CellLabel-> + "Out[356]=",ExpressionUUID->"9ede69e9-fdd8-41d0-960e-c87c01875323"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U22", "=", "0"}]], "Input", - CellLabel->"In[48]:=",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], + CellLabel-> + "In[357]:=",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], Cell[BoxData["0"], "Output", - CellChangeTimes->{3.9913204210355663`*^9}, - CellLabel->"Out[48]=",ExpressionUUID->"0d4bafbb-7685-ff43-aaa0-fe1597369669"] + CellChangeTimes->{ + 3.9913204210355663`*^9, {3.994074197952071*^9, 3.994074214935376*^9}, { + 3.994074250464295*^9, 3.994074270413846*^9}}, + CellLabel-> + "Out[357]=",ExpressionUUID->"bf992dd7-dd94-4316-9009-1e7e45b14028"] }, Open ]], Cell[CellGroupData[{ @@ -4031,11 +4281,15 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel->"In[49]:=",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], + CellLabel-> + "In[358]:=",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], -Cell[BoxData["165.32626018052665`"], "Output", - CellChangeTimes->{3.991320421068556*^9}, - CellLabel->"Out[49]=",ExpressionUUID->"25fde637-8846-5644-8daa-868231713f08"] +Cell[BoxData["111.55440139653717`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, {3.9940741979658833`*^9, 3.994074214947126*^9}, { + 3.99407425047659*^9, 3.994074270424139*^9}}, + CellLabel-> + "Out[358]=",ExpressionUUID->"21ada3b5-49c8-4841-bda5-7066b8a0a78e"] }, Open ]], Cell[CellGroupData[{ @@ -4075,12 +4329,16 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel->"In[50]:=",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], + CellLabel-> + "In[359]:=",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], Cell[BoxData[ - RowBox[{"-", "113.55836273207095`"}]], "Output", - CellChangeTimes->{3.991320421098543*^9}, - CellLabel->"Out[50]=",ExpressionUUID->"222cd90e-6438-0a46-88d0-fcdd10fc9432"] + RowBox[{"-", "95.43889051158258`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, {3.994074197994025*^9, 3.994074214959611*^9}, { + 3.994074250488699*^9, 3.994074270434445*^9}}, + CellLabel-> + "Out[359]=",ExpressionUUID->"7c1e8e4b-9f34-48ad-86dd-7d5290ebb334"] }, Open ]], Cell[CellGroupData[{ @@ -4124,73 +4382,101 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel->"In[51]:=",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], + CellLabel-> + "In[360]:=",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], -Cell[BoxData["101.25756231997637`"], "Output", - CellChangeTimes->{3.9913204211275444`*^9}, - CellLabel->"Out[51]=",ExpressionUUID->"b7d1d4d3-3e05-af4b-9683-83817f2bdc88"] +Cell[BoxData["113.13286100443031`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, {3.994074198004314*^9, 3.994074214972053*^9}, { + 3.994074250500126*^9, 3.99407427044481*^9}}, + CellLabel-> + "Out[360]=",ExpressionUUID->"5fbe48ec-cfd4-4745-8e9b-ea52d9558406"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c11"], "Input", - CellLabel->"In[52]:=",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], + CellLabel-> + "In[361]:=",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], -Cell[BoxData["0.6849608803764016`"], "Output", - CellChangeTimes->{3.9913204211385536`*^9}, - CellLabel->"Out[52]=",ExpressionUUID->"9fab72a0-15cc-f04b-8b2d-eafd610fbe08"] +Cell[BoxData["0.4377300224639211`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, {3.994074198016279*^9, 3.994074214983481*^9}, { + 3.994074250511408*^9, 3.994074270455081*^9}}, + CellLabel-> + "Out[361]=",ExpressionUUID->"6e05ceff-ecc7-46a8-a998-a315e70bb1bf"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c12"], "Input", - CellLabel->"In[53]:=",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], + CellLabel-> + "In[362]:=",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], Cell[BoxData[ - RowBox[{"-", "0.43849259375441973`"}]], "Output", - CellChangeTimes->{3.9913204211683464`*^9}, - CellLabel->"Out[53]=",ExpressionUUID->"5baa5811-6d68-0847-bfa7-611a7f282595"] + RowBox[{"-", "0.09062394423616692`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, {3.99407419803306*^9, 3.994074214997123*^9}, { + 3.994074250525971*^9, 3.994074270465309*^9}}, + CellLabel-> + "Out[362]=",ExpressionUUID->"9b647d4e-3178-40c7-a764-c7add69147ac"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c21"], "Input", - CellLabel->"In[54]:=",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], + CellLabel-> + "In[363]:=",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], Cell[BoxData[ - RowBox[{"-", "0.08210730792808285`"}]], "Output", - CellChangeTimes->{3.991320421199068*^9}, - CellLabel->"Out[54]=",ExpressionUUID->"66d60cf8-894b-f64c-bc5e-4862fc34e98d"] + RowBox[{"-", "0.5469059277191528`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, {3.994074198060273*^9, 3.994074215008013*^9}, { + 3.994074250535656*^9, 3.994074270476778*^9}}, + CellLabel-> + "Out[363]=",ExpressionUUID->"2ea5813a-34db-4ff4-a493-8d80ec769f79"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c22"], "Input", - CellLabel->"In[55]:=",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], + CellLabel-> + "In[364]:=",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], -Cell[BoxData["0.30371622798853437`"], "Output", - CellChangeTimes->{3.991320421228037*^9}, - CellLabel->"Out[55]=",ExpressionUUID->"95baa4f5-66f1-b04e-8459-661f90319bc4"] +Cell[BoxData["0.7058922703634168`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, {3.9940741980734253`*^9, 3.994074215018661*^9}, { + 3.994074250546678*^9, 3.9940742704879427`*^9}}, + CellLabel-> + "Out[364]=",ExpressionUUID->"78a7daac-e478-4758-acf9-1c6c23757080"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w1"], "Input", - CellLabel->"In[56]:=",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], + CellLabel-> + "In[365]:=",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], -Cell[BoxData["1.4975864418719793`"], "Output", - CellChangeTimes->{3.9913204212585373`*^9}, - CellLabel->"Out[56]=",ExpressionUUID->"de032191-9b61-7645-8f26-423f534a2cb1"] +Cell[BoxData["2.19751871461767`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, {3.994074198087656*^9, 3.9940742150302687`*^9}, { + 3.994074250550354*^9, 3.994074270499359*^9}}, + CellLabel-> + "Out[365]=",ExpressionUUID->"678c88f3-334b-4dce-b98a-c9d90c2c4491"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w2"], "Input", - CellLabel->"In[57]:=",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], + CellLabel-> + "In[366]:=",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], -Cell[BoxData["2.555495302485258`"], "Output", - CellChangeTimes->{3.9913204212884274`*^9}, - CellLabel->"Out[57]=",ExpressionUUID->"56b6e721-a4ff-f24f-9100-8013c893b0ae"] +Cell[BoxData["1.4271003361718892`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, {3.994074198096857*^9, 3.994074215043764*^9}, { + 3.994074250564603*^9, 3.994074270511888*^9}}, + CellLabel-> + "Out[366]=",ExpressionUUID->"b60f3e52-d975-4951-bcab-04f0c8b38840"] }, Open ]], Cell[CellGroupData[{ @@ -4211,12 +4497,16 @@ Cell[BoxData[ RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", - CellLabel->"In[58]:=",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], + CellLabel-> + "In[367]:=",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], Cell[BoxData[ - RowBox[{"-", "10.968150500985438`"}]], "Output", - CellChangeTimes->{3.9913204213185234`*^9}, - CellLabel->"Out[58]=",ExpressionUUID->"ed7537ce-20e6-4246-aac0-4a4b9f4faed7"] + RowBox[{"-", "33.18726375495992`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, {3.994074198107793*^9, 3.994074215058444*^9}, { + 3.994074250574132*^9, 3.99407427052425*^9}}, + CellLabel-> + "Out[367]=",ExpressionUUID->"28130a5d-291f-4965-a76d-c2462d9c33db"] }, Open ]], Cell[CellGroupData[{ @@ -4237,12 +4527,16 @@ Cell[BoxData[ RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", - CellLabel->"In[59]:=",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], + CellLabel-> + "In[368]:=",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], Cell[BoxData[ - RowBox[{"-", "30.737279670206195`"}]], "Output", - CellChangeTimes->{3.991320421349531*^9}, - CellLabel->"Out[59]=",ExpressionUUID->"643b7429-505f-4045-a97f-7e6871b3f504"] + RowBox[{"-", "6.498883922853802`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, {3.994074198134163*^9, 3.994074215071083*^9}, { + 3.994074250583393*^9, 3.994074270535636*^9}}, + CellLabel-> + "Out[368]=",ExpressionUUID->"08e67a85-9b14-40f9-847b-4fb28eca4378"] }, Open ]], Cell[CellGroupData[{ @@ -4307,11 +4601,15 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]}]}]], "Input", - CellLabel->"In[60]:=",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], + CellLabel-> + "In[369]:=",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], -Cell[BoxData["154.3581096795412`"], "Output", - CellChangeTimes->{3.9913204213784294`*^9}, - CellLabel->"Out[60]=",ExpressionUUID->"029098e5-22ab-9a4c-99ad-caac4d1307db"] +Cell[BoxData["78.36713764157724`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, {3.99407419816089*^9, 3.994074215083827*^9}, { + 3.994074250592779*^9, 3.994074270550357*^9}}, + CellLabel-> + "Out[369]=",ExpressionUUID->"fc4c009b-4226-4193-8c5c-2b3c3c1cb35b"] }, Open ]], Cell[CellGroupData[{ @@ -4352,12 +4650,16 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", - CellLabel->"In[61]:=",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], + CellLabel-> + "In[370]:=",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], Cell[BoxData[ - RowBox[{"-", "113.55836273207095`"}]], "Output", - CellChangeTimes->{3.9913204213904285`*^9}, - CellLabel->"Out[61]=",ExpressionUUID->"f7cceab2-e319-0345-98f3-b759ec5fa40c"] + RowBox[{"-", "95.43889051158258`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, {3.994074198173212*^9, 3.9940742151226263`*^9}, { + 3.9940742506018353`*^9, 3.99407427055612*^9}}, + CellLabel-> + "Out[370]=",ExpressionUUID->"619b4bd1-7791-42f4-a5c9-213f0712b905"] }, Open ]], Cell[CellGroupData[{ @@ -4423,11 +4725,15 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]}]}]], "Input", - CellLabel->"In[62]:=",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], + CellLabel-> + "In[371]:=",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], -Cell[BoxData["70.52028264977018`"], "Output", - CellChangeTimes->{3.991320421419428*^9}, - CellLabel->"Out[62]=",ExpressionUUID->"ee7339b3-3748-a34f-a057-3912a0918fd6"] +Cell[BoxData["106.6339770815765`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, {3.994074198185794*^9, 3.994074215135048*^9}, { + 3.994074250611326*^9, 3.994074270578539*^9}}, + CellLabel-> + "Out[371]=",ExpressionUUID->"fce4da0b-4d58-49d8-bfa1-3aa854f17c16"] }, Open ]], Cell[CellGroupData[{ @@ -4485,11 +4791,15 @@ Cell[BoxData[ RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", - CellLabel->"In[63]:=",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], + CellLabel-> + "In[372]:=",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], -Cell[BoxData["14.070681463640064`"], "Output", - CellChangeTimes->{3.9913204214494324`*^9}, - CellLabel->"Out[63]=",ExpressionUUID->"9d980dd1-9860-3745-8961-1b723545e44c"] +Cell[BoxData["51.145215962859936`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, {3.994074198196261*^9, 3.9940742151460247`*^9}, { + 3.994074250621415*^9, 3.99407427059237*^9}}, + CellLabel-> + "Out[372]=",ExpressionUUID->"caf71c16-6c0a-4583-8266-aa02b4b5b181"] }, Open ]], Cell[CellGroupData[{ @@ -4547,34 +4857,56 @@ Cell[BoxData[ RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", - CellLabel->"In[64]:=",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], + CellLabel-> + "In[373]:=",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], -Cell[BoxData["392.58159931234866`"], "Output", - CellChangeTimes->{3.991320421481529*^9}, - CellLabel->"Out[64]=",ExpressionUUID->"791dcf4f-1a7f-2347-997c-27eed6cf3948"] +Cell[BoxData["674.8474263523988`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, {3.994074198207098*^9, 3.9940742151610737`*^9}, { + 3.99407425063161*^9, 3.9940742706025248`*^9}}, + CellLabel-> + "Out[373]=",ExpressionUUID->"be7fc9b0-8863-48a4-9c93-e6fa73bf15df"] }, Open ]], -Cell[BoxData[ - RowBox[{"f1", "="}]], "Input", - CellChangeTimes->{ - 3.991799412462593*^9},ExpressionUUID->"8ee71d5b-854f-5949-88a2-\ -843ffd08641f"], - -Cell[BoxData[""], "Input", - CellChangeTimes->{{3.99184866880085*^9, - 3.9918486688048573`*^9}},ExpressionUUID->"13f65097-48a8-0b48-8f26-\ -bfa63ff56738"], +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", - CellChangeTimes->{ - 3.991799414288656*^9},ExpressionUUID->"6c8cc5df-ad31-9945-825b-\ -23c469148e55"], + RowBox[{"f1", "=", "0.8651148068"}]], "Input", + CellChangeTimes->{3.991799412462593*^9, 3.9940741242012*^9}, + CellLabel-> + "In[374]:=",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], + +Cell[BoxData["0.8651148068`"], "Output", + CellChangeTimes->{{3.994074198219789*^9, 3.994074215171755*^9}, { + 3.994074250641361*^9, 3.994074270614637*^9}}, + CellLabel-> + "Out[374]=",ExpressionUUID->"0bd94ba6-1cac-4885-9c50-f0aaea4b607a"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.991848669922333*^9, - 3.9918486699293537`*^9}},ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-\ -049e50ab8a2a"], + CellChangeTimes->{{3.99184866880085*^9, 3.9918486688048573`*^9}}, + CellLabel-> + "In[375]:=",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f2", "=", "0.5059509024"}]], "Input", + CellChangeTimes->{3.991799414288656*^9, 3.9940741307863007`*^9}, + CellLabel-> + "In[376]:=",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], + +Cell[BoxData["0.5059509024`"], "Output", + CellChangeTimes->{{3.994074198240467*^9, 3.994074215185959*^9}, { + 3.994074250653763*^9, 3.994074270636191*^9}}, + CellLabel-> + "Out[376]=",ExpressionUUID->"d6386bd1-b2d0-4b17-ab3b-701bcc9a5f2f"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848669922333*^9, 3.9918486699293537`*^9}}, + CellLabel-> + "In[377]:=",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], Cell[CellGroupData[{ @@ -4620,11 +4952,15 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], ")"}]}]], "Input", - CellLabel->"In[67]:=",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], + CellLabel-> + "In[378]:=",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], -Cell[BoxData["2.3793916761039797`*^-53"], "Output", - CellChangeTimes->{3.99132042156752*^9}, - CellLabel->"Out[67]=",ExpressionUUID->"83707082-f118-c146-a95c-693158b61875"] +Cell[BoxData["1.459454531271633`*^-53"], "Output", + CellChangeTimes->{ + 3.99132042156752*^9, {3.994074198263475*^9, 3.9940742151977797`*^9}, { + 3.994074250665307*^9, 3.994074270658412*^9}}, + CellLabel-> + "Out[378]=",ExpressionUUID->"5667e4df-77af-465e-9a0c-eec33bd9d257"] }, Open ]], Cell[CellGroupData[{ @@ -4658,13 +4994,16 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", - CellChangeTimes->{ - 3.991557471461853*^9},ExpressionUUID->"4237f61c-7340-ae4e-a030-\ -5501c3a85c24"], + CellChangeTimes->{3.991557471461853*^9}, + CellLabel-> + "In[379]:=",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], -Cell[BoxData["2.192147584896785`*^-54"], "Output", - CellChangeTimes->{3.99132042159643*^9}, - CellLabel->"Out[68]=",ExpressionUUID->"93dbdfa1-2e9a-2d49-80d6-05af3e592734"] +Cell[BoxData["1.2661663246992573`*^-54"], "Output", + CellChangeTimes->{ + 3.99132042159643*^9, {3.994074198275263*^9, 3.994074215207182*^9}, { + 3.9940742506747217`*^9, 3.9940742706684837`*^9}}, + CellLabel-> + "Out[379]=",ExpressionUUID->"765d9cd9-e681-4321-872e-28ffe14fdf9d"] }, Open ]], Cell[CellGroupData[{ @@ -4697,13 +5036,16 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}]], "Input", - CellChangeTimes->{{3.991557474366678*^9, - 3.99155747655138*^9}},ExpressionUUID->"8a758118-d07d-d243-b7d7-\ -f8e668175458"], + CellChangeTimes->{{3.991557474366678*^9, 3.99155747655138*^9}}, + CellLabel-> + "In[380]:=",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], -Cell[BoxData["3.508823705223133`*^-54"], "Output", - CellChangeTimes->{3.9913204216085243`*^9}, - CellLabel->"Out[69]=",ExpressionUUID->"afd7d2f8-cc87-734c-9c81-c0621f31e0e5"] +Cell[BoxData["2.785221156803702`*^-54"], "Output", + CellChangeTimes->{ + 3.9913204216085243`*^9, {3.994074198287849*^9, 3.9940742152168703`*^9}, { + 3.994074250683793*^9, 3.994074270679707*^9}}, + CellLabel-> + "Out[380]=",ExpressionUUID->"51642a1c-b675-49b6-ad25-93eee018f740"] }, Open ]], Cell[CellGroupData[{ @@ -4727,18 +5069,19 @@ Cell[BoxData[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", CellLabel-> - "In[670]:=",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], + "In[381]:=",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], -Cell[BoxData["20.232611751799567`"], "Output", +Cell[BoxData["12.632463348937872`"], "Output", CellChangeTimes->{ 3.991323706886154*^9, 3.9917089973478775`*^9, 3.9920860582546215`*^9, 3.992086268464361*^9, 3.992086312066765*^9, 3.9920865713192253`*^9, 3.992086602134493*^9, 3.9920866682814503`*^9, {3.992086776768282*^9, 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.9920915619364376`*^9, 3.9920915885645847`*^9}, {3.994074198297542*^9, + 3.994074215226124*^9}, {3.9940742506926928`*^9, 3.994074270691636*^9}}, CellLabel-> - "Out[670]=",ExpressionUUID->"0432d540-b940-d44f-87c2-61a0d876fa3f"] + "Out[381]=",ExpressionUUID->"34db26c6-a7d2-4daa-aea1-acf0cc18ab73"] }, Open ]], Cell[CellGroupData[{ @@ -4765,18 +5108,19 @@ Cell[BoxData[ RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", CellChangeTimes->{3.992086162437586*^9}, CellLabel-> - "In[671]:=",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], + "In[382]:=",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], -Cell[BoxData["61.811743284264836`"], "Output", +Cell[BoxData["46.0205305394253`"], "Output", CellChangeTimes->{ 3.9913204216685333`*^9, 3.9917083768681793`*^9, 3.9920862684823704`*^9, 3.992086312091795*^9, 3.9920865713392296`*^9, 3.9920866021582546`*^9, 3.992086668289461*^9, {3.992086776775297*^9, 3.9920868041333256`*^9}, 3.992091247484524*^9, {3.9920913926676064`*^9, 3.9920914468313007`*^9}, { 3.9920915031479607`*^9, 3.9920915226223583`*^9}, {3.9920915619450817`*^9, - 3.992091588571615*^9}}, + 3.992091588571615*^9}, {3.994074198309195*^9, 3.994074215235482*^9}, { + 3.994074250701788*^9, 3.994074270702826*^9}}, CellLabel-> - "Out[671]=",ExpressionUUID->"d6001eae-8a76-854e-9f93-fc6d9f888546"] + "Out[382]=",ExpressionUUID->"3776b6d2-04a0-4f5b-9f42-27d25693c208"] }, Open ]], Cell[CellGroupData[{ @@ -4786,18 +5130,19 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", CellLabel-> - "In[672]:=",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], + "In[383]:=",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], -Cell[BoxData["2.078701539535334`"], "Output", +Cell[BoxData["2.012141345084185`"], "Output", CellChangeTimes->{ 3.9913237069236546`*^9, 3.9917089973924427`*^9, 3.9920860582606277`*^9, 3.9920862684883747`*^9, 3.992086312111845*^9, 3.9920865713602333`*^9, 3.992086602164238*^9, 3.9920866683116226`*^9, {3.9920867767991753`*^9, 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.9920915619686337`*^9, 3.992091588596325*^9}, {3.9940741983220673`*^9, + 3.9940742152447433`*^9}, {3.994074250713139*^9, 3.994074270714025*^9}}, CellLabel-> - "Out[672]=",ExpressionUUID->"529ddbf3-d030-9b49-9390-e82eea1b6cd9"] + "Out[383]=",ExpressionUUID->"b11af5e8-41fc-4e30-8c08-2e5d3ad1622a"] }, Open ]], Cell[CellGroupData[{ @@ -4808,17 +5153,19 @@ Cell[BoxData[ FractionBox["Kw", "Qw2"]]}]], "Input", CellChangeTimes->{{3.992086303949501*^9, 3.992086304210249*^9}}, CellLabel-> - "In[673]:=",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], + "In[384]:=",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], -Cell[BoxData["5.12428714806174`"], "Output", +Cell[BoxData["3.8293669742119554`"], "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.992091522636343*^9}, {3.992091561975609*^9, 3.99209158860334*^9}, { + 3.994074198333413*^9, 3.9940742152536077`*^9}, {3.994074250722889*^9, + 3.9940742707261477`*^9}}, CellLabel-> - "Out[673]=",ExpressionUUID->"1efb03b1-ddd9-3544-b911-a583d1e1d12c"] + "Out[384]=",ExpressionUUID->"de6823e9-192e-4070-8385-ab226f9ac981"] }, Open ]], Cell[CellGroupData[{ @@ -4829,18 +5176,19 @@ Cell[BoxData[ RowBox[{"Qw2", "*", "hw"}], "1"]}]], "Input", CellChangeTimes->{3.992086167409481*^9}, CellLabel-> - "In[674]:=",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], + "In[385]:=",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], -Cell[BoxData["316.7411217108498`"], "Output", +Cell[BoxData["176.22949978338795`"], "Output", CellChangeTimes->{ 3.9913204217554817`*^9, 3.9917083769190636`*^9, 3.9920862684953804`*^9, 3.992086312138464*^9, 3.992086571391514*^9, 3.9920866022223396`*^9, 3.9920866683466625`*^9, {3.9920867768341465`*^9, 3.9920868041850357`*^9}, 3.992091247547844*^9, {3.9920913927375374`*^9, 3.992091446867302*^9}, { 3.992091503209553*^9, 3.992091522657341*^9}, {3.992091561999613*^9, - 3.9920915886284447`*^9}}, + 3.9920915886284447`*^9}, {3.9940741983455667`*^9, 3.994074215264226*^9}, { + 3.994074250732257*^9, 3.994074270737913*^9}}, CellLabel-> - "Out[674]=",ExpressionUUID->"0c2f4a5d-aa8f-1846-8930-72520d6d68fa"] + "Out[385]=",ExpressionUUID->"1f9e653c-8f4d-4a2b-924d-7a72848bfea2"] }, Open ]], Cell[CellGroupData[{ @@ -4850,18 +5198,19 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[675]:=",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], + "In[386]:=",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], -Cell[BoxData["42.05756119728645`"], "Output", +Cell[BoxData["25.418301794658518`"], "Output", CellChangeTimes->{ 3.9913237069753113`*^9, 3.99170899744343*^9, 3.992086058291689*^9, 3.9920862685164757`*^9, 3.992086312143465*^9, 3.9920865713975163`*^9, 3.99208660222736*^9, 3.9920866683701725`*^9, {3.9920867768552227`*^9, 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.992091562006651*^9, 3.992091588636162*^9}, {3.994074198358532*^9, + 3.994074215274107*^9}, {3.994074250741933*^9, 3.994074270749449*^9}}, CellLabel-> - "Out[675]=",ExpressionUUID->"51b96550-e411-8f49-ae52-0ef4087a9cca"] + "Out[386]=",ExpressionUUID->"46c51d08-5cc2-4704-9167-2f2e09ec67b9"] }, Open ]], Cell[CellGroupData[{ @@ -5051,18 +5400,19 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[676]:=",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], + "In[387]:=",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], -Cell[BoxData["0.007069898460535921`"], "Output", +Cell[BoxData["0.0058436734394963046`"], "Output", CellChangeTimes->{ 3.991323707000412*^9, 3.991708997465433*^9, 3.9920860583187714`*^9, 3.992086268523493*^9, 3.9920863121684647`*^9, 3.9920865714232826`*^9, 3.992086602254381*^9, {3.992086776882221*^9, 3.9920868042180786`*^9}, 3.992091247578861*^9, {3.9920913927664986`*^9, 3.992091446900387*^9}, { 3.992091503241564*^9, 3.9920915226853714`*^9}, {3.9920915620301514`*^9, - 3.992091588657053*^9}}, + 3.992091588657053*^9}, {3.994074198368806*^9, 3.994074215286108*^9}, { + 3.9940742507589617`*^9, 3.994074270762773*^9}}, CellLabel-> - "Out[676]=",ExpressionUUID->"ae5a263d-347a-6e47-95a0-f7c420f4dc91"] + "Out[387]=",ExpressionUUID->"af68c21a-f82e-436e-af66-2a931b1fbb72"] }, Open ]], Cell[CellGroupData[{ @@ -5076,17 +5426,19 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[677]:=",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], + "In[388]:=",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], -Cell[BoxData["10.539945190547895`"], "Output", +Cell[BoxData["11.59316378490898`"], "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.9920915227624416`*^9}, {3.9920915621031647`*^9, + 3.9920915887305927`*^9}, {3.9940741995880957`*^9, 3.994074215326008*^9}, { + 3.994074250810184*^9, 3.9940742708370953`*^9}}, CellLabel-> - "Out[677]=",ExpressionUUID->"eb964dd3-b4a5-124b-bf6d-21f5f9718a4e"] + "Out[388]=",ExpressionUUID->"df4c5a65-2b0a-47de-af2c-e628799ca0bc"] }, Open ]], Cell[BoxData[ @@ -5099,7 +5451,7 @@ Cell[BoxData[ 3.9920863634349823`*^9}, {3.9920864985362244`*^9, 3.992086501430176*^9}, { 3.9920869541635437`*^9, 3.992086954848522*^9}}, CellLabel-> - "In[678]:=",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], + "In[389]:=",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], Cell[CellGroupData[{ @@ -5121,11 +5473,15 @@ Cell[BoxData[ FractionBox[ RowBox[{"Ih", "*", "Ir"}], RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", - CellLabel->"In[70]:=",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], + CellLabel-> + "In[390]:=",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], -Cell[BoxData["44.37747929594205`"], "Output", - CellChangeTimes->{3.991320421637537*^9}, - CellLabel->"Out[70]=",ExpressionUUID->"e4d9d77a-b508-454c-baed-04aa4a4ef418"] +Cell[BoxData["33.94280293120764`"], "Output", + CellChangeTimes->{ + 3.991320421637537*^9, {3.994074199680632*^9, 3.994074215339795*^9}, { + 3.9940742508320227`*^9, 3.994074270855418*^9}}, + CellLabel-> + "Out[390]=",ExpressionUUID->"384d3d6c-f2c0-49d4-9ac7-c502c9c74a33"] }, Open ]], Cell[CellGroupData[{ @@ -5150,11 +5506,15 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", - CellLabel->"In[71]:=",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], + CellLabel-> + "In[391]:=",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], -Cell[BoxData["66.74356871519693`"], "Output", - CellChangeTimes->{3.9913204216685333`*^9}, - CellLabel->"Out[71]=",ExpressionUUID->"3007515b-4da6-bf4e-9b4f-90b429e2dd04"] +Cell[BoxData["46.0205305394253`"], "Output", + CellChangeTimes->{ + 3.9913204216685333`*^9, {3.994074199693596*^9, 3.9940742153485193`*^9}, { + 3.9940742508424683`*^9, 3.99407427086861*^9}}, + CellLabel-> + "Out[391]=",ExpressionUUID->"1af4f503-8568-4897-982b-064d336e29a1"] }, Open ]], Cell[CellGroupData[{ @@ -5163,11 +5523,15 @@ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb3"]]}]], "Input", - CellLabel->"In[72]:=",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], + CellLabel-> + "In[392]:=",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], -Cell[BoxData["0.5630879721742558`"], "Output", - CellChangeTimes->{3.991320421698473*^9}, - CellLabel->"Out[72]=",ExpressionUUID->"f6274504-766f-8549-a4a8-fd0e803dda86"] +Cell[BoxData["1.227520226789017`"], "Output", + CellChangeTimes->{ + 3.991320421698473*^9, {3.9940741997057457`*^9, 3.994074215357786*^9}, { + 3.994074250853683*^9, 3.994074270879434*^9}}, + CellLabel-> + "Out[392]=",ExpressionUUID->"dea3b074-5a73-4b50-8ca4-db6f0bfbb8f0"] }, Open ]], Cell[CellGroupData[{ @@ -5176,11 +5540,15 @@ Cell[BoxData[ RowBox[{"hw", "=", SqrtBox[ FractionBox["Kw", "Qw3"]]}]], "Input", - CellLabel->"In[73]:=",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], + CellLabel-> + "In[393]:=",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], -Cell[BoxData["2.425270911118517`"], "Output", - CellChangeTimes->{3.991320421726494*^9}, - CellLabel->"Out[73]=",ExpressionUUID->"72d24546-97b5-7344-98ec-019068f7b9fb"] +Cell[BoxData["3.8293669742119554`"], "Output", + CellChangeTimes->{ + 3.991320421726494*^9, {3.9940741997182503`*^9, 3.99407421536747*^9}, { + 3.994074250864511*^9, 3.9940742708905907`*^9}}, + CellLabel-> + "Out[393]=",ExpressionUUID->"c7ff1ef9-6135-47ae-96c7-6a73f9ca9a32"] }, Open ]], Cell[CellGroupData[{ @@ -5189,11 +5557,15 @@ Cell[BoxData[ RowBox[{"Cw", "=", FractionBox[ RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", - CellLabel->"In[74]:=",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], + CellLabel-> + "In[394]:=",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], -Cell[BoxData["161.87123570920699`"], "Output", - CellChangeTimes->{3.9913204217554817`*^9}, - CellLabel->"Out[74]=",ExpressionUUID->"7075b380-afe9-8b44-acc9-29433a09a866"] +Cell[BoxData["176.22949978338795`"], "Output", + CellChangeTimes->{ + 3.9913204217554817`*^9, {3.994074199730392*^9, 3.994074215377249*^9}, { + 3.994074250874675*^9, 3.994074270900147*^9}}, + CellLabel-> + "Out[394]=",ExpressionUUID->"a5b97bab-2804-4112-ac62-af681ab40920"] }, Open ]], Cell[CellGroupData[{ @@ -5202,11 +5574,15 @@ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", - CellLabel->"In[75]:=",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], + CellLabel-> + "In[395]:=",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], -Cell[BoxData["24.98842482695703`"], "Output", - CellChangeTimes->{3.9913204217855225`*^9}, - CellLabel->"Out[75]=",ExpressionUUID->"667394bf-ade3-1944-8cac-a719104b58af"] +Cell[BoxData["41.66547715197091`"], "Output", + CellChangeTimes->{ + 3.9913204217855225`*^9, {3.994074199741832*^9, 3.994074215387385*^9}, { + 3.994074250886279*^9, 3.994074270909623*^9}}, + CellLabel-> + "Out[395]=",ExpressionUUID->"80e5fffc-1bbb-46db-a342-5d70545f8ca3"] }, Open ]], Cell[CellGroupData[{ @@ -5395,11 +5771,15 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel->"In[76]:=",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], + CellLabel-> + "In[396]:=",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], -Cell[BoxData["0.020440609994923815`"], "Output", - CellChangeTimes->{3.9913204218154297`*^9}, - CellLabel->"Out[76]=",ExpressionUUID->"bdb345c8-7c0c-3e4d-96c3-d5d94768456f"] +Cell[BoxData["0.005336964975288699`"], "Output", + CellChangeTimes->{ + 3.9913204218154297`*^9, {3.9940741997561007`*^9, 3.994074215400733*^9}, { + 3.9940742508962*^9, 3.994074270920444*^9}}, + CellLabel-> + "Out[396]=",ExpressionUUID->"a4495230-3d33-4920-8527-ece80fea158d"] }, Open ]], Cell[CellGroupData[{ @@ -5412,11 +5792,17 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel->"In[77]:=",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], + Background->RGBColor[0.4, 0.6, 1, 0.33], + CellLabel-> + "In[397]:=",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], -Cell[BoxData["6.198662839936796`"], "Output", - CellChangeTimes->{3.991320422776104*^9}, - CellLabel->"Out[77]=",ExpressionUUID->"a136c49d-6dd1-8a4a-9add-7300e6132adb"] +Cell[BoxData["12.131032446982994`"], "Output", + CellChangeTimes->{ + 3.991320422776104*^9, {3.994074200886825*^9, 3.994074215448633*^9}, { + 3.994074250935944*^9, 3.9940742709616203`*^9}}, + Background->RGBColor[0.14, 0.8, 0.14, 0.33], + CellLabel-> + "Out[397]=",ExpressionUUID->"38fbeeef-09af-4e17-b2ce-56357eaa0c05"] }, Open ]], Cell[CellGroupData[{ @@ -5607,11 +5993,15 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel->"In[78]:=",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], + CellLabel-> + "In[398]:=",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], -Cell[BoxData["0.01158648853220534`"], "Output", - CellChangeTimes->{3.9913204229248886`*^9}, - CellLabel->"Out[78]=",ExpressionUUID->"85a24dde-0aa6-984c-b7a3-ccfa87afb6cd"] +Cell[BoxData["0.02319343186714865`"], "Output", + CellChangeTimes->{ + 3.9913204229248886`*^9, {3.994074200919361*^9, 3.9940742154600782`*^9}, { + 3.9940742509467087`*^9, 3.994074270975938*^9}}, + CellLabel-> + "Out[398]=",ExpressionUUID->"43ffb152-05c4-4d7a-85e8-9f5c899c8cb6"] }, Open ]], Cell[CellGroupData[{ @@ -5624,11 +6014,15 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel->"In[79]:=",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], + CellLabel-> + "In[399]:=",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], -Cell[BoxData["8.233206772574567`"], "Output", - CellChangeTimes->{3.9913204230053368`*^9}, - CellLabel->"Out[79]=",ExpressionUUID->"9a87dba6-1411-3f4b-a17f-9d7a664889bd"] +Cell[BoxData["5.819188605423421`"], "Output", + CellChangeTimes->{ + 3.9913204230053368`*^9, {3.994074201992614*^9, 3.994074215499655*^9}, { + 3.994074250986095*^9, 3.9940742710175953`*^9}}, + CellLabel-> + "Out[399]=",ExpressionUUID->"1dfa5f9c-5715-4737-a920-5b4f3ffdc16f"] }, Open ]], Cell[CellGroupData[{ @@ -5720,11 +6114,15 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel->"In[80]:=",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], + CellLabel-> + "In[400]:=",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], -Cell[BoxData["0.6154782275967796`"], "Output", - CellChangeTimes->{3.9913204230393543`*^9}, - CellLabel->"Out[80]=",ExpressionUUID->"39ebfd06-20a8-e945-ae56-55ff95d26618"] +Cell[BoxData["0.09071336685848984`"], "Output", + CellChangeTimes->{ + 3.9913204230393543`*^9, {3.994074202010682*^9, 3.994074215510565*^9}, { + 3.994074250997757*^9, 3.994074271032035*^9}}, + CellLabel-> + "Out[400]=",ExpressionUUID->"61500c6b-fd21-429f-a8d7-8f81dcf3b6c5"] }, Open ]], Cell[CellGroupData[{ @@ -5813,11 +6211,15 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel->"In[81]:=",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], + CellLabel-> + "In[401]:=",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], -Cell[BoxData["0.3845217724032204`"], "Output", - CellChangeTimes->{3.9913204230728855`*^9}, - CellLabel->"Out[81]=",ExpressionUUID->"6c617ce1-6ebd-9d43-be44-73f7ca23a829"] +Cell[BoxData["0.9092866331415103`"], "Output", + CellChangeTimes->{ + 3.9913204230728855`*^9, {3.9940742020198917`*^9, 3.994074215521675*^9}, { + 3.9940742510100594`*^9, 3.994074271043561*^9}}, + CellLabel-> + "Out[401]=",ExpressionUUID->"26a10b34-a614-4bc7-ac45-b38f6f4a1eff"] }, Open ]], Cell[CellGroupData[{ @@ -5939,17 +6341,22 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", - CellLabel->"In[82]:=",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], + CellLabel-> + "In[402]:=",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], -Cell[BoxData["0.2366647789511063`"], "Output", - CellChangeTimes->{3.9913204231038837`*^9}, - CellLabel->"Out[82]=",ExpressionUUID->"145fcb0a-d842-9a43-9617-34577d485689"] +Cell[BoxData["0.08248445193168688`"], "Output", + CellChangeTimes->{ + 3.9913204231038837`*^9, {3.994074202029213*^9, 3.994074215534404*^9}, { + 3.994074251022365*^9, 3.994074271056501*^9}}, + CellLabel-> + "Out[402]=",ExpressionUUID->"46490ee9-2e34-4a9b-b167-aec1b8012b07"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", - RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"1cc34a71-05ee-\ -424c-ba53-995669bbcd65"], + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellLabel-> + "In[403]:=",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], Cell[CellGroupData[{ @@ -6010,67 +6417,85 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.991799443370365*^9}, + CellLabel-> + "In[404]:=",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.48886173732191`*^-210\\\", \ +RowBox[{\\\"365000401101666289871540890002851771561345\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"22\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"776615764066213134598144000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 404, + 13, 31386465561875806036, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{ - 3.991799443370365*^9},ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-\ -3a94fbdbad18"], + 3.9913204231548862`*^9, {3.994074202050344*^9, 3.994074215550412*^9}, { + 3.9940742510399227`*^9, 3.994074271078269*^9}}, + CellLabel-> + "During evaluation of \ +In[404]:=",ExpressionUUID->"8fa45948-8bf7-4a54-9ea4-632fb5f04040"], 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, 83, 1, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913204231548862`*^9}, + "\"\\!\\(\\*FractionBox[\\\"8.857990908815061`*^-215\\\", \ +RowBox[{\\\"706640776532825937191303163045521029742764\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"25\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"528119232188628582006784000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 404, + 14, 31386465561875806036, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{ + 3.9913204231548862`*^9, {3.994074202050344*^9, 3.994074215550412*^9}, { + 3.9940742510399227`*^9, 3.994074271082623*^9}}, CellLabel-> "During evaluation of \ -In[83]:=",ExpressionUUID->"be9831d8-a262-3541-9040-ad5e31b2eb28"], +In[404]:=",ExpressionUUID->"397cbaa6-1abf-4588-a667-04d7dcafa3b3"], 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, 83, 2, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913204231788826`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.2092105844904933`*^-219\\\", \ +RowBox[{\\\"143094757247897252281238890516718008522909\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"29\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"441445181972878563737600000000000000000000\\\"}]]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 404, + 15, 31386465561875806036, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{ + 3.9913204231548862`*^9, {3.994074202050344*^9, 3.994074215550412*^9}, { + 3.9940742510399227`*^9, 3.994074271085034*^9}}, CellLabel-> "During evaluation of \ -In[83]:=",ExpressionUUID->"31896901-1c82-aa4e-bb9a-c09e2220f684"], - -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, 83, 3, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991320423191887*^9}, - CellLabel-> - "During evaluation of \ -In[83]:=",ExpressionUUID->"aa16e061-5976-9143-8add-7376f3059569"], +In[404]:=",ExpressionUUID->"5d56125c-00bf-46a9-87f3-526de5a7aaa6"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 83, 4, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991320423200884*^9}, +during this calculation.\"", 2, 404, 16, 31386465561875806036, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{ + 3.9913204231548862`*^9, {3.994074202050344*^9, 3.994074215550412*^9}, { + 3.9940742510399227`*^9, 3.99407427108718*^9}}, CellLabel-> "During evaluation of \ -In[83]:=",ExpressionUUID->"68730c15-5e57-ca48-8468-735233dec44d"], +In[404]:=",ExpressionUUID->"b95cdd48-c445-42e3-a155-55465a58e2f0"], -Cell[BoxData["6.198662839936798`"], "Output", - CellChangeTimes->{3.9913204260017204`*^9}, - CellLabel->"Out[83]=",ExpressionUUID->"9deaa7ff-19fe-b345-ae65-d7f8adce193c"] +Cell[BoxData["$Aborted"], "Output", + CellChangeTimes->{ + 3.9913204260017204`*^9, {3.994074202828598*^9, 3.994074216751202*^9}, { + 3.994074251569977*^9, 3.9940742721299953`*^9}}, + CellLabel-> + "Out[404]=",ExpressionUUID->"368bd8e6-f2da-4484-ba61-814264e48140"] }, Open ]], Cell[CellGroupData[{ @@ -6479,8 +6904,8 @@ v816fiUGr+eg0YII9v8BEOUgTQ== "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>], - ImageSizeCache->{{91.80048673422974, - 202.74756866009872`}, {-11.626778089982832`, 5.710721910017167}}], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], Selectable->False]}, Annotation[{{{{}, {}, Annotation[{ @@ -7516,9 +7941,72 @@ HbLGog== Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", - RowBox[{"{", "}"}], "]"}]}]], "Input", - CellChangeTimes->{{3.991799458254999*^9, - 3.9917994623413925`*^9}},ExpressionUUID->"d9d63445-4981-8f49-b88b-\ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.005263"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.01561"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.025439"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.034428"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.042324"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.048911"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.054071"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.057726"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.059905"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.060662"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.060144"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.058493"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.055924"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.052616"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.048792"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.044623"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.040302"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.035956"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.031726"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.027689"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.023931"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.020479"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.017372"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.014605"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.012182"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.010077"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.008278"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.006747"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.005464"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.004393"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.003512"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.994236230518815*^9},ExpressionUUID->"d9d63445-4981-8f49-b88b-\ 9e93d345c648"], Cell[BoxData[ @@ -13679,13 +14167,16 @@ Cell[BoxData["0.08333108480569339`"], "Output", CellChangeTimes->{3.9913279320452003`*^9}, CellLabel-> "Out[146]=",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"] -}, Open ]] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input",ExpressionUUID->"68695c7d-ff3e-440c-830c-d4e196fe93e9"] }, -WindowSize->{718.5, 729.75}, -WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +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)", +Magnification:>1.5 Inherited, +FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", StyleDefinitions->"Default.nb", ExpressionUUID->"8af74bcb-cc50-f64a-8d83-c4bf7188d038" ] @@ -13701,625 +14192,662 @@ CellTagsIndex->{} (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ -Cell[576, 22, 229, 5, 22, "Input",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], -Cell[808, 29, 149, 2, 25, "Output",ExpressionUUID->"2e7f3b17-b448-644d-bafd-ec5aa11fe78b"] +Cell[576, 22, 354, 7, 99, "Input",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], +Cell[933, 31, 260, 5, 62, "Output",ExpressionUUID->"f9762e12-9267-47fa-8806-6002245e3fc8"] }, Open ]], Cell[CellGroupData[{ -Cell[994, 36, 179, 4, 22, "Input",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], -Cell[1176, 42, 152, 2, 25, "Output",ExpressionUUID->"d21d7bec-caad-aa4f-9200-81feafc4acec"] +Cell[1230, 41, 253, 5, 55, "Input",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], +Cell[1486, 48, 260, 5, 62, "Output",ExpressionUUID->"9df34e1f-52ce-4cb7-89e2-b1ed3fd66791"] }, Open ]], Cell[CellGroupData[{ -Cell[1365, 49, 147, 4, 22, "Input",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], -Cell[1515, 55, 152, 2, 25, "Output",ExpressionUUID->"a2a1281d-2cdd-5d4c-b7c6-d26236e66b80"] +Cell[1783, 58, 226, 5, 55, "Input",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], +Cell[2012, 65, 260, 5, 62, "Output",ExpressionUUID->"3e4b3a96-72b8-4abf-aeab-219b4c959203"] }, Open ]], Cell[CellGroupData[{ -Cell[1704, 62, 175, 3, 22, "Input",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], -Cell[1882, 67, 152, 2, 25, "Output",ExpressionUUID->"4fa6d65b-1d5c-4f45-949a-d7045f28de30"] +Cell[2309, 75, 180, 4, 55, "Input",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], +Cell[2492, 81, 260, 5, 62, "Output",ExpressionUUID->"fc1febad-9fb8-4c03-a36a-50afa9cc7108"] }, Open ]], Cell[CellGroupData[{ -Cell[2071, 74, 257, 7, 35, "Input",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], -Cell[2331, 83, 168, 2, 25, "Output",ExpressionUUID->"24d0db1b-9e75-3c46-9c8c-13704f881794"] +Cell[2789, 91, 262, 8, 81, "Input",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], +Cell[3054, 101, 273, 5, 62, "Output",ExpressionUUID->"089a5bc6-3818-49b5-8294-c6294311a0c2"] }, Open ]], Cell[CellGroupData[{ -Cell[2536, 90, 131, 2, 22, "Input",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], -Cell[2670, 94, 154, 2, 25, "Output",ExpressionUUID->"d898610f-2407-1a40-9f24-5be2dcfa557e"] +Cell[3364, 111, 136, 3, 55, "Input",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], +Cell[3503, 116, 259, 5, 62, "Output",ExpressionUUID->"f1ccd887-b52c-43c9-89b1-9239e5430c65"] }, Open ]], Cell[CellGroupData[{ -Cell[2861, 101, 276, 6, 22, "Input",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], -Cell[3140, 109, 167, 2, 25, "Output",ExpressionUUID->"27ff60eb-7aa7-9949-984d-d71d79c10129"] +Cell[3799, 126, 281, 7, 55, "Input",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], +Cell[4083, 135, 273, 5, 62, "Output",ExpressionUUID->"e11cbca4-2937-4fb2-a2eb-3c7299ba1fe6"] }, Open ]], Cell[CellGroupData[{ -Cell[3344, 116, 257, 7, 22, "Input",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], -Cell[3604, 125, 167, 2, 25, "Output",ExpressionUUID->"2b4ba32a-ab7d-7140-a043-bb4487278822"] +Cell[4393, 145, 262, 8, 55, "Input",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], +Cell[4658, 155, 273, 5, 62, "Output",ExpressionUUID->"d4e2a5d8-a7a2-475b-9487-873406d22677"] }, Open ]], -Cell[3786, 130, 147, 4, 22, "Input",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], -Cell[3936, 136, 147, 4, 22, "Input",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], Cell[CellGroupData[{ -Cell[4108, 144, 129, 2, 22, "Input",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], -Cell[4240, 148, 151, 2, 25, "Output",ExpressionUUID->"3d15ce67-15c8-f549-9c13-b8dddf0b6641"] +Cell[4968, 165, 209, 4, 55, "Input",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], +Cell[5180, 171, 237, 4, 62, "Output",ExpressionUUID->"5f151c0b-3551-4b0f-b0eb-a401e41c9fc2"] }, Open ]], Cell[CellGroupData[{ -Cell[4428, 155, 129, 2, 22, "Input",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], -Cell[4560, 159, 151, 2, 25, "Output",ExpressionUUID->"8f7b3ab0-4d46-6e46-be1a-60df9a3dcebd"] +Cell[5454, 180, 207, 4, 55, "Input",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], +Cell[5664, 186, 238, 4, 62, "Output",ExpressionUUID->"02059a2f-554c-4b90-9964-b6ffed1c19a1"] }, Open ]], Cell[CellGroupData[{ -Cell[4748, 166, 557, 19, 65, "Input",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], -Cell[5308, 187, 169, 2, 25, "Output",ExpressionUUID->"d0cab83a-649b-b14c-b85b-84835124aa09"] +Cell[5939, 195, 133, 3, 55, "Input",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], +Cell[6075, 200, 256, 5, 62, "Output",ExpressionUUID->"31c9ef03-a8d5-419e-bdc4-a3c74cc03bc4"] }, Open ]], Cell[CellGroupData[{ -Cell[5514, 194, 557, 19, 65, "Input",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], -Cell[6074, 215, 168, 2, 25, "Output",ExpressionUUID->"81304ae5-6353-154d-8b14-59a2dc55038b"] +Cell[6368, 210, 133, 3, 55, "Input",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], +Cell[6504, 215, 258, 5, 62, "Output",ExpressionUUID->"56b1ba07-dcd1-4dff-80a6-e2b24b5b2901"] }, Open ]], Cell[CellGroupData[{ -Cell[6279, 222, 1492, 48, 65, "Input",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], -Cell[7774, 272, 167, 2, 25, "Output",ExpressionUUID->"bdbb5f17-757a-b84a-b3ac-6309844818bf"] +Cell[6799, 225, 561, 20, 148, "Input",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], +Cell[7363, 247, 270, 5, 62, "Output",ExpressionUUID->"6dc056c6-e85c-41c4-8d0a-5d8b9ddae7d2"] }, Open ]], Cell[CellGroupData[{ -Cell[7978, 279, 1331, 44, 65, "Input",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], -Cell[9312, 325, 185, 3, 25, "Output",ExpressionUUID->"1dd72b7b-aeff-8747-91d0-6842e926f3b2"] +Cell[7670, 257, 561, 20, 148, "Input",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], +Cell[8234, 279, 271, 5, 62, "Output",ExpressionUUID->"5971dfaa-c94c-45df-8971-a09869eb43d1"] }, Open ]], Cell[CellGroupData[{ -Cell[9534, 333, 1331, 44, 65, "Input",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], -Cell[10868, 379, 187, 3, 25, "Output",ExpressionUUID->"d5bf6730-c400-e84f-827b-d40e35c83dad"] +Cell[8542, 289, 1592, 51, 639, "Input",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], +Cell[10137, 342, 272, 5, 62, "Output",ExpressionUUID->"f1a06989-a7de-46c4-b03d-9a750dcf58c8"] }, Open ]], Cell[CellGroupData[{ -Cell[11092, 387, 1492, 48, 65, "Input",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], -Cell[12587, 437, 166, 2, 25, "Output",ExpressionUUID->"006d42df-1417-1c4e-b4d9-45c05dee6889"] +Cell[10446, 352, 1426, 47, 561, "Input",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], +Cell[11875, 401, 290, 6, 62, "Output",ExpressionUUID->"5504cb81-c891-481c-8e7a-a777b4cf5f7d"] }, Open ]], Cell[CellGroupData[{ -Cell[12790, 444, 131, 2, 22, "Input",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], -Cell[12924, 448, 151, 2, 25, "Output",ExpressionUUID->"64d193ee-3f72-404e-9ca7-d3c855ce1a3f"] +Cell[12202, 412, 1426, 47, 561, "Input",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], +Cell[13631, 461, 291, 6, 62, "Output",ExpressionUUID->"f6642a88-88c6-46c5-8405-2b16fe6405a5"] }, Open ]], Cell[CellGroupData[{ -Cell[13112, 455, 133, 2, 22, "Input",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], -Cell[13248, 459, 153, 2, 25, "Output",ExpressionUUID->"8d37ba34-6f64-7d40-86af-bfe10ed7ecf9"] +Cell[13959, 472, 1592, 51, 639, "Input",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], +Cell[15554, 525, 269, 5, 62, "Output",ExpressionUUID->"e792967f-1e94-4818-8464-1d5064316cbc"] }, Open ]], Cell[CellGroupData[{ -Cell[13438, 466, 134, 2, 22, "Input",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], -Cell[13575, 470, 155, 2, 25, "Output",ExpressionUUID->"cf6fd933-5c85-3c47-a2fa-a53bc24bd1de"] +Cell[15860, 535, 135, 3, 55, "Input",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], +Cell[15998, 540, 258, 5, 62, "Output",ExpressionUUID->"693d205b-3ef2-4518-88fa-84bc7cf50447"] }, Open ]], Cell[CellGroupData[{ -Cell[13767, 477, 219, 4, 22, "Input",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], -Cell[13989, 483, 168, 3, 25, "Output",ExpressionUUID->"68c660da-f0f0-ad47-93fc-5a731457088a"] +Cell[16293, 550, 137, 3, 55, "Input",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], +Cell[16433, 555, 255, 5, 62, "Output",ExpressionUUID->"a7c39232-9068-448e-ad6a-4f30f2f26e89"] }, Open ]], Cell[CellGroupData[{ -Cell[14194, 491, 134, 2, 22, "Input",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], -Cell[14331, 495, 155, 2, 25, "Output",ExpressionUUID->"8f2a2cb7-00c0-6642-b771-a61c78864261"] +Cell[16725, 565, 138, 3, 55, "Input",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], +Cell[16866, 570, 262, 5, 62, "Output",ExpressionUUID->"a55ae702-b51d-4113-be61-6345ce492dc4"] }, Open ]], Cell[CellGroupData[{ -Cell[14523, 502, 248, 5, 22, "Input",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], -Cell[14774, 509, 152, 2, 25, "Output",ExpressionUUID->"55d6fafd-5f57-cf44-945d-c5c7fb1b087a"] +Cell[17165, 580, 223, 5, 55, "Input",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], +Cell[17391, 587, 272, 6, 62, "Output",ExpressionUUID->"7957c0c3-24f6-449d-8a3e-badebf9dbf51"] }, Open ]], Cell[CellGroupData[{ -Cell[14963, 516, 228, 5, 22, "Input",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], -Cell[15194, 523, 152, 2, 25, "Output",ExpressionUUID->"e4541cb8-be74-4140-af0a-812e02085534"] +Cell[17700, 598, 138, 3, 55, "Input",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], +Cell[17841, 603, 260, 5, 62, "Output",ExpressionUUID->"5efdd1cf-c8d8-4e12-b3a7-5766434c2c05"] }, Open ]], Cell[CellGroupData[{ -Cell[15383, 530, 219, 4, 22, "Input",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], -Cell[15605, 536, 151, 2, 25, "Output",ExpressionUUID->"41e65355-0d62-5849-876b-33938574e65a"] +Cell[18138, 613, 328, 6, 55, "Input",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], +Cell[18469, 621, 253, 5, 62, "Output",ExpressionUUID->"b084d395-d063-4ba6-9417-3466190acb62"] }, Open ]], Cell[CellGroupData[{ -Cell[15793, 543, 350, 10, 35, "Input",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], -Cell[16146, 555, 170, 2, 25, "Output",ExpressionUUID->"b6d3bf5f-35d3-5240-acc0-10ada08af661"] +Cell[18759, 631, 299, 6, 55, "Input",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], +Cell[19061, 639, 252, 5, 62, "Output",ExpressionUUID->"c765c8df-63cc-42f0-a521-78ad287ccf02"] }, Open ]], Cell[CellGroupData[{ -Cell[16353, 562, 350, 10, 35, "Input",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], -Cell[16706, 574, 186, 3, 25, "Output",ExpressionUUID->"5d506fa3-f740-ff4f-9786-10c7e1e82f78"] +Cell[19350, 649, 223, 5, 55, "Input",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], +Cell[19576, 656, 257, 5, 62, "Output",ExpressionUUID->"3386464b-a6af-492c-af10-1c78731e4151"] }, Open ]], Cell[CellGroupData[{ -Cell[16929, 582, 975, 27, 92, "Input",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], -Cell[17907, 611, 169, 2, 25, "Output",ExpressionUUID->"02f8af82-a9df-4342-9d73-750f12d42e7b"] +Cell[19870, 666, 354, 11, 81, "Input",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], +Cell[20227, 679, 275, 5, 62, "Output",ExpressionUUID->"94bfc6db-9198-49f1-a9f3-94ba6ed8e927"] }, Open ]], Cell[CellGroupData[{ -Cell[18113, 618, 199, 3, 22, "Input",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], -Cell[18315, 623, 151, 2, 25, "Output",ExpressionUUID->"1ee0020e-da30-7b46-8f5c-7602d78cb1cb"] +Cell[20539, 689, 354, 11, 81, "Input",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], +Cell[20896, 702, 288, 6, 62, "Output",ExpressionUUID->"7df2e02d-ceb9-4e02-b431-c4e3dc07a1ae"] }, Open ]], -Cell[18481, 628, 250, 5, 22, "Input",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], -Cell[18734, 635, 154, 3, 22, "Input",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], -Cell[18891, 640, 250, 5, 22, "Input",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], -Cell[19144, 647, 154, 3, 22, "Input",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], -Cell[19301, 652, 251, 5, 22, "Input",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], -Cell[19555, 659, 154, 3, 22, "Input",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], -Cell[19712, 664, 275, 5, 22, "Input",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], -Cell[19990, 671, 152, 3, 22, "Input",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], -Cell[20145, 676, 222, 5, 22, "Input",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], -Cell[20370, 683, 152, 3, 22, "Input",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], -Cell[20525, 688, 226, 5, 22, "Input",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], -Cell[20754, 695, 154, 3, 22, "Input",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], -Cell[20911, 700, 229, 5, 22, "Input",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], -Cell[21143, 707, 153, 3, 22, "Input",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], -Cell[21299, 712, 198, 4, 22, "Input",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], -Cell[21500, 718, 156, 3, 22, "Input",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], Cell[CellGroupData[{ -Cell[21681, 725, 19809, 485, 1553, "Input",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], -Cell[41493, 1212, 167, 2, 25, "Output",ExpressionUUID->"6e3e2b1b-3430-b546-9dfc-ccd29250c9d7"] +Cell[21221, 713, 998, 27, 488, "Input",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], +Cell[22222, 742, 276, 5, 62, "Output",ExpressionUUID->"c90de278-6f4b-43a0-84bb-271f080c496b"] }, Open ]], Cell[CellGroupData[{ -Cell[41697, 1219, 19748, 489, 1579, "Input",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], -Cell[61448, 1710, 168, 2, 25, "Output",ExpressionUUID->"ca8af40c-4f04-8747-aa6f-9594ea3fb865"] +Cell[22535, 752, 203, 4, 55, "Input",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], +Cell[22741, 758, 258, 5, 62, "Output",ExpressionUUID->"f548e84f-605f-4274-97e2-3ddbb7d20a31"] }, Open ]], Cell[CellGroupData[{ -Cell[61653, 1717, 19748, 483, 1572, "Input",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], -Cell[81404, 2202, 183, 3, 25, "Output",ExpressionUUID->"43eaee96-3646-954d-899a-d1e3ee2edd5e"] +Cell[23036, 768, 331, 6, 55, "Input",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], +Cell[23370, 776, 235, 4, 62, "Output",ExpressionUUID->"0e689e33-997a-4bfb-bde3-b7ebe94d83f2"] }, Open ]], +Cell[23620, 783, 177, 3, 55, "Input",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], Cell[CellGroupData[{ -Cell[81624, 2210, 22534, 553, 1766, "Input",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], -Cell[104161, 2765, 182, 3, 25, "Output",ExpressionUUID->"a8d59888-f6f0-0746-9034-5e74c45610b1"] +Cell[23822, 790, 333, 6, 55, "Input",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], +Cell[24158, 798, 232, 4, 62, "Output",ExpressionUUID->"23abc775-7d15-4b54-956b-f4b88dbdb298"] }, Open ]], +Cell[24405, 805, 177, 3, 55, "Input",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], Cell[CellGroupData[{ -Cell[104380, 2773, 22535, 553, 1773, "Input",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], -Cell[126918, 3328, 185, 3, 25, "Output",ExpressionUUID->"dd5d5506-e4f6-7d4c-bcd9-ea70659f69e1"] +Cell[24607, 812, 336, 6, 55, "Input",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], +Cell[24946, 820, 231, 4, 62, "Output",ExpressionUUID->"285f7f9a-06e2-417c-b156-5d97ac66c414"] }, Open ]], +Cell[25192, 827, 177, 3, 55, "Input",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], Cell[CellGroupData[{ -Cell[127140, 3336, 25491, 626, 1984, "Input",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], -Cell[152634, 3964, 184, 3, 25, "Output",ExpressionUUID->"b983c8d8-6a34-fb4a-8a0a-8960e79ae993"] +Cell[25394, 834, 358, 6, 55, "Input",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], +Cell[25755, 842, 237, 4, 62, "Output",ExpressionUUID->"67719885-cd0e-433e-88e0-39f4ff4f62f3"] }, Open ]], +Cell[26007, 849, 175, 3, 55, "Input",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], Cell[CellGroupData[{ -Cell[152855, 3972, 130, 2, 22, "Input",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], -Cell[152988, 3976, 151, 2, 25, "Output",ExpressionUUID->"bb0c55af-9cf7-0443-8b24-f19c97d6c781"] +Cell[26207, 856, 303, 6, 55, "Input",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], +Cell[26513, 864, 237, 4, 62, "Output",ExpressionUUID->"28680976-e45d-497a-9c9f-9733bd0bae2a"] }, Open ]], +Cell[26765, 871, 175, 3, 55, "Input",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], Cell[CellGroupData[{ -Cell[153176, 3983, 130, 2, 22, "Input",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], -Cell[153309, 3987, 151, 2, 25, "Output",ExpressionUUID->"0d4bafbb-7685-ff43-aaa0-fe1597369669"] +Cell[26965, 878, 307, 6, 55, "Input",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], +Cell[27275, 886, 233, 4, 62, "Output",ExpressionUUID->"32be1364-5fd4-4df3-9515-955ffc31a2d9"] }, Open ]], +Cell[27523, 893, 177, 3, 55, "Input",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], Cell[CellGroupData[{ -Cell[153497, 3994, 1144, 39, 46, "Input",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], -Cell[154644, 4035, 167, 2, 25, "Output",ExpressionUUID->"25fde637-8846-5644-8daa-868231713f08"] +Cell[27725, 900, 311, 6, 55, "Input",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], +Cell[28039, 908, 232, 4, 62, "Output",ExpressionUUID->"0926821a-87af-4ceb-9932-a1ebc88c972b"] }, Open ]], +Cell[28286, 915, 176, 3, 55, "Input",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], Cell[CellGroupData[{ -Cell[154848, 4042, 1041, 35, 46, "Input",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], -Cell[155892, 4079, 184, 3, 25, "Output",ExpressionUUID->"222cd90e-6438-0a46-88d0-fcdd10fc9432"] +Cell[28487, 922, 279, 5, 55, "Input",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], +Cell[28769, 929, 231, 4, 62, "Output",ExpressionUUID->"63fcce57-2676-49ff-a853-6e78541ed516"] }, Open ]], +Cell[29015, 936, 179, 3, 55, "Input",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], Cell[CellGroupData[{ -Cell[156113, 4087, 1144, 39, 46, "Input",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], -Cell[157260, 4128, 169, 2, 25, "Output",ExpressionUUID->"b7d1d4d3-3e05-af4b-9683-83817f2bdc88"] +Cell[29219, 943, 19813, 486, 7166, "Input",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], +Cell[49035, 1431, 272, 5, 62, "Output",ExpressionUUID->"411a5131-3b33-45a0-894b-111161436c1a"] }, Open ]], Cell[CellGroupData[{ -Cell[157466, 4135, 108, 1, 22, "Input",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], -Cell[157577, 4138, 169, 2, 25, "Output",ExpressionUUID->"9fab72a0-15cc-f04b-8b2d-eafd610fbe08"] +Cell[49344, 1441, 19752, 490, 7205, "Input",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], +Cell[69099, 1933, 271, 5, 62, "Output",ExpressionUUID->"7a2946b6-15b0-4efc-891d-59318f57e0a0"] }, Open ]], Cell[CellGroupData[{ -Cell[157783, 4145, 108, 1, 22, "Input",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], -Cell[157894, 4148, 187, 3, 25, "Output",ExpressionUUID->"5baa5811-6d68-0847-bfa7-611a7f282595"] +Cell[69407, 1943, 19752, 484, 7204, "Input",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], +Cell[89162, 2429, 289, 6, 62, "Output",ExpressionUUID->"d3db5732-abdb-4f42-bb8e-c94398a97284"] }, Open ]], Cell[CellGroupData[{ -Cell[158118, 4156, 108, 1, 22, "Input",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], -Cell[158229, 4159, 185, 3, 25, "Output",ExpressionUUID->"66d60cf8-894b-f64c-bc5e-4862fc34e98d"] +Cell[89488, 2440, 22538, 554, 8281, "Input",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], +Cell[112029, 2996, 291, 6, 62, "Output",ExpressionUUID->"e04073d8-5cd1-4a34-a275-873f38cb9eae"] }, Open ]], Cell[CellGroupData[{ -Cell[158451, 4167, 108, 1, 22, "Input",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], -Cell[158562, 4170, 168, 2, 25, "Output",ExpressionUUID->"95baa4f5-66f1-b04e-8459-661f90319bc4"] +Cell[112357, 3007, 22539, 554, 8281, "Input",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], +Cell[134899, 3563, 292, 6, 62, "Output",ExpressionUUID->"ef0001a9-8dc6-4a72-936d-29f33ed46a0c"] }, Open ]], Cell[CellGroupData[{ -Cell[158767, 4177, 107, 1, 22, "Input",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], -Cell[158877, 4180, 169, 2, 25, "Output",ExpressionUUID->"de032191-9b61-7645-8f26-423f534a2cb1"] +Cell[135228, 3574, 25495, 627, 9401, "Input",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], +Cell[160726, 4203, 286, 6, 62, "Output",ExpressionUUID->"ada8cea0-0dc8-40e0-96d3-6bceecba2f99"] }, Open ]], Cell[CellGroupData[{ -Cell[159083, 4187, 107, 1, 22, "Input",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], -Cell[159193, 4190, 168, 2, 25, "Output",ExpressionUUID->"56b6e721-a4ff-f24f-9100-8013c893b0ae"] +Cell[161049, 4214, 134, 3, 55, "Input",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], +Cell[161186, 4219, 254, 5, 62, "Output",ExpressionUUID->"9ede69e9-fdd8-41d0-960e-c87c01875323"] }, Open ]], Cell[CellGroupData[{ -Cell[159398, 4197, 497, 16, 46, "Input",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], -Cell[159898, 4215, 186, 3, 25, "Output",ExpressionUUID->"ed7537ce-20e6-4246-aac0-4a4b9f4faed7"] +Cell[161477, 4229, 134, 3, 55, "Input",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], +Cell[161614, 4234, 254, 5, 62, "Output",ExpressionUUID->"bf992dd7-dd94-4316-9009-1e7e45b14028"] }, Open ]], Cell[CellGroupData[{ -Cell[160121, 4223, 497, 16, 46, "Input",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], -Cell[160621, 4241, 184, 3, 25, "Output",ExpressionUUID->"643b7429-505f-4045-a97f-7e6871b3f504"] +Cell[161905, 4244, 1148, 40, 628, "Input",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], +Cell[163056, 4286, 271, 5, 62, "Output",ExpressionUUID->"21ada3b5-49c8-4841-bda5-7066b8a0a78e"] }, Open ]], Cell[CellGroupData[{ -Cell[160842, 4249, 1788, 60, 109, "Input",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], -Cell[162633, 4311, 168, 2, 25, "Output",ExpressionUUID->"029098e5-22ab-9a4c-99ad-caac4d1307db"] +Cell[163364, 4296, 1045, 36, 625, "Input",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], +Cell[164412, 4334, 286, 6, 62, "Output",ExpressionUUID->"7c1e8e4b-9f34-48ad-86dd-7d5290ebb334"] }, Open ]], Cell[CellGroupData[{ -Cell[162838, 4318, 1101, 36, 64, "Input",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], -Cell[163942, 4356, 186, 3, 25, "Output",ExpressionUUID->"f7cceab2-e319-0345-98f3-b759ec5fa40c"] +Cell[164735, 4345, 1148, 40, 628, "Input",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], +Cell[165886, 4387, 271, 5, 62, "Output",ExpressionUUID->"5fbe48ec-cfd4-4745-8e9b-ea52d9558406"] }, Open ]], Cell[CellGroupData[{ -Cell[164165, 4364, 1818, 61, 90, "Input",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], -Cell[165986, 4427, 166, 2, 25, "Output",ExpressionUUID->"ee7339b3-3748-a34f-a057-3912a0918fd6"] +Cell[166194, 4397, 112, 2, 55, "Input",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], +Cell[166309, 4401, 272, 5, 62, "Output",ExpressionUUID->"6e05ceff-ecc7-46a8-a998-a315e70bb1bf"] }, Open ]], Cell[CellGroupData[{ -Cell[166189, 4434, 1631, 53, 65, "Input",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], -Cell[167823, 4489, 169, 2, 25, "Output",ExpressionUUID->"9d980dd1-9860-3745-8961-1b723545e44c"] +Cell[166618, 4411, 112, 2, 55, "Input",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], +Cell[166733, 4415, 289, 6, 62, "Output",ExpressionUUID->"9b647d4e-3178-40c7-a764-c7add69147ac"] }, Open ]], Cell[CellGroupData[{ -Cell[168029, 4496, 1631, 53, 65, "Input",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], -Cell[169663, 4551, 167, 2, 25, "Output",ExpressionUUID->"791dcf4f-1a7f-2347-997c-27eed6cf3948"] +Cell[167059, 4426, 112, 2, 55, "Input",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], +Cell[167174, 4430, 287, 6, 62, "Output",ExpressionUUID->"2ea5813a-34db-4ff4-a493-8d80ec769f79"] }, Open ]], -Cell[169845, 4556, 147, 4, 22, "Input",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], -Cell[169995, 4562, 153, 3, 22, "Input",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], -Cell[170151, 4567, 147, 4, 22, "Input",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], -Cell[170301, 4573, 154, 3, 22, "Input",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], Cell[CellGroupData[{ -Cell[170480, 4580, 1297, 42, 39, "Input",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], -Cell[171780, 4624, 171, 2, 25, "Output",ExpressionUUID->"83707082-f118-c146-a95c-693158b61875"] +Cell[167498, 4441, 112, 2, 55, "Input",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], +Cell[167613, 4445, 274, 5, 62, "Output",ExpressionUUID->"78a7daac-e478-4758-acf9-1c6c23757080"] }, Open ]], Cell[CellGroupData[{ -Cell[171988, 4631, 908, 31, 46, "Input",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], -Cell[172899, 4664, 170, 2, 25, "Output",ExpressionUUID->"93dbdfa1-2e9a-2d49-80d6-05af3e592734"] +Cell[167924, 4455, 111, 2, 55, "Input",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], +Cell[168038, 4459, 272, 5, 62, "Output",ExpressionUUID->"678c88f3-334b-4dce-b98a-c9d90c2c4491"] }, Open ]], Cell[CellGroupData[{ -Cell[173106, 4671, 884, 30, 46, "Input",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], -Cell[173993, 4703, 173, 2, 25, "Output",ExpressionUUID->"afd7d2f8-cc87-734c-9c81-c0621f31e0e5"] +Cell[168347, 4469, 111, 2, 55, "Input",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], +Cell[168461, 4473, 272, 5, 62, "Output",ExpressionUUID->"b60f3e52-d975-4951-bcab-04f0c8b38840"] }, Open ]], Cell[CellGroupData[{ -Cell[174203, 4710, 558, 19, 42, "Input",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], -Cell[174764, 4731, 567, 9, 25, "Output",ExpressionUUID->"0432d540-b940-d44f-87c2-61a0d876fa3f"] +Cell[168770, 4483, 501, 17, 182, "Input",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], +Cell[169274, 4502, 287, 6, 62, "Output",ExpressionUUID->"28130a5d-291f-4965-a76d-c2462d9c33db"] }, Open ]], Cell[CellGroupData[{ -Cell[175368, 4745, 665, 22, 42, "Input",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], -Cell[176036, 4769, 554, 9, 25, "Output",ExpressionUUID->"d6001eae-8a76-854e-9f93-fc6d9f888546"] +Cell[169598, 4513, 501, 17, 182, "Input",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], +Cell[170102, 4532, 286, 6, 62, "Output",ExpressionUUID->"08e67a85-9b14-40f9-847b-4fb28eca4378"] }, Open ]], Cell[CellGroupData[{ -Cell[176627, 4783, 170, 5, 46, "Input",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], -Cell[176800, 4790, 577, 9, 25, "Output",ExpressionUUID->"529ddbf3-d030-9b49-9390-e82eea1b6cd9"] +Cell[170425, 4543, 1792, 61, 1100, "Input",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], +Cell[172220, 4606, 270, 5, 62, "Output",ExpressionUUID->"fc4c009b-4226-4193-8c5c-2b3c3c1cb35b"] }, Open ]], Cell[CellGroupData[{ -Cell[177414, 4804, 236, 6, 45, "Input",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], -Cell[177653, 4812, 514, 8, 25, "Output",ExpressionUUID->"1efb03b1-ddd9-3544-b911-a583d1e1d12c"] +Cell[172527, 4616, 1105, 37, 667, "Input",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], +Cell[173635, 4655, 291, 6, 62, "Output",ExpressionUUID->"619b4bd1-7791-42f4-a5c9-213f0712b905"] }, Open ]], Cell[CellGroupData[{ -Cell[178204, 4825, 223, 6, 35, "Input",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], -Cell[178430, 4833, 549, 9, 25, "Output",ExpressionUUID->"0c2f4a5d-aa8f-1846-8930-72520d6d68fa"] +Cell[173963, 4666, 1822, 62, 1100, "Input",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], +Cell[175788, 4730, 269, 5, 62, "Output",ExpressionUUID->"fce4da0b-4d58-49d8-bfa1-3aa854f17c16"] }, Open ]], Cell[CellGroupData[{ -Cell[179016, 4847, 181, 5, 35, "Input",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], -Cell[179200, 4854, 567, 9, 25, "Output",ExpressionUUID->"51b96550-e411-8f49-ae52-0ef4087a9cca"] +Cell[176094, 4740, 1635, 54, 451, "Input",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], +Cell[177732, 4796, 273, 5, 62, "Output",ExpressionUUID->"caf71c16-6c0a-4583-8266-aa02b4b5b181"] }, Open ]], Cell[CellGroupData[{ -Cell[179804, 4868, 6055, 185, 310, "Input",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], -Cell[185862, 5055, 548, 9, 25, "Output",ExpressionUUID->"ae5a263d-347a-6e47-95a0-f7c420f4dc91"] +Cell[178042, 4806, 1635, 54, 451, "Input",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], +Cell[179680, 4862, 272, 5, 62, "Output",ExpressionUUID->"be7fc9b0-8863-48a4-9c93-e6fa73bf15df"] }, Open ]], Cell[CellGroupData[{ -Cell[186447, 5069, 368, 9, 33, "Input",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], -Cell[186818, 5080, 521, 8, 25, "Output",ExpressionUUID->"eb964dd3-b4a5-124b-bf6d-21f5f9718a4e"] +Cell[179989, 4872, 206, 4, 55, "Input",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], +Cell[180198, 4878, 238, 4, 62, "Output",ExpressionUUID->"0bd94ba6-1cac-4885-9c50-f0aaea4b607a"] }, Open ]], -Cell[187354, 5091, 492, 10, 34, "Input",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], +Cell[180451, 4885, 176, 3, 55, "Input",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], Cell[CellGroupData[{ -Cell[187871, 5105, 554, 18, 42, "Input",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], -Cell[188428, 5125, 166, 2, 25, "Output",ExpressionUUID->"e4d9d77a-b508-454c-baed-04aa4a4ef418"] +Cell[180652, 4892, 210, 4, 55, "Input",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], +Cell[180865, 4898, 238, 4, 62, "Output",ExpressionUUID->"d6386bd1-b2d0-4b17-ab3b-701bcc9a5f2f"] }, Open ]], +Cell[181118, 4905, 177, 3, 55, "Input",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], Cell[CellGroupData[{ -Cell[188631, 5132, 619, 20, 42, "Input",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], -Cell[189253, 5154, 168, 2, 25, "Output",ExpressionUUID->"3007515b-4da6-bf4e-9b4f-90b429e2dd04"] +Cell[181320, 4912, 1301, 43, 303, "Input",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], +Cell[182624, 4957, 275, 5, 62, "Output",ExpressionUUID->"5667e4df-77af-465e-9a0c-eec33bd9d257"] }, Open ]], Cell[CellGroupData[{ -Cell[189458, 5161, 166, 4, 46, "Input",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], -Cell[189627, 5167, 167, 2, 25, "Output",ExpressionUUID->"f6274504-766f-8549-a4a8-fd0e803dda86"] +Cell[182936, 4967, 931, 31, 259, "Input",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], +Cell[183870, 5000, 278, 5, 62, "Output",ExpressionUUID->"765d9cd9-e681-4321-872e-28ffe14fdf9d"] }, Open ]], Cell[CellGroupData[{ -Cell[189831, 5174, 166, 4, 45, "Input",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], -Cell[190000, 5180, 166, 2, 25, "Output",ExpressionUUID->"72d24546-97b5-7344-98ec-019068f7b9fb"] +Cell[184185, 5010, 907, 30, 259, "Input",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], +Cell[185095, 5042, 278, 5, 62, "Output",ExpressionUUID->"51642a1c-b675-49b6-ad25-93eee018f740"] }, Open ]], Cell[CellGroupData[{ -Cell[190203, 5187, 177, 4, 35, "Input",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], -Cell[190383, 5193, 169, 2, 25, "Output",ExpressionUUID->"7075b380-afe9-8b44-acc9-29433a09a866"] +Cell[185410, 5052, 558, 19, 100, "Input",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], +Cell[185971, 5073, 665, 10, 62, "Output",ExpressionUUID->"34db26c6-a7d2-4daa-aea1-acf0cc18ab73"] }, Open ]], Cell[CellGroupData[{ -Cell[190589, 5200, 177, 4, 35, "Input",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], -Cell[190769, 5206, 168, 2, 25, "Output",ExpressionUUID->"667394bf-ade3-1944-8cac-a719104b58af"] +Cell[186673, 5088, 665, 22, 100, "Input",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], +Cell[187341, 5112, 648, 10, 62, "Output",ExpressionUUID->"3776b6d2-04a0-4f5b-9f42-27d25693c208"] }, Open ]], Cell[CellGroupData[{ -Cell[190974, 5213, 6051, 184, 310, "Input",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], -Cell[197028, 5399, 171, 2, 25, "Output",ExpressionUUID->"bdb345c8-7c0c-3e4d-96c3-d5d94768456f"] +Cell[188026, 5127, 170, 5, 105, "Input",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], +Cell[188199, 5134, 677, 10, 62, "Output",ExpressionUUID->"b11af5e8-41fc-4e30-8c08-2e5d3ad1622a"] }, Open ]], Cell[CellGroupData[{ -Cell[197236, 5406, 364, 8, 33, "Input",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], -Cell[197603, 5416, 166, 2, 25, "Output",ExpressionUUID->"a136c49d-6dd1-8a4a-9add-7300e6132adb"] +Cell[188913, 5149, 236, 6, 104, "Input",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], +Cell[189152, 5157, 620, 10, 62, "Output",ExpressionUUID->"de6823e9-192e-4070-8385-ab226f9ac981"] }, Open ]], Cell[CellGroupData[{ -Cell[197806, 5423, 6118, 186, 353, "Input",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], -Cell[203927, 5611, 170, 2, 25, "Output",ExpressionUUID->"85a24dde-0aa6-984c-b7a3-ccfa87afb6cd"] +Cell[189809, 5172, 223, 6, 81, "Input",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], +Cell[190035, 5180, 648, 10, 62, "Output",ExpressionUUID->"1f9e653c-8f4d-4a2b-924d-7a72848bfea2"] }, Open ]], Cell[CellGroupData[{ -Cell[204134, 5618, 364, 8, 33, "Input",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], -Cell[204501, 5628, 168, 2, 25, "Output",ExpressionUUID->"9a87dba6-1411-3f4b-a17f-9d7a664889bd"] +Cell[190720, 5195, 181, 5, 81, "Input",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], +Cell[190904, 5202, 664, 10, 62, "Output",ExpressionUUID->"46c51d08-5cc2-4704-9167-2f2e09ec67b9"] }, Open ]], Cell[CellGroupData[{ -Cell[204706, 5635, 2659, 87, 135, "Input",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], -Cell[207368, 5724, 169, 2, 25, "Output",ExpressionUUID->"39ebfd06-20a8-e945-ae56-55ff95d26618"] +Cell[191605, 5217, 6055, 185, 2152, "Input",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], +Cell[197663, 5404, 647, 10, 62, "Output",ExpressionUUID->"af68c21a-f82e-436e-af66-2a931b1fbb72"] }, Open ]], Cell[CellGroupData[{ -Cell[207574, 5731, 2599, 84, 135, "Input",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], -Cell[210176, 5817, 169, 2, 25, "Output",ExpressionUUID->"6c617ce1-6ebd-9d43-be44-73f7ca23a829"] +Cell[198347, 5419, 368, 9, 79, "Input",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], +Cell[198718, 5430, 624, 10, 62, "Output",ExpressionUUID->"df4c5a65-2b0a-47de-af2c-e628799ca0bc"] }, Open ]], +Cell[199357, 5443, 492, 10, 55, "Input",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], Cell[CellGroupData[{ -Cell[210382, 5824, 3708, 117, 197, "Input",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], -Cell[214093, 5943, 169, 2, 25, "Output",ExpressionUUID->"145fcb0a-d842-9a43-9617-34577d485689"] +Cell[199874, 5457, 558, 19, 100, "Input",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], +Cell[200435, 5478, 271, 5, 62, "Output",ExpressionUUID->"384d3d6c-f2c0-49d4-9ac7-c502c9c74a33"] }, Open ]], -Cell[214277, 5948, 138, 3, 34, "Input",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], Cell[CellGroupData[{ -Cell[214440, 5955, 2052, 59, 92, "Input",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], -Cell[216495, 6016, 556, 12, 50, "Message",ExpressionUUID->"be9831d8-a262-3541-9040-ad5e31b2eb28"], -Cell[217054, 6030, 559, 12, 50, "Message",ExpressionUUID->"31896901-1c82-aa4e-bb9a-c09e2220f684"], -Cell[217616, 6044, 559, 12, 50, "Message",ExpressionUUID->"aa16e061-5976-9143-8add-7376f3059569"], -Cell[218178, 6058, 452, 10, 20, "Message",ExpressionUUID->"68730c15-5e57-ca48-8468-735233dec44d"], -Cell[218633, 6070, 168, 2, 25, "Output",ExpressionUUID->"9deaa7ff-19fe-b345-ae65-d7f8adce193c"] +Cell[200743, 5488, 623, 21, 100, "Input",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], +Cell[201369, 5511, 273, 5, 62, "Output",ExpressionUUID->"1af4f503-8568-4897-982b-064d336e29a1"] }, Open ]], Cell[CellGroupData[{ -Cell[218838, 6077, 2054, 59, 92, "Input",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], -Cell[220895, 6138, 556, 12, 50, "Message",ExpressionUUID->"365becfb-66c2-b442-8b7b-c6077e53a212"], -Cell[221454, 6152, 556, 12, 50, "Message",ExpressionUUID->"2b170196-02e0-d544-a5a5-d90722dc10dc"], -Cell[222013, 6166, 559, 12, 50, "Message",ExpressionUUID->"02967e8e-3430-cf4f-b706-b82af40300a2"], -Cell[222575, 6180, 452, 10, 20, "Message",ExpressionUUID->"a8933e75-6bbd-684a-8439-656414d7fe5d"], -Cell[223030, 6192, 166, 2, 25, "Output",ExpressionUUID->"0790c690-9267-6441-bc9c-d353ab16b428"] +Cell[201679, 5521, 170, 5, 105, "Input",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], +Cell[201852, 5528, 271, 5, 62, "Output",ExpressionUUID->"dea3b074-5a73-4b50-8ca4-db6f0bfbb8f0"] }, Open ]], Cell[CellGroupData[{ -Cell[223233, 6199, 1938, 53, 69, "Input",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], -Cell[225174, 6254, 20226, 378, 191, "Output",ExpressionUUID->"5d2ddb35-b7b8-514c-917f-fcc77dc8600c"] +Cell[202160, 5538, 170, 5, 104, "Input",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], +Cell[202333, 5545, 273, 5, 62, "Output",ExpressionUUID->"c7ff1ef9-6135-47ae-96c7-6a73f9ca9a32"] }, Open ]], Cell[CellGroupData[{ -Cell[245437, 6637, 2094, 60, 92, "Input",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], -Cell[247534, 6699, 497, 11, 70, "Message",ExpressionUUID->"cb33453f-b5ca-e14d-a319-662822d35ed2"], -Cell[248034, 6712, 501, 11, 70, "Message",ExpressionUUID->"aa5fb574-aeea-7141-9d86-babfa2192485"], -Cell[248538, 6725, 503, 11, 70, "Message",ExpressionUUID->"dec65c86-5426-6949-9e38-c5bc3eb7722e"], -Cell[249044, 6738, 455, 10, 70, "Message",ExpressionUUID->"32a908f1-0097-2943-9511-bd82e083c1e0"], -Cell[249502, 6750, 43631, 762, 70, "Output",ExpressionUUID->"704b46fd-7ca5-4147-bbb4-19991a3778e5"] +Cell[202643, 5555, 181, 5, 81, "Input",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], +Cell[202827, 5562, 272, 5, 62, "Output",ExpressionUUID->"a5b97bab-2804-4112-ac62-af681ab40920"] }, Open ]], -Cell[293148, 7515, 232, 6, 70, "Input",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], -Cell[293383, 7523, 209, 5, 70, "Input",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], Cell[CellGroupData[{ -Cell[293617, 7532, 212, 6, 70, "Input",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], -Cell[293832, 7540, 168, 2, 70, "Output",ExpressionUUID->"1f95faab-1b52-5440-9bc8-bbd29c090294"] +Cell[203136, 5572, 181, 5, 81, "Input",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], +Cell[203320, 5579, 271, 5, 62, "Output",ExpressionUUID->"80e5fffc-1bbb-46db-a342-5d70545f8ca3"] }, Open ]], Cell[CellGroupData[{ -Cell[294037, 7547, 1814, 53, 70, "Input",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], -Cell[295854, 7602, 505, 11, 70, "Message",ExpressionUUID->"34609962-a5ff-c943-bd24-1be35ec9ac87"], -Cell[296362, 7615, 509, 11, 70, "Message",ExpressionUUID->"1fdfd709-87fa-2d47-912a-2bb16540a45a"], -Cell[296874, 7628, 508, 11, 70, "Message",ExpressionUUID->"02f7e2ed-ac22-9d4d-8071-ab116260ee28"], -Cell[297385, 7641, 455, 10, 70, "Message",ExpressionUUID->"7db76209-a5a6-1947-80c1-912d214b981c"], -Cell[297843, 7653, 22399, 414, 70, "Output",ExpressionUUID->"b5f713da-fcb5-f640-b2b9-a3f5b5d5c325"] +Cell[203628, 5589, 6055, 185, 2152, "Input",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], +Cell[209686, 5776, 274, 5, 62, "Output",ExpressionUUID->"a4495230-3d33-4920-8527-ece80fea158d"] }, Open ]], Cell[CellGroupData[{ -Cell[320279, 8072, 1612, 47, 70, "Input",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], -Cell[321894, 8121, 581, 12, 70, "Message",ExpressionUUID->"e283daf4-b253-944e-a35b-b9d739b4810d"], -Cell[322478, 8135, 584, 12, 70, "Message",ExpressionUUID->"45f4fe27-f32a-9441-bd55-e0801ff04328"], -Cell[323065, 8149, 590, 12, 70, "Message",ExpressionUUID->"8fffabed-e171-5e42-9ba8-fd51ae8f5dd5"], -Cell[323658, 8163, 455, 10, 70, "Message",ExpressionUUID->"8b648472-e40f-a549-a057-c6eeb9f14028"], -Cell[324116, 8175, 169, 2, 70, "Output",ExpressionUUID->"c7b55151-fc31-d94c-8a4e-01b34fb0adaf"] +Cell[209997, 5786, 410, 10, 109, "Input",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], +Cell[210410, 5798, 318, 6, 92, "Output",ExpressionUUID->"38fbeeef-09af-4e17-b2ce-56357eaa0c05"] }, Open ]], Cell[CellGroupData[{ -Cell[324322, 8182, 2249, 64, 70, "Input",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], -Cell[326574, 8248, 557, 12, 70, "Message",ExpressionUUID->"3632efc4-f65f-2f41-a6ff-4f71c0ebce84"], -Cell[327134, 8262, 560, 12, 70, "Message",ExpressionUUID->"779c5516-83d5-5d41-8a7a-6b58e876b564"], -Cell[327697, 8276, 560, 12, 70, "Message",ExpressionUUID->"8e3711bd-8e48-2e4f-9802-ad11f73b56ef"], -Cell[328260, 8290, 455, 10, 70, "Message",ExpressionUUID->"f612a69b-4740-9240-9908-d284159fa285"], -Cell[328718, 8302, 169, 2, 70, "Output",ExpressionUUID->"bfa217e6-2060-bc4b-b710-35d6c4ca9627"] +Cell[210765, 5809, 6122, 187, 2152, "Input",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], +Cell[216890, 5998, 277, 5, 62, "Output",ExpressionUUID->"43ffb152-05c4-4d7a-85e8-9f5c899c8cb6"] }, Open ]], Cell[CellGroupData[{ -Cell[328924, 8309, 2221, 64, 70, "Input",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], -Cell[331148, 8375, 554, 12, 70, "Message",ExpressionUUID->"3ebcf84a-7882-bd47-b9c8-0657501c09d4"], -Cell[331705, 8389, 560, 12, 70, "Message",ExpressionUUID->"5ba908af-818e-5d45-9b4d-c738ed936632"], -Cell[332268, 8403, 560, 12, 70, "Message",ExpressionUUID->"b25ed3b8-96c0-f246-8b73-bf5dca1bf3be"], -Cell[332831, 8417, 455, 10, 70, "Message",ExpressionUUID->"4d7ee3e1-e220-9e46-b1cc-01012021a276"], -Cell[333289, 8429, 169, 2, 70, "Output",ExpressionUUID->"f21819b7-4040-3a47-b212-dc05454fc812"] +Cell[217204, 6008, 368, 9, 79, "Input",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], +Cell[217575, 6019, 273, 5, 62, "Output",ExpressionUUID->"1dfa5f9c-5715-4737-a920-5b4f3ffdc16f"] }, Open ]], Cell[CellGroupData[{ -Cell[333495, 8436, 2223, 64, 70, "Input",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], -Cell[335721, 8502, 555, 12, 70, "Message",ExpressionUUID->"abd6af2a-56b2-2644-a5c5-5aa91718971c"], -Cell[336279, 8516, 558, 12, 70, "Message",ExpressionUUID->"31d8f902-5be7-c54f-8e99-429decd85903"], -Cell[336840, 8530, 560, 12, 70, "Message",ExpressionUUID->"666728b2-41bd-114c-ad81-a56ae7cb85e9"], -Cell[337403, 8544, 453, 10, 70, "Message",ExpressionUUID->"7a1ee219-911f-6846-82f7-c389bec607c2"], -Cell[337859, 8556, 167, 2, 70, "Output",ExpressionUUID->"f40d5525-ccff-eb4c-a859-e6917373a7f1"] +Cell[217885, 6029, 2663, 88, 1067, "Input",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], +Cell[220551, 6119, 273, 5, 62, "Output",ExpressionUUID->"61500c6b-fd21-429f-a8d7-8f81dcf3b6c5"] }, Open ]], Cell[CellGroupData[{ -Cell[338063, 8563, 213, 6, 70, "Input",ExpressionUUID->"fcd1131c-ba92-0b46-817b-e5f89f4ec38f"], -Cell[338279, 8571, 169, 2, 70, "Output",ExpressionUUID->"3749f94f-79b1-2342-af7e-bc4d815737fe"] +Cell[220861, 6129, 2603, 85, 967, "Input",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], +Cell[223467, 6216, 276, 5, 62, "Output",ExpressionUUID->"26a10b34-a614-4bc7-ac45-b38f6f4a1eff"] }, Open ]], -Cell[338463, 8576, 247, 5, 70, "Input",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"], Cell[CellGroupData[{ -Cell[338735, 8585, 554, 18, 70, "Input",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], -Cell[339292, 8605, 167, 2, 70, "Output",ExpressionUUID->"aad53d59-da78-9348-9ac4-1e0902e814d3"] +Cell[223780, 6226, 3712, 118, 1454, "Input",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], +Cell[227495, 6346, 273, 5, 62, "Output",ExpressionUUID->"46490ee9-2e34-4a9b-b167-aec1b8012b07"] }, Open ]], +Cell[227783, 6354, 164, 4, 55, "Input",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], Cell[CellGroupData[{ -Cell[339496, 8612, 166, 4, 70, "Input",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], -Cell[339665, 8618, 169, 2, 70, "Output",ExpressionUUID->"4fef6a46-506a-e14c-9df4-f75ab9f6cdb2"] +Cell[227972, 6362, 2075, 59, 731, "Input",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], +Cell[230050, 6423, 750, 16, 213, "Message",ExpressionUUID->"8fa45948-8bf7-4a54-9ea4-632fb5f04040"], +Cell[230803, 6441, 751, 16, 213, "Message",ExpressionUUID->"397cbaa6-1abf-4588-a667-04d7dcafa3b3"], +Cell[231557, 6459, 752, 16, 213, "Message",ExpressionUUID->"5d56125c-00bf-46a9-87f3-526de5a7aaa6"], +Cell[232312, 6477, 573, 13, 82, "Message",ExpressionUUID->"b95cdd48-c445-42e3-a155-55465a58e2f0"], +Cell[232888, 6492, 263, 5, 62, "Output",ExpressionUUID->"368bd8e6-f2da-4484-ba61-814264e48140"] }, Open ]], Cell[CellGroupData[{ -Cell[339871, 8625, 181, 5, 70, "Input",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], -Cell[340055, 8632, 173, 3, 70, "Output",ExpressionUUID->"f46a3dc4-a4b4-034f-91be-6596e81ebf6d"] +Cell[233188, 6502, 2054, 59, 731, "Input",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], +Cell[235245, 6563, 556, 12, 245, "Message",ExpressionUUID->"365becfb-66c2-b442-8b7b-c6077e53a212"], +Cell[235804, 6577, 556, 12, 245, "Message",ExpressionUUID->"2b170196-02e0-d544-a5a5-d90722dc10dc"], +Cell[236363, 6591, 559, 12, 245, "Message",ExpressionUUID->"02967e8e-3430-cf4f-b706-b82af40300a2"], +Cell[236925, 6605, 452, 10, 81, "Message",ExpressionUUID->"a8933e75-6bbd-684a-8439-656414d7fe5d"], +Cell[237380, 6617, 166, 2, 62, "Output",ExpressionUUID->"0790c690-9267-6441-bc9c-d353ab16b428"] }, Open ]], Cell[CellGroupData[{ -Cell[340265, 8640, 6055, 185, 70, "Input",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], -Cell[346323, 8827, 172, 3, 70, "Output",ExpressionUUID->"ccd4df45-d425-704c-b4a9-648b41b92e77"] +Cell[237583, 6624, 1938, 53, 506, "Input",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], +Cell[239524, 6679, 20239, 378, 333, "Output",ExpressionUUID->"5d2ddb35-b7b8-514c-917f-fcc77dc8600c"] }, Open ]], Cell[CellGroupData[{ -Cell[346532, 8835, 368, 9, 70, "Input",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], -Cell[346903, 8846, 170, 3, 70, "Output",ExpressionUUID->"1ebb6633-805d-cf47-abbc-564ac9bf2374"] +Cell[259800, 7062, 2094, 60, 782, "Input",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], +Cell[261897, 7124, 497, 11, 182, "Message",ExpressionUUID->"cb33453f-b5ca-e14d-a319-662822d35ed2"], +Cell[262397, 7137, 501, 11, 182, "Message",ExpressionUUID->"aa5fb574-aeea-7141-9d86-babfa2192485"], +Cell[262901, 7150, 503, 11, 182, "Message",ExpressionUUID->"dec65c86-5426-6949-9e38-c5bc3eb7722e"], +Cell[263407, 7163, 455, 10, 81, "Message",ExpressionUUID->"32a908f1-0097-2943-9511-bd82e083c1e0"], +Cell[263865, 7175, 43631, 762, 318, "Output",ExpressionUUID->"704b46fd-7ca5-4147-bbb4-19991a3778e5"] }, Open ]], +Cell[307511, 7940, 2455, 69, 677, "Input",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], +Cell[309969, 8011, 209, 5, 55, "Input",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], Cell[CellGroupData[{ -Cell[347110, 8854, 6122, 187, 70, "Input",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], -Cell[353235, 9043, 175, 3, 70, "Output",ExpressionUUID->"a3a95ff2-cddf-6a4c-ac06-8cc3fd5707bc"] +Cell[310203, 8020, 212, 6, 90, "Input",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], +Cell[310418, 8028, 168, 2, 62, "Output",ExpressionUUID->"1f95faab-1b52-5440-9bc8-bbd29c090294"] }, Open ]], Cell[CellGroupData[{ -Cell[353447, 9051, 368, 9, 70, "Input",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], -Cell[353818, 9062, 169, 3, 70, "Output",ExpressionUUID->"53071608-cf53-7441-9033-6c9cf2e7fa8e"] +Cell[310623, 8035, 1814, 53, 684, "Input",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], +Cell[312440, 8090, 505, 11, 182, "Message",ExpressionUUID->"34609962-a5ff-c943-bd24-1be35ec9ac87"], +Cell[312948, 8103, 509, 11, 182, "Message",ExpressionUUID->"1fdfd709-87fa-2d47-912a-2bb16540a45a"], +Cell[313460, 8116, 508, 11, 182, "Message",ExpressionUUID->"02f7e2ed-ac22-9d4d-8071-ab116260ee28"], +Cell[313971, 8129, 455, 10, 81, "Message",ExpressionUUID->"7db76209-a5a6-1947-80c1-912d214b981c"], +Cell[314429, 8141, 22399, 414, 324, "Output",ExpressionUUID->"b5f713da-fcb5-f640-b2b9-a3f5b5d5c325"] }, Open ]], Cell[CellGroupData[{ -Cell[354024, 9070, 2663, 88, 70, "Input",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], -Cell[356690, 9160, 173, 3, 70, "Output",ExpressionUUID->"547b87cc-d628-4d49-8e04-72542aa7650e"] +Cell[336865, 8560, 1612, 47, 526, "Input",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], +Cell[338480, 8609, 581, 12, 245, "Message",ExpressionUUID->"e283daf4-b253-944e-a35b-b9d739b4810d"], +Cell[339064, 8623, 584, 12, 245, "Message",ExpressionUUID->"45f4fe27-f32a-9441-bd55-e0801ff04328"], +Cell[339651, 8637, 590, 12, 276, "Message",ExpressionUUID->"8fffabed-e171-5e42-9ba8-fd51ae8f5dd5"], +Cell[340244, 8651, 455, 10, 81, "Message",ExpressionUUID->"8b648472-e40f-a549-a057-c6eeb9f14028"], +Cell[340702, 8663, 169, 2, 62, "Output",ExpressionUUID->"c7b55151-fc31-d94c-8a4e-01b34fb0adaf"] }, Open ]], Cell[CellGroupData[{ -Cell[356900, 9168, 2603, 85, 70, "Input",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], -Cell[359506, 9255, 171, 3, 70, "Output",ExpressionUUID->"a8edf49c-9c61-9e4b-9fa8-4de409daba96"] +Cell[340908, 8670, 2249, 64, 731, "Input",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], +Cell[343160, 8736, 557, 12, 245, "Message",ExpressionUUID->"3632efc4-f65f-2f41-a6ff-4f71c0ebce84"], +Cell[343720, 8750, 560, 12, 245, "Message",ExpressionUUID->"779c5516-83d5-5d41-8a7a-6b58e876b564"], +Cell[344283, 8764, 560, 12, 245, "Message",ExpressionUUID->"8e3711bd-8e48-2e4f-9802-ad11f73b56ef"], +Cell[344846, 8778, 455, 10, 81, "Message",ExpressionUUID->"f612a69b-4740-9240-9908-d284159fa285"], +Cell[345304, 8790, 169, 2, 62, "Output",ExpressionUUID->"bfa217e6-2060-bc4b-b710-35d6c4ca9627"] }, Open ]], Cell[CellGroupData[{ -Cell[359714, 9263, 3712, 118, 70, "Input",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], -Cell[363429, 9383, 171, 3, 70, "Output",ExpressionUUID->"3584cc50-41a2-ae4b-af54-859d095b0154"] +Cell[345510, 8797, 2221, 64, 692, "Input",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], +Cell[347734, 8863, 554, 12, 245, "Message",ExpressionUUID->"3ebcf84a-7882-bd47-b9c8-0657501c09d4"], +Cell[348291, 8877, 560, 12, 245, "Message",ExpressionUUID->"5ba908af-818e-5d45-9b4d-c738ed936632"], +Cell[348854, 8891, 560, 12, 245, "Message",ExpressionUUID->"b25ed3b8-96c0-f246-8b73-bf5dca1bf3be"], +Cell[349417, 8905, 455, 10, 81, "Message",ExpressionUUID->"4d7ee3e1-e220-9e46-b1cc-01012021a276"], +Cell[349875, 8917, 169, 2, 62, "Output",ExpressionUUID->"f21819b7-4040-3a47-b212-dc05454fc812"] }, Open ]], Cell[CellGroupData[{ -Cell[363637, 9391, 2052, 59, 70, "Input",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], -Cell[365692, 9452, 572, 12, 70, "Message",ExpressionUUID->"d59869d2-8577-0547-8448-230bc5a4ac5e"], -Cell[366267, 9466, 573, 12, 70, "Message",ExpressionUUID->"844f4204-3100-6d45-b5d2-238cc22b8006"], -Cell[366843, 9480, 578, 12, 70, "Message",ExpressionUUID->"f91c55eb-7b3d-3340-b869-4269b99a071c"], -Cell[367424, 9494, 457, 10, 70, "Message",ExpressionUUID->"efd89e15-8a66-4047-aee7-4fb3607a30a7"], -Cell[367884, 9506, 172, 3, 70, "Output",ExpressionUUID->"e68f2098-b3f7-6745-819f-009e252dd442"] +Cell[350081, 8924, 2223, 64, 692, "Input",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], +Cell[352307, 8990, 555, 12, 245, "Message",ExpressionUUID->"abd6af2a-56b2-2644-a5c5-5aa91718971c"], +Cell[352865, 9004, 558, 12, 245, "Message",ExpressionUUID->"31d8f902-5be7-c54f-8e99-429decd85903"], +Cell[353426, 9018, 560, 12, 245, "Message",ExpressionUUID->"666728b2-41bd-114c-ad81-a56ae7cb85e9"], +Cell[353989, 9032, 453, 10, 81, "Message",ExpressionUUID->"7a1ee219-911f-6846-82f7-c389bec607c2"], +Cell[354445, 9044, 167, 2, 62, "Output",ExpressionUUID->"f40d5525-ccff-eb4c-a859-e6917373a7f1"] }, Open ]], Cell[CellGroupData[{ -Cell[368093, 9514, 2054, 59, 70, "Input",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], -Cell[370150, 9575, 572, 12, 70, "Message",ExpressionUUID->"feb3ed0a-8d45-dd4c-a945-407106f88295"], -Cell[370725, 9589, 575, 12, 70, "Message",ExpressionUUID->"d5a6c2e7-2143-1843-8d40-686107f6aa27"], -Cell[371303, 9603, 576, 12, 70, "Message",ExpressionUUID->"a15d89dd-0dfc-c845-aec3-fe7d60156e1f"], -Cell[371882, 9617, 457, 10, 70, "Message",ExpressionUUID->"0f9408e4-b654-4a40-9b38-655b18398efc"], -Cell[372342, 9629, 170, 3, 70, "Output",ExpressionUUID->"f72e3d82-4d19-7143-9513-38a15cee4d51"] +Cell[354649, 9051, 213, 6, 88, "Input",ExpressionUUID->"fcd1131c-ba92-0b46-817b-e5f89f4ec38f"], +Cell[354865, 9059, 169, 2, 62, "Output",ExpressionUUID->"3749f94f-79b1-2342-af7e-bc4d815737fe"] }, Open ]], +Cell[355049, 9064, 247, 5, 55, "Input",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"], Cell[CellGroupData[{ -Cell[372549, 9637, 2030, 55, 70, "Input",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], -Cell[374582, 9694, 20377, 384, 70, "Output",ExpressionUUID->"02187549-f2f0-9c4d-81fc-d12919ea7802"] +Cell[355321, 9073, 554, 18, 100, "Input",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], +Cell[355878, 9093, 167, 2, 62, "Output",ExpressionUUID->"aad53d59-da78-9348-9ac4-1e0902e814d3"] }, Open ]], Cell[CellGroupData[{ -Cell[394996, 10083, 2118, 60, 70, "Input",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], -Cell[397117, 10145, 499, 11, 70, "Message",ExpressionUUID->"75033ea5-32d5-4445-bfb0-a981507a2e9a"], -Cell[397619, 10158, 504, 11, 70, "Message",ExpressionUUID->"bc53c85b-e7c9-be4a-8ed4-30975f08af5c"], -Cell[398126, 10171, 507, 11, 70, "Message",ExpressionUUID->"e09d101b-c5d3-424f-aab9-c5788f3b9ef6"], -Cell[398636, 10184, 455, 10, 70, "Message",ExpressionUUID->"28f777a6-eb27-df49-a698-bd7806baa94c"], -Cell[399094, 10196, 22381, 415, 70, "Output",ExpressionUUID->"cd997d80-b342-8b4c-95c9-b33408882f73"] +Cell[356082, 9100, 166, 4, 105, "Input",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], +Cell[356251, 9106, 169, 2, 62, "Output",ExpressionUUID->"4fef6a46-506a-e14c-9df4-f75ab9f6cdb2"] }, Open ]], -Cell[421490, 10614, 174, 3, 70, "Input",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], -Cell[421667, 10619, 209, 5, 70, "Input",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"], Cell[CellGroupData[{ -Cell[421901, 10628, 1616, 48, 70, "Input",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], -Cell[423520, 10678, 594, 12, 70, "Message",ExpressionUUID->"96d01a47-7c9a-1944-8904-f1788b2f0a8a"], -Cell[424117, 10692, 594, 12, 70, "Message",ExpressionUUID->"fee09e7b-7835-394b-93fe-35ddd26f69d1"], -Cell[424714, 10706, 598, 12, 70, "Message",ExpressionUUID->"fc12fc14-afc1-0a48-8829-94d858477ec4"], -Cell[425315, 10720, 457, 10, 70, "Message",ExpressionUUID->"41b1346d-6d7d-5d4d-9b1a-88cde3361cf3"], -Cell[425775, 10732, 171, 3, 70, "Output",ExpressionUUID->"0bbffe2c-809c-1149-a08f-e3342cda31a0"] +Cell[356457, 9113, 181, 5, 81, "Input",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], +Cell[356641, 9120, 173, 3, 62, "Output",ExpressionUUID->"f46a3dc4-a4b4-034f-91be-6596e81ebf6d"] }, Open ]], Cell[CellGroupData[{ -Cell[425983, 10740, 2247, 64, 70, "Input",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], -Cell[428233, 10806, 572, 12, 70, "Message",ExpressionUUID->"922f5f31-888f-7340-96cd-65ecb8ea2e84"], -Cell[428808, 10820, 573, 12, 70, "Message",ExpressionUUID->"287b836d-7493-d44f-85b0-183d2793165c"], -Cell[429384, 10834, 578, 12, 70, "Message",ExpressionUUID->"962d88f7-2937-fe4b-ba97-3fe8099808d5"], -Cell[429965, 10848, 455, 10, 70, "Message",ExpressionUUID->"2ec951f6-2332-9241-84af-c7ac25232c2e"], -Cell[430423, 10860, 172, 3, 70, "Output",ExpressionUUID->"3eb28fb3-5fd6-4240-b231-e1f0fa53f4dc"] +Cell[356851, 9128, 6055, 185, 2152, "Input",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], +Cell[362909, 9315, 172, 3, 62, "Output",ExpressionUUID->"ccd4df45-d425-704c-b4a9-648b41b92e77"] }, Open ]], Cell[CellGroupData[{ -Cell[430632, 10868, 2221, 64, 70, "Input",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], -Cell[432856, 10934, 570, 12, 70, "Message",ExpressionUUID->"8fc71a81-55ed-5940-a6a0-1fa4e0c6425a"], -Cell[433429, 10948, 573, 12, 70, "Message",ExpressionUUID->"001b2f06-491c-6c4f-881b-1d7c12c1b14f"], -Cell[434005, 10962, 578, 12, 70, "Message",ExpressionUUID->"865c0491-32b6-3549-83ec-bdf42c3a31aa"], -Cell[434586, 10976, 455, 10, 70, "Message",ExpressionUUID->"3566013f-7b44-504c-95a5-32d3ac2ece3d"], -Cell[435044, 10988, 172, 3, 70, "Output",ExpressionUUID->"9cc3c720-52c0-b040-a0b4-75ff2aab4396"] +Cell[363118, 9323, 368, 9, 79, "Input",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], +Cell[363489, 9334, 170, 3, 62, "Output",ExpressionUUID->"1ebb6633-805d-cf47-abbc-564ac9bf2374"] }, Open ]], Cell[CellGroupData[{ -Cell[435253, 10996, 2221, 64, 70, "Input",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], -Cell[437477, 11062, 572, 12, 70, "Message",ExpressionUUID->"bc9996c1-a929-5b41-9541-f607e96932b8"], -Cell[438052, 11076, 575, 12, 70, "Message",ExpressionUUID->"eb28c83b-0aac-8d4e-a729-f978b41e689a"], -Cell[438630, 11090, 578, 12, 70, "Message",ExpressionUUID->"70b030cf-db8c-c440-8526-b10f71bb72b3"], -Cell[439211, 11104, 455, 10, 70, "Message",ExpressionUUID->"4d72b001-01d6-d944-9c97-6d0d7d2eccbb"], -Cell[439669, 11116, 173, 3, 70, "Output",ExpressionUUID->"c15d23fa-1bed-9640-940a-c33e3a830230"] +Cell[363696, 9342, 6122, 187, 2152, "Input",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], +Cell[369821, 9531, 175, 3, 62, "Output",ExpressionUUID->"a3a95ff2-cddf-6a4c-ac06-8cc3fd5707bc"] }, Open ]], Cell[CellGroupData[{ -Cell[439879, 11124, 213, 6, 70, "Input",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"], -Cell[440095, 11132, 172, 3, 70, "Output",ExpressionUUID->"2d0467ed-c049-384d-ae20-12fc79688cfb"] +Cell[370033, 9539, 368, 9, 79, "Input",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], +Cell[370404, 9550, 169, 3, 62, "Output",ExpressionUUID->"53071608-cf53-7441-9033-6c9cf2e7fa8e"] }, Open ]], -Cell[440282, 11138, 245, 5, 70, "Input",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"], Cell[CellGroupData[{ -Cell[440552, 11147, 558, 19, 70, "Input",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], -Cell[441113, 11168, 173, 3, 70, "Output",ExpressionUUID->"26c56722-6e97-cb4f-b35b-a00d42f1d8f6"] +Cell[370610, 9558, 2663, 88, 1067, "Input",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], +Cell[373276, 9648, 173, 3, 62, "Output",ExpressionUUID->"547b87cc-d628-4d49-8e04-72542aa7650e"] }, Open ]], Cell[CellGroupData[{ -Cell[441323, 11176, 170, 5, 70, "Input",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], -Cell[441496, 11183, 171, 3, 70, "Output",ExpressionUUID->"7e7edb0d-1306-d742-8b32-e7c6dc694892"] +Cell[373486, 9656, 2603, 85, 967, "Input",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], +Cell[376092, 9743, 171, 3, 62, "Output",ExpressionUUID->"a8edf49c-9c61-9e4b-9fa8-4de409daba96"] }, Open ]], Cell[CellGroupData[{ -Cell[441704, 11191, 181, 5, 70, "Input",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], -Cell[441888, 11198, 173, 3, 70, "Output",ExpressionUUID->"e5353287-a717-554a-9c6b-1021438b30ff"] +Cell[376300, 9751, 3712, 118, 1454, "Input",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], +Cell[380015, 9871, 171, 3, 62, "Output",ExpressionUUID->"3584cc50-41a2-ae4b-af54-859d095b0154"] }, Open ]], Cell[CellGroupData[{ -Cell[442098, 11206, 6055, 185, 70, "Input",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], -Cell[448156, 11393, 175, 3, 70, "Output",ExpressionUUID->"ed4bd4f3-e1cc-fa47-b5b5-475b6e581b1f"] +Cell[380223, 9879, 2052, 59, 731, "Input",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], +Cell[382278, 9940, 572, 12, 245, "Message",ExpressionUUID->"d59869d2-8577-0547-8448-230bc5a4ac5e"], +Cell[382853, 9954, 573, 12, 245, "Message",ExpressionUUID->"844f4204-3100-6d45-b5d2-238cc22b8006"], +Cell[383429, 9968, 578, 12, 245, "Message",ExpressionUUID->"f91c55eb-7b3d-3340-b869-4269b99a071c"], +Cell[384010, 9982, 457, 10, 81, "Message",ExpressionUUID->"efd89e15-8a66-4047-aee7-4fb3607a30a7"], +Cell[384470, 9994, 172, 3, 62, "Output",ExpressionUUID->"e68f2098-b3f7-6745-819f-009e252dd442"] }, Open ]], Cell[CellGroupData[{ -Cell[448368, 11401, 368, 9, 70, "Input",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], -Cell[448739, 11412, 170, 3, 70, "Output",ExpressionUUID->"0c9f07a0-dfdf-6e41-964a-0bcdc0cbcb45"] +Cell[384679, 10002, 2054, 59, 731, "Input",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], +Cell[386736, 10063, 572, 12, 245, "Message",ExpressionUUID->"feb3ed0a-8d45-dd4c-a945-407106f88295"], +Cell[387311, 10077, 575, 12, 245, "Message",ExpressionUUID->"d5a6c2e7-2143-1843-8d40-686107f6aa27"], +Cell[387889, 10091, 576, 12, 245, "Message",ExpressionUUID->"a15d89dd-0dfc-c845-aec3-fe7d60156e1f"], +Cell[388468, 10105, 457, 10, 81, "Message",ExpressionUUID->"0f9408e4-b654-4a40-9b38-655b18398efc"], +Cell[388928, 10117, 170, 3, 62, "Output",ExpressionUUID->"f72e3d82-4d19-7143-9513-38a15cee4d51"] }, Open ]], Cell[CellGroupData[{ -Cell[448946, 11420, 6122, 187, 70, "Input",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], -Cell[455071, 11609, 175, 3, 70, "Output",ExpressionUUID->"579eace1-979d-7347-a36f-c1fefbf459f5"] +Cell[389135, 10125, 2030, 55, 506, "Input",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], +Cell[391168, 10182, 20377, 384, 327, "Output",ExpressionUUID->"02187549-f2f0-9c4d-81fc-d12919ea7802"] }, Open ]], Cell[CellGroupData[{ -Cell[455283, 11617, 368, 9, 70, "Input",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], -Cell[455654, 11628, 172, 3, 70, "Output",ExpressionUUID->"0225baf1-4541-ed4d-8528-13926fef86cd"] +Cell[411582, 10571, 2118, 60, 782, "Input",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], +Cell[413703, 10633, 499, 11, 182, "Message",ExpressionUUID->"75033ea5-32d5-4445-bfb0-a981507a2e9a"], +Cell[414205, 10646, 504, 11, 182, "Message",ExpressionUUID->"bc53c85b-e7c9-be4a-8ed4-30975f08af5c"], +Cell[414712, 10659, 507, 11, 182, "Message",ExpressionUUID->"e09d101b-c5d3-424f-aab9-c5788f3b9ef6"], +Cell[415222, 10672, 455, 10, 81, "Message",ExpressionUUID->"28f777a6-eb27-df49-a698-bd7806baa94c"], +Cell[415680, 10684, 22381, 415, 325, "Output",ExpressionUUID->"cd997d80-b342-8b4c-95c9-b33408882f73"] }, Open ]], +Cell[438076, 11102, 174, 3, 55, "Input",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], +Cell[438253, 11107, 209, 5, 55, "Input",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"], Cell[CellGroupData[{ -Cell[455863, 11636, 2663, 88, 70, "Input",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], -Cell[458529, 11726, 173, 3, 70, "Output",ExpressionUUID->"f7c789e7-838d-b443-a597-00e69e7c3611"] +Cell[438487, 11116, 1616, 48, 526, "Input",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], +Cell[440106, 11166, 594, 12, 276, "Message",ExpressionUUID->"96d01a47-7c9a-1944-8904-f1788b2f0a8a"], +Cell[440703, 11180, 594, 12, 276, "Message",ExpressionUUID->"fee09e7b-7835-394b-93fe-35ddd26f69d1"], +Cell[441300, 11194, 598, 12, 276, "Message",ExpressionUUID->"fc12fc14-afc1-0a48-8829-94d858477ec4"], +Cell[441901, 11208, 457, 10, 81, "Message",ExpressionUUID->"41b1346d-6d7d-5d4d-9b1a-88cde3361cf3"], +Cell[442361, 11220, 171, 3, 62, "Output",ExpressionUUID->"0bbffe2c-809c-1149-a08f-e3342cda31a0"] }, Open ]], Cell[CellGroupData[{ -Cell[458739, 11734, 2603, 85, 70, "Input",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], -Cell[461345, 11821, 171, 3, 70, "Output",ExpressionUUID->"fc2bf760-d110-cb46-bd02-e934de9fd4f9"] +Cell[442569, 11228, 2247, 64, 731, "Input",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], +Cell[444819, 11294, 572, 12, 245, "Message",ExpressionUUID->"922f5f31-888f-7340-96cd-65ecb8ea2e84"], +Cell[445394, 11308, 573, 12, 245, "Message",ExpressionUUID->"287b836d-7493-d44f-85b0-183d2793165c"], +Cell[445970, 11322, 578, 12, 245, "Message",ExpressionUUID->"962d88f7-2937-fe4b-ba97-3fe8099808d5"], +Cell[446551, 11336, 455, 10, 81, "Message",ExpressionUUID->"2ec951f6-2332-9241-84af-c7ac25232c2e"], +Cell[447009, 11348, 172, 3, 62, "Output",ExpressionUUID->"3eb28fb3-5fd6-4240-b231-e1f0fa53f4dc"] }, Open ]], Cell[CellGroupData[{ -Cell[461553, 11829, 3712, 118, 70, "Input",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], -Cell[465268, 11949, 171, 3, 70, "Output",ExpressionUUID->"4304216c-b250-ab48-915e-b844e71a70f1"] +Cell[447218, 11356, 2221, 64, 692, "Input",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], +Cell[449442, 11422, 570, 12, 245, "Message",ExpressionUUID->"8fc71a81-55ed-5940-a6a0-1fa4e0c6425a"], +Cell[450015, 11436, 573, 12, 245, "Message",ExpressionUUID->"001b2f06-491c-6c4f-881b-1d7c12c1b14f"], +Cell[450591, 11450, 578, 12, 245, "Message",ExpressionUUID->"865c0491-32b6-3549-83ec-bdf42c3a31aa"], +Cell[451172, 11464, 455, 10, 81, "Message",ExpressionUUID->"3566013f-7b44-504c-95a5-32d3ac2ece3d"], +Cell[451630, 11476, 172, 3, 62, "Output",ExpressionUUID->"9cc3c720-52c0-b040-a0b4-75ff2aab4396"] }, Open ]], Cell[CellGroupData[{ -Cell[465476, 11957, 2052, 59, 70, "Input",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], -Cell[467531, 12018, 568, 12, 70, "Message",ExpressionUUID->"ef0dcda5-4eb3-fb4f-a7ba-cf9592c754fd"], -Cell[468102, 12032, 572, 12, 70, "Message",ExpressionUUID->"516128bc-41b4-3d49-8276-2fe73d5d437e"], -Cell[468677, 12046, 574, 12, 70, "Message",ExpressionUUID->"83555127-edb0-f34d-bade-abdcd60ad387"], -Cell[469254, 12060, 457, 10, 70, "Message",ExpressionUUID->"f8efe38f-0b83-4645-b574-b25c08902457"], -Cell[469714, 12072, 172, 3, 70, "Output",ExpressionUUID->"de5933f0-d736-3443-950a-4744d8abefe5"] +Cell[451839, 11484, 2221, 64, 692, "Input",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], +Cell[454063, 11550, 572, 12, 245, "Message",ExpressionUUID->"bc9996c1-a929-5b41-9541-f607e96932b8"], +Cell[454638, 11564, 575, 12, 245, "Message",ExpressionUUID->"eb28c83b-0aac-8d4e-a729-f978b41e689a"], +Cell[455216, 11578, 578, 12, 245, "Message",ExpressionUUID->"70b030cf-db8c-c440-8526-b10f71bb72b3"], +Cell[455797, 11592, 455, 10, 81, "Message",ExpressionUUID->"4d72b001-01d6-d944-9c97-6d0d7d2eccbb"], +Cell[456255, 11604, 173, 3, 62, "Output",ExpressionUUID->"c15d23fa-1bed-9640-940a-c33e3a830230"] }, Open ]], Cell[CellGroupData[{ -Cell[469923, 12080, 2054, 59, 70, "Input",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], -Cell[471980, 12141, 568, 12, 70, "Message",ExpressionUUID->"d0c389d2-1c6b-3a44-bd00-6e54df438015"], -Cell[472551, 12155, 572, 12, 70, "Message",ExpressionUUID->"3f819d0b-3458-d54e-bb8e-ed758b92949a"], -Cell[473126, 12169, 574, 12, 70, "Message",ExpressionUUID->"7403c575-bafd-2049-8d02-89293c73f7f1"], -Cell[473703, 12183, 457, 10, 70, "Message",ExpressionUUID->"29512b1b-8a2c-1740-986b-fb78e7d2ec89"], -Cell[474163, 12195, 171, 3, 70, "Output",ExpressionUUID->"686785b6-8c83-3e43-88fb-689383b13a2d"] +Cell[456465, 11612, 213, 6, 88, "Input",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"], +Cell[456681, 11620, 172, 3, 62, "Output",ExpressionUUID->"2d0467ed-c049-384d-ae20-12fc79688cfb"] }, Open ]], +Cell[456868, 11626, 245, 5, 55, "Input",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"], Cell[CellGroupData[{ -Cell[474371, 12203, 2030, 55, 70, "Input",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], -Cell[476404, 12260, 19960, 375, 70, "Output",ExpressionUUID->"9eb47740-dc4f-3248-80e4-ef19d916a0ad"] +Cell[457138, 11635, 558, 19, 100, "Input",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], +Cell[457699, 11656, 173, 3, 62, "Output",ExpressionUUID->"26c56722-6e97-cb4f-b35b-a00d42f1d8f6"] }, Open ]], Cell[CellGroupData[{ -Cell[496401, 12640, 2118, 60, 70, "Input",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], -Cell[498522, 12702, 496, 11, 70, "Message",ExpressionUUID->"6bc1b8c6-3100-6640-9985-3abfd43de799"], -Cell[499021, 12715, 501, 11, 70, "Message",ExpressionUUID->"82e13dda-210b-a94d-9e1d-a821db42ab6b"], -Cell[499525, 12728, 505, 11, 70, "Message",ExpressionUUID->"9d37688a-c69d-ed49-bce7-cf0090e0ecb8"], -Cell[500033, 12741, 455, 10, 70, "Message",ExpressionUUID->"4e87d0d8-b47a-ef47-85af-16467b219f50"], -Cell[500491, 12753, 21721, 403, 70, "Output",ExpressionUUID->"6974e3c4-9b35-2f4b-97bf-745f60f533f8"] +Cell[457909, 11664, 170, 5, 105, "Input",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], +Cell[458082, 11671, 171, 3, 62, "Output",ExpressionUUID->"7e7edb0d-1306-d742-8b32-e7c6dc694892"] }, Open ]], -Cell[522227, 13159, 181, 3, 70, "Input",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], -Cell[522411, 13164, 207, 5, 70, "Input",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"], Cell[CellGroupData[{ -Cell[522643, 13173, 1616, 48, 70, "Input",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], -Cell[524262, 13223, 589, 12, 70, "Message",ExpressionUUID->"8906bbab-e37b-4b4c-898f-52bfc96dde7b"], -Cell[524854, 13237, 588, 12, 70, "Message",ExpressionUUID->"6ae14bce-ec42-7f4d-9914-0630eea4cdf9"], -Cell[525445, 13251, 594, 12, 70, "Message",ExpressionUUID->"7e98a506-896d-0d47-8502-b83685d9a60c"], -Cell[526042, 13265, 455, 10, 70, "Message",ExpressionUUID->"400e66c2-06b5-814e-a2be-19c4c75ccbf0"], -Cell[526500, 13277, 173, 3, 70, "Output",ExpressionUUID->"f202ab02-e319-144b-97e8-ae603395b346"] +Cell[458290, 11679, 181, 5, 81, "Input",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], +Cell[458474, 11686, 173, 3, 62, "Output",ExpressionUUID->"e5353287-a717-554a-9c6b-1021438b30ff"] }, Open ]], Cell[CellGroupData[{ -Cell[526710, 13285, 2246, 64, 70, "Input",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], -Cell[528959, 13351, 566, 12, 70, "Message",ExpressionUUID->"2d7e67d1-8691-e348-9ca8-caa63b533102"], -Cell[529528, 13365, 570, 12, 70, "Message",ExpressionUUID->"f0eb6f1d-f621-8647-b6a6-8bf673e41ebb"], -Cell[530101, 13379, 574, 12, 70, "Message",ExpressionUUID->"64fda82a-0f74-2743-89a8-afd600de203a"], -Cell[530678, 13393, 456, 10, 70, "Message",ExpressionUUID->"971a319d-8ab4-464d-a08e-f97fe8d4c0e1"], -Cell[531137, 13405, 171, 3, 70, "Output",ExpressionUUID->"b3c37f48-9827-884f-94d9-1f76aed7bfaa"] +Cell[458684, 11694, 6055, 185, 2152, "Input",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], +Cell[464742, 11881, 175, 3, 62, "Output",ExpressionUUID->"ed4bd4f3-e1cc-fa47-b5b5-475b6e581b1f"] }, Open ]], Cell[CellGroupData[{ -Cell[531345, 13413, 2221, 64, 70, "Input",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], -Cell[533569, 13479, 569, 12, 70, "Message",ExpressionUUID->"1040ba10-c733-df44-b556-0998dc0163c9"], -Cell[534141, 13493, 571, 12, 70, "Message",ExpressionUUID->"e451b852-84c2-a941-b1d7-812ecad4750e"], -Cell[534715, 13507, 575, 12, 70, "Message",ExpressionUUID->"a15e0c9d-d634-6e47-94c5-2ce40fcb4d52"], -Cell[535293, 13521, 458, 10, 70, "Message",ExpressionUUID->"a3ddc92b-b5c9-5e46-be44-6165430ec35f"], -Cell[535754, 13533, 171, 3, 70, "Output",ExpressionUUID->"978bf39b-9d1f-a54f-a6de-a2e3d269e126"] +Cell[464954, 11889, 368, 9, 79, "Input",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], +Cell[465325, 11900, 170, 3, 62, "Output",ExpressionUUID->"0c9f07a0-dfdf-6e41-964a-0bcdc0cbcb45"] }, Open ]], Cell[CellGroupData[{ -Cell[535962, 13541, 2223, 64, 70, "Input",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], -Cell[538188, 13607, 567, 12, 70, "Message",ExpressionUUID->"57c74c2a-63a6-9846-b3f7-1a08cebb8172"], -Cell[538758, 13621, 571, 12, 70, "Message",ExpressionUUID->"2e606101-b73e-f443-8324-5b1c64dcaa7f"], -Cell[539332, 13635, 573, 12, 70, "Message",ExpressionUUID->"4da9173d-4ced-1e49-83f6-426d72ec8cf3"], -Cell[539908, 13649, 456, 10, 70, "Message",ExpressionUUID->"a2dba8d9-69c9-cb46-bbb4-f7192fe3e138"], -Cell[540367, 13661, 173, 3, 70, "Output",ExpressionUUID->"12fa1803-dc21-9349-8d62-d5d5f0fa85c6"] +Cell[465532, 11908, 6122, 187, 2152, "Input",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], +Cell[471657, 12097, 175, 3, 62, "Output",ExpressionUUID->"579eace1-979d-7347-a36f-c1fefbf459f5"] }, Open ]], Cell[CellGroupData[{ -Cell[540577, 13669, 211, 6, 70, "Input",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], -Cell[540791, 13677, 174, 3, 70, "Output",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"] -}, Open ]] +Cell[471869, 12105, 368, 9, 79, "Input",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], +Cell[472240, 12116, 172, 3, 62, "Output",ExpressionUUID->"0225baf1-4541-ed4d-8528-13926fef86cd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[472449, 12124, 2663, 88, 1067, "Input",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], +Cell[475115, 12214, 173, 3, 62, "Output",ExpressionUUID->"f7c789e7-838d-b443-a597-00e69e7c3611"] +}, Open ]], +Cell[CellGroupData[{ +Cell[475325, 12222, 2603, 85, 967, "Input",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], +Cell[477931, 12309, 171, 3, 62, "Output",ExpressionUUID->"fc2bf760-d110-cb46-bd02-e934de9fd4f9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[478139, 12317, 3712, 118, 1454, "Input",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], +Cell[481854, 12437, 171, 3, 62, "Output",ExpressionUUID->"4304216c-b250-ab48-915e-b844e71a70f1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[482062, 12445, 2052, 59, 731, "Input",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], +Cell[484117, 12506, 568, 12, 245, "Message",ExpressionUUID->"ef0dcda5-4eb3-fb4f-a7ba-cf9592c754fd"], +Cell[484688, 12520, 572, 12, 245, "Message",ExpressionUUID->"516128bc-41b4-3d49-8276-2fe73d5d437e"], +Cell[485263, 12534, 574, 12, 245, "Message",ExpressionUUID->"83555127-edb0-f34d-bade-abdcd60ad387"], +Cell[485840, 12548, 457, 10, 81, "Message",ExpressionUUID->"f8efe38f-0b83-4645-b574-b25c08902457"], +Cell[486300, 12560, 172, 3, 62, "Output",ExpressionUUID->"de5933f0-d736-3443-950a-4744d8abefe5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[486509, 12568, 2054, 59, 731, "Input",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], +Cell[488566, 12629, 568, 12, 245, "Message",ExpressionUUID->"d0c389d2-1c6b-3a44-bd00-6e54df438015"], +Cell[489137, 12643, 572, 12, 245, "Message",ExpressionUUID->"3f819d0b-3458-d54e-bb8e-ed758b92949a"], +Cell[489712, 12657, 574, 12, 245, "Message",ExpressionUUID->"7403c575-bafd-2049-8d02-89293c73f7f1"], +Cell[490289, 12671, 457, 10, 81, "Message",ExpressionUUID->"29512b1b-8a2c-1740-986b-fb78e7d2ec89"], +Cell[490749, 12683, 171, 3, 62, "Output",ExpressionUUID->"686785b6-8c83-3e43-88fb-689383b13a2d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[490957, 12691, 2030, 55, 506, "Input",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], +Cell[492990, 12748, 19960, 375, 327, "Output",ExpressionUUID->"9eb47740-dc4f-3248-80e4-ef19d916a0ad"] +}, Open ]], +Cell[CellGroupData[{ +Cell[512987, 13128, 2118, 60, 782, "Input",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], +Cell[515108, 13190, 496, 11, 182, "Message",ExpressionUUID->"6bc1b8c6-3100-6640-9985-3abfd43de799"], +Cell[515607, 13203, 501, 11, 182, "Message",ExpressionUUID->"82e13dda-210b-a94d-9e1d-a821db42ab6b"], +Cell[516111, 13216, 505, 11, 182, "Message",ExpressionUUID->"9d37688a-c69d-ed49-bce7-cf0090e0ecb8"], +Cell[516619, 13229, 455, 10, 81, "Message",ExpressionUUID->"4e87d0d8-b47a-ef47-85af-16467b219f50"], +Cell[517077, 13241, 21721, 403, 319, "Output",ExpressionUUID->"6974e3c4-9b35-2f4b-97bf-745f60f533f8"] +}, Open ]], +Cell[538813, 13647, 181, 3, 55, "Input",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], +Cell[538997, 13652, 207, 5, 55, "Input",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"], +Cell[CellGroupData[{ +Cell[539229, 13661, 1616, 48, 526, "Input",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], +Cell[540848, 13711, 589, 12, 245, "Message",ExpressionUUID->"8906bbab-e37b-4b4c-898f-52bfc96dde7b"], +Cell[541440, 13725, 588, 12, 276, "Message",ExpressionUUID->"6ae14bce-ec42-7f4d-9914-0630eea4cdf9"], +Cell[542031, 13739, 594, 12, 276, "Message",ExpressionUUID->"7e98a506-896d-0d47-8502-b83685d9a60c"], +Cell[542628, 13753, 455, 10, 81, "Message",ExpressionUUID->"400e66c2-06b5-814e-a2be-19c4c75ccbf0"], +Cell[543086, 13765, 173, 3, 62, "Output",ExpressionUUID->"f202ab02-e319-144b-97e8-ae603395b346"] +}, Open ]], +Cell[CellGroupData[{ +Cell[543296, 13773, 2246, 64, 731, "Input",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], +Cell[545545, 13839, 566, 12, 245, "Message",ExpressionUUID->"2d7e67d1-8691-e348-9ca8-caa63b533102"], +Cell[546114, 13853, 570, 12, 245, "Message",ExpressionUUID->"f0eb6f1d-f621-8647-b6a6-8bf673e41ebb"], +Cell[546687, 13867, 574, 12, 245, "Message",ExpressionUUID->"64fda82a-0f74-2743-89a8-afd600de203a"], +Cell[547264, 13881, 456, 10, 81, "Message",ExpressionUUID->"971a319d-8ab4-464d-a08e-f97fe8d4c0e1"], +Cell[547723, 13893, 171, 3, 62, "Output",ExpressionUUID->"b3c37f48-9827-884f-94d9-1f76aed7bfaa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[547931, 13901, 2221, 64, 692, "Input",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], +Cell[550155, 13967, 569, 12, 245, "Message",ExpressionUUID->"1040ba10-c733-df44-b556-0998dc0163c9"], +Cell[550727, 13981, 571, 12, 245, "Message",ExpressionUUID->"e451b852-84c2-a941-b1d7-812ecad4750e"], +Cell[551301, 13995, 575, 12, 245, "Message",ExpressionUUID->"a15e0c9d-d634-6e47-94c5-2ce40fcb4d52"], +Cell[551879, 14009, 458, 10, 81, "Message",ExpressionUUID->"a3ddc92b-b5c9-5e46-be44-6165430ec35f"], +Cell[552340, 14021, 171, 3, 62, "Output",ExpressionUUID->"978bf39b-9d1f-a54f-a6de-a2e3d269e126"] +}, Open ]], +Cell[CellGroupData[{ +Cell[552548, 14029, 2223, 64, 692, "Input",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], +Cell[554774, 14095, 567, 12, 245, "Message",ExpressionUUID->"57c74c2a-63a6-9846-b3f7-1a08cebb8172"], +Cell[555344, 14109, 571, 12, 245, "Message",ExpressionUUID->"2e606101-b73e-f443-8324-5b1c64dcaa7f"], +Cell[555918, 14123, 573, 12, 150, "Message",ExpressionUUID->"4da9173d-4ced-1e49-83f6-426d72ec8cf3"], +Cell[556494, 14137, 456, 10, 48, "Message",ExpressionUUID->"a2dba8d9-69c9-cb46-bbb4-f7192fe3e138"], +Cell[556953, 14149, 173, 3, 62, "Output",ExpressionUUID->"12fa1803-dc21-9349-8d62-d5d5f0fa85c6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[557163, 14157, 211, 6, 88, "Input",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], +Cell[557377, 14165, 174, 3, 62, "Output",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"] +}, Open ]], +Cell[557566, 14171, 115, 1, 55, "Input",ExpressionUUID->"68695c7d-ff3e-440c-830c-d4e196fe93e9"] } ] *) diff --git a/Pu240_798-811_TitovAA/172-68_h_Pu240_26-27/h_172-68_Pu240_26-27_osc_Qw2.nb b/Pu240_798-811_TitovAA/172-68_h_Pu240_26-27/h_172-68_Pu240_26-27_osc_Qw2.nb index a320d64..ac9befd 100644 --- a/Pu240_798-811_TitovAA/172-68_h_Pu240_26-27/h_172-68_Pu240_26-27_osc_Qw2.nb +++ b/Pu240_798-811_TitovAA/172-68_h_Pu240_26-27/h_172-68_Pu240_26-27_osc_Qw2.nb @@ -3,25 +3,4875 @@ (*** 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[ 578227, 14303] +NotebookOptionsPosition[ 538450, 13673] +NotebookOutlinePosition[ 538861, 13690] +CellTagsIndexPosition[ 538818, 13687] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f1", "="}]], "Input", + RowBox[{"d", "=", "1.95"}]], "Input", CellChangeTimes->{ - 3.9918496921150837`*^9},ExpressionUUID->"ede64bc2-06f7-8743-a0a6-\ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.994074211664226*^9, 3.994074212605893*^9}, { + 3.994074246621201*^9, 3.994074265935053*^9}}, + CellLabel-> + "In[304]:=",ExpressionUUID->"d0fce16a-d28b-48d0-a068-990bc837b8ee"], + +Cell[BoxData["1.95`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, {3.994074196804253*^9, 3.994074214075809*^9}, { + 3.9940742497364883`*^9, 3.9940742697527313`*^9}}, + CellLabel-> + "Out[304]=",ExpressionUUID->"b5701890-ff21-47c2-98ec-49b95c26dc1f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.9940740226123867`*^9, 3.994074030397141*^9}}, + CellLabel-> + "In[305]:=",ExpressionUUID->"97fe636e-3b82-4bab-a660-e8e84adf2f95"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, {3.9940741968744993`*^9, 3.994074214306916*^9}, { + 3.994074249779564*^9, 3.9940742697936697`*^9}}, + CellLabel-> + "Out[305]=",ExpressionUUID->"c1c29771-1e27-4c48-981d-145120476ad5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "172"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.994074027305109*^9, 3.994074028074005*^9}}, + CellLabel-> + "In[306]:=",ExpressionUUID->"320bdf43-2d74-4dd3-a9bb-ce43eac99810"], + +Cell[BoxData["172"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, {3.994074196887857*^9, 3.994074214318638*^9}, { + 3.9940742497919416`*^9, 3.9940742698063602`*^9}}, + CellLabel-> + "Out[306]=",ExpressionUUID->"c8c4e33f-8c58-4fc0-a23f-2a0555d0c4ce"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel-> + "In[307]:=",ExpressionUUID->"110c44a8-9e3f-4093-ac7c-51f18bc8c05a"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, {3.9940741969012012`*^9, 3.994074214329146*^9}, { + 3.9940742497961063`*^9, 3.994074269818478*^9}}, + CellLabel-> + "Out[307]=",ExpressionUUID->"13119321-0551-49b0-92c5-6c2a0e76649c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel-> + "In[308]:=",ExpressionUUID->"9397356f-bd8a-4bc9-846e-371b61ea7a15"], + +Cell[BoxData["0.5435000000000001`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, {3.9940741969137297`*^9, 3.99407421433959*^9}, { + 3.994074249812704*^9, 3.994074269830806*^9}}, + CellLabel-> + "Out[308]=",ExpressionUUID->"396dde9d-6eb2-4677-b100-44297ab30a93"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel-> + "In[309]:=",ExpressionUUID->"4d91404d-f53a-436d-8fc6-3dd403167c29"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, {3.9940741969249763`*^9, 3.994074214349977*^9}, { + 3.99407424982506*^9, 3.994074269834938*^9}}, + CellLabel-> + "Out[309]=",ExpressionUUID->"51933d89-5305-4e42-88f8-8a6625bcf4fd"] +}, 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[310]:=",ExpressionUUID->"57c762ad-3720-469b-a01d-f497d3d0d576"], + +Cell[BoxData["6.451105409164632`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, {3.994074196937035*^9, 3.994074214360525*^9}, { + 3.994074249837967*^9, 3.9940742698497963`*^9}}, + CellLabel-> + "Out[310]=",ExpressionUUID->"53ccdf26-a6ab-4171-b54a-de95ffcb3dbe"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel-> + "In[311]:=",ExpressionUUID->"92b24fef-3e27-40eb-a59c-c349caf5101c"], + +Cell[BoxData["4.734719918224123`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, {3.9940741969492617`*^9, 3.994074214370586*^9}, { + 3.994074249850299*^9, 3.994074269861824*^9}}, + CellLabel-> + "Out[311]=",ExpressionUUID->"b992a87c-29d4-4e04-bbd8-89ac47689c19"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.852277809"}]], "Input", + CellChangeTimes->{3.991799283179735*^9, 3.9940740415240393`*^9}, + CellLabel-> + "In[312]:=",ExpressionUUID->"fb1bf236-910b-499f-873e-8222508bb1a9"], + +Cell[BoxData["0.852277809`"], "Output", + CellChangeTimes->{{3.994074196961275*^9, 3.994074214380481*^9}, { + 3.994074249862259*^9, 3.994074269873619*^9}}, + CellLabel-> + "Out[312]=",ExpressionUUID->"ad63c035-e071-4857-8cc3-3a9fc5a73c32"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.3903505481"}]], "Input", + CellChangeTimes->{3.991799280663351*^9, 3.99407404519888*^9}, + CellLabel-> + "In[313]:=",ExpressionUUID->"ec881fe1-855f-49f3-9c83-8d9494589304"], + +Cell[BoxData["0.3903505481`"], "Output", + CellChangeTimes->{{3.99407419697276*^9, 3.9940742143904543`*^9}, { + 3.99407424987506*^9, 3.994074269885377*^9}}, + CellLabel-> + "Out[313]=",ExpressionUUID->"688a1d0f-5581-4346-a04d-8645202b571e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel-> + "In[314]:=",ExpressionUUID->"c76a7ba9-c342-4338-aa53-78ecb103d085"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, {3.9940741969837933`*^9, 3.994074214400448*^9}, { + 3.994074249886661*^9, 3.994074269897275*^9}}, + CellLabel-> + "Out[314]=",ExpressionUUID->"5bac045b-fe52-4f4e-a0a4-7cb8ff9ba94d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel-> + "In[315]:=",ExpressionUUID->"a3a5acac-9744-430a-8c34-debd7d6cbdfa"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, {3.9940741969946527`*^9, 3.994074214410337*^9}, { + 3.9940742498968973`*^9, 3.994074269909542*^9}}, + CellLabel-> + "Out[315]=",ExpressionUUID->"1b903cc7-0ed4-475f-afca-47a39dc08f4b"] +}, 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[316]:=",ExpressionUUID->"d2ece78d-47c2-4e41-8ac7-bc58c0e2994f"], + +Cell[BoxData["2.19751871461767`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, {3.994074197005885*^9, 3.994074214421315*^9}, { + 3.994074249908176*^9, 3.994074269922103*^9}}, + CellLabel-> + "Out[316]=",ExpressionUUID->"76b4c6b6-c81c-4592-b6c7-e3454d6cc083"] +}, 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[317]:=",ExpressionUUID->"217e69ea-e85c-4564-852d-ecb839dadc8f"], + +Cell[BoxData["1.4271003361718892`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, {3.994074197017363*^9, 3.994074214431409*^9}, { + 3.994074249918466*^9, 3.99407426993229*^9}}, + CellLabel-> + "Out[317]=",ExpressionUUID->"224310d5-c3cc-417b-a8ce-b17f2e2cb8f7"] +}, 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[318]:=",ExpressionUUID->"b72dd73d-44b6-4389-8ee2-0978dddf497d"], + +Cell[BoxData["0.4377300224639211`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, {3.994074197029154*^9, 3.994074214441661*^9}, { + 3.9940742499280653`*^9, 3.994074269943099*^9}}, + CellLabel-> + "Out[318]=",ExpressionUUID->"207cf5ca-b170-446a-a1b0-aed6add52331"] +}, 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[319]:=",ExpressionUUID->"0c41b06a-21b8-42a6-98ae-52296023ce7d"], + +Cell[BoxData[ + RowBox[{"-", "0.09062394423616692`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, {3.9940741970396633`*^9, 3.994074214453579*^9}, { + 3.994074249938612*^9, 3.994074269953534*^9}}, + CellLabel-> + "Out[319]=",ExpressionUUID->"f3f17d18-7db4-4055-a1be-f51da3b40b34"] +}, 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[320]:=",ExpressionUUID->"8f27d46b-71d0-4c68-b9f1-8eeacce5195e"], + +Cell[BoxData[ + RowBox[{"-", "0.5469059277191528`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, {3.994074197050289*^9, 3.994074214467175*^9}, { + 3.994074249949532*^9, 3.9940742699645767`*^9}}, + CellLabel-> + "Out[320]=",ExpressionUUID->"90dd7a72-170d-48c1-b08e-ba4e55b18049"] +}, 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[321]:=",ExpressionUUID->"36bb4534-ce1a-4f21-bf00-be22db858676"], + +Cell[BoxData["0.7058922703634168`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, {3.994074197062862*^9, 3.99407421448357*^9}, { + 3.9940742499608793`*^9, 3.994074269975973*^9}}, + CellLabel-> + "Out[321]=",ExpressionUUID->"a3367550-ed46-40ad-9965-41e7a5dfe2a3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel-> + "In[322]:=",ExpressionUUID->"c41c6c2e-1a24-42bb-8921-91eeae2dc792"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, {3.9940741970755367`*^9, 3.994074214495585*^9}, { + 3.994074249972097*^9, 3.9940742699872303`*^9}}, + CellLabel-> + "Out[322]=",ExpressionUUID->"65bf6c02-c887-4c4d-99e9-17bd12520c97"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel-> + "In[323]:=",ExpressionUUID->"aca6d8bd-73ab-4ebb-9452-86c7192e3567"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, {3.994074197089067*^9, 3.994074214507393*^9}, { + 3.99407424998314*^9, 3.994074269998393*^9}}, + CellLabel-> + "Out[323]=",ExpressionUUID->"840463d2-b76f-47b1-a89c-88b9495e553d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel-> + "In[324]:=",ExpressionUUID->"9f899060-24a7-42ab-acc5-bdeea6b2db86"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, {3.9940741971016483`*^9, 3.9940742145189466`*^9}, { + 3.994074249994322*^9, 3.994074270009439*^9}}, + CellLabel-> + "Out[324]=",ExpressionUUID->"7db31020-9169-41d4-8cff-3cbc4003ee30"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel-> + "In[325]:=",ExpressionUUID->"609eaf04-589c-450f-8ccf-da73c88208fe"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, {3.9940741971133337`*^9, 3.99407421453058*^9}, { + 3.994074250005796*^9, 3.994074270020775*^9}}, + CellLabel-> + "Out[325]=",ExpressionUUID->"2162dd1e-e379-4c6a-9bb3-94985117cfbd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel-> + "In[326]:=",ExpressionUUID->"30d8c756-9cca-4154-8ea0-52f9ee42d4b0"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, {3.994074197124381*^9, 3.994074214542293*^9}, { + 3.994074250017613*^9, 3.9940742700324078`*^9}}, + CellLabel-> + "Out[326]=",ExpressionUUID->"d70e2bd6-fa13-4f24-b01c-297c4f87f602"] +}, 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.994074052479707*^9, 3.9940740526225157`*^9}}, + CellLabel-> + "In[327]:=",ExpressionUUID->"ac998e07-a5e5-4677-8445-cec941de9c09"], + +Cell[BoxData["66"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, {3.99407419713608*^9, 3.994074214545911*^9}, { + 3.994074250027919*^9, 3.99407427004285*^9}}, + CellLabel-> + "Out[327]=",ExpressionUUID->"485f5926-3f5a-481d-9d86-347c7b4f9225"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, {3.99407405616786*^9, 3.994074056966621*^9}}, + CellLabel-> + "In[328]:=",ExpressionUUID->"32a1cb53-2bff-493e-8a41-7a0bcf58a48c"], + +Cell[BoxData["28"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, {3.994074197147298*^9, 3.99407421455849*^9}, { + 3.9940742500393*^9, 3.994074270054291*^9}}, + CellLabel-> + "Out[328]=",ExpressionUUID->"5b328257-3574-4f96-91f6-b6d6857e9758"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel-> + "In[329]:=",ExpressionUUID->"635f422b-96f4-4bcb-9bc2-9a63861bc9fa"], + +Cell[BoxData["68"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, {3.994074197159381*^9, 3.994074214569437*^9}, { + 3.9940742500504293`*^9, 3.9940742700651913`*^9}}, + CellLabel-> + "Out[329]=",ExpressionUUID->"873a9e90-9550-47de-997a-de87b3e6ba8e"] +}, 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[330]:=",ExpressionUUID->"9617e290-cf96-4ee0-8690-32a65f056f14"], + +Cell[BoxData["0.10723666210670314`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, {3.994074197172007*^9, 3.994074214580143*^9}, { + 3.994074250060562*^9, 3.9940742700753593`*^9}}, + CellLabel-> + "Out[330]=",ExpressionUUID->"b6c18108-7589-49ea-8f29-be9e345bb899"] +}, 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[331]:=",ExpressionUUID->"ef9f3d10-7255-45e4-923c-33bee2d6603a"], + +Cell[BoxData[ + RowBox[{"-", "2.5678385772913814`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, {3.994074197183957*^9, 3.994074214590371*^9}, { + 3.994074250071249*^9, 3.99407427008554*^9}}, + CellLabel-> + "Out[331]=",ExpressionUUID->"ad4bd6de-9a0d-4611-8395-d08fd82c5d3b"] +}, 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[332]:=",ExpressionUUID->"fef4bf97-b50d-45d1-9e97-29afb98df7f6"], + +Cell[BoxData["17.339463280274387`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, {3.994074197196582*^9, 3.9940742146010637`*^9}, { + 3.994074250082402*^9, 3.9940742700958967`*^9}}, + CellLabel-> + "Out[332]=",ExpressionUUID->"c79e582a-6c9a-423d-b117-c6208829cc42"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel-> + "In[333]:=",ExpressionUUID->"07ad6710-3311-467f-bb58-450e14a448d8"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, {3.9940741972101183`*^9, 3.9940742146122723`*^9}, { + 3.994074250094462*^9, 3.994074270106193*^9}}, + CellLabel-> + "Out[333]=",ExpressionUUID->"8e348639-9ea5-4d31-83f0-da1fa0227efc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "1.895"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { + 3.994074073155587*^9, 3.994074075499446*^9}}, + CellLabel-> + "In[334]:=",ExpressionUUID->"1d5aa18b-6c5c-4689-85a5-7aa675922a71"], + +Cell[BoxData["1.895`"], "Output", + CellChangeTimes->{{3.9940741972243557`*^9, 3.994074214623012*^9}, { + 3.994074250106516*^9, 3.9940742701165457`*^9}}, + CellLabel-> + "Out[334]=",ExpressionUUID->"3afefb20-5b9e-408a-a06c-b8a4fe7f8d2a"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel-> + "In[335]:=",ExpressionUUID->"51c642df-f1cc-40d1-a20d-a6c09882d0b0"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.765"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.994074078227497*^9, 3.9940740796275997`*^9}}, + CellLabel-> + "In[336]:=",ExpressionUUID->"9d515c53-1514-4786-b6ef-bcdc2f2f37f4"], + +Cell[BoxData["0.765`"], "Output", + CellChangeTimes->{{3.994074197245954*^9, 3.994074214636681*^9}, { + 3.9940742501222553`*^9, 3.99407427012961*^9}}, + CellLabel-> + "Out[336]=",ExpressionUUID->"8840a114-a05f-41e1-9029-0282c16582bf"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel-> + "In[337]:=",ExpressionUUID->"48ac36dc-0695-4eb8-af9e-d13b075538d1"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "2.605"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.9940740824169683`*^9, 3.9940740841708183`*^9}}, + CellLabel-> + "In[338]:=",ExpressionUUID->"ec198863-d0ca-4a85-b141-0b58696c2357"], + +Cell[BoxData["2.605`"], "Output", + CellChangeTimes->{{3.994074197269746*^9, 3.994074214649177*^9}, { + 3.994074250142523*^9, 3.994074270141824*^9}}, + CellLabel-> + "Out[338]=",ExpressionUUID->"109b716d-f56f-4603-bebd-8e5c4951f800"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel-> + "In[339]:=",ExpressionUUID->"a72c6b62-e186-429f-bc5c-7d41ab6e6ab7"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.115"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, {3.994074087466568*^9, 3.9940740892428827`*^9}}, + CellLabel-> + "In[340]:=",ExpressionUUID->"eab55f4c-317e-4299-a951-ff360a60197f"], + +Cell[BoxData["1.115`"], "Output", + CellChangeTimes->{{3.9940741972942533`*^9, 3.9940742146616087`*^9}, { + 3.994074250166238*^9, 3.9940742701540823`*^9}}, + CellLabel-> + "Out[340]=",ExpressionUUID->"7746bdcc-56a4-4143-b901-2496bcf1eac3"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel-> + "In[341]:=",ExpressionUUID->"f2d6365f-000a-44d6-8019-84a057844408"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.375"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, {3.994074092127721*^9, + 3.994074094282755*^9}}, + CellLabel-> + "In[342]:=",ExpressionUUID->"5e1e34e6-5254-456b-a631-e2c0c9cd797f"], + +Cell[BoxData["1.375`"], "Output", + CellChangeTimes->{{3.9940741973176317`*^9, 3.9940742146740303`*^9}, { + 3.994074250185948*^9, 3.9940742701663027`*^9}}, + CellLabel-> + "Out[342]=",ExpressionUUID->"707e1789-812f-4f3a-8e4a-fca91d16f638"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel-> + "In[343]:=",ExpressionUUID->"d8944063-490f-492e-8b1e-26d9491303e7"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.545"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.994074098253368*^9, + 3.994074099547431*^9}}, + CellLabel-> + "In[344]:=",ExpressionUUID->"dc693c57-954c-404d-8fe9-6aee60d11f0a"], + +Cell[BoxData["0.545`"], "Output", + CellChangeTimes->{{3.9940741973401327`*^9, 3.994074214686512*^9}, { + 3.994074250207786*^9, 3.994074270178926*^9}}, + CellLabel-> + "Out[344]=",ExpressionUUID->"9e492a9b-08ea-40b6-9084-ac8a9ff06ad6"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel-> + "In[345]:=",ExpressionUUID->"08142cbf-2624-4ff1-8177-2a4d86e07c5c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "1.35"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.994074102320486*^9, + 3.9940741031259613`*^9}}, + CellLabel-> + "In[346]:=",ExpressionUUID->"ed66637b-3cd2-4522-9714-6f979e0f0bed"], + +Cell[BoxData["1.35`"], "Output", + CellChangeTimes->{{3.994074197360721*^9, 3.994074214698968*^9}, { + 3.9940742502296133`*^9, 3.994074270190978*^9}}, + CellLabel-> + "Out[346]=",ExpressionUUID->"29c269cf-5e67-49f5-88c1-f24ee7f7bc58"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel-> + "In[347]:=",ExpressionUUID->"19cc1f35-920c-4c38-a51b-0da0dda8709a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "0.655"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, {3.994074105268124*^9, 3.994074106561956*^9}}, + CellLabel-> + "In[348]:=",ExpressionUUID->"68023da3-fb3d-4827-b8c2-a48fc79816ba"], + +Cell[BoxData["0.655`"], "Output", + CellChangeTimes->{{3.994074197383122*^9, 3.994074214711643*^9}, { + 3.994074250250944*^9, 3.994074270203269*^9}}, + CellLabel-> + "Out[348]=",ExpressionUUID->"8cac775a-cfdf-4fff-afdf-f2f6c7199d28"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel-> + "In[349]:=",ExpressionUUID->"f5012502-4c83-4da7-84cb-365cccec2fb0"], + +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[350]:=",ExpressionUUID->"255b0557-487f-4c75-90c3-fabaf8decb21"], + +Cell[BoxData["0.1542863605960474`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, {3.994074197462419*^9, 3.9940742147508163`*^9}, { + 3.994074250298726*^9, 3.994074270240198*^9}}, + CellLabel-> + "Out[350]=",ExpressionUUID->"8e7b0382-75bd-47d7-8790-124f40401a04"] +}, 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[351]:=",ExpressionUUID->"e27de1c0-75ef-4325-aac1-4865a7cf805e"], + +Cell[BoxData["6.986649521084862`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, {3.994074197551347*^9, 3.994074214777306*^9}, { + 3.9940742503242893`*^9, 3.994074270266127*^9}}, + CellLabel-> + "Out[351]=",ExpressionUUID->"0682c40a-680e-419d-95cd-43bf213814e0"] +}, 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[352]:=",ExpressionUUID->"82be9e96-1071-4755-8750-e63efdc9c206"], + +Cell[BoxData[ + RowBox[{"-", "15.225784715275067`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, {3.994074197626877*^9, 3.994074214803336*^9}, { + 3.994074250347639*^9, 3.9940742702914057`*^9}}, + CellLabel-> + "Out[352]=",ExpressionUUID->"6a0305b5-343d-477f-a3dc-f410064ef405"] +}, 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[353]:=",ExpressionUUID->"2207db8d-453c-4514-9663-5f9edff29c1f"], + +Cell[BoxData[ + RowBox[{"-", "19.527743438945258`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, {3.994074197680339*^9, 3.9940742148337717`*^9}, { + 3.994074250376841*^9, 3.9940742703219957`*^9}}, + CellLabel-> + "Out[353]=",ExpressionUUID->"9b904686-401f-428e-98a9-48171f4231aa"] +}, 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[354]:=",ExpressionUUID->"7c9c561c-6778-484b-81ea-6331fe6ac37e"], + +Cell[BoxData[ + RowBox[{"-", "55.27021800638023`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, {3.9940741977668943`*^9, 3.9940742148649673`*^9}, { + 3.994074250406843*^9, 3.994074270352029*^9}}, + CellLabel-> + "Out[354]=",ExpressionUUID->"5e6881ec-291a-412e-a39c-5ed360be1754"] +}, 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[355]:=",ExpressionUUID->"916584db-f151-4a1c-bc04-8f37e2df2749"], + +Cell[BoxData[ + RowBox[{"-", "141.4524755079782`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, {3.994074197832451*^9, 3.994074214909892*^9}, { + 3.994074250439662*^9, 3.994074270387487*^9}}, + CellLabel-> + "Out[355]=",ExpressionUUID->"8e6ae17b-724f-4a8e-8c3b-0f0ae15447e2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel-> + "In[356]:=",ExpressionUUID->"00da972e-b24c-4767-96c7-28ece24fb860"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, {3.994074197929666*^9, 3.994074214922945*^9}, { + 3.994074250452722*^9, 3.994074270403535*^9}}, + CellLabel-> + "Out[356]=",ExpressionUUID->"326a5d2a-1f1c-4e1e-a6a9-0ea662740529"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel-> + "In[357]:=",ExpressionUUID->"48b20279-38e3-424f-a9b1-603e3283ab38"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, {3.994074197952071*^9, 3.994074214935376*^9}, { + 3.994074250464295*^9, 3.994074270413846*^9}}, + CellLabel-> + "Out[357]=",ExpressionUUID->"e2621c33-f530-4da7-95af-e1b890276315"] +}, 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[358]:=",ExpressionUUID->"f4ffbd23-ffc7-40f7-9d83-f23668e0722d"], + +Cell[BoxData["111.55440139653717`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, {3.9940741979658833`*^9, 3.994074214947126*^9}, { + 3.99407425047659*^9, 3.994074270424139*^9}}, + CellLabel-> + "Out[358]=",ExpressionUUID->"ca0e3882-4b0c-4168-8b81-11fdff3f069a"] +}, 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[359]:=",ExpressionUUID->"b813fa2b-7f6b-48fe-b0eb-3d48f2415243"], + +Cell[BoxData[ + RowBox[{"-", "95.43889051158258`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, {3.994074197994025*^9, 3.994074214959611*^9}, { + 3.994074250488699*^9, 3.994074270434445*^9}}, + CellLabel-> + "Out[359]=",ExpressionUUID->"b88e647b-08d0-4bd3-92a1-8044405ae9b8"] +}, 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[360]:=",ExpressionUUID->"2181d355-ae5d-4740-a17c-1a647683d440"], + +Cell[BoxData["113.13286100443031`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, {3.994074198004314*^9, 3.994074214972053*^9}, { + 3.994074250500126*^9, 3.99407427044481*^9}}, + CellLabel-> + "Out[360]=",ExpressionUUID->"11bebf72-f501-4df5-af46-0cc361ad9e16"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel-> + "In[361]:=",ExpressionUUID->"33ede34f-74c0-40af-887e-870f4dc25eaa"], + +Cell[BoxData["0.4377300224639211`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, {3.994074198016279*^9, 3.994074214983481*^9}, { + 3.994074250511408*^9, 3.994074270455081*^9}}, + CellLabel-> + "Out[361]=",ExpressionUUID->"c0843b92-41a1-43b7-a3c7-b3aba792b2aa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel-> + "In[362]:=",ExpressionUUID->"f88a66fe-e6e3-49d8-a85e-d42aa561f095"], + +Cell[BoxData[ + RowBox[{"-", "0.09062394423616692`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, {3.99407419803306*^9, 3.994074214997123*^9}, { + 3.994074250525971*^9, 3.994074270465309*^9}}, + CellLabel-> + "Out[362]=",ExpressionUUID->"ded1a4af-9ccf-4e1b-96e5-bea3a3aaa98e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel-> + "In[363]:=",ExpressionUUID->"903538a6-524f-4139-989a-4e54127ac332"], + +Cell[BoxData[ + RowBox[{"-", "0.5469059277191528`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, {3.994074198060273*^9, 3.994074215008013*^9}, { + 3.994074250535656*^9, 3.994074270476778*^9}}, + CellLabel-> + "Out[363]=",ExpressionUUID->"1a4f47df-1e52-4776-ad82-e26cdb132d91"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel-> + "In[364]:=",ExpressionUUID->"eb72b9d6-5cb5-46da-b11a-0e5cc5f0353e"], + +Cell[BoxData["0.7058922703634168`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, {3.9940741980734253`*^9, 3.994074215018661*^9}, { + 3.994074250546678*^9, 3.9940742704879427`*^9}}, + CellLabel-> + "Out[364]=",ExpressionUUID->"ea2ae609-1e74-4ce2-a7ce-95a232d9b86d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel-> + "In[365]:=",ExpressionUUID->"ec68fe5b-8545-46c9-a36a-45a6e91b65ab"], + +Cell[BoxData["2.19751871461767`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, {3.994074198087656*^9, 3.9940742150302687`*^9}, { + 3.994074250550354*^9, 3.994074270499359*^9}}, + CellLabel-> + "Out[365]=",ExpressionUUID->"ae83ae9a-04b5-49f9-ac79-02f44d87f93d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel-> + "In[366]:=",ExpressionUUID->"4ddfdd68-b3a0-413a-895a-8ecb9f65ae99"], + +Cell[BoxData["1.4271003361718892`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, {3.994074198096857*^9, 3.994074215043764*^9}, { + 3.994074250564603*^9, 3.994074270511888*^9}}, + CellLabel-> + "Out[366]=",ExpressionUUID->"40a928e7-88af-4d2f-b809-ca0087f9387b"] +}, 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[367]:=",ExpressionUUID->"01d54fcc-1571-4645-8b1d-8109e2f6b24b"], + +Cell[BoxData[ + RowBox[{"-", "33.18726375495992`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, {3.994074198107793*^9, 3.994074215058444*^9}, { + 3.994074250574132*^9, 3.99407427052425*^9}}, + CellLabel-> + "Out[367]=",ExpressionUUID->"bc70972f-1c08-4fac-9024-a4951c9c3830"] +}, 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[368]:=",ExpressionUUID->"d4a340a7-f80a-4e75-8029-3c3eba8d8ea5"], + +Cell[BoxData[ + RowBox[{"-", "6.498883922853802`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, {3.994074198134163*^9, 3.994074215071083*^9}, { + 3.994074250583393*^9, 3.994074270535636*^9}}, + CellLabel-> + "Out[368]=",ExpressionUUID->"1cff94b9-ad3c-4f4f-88e4-329ececd9b7e"] +}, 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[369]:=",ExpressionUUID->"2d1ec0e4-c548-4b4a-91f6-7020410792ff"], + +Cell[BoxData["78.36713764157724`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, {3.99407419816089*^9, 3.994074215083827*^9}, { + 3.994074250592779*^9, 3.994074270550357*^9}}, + CellLabel-> + "Out[369]=",ExpressionUUID->"cacd0cc8-5e05-4d5a-9bb5-8d0115b1b3dd"] +}, 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[370]:=",ExpressionUUID->"6bd53917-47d8-4609-a0d4-eeb5075a9c37"], + +Cell[BoxData[ + RowBox[{"-", "95.43889051158258`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, {3.994074198173212*^9, 3.9940742151226263`*^9}, { + 3.9940742506018353`*^9, 3.99407427055612*^9}}, + CellLabel-> + "Out[370]=",ExpressionUUID->"30d58fe4-c61a-4ae0-83ea-5d7d9a236450"] +}, 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[371]:=",ExpressionUUID->"cdc124db-06b0-47c8-965e-8753854d459b"], + +Cell[BoxData["106.6339770815765`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, {3.994074198185794*^9, 3.994074215135048*^9}, { + 3.994074250611326*^9, 3.994074270578539*^9}}, + CellLabel-> + "Out[371]=",ExpressionUUID->"2a472b03-a6a5-4cae-9df9-6493884ee7bd"] +}, 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[372]:=",ExpressionUUID->"403bbcd2-32f8-4fd3-9111-27be8d1a0e01"], + +Cell[BoxData["51.145215962859936`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, {3.994074198196261*^9, 3.9940742151460247`*^9}, { + 3.994074250621415*^9, 3.99407427059237*^9}}, + CellLabel-> + "Out[372]=",ExpressionUUID->"d89ae800-f426-4b15-bd04-1fecacd1fb03"] +}, 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[373]:=",ExpressionUUID->"390ebd15-4abb-4559-a4e3-5a87823fdb20"], + +Cell[BoxData["674.8474263523988`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, {3.994074198207098*^9, 3.9940742151610737`*^9}, { + 3.99407425063161*^9, 3.9940742706025248`*^9}}, + CellLabel-> + "Out[373]=",ExpressionUUID->"e1e82d17-d41d-41d7-8163-9aa0bb32bb4d"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"f1", "=", "0.8651148068"}]], "Input", + CellChangeTimes->{3.9918496921150837`*^9, + 3.994236067138493*^9},ExpressionUUID->"ede64bc2-06f7-8743-a0a6-\ 6f058773310c"], Cell[BoxData[""], "Input", @@ -30,9 +4880,9 @@ Cell[BoxData[""], "Input", c82e80965ca9"], Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", - CellChangeTimes->{ - 3.991849690724144*^9},ExpressionUUID->"328429c4-9130-334e-ba7f-\ + RowBox[{"f2", "=", "0.5059509024"}]], "Input", + CellChangeTimes->{3.991849690724144*^9, + 3.994236074350758*^9},ExpressionUUID->"328429c4-9130-334e-ba7f-\ 7dc8ec78e5b4"], Cell[BoxData[""], "Input", @@ -1579,8 +6429,8 @@ i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== "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[{ @@ -2580,9 +7430,72 @@ A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", - RowBox[{"{", "}"}], "]"}]}]], "Input", - CellChangeTimes->{{3.991799458254999*^9, - 3.9917994623413925`*^9}},ExpressionUUID->"2d5a8299-5376-9747-8056-\ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.005263"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.01561"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.025439"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.034428"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.042324"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.048911"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.054071"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.057726"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.059905"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.060662"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.060144"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.058493"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.055924"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.052616"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.048792"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.044623"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.040302"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.035956"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.031726"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.027689"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.023931"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.020479"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.017372"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.014605"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.012182"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.010077"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.008278"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.006747"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.005464"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.004393"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.003512"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.99423619203867*^9},ExpressionUUID->"2d5a8299-5376-9747-8056-\ 2bd9764114a1"], Cell[BoxData[ @@ -8753,12 +13666,15 @@ Cell[BoxData["0.14275466609450368`"], "Output", CellChangeTimes->{3.991343787117275*^9}, CellLabel-> "Out[395]=",ExpressionUUID->"188c2681-ea17-924e-adb2-007b19a9ee86"] -}, Open ]] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input",ExpressionUUID->"ee676f20-cb04-4514-a345-3267f7ec3f62"] }, -WindowSize->{718.5, 729.75}, -WindowMargins->{{17.25, Automatic}, {Automatic, 24}}, +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->"c5c6a337-d1c3-0f45-98d9-a2509510bd89" ] @@ -8773,368 +13689,623 @@ 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, 354, 7, 66, "Input",ExpressionUUID->"d0fce16a-d28b-48d0-a068-990bc837b8ee"], +Cell[933, 31, 260, 5, 41, "Output",ExpressionUUID->"b5701890-ff21-47c2-98ec-49b95c26dc1f"] }, 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[1230, 41, 253, 5, 36, "Input",ExpressionUUID->"97fe636e-3b82-4bab-a660-e8e84adf2f95"], +Cell[1486, 48, 260, 5, 41, "Output",ExpressionUUID->"c1c29771-1e27-4c48-981d-145120476ad5"] }, 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[1783, 58, 226, 5, 36, "Input",ExpressionUUID->"320bdf43-2d74-4dd3-a9bb-ce43eac99810"], +Cell[2012, 65, 260, 5, 41, "Output",ExpressionUUID->"c8c4e33f-8c58-4fc0-a23f-2a0555d0c4ce"] }, 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[2309, 75, 180, 4, 36, "Input",ExpressionUUID->"110c44a8-9e3f-4093-ac7c-51f18bc8c05a"], +Cell[2492, 81, 260, 5, 41, "Output",ExpressionUUID->"13119321-0551-49b0-92c5-6c2a0e76649c"] }, 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[2789, 91, 262, 8, 54, "Input",ExpressionUUID->"9397356f-bd8a-4bc9-846e-371b61ea7a15"], +Cell[3054, 101, 273, 5, 41, "Output",ExpressionUUID->"396dde9d-6eb2-4677-b100-44297ab30a93"] }, 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[3364, 111, 136, 3, 36, "Input",ExpressionUUID->"4d91404d-f53a-436d-8fc6-3dd403167c29"], +Cell[3503, 116, 259, 5, 41, "Output",ExpressionUUID->"51933d89-5305-4e42-88f8-8a6625bcf4fd"] }, 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[3799, 126, 281, 7, 36, "Input",ExpressionUUID->"57c762ad-3720-469b-a01d-f497d3d0d576"], +Cell[4083, 135, 273, 5, 41, "Output",ExpressionUUID->"53ccdf26-a6ab-4171-b54a-de95ffcb3dbe"] }, 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[4393, 145, 262, 8, 36, "Input",ExpressionUUID->"92b24fef-3e27-40eb-a59c-c349caf5101c"], +Cell[4658, 155, 273, 5, 41, "Output",ExpressionUUID->"b992a87c-29d4-4e04-bbd8-89ac47689c19"] }, 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[4968, 165, 209, 4, 36, "Input",ExpressionUUID->"fb1bf236-910b-499f-873e-8222508bb1a9"], +Cell[5180, 171, 237, 4, 41, "Output",ExpressionUUID->"ad63c035-e071-4857-8cc3-3a9fc5a73c32"] }, 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[5454, 180, 207, 4, 36, "Input",ExpressionUUID->"ec881fe1-855f-49f3-9c83-8d9494589304"], +Cell[5664, 186, 238, 4, 62, "Output",ExpressionUUID->"688a1d0f-5581-4346-a04d-8645202b571e"] }, 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[5939, 195, 133, 3, 55, "Input",ExpressionUUID->"c76a7ba9-c342-4338-aa53-78ecb103d085"], +Cell[6075, 200, 256, 5, 62, "Output",ExpressionUUID->"5bac045b-fe52-4f4e-a0a4-7cb8ff9ba94d"] }, 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[6368, 210, 133, 3, 55, "Input",ExpressionUUID->"a3a5acac-9744-430a-8c34-debd7d6cbdfa"], +Cell[6504, 215, 258, 5, 62, "Output",ExpressionUUID->"1b903cc7-0ed4-475f-afca-47a39dc08f4b"] }, 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[6799, 225, 561, 20, 148, "Input",ExpressionUUID->"d2ece78d-47c2-4e41-8ac7-bc58c0e2994f"], +Cell[7363, 247, 270, 5, 62, "Output",ExpressionUUID->"76b4c6b6-c81c-4592-b6c7-e3454d6cc083"] }, 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[7670, 257, 561, 20, 148, "Input",ExpressionUUID->"217e69ea-e85c-4564-852d-ecb839dadc8f"], +Cell[8234, 279, 271, 5, 62, "Output",ExpressionUUID->"224310d5-c3cc-417b-a8ce-b17f2e2cb8f7"] }, 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[8542, 289, 1592, 51, 211, "Input",ExpressionUUID->"b72dd73d-44b6-4389-8ee2-0978dddf497d"], +Cell[10137, 342, 272, 5, 62, "Output",ExpressionUUID->"207cf5ca-b170-446a-a1b0-aed6add52331"] }, 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[10446, 352, 1426, 47, 211, "Input",ExpressionUUID->"0c41b06a-21b8-42a6-98ae-52296023ce7d"], +Cell[11875, 401, 290, 6, 62, "Output",ExpressionUUID->"f3f17d18-7db4-4055-a1be-f51da3b40b34"] }, 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[12202, 412, 1426, 47, 211, "Input",ExpressionUUID->"8f27d46b-71d0-4c68-b9f1-8eeacce5195e"], +Cell[13631, 461, 291, 6, 62, "Output",ExpressionUUID->"90dd7a72-170d-48c1-b08e-ba4e55b18049"] }, 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[13959, 472, 1592, 51, 211, "Input",ExpressionUUID->"36bb4534-ce1a-4f21-bf00-be22db858676"], +Cell[15554, 525, 269, 5, 62, "Output",ExpressionUUID->"a3367550-ed46-40ad-9965-41e7a5dfe2a3"] }, 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[15860, 535, 135, 3, 55, "Input",ExpressionUUID->"c41c6c2e-1a24-42bb-8921-91eeae2dc792"], +Cell[15998, 540, 258, 5, 62, "Output",ExpressionUUID->"65bf6c02-c887-4c4d-99e9-17bd12520c97"] }, 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[16293, 550, 137, 3, 55, "Input",ExpressionUUID->"aca6d8bd-73ab-4ebb-9452-86c7192e3567"], +Cell[16433, 555, 255, 5, 62, "Output",ExpressionUUID->"840463d2-b76f-47b1-a89c-88b9495e553d"] }, 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[16725, 565, 138, 3, 55, "Input",ExpressionUUID->"9f899060-24a7-42ab-acc5-bdeea6b2db86"], +Cell[16866, 570, 262, 5, 62, "Output",ExpressionUUID->"7db31020-9169-41d4-8cff-3cbc4003ee30"] }, 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[17165, 580, 223, 5, 55, "Input",ExpressionUUID->"609eaf04-589c-450f-8ccf-da73c88208fe"], +Cell[17391, 587, 272, 6, 62, "Output",ExpressionUUID->"2162dd1e-e379-4c6a-9bb3-94985117cfbd"] }, 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[17700, 598, 138, 3, 55, "Input",ExpressionUUID->"30d8c756-9cca-4154-8ea0-52f9ee42d4b0"], +Cell[17841, 603, 260, 5, 62, "Output",ExpressionUUID->"d70e2bd6-fa13-4f24-b01c-297c4f87f602"] }, 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[18138, 613, 328, 6, 55, "Input",ExpressionUUID->"ac998e07-a5e5-4677-8445-cec941de9c09"], +Cell[18469, 621, 253, 5, 62, "Output",ExpressionUUID->"485f5926-3f5a-481d-9d86-347c7b4f9225"] }, 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[18759, 631, 299, 6, 55, "Input",ExpressionUUID->"32a1cb53-2bff-493e-8a41-7a0bcf58a48c"], +Cell[19061, 639, 252, 5, 62, "Output",ExpressionUUID->"5b328257-3574-4f96-91f6-b6d6857e9758"] }, 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[19350, 649, 223, 5, 55, "Input",ExpressionUUID->"635f422b-96f4-4bcb-9bc2-9a63861bc9fa"], +Cell[19576, 656, 257, 5, 62, "Output",ExpressionUUID->"873a9e90-9550-47de-997a-de87b3e6ba8e"] }, 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[19870, 666, 354, 11, 81, "Input",ExpressionUUID->"9617e290-cf96-4ee0-8690-32a65f056f14"], +Cell[20227, 679, 275, 5, 62, "Output",ExpressionUUID->"b6c18108-7589-49ea-8f29-be9e345bb899"] }, 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[20539, 689, 354, 11, 81, "Input",ExpressionUUID->"ef9f3d10-7255-45e4-923c-33bee2d6603a"], +Cell[20896, 702, 288, 6, 62, "Output",ExpressionUUID->"ad4bd6de-9a0d-4611-8395-d08fd82c5d3b"] }, 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[21221, 713, 998, 27, 154, "Input",ExpressionUUID->"fef4bf97-b50d-45d1-9e97-29afb98df7f6"], +Cell[22222, 742, 276, 5, 62, "Output",ExpressionUUID->"c79e582a-6c9a-423d-b117-c6208829cc42"] }, 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[22535, 752, 203, 4, 55, "Input",ExpressionUUID->"07ad6710-3311-467f-bb58-450e14a448d8"], +Cell[22741, 758, 258, 5, 62, "Output",ExpressionUUID->"8e348639-9ea5-4d31-83f0-da1fa0227efc"] }, 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[23036, 768, 331, 6, 55, "Input",ExpressionUUID->"1d5aa18b-6c5c-4689-85a5-7aa675922a71"], +Cell[23370, 776, 235, 4, 62, "Output",ExpressionUUID->"3afefb20-5b9e-408a-a06c-b8a4fe7f8d2a"] +}, Open ]], +Cell[23620, 783, 177, 3, 55, "Input",ExpressionUUID->"51c642df-f1cc-40d1-a20d-a6c09882d0b0"], +Cell[CellGroupData[{ +Cell[23822, 790, 333, 6, 55, "Input",ExpressionUUID->"9d515c53-1514-4786-b6ef-bcdc2f2f37f4"], +Cell[24158, 798, 232, 4, 62, "Output",ExpressionUUID->"8840a114-a05f-41e1-9029-0282c16582bf"] +}, Open ]], +Cell[24405, 805, 177, 3, 55, "Input",ExpressionUUID->"48ac36dc-0695-4eb8-af9e-d13b075538d1"], +Cell[CellGroupData[{ +Cell[24607, 812, 336, 6, 55, "Input",ExpressionUUID->"ec198863-d0ca-4a85-b141-0b58696c2357"], +Cell[24946, 820, 231, 4, 62, "Output",ExpressionUUID->"109b716d-f56f-4603-bebd-8e5c4951f800"] +}, Open ]], +Cell[25192, 827, 177, 3, 55, "Input",ExpressionUUID->"a72c6b62-e186-429f-bc5c-7d41ab6e6ab7"], +Cell[CellGroupData[{ +Cell[25394, 834, 358, 6, 55, "Input",ExpressionUUID->"eab55f4c-317e-4299-a951-ff360a60197f"], +Cell[25755, 842, 237, 4, 62, "Output",ExpressionUUID->"7746bdcc-56a4-4143-b901-2496bcf1eac3"] +}, Open ]], +Cell[26007, 849, 175, 3, 55, "Input",ExpressionUUID->"f2d6365f-000a-44d6-8019-84a057844408"], +Cell[CellGroupData[{ +Cell[26207, 856, 303, 6, 55, "Input",ExpressionUUID->"5e1e34e6-5254-456b-a631-e2c0c9cd797f"], +Cell[26513, 864, 237, 4, 62, "Output",ExpressionUUID->"707e1789-812f-4f3a-8e4a-fca91d16f638"] +}, Open ]], +Cell[26765, 871, 175, 3, 55, "Input",ExpressionUUID->"d8944063-490f-492e-8b1e-26d9491303e7"], +Cell[CellGroupData[{ +Cell[26965, 878, 307, 6, 55, "Input",ExpressionUUID->"dc693c57-954c-404d-8fe9-6aee60d11f0a"], +Cell[27275, 886, 233, 4, 62, "Output",ExpressionUUID->"9e492a9b-08ea-40b6-9084-ac8a9ff06ad6"] +}, Open ]], +Cell[27523, 893, 177, 3, 55, "Input",ExpressionUUID->"08142cbf-2624-4ff1-8177-2a4d86e07c5c"], +Cell[CellGroupData[{ +Cell[27725, 900, 311, 6, 55, "Input",ExpressionUUID->"ed66637b-3cd2-4522-9714-6f979e0f0bed"], +Cell[28039, 908, 232, 4, 62, "Output",ExpressionUUID->"29c269cf-5e67-49f5-88c1-f24ee7f7bc58"] +}, Open ]], +Cell[28286, 915, 176, 3, 55, "Input",ExpressionUUID->"19cc1f35-920c-4c38-a51b-0da0dda8709a"], +Cell[CellGroupData[{ +Cell[28487, 922, 279, 5, 55, "Input",ExpressionUUID->"68023da3-fb3d-4827-b8c2-a48fc79816ba"], +Cell[28769, 929, 231, 4, 62, "Output",ExpressionUUID->"8cac775a-cfdf-4fff-afdf-f2f6c7199d28"] +}, Open ]], +Cell[29015, 936, 179, 3, 55, "Input",ExpressionUUID->"f5012502-4c83-4da7-84cb-365cccec2fb0"], +Cell[CellGroupData[{ +Cell[29219, 943, 19813, 486, 3214, "Input",ExpressionUUID->"255b0557-487f-4c75-90c3-fabaf8decb21"], +Cell[49035, 1431, 272, 5, 62, "Output",ExpressionUUID->"8e7b0382-75bd-47d7-8790-124f40401a04"] }, 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[49344, 1441, 19752, 490, 3214, "Input",ExpressionUUID->"e27de1c0-75ef-4325-aac1-4865a7cf805e"], +Cell[69099, 1933, 271, 5, 62, "Output",ExpressionUUID->"0682c40a-680e-419d-95cd-43bf213814e0"] }, 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[69407, 1943, 19752, 484, 3213, "Input",ExpressionUUID->"82be9e96-1071-4755-8750-e63efdc9c206"], +Cell[89162, 2429, 289, 6, 62, "Output",ExpressionUUID->"6a0305b5-343d-477f-a3dc-f410064ef405"] }, 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[89488, 2440, 22538, 554, 3639, "Input",ExpressionUUID->"2207db8d-453c-4514-9663-5f9edff29c1f"], +Cell[112029, 2996, 291, 6, 62, "Output",ExpressionUUID->"9b904686-401f-428e-98a9-48171f4231aa"] }, 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[112357, 3007, 22539, 554, 3639, "Input",ExpressionUUID->"7c9c561c-6778-484b-81ea-6331fe6ac37e"], +Cell[134899, 3563, 292, 6, 62, "Output",ExpressionUUID->"5e6881ec-291a-412e-a39c-5ed360be1754"] }, 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[135228, 3574, 25495, 627, 4065, "Input",ExpressionUUID->"916584db-f151-4a1c-bc04-8f37e2df2749"], +Cell[160726, 4203, 286, 6, 62, "Output",ExpressionUUID->"8e6ae17b-724f-4a8e-8c3b-0f0ae15447e2"] }, 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[161049, 4214, 134, 3, 55, "Input",ExpressionUUID->"00da972e-b24c-4767-96c7-28ece24fb860"], +Cell[161186, 4219, 254, 5, 62, "Output",ExpressionUUID->"326a5d2a-1f1c-4e1e-a6a9-0ea662740529"] }, 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[161477, 4229, 134, 3, 55, "Input",ExpressionUUID->"48b20279-38e3-424f-a9b1-603e3283ab38"], +Cell[161614, 4234, 254, 5, 62, "Output",ExpressionUUID->"e2621c33-f530-4da7-95af-e1b890276315"] }, 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[161905, 4244, 1148, 40, 211, "Input",ExpressionUUID->"f4ffbd23-ffc7-40f7-9d83-f23668e0722d"], +Cell[163056, 4286, 271, 5, 62, "Output",ExpressionUUID->"ca0e3882-4b0c-4168-8b81-11fdff3f069a"] }, 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[163364, 4296, 1045, 36, 211, "Input",ExpressionUUID->"b813fa2b-7f6b-48fe-b0eb-3d48f2415243"], +Cell[164412, 4334, 286, 6, 62, "Output",ExpressionUUID->"b88e647b-08d0-4bd3-92a1-8044405ae9b8"] }, 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[164735, 4345, 1148, 40, 211, "Input",ExpressionUUID->"2181d355-ae5d-4740-a17c-1a647683d440"], +Cell[165886, 4387, 271, 5, 62, "Output",ExpressionUUID->"11bebf72-f501-4df5-af46-0cc361ad9e16"] }, 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[166194, 4397, 112, 2, 55, "Input",ExpressionUUID->"33ede34f-74c0-40af-887e-870f4dc25eaa"], +Cell[166309, 4401, 272, 5, 62, "Output",ExpressionUUID->"c0843b92-41a1-43b7-a3c7-b3aba792b2aa"] }, 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[166618, 4411, 112, 2, 55, "Input",ExpressionUUID->"f88a66fe-e6e3-49d8-a85e-d42aa561f095"], +Cell[166733, 4415, 289, 6, 62, "Output",ExpressionUUID->"ded1a4af-9ccf-4e1b-96e5-bea3a3aaa98e"] }, 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[167059, 4426, 112, 2, 55, "Input",ExpressionUUID->"903538a6-524f-4139-989a-4e54127ac332"], +Cell[167174, 4430, 287, 6, 62, "Output",ExpressionUUID->"1a4f47df-1e52-4776-ad82-e26cdb132d91"] }, 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[167498, 4441, 112, 2, 55, "Input",ExpressionUUID->"eb72b9d6-5cb5-46da-b11a-0e5cc5f0353e"], +Cell[167613, 4445, 274, 5, 62, "Output",ExpressionUUID->"ea2ae609-1e74-4ce2-a7ce-95a232d9b86d"] }, 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[167924, 4455, 111, 2, 55, "Input",ExpressionUUID->"ec68fe5b-8545-46c9-a36a-45a6e91b65ab"], +Cell[168038, 4459, 272, 5, 62, "Output",ExpressionUUID->"ae83ae9a-04b5-49f9-ac79-02f44d87f93d"] }, 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[168347, 4469, 111, 2, 55, "Input",ExpressionUUID->"4ddfdd68-b3a0-413a-895a-8ecb9f65ae99"], +Cell[168461, 4473, 272, 5, 62, "Output",ExpressionUUID->"40a928e7-88af-4d2f-b809-ca0087f9387b"] }, 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[168770, 4483, 501, 17, 105, "Input",ExpressionUUID->"01d54fcc-1571-4645-8b1d-8109e2f6b24b"], +Cell[169274, 4502, 287, 6, 62, "Output",ExpressionUUID->"bc70972f-1c08-4fac-9024-a4951c9c3830"] }, 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[169598, 4513, 501, 17, 105, "Input",ExpressionUUID->"d4a340a7-f80a-4e75-8029-3c3eba8d8ea5"], +Cell[170102, 4532, 286, 6, 41, "Output",ExpressionUUID->"1cff94b9-ad3c-4f4f-88e4-329ececd9b7e"] }, 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[170425, 4543, 1792, 61, 142, "Input",ExpressionUUID->"2d1ec0e4-c548-4b4a-91f6-7020410792ff"], +Cell[172220, 4606, 270, 5, 41, "Output",ExpressionUUID->"cacd0cc8-5e05-4d5a-9bb5-8d0115b1b3dd"] }, 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[172527, 4616, 1105, 37, 73, "Input",ExpressionUUID->"6bd53917-47d8-4609-a0d4-eeb5075a9c37"], +Cell[173635, 4655, 291, 6, 41, "Output",ExpressionUUID->"30d58fe4-c61a-4ae0-83ea-5d7d9a236450"] }, 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[173963, 4666, 1822, 62, 144, "Input",ExpressionUUID->"cdc124db-06b0-47c8-965e-8753854d459b"], +Cell[175788, 4730, 269, 5, 41, "Output",ExpressionUUID->"2a472b03-a6a5-4cae-9df9-6493884ee7bd"] }, 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[176094, 4740, 1635, 54, 101, "Input",ExpressionUUID->"403bbcd2-32f8-4fd3-9111-27be8d1a0e01"], +Cell[177732, 4796, 273, 5, 41, "Output",ExpressionUUID->"d89ae800-f426-4b15-bd04-1fecacd1fb03"] }, 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[178042, 4806, 1635, 54, 101, "Input",ExpressionUUID->"390ebd15-4abb-4559-a4e3-5a87823fdb20"], +Cell[179680, 4862, 272, 5, 41, "Output",ExpressionUUID->"e1e82d17-d41d-41d7-8163-9aa0bb32bb4d"] +}, Open ]], +Cell[179967, 4870, 187, 4, 36, "Input",ExpressionUUID->"ede64bc2-06f7-8743-a0a6-6f058773310c"], +Cell[180157, 4876, 156, 3, 36, "Input",ExpressionUUID->"9eb3c45a-b33b-a74e-8fe0-c82e80965ca9"], +Cell[180316, 4881, 185, 4, 36, "Input",ExpressionUUID->"328429c4-9130-334e-ba7f-7dc8ec78e5b4"], +Cell[180504, 4887, 152, 3, 36, "Input",ExpressionUUID->"b3364ab6-86a4-7a46-ae33-623392314869"], +Cell[CellGroupData[{ +Cell[180681, 4894, 1301, 43, 61, "Input",ExpressionUUID->"789c64dd-6722-a64c-864a-7fd89b074ad2"], +Cell[181985, 4939, 176, 3, 41, "Output",ExpressionUUID->"b2b0fbe6-496d-0b4b-a132-3f215e541d44"] }, 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"] -}, Open ]], -Cell[338016, 8238, 209, 5, 70, "Input",ExpressionUUID->"b530b35f-2a32-0145-82a7-25a7a01bdd8f"], -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[182198, 4947, 908, 31, 73, "Input",ExpressionUUID->"35e76fc7-2f05-694a-b379-67189aa511ad"], +Cell[183109, 4980, 175, 3, 41, "Output",ExpressionUUID->"cead89a0-592d-3b44-ae8b-df81fa845f91"] }, 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[183321, 4988, 887, 30, 73, "Input",ExpressionUUID->"a10e19cd-f567-6b4d-a841-5f01117db38b"], +Cell[184211, 5020, 177, 3, 41, "Output",ExpressionUUID->"cd23137f-b6ad-354d-a690-15ff879bfb9c"] }, 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[184425, 5028, 558, 19, 66, "Input",ExpressionUUID->"289c2a6f-fa01-2645-80ce-1661c17fd90c"], +Cell[184986, 5049, 172, 3, 41, "Output",ExpressionUUID->"85da9012-bc80-5149-8545-ead2f85c5a34"] }, 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[185195, 5057, 651, 22, 66, "Input",ExpressionUUID->"399520f6-f2e9-6f4a-a02c-50158b624262"], +Cell[185849, 5081, 170, 3, 41, "Output",ExpressionUUID->"86664631-6f8b-d148-8f17-b13cb8a9a5fa"] }, 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[186056, 5089, 170, 5, 71, "Input",ExpressionUUID->"7ee61184-68bc-584d-8849-9a0186a8f35d"], +Cell[186229, 5096, 173, 3, 41, "Output",ExpressionUUID->"77c43b01-85eb-fd46-b71d-1d444bf52ef5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[186439, 5104, 170, 5, 69, "Input",ExpressionUUID->"0ec92d80-8d9e-2746-9b01-4edb32bf4eac"], +Cell[186612, 5111, 169, 3, 41, "Output",ExpressionUUID->"aacafa1c-cf55-8c4f-8232-23de80eb25b7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[186818, 5119, 181, 5, 55, "Input",ExpressionUUID->"8c869977-4b92-8745-b065-cb6318fdcdb7"], +Cell[187002, 5126, 173, 3, 41, "Output",ExpressionUUID->"de93d189-ac68-c842-aeb5-e64b23581b7c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187212, 5134, 181, 5, 55, "Input",ExpressionUUID->"e2c1a337-e3c1-be4c-aa33-ae15497f38bc"], +Cell[187396, 5141, 170, 3, 41, "Output",ExpressionUUID->"73700a90-df80-2f44-9e2f-d43da4980146"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187603, 5149, 6055, 185, 431, "Input",ExpressionUUID->"abbe4489-628a-134f-b142-f0e18f19d6f9"], +Cell[193661, 5336, 174, 3, 41, "Output",ExpressionUUID->"cebf7c0c-e117-6441-a465-087c93e87be5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193872, 5344, 368, 9, 53, "Input",ExpressionUUID->"9e4d84a7-8664-a749-b8b4-3df6645764a5"], +Cell[194243, 5355, 170, 3, 41, "Output",ExpressionUUID->"53acb857-d475-4b46-bdab-d2addcedb13c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194450, 5363, 6122, 187, 431, "Input",ExpressionUUID->"29cc8bdf-8683-214b-bd33-b4d8b4da1114"], +Cell[200575, 5552, 174, 3, 41, "Output",ExpressionUUID->"9962c954-af09-2844-91ec-70eb43451868"] +}, Open ]], +Cell[CellGroupData[{ +Cell[200786, 5560, 368, 9, 53, "Input",ExpressionUUID->"2190c129-8a98-bf45-873d-af8f8d048936"], +Cell[201157, 5571, 170, 3, 41, "Output",ExpressionUUID->"1f5b5c64-ee33-0943-822d-b5e2806576ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[201364, 5579, 2663, 88, 215, "Input",ExpressionUUID->"972f1c0f-a59f-2847-8b2b-bd88c5077325"], +Cell[204030, 5669, 171, 3, 109, "Output",ExpressionUUID->"a3bdb7fa-0a90-d14f-81e9-757139920dcb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[204238, 5677, 2603, 85, 109, "Input",ExpressionUUID->"c06a7373-f345-6147-b882-1c88bef9608a"], +Cell[206844, 5764, 171, 3, 41, "Output",ExpressionUUID->"1b098546-b8b7-b741-b993-7512b0787277"] +}, Open ]], +Cell[CellGroupData[{ +Cell[207052, 5772, 3712, 118, 316, "Input",ExpressionUUID->"82838793-cf71-8049-a4ac-b01daf51205b"], +Cell[210767, 5892, 171, 3, 41, "Output",ExpressionUUID->"d3b57aaa-e0b1-cb4b-b411-ab6c214b3d77"] +}, Open ]], +Cell[210953, 5898, 138, 3, 36, "Input",ExpressionUUID->"0055f95b-c532-e24d-bdc4-544ea2d2fbd9"], +Cell[CellGroupData[{ +Cell[211116, 5905, 2054, 59, 116, "Input",ExpressionUUID->"574b810b-aa4a-d545-b080-c44fbe83a713"], +Cell[213173, 5966, 566, 12, 71, "Message",ExpressionUUID->"56fc0528-7ab2-a142-bc04-9f31af965213"], +Cell[213742, 5980, 569, 12, 71, "Message",ExpressionUUID->"523f0cae-d948-764c-a560-b9272d5e2d53"], +Cell[214314, 5994, 570, 12, 71, "Message",ExpressionUUID->"0a6922e0-d70a-8f48-87c3-f1e8776a3316"], +Cell[214887, 6008, 458, 10, 32, "Message",ExpressionUUID->"777b8d50-cc35-c140-9ef3-025284fd7e68"], +Cell[215348, 6020, 172, 3, 41, "Output",ExpressionUUID->"bbad1871-e996-ef4b-8dc6-3a39d5c410ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[215557, 6028, 2052, 59, 116, "Input",ExpressionUUID->"3d7dd6a2-2692-2b4d-8922-656c90598e75"], +Cell[217612, 6089, 564, 12, 71, "Message",ExpressionUUID->"e613a9b2-edeb-4743-aa3f-3db45e0849dd"], +Cell[218179, 6103, 567, 12, 71, "Message",ExpressionUUID->"d082687e-fa98-c642-8741-e0aeeee8492c"], +Cell[218749, 6117, 570, 12, 71, "Message",ExpressionUUID->"1cb847b5-98cf-0a42-bcd2-893a3a64388b"], +Cell[219322, 6131, 455, 10, 32, "Message",ExpressionUUID->"0d526236-fa4c-334c-9891-0cc458f43fbe"], +Cell[219780, 6143, 169, 3, 41, "Output",ExpressionUUID->"a61472f3-b6b3-5d40-8ec5-35b87df5c824"] +}, Open ]], +Cell[CellGroupData[{ +Cell[219986, 6151, 1936, 53, 86, "Input",ExpressionUUID->"9c540ba7-8bb4-ef46-919c-62296271f174"], +Cell[221925, 6206, 19994, 375, 295, "Output",ExpressionUUID->"84263d17-cde8-2246-a26d-50fe65f34979"] +}, Open ]], +Cell[CellGroupData[{ +Cell[241956, 6586, 2092, 60, 116, "Input",ExpressionUUID->"6e33cb28-ef1e-1547-b52d-2171e7786920"], +Cell[244051, 6648, 501, 11, 48, "Message",ExpressionUUID->"53d31480-3c5e-ef4a-987b-a232cf0b03f3"], +Cell[244555, 6661, 503, 11, 48, "Message",ExpressionUUID->"b7d94271-16f1-6346-b579-21279019eafb"], +Cell[245061, 6674, 506, 11, 48, "Message",ExpressionUUID->"bfaea4b0-a812-1847-9911-9291b70d2c8f"], +Cell[245570, 6687, 456, 10, 32, "Message",ExpressionUUID->"07354318-4dcc-6049-94e1-9227bd3406fc"], +Cell[246029, 6699, 41581, 727, 292, "Output",ExpressionUUID->"4fedf89c-a1d1-0f4a-bf53-44f2e928d059"] +}, Open ]], +Cell[287625, 7429, 2454, 69, 140, "Input",ExpressionUUID->"2d5a8299-5376-9747-8056-2bd9764114a1"], +Cell[290082, 7500, 209, 5, 36, "Input",ExpressionUUID->"d5fa6d0d-0ad8-f845-b7df-0ac982b58a3a"], +Cell[CellGroupData[{ +Cell[290316, 7509, 217, 7, 61, "Input",ExpressionUUID->"650e43f8-1352-de46-8137-52adca93b0cf"], +Cell[290536, 7518, 170, 3, 41, "Output",ExpressionUUID->"ced270d8-1772-ff41-a012-a661d8496312"] +}, Open ]], +Cell[CellGroupData[{ +Cell[290743, 7526, 1814, 53, 116, "Input",ExpressionUUID->"9ad75b45-8f6d-114b-80bd-d2b12a49fd20"], +Cell[292560, 7581, 506, 11, 48, "Message",ExpressionUUID->"82d24bea-da89-924f-8c72-34dd3938ca31"], +Cell[293069, 7594, 512, 11, 48, "Message",ExpressionUUID->"dec01940-92d8-ec46-9a19-7eeb83f307cb"], +Cell[293584, 7607, 509, 11, 48, "Message",ExpressionUUID->"b8576457-d231-bd44-9899-a0c0bb16b9e8"], +Cell[294096, 7620, 456, 10, 32, "Message",ExpressionUUID->"8bc3094a-336c-7a48-a7ed-1449be3156c0"], +Cell[294555, 7632, 22336, 412, 290, "Output",ExpressionUUID->"8cd361e0-0597-af48-9664-8ef179548a96"] +}, Open ]], +Cell[CellGroupData[{ +Cell[316928, 8049, 1616, 48, 86, "Input",ExpressionUUID->"94eefac7-0bb7-7249-8430-0b2ddd6df117"], +Cell[318547, 8099, 584, 12, 71, "Message",ExpressionUUID->"6b02dcd6-679e-e045-823b-19e8112735bb"], +Cell[319134, 8113, 588, 12, 71, "Message",ExpressionUUID->"1777b2e8-4814-3b40-9d26-e365522e2fa7"], +Cell[319725, 8127, 591, 12, 71, "Message",ExpressionUUID->"343e800a-6390-7b48-892a-7785bb4151c8"], +Cell[320319, 8141, 456, 10, 32, "Message",ExpressionUUID->"30a8c837-a97a-f04a-b90a-1e6b32a15ee9"], +Cell[320778, 8153, 173, 3, 41, "Output",ExpressionUUID->"ae05a7c3-f5d6-d640-8f8e-efe8f63ceb63"] +}, Open ]], +Cell[CellGroupData[{ +Cell[320988, 8161, 2274, 65, 81, "Input",ExpressionUUID->"1d118f77-7d68-dd41-b0af-09454f88e7f1"], +Cell[323265, 8228, 566, 12, 71, "Message",ExpressionUUID->"089dc3ff-480d-db4f-bbed-05630517df59"], +Cell[323834, 8242, 569, 12, 71, "Message",ExpressionUUID->"6e93a9b9-9460-8649-881d-48f37a709a1b"], +Cell[324406, 8256, 572, 12, 71, "Message",ExpressionUUID->"1ee8858a-971e-d34f-bafe-57ab88be1238"], +Cell[324981, 8270, 458, 10, 32, "Message",ExpressionUUID->"96f8e027-4313-4f4f-a21d-2291fe960276"], +Cell[325442, 8282, 171, 3, 41, "Output",ExpressionUUID->"53e3f7cd-1b3e-7343-931d-6e137013b0b0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[325650, 8290, 2221, 64, 81, "Input",ExpressionUUID->"c8039063-5f4d-134a-b6ba-e19335f7a9f6"], +Cell[327874, 8356, 564, 12, 109, "Message",ExpressionUUID->"2abeeb06-100d-8a4f-bcb1-ddb8c833ff54"], +Cell[328441, 8370, 567, 12, 109, "Message",ExpressionUUID->"7e411bd4-b3ce-e244-9ce0-8d1f78e8cd14"], +Cell[329011, 8384, 570, 12, 109, "Message",ExpressionUUID->"1eef1d19-4a0f-cd45-ac5f-c8b603cf3443"], +Cell[329584, 8398, 456, 10, 109, "Message",ExpressionUUID->"6022a732-4a2e-1544-a8b7-891b74c71e8b"], +Cell[330043, 8410, 173, 3, 109, "Output",ExpressionUUID->"3c53d31a-b5c8-d04c-a31f-fccb4feaa955"] +}, Open ]], +Cell[CellGroupData[{ +Cell[330253, 8418, 2223, 64, 109, "Input",ExpressionUUID->"a474307a-af78-3040-90ec-fb8d284b16bb"], +Cell[332479, 8484, 566, 12, 109, "Message",ExpressionUUID->"419d88aa-08de-a042-b43b-49810fba72bb"], +Cell[333048, 8498, 569, 12, 109, "Message",ExpressionUUID->"4a9a6268-a319-d748-9834-40ccb49d2b51"], +Cell[333620, 8512, 570, 12, 109, "Message",ExpressionUUID->"575d1045-9e4b-4643-b969-4ea2653f65d7"], +Cell[334193, 8526, 458, 10, 32, "Message",ExpressionUUID->"0c807644-74de-9c49-acac-c7123cbacadc"], +Cell[334654, 8538, 170, 3, 41, "Output",ExpressionUUID->"40f79c92-c788-c843-8a8c-07266b265dee"] +}, Open ]], +Cell[CellGroupData[{ +Cell[334861, 8546, 213, 6, 60, "Input",ExpressionUUID->"ce14ed0e-a62a-1e46-b7cf-f67bfdbd9bc7"], +Cell[335077, 8554, 171, 3, 41, "Output",ExpressionUUID->"5f3fc6c2-7014-7c43-bf96-8a336bebf769"] +}, Open ]], +Cell[335263, 8560, 244, 5, 36, "Input",ExpressionUUID->"d104d373-080a-854b-92ff-e87abbd4c41c"], +Cell[CellGroupData[{ +Cell[335532, 8569, 558, 19, 66, "Input",ExpressionUUID->"b6bc4645-bb9b-da49-b314-4566a6ca9506"], +Cell[336093, 8590, 173, 3, 41, "Output",ExpressionUUID->"c9ac712d-c12f-0747-84df-4fbc596a4bc5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[336303, 8598, 170, 5, 71, "Input",ExpressionUUID->"1f225213-8143-a346-8c4e-e69f41e85c6f"], +Cell[336476, 8605, 171, 3, 41, "Output",ExpressionUUID->"265915a4-bf42-cc4a-850a-ff4e02169aa3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[336684, 8613, 181, 5, 55, "Input",ExpressionUUID->"4b9388d7-dfe0-ca44-90a4-ea60f173579a"], +Cell[336868, 8620, 173, 3, 41, "Output",ExpressionUUID->"31530b6e-e89a-9145-8021-0dc6b1c7eda5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[337078, 8628, 6055, 185, 431, "Input",ExpressionUUID->"b0d5a77d-c2c5-e84d-b4be-bec051c1557c"], +Cell[343136, 8815, 175, 3, 41, "Output",ExpressionUUID->"498f3df6-21c9-ce42-acfb-0b180bf5016e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[343348, 8823, 368, 9, 53, "Input",ExpressionUUID->"e543ccd6-d1e6-3c4d-9364-2a9eec09292b"], +Cell[343719, 8834, 172, 3, 41, "Output",ExpressionUUID->"7c93e621-3415-c743-b6e4-6e9478aa49a4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[343928, 8842, 6122, 187, 431, "Input",ExpressionUUID->"50e98a1c-f33a-9242-9267-bbd8a1753662"], +Cell[350053, 9031, 173, 3, 41, "Output",ExpressionUUID->"ac3c9970-0aac-ba4f-878d-3a3d1e5e2e3e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[350263, 9039, 368, 9, 53, "Input",ExpressionUUID->"339251a5-83bd-8642-8c5c-4fff9ebe10d7"], +Cell[350634, 9050, 170, 3, 41, "Output",ExpressionUUID->"d74ba3c3-6f35-614a-92df-d33bcc5e630d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[350841, 9058, 2663, 88, 215, "Input",ExpressionUUID->"ad1f9bb1-e9e6-5b4f-9f95-8eeef0cc66ae"], +Cell[353507, 9148, 171, 3, 41, "Output",ExpressionUUID->"33da748c-8c98-4649-9b81-8e00dd5f5d44"] +}, Open ]], +Cell[CellGroupData[{ +Cell[353715, 9156, 2603, 85, 215, "Input",ExpressionUUID->"4b0fdfc8-7d81-3a4d-90ed-a9bb76dc96a0"], +Cell[356321, 9243, 171, 3, 41, "Output",ExpressionUUID->"a300919b-1d52-ed46-bc06-5e86812c0bf8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[356529, 9251, 3712, 118, 316, "Input",ExpressionUUID->"31524ab0-bcc9-e948-9393-cfc225600ff2"], +Cell[360244, 9371, 170, 3, 109, "Output",ExpressionUUID->"45caa3aa-b655-b94b-bc88-ae750a9e28b8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[360451, 9379, 2052, 59, 109, "Input",ExpressionUUID->"486d514f-ec65-1e4e-b780-7e9487f745c3"], +Cell[362506, 9440, 573, 12, 71, "Message",ExpressionUUID->"fdac5db3-60d6-7a42-93b8-a74d8fc5d39e"], +Cell[363082, 9454, 577, 12, 71, "Message",ExpressionUUID->"46e50c50-b3b4-9847-b413-3bf52122b53e"], +Cell[363662, 9468, 580, 12, 71, "Message",ExpressionUUID->"5df9105e-cc71-b049-a285-30acff0c246a"], +Cell[364245, 9482, 456, 10, 32, "Message",ExpressionUUID->"84079c6c-500c-0643-b357-e1da142371e6"], +Cell[364704, 9494, 170, 3, 41, "Output",ExpressionUUID->"8303ac5a-d080-3741-a2d8-b7ff63ccb029"] +}, Open ]], +Cell[CellGroupData[{ +Cell[364911, 9502, 2054, 59, 116, "Input",ExpressionUUID->"c7144ce5-8356-d548-8854-18c538c3321c"], +Cell[366968, 9563, 573, 12, 71, "Message",ExpressionUUID->"65ad7cc5-5634-7d43-8ec3-48fd3e044014"], +Cell[367544, 9577, 577, 12, 71, "Message",ExpressionUUID->"c7632c59-b44f-2c47-aaf4-873ba9758677"], +Cell[368124, 9591, 582, 12, 71, "Message",ExpressionUUID->"509e3117-7502-a34e-9f96-72b696066a2b"], +Cell[368709, 9605, 456, 10, 32, "Message",ExpressionUUID->"0e1f3a7a-70f7-bc47-9700-06e687643558"], +Cell[369168, 9617, 170, 3, 41, "Output",ExpressionUUID->"15bebbf4-baae-a44a-84b5-59b3a1f444c3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[369375, 9625, 2028, 55, 63, "Input",ExpressionUUID->"b2db949b-a7b9-8f4b-afbd-a45df2eabf0c"], +Cell[371406, 9682, 20422, 382, 295, "Output",ExpressionUUID->"d9c156b6-0b42-724f-8e7d-964560057978"] +}, Open ]], +Cell[CellGroupData[{ +Cell[391865, 10069, 2120, 60, 109, "Input",ExpressionUUID->"92d458c4-bfde-c447-a06c-70a15768b745"], +Cell[393988, 10131, 502, 11, 109, "Message",ExpressionUUID->"74b51561-a06a-7345-9196-225d76f7f21f"], +Cell[394493, 10144, 506, 11, 109, "Message",ExpressionUUID->"ee03248d-dd91-8b4e-835e-9c4a5f039c61"], +Cell[395002, 10157, 505, 11, 109, "Message",ExpressionUUID->"81d7736e-0167-fe4f-bd5c-40ffaca911e4"], +Cell[395510, 10170, 458, 10, 109, "Message",ExpressionUUID->"43062041-d596-b540-8a1c-36df0575e1f0"], +Cell[395971, 10182, 22288, 412, 109, "Output",ExpressionUUID->"4ce3b436-d895-8b48-899f-c7dec78bd5cd"] +}, Open ]], +Cell[418274, 10597, 209, 5, 109, "Input",ExpressionUUID->"e1c8585a-8b57-f841-82e1-8e8787fb2589"], +Cell[CellGroupData[{ +Cell[418508, 10606, 1616, 48, 109, "Input",ExpressionUUID->"8cd26316-ef9d-184c-93c8-dd96bfd24ea1"], +Cell[420127, 10656, 595, 12, 109, "Message",ExpressionUUID->"bf4d283e-fed2-af41-90e7-a9b6911d8baf"], +Cell[420725, 10670, 595, 12, 71, "Message",ExpressionUUID->"9f6ca4d5-4251-0341-9c65-a603c68721f6"], +Cell[421323, 10684, 599, 12, 71, "Message",ExpressionUUID->"108eeaac-8397-bf4f-90a4-e14dbe759ebf"], +Cell[421925, 10698, 456, 10, 32, "Message",ExpressionUUID->"1a2f2a3c-e511-b846-8a84-9fad6555a680"], +Cell[422384, 10710, 171, 3, 41, "Output",ExpressionUUID->"ca1793f9-9753-5e46-b385-c8dd36228fd1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[422592, 10718, 2248, 64, 81, "Input",ExpressionUUID->"e0ae6f48-c6a6-a24c-812a-30286a178ca1"], +Cell[424843, 10784, 575, 12, 71, "Message",ExpressionUUID->"642a7168-3d33-6b4e-9213-0f67bfd30f54"], +Cell[425421, 10798, 577, 12, 71, "Message",ExpressionUUID->"315984db-f497-2940-bd36-1d820037ad00"], +Cell[426001, 10812, 582, 12, 71, "Message",ExpressionUUID->"2698bbc8-6aa1-c54b-9b5c-3f71a7eb3345"], +Cell[426586, 10826, 458, 10, 32, "Message",ExpressionUUID->"7f632647-49b8-a945-8682-8e4f7ae37cda"], +Cell[427047, 10838, 172, 3, 41, "Output",ExpressionUUID->"0f5bf0f0-4e96-2c4d-9011-c6ae92f19c83"] +}, Open ]], +Cell[CellGroupData[{ +Cell[427256, 10846, 2215, 63, 81, "Input",ExpressionUUID->"bce0eb71-ca49-364f-a3be-8e8c3542c5fb"], +Cell[429474, 10911, 575, 12, 71, "Message",ExpressionUUID->"704bc64b-0e53-8146-9696-c0e9ea00ec4d"], +Cell[430052, 10925, 577, 12, 71, "Message",ExpressionUUID->"68985ea1-064e-2c42-b957-ce16147f9e13"], +Cell[430632, 10939, 582, 12, 71, "Message",ExpressionUUID->"48a38db6-6d68-6140-9cb6-9dfc686aa062"], +Cell[431217, 10953, 458, 10, 109, "Message",ExpressionUUID->"ac6e6758-d573-7947-b88c-92831bb5be70"], +Cell[431678, 10965, 170, 3, 109, "Output",ExpressionUUID->"4d1b179c-7677-2745-8308-576346b6bf0b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[431885, 10973, 2223, 64, 109, "Input",ExpressionUUID->"935796a8-6280-564a-b4d0-fc6fb6cd41f8"], +Cell[434111, 11039, 573, 12, 109, "Message",ExpressionUUID->"0a9cfe95-3a6f-384b-8656-bdf67695e5d7"], +Cell[434687, 11053, 577, 12, 109, "Message",ExpressionUUID->"700ebedb-417e-8043-ab89-eb4672a7847d"], +Cell[435267, 11067, 580, 12, 109, "Message",ExpressionUUID->"599826a9-6d60-6843-9eef-e381cafa0758"], +Cell[435850, 11081, 456, 10, 109, "Message",ExpressionUUID->"d92d3772-b819-d145-8d96-f897b04ae4a7"], +Cell[436309, 11093, 173, 3, 109, "Output",ExpressionUUID->"98a57fa3-05ea-0d42-95b5-58c14727d753"] +}, Open ]], +Cell[CellGroupData[{ +Cell[436519, 11101, 213, 6, 109, "Input",ExpressionUUID->"ee52036b-90c5-e14a-aed9-684ff23ed035"], +Cell[436735, 11109, 173, 3, 109, "Output",ExpressionUUID->"ea5023c6-5364-074e-904d-43b5c1077635"] +}, Open ]], +Cell[436923, 11115, 247, 5, 109, "Input",ExpressionUUID->"c6d4a146-4cca-7e4e-b483-85227a6e6b51"], +Cell[CellGroupData[{ +Cell[437195, 11124, 558, 19, 66, "Input",ExpressionUUID->"28979542-d43a-e54a-88e0-087a68060d62"], +Cell[437756, 11145, 173, 3, 41, "Output",ExpressionUUID->"b967ea88-4a73-d84a-86f5-ad4ded7dfd59"] +}, Open ]], +Cell[CellGroupData[{ +Cell[437966, 11153, 170, 5, 71, "Input",ExpressionUUID->"c3303a76-2bd9-454b-b35d-6119cde0197e"], +Cell[438139, 11160, 173, 3, 41, "Output",ExpressionUUID->"fd8ea80a-f1d4-be4f-9cfa-b37871c5703d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[438349, 11168, 181, 5, 55, "Input",ExpressionUUID->"b83c9900-e14a-064d-b097-089d758a0eb6"], +Cell[438533, 11175, 173, 3, 41, "Output",ExpressionUUID->"7d039035-dcf9-ec46-abdb-20c0c777b3ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[438743, 11183, 6055, 185, 431, "Input",ExpressionUUID->"17437a0c-d9be-a242-b57f-efef95056982"], +Cell[444801, 11370, 172, 3, 41, "Output",ExpressionUUID->"ec08a5f9-ba46-9147-9d7b-cc1decdb981f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[445010, 11378, 368, 9, 53, "Input",ExpressionUUID->"b3706ed1-2e71-9941-86c4-d789cf8ea193"], +Cell[445381, 11389, 172, 3, 41, "Output",ExpressionUUID->"71ad1ede-d77d-ee46-a908-e7b20c10ebe8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[445590, 11397, 6122, 187, 109, "Input",ExpressionUUID->"2dad5775-7b90-2241-a408-e59b2ea47cb0"], +Cell[451715, 11586, 173, 3, 109, "Output",ExpressionUUID->"819de60b-5785-6448-8fe2-0db5976d700d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[451925, 11594, 368, 9, 109, "Input",ExpressionUUID->"ea913ab0-daa5-1f4d-93f4-2e6143537b5d"], +Cell[452296, 11605, 170, 3, 109, "Output",ExpressionUUID->"8dd6a8d3-1dbb-0d4a-9edc-e78196c49a86"] +}, Open ]], +Cell[CellGroupData[{ +Cell[452503, 11613, 2663, 88, 215, "Input",ExpressionUUID->"53a0bfe7-010b-d445-822a-52c57127f779"], +Cell[455169, 11703, 171, 3, 41, "Output",ExpressionUUID->"ae861452-cf77-f740-9f62-141306c9a07a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[455377, 11711, 2603, 85, 215, "Input",ExpressionUUID->"4e482268-3ff3-d74a-9ba6-ed262245ad4b"], +Cell[457983, 11798, 173, 3, 41, "Output",ExpressionUUID->"253d4a43-9313-5444-b0f9-3aae32edd842"] +}, Open ]], +Cell[CellGroupData[{ +Cell[458193, 11806, 3712, 118, 316, "Input",ExpressionUUID->"df39eab0-0939-764b-8de6-27d0ba2be7e8"], +Cell[461908, 11926, 173, 3, 41, "Output",ExpressionUUID->"0c1e1373-3726-9c43-862b-62a8708f83a9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[462118, 11934, 2052, 59, 116, "Input",ExpressionUUID->"6b25ec99-ae49-ec4d-9652-65328572e509"], +Cell[464173, 11995, 568, 12, 71, "Message",ExpressionUUID->"d55599c5-2bb2-8f4a-a245-aa6d5998cb8f"], +Cell[464744, 12009, 573, 12, 71, "Message",ExpressionUUID->"bdcd3bac-beba-5242-b376-95b5ed40a02a"], +Cell[465320, 12023, 576, 12, 71, "Message",ExpressionUUID->"b91a3ff7-a025-fd4e-b11c-58fa6385068b"], +Cell[465899, 12037, 458, 10, 32, "Message",ExpressionUUID->"9e66d374-59c2-ce4b-b0d2-5a3813a10542"], +Cell[466360, 12049, 172, 3, 41, "Output",ExpressionUUID->"5742ee33-8e4b-444c-91b6-6d4c403c91e9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[466569, 12057, 2052, 59, 116, "Input",ExpressionUUID->"3e2baf62-fab9-eb41-8de7-aa229443ac14"], +Cell[468624, 12118, 568, 12, 71, "Message",ExpressionUUID->"49d9e2db-79aa-5b48-897e-3089c92c79b4"], +Cell[469195, 12132, 573, 12, 71, "Message",ExpressionUUID->"2361061c-25a8-4549-ba9e-397593d876d4"], +Cell[469771, 12146, 574, 12, 71, "Message",ExpressionUUID->"a2993171-fcd7-8742-bf17-921d87bded0b"], +Cell[470348, 12160, 458, 10, 32, "Message",ExpressionUUID->"c72ccd11-884d-074a-bf1c-ed71d6dc6298"], +Cell[470809, 12172, 172, 3, 109, "Output",ExpressionUUID->"9dfb51ec-f6bd-9540-91f7-9d4800c6c680"] +}, Open ]], +Cell[CellGroupData[{ +Cell[471018, 12180, 2028, 55, 109, "Input",ExpressionUUID->"725c3011-bda9-4c42-96ce-9a77a5dc787c"], +Cell[473049, 12237, 20375, 384, 109, "Output",ExpressionUUID->"e400bdb6-95ee-464e-9e4c-d5d7da48485f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[493461, 12626, 2118, 60, 109, "Input",ExpressionUUID->"1ea503b1-33a1-2744-a92d-2e1269faf5ed"], +Cell[495582, 12688, 501, 11, 109, "Message",ExpressionUUID->"1c59fae3-3f74-0144-b936-915cf372347d"], +Cell[496086, 12701, 503, 11, 109, "Message",ExpressionUUID->"c058b3d2-ecc0-7348-bdec-143a71e7f77c"], +Cell[496592, 12714, 506, 11, 109, "Message",ExpressionUUID->"049ee41e-a5fd-7e46-9ca5-37402fcadc74"], +Cell[497101, 12727, 458, 10, 109, "Message",ExpressionUUID->"5bf93938-89e6-8d49-a495-6173a8c36739"], +Cell[497562, 12739, 22161, 409, 109, "Output",ExpressionUUID->"0ea0f8f9-2a4b-804f-a2c8-287645f62313"] +}, Open ]], +Cell[519738, 13151, 209, 5, 109, "Input",ExpressionUUID->"b530b35f-2a32-0145-82a7-25a7a01bdd8f"], +Cell[CellGroupData[{ +Cell[519972, 13160, 1616, 48, 109, "Input",ExpressionUUID->"a0d63734-417a-b84f-b5c7-88ca33cb9355"], +Cell[521591, 13210, 590, 12, 71, "Message",ExpressionUUID->"cb4665e4-f252-8e4c-9d71-b694fbe7aa53"], +Cell[522184, 13224, 589, 12, 71, "Message",ExpressionUUID->"e67b353a-d4a9-454a-9cac-3e22ef8a4d4b"], +Cell[522776, 13238, 593, 12, 71, "Message",ExpressionUUID->"9dbc6a20-c95c-084e-b19f-b6bb6bd70d6b"], +Cell[523372, 13252, 456, 10, 32, "Message",ExpressionUUID->"f9b6cbc5-ab52-2741-b8bf-bf6796495def"], +Cell[523831, 13264, 170, 3, 41, "Output",ExpressionUUID->"1439e238-af89-2243-beb8-0a46e5e09115"] +}, Open ]], +Cell[CellGroupData[{ +Cell[524038, 13272, 2251, 64, 81, "Input",ExpressionUUID->"97b28b29-5d04-5c42-a0e8-93b70f20e7f6"], +Cell[526292, 13338, 568, 12, 71, "Message",ExpressionUUID->"033374a1-a008-6240-84e3-c1c7a7e65b75"], +Cell[526863, 13352, 573, 12, 71, "Message",ExpressionUUID->"88ab6d85-4789-7346-aeee-8e9a4b87248d"], +Cell[527439, 13366, 574, 12, 71, "Message",ExpressionUUID->"051100a9-488b-4d4d-83c7-cdc54aef13e0"], +Cell[528016, 13380, 458, 10, 32, "Message",ExpressionUUID->"a33cd954-f1de-bf45-8642-effd7c3e029f"], +Cell[528477, 13392, 173, 3, 41, "Output",ExpressionUUID->"48a4017b-948a-6a48-8b10-d81adf4b9038"] +}, Open ]], +Cell[CellGroupData[{ +Cell[528687, 13400, 2221, 64, 81, "Input",ExpressionUUID->"f9d1ad25-05cb-d544-8ab6-cdce838d9efe"], +Cell[530911, 13466, 570, 12, 71, "Message",ExpressionUUID->"d8156b3f-4442-9146-9c48-cb34fdfb79d3"], +Cell[531484, 13480, 573, 12, 71, "Message",ExpressionUUID->"60007a19-2492-cd46-a203-7c2bbbc6591f"], +Cell[532060, 13494, 573, 12, 71, "Message",ExpressionUUID->"8754c4a5-0539-0247-94a5-8a81a9ae7e49"], +Cell[532636, 13508, 458, 10, 32, "Message",ExpressionUUID->"3af4c7f8-fe90-6646-8e3b-058500b348e9"], +Cell[533097, 13520, 171, 3, 41, "Output",ExpressionUUID->"46f7d520-9bcf-9d48-ae7c-54e91ca06983"] +}, Open ]], +Cell[CellGroupData[{ +Cell[533305, 13528, 2221, 64, 81, "Input",ExpressionUUID->"0794d062-69d5-0a45-936e-533b19d33de6"], +Cell[535529, 13594, 570, 12, 71, "Message",ExpressionUUID->"ba4db233-5a2e-4340-98d0-df918a11e2c7"], +Cell[536102, 13608, 573, 12, 71, "Message",ExpressionUUID->"444b24ca-68bb-7144-a655-403eefa4900f"], +Cell[536678, 13622, 574, 12, 71, "Message",ExpressionUUID->"f2dc2286-68d4-d74f-83ea-dd0f591156a8"], +Cell[537255, 13636, 458, 10, 32, "Message",ExpressionUUID->"4974a702-c238-6d47-b5b2-a3c25cacf142"], +Cell[537716, 13648, 173, 3, 41, "Output",ExpressionUUID->"d46043b7-707b-4740-ab89-0a2b96978cff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[537926, 13656, 215, 6, 60, "Input",ExpressionUUID->"95c56266-e4d3-624e-89c1-cedeeeb0247a"], +Cell[538144, 13664, 172, 3, 41, "Output",ExpressionUUID->"188c2681-ea17-924e-adb2-007b19a9ee86"] +}, Open ]], +Cell[538331, 13670, 115, 1, 36, "Input",ExpressionUUID->"ee676f20-cb04-4514-a345-3267f7ec3f62"] } ] *) -(* End of internal cache information *) - diff --git a/Pu240_798-811_TitovAA/172-68_h_Pu240_26-27/h_172-68_Pu240_26-27_pr_Qw1.nb b/Pu240_798-811_TitovAA/172-68_h_Pu240_26-27/h_172-68_Pu240_26-27_pr_Qw1.nb index 14330be..0c012e1 100644 --- a/Pu240_798-811_TitovAA/172-68_h_Pu240_26-27/h_172-68_Pu240_26-27_pr_Qw1.nb +++ b/Pu240_798-811_TitovAA/172-68_h_Pu240_26-27/h_172-68_Pu240_26-27_pr_Qw1.nb @@ -3,25 +3,4875 @@ (*** 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[ 616445, 14932] +NotebookOptionsPosition[ 576623, 14301] +NotebookOutlinePosition[ 577063, 14319] +CellTagsIndexPosition[ 577020, 14316] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f1", "="}]], "Input", + RowBox[{"d", "=", "1.95"}]], "Input", CellChangeTimes->{ - 3.9918488488187084`*^9},ExpressionUUID->"bdefbecf-0aaa-4a45-a861-\ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.994074211664226*^9, 3.994074212605893*^9}, { + 3.994074246621201*^9, 3.994074265935053*^9}}, + CellLabel-> + "In[304]:=",ExpressionUUID->"c2303b07-bc1f-4c0b-99bd-0a177158c28a"], + +Cell[BoxData["1.95`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, {3.994074196804253*^9, 3.994074214075809*^9}, { + 3.9940742497364883`*^9, 3.9940742697527313`*^9}}, + CellLabel-> + "Out[304]=",ExpressionUUID->"2535f57e-bf26-4668-82db-56fbf445e27d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.9940740226123867`*^9, 3.994074030397141*^9}}, + CellLabel-> + "In[305]:=",ExpressionUUID->"c76bbb61-80e8-4e41-aa3e-045340802fcf"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, {3.9940741968744993`*^9, 3.994074214306916*^9}, { + 3.994074249779564*^9, 3.9940742697936697`*^9}}, + CellLabel-> + "Out[305]=",ExpressionUUID->"b384378e-12c0-49e3-bc75-3a3a5c75e7a2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "172"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.994074027305109*^9, 3.994074028074005*^9}}, + CellLabel-> + "In[306]:=",ExpressionUUID->"4dccf315-b74a-468f-8cc9-292e02e2be1d"], + +Cell[BoxData["172"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, {3.994074196887857*^9, 3.994074214318638*^9}, { + 3.9940742497919416`*^9, 3.9940742698063602`*^9}}, + CellLabel-> + "Out[306]=",ExpressionUUID->"81f4a846-a137-45bf-b186-5e2aaacacf97"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel-> + "In[307]:=",ExpressionUUID->"41706838-5a7e-480e-8ecc-91deb1799ebb"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, {3.9940741969012012`*^9, 3.994074214329146*^9}, { + 3.9940742497961063`*^9, 3.994074269818478*^9}}, + CellLabel-> + "Out[307]=",ExpressionUUID->"dbf415d9-dfc4-4c33-b18e-4e3e8609746c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel-> + "In[308]:=",ExpressionUUID->"480934a0-2012-422d-a8e9-e8bbcbc53832"], + +Cell[BoxData["0.5435000000000001`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, {3.9940741969137297`*^9, 3.99407421433959*^9}, { + 3.994074249812704*^9, 3.994074269830806*^9}}, + CellLabel-> + "Out[308]=",ExpressionUUID->"dfe62b03-5c81-4c96-bb08-c78f426d6fad"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel-> + "In[309]:=",ExpressionUUID->"67d260e5-c08f-47d1-90a6-f4f1ba36a0ac"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, {3.9940741969249763`*^9, 3.994074214349977*^9}, { + 3.99407424982506*^9, 3.994074269834938*^9}}, + CellLabel-> + "Out[309]=",ExpressionUUID->"a15ca613-bf01-4fc1-a178-17b36650e893"] +}, 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[310]:=",ExpressionUUID->"1b4d3cca-08f9-42ed-924f-d60e0423521a"], + +Cell[BoxData["6.451105409164632`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, {3.994074196937035*^9, 3.994074214360525*^9}, { + 3.994074249837967*^9, 3.9940742698497963`*^9}}, + CellLabel-> + "Out[310]=",ExpressionUUID->"b3e3c8a2-5d81-4064-a688-c2b973c5a715"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel-> + "In[311]:=",ExpressionUUID->"9bacfab7-dcc8-40db-a53c-d9e1773f8271"], + +Cell[BoxData["4.734719918224123`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, {3.9940741969492617`*^9, 3.994074214370586*^9}, { + 3.994074249850299*^9, 3.994074269861824*^9}}, + CellLabel-> + "Out[311]=",ExpressionUUID->"da07f438-d638-440a-ae52-93e5e6b23074"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.852277809"}]], "Input", + CellChangeTimes->{3.991799283179735*^9, 3.9940740415240393`*^9}, + CellLabel-> + "In[312]:=",ExpressionUUID->"ec035fad-bd5f-44e3-8b33-fa345e8bbe79"], + +Cell[BoxData["0.852277809`"], "Output", + CellChangeTimes->{{3.994074196961275*^9, 3.994074214380481*^9}, { + 3.994074249862259*^9, 3.994074269873619*^9}}, + CellLabel-> + "Out[312]=",ExpressionUUID->"44175d84-1f4e-492f-b451-4c6700c6e9bc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.3903505481"}]], "Input", + CellChangeTimes->{3.991799280663351*^9, 3.99407404519888*^9}, + CellLabel-> + "In[313]:=",ExpressionUUID->"b08fa886-95df-40f4-8692-86146cd9d966"], + +Cell[BoxData["0.3903505481`"], "Output", + CellChangeTimes->{{3.99407419697276*^9, 3.9940742143904543`*^9}, { + 3.99407424987506*^9, 3.994074269885377*^9}}, + CellLabel-> + "Out[313]=",ExpressionUUID->"913047a3-1387-4baa-8aac-b84044f03d42"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel-> + "In[314]:=",ExpressionUUID->"b73c65fb-1529-4ccc-9638-bb74fde5ccf4"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, {3.9940741969837933`*^9, 3.994074214400448*^9}, { + 3.994074249886661*^9, 3.994074269897275*^9}}, + CellLabel-> + "Out[314]=",ExpressionUUID->"fcc31659-2cf4-4e42-a252-e9fb7896e045"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel-> + "In[315]:=",ExpressionUUID->"3e8baf51-d805-44b6-855b-1764a465b389"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, {3.9940741969946527`*^9, 3.994074214410337*^9}, { + 3.9940742498968973`*^9, 3.994074269909542*^9}}, + CellLabel-> + "Out[315]=",ExpressionUUID->"d38b99d0-f98b-4117-9442-b30acc9610e7"] +}, 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[316]:=",ExpressionUUID->"d9490fab-f768-4641-bcb4-2c07126465c9"], + +Cell[BoxData["2.19751871461767`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, {3.994074197005885*^9, 3.994074214421315*^9}, { + 3.994074249908176*^9, 3.994074269922103*^9}}, + CellLabel-> + "Out[316]=",ExpressionUUID->"869ce53b-c97c-4833-bc92-74e90e326041"] +}, 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[317]:=",ExpressionUUID->"5d6fd45e-371d-4730-8350-a00a9428aba0"], + +Cell[BoxData["1.4271003361718892`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, {3.994074197017363*^9, 3.994074214431409*^9}, { + 3.994074249918466*^9, 3.99407426993229*^9}}, + CellLabel-> + "Out[317]=",ExpressionUUID->"af44cb12-88b8-475e-a331-075d22b1c37a"] +}, 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[318]:=",ExpressionUUID->"c1675d26-29b6-435b-8507-450e1b9cd35c"], + +Cell[BoxData["0.4377300224639211`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, {3.994074197029154*^9, 3.994074214441661*^9}, { + 3.9940742499280653`*^9, 3.994074269943099*^9}}, + CellLabel-> + "Out[318]=",ExpressionUUID->"c9658dd2-d5db-47aa-9c17-58632cc9938c"] +}, 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[319]:=",ExpressionUUID->"62bd7499-b779-4a2e-b402-c6c116da6aa8"], + +Cell[BoxData[ + RowBox[{"-", "0.09062394423616692`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, {3.9940741970396633`*^9, 3.994074214453579*^9}, { + 3.994074249938612*^9, 3.994074269953534*^9}}, + CellLabel-> + "Out[319]=",ExpressionUUID->"56b3374a-da47-4659-96ba-b0bf9da5c683"] +}, 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[320]:=",ExpressionUUID->"a5027d85-6841-4605-aa82-c64a003259ea"], + +Cell[BoxData[ + RowBox[{"-", "0.5469059277191528`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, {3.994074197050289*^9, 3.994074214467175*^9}, { + 3.994074249949532*^9, 3.9940742699645767`*^9}}, + CellLabel-> + "Out[320]=",ExpressionUUID->"ae639116-fd58-4bec-8aa9-9aa5233e6f4f"] +}, 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[321]:=",ExpressionUUID->"afa6c8b1-cee5-47e1-8c41-541d281afab3"], + +Cell[BoxData["0.7058922703634168`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, {3.994074197062862*^9, 3.99407421448357*^9}, { + 3.9940742499608793`*^9, 3.994074269975973*^9}}, + CellLabel-> + "Out[321]=",ExpressionUUID->"0bfba552-d95c-4e68-857a-64eda6622716"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel-> + "In[322]:=",ExpressionUUID->"1cd55d90-845c-435a-a2f0-72bd3912dd11"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, {3.9940741970755367`*^9, 3.994074214495585*^9}, { + 3.994074249972097*^9, 3.9940742699872303`*^9}}, + CellLabel-> + "Out[322]=",ExpressionUUID->"c90ddf2e-406f-4ab1-ae03-d4d3598d5087"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel-> + "In[323]:=",ExpressionUUID->"98ce1876-70aa-439d-9843-8a6d50bcdb1a"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, {3.994074197089067*^9, 3.994074214507393*^9}, { + 3.99407424998314*^9, 3.994074269998393*^9}}, + CellLabel-> + "Out[323]=",ExpressionUUID->"334a305b-a7d4-41dd-a9f2-bd2a9e0f6f6b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel-> + "In[324]:=",ExpressionUUID->"0e2fd10b-9b3d-49bd-97b4-f6aea055e53d"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, {3.9940741971016483`*^9, 3.9940742145189466`*^9}, { + 3.994074249994322*^9, 3.994074270009439*^9}}, + CellLabel-> + "Out[324]=",ExpressionUUID->"a70bc9cf-1d40-4900-9f81-79f7c17c56ec"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel-> + "In[325]:=",ExpressionUUID->"9b1b2d2c-f545-413e-a5d1-a9231ab40f19"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, {3.9940741971133337`*^9, 3.99407421453058*^9}, { + 3.994074250005796*^9, 3.994074270020775*^9}}, + CellLabel-> + "Out[325]=",ExpressionUUID->"57e37269-c73f-4f19-9995-1e69d30faad8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel-> + "In[326]:=",ExpressionUUID->"b0dddbf6-264b-48b8-9f40-b12fc5cee44b"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, {3.994074197124381*^9, 3.994074214542293*^9}, { + 3.994074250017613*^9, 3.9940742700324078`*^9}}, + CellLabel-> + "Out[326]=",ExpressionUUID->"034f4765-983f-4935-b497-40c57b64644d"] +}, 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.994074052479707*^9, 3.9940740526225157`*^9}}, + CellLabel-> + "In[327]:=",ExpressionUUID->"3e3a6b65-8e1b-4a52-89ef-25d15697523e"], + +Cell[BoxData["66"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, {3.99407419713608*^9, 3.994074214545911*^9}, { + 3.994074250027919*^9, 3.99407427004285*^9}}, + CellLabel-> + "Out[327]=",ExpressionUUID->"cfb663c2-5472-4568-938a-3dfa357180e4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, {3.99407405616786*^9, 3.994074056966621*^9}}, + CellLabel-> + "In[328]:=",ExpressionUUID->"0a2ff06c-c17e-4fc1-bf0b-6d86182e3c71"], + +Cell[BoxData["28"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, {3.994074197147298*^9, 3.99407421455849*^9}, { + 3.9940742500393*^9, 3.994074270054291*^9}}, + CellLabel-> + "Out[328]=",ExpressionUUID->"66ad5212-75b8-4f98-9784-8a7cb70cab6c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel-> + "In[329]:=",ExpressionUUID->"eca15aaf-a325-4ba0-aabe-531c8f755721"], + +Cell[BoxData["68"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, {3.994074197159381*^9, 3.994074214569437*^9}, { + 3.9940742500504293`*^9, 3.9940742700651913`*^9}}, + CellLabel-> + "Out[329]=",ExpressionUUID->"92ca39f8-23c2-4734-8231-67432edf5ed4"] +}, 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[330]:=",ExpressionUUID->"e4599ea3-3e3f-4bbb-ac77-1b2d986c01f5"], + +Cell[BoxData["0.10723666210670314`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, {3.994074197172007*^9, 3.994074214580143*^9}, { + 3.994074250060562*^9, 3.9940742700753593`*^9}}, + CellLabel-> + "Out[330]=",ExpressionUUID->"d06b21d7-937b-4bca-85aa-d9de41d7785e"] +}, 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[331]:=",ExpressionUUID->"8682357b-84ee-4a81-aca7-f8d1992781e4"], + +Cell[BoxData[ + RowBox[{"-", "2.5678385772913814`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, {3.994074197183957*^9, 3.994074214590371*^9}, { + 3.994074250071249*^9, 3.99407427008554*^9}}, + CellLabel-> + "Out[331]=",ExpressionUUID->"0eeef043-f790-44e7-b428-85706656778c"] +}, 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[332]:=",ExpressionUUID->"0548130b-a7f1-4bcf-90a2-d5e1ca2a41ac"], + +Cell[BoxData["17.339463280274387`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, {3.994074197196582*^9, 3.9940742146010637`*^9}, { + 3.994074250082402*^9, 3.9940742700958967`*^9}}, + CellLabel-> + "Out[332]=",ExpressionUUID->"a1ab6c92-980d-44da-baff-b9d7d712495e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel-> + "In[333]:=",ExpressionUUID->"5feaa455-cd90-4a1b-bee3-013c233b1de6"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, {3.9940741972101183`*^9, 3.9940742146122723`*^9}, { + 3.994074250094462*^9, 3.994074270106193*^9}}, + CellLabel-> + "Out[333]=",ExpressionUUID->"10d3aaf5-d1dd-429f-9ebd-46ac46ad18ce"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "1.895"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { + 3.994074073155587*^9, 3.994074075499446*^9}}, + CellLabel-> + "In[334]:=",ExpressionUUID->"819ee20a-afd4-4998-8541-13fb50299e39"], + +Cell[BoxData["1.895`"], "Output", + CellChangeTimes->{{3.9940741972243557`*^9, 3.994074214623012*^9}, { + 3.994074250106516*^9, 3.9940742701165457`*^9}}, + CellLabel-> + "Out[334]=",ExpressionUUID->"0e516592-953a-4497-a59a-81e7a7c50ce9"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel-> + "In[335]:=",ExpressionUUID->"c270b218-84a4-4d5d-98f9-efe8565909b8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.765"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.994074078227497*^9, 3.9940740796275997`*^9}}, + CellLabel-> + "In[336]:=",ExpressionUUID->"e5efaf7e-1883-42e3-bb34-f0eec47110c6"], + +Cell[BoxData["0.765`"], "Output", + CellChangeTimes->{{3.994074197245954*^9, 3.994074214636681*^9}, { + 3.9940742501222553`*^9, 3.99407427012961*^9}}, + CellLabel-> + "Out[336]=",ExpressionUUID->"fca8e291-a815-4b40-9ae5-6d638ea57cc0"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel-> + "In[337]:=",ExpressionUUID->"c5389072-6286-4e69-a64a-8a3980f643e5"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "2.605"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.9940740824169683`*^9, 3.9940740841708183`*^9}}, + CellLabel-> + "In[338]:=",ExpressionUUID->"3dd7a1c5-86a9-4e32-982a-5adf0ae9576f"], + +Cell[BoxData["2.605`"], "Output", + CellChangeTimes->{{3.994074197269746*^9, 3.994074214649177*^9}, { + 3.994074250142523*^9, 3.994074270141824*^9}}, + CellLabel-> + "Out[338]=",ExpressionUUID->"0d40b176-0434-45e1-bf60-bb78b76af80a"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel-> + "In[339]:=",ExpressionUUID->"3938439a-c820-4c2d-8e74-7cbbedcd8f4d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.115"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, {3.994074087466568*^9, 3.9940740892428827`*^9}}, + CellLabel-> + "In[340]:=",ExpressionUUID->"2f7153ea-7f6d-4235-bca3-5dbf33dde762"], + +Cell[BoxData["1.115`"], "Output", + CellChangeTimes->{{3.9940741972942533`*^9, 3.9940742146616087`*^9}, { + 3.994074250166238*^9, 3.9940742701540823`*^9}}, + CellLabel-> + "Out[340]=",ExpressionUUID->"0d5cdd2f-e59c-4a5a-bf98-40bbcaad9882"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel-> + "In[341]:=",ExpressionUUID->"dfbfaeac-9117-4085-9fd7-886380acdde6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.375"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, {3.994074092127721*^9, + 3.994074094282755*^9}}, + CellLabel-> + "In[342]:=",ExpressionUUID->"9eda4320-fddf-44ad-bb7f-e05be7f9f5cc"], + +Cell[BoxData["1.375`"], "Output", + CellChangeTimes->{{3.9940741973176317`*^9, 3.9940742146740303`*^9}, { + 3.994074250185948*^9, 3.9940742701663027`*^9}}, + CellLabel-> + "Out[342]=",ExpressionUUID->"7f2fb8d9-d33a-40e8-ab11-d14d1ed4ca81"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel-> + "In[343]:=",ExpressionUUID->"6e87e300-5a5f-433f-a36d-3ec730a3519a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.545"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.994074098253368*^9, + 3.994074099547431*^9}}, + CellLabel-> + "In[344]:=",ExpressionUUID->"318b0610-0520-4baa-a5e2-01385dfdb090"], + +Cell[BoxData["0.545`"], "Output", + CellChangeTimes->{{3.9940741973401327`*^9, 3.994074214686512*^9}, { + 3.994074250207786*^9, 3.994074270178926*^9}}, + CellLabel-> + "Out[344]=",ExpressionUUID->"3e52eedb-7a3a-47bc-9542-6c08ff31f764"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel-> + "In[345]:=",ExpressionUUID->"fb84d67f-9e6a-433e-9b98-4d733952fe7d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "1.35"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.994074102320486*^9, + 3.9940741031259613`*^9}}, + CellLabel-> + "In[346]:=",ExpressionUUID->"e2a5552a-e080-4faa-acd4-219b8da3d983"], + +Cell[BoxData["1.35`"], "Output", + CellChangeTimes->{{3.994074197360721*^9, 3.994074214698968*^9}, { + 3.9940742502296133`*^9, 3.994074270190978*^9}}, + CellLabel-> + "Out[346]=",ExpressionUUID->"c36b097f-1233-40fc-8a42-b3b4aaf02e0f"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel-> + "In[347]:=",ExpressionUUID->"d6c7fe31-31bd-4277-a193-087061e6ab66"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "0.655"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, {3.994074105268124*^9, 3.994074106561956*^9}}, + CellLabel-> + "In[348]:=",ExpressionUUID->"a63db46b-c143-4718-a1ae-6b9356a84d6c"], + +Cell[BoxData["0.655`"], "Output", + CellChangeTimes->{{3.994074197383122*^9, 3.994074214711643*^9}, { + 3.994074250250944*^9, 3.994074270203269*^9}}, + CellLabel-> + "Out[348]=",ExpressionUUID->"60f5a6a5-9ac4-4b59-b0eb-629ae61f7b72"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel-> + "In[349]:=",ExpressionUUID->"5c7354df-e9d9-408f-b6a3-ec42624df8ac"], + +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[350]:=",ExpressionUUID->"7c83793f-9fb2-460b-912b-a5765c838794"], + +Cell[BoxData["0.1542863605960474`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, {3.994074197462419*^9, 3.9940742147508163`*^9}, { + 3.994074250298726*^9, 3.994074270240198*^9}}, + CellLabel-> + "Out[350]=",ExpressionUUID->"53563666-4956-4c0a-a1f4-d8a671b062b8"] +}, 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[351]:=",ExpressionUUID->"5a2da6c3-54d7-4b53-b3b9-387e498d10c7"], + +Cell[BoxData["6.986649521084862`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, {3.994074197551347*^9, 3.994074214777306*^9}, { + 3.9940742503242893`*^9, 3.994074270266127*^9}}, + CellLabel-> + "Out[351]=",ExpressionUUID->"57a0156d-60f8-4caf-ae50-62c52b266141"] +}, 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[352]:=",ExpressionUUID->"a8899c63-c959-470e-9a7c-e2103f872ccf"], + +Cell[BoxData[ + RowBox[{"-", "15.225784715275067`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, {3.994074197626877*^9, 3.994074214803336*^9}, { + 3.994074250347639*^9, 3.9940742702914057`*^9}}, + CellLabel-> + "Out[352]=",ExpressionUUID->"b693017d-19b2-452d-a1a8-23c052bf8e33"] +}, 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[353]:=",ExpressionUUID->"76dfb881-94dd-456f-b6bf-1968b08bb1d5"], + +Cell[BoxData[ + RowBox[{"-", "19.527743438945258`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, {3.994074197680339*^9, 3.9940742148337717`*^9}, { + 3.994074250376841*^9, 3.9940742703219957`*^9}}, + CellLabel-> + "Out[353]=",ExpressionUUID->"bb12cc55-76d7-478c-81ee-0c6bae73260c"] +}, 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[354]:=",ExpressionUUID->"5500dc0c-e0b4-47ca-9021-6f3b4365a6ff"], + +Cell[BoxData[ + RowBox[{"-", "55.27021800638023`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, {3.9940741977668943`*^9, 3.9940742148649673`*^9}, { + 3.994074250406843*^9, 3.994074270352029*^9}}, + CellLabel-> + "Out[354]=",ExpressionUUID->"44e16a80-dfb2-4dde-9068-6d056b3cde83"] +}, 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[355]:=",ExpressionUUID->"ac44f406-053e-4c01-8e43-53ea50b82bea"], + +Cell[BoxData[ + RowBox[{"-", "141.4524755079782`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, {3.994074197832451*^9, 3.994074214909892*^9}, { + 3.994074250439662*^9, 3.994074270387487*^9}}, + CellLabel-> + "Out[355]=",ExpressionUUID->"04f65688-baf7-4b5f-8cba-6bbd5e682a79"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel-> + "In[356]:=",ExpressionUUID->"839b99cd-58dd-4224-b037-9c5a79dc1336"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, {3.994074197929666*^9, 3.994074214922945*^9}, { + 3.994074250452722*^9, 3.994074270403535*^9}}, + CellLabel-> + "Out[356]=",ExpressionUUID->"8f3a36d2-1343-404d-9e10-b1352048231c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel-> + "In[357]:=",ExpressionUUID->"b052058d-e99f-4885-a585-548d5e125978"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, {3.994074197952071*^9, 3.994074214935376*^9}, { + 3.994074250464295*^9, 3.994074270413846*^9}}, + CellLabel-> + "Out[357]=",ExpressionUUID->"2c16f062-4640-45be-9984-8660dee1e14d"] +}, 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[358]:=",ExpressionUUID->"eef9d8b4-a0e9-447d-bdc5-b8336fc1f39a"], + +Cell[BoxData["111.55440139653717`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, {3.9940741979658833`*^9, 3.994074214947126*^9}, { + 3.99407425047659*^9, 3.994074270424139*^9}}, + CellLabel-> + "Out[358]=",ExpressionUUID->"a5f41d9f-3aec-4bd6-84fe-d3689f979070"] +}, 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[359]:=",ExpressionUUID->"e6a7237c-3b3d-4bb7-b1d1-34cdbaa149b1"], + +Cell[BoxData[ + RowBox[{"-", "95.43889051158258`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, {3.994074197994025*^9, 3.994074214959611*^9}, { + 3.994074250488699*^9, 3.994074270434445*^9}}, + CellLabel-> + "Out[359]=",ExpressionUUID->"abd2645c-0feb-477b-a087-5c6629e48a69"] +}, 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[360]:=",ExpressionUUID->"3664e8fb-e1ab-43b9-9add-e60159ff90a3"], + +Cell[BoxData["113.13286100443031`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, {3.994074198004314*^9, 3.994074214972053*^9}, { + 3.994074250500126*^9, 3.99407427044481*^9}}, + CellLabel-> + "Out[360]=",ExpressionUUID->"d75400a1-cafc-4e31-ae01-0244864530ee"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel-> + "In[361]:=",ExpressionUUID->"dbfdecd8-86f2-4f33-8479-b665ae97414f"], + +Cell[BoxData["0.4377300224639211`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, {3.994074198016279*^9, 3.994074214983481*^9}, { + 3.994074250511408*^9, 3.994074270455081*^9}}, + CellLabel-> + "Out[361]=",ExpressionUUID->"6d52c905-8f0e-4d70-b5a7-c48accf9f3aa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel-> + "In[362]:=",ExpressionUUID->"6f117784-e0a6-4a59-91a0-fee47248ec56"], + +Cell[BoxData[ + RowBox[{"-", "0.09062394423616692`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, {3.99407419803306*^9, 3.994074214997123*^9}, { + 3.994074250525971*^9, 3.994074270465309*^9}}, + CellLabel-> + "Out[362]=",ExpressionUUID->"5b1a98e4-b698-430e-9037-0676c04bbbe7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel-> + "In[363]:=",ExpressionUUID->"dd09394e-74c8-4a27-8746-45835fc98c93"], + +Cell[BoxData[ + RowBox[{"-", "0.5469059277191528`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, {3.994074198060273*^9, 3.994074215008013*^9}, { + 3.994074250535656*^9, 3.994074270476778*^9}}, + CellLabel-> + "Out[363]=",ExpressionUUID->"d9d01165-51a7-480d-8850-ea6a72761898"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel-> + "In[364]:=",ExpressionUUID->"9f69a6c7-3997-4002-bb6c-26013ebb1a5a"], + +Cell[BoxData["0.7058922703634168`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, {3.9940741980734253`*^9, 3.994074215018661*^9}, { + 3.994074250546678*^9, 3.9940742704879427`*^9}}, + CellLabel-> + "Out[364]=",ExpressionUUID->"c2a2c1ac-4c50-49f1-b3a7-4157254eab1d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel-> + "In[365]:=",ExpressionUUID->"baf11c76-bf79-4d0a-9a2c-bdafe286cae9"], + +Cell[BoxData["2.19751871461767`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, {3.994074198087656*^9, 3.9940742150302687`*^9}, { + 3.994074250550354*^9, 3.994074270499359*^9}}, + CellLabel-> + "Out[365]=",ExpressionUUID->"de75ad4b-2bd2-4387-b782-158c178e59e3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel-> + "In[366]:=",ExpressionUUID->"4683b1e8-4fb0-4f25-9aa5-17033bf43351"], + +Cell[BoxData["1.4271003361718892`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, {3.994074198096857*^9, 3.994074215043764*^9}, { + 3.994074250564603*^9, 3.994074270511888*^9}}, + CellLabel-> + "Out[366]=",ExpressionUUID->"d43edcd3-215e-46c2-b554-ef918f580163"] +}, 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[367]:=",ExpressionUUID->"e5dac210-3b35-4af6-864e-da3f6b5c9e98"], + +Cell[BoxData[ + RowBox[{"-", "33.18726375495992`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, {3.994074198107793*^9, 3.994074215058444*^9}, { + 3.994074250574132*^9, 3.99407427052425*^9}}, + CellLabel-> + "Out[367]=",ExpressionUUID->"3a7439c2-9608-4258-a2d0-1db6d6ad1a53"] +}, 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[368]:=",ExpressionUUID->"f9fdc6b9-713b-46f9-91e0-65813debd8af"], + +Cell[BoxData[ + RowBox[{"-", "6.498883922853802`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, {3.994074198134163*^9, 3.994074215071083*^9}, { + 3.994074250583393*^9, 3.994074270535636*^9}}, + CellLabel-> + "Out[368]=",ExpressionUUID->"19eaf4ad-6191-4911-8437-11a9452e407f"] +}, 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[369]:=",ExpressionUUID->"8db01e79-356c-4941-9d39-a95567306c14"], + +Cell[BoxData["78.36713764157724`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, {3.99407419816089*^9, 3.994074215083827*^9}, { + 3.994074250592779*^9, 3.994074270550357*^9}}, + CellLabel-> + "Out[369]=",ExpressionUUID->"04771195-19d1-46cd-8e7b-4ff8f9ead357"] +}, 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[370]:=",ExpressionUUID->"95cd7e3a-170e-4446-bf3c-2df3d68d7942"], + +Cell[BoxData[ + RowBox[{"-", "95.43889051158258`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, {3.994074198173212*^9, 3.9940742151226263`*^9}, { + 3.9940742506018353`*^9, 3.99407427055612*^9}}, + CellLabel-> + "Out[370]=",ExpressionUUID->"9e30a8ab-b3a3-4fc9-83d9-2b3c3b5051a3"] +}, 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[371]:=",ExpressionUUID->"979f7f8d-3031-4f5b-9e99-384995127670"], + +Cell[BoxData["106.6339770815765`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, {3.994074198185794*^9, 3.994074215135048*^9}, { + 3.994074250611326*^9, 3.994074270578539*^9}}, + CellLabel-> + "Out[371]=",ExpressionUUID->"1de44f98-1359-4f5c-9ea3-304fbdede234"] +}, 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[372]:=",ExpressionUUID->"50de5a73-3b9f-4f04-b13b-a2cf36c0d150"], + +Cell[BoxData["51.145215962859936`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, {3.994074198196261*^9, 3.9940742151460247`*^9}, { + 3.994074250621415*^9, 3.99407427059237*^9}}, + CellLabel-> + "Out[372]=",ExpressionUUID->"ec9d0798-717b-4601-a1c9-14a894cdd51c"] +}, 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[373]:=",ExpressionUUID->"5d7c1fde-f494-4e17-a51f-46bb84e1aab1"], + +Cell[BoxData["674.8474263523988`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, {3.994074198207098*^9, 3.9940742151610737`*^9}, { + 3.99407425063161*^9, 3.9940742706025248`*^9}}, + CellLabel-> + "Out[373]=",ExpressionUUID->"79dd13f8-e4fd-4ee1-a785-699086888888"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"f1", "=", "0.4720031358"}]], "Input", + CellChangeTimes->{3.9918488488187084`*^9, + 3.9942360266712303`*^9},ExpressionUUID->"bdefbecf-0aaa-4a45-a861-\ 406cf54e52d1"], Cell[BoxData[""], "Input", @@ -30,9 +4880,9 @@ Cell[BoxData[""], "Input", 7bcc4af89c62"], Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", - CellChangeTimes->{ - 3.9918488509977226`*^9},ExpressionUUID->"45ed831b-459a-9a41-990f-\ + RowBox[{"f2", "=", "0.185261438"}]], "Input", + CellChangeTimes->{3.9918488509977226`*^9, + 3.9942360324114323`*^9},ExpressionUUID->"45ed831b-459a-9a41-990f-\ c079ad464f5d"], Cell[BoxData[""], "Input", @@ -1582,8 +6432,8 @@ f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a "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[{ @@ -2844,9 +7694,72 @@ Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", - RowBox[{"{", "}"}], "]"}]}]], "Input", - CellChangeTimes->{{3.991799458254999*^9, - 3.9917994623413925`*^9}},ExpressionUUID->"0f83f761-b16d-5343-987d-\ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.005263"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.01561"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.025439"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.034428"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.042324"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.048911"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.054071"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.057726"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.059905"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.060662"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.060144"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.058493"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.055924"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.052616"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.048792"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.044623"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.040302"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.035956"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.031726"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.027689"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.023931"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.020479"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.017372"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.014605"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.012182"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.010077"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.008278"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.006747"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.005464"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.004393"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.003512"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.994236210323447*^9},ExpressionUUID->"0f83f761-b16d-5343-987d-\ 511095eaf120"], Cell[BoxData[ @@ -9381,13 +14294,16 @@ Cell[BoxData["0.08155763943441016`"], "Output", CellChangeTimes->{3.9913335366395893`*^9}, CellLabel-> "Out[229]=",ExpressionUUID->"3737ba01-5151-874d-9846-1c8b07e42d7a"] -}, Open ]] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input",ExpressionUUID->"1f55205b-efe5-4a7b-b8d6-2a9b139a8bcd"] }, -WindowSize->{718.5, 729.75}, -WindowMargins->{{0, Automatic}, {Automatic, 0}}, +WindowSize->{714, 876}, +WindowMargins->{{-3, Automatic}, {3, Automatic}}, CellContext->Notebook, -Magnification:>0.8 Inherited, -FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +Magnification:>1. Inherited, +FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", StyleDefinitions->"Default.nb", ExpressionUUID->"5cbbdd72-8791-4241-8a7a-ad89ed63e6b0" ] @@ -9402,368 +14318,623 @@ 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, 354, 7, 36, "Input",ExpressionUUID->"c2303b07-bc1f-4c0b-99bd-0a177158c28a"], +Cell[933, 31, 260, 5, 41, "Output",ExpressionUUID->"2535f57e-bf26-4668-82db-56fbf445e27d"] }, 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[1230, 41, 253, 5, 36, "Input",ExpressionUUID->"c76bbb61-80e8-4e41-aa3e-045340802fcf"], +Cell[1486, 48, 260, 5, 41, "Output",ExpressionUUID->"b384378e-12c0-49e3-bc75-3a3a5c75e7a2"] }, 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[1783, 58, 226, 5, 36, "Input",ExpressionUUID->"4dccf315-b74a-468f-8cc9-292e02e2be1d"], +Cell[2012, 65, 260, 5, 41, "Output",ExpressionUUID->"81f4a846-a137-45bf-b186-5e2aaacacf97"] }, 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[2309, 75, 180, 4, 36, "Input",ExpressionUUID->"41706838-5a7e-480e-8ecc-91deb1799ebb"], +Cell[2492, 81, 260, 5, 41, "Output",ExpressionUUID->"dbf415d9-dfc4-4c33-b18e-4e3e8609746c"] }, 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[2789, 91, 262, 8, 54, "Input",ExpressionUUID->"480934a0-2012-422d-a8e9-e8bbcbc53832"], +Cell[3054, 101, 273, 5, 41, "Output",ExpressionUUID->"dfe62b03-5c81-4c96-bb08-c78f426d6fad"] }, 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[3364, 111, 136, 3, 36, "Input",ExpressionUUID->"67d260e5-c08f-47d1-90a6-f4f1ba36a0ac"], +Cell[3503, 116, 259, 5, 41, "Output",ExpressionUUID->"a15ca613-bf01-4fc1-a178-17b36650e893"] }, 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[3799, 126, 281, 7, 36, "Input",ExpressionUUID->"1b4d3cca-08f9-42ed-924f-d60e0423521a"], +Cell[4083, 135, 273, 5, 41, "Output",ExpressionUUID->"b3e3c8a2-5d81-4064-a688-c2b973c5a715"] }, 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[4393, 145, 262, 8, 36, "Input",ExpressionUUID->"9bacfab7-dcc8-40db-a53c-d9e1773f8271"], +Cell[4658, 155, 273, 5, 41, "Output",ExpressionUUID->"da07f438-d638-440a-ae52-93e5e6b23074"] }, 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[4968, 165, 209, 4, 36, "Input",ExpressionUUID->"ec035fad-bd5f-44e3-8b33-fa345e8bbe79"], +Cell[5180, 171, 237, 4, 41, "Output",ExpressionUUID->"44175d84-1f4e-492f-b451-4c6700c6e9bc"] }, 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[5454, 180, 207, 4, 36, "Input",ExpressionUUID->"b08fa886-95df-40f4-8692-86146cd9d966"], +Cell[5664, 186, 238, 4, 41, "Output",ExpressionUUID->"913047a3-1387-4baa-8aac-b84044f03d42"] }, 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[5939, 195, 133, 3, 55, "Input",ExpressionUUID->"b73c65fb-1529-4ccc-9638-bb74fde5ccf4"], +Cell[6075, 200, 256, 5, 62, "Output",ExpressionUUID->"fcc31659-2cf4-4e42-a252-e9fb7896e045"] }, 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[6368, 210, 133, 3, 55, "Input",ExpressionUUID->"3e8baf51-d805-44b6-855b-1764a465b389"], +Cell[6504, 215, 258, 5, 62, "Output",ExpressionUUID->"d38b99d0-f98b-4117-9442-b30acc9610e7"] }, 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[6799, 225, 561, 20, 148, "Input",ExpressionUUID->"d9490fab-f768-4641-bcb4-2c07126465c9"], +Cell[7363, 247, 270, 5, 62, "Output",ExpressionUUID->"869ce53b-c97c-4833-bc92-74e90e326041"] }, 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[7670, 257, 561, 20, 148, "Input",ExpressionUUID->"5d6fd45e-371d-4730-8350-a00a9428aba0"], +Cell[8234, 279, 271, 5, 62, "Output",ExpressionUUID->"af44cb12-88b8-475e-a331-075d22b1c37a"] }, 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[8542, 289, 1592, 51, 211, "Input",ExpressionUUID->"c1675d26-29b6-435b-8507-450e1b9cd35c"], +Cell[10137, 342, 272, 5, 62, "Output",ExpressionUUID->"c9658dd2-d5db-47aa-9c17-58632cc9938c"] }, 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[10446, 352, 1426, 47, 211, "Input",ExpressionUUID->"62bd7499-b779-4a2e-b402-c6c116da6aa8"], +Cell[11875, 401, 290, 6, 62, "Output",ExpressionUUID->"56b3374a-da47-4659-96ba-b0bf9da5c683"] }, 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[12202, 412, 1426, 47, 211, "Input",ExpressionUUID->"a5027d85-6841-4605-aa82-c64a003259ea"], +Cell[13631, 461, 291, 6, 62, "Output",ExpressionUUID->"ae639116-fd58-4bec-8aa9-9aa5233e6f4f"] }, 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[13959, 472, 1592, 51, 211, "Input",ExpressionUUID->"afa6c8b1-cee5-47e1-8c41-541d281afab3"], +Cell[15554, 525, 269, 5, 62, "Output",ExpressionUUID->"0bfba552-d95c-4e68-857a-64eda6622716"] }, 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[15860, 535, 135, 3, 55, "Input",ExpressionUUID->"1cd55d90-845c-435a-a2f0-72bd3912dd11"], +Cell[15998, 540, 258, 5, 62, "Output",ExpressionUUID->"c90ddf2e-406f-4ab1-ae03-d4d3598d5087"] }, 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[16293, 550, 137, 3, 55, "Input",ExpressionUUID->"98ce1876-70aa-439d-9843-8a6d50bcdb1a"], +Cell[16433, 555, 255, 5, 62, "Output",ExpressionUUID->"334a305b-a7d4-41dd-a9f2-bd2a9e0f6f6b"] }, 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[16725, 565, 138, 3, 55, "Input",ExpressionUUID->"0e2fd10b-9b3d-49bd-97b4-f6aea055e53d"], +Cell[16866, 570, 262, 5, 62, "Output",ExpressionUUID->"a70bc9cf-1d40-4900-9f81-79f7c17c56ec"] }, 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[17165, 580, 223, 5, 55, "Input",ExpressionUUID->"9b1b2d2c-f545-413e-a5d1-a9231ab40f19"], +Cell[17391, 587, 272, 6, 62, "Output",ExpressionUUID->"57e37269-c73f-4f19-9995-1e69d30faad8"] }, 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[17700, 598, 138, 3, 55, "Input",ExpressionUUID->"b0dddbf6-264b-48b8-9f40-b12fc5cee44b"], +Cell[17841, 603, 260, 5, 62, "Output",ExpressionUUID->"034f4765-983f-4935-b497-40c57b64644d"] }, 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[18138, 613, 328, 6, 55, "Input",ExpressionUUID->"3e3a6b65-8e1b-4a52-89ef-25d15697523e"], +Cell[18469, 621, 253, 5, 62, "Output",ExpressionUUID->"cfb663c2-5472-4568-938a-3dfa357180e4"] }, 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[18759, 631, 299, 6, 55, "Input",ExpressionUUID->"0a2ff06c-c17e-4fc1-bf0b-6d86182e3c71"], +Cell[19061, 639, 252, 5, 62, "Output",ExpressionUUID->"66ad5212-75b8-4f98-9784-8a7cb70cab6c"] }, 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[19350, 649, 223, 5, 55, "Input",ExpressionUUID->"eca15aaf-a325-4ba0-aabe-531c8f755721"], +Cell[19576, 656, 257, 5, 62, "Output",ExpressionUUID->"92ca39f8-23c2-4734-8231-67432edf5ed4"] }, 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[19870, 666, 354, 11, 81, "Input",ExpressionUUID->"e4599ea3-3e3f-4bbb-ac77-1b2d986c01f5"], +Cell[20227, 679, 275, 5, 62, "Output",ExpressionUUID->"d06b21d7-937b-4bca-85aa-d9de41d7785e"] }, 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[20539, 689, 354, 11, 81, "Input",ExpressionUUID->"8682357b-84ee-4a81-aca7-f8d1992781e4"], +Cell[20896, 702, 288, 6, 62, "Output",ExpressionUUID->"0eeef043-f790-44e7-b428-85706656778c"] }, 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[21221, 713, 998, 27, 154, "Input",ExpressionUUID->"0548130b-a7f1-4bcf-90a2-d5e1ca2a41ac"], +Cell[22222, 742, 276, 5, 62, "Output",ExpressionUUID->"a1ab6c92-980d-44da-baff-b9d7d712495e"] }, 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[22535, 752, 203, 4, 55, "Input",ExpressionUUID->"5feaa455-cd90-4a1b-bee3-013c233b1de6"], +Cell[22741, 758, 258, 5, 62, "Output",ExpressionUUID->"10d3aaf5-d1dd-429f-9ebd-46ac46ad18ce"] }, 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[23036, 768, 331, 6, 55, "Input",ExpressionUUID->"819ee20a-afd4-4998-8541-13fb50299e39"], +Cell[23370, 776, 235, 4, 62, "Output",ExpressionUUID->"0e516592-953a-4497-a59a-81e7a7c50ce9"] +}, Open ]], +Cell[23620, 783, 177, 3, 55, "Input",ExpressionUUID->"c270b218-84a4-4d5d-98f9-efe8565909b8"], +Cell[CellGroupData[{ +Cell[23822, 790, 333, 6, 55, "Input",ExpressionUUID->"e5efaf7e-1883-42e3-bb34-f0eec47110c6"], +Cell[24158, 798, 232, 4, 62, "Output",ExpressionUUID->"fca8e291-a815-4b40-9ae5-6d638ea57cc0"] +}, Open ]], +Cell[24405, 805, 177, 3, 55, "Input",ExpressionUUID->"c5389072-6286-4e69-a64a-8a3980f643e5"], +Cell[CellGroupData[{ +Cell[24607, 812, 336, 6, 55, "Input",ExpressionUUID->"3dd7a1c5-86a9-4e32-982a-5adf0ae9576f"], +Cell[24946, 820, 231, 4, 62, "Output",ExpressionUUID->"0d40b176-0434-45e1-bf60-bb78b76af80a"] +}, Open ]], +Cell[25192, 827, 177, 3, 55, "Input",ExpressionUUID->"3938439a-c820-4c2d-8e74-7cbbedcd8f4d"], +Cell[CellGroupData[{ +Cell[25394, 834, 358, 6, 55, "Input",ExpressionUUID->"2f7153ea-7f6d-4235-bca3-5dbf33dde762"], +Cell[25755, 842, 237, 4, 62, "Output",ExpressionUUID->"0d5cdd2f-e59c-4a5a-bf98-40bbcaad9882"] +}, Open ]], +Cell[26007, 849, 175, 3, 55, "Input",ExpressionUUID->"dfbfaeac-9117-4085-9fd7-886380acdde6"], +Cell[CellGroupData[{ +Cell[26207, 856, 303, 6, 55, "Input",ExpressionUUID->"9eda4320-fddf-44ad-bb7f-e05be7f9f5cc"], +Cell[26513, 864, 237, 4, 62, "Output",ExpressionUUID->"7f2fb8d9-d33a-40e8-ab11-d14d1ed4ca81"] +}, Open ]], +Cell[26765, 871, 175, 3, 55, "Input",ExpressionUUID->"6e87e300-5a5f-433f-a36d-3ec730a3519a"], +Cell[CellGroupData[{ +Cell[26965, 878, 307, 6, 55, "Input",ExpressionUUID->"318b0610-0520-4baa-a5e2-01385dfdb090"], +Cell[27275, 886, 233, 4, 62, "Output",ExpressionUUID->"3e52eedb-7a3a-47bc-9542-6c08ff31f764"] +}, Open ]], +Cell[27523, 893, 177, 3, 55, "Input",ExpressionUUID->"fb84d67f-9e6a-433e-9b98-4d733952fe7d"], +Cell[CellGroupData[{ +Cell[27725, 900, 311, 6, 55, "Input",ExpressionUUID->"e2a5552a-e080-4faa-acd4-219b8da3d983"], +Cell[28039, 908, 232, 4, 62, "Output",ExpressionUUID->"c36b097f-1233-40fc-8a42-b3b4aaf02e0f"] +}, Open ]], +Cell[28286, 915, 176, 3, 55, "Input",ExpressionUUID->"d6c7fe31-31bd-4277-a193-087061e6ab66"], +Cell[CellGroupData[{ +Cell[28487, 922, 279, 5, 55, "Input",ExpressionUUID->"a63db46b-c143-4718-a1ae-6b9356a84d6c"], +Cell[28769, 929, 231, 4, 62, "Output",ExpressionUUID->"60f5a6a5-9ac4-4b59-b0eb-629ae61f7b72"] +}, Open ]], +Cell[29015, 936, 179, 3, 55, "Input",ExpressionUUID->"5c7354df-e9d9-408f-b6a3-ec42624df8ac"], +Cell[CellGroupData[{ +Cell[29219, 943, 19813, 486, 3214, "Input",ExpressionUUID->"7c83793f-9fb2-460b-912b-a5765c838794"], +Cell[49035, 1431, 272, 5, 62, "Output",ExpressionUUID->"53563666-4956-4c0a-a1f4-d8a671b062b8"] }, 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[49344, 1441, 19752, 490, 3214, "Input",ExpressionUUID->"5a2da6c3-54d7-4b53-b3b9-387e498d10c7"], +Cell[69099, 1933, 271, 5, 62, "Output",ExpressionUUID->"57a0156d-60f8-4caf-ae50-62c52b266141"] }, 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[69407, 1943, 19752, 484, 3213, "Input",ExpressionUUID->"a8899c63-c959-470e-9a7c-e2103f872ccf"], +Cell[89162, 2429, 289, 6, 62, "Output",ExpressionUUID->"b693017d-19b2-452d-a1a8-23c052bf8e33"] }, 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[89488, 2440, 22538, 554, 3639, "Input",ExpressionUUID->"76dfb881-94dd-456f-b6bf-1968b08bb1d5"], +Cell[112029, 2996, 291, 6, 62, "Output",ExpressionUUID->"bb12cc55-76d7-478c-81ee-0c6bae73260c"] }, 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[112357, 3007, 22539, 554, 3639, "Input",ExpressionUUID->"5500dc0c-e0b4-47ca-9021-6f3b4365a6ff"], +Cell[134899, 3563, 292, 6, 62, "Output",ExpressionUUID->"44e16a80-dfb2-4dde-9068-6d056b3cde83"] }, 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[135228, 3574, 25495, 627, 4065, "Input",ExpressionUUID->"ac44f406-053e-4c01-8e43-53ea50b82bea"], +Cell[160726, 4203, 286, 6, 62, "Output",ExpressionUUID->"04f65688-baf7-4b5f-8cba-6bbd5e682a79"] }, 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[161049, 4214, 134, 3, 55, "Input",ExpressionUUID->"839b99cd-58dd-4224-b037-9c5a79dc1336"], +Cell[161186, 4219, 254, 5, 62, "Output",ExpressionUUID->"8f3a36d2-1343-404d-9e10-b1352048231c"] }, 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[161477, 4229, 134, 3, 55, "Input",ExpressionUUID->"b052058d-e99f-4885-a585-548d5e125978"], +Cell[161614, 4234, 254, 5, 62, "Output",ExpressionUUID->"2c16f062-4640-45be-9984-8660dee1e14d"] }, 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[161905, 4244, 1148, 40, 211, "Input",ExpressionUUID->"eef9d8b4-a0e9-447d-bdc5-b8336fc1f39a"], +Cell[163056, 4286, 271, 5, 62, "Output",ExpressionUUID->"a5f41d9f-3aec-4bd6-84fe-d3689f979070"] }, 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[163364, 4296, 1045, 36, 211, "Input",ExpressionUUID->"e6a7237c-3b3d-4bb7-b1d1-34cdbaa149b1"], +Cell[164412, 4334, 286, 6, 62, "Output",ExpressionUUID->"abd2645c-0feb-477b-a087-5c6629e48a69"] }, 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[164735, 4345, 1148, 40, 211, "Input",ExpressionUUID->"3664e8fb-e1ab-43b9-9add-e60159ff90a3"], +Cell[165886, 4387, 271, 5, 62, "Output",ExpressionUUID->"d75400a1-cafc-4e31-ae01-0244864530ee"] }, 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[166194, 4397, 112, 2, 55, "Input",ExpressionUUID->"dbfdecd8-86f2-4f33-8479-b665ae97414f"], +Cell[166309, 4401, 272, 5, 62, "Output",ExpressionUUID->"6d52c905-8f0e-4d70-b5a7-c48accf9f3aa"] }, 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[166618, 4411, 112, 2, 55, "Input",ExpressionUUID->"6f117784-e0a6-4a59-91a0-fee47248ec56"], +Cell[166733, 4415, 289, 6, 62, "Output",ExpressionUUID->"5b1a98e4-b698-430e-9037-0676c04bbbe7"] }, 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[167059, 4426, 112, 2, 55, "Input",ExpressionUUID->"dd09394e-74c8-4a27-8746-45835fc98c93"], +Cell[167174, 4430, 287, 6, 62, "Output",ExpressionUUID->"d9d01165-51a7-480d-8850-ea6a72761898"] }, 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[167498, 4441, 112, 2, 55, "Input",ExpressionUUID->"9f69a6c7-3997-4002-bb6c-26013ebb1a5a"], +Cell[167613, 4445, 274, 5, 62, "Output",ExpressionUUID->"c2a2c1ac-4c50-49f1-b3a7-4157254eab1d"] }, 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[167924, 4455, 111, 2, 55, "Input",ExpressionUUID->"baf11c76-bf79-4d0a-9a2c-bdafe286cae9"], +Cell[168038, 4459, 272, 5, 62, "Output",ExpressionUUID->"de75ad4b-2bd2-4387-b782-158c178e59e3"] }, 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[168347, 4469, 111, 2, 55, "Input",ExpressionUUID->"4683b1e8-4fb0-4f25-9aa5-17033bf43351"], +Cell[168461, 4473, 272, 5, 62, "Output",ExpressionUUID->"d43edcd3-215e-46c2-b554-ef918f580163"] }, 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[168770, 4483, 501, 17, 105, "Input",ExpressionUUID->"e5dac210-3b35-4af6-864e-da3f6b5c9e98"], +Cell[169274, 4502, 287, 6, 62, "Output",ExpressionUUID->"3a7439c2-9608-4258-a2d0-1db6d6ad1a53"] }, 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[169598, 4513, 501, 17, 105, "Input",ExpressionUUID->"f9fdc6b9-713b-46f9-91e0-65813debd8af"], +Cell[170102, 4532, 286, 6, 62, "Output",ExpressionUUID->"19eaf4ad-6191-4911-8437-11a9452e407f"] }, 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[170425, 4543, 1792, 61, 358, "Input",ExpressionUUID->"8db01e79-356c-4941-9d39-a95567306c14"], +Cell[172220, 4606, 270, 5, 62, "Output",ExpressionUUID->"04771195-19d1-46cd-8e7b-4ff8f9ead357"] }, 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[172527, 4616, 1105, 37, 256, "Input",ExpressionUUID->"95cd7e3a-170e-4446-bf3c-2df3d68d7942"], +Cell[173635, 4655, 291, 6, 62, "Output",ExpressionUUID->"9e30a8ab-b3a3-4fc9-83d9-2b3c3b5051a3"] }, 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[173963, 4666, 1822, 62, 340, "Input",ExpressionUUID->"979f7f8d-3031-4f5b-9e99-384995127670"], +Cell[175788, 4730, 269, 5, 41, "Output",ExpressionUUID->"1de44f98-1359-4f5c-9ea3-304fbdede234"] }, 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[176094, 4740, 1635, 54, 208, "Input",ExpressionUUID->"50de5a73-3b9f-4f04-b13b-a2cf36c0d150"], +Cell[177732, 4796, 273, 5, 41, "Output",ExpressionUUID->"ec9d0798-717b-4601-a1c9-14a894cdd51c"] }, 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[178042, 4806, 1635, 54, 208, "Input",ExpressionUUID->"5d7c1fde-f494-4e17-a51f-46bb84e1aab1"], +Cell[179680, 4862, 272, 5, 41, "Output",ExpressionUUID->"79dd13f8-e4fd-4ee1-a785-699086888888"] +}, Open ]], +Cell[179967, 4870, 189, 4, 36, "Input",ExpressionUUID->"bdefbecf-0aaa-4a45-a861-406cf54e52d1"], +Cell[180159, 4876, 154, 3, 36, "Input",ExpressionUUID->"a5161e25-7247-124f-8601-7bcc4af89c62"], +Cell[180316, 4881, 188, 4, 36, "Input",ExpressionUUID->"45ed831b-459a-9a41-990f-c079ad464f5d"], +Cell[180507, 4887, 154, 3, 36, "Input",ExpressionUUID->"bc946e22-fdd1-8b4b-8e5a-11f4dcb03e07"], +Cell[CellGroupData[{ +Cell[180686, 4894, 1301, 43, 174, "Input",ExpressionUUID->"78018a61-7851-fe4d-b32f-cb68a3158f29"], +Cell[181990, 4939, 178, 3, 41, "Output",ExpressionUUID->"1658422d-0016-324a-9843-942f5453a9c7"] }, 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"] -}, Open ]], -Cell[376133, 8866, 209, 5, 56, "Input",ExpressionUUID->"f380af60-a605-c546-a4c8-b989835aa113"], -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[182205, 4947, 910, 31, 128, "Input",ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-7221ff813b6d"], +Cell[183118, 4980, 175, 3, 41, "Output",ExpressionUUID->"d307b81f-3de4-ab46-9ef8-af5c6bc7c05b"] }, 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[183330, 4988, 887, 30, 128, "Input",ExpressionUUID->"f22831a7-63b7-f444-8e3a-fa370a62ac27"], +Cell[184220, 5020, 176, 3, 41, "Output",ExpressionUUID->"866e2a7a-c08a-d14a-ae9c-f63fbc316d85"] }, 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[184433, 5028, 558, 19, 66, "Input",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"], +Cell[184994, 5049, 172, 3, 41, "Output",ExpressionUUID->"bba1ae64-a2a6-4745-b870-cca298627f62"] }, 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[185203, 5057, 623, 21, 66, "Input",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"], +Cell[185829, 5080, 172, 3, 41, "Output",ExpressionUUID->"2d9a2576-51c1-274e-bb6b-3d0a12d8f955"] }, 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[186038, 5088, 170, 5, 71, "Input",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"], +Cell[186211, 5095, 172, 3, 41, "Output",ExpressionUUID->"55e80360-690f-0444-ac68-221fe09ddfd5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[186420, 5103, 170, 5, 69, "Input",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"], +Cell[186593, 5110, 171, 3, 41, "Output",ExpressionUUID->"ffa83e52-e057-8c44-be5c-a869714a425e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[186801, 5118, 181, 5, 55, "Input",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"], +Cell[186985, 5125, 170, 3, 41, "Output",ExpressionUUID->"daa1af48-56b9-b549-9a5e-fd35e4ace383"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187192, 5133, 181, 5, 55, "Input",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"], +Cell[187376, 5140, 172, 3, 41, "Output",ExpressionUUID->"045de583-e60b-c94a-9184-d9a46a689c39"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187585, 5148, 6055, 185, 831, "Input",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"], +Cell[193643, 5335, 172, 3, 41, "Output",ExpressionUUID->"cdaeef85-4599-4144-88b1-c12ccb960e67"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193852, 5343, 368, 9, 53, "Input",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"], +Cell[194223, 5354, 171, 3, 41, "Output",ExpressionUUID->"c4da64fa-539e-454c-a7bc-f5a50d741b33"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194431, 5362, 6122, 187, 900, "Input",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"], +Cell[200556, 5551, 173, 3, 41, "Output",ExpressionUUID->"a0ddd9ec-0ad8-da40-93c1-f69a540fecbb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[200766, 5559, 368, 9, 53, "Input",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"], +Cell[201137, 5570, 170, 3, 41, "Output",ExpressionUUID->"bb399ae8-0971-524b-99dd-45c3d83aff90"] +}, Open ]], +Cell[CellGroupData[{ +Cell[201344, 5578, 2663, 88, 435, "Input",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"], +Cell[204010, 5668, 171, 3, 41, "Output",ExpressionUUID->"8522d772-b29b-b14d-a623-3ad00b3d8250"] +}, Open ]], +Cell[CellGroupData[{ +Cell[204218, 5676, 2603, 85, 435, "Input",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"], +Cell[206824, 5763, 173, 3, 41, "Output",ExpressionUUID->"d88ed30c-77e3-0245-b8d9-3b803c379fb2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[207034, 5771, 3712, 118, 575, "Input",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"], +Cell[210749, 5891, 174, 3, 41, "Output",ExpressionUUID->"5d391006-3707-3d44-a060-c06781a98edd"] +}, Open ]], +Cell[210938, 5897, 138, 3, 36, "Input",ExpressionUUID->"714abd93-e0d1-eb45-a9e1-7a2f5d020eb1"], +Cell[CellGroupData[{ +Cell[211101, 5904, 2054, 59, 276, "Input",ExpressionUUID->"137c38a2-741c-bd43-b6d9-c0135e32eaf8"], +Cell[213158, 5965, 557, 12, 98, "Message",ExpressionUUID->"055bf31f-37b2-724c-aeef-d922f7a205c7"], +Cell[213718, 5979, 559, 12, 98, "Message",ExpressionUUID->"eeead3e4-54a5-7c4d-95b2-292dcdbe105a"], +Cell[214280, 5993, 561, 12, 98, "Message",ExpressionUUID->"87e34a07-7a78-bf46-b222-6e72d11fd18d"], +Cell[214844, 6007, 458, 10, 32, "Message",ExpressionUUID->"1cf9faa5-3432-3349-b45a-58344623fc63"], +Cell[215305, 6019, 172, 3, 41, "Output",ExpressionUUID->"acb58738-85fd-0f40-b8fa-3a779aa79369"] +}, Open ]], +Cell[CellGroupData[{ +Cell[215514, 6027, 2052, 59, 276, "Input",ExpressionUUID->"9b196534-2ca5-e54b-8014-b0ab3cd09ac2"], +Cell[217569, 6088, 555, 12, 98, "Message",ExpressionUUID->"6fb03e9c-623b-b24d-bccd-c05b2662537c"], +Cell[218127, 6102, 559, 12, 98, "Message",ExpressionUUID->"410ed293-2b04-a346-b193-5e006759c884"], +Cell[218689, 6116, 561, 12, 98, "Message",ExpressionUUID->"9e59cf72-2df3-6741-910e-ddcc2125aa8b"], +Cell[219253, 6130, 458, 10, 32, "Message",ExpressionUUID->"6f223de4-f4b9-0a4c-b3b3-f489f4259713"], +Cell[219714, 6142, 172, 3, 41, "Output",ExpressionUUID->"d8300689-0813-6149-9a7f-c358ba826aac"] +}, Open ]], +Cell[CellGroupData[{ +Cell[219923, 6150, 1936, 53, 232, "Input",ExpressionUUID->"124cd7db-c537-8943-bef2-1a154ab4a709"], +Cell[221862, 6205, 20458, 382, 296, "Output",ExpressionUUID->"a7dc53c9-dabc-784f-a94a-f1fb7ab10c84"] +}, Open ]], +Cell[CellGroupData[{ +Cell[242357, 6592, 2094, 60, 311, "Input",ExpressionUUID->"5a7f9400-1446-9746-a463-bade8ae5c530"], +Cell[244454, 6654, 500, 11, 71, "Message",ExpressionUUID->"eede1010-35b4-8e43-8206-4c3ebae733c0"], +Cell[244957, 6667, 503, 11, 71, "Message",ExpressionUUID->"01174b23-a2bd-8e4e-90f5-af7e82df101e"], +Cell[245463, 6680, 506, 11, 71, "Message",ExpressionUUID->"ec7385ad-4809-8947-afea-81e4a95fc523"], +Cell[245972, 6693, 455, 10, 32, "Message",ExpressionUUID->"4176ecfe-3aff-0f4b-824e-b07e40312968"], +Cell[246430, 6705, 57321, 985, 290, "Output",ExpressionUUID->"6ef8802e-494c-9d4c-94ba-3ee854b2b684"] +}, Open ]], +Cell[303766, 7693, 2455, 69, 296, "Input",ExpressionUUID->"0f83f761-b16d-5343-987d-511095eaf120"], +Cell[306224, 7764, 209, 5, 36, "Input",ExpressionUUID->"8cdd4baa-f7c9-104e-b978-89d3982ba28f"], +Cell[CellGroupData[{ +Cell[306458, 7773, 217, 7, 61, "Input",ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-3438788b15d6"], +Cell[306678, 7782, 172, 3, 41, "Output",ExpressionUUID->"bea5e069-6c61-f84f-be94-f0a852e2aafc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[306887, 7790, 1816, 53, 311, "Input",ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-0e75880d5d98"], +Cell[308706, 7845, 508, 11, 71, "Message",ExpressionUUID->"3a61d965-a130-7645-90c6-a5061b94ec40"], +Cell[309217, 7858, 508, 11, 71, "Message",ExpressionUUID->"c3c0d10c-aa86-9b43-bfa9-71bc099863f1"], +Cell[309728, 7871, 511, 11, 71, "Message",ExpressionUUID->"321e1ff2-86f6-7244-895a-0b744ecd0cf1"], +Cell[310242, 7884, 456, 10, 32, "Message",ExpressionUUID->"43e0f399-4fd6-3f4d-a3a8-ef137bebb344"], +Cell[310701, 7896, 26000, 472, 291, "Output",ExpressionUUID->"4e674430-b3ee-f841-98e7-88500054cf35"] +}, Open ]], +Cell[CellGroupData[{ +Cell[336738, 8373, 1616, 48, 132, "Input",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"], +Cell[338357, 8423, 584, 12, 118, "Message",ExpressionUUID->"6dc439d9-4983-a74d-a424-1e627442f8ec"], +Cell[338944, 8437, 588, 12, 118, "Message",ExpressionUUID->"cbbb0a14-cac3-b246-be52-03554c6d0159"], +Cell[339535, 8451, 592, 12, 118, "Message",ExpressionUUID->"afaf59d8-5c82-5843-ba76-5dd1061c22bd"], +Cell[340130, 8465, 456, 10, 32, "Message",ExpressionUUID->"370cb98e-1084-6940-9e45-78218dc7334e"], +Cell[340589, 8477, 169, 3, 41, "Output",ExpressionUUID->"49c1839c-f9a0-514a-9803-38aedd206508"] +}, Open ]], +Cell[CellGroupData[{ +Cell[340795, 8485, 2249, 64, 348, "Input",ExpressionUUID->"eb852908-4d60-c84e-80d9-a57fd4094f56"], +Cell[343047, 8551, 555, 12, 98, "Message",ExpressionUUID->"e4da2c2e-bc79-8048-aec6-e0a36c5fd50c"], +Cell[343605, 8565, 557, 12, 136, "Message",ExpressionUUID->"ff48d9a8-4f15-044a-8d17-d378e560badf"], +Cell[344165, 8579, 563, 12, 136, "Message",ExpressionUUID->"d97cd881-ad70-0043-811a-b6650c7bff48"], +Cell[344731, 8593, 458, 10, 136, "Message",ExpressionUUID->"dc1ff9fc-c736-e742-9bd5-f36a7c2c6c53"], +Cell[345192, 8605, 173, 3, 41, "Output",ExpressionUUID->"207fc206-b3fa-1a42-8709-2c8aaaf304b0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[345402, 8613, 2223, 64, 348, "Input",ExpressionUUID->"d11037f6-09e7-b44f-8a1d-47c1a485c608"], +Cell[347628, 8679, 555, 12, 98, "Message",ExpressionUUID->"079487fc-3029-b74e-ba27-a61cf73f30a2"], +Cell[348186, 8693, 557, 12, 98, "Message",ExpressionUUID->"6fef6245-eafb-7343-8d9c-509c47662fd8"], +Cell[348746, 8707, 561, 12, 98, "Message",ExpressionUUID->"caeb451e-fce0-a24e-bdb2-20066bf32e23"], +Cell[349310, 8721, 458, 10, 32, "Message",ExpressionUUID->"b9263c45-06ba-d24d-a71c-72933a67fb86"], +Cell[349771, 8733, 173, 3, 41, "Output",ExpressionUUID->"fdc26e81-7e73-a54e-8b48-fba744fd21b7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[349981, 8741, 2221, 64, 348, "Input",ExpressionUUID->"431dd2fa-6331-2449-bc19-0d79e6ed8953"], +Cell[352205, 8807, 557, 12, 98, "Message",ExpressionUUID->"3270b87e-9743-ef45-96a4-2ce51373a203"], +Cell[352765, 8821, 557, 12, 98, "Message",ExpressionUUID->"b5a7511b-af1a-b946-83d4-1951541611b2"], +Cell[353325, 8835, 563, 12, 98, "Message",ExpressionUUID->"55836c22-e074-4442-9aa3-8442534fcabe"], +Cell[353891, 8849, 456, 10, 32, "Message",ExpressionUUID->"18c3aa33-3860-5f41-a9ac-8cd3806fef7e"], +Cell[354350, 8861, 173, 3, 41, "Output",ExpressionUUID->"62510f7e-bac9-8b4e-86ce-182bdd5d56b9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[354560, 8869, 213, 6, 136, "Input",ExpressionUUID->"8c5df121-e0b9-a146-bc34-b231aa8028b9"], +Cell[354776, 8877, 171, 3, 136, "Output",ExpressionUUID->"5c7cd89e-20ed-8d44-83bb-e2e46deab974"] +}, Open ]], +Cell[354962, 8883, 245, 5, 136, "Input",ExpressionUUID->"831a27fc-89ff-e041-97f1-0ec5d19a7879"], +Cell[CellGroupData[{ +Cell[355232, 8892, 558, 19, 66, "Input",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"], +Cell[355793, 8913, 172, 3, 41, "Output",ExpressionUUID->"e3d357af-87e3-0047-959d-fa0139c5bfc4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[356002, 8921, 170, 5, 71, "Input",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"], +Cell[356175, 8928, 173, 3, 41, "Output",ExpressionUUID->"93dda073-df54-8f4e-afab-666de5caf927"] +}, Open ]], +Cell[CellGroupData[{ +Cell[356385, 8936, 181, 5, 55, "Input",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"], +Cell[356569, 8943, 173, 3, 41, "Output",ExpressionUUID->"db5e4010-00e8-574c-8b32-365b8147ba2d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[356779, 8951, 6055, 185, 831, "Input",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"], +Cell[362837, 9138, 172, 3, 41, "Output",ExpressionUUID->"6f5204f9-42a7-0343-a2cd-76cd7618ba90"] +}, Open ]], +Cell[CellGroupData[{ +Cell[363046, 9146, 368, 9, 53, "Input",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"], +Cell[363417, 9157, 170, 3, 41, "Output",ExpressionUUID->"732feb85-572c-6a40-bb32-258aa6fbb12e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[363624, 9165, 6122, 187, 900, "Input",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"], +Cell[369749, 9354, 175, 3, 41, "Output",ExpressionUUID->"330db3dd-df0f-5e4b-9e84-63e3da6287e1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[369961, 9362, 368, 9, 53, "Input",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"], +Cell[370332, 9373, 172, 3, 41, "Output",ExpressionUUID->"8403ef7a-5add-ea45-a6c0-a6dc70f27bb8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[370541, 9381, 2663, 88, 435, "Input",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"], +Cell[373207, 9471, 173, 3, 41, "Output",ExpressionUUID->"aac00e4f-5d2b-4341-8ca5-f49d9556633e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[373417, 9479, 2603, 85, 435, "Input",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"], +Cell[376023, 9566, 171, 3, 41, "Output",ExpressionUUID->"eeee5a47-9547-7746-bb79-936b40364d7e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[376231, 9574, 3712, 118, 575, "Input",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"], +Cell[379946, 9694, 174, 3, 41, "Output",ExpressionUUID->"a1352554-6686-ff4e-be47-04b42c29b000"] +}, Open ]], +Cell[CellGroupData[{ +Cell[380157, 9702, 2052, 59, 276, "Input",ExpressionUUID->"220bdeed-2e17-e94c-a7b0-3e066daf15d7"], +Cell[382212, 9763, 578, 12, 98, "Message",ExpressionUUID->"c854318c-035d-f249-9a8c-a9608e137436"], +Cell[382793, 9777, 583, 12, 98, "Message",ExpressionUUID->"fc1eef58-3b5b-8c4c-bab7-60a3682b1d45"], +Cell[383379, 9791, 586, 12, 118, "Message",ExpressionUUID->"2e134293-05b5-624c-b206-73b12a84c5ea"], +Cell[383968, 9805, 456, 10, 32, "Message",ExpressionUUID->"2cac2ff4-fc29-a048-9fae-70918ed41968"], +Cell[384427, 9817, 170, 3, 41, "Output",ExpressionUUID->"2dcc4178-0b8d-9f48-a040-f2fc5cb8eacd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[384634, 9825, 2054, 59, 276, "Input",ExpressionUUID->"b8791a07-33fe-8c4f-9c59-dd23af9a4471"], +Cell[386691, 9886, 576, 12, 98, "Message",ExpressionUUID->"ac808335-5ecc-ee4f-a7ac-d889b0bf6e05"], +Cell[387270, 9900, 581, 12, 98, "Message",ExpressionUUID->"36b7d718-32d9-a441-b985-1fed8f0f10fd"], +Cell[387854, 9914, 586, 12, 118, "Message",ExpressionUUID->"ab31a569-fab4-434a-9c76-33aa9b59b117"], +Cell[388443, 9928, 458, 10, 32, "Message",ExpressionUUID->"4c41e56d-f5cb-b94c-b99a-06e306247825"], +Cell[388904, 9940, 172, 3, 41, "Output",ExpressionUUID->"5ec230cf-b87d-3e41-bc7f-1f3f2ff283ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[389113, 9948, 2028, 55, 232, "Input",ExpressionUUID->"3fe6e7f1-b44a-234f-af77-3cf1fdaf28d9"], +Cell[391144, 10005, 20011, 378, 296, "Output",ExpressionUUID->"3d0b6a0d-2dc0-3b48-b8dd-35b5149ee27f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[411192, 10388, 2115, 60, 136, "Input",ExpressionUUID->"ab29778f-f183-804b-b871-4070462057d7"], +Cell[413310, 10450, 501, 11, 136, "Message",ExpressionUUID->"abf9cb8a-fbbf-7a43-abcd-82efb32ab217"], +Cell[413814, 10463, 503, 11, 136, "Message",ExpressionUUID->"8fcd13e3-81e0-3446-8882-6e42ca5c0bd1"], +Cell[414320, 10476, 505, 11, 71, "Message",ExpressionUUID->"2c23ed60-41ee-5841-90ce-1d26cb02619d"], +Cell[414828, 10489, 456, 10, 32, "Message",ExpressionUUID->"fa59df63-76ff-4147-acd0-9eeaf33582c5"], +Cell[415287, 10501, 32548, 580, 290, "Output",ExpressionUUID->"4ab96fbd-92e0-8a42-8552-436bb2f629b6"] +}, Open ]], +Cell[447850, 11084, 209, 5, 36, "Input",ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-6bd251746ea6"], +Cell[CellGroupData[{ +Cell[448084, 11093, 1616, 48, 132, "Input",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"], +Cell[449703, 11143, 596, 12, 118, "Message",ExpressionUUID->"3273c967-a8f4-6b46-8292-dfd9dc69311d"], +Cell[450302, 11157, 599, 12, 118, "Message",ExpressionUUID->"cf5457ae-7056-8a4b-afa3-32b95e922259"], +Cell[450904, 11171, 605, 12, 118, "Message",ExpressionUUID->"7ef79528-2ca4-544d-8bbf-e4564533e47a"], +Cell[451512, 11185, 456, 10, 136, "Message",ExpressionUUID->"3f59bf2a-0193-1b41-9437-359e4e291f20"], +Cell[451971, 11197, 170, 3, 136, "Output",ExpressionUUID->"6c94ff26-1921-5a44-a360-bda32f564938"] +}, Open ]], +Cell[CellGroupData[{ +Cell[452178, 11205, 2247, 64, 136, "Input",ExpressionUUID->"5a0cc4bb-b2b0-c64c-958a-7a397847208f"], +Cell[454428, 11271, 580, 12, 136, "Message",ExpressionUUID->"33abd0dc-5204-1046-87c9-87cecac6793f"], +Cell[455011, 11285, 583, 12, 136, "Message",ExpressionUUID->"a3e9f415-30c2-d04b-a044-33980d6ef6e9"], +Cell[455597, 11299, 584, 12, 136, "Message",ExpressionUUID->"3dddc3ab-89f8-ab44-a85d-f5130722f198"], +Cell[456184, 11313, 458, 10, 136, "Message",ExpressionUUID->"a3229605-5a49-544b-bbf6-cc14edd6c936"], +Cell[456645, 11325, 170, 3, 136, "Output",ExpressionUUID->"2f0f984a-e452-7f46-a8f1-230feda2f30b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[456852, 11333, 2219, 64, 348, "Input",ExpressionUUID->"22b50200-0b82-dc47-9932-f1f0210d6caf"], +Cell[459074, 11399, 580, 12, 98, "Message",ExpressionUUID->"1a479ad6-386a-fb47-95e4-f8a3ab25eccc"], +Cell[459657, 11413, 583, 12, 98, "Message",ExpressionUUID->"c45746b8-a614-4245-b137-e38355d43857"], +Cell[460243, 11427, 586, 12, 118, "Message",ExpressionUUID->"7ef9264b-fdf5-8e46-a39d-9d01a56d9fbc"], +Cell[460832, 11441, 458, 10, 32, "Message",ExpressionUUID->"424cc344-67bf-5349-951a-e3d6864f9105"], +Cell[461293, 11453, 171, 3, 41, "Output",ExpressionUUID->"d6fb3ea3-39a2-5b42-96f2-520a52fd0d9f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[461501, 11461, 2221, 64, 348, "Input",ExpressionUUID->"8a5105db-666c-444e-9451-d3e8d1574bcd"], +Cell[463725, 11527, 580, 12, 98, "Message",ExpressionUUID->"7c3b7078-d094-2344-a157-26438223ef0f"], +Cell[464308, 11541, 583, 12, 136, "Message",ExpressionUUID->"a4aaa457-e588-7a42-9066-29e614b18d91"], +Cell[464894, 11555, 584, 12, 136, "Message",ExpressionUUID->"8e9701ac-9508-2346-b853-523f9f269328"], +Cell[465481, 11569, 456, 10, 136, "Message",ExpressionUUID->"062aadbd-03a7-1f42-b815-d27ae6ddc83e"], +Cell[465940, 11581, 170, 3, 41, "Output",ExpressionUUID->"484b070c-cc4a-7049-8a18-4aa38bea8cd9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[466147, 11589, 213, 6, 60, "Input",ExpressionUUID->"d0efa798-230b-fa46-b413-76bfd8e40ccb"], +Cell[466363, 11597, 174, 3, 41, "Output",ExpressionUUID->"8b85bd5c-200a-cc44-9db5-38c5efe118ad"] +}, Open ]], +Cell[466552, 11603, 247, 5, 36, "Input",ExpressionUUID->"f842f74e-f562-934a-9011-6604b8708636"], +Cell[CellGroupData[{ +Cell[466824, 11612, 558, 19, 66, "Input",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"], +Cell[467385, 11633, 173, 3, 41, "Output",ExpressionUUID->"ddfcd06d-5644-fb4b-b789-815d8db71ce6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[467595, 11641, 170, 5, 71, "Input",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"], +Cell[467768, 11648, 173, 3, 41, "Output",ExpressionUUID->"96020250-b44c-694d-acbe-eb8b1c066e25"] +}, Open ]], +Cell[CellGroupData[{ +Cell[467978, 11656, 181, 5, 55, "Input",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"], +Cell[468162, 11663, 171, 3, 41, "Output",ExpressionUUID->"a3cad59a-97f1-1b4b-a0d3-0fcbb55e71c0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[468370, 11671, 6055, 185, 831, "Input",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"], +Cell[474428, 11858, 173, 3, 41, "Output",ExpressionUUID->"221426ad-3f43-834a-96dc-c22bf0ed0e23"] +}, Open ]], +Cell[CellGroupData[{ +Cell[474638, 11866, 368, 9, 53, "Input",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"], +Cell[475009, 11877, 172, 3, 41, "Output",ExpressionUUID->"54964f1a-0c74-5b45-a5d4-8b241885bf9d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[475218, 11885, 6122, 187, 900, "Input",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"], +Cell[481343, 12074, 175, 3, 41, "Output",ExpressionUUID->"637b4460-08e1-2c47-b235-20b94d0413ac"] +}, Open ]], +Cell[CellGroupData[{ +Cell[481555, 12082, 368, 9, 53, "Input",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"], +Cell[481926, 12093, 171, 3, 41, "Output",ExpressionUUID->"55b9de35-b316-8a4b-b6c7-df263fdc91bc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[482134, 12101, 2663, 88, 435, "Input",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"], +Cell[484800, 12191, 173, 3, 41, "Output",ExpressionUUID->"fd2a841e-0c22-9146-97fa-d652989dadbe"] +}, Open ]], +Cell[CellGroupData[{ +Cell[485010, 12199, 2603, 85, 435, "Input",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"], +Cell[487616, 12286, 171, 3, 41, "Output",ExpressionUUID->"94bd0f60-5228-9b42-83fe-23a478d55c7c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[487824, 12294, 3712, 118, 575, "Input",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"], +Cell[491539, 12414, 174, 3, 41, "Output",ExpressionUUID->"fe51f341-63c7-8f47-9357-139cd58159ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[491750, 12422, 2054, 59, 276, "Input",ExpressionUUID->"1dec41a6-6752-2041-9d38-804123b5ccd0"], +Cell[493807, 12483, 572, 12, 98, "Message",ExpressionUUID->"0e079558-1b2f-5a46-8c66-a9ee31993ddb"], +Cell[494382, 12497, 573, 12, 98, "Message",ExpressionUUID->"d148db97-53f1-5f42-bd2e-6e779140d5b6"], +Cell[494958, 12511, 579, 12, 98, "Message",ExpressionUUID->"186b0633-6992-1247-a396-6e446c898f15"], +Cell[495540, 12525, 456, 10, 32, "Message",ExpressionUUID->"81723359-f225-2c46-ac9d-0c5bbdaa253b"], +Cell[495999, 12537, 169, 3, 41, "Output",ExpressionUUID->"dfb1ce0b-e756-e84a-9724-ecf250122f19"] +}, Open ]], +Cell[CellGroupData[{ +Cell[496205, 12545, 2049, 58, 276, "Input",ExpressionUUID->"442c9cc5-031c-244c-a3bb-8044e56b047f"], +Cell[498257, 12605, 570, 12, 98, "Message",ExpressionUUID->"90df9b1f-7133-e445-8661-0af9d5feb8bd"], +Cell[498830, 12619, 575, 12, 98, "Message",ExpressionUUID->"93c48be2-5ad7-ad43-88e8-2c6ab8e2f132"], +Cell[499408, 12633, 579, 12, 136, "Message",ExpressionUUID->"cbcbafce-f556-944f-b5f3-9a75f9ae2725"], +Cell[499990, 12647, 458, 10, 136, "Message",ExpressionUUID->"83820e0a-b24a-cc46-bd5a-b19f0104c185"], +Cell[500451, 12659, 171, 3, 41, "Output",ExpressionUUID->"0d63c418-a50b-b94b-ad7d-1a46c6eb320d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[500659, 12667, 2030, 55, 232, "Input",ExpressionUUID->"75bdb70f-74f6-1a4c-9c04-b799ae260294"], +Cell[502692, 12724, 20011, 378, 295, "Output",ExpressionUUID->"a15038e3-a3ab-e64e-ad3b-e8cb09ec92a2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[522740, 13107, 2120, 60, 311, "Input",ExpressionUUID->"cbec275e-4d01-7747-9ece-7fa9a2a651b1"], +Cell[524863, 13169, 501, 11, 71, "Message",ExpressionUUID->"bf289d91-76e3-3e4e-937f-93db9b038d39"], +Cell[525367, 13182, 505, 11, 71, "Message",ExpressionUUID->"a52542a3-f03a-414f-86c8-3b114308924e"], +Cell[525875, 13195, 506, 11, 71, "Message",ExpressionUUID->"1c7104f0-99cd-c74c-b855-98253be62519"], +Cell[526384, 13208, 456, 10, 32, "Message",ExpressionUUID->"e66837df-658a-2c4c-973b-50c515d3781f"], +Cell[526843, 13220, 31008, 556, 290, "Output",ExpressionUUID->"0c8adc65-2b3c-a14f-87e8-79cdde17788b"] +}, Open ]], +Cell[557866, 13779, 209, 5, 36, "Input",ExpressionUUID->"f380af60-a605-c546-a4c8-b989835aa113"], +Cell[CellGroupData[{ +Cell[558100, 13788, 1616, 48, 132, "Input",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"], +Cell[559719, 13838, 593, 12, 118, "Message",ExpressionUUID->"6cb27c14-3e28-3a42-b8b7-fdcba2488488"], +Cell[560315, 13852, 595, 12, 136, "Message",ExpressionUUID->"cb81e4d8-f3c2-a440-be93-8add6661d63f"], +Cell[560913, 13866, 602, 12, 136, "Message",ExpressionUUID->"6fc2d4bb-75da-4f4f-bee0-560983907484"], +Cell[561518, 13880, 456, 10, 136, "Message",ExpressionUUID->"a75f01ed-738d-2b4a-b751-ccae7a894e31"], +Cell[561977, 13892, 172, 3, 136, "Output",ExpressionUUID->"a9b05d7b-788a-eb45-8401-918c1ed97234"] +}, Open ]], +Cell[CellGroupData[{ +Cell[562186, 13900, 2249, 64, 136, "Input",ExpressionUUID->"f2835c98-560f-8e47-bdab-0d2700971836"], +Cell[564438, 13966, 572, 12, 136, "Message",ExpressionUUID->"e3c0ae99-c55d-1a40-897e-ede7de12487f"], +Cell[565013, 13980, 575, 12, 136, "Message",ExpressionUUID->"0a52e0c9-3a0a-a24b-a9af-01175c4ee0f4"], +Cell[565591, 13994, 579, 12, 98, "Message",ExpressionUUID->"e6adb683-0ea5-4b48-bbb8-23c8c11e4418"], +Cell[566173, 14008, 458, 10, 32, "Message",ExpressionUUID->"12441524-bcf6-244b-b009-fad76aa84cea"], +Cell[566634, 14020, 173, 3, 41, "Output",ExpressionUUID->"cc74ac59-df4c-cf4b-a4af-36b2436eea23"] +}, Open ]], +Cell[CellGroupData[{ +Cell[566844, 14028, 2221, 64, 348, "Input",ExpressionUUID->"ca837916-250f-4d4e-8368-5a08f479e656"], +Cell[569068, 14094, 572, 12, 98, "Message",ExpressionUUID->"ee3e5086-63b9-a04a-8b60-1a07bbedb00c"], +Cell[569643, 14108, 575, 12, 98, "Message",ExpressionUUID->"f824dc64-7721-2e40-87b9-9d308e655a7c"], +Cell[570221, 14122, 577, 12, 98, "Message",ExpressionUUID->"830b9065-dbdb-094f-aba8-2b0b04ca96a6"], +Cell[570801, 14136, 456, 10, 32, "Message",ExpressionUUID->"f79b172f-d4db-f24b-98c7-2b2531d3e183"], +Cell[571260, 14148, 172, 3, 41, "Output",ExpressionUUID->"88b0c8ab-c0ff-2a4c-be6a-f15bb3bf7202"] +}, Open ]], +Cell[CellGroupData[{ +Cell[571469, 14156, 2223, 64, 348, "Input",ExpressionUUID->"b579991f-985b-234a-94aa-ed18c097f8c0"], +Cell[573695, 14222, 572, 12, 98, "Message",ExpressionUUID->"f816110f-9bc3-0e4e-85c9-2e71a255bbb9"], +Cell[574270, 14236, 573, 12, 98, "Message",ExpressionUUID->"36d057a5-55b4-f047-814d-965f9626b543"], +Cell[574846, 14250, 579, 12, 98, "Message",ExpressionUUID->"4ef30680-44fe-0244-870d-45b0a67e7a3d"], +Cell[575428, 14264, 456, 10, 32, "Message",ExpressionUUID->"c685c306-1cc4-0a4f-bb39-965ed01378a7"], +Cell[575887, 14276, 173, 3, 41, "Output",ExpressionUUID->"621ca10b-eff8-834f-a283-22ac03a895a3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[576097, 14284, 215, 6, 60, "Input",ExpressionUUID->"afb7855c-8700-d444-926c-6d96abe14e67"], +Cell[576315, 14292, 174, 3, 41, "Output",ExpressionUUID->"3737ba01-5151-874d-9846-1c8b07e42d7a"] +}, Open ]], +Cell[576504, 14298, 115, 1, 36, "Input",ExpressionUUID->"1f55205b-efe5-4a7b-b8d6-2a9b139a8bcd"] } ] *) -(* End of internal cache information *) - diff --git a/Pu240_798-811_TitovAA/172-68_h_Pu240_26-27/h_172-68_Pu240_26-27_pr_Qw2.nb b/Pu240_798-811_TitovAA/172-68_h_Pu240_26-27/h_172-68_Pu240_26-27_pr_Qw2.nb index 1226680..fa932be 100644 --- a/Pu240_798-811_TitovAA/172-68_h_Pu240_26-27/h_172-68_Pu240_26-27_pr_Qw2.nb +++ b/Pu240_798-811_TitovAA/172-68_h_Pu240_26-27/h_172-68_Pu240_26-27_pr_Qw2.nb @@ -3,25 +3,4875 @@ (*** 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[ 604286, 14674] +NotebookOptionsPosition[ 565424, 14053] +NotebookOutlinePosition[ 565835, 14070] +CellTagsIndexPosition[ 565792, 14067] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f1", "="}]], "Input", + RowBox[{"d", "=", "1.95"}]], "Input", CellChangeTimes->{ - 3.9918501413985214`*^9},ExpressionUUID->"5894836c-9594-0940-b94c-\ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.994074211664226*^9, 3.994074212605893*^9}, { + 3.994074246621201*^9, 3.994074265935053*^9}}, + CellLabel-> + "In[304]:=",ExpressionUUID->"6e9d2cf0-00ee-4f0e-8e5b-9242c475e79c"], + +Cell[BoxData["1.95`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, {3.994074196804253*^9, 3.994074214075809*^9}, { + 3.9940742497364883`*^9, 3.9940742697527313`*^9}}, + CellLabel-> + "Out[304]=",ExpressionUUID->"e457dc03-fcb8-4a7c-a166-73d91a0dbdd3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.9940740226123867`*^9, 3.994074030397141*^9}}, + CellLabel-> + "In[305]:=",ExpressionUUID->"27aa517b-56e2-4abb-ae00-7a6d2a33e13b"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, {3.9940741968744993`*^9, 3.994074214306916*^9}, { + 3.994074249779564*^9, 3.9940742697936697`*^9}}, + CellLabel-> + "Out[305]=",ExpressionUUID->"579f74ae-7b7c-4300-8684-44502a3514c1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "172"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.994074027305109*^9, 3.994074028074005*^9}}, + CellLabel-> + "In[306]:=",ExpressionUUID->"a849ff4a-a876-4d0b-831b-7e9882291835"], + +Cell[BoxData["172"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, {3.994074196887857*^9, 3.994074214318638*^9}, { + 3.9940742497919416`*^9, 3.9940742698063602`*^9}}, + CellLabel-> + "Out[306]=",ExpressionUUID->"f6f4fda0-377b-48ae-a732-d69f1fe9b41d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel-> + "In[307]:=",ExpressionUUID->"4c2db3ec-5cae-4038-9eb8-24f56937fb08"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, {3.9940741969012012`*^9, 3.994074214329146*^9}, { + 3.9940742497961063`*^9, 3.994074269818478*^9}}, + CellLabel-> + "Out[307]=",ExpressionUUID->"223f5d75-5ce6-4cf2-9da9-7572ccdf678e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel-> + "In[308]:=",ExpressionUUID->"170c42eb-2134-43c1-8ba3-d31b040620e5"], + +Cell[BoxData["0.5435000000000001`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, {3.9940741969137297`*^9, 3.99407421433959*^9}, { + 3.994074249812704*^9, 3.994074269830806*^9}}, + CellLabel-> + "Out[308]=",ExpressionUUID->"3c996d3c-44d1-4f16-bdaf-5bf37777674f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel-> + "In[309]:=",ExpressionUUID->"b046e8b3-f143-47d7-a097-9ebca1037a17"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, {3.9940741969249763`*^9, 3.994074214349977*^9}, { + 3.99407424982506*^9, 3.994074269834938*^9}}, + CellLabel-> + "Out[309]=",ExpressionUUID->"ef89d33c-1d36-4760-abcf-9b53fd3d50a0"] +}, 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[310]:=",ExpressionUUID->"50aeb670-dc5a-4a12-9b52-81fac8b9f41c"], + +Cell[BoxData["6.451105409164632`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, {3.994074196937035*^9, 3.994074214360525*^9}, { + 3.994074249837967*^9, 3.9940742698497963`*^9}}, + CellLabel-> + "Out[310]=",ExpressionUUID->"99930466-a0ea-422d-ab2c-da33de944708"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel-> + "In[311]:=",ExpressionUUID->"115220db-80b7-4eb9-96ee-49886df5501d"], + +Cell[BoxData["4.734719918224123`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, {3.9940741969492617`*^9, 3.994074214370586*^9}, { + 3.994074249850299*^9, 3.994074269861824*^9}}, + CellLabel-> + "Out[311]=",ExpressionUUID->"f431189b-cb74-4006-806b-e8d273612c45"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.852277809"}]], "Input", + CellChangeTimes->{3.991799283179735*^9, 3.9940740415240393`*^9}, + CellLabel-> + "In[312]:=",ExpressionUUID->"bbf05b3f-c273-4afa-802c-568b9976c2fc"], + +Cell[BoxData["0.852277809`"], "Output", + CellChangeTimes->{{3.994074196961275*^9, 3.994074214380481*^9}, { + 3.994074249862259*^9, 3.994074269873619*^9}}, + CellLabel-> + "Out[312]=",ExpressionUUID->"4db30534-7fc5-47e7-8cd6-53bf4d6653c8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.3903505481"}]], "Input", + CellChangeTimes->{3.991799280663351*^9, 3.99407404519888*^9}, + CellLabel-> + "In[313]:=",ExpressionUUID->"6899c230-5258-4539-ac8a-b78b0d4dee59"], + +Cell[BoxData["0.3903505481`"], "Output", + CellChangeTimes->{{3.99407419697276*^9, 3.9940742143904543`*^9}, { + 3.99407424987506*^9, 3.994074269885377*^9}}, + CellLabel-> + "Out[313]=",ExpressionUUID->"57ab9cbc-f608-44a6-9cd2-a7b856f94f7a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel-> + "In[314]:=",ExpressionUUID->"4270bfa6-b1d5-4ef6-8bf7-252959edf5dd"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, {3.9940741969837933`*^9, 3.994074214400448*^9}, { + 3.994074249886661*^9, 3.994074269897275*^9}}, + CellLabel-> + "Out[314]=",ExpressionUUID->"07f9d50a-e84f-439c-919b-8407f252db12"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel-> + "In[315]:=",ExpressionUUID->"12720705-24af-4497-b102-753b1a0d1ac7"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, {3.9940741969946527`*^9, 3.994074214410337*^9}, { + 3.9940742498968973`*^9, 3.994074269909542*^9}}, + CellLabel-> + "Out[315]=",ExpressionUUID->"a1f851c2-f8b8-44c4-8f7e-74195eb1260a"] +}, 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[316]:=",ExpressionUUID->"9fc9f1da-df1d-498b-a62f-db1f9df85a6d"], + +Cell[BoxData["2.19751871461767`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, {3.994074197005885*^9, 3.994074214421315*^9}, { + 3.994074249908176*^9, 3.994074269922103*^9}}, + CellLabel-> + "Out[316]=",ExpressionUUID->"0f732430-3602-4909-9f77-d0619b8819de"] +}, 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[317]:=",ExpressionUUID->"5585d131-58c4-48c4-b947-7ec41c42fe45"], + +Cell[BoxData["1.4271003361718892`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, {3.994074197017363*^9, 3.994074214431409*^9}, { + 3.994074249918466*^9, 3.99407426993229*^9}}, + CellLabel-> + "Out[317]=",ExpressionUUID->"e6739ef0-fee7-4e30-8aab-f765be84c9ee"] +}, 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[318]:=",ExpressionUUID->"08644bf4-6392-4836-bf40-9e42a0d658e4"], + +Cell[BoxData["0.4377300224639211`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, {3.994074197029154*^9, 3.994074214441661*^9}, { + 3.9940742499280653`*^9, 3.994074269943099*^9}}, + CellLabel-> + "Out[318]=",ExpressionUUID->"b5e50f2b-5e2d-4838-a541-bb0cd7152e98"] +}, 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[319]:=",ExpressionUUID->"47ba2188-3db0-41de-bc18-1b3e85ec939f"], + +Cell[BoxData[ + RowBox[{"-", "0.09062394423616692`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, {3.9940741970396633`*^9, 3.994074214453579*^9}, { + 3.994074249938612*^9, 3.994074269953534*^9}}, + CellLabel-> + "Out[319]=",ExpressionUUID->"5fb74cf0-0833-4e0b-bbef-44397dfe44d7"] +}, 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[320]:=",ExpressionUUID->"e6af9243-eb2f-4712-90d7-5eed88baa561"], + +Cell[BoxData[ + RowBox[{"-", "0.5469059277191528`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, {3.994074197050289*^9, 3.994074214467175*^9}, { + 3.994074249949532*^9, 3.9940742699645767`*^9}}, + CellLabel-> + "Out[320]=",ExpressionUUID->"0a386678-b95b-43f7-aad6-e61b528eef1e"] +}, 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[321]:=",ExpressionUUID->"f2b1634d-e165-4492-8ed6-9995f0797abc"], + +Cell[BoxData["0.7058922703634168`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, {3.994074197062862*^9, 3.99407421448357*^9}, { + 3.9940742499608793`*^9, 3.994074269975973*^9}}, + CellLabel-> + "Out[321]=",ExpressionUUID->"1637a04e-2203-4c49-b1c7-44ad9d464870"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel-> + "In[322]:=",ExpressionUUID->"237ec570-91d2-4394-9bc8-e9c8ec8bc421"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, {3.9940741970755367`*^9, 3.994074214495585*^9}, { + 3.994074249972097*^9, 3.9940742699872303`*^9}}, + CellLabel-> + "Out[322]=",ExpressionUUID->"45aac07f-e329-49d6-972f-7748f3e89ff8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel-> + "In[323]:=",ExpressionUUID->"f3026fcc-780f-4641-bc0c-b6ff4345e1a5"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, {3.994074197089067*^9, 3.994074214507393*^9}, { + 3.99407424998314*^9, 3.994074269998393*^9}}, + CellLabel-> + "Out[323]=",ExpressionUUID->"09bd456b-7d48-445a-909a-86ff86137f28"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel-> + "In[324]:=",ExpressionUUID->"eaea58ab-5391-4133-ac55-a4e9b6dc981b"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, {3.9940741971016483`*^9, 3.9940742145189466`*^9}, { + 3.994074249994322*^9, 3.994074270009439*^9}}, + CellLabel-> + "Out[324]=",ExpressionUUID->"1f94c967-f20c-4117-b882-f0829f840da4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel-> + "In[325]:=",ExpressionUUID->"abc15556-1a52-432f-a951-bb2f0de59d9e"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, {3.9940741971133337`*^9, 3.99407421453058*^9}, { + 3.994074250005796*^9, 3.994074270020775*^9}}, + CellLabel-> + "Out[325]=",ExpressionUUID->"1579694a-9432-41d3-8dbf-661cda0afd42"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel-> + "In[326]:=",ExpressionUUID->"fc7cf076-aa64-477b-b6eb-d1714c0006fe"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, {3.994074197124381*^9, 3.994074214542293*^9}, { + 3.994074250017613*^9, 3.9940742700324078`*^9}}, + CellLabel-> + "Out[326]=",ExpressionUUID->"4c8084d5-5af6-4b81-b6ae-41d98d2a5c77"] +}, 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.994074052479707*^9, 3.9940740526225157`*^9}}, + CellLabel-> + "In[327]:=",ExpressionUUID->"03037615-a4ec-4a71-9963-7937075949f0"], + +Cell[BoxData["66"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, {3.99407419713608*^9, 3.994074214545911*^9}, { + 3.994074250027919*^9, 3.99407427004285*^9}}, + CellLabel-> + "Out[327]=",ExpressionUUID->"22f1c388-f489-4a91-b189-560e2cc3c5f6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, {3.99407405616786*^9, 3.994074056966621*^9}}, + CellLabel-> + "In[328]:=",ExpressionUUID->"b0af7a4c-a39a-4e42-b701-b56de3889d1c"], + +Cell[BoxData["28"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, {3.994074197147298*^9, 3.99407421455849*^9}, { + 3.9940742500393*^9, 3.994074270054291*^9}}, + CellLabel-> + "Out[328]=",ExpressionUUID->"969437f0-2389-4cdd-93f6-22e24679f634"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel-> + "In[329]:=",ExpressionUUID->"60585147-2eb3-4eb0-be4e-c5b0b14d1ee0"], + +Cell[BoxData["68"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, {3.994074197159381*^9, 3.994074214569437*^9}, { + 3.9940742500504293`*^9, 3.9940742700651913`*^9}}, + CellLabel-> + "Out[329]=",ExpressionUUID->"0a69b2ee-f0f7-46ea-b9e9-9f681e4f6712"] +}, 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[330]:=",ExpressionUUID->"aaa537a1-4d4b-4fb9-be2d-0fdc6f0aa598"], + +Cell[BoxData["0.10723666210670314`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, {3.994074197172007*^9, 3.994074214580143*^9}, { + 3.994074250060562*^9, 3.9940742700753593`*^9}}, + CellLabel-> + "Out[330]=",ExpressionUUID->"ef617988-9eaf-445c-8532-11bf9aa5cb10"] +}, 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[331]:=",ExpressionUUID->"3719007c-9ae9-4691-83b2-a05008e8a3a8"], + +Cell[BoxData[ + RowBox[{"-", "2.5678385772913814`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, {3.994074197183957*^9, 3.994074214590371*^9}, { + 3.994074250071249*^9, 3.99407427008554*^9}}, + CellLabel-> + "Out[331]=",ExpressionUUID->"97ce1a1e-c787-4c42-8177-0176232869cc"] +}, 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[332]:=",ExpressionUUID->"1c9b77e2-0999-4119-8232-c0d1478d5d45"], + +Cell[BoxData["17.339463280274387`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, {3.994074197196582*^9, 3.9940742146010637`*^9}, { + 3.994074250082402*^9, 3.9940742700958967`*^9}}, + CellLabel-> + "Out[332]=",ExpressionUUID->"8265b718-5917-4476-bdec-5b686b5b3098"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel-> + "In[333]:=",ExpressionUUID->"1036db8d-d1d7-40b1-bd0c-90faceacded0"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, {3.9940741972101183`*^9, 3.9940742146122723`*^9}, { + 3.994074250094462*^9, 3.994074270106193*^9}}, + CellLabel-> + "Out[333]=",ExpressionUUID->"0f9b07fe-c5fd-4975-98af-3ae81008ef18"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "1.895"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { + 3.994074073155587*^9, 3.994074075499446*^9}}, + CellLabel-> + "In[334]:=",ExpressionUUID->"b7b1c1e0-9b7e-4e9a-b42a-429e7286bd0a"], + +Cell[BoxData["1.895`"], "Output", + CellChangeTimes->{{3.9940741972243557`*^9, 3.994074214623012*^9}, { + 3.994074250106516*^9, 3.9940742701165457`*^9}}, + CellLabel-> + "Out[334]=",ExpressionUUID->"4b32de17-9d0e-42ac-a64a-940859792752"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel-> + "In[335]:=",ExpressionUUID->"e419ea2b-cfab-4b32-83de-3169a095ff42"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.765"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.994074078227497*^9, 3.9940740796275997`*^9}}, + CellLabel-> + "In[336]:=",ExpressionUUID->"cd35992f-4f02-4342-ba87-c240d69e283f"], + +Cell[BoxData["0.765`"], "Output", + CellChangeTimes->{{3.994074197245954*^9, 3.994074214636681*^9}, { + 3.9940742501222553`*^9, 3.99407427012961*^9}}, + CellLabel-> + "Out[336]=",ExpressionUUID->"718ea2ff-7778-4908-b8bd-4a586290e003"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel-> + "In[337]:=",ExpressionUUID->"7efe54fb-7831-41ab-adc1-b6f091a8b984"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "2.605"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.9940740824169683`*^9, 3.9940740841708183`*^9}}, + CellLabel-> + "In[338]:=",ExpressionUUID->"36e9683b-262a-4168-b8c6-6153865b9a90"], + +Cell[BoxData["2.605`"], "Output", + CellChangeTimes->{{3.994074197269746*^9, 3.994074214649177*^9}, { + 3.994074250142523*^9, 3.994074270141824*^9}}, + CellLabel-> + "Out[338]=",ExpressionUUID->"7cc69535-386b-4bf8-8fcf-5fa0cbedfa9d"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel-> + "In[339]:=",ExpressionUUID->"5bf8cdd6-7467-44c6-8375-7b3e0fb3c3be"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.115"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, {3.994074087466568*^9, 3.9940740892428827`*^9}}, + CellLabel-> + "In[340]:=",ExpressionUUID->"05c1ce3c-2d90-4e22-8983-8708b913f8ec"], + +Cell[BoxData["1.115`"], "Output", + CellChangeTimes->{{3.9940741972942533`*^9, 3.9940742146616087`*^9}, { + 3.994074250166238*^9, 3.9940742701540823`*^9}}, + CellLabel-> + "Out[340]=",ExpressionUUID->"d46d6435-e824-4b80-93c7-afa74308d522"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel-> + "In[341]:=",ExpressionUUID->"af2d854f-0f16-4dcc-8158-4eae99fa42d4"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.375"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, {3.994074092127721*^9, + 3.994074094282755*^9}}, + CellLabel-> + "In[342]:=",ExpressionUUID->"6e1ffc52-c14e-4102-b2d3-8f150a74cd2c"], + +Cell[BoxData["1.375`"], "Output", + CellChangeTimes->{{3.9940741973176317`*^9, 3.9940742146740303`*^9}, { + 3.994074250185948*^9, 3.9940742701663027`*^9}}, + CellLabel-> + "Out[342]=",ExpressionUUID->"b1c95913-8c5d-461e-958d-b15197551bc2"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel-> + "In[343]:=",ExpressionUUID->"90f795cc-44e0-4079-933e-820564497709"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.545"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.994074098253368*^9, + 3.994074099547431*^9}}, + CellLabel-> + "In[344]:=",ExpressionUUID->"e1a4e27d-fefb-4696-ae21-8d21efe0f772"], + +Cell[BoxData["0.545`"], "Output", + CellChangeTimes->{{3.9940741973401327`*^9, 3.994074214686512*^9}, { + 3.994074250207786*^9, 3.994074270178926*^9}}, + CellLabel-> + "Out[344]=",ExpressionUUID->"e1da4a03-9852-44c6-a99f-15711d5729da"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel-> + "In[345]:=",ExpressionUUID->"908ec444-5059-4913-944b-1bdd71a4d77f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "1.35"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.994074102320486*^9, + 3.9940741031259613`*^9}}, + CellLabel-> + "In[346]:=",ExpressionUUID->"c855e36c-e123-468e-a24c-f6a4bcfabc56"], + +Cell[BoxData["1.35`"], "Output", + CellChangeTimes->{{3.994074197360721*^9, 3.994074214698968*^9}, { + 3.9940742502296133`*^9, 3.994074270190978*^9}}, + CellLabel-> + "Out[346]=",ExpressionUUID->"9d9d8a62-e5dc-4f72-af3c-870802cfab88"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel-> + "In[347]:=",ExpressionUUID->"65e23205-730e-44e3-b89e-7568b3a51464"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "0.655"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, {3.994074105268124*^9, 3.994074106561956*^9}}, + CellLabel-> + "In[348]:=",ExpressionUUID->"c76f2dce-79a7-4383-b851-ef032acfedad"], + +Cell[BoxData["0.655`"], "Output", + CellChangeTimes->{{3.994074197383122*^9, 3.994074214711643*^9}, { + 3.994074250250944*^9, 3.994074270203269*^9}}, + CellLabel-> + "Out[348]=",ExpressionUUID->"e2e75e38-d6ed-4040-9794-70048be22f77"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel-> + "In[349]:=",ExpressionUUID->"bbab7f73-0565-4ae4-8d20-d60fe84536e0"], + +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[350]:=",ExpressionUUID->"e99f0e79-d0cb-41d4-b539-50ea2cde3a21"], + +Cell[BoxData["0.1542863605960474`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, {3.994074197462419*^9, 3.9940742147508163`*^9}, { + 3.994074250298726*^9, 3.994074270240198*^9}}, + CellLabel-> + "Out[350]=",ExpressionUUID->"454e9c61-1f94-4c41-a67b-3720a310c58b"] +}, 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[351]:=",ExpressionUUID->"60d8770c-a518-401f-9cd7-ffb9a2f67508"], + +Cell[BoxData["6.986649521084862`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, {3.994074197551347*^9, 3.994074214777306*^9}, { + 3.9940742503242893`*^9, 3.994074270266127*^9}}, + CellLabel-> + "Out[351]=",ExpressionUUID->"f48680b0-c192-44a8-9d82-d72872f4896c"] +}, 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[352]:=",ExpressionUUID->"fc75c884-45d9-4cef-b95c-fa3bd5361c67"], + +Cell[BoxData[ + RowBox[{"-", "15.225784715275067`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, {3.994074197626877*^9, 3.994074214803336*^9}, { + 3.994074250347639*^9, 3.9940742702914057`*^9}}, + CellLabel-> + "Out[352]=",ExpressionUUID->"fe90f6ab-f082-4145-b3c5-f8c8b04453bd"] +}, 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[353]:=",ExpressionUUID->"09cfab98-b552-4b08-a78f-387275b62cde"], + +Cell[BoxData[ + RowBox[{"-", "19.527743438945258`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, {3.994074197680339*^9, 3.9940742148337717`*^9}, { + 3.994074250376841*^9, 3.9940742703219957`*^9}}, + CellLabel-> + "Out[353]=",ExpressionUUID->"cc513b50-becb-456d-93a9-5e0328cda9b3"] +}, 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[354]:=",ExpressionUUID->"ef9a3d42-1318-43d1-b6e7-893064eedcfe"], + +Cell[BoxData[ + RowBox[{"-", "55.27021800638023`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, {3.9940741977668943`*^9, 3.9940742148649673`*^9}, { + 3.994074250406843*^9, 3.994074270352029*^9}}, + CellLabel-> + "Out[354]=",ExpressionUUID->"57f7ae4d-bd5f-4bbc-83bc-ae6de9ee2b8e"] +}, 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[355]:=",ExpressionUUID->"d4bb190d-5ca6-4c4a-b3c8-f962d853e1c8"], + +Cell[BoxData[ + RowBox[{"-", "141.4524755079782`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, {3.994074197832451*^9, 3.994074214909892*^9}, { + 3.994074250439662*^9, 3.994074270387487*^9}}, + CellLabel-> + "Out[355]=",ExpressionUUID->"7624426a-6955-4c6f-bc37-bc175e427a75"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel-> + "In[356]:=",ExpressionUUID->"318461b9-7ee4-47e0-b049-a20fb42eae95"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, {3.994074197929666*^9, 3.994074214922945*^9}, { + 3.994074250452722*^9, 3.994074270403535*^9}}, + CellLabel-> + "Out[356]=",ExpressionUUID->"3d552a5f-2faa-42b3-9457-f777e1b446ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel-> + "In[357]:=",ExpressionUUID->"3e821625-2295-4317-a6c9-c5a6ed26f1ba"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, {3.994074197952071*^9, 3.994074214935376*^9}, { + 3.994074250464295*^9, 3.994074270413846*^9}}, + CellLabel-> + "Out[357]=",ExpressionUUID->"93feea3d-be7a-4e86-9595-e8857324d6d4"] +}, 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[358]:=",ExpressionUUID->"e131b311-b23d-4bf8-aa90-94060544af3c"], + +Cell[BoxData["111.55440139653717`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, {3.9940741979658833`*^9, 3.994074214947126*^9}, { + 3.99407425047659*^9, 3.994074270424139*^9}}, + CellLabel-> + "Out[358]=",ExpressionUUID->"fe54b8bf-33cc-4e68-ad56-ca93b9b48205"] +}, 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[359]:=",ExpressionUUID->"a38f8011-4eb5-4501-89be-65ef4758a564"], + +Cell[BoxData[ + RowBox[{"-", "95.43889051158258`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, {3.994074197994025*^9, 3.994074214959611*^9}, { + 3.994074250488699*^9, 3.994074270434445*^9}}, + CellLabel-> + "Out[359]=",ExpressionUUID->"bdf50e58-3ae8-4ddd-8c80-0578a2a5a37b"] +}, 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[360]:=",ExpressionUUID->"1f2857d7-7392-4393-b2a1-6a006fd8c314"], + +Cell[BoxData["113.13286100443031`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, {3.994074198004314*^9, 3.994074214972053*^9}, { + 3.994074250500126*^9, 3.99407427044481*^9}}, + CellLabel-> + "Out[360]=",ExpressionUUID->"aaffbaf0-c25c-46bd-9f1a-9e9aacb5352b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel-> + "In[361]:=",ExpressionUUID->"ba8043a4-a195-48ef-acb5-158cea127b9e"], + +Cell[BoxData["0.4377300224639211`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, {3.994074198016279*^9, 3.994074214983481*^9}, { + 3.994074250511408*^9, 3.994074270455081*^9}}, + CellLabel-> + "Out[361]=",ExpressionUUID->"7affa945-14ff-4a7f-98be-3b57a0970d13"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel-> + "In[362]:=",ExpressionUUID->"2156025d-2a1e-45cb-9e97-e50773e5754e"], + +Cell[BoxData[ + RowBox[{"-", "0.09062394423616692`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, {3.99407419803306*^9, 3.994074214997123*^9}, { + 3.994074250525971*^9, 3.994074270465309*^9}}, + CellLabel-> + "Out[362]=",ExpressionUUID->"59d02ba5-4822-4bab-bf4f-c549e0e768ee"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel-> + "In[363]:=",ExpressionUUID->"affeaffc-5110-4d8f-896f-54b5596c2c52"], + +Cell[BoxData[ + RowBox[{"-", "0.5469059277191528`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, {3.994074198060273*^9, 3.994074215008013*^9}, { + 3.994074250535656*^9, 3.994074270476778*^9}}, + CellLabel-> + "Out[363]=",ExpressionUUID->"98b10eaa-a915-4832-962a-e20181e68fb9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel-> + "In[364]:=",ExpressionUUID->"8b781ea3-01dd-4b9e-90d8-44bda9b0f1b0"], + +Cell[BoxData["0.7058922703634168`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, {3.9940741980734253`*^9, 3.994074215018661*^9}, { + 3.994074250546678*^9, 3.9940742704879427`*^9}}, + CellLabel-> + "Out[364]=",ExpressionUUID->"91e7ba39-ebd0-4c5a-8321-bac23f60c837"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel-> + "In[365]:=",ExpressionUUID->"6e315cbd-5e38-43c0-b733-a9cc30e42717"], + +Cell[BoxData["2.19751871461767`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, {3.994074198087656*^9, 3.9940742150302687`*^9}, { + 3.994074250550354*^9, 3.994074270499359*^9}}, + CellLabel-> + "Out[365]=",ExpressionUUID->"e8217124-3160-497a-a3ef-fd7ca773e043"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel-> + "In[366]:=",ExpressionUUID->"cf57eb4b-ea94-4170-8ca4-d1e4df3a658b"], + +Cell[BoxData["1.4271003361718892`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, {3.994074198096857*^9, 3.994074215043764*^9}, { + 3.994074250564603*^9, 3.994074270511888*^9}}, + CellLabel-> + "Out[366]=",ExpressionUUID->"33d25e04-201e-40ba-a10f-617ffe23cdf6"] +}, 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[367]:=",ExpressionUUID->"2996421f-d730-4ac7-bee1-1afd9facb2b6"], + +Cell[BoxData[ + RowBox[{"-", "33.18726375495992`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, {3.994074198107793*^9, 3.994074215058444*^9}, { + 3.994074250574132*^9, 3.99407427052425*^9}}, + CellLabel-> + "Out[367]=",ExpressionUUID->"347991fa-3831-46ac-af68-6f221e350e19"] +}, 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[368]:=",ExpressionUUID->"5377b4a7-0ea8-42d9-a370-3cbb3b816661"], + +Cell[BoxData[ + RowBox[{"-", "6.498883922853802`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, {3.994074198134163*^9, 3.994074215071083*^9}, { + 3.994074250583393*^9, 3.994074270535636*^9}}, + CellLabel-> + "Out[368]=",ExpressionUUID->"ed1077c6-331c-44d8-82cd-668ddb0622b1"] +}, 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[369]:=",ExpressionUUID->"cd9543e9-5ab0-44b6-b22b-b6f7d9379d6f"], + +Cell[BoxData["78.36713764157724`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, {3.99407419816089*^9, 3.994074215083827*^9}, { + 3.994074250592779*^9, 3.994074270550357*^9}}, + CellLabel-> + "Out[369]=",ExpressionUUID->"d6e96e26-ad0d-4c00-8a99-6186d1d22cd1"] +}, 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[370]:=",ExpressionUUID->"1cafafed-26ac-4aa7-b15d-5b2a26438908"], + +Cell[BoxData[ + RowBox[{"-", "95.43889051158258`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, {3.994074198173212*^9, 3.9940742151226263`*^9}, { + 3.9940742506018353`*^9, 3.99407427055612*^9}}, + CellLabel-> + "Out[370]=",ExpressionUUID->"c2fe019c-5f21-435a-8d7e-40f5d8718736"] +}, 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[371]:=",ExpressionUUID->"ebf21cfa-2adf-4167-ad9c-e05db70dc3a1"], + +Cell[BoxData["106.6339770815765`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, {3.994074198185794*^9, 3.994074215135048*^9}, { + 3.994074250611326*^9, 3.994074270578539*^9}}, + CellLabel-> + "Out[371]=",ExpressionUUID->"beff5e16-4ae9-4f92-a0ec-ebe783f8f480"] +}, 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[372]:=",ExpressionUUID->"baca1192-8829-4313-8a64-88dbef5bf565"], + +Cell[BoxData["51.145215962859936`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, {3.994074198196261*^9, 3.9940742151460247`*^9}, { + 3.994074250621415*^9, 3.99407427059237*^9}}, + CellLabel-> + "Out[372]=",ExpressionUUID->"86f86249-5f42-4c51-8b6e-7e1767e236c2"] +}, 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[373]:=",ExpressionUUID->"39229fe3-c44d-4690-89cb-b4deb8cf5bfd"], + +Cell[BoxData["674.8474263523988`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, {3.994074198207098*^9, 3.9940742151610737`*^9}, { + 3.99407425063161*^9, 3.9940742706025248`*^9}}, + CellLabel-> + "Out[373]=",ExpressionUUID->"4b27e90f-29ef-4013-8647-45d92514696d"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"f1", "=", "0.4720031358"}]], "Input", + CellChangeTimes->{3.9918501413985214`*^9, + 3.994236051962882*^9},ExpressionUUID->"5894836c-9594-0940-b94c-\ 299085c765cc"], Cell[BoxData[""], "Input", @@ -30,9 +4880,10 @@ Cell[BoxData[""], "Input", 8fab318cd4b7"], Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", + RowBox[{"f2", "=", "0.185261438"}]], "Input", CellChangeTimes->{ - 3.9918501402114105`*^9},ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-\ + 3.9918501402114105`*^9, 3.9942360584168253`*^9, {3.994236166803265*^9, + 3.99423616891784*^9}},ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-\ 092c5143dcf0"], Cell[BoxData[""], "Input", @@ -1581,8 +6432,8 @@ rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS "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[{ @@ -2818,9 +7669,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.005263"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.01561"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.025439"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.034428"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.042324"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.048911"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.054071"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.057726"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.059905"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.060662"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.060144"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.058493"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.055924"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.052616"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.048792"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.044623"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.040302"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.035956"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.031726"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.027689"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.023931"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.020479"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.017372"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.014605"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.012182"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.010077"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.008278"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.006747"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.005464"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.004393"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.003512"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.994236179081726*^9},ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-\ b938908ab9a4"], Cell[BoxData[ @@ -8583,8 +13497,8 @@ fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo "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[{ @@ -9132,12 +14046,15 @@ Cell[BoxData[ d2cfa007cfcf"], Cell[BoxData["0.11028946354837708`"], "Output",ExpressionUUID->"8f1edf59-aed7-914f-9d19-1949d2a555d6"] -}, Open ]] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input",ExpressionUUID->"1b4ac5f6-8121-4c51-89ab-64c8cf1fc657"] }, -WindowSize->{718.5, 729.75}, -WindowMargins->{{6, Automatic}, {Automatic, 4.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->"f83c5602-f0d5-2d47-8a1b-23029521caf0" ] @@ -9152,359 +14069,614 @@ 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, 354, 7, 36, "Input",ExpressionUUID->"6e9d2cf0-00ee-4f0e-8e5b-9242c475e79c"], +Cell[933, 31, 260, 5, 41, "Output",ExpressionUUID->"e457dc03-fcb8-4a7c-a166-73d91a0dbdd3"] }, 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[1230, 41, 253, 5, 36, "Input",ExpressionUUID->"27aa517b-56e2-4abb-ae00-7a6d2a33e13b"], +Cell[1486, 48, 260, 5, 41, "Output",ExpressionUUID->"579f74ae-7b7c-4300-8684-44502a3514c1"] }, 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[1783, 58, 226, 5, 36, "Input",ExpressionUUID->"a849ff4a-a876-4d0b-831b-7e9882291835"], +Cell[2012, 65, 260, 5, 41, "Output",ExpressionUUID->"f6f4fda0-377b-48ae-a732-d69f1fe9b41d"] }, 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[2309, 75, 180, 4, 55, "Input",ExpressionUUID->"4c2db3ec-5cae-4038-9eb8-24f56937fb08"], +Cell[2492, 81, 260, 5, 62, "Output",ExpressionUUID->"223f5d75-5ce6-4cf2-9da9-7572ccdf678e"] }, 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[2789, 91, 262, 8, 81, "Input",ExpressionUUID->"170c42eb-2134-43c1-8ba3-d31b040620e5"], +Cell[3054, 101, 273, 5, 62, "Output",ExpressionUUID->"3c996d3c-44d1-4f16-bdaf-5bf37777674f"] }, 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[3364, 111, 136, 3, 55, "Input",ExpressionUUID->"b046e8b3-f143-47d7-a097-9ebca1037a17"], +Cell[3503, 116, 259, 5, 62, "Output",ExpressionUUID->"ef89d33c-1d36-4760-abcf-9b53fd3d50a0"] }, 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[3799, 126, 281, 7, 55, "Input",ExpressionUUID->"50aeb670-dc5a-4a12-9b52-81fac8b9f41c"], +Cell[4083, 135, 273, 5, 62, "Output",ExpressionUUID->"99930466-a0ea-422d-ab2c-da33de944708"] }, 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, 145, 262, 8, 55, "Input",ExpressionUUID->"115220db-80b7-4eb9-96ee-49886df5501d"], +Cell[4658, 155, 273, 5, 62, "Output",ExpressionUUID->"f431189b-cb74-4006-806b-e8d273612c45"] }, 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[4968, 165, 209, 4, 55, "Input",ExpressionUUID->"bbf05b3f-c273-4afa-802c-568b9976c2fc"], +Cell[5180, 171, 237, 4, 62, "Output",ExpressionUUID->"4db30534-7fc5-47e7-8cd6-53bf4d6653c8"] }, 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[5454, 180, 207, 4, 55, "Input",ExpressionUUID->"6899c230-5258-4539-ac8a-b78b0d4dee59"], +Cell[5664, 186, 238, 4, 62, "Output",ExpressionUUID->"57ab9cbc-f608-44a6-9cd2-a7b856f94f7a"] }, 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[5939, 195, 133, 3, 55, "Input",ExpressionUUID->"4270bfa6-b1d5-4ef6-8bf7-252959edf5dd"], +Cell[6075, 200, 256, 5, 62, "Output",ExpressionUUID->"07f9d50a-e84f-439c-919b-8407f252db12"] }, 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[6368, 210, 133, 3, 55, "Input",ExpressionUUID->"12720705-24af-4497-b102-753b1a0d1ac7"], +Cell[6504, 215, 258, 5, 62, "Output",ExpressionUUID->"a1f851c2-f8b8-44c4-8f7e-74195eb1260a"] }, 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[6799, 225, 561, 20, 148, "Input",ExpressionUUID->"9fc9f1da-df1d-498b-a62f-db1f9df85a6d"], +Cell[7363, 247, 270, 5, 62, "Output",ExpressionUUID->"0f732430-3602-4909-9f77-d0619b8819de"] }, 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[7670, 257, 561, 20, 148, "Input",ExpressionUUID->"5585d131-58c4-48c4-b947-7ec41c42fe45"], +Cell[8234, 279, 271, 5, 62, "Output",ExpressionUUID->"e6739ef0-fee7-4e30-8aab-f765be84c9ee"] }, 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[8542, 289, 1592, 51, 211, "Input",ExpressionUUID->"08644bf4-6392-4836-bf40-9e42a0d658e4"], +Cell[10137, 342, 272, 5, 62, "Output",ExpressionUUID->"b5e50f2b-5e2d-4838-a541-bb0cd7152e98"] }, 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[10446, 352, 1426, 47, 211, "Input",ExpressionUUID->"47ba2188-3db0-41de-bc18-1b3e85ec939f"], +Cell[11875, 401, 290, 6, 62, "Output",ExpressionUUID->"5fb74cf0-0833-4e0b-bbef-44397dfe44d7"] }, 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[12202, 412, 1426, 47, 211, "Input",ExpressionUUID->"e6af9243-eb2f-4712-90d7-5eed88baa561"], +Cell[13631, 461, 291, 6, 62, "Output",ExpressionUUID->"0a386678-b95b-43f7-aad6-e61b528eef1e"] }, 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[13959, 472, 1592, 51, 211, "Input",ExpressionUUID->"f2b1634d-e165-4492-8ed6-9995f0797abc"], +Cell[15554, 525, 269, 5, 62, "Output",ExpressionUUID->"1637a04e-2203-4c49-b1c7-44ad9d464870"] }, 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[15860, 535, 135, 3, 55, "Input",ExpressionUUID->"237ec570-91d2-4394-9bc8-e9c8ec8bc421"], +Cell[15998, 540, 258, 5, 62, "Output",ExpressionUUID->"45aac07f-e329-49d6-972f-7748f3e89ff8"] }, 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[16293, 550, 137, 3, 55, "Input",ExpressionUUID->"f3026fcc-780f-4641-bc0c-b6ff4345e1a5"], +Cell[16433, 555, 255, 5, 62, "Output",ExpressionUUID->"09bd456b-7d48-445a-909a-86ff86137f28"] }, 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[16725, 565, 138, 3, 55, "Input",ExpressionUUID->"eaea58ab-5391-4133-ac55-a4e9b6dc981b"], +Cell[16866, 570, 262, 5, 62, "Output",ExpressionUUID->"1f94c967-f20c-4117-b882-f0829f840da4"] }, 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[17165, 580, 223, 5, 55, "Input",ExpressionUUID->"abc15556-1a52-432f-a951-bb2f0de59d9e"], +Cell[17391, 587, 272, 6, 62, "Output",ExpressionUUID->"1579694a-9432-41d3-8dbf-661cda0afd42"] }, 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[17700, 598, 138, 3, 55, "Input",ExpressionUUID->"fc7cf076-aa64-477b-b6eb-d1714c0006fe"], +Cell[17841, 603, 260, 5, 62, "Output",ExpressionUUID->"4c8084d5-5af6-4b81-b6ae-41d98d2a5c77"] }, 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[18138, 613, 328, 6, 55, "Input",ExpressionUUID->"03037615-a4ec-4a71-9963-7937075949f0"], +Cell[18469, 621, 253, 5, 62, "Output",ExpressionUUID->"22f1c388-f489-4a91-b189-560e2cc3c5f6"] }, 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[18759, 631, 299, 6, 55, "Input",ExpressionUUID->"b0af7a4c-a39a-4e42-b701-b56de3889d1c"], +Cell[19061, 639, 252, 5, 62, "Output",ExpressionUUID->"969437f0-2389-4cdd-93f6-22e24679f634"] }, 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[19350, 649, 223, 5, 55, "Input",ExpressionUUID->"60585147-2eb3-4eb0-be4e-c5b0b14d1ee0"], +Cell[19576, 656, 257, 5, 62, "Output",ExpressionUUID->"0a69b2ee-f0f7-46ea-b9e9-9f681e4f6712"] }, 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[19870, 666, 354, 11, 81, "Input",ExpressionUUID->"aaa537a1-4d4b-4fb9-be2d-0fdc6f0aa598"], +Cell[20227, 679, 275, 5, 62, "Output",ExpressionUUID->"ef617988-9eaf-445c-8532-11bf9aa5cb10"] }, 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[20539, 689, 354, 11, 81, "Input",ExpressionUUID->"3719007c-9ae9-4691-83b2-a05008e8a3a8"], +Cell[20896, 702, 288, 6, 62, "Output",ExpressionUUID->"97ce1a1e-c787-4c42-8177-0176232869cc"] }, 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[21221, 713, 998, 27, 154, "Input",ExpressionUUID->"1c9b77e2-0999-4119-8232-c0d1478d5d45"], +Cell[22222, 742, 276, 5, 62, "Output",ExpressionUUID->"8265b718-5917-4476-bdec-5b686b5b3098"] }, 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[22535, 752, 203, 4, 55, "Input",ExpressionUUID->"1036db8d-d1d7-40b1-bd0c-90faceacded0"], +Cell[22741, 758, 258, 5, 62, "Output",ExpressionUUID->"0f9b07fe-c5fd-4975-98af-3ae81008ef18"] }, 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[23036, 768, 331, 6, 55, "Input",ExpressionUUID->"b7b1c1e0-9b7e-4e9a-b42a-429e7286bd0a"], +Cell[23370, 776, 235, 4, 62, "Output",ExpressionUUID->"4b32de17-9d0e-42ac-a64a-940859792752"] +}, Open ]], +Cell[23620, 783, 177, 3, 55, "Input",ExpressionUUID->"e419ea2b-cfab-4b32-83de-3169a095ff42"], +Cell[CellGroupData[{ +Cell[23822, 790, 333, 6, 55, "Input",ExpressionUUID->"cd35992f-4f02-4342-ba87-c240d69e283f"], +Cell[24158, 798, 232, 4, 62, "Output",ExpressionUUID->"718ea2ff-7778-4908-b8bd-4a586290e003"] +}, Open ]], +Cell[24405, 805, 177, 3, 55, "Input",ExpressionUUID->"7efe54fb-7831-41ab-adc1-b6f091a8b984"], +Cell[CellGroupData[{ +Cell[24607, 812, 336, 6, 55, "Input",ExpressionUUID->"36e9683b-262a-4168-b8c6-6153865b9a90"], +Cell[24946, 820, 231, 4, 62, "Output",ExpressionUUID->"7cc69535-386b-4bf8-8fcf-5fa0cbedfa9d"] +}, Open ]], +Cell[25192, 827, 177, 3, 55, "Input",ExpressionUUID->"5bf8cdd6-7467-44c6-8375-7b3e0fb3c3be"], +Cell[CellGroupData[{ +Cell[25394, 834, 358, 6, 55, "Input",ExpressionUUID->"05c1ce3c-2d90-4e22-8983-8708b913f8ec"], +Cell[25755, 842, 237, 4, 62, "Output",ExpressionUUID->"d46d6435-e824-4b80-93c7-afa74308d522"] +}, Open ]], +Cell[26007, 849, 175, 3, 55, "Input",ExpressionUUID->"af2d854f-0f16-4dcc-8158-4eae99fa42d4"], +Cell[CellGroupData[{ +Cell[26207, 856, 303, 6, 55, "Input",ExpressionUUID->"6e1ffc52-c14e-4102-b2d3-8f150a74cd2c"], +Cell[26513, 864, 237, 4, 62, "Output",ExpressionUUID->"b1c95913-8c5d-461e-958d-b15197551bc2"] +}, Open ]], +Cell[26765, 871, 175, 3, 55, "Input",ExpressionUUID->"90f795cc-44e0-4079-933e-820564497709"], +Cell[CellGroupData[{ +Cell[26965, 878, 307, 6, 55, "Input",ExpressionUUID->"e1a4e27d-fefb-4696-ae21-8d21efe0f772"], +Cell[27275, 886, 233, 4, 62, "Output",ExpressionUUID->"e1da4a03-9852-44c6-a99f-15711d5729da"] +}, Open ]], +Cell[27523, 893, 177, 3, 55, "Input",ExpressionUUID->"908ec444-5059-4913-944b-1bdd71a4d77f"], +Cell[CellGroupData[{ +Cell[27725, 900, 311, 6, 55, "Input",ExpressionUUID->"c855e36c-e123-468e-a24c-f6a4bcfabc56"], +Cell[28039, 908, 232, 4, 62, "Output",ExpressionUUID->"9d9d8a62-e5dc-4f72-af3c-870802cfab88"] +}, Open ]], +Cell[28286, 915, 176, 3, 55, "Input",ExpressionUUID->"65e23205-730e-44e3-b89e-7568b3a51464"], +Cell[CellGroupData[{ +Cell[28487, 922, 279, 5, 55, "Input",ExpressionUUID->"c76f2dce-79a7-4383-b851-ef032acfedad"], +Cell[28769, 929, 231, 4, 62, "Output",ExpressionUUID->"e2e75e38-d6ed-4040-9794-70048be22f77"] +}, Open ]], +Cell[29015, 936, 179, 3, 55, "Input",ExpressionUUID->"bbab7f73-0565-4ae4-8d20-d60fe84536e0"], +Cell[CellGroupData[{ +Cell[29219, 943, 19813, 486, 3214, "Input",ExpressionUUID->"e99f0e79-d0cb-41d4-b539-50ea2cde3a21"], +Cell[49035, 1431, 272, 5, 62, "Output",ExpressionUUID->"454e9c61-1f94-4c41-a67b-3720a310c58b"] }, 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[49344, 1441, 19752, 490, 3214, "Input",ExpressionUUID->"60d8770c-a518-401f-9cd7-ffb9a2f67508"], +Cell[69099, 1933, 271, 5, 62, "Output",ExpressionUUID->"f48680b0-c192-44a8-9d82-d72872f4896c"] }, 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[69407, 1943, 19752, 484, 3213, "Input",ExpressionUUID->"fc75c884-45d9-4cef-b95c-fa3bd5361c67"], +Cell[89162, 2429, 289, 6, 62, "Output",ExpressionUUID->"fe90f6ab-f082-4145-b3c5-f8c8b04453bd"] }, 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[89488, 2440, 22538, 554, 3639, "Input",ExpressionUUID->"09cfab98-b552-4b08-a78f-387275b62cde"], +Cell[112029, 2996, 291, 6, 62, "Output",ExpressionUUID->"cc513b50-becb-456d-93a9-5e0328cda9b3"] }, 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[112357, 3007, 22539, 554, 3639, "Input",ExpressionUUID->"ef9a3d42-1318-43d1-b6e7-893064eedcfe"], +Cell[134899, 3563, 292, 6, 62, "Output",ExpressionUUID->"57f7ae4d-bd5f-4bbc-83bc-ae6de9ee2b8e"] }, 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[135228, 3574, 25495, 627, 4065, "Input",ExpressionUUID->"d4bb190d-5ca6-4c4a-b3c8-f962d853e1c8"], +Cell[160726, 4203, 286, 6, 62, "Output",ExpressionUUID->"7624426a-6955-4c6f-bc37-bc175e427a75"] }, 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[161049, 4214, 134, 3, 55, "Input",ExpressionUUID->"318461b9-7ee4-47e0-b049-a20fb42eae95"], +Cell[161186, 4219, 254, 5, 62, "Output",ExpressionUUID->"3d552a5f-2faa-42b3-9457-f777e1b446ba"] }, 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[161477, 4229, 134, 3, 55, "Input",ExpressionUUID->"3e821625-2295-4317-a6c9-c5a6ed26f1ba"], +Cell[161614, 4234, 254, 5, 62, "Output",ExpressionUUID->"93feea3d-be7a-4e86-9595-e8857324d6d4"] }, 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[161905, 4244, 1148, 40, 211, "Input",ExpressionUUID->"e131b311-b23d-4bf8-aa90-94060544af3c"], +Cell[163056, 4286, 271, 5, 62, "Output",ExpressionUUID->"fe54b8bf-33cc-4e68-ad56-ca93b9b48205"] }, 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[163364, 4296, 1045, 36, 211, "Input",ExpressionUUID->"a38f8011-4eb5-4501-89be-65ef4758a564"], +Cell[164412, 4334, 286, 6, 62, "Output",ExpressionUUID->"bdf50e58-3ae8-4ddd-8c80-0578a2a5a37b"] }, 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[164735, 4345, 1148, 40, 211, "Input",ExpressionUUID->"1f2857d7-7392-4393-b2a1-6a006fd8c314"], +Cell[165886, 4387, 271, 5, 62, "Output",ExpressionUUID->"aaffbaf0-c25c-46bd-9f1a-9e9aacb5352b"] }, 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[166194, 4397, 112, 2, 55, "Input",ExpressionUUID->"ba8043a4-a195-48ef-acb5-158cea127b9e"], +Cell[166309, 4401, 272, 5, 62, "Output",ExpressionUUID->"7affa945-14ff-4a7f-98be-3b57a0970d13"] }, 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[166618, 4411, 112, 2, 55, "Input",ExpressionUUID->"2156025d-2a1e-45cb-9e97-e50773e5754e"], +Cell[166733, 4415, 289, 6, 62, "Output",ExpressionUUID->"59d02ba5-4822-4bab-bf4f-c549e0e768ee"] }, 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[167059, 4426, 112, 2, 55, "Input",ExpressionUUID->"affeaffc-5110-4d8f-896f-54b5596c2c52"], +Cell[167174, 4430, 287, 6, 62, "Output",ExpressionUUID->"98b10eaa-a915-4832-962a-e20181e68fb9"] }, 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[167498, 4441, 112, 2, 55, "Input",ExpressionUUID->"8b781ea3-01dd-4b9e-90d8-44bda9b0f1b0"], +Cell[167613, 4445, 274, 5, 62, "Output",ExpressionUUID->"91e7ba39-ebd0-4c5a-8321-bac23f60c837"] }, 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[167924, 4455, 111, 2, 55, "Input",ExpressionUUID->"6e315cbd-5e38-43c0-b733-a9cc30e42717"], +Cell[168038, 4459, 272, 5, 62, "Output",ExpressionUUID->"e8217124-3160-497a-a3ef-fd7ca773e043"] }, 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[168347, 4469, 111, 2, 55, "Input",ExpressionUUID->"cf57eb4b-ea94-4170-8ca4-d1e4df3a658b"], +Cell[168461, 4473, 272, 5, 62, "Output",ExpressionUUID->"33d25e04-201e-40ba-a10f-617ffe23cdf6"] }, 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[168770, 4483, 501, 17, 105, "Input",ExpressionUUID->"2996421f-d730-4ac7-bee1-1afd9facb2b6"], +Cell[169274, 4502, 287, 6, 62, "Output",ExpressionUUID->"347991fa-3831-46ac-af68-6f221e350e19"] }, 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[169598, 4513, 501, 17, 105, "Input",ExpressionUUID->"5377b4a7-0ea8-42d9-a370-3cbb3b816661"], +Cell[170102, 4532, 286, 6, 62, "Output",ExpressionUUID->"ed1077c6-331c-44d8-82cd-668ddb0622b1"] }, 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[170425, 4543, 1792, 61, 358, "Input",ExpressionUUID->"cd9543e9-5ab0-44b6-b22b-b6f7d9379d6f"], +Cell[172220, 4606, 270, 5, 62, "Output",ExpressionUUID->"d6e96e26-ad0d-4c00-8a99-6186d1d22cd1"] }, 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[172527, 4616, 1105, 37, 256, "Input",ExpressionUUID->"1cafafed-26ac-4aa7-b15d-5b2a26438908"], +Cell[173635, 4655, 291, 6, 62, "Output",ExpressionUUID->"c2fe019c-5f21-435a-8d7e-40f5d8718736"] }, 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[173963, 4666, 1822, 62, 313, "Input",ExpressionUUID->"ebf21cfa-2adf-4167-ad9c-e05db70dc3a1"], +Cell[175788, 4730, 269, 5, 62, "Output",ExpressionUUID->"beff5e16-4ae9-4f92-a0ec-ebe783f8f480"] }, 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[176094, 4740, 1635, 54, 310, "Input",ExpressionUUID->"baca1192-8829-4313-8a64-88dbef5bf565"], +Cell[177732, 4796, 273, 5, 62, "Output",ExpressionUUID->"86f86249-5f42-4c51-8b6e-7e1767e236c2"] }, 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[178042, 4806, 1635, 54, 101, "Input",ExpressionUUID->"39229fe3-c44d-4690-89cb-b4deb8cf5bfd"], +Cell[179680, 4862, 272, 5, 41, "Output",ExpressionUUID->"4b27e90f-29ef-4013-8647-45d92514696d"] +}, Open ]], +Cell[179967, 4870, 187, 4, 36, "Input",ExpressionUUID->"5894836c-9594-0940-b94c-299085c765cc"], +Cell[180157, 4876, 154, 3, 36, "Input",ExpressionUUID->"5965eb10-01f8-5545-9b6f-8fab318cd4b7"], +Cell[180314, 4881, 237, 5, 36, "Input",ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-092c5143dcf0"], +Cell[180554, 4888, 154, 3, 36, "Input",ExpressionUUID->"6e7c45d7-0298-ce41-ba97-a3c857e6ae57"], +Cell[CellGroupData[{ +Cell[180733, 4895, 1301, 43, 61, "Input",ExpressionUUID->"38bf39c5-cae1-4148-b0af-e362ef4ee2e3"], +Cell[182037, 4940, 178, 3, 41, "Output",ExpressionUUID->"d7904bcf-fc55-b844-b4d2-059d830f1317"] }, 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"] -}, Open ]], -Cell[371689, 8793, 209, 5, 70, "Input",ExpressionUUID->"54d9c986-d109-3d4c-9ee8-76427bb63659"], -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[182252, 4948, 908, 31, 73, "Input",ExpressionUUID->"f2e6289f-a8bc-6d44-a856-301cf9f22a61"], +Cell[183163, 4981, 177, 3, 41, "Output",ExpressionUUID->"7c075ec9-a97b-ab47-b241-cc392b585c5e"] }, 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[183377, 4989, 889, 30, 73, "Input",ExpressionUUID->"cdf84d2f-1e96-4c43-9286-fda42549e334"], +Cell[184269, 5021, 178, 3, 41, "Output",ExpressionUUID->"ddda4800-8c90-d44b-acfd-6ccb39eee852"] }, 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[184484, 5029, 558, 19, 66, "Input",ExpressionUUID->"a7d184c1-375c-094d-82ba-c6d8cfdfa4a1"], +Cell[185045, 5050, 172, 3, 41, "Output",ExpressionUUID->"046d7438-d73f-9343-9ae7-b01adfd6d8f5"] }, 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[185254, 5058, 651, 22, 66, "Input",ExpressionUUID->"cc7d9e01-d61b-5a43-abcd-9714383fe0fe"], +Cell[185908, 5082, 167, 3, 41, "Output",ExpressionUUID->"d2928e96-58be-3a4f-8bee-5b9e193c2ac6"] }, 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[186112, 5090, 170, 5, 71, "Input",ExpressionUUID->"1204358e-ac52-0f4c-bf22-945336ddda4e"], +Cell[186285, 5097, 172, 3, 41, "Output",ExpressionUUID->"bf655ed3-7200-2249-b687-593ee351a598"] +}, Open ]], +Cell[CellGroupData[{ +Cell[186494, 5105, 170, 5, 69, "Input",ExpressionUUID->"66c9dc01-c171-8f4f-b59a-2829d67b4589"], +Cell[186667, 5112, 173, 3, 41, "Output",ExpressionUUID->"56f5f06b-52e2-6941-b28e-41b961cb42e9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[186877, 5120, 181, 5, 55, "Input",ExpressionUUID->"09b0eefd-6263-8a44-8015-82d02046019c"], +Cell[187061, 5127, 171, 3, 41, "Output",ExpressionUUID->"8c210f75-69a5-5340-94a4-65e97302ca45"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187269, 5135, 181, 5, 55, "Input",ExpressionUUID->"c1911d35-4f2b-d042-9073-088b56a17885"], +Cell[187453, 5142, 172, 3, 41, "Output",ExpressionUUID->"bad7f5b6-1bd3-6b4b-87e4-44aee3a120fc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187662, 5150, 6055, 185, 431, "Input",ExpressionUUID->"6fd22be4-12e4-0d4e-b7f7-ab28adc2524f"], +Cell[193720, 5337, 174, 3, 41, "Output",ExpressionUUID->"ffdf2eb3-13bd-724f-a87b-fb40655ae9c4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193931, 5345, 368, 9, 53, "Input",ExpressionUUID->"788e89bc-20c8-8541-af10-81d8741a0e5b"], +Cell[194302, 5356, 172, 3, 41, "Output",ExpressionUUID->"609425d6-cf9c-7a45-bc21-030ca3aa1290"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194511, 5364, 6122, 187, 431, "Input",ExpressionUUID->"c19137b0-217d-0844-9acb-cc5878ab26fc"], +Cell[200636, 5553, 175, 3, 41, "Output",ExpressionUUID->"b20cbe94-36a3-8548-a61e-959a25814c62"] +}, Open ]], +Cell[CellGroupData[{ +Cell[200848, 5561, 368, 9, 53, "Input",ExpressionUUID->"7c3bd40f-ac17-c54f-a888-ac3b4c84d9d9"], +Cell[201219, 5572, 172, 3, 41, "Output",ExpressionUUID->"4fc2e2c1-457d-3d4a-a5b7-180877c6f370"] +}, Open ]], +Cell[CellGroupData[{ +Cell[201428, 5580, 2663, 88, 215, "Input",ExpressionUUID->"bdca581e-5d9f-434b-8ec4-903e0edf0216"], +Cell[204094, 5670, 171, 3, 41, "Output",ExpressionUUID->"08fcefa1-a87b-bf4b-998d-0c9017752dd4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[204302, 5678, 2603, 85, 435, "Input",ExpressionUUID->"1cec8cc2-764e-3d42-a680-d2ec92565257"], +Cell[206908, 5765, 173, 3, 41, "Output",ExpressionUUID->"5678b502-e98a-5d4b-9c03-fe98b2cc6f78"] +}, Open ]], +Cell[CellGroupData[{ +Cell[207118, 5773, 3712, 118, 316, "Input",ExpressionUUID->"800aba4f-a7e9-864a-a38b-f618fe3c89be"], +Cell[210833, 5893, 174, 3, 41, "Output",ExpressionUUID->"d74c1470-6eae-4841-b978-069a86bca67d"] +}, Open ]], +Cell[211022, 5899, 138, 3, 36, "Input",ExpressionUUID->"8111b6bb-cdcb-ad40-9440-412e77bed40d"], +Cell[CellGroupData[{ +Cell[211185, 5906, 2054, 59, 116, "Input",ExpressionUUID->"fc88a60e-e348-d344-96c4-1f4f66f53217"], +Cell[213242, 5967, 559, 12, 53, "Message",ExpressionUUID->"0833bd34-3252-a046-9aa3-94c1d6e5cfe9"], +Cell[213804, 5981, 560, 12, 53, "Message",ExpressionUUID->"f24a3618-ee43-704a-86fe-493dbed35e8d"], +Cell[214367, 5995, 565, 12, 53, "Message",ExpressionUUID->"86271901-aa3c-5542-ab18-fc06d3fd3f32"], +Cell[214935, 6009, 456, 10, 32, "Message",ExpressionUUID->"ce9bd686-d768-5440-b47e-1ee2b5aa0183"], +Cell[215394, 6021, 170, 3, 41, "Output",ExpressionUUID->"a6ab28bd-0b4e-3443-93b3-734d7cf3d8a2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[215601, 6029, 2054, 59, 116, "Input",ExpressionUUID->"dca13eb7-7f94-3e45-81a8-b62dad3009d2"], +Cell[217658, 6090, 559, 12, 53, "Message",ExpressionUUID->"44f2ed65-5109-0141-bef6-eebaeda3d61d"], +Cell[218220, 6104, 559, 12, 53, "Message",ExpressionUUID->"ba49f32e-1ff7-b147-9f42-9c90ccc55447"], +Cell[218782, 6118, 565, 12, 53, "Message",ExpressionUUID->"fa95acf1-55b2-c042-9a9f-32e1ebea5c1e"], +Cell[219350, 6132, 458, 10, 32, "Message",ExpressionUUID->"3c3d4134-2c7d-0949-9759-036664c530e3"], +Cell[219811, 6144, 170, 3, 41, "Output",ExpressionUUID->"742dfe41-8369-8942-b522-c174c845c383"] +}, Open ]], +Cell[CellGroupData[{ +Cell[220018, 6152, 1938, 53, 63, "Input",ExpressionUUID->"46451e4d-f5ef-b246-91c6-4265c9fafb97"], +Cell[221959, 6207, 20207, 379, 295, "Output",ExpressionUUID->"0e6ef056-d4e3-ac4d-9f2a-df071f8decb1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[242203, 6591, 2094, 60, 116, "Input",ExpressionUUID->"06bd0169-a5a6-404c-935d-e1a61565f71e"], +Cell[244300, 6653, 503, 11, 48, "Message",ExpressionUUID->"8a980d1e-9dd5-194d-803a-ac5d63bbe693"], +Cell[244806, 6666, 505, 11, 48, "Message",ExpressionUUID->"637082a9-fe74-7345-8895-dee77343ee6f"], +Cell[245314, 6679, 506, 11, 48, "Message",ExpressionUUID->"b2e7262c-7c6d-d94d-a545-ea4b363e579a"], +Cell[245823, 6692, 455, 10, 32, "Message",ExpressionUUID->"40c56d25-ed26-3045-9759-ae8eef5eb7cb"], +Cell[246281, 6704, 55770, 961, 290, "Output",ExpressionUUID->"f96372ea-8786-a94e-801e-a3ab56caf675"] +}, Open ]], +Cell[302066, 7668, 2455, 69, 140, "Input",ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-b938908ab9a4"], +Cell[304524, 7739, 209, 5, 36, "Input",ExpressionUUID->"6b0777bb-40fd-b54e-aa03-b6e82cb2e939"], +Cell[CellGroupData[{ +Cell[304758, 7748, 217, 7, 61, "Input",ExpressionUUID->"1ec1e156-ca0f-9240-857c-ac86e3a0e3fd"], +Cell[304978, 7757, 173, 3, 41, "Output",ExpressionUUID->"1ffcb79a-13e7-7549-b41c-23408ffbacea"] +}, Open ]], +Cell[CellGroupData[{ +Cell[305188, 7765, 1814, 53, 116, "Input",ExpressionUUID->"2a22eb8b-38c3-1f4b-a455-da901e49f6f1"], +Cell[307005, 7820, 506, 11, 48, "Message",ExpressionUUID->"08a2126f-e71c-b94d-8844-15e292a8f7d1"], +Cell[307514, 7833, 508, 11, 48, "Message",ExpressionUUID->"1acf7f10-7675-ea41-b478-94e928ef3377"], +Cell[308025, 7846, 509, 11, 48, "Message",ExpressionUUID->"67cdfb4c-9282-934a-b3c5-526027acebf5"], +Cell[308537, 7859, 458, 10, 32, "Message",ExpressionUUID->"760e7203-a507-b249-aaf5-4906557faed2"], +Cell[308998, 7871, 24818, 454, 290, "Output",ExpressionUUID->"f25b03e8-0c50-2442-86f8-c19dc28b43cf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[333853, 8330, 1616, 48, 86, "Input",ExpressionUUID->"6e7e1815-2cc6-b24e-a02d-18991b1a751b"], +Cell[335472, 8380, 582, 12, 71, "Message",ExpressionUUID->"b6e3034b-dd99-1142-8723-42090efc2980"], +Cell[336057, 8394, 588, 12, 71, "Message",ExpressionUUID->"54e48413-1d3a-b844-8316-bcdf9191e67e"], +Cell[336648, 8408, 590, 12, 71, "Message",ExpressionUUID->"44ccd47c-7323-4a4e-a9d6-7424d8b3399f"], +Cell[337241, 8422, 458, 10, 32, "Message",ExpressionUUID->"4c2e41d3-b5d7-3f4c-ba94-0408b6a0e82d"], +Cell[337702, 8434, 171, 3, 41, "Output",ExpressionUUID->"c1bfc082-c70f-3140-a59c-c21547622f5b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[337910, 8442, 2251, 64, 81, "Input",ExpressionUUID->"0b10f52e-4583-2a4b-993d-96e59dd43e6a"], +Cell[340164, 8508, 557, 12, 71, "Message",ExpressionUUID->"0e308aaf-a4b5-d740-9882-5c338a63d7a7"], +Cell[340724, 8522, 560, 12, 71, "Message",ExpressionUUID->"5e35cc91-e340-c74b-b6dd-42063e8a308b"], +Cell[341287, 8536, 565, 12, 71, "Message",ExpressionUUID->"c3f5c3a9-ece1-e648-aa3a-3f66f2873ea7"], +Cell[341855, 8550, 458, 10, 32, "Message",ExpressionUUID->"41503ce3-67a0-8a4a-b10a-c3db53fd260d"], +Cell[342316, 8562, 172, 3, 41, "Output",ExpressionUUID->"d9451200-e1de-5d43-8d07-ddcfc9babc52"] +}, Open ]], +Cell[CellGroupData[{ +Cell[342525, 8570, 2218, 64, 81, "Input",ExpressionUUID->"a58948c9-6d3d-e847-a269-d2e0cc5d1484"], +Cell[344746, 8636, 559, 12, 109, "Message",ExpressionUUID->"2247cd70-3ffa-2245-971e-6c6a2bd1ecfc"], +Cell[345308, 8650, 562, 12, 109, "Message",ExpressionUUID->"d9ae7d5b-4e89-a74f-be53-15700ab2593c"], +Cell[345873, 8664, 563, 12, 109, "Message",ExpressionUUID->"821c7ce3-36cc-9549-9881-1225eb1561cf"], +Cell[346439, 8678, 458, 10, 109, "Message",ExpressionUUID->"52af17f2-aff2-c34f-85c8-700b3d2f5f39"], +Cell[346900, 8690, 170, 3, 109, "Output",ExpressionUUID->"9a4afbd4-21df-4744-836a-2ed068742fdd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[347107, 8698, 2221, 64, 109, "Input",ExpressionUUID->"c817b2d1-7deb-5a45-9938-ca10003188eb"], +Cell[349331, 8764, 559, 12, 109, "Message",ExpressionUUID->"3701f96f-691c-9040-a8a1-ff3958638338"], +Cell[349893, 8778, 562, 12, 109, "Message",ExpressionUUID->"9e260603-f97f-ac44-8251-869444fbcc24"], +Cell[350458, 8792, 563, 12, 109, "Message",ExpressionUUID->"f34d60ab-6a89-fd45-89b6-5f3b4b17dd22"], +Cell[351024, 8806, 458, 10, 32, "Message",ExpressionUUID->"27fa1c02-4896-1547-8cb5-b1b86182517f"], +Cell[351485, 8818, 171, 3, 41, "Output",ExpressionUUID->"7fdd69fb-d48e-e24a-a681-093b62cad9ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[351693, 8826, 213, 6, 60, "Input",ExpressionUUID->"350334c7-7c47-c24c-8adc-781173809e57"], +Cell[351909, 8834, 173, 3, 41, "Output",ExpressionUUID->"20848a4e-e706-ec41-8982-5a7089f6420d"] +}, Open ]], +Cell[352097, 8840, 245, 5, 36, "Input",ExpressionUUID->"597921e5-69d3-564d-a8fa-092e912c15e0"], +Cell[CellGroupData[{ +Cell[352367, 8849, 558, 19, 66, "Input",ExpressionUUID->"d8a22216-586e-3641-8d6a-b19164cbbef2"], +Cell[352928, 8870, 170, 3, 41, "Output",ExpressionUUID->"c70c9f2e-d3ac-284f-9a22-d110345400ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[353135, 8878, 170, 5, 71, "Input",ExpressionUUID->"fdbad1ee-10c7-0843-8319-ad9a3350b059"], +Cell[353308, 8885, 173, 3, 41, "Output",ExpressionUUID->"dc218355-20da-7845-8c8d-e506361cd90c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[353518, 8893, 181, 5, 55, "Input",ExpressionUUID->"1e4255c3-6733-664e-86c8-98281eb7b3d1"], +Cell[353702, 8900, 171, 3, 41, "Output",ExpressionUUID->"b98e2d62-3142-7d4b-8175-9f6bcc8f676f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[353910, 8908, 6055, 185, 431, "Input",ExpressionUUID->"70c538a1-1fdf-1447-919a-237a7f13ec4c"], +Cell[359968, 9095, 172, 3, 109, "Output",ExpressionUUID->"e2235b96-63a9-b14d-b5d1-d13c73c5b35b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[360177, 9103, 368, 9, 109, "Input",ExpressionUUID->"309f305e-3fbc-e84e-99d9-1087d7a09460"], +Cell[360548, 9114, 172, 3, 109, "Output",ExpressionUUID->"776526ba-6ae1-2140-8428-6e0766592ce2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[360757, 9122, 6122, 187, 109, "Input",ExpressionUUID->"e745b4b9-6adc-da40-98cf-d19095e176b2"], +Cell[366882, 9311, 173, 3, 41, "Output",ExpressionUUID->"4456bf68-737e-1947-bc9d-24db2abd4b39"] +}, Open ]], +Cell[CellGroupData[{ +Cell[367092, 9319, 368, 9, 53, "Input",ExpressionUUID->"9d206cd8-8a5b-4046-b84a-e6b4fe810128"], +Cell[367463, 9330, 170, 3, 41, "Output",ExpressionUUID->"04031349-1bc1-2c40-8d25-2e90a8f4b902"] +}, Open ]], +Cell[CellGroupData[{ +Cell[367670, 9338, 2663, 88, 215, "Input",ExpressionUUID->"2ec72619-a762-004d-a8c1-9773b798bf0e"], +Cell[370336, 9428, 171, 3, 41, "Output",ExpressionUUID->"ab924ecc-12c3-f448-be6e-b37b3bf2a7ea"] +}, Open ]], +Cell[CellGroupData[{ +Cell[370544, 9436, 2603, 85, 215, "Input",ExpressionUUID->"499f8153-6e36-8043-876b-5343c0af179e"], +Cell[373150, 9523, 173, 3, 41, "Output",ExpressionUUID->"edd230b8-d34a-9d46-9fb1-cbff36fb79ff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[373360, 9531, 3712, 118, 316, "Input",ExpressionUUID->"33c0834c-5a76-7640-a18c-d9704d756896"], +Cell[377075, 9651, 174, 3, 109, "Output",ExpressionUUID->"7ff053b6-f84b-bf44-8265-ecf6593e97c0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[377286, 9659, 2049, 58, 109, "Input",ExpressionUUID->"77c444cf-c5b4-4b4b-9808-ff76b28fd32d"], +Cell[379338, 9719, 579, 12, 109, "Message",ExpressionUUID->"ba9cccb8-fdfa-1d4c-9151-4c0bb8135009"], +Cell[379920, 9733, 582, 12, 71, "Message",ExpressionUUID->"dda5376f-614c-1846-a3e1-09857b4bcae6"], +Cell[380505, 9747, 584, 12, 71, "Message",ExpressionUUID->"7a2a8f8b-abfe-9646-a4d6-23b88b4059ef"], +Cell[381092, 9761, 458, 10, 32, "Message",ExpressionUUID->"61579f38-09d5-bc4c-9509-0aaf4718ceff"], +Cell[381553, 9773, 172, 3, 41, "Output",ExpressionUUID->"87b4581c-42ec-3248-906f-f100fdcc36d4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[381762, 9781, 2054, 59, 116, "Input",ExpressionUUID->"baacd3f7-96e4-2949-b9f9-9afb90e551d9"], +Cell[383819, 9842, 577, 12, 71, "Message",ExpressionUUID->"19016d8b-0ad0-804c-b867-298523611be5"], +Cell[384399, 9856, 580, 12, 71, "Message",ExpressionUUID->"b91abb11-65b8-3b43-a495-4cb1457edd27"], +Cell[384982, 9870, 583, 12, 71, "Message",ExpressionUUID->"120f2ab5-c971-b748-a471-5d053961b4f2"], +Cell[385568, 9884, 456, 10, 32, "Message",ExpressionUUID->"e219a46d-9b55-8b4b-a17f-972d0b60293c"], +Cell[386027, 9896, 171, 3, 41, "Output",ExpressionUUID->"15e7db41-f53f-7c4b-886f-7ba04bf10a25"] +}, Open ]], +Cell[CellGroupData[{ +Cell[386235, 9904, 2030, 55, 63, "Input",ExpressionUUID->"ea08a5a9-d446-9147-ba82-e3924f732df2"], +Cell[388268, 9961, 20493, 384, 295, "Output",ExpressionUUID->"33ceb84f-c9c7-504c-ae94-1b1d69b769af"] +}, Open ]], +Cell[CellGroupData[{ +Cell[408798, 10350, 2120, 60, 109, "Input",ExpressionUUID->"42ddbf41-0bd8-b749-bead-56c89a9b7467"], +Cell[410921, 10412, 501, 11, 109, "Message",ExpressionUUID->"b616cb85-0c12-9449-8e54-a070530c7874"], +Cell[411425, 10425, 504, 11, 109, "Message",ExpressionUUID->"d17cbbe2-194b-ec4c-bb30-d2fcc4c1a181"], +Cell[411932, 10438, 508, 11, 48, "Message",ExpressionUUID->"6c23e3dc-9bc5-a441-99df-2985793b0df8"], +Cell[412443, 10451, 456, 10, 32, "Message",ExpressionUUID->"de9af779-0821-a544-b1ce-6c66cf00e4d6"], +Cell[412902, 10463, 31462, 562, 290, "Output",ExpressionUUID->"d2a47969-eb62-c243-9b06-713ae9ea0a7d"] +}, Open ]], +Cell[444379, 11028, 209, 5, 36, "Input",ExpressionUUID->"6883477e-2a54-0a45-979a-ae60c73e9e82"], +Cell[CellGroupData[{ +Cell[444613, 11037, 1616, 48, 86, "Input",ExpressionUUID->"93c0bac4-7a17-8748-9b2f-588171dbd56e"], +Cell[446232, 11087, 596, 12, 71, "Message",ExpressionUUID->"ca0dab71-62e4-1c4e-b2d5-91f300055932"], +Cell[446831, 11101, 602, 12, 71, "Message",ExpressionUUID->"aa43f3fc-5ec5-414d-bbd9-cf1b638f0a27"], +Cell[447436, 11115, 605, 12, 71, "Message",ExpressionUUID->"eaa52aca-1e19-e84e-9825-10ec4ac94baf"], +Cell[448044, 11129, 458, 10, 32, "Message",ExpressionUUID->"40ddf79f-d82f-b94d-9b78-050a48c24dda"], +Cell[448505, 11141, 171, 3, 41, "Output",ExpressionUUID->"f752c3f0-fe06-284b-bff8-a09adf8994cc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[448713, 11149, 2251, 64, 81, "Input",ExpressionUUID->"fcc64ab7-eee0-e44f-9b2d-2a98ba29b602"], +Cell[450967, 11215, 577, 12, 71, "Message",ExpressionUUID->"03b49875-7e1c-734a-9395-591c7a6a0147"], +Cell[451547, 11229, 580, 12, 109, "Message",ExpressionUUID->"bbc1c804-e094-2b49-bceb-c837038552fa"], +Cell[452130, 11243, 586, 12, 109, "Message",ExpressionUUID->"340351a4-e10e-7141-b933-75e80a563962"], +Cell[452719, 11257, 458, 10, 109, "Message",ExpressionUUID->"45363ba5-7011-ce4a-bbb2-25b54117d598"], +Cell[453180, 11269, 173, 3, 109, "Output",ExpressionUUID->"a7117811-d866-a74a-b451-2e5611fcbe98"] +}, Open ]], +Cell[CellGroupData[{ +Cell[453390, 11277, 2219, 64, 109, "Input",ExpressionUUID->"edfdd675-c60b-304e-9e16-68452b971319"], +Cell[455612, 11343, 579, 12, 109, "Message",ExpressionUUID->"d229ea6a-26e4-d448-90bf-3044f07066eb"], +Cell[456194, 11357, 580, 12, 109, "Message",ExpressionUUID->"7911ebc5-127d-5841-a246-fcff3e2e3d7f"], +Cell[456777, 11371, 586, 12, 109, "Message",ExpressionUUID->"62b490bd-3e68-5b49-8d2e-1bbb1e520215"], +Cell[457366, 11385, 458, 10, 109, "Message",ExpressionUUID->"2c340204-da84-dd4d-abb8-8821cc152f8d"], +Cell[457827, 11397, 171, 3, 109, "Output",ExpressionUUID->"88b2df22-3f75-ff45-90a9-fda3ac3bb827"] +}, Open ]], +Cell[CellGroupData[{ +Cell[458035, 11405, 2219, 64, 81, "Input",ExpressionUUID->"d0469d46-2e74-494a-be85-b41cb2f3fa92"], +Cell[460257, 11471, 576, 12, 71, "Message",ExpressionUUID->"8c45e08e-3e6d-d74b-a260-2b9be908c427"], +Cell[460836, 11485, 580, 12, 71, "Message",ExpressionUUID->"05cc4b97-7653-f04b-8664-f56b3128e201"], +Cell[461419, 11499, 584, 12, 71, "Message",ExpressionUUID->"880f1d89-ca48-ef4c-8955-16a02dd06624"], +Cell[462006, 11513, 458, 10, 32, "Message",ExpressionUUID->"fbbc91b1-3b40-a04c-8f78-5ca75ca88c9b"], +Cell[462467, 11525, 173, 3, 41, "Output",ExpressionUUID->"ea027f70-f222-b745-8c2e-f4a8bd2e0421"] +}, Open ]], +Cell[CellGroupData[{ +Cell[462677, 11533, 212, 6, 60, "Input",ExpressionUUID->"58b5e243-0972-1946-bd17-aca0f3e8a35b"], +Cell[462892, 11541, 172, 3, 41, "Output",ExpressionUUID->"3682abd7-ed62-9948-84cf-8fffa8ddbfe7"] +}, Open ]], +Cell[463079, 11547, 244, 5, 36, "Input",ExpressionUUID->"8ae59c8e-a0a1-f646-a3f5-a3711ba632a4"], +Cell[CellGroupData[{ +Cell[463348, 11556, 558, 19, 66, "Input",ExpressionUUID->"403fd1b3-6929-134c-834a-14f2acd2fccb"], +Cell[463909, 11577, 171, 3, 41, "Output",ExpressionUUID->"9fbf2f5c-e66a-8c48-92c5-cb97211e83a1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[464117, 11585, 170, 5, 71, "Input",ExpressionUUID->"434ec2be-ef30-1d48-bf44-e1e8b179c2e0"], +Cell[464290, 11592, 171, 3, 41, "Output",ExpressionUUID->"7a911217-f777-234b-9e3e-66fa91b95a93"] +}, Open ]], +Cell[CellGroupData[{ +Cell[464498, 11600, 181, 5, 55, "Input",ExpressionUUID->"defdc4af-a758-2c46-b8da-ac4403e5ffd4"], +Cell[464682, 11607, 173, 3, 41, "Output",ExpressionUUID->"71512215-c060-b042-87dd-cf63c2fdbe79"] +}, Open ]], +Cell[CellGroupData[{ +Cell[464892, 11615, 6055, 185, 431, "Input",ExpressionUUID->"7643457c-ba0b-b641-aa35-59c61447beaf"], +Cell[470950, 11802, 173, 3, 109, "Output",ExpressionUUID->"83eb5a5c-2221-9048-9616-76c841caa7ff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[471160, 11810, 368, 9, 53, "Input",ExpressionUUID->"88a32c79-3b56-5047-96b0-6fadcea3787e"], +Cell[471531, 11821, 172, 3, 41, "Output",ExpressionUUID->"3469ea64-5888-e347-a592-fe58acf45252"] +}, Open ]], +Cell[CellGroupData[{ +Cell[471740, 11829, 6122, 187, 431, "Input",ExpressionUUID->"12b95c40-ca91-7148-a053-e8c97b54e7b6"], +Cell[477865, 12018, 173, 3, 41, "Output",ExpressionUUID->"6078ae64-e041-ef46-9c98-aeb384a7565b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[478075, 12026, 368, 9, 53, "Input",ExpressionUUID->"4e259183-4a48-7f41-8fc6-1aa60d807e18"], +Cell[478446, 12037, 172, 3, 41, "Output",ExpressionUUID->"ed53339e-8a54-b740-a712-127e0aa48364"] +}, Open ]], +Cell[CellGroupData[{ +Cell[478655, 12045, 2663, 88, 215, "Input",ExpressionUUID->"73b06553-f9e2-3447-85e9-8a163aa2ec21"], +Cell[481321, 12135, 173, 3, 109, "Output",ExpressionUUID->"0881e898-a895-4f44-9932-c9b57f23fb23"] +}, Open ]], +Cell[CellGroupData[{ +Cell[481531, 12143, 2603, 85, 109, "Input",ExpressionUUID->"64658d71-e48f-7c4d-bfd6-30344127c7bf"], +Cell[484137, 12230, 171, 3, 109, "Output",ExpressionUUID->"6f8be6ff-3439-7547-b2e5-a7f15df03852"] +}, Open ]], +Cell[CellGroupData[{ +Cell[484345, 12238, 3712, 118, 109, "Input",ExpressionUUID->"02b10812-8656-6e43-99ab-3ff059fd6dae"], +Cell[488060, 12358, 174, 3, 41, "Output",ExpressionUUID->"5f1268db-50d9-294a-839d-2dc73b3483c5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[488271, 12366, 2054, 59, 116, "Input",ExpressionUUID->"ba508068-6b78-254c-87d6-cf1adc0753dd"], +Cell[490328, 12427, 574, 12, 71, "Message",ExpressionUUID->"fea97571-51b6-bc4d-8922-e67cbea226be"], +Cell[490905, 12441, 580, 12, 71, "Message",ExpressionUUID->"f9381c1d-d837-a646-bb62-f69cb564b78b"], +Cell[491488, 12455, 580, 12, 71, "Message",ExpressionUUID->"2dd3f3b2-ca3e-6c42-abc0-5cf7523a6a65"], +Cell[492071, 12469, 456, 10, 32, "Message",ExpressionUUID->"5a727290-5b6b-a347-9739-3df9958ec415"], +Cell[492530, 12481, 172, 3, 41, "Output",ExpressionUUID->"44426372-aa84-bf4c-9f95-4de13286a09a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[492739, 12489, 2054, 59, 116, "Input",ExpressionUUID->"842e33e4-ae06-f746-ab8b-97489285cc9c"], +Cell[494796, 12550, 576, 12, 71, "Message",ExpressionUUID->"a32ffe4b-5346-7b46-9dee-b8bad033001e"], +Cell[495375, 12564, 577, 12, 71, "Message",ExpressionUUID->"902c6490-8537-484d-8825-0d2295db4f12"], +Cell[495955, 12578, 582, 12, 71, "Message",ExpressionUUID->"1b49285c-a5d9-074c-871b-37b4cadb7269"], +Cell[496540, 12592, 458, 10, 32, "Message",ExpressionUUID->"2ff3d4da-4949-1448-b68b-aac1ae56bb1a"], +Cell[497001, 12604, 172, 3, 41, "Output",ExpressionUUID->"046dcac0-9165-4b41-8a82-c19ed01a7ad4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[497210, 12612, 2028, 55, 63, "Input",ExpressionUUID->"b2e314f8-a6f0-6942-a94c-5ac1cacd7190"], +Cell[499241, 12669, 20021, 378, 109, "Output",ExpressionUUID->"d1cda4a3-f1fb-0d44-a506-74525ae66245"] +}, Open ]], +Cell[CellGroupData[{ +Cell[519299, 13052, 2146, 61, 109, "Input",ExpressionUUID->"497f9779-a3e4-c84e-a207-0aac70483e3c"], +Cell[521448, 13115, 502, 11, 109, "Message",ExpressionUUID->"56dc07a7-05cc-424a-8fff-08f056385a44"], +Cell[521953, 13128, 506, 11, 109, "Message",ExpressionUUID->"71ae3883-d346-164c-9764-dc57f6863817"], +Cell[522462, 13141, 508, 11, 48, "Message",ExpressionUUID->"16c86d51-9f27-3c48-b312-93c489e538a4"], +Cell[522973, 13154, 456, 10, 32, "Message",ExpressionUUID->"64c101a8-dc8b-1f4e-9946-a38ce949c736"], +Cell[523432, 13166, 30030, 538, 290, "Output",ExpressionUUID->"f98d1ba6-9bcb-b94f-a8fa-792e22f5ac65"] +}, Open ]], +Cell[553477, 13707, 209, 5, 36, "Input",ExpressionUUID->"54d9c986-d109-3d4c-9ee8-76427bb63659"], +Cell[CellGroupData[{ +Cell[553711, 13716, 1590, 47, 86, "Input",ExpressionUUID->"5dd0afca-0a4f-544d-814d-33e1c649116f"], +Cell[555304, 13765, 342, 6, 26, "Message",ExpressionUUID->"9e6d6a70-ad75-9b40-8a0b-ca802f09d5a2"], +Cell[555649, 13773, 101, 0, 41, "Output",ExpressionUUID->"b372c493-d6de-934f-951c-1a3f45718733"] +}, Open ]], +Cell[CellGroupData[{ +Cell[555787, 13778, 2249, 64, 81, "Input",ExpressionUUID->"a3e3d205-e3b4-874a-a36c-53cfa72184b4"], +Cell[558039, 13844, 342, 6, 26, "Message",ExpressionUUID->"9e9d949e-1d4c-8649-8d0e-b7deecfb3ba4"], +Cell[558384, 13852, 342, 6, 26, "Message",ExpressionUUID->"76f8ef60-aab6-7442-aeca-4cebad23cb0e"], +Cell[558729, 13860, 101, 0, 41, "Output",ExpressionUUID->"37cdd74c-8ec4-9047-aa14-d493ed3e18d0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[558867, 13865, 2221, 64, 81, "Input",ExpressionUUID->"6977f025-454e-0e4a-b118-07bad9ba3e82"], +Cell[561091, 13931, 342, 6, 26, "Message",ExpressionUUID->"566a849f-fc85-4d42-a545-a46d44cf7346"], +Cell[561436, 13939, 342, 6, 26, "Message",ExpressionUUID->"fb1cb4d6-a504-e445-bb52-7946e1bca3c6"], +Cell[561781, 13947, 100, 0, 41, "Output",ExpressionUUID->"5fc76ad3-8f3e-9246-bda1-78737e269d99"] +}, Open ]], +Cell[CellGroupData[{ +Cell[561918, 13952, 2223, 64, 81, "Input",ExpressionUUID->"df8ecb01-788a-604d-b773-f29bb610eb30"], +Cell[564144, 14018, 342, 6, 26, "Message",ExpressionUUID->"f9e34ec5-1462-b340-b2e7-8e875dd33d28"], +Cell[564489, 14026, 342, 6, 26, "Message",ExpressionUUID->"19ffb858-7059-2a48-a3db-e2d0dfcf2131"], +Cell[564834, 14034, 101, 0, 41, "Output",ExpressionUUID->"dbb2a900-6759-7349-a1e8-ea8b52a29f31"] +}, Open ]], +Cell[CellGroupData[{ +Cell[564972, 14039, 213, 6, 60, "Input",ExpressionUUID->"54a5e329-20bd-e742-afe8-d2cfa007cfcf"], +Cell[565188, 14047, 102, 0, 41, "Output",ExpressionUUID->"8f1edf59-aed7-914f-9d19-1949d2a555d6"] +}, Open ]], +Cell[565305, 14050, 115, 1, 36, "Input",ExpressionUUID->"1b4ac5f6-8121-4c51-89ab-64c8cf1fc657"] } ] *) -(* End of internal cache information *) - diff --git a/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_gid_Qw1.nb b/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_gid_Qw1.nb index 78f75b1..218cb82 100755 --- a/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_gid_Qw1.nb +++ b/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_gid_Qw1.nb @@ -3,25 +3,4892 @@ (*** 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[ 597858, 14548] +NotebookOptionsPosition[ 558611, 13925] +NotebookOutlinePosition[ 559016, 13942] +CellTagsIndexPosition[ 558973, 13939] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f1", "="}]], "Input", + RowBox[{"d", "=", "1.6"}]], "Input", CellChangeTimes->{ - 3.991849227197853*^9},ExpressionUUID->"c5bb4ac7-6666-c043-9d96-\ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.9940727514461927`*^9, 3.994072775295883*^9}}, + CellLabel-> + "In[104]:=",ExpressionUUID->"4e298ab4-090c-4da0-aea5-ba6d78ef8e18"], + +Cell[BoxData["1.6`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, 3.99379974700918*^9, 3.993800338579624*^9, + 3.9938003856877937`*^9, {3.994072756527327*^9, 3.9940727765701942`*^9}}, + CellLabel-> + "Out[104]=",ExpressionUUID->"206d68b1-3695-4924-94b0-a87f9934c78a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.993799082059058*^9, 3.9937990826790457`*^9}}, + CellLabel-> + "In[105]:=",ExpressionUUID->"6473ec2b-5591-4c73-a87a-9b64a1694141"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.993799747282215*^9, 3.99380033885446*^9, + 3.993800385764146*^9, {3.994072756590721*^9, 3.994072776647262*^9}}, + CellLabel-> + "Out[105]=",ExpressionUUID->"9cce42cf-8587-43ae-9123-b20b284a241b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", " ", "176"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.993799246718399*^9, 3.993799247496731*^9}}, + CellLabel-> + "In[106]:=",ExpressionUUID->"7d63cd37-a18c-48ac-9ac3-e8b477df1af9"], + +Cell[BoxData["176"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.993799747300477*^9, 3.993800338871715*^9, + 3.993800385779578*^9, {3.994072756603456*^9, 3.9940727766610518`*^9}}, + CellLabel-> + "Out[106]=",ExpressionUUID->"84c9c2e3-8b1a-49d8-9691-4dbcfdeb8300"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel-> + "In[107]:=",ExpressionUUID->"59be669c-29f2-48f3-9246-8922a0283947"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.993799747316929*^9, 3.993800338888788*^9, + 3.993800385794606*^9, {3.994072756615819*^9, 3.994072776674831*^9}}, + CellLabel-> + "Out[107]=",ExpressionUUID->"a4ef0386-515f-4888-91b3-82405acbac04"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel-> + "In[108]:=",ExpressionUUID->"fa1e4148-f780-40f5-b87b-7b063d67b4cf"], + +Cell[BoxData["0.543`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.993799747333138*^9, 3.993800338906427*^9, + 3.993800385809697*^9, {3.994072756628705*^9, 3.994072776688608*^9}}, + CellLabel-> + "Out[108]=",ExpressionUUID->"3b17abbc-3dc8-4608-9b6b-2ca6280b8f7c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel-> + "In[109]:=",ExpressionUUID->"6e7f445d-fdd7-4be2-8549-0d163192ed17"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.9937997473490753`*^9, 3.993800338928018*^9, + 3.993800385813496*^9, {3.994072756641103*^9, 3.994072776693177*^9}}, + CellLabel-> + "Out[109]=",ExpressionUUID->"43b7eaf2-0d6a-476c-8d05-50e89961c15c"] +}, 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[110]:=",ExpressionUUID->"a0c2d623-9b24-4b8e-9eb1-105882bc0a9d"], + +Cell[BoxData["6.5007312471204965`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.993799747366351*^9, 3.993800338948053*^9, + 3.993800385835421*^9, {3.994072756653392*^9, 3.994072776710863*^9}}, + CellLabel-> + "Out[110]=",ExpressionUUID->"6a07e530-2530-4da5-b9ee-525b013aeb05"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel-> + "In[111]:=",ExpressionUUID->"90472dd9-931e-492c-93df-c43e7c0755e9"], + +Cell[BoxData["4.64`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.993799747384128*^9, 3.993800338968402*^9, + 3.993800385850627*^9, {3.9940727566658983`*^9, 3.994072776724451*^9}}, + CellLabel-> + "Out[111]=",ExpressionUUID->"7194280a-3a15-4ef8-8c69-64a4ccf18add"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.7654"}]], "Input", + CellChangeTimes->{ + 3.991799283179735*^9, {3.9937993186432753`*^9, 3.993799326240513*^9}, { + 3.993799364756247*^9, 3.993799370026516*^9}, {3.993799480203456*^9, + 3.993799488443741*^9}}, + CellLabel-> + "In[112]:=",ExpressionUUID->"56576e1d-c32b-44ea-9085-551c6fcb2175"], + +Cell[BoxData["0.7654`"], "Output", + CellChangeTimes->{ + 3.9937997474107447`*^9, 3.993800338988703*^9, 3.9938003858649893`*^9, { + 3.994072756678184*^9, 3.994072776737771*^9}}, + CellLabel-> + "Out[112]=",ExpressionUUID->"f3556d5e-3bf3-4d1d-a440-9665e74a334e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.4513"}]], "Input", + CellChangeTimes->{ + 3.991799280663351*^9, {3.993799372069343*^9, 3.993799377027832*^9}}, + CellLabel-> + "In[113]:=",ExpressionUUID->"e31cedbb-e428-4119-a831-920ffad8dd12"], + +Cell[BoxData["0.4513`"], "Output", + CellChangeTimes->{ + 3.993799747427882*^9, 3.993800339005568*^9, 3.993800385879345*^9, { + 3.9940727566903763`*^9, 3.9940727767497873`*^9}}, + CellLabel-> + "Out[113]=",ExpressionUUID->"8090d2d8-56a2-46bf-a2d1-8b13489eee46"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel-> + "In[114]:=",ExpressionUUID->"918056cc-c05d-4810-b116-998fa8098ec4"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.993799747452092*^9, 3.993800339022945*^9, + 3.993800385893304*^9, {3.994072756702078*^9, 3.9940727767611856`*^9}}, + CellLabel-> + "Out[114]=",ExpressionUUID->"5c0eccf8-631a-4269-b7fb-bf96be1f802e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel-> + "In[115]:=",ExpressionUUID->"ac10ced6-d951-4da9-a896-f8316432c8e3"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.993799747468101*^9, 3.993800339041868*^9, + 3.9938003859074306`*^9, {3.9940727567134666`*^9, 3.994072776772606*^9}}, + CellLabel-> + "Out[115]=",ExpressionUUID->"57a81b2d-1310-4588-9519-161aa2fe281e"] +}, 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[116]:=",ExpressionUUID->"d6c3ee5c-86fa-4d04-a777-4822adca9d43"], + +Cell[BoxData["2.0171665757171935`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.9937997474836817`*^9, 3.9938003390596933`*^9, + 3.993800385921398*^9, {3.994072756725263*^9, 3.994072776784317*^9}}, + CellLabel-> + "Out[116]=",ExpressionUUID->"c871e321-70e3-482c-9fb8-9fbba6ad7b79"] +}, 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[117]:=",ExpressionUUID->"408796d0-515b-4b34-a6b5-e3aa98dfd1b8"], + +Cell[BoxData["1.5074639495621045`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.993799747498741*^9, 3.993800339079308*^9, + 3.993800385933773*^9, {3.994072756739362*^9, 3.994072776796445*^9}}, + CellLabel-> + "Out[117]=",ExpressionUUID->"29520099-73ad-4943-974b-01e47263b244"] +}, 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[118]:=",ExpressionUUID->"d8c750a6-8362-4fb1-8306-87c9f653c3bc"], + +Cell[BoxData["0.5126444245586296`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.993799747513342*^9, 3.993800339097157*^9, + 3.993800385946536*^9, {3.994072756750792*^9, 3.9940727768075857`*^9}}, + CellLabel-> + "Out[118]=",ExpressionUUID->"65dfa6fa-c9e8-4ced-bfc8-a1d422b52c37"] +}, 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[119]:=",ExpressionUUID->"deb05e31-1a99-4582-b1c3-a739e1144c15"], + +Cell[BoxData[ + RowBox[{"-", "0.12490541136574432`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.993799747527933*^9, 3.9938003391147947`*^9, + 3.99380038595966*^9, {3.994072756762456*^9, 3.99407277681929*^9}}, + CellLabel-> + "Out[119]=",ExpressionUUID->"77032548-4f88-49bf-a239-4409a96c56b9"] +}, 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[120]:=",ExpressionUUID->"dc419b82-3e31-41ce-8589-70f766ca6f26"], + +Cell[BoxData[ + RowBox[{"-", "0.47786808677187637`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.993799747543792*^9, 3.993800339132107*^9, + 3.9938003859736147`*^9, {3.994072756774001*^9, 3.994072776830839*^9}}, + CellLabel-> + "Out[120]=",ExpressionUUID->"a7d81ae2-d9db-4f55-9c43-152551ad884d"] +}, 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[121]:=",ExpressionUUID->"a10d564e-16e0-47f2-b771-9f70a658934f"], + +Cell[BoxData["0.6637051934091774`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.993799747559553*^9, 3.993800339136161*^9, + 3.993800385987465*^9, {3.994072756786757*^9, 3.994072776842886*^9}}, + CellLabel-> + "Out[121]=",ExpressionUUID->"3e6b4174-a2c3-4a1e-996b-c162b8c2fd48"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel-> + "In[122]:=",ExpressionUUID->"9829bcde-f304-448c-aa51-24654c147ae6"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.9937997475753107`*^9, 3.993800339165604*^9, + 3.9938003860010223`*^9, {3.99407275679909*^9, 3.994072776854899*^9}}, + CellLabel-> + "Out[122]=",ExpressionUUID->"1c391cdf-80a5-4d9f-a2bf-983a9ee18996"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel-> + "In[123]:=",ExpressionUUID->"c15fb448-666b-4677-826d-b45daf097e27"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.9937997475908947`*^9, 3.993800339182325*^9, + 3.9938003860157137`*^9, {3.9940727568120337`*^9, 3.994072776866831*^9}}, + CellLabel-> + "Out[123]=",ExpressionUUID->"d5f52fdb-646e-4cd0-9a51-d2dc82b67e86"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellChangeTimes->{{3.9938002062742653`*^9, 3.993800206278376*^9}, { + 3.99380037453472*^9, 3.993800374695301*^9}}, + CellLabel-> + "In[124]:=",ExpressionUUID->"b5059030-04e0-45de-a22b-5a0196fbe26b"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.993799747607007*^9, 3.993800339199224*^9, + 3.9938003860303698`*^9, {3.994072756823955*^9, 3.994072776878458*^9}}, + CellLabel-> + "Out[124]=",ExpressionUUID->"39657914-0ad9-4e3e-b927-9b71eb263190"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel-> + "In[125]:=",ExpressionUUID->"9206ae1b-d0d5-485d-befe-74340aba3b4b"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.993799747623555*^9, 3.9938003392162523`*^9, + 3.993800386045208*^9, {3.994072756835642*^9, 3.994072776890398*^9}}, + CellLabel-> + "Out[125]=",ExpressionUUID->"2a61d991-fa9c-41d7-b417-f7888e1f9d38"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel-> + "In[126]:=",ExpressionUUID->"36e30e31-a0e4-497e-8845-6e70833c12f4"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.9937997476274233`*^9, 3.993800339233366*^9, + 3.993800386060211*^9, {3.994072756847537*^9, 3.994072776902615*^9}}, + CellLabel-> + "Out[126]=",ExpressionUUID->"2764ba7f-262b-4905-9856-f83d7d15792a"] +}, 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.993799773981587*^9, {3.993800017055696*^9, 3.993800017126395*^9}}, + CellLabel-> + "In[127]:=",ExpressionUUID->"f58a2dc9-267b-44cb-aa70-c83cc104624e"], + +Cell[BoxData["64"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, 3.993800339250176*^9, 3.993800386074368*^9, { + 3.994072756859651*^9, 3.994072776915943*^9}}, + CellLabel-> + "Out[127]=",ExpressionUUID->"950ee5f9-b07e-4790-9f55-f00aefcf3762"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"92", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9}, + CellLabel-> + "In[128]:=",ExpressionUUID->"f4f1bc0f-c6f7-4d98-9565-778d4f288687"], + +Cell[BoxData["28"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.993799747743443*^9, 3.993800339268099*^9, + 3.993800386088282*^9, {3.994072756878846*^9, 3.994072776927128*^9}}, + CellLabel-> + "Out[128]=",ExpressionUUID->"45a0a746-8f83-4f41-a170-3036123f9992"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel-> + "In[129]:=",ExpressionUUID->"a4efe8aa-fa71-46c4-9048-0ec22c629f6f"], + +Cell[BoxData["64"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.993799747762579*^9, 3.9938003392862883`*^9, + 3.993800386103376*^9, {3.994072756893341*^9, 3.994072776939496*^9}}, + CellLabel-> + "Out[129]=",ExpressionUUID->"c7684bd7-5c7c-4887-a0b9-4f340818c91c"] +}, 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[130]:=",ExpressionUUID->"0dde3c62-9148-4482-b3c4-b44d95540a37"], + +Cell[BoxData["0.10431818181818181`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.993799747778633*^9, 3.993800339303063*^9, + 3.993800386118601*^9, {3.9940727569059267`*^9, 3.994072776951536*^9}}, + CellLabel-> + "Out[130]=",ExpressionUUID->"d1672193-3a5d-4dc6-892b-fbd1fa55d324"] +}, 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[131]:=",ExpressionUUID->"1bc74051-3208-4486-bf77-3e5fc10808fd"], + +Cell[BoxData[ + RowBox[{"-", "2.571590909090909`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.993799747795951*^9, 3.993800339319376*^9, + 3.993800386134354*^9, {3.9940727569175262`*^9, 3.994072776962891*^9}}, + CellLabel-> + "Out[131]=",ExpressionUUID->"c271d5d8-0c01-4c14-91d1-62017076d35a"] +}, 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[132]:=",ExpressionUUID->"f2337b0a-3c51-463a-b335-a40cd0023421"], + +Cell[BoxData["16.821909430837295`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.993799747812237*^9, 3.993800339336598*^9, + 3.9938003861388483`*^9, {3.994072756929346*^9, 3.994072776974725*^9}}, + CellLabel-> + "Out[132]=",ExpressionUUID->"d1bc2461-14f2-4009-a733-e95b47abe580"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel-> + "In[133]:=",ExpressionUUID->"4e7eabde-e885-4dec-bd44-964a6bbdfe90"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.9937997478307247`*^9, 3.993800339353257*^9, + 3.993800386159964*^9, {3.994072756940832*^9, 3.994072776986273*^9}}, + CellLabel-> + "Out[133]=",ExpressionUUID->"0aaf5bfd-7dfb-4062-a48e-fb22d71e5d29"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "1.25"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { + 3.9937993902853117`*^9, 3.993799392293758*^9}}, + CellLabel-> + "In[134]:=",ExpressionUUID->"32dcf3af-dbc6-4111-9e0d-2190b02f2eb8"], + +Cell[BoxData["1.25`"], "Output", + CellChangeTimes->{ + 3.9937997478713713`*^9, 3.993800339369935*^9, 3.9938003861811666`*^9, { + 3.9940727569525537`*^9, 3.9940727769978867`*^9}}, + CellLabel-> + "Out[134]=",ExpressionUUID->"92146900-2115-44ea-a7b0-c935e064cd0f"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel-> + "In[135]:=",ExpressionUUID->"98ead765-9367-4a68-bbc0-79720657acb9"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.85"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.993799395152514*^9, 3.9937993965162697`*^9}}, + CellLabel-> + "In[136]:=",ExpressionUUID->"cff4a190-6081-441e-8947-137cf2472bb2"], + +Cell[BoxData["0.85`"], "Output", + CellChangeTimes->{ + 3.993799747898118*^9, 3.993800339418215*^9, 3.993800386208997*^9, { + 3.99407275696742*^9, 3.9940727770129023`*^9}}, + CellLabel-> + "Out[136]=",ExpressionUUID->"88e44316-4b50-481f-a146-57cf56353500"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel-> + "In[137]:=",ExpressionUUID->"58354566-7457-4ebe-b47e-50dbc8a8f4f6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "2.3"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.993799398824368*^9, 3.9937994002405863`*^9}}, + CellLabel-> + "In[138]:=",ExpressionUUID->"f1b62f12-2724-461e-a307-44ce6b417b09"], + +Cell[BoxData["2.3`"], "Output", + CellChangeTimes->{ + 3.993799747923098*^9, 3.993800339511382*^9, 3.993800386234042*^9, { + 3.994072756981262*^9, 3.994072777026493*^9}}, + CellLabel-> + "Out[138]=",ExpressionUUID->"8cb3d60e-8780-4a0a-a85d-141f8714413e"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel-> + "In[139]:=",ExpressionUUID->"ce06556e-7680-4ae4-928e-dab123b4e6b1"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.1"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, {3.993799403099743*^9, 3.9937994038178663`*^9}}, + CellLabel-> + "In[140]:=",ExpressionUUID->"6016dd93-ebd9-4ae6-be06-a042e10d7d17"], + +Cell[BoxData["1.1`"], "Output", + CellChangeTimes->{ + 3.9937997479459248`*^9, 3.99380033956159*^9, 3.9938003862601*^9, { + 3.994072756995009*^9, 3.99407277703996*^9}}, + CellLabel-> + "Out[140]=",ExpressionUUID->"77f82a4b-05fd-4df8-80dd-cf835f972b65"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel-> + "In[141]:=",ExpressionUUID->"b56063ba-90ac-4de2-bb28-2aacf8f18acd"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "0.8664"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, {3.993799407392029*^9, + 3.993799410650194*^9}}, + CellLabel-> + "In[142]:=",ExpressionUUID->"1d180ddd-ca1a-4e12-8e0d-fa4b60d755b7"], + +Cell[BoxData["0.8664`"], "Output", + CellChangeTimes->{ + 3.993799747968698*^9, 3.993800339671721*^9, 3.9938003862845907`*^9, { + 3.994072757008773*^9, 3.994072777054493*^9}}, + CellLabel-> + "Out[142]=",ExpressionUUID->"9a51680c-d25c-402d-bfa7-82b5f4837ec7"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel-> + "In[143]:=",ExpressionUUID->"7ce5188c-1911-4e13-9b03-03f04a8bf4f7"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.5924"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.9937994136330442`*^9, + 3.993799417576207*^9}}, + CellLabel-> + "In[144]:=",ExpressionUUID->"36e30360-eb8f-4c4e-8e08-981c909a8ffa"], + +Cell[BoxData["0.5924`"], "Output", + CellChangeTimes->{ + 3.993799747991611*^9, 3.9938003397687387`*^9, 3.993800386310059*^9, { + 3.994072757022612*^9, 3.994072777068264*^9}}, + CellLabel-> + "Out[144]=",ExpressionUUID->"8f5490d9-d586-47bb-bcee-667a8267d076"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel-> + "In[145]:=",ExpressionUUID->"83b05ecb-25d0-43d4-9c7f-ee95a5b6df3f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "1.888"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.993799421955809*^9, + 3.993799423886447*^9}}, + CellLabel-> + "In[146]:=",ExpressionUUID->"6bc0f20f-6c85-441e-af5b-b5e593833afb"], + +Cell[BoxData["1.888`"], "Output", + CellChangeTimes->{ + 3.993799748012844*^9, 3.993800339865109*^9, 3.993800386335606*^9, { + 3.9940727570366488`*^9, 3.9940727770819397`*^9}}, + CellLabel-> + "Out[146]=",ExpressionUUID->"4097ec72-e9f2-41a8-a1c8-f21a08d06c65"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel-> + "In[147]:=",ExpressionUUID->"a48edea2-1677-41af-b88d-7e30e5319a57"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "0.6347"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, {3.993799431418026*^9, 3.9937994366447783`*^9}}, + CellLabel-> + "In[148]:=",ExpressionUUID->"05049caf-d261-4bfe-ac01-ec8d5f61c0cb"], + +Cell[BoxData["0.6347`"], "Output", + CellChangeTimes->{ + 3.99379974807285*^9, 3.993800339960155*^9, 3.9938003863606977`*^9, { + 3.99407275705245*^9, 3.994072777095529*^9}}, + CellLabel-> + "Out[148]=",ExpressionUUID->"ca96acff-e639-430b-9ad0-bb631beab37d"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel-> + "In[149]:=",ExpressionUUID->"378a698f-d006-49fc-972a-f93f03315323"], + +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[150]:=",ExpressionUUID->"feb6573d-a1e5-4f96-86c7-0b12af3f7a8b"], + +Cell[BoxData["0.33523276963055626`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.9937997481547623`*^9, 3.993800340061625*^9, + 3.9938003864136953`*^9, {3.994072757136285*^9, 3.994072777132966*^9}}, + CellLabel-> + "Out[150]=",ExpressionUUID->"ae1f2e47-ecd0-466f-a0e0-5e2d721b894c"] +}, 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[151]:=",ExpressionUUID->"713df860-6921-45d0-b584-81ae496525d7"], + +Cell[BoxData["10.264944924096582`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9937997481878023`*^9, 3.993800340089472*^9, + 3.993800386441668*^9, {3.994072757163142*^9, 3.9940727771627817`*^9}}, + CellLabel-> + "Out[151]=",ExpressionUUID->"f0c39272-a23b-4a67-9232-58f1a7f974ef"] +}, 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[152]:=",ExpressionUUID->"28ff244f-310e-447f-95dc-faef88629c4a"], + +Cell[BoxData[ + RowBox[{"-", "28.42814742925769`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.993799748217864*^9, 3.993800340114811*^9, + 3.993800386467917*^9, {3.99407275718851*^9, 3.994072777190625*^9}}, + CellLabel-> + "Out[152]=",ExpressionUUID->"9f5de033-6e48-4e21-a1eb-6d1602f9286d"] +}, 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[153]:=",ExpressionUUID->"aca3a4a0-c90b-4f6c-99c0-82b8c4d30699"], + +Cell[BoxData[ + RowBox[{"-", "38.363033654277935`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.9937997482559977`*^9, 3.993800340146491*^9, + 3.993800386499661*^9, {3.9940727572190027`*^9, 3.994072777223873*^9}}, + CellLabel-> + "Out[153]=",ExpressionUUID->"732ae70b-fe84-424e-8fcb-2562c3f57601"] +}, 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[154]:=",ExpressionUUID->"23f3c795-a6e3-4cac-acc4-dca8261e5c64"], + +Cell[BoxData[ + RowBox[{"-", "84.97316533656249`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.993799748294525*^9, 3.993800340178175*^9, + 3.9938003865308523`*^9, {3.994072757249708*^9, 3.994072777255313*^9}}, + CellLabel-> + "Out[154]=",ExpressionUUID->"026a6880-0985-49d3-bcff-afb06baa5ef5"] +}, 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[155]:=",ExpressionUUID->"ef9e9b58-b2a2-49c4-99e3-4d04e09ace42"], + +Cell[BoxData[ + RowBox[{"-", "228.76196692780508`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.993799748333426*^9, 3.9938003402193203`*^9, + 3.9938003865686073`*^9, {3.9940727572851143`*^9, 3.9940727772935343`*^9}}, + CellLabel-> + "Out[155]=",ExpressionUUID->"4d4c690d-ba97-48ec-9f1f-5ba58b5a7130"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel-> + "In[156]:=",ExpressionUUID->"618aaf6c-0129-47a3-b737-fdf297cb1833"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.993799748353148*^9, 3.993800340246324*^9, + 3.993800386583934*^9, {3.99407275729825*^9, 3.994072777306653*^9}}, + CellLabel-> + "Out[156]=",ExpressionUUID->"92c85a2e-4d37-47af-a2c5-2f44e9a8f01b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel-> + "In[157]:=",ExpressionUUID->"8d6179db-3216-4743-8fdf-e38c9385a164"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.993799748372961*^9, 3.9938003402680492`*^9, + 3.993800386599262*^9, {3.99407275730969*^9, 3.994072777318306*^9}}, + CellLabel-> + "Out[157]=",ExpressionUUID->"751bee02-962b-4aa4-ad8d-7cb303177950"] +}, 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[158]:=",ExpressionUUID->"3c8e47cf-ea17-49c5-920b-24adfc700b7b"], + +Cell[BoxData["185.79450939883742`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.9937997483941936`*^9, 3.9938003402909203`*^9, + 3.99380038661649*^9, {3.9940727573211393`*^9, 3.994072777330056*^9}}, + CellLabel-> + "Out[158]=",ExpressionUUID->"2c696448-8d44-4e53-907a-765b97f320a7"] +}, 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[159]:=",ExpressionUUID->"47c92268-1e96-44b0-b5ba-61eed40c4875"], + +Cell[BoxData[ + RowBox[{"-", "142.60312447586276`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.9937997484173307`*^9, 3.993800340312326*^9, + 3.993800386633136*^9, {3.99407275733285*^9, 3.994072777341887*^9}}, + CellLabel-> + "Out[159]=",ExpressionUUID->"e5090a0d-d040-4cc9-b937-432ac6942d77"] +}, 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[160]:=",ExpressionUUID->"df1ceed3-f349-4e46-9f6c-7cdc2d455d50"], + +Cell[BoxData["169.9317606773619`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.993799748440692*^9, 3.993800340332926*^9, + 3.99380038664979*^9, {3.994072757344488*^9, 3.994072777353434*^9}}, + CellLabel-> + "Out[160]=",ExpressionUUID->"c9018075-7cdf-4194-85c8-ee30ede4380a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel-> + "In[161]:=",ExpressionUUID->"32ef9b79-a288-4661-82d1-91042ec39e12"], + +Cell[BoxData["0.5126444245586296`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.9937997484629087`*^9, 3.9938003403521013`*^9, + 3.9938003866670628`*^9, {3.994072757355731*^9, 3.994072777364881*^9}}, + CellLabel-> + "Out[161]=",ExpressionUUID->"84bbc7f1-2a56-475e-a25f-44cfbe309045"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel-> + "In[162]:=",ExpressionUUID->"5f6e3f90-2e5f-417a-bf47-e7d84234b3ef"], + +Cell[BoxData[ + RowBox[{"-", "0.12490541136574432`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.9937997484829597`*^9, 3.993800340372787*^9, + 3.993800386684751*^9, {3.994072759775218*^9, 3.994072777376302*^9}}, + CellLabel-> + "Out[162]=",ExpressionUUID->"59296404-293a-462c-955b-57a7a0589190"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel-> + "In[163]:=",ExpressionUUID->"7b79d9ec-93e2-4eb2-9805-db300f7d9431"], + +Cell[BoxData[ + RowBox[{"-", "0.47786808677187637`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.993799748505329*^9, 3.9938003403919477`*^9, + 3.9938003866995373`*^9, {3.9940727599543447`*^9, 3.9940727773879633`*^9}}, + CellLabel-> + "Out[163]=",ExpressionUUID->"7929cdc6-5e8a-45db-9360-b6e33f1abe6f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel-> + "In[164]:=",ExpressionUUID->"a0500c72-edad-4c97-a345-75c41937b11d"], + +Cell[BoxData["0.6637051934091774`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.99379974852349*^9, 3.993800340409604*^9, + 3.993800386721094*^9, {3.994072759966642*^9, 3.994072777399509*^9}}, + CellLabel-> + "Out[164]=",ExpressionUUID->"2d7a24d6-cee2-4bba-8c42-14b9d00279f4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel-> + "In[165]:=",ExpressionUUID->"6e37d9ff-f531-4680-9243-4038e543187d"], + +Cell[BoxData["2.0171665757171935`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.993799748542218*^9, 3.993800340426003*^9, + 3.9938003867354116`*^9, {3.9940727599787703`*^9, 3.9940727774113617`*^9}}, + CellLabel-> + "Out[165]=",ExpressionUUID->"fa53bbc6-53a0-4ce1-a555-cb19dda62705"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel-> + "In[166]:=",ExpressionUUID->"15967435-43cc-43a8-b2c8-9234cf9dd078"], + +Cell[BoxData["1.5074639495621045`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.9937997485616417`*^9, 3.99380034044471*^9, + 3.9938003867502003`*^9, {3.9940727599906197`*^9, 3.994072777422779*^9}}, + CellLabel-> + "Out[166]=",ExpressionUUID->"80890838-3b31-4d12-9ea6-b3240d84c880"] +}, 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[167]:=",ExpressionUUID->"e0199677-b4f5-48f6-a08a-1cfd4d909162"], + +Cell[BoxData[ + RowBox[{"-", "30.893583323663808`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.993799748579701*^9, 3.9938003404617233`*^9, + 3.993800386765017*^9, {3.994072760002514*^9, 3.994072777434401*^9}}, + CellLabel-> + "Out[167]=",ExpressionUUID->"3a22d04a-3158-44e8-8223-6354c9ee634e"] +}, 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[168]:=",ExpressionUUID->"481bfac8-bd39-41a3-ad41-8c2640784a04"], + +Cell[BoxData[ + RowBox[{"-", "7.926031139913374`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.993799748598835*^9, 3.993800340479863*^9, + 3.9938003867807913`*^9, {3.994072760013989*^9, 3.994072777446135*^9}}, + CellLabel-> + "Out[168]=",ExpressionUUID->"8024c42c-512e-4797-b3ed-35701d82d5a6"] +}, 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[169]:=",ExpressionUUID->"9a784517-cbe9-4a65-a3cf-ca497f0c56cd"], + +Cell[BoxData["154.9009260751736`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.993799748618464*^9, 3.993800340498665*^9, + 3.993800386794903*^9, {3.994072760026211*^9, 3.994072777457891*^9}}, + CellLabel-> + "Out[169]=",ExpressionUUID->"efb5b77c-bf34-4709-bce3-f9c5f0095358"] +}, 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[170]:=",ExpressionUUID->"22db1a9e-7685-4543-942e-daa17afc4c92"], + +Cell[BoxData[ + RowBox[{"-", "142.60312447586276`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.993799748639475*^9, 3.993800340517002*^9, + 3.993800386808839*^9, {3.9940727600400333`*^9, 3.994072777469482*^9}}, + CellLabel-> + "Out[170]=",ExpressionUUID->"51a329d0-7529-43c2-9ba6-9d171105ad4d"] +}, 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[171]:=",ExpressionUUID->"204f3bb0-e116-479b-9f68-9eac077c810b"], + +Cell[BoxData["162.00572953744853`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.993799748660536*^9, 3.993800340536582*^9, + 3.993800386822714*^9, {3.994072760046308*^9, 3.994072777481387*^9}}, + CellLabel-> + "Out[171]=",ExpressionUUID->"ed1c6461-09b3-4d22-80c4-6cf28b346cb3"] +}, 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[172]:=",ExpressionUUID->"90be20b1-59e7-4b91-929e-ad873588b320"], + +Cell[BoxData["110.13261932733474`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.993799748682187*^9, 3.9938003405568943`*^9, + 3.993800386836596*^9, {3.994072760058202*^9, 3.994072777493164*^9}}, + CellLabel-> + "Out[172]=",ExpressionUUID->"6fd0c9d6-3b49-47d2-b63e-80fa589e88e2"] +}, 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[173]:=",ExpressionUUID->"6a49a91a-a1ab-456b-bc89-af267d95feac"], + +Cell[BoxData["1014.9570765717414`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.993799748705882*^9, 3.9938003405772467`*^9, + 3.993800386850522*^9, {3.994072760069648*^9, 3.994072777505143*^9}}, + CellLabel-> + "Out[173]=",ExpressionUUID->"125b0ab7-f818-4139-a6ee-d9b781f86d17"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"f1", "=", "0.3423643297"}]], "Input", + CellChangeTimes->{3.991849227197853*^9, + 3.994082435964718*^9},ExpressionUUID->"c5bb4ac7-6666-c043-9d96-\ 2dda1d801f63"], Cell[BoxData[""], "Input", @@ -30,9 +4897,9 @@ Cell[BoxData[""], "Input", 14a272e65d1f"], Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", - CellChangeTimes->{ - 3.9918492290557346`*^9},ExpressionUUID->"1dc76a14-b094-5f49-81bb-\ + RowBox[{"f2", "=", "0.1470031674"}]], "Input", + CellChangeTimes->{3.9918492290557346`*^9, + 3.994082443635817*^9},ExpressionUUID->"1dc76a14-b094-5f49-81bb-\ fc37192f9bb8"], Cell[BoxData[""], "Input", @@ -2903,9 +7770,72 @@ qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", - RowBox[{"{", "}"}], "]"}]}]], "Input", - CellChangeTimes->{{3.991799458254999*^9, - 3.9917994623413925`*^9}},ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-\ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.003836"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.01141"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.018699"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.025527"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.031739"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.037207"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.041837"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.045565"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.048367"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.050245"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.051235"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.051395"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.050806"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.049558"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.047756"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.0455"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.042898"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.040047"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.037039"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.033955"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.030869"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.027838"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.024912"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.022128"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.019516"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.017092"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.014869"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.012849"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.011034"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.009415"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.007985"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.9940828090757437`*^9},ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-\ a8e133e7a081"], Cell[BoxData[ @@ -8985,12 +13915,18 @@ Cell[BoxData["0.05576142449710889`"], "Output", CellChangeTimes->{3.9913392304624157`*^9}, CellLabel-> "Out[312]=",ExpressionUUID->"14434839-d5cf-b844-b849-b3b3102df434"] -}, Open ]] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input", + CellChangeTimes->{{3.994082582019574*^9, + 3.9940825852694483`*^9}},ExpressionUUID->"2fb7cde2-eacb-466b-a6e4-\ +a63fb5fd0f5b"] }, -WindowSize->{718.5, 729.75}, -WindowMargins->{{1.5, Automatic}, {Automatic, 8.25}}, +WindowSize->{714, 435}, +WindowMargins->{{Automatic, 3}, {444, 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->"e3389233-59d2-de40-a8d1-08f2aab11400" ] @@ -9005,361 +13941,616 @@ 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, 305, 6, 66, "Input",ExpressionUUID->"4e298ab4-090c-4da0-aea5-ba6d78ef8e18"], +Cell[884, 30, 278, 5, 41, "Output",ExpressionUUID->"206d68b1-3695-4924-94b0-a87f9934c78a"] }, 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[1199, 40, 253, 5, 36, "Input",ExpressionUUID->"6473ec2b-5591-4c73-a87a-9b64a1694141"], +Cell[1455, 47, 275, 5, 41, "Output",ExpressionUUID->"9cce42cf-8587-43ae-9123-b20b284a241b"] }, 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[1767, 57, 231, 5, 36, "Input",ExpressionUUID->"7d63cd37-a18c-48ac-9ac3-e8b477df1af9"], +Cell[2001, 64, 278, 5, 41, "Output",ExpressionUUID->"84c9c2e3-8b1a-49d8-9691-4dbcfdeb8300"] }, 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[2316, 74, 180, 4, 36, "Input",ExpressionUUID->"59be669c-29f2-48f3-9246-8922a0283947"], +Cell[2499, 80, 276, 5, 41, "Output",ExpressionUUID->"a4ef0386-515f-4888-91b3-82405acbac04"] }, 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[2812, 90, 262, 8, 54, "Input",ExpressionUUID->"fa1e4148-f780-40f5-b87b-7b063d67b4cf"], +Cell[3077, 100, 279, 5, 41, "Output",ExpressionUUID->"3b17abbc-3dc8-4608-9b6b-2ca6280b8f7c"] }, 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[3393, 110, 136, 3, 36, "Input",ExpressionUUID->"6e7f445d-fdd7-4be2-8549-0d163192ed17"], +Cell[3532, 115, 280, 5, 41, "Output",ExpressionUUID->"43b7eaf2-0d6a-476c-8d05-50e89961c15c"] }, 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[3849, 125, 281, 7, 36, "Input",ExpressionUUID->"a0c2d623-9b24-4b8e-9eb1-105882bc0a9d"], +Cell[4133, 134, 292, 5, 41, "Output",ExpressionUUID->"6a07e530-2530-4da5-b9ee-525b013aeb05"] }, 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[4462, 144, 262, 8, 36, "Input",ExpressionUUID->"90472dd9-931e-492c-93df-c43e7c0755e9"], +Cell[4727, 154, 280, 5, 41, "Output",ExpressionUUID->"7194280a-3a15-4ef8-8c69-64a4ccf18add"] }, 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[5044, 164, 331, 7, 36, "Input",ExpressionUUID->"56576e1d-c32b-44ea-9085-551c6fcb2175"], +Cell[5378, 173, 260, 5, 41, "Output",ExpressionUUID->"f3556d5e-3bf3-4d1d-a440-9665e74a334e"] }, 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[5675, 183, 229, 5, 36, "Input",ExpressionUUID->"e31cedbb-e428-4119-a831-920ffad8dd12"], +Cell[5907, 190, 260, 5, 41, "Output",ExpressionUUID->"8090d2d8-56a2-46bf-a2d1-8b13489eee46"] }, 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[6204, 200, 133, 3, 36, "Input",ExpressionUUID->"918056cc-c05d-4810-b116-998fa8098ec4"], +Cell[6340, 205, 276, 5, 41, "Output",ExpressionUUID->"5c0eccf8-631a-4269-b7fb-bf96be1f802e"] }, 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[6653, 215, 133, 3, 36, "Input",ExpressionUUID->"ac10ced6-d951-4da9-a896-f8316432c8e3"], +Cell[6789, 220, 278, 5, 41, "Output",ExpressionUUID->"57a81b2d-1310-4588-9519-161aa2fe281e"] }, 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[7104, 230, 561, 20, 100, "Input",ExpressionUUID->"d6c3ee5c-86fa-4d04-a777-4822adca9d43"], +Cell[7668, 252, 296, 5, 41, "Output",ExpressionUUID->"c871e321-70e3-482c-9fb8-9fbba6ad7b79"] }, 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[8001, 262, 561, 20, 100, "Input",ExpressionUUID->"408796d0-515b-4b34-a6b5-e3aa98dfd1b8"], +Cell[8565, 284, 292, 5, 41, "Output",ExpressionUUID->"29520099-73ad-4943-974b-01e47263b244"] }, 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[8894, 294, 1592, 51, 215, "Input",ExpressionUUID->"d8c750a6-8362-4fb1-8306-87c9f653c3bc"], +Cell[10489, 347, 292, 5, 41, "Output",ExpressionUUID->"65dfa6fa-c9e8-4ced-bfc8-a1d422b52c37"] }, 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[10818, 357, 1426, 47, 215, "Input",ExpressionUUID->"deb05e31-1a99-4582-b1c3-a739e1144c15"], +Cell[12247, 406, 308, 6, 41, "Output",ExpressionUUID->"77032548-4f88-49bf-a239-4409a96c56b9"] }, 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[12592, 417, 1426, 47, 215, "Input",ExpressionUUID->"dc419b82-3e31-41ce-8589-70f766ca6f26"], +Cell[14021, 466, 312, 6, 41, "Output",ExpressionUUID->"a7d81ae2-d9db-4f55-9c43-152551ad884d"] }, 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[14370, 477, 1592, 51, 215, "Input",ExpressionUUID->"a10d564e-16e0-47f2-b771-9f70a658934f"], +Cell[15965, 530, 288, 5, 41, "Output",ExpressionUUID->"3e6b4174-a2c3-4a1e-996b-c162b8c2fd48"] }, 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[16290, 540, 135, 3, 36, "Input",ExpressionUUID->"9829bcde-f304-448c-aa51-24654c147ae6"], +Cell[16428, 545, 277, 5, 41, "Output",ExpressionUUID->"1c391cdf-80a5-4d9f-a2bf-983a9ee18996"] }, 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[16742, 555, 137, 3, 36, "Input",ExpressionUUID->"c15fb448-666b-4677-826d-b45daf097e27"], +Cell[16882, 560, 282, 5, 41, "Output",ExpressionUUID->"d5f52fdb-646e-4cd0-9a51-d2dc82b67e86"] }, 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[17201, 570, 254, 5, 36, "Input",ExpressionUUID->"b5059030-04e0-45de-a22b-5a0196fbe26b"], +Cell[17458, 577, 280, 5, 41, "Output",ExpressionUUID->"39657914-0ad9-4e3e-b927-9b71eb263190"] }, 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[17775, 587, 223, 5, 36, "Input",ExpressionUUID->"9206ae1b-d0d5-485d-befe-74340aba3b4b"], +Cell[18001, 594, 293, 6, 41, "Output",ExpressionUUID->"2a61d991-fa9c-41d7-b417-f7888e1f9d38"] }, 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[18331, 605, 138, 3, 36, "Input",ExpressionUUID->"36e30e31-a0e4-497e-8845-6e70833c12f4"], +Cell[18472, 610, 280, 5, 41, "Output",ExpressionUUID->"2764ba7f-262b-4905-9856-f83d7d15792a"] }, 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[18789, 620, 353, 6, 36, "Input",ExpressionUUID->"f58a2dc9-267b-44cb-aa70-c83cc104624e"], +Cell[19145, 628, 253, 5, 41, "Output",ExpressionUUID->"950ee5f9-b07e-4790-9f55-f00aefcf3762"] }, 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[19435, 638, 254, 6, 36, "Input",ExpressionUUID->"f4f1bc0f-c6f7-4d98-9565-778d4f288687"], +Cell[19692, 646, 275, 5, 41, "Output",ExpressionUUID->"45a0a746-8f83-4f41-a170-3036123f9992"] }, 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[20004, 656, 223, 5, 36, "Input",ExpressionUUID->"a4efe8aa-fa71-46c4-9048-0ec22c629f6f"], +Cell[20230, 663, 275, 5, 41, "Output",ExpressionUUID->"c7684bd7-5c7c-4887-a0b9-4f340818c91c"] }, 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[20542, 673, 354, 11, 54, "Input",ExpressionUUID->"0dde3c62-9148-4482-b3c4-b44d95540a37"], +Cell[20899, 686, 295, 5, 41, "Output",ExpressionUUID->"d1672193-3a5d-4dc6-892b-fbd1fa55d324"] }, 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[21231, 696, 354, 11, 54, "Input",ExpressionUUID->"1bc74051-3208-4486-bf77-3e5fc10808fd"], +Cell[21588, 709, 310, 6, 41, "Output",ExpressionUUID->"c271d5d8-0c01-4c14-91d1-62017076d35a"] }, 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[21935, 720, 998, 27, 105, "Input",ExpressionUUID->"f2337b0a-3c51-463a-b335-a40cd0023421"], +Cell[22936, 749, 294, 5, 41, "Output",ExpressionUUID->"d1bc2461-14f2-4009-a733-e95b47abe580"] }, 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[23267, 759, 203, 4, 36, "Input",ExpressionUUID->"4e7eabde-e885-4dec-bd44-964a6bbdfe90"], +Cell[23473, 765, 276, 5, 41, "Output",ExpressionUUID->"0aaf5bfd-7dfb-4062-a48e-fb22d71e5d29"] }, 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[23786, 775, 332, 6, 36, "Input",ExpressionUUID->"32dcf3af-dbc6-4111-9e0d-2190b02f2eb8"], +Cell[24121, 783, 262, 5, 41, "Output",ExpressionUUID->"92146900-2115-44ea-a7b0-c935e064cd0f"] +}, Open ]], +Cell[24398, 791, 177, 3, 36, "Input",ExpressionUUID->"98ead765-9367-4a68-bbc0-79720657acb9"], +Cell[CellGroupData[{ +Cell[24600, 798, 332, 6, 36, "Input",ExpressionUUID->"cff4a190-6081-441e-8947-137cf2472bb2"], +Cell[24935, 806, 255, 5, 41, "Output",ExpressionUUID->"88e44316-4b50-481f-a146-57cf56353500"] +}, Open ]], +Cell[25205, 814, 177, 3, 36, "Input",ExpressionUUID->"58354566-7457-4ebe-b47e-50dbc8a8f4f6"], +Cell[CellGroupData[{ +Cell[25407, 821, 332, 6, 36, "Input",ExpressionUUID->"f1b62f12-2724-461e-a307-44ce6b417b09"], +Cell[25742, 829, 253, 5, 41, "Output",ExpressionUUID->"8cb3d60e-8780-4a0a-a85d-141f8714413e"] +}, Open ]], +Cell[26010, 837, 177, 3, 36, "Input",ExpressionUUID->"ce06556e-7680-4ae4-928e-dab123b4e6b1"], +Cell[CellGroupData[{ +Cell[26212, 844, 356, 6, 36, "Input",ExpressionUUID->"6016dd93-ebd9-4ae6-be06-a042e10d7d17"], +Cell[26571, 852, 251, 5, 41, "Output",ExpressionUUID->"77f82a4b-05fd-4df8-80dd-cf835f972b65"] +}, Open ]], +Cell[26837, 860, 175, 3, 36, "Input",ExpressionUUID->"b56063ba-90ac-4de2-bb28-2aacf8f18acd"], +Cell[CellGroupData[{ +Cell[27037, 867, 304, 6, 36, "Input",ExpressionUUID->"1d180ddd-ca1a-4e12-8e0d-fa4b60d755b7"], +Cell[27344, 875, 258, 5, 41, "Output",ExpressionUUID->"9a51680c-d25c-402d-bfa7-82b5f4837ec7"] +}, Open ]], +Cell[27617, 883, 175, 3, 36, "Input",ExpressionUUID->"7ce5188c-1911-4e13-9b03-03f04a8bf4f7"], +Cell[CellGroupData[{ +Cell[27817, 890, 310, 6, 36, "Input",ExpressionUUID->"36e30360-eb8f-4c4e-8e08-981c909a8ffa"], +Cell[28130, 898, 258, 5, 41, "Output",ExpressionUUID->"8f5490d9-d586-47bb-bcee-667a8267d076"] +}, Open ]], +Cell[28403, 906, 177, 3, 36, "Input",ExpressionUUID->"83b05ecb-25d0-43d4-9c7f-ee95a5b6df3f"], +Cell[CellGroupData[{ +Cell[28605, 913, 310, 6, 36, "Input",ExpressionUUID->"6bc0f20f-6c85-441e-af5b-b5e593833afb"], +Cell[28918, 921, 259, 5, 41, "Output",ExpressionUUID->"4097ec72-e9f2-41a8-a1c8-f21a08d06c65"] +}, Open ]], +Cell[29192, 929, 176, 3, 36, "Input",ExpressionUUID->"a48edea2-1677-41af-b88d-7e30e5319a57"], +Cell[CellGroupData[{ +Cell[29393, 936, 282, 5, 36, "Input",ExpressionUUID->"05049caf-d261-4bfe-ac01-ec8d5f61c0cb"], +Cell[29678, 943, 256, 5, 41, "Output",ExpressionUUID->"ca96acff-e639-430b-9ad0-bb631beab37d"] +}, Open ]], +Cell[29949, 951, 179, 3, 36, "Input",ExpressionUUID->"378a698f-d006-49fc-972a-f93f03315323"], +Cell[CellGroupData[{ +Cell[30153, 958, 19813, 486, 3208, "Input",ExpressionUUID->"feb6573d-a1e5-4f96-86c7-0b12af3f7a8b"], +Cell[49969, 1446, 295, 5, 41, "Output",ExpressionUUID->"ae1f2e47-ecd0-466f-a0e0-5e2d721b894c"] }, 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[50301, 1456, 19752, 490, 3138, "Input",ExpressionUUID->"713df860-6921-45d0-b584-81ae496525d7"], +Cell[70056, 1948, 294, 5, 41, "Output",ExpressionUUID->"f0c39272-a23b-4a67-9232-58f1a7f974ef"] }, 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[70387, 1958, 19752, 484, 3198, "Input",ExpressionUUID->"28ff244f-310e-447f-95dc-faef88629c4a"], +Cell[90142, 2444, 305, 6, 41, "Output",ExpressionUUID->"9f5de033-6e48-4e21-a1eb-6d1602f9286d"] }, 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[90484, 2455, 22538, 554, 3677, "Input",ExpressionUUID->"aca3a4a0-c90b-4f6c-99c0-82b8c4d30699"], +Cell[113025, 3011, 311, 6, 41, "Output",ExpressionUUID->"732ae70b-fe84-424e-8fcb-2562c3f57601"] }, 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[113373, 3022, 22539, 554, 3642, "Input",ExpressionUUID->"23f3c795-a6e3-4cac-acc4-dca8261e5c64"], +Cell[135915, 3578, 310, 6, 41, "Output",ExpressionUUID->"026a6880-0985-49d3-bcff-afb06baa5ef5"] }, 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[136262, 3589, 25495, 627, 4121, "Input",ExpressionUUID->"ef9e9b58-b2a2-49c4-99e3-4d04e09ace42"], +Cell[161760, 4218, 315, 6, 41, "Output",ExpressionUUID->"4d4c690d-ba97-48ec-9f1f-5ba58b5a7130"] }, 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[162112, 4229, 134, 3, 36, "Input",ExpressionUUID->"618aaf6c-0129-47a3-b737-fdf297cb1833"], +Cell[162249, 4234, 273, 5, 41, "Output",ExpressionUUID->"92c85a2e-4d37-47af-a2c5-2f44e9a8f01b"] }, 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[162559, 4244, 134, 3, 36, "Input",ExpressionUUID->"8d6179db-3216-4743-8fdf-e38c9385a164"], +Cell[162696, 4249, 275, 5, 41, "Output",ExpressionUUID->"751bee02-962b-4aa4-ad8d-7cb303177950"] }, 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[163008, 4259, 1148, 40, 144, "Input",ExpressionUUID->"3c8e47cf-ea17-49c5-920b-24adfc700b7b"], +Cell[164159, 4301, 295, 5, 41, "Output",ExpressionUUID->"2c696448-8d44-4e53-907a-765b97f320a7"] }, 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[164491, 4311, 1045, 36, 144, "Input",ExpressionUUID->"47c92268-1e96-44b0-b5ba-61eed40c4875"], +Cell[165539, 4349, 308, 6, 41, "Output",ExpressionUUID->"e5090a0d-d040-4cc9-b937-432ac6942d77"] }, 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[165884, 4360, 1148, 40, 144, "Input",ExpressionUUID->"df1ceed3-f349-4e46-9f6c-7cdc2d455d50"], +Cell[167035, 4402, 290, 5, 41, "Output",ExpressionUUID->"c9018075-7cdf-4194-85c8-ee30ede4380a"] }, 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[167362, 4412, 112, 2, 36, "Input",ExpressionUUID->"32ef9b79-a288-4661-82d1-91042ec39e12"], +Cell[167477, 4416, 298, 5, 41, "Output",ExpressionUUID->"84bbc7f1-2a56-475e-a25f-44cfbe309045"] }, 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[167812, 4426, 112, 2, 36, "Input",ExpressionUUID->"5f6e3f90-2e5f-417a-bf47-e7d84234b3ef"], +Cell[167927, 4430, 312, 6, 41, "Output",ExpressionUUID->"59296404-293a-462c-955b-57a7a0589190"] }, 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[168276, 4441, 112, 2, 36, "Input",ExpressionUUID->"7b79d9ec-93e2-4eb2-9805-db300f7d9431"], +Cell[168391, 4445, 316, 6, 41, "Output",ExpressionUUID->"7929cdc6-5e8a-45db-9360-b6e33f1abe6f"] }, 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[168744, 4456, 112, 2, 36, "Input",ExpressionUUID->"a0500c72-edad-4c97-a345-75c41937b11d"], +Cell[168859, 4460, 289, 5, 41, "Output",ExpressionUUID->"2d7a24d6-cee2-4bba-8c42-14b9d00279f4"] }, 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[169185, 4470, 111, 2, 36, "Input",ExpressionUUID->"6e37d9ff-f531-4680-9243-4038e543187d"], +Cell[169299, 4474, 298, 5, 41, "Output",ExpressionUUID->"fa53bbc6-53a0-4ce1-a555-cb19dda62705"] }, 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[169634, 4484, 111, 2, 36, "Input",ExpressionUUID->"15967435-43cc-43a8-b2c8-9234cf9dd078"], +Cell[169748, 4488, 297, 5, 41, "Output",ExpressionUUID->"80890838-3b31-4d12-9ea6-b3240d84c880"] }, 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[170082, 4498, 501, 17, 71, "Input",ExpressionUUID->"e0199677-b4f5-48f6-a08a-1cfd4d909162"], +Cell[170586, 4517, 311, 6, 41, "Output",ExpressionUUID->"3a22d04a-3158-44e8-8223-6354c9ee634e"] }, 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[170934, 4528, 501, 17, 71, "Input",ExpressionUUID->"481bfac8-bd39-41a3-ad41-8c2640784a04"], +Cell[171438, 4547, 308, 6, 41, "Output",ExpressionUUID->"8024c42c-512e-4797-b3ed-35701d82d5a6"] }, 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[171783, 4558, 1792, 61, 340, "Input",ExpressionUUID->"9a784517-cbe9-4a65-a3cf-ca497f0c56cd"], +Cell[173578, 4621, 291, 5, 41, "Output",ExpressionUUID->"efb5b77c-bf34-4709-bce3-f9c5f0095358"] }, 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[173906, 4631, 1105, 37, 73, "Input",ExpressionUUID->"22db1a9e-7685-4543-942e-daa17afc4c92"], +Cell[175014, 4670, 311, 6, 41, "Output",ExpressionUUID->"51a329d0-7529-43c2-9ba6-9d171105ad4d"] }, 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[175362, 4681, 1822, 62, 340, "Input",ExpressionUUID->"204f3bb0-e116-479b-9f68-9eac077c810b"], +Cell[177187, 4745, 290, 5, 41, "Output",ExpressionUUID->"ed1c6461-09b3-4d22-80c4-6cf28b346cb3"] }, 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[177514, 4755, 1714, 56, 247, "Input",ExpressionUUID->"90be20b1-59e7-4b91-929e-ad873588b320"], +Cell[179231, 4813, 294, 5, 41, "Output",ExpressionUUID->"6fd0c9d6-3b49-47d2-b63e-80fa589e88e2"] }, 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"] +Cell[179562, 4823, 1635, 54, 208, "Input",ExpressionUUID->"6a49a91a-a1ab-456b-bc89-af267d95feac"], +Cell[181200, 4879, 292, 5, 41, "Output",ExpressionUUID->"125b0ab7-f818-4139-a6ee-d9b781f86d17"] }, Open ]], -Cell[356545, 8470, 209, 5, 70, "Input",ExpressionUUID->"ea848967-083d-ea47-bce0-5c3b93725916"], +Cell[181507, 4887, 185, 4, 36, "Input",ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], +Cell[181695, 4893, 154, 3, 36, "Input",ExpressionUUID->"93cad80c-1de7-2e4b-9b8c-14a272e65d1f"], +Cell[181852, 4898, 187, 4, 36, "Input",ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], +Cell[182042, 4904, 152, 3, 36, "Input",ExpressionUUID->"15fe72e6-19f0-9540-b29f-3056e2e0b957"], 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[182219, 4911, 1301, 43, 174, "Input",ExpressionUUID->"5e48fe0c-b3e8-2b40-82cb-716b23b2f326"], +Cell[183523, 4956, 178, 3, 41, "Output",ExpressionUUID->"1db85c02-7ca3-154e-854d-2c36f89709c4"] }, 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[183738, 4964, 910, 31, 128, "Input",ExpressionUUID->"e4db2648-4e1a-2c46-83ab-fcd932c3b663"], +Cell[184651, 4997, 175, 3, 41, "Output",ExpressionUUID->"78ed190c-23cd-4d45-867a-2b08174b715f"] }, 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[184863, 5005, 885, 30, 128, "Input",ExpressionUUID->"e4649c3d-e19e-ca42-95a0-23b66397f1fd"], +Cell[185751, 5037, 177, 3, 41, "Output",ExpressionUUID->"82ec2512-4fcb-ba44-b472-bb3a66bb622e"] }, 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[185965, 5045, 558, 19, 66, "Input",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], +Cell[186526, 5066, 173, 3, 41, "Output",ExpressionUUID->"9d53fa4a-be54-7b42-83bd-0a5560193c0f"] }, 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[186736, 5074, 623, 21, 66, "Input",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], +Cell[187362, 5097, 170, 3, 41, "Output",ExpressionUUID->"4107fa63-a138-df48-a95c-ec944a983800"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187569, 5105, 170, 5, 71, "Input",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], +Cell[187742, 5112, 173, 3, 41, "Output",ExpressionUUID->"f894fb1d-1550-5146-a259-dfa871655c2a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187952, 5120, 170, 5, 69, "Input",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], +Cell[188125, 5127, 170, 3, 41, "Output",ExpressionUUID->"8d5b13a4-8c75-0f48-ab21-9720bb8c0cbc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188332, 5135, 181, 5, 55, "Input",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], +Cell[188516, 5142, 171, 3, 41, "Output",ExpressionUUID->"4d4b493f-9f2d-1e41-979f-fb4d58d0e93a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188724, 5150, 181, 5, 55, "Input",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], +Cell[188908, 5157, 173, 3, 41, "Output",ExpressionUUID->"e40db20b-c65e-4a45-ba96-abcb59b0d0ac"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189118, 5165, 6055, 185, 831, "Input",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], +Cell[195176, 5352, 175, 3, 41, "Output",ExpressionUUID->"cdf81fea-e12a-2b44-81a8-222b4bbf8a86"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195388, 5360, 368, 9, 53, "Input",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], +Cell[195759, 5371, 170, 3, 41, "Output",ExpressionUUID->"181dc1c8-632b-4b43-91c4-d3626d65bfc7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195966, 5379, 6122, 187, 900, "Input",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], +Cell[202091, 5568, 175, 3, 41, "Output",ExpressionUUID->"c7d972b4-764c-954a-8260-240d49cfcff6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[202303, 5576, 368, 9, 53, "Input",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], +Cell[202674, 5587, 172, 3, 41, "Output",ExpressionUUID->"c285a758-c3ad-974b-93c3-4cb0d4bdd2ae"] +}, Open ]], +Cell[CellGroupData[{ +Cell[202883, 5595, 2663, 88, 435, "Input",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], +Cell[205549, 5685, 173, 3, 41, "Output",ExpressionUUID->"5dc957f4-8f84-c54c-80a3-c76f756c5df4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[205759, 5693, 2603, 85, 435, "Input",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], +Cell[208365, 5780, 172, 3, 41, "Output",ExpressionUUID->"b4ee01d5-3415-494b-b28a-4587c8d8bb90"] +}, Open ]], +Cell[CellGroupData[{ +Cell[208574, 5788, 3712, 118, 575, "Input",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], +Cell[212289, 5908, 174, 3, 41, "Output",ExpressionUUID->"20c44e64-7085-8e4d-a9d6-f80b5532826e"] +}, Open ]], +Cell[212478, 5914, 138, 3, 36, "Input",ExpressionUUID->"ba4a3eff-9e3b-5e47-a896-3a959bbbf44d"], +Cell[CellGroupData[{ +Cell[212641, 5921, 2052, 59, 116, "Input",ExpressionUUID->"738a48f3-b38c-f441-aec4-53babaa73a14"], +Cell[214696, 5982, 524, 11, 48, "Message",ExpressionUUID->"bd0a7da1-672e-6b4e-afbd-4af379292e8d"], +Cell[215223, 5995, 526, 11, 48, "Message",ExpressionUUID->"9a8837e4-2afa-d145-83db-a88ef0e502bc"], +Cell[215752, 6008, 530, 11, 48, "Message",ExpressionUUID->"0aa4ed5d-b925-834d-b53a-95c75c4ff982"], +Cell[216285, 6021, 455, 10, 32, "Message",ExpressionUUID->"2742a735-9c26-7640-8a81-3e30eaffa353"], +Cell[216743, 6033, 172, 3, 41, "Output",ExpressionUUID->"d91a6bca-04d7-b84b-93cf-0695498dc4de"] +}, Open ]], +Cell[CellGroupData[{ +Cell[216952, 6041, 2054, 59, 116, "Input",ExpressionUUID->"86c33485-ed26-8f49-b3d0-7d040d3b48f0"], +Cell[219009, 6102, 524, 11, 48, "Message",ExpressionUUID->"2c553d54-16ec-9646-b6d7-75da3c367575"], +Cell[219536, 6115, 526, 11, 48, "Message",ExpressionUUID->"1c597fdf-5631-a84c-9feb-152df3629d86"], +Cell[220065, 6128, 528, 11, 48, "Message",ExpressionUUID->"48439b56-7b7d-fa4d-a4e2-5db2bbda0c77"], +Cell[220596, 6141, 456, 10, 32, "Message",ExpressionUUID->"66ce390f-34a9-df4d-9875-a339943ada86"], +Cell[221055, 6153, 170, 3, 41, "Output",ExpressionUUID->"2e46fa54-fabe-5040-8f8c-6829b7c76136"] +}, Open ]], +Cell[CellGroupData[{ +Cell[221262, 6161, 1938, 53, 86, "Input",ExpressionUUID->"f373fe4f-940c-0842-9236-63ec36d318ad"], +Cell[223203, 6216, 19981, 375, 109, "Output",ExpressionUUID->"fdd0f260-414f-a94a-8f26-cd86e676700c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[243221, 6596, 2092, 60, 109, "Input",ExpressionUUID->"24fa5db0-1063-354a-bd60-c117a27ff3e1"], +Cell[245316, 6658, 490, 11, 71, "Message",ExpressionUUID->"546a9ea9-5939-f84a-87c6-58844f58f330"], +Cell[245809, 6671, 493, 11, 71, "Message",ExpressionUUID->"b36bffd7-1c84-5c45-a847-b2c31968f579"], +Cell[246305, 6684, 508, 11, 56, "Message",ExpressionUUID->"c864bef7-fc73-d94b-8cde-14570cba8095"], +Cell[246816, 6697, 456, 10, 32, "Message",ExpressionUUID->"a2e62375-acd2-6740-bfd7-026877c5bd7b"], +Cell[247275, 6709, 61603, 1057, 290, "Output",ExpressionUUID->"d4eecdc9-263c-5b43-bb29-cd0ac1286793"] +}, Open ]], +Cell[308893, 7769, 2455, 69, 296, "Input",ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], +Cell[311351, 7840, 209, 5, 36, "Input",ExpressionUUID->"6d3700e1-f504-214a-a332-f16397f0b922"], +Cell[CellGroupData[{ +Cell[311585, 7849, 217, 7, 61, "Input",ExpressionUUID->"9051a5e3-bb9f-d941-bcca-598d0b6835be"], +Cell[311805, 7858, 169, 3, 41, "Output",ExpressionUUID->"07374b0a-4615-bf46-ab49-be8623cec410"] +}, Open ]], +Cell[CellGroupData[{ +Cell[312011, 7866, 1816, 53, 311, "Input",ExpressionUUID->"65a995ff-ff3d-634e-9bad-4a8a16073236"], +Cell[313830, 7921, 502, 11, 109, "Message",ExpressionUUID->"c1f83af1-416a-6240-b3fd-c1bfcc643459"], +Cell[314335, 7934, 506, 11, 109, "Message",ExpressionUUID->"5cfd3c4b-6190-2c4d-8479-b4ccd7090f94"], +Cell[314844, 7947, 509, 11, 71, "Message",ExpressionUUID->"288fc6c7-a3fe-9b48-9c0d-bba2713f7084"], +Cell[315356, 7960, 456, 10, 32, "Message",ExpressionUUID->"09478fd5-b212-2347-91e7-b9097bd6d61d"], +Cell[315815, 7972, 28560, 514, 290, "Output",ExpressionUUID->"f7784347-2042-c042-8970-b060f9535d9e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[344412, 8491, 1616, 48, 132, "Input",ExpressionUUID->"86381d88-1537-a242-9cff-0b432b61d63d"], +Cell[346031, 8541, 576, 12, 109, "Message",ExpressionUUID->"0a4bed5c-621d-a546-88e9-ce7d779c106a"], +Cell[346610, 8555, 582, 12, 109, "Message",ExpressionUUID->"80e3943d-459b-8b41-9869-50a6cf829ef8"], +Cell[347195, 8569, 584, 12, 109, "Message",ExpressionUUID->"36529169-7f05-ee43-8080-ce8fdd404b8d"], +Cell[347782, 8583, 458, 10, 109, "Message",ExpressionUUID->"a6c5f0ff-3356-4c42-b883-ce45e5cc4f41"], +Cell[348243, 8595, 170, 3, 109, "Output",ExpressionUUID->"546f133a-4a8e-8d44-937d-5fc3ea2401d8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[348450, 8603, 2247, 64, 348, "Input",ExpressionUUID->"6f0ad284-4db3-da47-b8dc-45830eedfe9c"], +Cell[350700, 8669, 522, 11, 98, "Message",ExpressionUUID->"2e7d173d-070f-de49-a3c2-9964fb888ede"], +Cell[351225, 8682, 526, 11, 98, "Message",ExpressionUUID->"04b23985-5685-d344-a2ed-9886796baf32"], +Cell[351754, 8695, 528, 11, 98, "Message",ExpressionUUID->"ccdd27f2-bd64-f442-a708-cfb1052c7f86"], +Cell[352285, 8708, 458, 10, 32, "Message",ExpressionUUID->"384ce3fd-4914-6b49-b10c-84d885ed65d6"], +Cell[352746, 8720, 175, 3, 41, "Output",ExpressionUUID->"8865a4e5-7fd3-3c49-a115-94c8c5479389"] +}, Open ]], +Cell[CellGroupData[{ +Cell[352958, 8728, 2221, 64, 109, "Input",ExpressionUUID->"b2dda819-6f34-5c49-bc62-303d815946e5"], +Cell[355182, 8794, 522, 11, 109, "Message",ExpressionUUID->"958049e8-43e1-cc46-81fb-5b3fe1a5d9ee"], +Cell[355707, 8807, 524, 11, 98, "Message",ExpressionUUID->"6ed73f20-f975-a34c-a5a3-af58e9ecd7ed"], +Cell[356234, 8820, 528, 11, 98, "Message",ExpressionUUID->"4ce11323-2f48-da4f-84f8-593751381024"], +Cell[356765, 8833, 458, 10, 32, "Message",ExpressionUUID->"330905cd-5b42-604b-aaf8-fbac43108165"], +Cell[357226, 8845, 170, 3, 41, "Output",ExpressionUUID->"020ade62-ec43-7549-8079-7ac012e004c4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[357433, 8853, 2221, 64, 348, "Input",ExpressionUUID->"76a9e77d-1f4c-bb4a-bb13-1a175f609f7d"], +Cell[359657, 8919, 524, 11, 109, "Message",ExpressionUUID->"9a8eff2d-0d97-2e45-a2f3-ce0634115f7d"], +Cell[360184, 8932, 526, 11, 98, "Message",ExpressionUUID->"7dd7e17e-c74e-7145-b6ae-77a0f02c67f1"], +Cell[360713, 8945, 530, 11, 98, "Message",ExpressionUUID->"311ddb21-a730-0b41-b633-2d3bac87be85"], +Cell[361246, 8958, 458, 10, 32, "Message",ExpressionUUID->"ecdc16e1-316d-b342-a60b-0f3075607709"], +Cell[361707, 8970, 171, 3, 41, "Output",ExpressionUUID->"a7fc6f95-4067-504b-8754-5086d2659934"] +}, Open ]], +Cell[CellGroupData[{ +Cell[361915, 8978, 215, 6, 60, "Input",ExpressionUUID->"69dd09d9-152e-3e4d-9517-4de4791db2f4"], +Cell[362133, 8986, 175, 3, 41, "Output",ExpressionUUID->"96bb6c6a-f128-024e-85ce-f8a6083a68c6"] +}, Open ]], +Cell[362323, 8992, 245, 5, 36, "Input",ExpressionUUID->"6ecc7e8c-a7c5-354e-b168-749729cd7104"], +Cell[CellGroupData[{ +Cell[362593, 9001, 558, 19, 66, "Input",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], +Cell[363154, 9022, 172, 3, 41, "Output",ExpressionUUID->"fecac54e-ac70-c448-b60d-60e5d8aa9072"] +}, Open ]], +Cell[CellGroupData[{ +Cell[363363, 9030, 170, 5, 71, "Input",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], +Cell[363536, 9037, 172, 3, 41, "Output",ExpressionUUID->"31e41e93-aaef-1b4f-a5e6-3cad86684dfc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[363745, 9045, 181, 5, 55, "Input",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], +Cell[363929, 9052, 172, 3, 41, "Output",ExpressionUUID->"d20f2acf-afe0-0844-b0cd-0cdce2394573"] +}, Open ]], +Cell[CellGroupData[{ +Cell[364138, 9060, 6055, 185, 831, "Input",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], +Cell[370196, 9247, 174, 3, 41, "Output",ExpressionUUID->"ec544098-6efd-4845-b84f-33e39ead67c9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[370407, 9255, 368, 9, 53, "Input",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], +Cell[370778, 9266, 173, 3, 41, "Output",ExpressionUUID->"85f4fe6d-1167-7a40-b761-0a55e5251875"] +}, Open ]], +Cell[CellGroupData[{ +Cell[370988, 9274, 6122, 187, 900, "Input",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], +Cell[377113, 9463, 175, 3, 41, "Output",ExpressionUUID->"53db8250-199b-594a-8ebd-fc9cc43217e3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[377325, 9471, 368, 9, 53, "Input",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], +Cell[377696, 9482, 170, 3, 41, "Output",ExpressionUUID->"0013bb3e-54d0-e343-9869-cf63da2eecbd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[377903, 9490, 2663, 88, 435, "Input",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], +Cell[380569, 9580, 173, 3, 41, "Output",ExpressionUUID->"96d8705a-f744-d447-bad0-55fe1d703f38"] +}, Open ]], +Cell[CellGroupData[{ +Cell[380779, 9588, 2603, 85, 435, "Input",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], +Cell[383385, 9675, 172, 3, 41, "Output",ExpressionUUID->"bad41b21-8b15-a74b-a641-622c6584a958"] +}, Open ]], +Cell[CellGroupData[{ +Cell[383594, 9683, 3712, 118, 575, "Input",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], +Cell[387309, 9803, 174, 3, 41, "Output",ExpressionUUID->"a42f993d-5633-3546-ae09-6931972f9312"] +}, Open ]], +Cell[CellGroupData[{ +Cell[387520, 9811, 2052, 59, 116, "Input",ExpressionUUID->"d6aa822f-4140-174a-8e29-c889dba5c0d8"], +Cell[389575, 9872, 574, 12, 98, "Message",ExpressionUUID->"91f9ae14-8766-3848-9c79-ec46ad6af7ea"], +Cell[390152, 9886, 580, 12, 98, "Message",ExpressionUUID->"2440fadc-b12b-424f-a600-97a0a8c9f031"], +Cell[390735, 9900, 582, 12, 98, "Message",ExpressionUUID->"d4d1d26f-ac2b-a949-95b4-8d60af02cc4b"], +Cell[391320, 9914, 456, 10, 32, "Message",ExpressionUUID->"0cb59396-7a19-6b43-af2b-0a0ce0427b94"], +Cell[391779, 9926, 171, 3, 41, "Output",ExpressionUUID->"3ceb430a-d440-e040-b6a8-a18a3884b326"] +}, Open ]], +Cell[CellGroupData[{ +Cell[391987, 9934, 2054, 59, 276, "Input",ExpressionUUID->"46f3f057-22eb-c143-af7a-23ddab00799c"], +Cell[394044, 9995, 574, 12, 98, "Message",ExpressionUUID->"ccb81c35-09e9-854b-9187-d46e8624546d"], +Cell[394621, 10009, 578, 12, 98, "Message",ExpressionUUID->"6dff6307-9a24-c74d-90d8-2f18b14858dc"], +Cell[395202, 10023, 582, 12, 98, "Message",ExpressionUUID->"11045565-b757-154a-b614-eb73b2dcbc5f"], +Cell[395787, 10037, 458, 10, 32, "Message",ExpressionUUID->"af9dd0c6-d446-9940-b908-9b52fbb611cb"], +Cell[396248, 10049, 169, 3, 41, "Output",ExpressionUUID->"d39c46b4-75c6-f741-b7fd-1a1fdbe4155f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[396454, 10057, 2030, 55, 232, "Input",ExpressionUUID->"0137ed47-cd78-284a-910a-31d165f1571c"], +Cell[398487, 10114, 20326, 381, 299, "Output",ExpressionUUID->"5f98f6f4-700b-0a4b-af1c-32125fed3e6a"] +}, Open ]], +Cell[418828, 10498, 2144, 61, 311, "Input",ExpressionUUID->"00a32bc3-df79-9e43-8f20-d4884962c12d"], +Cell[420975, 10561, 138, 3, 36, "Input",ExpressionUUID->"344da507-9044-ef47-aa8c-99f282e3d6d3"], +Cell[CellGroupData[{ +Cell[421138, 10568, 1616, 48, 132, "Input",ExpressionUUID->"f13d1bd8-d153-ae43-b041-68b993e77854"], +Cell[422757, 10618, 592, 12, 118, "Message",ExpressionUUID->"318da404-8df4-c540-9269-2b249c7e148e"], +Cell[423352, 10632, 597, 12, 118, "Message",ExpressionUUID->"42939765-c33b-c147-a25b-bfa31c71a3cb"], +Cell[423952, 10646, 599, 12, 109, "Message",ExpressionUUID->"63b912c5-afab-654e-9609-c4b849e9abfe"], +Cell[424554, 10660, 458, 10, 109, "Message",ExpressionUUID->"2c8999d2-d9b5-ef4e-a59d-c314a02b2b2a"], +Cell[425015, 10672, 172, 3, 109, "Output",ExpressionUUID->"52013fca-4692-bf47-a0cf-880d71f10fc1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[425224, 10680, 2249, 64, 109, "Input",ExpressionUUID->"53e25fab-b431-cc42-a467-e4dea0353ed0"], +Cell[427476, 10746, 576, 12, 109, "Message",ExpressionUUID->"285f997a-25b4-f647-9523-e0dd05446bae"], +Cell[428055, 10760, 580, 12, 109, "Message",ExpressionUUID->"b1d2a50d-b27b-ca46-afcb-af9e8d59323e"], +Cell[428638, 10774, 582, 12, 109, "Message",ExpressionUUID->"a36c085c-b95e-724c-a04e-30924ab7ac52"], +Cell[429223, 10788, 456, 10, 109, "Message",ExpressionUUID->"976edb68-80f3-5a4d-a255-2f217ec84bfa"], +Cell[429682, 10800, 171, 3, 109, "Output",ExpressionUUID->"b7107287-e519-1249-9ef0-b745347bdb78"] +}, Open ]], +Cell[CellGroupData[{ +Cell[429890, 10808, 2223, 64, 109, "Input",ExpressionUUID->"b18c819e-620a-d449-97d6-547e3a6fa152"], +Cell[432116, 10874, 574, 12, 98, "Message",ExpressionUUID->"2877ed71-3ee8-8044-94b0-c606083c07b7"], +Cell[432693, 10888, 578, 12, 98, "Message",ExpressionUUID->"34cfc5a5-16b6-f24f-acdf-b4e2d29b1bef"], +Cell[433274, 10902, 580, 12, 98, "Message",ExpressionUUID->"7fe7bdbe-3892-5043-b38d-13721c83d41a"], +Cell[433857, 10916, 458, 10, 32, "Message",ExpressionUUID->"93dfb0cd-55fb-1b4a-b671-37d180b9d444"], +Cell[434318, 10928, 173, 3, 41, "Output",ExpressionUUID->"372279b5-5e4a-b545-a159-384b26aa5ab4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[434528, 10936, 2221, 64, 348, "Input",ExpressionUUID->"22ab74c7-5916-9440-9d7d-c3e0f6ab8836"], +Cell[436752, 11002, 574, 12, 98, "Message",ExpressionUUID->"c14c35e1-e487-c742-a0da-128fdb9754d4"], +Cell[437329, 11016, 578, 12, 98, "Message",ExpressionUUID->"4396ed61-4d7e-6144-80f0-6d5649cfcb04"], +Cell[437910, 11030, 582, 12, 98, "Message",ExpressionUUID->"00fa2dcd-bc0b-9e44-9f00-15116f344aca"], +Cell[438495, 11044, 455, 10, 32, "Message",ExpressionUUID->"78b12bf1-7793-9341-ad5f-c7be406b8be6"], +Cell[438953, 11056, 170, 3, 41, "Output",ExpressionUUID->"9454fa52-ff74-094b-8081-2fc86cf96043"] +}, Open ]], +Cell[CellGroupData[{ +Cell[439160, 11064, 215, 6, 60, "Input",ExpressionUUID->"f9c66987-c237-7a40-a006-e20e260dbdcb"], +Cell[439378, 11072, 174, 3, 41, "Output",ExpressionUUID->"175eda7e-c091-3e4f-86ac-3148f0a9e904"] +}, Open ]], +Cell[439567, 11078, 249, 5, 36, "Input",ExpressionUUID->"770a9ed7-7938-9e48-be64-c31719ef3a6b"], +Cell[CellGroupData[{ +Cell[439841, 11087, 558, 19, 66, "Input",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], +Cell[440402, 11108, 169, 3, 41, "Output",ExpressionUUID->"e757c22c-d836-6c4a-a9f7-93553c4bb232"] +}, Open ]], +Cell[CellGroupData[{ +Cell[440608, 11116, 170, 5, 71, "Input",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], +Cell[440781, 11123, 173, 3, 41, "Output",ExpressionUUID->"7f3ee547-87eb-d74d-8f21-a8d42f1dde52"] +}, Open ]], +Cell[CellGroupData[{ +Cell[440991, 11131, 181, 5, 55, "Input",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], +Cell[441175, 11138, 173, 3, 41, "Output",ExpressionUUID->"0603b6e6-a8b7-1e45-9b15-2769b7fbc373"] +}, Open ]], +Cell[CellGroupData[{ +Cell[441385, 11146, 6055, 185, 831, "Input",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], +Cell[447443, 11333, 174, 3, 41, "Output",ExpressionUUID->"8b7a346f-cdda-e24e-b924-d6cfb1b3119a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[447654, 11341, 368, 9, 53, "Input",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], +Cell[448025, 11352, 172, 3, 41, "Output",ExpressionUUID->"3354b35a-acef-b846-b770-8d2e77b8f68b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[448234, 11360, 6122, 187, 900, "Input",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], +Cell[454359, 11549, 172, 3, 41, "Output",ExpressionUUID->"7b76721b-3d4c-c544-9113-83ba4f36ae7f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[454568, 11557, 368, 9, 53, "Input",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], +Cell[454939, 11568, 170, 3, 41, "Output",ExpressionUUID->"e9346704-c478-364d-b5eb-0aabe0e2e350"] +}, Open ]], +Cell[CellGroupData[{ +Cell[455146, 11576, 2663, 88, 435, "Input",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], +Cell[457812, 11666, 173, 3, 41, "Output",ExpressionUUID->"33b7f444-6995-e54b-a2a6-ad09016b1850"] +}, Open ]], +Cell[CellGroupData[{ +Cell[458022, 11674, 2603, 85, 435, "Input",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], +Cell[460628, 11761, 172, 3, 41, "Output",ExpressionUUID->"76ba8e46-11c7-f54d-bfb2-cca1b455c838"] +}, Open ]], +Cell[CellGroupData[{ +Cell[460837, 11769, 3712, 118, 575, "Input",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], +Cell[464552, 11889, 172, 3, 41, "Output",ExpressionUUID->"f7c29774-2634-5546-ab63-4d3ac6889f79"] +}, Open ]], +Cell[CellGroupData[{ +Cell[464761, 11897, 2052, 59, 276, "Input",ExpressionUUID->"55d51961-97f2-ed4d-8bf8-8a461d652ab4"], +Cell[466816, 11958, 573, 12, 98, "Message",ExpressionUUID->"3d5a1265-fb27-0b41-a549-5e326650d270"], +Cell[467392, 11972, 573, 12, 98, "Message",ExpressionUUID->"0726d23e-32d7-7a41-8d7f-0b62fec75437"], +Cell[467968, 11986, 579, 12, 98, "Message",ExpressionUUID->"b47482ef-bec0-234f-aeb7-9009a378a36d"], +Cell[468550, 12000, 458, 10, 32, "Message",ExpressionUUID->"e5e35e3a-0e40-c249-b6f3-c2a6a5a48740"], +Cell[469011, 12012, 170, 3, 41, "Output",ExpressionUUID->"b33776d0-2a41-694b-9af8-c4d483383e7c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[469218, 12020, 2052, 59, 276, "Input",ExpressionUUID->"9704b9d3-b449-2144-9970-6a7de047241d"], +Cell[471273, 12081, 573, 12, 98, "Message",ExpressionUUID->"ffb6a3c0-c488-cd48-870e-d66051362026"], +Cell[471849, 12095, 575, 12, 98, "Message",ExpressionUUID->"ca3fb11a-47f9-c542-a5c9-6e0087e110b9"], +Cell[472427, 12109, 579, 12, 98, "Message",ExpressionUUID->"7e4a0639-38a1-f74e-ab8e-5264cad2d48c"], +Cell[473009, 12123, 458, 10, 32, "Message",ExpressionUUID->"101eaea3-75b1-d942-9914-a0fe8a6e2f65"], +Cell[473470, 12135, 169, 3, 41, "Output",ExpressionUUID->"921a9c76-dcb9-484a-bc19-88ddead9467a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[473676, 12143, 2028, 55, 232, "Input",ExpressionUUID->"0fd90636-7592-fc40-bf9d-ae1cb915c656"], +Cell[475707, 12200, 20296, 381, 295, "Output",ExpressionUUID->"09d149ec-0259-a345-a282-743f783e7913"] +}, Open ]], +Cell[CellGroupData[{ +Cell[496040, 12586, 2146, 61, 311, "Input",ExpressionUUID->"90696e8b-5a2d-314c-8d58-ac84cb8f4d66"], +Cell[498189, 12649, 500, 11, 71, "Message",ExpressionUUID->"526ffad5-83ae-c149-9912-e494135b3fca"], +Cell[498692, 12662, 505, 11, 109, "Message",ExpressionUUID->"1adb1680-bdf2-4144-bcc9-7270c61e97b7"], +Cell[499200, 12675, 509, 11, 109, "Message",ExpressionUUID->"9e5d82d5-642b-cb46-8232-be5a5ca7050d"], +Cell[499712, 12688, 458, 10, 109, "Message",ExpressionUUID->"ef931413-f964-5b45-a755-76cab1ab5309"], +Cell[500173, 12700, 39609, 697, 109, "Output",ExpressionUUID->"23497d29-f516-664b-9ee0-ea8f6d88359c"] +}, Open ]], +Cell[539797, 13400, 209, 5, 109, "Input",ExpressionUUID->"ea848967-083d-ea47-bce0-5c3b93725916"], +Cell[CellGroupData[{ +Cell[540031, 13409, 1616, 48, 132, "Input",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], +Cell[541650, 13459, 589, 12, 118, "Message",ExpressionUUID->"100796fd-6fde-3c41-9088-c2d3ae2f8aeb"], +Cell[542242, 13473, 595, 12, 118, "Message",ExpressionUUID->"c91e75b4-9e2b-1e49-a5d5-453d5f87b5e3"], +Cell[542840, 13487, 596, 12, 118, "Message",ExpressionUUID->"5d8ad6a4-5b83-df49-8c4d-081081895528"], +Cell[543439, 13501, 458, 10, 109, "Message",ExpressionUUID->"26eed7af-5e0a-e840-9956-caca06166010"], +Cell[543900, 13513, 171, 3, 109, "Output",ExpressionUUID->"e4e35b92-e786-3044-bf1d-9c587b1357a2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[544108, 13521, 2249, 64, 109, "Input",ExpressionUUID->"80bba3bc-d8f7-1c4b-9262-0895c02ffd8f"], +Cell[546360, 13587, 573, 12, 109, "Message",ExpressionUUID->"6b65fc2b-3e1d-714d-aeb9-43978836a621"], +Cell[546936, 13601, 573, 12, 109, "Message",ExpressionUUID->"c4736a05-b0e1-5e49-b581-f3ce4c83fe21"], +Cell[547512, 13615, 579, 12, 98, "Message",ExpressionUUID->"ae8eb83c-0205-8046-8445-e249896b7ee5"], +Cell[548094, 13629, 458, 10, 32, "Message",ExpressionUUID->"5072d590-62c3-7a47-ae1b-6dd617a0b9dc"], +Cell[548555, 13641, 174, 3, 41, "Output",ExpressionUUID->"8dd7e1f9-bbea-d84b-ad0e-8922158aee9e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[548766, 13649, 2221, 64, 348, "Input",ExpressionUUID->"57976ffc-56f1-604b-8519-bead95265db8"], +Cell[550990, 13715, 573, 12, 98, "Message",ExpressionUUID->"7ab877ea-0e4b-f948-97c2-7ebafb7901b1"], +Cell[551566, 13729, 575, 12, 98, "Message",ExpressionUUID->"a87a57c5-24bc-dc4a-888a-b3c0095c10c4"], +Cell[552144, 13743, 577, 12, 98, "Message",ExpressionUUID->"d8af7fb1-1d43-664e-ae2d-698eaa818746"], +Cell[552724, 13757, 456, 10, 32, "Message",ExpressionUUID->"7abec434-52e8-c64c-ac86-90da0b27b8aa"], +Cell[553183, 13769, 172, 3, 41, "Output",ExpressionUUID->"164a4c34-f121-a445-b434-e34aa59666ab"] +}, Open ]], +Cell[CellGroupData[{ +Cell[553392, 13777, 2219, 64, 348, "Input",ExpressionUUID->"cfa37210-3ae7-3f49-b290-f19508c6d2f1"], +Cell[555614, 13843, 571, 12, 98, "Message",ExpressionUUID->"92295db4-13f0-284e-8173-df7f8dd20dcf"], +Cell[556188, 13857, 573, 12, 98, "Message",ExpressionUUID->"c6280e41-1347-0f47-81a9-bcd3687b7b73"], +Cell[556764, 13871, 579, 12, 98, "Message",ExpressionUUID->"2aa0f4b1-01ca-4644-884e-b759d4a75412"], +Cell[557346, 13885, 458, 10, 32, "Message",ExpressionUUID->"ab3c3bff-179e-9f4e-b56a-87d1b4f6fc04"], +Cell[557807, 13897, 172, 3, 41, "Output",ExpressionUUID->"f5b8154f-e61e-6a4e-b068-b6c1916773ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[558016, 13905, 211, 6, 60, "Input",ExpressionUUID->"7457b456-6d32-5b44-9679-346c5f5ac532"], +Cell[558230, 13913, 174, 3, 41, "Output",ExpressionUUID->"14434839-d5cf-b844-b849-b3b3102df434"] +}, Open ]], +Cell[558419, 13919, 188, 4, 36, "Input",ExpressionUUID->"2fb7cde2-eacb-466b-a6e4-a63fb5fd0f5b"] } ] *) -(* End of internal cache information *) - diff --git a/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_gid_Qw2.nb b/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_gid_Qw2.nb index 1f902d9..252928c 100755 --- a/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_gid_Qw2.nb +++ b/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_gid_Qw2.nb @@ -3,25 +3,4892 @@ (*** 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[ 456991, 13355] +NotebookOptionsPosition[ 418426, 12739] +NotebookOutlinePosition[ 418836, 12756] +CellTagsIndexPosition[ 418793, 12753] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f1", "="}]], "Input", + RowBox[{"d", "=", "1.6"}]], "Input", CellChangeTimes->{ - 3.9918505481678543`*^9},ExpressionUUID->"83cccf0d-dccb-fb42-a058-\ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.9940727514461927`*^9, 3.994072775295883*^9}}, + CellLabel-> + "In[104]:=",ExpressionUUID->"c38f06bd-74d1-44ad-9faf-19b29d111ef0"], + +Cell[BoxData["1.6`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, 3.99379974700918*^9, 3.993800338579624*^9, + 3.9938003856877937`*^9, {3.994072756527327*^9, 3.9940727765701942`*^9}}, + CellLabel-> + "Out[104]=",ExpressionUUID->"5af16a9c-2a96-4996-866b-c621ccc0e90e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.993799082059058*^9, 3.9937990826790457`*^9}}, + CellLabel-> + "In[105]:=",ExpressionUUID->"afd78b5b-f0d9-4cb8-b492-13e48b79319d"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.993799747282215*^9, 3.99380033885446*^9, + 3.993800385764146*^9, {3.994072756590721*^9, 3.994072776647262*^9}}, + CellLabel-> + "Out[105]=",ExpressionUUID->"ec688a6a-93c6-4888-ab9d-b2dcccb020d5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", " ", "176"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.993799246718399*^9, 3.993799247496731*^9}}, + CellLabel-> + "In[106]:=",ExpressionUUID->"79ae24c9-993a-47cf-bcff-b044b9053fef"], + +Cell[BoxData["176"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.993799747300477*^9, 3.993800338871715*^9, + 3.993800385779578*^9, {3.994072756603456*^9, 3.9940727766610518`*^9}}, + CellLabel-> + "Out[106]=",ExpressionUUID->"8922d22d-b530-4d90-9156-e7af0d47766f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel-> + "In[107]:=",ExpressionUUID->"16fbc78b-e4af-4dde-bf1f-cee992cb730c"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.993799747316929*^9, 3.993800338888788*^9, + 3.993800385794606*^9, {3.994072756615819*^9, 3.994072776674831*^9}}, + CellLabel-> + "Out[107]=",ExpressionUUID->"42585906-fcc8-410c-81d8-c50db5003892"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel-> + "In[108]:=",ExpressionUUID->"c29af457-6672-42d8-be46-70931c6b097e"], + +Cell[BoxData["0.543`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.993799747333138*^9, 3.993800338906427*^9, + 3.993800385809697*^9, {3.994072756628705*^9, 3.994072776688608*^9}}, + CellLabel-> + "Out[108]=",ExpressionUUID->"efa8857f-5048-481d-8bd8-29fcf9b0a485"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel-> + "In[109]:=",ExpressionUUID->"f35350ce-e762-4333-b2ea-e4a3fd9c070e"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.9937997473490753`*^9, 3.993800338928018*^9, + 3.993800385813496*^9, {3.994072756641103*^9, 3.994072776693177*^9}}, + CellLabel-> + "Out[109]=",ExpressionUUID->"93922128-b6ef-4b00-88ce-0b8b4f8da024"] +}, 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[110]:=",ExpressionUUID->"aa2e889f-9ffd-427b-90f9-c5320db7dde4"], + +Cell[BoxData["6.5007312471204965`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.993799747366351*^9, 3.993800338948053*^9, + 3.993800385835421*^9, {3.994072756653392*^9, 3.994072776710863*^9}}, + CellLabel-> + "Out[110]=",ExpressionUUID->"b517e449-46ec-4753-ae1f-32aa5a514573"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel-> + "In[111]:=",ExpressionUUID->"4dcde000-4a52-43da-bd3b-b04d1f3d36dc"], + +Cell[BoxData["4.64`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.993799747384128*^9, 3.993800338968402*^9, + 3.993800385850627*^9, {3.9940727566658983`*^9, 3.994072776724451*^9}}, + CellLabel-> + "Out[111]=",ExpressionUUID->"29bb91f9-b225-4959-8da8-3114085f5143"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.7654"}]], "Input", + CellChangeTimes->{ + 3.991799283179735*^9, {3.9937993186432753`*^9, 3.993799326240513*^9}, { + 3.993799364756247*^9, 3.993799370026516*^9}, {3.993799480203456*^9, + 3.993799488443741*^9}}, + CellLabel-> + "In[112]:=",ExpressionUUID->"b577b86a-7023-44fc-a7e0-88ec893185a3"], + +Cell[BoxData["0.7654`"], "Output", + CellChangeTimes->{ + 3.9937997474107447`*^9, 3.993800338988703*^9, 3.9938003858649893`*^9, { + 3.994072756678184*^9, 3.994072776737771*^9}}, + CellLabel-> + "Out[112]=",ExpressionUUID->"75ad98fe-a454-4dd2-973a-60d624ab42fa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.4513"}]], "Input", + CellChangeTimes->{ + 3.991799280663351*^9, {3.993799372069343*^9, 3.993799377027832*^9}}, + CellLabel-> + "In[113]:=",ExpressionUUID->"9e64d07f-edc3-4463-ba28-a64831c4d3e4"], + +Cell[BoxData["0.4513`"], "Output", + CellChangeTimes->{ + 3.993799747427882*^9, 3.993800339005568*^9, 3.993800385879345*^9, { + 3.9940727566903763`*^9, 3.9940727767497873`*^9}}, + CellLabel-> + "Out[113]=",ExpressionUUID->"43fd0693-5729-4d5c-bac2-3fbfbc79c7fe"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel-> + "In[114]:=",ExpressionUUID->"0c951bb0-c9ce-4ab7-a821-851d3ea73447"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.993799747452092*^9, 3.993800339022945*^9, + 3.993800385893304*^9, {3.994072756702078*^9, 3.9940727767611856`*^9}}, + CellLabel-> + "Out[114]=",ExpressionUUID->"ab77ee4f-d3a7-4bb3-b66d-ee01423138df"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel-> + "In[115]:=",ExpressionUUID->"f5d9f999-f620-45c8-9bb7-007979080bea"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.993799747468101*^9, 3.993800339041868*^9, + 3.9938003859074306`*^9, {3.9940727567134666`*^9, 3.994072776772606*^9}}, + CellLabel-> + "Out[115]=",ExpressionUUID->"033bf110-6df8-4a56-bb2d-dadbdd45a65b"] +}, 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[116]:=",ExpressionUUID->"a1dcb2c8-b8a6-435b-afe2-4d2b1ba86bb2"], + +Cell[BoxData["2.0171665757171935`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.9937997474836817`*^9, 3.9938003390596933`*^9, + 3.993800385921398*^9, {3.994072756725263*^9, 3.994072776784317*^9}}, + CellLabel-> + "Out[116]=",ExpressionUUID->"fa7f438b-24c2-4b33-92b3-77e4f79e9c70"] +}, 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[117]:=",ExpressionUUID->"f32a042b-a381-4268-99ce-efc338059031"], + +Cell[BoxData["1.5074639495621045`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.993799747498741*^9, 3.993800339079308*^9, + 3.993800385933773*^9, {3.994072756739362*^9, 3.994072776796445*^9}}, + CellLabel-> + "Out[117]=",ExpressionUUID->"247d7e07-f0e4-41f6-acd3-0898d8c2b85d"] +}, 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[118]:=",ExpressionUUID->"b14b50fb-38cd-4662-84ba-67a97264afa3"], + +Cell[BoxData["0.5126444245586296`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.993799747513342*^9, 3.993800339097157*^9, + 3.993800385946536*^9, {3.994072756750792*^9, 3.9940727768075857`*^9}}, + CellLabel-> + "Out[118]=",ExpressionUUID->"4fdc402e-9c56-400a-ab65-b16577f389c2"] +}, 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[119]:=",ExpressionUUID->"8016f16a-16e8-4d16-bc4c-923039b7ce67"], + +Cell[BoxData[ + RowBox[{"-", "0.12490541136574432`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.993799747527933*^9, 3.9938003391147947`*^9, + 3.99380038595966*^9, {3.994072756762456*^9, 3.99407277681929*^9}}, + CellLabel-> + "Out[119]=",ExpressionUUID->"2fd6eb81-f46e-47c2-a81e-28bd02ad1c2f"] +}, 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[120]:=",ExpressionUUID->"b96d86c5-938e-478a-90c6-3f74e8c37453"], + +Cell[BoxData[ + RowBox[{"-", "0.47786808677187637`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.993799747543792*^9, 3.993800339132107*^9, + 3.9938003859736147`*^9, {3.994072756774001*^9, 3.994072776830839*^9}}, + CellLabel-> + "Out[120]=",ExpressionUUID->"3a9bac6c-e012-4ceb-8de4-f6b9508e7822"] +}, 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[121]:=",ExpressionUUID->"ea8c1cb5-682b-4b1c-b3b5-acad93d635e7"], + +Cell[BoxData["0.6637051934091774`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.993799747559553*^9, 3.993800339136161*^9, + 3.993800385987465*^9, {3.994072756786757*^9, 3.994072776842886*^9}}, + CellLabel-> + "Out[121]=",ExpressionUUID->"be7f6c6b-834b-4358-9c29-796b8223eecc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel-> + "In[122]:=",ExpressionUUID->"75b49a7c-d616-44bc-9324-eb39800c7562"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.9937997475753107`*^9, 3.993800339165604*^9, + 3.9938003860010223`*^9, {3.99407275679909*^9, 3.994072776854899*^9}}, + CellLabel-> + "Out[122]=",ExpressionUUID->"6ee57074-b8ae-46ea-9086-eff784fbd8fb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel-> + "In[123]:=",ExpressionUUID->"bc72c9a3-c5b0-46ba-a6d9-b78c2dbdb81f"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.9937997475908947`*^9, 3.993800339182325*^9, + 3.9938003860157137`*^9, {3.9940727568120337`*^9, 3.994072776866831*^9}}, + CellLabel-> + "Out[123]=",ExpressionUUID->"2d182ad6-9b25-4551-860a-a1c2093aa11a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellChangeTimes->{{3.9938002062742653`*^9, 3.993800206278376*^9}, { + 3.99380037453472*^9, 3.993800374695301*^9}}, + CellLabel-> + "In[124]:=",ExpressionUUID->"447d0e58-8ddf-4214-866b-77f6d8239bf8"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.993799747607007*^9, 3.993800339199224*^9, + 3.9938003860303698`*^9, {3.994072756823955*^9, 3.994072776878458*^9}}, + CellLabel-> + "Out[124]=",ExpressionUUID->"5572f6f5-ac17-4a10-abae-c3d1e8b4aaa4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel-> + "In[125]:=",ExpressionUUID->"c581d9fe-2738-4459-9369-c0c9c4efed9c"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.993799747623555*^9, 3.9938003392162523`*^9, + 3.993800386045208*^9, {3.994072756835642*^9, 3.994072776890398*^9}}, + CellLabel-> + "Out[125]=",ExpressionUUID->"3a1bc198-dd41-4717-9a2b-74bedff19332"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel-> + "In[126]:=",ExpressionUUID->"cc3015c8-cbd4-4f2e-a792-825c63ae5ebe"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.9937997476274233`*^9, 3.993800339233366*^9, + 3.993800386060211*^9, {3.994072756847537*^9, 3.994072776902615*^9}}, + CellLabel-> + "Out[126]=",ExpressionUUID->"3cfce95b-b2b2-4c7f-8b59-5c72aa32d310"] +}, 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.993799773981587*^9, {3.993800017055696*^9, 3.993800017126395*^9}}, + CellLabel-> + "In[127]:=",ExpressionUUID->"e1f365a2-d9d8-4cda-b3a3-e68b31c6a560"], + +Cell[BoxData["64"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, 3.993800339250176*^9, 3.993800386074368*^9, { + 3.994072756859651*^9, 3.994072776915943*^9}}, + CellLabel-> + "Out[127]=",ExpressionUUID->"29806205-711b-4cc4-acaa-a46456db1a78"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"92", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9}, + CellLabel-> + "In[128]:=",ExpressionUUID->"0b81ca95-0a08-4fa3-ad63-7c00f7ffe86d"], + +Cell[BoxData["28"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.993799747743443*^9, 3.993800339268099*^9, + 3.993800386088282*^9, {3.994072756878846*^9, 3.994072776927128*^9}}, + CellLabel-> + "Out[128]=",ExpressionUUID->"8b28afdc-aa38-4a47-a3b1-86b4604828c3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel-> + "In[129]:=",ExpressionUUID->"9792e723-1517-465f-b393-f9cdb1452b45"], + +Cell[BoxData["64"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.993799747762579*^9, 3.9938003392862883`*^9, + 3.993800386103376*^9, {3.994072756893341*^9, 3.994072776939496*^9}}, + CellLabel-> + "Out[129]=",ExpressionUUID->"9ed43bb4-9af7-42ef-91ca-ca98df9d77f9"] +}, 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[130]:=",ExpressionUUID->"d129cb85-0b12-4ff0-8da3-13df49d7e8f6"], + +Cell[BoxData["0.10431818181818181`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.993799747778633*^9, 3.993800339303063*^9, + 3.993800386118601*^9, {3.9940727569059267`*^9, 3.994072776951536*^9}}, + CellLabel-> + "Out[130]=",ExpressionUUID->"22cff539-358e-4494-be6c-1d43a033f703"] +}, 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[131]:=",ExpressionUUID->"1a34dbc5-0170-4999-8a5d-398d58b61037"], + +Cell[BoxData[ + RowBox[{"-", "2.571590909090909`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.993799747795951*^9, 3.993800339319376*^9, + 3.993800386134354*^9, {3.9940727569175262`*^9, 3.994072776962891*^9}}, + CellLabel-> + "Out[131]=",ExpressionUUID->"a8989fd7-b8ce-4a00-962c-1a08bbfb2ead"] +}, 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[132]:=",ExpressionUUID->"e4a97bde-72a6-40ff-9081-d4d1dc9478ce"], + +Cell[BoxData["16.821909430837295`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.993799747812237*^9, 3.993800339336598*^9, + 3.9938003861388483`*^9, {3.994072756929346*^9, 3.994072776974725*^9}}, + CellLabel-> + "Out[132]=",ExpressionUUID->"a204d143-c54b-4a47-a34c-d28fc5fae6b5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel-> + "In[133]:=",ExpressionUUID->"350e03d0-a9a3-4426-8548-793c5ab9f6a3"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.9937997478307247`*^9, 3.993800339353257*^9, + 3.993800386159964*^9, {3.994072756940832*^9, 3.994072776986273*^9}}, + CellLabel-> + "Out[133]=",ExpressionUUID->"d63b2d79-86f9-461b-bed0-4a63bf27f06b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "1.25"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { + 3.9937993902853117`*^9, 3.993799392293758*^9}}, + CellLabel-> + "In[134]:=",ExpressionUUID->"481ec421-0e8e-4829-bccc-f08050fbcebb"], + +Cell[BoxData["1.25`"], "Output", + CellChangeTimes->{ + 3.9937997478713713`*^9, 3.993800339369935*^9, 3.9938003861811666`*^9, { + 3.9940727569525537`*^9, 3.9940727769978867`*^9}}, + CellLabel-> + "Out[134]=",ExpressionUUID->"d3293ad7-2e88-4b22-afc8-6d50121add31"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel-> + "In[135]:=",ExpressionUUID->"21802cf3-c66d-4e8f-b95f-f998fe3e99fc"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.85"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.993799395152514*^9, 3.9937993965162697`*^9}}, + CellLabel-> + "In[136]:=",ExpressionUUID->"feb7f060-9d53-4587-b6e6-7db8b94cdb65"], + +Cell[BoxData["0.85`"], "Output", + CellChangeTimes->{ + 3.993799747898118*^9, 3.993800339418215*^9, 3.993800386208997*^9, { + 3.99407275696742*^9, 3.9940727770129023`*^9}}, + CellLabel-> + "Out[136]=",ExpressionUUID->"69a346bf-ceff-4b7d-acfc-1dc7f5c59d5f"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel-> + "In[137]:=",ExpressionUUID->"ef889e59-9bea-4de0-b55b-ca1238d824e4"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "2.3"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.993799398824368*^9, 3.9937994002405863`*^9}}, + CellLabel-> + "In[138]:=",ExpressionUUID->"ca9ca022-54dc-48d0-9225-bca8fa9204ed"], + +Cell[BoxData["2.3`"], "Output", + CellChangeTimes->{ + 3.993799747923098*^9, 3.993800339511382*^9, 3.993800386234042*^9, { + 3.994072756981262*^9, 3.994072777026493*^9}}, + CellLabel-> + "Out[138]=",ExpressionUUID->"852a4084-4b42-4075-84e3-4df03ba3677f"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel-> + "In[139]:=",ExpressionUUID->"e3c627ac-7787-4a32-997a-ce331c786870"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.1"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, {3.993799403099743*^9, 3.9937994038178663`*^9}}, + CellLabel-> + "In[140]:=",ExpressionUUID->"1c407e7a-dc8c-4b18-b06d-b1b9818c7eb8"], + +Cell[BoxData["1.1`"], "Output", + CellChangeTimes->{ + 3.9937997479459248`*^9, 3.99380033956159*^9, 3.9938003862601*^9, { + 3.994072756995009*^9, 3.99407277703996*^9}}, + CellLabel-> + "Out[140]=",ExpressionUUID->"cdb4abfa-f666-4e40-8e43-a261804eeee0"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel-> + "In[141]:=",ExpressionUUID->"c177eaba-014e-4b6d-bd84-422460cd0578"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "0.8664"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, {3.993799407392029*^9, + 3.993799410650194*^9}}, + CellLabel-> + "In[142]:=",ExpressionUUID->"bfe5a85a-5d9e-49f7-b9d8-e0ca962ffb19"], + +Cell[BoxData["0.8664`"], "Output", + CellChangeTimes->{ + 3.993799747968698*^9, 3.993800339671721*^9, 3.9938003862845907`*^9, { + 3.994072757008773*^9, 3.994072777054493*^9}}, + CellLabel-> + "Out[142]=",ExpressionUUID->"f0ab51ff-f487-4f85-9efd-03179c05e869"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel-> + "In[143]:=",ExpressionUUID->"7357cf96-42e8-4230-aa7b-aa787e8d53a4"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.5924"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.9937994136330442`*^9, + 3.993799417576207*^9}}, + CellLabel-> + "In[144]:=",ExpressionUUID->"39968499-04f4-4aaf-969f-47dd9552cbf6"], + +Cell[BoxData["0.5924`"], "Output", + CellChangeTimes->{ + 3.993799747991611*^9, 3.9938003397687387`*^9, 3.993800386310059*^9, { + 3.994072757022612*^9, 3.994072777068264*^9}}, + CellLabel-> + "Out[144]=",ExpressionUUID->"69f114af-ca26-436a-81b2-2407cc9450e9"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel-> + "In[145]:=",ExpressionUUID->"d3e8d03f-922c-4529-83f3-834f319f227f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "1.888"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.993799421955809*^9, + 3.993799423886447*^9}}, + CellLabel-> + "In[146]:=",ExpressionUUID->"42e5f601-68c0-48aa-be8c-ef94de9cfd95"], + +Cell[BoxData["1.888`"], "Output", + CellChangeTimes->{ + 3.993799748012844*^9, 3.993800339865109*^9, 3.993800386335606*^9, { + 3.9940727570366488`*^9, 3.9940727770819397`*^9}}, + CellLabel-> + "Out[146]=",ExpressionUUID->"c6f7bafd-9e26-44d5-a29e-9ee44966b3e4"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel-> + "In[147]:=",ExpressionUUID->"ed21966d-6f60-421a-9734-6562b989ca42"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "0.6347"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, {3.993799431418026*^9, 3.9937994366447783`*^9}}, + CellLabel-> + "In[148]:=",ExpressionUUID->"7ef1268d-339d-47a7-b3cf-faa6a79673d4"], + +Cell[BoxData["0.6347`"], "Output", + CellChangeTimes->{ + 3.99379974807285*^9, 3.993800339960155*^9, 3.9938003863606977`*^9, { + 3.99407275705245*^9, 3.994072777095529*^9}}, + CellLabel-> + "Out[148]=",ExpressionUUID->"292bceff-de31-49c8-b372-bcdac9985ade"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel-> + "In[149]:=",ExpressionUUID->"31910eb0-1db4-4f39-bf09-7dba319f9823"], + +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[150]:=",ExpressionUUID->"283d5454-8e51-49c6-aa3a-6a51d5e5e555"], + +Cell[BoxData["0.33523276963055626`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.9937997481547623`*^9, 3.993800340061625*^9, + 3.9938003864136953`*^9, {3.994072757136285*^9, 3.994072777132966*^9}}, + CellLabel-> + "Out[150]=",ExpressionUUID->"6988f7b7-848d-4a23-a483-c41283d84606"] +}, 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[151]:=",ExpressionUUID->"7af6b117-42fc-4eac-a166-c4daf4a1f93b"], + +Cell[BoxData["10.264944924096582`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9937997481878023`*^9, 3.993800340089472*^9, + 3.993800386441668*^9, {3.994072757163142*^9, 3.9940727771627817`*^9}}, + CellLabel-> + "Out[151]=",ExpressionUUID->"53af5287-57f7-42ba-af9e-176cb3e1888f"] +}, 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[152]:=",ExpressionUUID->"3ccc2b55-71ba-4056-8693-fbdcffc0f206"], + +Cell[BoxData[ + RowBox[{"-", "28.42814742925769`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.993799748217864*^9, 3.993800340114811*^9, + 3.993800386467917*^9, {3.99407275718851*^9, 3.994072777190625*^9}}, + CellLabel-> + "Out[152]=",ExpressionUUID->"98adbb54-c003-472e-ad99-620d5cc2b8da"] +}, 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[153]:=",ExpressionUUID->"a1dd8794-cc51-478e-a833-fb04766b2ffc"], + +Cell[BoxData[ + RowBox[{"-", "38.363033654277935`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.9937997482559977`*^9, 3.993800340146491*^9, + 3.993800386499661*^9, {3.9940727572190027`*^9, 3.994072777223873*^9}}, + CellLabel-> + "Out[153]=",ExpressionUUID->"f891023f-cdb7-4aaa-b377-159de5ab3968"] +}, 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[154]:=",ExpressionUUID->"94521f07-d62c-4bf4-a121-941b5e1ee3c6"], + +Cell[BoxData[ + RowBox[{"-", "84.97316533656249`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.993799748294525*^9, 3.993800340178175*^9, + 3.9938003865308523`*^9, {3.994072757249708*^9, 3.994072777255313*^9}}, + CellLabel-> + "Out[154]=",ExpressionUUID->"806796f5-9102-4adb-a2ac-f62cb661e65c"] +}, 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[155]:=",ExpressionUUID->"dcc7952e-a3a2-4d76-b674-4b42ede27271"], + +Cell[BoxData[ + RowBox[{"-", "228.76196692780508`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.993799748333426*^9, 3.9938003402193203`*^9, + 3.9938003865686073`*^9, {3.9940727572851143`*^9, 3.9940727772935343`*^9}}, + CellLabel-> + "Out[155]=",ExpressionUUID->"32f94ba7-acc2-47e3-a615-be4dfad3d5c0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel-> + "In[156]:=",ExpressionUUID->"f049700b-5790-40d4-a767-d0963e3b3e89"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.993799748353148*^9, 3.993800340246324*^9, + 3.993800386583934*^9, {3.99407275729825*^9, 3.994072777306653*^9}}, + CellLabel-> + "Out[156]=",ExpressionUUID->"5ff7e855-3525-4138-9650-5ae73196b0e1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel-> + "In[157]:=",ExpressionUUID->"7f685872-bb50-46b2-8887-06d96df1a8c2"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.993799748372961*^9, 3.9938003402680492`*^9, + 3.993800386599262*^9, {3.99407275730969*^9, 3.994072777318306*^9}}, + CellLabel-> + "Out[157]=",ExpressionUUID->"8f3a94f6-7495-4aa7-a626-7333dcb38894"] +}, 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[158]:=",ExpressionUUID->"66cde6be-2db1-4fc6-99a1-4fd5ec0fc367"], + +Cell[BoxData["185.79450939883742`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.9937997483941936`*^9, 3.9938003402909203`*^9, + 3.99380038661649*^9, {3.9940727573211393`*^9, 3.994072777330056*^9}}, + CellLabel-> + "Out[158]=",ExpressionUUID->"dcc1948f-eb9b-4b0d-8351-c7c5cc69354d"] +}, 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[159]:=",ExpressionUUID->"06c42e12-35e7-47a6-9ee0-d1126a4de73c"], + +Cell[BoxData[ + RowBox[{"-", "142.60312447586276`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.9937997484173307`*^9, 3.993800340312326*^9, + 3.993800386633136*^9, {3.99407275733285*^9, 3.994072777341887*^9}}, + CellLabel-> + "Out[159]=",ExpressionUUID->"8c68a84b-1dee-4767-a837-7f39a028ef74"] +}, 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[160]:=",ExpressionUUID->"4fc8cd09-dfb0-4d0b-be5a-7428b1c347ab"], + +Cell[BoxData["169.9317606773619`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.993799748440692*^9, 3.993800340332926*^9, + 3.99380038664979*^9, {3.994072757344488*^9, 3.994072777353434*^9}}, + CellLabel-> + "Out[160]=",ExpressionUUID->"679be1ab-e7bd-42ce-8bfa-dd4d23338f3d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel-> + "In[161]:=",ExpressionUUID->"db8d809e-1222-4cf0-9e4f-ef3bfc3b334d"], + +Cell[BoxData["0.5126444245586296`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.9937997484629087`*^9, 3.9938003403521013`*^9, + 3.9938003866670628`*^9, {3.994072757355731*^9, 3.994072777364881*^9}}, + CellLabel-> + "Out[161]=",ExpressionUUID->"7c92d47a-6511-46d9-bdf9-53197e4bbe79"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel-> + "In[162]:=",ExpressionUUID->"61102ee4-fd56-4f4e-aae9-6e6f85d6ad61"], + +Cell[BoxData[ + RowBox[{"-", "0.12490541136574432`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.9937997484829597`*^9, 3.993800340372787*^9, + 3.993800386684751*^9, {3.994072759775218*^9, 3.994072777376302*^9}}, + CellLabel-> + "Out[162]=",ExpressionUUID->"3ac30277-7408-4f52-85a3-b99862f0dd87"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel-> + "In[163]:=",ExpressionUUID->"c1212b5a-b9b3-4efb-b791-b5aef973bee3"], + +Cell[BoxData[ + RowBox[{"-", "0.47786808677187637`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.993799748505329*^9, 3.9938003403919477`*^9, + 3.9938003866995373`*^9, {3.9940727599543447`*^9, 3.9940727773879633`*^9}}, + CellLabel-> + "Out[163]=",ExpressionUUID->"9d4b6cea-fad1-4ea1-988b-7212601b2da5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel-> + "In[164]:=",ExpressionUUID->"bd0f6c6f-1262-47f5-b928-eaf93d21780f"], + +Cell[BoxData["0.6637051934091774`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.99379974852349*^9, 3.993800340409604*^9, + 3.993800386721094*^9, {3.994072759966642*^9, 3.994072777399509*^9}}, + CellLabel-> + "Out[164]=",ExpressionUUID->"ac94a248-912d-46b5-bee4-2d4c2086b5fd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel-> + "In[165]:=",ExpressionUUID->"d0bb7e0b-e8c2-4560-9290-f48e0bd1fcbd"], + +Cell[BoxData["2.0171665757171935`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.993799748542218*^9, 3.993800340426003*^9, + 3.9938003867354116`*^9, {3.9940727599787703`*^9, 3.9940727774113617`*^9}}, + CellLabel-> + "Out[165]=",ExpressionUUID->"6f7dd9fc-9eaf-47f3-a13d-609280d996bc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel-> + "In[166]:=",ExpressionUUID->"95e2a8d5-1951-4102-99f6-ad51c308744b"], + +Cell[BoxData["1.5074639495621045`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.9937997485616417`*^9, 3.99380034044471*^9, + 3.9938003867502003`*^9, {3.9940727599906197`*^9, 3.994072777422779*^9}}, + CellLabel-> + "Out[166]=",ExpressionUUID->"23453211-1bac-4674-ba6d-3d965c8d2ce2"] +}, 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[167]:=",ExpressionUUID->"5fdf5ad0-f7da-4941-a920-31a470629a9d"], + +Cell[BoxData[ + RowBox[{"-", "30.893583323663808`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.993799748579701*^9, 3.9938003404617233`*^9, + 3.993800386765017*^9, {3.994072760002514*^9, 3.994072777434401*^9}}, + CellLabel-> + "Out[167]=",ExpressionUUID->"07561e06-67bb-4861-b9bc-c99a4674b80d"] +}, 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[168]:=",ExpressionUUID->"117301c3-7e4a-415b-aa06-a1570cc08ffc"], + +Cell[BoxData[ + RowBox[{"-", "7.926031139913374`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.993799748598835*^9, 3.993800340479863*^9, + 3.9938003867807913`*^9, {3.994072760013989*^9, 3.994072777446135*^9}}, + CellLabel-> + "Out[168]=",ExpressionUUID->"02d82b2e-123f-4e82-a917-7e75a4170da0"] +}, 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[169]:=",ExpressionUUID->"f29874dc-4ff3-4453-bd9b-b86716b3ff4a"], + +Cell[BoxData["154.9009260751736`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.993799748618464*^9, 3.993800340498665*^9, + 3.993800386794903*^9, {3.994072760026211*^9, 3.994072777457891*^9}}, + CellLabel-> + "Out[169]=",ExpressionUUID->"ed240888-0b33-4f6c-96bb-73687a4c1683"] +}, 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[170]:=",ExpressionUUID->"2d395a23-c156-4ff4-8920-53ed3530d6dd"], + +Cell[BoxData[ + RowBox[{"-", "142.60312447586276`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.993799748639475*^9, 3.993800340517002*^9, + 3.993800386808839*^9, {3.9940727600400333`*^9, 3.994072777469482*^9}}, + CellLabel-> + "Out[170]=",ExpressionUUID->"6fa6afcb-d4bb-43c4-98e8-c2787ff22ec7"] +}, 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[171]:=",ExpressionUUID->"cebf7a85-b90c-4fd0-b6d2-a6bcf590c115"], + +Cell[BoxData["162.00572953744853`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.993799748660536*^9, 3.993800340536582*^9, + 3.993800386822714*^9, {3.994072760046308*^9, 3.994072777481387*^9}}, + CellLabel-> + "Out[171]=",ExpressionUUID->"cf2d52e0-1ff1-4ae7-b6a0-aedde425cce4"] +}, 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[172]:=",ExpressionUUID->"89b62d0b-e390-4fff-a801-1f0e9b97397a"], + +Cell[BoxData["110.13261932733474`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.993799748682187*^9, 3.9938003405568943`*^9, + 3.993800386836596*^9, {3.994072760058202*^9, 3.994072777493164*^9}}, + CellLabel-> + "Out[172]=",ExpressionUUID->"04b7e1fd-1c35-404b-9221-b318563f5666"] +}, 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[173]:=",ExpressionUUID->"89b80508-67f6-42e8-98c7-04677add7ef7"], + +Cell[BoxData["1014.9570765717414`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.993799748705882*^9, 3.9938003405772467`*^9, + 3.993800386850522*^9, {3.994072760069648*^9, 3.994072777505143*^9}}, + CellLabel-> + "Out[173]=",ExpressionUUID->"4199a712-b184-4b2a-82fb-22c986524e3a"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"f1", "=", "0.3423643297"}]], "Input", + CellChangeTimes->{3.9918505481678543`*^9, + 3.9940826462637444`*^9},ExpressionUUID->"83cccf0d-dccb-fb42-a058-\ 5e950c758893"], Cell[BoxData[""], "Input", @@ -30,9 +4897,9 @@ Cell[BoxData[""], "Input", e7a6896afd10"], Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", - CellChangeTimes->{ - 3.991850550777445*^9},ExpressionUUID->"b70cfd2b-21a1-8344-9518-\ + RowBox[{"f2", "=", "0.1470031674"}]], "Input", + CellChangeTimes->{3.991850550777445*^9, + 3.9940826534958563`*^9},ExpressionUUID->"b70cfd2b-21a1-8344-9518-\ 5e27a96171a9"], Cell[BoxData[""], "Input", @@ -1562,66 +6429,96 @@ MathPictureEnd 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"], +eJzVnGdgVUUWgENekkeIRCAEpWhiqAkEkIBUQekGYaUsZRdBmgYQRMSyCkhR +6VKWjgIKSFmpsiIIuLqr0lEUld5xBZQm0pl957yZc++83DPzsuLK/sjk3Zlv +zjn3zNyp907TTv2yuvXq1K97l07Jjfp26pPVvcszyQ2f6huI8uWKiMh1MPCX +mhwRFfgtIiK0YKy4Lg5BEPgtxA1xCILf73c6/vOBbfALrzBc/n+UHhNMDvxa +4opNoNi3eFl5IYwjchpPJkKYm8iJPFkUQj+RY3kyWbd+FE+WhDCayGEuEsFU +PX0oL6mcTg7iyYoQRhE5gCczdPJFnryPLMbrF3iymi7zWZ6sqZN9ebK2rr0P +Tz6gy+zFk/V0mT15soEuM4snG+syH+fJTJ3sGlovHtbTO/OSmunkYzz5iE52 +4MkWOtmeJ1vp5J94srVOtuXJtjrZmidRXSSRf+TJP+syW/LkozrZnCc76uQf +eLKTbmcznuysy3w4tF501dMzQ9Mf19Mb85qydJsa8WR3XWYDnuypy6zPk0/q +MuvyZG9d5oM8+ZQusw5PPq3LrM2TfXWZtXiyny6zJk8+q8uszpPP6zKr8eQL +usz7QuvFi7qkKrykl3RJGTw5QJdZiScH6uS9PPmyrr0CTw7WZZbnySE6mc6T +Q3XtZYNkoiSvXrlKZKJH7ld1PWnB3JH4L1qMGztOlC5dWpQpU0b06NFD3Lh+ +IxALaVHiyuUrombNmqJEiRLiyOEjUTLL0iVLMUvx4sVFlSpVxJLFSyJiMC1G +zJg+Q9StW1eULFlSpKaminr16onPPv0st4ddr+l2pQbtivAjsPqD1eKhhx4S +F36+gDfYs2dPMWL4CDLtx1M/iri44Ehrw+cb/FL+nt17xBNPPCG6dOkiUb9Y +tHCR2L9vv9Irdn69U5QtW1bs+HJHhN/DrmG6t0tLu3wINGrUSHyx/QvpPp84 +d/acSElJkZ4Jxh0/dlzs+m4XXsXKuObNm4sVy1fglXJGwG9gqPRcdkNG6A4q +RYZcu3pNFC1aFMvKJzPWqlVLfPftd3iVT8Zt3LBR1KlTR1MKhtWuXZtVOlJX +WpKUnjxxUlSsWFFmCYYdOnQQaz9ci1e3SXef/um0aNu2LdaQChUqoPsLFiwo +Ll+6TEYsfnex6Nixo2MEDmNG6o4vTqoP7D8gqlevrqnOysoSy5Yu01Q3adJE +TJo4Ce/lzOkzomnTpiI2NlYcPXJU5vND4Ynp06aL69euI7d71240dfOmzZ61 +YYzujxQy6tTJU57+WLd2HV7FybjDhw5jdYMrVWvAl/Hx8VBTZN4YMXfOXLxJ +8Fm5cuVE1apV4SnwenJe1226x1oxVG1UNn3y8SeiRYsWmu2FChXCB95tJ9g0 +dcpULa/bkLG6Icnao9K4cWOxfdt27VGBlsQpMZ84dPCQKF++vKZ0y+YtokGD +BppxNkPG6YYkaW3JmtVrRMOGDcX5c+fxDqGZGzN6TES89DxUk8mTJiMbqCoi +IyMDHp2oMHVP0HXfpbev48eNx8YQ6livXr2waOJlGtTR9u3bYzoU+8r3VlIj +AlqLFCkCVSFwFQxl1dIaG7clf9UtKRa0xKtHmaiTRXlykk4W4ckpOnknT07V +yTt4cppOFuLJ6TqZ6CIRnKE3Lgm8pDd1SQV4cqZO5ufJWTqZjydn6+TtPPmW +Tsbz5Ns6mZcn5+pkHE/O08k8PPmOTsby5HydzM2TC3TSz5MLdTImtF4s0tOj +eUnv6qSPJxfrZCRPLtHJXDy5VCe9oWUE3eCh5QRd56EVBF3jofcIuspDKwm6 +wkPvE3SJh1YRdJGHPiDol9CiXk1JF0KT1lDSz7zoDwk6z0NrCTrHQ+sIOstD +6wk6w0MfEXSahyrIuG7duuFQrHLlyoErCONwEA3DBsniCBo6yLS0NBrC9evX +D4dvwSG638gEHyDveYWyDYZDMO6Cq6gwZMbRTd4ppQdmI2A//kGO/PnzB3rc +4H2NHDGS7tw+y4nGXjU9PR3HITBMOPHDiYgkq55otx7l2cDdeHsVxj6DXh6E +Q4tSpUqhrNatW+MAMNmqK4+my+Ap0y3Z1eiu8xkKy3Q7hj5D1UMYEsPQOTAh +kmriRLVq1TSP7d2zF8ZD4uIv+LDjJHDgwIGiXbt2VA9NTNDUGG4iqcwbPGiw +GD5suHZ3JrG3UVUsIiXAhKJVq1bSu0alyiaYIMIQ/9jRY6hg/jvzRWZmZoqH +xCjWZf5sLgNNs2bOgrkxDaZhzgnz8EsXL0Xw8sNzJWN2cQ+xfta9PquZhqGE +mm0F6jOuPATEkIixr49VkzpSDx4Dz8FVukdcpLwzOavXHtfArF5l+fabb1Ed +XOXxEOO0T4UNlYJRotwy7LVh2Ew5dumT+mRWdPj+6N27t5jz9hy8usdDntfN +RYZpn5c8v8GBblsMY8J7ZRwsK0CFHz1qNM3CApVTrF+33lW8fncc/tnWSsrJ +OGgqYTbqmKPLz+thWyHDA2vTq1wItSIwS9bi+vfvTzNOr2KPMfhk2tRp+ODa +ith9b+Ha4iUvt8F/blsMRVxJxsEDASsgE8ZPIDOhF4PlH6eIY9xx+CdXppTn +3YtSqnRfGfoKPhBu69yi4+kJNpWpbQlM+Qy6TJjbu+NmvjkTfcmVqd/gBFg3 +gBbTVqbuOwrXFlOZennNbYuhTDNk3NkzZ9GswIiE+pFRI0eJfXv3IQstFHQS +zZo1SzMnK4fbFgNVkcOYBR44pwBZ0fmp9BM9vBEVpmLl3aSkJBiLaXEL5i8Q +ffr0YUs/N+suv1i4YKHWoq16fxUuOZ8/d96zS48232xUmGaaKkZ235rNNHTp +lWXcpo2bcMnT8W4Mjmxh+Ar/YXQA3g48H2nmZFU2tgVaZQ0MYr8//n04mgtQ +RSloqCg2xcrbMJbyejQHDBjAVpRYg7u6du2KTTg0xTAih+XwwGTBa3wWbb7P +qDAt9KojsQa3Mha6pwxYO6rIXAUKFIAOVNMv651WhO441Tna1sJVXhjXTJk8 +RSstt7xCVOYJhjK3aVPWy0VxLQ6aYugquTLPY/AGeFQNKUqxBa3fkT9MW0yl +6+U1ty2G1Ug1C9y6ZasYOmSoph629WBbkSsMrwL3y2J33Q7+yf2GNJkFkmBD +zK0Omsf69euz6u6gss8nS1ven/JJjFm3qh0wBVIdqbseq3n13d7So3PoKXcB +lDAZ7F0fbFYmma0M18E5qiZ+8c3Ob3AjBHZxoBuDQS/spga6N3r6wq0izE6Q +qiJvzHiDpjjKWhhfQ4PONUF3UhVRuzpA16hRQ7Rs2VLMnjUbXETb44wBanwC +7SUM2ORAWsybOw92p5IMkqNz4Ca354tbrfV2IWNistXE8N0bZgWpKC3atnUb +diqFCxfGTgWqcKCZVDcNS37Qj8EWWqTcSAPrlJgyYXI+eYdeG3ruCgS9QKD3 +j/DJMCEhAdeD3Hdo01WQKtXtMgfs2GZmZqI//QZL1AogjMRAAxQVNE6BqQu1 +525ZMeE5EYoEVLl3I6GNUwYnsaLDd6yXySkecqNz6Gyb7YZtpi1UDod5aCtB +hpegtxF0kIe2E3SAh74gaD8PfUnQPh7aQdBeHvqKoD089DVBwZ4iWG4CItZD +YNjXivWIy03i8oSZ41aSEpLj1+QNSfVRatRvZv2tJOXmeNKwIXEr3eyt5DKv +HFGU6vvNrL+VpPzmla+aR1xVyljdI7UMpcbnOK+XtkTeuF0kbCcP7Sboax7a +Q9BXPLSXoB08tN8jbjuPH/CI28bjBz3itvL4IbLYAB0maIsLQuYIJW3m8x8l +aBMPHSNoIw8dJ2gDD31P0Oc89G+CPuOhHwj6lIdOEPQvHjpJ0D956BRBn/DQ +jwR9zEM/EfQPHjpN0EehxXqGktaHJp2lpHW86HMEreWh8wR9yEM/E7SGhy4Q +tJqHfiHoAx66SNAqHrpE0Ps8dJmgv/PQFYJW8tBVgt7joWsErQgtseuUtDw0 +6QYlLeNFY5jLI2GxJU+kR8K7ljzO4NBGOj353yxkNJGLLGQMkQstpJ/IBRbS +6UXnW8hYIt+xkE5fPs9COpv6cy2k807InNBqgul5Kf1tiyRnG9LwjSmGtxM5 +20LmI3KWhXR2N960kAlEvmEhnZWMGRYykcjpFtJZkZff1+b4hbBsn7YE1yq8 +X5xSi3M5+LQFQ2fxOLh7TuPm7Fv52b5nUfszzCs3as8tp5+2YOisWE7h7VK5 +3d+yqIUX25sgKq/t+xYMC5M1k3lr1CqY7QUFpdn2kQuGRUjzJLtm2za60uz9 +ZUuIvol2fbbd2UipNaefs2B4F1kywW6JbQ9QvUOVg+9XMLybjBhvN8K2VRXu +BysYJpHmcdR+ABCyr0GfUdn2RXKkPJmUjyXlXovm+aRbmfX2cD9OwfAe0vl6 +UKey2L2sml8+417LsG5tOf0oBcMUsmBM0AK2cS9O5GgLWZLIkRayFJEjLGRp +IodbSGcuPsxCphL5mot0hgdplP6qRVJZymg4kAHDdJI5xEKWJ3KwhaxA5CAL +WZHsHGghK5FMw3EQGGYQ2d9CVibyJQtZhez8i4V01lYMR0xgWI3I5y1kdSKf +86wXNeiyn2d6Lcr/jEXT/UQaDrPAsDapMBxmgeEDJPMpC/kgyexlIeuRzCct +ZH0iDQdkYNiAtHe3kI1IpuEoDQyd8zQMR2lgmEkyu1nIJkRmO3QD052TNzp7 +pjej/J0smh4hsqOFbE4qHrWQLUmm4VAODJ2TOQyHcmDonMxhOJQDw7akvY2F +bEcyDYdyYOiczGE4lAPDR0l7CwvZgWQ+YiEfI9JwKAeGzskc2Q7lwHTnZI5M +iyTnjA7D8RwYZhHZ0EL2INJw6AaGzskbhkM3MMSTN3BYXcdCPk0y77eQz5DM +GhbyOZIpj70I7gn86hmoOtgAhmNKjN/vVxLatGlDEthR1gt0F/IgjbySDGPG +qcbp8gttvGLH7i+Rokq8Iq8pZI604OABj5Yqz2spkBOJg0li2f9CojOVe4Xk +lL5JluHAFI/uSrlJEnGgjQeMFbtJEvHz8niIl98vx8mqFDJxUu/KwVcfUgAo +8No8wxBXhrAixumPFD8vihKdO3fGl4eWL1sO78GxwuXKrTpwIPuMx4ffPsGL +r8WKFfPc4XPLYduF/1E6/v4dDvaLyPUfxyNRZA==\ +\>", "ImageResolution" -> 96., "LightDark" -> \ +"Light"],ImageRangeCache->{{{0., 359.}, {221., 0.}} -> {-19.402618477936908, \ +0.8923747627909967, 0.7099700316630947, \ +0.001262238128389079}},ExpressionUUID->"8a200671-82f1-364d-8dba-8342607ad7b7"], Cell[BoxData[ TagBox[ @@ -2020,68 +6917,106 @@ MathPictureEnd 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"], +eJzVXGmUFEUSbug5kEFuQRiRWxgYDmFmGJiBEVRuWFhwXcHHcx6HKCCzAquy +gLq8VZBBDmVRkFMRlCcCgoAil7sIrByK3Mdws3LfN+R2RFdFVZaRmd1t43N/ +TE9VVHzxfRmZlVUZVd3tsgf27tkve+Bz3bMrtHgxO6f3c90HVGje/8WAyZ/P +58t3IPCXVMEXE9gWPp/0MUbcFgfhI7AtxB1xED7C3+6P/+LFnt17xPPPPy9q +1KghqlWrJurUqSMGDhworl+77stAn1hx+NBhkZKSgn/gV6xYMV9+2PP5xVsj +3wIv9Mxv+Y8dMxZjVa9eHWPfuX3Hl2qMVdAdS6crDUP5Rc+ePUXJkiUtIcHP +hIQEcevmLcvDJIeLkeCOYZJixYkX27dtR58GDRqIevXqoe/wvw8XN2/cDChQ +64iVe2Pvnr1i0ReLxNUrV5E6ABfDhg0TTz31lK+JJXnL5i2ic+fOVlD4jBPL +li4TrVq1EpcvXUZMnz59xMgRI9MZSEwIVHaGDx08JOrWrSsWLlhoZdMv0tPT +KcP59fSpyjAJ7jD4p5NjJzlvf57YtXMXYS6cv4BJzsnJsZqllGLleZClCNSA +KtjL1OS1RYsWaHczVqpUictrQSa0nYATP58QqampYtrUaVbO/GLM24GT+NZt +KY8KurQQw8QzEmypN67fEJUrV3adGEo6T64CPSBWfLNCmasYywa9mZiYiMPa +HiyZmZli546duJemSZqbw/Y7e+YsjpLcUblWf5g5UhlsAsNhZ2XCuxNE69at +XZ1g5vDL6alVqxYOTFN6Tp44iR3jhPCLbt26ieVfLzemx83RwLJBZzVs2FCM +Hzc+bA43luNIs5TDbFWiRAnRrFkzGFD+EGmsDOVYw2zUW6PEvr37cIjBUH39 +tddF+/btufnMbggIAYFuht69e4v5n89XJitWT9fIgpw/dx7b+s3ybyi0ia4B +g43R09kj7NLFS2LEmyNgwg+5dZ78wfWmefPm+D8pKQldAz2oy9+pk6fYHgoI +N+ZPQZdhQTas34BXOfcpY6JLZ7B+PZ3dXVlZWXTmhUon5S948lpTnK9pBBOY +dcnRJE3myLIm4+LFi0Msml5N8e0B4cJRk93xG1u2AQMGiI9nfRzS5GVzaFKT +ZSXDyrbdzDirn1q2bCk2b9pMrYE5pEqVKmk6lExgt2/j9xvxsu3WffrU6V9c +nhSMqWGF4VP37LPPisWLFodCF6vOWBNrCMB4bNSokejUqZOYPm06tN9np+2r +ZV/h8L544SJeg+HGb3Tu6FQjlMtd8D6zbNmyGBZmG7jQdezYEWYhmpG0lKGE +kKnTLdwPW37AO6uDB3AJIbb9tE1UrVoV8CZqTw7hBjg5ORn+Aj0Hn35MgM1o +TzVrVq/BqzMkJd5K2Lix45AVLk39+vXDgd6A8Y8LkSvVUr5p4ya8HypTpgze +vMN9VSB2rIY2TQ+NCVFBikUx99O5onHjxniBgfwHJkurFTy9lVTVAq+WRQ9r +RpsKPxf8fxyvFLQGDq+Aj3w6K8bKD4ZCTNSEcGxOFOXWvb+W47ew/U7Vx7ht +8FcODPdoFSd4O/kx2nqcIXqUsT3G2HCWKQamxnebqj58FgJTjCoKT48OLeGj +IOw+wx5vBh8FYLe367ifjuNUHg+7L/Cnns/2xKk+DvYHGDxx0oqF/ZcNnnXJ +c4jbM8btSVKT4QMPvWZ2rk6Rh/PONgA2HqLIb5idK5PzSJdzLB2vQAnOZY8/ +SMffdpPFege/k6VEYhwbIqIMcbwTIqI0ISaoUyCNrBKkaiLfy7CXn7HhZ1EK +NikCdGFSOzkCdCFCTzGgndYmEGZayJiCtDtDjfGrVMYR48wI0LHE/ZEB7eiN +IcZZIWOc3dkujF81nd2ho3NCcb9N0T9VK+KAtwg41wBEp5u09ZnaPZaxXSPg +vPCAVwn4eXjAKwScbwCik+OuubVy3C/T1kK1exxjO0/AReEBzxFwsQGITo77 +l6G4n6WtJWr3eMZ2ioBLwwOeJOAy7wjn3H8m968NPOjkuC9XuxdgbMcZm4aR +C3GMsYWp4ijJX2EAopPjvjIU9yO0tUrtfg9jO0jA1eEBDxBwjQGITo77t6G4 +59HWv4LuumdowbkiBlfWGRkZUJ2A52n2IhHKX7B4rF27Ni7CT/x8gi4eR48c +RQWBYz77WRksKIcMGaI8bQsytn2MzWpocAirHsCQeCjRwBM2iLDuu3V21fHY +0WO4SgahEGb2x7NhLW9P/IEIuMa+dPESXfSXLlkatv69jM3KfDBX9kMRYrEe +ilg5DtpArF1Rs21vvvEmdhrsuat28mODOPH+e+9j8RcqP8C3Y/sOKEVxEwfX +gD00YNaSbNMTC3tRDE2zKlwkERL43sT3rM4J2j6c+SH2xZHDR9hTwrnpcdR8 +R2pMTwdsNTVr1hTnzp6T1EydMpW61E7snNlz0BeGM04EeEPK5WYnqVlHavL2 +62vttpry5cvDA11JDTDn5Nhl+KDtg8kfiKZNm2KuuT7jlr47SNd60mWqYdu6 +oB+4LA0dOhT3bA1Q91ry5RLlycDp2k66NhjHkj3cbV2uaqk0lmB4u3WNzh1N +VVqlLtTgqPmPdEJaTNIJCTMf7NnFDHjCAmU378m3e9duyQYlc+thDdn69+8v +ZkyfEYLCbbT1vTTlKaqevsJWzOPHjuMItiunsz6aJdq1a2c/ic/OzhZdu3bF +EwcOQzfC3Hzm9Bl2iHE1rq2MzUqjfUXhaohFrGPwXBRGGqiEfAekUE0XRgT0 +IJwhFStWFG3atIHRwF37OWU/UtI2BvVwF0Sn2OO4bwrF/Qfa2qx250pemxmb +hpELsYm4t4QH3CjL1wBdiZCPahgLq4aCk9/QgRsIuNUFRB+lOzcANIzOBIRb +P4Xivl4+J3n3IoxtLQG3RwD02EzczmUat3ao3Ysytm8JuDMCIHcJCj3EGuLe +ZQA6d8a4tVvtXoyxrWJsGkYuxErGFqaKFSR/rwHorGtwa5/avThjW87Y3Ix4 +hAN+TYz7w2P8ioB5BqBrfSof1TCWYGxLKdiBCIAem0Y0F2IJcWuegZUgJ8f9 +kNq9JGNbzNg0jFyIRcR9OAKgx2aS79RsnDU0734fY1tAwKMRAD22MLnnE/cx +A9BV/2LqEe4TrBTjNI9CHFfzKIEem0ZqKeLhgCZup3rpFIp499KMbS5j+294 +IT4l7hMGoKsuKx81iXYqwbh1Uu1+P2ObTcBTEQA9NhO3UxLHrdNB9ygXcOxj +8NoUvDNdtGhR9Bk8eDC7OPAo8xy1snJXSjX2gqBDhw7iQF5w9ucUlmFsH5Hq +M5bCaBdj4twVEfxbtXIVvGqFr8sGIEWKFMG3N1566aWQZX9Iss+S7MiLMfHu +Ygz+wcIfOvvqlauUgpDS63oqJB910hutMo2dXqjQWUtw/LN0OhUbZ2Q6aTtH +cvKiVKex5Vy5fAWbB+9feuV4clKWsc1gbE4fR6t4Y39DYeI/J2IJwyWUra1z +SqdTMs8bx2C4RRxbH0wOaWlp+P6rUZ/raah81OlssESjrBNjfUJBBd67NXUy +SnMSdkGaDSOs4sRZGuCNzSZNmuCfQkMiY5vK2KyOjLRwY88KXyz8AsOqeouT +M4WSczEogrv6JZITp/5CKECH55La/QHGNpmxaaRyISYR92UDEJ04RpNo11sP +8lENYznGNpGCXY0A6LFdcYXAI+UousNzTc3zIGObwNg0UrkQ7xL39QiAHptJ +PvI4jDfU7uUZ23jGphHNhRhH3DcjAHpsJvnI4zDeUrtXYGxjGJtGNBfibeK+ +HQHQYzPJRx6H8Y7avSJjy2VsGtFciFHELbynWkU65HHKZ6BwMJ6jQg2sxNhG +yLT5I0BzAjTyKxGjh9uvxlRmbG+ouDVt4OL8Q1YRY0Cjp5Jb04YqjG24zB0b +AZpToWlDFWL0cMeFjOEYNcqrMrbXZO74CNCcCncb8HBV4vEwFvB6PsTEHKbi +0ejl4gyVue8xoNFTyV1Aja7G2P4mcxeMAM2p0LSBizNYVpFgQKOnklvThuqM +7WWZu1AEaE6Fpg3VidHDfa8ak8TY/qrittoQ5ZKS/Z0W+Ipw27ZtMRys7lat +XMWuEzjJg+QGB9dId/MVoHiMBM2AdRocztufh9kI/GcLIUkkUZlfq598d/fN +H9s25YMpYtCgQZJt/Ljx4tVXX7Uy8EuZNRjbADn3RagR0XoPyLbBGIOXrNy2 +BfMXiO7duzuCsbbDDZEBqqwXJsHRrUH5cYTDCyduG9RackflcoIxh55sFiVx +ML6iV5GKx7eGYLzC1/ygKgXfP4TvKsL357jxW0OWyGXS6fpoVaTs8hl08eRJ +k/HlGCg7d+nSBV6c4aaHmowtR05qMeMQDbcyZdtmzphJw5F7xakmCfmLKolO +j4M5mm8bXbt6DSffQOJYccmM7QU5c8Utcb+qRGXPuzAYoDPhdzYC2rhX+5SS +uMxZ3Rppncq+RsF8D+8/wVwLf4Gxxp4QyZQaT5KCz4Lp1tn1nWt2TuUuy31V +bbQ6gMNwtj6yspIGNHoquUuo0bUZ23OqOBoVXJzechtKGdDoqeS+T42uw9h6 +ydylXWh0VGI47lIsGqN7eO5Xq6zL2HqoGEuHF6e7rKKMAY2eSm5NGx5mbNky +d9nw0M/I6EQDGj2zVco13PUYWzeZ+4EI0JwKTRvqEaOHu5waU5+xPa3i1rSh +PjE+LXM/qMakMLYuKm5NG1KIsYvMXd57ZqUy6D+rGDXKuThPquKUN8RBvU/K +yiuqMWmM7QkVdwVDHGR8QuaupMY0YGydVNyaNnBx/iirqGxAo6eSW9OGdMbW +QeauYkCjZ0cVt0Z5Q8bWXuauakCjpwfzUMgYTq+GsRFjayNzVzOg0bOtitut +HA9nMJ6tZMbqasYM8vRgktSYTMbWQqVXw51JjC1k7hpqTGPG9piMrmlAoyf3 +rX8TdxPG1kzmTjag0ZP7dQGT8izG9ogqjkZFFql4RFZeW43heLhc4GcwwN0q +bUHVAlZksNqBN6cmvT+JLW05jWsiNzN4n3l3C1rr163Hw9ZP9eHbFfA1nsB6 +nF3/NCWJmbLYupbY36aM1atXL/HJnE8kG/jA7+0F260Y/soJFPcfpkZEu4z1 +yiuvYOrdNvgRJMBrBaM4bqb2ZD26Zax4sfXHrViQtZfxgIERHljOBwcGlrC4 +nDoXcNyvRxLz9kenmGW/EQSVCL/fjwMrPj4eapjsCeb8tolHWn2SFt3SVTwW +R8AXuhy2V69ajfPA/n372dOK+8GWFFlsinFsRlq/ggb07dtXskGd2G4UNzad +6xh3t+zJLpijWdN6Z/w7+KqV2zbvs3miR48eSsGPk2BuUSRlOCpfqIPXI+Gn +BOE3ZeEwjDC4gATOR3YENGdszoIb94Nrg4hLXfZ1ae2/1+ILYvBjh3CGB+ZR +9rRpTuweHcH7e/by69wc1ZYx6WpMS/JMljEN1ZhWjC1JRjcyoNHTg8lQY1qT +ZzUZk6nGODfTVWVMYzWmLXlWljFN1Jh25FlRxmS5MAhxlhblZc9H1NH/QJ7l +ZExTNcZZciXKmGZqTEfyvJ/04pFH1ZhOhLlP5nlcjelM0YvJPM3VmD+RJ06u +MYRpqcZg6QF/CimGtvBIGzWmK3wWIM/2ak/8/J38TJ7pOG4bfgvel+9/Sn8S +OQ==\ +\>", "ImageResolution" -> 96., "LightDark" -> \ +"Light"],ImageRangeCache->{{{0., 359.}, {221., 0.}} -> {-3.233775858153751, \ +-0.007969775184554129, 0.11832856225129938, \ +0.0005589111396958131}},ExpressionUUID->"06204099-db57-8e4e-bcc4-\ +fa1ae37c0063"], Cell[BoxData[ TagBox[ @@ -2094,9 +7029,72 @@ Cell[BoxData[ Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", - RowBox[{"{", "}"}], "]"}]}]], "Input", - CellChangeTimes->{{3.991799458254999*^9, - 3.9917994623413925`*^9}},ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-\ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.003836"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.01141"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.018699"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.025527"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.031739"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.037207"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.041837"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.045565"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.048367"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.050245"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.051235"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.051395"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.050806"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.049558"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.047756"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.0455"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.042898"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.040047"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.037039"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.033955"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.030869"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.027838"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.024912"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.022128"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.019516"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.017092"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.014869"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.012849"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.011034"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.009415"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.007985"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.994082735079891*^9},ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-\ 5e6c7b4b5678"], Cell[BoxData[ @@ -2512,70 +7510,101 @@ MathPictureEnd 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"], +eJzdXHd8VUUWDqm7ZJWqCCgl9I5ACklIBJRqkKYroMGIgQhiIiAoP0AQpUtb +aYoEREBlVQQUUMD2c2VVQIoUEWnSi0hVUGbfmTdzzr2POXeS+OJvd//Iy7y5 +33fOd8/MnTtn7tyXljEoK7N/xqBHe2VUaj0gIyfr0V4DK7XKHuCrCisSElJk +v++vVqWQcF9ZhIS4PqaI38UB+PCVhbgmDsBH/svZ8l+U2PPdHtG3b19Ru3Zt +UaNGDdGgQQMxaNAg8esvv4YkSUyEOHTwkGjSpIn8A1yJEiVCQuFbSJiYMH4C +oCQyVOGnTpkqbdWsWVPavvb7tZBYq62iTlteuuKkqTCRmZkpSpcurYT4P6Oj +o8VvV39TCJsck41opw2bFGUnSuz4dofExMfHi0aNGkns6GdHi6tXrvoU8Doi +3K3x/Z7vxcoVK8XlS5elax9djBgxQnTr1i0kRUn+ZvM3omvXrsoofEaKNavX +iLZt24qLFy5KTr9+/cT4ceMTDJTwPLjSET544KBo2LChWP7uchXNMJGQkIAR +DvV2H8uaiXaakX9ecnSQ9/2wT+zetRs5534+J4Ock5OjTouVouL8pFIEakAV +fEv2iGvr1q1lvdNjTEyMKa5FDaZ1AE4cPyFiY2NF7rxcFbMwMWWy7yL+7XdX +HBl3cXk0E2WQoKVe+fWKqFKliuPCYN0FxMrXAmL9uvVsrMJVHbRm+fLlZbfW +nSU5OVns2rlLfovzCJrTh8b9dOYn2UsmTZyk2sPuI9bAjTb40FGZ8eIM0a5d +O0cj2H2EucNTr1492TFt4Tl54qRsGDIRJtLT08XaD9daw+P0Ea/qoLGaNm0q +pk+bnm8fTq7JR5xSDqNVqVKlRIsWLaBDheXRjYpQjupmEydMFHu/3yu7GHTV +USNHiQ4dOpjGM30iIAQEOj1kZWWJZe8sY4MV4e0uUVF+PvuzPNd1a9ehaZu7 +eAM33Nud7mEXzl8Q48aOgwE/z2cXED+437Rq1Ur+r1WrloT6WtArfqdOnjK2 +kE+4NX6MuyRF+fLfX8q7nPOSsblLMHDDvN3p5kpNTcUrL6/uXPHzX7xqiAtp +XoABTN1yPILm9pGqBuOSJUuCLRxebfZ1h3Dw8JSd9pupuoEDB4rFixbnafDS +PjxCk6qCoaKtTzNStVObNm3E5k2b8WxgDKlatWqcF8vtQJ/fxq83ytu2U/fp +U6evuz0xHmPzZcYcuj59+oj3Vr6XF3cRfMRSVBeA/piYmCi6dOki5ufOh/MP +0WH7YM0HsnufP3de3oNh4vfCpBdirVRT7PzzzHLlykmzMNrAja5Tp04wCuGI +5OkyLybcrhMUb8s3W+TM6sB+mUKIb7d/K6pVqwZ8m+uAGMIEuG7duvDnazn4 +DJMB0B71UPPpJ5/KuzMEJUoFbNrUadIr3Jr69+8vO3q8AR+ZR1+xSvmmjZvk +fKhs2bJy8g7zKp/tCA+3cd7U8DwqaKJcLH1zqWjWrJm8wUD8fYOlOguzexVU +LsGrp9xDzqhdyc93/zeOx/hrfYfXw0cRr1ppKxQq/mawGp2fOrLClm74oz7+ +jLr/U/VUig5s+juxdJfBbEtD3Z15xLU0OpWYln+yUwdIrgZdd0GFO48LDVlW +YIiGXQdxqw1F0DtOUITLjku1Eydt+W/EWpMf9HYgKNTgW37+00tbATl0Um/x +yDDO+lILh6x76AjnrL9ZCBxS5KE9grP+hoVD1p06JDCSs/k6bzPSbdPDexRn +fUkhcEiRh/a/cNYXWzhk3UPHXznriwqBQ4o8tBflrL8W2BOKum16eDfdO+Tn +wkLgkKLXeKRp7iE/X7VwyLqHDtN9W34usHDIuoeOGznr8wuBQ4qc2iWwGGcz +l7dZzG3Tw3txzvo8C4ese+gowVl/pRA4pEhp93r44h+zw2VKlpSUBGktPIjR +2QWsm0DWUb9+fZm9nTh+Qt1EIsTw4cPxeU3x4sVFnTp18NnP2Z/OoijTTack +d3Jz/ZL9Iya3ZI+qIamHZzJgZsMXG/Q61ZHDR2RedfjHw9LMksVLIPvTI3fH +jh3F9m3b5TfTeFvSHUUVbzUJUSvjOHVQK+MqJv468K+XVXTd2DFjZQPAN+fS +jV7BisijuFJc5F5GmbZlaj0awamoZQ2UNGzYMDF71uz8S6J4zUUhttVgLcTX +c3SPQSHzXpknxXgKkZNRNiIvoZB9P3gvq2ohFStWhGd3LiGvL3kdHiPlKyKl +7ZJsK5VaEvRjU2zg6su3JGoke2/RHVgLcSyCuXrLnNlz8iXkJi42c1zXmXLn +us5gcIJv+oYHq+ewpBJ4TX23+ztHXYRchFfNquUZpzU3uWOkG8s/FjELWOpe +FymOHjkqO7JeBFv02iKRlpamR8tZM2fJRWxYr4ELj9NwMxce/zWJ52Ra9ymm +jsGzLOg3IAfi6LsOcciENb0xz48RZcqUAQ2sBArDRPiQCCbdNHAm4NcbeE4Z +7lTHIvtGC5s8jkGVxRwcWXEL52c0mihh5JD1Z/FASV5RWc7PM2istIVNHolz +U545w1HlzTynHKdyKBq7xcImj0+jx7I8pzzncTAaK29hk0fi3MpzbuU8DkC9 +txWA/QT6rhjYX251qyRkpUDkbZz1x5FTmdd2m9tPfzQbw3MqcB77orGqFjZ5 +JE41nlOR89gH2dULwM7Es61hYZPeTPxai+dU4jw+jOzaFjZ5JE4dnlOZ85iO +51g3sOdUdvtJx6/1A5ExnPUeyGnAa4tx+yFOQ55ThfN4P7JvLwD778huZGGT +XuI05jlVOY9dkB1rYZNH4sTxnGqcx47IjrewySNxEnhOdc5jGrKbBvac6m4/ +hEzk/dTg/LRDdpKFTR6Jk8xzanIeWyE7pQDsu5CdamGTXuLcwXNqcR5bINu/ +/SDYubqe0EMmDM59x0L0hkiYPeoMy7TMWst9oiS1hV9qoeToerHAZ0FOky+c +v4BT+9WrVnsKrs1FORWlt1TSCzeX1/sGIDWCtBNyPfC3c8dO2FtgWkGu7Q42 +Kb4TFQcrrdchXvjqQtkCPx760ZiJ1OHCmYzi7kJxwU71IesGLHRiSvUDokRC +WqGQYKX6uoPNfXmuaN68uYy6qeHqclFqiuJao7hgJf1aCGxpWPX+KvaKqOuO +F0lqY+1V+U3/tSRfSox7b0yS2If7cSiuresiDd5CgH9flNqRh3XZ2dliwfwF ++Rcci4LbKcFBWCiIEhkZGaJHjx7yioLD0L4wVJ85fcbYAekxd4Cq9n5VBV0w +0Bt3oINAg8IFU7lyZdG+fXvoHKalnfpcqBqhqLv9okxBre8+EeKk8ZwGnMcG +yO5gYZNHkzEPdkPOt2lIuMdhJwzn0uS7Dn7tzHu8nfNoml90stgh3ya2h4pG +nArTfLNLAeyYZspdLXbobEzse3l2Y06FKYe6z2KHVFAOdT/PacL5phy2m4VN +HonTnefEch5p/aJHYE+Ndfsh5AO8nzjOD61YPWhhk0fipPOceM4jrUz2tLDJ +I3Ee4jkJnEd6HpJhYZNH4jzMc5pyHulJZC8LmzwS5xGek8h5pOfHmYH9JdHt +h5C9A5FJnHV61t+H15bk9kOcLJ6TzHmkHRqPWtjkkTh9eU4zziPtq+lnYZNH +4jzGc1I4j6bdTh6+U9y+TWwPFamGumto8XELUYIInh3Yc+4wEK8iPMcIl4cI +9AQvobmh7hckDrAQJYjgA3l4C0PdRSQOshAliOBP8nDTJsJzSBzsJxbKykOU +fF0BcgSohzfU4BkYpC0bv95ofDxImxtJ4RC/wkJccIiSO8TBotIhtm7ZKho3 +bgyzdOO0m/aUnsXSU0pn4a4uaDWQDObOy1Wnd71C07bT06j1adQarHUFreHY +0WOyN8AudVPkaMXsjOEoxTBYSwrh6hPe6KtQoYJ8bW3WzFm0qmAK1ElDHYUs +WIsMWhq8bLFt6za5yd8XdtN1QSubJmlDUVqwlhh0awKve/furp7n9NzaUHcM +tQ6z9rL8rjNoXZBdV69e3VuX1EBqhruuz2AsLGg1kNPD6MapaYMajmBphGtU ++0OrBpGiZ8+e8i0hGBChN/Xu3Rse85t6UltD3SFU9Yxf1R9dNTh+7Lh8lQpu +CYAZPHgwaGP1SN+kYqRfhelm1s5Qtx+JoyxECSL4szy8vaFuLxJHW4gSRPDn +HHCJvhsP7cHS87zNNEPdLiSOsRAlaLfhqIfHDoa6HYY6D98d0PcOLI3j4fcY +6rYhcbyFKEEEn8DD6dnZFixN5OGdDHWbkDjJQpQggr/Awzsb6r5C4uTADtQZ +DxFoCm+9i6FuAxKnWogSRPBpPLyroe5zJE7nifca6j5D4j8sRAki+Is8/D5D +3cdInGEhStAnhqMeHul59EeGox4e7zfUrTXUzbSYkL7XYml2YFfqhoc+wNIc +3mZ3Q90qJL7EE3sY6t5D4ssWogQRfC4PfwBBK7DksWn6QUPdMiTOsxAliOC5 +PDwdQW9jaT4P72moW4pEj639PRFEcOf+fol+CA+9gaWFgaAMg/XFCPd43yED +QQT3eGHjYbdNIprhvQx1C5Do8fpLL3f4ZMnjXZxH3K1K0TLDMw11c5Go3mwK +cpatj8FPJ+h9+IAZOnSocR5Ku6FImXqjq1Cyaz3fg123+/fJeZdRV2/3+CFL +6t23oGfTkc7sVv59/NHH8NMK8udxfJRixYrJt7WHDBliFEub2GZj6S0UW/B0 +OsqZTss/SNCgOS9fuownfl0oZQ5LmmZg6R3UFKxUWgcQdmeotEj+KU2UUmcZ +wjYdhS1DYcFKpLWwSxcvyROF31YJFBYgp6+hbipKfBclBiuh1r85BhvBIa10 +yDMuhNFGS1K13NrL8ptOa1VwqcfFxcnfsfFS1Q+1TMbSCteFGoy0Wq+LQJIL +v5rj0YyPoYxJWFrpGtEKmFlHKg2wgJmSkiL/GA390TPte/f/gkiB82g97qxY +vkK64tqDNg2Pw9L7fteme1Q2gsZgaRUPzzHU0ab51RYiJcqytMYBl2jaJD0S +Sx8GggbgoRFYWss7HoigYVhax8MHIYh2v6/n4U8iaAgK/IiH0151In7Cw4cY +6uj0P7UQQ93R+oyHP4Ug6g6f8/CnEUT9/F88nAJJY8UXga1KjdMH6zbwNocj +nCYwX/Jw6ik04/uKhz+DIJq3fs3DqbPSjH4TDx+FoB54qpt5OL1pQrnbFh7+ +HILuReJWHv48wjsjfDsPp5dqaI1lBw+nIehuJO4MbPrxWGqDpd28zYlok1bA +9/DwSWiTnpHt5eGTEZ6CpR94+FQEJWJpPw+fjiC5MixnRgd5+IsIvx1Lh3n4 +TATVRetHefhsBNXA0nEeLtNx+SMdFbF0iofLNDkSqm7G0tnAppdZaFEoRWLp +Am9TpmY3QtUVHiQ//0t+mMh2XJYtv74bUuQ/PkeLDQ==\ +\>", "ImageResolution" -> 96., "LightDark" -> \ +"Light"],ImageRangeCache->{{{0., 359.}, {221., 0.}} -> {-3.233775858153751, \ +-0.0043827503402644324, 0.11832856225129938, \ +0.0003073572253865838}},ExpressionUUID->"899e43aa-c372-6647-a3e4-\ +4952f308ab17"], Cell[BoxData[ TagBox[ @@ -4341,74 +9370,112 @@ MathPictureEnd 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"], +eJztXHd4VUUWj0leHiEQqkgnQKgh9GJAmiIlWUJvK0UIvUlVuiCudAGVIqgo +RXq3geIKKGB3daUIFoqCBRBcirTZe+beOe+elzl3XhJ2P/b79o93k5n5ze+c +OdPOlHtb9hzVv8+QnqMGpPWMazai57D+A9JGxjV9ZIQVFXFXWNhdP1i/CnFh +kdb/IiyMPOaKm+I4PKz/hbgljsPjP/N/afknAuTCfzIkn29nIN1JzmCuLKSH +yz8+MW/uPFGuXDlRvnx5MXDgQHHr5i0rFtIixbU/r4l69eqJ+Ph4cfLESb9D +OWjQILF0yVIZiubErINHFMTH2ALDZHax460dokWLFuLSvy6J69euS7IZ02eg +zLO/nRUxMTGS8MD+A0rm7vd2i+bNm3vLXAyPgm6ZERLQrFkz8cXnXzhljhAX +L1wUpUqVcixgx/3040/iyOEjMqSE3rxxU5QoUUKcP3eeFzoXHjkhvgQKvXH9 +hihSpIg0ZoST8b777hOHDx2WoVxO3NChQ8XyV5bLUDZ4RmIzmAaP7BCsgLS/ +/vKrqFq1qpPZfnbv3l288/Y7hPb9ve+LVq1a6WgnwyMagtWQ9vvvvhdJSUmE +tn///mLL5i2E1iqNKFOmjPjj4h82rc4cE+CRDeLroIDffv1Nq/eud3bJUG4n +bvjw4WLd2nWkDtIJGIMNq77R3qpClYD9+/aLTp06eQsYBQ8fxN9PWhE0v88/ ++5y0IugZEMrhxJ07ew5LoBRJSEgQVy5fkaEoTugjWKqmpLvs3LFTNG3aFGwu +uyN00Tmz54TldIiOHT0mWrduTQSOGjVKbN2y1VvgIBSYTAeE+fPmy1qGQWHI +kCHSpm5puXLlgsq0QvYTOsjYsWO9pfVDaamu4Skw6PVGm7c1DF89sT13NCC7 +I7KLAfkQIrsakJ0R2cOA7IDIXgZkW0T20dqmNQb7a9NbYv6BBkkpmHGIAdkc +OR8xIJsi5wgD8gHkHGVANkbOxwzIhogcq7VNfQyONzDVQ+REAzIJkY8bkLWx +xFMMyJrI+aQBWR2RTxmQVRE5XWubyhicqU1PhEc4BGcbJCVgxjkGZAVEzrWR +mXBD7OgoOR1ZQ6GoXbu2qFmzpmjUqJHYu2cvOzOVQ9nzbdmZ80jsaL+YNXOW +6Nixo8wGNEe/OSpLcOjgIX5uKYM6POvokDkPRcWBwDOnz8iQyrt40WIxZswY +x0qMIvFYuQtQEZPXoiY58BVO/3SaCF24YKGY9tQ0b6GlsPQLUajJp8nhmHvZ +S8tEhw4d0NygVIUKFcDstrkDPk4JFLMYxZh8nJyOWceNGyeio6NFyZIlRURE +BLgovK9THAUtQUEmX0eV55OPPxGJiYnSJYHJ/aUXXxKNGzcWf179k28+xbDW +XjDWmmoqOVxKbFi/gdRat27dUDG21opgKV8kbdbLH1IOQ7t27aTr7hYKTu/K +FSu9hRbGki4jnZXzh2Ids27csFE0adJEpgP+qy+/kmPKLz//wpu1IAp7hY5K +Ol8ol5MGFVa9enVZ2SARTMG2lAJow+WuETIw1t6NGqw0jKD5MOMqAzIvcq42 +IHMj5xoDMhaR6wzInCh9gwEZg5wbtbbJjkybtenRmL7FIMmPGbcakFHIud2A +jETO1wzICOR8w4AMR+SbRk4r6q1gs9zC/Dv5/DcQ7rFjcB2ZdvGgawh6lwdd +RXF/50FXkGk3D7qMoD3BBb+ESXuDk/7ApA946osI2meD7nZA4BcoUIwm4wXM +uN/OmAm/JtLJsnnTZpmldOnSolatWmLTxk1h2TUyz2PZDtgys7bDAv5Lv379 +RFpamnaz4xwW8SNHXOZcF8Xdpk0bsW3rNhnSjcxnUd7HKM/koah1/ocHPhQN +GzZkuX9D7k+QO1RH5Py586Jz586yiqpUqSKX+/nz5w9M3NIR+Rkr51OUYPJB +lISUlBSx4Dnpl4nfz/8uWrZsKX2SUydPaUvzM5bmc5RlckNUIz5x/ITcoBCu +CRosERsbC7WmlXcG5X1hrBlV60rent17RNu2bYleBQoUkH0BQjqH4DTK+wdp +eaFsyBz/4bioXLkyKR+4Xg8++CDbOn5CeV+SjuXte0TJegI/GLBWXYkaNWpA +S9Q5BadQxD/peKHzOGKdNGgLXbt2lenQ8l7b/pq2p55E8q+DR8ETmHSQHwWP +I+gQD/oBQYd50PcIOsKDvkXQUR50DEHHeNBRBH3Lg75B0HfB1jmCSd/z+Q8j +6AcepDpenz595OBgrU+tEDxj5NgL3cXByoEXmlLFihVxUIEtPBhQEpxG6oXx +Oc1DN9VUdvSALv7NEVn0sMgQOIuhTaIcdmuCkqts+EGOPHnyWI3WLtfMGTOx +5OaJzycHIVj7QMeEDgXOeUmjHJ9bjrKsVRq9VWEwmPz4ZNkJy5YtK7lguQ6D +mllWdiLLw1JZKxI1XYRHZXkVJ4e5HcIwD9OBNeE6YmLEvffeSywGm7vWkKL2 +qqXvMGnSJNGlSxdsh16YSGcYZPwP1RSnTJ4ipk+bTkrnRVsU+5uaQyxvQ7Rv +396xrqdQpRM4IJUqVRI/nvpRClj96mqRnJwcr2GMZE3mT2cykAQbE5ZLhbML ++DSwMXH1ylWskvT8oZkyA2r7WfNGGNWM4RtQNSfOas/SGbVokGLu03PlEZlb +PFgMLAehKpq4cKdkjtdIuqvlNapGcujgISkOQtk1NIWwUeTQ2MLnLUSZBfar +YJgK6EW9yVIsdej2gM2OFctXsHy6woVnQT+/hwHdumTnq7y6EweOLjT42bNm +Y9ezGqd4d9e7rur1u+Pkz+SkJzpxMFSCewahaA1/YFcmp6agqhJN0pThoC1Y +ziKJmzBhgtwt5YwZ5WGJ5xc/L7urqWLdJcqKLtk8rObWxaNiazhx0A1gHfLM +/GdQTZi7YH0SqNgod5z8OSskZXn34kjV6ZNTn5TdwK2dm/oerNNYjzo1LcWU +zWCiBKfYHQfbcmBLUwfRGQEcbhgnTXXqLlFWdMnmYTW3Lu46lVVa0wFd+P2C +VAZ2qdWcAecS3x6TDrAcjWBCSE1NreSdrMxsWqOqigb/BLpZoNpY6kA/zqWx +QWSIgpVN4bjZ8rtI3JrVa8SwYcOMdk5vLr9Yu2YtGb3efONNuX0Blxx007fP +u7CRt0HN9Lb1VtNj+q7lxH304UeiTp06LutGSS8WXFX4C54AWNvqFZW8k1Xd +mDYY1EwODqs6LDJIDgwOuTXWiQxRsLI2+E26Djlx4kS2BqI9zNW7d285cMMA +DN437NJYCwOdL+bzLmfkbdBQZ1ZGQ4/lQW0nLm/evPI41a2J0wJlqIomTk2O +pp0f1RDAm1m0cBGpNzdfwKXL41H7JmlKe2dviMTBUAxTJWfb7B7WANsql6Ic +W+W0RP4s6BLtYTW3Lrn4ylVd5NNPPhVTn5hKxMMeMOwvc5Whq3C/U+2u4sif +s+2W4GSBJNh/dYuDgRLOyDhxgSkit1PbTvmUTaK8ZavWAQsfNZG627FaTcfp +2X0ZtJS7Asp4KaxvD1nUMlQDZ6iZ+MXBrw+KwoULy11OmNDA6YU9emuiw94X +ahNhdkpVE3lh6Qu4sFHagn8NQzs3BAVPDj6Jrlu3rjxjfnnZy2CisChvBZSn +AiMnOGyOIy1WrVwFu7clPZh9GTCT2/LxRm31Jsy0iqGbN8QGUs3R6LNPP5PT +S6FCheT0Ak3YGiZVoWGjD2Y062dJgKd9/K9oKoaIi3BKqNsJdzcgmAXc9xDz +5csnd4HcJTTJyoONKp+TA84nkpOTpT39HpqofT/wyUACVBUMTtbSBY3o5ooK +zYhQJSDKVtV+whinFI5jqUM3bKgq+zJobJPu0XwT+xjr4awLFBE4bNQcDbpB +BzD/77yQ/Qi6wIP2IegiD/oAQX/woPcR9C8etBdBl3jQHgRdtkEF7SRZcOtx +F59Vdzz0/7jQ48Lx9O8OUei/FidLnv22/OexPr3jin3Hx0ViHPy1frrj5TtP +7f/J1pmUhbiAgMSMsMgcdfG/e3jldiHoOg96B0E3eNDbCLrpAknMTky6FZy0 +A5MET/0WBXnMVG9SZDiPfIMiI3jk6xQZySNfo0gfj9xOkVHBZtlG0/0801aK +zMYjt1CkhyO1mSI9DgM2UaRHL9hIkR7bSRsoMmewbdbT9FieaR1FeqxO1lJk +bh65hiLz8MjVFJmXR75Kkfl45CqKzM8jV1Lk3cFWXEHTC/BMyynSYzB5hSIL +2sgMX/tg3tWIlGsKReP3+xWD8y6eBPk0ar1M1Spkq6XWtOmP6tJdblSTo3Mt +TIZ0E+YyKqgwL0g5g+4rjaFKeYlKKcJLyRsi44uUsWgmGKVD8YKG+3bpyHJn +RtsgnqUcd7Gscy/huItj74DooF063MGEE3gnG4jS3eB9ntZeHPLqdncUb69e +veRuDrzhWbp0aR3vYspr7xnhOt29xldb7XAZBU4nihYtqr1rvIgy2jvWrjFp +IU0vHZy+gKbHu9KDJD1HkWV45LMUWZZHPkOR5XjkfIoszyPnUWQFHjmXIisG +2+Zpmp7AM82hyEo8cjZFJvLIWRRZmUfOpMgqPHIGRVblkdMpslqwbaZzfbBq +MHIah6zGS3+Ky1Odz/M3qnFNHvkkRdbikVMpsjaPfIIi6/DIKRR5b7C9JtP0 +JJ7pcYqsyyMnUWQ9G5l1L0LtjsIeuOU9uG7TRoiCBQvivRDd5fGJVCf7VD0j +LoQSfvXKVbnRP378eMwOr1l6CZ9AhdfnhevcCnXkAGeePXr0EH379lX3y8T2 +bdsBp92bGk+lNuClqjkFTjth+If5xrK9btk9jpI25EnV/Dp48GD5xqalssvT +GEN5GvE8akseXlKEq69uM7k1C2JsbGaEXWl4wfPc2XNaxsco4/08Y34nDq7+ +792zl20Ij1LGB7BnCI0Hoa7JQC+AO752yH7CVQJ1/UsnaDQV1AQF6VyKXK4G +Bjv3cGh0+dJlGYY7SSkpKVrPaBQVYr9JofUvcjuKwnXJtLQ0eewBkgYMGABX +H3TkIyl5U364GUGRzVxICRxO05vzTMMosgWPfIQik3nkUIpM4ZFDKPIvPHIw +RbbkkYMoMt1XNwbS9FY80wCKbM0j+1NkGx7ZjyI9vvnRlyLb8cg+FNmeR/am +yA7Btkmj6R2D03vR9E68pJ4U2ZlHPkyRHl8s6UGRf+WR3SnyIR7ZjSI9voLS +lSK7BdvmIU2edMig9C6U82Ee2Zkie9rI2+Vg+OXU/8SUJ2QS3LCCE1841jxz ++ox2IOxE9XG+9JJh58IvX1vY98E+nN7hxj7c0E9KStIK7kgFp/GCdY6FWuHV +r18f77HqJpMOVEpvXoqaWeFeSrFixeRbBbqZtT1l7MMz5nEMBo4P3LeAOzi7 +39sdcCTaUqq+ZiqodLg32aBBA5jmAlStKVV/cznhit6S55cQC7vLGcQ4wMwI +Dh04eBxjK8o4EJu+0HgQyi2B90VGjx7NkqZS0kFI6uUtgBnhxgp8ZQyI4AYM +fIPFCmvbaksqZLAthPcWfPKGU2pqqrylAJcZl7+yXHsUlEKZh/IDRzJFuj9q +JIEtaPownqk5RQ7nkc0o0uPzSA+iHjI8kkc2oZyjeeQDFPkoj2xMpbs/uSRj +G1GmsTxTA8o0jkfWp5wTeOR9FOnxcaa6FPk4j0yiyMk8sg4tkfszTjK2NmWa +Gpxek+b3+LhTDcrk8XGnapRzGo+sQpEzeGQiRc7ikQkU6fHBpwoUOTfYNuVp +iefzTGUp8lkeGU9lPmcjs+4gqOtbMMAqGnglH/5u3LBRN7aWoqo4XzzKgG+g +RjznsrsM6QSVgGfg60eLeUE6X0Btb8AKu3jx4vJ+V7hzywtKCNLXr1uvlVyM +FnEpL1m97QNrZPX6f3iI5StMy/ciL0V9mgfmE7jL6zDI0kQjSwHK97KZD+Yj +WOHr+fJRvhU8n9pugWMv+O6Tw6Wb2iTUh6Svmknh9jC8AetBKg95o5B0HfYO +ofEh1DYOvGgNn3DCQruuoDi/HEi5CSl1HoSihI8jOO9F2JTRSPC6TaDzDpSn +NHLkSBEXFydD7AeX7uhv75rS5f+34cvEYXf9GwRZrOc=\ +\>", "ImageResolution" -> 96., "LightDark" -> \ +"Light"],ImageRangeCache->{{{0., 359.}, {221., 0.}} -> {-14.857966328747292, \ +0.654633287374793, 0.6941460339291473, \ +0.0044903445173959475}},ExpressionUUID->"f3c0c3aa-fd64-8e41-bc0a-\ +ae36b33a37ec"], Cell[BoxData[ TagBox[ @@ -4816,74 +9883,112 @@ MathPictureEnd 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"], +eJzdXHmcFcURfriXisohiYgk3OxyH8t9ihpuUAQBIRiWS+QQAgJKAEVQETAg +5ieHoKhRMREP5BBFIsagGBWjUcSTUw3KJcihYmeqprtq5lk1szwf/kz+2Lcz +1fV1fV19TFd3z3QpuG7o4JEF110zsKB8uzEFo4deM3Bs+bajxniijCKJRJFt +3l+18olM79okEqGfOeaE2Q4/3rUx35vt8HPy1wX4L8MMHjzYlCpVyjRo0MC7 +83+LFi1qvvv2O9Soj7/ZZsniJZBqqlevbs4991y83vbJNj85yyyYv8DUqFHD +VKtWzQwbNswc+foIQb86+JUZOnQoQho2bGh69OhhdmzfUctCd+7YiUku9xIl +SiROs0xm3j4TtFDzNKs/d85ck5uba/Ly8tDU9ye+T+TG5pUVzMuVOpEplLhK +SrxUD5UP+9sruKlbt65Z8dQK786XNWnShKw3sLI3N79p+vfvH6qDB+5/wHTt +2tUc+uoQWr/xxhvBsX5yjunUqZO5Y/YdVMjVq1ZjnRw7eixRJ5At+N8vop/t +2mfWmg4dOpivD39tvv3mWzN8+HBz+4zbqwuQzEKWIk/Ani6UrILvnAE2ac9/ +9mALue/e+6xbM8ycP3qN/bsTeFfXZnThhReim4EC/EFzKFmyJF5/8vEn9axD +qlatavZ+uZccAtmUKVPGHD923GaVYT7d/Sk2Wv/O/+3du7d5Zs0zeFc7wnHt +2rVDucsfGnrFihUlx2UVsoSS4zILV2rb0AbaHPbv249VMnvWbNuoss20m6eZ +eXfOI8K2KuoHyAEk6It69ephT4A714ignLVr1w7p9ezZ07y88WXVZ67lQAu5 +4IILsNc6bIsWLcx7W95THZAtFKmmakMtZkXfQYMCpWjatCloJvItEnoWlAy6 +guCgjf/YiA3IU6PaO3jgIMq8Gky4hgfNe9bMWUTg6RVPm1q1akHhxZ7onPPF +ni+wNoOOveqqq8y659apzskRilMjwjlKEa1zBgdKBYyfX/e8dY4/8LpSWVTC +jT0bXthgSpcujWPQRx9+ZD7/7HPTq1cvM33adBq+oI23atUK2yx47Pzzz4fu +VzfCIV6zxkIFHQKPkiefeDJ2nAkWQe+ScrGsN4ZY2KubXjWNGzcODMZZMIiY +/Px89GfYG9nYYWBQgUGkbdu2pmXLllAvrpXNv3u+ad++PZYOqnzEiBFmwoQJ +UY748osvxZbhFU51xBkC+2oRjpBKZB1xtYVB1Xk9N+CITHPvknvNLdNvcZB8 +q1q5cmWzfZs/22hoW0m5cuWwwK5fQFYwSHttMbJfaIPG1ve2qqU/U6CsDy4/ +KIYtuHtsv/7a6ziswJ3r+fBoqVSpEt7l21yAabNmzcwLf3sh6IxFCxdhu2Vn +ZGAX+Ob4N6EsoWPu2rkL72raLO3I6EhnW9bQgDa/sZl8Cf3f83mejMoqZDly +ZXiOXLyQk3LMu++8i6V6du2z2NlhvO7WrRv0Lir1Y399DOcw0Lic00AX9MaO +HQuDh3taQbe44YYbXO2Zh/78kGndurWbN0KXAC7du3c3S+9bCjQTzjnAADoe +NGXwMcwTvalRbgQ0qxCFiMKfLhTQ+meAZfXG62/gnAEGPniQw4PfK1wji4QJ +o5sYNbCWIPf69evDtAL/Xnn5FfuUyTZHjxw148ePx0YDj+l+/frBI9x1pBc3 +vGg6duyI5HJsdnfOvdNUqVIFpw4jR47EDlVN0M+OZixBzhBKYad3WgxSy0Ig +rLHN2E9/6n8jvaIv9ZLXw0+RKCnmdRoIzhJyLXoyMs5FvTr7x9r4KWT/p+z5 +qmhy1Teiq8ZCtg01WYqI3J+Peaujd62EmJ4ZTKcsnpRVnFoqKuEynEZKTwSV +skL5hFg/kVxWf5riAL7S4xFKlNPjUbR+KMPfx2IwXJ7l6dDM0Hj8NQbDuUcw +ztRy/8spwDCjCO5ZWu6P/kgMJmeFefwlOT1by2mZbj07nGcEz8Jr5mg8HonB +cO4RjE/Xcl9IWRRNAT2f3HhWDJpZ3k2Yc3TMGZrFeYQungJ6LqFLxqCZ7xzC +lEpuO2dqdmaRyi9FDOc+kxJK64ySMDMIU0bHSA9W/J1O6LIxaLY4nW5/rWOk +iRf+3kQWy6WAnkLoCjFo5juFbv2wK3Jx2x9LMjGQad68OUbWO3fszLYQWAKA +dQ4IAyDm8UIAGqJ379qNNr20hFvdh/n/pEmTUEMaXKTZF/5OJNL+EnnC79/a ++jHxhvgSFtghQy9+caunsPJas2ZN5AjZPPLwIxBMuLHcywFDj8OHDtOTD9ZT +UqJ+PdVRVUvdf/TaFVwyYFdwrWd9GfB0Cw1Odtutt2FVwZ3DBlcxMyzFhQsW +4voVBIxgb8u7W8yqlauksfTscAu5nm7ziHHc2qlrolAquzRA7MBtsEljAo/L +Bx94EGtg185d4pB0jubO64hcdSIXt3bpyMGOxIH9B0LkYO3F1atz8bJHlqEu +NGccoXEal+SlsVSvNYhI3JqhIwKLUbDkFSQCRkePHh1qYIvvWWzatGmDXpcq +7pwwpTF0W4soxa3eOUpQGZJvJk+ejHfOPMTca1avUftBMa3iriVydWJblWvz +jlxgwSnUqqCNB8nBFpRbYlLJsb+YUt1Q17TmQl0TRr5gP59x2wxckkjuhu9v +fT8kswtLIdmoUaPM/UvvV2kW13w4jNpcPUvYHwaVNSfbi7LNZ59+hg3aLori +claXLl0yrfMKCgpM3759aX0U6heG6n1794nNTuV3DTnUX1+jZ4u0+FPMpq1/ +fj22PiAInvdY0I4BNBCoUOgwFSpUwDV+r3FIk67i4bplKv56lvhoLKEVZDCh +G8Wg2SJjGuuYkprFAqraJimg+5PtZjFo5vs7stg8gEHBuZqd31IWLXU7Krov +oVvFoJllHyLVWseU0iz2oszaxKDZImMu0jG/0Cz2IPTFKaAvp9JeEoNmvpfT +bVsd80vN4qWEbpcCuiuh28egmS9jOuiY8zSLHclDHZNb7XlhOx3ptrNup7Rm +px2hu6SAbkvorjFo5suYS3XM+ZrFiwjdLQbNFhlzeaExbei2u44po7FsRege +MWi2yJgrdMwFmsXmhO6ZAroZoXvFoJkvY3ont9Cymp3GhLlSt1M2bIcxfXTM +rzSLDQjdNwV0PqF/G4Nmvozpp2N+rVmsKySkkk9tYtE/Bs3MGeNvN6Y7ZHZp +sFMOe1jFixdHnYkTJ4rzr3Ja4WoQUX/f79SEyW72ddlll8EpM7xTabIXmdxA +Sy7dgXB2MCTFP9gsLlmyZAaEQB6kWLFiuJc4YcIEkXF5zbF5xH0QcU89JM4J +hsT4B5EX1PjRI0fJD3HuVcnmEtnBRDZdIbJzNCyR2PAH/yxZjpaTKp85DSFO +6YqWHacjXx/BMh4+dPgHnJL8VEHzXWXieTXxTFcInWGbL5zBgfAxwFFcRq4Q +dmEVQYWdma5Q2pGEYaJRo0Z4lCmKZEXNk1IC+9SkKczOtL8Q0U69aWpUnatM +pcYw1DL9UfG1O98Dp0jg9Bn8RZHjuuaqH+YTSTWQdgMHHAOEzLVqrKQ5hx+F +w30m0vOyUpg9Y0bomMqaRZ5OjUwBzZPHa2PQzJcxo3SM1P3wl8OO0QE0KlYJ +22HN3+t2qmp2OEwdkwKaw+qxMWjmy5jrdEyuZpEXZMbFoNkiY8brmDzNorRo +HGE7L2xbQkewqKax4P2h61NA837WDTFoZs6YiTqmumaRd0r/kNx+q4ftsOYk +3U4NzQ7vek9OAc27+FNi0MxX2puPsF1Ts11ESIhgUTPMogjd3qRjJNkJAk49 +OeB3BLw5BohKrD5NV68tyI4TcHoMEJVY/RZdvY4gOyrIghYxpQ7lLqlHWJQi +y8OU2W0nBzxEwBkxQFRi9dt19XqC7AABZ8YAUemgkBphsb4g2yfIImxLWewl +PrN9YJrjaHeaHF4R6ty5M2YHc1gvChQnPfWJDzO7w2d2CveXczAn4A3TSkiG +QAiK7/0XI718QbaHGP/RMj6128pOBq+ajRs3LiSDF17ghTC/8Ap/5Mqs5xDr +dG0tOxk0IPcKlZM99eRTZuDAgcwQY1TJr58LMvZwesPoDGy59r05kkG4OHvW +bIkrek5iyN5Mb1Cdg9vP0DbhNDgE1qtWrsIT+/v37RfbqnQwczdxv5N4piuo +dsE/1O49i+7BvVVYQ+vTpw/su0rdns+JMrF5sc3xZANpJ4M3J13Tkw4eNRJk +O4jXXaHOnc6N6WNHj+EA6jlJ54UcmM2fQoNjilGxGzuhpqGmVj69EshIp0Ck +k7/bBJn1UqpBsnumwHAN++DujQevDYltnFfeJTLWSS5Cda+QUHdOUm8iyD4i +A3f7mUlPWAn4IQHnxwBRidUX6OpNBdlWAi4MAFGnKSW9LwAXJKs3E5S2UBaL +dFq8zcLq9+jqzQXZvwm4OAaISqy+RFdvIcjeEmQRFluQHQkYYbulINtMmd0X +A0QlVl+qq7cSZK8R8P4YICqx+gOFVk9KDdrBlNaC0ibK4kFRHZNY6c86mQsF +2UYCPhQDRCVWf1hXbyPIXhJkERZ5j1YCRti+SJBtoMwizlDzTjKrRxzovliQ +rSdgxMn5i0mJ1SOOz18iyNYJsgiLl5CddXQVfIUAtX8jANeS+nJRHZNYKeLl +i7aCbDUBn4gBotIaITXCIh9+WCWkRlhsL8hWUGYR77a1J6UV4StZvYNGC4FP ++8BTFF1CbAETKpi7wI7tooWLxOiyQ7iK8Gqlz+yURpebXtmEyRAFQzLs4MCp +TW/WLM5mOgqy5YLMevUnijOHDBliHl32aEgGOu4jEdJUik/8LE9qwKcizoT3 +g8H1QRm8wQt4jWEnbfBBrquJa3rjzBzz9ltv40qIm4oDBtq1NyX32wTGmOw/ +5rSGOKUrsnQ7jBA+ZGRkYKvJycmBFQSxH3UmLsvo6hlild44MgeDGdCFmoVr ++LoE9PSPP/pY7D1dBNlDxHNtbOtLNawE7vCWelAGazOuPFLr60K8HhZS2acm +zaHmXfPuws3ZoOzx5Y+bQYMGqVy7CrIHif+zlmtajj/DIQv4ZMaHH2A8hE0K +ngleZxOrnA8wMqHnfEKpRqDu2QJfeYFd4jp16mB/9UZAsU9cKsiWEhl/jBAf +nHzck9Wf19UvE2RLCLg+BsixEl79TVfvRkqLhdQIO5cLsoWCLGgbU/jULL/m +t0G3012Q3U3AF2OAHMrj1d919R6C7C4CvhQD5CUjvPqHrn6FIJtLwI06sKcg +myPIImz3JDsSMMI2n8y+g65e0dV7C7KZBNwUA+TNFbx6VVe/kpRm0NU/k9tb +H0q6la5e0/PsK8imEfD1GCBv5uHVG7o6H+ifSlebdfV+gmwKAd+MAfL2LV79 +S1e/ipQm0dVbuvrvSIlfFHxbV+8vyCYQ8N8xQFRi9Xd09QJSGkdX7+rqAwQZ +v9K1JblFDaAkVnpPz30gKY2mq626+iBS4rek3tfVBwuyEYIswiK/PyMBI2wP +IeAwIfUDHXg1AfnqY119KCkx1U98dX/2dlKhphNDaOa+9ehNg91nHuELZs6w +9Eb/NVoDCqxL23V99TOLSpzpJhx2uod30iRE8jb3kO1hCsoHC93ULxgqFtb+ +cEHGA8cO3757Dz0u+it2MkbRAA9pu8Km4oI31RQGYWyAh/LdYQNxkVhhyzKS +DPAj7NOwqbjwqrCmeBDhh/hnhash1ywKa2oUGcA5ESZ+Hm6MygfMzrH9AV6V +dkmeWPqUAY+hPJHcEzaiRCXOyIABA3AxA7amK1WqJBn5PWXN0+kvwgOOHmhk +YDwDzaJs2bLi5xjGkHs4MPzSz14a/vjN6050tVdX50cer+3t19XHkxKvWh7Q +1fn5ezGV4qCuzi/h82r8oYB6Rnju0JJkh/U8/0DqzUj9iK4+mdR5+/CYrj6F +8synq+O6+k2UZ11S/1ZXn0pKeGQOB54Tuvo0UqpKQEwpomNuJc2KYUyGjplB +dvAQcBZhsnTMLNIsFcacrmPwQMcZIMqiK0yJ+FQLhlVnk2aJ5NaD0p/J1+Hi +0vE65ivdiSL/BdTcD9k=\ +\>", "ImageResolution" -> 96., "LightDark" -> \ +"Light"],ImageRangeCache->{{{0., 359.}, {221., 0.}} -> {-1.6168853824798513, \ +-0.009969067956413457, 0.059164187941960496, \ +0.0006991192353860321}},ExpressionUUID->"fb5ee406-78d5-a849-9c81-\ +3ea500ee883f"], Cell[BoxData[ TagBox[ @@ -6656,74 +11761,112 @@ MathPictureEnd 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"], +eJztXHd4VUUWj0leHiEQqkgnQKgh9GJAmiIlWUJvK0UIvUlVuiCudAGVIqgo +RXq3geIKKGB3daUIFoqCBRBcirTZe+beOe+elzl3XhJ2P/b79o93k5n5ze+c +OdPOlHtb9hzVv8+QnqMGpPWMazai57D+A9JGxjV9ZIQVFXFXWNhdP1i/CnFh +kdb/IiyMPOaKm+I4PKz/hbgljsPjP/N/afknAuTCfzIkn29nIN1JzmCuLKSH +yz8+MW/uPFGuXDlRvnx5MXDgQHHr5i0rFtIixbU/r4l69eqJ+Ph4cfLESb9D +OWjQILF0yVIZiubErINHFMTH2ALDZHax460dokWLFuLSvy6J69euS7IZ02eg +zLO/nRUxMTGS8MD+A0rm7vd2i+bNm3vLXAyPgm6ZERLQrFkz8cXnXzhljhAX +L1wUpUqVcixgx/3040/iyOEjMqSE3rxxU5QoUUKcP3eeFzoXHjkhvgQKvXH9 +hihSpIg0ZoST8b777hOHDx2WoVxO3NChQ8XyV5bLUDZ4RmIzmAaP7BCsgLS/ +/vKrqFq1qpPZfnbv3l288/Y7hPb9ve+LVq1a6WgnwyMagtWQ9vvvvhdJSUmE +tn///mLL5i2E1iqNKFOmjPjj4h82rc4cE+CRDeLroIDffv1Nq/eud3bJUG4n +bvjw4WLd2nWkDtIJGIMNq77R3qpClYD9+/aLTp06eQsYBQ8fxN9PWhE0v88/ ++5y0IugZEMrhxJ07ew5LoBRJSEgQVy5fkaEoTugjWKqmpLvs3LFTNG3aFGwu +uyN00Tmz54TldIiOHT0mWrduTQSOGjVKbN2y1VvgIBSYTAeE+fPmy1qGQWHI +kCHSpm5puXLlgsq0QvYTOsjYsWO9pfVDaamu4Skw6PVGm7c1DF89sT13NCC7 +I7KLAfkQIrsakJ0R2cOA7IDIXgZkW0T20dqmNQb7a9NbYv6BBkkpmHGIAdkc +OR8xIJsi5wgD8gHkHGVANkbOxwzIhogcq7VNfQyONzDVQ+REAzIJkY8bkLWx +xFMMyJrI+aQBWR2RTxmQVRE5XWubyhicqU1PhEc4BGcbJCVgxjkGZAVEzrWR +mXBD7OgoOR1ZQ6GoXbu2qFmzpmjUqJHYu2cvOzOVQ9nzbdmZ80jsaL+YNXOW +6Nixo8wGNEe/OSpLcOjgIX5uKYM6POvokDkPRcWBwDOnz8iQyrt40WIxZswY +x0qMIvFYuQtQEZPXoiY58BVO/3SaCF24YKGY9tQ0b6GlsPQLUajJp8nhmHvZ +S8tEhw4d0NygVIUKFcDstrkDPk4JFLMYxZh8nJyOWceNGyeio6NFyZIlRURE +BLgovK9THAUtQUEmX0eV55OPPxGJiYnSJYHJ/aUXXxKNGzcWf179k28+xbDW +XjDWmmoqOVxKbFi/gdRat27dUDG21opgKV8kbdbLH1IOQ7t27aTr7hYKTu/K +FSu9hRbGki4jnZXzh2Ids27csFE0adJEpgP+qy+/kmPKLz//wpu1IAp7hY5K +Ol8ol5MGFVa9enVZ2SARTMG2lAJow+WuETIw1t6NGqw0jKD5MOMqAzIvcq42 +IHMj5xoDMhaR6wzInCh9gwEZg5wbtbbJjkybtenRmL7FIMmPGbcakFHIud2A +jETO1wzICOR8w4AMR+SbRk4r6q1gs9zC/Dv5/DcQ7rFjcB2ZdvGgawh6lwdd +RXF/50FXkGk3D7qMoD3BBb+ESXuDk/7ApA946osI2meD7nZA4BcoUIwm4wXM +uN/OmAm/JtLJsnnTZpmldOnSolatWmLTxk1h2TUyz2PZDtgys7bDAv5Lv379 +RFpamnaz4xwW8SNHXOZcF8Xdpk0bsW3rNhnSjcxnUd7HKM/koah1/ocHPhQN +GzZkuX9D7k+QO1RH5Py586Jz586yiqpUqSKX+/nz5w9M3NIR+Rkr51OUYPJB +lISUlBSx4Dnpl4nfz/8uWrZsKX2SUydPaUvzM5bmc5RlckNUIz5x/ITcoBCu +CRosERsbC7WmlXcG5X1hrBlV60rent17RNu2bYleBQoUkH0BQjqH4DTK+wdp +eaFsyBz/4bioXLkyKR+4Xg8++CDbOn5CeV+SjuXte0TJegI/GLBWXYkaNWpA +S9Q5BadQxD/peKHzOGKdNGgLXbt2lenQ8l7b/pq2p55E8q+DR8ETmHSQHwWP +I+gQD/oBQYd50PcIOsKDvkXQUR50DEHHeNBRBH3Lg75B0HfB1jmCSd/z+Q8j +6AcepDpenz595OBgrU+tEDxj5NgL3cXByoEXmlLFihVxUIEtPBhQEpxG6oXx +Oc1DN9VUdvSALv7NEVn0sMgQOIuhTaIcdmuCkqts+EGOPHnyWI3WLtfMGTOx +5OaJzycHIVj7QMeEDgXOeUmjHJ9bjrKsVRq9VWEwmPz4ZNkJy5YtK7lguQ6D +mllWdiLLw1JZKxI1XYRHZXkVJ4e5HcIwD9OBNeE6YmLEvffeSywGm7vWkKL2 +qqXvMGnSJNGlSxdsh16YSGcYZPwP1RSnTJ4ipk+bTkrnRVsU+5uaQyxvQ7Rv +396xrqdQpRM4IJUqVRI/nvpRClj96mqRnJwcr2GMZE3mT2cykAQbE5ZLhbML ++DSwMXH1ylWskvT8oZkyA2r7WfNGGNWM4RtQNSfOas/SGbVokGLu03PlEZlb +PFgMLAehKpq4cKdkjtdIuqvlNapGcujgISkOQtk1NIWwUeTQ2MLnLUSZBfar +YJgK6EW9yVIsdej2gM2OFctXsHy6woVnQT+/hwHdumTnq7y6EweOLjT42bNm +Y9ezGqd4d9e7rur1u+Pkz+SkJzpxMFSCewahaA1/YFcmp6agqhJN0pThoC1Y +ziKJmzBhgtwt5YwZ5WGJ5xc/L7urqWLdJcqKLtk8rObWxaNiazhx0A1gHfLM +/GdQTZi7YH0SqNgod5z8OSskZXn34kjV6ZNTn5TdwK2dm/oerNNYjzo1LcWU +zWCiBKfYHQfbcmBLUwfRGQEcbhgnTXXqLlFWdMnmYTW3Lu46lVVa0wFd+P2C +VAZ2qdWcAecS3x6TDrAcjWBCSE1NreSdrMxsWqOqigb/BLpZoNpY6kA/zqWx +QWSIgpVN4bjZ8rtI3JrVa8SwYcOMdk5vLr9Yu2YtGb3efONNuX0Blxx007fP +u7CRt0HN9Lb1VtNj+q7lxH304UeiTp06LutGSS8WXFX4C54AWNvqFZW8k1Xd +mDYY1EwODqs6LDJIDgwOuTXWiQxRsLI2+E26Djlx4kS2BqI9zNW7d285cMMA +DN437NJYCwOdL+bzLmfkbdBQZ1ZGQ4/lQW0nLm/evPI41a2J0wJlqIomTk2O +pp0f1RDAm1m0cBGpNzdfwKXL41H7JmlKe2dviMTBUAxTJWfb7B7WANsql6Ic +W+W0RP4s6BLtYTW3Lrn4ylVd5NNPPhVTn5hKxMMeMOwvc5Whq3C/U+2u4sif +s+2W4GSBJNh/dYuDgRLOyDhxgSkit1PbTvmUTaK8ZavWAQsfNZG627FaTcfp +2X0ZtJS7Asp4KaxvD1nUMlQDZ6iZ+MXBrw+KwoULy11OmNDA6YU9emuiw94X +ahNhdkpVE3lh6Qu4sFHagn8NQzs3BAVPDj6Jrlu3rjxjfnnZy2CisChvBZSn +AiMnOGyOIy1WrVwFu7clPZh9GTCT2/LxRm31Jsy0iqGbN8QGUs3R6LNPP5PT +S6FCheT0Ak3YGiZVoWGjD2Y062dJgKd9/K9oKoaIi3BKqNsJdzcgmAXc9xDz +5csnd4HcJTTJyoONKp+TA84nkpOTpT39HpqofT/wyUACVBUMTtbSBY3o5ooK +zYhQJSDKVtV+whinFI5jqUM3bKgq+zJobJPu0XwT+xjr4awLFBE4bNQcDbpB +BzD/77yQ/Qi6wIP2IegiD/oAQX/woPcR9C8etBdBl3jQHgRdtkEF7SRZcOtx +F59Vdzz0/7jQ48Lx9O8OUei/FidLnv22/OexPr3jin3Hx0ViHPy1frrj5TtP +7f/J1pmUhbiAgMSMsMgcdfG/e3jldiHoOg96B0E3eNDbCLrpAknMTky6FZy0 +A5MET/0WBXnMVG9SZDiPfIMiI3jk6xQZySNfo0gfj9xOkVHBZtlG0/0801aK +zMYjt1CkhyO1mSI9DgM2UaRHL9hIkR7bSRsoMmewbdbT9FieaR1FeqxO1lJk +bh65hiLz8MjVFJmXR75Kkfl45CqKzM8jV1Lk3cFWXEHTC/BMyynSYzB5hSIL +2sgMX/tg3tWIlGsKReP3+xWD8y6eBPk0ar1M1Spkq6XWtOmP6tJdblSTo3Mt +TIZ0E+YyKqgwL0g5g+4rjaFKeYlKKcJLyRsi44uUsWgmGKVD8YKG+3bpyHJn +RtsgnqUcd7Gscy/huItj74DooF063MGEE3gnG4jS3eB9ntZeHPLqdncUb69e +veRuDrzhWbp0aR3vYspr7xnhOt29xldb7XAZBU4nihYtqr1rvIgy2jvWrjFp +IU0vHZy+gKbHu9KDJD1HkWV45LMUWZZHPkOR5XjkfIoszyPnUWQFHjmXIisG +2+Zpmp7AM82hyEo8cjZFJvLIWRRZmUfOpMgqPHIGRVblkdMpslqwbaZzfbBq +MHIah6zGS3+Ky1Odz/M3qnFNHvkkRdbikVMpsjaPfIIi6/DIKRR5b7C9JtP0 +JJ7pcYqsyyMnUWQ9G5l1L0LtjsIeuOU9uG7TRoiCBQvivRDd5fGJVCf7VD0j +LoQSfvXKVbnRP378eMwOr1l6CZ9AhdfnhevcCnXkAGeePXr0EH379lX3y8T2 +bdsBp92bGk+lNuClqjkFTjth+If5xrK9btk9jpI25EnV/Dp48GD5xqalssvT +GEN5GvE8akseXlKEq69uM7k1C2JsbGaEXWl4wfPc2XNaxsco4/08Y34nDq7+ +792zl20Ij1LGB7BnCI0Hoa7JQC+AO752yH7CVQJ1/UsnaDQV1AQF6VyKXK4G +Bjv3cGh0+dJlGYY7SSkpKVrPaBQVYr9JofUvcjuKwnXJtLQ0eewBkgYMGABX +H3TkIyl5U364GUGRzVxICRxO05vzTMMosgWPfIQik3nkUIpM4ZFDKPIvPHIw +RbbkkYMoMt1XNwbS9FY80wCKbM0j+1NkGx7ZjyI9vvnRlyLb8cg+FNmeR/am +yA7Btkmj6R2D03vR9E68pJ4U2ZlHPkyRHl8s6UGRf+WR3SnyIR7ZjSI9voLS +lSK7BdvmIU2edMig9C6U82Ee2Zkie9rI2+Vg+OXU/8SUJ2QS3LCCE1841jxz ++ox2IOxE9XG+9JJh58IvX1vY98E+nN7hxj7c0E9KStIK7kgFp/GCdY6FWuHV +r18f77HqJpMOVEpvXoqaWeFeSrFixeRbBbqZtT1l7MMz5nEMBo4P3LeAOzi7 +39sdcCTaUqq+ZiqodLg32aBBA5jmAlStKVV/cznhit6S55cQC7vLGcQ4wMwI +Dh04eBxjK8o4EJu+0HgQyi2B90VGjx7NkqZS0kFI6uUtgBnhxgp8ZQyI4AYM +fIPFCmvbaksqZLAthPcWfPKGU2pqqrylAJcZl7+yXHsUlEKZh/IDRzJFuj9q +JIEtaPownqk5RQ7nkc0o0uPzSA+iHjI8kkc2oZyjeeQDFPkoj2xMpbs/uSRj +G1GmsTxTA8o0jkfWp5wTeOR9FOnxcaa6FPk4j0yiyMk8sg4tkfszTjK2NmWa +Gpxek+b3+LhTDcrk8XGnapRzGo+sQpEzeGQiRc7ikQkU6fHBpwoUOTfYNuVp +iefzTGUp8lkeGU9lPmcjs+4gqOtbMMAqGnglH/5u3LBRN7aWoqo4XzzKgG+g +RjznsrsM6QSVgGfg60eLeUE6X0Btb8AKu3jx4vJ+V7hzywtKCNLXr1uvlVyM +FnEpL1m97QNrZPX6f3iI5StMy/ciL0V9mgfmE7jL6zDI0kQjSwHK97KZD+Yj +WOHr+fJRvhU8n9pugWMv+O6Tw6Wb2iTUh6Svmknh9jC8AetBKg95o5B0HfYO +ofEh1DYOvGgNn3DCQruuoDi/HEi5CSl1HoSihI8jOO9F2JTRSPC6TaDzDpSn +NHLkSBEXFydD7AeX7uhv75rS5f+34cvEYXf9GwRZrOc=\ +\>", "ImageResolution" -> 96., "LightDark" -> \ +"Light"],ImageRangeCache->{{{0., 359.}, {221., 0.}} -> {-14.857966328747292, \ +0.654633287374793, 0.6941460339291473, \ +0.0044903445173959475}},ExpressionUUID->"7758daab-adf8-2a49-9166-\ +50457409d355"], Cell[BoxData[ TagBox[ @@ -7132,74 +12275,112 @@ MathPictureEnd 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"], +eJzdXHmcFcURfriXisohiYgk3OxyH8t9ihpuUAQBIRiWS+QQAgJKAEVQETAg +5ieHoKhRMREP5BBFIsagGBWjUcSTUw3KJcihYmeqprtq5lk1szwf/kz+2Lcz +1fV1fV19TFd3z3QpuG7o4JEF110zsKB8uzEFo4deM3Bs+bajxniijCKJRJFt +3l+18olM79okEqGfOeaE2Q4/3rUx35vt8HPy1wX4L8MMHjzYlCpVyjRo0MC7 +83+LFi1qvvv2O9Soj7/ZZsniJZBqqlevbs4991y83vbJNj85yyyYv8DUqFHD +VKtWzQwbNswc+foIQb86+JUZOnQoQho2bGh69OhhdmzfUctCd+7YiUku9xIl +SiROs0xm3j4TtFDzNKs/d85ck5uba/Ly8tDU9ye+T+TG5pUVzMuVOpEplLhK +SrxUD5UP+9sruKlbt65Z8dQK786XNWnShKw3sLI3N79p+vfvH6qDB+5/wHTt +2tUc+uoQWr/xxhvBsX5yjunUqZO5Y/YdVMjVq1ZjnRw7eixRJ5At+N8vop/t +2mfWmg4dOpivD39tvv3mWzN8+HBz+4zbqwuQzEKWIk/Ani6UrILvnAE2ac9/ +9mALue/e+6xbM8ycP3qN/bsTeFfXZnThhReim4EC/EFzKFmyJF5/8vEn9axD +qlatavZ+uZccAtmUKVPGHD923GaVYT7d/Sk2Wv/O/+3du7d5Zs0zeFc7wnHt +2rVDucsfGnrFihUlx2UVsoSS4zILV2rb0AbaHPbv249VMnvWbNuoss20m6eZ +eXfOI8K2KuoHyAEk6It69ephT4A714ignLVr1w7p9ezZ07y88WXVZ67lQAu5 +4IILsNc6bIsWLcx7W95THZAtFKmmakMtZkXfQYMCpWjatCloJvItEnoWlAy6 +guCgjf/YiA3IU6PaO3jgIMq8Gky4hgfNe9bMWUTg6RVPm1q1akHhxZ7onPPF +ni+wNoOOveqqq8y659apzskRilMjwjlKEa1zBgdKBYyfX/e8dY4/8LpSWVTC +jT0bXthgSpcujWPQRx9+ZD7/7HPTq1cvM33adBq+oI23atUK2yx47Pzzz4fu +VzfCIV6zxkIFHQKPkiefeDJ2nAkWQe+ScrGsN4ZY2KubXjWNGzcODMZZMIiY +/Px89GfYG9nYYWBQgUGkbdu2pmXLllAvrpXNv3u+ad++PZYOqnzEiBFmwoQJ +UY748osvxZbhFU51xBkC+2oRjpBKZB1xtYVB1Xk9N+CITHPvknvNLdNvcZB8 +q1q5cmWzfZs/22hoW0m5cuWwwK5fQFYwSHttMbJfaIPG1ve2qqU/U6CsDy4/ +KIYtuHtsv/7a6ziswJ3r+fBoqVSpEt7l21yAabNmzcwLf3sh6IxFCxdhu2Vn +ZGAX+Ob4N6EsoWPu2rkL72raLO3I6EhnW9bQgDa/sZl8Cf3f83mejMoqZDly +ZXiOXLyQk3LMu++8i6V6du2z2NlhvO7WrRv0Lir1Y399DOcw0Lic00AX9MaO +HQuDh3taQbe44YYbXO2Zh/78kGndurWbN0KXAC7du3c3S+9bCjQTzjnAADoe +NGXwMcwTvalRbgQ0qxCFiMKfLhTQ+meAZfXG62/gnAEGPniQw4PfK1wji4QJ +o5sYNbCWIPf69evDtAL/Xnn5FfuUyTZHjxw148ePx0YDj+l+/frBI9x1pBc3 +vGg6duyI5HJsdnfOvdNUqVIFpw4jR47EDlVN0M+OZixBzhBKYad3WgxSy0Ig +rLHN2E9/6n8jvaIv9ZLXw0+RKCnmdRoIzhJyLXoyMs5FvTr7x9r4KWT/p+z5 +qmhy1Teiq8ZCtg01WYqI3J+Peaujd62EmJ4ZTKcsnpRVnFoqKuEynEZKTwSV +skL5hFg/kVxWf5riAL7S4xFKlNPjUbR+KMPfx2IwXJ7l6dDM0Hj8NQbDuUcw +ztRy/8spwDCjCO5ZWu6P/kgMJmeFefwlOT1by2mZbj07nGcEz8Jr5mg8HonB +cO4RjE/Xcl9IWRRNAT2f3HhWDJpZ3k2Yc3TMGZrFeYQungJ6LqFLxqCZ7xzC +lEpuO2dqdmaRyi9FDOc+kxJK64ySMDMIU0bHSA9W/J1O6LIxaLY4nW5/rWOk +iRf+3kQWy6WAnkLoCjFo5juFbv2wK3Jx2x9LMjGQad68OUbWO3fszLYQWAKA +dQ4IAyDm8UIAGqJ379qNNr20hFvdh/n/pEmTUEMaXKTZF/5OJNL+EnnC79/a ++jHxhvgSFtghQy9+caunsPJas2ZN5AjZPPLwIxBMuLHcywFDj8OHDtOTD9ZT +UqJ+PdVRVUvdf/TaFVwyYFdwrWd9GfB0Cw1Odtutt2FVwZ3DBlcxMyzFhQsW +4voVBIxgb8u7W8yqlauksfTscAu5nm7ziHHc2qlrolAquzRA7MBtsEljAo/L +Bx94EGtg185d4pB0jubO64hcdSIXt3bpyMGOxIH9B0LkYO3F1atz8bJHlqEu +NGccoXEal+SlsVSvNYhI3JqhIwKLUbDkFSQCRkePHh1qYIvvWWzatGmDXpcq +7pwwpTF0W4soxa3eOUpQGZJvJk+ejHfOPMTca1avUftBMa3iriVydWJblWvz +jlxgwSnUqqCNB8nBFpRbYlLJsb+YUt1Q17TmQl0TRr5gP59x2wxckkjuhu9v +fT8kswtLIdmoUaPM/UvvV2kW13w4jNpcPUvYHwaVNSfbi7LNZ59+hg3aLori +claXLl0yrfMKCgpM3759aX0U6heG6n1794nNTuV3DTnUX1+jZ4u0+FPMpq1/ +fj22PiAInvdY0I4BNBCoUOgwFSpUwDV+r3FIk67i4bplKv56lvhoLKEVZDCh +G8Wg2SJjGuuYkprFAqraJimg+5PtZjFo5vs7stg8gEHBuZqd31IWLXU7Krov +oVvFoJllHyLVWseU0iz2oszaxKDZImMu0jG/0Cz2IPTFKaAvp9JeEoNmvpfT +bVsd80vN4qWEbpcCuiuh28egmS9jOuiY8zSLHclDHZNb7XlhOx3ptrNup7Rm +px2hu6SAbkvorjFo5suYS3XM+ZrFiwjdLQbNFhlzeaExbei2u44po7FsRege +MWi2yJgrdMwFmsXmhO6ZAroZoXvFoJkvY3ont9Cymp3GhLlSt1M2bIcxfXTM +rzSLDQjdNwV0PqF/G4Nmvozpp2N+rVmsKySkkk9tYtE/Bs3MGeNvN6Y7ZHZp +sFMOe1jFixdHnYkTJ4rzr3Ja4WoQUX/f79SEyW72ddlll8EpM7xTabIXmdxA +Sy7dgXB2MCTFP9gsLlmyZAaEQB6kWLFiuJc4YcIEkXF5zbF5xH0QcU89JM4J +hsT4B5EX1PjRI0fJD3HuVcnmEtnBRDZdIbJzNCyR2PAH/yxZjpaTKp85DSFO +6YqWHacjXx/BMh4+dPgHnJL8VEHzXWXieTXxTFcInWGbL5zBgfAxwFFcRq4Q +dmEVQYWdma5Q2pGEYaJRo0Z4lCmKZEXNk1IC+9SkKczOtL8Q0U69aWpUnatM +pcYw1DL9UfG1O98Dp0jg9Bn8RZHjuuaqH+YTSTWQdgMHHAOEzLVqrKQ5hx+F +w30m0vOyUpg9Y0bomMqaRZ5OjUwBzZPHa2PQzJcxo3SM1P3wl8OO0QE0KlYJ +22HN3+t2qmp2OEwdkwKaw+qxMWjmy5jrdEyuZpEXZMbFoNkiY8brmDzNorRo +HGE7L2xbQkewqKax4P2h61NA837WDTFoZs6YiTqmumaRd0r/kNx+q4ftsOYk +3U4NzQ7vek9OAc27+FNi0MxX2puPsF1Ts11ESIhgUTPMogjd3qRjJNkJAk49 +OeB3BLw5BohKrD5NV68tyI4TcHoMEJVY/RZdvY4gOyrIghYxpQ7lLqlHWJQi +y8OU2W0nBzxEwBkxQFRi9dt19XqC7AABZ8YAUemgkBphsb4g2yfIImxLWewl +PrN9YJrjaHeaHF4R6ty5M2YHc1gvChQnPfWJDzO7w2d2CveXczAn4A3TSkiG +QAiK7/0XI718QbaHGP/RMj6128pOBq+ajRs3LiSDF17ghTC/8Ap/5Mqs5xDr +dG0tOxk0IPcKlZM99eRTZuDAgcwQY1TJr58LMvZwesPoDGy59r05kkG4OHvW +bIkrek5iyN5Mb1Cdg9vP0DbhNDgE1qtWrsIT+/v37RfbqnQwczdxv5N4piuo +dsE/1O49i+7BvVVYQ+vTpw/su0rdns+JMrF5sc3xZANpJ4M3J13Tkw4eNRJk +O4jXXaHOnc6N6WNHj+EA6jlJ54UcmM2fQoNjilGxGzuhpqGmVj69EshIp0Ck +k7/bBJn1UqpBsnumwHAN++DujQevDYltnFfeJTLWSS5Cda+QUHdOUm8iyD4i +A3f7mUlPWAn4IQHnxwBRidUX6OpNBdlWAi4MAFGnKSW9LwAXJKs3E5S2UBaL +dFq8zcLq9+jqzQXZvwm4OAaISqy+RFdvIcjeEmQRFluQHQkYYbulINtMmd0X +A0QlVl+qq7cSZK8R8P4YICqx+gOFVk9KDdrBlNaC0ibK4kFRHZNY6c86mQsF +2UYCPhQDRCVWf1hXbyPIXhJkERZ5j1YCRti+SJBtoMwizlDzTjKrRxzovliQ +rSdgxMn5i0mJ1SOOz18iyNYJsgiLl5CddXQVfIUAtX8jANeS+nJRHZNYKeLl +i7aCbDUBn4gBotIaITXCIh9+WCWkRlhsL8hWUGYR77a1J6UV4StZvYNGC4FP ++8BTFF1CbAETKpi7wI7tooWLxOiyQ7iK8Gqlz+yURpebXtmEyRAFQzLs4MCp +TW/WLM5mOgqy5YLMevUnijOHDBliHl32aEgGOu4jEdJUik/8LE9qwKcizoT3 +g8H1QRm8wQt4jWEnbfBBrquJa3rjzBzz9ltv40qIm4oDBtq1NyX32wTGmOw/ +5rSGOKUrsnQ7jBA+ZGRkYKvJycmBFQSxH3UmLsvo6hlild44MgeDGdCFmoVr ++LoE9PSPP/pY7D1dBNlDxHNtbOtLNawE7vCWelAGazOuPFLr60K8HhZS2acm +zaHmXfPuws3ZoOzx5Y+bQYMGqVy7CrIHif+zlmtajj/DIQv4ZMaHH2A8hE0K +ngleZxOrnA8wMqHnfEKpRqDu2QJfeYFd4jp16mB/9UZAsU9cKsiWEhl/jBAf +nHzck9Wf19UvE2RLCLg+BsixEl79TVfvRkqLhdQIO5cLsoWCLGgbU/jULL/m +t0G3012Q3U3AF2OAHMrj1d919R6C7C4CvhQD5CUjvPqHrn6FIJtLwI06sKcg +myPIImz3JDsSMMI2n8y+g65e0dV7C7KZBNwUA+TNFbx6VVe/kpRm0NU/k9tb +H0q6la5e0/PsK8imEfD1GCBv5uHVG7o6H+ifSlebdfV+gmwKAd+MAfL2LV79 +S1e/ipQm0dVbuvrvSIlfFHxbV+8vyCYQ8N8xQFRi9Xd09QJSGkdX7+rqAwQZ +v9K1JblFDaAkVnpPz30gKY2mq626+iBS4rek3tfVBwuyEYIswiK/PyMBI2wP +IeAwIfUDHXg1AfnqY119KCkx1U98dX/2dlKhphNDaOa+9ehNg91nHuELZs6w +9Eb/NVoDCqxL23V99TOLSpzpJhx2uod30iRE8jb3kO1hCsoHC93ULxgqFtb+ +cEHGA8cO3757Dz0u+it2MkbRAA9pu8Km4oI31RQGYWyAh/LdYQNxkVhhyzKS +DPAj7NOwqbjwqrCmeBDhh/hnhash1ywKa2oUGcA5ESZ+Hm6MygfMzrH9AV6V +dkmeWPqUAY+hPJHcEzaiRCXOyIABA3AxA7amK1WqJBn5PWXN0+kvwgOOHmhk +YDwDzaJs2bLi5xjGkHs4MPzSz14a/vjN6050tVdX50cer+3t19XHkxKvWh7Q +1fn5ezGV4qCuzi/h82r8oYB6Rnju0JJkh/U8/0DqzUj9iK4+mdR5+/CYrj6F +8synq+O6+k2UZ11S/1ZXn0pKeGQOB54Tuvo0UqpKQEwpomNuJc2KYUyGjplB +dvAQcBZhsnTMLNIsFcacrmPwQMcZIMqiK0yJ+FQLhlVnk2aJ5NaD0p/J1+Hi +0vE65ivdiSL/BdTcD9k=\ +\>", "ImageResolution" -> 96., "LightDark" -> \ +"Light"],ImageRangeCache->{{{0., 359.}, {221., 0.}} -> {-1.6168853824798513, \ +-0.009969067956413457, 0.059164187941960496, \ +0.0006991192353860321}},ExpressionUUID->"a63f48d3-505f-0a45-b944-\ +e872edd94d6c"], Cell[BoxData[ TagBox[ @@ -7548,12 +12729,18 @@ Cell[BoxData[ 1ca469b254bd"], Cell[BoxData["0.07371813161570438`"], "Output",ExpressionUUID->"d15888a7-bf5a-b54e-a332-976645c927ce"] -}, Open ]] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input", + CellChangeTimes->{{3.994082741381258*^9, + 3.99408274352462*^9}},ExpressionUUID->"73a1a5fc-e75f-4850-90c9-\ +3c23108da707"] }, -WindowSize->{718.5, 729.75}, -WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +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->"370f2b53-61d0-7c4a-817b-bf9dca2c7a0a" ] @@ -7568,354 +12755,609 @@ 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, 305, 6, 36, "Input",ExpressionUUID->"c38f06bd-74d1-44ad-9faf-19b29d111ef0"], +Cell[884, 30, 278, 5, 41, "Output",ExpressionUUID->"5af16a9c-2a96-4996-866b-c621ccc0e90e"] }, 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[1199, 40, 253, 5, 36, "Input",ExpressionUUID->"afd78b5b-f0d9-4cb8-b492-13e48b79319d"], +Cell[1455, 47, 275, 5, 41, "Output",ExpressionUUID->"ec688a6a-93c6-4888-ab9d-b2dcccb020d5"] }, 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[1767, 57, 231, 5, 36, "Input",ExpressionUUID->"79ae24c9-993a-47cf-bcff-b044b9053fef"], +Cell[2001, 64, 278, 5, 41, "Output",ExpressionUUID->"8922d22d-b530-4d90-9156-e7af0d47766f"] }, 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[2316, 74, 180, 4, 55, "Input",ExpressionUUID->"16fbc78b-e4af-4dde-bf1f-cee992cb730c"], +Cell[2499, 80, 276, 5, 62, "Output",ExpressionUUID->"42585906-fcc8-410c-81d8-c50db5003892"] }, 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[2812, 90, 262, 8, 81, "Input",ExpressionUUID->"c29af457-6672-42d8-be46-70931c6b097e"], +Cell[3077, 100, 279, 5, 62, "Output",ExpressionUUID->"efa8857f-5048-481d-8bd8-29fcf9b0a485"] }, 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[3393, 110, 136, 3, 55, "Input",ExpressionUUID->"f35350ce-e762-4333-b2ea-e4a3fd9c070e"], +Cell[3532, 115, 280, 5, 62, "Output",ExpressionUUID->"93922128-b6ef-4b00-88ce-0b8b4f8da024"] }, 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[3849, 125, 281, 7, 55, "Input",ExpressionUUID->"aa2e889f-9ffd-427b-90f9-c5320db7dde4"], +Cell[4133, 134, 292, 5, 62, "Output",ExpressionUUID->"b517e449-46ec-4753-ae1f-32aa5a514573"] }, 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[4462, 144, 262, 8, 55, "Input",ExpressionUUID->"4dcde000-4a52-43da-bd3b-b04d1f3d36dc"], +Cell[4727, 154, 280, 5, 62, "Output",ExpressionUUID->"29bb91f9-b225-4959-8da8-3114085f5143"] }, 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[5044, 164, 331, 7, 55, "Input",ExpressionUUID->"b577b86a-7023-44fc-a7e0-88ec893185a3"], +Cell[5378, 173, 260, 5, 62, "Output",ExpressionUUID->"75ad98fe-a454-4dd2-973a-60d624ab42fa"] }, 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[5675, 183, 229, 5, 55, "Input",ExpressionUUID->"9e64d07f-edc3-4463-ba28-a64831c4d3e4"], +Cell[5907, 190, 260, 5, 62, "Output",ExpressionUUID->"43fd0693-5729-4d5c-bac2-3fbfbc79c7fe"] }, 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[6204, 200, 133, 3, 55, "Input",ExpressionUUID->"0c951bb0-c9ce-4ab7-a821-851d3ea73447"], +Cell[6340, 205, 276, 5, 62, "Output",ExpressionUUID->"ab77ee4f-d3a7-4bb3-b66d-ee01423138df"] }, 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[6653, 215, 133, 3, 55, "Input",ExpressionUUID->"f5d9f999-f620-45c8-9bb7-007979080bea"], +Cell[6789, 220, 278, 5, 62, "Output",ExpressionUUID->"033bf110-6df8-4a56-bb2d-dadbdd45a65b"] }, 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[7104, 230, 561, 20, 148, "Input",ExpressionUUID->"a1dcb2c8-b8a6-435b-afe2-4d2b1ba86bb2"], +Cell[7668, 252, 296, 5, 62, "Output",ExpressionUUID->"fa7f438b-24c2-4b33-92b3-77e4f79e9c70"] }, 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[8001, 262, 561, 20, 148, "Input",ExpressionUUID->"f32a042b-a381-4268-99ce-efc338059031"], +Cell[8565, 284, 292, 5, 62, "Output",ExpressionUUID->"247d7e07-f0e4-41f6-acd3-0898d8c2b85d"] }, 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[8894, 294, 1592, 51, 211, "Input",ExpressionUUID->"b14b50fb-38cd-4662-84ba-67a97264afa3"], +Cell[10489, 347, 292, 5, 62, "Output",ExpressionUUID->"4fdc402e-9c56-400a-ab65-b16577f389c2"] }, 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[10818, 357, 1426, 47, 211, "Input",ExpressionUUID->"8016f16a-16e8-4d16-bc4c-923039b7ce67"], +Cell[12247, 406, 308, 6, 62, "Output",ExpressionUUID->"2fd6eb81-f46e-47c2-a81e-28bd02ad1c2f"] }, 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[12592, 417, 1426, 47, 211, "Input",ExpressionUUID->"b96d86c5-938e-478a-90c6-3f74e8c37453"], +Cell[14021, 466, 312, 6, 62, "Output",ExpressionUUID->"3a9bac6c-e012-4ceb-8de4-f6b9508e7822"] }, 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[14370, 477, 1592, 51, 211, "Input",ExpressionUUID->"ea8c1cb5-682b-4b1c-b3b5-acad93d635e7"], +Cell[15965, 530, 288, 5, 62, "Output",ExpressionUUID->"be7f6c6b-834b-4358-9c29-796b8223eecc"] }, 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[16290, 540, 135, 3, 55, "Input",ExpressionUUID->"75b49a7c-d616-44bc-9324-eb39800c7562"], +Cell[16428, 545, 277, 5, 62, "Output",ExpressionUUID->"6ee57074-b8ae-46ea-9086-eff784fbd8fb"] }, 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[16742, 555, 137, 3, 55, "Input",ExpressionUUID->"bc72c9a3-c5b0-46ba-a6d9-b78c2dbdb81f"], +Cell[16882, 560, 282, 5, 62, "Output",ExpressionUUID->"2d182ad6-9b25-4551-860a-a1c2093aa11a"] }, 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[17201, 570, 254, 5, 55, "Input",ExpressionUUID->"447d0e58-8ddf-4214-866b-77f6d8239bf8"], +Cell[17458, 577, 280, 5, 62, "Output",ExpressionUUID->"5572f6f5-ac17-4a10-abae-c3d1e8b4aaa4"] }, 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[17775, 587, 223, 5, 55, "Input",ExpressionUUID->"c581d9fe-2738-4459-9369-c0c9c4efed9c"], +Cell[18001, 594, 293, 6, 62, "Output",ExpressionUUID->"3a1bc198-dd41-4717-9a2b-74bedff19332"] }, 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[18331, 605, 138, 3, 55, "Input",ExpressionUUID->"cc3015c8-cbd4-4f2e-a792-825c63ae5ebe"], +Cell[18472, 610, 280, 5, 62, "Output",ExpressionUUID->"3cfce95b-b2b2-4c7f-8b59-5c72aa32d310"] }, 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[18789, 620, 353, 6, 55, "Input",ExpressionUUID->"e1f365a2-d9d8-4cda-b3a3-e68b31c6a560"], +Cell[19145, 628, 253, 5, 62, "Output",ExpressionUUID->"29806205-711b-4cc4-acaa-a46456db1a78"] }, 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[19435, 638, 254, 6, 55, "Input",ExpressionUUID->"0b81ca95-0a08-4fa3-ad63-7c00f7ffe86d"], +Cell[19692, 646, 275, 5, 62, "Output",ExpressionUUID->"8b28afdc-aa38-4a47-a3b1-86b4604828c3"] }, 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[20004, 656, 223, 5, 55, "Input",ExpressionUUID->"9792e723-1517-465f-b393-f9cdb1452b45"], +Cell[20230, 663, 275, 5, 62, "Output",ExpressionUUID->"9ed43bb4-9af7-42ef-91ca-ca98df9d77f9"] }, 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[20542, 673, 354, 11, 81, "Input",ExpressionUUID->"d129cb85-0b12-4ff0-8da3-13df49d7e8f6"], +Cell[20899, 686, 295, 5, 62, "Output",ExpressionUUID->"22cff539-358e-4494-be6c-1d43a033f703"] }, 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[21231, 696, 354, 11, 81, "Input",ExpressionUUID->"1a34dbc5-0170-4999-8a5d-398d58b61037"], +Cell[21588, 709, 310, 6, 62, "Output",ExpressionUUID->"a8989fd7-b8ce-4a00-962c-1a08bbfb2ead"] }, 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[21935, 720, 998, 27, 154, "Input",ExpressionUUID->"e4a97bde-72a6-40ff-9081-d4d1dc9478ce"], +Cell[22936, 749, 294, 5, 62, "Output",ExpressionUUID->"a204d143-c54b-4a47-a34c-d28fc5fae6b5"] }, 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[23267, 759, 203, 4, 55, "Input",ExpressionUUID->"350e03d0-a9a3-4426-8548-793c5ab9f6a3"], +Cell[23473, 765, 276, 5, 62, "Output",ExpressionUUID->"d63b2d79-86f9-461b-bed0-4a63bf27f06b"] }, 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[23786, 775, 332, 6, 55, "Input",ExpressionUUID->"481ec421-0e8e-4829-bccc-f08050fbcebb"], +Cell[24121, 783, 262, 5, 62, "Output",ExpressionUUID->"d3293ad7-2e88-4b22-afc8-6d50121add31"] +}, Open ]], +Cell[24398, 791, 177, 3, 55, "Input",ExpressionUUID->"21802cf3-c66d-4e8f-b95f-f998fe3e99fc"], +Cell[CellGroupData[{ +Cell[24600, 798, 332, 6, 55, "Input",ExpressionUUID->"feb7f060-9d53-4587-b6e6-7db8b94cdb65"], +Cell[24935, 806, 255, 5, 62, "Output",ExpressionUUID->"69a346bf-ceff-4b7d-acfc-1dc7f5c59d5f"] +}, Open ]], +Cell[25205, 814, 177, 3, 55, "Input",ExpressionUUID->"ef889e59-9bea-4de0-b55b-ca1238d824e4"], +Cell[CellGroupData[{ +Cell[25407, 821, 332, 6, 55, "Input",ExpressionUUID->"ca9ca022-54dc-48d0-9225-bca8fa9204ed"], +Cell[25742, 829, 253, 5, 62, "Output",ExpressionUUID->"852a4084-4b42-4075-84e3-4df03ba3677f"] +}, Open ]], +Cell[26010, 837, 177, 3, 55, "Input",ExpressionUUID->"e3c627ac-7787-4a32-997a-ce331c786870"], +Cell[CellGroupData[{ +Cell[26212, 844, 356, 6, 55, "Input",ExpressionUUID->"1c407e7a-dc8c-4b18-b06d-b1b9818c7eb8"], +Cell[26571, 852, 251, 5, 62, "Output",ExpressionUUID->"cdb4abfa-f666-4e40-8e43-a261804eeee0"] +}, Open ]], +Cell[26837, 860, 175, 3, 55, "Input",ExpressionUUID->"c177eaba-014e-4b6d-bd84-422460cd0578"], +Cell[CellGroupData[{ +Cell[27037, 867, 304, 6, 55, "Input",ExpressionUUID->"bfe5a85a-5d9e-49f7-b9d8-e0ca962ffb19"], +Cell[27344, 875, 258, 5, 62, "Output",ExpressionUUID->"f0ab51ff-f487-4f85-9efd-03179c05e869"] +}, Open ]], +Cell[27617, 883, 175, 3, 55, "Input",ExpressionUUID->"7357cf96-42e8-4230-aa7b-aa787e8d53a4"], +Cell[CellGroupData[{ +Cell[27817, 890, 310, 6, 55, "Input",ExpressionUUID->"39968499-04f4-4aaf-969f-47dd9552cbf6"], +Cell[28130, 898, 258, 5, 62, "Output",ExpressionUUID->"69f114af-ca26-436a-81b2-2407cc9450e9"] +}, Open ]], +Cell[28403, 906, 177, 3, 55, "Input",ExpressionUUID->"d3e8d03f-922c-4529-83f3-834f319f227f"], +Cell[CellGroupData[{ +Cell[28605, 913, 310, 6, 55, "Input",ExpressionUUID->"42e5f601-68c0-48aa-be8c-ef94de9cfd95"], +Cell[28918, 921, 259, 5, 62, "Output",ExpressionUUID->"c6f7bafd-9e26-44d5-a29e-9ee44966b3e4"] +}, Open ]], +Cell[29192, 929, 176, 3, 55, "Input",ExpressionUUID->"ed21966d-6f60-421a-9734-6562b989ca42"], +Cell[CellGroupData[{ +Cell[29393, 936, 282, 5, 55, "Input",ExpressionUUID->"7ef1268d-339d-47a7-b3cf-faa6a79673d4"], +Cell[29678, 943, 256, 5, 62, "Output",ExpressionUUID->"292bceff-de31-49c8-b372-bcdac9985ade"] +}, Open ]], +Cell[29949, 951, 179, 3, 55, "Input",ExpressionUUID->"31910eb0-1db4-4f39-bf09-7dba319f9823"], +Cell[CellGroupData[{ +Cell[30153, 958, 19813, 486, 3214, "Input",ExpressionUUID->"283d5454-8e51-49c6-aa3a-6a51d5e5e555"], +Cell[49969, 1446, 295, 5, 62, "Output",ExpressionUUID->"6988f7b7-848d-4a23-a483-c41283d84606"] }, 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[50301, 1456, 19752, 490, 3214, "Input",ExpressionUUID->"7af6b117-42fc-4eac-a166-c4daf4a1f93b"], +Cell[70056, 1948, 294, 5, 62, "Output",ExpressionUUID->"53af5287-57f7-42ba-af9e-176cb3e1888f"] }, 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[70387, 1958, 19752, 484, 3213, "Input",ExpressionUUID->"3ccc2b55-71ba-4056-8693-fbdcffc0f206"], +Cell[90142, 2444, 305, 6, 62, "Output",ExpressionUUID->"98adbb54-c003-472e-ad99-620d5cc2b8da"] }, 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[90484, 2455, 22538, 554, 3639, "Input",ExpressionUUID->"a1dd8794-cc51-478e-a833-fb04766b2ffc"], +Cell[113025, 3011, 311, 6, 62, "Output",ExpressionUUID->"f891023f-cdb7-4aaa-b377-159de5ab3968"] }, 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[113373, 3022, 22539, 554, 3639, "Input",ExpressionUUID->"94521f07-d62c-4bf4-a121-941b5e1ee3c6"], +Cell[135915, 3578, 310, 6, 62, "Output",ExpressionUUID->"806796f5-9102-4adb-a2ac-f62cb661e65c"] }, 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[136262, 3589, 25495, 627, 4065, "Input",ExpressionUUID->"dcc7952e-a3a2-4d76-b674-4b42ede27271"], +Cell[161760, 4218, 315, 6, 62, "Output",ExpressionUUID->"32f94ba7-acc2-47e3-a615-be4dfad3d5c0"] }, 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[162112, 4229, 134, 3, 55, "Input",ExpressionUUID->"f049700b-5790-40d4-a767-d0963e3b3e89"], +Cell[162249, 4234, 273, 5, 62, "Output",ExpressionUUID->"5ff7e855-3525-4138-9650-5ae73196b0e1"] }, 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[162559, 4244, 134, 3, 55, "Input",ExpressionUUID->"7f685872-bb50-46b2-8887-06d96df1a8c2"], +Cell[162696, 4249, 275, 5, 62, "Output",ExpressionUUID->"8f3a94f6-7495-4aa7-a626-7333dcb38894"] }, 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[163008, 4259, 1148, 40, 211, "Input",ExpressionUUID->"66cde6be-2db1-4fc6-99a1-4fd5ec0fc367"], +Cell[164159, 4301, 295, 5, 62, "Output",ExpressionUUID->"dcc1948f-eb9b-4b0d-8351-c7c5cc69354d"] }, 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[164491, 4311, 1045, 36, 211, "Input",ExpressionUUID->"06c42e12-35e7-47a6-9ee0-d1126a4de73c"], +Cell[165539, 4349, 308, 6, 62, "Output",ExpressionUUID->"8c68a84b-1dee-4767-a837-7f39a028ef74"] }, 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[165884, 4360, 1148, 40, 211, "Input",ExpressionUUID->"4fc8cd09-dfb0-4d0b-be5a-7428b1c347ab"], +Cell[167035, 4402, 290, 5, 62, "Output",ExpressionUUID->"679be1ab-e7bd-42ce-8bfa-dd4d23338f3d"] }, 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[167362, 4412, 112, 2, 55, "Input",ExpressionUUID->"db8d809e-1222-4cf0-9e4f-ef3bfc3b334d"], +Cell[167477, 4416, 298, 5, 62, "Output",ExpressionUUID->"7c92d47a-6511-46d9-bdf9-53197e4bbe79"] }, 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[167812, 4426, 112, 2, 55, "Input",ExpressionUUID->"61102ee4-fd56-4f4e-aae9-6e6f85d6ad61"], +Cell[167927, 4430, 312, 6, 62, "Output",ExpressionUUID->"3ac30277-7408-4f52-85a3-b99862f0dd87"] }, 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[168276, 4441, 112, 2, 55, "Input",ExpressionUUID->"c1212b5a-b9b3-4efb-b791-b5aef973bee3"], +Cell[168391, 4445, 316, 6, 62, "Output",ExpressionUUID->"9d4b6cea-fad1-4ea1-988b-7212601b2da5"] }, 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[168744, 4456, 112, 2, 55, "Input",ExpressionUUID->"bd0f6c6f-1262-47f5-b928-eaf93d21780f"], +Cell[168859, 4460, 289, 5, 62, "Output",ExpressionUUID->"ac94a248-912d-46b5-bee4-2d4c2086b5fd"] }, 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[169185, 4470, 111, 2, 55, "Input",ExpressionUUID->"d0bb7e0b-e8c2-4560-9290-f48e0bd1fcbd"], +Cell[169299, 4474, 298, 5, 62, "Output",ExpressionUUID->"6f7dd9fc-9eaf-47f3-a13d-609280d996bc"] }, 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[169634, 4484, 111, 2, 55, "Input",ExpressionUUID->"95e2a8d5-1951-4102-99f6-ad51c308744b"], +Cell[169748, 4488, 297, 5, 62, "Output",ExpressionUUID->"23453211-1bac-4674-ba6d-3d965c8d2ce2"] }, 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[170082, 4498, 501, 17, 105, "Input",ExpressionUUID->"5fdf5ad0-f7da-4941-a920-31a470629a9d"], +Cell[170586, 4517, 311, 6, 62, "Output",ExpressionUUID->"07561e06-67bb-4861-b9bc-c99a4674b80d"] }, 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[170934, 4528, 501, 17, 105, "Input",ExpressionUUID->"117301c3-7e4a-415b-aa06-a1570cc08ffc"], +Cell[171438, 4547, 308, 6, 62, "Output",ExpressionUUID->"02d82b2e-123f-4e82-a917-7e75a4170da0"] }, 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[171783, 4558, 1792, 61, 358, "Input",ExpressionUUID->"f29874dc-4ff3-4453-bd9b-b86716b3ff4a"], +Cell[173578, 4621, 291, 5, 62, "Output",ExpressionUUID->"ed240888-0b33-4f6c-96bb-73687a4c1683"] }, 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[173906, 4631, 1105, 37, 256, "Input",ExpressionUUID->"2d395a23-c156-4ff4-8920-53ed3530d6dd"], +Cell[175014, 4670, 311, 6, 62, "Output",ExpressionUUID->"6fa6afcb-d4bb-43c4-98e8-c2787ff22ec7"] }, 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[175362, 4681, 1822, 62, 313, "Input",ExpressionUUID->"cebf7a85-b90c-4fd0-b6d2-a6bcf590c115"], +Cell[177187, 4745, 290, 5, 62, "Output",ExpressionUUID->"cf2d52e0-1ff1-4ae7-b6a0-aedde425cce4"] }, 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[177514, 4755, 1714, 56, 260, "Input",ExpressionUUID->"89b62d0b-e390-4fff-a801-1f0e9b97397a"], +Cell[179231, 4813, 294, 5, 62, "Output",ExpressionUUID->"04b7e1fd-1c35-404b-9221-b318563f5666"] }, 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[179562, 4823, 1635, 54, 208, "Input",ExpressionUUID->"89b80508-67f6-42e8-98c7-04677add7ef7"], +Cell[181200, 4879, 292, 5, 41, "Output",ExpressionUUID->"4199a712-b184-4b2a-82fb-22c986524e3a"] +}, Open ]], +Cell[181507, 4887, 189, 4, 36, "Input",ExpressionUUID->"83cccf0d-dccb-fb42-a058-5e950c758893"], +Cell[181699, 4893, 152, 3, 36, "Input",ExpressionUUID->"7730e455-e5f4-194b-b761-e7a6896afd10"], +Cell[181854, 4898, 187, 4, 36, "Input",ExpressionUUID->"b70cfd2b-21a1-8344-9518-5e27a96171a9"], +Cell[182044, 4904, 154, 3, 36, "Input",ExpressionUUID->"86df0a71-aa65-aa41-b8f1-8c5c5be10fe8"], +Cell[CellGroupData[{ +Cell[182223, 4911, 1273, 41, 174, "Input",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"], +Cell[183499, 4954, 106, 0, 41, "Output",ExpressionUUID->"cbffa725-bd15-2049-b55f-318286f23572"] }, 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"] -}, Open ]], -Cell[208234, 7211, 138, 3, 70, "Input",ExpressionUUID->"4ad58a38-0776-5240-aa41-ba7c8ff64fb9"], -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[183642, 4959, 910, 31, 128, "Input",ExpressionUUID->"c16f367e-d189-2745-b3b8-a9b137c5e3b6"], +Cell[184555, 4992, 106, 0, 41, "Output",ExpressionUUID->"ccc498a0-28db-294f-9612-85d9a5c6b1f9"] }, 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[184698, 4997, 885, 30, 128, "Input",ExpressionUUID->"b7d001ae-480c-4b41-8df9-8010347227f7"], +Cell[185586, 5029, 106, 0, 41, "Output",ExpressionUUID->"0586a11a-38a6-a040-a172-aaeab8c90dd8"] }, 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[185729, 5034, 532, 18, 66, "Input",ExpressionUUID->"d15e5e59-9ad8-e247-a132-b43b2736212a"], +Cell[186264, 5054, 101, 0, 41, "Output",ExpressionUUID->"c25fd138-6ebd-9549-9de5-30353d068c14"] }, 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[186402, 5059, 625, 21, 66, "Input",ExpressionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"], +Cell[187030, 5082, 100, 0, 41, "Output",ExpressionUUID->"8c8a87e7-f604-4044-b4ce-b17ddc0907b3"] }, 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[187167, 5087, 144, 4, 71, "Input",ExpressionUUID->"906db7f6-73f3-8a4e-88a4-7c75445a4f32"], +Cell[187314, 5093, 101, 0, 41, "Output",ExpressionUUID->"fa0bea71-615d-2d4d-8b39-59994ce24952"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187452, 5098, 144, 4, 69, "Input",ExpressionUUID->"731b68b1-c44a-6c4a-a9f8-bc957ede9a68"], +Cell[187599, 5104, 100, 0, 41, "Output",ExpressionUUID->"d3e4fece-e329-2041-9645-50ae8ca1c91c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187736, 5109, 155, 4, 55, "Input",ExpressionUUID->"71af6813-eb8f-4944-8d03-7bcd77a7b4b4"], +Cell[187894, 5115, 101, 0, 41, "Output",ExpressionUUID->"8db6732d-a570-734c-94eb-cb35afdbb155"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188032, 5120, 155, 4, 55, "Input",ExpressionUUID->"28815b73-08dc-e64f-8823-2a55ad6b8ca8"], +Cell[188190, 5126, 101, 0, 41, "Output",ExpressionUUID->"06581e5e-cb29-0446-9bb7-b3bb2156a7c7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188328, 5131, 6029, 184, 831, "Input",ExpressionUUID->"137e8d46-8eff-3c47-bf8f-1350d0b8a0bb"], +Cell[194360, 5317, 102, 0, 41, "Output",ExpressionUUID->"000a1d2e-b429-4a45-b9a2-ccba4bf718eb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194499, 5322, 342, 8, 53, "Input",ExpressionUUID->"65edd566-4493-2440-9c51-9fca28ce324b"], +Cell[194844, 5332, 342, 6, 26, "Message",ExpressionUUID->"b04cf5cc-6c74-f842-9fba-c737c46f5a7b"], +Cell[195189, 5340, 100, 0, 41, "Output",ExpressionUUID->"32922499-707a-964c-90f0-b2630d16ee29"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195326, 5345, 6096, 186, 900, "Input",ExpressionUUID->"d808e80b-1928-8046-afec-31463f4946cd"], +Cell[201425, 5533, 103, 0, 41, "Output",ExpressionUUID->"17720629-0c4f-744e-a447-06cd4a4f0034"] +}, Open ]], +Cell[CellGroupData[{ +Cell[201565, 5538, 342, 8, 53, "Input",ExpressionUUID->"56b1717f-bc75-4047-98f0-7a0dede3f8a9"], +Cell[201910, 5548, 342, 6, 26, "Message",ExpressionUUID->"6f900e99-9e38-fb4c-84fd-e99588ed1cc5"], +Cell[202255, 5556, 100, 0, 41, "Output",ExpressionUUID->"e5a93687-7c76-eb48-a79a-098cbe08792a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[202392, 5561, 2637, 87, 435, "Input",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-f74418e31aeb"], +Cell[205032, 5650, 101, 0, 41, "Output",ExpressionUUID->"a53e2e6d-ca02-5d40-9088-48aa754351ec"] +}, Open ]], +Cell[CellGroupData[{ +Cell[205170, 5655, 2577, 84, 435, "Input",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-91d5391478d5"], +Cell[207750, 5741, 102, 0, 41, "Output",ExpressionUUID->"5ca04a2b-633e-1547-b10d-b4f00d8b3fcb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[207889, 5746, 3686, 117, 575, "Input",ExpressionUUID->"bea639c9-f172-ef4e-9454-9d4e027f5fa2"], +Cell[211578, 5865, 102, 0, 41, "Output",ExpressionUUID->"af769b0f-0bd4-194f-bc02-90651fd30541"] +}, Open ]], +Cell[211695, 5868, 138, 3, 36, "Input",ExpressionUUID->"752e2dd5-bee6-2048-8697-fe84d79611fa"], +Cell[CellGroupData[{ +Cell[211858, 5875, 2054, 59, 276, "Input",ExpressionUUID->"f8b12d93-5bd9-8641-aa98-3d78ebb0f21b"], +Cell[213915, 5936, 342, 6, 26, "Message",ExpressionUUID->"4105bae1-ec8c-fc46-bc8a-9d70c37ec32c"], +Cell[214260, 5944, 342, 6, 26, "Message",ExpressionUUID->"42c1a263-2456-664a-bb33-c5fe841cb412"], +Cell[214605, 5952, 100, 0, 41, "Output",ExpressionUUID->"1c49befc-babf-0743-9739-e64b536d1c51"] +}, Open ]], +Cell[CellGroupData[{ +Cell[214742, 5957, 2049, 58, 276, "Input",ExpressionUUID->"cbefe077-df46-c24c-b854-69741ca50d38"], +Cell[216794, 6017, 342, 6, 26, "Message",ExpressionUUID->"be4d7bfb-c18e-564a-93ce-3f42607886e7"], +Cell[217139, 6025, 342, 6, 26, "Message",ExpressionUUID->"b768ca5f-6b93-1f43-97bf-08f74ea2facd"], +Cell[217484, 6033, 100, 0, 41, "Output",ExpressionUUID->"6af143a4-6ae5-fb45-8cd1-6940f2290ff9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[217621, 6038, 1938, 53, 232, "Input",ExpressionUUID->"b9a7e2d9-7e48-cb4c-89bc-12d8b19f0936"], +Cell[219562, 6093, 342, 6, 26, "Message",ExpressionUUID->"d3cb6fbc-3803-0541-80d1-8cab47341c44"], +Cell[219907, 6101, 342, 6, 26, "Message",ExpressionUUID->"635ef23c-be29-f947-b49d-c0d2f59f2ba8"], +Cell[220252, 6109, 342, 6, 26, "Message",ExpressionUUID->"d8687e0f-2f42-0543-a749-78a1ff3c9572"], +Cell[220597, 6117, 407, 7, 48, "Message",ExpressionUUID->"b055d243-2255-1f40-80bd-55bc54524667"], +Cell[221007, 6126, 9852, 394, 232, 4231, 300, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"8a200671-82f1-364d-8dba-8342607ad7b7"], +Cell[230862, 6522, 191, 5, 41, "Output",ExpressionUUID->"e49c1b8d-fabe-b944-a6dd-c578eb57eb6a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[231090, 6532, 2094, 60, 311, "Input",ExpressionUUID->"4b73592e-b155-8f42-b33d-562f8b3faecd"], +Cell[233187, 6594, 342, 6, 26, "Message",ExpressionUUID->"9f5fa53c-8bea-a349-9c29-e4614f56cc98"], +Cell[233532, 6602, 342, 6, 26, "Message",ExpressionUUID->"a2ecd22c-b766-5347-9e03-9d459620be75"], +Cell[233877, 6610, 342, 6, 26, "Message",ExpressionUUID->"45a49c2b-98f0-ca4e-ab79-bb0334e26ffd"], +Cell[234222, 6618, 407, 7, 48, "Message",ExpressionUUID->"258782e2-0da4-1143-8b36-76da0d2ac6df"], +Cell[234632, 6627, 10253, 391, 232, 4113, 287, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"06204099-db57-8e4e-bcc4-fa1ae37c0063"], +Cell[244888, 7020, 191, 5, 41, "Output",ExpressionUUID->"8efa1c1f-552a-d042-8a05-04dec8739bf5"] +}, Open ]], +Cell[245094, 7028, 2453, 69, 296, "Input",ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-5e6c7b4b5678"], +Cell[247550, 7099, 209, 5, 36, "Input",ExpressionUUID->"cd9a8165-891b-9245-aca1-3f60fcfd9a79"], +Cell[CellGroupData[{ +Cell[247784, 7108, 215, 7, 61, "Input",ExpressionUUID->"c213919d-017d-a948-8e46-fe19384187c3"], +Cell[248002, 7117, 100, 0, 41, "Output",ExpressionUUID->"38d25667-6c7c-094b-b4ad-180d70233424"] +}, Open ]], +Cell[CellGroupData[{ +Cell[248139, 7122, 1814, 53, 311, "Input",ExpressionUUID->"3764dfb4-9656-4349-b0a1-77ebd1a3e048"], +Cell[249956, 7177, 342, 6, 26, "Message",ExpressionUUID->"12d513db-13cc-bc48-b9a3-22b17d8aeb9a"], +Cell[250301, 7185, 342, 6, 26, "Message",ExpressionUUID->"05911c33-7605-8b49-a7ba-7fc8c8f30741"], +Cell[250646, 7193, 342, 6, 26, "Message",ExpressionUUID->"2192e048-2875-9f4a-aa0c-9cbbd447dfe1"], +Cell[250991, 7201, 407, 7, 48, "Message",ExpressionUUID->"b6990f5f-359f-464b-ac16-44cdfeae3c8e"], +Cell[251401, 7210, 10062, 396, 232, 4186, 297, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"899e43aa-c372-6647-a3e4-4952f308ab17"], +Cell[261466, 7608, 191, 5, 41, "Output",ExpressionUUID->"65116f16-0f68-7e4d-af2e-baecb9a57d9b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[261694, 7618, 1590, 47, 132, "Input",ExpressionUUID->"7899a8a7-561e-a946-a6c9-870ef14ce01b"], +Cell[263287, 7667, 342, 6, 26, "Message",ExpressionUUID->"d7dfab56-fefd-0149-8a26-6ee16f94ab37"], +Cell[263632, 7675, 101, 0, 41, "Output",ExpressionUUID->"43ddf880-80a2-b142-8665-3b95395a9831"] +}, Open ]], +Cell[CellGroupData[{ +Cell[263770, 7680, 2247, 64, 348, "Input",ExpressionUUID->"6fd9b05c-8008-7b42-b1b4-8e83e9537fdc"], +Cell[266020, 7746, 342, 6, 26, "Message",ExpressionUUID->"56921c73-2b67-0e4a-9808-5f61de992c7e"], +Cell[266365, 7754, 342, 6, 26, "Message",ExpressionUUID->"8ae663ad-3729-254b-9ec7-7f5d00ef81af"], +Cell[266710, 7762, 103, 0, 41, "Output",ExpressionUUID->"42e3f6c5-e95f-4040-9e12-cbd48f821f10"] +}, Open ]], +Cell[CellGroupData[{ +Cell[266850, 7767, 2219, 64, 348, "Input",ExpressionUUID->"ccaee6a3-c390-0444-bf16-3471356a3614"], +Cell[269072, 7833, 342, 6, 26, "Message",ExpressionUUID->"1795c3b9-0182-224c-b986-6414d6712c04"], +Cell[269417, 7841, 342, 6, 26, "Message",ExpressionUUID->"c3b31753-a67f-9b45-b822-068e1df11f68"], +Cell[269762, 7849, 100, 0, 41, "Output",ExpressionUUID->"7f3b68f0-36cd-5749-996b-97ffcb02c6cf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[269899, 7854, 2221, 64, 348, "Input",ExpressionUUID->"ca0cc669-d7ba-5b4a-b58b-286954db37c5"], +Cell[272123, 7920, 342, 6, 26, "Message",ExpressionUUID->"32db1bf6-ba11-cb4a-955a-52e174a44e5f"], +Cell[272468, 7928, 342, 6, 26, "Message",ExpressionUUID->"4e2b22f2-1724-7649-93fc-33cd27bb415e"], +Cell[272813, 7936, 101, 0, 41, "Output",ExpressionUUID->"34543184-0f68-7449-9af8-306cfc525771"] +}, Open ]], +Cell[CellGroupData[{ +Cell[272951, 7941, 215, 6, 60, "Input",ExpressionUUID->"7ec678fd-8398-414a-aeba-20e078d734cd"], +Cell[273169, 7949, 104, 0, 41, "Output",ExpressionUUID->"ca67de9f-825c-f641-9d0a-229375d081b1"] +}, Open ]], +Cell[273288, 7952, 247, 5, 36, "Input",ExpressionUUID->"ca329276-48d7-8943-8408-dd2997d3499c"], +Cell[CellGroupData[{ +Cell[273560, 7961, 532, 18, 66, "Input",ExpressionUUID->"681c316f-cd82-ae4b-824f-5eb2b3081f6d"], +Cell[274095, 7981, 100, 0, 41, "Output",ExpressionUUID->"9cf6d8e0-9f1b-734e-b42f-ef77566b5546"] +}, Open ]], +Cell[CellGroupData[{ +Cell[274232, 7986, 144, 4, 71, "Input",ExpressionUUID->"11e77a67-96b2-a645-89cd-559587f30b91"], +Cell[274379, 7992, 100, 0, 41, "Output",ExpressionUUID->"c5ed49bf-8480-c447-a0ac-ef7c5fcad104"] +}, Open ]], +Cell[CellGroupData[{ +Cell[274516, 7997, 155, 4, 55, "Input",ExpressionUUID->"3c5f43e9-afc4-be40-8f37-0116656ecd38"], +Cell[274674, 8003, 100, 0, 41, "Output",ExpressionUUID->"8a551ee1-59e8-d74e-b2fe-ad1527aaef53"] +}, Open ]], +Cell[CellGroupData[{ +Cell[274811, 8008, 6029, 184, 831, "Input",ExpressionUUID->"f07a8476-d7bc-1049-82a6-7cf06f61e28f"], +Cell[280843, 8194, 102, 0, 41, "Output",ExpressionUUID->"6efee3b5-10d6-d642-9cf2-dd8d3fe591e1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[280982, 8199, 342, 8, 53, "Input",ExpressionUUID->"b88b1a94-22d7-2843-88e3-f607b95c8af9"], +Cell[281327, 8209, 342, 6, 26, "Message",ExpressionUUID->"def6b331-c871-b04d-a16e-4fc00b03d009"], +Cell[281672, 8217, 99, 0, 41, "Output",ExpressionUUID->"332f8da7-4eec-ed47-b124-edf7e2bf43d7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[281808, 8222, 6096, 186, 900, "Input",ExpressionUUID->"9d771aab-c0b4-f24c-9b53-9472e00c4d82"], +Cell[287907, 8410, 102, 0, 41, "Output",ExpressionUUID->"0f048ce5-7f5e-0a41-a634-6908b289becd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[288046, 8415, 342, 8, 53, "Input",ExpressionUUID->"47e2a8e8-6af3-374f-9eea-9c2b6faaaf4a"], +Cell[288391, 8425, 342, 6, 26, "Message",ExpressionUUID->"c6c8676e-4601-144e-b83c-769e22949175"], +Cell[288736, 8433, 100, 0, 41, "Output",ExpressionUUID->"bd9f2dfb-0880-624c-8a61-fa3104084faf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[288873, 8438, 2637, 87, 435, "Input",ExpressionUUID->"d8757b1c-19d9-d548-8de4-6b0985b9b3bc"], +Cell[291513, 8527, 101, 0, 41, "Output",ExpressionUUID->"6edb9332-f61a-1c4a-ad7b-c9d3e77138f1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[291651, 8532, 2577, 84, 435, "Input",ExpressionUUID->"58b59182-fae5-674d-b49e-4868d83e9702"], +Cell[294231, 8618, 102, 0, 41, "Output",ExpressionUUID->"5f6645b8-6ac5-6148-a1e1-5f2ee5f21bdd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[294370, 8623, 3686, 117, 575, "Input",ExpressionUUID->"5caf1614-7e5c-9940-98cd-9460e2c074b2"], +Cell[298059, 8742, 102, 0, 41, "Output",ExpressionUUID->"9de56db9-9853-1748-aca6-5103b9dea11d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[298198, 8747, 2052, 59, 276, "Input",ExpressionUUID->"db0784f6-51d0-fd44-b0e8-05d6af1a6e52"], +Cell[300253, 8808, 342, 6, 26, "Message",ExpressionUUID->"7fd60dea-f794-4744-8801-bfb1a50a0e07"], +Cell[300598, 8816, 342, 6, 26, "Message",ExpressionUUID->"0b8c0718-41d2-4542-8afe-212a15805650"], +Cell[300943, 8824, 101, 0, 41, "Output",ExpressionUUID->"a8a97847-bb08-1e4d-8ab6-1eb11a1cda8f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[301081, 8829, 2054, 59, 276, "Input",ExpressionUUID->"7ca6aa7a-7318-6f41-95dc-f69c33a31448"], +Cell[303138, 8890, 342, 6, 26, "Message",ExpressionUUID->"b6f0ccc2-ff83-124b-a341-e143319c7670"], +Cell[303483, 8898, 342, 6, 26, "Message",ExpressionUUID->"d4b50e17-5ee4-384c-b81f-c2a36a80320e"], +Cell[303828, 8906, 100, 0, 41, "Output",ExpressionUUID->"f80834f1-cc9f-1c44-a97c-64c50ba97b67"] +}, Open ]], +Cell[CellGroupData[{ +Cell[303965, 8911, 2030, 55, 232, "Input",ExpressionUUID->"611f92ea-b199-2643-9788-194fae57c34e"], +Cell[305998, 8968, 342, 6, 26, "Message",ExpressionUUID->"7797a546-4085-124a-83da-5f3c472cdc4c"], +Cell[306343, 8976, 342, 6, 26, "Message",ExpressionUUID->"bf75ebeb-fc95-1d45-8487-ceed40ec633c"], +Cell[306688, 8984, 342, 6, 26, "Message",ExpressionUUID->"ca7472ca-7b27-a54a-84a1-e603fa592207"], +Cell[307033, 8992, 407, 7, 48, "Message",ExpressionUUID->"86b3b7d9-f0e9-0a4b-9079-b341ca597ab4"], +Cell[307443, 9001, 11714, 476, 232, 5172, 366, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"f3c0c3aa-fd64-8e41-bc0a-ae36b33a37ec"], +Cell[319160, 9479, 191, 5, 41, "Output",ExpressionUUID->"23cfff6f-2c67-ce46-9cc6-49e8ffb5e8c8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[319388, 9489, 2118, 60, 311, "Input",ExpressionUUID->"f4c3d53a-1214-a145-beb0-494cdae35e56"], +Cell[321509, 9551, 342, 6, 26, "Message",ExpressionUUID->"b9265795-17b8-4e47-bd29-fee31586537e"], +Cell[321854, 9559, 342, 6, 26, "Message",ExpressionUUID->"072fb53f-7116-0f41-a298-6891351a3192"], +Cell[322199, 9567, 342, 6, 26, "Message",ExpressionUUID->"7f686ca7-db7f-0b40-bbd8-c08a80d2c198"], +Cell[322544, 9575, 407, 7, 48, "Message",ExpressionUUID->"3aaeaf29-5b60-ab47-b674-24d071c511f8"], +Cell[322954, 9584, 10793, 406, 232, 4269, 296, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"fb5ee406-78d5-a849-9c81-3ea500ee883f"], +Cell[333750, 9992, 191, 5, 41, "Output",ExpressionUUID->"637816d3-cc2d-bb4a-991c-87bc9c72594a"] +}, Open ]], +Cell[333956, 10000, 209, 5, 36, "Input",ExpressionUUID->"2335a158-7588-4c40-bdb5-53b7ef04b97c"], +Cell[CellGroupData[{ +Cell[334190, 10009, 1590, 47, 132, "Input",ExpressionUUID->"01995149-3665-fe4e-b326-b20429031afd"], +Cell[335783, 10058, 342, 6, 26, "Message",ExpressionUUID->"52cff8eb-0c77-c944-a54f-e282b00ce766"], +Cell[336128, 10066, 101, 0, 41, "Output",ExpressionUUID->"51c9eb8e-8429-9440-b4d1-8a2a914a816b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[336266, 10071, 2251, 64, 348, "Input",ExpressionUUID->"11b1e372-f457-5a4d-bcee-062a3c04ed96"], +Cell[338520, 10137, 342, 6, 26, "Message",ExpressionUUID->"cb5a1193-7562-6446-a279-d9f6295d156e"], +Cell[338865, 10145, 342, 6, 26, "Message",ExpressionUUID->"566b0ad4-7f4e-b04f-8294-646ce1913fac"], +Cell[339210, 10153, 101, 0, 41, "Output",ExpressionUUID->"9a717f6e-3c47-7d43-93ae-4bf4814b6aa7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[339348, 10158, 2220, 64, 348, "Input",ExpressionUUID->"8cb4e371-90a5-d347-adec-3382e7679ba8"], +Cell[341571, 10224, 342, 6, 26, "Message",ExpressionUUID->"4cd45900-7eb0-6b4b-830a-a339e8117392"], +Cell[341916, 10232, 342, 6, 26, "Message",ExpressionUUID->"0ddcf174-f6c5-2546-b6d3-f17f46d6e8a3"], +Cell[342261, 10240, 101, 0, 41, "Output",ExpressionUUID->"3e9bc444-276c-294e-8c8d-12ef37255e0d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[342399, 10245, 2223, 64, 348, "Input",ExpressionUUID->"732b358a-c98a-0347-8b16-2462b23d6249"], +Cell[344625, 10311, 342, 6, 26, "Message",ExpressionUUID->"f702ec8b-e3a1-2f4f-bfef-4278a2688935"], +Cell[344970, 10319, 342, 6, 26, "Message",ExpressionUUID->"61220452-df6a-154e-8b5c-fecd0ab287a1"], +Cell[345315, 10327, 101, 0, 41, "Output",ExpressionUUID->"d8ce023f-3349-8348-844a-2526397581d1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[345453, 10332, 215, 6, 60, "Input",ExpressionUUID->"3d20548b-905d-0343-8df1-168ec8f367e1"], +Cell[345671, 10340, 102, 0, 41, "Output",ExpressionUUID->"b33ad8ed-51f6-a045-9dc5-33a5696fd31e"] +}, Open ]], +Cell[345788, 10343, 247, 5, 36, "Input",ExpressionUUID->"ca34450b-ff3b-f34a-a2ed-e661a25a7ba1"], +Cell[CellGroupData[{ +Cell[346060, 10352, 532, 18, 66, "Input",ExpressionUUID->"601c24ee-3f7b-c74d-891b-10a6d009e34b"], +Cell[346595, 10372, 101, 0, 41, "Output",ExpressionUUID->"f1ecc2fd-4cd6-5249-8977-1cc4a714ca85"] +}, Open ]], +Cell[CellGroupData[{ +Cell[346733, 10377, 144, 4, 71, "Input",ExpressionUUID->"05949206-8ee0-5646-bb01-e9142212274d"], +Cell[346880, 10383, 101, 0, 41, "Output",ExpressionUUID->"0b6f2dc1-dd2d-e341-8cc9-32a5777d3dad"] +}, Open ]], +Cell[CellGroupData[{ +Cell[347018, 10388, 155, 4, 55, "Input",ExpressionUUID->"25a02cc2-cb9a-bc4b-93f0-a7873f982a23"], +Cell[347176, 10394, 100, 0, 41, "Output",ExpressionUUID->"b4c0b4dc-7ff0-3246-8607-df7a1b97c52c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[347313, 10399, 6029, 184, 831, "Input",ExpressionUUID->"df51ca6a-83a1-6340-b13c-0185de64c37f"], +Cell[353345, 10585, 102, 0, 41, "Output",ExpressionUUID->"c326471e-e866-ed4e-b72f-a7b5b42c78d0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[353484, 10590, 342, 8, 53, "Input",ExpressionUUID->"731f0e35-7798-8b45-a769-075ac4b3983f"], +Cell[353829, 10600, 342, 6, 26, "Message",ExpressionUUID->"4870a5d4-b6fc-9044-ae55-fcbd2b9d41eb"], +Cell[354174, 10608, 100, 0, 41, "Output",ExpressionUUID->"4263cd25-e2b6-5c4b-8834-28c6ca12b863"] +}, Open ]], +Cell[CellGroupData[{ +Cell[354311, 10613, 6096, 186, 900, "Input",ExpressionUUID->"413c8e7d-149c-5d4a-9ccb-23aebae2e6d5"], +Cell[360410, 10801, 102, 0, 41, "Output",ExpressionUUID->"ad614c41-0fc1-a542-b7a8-b8207b3c6926"] +}, Open ]], +Cell[CellGroupData[{ +Cell[360549, 10806, 342, 8, 53, "Input",ExpressionUUID->"e11d7eb8-00a8-f540-98a0-89164ac4bae9"], +Cell[360894, 10816, 342, 6, 26, "Message",ExpressionUUID->"d6f4e6b1-3d45-7649-b7dd-944c4a1de3e4"], +Cell[361239, 10824, 99, 0, 41, "Output",ExpressionUUID->"27fdf87b-577e-d74b-99f1-6a0486be19bc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[361375, 10829, 2637, 87, 435, "Input",ExpressionUUID->"08e21b26-8d64-ea4e-8647-1ee89e798d8f"], +Cell[364015, 10918, 101, 0, 41, "Output",ExpressionUUID->"c5362b47-cc2f-ba44-9fef-3c67d726a6cb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[364153, 10923, 2577, 84, 435, "Input",ExpressionUUID->"ae5c0a90-3245-6943-a137-f30d036fcdd2"], +Cell[366733, 11009, 102, 0, 41, "Output",ExpressionUUID->"677f20c9-f9ab-dc41-bd69-627a1665b370"] +}, Open ]], +Cell[CellGroupData[{ +Cell[366872, 11014, 3686, 117, 575, "Input",ExpressionUUID->"46af1283-32d6-7240-acd2-307af56b44db"], +Cell[370561, 11133, 102, 0, 41, "Output",ExpressionUUID->"eb28891c-1746-424b-aa98-1266448f9a3e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[370700, 11138, 2054, 59, 276, "Input",ExpressionUUID->"cd516020-ac7f-224d-b1ff-af0307420662"], +Cell[372757, 11199, 342, 6, 26, "Message",ExpressionUUID->"b82c1933-5313-1d4c-a858-68be8f118333"], +Cell[373102, 11207, 342, 6, 26, "Message",ExpressionUUID->"3b3475f7-7db7-054a-b7f5-20d8f7d491bf"], +Cell[373447, 11215, 100, 0, 41, "Output",ExpressionUUID->"dfa1aa9c-9811-0d49-a9f3-e5e1bcdf702f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[373584, 11220, 2054, 59, 276, "Input",ExpressionUUID->"a9d0e817-a1c8-6546-a901-34313c6ec04d"], +Cell[375641, 11281, 342, 6, 26, "Message",ExpressionUUID->"9e0b92f8-7fe2-e84e-89cd-c02c9da3e5b7"], +Cell[375986, 11289, 342, 6, 26, "Message",ExpressionUUID->"56712e4d-1aa7-524a-8254-bcfd8978eea0"], +Cell[376331, 11297, 100, 0, 41, "Output",ExpressionUUID->"b342636b-f081-cc49-b1ae-5647aa39d6ab"] +}, Open ]], +Cell[CellGroupData[{ +Cell[376468, 11302, 2030, 55, 232, "Input",ExpressionUUID->"f68960b0-cff6-3245-b906-ad38cf07d634"], +Cell[378501, 11359, 342, 6, 26, "Message",ExpressionUUID->"9c6ce535-b42f-3c43-a89e-eda48c04121e"], +Cell[378846, 11367, 342, 6, 26, "Message",ExpressionUUID->"e2ce6bda-7d9b-6149-bf5b-dd4c91908e28"], +Cell[379191, 11375, 342, 6, 26, "Message",ExpressionUUID->"2bed6df2-09cb-4d4d-b247-4fe79fd38fd6"], +Cell[379536, 11383, 407, 7, 48, "Message",ExpressionUUID->"64a64e18-e609-d54b-8225-64fa7909a948"], +Cell[379946, 11392, 11714, 476, 232, 5172, 366, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"7758daab-adf8-2a49-9166-50457409d355"], +Cell[391663, 11870, 191, 5, 41, "Output",ExpressionUUID->"4f7705b8-e954-b341-ab6d-8b4ad9ffca61"] +}, Open ]], +Cell[CellGroupData[{ +Cell[391891, 11880, 2143, 61, 311, "Input",ExpressionUUID->"d43bf17b-b492-0e4a-af4a-6a3bc399953c"], +Cell[394037, 11943, 342, 6, 26, "Message",ExpressionUUID->"2059be4f-bbb2-da49-9e23-3fc4d150d7a8"], +Cell[394382, 11951, 342, 6, 26, "Message",ExpressionUUID->"71d4e039-c2b8-d74d-819a-80d2051e4273"], +Cell[394727, 11959, 342, 6, 26, "Message",ExpressionUUID->"63625e13-15ef-1f45-89dc-998a1b63a626"], +Cell[395072, 11967, 407, 7, 48, "Message",ExpressionUUID->"ff96fc2b-5ddb-2142-a985-58ccc6f07e00"], +Cell[395482, 11976, 10793, 406, 232, 4269, 296, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"a63f48d3-505f-0a45-b944-e872edd94d6c"], +Cell[406278, 12384, 191, 5, 41, "Output",ExpressionUUID->"be4328c1-f4b7-a444-b59f-1872f77ea023"] +}, Open ]], +Cell[406484, 12392, 138, 3, 36, "Input",ExpressionUUID->"4ad58a38-0776-5240-aa41-ba7c8ff64fb9"], +Cell[CellGroupData[{ +Cell[406647, 12399, 1590, 47, 132, "Input",ExpressionUUID->"3edaf53b-bb09-6646-b79e-9350413e0b42"], +Cell[408240, 12448, 342, 6, 26, "Message",ExpressionUUID->"2b38d1a8-4a7e-7b4f-8cdd-5298fced63d9"], +Cell[408585, 12456, 101, 0, 41, "Output",ExpressionUUID->"6941b2ce-51d7-0b43-b524-1e41573ef5f9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[408723, 12461, 2249, 64, 348, "Input",ExpressionUUID->"d2148290-3e90-8347-bddd-5dd8190b0268"], +Cell[410975, 12527, 342, 6, 26, "Message",ExpressionUUID->"905b237c-0e51-ab4b-895d-05994c6f1d5f"], +Cell[411320, 12535, 342, 6, 26, "Message",ExpressionUUID->"7ad8c79e-9570-a44d-b593-07aa87056e21"], +Cell[411665, 12543, 100, 0, 41, "Output",ExpressionUUID->"7a6165f1-f4e7-1f40-9890-5c13218f6833"] +}, Open ]], +Cell[CellGroupData[{ +Cell[411802, 12548, 2219, 64, 348, "Input",ExpressionUUID->"3cdd2064-36e7-b44d-bb0f-98d71f8a8458"], +Cell[414024, 12614, 342, 6, 26, "Message",ExpressionUUID->"c516c31a-74b4-f24d-a16a-678221cde87e"], +Cell[414369, 12622, 342, 6, 26, "Message",ExpressionUUID->"5c50b555-9ebe-f94d-801f-34634555f622"], +Cell[414714, 12630, 99, 0, 41, "Output",ExpressionUUID->"c7a13a95-1179-054f-9108-fe96e6564880"] +}, Open ]], +Cell[CellGroupData[{ +Cell[414850, 12635, 2221, 64, 348, "Input",ExpressionUUID->"c1d3ae3d-f5ac-b04d-af0f-57c1fe1d0585"], +Cell[417074, 12701, 342, 6, 26, "Message",ExpressionUUID->"7ca591cf-a5ce-ce41-8101-8edfca50e890"], +Cell[417419, 12709, 342, 6, 26, "Message",ExpressionUUID->"cbafd11a-4be0-b541-81e4-e62191ae7695"], +Cell[417764, 12717, 101, 0, 41, "Output",ExpressionUUID->"7d22c643-14ba-7245-8972-7de9bf840536"] +}, Open ]], +Cell[CellGroupData[{ +Cell[417902, 12722, 215, 6, 60, "Input",ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-1ca469b254bd"], +Cell[418120, 12730, 102, 0, 41, "Output",ExpressionUUID->"d15888a7-bf5a-b54e-a332-976645c927ce"] +}, Open ]], +Cell[418237, 12733, 185, 4, 36, "Input",ExpressionUUID->"73a1a5fc-e75f-4850-90c9-3c23108da707"] } ] *) -(* End of internal cache information *) - diff --git a/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_osc_Qw1.nb b/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_osc_Qw1.nb index ccdb99f..d82a4f8 100755 --- a/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_osc_Qw1.nb +++ b/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_osc_Qw1.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 576061, 14370] -NotebookOptionsPosition[ 534086, 13699] -NotebookOutlinePosition[ 534520, 13717] -CellTagsIndexPosition[ 534477, 13714] +NotebookDataLength[ 582170, 14508] +NotebookOptionsPosition[ 539911, 13836] +NotebookOutlinePosition[ 540351, 13854] +CellTagsIndexPosition[ 540308, 13851] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -21,18 +21,19 @@ Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"d", "=", "3"}]], "Input", + RowBox[{"d", "=", "1.6"}]], "Input", CellChangeTimes->{ 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, - 3.9920650045886707`*^9}, + 3.9920650045886707`*^9, {3.9940727514461927`*^9, 3.994072775295883*^9}}, CellLabel-> - "In[102]:=",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], + "In[104]:=",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], -Cell[BoxData["3"], "Output", - CellChangeTimes->{3.991320420900818*^9, 3.99379974700918*^9, - 3.993800338579624*^9, 3.9938003856877937`*^9}, +Cell[BoxData["1.6`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, 3.99379974700918*^9, 3.993800338579624*^9, + 3.9938003856877937`*^9, {3.994072756527327*^9, 3.9940727765701942`*^9}}, CellLabel-> - "Out[102]=",ExpressionUUID->"a6b709bd-9005-4d9f-b6c8-62aabc6b9e58"] + "Out[104]=",ExpressionUUID->"94e24c15-15ed-42ef-b22d-c99c75b428ac"] }, Open ]], Cell[CellGroupData[{ @@ -42,13 +43,14 @@ Cell[BoxData[ CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { 3.993799082059058*^9, 3.9937990826790457`*^9}}, CellLabel-> - "In[103]:=",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], + "In[105]:=",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], Cell[BoxData["240"], "Output", - CellChangeTimes->{3.9913196497381973`*^9, 3.993799747282215*^9, - 3.99380033885446*^9, 3.993800385764146*^9}, + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.993799747282215*^9, 3.99380033885446*^9, + 3.993800385764146*^9, {3.994072756590721*^9, 3.994072776647262*^9}}, CellLabel-> - "Out[103]=",ExpressionUUID->"73111933-b136-4fc0-9696-ef702729a516"] + "Out[105]=",ExpressionUUID->"34c6b4fd-e68f-4625-8550-5e36e44c38a4"] }, Open ]], Cell[CellGroupData[{ @@ -58,13 +60,14 @@ Cell[BoxData[ CellChangeTimes->{ 3.991798961431202*^9, {3.993799246718399*^9, 3.993799247496731*^9}}, CellLabel-> - "In[104]:=",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], + "In[106]:=",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], Cell[BoxData["176"], "Output", - CellChangeTimes->{3.9913196497578354`*^9, 3.993799747300477*^9, - 3.993800338871715*^9, 3.993800385779578*^9}, + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.993799747300477*^9, 3.993800338871715*^9, + 3.993800385779578*^9, {3.994072756603456*^9, 3.9940727766610518`*^9}}, CellLabel-> - "Out[104]=",ExpressionUUID->"fd95e897-4810-4d59-9f9c-c1ee23c12837"] + "Out[106]=",ExpressionUUID->"dbd2df9c-4020-409c-9867-a0c2d20e2b21"] }, Open ]], Cell[CellGroupData[{ @@ -73,13 +76,14 @@ Cell[BoxData[ RowBox[{"a1", "=", "0.55"}]], "Input", CellChangeTimes->{3.9434144380252676`*^9}, CellLabel-> - "In[105]:=",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], + "In[107]:=",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], Cell[BoxData["0.55`"], "Output", - CellChangeTimes->{3.991319649777508*^9, 3.993799747316929*^9, - 3.993800338888788*^9, 3.993800385794606*^9}, + CellChangeTimes->{ + 3.991319649777508*^9, 3.993799747316929*^9, 3.993800338888788*^9, + 3.993800385794606*^9, {3.994072756615819*^9, 3.994072776674831*^9}}, CellLabel-> - "Out[105]=",ExpressionUUID->"21614744-42ab-43ba-a5e1-34eeb6798db1"] + "Out[107]=",ExpressionUUID->"a5fcbf1b-c156-4184-973f-48b00dea4a67"] }, Open ]], Cell[CellGroupData[{ @@ -92,13 +96,14 @@ Cell[BoxData[ RowBox[{ RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", CellLabel-> - "In[106]:=",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], + "In[108]:=",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], Cell[BoxData["0.543`"], "Output", - CellChangeTimes->{3.9913196497965145`*^9, 3.993799747333138*^9, - 3.993800338906427*^9, 3.993800385809697*^9}, + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.993799747333138*^9, 3.993800338906427*^9, + 3.993800385809697*^9, {3.994072756628705*^9, 3.994072776688608*^9}}, CellLabel-> - "Out[106]=",ExpressionUUID->"04c4e6eb-deb1-4abc-b466-7a2a66dd1c9f"] + "Out[108]=",ExpressionUUID->"47a65611-78e7-4cc4-a917-8162adf1436d"] }, Open ]], Cell[CellGroupData[{ @@ -106,13 +111,14 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"p0", "=", "0.17"}]], "Input", CellLabel-> - "In[107]:=",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], + "In[109]:=",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], Cell[BoxData["0.17`"], "Output", - CellChangeTimes->{3.9913196498144608`*^9, 3.9937997473490753`*^9, - 3.993800338928018*^9, 3.993800385813496*^9}, + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.9937997473490753`*^9, 3.993800338928018*^9, + 3.993800385813496*^9, {3.994072756641103*^9, 3.994072776693177*^9}}, CellLabel-> - "Out[107]=",ExpressionUUID->"4f0226a9-52b4-4f74-ab90-198732113c63"] + "Out[109]=",ExpressionUUID->"97e4329c-dab4-4920-b7ab-321b28675020"] }, Open ]], Cell[CellGroupData[{ @@ -124,13 +130,14 @@ Cell[BoxData[ RowBox[{"1", "/", "3"}]]}]}]], "Input", CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, CellLabel-> - "In[108]:=",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], + "In[110]:=",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], Cell[BoxData["6.5007312471204965`"], "Output", - CellChangeTimes->{3.9913196498225155`*^9, 3.993799747366351*^9, - 3.993800338948053*^9, 3.993800385835421*^9}, + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.993799747366351*^9, 3.993800338948053*^9, + 3.993800385835421*^9, {3.994072756653392*^9, 3.994072776710863*^9}}, CellLabel-> - "Out[108]=",ExpressionUUID->"553d9e82-f716-44d2-b85b-6026ce80395c"] + "Out[110]=",ExpressionUUID->"1d5eebbe-896a-446a-a0c9-37de0853e4ed"] }, Open ]], Cell[CellGroupData[{ @@ -143,13 +150,14 @@ Cell[BoxData[ RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"1", "/", "3"}]]}]}]], "Input", CellLabel-> - "In[109]:=",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], + "In[111]:=",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], Cell[BoxData["4.64`"], "Output", - CellChangeTimes->{3.9913196498425236`*^9, 3.993799747384128*^9, - 3.993800338968402*^9, 3.993800385850627*^9}, + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.993799747384128*^9, 3.993800338968402*^9, + 3.993800385850627*^9, {3.9940727566658983`*^9, 3.994072776724451*^9}}, CellLabel-> - "Out[109]=",ExpressionUUID->"7b1f324e-8d44-40a5-a0bb-dc90e2fb4080"] + "Out[111]=",ExpressionUUID->"f305b328-93c2-45a6-a12c-167219928195"] }, Open ]], Cell[CellGroupData[{ @@ -161,13 +169,14 @@ Cell[BoxData[ 3.993799364756247*^9, 3.993799370026516*^9}, {3.993799480203456*^9, 3.993799488443741*^9}}, CellLabel-> - "In[110]:=",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], + "In[112]:=",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], Cell[BoxData["0.7654`"], "Output", - CellChangeTimes->{3.9937997474107447`*^9, 3.993800338988703*^9, - 3.9938003858649893`*^9}, + CellChangeTimes->{ + 3.9937997474107447`*^9, 3.993800338988703*^9, 3.9938003858649893`*^9, { + 3.994072756678184*^9, 3.994072776737771*^9}}, CellLabel-> - "Out[110]=",ExpressionUUID->"6a1ced4b-4e2b-45a1-807d-ffbfe17ab777"] + "Out[112]=",ExpressionUUID->"1c91a03e-2c2f-4b0b-9a06-57ddd1d05e12"] }, Open ]], Cell[CellGroupData[{ @@ -177,13 +186,14 @@ Cell[BoxData[ CellChangeTimes->{ 3.991799280663351*^9, {3.993799372069343*^9, 3.993799377027832*^9}}, CellLabel-> - "In[111]:=",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], + "In[113]:=",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], Cell[BoxData["0.4513`"], "Output", - CellChangeTimes->{3.993799747427882*^9, 3.993800339005568*^9, - 3.993800385879345*^9}, + CellChangeTimes->{ + 3.993799747427882*^9, 3.993800339005568*^9, 3.993800385879345*^9, { + 3.9940727566903763`*^9, 3.9940727767497873`*^9}}, CellLabel-> - "Out[111]=",ExpressionUUID->"e94da88b-5d08-448c-9a21-f2748634bdf9"] + "Out[113]=",ExpressionUUID->"fda100fe-3b6e-4eeb-bdae-9dc1a4c08b06"] }, Open ]], Cell[CellGroupData[{ @@ -191,13 +201,14 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x1", "=", "0"}]], "Input", CellLabel-> - "In[112]:=",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], + "In[114]:=",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], Cell[BoxData["0"], "Output", - CellChangeTimes->{3.9913196498927155`*^9, 3.993799747452092*^9, - 3.993800339022945*^9, 3.993800385893304*^9}, + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.993799747452092*^9, 3.993800339022945*^9, + 3.993800385893304*^9, {3.994072756702078*^9, 3.9940727767611856`*^9}}, CellLabel-> - "Out[112]=",ExpressionUUID->"502685d0-1d40-477a-b48d-974617ebe9f3"] + "Out[114]=",ExpressionUUID->"bfcc5510-7d9d-42e9-8316-4bfaeeff738c"] }, Open ]], Cell[CellGroupData[{ @@ -205,13 +216,14 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x2", "=", "0"}]], "Input", CellLabel-> - "In[113]:=",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], + "In[115]:=",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], Cell[BoxData["0"], "Output", - CellChangeTimes->{3.9913196498996067`*^9, 3.993799747468101*^9, - 3.993800339041868*^9, 3.9938003859074306`*^9}, + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.993799747468101*^9, 3.993800339041868*^9, + 3.9938003859074306`*^9, {3.9940727567134666`*^9, 3.994072776772606*^9}}, CellLabel-> - "Out[113]=",ExpressionUUID->"08db641a-c8b3-4dca-9a44-a4bd072a592b"] + "Out[115]=",ExpressionUUID->"ebcd8444-a303-40cb-a71c-f7dde51f0acd"] }, Open ]], Cell[CellGroupData[{ @@ -236,13 +248,14 @@ Cell[BoxData[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", CellLabel-> - "In[114]:=",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], + "In[116]:=",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], Cell[BoxData["2.0171665757171935`"], "Output", - CellChangeTimes->{3.9913197863028755`*^9, 3.9937997474836817`*^9, - 3.9938003390596933`*^9, 3.993800385921398*^9}, + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.9937997474836817`*^9, 3.9938003390596933`*^9, + 3.993800385921398*^9, {3.994072756725263*^9, 3.994072776784317*^9}}, CellLabel-> - "Out[114]=",ExpressionUUID->"83c98610-16c5-4994-a0fc-b161aa16b4de"] + "Out[116]=",ExpressionUUID->"85d7efb5-42c6-431e-9f16-87b72ee509e7"] }, Open ]], Cell[CellGroupData[{ @@ -267,13 +280,14 @@ Cell[BoxData[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", CellLabel-> - "In[115]:=",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], + "In[117]:=",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], Cell[BoxData["1.5074639495621045`"], "Output", - CellChangeTimes->{3.9913197864610195`*^9, 3.993799747498741*^9, - 3.993800339079308*^9, 3.993800385933773*^9}, + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.993799747498741*^9, 3.993800339079308*^9, + 3.993800385933773*^9, {3.994072756739362*^9, 3.994072776796445*^9}}, CellLabel-> - "Out[115]=",ExpressionUUID->"a15c8a41-e654-4a64-8f3a-e31a3d314cab"] + "Out[117]=",ExpressionUUID->"bbef0b26-b735-457f-bb33-de7dba0c6d22"] }, Open ]], Cell[CellGroupData[{ @@ -281,25 +295,86 @@ 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[118]:=",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], + +Cell[BoxData["0.5126444245586296`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.993799747513342*^9, 3.993800339097157*^9, + 3.993800385946536*^9, {3.994072756750792*^9, 3.9940727768075857`*^9}}, + CellLabel-> + "Out[118]=",ExpressionUUID->"de87a81e-2607-4f13-bb01-2c0aba90ce45"] +}, 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[{"(", @@ -325,81 +400,42 @@ Cell[BoxData[ SuperscriptBox["w1", "2"]}], "+", RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", - SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", CellLabel-> - "In[116]:=",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], - -Cell[BoxData["0.4652561037825781`"], "Output", - CellChangeTimes->{3.991319786533783*^9, 3.993799747513342*^9, - 3.993800339097157*^9, 3.993800385946536*^9}, - CellLabel-> - "Out[116]=",ExpressionUUID->"c4a36692-167c-4c5b-a424-30756c5e3d0e"] -}, Open ]], - -Cell[CellGroupData[{ + "In[119]:=",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", + RowBox[{"-", "0.12490541136574432`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.993799747527933*^9, 3.9938003391147947`*^9, + 3.99380038595966*^9, {3.994072756762456*^9, 3.99407277681929*^9}}, CellLabel-> - "In[117]:=",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], - -Cell[BoxData[ - RowBox[{"-", "0.10272680759529097`"}]], "Output", - CellChangeTimes->{3.991319786540777*^9, 3.993799747527933*^9, - 3.9938003391147947`*^9, 3.99380038595966*^9}, - CellLabel-> - "Out[117]=",ExpressionUUID->"3dd7f738-84ee-4649-9d7e-4f3464c700f3"] + "Out[119]=",ExpressionUUID->"51aefba2-747a-43b0-af58-703f550cbf74"] }, 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", "-", @@ -409,45 +445,32 @@ 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[118]:=",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], + "In[120]:=",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], Cell[BoxData[ - RowBox[{"-", "0.39301630304871965`"}]], "Output", - CellChangeTimes->{3.9913197865777817`*^9, 3.993799747543792*^9, - 3.993800339132107*^9, 3.9938003859736147`*^9}, + RowBox[{"-", "0.47786808677187637`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.993799747543792*^9, 3.993800339132107*^9, + 3.9938003859736147`*^9, {3.994072756774001*^9, 3.994072776830839*^9}}, CellLabel-> - "Out[118]=",ExpressionUUID->"5a509817-4137-4f89-88af-0f4ad14aee26"] + "Out[120]=",ExpressionUUID->"80411b10-a524-4256-ae6d-7eb634128cf9"] }, Open ]], Cell[CellGroupData[{ @@ -455,59 +478,62 @@ 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[119]:=",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], + "In[121]:=",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], -Cell[BoxData["0.6239930014683492`"], "Output", - CellChangeTimes->{3.9913197866129*^9, 3.993799747559553*^9, - 3.993800339136161*^9, 3.993800385987465*^9}, +Cell[BoxData["0.6637051934091774`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.993799747559553*^9, 3.993800339136161*^9, + 3.993800385987465*^9, {3.994072756786757*^9, 3.994072776842886*^9}}, CellLabel-> - "Out[119]=",ExpressionUUID->"d51b7a53-3386-45ef-a112-3f3b9ed5c327"] + "Out[121]=",ExpressionUUID->"d4dc706f-4aaf-4ee8-8bbe-12917be0a0b0"] }, Open ]], Cell[CellGroupData[{ @@ -515,13 +541,14 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", CellLabel-> - "In[120]:=",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], + "In[122]:=",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], Cell[BoxData["300"], "Output", - CellChangeTimes->{3.991319786620775*^9, 3.9937997475753107`*^9, - 3.993800339165604*^9, 3.9938003860010223`*^9}, + CellChangeTimes->{ + 3.991319786620775*^9, 3.9937997475753107`*^9, 3.993800339165604*^9, + 3.9938003860010223`*^9, {3.99407275679909*^9, 3.994072776854899*^9}}, CellLabel-> - "Out[120]=",ExpressionUUID->"4a05ff0a-a3ee-4fa8-8385-ad54818e054d"] + "Out[122]=",ExpressionUUID->"c9056f02-2308-447f-98bc-d5a9ab415f34"] }, Open ]], Cell[CellGroupData[{ @@ -529,13 +556,14 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fin", "=", "0.09"}]], "Input", CellLabel-> - "In[121]:=",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], + "In[123]:=",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], Cell[BoxData["0.09`"], "Output", - CellChangeTimes->{3.991319786657793*^9, 3.9937997475908947`*^9, - 3.993800339182325*^9, 3.9938003860157137`*^9}, + CellChangeTimes->{ + 3.991319786657793*^9, 3.9937997475908947`*^9, 3.993800339182325*^9, + 3.9938003860157137`*^9, {3.9940727568120337`*^9, 3.994072776866831*^9}}, CellLabel-> - "Out[121]=",ExpressionUUID->"cf1af63d-9882-474c-991f-46dc148f552a"] + "Out[123]=",ExpressionUUID->"a0ecae6a-e825-42e9-8b47-20cd9c952951"] }, Open ]], Cell[CellGroupData[{ @@ -545,13 +573,14 @@ Cell[BoxData[ CellChangeTimes->{{3.9938002062742653`*^9, 3.993800206278376*^9}, { 3.99380037453472*^9, 3.993800374695301*^9}}, CellLabel-> - "In[122]:=",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], + "In[124]:=",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], Cell[BoxData["0.42`"], "Output", - CellChangeTimes->{3.9913197866657925`*^9, 3.993799747607007*^9, - 3.993800339199224*^9, 3.9938003860303698`*^9}, + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.993799747607007*^9, 3.993800339199224*^9, + 3.9938003860303698`*^9, {3.994072756823955*^9, 3.994072776878458*^9}}, CellLabel-> - "Out[122]=",ExpressionUUID->"dd4b4651-2457-44a4-9982-4b7146f070d4"] + "Out[124]=",ExpressionUUID->"6275e6d7-5668-4e2b-8d65-06dfa4463bf8"] }, Open ]], Cell[CellGroupData[{ @@ -561,14 +590,15 @@ Cell[BoxData[ RowBox[{"-", "2.59"}]}]], "Input", CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, CellLabel-> - "In[123]:=",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], + "In[125]:=",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], Cell[BoxData[ RowBox[{"-", "2.59`"}]], "Output", - CellChangeTimes->{3.9913197866996*^9, 3.993799747623555*^9, - 3.9938003392162523`*^9, 3.993800386045208*^9}, + CellChangeTimes->{ + 3.9913197866996*^9, 3.993799747623555*^9, 3.9938003392162523`*^9, + 3.993800386045208*^9, {3.994072756835642*^9, 3.994072776890398*^9}}, CellLabel-> - "Out[123]=",ExpressionUUID->"69d7eb23-0a02-4e24-9db4-eb5c63784f68"] + "Out[125]=",ExpressionUUID->"fd202316-b50e-45f0-a696-992c23b345c9"] }, Open ]], Cell[CellGroupData[{ @@ -576,13 +606,14 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffex", "=", "0.54"}]], "Input", CellLabel-> - "In[124]:=",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], + "In[126]:=",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], Cell[BoxData["0.54`"], "Output", - CellChangeTimes->{3.9913197867406044`*^9, 3.9937997476274233`*^9, - 3.993800339233366*^9, 3.993800386060211*^9}, + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.9937997476274233`*^9, 3.993800339233366*^9, + 3.993800386060211*^9, {3.994072756847537*^9, 3.994072776902615*^9}}, CellLabel-> - "Out[124]=",ExpressionUUID->"606c0f24-36d5-4080-8809-73863babff97"] + "Out[126]=",ExpressionUUID->"621b7577-60b5-42e9-9252-17b6fd41cda2"] }, Open ]], Cell[CellGroupData[{ @@ -593,13 +624,14 @@ Cell[BoxData[ 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, 3.993799773981587*^9, {3.993800017055696*^9, 3.993800017126395*^9}}, CellLabel-> - "In[125]:=",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], + "In[127]:=",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], Cell[BoxData["64"], "Output", - CellChangeTimes->{3.9913197867861958`*^9, 3.993800339250176*^9, - 3.993800386074368*^9}, + CellChangeTimes->{ + 3.9913197867861958`*^9, 3.993800339250176*^9, 3.993800386074368*^9, { + 3.994072756859651*^9, 3.994072776915943*^9}}, CellLabel-> - "Out[125]=",ExpressionUUID->"57bdd7fd-a970-43d8-8682-ca63d548fbee"] + "Out[127]=",ExpressionUUID->"6fcfbaf4-17d2-4f89-90bf-ce095803ba59"] }, Open ]], Cell[CellGroupData[{ @@ -610,13 +642,14 @@ Cell[BoxData[ CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, 3.9916443064841423`*^9}, CellLabel-> - "In[126]:=",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], + "In[128]:=",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], Cell[BoxData["28"], "Output", - CellChangeTimes->{3.9913197867928696`*^9, 3.993799747743443*^9, - 3.993800339268099*^9, 3.993800386088282*^9}, + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.993799747743443*^9, 3.993800339268099*^9, + 3.993800386088282*^9, {3.994072756878846*^9, 3.994072776927128*^9}}, CellLabel-> - "Out[126]=",ExpressionUUID->"6bd2cca4-60f6-42ca-ae16-4a0281174a9e"] + "Out[128]=",ExpressionUUID->"bcd6ff18-77da-47f9-a949-6c529fbb0b7f"] }, Open ]], Cell[CellGroupData[{ @@ -626,13 +659,14 @@ Cell[BoxData[ RowBox[{"A", "-", "A1"}]}]], "Input", CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, CellLabel-> - "In[127]:=",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], + "In[129]:=",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], Cell[BoxData["64"], "Output", - CellChangeTimes->{3.991319786827894*^9, 3.993799747762579*^9, - 3.9938003392862883`*^9, 3.993800386103376*^9}, + CellChangeTimes->{ + 3.991319786827894*^9, 3.993799747762579*^9, 3.9938003392862883`*^9, + 3.993800386103376*^9, {3.994072756893341*^9, 3.994072776939496*^9}}, CellLabel-> - "Out[127]=",ExpressionUUID->"ce0f0af2-8bd0-40b4-b2b3-a811ccf324a4"] + "Out[129]=",ExpressionUUID->"306d9daa-aba8-4c99-9fcb-3c785ffd21a2"] }, Open ]], Cell[CellGroupData[{ @@ -648,13 +682,14 @@ Cell[BoxData[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", CellLabel-> - "In[128]:=",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], + "In[130]:=",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], Cell[BoxData["0.10431818181818181`"], "Output", - CellChangeTimes->{3.9913197868648605`*^9, 3.993799747778633*^9, - 3.993800339303063*^9, 3.993800386118601*^9}, + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.993799747778633*^9, 3.993800339303063*^9, + 3.993800386118601*^9, {3.9940727569059267`*^9, 3.994072776951536*^9}}, CellLabel-> - "Out[128]=",ExpressionUUID->"384a4773-6a21-447d-9127-28a44db2760d"] + "Out[130]=",ExpressionUUID->"824e14a7-cf15-440e-a928-531c177ca4e3"] }, Open ]], Cell[CellGroupData[{ @@ -670,14 +705,15 @@ Cell[BoxData[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", CellLabel-> - "In[129]:=",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], + "In[131]:=",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], Cell[BoxData[ RowBox[{"-", "2.571590909090909`"}]], "Output", - CellChangeTimes->{3.9913197868718567`*^9, 3.993799747795951*^9, - 3.993800339319376*^9, 3.993800386134354*^9}, + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.993799747795951*^9, 3.993800339319376*^9, + 3.993800386134354*^9, {3.9940727569175262`*^9, 3.994072776962891*^9}}, CellLabel-> - "Out[129]=",ExpressionUUID->"ade0d879-c10c-4f1a-bdc4-bab757a9248a"] + "Out[131]=",ExpressionUUID->"2f69038c-0c9f-4208-9d2e-7081c8d216e5"] }, Open ]], Cell[CellGroupData[{ @@ -709,13 +745,14 @@ Cell[BoxData[ 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, 3.943418448948422*^9}, {3.9919752185010967`*^9, 3.9919752200326233`*^9}}, CellLabel-> - "In[130]:=",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], + "In[132]:=",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], -Cell[BoxData["18.221909430837293`"], "Output", - CellChangeTimes->{3.9913197869068584`*^9, 3.993799747812237*^9, - 3.993800339336598*^9, 3.9938003861388483`*^9}, +Cell[BoxData["16.821909430837295`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.993799747812237*^9, 3.993800339336598*^9, + 3.9938003861388483`*^9, {3.994072756929346*^9, 3.994072776974725*^9}}, CellLabel-> - "Out[130]=",ExpressionUUID->"3de779d1-cf3a-4b77-9687-ade088a375a9"] + "Out[132]=",ExpressionUUID->"05103a52-ae49-4d47-9e41-3dea2643cdf0"] }, Open ]], Cell[CellGroupData[{ @@ -724,13 +761,14 @@ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, CellLabel-> - "In[131]:=",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], + "In[133]:=",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], Cell[BoxData["300"], "Output", - CellChangeTimes->{3.991319786940857*^9, 3.9937997478307247`*^9, - 3.993800339353257*^9, 3.993800386159964*^9}, + CellChangeTimes->{ + 3.991319786940857*^9, 3.9937997478307247`*^9, 3.993800339353257*^9, + 3.993800386159964*^9, {3.994072756940832*^9, 3.994072776986273*^9}}, CellLabel-> - "Out[131]=",ExpressionUUID->"19b3a2f8-2e47-47bf-afd2-5089664a76e0"] + "Out[133]=",ExpressionUUID->"9717cddc-adb7-4646-a989-2f54b642e808"] }, Open ]], Cell[CellGroupData[{ @@ -741,19 +779,20 @@ Cell[BoxData[ 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { 3.9937993902853117`*^9, 3.993799392293758*^9}}, CellLabel-> - "In[132]:=",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], + "In[134]:=",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], Cell[BoxData["1.25`"], "Output", - CellChangeTimes->{3.9937997478713713`*^9, 3.993800339369935*^9, - 3.9938003861811666`*^9}, + CellChangeTimes->{ + 3.9937997478713713`*^9, 3.993800339369935*^9, 3.9938003861811666`*^9, { + 3.9940727569525537`*^9, 3.9940727769978867`*^9}}, CellLabel-> - "Out[132]=",ExpressionUUID->"11eae77d-ce91-4e24-9dfe-2e35da135094"] + "Out[134]=",ExpressionUUID->"a976d659-e2bd-4e09-8b89-1ee26dda7f42"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, CellLabel-> - "In[133]:=",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], + "In[135]:=",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], Cell[CellGroupData[{ @@ -763,19 +802,20 @@ Cell[BoxData[ 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { 3.993799395152514*^9, 3.9937993965162697`*^9}}, CellLabel-> - "In[134]:=",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], + "In[136]:=",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], Cell[BoxData["0.85`"], "Output", - CellChangeTimes->{3.993799747898118*^9, 3.993800339418215*^9, - 3.993800386208997*^9}, + CellChangeTimes->{ + 3.993799747898118*^9, 3.993800339418215*^9, 3.993800386208997*^9, { + 3.99407275696742*^9, 3.9940727770129023`*^9}}, CellLabel-> - "Out[134]=",ExpressionUUID->"571a477d-0ee0-4f32-9e61-7179ee9b8d07"] + "Out[136]=",ExpressionUUID->"75da548b-3511-400e-9d96-35c7d4342106"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, CellLabel-> - "In[135]:=",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], + "In[137]:=",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], Cell[CellGroupData[{ @@ -785,19 +825,20 @@ Cell[BoxData[ 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { 3.993799398824368*^9, 3.9937994002405863`*^9}}, CellLabel-> - "In[136]:=",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], + "In[138]:=",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], Cell[BoxData["2.3`"], "Output", - CellChangeTimes->{3.993799747923098*^9, 3.993800339511382*^9, - 3.993800386234042*^9}, + CellChangeTimes->{ + 3.993799747923098*^9, 3.993800339511382*^9, 3.993800386234042*^9, { + 3.994072756981262*^9, 3.994072777026493*^9}}, CellLabel-> - "Out[136]=",ExpressionUUID->"cd17d452-0500-4133-8e9a-e7cbeeb009bb"] + "Out[138]=",ExpressionUUID->"686bd0f6-bdc3-4da0-8cca-3b5f77a88873"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, CellLabel-> - "In[137]:=",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], + "In[139]:=",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], Cell[CellGroupData[{ @@ -807,19 +848,20 @@ Cell[BoxData[ 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, 3.991799359954439*^9, {3.993799403099743*^9, 3.9937994038178663`*^9}}, CellLabel-> - "In[138]:=",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], + "In[140]:=",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], Cell[BoxData["1.1`"], "Output", - CellChangeTimes->{3.9937997479459248`*^9, 3.99380033956159*^9, - 3.9938003862601*^9}, + CellChangeTimes->{ + 3.9937997479459248`*^9, 3.99380033956159*^9, 3.9938003862601*^9, { + 3.994072756995009*^9, 3.99407277703996*^9}}, CellLabel-> - "Out[138]=",ExpressionUUID->"9c669971-9d8d-4582-8cbc-57933f1b59ae"] + "Out[140]=",ExpressionUUID->"c11ba0c3-7772-46e5-ad50-906fbaafbe7b"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, CellLabel-> - "In[139]:=",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], + "In[141]:=",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], Cell[CellGroupData[{ @@ -829,19 +871,20 @@ Cell[BoxData[ 3.991718016467348*^9, 3.991799361414671*^9, {3.993799407392029*^9, 3.993799410650194*^9}}, CellLabel-> - "In[140]:=",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], + "In[142]:=",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], Cell[BoxData["0.8664`"], "Output", - CellChangeTimes->{3.993799747968698*^9, 3.993800339671721*^9, - 3.9938003862845907`*^9}, + CellChangeTimes->{ + 3.993799747968698*^9, 3.993800339671721*^9, 3.9938003862845907`*^9, { + 3.994072757008773*^9, 3.994072777054493*^9}}, CellLabel-> - "Out[140]=",ExpressionUUID->"b73e3928-3631-433c-bb9d-5bad852117fa"] + "Out[142]=",ExpressionUUID->"c647f70a-b688-4a8d-a4dd-df2724b43ebe"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, CellLabel-> - "In[141]:=",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], + "In[143]:=",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], Cell[CellGroupData[{ @@ -851,19 +894,20 @@ Cell[BoxData[ 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.9937994136330442`*^9, 3.993799417576207*^9}}, CellLabel-> - "In[142]:=",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], + "In[144]:=",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], Cell[BoxData["0.5924`"], "Output", - CellChangeTimes->{3.993799747991611*^9, 3.9938003397687387`*^9, - 3.993800386310059*^9}, + CellChangeTimes->{ + 3.993799747991611*^9, 3.9938003397687387`*^9, 3.993800386310059*^9, { + 3.994072757022612*^9, 3.994072777068264*^9}}, CellLabel-> - "Out[142]=",ExpressionUUID->"ff1d9938-7bc9-4dd9-a1c2-c691d48d31e9"] + "Out[144]=",ExpressionUUID->"9e5467f4-e36f-4faf-a4b4-b30d06dfea33"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, CellLabel-> - "In[143]:=",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], + "In[145]:=",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], Cell[CellGroupData[{ @@ -873,19 +917,20 @@ Cell[BoxData[ 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.993799421955809*^9, 3.993799423886447*^9}}, CellLabel-> - "In[144]:=",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], + "In[146]:=",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], Cell[BoxData["1.888`"], "Output", - CellChangeTimes->{3.993799748012844*^9, 3.993800339865109*^9, - 3.993800386335606*^9}, + CellChangeTimes->{ + 3.993799748012844*^9, 3.993800339865109*^9, 3.993800386335606*^9, { + 3.9940727570366488`*^9, 3.9940727770819397`*^9}}, CellLabel-> - "Out[144]=",ExpressionUUID->"522567b7-3928-44a4-8035-25c1ac776471"] + "Out[146]=",ExpressionUUID->"83451b91-1add-4e1e-8225-c36d23119085"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, CellLabel-> - "In[145]:=",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], + "In[147]:=",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], Cell[CellGroupData[{ @@ -894,19 +939,20 @@ Cell[BoxData[ CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, 3.9917993660901737`*^9, {3.993799431418026*^9, 3.9937994366447783`*^9}}, CellLabel-> - "In[146]:=",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], + "In[148]:=",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], Cell[BoxData["0.6347`"], "Output", - CellChangeTimes->{3.99379974807285*^9, 3.993800339960155*^9, - 3.9938003863606977`*^9}, + CellChangeTimes->{ + 3.99379974807285*^9, 3.993800339960155*^9, 3.9938003863606977`*^9, { + 3.99407275705245*^9, 3.994072777095529*^9}}, CellLabel-> - "Out[146]=",ExpressionUUID->"4143bb76-9ace-4087-afac-7b074f3a337b"] + "Out[148]=",ExpressionUUID->"f16c35f8-b1da-4a2a-81db-e8cd6ce2e9c3"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, CellLabel-> - "In[147]:=",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], + "In[149]:=",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], Cell[CellGroupData[{ @@ -1396,13 +1442,14 @@ Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== "], CellLabel-> - "In[148]:=",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], + "In[150]:=",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], -Cell[BoxData["0.04440678177494276`"], "Output", - CellChangeTimes->{3.991319787430073*^9, 3.9937997481547623`*^9, - 3.993800340061625*^9, 3.9938003864136953`*^9}, +Cell[BoxData["0.33523276963055626`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.9937997481547623`*^9, 3.993800340061625*^9, + 3.9938003864136953`*^9, {3.994072757136285*^9, 3.994072777132966*^9}}, CellLabel-> - "Out[148]=",ExpressionUUID->"2cd32e1c-68c3-43ca-8ba8-ceae320aa775"] + "Out[150]=",ExpressionUUID->"24bf1676-9ab3-470d-bab8-a4072821b221"] }, Open ]], Cell[CellGroupData[{ @@ -1897,13 +1944,14 @@ Cell[BoxData[ 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, CellLabel-> - "In[149]:=",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], + "In[151]:=",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], -Cell[BoxData["2.553000700017275`"], "Output", - CellChangeTimes->{3.991319787574972*^9, 3.9937997481878023`*^9, - 3.993800340089472*^9, 3.993800386441668*^9}, +Cell[BoxData["10.264944924096582`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9937997481878023`*^9, 3.993800340089472*^9, + 3.993800386441668*^9, {3.994072757163142*^9, 3.9940727771627817`*^9}}, CellLabel-> - "Out[149]=",ExpressionUUID->"8366e281-fe19-4b85-8f36-f6de3ed67cd8"] + "Out[151]=",ExpressionUUID->"a5a56533-b42d-4c08-b398-413febf46f24"] }, Open ]], Cell[CellGroupData[{ @@ -2392,14 +2440,15 @@ Cell[BoxData[ 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, CellLabel-> - "In[150]:=",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], + "In[152]:=",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], Cell[BoxData[ - RowBox[{"-", "5.487851507575512`"}]], "Output", - CellChangeTimes->{3.991319787641424*^9, 3.993799748217864*^9, - 3.993800340114811*^9, 3.993800386467917*^9}, + RowBox[{"-", "28.42814742925769`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.993799748217864*^9, 3.993800340114811*^9, + 3.993800386467917*^9, {3.99407275718851*^9, 3.994072777190625*^9}}, CellLabel-> - "Out[150]=",ExpressionUUID->"c7a07a24-897c-476e-b8d8-4942526a0e16"] + "Out[152]=",ExpressionUUID->"7090bf69-d4a2-443b-a14c-e0170b6e974f"] }, Open ]], Cell[CellGroupData[{ @@ -2958,14 +3007,15 @@ Cell[BoxData[ RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", CellLabel-> - "In[151]:=",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], + "In[153]:=",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], Cell[BoxData[ - RowBox[{"-", "7.446344760721202`"}]], "Output", - CellChangeTimes->{3.991319787711939*^9, 3.9937997482559977`*^9, - 3.993800340146491*^9, 3.993800386499661*^9}, + RowBox[{"-", "38.363033654277935`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.9937997482559977`*^9, 3.993800340146491*^9, + 3.993800386499661*^9, {3.9940727572190027`*^9, 3.994072777223873*^9}}, CellLabel-> - "Out[151]=",ExpressionUUID->"4362748d-94e6-4ffa-af15-93424513d546"] + "Out[153]=",ExpressionUUID->"82f7adc0-ad6a-4da5-b6b8-71696671b25f"] }, Open ]], Cell[CellGroupData[{ @@ -3524,14 +3574,15 @@ Cell[BoxData[ RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", CellLabel-> - "In[152]:=",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], + "In[154]:=",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], Cell[BoxData[ - RowBox[{"-", "16.39076869394008`"}]], "Output", - CellChangeTimes->{3.9913197877723045`*^9, 3.993799748294525*^9, - 3.993800340178175*^9, 3.9938003865308523`*^9}, + RowBox[{"-", "84.97316533656249`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.993799748294525*^9, 3.993800340178175*^9, + 3.9938003865308523`*^9, {3.994072757249708*^9, 3.994072777255313*^9}}, CellLabel-> - "Out[152]=",ExpressionUUID->"e90a1c17-3211-4e2b-9316-7a7fb781a015"] + "Out[154]=",ExpressionUUID->"8d9ff143-d15f-4a08-94a6-4836b6b37e8b"] }, Open ]], Cell[CellGroupData[{ @@ -4163,14 +4214,15 @@ Cell[BoxData[ RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", CellLabel-> - "In[153]:=",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], + "In[155]:=",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], Cell[BoxData[ - RowBox[{"-", "44.58319959680311`"}]], "Output", - CellChangeTimes->{3.991319787833355*^9, 3.993799748333426*^9, - 3.9938003402193203`*^9, 3.9938003865686073`*^9}, + RowBox[{"-", "228.76196692780508`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.993799748333426*^9, 3.9938003402193203`*^9, + 3.9938003865686073`*^9, {3.9940727572851143`*^9, 3.9940727772935343`*^9}}, CellLabel-> - "Out[153]=",ExpressionUUID->"b572c95c-d739-4a96-b011-44a4f72efda1"] + "Out[155]=",ExpressionUUID->"73edef2c-fe9c-4740-9272-e05a31f0b0c1"] }, Open ]], Cell[CellGroupData[{ @@ -4178,13 +4230,14 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U21", "=", "0"}]], "Input", CellLabel-> - "In[154]:=",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], + "In[156]:=",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], Cell[BoxData["0"], "Output", - CellChangeTimes->{3.9913204210013676`*^9, 3.993799748353148*^9, - 3.993800340246324*^9, 3.993800386583934*^9}, + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.993799748353148*^9, 3.993800340246324*^9, + 3.993800386583934*^9, {3.99407275729825*^9, 3.994072777306653*^9}}, CellLabel-> - "Out[154]=",ExpressionUUID->"1099ea07-eb82-45ea-ae0d-971e3f9c0a5c"] + "Out[156]=",ExpressionUUID->"0e7d21aa-f6ea-42a1-8713-c09a58494dce"] }, Open ]], Cell[CellGroupData[{ @@ -4192,13 +4245,14 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U22", "=", "0"}]], "Input", CellLabel-> - "In[155]:=",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], + "In[157]:=",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], Cell[BoxData["0"], "Output", - CellChangeTimes->{3.9913204210355663`*^9, 3.993799748372961*^9, - 3.9938003402680492`*^9, 3.993800386599262*^9}, + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.993799748372961*^9, 3.9938003402680492`*^9, + 3.993800386599262*^9, {3.99407275730969*^9, 3.994072777318306*^9}}, CellLabel-> - "Out[155]=",ExpressionUUID->"ab2f90cc-3f6e-4414-87e8-9062ddc92ec6"] + "Out[157]=",ExpressionUUID->"8d5e02aa-6813-4889-a666-1b20d97caa96"] }, Open ]], Cell[CellGroupData[{ @@ -4243,13 +4297,14 @@ Cell[BoxData[ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", CellLabel-> - "In[156]:=",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], + "In[158]:=",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], -Cell[BoxData["26.99720494005415`"], "Output", - CellChangeTimes->{3.991320421068556*^9, 3.9937997483941936`*^9, - 3.9938003402909203`*^9, 3.99380038661649*^9}, +Cell[BoxData["185.79450939883742`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.9937997483941936`*^9, 3.9938003402909203`*^9, + 3.99380038661649*^9, {3.9940727573211393`*^9, 3.994072777330056*^9}}, CellLabel-> - "Out[156]=",ExpressionUUID->"d70002ad-41f6-427b-bb94-f9f71b39c5b0"] + "Out[158]=",ExpressionUUID->"304f2f9b-7ec3-4527-b6c1-bb96feb7af31"] }, Open ]], Cell[CellGroupData[{ @@ -4290,14 +4345,15 @@ Cell[BoxData[ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", CellLabel-> - "In[157]:=",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], + "In[159]:=",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], Cell[BoxData[ - RowBox[{"-", "21.23611001020402`"}]], "Output", - CellChangeTimes->{3.991320421098543*^9, 3.9937997484173307`*^9, - 3.993800340312326*^9, 3.993800386633136*^9}, + RowBox[{"-", "142.60312447586276`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.9937997484173307`*^9, 3.993800340312326*^9, + 3.993800386633136*^9, {3.99407275733285*^9, 3.994072777341887*^9}}, CellLabel-> - "Out[157]=",ExpressionUUID->"cb4748a4-c40b-4792-b604-fb588df616da"] + "Out[159]=",ExpressionUUID->"b5727e7d-f109-48b8-9e98-5cb10510018b"] }, Open ]], Cell[CellGroupData[{ @@ -4342,93 +4398,100 @@ Cell[BoxData[ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", CellLabel-> - "In[158]:=",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], + "In[160]:=",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], -Cell[BoxData["28.94137290244704`"], "Output", - CellChangeTimes->{3.9913204211275444`*^9, 3.993799748440692*^9, - 3.993800340332926*^9, 3.99380038664979*^9}, +Cell[BoxData["169.9317606773619`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.993799748440692*^9, 3.993800340332926*^9, + 3.99380038664979*^9, {3.994072757344488*^9, 3.994072777353434*^9}}, CellLabel-> - "Out[158]=",ExpressionUUID->"acc0d10c-3626-40eb-afef-bfeb08e7ddb1"] + "Out[160]=",ExpressionUUID->"c5ef29a0-f5f2-4b07-97a1-4d0ad850603c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c11"], "Input", CellLabel-> - "In[159]:=",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], + "In[161]:=",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], -Cell[BoxData["0.4652561037825781`"], "Output", - CellChangeTimes->{3.9913204211385536`*^9, 3.9937997484629087`*^9, - 3.9938003403521013`*^9, 3.9938003866670628`*^9}, +Cell[BoxData["0.5126444245586296`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.9937997484629087`*^9, 3.9938003403521013`*^9, + 3.9938003866670628`*^9, {3.994072757355731*^9, 3.994072777364881*^9}}, CellLabel-> - "Out[159]=",ExpressionUUID->"5201decd-f17d-4e4b-9087-681164925c02"] + "Out[161]=",ExpressionUUID->"b2a4a37d-3b40-4b2a-80e4-a18c24971af6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c12"], "Input", CellLabel-> - "In[160]:=",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], + "In[162]:=",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], Cell[BoxData[ - RowBox[{"-", "0.10272680759529097`"}]], "Output", - CellChangeTimes->{3.9913204211683464`*^9, 3.9937997484829597`*^9, - 3.993800340372787*^9, 3.993800386684751*^9}, + RowBox[{"-", "0.12490541136574432`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.9937997484829597`*^9, 3.993800340372787*^9, + 3.993800386684751*^9, {3.994072759775218*^9, 3.994072777376302*^9}}, CellLabel-> - "Out[160]=",ExpressionUUID->"c8d783a3-14d9-43dd-b5ed-6f3114f77634"] + "Out[162]=",ExpressionUUID->"1fdd8886-dd02-4a9c-bedb-4c9f675feaf9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c21"], "Input", CellLabel-> - "In[161]:=",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], + "In[163]:=",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], Cell[BoxData[ - RowBox[{"-", "0.39301630304871965`"}]], "Output", - CellChangeTimes->{3.991320421199068*^9, 3.993799748505329*^9, - 3.9938003403919477`*^9, 3.9938003866995373`*^9}, + RowBox[{"-", "0.47786808677187637`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.993799748505329*^9, 3.9938003403919477`*^9, + 3.9938003866995373`*^9, {3.9940727599543447`*^9, 3.9940727773879633`*^9}}, CellLabel-> - "Out[161]=",ExpressionUUID->"ace2b177-5574-4e53-af24-3138a191ce49"] + "Out[163]=",ExpressionUUID->"4ac25051-2951-4324-b55c-ca42548f6236"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c22"], "Input", CellLabel-> - "In[162]:=",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], + "In[164]:=",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], -Cell[BoxData["0.6239930014683492`"], "Output", - CellChangeTimes->{3.991320421228037*^9, 3.99379974852349*^9, - 3.993800340409604*^9, 3.993800386721094*^9}, +Cell[BoxData["0.6637051934091774`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.99379974852349*^9, 3.993800340409604*^9, + 3.993800386721094*^9, {3.994072759966642*^9, 3.994072777399509*^9}}, CellLabel-> - "Out[162]=",ExpressionUUID->"e0f5bb7e-9251-44b2-bda4-e7d6df91614f"] + "Out[164]=",ExpressionUUID->"ac238231-35aa-4022-a65d-a6c0331a1fc9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w1"], "Input", CellLabel-> - "In[163]:=",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], + "In[165]:=",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], Cell[BoxData["2.0171665757171935`"], "Output", - CellChangeTimes->{3.9913204212585373`*^9, 3.993799748542218*^9, - 3.993800340426003*^9, 3.9938003867354116`*^9}, + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.993799748542218*^9, 3.993800340426003*^9, + 3.9938003867354116`*^9, {3.9940727599787703`*^9, 3.9940727774113617`*^9}}, CellLabel-> - "Out[163]=",ExpressionUUID->"0b5a9ff3-5e36-4731-9c07-be38808fa24d"] + "Out[165]=",ExpressionUUID->"87fc3d15-0ac2-40f8-95c1-138b2b1ff3ee"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w2"], "Input", CellLabel-> - "In[164]:=",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], + "In[166]:=",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], Cell[BoxData["1.5074639495621045`"], "Output", - CellChangeTimes->{3.9913204212884274`*^9, 3.9937997485616417`*^9, - 3.99380034044471*^9, 3.9938003867502003`*^9}, + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.9937997485616417`*^9, 3.99380034044471*^9, + 3.9938003867502003`*^9, {3.9940727599906197`*^9, 3.994072777422779*^9}}, CellLabel-> - "Out[164]=",ExpressionUUID->"9b319ced-d224-4b02-aab2-f17e1ac6c827"] + "Out[166]=",ExpressionUUID->"d53c3899-6850-4495-b82b-ee9c3391dede"] }, Open ]], Cell[CellGroupData[{ @@ -4450,14 +4513,15 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", CellLabel-> - "In[165]:=",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], + "In[167]:=",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], Cell[BoxData[ - RowBox[{"-", "24.305944661305002`"}]], "Output", - CellChangeTimes->{3.9913204213185234`*^9, 3.993799748579701*^9, - 3.9938003404617233`*^9, 3.993800386765017*^9}, + RowBox[{"-", "30.893583323663808`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.993799748579701*^9, 3.9938003404617233`*^9, + 3.993800386765017*^9, {3.994072760002514*^9, 3.994072777434401*^9}}, CellLabel-> - "Out[165]=",ExpressionUUID->"7d03a477-1ee5-4aa7-bca5-c7190988e56d"] + "Out[167]=",ExpressionUUID->"6d9e1fa3-36a8-4642-a7eb-a0ba0a958bd2"] }, Open ]], Cell[CellGroupData[{ @@ -4479,14 +4543,15 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", CellLabel-> - "In[166]:=",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], + "In[168]:=",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], Cell[BoxData[ - RowBox[{"-", "6.235912236278181`"}]], "Output", - CellChangeTimes->{3.991320421349531*^9, 3.993799748598835*^9, - 3.993800340479863*^9, 3.9938003867807913`*^9}, + RowBox[{"-", "7.926031139913374`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.993799748598835*^9, 3.993800340479863*^9, + 3.9938003867807913`*^9, {3.994072760013989*^9, 3.994072777446135*^9}}, CellLabel-> - "Out[166]=",ExpressionUUID->"974b2032-8ef6-4b62-8a34-87344dca26eb"] + "Out[168]=",ExpressionUUID->"63d99693-0899-482b-9902-afbfffff917e"] }, Open ]], Cell[CellGroupData[{ @@ -4552,13 +4617,14 @@ Cell[BoxData[ RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]}]}]], "Input", CellLabel-> - "In[167]:=",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], + "In[169]:=",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], -Cell[BoxData["2.691260278749148`"], "Output", - CellChangeTimes->{3.9913204213784294`*^9, 3.993799748618464*^9, - 3.993800340498665*^9, 3.993800386794903*^9}, +Cell[BoxData["154.9009260751736`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.993799748618464*^9, 3.993800340498665*^9, + 3.993800386794903*^9, {3.994072760026211*^9, 3.994072777457891*^9}}, CellLabel-> - "Out[167]=",ExpressionUUID->"782f75c6-c1c2-4bac-a156-197cf131c729"] + "Out[169]=",ExpressionUUID->"067911fb-c5c8-429b-990d-d374b4471d63"] }, Open ]], Cell[CellGroupData[{ @@ -4600,14 +4666,15 @@ Cell[BoxData[ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", CellLabel-> - "In[168]:=",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], + "In[170]:=",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], Cell[BoxData[ - RowBox[{"-", "21.23611001020402`"}]], "Output", - CellChangeTimes->{3.9913204213904285`*^9, 3.993799748639475*^9, - 3.993800340517002*^9, 3.993800386808839*^9}, + RowBox[{"-", "142.60312447586276`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.993799748639475*^9, 3.993800340517002*^9, + 3.993800386808839*^9, {3.9940727600400333`*^9, 3.994072777469482*^9}}, CellLabel-> - "Out[168]=",ExpressionUUID->"61110b21-bfa4-4393-81f4-6774946bcb4b"] + "Out[170]=",ExpressionUUID->"f68847f9-3ffc-44f5-a197-5818cc33be7f"] }, Open ]], Cell[CellGroupData[{ @@ -4674,13 +4741,14 @@ Cell[BoxData[ RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]}]}]], "Input", CellLabel-> - "In[169]:=",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], + "In[171]:=",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], -Cell[BoxData["22.705460666168857`"], "Output", - CellChangeTimes->{3.991320421419428*^9, 3.993799748660536*^9, - 3.993800340536582*^9, 3.993800386822714*^9}, +Cell[BoxData["162.00572953744853`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.993799748660536*^9, 3.993800340536582*^9, + 3.993800386822714*^9, {3.994072760046308*^9, 3.994072777481387*^9}}, CellLabel-> - "Out[169]=",ExpressionUUID->"c3364c05-8882-45a4-8de0-b8508146518b"] + "Out[171]=",ExpressionUUID->"c766c24b-4933-40c3-a8ce-1636774176f5"] }, Open ]], Cell[CellGroupData[{ @@ -4741,14 +4809,14 @@ Cell[BoxData[ ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", CellLabel-> - "In[170]:=",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], + "In[172]:=",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], -Cell[BoxData[ - RowBox[{"-", "7.548671396208135`"}]], "Output", - CellChangeTimes->{3.9913204214494324`*^9, 3.993799748682187*^9, - 3.9938003405568943`*^9, 3.993800386836596*^9}, +Cell[BoxData["110.13261932733474`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.993799748682187*^9, 3.9938003405568943`*^9, + 3.993800386836596*^9, {3.994072760058202*^9, 3.994072777493164*^9}}, CellLabel-> - "Out[170]=",ExpressionUUID->"7a1c7fe1-255a-49df-be9c-9a1af0a27b34"] + "Out[172]=",ExpressionUUID->"553e3a4b-9a4c-405c-ae56-9dc4bff35cef"] }, Open ]], Cell[CellGroupData[{ @@ -4807,13 +4875,14 @@ Cell[BoxData[ "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", CellLabel-> - "In[171]:=",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], + "In[173]:=",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], -Cell[BoxData["127.19558322366674`"], "Output", - CellChangeTimes->{3.991320421481529*^9, 3.993799748705882*^9, - 3.9938003405772467`*^9, 3.993800386850522*^9}, +Cell[BoxData["1014.9570765717414`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.993799748705882*^9, 3.9938003405772467`*^9, + 3.993800386850522*^9, {3.994072760069648*^9, 3.994072777505143*^9}}, CellLabel-> - "Out[171]=",ExpressionUUID->"a788fe5b-fa94-4ad4-a5de-84f77e127ba0"] + "Out[173]=",ExpressionUUID->"88b47c8f-864f-4741-9959-7c305d37c86d"] }, Open ]], Cell[CellGroupData[{ @@ -4823,19 +4892,20 @@ Cell[BoxData[ CellChangeTimes->{ 3.991799412462593*^9, {3.993799503612987*^9, 3.9937995102520323`*^9}}, CellLabel-> - "In[172]:=",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], + "In[174]:=",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], Cell[BoxData["0.81753`"], "Output", - CellChangeTimes->{3.993799748759857*^9, 3.9938003405956182`*^9, - 3.993800386864108*^9}, + CellChangeTimes->{ + 3.993799748759857*^9, 3.9938003405956182`*^9, 3.993800386864108*^9, { + 3.9940727600826902`*^9, 3.994072777517441*^9}}, CellLabel-> - "Out[172]=",ExpressionUUID->"fd417368-2f97-4f80-9f1d-112d955829d9"] + "Out[174]=",ExpressionUUID->"00665af3-dfec-4528-89b6-1cab5261eaf4"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.99184866880085*^9, 3.9918486688048573`*^9}}, CellLabel-> - "In[173]:=",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], + "In[175]:=",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], Cell[CellGroupData[{ @@ -4844,19 +4914,20 @@ Cell[BoxData[ CellChangeTimes->{ 3.991799414288656*^9, {3.993799512752862*^9, 3.993799517873982*^9}}, CellLabel-> - "In[174]:=",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], + "In[176]:=",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], Cell[BoxData["0.68254`"], "Output", - CellChangeTimes->{3.99379974879753*^9, 3.993800340705077*^9, - 3.993800386887023*^9}, + CellChangeTimes->{ + 3.99379974879753*^9, 3.993800340705077*^9, 3.993800386887023*^9, { + 3.994072760111725*^9, 3.99407277753176*^9}}, CellLabel-> - "Out[174]=",ExpressionUUID->"1b64cba3-272f-4280-b961-6a38b400aac3"] + "Out[176]=",ExpressionUUID->"c00eaf6f-991f-4cde-a778-0d6c84dab36c"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848669922333*^9, 3.9918486699293537`*^9}}, CellLabel-> - "In[175]:=",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], + "In[177]:=",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], Cell[CellGroupData[{ @@ -4903,13 +4974,14 @@ Cell[BoxData[ RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], ")"}]}]], "Input", CellLabel-> - "In[176]:=",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], + "In[178]:=",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], -Cell[BoxData["1.661421861787638`*^-53"], "Output", - CellChangeTimes->{3.99132042156752*^9, 3.9937997488622103`*^9, - 3.993800340782552*^9, 3.9938003869113693`*^9}, +Cell[BoxData["1.3128345860136716`*^-53"], "Output", + CellChangeTimes->{ + 3.99132042156752*^9, 3.9937997488622103`*^9, 3.993800340782552*^9, + 3.9938003869113693`*^9, {3.994072760139806*^9, 3.994072777549265*^9}}, CellLabel-> - "Out[176]=",ExpressionUUID->"6806591a-8e18-473e-b10d-96b15d216436"] + "Out[178]=",ExpressionUUID->"f580e415-60af-472d-b790-4a936ed06c02"] }, Open ]], Cell[CellGroupData[{ @@ -4945,13 +5017,14 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", CellChangeTimes->{3.991557471461853*^9}, CellLabel-> - "In[177]:=",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], + "In[179]:=",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], Cell[BoxData["1.0350074784252596`*^-54"], "Output", - CellChangeTimes->{3.99132042159643*^9, 3.993799748883677*^9, - 3.993800340800537*^9, 3.9938003869262123`*^9}, + CellChangeTimes->{ + 3.99132042159643*^9, 3.993799748883677*^9, 3.993800340800537*^9, + 3.9938003869262123`*^9, {3.99407276015436*^9, 3.994072777560671*^9}}, CellLabel-> - "Out[177]=",ExpressionUUID->"f6a5f454-44c7-4ba0-bdd5-f621380a02c3"] + "Out[179]=",ExpressionUUID->"c10d5977-58d7-4636-98a7-548bcfc37c49"] }, Open ]], Cell[CellGroupData[{ @@ -4986,13 +5059,14 @@ Cell[BoxData[ "f2"}]}]], "Input", CellChangeTimes->{{3.991557474366678*^9, 3.99155747655138*^9}}, CellLabel-> - "In[178]:=",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], + "In[180]:=",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], Cell[BoxData["4.011627336047101`*^-54"], "Output", - CellChangeTimes->{3.9913204216085243`*^9, 3.993799748900865*^9, - 3.993800340818081*^9, 3.993800386942658*^9}, + CellChangeTimes->{ + 3.9913204216085243`*^9, 3.993799748900865*^9, 3.993800340818081*^9, + 3.993800386942658*^9, {3.99407276016994*^9, 3.994072777573812*^9}}, CellLabel-> - "Out[178]=",ExpressionUUID->"0b2e505c-a220-4d7e-9a16-85dc0cf18367"] + "Out[180]=",ExpressionUUID->"d6c32bf0-96e6-41b8-a259-dcc51580790f"] }, Open ]], Cell[CellGroupData[{ @@ -5016,7 +5090,7 @@ Cell[BoxData[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", CellLabel-> - "In[179]:=",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], + "In[181]:=",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], Cell[BoxData["11.93997932982959`"], "Output", CellChangeTimes->{ @@ -5026,9 +5100,10 @@ Cell[BoxData["11.93997932982959`"], "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.99379974891636*^9, - 3.9938003408364553`*^9, 3.993800386957293*^9}, + 3.9938003408364553`*^9, 3.993800386957293*^9, {3.994072760183216*^9, + 3.994072777586576*^9}}, CellLabel-> - "Out[179]=",ExpressionUUID->"3761e770-7b3a-4083-bbc7-ab426948df47"] + "Out[181]=",ExpressionUUID->"a400bdd4-2d95-4ce2-936d-be09e9b51750"] }, Open ]], Cell[CellGroupData[{ @@ -5055,9 +5130,9 @@ Cell[BoxData[ RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", CellChangeTimes->{3.992086162437586*^9}, CellLabel-> - "In[180]:=",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], + "In[182]:=",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], -Cell[BoxData["56.17558722833955`"], "Output", +Cell[BoxData["52.90288002689117`"], "Output", CellChangeTimes->{ 3.9913204216685333`*^9, 3.9917083768681793`*^9, 3.9920862684823704`*^9, 3.992086312091795*^9, 3.9920865713392296`*^9, 3.9920866021582546`*^9, @@ -5065,9 +5140,9 @@ Cell[BoxData["56.17558722833955`"], "Output", 3.992091247484524*^9, {3.9920913926676064`*^9, 3.9920914468313007`*^9}, { 3.9920915031479607`*^9, 3.9920915226223583`*^9}, {3.9920915619450817`*^9, 3.992091588571615*^9}, 3.993799748931448*^9, 3.993800340853327*^9, - 3.993800386973589*^9}, + 3.993800386973589*^9, {3.994072760198311*^9, 3.994072777631235*^9}}, CellLabel-> - "Out[180]=",ExpressionUUID->"c73f708f-d9d6-4e8e-9fcc-3f9002975279"] + "Out[182]=",ExpressionUUID->"2556238f-af75-4c59-b141-865bdd45989f"] }, Open ]], Cell[CellGroupData[{ @@ -5077,11 +5152,9 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", CellLabel-> - "In[181]:=",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], + "In[183]:=",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], -Cell[BoxData[ - RowBox[{"0.`", "\[VeryThinSpace]", "+", - RowBox[{"0.795121455713147`", " ", "\[ImaginaryI]"}]}]], "Output", +Cell[BoxData["3.0370797540828125`"], "Output", CellChangeTimes->{ 3.9913237069236546`*^9, 3.9917089973924427`*^9, 3.9920860582606277`*^9, 3.9920862684883747`*^9, 3.992086312111845*^9, 3.9920865713602333`*^9, @@ -5089,9 +5162,10 @@ Cell[BoxData[ 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.9937997489478827`*^9, - 3.9938003408740177`*^9, 3.993800386990369*^9}, + 3.9938003408740177`*^9, 3.993800386990369*^9, {3.994072760211652*^9, + 3.9940727776445312`*^9}}, CellLabel-> - "Out[181]=",ExpressionUUID->"93ef11ee-a6b4-4975-8bde-bd676260983d"] + "Out[183]=",ExpressionUUID->"ea6f35b3-caa2-4aec-a25b-e24c2955bc68"] }, Open ]], Cell[CellGroupData[{ @@ -5102,18 +5176,19 @@ Cell[BoxData[ FractionBox["Kw", "Qw2"]]}]], "Input", CellChangeTimes->{{3.992086303949501*^9, 3.992086304210249*^9}}, CellLabel-> - "In[182]:=",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], + "In[184]:=",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], -Cell[BoxData["1.5047425611043443`"], "Output", +Cell[BoxData["4.380101556905071`"], "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.993799748968643*^9, 3.9938003408952293`*^9, 3.993800387007524*^9}, + 3.993799748968643*^9, 3.9938003408952293`*^9, 3.993800387007524*^9, { + 3.994072760225312*^9, 3.9940727776573553`*^9}}, CellLabel-> - "Out[182]=",ExpressionUUID->"ceb3737e-f7e3-4223-b988-91232872b019"] + "Out[184]=",ExpressionUUID->"abd832ea-a292-472e-ac47-9cf0981a9ac9"] }, Open ]], Cell[CellGroupData[{ @@ -5124,9 +5199,9 @@ Cell[BoxData[ RowBox[{"Qw2", "*", "hw"}], "1"]}]], "Input", CellChangeTimes->{3.992086167409481*^9}, CellLabel-> - "In[183]:=",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], + "In[185]:=",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], -Cell[BoxData["84.52979699751215`"], "Output", +Cell[BoxData["231.7199871705482`"], "Output", CellChangeTimes->{ 3.9913204217554817`*^9, 3.9917083769190636`*^9, 3.9920862684953804`*^9, 3.992086312138464*^9, 3.992086571391514*^9, 3.9920866022223396`*^9, @@ -5134,9 +5209,9 @@ Cell[BoxData["84.52979699751215`"], "Output", 3.992091247547844*^9, {3.9920913927375374`*^9, 3.992091446867302*^9}, { 3.992091503209553*^9, 3.992091522657341*^9}, {3.992091561999613*^9, 3.9920915886284447`*^9}, 3.993799748991139*^9, 3.993800340916945*^9, - 3.9938003870243273`*^9}, + 3.9938003870243273`*^9, {3.99407276023936*^9, 3.994072777668295*^9}}, CellLabel-> - "Out[183]=",ExpressionUUID->"4f92039a-9bf9-4fac-a6a4-d8fc6f4be1e0"] + "Out[185]=",ExpressionUUID->"ea483a60-65d0-43c8-8ea6-96bfb64a017b"] }, Open ]], Cell[CellGroupData[{ @@ -5146,11 +5221,9 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[184]:=",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], + "In[186]:=",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], -Cell[BoxData[ - RowBox[{"0.`", "\[VeryThinSpace]", "+", - RowBox[{"9.49373374591899`", " ", "\[ImaginaryI]"}]}]], "Output", +Cell[BoxData["36.26266948679272`"], "Output", CellChangeTimes->{ 3.9913237069753113`*^9, 3.99170899744343*^9, 3.992086058291689*^9, 3.9920862685164757`*^9, 3.992086312143465*^9, 3.9920865713975163`*^9, @@ -5158,9 +5231,10 @@ Cell[BoxData[ 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.993799749012632*^9, - 3.9938003409388523`*^9, 3.993800387040062*^9}, + 3.9938003409388523`*^9, 3.993800387040062*^9, {3.9940727602518797`*^9, + 3.994072777680624*^9}}, CellLabel-> - "Out[184]=",ExpressionUUID->"ce2dea1f-2717-43a0-b159-583f69dc0c30"] + "Out[186]=",ExpressionUUID->"4335a909-431f-402c-a120-dad1aa09732f"] }, Open ]], Cell[CellGroupData[{ @@ -5350,11 +5424,9 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[185]:=",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], + "In[187]:=",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], -Cell[BoxData[ - RowBox[{"0.014877636728046631`", "\[VeryThinSpace]", "-", - RowBox[{"0.002145065275497432`", " ", "\[ImaginaryI]"}]}]], "Output", +Cell[BoxData["0.004613279024601604`"], "Output", CellChangeTimes->{ 3.991323707000412*^9, 3.991708997465433*^9, 3.9920860583187714`*^9, 3.992086268523493*^9, 3.9920863121684647`*^9, 3.9920865714232826`*^9, @@ -5362,9 +5434,9 @@ Cell[BoxData[ 3.992091247578861*^9, {3.9920913927664986`*^9, 3.992091446900387*^9}, { 3.992091503241564*^9, 3.9920915226853714`*^9}, {3.9920915620301514`*^9, 3.992091588657053*^9}, 3.993799749035591*^9, 3.993800340962656*^9, - 3.9938003870578623`*^9}, + 3.9938003870578623`*^9, {3.9940727602652407`*^9, 3.994072777694236*^9}}, CellLabel-> - "Out[185]=",ExpressionUUID->"655f1840-36c3-41e0-82d6-a8ba0ed05a48"] + "Out[187]=",ExpressionUUID->"d52042fc-0950-497b-ae60-d435c567627c"] }, Open ]], Cell[CellGroupData[{ @@ -5378,20 +5450,19 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[186]:=",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], + "In[188]:=",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], -Cell[BoxData[ - RowBox[{"7.209912622790113`", "\[VeryThinSpace]", "+", - RowBox[{"0.5170909439498632`", " ", "\[ImaginaryI]"}]}]], "Output", +Cell[BoxData["13.047883767276804`"], "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.9937997555085993`*^9, 3.993800346764615*^9, 3.993800388601677*^9}, + 3.9937997555085993`*^9, 3.993800346764615*^9, 3.993800388601677*^9, { + 3.994072760406266*^9, 3.9940727777509747`*^9}}, CellLabel-> - "Out[186]=",ExpressionUUID->"51a59aaa-3a57-4fd9-b4a2-02a88de74959"] + "Out[188]=",ExpressionUUID->"0d6cb19c-5add-488d-87c0-b20069a053ad"] }, Open ]], Cell[BoxData[ @@ -5404,7 +5475,7 @@ Cell[BoxData[ 3.9920863634349823`*^9}, {3.9920864985362244`*^9, 3.992086501430176*^9}, { 3.9920869541635437`*^9, 3.992086954848522*^9}}, CellLabel-> - "In[187]:=",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], + "In[189]:=",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], Cell[CellGroupData[{ @@ -5427,13 +5498,14 @@ Cell[BoxData[ RowBox[{"Ih", "*", "Ir"}], RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", CellLabel-> - "In[188]:=",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], + "In[190]:=",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], -Cell[BoxData["46.89538627833104`"], "Output", - CellChangeTimes->{3.991320421637537*^9, 3.9937997557626143`*^9, - 3.993800346919571*^9, 3.993800388740233*^9}, +Cell[BoxData["44.59250170456702`"], "Output", + CellChangeTimes->{ + 3.991320421637537*^9, 3.9937997557626143`*^9, 3.993800346919571*^9, + 3.993800388740233*^9, {3.9940727604258347`*^9, 3.994072777774213*^9}}, CellLabel-> - "Out[188]=",ExpressionUUID->"a9cd63e9-bc87-4827-84e2-e269f59f1997"] + "Out[190]=",ExpressionUUID->"ecf38020-cc98-4d62-b4e3-b552d463b9a4"] }, Open ]], Cell[CellGroupData[{ @@ -5459,13 +5531,14 @@ Cell[BoxData[ RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", CellLabel-> - "In[189]:=",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], + "In[191]:=",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], -Cell[BoxData["56.17558722833955`"], "Output", - CellChangeTimes->{3.9913204216685333`*^9, 3.9937997557815742`*^9, - 3.993800346939128*^9, 3.9938003887588377`*^9}, +Cell[BoxData["52.90288002689117`"], "Output", + CellChangeTimes->{ + 3.9913204216685333`*^9, 3.9937997557815742`*^9, 3.993800346939128*^9, + 3.9938003887588377`*^9, {3.994072760438477*^9, 3.9940727777853527`*^9}}, CellLabel-> - "Out[189]=",ExpressionUUID->"3d95d631-aa89-4af4-a081-adb39c1d3a7c"] + "Out[191]=",ExpressionUUID->"55be8ae8-711a-4ac5-bd55-c96a0a3f4555"] }, Open ]], Cell[CellGroupData[{ @@ -5475,15 +5548,14 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb3"]]}]], "Input", CellLabel-> - "In[190]:=",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], + "In[192]:=",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], -Cell[BoxData[ - RowBox[{"0.`", "\[VeryThinSpace]", "+", - RowBox[{"0.40120857023212736`", " ", "\[ImaginaryI]"}]}]], "Output", - CellChangeTimes->{3.991320421698473*^9, 3.993799755801656*^9, - 3.9938003469606647`*^9, 3.9938003887757683`*^9}, +Cell[BoxData["1.5715458834926257`"], "Output", + CellChangeTimes->{ + 3.991320421698473*^9, 3.993799755801656*^9, 3.9938003469606647`*^9, + 3.9938003887757683`*^9, {3.994072760452375*^9, 3.994072777795869*^9}}, CellLabel-> - "Out[190]=",ExpressionUUID->"651ce4ee-64e2-4f5e-ade4-9ad1f0bda5ce"] + "Out[192]=",ExpressionUUID->"d8bf3b4a-7085-4dad-9429-212f4e3d19eb"] }, Open ]], Cell[CellGroupData[{ @@ -5493,13 +5565,14 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kw", "Qw3"]]}]], "Input", CellLabel-> - "In[191]:=",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], + "In[193]:=",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], -Cell[BoxData["1.5047425611043443`"], "Output", - CellChangeTimes->{3.991320421726494*^9, 3.993799755827742*^9, - 3.99380034698438*^9, 3.993800388792529*^9}, +Cell[BoxData["4.380101556905071`"], "Output", + CellChangeTimes->{ + 3.991320421726494*^9, 3.993799755827742*^9, 3.99380034698438*^9, + 3.993800388792529*^9, {3.994072760470807*^9, 3.994072777805552*^9}}, CellLabel-> - "Out[191]=",ExpressionUUID->"c1e74b00-8e49-470c-90fe-263613aa655c"] + "Out[193]=",ExpressionUUID->"9ea0bdee-7c25-47eb-869c-f00e0e73433d"] }, Open ]], Cell[CellGroupData[{ @@ -5509,13 +5582,14 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", CellLabel-> - "In[192]:=",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], + "In[194]:=",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], -Cell[BoxData["84.52979699751215`"], "Output", - CellChangeTimes->{3.9913204217554817`*^9, 3.993799755852556*^9, - 3.99380034700836*^9, 3.993800388809651*^9}, +Cell[BoxData["231.7199871705482`"], "Output", + CellChangeTimes->{ + 3.9913204217554817`*^9, 3.993799755852556*^9, 3.99380034700836*^9, + 3.993800388809651*^9, {3.994072760485291*^9, 3.994072777815412*^9}}, CellLabel-> - "Out[192]=",ExpressionUUID->"4f25f770-fd13-4892-9597-a0c157aba87b"] + "Out[194]=",ExpressionUUID->"96610dbf-1da6-41ac-85e6-156c8fdf25b6"] }, Open ]], Cell[CellGroupData[{ @@ -5525,15 +5599,14 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[193]:=",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], + "In[195]:=",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], -Cell[BoxData[ - RowBox[{"0.`", "\[VeryThinSpace]", "+", - RowBox[{"18.81483087921252`", " ", "\[ImaginaryI]"}]}]], "Output", - CellChangeTimes->{3.9913204217855225`*^9, 3.993799755876912*^9, - 3.993800347031435*^9, 3.993800388827091*^9}, +Cell[BoxData["70.0791624884502`"], "Output", + CellChangeTimes->{ + 3.9913204217855225`*^9, 3.993799755876912*^9, 3.993800347031435*^9, + 3.993800388827091*^9, {3.9940727604992247`*^9, 3.994072777825199*^9}}, CellLabel-> - "Out[193]=",ExpressionUUID->"05c8ae71-fb4f-4ea5-a1fd-19f8180af774"] + "Out[195]=",ExpressionUUID->"15100d85-5d60-4144-ad85-85b3979c5b2e"] }, Open ]], Cell[CellGroupData[{ @@ -5723,15 +5796,14 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[194]:=",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], + "In[196]:=",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], -Cell[BoxData[ - RowBox[{"0.014040546340297444`", "\[VeryThinSpace]", "-", - RowBox[{"0.004011934563257956`", " ", "\[ImaginaryI]"}]}]], "Output", - CellChangeTimes->{3.9913204218154297`*^9, 3.9937997559029837`*^9, - 3.9938003470576553`*^9, 3.993800388845276*^9}, +Cell[BoxData["0.003990708822572396`"], "Output", + CellChangeTimes->{ + 3.9913204218154297`*^9, 3.9937997559029837`*^9, 3.9938003470576553`*^9, + 3.993800388845276*^9, {3.9940727605125093`*^9, 3.994072777835862*^9}}, CellLabel-> - "Out[194]=",ExpressionUUID->"db8f5e2c-982f-4b91-97b4-6daf23108ccc"] + "Out[196]=",ExpressionUUID->"49b29492-7d3a-4ee9-b57e-981729a14841"] }, Open ]], Cell[CellGroupData[{ @@ -5746,16 +5818,15 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", Background->RGBColor[0.4, 0.6, 1, 0.33], CellLabel-> - "In[195]:=",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], + "In[197]:=",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], -Cell[BoxData[ - RowBox[{"7.262943554988107`", "\[VeryThinSpace]", "+", - RowBox[{"1.0172964656333014`", " ", "\[ImaginaryI]"}]}]], "Output", - CellChangeTimes->{3.991320422776104*^9, 3.993799762193915*^9, - 3.993800352792034*^9, 3.993800390215002*^9}, +Cell[BoxData["14.028780499402282`"], "Output", + CellChangeTimes->{ + 3.991320422776104*^9, 3.993799762193915*^9, 3.993800352792034*^9, + 3.993800390215002*^9, {3.994072760561933*^9, 3.994072777887232*^9}}, Background->RGBColor[0.14, 0.8, 0.14, 0.33], CellLabel-> - "Out[195]=",ExpressionUUID->"e0642929-601f-4b62-a262-178a31c1f222"] + "Out[197]=",ExpressionUUID->"eebb9cb7-a7e8-451d-a69e-baaf17807774"] }, Open ]], Cell[CellGroupData[{ @@ -5947,15 +6018,14 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[196]:=",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], + "In[198]:=",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], -Cell[BoxData[ - RowBox[{"0.003278966248026136`", "\[VeryThinSpace]", "-", - RowBox[{"0.05294649517105993`", " ", "\[ImaginaryI]"}]}]], "Output", - CellChangeTimes->{3.9913204229248886`*^9, 3.993800352823707*^9, - 3.993800390265161*^9}, +Cell[BoxData["0.01364753585641689`"], "Output", + CellChangeTimes->{ + 3.9913204229248886`*^9, 3.993800352823707*^9, 3.993800390265161*^9, { + 3.994072760576092*^9, 3.994072777899271*^9}}, CellLabel-> - "Out[196]=",ExpressionUUID->"1bb55358-65ca-415f-86b2-71eb0d6e0b11"] + "Out[198]=",ExpressionUUID->"1150aff2-30e0-42c8-84eb-e46163442387"] }, Open ]], Cell[CellGroupData[{ @@ -5969,15 +6039,14 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[197]:=",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], + "In[199]:=",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], -Cell[BoxData[ - RowBox[{"2.8036216680627044`", "\[VeryThinSpace]", "+", - RowBox[{"2.635365139579986`", " ", "\[ImaginaryI]"}]}]], "Output", - CellChangeTimes->{3.9913204230053368`*^9, 3.993800358619151*^9, - 3.993800391667642*^9}, +Cell[BoxData["7.586086993647864`"], "Output", + CellChangeTimes->{ + 3.9913204230053368`*^9, 3.993800358619151*^9, 3.993800391667642*^9, { + 3.994072760615584*^9, 3.994072777954184*^9}}, CellLabel-> - "Out[197]=",ExpressionUUID->"0b82534b-9ecb-442d-abbc-568a8e06278c"] + "Out[199]=",ExpressionUUID->"601daafb-f26d-4041-b887-09519c5ff073"] }, Open ]], Cell[CellGroupData[{ @@ -6070,13 +6139,14 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[198]:=",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], + "In[200]:=",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], Cell[BoxData["0.11740730280317517`"], "Output", - CellChangeTimes->{3.9913204230393543`*^9, 3.9938003586480303`*^9, - 3.993800391716969*^9}, + CellChangeTimes->{ + 3.9913204230393543`*^9, 3.9938003586480303`*^9, 3.993800391716969*^9, { + 3.994072760631043*^9, 3.994072777967334*^9}}, CellLabel-> - "Out[198]=",ExpressionUUID->"9db321e0-4129-4ba9-856b-6c30cd703228"] + "Out[200]=",ExpressionUUID->"f18041aa-3a06-4275-a993-939d5a48acba"] }, Open ]], Cell[CellGroupData[{ @@ -6166,13 +6236,14 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[199]:=",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], + "In[201]:=",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], Cell[BoxData["0.8825926971968249`"], "Output", - CellChangeTimes->{3.9913204230728855`*^9, 3.9938003586681547`*^9, - 3.993800391736348*^9}, + CellChangeTimes->{ + 3.9913204230728855`*^9, 3.9938003586681547`*^9, 3.993800391736348*^9, { + 3.9940727606439543`*^9, 3.994072777979229*^9}}, CellLabel-> - "Out[199]=",ExpressionUUID->"db433907-bac8-4f2a-9912-1e6a6164e15f"] + "Out[201]=",ExpressionUUID->"ef046352-13d3-419f-9315-58a7b35b7dd1"] }, Open ]], Cell[CellGroupData[{ @@ -6295,20 +6366,21 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[200]:=",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], + "In[202]:=",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], Cell[BoxData["0.10362282805165872`"], "Output", - CellChangeTimes->{3.9913204231038837`*^9, 3.99380035868874*^9, - 3.993800391752033*^9}, + CellChangeTimes->{ + 3.9913204231038837`*^9, 3.99380035868874*^9, 3.993800391752033*^9, { + 3.994072760657496*^9, 3.99407277799163*^9}}, CellLabel-> - "Out[200]=",ExpressionUUID->"b4249285-ea77-43c2-ad82-a3699470cffc"] + "Out[202]=",ExpressionUUID->"d5ff4e51-14ce-4047-8956-6b44085f5d0c"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"x", ",", "y"}], "]"}]], "Input", CellLabel-> - "In[201]:=",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], + "In[203]:=",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], Cell[CellGroupData[{ @@ -6371,83 +6443,80 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{3.991799443370365*^9}, CellLabel-> - "In[202]:=",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], + "In[204]:=",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[RowBox[{\\\"6.038545975953807`*^-186\\\", \ -\\\"-\\\", RowBox[{\\\"2.038874633961518`*^-185\\\", \\\" \\\", \\\"\ -\[ImaginaryI]\\\"}]}], \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 202, - 5, 31384669378386576087, "Local"}, + "\"\\!\\(\\*FractionBox[\\\"1.358954528219119`*^-209\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 204, 9, 31386456124452082574, + "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ - 3.9913204231548862`*^9, {3.993800373637882*^9, 3.993800391829084*^9}}, + 3.9913204231548862`*^9, {3.993800373637882*^9, 3.993800391829084*^9}, { + 3.994072760691328*^9, 3.994072778014902*^9}}, CellLabel-> "During evaluation of \ -In[202]:=",ExpressionUUID->"9cf934f1-1917-46b0-8360-80ad8f99e67e"], +In[204]:=",ExpressionUUID->"d6fe44ce-5865-4595-b6ea-c142ebfb7e48"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[RowBox[{\\\"3.3187864693356716`*^-189\\\", \\\"-\\\ -\", RowBox[{\\\"1.4481309363488078`*^-189\\\", \\\" \\\", \\\"\[ImaginaryI]\\\ -\"}]}], \\\"\ -925017065282507919013470723235883682349486807421901987706139271018810570717360\ -434442383213140448215302144000000000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 202, - 6, 31384669378386576087, "Local"}, + "\"\\!\\(\\*FractionBox[\\\"1.0936864967560232`*^-214\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 204, 10, + 31386456124452082574, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ - 3.9913204231548862`*^9, {3.993800373637882*^9, 3.993800391832692*^9}}, + 3.9913204231548862`*^9, {3.993800373637882*^9, 3.993800391829084*^9}, { + 3.994072760691328*^9, 3.994072778020547*^9}}, CellLabel-> "During evaluation of \ -In[202]:=",ExpressionUUID->"a0b7ecd8-e31a-4ee8-9559-d985734adf28"], +In[204]:=",ExpressionUUID->"a0197c52-54ff-4f3a-a6b3-3e288a921767"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[RowBox[{\\\"5.525094423584553`*^-193\\\", \ -\\\"+\\\", RowBox[{\\\"2.7372486063850153`*^-193\\\", \\\" \\\", \\\"\ -\[ImaginaryI]\\\"}]}], \ -\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ -35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 202, 7, 31384669378386576087, "Local"}, + "\"\\!\\(\\*FractionBox[\\\"8.80198806029214`*^-220\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 204, 11, + 31386456124452082574, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ - 3.9913204231548862`*^9, {3.993800373637882*^9, 3.993800391835835*^9}}, + 3.9913204231548862`*^9, {3.993800373637882*^9, 3.993800391829084*^9}, { + 3.994072760691328*^9, 3.994072778024534*^9}}, CellLabel-> "During evaluation of \ -In[202]:=",ExpressionUUID->"484936b3-0ede-47b2-8bf0-dd73f33f6ec6"], +In[204]:=",ExpressionUUID->"dbd00160-448e-47eb-9b54-1b8eee66fc7c"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 202, 8, 31384669378386576087, "Local"}, +during this calculation.\"", 2, 204, 12, 31386456124452082574, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ - 3.9913204231548862`*^9, {3.993800373637882*^9, 3.993800391838262*^9}}, + 3.9913204231548862`*^9, {3.993800373637882*^9, 3.993800391829084*^9}, { + 3.994072760691328*^9, 3.9940727780271606`*^9}}, CellLabel-> "During evaluation of \ -In[202]:=",ExpressionUUID->"42970bd2-2131-444e-aeb3-e51be560d6a0"], +In[204]:=",ExpressionUUID->"c102fc32-8b95-4a7b-991a-eba57181e676"], -Cell[BoxData[ - RowBox[{"7.262943554988106`", "\[VeryThinSpace]", "+", - RowBox[{"1.017296465633298`", " ", "\[ImaginaryI]"}]}]], "Output", - CellChangeTimes->{3.9913204260017204`*^9, 3.993800383918827*^9, - 3.993800417985188*^9}, +Cell[BoxData["$Aborted"], "Output", + CellChangeTimes->{ + 3.9913204260017204`*^9, 3.993800383918827*^9, 3.993800417985188*^9, { + 3.994072761916934*^9, 3.994072779356915*^9}}, CellLabel-> - "Out[202]=",ExpressionUUID->"78955f39-30d1-44eb-bf13-2854a2ff1cc6"] + "Out[204]=",ExpressionUUID->"095921fb-61e0-412b-b521-1ced07f6e7e8"] }, Open ]], Cell[CellGroupData[{ @@ -6511,78 +6580,75 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{3.9917994459475594`*^9}, CellLabel-> - "In[203]:=",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], + "In[102]:=",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[RowBox[{\\\"6.038545975953807`*^-186\\\", \ -\\\"-\\\", RowBox[{\\\"2.038874633961518`*^-185\\\", \\\" \\\", \\\"\ -\[ImaginaryI]\\\"}]}], \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 203, - 9, 31384669378386576087, "Local"}, + "\"\\!\\(\\*FractionBox[\\\"4.179374189077255`*^-218\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 102, 5, 31386456124452082574, + "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913204262354183`*^9, 3.99380041800856*^9}, + CellChangeTimes->{3.9913204262354183`*^9, 3.99380041800856*^9, + 3.9940727619921303`*^9}, CellLabel-> "During evaluation of \ -In[203]:=",ExpressionUUID->"70ea7838-178c-4fff-924b-79d1b88ec9d6"], +In[102]:=",ExpressionUUID->"2ff78fd1-c222-4492-8d59-d3870d854f46"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[RowBox[{\\\"3.3187864693356716`*^-189\\\", \\\"-\\\ -\", RowBox[{\\\"1.4481309363488078`*^-189\\\", \\\" \\\", \\\"\[ImaginaryI]\\\ -\"}]}], \\\"\ -925017065282507919013470723235883682349486807421901987706139271018810570717360\ -434442383213140448215302144000000000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 203, - 10, 31384669378386576087, "Local"}, + "\"\\!\\(\\*FractionBox[\\\"1.5368767396753836`*^-223\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 102, 6, 31386456124452082574, + "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913204262354183`*^9, 3.9938004180114317`*^9}, + CellChangeTimes->{3.9913204262354183`*^9, 3.99380041800856*^9, + 3.994072761994965*^9}, CellLabel-> "During evaluation of \ -In[203]:=",ExpressionUUID->"9bf09d77-e131-474a-879e-a3a9ddefd90c"], +In[102]:=",ExpressionUUID->"1742ccdd-53de-4eff-b4f4-4544a686b1f6"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[RowBox[{\\\"5.525094423584553`*^-193\\\", \ -\\\"+\\\", RowBox[{\\\"2.7372486063850153`*^-193\\\", \\\" \\\", \\\"\ -\[ImaginaryI]\\\"}]}], \ -\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ -35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 203, 11, 31384669378386576087, "Local"}, + "\"\\!\\(\\*FractionBox[\\\"5.651540173474464`*^-229\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 102, 7, + 31386456124452082574, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913204262354183`*^9, 3.9938004180138187`*^9}, + CellChangeTimes->{3.9913204262354183`*^9, 3.99380041800856*^9, + 3.9940727619978523`*^9}, CellLabel-> "During evaluation of \ -In[203]:=",ExpressionUUID->"0cf99658-11bd-4647-872b-2ba8b15fea33"], +In[102]:=",ExpressionUUID->"e3a375bd-c08e-495a-b8c8-26fd37a27358"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 203, 12, 31384669378386576087, "Local"}, +during this calculation.\"", 2, 102, 8, 31386456124452082574, "kernel 2"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", - CellChangeTimes->{3.9913204262354183`*^9, 3.993800418015943*^9}, + CellChangeTimes->{3.9913204262354183`*^9, 3.99380041800856*^9, + 3.994072761999956*^9}, CellLabel-> "During evaluation of \ -In[203]:=",ExpressionUUID->"64f1f684-c855-478a-bd2b-82c35159ce8b"], +In[102]:=",ExpressionUUID->"83c0e282-a78e-4e38-a9a9-1104e354e1fe"], -Cell[BoxData[ - RowBox[{"2.8036216680627044`", "\[VeryThinSpace]", "+", - RowBox[{"2.6353651395799873`", " ", "\[ImaginaryI]"}]}]], "Output", - CellChangeTimes->{3.991320428882721*^9, 3.993800443799769*^9}, +Cell[BoxData["9.320255088370518`"], "Output", + CellChangeTimes->{3.991320428882721*^9, 3.993800443799769*^9, + 3.994072763163164*^9}, CellLabel-> - "Out[203]=",ExpressionUUID->"d7e713f0-f67b-4baa-accd-c3d6d647e58a"] + "Out[102]=",ExpressionUUID->"0bc3e48d-f853-426a-9826-7e6c393860fa"] }, Open ]], Cell[CellGroupData[{ @@ -6640,12 +6706,13 @@ Cell[BoxData[ RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{3.9917994505623856`*^9}, CellLabel-> - "In[204]:=",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], + "In[103]:=",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], Cell[BoxData["$Aborted"], "Output", - CellChangeTimes->{3.9913206956809444`*^9, 3.9938004505744*^9}, + CellChangeTimes->{3.9913206956809444`*^9, 3.9938004505744*^9, + 3.9940727711756163`*^9}, CellLabel-> - "Out[204]=",ExpressionUUID->"02a2a4cc-b41a-45df-b0e9-6aae09c91a0b"] + "Out[103]=",ExpressionUUID->"29dbe319-c7d0-46c7-9e40-d4bbcca0642c"] }, Open ]], Cell[CellGroupData[{ @@ -7531,9 +7598,73 @@ HbLGog== Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", - RowBox[{"{", "}"}], "]"}]}]], "Input", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.003836"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.01141"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.018699"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.025527"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.031739"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.037207"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.041837"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.045565"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.048367"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.050245"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.051235"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.051395"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.050806"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.049558"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.047756"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.0455"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.042898"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.040047"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.037039"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.033955"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.030869"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.027838"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.024912"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.022128"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.019516"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.017092"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.014869"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.012849"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.011034"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.009415"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.007985"}], "}"}]}], "}"}], "]"}]}]], "Input", CellFrame->{{0, 0}, {0, 0}}, - CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}}, + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.994082822234511*^9}, Background->RGBColor[ 0.87, 0.94, 1],ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], @@ -13695,12 +13826,18 @@ Cell[BoxData["0.08333108480569339`"], "Output", CellChangeTimes->{3.9913279320452003`*^9}, CellLabel-> "Out[146]=",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"] -}, Open ]] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input", + CellChangeTimes->{{3.9940825678269567`*^9, + 3.994082575874216*^9}},ExpressionUUID->"42fa5279-2002-432a-99bf-\ +46e883fae322"] }, -WindowSize->{1440, 882}, -WindowMargins->{{0, Automatic}, {0, 18}}, +WindowSize->{714, 435}, +WindowMargins->{{Automatic, 3}, {3, Automatic}}, 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" @@ -13717,661 +13854,662 @@ CellTagsIndex->{} (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ -Cell[576, 22, 255, 6, 23, "Input",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], -Cell[834, 30, 223, 4, 38, "Output",ExpressionUUID->"a6b709bd-9005-4d9f-b6c8-62aabc6b9e58"] +Cell[576, 22, 305, 6, 99, "Input",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], +Cell[884, 30, 278, 5, 62, "Output",ExpressionUUID->"94e24c15-15ed-42ef-b22d-c99c75b428ac"] }, Open ]], Cell[CellGroupData[{ -Cell[1094, 39, 253, 5, 23, "Input",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], -Cell[1350, 46, 225, 4, 38, "Output",ExpressionUUID->"73111933-b136-4fc0-9696-ef702729a516"] +Cell[1199, 40, 253, 5, 55, "Input",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], +Cell[1455, 47, 275, 5, 62, "Output",ExpressionUUID->"34c6b4fd-e68f-4625-8550-5e36e44c38a4"] }, Open ]], Cell[CellGroupData[{ -Cell[1612, 55, 231, 5, 23, "Input",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], -Cell[1846, 62, 226, 4, 38, "Output",ExpressionUUID->"fd95e897-4810-4d59-9f9c-c1ee23c12837"] +Cell[1767, 57, 231, 5, 55, "Input",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], +Cell[2001, 64, 278, 5, 62, "Output",ExpressionUUID->"dbd2df9c-4020-409c-9867-a0c2d20e2b21"] }, Open ]], Cell[CellGroupData[{ -Cell[2109, 71, 180, 4, 23, "Input",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], -Cell[2292, 77, 226, 4, 38, "Output",ExpressionUUID->"21614744-42ab-43ba-a5e1-34eeb6798db1"] +Cell[2316, 74, 180, 4, 55, "Input",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], +Cell[2499, 80, 276, 5, 62, "Output",ExpressionUUID->"a5fcbf1b-c156-4184-973f-48b00dea4a67"] }, Open ]], Cell[CellGroupData[{ -Cell[2555, 86, 262, 8, 35, "Input",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], -Cell[2820, 96, 229, 4, 38, "Output",ExpressionUUID->"04c4e6eb-deb1-4abc-b466-7a2a66dd1c9f"] +Cell[2812, 90, 262, 8, 81, "Input",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], +Cell[3077, 100, 279, 5, 62, "Output",ExpressionUUID->"47a65611-78e7-4cc4-a917-8162adf1436d"] }, Open ]], Cell[CellGroupData[{ -Cell[3086, 105, 136, 3, 23, "Input",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], -Cell[3225, 110, 230, 4, 38, "Output",ExpressionUUID->"4f0226a9-52b4-4f74-ab90-198732113c63"] +Cell[3393, 110, 136, 3, 55, "Input",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], +Cell[3532, 115, 280, 5, 62, "Output",ExpressionUUID->"97e4329c-dab4-4920-b7ab-321b28675020"] }, Open ]], Cell[CellGroupData[{ -Cell[3492, 119, 281, 7, 23, "Input",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], -Cell[3776, 128, 242, 4, 38, "Output",ExpressionUUID->"553d9e82-f716-44d2-b85b-6026ce80395c"] +Cell[3849, 125, 281, 7, 55, "Input",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], +Cell[4133, 134, 292, 5, 62, "Output",ExpressionUUID->"1d5eebbe-896a-446a-a0c9-37de0853e4ed"] }, Open ]], Cell[CellGroupData[{ -Cell[4055, 137, 262, 8, 23, "Input",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], -Cell[4320, 147, 228, 4, 38, "Output",ExpressionUUID->"7b1f324e-8d44-40a5-a0bb-dc90e2fb4080"] +Cell[4462, 144, 262, 8, 55, "Input",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], +Cell[4727, 154, 280, 5, 62, "Output",ExpressionUUID->"f305b328-93c2-45a6-a12c-167219928195"] }, Open ]], Cell[CellGroupData[{ -Cell[4585, 156, 331, 7, 23, "Input",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], -Cell[4919, 165, 210, 4, 38, "Output",ExpressionUUID->"6a1ced4b-4e2b-45a1-807d-ffbfe17ab777"] +Cell[5044, 164, 331, 7, 55, "Input",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], +Cell[5378, 173, 260, 5, 62, "Output",ExpressionUUID->"1c91a03e-2c2f-4b0b-9a06-57ddd1d05e12"] }, Open ]], Cell[CellGroupData[{ -Cell[5166, 174, 229, 5, 23, "Input",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], -Cell[5398, 181, 206, 4, 38, "Output",ExpressionUUID->"e94da88b-5d08-448c-9a21-f2748634bdf9"] +Cell[5675, 183, 229, 5, 55, "Input",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], +Cell[5907, 190, 260, 5, 62, "Output",ExpressionUUID->"fda100fe-3b6e-4eeb-bdae-9dc1a4c08b06"] }, Open ]], Cell[CellGroupData[{ -Cell[5641, 190, 133, 3, 23, "Input",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], -Cell[5777, 195, 224, 4, 38, "Output",ExpressionUUID->"502685d0-1d40-477a-b48d-974617ebe9f3"] +Cell[6204, 200, 133, 3, 55, "Input",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], +Cell[6340, 205, 276, 5, 62, "Output",ExpressionUUID->"bfcc5510-7d9d-42e9-8316-4bfaeeff738c"] }, Open ]], Cell[CellGroupData[{ -Cell[6038, 204, 133, 3, 23, "Input",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], -Cell[6174, 209, 226, 4, 38, "Output",ExpressionUUID->"08db641a-c8b3-4dca-9a44-a4bd072a592b"] +Cell[6653, 215, 133, 3, 55, "Input",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], +Cell[6789, 220, 278, 5, 62, "Output",ExpressionUUID->"ebcd8444-a303-40cb-a71c-f7dde51f0acd"] }, Open ]], Cell[CellGroupData[{ -Cell[6437, 218, 561, 20, 67, "Input",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], -Cell[7001, 240, 246, 4, 38, "Output",ExpressionUUID->"83c98610-16c5-4994-a0fc-b161aa16b4de"] +Cell[7104, 230, 561, 20, 148, "Input",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], +Cell[7668, 252, 296, 5, 62, "Output",ExpressionUUID->"85d7efb5-42c6-431e-9f16-87b72ee509e7"] }, Open ]], Cell[CellGroupData[{ -Cell[7284, 249, 561, 20, 67, "Input",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], -Cell[7848, 271, 242, 4, 38, "Output",ExpressionUUID->"a15c8a41-e654-4a64-8f3a-e31a3d314cab"] +Cell[8001, 262, 561, 20, 148, "Input",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], +Cell[8565, 284, 292, 5, 62, "Output",ExpressionUUID->"bbef0b26-b735-457f-bb33-de7dba0c6d22"] }, Open ]], Cell[CellGroupData[{ -Cell[8127, 280, 1496, 49, 67, "Input",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], -Cell[9626, 331, 240, 4, 38, "Output",ExpressionUUID->"c4a36692-167c-4c5b-a424-30756c5e3d0e"] +Cell[8894, 294, 1592, 51, 639, "Input",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], +Cell[10489, 347, 292, 5, 62, "Output",ExpressionUUID->"de87a81e-2607-4f13-bb01-2c0aba90ce45"] }, Open ]], Cell[CellGroupData[{ -Cell[9903, 340, 1335, 45, 67, "Input",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], -Cell[11241, 387, 259, 5, 38, "Output",ExpressionUUID->"3dd7f738-84ee-4649-9d7e-4f3464c700f3"] +Cell[10818, 357, 1426, 47, 561, "Input",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], +Cell[12247, 406, 308, 6, 62, "Output",ExpressionUUID->"51aefba2-747a-43b0-af58-703f550cbf74"] }, Open ]], Cell[CellGroupData[{ -Cell[11537, 397, 1335, 45, 67, "Input",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], -Cell[12875, 444, 262, 5, 38, "Output",ExpressionUUID->"5a509817-4137-4f89-88af-0f4ad14aee26"] +Cell[12592, 417, 1426, 47, 561, "Input",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], +Cell[14021, 466, 312, 6, 62, "Output",ExpressionUUID->"80411b10-a524-4256-ae6d-7eb634128cf9"] }, Open ]], Cell[CellGroupData[{ -Cell[13174, 454, 1496, 49, 67, "Input",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], -Cell[14673, 505, 238, 4, 38, "Output",ExpressionUUID->"d51b7a53-3386-45ef-a112-3f3b9ed5c327"] +Cell[14370, 477, 1592, 51, 639, "Input",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], +Cell[15965, 530, 288, 5, 62, "Output",ExpressionUUID->"d4dc706f-4aaf-4ee8-8bbe-12917be0a0b0"] }, Open ]], Cell[CellGroupData[{ -Cell[14948, 514, 135, 3, 23, "Input",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], -Cell[15086, 519, 228, 4, 38, "Output",ExpressionUUID->"4a05ff0a-a3ee-4fa8-8385-ad54818e054d"] +Cell[16290, 540, 135, 3, 55, "Input",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], +Cell[16428, 545, 277, 5, 62, "Output",ExpressionUUID->"c9056f02-2308-447f-98bc-d5a9ab415f34"] }, Open ]], Cell[CellGroupData[{ -Cell[15351, 528, 137, 3, 23, "Input",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], -Cell[15491, 533, 230, 4, 38, "Output",ExpressionUUID->"cf1af63d-9882-474c-991f-46dc148f552a"] +Cell[16742, 555, 137, 3, 55, "Input",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], +Cell[16882, 560, 282, 5, 62, "Output",ExpressionUUID->"a0ecae6a-e825-42e9-8b47-20cd9c952951"] }, Open ]], Cell[CellGroupData[{ -Cell[15758, 542, 254, 5, 23, "Input",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], -Cell[16015, 549, 230, 4, 38, "Output",ExpressionUUID->"dd4b4651-2457-44a4-9982-4b7146f070d4"] +Cell[17201, 570, 254, 5, 55, "Input",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], +Cell[17458, 577, 280, 5, 62, "Output",ExpressionUUID->"6275e6d7-5668-4e2b-8d65-06dfa4463bf8"] }, Open ]], Cell[CellGroupData[{ -Cell[16282, 558, 223, 5, 23, "Input",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], -Cell[16508, 565, 243, 5, 38, "Output",ExpressionUUID->"69d7eb23-0a02-4e24-9db4-eb5c63784f68"] +Cell[17775, 587, 223, 5, 55, "Input",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], +Cell[18001, 594, 293, 6, 62, "Output",ExpressionUUID->"fd202316-b50e-45f0-a696-992c23b345c9"] }, Open ]], Cell[CellGroupData[{ -Cell[16788, 575, 138, 3, 23, "Input",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], -Cell[16929, 580, 230, 4, 38, "Output",ExpressionUUID->"606c0f24-36d5-4080-8809-73863babff97"] +Cell[18331, 605, 138, 3, 55, "Input",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], +Cell[18472, 610, 280, 5, 62, "Output",ExpressionUUID->"621b7577-60b5-42e9-9252-17b6fd41cda2"] }, Open ]], Cell[CellGroupData[{ -Cell[17196, 589, 353, 6, 23, "Input",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], -Cell[17552, 597, 203, 4, 38, "Output",ExpressionUUID->"57bdd7fd-a970-43d8-8682-ca63d548fbee"] +Cell[18789, 620, 353, 6, 55, "Input",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], +Cell[19145, 628, 253, 5, 62, "Output",ExpressionUUID->"6fcfbaf4-17d2-4f89-90bf-ce095803ba59"] }, Open ]], Cell[CellGroupData[{ -Cell[17792, 606, 254, 6, 23, "Input",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], -Cell[18049, 614, 225, 4, 38, "Output",ExpressionUUID->"6bd2cca4-60f6-42ca-ae16-4a0281174a9e"] +Cell[19435, 638, 254, 6, 55, "Input",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], +Cell[19692, 646, 275, 5, 62, "Output",ExpressionUUID->"bcd6ff18-77da-47f9-a949-6c529fbb0b7f"] }, Open ]], Cell[CellGroupData[{ -Cell[18311, 623, 223, 5, 23, "Input",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], -Cell[18537, 630, 225, 4, 38, "Output",ExpressionUUID->"ce0f0af2-8bd0-40b4-b2b3-a811ccf324a4"] +Cell[20004, 656, 223, 5, 55, "Input",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], +Cell[20230, 663, 275, 5, 62, "Output",ExpressionUUID->"306d9daa-aba8-4c99-9fcb-3c785ffd21a2"] }, Open ]], Cell[CellGroupData[{ -Cell[18799, 639, 354, 11, 35, "Input",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], -Cell[19156, 652, 243, 4, 38, "Output",ExpressionUUID->"384a4773-6a21-447d-9127-28a44db2760d"] +Cell[20542, 673, 354, 11, 81, "Input",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], +Cell[20899, 686, 295, 5, 62, "Output",ExpressionUUID->"824e14a7-cf15-440e-a928-531c177ca4e3"] }, Open ]], Cell[CellGroupData[{ -Cell[19436, 661, 354, 11, 35, "Input",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], -Cell[19793, 674, 258, 5, 38, "Output",ExpressionUUID->"ade0d879-c10c-4f1a-bdc4-bab757a9248a"] +Cell[21231, 696, 354, 11, 81, "Input",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], +Cell[21588, 709, 310, 6, 62, "Output",ExpressionUUID->"2f69038c-0c9f-4208-9d2e-7081c8d216e5"] }, Open ]], Cell[CellGroupData[{ -Cell[20088, 684, 998, 27, 38, "Input",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], -Cell[21089, 713, 244, 4, 38, "Output",ExpressionUUID->"3de779d1-cf3a-4b77-9687-ade088a375a9"] +Cell[21935, 720, 998, 27, 488, "Input",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], +Cell[22936, 749, 294, 5, 62, "Output",ExpressionUUID->"05103a52-ae49-4d47-9e41-3dea2643cdf0"] }, Open ]], Cell[CellGroupData[{ -Cell[21370, 722, 203, 4, 23, "Input",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], -Cell[21576, 728, 226, 4, 38, "Output",ExpressionUUID->"19b3a2f8-2e47-47bf-afd2-5089664a76e0"] +Cell[23267, 759, 203, 4, 55, "Input",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], +Cell[23473, 765, 276, 5, 62, "Output",ExpressionUUID->"9717cddc-adb7-4646-a989-2f54b642e808"] }, Open ]], Cell[CellGroupData[{ -Cell[21839, 737, 332, 6, 23, "Input",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], -Cell[22174, 745, 208, 4, 38, "Output",ExpressionUUID->"11eae77d-ce91-4e24-9dfe-2e35da135094"] +Cell[23786, 775, 332, 6, 55, "Input",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], +Cell[24121, 783, 262, 5, 62, "Output",ExpressionUUID->"a976d659-e2bd-4e09-8b89-1ee26dda7f42"] }, Open ]], -Cell[22397, 752, 177, 3, 23, "Input",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], +Cell[24398, 791, 177, 3, 55, "Input",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], Cell[CellGroupData[{ -Cell[22599, 759, 332, 6, 23, "Input",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], -Cell[22934, 767, 204, 4, 38, "Output",ExpressionUUID->"571a477d-0ee0-4f32-9e61-7179ee9b8d07"] +Cell[24600, 798, 332, 6, 55, "Input",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], +Cell[24935, 806, 255, 5, 62, "Output",ExpressionUUID->"75da548b-3511-400e-9d96-35c7d4342106"] }, Open ]], -Cell[23153, 774, 177, 3, 23, "Input",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], +Cell[25205, 814, 177, 3, 55, "Input",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], Cell[CellGroupData[{ -Cell[23355, 781, 332, 6, 23, "Input",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], -Cell[23690, 789, 203, 4, 38, "Output",ExpressionUUID->"cd17d452-0500-4133-8e9a-e7cbeeb009bb"] +Cell[25407, 821, 332, 6, 55, "Input",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], +Cell[25742, 829, 253, 5, 62, "Output",ExpressionUUID->"686bd0f6-bdc3-4da0-8cca-3b5f77a88873"] }, Open ]], -Cell[23908, 796, 177, 3, 23, "Input",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], +Cell[26010, 837, 177, 3, 55, "Input",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], Cell[CellGroupData[{ -Cell[24110, 803, 356, 6, 23, "Input",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], -Cell[24469, 811, 202, 4, 38, "Output",ExpressionUUID->"9c669971-9d8d-4582-8cbc-57933f1b59ae"] +Cell[26212, 844, 356, 6, 55, "Input",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], +Cell[26571, 852, 251, 5, 62, "Output",ExpressionUUID->"c11ba0c3-7772-46e5-ad50-906fbaafbe7b"] }, Open ]], -Cell[24686, 818, 175, 3, 23, "Input",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], +Cell[26837, 860, 175, 3, 55, "Input",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], Cell[CellGroupData[{ -Cell[24886, 825, 304, 6, 23, "Input",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], -Cell[25193, 833, 208, 4, 38, "Output",ExpressionUUID->"b73e3928-3631-433c-bb9d-5bad852117fa"] +Cell[27037, 867, 304, 6, 55, "Input",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], +Cell[27344, 875, 258, 5, 62, "Output",ExpressionUUID->"c647f70a-b688-4a8d-a4dd-df2724b43ebe"] }, Open ]], -Cell[25416, 840, 175, 3, 23, "Input",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], +Cell[27617, 883, 175, 3, 55, "Input",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], Cell[CellGroupData[{ -Cell[25616, 847, 310, 6, 23, "Input",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], -Cell[25929, 855, 208, 4, 38, "Output",ExpressionUUID->"ff1d9938-7bc9-4dd9-a1c2-c691d48d31e9"] +Cell[27817, 890, 310, 6, 55, "Input",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], +Cell[28130, 898, 258, 5, 62, "Output",ExpressionUUID->"9e5467f4-e36f-4faf-a4b4-b30d06dfea33"] }, Open ]], -Cell[26152, 862, 177, 3, 23, "Input",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], +Cell[28403, 906, 177, 3, 55, "Input",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], Cell[CellGroupData[{ -Cell[26354, 869, 310, 6, 23, "Input",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], -Cell[26667, 877, 205, 4, 38, "Output",ExpressionUUID->"522567b7-3928-44a4-8035-25c1ac776471"] +Cell[28605, 913, 310, 6, 55, "Input",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], +Cell[28918, 921, 259, 5, 62, "Output",ExpressionUUID->"83451b91-1add-4e1e-8225-c36d23119085"] }, Open ]], -Cell[26887, 884, 176, 3, 23, "Input",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], +Cell[29192, 929, 176, 3, 55, "Input",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], Cell[CellGroupData[{ -Cell[27088, 891, 282, 5, 23, "Input",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], -Cell[27373, 898, 207, 4, 38, "Output",ExpressionUUID->"4143bb76-9ace-4087-afac-7b074f3a337b"] +Cell[29393, 936, 282, 5, 55, "Input",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], +Cell[29678, 943, 256, 5, 62, "Output",ExpressionUUID->"f16c35f8-b1da-4a2a-81db-e8cd6ce2e9c3"] }, Open ]], -Cell[27595, 905, 179, 3, 23, "Input",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], +Cell[29949, 951, 179, 3, 55, "Input",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], Cell[CellGroupData[{ -Cell[27799, 912, 19813, 486, 680, "Input",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], -Cell[47615, 1400, 245, 4, 38, "Output",ExpressionUUID->"2cd32e1c-68c3-43ca-8ba8-ceae320aa775"] +Cell[30153, 958, 19813, 486, 7166, "Input",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], +Cell[49969, 1446, 295, 5, 62, "Output",ExpressionUUID->"24bf1676-9ab3-470d-bab8-a4072821b221"] }, Open ]], Cell[CellGroupData[{ -Cell[47897, 1409, 19752, 490, 690, "Input",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], -Cell[67652, 1901, 241, 4, 38, "Output",ExpressionUUID->"8366e281-fe19-4b85-8f36-f6de3ed67cd8"] +Cell[50301, 1456, 19752, 490, 7205, "Input",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], +Cell[70056, 1948, 294, 5, 62, "Output",ExpressionUUID->"a5a56533-b42d-4c08-b398-413febf46f24"] }, Open ]], Cell[CellGroupData[{ -Cell[67930, 1910, 19752, 484, 689, "Input",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], -Cell[87685, 2396, 256, 5, 38, "Output",ExpressionUUID->"c7a07a24-897c-476e-b8d8-4942526a0e16"] +Cell[70387, 1958, 19752, 484, 7204, "Input",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], +Cell[90142, 2444, 305, 6, 62, "Output",ExpressionUUID->"7090bf69-d4a2-443b-a14c-e0170b6e974f"] }, Open ]], Cell[CellGroupData[{ -Cell[87978, 2406, 22538, 554, 761, "Input",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], -Cell[110519, 2962, 258, 5, 38, "Output",ExpressionUUID->"4362748d-94e6-4ffa-af15-93424513d546"] +Cell[90484, 2455, 22538, 554, 8281, "Input",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], +Cell[113025, 3011, 311, 6, 62, "Output",ExpressionUUID->"82f7adc0-ad6a-4da5-b6b8-71696671b25f"] }, Open ]], Cell[CellGroupData[{ -Cell[110814, 2972, 22539, 554, 761, "Input",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], -Cell[133356, 3528, 260, 5, 38, "Output",ExpressionUUID->"e90a1c17-3211-4e2b-9316-7a7fb781a015"] +Cell[113373, 3022, 22539, 554, 8281, "Input",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], +Cell[135915, 3578, 310, 6, 62, "Output",ExpressionUUID->"8d9ff143-d15f-4a08-94a6-4836b6b37e8b"] }, Open ]], Cell[CellGroupData[{ -Cell[133653, 3538, 25495, 627, 833, "Input",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], -Cell[159151, 4167, 260, 5, 38, "Output",ExpressionUUID->"b572c95c-d739-4a96-b011-44a4f72efda1"] +Cell[136262, 3589, 25495, 627, 9401, "Input",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], +Cell[161760, 4218, 315, 6, 62, "Output",ExpressionUUID->"73edef2c-fe9c-4740-9272-e05a31f0b0c1"] }, Open ]], Cell[CellGroupData[{ -Cell[159448, 4177, 134, 3, 23, "Input",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], -Cell[159585, 4182, 224, 4, 38, "Output",ExpressionUUID->"1099ea07-eb82-45ea-ae0d-971e3f9c0a5c"] +Cell[162112, 4229, 134, 3, 55, "Input",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], +Cell[162249, 4234, 273, 5, 62, "Output",ExpressionUUID->"0e7d21aa-f6ea-42a1-8713-c09a58494dce"] }, Open ]], Cell[CellGroupData[{ -Cell[159846, 4191, 134, 3, 23, "Input",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], -Cell[159983, 4196, 226, 4, 38, "Output",ExpressionUUID->"ab2f90cc-3f6e-4414-87e8-9062ddc92ec6"] +Cell[162559, 4244, 134, 3, 55, "Input",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], +Cell[162696, 4249, 275, 5, 62, "Output",ExpressionUUID->"8d5e02aa-6813-4889-a666-1b20d97caa96"] }, Open ]], Cell[CellGroupData[{ -Cell[160246, 4205, 1148, 40, 48, "Input",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], -Cell[161397, 4247, 242, 4, 38, "Output",ExpressionUUID->"d70002ad-41f6-427b-bb94-f9f71b39c5b0"] +Cell[163008, 4259, 1148, 40, 628, "Input",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], +Cell[164159, 4301, 295, 5, 62, "Output",ExpressionUUID->"304f2f9b-7ec3-4527-b6c1-bb96feb7af31"] }, Open ]], Cell[CellGroupData[{ -Cell[161676, 4256, 1045, 36, 48, "Input",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], -Cell[162724, 4294, 258, 5, 38, "Output",ExpressionUUID->"cb4748a4-c40b-4792-b604-fb588df616da"] +Cell[164491, 4311, 1045, 36, 625, "Input",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], +Cell[165539, 4349, 308, 6, 62, "Output",ExpressionUUID->"b5727e7d-f109-48b8-9e98-5cb10510018b"] }, Open ]], Cell[CellGroupData[{ -Cell[163019, 4304, 1148, 40, 48, "Input",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], -Cell[164170, 4346, 240, 4, 38, "Output",ExpressionUUID->"acc0d10c-3626-40eb-afef-bfeb08e7ddb1"] +Cell[165884, 4360, 1148, 40, 628, "Input",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], +Cell[167035, 4402, 290, 5, 62, "Output",ExpressionUUID->"c5ef29a0-f5f2-4b07-97a1-4d0ad850603c"] }, Open ]], Cell[CellGroupData[{ -Cell[164447, 4355, 112, 2, 23, "Input",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], -Cell[164562, 4359, 248, 4, 38, "Output",ExpressionUUID->"5201decd-f17d-4e4b-9087-681164925c02"] +Cell[167362, 4412, 112, 2, 55, "Input",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], +Cell[167477, 4416, 298, 5, 62, "Output",ExpressionUUID->"b2a4a37d-3b40-4b2a-80e4-a18c24971af6"] }, Open ]], Cell[CellGroupData[{ -Cell[164847, 4368, 112, 2, 23, "Input",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], -Cell[164962, 4372, 262, 5, 38, "Output",ExpressionUUID->"c8d783a3-14d9-43dd-b5ed-6f3114f77634"] +Cell[167812, 4426, 112, 2, 55, "Input",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], +Cell[167927, 4430, 312, 6, 62, "Output",ExpressionUUID->"1fdd8886-dd02-4a9c-bedb-4c9f675feaf9"] }, Open ]], Cell[CellGroupData[{ -Cell[165261, 4382, 112, 2, 23, "Input",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], -Cell[165376, 4386, 262, 5, 38, "Output",ExpressionUUID->"ace2b177-5574-4e53-af24-3138a191ce49"] +Cell[168276, 4441, 112, 2, 55, "Input",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], +Cell[168391, 4445, 316, 6, 62, "Output",ExpressionUUID->"4ac25051-2951-4324-b55c-ca42548f6236"] }, Open ]], Cell[CellGroupData[{ -Cell[165675, 4396, 112, 2, 23, "Input",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], -Cell[165790, 4400, 239, 4, 38, "Output",ExpressionUUID->"e0f5bb7e-9251-44b2-bda4-e7d6df91614f"] +Cell[168744, 4456, 112, 2, 55, "Input",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], +Cell[168859, 4460, 289, 5, 62, "Output",ExpressionUUID->"ac238231-35aa-4022-a65d-a6c0331a1fc9"] }, Open ]], Cell[CellGroupData[{ -Cell[166066, 4409, 111, 2, 23, "Input",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], -Cell[166180, 4413, 244, 4, 38, "Output",ExpressionUUID->"0b5a9ff3-5e36-4731-9c07-be38808fa24d"] +Cell[169185, 4470, 111, 2, 55, "Input",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], +Cell[169299, 4474, 298, 5, 62, "Output",ExpressionUUID->"87fc3d15-0ac2-40f8-95c1-138b2b1ff3ee"] }, Open ]], Cell[CellGroupData[{ -Cell[166461, 4422, 111, 2, 23, "Input",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], -Cell[166575, 4426, 245, 4, 38, "Output",ExpressionUUID->"9b319ced-d224-4b02-aab2-f17e1ac6c827"] +Cell[169634, 4484, 111, 2, 55, "Input",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], +Cell[169748, 4488, 297, 5, 62, "Output",ExpressionUUID->"d53c3899-6850-4495-b82b-ee9c3391dede"] }, Open ]], Cell[CellGroupData[{ -Cell[166857, 4435, 501, 17, 46, "Input",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], -Cell[167361, 4454, 261, 5, 38, "Output",ExpressionUUID->"7d03a477-1ee5-4aa7-bca5-c7190988e56d"] +Cell[170082, 4498, 501, 17, 182, "Input",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], +Cell[170586, 4517, 311, 6, 62, "Output",ExpressionUUID->"6d9e1fa3-36a8-4642-a7eb-a0ba0a958bd2"] }, Open ]], Cell[CellGroupData[{ -Cell[167659, 4464, 501, 17, 46, "Input",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], -Cell[168163, 4483, 258, 5, 38, "Output",ExpressionUUID->"974b2032-8ef6-4b62-8a34-87344dca26eb"] +Cell[170934, 4528, 501, 17, 182, "Input",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], +Cell[171438, 4547, 308, 6, 62, "Output",ExpressionUUID->"63d99693-0899-482b-9902-afbfffff917e"] }, Open ]], Cell[CellGroupData[{ -Cell[168458, 4493, 1792, 61, 48, "Input",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], -Cell[170253, 4556, 241, 4, 38, "Output",ExpressionUUID->"782f75c6-c1c2-4bac-a156-197cf131c729"] +Cell[171783, 4558, 1792, 61, 1100, "Input",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], +Cell[173578, 4621, 291, 5, 62, "Output",ExpressionUUID->"067911fb-c5c8-429b-990d-d374b4471d63"] }, Open ]], Cell[CellGroupData[{ -Cell[170531, 4565, 1105, 37, 48, "Input",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], -Cell[171639, 4604, 258, 5, 38, "Output",ExpressionUUID->"61110b21-bfa4-4393-81f4-6774946bcb4b"] +Cell[173906, 4631, 1105, 37, 667, "Input",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], +Cell[175014, 4670, 311, 6, 62, "Output",ExpressionUUID->"f68847f9-3ffc-44f5-a197-5818cc33be7f"] }, Open ]], Cell[CellGroupData[{ -Cell[171934, 4614, 1822, 62, 95, "Input",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], -Cell[173759, 4678, 240, 4, 38, "Output",ExpressionUUID->"c3364c05-8882-45a4-8de0-b8508146518b"] +Cell[175362, 4681, 1822, 62, 1100, "Input",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], +Cell[177187, 4745, 290, 5, 62, "Output",ExpressionUUID->"c766c24b-4933-40c3-a8ce-1636774176f5"] }, Open ]], Cell[CellGroupData[{ -Cell[174036, 4687, 1714, 56, 67, "Input",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], -Cell[175753, 4745, 260, 5, 38, "Output",ExpressionUUID->"7a1c7fe1-255a-49df-be9c-9a1af0a27b34"] +Cell[177514, 4755, 1714, 56, 758, "Input",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], +Cell[179231, 4813, 294, 5, 62, "Output",ExpressionUUID->"553e3a4b-9a4c-405c-ae56-9dc4bff35cef"] }, Open ]], Cell[CellGroupData[{ -Cell[176050, 4755, 1635, 54, 67, "Input",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], -Cell[177688, 4811, 242, 4, 38, "Output",ExpressionUUID->"a788fe5b-fa94-4ad4-a5de-84f77e127ba0"] +Cell[179562, 4823, 1635, 54, 451, "Input",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], +Cell[181200, 4879, 292, 5, 62, "Output",ExpressionUUID->"88b47c8f-864f-4741-9959-7c305d37c86d"] }, Open ]], Cell[CellGroupData[{ -Cell[177967, 4820, 232, 5, 23, "Input",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], -Cell[178202, 4827, 209, 4, 38, "Output",ExpressionUUID->"fd417368-2f97-4f80-9f1d-112d955829d9"] +Cell[181529, 4889, 232, 5, 55, "Input",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], +Cell[181764, 4896, 261, 5, 62, "Output",ExpressionUUID->"00665af3-dfec-4528-89b6-1cab5261eaf4"] }, Open ]], -Cell[178426, 4834, 176, 3, 23, "Input",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], +Cell[182040, 4904, 176, 3, 55, "Input",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], Cell[CellGroupData[{ -Cell[178627, 4841, 230, 5, 23, "Input",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], -Cell[178860, 4848, 206, 4, 38, "Output",ExpressionUUID->"1b64cba3-272f-4280-b961-6a38b400aac3"] +Cell[182241, 4911, 230, 5, 55, "Input",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], +Cell[182474, 4918, 255, 5, 62, "Output",ExpressionUUID->"c00eaf6f-991f-4cde-a778-0d6c84dab36c"] }, Open ]], -Cell[179081, 4855, 177, 3, 23, "Input",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], +Cell[182744, 4926, 177, 3, 55, "Input",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], Cell[CellGroupData[{ -Cell[179283, 4862, 1301, 43, 40, "Input",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], -Cell[180587, 4907, 247, 4, 38, "Output",ExpressionUUID->"6806591a-8e18-473e-b10d-96b15d216436"] +Cell[182946, 4933, 1301, 43, 303, "Input",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], +Cell[184250, 4978, 298, 5, 62, "Output",ExpressionUUID->"f580e415-60af-472d-b790-4a936ed06c02"] }, Open ]], Cell[CellGroupData[{ -Cell[180871, 4916, 931, 31, 48, "Input",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], -Cell[181805, 4949, 246, 4, 38, "Output",ExpressionUUID->"f6a5f454-44c7-4ba0-bdd5-f621380a02c3"] +Cell[184585, 4988, 931, 31, 259, "Input",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], +Cell[185519, 5021, 295, 5, 62, "Output",ExpressionUUID->"c10d5977-58d7-4636-98a7-548bcfc37c49"] }, Open ]], Cell[CellGroupData[{ -Cell[182088, 4958, 907, 30, 48, "Input",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], -Cell[182998, 4990, 246, 4, 38, "Output",ExpressionUUID->"0b2e505c-a220-4d7e-9a16-85dc0cf18367"] +Cell[185851, 5031, 907, 30, 259, "Input",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], +Cell[186761, 5063, 295, 5, 62, "Output",ExpressionUUID->"d6c32bf0-96e6-41b8-a259-dcc51580790f"] }, Open ]], Cell[CellGroupData[{ -Cell[183281, 4999, 558, 19, 43, "Input",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], -Cell[183842, 5020, 637, 10, 38, "Output",ExpressionUUID->"3761e770-7b3a-4083-bbc7-ab426948df47"] +Cell[187093, 5073, 558, 19, 100, "Input",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], +Cell[187654, 5094, 687, 11, 62, "Output",ExpressionUUID->"a400bdd4-2d95-4ce2-936d-be09e9b51750"] }, Open ]], Cell[CellGroupData[{ -Cell[184516, 5035, 665, 22, 43, "Input",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], -Cell[185184, 5059, 623, 10, 38, "Output",ExpressionUUID->"c73f708f-d9d6-4e8e-9fcc-3f9002975279"] +Cell[188378, 5110, 665, 22, 100, "Input",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], +Cell[189046, 5134, 669, 10, 62, "Output",ExpressionUUID->"2556238f-af75-4c59-b141-865bdd45989f"] }, Open ]], Cell[CellGroupData[{ -Cell[185844, 5074, 170, 5, 47, "Input",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], -Cell[186017, 5081, 730, 12, 38, "Output",ExpressionUUID->"93ef11ee-a6b4-4975-8bde-bd676260983d"] +Cell[189752, 5149, 170, 5, 105, "Input",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], +Cell[189925, 5156, 704, 11, 62, "Output",ExpressionUUID->"ea6f35b3-caa2-4aec-a25b-e24c2955bc68"] }, Open ]], Cell[CellGroupData[{ -Cell[186784, 5098, 236, 6, 46, "Input",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], -Cell[187023, 5106, 588, 9, 38, "Output",ExpressionUUID->"ceb3737e-f7e3-4223-b988-91232872b019"] +Cell[190666, 5172, 236, 6, 104, "Input",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], +Cell[190905, 5180, 639, 10, 62, "Output",ExpressionUUID->"abd832ea-a292-472e-ac47-9cf0981a9ac9"] }, Open ]], Cell[CellGroupData[{ -Cell[187648, 5120, 223, 6, 36, "Input",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], -Cell[187874, 5128, 621, 10, 38, "Output",ExpressionUUID->"4f92039a-9bf9-4fac-a6a4-d8fc6f4be1e0"] +Cell[191581, 5195, 223, 6, 81, "Input",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], +Cell[191807, 5203, 666, 10, 62, "Output",ExpressionUUID->"ea483a60-65d0-43c8-8ea6-96bfb64a017b"] }, Open ]], Cell[CellGroupData[{ -Cell[188532, 5143, 181, 5, 36, "Input",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], -Cell[188716, 5150, 717, 12, 38, "Output",ExpressionUUID->"ce2dea1f-2717-43a0-b159-583f69dc0c30"] +Cell[192510, 5218, 181, 5, 81, "Input",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], +Cell[192694, 5225, 691, 11, 62, "Output",ExpressionUUID->"4335a909-431f-402c-a120-dad1aa09732f"] }, Open ]], Cell[CellGroupData[{ -Cell[189470, 5167, 6055, 185, 161, "Input",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], -Cell[195528, 5354, 717, 12, 38, "Output",ExpressionUUID->"655f1840-36c3-41e0-82d6-a8ba0ed05a48"] +Cell[193422, 5241, 6055, 185, 2152, "Input",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], +Cell[199480, 5428, 668, 10, 62, "Output",ExpressionUUID->"d52042fc-0950-497b-ae60-d435c567627c"] }, Open ]], Cell[CellGroupData[{ -Cell[196282, 5371, 368, 9, 33, "Input",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], -Cell[196653, 5382, 687, 11, 38, "Output",ExpressionUUID->"51a59aaa-3a57-4fd9-b4a2-02a88de74959"] +Cell[200185, 5443, 368, 9, 79, "Input",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], +Cell[200556, 5454, 645, 10, 62, "Output",ExpressionUUID->"0d6cb19c-5add-488d-87c0-b20069a053ad"] }, Open ]], -Cell[197355, 5396, 492, 10, 23, "Input",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], +Cell[201216, 5467, 492, 10, 55, "Input",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], Cell[CellGroupData[{ -Cell[197872, 5410, 558, 19, 43, "Input",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], -Cell[198433, 5431, 241, 4, 38, "Output",ExpressionUUID->"a9cd63e9-bc87-4827-84e2-e269f59f1997"] +Cell[201733, 5481, 558, 19, 100, "Input",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], +Cell[202294, 5502, 293, 5, 62, "Output",ExpressionUUID->"ecf38020-cc98-4d62-b4e3-b552d463b9a4"] }, Open ]], Cell[CellGroupData[{ -Cell[198711, 5440, 623, 21, 43, "Input",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], -Cell[199337, 5463, 245, 4, 38, "Output",ExpressionUUID->"3d95d631-aa89-4af4-a081-adb39c1d3a7c"] +Cell[202624, 5512, 623, 21, 100, "Input",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], +Cell[203250, 5535, 297, 5, 62, "Output",ExpressionUUID->"55be8ae8-711a-4ac5-bd55-c96a0a3f4555"] }, Open ]], Cell[CellGroupData[{ -Cell[199619, 5472, 170, 5, 47, "Input",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], -Cell[199792, 5479, 324, 6, 38, "Output",ExpressionUUID->"651ce4ee-64e2-4f5e-ade4-9ad1f0bda5ce"] +Cell[203584, 5545, 170, 5, 105, "Input",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], +Cell[203757, 5552, 294, 5, 62, "Output",ExpressionUUID->"d8bf3b4a-7085-4dad-9429-212f4e3d19eb"] }, Open ]], Cell[CellGroupData[{ -Cell[200153, 5490, 170, 5, 46, "Input",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], -Cell[200326, 5497, 239, 4, 38, "Output",ExpressionUUID->"c1e74b00-8e49-470c-90fe-263613aa655c"] +Cell[204088, 5562, 170, 5, 104, "Input",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], +Cell[204261, 5569, 288, 5, 62, "Output",ExpressionUUID->"9ea0bdee-7c25-47eb-869c-f00e0e73433d"] }, Open ]], Cell[CellGroupData[{ -Cell[200602, 5506, 181, 5, 36, "Input",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], -Cell[200786, 5513, 240, 4, 38, "Output",ExpressionUUID->"4f25f770-fd13-4892-9597-a0c157aba87b"] +Cell[204586, 5579, 181, 5, 81, "Input",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], +Cell[204770, 5586, 290, 5, 62, "Output",ExpressionUUID->"96610dbf-1da6-41ac-85e6-156c8fdf25b6"] }, Open ]], Cell[CellGroupData[{ -Cell[201063, 5522, 181, 5, 36, "Input",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], -Cell[201247, 5529, 320, 6, 38, "Output",ExpressionUUID->"05c8ae71-fb4f-4ea5-a1fd-19f8180af774"] +Cell[205097, 5596, 181, 5, 81, "Input",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], +Cell[205281, 5603, 292, 5, 62, "Output",ExpressionUUID->"15100d85-5d60-4144-ad85-85b3979c5b2e"] }, Open ]], Cell[CellGroupData[{ -Cell[201604, 5540, 6055, 185, 161, "Input",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], -Cell[207662, 5727, 345, 6, 38, "Output",ExpressionUUID->"db8f5e2c-982f-4b91-97b4-6daf23108ccc"] +Cell[205610, 5613, 6055, 185, 2152, "Input",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], +Cell[211668, 5800, 300, 5, 62, "Output",ExpressionUUID->"49b29492-7d3a-4ee9-b57e-981729a14841"] }, Open ]], Cell[CellGroupData[{ -Cell[208044, 5738, 410, 10, 46, "Input",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], -Cell[208457, 5750, 380, 7, 51, "Output",ExpressionUUID->"e0642929-601f-4b62-a262-178a31c1f222"] +Cell[212005, 5810, 410, 10, 109, "Input",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], +Cell[212418, 5822, 336, 6, 92, "Output",ExpressionUUID->"eebb9cb7-a7e8-451d-a69e-baaf17807774"] }, Open ]], Cell[CellGroupData[{ -Cell[208874, 5762, 6122, 187, 161, "Input",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], -Cell[214999, 5951, 318, 6, 38, "Output",ExpressionUUID->"1bb55358-65ca-415f-86b2-71eb0d6e0b11"] +Cell[212791, 5833, 6122, 187, 2152, "Input",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], +Cell[218916, 6022, 271, 5, 62, "Output",ExpressionUUID->"1150aff2-30e0-42c8-84eb-e46163442387"] }, Open ]], Cell[CellGroupData[{ -Cell[215354, 5962, 368, 9, 33, "Input",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], -Cell[215725, 5973, 314, 6, 38, "Output",ExpressionUUID->"0b82534b-9ecb-442d-abbc-568a8e06278c"] +Cell[219224, 6032, 368, 9, 79, "Input",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], +Cell[219595, 6043, 269, 5, 62, "Output",ExpressionUUID->"601daafb-f26d-4041-b887-09519c5ff073"] }, Open ]], Cell[CellGroupData[{ -Cell[216076, 5984, 2663, 88, 95, "Input",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], -Cell[218742, 6074, 223, 4, 38, "Output",ExpressionUUID->"9db321e0-4129-4ba9-856b-6c30cd703228"] +Cell[219901, 6053, 2663, 88, 1067, "Input",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], +Cell[222567, 6143, 273, 5, 62, "Output",ExpressionUUID->"f18041aa-3a06-4275-a993-939d5a48acba"] }, Open ]], Cell[CellGroupData[{ -Cell[219002, 6083, 2603, 85, 95, "Input",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], -Cell[221608, 6170, 222, 4, 38, "Output",ExpressionUUID->"db433907-bac8-4f2a-9912-1e6a6164e15f"] +Cell[222877, 6153, 2603, 85, 967, "Input",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], +Cell[225483, 6240, 274, 5, 62, "Output",ExpressionUUID->"ef046352-13d3-419f-9315-58a7b35b7dd1"] }, Open ]], Cell[CellGroupData[{ -Cell[221867, 6179, 3712, 118, 142, "Input",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], -Cell[225582, 6299, 220, 4, 38, "Output",ExpressionUUID->"b4249285-ea77-43c2-ad82-a3699470cffc"] +Cell[225794, 6250, 3712, 118, 1454, "Input",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], +Cell[229509, 6370, 269, 5, 62, "Output",ExpressionUUID->"d5ff4e51-14ce-4047-8956-6b44085f5d0c"] }, Open ]], -Cell[225817, 6306, 164, 4, 70, "Input",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], +Cell[229793, 6378, 164, 4, 55, "Input",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], Cell[CellGroupData[{ -Cell[226006, 6314, 2075, 59, 83, "Input",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], -Cell[228084, 6375, 745, 16, 34, "Message",ExpressionUUID->"9cf934f1-1917-46b0-8360-80ad8f99e67e"], -Cell[228832, 6393, 750, 16, 34, "Message",ExpressionUUID->"a0b7ecd8-e31a-4ee8-9559-d985734adf28"], -Cell[229585, 6411, 753, 16, 34, "Message",ExpressionUUID->"484936b3-0ede-47b2-8bf0-dd73f33f6ec6"], -Cell[230341, 6429, 518, 12, 20, "Message",ExpressionUUID->"42970bd2-2131-444e-aeb3-e51be560d6a0"], -Cell[230862, 6443, 313, 6, 26, "Output",ExpressionUUID->"78955f39-30d1-44eb-bf13-2854a2ff1cc6"] +Cell[229982, 6386, 2075, 59, 731, "Input",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], +Cell[232060, 6447, 669, 15, 245, "Message",ExpressionUUID->"d6fe44ce-5865-4595-b6ea-c142ebfb7e48"], +Cell[232732, 6464, 674, 15, 245, "Message",ExpressionUUID->"a0197c52-54ff-4f3a-a6b3-3e288a921767"], +Cell[233409, 6481, 675, 15, 245, "Message",ExpressionUUID->"dbd00160-448e-47eb-9b54-1b8eee66fc7c"], +Cell[234087, 6498, 574, 13, 81, "Message",ExpressionUUID->"c102fc32-8b95-4a7b-991a-eba57181e676"], +Cell[234664, 6513, 259, 5, 62, "Output",ExpressionUUID->"095921fb-61e0-412b-b521-1ced07f6e7e8"] }, Open ]], Cell[CellGroupData[{ -Cell[231212, 6454, 2077, 59, 83, "Input",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], -Cell[233292, 6515, 717, 15, 34, "Message",ExpressionUUID->"70ea7838-178c-4fff-924b-79d1b88ec9d6"], -Cell[234012, 6532, 726, 15, 34, "Message",ExpressionUUID->"9bf09d77-e131-474a-879e-a3a9ddefd90c"], -Cell[234741, 6549, 729, 15, 34, "Message",ExpressionUUID->"0cf99658-11bd-4647-872b-2ba8b15fea33"], -Cell[235473, 6566, 492, 11, 20, "Message",ExpressionUUID->"64f1f684-c855-478a-bd2b-82c35159ce8b"], -Cell[235968, 6579, 288, 5, 26, "Output",ExpressionUUID->"d7e713f0-f67b-4baa-accd-c3d6d647e58a"] +Cell[234960, 6523, 2077, 59, 731, "Input",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], +Cell[237040, 6584, 614, 14, 213, "Message",ExpressionUUID->"2ff78fd1-c222-4492-8d59-d3870d854f46"], +Cell[237657, 6600, 617, 14, 245, "Message",ExpressionUUID->"1742ccdd-53de-4eff-b4f4-4544a686b1f6"], +Cell[238277, 6616, 621, 14, 245, "Message",ExpressionUUID->"e3a375bd-c08e-495a-b8c8-26fd37a27358"], +Cell[238901, 6632, 518, 12, 81, "Message",ExpressionUUID->"83c0e282-a78e-4e38-a9a9-1104e354e1fe"], +Cell[239422, 6646, 217, 4, 62, "Output",ExpressionUUID->"0bc3e48d-f853-426a-9826-7e6c393860fa"] }, Open ]], Cell[CellGroupData[{ -Cell[236293, 6589, 1961, 53, 61, "Input",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], -Cell[238257, 6644, 182, 3, 38, "Output",ExpressionUUID->"02a2a4cc-b41a-45df-b0e9-6aae09c91a0b"] +Cell[239676, 6655, 1961, 53, 506, "Input",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], +Cell[241640, 6710, 209, 4, 62, "Output",ExpressionUUID->"29dbe319-c7d0-46c7-9e40-d4bbcca0642c"] }, Open ]], Cell[CellGroupData[{ -Cell[238476, 6652, 2094, 60, 70, "Input",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], -Cell[240573, 6714, 497, 11, 70, "Message",ExpressionUUID->"cb33453f-b5ca-e14d-a319-662822d35ed2"], -Cell[241073, 6727, 501, 11, 70, "Message",ExpressionUUID->"aa5fb574-aeea-7141-9d86-babfa2192485"], -Cell[241577, 6740, 503, 11, 70, "Message",ExpressionUUID->"dec65c86-5426-6949-9e38-c5bc3eb7722e"], -Cell[242083, 6753, 455, 10, 70, "Message",ExpressionUUID->"32a908f1-0097-2943-9511-bd82e083c1e0"], -Cell[242541, 6765, 43631, 762, 70, "Output",ExpressionUUID->"704b46fd-7ca5-4147-bbb4-19991a3778e5"] +Cell[241886, 6719, 2094, 60, 782, "Input",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], +Cell[243983, 6781, 497, 11, 182, "Message",ExpressionUUID->"cb33453f-b5ca-e14d-a319-662822d35ed2"], +Cell[244483, 6794, 501, 11, 182, "Message",ExpressionUUID->"aa5fb574-aeea-7141-9d86-babfa2192485"], +Cell[244987, 6807, 503, 11, 182, "Message",ExpressionUUID->"dec65c86-5426-6949-9e38-c5bc3eb7722e"], +Cell[245493, 6820, 455, 10, 81, "Message",ExpressionUUID->"32a908f1-0097-2943-9511-bd82e083c1e0"], +Cell[245951, 6832, 43631, 762, 318, "Output",ExpressionUUID->"704b46fd-7ca5-4147-bbb4-19991a3778e5"] }, Open ]], -Cell[286187, 7530, 298, 7, 70, "Input",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], -Cell[286488, 7539, 209, 5, 70, "Input",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], +Cell[289597, 7597, 2522, 71, 707, "Input",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], +Cell[292122, 7670, 209, 5, 55, "Input",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], Cell[CellGroupData[{ -Cell[286722, 7548, 212, 6, 70, "Input",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], -Cell[286937, 7556, 168, 2, 70, "Output",ExpressionUUID->"1f95faab-1b52-5440-9bc8-bbd29c090294"] +Cell[292356, 7679, 212, 6, 90, "Input",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], +Cell[292571, 7687, 168, 2, 62, "Output",ExpressionUUID->"1f95faab-1b52-5440-9bc8-bbd29c090294"] }, Open ]], Cell[CellGroupData[{ -Cell[287142, 7563, 1814, 53, 70, "Input",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], -Cell[288959, 7618, 505, 11, 70, "Message",ExpressionUUID->"34609962-a5ff-c943-bd24-1be35ec9ac87"], -Cell[289467, 7631, 509, 11, 70, "Message",ExpressionUUID->"1fdfd709-87fa-2d47-912a-2bb16540a45a"], -Cell[289979, 7644, 508, 11, 70, "Message",ExpressionUUID->"02f7e2ed-ac22-9d4d-8071-ab116260ee28"], -Cell[290490, 7657, 455, 10, 70, "Message",ExpressionUUID->"7db76209-a5a6-1947-80c1-912d214b981c"], -Cell[290948, 7669, 22399, 414, 70, "Output",ExpressionUUID->"b5f713da-fcb5-f640-b2b9-a3f5b5d5c325"] +Cell[292776, 7694, 1814, 53, 684, "Input",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], +Cell[294593, 7749, 505, 11, 182, "Message",ExpressionUUID->"34609962-a5ff-c943-bd24-1be35ec9ac87"], +Cell[295101, 7762, 509, 11, 182, "Message",ExpressionUUID->"1fdfd709-87fa-2d47-912a-2bb16540a45a"], +Cell[295613, 7775, 508, 11, 109, "Message",ExpressionUUID->"02f7e2ed-ac22-9d4d-8071-ab116260ee28"], +Cell[296124, 7788, 455, 10, 109, "Message",ExpressionUUID->"7db76209-a5a6-1947-80c1-912d214b981c"], +Cell[296582, 7800, 22399, 414, 109, "Output",ExpressionUUID->"b5f713da-fcb5-f640-b2b9-a3f5b5d5c325"] }, Open ]], Cell[CellGroupData[{ -Cell[313384, 8088, 1612, 47, 70, "Input",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], -Cell[314999, 8137, 581, 12, 70, "Message",ExpressionUUID->"e283daf4-b253-944e-a35b-b9d739b4810d"], -Cell[315583, 8151, 584, 12, 70, "Message",ExpressionUUID->"45f4fe27-f32a-9441-bd55-e0801ff04328"], -Cell[316170, 8165, 590, 12, 70, "Message",ExpressionUUID->"8fffabed-e171-5e42-9ba8-fd51ae8f5dd5"], -Cell[316763, 8179, 455, 10, 70, "Message",ExpressionUUID->"8b648472-e40f-a549-a057-c6eeb9f14028"], -Cell[317221, 8191, 169, 2, 70, "Output",ExpressionUUID->"c7b55151-fc31-d94c-8a4e-01b34fb0adaf"] +Cell[319018, 8219, 1612, 47, 109, "Input",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], +Cell[320633, 8268, 581, 12, 245, "Message",ExpressionUUID->"e283daf4-b253-944e-a35b-b9d739b4810d"], +Cell[321217, 8282, 584, 12, 245, "Message",ExpressionUUID->"45f4fe27-f32a-9441-bd55-e0801ff04328"], +Cell[321804, 8296, 590, 12, 276, "Message",ExpressionUUID->"8fffabed-e171-5e42-9ba8-fd51ae8f5dd5"], +Cell[322397, 8310, 455, 10, 81, "Message",ExpressionUUID->"8b648472-e40f-a549-a057-c6eeb9f14028"], +Cell[322855, 8322, 169, 2, 62, "Output",ExpressionUUID->"c7b55151-fc31-d94c-8a4e-01b34fb0adaf"] }, Open ]], Cell[CellGroupData[{ -Cell[317427, 8198, 2249, 64, 70, "Input",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], -Cell[319679, 8264, 557, 12, 70, "Message",ExpressionUUID->"3632efc4-f65f-2f41-a6ff-4f71c0ebce84"], -Cell[320239, 8278, 560, 12, 70, "Message",ExpressionUUID->"779c5516-83d5-5d41-8a7a-6b58e876b564"], -Cell[320802, 8292, 560, 12, 70, "Message",ExpressionUUID->"8e3711bd-8e48-2e4f-9802-ad11f73b56ef"], -Cell[321365, 8306, 455, 10, 70, "Message",ExpressionUUID->"f612a69b-4740-9240-9908-d284159fa285"], -Cell[321823, 8318, 169, 2, 70, "Output",ExpressionUUID->"bfa217e6-2060-bc4b-b710-35d6c4ca9627"] +Cell[323061, 8329, 2249, 64, 731, "Input",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], +Cell[325313, 8395, 557, 12, 109, "Message",ExpressionUUID->"3632efc4-f65f-2f41-a6ff-4f71c0ebce84"], +Cell[325873, 8409, 560, 12, 109, "Message",ExpressionUUID->"779c5516-83d5-5d41-8a7a-6b58e876b564"], +Cell[326436, 8423, 560, 12, 245, "Message",ExpressionUUID->"8e3711bd-8e48-2e4f-9802-ad11f73b56ef"], +Cell[326999, 8437, 455, 10, 81, "Message",ExpressionUUID->"f612a69b-4740-9240-9908-d284159fa285"], +Cell[327457, 8449, 169, 2, 62, "Output",ExpressionUUID->"bfa217e6-2060-bc4b-b710-35d6c4ca9627"] }, Open ]], Cell[CellGroupData[{ -Cell[322029, 8325, 2221, 64, 70, "Input",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], -Cell[324253, 8391, 554, 12, 70, "Message",ExpressionUUID->"3ebcf84a-7882-bd47-b9c8-0657501c09d4"], -Cell[324810, 8405, 560, 12, 70, "Message",ExpressionUUID->"5ba908af-818e-5d45-9b4d-c738ed936632"], -Cell[325373, 8419, 560, 12, 70, "Message",ExpressionUUID->"b25ed3b8-96c0-f246-8b73-bf5dca1bf3be"], -Cell[325936, 8433, 455, 10, 70, "Message",ExpressionUUID->"4d7ee3e1-e220-9e46-b1cc-01012021a276"], -Cell[326394, 8445, 169, 2, 70, "Output",ExpressionUUID->"f21819b7-4040-3a47-b212-dc05454fc812"] +Cell[327663, 8456, 2221, 64, 692, "Input",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], +Cell[329887, 8522, 554, 12, 245, "Message",ExpressionUUID->"3ebcf84a-7882-bd47-b9c8-0657501c09d4"], +Cell[330444, 8536, 560, 12, 245, "Message",ExpressionUUID->"5ba908af-818e-5d45-9b4d-c738ed936632"], +Cell[331007, 8550, 560, 12, 109, "Message",ExpressionUUID->"b25ed3b8-96c0-f246-8b73-bf5dca1bf3be"], +Cell[331570, 8564, 455, 10, 109, "Message",ExpressionUUID->"4d7ee3e1-e220-9e46-b1cc-01012021a276"], +Cell[332028, 8576, 169, 2, 109, "Output",ExpressionUUID->"f21819b7-4040-3a47-b212-dc05454fc812"] }, Open ]], Cell[CellGroupData[{ -Cell[326600, 8452, 2223, 64, 70, "Input",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], -Cell[328826, 8518, 555, 12, 70, "Message",ExpressionUUID->"abd6af2a-56b2-2644-a5c5-5aa91718971c"], -Cell[329384, 8532, 558, 12, 70, "Message",ExpressionUUID->"31d8f902-5be7-c54f-8e99-429decd85903"], -Cell[329945, 8546, 560, 12, 70, "Message",ExpressionUUID->"666728b2-41bd-114c-ad81-a56ae7cb85e9"], -Cell[330508, 8560, 453, 10, 70, "Message",ExpressionUUID->"7a1ee219-911f-6846-82f7-c389bec607c2"], -Cell[330964, 8572, 167, 2, 70, "Output",ExpressionUUID->"f40d5525-ccff-eb4c-a859-e6917373a7f1"] +Cell[332234, 8583, 2223, 64, 109, "Input",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], +Cell[334460, 8649, 555, 12, 245, "Message",ExpressionUUID->"abd6af2a-56b2-2644-a5c5-5aa91718971c"], +Cell[335018, 8663, 558, 12, 245, "Message",ExpressionUUID->"31d8f902-5be7-c54f-8e99-429decd85903"], +Cell[335579, 8677, 560, 12, 245, "Message",ExpressionUUID->"666728b2-41bd-114c-ad81-a56ae7cb85e9"], +Cell[336142, 8691, 453, 10, 81, "Message",ExpressionUUID->"7a1ee219-911f-6846-82f7-c389bec607c2"], +Cell[336598, 8703, 167, 2, 62, "Output",ExpressionUUID->"f40d5525-ccff-eb4c-a859-e6917373a7f1"] }, Open ]], Cell[CellGroupData[{ -Cell[331168, 8579, 213, 6, 70, "Input",ExpressionUUID->"fcd1131c-ba92-0b46-817b-e5f89f4ec38f"], -Cell[331384, 8587, 169, 2, 70, "Output",ExpressionUUID->"3749f94f-79b1-2342-af7e-bc4d815737fe"] +Cell[336802, 8710, 213, 6, 88, "Input",ExpressionUUID->"fcd1131c-ba92-0b46-817b-e5f89f4ec38f"], +Cell[337018, 8718, 169, 2, 62, "Output",ExpressionUUID->"3749f94f-79b1-2342-af7e-bc4d815737fe"] }, Open ]], -Cell[331568, 8592, 247, 5, 70, "Input",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"], +Cell[337202, 8723, 247, 5, 55, "Input",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"], Cell[CellGroupData[{ -Cell[331840, 8601, 554, 18, 70, "Input",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], -Cell[332397, 8621, 167, 2, 70, "Output",ExpressionUUID->"aad53d59-da78-9348-9ac4-1e0902e814d3"] +Cell[337474, 8732, 554, 18, 100, "Input",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], +Cell[338031, 8752, 167, 2, 62, "Output",ExpressionUUID->"aad53d59-da78-9348-9ac4-1e0902e814d3"] }, Open ]], Cell[CellGroupData[{ -Cell[332601, 8628, 166, 4, 70, "Input",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], -Cell[332770, 8634, 169, 2, 70, "Output",ExpressionUUID->"4fef6a46-506a-e14c-9df4-f75ab9f6cdb2"] +Cell[338235, 8759, 166, 4, 105, "Input",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], +Cell[338404, 8765, 169, 2, 62, "Output",ExpressionUUID->"4fef6a46-506a-e14c-9df4-f75ab9f6cdb2"] }, Open ]], Cell[CellGroupData[{ -Cell[332976, 8641, 181, 5, 70, "Input",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], -Cell[333160, 8648, 173, 3, 70, "Output",ExpressionUUID->"f46a3dc4-a4b4-034f-91be-6596e81ebf6d"] +Cell[338610, 8772, 181, 5, 81, "Input",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], +Cell[338794, 8779, 173, 3, 62, "Output",ExpressionUUID->"f46a3dc4-a4b4-034f-91be-6596e81ebf6d"] }, Open ]], Cell[CellGroupData[{ -Cell[333370, 8656, 6055, 185, 70, "Input",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], -Cell[339428, 8843, 172, 3, 70, "Output",ExpressionUUID->"ccd4df45-d425-704c-b4a9-648b41b92e77"] +Cell[339004, 8787, 6055, 185, 2152, "Input",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], +Cell[345062, 8974, 172, 3, 62, "Output",ExpressionUUID->"ccd4df45-d425-704c-b4a9-648b41b92e77"] }, Open ]], Cell[CellGroupData[{ -Cell[339637, 8851, 368, 9, 70, "Input",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], -Cell[340008, 8862, 170, 3, 70, "Output",ExpressionUUID->"1ebb6633-805d-cf47-abbc-564ac9bf2374"] +Cell[345271, 8982, 368, 9, 79, "Input",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], +Cell[345642, 8993, 170, 3, 62, "Output",ExpressionUUID->"1ebb6633-805d-cf47-abbc-564ac9bf2374"] }, Open ]], Cell[CellGroupData[{ -Cell[340215, 8870, 6122, 187, 70, "Input",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], -Cell[346340, 9059, 175, 3, 70, "Output",ExpressionUUID->"a3a95ff2-cddf-6a4c-ac06-8cc3fd5707bc"] +Cell[345849, 9001, 6122, 187, 2152, "Input",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], +Cell[351974, 9190, 175, 3, 109, "Output",ExpressionUUID->"a3a95ff2-cddf-6a4c-ac06-8cc3fd5707bc"] }, Open ]], Cell[CellGroupData[{ -Cell[346552, 9067, 368, 9, 70, "Input",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], -Cell[346923, 9078, 169, 3, 70, "Output",ExpressionUUID->"53071608-cf53-7441-9033-6c9cf2e7fa8e"] +Cell[352186, 9198, 368, 9, 79, "Input",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], +Cell[352557, 9209, 169, 3, 62, "Output",ExpressionUUID->"53071608-cf53-7441-9033-6c9cf2e7fa8e"] }, Open ]], Cell[CellGroupData[{ -Cell[347129, 9086, 2663, 88, 70, "Input",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], -Cell[349795, 9176, 173, 3, 70, "Output",ExpressionUUID->"547b87cc-d628-4d49-8e04-72542aa7650e"] +Cell[352763, 9217, 2663, 88, 1067, "Input",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], +Cell[355429, 9307, 173, 3, 62, "Output",ExpressionUUID->"547b87cc-d628-4d49-8e04-72542aa7650e"] }, Open ]], Cell[CellGroupData[{ -Cell[350005, 9184, 2603, 85, 70, "Input",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], -Cell[352611, 9271, 171, 3, 70, "Output",ExpressionUUID->"a8edf49c-9c61-9e4b-9fa8-4de409daba96"] +Cell[355639, 9315, 2603, 85, 967, "Input",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], +Cell[358245, 9402, 171, 3, 109, "Output",ExpressionUUID->"a8edf49c-9c61-9e4b-9fa8-4de409daba96"] }, Open ]], Cell[CellGroupData[{ -Cell[352819, 9279, 3712, 118, 70, "Input",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], -Cell[356534, 9399, 171, 3, 70, "Output",ExpressionUUID->"3584cc50-41a2-ae4b-af54-859d095b0154"] +Cell[358453, 9410, 3712, 118, 1454, "Input",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], +Cell[362168, 9530, 171, 3, 62, "Output",ExpressionUUID->"3584cc50-41a2-ae4b-af54-859d095b0154"] }, Open ]], Cell[CellGroupData[{ -Cell[356742, 9407, 2052, 59, 70, "Input",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], -Cell[358797, 9468, 572, 12, 70, "Message",ExpressionUUID->"d59869d2-8577-0547-8448-230bc5a4ac5e"], -Cell[359372, 9482, 573, 12, 70, "Message",ExpressionUUID->"844f4204-3100-6d45-b5d2-238cc22b8006"], -Cell[359948, 9496, 578, 12, 70, "Message",ExpressionUUID->"f91c55eb-7b3d-3340-b869-4269b99a071c"], -Cell[360529, 9510, 457, 10, 70, "Message",ExpressionUUID->"efd89e15-8a66-4047-aee7-4fb3607a30a7"], -Cell[360989, 9522, 172, 3, 70, "Output",ExpressionUUID->"e68f2098-b3f7-6745-819f-009e252dd442"] +Cell[362376, 9538, 2052, 59, 731, "Input",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], +Cell[364431, 9599, 572, 12, 245, "Message",ExpressionUUID->"d59869d2-8577-0547-8448-230bc5a4ac5e"], +Cell[365006, 9613, 573, 12, 245, "Message",ExpressionUUID->"844f4204-3100-6d45-b5d2-238cc22b8006"], +Cell[365582, 9627, 578, 12, 150, "Message",ExpressionUUID->"f91c55eb-7b3d-3340-b869-4269b99a071c"], +Cell[366163, 9641, 457, 10, 81, "Message",ExpressionUUID->"efd89e15-8a66-4047-aee7-4fb3607a30a7"], +Cell[366623, 9653, 172, 3, 62, "Output",ExpressionUUID->"e68f2098-b3f7-6745-819f-009e252dd442"] }, Open ]], Cell[CellGroupData[{ -Cell[361198, 9530, 2054, 59, 70, "Input",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], -Cell[363255, 9591, 572, 12, 70, "Message",ExpressionUUID->"feb3ed0a-8d45-dd4c-a945-407106f88295"], -Cell[363830, 9605, 575, 12, 70, "Message",ExpressionUUID->"d5a6c2e7-2143-1843-8d40-686107f6aa27"], -Cell[364408, 9619, 576, 12, 70, "Message",ExpressionUUID->"a15d89dd-0dfc-c845-aec3-fe7d60156e1f"], -Cell[364987, 9633, 457, 10, 70, "Message",ExpressionUUID->"0f9408e4-b654-4a40-9b38-655b18398efc"], -Cell[365447, 9645, 170, 3, 70, "Output",ExpressionUUID->"f72e3d82-4d19-7143-9513-38a15cee4d51"] +Cell[366832, 9661, 2054, 59, 731, "Input",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], +Cell[368889, 9722, 572, 12, 109, "Message",ExpressionUUID->"feb3ed0a-8d45-dd4c-a945-407106f88295"], +Cell[369464, 9736, 575, 12, 109, "Message",ExpressionUUID->"d5a6c2e7-2143-1843-8d40-686107f6aa27"], +Cell[370042, 9750, 576, 12, 109, "Message",ExpressionUUID->"a15d89dd-0dfc-c845-aec3-fe7d60156e1f"], +Cell[370621, 9764, 457, 10, 81, "Message",ExpressionUUID->"0f9408e4-b654-4a40-9b38-655b18398efc"], +Cell[371081, 9776, 170, 3, 62, "Output",ExpressionUUID->"f72e3d82-4d19-7143-9513-38a15cee4d51"] }, Open ]], Cell[CellGroupData[{ -Cell[365654, 9653, 2030, 55, 70, "Input",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], -Cell[367687, 9710, 20377, 384, 70, "Output",ExpressionUUID->"02187549-f2f0-9c4d-81fc-d12919ea7802"] +Cell[371288, 9784, 2030, 55, 506, "Input",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], +Cell[373321, 9841, 20377, 384, 109, "Output",ExpressionUUID->"02187549-f2f0-9c4d-81fc-d12919ea7802"] }, Open ]], Cell[CellGroupData[{ -Cell[388101, 10099, 2118, 60, 70, "Input",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], -Cell[390222, 10161, 499, 11, 70, "Message",ExpressionUUID->"75033ea5-32d5-4445-bfb0-a981507a2e9a"], -Cell[390724, 10174, 504, 11, 70, "Message",ExpressionUUID->"bc53c85b-e7c9-be4a-8ed4-30975f08af5c"], -Cell[391231, 10187, 507, 11, 70, "Message",ExpressionUUID->"e09d101b-c5d3-424f-aab9-c5788f3b9ef6"], -Cell[391741, 10200, 455, 10, 70, "Message",ExpressionUUID->"28f777a6-eb27-df49-a698-bd7806baa94c"], -Cell[392199, 10212, 22381, 415, 70, "Output",ExpressionUUID->"cd997d80-b342-8b4c-95c9-b33408882f73"] +Cell[393735, 10230, 2118, 60, 109, "Input",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], +Cell[395856, 10292, 499, 11, 182, "Message",ExpressionUUID->"75033ea5-32d5-4445-bfb0-a981507a2e9a"], +Cell[396358, 10305, 504, 11, 182, "Message",ExpressionUUID->"bc53c85b-e7c9-be4a-8ed4-30975f08af5c"], +Cell[396865, 10318, 507, 11, 182, "Message",ExpressionUUID->"e09d101b-c5d3-424f-aab9-c5788f3b9ef6"], +Cell[397375, 10331, 455, 10, 81, "Message",ExpressionUUID->"28f777a6-eb27-df49-a698-bd7806baa94c"], +Cell[397833, 10343, 22381, 415, 325, "Output",ExpressionUUID->"cd997d80-b342-8b4c-95c9-b33408882f73"] }, Open ]], -Cell[414595, 10630, 174, 3, 70, "Input",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], -Cell[414772, 10635, 209, 5, 70, "Input",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"], +Cell[420229, 10761, 174, 3, 55, "Input",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], +Cell[420406, 10766, 209, 5, 55, "Input",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"], Cell[CellGroupData[{ -Cell[415006, 10644, 1616, 48, 70, "Input",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], -Cell[416625, 10694, 594, 12, 70, "Message",ExpressionUUID->"96d01a47-7c9a-1944-8904-f1788b2f0a8a"], -Cell[417222, 10708, 594, 12, 70, "Message",ExpressionUUID->"fee09e7b-7835-394b-93fe-35ddd26f69d1"], -Cell[417819, 10722, 598, 12, 70, "Message",ExpressionUUID->"fc12fc14-afc1-0a48-8829-94d858477ec4"], -Cell[418420, 10736, 457, 10, 70, "Message",ExpressionUUID->"41b1346d-6d7d-5d4d-9b1a-88cde3361cf3"], -Cell[418880, 10748, 171, 3, 70, "Output",ExpressionUUID->"0bbffe2c-809c-1149-a08f-e3342cda31a0"] +Cell[420640, 10775, 1616, 48, 526, "Input",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], +Cell[422259, 10825, 594, 12, 276, "Message",ExpressionUUID->"96d01a47-7c9a-1944-8904-f1788b2f0a8a"], +Cell[422856, 10839, 594, 12, 276, "Message",ExpressionUUID->"fee09e7b-7835-394b-93fe-35ddd26f69d1"], +Cell[423453, 10853, 598, 12, 276, "Message",ExpressionUUID->"fc12fc14-afc1-0a48-8829-94d858477ec4"], +Cell[424054, 10867, 457, 10, 81, "Message",ExpressionUUID->"41b1346d-6d7d-5d4d-9b1a-88cde3361cf3"], +Cell[424514, 10879, 171, 3, 62, "Output",ExpressionUUID->"0bbffe2c-809c-1149-a08f-e3342cda31a0"] }, Open ]], Cell[CellGroupData[{ -Cell[419088, 10756, 2247, 64, 70, "Input",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], -Cell[421338, 10822, 572, 12, 70, "Message",ExpressionUUID->"922f5f31-888f-7340-96cd-65ecb8ea2e84"], -Cell[421913, 10836, 573, 12, 70, "Message",ExpressionUUID->"287b836d-7493-d44f-85b0-183d2793165c"], -Cell[422489, 10850, 578, 12, 70, "Message",ExpressionUUID->"962d88f7-2937-fe4b-ba97-3fe8099808d5"], -Cell[423070, 10864, 455, 10, 70, "Message",ExpressionUUID->"2ec951f6-2332-9241-84af-c7ac25232c2e"], -Cell[423528, 10876, 172, 3, 70, "Output",ExpressionUUID->"3eb28fb3-5fd6-4240-b231-e1f0fa53f4dc"] +Cell[424722, 10887, 2247, 64, 731, "Input",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], +Cell[426972, 10953, 572, 12, 245, "Message",ExpressionUUID->"922f5f31-888f-7340-96cd-65ecb8ea2e84"], +Cell[427547, 10967, 573, 12, 245, "Message",ExpressionUUID->"287b836d-7493-d44f-85b0-183d2793165c"], +Cell[428123, 10981, 578, 12, 245, "Message",ExpressionUUID->"962d88f7-2937-fe4b-ba97-3fe8099808d5"], +Cell[428704, 10995, 455, 10, 81, "Message",ExpressionUUID->"2ec951f6-2332-9241-84af-c7ac25232c2e"], +Cell[429162, 11007, 172, 3, 62, "Output",ExpressionUUID->"3eb28fb3-5fd6-4240-b231-e1f0fa53f4dc"] }, Open ]], Cell[CellGroupData[{ -Cell[423737, 10884, 2221, 64, 70, "Input",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], -Cell[425961, 10950, 570, 12, 70, "Message",ExpressionUUID->"8fc71a81-55ed-5940-a6a0-1fa4e0c6425a"], -Cell[426534, 10964, 573, 12, 70, "Message",ExpressionUUID->"001b2f06-491c-6c4f-881b-1d7c12c1b14f"], -Cell[427110, 10978, 578, 12, 70, "Message",ExpressionUUID->"865c0491-32b6-3549-83ec-bdf42c3a31aa"], -Cell[427691, 10992, 455, 10, 70, "Message",ExpressionUUID->"3566013f-7b44-504c-95a5-32d3ac2ece3d"], -Cell[428149, 11004, 172, 3, 70, "Output",ExpressionUUID->"9cc3c720-52c0-b040-a0b4-75ff2aab4396"] +Cell[429371, 11015, 2221, 64, 692, "Input",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], +Cell[431595, 11081, 570, 12, 245, "Message",ExpressionUUID->"8fc71a81-55ed-5940-a6a0-1fa4e0c6425a"], +Cell[432168, 11095, 573, 12, 245, "Message",ExpressionUUID->"001b2f06-491c-6c4f-881b-1d7c12c1b14f"], +Cell[432744, 11109, 578, 12, 245, "Message",ExpressionUUID->"865c0491-32b6-3549-83ec-bdf42c3a31aa"], +Cell[433325, 11123, 455, 10, 81, "Message",ExpressionUUID->"3566013f-7b44-504c-95a5-32d3ac2ece3d"], +Cell[433783, 11135, 172, 3, 62, "Output",ExpressionUUID->"9cc3c720-52c0-b040-a0b4-75ff2aab4396"] }, Open ]], Cell[CellGroupData[{ -Cell[428358, 11012, 2221, 64, 70, "Input",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], -Cell[430582, 11078, 572, 12, 70, "Message",ExpressionUUID->"bc9996c1-a929-5b41-9541-f607e96932b8"], -Cell[431157, 11092, 575, 12, 70, "Message",ExpressionUUID->"eb28c83b-0aac-8d4e-a729-f978b41e689a"], -Cell[431735, 11106, 578, 12, 70, "Message",ExpressionUUID->"70b030cf-db8c-c440-8526-b10f71bb72b3"], -Cell[432316, 11120, 455, 10, 70, "Message",ExpressionUUID->"4d72b001-01d6-d944-9c97-6d0d7d2eccbb"], -Cell[432774, 11132, 173, 3, 70, "Output",ExpressionUUID->"c15d23fa-1bed-9640-940a-c33e3a830230"] +Cell[433992, 11143, 2221, 64, 692, "Input",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], +Cell[436216, 11209, 572, 12, 245, "Message",ExpressionUUID->"bc9996c1-a929-5b41-9541-f607e96932b8"], +Cell[436791, 11223, 575, 12, 245, "Message",ExpressionUUID->"eb28c83b-0aac-8d4e-a729-f978b41e689a"], +Cell[437369, 11237, 578, 12, 245, "Message",ExpressionUUID->"70b030cf-db8c-c440-8526-b10f71bb72b3"], +Cell[437950, 11251, 455, 10, 81, "Message",ExpressionUUID->"4d72b001-01d6-d944-9c97-6d0d7d2eccbb"], +Cell[438408, 11263, 173, 3, 62, "Output",ExpressionUUID->"c15d23fa-1bed-9640-940a-c33e3a830230"] }, Open ]], Cell[CellGroupData[{ -Cell[432984, 11140, 213, 6, 70, "Input",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"], -Cell[433200, 11148, 172, 3, 70, "Output",ExpressionUUID->"2d0467ed-c049-384d-ae20-12fc79688cfb"] +Cell[438618, 11271, 213, 6, 88, "Input",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"], +Cell[438834, 11279, 172, 3, 62, "Output",ExpressionUUID->"2d0467ed-c049-384d-ae20-12fc79688cfb"] }, Open ]], -Cell[433387, 11154, 245, 5, 70, "Input",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"], +Cell[439021, 11285, 245, 5, 55, "Input",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"], Cell[CellGroupData[{ -Cell[433657, 11163, 558, 19, 70, "Input",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], -Cell[434218, 11184, 173, 3, 70, "Output",ExpressionUUID->"26c56722-6e97-cb4f-b35b-a00d42f1d8f6"] +Cell[439291, 11294, 558, 19, 100, "Input",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], +Cell[439852, 11315, 173, 3, 62, "Output",ExpressionUUID->"26c56722-6e97-cb4f-b35b-a00d42f1d8f6"] }, Open ]], Cell[CellGroupData[{ -Cell[434428, 11192, 170, 5, 70, "Input",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], -Cell[434601, 11199, 171, 3, 70, "Output",ExpressionUUID->"7e7edb0d-1306-d742-8b32-e7c6dc694892"] +Cell[440062, 11323, 170, 5, 105, "Input",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], +Cell[440235, 11330, 171, 3, 62, "Output",ExpressionUUID->"7e7edb0d-1306-d742-8b32-e7c6dc694892"] }, Open ]], Cell[CellGroupData[{ -Cell[434809, 11207, 181, 5, 70, "Input",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], -Cell[434993, 11214, 173, 3, 70, "Output",ExpressionUUID->"e5353287-a717-554a-9c6b-1021438b30ff"] +Cell[440443, 11338, 181, 5, 81, "Input",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], +Cell[440627, 11345, 173, 3, 62, "Output",ExpressionUUID->"e5353287-a717-554a-9c6b-1021438b30ff"] }, Open ]], Cell[CellGroupData[{ -Cell[435203, 11222, 6055, 185, 70, "Input",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], -Cell[441261, 11409, 175, 3, 70, "Output",ExpressionUUID->"ed4bd4f3-e1cc-fa47-b5b5-475b6e581b1f"] +Cell[440837, 11353, 6055, 185, 2152, "Input",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], +Cell[446895, 11540, 175, 3, 109, "Output",ExpressionUUID->"ed4bd4f3-e1cc-fa47-b5b5-475b6e581b1f"] }, Open ]], Cell[CellGroupData[{ -Cell[441473, 11417, 368, 9, 70, "Input",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], -Cell[441844, 11428, 170, 3, 70, "Output",ExpressionUUID->"0c9f07a0-dfdf-6e41-964a-0bcdc0cbcb45"] +Cell[447107, 11548, 368, 9, 79, "Input",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], +Cell[447478, 11559, 170, 3, 62, "Output",ExpressionUUID->"0c9f07a0-dfdf-6e41-964a-0bcdc0cbcb45"] }, Open ]], Cell[CellGroupData[{ -Cell[442051, 11436, 6122, 187, 70, "Input",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], -Cell[448176, 11625, 175, 3, 70, "Output",ExpressionUUID->"579eace1-979d-7347-a36f-c1fefbf459f5"] +Cell[447685, 11567, 6122, 187, 2152, "Input",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], +Cell[453810, 11756, 175, 3, 109, "Output",ExpressionUUID->"579eace1-979d-7347-a36f-c1fefbf459f5"] }, Open ]], Cell[CellGroupData[{ -Cell[448388, 11633, 368, 9, 70, "Input",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], -Cell[448759, 11644, 172, 3, 70, "Output",ExpressionUUID->"0225baf1-4541-ed4d-8528-13926fef86cd"] +Cell[454022, 11764, 368, 9, 79, "Input",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], +Cell[454393, 11775, 172, 3, 62, "Output",ExpressionUUID->"0225baf1-4541-ed4d-8528-13926fef86cd"] }, Open ]], Cell[CellGroupData[{ -Cell[448968, 11652, 2663, 88, 70, "Input",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], -Cell[451634, 11742, 173, 3, 70, "Output",ExpressionUUID->"f7c789e7-838d-b443-a597-00e69e7c3611"] +Cell[454602, 11783, 2663, 88, 1067, "Input",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], +Cell[457268, 11873, 173, 3, 62, "Output",ExpressionUUID->"f7c789e7-838d-b443-a597-00e69e7c3611"] }, Open ]], Cell[CellGroupData[{ -Cell[451844, 11750, 2603, 85, 70, "Input",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], -Cell[454450, 11837, 171, 3, 70, "Output",ExpressionUUID->"fc2bf760-d110-cb46-bd02-e934de9fd4f9"] +Cell[457478, 11881, 2603, 85, 967, "Input",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], +Cell[460084, 11968, 171, 3, 62, "Output",ExpressionUUID->"fc2bf760-d110-cb46-bd02-e934de9fd4f9"] }, Open ]], Cell[CellGroupData[{ -Cell[454658, 11845, 3712, 118, 70, "Input",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], -Cell[458373, 11965, 171, 3, 70, "Output",ExpressionUUID->"4304216c-b250-ab48-915e-b844e71a70f1"] +Cell[460292, 11976, 3712, 118, 1454, "Input",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], +Cell[464007, 12096, 171, 3, 62, "Output",ExpressionUUID->"4304216c-b250-ab48-915e-b844e71a70f1"] }, Open ]], Cell[CellGroupData[{ -Cell[458581, 11973, 2052, 59, 70, "Input",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], -Cell[460636, 12034, 568, 12, 70, "Message",ExpressionUUID->"ef0dcda5-4eb3-fb4f-a7ba-cf9592c754fd"], -Cell[461207, 12048, 572, 12, 70, "Message",ExpressionUUID->"516128bc-41b4-3d49-8276-2fe73d5d437e"], -Cell[461782, 12062, 574, 12, 70, "Message",ExpressionUUID->"83555127-edb0-f34d-bade-abdcd60ad387"], -Cell[462359, 12076, 457, 10, 70, "Message",ExpressionUUID->"f8efe38f-0b83-4645-b574-b25c08902457"], -Cell[462819, 12088, 172, 3, 70, "Output",ExpressionUUID->"de5933f0-d736-3443-950a-4744d8abefe5"] +Cell[464215, 12104, 2052, 59, 731, "Input",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], +Cell[466270, 12165, 568, 12, 245, "Message",ExpressionUUID->"ef0dcda5-4eb3-fb4f-a7ba-cf9592c754fd"], +Cell[466841, 12179, 572, 12, 245, "Message",ExpressionUUID->"516128bc-41b4-3d49-8276-2fe73d5d437e"], +Cell[467416, 12193, 574, 12, 245, "Message",ExpressionUUID->"83555127-edb0-f34d-bade-abdcd60ad387"], +Cell[467993, 12207, 457, 10, 81, "Message",ExpressionUUID->"f8efe38f-0b83-4645-b574-b25c08902457"], +Cell[468453, 12219, 172, 3, 62, "Output",ExpressionUUID->"de5933f0-d736-3443-950a-4744d8abefe5"] }, Open ]], Cell[CellGroupData[{ -Cell[463028, 12096, 2054, 59, 70, "Input",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], -Cell[465085, 12157, 568, 12, 70, "Message",ExpressionUUID->"d0c389d2-1c6b-3a44-bd00-6e54df438015"], -Cell[465656, 12171, 572, 12, 70, "Message",ExpressionUUID->"3f819d0b-3458-d54e-bb8e-ed758b92949a"], -Cell[466231, 12185, 574, 12, 70, "Message",ExpressionUUID->"7403c575-bafd-2049-8d02-89293c73f7f1"], -Cell[466808, 12199, 457, 10, 70, "Message",ExpressionUUID->"29512b1b-8a2c-1740-986b-fb78e7d2ec89"], -Cell[467268, 12211, 171, 3, 70, "Output",ExpressionUUID->"686785b6-8c83-3e43-88fb-689383b13a2d"] +Cell[468662, 12227, 2054, 59, 409, "Input",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], +Cell[470719, 12288, 568, 12, 245, "Message",ExpressionUUID->"d0c389d2-1c6b-3a44-bd00-6e54df438015"], +Cell[471290, 12302, 572, 12, 245, "Message",ExpressionUUID->"3f819d0b-3458-d54e-bb8e-ed758b92949a"], +Cell[471865, 12316, 574, 12, 245, "Message",ExpressionUUID->"7403c575-bafd-2049-8d02-89293c73f7f1"], +Cell[472442, 12330, 457, 10, 109, "Message",ExpressionUUID->"29512b1b-8a2c-1740-986b-fb78e7d2ec89"], +Cell[472902, 12342, 171, 3, 109, "Output",ExpressionUUID->"686785b6-8c83-3e43-88fb-689383b13a2d"] }, Open ]], Cell[CellGroupData[{ -Cell[467476, 12219, 2030, 55, 70, "Input",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], -Cell[469509, 12276, 19960, 375, 70, "Output",ExpressionUUID->"9eb47740-dc4f-3248-80e4-ef19d916a0ad"] +Cell[473110, 12350, 2030, 55, 109, "Input",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], +Cell[475143, 12407, 19960, 375, 109, "Output",ExpressionUUID->"9eb47740-dc4f-3248-80e4-ef19d916a0ad"] }, Open ]], Cell[CellGroupData[{ -Cell[489506, 12656, 2118, 60, 70, "Input",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], -Cell[491627, 12718, 496, 11, 70, "Message",ExpressionUUID->"6bc1b8c6-3100-6640-9985-3abfd43de799"], -Cell[492126, 12731, 501, 11, 70, "Message",ExpressionUUID->"82e13dda-210b-a94d-9e1d-a821db42ab6b"], -Cell[492630, 12744, 505, 11, 70, "Message",ExpressionUUID->"9d37688a-c69d-ed49-bce7-cf0090e0ecb8"], -Cell[493138, 12757, 455, 10, 70, "Message",ExpressionUUID->"4e87d0d8-b47a-ef47-85af-16467b219f50"], -Cell[493596, 12769, 21721, 403, 70, "Output",ExpressionUUID->"6974e3c4-9b35-2f4b-97bf-745f60f533f8"] +Cell[495140, 12787, 2118, 60, 109, "Input",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], +Cell[497261, 12849, 496, 11, 182, "Message",ExpressionUUID->"6bc1b8c6-3100-6640-9985-3abfd43de799"], +Cell[497760, 12862, 501, 11, 182, "Message",ExpressionUUID->"82e13dda-210b-a94d-9e1d-a821db42ab6b"], +Cell[498264, 12875, 505, 11, 182, "Message",ExpressionUUID->"9d37688a-c69d-ed49-bce7-cf0090e0ecb8"], +Cell[498772, 12888, 455, 10, 81, "Message",ExpressionUUID->"4e87d0d8-b47a-ef47-85af-16467b219f50"], +Cell[499230, 12900, 21721, 403, 319, "Output",ExpressionUUID->"6974e3c4-9b35-2f4b-97bf-745f60f533f8"] }, Open ]], -Cell[515332, 13175, 181, 3, 70, "Input",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], -Cell[515516, 13180, 207, 5, 70, "Input",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"], +Cell[520966, 13306, 181, 3, 55, "Input",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], +Cell[521150, 13311, 207, 5, 55, "Input",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"], Cell[CellGroupData[{ -Cell[515748, 13189, 1616, 48, 70, "Input",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], -Cell[517367, 13239, 589, 12, 70, "Message",ExpressionUUID->"8906bbab-e37b-4b4c-898f-52bfc96dde7b"], -Cell[517959, 13253, 588, 12, 70, "Message",ExpressionUUID->"6ae14bce-ec42-7f4d-9914-0630eea4cdf9"], -Cell[518550, 13267, 594, 12, 70, "Message",ExpressionUUID->"7e98a506-896d-0d47-8502-b83685d9a60c"], -Cell[519147, 13281, 455, 10, 70, "Message",ExpressionUUID->"400e66c2-06b5-814e-a2be-19c4c75ccbf0"], -Cell[519605, 13293, 173, 3, 70, "Output",ExpressionUUID->"f202ab02-e319-144b-97e8-ae603395b346"] +Cell[521382, 13320, 1616, 48, 526, "Input",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], +Cell[523001, 13370, 589, 12, 245, "Message",ExpressionUUID->"8906bbab-e37b-4b4c-898f-52bfc96dde7b"], +Cell[523593, 13384, 588, 12, 276, "Message",ExpressionUUID->"6ae14bce-ec42-7f4d-9914-0630eea4cdf9"], +Cell[524184, 13398, 594, 12, 276, "Message",ExpressionUUID->"7e98a506-896d-0d47-8502-b83685d9a60c"], +Cell[524781, 13412, 455, 10, 81, "Message",ExpressionUUID->"400e66c2-06b5-814e-a2be-19c4c75ccbf0"], +Cell[525239, 13424, 173, 3, 62, "Output",ExpressionUUID->"f202ab02-e319-144b-97e8-ae603395b346"] }, Open ]], Cell[CellGroupData[{ -Cell[519815, 13301, 2246, 64, 70, "Input",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], -Cell[522064, 13367, 566, 12, 70, "Message",ExpressionUUID->"2d7e67d1-8691-e348-9ca8-caa63b533102"], -Cell[522633, 13381, 570, 12, 70, "Message",ExpressionUUID->"f0eb6f1d-f621-8647-b6a6-8bf673e41ebb"], -Cell[523206, 13395, 574, 12, 70, "Message",ExpressionUUID->"64fda82a-0f74-2743-89a8-afd600de203a"], -Cell[523783, 13409, 456, 10, 70, "Message",ExpressionUUID->"971a319d-8ab4-464d-a08e-f97fe8d4c0e1"], -Cell[524242, 13421, 171, 3, 70, "Output",ExpressionUUID->"b3c37f48-9827-884f-94d9-1f76aed7bfaa"] +Cell[525449, 13432, 2246, 64, 731, "Input",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], +Cell[527698, 13498, 566, 12, 245, "Message",ExpressionUUID->"2d7e67d1-8691-e348-9ca8-caa63b533102"], +Cell[528267, 13512, 570, 12, 245, "Message",ExpressionUUID->"f0eb6f1d-f621-8647-b6a6-8bf673e41ebb"], +Cell[528840, 13526, 574, 12, 109, "Message",ExpressionUUID->"64fda82a-0f74-2743-89a8-afd600de203a"], +Cell[529417, 13540, 456, 10, 109, "Message",ExpressionUUID->"971a319d-8ab4-464d-a08e-f97fe8d4c0e1"], +Cell[529876, 13552, 171, 3, 109, "Output",ExpressionUUID->"b3c37f48-9827-884f-94d9-1f76aed7bfaa"] }, Open ]], Cell[CellGroupData[{ -Cell[524450, 13429, 2221, 64, 70, "Input",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], -Cell[526674, 13495, 569, 12, 70, "Message",ExpressionUUID->"1040ba10-c733-df44-b556-0998dc0163c9"], -Cell[527246, 13509, 571, 12, 70, "Message",ExpressionUUID->"e451b852-84c2-a941-b1d7-812ecad4750e"], -Cell[527820, 13523, 575, 12, 70, "Message",ExpressionUUID->"a15e0c9d-d634-6e47-94c5-2ce40fcb4d52"], -Cell[528398, 13537, 458, 10, 70, "Message",ExpressionUUID->"a3ddc92b-b5c9-5e46-be44-6165430ec35f"], -Cell[528859, 13549, 171, 3, 70, "Output",ExpressionUUID->"978bf39b-9d1f-a54f-a6de-a2e3d269e126"] +Cell[530084, 13560, 2221, 64, 109, "Input",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], +Cell[532308, 13626, 569, 12, 109, "Message",ExpressionUUID->"1040ba10-c733-df44-b556-0998dc0163c9"], +Cell[532880, 13640, 571, 12, 245, "Message",ExpressionUUID->"e451b852-84c2-a941-b1d7-812ecad4750e"], +Cell[533454, 13654, 575, 12, 245, "Message",ExpressionUUID->"a15e0c9d-d634-6e47-94c5-2ce40fcb4d52"], +Cell[534032, 13668, 458, 10, 81, "Message",ExpressionUUID->"a3ddc92b-b5c9-5e46-be44-6165430ec35f"], +Cell[534493, 13680, 171, 3, 62, "Output",ExpressionUUID->"978bf39b-9d1f-a54f-a6de-a2e3d269e126"] }, Open ]], Cell[CellGroupData[{ -Cell[529067, 13557, 2223, 64, 70, "Input",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], -Cell[531293, 13623, 567, 12, 70, "Message",ExpressionUUID->"57c74c2a-63a6-9846-b3f7-1a08cebb8172"], -Cell[531863, 13637, 571, 12, 70, "Message",ExpressionUUID->"2e606101-b73e-f443-8324-5b1c64dcaa7f"], -Cell[532437, 13651, 573, 12, 70, "Message",ExpressionUUID->"4da9173d-4ced-1e49-83f6-426d72ec8cf3"], -Cell[533013, 13665, 456, 10, 70, "Message",ExpressionUUID->"a2dba8d9-69c9-cb46-bbb4-f7192fe3e138"], -Cell[533472, 13677, 173, 3, 70, "Output",ExpressionUUID->"12fa1803-dc21-9349-8d62-d5d5f0fa85c6"] +Cell[534701, 13688, 2223, 64, 692, "Input",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], +Cell[536927, 13754, 567, 12, 245, "Message",ExpressionUUID->"57c74c2a-63a6-9846-b3f7-1a08cebb8172"], +Cell[537497, 13768, 571, 12, 245, "Message",ExpressionUUID->"2e606101-b73e-f443-8324-5b1c64dcaa7f"], +Cell[538071, 13782, 573, 12, 245, "Message",ExpressionUUID->"4da9173d-4ced-1e49-83f6-426d72ec8cf3"], +Cell[538647, 13796, 456, 10, 81, "Message",ExpressionUUID->"a2dba8d9-69c9-cb46-bbb4-f7192fe3e138"], +Cell[539106, 13808, 173, 3, 62, "Output",ExpressionUUID->"12fa1803-dc21-9349-8d62-d5d5f0fa85c6"] }, Open ]], Cell[CellGroupData[{ -Cell[533682, 13685, 211, 6, 70, "Input",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], -Cell[533896, 13693, 174, 3, 70, "Output",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"] -}, Open ]] +Cell[539316, 13816, 211, 6, 88, "Input",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], +Cell[539530, 13824, 174, 3, 62, "Output",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"] +}, Open ]], +Cell[539719, 13830, 188, 4, 55, "Input",ExpressionUUID->"42fa5279-2002-432a-99bf-46e883fae322"] } ] *) diff --git a/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_osc_Qw2.nb b/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_osc_Qw2.nb index a320d64..7274dfd 100755 --- a/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_osc_Qw2.nb +++ b/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_osc_Qw2.nb @@ -3,25 +3,4892 @@ (*** 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[ 579845, 14323] +NotebookOptionsPosition[ 540066, 13693] +NotebookOutlinePosition[ 540478, 13710] +CellTagsIndexPosition[ 540435, 13707] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f1", "="}]], "Input", + RowBox[{"d", "=", "1.6"}]], "Input", CellChangeTimes->{ - 3.9918496921150837`*^9},ExpressionUUID->"ede64bc2-06f7-8743-a0a6-\ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.9940727514461927`*^9, 3.994072775295883*^9}}, + CellLabel-> + "In[104]:=",ExpressionUUID->"fe8f6cf0-b6a8-40e3-a99b-ddc3b879c463"], + +Cell[BoxData["1.6`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, 3.99379974700918*^9, 3.993800338579624*^9, + 3.9938003856877937`*^9, {3.994072756527327*^9, 3.9940727765701942`*^9}}, + CellLabel-> + "Out[104]=",ExpressionUUID->"375d2b5a-bc90-49a8-8335-2375c3c60798"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.993799082059058*^9, 3.9937990826790457`*^9}}, + CellLabel-> + "In[105]:=",ExpressionUUID->"e622a70e-4541-4e15-a3f1-c619e3ebd07c"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.993799747282215*^9, 3.99380033885446*^9, + 3.993800385764146*^9, {3.994072756590721*^9, 3.994072776647262*^9}}, + CellLabel-> + "Out[105]=",ExpressionUUID->"0ff42655-fb02-4303-bcfc-1c554cf4c2c2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", " ", "176"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.993799246718399*^9, 3.993799247496731*^9}}, + CellLabel-> + "In[106]:=",ExpressionUUID->"c1edf9c2-0959-4038-9c59-2235a4e4a95d"], + +Cell[BoxData["176"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.993799747300477*^9, 3.993800338871715*^9, + 3.993800385779578*^9, {3.994072756603456*^9, 3.9940727766610518`*^9}}, + CellLabel-> + "Out[106]=",ExpressionUUID->"ed52261d-0652-4713-b1a3-3640de775074"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel-> + "In[107]:=",ExpressionUUID->"c11dba24-3a38-493c-a1dc-4d37283099a6"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.993799747316929*^9, 3.993800338888788*^9, + 3.993800385794606*^9, {3.994072756615819*^9, 3.994072776674831*^9}}, + CellLabel-> + "Out[107]=",ExpressionUUID->"48d8a4c3-79ce-401c-bf8d-324148f87185"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel-> + "In[108]:=",ExpressionUUID->"5cf8258a-2104-453b-8d8b-4f4de287cdca"], + +Cell[BoxData["0.543`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.993799747333138*^9, 3.993800338906427*^9, + 3.993800385809697*^9, {3.994072756628705*^9, 3.994072776688608*^9}}, + CellLabel-> + "Out[108]=",ExpressionUUID->"2db95ea4-4afd-4b51-bfbd-332f611dda79"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel-> + "In[109]:=",ExpressionUUID->"36d77f2d-8ccf-47e2-8bf4-c9a016908a14"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.9937997473490753`*^9, 3.993800338928018*^9, + 3.993800385813496*^9, {3.994072756641103*^9, 3.994072776693177*^9}}, + CellLabel-> + "Out[109]=",ExpressionUUID->"b538a64c-68f7-4226-8e93-d26e9a6c4489"] +}, 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[110]:=",ExpressionUUID->"ccd38b67-1148-4c15-88ad-b124fe24d3f9"], + +Cell[BoxData["6.5007312471204965`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.993799747366351*^9, 3.993800338948053*^9, + 3.993800385835421*^9, {3.994072756653392*^9, 3.994072776710863*^9}}, + CellLabel-> + "Out[110]=",ExpressionUUID->"c8bfd761-1509-4190-80c4-909ca835959b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel-> + "In[111]:=",ExpressionUUID->"09f65c4d-6e9c-4e12-abab-c0adb48f91c6"], + +Cell[BoxData["4.64`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.993799747384128*^9, 3.993800338968402*^9, + 3.993800385850627*^9, {3.9940727566658983`*^9, 3.994072776724451*^9}}, + CellLabel-> + "Out[111]=",ExpressionUUID->"eb11b715-7eab-437a-a754-145682bb7a15"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.7654"}]], "Input", + CellChangeTimes->{ + 3.991799283179735*^9, {3.9937993186432753`*^9, 3.993799326240513*^9}, { + 3.993799364756247*^9, 3.993799370026516*^9}, {3.993799480203456*^9, + 3.993799488443741*^9}}, + CellLabel-> + "In[112]:=",ExpressionUUID->"a15a9985-b284-47d1-94f8-d6c7ae7334e0"], + +Cell[BoxData["0.7654`"], "Output", + CellChangeTimes->{ + 3.9937997474107447`*^9, 3.993800338988703*^9, 3.9938003858649893`*^9, { + 3.994072756678184*^9, 3.994072776737771*^9}}, + CellLabel-> + "Out[112]=",ExpressionUUID->"16be0bb9-e171-491f-80c9-bea8caaaaa6e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.4513"}]], "Input", + CellChangeTimes->{ + 3.991799280663351*^9, {3.993799372069343*^9, 3.993799377027832*^9}}, + CellLabel-> + "In[113]:=",ExpressionUUID->"c76ae353-f510-4258-a8a1-f80d8717e36e"], + +Cell[BoxData["0.4513`"], "Output", + CellChangeTimes->{ + 3.993799747427882*^9, 3.993800339005568*^9, 3.993800385879345*^9, { + 3.9940727566903763`*^9, 3.9940727767497873`*^9}}, + CellLabel-> + "Out[113]=",ExpressionUUID->"f2982ef5-4983-4e6a-8600-892fb8d13ea8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel-> + "In[114]:=",ExpressionUUID->"1203c142-4f76-42e6-b08f-3b16bfc279f7"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.993799747452092*^9, 3.993800339022945*^9, + 3.993800385893304*^9, {3.994072756702078*^9, 3.9940727767611856`*^9}}, + CellLabel-> + "Out[114]=",ExpressionUUID->"49f81da7-99e9-4f1c-9cba-ea1c842b9816"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel-> + "In[115]:=",ExpressionUUID->"48cfdc9b-1a95-4532-b41b-75beb24a094c"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.993799747468101*^9, 3.993800339041868*^9, + 3.9938003859074306`*^9, {3.9940727567134666`*^9, 3.994072776772606*^9}}, + CellLabel-> + "Out[115]=",ExpressionUUID->"9d7bd47b-3f79-453e-afca-b2f4ec238c7e"] +}, 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[116]:=",ExpressionUUID->"180aaab2-4468-4e28-92e8-93d34fc68a80"], + +Cell[BoxData["2.0171665757171935`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.9937997474836817`*^9, 3.9938003390596933`*^9, + 3.993800385921398*^9, {3.994072756725263*^9, 3.994072776784317*^9}}, + CellLabel-> + "Out[116]=",ExpressionUUID->"3db7e763-ea9c-45af-8701-4ed3d1cbd7e6"] +}, 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[117]:=",ExpressionUUID->"665b6da9-7158-4e34-9166-10238b69365d"], + +Cell[BoxData["1.5074639495621045`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.993799747498741*^9, 3.993800339079308*^9, + 3.993800385933773*^9, {3.994072756739362*^9, 3.994072776796445*^9}}, + CellLabel-> + "Out[117]=",ExpressionUUID->"9be2a748-d2ac-413c-b6c5-94bf959364e4"] +}, 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[118]:=",ExpressionUUID->"03b05be2-c9c1-4531-aa89-8beafcec0737"], + +Cell[BoxData["0.5126444245586296`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.993799747513342*^9, 3.993800339097157*^9, + 3.993800385946536*^9, {3.994072756750792*^9, 3.9940727768075857`*^9}}, + CellLabel-> + "Out[118]=",ExpressionUUID->"d708987f-0da2-4a94-aba5-4c3655d71938"] +}, 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[119]:=",ExpressionUUID->"1e56577d-7be0-4db4-a1a7-c97b2ed19508"], + +Cell[BoxData[ + RowBox[{"-", "0.12490541136574432`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.993799747527933*^9, 3.9938003391147947`*^9, + 3.99380038595966*^9, {3.994072756762456*^9, 3.99407277681929*^9}}, + CellLabel-> + "Out[119]=",ExpressionUUID->"62ccb9fd-c81f-451c-a867-4ce499a841bb"] +}, 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[120]:=",ExpressionUUID->"0ef46f2a-a017-4817-b57d-b1ca70a555fe"], + +Cell[BoxData[ + RowBox[{"-", "0.47786808677187637`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.993799747543792*^9, 3.993800339132107*^9, + 3.9938003859736147`*^9, {3.994072756774001*^9, 3.994072776830839*^9}}, + CellLabel-> + "Out[120]=",ExpressionUUID->"26b9e4e6-b447-44db-84e5-c3a7fb5ad07c"] +}, 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[121]:=",ExpressionUUID->"fc9e0805-57ef-440e-9149-773f661f1765"], + +Cell[BoxData["0.6637051934091774`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.993799747559553*^9, 3.993800339136161*^9, + 3.993800385987465*^9, {3.994072756786757*^9, 3.994072776842886*^9}}, + CellLabel-> + "Out[121]=",ExpressionUUID->"084077b2-14ec-43d9-8866-6b9d8b2dbec8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel-> + "In[122]:=",ExpressionUUID->"3532766b-e461-41c2-a4c3-2deac0ca2c8d"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.9937997475753107`*^9, 3.993800339165604*^9, + 3.9938003860010223`*^9, {3.99407275679909*^9, 3.994072776854899*^9}}, + CellLabel-> + "Out[122]=",ExpressionUUID->"cf5be228-eb52-4750-96f6-16bd014c339e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel-> + "In[123]:=",ExpressionUUID->"1de672d4-a854-4e0b-9639-6bb0b383d2a5"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.9937997475908947`*^9, 3.993800339182325*^9, + 3.9938003860157137`*^9, {3.9940727568120337`*^9, 3.994072776866831*^9}}, + CellLabel-> + "Out[123]=",ExpressionUUID->"b04a943d-0adc-4ff3-954b-d0b5df2d1501"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellChangeTimes->{{3.9938002062742653`*^9, 3.993800206278376*^9}, { + 3.99380037453472*^9, 3.993800374695301*^9}}, + CellLabel-> + "In[124]:=",ExpressionUUID->"46aec20a-01d8-4c1d-acd5-090c9972971a"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.993799747607007*^9, 3.993800339199224*^9, + 3.9938003860303698`*^9, {3.994072756823955*^9, 3.994072776878458*^9}}, + CellLabel-> + "Out[124]=",ExpressionUUID->"2c98d28d-baa0-4028-8e96-d8ba44a72638"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel-> + "In[125]:=",ExpressionUUID->"f55dd3d9-76bd-41ca-936e-f304a0902414"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.993799747623555*^9, 3.9938003392162523`*^9, + 3.993800386045208*^9, {3.994072756835642*^9, 3.994072776890398*^9}}, + CellLabel-> + "Out[125]=",ExpressionUUID->"df0bbb86-270c-45e4-9c46-7542236f3dfb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel-> + "In[126]:=",ExpressionUUID->"4fcc235b-6449-42a3-abcd-292d7e7caa03"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.9937997476274233`*^9, 3.993800339233366*^9, + 3.993800386060211*^9, {3.994072756847537*^9, 3.994072776902615*^9}}, + CellLabel-> + "Out[126]=",ExpressionUUID->"c10ecde1-df80-42e2-976a-2edb946a73ab"] +}, 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.993799773981587*^9, {3.993800017055696*^9, 3.993800017126395*^9}}, + CellLabel-> + "In[127]:=",ExpressionUUID->"0707be3a-2591-495e-be90-e0cea4aff250"], + +Cell[BoxData["64"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, 3.993800339250176*^9, 3.993800386074368*^9, { + 3.994072756859651*^9, 3.994072776915943*^9}}, + CellLabel-> + "Out[127]=",ExpressionUUID->"a77ab9e8-a9b9-4ebe-82cc-630a5cea6fb1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"92", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9}, + CellLabel-> + "In[128]:=",ExpressionUUID->"1328e9fc-31b4-4c8e-ad67-4771dee536dc"], + +Cell[BoxData["28"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.993799747743443*^9, 3.993800339268099*^9, + 3.993800386088282*^9, {3.994072756878846*^9, 3.994072776927128*^9}}, + CellLabel-> + "Out[128]=",ExpressionUUID->"968a92b7-1ef8-404a-af70-dda94076bcaa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel-> + "In[129]:=",ExpressionUUID->"25330b40-6368-4419-9853-2ac470e4e95c"], + +Cell[BoxData["64"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.993799747762579*^9, 3.9938003392862883`*^9, + 3.993800386103376*^9, {3.994072756893341*^9, 3.994072776939496*^9}}, + CellLabel-> + "Out[129]=",ExpressionUUID->"d3f05094-5bdc-46ee-a020-80e868fbf3fb"] +}, 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[130]:=",ExpressionUUID->"a257a6be-e927-419d-88da-b3f35bb4a9d0"], + +Cell[BoxData["0.10431818181818181`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.993799747778633*^9, 3.993800339303063*^9, + 3.993800386118601*^9, {3.9940727569059267`*^9, 3.994072776951536*^9}}, + CellLabel-> + "Out[130]=",ExpressionUUID->"eadbb4ff-3c01-481e-9cf9-9023a9b58754"] +}, 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[131]:=",ExpressionUUID->"e361233a-b44d-48d9-80cc-d764e0281054"], + +Cell[BoxData[ + RowBox[{"-", "2.571590909090909`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.993799747795951*^9, 3.993800339319376*^9, + 3.993800386134354*^9, {3.9940727569175262`*^9, 3.994072776962891*^9}}, + CellLabel-> + "Out[131]=",ExpressionUUID->"e7bf4854-be55-435f-8192-71b35b606a61"] +}, 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[132]:=",ExpressionUUID->"c38ee153-3592-49ec-b684-4bf99412ea8b"], + +Cell[BoxData["16.821909430837295`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.993799747812237*^9, 3.993800339336598*^9, + 3.9938003861388483`*^9, {3.994072756929346*^9, 3.994072776974725*^9}}, + CellLabel-> + "Out[132]=",ExpressionUUID->"7c625020-01fe-4e5a-918a-dbe1f765d086"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel-> + "In[133]:=",ExpressionUUID->"13c16bf8-feb4-4c36-9aa4-e64b7fd043b7"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.9937997478307247`*^9, 3.993800339353257*^9, + 3.993800386159964*^9, {3.994072756940832*^9, 3.994072776986273*^9}}, + CellLabel-> + "Out[133]=",ExpressionUUID->"9d41d51e-8bfe-44d1-a28f-802d5f176b6a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "1.25"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { + 3.9937993902853117`*^9, 3.993799392293758*^9}}, + CellLabel-> + "In[134]:=",ExpressionUUID->"d36ad0b3-3a75-48a1-bbc1-2685f4fe15ba"], + +Cell[BoxData["1.25`"], "Output", + CellChangeTimes->{ + 3.9937997478713713`*^9, 3.993800339369935*^9, 3.9938003861811666`*^9, { + 3.9940727569525537`*^9, 3.9940727769978867`*^9}}, + CellLabel-> + "Out[134]=",ExpressionUUID->"197ffe84-0eac-4cc1-ab19-72f57c1a7092"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel-> + "In[135]:=",ExpressionUUID->"1b15c44e-4ab0-4c50-8ce7-4dd8f830fc9c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.85"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.993799395152514*^9, 3.9937993965162697`*^9}}, + CellLabel-> + "In[136]:=",ExpressionUUID->"36d4f68d-a298-44c2-bb49-54d9a4d245cc"], + +Cell[BoxData["0.85`"], "Output", + CellChangeTimes->{ + 3.993799747898118*^9, 3.993800339418215*^9, 3.993800386208997*^9, { + 3.99407275696742*^9, 3.9940727770129023`*^9}}, + CellLabel-> + "Out[136]=",ExpressionUUID->"e5754b6a-4d41-4522-9562-0cf3dc2f3960"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel-> + "In[137]:=",ExpressionUUID->"2f84cfb5-8ad5-4471-9085-6c0102af242b"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "2.3"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.993799398824368*^9, 3.9937994002405863`*^9}}, + CellLabel-> + "In[138]:=",ExpressionUUID->"238223e0-ed8e-42e3-b2f7-106d26b96850"], + +Cell[BoxData["2.3`"], "Output", + CellChangeTimes->{ + 3.993799747923098*^9, 3.993800339511382*^9, 3.993800386234042*^9, { + 3.994072756981262*^9, 3.994072777026493*^9}}, + CellLabel-> + "Out[138]=",ExpressionUUID->"f3cc8ea5-c927-45e4-9270-b49987cc817d"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel-> + "In[139]:=",ExpressionUUID->"9862b35e-f275-4561-b8cc-971e2be23716"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.1"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, {3.993799403099743*^9, 3.9937994038178663`*^9}}, + CellLabel-> + "In[140]:=",ExpressionUUID->"8e2ccf30-ae77-4ebf-9552-85b682a13b89"], + +Cell[BoxData["1.1`"], "Output", + CellChangeTimes->{ + 3.9937997479459248`*^9, 3.99380033956159*^9, 3.9938003862601*^9, { + 3.994072756995009*^9, 3.99407277703996*^9}}, + CellLabel-> + "Out[140]=",ExpressionUUID->"7158ed01-a4e3-4481-a2e0-f029a73025da"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel-> + "In[141]:=",ExpressionUUID->"b7eaffb6-f9e6-4ee7-8f58-e8bf88c1ce14"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "0.8664"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, {3.993799407392029*^9, + 3.993799410650194*^9}}, + CellLabel-> + "In[142]:=",ExpressionUUID->"6244dde3-9605-4f26-99f5-0cdfa79312ef"], + +Cell[BoxData["0.8664`"], "Output", + CellChangeTimes->{ + 3.993799747968698*^9, 3.993800339671721*^9, 3.9938003862845907`*^9, { + 3.994072757008773*^9, 3.994072777054493*^9}}, + CellLabel-> + "Out[142]=",ExpressionUUID->"b241d884-e660-43fc-a5a7-4f84fc459818"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel-> + "In[143]:=",ExpressionUUID->"277deec6-0434-46a4-b267-bb474b1a9e55"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.5924"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.9937994136330442`*^9, + 3.993799417576207*^9}}, + CellLabel-> + "In[144]:=",ExpressionUUID->"f06b791e-98df-4e8c-aaea-be4a1b03420f"], + +Cell[BoxData["0.5924`"], "Output", + CellChangeTimes->{ + 3.993799747991611*^9, 3.9938003397687387`*^9, 3.993800386310059*^9, { + 3.994072757022612*^9, 3.994072777068264*^9}}, + CellLabel-> + "Out[144]=",ExpressionUUID->"c0e1c784-c678-49ae-a632-399662116372"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel-> + "In[145]:=",ExpressionUUID->"3c428497-d831-4fd7-9229-97217b1e1897"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "1.888"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.993799421955809*^9, + 3.993799423886447*^9}}, + CellLabel-> + "In[146]:=",ExpressionUUID->"d97a17ba-0434-453c-b0f8-fef5c0347dfe"], + +Cell[BoxData["1.888`"], "Output", + CellChangeTimes->{ + 3.993799748012844*^9, 3.993800339865109*^9, 3.993800386335606*^9, { + 3.9940727570366488`*^9, 3.9940727770819397`*^9}}, + CellLabel-> + "Out[146]=",ExpressionUUID->"e846e95d-954a-48dc-80ae-91a4eba073e4"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel-> + "In[147]:=",ExpressionUUID->"e323b8e5-b165-42fd-bd1d-f72a0311710a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "0.6347"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, {3.993799431418026*^9, 3.9937994366447783`*^9}}, + CellLabel-> + "In[148]:=",ExpressionUUID->"ef937faa-6526-4c6d-b9fd-abd440b044d7"], + +Cell[BoxData["0.6347`"], "Output", + CellChangeTimes->{ + 3.99379974807285*^9, 3.993800339960155*^9, 3.9938003863606977`*^9, { + 3.99407275705245*^9, 3.994072777095529*^9}}, + CellLabel-> + "Out[148]=",ExpressionUUID->"9491fca3-be3b-4ef5-b141-de4713014317"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel-> + "In[149]:=",ExpressionUUID->"775a1f2a-6613-4b5e-a2b7-9ef32d347ccc"], + +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[150]:=",ExpressionUUID->"33dcf5de-30c1-4086-a032-fdc16d3793ff"], + +Cell[BoxData["0.33523276963055626`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.9937997481547623`*^9, 3.993800340061625*^9, + 3.9938003864136953`*^9, {3.994072757136285*^9, 3.994072777132966*^9}}, + CellLabel-> + "Out[150]=",ExpressionUUID->"554e9553-9a47-4e8e-ae78-f9d896bff6da"] +}, 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[151]:=",ExpressionUUID->"37157007-87f9-433a-934e-afcd7d837681"], + +Cell[BoxData["10.264944924096582`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9937997481878023`*^9, 3.993800340089472*^9, + 3.993800386441668*^9, {3.994072757163142*^9, 3.9940727771627817`*^9}}, + CellLabel-> + "Out[151]=",ExpressionUUID->"f9042548-d4f1-4633-b8fe-325515204124"] +}, 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[152]:=",ExpressionUUID->"cbce29c6-d5f0-4079-b69a-316750619c33"], + +Cell[BoxData[ + RowBox[{"-", "28.42814742925769`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.993799748217864*^9, 3.993800340114811*^9, + 3.993800386467917*^9, {3.99407275718851*^9, 3.994072777190625*^9}}, + CellLabel-> + "Out[152]=",ExpressionUUID->"ec803f19-77a4-451a-a497-3aff1ab4ad81"] +}, 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[153]:=",ExpressionUUID->"5e6efd56-b9fc-4cb9-a2bf-8dbec57046f4"], + +Cell[BoxData[ + RowBox[{"-", "38.363033654277935`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.9937997482559977`*^9, 3.993800340146491*^9, + 3.993800386499661*^9, {3.9940727572190027`*^9, 3.994072777223873*^9}}, + CellLabel-> + "Out[153]=",ExpressionUUID->"f0cd64da-9066-49d7-ad54-3c194a27ca05"] +}, 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[154]:=",ExpressionUUID->"e446c689-203e-44f7-88e0-59b47e73a184"], + +Cell[BoxData[ + RowBox[{"-", "84.97316533656249`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.993799748294525*^9, 3.993800340178175*^9, + 3.9938003865308523`*^9, {3.994072757249708*^9, 3.994072777255313*^9}}, + CellLabel-> + "Out[154]=",ExpressionUUID->"86c0e4c3-e912-44b5-8fb7-e6f6f34c496a"] +}, 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[155]:=",ExpressionUUID->"1fbefbe3-e232-48fa-ae3b-37a17b8f8ea4"], + +Cell[BoxData[ + RowBox[{"-", "228.76196692780508`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.993799748333426*^9, 3.9938003402193203`*^9, + 3.9938003865686073`*^9, {3.9940727572851143`*^9, 3.9940727772935343`*^9}}, + CellLabel-> + "Out[155]=",ExpressionUUID->"645c3cfb-98bd-4e97-8e01-c84d8e183548"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel-> + "In[156]:=",ExpressionUUID->"1ea0b391-7051-41c6-b267-ad38df240b25"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.993799748353148*^9, 3.993800340246324*^9, + 3.993800386583934*^9, {3.99407275729825*^9, 3.994072777306653*^9}}, + CellLabel-> + "Out[156]=",ExpressionUUID->"e2025780-6d30-45a7-859a-1252b5386a47"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel-> + "In[157]:=",ExpressionUUID->"bc0759f8-5808-4896-a886-6130d342c500"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.993799748372961*^9, 3.9938003402680492`*^9, + 3.993800386599262*^9, {3.99407275730969*^9, 3.994072777318306*^9}}, + CellLabel-> + "Out[157]=",ExpressionUUID->"7ca2b40b-2b31-4ab8-b4e1-dff179fa8e08"] +}, 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[158]:=",ExpressionUUID->"2fc25094-c27a-4aea-ba6c-c1a9dd39eb17"], + +Cell[BoxData["185.79450939883742`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.9937997483941936`*^9, 3.9938003402909203`*^9, + 3.99380038661649*^9, {3.9940727573211393`*^9, 3.994072777330056*^9}}, + CellLabel-> + "Out[158]=",ExpressionUUID->"7bd1b904-1357-40b2-953c-9286ed57fce2"] +}, 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[159]:=",ExpressionUUID->"952e94b7-ae20-4a86-b69f-95dc94aca03f"], + +Cell[BoxData[ + RowBox[{"-", "142.60312447586276`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.9937997484173307`*^9, 3.993800340312326*^9, + 3.993800386633136*^9, {3.99407275733285*^9, 3.994072777341887*^9}}, + CellLabel-> + "Out[159]=",ExpressionUUID->"8f00a4d2-9c6f-4248-a658-3f7dad19dcac"] +}, 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[160]:=",ExpressionUUID->"f1116627-b3ef-4e77-b1d2-9cd33c412513"], + +Cell[BoxData["169.9317606773619`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.993799748440692*^9, 3.993800340332926*^9, + 3.99380038664979*^9, {3.994072757344488*^9, 3.994072777353434*^9}}, + CellLabel-> + "Out[160]=",ExpressionUUID->"ffaedbbb-6d60-4892-998a-ea8bb02af8e3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel-> + "In[161]:=",ExpressionUUID->"c0f5426f-7a9c-4959-85bb-7bc993820ff6"], + +Cell[BoxData["0.5126444245586296`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.9937997484629087`*^9, 3.9938003403521013`*^9, + 3.9938003866670628`*^9, {3.994072757355731*^9, 3.994072777364881*^9}}, + CellLabel-> + "Out[161]=",ExpressionUUID->"b3aa29c5-9dbf-42c0-bae0-23c6a9df3e8a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel-> + "In[162]:=",ExpressionUUID->"6fc4fd42-1a69-43a0-9534-52e20defb714"], + +Cell[BoxData[ + RowBox[{"-", "0.12490541136574432`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.9937997484829597`*^9, 3.993800340372787*^9, + 3.993800386684751*^9, {3.994072759775218*^9, 3.994072777376302*^9}}, + CellLabel-> + "Out[162]=",ExpressionUUID->"498cd0ff-6197-4a1c-b7ee-992974ad6dfa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel-> + "In[163]:=",ExpressionUUID->"6d885b64-9c4e-4f98-9fa1-af62a3068ed9"], + +Cell[BoxData[ + RowBox[{"-", "0.47786808677187637`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.993799748505329*^9, 3.9938003403919477`*^9, + 3.9938003866995373`*^9, {3.9940727599543447`*^9, 3.9940727773879633`*^9}}, + CellLabel-> + "Out[163]=",ExpressionUUID->"facae4c2-0f81-4164-a649-a08dd288d0d8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel-> + "In[164]:=",ExpressionUUID->"fd9f54e2-fa04-4a66-914c-d953be1f87db"], + +Cell[BoxData["0.6637051934091774`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.99379974852349*^9, 3.993800340409604*^9, + 3.993800386721094*^9, {3.994072759966642*^9, 3.994072777399509*^9}}, + CellLabel-> + "Out[164]=",ExpressionUUID->"5bbef036-2753-426a-8a81-a4cb4cf2d05d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel-> + "In[165]:=",ExpressionUUID->"ea5c33f4-98dc-43a4-bbd2-08ba8cace152"], + +Cell[BoxData["2.0171665757171935`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.993799748542218*^9, 3.993800340426003*^9, + 3.9938003867354116`*^9, {3.9940727599787703`*^9, 3.9940727774113617`*^9}}, + CellLabel-> + "Out[165]=",ExpressionUUID->"8c5f615a-d20c-4013-9c91-6b386265fe6f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel-> + "In[166]:=",ExpressionUUID->"ca50af90-ab4d-4174-8461-c4aedcc44cca"], + +Cell[BoxData["1.5074639495621045`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.9937997485616417`*^9, 3.99380034044471*^9, + 3.9938003867502003`*^9, {3.9940727599906197`*^9, 3.994072777422779*^9}}, + CellLabel-> + "Out[166]=",ExpressionUUID->"57ed2d89-539c-4aff-b653-59f438fa4d11"] +}, 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[167]:=",ExpressionUUID->"8f0170f3-c84b-4dd3-a038-308f947cfa90"], + +Cell[BoxData[ + RowBox[{"-", "30.893583323663808`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.993799748579701*^9, 3.9938003404617233`*^9, + 3.993800386765017*^9, {3.994072760002514*^9, 3.994072777434401*^9}}, + CellLabel-> + "Out[167]=",ExpressionUUID->"1bc5ea38-4211-467a-bd42-7548ba7918e2"] +}, 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[168]:=",ExpressionUUID->"e62bac68-407c-40d4-a100-927a3414f6a3"], + +Cell[BoxData[ + RowBox[{"-", "7.926031139913374`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.993799748598835*^9, 3.993800340479863*^9, + 3.9938003867807913`*^9, {3.994072760013989*^9, 3.994072777446135*^9}}, + CellLabel-> + "Out[168]=",ExpressionUUID->"2854754e-4887-40ae-958b-faea877e1549"] +}, 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[169]:=",ExpressionUUID->"db672236-3860-410a-9ac6-1ba0968cab8b"], + +Cell[BoxData["154.9009260751736`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.993799748618464*^9, 3.993800340498665*^9, + 3.993800386794903*^9, {3.994072760026211*^9, 3.994072777457891*^9}}, + CellLabel-> + "Out[169]=",ExpressionUUID->"18d21d9f-8f5e-4ca8-bb46-a0b904002054"] +}, 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[170]:=",ExpressionUUID->"b7ab66c3-3a24-4b45-9b4e-c1f45443ebd1"], + +Cell[BoxData[ + RowBox[{"-", "142.60312447586276`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.993799748639475*^9, 3.993800340517002*^9, + 3.993800386808839*^9, {3.9940727600400333`*^9, 3.994072777469482*^9}}, + CellLabel-> + "Out[170]=",ExpressionUUID->"c8c2a64c-1d02-49eb-9d38-24668121b742"] +}, 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[171]:=",ExpressionUUID->"adfe5acb-c44b-4e72-99e7-52a72e1d2c01"], + +Cell[BoxData["162.00572953744853`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.993799748660536*^9, 3.993800340536582*^9, + 3.993800386822714*^9, {3.994072760046308*^9, 3.994072777481387*^9}}, + CellLabel-> + "Out[171]=",ExpressionUUID->"d3c41d97-b455-4c31-9e1f-ebfdf06c97b3"] +}, 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[172]:=",ExpressionUUID->"e546c35a-9feb-4bb0-aae2-578736342716"], + +Cell[BoxData["110.13261932733474`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.993799748682187*^9, 3.9938003405568943`*^9, + 3.993800386836596*^9, {3.994072760058202*^9, 3.994072777493164*^9}}, + CellLabel-> + "Out[172]=",ExpressionUUID->"03f41608-426f-4195-9be8-043baf64bf82"] +}, 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[173]:=",ExpressionUUID->"fb659a8d-2ca5-4096-a57c-86fd22aec0db"], + +Cell[BoxData["1014.9570765717414`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.993799748705882*^9, 3.9938003405772467`*^9, + 3.993800386850522*^9, {3.994072760069648*^9, 3.994072777505143*^9}}, + CellLabel-> + "Out[173]=",ExpressionUUID->"497ac604-6e52-4a5e-9bd2-bde145db5644"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"f1", "=", "0.8175322239"}]], "Input", + CellChangeTimes->{3.9918496921150837`*^9, + 3.9940826242947817`*^9},ExpressionUUID->"ede64bc2-06f7-8743-a0a6-\ 6f058773310c"], Cell[BoxData[""], "Input", @@ -30,9 +4897,9 @@ Cell[BoxData[""], "Input", c82e80965ca9"], Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", - CellChangeTimes->{ - 3.991849690724144*^9},ExpressionUUID->"328429c4-9130-334e-ba7f-\ + RowBox[{"f2", "=", "0.6825411178"}]], "Input", + CellChangeTimes->{3.991849690724144*^9, + 3.9940826304235287`*^9},ExpressionUUID->"328429c4-9130-334e-ba7f-\ 7dc8ec78e5b4"], Cell[BoxData[""], "Input", @@ -1579,8 +6446,8 @@ i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== "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[{ @@ -2580,9 +7447,72 @@ A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", - RowBox[{"{", "}"}], "]"}]}]], "Input", - CellChangeTimes->{{3.991799458254999*^9, - 3.9917994623413925`*^9}},ExpressionUUID->"2d5a8299-5376-9747-8056-\ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.003836"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.01141"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.018699"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.025527"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.031739"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.037207"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.041837"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.045565"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.048367"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.050245"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.051235"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.051395"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.050806"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.049558"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.047756"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.0455"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.042898"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.040047"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.037039"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.033955"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.030869"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.027838"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.024912"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.022128"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.019516"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.017092"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.014869"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.012849"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.011034"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.009415"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.007985"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.994082726121962*^9},ExpressionUUID->"2d5a8299-5376-9747-8056-\ 2bd9764114a1"], Cell[BoxData[ @@ -8753,12 +13683,18 @@ Cell[BoxData["0.14275466609450368`"], "Output", CellChangeTimes->{3.991343787117275*^9}, CellLabel-> "Out[395]=",ExpressionUUID->"188c2681-ea17-924e-adb2-007b19a9ee86"] -}, Open ]] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input", + CellChangeTimes->{{3.9940827488618402`*^9, + 3.994082750958427*^9}},ExpressionUUID->"0f666ac4-b3f5-4ded-99eb-\ +a215694c157c"] }, -WindowSize->{718.5, 729.75}, -WindowMargins->{{17.25, Automatic}, {Automatic, 24}}, +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->"c5c6a337-d1c3-0f45-98d9-a2509510bd89" ] @@ -8773,368 +13709,623 @@ 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, 305, 6, 36, "Input",ExpressionUUID->"fe8f6cf0-b6a8-40e3-a99b-ddc3b879c463"], +Cell[884, 30, 278, 5, 41, "Output",ExpressionUUID->"375d2b5a-bc90-49a8-8335-2375c3c60798"] }, 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[1199, 40, 253, 5, 36, "Input",ExpressionUUID->"e622a70e-4541-4e15-a3f1-c619e3ebd07c"], +Cell[1455, 47, 275, 5, 41, "Output",ExpressionUUID->"0ff42655-fb02-4303-bcfc-1c554cf4c2c2"] }, 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[1767, 57, 231, 5, 36, "Input",ExpressionUUID->"c1edf9c2-0959-4038-9c59-2235a4e4a95d"], +Cell[2001, 64, 278, 5, 41, "Output",ExpressionUUID->"ed52261d-0652-4713-b1a3-3640de775074"] }, 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[2316, 74, 180, 4, 55, "Input",ExpressionUUID->"c11dba24-3a38-493c-a1dc-4d37283099a6"], +Cell[2499, 80, 276, 5, 62, "Output",ExpressionUUID->"48d8a4c3-79ce-401c-bf8d-324148f87185"] }, 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[2812, 90, 262, 8, 81, "Input",ExpressionUUID->"5cf8258a-2104-453b-8d8b-4f4de287cdca"], +Cell[3077, 100, 279, 5, 62, "Output",ExpressionUUID->"2db95ea4-4afd-4b51-bfbd-332f611dda79"] }, 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[3393, 110, 136, 3, 55, "Input",ExpressionUUID->"36d77f2d-8ccf-47e2-8bf4-c9a016908a14"], +Cell[3532, 115, 280, 5, 62, "Output",ExpressionUUID->"b538a64c-68f7-4226-8e93-d26e9a6c4489"] }, 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[3849, 125, 281, 7, 55, "Input",ExpressionUUID->"ccd38b67-1148-4c15-88ad-b124fe24d3f9"], +Cell[4133, 134, 292, 5, 62, "Output",ExpressionUUID->"c8bfd761-1509-4190-80c4-909ca835959b"] }, 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[4462, 144, 262, 8, 55, "Input",ExpressionUUID->"09f65c4d-6e9c-4e12-abab-c0adb48f91c6"], +Cell[4727, 154, 280, 5, 62, "Output",ExpressionUUID->"eb11b715-7eab-437a-a754-145682bb7a15"] }, 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[5044, 164, 331, 7, 55, "Input",ExpressionUUID->"a15a9985-b284-47d1-94f8-d6c7ae7334e0"], +Cell[5378, 173, 260, 5, 62, "Output",ExpressionUUID->"16be0bb9-e171-491f-80c9-bea8caaaaa6e"] }, 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[5675, 183, 229, 5, 55, "Input",ExpressionUUID->"c76ae353-f510-4258-a8a1-f80d8717e36e"], +Cell[5907, 190, 260, 5, 62, "Output",ExpressionUUID->"f2982ef5-4983-4e6a-8600-892fb8d13ea8"] }, 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[6204, 200, 133, 3, 55, "Input",ExpressionUUID->"1203c142-4f76-42e6-b08f-3b16bfc279f7"], +Cell[6340, 205, 276, 5, 62, "Output",ExpressionUUID->"49f81da7-99e9-4f1c-9cba-ea1c842b9816"] }, 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[6653, 215, 133, 3, 55, "Input",ExpressionUUID->"48cfdc9b-1a95-4532-b41b-75beb24a094c"], +Cell[6789, 220, 278, 5, 62, "Output",ExpressionUUID->"9d7bd47b-3f79-453e-afca-b2f4ec238c7e"] }, 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[7104, 230, 561, 20, 148, "Input",ExpressionUUID->"180aaab2-4468-4e28-92e8-93d34fc68a80"], +Cell[7668, 252, 296, 5, 62, "Output",ExpressionUUID->"3db7e763-ea9c-45af-8701-4ed3d1cbd7e6"] }, 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[8001, 262, 561, 20, 148, "Input",ExpressionUUID->"665b6da9-7158-4e34-9166-10238b69365d"], +Cell[8565, 284, 292, 5, 62, "Output",ExpressionUUID->"9be2a748-d2ac-413c-b6c5-94bf959364e4"] }, 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[8894, 294, 1592, 51, 211, "Input",ExpressionUUID->"03b05be2-c9c1-4531-aa89-8beafcec0737"], +Cell[10489, 347, 292, 5, 62, "Output",ExpressionUUID->"d708987f-0da2-4a94-aba5-4c3655d71938"] }, 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[10818, 357, 1426, 47, 211, "Input",ExpressionUUID->"1e56577d-7be0-4db4-a1a7-c97b2ed19508"], +Cell[12247, 406, 308, 6, 62, "Output",ExpressionUUID->"62ccb9fd-c81f-451c-a867-4ce499a841bb"] }, 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[12592, 417, 1426, 47, 211, "Input",ExpressionUUID->"0ef46f2a-a017-4817-b57d-b1ca70a555fe"], +Cell[14021, 466, 312, 6, 62, "Output",ExpressionUUID->"26b9e4e6-b447-44db-84e5-c3a7fb5ad07c"] }, 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[14370, 477, 1592, 51, 211, "Input",ExpressionUUID->"fc9e0805-57ef-440e-9149-773f661f1765"], +Cell[15965, 530, 288, 5, 62, "Output",ExpressionUUID->"084077b2-14ec-43d9-8866-6b9d8b2dbec8"] }, 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[16290, 540, 135, 3, 55, "Input",ExpressionUUID->"3532766b-e461-41c2-a4c3-2deac0ca2c8d"], +Cell[16428, 545, 277, 5, 62, "Output",ExpressionUUID->"cf5be228-eb52-4750-96f6-16bd014c339e"] }, 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[16742, 555, 137, 3, 55, "Input",ExpressionUUID->"1de672d4-a854-4e0b-9639-6bb0b383d2a5"], +Cell[16882, 560, 282, 5, 62, "Output",ExpressionUUID->"b04a943d-0adc-4ff3-954b-d0b5df2d1501"] }, 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[17201, 570, 254, 5, 55, "Input",ExpressionUUID->"46aec20a-01d8-4c1d-acd5-090c9972971a"], +Cell[17458, 577, 280, 5, 62, "Output",ExpressionUUID->"2c98d28d-baa0-4028-8e96-d8ba44a72638"] }, 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[17775, 587, 223, 5, 55, "Input",ExpressionUUID->"f55dd3d9-76bd-41ca-936e-f304a0902414"], +Cell[18001, 594, 293, 6, 62, "Output",ExpressionUUID->"df0bbb86-270c-45e4-9c46-7542236f3dfb"] }, 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[18331, 605, 138, 3, 55, "Input",ExpressionUUID->"4fcc235b-6449-42a3-abcd-292d7e7caa03"], +Cell[18472, 610, 280, 5, 62, "Output",ExpressionUUID->"c10ecde1-df80-42e2-976a-2edb946a73ab"] }, 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[18789, 620, 353, 6, 55, "Input",ExpressionUUID->"0707be3a-2591-495e-be90-e0cea4aff250"], +Cell[19145, 628, 253, 5, 62, "Output",ExpressionUUID->"a77ab9e8-a9b9-4ebe-82cc-630a5cea6fb1"] }, 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[19435, 638, 254, 6, 55, "Input",ExpressionUUID->"1328e9fc-31b4-4c8e-ad67-4771dee536dc"], +Cell[19692, 646, 275, 5, 62, "Output",ExpressionUUID->"968a92b7-1ef8-404a-af70-dda94076bcaa"] }, 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[20004, 656, 223, 5, 55, "Input",ExpressionUUID->"25330b40-6368-4419-9853-2ac470e4e95c"], +Cell[20230, 663, 275, 5, 62, "Output",ExpressionUUID->"d3f05094-5bdc-46ee-a020-80e868fbf3fb"] }, 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[20542, 673, 354, 11, 81, "Input",ExpressionUUID->"a257a6be-e927-419d-88da-b3f35bb4a9d0"], +Cell[20899, 686, 295, 5, 62, "Output",ExpressionUUID->"eadbb4ff-3c01-481e-9cf9-9023a9b58754"] }, 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[21231, 696, 354, 11, 81, "Input",ExpressionUUID->"e361233a-b44d-48d9-80cc-d764e0281054"], +Cell[21588, 709, 310, 6, 62, "Output",ExpressionUUID->"e7bf4854-be55-435f-8192-71b35b606a61"] }, 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[21935, 720, 998, 27, 154, "Input",ExpressionUUID->"c38ee153-3592-49ec-b684-4bf99412ea8b"], +Cell[22936, 749, 294, 5, 62, "Output",ExpressionUUID->"7c625020-01fe-4e5a-918a-dbe1f765d086"] }, 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[23267, 759, 203, 4, 55, "Input",ExpressionUUID->"13c16bf8-feb4-4c36-9aa4-e64b7fd043b7"], +Cell[23473, 765, 276, 5, 62, "Output",ExpressionUUID->"9d41d51e-8bfe-44d1-a28f-802d5f176b6a"] }, 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[23786, 775, 332, 6, 55, "Input",ExpressionUUID->"d36ad0b3-3a75-48a1-bbc1-2685f4fe15ba"], +Cell[24121, 783, 262, 5, 62, "Output",ExpressionUUID->"197ffe84-0eac-4cc1-ab19-72f57c1a7092"] +}, Open ]], +Cell[24398, 791, 177, 3, 55, "Input",ExpressionUUID->"1b15c44e-4ab0-4c50-8ce7-4dd8f830fc9c"], +Cell[CellGroupData[{ +Cell[24600, 798, 332, 6, 55, "Input",ExpressionUUID->"36d4f68d-a298-44c2-bb49-54d9a4d245cc"], +Cell[24935, 806, 255, 5, 62, "Output",ExpressionUUID->"e5754b6a-4d41-4522-9562-0cf3dc2f3960"] +}, Open ]], +Cell[25205, 814, 177, 3, 55, "Input",ExpressionUUID->"2f84cfb5-8ad5-4471-9085-6c0102af242b"], +Cell[CellGroupData[{ +Cell[25407, 821, 332, 6, 55, "Input",ExpressionUUID->"238223e0-ed8e-42e3-b2f7-106d26b96850"], +Cell[25742, 829, 253, 5, 62, "Output",ExpressionUUID->"f3cc8ea5-c927-45e4-9270-b49987cc817d"] +}, Open ]], +Cell[26010, 837, 177, 3, 55, "Input",ExpressionUUID->"9862b35e-f275-4561-b8cc-971e2be23716"], +Cell[CellGroupData[{ +Cell[26212, 844, 356, 6, 55, "Input",ExpressionUUID->"8e2ccf30-ae77-4ebf-9552-85b682a13b89"], +Cell[26571, 852, 251, 5, 62, "Output",ExpressionUUID->"7158ed01-a4e3-4481-a2e0-f029a73025da"] +}, Open ]], +Cell[26837, 860, 175, 3, 55, "Input",ExpressionUUID->"b7eaffb6-f9e6-4ee7-8f58-e8bf88c1ce14"], +Cell[CellGroupData[{ +Cell[27037, 867, 304, 6, 55, "Input",ExpressionUUID->"6244dde3-9605-4f26-99f5-0cdfa79312ef"], +Cell[27344, 875, 258, 5, 62, "Output",ExpressionUUID->"b241d884-e660-43fc-a5a7-4f84fc459818"] +}, Open ]], +Cell[27617, 883, 175, 3, 55, "Input",ExpressionUUID->"277deec6-0434-46a4-b267-bb474b1a9e55"], +Cell[CellGroupData[{ +Cell[27817, 890, 310, 6, 55, "Input",ExpressionUUID->"f06b791e-98df-4e8c-aaea-be4a1b03420f"], +Cell[28130, 898, 258, 5, 62, "Output",ExpressionUUID->"c0e1c784-c678-49ae-a632-399662116372"] +}, Open ]], +Cell[28403, 906, 177, 3, 55, "Input",ExpressionUUID->"3c428497-d831-4fd7-9229-97217b1e1897"], +Cell[CellGroupData[{ +Cell[28605, 913, 310, 6, 55, "Input",ExpressionUUID->"d97a17ba-0434-453c-b0f8-fef5c0347dfe"], +Cell[28918, 921, 259, 5, 62, "Output",ExpressionUUID->"e846e95d-954a-48dc-80ae-91a4eba073e4"] +}, Open ]], +Cell[29192, 929, 176, 3, 55, "Input",ExpressionUUID->"e323b8e5-b165-42fd-bd1d-f72a0311710a"], +Cell[CellGroupData[{ +Cell[29393, 936, 282, 5, 55, "Input",ExpressionUUID->"ef937faa-6526-4c6d-b9fd-abd440b044d7"], +Cell[29678, 943, 256, 5, 62, "Output",ExpressionUUID->"9491fca3-be3b-4ef5-b141-de4713014317"] +}, Open ]], +Cell[29949, 951, 179, 3, 55, "Input",ExpressionUUID->"775a1f2a-6613-4b5e-a2b7-9ef32d347ccc"], +Cell[CellGroupData[{ +Cell[30153, 958, 19813, 486, 3214, "Input",ExpressionUUID->"33dcf5de-30c1-4086-a032-fdc16d3793ff"], +Cell[49969, 1446, 295, 5, 62, "Output",ExpressionUUID->"554e9553-9a47-4e8e-ae78-f9d896bff6da"] }, 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[50301, 1456, 19752, 490, 3214, "Input",ExpressionUUID->"37157007-87f9-433a-934e-afcd7d837681"], +Cell[70056, 1948, 294, 5, 62, "Output",ExpressionUUID->"f9042548-d4f1-4633-b8fe-325515204124"] }, 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[70387, 1958, 19752, 484, 3213, "Input",ExpressionUUID->"cbce29c6-d5f0-4079-b69a-316750619c33"], +Cell[90142, 2444, 305, 6, 62, "Output",ExpressionUUID->"ec803f19-77a4-451a-a497-3aff1ab4ad81"] }, 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[90484, 2455, 22538, 554, 3639, "Input",ExpressionUUID->"5e6efd56-b9fc-4cb9-a2bf-8dbec57046f4"], +Cell[113025, 3011, 311, 6, 62, "Output",ExpressionUUID->"f0cd64da-9066-49d7-ad54-3c194a27ca05"] }, 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[113373, 3022, 22539, 554, 3639, "Input",ExpressionUUID->"e446c689-203e-44f7-88e0-59b47e73a184"], +Cell[135915, 3578, 310, 6, 62, "Output",ExpressionUUID->"86c0e4c3-e912-44b5-8fb7-e6f6f34c496a"] }, 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[136262, 3589, 25495, 627, 4065, "Input",ExpressionUUID->"1fbefbe3-e232-48fa-ae3b-37a17b8f8ea4"], +Cell[161760, 4218, 315, 6, 62, "Output",ExpressionUUID->"645c3cfb-98bd-4e97-8e01-c84d8e183548"] }, 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[162112, 4229, 134, 3, 55, "Input",ExpressionUUID->"1ea0b391-7051-41c6-b267-ad38df240b25"], +Cell[162249, 4234, 273, 5, 62, "Output",ExpressionUUID->"e2025780-6d30-45a7-859a-1252b5386a47"] }, 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[162559, 4244, 134, 3, 55, "Input",ExpressionUUID->"bc0759f8-5808-4896-a886-6130d342c500"], +Cell[162696, 4249, 275, 5, 62, "Output",ExpressionUUID->"7ca2b40b-2b31-4ab8-b4e1-dff179fa8e08"] }, 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[163008, 4259, 1148, 40, 211, "Input",ExpressionUUID->"2fc25094-c27a-4aea-ba6c-c1a9dd39eb17"], +Cell[164159, 4301, 295, 5, 62, "Output",ExpressionUUID->"7bd1b904-1357-40b2-953c-9286ed57fce2"] }, 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[164491, 4311, 1045, 36, 211, "Input",ExpressionUUID->"952e94b7-ae20-4a86-b69f-95dc94aca03f"], +Cell[165539, 4349, 308, 6, 62, "Output",ExpressionUUID->"8f00a4d2-9c6f-4248-a658-3f7dad19dcac"] }, 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[165884, 4360, 1148, 40, 211, "Input",ExpressionUUID->"f1116627-b3ef-4e77-b1d2-9cd33c412513"], +Cell[167035, 4402, 290, 5, 62, "Output",ExpressionUUID->"ffaedbbb-6d60-4892-998a-ea8bb02af8e3"] }, 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[167362, 4412, 112, 2, 55, "Input",ExpressionUUID->"c0f5426f-7a9c-4959-85bb-7bc993820ff6"], +Cell[167477, 4416, 298, 5, 62, "Output",ExpressionUUID->"b3aa29c5-9dbf-42c0-bae0-23c6a9df3e8a"] }, 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[167812, 4426, 112, 2, 55, "Input",ExpressionUUID->"6fc4fd42-1a69-43a0-9534-52e20defb714"], +Cell[167927, 4430, 312, 6, 62, "Output",ExpressionUUID->"498cd0ff-6197-4a1c-b7ee-992974ad6dfa"] }, 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[168276, 4441, 112, 2, 55, "Input",ExpressionUUID->"6d885b64-9c4e-4f98-9fa1-af62a3068ed9"], +Cell[168391, 4445, 316, 6, 62, "Output",ExpressionUUID->"facae4c2-0f81-4164-a649-a08dd288d0d8"] }, 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[168744, 4456, 112, 2, 55, "Input",ExpressionUUID->"fd9f54e2-fa04-4a66-914c-d953be1f87db"], +Cell[168859, 4460, 289, 5, 62, "Output",ExpressionUUID->"5bbef036-2753-426a-8a81-a4cb4cf2d05d"] }, 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[169185, 4470, 111, 2, 55, "Input",ExpressionUUID->"ea5c33f4-98dc-43a4-bbd2-08ba8cace152"], +Cell[169299, 4474, 298, 5, 62, "Output",ExpressionUUID->"8c5f615a-d20c-4013-9c91-6b386265fe6f"] }, 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[169634, 4484, 111, 2, 55, "Input",ExpressionUUID->"ca50af90-ab4d-4174-8461-c4aedcc44cca"], +Cell[169748, 4488, 297, 5, 62, "Output",ExpressionUUID->"57ed2d89-539c-4aff-b653-59f438fa4d11"] }, 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[170082, 4498, 501, 17, 105, "Input",ExpressionUUID->"8f0170f3-c84b-4dd3-a038-308f947cfa90"], +Cell[170586, 4517, 311, 6, 62, "Output",ExpressionUUID->"1bc5ea38-4211-467a-bd42-7548ba7918e2"] }, 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[170934, 4528, 501, 17, 105, "Input",ExpressionUUID->"e62bac68-407c-40d4-a100-927a3414f6a3"], +Cell[171438, 4547, 308, 6, 62, "Output",ExpressionUUID->"2854754e-4887-40ae-958b-faea877e1549"] }, 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[171783, 4558, 1792, 61, 358, "Input",ExpressionUUID->"db672236-3860-410a-9ac6-1ba0968cab8b"], +Cell[173578, 4621, 291, 5, 62, "Output",ExpressionUUID->"18d21d9f-8f5e-4ca8-bb46-a0b904002054"] }, 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[173906, 4631, 1105, 37, 256, "Input",ExpressionUUID->"b7ab66c3-3a24-4b45-9b4e-c1f45443ebd1"], +Cell[175014, 4670, 311, 6, 62, "Output",ExpressionUUID->"c8c2a64c-1d02-49eb-9d38-24668121b742"] }, 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[175362, 4681, 1822, 62, 313, "Input",ExpressionUUID->"adfe5acb-c44b-4e72-99e7-52a72e1d2c01"], +Cell[177187, 4745, 290, 5, 62, "Output",ExpressionUUID->"d3c41d97-b455-4c31-9e1f-ebfdf06c97b3"] }, 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[177514, 4755, 1714, 56, 260, "Input",ExpressionUUID->"e546c35a-9feb-4bb0-aae2-578736342716"], +Cell[179231, 4813, 294, 5, 62, "Output",ExpressionUUID->"03f41608-426f-4195-9be8-043baf64bf82"] }, 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[179562, 4823, 1635, 54, 208, "Input",ExpressionUUID->"fb659a8d-2ca5-4096-a57c-86fd22aec0db"], +Cell[181200, 4879, 292, 5, 41, "Output",ExpressionUUID->"497ac604-6e52-4a5e-9bd2-bde145db5644"] +}, Open ]], +Cell[181507, 4887, 189, 4, 36, "Input",ExpressionUUID->"ede64bc2-06f7-8743-a0a6-6f058773310c"], +Cell[181699, 4893, 156, 3, 36, "Input",ExpressionUUID->"9eb3c45a-b33b-a74e-8fe0-c82e80965ca9"], +Cell[181858, 4898, 187, 4, 36, "Input",ExpressionUUID->"328429c4-9130-334e-ba7f-7dc8ec78e5b4"], +Cell[182048, 4904, 152, 3, 36, "Input",ExpressionUUID->"b3364ab6-86a4-7a46-ae33-623392314869"], +Cell[CellGroupData[{ +Cell[182225, 4911, 1301, 43, 174, "Input",ExpressionUUID->"789c64dd-6722-a64c-864a-7fd89b074ad2"], +Cell[183529, 4956, 176, 3, 41, "Output",ExpressionUUID->"b2b0fbe6-496d-0b4b-a132-3f215e541d44"] }, 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"] -}, Open ]], -Cell[338016, 8238, 209, 5, 70, "Input",ExpressionUUID->"b530b35f-2a32-0145-82a7-25a7a01bdd8f"], -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[183742, 4964, 908, 31, 128, "Input",ExpressionUUID->"35e76fc7-2f05-694a-b379-67189aa511ad"], +Cell[184653, 4997, 175, 3, 41, "Output",ExpressionUUID->"cead89a0-592d-3b44-ae8b-df81fa845f91"] }, 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[184865, 5005, 887, 30, 128, "Input",ExpressionUUID->"a10e19cd-f567-6b4d-a841-5f01117db38b"], +Cell[185755, 5037, 177, 3, 41, "Output",ExpressionUUID->"cd23137f-b6ad-354d-a690-15ff879bfb9c"] }, 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[185969, 5045, 558, 19, 66, "Input",ExpressionUUID->"289c2a6f-fa01-2645-80ce-1661c17fd90c"], +Cell[186530, 5066, 172, 3, 41, "Output",ExpressionUUID->"85da9012-bc80-5149-8545-ead2f85c5a34"] }, 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[186739, 5074, 651, 22, 66, "Input",ExpressionUUID->"399520f6-f2e9-6f4a-a02c-50158b624262"], +Cell[187393, 5098, 170, 3, 41, "Output",ExpressionUUID->"86664631-6f8b-d148-8f17-b13cb8a9a5fa"] }, 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[187600, 5106, 170, 5, 71, "Input",ExpressionUUID->"7ee61184-68bc-584d-8849-9a0186a8f35d"], +Cell[187773, 5113, 173, 3, 41, "Output",ExpressionUUID->"77c43b01-85eb-fd46-b71d-1d444bf52ef5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187983, 5121, 170, 5, 69, "Input",ExpressionUUID->"0ec92d80-8d9e-2746-9b01-4edb32bf4eac"], +Cell[188156, 5128, 169, 3, 41, "Output",ExpressionUUID->"aacafa1c-cf55-8c4f-8232-23de80eb25b7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188362, 5136, 181, 5, 55, "Input",ExpressionUUID->"8c869977-4b92-8745-b065-cb6318fdcdb7"], +Cell[188546, 5143, 173, 3, 41, "Output",ExpressionUUID->"de93d189-ac68-c842-aeb5-e64b23581b7c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188756, 5151, 181, 5, 55, "Input",ExpressionUUID->"e2c1a337-e3c1-be4c-aa33-ae15497f38bc"], +Cell[188940, 5158, 170, 3, 41, "Output",ExpressionUUID->"73700a90-df80-2f44-9e2f-d43da4980146"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189147, 5166, 6055, 185, 831, "Input",ExpressionUUID->"abbe4489-628a-134f-b142-f0e18f19d6f9"], +Cell[195205, 5353, 174, 3, 41, "Output",ExpressionUUID->"cebf7c0c-e117-6441-a465-087c93e87be5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195416, 5361, 368, 9, 53, "Input",ExpressionUUID->"9e4d84a7-8664-a749-b8b4-3df6645764a5"], +Cell[195787, 5372, 170, 3, 41, "Output",ExpressionUUID->"53acb857-d475-4b46-bdab-d2addcedb13c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195994, 5380, 6122, 187, 900, "Input",ExpressionUUID->"29cc8bdf-8683-214b-bd33-b4d8b4da1114"], +Cell[202119, 5569, 174, 3, 41, "Output",ExpressionUUID->"9962c954-af09-2844-91ec-70eb43451868"] +}, Open ]], +Cell[CellGroupData[{ +Cell[202330, 5577, 368, 9, 53, "Input",ExpressionUUID->"2190c129-8a98-bf45-873d-af8f8d048936"], +Cell[202701, 5588, 170, 3, 41, "Output",ExpressionUUID->"1f5b5c64-ee33-0943-822d-b5e2806576ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[202908, 5596, 2663, 88, 435, "Input",ExpressionUUID->"972f1c0f-a59f-2847-8b2b-bd88c5077325"], +Cell[205574, 5686, 171, 3, 41, "Output",ExpressionUUID->"a3bdb7fa-0a90-d14f-81e9-757139920dcb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[205782, 5694, 2603, 85, 435, "Input",ExpressionUUID->"c06a7373-f345-6147-b882-1c88bef9608a"], +Cell[208388, 5781, 171, 3, 41, "Output",ExpressionUUID->"1b098546-b8b7-b741-b993-7512b0787277"] +}, Open ]], +Cell[CellGroupData[{ +Cell[208596, 5789, 3712, 118, 575, "Input",ExpressionUUID->"82838793-cf71-8049-a4ac-b01daf51205b"], +Cell[212311, 5909, 171, 3, 41, "Output",ExpressionUUID->"d3b57aaa-e0b1-cb4b-b411-ab6c214b3d77"] +}, Open ]], +Cell[212497, 5915, 138, 3, 36, "Input",ExpressionUUID->"0055f95b-c532-e24d-bdc4-544ea2d2fbd9"], +Cell[CellGroupData[{ +Cell[212660, 5922, 2054, 59, 276, "Input",ExpressionUUID->"574b810b-aa4a-d545-b080-c44fbe83a713"], +Cell[214717, 5983, 566, 12, 98, "Message",ExpressionUUID->"56fc0528-7ab2-a142-bc04-9f31af965213"], +Cell[215286, 5997, 569, 12, 98, "Message",ExpressionUUID->"523f0cae-d948-764c-a560-b9272d5e2d53"], +Cell[215858, 6011, 570, 12, 98, "Message",ExpressionUUID->"0a6922e0-d70a-8f48-87c3-f1e8776a3316"], +Cell[216431, 6025, 458, 10, 32, "Message",ExpressionUUID->"777b8d50-cc35-c140-9ef3-025284fd7e68"], +Cell[216892, 6037, 172, 3, 41, "Output",ExpressionUUID->"bbad1871-e996-ef4b-8dc6-3a39d5c410ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[217101, 6045, 2052, 59, 276, "Input",ExpressionUUID->"3d7dd6a2-2692-2b4d-8922-656c90598e75"], +Cell[219156, 6106, 564, 12, 98, "Message",ExpressionUUID->"e613a9b2-edeb-4743-aa3f-3db45e0849dd"], +Cell[219723, 6120, 567, 12, 98, "Message",ExpressionUUID->"d082687e-fa98-c642-8741-e0aeeee8492c"], +Cell[220293, 6134, 570, 12, 98, "Message",ExpressionUUID->"1cb847b5-98cf-0a42-bcd2-893a3a64388b"], +Cell[220866, 6148, 455, 10, 32, "Message",ExpressionUUID->"0d526236-fa4c-334c-9891-0cc458f43fbe"], +Cell[221324, 6160, 169, 3, 41, "Output",ExpressionUUID->"a61472f3-b6b3-5d40-8ec5-35b87df5c824"] +}, Open ]], +Cell[CellGroupData[{ +Cell[221530, 6168, 1936, 53, 232, "Input",ExpressionUUID->"9c540ba7-8bb4-ef46-919c-62296271f174"], +Cell[223469, 6223, 19994, 375, 295, "Output",ExpressionUUID->"84263d17-cde8-2246-a26d-50fe65f34979"] +}, Open ]], +Cell[CellGroupData[{ +Cell[243500, 6603, 2092, 60, 311, "Input",ExpressionUUID->"6e33cb28-ef1e-1547-b52d-2171e7786920"], +Cell[245595, 6665, 501, 11, 71, "Message",ExpressionUUID->"53d31480-3c5e-ef4a-987b-a232cf0b03f3"], +Cell[246099, 6678, 503, 11, 71, "Message",ExpressionUUID->"b7d94271-16f1-6346-b579-21279019eafb"], +Cell[246605, 6691, 506, 11, 71, "Message",ExpressionUUID->"bfaea4b0-a812-1847-9911-9291b70d2c8f"], +Cell[247114, 6704, 456, 10, 32, "Message",ExpressionUUID->"07354318-4dcc-6049-94e1-9227bd3406fc"], +Cell[247573, 6716, 41581, 727, 292, "Output",ExpressionUUID->"4fedf89c-a1d1-0f4a-bf53-44f2e928d059"] +}, Open ]], +Cell[289169, 7446, 2453, 69, 296, "Input",ExpressionUUID->"2d5a8299-5376-9747-8056-2bd9764114a1"], +Cell[291625, 7517, 209, 5, 36, "Input",ExpressionUUID->"d5fa6d0d-0ad8-f845-b7df-0ac982b58a3a"], +Cell[CellGroupData[{ +Cell[291859, 7526, 217, 7, 61, "Input",ExpressionUUID->"650e43f8-1352-de46-8137-52adca93b0cf"], +Cell[292079, 7535, 170, 3, 41, "Output",ExpressionUUID->"ced270d8-1772-ff41-a012-a661d8496312"] +}, Open ]], +Cell[CellGroupData[{ +Cell[292286, 7543, 1814, 53, 311, "Input",ExpressionUUID->"9ad75b45-8f6d-114b-80bd-d2b12a49fd20"], +Cell[294103, 7598, 506, 11, 71, "Message",ExpressionUUID->"82d24bea-da89-924f-8c72-34dd3938ca31"], +Cell[294612, 7611, 512, 11, 71, "Message",ExpressionUUID->"dec01940-92d8-ec46-9a19-7eeb83f307cb"], +Cell[295127, 7624, 509, 11, 71, "Message",ExpressionUUID->"b8576457-d231-bd44-9899-a0c0bb16b9e8"], +Cell[295639, 7637, 456, 10, 32, "Message",ExpressionUUID->"8bc3094a-336c-7a48-a7ed-1449be3156c0"], +Cell[296098, 7649, 22336, 412, 290, "Output",ExpressionUUID->"8cd361e0-0597-af48-9664-8ef179548a96"] +}, Open ]], +Cell[CellGroupData[{ +Cell[318471, 8066, 1616, 48, 132, "Input",ExpressionUUID->"94eefac7-0bb7-7249-8430-0b2ddd6df117"], +Cell[320090, 8116, 584, 12, 118, "Message",ExpressionUUID->"6b02dcd6-679e-e045-823b-19e8112735bb"], +Cell[320677, 8130, 588, 12, 118, "Message",ExpressionUUID->"1777b2e8-4814-3b40-9d26-e365522e2fa7"], +Cell[321268, 8144, 591, 12, 118, "Message",ExpressionUUID->"343e800a-6390-7b48-892a-7785bb4151c8"], +Cell[321862, 8158, 456, 10, 32, "Message",ExpressionUUID->"30a8c837-a97a-f04a-b90a-1e6b32a15ee9"], +Cell[322321, 8170, 173, 3, 41, "Output",ExpressionUUID->"ae05a7c3-f5d6-d640-8f8e-efe8f63ceb63"] +}, Open ]], +Cell[CellGroupData[{ +Cell[322531, 8178, 2274, 65, 348, "Input",ExpressionUUID->"1d118f77-7d68-dd41-b0af-09454f88e7f1"], +Cell[324808, 8245, 566, 12, 98, "Message",ExpressionUUID->"089dc3ff-480d-db4f-bbed-05630517df59"], +Cell[325377, 8259, 569, 12, 98, "Message",ExpressionUUID->"6e93a9b9-9460-8649-881d-48f37a709a1b"], +Cell[325949, 8273, 572, 12, 98, "Message",ExpressionUUID->"1ee8858a-971e-d34f-bafe-57ab88be1238"], +Cell[326524, 8287, 458, 10, 32, "Message",ExpressionUUID->"96f8e027-4313-4f4f-a21d-2291fe960276"], +Cell[326985, 8299, 171, 3, 41, "Output",ExpressionUUID->"53e3f7cd-1b3e-7343-931d-6e137013b0b0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[327193, 8307, 2221, 64, 348, "Input",ExpressionUUID->"c8039063-5f4d-134a-b6ba-e19335f7a9f6"], +Cell[329417, 8373, 564, 12, 109, "Message",ExpressionUUID->"2abeeb06-100d-8a4f-bcb1-ddb8c833ff54"], +Cell[329984, 8387, 567, 12, 109, "Message",ExpressionUUID->"7e411bd4-b3ce-e244-9ce0-8d1f78e8cd14"], +Cell[330554, 8401, 570, 12, 98, "Message",ExpressionUUID->"1eef1d19-4a0f-cd45-ac5f-c8b603cf3443"], +Cell[331127, 8415, 456, 10, 32, "Message",ExpressionUUID->"6022a732-4a2e-1544-a8b7-891b74c71e8b"], +Cell[331586, 8427, 173, 3, 41, "Output",ExpressionUUID->"3c53d31a-b5c8-d04c-a31f-fccb4feaa955"] +}, Open ]], +Cell[CellGroupData[{ +Cell[331796, 8435, 2223, 64, 348, "Input",ExpressionUUID->"a474307a-af78-3040-90ec-fb8d284b16bb"], +Cell[334022, 8501, 566, 12, 98, "Message",ExpressionUUID->"419d88aa-08de-a042-b43b-49810fba72bb"], +Cell[334591, 8515, 569, 12, 98, "Message",ExpressionUUID->"4a9a6268-a319-d748-9834-40ccb49d2b51"], +Cell[335163, 8529, 570, 12, 98, "Message",ExpressionUUID->"575d1045-9e4b-4643-b969-4ea2653f65d7"], +Cell[335736, 8543, 458, 10, 32, "Message",ExpressionUUID->"0c807644-74de-9c49-acac-c7123cbacadc"], +Cell[336197, 8555, 170, 3, 41, "Output",ExpressionUUID->"40f79c92-c788-c843-8a8c-07266b265dee"] +}, Open ]], +Cell[CellGroupData[{ +Cell[336404, 8563, 213, 6, 60, "Input",ExpressionUUID->"ce14ed0e-a62a-1e46-b7cf-f67bfdbd9bc7"], +Cell[336620, 8571, 171, 3, 41, "Output",ExpressionUUID->"5f3fc6c2-7014-7c43-bf96-8a336bebf769"] +}, Open ]], +Cell[336806, 8577, 244, 5, 36, "Input",ExpressionUUID->"d104d373-080a-854b-92ff-e87abbd4c41c"], +Cell[CellGroupData[{ +Cell[337075, 8586, 558, 19, 66, "Input",ExpressionUUID->"b6bc4645-bb9b-da49-b314-4566a6ca9506"], +Cell[337636, 8607, 173, 3, 41, "Output",ExpressionUUID->"c9ac712d-c12f-0747-84df-4fbc596a4bc5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[337846, 8615, 170, 5, 71, "Input",ExpressionUUID->"1f225213-8143-a346-8c4e-e69f41e85c6f"], +Cell[338019, 8622, 171, 3, 41, "Output",ExpressionUUID->"265915a4-bf42-cc4a-850a-ff4e02169aa3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[338227, 8630, 181, 5, 55, "Input",ExpressionUUID->"4b9388d7-dfe0-ca44-90a4-ea60f173579a"], +Cell[338411, 8637, 173, 3, 41, "Output",ExpressionUUID->"31530b6e-e89a-9145-8021-0dc6b1c7eda5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[338621, 8645, 6055, 185, 831, "Input",ExpressionUUID->"b0d5a77d-c2c5-e84d-b4be-bec051c1557c"], +Cell[344679, 8832, 175, 3, 41, "Output",ExpressionUUID->"498f3df6-21c9-ce42-acfb-0b180bf5016e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[344891, 8840, 368, 9, 53, "Input",ExpressionUUID->"e543ccd6-d1e6-3c4d-9364-2a9eec09292b"], +Cell[345262, 8851, 172, 3, 41, "Output",ExpressionUUID->"7c93e621-3415-c743-b6e4-6e9478aa49a4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[345471, 8859, 6122, 187, 900, "Input",ExpressionUUID->"50e98a1c-f33a-9242-9267-bbd8a1753662"], +Cell[351596, 9048, 173, 3, 41, "Output",ExpressionUUID->"ac3c9970-0aac-ba4f-878d-3a3d1e5e2e3e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[351806, 9056, 368, 9, 53, "Input",ExpressionUUID->"339251a5-83bd-8642-8c5c-4fff9ebe10d7"], +Cell[352177, 9067, 170, 3, 41, "Output",ExpressionUUID->"d74ba3c3-6f35-614a-92df-d33bcc5e630d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[352384, 9075, 2663, 88, 435, "Input",ExpressionUUID->"ad1f9bb1-e9e6-5b4f-9f95-8eeef0cc66ae"], +Cell[355050, 9165, 171, 3, 41, "Output",ExpressionUUID->"33da748c-8c98-4649-9b81-8e00dd5f5d44"] +}, Open ]], +Cell[CellGroupData[{ +Cell[355258, 9173, 2603, 85, 435, "Input",ExpressionUUID->"4b0fdfc8-7d81-3a4d-90ed-a9bb76dc96a0"], +Cell[357864, 9260, 171, 3, 41, "Output",ExpressionUUID->"a300919b-1d52-ed46-bc06-5e86812c0bf8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[358072, 9268, 3712, 118, 575, "Input",ExpressionUUID->"31524ab0-bcc9-e948-9393-cfc225600ff2"], +Cell[361787, 9388, 170, 3, 41, "Output",ExpressionUUID->"45caa3aa-b655-b94b-bc88-ae750a9e28b8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[361994, 9396, 2052, 59, 276, "Input",ExpressionUUID->"486d514f-ec65-1e4e-b780-7e9487f745c3"], +Cell[364049, 9457, 573, 12, 109, "Message",ExpressionUUID->"fdac5db3-60d6-7a42-93b8-a74d8fc5d39e"], +Cell[364625, 9471, 577, 12, 98, "Message",ExpressionUUID->"46e50c50-b3b4-9847-b413-3bf52122b53e"], +Cell[365205, 9485, 580, 12, 98, "Message",ExpressionUUID->"5df9105e-cc71-b049-a285-30acff0c246a"], +Cell[365788, 9499, 456, 10, 32, "Message",ExpressionUUID->"84079c6c-500c-0643-b357-e1da142371e6"], +Cell[366247, 9511, 170, 3, 41, "Output",ExpressionUUID->"8303ac5a-d080-3741-a2d8-b7ff63ccb029"] +}, Open ]], +Cell[CellGroupData[{ +Cell[366454, 9519, 2054, 59, 276, "Input",ExpressionUUID->"c7144ce5-8356-d548-8854-18c538c3321c"], +Cell[368511, 9580, 573, 12, 98, "Message",ExpressionUUID->"65ad7cc5-5634-7d43-8ec3-48fd3e044014"], +Cell[369087, 9594, 577, 12, 98, "Message",ExpressionUUID->"c7632c59-b44f-2c47-aaf4-873ba9758677"], +Cell[369667, 9608, 582, 12, 98, "Message",ExpressionUUID->"509e3117-7502-a34e-9f96-72b696066a2b"], +Cell[370252, 9622, 456, 10, 32, "Message",ExpressionUUID->"0e1f3a7a-70f7-bc47-9700-06e687643558"], +Cell[370711, 9634, 170, 3, 41, "Output",ExpressionUUID->"15bebbf4-baae-a44a-84b5-59b3a1f444c3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[370918, 9642, 2028, 55, 232, "Input",ExpressionUUID->"b2db949b-a7b9-8f4b-afbd-a45df2eabf0c"], +Cell[372949, 9699, 20422, 382, 109, "Output",ExpressionUUID->"d9c156b6-0b42-724f-8e7d-964560057978"] +}, Open ]], +Cell[CellGroupData[{ +Cell[393408, 10086, 2120, 60, 109, "Input",ExpressionUUID->"92d458c4-bfde-c447-a06c-70a15768b745"], +Cell[395531, 10148, 502, 11, 109, "Message",ExpressionUUID->"74b51561-a06a-7345-9196-225d76f7f21f"], +Cell[396036, 10161, 506, 11, 71, "Message",ExpressionUUID->"ee03248d-dd91-8b4e-835e-9c4a5f039c61"], +Cell[396545, 10174, 505, 11, 71, "Message",ExpressionUUID->"81d7736e-0167-fe4f-bd5c-40ffaca911e4"], +Cell[397053, 10187, 458, 10, 32, "Message",ExpressionUUID->"43062041-d596-b540-8a1c-36df0575e1f0"], +Cell[397514, 10199, 22288, 412, 290, "Output",ExpressionUUID->"4ce3b436-d895-8b48-899f-c7dec78bd5cd"] +}, Open ]], +Cell[419817, 10614, 209, 5, 36, "Input",ExpressionUUID->"e1c8585a-8b57-f841-82e1-8e8787fb2589"], +Cell[CellGroupData[{ +Cell[420051, 10623, 1616, 48, 132, "Input",ExpressionUUID->"8cd26316-ef9d-184c-93c8-dd96bfd24ea1"], +Cell[421670, 10673, 595, 12, 118, "Message",ExpressionUUID->"bf4d283e-fed2-af41-90e7-a9b6911d8baf"], +Cell[422268, 10687, 595, 12, 118, "Message",ExpressionUUID->"9f6ca4d5-4251-0341-9c65-a603c68721f6"], +Cell[422866, 10701, 599, 12, 118, "Message",ExpressionUUID->"108eeaac-8397-bf4f-90a4-e14dbe759ebf"], +Cell[423468, 10715, 456, 10, 32, "Message",ExpressionUUID->"1a2f2a3c-e511-b846-8a84-9fad6555a680"], +Cell[423927, 10727, 171, 3, 41, "Output",ExpressionUUID->"ca1793f9-9753-5e46-b385-c8dd36228fd1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[424135, 10735, 2248, 64, 348, "Input",ExpressionUUID->"e0ae6f48-c6a6-a24c-812a-30286a178ca1"], +Cell[426386, 10801, 575, 12, 98, "Message",ExpressionUUID->"642a7168-3d33-6b4e-9213-0f67bfd30f54"], +Cell[426964, 10815, 577, 12, 98, "Message",ExpressionUUID->"315984db-f497-2940-bd36-1d820037ad00"], +Cell[427544, 10829, 582, 12, 98, "Message",ExpressionUUID->"2698bbc8-6aa1-c54b-9b5c-3f71a7eb3345"], +Cell[428129, 10843, 458, 10, 32, "Message",ExpressionUUID->"7f632647-49b8-a945-8682-8e4f7ae37cda"], +Cell[428590, 10855, 172, 3, 41, "Output",ExpressionUUID->"0f5bf0f0-4e96-2c4d-9011-c6ae92f19c83"] +}, Open ]], +Cell[CellGroupData[{ +Cell[428799, 10863, 2215, 63, 348, "Input",ExpressionUUID->"bce0eb71-ca49-364f-a3be-8e8c3542c5fb"], +Cell[431017, 10928, 575, 12, 98, "Message",ExpressionUUID->"704bc64b-0e53-8146-9696-c0e9ea00ec4d"], +Cell[431595, 10942, 577, 12, 98, "Message",ExpressionUUID->"68985ea1-064e-2c42-b957-ce16147f9e13"], +Cell[432175, 10956, 582, 12, 98, "Message",ExpressionUUID->"48a38db6-6d68-6140-9cb6-9dfc686aa062"], +Cell[432760, 10970, 458, 10, 32, "Message",ExpressionUUID->"ac6e6758-d573-7947-b88c-92831bb5be70"], +Cell[433221, 10982, 170, 3, 41, "Output",ExpressionUUID->"4d1b179c-7677-2745-8308-576346b6bf0b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[433428, 10990, 2223, 64, 348, "Input",ExpressionUUID->"935796a8-6280-564a-b4d0-fc6fb6cd41f8"], +Cell[435654, 11056, 573, 12, 71, "Message",ExpressionUUID->"0a9cfe95-3a6f-384b-8656-bdf67695e5d7"], +Cell[436230, 11070, 577, 12, 71, "Message",ExpressionUUID->"700ebedb-417e-8043-ab89-eb4672a7847d"], +Cell[436810, 11084, 580, 12, 98, "Message",ExpressionUUID->"599826a9-6d60-6843-9eef-e381cafa0758"], +Cell[437393, 11098, 456, 10, 32, "Message",ExpressionUUID->"d92d3772-b819-d145-8d96-f897b04ae4a7"], +Cell[437852, 11110, 173, 3, 41, "Output",ExpressionUUID->"98a57fa3-05ea-0d42-95b5-58c14727d753"] +}, Open ]], +Cell[CellGroupData[{ +Cell[438062, 11118, 213, 6, 60, "Input",ExpressionUUID->"ee52036b-90c5-e14a-aed9-684ff23ed035"], +Cell[438278, 11126, 173, 3, 41, "Output",ExpressionUUID->"ea5023c6-5364-074e-904d-43b5c1077635"] +}, Open ]], +Cell[438466, 11132, 247, 5, 36, "Input",ExpressionUUID->"c6d4a146-4cca-7e4e-b483-85227a6e6b51"], +Cell[CellGroupData[{ +Cell[438738, 11141, 558, 19, 66, "Input",ExpressionUUID->"28979542-d43a-e54a-88e0-087a68060d62"], +Cell[439299, 11162, 173, 3, 41, "Output",ExpressionUUID->"b967ea88-4a73-d84a-86f5-ad4ded7dfd59"] +}, Open ]], +Cell[CellGroupData[{ +Cell[439509, 11170, 170, 5, 71, "Input",ExpressionUUID->"c3303a76-2bd9-454b-b35d-6119cde0197e"], +Cell[439682, 11177, 173, 3, 41, "Output",ExpressionUUID->"fd8ea80a-f1d4-be4f-9cfa-b37871c5703d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[439892, 11185, 181, 5, 55, "Input",ExpressionUUID->"b83c9900-e14a-064d-b097-089d758a0eb6"], +Cell[440076, 11192, 173, 3, 41, "Output",ExpressionUUID->"7d039035-dcf9-ec46-abdb-20c0c777b3ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[440286, 11200, 6055, 185, 831, "Input",ExpressionUUID->"17437a0c-d9be-a242-b57f-efef95056982"], +Cell[446344, 11387, 172, 3, 41, "Output",ExpressionUUID->"ec08a5f9-ba46-9147-9d7b-cc1decdb981f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[446553, 11395, 368, 9, 53, "Input",ExpressionUUID->"b3706ed1-2e71-9941-86c4-d789cf8ea193"], +Cell[446924, 11406, 172, 3, 41, "Output",ExpressionUUID->"71ad1ede-d77d-ee46-a908-e7b20c10ebe8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[447133, 11414, 6122, 187, 900, "Input",ExpressionUUID->"2dad5775-7b90-2241-a408-e59b2ea47cb0"], +Cell[453258, 11603, 173, 3, 41, "Output",ExpressionUUID->"819de60b-5785-6448-8fe2-0db5976d700d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[453468, 11611, 368, 9, 53, "Input",ExpressionUUID->"ea913ab0-daa5-1f4d-93f4-2e6143537b5d"], +Cell[453839, 11622, 170, 3, 41, "Output",ExpressionUUID->"8dd6a8d3-1dbb-0d4a-9edc-e78196c49a86"] +}, Open ]], +Cell[CellGroupData[{ +Cell[454046, 11630, 2663, 88, 435, "Input",ExpressionUUID->"53a0bfe7-010b-d445-822a-52c57127f779"], +Cell[456712, 11720, 171, 3, 41, "Output",ExpressionUUID->"ae861452-cf77-f740-9f62-141306c9a07a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[456920, 11728, 2603, 85, 435, "Input",ExpressionUUID->"4e482268-3ff3-d74a-9ba6-ed262245ad4b"], +Cell[459526, 11815, 173, 3, 109, "Output",ExpressionUUID->"253d4a43-9313-5444-b0f9-3aae32edd842"] +}, Open ]], +Cell[CellGroupData[{ +Cell[459736, 11823, 3712, 118, 109, "Input",ExpressionUUID->"df39eab0-0939-764b-8de6-27d0ba2be7e8"], +Cell[463451, 11943, 173, 3, 109, "Output",ExpressionUUID->"0c1e1373-3726-9c43-862b-62a8708f83a9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[463661, 11951, 2052, 59, 276, "Input",ExpressionUUID->"6b25ec99-ae49-ec4d-9652-65328572e509"], +Cell[465716, 12012, 568, 12, 98, "Message",ExpressionUUID->"d55599c5-2bb2-8f4a-a245-aa6d5998cb8f"], +Cell[466287, 12026, 573, 12, 98, "Message",ExpressionUUID->"bdcd3bac-beba-5242-b376-95b5ed40a02a"], +Cell[466863, 12040, 576, 12, 98, "Message",ExpressionUUID->"b91a3ff7-a025-fd4e-b11c-58fa6385068b"], +Cell[467442, 12054, 458, 10, 32, "Message",ExpressionUUID->"9e66d374-59c2-ce4b-b0d2-5a3813a10542"], +Cell[467903, 12066, 172, 3, 41, "Output",ExpressionUUID->"5742ee33-8e4b-444c-91b6-6d4c403c91e9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[468112, 12074, 2052, 59, 276, "Input",ExpressionUUID->"3e2baf62-fab9-eb41-8de7-aa229443ac14"], +Cell[470167, 12135, 568, 12, 98, "Message",ExpressionUUID->"49d9e2db-79aa-5b48-897e-3089c92c79b4"], +Cell[470738, 12149, 573, 12, 98, "Message",ExpressionUUID->"2361061c-25a8-4549-ba9e-397593d876d4"], +Cell[471314, 12163, 574, 12, 98, "Message",ExpressionUUID->"a2993171-fcd7-8742-bf17-921d87bded0b"], +Cell[471891, 12177, 458, 10, 32, "Message",ExpressionUUID->"c72ccd11-884d-074a-bf1c-ed71d6dc6298"], +Cell[472352, 12189, 172, 3, 41, "Output",ExpressionUUID->"9dfb51ec-f6bd-9540-91f7-9d4800c6c680"] +}, Open ]], +Cell[CellGroupData[{ +Cell[472561, 12197, 2028, 55, 232, "Input",ExpressionUUID->"725c3011-bda9-4c42-96ce-9a77a5dc787c"], +Cell[474592, 12254, 20375, 384, 295, "Output",ExpressionUUID->"e400bdb6-95ee-464e-9e4c-d5d7da48485f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[495004, 12643, 2118, 60, 311, "Input",ExpressionUUID->"1ea503b1-33a1-2744-a92d-2e1269faf5ed"], +Cell[497125, 12705, 501, 11, 109, "Message",ExpressionUUID->"1c59fae3-3f74-0144-b936-915cf372347d"], +Cell[497629, 12718, 503, 11, 109, "Message",ExpressionUUID->"c058b3d2-ecc0-7348-bdec-143a71e7f77c"], +Cell[498135, 12731, 506, 11, 109, "Message",ExpressionUUID->"049ee41e-a5fd-7e46-9ca5-37402fcadc74"], +Cell[498644, 12744, 458, 10, 32, "Message",ExpressionUUID->"5bf93938-89e6-8d49-a495-6173a8c36739"], +Cell[499105, 12756, 22161, 409, 290, "Output",ExpressionUUID->"0ea0f8f9-2a4b-804f-a2c8-287645f62313"] +}, Open ]], +Cell[521281, 13168, 209, 5, 109, "Input",ExpressionUUID->"b530b35f-2a32-0145-82a7-25a7a01bdd8f"], +Cell[CellGroupData[{ +Cell[521515, 13177, 1616, 48, 132, "Input",ExpressionUUID->"a0d63734-417a-b84f-b5c7-88ca33cb9355"], +Cell[523134, 13227, 590, 12, 118, "Message",ExpressionUUID->"cb4665e4-f252-8e4c-9d71-b694fbe7aa53"], +Cell[523727, 13241, 589, 12, 118, "Message",ExpressionUUID->"e67b353a-d4a9-454a-9cac-3e22ef8a4d4b"], +Cell[524319, 13255, 593, 12, 109, "Message",ExpressionUUID->"9dbc6a20-c95c-084e-b19f-b6bb6bd70d6b"], +Cell[524915, 13269, 456, 10, 32, "Message",ExpressionUUID->"f9b6cbc5-ab52-2741-b8bf-bf6796495def"], +Cell[525374, 13281, 170, 3, 41, "Output",ExpressionUUID->"1439e238-af89-2243-beb8-0a46e5e09115"] +}, Open ]], +Cell[CellGroupData[{ +Cell[525581, 13289, 2251, 64, 348, "Input",ExpressionUUID->"97b28b29-5d04-5c42-a0e8-93b70f20e7f6"], +Cell[527835, 13355, 568, 12, 109, "Message",ExpressionUUID->"033374a1-a008-6240-84e3-c1c7a7e65b75"], +Cell[528406, 13369, 573, 12, 109, "Message",ExpressionUUID->"88ab6d85-4789-7346-aeee-8e9a4b87248d"], +Cell[528982, 13383, 574, 12, 109, "Message",ExpressionUUID->"051100a9-488b-4d4d-83c7-cdc54aef13e0"], +Cell[529559, 13397, 458, 10, 32, "Message",ExpressionUUID->"a33cd954-f1de-bf45-8642-effd7c3e029f"], +Cell[530020, 13409, 173, 3, 41, "Output",ExpressionUUID->"48a4017b-948a-6a48-8b10-d81adf4b9038"] +}, Open ]], +Cell[CellGroupData[{ +Cell[530230, 13417, 2221, 64, 348, "Input",ExpressionUUID->"f9d1ad25-05cb-d544-8ab6-cdce838d9efe"], +Cell[532454, 13483, 570, 12, 98, "Message",ExpressionUUID->"d8156b3f-4442-9146-9c48-cb34fdfb79d3"], +Cell[533027, 13497, 573, 12, 98, "Message",ExpressionUUID->"60007a19-2492-cd46-a203-7c2bbbc6591f"], +Cell[533603, 13511, 573, 12, 98, "Message",ExpressionUUID->"8754c4a5-0539-0247-94a5-8a81a9ae7e49"], +Cell[534179, 13525, 458, 10, 32, "Message",ExpressionUUID->"3af4c7f8-fe90-6646-8e3b-058500b348e9"], +Cell[534640, 13537, 171, 3, 41, "Output",ExpressionUUID->"46f7d520-9bcf-9d48-ae7c-54e91ca06983"] +}, Open ]], +Cell[CellGroupData[{ +Cell[534848, 13545, 2221, 64, 348, "Input",ExpressionUUID->"0794d062-69d5-0a45-936e-533b19d33de6"], +Cell[537072, 13611, 570, 12, 98, "Message",ExpressionUUID->"ba4db233-5a2e-4340-98d0-df918a11e2c7"], +Cell[537645, 13625, 573, 12, 98, "Message",ExpressionUUID->"444b24ca-68bb-7144-a655-403eefa4900f"], +Cell[538221, 13639, 574, 12, 98, "Message",ExpressionUUID->"f2dc2286-68d4-d74f-83ea-dd0f591156a8"], +Cell[538798, 13653, 458, 10, 32, "Message",ExpressionUUID->"4974a702-c238-6d47-b5b2-a3c25cacf142"], +Cell[539259, 13665, 173, 3, 41, "Output",ExpressionUUID->"d46043b7-707b-4740-ab89-0a2b96978cff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[539469, 13673, 215, 6, 60, "Input",ExpressionUUID->"95c56266-e4d3-624e-89c1-cedeeeb0247a"], +Cell[539687, 13681, 172, 3, 41, "Output",ExpressionUUID->"188c2681-ea17-924e-adb2-007b19a9ee86"] +}, Open ]], +Cell[539874, 13687, 188, 4, 36, "Input",ExpressionUUID->"0f666ac4-b3f5-4ded-99eb-a215694c157c"] } ] *) -(* End of internal cache information *) - diff --git a/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_pr_Qw1.nb b/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_pr_Qw1.nb index 14330be..34532cd 100755 --- a/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_pr_Qw1.nb +++ b/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_pr_Qw1.nb @@ -3,25 +3,4892 @@ (*** 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[ 618148, 14951] +NotebookOptionsPosition[ 578273, 14320] +NotebookOutlinePosition[ 578714, 14338] +CellTagsIndexPosition[ 578671, 14335] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f1", "="}]], "Input", + RowBox[{"d", "=", "1.6"}]], "Input", CellChangeTimes->{ - 3.9918488488187084`*^9},ExpressionUUID->"bdefbecf-0aaa-4a45-a861-\ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.9940727514461927`*^9, 3.994072775295883*^9}}, + CellLabel-> + "In[104]:=",ExpressionUUID->"46ee9baf-ea38-4cdd-b8d2-6697866c6380"], + +Cell[BoxData["1.6`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, 3.99379974700918*^9, 3.993800338579624*^9, + 3.9938003856877937`*^9, {3.994072756527327*^9, 3.9940727765701942`*^9}}, + CellLabel-> + "Out[104]=",ExpressionUUID->"df56cd66-dc52-488f-a7e2-222800609c30"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.993799082059058*^9, 3.9937990826790457`*^9}}, + CellLabel-> + "In[105]:=",ExpressionUUID->"37e66f91-f187-4f59-b4a8-68f043f59aad"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.993799747282215*^9, 3.99380033885446*^9, + 3.993800385764146*^9, {3.994072756590721*^9, 3.994072776647262*^9}}, + CellLabel-> + "Out[105]=",ExpressionUUID->"80289892-ad7a-4dda-9db0-5d8fd6fd36c1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", " ", "176"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.993799246718399*^9, 3.993799247496731*^9}}, + CellLabel-> + "In[106]:=",ExpressionUUID->"66487090-f3d0-45cc-8f44-1b72ce709401"], + +Cell[BoxData["176"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.993799747300477*^9, 3.993800338871715*^9, + 3.993800385779578*^9, {3.994072756603456*^9, 3.9940727766610518`*^9}}, + CellLabel-> + "Out[106]=",ExpressionUUID->"13b33187-561d-453c-85bf-2150480479a5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel-> + "In[107]:=",ExpressionUUID->"1f84ddca-d27e-4c21-96b3-9e46c8babde5"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.993799747316929*^9, 3.993800338888788*^9, + 3.993800385794606*^9, {3.994072756615819*^9, 3.994072776674831*^9}}, + CellLabel-> + "Out[107]=",ExpressionUUID->"f56080e6-6be5-4a3d-b5a2-336475d5a07b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel-> + "In[108]:=",ExpressionUUID->"b024573c-0436-4fef-9078-b2f1f93edb5d"], + +Cell[BoxData["0.543`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.993799747333138*^9, 3.993800338906427*^9, + 3.993800385809697*^9, {3.994072756628705*^9, 3.994072776688608*^9}}, + CellLabel-> + "Out[108]=",ExpressionUUID->"a660b1ad-54ea-4a28-b59b-6c0b305309e7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel-> + "In[109]:=",ExpressionUUID->"ff07b2d7-60f7-4b14-8455-33dcc579fa48"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.9937997473490753`*^9, 3.993800338928018*^9, + 3.993800385813496*^9, {3.994072756641103*^9, 3.994072776693177*^9}}, + CellLabel-> + "Out[109]=",ExpressionUUID->"528b833e-8779-486a-9378-d5459997c832"] +}, 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[110]:=",ExpressionUUID->"d7eebc84-1507-4b94-aeb0-06ba1a7fe2af"], + +Cell[BoxData["6.5007312471204965`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.993799747366351*^9, 3.993800338948053*^9, + 3.993800385835421*^9, {3.994072756653392*^9, 3.994072776710863*^9}}, + CellLabel-> + "Out[110]=",ExpressionUUID->"4b57dd02-8a7a-44f5-8ce9-89033fbea820"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel-> + "In[111]:=",ExpressionUUID->"5bba16fc-7492-444a-8c47-d0fef0e9e724"], + +Cell[BoxData["4.64`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.993799747384128*^9, 3.993800338968402*^9, + 3.993800385850627*^9, {3.9940727566658983`*^9, 3.994072776724451*^9}}, + CellLabel-> + "Out[111]=",ExpressionUUID->"6e178369-8370-45c7-bfdf-7b5d6ca8aa48"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.7654"}]], "Input", + CellChangeTimes->{ + 3.991799283179735*^9, {3.9937993186432753`*^9, 3.993799326240513*^9}, { + 3.993799364756247*^9, 3.993799370026516*^9}, {3.993799480203456*^9, + 3.993799488443741*^9}}, + CellLabel-> + "In[112]:=",ExpressionUUID->"f5ec54d2-0635-437c-8011-be47e7aaa732"], + +Cell[BoxData["0.7654`"], "Output", + CellChangeTimes->{ + 3.9937997474107447`*^9, 3.993800338988703*^9, 3.9938003858649893`*^9, { + 3.994072756678184*^9, 3.994072776737771*^9}}, + CellLabel-> + "Out[112]=",ExpressionUUID->"ad273ec8-234e-45cc-825c-983eaeddaf50"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.4513"}]], "Input", + CellChangeTimes->{ + 3.991799280663351*^9, {3.993799372069343*^9, 3.993799377027832*^9}}, + CellLabel-> + "In[113]:=",ExpressionUUID->"97c238e9-73d4-4a7e-b299-f9076851a055"], + +Cell[BoxData["0.4513`"], "Output", + CellChangeTimes->{ + 3.993799747427882*^9, 3.993800339005568*^9, 3.993800385879345*^9, { + 3.9940727566903763`*^9, 3.9940727767497873`*^9}}, + CellLabel-> + "Out[113]=",ExpressionUUID->"4e786fe9-6e71-4124-8dd7-0b9e0be89510"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel-> + "In[114]:=",ExpressionUUID->"341b1781-3c4d-4fab-9834-3fa9294df147"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.993799747452092*^9, 3.993800339022945*^9, + 3.993800385893304*^9, {3.994072756702078*^9, 3.9940727767611856`*^9}}, + CellLabel-> + "Out[114]=",ExpressionUUID->"08d7eff9-1330-47c5-9b66-42679ccfe862"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel-> + "In[115]:=",ExpressionUUID->"ee4af430-f24b-40e7-8410-6ff671c99c26"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.993799747468101*^9, 3.993800339041868*^9, + 3.9938003859074306`*^9, {3.9940727567134666`*^9, 3.994072776772606*^9}}, + CellLabel-> + "Out[115]=",ExpressionUUID->"fc90407e-40a6-4f53-8642-55423744de78"] +}, 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[116]:=",ExpressionUUID->"da9439a2-f2d1-45a8-aed2-4190ad60d48d"], + +Cell[BoxData["2.0171665757171935`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.9937997474836817`*^9, 3.9938003390596933`*^9, + 3.993800385921398*^9, {3.994072756725263*^9, 3.994072776784317*^9}}, + CellLabel-> + "Out[116]=",ExpressionUUID->"43b3c043-cc77-4c18-9594-2ea9e11f530c"] +}, 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[117]:=",ExpressionUUID->"f68c0082-03f1-4227-af6e-881d491ef838"], + +Cell[BoxData["1.5074639495621045`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.993799747498741*^9, 3.993800339079308*^9, + 3.993800385933773*^9, {3.994072756739362*^9, 3.994072776796445*^9}}, + CellLabel-> + "Out[117]=",ExpressionUUID->"adb8d0d7-df23-4f23-8552-c65056c1d528"] +}, 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[118]:=",ExpressionUUID->"ac163cda-e1c1-4ff2-9d93-f7846cecb903"], + +Cell[BoxData["0.5126444245586296`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.993799747513342*^9, 3.993800339097157*^9, + 3.993800385946536*^9, {3.994072756750792*^9, 3.9940727768075857`*^9}}, + CellLabel-> + "Out[118]=",ExpressionUUID->"5976bcbe-cfd0-4eb4-89f8-dd787c639744"] +}, 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[119]:=",ExpressionUUID->"58ce9701-481d-4806-942d-ceabd604b5a4"], + +Cell[BoxData[ + RowBox[{"-", "0.12490541136574432`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.993799747527933*^9, 3.9938003391147947`*^9, + 3.99380038595966*^9, {3.994072756762456*^9, 3.99407277681929*^9}}, + CellLabel-> + "Out[119]=",ExpressionUUID->"2be0b447-5e01-47ea-b7fe-6436648450ad"] +}, 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[120]:=",ExpressionUUID->"60ec0657-420d-4193-b80a-8c10a90b449e"], + +Cell[BoxData[ + RowBox[{"-", "0.47786808677187637`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.993799747543792*^9, 3.993800339132107*^9, + 3.9938003859736147`*^9, {3.994072756774001*^9, 3.994072776830839*^9}}, + CellLabel-> + "Out[120]=",ExpressionUUID->"f67510b9-cf52-4561-8ace-0072dfc2631b"] +}, 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[121]:=",ExpressionUUID->"6fe94587-552b-4a80-b06b-b7b8c7d2d37a"], + +Cell[BoxData["0.6637051934091774`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.993799747559553*^9, 3.993800339136161*^9, + 3.993800385987465*^9, {3.994072756786757*^9, 3.994072776842886*^9}}, + CellLabel-> + "Out[121]=",ExpressionUUID->"6edcd110-ea30-4836-ac18-549cc719ad4a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel-> + "In[122]:=",ExpressionUUID->"54a67b2e-154c-4864-a645-9c792d6d55d0"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.9937997475753107`*^9, 3.993800339165604*^9, + 3.9938003860010223`*^9, {3.99407275679909*^9, 3.994072776854899*^9}}, + CellLabel-> + "Out[122]=",ExpressionUUID->"fff2c29b-f3cb-4044-a513-bd745a9be60e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel-> + "In[123]:=",ExpressionUUID->"2f513acc-5c81-4d84-8006-bfc6b6b68105"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.9937997475908947`*^9, 3.993800339182325*^9, + 3.9938003860157137`*^9, {3.9940727568120337`*^9, 3.994072776866831*^9}}, + CellLabel-> + "Out[123]=",ExpressionUUID->"33b81d31-e158-440a-8768-657a31575826"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellChangeTimes->{{3.9938002062742653`*^9, 3.993800206278376*^9}, { + 3.99380037453472*^9, 3.993800374695301*^9}}, + CellLabel-> + "In[124]:=",ExpressionUUID->"8341a2c8-1bd2-4e26-bf07-4be012293a6c"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.993799747607007*^9, 3.993800339199224*^9, + 3.9938003860303698`*^9, {3.994072756823955*^9, 3.994072776878458*^9}}, + CellLabel-> + "Out[124]=",ExpressionUUID->"8b193aee-7e4a-467d-b7df-22091dddf8b4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel-> + "In[125]:=",ExpressionUUID->"4c658e0e-3d02-4e4d-bf06-55837f481290"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.993799747623555*^9, 3.9938003392162523`*^9, + 3.993800386045208*^9, {3.994072756835642*^9, 3.994072776890398*^9}}, + CellLabel-> + "Out[125]=",ExpressionUUID->"79ce8ec0-9529-45c8-b716-39154dc32772"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel-> + "In[126]:=",ExpressionUUID->"0401ee42-b9d5-4435-95f3-6329a31df7f2"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.9937997476274233`*^9, 3.993800339233366*^9, + 3.993800386060211*^9, {3.994072756847537*^9, 3.994072776902615*^9}}, + CellLabel-> + "Out[126]=",ExpressionUUID->"bc4ae10b-97f4-4f7d-8ad1-96650b9b5e44"] +}, 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.993799773981587*^9, {3.993800017055696*^9, 3.993800017126395*^9}}, + CellLabel-> + "In[127]:=",ExpressionUUID->"be9d00c9-0554-4293-a4d1-51d3cd6850d4"], + +Cell[BoxData["64"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, 3.993800339250176*^9, 3.993800386074368*^9, { + 3.994072756859651*^9, 3.994072776915943*^9}}, + CellLabel-> + "Out[127]=",ExpressionUUID->"03af3daa-a42e-4867-984b-aea10f183605"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"92", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9}, + CellLabel-> + "In[128]:=",ExpressionUUID->"8860ca16-13f9-415e-8f31-fcafc37a00d5"], + +Cell[BoxData["28"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.993799747743443*^9, 3.993800339268099*^9, + 3.993800386088282*^9, {3.994072756878846*^9, 3.994072776927128*^9}}, + CellLabel-> + "Out[128]=",ExpressionUUID->"95cbaa16-e7c2-4da0-bd6b-d02533f16603"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel-> + "In[129]:=",ExpressionUUID->"39a929b0-c2db-44a8-a971-430f57fa7c6d"], + +Cell[BoxData["64"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.993799747762579*^9, 3.9938003392862883`*^9, + 3.993800386103376*^9, {3.994072756893341*^9, 3.994072776939496*^9}}, + CellLabel-> + "Out[129]=",ExpressionUUID->"d9f8ca63-e98a-4bbd-87d1-b341c5291d88"] +}, 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[130]:=",ExpressionUUID->"d7a5d73b-2b59-407a-8051-5d9d16656c7a"], + +Cell[BoxData["0.10431818181818181`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.993799747778633*^9, 3.993800339303063*^9, + 3.993800386118601*^9, {3.9940727569059267`*^9, 3.994072776951536*^9}}, + CellLabel-> + "Out[130]=",ExpressionUUID->"1abd978d-22fd-477a-9d5c-63c2be3334a8"] +}, 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[131]:=",ExpressionUUID->"17018113-577e-47d8-a7af-9b0c2d31300d"], + +Cell[BoxData[ + RowBox[{"-", "2.571590909090909`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.993799747795951*^9, 3.993800339319376*^9, + 3.993800386134354*^9, {3.9940727569175262`*^9, 3.994072776962891*^9}}, + CellLabel-> + "Out[131]=",ExpressionUUID->"a0176ae0-0612-423c-913a-09e6d59b7e7a"] +}, 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[132]:=",ExpressionUUID->"2446f182-7cd4-43d4-ad6e-32e05dadb042"], + +Cell[BoxData["16.821909430837295`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.993799747812237*^9, 3.993800339336598*^9, + 3.9938003861388483`*^9, {3.994072756929346*^9, 3.994072776974725*^9}}, + CellLabel-> + "Out[132]=",ExpressionUUID->"76a28c02-4b29-4207-8eed-188b7aaa9c7c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel-> + "In[133]:=",ExpressionUUID->"8127b2ee-382a-4abf-a064-b74a76aabc24"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.9937997478307247`*^9, 3.993800339353257*^9, + 3.993800386159964*^9, {3.994072756940832*^9, 3.994072776986273*^9}}, + CellLabel-> + "Out[133]=",ExpressionUUID->"0b4654ae-a7f4-4d6c-be8c-4f4d72225713"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "1.25"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { + 3.9937993902853117`*^9, 3.993799392293758*^9}}, + CellLabel-> + "In[134]:=",ExpressionUUID->"de983083-5236-41af-87ee-cb92112ec7ed"], + +Cell[BoxData["1.25`"], "Output", + CellChangeTimes->{ + 3.9937997478713713`*^9, 3.993800339369935*^9, 3.9938003861811666`*^9, { + 3.9940727569525537`*^9, 3.9940727769978867`*^9}}, + CellLabel-> + "Out[134]=",ExpressionUUID->"bb261691-73f1-4d8b-9a07-9f8b7038484c"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel-> + "In[135]:=",ExpressionUUID->"c164eff1-4a6e-4e0f-96b4-50747e3c9aa4"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.85"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.993799395152514*^9, 3.9937993965162697`*^9}}, + CellLabel-> + "In[136]:=",ExpressionUUID->"593cb70e-8547-4c0c-82b1-ae66acf94cab"], + +Cell[BoxData["0.85`"], "Output", + CellChangeTimes->{ + 3.993799747898118*^9, 3.993800339418215*^9, 3.993800386208997*^9, { + 3.99407275696742*^9, 3.9940727770129023`*^9}}, + CellLabel-> + "Out[136]=",ExpressionUUID->"6a1ae5f3-dd75-4986-b6e3-c16d4415b47c"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel-> + "In[137]:=",ExpressionUUID->"117c190d-fb54-4f07-9373-18e88054d2a2"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "2.3"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.993799398824368*^9, 3.9937994002405863`*^9}}, + CellLabel-> + "In[138]:=",ExpressionUUID->"b5eaa0a8-22e9-48c7-a113-1562d7bf655f"], + +Cell[BoxData["2.3`"], "Output", + CellChangeTimes->{ + 3.993799747923098*^9, 3.993800339511382*^9, 3.993800386234042*^9, { + 3.994072756981262*^9, 3.994072777026493*^9}}, + CellLabel-> + "Out[138]=",ExpressionUUID->"ad7d7bbc-0e78-49b5-b1f0-7353ce16922a"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel-> + "In[139]:=",ExpressionUUID->"ba67e9a2-b20e-4129-a3a9-d47cd96e2fe8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.1"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, {3.993799403099743*^9, 3.9937994038178663`*^9}}, + CellLabel-> + "In[140]:=",ExpressionUUID->"9bfaf618-816c-4ce6-b0d7-cc5be285b598"], + +Cell[BoxData["1.1`"], "Output", + CellChangeTimes->{ + 3.9937997479459248`*^9, 3.99380033956159*^9, 3.9938003862601*^9, { + 3.994072756995009*^9, 3.99407277703996*^9}}, + CellLabel-> + "Out[140]=",ExpressionUUID->"0a372bca-0c4a-4cbd-984b-9a047d8b2d3f"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel-> + "In[141]:=",ExpressionUUID->"3b391916-83c1-4822-8db6-6d087142d483"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "0.8664"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, {3.993799407392029*^9, + 3.993799410650194*^9}}, + CellLabel-> + "In[142]:=",ExpressionUUID->"e5ff2d12-564a-4e06-a9af-82867595a7fc"], + +Cell[BoxData["0.8664`"], "Output", + CellChangeTimes->{ + 3.993799747968698*^9, 3.993800339671721*^9, 3.9938003862845907`*^9, { + 3.994072757008773*^9, 3.994072777054493*^9}}, + CellLabel-> + "Out[142]=",ExpressionUUID->"ce20665e-0d17-4596-8b5a-ea8de4b3dc5b"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel-> + "In[143]:=",ExpressionUUID->"cee6ce0a-2c7a-41a3-a9c3-ca400d88247e"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.5924"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.9937994136330442`*^9, + 3.993799417576207*^9}}, + CellLabel-> + "In[144]:=",ExpressionUUID->"437ae41f-a8e2-40d0-b72f-06a6954e0db7"], + +Cell[BoxData["0.5924`"], "Output", + CellChangeTimes->{ + 3.993799747991611*^9, 3.9938003397687387`*^9, 3.993800386310059*^9, { + 3.994072757022612*^9, 3.994072777068264*^9}}, + CellLabel-> + "Out[144]=",ExpressionUUID->"f359c36e-4f1a-47ff-8a1f-7ca8dfdb72de"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel-> + "In[145]:=",ExpressionUUID->"e308565d-68e5-4fd7-a842-22ecc7f68d40"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "1.888"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.993799421955809*^9, + 3.993799423886447*^9}}, + CellLabel-> + "In[146]:=",ExpressionUUID->"00627439-4a18-4f7a-8faa-b888aceb263f"], + +Cell[BoxData["1.888`"], "Output", + CellChangeTimes->{ + 3.993799748012844*^9, 3.993800339865109*^9, 3.993800386335606*^9, { + 3.9940727570366488`*^9, 3.9940727770819397`*^9}}, + CellLabel-> + "Out[146]=",ExpressionUUID->"c237c864-5525-4bea-bac2-43c2d712c99d"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel-> + "In[147]:=",ExpressionUUID->"49286e54-260b-4511-b13e-44ef0fd1186d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "0.6347"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, {3.993799431418026*^9, 3.9937994366447783`*^9}}, + CellLabel-> + "In[148]:=",ExpressionUUID->"18a6f425-c577-4036-886c-93340e3eb7d7"], + +Cell[BoxData["0.6347`"], "Output", + CellChangeTimes->{ + 3.99379974807285*^9, 3.993800339960155*^9, 3.9938003863606977`*^9, { + 3.99407275705245*^9, 3.994072777095529*^9}}, + CellLabel-> + "Out[148]=",ExpressionUUID->"845798e1-f7dc-408d-adf4-08a2a7d14c59"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel-> + "In[149]:=",ExpressionUUID->"a0c8fde8-b575-42d2-8b39-ef7141a4db7f"], + +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[150]:=",ExpressionUUID->"47aa838b-a52b-4efd-862e-f0bd51c69cbf"], + +Cell[BoxData["0.33523276963055626`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.9937997481547623`*^9, 3.993800340061625*^9, + 3.9938003864136953`*^9, {3.994072757136285*^9, 3.994072777132966*^9}}, + CellLabel-> + "Out[150]=",ExpressionUUID->"d7b67e4e-d0d4-41f0-9b75-4cd8c4c6a944"] +}, 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[151]:=",ExpressionUUID->"234f4524-0def-4ff5-bea8-480a5b7c9661"], + +Cell[BoxData["10.264944924096582`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9937997481878023`*^9, 3.993800340089472*^9, + 3.993800386441668*^9, {3.994072757163142*^9, 3.9940727771627817`*^9}}, + CellLabel-> + "Out[151]=",ExpressionUUID->"31eb9017-7100-46de-bbc1-07cd8d2dd124"] +}, 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[152]:=",ExpressionUUID->"47c18f6b-3b32-4b94-bfe5-9ff6556ee0e1"], + +Cell[BoxData[ + RowBox[{"-", "28.42814742925769`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.993799748217864*^9, 3.993800340114811*^9, + 3.993800386467917*^9, {3.99407275718851*^9, 3.994072777190625*^9}}, + CellLabel-> + "Out[152]=",ExpressionUUID->"35921106-03a3-4c73-951f-c70ff8094557"] +}, 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[153]:=",ExpressionUUID->"4eb9645d-d6fe-45a3-8de9-b5c23cc07269"], + +Cell[BoxData[ + RowBox[{"-", "38.363033654277935`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.9937997482559977`*^9, 3.993800340146491*^9, + 3.993800386499661*^9, {3.9940727572190027`*^9, 3.994072777223873*^9}}, + CellLabel-> + "Out[153]=",ExpressionUUID->"d2c7fb2b-a0b9-4d15-a6ac-adde1fc297e4"] +}, 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[154]:=",ExpressionUUID->"f0be3295-346c-4258-9c55-daf5fdf477c4"], + +Cell[BoxData[ + RowBox[{"-", "84.97316533656249`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.993799748294525*^9, 3.993800340178175*^9, + 3.9938003865308523`*^9, {3.994072757249708*^9, 3.994072777255313*^9}}, + CellLabel-> + "Out[154]=",ExpressionUUID->"674d2fa6-6b87-4ec9-b49a-5d3b74bd4e3a"] +}, 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[155]:=",ExpressionUUID->"3f2f2d2d-48a0-4d8d-a000-9b730dd74a56"], + +Cell[BoxData[ + RowBox[{"-", "228.76196692780508`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.993799748333426*^9, 3.9938003402193203`*^9, + 3.9938003865686073`*^9, {3.9940727572851143`*^9, 3.9940727772935343`*^9}}, + CellLabel-> + "Out[155]=",ExpressionUUID->"b54527dd-b76e-465a-bc10-bdce5827f4d4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel-> + "In[156]:=",ExpressionUUID->"30776b29-6c07-4adf-9310-f7e6db2b3278"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.993799748353148*^9, 3.993800340246324*^9, + 3.993800386583934*^9, {3.99407275729825*^9, 3.994072777306653*^9}}, + CellLabel-> + "Out[156]=",ExpressionUUID->"71f13eb1-ce13-4e70-9769-7819cd3942ff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel-> + "In[157]:=",ExpressionUUID->"1dbb6e9f-e397-4d26-a577-32961d6f4256"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.993799748372961*^9, 3.9938003402680492`*^9, + 3.993800386599262*^9, {3.99407275730969*^9, 3.994072777318306*^9}}, + CellLabel-> + "Out[157]=",ExpressionUUID->"7b97e034-d207-4315-923e-b524c2e07739"] +}, 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[158]:=",ExpressionUUID->"c7c4a410-54e6-4538-9085-92cacdc46841"], + +Cell[BoxData["185.79450939883742`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.9937997483941936`*^9, 3.9938003402909203`*^9, + 3.99380038661649*^9, {3.9940727573211393`*^9, 3.994072777330056*^9}}, + CellLabel-> + "Out[158]=",ExpressionUUID->"c4dbdb89-4923-42dc-9c35-cb1fa47580a8"] +}, 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[159]:=",ExpressionUUID->"ad215961-7d84-4562-ad89-4f5edd191601"], + +Cell[BoxData[ + RowBox[{"-", "142.60312447586276`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.9937997484173307`*^9, 3.993800340312326*^9, + 3.993800386633136*^9, {3.99407275733285*^9, 3.994072777341887*^9}}, + CellLabel-> + "Out[159]=",ExpressionUUID->"074514b1-9dfa-4b7a-9634-371e6999d5e8"] +}, 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[160]:=",ExpressionUUID->"d4a9ce26-a31e-45fb-9327-c3c276da9451"], + +Cell[BoxData["169.9317606773619`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.993799748440692*^9, 3.993800340332926*^9, + 3.99380038664979*^9, {3.994072757344488*^9, 3.994072777353434*^9}}, + CellLabel-> + "Out[160]=",ExpressionUUID->"608c2e85-8f10-4b3f-958e-41d00cf6084e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel-> + "In[161]:=",ExpressionUUID->"df7fd3c4-8909-4036-af2f-eba46922c214"], + +Cell[BoxData["0.5126444245586296`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.9937997484629087`*^9, 3.9938003403521013`*^9, + 3.9938003866670628`*^9, {3.994072757355731*^9, 3.994072777364881*^9}}, + CellLabel-> + "Out[161]=",ExpressionUUID->"d90a4236-559c-4f29-a298-c5a608e5fd30"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel-> + "In[162]:=",ExpressionUUID->"c9ba7fa7-cf4a-43d6-94c7-a2d36119d56f"], + +Cell[BoxData[ + RowBox[{"-", "0.12490541136574432`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.9937997484829597`*^9, 3.993800340372787*^9, + 3.993800386684751*^9, {3.994072759775218*^9, 3.994072777376302*^9}}, + CellLabel-> + "Out[162]=",ExpressionUUID->"018585c4-8503-4248-bf8e-eeae350f2a3e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel-> + "In[163]:=",ExpressionUUID->"423057bf-e0e4-49f6-8fa6-a39a5435d404"], + +Cell[BoxData[ + RowBox[{"-", "0.47786808677187637`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.993799748505329*^9, 3.9938003403919477`*^9, + 3.9938003866995373`*^9, {3.9940727599543447`*^9, 3.9940727773879633`*^9}}, + CellLabel-> + "Out[163]=",ExpressionUUID->"5d32031b-9576-4b9e-8678-a0cb1eefa590"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel-> + "In[164]:=",ExpressionUUID->"fe54588b-bd36-4428-a80c-48ca368ab726"], + +Cell[BoxData["0.6637051934091774`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.99379974852349*^9, 3.993800340409604*^9, + 3.993800386721094*^9, {3.994072759966642*^9, 3.994072777399509*^9}}, + CellLabel-> + "Out[164]=",ExpressionUUID->"250dd489-76b9-43a0-854b-eaba76272690"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel-> + "In[165]:=",ExpressionUUID->"df4f346b-67c7-4ef1-b26f-e00b950ea088"], + +Cell[BoxData["2.0171665757171935`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.993799748542218*^9, 3.993800340426003*^9, + 3.9938003867354116`*^9, {3.9940727599787703`*^9, 3.9940727774113617`*^9}}, + CellLabel-> + "Out[165]=",ExpressionUUID->"1d038270-697a-4e92-ac23-46117016a939"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel-> + "In[166]:=",ExpressionUUID->"47c86b3a-e683-4b32-bf88-88e029c0fd6f"], + +Cell[BoxData["1.5074639495621045`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.9937997485616417`*^9, 3.99380034044471*^9, + 3.9938003867502003`*^9, {3.9940727599906197`*^9, 3.994072777422779*^9}}, + CellLabel-> + "Out[166]=",ExpressionUUID->"819ef6b7-19fe-43f1-aa86-3e18e7243c5c"] +}, 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[167]:=",ExpressionUUID->"077fc7c8-cb4a-4d7e-bfce-557bfb6b839e"], + +Cell[BoxData[ + RowBox[{"-", "30.893583323663808`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.993799748579701*^9, 3.9938003404617233`*^9, + 3.993800386765017*^9, {3.994072760002514*^9, 3.994072777434401*^9}}, + CellLabel-> + "Out[167]=",ExpressionUUID->"5a1f1778-a566-4dbb-b263-ca94c5aee4d9"] +}, 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[168]:=",ExpressionUUID->"7c5da625-d577-4bfc-8b40-b5d1e0106c80"], + +Cell[BoxData[ + RowBox[{"-", "7.926031139913374`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.993799748598835*^9, 3.993800340479863*^9, + 3.9938003867807913`*^9, {3.994072760013989*^9, 3.994072777446135*^9}}, + CellLabel-> + "Out[168]=",ExpressionUUID->"94008485-336c-4c9e-b9df-c4e414acccc3"] +}, 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[169]:=",ExpressionUUID->"4449b7a5-11bd-4513-9ae9-69d3171bd40e"], + +Cell[BoxData["154.9009260751736`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.993799748618464*^9, 3.993800340498665*^9, + 3.993800386794903*^9, {3.994072760026211*^9, 3.994072777457891*^9}}, + CellLabel-> + "Out[169]=",ExpressionUUID->"92401a1d-768d-439c-bb5a-306f54e21608"] +}, 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[170]:=",ExpressionUUID->"f93161ec-a0b1-4878-b6e6-7d05eb0baf83"], + +Cell[BoxData[ + RowBox[{"-", "142.60312447586276`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.993799748639475*^9, 3.993800340517002*^9, + 3.993800386808839*^9, {3.9940727600400333`*^9, 3.994072777469482*^9}}, + CellLabel-> + "Out[170]=",ExpressionUUID->"e0f59c46-d252-42f3-a5eb-11f282b531e5"] +}, 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[171]:=",ExpressionUUID->"ea1a516b-645f-4cc6-8301-e5d46b198d3d"], + +Cell[BoxData["162.00572953744853`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.993799748660536*^9, 3.993800340536582*^9, + 3.993800386822714*^9, {3.994072760046308*^9, 3.994072777481387*^9}}, + CellLabel-> + "Out[171]=",ExpressionUUID->"d7d1fcbd-0d2c-40af-9e1f-84de7aa4da87"] +}, 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[172]:=",ExpressionUUID->"db382234-9f26-450e-a668-667d07445395"], + +Cell[BoxData["110.13261932733474`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.993799748682187*^9, 3.9938003405568943`*^9, + 3.993800386836596*^9, {3.994072760058202*^9, 3.994072777493164*^9}}, + CellLabel-> + "Out[172]=",ExpressionUUID->"ab840852-b91a-428e-b52e-bf4e042034d7"] +}, 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[173]:=",ExpressionUUID->"53f34036-74f2-433b-a5f3-57b3019bc920"], + +Cell[BoxData["1014.9570765717414`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.993799748705882*^9, 3.9938003405772467`*^9, + 3.993800386850522*^9, {3.994072760069648*^9, 3.994072777505143*^9}}, + CellLabel-> + "Out[173]=",ExpressionUUID->"2ea0e49b-98d6-4a0c-8288-6e2fbe1cb463"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"f1", "=", "0.417057434"}]], "Input", + CellChangeTimes->{3.9918488488187084`*^9, + 3.9940824136461287`*^9},ExpressionUUID->"bdefbecf-0aaa-4a45-a861-\ 406cf54e52d1"], Cell[BoxData[""], "Input", @@ -30,9 +4897,9 @@ Cell[BoxData[""], "Input", 7bcc4af89c62"], Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", - CellChangeTimes->{ - 3.9918488509977226`*^9},ExpressionUUID->"45ed831b-459a-9a41-990f-\ + RowBox[{"f2", "=", "0.285081564"}]], "Input", + CellChangeTimes->{3.9918488509977226`*^9, 3.994082421009307*^9, + 3.994082475563402*^9},ExpressionUUID->"45ed831b-459a-9a41-990f-\ c079ad464f5d"], Cell[BoxData[""], "Input", @@ -1582,8 +6449,8 @@ f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a "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[{ @@ -2844,9 +7711,72 @@ Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", - RowBox[{"{", "}"}], "]"}]}]], "Input", - CellChangeTimes->{{3.991799458254999*^9, - 3.9917994623413925`*^9}},ExpressionUUID->"0f83f761-b16d-5343-987d-\ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.003836"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.01141"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.018699"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.025527"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.031739"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.037207"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.041837"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.045565"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.048367"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.050245"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.051235"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.051395"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.050806"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.049558"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.047756"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.0455"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.042898"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.040047"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.037039"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.033955"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.030869"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.027838"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.024912"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.022128"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.019516"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.017092"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.014869"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.012849"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.011034"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.009415"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.007985"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.9940828018827744`*^9},ExpressionUUID->"0f83f761-b16d-5343-987d-\ 511095eaf120"], Cell[BoxData[ @@ -9381,13 +14311,18 @@ Cell[BoxData["0.08155763943441016`"], "Output", CellChangeTimes->{3.9913335366395893`*^9}, CellLabel-> "Out[229]=",ExpressionUUID->"3737ba01-5151-874d-9846-1c8b07e42d7a"] -}, Open ]] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input", + CellChangeTimes->{{3.9940825466139717`*^9, 3.994082556581811*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"c0cc8245-14d5-45aa-a33d-f814f47e8678"] }, -WindowSize->{718.5, 729.75}, -WindowMargins->{{0, Automatic}, {Automatic, 0}}, +WindowSize->{714, 876}, +WindowMargins->{{-3, Automatic}, {3, Automatic}}, CellContext->Notebook, -Magnification:>0.8 Inherited, -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->"5cbbdd72-8791-4241-8a7a-ad89ed63e6b0" ] @@ -9402,368 +14337,623 @@ 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, 305, 6, 99, "Input",ExpressionUUID->"46ee9baf-ea38-4cdd-b8d2-6697866c6380"], +Cell[884, 30, 278, 5, 62, "Output",ExpressionUUID->"df56cd66-dc52-488f-a7e2-222800609c30"] }, 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[1199, 40, 253, 5, 55, "Input",ExpressionUUID->"37e66f91-f187-4f59-b4a8-68f043f59aad"], +Cell[1455, 47, 275, 5, 62, "Output",ExpressionUUID->"80289892-ad7a-4dda-9db0-5d8fd6fd36c1"] }, 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[1767, 57, 231, 5, 55, "Input",ExpressionUUID->"66487090-f3d0-45cc-8f44-1b72ce709401"], +Cell[2001, 64, 278, 5, 62, "Output",ExpressionUUID->"13b33187-561d-453c-85bf-2150480479a5"] }, 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[2316, 74, 180, 4, 55, "Input",ExpressionUUID->"1f84ddca-d27e-4c21-96b3-9e46c8babde5"], +Cell[2499, 80, 276, 5, 62, "Output",ExpressionUUID->"f56080e6-6be5-4a3d-b5a2-336475d5a07b"] }, 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[2812, 90, 262, 8, 81, "Input",ExpressionUUID->"b024573c-0436-4fef-9078-b2f1f93edb5d"], +Cell[3077, 100, 279, 5, 62, "Output",ExpressionUUID->"a660b1ad-54ea-4a28-b59b-6c0b305309e7"] }, 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[3393, 110, 136, 3, 55, "Input",ExpressionUUID->"ff07b2d7-60f7-4b14-8455-33dcc579fa48"], +Cell[3532, 115, 280, 5, 62, "Output",ExpressionUUID->"528b833e-8779-486a-9378-d5459997c832"] }, 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[3849, 125, 281, 7, 55, "Input",ExpressionUUID->"d7eebc84-1507-4b94-aeb0-06ba1a7fe2af"], +Cell[4133, 134, 292, 5, 62, "Output",ExpressionUUID->"4b57dd02-8a7a-44f5-8ce9-89033fbea820"] }, 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[4462, 144, 262, 8, 55, "Input",ExpressionUUID->"5bba16fc-7492-444a-8c47-d0fef0e9e724"], +Cell[4727, 154, 280, 5, 62, "Output",ExpressionUUID->"6e178369-8370-45c7-bfdf-7b5d6ca8aa48"] }, 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[5044, 164, 331, 7, 55, "Input",ExpressionUUID->"f5ec54d2-0635-437c-8011-be47e7aaa732"], +Cell[5378, 173, 260, 5, 62, "Output",ExpressionUUID->"ad273ec8-234e-45cc-825c-983eaeddaf50"] }, 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[5675, 183, 229, 5, 55, "Input",ExpressionUUID->"97c238e9-73d4-4a7e-b299-f9076851a055"], +Cell[5907, 190, 260, 5, 62, "Output",ExpressionUUID->"4e786fe9-6e71-4124-8dd7-0b9e0be89510"] }, 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[6204, 200, 133, 3, 55, "Input",ExpressionUUID->"341b1781-3c4d-4fab-9834-3fa9294df147"], +Cell[6340, 205, 276, 5, 62, "Output",ExpressionUUID->"08d7eff9-1330-47c5-9b66-42679ccfe862"] }, 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[6653, 215, 133, 3, 55, "Input",ExpressionUUID->"ee4af430-f24b-40e7-8410-6ff671c99c26"], +Cell[6789, 220, 278, 5, 62, "Output",ExpressionUUID->"fc90407e-40a6-4f53-8642-55423744de78"] }, 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[7104, 230, 561, 20, 148, "Input",ExpressionUUID->"da9439a2-f2d1-45a8-aed2-4190ad60d48d"], +Cell[7668, 252, 296, 5, 62, "Output",ExpressionUUID->"43b3c043-cc77-4c18-9594-2ea9e11f530c"] }, 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[8001, 262, 561, 20, 148, "Input",ExpressionUUID->"f68c0082-03f1-4227-af6e-881d491ef838"], +Cell[8565, 284, 292, 5, 62, "Output",ExpressionUUID->"adb8d0d7-df23-4f23-8552-c65056c1d528"] }, 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[8894, 294, 1592, 51, 639, "Input",ExpressionUUID->"ac163cda-e1c1-4ff2-9d93-f7846cecb903"], +Cell[10489, 347, 292, 5, 62, "Output",ExpressionUUID->"5976bcbe-cfd0-4eb4-89f8-dd787c639744"] }, 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[10818, 357, 1426, 47, 561, "Input",ExpressionUUID->"58ce9701-481d-4806-942d-ceabd604b5a4"], +Cell[12247, 406, 308, 6, 62, "Output",ExpressionUUID->"2be0b447-5e01-47ea-b7fe-6436648450ad"] }, 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[12592, 417, 1426, 47, 561, "Input",ExpressionUUID->"60ec0657-420d-4193-b80a-8c10a90b449e"], +Cell[14021, 466, 312, 6, 62, "Output",ExpressionUUID->"f67510b9-cf52-4561-8ace-0072dfc2631b"] }, 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[14370, 477, 1592, 51, 639, "Input",ExpressionUUID->"6fe94587-552b-4a80-b06b-b7b8c7d2d37a"], +Cell[15965, 530, 288, 5, 62, "Output",ExpressionUUID->"6edcd110-ea30-4836-ac18-549cc719ad4a"] }, 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[16290, 540, 135, 3, 55, "Input",ExpressionUUID->"54a67b2e-154c-4864-a645-9c792d6d55d0"], +Cell[16428, 545, 277, 5, 62, "Output",ExpressionUUID->"fff2c29b-f3cb-4044-a513-bd745a9be60e"] }, 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[16742, 555, 137, 3, 55, "Input",ExpressionUUID->"2f513acc-5c81-4d84-8006-bfc6b6b68105"], +Cell[16882, 560, 282, 5, 62, "Output",ExpressionUUID->"33b81d31-e158-440a-8768-657a31575826"] }, 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[17201, 570, 254, 5, 55, "Input",ExpressionUUID->"8341a2c8-1bd2-4e26-bf07-4be012293a6c"], +Cell[17458, 577, 280, 5, 62, "Output",ExpressionUUID->"8b193aee-7e4a-467d-b7df-22091dddf8b4"] }, 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[17775, 587, 223, 5, 55, "Input",ExpressionUUID->"4c658e0e-3d02-4e4d-bf06-55837f481290"], +Cell[18001, 594, 293, 6, 62, "Output",ExpressionUUID->"79ce8ec0-9529-45c8-b716-39154dc32772"] }, 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[18331, 605, 138, 3, 55, "Input",ExpressionUUID->"0401ee42-b9d5-4435-95f3-6329a31df7f2"], +Cell[18472, 610, 280, 5, 62, "Output",ExpressionUUID->"bc4ae10b-97f4-4f7d-8ad1-96650b9b5e44"] }, 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[18789, 620, 353, 6, 55, "Input",ExpressionUUID->"be9d00c9-0554-4293-a4d1-51d3cd6850d4"], +Cell[19145, 628, 253, 5, 62, "Output",ExpressionUUID->"03af3daa-a42e-4867-984b-aea10f183605"] }, 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[19435, 638, 254, 6, 55, "Input",ExpressionUUID->"8860ca16-13f9-415e-8f31-fcafc37a00d5"], +Cell[19692, 646, 275, 5, 62, "Output",ExpressionUUID->"95cbaa16-e7c2-4da0-bd6b-d02533f16603"] }, 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[20004, 656, 223, 5, 55, "Input",ExpressionUUID->"39a929b0-c2db-44a8-a971-430f57fa7c6d"], +Cell[20230, 663, 275, 5, 62, "Output",ExpressionUUID->"d9f8ca63-e98a-4bbd-87d1-b341c5291d88"] }, 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[20542, 673, 354, 11, 81, "Input",ExpressionUUID->"d7a5d73b-2b59-407a-8051-5d9d16656c7a"], +Cell[20899, 686, 295, 5, 62, "Output",ExpressionUUID->"1abd978d-22fd-477a-9d5c-63c2be3334a8"] }, 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[21231, 696, 354, 11, 81, "Input",ExpressionUUID->"17018113-577e-47d8-a7af-9b0c2d31300d"], +Cell[21588, 709, 310, 6, 62, "Output",ExpressionUUID->"a0176ae0-0612-423c-913a-09e6d59b7e7a"] }, 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[21935, 720, 998, 27, 488, "Input",ExpressionUUID->"2446f182-7cd4-43d4-ad6e-32e05dadb042"], +Cell[22936, 749, 294, 5, 62, "Output",ExpressionUUID->"76a28c02-4b29-4207-8eed-188b7aaa9c7c"] }, 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[23267, 759, 203, 4, 55, "Input",ExpressionUUID->"8127b2ee-382a-4abf-a064-b74a76aabc24"], +Cell[23473, 765, 276, 5, 62, "Output",ExpressionUUID->"0b4654ae-a7f4-4d6c-be8c-4f4d72225713"] }, 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[23786, 775, 332, 6, 55, "Input",ExpressionUUID->"de983083-5236-41af-87ee-cb92112ec7ed"], +Cell[24121, 783, 262, 5, 62, "Output",ExpressionUUID->"bb261691-73f1-4d8b-9a07-9f8b7038484c"] +}, Open ]], +Cell[24398, 791, 177, 3, 55, "Input",ExpressionUUID->"c164eff1-4a6e-4e0f-96b4-50747e3c9aa4"], +Cell[CellGroupData[{ +Cell[24600, 798, 332, 6, 55, "Input",ExpressionUUID->"593cb70e-8547-4c0c-82b1-ae66acf94cab"], +Cell[24935, 806, 255, 5, 62, "Output",ExpressionUUID->"6a1ae5f3-dd75-4986-b6e3-c16d4415b47c"] +}, Open ]], +Cell[25205, 814, 177, 3, 55, "Input",ExpressionUUID->"117c190d-fb54-4f07-9373-18e88054d2a2"], +Cell[CellGroupData[{ +Cell[25407, 821, 332, 6, 55, "Input",ExpressionUUID->"b5eaa0a8-22e9-48c7-a113-1562d7bf655f"], +Cell[25742, 829, 253, 5, 62, "Output",ExpressionUUID->"ad7d7bbc-0e78-49b5-b1f0-7353ce16922a"] +}, Open ]], +Cell[26010, 837, 177, 3, 55, "Input",ExpressionUUID->"ba67e9a2-b20e-4129-a3a9-d47cd96e2fe8"], +Cell[CellGroupData[{ +Cell[26212, 844, 356, 6, 55, "Input",ExpressionUUID->"9bfaf618-816c-4ce6-b0d7-cc5be285b598"], +Cell[26571, 852, 251, 5, 62, "Output",ExpressionUUID->"0a372bca-0c4a-4cbd-984b-9a047d8b2d3f"] +}, Open ]], +Cell[26837, 860, 175, 3, 55, "Input",ExpressionUUID->"3b391916-83c1-4822-8db6-6d087142d483"], +Cell[CellGroupData[{ +Cell[27037, 867, 304, 6, 55, "Input",ExpressionUUID->"e5ff2d12-564a-4e06-a9af-82867595a7fc"], +Cell[27344, 875, 258, 5, 62, "Output",ExpressionUUID->"ce20665e-0d17-4596-8b5a-ea8de4b3dc5b"] +}, Open ]], +Cell[27617, 883, 175, 3, 55, "Input",ExpressionUUID->"cee6ce0a-2c7a-41a3-a9c3-ca400d88247e"], +Cell[CellGroupData[{ +Cell[27817, 890, 310, 6, 55, "Input",ExpressionUUID->"437ae41f-a8e2-40d0-b72f-06a6954e0db7"], +Cell[28130, 898, 258, 5, 62, "Output",ExpressionUUID->"f359c36e-4f1a-47ff-8a1f-7ca8dfdb72de"] +}, Open ]], +Cell[28403, 906, 177, 3, 55, "Input",ExpressionUUID->"e308565d-68e5-4fd7-a842-22ecc7f68d40"], +Cell[CellGroupData[{ +Cell[28605, 913, 310, 6, 55, "Input",ExpressionUUID->"00627439-4a18-4f7a-8faa-b888aceb263f"], +Cell[28918, 921, 259, 5, 62, "Output",ExpressionUUID->"c237c864-5525-4bea-bac2-43c2d712c99d"] +}, Open ]], +Cell[29192, 929, 176, 3, 55, "Input",ExpressionUUID->"49286e54-260b-4511-b13e-44ef0fd1186d"], +Cell[CellGroupData[{ +Cell[29393, 936, 282, 5, 55, "Input",ExpressionUUID->"18a6f425-c577-4036-886c-93340e3eb7d7"], +Cell[29678, 943, 256, 5, 62, "Output",ExpressionUUID->"845798e1-f7dc-408d-adf4-08a2a7d14c59"] +}, Open ]], +Cell[29949, 951, 179, 3, 55, "Input",ExpressionUUID->"a0c8fde8-b575-42d2-8b39-ef7141a4db7f"], +Cell[CellGroupData[{ +Cell[30153, 958, 19813, 486, 7166, "Input",ExpressionUUID->"47aa838b-a52b-4efd-862e-f0bd51c69cbf"], +Cell[49969, 1446, 295, 5, 62, "Output",ExpressionUUID->"d7b67e4e-d0d4-41f0-9b75-4cd8c4c6a944"] }, 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[50301, 1456, 19752, 490, 7205, "Input",ExpressionUUID->"234f4524-0def-4ff5-bea8-480a5b7c9661"], +Cell[70056, 1948, 294, 5, 62, "Output",ExpressionUUID->"31eb9017-7100-46de-bbc1-07cd8d2dd124"] }, 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[70387, 1958, 19752, 484, 7204, "Input",ExpressionUUID->"47c18f6b-3b32-4b94-bfe5-9ff6556ee0e1"], +Cell[90142, 2444, 305, 6, 62, "Output",ExpressionUUID->"35921106-03a3-4c73-951f-c70ff8094557"] }, 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[90484, 2455, 22538, 554, 8281, "Input",ExpressionUUID->"4eb9645d-d6fe-45a3-8de9-b5c23cc07269"], +Cell[113025, 3011, 311, 6, 62, "Output",ExpressionUUID->"d2c7fb2b-a0b9-4d15-a6ac-adde1fc297e4"] }, 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[113373, 3022, 22539, 554, 8281, "Input",ExpressionUUID->"f0be3295-346c-4258-9c55-daf5fdf477c4"], +Cell[135915, 3578, 310, 6, 62, "Output",ExpressionUUID->"674d2fa6-6b87-4ec9-b49a-5d3b74bd4e3a"] }, 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[136262, 3589, 25495, 627, 9401, "Input",ExpressionUUID->"3f2f2d2d-48a0-4d8d-a000-9b730dd74a56"], +Cell[161760, 4218, 315, 6, 62, "Output",ExpressionUUID->"b54527dd-b76e-465a-bc10-bdce5827f4d4"] }, 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[162112, 4229, 134, 3, 55, "Input",ExpressionUUID->"30776b29-6c07-4adf-9310-f7e6db2b3278"], +Cell[162249, 4234, 273, 5, 62, "Output",ExpressionUUID->"71f13eb1-ce13-4e70-9769-7819cd3942ff"] }, 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[162559, 4244, 134, 3, 55, "Input",ExpressionUUID->"1dbb6e9f-e397-4d26-a577-32961d6f4256"], +Cell[162696, 4249, 275, 5, 62, "Output",ExpressionUUID->"7b97e034-d207-4315-923e-b524c2e07739"] }, 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[163008, 4259, 1148, 40, 628, "Input",ExpressionUUID->"c7c4a410-54e6-4538-9085-92cacdc46841"], +Cell[164159, 4301, 295, 5, 62, "Output",ExpressionUUID->"c4dbdb89-4923-42dc-9c35-cb1fa47580a8"] }, 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[164491, 4311, 1045, 36, 625, "Input",ExpressionUUID->"ad215961-7d84-4562-ad89-4f5edd191601"], +Cell[165539, 4349, 308, 6, 62, "Output",ExpressionUUID->"074514b1-9dfa-4b7a-9634-371e6999d5e8"] }, 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[165884, 4360, 1148, 40, 628, "Input",ExpressionUUID->"d4a9ce26-a31e-45fb-9327-c3c276da9451"], +Cell[167035, 4402, 290, 5, 62, "Output",ExpressionUUID->"608c2e85-8f10-4b3f-958e-41d00cf6084e"] }, 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[167362, 4412, 112, 2, 55, "Input",ExpressionUUID->"df7fd3c4-8909-4036-af2f-eba46922c214"], +Cell[167477, 4416, 298, 5, 62, "Output",ExpressionUUID->"d90a4236-559c-4f29-a298-c5a608e5fd30"] }, 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[167812, 4426, 112, 2, 55, "Input",ExpressionUUID->"c9ba7fa7-cf4a-43d6-94c7-a2d36119d56f"], +Cell[167927, 4430, 312, 6, 62, "Output",ExpressionUUID->"018585c4-8503-4248-bf8e-eeae350f2a3e"] }, 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[168276, 4441, 112, 2, 55, "Input",ExpressionUUID->"423057bf-e0e4-49f6-8fa6-a39a5435d404"], +Cell[168391, 4445, 316, 6, 62, "Output",ExpressionUUID->"5d32031b-9576-4b9e-8678-a0cb1eefa590"] }, 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[168744, 4456, 112, 2, 55, "Input",ExpressionUUID->"fe54588b-bd36-4428-a80c-48ca368ab726"], +Cell[168859, 4460, 289, 5, 62, "Output",ExpressionUUID->"250dd489-76b9-43a0-854b-eaba76272690"] }, 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[169185, 4470, 111, 2, 55, "Input",ExpressionUUID->"df4f346b-67c7-4ef1-b26f-e00b950ea088"], +Cell[169299, 4474, 298, 5, 62, "Output",ExpressionUUID->"1d038270-697a-4e92-ac23-46117016a939"] }, 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[169634, 4484, 111, 2, 55, "Input",ExpressionUUID->"47c86b3a-e683-4b32-bf88-88e029c0fd6f"], +Cell[169748, 4488, 297, 5, 62, "Output",ExpressionUUID->"819ef6b7-19fe-43f1-aa86-3e18e7243c5c"] }, 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[170082, 4498, 501, 17, 182, "Input",ExpressionUUID->"077fc7c8-cb4a-4d7e-bfce-557bfb6b839e"], +Cell[170586, 4517, 311, 6, 62, "Output",ExpressionUUID->"5a1f1778-a566-4dbb-b263-ca94c5aee4d9"] }, 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[170934, 4528, 501, 17, 182, "Input",ExpressionUUID->"7c5da625-d577-4bfc-8b40-b5d1e0106c80"], +Cell[171438, 4547, 308, 6, 62, "Output",ExpressionUUID->"94008485-336c-4c9e-b9df-c4e414acccc3"] }, 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[171783, 4558, 1792, 61, 1100, "Input",ExpressionUUID->"4449b7a5-11bd-4513-9ae9-69d3171bd40e"], +Cell[173578, 4621, 291, 5, 62, "Output",ExpressionUUID->"92401a1d-768d-439c-bb5a-306f54e21608"] }, 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[173906, 4631, 1105, 37, 667, "Input",ExpressionUUID->"f93161ec-a0b1-4878-b6e6-7d05eb0baf83"], +Cell[175014, 4670, 311, 6, 62, "Output",ExpressionUUID->"e0f59c46-d252-42f3-a5eb-11f282b531e5"] }, 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[175362, 4681, 1822, 62, 1100, "Input",ExpressionUUID->"ea1a516b-645f-4cc6-8301-e5d46b198d3d"], +Cell[177187, 4745, 290, 5, 62, "Output",ExpressionUUID->"d7d1fcbd-0d2c-40af-9e1f-84de7aa4da87"] }, 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[177514, 4755, 1714, 56, 758, "Input",ExpressionUUID->"db382234-9f26-450e-a668-667d07445395"], +Cell[179231, 4813, 294, 5, 62, "Output",ExpressionUUID->"ab840852-b91a-428e-b52e-bf4e042034d7"] }, 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[179562, 4823, 1635, 54, 451, "Input",ExpressionUUID->"53f34036-74f2-433b-a5f3-57b3019bc920"], +Cell[181200, 4879, 292, 5, 62, "Output",ExpressionUUID->"2ea0e49b-98d6-4a0c-8288-6e2fbe1cb463"] +}, Open ]], +Cell[181507, 4887, 188, 4, 55, "Input",ExpressionUUID->"bdefbecf-0aaa-4a45-a861-406cf54e52d1"], +Cell[181698, 4893, 154, 3, 55, "Input",ExpressionUUID->"a5161e25-7247-124f-8601-7bcc4af89c62"], +Cell[181855, 4898, 208, 4, 55, "Input",ExpressionUUID->"45ed831b-459a-9a41-990f-c079ad464f5d"], +Cell[182066, 4904, 154, 3, 55, "Input",ExpressionUUID->"bc946e22-fdd1-8b4b-8e5a-11f4dcb03e07"], +Cell[CellGroupData[{ +Cell[182245, 4911, 1301, 43, 318, "Input",ExpressionUUID->"78018a61-7851-fe4d-b32f-cb68a3158f29"], +Cell[183549, 4956, 178, 3, 62, "Output",ExpressionUUID->"1658422d-0016-324a-9843-942f5453a9c7"] }, 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"] -}, Open ]], -Cell[376133, 8866, 209, 5, 56, "Input",ExpressionUUID->"f380af60-a605-c546-a4c8-b989835aa113"], -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[183764, 4964, 910, 31, 224, "Input",ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-7221ff813b6d"], +Cell[184677, 4997, 175, 3, 62, "Output",ExpressionUUID->"d307b81f-3de4-ab46-9ef8-af5c6bc7c05b"] }, 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[184889, 5005, 887, 30, 259, "Input",ExpressionUUID->"f22831a7-63b7-f444-8e3a-fa370a62ac27"], +Cell[185779, 5037, 176, 3, 62, "Output",ExpressionUUID->"866e2a7a-c08a-d14a-ae9c-f63fbc316d85"] }, 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[185992, 5045, 558, 19, 100, "Input",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"], +Cell[186553, 5066, 172, 3, 62, "Output",ExpressionUUID->"bba1ae64-a2a6-4745-b870-cca298627f62"] }, 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[186762, 5074, 623, 21, 100, "Input",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"], +Cell[187388, 5097, 172, 3, 62, "Output",ExpressionUUID->"2d9a2576-51c1-274e-bb6b-3d0a12d8f955"] }, 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[187597, 5105, 170, 5, 105, "Input",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"], +Cell[187770, 5112, 172, 3, 62, "Output",ExpressionUUID->"55e80360-690f-0444-ac68-221fe09ddfd5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187979, 5120, 170, 5, 104, "Input",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"], +Cell[188152, 5127, 171, 3, 62, "Output",ExpressionUUID->"ffa83e52-e057-8c44-be5c-a869714a425e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188360, 5135, 181, 5, 81, "Input",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"], +Cell[188544, 5142, 170, 3, 62, "Output",ExpressionUUID->"daa1af48-56b9-b549-9a5e-fd35e4ace383"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188751, 5150, 181, 5, 81, "Input",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"], +Cell[188935, 5157, 172, 3, 62, "Output",ExpressionUUID->"045de583-e60b-c94a-9184-d9a46a689c39"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189144, 5165, 6055, 185, 2152, "Input",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"], +Cell[195202, 5352, 172, 3, 62, "Output",ExpressionUUID->"cdaeef85-4599-4144-88b1-c12ccb960e67"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195411, 5360, 368, 9, 79, "Input",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"], +Cell[195782, 5371, 171, 3, 62, "Output",ExpressionUUID->"c4da64fa-539e-454c-a7bc-f5a50d741b33"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195990, 5379, 6122, 187, 2152, "Input",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"], +Cell[202115, 5568, 173, 3, 62, "Output",ExpressionUUID->"a0ddd9ec-0ad8-da40-93c1-f69a540fecbb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[202325, 5576, 368, 9, 79, "Input",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"], +Cell[202696, 5587, 170, 3, 62, "Output",ExpressionUUID->"bb399ae8-0971-524b-99dd-45c3d83aff90"] +}, Open ]], +Cell[CellGroupData[{ +Cell[202903, 5595, 2663, 88, 1067, "Input",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"], +Cell[205569, 5685, 171, 3, 62, "Output",ExpressionUUID->"8522d772-b29b-b14d-a623-3ad00b3d8250"] +}, Open ]], +Cell[CellGroupData[{ +Cell[205777, 5693, 2603, 85, 967, "Input",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"], +Cell[208383, 5780, 173, 3, 62, "Output",ExpressionUUID->"d88ed30c-77e3-0245-b8d9-3b803c379fb2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[208593, 5788, 3712, 118, 1454, "Input",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"], +Cell[212308, 5908, 174, 3, 62, "Output",ExpressionUUID->"5d391006-3707-3d44-a060-c06781a98edd"] +}, Open ]], +Cell[212497, 5914, 138, 3, 55, "Input",ExpressionUUID->"714abd93-e0d1-eb45-a9e1-7a2f5d020eb1"], +Cell[CellGroupData[{ +Cell[212660, 5921, 2054, 59, 409, "Input",ExpressionUUID->"137c38a2-741c-bd43-b6d9-c0135e32eaf8"], +Cell[214717, 5982, 557, 12, 145, "Message",ExpressionUUID->"055bf31f-37b2-724c-aeef-d922f7a205c7"], +Cell[215277, 5996, 559, 12, 109, "Message",ExpressionUUID->"eeead3e4-54a5-7c4d-95b2-292dcdbe105a"], +Cell[215839, 6010, 561, 12, 109, "Message",ExpressionUUID->"87e34a07-7a78-bf46-b222-6e72d11fd18d"], +Cell[216403, 6024, 458, 10, 40, "Message",ExpressionUUID->"1cf9faa5-3432-3349-b45a-58344623fc63"], +Cell[216864, 6036, 172, 3, 62, "Output",ExpressionUUID->"acb58738-85fd-0f40-b8fa-3a779aa79369"] +}, Open ]], +Cell[CellGroupData[{ +Cell[217073, 6044, 2052, 59, 731, "Input",ExpressionUUID->"9b196534-2ca5-e54b-8014-b0ab3cd09ac2"], +Cell[219128, 6105, 555, 12, 245, "Message",ExpressionUUID->"6fb03e9c-623b-b24d-bccd-c05b2662537c"], +Cell[219686, 6119, 559, 12, 235, "Message",ExpressionUUID->"410ed293-2b04-a346-b193-5e006759c884"], +Cell[220248, 6133, 561, 12, 245, "Message",ExpressionUUID->"9e59cf72-2df3-6741-910e-ddcc2125aa8b"], +Cell[220812, 6147, 458, 10, 81, "Message",ExpressionUUID->"6f223de4-f4b9-0a4c-b3b3-f489f4259713"], +Cell[221273, 6159, 172, 3, 62, "Output",ExpressionUUID->"d8300689-0813-6149-9a7f-c358ba826aac"] +}, Open ]], +Cell[CellGroupData[{ +Cell[221482, 6167, 1936, 53, 506, "Input",ExpressionUUID->"124cd7db-c537-8943-bef2-1a154ab4a709"], +Cell[223421, 6222, 20458, 382, 327, "Output",ExpressionUUID->"a7dc53c9-dabc-784f-a94a-f1fb7ab10c84"] +}, Open ]], +Cell[CellGroupData[{ +Cell[243916, 6609, 2094, 60, 782, "Input",ExpressionUUID->"5a7f9400-1446-9746-a463-bade8ae5c530"], +Cell[246013, 6671, 500, 11, 182, "Message",ExpressionUUID->"eede1010-35b4-8e43-8206-4c3ebae733c0"], +Cell[246516, 6684, 503, 11, 182, "Message",ExpressionUUID->"01174b23-a2bd-8e4e-90f5-af7e82df101e"], +Cell[247022, 6697, 506, 11, 182, "Message",ExpressionUUID->"ec7385ad-4809-8947-afea-81e4a95fc523"], +Cell[247531, 6710, 455, 10, 81, "Message",ExpressionUUID->"4176ecfe-3aff-0f4b-824e-b07e40312968"], +Cell[247989, 6722, 57321, 985, 318, "Output",ExpressionUUID->"6ef8802e-494c-9d4c-94ba-3ee854b2b684"] +}, Open ]], +Cell[305325, 7710, 2455, 69, 677, "Input",ExpressionUUID->"0f83f761-b16d-5343-987d-511095eaf120"], +Cell[307783, 7781, 209, 5, 55, "Input",ExpressionUUID->"8cdd4baa-f7c9-104e-b978-89d3982ba28f"], +Cell[CellGroupData[{ +Cell[308017, 7790, 217, 7, 90, "Input",ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-3438788b15d6"], +Cell[308237, 7799, 172, 3, 62, "Output",ExpressionUUID->"bea5e069-6c61-f84f-be94-f0a852e2aafc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[308446, 7807, 1816, 53, 684, "Input",ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-0e75880d5d98"], +Cell[310265, 7862, 508, 11, 182, "Message",ExpressionUUID->"3a61d965-a130-7645-90c6-a5061b94ec40"], +Cell[310776, 7875, 508, 11, 182, "Message",ExpressionUUID->"c3c0d10c-aa86-9b43-bfa9-71bc099863f1"], +Cell[311287, 7888, 511, 11, 182, "Message",ExpressionUUID->"321e1ff2-86f6-7244-895a-0b744ecd0cf1"], +Cell[311801, 7901, 456, 10, 71, "Message",ExpressionUUID->"43e0f399-4fd6-3f4d-a3a8-ef137bebb344"], +Cell[312260, 7913, 26000, 472, 322, "Output",ExpressionUUID->"4e674430-b3ee-f841-98e7-88500054cf35"] +}, Open ]], +Cell[CellGroupData[{ +Cell[338297, 8390, 1616, 48, 526, "Input",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"], +Cell[339916, 8440, 584, 12, 235, "Message",ExpressionUUID->"6dc439d9-4983-a74d-a424-1e627442f8ec"], +Cell[340503, 8454, 588, 12, 235, "Message",ExpressionUUID->"cbbb0a14-cac3-b246-be52-03554c6d0159"], +Cell[341094, 8468, 592, 12, 267, "Message",ExpressionUUID->"afaf59d8-5c82-5843-ba76-5dd1061c22bd"], +Cell[341689, 8482, 456, 10, 71, "Message",ExpressionUUID->"370cb98e-1084-6940-9e45-78218dc7334e"], +Cell[342148, 8494, 169, 3, 62, "Output",ExpressionUUID->"49c1839c-f9a0-514a-9803-38aedd206508"] +}, Open ]], +Cell[CellGroupData[{ +Cell[342354, 8502, 2249, 64, 731, "Input",ExpressionUUID->"eb852908-4d60-c84e-80d9-a57fd4094f56"], +Cell[344606, 8568, 555, 12, 245, "Message",ExpressionUUID->"e4da2c2e-bc79-8048-aec6-e0a36c5fd50c"], +Cell[345164, 8582, 557, 12, 235, "Message",ExpressionUUID->"ff48d9a8-4f15-044a-8d17-d378e560badf"], +Cell[345724, 8596, 563, 12, 235, "Message",ExpressionUUID->"d97cd881-ad70-0043-811a-b6650c7bff48"], +Cell[346290, 8610, 458, 10, 71, "Message",ExpressionUUID->"dc1ff9fc-c736-e742-9bd5-f36a7c2c6c53"], +Cell[346751, 8622, 173, 3, 62, "Output",ExpressionUUID->"207fc206-b3fa-1a42-8709-2c8aaaf304b0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[346961, 8630, 2223, 64, 283, "Input",ExpressionUUID->"d11037f6-09e7-b44f-8a1d-47c1a485c608"], +Cell[349187, 8696, 555, 12, 145, "Message",ExpressionUUID->"079487fc-3029-b74e-ba27-a61cf73f30a2"], +Cell[349745, 8710, 557, 12, 109, "Message",ExpressionUUID->"6fef6245-eafb-7343-8d9c-509c47662fd8"], +Cell[350305, 8724, 561, 12, 109, "Message",ExpressionUUID->"caeb451e-fce0-a24e-bdb2-20066bf32e23"], +Cell[350869, 8738, 458, 10, 40, "Message",ExpressionUUID->"b9263c45-06ba-d24d-a71c-72933a67fb86"], +Cell[351330, 8750, 173, 3, 62, "Output",ExpressionUUID->"fdc26e81-7e73-a54e-8b48-fba744fd21b7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[351540, 8758, 2221, 64, 283, "Input",ExpressionUUID->"431dd2fa-6331-2449-bc19-0d79e6ed8953"], +Cell[353764, 8824, 557, 12, 145, "Message",ExpressionUUID->"3270b87e-9743-ef45-96a4-2ce51373a203"], +Cell[354324, 8838, 557, 12, 245, "Message",ExpressionUUID->"b5a7511b-af1a-b946-83d4-1951541611b2"], +Cell[354884, 8852, 563, 12, 245, "Message",ExpressionUUID->"55836c22-e074-4442-9aa3-8442534fcabe"], +Cell[355450, 8866, 456, 10, 81, "Message",ExpressionUUID->"18c3aa33-3860-5f41-a9ac-8cd3806fef7e"], +Cell[355909, 8878, 173, 3, 62, "Output",ExpressionUUID->"62510f7e-bac9-8b4e-86ce-182bdd5d56b9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[356119, 8886, 213, 6, 88, "Input",ExpressionUUID->"8c5df121-e0b9-a146-bc34-b231aa8028b9"], +Cell[356335, 8894, 171, 3, 62, "Output",ExpressionUUID->"5c7cd89e-20ed-8d44-83bb-e2e46deab974"] +}, Open ]], +Cell[356521, 8900, 245, 5, 55, "Input",ExpressionUUID->"831a27fc-89ff-e041-97f1-0ec5d19a7879"], +Cell[CellGroupData[{ +Cell[356791, 8909, 558, 19, 100, "Input",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"], +Cell[357352, 8930, 172, 3, 62, "Output",ExpressionUUID->"e3d357af-87e3-0047-959d-fa0139c5bfc4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[357561, 8938, 170, 5, 105, "Input",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"], +Cell[357734, 8945, 173, 3, 62, "Output",ExpressionUUID->"93dda073-df54-8f4e-afab-666de5caf927"] +}, Open ]], +Cell[CellGroupData[{ +Cell[357944, 8953, 181, 5, 81, "Input",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"], +Cell[358128, 8960, 173, 3, 62, "Output",ExpressionUUID->"db5e4010-00e8-574c-8b32-365b8147ba2d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[358338, 8968, 6055, 185, 2152, "Input",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"], +Cell[364396, 9155, 172, 3, 62, "Output",ExpressionUUID->"6f5204f9-42a7-0343-a2cd-76cd7618ba90"] +}, Open ]], +Cell[CellGroupData[{ +Cell[364605, 9163, 368, 9, 79, "Input",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"], +Cell[364976, 9174, 170, 3, 62, "Output",ExpressionUUID->"732feb85-572c-6a40-bb32-258aa6fbb12e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[365183, 9182, 6122, 187, 2152, "Input",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"], +Cell[371308, 9371, 175, 3, 62, "Output",ExpressionUUID->"330db3dd-df0f-5e4b-9e84-63e3da6287e1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[371520, 9379, 368, 9, 79, "Input",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"], +Cell[371891, 9390, 172, 3, 62, "Output",ExpressionUUID->"8403ef7a-5add-ea45-a6c0-a6dc70f27bb8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[372100, 9398, 2663, 88, 1067, "Input",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"], +Cell[374766, 9488, 173, 3, 62, "Output",ExpressionUUID->"aac00e4f-5d2b-4341-8ca5-f49d9556633e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[374976, 9496, 2603, 85, 967, "Input",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"], +Cell[377582, 9583, 171, 3, 62, "Output",ExpressionUUID->"eeee5a47-9547-7746-bb79-936b40364d7e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[377790, 9591, 3712, 118, 1454, "Input",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"], +Cell[381505, 9711, 174, 3, 62, "Output",ExpressionUUID->"a1352554-6686-ff4e-be47-04b42c29b000"] +}, Open ]], +Cell[CellGroupData[{ +Cell[381716, 9719, 2052, 59, 731, "Input",ExpressionUUID->"220bdeed-2e17-e94c-a7b0-3e066daf15d7"], +Cell[383771, 9780, 578, 12, 141, "Message",ExpressionUUID->"c854318c-035d-f249-9a8c-a9608e137436"], +Cell[384352, 9794, 583, 12, 141, "Message",ExpressionUUID->"fc1eef58-3b5b-8c4c-bab7-60a3682b1d45"], +Cell[384938, 9808, 586, 12, 141, "Message",ExpressionUUID->"2e134293-05b5-624c-b206-73b12a84c5ea"], +Cell[385527, 9822, 456, 10, 40, "Message",ExpressionUUID->"2cac2ff4-fc29-a048-9fae-70918ed41968"], +Cell[385986, 9834, 170, 3, 62, "Output",ExpressionUUID->"2dcc4178-0b8d-9f48-a040-f2fc5cb8eacd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[386193, 9842, 2054, 59, 409, "Input",ExpressionUUID->"b8791a07-33fe-8c4f-9c59-dd23af9a4471"], +Cell[388250, 9903, 576, 12, 141, "Message",ExpressionUUID->"ac808335-5ecc-ee4f-a7ac-d889b0bf6e05"], +Cell[388829, 9917, 581, 12, 141, "Message",ExpressionUUID->"36b7d718-32d9-a441-b985-1fed8f0f10fd"], +Cell[389413, 9931, 586, 12, 245, "Message",ExpressionUUID->"ab31a569-fab4-434a-9c76-33aa9b59b117"], +Cell[390002, 9945, 458, 10, 81, "Message",ExpressionUUID->"4c41e56d-f5cb-b94c-b99a-06e306247825"], +Cell[390463, 9957, 172, 3, 62, "Output",ExpressionUUID->"5ec230cf-b87d-3e41-bc7f-1f3f2ff283ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[390672, 9965, 2028, 55, 506, "Input",ExpressionUUID->"3fe6e7f1-b44a-234f-af77-3cf1fdaf28d9"], +Cell[392703, 10022, 20011, 378, 331, "Output",ExpressionUUID->"3d0b6a0d-2dc0-3b48-b8dd-35b5149ee27f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[412751, 10405, 2115, 60, 782, "Input",ExpressionUUID->"ab29778f-f183-804b-b871-4070462057d7"], +Cell[414869, 10467, 501, 11, 109, "Message",ExpressionUUID->"abf9cb8a-fbbf-7a43-abcd-82efb32ab217"], +Cell[415373, 10480, 503, 11, 109, "Message",ExpressionUUID->"8fcd13e3-81e0-3446-8882-6e42ca5c0bd1"], +Cell[415879, 10493, 505, 11, 109, "Message",ExpressionUUID->"2c23ed60-41ee-5841-90ce-1d26cb02619d"], +Cell[416387, 10506, 456, 10, 40, "Message",ExpressionUUID->"fa59df63-76ff-4147-acd0-9eeaf33582c5"], +Cell[416846, 10518, 32548, 580, 319, "Output",ExpressionUUID->"4ab96fbd-92e0-8a42-8552-436bb2f629b6"] +}, Open ]], +Cell[449409, 11101, 209, 5, 55, "Input",ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-6bd251746ea6"], +Cell[CellGroupData[{ +Cell[449643, 11110, 1616, 48, 526, "Input",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"], +Cell[451262, 11160, 596, 12, 276, "Message",ExpressionUUID->"3273c967-a8f4-6b46-8292-dfd9dc69311d"], +Cell[451861, 11174, 599, 12, 267, "Message",ExpressionUUID->"cf5457ae-7056-8a4b-afa3-32b95e922259"], +Cell[452463, 11188, 605, 12, 266, "Message",ExpressionUUID->"7ef79528-2ca4-544d-8bbf-e4564533e47a"], +Cell[453071, 11202, 456, 10, 40, "Message",ExpressionUUID->"3f59bf2a-0193-1b41-9437-359e4e291f20"], +Cell[453530, 11214, 170, 3, 62, "Output",ExpressionUUID->"6c94ff26-1921-5a44-a360-bda32f564938"] +}, Open ]], +Cell[CellGroupData[{ +Cell[453737, 11222, 2247, 64, 399, "Input",ExpressionUUID->"5a0cc4bb-b2b0-c64c-958a-7a397847208f"], +Cell[455987, 11288, 580, 12, 141, "Message",ExpressionUUID->"33abd0dc-5204-1046-87c9-87cecac6793f"], +Cell[456570, 11302, 583, 12, 141, "Message",ExpressionUUID->"a3e9f415-30c2-d04b-a044-33980d6ef6e9"], +Cell[457156, 11316, 584, 12, 141, "Message",ExpressionUUID->"3dddc3ab-89f8-ab44-a85d-f5130722f198"], +Cell[457743, 11330, 458, 10, 40, "Message",ExpressionUUID->"a3229605-5a49-544b-bbf6-cc14edd6c936"], +Cell[458204, 11342, 170, 3, 62, "Output",ExpressionUUID->"2f0f984a-e452-7f46-a8f1-230feda2f30b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[458411, 11350, 2219, 64, 283, "Input",ExpressionUUID->"22b50200-0b82-dc47-9932-f1f0210d6caf"], +Cell[460633, 11416, 580, 12, 141, "Message",ExpressionUUID->"1a479ad6-386a-fb47-95e4-f8a3ab25eccc"], +Cell[461216, 11430, 583, 12, 141, "Message",ExpressionUUID->"c45746b8-a614-4245-b137-e38355d43857"], +Cell[461802, 11444, 586, 12, 141, "Message",ExpressionUUID->"7ef9264b-fdf5-8e46-a39d-9d01a56d9fbc"], +Cell[462391, 11458, 458, 10, 40, "Message",ExpressionUUID->"424cc344-67bf-5349-951a-e3d6864f9105"], +Cell[462852, 11470, 171, 3, 62, "Output",ExpressionUUID->"d6fb3ea3-39a2-5b42-96f2-520a52fd0d9f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[463060, 11478, 2221, 64, 283, "Input",ExpressionUUID->"8a5105db-666c-444e-9451-d3e8d1574bcd"], +Cell[465284, 11544, 580, 12, 245, "Message",ExpressionUUID->"7c3b7078-d094-2344-a157-26438223ef0f"], +Cell[465867, 11558, 583, 12, 245, "Message",ExpressionUUID->"a4aaa457-e588-7a42-9066-29e614b18d91"], +Cell[466453, 11572, 584, 12, 245, "Message",ExpressionUUID->"8e9701ac-9508-2346-b853-523f9f269328"], +Cell[467040, 11586, 456, 10, 81, "Message",ExpressionUUID->"062aadbd-03a7-1f42-b815-d27ae6ddc83e"], +Cell[467499, 11598, 170, 3, 62, "Output",ExpressionUUID->"484b070c-cc4a-7049-8a18-4aa38bea8cd9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[467706, 11606, 213, 6, 88, "Input",ExpressionUUID->"d0efa798-230b-fa46-b413-76bfd8e40ccb"], +Cell[467922, 11614, 174, 3, 62, "Output",ExpressionUUID->"8b85bd5c-200a-cc44-9db5-38c5efe118ad"] +}, Open ]], +Cell[468111, 11620, 247, 5, 55, "Input",ExpressionUUID->"f842f74e-f562-934a-9011-6604b8708636"], +Cell[CellGroupData[{ +Cell[468383, 11629, 558, 19, 100, "Input",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"], +Cell[468944, 11650, 173, 3, 62, "Output",ExpressionUUID->"ddfcd06d-5644-fb4b-b789-815d8db71ce6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[469154, 11658, 170, 5, 105, "Input",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"], +Cell[469327, 11665, 173, 3, 62, "Output",ExpressionUUID->"96020250-b44c-694d-acbe-eb8b1c066e25"] +}, Open ]], +Cell[CellGroupData[{ +Cell[469537, 11673, 181, 5, 81, "Input",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"], +Cell[469721, 11680, 171, 3, 62, "Output",ExpressionUUID->"a3cad59a-97f1-1b4b-a0d3-0fcbb55e71c0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[469929, 11688, 6055, 185, 2152, "Input",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"], +Cell[475987, 11875, 173, 3, 62, "Output",ExpressionUUID->"221426ad-3f43-834a-96dc-c22bf0ed0e23"] +}, Open ]], +Cell[CellGroupData[{ +Cell[476197, 11883, 368, 9, 79, "Input",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"], +Cell[476568, 11894, 172, 3, 62, "Output",ExpressionUUID->"54964f1a-0c74-5b45-a5d4-8b241885bf9d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[476777, 11902, 6122, 187, 2152, "Input",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"], +Cell[482902, 12091, 175, 3, 62, "Output",ExpressionUUID->"637b4460-08e1-2c47-b235-20b94d0413ac"] +}, Open ]], +Cell[CellGroupData[{ +Cell[483114, 12099, 368, 9, 79, "Input",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"], +Cell[483485, 12110, 171, 3, 62, "Output",ExpressionUUID->"55b9de35-b316-8a4b-b6c7-df263fdc91bc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[483693, 12118, 2663, 88, 1067, "Input",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"], +Cell[486359, 12208, 173, 3, 62, "Output",ExpressionUUID->"fd2a841e-0c22-9146-97fa-d652989dadbe"] +}, Open ]], +Cell[CellGroupData[{ +Cell[486569, 12216, 2603, 85, 967, "Input",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"], +Cell[489175, 12303, 171, 3, 62, "Output",ExpressionUUID->"94bd0f60-5228-9b42-83fe-23a478d55c7c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[489383, 12311, 3712, 118, 1454, "Input",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"], +Cell[493098, 12431, 174, 3, 62, "Output",ExpressionUUID->"fe51f341-63c7-8f47-9357-139cd58159ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[493309, 12439, 2054, 59, 731, "Input",ExpressionUUID->"1dec41a6-6752-2041-9d38-804123b5ccd0"], +Cell[495366, 12500, 572, 12, 245, "Message",ExpressionUUID->"0e079558-1b2f-5a46-8c66-a9ee31993ddb"], +Cell[495941, 12514, 573, 12, 245, "Message",ExpressionUUID->"d148db97-53f1-5f42-bd2e-6e779140d5b6"], +Cell[496517, 12528, 579, 12, 245, "Message",ExpressionUUID->"186b0633-6992-1247-a396-6e446c898f15"], +Cell[497099, 12542, 456, 10, 81, "Message",ExpressionUUID->"81723359-f225-2c46-ac9d-0c5bbdaa253b"], +Cell[497558, 12554, 169, 3, 62, "Output",ExpressionUUID->"dfb1ce0b-e756-e84a-9724-ecf250122f19"] +}, Open ]], +Cell[CellGroupData[{ +Cell[497764, 12562, 2049, 58, 731, "Input",ExpressionUUID->"442c9cc5-031c-244c-a3bb-8044e56b047f"], +Cell[499816, 12622, 570, 12, 245, "Message",ExpressionUUID->"90df9b1f-7133-e445-8661-0af9d5feb8bd"], +Cell[500389, 12636, 575, 12, 245, "Message",ExpressionUUID->"93c48be2-5ad7-ad43-88e8-2c6ab8e2f132"], +Cell[500967, 12650, 579, 12, 245, "Message",ExpressionUUID->"cbcbafce-f556-944f-b5f3-9a75f9ae2725"], +Cell[501549, 12664, 458, 10, 81, "Message",ExpressionUUID->"83820e0a-b24a-cc46-bd5a-b19f0104c185"], +Cell[502010, 12676, 171, 3, 62, "Output",ExpressionUUID->"0d63c418-a50b-b94b-ad7d-1a46c6eb320d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[502218, 12684, 2030, 55, 506, "Input",ExpressionUUID->"75bdb70f-74f6-1a4c-9c04-b799ae260294"], +Cell[504251, 12741, 20011, 378, 327, "Output",ExpressionUUID->"a15038e3-a3ab-e64e-ad3b-e8cb09ec92a2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[524299, 13124, 2120, 60, 782, "Input",ExpressionUUID->"cbec275e-4d01-7747-9ece-7fa9a2a651b1"], +Cell[526422, 13186, 501, 11, 182, "Message",ExpressionUUID->"bf289d91-76e3-3e4e-937f-93db9b038d39"], +Cell[526926, 13199, 505, 11, 182, "Message",ExpressionUUID->"a52542a3-f03a-414f-86c8-3b114308924e"], +Cell[527434, 13212, 506, 11, 182, "Message",ExpressionUUID->"1c7104f0-99cd-c74c-b855-98253be62519"], +Cell[527943, 13225, 456, 10, 81, "Message",ExpressionUUID->"e66837df-658a-2c4c-973b-50c515d3781f"], +Cell[528402, 13237, 31008, 556, 319, "Output",ExpressionUUID->"0c8adc65-2b3c-a14f-87e8-79cdde17788b"] +}, Open ]], +Cell[559425, 13796, 209, 5, 55, "Input",ExpressionUUID->"f380af60-a605-c546-a4c8-b989835aa113"], +Cell[CellGroupData[{ +Cell[559659, 13805, 1616, 48, 526, "Input",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"], +Cell[561278, 13855, 593, 12, 276, "Message",ExpressionUUID->"6cb27c14-3e28-3a42-b8b7-fdcba2488488"], +Cell[561874, 13869, 595, 12, 276, "Message",ExpressionUUID->"cb81e4d8-f3c2-a440-be93-8add6661d63f"], +Cell[562472, 13883, 602, 12, 276, "Message",ExpressionUUID->"6fc2d4bb-75da-4f4f-bee0-560983907484"], +Cell[563077, 13897, 456, 10, 81, "Message",ExpressionUUID->"a75f01ed-738d-2b4a-b751-ccae7a894e31"], +Cell[563536, 13909, 172, 3, 62, "Output",ExpressionUUID->"a9b05d7b-788a-eb45-8401-918c1ed97234"] +}, Open ]], +Cell[CellGroupData[{ +Cell[563745, 13917, 2249, 64, 731, "Input",ExpressionUUID->"f2835c98-560f-8e47-bdab-0d2700971836"], +Cell[565997, 13983, 572, 12, 235, "Message",ExpressionUUID->"e3c0ae99-c55d-1a40-897e-ede7de12487f"], +Cell[566572, 13997, 575, 12, 141, "Message",ExpressionUUID->"0a52e0c9-3a0a-a24b-a9af-01175c4ee0f4"], +Cell[567150, 14011, 579, 12, 245, "Message",ExpressionUUID->"e6adb683-0ea5-4b48-bbb8-23c8c11e4418"], +Cell[567732, 14025, 458, 10, 81, "Message",ExpressionUUID->"12441524-bcf6-244b-b009-fad76aa84cea"], +Cell[568193, 14037, 173, 3, 62, "Output",ExpressionUUID->"cc74ac59-df4c-cf4b-a4af-36b2436eea23"] +}, Open ]], +Cell[CellGroupData[{ +Cell[568403, 14045, 2221, 64, 692, "Input",ExpressionUUID->"ca837916-250f-4d4e-8368-5a08f479e656"], +Cell[570627, 14111, 572, 12, 245, "Message",ExpressionUUID->"ee3e5086-63b9-a04a-8b60-1a07bbedb00c"], +Cell[571202, 14125, 575, 12, 245, "Message",ExpressionUUID->"f824dc64-7721-2e40-87b9-9d308e655a7c"], +Cell[571780, 14139, 577, 12, 245, "Message",ExpressionUUID->"830b9065-dbdb-094f-aba8-2b0b04ca96a6"], +Cell[572360, 14153, 456, 10, 81, "Message",ExpressionUUID->"f79b172f-d4db-f24b-98c7-2b2531d3e183"], +Cell[572819, 14165, 172, 3, 62, "Output",ExpressionUUID->"88b0c8ab-c0ff-2a4c-be6a-f15bb3bf7202"] +}, Open ]], +Cell[CellGroupData[{ +Cell[573028, 14173, 2223, 64, 692, "Input",ExpressionUUID->"b579991f-985b-234a-94aa-ed18c097f8c0"], +Cell[575254, 14239, 572, 12, 245, "Message",ExpressionUUID->"f816110f-9bc3-0e4e-85c9-2e71a255bbb9"], +Cell[575829, 14253, 573, 12, 245, "Message",ExpressionUUID->"36d057a5-55b4-f047-814d-965f9626b543"], +Cell[576405, 14267, 579, 12, 245, "Message",ExpressionUUID->"4ef30680-44fe-0244-870d-45b0a67e7a3d"], +Cell[576987, 14281, 456, 10, 81, "Message",ExpressionUUID->"c685c306-1cc4-0a4f-bb39-965ed01378a7"], +Cell[577446, 14293, 173, 3, 62, "Output",ExpressionUUID->"621ca10b-eff8-834f-a283-22ac03a895a3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[577656, 14301, 215, 6, 88, "Input",ExpressionUUID->"afb7855c-8700-d444-926c-6d96abe14e67"], +Cell[577874, 14309, 174, 3, 62, "Output",ExpressionUUID->"3737ba01-5151-874d-9846-1c8b07e42d7a"] +}, Open ]], +Cell[578063, 14315, 206, 3, 55, "Input",ExpressionUUID->"c0cc8245-14d5-45aa-a33d-f814f47e8678"] } ] *) -(* End of internal cache information *) - diff --git a/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_pr_Qw2.nb b/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_pr_Qw2.nb index 1226680..f8d8b2f 100755 --- a/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_pr_Qw2.nb +++ b/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_pr_Qw2.nb @@ -3,25 +3,4892 @@ (*** 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[ 605849, 14693] +NotebookOptionsPosition[ 566984, 14072] +NotebookOutlinePosition[ 567395, 14089] +CellTagsIndexPosition[ 567352, 14086] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f1", "="}]], "Input", + RowBox[{"d", "=", "1.6"}]], "Input", CellChangeTimes->{ - 3.9918501413985214`*^9},ExpressionUUID->"5894836c-9594-0940-b94c-\ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.9940727514461927`*^9, 3.994072775295883*^9}}, + CellLabel-> + "In[104]:=",ExpressionUUID->"32cdfcf5-6501-4fa3-a2ea-6f6c4c61aac9"], + +Cell[BoxData["1.6`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, 3.99379974700918*^9, 3.993800338579624*^9, + 3.9938003856877937`*^9, {3.994072756527327*^9, 3.9940727765701942`*^9}}, + CellLabel-> + "Out[104]=",ExpressionUUID->"053f38e8-1460-4507-8bc0-346f96b751db"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.993799082059058*^9, 3.9937990826790457`*^9}}, + CellLabel-> + "In[105]:=",ExpressionUUID->"fab0ec26-34de-46b2-903b-7c93449cf9cb"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.993799747282215*^9, 3.99380033885446*^9, + 3.993800385764146*^9, {3.994072756590721*^9, 3.994072776647262*^9}}, + CellLabel-> + "Out[105]=",ExpressionUUID->"296c475b-958e-42e1-859e-1c4c611cbcca"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", " ", "176"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.993799246718399*^9, 3.993799247496731*^9}}, + CellLabel-> + "In[106]:=",ExpressionUUID->"2fe5a80b-3eb2-448c-98e6-2d9515f8843f"], + +Cell[BoxData["176"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.993799747300477*^9, 3.993800338871715*^9, + 3.993800385779578*^9, {3.994072756603456*^9, 3.9940727766610518`*^9}}, + CellLabel-> + "Out[106]=",ExpressionUUID->"035ee109-57f3-4c4f-9fbe-650476b8521e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel-> + "In[107]:=",ExpressionUUID->"016208f3-4d07-4be7-8cb1-7778fd2d50d7"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.993799747316929*^9, 3.993800338888788*^9, + 3.993800385794606*^9, {3.994072756615819*^9, 3.994072776674831*^9}}, + CellLabel-> + "Out[107]=",ExpressionUUID->"1969b9cd-1848-47b0-b52e-4e04444205a5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel-> + "In[108]:=",ExpressionUUID->"67456cb2-82d8-4bec-99f7-5234f56da8b2"], + +Cell[BoxData["0.543`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.993799747333138*^9, 3.993800338906427*^9, + 3.993800385809697*^9, {3.994072756628705*^9, 3.994072776688608*^9}}, + CellLabel-> + "Out[108]=",ExpressionUUID->"e71aa819-0e5c-4dac-b05b-6bae467fa5c8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel-> + "In[109]:=",ExpressionUUID->"e5e592a6-6b3c-40b5-b451-317de01086cb"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.9937997473490753`*^9, 3.993800338928018*^9, + 3.993800385813496*^9, {3.994072756641103*^9, 3.994072776693177*^9}}, + CellLabel-> + "Out[109]=",ExpressionUUID->"9d693dc6-24c6-40c0-8649-0194e0be109c"] +}, 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[110]:=",ExpressionUUID->"7559727d-92a6-44bb-a652-46040a7e4513"], + +Cell[BoxData["6.5007312471204965`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.993799747366351*^9, 3.993800338948053*^9, + 3.993800385835421*^9, {3.994072756653392*^9, 3.994072776710863*^9}}, + CellLabel-> + "Out[110]=",ExpressionUUID->"783d7263-fae5-4b46-bef7-dd67c23f320f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel-> + "In[111]:=",ExpressionUUID->"d8cda65f-d223-4ae2-abe5-cb266ea5b8f6"], + +Cell[BoxData["4.64`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.993799747384128*^9, 3.993800338968402*^9, + 3.993800385850627*^9, {3.9940727566658983`*^9, 3.994072776724451*^9}}, + CellLabel-> + "Out[111]=",ExpressionUUID->"1df66750-06b5-49b4-940d-c558dcdef32f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.7654"}]], "Input", + CellChangeTimes->{ + 3.991799283179735*^9, {3.9937993186432753`*^9, 3.993799326240513*^9}, { + 3.993799364756247*^9, 3.993799370026516*^9}, {3.993799480203456*^9, + 3.993799488443741*^9}}, + CellLabel-> + "In[112]:=",ExpressionUUID->"16453c2c-d523-4e43-83b7-f43d8b9e8f6b"], + +Cell[BoxData["0.7654`"], "Output", + CellChangeTimes->{ + 3.9937997474107447`*^9, 3.993800338988703*^9, 3.9938003858649893`*^9, { + 3.994072756678184*^9, 3.994072776737771*^9}}, + CellLabel-> + "Out[112]=",ExpressionUUID->"a0cb594b-e1ae-4c61-bc79-6dc59ed27c08"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.4513"}]], "Input", + CellChangeTimes->{ + 3.991799280663351*^9, {3.993799372069343*^9, 3.993799377027832*^9}}, + CellLabel-> + "In[113]:=",ExpressionUUID->"67fad4af-0930-43ab-8c83-fa76d0d347fa"], + +Cell[BoxData["0.4513`"], "Output", + CellChangeTimes->{ + 3.993799747427882*^9, 3.993800339005568*^9, 3.993800385879345*^9, { + 3.9940727566903763`*^9, 3.9940727767497873`*^9}}, + CellLabel-> + "Out[113]=",ExpressionUUID->"c66499ec-660e-4a0f-bcee-7422ee861dac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel-> + "In[114]:=",ExpressionUUID->"a9365375-98e4-46ca-b51d-b84d98f661c7"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.993799747452092*^9, 3.993800339022945*^9, + 3.993800385893304*^9, {3.994072756702078*^9, 3.9940727767611856`*^9}}, + CellLabel-> + "Out[114]=",ExpressionUUID->"7cda01a1-0bc4-4014-997c-c49bdc5db8c0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel-> + "In[115]:=",ExpressionUUID->"8ace0032-5e58-435d-8d4d-3d2c068cca42"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.993799747468101*^9, 3.993800339041868*^9, + 3.9938003859074306`*^9, {3.9940727567134666`*^9, 3.994072776772606*^9}}, + CellLabel-> + "Out[115]=",ExpressionUUID->"35138b60-0dd3-4343-a155-402c6a893aa2"] +}, 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[116]:=",ExpressionUUID->"179da8ec-c925-49d0-be0d-66c3876bcbb2"], + +Cell[BoxData["2.0171665757171935`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.9937997474836817`*^9, 3.9938003390596933`*^9, + 3.993800385921398*^9, {3.994072756725263*^9, 3.994072776784317*^9}}, + CellLabel-> + "Out[116]=",ExpressionUUID->"bfee3a58-f7c9-4221-8a38-890be6104ac8"] +}, 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[117]:=",ExpressionUUID->"83b8e148-02bc-49bb-bea8-c995dfeb82bb"], + +Cell[BoxData["1.5074639495621045`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.993799747498741*^9, 3.993800339079308*^9, + 3.993800385933773*^9, {3.994072756739362*^9, 3.994072776796445*^9}}, + CellLabel-> + "Out[117]=",ExpressionUUID->"73d60ccb-8a91-4a21-b9e0-f547f6171094"] +}, 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[118]:=",ExpressionUUID->"3d43be64-23c5-4a92-ab3e-9cdd7819b7bb"], + +Cell[BoxData["0.5126444245586296`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.993799747513342*^9, 3.993800339097157*^9, + 3.993800385946536*^9, {3.994072756750792*^9, 3.9940727768075857`*^9}}, + CellLabel-> + "Out[118]=",ExpressionUUID->"aa7591e2-fdae-43c8-8038-485e6119feda"] +}, 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[119]:=",ExpressionUUID->"8b136e1d-8a5c-4ca3-8ba9-064eeb7fa7e3"], + +Cell[BoxData[ + RowBox[{"-", "0.12490541136574432`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.993799747527933*^9, 3.9938003391147947`*^9, + 3.99380038595966*^9, {3.994072756762456*^9, 3.99407277681929*^9}}, + CellLabel-> + "Out[119]=",ExpressionUUID->"94347e67-699f-44e7-8f91-f6817d51e17c"] +}, 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[120]:=",ExpressionUUID->"597653ed-1cc8-44b2-a580-ca17a1b57470"], + +Cell[BoxData[ + RowBox[{"-", "0.47786808677187637`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.993799747543792*^9, 3.993800339132107*^9, + 3.9938003859736147`*^9, {3.994072756774001*^9, 3.994072776830839*^9}}, + CellLabel-> + "Out[120]=",ExpressionUUID->"15cf6e7e-9189-4b04-a170-845f3fa97abc"] +}, 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[121]:=",ExpressionUUID->"9a94d223-c93f-448f-a7fc-b8115b6e4dba"], + +Cell[BoxData["0.6637051934091774`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.993799747559553*^9, 3.993800339136161*^9, + 3.993800385987465*^9, {3.994072756786757*^9, 3.994072776842886*^9}}, + CellLabel-> + "Out[121]=",ExpressionUUID->"9e73f054-4d44-4e33-8142-bd796501a233"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel-> + "In[122]:=",ExpressionUUID->"ea96506f-71e9-43e8-9862-700285eae938"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.9937997475753107`*^9, 3.993800339165604*^9, + 3.9938003860010223`*^9, {3.99407275679909*^9, 3.994072776854899*^9}}, + CellLabel-> + "Out[122]=",ExpressionUUID->"58740243-798b-4dfa-8199-f1dd531b09a0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel-> + "In[123]:=",ExpressionUUID->"9c73db80-a16f-46e3-af25-28f0aad14798"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.9937997475908947`*^9, 3.993800339182325*^9, + 3.9938003860157137`*^9, {3.9940727568120337`*^9, 3.994072776866831*^9}}, + CellLabel-> + "Out[123]=",ExpressionUUID->"34956363-76d7-4499-a48c-5a9b1df60ab8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellChangeTimes->{{3.9938002062742653`*^9, 3.993800206278376*^9}, { + 3.99380037453472*^9, 3.993800374695301*^9}}, + CellLabel-> + "In[124]:=",ExpressionUUID->"8f226229-eaeb-412e-8a0f-19f56de1c03c"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.993799747607007*^9, 3.993800339199224*^9, + 3.9938003860303698`*^9, {3.994072756823955*^9, 3.994072776878458*^9}}, + CellLabel-> + "Out[124]=",ExpressionUUID->"a7095a08-54bd-4b06-aa3d-383af229c068"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel-> + "In[125]:=",ExpressionUUID->"e3f3304c-8b14-4d7e-9991-dd32a47bc8ca"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.993799747623555*^9, 3.9938003392162523`*^9, + 3.993800386045208*^9, {3.994072756835642*^9, 3.994072776890398*^9}}, + CellLabel-> + "Out[125]=",ExpressionUUID->"fb412096-4638-4658-94a7-4978319b9b2f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel-> + "In[126]:=",ExpressionUUID->"097ee5d6-0b41-4944-a0fd-461ebdc2fa5b"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.9937997476274233`*^9, 3.993800339233366*^9, + 3.993800386060211*^9, {3.994072756847537*^9, 3.994072776902615*^9}}, + CellLabel-> + "Out[126]=",ExpressionUUID->"211c568f-6a6b-47b5-ae5c-5f0a40012061"] +}, 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.993799773981587*^9, {3.993800017055696*^9, 3.993800017126395*^9}}, + CellLabel-> + "In[127]:=",ExpressionUUID->"f647a085-2221-4ddf-b542-94135a0f80f8"], + +Cell[BoxData["64"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, 3.993800339250176*^9, 3.993800386074368*^9, { + 3.994072756859651*^9, 3.994072776915943*^9}}, + CellLabel-> + "Out[127]=",ExpressionUUID->"376e819c-ef98-4d5d-bf48-de7a9e491029"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"92", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9}, + CellLabel-> + "In[128]:=",ExpressionUUID->"73530cc7-4509-4c2a-bc82-3b6e6f190af1"], + +Cell[BoxData["28"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.993799747743443*^9, 3.993800339268099*^9, + 3.993800386088282*^9, {3.994072756878846*^9, 3.994072776927128*^9}}, + CellLabel-> + "Out[128]=",ExpressionUUID->"5a06941a-2689-40df-b58e-60b73764017e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel-> + "In[129]:=",ExpressionUUID->"be41b13b-7e99-4aee-8978-caf79c9ddd4e"], + +Cell[BoxData["64"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.993799747762579*^9, 3.9938003392862883`*^9, + 3.993800386103376*^9, {3.994072756893341*^9, 3.994072776939496*^9}}, + CellLabel-> + "Out[129]=",ExpressionUUID->"4d495a98-1c73-4674-aa27-b8801b1b63b5"] +}, 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[130]:=",ExpressionUUID->"ddbbb689-8d7b-40b9-bc82-bbe57496b4ff"], + +Cell[BoxData["0.10431818181818181`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.993799747778633*^9, 3.993800339303063*^9, + 3.993800386118601*^9, {3.9940727569059267`*^9, 3.994072776951536*^9}}, + CellLabel-> + "Out[130]=",ExpressionUUID->"3e1ee14d-22ac-414f-a908-e67669b5afea"] +}, 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[131]:=",ExpressionUUID->"2571b230-161a-4a78-ad26-e012bd34a71c"], + +Cell[BoxData[ + RowBox[{"-", "2.571590909090909`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.993799747795951*^9, 3.993800339319376*^9, + 3.993800386134354*^9, {3.9940727569175262`*^9, 3.994072776962891*^9}}, + CellLabel-> + "Out[131]=",ExpressionUUID->"33943dd2-84ae-4faa-b50e-6e4bd49723ae"] +}, 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[132]:=",ExpressionUUID->"a4b5fd42-4b8a-4f68-a675-ff02dd992ea7"], + +Cell[BoxData["16.821909430837295`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.993799747812237*^9, 3.993800339336598*^9, + 3.9938003861388483`*^9, {3.994072756929346*^9, 3.994072776974725*^9}}, + CellLabel-> + "Out[132]=",ExpressionUUID->"b7259d1a-b7a8-4ee8-9d74-d67e1e9ae84b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel-> + "In[133]:=",ExpressionUUID->"b29d18c9-2648-401d-a879-5c4da77d2ebd"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.9937997478307247`*^9, 3.993800339353257*^9, + 3.993800386159964*^9, {3.994072756940832*^9, 3.994072776986273*^9}}, + CellLabel-> + "Out[133]=",ExpressionUUID->"b86a17e2-e90a-424f-a7de-9146d541bf49"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "1.25"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { + 3.9937993902853117`*^9, 3.993799392293758*^9}}, + CellLabel-> + "In[134]:=",ExpressionUUID->"67536fb1-428f-4970-bef7-dd9fa78d07cc"], + +Cell[BoxData["1.25`"], "Output", + CellChangeTimes->{ + 3.9937997478713713`*^9, 3.993800339369935*^9, 3.9938003861811666`*^9, { + 3.9940727569525537`*^9, 3.9940727769978867`*^9}}, + CellLabel-> + "Out[134]=",ExpressionUUID->"fae9b2ae-27ac-42d7-96d2-e550c033b363"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel-> + "In[135]:=",ExpressionUUID->"62aaa394-7779-447e-98bb-5e67991c9717"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.85"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.993799395152514*^9, 3.9937993965162697`*^9}}, + CellLabel-> + "In[136]:=",ExpressionUUID->"a77d887e-fba8-47d6-a3fe-8a269447322f"], + +Cell[BoxData["0.85`"], "Output", + CellChangeTimes->{ + 3.993799747898118*^9, 3.993800339418215*^9, 3.993800386208997*^9, { + 3.99407275696742*^9, 3.9940727770129023`*^9}}, + CellLabel-> + "Out[136]=",ExpressionUUID->"a5cf4f0e-2c0e-408d-bfae-c4f7e09a0c4b"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel-> + "In[137]:=",ExpressionUUID->"098094a0-0622-4340-998e-974a3fbaea36"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "2.3"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.993799398824368*^9, 3.9937994002405863`*^9}}, + CellLabel-> + "In[138]:=",ExpressionUUID->"bd847fa6-4efb-4faf-9432-c6191bf960fb"], + +Cell[BoxData["2.3`"], "Output", + CellChangeTimes->{ + 3.993799747923098*^9, 3.993800339511382*^9, 3.993800386234042*^9, { + 3.994072756981262*^9, 3.994072777026493*^9}}, + CellLabel-> + "Out[138]=",ExpressionUUID->"00abaf12-6170-4f08-ab83-570f54918266"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel-> + "In[139]:=",ExpressionUUID->"3cac4ba9-5060-49f9-9442-8b99990e4efd"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.1"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, {3.993799403099743*^9, 3.9937994038178663`*^9}}, + CellLabel-> + "In[140]:=",ExpressionUUID->"a57d45b8-4eaf-45bf-8d43-c6b3bf452990"], + +Cell[BoxData["1.1`"], "Output", + CellChangeTimes->{ + 3.9937997479459248`*^9, 3.99380033956159*^9, 3.9938003862601*^9, { + 3.994072756995009*^9, 3.99407277703996*^9}}, + CellLabel-> + "Out[140]=",ExpressionUUID->"51fc0c6e-3e6f-44e2-beac-57915eda11b9"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel-> + "In[141]:=",ExpressionUUID->"c42f8c03-6a5c-4468-ba74-295ed3698f72"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "0.8664"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, {3.993799407392029*^9, + 3.993799410650194*^9}}, + CellLabel-> + "In[142]:=",ExpressionUUID->"bdab98b9-03d2-4503-9c92-fef6b99d57e4"], + +Cell[BoxData["0.8664`"], "Output", + CellChangeTimes->{ + 3.993799747968698*^9, 3.993800339671721*^9, 3.9938003862845907`*^9, { + 3.994072757008773*^9, 3.994072777054493*^9}}, + CellLabel-> + "Out[142]=",ExpressionUUID->"cdef2081-aaa2-44a3-9704-ad809dfd3a91"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel-> + "In[143]:=",ExpressionUUID->"6fc34824-c613-4c74-bd86-7e6165efcfd6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.5924"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.9937994136330442`*^9, + 3.993799417576207*^9}}, + CellLabel-> + "In[144]:=",ExpressionUUID->"01613d92-1a84-4d81-8e66-83e6cb4f3771"], + +Cell[BoxData["0.5924`"], "Output", + CellChangeTimes->{ + 3.993799747991611*^9, 3.9938003397687387`*^9, 3.993800386310059*^9, { + 3.994072757022612*^9, 3.994072777068264*^9}}, + CellLabel-> + "Out[144]=",ExpressionUUID->"a4881d9b-3bc4-4998-95f6-b7463339ac39"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel-> + "In[145]:=",ExpressionUUID->"4ab84259-8e29-4323-8038-b52d809033a3"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "1.888"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.993799421955809*^9, + 3.993799423886447*^9}}, + CellLabel-> + "In[146]:=",ExpressionUUID->"7aa1d22a-b349-4180-a635-7bfc3d28d3c1"], + +Cell[BoxData["1.888`"], "Output", + CellChangeTimes->{ + 3.993799748012844*^9, 3.993800339865109*^9, 3.993800386335606*^9, { + 3.9940727570366488`*^9, 3.9940727770819397`*^9}}, + CellLabel-> + "Out[146]=",ExpressionUUID->"7d1e41fd-9d04-46d3-a5cd-7a878ed138a7"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel-> + "In[147]:=",ExpressionUUID->"6055af0d-6869-4171-a21a-658029b063d2"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "0.6347"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, {3.993799431418026*^9, 3.9937994366447783`*^9}}, + CellLabel-> + "In[148]:=",ExpressionUUID->"a68fe271-87b5-449f-993b-e025b56c7a29"], + +Cell[BoxData["0.6347`"], "Output", + CellChangeTimes->{ + 3.99379974807285*^9, 3.993800339960155*^9, 3.9938003863606977`*^9, { + 3.99407275705245*^9, 3.994072777095529*^9}}, + CellLabel-> + "Out[148]=",ExpressionUUID->"be174ef3-3830-4211-9231-a9216274a932"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel-> + "In[149]:=",ExpressionUUID->"a9ef26f6-938f-4c92-bbf3-71e11417d2e2"], + +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[150]:=",ExpressionUUID->"caeae8bf-beca-485d-ad51-b172b2499144"], + +Cell[BoxData["0.33523276963055626`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.9937997481547623`*^9, 3.993800340061625*^9, + 3.9938003864136953`*^9, {3.994072757136285*^9, 3.994072777132966*^9}}, + CellLabel-> + "Out[150]=",ExpressionUUID->"638c121f-3f8b-4f3e-8303-f3ae4a3c3aeb"] +}, 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[151]:=",ExpressionUUID->"86996236-767f-48ce-a191-066540e9f792"], + +Cell[BoxData["10.264944924096582`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9937997481878023`*^9, 3.993800340089472*^9, + 3.993800386441668*^9, {3.994072757163142*^9, 3.9940727771627817`*^9}}, + CellLabel-> + "Out[151]=",ExpressionUUID->"e722a45b-59e4-4d03-978d-83aac7ec7dab"] +}, 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[152]:=",ExpressionUUID->"933fcba6-44f2-4029-a09e-1c15e24f5fe2"], + +Cell[BoxData[ + RowBox[{"-", "28.42814742925769`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.993799748217864*^9, 3.993800340114811*^9, + 3.993800386467917*^9, {3.99407275718851*^9, 3.994072777190625*^9}}, + CellLabel-> + "Out[152]=",ExpressionUUID->"d5af67ee-0068-41e5-a751-409ed0fd58cf"] +}, 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[153]:=",ExpressionUUID->"75f9bcfc-6a85-4c93-baef-735481a5b347"], + +Cell[BoxData[ + RowBox[{"-", "38.363033654277935`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.9937997482559977`*^9, 3.993800340146491*^9, + 3.993800386499661*^9, {3.9940727572190027`*^9, 3.994072777223873*^9}}, + CellLabel-> + "Out[153]=",ExpressionUUID->"7cd884a8-3ac2-452c-a87b-78df983f74e7"] +}, 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[154]:=",ExpressionUUID->"67477285-563b-4c0a-80e8-539d67ea9ecf"], + +Cell[BoxData[ + RowBox[{"-", "84.97316533656249`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.993799748294525*^9, 3.993800340178175*^9, + 3.9938003865308523`*^9, {3.994072757249708*^9, 3.994072777255313*^9}}, + CellLabel-> + "Out[154]=",ExpressionUUID->"3588086d-fb2f-46aa-8ddc-a101c791de5d"] +}, 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[155]:=",ExpressionUUID->"5ad6636d-d66a-400a-ba31-879ecfd77c42"], + +Cell[BoxData[ + RowBox[{"-", "228.76196692780508`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.993799748333426*^9, 3.9938003402193203`*^9, + 3.9938003865686073`*^9, {3.9940727572851143`*^9, 3.9940727772935343`*^9}}, + CellLabel-> + "Out[155]=",ExpressionUUID->"263817c8-1067-4391-a9f2-e9cf36c8c975"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel-> + "In[156]:=",ExpressionUUID->"23fb3a30-4d3b-46d8-bbbd-19d287caef32"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.993799748353148*^9, 3.993800340246324*^9, + 3.993800386583934*^9, {3.99407275729825*^9, 3.994072777306653*^9}}, + CellLabel-> + "Out[156]=",ExpressionUUID->"7ca6ca88-b06e-45d5-9917-723a5e3801e0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel-> + "In[157]:=",ExpressionUUID->"6d75fe2b-562f-472a-b120-644cefa3cd24"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.993799748372961*^9, 3.9938003402680492`*^9, + 3.993800386599262*^9, {3.99407275730969*^9, 3.994072777318306*^9}}, + CellLabel-> + "Out[157]=",ExpressionUUID->"bdbe96b1-5210-43e5-8bb9-fc147a546e6c"] +}, 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[158]:=",ExpressionUUID->"7977bcdd-7adb-463f-9114-5193396a6062"], + +Cell[BoxData["185.79450939883742`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.9937997483941936`*^9, 3.9938003402909203`*^9, + 3.99380038661649*^9, {3.9940727573211393`*^9, 3.994072777330056*^9}}, + CellLabel-> + "Out[158]=",ExpressionUUID->"c6fc3758-3cad-4cda-9146-1d6e0b6e8e49"] +}, 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[159]:=",ExpressionUUID->"1f82598d-042d-4771-afc3-d6ccc1241e2d"], + +Cell[BoxData[ + RowBox[{"-", "142.60312447586276`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.9937997484173307`*^9, 3.993800340312326*^9, + 3.993800386633136*^9, {3.99407275733285*^9, 3.994072777341887*^9}}, + CellLabel-> + "Out[159]=",ExpressionUUID->"df1deea6-e51a-44ab-b894-a4a562919170"] +}, 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[160]:=",ExpressionUUID->"49925539-8e44-4e8a-a304-d27778ea5471"], + +Cell[BoxData["169.9317606773619`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.993799748440692*^9, 3.993800340332926*^9, + 3.99380038664979*^9, {3.994072757344488*^9, 3.994072777353434*^9}}, + CellLabel-> + "Out[160]=",ExpressionUUID->"45856cf2-be72-46c4-b775-177456dd934c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel-> + "In[161]:=",ExpressionUUID->"87cdf76d-dadd-4b04-85cd-63e99a0ddf4c"], + +Cell[BoxData["0.5126444245586296`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.9937997484629087`*^9, 3.9938003403521013`*^9, + 3.9938003866670628`*^9, {3.994072757355731*^9, 3.994072777364881*^9}}, + CellLabel-> + "Out[161]=",ExpressionUUID->"40909c0b-3fe9-4db8-9b0d-424b68546445"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel-> + "In[162]:=",ExpressionUUID->"dc4afb41-daf7-4e2b-94cf-ddd8b507975f"], + +Cell[BoxData[ + RowBox[{"-", "0.12490541136574432`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.9937997484829597`*^9, 3.993800340372787*^9, + 3.993800386684751*^9, {3.994072759775218*^9, 3.994072777376302*^9}}, + CellLabel-> + "Out[162]=",ExpressionUUID->"a425b2d0-4efa-4e69-83f6-29b81dd91b34"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel-> + "In[163]:=",ExpressionUUID->"de4da22e-2958-48a2-8152-8ffe94ed74ce"], + +Cell[BoxData[ + RowBox[{"-", "0.47786808677187637`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.993799748505329*^9, 3.9938003403919477`*^9, + 3.9938003866995373`*^9, {3.9940727599543447`*^9, 3.9940727773879633`*^9}}, + CellLabel-> + "Out[163]=",ExpressionUUID->"2ca73151-219e-4ec8-871d-ef1142e6b2ab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel-> + "In[164]:=",ExpressionUUID->"0ef55228-4105-47db-beaa-55f17eac1a44"], + +Cell[BoxData["0.6637051934091774`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.99379974852349*^9, 3.993800340409604*^9, + 3.993800386721094*^9, {3.994072759966642*^9, 3.994072777399509*^9}}, + CellLabel-> + "Out[164]=",ExpressionUUID->"c208e07e-5d8b-4886-9604-ec41a9fec21d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel-> + "In[165]:=",ExpressionUUID->"1779f3c0-544b-49b4-ba5b-40ac26009326"], + +Cell[BoxData["2.0171665757171935`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.993799748542218*^9, 3.993800340426003*^9, + 3.9938003867354116`*^9, {3.9940727599787703`*^9, 3.9940727774113617`*^9}}, + CellLabel-> + "Out[165]=",ExpressionUUID->"9bac2540-a076-4c33-8e1e-968fe23bef8d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel-> + "In[166]:=",ExpressionUUID->"984b4179-491d-424d-80a2-69e9d88de387"], + +Cell[BoxData["1.5074639495621045`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.9937997485616417`*^9, 3.99380034044471*^9, + 3.9938003867502003`*^9, {3.9940727599906197`*^9, 3.994072777422779*^9}}, + CellLabel-> + "Out[166]=",ExpressionUUID->"e272e1aa-42c8-4067-b2ae-a410769ea8c7"] +}, 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[167]:=",ExpressionUUID->"fee11733-32af-4a89-9485-97d6a976a647"], + +Cell[BoxData[ + RowBox[{"-", "30.893583323663808`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.993799748579701*^9, 3.9938003404617233`*^9, + 3.993800386765017*^9, {3.994072760002514*^9, 3.994072777434401*^9}}, + CellLabel-> + "Out[167]=",ExpressionUUID->"da695754-1bbc-4f4c-bf01-30455d26d459"] +}, 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[168]:=",ExpressionUUID->"5d2fc11b-7dce-45eb-b28b-5bd1edf42050"], + +Cell[BoxData[ + RowBox[{"-", "7.926031139913374`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.993799748598835*^9, 3.993800340479863*^9, + 3.9938003867807913`*^9, {3.994072760013989*^9, 3.994072777446135*^9}}, + CellLabel-> + "Out[168]=",ExpressionUUID->"b89c4ba2-8ca0-4536-a43b-59bfa4084884"] +}, 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[169]:=",ExpressionUUID->"caa95c66-88cd-43e6-be46-37559a76fff1"], + +Cell[BoxData["154.9009260751736`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.993799748618464*^9, 3.993800340498665*^9, + 3.993800386794903*^9, {3.994072760026211*^9, 3.994072777457891*^9}}, + CellLabel-> + "Out[169]=",ExpressionUUID->"4bc302f5-d8e8-4727-9df2-8ee09fe782c2"] +}, 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[170]:=",ExpressionUUID->"1b1d8ba0-234b-4e6e-9391-0ae41062e947"], + +Cell[BoxData[ + RowBox[{"-", "142.60312447586276`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.993799748639475*^9, 3.993800340517002*^9, + 3.993800386808839*^9, {3.9940727600400333`*^9, 3.994072777469482*^9}}, + CellLabel-> + "Out[170]=",ExpressionUUID->"0579b556-b3b8-481d-8192-a9eb8edeb71d"] +}, 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[171]:=",ExpressionUUID->"3d2b6824-ba26-4ec3-be0d-851eea74ac0a"], + +Cell[BoxData["162.00572953744853`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.993799748660536*^9, 3.993800340536582*^9, + 3.993800386822714*^9, {3.994072760046308*^9, 3.994072777481387*^9}}, + CellLabel-> + "Out[171]=",ExpressionUUID->"74c3e31c-b4ed-46d2-8322-f5e14e68d1bd"] +}, 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[172]:=",ExpressionUUID->"d4246052-e64a-4d05-889d-4691a4517a41"], + +Cell[BoxData["110.13261932733474`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.993799748682187*^9, 3.9938003405568943`*^9, + 3.993800386836596*^9, {3.994072760058202*^9, 3.994072777493164*^9}}, + CellLabel-> + "Out[172]=",ExpressionUUID->"cbb3c230-bc01-447e-8d5f-3313ccf3e9fb"] +}, 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[173]:=",ExpressionUUID->"4d7a1e80-b9af-4b3f-80b5-d223c4cad807"], + +Cell[BoxData["1014.9570765717414`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.993799748705882*^9, 3.9938003405772467`*^9, + 3.993800386850522*^9, {3.994072760069648*^9, 3.994072777505143*^9}}, + CellLabel-> + "Out[173]=",ExpressionUUID->"2db78271-1a14-4ef2-a5eb-675c7dcbc68b"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"f1", "=", "0.417057434"}]], "Input", + CellChangeTimes->{3.9918501413985214`*^9, + 3.9940826097277718`*^9},ExpressionUUID->"5894836c-9594-0940-b94c-\ 299085c765cc"], Cell[BoxData[""], "Input", @@ -30,9 +4897,9 @@ Cell[BoxData[""], "Input", 8fab318cd4b7"], Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", - CellChangeTimes->{ - 3.9918501402114105`*^9},ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-\ + RowBox[{"f2", "=", "0.285081564"}]], "Input", + CellChangeTimes->{3.9918501402114105`*^9, + 3.994082615801478*^9},ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-\ 092c5143dcf0"], Cell[BoxData[""], "Input", @@ -1581,8 +6448,8 @@ rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS "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[{ @@ -2818,9 +7685,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.003836"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.01141"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.018699"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.025527"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.031739"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.037207"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.041837"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.045565"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.048367"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.050245"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.051235"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.051395"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.050806"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.049558"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.047756"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.0455"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.042898"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.040047"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.037039"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.033955"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.030869"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.027838"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.024912"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.022128"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.019516"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.017092"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.014869"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.012849"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.011034"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.009415"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.007985"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.9940827155625067`*^9},ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-\ b938908ab9a4"], Cell[BoxData[ @@ -8583,8 +13513,8 @@ fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo "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[{ @@ -9132,12 +14062,18 @@ Cell[BoxData[ d2cfa007cfcf"], Cell[BoxData["0.11028946354837708`"], "Output",ExpressionUUID->"8f1edf59-aed7-914f-9d19-1949d2a555d6"] -}, Open ]] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input", + CellChangeTimes->{{3.99408275627424*^9, + 3.994082759688036*^9}},ExpressionUUID->"6328874d-704c-46e4-bf50-\ +43b34d3da068"] }, -WindowSize->{718.5, 729.75}, -WindowMargins->{{6, Automatic}, {Automatic, 4.5}}, +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->"f83c5602-f0d5-2d47-8a1b-23029521caf0" ] @@ -9152,359 +14088,614 @@ 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, 305, 6, 36, "Input",ExpressionUUID->"32cdfcf5-6501-4fa3-a2ea-6f6c4c61aac9"], +Cell[884, 30, 278, 5, 41, "Output",ExpressionUUID->"053f38e8-1460-4507-8bc0-346f96b751db"] }, 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[1199, 40, 253, 5, 36, "Input",ExpressionUUID->"fab0ec26-34de-46b2-903b-7c93449cf9cb"], +Cell[1455, 47, 275, 5, 41, "Output",ExpressionUUID->"296c475b-958e-42e1-859e-1c4c611cbcca"] }, 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[1767, 57, 231, 5, 36, "Input",ExpressionUUID->"2fe5a80b-3eb2-448c-98e6-2d9515f8843f"], +Cell[2001, 64, 278, 5, 41, "Output",ExpressionUUID->"035ee109-57f3-4c4f-9fbe-650476b8521e"] }, 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[2316, 74, 180, 4, 55, "Input",ExpressionUUID->"016208f3-4d07-4be7-8cb1-7778fd2d50d7"], +Cell[2499, 80, 276, 5, 62, "Output",ExpressionUUID->"1969b9cd-1848-47b0-b52e-4e04444205a5"] }, 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[2812, 90, 262, 8, 81, "Input",ExpressionUUID->"67456cb2-82d8-4bec-99f7-5234f56da8b2"], +Cell[3077, 100, 279, 5, 62, "Output",ExpressionUUID->"e71aa819-0e5c-4dac-b05b-6bae467fa5c8"] }, 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[3393, 110, 136, 3, 55, "Input",ExpressionUUID->"e5e592a6-6b3c-40b5-b451-317de01086cb"], +Cell[3532, 115, 280, 5, 62, "Output",ExpressionUUID->"9d693dc6-24c6-40c0-8649-0194e0be109c"] }, 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[3849, 125, 281, 7, 55, "Input",ExpressionUUID->"7559727d-92a6-44bb-a652-46040a7e4513"], +Cell[4133, 134, 292, 5, 62, "Output",ExpressionUUID->"783d7263-fae5-4b46-bef7-dd67c23f320f"] }, 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[4462, 144, 262, 8, 55, "Input",ExpressionUUID->"d8cda65f-d223-4ae2-abe5-cb266ea5b8f6"], +Cell[4727, 154, 280, 5, 62, "Output",ExpressionUUID->"1df66750-06b5-49b4-940d-c558dcdef32f"] }, 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[5044, 164, 331, 7, 55, "Input",ExpressionUUID->"16453c2c-d523-4e43-83b7-f43d8b9e8f6b"], +Cell[5378, 173, 260, 5, 62, "Output",ExpressionUUID->"a0cb594b-e1ae-4c61-bc79-6dc59ed27c08"] }, 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[5675, 183, 229, 5, 55, "Input",ExpressionUUID->"67fad4af-0930-43ab-8c83-fa76d0d347fa"], +Cell[5907, 190, 260, 5, 62, "Output",ExpressionUUID->"c66499ec-660e-4a0f-bcee-7422ee861dac"] }, 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[6204, 200, 133, 3, 55, "Input",ExpressionUUID->"a9365375-98e4-46ca-b51d-b84d98f661c7"], +Cell[6340, 205, 276, 5, 62, "Output",ExpressionUUID->"7cda01a1-0bc4-4014-997c-c49bdc5db8c0"] }, 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[6653, 215, 133, 3, 55, "Input",ExpressionUUID->"8ace0032-5e58-435d-8d4d-3d2c068cca42"], +Cell[6789, 220, 278, 5, 62, "Output",ExpressionUUID->"35138b60-0dd3-4343-a155-402c6a893aa2"] }, 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[7104, 230, 561, 20, 148, "Input",ExpressionUUID->"179da8ec-c925-49d0-be0d-66c3876bcbb2"], +Cell[7668, 252, 296, 5, 62, "Output",ExpressionUUID->"bfee3a58-f7c9-4221-8a38-890be6104ac8"] }, 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[8001, 262, 561, 20, 148, "Input",ExpressionUUID->"83b8e148-02bc-49bb-bea8-c995dfeb82bb"], +Cell[8565, 284, 292, 5, 62, "Output",ExpressionUUID->"73d60ccb-8a91-4a21-b9e0-f547f6171094"] }, 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[8894, 294, 1592, 51, 211, "Input",ExpressionUUID->"3d43be64-23c5-4a92-ab3e-9cdd7819b7bb"], +Cell[10489, 347, 292, 5, 62, "Output",ExpressionUUID->"aa7591e2-fdae-43c8-8038-485e6119feda"] }, 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[10818, 357, 1426, 47, 211, "Input",ExpressionUUID->"8b136e1d-8a5c-4ca3-8ba9-064eeb7fa7e3"], +Cell[12247, 406, 308, 6, 62, "Output",ExpressionUUID->"94347e67-699f-44e7-8f91-f6817d51e17c"] }, 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[12592, 417, 1426, 47, 211, "Input",ExpressionUUID->"597653ed-1cc8-44b2-a580-ca17a1b57470"], +Cell[14021, 466, 312, 6, 62, "Output",ExpressionUUID->"15cf6e7e-9189-4b04-a170-845f3fa97abc"] }, 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[14370, 477, 1592, 51, 211, "Input",ExpressionUUID->"9a94d223-c93f-448f-a7fc-b8115b6e4dba"], +Cell[15965, 530, 288, 5, 62, "Output",ExpressionUUID->"9e73f054-4d44-4e33-8142-bd796501a233"] }, 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[16290, 540, 135, 3, 55, "Input",ExpressionUUID->"ea96506f-71e9-43e8-9862-700285eae938"], +Cell[16428, 545, 277, 5, 62, "Output",ExpressionUUID->"58740243-798b-4dfa-8199-f1dd531b09a0"] }, 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[16742, 555, 137, 3, 55, "Input",ExpressionUUID->"9c73db80-a16f-46e3-af25-28f0aad14798"], +Cell[16882, 560, 282, 5, 62, "Output",ExpressionUUID->"34956363-76d7-4499-a48c-5a9b1df60ab8"] }, 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[17201, 570, 254, 5, 55, "Input",ExpressionUUID->"8f226229-eaeb-412e-8a0f-19f56de1c03c"], +Cell[17458, 577, 280, 5, 62, "Output",ExpressionUUID->"a7095a08-54bd-4b06-aa3d-383af229c068"] }, 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[17775, 587, 223, 5, 55, "Input",ExpressionUUID->"e3f3304c-8b14-4d7e-9991-dd32a47bc8ca"], +Cell[18001, 594, 293, 6, 62, "Output",ExpressionUUID->"fb412096-4638-4658-94a7-4978319b9b2f"] }, 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[18331, 605, 138, 3, 55, "Input",ExpressionUUID->"097ee5d6-0b41-4944-a0fd-461ebdc2fa5b"], +Cell[18472, 610, 280, 5, 62, "Output",ExpressionUUID->"211c568f-6a6b-47b5-ae5c-5f0a40012061"] }, 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[18789, 620, 353, 6, 55, "Input",ExpressionUUID->"f647a085-2221-4ddf-b542-94135a0f80f8"], +Cell[19145, 628, 253, 5, 62, "Output",ExpressionUUID->"376e819c-ef98-4d5d-bf48-de7a9e491029"] }, 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[19435, 638, 254, 6, 55, "Input",ExpressionUUID->"73530cc7-4509-4c2a-bc82-3b6e6f190af1"], +Cell[19692, 646, 275, 5, 62, "Output",ExpressionUUID->"5a06941a-2689-40df-b58e-60b73764017e"] }, 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[20004, 656, 223, 5, 55, "Input",ExpressionUUID->"be41b13b-7e99-4aee-8978-caf79c9ddd4e"], +Cell[20230, 663, 275, 5, 62, "Output",ExpressionUUID->"4d495a98-1c73-4674-aa27-b8801b1b63b5"] }, 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[20542, 673, 354, 11, 81, "Input",ExpressionUUID->"ddbbb689-8d7b-40b9-bc82-bbe57496b4ff"], +Cell[20899, 686, 295, 5, 62, "Output",ExpressionUUID->"3e1ee14d-22ac-414f-a908-e67669b5afea"] }, 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[21231, 696, 354, 11, 81, "Input",ExpressionUUID->"2571b230-161a-4a78-ad26-e012bd34a71c"], +Cell[21588, 709, 310, 6, 62, "Output",ExpressionUUID->"33943dd2-84ae-4faa-b50e-6e4bd49723ae"] }, 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[21935, 720, 998, 27, 154, "Input",ExpressionUUID->"a4b5fd42-4b8a-4f68-a675-ff02dd992ea7"], +Cell[22936, 749, 294, 5, 62, "Output",ExpressionUUID->"b7259d1a-b7a8-4ee8-9d74-d67e1e9ae84b"] }, 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[23267, 759, 203, 4, 55, "Input",ExpressionUUID->"b29d18c9-2648-401d-a879-5c4da77d2ebd"], +Cell[23473, 765, 276, 5, 62, "Output",ExpressionUUID->"b86a17e2-e90a-424f-a7de-9146d541bf49"] }, 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[23786, 775, 332, 6, 55, "Input",ExpressionUUID->"67536fb1-428f-4970-bef7-dd9fa78d07cc"], +Cell[24121, 783, 262, 5, 62, "Output",ExpressionUUID->"fae9b2ae-27ac-42d7-96d2-e550c033b363"] +}, Open ]], +Cell[24398, 791, 177, 3, 55, "Input",ExpressionUUID->"62aaa394-7779-447e-98bb-5e67991c9717"], +Cell[CellGroupData[{ +Cell[24600, 798, 332, 6, 55, "Input",ExpressionUUID->"a77d887e-fba8-47d6-a3fe-8a269447322f"], +Cell[24935, 806, 255, 5, 62, "Output",ExpressionUUID->"a5cf4f0e-2c0e-408d-bfae-c4f7e09a0c4b"] +}, Open ]], +Cell[25205, 814, 177, 3, 55, "Input",ExpressionUUID->"098094a0-0622-4340-998e-974a3fbaea36"], +Cell[CellGroupData[{ +Cell[25407, 821, 332, 6, 55, "Input",ExpressionUUID->"bd847fa6-4efb-4faf-9432-c6191bf960fb"], +Cell[25742, 829, 253, 5, 62, "Output",ExpressionUUID->"00abaf12-6170-4f08-ab83-570f54918266"] +}, Open ]], +Cell[26010, 837, 177, 3, 55, "Input",ExpressionUUID->"3cac4ba9-5060-49f9-9442-8b99990e4efd"], +Cell[CellGroupData[{ +Cell[26212, 844, 356, 6, 55, "Input",ExpressionUUID->"a57d45b8-4eaf-45bf-8d43-c6b3bf452990"], +Cell[26571, 852, 251, 5, 62, "Output",ExpressionUUID->"51fc0c6e-3e6f-44e2-beac-57915eda11b9"] +}, Open ]], +Cell[26837, 860, 175, 3, 55, "Input",ExpressionUUID->"c42f8c03-6a5c-4468-ba74-295ed3698f72"], +Cell[CellGroupData[{ +Cell[27037, 867, 304, 6, 55, "Input",ExpressionUUID->"bdab98b9-03d2-4503-9c92-fef6b99d57e4"], +Cell[27344, 875, 258, 5, 62, "Output",ExpressionUUID->"cdef2081-aaa2-44a3-9704-ad809dfd3a91"] +}, Open ]], +Cell[27617, 883, 175, 3, 55, "Input",ExpressionUUID->"6fc34824-c613-4c74-bd86-7e6165efcfd6"], +Cell[CellGroupData[{ +Cell[27817, 890, 310, 6, 55, "Input",ExpressionUUID->"01613d92-1a84-4d81-8e66-83e6cb4f3771"], +Cell[28130, 898, 258, 5, 62, "Output",ExpressionUUID->"a4881d9b-3bc4-4998-95f6-b7463339ac39"] +}, Open ]], +Cell[28403, 906, 177, 3, 55, "Input",ExpressionUUID->"4ab84259-8e29-4323-8038-b52d809033a3"], +Cell[CellGroupData[{ +Cell[28605, 913, 310, 6, 55, "Input",ExpressionUUID->"7aa1d22a-b349-4180-a635-7bfc3d28d3c1"], +Cell[28918, 921, 259, 5, 62, "Output",ExpressionUUID->"7d1e41fd-9d04-46d3-a5cd-7a878ed138a7"] +}, Open ]], +Cell[29192, 929, 176, 3, 55, "Input",ExpressionUUID->"6055af0d-6869-4171-a21a-658029b063d2"], +Cell[CellGroupData[{ +Cell[29393, 936, 282, 5, 55, "Input",ExpressionUUID->"a68fe271-87b5-449f-993b-e025b56c7a29"], +Cell[29678, 943, 256, 5, 62, "Output",ExpressionUUID->"be174ef3-3830-4211-9231-a9216274a932"] +}, Open ]], +Cell[29949, 951, 179, 3, 55, "Input",ExpressionUUID->"a9ef26f6-938f-4c92-bbf3-71e11417d2e2"], +Cell[CellGroupData[{ +Cell[30153, 958, 19813, 486, 3214, "Input",ExpressionUUID->"caeae8bf-beca-485d-ad51-b172b2499144"], +Cell[49969, 1446, 295, 5, 62, "Output",ExpressionUUID->"638c121f-3f8b-4f3e-8303-f3ae4a3c3aeb"] }, 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[50301, 1456, 19752, 490, 3214, "Input",ExpressionUUID->"86996236-767f-48ce-a191-066540e9f792"], +Cell[70056, 1948, 294, 5, 62, "Output",ExpressionUUID->"e722a45b-59e4-4d03-978d-83aac7ec7dab"] }, 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[70387, 1958, 19752, 484, 3213, "Input",ExpressionUUID->"933fcba6-44f2-4029-a09e-1c15e24f5fe2"], +Cell[90142, 2444, 305, 6, 62, "Output",ExpressionUUID->"d5af67ee-0068-41e5-a751-409ed0fd58cf"] }, 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[90484, 2455, 22538, 554, 3639, "Input",ExpressionUUID->"75f9bcfc-6a85-4c93-baef-735481a5b347"], +Cell[113025, 3011, 311, 6, 62, "Output",ExpressionUUID->"7cd884a8-3ac2-452c-a87b-78df983f74e7"] }, 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[113373, 3022, 22539, 554, 3639, "Input",ExpressionUUID->"67477285-563b-4c0a-80e8-539d67ea9ecf"], +Cell[135915, 3578, 310, 6, 62, "Output",ExpressionUUID->"3588086d-fb2f-46aa-8ddc-a101c791de5d"] }, 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[136262, 3589, 25495, 627, 4065, "Input",ExpressionUUID->"5ad6636d-d66a-400a-ba31-879ecfd77c42"], +Cell[161760, 4218, 315, 6, 62, "Output",ExpressionUUID->"263817c8-1067-4391-a9f2-e9cf36c8c975"] }, 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[162112, 4229, 134, 3, 55, "Input",ExpressionUUID->"23fb3a30-4d3b-46d8-bbbd-19d287caef32"], +Cell[162249, 4234, 273, 5, 62, "Output",ExpressionUUID->"7ca6ca88-b06e-45d5-9917-723a5e3801e0"] }, 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[162559, 4244, 134, 3, 55, "Input",ExpressionUUID->"6d75fe2b-562f-472a-b120-644cefa3cd24"], +Cell[162696, 4249, 275, 5, 62, "Output",ExpressionUUID->"bdbe96b1-5210-43e5-8bb9-fc147a546e6c"] }, 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[163008, 4259, 1148, 40, 211, "Input",ExpressionUUID->"7977bcdd-7adb-463f-9114-5193396a6062"], +Cell[164159, 4301, 295, 5, 62, "Output",ExpressionUUID->"c6fc3758-3cad-4cda-9146-1d6e0b6e8e49"] }, 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[164491, 4311, 1045, 36, 211, "Input",ExpressionUUID->"1f82598d-042d-4771-afc3-d6ccc1241e2d"], +Cell[165539, 4349, 308, 6, 62, "Output",ExpressionUUID->"df1deea6-e51a-44ab-b894-a4a562919170"] }, 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[165884, 4360, 1148, 40, 211, "Input",ExpressionUUID->"49925539-8e44-4e8a-a304-d27778ea5471"], +Cell[167035, 4402, 290, 5, 62, "Output",ExpressionUUID->"45856cf2-be72-46c4-b775-177456dd934c"] }, 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[167362, 4412, 112, 2, 55, "Input",ExpressionUUID->"87cdf76d-dadd-4b04-85cd-63e99a0ddf4c"], +Cell[167477, 4416, 298, 5, 62, "Output",ExpressionUUID->"40909c0b-3fe9-4db8-9b0d-424b68546445"] }, 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[167812, 4426, 112, 2, 55, "Input",ExpressionUUID->"dc4afb41-daf7-4e2b-94cf-ddd8b507975f"], +Cell[167927, 4430, 312, 6, 62, "Output",ExpressionUUID->"a425b2d0-4efa-4e69-83f6-29b81dd91b34"] }, 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[168276, 4441, 112, 2, 55, "Input",ExpressionUUID->"de4da22e-2958-48a2-8152-8ffe94ed74ce"], +Cell[168391, 4445, 316, 6, 62, "Output",ExpressionUUID->"2ca73151-219e-4ec8-871d-ef1142e6b2ab"] }, 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[168744, 4456, 112, 2, 55, "Input",ExpressionUUID->"0ef55228-4105-47db-beaa-55f17eac1a44"], +Cell[168859, 4460, 289, 5, 62, "Output",ExpressionUUID->"c208e07e-5d8b-4886-9604-ec41a9fec21d"] }, 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[169185, 4470, 111, 2, 55, "Input",ExpressionUUID->"1779f3c0-544b-49b4-ba5b-40ac26009326"], +Cell[169299, 4474, 298, 5, 62, "Output",ExpressionUUID->"9bac2540-a076-4c33-8e1e-968fe23bef8d"] }, 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[169634, 4484, 111, 2, 55, "Input",ExpressionUUID->"984b4179-491d-424d-80a2-69e9d88de387"], +Cell[169748, 4488, 297, 5, 62, "Output",ExpressionUUID->"e272e1aa-42c8-4067-b2ae-a410769ea8c7"] }, 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[170082, 4498, 501, 17, 105, "Input",ExpressionUUID->"fee11733-32af-4a89-9485-97d6a976a647"], +Cell[170586, 4517, 311, 6, 62, "Output",ExpressionUUID->"da695754-1bbc-4f4c-bf01-30455d26d459"] }, 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[170934, 4528, 501, 17, 105, "Input",ExpressionUUID->"5d2fc11b-7dce-45eb-b28b-5bd1edf42050"], +Cell[171438, 4547, 308, 6, 62, "Output",ExpressionUUID->"b89c4ba2-8ca0-4536-a43b-59bfa4084884"] }, 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[171783, 4558, 1792, 61, 358, "Input",ExpressionUUID->"caa95c66-88cd-43e6-be46-37559a76fff1"], +Cell[173578, 4621, 291, 5, 62, "Output",ExpressionUUID->"4bc302f5-d8e8-4727-9df2-8ee09fe782c2"] }, 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[173906, 4631, 1105, 37, 256, "Input",ExpressionUUID->"1b1d8ba0-234b-4e6e-9391-0ae41062e947"], +Cell[175014, 4670, 311, 6, 62, "Output",ExpressionUUID->"0579b556-b3b8-481d-8192-a9eb8edeb71d"] }, 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[175362, 4681, 1822, 62, 313, "Input",ExpressionUUID->"3d2b6824-ba26-4ec3-be0d-851eea74ac0a"], +Cell[177187, 4745, 290, 5, 62, "Output",ExpressionUUID->"74c3e31c-b4ed-46d2-8322-f5e14e68d1bd"] }, 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[177514, 4755, 1714, 56, 260, "Input",ExpressionUUID->"d4246052-e64a-4d05-889d-4691a4517a41"], +Cell[179231, 4813, 294, 5, 62, "Output",ExpressionUUID->"cbb3c230-bc01-447e-8d5f-3313ccf3e9fb"] }, 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[179562, 4823, 1635, 54, 208, "Input",ExpressionUUID->"4d7a1e80-b9af-4b3f-80b5-d223c4cad807"], +Cell[181200, 4879, 292, 5, 41, "Output",ExpressionUUID->"2db78271-1a14-4ef2-a5eb-675c7dcbc68b"] +}, Open ]], +Cell[181507, 4887, 188, 4, 36, "Input",ExpressionUUID->"5894836c-9594-0940-b94c-299085c765cc"], +Cell[181698, 4893, 154, 3, 36, "Input",ExpressionUUID->"5965eb10-01f8-5545-9b6f-8fab318cd4b7"], +Cell[181855, 4898, 186, 4, 36, "Input",ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-092c5143dcf0"], +Cell[182044, 4904, 154, 3, 36, "Input",ExpressionUUID->"6e7c45d7-0298-ce41-ba97-a3c857e6ae57"], +Cell[CellGroupData[{ +Cell[182223, 4911, 1301, 43, 174, "Input",ExpressionUUID->"38bf39c5-cae1-4148-b0af-e362ef4ee2e3"], +Cell[183527, 4956, 178, 3, 41, "Output",ExpressionUUID->"d7904bcf-fc55-b844-b4d2-059d830f1317"] }, 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"] -}, Open ]], -Cell[371689, 8793, 209, 5, 70, "Input",ExpressionUUID->"54d9c986-d109-3d4c-9ee8-76427bb63659"], -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[183742, 4964, 908, 31, 128, "Input",ExpressionUUID->"f2e6289f-a8bc-6d44-a856-301cf9f22a61"], +Cell[184653, 4997, 177, 3, 41, "Output",ExpressionUUID->"7c075ec9-a97b-ab47-b241-cc392b585c5e"] }, 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[184867, 5005, 889, 30, 128, "Input",ExpressionUUID->"cdf84d2f-1e96-4c43-9286-fda42549e334"], +Cell[185759, 5037, 178, 3, 41, "Output",ExpressionUUID->"ddda4800-8c90-d44b-acfd-6ccb39eee852"] }, 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[185974, 5045, 558, 19, 66, "Input",ExpressionUUID->"a7d184c1-375c-094d-82ba-c6d8cfdfa4a1"], +Cell[186535, 5066, 172, 3, 41, "Output",ExpressionUUID->"046d7438-d73f-9343-9ae7-b01adfd6d8f5"] }, 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[186744, 5074, 651, 22, 66, "Input",ExpressionUUID->"cc7d9e01-d61b-5a43-abcd-9714383fe0fe"], +Cell[187398, 5098, 167, 3, 41, "Output",ExpressionUUID->"d2928e96-58be-3a4f-8bee-5b9e193c2ac6"] }, 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[187602, 5106, 170, 5, 71, "Input",ExpressionUUID->"1204358e-ac52-0f4c-bf22-945336ddda4e"], +Cell[187775, 5113, 172, 3, 41, "Output",ExpressionUUID->"bf655ed3-7200-2249-b687-593ee351a598"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187984, 5121, 170, 5, 69, "Input",ExpressionUUID->"66c9dc01-c171-8f4f-b59a-2829d67b4589"], +Cell[188157, 5128, 173, 3, 41, "Output",ExpressionUUID->"56f5f06b-52e2-6941-b28e-41b961cb42e9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188367, 5136, 181, 5, 55, "Input",ExpressionUUID->"09b0eefd-6263-8a44-8015-82d02046019c"], +Cell[188551, 5143, 171, 3, 41, "Output",ExpressionUUID->"8c210f75-69a5-5340-94a4-65e97302ca45"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188759, 5151, 181, 5, 55, "Input",ExpressionUUID->"c1911d35-4f2b-d042-9073-088b56a17885"], +Cell[188943, 5158, 172, 3, 41, "Output",ExpressionUUID->"bad7f5b6-1bd3-6b4b-87e4-44aee3a120fc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189152, 5166, 6055, 185, 831, "Input",ExpressionUUID->"6fd22be4-12e4-0d4e-b7f7-ab28adc2524f"], +Cell[195210, 5353, 174, 3, 41, "Output",ExpressionUUID->"ffdf2eb3-13bd-724f-a87b-fb40655ae9c4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195421, 5361, 368, 9, 53, "Input",ExpressionUUID->"788e89bc-20c8-8541-af10-81d8741a0e5b"], +Cell[195792, 5372, 172, 3, 41, "Output",ExpressionUUID->"609425d6-cf9c-7a45-bc21-030ca3aa1290"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196001, 5380, 6122, 187, 900, "Input",ExpressionUUID->"c19137b0-217d-0844-9acb-cc5878ab26fc"], +Cell[202126, 5569, 175, 3, 41, "Output",ExpressionUUID->"b20cbe94-36a3-8548-a61e-959a25814c62"] +}, Open ]], +Cell[CellGroupData[{ +Cell[202338, 5577, 368, 9, 53, "Input",ExpressionUUID->"7c3bd40f-ac17-c54f-a888-ac3b4c84d9d9"], +Cell[202709, 5588, 172, 3, 41, "Output",ExpressionUUID->"4fc2e2c1-457d-3d4a-a5b7-180877c6f370"] +}, Open ]], +Cell[CellGroupData[{ +Cell[202918, 5596, 2663, 88, 435, "Input",ExpressionUUID->"bdca581e-5d9f-434b-8ec4-903e0edf0216"], +Cell[205584, 5686, 171, 3, 41, "Output",ExpressionUUID->"08fcefa1-a87b-bf4b-998d-0c9017752dd4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[205792, 5694, 2603, 85, 435, "Input",ExpressionUUID->"1cec8cc2-764e-3d42-a680-d2ec92565257"], +Cell[208398, 5781, 173, 3, 41, "Output",ExpressionUUID->"5678b502-e98a-5d4b-9c03-fe98b2cc6f78"] +}, Open ]], +Cell[CellGroupData[{ +Cell[208608, 5789, 3712, 118, 575, "Input",ExpressionUUID->"800aba4f-a7e9-864a-a38b-f618fe3c89be"], +Cell[212323, 5909, 174, 3, 41, "Output",ExpressionUUID->"d74c1470-6eae-4841-b978-069a86bca67d"] +}, Open ]], +Cell[212512, 5915, 138, 3, 36, "Input",ExpressionUUID->"8111b6bb-cdcb-ad40-9440-412e77bed40d"], +Cell[CellGroupData[{ +Cell[212675, 5922, 2054, 59, 276, "Input",ExpressionUUID->"fc88a60e-e348-d344-96c4-1f4f66f53217"], +Cell[214732, 5983, 559, 12, 98, "Message",ExpressionUUID->"0833bd34-3252-a046-9aa3-94c1d6e5cfe9"], +Cell[215294, 5997, 560, 12, 98, "Message",ExpressionUUID->"f24a3618-ee43-704a-86fe-493dbed35e8d"], +Cell[215857, 6011, 565, 12, 98, "Message",ExpressionUUID->"86271901-aa3c-5542-ab18-fc06d3fd3f32"], +Cell[216425, 6025, 456, 10, 32, "Message",ExpressionUUID->"ce9bd686-d768-5440-b47e-1ee2b5aa0183"], +Cell[216884, 6037, 170, 3, 41, "Output",ExpressionUUID->"a6ab28bd-0b4e-3443-93b3-734d7cf3d8a2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[217091, 6045, 2054, 59, 276, "Input",ExpressionUUID->"dca13eb7-7f94-3e45-81a8-b62dad3009d2"], +Cell[219148, 6106, 559, 12, 98, "Message",ExpressionUUID->"44f2ed65-5109-0141-bef6-eebaeda3d61d"], +Cell[219710, 6120, 559, 12, 98, "Message",ExpressionUUID->"ba49f32e-1ff7-b147-9f42-9c90ccc55447"], +Cell[220272, 6134, 565, 12, 98, "Message",ExpressionUUID->"fa95acf1-55b2-c042-9a9f-32e1ebea5c1e"], +Cell[220840, 6148, 458, 10, 32, "Message",ExpressionUUID->"3c3d4134-2c7d-0949-9759-036664c530e3"], +Cell[221301, 6160, 170, 3, 41, "Output",ExpressionUUID->"742dfe41-8369-8942-b522-c174c845c383"] +}, Open ]], +Cell[CellGroupData[{ +Cell[221508, 6168, 1938, 53, 232, "Input",ExpressionUUID->"46451e4d-f5ef-b246-91c6-4265c9fafb97"], +Cell[223449, 6223, 20207, 379, 295, "Output",ExpressionUUID->"0e6ef056-d4e3-ac4d-9f2a-df071f8decb1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[243693, 6607, 2094, 60, 311, "Input",ExpressionUUID->"06bd0169-a5a6-404c-935d-e1a61565f71e"], +Cell[245790, 6669, 503, 11, 71, "Message",ExpressionUUID->"8a980d1e-9dd5-194d-803a-ac5d63bbe693"], +Cell[246296, 6682, 505, 11, 71, "Message",ExpressionUUID->"637082a9-fe74-7345-8895-dee77343ee6f"], +Cell[246804, 6695, 506, 11, 71, "Message",ExpressionUUID->"b2e7262c-7c6d-d94d-a545-ea4b363e579a"], +Cell[247313, 6708, 455, 10, 32, "Message",ExpressionUUID->"40c56d25-ed26-3045-9759-ae8eef5eb7cb"], +Cell[247771, 6720, 55770, 961, 290, "Output",ExpressionUUID->"f96372ea-8786-a94e-801e-a3ab56caf675"] +}, Open ]], +Cell[303556, 7684, 2455, 69, 296, "Input",ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-b938908ab9a4"], +Cell[306014, 7755, 209, 5, 36, "Input",ExpressionUUID->"6b0777bb-40fd-b54e-aa03-b6e82cb2e939"], +Cell[CellGroupData[{ +Cell[306248, 7764, 217, 7, 61, "Input",ExpressionUUID->"1ec1e156-ca0f-9240-857c-ac86e3a0e3fd"], +Cell[306468, 7773, 173, 3, 41, "Output",ExpressionUUID->"1ffcb79a-13e7-7549-b41c-23408ffbacea"] +}, Open ]], +Cell[CellGroupData[{ +Cell[306678, 7781, 1814, 53, 311, "Input",ExpressionUUID->"2a22eb8b-38c3-1f4b-a455-da901e49f6f1"], +Cell[308495, 7836, 506, 11, 71, "Message",ExpressionUUID->"08a2126f-e71c-b94d-8844-15e292a8f7d1"], +Cell[309004, 7849, 508, 11, 71, "Message",ExpressionUUID->"1acf7f10-7675-ea41-b478-94e928ef3377"], +Cell[309515, 7862, 509, 11, 71, "Message",ExpressionUUID->"67cdfb4c-9282-934a-b3c5-526027acebf5"], +Cell[310027, 7875, 458, 10, 32, "Message",ExpressionUUID->"760e7203-a507-b249-aaf5-4906557faed2"], +Cell[310488, 7887, 24818, 454, 290, "Output",ExpressionUUID->"f25b03e8-0c50-2442-86f8-c19dc28b43cf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[335343, 8346, 1616, 48, 132, "Input",ExpressionUUID->"6e7e1815-2cc6-b24e-a02d-18991b1a751b"], +Cell[336962, 8396, 582, 12, 118, "Message",ExpressionUUID->"b6e3034b-dd99-1142-8723-42090efc2980"], +Cell[337547, 8410, 588, 12, 118, "Message",ExpressionUUID->"54e48413-1d3a-b844-8316-bcdf9191e67e"], +Cell[338138, 8424, 590, 12, 118, "Message",ExpressionUUID->"44ccd47c-7323-4a4e-a9d6-7424d8b3399f"], +Cell[338731, 8438, 458, 10, 32, "Message",ExpressionUUID->"4c2e41d3-b5d7-3f4c-ba94-0408b6a0e82d"], +Cell[339192, 8450, 171, 3, 41, "Output",ExpressionUUID->"c1bfc082-c70f-3140-a59c-c21547622f5b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[339400, 8458, 2251, 64, 348, "Input",ExpressionUUID->"0b10f52e-4583-2a4b-993d-96e59dd43e6a"], +Cell[341654, 8524, 557, 12, 98, "Message",ExpressionUUID->"0e308aaf-a4b5-d740-9882-5c338a63d7a7"], +Cell[342214, 8538, 560, 12, 98, "Message",ExpressionUUID->"5e35cc91-e340-c74b-b6dd-42063e8a308b"], +Cell[342777, 8552, 565, 12, 98, "Message",ExpressionUUID->"c3f5c3a9-ece1-e648-aa3a-3f66f2873ea7"], +Cell[343345, 8566, 458, 10, 32, "Message",ExpressionUUID->"41503ce3-67a0-8a4a-b10a-c3db53fd260d"], +Cell[343806, 8578, 172, 3, 41, "Output",ExpressionUUID->"d9451200-e1de-5d43-8d07-ddcfc9babc52"] +}, Open ]], +Cell[CellGroupData[{ +Cell[344015, 8586, 2218, 64, 81, "Input",ExpressionUUID->"a58948c9-6d3d-e847-a269-d2e0cc5d1484"], +Cell[346236, 8652, 559, 12, 109, "Message",ExpressionUUID->"2247cd70-3ffa-2245-971e-6c6a2bd1ecfc"], +Cell[346798, 8666, 562, 12, 98, "Message",ExpressionUUID->"d9ae7d5b-4e89-a74f-be53-15700ab2593c"], +Cell[347363, 8680, 563, 12, 98, "Message",ExpressionUUID->"821c7ce3-36cc-9549-9881-1225eb1561cf"], +Cell[347929, 8694, 458, 10, 32, "Message",ExpressionUUID->"52af17f2-aff2-c34f-85c8-700b3d2f5f39"], +Cell[348390, 8706, 170, 3, 41, "Output",ExpressionUUID->"9a4afbd4-21df-4744-836a-2ed068742fdd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[348597, 8714, 2221, 64, 348, "Input",ExpressionUUID->"c817b2d1-7deb-5a45-9938-ca10003188eb"], +Cell[350821, 8780, 559, 12, 98, "Message",ExpressionUUID->"3701f96f-691c-9040-a8a1-ff3958638338"], +Cell[351383, 8794, 562, 12, 98, "Message",ExpressionUUID->"9e260603-f97f-ac44-8251-869444fbcc24"], +Cell[351948, 8808, 563, 12, 98, "Message",ExpressionUUID->"f34d60ab-6a89-fd45-89b6-5f3b4b17dd22"], +Cell[352514, 8822, 458, 10, 32, "Message",ExpressionUUID->"27fa1c02-4896-1547-8cb5-b1b86182517f"], +Cell[352975, 8834, 171, 3, 41, "Output",ExpressionUUID->"7fdd69fb-d48e-e24a-a681-093b62cad9ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[353183, 8842, 213, 6, 60, "Input",ExpressionUUID->"350334c7-7c47-c24c-8adc-781173809e57"], +Cell[353399, 8850, 173, 3, 41, "Output",ExpressionUUID->"20848a4e-e706-ec41-8982-5a7089f6420d"] +}, Open ]], +Cell[353587, 8856, 245, 5, 36, "Input",ExpressionUUID->"597921e5-69d3-564d-a8fa-092e912c15e0"], +Cell[CellGroupData[{ +Cell[353857, 8865, 558, 19, 66, "Input",ExpressionUUID->"d8a22216-586e-3641-8d6a-b19164cbbef2"], +Cell[354418, 8886, 170, 3, 41, "Output",ExpressionUUID->"c70c9f2e-d3ac-284f-9a22-d110345400ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[354625, 8894, 170, 5, 71, "Input",ExpressionUUID->"fdbad1ee-10c7-0843-8319-ad9a3350b059"], +Cell[354798, 8901, 173, 3, 41, "Output",ExpressionUUID->"dc218355-20da-7845-8c8d-e506361cd90c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[355008, 8909, 181, 5, 55, "Input",ExpressionUUID->"1e4255c3-6733-664e-86c8-98281eb7b3d1"], +Cell[355192, 8916, 171, 3, 41, "Output",ExpressionUUID->"b98e2d62-3142-7d4b-8175-9f6bcc8f676f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[355400, 8924, 6055, 185, 831, "Input",ExpressionUUID->"70c538a1-1fdf-1447-919a-237a7f13ec4c"], +Cell[361458, 9111, 172, 3, 41, "Output",ExpressionUUID->"e2235b96-63a9-b14d-b5d1-d13c73c5b35b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[361667, 9119, 368, 9, 53, "Input",ExpressionUUID->"309f305e-3fbc-e84e-99d9-1087d7a09460"], +Cell[362038, 9130, 172, 3, 41, "Output",ExpressionUUID->"776526ba-6ae1-2140-8428-6e0766592ce2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[362247, 9138, 6122, 187, 900, "Input",ExpressionUUID->"e745b4b9-6adc-da40-98cf-d19095e176b2"], +Cell[368372, 9327, 173, 3, 41, "Output",ExpressionUUID->"4456bf68-737e-1947-bc9d-24db2abd4b39"] +}, Open ]], +Cell[CellGroupData[{ +Cell[368582, 9335, 368, 9, 53, "Input",ExpressionUUID->"9d206cd8-8a5b-4046-b84a-e6b4fe810128"], +Cell[368953, 9346, 170, 3, 41, "Output",ExpressionUUID->"04031349-1bc1-2c40-8d25-2e90a8f4b902"] +}, Open ]], +Cell[CellGroupData[{ +Cell[369160, 9354, 2663, 88, 435, "Input",ExpressionUUID->"2ec72619-a762-004d-a8c1-9773b798bf0e"], +Cell[371826, 9444, 171, 3, 41, "Output",ExpressionUUID->"ab924ecc-12c3-f448-be6e-b37b3bf2a7ea"] +}, Open ]], +Cell[CellGroupData[{ +Cell[372034, 9452, 2603, 85, 435, "Input",ExpressionUUID->"499f8153-6e36-8043-876b-5343c0af179e"], +Cell[374640, 9539, 173, 3, 41, "Output",ExpressionUUID->"edd230b8-d34a-9d46-9fb1-cbff36fb79ff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[374850, 9547, 3712, 118, 575, "Input",ExpressionUUID->"33c0834c-5a76-7640-a18c-d9704d756896"], +Cell[378565, 9667, 174, 3, 41, "Output",ExpressionUUID->"7ff053b6-f84b-bf44-8265-ecf6593e97c0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[378776, 9675, 2049, 58, 276, "Input",ExpressionUUID->"77c444cf-c5b4-4b4b-9808-ff76b28fd32d"], +Cell[380828, 9735, 579, 12, 98, "Message",ExpressionUUID->"ba9cccb8-fdfa-1d4c-9151-4c0bb8135009"], +Cell[381410, 9749, 582, 12, 98, "Message",ExpressionUUID->"dda5376f-614c-1846-a3e1-09857b4bcae6"], +Cell[381995, 9763, 584, 12, 118, "Message",ExpressionUUID->"7a2a8f8b-abfe-9646-a4d6-23b88b4059ef"], +Cell[382582, 9777, 458, 10, 32, "Message",ExpressionUUID->"61579f38-09d5-bc4c-9509-0aaf4718ceff"], +Cell[383043, 9789, 172, 3, 41, "Output",ExpressionUUID->"87b4581c-42ec-3248-906f-f100fdcc36d4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[383252, 9797, 2054, 59, 276, "Input",ExpressionUUID->"baacd3f7-96e4-2949-b9f9-9afb90e551d9"], +Cell[385309, 9858, 577, 12, 98, "Message",ExpressionUUID->"19016d8b-0ad0-804c-b867-298523611be5"], +Cell[385889, 9872, 580, 12, 98, "Message",ExpressionUUID->"b91abb11-65b8-3b43-a495-4cb1457edd27"], +Cell[386472, 9886, 583, 12, 118, "Message",ExpressionUUID->"120f2ab5-c971-b748-a471-5d053961b4f2"], +Cell[387058, 9900, 456, 10, 32, "Message",ExpressionUUID->"e219a46d-9b55-8b4b-a17f-972d0b60293c"], +Cell[387517, 9912, 171, 3, 41, "Output",ExpressionUUID->"15e7db41-f53f-7c4b-886f-7ba04bf10a25"] +}, Open ]], +Cell[CellGroupData[{ +Cell[387725, 9920, 2030, 55, 232, "Input",ExpressionUUID->"ea08a5a9-d446-9147-ba82-e3924f732df2"], +Cell[389758, 9977, 20493, 384, 295, "Output",ExpressionUUID->"33ceb84f-c9c7-504c-ae94-1b1d69b769af"] +}, Open ]], +Cell[CellGroupData[{ +Cell[410288, 10366, 2120, 60, 109, "Input",ExpressionUUID->"42ddbf41-0bd8-b749-bead-56c89a9b7467"], +Cell[412411, 10428, 501, 11, 71, "Message",ExpressionUUID->"b616cb85-0c12-9449-8e54-a070530c7874"], +Cell[412915, 10441, 504, 11, 71, "Message",ExpressionUUID->"d17cbbe2-194b-ec4c-bb30-d2fcc4c1a181"], +Cell[413422, 10454, 508, 11, 71, "Message",ExpressionUUID->"6c23e3dc-9bc5-a441-99df-2985793b0df8"], +Cell[413933, 10467, 456, 10, 32, "Message",ExpressionUUID->"de9af779-0821-a544-b1ce-6c66cf00e4d6"], +Cell[414392, 10479, 31462, 562, 290, "Output",ExpressionUUID->"d2a47969-eb62-c243-9b06-713ae9ea0a7d"] +}, Open ]], +Cell[445869, 11044, 209, 5, 36, "Input",ExpressionUUID->"6883477e-2a54-0a45-979a-ae60c73e9e82"], +Cell[CellGroupData[{ +Cell[446103, 11053, 1616, 48, 132, "Input",ExpressionUUID->"93c0bac4-7a17-8748-9b2f-588171dbd56e"], +Cell[447722, 11103, 596, 12, 118, "Message",ExpressionUUID->"ca0dab71-62e4-1c4e-b2d5-91f300055932"], +Cell[448321, 11117, 602, 12, 118, "Message",ExpressionUUID->"aa43f3fc-5ec5-414d-bbd9-cf1b638f0a27"], +Cell[448926, 11131, 605, 12, 118, "Message",ExpressionUUID->"eaa52aca-1e19-e84e-9825-10ec4ac94baf"], +Cell[449534, 11145, 458, 10, 32, "Message",ExpressionUUID->"40ddf79f-d82f-b94d-9b78-050a48c24dda"], +Cell[449995, 11157, 171, 3, 41, "Output",ExpressionUUID->"f752c3f0-fe06-284b-bff8-a09adf8994cc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[450203, 11165, 2251, 64, 348, "Input",ExpressionUUID->"fcc64ab7-eee0-e44f-9b2d-2a98ba29b602"], +Cell[452457, 11231, 577, 12, 98, "Message",ExpressionUUID->"03b49875-7e1c-734a-9395-591c7a6a0147"], +Cell[453037, 11245, 580, 12, 98, "Message",ExpressionUUID->"bbc1c804-e094-2b49-bceb-c837038552fa"], +Cell[453620, 11259, 586, 12, 118, "Message",ExpressionUUID->"340351a4-e10e-7141-b933-75e80a563962"], +Cell[454209, 11273, 458, 10, 32, "Message",ExpressionUUID->"45363ba5-7011-ce4a-bbb2-25b54117d598"], +Cell[454670, 11285, 173, 3, 41, "Output",ExpressionUUID->"a7117811-d866-a74a-b451-2e5611fcbe98"] +}, Open ]], +Cell[CellGroupData[{ +Cell[454880, 11293, 2219, 64, 348, "Input",ExpressionUUID->"edfdd675-c60b-304e-9e16-68452b971319"], +Cell[457102, 11359, 579, 12, 71, "Message",ExpressionUUID->"d229ea6a-26e4-d448-90bf-3044f07066eb"], +Cell[457684, 11373, 580, 12, 98, "Message",ExpressionUUID->"7911ebc5-127d-5841-a246-fcff3e2e3d7f"], +Cell[458267, 11387, 586, 12, 118, "Message",ExpressionUUID->"62b490bd-3e68-5b49-8d2e-1bbb1e520215"], +Cell[458856, 11401, 458, 10, 32, "Message",ExpressionUUID->"2c340204-da84-dd4d-abb8-8821cc152f8d"], +Cell[459317, 11413, 171, 3, 41, "Output",ExpressionUUID->"88b2df22-3f75-ff45-90a9-fda3ac3bb827"] +}, Open ]], +Cell[CellGroupData[{ +Cell[459525, 11421, 2219, 64, 348, "Input",ExpressionUUID->"d0469d46-2e74-494a-be85-b41cb2f3fa92"], +Cell[461747, 11487, 576, 12, 109, "Message",ExpressionUUID->"8c45e08e-3e6d-d74b-a260-2b9be908c427"], +Cell[462326, 11501, 580, 12, 98, "Message",ExpressionUUID->"05cc4b97-7653-f04b-8664-f56b3128e201"], +Cell[462909, 11515, 584, 12, 118, "Message",ExpressionUUID->"880f1d89-ca48-ef4c-8955-16a02dd06624"], +Cell[463496, 11529, 458, 10, 32, "Message",ExpressionUUID->"fbbc91b1-3b40-a04c-8f78-5ca75ca88c9b"], +Cell[463957, 11541, 173, 3, 41, "Output",ExpressionUUID->"ea027f70-f222-b745-8c2e-f4a8bd2e0421"] +}, Open ]], +Cell[CellGroupData[{ +Cell[464167, 11549, 212, 6, 60, "Input",ExpressionUUID->"58b5e243-0972-1946-bd17-aca0f3e8a35b"], +Cell[464382, 11557, 172, 3, 41, "Output",ExpressionUUID->"3682abd7-ed62-9948-84cf-8fffa8ddbfe7"] +}, Open ]], +Cell[464569, 11563, 244, 5, 36, "Input",ExpressionUUID->"8ae59c8e-a0a1-f646-a3f5-a3711ba632a4"], +Cell[CellGroupData[{ +Cell[464838, 11572, 558, 19, 66, "Input",ExpressionUUID->"403fd1b3-6929-134c-834a-14f2acd2fccb"], +Cell[465399, 11593, 171, 3, 41, "Output",ExpressionUUID->"9fbf2f5c-e66a-8c48-92c5-cb97211e83a1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[465607, 11601, 170, 5, 71, "Input",ExpressionUUID->"434ec2be-ef30-1d48-bf44-e1e8b179c2e0"], +Cell[465780, 11608, 171, 3, 41, "Output",ExpressionUUID->"7a911217-f777-234b-9e3e-66fa91b95a93"] +}, Open ]], +Cell[CellGroupData[{ +Cell[465988, 11616, 181, 5, 55, "Input",ExpressionUUID->"defdc4af-a758-2c46-b8da-ac4403e5ffd4"], +Cell[466172, 11623, 173, 3, 41, "Output",ExpressionUUID->"71512215-c060-b042-87dd-cf63c2fdbe79"] +}, Open ]], +Cell[CellGroupData[{ +Cell[466382, 11631, 6055, 185, 831, "Input",ExpressionUUID->"7643457c-ba0b-b641-aa35-59c61447beaf"], +Cell[472440, 11818, 173, 3, 41, "Output",ExpressionUUID->"83eb5a5c-2221-9048-9616-76c841caa7ff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[472650, 11826, 368, 9, 53, "Input",ExpressionUUID->"88a32c79-3b56-5047-96b0-6fadcea3787e"], +Cell[473021, 11837, 172, 3, 41, "Output",ExpressionUUID->"3469ea64-5888-e347-a592-fe58acf45252"] +}, Open ]], +Cell[CellGroupData[{ +Cell[473230, 11845, 6122, 187, 900, "Input",ExpressionUUID->"12b95c40-ca91-7148-a053-e8c97b54e7b6"], +Cell[479355, 12034, 173, 3, 41, "Output",ExpressionUUID->"6078ae64-e041-ef46-9c98-aeb384a7565b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[479565, 12042, 368, 9, 53, "Input",ExpressionUUID->"4e259183-4a48-7f41-8fc6-1aa60d807e18"], +Cell[479936, 12053, 172, 3, 41, "Output",ExpressionUUID->"ed53339e-8a54-b740-a712-127e0aa48364"] +}, Open ]], +Cell[CellGroupData[{ +Cell[480145, 12061, 2663, 88, 435, "Input",ExpressionUUID->"73b06553-f9e2-3447-85e9-8a163aa2ec21"], +Cell[482811, 12151, 173, 3, 41, "Output",ExpressionUUID->"0881e898-a895-4f44-9932-c9b57f23fb23"] +}, Open ]], +Cell[CellGroupData[{ +Cell[483021, 12159, 2603, 85, 435, "Input",ExpressionUUID->"64658d71-e48f-7c4d-bfd6-30344127c7bf"], +Cell[485627, 12246, 171, 3, 41, "Output",ExpressionUUID->"6f8be6ff-3439-7547-b2e5-a7f15df03852"] +}, Open ]], +Cell[CellGroupData[{ +Cell[485835, 12254, 3712, 118, 575, "Input",ExpressionUUID->"02b10812-8656-6e43-99ab-3ff059fd6dae"], +Cell[489550, 12374, 174, 3, 109, "Output",ExpressionUUID->"5f1268db-50d9-294a-839d-2dc73b3483c5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[489761, 12382, 2054, 59, 109, "Input",ExpressionUUID->"ba508068-6b78-254c-87d6-cf1adc0753dd"], +Cell[491818, 12443, 574, 12, 109, "Message",ExpressionUUID->"fea97571-51b6-bc4d-8922-e67cbea226be"], +Cell[492395, 12457, 580, 12, 98, "Message",ExpressionUUID->"f9381c1d-d837-a646-bb62-f69cb564b78b"], +Cell[492978, 12471, 580, 12, 98, "Message",ExpressionUUID->"2dd3f3b2-ca3e-6c42-abc0-5cf7523a6a65"], +Cell[493561, 12485, 456, 10, 32, "Message",ExpressionUUID->"5a727290-5b6b-a347-9739-3df9958ec415"], +Cell[494020, 12497, 172, 3, 41, "Output",ExpressionUUID->"44426372-aa84-bf4c-9f95-4de13286a09a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[494229, 12505, 2054, 59, 276, "Input",ExpressionUUID->"842e33e4-ae06-f746-ab8b-97489285cc9c"], +Cell[496286, 12566, 576, 12, 109, "Message",ExpressionUUID->"a32ffe4b-5346-7b46-9dee-b8bad033001e"], +Cell[496865, 12580, 577, 12, 109, "Message",ExpressionUUID->"902c6490-8537-484d-8825-0d2295db4f12"], +Cell[497445, 12594, 582, 12, 98, "Message",ExpressionUUID->"1b49285c-a5d9-074c-871b-37b4cadb7269"], +Cell[498030, 12608, 458, 10, 32, "Message",ExpressionUUID->"2ff3d4da-4949-1448-b68b-aac1ae56bb1a"], +Cell[498491, 12620, 172, 3, 41, "Output",ExpressionUUID->"046dcac0-9165-4b41-8a82-c19ed01a7ad4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[498700, 12628, 2028, 55, 232, "Input",ExpressionUUID->"b2e314f8-a6f0-6942-a94c-5ac1cacd7190"], +Cell[500731, 12685, 20021, 378, 109, "Output",ExpressionUUID->"d1cda4a3-f1fb-0d44-a506-74525ae66245"] +}, Open ]], +Cell[CellGroupData[{ +Cell[520789, 13068, 2146, 61, 311, "Input",ExpressionUUID->"497f9779-a3e4-c84e-a207-0aac70483e3c"], +Cell[522938, 13131, 502, 11, 71, "Message",ExpressionUUID->"56dc07a7-05cc-424a-8fff-08f056385a44"], +Cell[523443, 13144, 506, 11, 71, "Message",ExpressionUUID->"71ae3883-d346-164c-9764-dc57f6863817"], +Cell[523952, 13157, 508, 11, 71, "Message",ExpressionUUID->"16c86d51-9f27-3c48-b312-93c489e538a4"], +Cell[524463, 13170, 456, 10, 32, "Message",ExpressionUUID->"64c101a8-dc8b-1f4e-9946-a38ce949c736"], +Cell[524922, 13182, 30030, 538, 290, "Output",ExpressionUUID->"f98d1ba6-9bcb-b94f-a8fa-792e22f5ac65"] +}, Open ]], +Cell[554967, 13723, 209, 5, 36, "Input",ExpressionUUID->"54d9c986-d109-3d4c-9ee8-76427bb63659"], +Cell[CellGroupData[{ +Cell[555201, 13732, 1590, 47, 132, "Input",ExpressionUUID->"5dd0afca-0a4f-544d-814d-33e1c649116f"], +Cell[556794, 13781, 342, 6, 26, "Message",ExpressionUUID->"9e6d6a70-ad75-9b40-8a0b-ca802f09d5a2"], +Cell[557139, 13789, 101, 0, 41, "Output",ExpressionUUID->"b372c493-d6de-934f-951c-1a3f45718733"] +}, Open ]], +Cell[CellGroupData[{ +Cell[557277, 13794, 2249, 64, 348, "Input",ExpressionUUID->"a3e3d205-e3b4-874a-a36c-53cfa72184b4"], +Cell[559529, 13860, 342, 6, 26, "Message",ExpressionUUID->"9e9d949e-1d4c-8649-8d0e-b7deecfb3ba4"], +Cell[559874, 13868, 342, 6, 26, "Message",ExpressionUUID->"76f8ef60-aab6-7442-aeca-4cebad23cb0e"], +Cell[560219, 13876, 101, 0, 41, "Output",ExpressionUUID->"37cdd74c-8ec4-9047-aa14-d493ed3e18d0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[560357, 13881, 2221, 64, 348, "Input",ExpressionUUID->"6977f025-454e-0e4a-b118-07bad9ba3e82"], +Cell[562581, 13947, 342, 6, 26, "Message",ExpressionUUID->"566a849f-fc85-4d42-a545-a46d44cf7346"], +Cell[562926, 13955, 342, 6, 26, "Message",ExpressionUUID->"fb1cb4d6-a504-e445-bb52-7946e1bca3c6"], +Cell[563271, 13963, 100, 0, 41, "Output",ExpressionUUID->"5fc76ad3-8f3e-9246-bda1-78737e269d99"] +}, Open ]], +Cell[CellGroupData[{ +Cell[563408, 13968, 2223, 64, 348, "Input",ExpressionUUID->"df8ecb01-788a-604d-b773-f29bb610eb30"], +Cell[565634, 14034, 342, 6, 26, "Message",ExpressionUUID->"f9e34ec5-1462-b340-b2e7-8e875dd33d28"], +Cell[565979, 14042, 342, 6, 26, "Message",ExpressionUUID->"19ffb858-7059-2a48-a3db-e2d0dfcf2131"], +Cell[566324, 14050, 101, 0, 41, "Output",ExpressionUUID->"dbb2a900-6759-7349-a1e8-ea8b52a29f31"] +}, Open ]], +Cell[CellGroupData[{ +Cell[566462, 14055, 213, 6, 60, "Input",ExpressionUUID->"54a5e329-20bd-e742-afe8-d2cfa007cfcf"], +Cell[566678, 14063, 102, 0, 41, "Output",ExpressionUUID->"8f1edf59-aed7-914f-9d19-1949d2a555d6"] +}, Open ]], +Cell[566795, 14066, 185, 4, 36, "Input",ExpressionUUID->"6328874d-704c-46e4-bf50-43b34d3da068"] } ] *) -(* End of internal cache information *) - diff --git a/Pu240_798-811_TitovAA/коэффициенты_Pu240_2-24.txt b/Pu240_798-811_TitovAA/коэффициенты_Pu240_2-24.txt index 22fc2ec..6c4538f 100644 --- a/Pu240_798-811_TitovAA/коэффициенты_Pu240_2-24.txt +++ b/Pu240_798-811_TitovAA/коэффициенты_Pu240_2-24.txt @@ -12,7 +12,7 @@ vv2 = 1.1338 nn2 = 0.8500 ----------------------------- 176-64_4-5 * -d = +d = 1.6 v1 = 1.2500 n1 = 0.8500 vv1 = 2.3000 @@ -100,7 +100,7 @@ vv2 = 1.47 nn2 = 0.655 ----------------------------- 166-74_20-21 -d = +d = 1.85 v1 = 2.185 n1 = 0.755 vv1 = 2.5 @@ -111,7 +111,7 @@ vv2 = 1.51 nn2 = 0.635 ----------------------------- 168-72_22-23 -d = +d = 1.9 v1 = 2.155 n1 = 0.755 vv1 = 2.62 @@ -122,7 +122,7 @@ vv2 = 1.44 nn2 = 0.645 ----------------------------- 170-70_24-25 -d = +d = 2 v1 = 1.895 n1 = 0.785 vv1 = 2.605 @@ -133,7 +133,7 @@ vv2 = 1.5 nn2 = 0.635 ----------------------------- 172-68_26-27 -d = +d = 1.95 v1 = 1.895 n1 = 0.765 vv1 = 2.605